Repository: nasa/NASTRAN-95 Branch: master Commit: 65e29e9db7b2 Files: 2253 Total size: 52.4 MB Directory structure: gitextract_6gy9yi20/ ├── NASA Open Source Agreement-NASTRAN 95.doc ├── README.md ├── alt/ │ ├── COSDBCL │ ├── COSDDAM │ ├── COSDFVA │ ├── COSHYD1 │ ├── COSHYD2 │ └── COSMFVA ├── bd/ │ ├── dpdcbd.f │ ├── exiobd.f │ ├── ferfbd.f │ ├── flbbd.f │ ├── gp3bd.f │ ├── gptabd.f │ ├── ifp3bd.f │ ├── ifx1bd.f │ ├── ifx2bd.f │ ├── ifx3bd.f │ ├── ifx4bd.f │ ├── ifx5bd.f │ ├── ifx6bd.f │ ├── ifx7bd.f │ ├── itembd.f │ ├── of1pbd.f │ ├── of2pbd.f │ ├── of3pbd.f │ ├── of3sbd.f │ ├── of4pbd.f │ ├── of5pbd.f │ ├── of6pbd.f │ ├── of7pbd.f │ ├── of7sbd.f │ ├── of8pbd.f │ ├── of9pbd.f │ ├── ofp1bd.f │ ├── ofp5bd.f │ ├── ofsnbd.f │ ├── ofssbd.f │ ├── pla4bd.f │ ├── plotbd.f │ ├── readbd.f │ ├── sdr2bd.f │ ├── semdbd.f │ ├── sma1bd.f │ ├── sma2bd.f │ ├── ta1abd.f │ ├── tabfbd.f │ └── vdrbd.f ├── bin/ │ ├── NASNAMES.COM │ ├── linknas │ ├── nastlib.a │ ├── nastran │ └── nastrn.f ├── demoout/ │ ├── d01000a.out │ ├── d01001a.out │ ├── d01002a.out │ ├── d01011a.out │ ├── d01011b.out │ ├── d01011c.out │ ├── d01012a.out │ ├── d01013a.out │ ├── d01014a.out │ ├── d01021a.out │ ├── d01021b.out │ ├── d01031a.out │ ├── d01032a.out │ ├── d01033a.out │ ├── d01034a.out │ ├── d01041a.out │ ├── d01051a.out │ ├── d01061a.out │ ├── d01062a.out │ ├── d01071a.out │ ├── d01081a.out │ ├── d01091a.out │ ├── d01092a.out │ ├── d01101a.out │ ├── d01111a.out │ ├── d01112a.out │ ├── d01121a.out │ ├── d01122a.out │ ├── d01131a.out │ ├── d01132a.out │ ├── d01133a.out │ ├── d01141a.out │ ├── d01151a.out │ ├── d01161a.out │ ├── d01171a.out │ ├── d02011a.out │ ├── d02021a.out │ ├── d02022a.out │ ├── d02023a.out │ ├── d02024a.out │ ├── d02025a.out │ ├── d02026a.out │ ├── d02027a.out │ ├── d02031a.out │ ├── d02032a.out │ ├── d02033a.out │ ├── d02034a.out │ ├── d02035a.out │ ├── d02036a.out │ ├── d03011a.out │ ├── d03012a.out │ ├── d03013a.out │ ├── d03014a.out │ ├── d03021a.out │ ├── d03031a.out │ ├── d03041a.out │ ├── d03051a.out │ ├── d03061a.out │ ├── d03071a.out │ ├── d03081a.out │ ├── d03082a.out │ ├── d03083a.out │ ├── d04011a.out │ ├── d05011a.out │ ├── d05021a.out │ ├── d06011a.out │ ├── d07011a.out │ ├── d07012a.out │ ├── d07021a.out │ ├── d07022a.out │ ├── d08011a.out │ ├── d08012a.out │ ├── d08013a.out │ ├── d08014a.out │ ├── d09011a.out │ ├── d09021a.out │ ├── d09022a.out │ ├── d09031a.out │ ├── d09041a.out │ ├── d10011a.out │ ├── d10021a.out │ ├── d10022a.out │ ├── d10023a.out │ ├── d11011a.out │ ├── d11011b.out │ ├── d11021a.out │ ├── d11022a.out │ ├── d11031a.out │ ├── d11032a.out │ ├── d12011a.out │ ├── d13011a.out │ ├── d14011a.out │ ├── d15011a.out │ ├── t00001a.out │ ├── t01181a.out │ ├── t01191a.out │ ├── t01201a.out │ ├── t01211a.out │ ├── t01221a.out │ ├── t01231a.out │ ├── t01241a.out │ ├── t01251a.out │ ├── t01261a.out │ ├── t01271a.out │ ├── t01281a.out │ ├── t01291a.out │ ├── t01301a.out │ ├── t01311a.out │ ├── t01321a.out │ ├── t01331a.out │ ├── t01341a.out │ ├── t03091a.out │ ├── t03101a.out │ ├── t03111a.out │ ├── t03111b.out │ ├── t03121a.out │ ├── t03121b.out │ ├── t03121c.out │ ├── t03131a.out │ ├── t04021a.out │ ├── t04021b.out │ ├── t05031a.out │ ├── t08021a.out │ ├── t08022a.out │ ├── t08031a.out │ ├── t09051a.out │ ├── t09061a.out │ ├── t09071a.out │ ├── t13021a.out │ ├── t13022a.out │ ├── t16011a.out │ └── t17011a.out ├── inp/ │ ├── d01000a.inp │ ├── d01001a.inp │ ├── d01002a.inp │ ├── d01011a.inp │ ├── d01011a.txt │ ├── d01011b.inp │ ├── d01011b.txt │ ├── d01011c.inp │ ├── d01011c.txt │ ├── d01012a.inp │ ├── d01012a.txt │ ├── d01013a.inp │ ├── d01013a.txt │ ├── d01014a.inp │ ├── d01014a.txt │ ├── d01021a.inp │ ├── d01021a.txt │ ├── d01021b.inp │ ├── d01021b.txt │ ├── d01031a.inp │ ├── d01031a.txt │ ├── d01032a.inp │ ├── d01032a.txt │ ├── d01033a.inp │ ├── d01033a.txt │ ├── d01034a.inp │ ├── d01041a.inp │ ├── d01041a.txt │ ├── d01051a.inp │ ├── d01051a.txt │ ├── d01061a.inp │ ├── d01061a.txt │ ├── d01062a.inp │ ├── d01071a.inp │ ├── d01071a.txt │ ├── d01081a.inp │ ├── d01081a.txt │ ├── d01091a.inp │ ├── d01091a.txt │ ├── d01092a.inp │ ├── d01092a.txt │ ├── d01101a.inp │ ├── d01101a.txt │ ├── d01111a.inp │ ├── d01111a.txt │ ├── d01112a.inp │ ├── d01112a.txt │ ├── d01121a.inp │ ├── d01121a.txt │ ├── d01122a.inp │ ├── d01122a.txt │ ├── d01131a.inp │ ├── d01131a.txt │ ├── d01132a.inp │ ├── d01132a.txt │ ├── d01133a.inp │ ├── d01133a.txt │ ├── d01141a.inp │ ├── d01141a.txt │ ├── d01151a.inp │ ├── d01151a.txt │ ├── d01161a.inp │ ├── d01161a.txt │ ├── d01171a.inp │ ├── d01171a.txt │ ├── d02011a.inp │ ├── d02011a.txt │ ├── d02021a.inp │ ├── d02021a.txt │ ├── d02022a.inp │ ├── d02022a.txt │ ├── d02023a.inp │ ├── d02023a.txt │ ├── d02024a.inp │ ├── d02024a.txt │ ├── d02025a.inp │ ├── d02025a.txt │ ├── d02026a.inp │ ├── d02026a.txt │ ├── d02027a.inp │ ├── d02027a.txt │ ├── d02031a.inp │ ├── d02031a.txt │ ├── d02032a.inp │ ├── d02032a.txt │ ├── d02033a.inp │ ├── d02033a.txt │ ├── d02034a.inp │ ├── d02034a.txt │ ├── d02035a.inp │ ├── d02036a.inp │ ├── d03011a.inp │ ├── d03011a.txt │ ├── d03012a.inp │ ├── d03012a.txt │ ├── d03013a.inp │ ├── d03013a.txt │ ├── d03014a.inp │ ├── d03014a.txt │ ├── d03021a.inp │ ├── d03021a.txt │ ├── d03031a.inp │ ├── d03031a.txt │ ├── d03041a.inp │ ├── d03041a.txt │ ├── d03051a.inp │ ├── d03051a.txt │ ├── d03061a.inp │ ├── d03061a.txt │ ├── d03071a.inp │ ├── d03071a.txt │ ├── d03081a.inp │ ├── d03081a.txt │ ├── d03082a.inp │ ├── d03082a.txt │ ├── d03083a.inp │ ├── d03083a.txt │ ├── d04011a.inp │ ├── d04011a.txt │ ├── d05011a.inp │ ├── d05011a.txt │ ├── d05021a.inp │ ├── d05021a.txt │ ├── d06011a.inp │ ├── d06011a.txt │ ├── d07011a.inp │ ├── d07011a.txt │ ├── d07012a.inp │ ├── d07012a.txt │ ├── d07021a.inp │ ├── d07021a.txt │ ├── d07022a.inp │ ├── d07022a.txt │ ├── d08011a.inp │ ├── d08011a.txt │ ├── d08012a.inp │ ├── d08012a.txt │ ├── d08013a.inp │ ├── d08013a.txt │ ├── d08014a.inp │ ├── d08014a.txt │ ├── d09011a.inp │ ├── d09011a.txt │ ├── d09021a.inp │ ├── d09021a.txt │ ├── d09022a.inp │ ├── d09022a.txt │ ├── d09031a.inp │ ├── d09031a.txt │ ├── d09041a.inp │ ├── d09041a.txt │ ├── d10011a.inp │ ├── d10011a.txt │ ├── d10021a.inp │ ├── d10021a.txt │ ├── d10022a.inp │ ├── d10023a.inp │ ├── d11011a.inp │ ├── d11011a.txt │ ├── d11011b.inp │ ├── d11021a.inp │ ├── d11021a.txt │ ├── d11022a.inp │ ├── d11022a.txt │ ├── d11031a.inp │ ├── d11031a.txt │ ├── d11032a.inp │ ├── d11032a.txt │ ├── d12011a.inp │ ├── d12011a.txt │ ├── d13011a.inp │ ├── d13011a.txt │ ├── d14011a.inp │ ├── d14011a.txt │ ├── d15011a.inp │ ├── d15011a.txt │ ├── t00001a.inp │ ├── t01181a.inp │ ├── t01191a.inp │ ├── t01201a.inp │ ├── t01211a.inp │ ├── t01221a.inp │ ├── t01231a.inp │ ├── t01241a.inp │ ├── t01251a.inp │ ├── t01261a.inp │ ├── t01271a.inp │ ├── t01281a.inp │ ├── t01291a.inp │ ├── t01301a.inp │ ├── t01311a.inp │ ├── t01321a.inp │ ├── t01331a.inp │ ├── t01341a.inp │ ├── t03091a.inp │ ├── t03101a.inp │ ├── t03111a.inp │ ├── t03111b.inp │ ├── t03121a.inp │ ├── t03121b.inp │ ├── t03121c.inp │ ├── t03131a.inp │ ├── t04021a.inp │ ├── t04021b.inp │ ├── t05031a.inp │ ├── t08021a.inp │ ├── t08022a.inp │ ├── t08031a.inp │ ├── t09051a.inp │ ├── t09061a.inp │ ├── t09071a.inp │ ├── t13021a.inp │ ├── t13022a.inp │ ├── t16011a.inp │ └── t17011a.inp ├── mds/ │ ├── DSIOF.COM │ ├── GINOX.COM │ ├── NASNAMES.COM │ ├── PAKBLK.COM │ ├── XNSTRN.COM │ ├── ZZZZZZ.COM │ ├── bckrec.f │ ├── bldpk.f │ ├── bldpki.f │ ├── bldpkn.f │ ├── bpack.f │ ├── btstrp.f │ ├── bufchk.f │ ├── bunpak.f │ ├── bunpk.f │ ├── chkfil.f │ ├── close.f │ ├── corwds.f │ ├── cputim.f │ ├── dbmalb.f │ ├── dbmdfc.f │ ├── dbmdia.f │ ├── dbmdmp.f │ ├── dbmfdp.f │ ├── dbmint.f │ ├── dbmio.f │ ├── dbmlbk.f │ ├── dbmmgr.f │ ├── dbmmov.f │ ├── dbmnam.f │ ├── dbmrel.f │ ├── dbmrlb.f │ ├── dbmsrf.f │ ├── dbmstf.f │ ├── defcor.f │ ├── delscr.f │ ├── dmpmat.f │ ├── dsblpk.f │ ├── dsbpnk.f │ ├── dsbrc1.f │ ├── dsclos.f │ ├── dscpos.f │ ├── dsefwr.f │ ├── dsfwr1.f │ ├── dsgefl.f │ ├── dsgncl.f │ ├── dsgnop.f │ ├── dsgnrd.f │ ├── dsgnwr.f │ ├── dshxdd.f │ ├── dshxdp.f │ ├── dsinqr.f │ ├── dsiodd.f │ ├── dsipk1.f │ ├── dsmsg.f │ ├── dsmsg1.f │ ├── dsnmdd.f │ ├── dsnmrd.f │ ├── dsnmwr.f │ ├── dsocff.f │ ├── dsopen.f │ ├── dsopff.f │ ├── dsprcl.f │ ├── dsrdmb.f │ ├── dsrdnb.f │ ├── dsrdpb.f │ ├── dsread.f │ ├── dsrlse.f │ ├── dssdcb.f │ ├── dssend.f │ ├── dssize.f │ ├── dsskfb.f │ ├── dsskff.f │ ├── dsskrc.f │ ├── dsspos.f │ ├── dsupkc.f │ ├── dswrit.f │ ├── dswrnb.f │ ├── dswrt1.f │ ├── dsxfsz.f │ ├── dszbkk.f │ ├── dummy.f │ ├── emgsoc.f │ ├── endget.f │ ├── endgtb.f │ ├── endput.f │ ├── eof.f │ ├── errtrc.f │ ├── exford.f │ ├── exfort.f │ ├── exfowr.f │ ├── fbsv.f │ ├── filpos.f │ ├── forwrt.f │ ├── fwdrec.f │ ├── getstb.f │ ├── getstr.f │ ├── geturn.f │ ├── gnfiat.f │ ├── ibmopn.f │ ├── intpk.f │ ├── intpki.f │ ├── k2b.f │ ├── khrbcd.f │ ├── khrfn1.f │ ├── khrfn4.f │ ├── klock.f │ ├── mapfns.f │ ├── nasopn.f │ ├── nastim.f │ ├── nastrn.f │ ├── numtyp.f │ ├── open.f │ ├── pack.f │ ├── putstr.f │ ├── qopen.f │ ├── rdblk.f │ ├── read.f │ ├── rectyp.f │ ├── rewind.f │ ├── rfopen.f │ ├── savpos.f │ ├── second.f │ ├── sgino.f │ ├── skpfil.f │ ├── sofio.f │ ├── tdate.f │ ├── umffd.f │ ├── unpack.f │ ├── vaxsch.f │ ├── waltim.f │ ├── write.f │ ├── wrtblk.f │ ├── wrtfmt.f │ ├── zblpki.f │ └── zntpki.f ├── mis/ │ ├── MMACOM.COM │ ├── SMCOMX.COM │ ├── a42a8.f │ ├── a82int.f │ ├── adr.f │ ├── adri.f │ ├── adrprt.f │ ├── af.f │ ├── ai.f │ ├── ais.f │ ├── akapm.f │ ├── akappa.f │ ├── akp2.f │ ├── alamda.f │ ├── alg.f │ ├── alg01.f │ ├── alg02.f │ ├── alg03.f │ ├── alg04.f │ ├── alg05.f │ ├── alg06.f │ ├── alg07.f │ ├── alg08.f │ ├── alg09.f │ ├── alg1.f │ ├── alg10.f │ ├── alg11.f │ ├── alg12.f │ ├── alg13.f │ ├── alg14.f │ ├── alg15.f │ ├── alg16.f │ ├── alg17.f │ ├── alg18.f │ ├── alg19.f │ ├── alg2.f │ ├── alg25.f │ ├── alg26.f │ ├── alg29.f │ ├── alg3.f │ ├── alg30.f │ ├── alg4.f │ ├── alg5.f │ ├── alg6.f │ ├── alg7.f │ ├── alg8.f │ ├── alg9.f │ ├── algan.f │ ├── algap.f │ ├── algar.f │ ├── algpb.f │ ├── algpo.f │ ├── algpr.f │ ├── allmat.f │ ├── amatrx.f │ ├── amg.f │ ├── amgb1.f │ ├── amgb1a.f │ ├── amgb1b.f │ ├── amgb1c.f │ ├── amgb1d.f │ ├── amgb1s.f │ ├── amgb2.f │ ├── amgb2a.f │ ├── amgbfs.f │ ├── amgrod.f │ ├── amgsba.f │ ├── amgt1.f │ ├── amgt1a.f │ ├── amgt1b.f │ ├── amgt1c.f │ ├── amgt1d.f │ ├── amgt1s.f │ ├── amgt1t.f │ ├── amgt2.f │ ├── amgt2a.f │ ├── amp.f │ ├── ampa.f │ ├── ampb.f │ ├── ampb1.f │ ├── ampb2.f │ ├── ampc.f │ ├── ampc1.f │ ├── ampc2.f │ ├── ampd.f │ ├── ampe.f │ ├── ampf.f │ ├── angtrs.f │ ├── anisop.f │ ├── apd.f │ ├── apd1.f │ ├── apd12.f │ ├── apd2.f │ ├── apd3.f │ ├── apd4.f │ ├── apd5.f │ ├── apdb.f │ ├── apdb1.f │ ├── apdb2.f │ ├── apdb2a.f │ ├── apdcs.f │ ├── apdf.f │ ├── apdoe.f │ ├── apdr.f │ ├── area.f │ ├── arrm.f │ ├── ascm01.f │ ├── ascm02.f │ ├── ascm03.f │ ├── ascm04.f │ ├── ascm05.f │ ├── ascm06.f │ ├── ascm07.f │ ├── ascm08.f │ ├── ascm09.f │ ├── ascm10.f │ ├── ascm11.f │ ├── ascm12.f │ ├── ascm13.f │ ├── asdmap.f │ ├── aspro.f │ ├── asycon.f │ ├── ateig.f │ ├── autock.f │ ├── autosv.f │ ├── axis.f │ ├── axis10.f │ ├── axloop.f │ ├── bandit.f │ ├── bar.f │ ├── bard.f │ ├── bars.f │ ├── basglb.f │ ├── bdat01.f │ ├── bdat02.f │ ├── bdat03.f │ ├── bdat04.f │ ├── bdat05.f │ ├── bdat06.f │ ├── betrns.f │ ├── bfsmat.f │ ├── bgrid.f │ ├── bint.f │ ├── biotsv.f │ ├── bishel.f │ ├── bislc2.f │ ├── bisloc.f │ ├── bitpat.f │ ├── bmg.f │ ├── bmgtns.f │ ├── border.f │ ├── bound.f │ ├── bread.f │ ├── bseqgp.f │ ├── bug.f │ ├── calcv.f │ ├── case.f │ ├── casege.f │ ├── cdcmpd.f │ ├── cdcmps.f │ ├── cdcomp.f │ ├── cdetm.f │ ├── cdetm2.f │ ├── cdifbs.f │ ├── cdivid.f │ ├── cdtfbs.f │ ├── cead.f │ ├── cead1a.f │ ├── centre.f │ ├── cf1fbs.f │ ├── cf1ort.f │ ├── cf2fbs.f │ ├── cf2ort.f │ ├── cfactr.f │ ├── cfbsor.f │ ├── cfe1ao.f │ ├── cfe1my.f │ ├── cfe2ao.f │ ├── cfe2my.f │ ├── cfeer.f │ ├── cfeer1.f │ ├── cfeer2.f │ ├── cfeer3.f │ ├── cfeer4.f │ ├── cfer3d.f │ ├── cfer3s.f │ ├── cfnor1.f │ ├── cfnor2.f │ ├── chkopn.f │ ├── cidck.f │ ├── cifsdd.f │ ├── cinfbs.f │ ├── cinvp1.f │ ├── cinvp2.f │ ├── cinvp3.f │ ├── cinvpr.f │ ├── clstab.f │ ├── clvec.f │ ├── cmauto.f │ ├── cmcase.f │ ├── cmckcd.f │ ├── cmckdf.f │ ├── cmcomb.f │ ├── cmcont.f │ ├── cmdisc.f │ ├── cmhgen.f │ ├── cmiwrt.f │ ├── cmmcon.f │ ├── cmrd2.f │ ├── cmrd2a.f │ ├── cmrd2b.f │ ├── cmrd2c.f │ ├── cmrd2d.f │ ├── cmrd2e.f │ ├── cmrd2f.f │ ├── cmrd2g.f │ ├── cmrels.f │ ├── cmsfil.f │ ├── cmsofo.f │ ├── cmtimu.f │ ├── cmtoc.f │ ├── cmtrce.f │ ├── cnorm.f │ ├── cnorm1.f │ ├── cnstdd.f │ ├── cnstrc.f │ ├── com12.f │ ├── comb1.f │ ├── comb2.f │ ├── combin.f │ ├── combo.f │ ├── comect.f │ ├── comugv.f │ ├── cone.f │ ├── conm1d.f │ ├── conm1s.f │ ├── conm2d.f │ ├── conm2s.f │ ├── conmsg.f │ ├── contor.f │ ├── copy.f │ ├── cpyfil.f │ ├── cpystr.f │ ├── crdrd.f │ ├── crdrd2.f │ ├── create.f │ ├── criggp.f │ ├── crspld.f │ ├── crspls.f │ ├── crsub.f │ ├── csqrtx.f │ ├── csub.f │ ├── csumm.f │ ├── cthmck.f │ ├── ctrnsp.f │ ├── curcas.f │ ├── curv.f │ ├── curv1.f │ ├── curv2.f │ ├── curv3.f │ ├── curvit.f │ ├── curvps.f │ ├── cxloop.f │ ├── cxtrny.f │ ├── cyct1.f │ ├── cyct2.f │ ├── cyct2a.f │ ├── cyct2b.f │ ├── dadd.f │ ├── dadd5.f │ ├── dadotb.f │ ├── dapoly.f │ ├── daxb.f │ ├── dbar.f │ ├── dbase.f │ ├── dcone.f │ ├── dcross.f │ ├── ddamat.f │ ├── ddampg.f │ ├── ddcmps.f │ ├── ddcomp.f │ ├── ddr.f │ ├── ddr1.f │ ├── ddr1a.f │ ├── ddr1b.f │ ├── ddr2.f │ ├── ddrmm.f │ ├── ddrmm1.f │ ├── ddrmm2.f │ ├── ddrmma.f │ ├── ddrmmp.f │ ├── ddrmms.f │ ├── ddumx.f │ ├── decode.f │ ├── decomp.f │ ├── degree.f │ ├── delete.f │ ├── delkls.f │ ├── delset.f │ ├── deltkl.f │ ├── desvel.f │ ├── detck.f │ ├── detckx.f │ ├── detdet.f │ ├── detfbs.f │ ├── detgbs.f │ ├── detm.f │ ├── detm1.f │ ├── detm3.f │ ├── detm4.f │ ├── detm5.f │ ├── dfbs.f │ ├── dgree.f │ ├── diag36.f │ ├── diagon.f │ ├── diam.f │ ├── dihex.f │ ├── dipole.f │ ├── dis2d8.f │ ├── displa.f │ ├── dist.f │ ├── dk100.f │ ├── dk211.f │ ├── dk89.f │ ├── dki.f │ ├── dkint.f │ ├── dkl.f │ ├── dkls.f │ ├── dlamby.f │ ├── dlamg.f │ ├── dlbpt2.f │ ├── dlkapm.f │ ├── dloop.f │ ├── dlpt2.f │ ├── dmatrs.f │ ├── dmatrx.f │ ├── dmfgr.f │ ├── dmpalt.f │ ├── dmpfil.f │ ├── dmpy.f │ ├── dmpyad.f │ ├── dnorm.f │ ├── dpd.f │ ├── dpd1.f │ ├── dpd2.f │ ├── dpd3.f │ ├── dpd4.f │ ├── dpd5.f │ ├── dpdaa.f │ ├── dplot.f │ ├── dpltst.f │ ├── dpps.f │ ├── dppsb.f │ ├── dpse2.f │ ├── dpse3.f │ ├── dpse4.f │ ├── dpzy.f │ ├── dqdmem.f │ ├── dquad.f │ ├── draw.f │ ├── drkapm.f │ ├── drod.f │ ├── drwchr.f │ ├── ds1.f │ ├── ds1a.f │ ├── ds1b.f │ ├── ds1etd.f │ ├── dschk.f │ ├── dshear.f │ ├── dsmg1.f │ ├── dsmg2.f │ ├── dstroy.f │ ├── dtranp.f │ ├── dtrbsc.f │ ├── dtria.f │ ├── dtrmem.f │ ├── dtshld.f │ ├── dtshls.f │ ├── dumerg.f │ ├── dumod1.f │ ├── dumod2.f │ ├── dumod3.f │ ├── dumod4.f │ ├── dumod5.f │ ├── dumper.f │ ├── dumx.f │ ├── dupart.f │ ├── dvectr.f │ ├── dvmag.f │ ├── dypz.f │ ├── dzpy.f │ ├── dzy.f │ ├── dzymat.f │ ├── eadd.f │ ├── eandm.f │ ├── ectloc.f │ ├── edit.f │ ├── edtl.f │ ├── egnvct.f │ ├── eject.f │ ├── ektrmd.f │ ├── ektrms.f │ ├── elelbl.f │ ├── elim.f │ ├── em1d.f │ ├── em2d.f │ ├── em3d.f │ ├── ema.f │ ├── ema1.f │ ├── ema1d.f │ ├── ema1s.f │ ├── emadtq.f │ ├── emastq.f │ ├── emfld.f │ ├── emg.f │ ├── emg1b.f │ ├── emgcng.f │ ├── emgcor.f │ ├── emgfin.f │ ├── emgold.f │ ├── emgout.f │ ├── emgpro.f │ ├── emgtab.f │ ├── empcor.f │ ├── emsg.f │ ├── encode.f │ ├── endsys.f │ ├── eqmck.f │ ├── eqmcka.f │ ├── eqmckm.f │ ├── eqmcks.f │ ├── eqout1.f │ ├── eqscod.f │ ├── eqsout.f │ ├── errmkn.f │ ├── estmag.f │ ├── etrbkd.f │ ├── etrbks.f │ ├── etrbmd.f │ ├── etrbms.f │ ├── exi2.f │ ├── exio.f │ ├── exio1.f │ ├── exio2.f │ ├── exlvl.f │ ├── exo2.f │ ├── extern.f │ ├── f6211.f │ ├── f89.f │ ├── fa1.f │ ├── fa1k.f │ ├── fa1ke.f │ ├── fa1pka.f │ ├── fa1pke.f │ ├── fa1pki.f │ ├── fa1pkv.f │ ├── fa2.f │ ├── factor.f │ ├── factru.f │ ├── failrs.f │ ├── failur.f │ ├── fbs.f │ ├── fbs1.f │ ├── fbs2.f │ ├── fbs21.f │ ├── fbs3.f │ ├── fbs4.f │ ├── fbsf.f │ ├── fbsi.f │ ├── fbsi1.f │ ├── fbsi2.f │ ├── fbsi3.f │ ├── fbsi4.f │ ├── fbsint.f │ ├── fbsinv.f │ ├── fbsrdm.f │ ├── fcurl.f │ ├── fdit.f │ ├── fdsub.f │ ├── fdvect.f │ ├── feer.f │ ├── feer1.f │ ├── feer2.f │ ├── feer3.f │ ├── feer3x.f │ ├── feer4.f │ ├── feerdd.f │ ├── ferfbs.f │ ├── ferltd.f │ ├── ferlts.f │ ├── ferrdm.f │ ├── ferswd.f │ ├── fersws.f │ ├── ferxtd.f │ ├── ferxts.f │ ├── ff100.f │ ├── ffhelp.f │ ├── ffread.f │ ├── filcor.f │ ├── filswi.f │ ├── find.f │ ├── findc.f │ ├── finder.f │ ├── flbelm.f │ ├── flbema.f │ ├── flbemg.f │ ├── flbmg.f │ ├── flbprt.f │ ├── flbset.f │ ├── flface.f │ ├── flfree.f │ ├── flld.f │ ├── flunam.f │ ├── fmdi.f │ ├── fname.f │ ├── fndgrd.f │ ├── fndiam.f │ ├── fndlvl.f │ ├── fndnxl.f │ ├── fndpar.f │ ├── fndplt.f │ ├── fndpnt.f │ ├── fndset.f │ ├── fnxt.f │ ├── fnxtv.f │ ├── fnxtvc.f │ ├── fnxtvd.f │ ├── forfil.f │ ├── form1.f │ ├── form12.f │ ├── form2.f │ ├── form22.f │ ├── format.f │ ├── formg2.f │ ├── formgg.f │ ├── fornam.f │ ├── fornum.f │ ├── fpont.f │ ├── fqrw.f │ ├── fqrwv.f │ ├── frbk.f │ ├── frbk2.f │ ├── frd2a.f │ ├── frd2b.f │ ├── frd2c.f │ ├── frd2d.f │ ├── frd2e.f │ ├── frd2f.f │ ├── frd2i.f │ ├── fread.f │ ├── frlg.f │ ├── frlga.f │ ├── frlgb.f │ ├── frmax.f │ ├── frmlt.f │ ├── frmlta.f │ ├── frmltd.f │ ├── frmltx.f │ ├── frr1a1.f │ ├── frrd.f │ ├── frrd1c.f │ ├── frrd1d.f │ ├── frrd1f.f │ ├── frrd2.f │ ├── frsw.f │ ├── frsw2.f │ ├── ftube.f │ ├── fvrs1a.f │ ├── fvrs1b.f │ ├── fvrs1c.f │ ├── fvrs1d.f │ ├── fvrs1e.f │ ├── fvrs2a.f │ ├── fvrst1.f │ ├── fvrst2.f │ ├── fwmw.f │ ├── fzy2.f │ ├── gauss.f │ ├── gauss2.f │ ├── geloop.f │ ├── gencos.f │ ├── gend.f │ ├── gendsb.f │ ├── genpar.f │ ├── genvec.f │ ├── getblk.f │ ├── getdef.f │ ├── gfbs.f │ ├── gfscom.f │ ├── gfsdir.f │ ├── gfsh.f │ ├── gfshc.f │ ├── gfsma.f │ ├── gfsmo2.f │ ├── gfsmod.f │ ├── gfsmrg.f │ ├── gfsmt.f │ ├── gfsptn.f │ ├── gfsspc.f │ ├── gfstrn.f │ ├── gfswch.f │ ├── gi.f │ ├── gibstk.f │ ├── giggks.f │ ├── gigtka.f │ ├── gigtkg.f │ ├── ginofl.f │ ├── gipsst.f │ ├── givens.f │ ├── gkad.f │ ├── gkad1a.f │ ├── gkad1c.f │ ├── gkam.f │ ├── gkam1a.f │ ├── gkam1b.f │ ├── gmmatc.f │ ├── gmmatd.f │ ├── gmmats.f │ ├── gmmerg.f │ ├── gmprtn.f │ ├── gnfist.f │ ├── go.f │ ├── gopen.f │ ├── gp1.f │ ├── gp2.f │ ├── gp3.f │ ├── gp3a.f │ ├── gp3b.f │ ├── gp3c.f │ ├── gp3d.f │ ├── gp4.f │ ├── gp4prt.f │ ├── gp4sp.f │ ├── gpcyc.f │ ├── gpfdr.f │ ├── gpstg.f │ ├── gpstgn.f │ ├── gpstgs.f │ ├── gptlbl.f │ ├── gptsym.f │ ├── gpwg.f │ ├── gpwg1a.f │ ├── gpwg1b.f │ ├── gpwg1c.f │ ├── grav.f │ ├── gravl1.f │ ├── gravl2.f │ ├── gravl3.f │ ├── grbvec.f │ ├── gridip.f │ ├── gtmat1.f │ ├── gust.f │ ├── gust1.f │ ├── gust2.f │ ├── gust3.f │ ├── hbdy.f │ ├── hbdyd.f │ ├── hbdys.f │ ├── hccom.f │ ├── hdchk.f │ ├── hdcoef.f │ ├── hdlin.f │ ├── hdplot.f │ ├── hdplt.f │ ├── hdsket.f │ ├── hdsolv.f │ ├── hdstat.f │ ├── hdstus.f │ ├── hdsurf.f │ ├── hdvs1.f │ ├── hdvsr.f │ ├── head.f │ ├── hess1.f │ ├── hess2.f │ ├── hmat.f │ ├── hring.f │ ├── hsbg.f │ ├── iapd.f │ ├── idf1.f │ ├── idf2.f │ ├── idist.f │ ├── idplot.f │ ├── ifb2ar.f │ ├── ifp.f │ ├── ifp1.f │ ├── ifp1b.f │ ├── ifp1c.f │ ├── ifp1d.f │ ├── ifp1e.f │ ├── ifp1f.f │ ├── ifp1g.f │ ├── ifp1h.f │ ├── ifp1pc.f │ ├── ifp1s.f │ ├── ifp1xy.f │ ├── ifp3.f │ ├── ifp3b.f │ ├── ifp4.f │ ├── ifp4b.f │ ├── ifp4c.f │ ├── ifp4e.f │ ├── ifp4f.f │ ├── ifp4g.f │ ├── ifp5.f │ ├── ifp5a.f │ ├── ifpdco.f │ ├── ifpmdc.f │ ├── ifppar.f │ ├── ifppvc.f │ ├── ifs1p.f │ ├── ifs2p.f │ ├── ifs3p.f │ ├── ifs4p.f │ ├── ifs5p.f │ ├── ift.f │ ├── ifte2.f │ ├── ifte4.f │ ├── iftg.f │ ├── ihex.f │ ├── ihexd.f │ ├── ihexs.f │ ├── ihexsd.f │ ├── ihexss.f │ ├── incore.f │ ├── incro.f │ ├── initl.f │ ├── initl2.f │ ├── inptt1.f │ ├── inptt2.f │ ├── inptt3.f │ ├── inptt4.f │ ├── inptt5.f │ ├── input.f │ ├── input4.f │ ├── insert.f │ ├── int2a8.f │ ├── int2al.f │ ├── intert.f │ ├── intfbs.f │ ├── intlst.f │ ├── intprt.f │ ├── intvec.f │ ├── inverd.f │ ├── invers.f │ ├── invert.f │ ├── invfbs.f │ ├── invp1.f │ ├── invp2.f │ ├── invp3.f │ ├── invpwr.f │ ├── invtr.f │ ├── is2d8d.f │ ├── is2d8s.f │ ├── isft.f │ ├── itcode.f │ ├── itmprt.f │ ├── ittype.f │ ├── iunion.f │ ├── jacob2.f │ ├── jacobs.f │ ├── kbar.f │ ├── kcone2.f │ ├── kconed.f │ ├── kcones.f │ ├── kdumx.f │ ├── kelas.f │ ├── kelbow.f │ ├── kflud2.f │ ├── kflud3.f │ ├── kflud4.f │ ├── khrfn2.f │ ├── khrfn3.f │ ├── khrfn5.f │ ├── kompnt.f │ ├── korsz.f │ ├── kpanel.f │ ├── kpltst.f │ ├── kqdmem.f │ ├── kqdplt.f │ ├── krod.f │ ├── krshft.f │ ├── kslot.f │ ├── ksolid.f │ ├── ktetra.f │ ├── ktrapr.f │ ├── ktrbsc.f │ ├── ktriqd.f │ ├── ktrirg.f │ ├── ktrm6d.f │ ├── ktrm6s.f │ ├── ktrmem.f │ ├── ktrpld.f │ ├── ktrpls.f │ ├── ktrplt.f │ ├── ktshld.f │ ├── ktshls.f │ ├── ktube.f │ ├── lamx.f │ ├── line.f │ ├── line10.f │ ├── linein.f │ ├── linel.f │ ├── linkup.f │ ├── loadsu.f │ ├── locpt.f │ ├── lodapp.f │ ├── logfil.f │ ├── loglog.f │ ├── lprops.f │ ├── lsplin.f │ ├── machck.f │ ├── magbdy.f │ ├── magpha.f │ ├── makmcb.f │ ├── mapset.f │ ├── maskn.f │ ├── masstq.f │ ├── matck.f │ ├── matdum.f │ ├── matgen.f │ ├── matgpr.f │ ├── matprn.f │ ├── matprt.f │ ├── matvc2.f │ ├── matvec.f │ ├── matwrt.f │ ├── maxdgr.f │ ├── mbamg.f │ ├── mbbslj.f │ ├── mbcap.f │ ├── mbctr.f │ ├── mbdpdh.f │ ├── mbgae.f │ ├── mbgate.f │ ├── mbgaw.f │ ├── mbgeod.f │ ├── mbmode.f │ ├── mbplot.f │ ├── mbprit.f │ ├── mbreg.f │ ├── mce1.f │ ├── mce1a.f │ ├── mce1b.f │ ├── mce1c.f │ ├── mce1d.f │ ├── mce2.f │ ├── mcone.f │ ├── mdumx.f │ ├── melbow.f │ ├── merge.f │ ├── merge1.f │ ├── merged.f │ ├── mesage.f │ ├── mflud2.f │ ├── mflud3.f │ ├── mflud4.f │ ├── mfree.f │ ├── mindeg.f │ ├── mintrp.f │ ├── mma.f │ ├── mma1.f │ ├── mma101.f │ ├── mma102.f │ ├── mma103.f │ ├── mma104.f │ ├── mma111.f │ ├── mma112.f │ ├── mma113.f │ ├── mma114.f │ ├── mma2.f │ ├── mma201.f │ ├── mma202.f │ ├── mma203.f │ ├── mma204.f │ ├── mma211.f │ ├── mma212.f │ ├── mma213.f │ ├── mma214.f │ ├── mma3.f │ ├── mma301.f │ ├── mma302.f │ ├── mma303.f │ ├── mma304.f │ ├── mma311.f │ ├── mma312.f │ ├── mma313.f │ ├── mma314.f │ ├── mma321.f │ ├── mma322.f │ ├── mma323.f │ ├── mma324.f │ ├── mma4.f │ ├── mma401.f │ ├── mma402.f │ ├── mma403.f │ ├── mma404.f │ ├── mma411.f │ ├── mma412.f │ ├── mma413.f │ ├── mma414.f │ ├── mmarc1.f │ ├── mmarc2.f │ ├── mmarc3.f │ ├── mmarc4.f │ ├── mmarm1.f │ ├── mmarm2.f │ ├── mmarm3.f │ ├── mmarm4.f │ ├── moda.f │ ├── modac1.f │ ├── modac2.f │ ├── modacc.f │ ├── modb.f │ ├── modc.f │ ├── mplprt.f │ ├── mpy3.f │ ├── mpy3a.f │ ├── mpy3b.f │ ├── mpy3c.f │ ├── mpy3dr.f │ ├── mpy3ic.f │ ├── mpy3nu.f │ ├── mpy3oc.f │ ├── mpy3p.f │ ├── mpy4t.f │ ├── mpya3d.f │ ├── mpyad.f │ ├── mpyado.f │ ├── mpydri.f │ ├── mpyl.f │ ├── mpyq.f │ ├── mqdplt.f │ ├── mred1.f │ ├── mred1a.f │ ├── mred1b.f │ ├── mred1c.f │ ├── mred1d.f │ ├── mred1e.f │ ├── mred2.f │ ├── mred2a.f │ ├── mred2b.f │ ├── mred2c.f │ ├── mred2d.f │ ├── mred2e.f │ ├── mred2f.f │ ├── mred2g.f │ ├── mred2h.f │ ├── mred2i.f │ ├── mred2j.f │ ├── mred2l.f │ ├── mred2m.f │ ├── mred2n.f │ ├── mred2o.f │ ├── mred2p.f │ ├── mrge.f │ ├── mring.f │ ├── msgwrt.f │ ├── mslot.f │ ├── msolid.f │ ├── mtimsu.f │ ├── mtmsu1.f │ ├── mtrapr.f │ ├── mtrbsc.f │ ├── mtriqd.f │ ├── mtrirg.f │ ├── mtrplt.f │ ├── mtrxi.f │ ├── mtrxin.f │ ├── mtrxo.f │ ├── mxcid.f │ ├── mxcids.f │ ├── na12a8.f │ ├── na12if.f │ ├── nascar.f │ ├── norm1.f │ ├── norm11.f │ ├── normal.f │ ├── nrlsum.f │ ├── nsinfo.f │ ├── number.f │ ├── odum.f │ ├── odumx.f │ ├── ofcomp.f │ ├── ofp.f │ ├── ofp1.f │ ├── ofp1a.f │ ├── ofp1b.f │ ├── ofp1c.f │ ├── ofpcc1.f │ ├── ofpcc2.f │ ├── ofpcf1.f │ ├── ofpcf2.f │ ├── ofpcs1.f │ ├── ofpcs2.f │ ├── ofpgpw.f │ ├── ofpmis.f │ ├── ofppnt.f │ ├── ofppun.f │ ├── ofprf1.f │ ├── ofprf2.f │ ├── ofprs1.f │ ├── ofprs2.f │ ├── ofpsn1.f │ ├── ofpss1.f │ ├── ofrf2s.f │ ├── ofrs2s.f │ ├── ofsplt.f │ ├── oldel1.f │ ├── oldel2.f │ ├── oldel3.f │ ├── olplot.f │ ├── onetwo.f │ ├── onlins.f │ ├── opt2a.f │ ├── opt2b.f │ ├── opt2c.f │ ├── opt2d.f │ ├── optp1a.f │ ├── optp1b.f │ ├── optp1c.f │ ├── optp1d.f │ ├── optpr1.f │ ├── optpr2.f │ ├── optpx.f │ ├── optpx1.f │ ├── order.f │ ├── ortck.f │ ├── ortho.f │ ├── oscxrf.f │ ├── outmsc.f │ ├── outpak.f │ ├── outpt.f │ ├── outpt1.f │ ├── outpt2.f │ ├── outpt3.f │ ├── outpt4.f │ ├── outpt5.f │ ├── page.f │ ├── page2.f │ ├── pakcol.f │ ├── param.f │ ├── paraml.f │ ├── partn.f │ ├── partn1.f │ ├── partn2.f │ ├── partn3.f │ ├── pcoord.f │ ├── permut.f │ ├── perpec.f │ ├── pexit.f │ ├── phdmia.f │ ├── pidck.f │ ├── piklvl.f │ ├── pkbar.f │ ├── pkqad1.f │ ├── pkqad2.f │ ├── pkqdm.f │ ├── pkqdm1.f │ ├── pkqdms.f │ ├── pkqdpl.f │ ├── pkrod.f │ ├── pktq1.f │ ├── pktq2.f │ ├── pktrbs.f │ ├── pktri1.f │ ├── pktri2.f │ ├── pktrm.f │ ├── pktrm1.f │ ├── pktrms.f │ ├── pktrpl.f │ ├── pktrq2.f │ ├── pktrqd.f │ ├── pla1.f │ ├── pla2.f │ ├── pla3.f │ ├── pla31.f │ ├── pla32.f │ ├── pla4.f │ ├── pla41.f │ ├── pla42.f │ ├── pla4b.f │ ├── plamat.f │ ├── pload.f │ ├── pload1.f │ ├── pload3.f │ ├── pload4.f │ ├── ploapf.f │ ├── plod4d.f │ ├── plod4s.f │ ├── plot.f │ ├── pltmrg.f │ ├── pltopr.f │ ├── pltset.f │ ├── plttra.f │ ├── pnm.f │ ├── polypt.f │ ├── prefix.f │ ├── preloc.f │ ├── premat.f │ ├── presax.f │ ├── pretab.f │ ├── pretrd.f │ ├── pretrs.f │ ├── print.f │ ├── proces.f │ ├── procom.f │ ├── prolat.f │ ├── prompt.f │ ├── prtint.f │ ├── prtmsg.f │ ├── prtprm.f │ ├── psbar.f │ ├── psqad1.f │ ├── psqad2.f │ ├── psqdm.f │ ├── psqdm1.f │ ├── psqpl1.f │ ├── psrod.f │ ├── psta.f │ ├── pstamg.f │ ├── pstpl1.f │ ├── pstq1.f │ ├── pstq2.f │ ├── pstrb1.f │ ├── pstri1.f │ ├── pstri2.f │ ├── pstrm.f │ ├── pstrm1.f │ ├── pstrq2.f │ ├── pthbdy.f │ ├── ptintr.f │ ├── pull.f │ ├── push.f │ ├── q2bcd.f │ ├── q2bcs.f │ ├── q2trmd.f │ ├── q2trms.f │ ├── q4bmgd.f │ ├── q4bmgs.f │ ├── q4gmgs.f │ ├── q4nrms.f │ ├── q4shps.f │ ├── qdmem.f │ ├── qdmm1.f │ ├── qdmm1d.f │ ├── qdmm1s.f │ ├── qdmm1x.f │ ├── qdmm2.f │ ├── qdmm2d.f │ ├── qdmm2s.f │ ├── qdplt.f │ ├── qhbdy.f │ ├── qloadl.f │ ├── qparam.f │ ├── qparmd.f │ ├── qparmr.f │ ├── qriter.f │ ├── qriter1.f │ ├── quad4d.f │ ├── quad4s.f │ ├── qvol.f │ ├── rand1.f │ ├── rand2.f │ ├── rand3.f │ ├── rand5.f │ ├── rand6.f │ ├── rand7.f │ ├── rand8.f │ ├── random.f │ ├── rbmg1.f │ ├── rbmg2.f │ ├── rbmg3.f │ ├── rbmg4.f │ ├── rcard.f │ ├── rcard2.f │ ├── rcova.f │ ├── rcovb.f │ ├── rcovc.f │ ├── rcovds.f │ ├── rcove.f │ ├── rcovem.f │ ├── rcovim.f │ ├── rcovls.f │ ├── rcovms.f │ ├── rcovo.f │ ├── rcovqv.f │ ├── rcovr.f │ ├── rcovr3.f │ ├── rcovsl.f │ ├── rcovss.f │ ├── rcovui.f │ ├── rcovuo.f │ ├── rcovva.f │ ├── rdmodx.f │ ├── re2al.f │ ├── read1.f │ ├── read2.f │ ├── read3.f │ ├── read4.f │ ├── read6.f │ ├── read7.f │ ├── redu.f │ ├── reduce.f │ ├── reig.f │ ├── relabl.f │ ├── remflx.f │ ├── rename.f │ ├── retblk.f │ ├── rforce.f │ ├── rmg.f │ ├── rod.f │ ├── rodd.f │ ├── rods.f │ ├── rombdk.f │ ├── romber.f │ ├── rombsk.f │ ├── rotat.f │ ├── rotate.f │ ├── rotate1.f │ ├── rowdyz.f │ ├── rsetup.f │ ├── rsort.f │ ├── ruler.f │ ├── rzintd.f │ ├── rzints.f │ ├── sadd.f │ ├── sadotb.f │ ├── sanorm.f │ ├── saxb.f │ ├── saxif1.f │ ├── saxif2.f │ ├── sbar1.f │ ├── sbar2.f │ ├── sbspl2.f │ ├── scalar.f │ ├── scaled.f │ ├── scalex.f │ ├── scan.f │ ├── scat.f │ ├── sce1.f │ ├── scheme.f │ ├── scone1.f │ ├── scone2.f │ ├── scone3.f │ ├── scrlm.f │ ├── sd2rhd.f │ ├── sdcin.f │ ├── sdcins.f │ ├── sdcmm.f │ ├── sdcmps.f │ ├── sdcmq.f │ ├── sdcom1.f │ ├── sdcom2.f │ ├── sdcom3.f │ ├── sdcom4.f │ ├── sdcomp.f │ ├── sdcompx.f │ ├── sdcout.f │ ├── sdhtf1.f │ ├── sdhtf2.f │ ├── sdhtff.f │ ├── sdr1.f │ ├── sdr1a.f │ ├── sdr1b.f │ ├── sdr2.f │ ├── sdr2a.f │ ├── sdr2aa.f │ ├── sdr2b.f │ ├── sdr2c.f │ ├── sdr2d.f │ ├── sdr2e.f │ ├── sdr3.f │ ├── sdr3a.f │ ├── sdrchk.f │ ├── sdretd.f │ ├── sdrht.f │ ├── sdumx1.f │ ├── sdumx2.f │ ├── seemat.f │ ├── selas1.f │ ├── selas2.f │ ├── selbo1.f │ ├── selbo2.f │ ├── selcam.f │ ├── semint.f │ ├── seteq.f │ ├── setfnd.f │ ├── setig.f │ ├── setinp.f │ ├── setlvl.f │ ├── setval.f │ ├── sfarea.f │ ├── sfetch.f │ ├── sgen.f │ ├── sgena.f │ ├── sgenb.f │ ├── sgenm.f │ ├── shape.f │ ├── shcsgd.f │ ├── shctsd.f │ ├── shctss.f │ ├── sheard.f │ ├── shears.f │ ├── shfors.f │ ├── shgmgd.f │ ├── shgmgs.f │ ├── shhmgd.f │ ├── shlsts.f │ ├── shpsts.f │ ├── shsetd.f │ ├── shsets.f │ ├── shstns.f │ ├── shstss.f │ ├── shstts.f │ ├── shtrmd.f │ ├── shxtrs.f │ ├── sihex1.f │ ├── sihex2.f │ ├── sinc0s.f │ ├── sinc0s1.f │ ├── sjump.f │ ├── skpfrm.f │ ├── skprec.f │ ├── sma1.f │ ├── sma1a.f │ ├── sma1b.f │ ├── sma2.f │ ├── sma2a.f │ ├── sma2b.f │ ├── sma3.f │ ├── sma3a.f │ ├── sma3b.f │ ├── sma3c.f │ ├── smc2cd.f │ ├── smc2cs.f │ ├── smc2rd.f │ ├── smc2rs.f │ ├── smcccd.f │ ├── smcccs.f │ ├── smccrd.f │ ├── smccrs.f │ ├── smcdmp.f │ ├── smcdmp1.f │ ├── smchlp.f │ ├── smcomp.f │ ├── smcout.f │ ├── smcph1.f │ ├── smcph2.f │ ├── smcrtr.f │ ├── smcspl.f │ ├── smleig.f │ ├── smleig1.f │ ├── smmats.f │ ├── smp1.f │ ├── smp2.f │ ├── smpyad.f │ ├── smsg.f │ ├── snpdf.f │ ├── sofcls.f │ ├── sofi.f │ ├── sofint.f │ ├── sofo.f │ ├── sofopn.f │ ├── sofsiz.f │ ├── softoc.f │ ├── softrl.f │ ├── sofut.f │ ├── solid.f │ ├── solve.f │ ├── solve1.f │ ├── solver.f │ ├── sort.f │ ├── sortdg.f │ ├── sorti.f │ ├── spanl1.f │ ├── spanl2.f │ ├── splt10.f │ ├── sptchk.f │ ├── sqdm11.f │ ├── sqdm12.f │ ├── sqdm21.f │ ├── sqdm22.f │ ├── sqdme1.f │ ├── sqdpl1.f │ ├── sqrtm.f │ ├── squd41.f │ ├── squd42.f │ ├── srod1.f │ ├── srod2.f │ ├── ss2d81.f │ ├── ss2d82.f │ ├── ssg1.f │ ├── ssg1a.f │ ├── ssg2.f │ ├── ssg2a.f │ ├── ssg2b.f │ ├── ssg2c.f │ ├── ssg3.f │ ├── ssg3a.f │ ├── ssg4.f │ ├── ssgetd.f │ ├── ssght.f │ ├── ssght1.f │ ├── ssght2.f │ ├── ssghtp.f │ ├── ssgkhi.f │ ├── ssgslt.f │ ├── sslot1.f │ ├── sslot2.f │ ├── ssold1.f │ ├── ssold2.f │ ├── ssplin.f │ ├── sswtch.f │ ├── stack.f │ ├── step.f │ ├── step2.f │ ├── stord1.f │ ├── stord2.f │ ├── stpaic.f │ ├── stpax1.f │ ├── stpax2.f │ ├── stpax3.f │ ├── stpbg.f │ ├── stpbs0.f │ ├── stpbs1.f │ ├── stpda.f │ ├── stpk.f │ ├── stplot.f │ ├── stpphi.f │ ├── stppt2.f │ ├── stqme2.f │ ├── strap1.f │ ├── strap2.f │ ├── strax1.f │ ├── strax2.f │ ├── strax3.f │ ├── strbs1.f │ ├── stri31.f │ ├── stri32.f │ ├── strir1.f │ ├── strir2.f │ ├── strm61.f │ ├── strm62.f │ ├── strme1.f │ ├── strnam.f │ ├── strp11.f │ ├── strp12.f │ ├── strpl1.f │ ├── strpts.f │ ├── strqd1.f │ ├── strqd2.f │ ├── strscn.f │ ├── strsl1.f │ ├── strsl2.f │ ├── strslv.f │ ├── stube1.f │ ├── sub.f │ ├── sub1.f │ ├── suba.f │ ├── subb.f │ ├── subbb.f │ ├── subc.f │ ├── subcc.f │ ├── subi.f │ ├── subp.f │ ├── subpb.f │ ├── subph1.f │ ├── summ.f │ ├── sumphi.f │ ├── suplt.f │ ├── suread.f │ ├── suwrt.f │ ├── switch.f │ ├── sxloop.f │ ├── symbol.f │ ├── t3bgbs.f │ ├── t3bmgd.f │ ├── t3bmgs.f │ ├── t3gemd.f │ ├── t3gems.f │ ├── t3pl4d.f │ ├── t3pl4s.f │ ├── t3setd.f │ ├── t3sets.f │ ├── ta1.f │ ├── ta1a.f │ ├── ta1b.f │ ├── ta1c.f │ ├── ta1ca.f │ ├── ta1cpd.f │ ├── ta1cps.f │ ├── ta1etd.f │ ├── ta1h.f │ ├── tabfmt.f │ ├── table5.f │ ├── tablev.f │ ├── tabpch.f │ ├── tabprt.f │ ├── tabpt.f │ ├── tapbit.f │ ├── termsd.f │ ├── termss.f │ ├── tetra.f │ ├── tiger.f │ ├── timal3.f │ ├── timeeq.f │ ├── timts1.f │ ├── timts2.f │ ├── timtst.f │ ├── tipe.f │ ├── tis2d8.f │ ├── tker.f │ ├── tktztk.f │ ├── tldrs.f │ ├── tlodm6.f │ ├── tlodsl.f │ ├── tlodt1.f │ ├── tlodt2.f │ ├── tlodt3.f │ ├── tlqd4d.f │ ├── tlqd4s.f │ ├── tltr3d.f │ ├── tltr3s.f │ ├── tmtogo.f │ ├── tmtsio.f │ ├── tmtslp.f │ ├── tmtsot.f │ ├── tordrd.f │ ├── tordrs.f │ ├── totape.f │ ├── tpztem.f │ ├── tquads.f │ ├── trail.f │ ├── traile.f │ ├── tranem.f │ ├── tranp1.f │ ├── transp.f │ ├── trapad.f │ ├── trapax.f │ ├── trbsc.f │ ├── trbscd.f │ ├── trbscs.f │ ├── trd.f │ ├── trd1a.f │ ├── trd1a2.f │ ├── trd1c.f │ ├── trd1c2.f │ ├── trd1d.f │ ├── trd1d2.f │ ├── trd1e.f │ ├── tree.f │ ├── trht.f │ ├── trht1a.f │ ├── trht1b.f │ ├── trht1c.f │ ├── tria3d.f │ ├── tria3s.f │ ├── triaad.f │ ├── triaax.f │ ├── tridi.f │ ├── tridi1.f │ ├── trif.f │ ├── trimem.f │ ├── triqd.f │ ├── trlg.f │ ├── trlga.f │ ├── trlgb.f │ ├── trlgc.f │ ├── trlgd.f │ ├── trmemd.f │ ├── trmems.f │ ├── trnsp.f │ ├── trnsps.f │ ├── trplmd.f │ ├── trplms.f │ ├── trplt.f │ ├── trttem.f │ ├── tshear.f │ ├── tspl1d.f │ ├── tspl1s.f │ ├── tspl2d.f │ ├── tspl2s.f │ ├── tspl3d.f │ ├── tspl3s.f │ ├── ttlpge.f │ ├── ttordr.f │ ├── ttrapr.f │ ├── ttrirg.f │ ├── tubed.f │ ├── tubes.f │ ├── tvor.f │ ├── twistd.f │ ├── twists.f │ ├── type10.f │ ├── typflt.f │ ├── typint.f │ ├── umfzdd.f │ ├── unpscr.f │ ├── upart.f │ ├── upcase.f │ ├── usrmsg.f │ ├── valvec.f │ ├── varian.f │ ├── vdr.f │ ├── vdra.f │ ├── vdrb.f │ ├── vec.f │ ├── vecprt.f │ ├── viscd.f │ ├── viscs.f │ ├── wavey.f │ ├── wilvec.f │ ├── wilvec1.f │ ├── wplt10.f │ ├── wrtmsg.f │ ├── wrtprt.f │ ├── wrttrl.f │ ├── xcei.f │ ├── xchk.f │ ├── xclean.f │ ├── xcsa.f │ ├── xdcode.f │ ├── xdph.f │ ├── xfadj1.f │ ├── xfldef.f │ ├── xflord.f │ ├── xflszd.f │ ├── xgpi.f │ ├── xgpibs.f │ ├── xgpidd.f │ ├── xgpidg.f │ ├── xgpimw.f │ ├── xipfl.f │ ├── xlnkdd.f │ ├── xlnkhd.f │ ├── xmpldd.f │ ├── xosgen.f │ ├── xparam.f │ ├── xpolck.f │ ├── xpunp.f │ ├── xpurge.f │ ├── xrcard.f │ ├── xread.f │ ├── xrecps.f │ ├── xrgdcf.f │ ├── xrgdev.f │ ├── xrgdfm.f │ ├── xrgdtb.f │ ├── xrgdtp.f │ ├── xrgnum.f │ ├── xrgsst.f │ ├── xrgsub.f │ ├── xsave.f │ ├── xscndm.f │ ├── xsem00.f │ ├── xsfa.f │ ├── xsfadd.f │ ├── xsort.f │ ├── xsort2.f │ ├── xsosgn.f │ ├── xtrnsy.f │ ├── xtrny1.f │ ├── xychar.f │ ├── xydump.f │ ├── xyfind.f │ ├── xygraf.f │ ├── xylog.f │ ├── xyout.f │ ├── xyplot.f │ ├── xyprpl.f │ ├── xyprpt.f │ ├── xytics.f │ ├── xytran.f │ ├── yrcard.f │ ├── zeroc.f │ └── zj.f ├── rf/ │ ├── AERO10 │ ├── AERO11 │ ├── AERO9 │ ├── DISP0 │ ├── DISP1 │ ├── DISP10 │ ├── DISP11 │ ├── DISP12 │ ├── DISP13 │ ├── DISP14 │ ├── DISP15 │ ├── DISP16 │ ├── DISP17 │ ├── DISP18 │ ├── DISP19 │ ├── DISP2 │ ├── DISP3 │ ├── DISP4 │ ├── DISP5 │ ├── DISP6 │ ├── DISP7 │ ├── DISP8 │ ├── DISP9 │ ├── HEAT1 │ ├── HEAT3 │ ├── HEAT9 │ └── NASINFO ├── um/ │ ├── BULK.TXT │ ├── CASE.TXT │ ├── DICT.TXT │ ├── DMAP.TXT │ ├── EXEC.TXT │ ├── INTR.TXT │ ├── MSSG.TXT │ ├── PLOT.TXT │ ├── RFMT.TXT │ ├── SUBS.TXT │ ├── UMFL.TXT │ └── nasthelp.f └── utility/ ├── ff.f └── nastplot.f ================================================ FILE CONTENTS ================================================ ================================================ FILE: README.md ================================================ # NASTRAN-95 NASTRAN has been released under the [NASA Open Source Agreement version 1.3](https://github.com/nasa/NASTRAN-95/raw/master/NASA%20Open%20Source%20Agreement-NASTRAN%2095.doc). NASTRAN is the NASA Structural Analysis System, a finite element analysis program (FEA) completed in the early 1970's. It was the first of its kind and opened the door to computer-aided engineering. Subsections of a design can be modeled and then larger groupings of these elements can again be modeled. NASTRAN can handle elastic stability analysis, complex eigenvalues for vibration and dynamic stability analysis, dynamic response for transient and steady state loads, and random excitation, and static response to concentrated and distributed loads, thermal expansion, and enforced deformations. NOTE: There is no technical support available for this software. ================================================ FILE: alt/COSDBCL ================================================ $ COSDBCL.ALT $ $ DMAP ALTER PACKAGE FOR $ DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UNDER $ IMPACK LOADING: COMPUTATIONAL SIMULATION $ FROM PAPER OF THE SAME TITLE BY J. E. GRADY et al $ NASA TECHNICAL MEMORANDUM 100192, 1987, CLEWIS RESEARCH CENTER, $ AND ALSO A SIMILAR PAPER BY R. A. AIELLO AND J. E. GRADY, $ NASA CONFERENCE PUBLICATION 3029, 1989 (17TH NASTRAN USERS'S $ COLLOQUIUM, PP. 187-200) $ $ VAX AND UNIX USER: MAKE SURE YOUR FILE EXTENSION LIMIT IS SET $ TO 420 BEFORE RUNNING THIS DEMO PROBLEM. $ $ ALTER 146 $ 91 COSMIC/NASTRAN RF 9, FOLLOWING LABEL P2 INSERT XYTRAN(2),-1 $ $ PARAML UPV//*TRAILER*/1/V,N,NOCUPV $ COPY TIP1/CLUSI/0 $ COPY TIP1/BUBLI/0 $ PARAM //*SUB*/SHIFT/NOCUPV/ 1 $ LABEL BUBTOP $ FILE BUBLI=SAVE/CLUSI=SAVE $ PARTN BUBLI,,BAS1/DUMMY,,,/7 $ MERGE DUMMY,,,,,TIP1/BUBLJ/7 $ ADD CLUSI,BUBLJ/CLUSJ/ $ SWITCH BUBLJ,BUBLI//-1 $ SWITCH CLUSJ,CLUSI//-1 $ REPT BUBTOP,SHIFT $ PARTN TIP1,,CLUSJ/,MNTRI,,/7 $ PARTN BUBLJ,,CLUSJ/,BOOTI,,/7 $ COPY MNTRI/MNTRJ/0 $ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,,EQEXIN/X1,X2,X3,ECPT,GPCT,,,/ LUSET/NOSIMP/0/NOGENL/GENEL $ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/V,N, LUSET/V,N,LUSETD/V,N,NOTFL/V,N,NODLT/V,N,NOPSDL/V,N,NOFRL/ V,N,NONLFT/V,N,NOTRL/S,N,NOEED/C,N,123/V,N,NOUE $ COND ERROR5,NOEED $ PARAM //*NOP*/V,N,COLNUM=1 $ LABEL RAALOOP $ PARAM //*ADD*/COLNUM/COLNUM/3 $ PARAM //*LE*/V,N,GETOUT/NOCUPV/COLNUM $ COND QUITRAA,GETOUT $ LABEL CORTOP $ PARTN MNTRJ,,BOOTI/DUM11,,,/7 $ MERGE DUM11,,,,,MNTRI/MNTRJ/7 $ REPT CORTOP, 2 $ PARTN UPV,MNTRJ,/,,COLUPV,/1 $ DSMG1 CASECC,GPTT,SIL,EDT,COLUPV,CSTM,MPT,ECPT,GPCT,DIT/ KDGG/DSCOSET $ EQUIV KDGG,KDNN/MPCF2 $ COND LBL2D,MPCF2 $ MCE2 USET,GM,KDGG,,,/KDNN,,, $ LABEL LBL2D $ EQUIV KDNN,KDFF/SINGLE $ COND LBL3D,SINGLE $ SCE1 USET,KDNN,,,/KDFF,KDFS,,,, $ LABEL LBL3D $ EQUIV KDFF,KDAA/OMIT $ COND LBL5D,OMIT $ SMP2 USET,GO,KDFF/KDAA $ LABEL LBL5D $ ADD KDAA,/KDAAM/C,N,(-1.0,0.0)/C,N,(0.0,0.0) $ READ KAA,KDAAM,,,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/C,N,BUCKLING/ S,N,NEIGV/C,N,2 $ COND ERROR4,NEIGV $ PARAML LAMA//*TABLE1*/2/3/V,N,EIGV $ PRTPARM //0/*EIGV* $ $ OFP OEIGS,LAMA,,,,//S,N,CARDNO $ OFP LAMA,,,,,//S,N,CARDNO $ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,BQG/C,N,1/C,N,BKL1 $ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,BQG,PHIG,EST,,,/, OBQG1,OPHIG,OBES1,OBEF1,PPHIG,,/C,N,BKL1 $ $ OFP OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $ COND P3,JUMPPLOT $ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,GPECT, OBES1,,/PLOTX3/V,N,NSIL/V,N,LUSET/V,N,JUMPPLOT/V,N,PLTFLG/ S,N,PFILE $ PRTMSG PLOTX3// $ LABEL P3 $ REPT RAALOOP,1000 $ JUMP QUITRAA $ LABEL ERROR5 $ PRTPARM //C,N,-3/C,N,BUCKLING $ JUMP QUITRAA $ LABEL ERROR4 $ PRTPARM //C,N,-4/C,N,BUCKLING $ LABEL QUITRAA $ JUMP FINIS $ ENDALTER ================================================ FILE: alt/COSDDAM ================================================ $ COSMIC ALTERS FOR DDAM PROBLEMS (COSDDAM) $ ALTER 71 $ INSERT READ $ DIAGONAL MI/MIS/*SQUARE*/-0.5 $ SMPYAD MIS,MI,MIS,,,/MINEW/3 $ $ ALTER 81,86 $ DELETE SDR2,1,SDR2,4 $ $ ALTER 90 $ INSERT PLOT(2),2 $ GENCOS BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/LUSET/S,N,NSCALE $ DIAGONAL MI/MID/*SQUARE*/-1.0 $ MPYAD MGG,PHIG,/MP/0 $ MPYAD MP,DIRCOS,/PMD/1 $ MPYAD MID,PMD,/PF/0 $ DDAMAT PF,PMD/EFFW/C,Y,GG=386.4 $ LAMX, ,LAMA/LAMB/-1 $ GENPART PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $ PARTN LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $ PARAM //*GE*/TEST/C,Y,LMODES/NMODES $ COND DDAM,TEST $ PARTN PF,,RPPF/,PFR,,/1 $ EQUIV PFR,PF $ PARTN EFFW,,RPPF/,EFFWR,,/1 $ EQUIV EFFWR,EFFW $ PARTN MP,CPMP,/,,MPR,/1 $ EQUIV MPR,MP $ PARTN PHIG,CPMP,/,,PHIGR,/1 $ EQUIV PHIGR,PHIG $ LABEL DDAM $ DESVEL EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/ C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/ C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $ DDAMAT PF,MINAC/PVW/1.0 $ DDAMAT PF,MINOW2/PVOW/1.0 $ DDAMPG PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $ DDAMPG MP,PVW/PG/NMODES/NDIR $ CASEGEN CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $ EQUIV CASEDD,CASECC $ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,,/, OQG3,OUGV3,OES3,OEF3,,,/*STATICS*/S,N,NOSORT2=-1/-1 $ SDR3 OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $ NRLSUM OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT=123/ C,Y,SQRSS=0 $ OFP NRLSTR,NRLFOR,,,,//S,N,CARDNO $ COMBUGV UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $ CASEGEN CASECC/CASEEE/1/NDIR/NMODES $ SDR2 CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,,/, ,OUGV5,,,,,/*STATICS*/S,N,NOSORT2/-1 $ OFP OUGV5,,,,,//S,N,CARDNO $ ENDALTER $ ================================================ FILE: alt/COSDFVA ================================================ $ COSMIC ALTERS FOR DIRECT FORCED VIBRATION ANALYSIS (COSDFVA) $ ALTER 3 $ INSERT FILE $ FILE UXVF=APPEND/PDT=APPEND/PD=APPEND $ $ PERFORM INITIAL ERROR CHECKS ON NSEGS AND KMAX. COND ERRORC1,NSEGS $ IF USER HAS NOT SPECIFIED NSEGS. COND ERRORC1,KMAX $ IF USER HAS NOT SPECIFIED KMAX. PARAM //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $ COND ERRORC1,CYCIOERR $ IF USER HAS NOT SPECIFIED CYCIO. PARAM //*DIV*/NSEG2 /V,Y,NSEGS /2 $ NSEG2 = NSEGS/2 PARAM //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $ COND ERRORC1,KMAXERR $ IF KMAX .GT. NSEGS/2 $ SET DEFAULTS FOR PARAMETERS. PARAM //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $ $ CALCULATE OMEGA, 2*OMEGA AND OMEGA**2 FROM RPS. SET DEFAULT RPS. PARAMR //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $ PARAMR //*MPY*/OMEGA2 /2.0 /OMEGA $ PARAMR //*MPY*/OMEGASQR /OMEGA /OMEGA $ $ GENERATE NORPS FLAG IF RPS IS ZERO. PARAMR //*EQ*//V,Y,RPS /0.0 ////NORPS $ $ MAKE SURE COUPLED MASSES HAVE NOT BEEN REQUESTED. PARAM //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $ COND ERRORC2,NOLUMP $ $ ALTER 21,21 $ ADD SLT TO OUTPUT FOR TRLG. DELETE GP3 $ GP3 GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $ $ ALTER 24 $ INSERT TA1,2 $ $ SINCE MULTIPLE CONSTRAINTS ARE NOT ALLOWED EXECUTE GP4 NOW SO THAT $ MORE ERROR CHECKS CAN BE MADE BEFORE ELEMENT GENERATION. $ ADD YS NEEDED FOR PSF RECOVERY IN SSG2. PARAM //*MPY*/NSKIP /0/0 $ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/ S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/ S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/C,Y,AUTOSPC $ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ $ SUPORT BULK DATA IS NOT ALLOWED. PARAM //*NOT*/REACDATA /REACT $ COND ERRORC3,REACDATA $ $ EXECUTE DPD NOW SO CHECKS CAN BE MADE. ADD TRL TO OUTPUT DATA BLOCKS. DPD DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,, TRL,,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ S,N,NOFRL/NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $ $ MUST HAVE EITHER FREQ OR TSTEP BULK DATA. PARAM //*AND*/FTERR /NOFRL /NOTRL $ COND ERRORC5,FTERR $ NO FREQ OR TSTEP BULK DATA. $ ONLY FREQUENCY OR TSTEP IS ALLOWED IN THE CASE CONTROL PARAML CASECC //*TABLE1*/1/14//FREQSET $ PARAML CASECC //*TABLE1*/1/38//TIMESET $ PARAM //*MPY*/FREQTIME /FREQSET /TIMESET $ PARAM //*NOT*/FTERR1 /FREQTIME $ PARAM //*LE*/NOFREQ /FREQSET /0 $ PARAM //*LE*/NOTIME /TIMESET /0 $ COND ERRORC6,FTERR1 $ BOTH FREQ AND TSTEP IN CASE CONTROL DECK. $ EPOINT BULK DATA NOT ALLOWED PARAM //*NOT*/EXTRAPTS /NOUE $ COND ERRORC4,EXTRAPTS $ $ GENERATE DATA FOR CYCT2 MODULE. GPCYC GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $ COND ERRORC1,NOGO $ $ ALTER 34 $ INSERT EMA,1 $ $ PRE-PURGE DATA BLOCKS THAT WILL NOT BE GENERATED PARAM //*OR*/NOBM1 /NOMGG /NORPS $ PURGE B1GG,M1GG /NOBM1 $ PURGE M2GG,M2BASEXG /NOMGG $ $ ALTER 38 $ INSERT EMA(2),1 $ $ GENERATE DATA BLOCKS FRLX, B1GG, M1GG, M2GG AND BASEGX. $ GENERATE PARAMETERS FKMAX AND NOBASEX. FVRSTR1 CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG, PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/ V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/ V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA $ PARAML FRLX //*PRES*////NOFRLX $ COND LBLFRLX,NOFRLX $ EQUIV FRLX,FRL $ LABEL LBLFRLX $ $ ALTER 47 $ INSERT EMA(4),2 $ PARAM //*ADD*/NOBGG /NOBM1 /0 $ RESET NOBGG. $ ALTER 58 $ INSERT GPSTGEN $ $ REDEFINE BGG AND KGG. COND LBL11A,NOBM1 $ PARAMR //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $ PARAMR //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $ PARAMR //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $ ADD BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $ EQUIV BGG1,BGG $ ADD KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $ EQUIV KGG1,KGG $ LABEL LBL11A $ ALTER 59,62 $ GP4 HAS BEEN MOVED-UP. DELETE GP4,-1,GP4,2 $ $ ALTER 87,87 $ DPD HAS BEEN MOVED-UP. DELETE DPD $ $ ALTER 112 $ PARAM AND EQUIV LOGIC DEPENDING ON LGKAD FOR FREQ/TRAN. INSERT GKAD,-3 $ PARAM //*AND*/KDEKA/NOUE/NOK2PP $ COND LGKAD1,LGKAD $ BRANCH IN NOT FREQRESP. $ ALTER 113 $ SEE ALTER 112 COMMENT. INSERT GKAD,-2 $ JUMP LGKAD2 $ LABEL LGKAD1 $ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ LABEL LGKAD2 $ $ ALTER 115,115 $ ADD PARAMETERS GKAD, W3 AND W4 TO GKAD. DELETE GKAD $ GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/ C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/ SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $ $ ALTER 116 $ SEE ALTER 112 COMMENT. INSERT GKAD,1 $ COND LGKAD3,LGKAD $ BRANCH IF NOT FREQRESP. $ ALTER 117 $ SEE ALTER 112 COMMENT. INSERT GKAD,2 $ JUMP LGKAD4 $ LABEL LGKAD3 $ EQUIV B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $ LABEL LGKAD4 $ $ ALTER 118,122 $ DELETE FRRD,-2,VDR $ $ NEW SOLUTION LOGIC $ GENERATE TIME-DEPENDENT LOADS IF TSTEP WAS REQUESTED IN CASE CONTROL. $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST. COND LBLTRL1,NOTIME $ $ LOOP THRU ALL SUBCASES FOR TIME-DEPENDENT LOADS. PARAM //*MPY*/REPEATT /1 /-1 $ PARAM //*ADD*/APPFLG /1 /0 $ INITIALIZE FOR SDR1. LABEL TRLGLOOP $ CASE CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $ PARAM //*MPY*/NCOL /0 /1 $ TRLG CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ ,,PDT1,PD1,,TOL/ NOSET/NCOL $ SDR1 TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $ SDR1 TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $ PARAM //*ADD*/APPFLG /APPFLG /1 $ APPFLG=APPFLG+1. COND TRLGDONE,REPEATT $ REPT TRLGLOOP,100 $ JUMP ERROR3 $ LABEL TRLGDONE $ FVRSTR2 TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/ V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/ S,N,NORO2 $ EQUIV FRLZ,FRL // FOLZ,FOL $ JUMP LBLFRL2 $ LABEL LBLTRL1 $ $ GENERATE FREQUENCY-DEPENDENT LOADS IF FREQUENCY WAS SELECTED IN CC. FRLG CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM / *DIRECT*/FREQY/*FREQ* $ COND LBLFRLX1,NOFRLX $ ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED. MPYAD PPF,PDZERO, / PPFX /0 $ EQUIV PPFX,PPF $ LABEL LBLFRLX1 $ $ FORM NEW LOADS. COND LBLFRL1,NOBASEX $ MPYAD M2GG,BASEXG, / M2BASEXG /0 $ ADD PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $ EQUIV PPF1,PPF $ COND LBLBASE1,NOSET $ SSG2 USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $ EQUIV PSF1,PSF // PDF1,PDF $ LABEL LBLBASE1 $ LABEL LBLFRL1 $ EQUIV PPF,PDF/NOSET $ $ LOADS ARE FREQUENCY-DEPENDENT $ PERFORM CYCLIC TRANSFORMATION ON LOADS IF CYCIO=+1. PARAML PDF //*TRAILER*/1 /PDFCOLS $ $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=-1. PARAM //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX EQUIV PDF,PXF/CYCIO $ COND LBLPDONE,CYCIO $ $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=1. PARAM //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS CYCT1 PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1 /V,Y,KMAX=-1/ NLOAD /S,N,NOGO $ COND ERRORC1,NOGO $ JUMP LBLPDONE $ LABEL LBLFRL2 $ $ LOADS ARE TIME-DEPENDENT PARAM //*NOT*/NOTCYCIO /V,Y,CYCIO $ $ BRANCH DEPENDING ON VALUE OF CYCIO COND LBLTRL2,NOTCYCIO $ $ CYCIO=-1 EQUIV PD,PDTRZ1/NORO1 $ COND LBLRO1A,NORO1 $ MPYAD PD,REORDER1, / PDTRZ1 / 0 $ LABEL LBLRO1A $ CYCT1 PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/ S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXTRZ1,PXFZ1/NORO2 $ COND LBLRO2A,NORO2 $ MPYAD PXTRZ1,REORDER2, / PXFZ1 /0 $ LABEL LBLRO2A $ EQUIV PXFZ1,PXF1 $ JUMP LBLTRL3 $ LABEL LBLTRL2 $ $ CYCIO = +1 MPYAD PD,REORDER1, / PDTRZ2 / 0 $ CYCT1 PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/ V,Y,NSEGS/S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXTRZ2,PXTR2/NORO2 $ COND LBLRO2B,NORO2 $ MPYAD PXTRZ2,REORDER2, / PXTR2 /0 $ LABEL LBLRO2B $ CYCT1 PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/ FLMAX/S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXFZ2,PXF1 $ LABEL LBLTRL3 $ $ TIME-DEPENDENT LOADS ARE REAL. MAKE LOADS COMPLEX TO CORRESPOND $ TO FREQUENCY DEPENDENT LOADS. ALSO SDR2 EXPECTS LOADS TO BE COMPLEX $ IN FREQRESP TYPE PROBLEMS. COPY PXF1 / PXF2 $ CONVERT REAL PXF1 TO COMPLEX PXF. ADD PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $ $ DEFINE NLOAD FOR CYCT2. PARAM //*ADD*/NLOAD /FLMAX /0 $ NLOAD = FLMAX LABEL LBLPDONE $ PARAM //*ADD*/KINDEX /V,Y,KMIN=0 /0 $ INTITIALIZE KINDEX. $ $ INITIALIZE UXVF IF KMIN IS NOT ZERO. $ PARAM //*ADD*/KMINL /V,Y,KMIN /-1 $ COND NOKMINL,KMINL $ PARAM //*ADD*/KMINV /0 /0 $ LABEL KMINLOOP $ CYCT2 CYCDD,,,PXF,, /,,PKFZ,, /*FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/ S,N,NOGO $ COND ERRORC1,NOGO $ ADD PKFZ, / UKVFZ / (0.0,0.0) $ PRTPARM //0/*KINDEX* $ CYCT2 CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/ KMINV/CYCSEQ/NLOAD/S,N,NOGO $ PRTPARM //0/*KINDEX* $ COND ERRORC1,NOGO $ PARAM //*ADD*/KMINV /KMINV /1 $ REPT KMINLOOP,KMINL $ LABEL NOKMINL $ LABEL TOPCYC $ LOOP ON KINDEX COND NOKPRT,NOKPRT $ PRTPARM //0 /*KINDEX* $ LABEL NOKPRT $ CYCT2 CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/KINDEX/ CYCSEQ=-1/NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ CYCT2 CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/KINDEX/ CYCSEQ/NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ $ SOLUTION FRRD2 KKKF,BKKF,MKKF,,PKF,FOL / UKVF /0.0/0.0/-1.0 $ CYCT2 CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KINDEX/CYCSEQ/ NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ PARAM //*ADD*/KINDEX/KINDEX/1 $ KINDEX = KINDEX + 1 PARAM //*SUB*/DONE / V,Y,KMAX / KINDEX $ COND LCYC2,DONE $ IF KINDEX .GT. KMAX THEN EXIT REPT TOPCYC,100 $ JUMP ERROR3 $ LABEL LCYC2 $ EQUIV UXVF,UDVF / CYCIO $ COND LCYC3,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. CYCT1 UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ LABEL LCYC3 $ COND LBLTRL4,NOTIME $ EQUIV PXF,PDF2 / CYCIO $ COND LCYC4,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. CYCT1 PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ LABEL LCYC4 $ $ IF LOADS WERE TIME-DEPENDENT THEN RECOVER PPF AND PSF FROM PXF. SDR1 USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $ SSG2 USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $ EQUIV PPFZ,PPF // PSFZ,PSF $ LABEL LBLTRL4 $ VDR CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $ $ ALTER 138,138 $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST. DELETE SDR2 $ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ $ ALTER 160 $ ADD LABEL FOR ERROR3. INSERT PLOT(2),4 $ LABEL ERROR3 $ $ ALTER 163,166 $ REMOVE ERROR1 AND ERROR2. DELETE PLOT(2),7,PLOT(2),10 $ $ ALTER 168 $ FORCED VIBRATION ERRORS INSERT END,-3 $ LABEL ERRORC1 $ CHECK NSEGS, KMAX AND OTHER CYCLIC DATA. PRTPARM //-5 /*CYCSTATICS* $ LABEL ERRORC2 $ COUPLED MASS NOT ALLOWED. PRTPARM //0 /C,Y,COUPMASS $ JUMP FINIS $ LABEL ERRORC3 $ SUPORT BULK DATA NOT ALLOWED. PRTPARM //-6 /*CYCSTATICS* $ LABEL ERRORC4 $ EPOINT BULK DATA NOT ALLOWED. PRTPARM //0 /*NOUE* $ JUMP FINIS $ LABEL ERRORC5 $ NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK. PRTPARM //0 /*NOFRL* $ PRTPARM //0 /*NOTRL* $ JUMP FINIS $ LABEL ERRORC6 $ BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL. PRTPARM //0 /*NOFREQ* $ PRTPARM //0 /*NOTIME* $ ENDALTER $ ================================================ FILE: alt/COSHYD1 ================================================ $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - DIRECT FORMULATION (COSHYD1) $ ALTER 1,1 $ COSMIC/NASTRAN RF 3. REPLACING BEGIN DELETE BEGIN $ XDMAP GO,ERR=2 $ BEGIN HYDROELASTIC ANALYSIS - DIRECT FORMULATION $ $ ALTER 3 $ AFTER PRECHK/FILE INSERT FILE $ COMPOFF NEWM,NEWMODE $ $ ALTER 46 $ AFTER OFP/COND/PURGE INSERT GP4,3 $ FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ VEC USETF/PV1/*G*/*X*/*Y* $ PARTN KGG,PV1,/KXX,,,KYY $ PARTN MGG,PV1,/MXX,,, $ PARTN RG,PV1,/RX,,,/1 $ EQUIV RX,RG $ PARTN AF,PV1,/,,AXY,AYY $ COND DIRECT1,NOGRAV $ PARTN DKGG,PV1,/DKXX,,,DKYY $ COND DIRECT1,NOFREE $ VEC USETF/PV2/*Y*/*FR*/*COMP* $ PARTN AYY,,PV2/AFRY,,,/0 $ PARTN DKYY,PV2,/DKFRFR,,, $ LABEL DIRECT1 $ COMPOFF NOSTRUC,OLDSTR $ COMPON 2,DIFSTIF $ PARAMR //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $ ADD KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $ COMPOFF 1,DIFSTIF $ EQUIV KXX,KGG $ EQUIV MXX,MGG $ $ ALTER 49,50 $ REPLACING MCE1, MCE2 DELETE MCE1,MCE2 $ MCE1 USETS,RG/GM $ MCE2 USETS,GM,KGG,MGG,,/KNN,MNN,, $ $ ALTER 54,54 $ REPLACING SCE1 DELETE SCE1 $ SCE1 USETS,KNN,MNN,,/KFF,KFS,,MFF,, $ $ ALTER 59,60 $ REPLACING SMP1, SMP2 DELETE SMP1,SMP2 $ SMP1 USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $ SMP2 USETS,GO,MFF/MAA $ $ ALTER 61 $ ALTER LABEL LBL5 INSERT SMP2,1 $ LABEL NOSTRUC $ PURGE DKAA/NOGRAV $ COND DIRECT4,NOGRAV $ EQUIV DKXX,DKNN/MPCF1 $ COND DIRECT2,MPCF2 $ MCE2 USETS,GM,DKXX,,,/DKNN,,, $ LABEL DIRECT2 $ EQUIV DKNN,DKFF/SINGLE $ COND DIRECT3,SINGLE $ SCE1 USETS,DKNN,,,/DKFF,,,,, $ LABEL DIRECT3 $ EQUIV DKFF,DKAA/OMIT $ COND DIRECT4,OMIT $ SMP2 USETS,GO,DKFF/DKAA $ LABEL DIRECT4 $ GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,,,/KMAT, MMAT,GIA,,HC/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=-1 $ EQUIV KMAT,KAA//MMAT,MAA $ $ ALTER 63,63 $ REPLACING RBMG1 DELETE RBMG1 $ RBMG1 USETF,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ $ ALTER 67 $ AFTER LABEL LBL6 INSERT DPD,-1 $ LABEL NEWM $ $ ALTER 68,68 $ REPLACING DPD DELETE DPD $ DPD DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ $ ALTER 71,71 $ REPLACING READ DELETE READ $ READ KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ $ ALTER 75,75 $ REPLACING SDR1 DELETE SDR1 $ COND NOCOMP,COMPTYP $ MPYAD HC,PHIA,/PHIAC/0/1/0 $ EQUIV PHIAC,PHIA $ LABEL NOCOMP $ MPYAD GIA,PHIA,/PHII/0/1/0 $ EQUIV PHII,PHIY/NOFREE $ COND DIRECT5,NOFREE $ VEC USETF/PV3/*A*/*COMP*/*FR* $ PARTN PHIA,,PV3/PHIAB,PHIFR,,/0 $ EQUIV PHIAB,PHIA $ MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ LABEL DIRECT5 $ SDR1 USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $ MERGE PHIX,PHIY,,,,PV1/PHIG/0 $ MERGE QX,,,,,PV1/QG/0 $ $ ALTER 77,77 $ REPLACING EQMCK DELETE EQMCK $ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ ENDALTER $ ================================================ FILE: alt/COSHYD2 ================================================ $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - MODAL FORMULATION (COSHYD2) $ ALTER 1,1 $ COSMIC/NASTRAN RF 3. REPLACING BEGIN DELETE BEGIN $ XDMAP GO,ERR=2 $ BEGIN HYDROELASTIC ANALYSIS - MODAL FORMULATION $ ALTER 3 $ AFTER PRECHK/FILE INSERT FILE $ COMPOFF NEW1,NEWMODE $ $ ALTER 46 $ AFTER OFP/COND/PURGE INSERT GP4,3 $ FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ VEC USETF/PV1/*G*/*X*/*Y* $ PARTN KGG,PV1,/KXX,,,KYY $ PARTN MGG,PV1,/MXX,,, $ PARTN RG,PV1,/RX,,,/1 $ EQUIV RX,RG $ PARTN AF,PV1,/,,AXY,AYY $ COND MODAL1,NOGRAV $ PARTN DKGG,PV1,/DKXX,,,DKYY $ COND MODAL1,NOFREE $ VEC USETF/PV2/*Y*/*FR*/*COMP* $ PARTN AYY,,PV2/AFRY,,,/0 $ PARTN DKYY,PV2,/DKFRFR,,, $ LABEL MODAL1 $ LABEL NEW1 $ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ COND ERROR2,NOEED $ COMPOFF NEW2,NEWMODE $ PARAM //*MPY*/CARDNO/0/0 $ COMPOFF NOSTRUC,OLDSTR $ COMPON 2,DIFSTIF $ PARAMR //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $ ADD KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $ COMPOFF 1,DIFSTIF $ EQUIV KXX,KGG $ EQUIV MXX,MGG $ $ ALTER 49,50 $ REPLACING MCE1, MCE2 DELETE MCE1,MCE2 $ MCE1 USETS,RG/GM $ MCE2 USETS,GM,KGG,MGG,,/KNN,MNN,, $ $ ALTER 54,54 $ REPLACING SCE1 DELETE SCE1 $ SCE1 USETS,KNN,MNN,,/KFF,KFS,,MFF,, $ $ ALTER 59,60 $ REPLACING SMP1, SMP2 DELETE SMP1,SMP2 $ SMP1 USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $ SMP2 USETS,GO,MFF/MAA $ $ ALTER 63,63 $ REPLACING RBMG1 DELETE RBMG1 $ RBMG1 USETS,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ $ ALTER 68,69 $ REPLACING DPD, COND DELETE DPD,DPD,1 $ CASE CASECC,/CASE1/*REIGEN*/S,N,REPT/S,N,LOLP $ $ ALTER 71,71 $ REPLACING READ DELETE READ $ READ KAA,MAA,MR,DM,EED,USETS,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ $ ALTER 75,77 $ REPLACING SDR1, COND, EQMCK DELETE SDR1,EQMCK $ SDR1 USETS,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ COND NOMPCF,GRDEQ $ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ $ ALTER 80,80 $ REPLACING SDR2 DELETE SDR2 $ MERGE PHIG,,,,,PV1/PHIGS/0 $ MERGE QG,,,,,PV1/QGS/0 $ SDR2 CASE1,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QGS,PHIGS,EST,,,/, OQGS,OPHIGS,,OEFS,PPHIGS,,/*REIG* $ OFP OPHIGS,OQGS,OEFS,,,//S,N,CARDNO $ LABEL NOSTRUC $ PURGE DKAA/NOGRAV $ COND MODAL4,NOGRAV $ EQUIV DKXX,DKNN/MPCF1 $ COND MODAL2,MPCF2 $ MCE2 USETS,GM,DKXX,,,/DKNN,,, $ LABEL MODAL2 $ EQUIV DKNN,DKFF/SINGLE $ COND MODAL3,SINGLE $ SCE1 USETS,DKNN,,,/DKFF,,,,, $ LABEL MODAL3 $ EQUIV DKFF,DKAA/OMIT $ COND MODAL4,OMIT $ SMP2 USETS,GO,DKFF/DKAA $ LABEL MODAL4 $ GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,,,,,,USETF,PHIA,PHIG,LAMA/KMAT,MMAT, GIH,PV4,/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=1/ S,Y,LMODES $ JUMP OLD2 $ LABEL NEW2 $ PARAM //*MPY*/REPT/1/1 $ LABEL OLD2 $ CASE CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $ PARAM //*MPY*/NEIGV/1/-1 $ READ KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/ S,N,NEIGV $ OFP LAMAT,OEIGH,,,,//S,N,CARDNO $ COND FINIS,NEIGV $ MPYAD GIH,PHIH,/PHII/0/1/0 $ EQUIV PHIH,PHIZ/NOFREE $ EQUIV PHII,PHIY/NOFREE $ COND MODAL5,NOFREE $ PARTN PHIH,,PV4/PHIZ,PHIFR,,/0 $ MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ LABEL MODAL5 $ COND ALLMODES,LMODES TRAILER PHIG//*STORE*/1/V,Y,LMODES $ TRAILER QG//*STORE*/1/V,Y,LMODES $ LABEL ALLMODES $ MPYAD PHIG,PHIZ,/PHIX/0/1/0 $ MPYAD QG,PHIZ,/QX/0/1/0 $ MERGE PHIX,PHIY,,,,PV1/PHIGT/0 $ MERGE QX,,,,,PV1/QGT/0 $ SDR2 CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $ ENDALTER $ ================================================ FILE: alt/COSMFVA ================================================ $ COSMIC ALTERS FOR MODAL FORCED VIBRATION ANALYSIS (COSMFVA) $ ALTER 3 $ INSERT FILE $ FILE UXVF=APPEND/PDT=APPEND/PD=APPEND $ $ PERFORM INITIAL ERROR CHECKS ON NSEGS, KMAX, KMIN AND KINDEX. COND ERRORC1,NSEGS $ IF USER HAS NOT SPECIFIED NSEGS. COND ERRORC1,KMAX $ IF USER HAS NOT SPECIFIED KMAX. COND ERRORC1,KMIN $ IF USER HAS SPECIFIED NEGATIVE KMIN. PARAM //*NE*/KTEST/V,Y,KMAX/V,Y,KMIN=0 $ COND LBL1KIND,KTEST $ $ KMIN = KMAX PARAM //*ADD*/KINDEX/V,Y,KMAX/0 $ SET KINDEX = KMAX (= KMIN) JUMP LBL2KIND $ LABEL LBL1KIND $ KMIN .NE. KMAX COND ERRORC1,KINDEX $ IF USER HAS NOT SPECIFIED KINDEX. PARAM //*LT*/KTEST/V,Y,KINDEX/V,Y,KMIN $ COND ERRORC1,KTEST $ PARAM //*GT*/KTEST/V,Y,KINDEX/V,Y,KMAX $ COND ERRORC1,KTEST $ LABEL LBL2KIND $ PARAM //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $ COND ERRORC1,CYCIOERR $ IF USER HAS NOT SPECIFIED CYCIO. PARAM //*DIV*/NSEG2 /V,Y,NSEGS /2 $ NSEG2 = NSEGS/2 PARAM //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $ COND ERRORC1,KMAXERR $ IF KMAX .GT. NSEGS/2 $ CHECK FOR KINDEX = 0 PARAM //*EQ*/KTEST/V,Y,KINDEX/0 $ COND LBL3KIND,KTEST $ $ CHECK FOR KINDEX = NSEGS/2 (NSEGS EVEN ONLY) PARAM //*ADD*/NSEGS1/V,Y,NSEGS/1 $ PARAM //*DIV*/NSEG21/NSEGS1/2 $ PARAM //*EQ*/KEVEN/NSEG21/NSEG2 $ PARAM //*EQ*/KNSEG2/NSEG2/V,Y,KINDEX $ PARAM //*EQ*/KTEST/KNSEG2/KEVEN $ COND LBL3KIND,KTEST $ $ KINDEX IS .NE.0 AND .NE. NSEGS/2 (NSEGS EVEN ONLY) PARAM //*ADD*/KTEST/1/0 $ LABEL LBL3KIND $ PARAM //*GT*/KFLAG/KTEST/0 $ $ SET DEFAULTS FOR PARAMETERS. PARAM //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $ $ CALCULATE OMEGA, 2*OMEGA AND OMEGA**2 FROM RPS. SET DEFAULT RPS. PARAMR //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $ PARAMR //*MPY*/OMEGA2 /2.0 /OMEGA $ PARAMR //*MPY*/OMEGASQR /OMEGA /OMEGA $ $ GENERATE NORPS FLAG IF RPS IS ZERO. PARAMR //*EQ*//V,Y,RPS /0.0 ////NORPS $ $ MAKE SURE COUPLED MASSES HAVE NOT BEEN REQUESTED. PARAM //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $ COND ERRORC2,NOLUMP $ $ ALTER 21,21 $ ADD SLT TO OUTPUT FOR TRLG. DELETE GP3 $ GP3 GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $ $ ALTER 24 $ INSERT TA1,2 $ $ SINCE MULTIPLE CONSTRAINTS ARE NOT ALLOWED EXECUTE GP4 NOW SO THAT $ MORE ERROR CHECKS CAN BE MADE BEFORE ELEMENT GENERATION. $ ADD YS NEEDED FOR PSF RECOVERY IN SSG2. PARAM //*MPY*/NSKIP /0/0 $ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/ S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/ S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/S,Y,AUTOSPC $ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ $ SUPORT BULK DATA IS NOT ALLOWED. PARAM //*NOT*/REACDATA /REACT $ COND ERRORC3,REACDATA $ $ EXECUTE DPD NOW SO CHECKS CAN BE MADE. ADD TRL TO OUTPUT DATA BLOCKS. DPD DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,, TRL,EED,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ S,N,NOFRL/NONLFT/S,N,NOTRL/S,N,NOEED//S,N,NOUE $ $ CHECK FOR EIGENVALUE EXTRACTION DATA COND ERRORC7,NOEED $ $ MUST HAVE EITHER FREQ OR TSTEP BULK DATA. PARAM //*AND*/FTERR /NOFRL /NOTRL $ COND ERRORC5,FTERR $ NO FREQ OR TSTEP BULK DATA. $ ONLY FREQUENCY OR TSTEP IS ALLOWED IN THE CASE CONTROL PARAML CASECC //*TABLE1*/1/14//FREQSET $ PARAML CASECC //*TABLE1*/1/38//TIMESET $ PARAM //*MPY*/FREQTIME /FREQSET /TIMESET $ PARAM //*NOT*/FTERR1 /FREQTIME $ PARAM //*LE*/NOFREQ /FREQSET /0 $ PARAM //*LE*/NOTIME /TIMESET /0 $ COND ERRORC6,FTERR1 $ BOTH FREQ AND TSTEP IN CASE CONTROL DECK. $ EPOINT BULK DATA NOT ALLOWED PARAM //*NOT*/EXTRAPTS /NOUE $ COND ERRORC4,EXTRAPTS $ $ GENERATE DATA FOR CYCT2 MODULE. GPCYC GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $ COND ERRORC1,NOGO $ $ ALTER 29 $ INSERT EMG,-1 $ PARAM //*NOP*/V,Y,KGGIN=-1 $ COND JMPKGGIN,KGGIN $ PARAM //*ADD*/NOKGGX/-1/0 $ INPUTT1 /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $ EQUIV KTOTAL,KGGX $ LABEL JMPKGGIN $ $ ALTER 34 $ INSERT EMA,1 $ $ PRE-PURGE DATA BLOCKS THAT WILL NOT BE GENERATED PARAM //*OR*/NOBM1 /NOMGG /NORPS $ PURGE B1GG,M1GG /NOBM1 $ PURGE M2GG,M2BASEXG /NOMGG $ $ ALTER 38 $ INSERT EMA(2),1 $ $ GENERATE DATA BLOCKS FRLX, B1GG, M1GG, M2GG AND BASEGX. $ GENERATE PARAMETERS FKMAX AND NOBASEX. FVRSTR1 CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG, PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/ V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/ V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA $ PARAML FRLX //*PRES*////NOFRLX $ COND LBLFRLX,NOFRLX $ EQUIV FRLX,FRL $ LABEL LBLFRLX $ $ ALTER 47 $ INSERT EMA(4),2 $ PARAM //*ADD*/NOBGG /NOBM1 /0 $ RESET NOBGG. $ ALTER 58 $ INSERT GPSTGEN $ $ REDEFINE BGG AND KGG. COND LBL11A,NOBM1 $ PARAMR //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $ PARAMR //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $ PARAMR //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $ ADD BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $ EQUIV BGG1,BGG $ ADD KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $ EQUIV KGG1,KGG $ LABEL LBL11A $ ALTER 59,62 $ GP4 HAS BEEN MOVED-UP. DELETE GP4,-1,GP4,2 $ $ ALTER 87,87 $ DPD HAS BEEN MOVED-UP. DELETE DPD $ $ ALTER 112 $ PARAM AND EQUIV LOGIC DEPENDING ON LGKAD FOR FREQ/TRAN. INSERT GKAD,-3 $ PARAM //*AND*/KDEKA/NOUE/NOK2PP $ COND LGKAD1,LGKAD $ BRANCH IN NOT FREQRESP. $ ALTER 113 $ SEE ALTER 112 COMMENT. INSERT GKAD,-2 $ JUMP LGKAD2 $ LABEL LGKAD1 $ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ LABEL LGKAD2 $ $ ALTER 115,115 $ DELETE GKAD $ $ ADD PARAMETERS GKAD, W3 AND W4 TO GKAD. GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/ C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/ SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $ $ ALTER 116 $ SEE ALTER 112 COMMENT. INSERT GKAD,1 $ COND LGKAD3,LGKAD $ BRANCH IF NOT FREQRESP. $ ALTER 117 $ SEE ALTER 112 COMMENT. INSERT GKAD,2 $ JUMP LGKAD4 $ LABEL LGKAD3 $ EQUIV B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $ LABEL LGKAD4 $ $ ALTER 118,122 $ DELETE FRRD,-2,VDR $ $ NEW SOLUTION LOGIC $ GENERATE TIME-DEPENDENT LOADS IF TSTEP WAS REQUESTED IN CASE CONTROL. $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST. COND LBLTRL1,NOTIME $ $ LOOP THRU ALL SUBCASES FOR TIME-DEPENDENT LOADS. PARAM //*MPY*/REPEATT /1 /-1 $ PARAM //*ADD*/APPFLG /1 /0 $ INITIALIZE FOR SDR1. LABEL TRLGLOOP $ CASE CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $ PARAM //*MPY*/NCOL /0 /1 $ TRLG CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ ,,PDT1,PD1,,TOL/ NOSET/NCOL $ SDR1 TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $ SDR1 TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $ PARAM //*ADD*/APPFLG /APPFLG /1 $ APPFLG=APPFLG+1. COND TRLGDONE,REPEATT $ REPT TRLGLOOP,100 $ JUMP ERROR3 $ LABEL TRLGDONE $ FVRSTR2 TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/ V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/ S,N,NORO2 $ EQUIV FRLZ,FRL // FOLZ,FOL $ JUMP LBLFRL2 $ LABEL LBLTRL1 $ $ GENERATE FREQUENCY-DEPENDENT LOADS IF FREQUENCY WAS SELECTED IN CC. FRLG CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM / *DIRECT*/FREQY/*FREQ* $ COND LBLFRLX1,NOFRLX $ ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED. MPYAD PPF,PDZERO, / PPFX /0 $ EQUIV PPFX,PPF $ LABEL LBLFRLX1 $ $ FORM NEW LOADS. COND LBLFRL1,NOBASEX $ MPYAD M2GG,BASEXG, / M2BASEXG /0 $ ADD PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $ EQUIV PPF1,PPF $ COND LBLBASE1,NOSET $ SSG2 USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $ EQUIV PSF1,PSF // PDF1,PDF $ LABEL LBLBASE1 $ LABEL LBLFRL1 $ EQUIV PPF,PDF/NOSET $ $ LOADS ARE FREQUENCY-DEPENDENT $ PERFORM CYCLIC TRANSFORMATION ON LOADS IF CYCIO=+1. PARAML PDF //*TRAILER*/1 /PDFCOLS $ $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=-1. PARAM //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX EQUIV PDF,PXF/CYCIO $ COND LBLPDONE,CYCIO $ $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=1. PARAM //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS CYCT1 PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1/V,Y,KMAX=-1/ NLOAD /S,N,NOGO $ COND ERRORC1,NOGO $ JUMP LBLPDONE $ LABEL LBLFRL2 $ $ LOADS ARE TIME-DEPENDENT PARAM //*NOT*/NOTCYCIO /V,Y,CYCIO $ $ BRANCH DEPENDING ON VALUE OF CYCIO COND LBLTRL2,NOTCYCIO $ $ CYCIO=-1 EQUIV PD,PDTRZ1/NORO1 $ COND LBLRO1A,NORO1 $ MPYAD PD,REORDER1, / PDTRZ1 / 0 $ LABEL LBLRO1A $ CYCT1 PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/ S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXTRZ1,PXFZ1/NORO2 $ COND LBLRO2A,NORO2 $ MPYAD PXTRZ1,REORDER2, / PXFZ1 /0 $ LABEL LBLRO2A $ EQUIV PXFZ1,PXF1 $ JUMP LBLTRL3 $ LABEL LBLTRL2 $ $ CYCIO = +1 MPYAD PD,REORDER1, / PDTRZ2 / 0 $ CYCT1 PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/ V,Y,NSEGS/S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXTRZ2,PXTR2/NORO2 $ COND LBLRO2B,NORO2 $ MPYAD PXTRZ2,REORDER2, / PXTR2 /0 $ LABEL LBLRO2B $ CYCT1 PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/FLMAX/ S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXFZ2,PXF1 $ LABEL LBLTRL3 $ $ TIME-DEPENDENT LOADS ARE REAL. MAKE LOADS COMPLEX TO CORRESPOND $ TO FREQUENCY DEPENDENT LOADS. ALSO SDR2 EXPECTS LOADS TO BE COMPLEX $ IN FREQRESP TYPE PROBLEMS. COPY PXF1 / PXF2 $ CONVERT REAL PXF1 TO COMPLEX PXF. ADD PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $ $ DEFINE NLOAD FOR CYCT2. PARAM //*ADD*/NLOAD /FLMAX /0 $ NLOAD = FLMAX LABEL LBLPDONE $ $ $ INITIALIZE UXVF IF KMIN IS NOT ZERO. $ PARAM //*ADD*/KMINL /V,Y,KINDEX=-1/-1 $ COND NOKMINL,KMINL $ PARAM //*ADD*/KMINV /0 /0 $ LABEL KMINLOOP $ CYCT2 CYCDD,,,PXF,, /,,PKFZ,, / *FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/ S,N,NOGO $ COND ERRORC1,NOGO $ ADD PKFZ, / UKVFZ / (0.0,0.0) $ PRTPARM //0/*KINDEX* $ CYCT2 CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/ S,N,NOGO $ PRTPARM //0/*KINDEX* $ COND ERRORC1,NOGO $ PARAM //*ADD*/KMINV /KMINV /1 $ REPT KMINLOOP,KMINL $ LABEL NOKMINL $ COND NOKPRT,NOKPRT $ PRTPARM //0/*KINDEX* $ LABEL NOKPRT $ CYCT2 CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/V,Y,KINDEX/ CYCSEQ/NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ CYCT2 CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/V,Y,KINDEX/ CYCSEQ/NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ CYCT2 CYCDD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS/V,Y,KINDEX/ CYCSEQ=-1/1/S,N,NOGO $ COND ERRORC1,NOGO $ READ KKK,MKK,,,EED,,CASECC/LAMK,PHIK,MIK,OEIGS/*MODES*/S,N,NEIGV $ OFP OEIGS,,,,,//S,N,CARDNO $ COND FINIS,NEIGV $ OFP LAMK,,,,,//S,N,CARDNO $ COND NOPLOT,JUMPPLOT $ CYCT2 CYCDD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,KINDEX/ CYCSEQ/1/S,N,NOGO $ COND ERRORC1,NOGO $ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,/ ,OQG1,OPHIG,OES1,OEF1,PPHIG,,/*REIG* $ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,,,/ PLOTXX/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ PRTMSG PLOTXX// $ LABEL NOPLOT $ GKAM USETD,PHIK,MIK,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MDUM,BDUM, KDUM,PHIKH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/NONCUP/S,N,FMODE=0 $ PARAML PHIKH//*TRAILER*/1/S,N,NMODES $ SMPYAD PHIKH,MKKF,PHIKH,,,/MHH/3////1 $ SMPYAD PHIKH,KKKF,PHIKH,,,/KHH/3////1 $ SMPYAD PHIKH,BKKF,PHIKH,,,/BHH/3////1 $ MPYAD PHIKH,PKF,/PHF/1 $ EQUIV MHH,MKKF//BHH,BKKF//KHH,KKKF//PHF,PKF $ COND KLABEL1,KFLAG $ $ KINDEX IS EITHER 0 OR NSEGS/2 (NSEGS EVEN ONLY) APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,/ S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF// NMODES/V,Y,KINDEX $ AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/1 $ AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIKH,,,USETD,AERO/QHHL,,/ NOUE/1 $ JUMP KLABEL2 $ LABEL KLABEL1 $ $ KINDEX IS .NE.0 AND .NE. NSEGS/2 (NSEGS EVEN ONLY) CYCT2 CYCDD,,,,PHIKH,LAMK/,,,PHIAH,LAMAH/*BACK*/V,Y,NSEGS/ V,Y,KINDEX/CYCSEQ/1/S,N,NOGO $ COND ERRORC1,NOGO $ APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,PVECT/ S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/*COSINE*/ NMODES/V,Y,KINDEX $ AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/1 $ PARTN PHIAH,PVECT,/PHIAC,,,/1 $ AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIAC,,,USETD,AERO/QHHLC,,/NOUE/1 $ APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,PVECT/ S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/*SINE*/NMODES/ V,Y,KINDEX $ PARTN PHIAH,PVECT,/PHIAS,,,/1 $ AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIAS,,,USETD,AERO/QHHLS,,/NOUE/1 $ ADD QHHLC,QHHLS/QHHL/(1.0,0.0)/(1.0,0.0) $ LABEL KLABEL2 $ $ SOLUTION FRRD2 KKKF,BKKF,MKKF,QHHL,PKF,FOL/UKVF/V,Y,BOV/V,Y,Q/-1.0 $ DDR1 UKVF,PHIKH/UKKVF $ EQUIV UKKVF,UKVF $ CYCT2 CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/V,Y,KINDEX/CYCSEQ/ NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV UXVF,UDVF / CYCIO $ COND LCYC3,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. CYCT1 UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ LABEL LCYC3 $ COND LBLTRL4,NOTIME $ EQUIV PXF,PDF2 / CYCIO $ COND LCYC4,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. CYCT1 PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ LABEL LCYC4 $ $ IF LOADS WERE TIME-DEPENDENT THEN RECOVER PPF AND PSF FROM PXF. SDR1 USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $ SSG2 USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $ EQUIV PPFZ,PPF // PSFZ,PSF $ LABEL LBLTRL4 $ VDR CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/FMODE $ $ ALTER 138,138 $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST. DELETE SDR2 $ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ CURV OESC1,MPT,CSTM,EST,SIL,GPL/OESC1M,/1 $ $ ALTER 140,141 $ DELETE SDR3(2),SDR3(2),1 $ SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OESC1M/OPPC2,OQPC2,OUPVC2, OESC2,OEFC2,OESC2M $ OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,OESC2M//S,N,CARDNO $ $ ALTER 152,152 $ DELETE PLOT(2),-4 $ OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,OESC1M//S,N,CARDNO $ $ ALTER 160 $ ADD LABEL FOR ERROR3. INSERT PLOT(2),4 $ LABEL ERROR3 $ $ ALTER 163,166 $ REMOVE ERROR1 AND ERROR2. DELETE PLOT(2),7,PLOT(2),10 $ $ ALTER 168 $ FORCED VIBRATION ERRORS INSERT END,-3 $ LABEL ERRORC1 $ CHECK NSEGS, KMAX AND OTHER CYCLIC DATA. PRTPARM //-5 /*CYCSTATICS* $ LABEL ERRORC2 $ COUPLED MASS NOT ALLOWED. PRTPARM //0 /C,Y,COUPMASS $ JUMP FINIS $ LABEL ERRORC3 $ SUPORT BULK DATA NOT ALLOWED. PRTPARM //-6 /*CYCSTATICS* $ LABEL ERRORC4 $ EPOINT BULK DATA NOT ALLOWED. PRTPARM //0 /*NOUE* $ JUMP FINIS $ LABEL ERRORC5 $ NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK. PRTPARM //0 /*NOFRL* $ PRTPARM //0 /*NOTRL* $ JUMP FINIS $ LABEL ERRORC6 $ BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL. PRTPARM //0 /*NOFREQ* $ PRTPARM //0 /*NOTIME* $ JUMP FINIS $ LABEL ERRORC7 $ NO EIGENVALUE EXTRACTION DATA PRTPARM //-2/*CYCMODES* $ ENDALTER $ ================================================ FILE: bd/dpdcbd.f ================================================ BLOCK DATA DPDCBD CDPDCBD C BLOCK DATA PROGRAM FOR THE DYNAMICS POOL DISTRIBUTOR C***** C INTEGER GPL ,SIL ,USET ,USETD ,GPLD ,SILD ,DPOOL 1 ,DLT ,FRL ,TFL ,TRL ,PSDL ,EED ,SCR1 2 ,SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 ,BUF3 3 ,BUF4 ,EQDYN ,SDT ,EPOINT,SEQEP ,EIGC ,EIGB 5 ,LOADS ,DLOAD ,FREQ1 ,FREQ ,TIC ,TSTEP ,TF 6 ,PSD ,EIGR C DIMENSION BUF(24) ,EPOINT(2) ,SEQEP(2) ,MCB(7) 1 ,NAM(2) ,LOADS(32) ,DLOAD(2) ,FREQ1(2) 2 ,FREQ(2) ,EIGC(2) ,EIGB(2) ,NOLIN(21) 3 ,TIC(2) ,TSTEP(2) ,TF(2) ,PSD(2) 4 ,MSG(3) ,EIGR(2) C COMMON/DPDCOM/DPOOL ,GPL ,SIL ,USET ,GPLD ,SILD ,USETD 1 ,DLT ,FRL ,NLFT ,TFL ,TRL ,PSDL ,EED 2 ,SCR1 ,SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 3 ,BUF3 ,BUF4 ,EPOINT,SEQEP ,L ,KN ,NEQDYN 4 ,LOADS ,DLOAD ,FREQ1 ,FREQ ,NOLIN ,NOGO 5 ,MSG ,TIC ,TSTEP ,TF ,PSD ,EIGR ,EIGB 6 ,EIGC ,MCB ,NAM ,EQDYN ,SDT ,INEQ C***** C INPUT FILES C***** DATA DPOOL/101/ ,GPL/102/ ,SIL/103/ ,USET/104/ C***** C OUTPUT FILES C***** DATA GPLD /201/ ,SILD /202/ ,USETD /203/ ,TFL /204/ 1 ,DLT /205/ ,PSDL /206/ ,FRL /207/ ,NLFT /208/ 2 ,TRL /209/ ,EED /210/ ,EQDYN /211/ ,SDT /212/ C***** C SCRATCH FILES C***** DATA SCR1/301/ ,SCR2/302/ ,SCR3/303/ ,SCR4/304/ C***** C DATA DEFINING INPUT CARDS C***** DATA EPOINT / 707, 7/ 1 ,SEQEP / 5707, 57/ 2 ,LOADS / 27, 17, 0, 0 3 , 37, 18, 0, 0 4 , 77, 19, 0, 0 5 , 5107, 51, 6, 0 6 , 5207, 52, 6, 0 7 , 7107, 71, 5, 0 8 , 7207, 72, 10, 0 9 , 0, 0, 0, 0/ A ,DLOAD / 57, 5/ B ,FREQ1 / 1007, 10/ C ,FREQ / 1307, 13/ DATA NOLIN / 3107, 31, 8 E , 3207, 32, 8 F , 3307, 33, 8 G , 3407, 34, 8 H , 3507, 35, 16 I , 3607, 36, 5 J , 3707, 37, 8/ DATA TIC / 6607, 66/ I ,TSTEP / 8307, 83/ J ,TF / 6207, 62/ K ,EIGR / 307, 3/ L ,EIGB / 107, 1/ M ,EIGC / 207, 2/ C***** C MISC DATA C***** DATA MCB / 7*0/ 1 ,NAM /4HDPD ,4H / END ================================================ FILE: bd/exiobd.f ================================================ BLOCK DATA EXIOBD C C BLOCK DATA SUBPROGRAM FOR MODULE EXIO. C INTEGER F1, F2, F3, P1, P2, P3 COMMON /EXIO2F/ F1(32), F2(35) ,F3(40) COMMON /EXIO2P/ NF, P1(50), P2(50), P3(40) DATA NF / 28 / DATA P1 / 1 1 ,7 ,0 ,0 ,0 , 2 5 ,33 ,0 ,0 ,0 , 3 7 ,30 ,0 ,0 ,0 , 4 12 ,0 ,0 ,0 ,0 , 5 13 ,0 ,0 ,0 ,0 , 6 14 ,8 ,0 ,0 ,0 , 7 20 ,0 ,0 ,0 ,0 , 8 21 ,4 ,0 ,0 ,0 , 9 26 ,10 ,0 ,0 ,0 , O 30 ,16 ,0 ,0 ,0 / DATA P2 / 1 33 ,0 ,0 ,0 ,0 , 2 34 ,0 ,0 ,0 ,0 , 3 35 ,4 ,0 ,0 ,0 , 4 40 ,0 ,0 ,0 ,0 , 5 41 ,0 ,0 ,0 ,0 , 6 42 ,23 ,0 ,0 ,0 , 7 48 ,24 ,0 ,0 ,0 , 8 52 ,11 ,0 ,0 ,0 , 9 58 ,12 ,0 ,0 ,0 , O 63 ,7 ,0 ,0 ,0 / DATA P3 / 1 68 ,12 ,0 ,0 ,0 , 2 73 ,15 ,0 ,0 ,0 , 3 78 ,12 ,0 ,0 ,0 , 4 83 ,10 ,0 ,0 ,0 , 5 89 ,2 ,0 ,0 ,0 , 6 91 ,10 ,0 ,0 ,0 , 7 96 ,12 ,0 ,0 ,0 , 8 102 ,14 ,0 ,0 ,0 / DATA F1 / 1 4H(3A4 ,4H,4I8 ,4H,88X ,4H) , 2 4H(33A ,4H4) , 3 4H(2A4 ,4H,2I8 ,4H,26A ,4H4,4X ,4H) , 4 4H(04) , 5 4H(05) , 6 4H(2(I ,4H8,1P ,4H,3E1 ,4H3.6) ,4H,38X ,3H) , 7 4H(07) , 8 4H(2I8 ,4H,1P, ,4H2E13 ,4H.6,9 ,4H0X) , 9 4H(1P, ,4H10E1 ,4H3.6, ,4H2X) , O 4H(16I ,4H8,4X ,4H) / DATA F2 / 1 4H(11) , 2 4H(12) , 3 4H(2A4 ,4H,1P, ,4H2E13 ,4H.6,9 ,4H8X) , 4 4H(14) , 5 4H(15) , 6 4H(2A4 ,4H,3I8 ,4H,6(2 ,4HA4,I ,4H8),4 ,3HX) , 7 4H(8(2 ,4HA4,I ,4H8),4 ,4HX) , 8 4H(I8, ,4H5(I8 ,4H,1P, ,4HE13. ,4H6),1 ,3H9X), 9 4H(6(I ,4H8,1P ,4H,E13 ,4H.6), ,4H6X) , O 4H(2I8 ,4H,1P, ,4H5E13 ,4H.6,5 ,4H1X) / DATA F3 / 1 4H(6(I ,4H6,1P ,4H,E13 ,4H.6), ,4H18X) , 2 4H(5(I ,4H6,1P ,4H,D20 ,4H.13) ,4H,2X) , 3 4H(4(I ,4H6,1P ,4H,2E1 ,4H3.6) ,4H,4X) , 4 4H(2(I ,4H6,1P ,4H,2D2 ,4H0.13 ,4H),40 ,3HX) , 5 4H(A4, ,4HI8) , 6 4H(4I8 ,4H,1P, ,4H6E13 ,4H.6,2 ,4H2X) , 7 4H(2(5 ,4HI8,1 ,4HP,E1 ,4H3.6) ,4H,26X ,3H) , 8 4H(2(6 ,4HI8,1 ,4HP,E1 ,4H3.6) ,4H,10X ,3H) / END ================================================ FILE: bd/ferfbd.f ================================================ SUBROUTINE FERFBD(V1,V2,V3,VB) C C FERFBD is a modification of the old FRBK2 subroutine. It has been C modified to read matrix data from memory until that data is exhausted C and then to read the remaining data from the file. C DOUBLE PRECISION DCORE(1) DOUBLE PRECISION V1(1) ,V2(1) ,V3(1) ,VB(1) , 1 XL(1) ,XLJJ ,V3J ,V2J INTEGER IBLK(20) ,SMAPOS COMMON / ZZZZZZ / ICORE(1) COMMON / OPINV / MCBLT(7) ,MCBSMA(7) COMMON / SYSTEM / KSYSTM(65) COMMON / FEERIM / NIDSMA ,NIDLT ,NIDORV ,NLTLI 1, NSMALI ,IBFSMA ,IBFLT 2, IBFORV ,SMAPOS(7) ,LTPOS(7) EQUIVALENCE ( KSYSTM(02),NOUT) EQUIVALENCE ( DCORE(1) ,ICORE(1), XL ) C NROW = MCBLT(2) DO 10 I = 1,NROW 10 V2(I) = V1(I) ILROW = LTPOS( 1 ) ICROW = NROW C PRINT *,' FERFBD,ILROW,NIDLT=',ILROW,NIDLT C PRINT *,' LTPOS=',LTPOS IF ( ILROW .EQ. NROW .AND. NIDLT .NE. 0 ) GO TO 1000 C C BACKWARD SUBSTITUTION C C POSITION FILE TO LAST COLUMN C IF ( NIDLT .EQ. 0 ) GO TO 12 11 CONTINUE CALL DSSPOS ( MCBLT, LTPOS(5), LTPOS(6), LTPOS(7) ) GO TO 16 12 IF ( LTPOS( 5 ) .NE. -1 ) GO TO 11 CALL REWIND ( MCBLT ) CALL SKPREC ( MCBLT, NROW+1 ) CALL DSCPOS ( MCBLT, IBLOCK, ICLR, ICBP ) LTPOS( 5 ) = IBLOCK LTPOS( 6 ) = ICLR LTPOS( 7 ) = ICBP 16 CONTINUE IBLK( 1 ) = MCBLT( 1 ) J = NROW 15 IBLK(8) = -1 ICROW = J IF ( J .LE. ILROW ) GO TO 1000 20 CALL GETSTB(*50,IBLK(1)) NTMS = IBLK(6) JI = IBLK(5) IK = IBLK(4) IF( IK - NTMS + 1 .NE. J) GO TO 25 NTMS = NTMS - 1 XLJJ = XL(JI-NTMS) IF(NTMS .EQ. 0) GO TO 40 25 V2J = V2(J) DO 30 II= 1,NTMS V2J = V2J + XL(JI) * V2(IK) JI = JI - 1 IK = IK - 1 30 CONTINUE V2(J) = V2J 40 CALL ENDGTB(IBLK(1)) GO TO 20 50 V2(J) = V2(J) / XLJJ IF(J .EQ. 1) GO TO 2000 J = J -1 GO TO 15 C C CONTINUE BACKWARD SUBSTITUTION WITH DATA IN MEMORY C 1000 CONTINUE MEM = NLTLI C PRINT *,' AT 1000,NLTLI=',NLTLI NTMS = ICORE(MEM) C PRINT *,' ICORE(NLTLI,-1=',ICORE(NLTLI),ICORE(NLTLI-1) MEM = MEM - 2*NTMS - 3 J = ICROW 1015 ICOL = ICORE(MEM) C PRINT *,' MEM,ICORE(MEM-1,0,+1=',MEM,ICORE(MEM-1),ICORE(MEM), C & ICORE(MEM+1) C PRINT *,' ICOL,MEM,NTMS,ICROW,J=',ICOL,MEM,NTMS,ICROW,J IF ( ICOL .NE. J ) GO TO 1050 NTMS = ICORE(MEM+1) C PRINT *,' FERFBD,A1015,J,NTMS,ICOL=',J,NTMS,ICOL NTMSS = NTMS JI = MEM/2 + 1 + NTMS IK = ICORE( MEM + 2 + 2*NTMS ) + NTMS - 1 C PRINT *,' FERFBD,IK=',IK IF( IK-NTMS+1 .NE. J) GO TO 1025 NTMS = NTMS - 1 XLJJ = DCORE(JI-NTMS) C PRINT *,' FERFBD,XLJJ=',XLJJ IF(NTMS .EQ. 0) GO TO 1040 1025 V2J = V2(J) DO 1030 II= 1,NTMS V2J = V2J + DCORE(JI) * V2(IK) JI = JI - 1 IK = IK - 1 1030 CONTINUE V2(J) = V2J 1040 IF ( MEM .EQ. NIDLT ) GO TO 1050 NTMSNX = ICORE( MEM-1 ) MEM = MEM - 2*NTMSNX - 4 GO TO 1015 1050 V2(J) = V2(J) / XLJJ IF(J .EQ. 1) GO TO 2000 J = J -1 GO TO 1015 2000 CONTINUE CALL FERLTD(MCBSMA(1),V2(1),V3(1),VB(1) ) C C BEGIN FORWARD SWEEP DIRECTLY ON V3 C ICROW = 1 IF ( NIDLT .EQ. 0 ) GO TO 3005 MEM=NIDLT DO 2120 J = 1, NROW ICROW = J IF ( J .GT. ILROW ) GO TO 3000 2080 ICOL = ICORE(MEM) IF( ICOL .NE. J ) GO TO 2120 JI = MEM/2 + 2 NTMS = ICORE( MEM+1 ) NTMSS = NTMS IK = ICORE(MEM + 2 + 2*NTMS) IF ( IK .NE. J ) GO TO 2085 NTMS = NTMS - 1 V3(J) = V3(J) / DCORE(JI) JI = JI + 1 IK = IK + 1 2085 IF(NTMS .EQ. 0) GO TO 2100 V3J = V3(J) DO 2090 II = 1,NTMS V3(IK)= V3(IK) + DCORE(JI) * V3J IK = IK + 1 JI = JI + 1 2090 CONTINUE 2100 MEM = MEM + 2*NTMSS + 4 GO TO 2080 2120 CONTINUE GO TO 7000 3000 CONTINUE C C CONTINUE FORWARD SWEEP DIRECTLY ON V3 C C POSITION FILE TO CONTINUE READING COLUMN DATA NOT IN MEMORY C CALL DSSPOS ( MCBLT, LTPOS(2), LTPOS(3), LTPOS(4) ) GO TO 3008 3005 CALL REWIND ( MCBLT ) CALL SKPREC ( MCBLT, 1 ) 3008 CONTINUE DO 3120 J = ICROW, NROW IBLK( 8 ) = -1 3080 CALL GETSTR( *3120, IBLK ) C PRINT *,' GETSTR,J,IBLK(12=',J,IBLK(12) IK = IBLK( 4 ) JI = IBLK( 5 ) NTMS = IBLK( 6 ) IF ( IK .NE. J) GO TO 3085 NTMS = NTMS - 1 C PRINT *,' IK,JI,XL(JI=',IK,JI,XL(JI) V3(J) = V3(J) / XL(JI) JI = JI + 1 IK = IK + 1 3085 IF(NTMS .EQ. 0) GO TO 3100 V3J = V3(J) DO 3090 II = 1,NTMS V3(IK)= V3(IK) + XL(JI) * V3J IK = IK + 1 JI = JI + 1 3090 CONTINUE 3100 CALL ENDGET(IBLK(1)) GO TO 3080 3120 CONTINUE GO TO 7000 7000 CONTINUE RETURN END ================================================ FILE: bd/flbbd.f ================================================ BLOCK DATA FLBBD CFLBBD C FLBBD - BLOCK DATA FOR MODULE FLBMG C INTEGER GEOM2 ,ECT ,BGPDT ,SIL ,GEOM3 , 1 CSTM ,USET ,EQEXIN ,USETF ,USETS , 2 AF ,DKGG ,FBELM ,FRELM ,CONECT , 3 AFMAT ,AFDICT ,KGMAT ,KGDICT C C GINO FILES C COMMON /FLBFIL/ GEOM2 ,ECT ,BGPDT ,SIL ,MPT , 1 GEOM3 ,CSTM ,USET ,EQEXIN ,USETF , 2 USETS ,AF ,DKGG ,FBELM ,FRELM , 3 CONECT ,AFMAT ,AFDICT ,KGMAT ,KGDICT C C INPUT DATA BLOCKS C DATA GEOM2 ,ECT ,BGPDT ,SIL ,MPT , 1 GEOM3 ,CSTM ,USET ,EQEXIN / 2 101 ,102 ,103 ,104 ,105 , 3 106 ,107 ,108 ,109 / C C OUTPUT DATA BLOCKS C DATA USETF ,USETS ,AF ,DKGG / 1 201 ,202 ,203 ,204 / C C INTERNAL SCRATCH FILES C DATA FBELM ,FRELM ,CONECT ,AFMAT ,AFDICT , 1 KGMAT ,KGDICT / 2 301 ,302 ,303 ,304 ,305 , 3 306 ,307 / C END ================================================ FILE: bd/gp3bd.f ================================================ BLOCK DATA GP3BD CGP3BD C C BLOCK DATA PROGRAM FOR MODULE GP3. C INTEGER GEOM3 ,EQEXIN,GEOM2 ,SLT ,GPTT ,SCR1 ,SCR2 , 1 CARDID,BUF ,CARDDT,STATUS,PLOAD2,TEMP ,TEMPD , 2 TEMPP1,TEMPP2,TEMPP3,TEMPRB,PLOAD3,TEMPG ,TEMPP4 C COMMON /GP3COM/ GEOM3 ,EQEXIN,GEOM2 ,SLT ,GPTT ,SCR1 ,SCR2 , 1 BUF1 ,BUF2 ,BUF(50) ,CARDID(60) ,IDNO(30) 2 , CARDDT(60) ,MASK(60) ,STATUS(60) ,NTYPES , 3 IPLOAD,IGRAV ,PLOAD2(2) ,LOAD(2) ,NOPLD2 , 4 TEMP(2) ,TEMPD(2) ,TEMPP1(2) , 5 TEMPP2(2) ,TEMPP3(2) ,TEMPRB(2) ,BUF3 , 6 PLOAD3(2) ,IPLD3 ,TEMPG(2) , 7 TEMPP4(2) C C GINO NAMES FOR INPUT, OUTPUT AND SCRATCH FILES. C DATA GEOM3 , EQEXIN,GEOM2 ,SLT ,GPTT, SCR1 ,SCR2 / 1 101 , 102 ,103 ,201 ,202 , 301 ,302 / C C DATA DEFINING LOAD CARDS-- C CARDID - TWO-WORD RECORD ID DEFINING CARD TYPE. C CARDDT - TWO WORDS PER CARD TYPE. 1ST WORD IS NO. OF WORDS PER C CARD. 2ND WORD IS POINTER IN MASK TABLE TO ENTRY WHICH C DESCRIBES THE NUMBER AND LOCATION OF GRID POINTS ON THE C CARD. C MASK - TABLE AS DESCRIBED ABOVE. C IDNO - INTERNAL CARD TYPE ID. C C FORCE1 FORCE2 FORCE GRAV RFORCE C MOMNT1 MOMNT2 MOMENT PLOAD SLOAD C PRESAX QHBDY QVOL QBDY1 QBDY2 C QVECT PLOAD3 PLOAD1 PLOADX CEMLOOP C SPCFLD GEMLOOP REMFLUX MDIPOLE PLOAD4 C DATA CARDID/ 4001,40, 4101,41, 4201,42, 4401,44, 5509,55, 1 4601,46, 4701,47, 4801,48, 5101,51, 5401,54, 2 5215,52, 4309,43, 5209,52, 4509,45, 4909,49, 3 5009,50, 7109,71, 6909,69, 7001,70, 3109,31, 4 3209,32, 3309,33, 3409,34, 3509,35, 6709,67, 5 0000,00, 0000,00, 0000,00, 0000,00, 0000,00/ C CWKBR 2/95 SPR94015 DATA CARDDT/ 5, 3, 7, 7, 7, 1, 6, 0, 8, 1, DATA CARDDT/ 5, 3, 7, 7, 7, 1, 6, 0, 7, 1, 1 5, 3, 7, 7, 7, 1, 6,13, 3, 1, 2 7,18, 8,21, 3, 0, 3, 0, 6, 0, 3 6, 0, 39,26, 8, 0, 6,14, 13, 0, 4 6,28, 49, 0, 6, 0, 10, 0, 12, 0, 5 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ C DATA STATUS/ -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 1 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 2 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 3 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 4 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 5 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0/ C DATA IDNO / 3, 5, 1, 8, 10, 1 4, 6, 2, 9, 7, 2 11, 12, 13, 14, 15, 3 16, 17, 18, 19, 21, 4 20, 22, 24, 23, 25, 5 0, 0, 0, 0, 0/ C DATA MASK / 1,2, 1 3,2,4,5, 2 5,2,4,5,6,7, 3 4,3,4,5,6, 4 2,3,4, 5 4,5,6,7,8,32,-8,1,6,31*0/ C C MISCELANEOUS DATA. C DATA NTYPES/ 49/ 1 IGRAV / 7/ 2 IPLOAD/ 17/ 3 PLOAD2/ 6809, 68/ 4 LOAD / 4551, 61/ 5 NOPLD2/ 0/ 6 TEMP / 5701, 57/ 7 TEMPD / 5641, 65/ 8 TEMPP1/ 8109, 81/ 9 TEMPP2/ 8209, 82/ A TEMPP3/ 8309, 83/ B TEMPRB/ 8409, 84/ C PLOAD3/ 7109, 71/ D IPLD3 / 33/ E TEMPG / 8509, 85/ F TEMPP4/ 8609, 86/ END ================================================ FILE: bd/gptabd.f ================================================ BLOCK DATA GPTABD CGPTABD C BLOCK DATA PROGRAM FOR ALL MODULES HAVING ANYTHING TO DO WITH THE C NASTRAN STRUCTURAL ELEMENTS. C C NOTE. ALL MODULES SHOULD BE WRITTEN TO TAKE ADVANTAGE OF THE C FLEXIBLE NATURE OF THIS DATA. C C THE ELEMENTS OF NASTRAN ARE ALL REPRESENTED BELOW. THEY ARE C ARRANGED BY ELEMENT TYPE NUMBER. EACH ELEMENT ENTRY BELOW C CONTAINS -INCR- NUMBER OF VALUES. -INCR- AT SOME FUTURE DATE MAY C GROW LARGER THUS MODULE WRITERS SHOULD ALWAYS INCLUDE -INCR- WHEN C COMPUTING INDEXES INTO THIS DATA. C C -NELEM- IS SIMPLY THE CURRENT NUMBER OF ELEMENTS IN NASTRAN. C C -LAST- IS SIMPLY THE NUMBER OF THE FIRST WORD OF THE LAST ELEMENT C ENTRY SUCH THAT DO LOOPS MAY HAVE THE FOLLOWING FORM. C C DO 100 I = 1,LAST,INCR C . . . C . . . C . . . C 100 CONTINUE C C THUS IN THE ABOVE LOOP E(I) POINTS TO THE FIRST WORD OF OF AN C ELEMENT ENTRY. C C TERMS OF EACH ELEMENT ENTRY. C ============================ C 1. AND 2. = ELEMENT NAME STORED 2A4 C 3. ELEMENT TYPE NUMBER C 4. AND 5. ELEMENT-CONNECTION-TABLE RECORD ID AND BIT NUMBER C 6. NUMBER OF ELEMENT CONNECTION TABLE WORDS FOR THIS ELEMENT C 7. 8. AND 9. SAME AS 4. 5. AND 6. BUT FOR ELEMENT PROPERTY TABLE C 10. NUMBER OF GRID POINTS FOR THIS ELEMENT C 11. SCALAR C 12. NUMBER OF WORDS IN THE ELEMENT-SUMMARY-TABLE FOR THIS ELEMENT C 13. POSITION IN ECT OF FIRST GRID POINT C 14. AND 15. TEMPERATURE TYPE AND COUNT AS USED BY THE SSG MODULE C 16. TWO LETTER SYMBOL FOR PLOTTING. ELEMENT WILL BE PLOTTED IF C WORD 10 IS 2 TO 42 AND WORD 11 IS ZERO AND WORD 16 .NE. 2HXX C 17. NUMBER OF ESTA WORDS SDR2 WILL PICK UP FROM PHASE-1 ELEMENT C ROUTINES AND PASS TO THE PHASE-2 ELEMENT ROUTINES C 18. AND 19. THE REAL STRESS WORD AND FORCE WORD COUNTS FOR OUT- C PUTS FROM THE SDR2 PHASE-2 ROUTINES TO AN OUTPUT FILE FOR OFP C 20. AND 21. COMPLEX STRESS AND FORCE POINTERS FOR ORDERING OF C COMPLEX STRESS AND FORCE OUTPUTS TO A FILE FOR OFP PROCESSING C 22. 23. AND 24. SMA1, SMA2, AND DS1 ELEMENT OVERLAY TREE POSITION C 25. MAXIMUM DEGREES OF FREEDOM DEFINED FOR ELEMENT C C INTEGER E(2150), 1 E 1(25),E 2(25),E 3(25),E 4(25),E 5(25),E 6(25),E 7(25), 2 E 8(25),E 9(25),E10(25),E11(25),E12(25),E13(25),E14(25), 3 E15(25),E16(25),E17(25),E18(25),E19(25),E20(25),E21(25), 4 E22(25),E23(25),E24(25),E25(25),E26(25),E27(25),E28(25), 5 E29(25),E30(25),E31(25),E32(25),E33(25),E34(25),E35(25), 6 E36(25),E37(25),E38(25),E39(25),E40(25),E41(25),E42(25), 7 E43(25),E44(25),E45(25),E46(25),E47(25),E48(25),E49(25), 8 E50(25),E51(25),E52(25),E53(25),E54(25),E55(25),E56(25), 9 E57(25),E58(25),E59(25),E60(25),E61(25),E62(25),E63(25), O E64(25),E65(25),E66(25),E67(25),E68(25),E69(25),E70(25), 1 E71(25),E72(25),E73(25),E74(25),E75(25),E76(25),E77(25), 2 E78(25),E79(25),E80(25),E81(25),E82(25),E83(25),E84(25), 3 E85(25),E86(25) C INTEGER COMPLX(530), 1 COMP1(100),COMP2(100),COMP3(100),COMP4(100),COMP5(100), 2 COMP6( 30) C COMMON /GPTA1 / NELEM,LAST,INCR,E COMMON /CLSTRS/ COMPLX C EQUIVALENCE (E 1(1),E( 1)), (E 2(1),E( 26)), (E 3(1),E( 51)), 1 (E 4(1),E( 76)), (E 5(1),E( 101)), (E 6(1),E( 126)), 2 (E 7(1),E( 151)), (E 8(1),E( 176)), (E 9(1),E( 201)), 3 (E10(1),E( 226)), (E11(1),E( 251)), (E12(1),E( 276)), 4 (E13(1),E( 301)), (E14(1),E( 326)), (E15(1),E( 351)), 5 (E16(1),E( 376)), (E17(1),E( 401)), (E18(1),E( 426)), 6 (E19(1),E( 451)), (E20(1),E( 476)), (E21(1),E( 501)), 7 (E22(1),E( 526)), (E23(1),E( 551)), (E24(1),E( 576)), 8 (E25(1),E( 601)), (E26(1),E( 626)), (E27(1),E( 651)), CRPKR THE FOLLOWING TWO LINES WERE REPLACED CRPKR EQUIVALENCE STATEMENT TOO LONG CRPKR9 (E28(1),E( 676)), (E29(1),E( 701)), (E30(1),E( 726)), CRPKRO (E31(1),E( 751)), (E32(1),E( 776)), (E33(1),E( 801)), 9 (E28(1),E( 676)), (E29(1),E( 701)), (E30(1),E( 726)) EQUIVALENCE (E31(1),E( 751)), (E32(1),E( 776)), (E33(1),E( 801)), 1 (E34(1),E( 826)), (E35(1),E( 851)), (E36(1),E( 876)), 2 (E37(1),E( 901)), (E38(1),E( 926)), (E39(1),E( 951)), 3 (E40(1),E( 976)), (E41(1),E(1001)), (E42(1),E(1026)), 4 (E43(1),E(1051)), (E44(1),E(1076)), (E45(1),E(1101)), 5 (E46(1),E(1126)), (E47(1),E(1151)), (E48(1),E(1176)), 6 (E49(1),E(1201)), (E50(1),E(1226)), (E51(1),E(1251)), 7 (E52(1),E(1276)), (E53(1),E(1301)), (E54(1),E(1326)), 8 (E55(1),E(1351)), (E56(1),E(1376)), (E57(1),E(1401)), 9 (E58(1),E(1426)), (E59(1),E(1451)), (E60(1),E(1476)) EQUIVALENCE (E61(1),E(1501)), (E62(1),E(1526)), (E63(1),E(1551)), 1 (E64(1),E(1576)), (E65(1),E(1601)), (E66(1),E(1626)), 2 (E67(1),E(1651)), (E68(1),E(1676)), (E69(1),E(1701)), 3 (E70(1),E(1726)), (E71(1),E(1751)), (E72(1),E(1776)), 4 (E73(1),E(1801)), (E74(1),E(1826)), (E75(1),E(1851)), 5 (E76(1),E(1876)), (E77(1),E(1901)), (E78(1),E(1926)), 6 (E79(1),E(1951)), (E80(1),E(1976)), (E81(1),E(2001)), 7 (E82(1),E(2026)), (E83(1),E(2051)), (E84(1),E(2076)), 8 (E85(1),E(2101)), (E86(1),E(2126)) C EQUIVALENCE (COMPLX( 1),COMP1(1)), (COMPLX(101),COMP2(1)), 1 (COMPLX(201),COMP3(1)), (COMPLX(301),COMP4(1)), 2 (COMPLX(401),COMP5(1)), (COMPLX(501),COMP6(1)) C DATA NELEM /86/ ,LAST /2150/ ,INCR/25/ C C CURRENTLY ECTBIT USES 1 THRU 96, EXCEPT C 76-77, 82, 88-90, 94-96 C (50 IS USED BY CONGRUENT ELEMENT, CNGRNT, WITH ECT-ID 5008) C C CURRENTLY EPTBIT USES 1 THRU 96, EXCEPT C 26-48, 50, 52, 54-55, 57, 59-60, 71-81, 83, 86-94 AND 96 C C ------,------,------,------,------,------,------, C DATA Exx/ NAME1 ,NAME2 ,ELTYPE,ECT-ID,ECTBIT,ECTWDS,EPT-ID, C EPTBIT,EPTWDS,GRDPTS,SCALAR,ESTWDS,GRID1 ,TEMTYP, C TEMCT ,SYMBOL,ESTAWD,STRESS,FORCE ,STRSPT,FORCPT, C SMA1OV,SMA2OV,DS1OV ,MAXDOF/ C ------,------,------,------,------,------,------, DATA E 1/ 4HROD ,4H , 1, 3001, 30, 4, 902, 1 9, 6, 2, 0, 17, 3, 1, 2 2,2HRD , 23, 5, 3, 41, 13, 3 1, 1, 1, 6/ C C NOTE FROM G.CHAN/UNISYS 9/91 C THE NEXT ELEMENT IS NOT AVAILABLE IN COSMIC/NASTRAN. BUT ELEMENT C TYPE 2 IS USED LOCALLY IN DS1 SUBROUTINE. CHECK WITH DS1 FIRST IF C BEAM ELEMENT IS TO BE USED. MAKE SURE THERE IS NO CONFLICT ABOUT C ELEMENT TYPE 2 C DATA E 2/ 4HBEAM,4H , 2, 101, 1, 20, 102, 1 1, 20, 2, 0, 47, 3, 0, 2 0,2HBM , 88, 14, 9, 0, 0, 3 1, 1, 1, 6/ DATA E 3/ 4HTUBE,4H , 3, 3701, 37, 4, 1602, 1 16, 5, 2, 0, 16, 3, 1, 2 2,2HTU , 23, 5, 3, 41, 13, 3 1, 1, 1, 6/ DATA E 4/ 4HSHEA,4HR , 4, 3101, 31, 6, 1002, 1 10, 4, 4, 0, 25, 3, 2, 2 7,2HSH , 33, 4, 17, 47, 156, 3 1, 1, 1, 6/ DATA E 5/ 4HTWIS,4HT , 5, 3801, 38, 6, 1702, 1 17, 4, 4, 0, 25, 3, 2, 2 7,2HTW , 25, 4, 3, 47, 13, 3 1, 1, 0, 6/ DATA E 6/ 4HTRIA,4H1 , 6, 3301, 33, 6, 1202, 1 12, 10, 3, 0, 27, 3, 2, 2 7,2HT1 , 137, 17, 6, 73, 1, 3 1, 1, 2, 6/ DATA E 7/ 4HTRBS,4HC , 7, 3201, 32, 6, 1102, 1 11, 8, 3, 0, 25, 3, 2, 2 7,2HTB , 101, 17, 6, 73, 1, 3 1, 1, 0, 6/ DATA E 8/ 4HTRPL,4HT , 8, 3601, 36, 6, 1502, 1 15, 8, 3, 0, 25, 3, 2, 2 7,2HTP , 101, 17, 6, 73, 1, 3 1, 1, 0, 6/ DATA E 9/ 4HTRME,4HM , 9, 3501, 35, 6, 1402, 1 14, 4, 3, 0, 21, 3, 2, 2 2,2HTM , 36, 8, 0, 89, 0, 3 1, 1, 2, 6/ DATA E10/ 4HCONR,4HOD , 10, 1601, 16, 8, 0, 1 0, 0, 2, 0, 17, 2, 1, 2 2,2HCR , 23, 5, 3, 41, 13, 3 1, 1, 1, 6/ DATA E11/ 4HELAS,4H1 , 11, 601, 6, 6, 302, 1 3, 4, 2, 1, 8, 3, 0, 2 0,2H , 5, 2, 2, 19, 19, 3 1, 1, 0, 1/ DATA E12/ 4HELAS,4H2 , 12, 701, 7, 8, 0, 1 0, 0, 2, 1, 8, 3, 0, 2 0,2H , 5, 2, 2, 19, 19, 3 1, 1, 0, 1/ DATA E13/ 4HELAS,4H3 , 13, 801, 8, 4, 302, 1 3, 4, 2, -1, 6, 3, 0, 2 0,2H , 5, 2, 2, 19, 19, 3 1, 1, 0, 1/ DATA E14/ 4HELAS,4H4 , 14, 901, 9, 4, 0, 1 0, 0, 2, -1, 4, 3, 0, 2 0,2H , 5, 0, 2, 19, 19, 3 1, 1, 0, 1/ DATA E15/ 4HQDPL,4HT , 15, 2701, 27, 7, 602, 1 6, 8, 4, 0, 30, 3, 2, 2 7,2HQP , 131, 17, 6, 73, 1, 3 1, 1, 0, 6/ DATA E16/ 4HQDME,4HM , 16, 2601, 26, 7, 502, 1 5, 4, 4, 0, 26, 3, 2, 2 2,2HQM , 45, 8, 0, 89, 0, 3 1, 1, 2, 6/ DATA E17/ 4HTRIA,4H2 , 17, 3401, 34, 6, 1302, 1 13, 4, 3, 0, 21, 3, 2, 2 7,2HT2 , 137, 17, 6, 73, 1, 3 1, 1, 2, 6/ DATA E18/ 4HQUAD,4H2 , 18, 2901, 29, 7, 802, 1 8, 4, 4, 0, 26, 3, 2, 2 7,2HQ2 , 176, 17, 6, 73, 1, 3 1, 1, 2, 6/ DATA E19/ 4HQUAD,4H1 , 19, 2801, 28, 7, 702, 1 7, 10, 4, 0, 32, 3, 2, 2 7,2HQ1 , 176, 17, 6, 73, 1, 3 1, 1, 2, 6/ DATA E20/ 4HDAMP,4H1 , 20, 201, 2, 6, 202, 1 2, 2, 2, 1, 6, 3, 0, 2 0,2H , 0, 0, 0, 0, 0, 3 1, 1, 0, 1/ DATA E21/ 4HDAMP,4H2 , 21, 301, 3, 6, 0, 1 0, 0, 2, 1, 6, 3, 0, 2 0,2H , 0, 0, 0, 0, 0, 3 1, 1, 0, 1/ DATA E22/ 4HDAMP,4H3 , 22, 401, 4, 4, 202, 1 2, 2, 2, -1, 4, 3, 0, 2 0,2H , 0, 0, 0, 0, 0, 3 1, 1, 0, 1/ DATA E23/ 4HDAMP,4H4 , 23, 501, 5, 4, 0, 1 0, 0, 2, -1, 4, 3, 0, 2 0,2H , 0, 0, 0, 0, 0, 3 1, 1, 0, 1/ DATA E24/ 4HVISC,4H , 24, 3901, 39, 4, 1802, 1 18, 3, 2, 0, 14, 3, 0, 2 0,2HVS , 0, 0, 0, 0, 0, 3 1, 1, 0, 6/ DATA E25/ 4HMASS,4H1 , 25, 1001, 10, 6, 402, 1 4, 2, 2, 1, 6, 3, 0, 2 0,2H , 0, 0, 0, 0, 0, 3 1, 1, 0, 1/ DATA E26/ 4HMASS,4H2 , 26, 1101, 11, 6, 0, 1 0, 0, 2, 1, 6, 3, 0, 2 0,2H , 0, 0, 0, 0, 0, 3 1, 1, 0, 1/ DATA E27/ 4HMASS,4H3 , 27, 1201, 12, 4, 402, 1 4, 2, 2, -1, 4, 3, 0, 2 0,2H , 0, 0, 0, 0, 0, 3 1, 1, 0, 1/ DATA E28/ 4HMASS,4H4 , 28, 1301, 13, 4, 0, 1 0, 0, 2, -1, 4, 3, 0, 2 0,2H , 0, 0, 0, 0, 0, 3 1, 1, 0, 1/ DATA E29/ 4HCONM,4H1 , 29, 1401, 14, 24, 0, 1 0, 0, 1, 0, 29, 2, 0, 2 0,2H , 0, 0, 0, 0, 0, 3 1, 1, 0, 6/ DATA E30/ 4HCONM,4H2 , 30, 1501, 15, 13, 0, 1 0, 0, 1, 0, 18, 2, 0, 2 0,2H , 0, 0, 0, 0, 0, 3 1, 1, 0, 6/ DATA E31/ 4HPLOT,4HEL , 31, 5201, 52, 3, 0, 1 0, 0, 2, 0, 12, 2, 0, 2 0,2HPL , 0, 0, 0, 0, 0, 3 1, 1, 0, 6/ DATA E32/ 4HREAC,4HT , 32, 5251, 60, 19, 0, 1 0, 0, 1, 0, 24, 2, 0, 2 0,2H , 0, 0, 0, 0, 0, 3 1, 1, 0, 6/ DATA E33/ 4HQUAD,4H3 , 33, 2958, 40, 7, 852, 1 49, 62, 4, 0, 24, 3, 0, 2 0,2HQ3 , 0, 0, 0, 0, 0, 3 1, 1, 0, 6/ DATA E34/ 4HBAR ,4H , 34, 2408, 24, 16, 52, 1 20, 19, 2, 0, 42, 3, 1, 2 15,2HBR , 124, 16, 9, 53, 23, 3 1, 1, 1, 6/ DATA E35/ 4HCONE,4HAX , 35, 8515, 85, 4, 152, 1 19, 24, 2, 0, 35, 3, 3, 2 4,2HCN , 118, 18, 7, 0, 0, 3 2, 2, 2, 6/ DATA E36/ 4HTRIA,4HRG , 36, 1708, 17, 6, 0, 1 0, 0, 3, 0, 19, 2, 3, 2 5,2HTI , 126, 5, 10, 0, 0, 3 2, 2, 0, 6/ DATA E37/ 4HTRAP,4HRG , 37, 1808, 18, 7, 0, 1 0, 0, 4, 0, 24, 2, 3, 2 6,2HTA , 394, 21, 13, 0, 0, 3 2, 2, 0, 6/ DATA E38/ 4HTORD,4HRG , 38, 1908, 19, 7, 2102, 1 21, 4, 2, 0, 18, 3, 3, 2 4,2HTR , 358, 16, 13, 0, 0, 3 2, 2, 0, 6/ DATA E39/ 4HTETR,4HA , 39, 5508, 55, 6, 0, 1 0, 0, 4, 0, 23, 3, 3, 2 6,2HTE , 88, 9, 0, 97, 0, 3 3, 1, 0, 6/ DATA E40/ 4HWEDG,4HE , 40, 5608, 56, 8, 0, 1 0, 0, 6, 0, 33, 3, 3, 2 8,2HWG , 128, 9, 0, 97, 0, 3 3, 1, 0, 6/ DATA E41/ 4HHEXA,4H1 , 41, 5708, 57, 10, 0, 1 0, 0, 8, 0, 43, 3, 3, 2 10,2HH1 , 168, 9, 0, 97, 0, 3 3, 1, 0, 6/ DATA E42/ 4HHEXA,4H2 , 42, 5808, 58, 10, 0, 1 0, 0, 8, 0, 43, 3, 3, 2 10,2HH2 , 168, 9, 0, 97, 0, 3 3, 1, 0, 6/ DATA E43/ 4HFLUI,4HD2 , 43, 7815, 78, 6, 0, 1 0, 0, 2, 0, 15, 2, 0, 2 0,2HF2 , 0, 0, 0, 0, 0, 3 3, 1, 0, 6/ DATA E44/ 4HFLUI,4HD3 , 44, 7915, 79, 7, 0, 1 0, 0, 3, 0, 20, 2, 0, 2 0,2HF3 , 0, 0, 0, 0, 0, 3 3, 1, 0, 1/ DATA E45/ 4HFLUI,4HD4 , 45, 8015, 80, 8, 0, 1 0, 0, 4, 0, 25, 2, 0, 2 0,2HF4 , 0, 0, 0, 0, 0, 3 3, 1, 0, 1/ DATA E46/ 4HFLMA,4HSS , 46, 2508, 25, 5, 0, 1 0, 0, 2, 0, 14, 2, 0, 2 0,2HFM , 0, 0, 0, 0, 0, 3 1, 1, 0, 1/ DATA E47/ 4HAXIF,4H2 , 47, 2108, 21, 6, 0, 1 0, 0, 2, 0, 15, 2, 0, 2 0,2HA2 , 13, 5, 0, 111, 0, 3 1, 1, 0, 1/ DATA E48/ 4HAXIF,4H3 , 48, 2208, 22, 7, 0, 1 0, 0, 3, 0, 20, 2, 0, 2 0,2HA3 , 32, 10, 0, 122, 0, 3 1, 1, 0, 1/ DATA E49/ 4HAXIF,4H4 , 49, 2308, 23, 8, 0, 1 0, 0, 4, 0, 25, 2, 0, 2 0,2HA4 , 49, 12, 0, 122, 0, 3 1, 1, 0, 1/ DATA E50/ 4HSLOT,4H3 , 50, 4408, 44, 8, 0, 1 0, 0, 3, 0, 21, 2, 0, 2 0,2HS3 , 20, 6, 0, 1, 0, 3 1, 1, 0, 1/ DATA E51/ 4HSLOT,4H4 , 51, 4508, 45, 9, 0, 1 0, 0, 4, 0, 26, 2, 0, 2 0,2HS4 , 29, 7, 0, 142, 0, 3 1, 1, 0, 1/ DATA E52/ 4HHBDY,4H , 52, 4208, 42, 15, 2502, 1 25, 7, 8, 0, 53, 4, 3, 2 10,2HHB , 0, 0, 0, 0, 0, 3 1, 1, 0, 1/ DATA E53/ 4HDUM1,4H , 53, 6108, 61, 0, 6102, 1 61, 0, 0, 0, 0, 3, 3, 2 0,2HD1 , 100, 10, 10, 3, 3, 3 4, 2, 3, 6/ DATA E54/ 4HDUM2,4H , 54, 6208, 62, 0, 6202, 1 62, 0, 0, 0, 0, 3, 3, 2 0,2HD2 , 100, 10, 10, 3, 3, 3 4, 2, 3, 6/ DATA E55/ 4HDUM3,4H , 55, 6308, 63, 0, 6302, 1 63, 0, 0, 0, 0, 3, 3, 2 0,2HD3 , 100, 10, 10, 3, 3, 3 4, 2, 3, 6/ DATA E56/ 4HDUM4,4H , 56, 6408, 64, 0, 6402, 1 64, 0, 0, 0, 0, 3, 3, 2 0,2HD4 , 100, 10, 10, 3, 3, 3 4, 2, 3, 6/ DATA E57/ 4HDUM5,4H , 57, 6508, 65, 0, 6502, 1 65, 0, 0, 0, 0, 3, 3, 2 0,2HD5 , 100, 10, 10, 3, 3, 3 4, 2, 3, 6/ DATA E58/ 4HDUM6,4H , 58, 6608, 66, 0, 6602, 1 66, 0, 0, 0, 0, 3, 3, 2 0,2HD6 , 100, 10, 10, 3, 3, 3 4, 2, 3, 6/ DATA E59/ 4HDUM7,4H , 59, 6708, 67, 0, 6702, 1 67, 0, 0, 0, 0, 3, 3, 2 0,2HD7 , 100, 10, 10, 3, 3, 3 4, 2, 3, 6/ DATA E60/ 4HDUM8,4H , 60, 6808, 68, 0, 6802, 1 68, 0, 0, 0, 0, 3, 3, 2 0,2HD8 , 100, 10, 10, 3, 3, 3 4, 2, 3, 6/ DATA E61/ 4HDUM9,4H , 61, 6908, 69, 0, 6902, 1 69, 0, 0, 0, 0, 3, 3, 2 0,2HD9 , 100, 10, 10, 3, 3, 3 4, 1, 3, 6/ DATA E62/ 4HQDME,4HM1 , 62, 2008, 20, 7, 2202, 1 22, 4, 4, 0, 26, 3, 2, 2 2,2HM1 , 45, 8, 0, 89, 0, 3 5, 1, 0, 6/ DATA E63/ 4HQDME,4HM2 , 63, 5308, 53, 7, 5302, 1 53, 4, 4, 0, 26, 3, 2, 2 5,2HM2 , 250, 8, 17, 89, 156, 3 5, 1, 0, 6/ DATA E64/ 4HQUAD,4H4 , 64, 5408, 54, 13, 5802, 1 58, 17, 4, 0, 45, 3, 2, 2 7,2HQ4 , 2395, 17, 9, 73, 23, 3 1, 1, 2, 6/ DATA E65/ 4HIHEX,4H1 , 65, 7108, 71, 10, 7002, 1 70, 7, 8, 0, 55, 3, 4, 2 9,2HXL , 649, 22, 0, 191, 0, 3 6, 1, 4, 6/ DATA E66/ 4HIHEX,4H2 , 66, 7208, 72, 22, 7002, 1 70, 7, 20, 0, 127, 3, 4, 2 21,2HXQ , 649, 22, 0, 191, 0, 3 6, 1, 4, 6/ DATA E67/ 4HIHEX,4H3 , 67, 7308, 73, 34, 7002, 1 70, 7, 32, 0, 199, 3, 4, 2 33,2HXC , 649, 23, 0, 206, 0, 3 6, 1, 4, 6/ DATA E68/ 4HQUAD,4HTS , 68, 4108, 41, 23, 2402, 1 24, 8, 8, 0, 62, 3, 3, 2 10,2HQS , 4276, 41, 49, 0, 0, 3 2, 2, 0, 6/ DATA E69/ 4HTRIA,4HTS , 69, 5908, 59, 21, 2302, 1 23, 8, 6, 0, 52, 3, 3, 2 8,2HTS , 2490, 33, 37, 0, 0, 3 2, 2, 0, 6/ DATA E70/ 4HTRIA,4HAX , 70, 7012, 70, 6, 7032, 1 85, 17, 3, 0, 34, 3, 3, 2 5,2HTX , 250, 11, 14, 231, 252, 3 2, 2, 0, 6/ DATA E71/ 4HTRAP,4HAX , 71, 7042, 74, 7, 7052, 1 95, 17, 4, 0, 39, 3, 3, 2 6,2HT4 , 954, 47, 18, 279, 372, 3 2, 2, 0, 6/ DATA E72/ 4HAERO,4H1 , 72, 3002, 46, 6, 0, 1 0, 0, 5, 0, 0, 2, 0, 2 0,2HAE , 0, 0, 0, 0, 0, 3 0, 0, 0, 6/ DATA E73/ 4HTRIM,4H6 , 73, 6101, 81, 9, 6201, 1 82, 6, 6, 0, 43, 3, 4, 2 7,2HT6 , 233, 29, 0, 73, 0, 3 1, 1, 0, 6/ DATA E74/ 4HTRPL,4HT1 , 74, 6301, 83, 9, 6401, 1 84, 16, 6, 0, 48, 3, 2, 2 7,2HP6 , 990, 65, 16, 73, 0, 3 1, 1, 0, 6/ DATA E75/ 4HTRSH,4HL , 75, 7501, 75, 9, 7601, 1 76, 20, 6, 0, 52, 3, 2, 2 7, 2HSL, 1200, 65, 16, 73, 0, 3 1, 1, 2, 6/ DATA E76/ 4HFHEX,4H1 , 76, 9210, 92, 10, 0, 1 0, 0, 8, 0, 43, 3, 0, 2 0,2HFA , 0, 0, 0, 0, 0, 3 0, 0, 0, 1/ DATA E77/ 4HFHEX,4H2 , 77, 9310, 93, 10, 0, 1 0, 0, 8, 0, 43, 3, 0, 2 0,2HFB , 0, 0, 0, 0, 0, 3 0, 0, 0, 1/ DATA E78/ 4HFTET,4HRA , 78, 8610, 86, 6, 0, 1 0, 0, 4, 0, 23, 3, 0, 2 0,2HFT , 0, 0, 0, 0, 0, 3 0, 0, 0, 1/ DATA E79/ 4HFWED,4HGE , 79, 8710, 87, 8, 0, 1 0, 0, 6, 0, 33, 3, 0, 2 0,2HFW , 0, 0, 0, 0, 0, 3 0, 0, 0, 1/ DATA E80/ 4HIS2D,4H8 , 80, 2001, 47, 12, 2002, 1 56, 3, 8, 0, 46, 3, 3, 2 10,2HD8 , 215, 43, 0, 411, 0, 3 7, 7, 6, 6/ DATA E81/ 4HELBO,4HW , 81, 5101, 51, 8, 5102, 1 51, 24, 2, 0, 39, 3, 1, 2 15,2HEB , 126, 17, 12, 505, 481, 3 1, 1, 1, 6/ DATA E82/ 4HFTUB,4HE , 73, 8408, 84, 4, 8402, 1 84, 5, 2, 0, 16, 3, 1, 2 2,2HFT , 5, 0, 2, 0, 0, 3 1, 1, 0, 1/ DATA E83/ 4HTRIA,4H3 , 83, 9108, 91, 11, 5802, 1 58, 17, 3, 0, 39, 3, 2, 2 7,2HT3 , 713, 17, 9, 73, 23, 3 1, 1, 2, 6/ DATA E84/ 4HPSE2,4H , 84, 4302, 77, 4, 4303, 1 43, 5, 2, 0, 16, 3, 0, 2 0,2HP1 , 0, 0, 0, 0, 0, 3 1, 1, 1, 6/ DATA E85/ 4HPSE3,4H , 85, 4802, 48, 5, 4303, 1 43, 5, 3, 0, 21, 3, 0, 2 0,2HP2 , 0, 0, 0, 0, 0, 3 1, 1, 1, 6/ DATA E86/ 4HPSE4,4H , 86, 4902, 94, 6, 4303, 1 43, 5, 4, 0, 26, 3, 0, 2 0,2HP3 , 0, 0, 0, 0, 0, 3 1, 1, 1, 6/ C C C COMPLX DESCRIBES THE MANNER IN WHICH THE TWO PARTS OF COMPLEX C STRESSES AND FORCES ARE RELATED TO EACH OTHER. ANY ELEMENT WHICH C HAS COMPLEX STRESS OR FORCE OUTPUT POINTS TO A STRING WITH WORDS C 20 AND 21 OF ITS ELEMENT ENTRY. THE COMPLX TABLE IS USED IN SDR2 C AND DDRMM, WHICH ARE IN LINKS 13 AND 12 RESPECTIVELY C C EACH STRING IS DEFINDED AS FOLLOWS C 0 TERMINATES THE FORMAT STRING C -N PUT INTO PRINT BUFFER THE REAL PART OF PAIR C +N (AND N.LE.I) PUT BOTH REAL AND IMAGINARY PARTS INTO BUFFER C +N (AND N.GT.I) PUT IMAGINARY PART ONLY INTO PRINT BUFFER C WHERE I = THE LENGTH OF STRING IN WORD 18 (REAL-STRESS) C OR 19 (REAL-FORCE) PLUS 1 C DATA COMP1/ 1, -2, -3, -4, -5, -6, 8, 9, 10, 11 1 , 12, 0, 1, -2, 5, -3, 6, 0, 1, -2 2 , 4, 0, 1, -2, -3, -4, -5, -6, -7, -8 3 , -9, 11, 12, 13, 14, 15, 16, 17, 18, 0 4 , 1, -2, 7, -4, 9, 0, 1, -2, -3, 6 5 , 7, 0, 1, -2, -3, -4, -5, -6, 18, 19 6 , 20, 21, 22, -10, -11, -12, -13, 26, 27, 28 7 , 29, 0, 1, 2, -3, 20, -4, 21, -5, 22 8 , 10, -11, 28, -12, 29, -13, 30, 0, 1, -2 9 , -3, -4, 10, 11, 12, 0, 1, -2, -3, -4 / DATA COMP2/ -5, -6, -7, 11, 12, 13, 14, 15, 16, 0 1 , 1, -2, -3, -4, -5, 7, 8, 9, 10, 0 2 , 0, 1, -2, -3, -4, -5, -6, -7, -8, -9 3 , -10, 12, 13, 14, 15, 16, 17, 18, 19, 20 4 , 0, 1, -2, -3, -4, -5, -6, -7, 9, 10 5 , 11, 12, 13, 14, 0, 1, -2, -3, -4, -5 6 , -6, -7, -8, -9, 19, 20, 21, 22, 23, 24 7 , 25, 26, -10, -11, -12, -13, -14, -15, -16, -17 8 , 27, 28, 29, 30, 31, 32, 33, 34, 0, 0 9 , 1, 2, -3, -11, -17, -4, -12, -18, 25, 33 / DATA COMP3/ 39, 26, 34, 40, 0, 1, 2, -3, -12, -18 1 , -4, -13, -19, 11, 26, 35, 41, 27, 36, 42 2 , 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 3 , 1, 2, -3, -4, -5, -6, -7, -8, -9, -10 4 , -11, 14, 15, 16, 17, 18, 19, 20, 21, 22 5 , 0, 1, 2, -3, -4, -5, -6, 17, 18, 19 6 , 20, -7, -8, -9, -10, 21, 22, 23, 24, -11 7 , -12, -13, -14, 25, 26, 27, 28, 0, 1, 2 8 , -3, -4, -5, -6, -7, -8, -9, -10, -11, 50 9 , 51, 52, 53, 54, 55, 56, 57, 58, -12, -13 / DATA COMP4/-14, -15, -16, -17, -18, -19, -20, 59, 60, 61 1 , 62, 63, 64, 65, 66, 67, -21, -22, -23, -24 2 , -25, -26, -27, -28, -29, 68, 69, 70, 71, 72 3 , 73, 74, 75, 76, -30, -31, -32, -33, -34, -35 4 , -36, -37, -38, 77, 78, 79, 80, 81, 82, 83 5 , 84, 85, -39, -40, -41, -42, -43, -44, -45, -46 6 , -47, 86, 87, 88, 89, 90, 91, 92, 93, 94 7 , 0, 1, 2, -3, -4, -5, -6, 21, 22, 23 8 , 24, -7, -8, -9, -10, 25, 26, 27, 28, -11 9 , -12, -13, -14, 29, 30, 31, 32, -15, -16, -17 / DATA COMP5/-18, 33, 34, 35, 36, 0, 0, 0, 0, 0 1 , 1, 2, 3, 4, 5, -6, 49, -7, 50, -8 2 , 51, 9, 10, -11, 54, -12, 55, -13, 56, 14 3 , 15, -16, 59, -17, 60, -18, 61, 19, 20, -21 4 , 64, -22, 65, -23, 66, 24, 25, -26, 69, -27 5 , 70, -28, 71, 29, 30, -31, 74, -32, 75, -33 6 , 76, 34, 35, -36, 79, -37, 80, -38, 81, 39 7 , 40, -41, 84, -42, 85, -43, 86, 0, 0, 0 8 , 1, -2, -3, -4, -5, -6, -7, 14, 15, 16 9 , 17, 18, 19, -8, -9, -10, -11, -12, 20, 21 / DATA COMP6/ 22, 23, 24, 0, 1, -2, -3, -4, -5, -6 1 , 19, 20, 21, 22, 23, -10, -11, -12, -13, -14 2 , 27, 28, 29, 30, 31, 0, 0, 0, 0, 0 / END ================================================ FILE: bd/ifp3bd.f ================================================ BLOCK DATA IFP3BD CIFP3BD C B L O C K D A T A F O R I F P 3 C C INTEGER FILE ,INAME ,CDTYPE INTEGER AXIC1 ,CCONEX ,FORCEX INTEGER FORCE ,GRAV ,LOAD INTEGER MOMAX ,MOMENT ,MPCADD INTEGER MPCAX ,OMITAX ,POINTX INTEGER PRESAX ,RINGAX ,SECTAX INTEGER SEQGP ,SPCAX ,SUPAX INTEGER TEMPAX ,TEMPD ,PLOAD INTEGER MPC ,SPC ,GRID INTEGER SUPORT ,NEG111 ,T65535 INTEGER TEMP ,OMIT ,SPCADD INTEGER ONE ,ZERO INTEGER CTRIAA ,CTRAPA INTEGER RFORCE C COMMON /IFP3CM / FILE(6) ,INAME(12) ,CDTYPE(50) 1 ,AXIC1(3) ,CCONEX(3) ,FORCEX(3) 2 ,FORCE(3) ,GRAV(3) ,LOAD(3) 3 ,MOMAX(3) ,MOMENT(3) ,MPCADD(3) 4 ,MPCAX(3) ,OMITAX(3) ,POINTX(3) 5 ,PRESAX(3) ,RINGAX(3) ,SECTAX(3) 6 ,SEQGP(3) ,SPCAX(3) ,SUPAX(3) 7 ,TEMPAX(3) ,TEMPD(3) ,PLOAD(3) 8 ,MPC(3) ,SPC(3) ,GRID(3) 9 ,SUPORT(3) ,NEG111(3) ,T65535(3) T ,TEMP(3) ,OMIT(3) ,SPCADD(3) 1 ,ONE ,ZERO ,IHEADB(96) 2 ,CTRIAA(3) ,CTRAPA(3) ,ICONSO 3 ,RFORCE(3) C DATA ONE/1/ , ZERO/0/ C DATA FILE ( 1), FILE ( 2) / 201 , 208 / DATA FILE ( 3), FILE ( 4) / 209 , 210 / DATA FILE ( 5), FILE ( 6) / 301 , 215 / C DATA INAME ( 1), INAME ( 2) / 4HGEOM, 4H1 / DATA INAME ( 3), INAME ( 4) / 4HGEOM, 4H2 / DATA INAME ( 5), INAME ( 6) / 4HGEOM, 4H3 / DATA INAME ( 7), INAME ( 8) / 4HGEOM, 4H4 / DATA INAME ( 9), INAME (10) / 4HSCRT, 4HCH / DATA INAME (11), INAME (12) / 4HAXIC, 4H / C DATA CDTYPE( 1), CDTYPE( 2) / 4HAXIC, 4H / DATA CDTYPE( 3), CDTYPE( 4) / 4HCCON, 4HEAX / DATA CDTYPE( 5), CDTYPE( 6) / 4HFORC, 4HEAX / DATA CDTYPE( 7), CDTYPE( 8) / 4HFORC, 4HE / DATA CDTYPE( 9), CDTYPE(10) / 4HGRAV, 4H / DATA CDTYPE(11), CDTYPE(12) / 4HLOAD, 4H / DATA CDTYPE(13), CDTYPE(14) / 4HMOMA, 4HX / DATA CDTYPE(15), CDTYPE(16) / 4HMOME, 4HNT / DATA CDTYPE(17), CDTYPE(18) / 4HMPCA, 4HDD / DATA CDTYPE(19), CDTYPE(20) / 4HMPCA, 4HX / DATA CDTYPE(21), CDTYPE(22) / 4HOMIT, 4HAX / DATA CDTYPE(23), CDTYPE(24) / 4HPOIN, 4HTAX / DATA CDTYPE(25), CDTYPE(26) / 4HPRES, 4HAX / DATA CDTYPE(27), CDTYPE(28) / 4HRING, 4HAX / DATA CDTYPE(29), CDTYPE(30) / 4HSECT, 4HAX / DATA CDTYPE(31), CDTYPE(32) / 4HSEQG, 4HP / DATA CDTYPE(33), CDTYPE(34) / 4HSPCA, 4HDD / DATA CDTYPE(35), CDTYPE(36) / 4HSPCA, 4HX / DATA CDTYPE(37), CDTYPE(38) / 4HSUPA, 4HX / DATA CDTYPE(39), CDTYPE(40) / 4HTEMP, 4HAX / DATA CDTYPE(41), CDTYPE(42) / 4HTEMP, 4HD / DATA CDTYPE(43), CDTYPE(44) / 4HCTRI, 4HAAX / DATA CDTYPE(45), CDTYPE(46) / 4HCTRA, 4HPAX / DATA CDTYPE(47), CDTYPE(48) / 4HRFOR, 4HCE / C DATA AXIC1 /515 ,5 ,0 / DATA CCONEX /8515 ,85 ,0 / DATA FORCEX /2115 ,21 ,0 / DATA FORCE /4201 ,42 ,0 / DATA GRAV /4401 ,44 ,0 / DATA LOAD /4551 ,61 ,0 / DATA MOMAX /3815 ,38 ,0 / DATA MOMENT /4801 ,48 ,0 / DATA MPCADD /4891 ,60 ,0 / DATA MPCAX /4015 ,40 ,0 / DATA OMITAX /4315 ,43 ,0 / DATA POINTX /4915 ,49 ,0 / DATA PRESAX /5215 ,52 ,0 / DATA RINGAX /5615 ,56 ,0 / DATA SECTAX /6315 ,63 ,0 / DATA SEQGP /5301 ,53 ,0 / DATA SPCAX /6215 ,62 ,0 / DATA SUPAX /6415 ,64 ,0 / DATA TEMPAX /6815 ,68 ,0 / DATA TEMPD /5641 ,65 ,0 / DATA PLOAD /5101 ,51 ,0 / DATA MPC /4901 ,49 ,0 / DATA SPC /5501 ,55 ,0 / DATA GRID /4501 ,45 ,0 / DATA SUPORT /5601 ,56 ,0 / DATA TEMP /5701 ,57 ,0 / DATA OMIT /5001 ,50 ,0 / DATA SPCADD /5491 ,59 ,0 / DATA CTRIAA /7012 ,70 ,0 / DATA CTRAPA /7042 ,74 ,0 / DATA RFORCE /5509 ,55 ,0 / DATA ICONSO / 0 / DATA NEG111 /-1 ,-1 ,-1 / DATA T65535/ 65535, 65535, 65535 / DATA IHEADB / 1 4HI N ,4HP U ,4HT ,4HD A ,4HT A ,4H E 2 ,4HR R ,4HO R ,4HS ,4HD E ,4HT E ,4HC T 3 ,4HE D ,4H B ,4HY ,4HI F ,4HP 3 ,4H 4 ,4H ,4H ,4H ,4H ,4H ,4H 5 ,4H ,4H ,4H ,4H ,4H ,4H 6 ,4H ,4H ,4H ,4H (AX,4HIS-S,4HYMME 7 ,4HTRIC,4H CON,4HICAL,4H SHE,4HLL D,4HATA 8 ,4HPROC,4HESSO,4HR-GE,4HNERA,4HTOR),4H 9 ,4H ,4H ,4H ,4H ,4H ,4H T ,4H ,4H ,4H ,4H ,4H ,4H 1 ,4H ,4H ,4H ,4H ,4H ,4H === 2 ,4H====,4H====,4H====,4H====,4H====,4H==== 3 ,4H====,4H====,4H====,4H====,4H====,4H==== 4 ,4H====,4H ,4H ,4H ,4H ,4H 5 ,4H ,4H ,4H ,4H ,4H ,4H 6 ,4H ,4H ,4H ,4H ,4H ,4H / C END ================================================ FILE: bd/ifx1bd.f ================================================ BLOCK DATA IFX1BD CIFX1BD C DEFINITION OF VARIABLES IN /IFPX1/ AND /IFPX0/ C***** C C COMMON /IFPX1/ C -------------- C C N = TOTAL NUMBER OF PAIRED ENTRIES IN THE IBD AND C IPR ARRAYS C = (TOTAL DIMENSION OF IBD + ACTIVE IPR ARRAYS)/2 C C IBD ARRAYS = ARRAYS CONTAINING PAIRED ENTRIES OF BULK DATA C CARD NAMES C C IPR ARRAYS = ARRAYS CONTAINING PAIRED ENTRIES OF BULK DATA C PARAMETER NAMES C C CAUTION 1 -- THE TOTAL DIMENSION OF THE IBD AND IPR ARRAYS C MUST BE A MULTIPLE OF 62 (OR, IN OTHER WORDS, C AN EVEN MULTIPLE OF 31) C C SEE NOTES 1 AND 2 BELOW C C ICC ARRAYS = ARRAYS CONTAINING PAIRED ENTRIES OF CASE CONTROL C FLAG NAMES FOR USE IN RESTART RUNS C C CAUTION 2 -- THE TOTAL DIMENSION OF THE ICC ARRAYS MUST BE A C MULTIPLE OF 62 (OR, IN OTHER WORDS, AN EVEN C MULTIPLE OF 31) C C SEE NOTE 3 BELOW C C NOTES C ----- C C 1. IF NEW BULK DATA CARD NAMES ARE TO BE ADDED, C USE THE EXISTING PADDING WORDS (OF THE 4H**** C TYPE) IN THE IBD ARRAYS. IF NECESSARY, EXPAND C THE IBD ARRAYS KEEPING CAUTION 1 IN MIND. C C 2. IF NEW BULK DATA PARAMETER NAMES ARE TO BE ADDED, C USE THE EXISTING PADDING WORDS (OF THE 4H**** C TYPE) IN THE IPR ARRAYS. IF NECESSARY, EXPAND C THE IPR ARRAYS KEEPING CAUTION 1 IN MIND. C C 3. IF NEW CASE CONTROL FLAG NAMES ARE TO BE ADDED, C USE THE EXISTING PADDING WORDS (OF THE 4H**** C TYPE) IN THE ICC ARRAYS. IF NECESSARY, EXPAND C THE ICC ARRAYS KEEPING CAUTION 2 IN MIND. C C 4. THE IBD ARRAYS ARE IN SYSCHRONIZTION WITH THE I ARRAY C IN IFX2BD, IFX3BD, IFX4BD, IFX5BD, AND IFX6BD C (E.G. CONM1 POSITIONS IN IBD2, CONTINUATION 3, THE DA C FOR CONM1 IN IFX2BD IS IN I2, CONTINUATION 3 CARD) C***** C C COMMON /IFPX0/ C -------------- C C LBDPR = (TOTAL DIMENSION OF THE IBD AND IPR ARRAYS)/62 C C LCC = (TOTAL DIMENSION OF THE ICC ARRAYS)/62 C C IWRDS = ARRAY WHOSE DIMENSION IS EQUAL TO (LBDPR + LCC). C ALL (LBDPR + LCC) WORDS IN THE ARRAY INITIALLY C SET TO ZERO. C C IPARPT = POINTER THAT POINTS TO THE PAIRED ENTRY IN THE C IBD AND IPR ARRAYS THAT CONTAINS THE FIRST C BULK DATA PARAMETER NAME. AS PER THE DIFINITIONS C OF THE VARIABLES IN COMMON /IFPX1/, THIS POINTS C TO THE FIRST WORD OF THE IPR1 ARRAY. HENCE, WE C HAVE -- C C IPARPT = 1 + (TOTAL DIMENSION OF IBD ARRAYS)/2 C COMMON /IFPX0 / LBDPR , LCC , IWRDS(18), IPARPT COMMON /IFPX1 / N, IBD1(100), IBD2(100), IBD3(100), IBD4(100), 1 IBD5(100), IBD6(100), IBD7(100), IBD8(100), 2 IPR1(100), IPR2( 92), 3 ICC1(100), ICC2( 24) C C***** C INITIALIZATION OF VARIABLES IN COMMON /IFPX1/ C***** C DATA N / 496 / C***** C THE IBD ARRAYS CONTAIN PAIRED ENTRIES OF BULK DATA CARD NAMES C***** DATA IBD1 / 1 4HGRID,4H , 4HGRDS,4HET , 4HADUM,4H1 , 4HSEQG,4HP , * 4HCORD,4H1R , 4HCORD,4H1C , 4HCORD,4H1S , 4HCORD,4H2R , * 4HCORD,4H2C , 4HCORD,4H2S , 4HPLOT,4HEL , 4HSPC1,4H , 3 4HSPCA,4HDD , 4HSUPO,4HRT , 4HOMIT,4H , 4HSPC ,4H , * 4HMPC ,4H , 4HFORC,4HE , 4HMOME,4HNT , 4HFORC,4HE1 , * 4HMOME,4HNT1 , 4HFORC,4HE2 , 4HMOME,4HNT2 , 4HPLOA,4HD , 5 4HSLOA,4HD , 4HGRAV,4H , 4HTEMP,4H , 4HGENE,4HL , * 4HPROD,4H , 4HPTUB,4HE , 4HPVIS,4HC , 4HADUM,4H2 , * 4HPTRI,4HA1 , 4HPTRI,4HA2 , 4HPTRB,4HSC , 4HPTRP,4HLT , 7 4HPTRM,4HEM , 4HPQUA,4HD1 , 4HPQUA,4HD2 , 4HPQDP,4HLT , * 4HPQDM,4HEM , 4HPSHE,4HAR , 4HPTWI,4HST , 4HPMAS,4HS , * 4HPDAM,4HP , 4HPELA,4HS , 4HCONR,4HOD , 4HCROD,4H , 9 4HCTUB,4HE , 4HCVIS,4HC / DATA IBD2 / 1 4HADUM,4H3 , 4HCTRI,4HA1 , 4HCTRI,4HA2 , 4HCTRB,4HSC , * 4HCTRP,4HLT , 4HCTRM,4HEM , 4HCQUA,4HD1 , 4HCQUA,4HD2 , * 4HCQDP,4HLT , 4HCQDM,4HEM , 4HCSHE,4HAR , 4HCTWI,4HST , 3 4HCONM,4H1 , 4HCONM,4H2 , 4HCMAS,4HS1 , 4HCMAS,4HS2 , * 4HCMAS,4HS3 , 4HCMAS,4HS4 , 4HCDAM,4HP1 , 4HCDAM,4HP2 , * 4HCDAM,4HP3 , 4HCDAM,4HP4 , 4HCELA,4HS1 , 4HCELA,4HS2 , 5 4HCELA,4HS3 , 4HCELA,4HS4 , 4HMAT1,4H , 4HMAT2,4H , * 4HCTRI,4HARG , 4HCTRA,4HPRG , 4HDEFO,4HRM , 4HPARA,4HM , * 4HMPCA,4HDD , 4HLOAD,4H , 4HEIGR,4H , 4HEIGB,4H , 7 4HEIGC,4H , 4HADUM,4H4 , 4H ,4H , 4HMATS,4H1 , * 4HMATT,4H1 , 4HOMIT,4H1 , 4HTABL,4HEM1 , 4HTABL,4HEM2 , * 4HTABL,4HEM3 , 4HTABL,4HEM4 , 4HTABL,4HES1 , 4HTEMP,4HD , 9 4HADUM,4H5 , 4HADUM,4H6 / DATA IBD3 / 1 4HADUM,4H7 , 4HMATT,4H2 , 4HADUM,4H8 , 4HCTOR,4HDRG , * 4HSPOI,4HNT , 4HADUM,4H9 , 4HCDUM,4H1 , 4HCDUM,4H2 , * 4HCDUM,4H3 , 4HCDUM,4H4 , 4HCDUM,4H5 , 4HCDUM,4H6 , 3 4HCDUM,4H7 , 4HCDUM,4H8 , 4HCDUM,4H9 , 4HPDUM,4H1 , * 4HPDUM,4H2 , 4HPDUM,4H3 , 4HDMI ,4H , 4HDMIG,4H , * 4HPTOR,4HDRG , 4HMAT3,4H , 4HDLOA,4HD , 4HEPOI,4HNT , 5 4HFREQ,4H1 , 4HFREQ,4H , 4HNOLI,4HN1 , 4HNOLI,4HN2 , * 4HNOLI,4HN3 , 4HNOLI,4HN4 , 4HRLOA,4HD1 , 4HRLOA,4HD2 , * 4HTABL,4HED1 , 4HTABL,4HED2 , 4HSEQE,4HP , 4HTF ,4H , 7 4HTIC ,4H , 4HTLOA,4HD1 , 4HTLOA,4HD2 , 4HTABL,4HED3 , * 4HTABL,4HED4 , 4HTSTE,4HP , 4HDSFA,4HCT , 4HAXIC,4H , * 4HRING,4HAX , 4HCCON,4HEAX , 4HPCON,4HEAX , 4HSPCA,4HX , 9 4HMPCA,4HX , 4HOMIT,4HAX / DATA IBD4 / 1 4HSUPA,4HX , 4HPOIN,4HTAX , 4HSECT,4HAX , 4HPRES,4HAX , * 4HTEMP,4HAX , 4HFORC,4HEAX , 4HMOMA,4HX , 4HEIGP,4H , * 4HPDUM,4H4 , 4HPDUM,4H5 , 4HPDUM,4H6 , 4HTABD,4HMP1 , 3 4HPDUM,4H7 , 4HPDUM,4H8 , 4HPDUM,4H9 , 4HFREQ,4H2 , * 4HCONC,4HT1 , 4HCONC,4HT , 4HTRAN,4HS , 4HRELE,4HS , * 4HLOAD,4HC , 4HSPCS,4HD , 4HSPCS,4H1 , 4HSPCS,4H , 5 4HBDYC,4H , 4HMPCS,4H , 4HBDYS,4H , 4HBDYS,4H1 , * 4HBARO,4HR , 4HCBAR,4H , 4HPBAR,4H , 4HDARE,4HA , * 4HDELA,4HY , 4HDPHA,4HSE , 4HPLFA,4HCT , 4HGNEW,4H , 7 4HGTRA,4HN , 4HTABR,4HNDG , 4HMATT,4H3 , 4HRFOR,4HCE , * 4HTABR,4HND1 , 4HPLOA,4HD4 , 4HUSET,4H , 4HUSET,4H1 , * 4HRAND,4HPS , 4HRAND,4HT1 , 4HRAND,4HT2* , 4HPLOA,4HD1 , 9 4HPLOA,4HD2 , 4HDTI ,4H / DATA IBD5 / 1 4HTEMP,4HP1 , 4HTEMP,4HP2 , 4HTEMP,4HP3 , 4HTEMP,4HRB , * 4HGRID,4HB , 4HFSLI,4HST , 4HRING,4HFL , 4HPRES,4HPT , * 4HCFLU,4HID2 , 4HCFLU,4HID3 , 4HCFLU,4HID4 , 4HAXIF,4H , 3 4HBDYL,4HIST , 4HFREE,4HPT , 4HASET,4H , 4HASET,4H1 , * 4HCTET,4HRA , 4HCWED,4HGE , 4HCHEX,4HA1 , 4HCHEX,4HA2 , * 4HDMIA,4HX , 4HFLSY,4HM , 4HAXSL,4HOT , 4HCAXI,4HF2 , 5 4HCAXI,4HF3 , 4HCAXI,4HF4 , 4HCSLO,4HT3 , 4HCSLO,4HT4 , * 4HGRID,4HF , 4HGRID,4HS , 4HSLBD,4HY , 4HCHBD,4HY , * 4HQHBD,4HY , 4HMAT4,4H , 4HMAT5,4H , 4HPHBD,4HY , 7 4HMATT,4H4 , 4HMATT,4H5 , 4HQBDY,4H1 , 4HQBDY,4H2 , * 4HQVEC,4HT , 4HQVOL,4H , 4HRADL,4HST , 4HRADM,4HTX , * 4HSAME,4H , 4HNOSA,4HME , 4HINPU,4HT , 4HOUTP,4HUT , 9 4HCQDM,4HEM1 , 4HPQDM,4HEM1 / DATA IBD6 / 1 4HCIHE,4HX1 , 4HCIHE,4HX2 , 4HCIHE,4HX3 , 4HPIHE,4HX , * 4HPLOA,4HD3 , 4HSPCD,4H , 4HCYJO,4HIN , 4HCNGR,4HNT , * 4HCQDM,4HEM2 , 4HPQDM,4HEM2 , 4HCQUA,4HD4 , 4HMAT8,4H , 3 4HCAER,4HO1 , 4HPAER,4HO1 , 4HAERO,4H , 4HSPLI,4HNE1 , * 4HSPLI,4HNE2 , 4HSET1,4H , 4HSET2,4H , 4HMKAE,4HRO2 , * 4HMKAE,4HRO1 , 4HFLUT,4HTER , 4HAEFA,4HCT , 4HFLFA,4HCT , 5 4HCBAR,4HAO , 4HPLIM,4HIT , 4HPOPT,4H , 4HPLOA,4HDX , * 4HCRIG,4HD1 , 4HPCOM,4HP , 4HPCOM,4HP1 , 4HPCOM,4HP2 , * 4HPSHE,4HLL , 4HCRIG,4HD2 , 4HCTRI,4HAAX , 4HPTRI,4HAAX , 7 4HCTRA,4HPAX , 4HPTRA,4HPAX , 4HVIEW,4H , 4HVARI,4HAN , * 4HCTRI,4HM6 , 4HPTRI,4HM6 , 4HCTRP,4HLT1 , 4HPTRP,4HLT1 , * 4HTEMP,4HG , 4HTEMP,4HP4 , 4HCRIG,4HDR , 4HCRIG,4HD3 , 9 4HCTRS,4HHL , 4HPTRS,4HHL / DATA IBD7 / 1 4HCAER,4HO2 , 4HCAER,4HO3 , 4HCAER,4HO4 , 4HPAER,4HO2 , * 4HPAER,4HO3 , 4HPAER,4HO4 , 4HSPLI,4HNE3 , 4HGUST,4H , * 4HCAER,4HO5 , 4HPAER,4HO5 , 4HDARE,4HAS , 4HDELA,4HYS , 3 4HDPHA,4HSES , 4HTICS,4H , 4HMATP,4HZ1 , 4HMATP,4HZ2 , * 4HMTTP,4HZ1 , 4HMTTP,4HZ2 , 4HMAT6,4H , 4HMATT,4H6 , * 4HCEML,4HOOP , 4HSPCF,4HLD , 4HCIS2,4HD8 , 4HPIS2,4HD8 , 5 4HGEML,4HOOP , 4HREMF,4HLUX , 4HBFIE,4HLD , 4HMDIP,4HOLE , * 4HPROL,4HATE , 4HPERM,4HBDY , 4HCFFR,4HEE , 4HCFLS,4HTR , * 4HCFHE,4HX1 , 4HCFHE,4HX2 , 4HCFTE,4HTRA , 4HCFWE,4HDGE , 7 4HMATF,4H , 4HCELB,4HOW , 4HPELB,4HOW , 4HNOLI,4HN5 , * 4HNOLI,4HN6 , 4HCFTU,4HBE , 4HPFTU,4HBE , 4HNFTU,4HBE , * 4HSTRE,4HAML1, 4HSTRE,4HAML2, 4HCRRO,4HD , 4HCRBA,4HR , 9 4HCRTR,4HPLT , 4HCRBE,4H1 / DATA IBD8 / 1 4HCRBE,4H2 , 4HCRBE,4H3 , 4HCRSP,4HLINE, 4HCTRI,4HA3 , * 4HTABL,4HEM5 , 4HCPSE,4H2 , 4HCPSE,4H3 , 4HCPSE,4H4 , * 4HPPSE,4H , 82*4H**** / C***** C THE IPR ARRAYS CONTAIN PAIRED ENTRIES OF BULK DATA PARAMETER NAMES C***** DATA IPR1 / 1 4HGRDP,4HNT , 4HWTMA,4HSS , 4HIRES,4H , 4HLFRE,4HQ , 5 4HHFRE,4HQ , 4HLMOD,4HES , 4HG ,4H , 4HW3 ,4H , 9 4HW4 ,4H , 4HMODA,4HCC , 4HCOUP,4HMASS, 4HCPBA,4HR , 3 4HCPRO,4HD , 4HCPQU,4HAD1 , 4HCPQU,4HAD2 , 4HCPTR,4HIA1 , 7 4HCPTR,4HIA2 , 4HCPTU,4HBE , 4HCPQD,4HPLT , 4HCPTR,4HPLT , 1 4HCPTR,4HBSC , 4HMAXI,4HT , 4HEPSH,4HT , 4HTABS,4H , 5 4HSIGM,4HA , 4HBETA,4H , 4HRADL,4HIN , 4HBETA,4HD , 9 4HNT ,4H , 4HEPSI,4HO , 4HCTYP,4HE , 4HNSEQ,4HS , 3 4HNLOA,4HD , 4HCYCI,4HO , 4HCYCS,4HEQ , 4HKMAX,4H , 7 4HKIND,4HEX , 4HNODJ,4HE , 4HP1 ,4H , 4HP2 ,4H , 1 4HP3 ,4H , 4HVREF,4H , 4HPRIN,4HT , 4HISTA,4HRT , 5 4HKDAM,4HP , 4HGUST,4HAERO, 4HIFTM,4H , 4HMACH,4H , 9 4HQ ,4H , 4HHOPT,4H / DATA IPR2 / 1 4HGRDE,4HQ , 4HSTRE,4HSS , 4HSTRA,4HIN , 4HNINT,4HPTS , 5 4HASET,4HOUT , 4HAUTO,4HSPC , 4HVOLU,4HME , 4HSURF,4HACE , 9 4HKTOU,4HT , 4HAPRE,4HSS , 4HATEM,4HP , 4HSTRE,4HAML , 3 4HPGEO,4HM , 4HSIGN,4H , 4HZORI,4HGN , 4HFXCO,4HOR , 7 4HFYCO,4HOR , 4HFZCO,4HOR , 4HKGGI,4HN , 4HIREF,4H , 1 4HMINM,4HACH , 4HMAXM,4HACH , 4HMTYP,4HE , 4H****,4H****, 5 44*4H**** / C***** C THE ICC ARRAYS CONTAIN PAIRED ENTRIES OF CASE CONTROL FLAG NAMES C FOR USE IN RESTART RUNS C***** DATA ICC1 / 1 4HMPC$,4H , 4HSPC$,4H , 4HLOAD,4H$ , 4HMETH,4HOD$ , 5 4HDEFO,4HRM$ , 4HTEMP,4HLD$ , 4HTEMP,4HMT$ , 4HIC$ ,4H , 9 4HAOUT,4H$ , 4HLOOP,4H$ , 4HLOOP,4H1$ , 4HDLOA,4HD$ , 3 4HFREQ,4H$ , 4HTF$ ,4H , 4HPLOT,4H$ , 4HTSTE,4HP$ , 7 4HPOUT,4H$ , 4HTEMP,4HMX$ , 4HDSCO,4H$ , 4HK2PP,4H$ , 1 4HM2PP,4H$ , 4HB2PP,4H$ , 4HCMET,4HHOD$, 4HSDAM,4HP$ , 5 4HPLCO,4H$ , 4HNLFO,4HRCE$, 4HXYOU,4HT$ , 4HFMET,4HHOD$, 9 4HRAND,4HOM$ , 4HAXYO,4HUT$ , 4HNOLO,4HOP$ , 4HGUST,4H$ , 3 4HQOUT,4H$ , 4HBOUT,4H$ , 7 32*4H**** / DATA ICC2 / 1 24*4H**** / C C***** C INITIALIZATION OF VARIABLES IN COMMON /IFPX0/ C***** C C THE VALUES ASSIGNED BELOW TO THE VARIABLES IN COMMON /IFPX0/ C ARE AS PER THEIR DEFINITIONS GIVEN EARLIER IN THE COMMENTS C AND ARE DERIVED FROM THE COMMON /IFPX1/ INFORMATION C***** DATA LBDPR, LCC, IWRDS, IPARPT /16, 2, 18*0, 401/ C END ================================================ FILE: bd/ifx2bd.f ================================================ BLOCK DATA IFX2BD CIFX2BD C C PAIRS OF TWO WORDS C SECOND WORD IS APPROACH ACCEPTANCE FLAG, INITIALIZED TO ZERO C FIRST WORD IS GINO OUTPUT FILE DESIGNATION - C 1 GOES TO GEOM1 C 2 GOES TO EPT C 3 GOES TO MPT C 4 GOES TO EDT C 5 GOES TO DIT C 6 GOES TO CASECC C 7 GOES TO DYNAMIC C 8 GOES TO GEOM2 C 9 GOES TO GEOM3 C 10 GOES TO GEOM4 C 11 GOES TO GEOM5 C (12 DOES NOT EXIST, USED ONLY BY DMI AND DTI CARDS) C 13 GOES TO FORCE C 14 GOES TO MATPOOL C 15 GOES TO AXIC C COMMON /IFPX2/ I1(100),I2(100),I3(100),I4(100),I5(100), 1 I6(100),I7(100),I8( 40) DATA I1/ 1 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, * 1, 0, 1, 0, 1, 0, 1, 0, 8, 0, 10, 0, 3 10, 0, 10, 0, 10, 0, 10, 0, 10, 0, 9, 0, * 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 5 9, 0, 9, 0, 9, 0, 8, 0, 2, 0, 2, 0, * 2, 0, 1, 0, 2, 0, 2, 0, 2, 0, 2, 0, 7 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, * 2, 0, 2, 0, 2, 0, 2, 0, 8, 0, 8, 0, 9 8, 0, 8, 0/ DATA I2/ 1 1, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, * 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 3 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, * 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 5 8, 0, 8, 0, 3, 0, 3, 0, 8, 0, 8, 0, * 4, 0, 6, 0, 10, 0, 9, 0, 7, 0, 7, 0, 7 7, 0, 1, 0, 1, 0, 3, 0, 3, 0, 10, 0, * 5, 0, 5, 0, 5, 0, 5, 0, 5, 0, 9, 0, 9 1, 0, 1, 0/ DATA I3/ 1 1, 0, 3, 0, 1, 0, 8, 0, 8, 0, 1, 0, * 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 3 8, 0, 8, 0, 8, 0, 2, 0, 2, 0, 2, 0, * 12, 0, 14, 0, 2, 0, 3, 0, 7, 0, 7, 0, 5 7, 0, 7, 0, 7, 0, 7, 0, 7, 0, 7, 0, * 7, 0, 7, 0, 5, 0, 5, 0, 7, 0, 7, 0, 7 7, 0, 7, 0, 7, 0, 5, 0, 5, 0, 7, 0, * 3, 0, 15, 0, 15, 0, 15, 0, 2, 0, 15, 0, 9 15, 0, 15, 0/ DATA I4/ 1 15, 0, 15, 0, 15, 0, 15, 0, 15, 0, 15, 0, * 15, 0, 7, 0, 2, 0, 2, 0, 2, 0, 5, 0, 3 2, 0, 2, 0, 2, 0, 7, 0, 10, 0, 10, 0, * 10, 0, 10, 0, 10, 0, 10, 0, 10, 0, 10, 0, 5 10, 0, 10, 0, 10, 0, 10, 0, 8, 0, 8, 0, * 2, 0, 7, 0, 7, 0, 7, 0, 3, 0, 10, 0, 7 10, 0, 5, 0, 3, 0, 9, 0, 5, 0, 9, 0, * 10, 0, 10, 0, 7, 0, 7, 0, 7, 0, 9, 0, 9 9, 0, 12, 0/ DATA I5/ 1 9, 0, 9, 0, 9, 0, 9, 0, 15, 0, 15, 0, * 15, 0, 15, 0, 15, 0, 15, 0, 15, 0, 15, 0, 3 15, 0, 15, 0, 10, 0, 10, 0, 8, 0, 8, 0, * 8, 0, 8, 0, 14, 0, 15, 0, 15, 0, 8, 0, 5 8, 0, 8, 0, 8, 0, 8, 0, 15, 0, 15, 0, * 15, 0, 8, 2, 9, 2, 3, 0, 3, 0, 2, 0, 7 3, 0, 3, 0, 9, 0, 9, 0, 9, 0, 9, 0, * 14, 0, 14, 0, 10, 0, 10, 0, 11, 0, 11, 0, 9 8, 0, 2, 0/ DATA I6/ 1 8, 0, 8, 0, 8, 0, 2, 0, 9, 0, 10, 0, * 10, 0, 8, 0, 8, 0, 2, 0, 8, 0, 3, 0, 3 4,-2, 4,-2, 4,-2, 4,-2, 4,-2, 4,-2, * 4,-2, 4,-2, 4,-2, 4,-2, 4,-2, 4,-2, 5 8, 0, 3, 0, 3, 0, 9, 0, 10,-2, 2, 0, * 2, 0, 2, 0, 2, 0, 10,-2, 15,-2, 2,-2, 7 15,-2, 2,-2, 2, 0, 4, 0, 8,-2, 2,-2, * 8,-2, 2,-2, 9,-2, 9,-2, 10,-2, 10,-2, 9 8,-2, 2,-2/ DATA I7/ 1 4, 0, 4, 0, 4, 0, 4, 0, 4, 0, 4, 0, * 4,-2, 5, 0, 4, 0, 4, 0, 7,-2, 7,-2, 3 7,-2, 7,-2, 3, 0, 3, 0, 3, 0, 3, 0, * 3, 0, 3, 0, 9, 0, 9, 0, 8, 0, 2, 0, 5 9, 0, 9, 0, 1, 0, 9, 0, 1, 0, 1, 0, * 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 8, 0, 7 3, 0, 8, 0, 2, 0, 7, 0, 7, 0, 8, 0, * 2, 0, 7, 0, 4, 0, 4, 0, 10, 0, 10, 0, 9 10, 0, 10,-2/ DATA I8/ 1 10, 0, 10, 0, 10, 0, 8, 0, 5, 0, 8, 0, * 8, 0, 8, 0, 2, 0, 22* 0/ C END ================================================ FILE: bd/ifx3bd.f ================================================ BLOCK DATA IFX3BD CIFX3BD C THIS TABLE CONTAINS TWO WORDS PER ENTRY (CARD TYPE) C FIRST WORD IS USED AS THE CONICAL SHELL FLAG, AND C SECOND WORD IS USED INTERNALLY TO STORE THE NUMBER OF WORDS TO C BE OUTPUT TO THE GINO OUTPUT FILE C COMMON /IFPX3/ I1(100),I2(100),I3(100),I4(100),I5(100), 1 I6(100),I7(100),I8( 40) DATA I1/ 1 -1, 0, -1, 0, 0, 0, -1, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 3 1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 1, 0, * 1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 5 -1, 0, 1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, 0, 0, -1, 0, -1, 0, -1, 0, -1, 0, 7 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 9 -1, 0, -1, 0/ DATA I2/ 1 0, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 3 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 5 -1, 0, -1, 0, 0, 0, 0, 0, -1, 0, -1, 0, * -1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 7 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, -1, 0, * 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 1, 0, 9 0, 0, 0, 0/ DATA I3/ 1 0, 0, -1, 0, 0, 0, -1, 0, -1, 0, 0, 0, * 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, * 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 5 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, * 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 7 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, * 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9 0, 0, 0, 0/ DATA I4/ 1 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, * 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 5 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, 0, 0, 0, 0, 0, 0, -1, 0, -1, 0, 7 -1, 0, 0, 0, 0, 0, 1, 0, 0, 0, -1, 0, * 0, 0, 0, 0, -1, 0, -1, 0, -1, 0, -1, 0, 9 -1, 0, 0, 0/ DATA I5/ 1 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 3 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, 0, 0, 0, 0, 5 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, * 0, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 7 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, -1, 0, 0, 0, 0, 0, -1, 0, -1, 0, 9 -1, 0, -1, 0/ DATA I6/ 1 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 3 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 5 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, 0, 0, 0, 0, 7 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, -2, 0, * -2, 0, -2, 0, -1, 0, -1, 0, -1, 0, -1, 0, 9 -2, 0, -2, 0/ DATA I7/ 1 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 3 -1, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 5 -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 7 -1, 0, -1, 0, -1, 0, 0, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 9 -1, 0, -1, 0/ DATA I8/ 1 0, 0, -1, 0, -1, 0, -1, 0, 0, 0, -1, 0, 5 -1, 0, -1, 0, -1, 0, 22* 0/ C END ================================================ FILE: bd/ifx4bd.f ================================================ BLOCK DATA IFX4BD CIFX4BD C THIS TABLE CONTAINS TWO WORDS PER ENTRY (CARD TYPE) C FIRST AND SECOND WORDS ARE THE MINIMUM AND MAXIMUM NUMBER OF C WORDS ALLOWABLE FOR THE CARD TYPE. C THE FIRST WORD BEING NEGATIVE IMPLIES THE CARD IS OPEN ENDDED C COMMON /IFPX4/ I1(100),I2(100),I3(100),I4(100),I5(100), 1 I6(100),I7(100),I8( 40) DATA I1/ 1 4,12, 4,12, -4, 9, 4, 8, 4, 8, 4, 8, * 4, 8, 12,16, 12,16, 12,16, 4, 8, -4, 9, 3 4, 8, 4, 8, 4, 8, 4, 8, 4, 8, 8,12, * 8,12, 8,12, 8,12, 8,12, 8,12, 8,12, 5 4, 8, 8,12, 4, 8, -4, 9, 4,12, 4,12, * 4, 8, -4, 9, 4,16, 4, 8, 4,12, 4,12, 7 4, 8, 4,16, 4, 8, 4,12, 4, 8, 4, 8, * 4, 8, 4, 8, 4, 8, 4, 8, 8,12, 4, 8, 9 4, 8, 4, 8/ DATA I2/ 1 -4, 9, 8,12, 8,12, 8,12, 8,12, 8,12, * 8,12, 8,12, 8,12, 8,12, 8,12, 8,12, 3 8,28, 8,20, 4,12, 4,12, 4, 8, 4, 8, * 4,12, 4,12, 4, 8, 4, 8, 4,12, 4,12, 5 4, 8, 4, 8, 4,16, 8,24, 8,12, 8,12, * 4, 8, -5,16, 4, 8, 4, 8, 9,18, 9,18, 7 -4,10, -4, 9, 8, 8, 4,16, 4,16, -4, 9, * -4,16, -4,16, -4,16, -4,16, -4,16, 4,12, 9 -4, 9, -4, 9/ DATA I3/ 1 -4, 9, 4,16, -4, 9, 4,12, -4, 9, -4, 9, * 8,24, 8,24, 8,24, 8,24, 8,24, 8,24, 3 8,24, 8,24, 8,24, 4,24, 4,24, 4,24, * -4,16, -4,12, 4, 8, 4,16, 4, 8, -4, 9, 5 4, 8, 4, 8, 8,12, 8,12, 8,12, 8,12, * 8, 8, 8, 8, -4,16, -4,16, 4, 8, 8,12, 7 4,12, 8, 8, 8,16, -4,16, -4,16, 4, 8, * 4, 8, 4, 8, 4,12, 4, 8, 4,28, 4,12, 9 4, 8, 4, 8/ DATA I4/ 1 4, 8, 4, 8, 4,12, 4,12, 4, 8, -4,13, * -4,13, 4, 8, 4,24, 4,24, 4,24, -4,16, 3 4,24, 4,24, 4,24, 4, 8, -4,20, -4,12, * 12,16, -4,12, -8,16, 6, 9, -4,12, -4,12, 5 -8,16, -8,12, 4,12, -4,12, 4,12, 8,20, * 4,24, 4, 8, 4, 8, 4, 8, 4, 8, 9, 9, 7 5, 9, 4, 8, 4,16, 8,12, -4,16, -4,17, * -4, 9, -4,10, 4,12, 4, 8, -4, 8, 10,14, 9 -4, 9, -4,16/ DATA I5/ 1 -4,10, -4,10, -4,10, -4,10, 8,12, -4,10, * 4, 8, 4, 8, 8, 8, 8, 8, 8, 8, -8,10, 3 -4,10, 4, 8, 4, 8, -4, 9, 8, 8, 8, 8, * 16,16, 16,16, -4, 9, 4,10, 8, 8, 8, 8, 5 8, 8, 8, 8, 8, 8, 8,16, 4, 8, 4, 8, * -4, 8, 9,17, 9, 9, 4, 8, 4, 8, 4, 8, 7 4, 8, 4, 8, -4, 9, 4, 8, -4,16, -4, 9, * -4,16, -4, 8, -4,10, -4,10, 17,17, 17,17, 9 8,12, 4, 8/ DATA I6/ 1 12,16, 24,28, 36,40, 4,12, 8,12, 4, 8, * -4,16, -4,16, 8,12, 4, 8, 8,20, 8,24, 3 16,16, 4, 8, 8,12, 8,12, 12,16, -4,16, * 4, 8, 4, 8, 16,16, 10,14, -4,16, -4,16, 5 9,13, -9,14, 9,13, 8,12, -3,48, -8,16, * -8,16, -8,16, -8,20, -4,48, 4, 8, 4,24, 7 4, 8, 4,24, 4, 8, -4,16, 12,16, 8,12, * 12,16, 8,20, -8,20, -8,20, 4, 8, -3,48, 9 12,16, 20,24/ DATA I7/ 1 12,16, 16,16, 16,16, 17,17, 4,24, -4, 8, * -4,16, 4, 8, 16,16, -4, 8, -4, 9, -4, 9, 3 -4, 9, -4, 9, 4,20, 4,56, 4,20, 4,56, * 4,36, 4,36, 8,20, -4, 9, 12,16, 4, 8, 5 12,65, -4, 9, -4, 9, 12,16, -4,16, -4,16, * 4, 8, -4, 9, 16,16, 16,16, 8, 8, 8, 8, 7 4, 8, 8,12, 24,28, -4, 8, 8,12, 4, 8, * 8,12, 8,12, -4, 9, 12,16, 4, 8, 4, 8, 9 8,16, -3,48/ DATA I8/ 1 -4, 8, -4, 9, -4, 8, 8,20, -4,16, 4, 8, * 4, 8, 4, 8, 4, 8, 22* 0/ C END ================================================ FILE: bd/ifx5bd.f ================================================ BLOCK DATA IFX5BD CIFX5BD C C THE FIRST WORD OF EACH PAIR IS AN INDEX INTO /IFPX7/ FOR INPUT C CARD SPECIFICATION C THE SECOND WORD IS THE FIELD-2-UNIQUENESS-CHECK FLAG C COMMON /IFPX5/ I1(100),I2(100),I3(100),I4(100),I5(100), 1 I6(100),I7(100),I8( 40) DATA I1/ 1 1, 1, 13, 2, 537, 0, 37, 0, 37, 0, 37, 0, * 37, 0, 45, 1, 45, 1, 45, 1, 505, 0, -1, 0, 3 -1, 1, 37, 0, 37, 0, 101, 0, -1, 0, 109, 0, * 109, 0, 121, 0, 121, 0, 133, 0, 133, 0, 145, 0, 5 157, 0, 165, 1, 157, 0, -1, 1, 165, 1, 177, 1, * 189, 0, 537, 0, 221, 1, 237, 0, 257, 1, 257, 1, 7 237, 0, 221, 1, 237, 0, 257, 1, 237, 0, 237, 0, * 237, 0, 269, 0, 269, 0, 497, 0, 277, 1, 37, 0, 9 37, 0, 37, 0/ DATA I2/ 1 537, 0, 313, 1, 313, 1, 313, 1, 313, 1, 313, 1, * 325, 1, 325, 1, 325, 1, 325, 1, 337, 1, 337, 1, 3 349, 1, 377, 1, 337, 1, 397, 1, 37, 0, 409, 0, * 337, 1, 397, 1, 37, 0, 409, 0, 337, 1, 417, 1, 5 37, 0, 409, 0, 429, 1, 445, 1, 738, 1, 737, 1, * 157, 0, -1, 2, -1, 1, -1, 1, 469, 1, 469, 1, 7 -1, 1, 537, 0, -1, 2, 545, 1, 545, 1, -1, 0, * -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, 269, 1, 9 537, 0, 537, 0/ DATA I3/ 1 537, 0, 525, 1, 537, 0, 750, 1, 794, 0, 537, 0, * 925, 1, 925, 1, 925, 1, 925, 1, 925, 1, 925, 1, 3 925, 1, 925, 1, 925, 1, 925, 1, 925, 1, 925, 1, * -1, 0, -1, 0, 237, 0, 445, 1, -1, 1, 794, 0, 5 705, 0, -1, 1, 725, 0, 725, 0, 725, 0, 725, 0, * 337, 1, 337, 1, -1, 1, -1, 1, 37, 0, -1, 0, 7 713, 0, 681, 1, 689, 1, -1, 1, -1, 1, -1, 1, * -1, 1, 93, 0, 245, 1, 645, 1, 653, 1, 485, 0, 9 -1, 0, 337, 0/ DATA I4/ 1 337, 0, 517, 1, 177, 1, 61, 0, 237, 0, 109, 0, * 109, 0, 561, 0, 925, 1, 925, 1, 925, 1, -1, 1, 3 925, 1, 925, 1, 925, 1, 705, 0, -1, 0, -1, 0, * 45, 1, -1, 0, -1, 0, 1080, 0, -1, 0, -1, 0, 5 -1, 1, -1, 0, -1, 0, -1, 0, 25, 2, 73, 1, * 621, 1, 101, 0, 101, 0, 101, 0, -1, 1, 1073, 0, 7 1073, 0, 1, 0, 525, 1, 109, 0, -1, 1, -1, 0, * 1065, 0, -1, 0, 782, 0, 752, 0, -1, 1, 993, 0, 9 -1, 0, -1, 0/ DATA I5/ 1 -1, 0, -1, 0, -1, 0, -1, 0, 1, 1, -1, 0, * 497, 1, 834, 0, 845, 1, 853, 1, 861, 1, -1, 0, 3 -1, 0, 834, 0, 37, 0, -1, 0, 337, 1, 525, 1, * 531, 1, 531, 1, -1, 0, 826, 0, 869, 1, 877, 1, 5 877, 1, 877, 1, 877, 1, 877, 1, 885, 1, 893, 1, * -1, 0, 909, 1, 901, 0, 198, 1, 198, 1, 350, 1, 7 37, 1, 37, 1, -1, 0, 350, 0, -1, 0, -1, 0, * -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 9 325, 1, 237, 0/ DATA I6/ 1 951, 1, 951, 1, 951, 1, 981, 1, 949, 0, 101, 0, * -1, 0, -1, 0, 325, 1, 237, 0, 1418, 1, 1434, 1, 3 39, 1, 37, 1, 2, 0, 42, 1, 1025, 1, -1, 0, * 197, 0, 805, 0, 805, 0, 1005, 1, -1, 1, -1, 1, 5 -1, 1, -1, 0, 1017, 0, 1037, 0, -1, 1, -1, 1, * -1, 1, -1, 1, -1, 1, -1, 1, 313, 1, 349, 1, 7 325, 1, 349, 1, 326, 1, -1, 0, 913, 1, 802, 1, * 913, 1, 1089, 1, -1, 0, -1, 0, 37, 1, -1, 1, 9 913, 1, 1105, 1/ DATA I7/ 1 39, 1, 39, 1, 39, 1, 1129, 1, 801, 1, -1, 1, * -1, 1, 165, 0, 39, 1, -1, 1, 1080, 0, 1080, 0, 3 1080, 0, 1153, 0, 1201, 1, 1201, 1, 1257, 1, 1257, 1, * 1201, 1, 1257, 1, 1313, 0, 1329, 0, 1048, 1, 1057, 1, 5 1361, 0, 1329, 0, 1337, 0, 1345, 0, -1, 1, -1, 1, * 505, 1, -1, 1, 531, 1, 531, 1, 337, 1, 525, 1, 7 198, 1, 73, 1, 802, 1, -1, 0, 725, 0, 37, 1, * 445, 1, -1, 0, -1, 1, 45, 1, 545, 1, 545, 1, 9 545, 1, -1, 1/ DATA I8/ 1 -1, 1, -1, 1, -1, 1, 1454, 1, -1, 1, 37, 1, * 313, 1, 337, 1, 269, 1, 22* 0/ C END ================================================ FILE: bd/ifx6bd.f ================================================ BLOCK DATA IFX6BD CIFX6BD C C THE FIRST WORD DEFINES A CARD-TYPE IDENTIFICATION CODE, AND C THE SECOND WORD DEFINES A BIT POSITION IN A 96-BIT 'TRAILER' C COMMON /IFPX6/ I1(100),I2(100),I3(100),I4(100),I5(100), 1 I6(100),I7(100),I8( 40) DATA I1/ 1 4501,45, 0, 0, 0, 0, 5301,53, 1801,18, 1701,17, * 1901,19, 2101,21, 2001,20, 2201,22, 5201,52, 5481,58, 3 5491,59, 5601,56, 5001,50, 5501,55, 4901,49, 4201,42, * 4801,48, 4001,40, 4601,46, 4101,41, 4701,47, 5101,51, 5 5401,54, 4401,44, 5701,57, 4301,43, 902, 9, 1602,16, * 1802,18, 0, 0, 1202,12, 1302,13, 1102,11, 1502,15, 7 1402,14, 702, 7, 802, 8, 602, 6, 502, 5, 1002,10, * 1702,17, 402, 4, 202, 2, 302, 3, 1601,16, 3001,30, 9 3701,37, 3901,39/ DATA I2/ 1 0, 0, 3301,33, 3401,34, 3201,32, 3601,36, 3501,35, * 2801,28, 2901,29, 2701,27, 2601,26, 3101,31, 3801,38, 3 1401,14, 1501,15, 1001,10, 1101,11, 1201,12, 1301,13, * 201, 2, 301, 3, 401, 4, 501, 5, 601, 6, 701, 7, 5 801, 8, 901, 9, 103, 1, 203, 2, 1708,17, 1808,18, * 104, 1, 0, 0, 4891,60, 4551,61, 307, 3, 107, 1, 7 207, 2, 0, 0, 0, 0, 503, 5, 703, 7, 4951,63, * 105, 1, 205, 2, 305, 3, 405, 4, 3105,31, 5641,65, 9 0, 0, 0, 0/ DATA I3/ 1 0, 0, 803, 8, 0, 0, 1908,19, 5551,49, 0, 0, * 6108,61, 6208,62, 6308,63, 6408,64, 6508,65, 6608,66, 3 6708,67, 6808,68, 6908,69, 6102,61, 6202,62, 6302,63, * 0, 0, 114, 1, 2102,21, 1403,14, 57, 5, 707, 7, 5 1007,10, 1307,13, 3107,31, 3207,32, 3307,33, 3407,34, * 5107,51, 5207,52, 1105,11, 1205,12, 5707,57, 6207,62, 7 6607,66, 7107,71, 7207,72, 1305,13, 1405,14, 8307,83, * 53,10, 515, 5, 5615,56, 8515,85, 152,19, 6215,62, 9 4015,40, 4315,43/ DATA I4/ 1 6415,64, 4915,49, 6315,63, 5215,52, 6815,68, 2115,21, * 3815,38, 257, 4, 6402,64, 6502,65, 6602,66, 15,21, 3 6702,67, 6802,68, 6902,69, 1107,11, 110,41, 210, 2, * 310, 3, 410, 4, 500, 5, 610, 6, 710, 7, 810, 8, 5 910, 9, 1110,11, 1210,12, 1310,13, 0, 0, 2408,24, * 52,20, 27,17, 37,18, 77,19, 1103,11, 1410,14, 7 1510,15, 56,26, 1503,15, 5509,55, 55,25, 6709,67, * 110, 1, 210, 2, 2107,21, 2207,22, 2307,23, 6909,69, ( 6809,68, 0, 0/ DATA I5/ 1 8109,81, 8209,82, 8309,83, 8409,84, 8115,81, 8215,82, * 8315,83, 8415,84, 7815,78, 7915,79, 8015,80, 8815,88, 3 8915,89, 9015,90, 5561,76, 5571,77, 5508,55, 5608,56, * 5708,57, 5808,58, 214, 2, 9115,91, 1115,11, 2108,21, 5 2208,22, 2308,23, 4408,44, 4508,45, 1215,12, 1315,13, * 1415,14, 4208,42, 4309,43, 2103,21, 2203,22, 2502,25, 7 2303,23, 2403,24, 4509,45, 4909,49, 5009,50, 5209,52, * 2014,20, 3014,30, 7810,78, 7910,79, 1310,13, 1410,14, 9 2008,20, 2202,22/ DATA I6/ 1 7108,71, 7208,72, 7308,73, 7002,70, 7109,71, 5110,51, * 5210,52, 5008,50, 5308,53, 5302,53, 5408,54, 603, 6, 3 3002,30, 3102,31, 3202,32, 3302,33, 3402,34, 3502,35, * 3602,36, 3702,37, 3802,38, 3902,39, 4002,40, 4102,41, 5 4001,40, 304, 3, 404, 4, 7001,70, 5310,53, 5502,55, * 5602,56, 5702,57, 5802,58, 5410,54, 7012,70, 7032,85, 7 7042,74, 7052,95, 2606,26, 4202,42, 6101,81, 6201,82, * 6301,83, 6401,84, 8509,85, 8609,86, 8210,82, 8310,83, 9 7501,75, 7601,76/ DATA I7/ 1 4301,43, 4401,44, 4501,45, 4601,46, 4701,47, 4801,48, * 4901,49, 1005,10, 5001,50, 5101,51, 9027,90, 9137,91, 3 9277,92, 9307,93, 1603,16, 1703,17, 1803,18, 1903,19, * 2503,25, 2603,26, 3109,31, 3209,32, 2001,47, 2002,56, 5 3309,33, 3409,34, 3101,31, 3509,35, 4101,41, 4201,42, * 4810,48, 7610,76, 9210,92, 9310,93, 8610,86, 8710,87, 7 5110,51, 5101,51, 5102,51, 3507,35, 3607,36, 8408,84, * 8402,84, 3608,36, 3292,92, 3293,93, 6510,65, 6610,66, 9 6710,67, 6810,68/ DATA I8/ 1 6910,69, 7010,70, 7110,71, 9108,91, 505, 5, 4302,77, * 4802,48, 4902,94, 4303,43, 22* 0/ C END ================================================ FILE: bd/ifx7bd.f ================================================ BLOCK DATA IFX7BD CIFX7BD C EACH ENTRY CONTAINS THE ADMISSIBLE SEQUAENCE OF FORMAT CODES FOR C THAT CARD TYPE. THE POINTER TO EACH ENTRY IS PROVIDED FROM THE C FIRST WORD OF /IFPX5/ C C INPUT BULK DATA CARD FORMAT CODE STRINGS C 0 = BLANK 3 = BCD C 1 = INTEGER 4 = DOUBLE PRECISION C 2 = REAL 5 = ANYTHING C C IF THE DIMENSION OF /IFPX7/ IS INCREASED HERE, MAKE THE SAME C LABEL COMMON IN IFP ROUTINE THE SMAE SIZE TOO C C****** COMMON /IFPX7/ J1(160),J2(160),J3(160), J4(160), J5(160), J6(160), 1 J7(160),J8 (80),J9 (56),J10( 56),J11( 24),J12( 8), 2 J13(16),J14(57),J15(52) C C***** C 1 1 5 9 13 C 2 17 21 25 29 C 3 33 37 41 45 C 4 49 53 57 61 C 5 65 69 73 77 C 6 81 85 89 93 C 7 97 101 105 109 C 8 113 117 121 125 C 9 129 133 137 141 C X 145 149 153 157 DATA J1 / 1 1, 1, 2, 2 , 2, 1, 1, 1 , 0, 0, 0, 0 , 0, 1, 0, 0 2 , 0, 1, 1, 1 , 0, 0, 0, 0 , 0, 1, 0, 0 , 5, 2, 2, 1 3 , 0, 0, 0, 0 , 1, 1, 1, 1 , 1, 1, 1, 1 , 1, 1, 2, 2 4 , 2, 2, 2, 2 , 2, 2, 2, 0 , 0, 0, 0, 0 , 1, 2, 1, 1 5 , 2, 2, 0, 0 , 0, 0, 0, 0 , 1, 1, 1, 1 , 5, 2, 2, 1 6 , 1, 1, 2, 2 , 2, 2, 2, 2 , 0, 0, 0, 0 , 1, 1, 0, 0 7 , 0, 0, 0, 0 , 1, 1, 1, 2 , 1, 1, 2, 0 , 1, 1, 5, 2 8 , 2, 2, 2, 0 , 0, 0, 0, 0 , 1, 1, 2, 1 , 1, 0, 0, 0 9 , 0, 0, 0, 0 , 1, 1, 2, 1 , 1, 1, 1, 0 , 0, 0, 0, 0 X , 1, 2, 1, 1 , 1, 1, 0, 0 , 0, 0, 0, 0 , 1, 1, 2, 1 / C C***** C 1 161 165 169 173 C 2 177 181 185 189 C 3 193 197 201 205 C 4 209 213 217 221 C 5 225 229 233 237 C 6 241 245 249 253 C 7 257 261 265 269 C 8 273 277 281 285 C 9 289 293 297 301 C X 305 309 313 317 DATA J2 / 1 2, 1, 2, 0 , 1, 1, 2, 2 , 2, 2, 1, 1 , 1, 2, 2, 2 2 , 1, 1, 2, 2 , 2, 0, 0, 0 , 0, 0, 0, 0 , 1, 2, 2, 0 3 , 1, 2, 2, 0 , 1, 1, 2, 2 , 2, 2, 2, 2 , 2, 2, 2, 2 4 , 2, 2, 2, 2 , 2, 2, 2, 2 , 0, 0, 0, 0 , 1, 1, 2, 1 5 , 2, 1, 2, 2 , 2, 2, 0, 0 , 0, 0, 0, 0 , 1, 1, 2, 2 6 , 1, 1, 2, 2 , 1, 0, 2, 2 , 0, 0, 1, 0 , 0, 0, 0, 0 7 , 1, 1, 2, 1 , 2, 2, 2, 2 , 0, 0, 0, 0 , 1, 2, 1, 2 8 , 1, 2, 1, 2 , 1, 1, 1, 1 , 2, 2, 2, 2 , 0, 0, 0, 0 9 , 1, 1, 1, 1 , 2, 2, 2, 1 , 1, 1, 2, 2 , 2, 2, 2, 2 X , 2, 2, 2, 2 , 0, 0, 0, 0 , 1, 1, 1, 1 , 1, 2, 0, 0 / C C***** C 1 321 325 329 333 C 2 337 341 345 349 C 3 353 357 361 365 C 4 369 373 377 381 C 5 385 389 393 397 C 6 401 405 409 413 C 7 417 421 425 429 C 8 433 437 441 445 C 9 449 453 457 461 C X 465 469 473 477 DATA J3 / 1 0, 0, 0, 0 , 1, 1, 1, 1 , 1, 1, 2, 0 , 0, 0, 0, 0 2 , 1, 1, 1, 1 , 1, 1, 0, 0 , 0, 0, 0, 0 , 1, 1, 1, 2 3 , 2, 2, 2, 2 , 2, 2, 2, 2 , 2, 2, 2, 2 , 2, 2, 2, 2 4 , 2, 2, 2, 2 , 0, 0, 0, 0 , 1, 1, 1, 2 , 2, 2, 2, 0 5 , 2, 2, 2, 2 , 2, 2, 0, 0 , 0, 0, 0, 0 , 1, 2, 1, 1 6 , 1, 1, 0, 0 , 0, 0, 0, 0 , 1, 2, 1, 1 , 1, 2, 1, 1 7 , 1, 2, 1, 1 , 1, 1, 2, 2 , 0, 0, 0, 0 , 1, 2, 2, 2 8 , 2, 2, 2, 2 , 2, 2, 2, 1 , 0, 0, 0, 0 , 1, 2, 2, 2 9 , 2, 2, 2, 2 , 2, 2, 2, 2 , 2, 2, 2, 2 , 1, 0, 0, 0 X , 0, 0, 0, 0 , 1, 3, 2, 2 , 1, 1, 1, 2 , 3, 1, 1, 0 / C C***** C 1 481 485 489 493 C 2 497 501 505 509 C 3 513 517 521 525 C 4 529 533 537 541 C 5 545 549 553 557 C 6 561 565 569 573 C 7 577 581 585 589 C 8 593 597 601 605 C 9 609 613 617 621 C X 625 629 633 637 DATA J4 / 1 0, 0, 0, 0 , 1, 1, 1, 1 , 2, 0, 0, 0 , 0, 0, 0, 0 2 , 1, 2, 2, 2 , 1, 2, 2, 2 , 1, 1, 1, 0 , 1, 1, 1, 0 3 , 0, 0, 0, 0 , 1, 1, 2, 0 , 0, 0, 0, 0 , 1, 1, 1, 1 4 , 1, 1, 1, 1 , 1, 1, 1, 1 , 1, 1, 1, 1 , 5, 0, 0, 0 5 , 1, 1, 1, 1 , 1, 1, 1, 1 , 1, 1, 1, 0 , 0, 0, 0, 0 6 , 1, 2, 2, 1 , 2, 2, 1, 0 , 0, 0, 0, 0 , 1, 1, 1, 2 7 , 1, 2, 1, 2 , 0, 0, 0, 0 , 1, 1, 1, 1 , 1, 0, 0, 0 8 , 0, 0, 0, 0 , 1, 1, 1, 2 , 1, 1, 1, 0 , 2, 2, 2, 2 9 , 2, 2, 0, 0 , 2, 2, 2, 2 , 2, 2, 0, 0 , 1, 1, 2, 2 X , 2, 2, 2, 1 , 2, 2, 2, 2 , 2, 2, 2, 2 , 2, 2, 2, 0 / C C***** C 1 641 645 649 653 C 2 657 661 665 669 C 3 673 677 681 685 C 4 689 693 697 701 C 5 705 709 713 717 C 6 721 725 729 733 C 7 737 741 745 749 C 8 753 757 761 765 C 9 769 773 777 781 C X 785 789 793 797 DATA J5 / 1 0, 0, 0, 0 , 1, 1, 1, 1 , 0, 0, 0, 0 , 1, 1, 2, 1 2 , 2, 1, 2, 2 , 2, 2, 2, 2 , 2, 2, 2, 2 , 2, 2, 2, 2 3 , 2, 2, 2, 2 , 0, 0, 0, 0 , 1, 1, 1, 1 , 1, 1, 0, 0 4 , 1, 1, 1, 1 , 2, 2, 2, 2 , 2, 2, 0, 0 , 0, 0, 0, 0 5 , 1, 2, 2, 1 , 0, 0, 0, 0 , 1, 1, 1, 2 , 2, 0, 0, 0 6 , 0, 0, 0, 0 , 1, 1, 1, 2 , 1, 1, 5, 5 , 0, 0, 0, 0 7 , 1, 1, 1, 1 , 1, 2, 1, 0 , 0, 0, 0, 0 , 0, 1, 1, 1 8 , 1, 2, 2, 0 , 0, 0, 0, 0 , 0, 1, 1, 2 , 2, 1, 0, 0 9 , 0, 0, 0, 0 , 0, 1, 2, 1 , 5, 1, 1, 1 , 1, 1, 1, 1 X , 2, 2, 1, 0 , 0, 0, 0, 0 , 0, 1, 5, 1 , 1, 1, 1, 1 / C C***** C 1 801 805 809 813 C 2 817 821 825 829 C 3 833 837 841 845 C 4 849 853 857 861 C 5 865 869 873 877 C 6 881 885 889 893 C 7 897 901 905 909 C 8 913 917 921 925 C 9 929 933 937 941 C X 945 949 953 957 DATA J6 / 1 1, 1, 1, 2 , 2, 2, 2, 2 , 2, 2, 2, 2 , 2, 2, 2, 2 2 , 2, 2, 2, 2 , 2, 2, 2, 2 , 2, 1, 3, 3 , 0, 0, 0, 0 3 , 0, 1, 0, 1 , 2, 1, 2, 1 , 2,-9,-9,-9 , 1, 1, 1, 0 4 , 0, 2, 2, 0 , 1, 1, 1, 1 , 0, 2, 2, 0 , 1, 1, 1, 1 5 , 1, 2, 2, 0 , 2, 2, 1, 2 , 1, 0, 0, 0 , 1, 1, 1, 1 6 , 1, 2, 2, 1 , 1, 2, 2, 0 , 0, 0, 0, 0 , 1, 2, 2, 2 7 , 1, 0, 0, 0 , 1, 3, 2, 2 , 1, 1, 1, 1 , 1, 1, 3, 1 8 , 1, 1, 1, 1 , 1, 1, 1, 1 , 2, 2, 2, 0 , 1, 1, 5, 5 9 , 5, 5, 5, 5 , 5, 5, 5, 5 , 5, 5, 5, 5 , 5, 5, 5, 5 X , 5, 5, 5, 5 , 1, 2, 1, 1 , 1, 1, 1, 1 , 1, 1, 1, 1 / C C***** C 1 961 965 969 973 C 2 977 981 985 989 C 3 993 997 1001 1005 C 4 1009 1013 1017 1021 C 5 1025 1029 1033 1037 C 6 1041 1045 1049 1053 C 7 1057 1061 1065 1069 C 8 1073 1077 1081 1085 C 9 1089 1093 1097 1101 C X 1105 1109 1113 1117 DATA J7 / 1 1, 1, 1, 1 , 1, 1, 1, 1 , 1, 1, 1, 1 , 1, 1, 1, 1 2 , 1, 1, 1, 1 , 1, 1, 1, 1 , 5, 5, 5, 0 , 0, 0,-9,-9 3 , 1, 1, 3, 3 , 2, 2, 2, 2 , 0, 0, 0, 0 , 1, 3, 1, 1 4 , 1, 3, 1, 2 , 0, 0, 0, 0 , 1, 2, 2, 1 , 3, 0, 0, 0 5 , 1, 1, 1, 1 , 1, 2, 2, 1 , 2, 2, 0, 0 , 1, 2, 2, 1 6 , 1, 1, 0, 0 , 1, 1, 1, 1 , 1, 1, 1, 1 , 1, 1, 1, 1 7 , 1, 1, 2, 0 , 0, 0, 0, 0 , 3, 1, 1, 1 , 1, 1, 1, 0 8 , 1, 3, 1, 1 , 1, 1, 1, 1 , 3, 1, 1, 2 , 1, 1, 2,-9 9 , 1, 1, 2, 2 , 2, 1, 2, 2 , 2, 2, 2, 2 , 2, 2, 2, 2 X , 1, 1, 2, 2 , 2, 1, 2, 2 , 2, 1, 2, 2 , 2, 2, 2, 2 / C C***** C 1 1121 1125 1129 1133 C 2 1137 1141 1145 1149 C 3 1153 1157 1161 1165 C 4 1169-1200 DATA J8 / 1 2, 2, 2, 2 , 5, 5, 5, 5 , 1, 3, 2, 2 , 1, 1, 1, 1 2 , 1, 1, 1, 1 , 1, 1, 0, 0 , 0, 0, 0, 0 , 0, 0, 0, 0 3 , 1, 3, 1, 1 , 2, 2, 0, 0 , -9,-9,-9,-9 , -9,-9,-9,-9 4 , 32*0 / C C***** C 1 1201 1205-1252 1253 DATA J9 / 1 1, 2, 2, 2, 48*2, 0, 0, 0, 0 / C C***** C 1 1257 1261-1308 1309 DATA J10/ 1 1, 1, 1, 1, 48*1, 0, 0, 0, 0 / C C***** C 1 1313 1317 1321 1325 C 2 1329 1333 DATA J11/ 1 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 0, 0, 0, 2 1, 1, 2, 2, 2, 1, 5, 1 / C C***** C 1 1337 1341 DATA J12/ 1 1, 1, 5, 1, 1, 1, 1, 1 / C C***** C 1 1345 1349 1353 1357 DATA J13/ 1 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 5, 5, 5, 5, 5, 5 / C C***** C 1 1361-1416 1417 DATA J14/ 1 56*5, 5 / C C***** C 1 1418 1422 1426 1430 C 2 1434 1438 1442 1446 C 3 1450 1454 1458 1462 C 4 1466 DATA J15/ 1 1, 1, 1, 1, 1, 1, 5, 2, 0, 0, 2, 2, 2, 2, 0, 0, 2 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3 2, 2, 0, 0, 1, 1, 1, 1, 1, 5, 2, 0, 0, 0, 2, 2, 4 2, 0, 0, 0 / C END ================================================ FILE: bd/itembd.f ================================================ BLOCK DATA ITEMBD CITEMBD C ITEMBD BLOCK DATA C C TO ADD NEW ITEMS TO THE SOF THE FOLLOWING CODE CHANGES MUST BE C MADE. C C 1) INCREASE THE DIMENSION OF ITEM IN THE ITEMDT COMMON BLOCK. C 2) INCREASE THE DIMENSION OF THE ITEMXX ARRAY AND ADD ANY C ADDITIONAL ARRAYS AND EQUIVALENCES IF NECESSARY. C 3) INCREASE THE VALUE OF NITEM IN THE DATA STATEMENT. C 4) ADD THE NEW DATA DESCRIBING THE NEW ITEMS. C 5) SUBROUTINE EXO2 MUST BE CHANGED IF THE NEW ITEM IS A TABLE. C THIS ROUTINE PROCESSES THE SOFOUT(EXTERNAL) STATEMENT. C 6) SUBROUTINE SOFTOC MUST BE CHANGED IF THE NEW ITEMS WILL C INCREASE THE NUMBER IF ITEMS TO MORE THEN 27. C C NOTE... IF THE NUMBER OF ITEMS IS DECREASED THE LENGTH OF THE C ITEMDT COMMON BLOCK SHOULD NOT BE DECREASED. SOFS CREATED C ON THE OLDER SYSTEM WILL REQUIRE THE EXTRA SPACE WHEN C RESTORING THE ITEM STRUCTURE FOR THAT SOF. C INTEGER ITEM01(7,10) ,ITEM02(7,10) ,ITEM03(7,5) C COMMON / ITEMDT / NITEM ,ITEM(7,25) C EQUIVALENCE ( ITEM01(1,1) , ITEM(1, 1) ) 2 ,( ITEM02(1,1) , ITEM(1,11) ) 3 ,( ITEM03(1,1) , ITEM(1,21) ) C C NITEM = NUMBER OF ITEMS C ITEM(1,I) = ITEM NAME C ITEM(2,I) = ITEM TYPE C LE 0 - TABLE ITEM C GE 1 - MATRIX ITEM C ITEM(3,I) = EQUIV DATA FOR GROUP 0 OF ITEMS TO BE COPYIED C X 1000 - WORD WITH NUMBER OF NAMES C X 100 - WORD WITH FIRST NAME C X 1 - NUMBER OF WORDS FOR EACH NAME C ITEM(4,I) = IMAGE SUBSTRUCTURE DATA C 0 - ITEM IS ONLY A POINTER TO PRIMARY DATA C 1 - UNIQUE DATA, RETURN TO FREE BLOCK LIST C ITEM(5,I) = SECONDARY SUBSTRUCTURE DATA C 0 - ITEM IS ONLY A POINTER TO PRIMARY DATA C 1 - UNIQUE DATA, RETURN TO FREE BLOCK LIST C ITEM(6,I) = HIGHER LEVEL SUBSTRUCTURE DATA C 0 - ITEM DOES NOT PERTAIN TO HIGER LEVEL C 1 - ITEM DESCRIBES HIGHER LEVEL C ITEM(7,1) = EDIT DATA. EACH BIT IS SET IF THAT ITEM IS IN C THE COORESPONDING EDIT GROUP. EXAMPLE - A VALUE C OF 36 WOULD CAUSE THE ITEM TO BE DELETED BY C EDIT(32) OR EDIT(4) C C*********************************************************************** C DATA NITEM / 25 / C C C NAME TYPE EQUIV IMAGE SECONDARY HIGHER EDIT C DATA ITEM01 / 1 4HEQSS ,0 ,3005002 ,1 ,1 ,0 ,32 2 ,4HBGSS ,0 ,0 ,0 ,0 ,0 ,32 3 ,4HCSTM ,0 ,0 ,0 ,0 ,0 ,32 4 ,4HLODS ,0 ,4005002 ,1 ,1 ,0 ,36 5 ,4HPLTS ,0 ,3004014 ,1 ,1 ,0 ,32 6 ,4HKMTX ,1 ,0 ,0 ,0 ,0 ,33 7 ,4HMMTX ,1 ,0 ,0 ,0 ,0 ,34 8 ,4HPVEC ,1 ,0 ,0 ,0 ,0 ,36 9 ,4HPOVE ,1 ,0 ,0 ,1 ,1 ,48 O ,4HUPRT ,1 ,0 ,0 ,1 ,1 ,48 * / DATA ITEM02 / 1 4HHORG ,1 ,0 ,0 ,1 ,1 ,560 2 ,4HUVEC ,1 ,0 ,1 ,1 ,0 ,40 3 ,4HQVEC ,1 ,0 ,1 ,1 ,0 ,40 4 ,4HSOLN ,0 ,0 ,1 ,1 ,0 ,40 5 ,4HPAPP ,1 ,0 ,0 ,0 ,0 ,100 6 ,4HPOAP ,1 ,0 ,0 ,1 ,1 ,112 7 ,4HLOAP ,0 ,4005002 ,1 ,1 ,0 ,100 8 ,4HLMTX ,1 ,0 ,0 ,1 ,1 ,48 9 ,4HGIMS ,1 ,0 ,0 ,1 ,1 ,48 O ,4HPHIS ,1 ,0 ,0 ,1 ,1 ,288 * / DATA ITEM03 / 1 4HLAMS ,0 ,0 ,0 ,1 ,1 ,288 2 ,4HK4MX ,1 ,0 ,0 ,0 ,0 ,160 3 ,4HBMTX ,1 ,0 ,0 ,0 ,0 ,160 4 ,4HPHIL ,1 ,0 ,0 ,1 ,1 ,288 5 ,4HHLFT ,1 ,0 ,0 ,1 ,1 ,560 * / END ================================================ FILE: bd/of1pbd.f ================================================ BLOCK DATA OF1PBD COF1PBD C C C ARRAY FOR REAL STRESSES SORT 1 C INTEGER C1,C21,C41,C61,C81 COMMON /OFPB1/ C1(120),C21(120),C41(120),C61(120),C81(120) DATA C1 / 75, 0, 55, -1, 18, 19 , 93, 0, 56, -1, 20, 21 3 , 75, 0, 73, -1, 18, 19 , 115, 0, 57, -1, 22, 23 5 , 115, 0, 58, -1, 22, 24 , 130, 0, 70,389, 27, 28 7 , 130, 0, 60, -1, 27, 28 , 130, 0, 72, -1, 27, 28 9 , 152, 0, 59, -1, 25, 26 , 75, 0, 65, -1, 18, 19 1 , 54, 0, 61, -1, 29, 17 , 54, 0, 62, -1, 29, 17 3 , 54, 0, 63, -1, 29, 17 , 0, 0, 0, -1, 0, 0 5 , 130, 0, 67, -1, 27, 28 , 152, 0, 66, -1, 25, 26 7 , 130, 0, 71,389, 27, 28 , 130, 0, 69,389, 27, 28 9 , 130, 0, 68,389, 27, 28 , 0, 0, 0, -1, 0, 0 / DATA C21 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 23, 0, 64, -1, 34, 35 5 ,1106, 0,204, -1, 0,206 , 163, 0, 74, -1, 75, 76 7 , 171, 0, 77, -1, 78, 79 , 211, 0, 80, -1, 81, 82 9 ,1137, 0,221, -1, 0,217 ,1137, 0,223, -1, 0,217 / DATA C41 / 1137, 0,225, -1, 0,217 ,1137, 0,227, -1, 0,217 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 ,1461, 0,231, -1, 0,250 ,1242, 0,232, -1, 0,241 9 ,4126, 0,233, -1, 0,451 , 65, 0,234, -1, 0,247 1 ,1387, 0,235, -1, 0,244 , 0, 0, 0, 0, 0, 0 3 ,1242, 0,254, -1, 0,264 ,1242, 0,255, -1, 0,264 5 ,1242, 0,256, -1, 0,264 ,1242, 0,257, -1, 0,264 7 ,1242, 0,258, -1, 0,264 ,1242, 0,280, -1, 0,264 9 ,1242, 0,281, -1, 0,264 ,1242, 0,282, -1, 0,264 / DATA C61 / 1242, 0,283, -1, 0,264 , 152, 0,304, -1, 25, 26 3 , 152, 0,306, -1,323, 26 , 130, 0,308,437,438,439 5 ,1801, 0,328, -1,329,330 ,1801, 0,328, -1,329,330 7 ,1869, 0,328, -1,329,330 ,2079, 0,343, -1,344,345 9 ,2132, 0,346, -1,344,345 ,2176, 0,347, -1, 0,348 1 ,2201, 0,351, -1, 0,348 , 0, 0, 0, 0, 0, 0 3 ,2401, 0,363, -1,364,365 ,2291, 0,358, -1,361,362 5 ,2291, 0,346, -1,361,362 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 ,3141, 0,407, -1,408,409 / DATA C81 /3634, 0,420, -1, 34, 35 , 0, 0, 0, 0, 0, 0 3 , 130, 0,465,437,438,439 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 ,1949, 0,336, -1,337,338 / END ================================================ FILE: bd/of2pbd.f ================================================ BLOCK DATA OF2PBD COF2PBD C C C ARRAY FOR COMPLEX STRESSES SORT1 C INTEGER C1,C21,C41,C61,C81 COMMON /OFPB2/ C1(240),C21(240),C41(240),C61(240),C81(240) C C IX,L1,L2,L3,L4,L5 , IX,L1,L2,L3,L4,L5 C C REAL/IMAG L3=125 , MAG/PHASE L3=126 C (L1 IS SET FOR FREQ ALWASYS = 104) C DATA C1 / 473,104,136,125, 0,165 , 483,104,136,126, 0,165 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 473,104,144,125, 0,165 , 483,104,144,126, 0,165 4 , 473,104,137,125, 0,166 , 483,104,137,126, 0,166 5 , 473,104,145,125, 0,166 , 483,104,145,126, 0,166 6 , 515,104,139,125, 0,168 , 540,104,139,126, 0,168 7 , 515,104,138,125, 0,168 , 540,104,138,126, 0,168 8 , 515,104,143,125, 0,168 , 540,104,143,126, 0,168 9 , 448,104,142,125, 0,169 , 461,104,142,126, 0,169 O , 473,104,131,125, 0,165 , 483,104,131,126, 0,165 1 , 493,104,128,125, 0,171 , 504,104,128,126, 0,171 2 , 493,104,129,125, 0,171 , 504,104,129,126, 0,171 3 , 493,104,130,125, 0,171 , 504,104,130,126, 0,171 4 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 515,104,133,125, 0,168 , 540,104,133,126, 0,168 6 , 448,104,132,125, 0,169 , 461,104,132,126, 0,169 7 , 515,104,140,125, 0,168 , 540,104,140,126, 0,168 8 , 515,104,135,125, 0,168 , 540,104,135,126, 0,168 9 , 515,104,134,125, 0,168 , 540,104,134,126, 0,168 O , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 / DATA C21 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 4 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 8 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 O , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 4 , 565,104,127,125, 0,164 , 595,104,127,126, 0,164 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 8 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 ,1162,104,222,125, 0,219 ,1197,104,222,126, 0,219 O ,1162,104,224,125, 0,219 ,1197,104,224,126, 0,219 / DATA C41 / 1162,104,226,125, 0,219 ,1197,104,226,126, 0,219 2 ,1162,104,228,125, 0,219 ,1197,104,228,126, 0,219 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 4 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 ,1468,104,236,125, 0,250 ,1480,104,236,126, 0,250 8 ,1254,104,237,125, 0,241 ,1276,104,237,126, 0,241 9 ,4154,104,238,125, 0,451 ,4180,104,238,126, 0,451 O , 668,104,239,125, 0,247 , 683,104,239,126, 0,247 1 ,1396,104,240,125, 0,244 ,1412,104,240,126, 0,244 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 ,1254,104,266,125, 0,264 ,1276,104,266,126, 0,264 4 ,1254,104,267,125, 0,264 ,1276,104,267,126, 0,264 5 ,1254,104,268,125, 0,264 ,1276,104,268,126, 0,264 6 ,1254,104,269,125, 0,264 ,1276,104,269,126, 0,264 7 ,1254,104,270,125, 0,264 ,1276,104,270,126, 0,264 8 ,1254,104,288,125, 0,264 ,1276,104,288,126, 0,264 9 ,1254,104,289,125, 0,264 ,1276,104,289,126, 0,264 O ,1254,104,290,125, 0,264 ,1276,104,290,126, 0,264 / DATA C61 / 1254,104,291,125, 0,264 ,1276,104,291,126, 0,264 2 , 448,104,305,125, 0,169 , 461,104,305,126, 0,169 3 , 448,104,307,125, 0,324 , 461,104,307,126, 0,324 4 , 515,104,448,125, 0,449 , 540,104,448,126, 0,449 5 ,1852,104,331,125,329,332 ,1852,104,331,126,329,332 6 ,1852,104,331,125,329,332 ,1852,104,331,126,329,332 7 ,1921,104,331,125,329,332 ,1921,104,331,126,329,332 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O ,2657,104,393,125, 0,348 ,2657,104,393,126, 0,348 1 ,2756,104,395,125, 0,348 ,2756,104,395,126, 0,348 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 448,104,454,125, 0,169 , 461,104,454,126, 0,169 4 , 515,104,456,125, 0,168 , 540,104,456,126, 0,168 5 , 515,104,458,125, 0,168 , 540,104,458,126, 0,168 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O ,3313,104,412,125, 0,413 ,3313,104,412,126, 0,413 / DATA C81 / 3906,104,426,125, 0,164 ,3601,104,426,126, 0,164 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 515,104,466,125, 0,449 , 540,104,466,126, 0,449 4 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 4 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / END ================================================ FILE: bd/of3pbd.f ================================================ BLOCK DATA OF3PBD COF3PBD C C C ARRAY FOR REAL STRESSES SORT 2 TIME C INTEGER C1,C21,C41,C61,C81 COMMON /OFPB3/ C1(120),C21(120),C41(120),C61(120),C81(120) DATA C1 / 739,108, 55, -1, 0,182 , 756,108, 56, -1, 0,183 3 , 739,108, 73, -1, 0,182 , 778,108, 57, -1, 0,184 5 , 778,108, 58, -1, 0,185 , 791,108, 70, -1, 0,186 7 , 791,108, 60, -1, 0,186 , 791,108, 72, -1, 0,186 9 , 813,108, 59, -1, 0,187 , 739,108, 65, -1, 0,182 1 , 728,108, 61, -1, 0,188 , 728,108, 62, -1, 0,188 3 , 728,108, 63, -1, 0,188 , 0, 0, 0, -1, 0, 0 5 , 791,108, 67, -1, 0,186 , 813,108, 66, -1, 0,187 7 , 791,108, 71, -1, 0,186 , 791,108, 69, -1, 0,186 9 , 791,108, 68, -1, 0,186 , 0, 0, 0, -1, 0, 0 / DATA C21 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 825,108, 64, -1, 0,189 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 ,1149,108,221, -1, 0,218 ,1149,108,223, -1, 0,218 / DATA C41 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 ,1428,108,231, -1, 0,251 ,1493,108,232, -1, 0,242 9 ,4140,108,233, -1, 0,452 , 719,108,234, -1, 0,248 1 ,1344,108,235, -1, 0,245 , 0, 0, 0, 0, 0, 0 3 ,1493,108,254, -1, 0,276 ,1493,108,255, -1, 0,276 5 ,1493,108,256, -1, 0,276 ,1493,108,257, -1, 0,276 7 ,1493,108,258, -1, 0,276 ,1493,108,280, -1, 0,276 9 ,1493,108,281, -1, 0,276 ,1493,108,282, -1, 0,276 / DATA C61 / 1493,108,283, -1, 0,276 , 813,108,304, -1, 0,187 3 , 813,108,306, -1, 0,325 , 791,108,308, -1, 0,443 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, 0, 0, 0 ,3024,108,347, 0, 0,401 1 ,3029,108,351, 0, 0,401 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 ,3227,108,407, -1,410,411 / DATA C81 / 3634,108,420, -1, 0,189 , 0, 0, 0, 0, 0, 0 3 , 791,108,465, -1, 0,443 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / END ================================================ FILE: bd/of3sbd.f ================================================ BLOCK DATA OF3SBD COF3SBD C C C ARRAY FOR REAL STRESSES SORT 2 - SUBCASE - STATICS C INTEGER C1,C21,C41,C61,C81 COMMON /OFPB3S/ C1(120),C21(120),C41(120),C61(120),C81(120) C DATA C1 / 1774,108, 55, -1, 0,321 ,2466,108, 56, -1, 0,369 3 ,1774,108, 73, -1, 0,321 ,1506,108, 57, -1, 0,316 5 ,2490,108, 58, -1, 0,370 ,2505,108, 70, -1, 0,371 7 ,2505,108, 60, -1, 0,371 ,2505,108, 72, -1, 0,371 9 ,1721,108, 59, -1, 0,317 ,1774,108, 65, -1, 0,321 1 ,2451,108, 61, -1, 0,372 ,2451,108, 62, -1, 0,372 3 ,2451,108, 63, -1, 0,372 , 0, 0, 0, -1, 0, 0 5 ,2505,108, 67, -1, 0,371 ,1721,108, 66, -1, 0,317 7 ,2505,108, 71, -1, 0,371 ,2505,108, 69, -1, 0,371 9 ,2505,108, 68, -1, 0,371 , 0, 0, 0, -1, 0, 0 / DATA C21 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 ,1731,108, 64, -1, 0,318 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 CWKBR SPR94001 7/94 C 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 171, 0, 77, -1,471,472 , 0, 0, 0, -1, 0, 0 9 ,2529,108,221, -1, 0,374 ,2529,108,223, -1, 0,374 / DATA C41 / 0, 0, 0, -1, 0, 0 ,1137,108,227, -1, 0,467 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 ,1428,108,231, -1, 0,251 ,1493,108,232, -1, 0,242 9 ,4140,108,233, -1, 0,452 , 719,108,234, -1, 0,248 1 ,1344,108,235, -1, 0,245 , 0, 0, 0, 0, 0, 0 3 ,1493,108,254, -1, 0,276 ,1493,108,255, -1, 0,276 5 ,1493,108,256, -1, 0,276 ,1493,108,257, -1, 0,276 7 ,1493,108,258, -1, 0,276 ,1493,108,280, -1, 0,276 9 ,1493,108,281, -1, 0,276 ,1493,108,282, -1, 0,276 / DATA C61 / 1493,108,283, -1, 0,276 ,1721,108,304, -1, 0,317 3 ,1721,108,306, -1, 0,327 ,2505,108,308, -1, 0,444 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 ,2176,108,347, 0, 0,397 1 ,2201,108,351, 0, 0,397 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 ,3141,108,407, -1, 0,415 / DATA C81 /3672,108,420, -1, 0,318 , 0, 0, 0, 0, 0, 0 3 ,2505,108,465, -1, 0,444 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / END ================================================ FILE: bd/of4pbd.f ================================================ BLOCK DATA OF4PBD COF4PBD C C C ARRAY FOR COMPLEX STRESSES SORT2 FREQUENCY C INTEGER C1,C21,C41,C61,C81 COMMON /OFPB4/ C1(240),C21(240),C41(240),C61(240),C81(240) C C IX,L1,L2,L3,L4,L5 , IX,L1,L2,L3,L4,L5 C REAL/IMAG L3=125 , MAG/PHASE L3=126 C (L1 IS SET FOR ELEM.ID, ALWAYS = 108) C DATA C1 / 846,108,136,125, 0,195 , 856,108,136,126, 0,195 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 846,108,144,125, 0,195 , 856,108,144,126, 0,195 4 , 846,108,137,125, 0,196 , 856,108,137,126, 0,196 5 , 846,108,145,125, 0,196 , 856,108,145,126, 0,196 6 , 964,108,139,125, 0,197 , 990,108,139,126, 0,197 7 , 964,108,138,125, 0,197 , 990,108,138,126, 0,197 8 , 964,108,143,125, 0,197 , 990,108,143,126, 0,197 9 ,1016,108,142,125, 0,198 ,1029,108,142,126, 0,198 O , 846,108,131,125, 0,195 , 856,108,131,126, 0,195 1 , 897,108,128,125, 0,199 , 908,108,128,126, 0,199 2 , 897,108,129,125, 0,199 , 908,108,129,126, 0,199 3 , 897,108,130,125, 0,199 , 908,108,130,126, 0,199 4 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 964,108,133,125, 0,197 , 990,108,133,126, 0,197 6 ,1016,108,132,125, 0,198 ,1029,108,132,126, 0,198 7 , 964,108,140,125, 0,197 , 990,108,140,126, 0,197 8 , 964,108,135,125, 0,197 , 990,108,135,126, 0,197 9 , 964,108,134,125, 0,197 , 990,108,134,126, 0,197 O , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 / DATA C21 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 4 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 8 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 O , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 4 ,1042,108,127,125, 0,200 ,1074,108,127,126, 0,200 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 8 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 ,1179,108,222,125, 0,220 ,1214,108,222,126, 0,220 O ,1179,108,224,125, 0,220 ,1214,108,224,126, 0,220 / DATA C41 / 1179,108,226,125, 0,220 ,1214,108,226,126, 0,220 2 ,1179,108,228,125, 0,220 ,1214,108,228,126, 0,220 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 4 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 ,1435,108,236,125, 0,252 ,1448,108,236,126, 0,252 8 ,1298,108,237,125, 0,243 ,1321,108,237,126, 0,243 9 ,3042,108,238,125, 0,453 ,3069,108,238,126, 0,453 O , 865,108,239,125, 0,249 , 881,108,239,126, 0,249 1 ,1353,108,240,125, 0,246 ,1370,108,240,126, 0,246 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 ,1298,108,266,125, 0,278 ,1321,108,266,126, 0,278 4 ,1298,108,267,125, 0,278 ,1321,108,267,126, 0,278 5 ,1298,108,268,125, 0,278 ,1321,108,268,126, 0,278 6 ,1298,108,269,125, 0,278 ,1321,108,269,126, 0,278 7 ,1298,108,270,125, 0,278 ,1321,108,270,126, 0,278 8 ,1298,108,288,125, 0,278 ,1321,108,288,126, 0,278 9 ,1298,108,289,125, 0,278 ,1321,108,289,126, 0,278 O ,1298,108,290,125, 0,278 ,1321,108,290,126, 0,278 / DATA C61 / 1298,108,291,125, 0,278 ,1321,108,291,126, 0,278 2 ,1016,108,305,125, 0,198 ,1029,108,305,126, 0,198 3 ,1016,108,307,125, 0,326 ,1029,108,307,126, 0,326 4 , 964,108,448,125, 0,450 , 990,108,448,126, 0,450 5 ,4250,108,331,125, 0,462 ,4250,108,331,126, 0,462 6 ,4250,108,331,125, 0,462 ,4250,108,331,126, 0,462 7 ,4268,108,331,125, 0,462 ,4268,108,331,126, 0,462 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O ,2857,108,393,125, 0,399 ,2857,108,393,126, 0,399 1 ,2956,108,395,125, 0,399 ,2956,108,395,126, 0,399 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 4 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O ,3447,108,412,125, 0,414 ,3447,108,412,126, 0,414 / DATA C81 / 3799,108,426,125, 0,200 ,3766,108,426,126, 0,200 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 964,108,466,125, 0,450 , 990,108,466,126, 0,450 4 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 4 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / END ================================================ FILE: bd/of5pbd.f ================================================ BLOCK DATA OF5PBD COF5PBD C C C ARRAY FOR REAL FORCES SORT 1 C INTEGER C1,C21,C41,C61,C81 COMMON /OFPB5/ C1(120),C21(120),C41(120),C61(120),C81(120) DATA C 1 / 43, 0, 36, -1, 7, 8 , 11, 0, 37, -1, 9, 10 3 , 43, 0, 54, -1, 7, 8 ,1521, 0, 38, -1, 0,312 5 , 43, 0, 39, -1, 13, 12 , 65, 0, 51, -1, 14, 15 7 , 65, 0, 40, -1, 14, 15 , 65, 0, 53, -1, 14, 15 9 , 0, 0, 0, -1, 0, 0 , 43, 0, 46, -1, 7, 8 1 , 54, 0, 41, -1, 16, 17 , 54, 0, 42, -1, 16, 17 3 , 54, 0, 43, -1, 16, 17 , 54, 0, 44, -1, 16, 17 5 , 65, 0, 48, -1, 14, 15 , 0, 0, 0, -1, 0, 0 7 , 65, 0, 52, -1, 14, 15 , 65, 0, 50, -1, 14, 15 9 , 65, 0, 49, -1, 14, 15 , 0, 0, 0, -1, 0, 0 / DATA C21 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 11, 0, 47, -1, 9, 10 5 ,1127, 0,205, -1, 0,207 , 236, 0, 83, -1, 84, 85 7 , 255, 0, 86, -1, 84, 85 , 279, 0, 87, -1, 88, 89 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 / DATA C41 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 ,1242, 0,259, -1, 0,265 ,1242, 0,260, -1, 0,265 5 ,1242, 0,261, -1, 0,265 ,1242, 0,262, -1, 0,265 7 ,1242, 0,263, -1, 0,265 ,1242, 0,284, -1, 0,265 9 ,1242, 0,285, -1, 0,265 ,1242, 0,286, -1, 0,265 / DATA C61 / 1242, 0,287, -1, 0,265 , 0, 0, 0, -1, 0, 0 3 ,1521, 0,310, -1, 0,312 ,4061, 0,440,441,442, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 ,1961, 0,339, -1,340,341 9 ,2028, 0,342, -1,340,341 ,2181, 0,349, -1, 0,350 1 ,2214, 0,352, -1, 0,350 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 ,2371, 0,357, -1,359,360 5 ,2371, 0,342, -1,359,360 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / DATA C81 / 3581, 0,416,417,418,419 ,3939, 0,432, -1, 0,434 3 ,4061, 0,463,441,442, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 ,1939, 0,333, -1,334,335 / END ================================================ FILE: bd/of6pbd.f ================================================ BLOCK DATA OF6PBD COF6PBD C C C ARRAY FOR COMPLEX FORCES SORT 1 C INTEGER C1,C21,C41,C61,C81 COMMON /OFPB6/ C1(240),C21(240),C41(240),C61(240),C81(240) DATA C1 / 473,104,156,125, 0,167 , 483,104,156,126, 0,167 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 473,104,162,125, 0,167 , 483,104,162,126, 0,167 4 ,1564,104,157,125, 0,312 ,1643,104,157,126, 0,312 5 , 473,104,163,125,174,173 , 483,104,163,126,174,173 6 , 668,104,159,125, 14, 15 , 683,104,159,126, 14, 15 7 , 668,104,158,125, 14, 15 , 683,104,158,126, 14, 15 8 , 668,104,161,125, 14, 15 , 683,104,161,126, 14, 15 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 O , 473,104,152,125, 0,167 , 483,104,152,126, 0,167 1 , 493,104,148,125, 0,170 , 504,104,148,126, 0,170 2 , 493,104,149,125, 0,170 , 504,104,149,126, 0,170 3 , 493,104,150,125, 0,170 , 504,104,150,126, 0,170 4 , 493,104,151,125, 0,170 , 504,104,151,126, 0,170 5 , 668,104,153,125, 14, 15 , 683,104,153,126, 14, 15 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 668,104,160,125, 14, 15 , 683,104,160,126, 14, 15 8 , 668,104,155,125, 14, 15 , 683,104,155,126, 14, 15 9 , 668,104,154,125, 14, 15 , 683,104,154,126, 14, 15 O , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 / DATA C21 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 4 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 8 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 O , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 4 , 626,104,146,125, 9, 10 , 647,104,146,126, 9, 10 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 8 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 O , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 / DATA C41 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 4 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 8 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 O , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 ,1254,104,271,125, 0,265 ,1276,104,271,126, 0,265 4 ,1254,104,272,125, 0,265 ,1276,104,272,126, 0,265 5 ,1254,104,273,125, 0,265 ,1276,104,273,126, 0,265 6 ,1254,104,274,125, 0,265 ,1276,104,274,126, 0,265 7 ,1254,104,275,125, 0,265 ,1276,104,275,126, 0,265 8 ,1254,104,292,125, 0,265 ,1276,104,292,126, 0,265 9 ,1254,104,293,125, 0,265 ,1276,104,293,126, 0,265 O ,1254,104,294,125, 0,265 ,1276,104,294,126, 0,265 / DATA C61 / 1254,104,295,125, 0,265 ,1276,104,295,126, 0,265 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 ,1564,104,311,126, 0,312 ,1643,104,311,126, 0,312 4 ,4229,104,460,125,441,442 ,4206,104,460,126,441,442 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O ,2587,104,392,125, 0,350 ,2622,104,392,126, 0,350 1 ,2664,104,394,125, 0,350 ,2710,104,394,126, 0,350 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 448,104,455,125, 0,169 , 461,104,455,126, 0,169 C * , 515,104,457,125, 0,168 , 540,104,457,126, 0,168 C * , 448,104,457,125, 0,169 , 461,104,457,126, 0,169 4 , 668,104,457,125, 14, 15 , 683,104,457,126, 14, 15 5 , 0,104,459,125, 0, 0 , 0,104,459,126, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / DATA C81 / 3869,104,424,126, 0,427 ,3832,104,424,125, 0,427 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 ,4229,104,464,125,441,442 ,4206,104,464,126,441,442 4 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 4 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / END ================================================ FILE: bd/of7pbd.f ================================================ BLOCK DATA OF7PBD COF7PBD C C C ARRAY FOR REAL FORCES SORT 2 - TIME C INTEGER C1,C21,C41,C61,C81 COMMON /OFPB7/ C1(120),C21(120),C41(120),C61(120),C81(120) DATA C1 / 698,108, 36, -1, 0,176 , 707,108, 37, -1, 0,177 3 , 698,108, 54, -1, 0,176 ,1542,108, 38, -1, 0,314 5 , 698,108, 39, -1, 0,179 , 719,108, 51, -1, 0,180 7 , 719,108, 40, -1, 0,180 , 719,108, 53, -1, 0,180 9 , 0, 0, 0, -1, 0, 0 , 698,108, 46, -1, 0,176 1 , 728,108, 41, -1, 0,181 , 728,108, 42, -1, 0,181 3 , 728,108, 43, -1, 0,181 , 728,108, 44, -1, 0,181 5 , 719,108, 48, -1, 0,180 , 0, 0, 0, -1, 0, 0 7 , 719,108, 52, -1, 0,180 , 719,108, 50, -1, 0,180 9 , 719,108, 49, -1, 0,180 , 0, 0, 0, -1, 0, 0 / DATA C21 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 707,108, 47, -1, 0,177 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 / DATA C41 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 ,1493,108,259, -1, 0,277 ,1493,108,260, -1, 0,277 5 ,1493,108,261, -1, 0,277 ,1493,108,262, -1, 0,277 7 ,1493,108,263, -1, 0,277 ,1493,108,284, -1, 0,277 9 ,1493,108,285, -1, 0,277 ,1493,108,286, -1, 0,277 / DATA C61 / 1493,108,287, -1, 0,277 , 0, 0, 0, -1, 0, 0 3 ,1542,108,310, -1, 0,314 ,4105,108,440,445,446, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 ,2983,108,349, 0, 0,400 1 ,3001,108,352, 0, 0,400 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / DATA C81 / 3655,108,416, -1,421,422 ,3945,108,432, -1, 0,433 3 ,4105,108,463,445,446, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / END ================================================ FILE: bd/of7sbd.f ================================================ BLOCK DATA OF7SBD COF7SBD C C C ARRAY FOR REAL FORCES SORT 2 - SUBCASE - STATICS C INTEGER C1,C21,C41,C61,C81 COMMON /OFPB7S/ C1(120),C21(120),C41(120),C61(120),C81(120) C DATA C1 / 1792,108, 36, -1, 0,322 ,1231,108, 37, -1, 0,320 3 ,1792,108, 54, -1, 0,322 ,1752,108, 38, -1, 0,319 5 ,1792,108, 39, -1, 0,366 ,2441,108, 51, -1, 0,367 7 ,2441,108, 40, -1, 0,367 ,2441,108, 53, -1, 0,367 9 , 0, 0, 0, -1, 0, 0 ,1792,108, 46, -1, 0,322 1 ,2451,108, 41, -1, 0,368 ,2451,108, 42, -1, 0,368 3 ,2451,108, 43, -1, 0,368 ,2451,108, 44, -1, 0,368 5 ,2441,108, 48, -1, 0,367 , 0, 0, 0, -1, 0, 0 7 ,2441,108, 52, -1, 0,367 ,2441,108, 50, -1, 0,367 9 ,2441,108, 49, -1, 0,367 , 0, 0, 0, -1, 0, 0 / DATA C21 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 ,1231,108, 47, -1, 0,320 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 CWKBR 7/94 SPR94001 C 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 255, 0, 86, -1,473,474 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 / DATA C41 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 ,1493,108,259, -1, 0,277 ,1493,108,260, -1, 0,277 5 ,1493,108,261, -1, 0,277 ,1493,108,262, -1, 0,277 7 ,1493,108,263, -1, 0,277 ,1493,108,284, -1, 0,277 9 ,1493,108,285, -1, 0,277 ,1493,108,286, -1, 0,277 / DATA C61 / 1493,108,287, -1, 0,277 , 0, 0, 0, -1, 0, 0 3 ,1752,108,310, -1, 0,319 ,4083,108,440,447,446, -1 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 ,2181,108,349, 0, 0,396 1 ,2214,108,352, 0, 0,396 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / DATA C81 / 3674,108,416, -1,421,423 , 0, 0, 0, 0, 0, 0 3 ,4083,108,463,447,446, -1 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / END ================================================ FILE: bd/of8pbd.f ================================================ BLOCK DATA OF8PBD COF8PBD C C C ARRAY FOR COMPLEX FORCES SORT 2 - FREQUENCY C INTEGER C1,C21,C41,C61,C81 COMMON /OFPB8/ C1(240),C21(240),C41(240),C61(240),C81(240) DATA C1 / 846,108,156,125, 0,190 , 856,108,156,126, 0,190 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 846,108,162,125, 0,190 , 856,108,162,126, 0,190 4 ,1603,108,157,125, 0,314 ,1681,108,157,126, 0,314 5 , 846,108,163,125, 0,192 , 856,108,163,126, 0,192 6 , 865,108,159,125, 0,193 , 881,108,159,126, 0,193 7 , 865,108,158,125, 0,193 , 881,108,158,126, 0,193 8 , 865,108,161,125, 0,193 , 881,108,161,126, 0,193 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 O , 846,108,152,125, 0,190 , 856,108,152,126, 0,190 1 , 897,108,148,125, 0,194 , 908,108,148,126, 0,194 2 , 897,108,149,125, 0,194 , 908,108,149,126, 0,194 3 , 897,108,150,125, 0,194 , 908,108,150,126, 0,194 4 , 897,108,151,125, 0,194 , 908,108,151,126, 0,194 5 , 865,108,153,125, 0,193 , 881,108,153,126, 0,193 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 865,108,160,125, 0,193 , 881,108,160,126, 0,193 8 , 865,108,155,125, 0,193 , 881,108,155,126, 0,193 9 , 865,108,154,125, 0,193 , 881,108,154,126, 0,193 O , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 / DATA C21 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 4 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 8 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 O , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 4 , 919,108,146,125, 0,201 , 941,108,146,126, 0,201 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 8 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 O , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 / DATA C41 / 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 4 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 5 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 6 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 7 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 8 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 9 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 O , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 ,1298,108,271,125, 0,279 ,1321,108,271,126, 0,279 4 ,1298,108,272,125, 0,279 ,1321,108,272,126, 0,279 5 ,1298,108,273,125, 0,279 ,1321,108,273,126, 0,279 6 ,1298,108,274,125, 0,279 ,1321,108,274,126, 0,279 7 ,1298,108,275,125, 0,279 ,1321,108,275,126, 0,279 8 ,1298,108,292,125, 0,279 ,1321,108,292,126, 0,279 9 ,1298,108,293,125, 0,279 ,1321,108,293,126, 0,279 O ,1298,108,294,125, 0,279 ,1321,108,294,126, 0,279 / DATA C61 / 1298,108,295,125, 0,279 ,1321,108,295,126, 0,279 2 , 0, 0, 0, -1, 0, 0 , 0, 0, 0, -1, 0, 0 3 ,1603,108,311,125, 0,313 ,1681,108,311,126, 0,313 4 ,3120,108,460,125, 0,461 ,3097,108,460,126, 0,461 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O ,2787,108,392,125, 0,398 ,2822,108,392,126, 0,398 1 ,2864,108,394,125, 0,398 ,2910,108,394,126, 0,398 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 4 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / DATA C81 / 3729,108,424,126, 0,425 ,3692,108,424,125, 0,425 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 ,3120,108,464,125, 0,461 ,3097,108,464,126, 0,461 4 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 1 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 2 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 3 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 4 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 5 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 6 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 7 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 8 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 9 , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 O , 0, 0, 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0 / END ================================================ FILE: bd/of9pbd.f ================================================ BLOCK DATA OF9PBD COF9PBD C C BLOCK DATA FOR ALL NON-STRESS AND NON-FORCE C ARRAYS C INTEGER C1, C41 COMMON /OFPB9/ C1(240), C41(240) C DISPLACEMENT VECTOR REAL SORT 1 DATA C1 / 1, 0, 1, -1, 0, 2 , 0, 0, 0, -1, 0, 0 C DISPLACEMENT VECTOR REAL SORT 2 A ,311,107, 1, -1, 0,315 , 354,107, 1, -1, 0,112 C DISPLACEMENT VECTOR COMPLEX SORT 1 B ,374,104,119,125, 0, 2 , 411,104,119,126, 0, 2 C DISPLACEMENT VECTOR COMPLEX SORT 2 C ,392,107,119,125, 0,111 , 429,107,119,126, 0,111 C LOAD VECTOR REAL SORT 1 D , 1, 0, 33, -1, 0, 2 , 0, 0, 0, -1, 0, 0 C LOAD VECTOR REAL SORT 2 E ,311,107, 33, -1, 0,315 , 354,107, 33, -1, 0,112 C LOAD VECTOR COMPLEX SORT 1 F ,374,104,123,125, 0, 2 , 411,104,123,126, 0, 2 C LOAD VECTOR COMPLEX SORT 2 G ,392,107,123,125, 0,111 , 429,107,123,126, 0,111 C SPCF VECTOR REAL SORT 1 H , 1, 0, 45, -1, 0, 2 , 0, 0, 0, -1, 0, 0 C SPCF VECTOR REAL SORT 2 I ,311,107, 45, -1, 0,315 , 354,107, 45, -1, 0,112 C SPCF VECTOR COMPLEX SORT 1 J ,374,104,122,125, 0, 2 , 411,104,122,126, 0, 2 C SPCF VECTOR COMPLEX SORT 2 K ,392,107,122,125, 0,111 , 429,107,122,126, 0,111 C VELOCITY VECTOR REAL SORT 1 ACCELERATION VECTOR REAL SORT 1 L , 1,106,113, -1, 0, 2 , 1,106,114, -1, 0, 2 C VELOCITY REAL SORT 2(LEFT) ACCELERATION REAL SORT 2 (RIGHT) M ,354,107,113, -1, 0,112 , 354,107,114, -1, 0,112 C NON-LINEAR FORCE REAL SORT 1 NON-LINEAR FORCE REAL SORT 2 N , 1,106,115, -1, 0, 2 , 354,107,115, -1, 0,112 C VELOCITY COMPLEX SORT 1 O ,374,104,120,125, 0, 2 , 411,104,120,126, 0, 2 C VELOCITY COMPLEX SORT 2 P ,392,107,120,125, 0,111 , 429,107,120,126, 0,111 C ACCELERATION COMPLEX SORT 1 Q ,374,104,121,125, 0, 2 , 411,104,121,126, 0, 2 C ACCELERATION COMPLEX SORT 2 R ,392,107,121,125, 0,111 , 429,107,121,126, 0,111 C EIGENVALUE SUMMARY REAL SORT 1 EIGENVALUE SUMMARY COMPLEX SORT 1 S ,298, 0, 3, -1, 4, 5 , 365, 0,116, -1,117,118 / C C EIGENVECTOR COMPLEX SORT 1 DATA C41 / 374, 0,124,125, 0, 2 , 411, 0,124,126, 0, 2 C VDR-DISPLACEMENT REAL SORT 1 VDR-DISPLACEMENT REAL SORT 2 A , 1, 0,212, -1, 0, 2 , 354,107,212, -1, 0,112 C VDR-DISPLACEMENT VECTOR COMPLEX SORT 1 B ,374,104,208,125, 0, 2 , 411,104,208,126, 0, 2 C VDR-DISPLACEMENT VECTOR COMPLEX SORT 2 C ,392,107,208,125, 0,111 , 429,107,208,126, 0,111 C VDR-VELOCITY REAL SORT 1 VDR-VELOCITY REAL SORT 2 D , 1, 0,211, -1, 0, 2 , 354,107,211, -1, 0,112 C VDR-VELOCITY VECTOR COMPLEX SORT 1 E ,374,104,209,125, 0, 2 , 411,104,209,126, 0, 2 C VDR-VELOCITY VECTOR COMPLEX SORT 2 F ,392,107,209,125, 0,111 , 429,107,209,126, 0,111 C VDR-ACCELERATION REAL SORT 1 VDR-ACCELERATION REAL SORT 2 G , 1, 0,213, -1, 0, 2 , 354,107,213, -1, 0,112 C VDR-ACCELERATION VECTOR COMPLEX SORT 1 H ,374,104,210,125, 0, 2 , 411,104,210,126, 0, 2 C VDR-ACCELERATION VECTOR COMPLEX SORT 2 I ,392,107,210,125, 0,111 , 429,107,210,126, 0,111 C VDR-EIGENVECTOR COMPLEX SORT 1 J ,374,104,214,125, 0, 2 , 411,104,214,126, 0, 2 C VDR-EIGENVECTOR COMPLEX SORT 2 K ,392,107,214,125, 0,111 , 429,107,214,126, 0,111 C EIGENVALUE ANALYSIS SUMMARY (4 TYPES) REAL SORT 1 L , 1, 0, 0, -1, 92, 93 , 1, 0, 0, -1, 90, 91 M ,336, 0, 92, -1, 95, 94 , 1, 0, 0, -1,215,216 C EIGENVALUE ANYLYSIS SUMMARY COMPLEX SORT 1 (4 TYPES) N , 1, 0, 0, -1, 96, 98 , 1, 0, 0, -1,100, 99 O ,345, 0, 96, -1, 95, 97 , 1, 0, 0, -1,100, 99 C EIGENVECTOR REAL SORT 1 GPST REAL SORT 1 P , 1, 0, 6, -1, 0, 2 , 321, 0, 30, -1, 31, 32 C ELEMENT STRAIN ENERGY Q ,2258, 0,353, -1, 0,354 , 0, 0, 0, 0, 0, 0 C GRID POINT FORCE BALANCE R ,2266, 0,355, -1, 0,356 , 0, 0, 0, 0, 0, 0 C MPCFORCE VECTOR REAL SORT 1 S , 1, 0,375, -1, 0, 2 , 0, 0, 0, -1, 0, 0 / C END ================================================ FILE: bd/ofp1bd.f ================================================ BLOCK DATA OFP1BD COFP1BD INTEGER D1 ,D201 ,D401 ,D601 ,D801 ,D1001,D1201,D1401,D1601, 1 D1801,D2001,D2201,D2401,D2601,D2801,D3001,D3201,D3401, 2 D3601,D3801,D4001,D4201 COMMON /OFPBD1/ D1(200), D201(200), D401(200), D601(200), 1 D801(200),D1001(200),D1201(200),D1401(200),D1601(200), 2 D1801(200),D2001(200),D2201(200),D2401(200),D2601(200), 3 D2801(200),D3001(200),D3201(200),D3401(200),D3601(200), 4 D3801(200),D4001(200),D4201( 90) C***** C DATA RECORD DEFINITION DATA IS IN THE D-ARRAY... C***** C WHEN ADDING STRINGS REMEMBER THAT C FIRST WORD OF EACH STRING = NUMBER OF LINES OF OUTPUT THE FORMAT C STRING WILL PRODUCE C***** C POINTERS TO THE OFP5BD FORMAT BLOCKS C NEGATIVE POINTERS REFER TO ESINGL ARRAYS FOR SPACING OR BCD WORDS C POSITIVE POINTERS REFER TO THE E ARRAYS FOR DATA PRINT FORMAT C SUMMARY OF FORMAT BLOCKS IN OFP5BD - C FORMAT INDEX FORMAT INDEX FORMAT INDEX FORMAT INDEX C ------ ----- ------ ----- ------ ----- ------ ----- C E-ARRAY C E15.6 1 F20.4 26 I10 51 '0',I20 76 C E16.6 2 F16.4 27 I7,1X 52 I10,5X 77 C E17.6 3 F22.4 28 3X,A4 53 78 C E18.6 4 E27.6 29 '0',I13 54 I8,2X 79 C E19.6 5 F12.5 30 1X,I20 55 F8.3 80 C E20.6 6 E13.5 31 5X,A1,3X 56 '0',I27 81 C E21.6 7 F13.3 32 1X,I22 57 '0',I5 82 C E30.6 8 F18.4 33 I12 58 '0',I3 83 C E26.6 9 F26.4 34 1X,I19 59 I4 84 C E24.6 10 E14.5 35 I16 60 E11.4 85 C F11.4 11 F14.3 36 I8 61 A4 86 C F14.4 12 F5.2 37 I9 62 9E11.3 87 C E28.6 13 E13.6 38 I11 63 F22.3 88 C E37.6 14 39 I20 64 /E11.3 89 C E22.6 15 E9.1 40 I19 65 F19.4 90 C E14.6 16 6X,A1,3X 41 1X,I23 66 F8.2 91 C F15.4 17 I15 42 I23 67 E12.5 92 C F9.4 18 I9,1X 43 I28 68 '0',I12 93 C F15.3 19 '0',I8 44 /1H ,I18 69 4X,I8 94 C E23.6 20 1X,I13 45 '0',I15 70 95 C E35.6 21 1X,I8 46 '0',I14 71 96 C E25.5 22 '0',I7 47 F22.4 72 97 C E50.6 23 6X,I8 48 F16.4 73 98 C F46.4 24 1X,I15 49 F10.4 74 99 C 25 1X,I12 50 '0',I19 75 100 C C E-SINGL ARRAY C / -1 /14X -17 /28X -33 'ZX' -49 C 15X -2 11X -18 /15X -34 'C' -50 C 10X -3 /24X -19 /19X -35 'LZ' -51 C 5X -4 '0' -20 /21X -36 'CP' -52 C 1X -5 ' /' -21 /11X -37 'MP' -53 C /10X -6 'EN' -22 /17X -38 'C ' -54 C 16X -7 'DA' -23 2X -39 3X -55 C '1 ' -8 'DB' -24 'X' -40 /30X -56 C '2 ' -9 /'0' -25 'XY' -41 9X -57 C '3 ' -10 23X -26 'A' -42 /23X -58 C '4 ' -11 /26X -27 'LX' -43 6X -59 C '5 ' -12 /9X -28 'Y' -44 39X -60 C 7X -13 /12X -29 'YZ' -45 24X -61 C /16X -14 /' ' -30 'B' -46 -62 C /13X -15 /20X -31 'LY' -47 -63 C 4X -16 /32X -32 'Z' -48 -64 C***** C DATA D1/ 1, 45, 41, 1, 1, 1, 1, 1, 1, 0 1 , 1, 50, 3, 16, 1, 16, 1, 16, 1, 1 2 , 0, 0, 3, 47, 3, 1, 1, 1, 1, 1 3 , 1, 40, -6, 1, 1, 1, 1, -2, 1, 1 4 , 40, 0, 201, 45, -4, 1, 1, -18, 45, -4 5 , 1, 1, 0, 401, 50, 4, 42, 4, 42, 4 6 , 42, 4, 0, 0, 1, 49, 15, 15, 15, 15 7 , 15, 0, 0, 0, 201, 48, 2, -5, 40, 2 8 , -5, 40, -16, 46, 2, -5, 40, 2, -5, 40 9 , 0, 0, 3, 44, 2, 1, 1, 3, 3, 1 O , -4, 40, -1, -3, 1, 1, 1, -7, 4, 1 1 , -4, 40, 0, 0, 201, 49, -4, 1, 1, -5 2 , 40, 42, -4, 1, 1, -5, 40, 0, 0, 3 3 , 44, 2, 4, 1, 1, 11, 2, 2, 1, -28 4 , 2, 4, 1, 1, 11, 2, 2, 1, 0, 0 5 , 0, 1, 46, 6, 1, 1, 12, 5, 1, 1 6 , 0, 0, 1, 46, 7, 8, 8, 8, 0, 0 7 , 6, 44, -13, -8, 9, 9, 9, 9, -14, -9 8 , 9, 9, 9, 9, -14, -10, 9, 9, 9, 9 9 , -14, -11, 9, 9, 9, 9, -14, -12, 9, 9/ DATA D201/9, 9, 0, 0, 0, 0, 0, 0, 0, 0 1 , 4, 44, -16, -8, 5, 10, 6, 10, 6, -15 2 , -9, 5, 10, 6, 10, 6, -15, -10, 5, 10 3 , 6, 10, 6, 0, 0, 4, 44, -4, -8, 13 4 , 14, 14, -17, -9, 13, 14, 14, -17, -10, 13 5 , 14, 14, 0, 0, 5, 44, -4, -8, 13, 14 6 , 14, -17, -9, 13, 14, 14, -17, -10, 13, 14 7 , 14, -17, -11, 13, 14, 14, 0, 0, 3, 44 8 , -4, -8, 5, 4, 4, 4, 4, 4, -17, -9 9 , 5, 4, 4, 4, 4, 4, 0, 1, 46, 51 O , 6, 6, 6, 6, 6, 0, 0, 0, 0, 0 1 , 1, 77, 56, 1, 1, 1, 1, 1, 1, 0 2 , 1, 45, 53, 61, 63, 62, 62, 65, 62, 62 3 , 65, 62, 62, 0, 0, 1, 55, 5, 5, 5 4 , 5, 42, 0, 0, 1, 55, 15, 2, 9, 17 5 , 63, 0, 0, 1, 1, 56, 1, 1, 1, 1 6 , 1, 1, 0, 0, 1, 57, 58, 15, 3, 15 7 , 15, 0, 0, 3, 54, 41, 1, 1, 1, 1 8 , 1, 1, -19, 1, 1, 1, 1, 1, 1, 0 9 , 0, 3, -20, 16, 56, 1, 1, 1, 1, 1/ DATA D401/1, -19, 1, 1, 1, 1, 1, 1, 0, 0 1 , 3, 54, 41, 1, 1, 1, 1, 1, 1, -31 2 , 17, 17, 17, 17, 17, 17, 0, 0, 3, -20 3 , 16, 56, 1, 1, 1, 1, 1, 1, -31, 17 4 , 17, 17, 17, 17, 17, 0, 0, 1, 59, 4 5 , -21, 16, 4, -21, 16, 4, -21, 16, 0, 0 6 , 1, 59, 4, -21, 18, 20, -21, 18, 20, -21 7 , 18, 0, 1, 66, 8, -21, 16, 8, -21, 16 8 , 0, 0, 1, 66, 8, -21, 18, 21, -21, 18 9 , 0, 0, 201, 57, 5, -21, 16, 67, 5, -21 O , 16, 0, 0, 201, 57, 5, -21, 18, 68, 5 1 , -21, 18, 0, 0, 3, 44, 2, 4, -21, 16 2 , 4, -21, 16, 4, -21, 16, -1, 22, 4, -21 3 , 16, 4, -21, 16, 4, -21, 16, 0, 0, 3 4 , 44, 2, 4, -21, 18, 20, -21, 18, 20, -21 5 , 18, -1, 22, 4, -21, 18, 20, -21, 18, 20 6 , -21, 18, 0, 0, 6, 69, -4, -22, -23, 15 7 , 1, 1, 1, 6, -1, 23, 1, 1, 1, 6 8 , -25, -26, -22, -24, 15, 1, 1, 1, -1, 23 9 , 1, 1, 1, 0, 6, 69, -4, -22, -23, 15/ DATA D601/1, 1, 1, 6, -1, 24, 17, 17, 17, 26 1 , -25, -26, -22, -24, 15, 1, 1, 1, -1, 24 2 , 17, 17, 17, 0, 0, 3, 71, 1, 16, 1 3 , 16, 1, 16, 1, 1, -17, 2, 16, 1, 16 4 , 1, 16, 1, 1, 0, 0, 3, 71, 1, 16 5 , 1, 16, 1, 16, 1, 1, -17, -5, 11, 12 6 , 17, 12, 17, 12, 17, 17, 0, 3, 70, 15 7 , 15, 15, 15, 15, -14, 15, 15, 15, 15, 15 8 , 0, 0, 3, 70, 15, 15, 15, 15, 15, -29 9 , 28, 28, 28, 28, 28, 0, 0, 201, 1, 5 O , 1, 9, 5, 1, 0, 0, 1, 1, 1, 16 1 , 1, 16, 1, 16, 1, 1, 0, 0, 1, 2 2 , 15, 15, 15, 15, 15, 0, 0, 401, 2, 1 3 , 4, 1, 4, 1, 4, 1, 0, 0, 201, 1 4 , 1, -5, 40, 2, -5, 40, 16, 1, -5, 40 5 , 2, -5, 40, 0, 0, 3, -20, 16, 2, 1 6 , 1, 3, 4, 1, -4, 40, -17, 3, 1, 1 7 , 3, 4, 1, -4, 40, 0, 0, 201, 2, 6 8 , 1, -5, 40, 1, 6, 1, -5, 40, 0, 0 9 , 3, -20, 16, 16, 16, 1, 1, 11, 2, 2/ DATA D801/1, -17, 1, 16, 1, 1, 11, 2, 2, 1 1 , 0, 0, 1, 1, 16, 16, 1, 11, 6, 1 2 , 1, 0, 0, 0, 3, 16, 4, 1, 1, 1 3 , 1, 2, 1, 40, -14, 2, 1, 1, 1, -2 4 , 2, 1, 40, -30, 0, 1, 10, 8, -21, 16 5 , 8, -21, 16, 0, 0, 1, 10, 8, -21, 18 6 , 21, -21, 18, 0, 3, -20, 1, 15, 15, 15 7 , 15, 15, -14, 15, 15, 15, 15, 15, 0, 0 8 , 3, -20, 1, 15, 15, 15, 15, 15, -29, 28 9 , 28, 28, 28, 28, 0, 0, 201, 20, 5, -21 O , 16, 20, 5, -21, 16, 0, 0, 201, 20, 5 1 , -21, 18, 13, 5, -21, 18, 0, 0, 3, -20 2 , 16, 1, 16, 1, 16, 1, 16, 1, 1, -17 3 , 2, 16, 1, 16, 1, 16, 1, 1, 0, 0 4 , 3, -20, 16, 1, 16, 1, 16, 1, 16, 1 5 , 1, -17, -5, 11, 12, 17, 12, 17, 12, 17 6 , 17, 0, 0, 3, -20, 16, 16, 4, -21, 16 7 , 4, -21, 16, 4, -21, 16, -1, -16, 22, 4 8 , -21, 16, 4, -21, 16, 4, -21, 16, 0, 3 9 , -20, 16, 16, 4, -21, 18, 20, -21, 18, 20/ DATA D1001/-21,18, -1, -16, 22, 4, -21, 18, 20, -21 1 , 18, 20, -21, 18, 0, 1, 6, 4, -21, 16 2 , 4, -21, 16, 4, -21, 16, 0, 0, 1, 6 3 , 4, -21, 18, 20, -21, 18, 20, -21, 18, 0 4 , 0, 6, -1, 5, -4, -22, -23, 15, 1, 1 5 , 1, 6, -1, 23, 1, 1, 1, 6, -25, -26 6 , -22, -24, 15, 1, 1, 1, -1, 23, 1, 1 7 , 1, 0, 0, 6, -1, 5, -4, -22, -23, 15 8 , 1, 1, 1, 6, -1, 24, 17, 17, 17, 26 9 , -25, -26, -22, -24, 15, 1, 1, 1, -1, 24 O , 17, 17, 17, 0, 0, 3, 47, 73, 16, 16 1 , 16, 16, 74, 16, 16, 16, -19, 16, 16, 16 2 , 16, 74, 16, 16, 16, 0, 1, 46, 72, 15 3 , 4, 4, 4, 4, 0, 0, 1, 60, 4, 16 4 , 16, 16, 16, 16, 16, 16, 0, 0, 1, 2 5 , 4, 16, 16, 16, 16, 16, 16, 16, 0, 0 6 , 0, 3, 81, 4, 16, 16, 16, 16, 16, -32 7 , 16, 16, 16, 16, 16, 16, 0, 0, 3, -20 8 , 29, 4, 16, 16, 16, 16, 16, -32, 16, 16 9 , 16, 16, 16, 16, 0, 0, 3, 81, 4, 16/ DATA D1201/16, 16, 16, 16, -33, 12, 12, 12, 12, 12 1 , 12, 0, 0, 3, -20, 29, 4, 16, 16, 16 2 , 16, 16, -33, 12, 12, 12, 12, 12, 12, 0 3 , 1, 77, 1, 16, 1, 16, 1, 16, 1, 1 4 , 0, 1, 42, 31, 31, 31, 31, 31, 31, 31 5 , 31, 31, 0, 3, 71, 31, 31, 31, 31, 31 6 , 31, 31, 31, 31, -34, 31, 31, 31, 31, 31 7 , 31, 31, 31, 31, 0, 3, 71, 31, 31, 31 8 , 31, 31, 31, 31, 31, 31, -37, 32, 32, 32 9 , 32, 32, 32, 32, 32, 32, 0, 3, -20, 16 O , 31, 31, 31, 31, 31, 31, 31, 31, 31, -34 1 , 31, 31, 31, 31, 31, 31, 31, 31, 31, 0 2 , 3, -20, 16, 31, 31, 31, 31, 31, 31, 31 3 , 31, 31, -37, 32, 32, 32, 32, 32, 32, 32 4 , 32, 32, 0, 1, 6, 4, 4, 4, 4, 4 5 , 4, 0, 3, -20, 5, 4, 4, 4, 4, 4 6 , 4, -31, 4, 4, 4, 4, 4, 4, 0, 3 7 , -20, 5, 4, 4, 4, 4, 4, 4, -14, 33 8 , 33, 33, 33, 33, 33, 0, 1, 59, 4, 4 9 , 4, 4, 4, 4, 0, 3, 75, 4, 4, 4/ DATA D1401/4, 4, 4, -31, 4, 4, 4, 4, 4, 4 1 , 0, 3, 75, 4, 4, 4, 4, 4, 4, -14 2 , 33, 33, 33, 33, 33, 33, 0, 1, 7, 9 3 , 9, 9, 9, 0, 3, -20, 6, 9, 9, 9 4 , 9, -36, 9, 9, 9, 9, 0, 3, -20, 6 5 , 9, 9, 9, 9, -38, 34, 34, 34, 34, 0 6 , 1, 55, 9, 9, 9, 9, 0, 3, 76, 9 7 , 9, 9, 9, -36, 9, 9, 9, 9, 0, 3 8 , 76, 9, 9, 9, 9, -38, 34, 34, 34, 34 9 , 0, 1, 1, 16, 31, 31, 31, 31, 31, 31 O , 31, 31, 31, 0, 0, 201, 77, 6, 1, -5 1 , 40, 77, 6, 1, -5, 40, 0, 0, 0, 0 2 , 3, 54, 31, 35, 35, 35, 35, 35, 35, 35 3 , -31, 35, 35, 35, 35, 35, 35, 35, 35, 0 4 , 0, 3, -20, 31, 31, 35, 35, 35, 35, 35 5 , 35, 35, -31, 35, 35, 35, 35, 35, 35, 35 6 , 35, 0, 0, 5, 45, 31, 35, 35, 35, 35 7 , 35, 35, 35, -15, 35, 35, 35, 35, 35, 35 8 , 35, 35, -31, 35, 35, 35, 35, 35, 35, 35 9 , 35, -31, 35, 35, 35, 35, 35, 35, 35, 35/ DATA D1601/0, 0, 5, -20, 31, 31, 35, 35, 35, 35 1 , 35, 35, 35, -15, 35, 35, 35, 35, 35, 35 2 , 35, 35, -31, 35, 35, 35, 35, 35, 35, 35 3 , 35, -31, 35, 35, 35, 35, 35, 35, 35, 35 4 , 0, 0, 5, 45, 31, 35, 35, 35, 35, 35 5 , 35, 35, -28, 36, 36, 36, 36, 36, 36, 36 6 , 36, -31, 35, 35, 35, 35, 35, 35, 35, 35 7 , -14, 36, 36, 36, 36, 36, 36, 36, 36, 0 8 , 0, 5, -20, 31, 31, 35, 35, 35, 35, 35 9 , 35, 35, -28, 36, 36, 36, 36, 36, 36, 36 O , 36, -31, 35, 35, 35, 35, 35, 35, 35, 35 1 , -14, 36, 36, 36, 36, 36, 36, 36, 36, 0 2 , 1, 77, 16, 16, 1, 12, 6, 1, 1, 0 3 , 3, 77, 3, 1, 1, 1, 1, 2, 1, 40 4 , -14, 2, 1, 1, 1, -2, 2, 1, 40, -30 5 , 0, 3, -20, 61, -4, 31, 35, 35, 35, 35 6 , 35, 35, 35, -31, 35, 35, 35, 35, 35, 35 7 , 35, 35, 0, 201, 77, 1, -5, 40, 2, -5 8 , 40, 62, -4, 1, -5, 40, 2, -5, 40, 0 9 , 0, 201, 77, 5, 1, 55, -4, 5, 1, 0/ DATA D1801/4, 44, 46, -39, -40, 16, -39, -41, 16, -39 1 , -42, 16, -39, -43, -5, 37, 37, 37, 1, 1 2 , -31, -44, 16, -39, -45, 16, -39, -46, 16, -39 3 , -47, -5, 37, 37, 37, -31, -48, 16, -39, -49 4 , 16, -39, -50, 16, -39, -51, -5, 37, 37, 37 5 , 0, 3, 44, 46, 1, 3, 3, 3, 3, 3 6 , -35, 16, 3, 3, 3, 3, 3, 0, 4, 44 7 , 46, -39, -40, 16, -39, -41, 16, -39, -42, 16 8 , -39, -43, -5, 37, 37, 37, 1, 1, -6, 79 9 , -44, 16, -39, -45, 16, -39, -46, 16, -39, -47 O , -5, 37, 37, 37, -31, -48, 16, -39, -49, 16 1 , -39, -50, 16, -39, -51, -5, 37, 37, 37, 0 2 , 3, 44, 46, 1, 3, 3, 3, 3, 3, -28 3 , 79, 16, 3, 3, 3, 3, 3, 0, 1, 50 4 , 80, 1, 1, 4, 1, 15, 5, 0, 1, 50 5 , 80, 1, 16, 16, 16, 1, 1, 16, 40, 0 6 , 9, 44, -4, -52, 5, 4, 4, 4, 4, 4 7 , -17, -52, 5, 4, 4, 4, 4, 4, -17, -52 8 , 5, 4, 4, 4, 4, 4, -17, -52, 5, 4 9 , 4, 4, 4, 4, -17, -53, 5, 4, 4, 4/ DATA D2001/4, 4, -17, -53, 5, 4, 4, 4, 4, 4 1 , -17, -53, 5, 4, 4, 4, 4, 4, -17, -53 2 , 5, 4, 4, 4, 4, 4, 0, 7, 44, -4 3 , -52, 5, 4, 4, 4, 4, 4, -17, -52, 5 4 , 4, 4, 4, 4, 4, -17, -52, 5, 4, 4 5 , 4, 4, 4, -17, -53, 5, 4, 4, 4, 4 6 , 4, -17, -53, 5, 4, 4, 4, 4, 4, -17 7 , -53, 5, 4, 4, 4, 4, 4, 0, 6, 82 8 , -55, -8, 1, 1, 1, 1, 1, 1, 1, 1 9 , -28, -9, 1, 1, 1, 1, 1, 1, 1, 1 O , -28, -10, 1, 1, 1, 1, 1, 1, 1, 1 1 , -28, -11, 1, 1, 1, 1, 1, 1, 1, 1 2 , -28, -54, 1, 1, 1, 1, 1, 1, 1, 1 3 , 0, 5, 82, -55, -54, 1, 1, 1, 1, 1 4 , 1, 1, 1, -28, -8, 1, 1, 1, 1, 1 5 , 1, 1, 1, -28, -9, 1, 1, 1, 1, 1 6 , 1, 1, 1, -28, -10, 1, 1, 1, 1, 1 7 , 1, 1, 1, 0, 0, 2, 47, 72, 87, 0 8 , 4, 47, 72, 15, 15, 15, 15, -56, 15, 15 9 , 15, 15, -56, 15, 15, 15, 15, 0, 0, 0/ DATA D2201/6, 47, 72, 87, -56, 87, -56, 87, -56, 87 1 , -56, 87, 0, 5, 47, 72, 15, 15, 15, 15 2 , -56, 15, 15, 15, 15, -56, 15, 15, 15, 15 3 , -56, 15, 15, 15, 15, 0, 0, 0, 5, 47 4 , 72, 8, 8, 8, -56, 8, 8, 8, -56, 8 5 , 8, 8, -56, 8, 8, 8, 0, 1, -26, 57 6 , -16, 4, -4, 33, 0, 1, -5, 51, -5, 50 7 , -16, 86, 86, -16, 1, 1, 1, 1, 1, 1 8 , 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 9 , 9, 44, -16, -8, 1, 1, 16, 16, 1, 16 O , 16, 1, -34, 1, 1, 16, 16, 1, 16, 16 1 , 1, -15, -10, 1, 1, 16, 16, 1, 16, 16 2 , 1, -34, 1, 1, 16, 16, 1, 16, 16, 1 3 , -15, -12, 1, 1, 16, 16, 1, 16, 16, 1 4 , -34, 1, 1, 16, 16, 1, 16, 16, 1, -15 5 , -54, 1, 1, 16, 16, 1, 16, 16, 1, -34 6 , 1, 1, 16, 16, 1, 16, 16, 1, 0, 0 7 , 4, 54, -57, -8, 6, 6, 6, 6, 6, -58 8 , -10, 6, 6, 6, 6, 6, -58, -12, 6, 6 9 , 6, 6, 6, 0, 0, 0, 0, 0, 0, 0/ DATA D2401/5, 44, -13, -8, 1, 1, 1, 1, 1, 1 1 , 1, -14, -10, 1, 1, 1, 1, 1, 1, 1 2 , -14, -12, 1, 1, 1, 1, 1, 1, 1, -14 3 , -54, 1, 1, 1, 1, 1, 1, 1, 0, 0 4 , 1, 77, -5, 15, 15, 15, 15, 15, 0, 0 5 , 401, 51, -59, 1, 58, -59, 1, 58, -59, 1 6 , 58, -59, 1, 0, 0, 3, -20, 61, -55, -55 7 , 2, 1, 1, 3, 4, 1, -4, 40, -17, 3 8 , 1, 1, 3, 4, 1, -4, 40, 0, 0, 201 9 , 62, -13, 6, 1, -5, 40, 61, -13, 6, 1 O , -5, 40, 0, 0, 3, -20, 61, -55, -55, 16 1 , 16, 1, 1, 11, 2, 2, 1, -17, 1, 16 2 , 1, 1, 11, 2, 2, 1, 0, 0, 1, 62 3 , -13, 4, 16, 16, 16, 16, 16, 16, 16, 0 4 , 0, 3, 44, 42, 5, 1, 1, 11, 2, 2 5 , 1, -28, 42, 5, 1, 1, 11, 2, 2, 1 6 , 0, 0, 3, 44, 86, -59, -59, 4, 1, 1 7 , 11, 2, 2, 1, -28, 86, -59, -59, 4, 1 8 , 1, 11, 2, 2, 1, 0, 9, 47, 72, 15 9 , 15, 15, 15, -56, 15, 15, 15, 15, -1, -56/ DATA D2601/15, 15, 15, 15, -56, 15, 15, 15, 15, -1 1 , -56, 15, 15, 15, 15, -56, 15, 15, 15, 15 2 , 0, 9, 47, 72, 15, 15, 15, 15, -58, 88 3 , 88, 88, 88, -1, -56, 15, 15, 15, 15, -58 4 , 88, 88, 88, 88, -1, -56, 15, 15, 15, 15 5 , -58, 88, 88, 88, 88, 0, 3, 47, 72, 87 6 , -56, 87, 0, 12, 47, 72, 15, 15, 15, 15 7 , -56, 15, 15, 15, 15, -1, -56, 15, 15, 15 8 , 15, -56, 15, 15, 15, 15, -1, -56, 15, 15 9 , 15, 15, -56, 15, 15, 15, 15, -1, -56, 15 O , 15, 15, 15, -56, 15, 15, 15, 15, 0, 12 1 , 47, 72, 15, 15, 15, 15, -58, 88, 88, 88 2 , 88, -1, -56, 15, 15, 15, 15, -58, 88, 88 3 , 88, 88, -1, -56, 15, 15, 15, 15, -58, 88 4 , 88, 88, 88, -1, -56, 15, 15, 15, 15, -58 5 , 88, 88, 88, 88, 0, 15, 47, 72, 87, -56 6 , 87, -1, -56, 87, -56, 87, -1, -56, 87, -56 7 , 87, -1, -56, 87, -56, 87, -1, -56, 87, -56 8 , 87, 0, 0, 0, 0, 0, 9, 89, 90, 15 9 , 15, 15, 15, -56, 15, 15, 15, 15, -1, -56/ DATA D2801/15, 15, 15, 15, -56, 15, 15, 15, 15, -1 1 , -56, 15, 15, 15, 15, -56, 15, 15, 15, 15 2 , 0, 9, 89, 90, 15, 15, 15, 15, -58, 88 3 , 88, 88, 88, -1, -56, 15, 15, 15, 15, -58 4 , 88, 88, 88, 88, -1, -56, 15, 15, 15, 15 5 , -58, 88, 88, 88, 88, 0, 3, 89, 90, 87 6 , -56, 87, 0, 12, 89, 90, 15, 15, 15, 15 7 , -56, 15, 15, 15, 15, -1, -56, 15, 15, 15 8 , 15, -56, 15, 15, 15, 15, -1, -56, 15, 15 9 , 15, 15, -56, 15, 15, 15, 15, -1, -56, 15 O , 15, 15, 15, -56, 15, 15, 15, 15, 0, 12 1 , 89, 90, 15, 15, 15, 15, -58, 88, 88, 88 2 , 88, -1, -56, 15, 15, 15, 15, -58, 88, 88 3 , 88, 88, -1, -56, 15, 15, 15, 15, -58, 88 4 , 88, 88, 88, -1, -56, 15, 15, 15, 15, -58 5 , 88, 88, 88, 88, 0, 15, 89, 90, 87, -56 6 , 87, -1, -56, 87, -56, 87, -1, -56, 87, -56 7 , 87, -1, -56, 87, -56, 87, -1, -56, 87, -56 8 , 87, 0, 4, 89, 90, 15, 15, 15, 15, -56 9 , 15, 15, 15, 15, -56, 15, 15, 15, 15, 0/ DATA D3001/5, 89, 90, 15, 15, 15, 15, -56, 15, 15 1 , 15, 15, -56, 15, 15, 15, 15, -56, 15, 15 2 , 15, 15, 0, 2, 89, 90, 87, 0, 6, 89 3 , 90, 87, -56, 87, -56, 87, -56, 87, -56, 87 4 , 0, 3, -20, 92, 31, 91, 31, 31, 91, 31 5 , 91, 31, 91, 31, 91, -15, 31, 91, 31, 31 6 , 91, 31, 91, 31, 91, 31, 91, 0, 3, -20 7 , 92, 31, 91, 31, 31, 91, 31, 91, 31, 91 8 , 31, 91, -28, 32, 91, 32, 32, 91, 32, 91 9 , 32, 91, 32, 91, 0, 0, 3, -20, 92, 16 O , 16, 16, 1, 16, 16, 1, 16, -1, -16, -16 1 , 36, 36, 36, 19, 36, 36, 19, 36, 0, 3 2 , -20, 92, 16, 16, 16, 1, 16, 16, 1, 16 3 , -15, 16, 16, 16, 1, 16, 16, 1, 16, 0 4 , 8, 46, -5, 84, -13, 84, -55, 61, 46, -39 5 , 85, -39, 85, -39, 85, -15, -2, 61, 46, -39 6 , 85, -39, 85, -39, 85, -15, -2, 61, 46, -39 7 , 85, -39, 85, -39, 85, -15, -2, 61, 46, -39 8 , 85, -39, 85, -39, 85, -15, -2, 61, 46, -39 9 , 85, -39, 85, -39, 85, -15, -2, 61, 46, -39/ DATA D3201/85,-39, 85, -39, 85, -15, -2, 61, 46, -39 1 , 85, -39, 85, -39, 85, -15, -2, 61, 46, -39 2 , 85, -39, 85, -39, 85, 0, 8, 85, -5, 84 3 , -4, 84, -55, 61, 46, -39, 85, -39, 85, -39 4 , 85, -15, -2, 61, 46, -39, 85, -39, 85, -39 5 , 85, -15, -2, 61, 46, -39, 85, -39, 85, -39 6 , 85, -15, -2, 61, 46, -39, 85, -39, 85, -39 7 , 85, -15, -2, 61, 46, -39, 85, -39, 85, -39 8 , 85, -15, -2, 61, 46, -39, 85, -39, 85, -39 9 , 85, -15, -2, 61, 46, -39, 85, -39, 85, -39 O , 85, -15, -2, 61, 46, -39, 85, -39, 85, -39 1 , 85, 0, 8, 46, -5, 84, -13, 84, -55, 61 2 , 46, -39, 85, -21, 85, -55, 85, -21, 85, -55 3 , 85, -21, 85, -15, -2, 61, 46, -39, 85, -21 4 , 85, -55, 85, -21, 85, -55, 85, -21, 85, -15 5 , -2, 61, 46, -39, 85, -21, 85, -55, 85, -21 6 , 85, -55, 85, -21, 85, -15, -2, 61, 46, -39 7 , 85, -21, 85, -55, 85, -21, 85, -55, 85, -21 8 , 85, -15, -2, 61, 46, -39, 85, -21, 85, -55 9 , 85, -21, 85, -55, 85, -21, 85, -15, -2, 61/ DATA D3401/46,-39, 85, -21, 85, -55, 85, -21, 85, -55 1 , 85, -21, 85, -15, -2, 61, 46, -39, 85, -21 2 , 85, -55, 85, -21, 85, -55, 85, -21, 85, -15 3 , -2, 61, 46, -39, 85, -21, 85, -55, 85, -21 4 , 85, -55, 85, -21, 85, 0, 8, 85, -5, 84 5 , -4, 84, -55, 61, 46, -39, 85, -21, 85, -55 6 , 85, -21, 85, -55, 85, -21, 85, -15, -2, 61 7 , 46, -39, 85, -21, 85, -55, 85, -21, 85, -55 8 , 85, -21, 85, -15, -2, 61, 46, -39, 85, -21 9 , 85, -55, 85, -21, 85, -55, 85, -21, 85, -15 O , -2, 61, 46, -39, 85, -21, 85, -55, 85, -21 1 , 85, -55, 85, -21, 85, -15, -2, 61, 46, -39 2 , 85, -21, 85, -55, 85, -21, 85, -55, 85, -21 3 , 85, -15, -2, 61, 46, -39, 85, -21, 85, -55 4 , 85, -21, 85, -55, 85, -21, 85, -15, -2, 61 5 , 46, -39, 85, -21, 85, -55, 85, -21, 85, -55 6 , 85, -21, 85, -15, -2, 61, 46, -39, 85, -21 7 , 85, -55, 85, -21, 85, -55, 85, -21, 85, 0 8 , 3, -1, 50, 4, 1, 4, 1, 4, 4, -15 9 , 4, 1, 4, -2, 4, 4, 0, 0, 0, 0/ DATA D3601/6, -1, 48, -3, -22, -23, 15, 1, 1, 1 1 , 6, -1, 24, 17, 17, 17, 26, -1, -61, -22 2 , -24, 15, 1, 1, 1, 6, -1, 24, 17, 17 3 , 17, 26, 0, 3, 47, 3, 1, 1, 1, 1 4 , 1, 1, 40, -6, 1, 1, 1, 1, 1, 1 5 , 1, 40, 0, 0, 3, 1, 1, 1, 4, 1 6 , 4, 4, -15, 4, 1, 4, -2, 4, 4, -30 7 , 0, 3, 77, 3, 1, 1, 1, 1, 1, 1 8 , 40, -14, 2, 1, 1, 1, 1, 1, 1, 40 9 , 0, 6, -1, 5, -4, -22, -23, 5, 1, 4 O , 1, 4, 1, -33, 5, 1, 4, 1, 4, 1 1 , -25, -26, -22, -24, 5, 1, 4, -2, 4, 1 2 , -33, 5, 1, 4, -2, 4, 1, 0, 6, -1 3 , 5, -4, -22, -23, 5, 1, 4, 1, 4, 1 4 , -33, 17, 17, 33, 17, 33, 17, -25, -26, -22 5 , -24, 5, 1, 4, -2, 4, 1, -33, 17, 17 6 , 33, -2, 33, 17, 0, 6, -1, 5, -4, -22 7 , -23, 15, 1, 1, 1, 6, -1, 23, 1, 1 8 , 1, 6, -25, -26, -22, -24, 15, 1, 1, 1 9 , 6, -1, 23, 1, 1, 1, 6, 0, 6, -1/ DATA D3801/5, -4, -22, -23, 15, 1, 1, 1, 6, -1 1 , 24, 17, 17, 17, 26, -25, -26, -22, -24, 15 2 , 1, 1, 1, 6, -1, 24, 17, 17, 17, 26 3 , 0, 6, -1, 48, -3, -22, -23, 5, 1, 4 4 , 1, 4, 1, -33, 5, 1, 4, 1, 4, 1 5 , -25, -26, -22, -24, 5, 1, 4, -2, 4, 1 6 , -33, 4, 1, 4, -2, 4, 1, 0, 6, -1 7 , 48, -3, -22, -23, 5, 1, 4, 1, 4, 1 8 , -33, 17, 17, 33, 17, 33, 17, -25, -26, -22 9 , -24, 5, 1, 4, -2, 4, 1, -33, 17, 17 O , 33, -2, 33, 17, 0, 6, -1, 48, -3, -22 1 , -23, 15, 1, 1, 1, 6, -1, 23, 1, 1 2 , 1, 6, -1, -61, -22, -24, 15, 1, 1, 1 3 , 6, -1, 23, 1, 1, 1, 6, 0, 1, -60 4 , 42, -7, 2, 0, 1, -60, 2, -7, 16, 0 5 , 3, 4, 63, -4, 4, -21, 16, 4, -21, 16 6 , 4, -21, 16, -1, 64, -4, 4, -21, 16, 4 7 , -21, 16, 4, -21, 16, 0, 3, 44, 63, -4 8 , 4, -21, 18, 20, -21, 18, 20, -21, 18, -1 9 , 64, -4, 4, -21, 18, 20, -21, 18, 20, -21/ DATA D4001/18, 0, 3, -20, 16, 62, -4, 4, -21, 16 1 , 4, -21, 16, 4, -21, 16, -1, -2, 62, -4 2 , 4, -21, 16, 4, -21, 16, 4, -21, 16, 0 3 , 3, -20, 16, 62, -4, 4, -21, 18, 20, -21 4 , 18, 20, -21, 18, -1, -2, 62, -4, 4, -21 5 , 18, 20, -21, 18, 20, -21, 18, 0, 0, 0 6 , 2, -20, -16, 61, -5, -5, 31, -5, 31, -5 7 , 31, -5, 31, -5, 31, -5, 31, -5, 31, -5 8 , 31, 0, 2, -20, -5, 61, -57, -5, 31, -5 9 , 31, -5, 31, -5, 31, -5, 31, -5, 31, -5 O , 31, -5, 31, 0, 1, -5, 1, -55, -5, 31 1 , -5, 31, -5, 31, -5, 31, -5, 31, -5, 31 2 , -5, 31, -5, 31, 0, 1, 50, 31, 91, 31 3 , 31, 91, 31, 91, 31, 91, 31, 91, 0, 1 4 , 92, 31, 91, 31, 31, 91, 31, 91, 31, 91 5 , 31, 91, 0, 3, 93, 31, 91, 31, 31, 91 6 , 31, 91, 31, 91, 31, 91, -15, 31, 91, 31 7 , 31, 91, 31, 91, 31, 91, 31, 91, 0, 3 8 , 93, 31, 91, 31, 31, 91, 31, 91, 31, 91 9 , 31, 91, -28, 32, 91, 32, 32, 91, 32, 91/ DATA D4201/32, 91, 32, 91, 0, 3, -20, 94, 16, 16 1 , 16, 1, 16, 16, 1, 16, -1, -16, -16, 36 2 , 36, 36, 19, 36, 36, 19, 36, 0, 3, -20 3 , 94, 16, 16, 16, 1, 16, 16, 1, 16, -15 4 , 16, 16, 16, 1, 16, 16, 1, 16, 0, 3 5 , -20, 85, 61, 1, 3, 3, 3, 3, 3, -36 6 , 16, 3, 3, 3, 3, 3, 0, 3, -20, 85 7 , 61, 1, 3, 3, 3, 3, 3, -37, 79, 16 8 , 3, 3, 3, 3, 3, 0, 0, 0, 0, 0/ END ================================================ FILE: bd/ofp5bd.f ================================================ BLOCK DATA OFP5BD COFP5BD INTEGER ESINGL, E1, E21, E41, E61, E81 COMMON /OFPBD5/ ESINGL(64),E1(100),E21(100),E41(100),E61(100) 1 ,E81(100) C***** C SPACING ARRAY - ESINGL C***** DATA ESINGL( 1) / 4H/ / DATA ESINGL( 2) / 4H15X / DATA ESINGL( 3) / 4H10X / DATA ESINGL( 4) / 4H5X / DATA ESINGL( 5) / 4H1X / DATA ESINGL( 6) / 4H/10X / DATA ESINGL( 7) / 4H16X / DATA ESINGL( 8) / 4H2H1 / DATA ESINGL( 9) / 4H2H2 / DATA ESINGL(10) / 4H2H3 / DATA ESINGL(11) / 4H2H4 / DATA ESINGL(12) / 4H2H5 / DATA ESINGL(13) / 4H7X / DATA ESINGL(14) / 4H/16X / DATA ESINGL(15) / 4H/13X / DATA ESINGL(16) / 4H4X / DATA ESINGL(17) / 4H/14X / DATA ESINGL(18) / 4H11X / DATA ESINGL(19) / 4H/24X / DATA ESINGL(20) / 4H1H0 / DATA ESINGL(21) / 4H2H / / DATA ESINGL(22) / 4H2HEN / DATA ESINGL(23) / 4H2HDA / DATA ESINGL(24) / 4H2HDB / DATA ESINGL(25) / 4H/1H0 / DATA ESINGL(26) / 4H23X / DATA ESINGL(27) / 4H/26X / DATA ESINGL(28) / 4H/9X / DATA ESINGL(29) / 4H/12X / DATA ESINGL(30) / 4H/1H / DATA ESINGL(31) / 4H/20X / DATA ESINGL(32) / 4H/32X / DATA ESINGL(33) / 4H/28X / DATA ESINGL(34) / 4H/15X / DATA ESINGL(35) / 4H/19X / DATA ESINGL(36) / 4H/21X / DATA ESINGL(37) / 4H/11X / DATA ESINGL(38) / 4H/17X / DATA ESINGL(39) / 4H2X / DATA ESINGL(40) / 4H1HX / DATA ESINGL(41) / 4H2HXY / DATA ESINGL(42) / 4H1HA / DATA ESINGL(43) / 4H2HLX / DATA ESINGL(44) / 4H1HY / DATA ESINGL(45) / 4H2HYZ / DATA ESINGL(46) / 4H1HB / DATA ESINGL(47) / 4H2HLY / DATA ESINGL(48) / 4H1HZ / DATA ESINGL(49) / 4H2HZX / DATA ESINGL(50) / 4H1HC / DATA ESINGL(51) / 4H2HLZ / DATA ESINGL(52) / 4H2HCP / DATA ESINGL(53) / 4H2HMP / DATA ESINGL(54) / 4H2HC / DATA ESINGL(55) / 4H3X / DATA ESINGL(56) / 4H/30X / DATA ESINGL(57) / 4H9X / DATA ESINGL(58) / 4H/23X / DATA ESINGL(59) / 4H6X / DATA ESINGL(60) / 4H39X / DATA ESINGL(61) / 4H24X / DATA ESINGL(62) / 4H / DATA ESINGL(63) / 4H / DATA ESINGL(64) / 4H / C C C FORMAT BUILDING BLOCK E-ARRAY C C C -STANDARD- -ALTERNATES- C **************** *********************** DATA E1 / 4H1P,E ,4H15.6 , 4H0P,F ,4H6.1 ,4H,9X 2 , 4H1P,E ,4H16.6 , 4H0P,F ,4H7.1 ,4H,9X 3 , 4H1P,E ,4H17.6 , 4H0P,F ,4H8.1 ,4H,9X 4 , 4H1P,E ,4H18.6 , 4H0P,F ,4H9.1 ,4H,9X 5 , 4H1P,E ,4H19.6 , 4H0P,F ,4H10.1 ,4H,9X 6 , 4H1P,E ,4H20.6 , 4H0P,F ,4H11.1 ,4H,9X 7 , 4H1P,E ,4H21.6 , 4H0P,F ,4H12.1 ,4H,9X 8 , 4H1P,E ,4H30.6 , 4H0P,F ,4H21.1 ,4H,9X 9 , 4H1P,E ,4H26.6 , 4H0P,F ,4H17.1 ,4H,9X O , 4H1P,E ,4H24.6 , 4H0P,F ,4H15.1 ,4H,9X 1 , 4H0P,F ,4H11.4 , 4H0P,F ,4H8.1 ,4H,3X 2 , 4H0P,F ,4H14.4 , 4H0P,F ,4H11.1 ,4H,3X 3 , 4H1P,E ,4H28.6 , 4H0P,F ,4H19.1 ,4H,9X 4 , 4H1P,E ,4H37.6 , 4H0P,F ,4H28.1 ,4H,9X 5 , 4H1P,E ,4H22.6 , 4H0P,F ,4H17.1 ,4H,5X 6 , 4H1P,E ,4H14.6 , 4H0P,F ,4H5.1 ,4H,9X 7 , 4H0P,F ,4H15.4 , 4H0P,F ,4H12.1 ,4H,3X 8 , 4H0P,F ,4H9.4 , 4H0P,F ,4H6.1 ,4H,3X 9 , 4H0P,F ,4H15.3 , 4H0P,F ,4H12.1 ,4H 3X O , 4H1P,E ,4H23.6 , 4H0P,F ,4H14.1 ,4H,9X / DATA E21 / 4H1P,E ,4H35.6 , 4H0P,F ,4H26.1 ,4H,9X 2 , 4H1P,E ,4H25.6 , 4H0P,F ,4H16.1 ,4H,9X 3 , 4H1P,E ,4H50.6 , 4H0P,F ,4H41.1 ,4H,9X 4 , 4H0P,F ,4H46.4 , 4H0P,F ,4H43.1 ,4H,3X 5 , 4H ,4H , 4H0P,F ,4H12.1 ,4H,3X 6 , 4H0P,F ,4H20.4 , 4H0P,F ,4H17.1 ,4H,3X 7 , 4H0P,F ,4H16.4 , 4H0P,F ,4H13.1 ,4H,3X 8 , 4H0P,F ,4H22.4 , 4H0P,F ,4H19.1 ,4H,3X 9 , 4H1P,E ,4H27.6 , 4H0P,F ,4H18.1 ,4H,9X O , 4H0P,F ,4H12.5 , 4H0P,F ,4H11.1 ,4H,3X 1 , 4H1P,E ,4H13.5 , 4H0P,F ,4H5.1 ,4H,8X 2 , 4H0P,F ,4H13.3 , 4H0P,F ,4H9.1 ,4H,4X 3 , 4H0P,F ,4H18.4 , 4H0P,F ,4H15.1 ,4H,3X 4 , 4H0P,F ,4H26.4 , 4H0P,F ,4H23.1 ,4H,3X 5 , 4H1P,E ,4H14.5 , 4H0P,F ,4H6.1 ,4H,8X 6 , 4H0P,F ,4H14.3 , 4H0P,F ,4H10.1 ,4H,4X 7 , 4H0P,F ,4H5.2 , 4H0P,F ,4H4.1 ,4H,1X 8 , 4H1P,E ,4H13.6 , 4H0P,F ,4H4.1 ,4H,9X 9 , 4H ,4H , 4H ,4H ,4H O , 4H1P,E ,4H9.1 , 4HA1 ,4H,8X ,4H / DATA E41 / 4H6X,A ,4H1,3X , 4HI7 ,4H,3X ,4H 2 , 4HI15 ,4H , 4H ,4H ,4H 3 , 4HI9,1 ,4HX , 4H ,4H ,4H 4 , 4H1H0, ,4HI8 , 4H ,4H ,4H 5 , 4H1X,I ,4H13 , 4H ,4H ,4H 6 , 4H1X,I ,4H8 , 4H ,4H ,4H 7 , 4H1H0, ,4HI7 , 4H ,4H ,4H 8 , 4H6X,I ,4H8 , 4H ,4H ,4H 9 , 4H1X,I ,4H15 , 4H ,4H ,4H O , 4H1X,I ,4H12 , 4H ,4H ,4H 1 , 4HI10 ,4H , 4H ,4H ,4H 2 , 4HI7,1 ,4HX , 4H ,4H ,4H 3 , 4H3X,A ,4H4 , 4H ,4H ,4H 4 , 4H1H0, ,4HI13 , 4H ,4H ,4H 5 , 4H1X,I ,4H20 , 4H ,4H ,4H 6 , 4H5X,A ,4H1,3X , 4HI5 ,4H,4X ,4H 7 , 4H1X,I ,4H22 , 4H ,4H ,4H 8 , 4HI12 ,4H , 4H ,4H ,4H 9 , 4H1X,I ,4H19 , 4H ,4H ,4H O , 4HI16 ,4H , 4H ,4H ,4H / DATA E61 / 4HI8 ,4H , 4HA4 ,4H,4X ,4H 2 , 4HI9 ,4H , 4HA4 ,4H,5X ,4H 3 , 4HI11 ,4H , 4HA4 ,4H,7X ,4H 4 , 4HI20 ,4H , 4HA4 ,4H,16X ,4H 5 , 4HI19 ,4H , 4HA4 ,4H,15X ,4H 6 , 4H1X,I ,4H23 , 4H ,4H ,4H 7 , 4HI23 ,4H , 4H ,4H ,4H 8 , 4HI28 ,4H , 4H ,4H ,4H 9 , 4H/1H ,4H,I18 , 4H ,4H ,4H O , 4H1H0, ,4HI15 , 4H ,4H ,4H 1 , 4H1H0, ,4HI14 , 4H ,4H ,4H 2 , 4H0P,F ,4H22.4 , 4HI9 ,4H,13X ,4H 3 , 4H0P,F ,4H16.4 , 4HI5 ,4H,11X ,4H 4 , 4H0P,F ,4H10.4 , 4H ,4H ,4H 5 , 4H1H0, ,4HI19 , 4H ,4H ,4H 6 , 4H1H0, ,4HI20 , 4H ,4H ,4H 7 , 4HI10, ,4H5X , 4H ,4H ,4H 8 , 4H ,4H , 4H ,4H ,4H 9 , 4HI8, ,4H2X , 4H3X,3 ,4HHCEN ,4H,A4 O , 4HF8.3 ,4H , 4H ,4H ,4H / DATA E81 / 4H1H0, ,4HI27 , 4H ,4H ,4H 2 , 4H1H0, ,4HI5 , 4H ,4H ,4H 3 , 4H1H0, ,4HI3 , 4H ,4H ,4H 4 , 4HI4 ,4H , 4H ,4H ,4H 5 , 4H1P,E ,4H11.4 , 4H0P,F ,4H4.1 ,4H,7X 6 , 4HA4 ,4H , 4H ,4H ,4H 7 , 4H1P9E ,4H11.3 , 4H0P9( ,4HF9.3 ,4H,2X) CAIX 7 , 4H 9E ,4H11.3 , 4H 9( ,4HF9.3 ,4H,2X) 8 , 4H0P,F ,4H22.3 , 4H0P,F ,4H20.1 ,4H,2X 9 , 4H/1PE ,4H11.3 , 4H/0PF ,4H7.1 ,4H,4X CAIX 9 , 4H/, E ,4H11.3 , 4H/0P, ,4HF7.1 ,4H,4X O , 4H0P,F ,4H19.4 , 4HI6 ,4H,13X ,4H 1 , 4HF8.2 ,4H , 4H ,4H ,4H 2 , 4H1P,E ,4H12.5 , 4H ,4H ,4H 3 , 4H1H0, ,4HI12 , 4H ,4H ,4H 4 , 4H4X,I ,4H8 , 4H4X,A ,4H4,4X ,4H 4 , 4H ,4H , 4H ,4H ,4H 5 , 4H ,4H , 4H ,4H ,4H 6 , 4H ,4H , 4H ,4H ,4H 7 , 4H ,4H , 4H ,4H ,4H 8 , 4H ,4H , 4H ,4H ,4H O , 4H ,4H , 4H ,4H ,4H / END ================================================ FILE: bd/ofsnbd.f ================================================ BLOCK DATA OFSNBD COFSNBD C C ARRAY FOR REAL STRAINS SORT1 C INTEGER C1 CWKBR NCL93012 3/94 COMMON /OFSN1/ C1(54) COMMON /OFSN1/ C1(66) DATA C1 / 2563, 0,379,389,383,391 ,2563, 0,380,389,383,391 A ,2563, 0,381,389,383,391 ,2563, 0,382,389,383,391 B ,2542, 0,379,390,385,384 ,2542, 0,380,390,385,384 C ,2542, 0,381,390,385,384 ,2542, 0,382,390,385,384 CWKBR NCL93012 3/94 D ,2542, 0,386,390,388,384 / D ,2542, 0,386,390,388,384 ,2542, 0,469,437,383,391 E ,2542, 0,470,437,383,391 / END ================================================ FILE: bd/ofssbd.f ================================================ BLOCK DATA OFSSBD COFSSBD C C ARRAY FOR REAL STRESSES SORT1 (IN MATERIAL COORDINATES) C INTEGER C1 COMMON /OFSS1/ C1(30) DATA C1 / 2542, 0, 70,390,376,377 ,2542, 0, 71,390,376,377 A ,2542, 0, 69,390,376,377 ,2542, 0, 68,390,376,377 B ,2542, 0,378,390,387,377 / END ================================================ FILE: bd/pla4bd.f ================================================ BLOCK DATA PLA4BD CPLA4BD C INTEGER CSTM ,ECPTS ,GPCT ,ECPTO ,OUTRW , 1 EOR ,CLSRW ,DIT C COMMON /PLA42C/ NPVT ,GAMI ,GAMIP1 ,IPASS ,ICSTM , 1 NCSTM ,IGPCT ,NGPCT ,IPOINT ,NPOINT , 2 I6X6K ,N6X6K ,CSTM ,MPT ,ECPTS , 3 GPCT ,DIT ,KGGNL ,ECPTO ,INRW , 4 OUTRW ,EOR ,NEOR ,CLSRW ,JMAX , 5 FROWIC ,LROWIC ,NROWSC ,NLINKS ,NWORDS(40), 6 IOVRLY(40) ,LINK(40) ,NOGO C DATA NPVT , GAMI,GAMIP1,IPASS,ICSTM,NCSTM / 6*0 /, 1 IGPCT , NGPCT,IPOINT,NPOINT,I6X6K,N6X6K/ 6*0 /, 2 CSTM , MPT,GPCT,DIT, KGGNL,ECPTO, ECPTS / 3 101 , 102,104 ,105, 201 ,202 , 301 /, 4 INRW , OUTRW , EOR, NEOR, CLSRW / 0,1,1,0,1 /, 5 JMAX , FROWIC,LROWIC,NROWSC,NLINKS / 4*0, 1 /, 6 NWORDS/ C C 1 ROD BEAM TUBE SHEAR TWIST C 2 TRIA1 TRBSC TRPLT TRMEM CONROD C 3 ELAS1 ELAS2 ELAS3 ELAS4 QDPLT C 4 QDMEM TRIA2 QUAD2 QUAD1 DAMP1 C 5 DAMP2 DAMP3 DAMP4 VISC MASS1 C 6 MASS2 MASS3 MASS4 CONM1 CONM2 C 7 PLOTEL REACT QUAD3 BAR CONE C 8 TRIARG TRAPRG TORDRG CORE CAP C 1 26, 0, 25, 0, 0, 2 42, 0, 0, 36, 26, 3 0, 0, 0, 0, 0, 4 44, 36, 44, 50, 0, 5 0, 0, 0, 0, 0, 6 0, 0, 0, 0, 0, 7 0, 0, 0, 57, 0, 8 0, 0, 0, 0, 0 /, C 7 IOVRLY/ 40*1/, 8 NOGO / 0 / END ================================================ FILE: bd/plotbd.f ================================================ BLOCK DATA PLOTBD CPLOTBD IMPLICIT INTEGER (A-Z) INTEGER CHAR1(60,3),CHAR2(60,1),CHR19(2,79),CHRAM(2,88), 1 CHRNZ(2,84),CHLPQM(2,52),CHRSYM(2,19), 2 NPENS(20,2),PLTYPE(20,2),PBFSIZ(20,2),EOF(20,2) REAL CHRSCL,CNTR,DATA,D02,D03,EDGE,G,MAXDEF,PAPSIZ, 1 SCALE,S0S,VANGLE COMMON /CHAR94/ CHAR(60,4) COMMON /CHRDRW/ LSTCHR,CHRIND(60),CHR(2,350) COMMON /XXPARM/ BUFSIZ, C 1 ... PLOTTING DATA 1 CAMERA,BFRAMS,PLTMDL(2),TAPDEN, C 2 ... PEN + PAPER DATA 2 NOPENS,PAPSIZ(2),PAPTYP(2),PENSIZ(8),PENCLR(8,2),PENPAP, C 3 ... SCALING DATA 3 SCALE(2),FSCALE,MAXDEF,DEFMAX, C 4 ... VIEWING DATA 4 AXIS(3),DAXIS(3),VANGLE(5),VIEW(4), C 5 ... VANTAGE POINT, PROJECTION,OCULAR SEPARATION 5 FVP,R0,S0L,S0R,T0,D0,D02,D03,PRJECT, S0S, C 6 ... ORIGIN DATA 6 FORG,ORG,NORG,ORIGIN(11),EDGE(11,4),XY(11,3), C 7 ... CONTOUR PLOTTING DATA 7 NCNTR,CNTR(50),ICNTVL,WHERE,DIRECT,SUBCAS,FLAG,VALUE, 7 LASSET, C 8 ... DATA FOR USER PLOT TITLE CARD 8 FPLTIT,PLTITL(17),COLOR,LAYER, C 9 ... OFFSET SCALE (WILL BE SET TO 1 BY PLTSET) 9 OFFSCL COMMON /PLTDAT/ MODEL,PLOTER,XYMIN(2),XYMAX(2),AXYMAX(2), 1 XYEDGE(11),CHRSCL,PLTDAT(20),DATA(20,2) COMMON /SYMBLS/ NSYM,SYMBOL(20,2) COMMON /PLTSCR/ NCOR,PLTSC(50) COMMON /DRWAXS/ G(12) C C ... EQUIV FOR /CHAR94/... EQUIVALENCE (CHAR(1,1),CHAR1(1,1)) , (CHAR(1,4),CHAR2(1,1)) C C ... EQUIV FOR /CHRDRW/... EQUIVALENCE (CHR(1, 1),CHR19(1,1)) , (CHR(1, 80),CHRAM(1,1)) , 1 (CHR(1,168),CHRNZ(1,1)) , (CHR(1,252),CHLPQM(1,1)), 2 (CHR(1,304),CHRSYM(1,1)) C C ... EQUIV FOR /PLTDAT/... EQUIVALENCE (DATA( 7,1),NPENS(1,1)) , (DATA(10,1),PLTYPE(1,1)), 1 (DATA(12,1),PBFSIZ(1,1)), (DATA(13,1),EOF(1,1)) C DATA CHAR1 / 1 1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9,1HA,1HB,1HC,1HD,1HE, 2 1HF,1HG,1HH,1HI,1HJ,1HK,1HL,1HM,1HN,1HO,1HP,1HQ,1HR,1HS,1HT, 3 1HU,1HV,1HW,1HX,1HY,1HZ,1H(,1H),1H+,1H-,1H*,1H/,1H=,1H.,1H,, 4 1H$,1H-,1H ,12*0, C C ... THE FOLLOWING ARE NUMERIC EQUIVALENTS OF 7094 BINARY CHARACTERS. C C 5 ... 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F 5 00,01,02,03,04,05,06,07,08,09,17,18,19,20,21,22, C 6 ... G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V 6 23,24,25,33,34,35,36,37,38,39,40,41,50,51,52,53, C 7 ... W, X, Y, Z, (, ), , -, *, /, =, ., ,, $, -,BLANK 7 54,55,56,57,60,28,16,32,44,49,11,27,59,43,12,48, C 8 . EOR,EOF, SPECIAL, FILLER 8 58, 15, 63,42,26, 7*0, C C ... THE FOLLOWING ARE NUMBERIC EQUIVALENTS OF 7094 BCD CHARACTERS. C C 9 ... 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F 9 10,01,02,03,04,05,06,07,08,09,49,50,51,52,53,54, C O ... G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V O 55,56,57,33,34,35,36,37,38,39,40,41,18,19,20,21, C 11 ... W, X, Y, Z, (, ), , -, *, /, =, ., ,, $, -,BLANK 1 22,23,24,25,28,60,48,32,44,17,11,59,27,43,12,16, C 12 . EOR,EOF, SPECIAL, FILLER 2 26, 15, 31,42,58, 7*0/ C C ... THE FOLLOWING ARE NUMERIC VALUES ON CDC 6600 TO PRODUCE 7094 BCD C CHARACTERS. C DATA CHAR2 / C 1 ... 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F 1 27,28,29,30,31,32,33,34,35,36,01,02,03,04,05,06, C 2 ... G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V 2 07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22, C 3 ... W, X, Y, Z, (, ), , -, *, /, =, ., ,, $, -,BLANK 3 23,24,25,26,41,42,37,38,39,40,44,47,46,43,52,45, C 4 . EOR,EOF, SPECIAL, FILLER 4 50, 49, 55,54,58, 7*0/ C C ... DATA FOR DRAWING 6X6 CHARACTERS (8 UNITS WIDE - 16 UNITS HIGH). C C C THE FOLLOWING ARE INDICES USED TO DRAW CHARACTERS. C DATA LSTCHR,CHRIND / 52, C 1 0 1 2 3 4 5 6 7 8 9 A B C D E F 1 -25,001,006,014,027,031,041,052,055,071,080,086,098,106,113,120, C 2 G H I J K L M N O P Q R S T U V 2 126,136,142,148,155,160,163,168,172,181,188,199,208,220,225,231, C 3 W X Y Z ( ) + - * / = . , $ - DOT 3 234,239,243,248,252,256,260,264,266,274,276,280,285,287,302,304, C 4 CIRCLE SQUARE DIAMOND TRIANGLE END FILLER 4 -25, 309, 314, 319, 323, 7*0 / C C ... DATA FOR DRAWING CHARACTERS 1 TO 9. C DATA CHR19/ 1 2,5, 3,6, 3,0, 2,0, 4,0, 2 0,5, 1,6, 4,6, 5,5, 5,4, 0,1, 0,0, 5,0, 3 0,5, 1,6, 4,6, 5,5, 5,4, 4,3, 2,3, 4,3, 5,2, 5,1, 4,0, 1,0, 3 0,1, 4 4,0, 4,6, 0,2, 5,2, 5 5,6, 0,6, 0,3, 1,4, 4,4, 5,3, 5,1, 4,0, 1,0, 0,1, 6 4,6, 1,6, 0,5, 0,1, 1,0, 4,0, 5,1, 5,2, 4,3, 1,3, 0,2, 7 0,6, 5,6, 2,0, 8 4,3, 5,4, 5,5, 4,6, 1,6, 0,5, 0,4, 1,3, 4,3, 5,2, 5,1, 4,0, 8 1,0, 0,1, 0,2, 1,3, 9 5,0, 5,5, 4,6, 2,6, 1,5, 1,4, 2,3, 4,3, 5,4/ C C ... DATA FOR DRAWING CHARACTERS A TO M. C DATA CHRAM / A 0,0, 3,6, 5,2, 1,2, 5,2, 6,0, B 0,0, 0,6, 4,6, 5,5, 5,4, 4,3, 0,3, 4,3, 5,2, 5,1, 4,0, 0,0, C 5,5, 4,6, 1,6, 0,5, 0,1, 1,0, 4,0, 5,1, D 5,4, 4,6, 0,6, 0,0, 4,0, 5,2, 5,4, E 5,6, 0,6, 0,3, 3,3, 0,3, 0,0, 5,0, F 5,6, 0,6, 0,3, 3,3, 0,3, 0,0, G 5,5, 4,6, 1,6, 0,5, 0,1, 1,0, 4,0, 5,1, 5,3, 3,3, H 0,6, 0,0, 0,3, 5,3, 5,0, 5,6, I 2,6, 4,6, 3,6, 3,0, 2,0, 4,0, J 3,6, 5,6, 4,6, 4,1, 3,0, 1,0, 0,1, K 0,6, 0,0,-5,0, 0,3, 5,6, L 0,6, 0,0, 5,0, M 0,0, 0,6, 3,0, 6,6, 6,0/ C C ... DATA FOR DRAWING CHARACTERS N TO Z. C DATA CHRNZ / N 0,0, 0,6, 5,0, 5,6, O 6,5, 5,6, 1,6, 0,5, 0,1, 1,0, 5,0, 6,1, 6,5, P 0,0, 0,6, 4,6, 5,5, 5,4, 4,3, 0,3, Q 6,5, 5,6, 1,6, 0,5, 0,1, 1,0, 5,0, 6,1, 6,5,-4,2, 6,0, R 0,0, 0,6, 4,6, 5,5, 5,4, 4,3, 0,3, 3,3, 5,0, S 5,5, 4,6, 1,6, 0,5, 0,4, 1,3, 4,3, 5,2, 5,1, 4,0, 1,0, 0,1, T 0,6, 3,6, 3,0, 3,6, 6,6, U 0,6, 0,1, 1,0, 4,0, 5,1, 5,6, V 0,6, 3,0, 6,6, W 0,6, 1,0, 3,4, 5,0, 6,6, X 0,6, 6,0,-6,6, 0,0, Y 0,6, 3,3, 3,0, 3,3, 6,6, Z 0,6, 6,6, 0,0, 6,0/ C C ... DATA FOR DRAWING CHARACTERS ( TO -. C DATA CHLPQM / ( 5,6, 3,4, 3,2, 5,0, ) 1,6, 3,4, 3,2, 1,0, + 3,5, 3,1,-1,3, 5,3, - 1,3, 5,3, * 1,5, 5,1,-3,5, 3,1,-5,5, 1,1,-5,3, 1,3, / 0,0, 6,6, = 1,4, 4,4,-1,2, 4,2, . 2,0, 2,1, 3,1, 3,0, 2,0, , 1,0, 3,2, $ 6,5, 5,6, 1,6, 0,5, 0,4, 1,3, 5,3, 6,2, 6,1, 5,0, 3,0, 3,6, $ 3,0, 1,0, 0,1, - 3,6, 3,4/ C C ... DATA FOR DRAWING DOT, SQUARE, DIAMOND, TRIANGLE. C DATA CHRSYM / D 3,4, 2,3, 3,2, 4,3, 3,4, S 0,0, 0,6, 6,6, 6,0, 0,0, D 3,6, 0,3, 3,0, 6,3, 3,6, T 0,0, 3,6, 6,0, 0,0/ C DATA BUFSIZ / 0 /, C 1 ... CAMERA 2, 1 BLANK FRAME, PLOTTER MODEL --M,1-- 1 CAMERA,BFRAMS,PLTMDL,TAPDEN / 2, 1, 1HM, 1, 0 /, C 2 ... PAPER = DEFAULT,VELLUM...PEN SIZE = 1, COLOR = BLACK 2 NOPENS,PAPSIZ,PAPTYP,PENSIZ,PENCLR / 2 8, 2*0., 4HVELL, 2HUM, 8*1, 8*4HBLAC, 8*1HK /, C 3 ... FIND THE SCALES, MAX DEFORMATION = 0 3 SCALE(2),FSCALE,MAXDEF / 1.,1,0. /, C 4 ... AXES = +X,+Y,+Z, VIEW ANGLES 4 AXIS,DAXIS,VANGLE / 1,2,3,1,2,3, 0.,-1.E10,34.27,23.17,0./, C 5 ... FIND VANTAGE POINT, ORTHOGRAPIC PROJECTION, PLANE+OCULAR SEP. 5 FVP,PRJECT,D02,D03,S0S / 1,1,1.,2.,2.756 /, C 6 ... LEFT=BOTTOM=0, RIGHT=TOP=1. 6 NORG,ORG,FORG,EDGE / 10,0,1,22*0.,22*1. /, C 7 ... NCNTR=10=NO. CONTOURS, CNTR=LIST CONTOUR VALUES, ICNTVL= C MAJOR PRIN. STRESS, WHERE = Z1, DIRECT = COMMON 7 NCNTR,CNTR,ICNTVL,WHERE,DIRECT,FLAG,LASSET/ 7 10 ,50*0.0,1, 1, 2, 0, 0 /, C 8 ... DATA FOR USER PLOT TITLE CARD 8 FPLTIT,PLTITL / 0, 17*4H /, C 9 ... OFFSET SCALE (AND ALSO PLOT TAPE MESSAGE CONTROL) 9 OFFSCL / 0 / C C ... PLOTTER DATA. C DATA MODEL,PLOTER,CHRSCL / -1, 1, 1.0 / C C ... 1 NASTRAN GENERAL PURPOSE MICROFILM PLOTTER. C DATA DATA( 1,1) /1023.0 /, 2 DATA( 2,1) /1023.0 /, 3 DATA( 3,1) / 146.1429/, 4 DATA( 4,1) / 8.0 /, 5 DATA( 5,1) / 16.0 /, 6 DATA( 6,1) /1023.0 /, 8 DATA( 8,1) / 0.0 /, 9 DATA( 9,1) / 0.0 /, 1 DATA(11,1) /4HPLT2 /, 4 DATA(14,1) /1484.761 /, 5 DATA(15,1) / 0.0 /, 6 DATA(16,1) / 0.0 /, 7 DATA(17,1) / 0.0 /, 8 DATA(18,1) / 0.0 /, 9 DATA(19,1) / 0.0 /, * DATA(20,1) / 0.0 / C C ... 2 NASTRAN GENERAL PURPOSE TABLE OR DRUM PLOTTER C DATA DATA( 1,2) /3000.0 /, 2 DATA( 2,2) /3000.0 /, 3 DATA( 3,2) / 100.0 /, 4 DATA( 4,2) / 8.0 /, 5 DATA( 5,2) / 16.0 /, 6 DATA( 6,2) /3000.0 /, 8 DATA( 8,2) / 0.0 /, 9 DATA( 9,2) / 0.0 /, 1 DATA(11,2) /4HPLT2 /, 4 DATA(14,2) / 100.0 /, 5 DATA(15,2) / 0.0 /, 6 DATA(16,2) / 0.0 /, 7 DATA(17,2) / 0.0 /, 8 DATA(18,2) / 0.0 /, 9 DATA(19,2) / 0.0 /, * DATA(20,2) / 0.0 / C DATA NPENS(1,1),PLTYPE(1,1),PBFSIZ(1,1),EOF(1,1)/ 64,-1,3000,1 /, 1 NPENS(1,2),PLTYPE(1,2),PBFSIZ(1,2),EOF(1,2)/ 64,-2,3000,1 / C C ... SYMBOL DATA. C DATA NSYM,SYMBOL / 9, C X, *, +, -, DOT, CIRCLE, SQUARE, DIAMOND, TRIANGLE 1 34,41,39,40, 48, 49, 50, 51, 52, 11*0, 2 34,41,39,40, 48, 49, 50, 51, 52, 11*0/ C C ... PLOTTER SCRATCH AREA C C NCOR = ARRAY LENGTH DATA NCOR,PLTSC / 50,50*0 / C C ... DATA FOR DRAWING A X-Y-Z COORDINATE TRIAD IN /DRWAXS/ C G - X,Y,Z COORD. POINT DATA AND SYMBOLS C DATA G / 9*0.0, 1HX, 1HY, 1HZ / C END ================================================ FILE: bd/readbd.f ================================================ BLOCK DATA READBD CREADBD INTEGER SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,ORDER,RSTRT, 1 PHIA,OEIGS REAL LMIN,LMAX COMMON /REGEAN/ IM(7),IK(7),IEV(7),SCR1,SCR2,SCR3,SCR4,SCR5,LCORE, 1 RMAX,RMIN,MZ,NEV,EPSI,RMINR,NE,NIT,NEVM,SCR6,SCR7, 2 NFOUND,LAMA,IBUCK,NSYM COMMON /INVPWX/ IFILK(7),IFILM(7),IFILLM(7),IFILVC(7), 1 ISCR1,ISCR2,ISCR3,ISCR4,ISCR5,ISCR6,ISCR7,ISCR8, 2 IDUMP,LMIN,LMAX,NOEST,NDPLUS,NDMNUS,EPS,NOVECT COMMON /GIVN / G1,MO,MD,MR1,M1,M2,M3,M4,G2(8),RSTRT,NCOL,G3(2), 1 G4(82),ORDER,G5(2),LGAMA,G6(4),OEIGS,PHIA,G7(2), 2 MAX,X(35) DATA MO , MD ,MR1,M1 ,M2 ,M3 ,M4 ,LGAMA,OEIGS,PHIA / 1 301 , 304,202,303,307,308,309,201 ,204 ,305 / DATA ORDER , RSTRT,NCOL,MAX,IM ,IK ,IEV / 1 -2 , 0 ,0 ,253,102,6*0,101,6*0,302,0,0,2,1,0,0 / DATA SCR1 , SCR2,SCR3,SCR4,SCR5,LAMA,SCR6,SCR7 / 1 306 , 307 ,303 ,304 ,305 ,301 ,308 ,204 / DATA RMAX , RMIN,EPSI ,RMINR / 1 100.0 , .01 ,1.0E-11,-.001 / DATA MZ , NEV,NE,NIT,NEVM,NFOUND / 1 0 , 9 ,4 ,30 ,5 ,0 / DATA IFILK , IFILM ,IFILLM ,IFILVC / 1 101,6*0,102,6*0,201,6*0,202,6*0 / DATA ISCR1 ,ISCR2,ISCR3,ISCR4,ISCR5,ISCR6,ISCR7,ISCR8,IDUMP/ 1 301 ,302 ,303 ,304 ,305 ,306 ,307 ,308 ,204 / DATA NOEST ,NDPLUS,NDMNUS,EPS ,NOVECT,LMIN,LMAX,NSYM / 1 5 ,5 ,0 ,.0001,0 ,0. ,60. ,0 / END ================================================ FILE: bd/sdr2bd.f ================================================ BLOCK DATA SDR2BD CSDR2BD IMPLICIT INTEGER (A-Z) C INTEGER RFMTS(40) C COMMON /SDR2X1/ IEIGEN,IELDEF,ITLOAD,ISYMFL,ILOADS,IDISPL,ISTR , 1 IELF ,IACC ,IVEL ,ISPCF ,ITTL ,ILSYM ,IFROUT, 2 ISLOAD,IDLOAD,ISORC C COMMON /SDR2X2/ CASECC,CSTM ,MPT ,DIT ,EQEXIN,SIL ,GPTT , 1 EDT ,BGPDT ,PG ,QG ,UGV ,EST ,PHIG , 2 EIGR ,OPG1 ,OQG1 ,OUGV1 ,OES1 ,OEF1 ,PUGV1 , 3 OEIGR ,OPHIG ,PPHIG ,ESTA ,GPTTA ,HARMS ,XYCDB , 4 SCR3 ,PCOMPS,OES1L ,OEF1L C COMMON /SDR2X4/ NAM(2),END ,MSET ,ICB(7),OCB(7),MCB(7),DTYPE(8) 1, ICSTM ,NCSTM ,IVEC ,IVECN ,TEMP ,DEFORM,FILE , 2 BUF1 ,BUF2 ,BUF3 ,BUF4 ,BUF5 ,ANY ,ALL , 3 TLOADS,ELDEF ,SYMFLG,BRANCH,KTYPE ,LOADS ,SPCF , 4 DISPL ,VEL ,ACC ,STRESS,FORCE ,KWDEST,KWDEDT, 5 KWDGPT,KWDCC ,NRIGDS,STA(2),REI(2),DS0(2),DS1(2), 6 FRQ(2),TRN(2),BK0(2),BK1(2),CEI(2),PLA(22) , 7 NRINGS,NHARMS,AXIC ,KNSET ,ISOPL ,STRSPT,DDRMM , 8 ISOPL8 C EQUIVALENCE (STA(1),RFMTS(1)) C C***** C DATA DEFINING POSITIONS OF PARAMETERS IN A CASE CONTROL RECORD. C***** DATA IEIGEN/ 5/,IELDEF/ 6/,ITLOAD/ 7/,ISYMFL/ 16/,ILOADS/ 17/, 1 IDISPL/ 20/,ISTR / 23/,IELF / 26/,IACC / 29/,IVEL / 32/, 2 ISPCF / 35/,ITTL / 39/,ILSYM /200/,IFROUT/145/,ISLOAD/ 4/, 3 IDLOAD/ 13/,ISORC /136/ C***** C DATA DEFINING DATA BLOCK FILE NUMBERS. C***** DATA CASECC/101/,CSTM /102/,MPT /103/,DIT /104/,EQEXIN/105/, 1 SIL /106/,GPTT /107/,EDT /108/,BGPDT /109/,PG /110/, 2 QG /111/,UGV /112/,EST /113/,PHIG /112/,EIGR /110/, 3 OPG1 /201/,OQG1 /202/,OUGV1 /203/,OES1 /204/,OEF1 /205/, 4 PUGV1 /206/,OEIGR /201/,OPHIG /203/,PPHIG /206/,ESTA /301/, 5 GPTTA /302/,HARMS /137/,XYCDB /114/,SCR3 /303/,PCOMPS/116/, 6 OES1L /207/,OEF1L /208/ C***** C DATA DEFINING RIGID FORMATS. C***** DATA NRIGDS/ 10 /, 1 RFMTS / 4HSTAT,4HICS , 2 4HREIG,4HEN , 3 4HDS0 ,4H , 4 4HDS1 ,4H , 5 4HFREQ,4H , 6 4HTRAN,4HSNT , 7 4HBKL0,4H , 8 4HBKL1,4H , 9 4HCEIG,4HEN , O 4HPLA ,4H , 1 20*0 / C***** C MISC. DATA. C***** DATA NAM / 4HSDR2,4H /, END/4HEND /, DTYPE/2,3,1,5,4,6,7,8/, 1 MSET / 1001/ ,ISOPL8/ 0 / C END ================================================ FILE: bd/semdbd.f ================================================ BLOCK DATA SEMDBD CSEMDBD C C ***** PRINCIPAL BLOCK DATA PROGRAM FOR NASTRAN ***** C (NOTE - MACHINE DEPENDENT CONSTANTS ARE INITIALIZED IN BTSTRP) C C REVISED 7/91 BY G.CHAN/UNISYS C MAKE SURE THERE IS NO VARIABLES OR ARRAYS NOT INITIALIZED. GAPS C OR MISSING INITIALIZED DATA MAY CAUSE PROBLEMS IN SOME MACHINES. C IMPLICIT INTEGER (A-Z) LOGICAL BITPAS, FIRST, NOTYET, OPNSOF, PASS, PCT, STAR INTEGER KSYSTM(100) REAL OSCAR, OTAPID, TAPID , TIMDTA, TIME, TOLEL,X CHARACTER UFM*23, UWM*25, UIM*29, SFM*25, SWM*27, SIM*31 EQUIVALENCE (KSYSTM(1),SYSBUF) C C C ------------------- /GINOX / ---------------------------- C C GINOX WORDS USED IN GINO C VAX AND UNIX USE 636 WORDS (SEE GINO.MDS) CDC CDC USES ONLY 244 WORDS (SEE CDC IO6600). CDC IS CORE THIRSTY AND CDC THE 392 WORDS IN OTHERS HERE, AND ON THE DATA LINE BELOW, CAN BE CDC COMMENTED OUT TO SAVE CORE SPACE FOR THE CDC MACHINE. C COMMON /GINOX / CDC(244) 1, OTHERS(392) C -------------------- C TOTAL= 636 C C ------------------- /XMSSG / ---------------------------- C C USER FATAL/WARNING/INFO AND SYSTEM FATAL/WARNING/INFO MESSAGES C COMMON /XMSSG / UFM, UWM, UIM, SFM, SWM, SIM C C ------------------- /NUMTPX / ---------------------------- C C BCD-LOOK ALIKE FLOATING NUMBERS, USED ONLY BY NUMTYP SUBROUTINE. C DATA WILL BE LOADED FROM NASINFO.DOC FILE BY NSINFO C COMMON /NUMTPX/ NBCD, BCD(19) C C ------------------- / BLANK / --------------------------- C CWKBR COMMON /BLANK / IBLNK(60) COMMON /BLANK / IBLNK(100) C C ------------------- / NTIME / --------------------------- C C THE NTIME COMMON BLOCK CONTAINS TIMING CONSTANT DATA FOR THE C CURRENTLY RUNNING MACHINE CONFIGURATION AS DETERMINED BY THE C TMTSIO AND TMTSLP SUBROUTINES C COMMON /NTIME / LNTIME, TIMDTA(23) C C ------------------- / XLINK / --------------------------- C C SPECIFIES MODULE LINK RESIDENCE, AND PROVIDES LINK SWITCHING C INFORMATION FOR LINK DRIVER SUBROUTINES, XSEMi. C LXLINK = NUMBER OF WORDS IN MXLINK. C MAXLNK = MAX NUMBER OF LINKS - SEE XGPIBS IF THIS NUMBER IS C INCREASED. C MXLINK = MODULE LINK SPECIFICATION TABLE - THIS TABLE IS C INITIALIZED BY SUBROUTINE XGPIBS. C COMMON /XLINK / LXLINK, MAXLNK, MXLINK(220) C C ------------------- / SEM / --------------------------- C C SEM DEFINES DATA FOR THE LINK DRIVERS (XSEMI). C MASK = OSCAR MASK C MASK2,MASK3 = OSCAR MASKS (MACHINE DEPENDENT). C NAME = ARRAY OF LINK NAMES C CWKBR COMMON /SEM / MASK, MASK2, MASK3, NAME(15) COMMON /SEM / MASK, MASK2, MASK3, NAME(30) C C ------------------- / SYSTEM / --------------------------- C C SYSTEM DEFINES VARIOUS MACHINE DEPENDENT, OPERATING SYSTEM AND C NASTRAN PARAMETERS. C 1- C SYSBUF = (MACHINE DEPENDENT) NO. OF WORDS IN A GINO BUFFER. C OUTTAP = (MACHINE DEPENDENT) FORTRAN LOGICAL UNIT NO. FOR SYSTEM C PRINT OUTPUT C NOGO = FLAG DEFINING EXECUTION STATUS DURING -FRONT END-. C INTP = (MACHINE DEPENDENT) FORTRAN LOGICAL UNIT NO. FOR SYSTEM C INPUT C MPC = MULTI-POINT CONSTRAINT SET ID FOR CURRENT SUBCASE. C SPC = SINGLE-POINT CONSTRAINT SET ID FOR CURRENT SUBCASE. C LOGFL = CONSOLE/LOGFILE MESSAGE CONTROL. C LOAD = POINTER TO FIRST RECORD IN CASE CONTROL DATA BLOCK C FOR CURRENT SUBCASE. C NLPP = (MACHINE DEPENDENT) NUMBER OF LINES PER PAGE OF PRINTED C OUTPUT. C MTEMP = MATERIAL TEMPERATURE SET ID. C 11- C NPAGES = CURRENT PAGE COUNT. C NLINES = CURRENT NUMBER OF LINES ON CURRENT PAGE. C TLINES = TOTAL NUMBER OF LINES PRINTED IN JOB. C MXLINS = MAXIMUM NO. OF LINES OF PRINTED OUTPUT FOR THE PROBLEM. C DATE = TODAY-S DATE, INTEGERS, 2 DIGITS EACH C (3) C TIMEZ = CPU TIME IN SECONDS, WHEN PROBLEM BEGAN. NOT NECESSARY C ZERO. TIMEZ IS USED IN TMTOGO C ECHOF = NUMBER INDICATING FORM OF BULK DATA ECHO. C PLOTF = FLAG INDICATING REQUEST FOR STRUCTURAL PLOTS (NON-ZERO= C PLOT, SEE PLOTOPT IN SUBROUTINE NASCAR FOR MORE DETAILS) C 21- C APPRCH = APPROACH FLAG (1 = FORCE, 2 = DISPL , 3 = DMAP). C APPRCH .LT. 0 MEANS THIS IS A RESTART. C LINKNO = CURRENT LINK NO. (IN BCD, E.G. NSXX) INITIALLY SET TO C NS01 IN SUBROUTINE BTSTRP. SUBSEQUENTLY SET TO THE C CORRECT LINK NO. IN SUBROUTINE ENDSYS. C = WAS THE MACHINE TYPE, MACH (LEVEL 17 AND EALIDER VERSION) C LSYSTM = LENGTH OF SYSTEM COMMON BLOCK. C ICFIAT = REPLACING EDTUMF FLAG HERE, WHICH IS NO LONGER USED. C (EDTUMF) ICFIAT IS THE NUMBER OF WORDS PER FIAT ENTRY. C . IF ICFIAT=8, DATA BLOCK GINO TRAILER 6 WORDS ARE PACKED C INTO 4TH, 5TH, AND 6TH WORDS OF EACH FIAT ENTRY. C . IF ICFIAT=11, NO PACKING IN FIAT ENTRY, AND THE TRAILER 6 C WORDS ARE SAVED IN 4TH THRU 6TH, AND 9TH THRU 11TH WORDS. C THE TRAILER WORDS ARE THEREFORE NOT BOUNDED BY SIZE C LIMITATION OF 65535 (HALF OF A 32-BIT WORD). C . THE FIAT POINTERS IN /XFIST/ MUST BE IN COMPLETE AGREE- C MENT WITH THE SELECTION OF ICFIAT=8, OR ICFIAT=11. C (SEE THE DATA SETTING OF /XFIST/ BELOW) C . THE REST OF NASTRAN .MIS ROUTINES ARE CODED TO HANDLE C ICFIAT=8 OR 11 AUTOMATICALLY. THE .MDS ROUTINES ARE NOT C AFFECTED SINCE THE 7TH AND 8TH WORDS OF THE FIAT ENTRY C REMAIN UNCHANGED. C = WAS EDTUMF FLAG, USED IN PRE-1987 NASTRAN VERSION C RFFLAG = RIGID FORMAT FLAG C CPPGCT = PAGE COUNT USED BY XCHK ROUTINE C MN = NUMBER OF RINGS/NUMBER OF HARMONICS FOR AXISYMMETRIC C SHELL. C DUMMYI = (UNUSED WORD) C MAXFIL = MAXIMUM NUMBER OF UNITS TO BE ALLOCATED TO FIAT. C MAXOPN = MAXIMUM NUMBER OF FILES OPEN AT ONE TIME. C 31- C HICORE = HI-CORE LENGTH FOR UNIVAC AND VAX C TIMEW = PROBLEM START TIME (INTEGR SECONDS AFTER MIDNITE) C OFPFLG = OFP OPERATE FLAG - SET NON-ZERO WHEN OFP OPERATES C NBRCBU = (CDC ONLY) LENGTH OF FET + DUMMY INDEX C UNIVAC DRUM FILE ALLOCATION (1 FOR POSITION, 2 FOR TRACK) C LPRUS = (CDC ONLY) NUMBER OF WORDS PER PHYSICAL RECORD UNIT (PRU) C NPRUS = (CDC ONLY) NUMBER OF PRU-S PER GINO RECORD BLOCK C KSYS37 = ERROR CONTROL WORD, USED LOCALLY BY QPARMD AND QPARMR. C ALSO USED LOCALLY IN LINK1 FOR NASINFO FILE UNIT NO. C QQ = HYDROELASTIC PROBLEM FLAG. C NBPC = (MACHINE DEPENDENT) NO. OF BITS PER CHARACTER. C NBPW = (MACHINE DEPENDENT) NO. OF BITS PER WORD. C 41- C NCPW = (MACHINE DEPENDENT) NO. OF CHARACTERS PER WORDS. C SYSDAT = THREE BCD WORD ARRAY CONTAINING MONTH, ' 19', AND LAST C (3) TWO DIGITS OF YEAR OF SYSTEM GENERATION DATE. C THESE CELLS ARE SET BY SUBROUTINE NASCAR. C TAPFLG = WORD SET BY NASTRAN CARD TO INDICATE FILES TO BE TAPES C WHETHER OR NOT THEY ARE ON DISK. BITS TURNED ON COUNTING C FROM RIGHT REPRESENT THE FILES IN XXFIAT. C ADUMEL = NINE WORD ARRAY CONTAINING DATA EXTRACTED FROM THE ADUM-I C (9) CARDS BY IFP. C 55- C IPREC = PRECISION FLAG, 1=SP, 2=DP. C ITHRML = THERMAL ANALYSIS FLAG, 0=STRUCTURAL ANALYSIS, C 1=THERMAL ANALYSIS. C MODCOM = NINE WORD ARRAY FOR MODULE COMMUNICATIONS. C (9) SYSTEM(58), PRE-SELECT METHOD FOR MPYAD (1,2,3,DEFAULT=0) C SYSTEM(59), PLOT TAPE TRACK SIZE C 66- C HDY = THREE WORD ARRAY ALA SEW C (3) C SSCELL = MULTILEVEL SUBSTRUCTURE ANALYSIS COMMUNICATION CELL. C TOLEL = SINGULARITY TOLERANCE FOR SMA1,EMG. RESET BY NASCAR. C 71- C MESDAY = DAYFILE MESSAGE FLAG C BITPAS = CDC TAPE PROCESSING BIT - FALSE FOR LINK1 ONLY C PASS = CDC MESSAGE AND TIMING FLAG - FALSE FOR LINK1 ONLY C ITIME = WAS: WALL TIME ELAPSED SINCE PROBLEM START (SECONDS) C = IS : PROBLEM START TIME IN SECONDS SINCE JAN-1-1970, C GREENWICH-MEAN-TIME (GMT) C CTIME = WAS: CENTRAL PROCESSOR TIME SINCE PROBLEM START (SECONDS) C = IS : PRINT FLAG FOR DMAP SEQUENCE NO. AND NAME, ALL LINKS C (SEE NASTRN OR NAST01.MDS) C NOSBE = (CDC ONLY) FLAG FOR NOS(0) OR NOSBE(1) C BANDIT = BANDIT OPTION FLAG (SEE BANDIT FOR MORE DETAILS) C PZEL = PIEZOELECTRIC PROBLEM FLAG (INPUT VIA NASTRAN SYSTEM(78)) C SWITCH = SENSE SWITCH BITS FOR DIAG CARD AND USED BY SSWTCH C (3) C 82- C ICPFLG = CHECKPOINT FLAG (0 = NO CHECKPOINT, 1 = CHECKPOINT) C JRUN = JRUN FOR VARIAN (HEAT PROBLEM) C JMAX = JMAX FOR VARIAN (HEAT PROBLEM) C LINTC = MAX. ALLOWABLE LINES OF INTERSECTION USED IN HDPLOT C INTRA = INTERACTIVE REQUEST FLAG FOR PLOT, OUTPUT, AND SCAN C (0=NONE, 1=PLOT ONLY, 2=OUTPUT PRINT AND SCAN ONLY, C 3=BOTH) C OSPCNT = BAR OFFSET WARNING MESSAGE IF OFFSET BAR LENGTH EXCEEDS C NON-OFFEST LENGTH BY THIS LIMIT (DEFAULT IS 15 PERCENT) C K88 90 = 3 WORDS RESERVED FOR USER. WILL NOT BE USED BY COSMIC C ========================= C 91- C LPCH = (MACHINE DEPENDENT) FORTRAN LOGICAL UNIT NO. FOR PUNCH C LDICT = FORTRAN LOGICAL UNIT NO. FOR RESTART DICTIONARY PUNCH C IAEROT = INTEGER FLAG INDICATING AERODYNAMIC THEORY C (SPECIFIED VIA NASTRAN CARD AND USED ONLY IN APDB MODULE C 0 FOR COMPRESSOR BLADES, THEORY 6, DEFAULT, C 1 FOR SWEPT TURBOPROP. BLADES, THEORY 7) C KSYS94 = FLAG FOR REMOVALS OF MPYDRI(1), MPY4T(10), NEW FBS(100), C TRNSPS(1000), AND NEW FBS IN FEER(10000) C SPERLK = NASTRAN SUPERLINK FLAG. SET BY SEMDBD OR NASTRN C FOR UNIX MACHINE C LEFT = (85 UNUSED WORDS). KSYS99 USED IN ERRTRC C C DIMENSION DATE(3),SYSDAT(3),ADUMEL(9),MODCOM(9),HDY(3), 1 SWITCH(3),K88 90(3) ,LEFT(56),LEFT2(28) COMMON /SYSTEM/ SYSBUF,OUTTAP,NOGO ,INTP ,MPC ,SPC ,LOGFL , 1 LOAD ,NLPP ,MTEMP ,NPAGES,NLINES,TLINES,MXLINS, 2 DATE ,TIMEZ ,ECHOF ,PLOTF ,APPRCH,LINKNO,LSYSTM, 3 ICFIAT,RFFLAG,CPPGCT,MN ,DUMMYI,MAXFIL,MAXOPN, 4 HICORE,TIMEW ,OFPFLG,NBRCBU,LPRUS ,NPRUS ,KSYS37, 5 QQ ,NBPC ,NBPW ,NCPW ,SYSDAT,TAPFLG,ADUMEL, 6 IPREC ,ITHRML,MODCOM,HDY ,SSCELL,TOLEL ,MESDAY, 7 BITPAS,PASS ,ITIME ,CTIME ,NOSBE ,BANDIT,PZEL , 8 SWITCH,ICPFLG,JRUN ,JMAX ,LINTC ,INTRA ,OSPCNT, 9 K88 90,LPCH ,LDICT ,IAEROT,KSYS94,SPERLK,LEFT,LOGLIN,LEFT2 C C ------------------- / XFIST / --------------------------- C C XFIST IS THE FILE STATUS TABLE (FIST). C NFIST = TOTAL NO. OF ENTRIES IN FIST. C LFIST = NO. OF ENTRIES IN THE CURRENT FIST. C FIST = TABLE OF TWO-WORD ENTRIES. C FIRST WORD IS GINO FILE NAME. C SECOND WORD POINTS TO XFIAT IF .GT. 0 (I.E. NON-PERMANENT C ENTRY), OR POINTS TO XXFIAT IF .LE. 0 (I.E. PERMANENT C ENTRY). SIGN BIT MUST BE SET FOR ZERO POINTER ON 7094. C COMMON /XFIST / NFIST, LFIST, FIST(112) C C ------------------- / XPFIST / --------------------------- C C XPFIST DEFINES THE NO. OF PERMANENT ENTRIES IN THE FIST. C COMMON /XPFIST/ NPFIST C C ------------------- / XXFIAT / --------------------------- C C XXFIAT IS EXECUTIVE FILE ALLOCATION TABLE. C COMMON /XXFIAT/ XXFIAT(24) C C ------------------- / XFIAT / --------------------------- C C XFIAT IS THE MODULE FILE ALLOCATION TABLE (FIAT). C MFIAT = NO. OF UNIQUE FILES IN FIAT. C NFIAT = TOTAL NO. OF ENTRIES IN FIAT. C LFIAT = NO. OF ENTRIES IN CURRENT FIAT. C FIAT = TABLE OF 8 OR 11 WORDS PER ENTRY OF GINO FILES C (DEFAULT IS SET BY ICFIAT, THE 24TH WORD OF /SYSTEM/) C . 1ST WORD DEFINES THE FILE + PURGE,EQVIV,SETUP,ETC INFO. C . 2ND AND 3RD WORDS DEFINE THE DATA BLOCK NAME (IN BCD) C WHICH IS ATTACHED TO THE FILE. C . SEE ICFIAT (24TH WORD OF /SYSTEM/) FOR THE DESCRIPTION C OF 4TH THRU 8TH (OR 11TH) WORDS. C . SET FIAT(880) IF 11-WORD/ENTRY TABLE IS USED, AND C SET FIAT(640) IF 8-WORD/ENTRY TABLE IS USED C CWKBR COMMON /XFIAT / MFIAT, NFIAT, LFIAT, FIAT(880) COMMON /XFIAT / MFIAT, NFIAT, LFIAT, FIAT(1100) C C ------------------- / OSCENT / --------------------------- C C OSCENT DEFINES A STORAGE BLOCK FOR THE CURRENT OSCAR ENTRY. C COMMON /OSCENT/ OSCAR(200) C C ------------------- / OUTPUT / --------------------------- C C OUTPUT DEFINES A STORAGE BLOCK WHERE PROBLEM TITLE, SUBTITLE C AND LABEL ARE STORED. C COMMON /OUTPUT/ OUTPUT(224) C C ------------------- / XDPL / --------------------------- C C XDPL DEFINES THE DATA POOL DICTIONARY. C MDPL = POINTER TO NEXT AVAILABLE FILE. C NDPL = TOTAL NO. OF ENTRIES IN DPL. C LDPL = CURRENT NO. OF ENTRIES IN DPL. C DPL = TABLE OF THREE-WORD ENTRIES C 1ST + 2ND WORDS ARE DATA BLOCK NAME C 3RD WORD DEFINES EQUIV FLAG, APPROX SIZE OF DATA BLOCK C AND FILE NO. IN THE POOL. C COMMON /XDPL / MDPL, NDPL, LDPL, DPL(240) C C ------------------- / XVPS / --------------------------- C C XVPS IS THE VARIABLE PARAMETER STORAGE TABLE. C VPS(1) = TOTAL NO. OF WORDS IN VPS. C VPS(2) = POINTER TO LAST WORD USED IN VPS. C VPS(3) = TABLE FOR STORAGE OF PARAMETERS C (VARIABLE NO OF WORDS/ENTRY). C COMMON /XVPS / VPS(600) C C ------------------- / STAPID / --------------------------- C C STAPID CONTAINS THE I.D. FOR THE NEW AND OLD PROBLEM TAPES. C TAPID = SIX-WORD I.D. FOR NEW PROBLEM TAPE. C OTAPID = SIX-WORD I.D. FOR OLD PROBLEM TAPE. C IDUMF = (OBSOLETE) ID FOR USER-S MASTER FILE. C COMMON /STAPID/ TAPID(6), OTAPID(6), IDUMF C C ------------------- / STIME / --------------------------- C C STIME DEFINES USER-S ESTIMATED PROBLEM SOLUTION TIME. C COMMON /STIME / TIME(2) C C ------------------- / XCEITB / --------------------------- C C XCEITB DEFINES LOOP CONTROL PARAMETERS FOR THE CONTROL ENTRY C INTERP. C CEI(1) = TOTAL NO. OF WORDS IN TABLE. C CEI(2) = POINTER TO LAST WORD USED. C CEI(3) = TABLE OF FOUR-WORD ENTRIES. C COMMON /XCEITB/ CEI(42) C C ------------------- / XMDMSK / --------------------------- C C XMDMSK DEFINES MASK FOR MODIFIED RESTART. C NMSKCD = NUMBER OF MASK WORDS FOR CARDS (CURRENTLY SET TO 3) C NMSKFL = NUMBER OF MASK WORDS FOR FILES (CURRENTLY SET TO 3) C NMSKRF = NUMBER OF MASK WORDS FOR RIGID FORMATS (CURRENTLY 1) C MSK = MASK OF (NMSKCD+NMSKFL+NMSKRF) WORDS (31 BITS/WORD) C COMMON /XMDMSK/ NMSKCD, NMSKFL, NMSKRF, MSK(7) C C ------------------- / MSGX / --------------------------- C C MSGX DEFINES A TABLE WHERE MESSAGES ARE QUEUED. C NMSG = NUMBER OF MESSAGES CURRENTLY IN QUEUE. C MSGLG = TOTAL NO. OF ENTRIES IN THE MESSAGE QUEUE. C MSG = TABLE OF FOUR-WORD ENTRIES WHERE MESSAGES ARE STORED. C COMMON /MSGX / NMSG, MSGLG, MSG(4,40) C C ------------------- / DESCRP / --------------------------- C C COMMENTS FROM G.CHAN/UNISYS, 7/1991 C LABEL COMMON /DESCRP/ APPEARS IN THE FOLLOWING SUBROUTINES. BUT C IT IS ACTUALLY NEVER USED. C SEMDBD, DECOMP, GENVEC, GFBS, TRANSP, CDCOMP, CTRNSP, INVTR, C MTIMSU, MTMSU1, CDIFBS, INTFBS, MATVC2, MATVEC, ORTCK, CINFBS, C CMTIMU, AND INVFBS C IN ADDITION, INTPK IN VAX, IBM, CDC AND UNIVAC, DOES NOT USE THIS C /DESCRP/ LABEL COMMON. C STARTING IN 1992 VERSION, LABEL COMMON /DESCRP/ IS COMPLETELY C REMOVED FROM ALL NASTRAN SUBROUTINES. C C DESCRP IS A STORAGE BLOCK USED BY SUBROUTINE INTPK. C LENGTH = TOTAL NO. OF WORDS IN BLOCK. C C COMMON /DESCRP/ LENGTH, BLOCK(50) C C ------------------- / TWO / --------------------------- C C TWO DEFINES THE BITS IN A 32-BIT COMPUTER WORD (FROM LEFT TO RT). C MZERO = WILL BE SET TO -0.0 (= LSHIFT(1,NBPW-1) = SIGN BIT ON) BY C BTSTRP, AND WILL BE USED BY NUMTYP C COMMON /TWO / TWO(32),MZERO C C ------------------- / NAMES / --------------------------- C C NAMES DEFINES VALUES FOR GINO FILE OPTIONS,ARITHMETIC TYPES C AND MATRIX FORMS. C COMMON /NAMES /RD ,RDREW ,WRT ,WRTREW,REW ,NOREW ,EOFNRW, 1 RSP ,RDP ,CSP ,CDP ,SQUARE,RECT ,DIAG , 2 LOWER ,UPPER ,SYM ,ROW ,IDENT C C ------------------- / TYPE / --------------------------- C C TYPE DEFINES PROPERTIES AS A FUNCTION OF ARITHMETIC TYPE. C PRC = PRECISION (1=SP, 2=DP). C NWDS = NO. OF WORDS PER ELEMENT. C RC = ARITHMETIC (1=REAL, 2=COMPLEX). C X = PAD TO DEFINE WORK AREA. C COMMON /TYPE / PRC(2), NWDS(4), RC(4), X(6) C C ------------------- / BITPOS / --------------------------- C C BITPOS DEFINES THE BIT POSITIONS FOR THE DEGREES-OF-FREEDOM IN C USET, AND HOLLERITH CHARACTERS DESCRIBING DEGREES-OF-FREEDOM. C COMMON /BITPOS/ UM ,UO ,UR ,USG ,USB ,UL ,UA ,UF ,US ,UN , 1 UG ,UE ,UP ,UNE ,UFE ,UD ,UPS ,USA ,UK ,UPA , 2 U21 ,U22 ,U23 ,UX ,UY ,UFR ,UZ ,UAB ,UI ,U30 , 3 U31 ,U32 , O HM ,HO ,HR ,HSG ,HSB ,HL ,HA ,HF ,HS ,HN , 1 HG ,HE ,HP ,HNE ,HFE ,HD ,HPS ,HSA ,HK ,HPA , 2 H21 ,H22 ,H23 ,HX ,HY ,HFR ,HZ ,HAB ,HI ,H30 , 3 H31 ,H32 C C ------------------- / SOFCOM / --------------------------- C C SOFCOM DEFINES THE NAMES AND SIZES OF THE SOF FILES AND THE STATE C OF THE SOF C NFILES = NUMBER OF FILES ALLOCATED TO THE SOF (MAX 10) C FILNAM = 4 CHAR. BCD NAMES OF THE SOF FILES C FILSIZ = SIZES OF THE SOF FILES EXPRESSED IN AN EVEN NUMBER OF C BLOCKS C STATUS = SOF STATUS. 0 - SOF IS EMPTY. 1 - SOF IS NOT EMPTY. C PSSWRD = BCD PASSWORD FOR THE SOF. EACH RUN USING THE SAME SOF C MUST USE THE SAME PASSWORD. C FIRST = .TRUE. IF SOFINT HAS NOT YET BEEN CALLED TO INITIALIZE C THE SOF FOR THIS RUN. OTHERWISE .FALSE. C OPNSOF = .TRUE. IF THE SOF IS OPEN. .FALSE. IF IT IS CLOSED. C ASOFCB = ADDRESS OF SOF CONTROL BLOCKS ON IBM 360/370 COMPUTERS C COMMON /SOFCOM/ NFILES, FILNAM(10), FILSIZ(10), STATUS, PSSWRD(2), 1 FIRST , OPNSOF , ASOFCB C C -------------------- / XXREAD / --------------------------- C C INFLAG AND INSAVE ARE USED IN READFILE COMMAND. IRRX USED IN C FFREAD C COMMON /XXREAD/ INFLAG, INSAVE, IXXR(3) C C -------------- /XECHOX/ AND /XREADX/ --------------------- C C IECHO = USED IN FREE-FIELD INPUT FOR INPUT CARD ECHO CONTROL C IXSORT,IWASFF,NCARD = USED LOCALLY AMONG XSORT, XREAD, AND FFREAD C NOECHO = USED IN FFREAD AND XCSA ROUTINES C C SCREEN,PROM= LOGICAL UNIT FOR TERMINAL SCREEN AND PROMPT SYMBOL C CONTRL NOTYET,STAR,PCT = FREE-FIELD INPUT FLAGS USED IN XREAD C LOOP,KOUNT = LOOP COUNT USED IN XREAD C ICONT = 36 CONTROL WORDS USED IN FREE-FILED INPUT NOT TO BE C DESTROYED C COMMON /XECHOX/ IECHO(4), IXSORT, IWASFF, NCARD(3), NOECHO COMMON /XREADX/ SCREEN , LOOP , KOUNT , PROM , NOTYET, STAR, 1 PCT , ICONT(36) C C -------------- /MACHIN/ AND /LHPWX/ --------------------- C C 6 MACHINE CONSTANTS IN /MACHIN/ AND 7 IN /LHPWX/ WILL BE C INITIALZED BY BTSTRP. THESE CONSTANTS NEED TO BE SAVED IN THE ROOT C LEVEL OF ALL LINKS C COMMON /MACHIN/ MA(6) COMMON /LHPWX / LH(7) C C C ================================================================== C C ------------------- / GINOX / --------------------------- C DATA CDC / 244*0 / DATA OTHERS/ 392*0 / C C ------------------- / XMSSG / --------------------------- C 1 2 3 C 1234567890123456789012345678901 DATA UFM / '0*** USER FATAL MESSAGE' / DATA UWM / '0*** USER WARNING MESSAGE' / DATA UIM / '0*** USER INFORMATION MESSAGE' / DATA SFM / '0*** SYSTEM FATAL MESSAGE' / DATA SWM / '0*** SYSTEM WARNING MESSAGE' / DATA SIM / '0*** SYSTEM INFORMATION MESSAGE'/ C C ------------------- /NUMTPX / -------------------------- C DATA NBCD / 0 / DATA BCD / 19*0 / C C ------------------- /BLANK / -------------------------- C CWKBR DATA IBLNK / 56*0, 4H CEA, 4HSE E, 4HMPIR, 4HE > / DATA IBLNK / 96*0, 4H CEA, 4HSE E, 4HMPIR, 4HE > / C C ------------------- / NTIME / --------------------------- C CWKBR DATA LNTIME/ 16 / CWKBR 9/94 SPR94009 DATA LNTIME/ 23 / DATA LNTIME/ 16 / CWKBR DATA TIMDTA/ 16*0. / DATA TIMDTA/ 23*0. / C C USE A NASTRAN BULKDATA=-3 CARD TO ACTIVATE TIME CONSTANTS COMPUTA- C TION AND PRINT OUT FROM SUBROUTINES TMTSIO AND TMTSLP. C C EXAMPLE - THE FOLLOWING CARDS CAN BE USED FOR UNIVAC 1100/82 IN C MSFC TO ELIMINATE HARDWARE TIME COMPUTATION IN EVERY NASTRAN RUN. C C DATA TIMDTA/ 0.51, 15.73, 15.00, 11.10, 10.00, 2.20, 2.23, C 1 4.00, 5.28, 15.90, 19.40, 4.00, 5.80, 16.45, C 2 20.16, 0.00/ C C SIMILARLY, THE NEXT TABLE FOR VAX 11/780 MACHINE AT COSMIC SITE C C DATA TIMDTA/ 12.30, 88.0, 76.0, 78.0 , 76.0, 16.0 , 30.0 , C 1 7.00, 12.0, 20.0, 35.0 , 8.0, 12.0 , 24.0 , C 2 36.00, 14.2/ C C SIMILARLY, THE NEXT TABLE FOR MICRO VAX 3600 MACHINE AT COSMIC C SITE C C DATA TIMDTA/ 12.30, 88.0, 76.0, 78.0 , 76.0, 16.0 , 30.0 , C 1 7.00, 12.0, 20.0, 35.0 , 8.0, 12.0 , 24.0 , C 2 36.00, 0.0/ C C C AND THE NEXT TABLE FOR IBM 3084 MACHINE AT MSFC SITE C C DATA TIMDTA/ 1.12, 5.28, 4.59, 2.04, 1.86, 1.06, 1.10, C 1 0.78, 0.82, 2.69, 2.80, 0.78, 0.87, 2.70, C 2 2.82, 0.00/ C C C NOTE - STARTING 1991 VERSION, THESE TIMINGS CONSTANTS CAN BE FED C **** DIRECTLY INTO NASTRAN EXECUTABLE VIA THE NASINFO FILE. C THUS, EACH COMPUTER CENTER CAN EASILY SUPPLY THE CORRECT C TIMING CONSTANTS FOR ITS MACHINE. (SEE THE WRITE-UP IN THE C NASINFO FILE) C THE 16TH TIMING IS FOR READING STRING BACKWARD. CURRENTLY C NOT USED C C ------------------- / XLINK / --------------------------- C DATA LXLINK/ 220 /, MAXLNK / 15/, MXLINK / 220*0 / C C ------------------- / SEM / --------------------------- C DATA MASK / 65535/, MASK2 , MASK3 / 2*0 /, NAME / 1 4HNS01, 4HNS02, 4HNS03, 4HNS04, 4HNS05, 4HNS06, 4HNS07, 2 4HNS08, 4HNS09, 4HNS10, 4HNS11, 4HNS12, 4HNS13, 4HNS14, 3 4HNS15, 4HNS16, 4HNS17, 4HNS18, 4HNS19, 4HNS20, 4HNS21, 4 4HNS22, 4HNS23, 4HNS24, 4HNS25, 4HNS26, 4HNS27, 4HNS28, 5 4HNS29, 4HNS30 / C C ------------------- / SYSTEM / --------------------------- C DATA SYSBUF,OUTTAP,NOGO ,INTP ,MPC ,SPC ,LOGFL / * 0 ,0 ,0 ,0 ,0 ,0 ,0 /, C USED ONLY IN MSFC, UNIVAC VERSION - LOGFL = 190 1 LOAD ,NLPP ,MTEMP ,NPAGES,NLINES,TLINES,MXLINS / * 1 ,0 ,0 ,0 ,0 ,0 ,20000 /, 2 DATE ,TIMEZ ,ECHOF ,PLOTF ,APPRCH,LINKNO,LSYSTM / * 3*0 ,0 ,2 ,0 ,0 ,0 ,180 /, 3 ICFIAT,RFFLAG,CPPGCT,MN ,DUMMYI,MAXFIL,MAXOPN / * 11 ,0 ,0 ,0 ,0 ,35 ,16 /, 4 HICORE,TIMEW ,OFPFLG,NBRCBU,LPRUS ,NPRUS ,KSYS37 / * 85000 ,0 ,0 ,15 ,64 ,0 ,0 /, C VAX: HICORE IS SET TO 50,000 BY BTSTRP 5 QQ ,NBPC ,NBPW ,NCPW ,SYSDAT,TAPFLG,ADUMEL / * 0 ,0 ,0 ,0 ,3*0 ,0 ,9*0 /, 6 IPREC ,ITHRML,MODCOM,HDY ,SSCELL,TOLEL ,MESDAY / * 0 ,0 ,9*0 ,3*0 ,0 ,0.01 ,0 / DATA BITPAS,PASS ,ITIME ,CTIME ,NOSBE ,BANDIT,PZEL / * 2*.FALSE. ,0 ,0 ,0 ,0 ,0 /, 8 SWITCH,ICPFLG,JRUN ,JMAX ,LINTC ,INTRA ,OSPCNT / * 3*0 ,0 ,0 ,0 ,800 ,0 ,15 /, 9 K88 90,LPCH ,LDICT ,IAEROT,KSYS94,SPERLK,LEFT ,LOGLIN,LEFT2 / * 3*0 ,0 ,0 ,0 ,0 ,0 ,56*0 ,0 ,28*0 / C C ------------------- / XFIST / --------------------------- C DATA NFIST / 56 /, LFIST / 56 /, FIST / 1 4HPOOL, 0,4HOPTP, -1,4HNPTP, -2,4HUMF , -3,4HNUMF, -4, 2 4HPLT1, -5,4HPLT2, -6,4HINPT, -7,4HINP1, -8,4HINP2, -9, 3 4HINP3,-10,4HINP4,-11,4HINP5,-12,4HINP6,-13,4HINP7,-14, 4 4HINP8,-15,4HINP9,-16,4HXPTD,-17,4HSOF ,-18,4HUT1 ,-19, 5 4HUT2 ,-20,4HUT3 ,-21,4HUT4 ,-22,4HUT5 ,-23, C C USE VALUES BELOW WHEN ICFIAT (24TH WORD OF /SYSTEM/) IS 8 C 6 201, 3, 202, 11, 203, 19, 204, 27, 205, 35, C 7 4HCASE, 43, 207, 51,4HPCDB, 59, 208, 67, 209, 75, C 8 210, 83, 211, 91, 213, 99, 214,107, 215,115, C 9 216,123, 301,131, 302, 3, 303, 11, 304, 19, C O 305, 27, 306, 35,4HXYCD,139, 307, 67, 308, 75, C 1 309, 83, 310, 91, 311, 99, 312,107, 313,115, C 2 314,123, 315,147/ C C USE VALUES BELOW WHEN ICFIAT (24TH WORD OF /SYSTEM/) IS 11 6 201, 3, 202, 14, 203, 25, 204, 36, 205, 47, 7 4HCASE, 58, 207, 69,4HPCDB, 80, 208, 91, 209,102, 8 210,113, 211,124, 213,135, 214,146, 215,157, 9 216,168, 301,179, 302, 3, 303, 14, 304, 25, O 305, 36, 306, 47,4HXYCD,190, 307, 91, 308,102, 1 309,113, 310,124, 311,135, 312,146, 313,157, 2 314,168, 315,201/ C C ------------------- / XPFIST / --------------------------- C DATA NPFIST/ 24 / C C ------------------- / XXFIAT / --------------------------- C DATA XXFIAT/ 24*0 / C C ------------------- / XFIAT / --------------------------- C C USE 8*0 EACH INSTEAD OF 5*0 WHEN ICFIAT = 11 C CWKBR DATA MFIAT / 0 /, NFIAT / 80 /, LFIAT / 0 /, FIAT / DATA MFIAT / 0 /, NFIAT / 100/, LFIAT / 0 /, FIAT / 1 0, 4HGEOM, 4H1 , 8*0 , 2 0, 4HEPT , 4H , 8*0 , 3 0, 4HMPT , 4H , 8*0 , 4 0, 4HEDT , 4H , 8*0 , 5 0, 4HDIT , 4H , 8*0 , 6 0, 4HCASE, 4HCC , 3*7 , 2*0 , 3*7 , 7 0, 4HDYNA, 4HMICS, 8*0 , 8 0, 4HPCDB, 4H , 8*0 , 9 0, 4HGEOM, 4H2 , 8*0 , O 0, 4HGEOM, 4H3 , 8*0 , 1 0, 4HGEOM, 4H4 , 8*0 , 2 0, 4HGEOM, 4H5 , 8*0 , 3 0, 4HFORC, 4HE , 8*0 , 4 0, 4HMATP, 4HOOL , 8*0 , 5 0, 4HAXIC, 4H , 8*0 , 6 0, 4HIFPF, 4HILE , 8*0 , 7 0, 4HSCRA, 4HTCH1, 8*0 , 8 0, 4HXYCD, 4HB , 8*0 , CWKBR9 0, 4HSCRA, 4HTC15, 8*0 , 671*0 / 9 0, 4HSCRA, 4HTC15, 8*0 , 671*0, 220*0 / C C ------------------- / OSCENT / --------------------------- C DATA OSCAR / 200*4H / C C ------------------- / OUTPUT / --------------------------- C DATA OUTPUT/ 224*4H / C C ------------------- / XDPL / --------------------------- C DATA MDPL / 1 /, NDPL / 80 /, LDPL / 0 /, DPL / 240*0 / C C ------------------- / XVPS / --------------------------- C DATA VPS / 600, 2, 598*0 / C C ------------------- / STAPID / --------------------------- C DATA TAPID / 6*0.0 /, OTAPID / 6*0.0 / DATA IDUMF / 0 / C C ------------------- / STIME / --------------------------- C DATA TIME / 2*0.0 / C C ------------------- / XCEITB / --------------------------- C DATA CEI / 42, 2, 40*0 / C C ------------------- / XMDMSK / --------------------------- C DATA NMSKCD, NMSKFL, NMSKRF, MSK / 3, 3, 1, 7*0 / C C ------------------- / MSGX / --------------------------- C DATA NMSG / 0 /, MSGLG / 40 /, MSG / 160*0 / C C ------------------- / DESCRP / --------------------------- C C DATA LENGTH / 50 /, BLOCK / 50*0 / C C ------------------- / TWO / --------------------------- C C TWO(1) = LSHIFT(1,31), IS MACHINE DEPENDENT (SET BY BTSTRP) C MZERO = WILL BE SET TO LSHIFT(1,NBPW-1) BY BTSTRP C DATA TWO / 0, 1 1073741824, 536870912, 268435456, 134217728, 2 67108864, 33554432, 16777216, 8388608, 3 4194304, 2097152, 1048576, 524288, 4 262144, 131072, 65536, 32768, 5 16384, 8192, 4096, 2048, 6 1024, 512, 256, 128, 7 64, 32, 16, 8, 8 4, 2, 1/ DATA MZERO / 0 / C C ------------------- / NAMES / --------------------------- C DATA RD / 2 /, RDREW / 0 /, WRT / 3 /, WRTREW/ 1 /, 1 REW / 1 /, NOREW / 2 /, EOFNRW/ 3 /, RSP / 1 /, 2 RDP / 2 /, CSP / 3 /, CDP / 4 /, SQUARE/ 1 /, 3 RECT / 2 /, DIAG / 3 /, LOWER / 4 /, UPPER / 5 /, 4 SYM / 6 /, ROW / 7 /, IDENT / 8 / C C ------------------- / TYPE / --------------------------- C DATA PRC / 1, 2/ , 1 NWDS / 1, 2, 2, 4/, 2 RC / 1, 1, 2, 2/, 3 X / 6*0.0 / C C ------------------- / BITPOS / --------------------------- C DATA UM /32/ , HM /2HM / , UPS /16/ , HPS /2HPS/ , 1 UO /30/ , HO /2HO / , USA /15/ , HSA /2HSA/ , 2 UR /29/ , HR /2HR / , UK /14/ , HK /2HK / , 3 USG /23/ , HSG /2HSG/ , UPA /13/ , HPA /2HPA/ , 4 USB /22/ , HSB /2HSB/ , U21 /10/ , H21 /4HXXXX/, 5 UL /24/ , HL /2HL / , U22 /11/ , H22 /4HYYYY/, 6 UA /25/ , HA /2HA / , U23 /12/ , H23 /4HZZZZ/, 7 UF /26/ , HF /2HF / , UX / 9/ , HX /2HX / , 8 US /31/ , HS /2HS / , UY / 8/ , HY /2HY / , 9 UN /27/ , HN /2HN / , UFR / 7/ , HFR /2HFR/ , O UG /28/ , HG /2HG / , UZ / 6/ , HZ /2HZ / , 1 UE /21/ , HE /2HE / , UAB / 5/ , HAB /2HAB/ , 2 UP /20/ , HP /2HP / , UI / 4/ , HI /2HI / , 3 UNE /19/ , HNE /2HNE/ , U30 / 3/ , H30 /2HU3/ , 4 UFE /18/ , HFE /2HFE/ , U31 / 2/ , H31 /2HU2/ , 5 UD /17/ , HD /2HD / , U32 / 1/ , H32 /2HU1/ C C ------------------- / SOFCOM / --------------------------- C DATA NFILES/ 1 / DATA FILNAM/ 4HINPT,9*0 / DATA FILSIZ/ 100 ,9*0 / DATA STATUS/ 1 / DATA PSSWRD/ 2*4H / DATA FIRST / .TRUE. / DATA OPNSOF/ .FALSE. / DATA ASOFCB/ 0 / C C -------------------- / XXREAD / --------------------------- C DATA INFLAG, INSAVE, IXXR / 5*0 / C C -------------- /XECHOX/ AND /XREADX/ --------------------- C DATA IECHO , IXSORT, IWASFF, NCARD, NOECHO / 1 4*0, 0, 0, 3*0, 0 / DATA SCREEN, LOOP, KOUNT, PROM, NOTYET, STAR, PCT, ICONT / 1 6, -1, 0, 0, 3*.FALSE., 36*0 / C C -------------- /MACHIN/ AND /LHPWX/ --------------------- C DATA MA / 6*0 /, LH / 7*0 / C END ================================================ FILE: bd/sma1bd.f ================================================ BLOCK DATA SMA1BD CSMA1BD C INTEGER CLSRW ,CLSNRW ,EOR ,OUTRW DOUBLE PRECISION DPDUM(514) COMMON /SMA1IO/ IFCSTM ,IFMPT ,IFDIT ,IDUM1 , 1 IFECPT ,IGECPT ,IFGPCT ,IGGPCT , 2 IFGEI ,IGGEI ,IFKGG ,IGKGG , 3 IF4GG ,IG4GG ,IFGPST ,IGGPST , 4 INRW ,OUTRW ,CLSNRW ,CLSRW , 5 NEOR ,EOR ,MCBKGG(7),MCB4GG(7) C C SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS C COMMON /SMA1BK/ ICSTM ,NCSTM ,IGPCT ,NGPCT , 1 IPOINT ,NPOINT ,I6X6K ,N6X6K , 2 I6X64 ,N6X64 COMMON /SMA1DP/ DPDUM C C SMA1 PROGRAM CONTROL PARAMETERS C COMMON /SMA1CL/ IOPT4 ,K4GGSW ,NPVT ,LEFT , 1 FROWIC ,LROWIC ,NROWSC ,TNROWS , 2 JMAX ,NLINKS ,LINK(10) ,IDETCK , 3 DODET ,NOGOO ,DUMMY(200) C C ECPT COMMON BLOCK C COMMON /SMA1ET/ ECPT(200) C C DATA NLINKS / 10 / DATA NOGOO / 0 / DATA IFCSTM,IFMPT,IFECPT,IFGPCT,IFDIT / 101,102,103,104,105 / DATA IFKGG,IF4GG,IFGPST / 201,202,203 / DATA INRW,CLSRW,CLSNRW,EOR,NEOR,OUTRW / 0,1,2,1,0,1 / END ================================================ FILE: bd/sma2bd.f ================================================ BLOCK DATA SMA2BD CSMA2BD C INTEGER CLSRW, CLSNRW, EOR, OUTRW COMMON /SMA2IO/ IFCSTM, IFMPT, IFDIT, IDUM1, IFECPT, IGECPT, 1 IFGPCT, IGGPCT, IDUM2, IDUM3, IFMGG, IGMGG, 2 IFBGG, IGBGG, IDUM4, IDUM5, INRW, OUTRW, 3 CLSNRW, CLSRW, NEOR, EOR, MCBMGG(7),MCBBGG(7) C C SMA2 VARIABLE CORE BOOKKEEPING PARAMETERS C COMMON /SMA2BK/ ICSTM, NCSTM, IGPCT, NGPCT, IPOINT, NPOINT, 1 I6X6M, N6X6M, I6X6B, N6X6B C C SMA2 PROGRAM CONTROL PARAMETERS C COMMON /SMA2CL/ IOPT4, BGGIND, NPVT, LEFT, FROWIC, LROWIC, 1 NROWSC, TNROWS, JMAX, NLINKS,LINK(10),NOGO, 2 DUMMY(202) C C ECPT COMMON BLOCK C COMMON /SMA2ET/ ECPT(200) C DATA NLINKS/ 10 / DATA NOGO / 0 / DATA IFCSTM, IFMPT,IFECPT,IFGPCT,IFDIT / 101,102,103,104,105 / DATA IFMGG , IFBGG / 201,202 / DATA INRW , CLSRW,CLSNRW,EOR,NEOR,OUTRW/ 0,1,2,1,0,1 / END ================================================ FILE: bd/ta1abd.f ================================================ BLOCK DATA TA1ABD CTA1ABD C C /TA1ACM/ SPECIFIES THE OPEN CORE LABELED COMMONS /ZZEMXX/ C TO BE USED BY EACH ELEMENT TYPE IN LINK8 OVERLAY C TREE. C THE LABELED COMMONS /ZZEMXX/ ARE USED ONLY IN CDC C AND UNIVAC TO COMPUTE (BY EMGSOC) THE OFFSET OF THE C OPEN CORE BETWEEN /ZZEMXX/ AND /ZZEMGX/. C C E.G. /ZZEM24/ IS ASSIGNED TO QUAD4 ELEMENT, TYPE 64 C C COMMON /TA1ACM/ IG(90) C DATA IG / O 1, 0, 1, 3, 4, 14, 14, 14, 14, 1, 1 2, 2, 2, 2, 14, 14, 14, 14, 14, 2, 2 2, 2, 2, 11, 2, 2, 2, 2, 11, 11, 3 0, 0, 0, 12, 28, 18, 19, 20, 17, 17, 4 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 5 17, 13, 21, 21, 21, 21, 21, 21, 21, 21, 6 21, 15, 16, 24, 22, 22, 22, 0, 0, 25, 7 26, 0, 48, 48, 48, 48, 48, 48, 48, 8, 8 23, 13, 27, 29, 29, 29, 0, 0, 0, 0/ C END ================================================ FILE: bd/tabfbd.f ================================================ BLOCK DATA TABFBD CTABFBD C TABFTX - BLOCK DATA PROGRAM FOR MODULE TABPRT C INTEGER HX, RE C INTEGER HX01(32) INTEGER HX02(32) INTEGER HX03(32) INTEGER HX04(32) INTEGER HX05(32) INTEGER HX06(32) INTEGER HX07(32) INTEGER HX08(32) INTEGER HX09(32) INTEGER HX10(32) INTEGER HX11(32) INTEGER HX12(32) INTEGER HX13(32) INTEGER HX14(32) INTEGER HX15(32) INTEGER HX16(32) INTEGER HX17(32) INTEGER HX18(32) INTEGER HX19(32) INTEGER HX20(32) INTEGER HX21(32) INTEGER HX22(32) C COMMON /TABFTX/ LA,NA(2,21) , HX(32,40) , RE(21) C EQUIVALENCE (HX01(1),HX(1, 1)) EQUIVALENCE (HX02(1),HX(1, 2)) EQUIVALENCE (HX03(1),HX(1, 3)) EQUIVALENCE (HX04(1),HX(1, 4)) EQUIVALENCE (HX05(1),HX(1, 5)) EQUIVALENCE (HX06(1),HX(1, 6)) EQUIVALENCE (HX07(1),HX(1, 7)) EQUIVALENCE (HX08(1),HX(1, 8)) EQUIVALENCE (HX09(1),HX(1, 9)) EQUIVALENCE (HX10(1),HX(1,10)) EQUIVALENCE (HX11(1),HX(1,11)) EQUIVALENCE (HX12(1),HX(1,12)) EQUIVALENCE (HX13(1),HX(1,13)) EQUIVALENCE (HX14(1),HX(1,14)) EQUIVALENCE (HX15(1),HX(1,15)) EQUIVALENCE (HX16(1),HX(1,16)) EQUIVALENCE (HX17(1),HX(1,17)) EQUIVALENCE (HX18(1),HX(1,18)) EQUIVALENCE (HX19(1),HX(1,19)) EQUIVALENCE (HX20(1),HX(1,20)) EQUIVALENCE (HX21(1),HX(1,21)) EQUIVALENCE (HX22(1),HX(1,22)) C C----------------------------------------------------------------------- C DATA LA / 9 / DATA RE /1,1,1,1,1,1,1,0,1,1 1 ,1,1,1,1,1,1,1,1,1,1 2 ,1 / C DATA NA / 4HBGPD,4HT , 4HGPL ,4H , 4HCSTM,4H 4 , 4HGPLD,4H , 4HEQEX,4HIN , 4HEQDY,4HN 7 , 4HGPDT,4H , 4HGPTT,4H , 4HGPCT,4H X , 4H*10*,4H**** , 4H*11*,4H**** , 4H*12*,4H**** 3 , 4H*13*,4H**** , 4H*14*,4H**** , 4H*15*,4H**** 6 , 4H*16*,4H**** , 4H*17*,4H**** , 4H*18*,4H**** 9 , 4H*19*,4H**** , 4H*20*,4H**** , 4H*21*,4H**** Z / C C DATA HX01/4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H 1 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H 2 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H 3 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H / C DATA HX02/4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H 1 ,4H ,4HFORM,4HATTE,4HD LI,4HST O,4HF TA,4HBLE ,4HDATA 2 ,4H BLO,4HCK ,4H****,4H****,4H ,4H( RE,4HCORD,4H**** 3 ,4H ) ,4H ,4H ,4H ,4H ,4H ,4H ,4H / C DATA HX03/4H ,4H ,4H ,4H ,4HINTE,4HRNAL,4H ,4H COO 1 ,4HRDIN,4HATE ,4H ,4H ,4H ,4H COO,4HRDIN,4HATES 2 ,4H IN ,4HBASI,4HC CO,4HORDI,4HNATE,4H SYS,4HTEM ,4H 3 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H / C DATA HX04/4H ,4H ,4H ,4H ,4H I,4HD ,4H ,4H SYS 1 ,4HTEM ,4HID ,4H ,4H ,4H X,4H ,4H ,4H 2 ,4H ,4H Y,4H ,4H ,4H ,4H ,4H Z,4H 3 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H / C DATA HX05/4H ,4H IN,4HTERN,4HAL ,4H ,4H EXT,4HERNA,4HL GR 1 ,4HID ,4H ,4H EXT,4HERNA,4HL GR,4HID ,4H ,4H EXT 2 ,4HERNA,4HL GR,4HID ,4H ,4H EXT,4HERNA,4HL GR,4HID 3 ,4H ,4H EXT,4HERNA,4HL GR,4HID ,4H ,4H ,4H / C DATA HX06/4H ,4H ,4H ID ,4H ,4H ,4H OR ,4HSCAL,4HAR I 1 ,4HD ,4H ,4H OR ,4HSCAL,4HAR I,4HD ,4H ,4H OR 2 ,4HSCAL,4HAR I,4HD ,4H ,4H OR ,4HSCAL,4HAR I,4HD 3 ,4H ,4H OR ,4HSCAL,4HAR I,4HD ,4H ,4H ,4H / C DATA HX07/4H ,4H IN,4HTERN,4HAL ,4H ,4H E,4HXTER,4HNAL 1 ,4HGRID,4H S,4HEQUE,4HNCE ,4H ,4H ,4HEXTE,4HRNAL 2 ,4H GRI,4HD ,4HSEQU,4HENCE,4H ,4H ,4H EXT,4HERNA 3 ,4HL GR,4HID ,4H SEQ,4HUENC,4HE ,4H ,4H ,4H / C DATA HX08/4H ,4H ,4H ID ,4H ,4H ,4H O,4HR SC,4HALAR 1 ,4H ID ,4H ,4HNUMB,4HER ,4H ,4H ,4HOR S,4HCALA 2 ,4HR ID,4H ,4H NUM,4HBER ,4H ,4H ,4H OR ,4HSCAL 3 ,4HAR I,4HD ,4H NU,4HMBER,4H ,4H ,4H ,4H / C DATA HX09/4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H 1 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H 2 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H 3 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H / C DATA HX10/4H ,4H ,4H ,4H N ,4H ,4H I,4HD ,4H 1 ,4HTYPE,4H ,4H ,4H R(I,4H,1) ,4H ,4H ,4H 2 ,4H R(I,4H,2) ,4H ,4H ,4H ,4H R(I,4H,3) ,4H 3 ,4H ,4H ,4H ,4H ,4H ,4HT(I),4H ,4H / C DATA HX11/4H E,4HXTER,4HNAL ,4H ,4HEXTE,4HRNAL,4H GRI,4HD 1 ,4HINTE,4HRNAL,4H ,4H EXT,4HERNA,4HL GR,4HID ,4H INT 2 ,4HERNA,4HL ,4H EX,4HTERN,4HAL G,4HRID ,4H IN,4HTERN 3 ,4HAL ,4H E,4HXTER,4HNAL ,4HGRID,4H I,4HNTER,4HNAL / C DATA HX12/4H S,4HORT ,4HID ,4H ,4HOR S,4HCALA,4HR ID,4H 1 ,4H NUM,4HBER ,4H ,4H OR ,4HSCAL,4HAR I,4HD ,4H NU 2 ,4HMBER,4H ,4H OR,4H SCA,4HLAR ,4HID ,4H N,4HUMBE 3 ,4HR ,4H O,4HR SC,4HALAR,4H ID ,4H ,4HNUMB,4HER / C DATA HX13/4H I,4HNTER,4HNAL ,4H ,4H ,4HCOOR,4HDINA,4HTE 1 ,4H ,4H ,4H COO,4HRDIN,4HATES,4H IN ,4HDEFI,4HNING 2 ,4H COO,4HRDIN,4HATE ,4HSYST,4HEM ,4H ,4H DI,4HSPLA 3 ,4HCEME,4HNT C,4HOOR-,4H ,4HCONS,4HTRAI,4HNT ,4H / C DATA HX14/4H ,4H ID,4H ,4H ,4H ,4HSYST,4HEM ,4H 1 ,4H ,4H ,4H X ,4H ,4H ,4H ,4H ,4HY 2 ,4H ,4H ,4H ,4H Z ,4H ,4H ,4H DI,4HNATE 3 ,4H SYS,4HTEM ,4HID ,4H ,4H C,4HODE ,4H ,4H / C DATA HX15/4H I,4HTERN,4HAL ,4H ,4H T,4HEMPE,4HRATU,4HRE 1 ,4H ,4H ,4HDEFA,4HULT ,4HTEMP,4HERAT,4HURE ,4H 2 ,4H ,4H R,4HECOR,4HD NU,4HMBER,4H FOR,4H ,4H 3 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H / C DATA HX16/4H ,4HINDE,4HX ,4H ,4H ,4H SET,4H ID ,4H 1 ,4H ,4H ,4H ,4H OR,4H FLA,4HG ,4H ,4H 2 ,4H ,4H ADD,4HITIO,4HNAL ,4HTEMP,4H. DA,4HTA ,4H 3 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H / C DATA HX17/4H SU,4HBSEQ,4HUENT,4H REC,4HORDS,4H OF ,4H G P,4H T T 1 ,4H TE,4HMPER,4HATUR,4HE DA,4HTA A,4HRE L,4HISTE,4HD UN 2 ,4HDER ,4HSET ,4HID A,4HND E,4HLEME,4HNT T,4HYPE ,4HBY E 3 ,4HLEME,4HNT I,4HD ,4H ,4H ,4H ,4H ,4H / C DATA HX18/4H R,4HECOR,4HD NU,4HMBER,4H T,4HEMPE,4HRATU,4HRE S 1 ,4HET I,4HD ,4H ,4H ,4H ,4H ,4H ,4H 2 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H 3 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H / C DATA HX19/4H ,4H ,4H ,4H F ,4HO R ,4HM A ,4HT T ,4HE D 1 ,4H L ,4HI S ,4HT ,4HO F ,4H T ,4HA B ,4HL E ,4H D 2 ,4HA T ,4HA ,4HB L ,4HO C ,4HK ,4HG P ,4HC T ,4H 3 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H / C DATA HX20/4H RE,4HCORD,4H ,4HPIVO,4HT C,4HONNE,4HCTIN,4HG 1 ,4H ,4H ,4H ,4H ,4H SOR,4HTED ,4HLIST,4H OF 2 ,4H S I,4H L ,4HNUMB,4HERS ,4HOF C,4HONNE,4HCTED,4H POI 3 ,4HNTS ,4H ,4H ,4H ,4H ,4H ,4H ,4H / C DATA HX21/4H NU,4HMBER,4H ,4HS I ,4HL ,4H NUM,4HBER ,4H 1 ,4H( 1 ,4H) ,4H ( ,4H2 ) ,4H ,4H( 3 ,4H) ,4H ( 2 ,4H4 ) ,4H ,4H( 5 ,4H) ,4H ( ,4H6 ) ,4H ,4H( 7 3 ,4H) ,4H ( ,4H8 ) ,4H ,4H( 9 ,4H) ,4H ( 1,4H0 ) / C DATA HX22/4H S,4HORT ,4HID ,4H ,4HOR S,4HCALA,4HR ID,4H C 1 ,4HODED,4H SIL,4H ,4H OR ,4HSCAL,4HAR I,4HD ,4HCODE 2 ,4HD SI,4HL ,4H OR,4H SCA,4HLAR ,4HID ,4H COD,4HED S 3 ,4HIL ,4H O,4HR SC,4HALAR,4H ID ,4H CO,4HDED ,4HSIL / C END ================================================ FILE: bd/vdrbd.f ================================================ BLOCK DATA VDRBD CVDRBD C BLOCK DATA FOR THE VECTOR DATA RECOVERY MODULE (VDR). C***** INTEGER USETD,CASECC,EQDYN ,OEIGS ,PP ,XYCDB ,PNL ,OUTFLE 1 ,OPNL1,SCR1 ,SCR2 ,BUF1 ,BUF2 ,BUF3 ,CEI ,FRQ 2 ,TRN ,DIRECT,XSET0 ,BUF C DIMENSION NAM(2) ,BUF(50) ,MASKS(6) 1 ,CEI(2) ,FRQ( 2) ,TRN(2) ,MODAL(2) 2 ,DIRECT(2) C COMMON/VDRCOM/VDRCOM,IDISP ,IVEL ,IACC ,ISPCF ,ILOADS,ISTR 1 ,IELF ,IADISP,IAVEL ,IAACC ,IPNL ,ITTL ,ILSYM 2 ,IFROUT,IDLOAD,CASECC,EQDYN ,USETD ,INFILE,OEIGS 3 ,PP ,XYCDB ,PNL ,OUTFLE,OPNL1 ,SCR1 ,SCR2 4 ,BUF1 ,BUF2 ,BUF3 ,NAM ,BUF ,MASKS ,CEI 5 ,FRQ ,TRN ,DIRECT,XSET0 ,VDRREQ,MODAL C C DATA DEFINING POSITION OF PARAMETERS IN CASE CONTROL RECORD. C DATA IDISP / 20/ ,IVEL / 32/ ,IACC / 29/ ,ISPCF / 35/ 1 ,ILOADS / 17/ ,ISTR / 23/ ,IELF / 26/ ,IADISP /151/ 2 ,IAVEL /154/ ,IAACC /157/ ,IPNL / 10/ ,ITTL / 39/ 3 ,ILSYM /200/ ,IFROUT /145/ ,IDLOAD / 13/ C C DATA DEFINING GINO FILE NAMES C DATA CASECC /101/ ,EQDYN /102/ ,USETD /103/ ,INFILE /104/ 1 ,OEIGS /105/ ,PP /105/ ,XYCDB /106/ ,PNL /107/ 2 ,OUTFLE /201/ ,OPNL1 /202/ ,SCR1 /301/ ,SCR2 /302/ C C MISC DATA C DATA BUF /50*0/ ,NAM /4HVDR ,4H / 1 ,MASKS /4,8,16,32,64,128/,XSET0/100000000/ C C DATA DEFINING RIGID FORMATS AND PROBLEM TYPES C DATA CEI /4HCEIG,4HEN /,FRQ /4HFREQ,4HRESP/ 1 ,TRN /4HTRAN,4HRESP/,MODAL /4HMODA,4HL / 2 ,DIRECT /4HDIRE,4HCT / END ================================================ FILE: bin/NASNAMES.COM ================================================ COMMON / DOSNAM / DIRTRY, RFDIR, INPUT, OUTPUT, LOG , PUNCH &, PLOT, NPTP , DIC , OPTP , RDIC, IN12, OUT11 &, INP1, INP2 CHARACTER * 72 DIRTRY, RFDIR, INPUT, OUTPUT, LOG , PUNCH CHARACTER * 72 PLOT , NPTP , DIC , OPTP , RDIC, IN12, OUT11 CHARACTER * 72 INP1, INP2 COMMON / DSNAME / DSNAMES(89) CHARACTER * 80 DSNAMES ================================================ FILE: bin/linknas ================================================ # ar x nastlib.a nastrn.o ar x nastlib.a semdbd.o tabfbd.o gptabd.o gp3bd.o ifx1bd.o ar x nastlib.a ifx2bd.o ifx3bd.o ifx4bd.o ifx5bd.o ifx6bd.o ar x nastlib.a ifx7bd.o ifp3bd.o plotbd.o ta1abd.o sma1bd.o ar x nastlib.a sma2bd.o flbbd.o dpdcbd.o readbd.o vdrbd.o ar x nastlib.a pla4bd.o sdr2bd.o of1pbd.o of2pbd.o of3pbd.o ar x nastlib.a of3sbd.o of4pbd.o of5pbd.o of6pbd.o of7pbd.o ar x nastlib.a of7sbd.o of8pbd.o of9pbd.o ofp1bd.o ofp5bd.o ar x nastlib.a ofsnbd.o ofssbd.o exiobd.o itembd.o f77 -fast -dn -o ../bin/nastrn.exe nastrn.o \ semdbd.o tabfbd.o gptabd.o gp3bd.o ifx1bd.o \ ifx2bd.o ifx3bd.o ifx4bd.o ifx5bd.o ifx6bd.o \ ifx7bd.o ifp3bd.o plotbd.o ta1abd.o sma1bd.o \ sma2bd.o flbbd.o dpdcbd.o readbd.o vdrbd.o \ pla4bd.o sdr2bd.o of1pbd.o of2pbd.o of3pbd.o \ of3sbd.o of4pbd.o of5pbd.o of6pbd.o of7pbd.o \ of7sbd.o of8pbd.o of9pbd.o ofp1bd.o ofp5bd.o \ ofsnbd.o ofssbd.o exiobd.o itembd.o \ nastlib.a ================================================ FILE: bin/nastlib.a ================================================ [File too large to display: 13.6 MB] ================================================ FILE: bin/nastran ================================================ #!/bin/csh unalias rm clear set rfdir=/usr/users/bob/nast95/rf set nasexec=/usr/users/bob/nast95/bin/nastrn.exe set naschk=/usr/users/bob/nast95/bin/chkfil.exe set probname = $1 echo ' ' if ( $probname == '' ) then echo ' NASTRAN' echo ' ' echo -n 'Please give problem id for designation of files ===> ' set probname = $< endif # set ft01=$probname.pun set dbmem=12000000 set ocmem=2000000 set ft01=none set ft04=$probname.dic set ft03=$probname.log set ft05=$probname.inp set ft06=$probname.out set ft08=none # set ft11=$probname.out11 set ft11=none set plt2=none set script=$probname.cmd set nasscr=$cwd/temp$$ set ft12=none set ft15=none set ft16=none set sof1=none set sof2=none set sft12= set nptp=$probname.nptp set optp=none if ( ! -e $ft05 ) then set sft05='(#### does not exist ####)' else set sft05= if ( -e nogood1 ) then rm nogood1 endif if ( -e nogood2 ) then rm nogood2 endif if ( -e nogood3 ) then rm nogood3 endif $naschk < $ft05 if ( -e nogood1 ) then set ft04=$probname.dic rm nogood1 endif if ( -e nogood2 ) then set plt2=$probname.plt rm nogood2 endif if ( -e nogood3) then set ft04=$probname.dic set plt2=$probname.plt rm nogood3 endif endif set nogo=1 while ( $nogo != 0 ) clear echo ' NASTRAN' echo ' ' set snasexec= set sft01= set sft04= set sft03= set sft06= set sft08= set sft11= set sft15= set sft16= set splt2 = set snptp= set soptp= set sdir= set sscript= set ssof1= set ssof2= set nogo=1 if ( $nptp != 'none' ) then if ( -e $nptp ) then set snptp=' (#### will be replaced ####)' endif if ( -e "$ft04" ) then set sft04=' (#### will be replaced ####)' endif endif if ( $sof1 != 'none' ) then if( -e $sof1 ) then set ssof1= else set ssof1='(#### does not exist ####)' endif endif if ( $sof2 != 'none' ) then if( -e $sof2 ) then set ssof2= else set ssof2='(#### does not exist ####)' endif endif if ( -e $plt2 ) then set splt2='(#### will be replaced ####)' else set splt2= endif if ( -d $nasscr ) then set sdir=' (#### will be recreated ####)' endif if ( -e $ft06 ) then set sft06=' (#### will be replaced ####)' endif if ( -e $ft03 ) then set sft03=' (#### will be replaced ####)' endif if ( -e $ft01 ) then set sft01=' (#### will be replaced ####)' endif if ( -e "$ft11" ) then set sft11=' (#### will be replaced ####)' else set sft11= endif if ( -e $script ) then set sscript=' (#### will be replaced ####)' endif echo ' (i) Input file ===> '$ft05 $sft05 echo ' (o) Output file ===> '$ft06 $sft06 echo ' (l) Logfile ===> '$ft03 $sft03 echo ' (s) Script file ===> '$script $sscript echo ' (pu) Punch file ===> '$ft01 $sft01 echo ' (pl) Plot file ===> '$plt2 $splt2 echo ' (c) Checkpoint NPTP ===> '$nptp $snptp echo ' (d) Checkpoint dict. ===> '$ft04 $sft04 echo ' (r) Restart OPTP ===> '$optp $soptp echo ' (ou) FTN11 file ===> '$ft11 $sft11 echo ' (in) FTN12 file ===> '$ft12 $sft12 echo ' (s1) SOF1 file ===> '$sof1 $ssof1 echo ' (s2) SOF2 file ===> '$sof2 $ssof2 echo ' (i1) FTN15 file ===> '$ft15 $sft15 echo ' (i2) FTN16 file ===> '$ft16 $sft16 echo ' ' echo ' (oc) Memory for Open Core ===> '$ocmem echo ' (im) In-Memory DB Allocation ===> '$dbmem echo ' (w) Work Directory ===> '$nasscr $sdir echo ' (g) To create shell script and execute NASTRAN' echo ' (a) Abort without building shell script' echo echo -n ' Specify Option ===> ' set opt = $< switch ($opt) case 'im': case 'Im': case 'iM': case 'IM': echo -n 'Please give allocation (in words) for in-memory db ===> ' set dbmem = $< breaksw case 'oc': case 'Oc': case 'oC': case 'OC': echo -n 'Please give allocation (in words) for open core ===> ' set ocmem = $< breaksw case 'a': case 'A': case 'q': case 'Q': clear exit breaksw case 'i': case 'I': echo ' ' set ok=i1 while ( $ok != i0 ) echo -n 'Please give input file ===> ' set ft05 = $< if ( ! -e $ft05 ) then echo $ft05 'does not exist' else set ok = i0 if ( -e nogood1 ) then rm nogood1 endif if ( -e nogood2 ) then rm nogood2 endif if ( -e nogood3 ) then rm nogood3 endif $naschk < $ft05 set sft05= set nptp=$probname.nptp set ft04=none set plt2=none if ( -e nogood1 ) then set ft04=$probname.dic rm nogood1 endif if ( -e nogood2 ) then set plt2=$probname.plt rm nogood2 endif if ( -e nogood3 ) then set ft04=$probname.dic set plt2=$probname.plt rm nogood3 endif endif end breaksw case 'G': case 'g': set nogo=0 clear if ( ! -e $ft05 ) then echo ' ERROR' echo ' ' echo $ft05 'does not exist--cannot create script' set nogo=i1 set anything =$< endif if ( -d $nasscr ) then echo ' ' echo ' ' echo ' WARNING' echo ' ' echo 'Directory '$nasscr ' exists. It will be recreated.' echo 'All existing files in this directory will be lost!!!' echo ' ' echo -n 'Are you sure you want this to happen? (y or n) ' set ans = $< if ( $ans != 'y' ) then set nogo=i1 endif endif breaksw case 'r': case 'R': echo ' ' set ok=i1 while ( $ok != i0 ) echo -n 'Please give restart OPTP file ===> ' set optp = $< if ( ! -e $optp ) then echo $optp '(#### does not exist ####)' else set ok=i0 endif end breaksw case 's1': case 'S1': echo ' ' echo -n 'Please give SOF1 file ===> ' set sof1 = $< if ( ! -e $sof1 ) then set ssof1='(#### does not exist ####)' else set ssof1= endif breaksw case 's2': case 'S2': echo ' ' echo -n 'Please give SOF2 file ===> ' set sof2 = $< if ( ! -e $sof2 ) then set ssof2='(#### does not exist ####)' else set ssof2= endif breaksw case 'RD': case 'Rd': case 'rd': case 'rD': echo ' ' set ok=i1 while ( $ok != i0 ) echo -n 'Please give restart dict ===> ' set ft08 = $< if ( ! -e $ft08 ) then echo $ft08='(#### does not exist ####)' else set ok=i0 set sft08= endif end breaksw case 'in': case 'IN': case 'In': case 'iN': echo ' ' set ok=i1 while ($ok != i0 ) echo -n 'Please give in12 file ===> ' set ft12 = $< if ( ! -e $ft12 ) then set sft12='(#### does not exist ####)' set ok=i0 else set sft12= set ok=i0 endif end breaksw case 'ou': case 'OU': case 'Ou': case 'oU': echo ' ' set ok=i1 while ($ok != i0 ) echo -n 'Please give out11 file ===> ' set ft11 = $< if ( -e $ft11 ) then set sft11= set ok=i0 else set ok=i0 set sft11='**** will be replaced ****' endif end breaksw case 'i1': case 'I1': echo ' ' set ok=i1 while ($ok != i0 ) echo -n 'Please give FT15 file ===> ' set ft15 = $< if ( -e $ft15 ) then set sft15= set ok=i0 else set ok=i0 set sft15='**** will be replaced ****' endif end breaksw case 'i2': case 'I2': echo ' ' set ok=i1 while ($ok != i0 ) echo -n 'Please give FT16 file ===> ' set ft16 = $< if ( -e $ft16 ) then set sft16= set ok=i0 else set ok=i0 set sft16='**** will be replaced ****' endif end breaksw case 'O': case 'o': echo ' ' set ok=i1 while ( $ok != i0 ) echo -n 'Please give output file ===> ' set ft06 = $< if ( -e $ft06 ) then echo -n $ft06 'exist, do you want to keep it? (y or n) ' set ans = $< if ( $ans == 'n' ) then rm $ft06 set ok=i0 endif else set ok=i0 endif end breaksw case 'l': case 'L': echo ' ' set ok=i1 while ( $ok != i0 ) echo -n 'Please give log file ===> ' set ft03 = $< if ( -e $ft03 ) then echo -n $ft03 'exist, do you want to keep it? (y or n) ' set ans = $< if ( $ans == 'n' ) then rm $ft03 set ok=i0 endif else set ok=i0 endif end breaksw case 'd': case 'D': echo ' ' set ok=i1 while ( $ok != i0 ) echo -n 'Please give checkpoint dict. ===> ' set ft04 = $< if ( -e $ft04 ) then echo -n $ft04 'exist, do you want to keep it? (y or n) ' set ans = $< if ( $ans == 'n' ) then rm $ft04 set ok = i0 endif else set ok = i0 endif end breaksw case 'pu': case 'Pu': case 'pU': case 'PU': echo ' ' set ok=i1 while ( $ok != i0 ) echo -n 'Please give punch file ===> ' set ft01 = $< if ( -e $ft01 ) then echo -n $ft01 'exist, do you want to keep it? (y or n) ' set ans = $< if ( $ans == 'n' ) then rm $ft01 set ok = i0 endif else set ok = i0 endif end breaksw case 's': case 'S': echo ' ' set ok=i1 while ( $ok != i0 ) echo -n 'Please give script file ===> ' set script = $< if ( -e $script ) then echo -n $script 'exist, do you want to keep it? (y or n) ' set ans = $< if ( $ans == 'n' ) then rm $script set ok = i0 endif else set ok = i0 endif end breaksw case 'c': case 'C': echo ' ' set ok = i1 while ( $ok != i0 ) echo -n 'Please give checkpoint NPTP file ===> ' set nptp = $< if ( -e $nptp ) then echo -n $nptp 'exist, do you want to keep it? (y or n) ' set ans = $< if ( $ans == 'n' ) then rm $nptp set ok = i0 endif else set ok = i0 endif end breaksw case 'w': case 'W': echo ' ' echo -n 'Please give work directory ===> ' set nasscr = $< breaksw case 'pl': case 'Pl': case 'pL': case 'PL': echo ' ' set ok = i1 while ( $ok != i0 ) echo -n 'Please give plot file ===> ' set plt2 = $< if ( -e '$plt2' ) then echo -n $plt2 'exist, do you want to keep it? (y or n) ' set ans =$< if ( $ans == 'n' ) then then rm $plt2 set ok = i0 endif else set ok = i0 endif end breaksw endsw end if ( -e $script ) then rm $script endif echo '#/bin/csh' >> $script echo ' unalias rm ' >> $script echo 'if ( -d ' $nasscr' ) then' >> $script echo 'rm -r '$nasscr >> $script echo 'endif' >> $script echo 'mkdir '$nasscr >> $script echo 'if ( -e '$nptp ' ) then'>> $script echo 'rm '$nptp >> $script echo 'endif' >> $script echo 'if ( -e '$ft03 ' ) then'>> $script echo 'rm '$ft03 >> $script echo 'endif' >> $script echo 'if ( -e '$ft01 ' ) then'>> $script echo 'rm '$ft01 >> $script echo 'endif' >> $script echo 'if ( -e '$ft04 ' ) then'>> $script echo 'rm '$ft04 >> $script echo 'endif' >> $script echo 'if ( -e '$ft06 ' ) then'>> $script echo 'rm '$ft06 >> $script echo 'endif' >> $script echo 'if ( -e '$plt2 ' ) then'>> $script echo 'rm '$plt2 >> $script echo 'endif' >> $script echo 'echo ==== NASTRAN is beginning execution of "'$probname'" ====' >> $script echo ' env NPTPNM='$nptp '\' >> $script echo ' PLTNM='$plt2 ' DICTNM='$ft04 ' PUNCHNM='$ft01 '\' >> $script echo ' FTN11='$ft11 ' FTN12='$ft12 ' DIRCTY='$nasscr '\' >> $script echo ' LOGNM='$ft03 ' OPTPNM='$optp ' RFDIR='$rfdir '\' >> $script echo ' FTN13=none SOF1='$sof1 ' SOF2='$sof2 '\' >> $script echo ' FTN14=none FTN17=none FTN18=none FTN19=none FTN20=none \' >> $script echo ' FTN15='$ft15 ' FTN16='$ft16 '\' >> $script echo ' FTN21=none FTN22=none FTN23=none \' >> $script echo ' DBMEM='$dbmem ' OCMEM='$ocmem '\' >> $script echo $nasexec' < '$ft05' >'$ft06 >> $script echo 'rm -r '$nasscr >> $script echo 'if ( -e none ) then'>> $script echo 'rm none' >> $script echo 'endif' >> $script # echo 'rm COS*' >> $script echo 'echo ===== NASTRAN has completed problem "'$probname'" ====='>> $script clear echo 'The shell script '$script' was successfully created' echo echo -n 'Do you want to execute this problem now? (y or n) ===> ' chmod +x $script set ans = $< if ( $ans == 'y' ) then echo ' ' echo -n 'Do you want to run in foreground or background? (f or b) ===> ' set ans = $< if ( $ans == 'f' ) then $cwd/$script else $cwd/$script & endif else echo ' ' echo 'Type the command "'$script'" to execute this problem intereactively' echo ' OR ' echo ' the command "'$script' &" to execute this problem in batch' endif ================================================ FILE: bin/nastrn.f ================================================ PROGRAM NASTRN C CHARACTER*80 VALUE CHARACTER*5 TMP INTEGER SPERLK REAL SYSTM(94) COMMON / LSTADD / LASTAD COMMON / SYSTEM / ISYSTM(94),SPERLK COMMON / SOFDSN / SDSN(10) COMMON / LOGOUT / LOUT COMMON / RESDIC / IRDICT, IROPEN COMMON / ZZZZZZ / IZ(14000000) COMMON / DBM / IDBBAS, IDBFRE, IDBDIR, INDBAS, INDCLR, INDCBP &, NBLOCK, LENALC, IOCODE, IFILEX, NAME, MAXALC &, MAXBLK, MAXDSK, IDBLEN, IDBADR, IBASBF, INDDIR &, NUMOPN, NUMCLS, NUMWRI, NUMREA, LENOPC INCLUDE 'NASNAMES.COM' CHARACTER*80 SDSN EQUIVALENCE ( ISYSTM, SYSTM ) LENOPC = 14000000 C C SAVE STARTING CPU TIME AND WALL CLOCK TIME IN /SYSTEM/ C ISYSTM(18) = 0 CALL SECOND (SYSTM(18)) CALL WALTIM (ISYSTM(32)) C C EXECUTE NASTRAN SUPER LINK C LEN = 80 VALUE = ' ' CALL BTSTRP CALL GETENV ( 'DBMEM', VALUE ) READ ( VALUE, * ) IDBLEN CALL GETENV ( 'OCMEM', VALUE ) READ ( VALUE, * ) IOCMEM IF ( IOCMEM .LE. LENOPC ) GO TO 10 PRINT *,' LARGEST VALUE FOR OPEN CORE ALLOWED IS:',LENOPC CALL MESAGE ( -61, 0, 0 ) 10 IF ( IDBLEN .NE. 0 ) IDBLEN = LENOPC - IOCMEM LASTAD = LOCFX( IZ( IOCMEM ) ) IF ( IDBLEN .NE. 0 ) IDBADR = LOCFX( IZ( IOCMEM+1 ) ) LENOPC = IOCMEM CALL DBMINT LOUT = 3 IRDICT = 4 SPERLK = 1 ISYSTM(11) = 1 VALUE = ' ' CALL GETENV ( 'RFDIR', RFDIR ) VALUE = ' ' CALL GETENV ( 'DIRCTY', DIRTRY ) LEN = INDEX( DIRTRY, ' ' ) - 1 DO 20 I = 1, 90 IF ( I .LE. 9 ) WRITE ( TMP, 901 ) I IF ( I .GT. 9 ) WRITE ( TMP, 902 ) I 901 FORMAT('scr',I1) 902 FORMAT('scr',I2) DSNAMES( I ) = DIRTRY(1:LEN)//'/'//TMP 20 CONTINUE CALL GETENV ( 'LOGNM', LOG ) DSNAMES(3) = LOG CALL GETENV ( 'OPTPNM', OPTP ) DSNAMES(7) = OPTP CALL GETENV ( 'NPTPNM', NPTP ) DSNAMES(8) = NPTP CALL GETENV ( 'FTN11', OUT11 ) DSNAMES(11) = OUT11 CALL GETENV ( 'FTN12', IN12 ) DSNAMES(12) = IN12 CALL GETENV ( 'FTN13', VALUE ) DSNAMES(13) = VALUE CALL GETENV ( 'FTN14', VALUE ) DSNAMES(14) = VALUE CALL GETENV ( 'FTN15', VALUE ) DSNAMES(15) = VALUE CALL GETENV ( 'FTN16', VALUE ) DSNAMES(16) = VALUE CALL GETENV ( 'FTN17', VALUE ) DSNAMES(17) = VALUE CALL GETENV ( 'FTN18', VALUE ) DSNAMES(18) = VALUE CALL GETENV ( 'FTN19', VALUE ) DSNAMES(19) = VALUE CALL GETENV ( 'FTN20', VALUE ) DSNAMES(20) = VALUE CALL GETENV ( 'FTN21', VALUE ) DSNAMES(21) = VALUE CALL GETENV ( 'PLTNM', PLOT ) DSNAMES(10) = PLOT CALL GETENV ( 'DICTNM', DIC ) DSNAMES(4) = DIC CALL GETENV ( 'PUNCHNM', PUNCH ) DSNAMES(1) = PUNCH CALL GETENV ( 'SOF1', VALUE ) SDSN(1) = VALUE CALL GETENV ( 'SOF2', VALUE ) SDSN(2) = VALUE CALL GETENV ( 'SOF3', VALUE ) SDSN(3) = VALUE CALL GETENV ( 'SOF4', VALUE ) SDSN(4) = VALUE CALL GETENV ( 'SOF5', VALUE ) SDSN(5) = VALUE CALL GETENV ( 'SOF6', VALUE ) SDSN(6) = VALUE CALL GETENV ( 'SOF7', VALUE ) SDSN(7) = VALUE CALL GETENV ( 'SOF8', VALUE ) SDSN(8) = VALUE CALL GETENV ( 'SOF9', VALUE ) SDSN(9) = VALUE CALL GETENV ( 'SOF10', VALUE ) SDSN(10) = VALUE OPEN ( 3, FILE=DSNAMES(3) ,STATUS='UNKNOWN') IF ( DSNAMES(11) .NE. 'none' ) & OPEN ( 11, FILE=DSNAMES(11),STATUS='UNKNOWN') IF ( DSNAMES(12) .NE. 'none' ) & OPEN ( 12, FILE=DSNAMES(12),STATUS='UNKNOWN') IF ( DSNAMES(10) .NE. 'none' ) & OPEN ( 10, FILE=DSNAMES(10),STATUS='UNKNOWN') IF ( DSNAMES(4) .NE. 'none' ) & OPEN ( 4, FILE=DSNAMES(4),STATUS='UNKNOWN') IF ( DSNAMES(1) .NE. 'none' ) & OPEN ( 1, FILE=DSNAMES(1),STATUS='UNKNOWN') CALL XSEM00 STOP END ================================================ FILE: demoout/d01000a.out ================================================ NASTRAN TITLEOPT=-1 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01000A,PRINT RIGID FORMAT $================================================================= $ THIS DECK WILL PRINT THE NASTRAN DMAP COMPILE LISTING OF ANY $ RIGID FORMAT BY SPECIFYING THE FOLLOWING SOLUTION NUMBER AND $ APPLICATION. JOB WILL AUTOMATICALLY STOP $ SOL 6 APP DISP $================================================================= TIME 2 DIAG 14,20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 TESTING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TESTING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A 3 DISP = ALL 4 ECHO = NONE 5 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 0, INCLUDING 0 COMMENT CARDS) 0*** USER FATAL MESSAGE 204, COLD START NO BULK DATA. 1 TESTING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 06 - PIECEWISE LINEAR STATIC ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE QG1=APPEND/UGV1=APPEND/KGGSUM=SAVE/PGV1=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL P1 $ 1 TESTING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ 22 PARAM //*AND*/SKPMGG/NOGRAV/V,Y,GRDPNT $ 23 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,ECPT,GPCT, MPTX,PCOMPS,EPTX/LUSET/S,N,NOSIMP/2/S,N,NOGENL/GENEL/S,N,COMPS 24 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 25 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ 26 COND ERROR4,NOELMT $ 27 PURGE KGGX/NOSIMP $ 28 COND LBL1,NOSIMP $ 29 PARAM //*ADD*/NOKGGX/1/0 $ 30 PARAM //*ADD*/NOMGG/1/0 $ 31 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 32 PURGE KGGX/NOKGGX/MGG/NOMGG $ 33 COND JMPKGG,NOKGGX $ 34 EMA GPECT,KDICT,KELM/KGGX $ 35 PURGE KDICT,KELM/MINUS1 $ 36 LABEL JMPKGG $ 37 COND JMPMGG,NOMGG $ 38 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 39 PURGE MDICT,MELM/MINUS1 $ 40 LABEL JMPMGG $ 41 COND LBL1,GRDPNT $ 1 TESTING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 COND ERROR3,NOMGG $ 43 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/V,Y,WTMASS $ 44 OFP OGPWG,,,,,//S,N,CARDNO $ 45 LABEL LBL1 $ 46 PLA1 CSTM,MPT,ECPT,GPCT,DIT,CASECC,EST/KGGXL,ECPTNL,ESTL,ESTNL/S,N, KGGLPG/S,N,NPLALIM/S,N,ECPTNLPG/S,N,PLSETNO/S,N,NONLSTR/S,N, PLFACT $ 47 COND ERROR1,ECPTNLPG $ 48 PURGE ONLES,ESTNL1/NONLSTR $ 49 PARAM //*ADD*/ALWAYS/-1/0 $ 50 PARAM //*ADD*/NEVER/1/0 $ 51 EQUIV KGGX,KGG/NOGENL/KGGXL,KGGL/NOGENL $ 52 COND LBL11,NOGENL $ 53 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 54 SMA3 GEI,KGGXL/KGGL/LUSET/NOGENL/KGGLPG $ 55 LABEL LBL11 $ 56 GPSTGEN KGG,SIL/GPST $ 57 PARAM //*MPY*/NSKIP/0/0 $ 58 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 59 OFP OGPST,,,,,//S,N,CARDNO $ 60 PARAM //*AND*/NOSR/SINGLE/REACT $ 61 PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ 1 TESTING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 62 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,,,MGG,CASECC,DIT,PCOMPS/PG1,,,,/ LUSET/1/COMPS $ 63 EQUIV PG1,PL/NOSET $ 64 PARAM //*ADD*/PLACOUNT/1/0 $ 65 EQUIV KGG,KNN/MPCF1 $ 66 COND LBL2,MPCF1 $ 67 MCE1 USET,RG/GM $ 68 LABEL LOOPBGN $ 69 EQUIV KGG,KNN/MPCF1 $ 70 COND LBL2,MPCF1 $ 71 MCE2 USET,GM,KGG,,,/KNN,,, $ 72 LABEL LBL2 $ 73 EQUIV KNN,KFF/SINGLE $ 74 COND LBL3,SINGLE $ 75 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ 76 LABEL LBL3 $ 77 EQUIV KFF,KAA/OMIT $ 78 COND LBL5,OMIT $ 79 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 80 LABEL LBL5 $ 81 EQUIV KAA,KLL/REACT $ 82 COND LBL6,REACT $ 83 RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ 84 LABEL LBL6 $ 1 TESTING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 85 DECOMP KLL/LLL,/1/0/MINDIAGK/DETKLLXX/IDETKLLX/ S,N,SINGKLLX $ 86 COND PLALBL4,SINGKLLX $ 87 COND LBL7,REACT $ 88 RBMG3 LLL,KLR,KRR/DM $ 89 LABEL LBL7 $ 90 ADD PG1,/PG/PLFACT $ 91 COND LBL10,NOSET $ 92 SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ 93 LABEL LBL10 $ 94 SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ PLACOUNT/S,N,EPSI $ 95 COND LBL9,IRES $ 96 MATGPR GPL,USET,SIL,RULV//*L* $ 97 MATGPR GPL,USET,SIL,RUOV//*O* $ 98 LABEL LBL9 $ 99 SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/DELTAUGV,DELTAPG, DELTAQG/1/*STATICS* $ 100 PLA2 DELTAUGV,DELTAPG,DELTAQG/UGV1,PGV1,QG1/S,N,PLACOUNT $ 101 EQUIV ESTNL,ESTNL1/NEVER/ECPTNL,ECPTNL1/NEVER $ 102 COND PLALBL2A,NONLSTR $ 103 PLA3 CSTM,MPT,DIT,DELTAUGV,ESTNL,CASECC/ONLES,ESTNL1/PLACOUNT/ PLSETNO $ 104 OFP ONLES,,,,,//S,N,CARDNO $ 105 LABEL PLALBL2A $ 1 TESTING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 106 PARAM //*SUB*/DIFF/NPLALIM/PLACOUNT $ 107 COND PLALBL5,DIFF $ 108 PLA4 CSTM,MPT,ECPTNL,GPCT,DIT,DELTAUGV/KGGNL,ECPTNL1/S,N,PLACOUNT/ S,N,PLSETNO/S,N,PLFACT $ 109 EQUIV KGGNL,KGGSUM/KGGLPG $ 110 COND PLALBL3,KGGLPG $ 111 ADD KGGNL,KGGL/KGGSUM/(1.0,0.0)/(1.0,0.0) $ 112 LABEL PLALBL3 $ 113 EQUIV ESTNL1,ESTNL/ALWAYS/ECPTNL1,ECPTNL/ALWAYS/KGGSUM,KGG/ALWAYS $ 114 REPT LOOPBGN,360 $ 115 JUMP ERROR2 $ 116 LABEL PLALBL4 $ 117 PRTPARM //-5/*PLA* $ 118 LABEL PLALBL5 $ 119 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG1,UGV1,ESTL,, PGV1,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *PLA*////COMPS $ 120 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 121 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 122 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 123 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 124 COND P2,JUMPPLOT $ 125 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,ECPT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 126 PRTMSG PLOTX2// $ 1 TESTING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 127 LABEL P2 $ 128 JUMP FINIS $ 129 LABEL ERROR1 $ 130 PRTPARM //-1/*PLA* $ 131 LABEL ERROR2 $ 132 PRTPARM //-2/*PLA* $ 133 LABEL ERROR3 $ 134 PRTPARM //-3/*PLA* $ 135 LABEL ERROR4 $ 136 PRTPARM //-4/*PLA* $ 137 LABEL FINIS $ 138 PURGE DUMMY/MINUS1 $ 139 END $ *** JOB TERMINATED BY DIAG 20 * * * END OF JOB * * * 1 JOB TITLE = TESTING DATE: 5/17/95 END TIME: 13:59:46 TOTAL WALL CLOCK TIME 0 SEC. ================================================ FILE: demoout/d01001a.out ================================================ NASTRAN TITLEOPT=-1 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01001A,PRINT DIAG48 APP DISP $================================================= $ THIS JOB WILL PRINT DIAG48 MESSAGES AND STOP $ DIAG 48,20 $================================================= SOL 1 TIME 2 CEND 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N D I A G 4 8 DIAG 48 - NASTRAN RELEASE NEWS =================================== NASTRAN RELEASE NEWS - 95 RELEASE ---------- NEW METHODS WERE INSTALLED FOR SYMMETRIC DECOMPOSITION, FORWARD/BACKWARD SUBSTITUTION (SYMMETRIC MATRICES ONLY), AND MATRIX MULTIPLY/ADD. IN ADDITION, COMPUTATIONAL EFFICIENCY IMPROVEMENTS WERE MADE TO THE FEER EIGENVALUE ANALYSIS. THE FOLLOWING DIAGS WERE ADDED FOR THESE NEW CAPABILITIES: DIAG DESCRIPTION 45 PROVIDE STATISTICS FOR NEW SYMMETRIC DECOMPOSITION METHOD 47 PROVIDE STATISTICS FOR NEW FORWARD/BACKWARD SUBSTITUTION METHOD DIAG 19 STILL GIVES STATISTICAL INFORMATION FOR BOTH THE OLD AND THE NEW MATRIX MULTIPLY/ADD METHODS. IN ADDITION, THE "SYSTEM(58)=" PARAMETER ON THE "NASTRAN" CARD MAY BE USED TO SPECIFY A PARTICULAR MATRIX MULTIPLY/ADD METHOD. THE OLD METHODS ARE 1, 2 AND 3 (TRANSPOSE ONLY). THE NEW METHODS ARE 10, 11, 20, 21, 30, 31, 32, 40 AND 41. A METHOD IS SELECTED BASED ON THE DENSITY OF THE MATRIX AND HOW MANY PASSES ARE REQUIRED TO COMPUTE THE RESULTING MATRIX UNLESS "SYSTEM(58)" IS USED. THE DIFFERENCES IN THE METHODS ARE SEEN IN THE TABLE BELOW: ------------------------------------------------------------------------ METHOD METHOD OF READING MATRIX MULTIPLE COLUMNS OF MATRIX STORED A B C A B D ------------------------------------------------------------------------ OLD METHODS (T = TRANSPOSED, NT = NON-TRANSPOSED) 1 INTPK UNPACK UNPACK NO YES YES 2T GETSTR UNPACK INTPK YES NO NO 2NT GETSTR INTPK INTPK YES NO NO 3T UNPACK GETSTR INTPK YES NO NO NEW METHODS 10 UNPACK UNPACK UNPACK YES NO NO 11 UNPACK GETSTR UNPACK YES NO NO 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N D I A G 4 8 20 UNPACK UNPACK UNPACK NO YES YES 21 GETSTR UNPACK UNPACK NO YES YES 30 GETSTR UNPACK UNPACK YES NO NO 31 GETSTR GETSTR UNPACK YES NO NO 32 GETSTR GETSTR GETSTR YES NO NO 40 UNPACK GETSTR UNPACK NO YES YES 41 GETSTR GETSTR UNPACK NO YES YES ------------------------------------------------------------------------ AS AN EXAMPLE, IN ORDER TO SPECIFY THE USE OF METHOD 10 FOR ALL CASES, USE THE FOLLOWING "NASTRAN" CARD: NASTRAN SYSTEM(58)=10 THE OLD METHODS STILL EXISTS AND MAY BE REFERENCED BY THE FOLLOWING DIAGS: DIAG DESCRIPTION 42 OLD FEER METHOD WITHOUT USING IN-MEMORY WORKING MATRICES FOR FINDING SOLUTION 43 OLD FEER METHOD WITHOUT USING IN-MEMORY ORTHOGONAL VECTORS 44 OLD SYMMETRIC DECOMPOSITION METHOD 46 OLD FORWARD/BACKWARD SUBSTITUTION METHOD 49 OLD MATRIX MULTIPLY/ADD METHOD THE FOLLOWING IS A LIST OF SPRS THAT WERE CORRECTED FOR THE 1994 RELEASE. DETAIL INFORMATION ON ANY SPR CAN BE OBTAINED BY CONTACTING THE NASTRAN MAINTENANCE CONTRACTOR. SPR NO. MODULE DESCRIPTION ------- ------ ------------------------------------------------------ 93-026 GPTSG MODIFIED TO ALLOW FOR SINGLE PRECISION ON 64-BIT PLATFORMS. 93-033 ANISOP MODIFIED RIGID FORMATS TO INCLUDE SUPPORT FOR "MAT6" CARD. 94-001 SDR2 PROVIDE FOR SORT-2 STRESS OUTPUT FOR "TRAPRG" ELEMENT. 94-002 EMG DAMPING COEFFICIENT ON "MAT1" CARD WAS BEING IGNORED FOR THE "TRAPRG" ELEMENT. 94-003 TRD ALLOW FOR TRANSIENT APPEND FEATURE. 94-004 SDR2 ALLOW FOR CORRECT CALCULATION OF PRINCIPAL STRAINS FOR THE "QUAD4" ELEMENT. 94-005 DPD CORRECT A PROBLEM RELATING TO REFERENCING A NON-EXISTING GRID POINT WITH THE "NOLIN1" CARD. 94-006 PLOT CORRECT A PROBLEM USING "CELAS2" ELEMENTS IN PLOT REQUESTS WHEN USING RIGID FORMAT 12. 94-007 SDR2 CORRECT PROBLEMS RELATING TO THE PROCESSING OF "E" POINTS. ERROR AFFECTED THE CALCULATION OF ELEMENT FORCE AND STRESS DATA. 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 0 N A S T R A N D I A G 4 8 94-008 MPYAD COSMETIC CHANGE FOR OUTPUT OF DIAG 19. 94-009 NSINFO USER INFORMATION MESSAGE 225 DOES NOT GO AWAY EVEN WHEN TIME CONSTANTS ARE SUPPLIED IN THE "NASINFO" FILE TO NASTRAN. 94-010 MPYAD WRONG METHOD CHOSEN RESULTING IN EXCESSIVE TIME USAGE. MPYAD FAILED TO TAKE INTO ACCOUNT THE NUMBER OF PASSES REQUIRED. 94-011 DECOMP SUBROUTINE "DETFBS" DID NOT PERFORM THE CORRECT FORWARD/BACKWARD SUBSTITUTION WHEN "DECOMP" DECOMPOSED AN UNSYMMETRIX MATRIX WITH THE PARAMETER "CBAR" NON-ZERO. 94-012 DBMMGR INFINITE LOOPING PROBLEM COULD RESULT WHEN USING THE IN-MEMORY DATA BASE AND A CLOSE WITHOUT A REWIND IS ISSUED. 94-013 DBMMGR CORRECTED A PROBLEM USING THE IN-MEMORY DATA BASE THAT RESULTED IN ERROR MESSAGE 2026 IN MODULE "SSG1". 94-015 MCE2 PROBLEM WITH USING THE "RFORCE" CARD. 94-016 OUTPT2 UNABLE TO CHANGE THE BINARY BLOCK SIZE TO BE GREATER THAN 1028. 94-017 SDR2 UNABLE TO GET STRAIN OUTPUT FOR THE "QUAD4" ELEMENT WHEN NOT REQUESTING EITHER FORCE OR STRESS OUTPUT. 94-018 CDCOMP FAILED TO SET APPROPRIATE FLAGS FOR DETECTING A SINGULAR MATRIX. IN ADDITION, THE FOLLOWING NCL'S (NEW CAPABILITY LOG) WERE CLOSED: NCL NO. MODULE DESCRIPTION ------- ------ ------------------------------------------------------ 93-002 FBS OPTIMIZE THE SYMMETRIX FORWARD/BACKWARD SUBSTITUTION METHOD. 93-003 SDCOMP OPTIMIZE THE SYMMETRIX DECOMPOSITION METHOD. 93-004 MPYAD OPTIMIZE THE MATRIX MULTIPLY-ADD METHODS. 93-007 FEER OPTIMIZE THE FEER EIGENVALUE METHOD. AN IN-MEMORY DATA BASE IS AVAILABLE FOR ALL PLATFORMS. THE IN-MEMORY DATA BASE ELIMINATES I/O TO DISK. LOGIC EXISTS TO AUTOMATICALLY WRITE FILES TO DISK AFTER THE IN-MEMORY DATA BASE SPACE IS EXHAUSTED. THE COMMON /ZZZZZZ/ IS USED FOR ALLOCATING OPEN CORE AND SPACE FOR THE IN-MEMORY DATA BASE. THE SIZE OF COMMON /ZZZZZZ/ IS DEFINED IN ./MDS/NASTRN.F (SEE ARRAY "IZ" AND VARIABLE "LENOPC"). ALL REMAINING SPACE AFTER ALLOCATING OPEN CORE IS USED FOR THE IN-MEMORY DATA BASE. THE USER CONTROLS THE ALLOCATION OF OPEN CORE THROUGH THE NASTRAN MENU. THE USER CAN ELIMINATE THE USE OF THE IN-MEMORY DATA BASE BY SETTING THE IN-MEMORY DATA BASE ALLOCATION TO ZERO THROUGH THE NASTRAN MENU. USERS ARE ENCOURAGED TO RECOMPILE "NASTRN.F" WITH A LARGER ALLOCATION FOR COMMON /ZZZZZZ/ IF THEIR PLATFORM SUPPORTS A LARGER MEMORY ALLOCATION. A LARGER ALLOCATION OF COMMON /ZZZZZZ/ PROVIDES FOR MORE SPACE FOR THE IN-MEMORY DATA BASE AND ALLOWS FOR MORE FILES TO BE MAINTAINED WITHIN THE IN-MEMORY DATA BASE. USERS SHOULD ALWAYS ALLOCATE SUFFICIENT OPEN CORE TO PREVENT SPILL LOGIC (E.G., SEE USER INFORMATION MESSAGE 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 0 N A S T R A N D I A G 4 8 3023). IT IS INEFFICIENT TO ALLOCATE TOO MUCH OPEN CORE. HOWEVER, THERE IS NO SUCH PENALTY FOR OVER-ALLOCATING MEMORY FOR THE IN-MEMORY DATA BASE. AT THE END OF THE LOG FILE, A SUMMARY OF ALL GINO I/O ACTIVITY IS GIVEN SHOWING THE PERCENT OF USAGE OF THE IN-MEMORY DATA BASE AND THE AMOUNT OF DISK I/O FOR THE NASTRAN EXECUTION. THE USER'S MANUAL IS PROVIDED ON THE DELIVERABLE TAPE AS TEXT FILES. THE FILES ARE IN ASCII, 80 COLUMN FORMAT. THE USER CAN EXAMINE THESE FILES WITH A SYSTEM EDITOR, OR THROUGH THE USE OF THE NASTHELP PROGRAM, WHICH IS INCLUDED WITH THIS NASTRAN RELEASE. THIS PROGRAM ALLOWS A USER TO SEARCH, READ AND/OR PRINT A PORTION OF THE FILE QUICKLY. THE ENTIRE MANUAL IS STORED IN THE FOLLOWING FILES: EXEC.TXT - NASTRAN EXECUTIVE CONTROL SECTIONS CASE.TXT - THE CASE CONTROL SECTIONS BULK.TXT - INPUT BULK DATA SECTIONS MSSG.TXT - NASTRAN FATAL, WARNING, AND INFORMATION MESSAGES PLOT.TXT - NASTRAN PLOTTING SUBS.TXT - SUBSTRUCTURING SECTIONS INTR.TXT - INTRODUCTION AND GENERAL INFORMATION UMFL.TXT - NASTRAN USER MASTER FILE AND USER GENERAL INPUT DMAP.TXT - NASTRAN DMAPS DICT.TXT - NASTRAN DICTIONARY RFMT.TXT - NASTRAN RIGID FORMATS A UTILITY PROGRAM, "NASTHELP", IS PROVIDED TO ALLOW FOR EASY ACCESS TO THE ABOVE TEXT FILES. NASTHELP IS USER FRIENDLY AND REQUIRES NO WRITTEN INSTRUCTION, EXCEPT THAT THE NASTHELP EXECUTABLE AND THE .TXT FILES MUST BE IN THE SAME DIRECTORY. * * * END OF JOB * * * 1 JOB TITLE = DATE: 5/17/95 END TIME: 14: 0: 5 TOTAL WALL CLOCK TIME 0 SEC. ================================================ FILE: demoout/d01002a.out ================================================ NASTRAN BULKDATA = -3, TITLEOPT = 0 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 0*** NASTRAN SYSTEM MESSAGE. IF THESE 16 NEW TIMING CONSTANTS ARE HARD-CODED INTO THE LABEL COMMON /NTIME/ OF SUBROUTINE SEMDBD, COMPILE, AND RE-LINKE LINK 1, THE COMPUTATIONS OF THESE CONSTANTS IN ALL NASTRAN JOBS WILL BE ELIMINATED. OR TO ACCOMPLISH THE SAME RESULT, EDIT THE TIM-LINE IN THE NASINFO FILE TO INCLUDE THESE 16 NEW TIMING CONSTANTS 0.321 1.012 0.509 0.674 0.115 0.116 0.001 0.030 0.028 0.030 0.028 0.029 0.028 0.028 0.039 0.098 * * * END OF JOB * * * 1 JOB TITLE = DATE: 5/17/95 END TIME: 14: 0:23 TOTAL WALL CLOCK TIME 0 SEC. ================================================ FILE: demoout/d01011a.out ================================================ NASTRAN FILES=NPTP **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01011A,NASTRAN CHKPNT YES DIAG 15 APP DISPLACEMENT SOL 1,1 TIME 15 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE PUNCHED OUT FOR THIS PROBLEM 0 RESTART D01011A ,NASTRAN , 5/17/95, 50446, 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = DELTA WING WITH BICONVEX CROSS SECTION 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 3 LABEL = LOAD ON TRAILING EDGE 4 SPC = 1 5 LOAD = 1 6 OUTPUT 7 $ SET 1 HAS GRIDS ON THE UPPER SURFACE * * * * * * * * * * * * * * * 8 $ SET 2 HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE), 9 $ SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP) * * * * * * * * 10 $ 11 SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93 12 SET 2 = 1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50 13 $ 14 DISPLACEMENTS = 1 15 SPCFORCE = ALL 16 ELSTRESS = 2 17 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 169, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CONROD 100 11 12 1 .035 2- CONROD 101 12 13 1 .035 3- CONROD 102 13 14 1 .0344 4- CONROD 103 14 15 1 .0325 5- CONROD 104 15 16 1 .03 6- CONROD 105 31 32 1 .091 7- CONROD 106 32 33 1 .091 8- CONROD 107 33 34 1 .088 9- CONROD 108 34 35 1 .0719 10- CONROD 109 35 36 1 .0453 11- CONROD 110 51 52 1 .11 12- CONROD 111 52 53 1 .11 13- CONROD 112 53 54 1 .094 14- CONROD 113 54 55 1 .0563 15- CONROD 114 71 72 1 .091 16- CONROD 115 72 73 1 .091 17- CONROD 116 73 74 1 .0649 18- CONROD 117 91 92 1 .035 19- CONROD 118 92 93 1 .035 20- CONROD 119 12 32 1 .063 21- CONROD 120 32 52 1 .1002 22- CONROD 121 52 72 1 .1002 23- CONROD 122 72 92 1 .063 24- CONROD 123 13 33 1 .063 25- CONROD 124 33 53 1 .1002 26- CONROD 125 53 73 1 .1002 27- CONROD 126 73 93 1 .063 28- CONROD 127 14 34 1 .0572 29- CONROD 128 34 54 1 .0805 30- CONROD 129 54 74 1 .0572 31- CONROD 130 15 35 1 .0474 32- CONROD 131 35 55 1 .0474 33- CONROD 132 16 36 1 .028 34- CONROD 133 93 74 1 .0344 35- CONROD 134 74 55 1 .0325 36- CONROD 135 55 36 1 .03 37- CQDMEM 1 1 11 12 32 31 38- CQDMEM 2 1 12 13 33 32 39- CQDMEM 3 1 13 14 34 33 40- CQDMEM 4 1 14 15 35 34 41- CQDMEM 5 1 15 16 36 35 42- CQDMEM 6 1 31 32 52 51 43- CQDMEM 7 1 32 33 53 52 44- CQDMEM 8 1 33 34 54 53 45- CQDMEM 9 1 34 35 55 54 46- CQDMEM 11 1 51 52 72 71 47- CQDMEM 12 1 52 53 73 72 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A LOAD ON TRAILING EDGE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQDMEM 13 1 53 54 74 73 49- CQDMEM 15 1 71 72 92 91 50- CQDMEM 16 1 72 73 93 92 51- CROD 60 5 1 11 61 6 2 12 52- CROD 62 8 3 13 63 8 4 14 53- CROD 64 8 5 15 65 6 6 16 54- CROD 66 6 21 31 67 7 22 32 55- CROD 68 9 23 33 69 9 24 34 56- CROD 70 9 25 35 71 8 26 36 57- CROD 72 6 41 51 73 7 42 52 58- CROD 74 9 43 53 75 9 44 54 59- CROD 76 9 45 55 77 6 61 71 60- CROD 78 7 62 72 79 9 63 73 61- CROD 80 9 64 74 81 5 81 91 62- CROD 82 6 82 92 83 8 83 93 63- CSHEAR 18 2 1 2 12 11 64- CSHEAR 19 2 2 3 13 12 65- CSHEAR 20 2 3 4 14 13 66- CSHEAR 21 2 4 5 15 14 67- CSHEAR 22 2 5 6 16 15 68- CSHEAR 23 2 21 22 32 31 69- CSHEAR 24 2 22 23 33 32 70- CSHEAR 25 2 23 24 34 33 71- CSHEAR 26 2 24 25 35 34 72- CSHEAR 27 2 25 26 36 35 73- CSHEAR 28 2 41 42 52 51 74- CSHEAR 29 2 42 43 53 52 75- CSHEAR 30 2 43 44 54 53 76- CSHEAR 31 2 44 45 55 54 77- CSHEAR 32 2 61 62 72 71 78- CSHEAR 33 2 62 63 73 72 79- CSHEAR 34 2 63 64 74 73 80- CSHEAR 35 2 81 82 92 91 81- CSHEAR 36 2 82 83 93 92 82- CSHEAR 37 2 2 22 32 12 83- CSHEAR 38 2 22 42 52 32 84- CSHEAR 39 2 42 62 72 52 85- CSHEAR 40 2 62 82 92 72 86- CSHEAR 41 2 3 23 33 13 87- CSHEAR 42 2 23 43 53 33 88- CSHEAR 43 2 43 63 73 53 89- CSHEAR 44 2 63 83 93 73 90- CSHEAR 45 2 4 24 34 14 91- CSHEAR 46 2 24 44 54 34 92- CSHEAR 47 2 44 64 74 54 93- CSHEAR 48 2 5 25 35 15 94- CSHEAR 49 2 25 45 55 35 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A LOAD ON TRAILING EDGE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CSHEAR 50 2 6 26 36 16 96- CSHEAR 51 2 26 45 55 36 97- CSHEAR 52 2 45 64 74 55 98- CSHEAR 53 2 64 83 93 74 99- CTRMEM 10 3 35 36 55 100- CTRMEM 14 3 54 55 74 101- CTRMEM 17 3 73 74 93 102- FORCE 1 16 0 -1. .0 .0 500. 103- FORCE 2 36 -1.0 .0 .0 500.0 104- GRDSET 456 105- GRID 1 .0 .0 .0 106- GRID 2 10. .0 .0 107- GRID 3 30. .0 .0 108- GRID 4 50. .0 .0 109- GRID 5 70. .0 .0 110- GRID 6 90. .0 .0 111- GRID 11 .0 .0 .82 112- GRID 12 10. .0 .82 113- GRID 13 30. .0 .82 114- GRID 14 50. .0 .795 115- GRID 15 70. .0 .754 116- GRID 16 90. .0 .67 117- GRID 21 .0 20. .0 118- GRID 22 10. 20. .0 119- GRID 23 30. 20. .0 120- GRID 24 50. 20. .0 121- GRID 25 70. 20. .0 122- GRID 26 90. 20. .0 123- GRID 31 .0 20. 2.02 124- GRID 32 10. 20. 2.02 125- GRID 33 30. 20. 2.02 126- GRID 34 50. 20. 1.795 127- GRID 35 70. 20. 1.42 128- GRID 36 90. 20. .67 129- GRID 41 .0 40. .0 130- GRID 42 10. 40. .0 131- GRID 43 30. 40. .0 132- GRID 44 50. 40. .0 133- GRID 45 70. 40. .0 134- GRID 51 .0 40. 2.42 135- GRID 52 10. 40. 2.42 136- GRID 53 30. 40. 2.42 137- GRID 54 50. 40. 1.795 138- GRID 55 70. 40. .754 139- GRID 61 .0 60. .0 140- GRID 62 10. 60. .0 141- GRID 63 30. 60. .0 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A LOAD ON TRAILING EDGE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 64 50. 60. .0 143- GRID 71 .0 60. 2.02 144- GRID 72 10. 60. 2.02 145- GRID 73 30. 60. 2.02 146- GRID 74 50. 60. .795 147- GRID 81 .0 80. .0 148- GRID 82 10. 80. .0 149- GRID 83 30. 80. .0 150- GRID 91 .0 80. .82 151- GRID 92 10. 80. .82 152- GRID 93 30. 80. .82 153- MAT1 1 10.4 +64. +6 154- MAT1 2 1.04+7 4.+6 .2523-3 155- PARAM IRES 1 156- PQDMEM 1 2 .16 .0 157- PROD 5 1 2.1 158- PROD 6 1 3.5 159- PROD 7 1 4.91 160- PROD 8 1 4.2 161- PROD 9 1 5.6 162- PSHEAR 2 2 .14 .0 163- PTRMEM 3 2 .16 .0 164- SPC1 1 1 11 31 51 71 91 165- SPC1 1 3 13 33 53 73 93 166- SPC1 1 12 1 2 3 4 5 6 +SPC-A 167- +SPC-A 21 22 23 24 25 26 41 42 +SPC-B 168- +SPC-B 43 44 45 61 62 63 64 81 +SPC-C 169- +SPC-C 82 83 ENDDATA 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE CONTINUATION OF CHECKPOINT DICTIONARY 1, XVPS , FLAGS = 0, REEL = 1, FILE = 5 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 19 PROFILE 509 MAX WAVEFRONT 17 AVG WAVEFRONT 10.604 RMS WAVEFRONT 11.331 RMS BANDWIDTH 12.060 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 15 PROFILE 486 MAX WAVEFRONT 15 AVG WAVEFRONT 10.125 RMS WAVEFRONT 10.743 RMS BANDWIDTH 10.914 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 19 15 PROFILE (P) 509 486 MAXIMUM WAVEFRONT (C-MAX) 17 15 AVERAGE WAVEFRONT (C-AVG) 10.604 10.125 RMS WAVEFRONT (C-RMS) 11.331 10.743 RMS BANDWITCH (B-RMS) 12.060 10.914 NUMBER OF GRID POINTS (N) 48 NUMBER OF ELEMENTS (NON-RIGID) 113 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 13 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 200 MATRIX DENSITY, PERCENT 19.444 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 12 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 4 3 11 4 13 SEQGP 5 7 6 2 11 3 12 5 SEQGP 13 12 14 14 15 10 16 6 SEQGP 21 27 22 18 23 24 24 25 SEQGP 25 15 26 8 31 16 32 17 SEQGP 33 19 34 23 35 20 36 9 SEQGP 41 37 42 30 43 32 44 26 SEQGP 45 21 51 28 52 29 53 31 SEQGP 54 33 55 22 61 44 62 40 SEQGP 63 36 64 34 71 38 72 39 SEQGP 73 41 74 35 81 48 82 47 SEQGP 83 42 91 45 92 46 93 43 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE 0 ADDITIONS TO CHECKPOINT DICTIONARY 2, REENTER AT DMAP SEQUENCE NUMBER 12 3, GPL , FLAGS = 0, REEL = 1, FILE = 6 4, EQEXIN , FLAGS = 0, REEL = 1, FILE = 7 5, GPDT , FLAGS = 0, REEL = 1, FILE = 8 6, BGPDT , FLAGS = 0, REEL = 1, FILE = 9 7, SIL , FLAGS = 0, REEL = 1, FILE = 10 8, XVPS , FLAGS = 0, REEL = 1, FILE = 11 9, CSTM , FLAGS = 0, REEL = 0, FILE = 0 10, REENTER AT DMAP SEQUENCE NUMBER 13 11, XVPS , FLAGS = 0, REEL = 1, FILE = 12 12, MPTA , FLAGS = 0, REEL = 0, FILE = 0 13, REENTER AT DMAP SEQUENCE NUMBER 14 14, MPT , FLAGS = 0, REEL = 1, FILE = 13 15, XVPS , FLAGS = 0, REEL = 1, FILE = 14 16, REENTER AT DMAP SEQUENCE NUMBER 15 17, BGPDP , FLAGS = 0, REEL = 1, FILE = 15 18, SIP , FLAGS = 0, REEL = 1, FILE = 16 19, XVPS , FLAGS = 0, REEL = 1, FILE = 17 20, REENTER AT DMAP SEQUENCE NUMBER 16 21, ECT , FLAGS = 0, REEL = 1, FILE = 18 22, XVPS , FLAGS = 0, REEL = 1, FILE = 19 23, REENTER AT DMAP SEQUENCE NUMBER 18 24, XVPS , FLAGS = 0, REEL = 1, FILE = 20 25, PLTSETX , FLAGS = 0, REEL = 0, FILE = 0 26, PLTPAR , FLAGS = 0, REEL = 0, FILE = 0 27, GPSETS , FLAGS = 0, REEL = 0, FILE = 0 28, ELSETS , FLAGS = 0, REEL = 0, FILE = 0 29, REENTER AT DMAP SEQUENCE NUMBER 28 30, SLT , FLAGS = 0, REEL = 1, FILE = 21 31, XVPS , FLAGS = 0, REEL = 1, FILE = 22 32, GPTT , FLAGS = 0, REEL = 0, FILE = 0 33, REENTER AT DMAP SEQUENCE NUMBER 30 34, EST , FLAGS = 0, REEL = 1, FILE = 23 35, GPECT , FLAGS = 0, REEL = 1, FILE = 24 36, XVPS , FLAGS = 0, REEL = 1, FILE = 25 37, GEI , FLAGS = 0, REEL = 0, FILE = 0 38, MPTX , FLAGS = 0, REEL = 0, FILE = 0 39, PCOMPS , FLAGS = 0, REEL = 0, FILE = 0 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE 0 ADDITIONS TO CHECKPOINT DICTIONARY 40, EPTX , FLAGS = 0, REEL = 0, FILE = 0 41, REENTER AT DMAP SEQUENCE NUMBER 31 42, MPT , FLAGS = 0, REEL = 1, FILE = 26 43, EPT , FLAGS = 0, REEL = 1, FILE = 27 44, XVPS , FLAGS = 0, REEL = 1, FILE = 28 45, REENTER AT DMAP SEQUENCE NUMBER 34 46, XVPS , FLAGS = 0, REEL = 1, FILE = 29 47, KGGX , FLAGS = 0, REEL = 0, FILE = 0 48, REENTER AT DMAP SEQUENCE NUMBER 35 49, XVPS , FLAGS = 0, REEL = 1, FILE = 30 50, OPTP1 , FLAGS = 0, REEL = 0, FILE = 0 51, REENTER AT DMAP SEQUENCE NUMBER 39 52, XVPS , FLAGS = 0, REEL = 1, FILE = 31 53, OPTP2 , FLAGS = 0, REEL = 0, FILE = 0 54, EST1 , FLAGS = 0, REEL = 0, FILE = 0 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONROD ELEMENTS (ELEMENT TYPE 10) STARTING WITH ID 100 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 60 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION SHEAR ELEMENTS (ELEMENT TYPE 4) STARTING WITH ID 18 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 10 55, REENTER AT DMAP SEQUENCE NUMBER 40 56, KELM , FLAGS = 0, REEL = 1, FILE = 32 57, KDICT , FLAGS = 0, REEL = 1, FILE = 33 58, XVPS , FLAGS = 0, REEL = 1, FILE = 34 59, MELM , FLAGS = 0, REEL = 0, FILE = 0 60, MDICT , FLAGS = 0, REEL = 0, FILE = 0 61, REENTER AT DMAP SEQUENCE NUMBER 42 62, KGGX , FLAGS = 0, REEL = 1, FILE = 35 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE 0 ADDITIONS TO CHECKPOINT DICTIONARY 63, XVPS , FLAGS = 0, REEL = 1, FILE = 36 64, REENTER AT DMAP SEQUENCE NUMBER 44 65, XVPS , FLAGS = 0, REEL = 1, FILE = 37 66, MGG , FLAGS = 0, REEL = 0, FILE = 0 67, REENTER AT DMAP SEQUENCE NUMBER 54 68, KGGX , FLAGS = 4, REEL = 1, FILE = 35 69, KGG , FLAGS = 4, REEL = 1, FILE = 35 70, XVPS , FLAGS = 0, REEL = 1, FILE = 38 71, REENTER AT DMAP SEQUENCE NUMBER 58 72, GPST , FLAGS = 0, REEL = 1, FILE = 39 73, XVPS , FLAGS = 0, REEL = 1, FILE = 40 74, REENTER AT DMAP SEQUENCE NUMBER 61 75, YS , FLAGS = 0, REEL = 1, FILE = 41 76, USET , FLAGS = 0, REEL = 1, FILE = 42 77, XVPS , FLAGS = 0, REEL = 1, FILE = 43 78, RG , FLAGS = 0, REEL = 0, FILE = 0 79, ASET , FLAGS = 0, REEL = 0, FILE = 0 80, OGPST , FLAGS = 0, REEL = 0, FILE = 0 81, REENTER AT DMAP SEQUENCE NUMBER 65 82, XVPS , FLAGS = 0, REEL = 1, FILE = 44 83, KRR , FLAGS = 0, REEL = 0, FILE = 0 84, KLR , FLAGS = 0, REEL = 0, FILE = 0 85, QR , FLAGS = 0, REEL = 0, FILE = 0 86, DM , FLAGS = 0, REEL = 0, FILE = 0 87, GM , FLAGS = 0, REEL = 0, FILE = 0 88, GO , FLAGS = 0, REEL = 0, FILE = 0 89, KOO , FLAGS = 0, REEL = 0, FILE = 0 90, LOO , FLAGS = 0, REEL = 0, FILE = 0 91, PO , FLAGS = 0, REEL = 0, FILE = 0 92, UOOV , FLAGS = 0, REEL = 0, FILE = 0 93, RUOV , FLAGS = 0, REEL = 0, FILE = 0 94, PS , FLAGS = 0, REEL = 0, FILE = 0 95, KFS , FLAGS = 0, REEL = 0, FILE = 0 96, KSS , FLAGS = 0, REEL = 0, FILE = 0 97, QG , FLAGS = 0, REEL = 0, FILE = 0 98, REENTER AT DMAP SEQUENCE NUMBER 66 99, KNN , FLAGS = 4, REEL = 1, FILE = 35 100, XVPS , FLAGS = 0, REEL = 1, FILE = 45 101, REENTER AT DMAP SEQUENCE NUMBER 71 102, XVPS , FLAGS = 0, REEL = 1, FILE = 46 103, KFF , FLAGS = 0, REEL = 0, FILE = 0 104, REENTER AT DMAP SEQUENCE NUMBER 73 105, KFF , FLAGS = 0, REEL = 1, FILE = 47 106, KFS , FLAGS = 0, REEL = 1, FILE = 48 107, KSS , FLAGS = 0, REEL = 1, FILE = 49 108, XVPS , FLAGS = 0, REEL = 1, FILE = 50 109, REENTER AT DMAP SEQUENCE NUMBER 75 110, KFF , FLAGS = 4, REEL = 1, FILE = 47 111, KAA , FLAGS = 4, REEL = 1, FILE = 47 112, XVPS , FLAGS = 0, REEL = 1, FILE = 51 113, REENTER AT DMAP SEQUENCE NUMBER 79 114, KLL , FLAGS = 4, REEL = 1, FILE = 47 115, XVPS , FLAGS = 0, REEL = 1, FILE = 52 116, REENTER AT DMAP SEQUENCE NUMBER 83 117, LLL , FLAGS = 0, REEL = 1, FILE = 53 118, XVPS , FLAGS = 0, REEL = 1, FILE = 54 119, REENTER AT DMAP SEQUENCE NUMBER 87 120, PG , FLAGS = 0, REEL = 1, FILE = 55 121, XVPS , FLAGS = 0, REEL = 1, FILE = 56 122, REENTER AT DMAP SEQUENCE NUMBER 88 123, XVPS , FLAGS = 0, REEL = 1, FILE = 57 124, PL , FLAGS = 0, REEL = 0, FILE = 0 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE 0 ADDITIONS TO CHECKPOINT DICTIONARY 125, REENTER AT DMAP SEQUENCE NUMBER 90 126, PS , FLAGS = 0, REEL = 1, FILE = 58 127, PL , FLAGS = 0, REEL = 1, FILE = 59 128, XVPS , FLAGS = 0, REEL = 1, FILE = 60 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 2.9361567E-12 129, REENTER AT DMAP SEQUENCE NUMBER 92 130, ULV , FLAGS = 0, REEL = 1, FILE = 61 131, RULV , FLAGS = 0, REEL = 1, FILE = 62 132, XVPS , FLAGS = 0, REEL = 1, FILE = 63 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1-T3). 1 T3 -7.03722E-11 6 T3 1.51408E-09 11 T2 -1.70530E-13 11 T3 3.87956E-11 2 T3 1.45121E-10 12 T1 7.81597E-13 12 T2 2.04636E-12 12 T3 -3.06954E-11 16 T1 2.11458E-11 16 T2 -3.63798E-11 16 T3 3.46632E-10 5 T3 5.13410E-10 26 T3 -1.55973E-09 36 T1 -3.63798E-12 36 T2 -1.45519E-11 36 T3 -1.25812E-09 15 T1 -3.05818E-11 15 T2 2.84217E-12 15 T3 -3.03367E-09 3 T3 -2.85397E-14 13 T1 7.95808E-12 13 T2 3.34510E-13 4 T3 -1.52158E-09 14 T1 5.79803E-12 14 T2 5.45697E-12 14 T3 -9.03015E-10 25 T3 -2.40846E-09 31 T2 -4.54747E-13 31 T3 1.05387E-10 32 T1 2.37321E-12 32 T2 2.27374E-13 32 T3 5.13403E-11 22 T3 1.21645E-11 33 T1 -5.74119E-12 33 T2 1.53477E-12 35 T1 -4.04441E-11 35 T2 2.66027E-11 35 T3 3.18244E-09 45 T3 1.50906E-09 55 T1 5.91172E-12 55 T2 2.04636E-11 55 T3 -9.34293E-10 34 T1 -8.18545E-12 34 T2 1.09139E-11 34 T3 2.75008E-10 23 T3 -3.30520E-13 24 T3 -3.13321E-10 44 T3 -3.72765E-10 21 T3 -2.32831E-10 51 T2 1.70530E-13 51 T3 -3.15898E-11 52 T1 1.13687E-12 52 T2 2.16005E-12 52 T3 1.33653E-11 42 T3 -3.27418E-11 53 T1 1.32402E-12 53 T2 2.41585E-13 43 T3 3.48166E-13 54 T1 -9.94049E-12 54 T2 7.44849E-13 54 T3 4.15166E-11 64 T3 1.45990E-11 74 T1 -3.29692E-12 74 T2 2.78533E-12 74 T3 1.22363E-10 63 T3 3.01981E-14 71 T2 2.84217E-14 71 T3 1.14238E-11 72 T1 3.69482E-13 72 T2 1.81899E-12 72 T3 -8.65725E-11 62 T3 2.85638E-11 73 T1 -1.70530E-12 73 T2 1.70530E-13 83 T3 1.42109E-14 93 T1 -1.36424E-12 93 T2 2.84217E-13 61 T3 5.82077E-11 91 T2 2.27374E-13 91 T3 5.82077E-11 92 T1 -1.81899E-12 92 T2 4.54747E-13 92 T3 9.42464E-11 82 T3 -2.21689E-11 81 T3 5.82077E-11 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE 0 ADDITIONS TO CHECKPOINT DICTIONARY 133, REENTER AT DMAP SEQUENCE NUMBER 97 134, UGV , FLAGS = 0, REEL = 1, FILE = 64 135, PGG , FLAGS = 0, REEL = 1, FILE = 65 136, QG , FLAGS = 0, REEL = 1, FILE = 66 137, XVPS , FLAGS = 0, REEL = 1, FILE = 67 138, REENTER AT DMAP SEQUENCE NUMBER 104 139, XVPS , FLAGS = 0, REEL = 1, FILE = 68 140, ONRGY1 , FLAGS = 0, REEL = 0, FILE = 0 141, OGPFB1 , FLAGS = 0, REEL = 0, FILE = 0 142, REENTER AT DMAP SEQUENCE NUMBER 105 143, XVPS , FLAGS = 0, REEL = 1, FILE = 69 144, KDICT , FLAGS = 0, REEL = 0, FILE = 0 145, KELM , FLAGS = 0, REEL = 0, FILE = 0 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 146, REENTER AT DMAP SEQUENCE NUMBER 111 147, OQG1 , FLAGS = 0, REEL = 1, FILE = 70 148, OUGV1 , FLAGS = 0, REEL = 1, FILE = 71 149, OES1 , FLAGS = 0, REEL = 1, FILE = 72 150, XVPS , FLAGS = 0, REEL = 1, FILE = 73 151, OPG1 , FLAGS = 0, REEL = 0, FILE = 0 152, OEF1 , FLAGS = 0, REEL = 0, FILE = 0 153, PUGV1 , FLAGS = 0, REEL = 0, FILE = 0 154, OES1L , FLAGS = 0, REEL = 0, FILE = 0 155, OEF1L , FLAGS = 0, REEL = 0, FILE = 0 156, REENTER AT DMAP SEQUENCE NUMBER 115 157, XVPS , FLAGS = 0, REEL = 1, FILE = 74 158, OES1M , FLAGS = 0, REEL = 0, FILE = 0 159, REENTER AT DMAP SEQUENCE NUMBER 121 160, XVPS , FLAGS = 0, REEL = 1, FILE = 75 161, OES1A , FLAGS = 0, REEL = 0, FILE = 0 162, REENTER AT DMAP SEQUENCE NUMBER 141 163, XVPS , FLAGS = 0, REEL = 1, FILE = 76 164, OUGV2 , FLAGS = 0, REEL = 0, FILE = 0 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 0.0 6.326195E-04 3.889221E-02 0.0 0.0 0.0 12 G 6.110347E-04 5.786690E-04 3.516638E-02 0.0 0.0 0.0 13 G 2.246047E-03 2.291722E-04 0.0 0.0 0.0 0.0 14 G 4.135543E-03 -5.312650E-04 -8.153134E-02 0.0 0.0 0.0 15 G 6.438577E-03 -2.061774E-03 -2.213399E-01 0.0 0.0 0.0 16 G 7.125177E-03 -4.191895E-03 -4.237940E-01 0.0 0.0 0.0 31 G 0.0 6.583068E-04 3.027513E-02 0.0 0.0 0.0 32 G 1.397886E-03 6.218933E-04 2.684338E-02 0.0 0.0 0.0 33 G 4.495833E-03 -1.921513E-04 0.0 0.0 0.0 0.0 34 G 7.184171E-03 -1.908943E-03 -6.307607E-02 0.0 0.0 0.0 35 G 8.284863E-03 -4.174031E-03 -1.619760E-01 0.0 0.0 0.0 36 G 4.867467E-03 -3.979917E-03 -2.926660E-01 0.0 0.0 0.0 51 G 0.0 3.229334E-04 2.358343E-02 0.0 0.0 0.0 52 G 1.327153E-03 3.639649E-04 2.089395E-02 0.0 0.0 0.0 53 G 3.920446E-03 -3.346661E-04 0.0 0.0 0.0 0.0 54 G 4.837958E-03 -1.793201E-03 -4.258112E-02 0.0 0.0 0.0 55 G 2.893602E-03 -1.783306E-03 -1.044655E-01 0.0 0.0 0.0 71 G 0.0 -2.613379E-05 1.925292E-02 0.0 0.0 0.0 72 G 9.031846E-04 6.687018E-05 1.707610E-02 0.0 0.0 0.0 73 G 2.238884E-03 -1.884281E-04 0.0 0.0 0.0 0.0 74 G 1.161988E-03 -4.283132E-04 -2.486472E-02 0.0 0.0 0.0 91 G 0.0 -2.217726E-04 1.909140E-02 0.0 0.0 0.0 92 G 4.337606E-04 -1.089645E-04 1.644652E-02 0.0 0.0 0.0 93 G 7.280685E-04 6.026249E-05 0.0 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.456080E-10 0.0 0.0 0.0 0.0 0.0 2 G 9.074130E+01 -3.683558E+01 0.0 0.0 0.0 0.0 3 G 7.913966E+02 -7.238023E+01 0.0 0.0 0.0 0.0 4 G 1.619174E+03 1.084571E+02 0.0 0.0 0.0 0.0 5 G 4.264385E+03 -5.589730E+02 0.0 0.0 0.0 0.0 6 G 3.345866E+03 -2.564445E+03 0.0 0.0 0.0 0.0 11 G -9.288416E+02 0.0 0.0 0.0 0.0 0.0 13 G 0.0 0.0 2.728490E+01 0.0 0.0 0.0 21 G -7.994647E+00 0.0 0.0 0.0 0.0 0.0 22 G -6.603453E+02 3.854870E+02 0.0 0.0 0.0 0.0 23 G -1.369353E+02 5.911785E+02 0.0 0.0 0.0 0.0 24 G 1.262641E+03 1.446680E+02 0.0 0.0 0.0 0.0 25 G 2.098824E+03 -1.315867E+03 0.0 0.0 0.0 0.0 26 G 1.005600E+03 -2.218446E+03 0.0 0.0 0.0 0.0 31 G -5.060130E+03 0.0 0.0 0.0 0.0 0.0 33 G 0.0 0.0 4.848077E+02 0.0 0.0 0.0 41 G -1.477332E+01 0.0 0.0 0.0 0.0 0.0 42 G -2.356820E+02 9.478534E+02 0.0 0.0 0.0 0.0 43 G 6.493493E+01 1.322354E+03 0.0 0.0 0.0 0.0 44 G 6.273634E+02 -1.207967E+02 0.0 0.0 0.0 0.0 45 G -2.655376E+02 -1.498364E+02 0.0 0.0 0.0 0.0 51 G -4.865197E+03 0.0 0.0 0.0 0.0 0.0 53 G 0.0 0.0 2.645033E+02 0.0 0.0 0.0 61 G -1.647111E+01 0.0 0.0 0.0 0.0 0.0 62 G 4.090248E+02 7.843605E+02 0.0 0.0 0.0 0.0 63 G 6.220519E+02 9.110595E+02 0.0 0.0 0.0 0.0 64 G -6.780111E+02 7.175596E+02 0.0 0.0 0.0 0.0 71 G -3.306838E+03 0.0 0.0 0.0 0.0 0.0 73 G 0.0 0.0 -9.256940E+01 0.0 0.0 0.0 81 G 6.084520E-10 0.0 0.0 0.0 0.0 0.0 82 G 6.376050E+02 2.588298E+02 0.0 0.0 0.0 0.0 83 G 2.409647E+01 8.657728E+02 0.0 0.0 0.0 0.0 91 G -6.869459E+02 0.0 0.0 0.0 0.0 0.0 93 G 0.0 0.0 -1.840265E+02 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.067032E+03 7.464526E+01 -2.523309E+01 -1.4556 1.067674E+03 7.400409E+01 4.968348E+02 2 1.277331E+03 1.558731E+02 -1.844174E+02 -9.1027 1.306879E+03 1.263251E+02 5.902769E+02 3 1.464351E+03 2.120861E+02 -5.238947E+02 -19.9599 1.654617E+03 2.181940E+01 8.163989E+02 4 1.532354E+03 3.064197E+02 -9.642474E+02 -28.7780 2.061972E+03 -2.231987E+02 1.142586E+03 5 8.677583E+02 2.805625E+02 -1.185906E+03 -38.0474 1.795869E+03 -6.475483E+02 1.221709E+03 6 1.484669E+03 2.254963E+02 -3.062851E+01 -1.3926 1.485414E+03 2.247518E+02 6.303311E+02 7 1.581563E+03 3.394707E+02 -3.112921E+02 -13.3109 1.655212E+03 2.658219E+02 6.946951E+02 8 1.609814E+03 4.759346E+02 -7.585593E+02 -26.6130 1.989887E+03 9.586169E+01 9.470127E+02 9 1.259379E+03 5.328748E+02 -1.007006E+03 -35.0822 1.966647E+03 -1.743931E+02 1.070520E+03 11 1.233078E+03 2.443430E+02 3.874672E+00 0.2245 1.233094E+03 2.443279E+02 4.943829E+02 12 1.116186E+03 3.154936E+02 -2.299598E+02 -14.9366 1.177531E+03 2.541488E+02 4.616911E+02 13 8.234872E+02 4.113317E+02 -5.510374E+02 -34.7476 1.205721E+03 2.909808E+01 5.883113E+02 15 7.362961E+02 1.369492E+02 5.198694E+01 4.9208 7.407720E+02 1.324733E+02 3.041494E+02 16 4.751649E+02 1.712104E+02 -5.485458E+00 -1.0336 4.752639E+02 1.711114E+02 1.520762E+02 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) ELEMENT MAX AVG SAFETY ELEMENT MAX AVG SAFETY ID. SHEAR SHEAR MARGIN ID. SHEAR SHEAR MARGIN 18 9.765625E-04 -9.765625E-04 19 6.481470E+01 -6.481470E+01 20 5.004673E+02 -5.004673E+02 21 6.560859E+02 -6.560859E+02 22 2.389902E+03 -2.389902E+03 28 2.110498E+01 2.110498E+01 29 1.577919E+02 1.577919E+02 30 2.752647E+02 -2.133537E+02 31 5.807382E+02 -3.416038E+02 35 2.441406E-04 -2.441406E-04 36 4.554319E+02 -4.554319E+02 41 1.273588E+02 7.417298E+01 42 5.678261E+02 -4.817272E+02 43 5.637499E+02 -4.782690E+02 44 4.438794E+02 -2.585127E+02 50 1.831746E+03 1.831746E+03 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 10 9.285977E+02 5.275767E+02 -6.003485E+02 -35.7656 1.361035E+03 9.513947E+01 6.329477E+02 14 8.101731E+02 4.935635E+02 -2.993453E+02 -31.0642 9.904950E+02 3.132416E+02 3.386267E+02 17 2.965867E+02 2.183271E+02 -5.222508E+01 -26.5787 3.227149E+02 1.921989E+02 6.525797E+01 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A LOAD ON TRAILING EDGE 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A 0 LOAD ON TRAILING EDGE 0 ADDITIONS TO CHECKPOINT DICTIONARY 165, REENTER AT DMAP SEQUENCE NUMBER 149 166, XVPS , FLAGS = 0, REEL = 1, FILE = 77 167, OESF1X , FLAGS = 0, REEL = 0, FILE = 0 168, OESF1Y , FLAGS = 0, REEL = 0, FILE = 0 169, REENTER AT DMAP SEQUENCE NUMBER 172 170, XVPS , FLAGS = 0, REEL = 1, FILE = 78 171, DUMMY , FLAGS = 0, REEL = 0, FILE = 0 * * * END OF JOB * * * 1 JOB TITLE = DELTA WING WITH BICONVEX CROSS SECTION DATE: 5/17/95 END TIME: 14: 1: 4 TOTAL WALL CLOCK TIME 4 SEC. ================================================ FILE: demoout/d01011b.out ================================================ NASTRAN FILES = OPTP **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01011B,RESTART $ INSERT THE RESTART DICTIONARY HERE 0*** $ ... READFILE FROM- RSCARDS ( 173 CARDS READ) 0*** $ END READFILE APP DISPLACEMENT SOL 1,1 TIME 5 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 0 LOAD ON LEADING EDGE 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = DELTA WING RESTART 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 3 LABEL = LOAD ON LEADING EDGE 4 LOAD = 2 5 SPC = 1 6 OUTPUT 7 $ SET 1 HAS GRIDS ON THE UPPER SURFACE * * * * * * * * * * * * * * * 8 $ SET 2 HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE), 9 $ SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP) * * * * * * * * 10 $ 11 SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93 12 SET 2 = 1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50 13 $ 14 DISPLACEMENTS = 1 15 SPCFORCE = ALL 16 ELSTRESS = 2 17 BEGIN BULK 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 0 LOAD ON LEADING EDGE 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ ENDDATA TOTAL COUNT= 0 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 0 LOAD ON LEADING EDGE 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CONROD 100 11 12 1 .035 2- CONROD 101 12 13 1 .035 3- CONROD 102 13 14 1 .0344 4- CONROD 103 14 15 1 .0325 5- CONROD 104 15 16 1 .03 6- CONROD 105 31 32 1 .091 7- CONROD 106 32 33 1 .091 8- CONROD 107 33 34 1 .088 9- CONROD 108 34 35 1 .0719 10- CONROD 109 35 36 1 .0453 11- CONROD 110 51 52 1 .11 12- CONROD 111 52 53 1 .11 13- CONROD 112 53 54 1 .094 14- CONROD 113 54 55 1 .0563 15- CONROD 114 71 72 1 .091 16- CONROD 115 72 73 1 .091 17- CONROD 116 73 74 1 .0649 18- CONROD 117 91 92 1 .035 19- CONROD 118 92 93 1 .035 20- CONROD 119 12 32 1 .063 21- CONROD 120 32 52 1 .1002 22- CONROD 121 52 72 1 .1002 23- CONROD 122 72 92 1 .063 24- CONROD 123 13 33 1 .063 25- CONROD 124 33 53 1 .1002 26- CONROD 125 53 73 1 .1002 27- CONROD 126 73 93 1 .063 28- CONROD 127 14 34 1 .0572 29- CONROD 128 34 54 1 .0805 30- CONROD 129 54 74 1 .0572 31- CONROD 130 15 35 1 .0474 32- CONROD 131 35 55 1 .0474 33- CONROD 132 16 36 1 .028 34- CONROD 133 93 74 1 .0344 35- CONROD 134 74 55 1 .0325 36- CONROD 135 55 36 1 .03 37- CQDMEM 1 1 11 12 32 31 38- CQDMEM 2 1 12 13 33 32 39- CQDMEM 3 1 13 14 34 33 40- CQDMEM 4 1 14 15 35 34 41- CQDMEM 5 1 15 16 36 35 42- CQDMEM 6 1 31 32 52 51 43- CQDMEM 7 1 32 33 53 52 44- CQDMEM 8 1 33 34 54 53 45- CQDMEM 9 1 34 35 55 54 46- CQDMEM 11 1 51 52 72 71 47- CQDMEM 12 1 52 53 73 72 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B LOAD ON LEADING EDGE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQDMEM 13 1 53 54 74 73 49- CQDMEM 15 1 71 72 92 91 50- CQDMEM 16 1 72 73 93 92 51- CROD 60 5 1 11 61 6 2 12 52- CROD 62 8 3 13 63 8 4 14 53- CROD 64 8 5 15 65 6 6 16 54- CROD 66 6 21 31 67 7 22 32 55- CROD 68 9 23 33 69 9 24 34 56- CROD 70 9 25 35 71 8 26 36 57- CROD 72 6 41 51 73 7 42 52 58- CROD 74 9 43 53 75 9 44 54 59- CROD 76 9 45 55 77 6 61 71 60- CROD 78 7 62 72 79 9 63 73 61- CROD 80 9 64 74 81 5 81 91 62- CROD 82 6 82 92 83 8 83 93 63- CSHEAR 18 2 1 2 12 11 64- CSHEAR 19 2 2 3 13 12 65- CSHEAR 20 2 3 4 14 13 66- CSHEAR 21 2 4 5 15 14 67- CSHEAR 22 2 5 6 16 15 68- CSHEAR 23 2 21 22 32 31 69- CSHEAR 24 2 22 23 33 32 70- CSHEAR 25 2 23 24 34 33 71- CSHEAR 26 2 24 25 35 34 72- CSHEAR 27 2 25 26 36 35 73- CSHEAR 28 2 41 42 52 51 74- CSHEAR 29 2 42 43 53 52 75- CSHEAR 30 2 43 44 54 53 76- CSHEAR 31 2 44 45 55 54 77- CSHEAR 32 2 61 62 72 71 78- CSHEAR 33 2 62 63 73 72 79- CSHEAR 34 2 63 64 74 73 80- CSHEAR 35 2 81 82 92 91 81- CSHEAR 36 2 82 83 93 92 82- CSHEAR 37 2 2 22 32 12 83- CSHEAR 38 2 22 42 52 32 84- CSHEAR 39 2 42 62 72 52 85- CSHEAR 40 2 62 82 92 72 86- CSHEAR 41 2 3 23 33 13 87- CSHEAR 42 2 23 43 53 33 88- CSHEAR 43 2 43 63 73 53 89- CSHEAR 44 2 63 83 93 73 90- CSHEAR 45 2 4 24 34 14 91- CSHEAR 46 2 24 44 54 34 92- CSHEAR 47 2 44 64 74 54 93- CSHEAR 48 2 5 25 35 15 94- CSHEAR 49 2 25 45 55 35 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B LOAD ON LEADING EDGE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CSHEAR 50 2 6 26 36 16 96- CSHEAR 51 2 26 45 55 36 97- CSHEAR 52 2 45 64 74 55 98- CSHEAR 53 2 64 83 93 74 99- CTRMEM 10 3 35 36 55 100- CTRMEM 14 3 54 55 74 101- CTRMEM 17 3 73 74 93 102- FORCE 1 16 0 -1. .0 .0 500. 103- FORCE 2 36 -1.0 .0 .0 500.0 104- GRDSET 456 105- GRID 1 .0 .0 .0 106- GRID 2 10. .0 .0 107- GRID 3 30. .0 .0 108- GRID 4 50. .0 .0 109- GRID 5 70. .0 .0 110- GRID 6 90. .0 .0 111- GRID 11 .0 .0 .82 112- GRID 12 10. .0 .82 113- GRID 13 30. .0 .82 114- GRID 14 50. .0 .795 115- GRID 15 70. .0 .754 116- GRID 16 90. .0 .67 117- GRID 21 .0 20. .0 118- GRID 22 10. 20. .0 119- GRID 23 30. 20. .0 120- GRID 24 50. 20. .0 121- GRID 25 70. 20. .0 122- GRID 26 90. 20. .0 123- GRID 31 .0 20. 2.02 124- GRID 32 10. 20. 2.02 125- GRID 33 30. 20. 2.02 126- GRID 34 50. 20. 1.795 127- GRID 35 70. 20. 1.42 128- GRID 36 90. 20. .67 129- GRID 41 .0 40. .0 130- GRID 42 10. 40. .0 131- GRID 43 30. 40. .0 132- GRID 44 50. 40. .0 133- GRID 45 70. 40. .0 134- GRID 51 .0 40. 2.42 135- GRID 52 10. 40. 2.42 136- GRID 53 30. 40. 2.42 137- GRID 54 50. 40. 1.795 138- GRID 55 70. 40. .754 139- GRID 61 .0 60. .0 140- GRID 62 10. 60. .0 141- GRID 63 30. 60. .0 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B LOAD ON LEADING EDGE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 64 50. 60. .0 143- GRID 71 .0 60. 2.02 144- GRID 72 10. 60. 2.02 145- GRID 73 30. 60. 2.02 146- GRID 74 50. 60. .795 147- GRID 81 .0 80. .0 148- GRID 82 10. 80. .0 149- GRID 83 30. 80. .0 150- GRID 91 .0 80. .82 151- GRID 92 10. 80. .82 152- GRID 93 30. 80. .82 153- MAT1 1 10.4 +64. +6 154- MAT1 2 1.04+7 4.+6 .2523-3 155- PARAM IRES 1 156- PQDMEM 1 2 .16 .0 157- PROD 5 1 2.1 158- PROD 6 1 3.5 159- PROD 7 1 4.91 160- PROD 8 1 4.2 161- PROD 9 1 5.6 162- PSHEAR 2 2 .14 .0 163- PTRMEM 3 2 .16 .0 164- SPC1 1 1 11 31 51 71 91 165- SPC1 1 3 13 33 53 73 93 166- SPC1 1 12 1 2 3 4 5 6 +SPC-A 167- +SPC-A 21 22 23 24 25 26 41 42 +SPC-B 168- +SPC-B 43 44 45 61 62 63 64 81 +SPC-C 169- +SPC-C 82 83 ENDDATA 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 0 LOAD ON LEADING EDGE 0*** USER INFORMATION MESSAGE 4144, THIS IS A MODIFIED RESTART. 0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW. 0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES ----------------------------------- MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION 17 3 LOAD$ 59 17 POUT$ 19 31 NOLOOP$ 31 0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES -------------------------------- NONE 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 0 LOAD ON LEADING EDGE 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 01 - STATIC ANALYSIS - APR. 1995 $ + + 2 FILE OPTP2=SAVE/EST1=SAVE $ + + 4 SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ + * 5 PARAM //*MPY*/CARDNO/0/0 $ + * 6 COMPOFF 1,INTERACT $ 7 PRECHK ALL $ 8 COMPON 1,INTERACT $ 10 COMPOFF LBLINT02,SYS21 $ 11 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 12 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 13 EQUIV MPTA,MPT/ISOP $ 14 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 15 GP2 GEOM2,EQEXIN/ECT $ 16 PARAML PCDB//*PRES*////JUMPPLOT $ 17 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 18 COND P1,JUMPPLOT $ 19 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 20 PRTMSG PLTSETX// $ 21 PARAM //*MPY*/PLTFLG/1/1 $ 22 PARAM //*MPY*/PFILE/0/0 $ 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B LOAD ON LEADING EDGE COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 23 COND P1,JUMPPLOT $ 24 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 25 PRTMSG PLOTX1// $ 26 LABEL P1 $ + + 27 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ 28 PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ 29 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 30 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ + * 31 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ 32 COND ERROR4,NOELMT $ 33 PURGE KGGX/NOSIMP $ 34 OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ 35 LABEL LOOPTOP $ + + 36 COND LBL1,NOSIMP $ 37 PARAM //*ADD*/NOKGGX/1/0 $ 38 EQUIV OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ 39 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 40 COND JMPKGG,NOKGGX $ 41 EMA GPECT,KDICT,KELM/KGGX $ 42 LABEL JMPKGG $ + + 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B LOAD ON LEADING EDGE COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 43 PURGE MGG/NOMGG $ 44 COND JMPMGG,NOMGG $ 45 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 46 PURGE MDICT,MELM/ALWAYS $ 47 LABEL JMPMGG $ + + 48 COND LBL1,GRDPNT $ 49 COND ERROR2,NOMGG $ 50 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ 51 OFP OGPWG,,,,,//S,N,CARDNO $ 52 LABEL LBL1 $ + + 53 EQUIV KGGX,KGG/NOGENL $ 54 COND LBL11A,NOGENL $ 55 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 56 LABEL LBL11A $ + + 57 GPSTGEN KGG,SIL/GPST $ 58 PARAM //*MPY*/NSKIP/0/0 $ + * 60 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, + * ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 61 OFP OGPST,,,,,//S,N,CARDNO $ 62 COND ERROR3,NOL $ + * 63 PARAM //*AND*/NOSR/SINGLE/REACT $ + * 64 PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, + * KFS,KSS/SINGLE/QG/NOSR $ 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B LOAD ON LEADING EDGE COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 65 EQUIV KGG,KNN/MPCF1 $ 66 COND LBL2,MPCF2 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,,,/KNN,,, $ 69 LABEL LBL2 $ + + 70 EQUIV KNN,KFF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ 73 LABEL LBL3 $ + + 74 EQUIV KFF,KAA/OMIT $ 75 COND LBL5,OMIT $ 76 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 77 LABEL LBL5 $ + + 78 EQUIV KAA,KLL/REACT $ 79 COND LBL6,REACT $ 80 RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ 81 LABEL LBL6 $ + + 82 RBMG2 KLL/LLL $ 83 COND LBL7,REACT $ 84 RBMG3 LLL,KLR,KRR/DM $ 85 LABEL LBL7 $ + + 86 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ + * PG,,,,/LUSET/NSKIP/COMPS $ 87 EQUIV PG,PL/NOSET $ + * 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B LOAD ON LEADING EDGE COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 88 COND LBL10,NOSET $ + * 89 SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ + * 90 LABEL LBL10 $ + + 91 SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ + * NSKIP/S,N,EPSI $ 92 COND LBL9,IRES $ + * 93 MATGPR GPL,USET,SIL,RULV//*L* $ + * 94 MATGPR GPL,USET,SIL,RUOV//*O* $ + * 95 LABEL LBL9 $ + + 96 SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ + * *STATICS* $ 100 PARAM //*NOT*/TEST/REPEAT $ 101 COND ERROR5,TEST $ 103 GPFDR CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/ + * *STATICS* $ 104 PURGE KDICT,KELM/REPEAT $ + * 105 OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ + * 106 COND NOMPCF,GRDEQ $ 107 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ 108 OFP OQM1,,,,,//S,N,CARDNO $ 109 LABEL NOMPCF $ + + 110 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, + * XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L, OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ 111 COND LBLSTRS,STRESS $ + * 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B LOAD ON LEADING EDGE COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 112 CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/ + * V,Y,NINTPTS $ 113 LABEL LBLSTRS $ + + 114 PURGE OES1M/STRESS $ + * 115 COND LBLSTRN,STRNFLG $ + * 116 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/ + * ,,,OES1A,,,,/*STATICS*//1 $ 117 COND LBLSTRN,STRAIN $ + * 118 CURV OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/ + * V,Y,NINTPTS $ 119 LABEL LBLSTRN $ + + 120 PURGE OES1A/STRNFLG $ + * 121 COND LBL17,NOSORT2 $ + * 122 SDR3 OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $ + * 123 PARAM //*SUB*/PRTSORT2/NOSORT2/1 $ + * 124 COND LBLSORT1,PRTSORT2 $ + * 125 OFP OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $ + * 126 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ + * 127 OFP OESF2,,,,,//S,N,CARDNO $ + * 128 JUMP LBLXYPLT $ + * 129 LABEL LBLSORT1 $ + + 130 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ + * 131 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ + * 132 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ + * 133 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ + * 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B LOAD ON LEADING EDGE COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 134 LABEL LBLXYPLT $ + + 135 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ + * 136 XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ 137 XYPLOT XYPLTT// $ 138 JUMP DPLOT $ 139 LABEL LBL17 $ + + 140 PURGE OUGV2/NOSORT2 $ + * 141 COND LBLOFP,COUNT $ + * 142 OPTPR2 OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N, + * CARDNO $ 143 EQUIV EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $ + * 144 COND LOOPEND,PRINT $ + * 145 LABEL LBLOFP $ + + 146 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ + * 147 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ + * 148 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $ + * 149 OFP OESF1X,OESF1Y,,,,//S,N,CARDNO $ + * 150 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ + * 151 LABEL DPLOT $ + + 152 COND P2,JUMPPLOT $ 153 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 154 PRTMSG PLOTX2// $ 155 LABEL P2 $ + + 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B LOAD ON LEADING EDGE COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 156 LABEL LOOPEND $ + + 157 COND FINIS,COUNT $ 158 REPT LOOPTOP,360 $ 159 JUMP FINIS $ + * 162 LABEL ERROR2 $ + + 163 PRTPARM //-2/*STATICS* $ 164 LABEL ERROR3 $ + + 165 PRTPARM //-3/*STATICS* $ + * 166 LABEL ERROR4 $ + + 167 PRTPARM //-4/*STATICS* $ 168 LABEL ERROR5 $ + + 169 PRTPARM //-5/*STATICS* $ 170 LABEL FINIS $ + + 171 PURGE DUMMY/ALWAYS $ + * 172 LABEL LBLINT02 $ + + 173 COMPON LBLINT01,SYS21 $ 228 END $ + * 0 0 + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME. 0 * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART. 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 0 LOAD ON LEADING EDGE 0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART FILE NAME REEL NO. FILE NO. CSTM (PURGED) GPTT (PURGED) MPTX (PURGED) PCOMPS (PURGED) EPTX (PURGED) OPTP1 (PURGED) OPTP2 (PURGED) EST1 (PURGED) KELM (PURGED) KDICT (PURGED) MGG (PURGED) DM (PURGED) GM (PURGED) GO (PURGED) KOO (PURGED) LOO (PURGED) GPL 1 6 EQEXIN 1 7 GPDT 1 8 BGPDT 1 9 SIL 1 10 BGPDP 1 15 ECT 1 18 SLT 1 21 EST 1 23 GPECT 1 24 GPST 1 39 KFF 1 47 KAA 1 47 KLL 1 47 KFS 1 48 KSS 1 49 LLL 1 53 XVPS 1 78 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 6.1515055E-12 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 0 LOAD ON LEADING EDGE 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1-T3). 1 T3 -6.95763E-11 6 T3 6.16296E-10 11 T2 1.70530E-13 11 T3 2.10918E-10 2 T3 -5.02780E-11 12 T1 -1.11378E-12 12 T2 2.72848E-12 12 T3 9.60512E-11 16 T1 -7.73070E-12 16 T2 -1.50067E-11 16 T3 5.43775E-10 5 T3 2.58819E-09 26 T3 9.83107E-10 36 T1 2.00089E-11 36 T2 7.27596E-12 36 T3 -6.04552E-09 15 T1 -1.59162E-12 15 T2 -1.37277E-11 15 T3 -9.33122E-10 3 T3 7.41768E-15 13 T1 7.16227E-12 13 T2 -2.87936E-13 4 T3 1.00050E-09 14 T1 1.35856E-11 14 T2 -5.45697E-12 14 T3 -1.29640E-09 25 T3 -2.87628E-09 31 T2 5.68434E-14 31 T3 9.06279E-11 32 T1 4.97380E-13 32 T2 -9.09495E-13 32 T3 -8.64659E-11 22 T3 -7.32712E-11 33 T1 -6.45173E-12 33 T2 1.53477E-12 35 T1 -9.35074E-12 35 T2 -7.27596E-12 35 T3 3.44293E-09 45 T3 -2.43809E-09 55 T1 6.36646E-12 55 T2 8.64020E-12 55 T3 1.76433E-09 34 T1 -1.08002E-11 34 T2 9.09495E-13 34 T3 1.12095E-10 23 T3 -4.59924E-13 24 T3 -3.08091E-10 44 T3 -5.50486E-10 21 T3 -5.82077E-11 51 T2 -1.13687E-13 51 T3 -1.09983E-11 52 T1 2.84217E-13 52 T2 1.81899E-12 52 T3 -1.23705E-11 42 T3 -5.66729E-11 53 T1 5.36009E-12 53 T2 8.24230E-13 43 T3 4.40536E-13 54 T1 -4.59721E-12 54 T2 -3.17385E-12 54 T3 1.82623E-11 64 T3 -1.27191E-10 74 T1 4.30589E-12 74 T2 -1.40687E-12 74 T3 2.89413E-11 63 T3 2.75335E-14 41 T3 -1.16415E-10 71 T2 3.97904E-13 71 T3 9.31895E-11 72 T1 -1.13687E-12 72 T2 9.09495E-13 72 T3 -1.42734E-10 62 T3 5.87477E-11 73 T1 -8.12861E-12 73 T2 3.12639E-13 83 T3 1.42109E-14 93 T1 -4.54747E-13 93 T2 -3.41061E-13 61 T3 5.82077E-11 91 T2 1.13687E-13 91 T3 1.16415E-10 92 T1 -4.54747E-13 92 T2 4.54747E-13 92 T3 -9.08926E-11 82 T3 2.55227E-11 81 T3 -1.16415E-10 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 0 LOAD ON LEADING EDGE D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 0.0 5.504990E-04 3.530420E-02 0.0 0.0 0.0 12 G 6.107410E-04 4.929025E-04 3.158017E-02 0.0 0.0 0.0 13 G 1.873376E-03 2.850013E-04 0.0 0.0 0.0 0.0 14 G 3.161895E-03 8.439103E-05 -6.274446E-02 0.0 0.0 0.0 15 G 4.411702E-03 -1.702276E-04 -1.625252E-01 0.0 0.0 0.0 16 G 4.745846E-03 4.252517E-05 -2.926660E-01 0.0 0.0 0.0 31 G 0.0 5.442912E-04 2.830364E-02 0.0 0.0 0.0 32 G 1.305697E-03 5.001065E-04 2.510981E-02 0.0 0.0 0.0 33 G 4.089955E-03 -3.986530E-05 0.0 0.0 0.0 0.0 34 G 6.495925E-03 -7.628573E-04 -5.700741E-02 0.0 0.0 0.0 35 G 7.875944E-03 -1.463164E-03 -1.480883E-01 0.0 0.0 0.0 36 G 5.096887E-03 -9.914878E-04 -2.803201E-01 0.0 0.0 0.0 51 G 0.0 2.245659E-04 2.367125E-02 0.0 0.0 0.0 52 G 1.331577E-03 2.509207E-04 2.097496E-02 0.0 0.0 0.0 53 G 4.035364E-03 -2.396090E-04 0.0 0.0 0.0 0.0 54 G 5.250302E-03 -1.264451E-03 -4.560495E-02 0.0 0.0 0.0 55 G 3.479791E-03 -1.510970E-03 -1.177722E-01 0.0 0.0 0.0 71 G 0.0 -1.015693E-04 2.070749E-02 0.0 0.0 0.0 72 G 9.683918E-04 -1.727391E-05 1.836970E-02 0.0 0.0 0.0 73 G 2.533760E-03 -1.852120E-04 0.0 0.0 0.0 0.0 74 G 1.384301E-03 -4.822831E-04 -3.005366E-02 0.0 0.0 0.0 91 G 0.0 -2.647094E-04 2.149453E-02 0.0 0.0 0.0 92 G 4.786263E-04 -1.570201E-04 1.857608E-02 0.0 0.0 0.0 93 G 8.386566E-04 2.826507E-05 0.0 0.0 0.0 0.0 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 0 LOAD ON LEADING EDGE F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.165042E-10 0.0 0.0 0.0 0.0 0.0 2 G 3.599395E+02 -1.461141E+02 0.0 0.0 0.0 0.0 3 G 4.687872E+02 -4.818484E+02 0.0 0.0 0.0 0.0 4 G 6.671176E+02 -1.392725E+02 0.0 0.0 0.0 0.0 5 G 9.848511E+02 1.650048E+02 0.0 0.0 0.0 0.0 6 G 4.265812E+02 5.084844E+02 0.0 0.0 0.0 0.0 11 G -9.479640E+02 0.0 0.0 0.0 0.0 0.0 13 G 0.0 0.0 -1.204342E+02 0.0 0.0 0.0 21 G -1.071339E+01 0.0 0.0 0.0 0.0 0.0 22 G -4.583174E+02 6.434440E+01 0.0 0.0 0.0 0.0 23 G -2.515692E+01 -1.296826E+02 0.0 0.0 0.0 0.0 24 G 8.916004E+02 -1.697035E+02 0.0 0.0 0.0 0.0 25 G 2.732031E+03 -6.619138E+02 0.0 0.0 0.0 0.0 26 G 3.636943E+03 -8.655808E+02 0.0 0.0 0.0 0.0 31 G -4.741040E+03 0.0 0.0 0.0 0.0 0.0 33 G 0.0 0.0 3.889736E+02 0.0 0.0 0.0 41 G -1.543079E+01 0.0 0.0 0.0 0.0 0.0 42 G -3.514639E+02 6.451864E+02 0.0 0.0 0.0 0.0 43 G 9.565627E+01 8.870487E+02 0.0 0.0 0.0 0.0 44 G 1.457744E+03 -6.072207E+02 0.0 0.0 0.0 0.0 45 G 2.237699E+03 -2.038563E+03 0.0 0.0 0.0 0.0 51 G -4.894878E+03 0.0 0.0 0.0 0.0 0.0 53 G 0.0 0.0 3.813365E+02 0.0 0.0 0.0 61 G -1.660231E+01 0.0 0.0 0.0 0.0 0.0 62 G 2.722174E+02 7.201207E+02 0.0 0.0 0.0 0.0 63 G 9.084629E+02 8.436291E+02 0.0 0.0 0.0 0.0 64 G -1.559330E+02 1.987865E+02 0.0 0.0 0.0 0.0 71 G -3.551513E+03 0.0 0.0 0.0 0.0 0.0 73 G 0.0 0.0 5.214319E+01 0.0 0.0 0.0 81 G 6.857590E-10 0.0 0.0 0.0 0.0 0.0 82 G 7.030408E+02 2.853928E+02 0.0 0.0 0.0 0.0 83 G 8.988521E+01 9.219017E+02 0.0 0.0 0.0 0.0 91 G -7.635428E+02 0.0 0.0 0.0 0.0 0.0 93 G 0.0 0.0 -2.020191E+02 0.0 0.0 0.0 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 0 LOAD ON LEADING EDGE S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.026162E+03 9.871423E+01 -3.381412E+01 -2.0853 1.027393E+03 9.748303E+01 4.649550E+02 2 1.095968E+03 1.459189E+02 -1.235515E+02 -7.2897 1.111772E+03 1.301143E+02 4.908290E+02 3 1.185247E+03 1.260328E+02 -1.991666E+02 -10.3048 1.221458E+03 8.982092E+01 5.658187E+02 4 1.179686E+03 -2.426147E+00 -2.313605E+02 -10.6886 1.223354E+03 -4.609436E+01 6.347242E+02 5 7.152158E+02 -2.652981E+02 -4.286072E+01 -2.4982 7.170858E+02 -2.671681E+02 4.921270E+02 6 1.443246E+03 2.395445E+02 -2.453354E+01 -1.1671 1.443746E+03 2.390447E+02 6.023505E+02 7 1.522463E+03 3.185712E+02 -1.980511E+02 -9.1061 1.554207E+03 2.868271E+02 6.336901E+02 8 1.563812E+03 2.867714E+02 -4.314293E+02 -17.0229 1.695902E+03 1.546819E+02 7.706099E+02 9 1.314786E+03 -9.774048E+00 -5.345066E+02 -19.4530 1.503572E+03 -1.985593E+02 8.510654E+02 11 1.272889E+03 2.563500E+02 5.946625E+00 0.3352 1.272924E+03 2.563152E+02 5.083043E+02 12 1.205905E+03 3.197482E+02 -1.736017E+02 -10.6978 1.238700E+03 2.869526E+02 4.758739E+02 13 9.566259E+02 3.041428E+02 -4.758458E+02 -27.7827 1.207327E+03 5.344183E+01 5.769426E+02 15 7.959081E+02 1.448627E+02 5.240103E+01 4.5724 8.000988E+02 1.406721E+02 3.297133E+02 16 5.553535E+02 1.824994E+02 4.913635E+00 0.7549 5.554182E+02 1.824346E+02 1.864918E+02 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 0 LOAD ON LEADING EDGE S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) ELEMENT MAX AVG SAFETY ELEMENT MAX AVG SAFETY ID. SHEAR SHEAR MARGIN ID. SHEAR SHEAR MARGIN 18 0.0 0.0 19 2.570995E+02 -2.570995E+02 20 7.774805E+01 -7.774805E+01 21 3.987627E+02 -3.987627E+02 22 3.046973E+02 -3.046973E+02 28 2.204395E+01 2.204395E+01 29 2.400233E+02 2.400233E+02 30 4.157130E+02 -3.222133E+02 31 1.744758E+03 -1.026307E+03 35 4.882812E-04 -4.882812E-04 36 5.021718E+02 -5.021718E+02 41 8.478514E+02 4.937835E+02 42 3.013582E+02 -2.556636E+02 43 4.577146E+02 -3.883118E+02 44 5.432639E+02 -3.163936E+02 50 3.632051E+02 -3.632051E+02 1 DELTA WING RESTART / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B 0 LOAD ON LEADING EDGE S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 10 1.062842E+03 -2.299238E+02 -1.325228E+02 -5.7932 1.076287E+03 -2.433691E+02 6.598279E+02 14 1.133046E+03 3.440770E+02 -2.640948E+02 -16.9005 1.213287E+03 2.638362E+02 4.747254E+02 17 4.301529E+02 2.400204E+02 -3.866161E+01 -11.0653 4.377137E+02 2.324596E+02 1.026270E+02 * * * END OF JOB * * * 1 JOB TITLE = DELTA WING RESTART DATE: 5/17/95 END TIME: 14: 1:49 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01011c.out ================================================ NASTRAN FILES = OPTP **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01011C,RESTART $ INSERT THE RESTART DICTIONARY HERE 0*** $ ... READFILE FROM- RSCARDS RESTART D01011A ,NASTRAN , 5/17/95, 50446, 1, XVPS , FLAGS = 0, REEL = 1, FILE = 5 2, REENTER AT DMAP SEQUENCE NUMBER 12 3, GPL , FLAGS = 0, REEL = 1, FILE = 6 4, EQEXIN , FLAGS = 0, REEL = 1, FILE = 7 5, GPDT , FLAGS = 0, REEL = 1, FILE = 8 6, BGPDT , FLAGS = 0, REEL = 1, FILE = 9 7, SIL , FLAGS = 0, REEL = 1, FILE = 10 8, XVPS , FLAGS = 0, REEL = 1, FILE = 11 9, CSTM , FLAGS = 0, REEL = 0, FILE = 0 10, REENTER AT DMAP SEQUENCE NUMBER 13 11, XVPS , FLAGS = 0, REEL = 1, FILE = 12 12, MPTA , FLAGS = 0, REEL = 0, FILE = 0 13, REENTER AT DMAP SEQUENCE NUMBER 14 14, MPT , FLAGS = 0, REEL = 1, FILE = 13 15, XVPS , FLAGS = 0, REEL = 1, FILE = 14 16, REENTER AT DMAP SEQUENCE NUMBER 15 17, BGPDP , FLAGS = 0, REEL = 1, FILE = 15 18, SIP , FLAGS = 0, REEL = 1, FILE = 16 19, XVPS , FLAGS = 0, REEL = 1, FILE = 17 20, REENTER AT DMAP SEQUENCE NUMBER 16 21, ECT , FLAGS = 0, REEL = 1, FILE = 18 22, XVPS , FLAGS = 0, REEL = 1, FILE = 19 23, REENTER AT DMAP SEQUENCE NUMBER 18 24, XVPS , FLAGS = 0, REEL = 1, FILE = 20 25, PLTSETX , FLAGS = 0, REEL = 0, FILE = 0 26, PLTPAR , FLAGS = 0, REEL = 0, FILE = 0 27, GPSETS , FLAGS = 0, REEL = 0, FILE = 0 28, ELSETS , FLAGS = 0, REEL = 0, FILE = 0 29, REENTER AT DMAP SEQUENCE NUMBER 28 30, SLT , FLAGS = 0, REEL = 1, FILE = 21 31, XVPS , FLAGS = 0, REEL = 1, FILE = 22 32, GPTT , FLAGS = 0, REEL = 0, FILE = 0 33, REENTER AT DMAP SEQUENCE NUMBER 30 34, EST , FLAGS = 0, REEL = 1, FILE = 23 35, GPECT , FLAGS = 0, REEL = 1, FILE = 24 36, XVPS , FLAGS = 0, REEL = 1, FILE = 25 37, GEI , FLAGS = 0, REEL = 0, FILE = 0 38, MPTX , FLAGS = 0, REEL = 0, FILE = 0 39, PCOMPS , FLAGS = 0, REEL = 0, FILE = 0 40, EPTX , FLAGS = 0, REEL = 0, FILE = 0 41, REENTER AT DMAP SEQUENCE NUMBER 31 42, MPT , FLAGS = 0, REEL = 1, FILE = 26 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 43, EPT , FLAGS = 0, REEL = 1, FILE = 27 44, XVPS , FLAGS = 0, REEL = 1, FILE = 28 45, REENTER AT DMAP SEQUENCE NUMBER 34 46, XVPS , FLAGS = 0, REEL = 1, FILE = 29 47, KGGX , FLAGS = 0, REEL = 0, FILE = 0 48, REENTER AT DMAP SEQUENCE NUMBER 35 49, XVPS , FLAGS = 0, REEL = 1, FILE = 30 50, OPTP1 , FLAGS = 0, REEL = 0, FILE = 0 51, REENTER AT DMAP SEQUENCE NUMBER 39 52, XVPS , FLAGS = 0, REEL = 1, FILE = 31 53, OPTP2 , FLAGS = 0, REEL = 0, FILE = 0 54, EST1 , FLAGS = 0, REEL = 0, FILE = 0 55, REENTER AT DMAP SEQUENCE NUMBER 40 56, KELM , FLAGS = 0, REEL = 1, FILE = 32 57, KDICT , FLAGS = 0, REEL = 1, FILE = 33 58, XVPS , FLAGS = 0, REEL = 1, FILE = 34 59, MELM , FLAGS = 0, REEL = 0, FILE = 0 60, MDICT , FLAGS = 0, REEL = 0, FILE = 0 61, REENTER AT DMAP SEQUENCE NUMBER 42 62, KGGX , FLAGS = 0, REEL = 1, FILE = 35 63, XVPS , FLAGS = 0, REEL = 1, FILE = 36 64, REENTER AT DMAP SEQUENCE NUMBER 44 65, XVPS , FLAGS = 0, REEL = 1, FILE = 37 66, MGG , FLAGS = 0, REEL = 0, FILE = 0 67, REENTER AT DMAP SEQUENCE NUMBER 54 68, KGGX , FLAGS = 4, REEL = 1, FILE = 35 69, KGG , FLAGS = 4, REEL = 1, FILE = 35 70, XVPS , FLAGS = 0, REEL = 1, FILE = 38 71, REENTER AT DMAP SEQUENCE NUMBER 58 72, GPST , FLAGS = 0, REEL = 1, FILE = 39 73, XVPS , FLAGS = 0, REEL = 1, FILE = 40 74, REENTER AT DMAP SEQUENCE NUMBER 61 75, YS , FLAGS = 0, REEL = 1, FILE = 41 76, USET , FLAGS = 0, REEL = 1, FILE = 42 77, XVPS , FLAGS = 0, REEL = 1, FILE = 43 78, RG , FLAGS = 0, REEL = 0, FILE = 0 79, ASET , FLAGS = 0, REEL = 0, FILE = 0 80, OGPST , FLAGS = 0, REEL = 0, FILE = 0 81, REENTER AT DMAP SEQUENCE NUMBER 65 82, XVPS , FLAGS = 0, REEL = 1, FILE = 44 83, KRR , FLAGS = 0, REEL = 0, FILE = 0 84, KLR , FLAGS = 0, REEL = 0, FILE = 0 85, QR , FLAGS = 0, REEL = 0, FILE = 0 86, DM , FLAGS = 0, REEL = 0, FILE = 0 87, GM , FLAGS = 0, REEL = 0, FILE = 0 88, GO , FLAGS = 0, REEL = 0, FILE = 0 89, KOO , FLAGS = 0, REEL = 0, FILE = 0 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 90, LOO , FLAGS = 0, REEL = 0, FILE = 0 91, PO , FLAGS = 0, REEL = 0, FILE = 0 92, UOOV , FLAGS = 0, REEL = 0, FILE = 0 93, RUOV , FLAGS = 0, REEL = 0, FILE = 0 94, PS , FLAGS = 0, REEL = 0, FILE = 0 95, KFS , FLAGS = 0, REEL = 0, FILE = 0 96, KSS , FLAGS = 0, REEL = 0, FILE = 0 97, QG , FLAGS = 0, REEL = 0, FILE = 0 98, REENTER AT DMAP SEQUENCE NUMBER 66 99, KNN , FLAGS = 4, REEL = 1, FILE = 35 100, XVPS , FLAGS = 0, REEL = 1, FILE = 45 101, REENTER AT DMAP SEQUENCE NUMBER 71 102, XVPS , FLAGS = 0, REEL = 1, FILE = 46 103, KFF , FLAGS = 0, REEL = 0, FILE = 0 104, REENTER AT DMAP SEQUENCE NUMBER 73 105, KFF , FLAGS = 0, REEL = 1, FILE = 47 106, KFS , FLAGS = 0, REEL = 1, FILE = 48 107, KSS , FLAGS = 0, REEL = 1, FILE = 49 108, XVPS , FLAGS = 0, REEL = 1, FILE = 50 109, REENTER AT DMAP SEQUENCE NUMBER 75 110, KFF , FLAGS = 4, REEL = 1, FILE = 47 111, KAA , FLAGS = 4, REEL = 1, FILE = 47 112, XVPS , FLAGS = 0, REEL = 1, FILE = 51 113, REENTER AT DMAP SEQUENCE NUMBER 79 114, KLL , FLAGS = 4, REEL = 1, FILE = 47 115, XVPS , FLAGS = 0, REEL = 1, FILE = 52 116, REENTER AT DMAP SEQUENCE NUMBER 83 117, LLL , FLAGS = 0, REEL = 1, FILE = 53 118, XVPS , FLAGS = 0, REEL = 1, FILE = 54 119, REENTER AT DMAP SEQUENCE NUMBER 87 120, PG , FLAGS = 0, REEL = 1, FILE = 55 121, XVPS , FLAGS = 0, REEL = 1, FILE = 56 122, REENTER AT DMAP SEQUENCE NUMBER 88 123, XVPS , FLAGS = 0, REEL = 1, FILE = 57 124, PL , FLAGS = 0, REEL = 0, FILE = 0 125, REENTER AT DMAP SEQUENCE NUMBER 90 126, PS , FLAGS = 0, REEL = 1, FILE = 58 127, PL , FLAGS = 0, REEL = 1, FILE = 59 128, XVPS , FLAGS = 0, REEL = 1, FILE = 60 129, REENTER AT DMAP SEQUENCE NUMBER 92 130, ULV , FLAGS = 0, REEL = 1, FILE = 61 131, RULV , FLAGS = 0, REEL = 1, FILE = 62 132, XVPS , FLAGS = 0, REEL = 1, FILE = 63 133, REENTER AT DMAP SEQUENCE NUMBER 97 134, UGV , FLAGS = 0, REEL = 1, FILE = 64 135, PGG , FLAGS = 0, REEL = 1, FILE = 65 136, QG , FLAGS = 0, REEL = 1, FILE = 66 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 137, XVPS , FLAGS = 0, REEL = 1, FILE = 67 138, REENTER AT DMAP SEQUENCE NUMBER 104 139, XVPS , FLAGS = 0, REEL = 1, FILE = 68 140, ONRGY1 , FLAGS = 0, REEL = 0, FILE = 0 141, OGPFB1 , FLAGS = 0, REEL = 0, FILE = 0 142, REENTER AT DMAP SEQUENCE NUMBER 105 143, XVPS , FLAGS = 0, REEL = 1, FILE = 69 144, KDICT , FLAGS = 0, REEL = 0, FILE = 0 145, KELM , FLAGS = 0, REEL = 0, FILE = 0 146, REENTER AT DMAP SEQUENCE NUMBER 111 147, OQG1 , FLAGS = 0, REEL = 1, FILE = 70 148, OUGV1 , FLAGS = 0, REEL = 1, FILE = 71 149, OES1 , FLAGS = 0, REEL = 1, FILE = 72 150, XVPS , FLAGS = 0, REEL = 1, FILE = 73 151, OPG1 , FLAGS = 0, REEL = 0, FILE = 0 152, OEF1 , FLAGS = 0, REEL = 0, FILE = 0 153, PUGV1 , FLAGS = 0, REEL = 0, FILE = 0 154, OES1L , FLAGS = 0, REEL = 0, FILE = 0 155, OEF1L , FLAGS = 0, REEL = 0, FILE = 0 156, REENTER AT DMAP SEQUENCE NUMBER 115 157, XVPS , FLAGS = 0, REEL = 1, FILE = 74 158, OES1M , FLAGS = 0, REEL = 0, FILE = 0 159, REENTER AT DMAP SEQUENCE NUMBER 121 160, XVPS , FLAGS = 0, REEL = 1, FILE = 75 161, OES1A , FLAGS = 0, REEL = 0, FILE = 0 162, REENTER AT DMAP SEQUENCE NUMBER 141 163, XVPS , FLAGS = 0, REEL = 1, FILE = 76 164, OUGV2 , FLAGS = 0, REEL = 0, FILE = 0 165, REENTER AT DMAP SEQUENCE NUMBER 149 166, XVPS , FLAGS = 0, REEL = 1, FILE = 77 167, OESF1X , FLAGS = 0, REEL = 0, FILE = 0 168, OESF1Y , FLAGS = 0, REEL = 0, FILE = 0 169, REENTER AT DMAP SEQUENCE NUMBER 172 170, XVPS , FLAGS = 0, REEL = 1, FILE = 78 171, DUMMY , FLAGS = 0, REEL = 0, FILE = 0 $ END OF CHECKPOINT DICTIONARY 0*** $ END READFILE TIME 5 SOL 3,1 APP DISPLACEMENT CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 0*** SWITCHED SOLUTION FOR RESTART - OLD SOLUTION = 1, NEW SOLUTION = 3, BIT NUMBER = 187 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = DELTA WING RESTART, REAL EIGENVALUE ANALYSIS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 3 LABEL = RIGID FORMAT SWITCH FROM 1 TO 3 4 SPC = 1 5 METHOD = 12 6 OUTPUT 7 $ SET 1 HAS GRIDS ON THE UPPER SURFACE * * * * * * * * * * * * * * * 8 $ SET 2 HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE), 9 $ SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP) * * * * * * * * 10 $ 11 SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93 12 SET 2 = 1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50 13 $ 14 DISPLACEMENTS = 1 15 SPCFORCE = ALL 16 ELSTRESS = 2 17 BEGIN BULK 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ EIGR 12 INV 30.0 160.0 1 3 0 1.-4 +EIGR12 +EIGR12 MAX ENDDATA TOTAL COUNT= 2 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CONROD 100 11 12 1 .035 2- CONROD 101 12 13 1 .035 3- CONROD 102 13 14 1 .0344 4- CONROD 103 14 15 1 .0325 5- CONROD 104 15 16 1 .03 6- CONROD 105 31 32 1 .091 7- CONROD 106 32 33 1 .091 8- CONROD 107 33 34 1 .088 9- CONROD 108 34 35 1 .0719 10- CONROD 109 35 36 1 .0453 11- CONROD 110 51 52 1 .11 12- CONROD 111 52 53 1 .11 13- CONROD 112 53 54 1 .094 14- CONROD 113 54 55 1 .0563 15- CONROD 114 71 72 1 .091 16- CONROD 115 72 73 1 .091 17- CONROD 116 73 74 1 .0649 18- CONROD 117 91 92 1 .035 19- CONROD 118 92 93 1 .035 20- CONROD 119 12 32 1 .063 21- CONROD 120 32 52 1 .1002 22- CONROD 121 52 72 1 .1002 23- CONROD 122 72 92 1 .063 24- CONROD 123 13 33 1 .063 25- CONROD 124 33 53 1 .1002 26- CONROD 125 53 73 1 .1002 27- CONROD 126 73 93 1 .063 28- CONROD 127 14 34 1 .0572 29- CONROD 128 34 54 1 .0805 30- CONROD 129 54 74 1 .0572 31- CONROD 130 15 35 1 .0474 32- CONROD 131 35 55 1 .0474 33- CONROD 132 16 36 1 .028 34- CONROD 133 93 74 1 .0344 35- CONROD 134 74 55 1 .0325 36- CONROD 135 55 36 1 .03 37- CQDMEM 1 1 11 12 32 31 38- CQDMEM 2 1 12 13 33 32 39- CQDMEM 3 1 13 14 34 33 40- CQDMEM 4 1 14 15 35 34 41- CQDMEM 5 1 15 16 36 35 42- CQDMEM 6 1 31 32 52 51 43- CQDMEM 7 1 32 33 53 52 44- CQDMEM 8 1 33 34 54 53 45- CQDMEM 9 1 34 35 55 54 46- CQDMEM 11 1 51 52 72 71 47- CQDMEM 12 1 52 53 73 72 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C RIGID FORMAT SWITCH FROM 1 TO 3 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQDMEM 13 1 53 54 74 73 49- CQDMEM 15 1 71 72 92 91 50- CQDMEM 16 1 72 73 93 92 51- CROD 60 5 1 11 61 6 2 12 52- CROD 62 8 3 13 63 8 4 14 53- CROD 64 8 5 15 65 6 6 16 54- CROD 66 6 21 31 67 7 22 32 55- CROD 68 9 23 33 69 9 24 34 56- CROD 70 9 25 35 71 8 26 36 57- CROD 72 6 41 51 73 7 42 52 58- CROD 74 9 43 53 75 9 44 54 59- CROD 76 9 45 55 77 6 61 71 60- CROD 78 7 62 72 79 9 63 73 61- CROD 80 9 64 74 81 5 81 91 62- CROD 82 6 82 92 83 8 83 93 63- CSHEAR 18 2 1 2 12 11 64- CSHEAR 19 2 2 3 13 12 65- CSHEAR 20 2 3 4 14 13 66- CSHEAR 21 2 4 5 15 14 67- CSHEAR 22 2 5 6 16 15 68- CSHEAR 23 2 21 22 32 31 69- CSHEAR 24 2 22 23 33 32 70- CSHEAR 25 2 23 24 34 33 71- CSHEAR 26 2 24 25 35 34 72- CSHEAR 27 2 25 26 36 35 73- CSHEAR 28 2 41 42 52 51 74- CSHEAR 29 2 42 43 53 52 75- CSHEAR 30 2 43 44 54 53 76- CSHEAR 31 2 44 45 55 54 77- CSHEAR 32 2 61 62 72 71 78- CSHEAR 33 2 62 63 73 72 79- CSHEAR 34 2 63 64 74 73 80- CSHEAR 35 2 81 82 92 91 81- CSHEAR 36 2 82 83 93 92 82- CSHEAR 37 2 2 22 32 12 83- CSHEAR 38 2 22 42 52 32 84- CSHEAR 39 2 42 62 72 52 85- CSHEAR 40 2 62 82 92 72 86- CSHEAR 41 2 3 23 33 13 87- CSHEAR 42 2 23 43 53 33 88- CSHEAR 43 2 43 63 73 53 89- CSHEAR 44 2 63 83 93 73 90- CSHEAR 45 2 4 24 34 14 91- CSHEAR 46 2 24 44 54 34 92- CSHEAR 47 2 44 64 74 54 93- CSHEAR 48 2 5 25 35 15 94- CSHEAR 49 2 25 45 55 35 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C RIGID FORMAT SWITCH FROM 1 TO 3 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CSHEAR 50 2 6 26 36 16 96- CSHEAR 51 2 26 45 55 36 97- CSHEAR 52 2 45 64 74 55 98- CSHEAR 53 2 64 83 93 74 99- CTRMEM 10 3 35 36 55 100- CTRMEM 14 3 54 55 74 101- CTRMEM 17 3 73 74 93 102- EIGR 12 INV 30.0 160.0 1 3 0 1.-4 +EIGR12 103- +EIGR12 MAX 104- FORCE 1 16 0 -1. .0 .0 500. 105- FORCE 2 36 -1.0 .0 .0 500.0 106- GRDSET 456 107- GRID 1 .0 .0 .0 108- GRID 2 10. .0 .0 109- GRID 3 30. .0 .0 110- GRID 4 50. .0 .0 111- GRID 5 70. .0 .0 112- GRID 6 90. .0 .0 113- GRID 11 .0 .0 .82 114- GRID 12 10. .0 .82 115- GRID 13 30. .0 .82 116- GRID 14 50. .0 .795 117- GRID 15 70. .0 .754 118- GRID 16 90. .0 .67 119- GRID 21 .0 20. .0 120- GRID 22 10. 20. .0 121- GRID 23 30. 20. .0 122- GRID 24 50. 20. .0 123- GRID 25 70. 20. .0 124- GRID 26 90. 20. .0 125- GRID 31 .0 20. 2.02 126- GRID 32 10. 20. 2.02 127- GRID 33 30. 20. 2.02 128- GRID 34 50. 20. 1.795 129- GRID 35 70. 20. 1.42 130- GRID 36 90. 20. .67 131- GRID 41 .0 40. .0 132- GRID 42 10. 40. .0 133- GRID 43 30. 40. .0 134- GRID 44 50. 40. .0 135- GRID 45 70. 40. .0 136- GRID 51 .0 40. 2.42 137- GRID 52 10. 40. 2.42 138- GRID 53 30. 40. 2.42 139- GRID 54 50. 40. 1.795 140- GRID 55 70. 40. .754 141- GRID 61 .0 60. .0 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C RIGID FORMAT SWITCH FROM 1 TO 3 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 62 10. 60. .0 143- GRID 63 30. 60. .0 144- GRID 64 50. 60. .0 145- GRID 71 .0 60. 2.02 146- GRID 72 10. 60. 2.02 147- GRID 73 30. 60. 2.02 148- GRID 74 50. 60. .795 149- GRID 81 .0 80. .0 150- GRID 82 10. 80. .0 151- GRID 83 30. 80. .0 152- GRID 91 .0 80. .82 153- GRID 92 10. 80. .82 154- GRID 93 30. 80. .82 155- MAT1 1 10.4 +64. +6 156- MAT1 2 1.04+7 4.+6 .2523-3 157- PARAM IRES 1 158- PQDMEM 1 2 .16 .0 159- PROD 5 1 2.1 160- PROD 6 1 3.5 161- PROD 7 1 4.91 162- PROD 8 1 4.2 163- PROD 9 1 5.6 164- PSHEAR 2 2 .14 .0 165- PTRMEM 3 2 .16 .0 166- SPC1 1 1 11 31 51 71 91 167- SPC1 1 3 13 33 53 73 93 168- SPC1 1 12 1 2 3 4 5 6 +SPC-A 169- +SPC-A 21 22 23 24 25 26 41 42 +SPC-B 170- +SPC-B 43 44 45 61 62 63 64 81 +SPC-C 171- +SPC-C 82 83 ENDDATA 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 0*** USER INFORMATION MESSAGE 4145, THIS IS A MODIFIED RESTART INVOLVING RIGID FORMAT SWITCH. 0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW. 0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES ----------------------------------- MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION 17 4 METHOD$ 62 17 POUT$ 19 0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES -------------------------------- MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED BIT POSITION 3 23 EIGR 61 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $ + + 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ + + 4 PARAM //*MPY*/CARDNO/0/0 $ + * 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1//$ 20 LABEL P1 $ + + 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C RIGID FORMAT SWITCH FROM 1 TO 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ + * 24 COND ERROR4,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ + * 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ + * S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 LABEL JMPKGG $ + + 32 COND ERROR1,NOMGG $ + * 33 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ + * 34 PURGE MDICT,MELM/ALWAYS $ 35 COND LGPWG,GRDPNT $ 36 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 37 OFP OGPWG,,,,,//S,N,CARDNO $ 38 LABEL LGPWG $ + + 39 EQUIV KGGX,KGG/NOGENL $ 40 COND LBL11,NOGENL $ 41 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C RIGID FORMAT SWITCH FROM 1 TO 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 LABEL LBL11 $ + + 43 GPSTGEN KGG,SIL/GPST $ 44 PARAM //*MPY*/NSKIP/0/0 $ 45 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 46 OFP OGPST,,,,,//S,N,CARDNO $ 47 COND ERROR3,NOL $ 48 PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ 49 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 50 COND LBL2,MPCF1 $ 51 MCE1 USET,RG/GM $ 52 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 53 LABEL LBL2 $ + + 54 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 55 COND LBL3,SINGLE $ 56 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 57 LABEL LBL3 $ + + 58 EQUIV KFF,KAA/OMIT $ 59 EQUIV MFF,MAA/OMIT $ 60 COND LBL5,OMIT $ 61 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 62 SMP2 USET,GO,MFF/MAA $ 63 LABEL LBL5 $ + + 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C RIGID FORMAT SWITCH FROM 1 TO 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 64 COND LBL6,REACT $ 65 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 66 RBMG2 KLL/LLL $ 67 RBMG3 LLL,KLR,KRR/DM $ 68 RBMG4 DM,MLL,MLR,MRR/MR $ 69 LABEL LBL6 $ + + 70 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ + * LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ 71 COND ERROR2,NOEED $ + * 72 PARAM //*MPY*/NEIGV/1/-1 $ 73 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ + * S,N,NEIGV $ 74 OFP OEIGS,,,,,//S,N,CARDNO $ + * 75 COND FINIS,NEIGV $ + * 76 OFP LAMA,,,,,//S,N,CARDNO $ + * 77 SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ + * 78 COND NOMPCF,GRDEQ $ + * 79 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ + * OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ 80 OFP OQM1,,,,,//S,N,CARDNO $ + * 81 LABEL NOMPCF $ + + 82 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, + * PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ *REIG*////COMPS $ 83 OFP OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $ + * 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C RIGID FORMAT SWITCH FROM 1 TO 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 84 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ + * 85 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ + * 86 GPFDR CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ + * 87 OFP ONRGY1,,,,,//S,N,CARDNO $ + * 88 PURGE KDICT,KELM/ALWAYS $ 89 COND P2,JUMPPLOT $ 90 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 91 PRTMSG PLOTX2// $ 92 LABEL P2 $ + + 93 JUMP FINIS $ + * 94 LABEL ERROR1 $ + + 95 PRTPARM //-1/*MODES* $ + * 96 LABEL ERROR2 $ + + 97 PRTPARM //-2/*MODES* $ + * 98 LABEL ERROR3 $ + + 99 PRTPARM //-3/*MODES* $ + * 100 LABEL ERROR4 $ + + 101 PRTPARM //-4/*MODES* $ + * 102 LABEL FINIS $ + + 103 PURGE DUMMY/ALWAYS $ + * 104 END $ + * 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C RIGID FORMAT SWITCH FROM 1 TO 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 0 + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME. 0 * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART. 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 0*** USER INFORMATION MESSAGE 4147 NOTE THAT ADDITIONAL DMAP INSTRUCTIONS (NOT INDICATED BY AN * IN THE DMAP SOURCE LISTING) NEED TO BE FLAGGED FOR EXECUTION IN ORDER TO GENERATE CERTAIN REQUIRED DATA BLOCKS. SUCH INSTRUCTIONS AND THE ASSOCIATED DATA BLOCKS ARE IDENTIFIED BELOW. 0TO GENERATE DATA BLOCK MAA - TURN ON THE EXECUTE FLAG FOR THE FOLLOWING DMAP INSTRUCTIONS 59 XEQUIV 60 COND 62 SMP2 0TO GENERATE DATA BLOCK MFF - TURN ON THE EXECUTE FLAG FOR THE FOLLOWING DMAP INSTRUCTIONS 48 XPURGE 54 XEQUIV 55 COND 56 SCE1 0TO GENERATE DATA BLOCK MNN - TURN ON THE EXECUTE FLAG FOR THE FOLLOWING DMAP INSTRUCTIONS 49 XEQUIV 50 COND 52 MCE2 0TO GENERATE DATA BLOCK MR - TURN ON THE EXECUTE FLAG FOR THE FOLLOWING DMAP INSTRUCTIONS 64 COND 68 RBMG4 0TO GENERATE DATA BLOCK MLL - TURN ON THE EXECUTE FLAG FOR THE FOLLOWING DMAP INSTRUCTIONS 65 RBMG1 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART FILE NAME REEL NO. FILE NO. CSTM (PURGED) MPTX (PURGED) PCOMPS (PURGED) EPTX (PURGED) DM (PURGED) GM (PURGED) GO (PURGED) GPL 1 6 EQEXIN 1 7 BGPDT 1 9 SIL 1 10 BGPDP 1 15 ECT 1 18 EST 1 23 GPECT 1 24 KGGX 1 35 KGG 1 35 KNN 1 35 USET 1 42 KFF 1 47 KAA 1 47 KLL 1 47 XVPS 1 78 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONROD ELEMENTS (ELEMENT TYPE 10) STARTING WITH ID 100 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 60 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION SHEAR ELEMENTS (ELEMENT TYPE 4) STARTING WITH ID 18 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 10 1 ROOTS BELOW 5.230891E+05 1 ROOTS BELOW 6.600186E+04 3 ROOTS BELOW 9.632594E+05 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 3 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 3 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 20 0 REASON FOR TERMINATION . . . . . . . . . . . 6* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.42E-08 0 . . . 3 MODE PAIR . . . . . . . . . . . . . 2 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* NO. OF ROOTS DESIRED WERE FOUND. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 3 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 2 6.598684E+04 2.568791E+02 4.088357E+01 2.185341E-02 1.442037E+03 2 1 5.246168E+05 7.243043E+02 1.152766E+02 2.045867E-02 1.073296E+04 3 3 9.629338E+05 9.812919E+02 1.561774E+02 3.136370E-02 3.020116E+04 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.659868E+05 (CYCLIC FREQUENCY = 4.088357E+01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 0.0 -2.102501E-03 -1.408332E-01 0.0 0.0 0.0 12 G -2.391296E-03 -1.965774E-03 -1.258141E-01 0.0 0.0 0.0 13 G -7.596468E-03 -8.153818E-04 0.0 0.0 0.0 0.0 14 G -1.194885E-02 8.515053E-04 2.503304E-01 0.0 0.0 0.0 15 G -1.424611E-02 2.998794E-03 6.005448E-01 0.0 0.0 0.0 16 G -1.369162E-02 4.350444E-03 1.000000E+00 0.0 0.0 0.0 31 G 0.0 -2.220163E-03 -1.101347E-01 0.0 0.0 0.0 32 G -5.061556E-03 -2.097469E-03 -9.745585E-02 0.0 0.0 0.0 33 G -1.534791E-02 2.707672E-04 0.0 0.0 0.0 0.0 34 G -2.223564E-02 3.904124E-03 2.104799E-01 0.0 0.0 0.0 35 G -2.286175E-02 7.140608E-03 5.037311E-01 0.0 0.0 0.0 36 G -1.273908E-02 5.103707E-03 8.540251E-01 0.0 0.0 0.0 51 G 0.0 -9.409914E-04 -9.024654E-02 0.0 0.0 0.0 52 G -5.036097E-03 -1.048943E-03 -7.984749E-02 0.0 0.0 0.0 53 G -1.468509E-02 7.892086E-04 0.0 0.0 0.0 0.0 54 G -1.757589E-02 4.436963E-03 1.620476E-01 0.0 0.0 0.0 55 G -1.030689E-02 4.394457E-03 3.907420E-01 0.0 0.0 0.0 71 G 0.0 3.687038E-04 -7.949317E-02 0.0 0.0 0.0 72 G -3.700143E-03 8.329997E-05 -7.034694E-02 0.0 0.0 0.0 73 G -9.482673E-03 5.914459E-04 0.0 0.0 0.0 0.0 74 G -5.128387E-03 1.615846E-03 1.115038E-01 0.0 0.0 0.0 91 G 0.0 9.675905E-04 -8.381639E-02 0.0 0.0 0.0 92 G -1.866659E-03 6.255514E-04 -7.217357E-02 0.0 0.0 0.0 93 G -3.252463E-03 -7.931682E-05 0.0 0.0 0.0 0.0 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.524617E+06 (CYCLIC FREQUENCY = 1.152766E+02 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 0.0 5.135032E-04 1.775022E-01 0.0 0.0 0.0 12 G 5.300051E-03 5.394280E-04 1.407922E-01 0.0 0.0 0.0 13 G 2.743664E-03 1.730578E-03 0.0 0.0 0.0 0.0 14 G -8.843979E-03 9.706732E-03 1.210502E-01 0.0 0.0 0.0 15 G -1.567200E-02 2.240467E-02 4.847727E-01 0.0 0.0 0.0 16 G -1.733692E-02 3.282485E-02 1.000000E+00 0.0 0.0 0.0 31 G 0.0 -9.528617E-04 1.731893E-01 0.0 0.0 0.0 32 G 7.738560E-03 -1.334401E-03 1.511087E-01 0.0 0.0 0.0 33 G 1.368382E-02 3.163889E-03 0.0 0.0 0.0 0.0 34 G 5.799965E-03 2.134482E-02 -1.235244E-01 0.0 0.0 0.0 35 G -4.136511E-03 4.007968E-02 -1.322538E-01 0.0 0.0 0.0 36 G -7.136258E-03 3.229832E-02 -1.697965E-02 0.0 0.0 0.0 51 G 0.0 -4.456343E-03 2.257486E-01 0.0 0.0 0.0 52 G 1.187293E-02 -5.139865E-03 1.978265E-01 0.0 0.0 0.0 53 G 2.947840E-02 2.225914E-03 0.0 0.0 0.0 0.0 54 G 2.654484E-02 1.442862E-02 -3.228396E-01 0.0 0.0 0.0 55 G 1.001259E-02 1.444399E-02 -6.529267E-01 0.0 0.0 0.0 71 G 0.0 -7.258318E-03 3.142112E-01 0.0 0.0 0.0 72 G 1.397501E-02 -8.177269E-03 2.736481E-01 0.0 0.0 0.0 73 G 3.451110E-02 -2.128457E-04 0.0 0.0 0.0 0.0 74 G 1.707928E-02 -2.212319E-04 -4.327481E-01 0.0 0.0 0.0 91 G 0.0 -3.969726E-03 4.568899E-01 0.0 0.0 0.0 92 G 9.954733E-03 -5.902444E-03 3.848879E-01 0.0 0.0 0.0 93 G 1.719337E-02 -2.001126E-03 0.0 0.0 0.0 0.0 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.962934E+06 (CYCLIC FREQUENCY = 1.561774E+02 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 0.0 4.230277E-03 8.864104E-01 0.0 0.0 0.0 12 G 1.874231E-02 1.274455E-02 7.318700E-01 0.0 0.0 0.0 13 G 3.438004E-02 -1.719446E-03 0.0 0.0 0.0 0.0 14 G 1.744488E-02 -2.217432E-02 -7.747614E-01 0.0 0.0 0.0 15 G -2.376622E-02 -3.245778E-02 -7.396168E-01 0.0 0.0 0.0 16 G -4.529009E-02 -3.030945E-02 2.982874E-01 0.0 0.0 0.0 31 G 0.0 1.767313E-02 4.730325E-01 0.0 0.0 0.0 32 G 2.045985E-02 2.163626E-02 4.047261E-01 0.0 0.0 0.0 33 G 3.405364E-02 -1.090729E-03 0.0 0.0 0.0 0.0 34 G 1.433066E-03 -3.091902E-02 -2.791575E-01 0.0 0.0 0.0 35 G -4.594094E-02 -3.689597E-02 -4.486558E-03 0.0 0.0 0.0 36 G -4.262252E-02 -1.604853E-02 1.000000E+00 0.0 0.0 0.0 51 G 0.0 1.169175E-02 2.424197E-01 0.0 0.0 0.0 52 G 1.207576E-02 1.322448E-02 2.099087E-01 0.0 0.0 0.0 53 G 1.533351E-02 4.943172E-04 0.0 0.0 0.0 0.0 54 G -1.164069E-02 -9.654127E-03 -2.134284E-02 0.0 0.0 0.0 55 G -2.065700E-02 -2.147393E-03 3.248957E-01 0.0 0.0 0.0 71 G 0.0 3.817290E-03 1.527063E-01 0.0 0.0 0.0 72 G 6.755241E-03 3.828000E-03 1.303989E-01 0.0 0.0 0.0 73 G 7.822580E-03 8.298224E-04 0.0 0.0 0.0 0.0 74 G -1.787258E-03 3.708752E-03 -8.180061E-03 0.0 0.0 0.0 91 G 0.0 5.525672E-04 1.483464E-01 0.0 0.0 0.0 92 G 3.388773E-03 -2.154848E-04 1.209423E-01 0.0 0.0 0.0 93 G 5.763541E-03 -7.280858E-05 0.0 0.0 0.0 0.0 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.659868E+05 (CYCLIC FREQUENCY = 4.088357E+01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.226779E+02 0.0 0.0 0.0 0.0 0.0 2 G -1.245821E+03 7.169926E+01 0.0 0.0 0.0 0.0 3 G -3.442487E+03 1.069875E+03 0.0 0.0 0.0 0.0 4 G -5.678205E+03 8.747791E+02 0.0 0.0 0.0 0.0 5 G -5.338819E+03 9.893872E+02 0.0 0.0 0.0 0.0 6 G -1.979959E+03 1.363152E+03 0.0 0.0 0.0 0.0 11 G 3.832440E+03 0.0 0.0 0.0 0.0 0.0 13 G 0.0 0.0 1.391729E+02 0.0 0.0 0.0 21 G -4.202863E+01 0.0 0.0 0.0 0.0 0.0 22 G 9.575667E+02 -8.898979E+02 0.0 0.0 0.0 0.0 23 G -2.762499E+03 -2.650490E+02 0.0 0.0 0.0 0.0 24 G -7.319156E+03 1.424894E+03 0.0 0.0 0.0 0.0 25 G -6.247734E+03 2.911707E+03 0.0 0.0 0.0 0.0 26 G -3.918552E+03 2.591031E+03 0.0 0.0 0.0 0.0 31 G 1.840811E+04 0.0 0.0 0.0 0.0 0.0 33 G 0.0 0.0 -1.616239E+03 0.0 0.0 0.0 41 G 1.787101E+00 0.0 0.0 0.0 0.0 0.0 42 G 4.604269E+02 -2.403617E+03 0.0 0.0 0.0 0.0 43 G -2.049379E+03 -3.073031E+03 0.0 0.0 0.0 0.0 44 G -5.282084E+03 1.613391E+03 0.0 0.0 0.0 0.0 45 G -4.465621E+03 3.613876E+03 0.0 0.0 0.0 0.0 51 G 1.849612E+04 0.0 0.0 0.0 0.0 0.0 53 G 0.0 0.0 -1.267135E+03 0.0 0.0 0.0 61 G 3.492579E+00 0.0 0.0 0.0 0.0 0.0 62 G -1.419333E+03 -2.326725E+03 0.0 0.0 0.0 0.0 63 G -3.573949E+03 -2.745584E+03 0.0 0.0 0.0 0.0 64 G -3.756752E+02 -7.121715E+02 0.0 0.0 0.0 0.0 71 G 1.358011E+04 0.0 0.0 0.0 0.0 0.0 73 G 0.0 0.0 -1.307832E+02 0.0 0.0 0.0 81 G -7.302640E+01 0.0 0.0 0.0 0.0 0.0 82 G -2.800857E+03 -8.847056E+02 0.0 0.0 0.0 0.0 83 G -4.887055E+02 -3.246603E+03 0.0 0.0 0.0 0.0 91 G 3.054272E+03 0.0 0.0 0.0 0.0 0.0 93 G 0.0 0.0 7.292501E+02 0.0 0.0 0.0 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.524617E+06 (CYCLIC FREQUENCY = 1.152766E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.230149E+03 0.0 0.0 0.0 0.0 0.0 2 G 1.317975E+04 -1.318126E+03 0.0 0.0 0.0 0.0 3 G -7.862584E+02 -9.629183E+03 0.0 0.0 0.0 0.0 4 G -2.594549E+04 1.338670E+03 0.0 0.0 0.0 0.0 5 G -2.766231E+04 1.180454E+04 0.0 0.0 0.0 0.0 6 G -1.445267E+04 1.259536E+04 0.0 0.0 0.0 0.0 11 G -1.010390E+04 0.0 0.0 0.0 0.0 0.0 13 G 0.0 0.0 -3.875960E+03 0.0 0.0 0.0 21 G 8.206677E+02 0.0 0.0 0.0 0.0 0.0 22 G 1.342847E+04 -6.231700E+03 0.0 0.0 0.0 0.0 23 G 1.859672E+04 -1.641458E+04 0.0 0.0 0.0 0.0 24 G 5.537286E+03 1.341493E+03 0.0 0.0 0.0 0.0 25 G -2.522250E+03 1.713888E+04 0.0 0.0 0.0 0.0 26 G -5.999164E+03 1.652391E+04 0.0 0.0 0.0 0.0 31 G -2.903429E+04 0.0 0.0 0.0 0.0 0.0 33 G 0.0 0.0 -1.994138E+03 0.0 0.0 0.0 41 G 9.514814E+02 0.0 0.0 0.0 0.0 0.0 42 G 8.500039E+03 -9.344780E+03 0.0 0.0 0.0 0.0 43 G 2.349283E+04 -9.327455E+03 0.0 0.0 0.0 0.0 44 G 2.803610E+04 5.882050E+01 0.0 0.0 0.0 0.0 45 G 1.885751E+04 -1.431345E+03 0.0 0.0 0.0 0.0 51 G -4.405143E+04 0.0 0.0 0.0 0.0 0.0 53 G 0.0 0.0 3.162395E+03 0.0 0.0 0.0 61 G 1.674261E+03 0.0 0.0 0.0 0.0 0.0 62 G 1.108394E+04 -7.809224E+03 0.0 0.0 0.0 0.0 63 G 2.790877E+04 1.810207E+03 0.0 0.0 0.0 0.0 64 G 2.539211E+04 -6.837024E+03 0.0 0.0 0.0 0.0 71 G -5.224181E+04 0.0 0.0 0.0 0.0 0.0 73 G 0.0 0.0 2.806153E+03 0.0 0.0 0.0 81 G 3.165337E+03 0.0 0.0 0.0 0.0 0.0 82 G 1.822802E+04 -3.378017E+03 0.0 0.0 0.0 0.0 83 G 1.126146E+04 8.153483E+03 0.0 0.0 0.0 0.0 91 G -1.981611E+04 0.0 0.0 0.0 0.0 0.0 93 G 0.0 0.0 -2.816608E+03 0.0 0.0 0.0 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.962934E+06 (CYCLIC FREQUENCY = 1.561774E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.127444E+04 0.0 0.0 0.0 0.0 0.0 2 G 3.480071E+04 2.376217E+04 0.0 0.0 0.0 0.0 3 G 6.074683E+04 5.522473E+03 0.0 0.0 0.0 0.0 4 G 5.023332E+04 -2.393760E+04 0.0 0.0 0.0 0.0 5 G -6.022742E+03 -2.716459E+04 0.0 0.0 0.0 0.0 6 G -1.903550E+04 -2.739457E+03 0.0 0.0 0.0 0.0 11 G -4.312229E+04 0.0 0.0 0.0 0.0 0.0 13 G 0.0 0.0 1.956349E+03 0.0 0.0 0.0 21 G 4.953240E+03 0.0 0.0 0.0 0.0 0.0 22 G 4.269081E+04 3.433327E+04 0.0 0.0 0.0 0.0 23 G 6.380711E+04 6.264981E+03 0.0 0.0 0.0 0.0 24 G 2.669428E+04 -3.282667E+04 0.0 0.0 0.0 0.0 25 G -4.329118E+04 -1.882091E+04 0.0 0.0 0.0 0.0 26 G -5.220994E+04 5.554561E+03 0.0 0.0 0.0 0.0 31 G -7.632305E+04 0.0 0.0 0.0 0.0 0.0 33 G 0.0 0.0 -4.020193E+03 0.0 0.0 0.0 41 G 2.122581E+03 0.0 0.0 0.0 0.0 0.0 42 G 2.915416E+04 1.132262E+04 0.0 0.0 0.0 0.0 43 G 2.811809E+04 -9.191597E+02 0.0 0.0 0.0 0.0 44 G -2.486472E+04 2.681631E+02 0.0 0.0 0.0 0.0 45 G -3.882204E+04 2.121448E+04 0.0 0.0 0.0 0.0 51 G -4.249709E+04 0.0 0.0 0.0 0.0 0.0 53 G 0.0 0.0 -8.297095E+03 0.0 0.0 0.0 61 G 1.566975E+03 0.0 0.0 0.0 0.0 0.0 62 G 1.785759E+04 -3.716972E+03 0.0 0.0 0.0 0.0 63 G 6.598427E+03 -3.146053E+03 0.0 0.0 0.0 0.0 64 G -1.348407E+04 1.294912E+04 0.0 0.0 0.0 0.0 71 G -2.407795E+04 0.0 0.0 0.0 0.0 0.0 73 G 0.0 0.0 -5.316716E+03 0.0 0.0 0.0 81 G 1.887778E+03 0.0 0.0 0.0 0.0 0.0 82 G 4.498903E+03 -4.468495E+03 0.0 0.0 0.0 0.0 83 G 3.396028E+03 -2.269288E+03 0.0 0.0 0.0 0.0 91 G -6.976487E+03 0.0 0.0 0.0 0.0 0.0 93 G 0.0 0.0 1.642125E+02 0.0 0.0 0.0 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.659868E+05 (CYCLIC FREQUENCY = 4.088357E+01 HZ) S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -3.977438E+03 -3.398516E+02 1.170234E+02 88.1593 -3.360907E+02 -3.981199E+03 1.822554E+03 2 -4.199314E+03 -5.717245E+02 6.481465E+02 80.1680 -4.593975E+02 -4.311641E+03 1.926122E+03 3 -3.792539E+03 -5.812240E+02 1.283414E+03 70.6822 -1.313313E+02 -4.242432E+03 2.055550E+03 4 -2.439840E+03 -2.183794E+02 1.468806E+03 63.5485 5.123882E+02 -3.170607E+03 1.841498E+03 5 -1.036489E+03 1.232119E+02 9.193086E+02 61.1208 6.302629E+02 -1.543540E+03 1.086902E+03 6 -5.506396E+03 -8.520551E+02 9.778656E+01 88.7969 -8.500017E+02 -5.508449E+03 2.329224E+03 7 -5.531383E+03 -1.160639E+03 8.439049E+02 79.4427 -1.003357E+03 -5.688665E+03 2.342654E+03 8 -4.823830E+03 -1.173664E+03 1.734986E+03 68.2249 -4.805920E+02 -5.516901E+03 2.518155E+03 9 -2.938745E+03 -4.814429E+02 1.742266E+03 62.5958 4.218245E+02 -3.842012E+03 2.131918E+03 11 -4.817619E+03 -9.159136E+02 -2.325232E+01 -89.6586 -9.157749E+02 -4.817757E+03 1.950991E+03 12 -4.345221E+03 -1.110081E+03 5.879604E+02 80.0123 -1.006538E+03 -4.448764E+03 1.721113E+03 13 -3.021002E+03 -1.039591E+03 1.507886E+03 61.6528 -2.260747E+02 -3.834519E+03 1.804222E+03 15 -3.052054E+03 -5.243907E+02 -1.912650E+02 -85.6972 -5.100001E+02 -3.066445E+03 1.278222E+03 16 -2.049710E+03 -6.198127E+02 -6.830316E+01 -87.2714 -6.165574E+02 -2.052966E+03 7.182042E+02 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.659868E+05 (CYCLIC FREQUENCY = 4.088357E+01 HZ) S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) ELEMENT MAX AVG SAFETY ELEMENT MAX AVG SAFETY ID. SHEAR SHEAR MARGIN ID. SHEAR SHEAR MARGIN 18 1.752539E+02 1.752539E+02 19 8.022432E+02 8.022432E+02 20 1.656672E+03 1.656672E+03 21 2.399188E+03 2.399188E+03 22 1.414242E+03 1.414242E+03 28 2.552734E+00 -2.552734E+00 29 3.276001E+02 -3.276001E+02 30 2.415204E+03 1.871990E+03 31 4.717166E+03 2.774748E+03 35 1.043223E+02 1.043223E+02 36 1.948449E+03 1.948449E+03 41 1.882533E+03 -1.096376E+03 42 1.142333E+03 9.691221E+02 43 1.487347E+03 1.261822E+03 44 1.772739E+03 1.032432E+03 50 9.736875E+02 -9.736875E+02 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.659868E+05 (CYCLIC FREQUENCY = 4.088357E+01 HZ) S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 10 -1.546113E+03 6.209717E+01 6.187759E+02 71.2105 2.726194E+02 -1.756635E+03 1.014627E+03 14 -2.693025E+03 -9.652346E+02 7.231455E+02 70.0341 -7.025179E+02 -2.955741E+03 1.126612E+03 17 -1.524119E+03 -8.058734E+02 1.160756E+02 81.0441 -7.875803E+02 -1.542412E+03 3.774156E+02 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.524617E+06 (CYCLIC FREQUENCY = 1.152766E+02 HZ) S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 7.196124E+03 1.386822E+03 -5.318035E+02 -5.1876 7.244405E+03 1.338540E+03 2.952933E+03 2 9.834915E+02 3.412834E+02 1.551257E+02 12.8926 1.018999E+03 3.057760E+02 3.566115E+02 3 -5.132907E+03 -1.320997E+03 5.305105E+03 54.8809 2.410140E+03 -8.864043E+03 5.637092E+03 4 -5.242602E+03 -2.470790E+03 8.127304E+03 49.8386 4.387927E+03 -1.210132E+04 8.244622E+03 5 -3.466732E+03 -1.924302E+03 6.889533E+03 48.1936 4.237047E+03 -9.628081E+03 6.932564E+03 6 1.075046E+04 1.841604E+03 4.138260E-01 0.0027 1.075046E+04 1.841604E+03 4.454426E+03 7 6.402419E+03 9.307596E+02 2.480935E+03 21.1014 7.359800E+03 -2.662109E+01 3.693210E+03 8 -4.834688E+02 -2.186623E+03 6.666984E+03 41.3605 5.386104E+03 -8.056196E+03 6.721150E+03 9 -3.917345E+03 -5.139994E+03 8.469404E+03 42.9358 3.962769E+03 -1.302011E+04 8.491438E+03 11 1.398842E+04 1.824956E+03 1.636216E+02 0.7706 1.399062E+04 1.822755E+03 6.083931E+03 12 1.029846E+04 1.272190E+03 3.188810E+03 17.6218 1.131135E+04 2.593057E+02 5.526021E+03 13 3.625574E+03 -1.932961E+03 3.919036E+03 27.3284 5.650801E+03 -3.958188E+03 4.804495E+03 15 1.284811E+04 1.348813E+03 3.777407E+02 1.8794 1.286051E+04 1.336418E+03 5.762044E+03 16 7.407148E+03 6.190771E+02 2.998597E+03 20.7301 8.542026E+03 -5.158008E+02 4.528914E+03 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.524617E+06 (CYCLIC FREQUENCY = 1.152766E+02 HZ) S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) ELEMENT MAX AVG SAFETY ELEMENT MAX AVG SAFETY ID. SHEAR SHEAR MARGIN ID. SHEAR SHEAR MARGIN 18 1.757359E+03 -1.757359E+03 19 8.535428E+03 -8.535428E+03 20 9.097041E+03 9.097041E+03 21 9.435453E+03 9.435453E+03 22 1.032334E+04 1.032334E+04 28 1.359262E+03 -1.359262E+03 29 5.391825E+03 -5.391825E+03 30 1.535421E+04 -1.190083E+04 31 2.056158E+04 -1.209480E+04 35 4.521906E+03 -4.521906E+03 36 1.075905E+04 -1.075905E+04 41 1.694333E+04 9.867693E+03 42 5.806458E+03 4.926030E+03 43 2.175311E+03 1.845471E+03 44 7.658165E+03 -4.460068E+03 50 8.996680E+03 -8.996680E+03 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.524617E+06 (CYCLIC FREQUENCY = 1.152766E+02 HZ) S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 10 -5.603954E+03 -6.005291E+03 4.408981E+03 43.6970 -1.391077E+03 -1.021817E+04 4.413545E+03 14 -1.201363E+03 -5.126070E+03 2.547679E+03 26.1973 5.210352E+01 -6.379537E+03 3.215820E+03 17 4.854914E+03 5.135665E+02 1.708198E+03 19.1004 5.446442E+03 -7.796265E+01 2.762203E+03 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.962934E+06 (CYCLIC FREQUENCY = 1.561774E+02 HZ) S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 2.051402E+04 4.296582E+02 -6.914062E+00 -0.0197 2.051402E+04 4.296562E+02 1.004218E+04 2 7.488552E+03 -3.721436E+02 -1.038089E+04 -34.6313 1.465823E+04 -7.541822E+03 1.110003E+04 3 -1.156874E+04 8.493081E+02 -1.274859E+04 -57.9839 8.820499E+03 -1.953993E+04 1.418022E+04 4 -2.371533E+04 2.248795E+03 -5.427493E+03 -78.6557 3.337683E+03 -2.480422E+04 1.407095E+04 5 -1.425655E+04 4.636469E+03 7.569841E+02 87.7092 4.666750E+03 -1.428683E+04 9.476791E+03 6 1.662955E+04 -9.632109E+02 -1.424790E+02 -0.4640 1.663071E+04 -9.643652E+02 8.797536E+03 7 3.895974E+03 -1.618094E+03 -7.483910E+03 -34.8882 9.114537E+03 -6.836657E+03 7.975597E+03 8 -1.397550E+04 1.746652E+03 -8.022918E+03 -67.2081 5.117839E+03 -1.734669E+04 1.123226E+04 9 -1.884746E+04 6.049264E+03 -1.732016E+03 -86.0395 6.169179E+03 -1.896738E+04 1.256828E+04 11 9.570777E+03 -7.378088E+02 -4.089264E+00 -0.0227 9.570779E+03 -7.378101E+02 5.154294E+03 12 5.956442E+02 -1.762933E+03 -2.174930E+03 -30.7663 1.890429E+03 -3.057718E+03 2.474074E+03 13 -8.988713E+03 6.839883E+02 -4.440273E+02 -87.3772 7.043286E+02 -9.009053E+03 4.856691E+03 15 5.243209E+03 -1.055923E+02 1.082277E+02 1.1587 5.245398E+03 -1.077812E+02 2.676590E+03 16 6.094862E+02 -9.515386E+02 6.787256E+02 20.5049 8.633181E+02 -1.205370E+03 1.034344E+03 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.962934E+06 (CYCLIC FREQUENCY = 1.561774E+02 HZ) S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) ELEMENT MAX AVG SAFETY ELEMENT MAX AVG SAFETY ID. SHEAR SHEAR MARGIN ID. SHEAR SHEAR MARGIN 18 1.610634E+04 -1.610634E+04 19 1.680447E+04 -1.680447E+04 20 2.658611E+04 -2.658611E+04 21 9.294836E+03 -9.294836E+03 22 1.359678E+04 1.359678E+04 28 3.032254E+03 -3.032254E+03 29 1.930827E+04 -1.930827E+04 30 1.046308E+03 -8.109786E+02 31 4.412891E+04 2.595766E+04 35 2.696826E+03 -2.696826E+03 36 1.865087E+03 -1.865087E+03 41 9.717242E+03 -5.659262E+03 42 6.353857E+02 -5.390428E+02 43 1.421937E+03 1.206330E+03 44 2.611896E+03 1.521152E+03 50 1.956742E+03 1.956742E+03 1 DELTA WING RESTART, REAL EIGENVALUE ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C 0 RIGID FORMAT SWITCH FROM 1 TO 3 EIGENVALUE = 0.962934E+06 (CYCLIC FREQUENCY = 1.561774E+02 HZ) S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 10 -1.552890E+04 7.693087E+03 8.305713E+01 89.7951 7.693384E+03 -1.552919E+04 1.161129E+04 14 -1.323576E+04 2.620068E+03 -9.904803E+01 -89.6421 2.620687E+03 -1.323638E+04 7.928534E+03 17 -5.340605E+03 -2.072422E+03 2.744719E+02 85.2326 -2.049531E+03 -5.363496E+03 1.656982E+03 * * * END OF JOB * * * 1 JOB TITLE = DELTA WING RESTART, REAL EIGENVALUE ANALYSIS DATE: 5/17/95 END TIME: 14: 3:19 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d01012a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01012A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 5 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 QDMEM1 AND QDMEM2 ELEMENTS 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 3 LABEL = QDMEM1 AND QDMEM2 ELEMENTS 4 SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93 5 SET 2 = 1 THRU 22,28 THRU 31,35,36,41 THRU 44,50 6 DISPLACEMENTS (SORT2) = 1 7 SPCF (SORT2) = ALL 8 ELSTRESS (SORT2) = 2 9 SPC = 1 10 SUBCASE 1 11 LOAD = 1 12 SUBCASE 2 13 LOAD = 2 14 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 170, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 QDMEM1 AND QDMEM2 ELEMENTS 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CONROD 100 11 12 1 .035 2- CONROD 101 12 13 1 .035 3- CONROD 102 13 14 1 .0344 4- CONROD 103 14 15 1 .0325 5- CONROD 104 15 16 1 .03 6- CONROD 105 31 32 1 .091 7- CONROD 106 32 33 1 .091 8- CONROD 107 33 34 1 .088 9- CONROD 108 34 35 1 .0719 10- CONROD 109 35 36 1 .0453 11- CONROD 110 51 52 1 .11 12- CONROD 111 52 53 1 .11 13- CONROD 112 53 54 1 .094 14- CONROD 113 54 55 1 .0563 15- CONROD 114 71 72 1 .091 16- CONROD 115 72 73 1 .091 17- CONROD 116 73 74 1 .0649 18- CONROD 117 91 92 1 .035 19- CONROD 118 92 93 1 .035 20- CONROD 119 12 32 1 .063 21- CONROD 120 32 52 1 .1002 22- CONROD 121 52 72 1 .1002 23- CONROD 122 72 92 1 .063 24- CONROD 123 13 33 1 .063 25- CONROD 124 33 53 1 .1002 26- CONROD 125 53 73 1 .1002 27- CONROD 126 73 93 1 .063 28- CONROD 127 14 34 1 .0572 29- CONROD 128 36 54 1 .0805 30- CONROD 129 54 74 1 .0572 31- CONROD 130 15 35 1 .0474 32- CONROD 131 35 55 1 .0474 33- CONROD 132 16 36 1 .028 34- CONROD 133 93 74 1 .0344 35- CONROD 134 74 55 1 .0325 36- CONROD 135 55 36 1 .03 37- CQDMEM1 1 1 11 12 32 31 38- CQDMEM1 2 1 12 13 33 32 39- CQDMEM1 3 1 13 14 34 33 40- CQDMEM1 4 1 14 15 35 34 41- CQDMEM1 5 1 15 16 36 35 42- CQDMEM1 6 1 31 32 52 51 43- CQDMEM1 7 1 32 33 53 52 44- CQDMEM2 8 1 33 34 54 53 45- CQDMEM2 9 1 34 35 55 54 46- CQDMEM2 11 1 51 52 72 71 47- CQDMEM2 12 1 52 53 73 72 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A QDMEM1 AND QDMEM2 ELEMENTS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQDMEM2 13 1 53 54 74 73 49- CQDMEM2 15 1 71 72 92 91 50- CQDMEM2 16 1 72 73 93 92 51- CROD 60 5 1 11 61 6 2 12 52- CROD 62 8 3 13 63 8 4 14 53- CROD 64 8 5 15 65 6 6 16 54- CROD 66 6 21 31 67 7 22 32 55- CROD 68 9 23 33 69 9 24 34 56- CROD 70 9 25 35 71 8 26 36 57- CROD 72 6 41 51 73 7 42 52 58- CROD 74 9 43 53 75 9 44 54 59- CROD 76 9 45 55 77 6 61 71 60- CROD 78 7 62 72 79 9 63 73 61- CROD 80 9 64 74 81 5 81 91 62- CROD 82 6 82 92 83 8 83 93 63- CSHEAR 18 2 1 2 12 11 64- CSHEAR 19 2 2 3 13 12 65- CSHEAR 20 2 3 4 14 13 66- CSHEAR 21 2 4 5 15 14 67- CSHEAR 22 2 5 6 16 15 68- CSHEAR 23 2 21 22 32 31 69- CSHEAR 24 2 22 23 33 32 70- CSHEAR 25 2 23 24 34 33 71- CSHEAR 26 2 24 25 35 34 72- CSHEAR 27 2 25 26 36 35 73- CSHEAR 28 2 41 42 52 51 74- CSHEAR 29 2 42 43 53 52 75- CSHEAR 30 2 43 44 54 53 76- CSHEAR 31 2 44 45 55 54 77- CSHEAR 32 2 61 62 72 71 78- CSHEAR 33 2 62 63 73 72 79- CSHEAR 34 2 63 64 74 73 80- CSHEAR 35 2 81 82 92 91 81- CSHEAR 36 2 82 83 93 92 82- CSHEAR 37 2 2 22 32 12 83- CSHEAR 38 2 22 42 52 32 84- CSHEAR 39 2 42 62 72 52 85- CSHEAR 40 2 62 82 92 72 86- CSHEAR 41 2 3 23 33 13 87- CSHEAR 42 2 23 43 53 33 88- CSHEAR 43 2 43 63 73 53 89- CSHEAR 44 2 63 83 93 73 90- CSHEAR 45 2 4 24 34 14 91- CSHEAR 46 2 24 44 54 34 92- CSHEAR 47 2 44 64 74 54 93- CSHEAR 48 2 5 25 35 15 94- CSHEAR 49 2 25 45 55 35 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A QDMEM1 AND QDMEM2 ELEMENTS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CSHEAR 50 2 6 26 36 16 96- CSHEAR 51 2 26 45 55 36 97- CSHEAR 52 2 45 64 74 55 98- CSHEAR 53 2 64 83 93 74 99- CTRMEM 10 3 35 36 55 100- CTRMEM 14 3 54 55 74 101- CTRMEM 17 3 73 74 93 102- FORCE 1 16 0 -1.0 .0 .0 500. 103- FORCE 2 36 -1.0 .0 .0 500. 104- GRDSET 456 105- GRID 1 .0 .0 .0 106- GRID 2 10.0 .0 .0 107- GRID 3 30.0 .0 .0 108- GRID 4 50.0 .0 .0 109- GRID 5 70.0 .0 .0 110- GRID 6 90.0 .0 .0 111- GRID 11 .0 .0 .82 112- GRID 12 10.0 .0 .82 113- GRID 13 30.0 .0 .82 114- GRID 14 50.0 .0 .795 115- GRID 15 70.0 .0 .754 116- GRID 16 90.0 .0 .67 117- GRID 21 .0 20.0 .0 118- GRID 22 10.0 20.0 .0 119- GRID 23 30.0 20.0 .0 120- GRID 24 50.0 20.0 .0 121- GRID 25 70.0 20.0 .0 122- GRID 26 90.0 20.0 .0 123- GRID 31 .0 20.0 2.02 124- GRID 32 10.0 20.0 2.02 125- GRID 33 30.0 20.0 2.02 126- GRID 34 50.0 20.0 1.795 127- GRID 35 70.0 20.0 1.42 128- GRID 36 90.0 20.0 .67 129- GRID 41 .0 40.0 .0 130- GRID 42 10.0 40.0 .0 131- GRID 43 30.0 40.0 .0 132- GRID 44 50.0 40.0 .0 133- GRID 45 70.0 40.0 .0 134- GRID 51 .0 40.0 2.42 135- GRID 52 10.0 40.0 2.42 136- GRID 53 30.0 40.0 2.42 137- GRID 54 50.0 40.0 1.795 138- GRID 55 70.0 40.0 .754 139- GRID 61 .0 60.0 .0 140- GRID 62 10.0 60.0 .0 141- GRID 63 30.0 60.0 .0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A QDMEM1 AND QDMEM2 ELEMENTS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 64 50.0 60.0 .0 143- GRID 71 .0 60.0 2.02 144- GRID 72 10. 60.0 2.02 145- GRID 73 30. 60.0 2.02 146- GRID 74 50. 60.0 .795 147- GRID 81 .0 80.0 .0 148- GRID 82 10. 80.0 .0 149- GRID 83 30. 80.0 .0 150- GRID 91 .0 80.0 .82 151- GRID 92 10. 80.0 .82 152- GRID 93 30. 80.0 .82 153- MAT1 1 10.4 +6 4. +6 154- MAT1 2 1.04 +7 4. +6 .2523 -3 155- PARAM IRES 1 156- PQDMEM1 1 2 .16 .0 157- PQDMEM2 1 2 .16 .0 158- PROD 5 1 2.1 159- PROD 6 1 3.5 160- PROD 7 1 4.91 161- PROD 8 1 4.2 162- PROD 9 1 5.6 163- PSHEAR 2 2 .14 .0 164- PTRMEM 3 2 .16 .0 165- SPC1 1 1 11 31 51 71 91 166- SPC1 1 3 13 33 53 73 93 167- SPC1 1 12 1 2 3 4 5 6 +SPC-A 168- +SPC-A 21 22 23 24 25 26 41 42 +SPC-B 169- +SPC-B 43 44 45 61 62 63 64 81 +SPC-C 170- +SPC-C 82 83 ENDDATA 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 QDMEM1 AND QDMEM2 ELEMENTS 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 19 PROFILE 509 MAX WAVEFRONT 17 AVG WAVEFRONT 10.604 RMS WAVEFRONT 11.331 RMS BANDWIDTH 12.060 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 16 PROFILE 459 MAX WAVEFRONT 15 AVG WAVEFRONT 9.562 RMS WAVEFRONT 10.191 RMS BANDWIDTH 10.707 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 19 16 PROFILE (P) 509 459 MAXIMUM WAVEFRONT (C-MAX) 17 15 AVERAGE WAVEFRONT (C-AVG) 10.604 9.562 RMS WAVEFRONT (C-RMS) 11.331 10.191 RMS BANDWITCH (B-RMS) 12.060 10.707 NUMBER OF GRID POINTS (N) 48 NUMBER OF ELEMENTS (NON-RIGID) 113 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 13 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 201 MATRIX DENSITY, PERCENT 19.531 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 12 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 QDMEM1 AND QDMEM2 ELEMENTS S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 3 3 5 4 7 SEQGP 5 9 6 11 11 2 12 4 SEQGP 13 6 14 8 15 10 16 12 SEQGP 21 27 22 17 23 19 24 21 SEQGP 25 13 26 14 31 15 32 16 SEQGP 33 18 34 20 35 22 36 23 SEQGP 41 37 42 30 43 32 44 26 SEQGP 45 24 51 28 52 29 53 31 SEQGP 54 33 55 25 61 44 62 40 SEQGP 63 36 64 34 71 38 72 39 SEQGP 73 41 74 35 81 48 82 47 SEQGP 83 42 91 45 92 46 93 43 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONROD ELEMENTS (ELEMENT TYPE 10) STARTING WITH ID 100 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM1 ELEMENTS (ELEMENT TYPE 62) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM2 ELEMENTS (ELEMENT TYPE 63) STARTING WITH ID 8 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 60 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION SHEAR ELEMENTS (ELEMENT TYPE 4) STARTING WITH ID 18 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 10 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -1.8001630E-12 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = -8.9284491E-12 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 QDMEM1 AND QDMEM2 ELEMENTS 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1-T3). 1 T3 -6.32099E-11 11 T3 8.20677E-12 2 T3 2.84558E-10 12 T1 -4.29878E-12 12 T2 2.50111E-12 12 T3 -1.42689E-10 3 T3 7.72854E-14 13 T1 -2.27374E-12 13 T2 -9.09495E-13 4 T3 -1.13749E-09 14 T1 -3.63798E-12 14 T2 2.27374E-12 14 T3 -1.48603E-10 5 T3 2.92221E-09 15 T1 -1.90994E-11 15 T2 -1.47793E-12 15 T3 1.40393E-09 6 T3 4.21574E-09 16 T1 -1.03455E-11 16 T3 -5.06884E-09 25 T3 -2.25100E-11 26 T3 -8.12474E-09 31 T2 -2.55795E-13 31 T3 1.84186E-10 32 T1 7.10543E-14 32 T2 -3.15481E-12 32 T3 5.19158E-11 22 T3 -1.28466E-11 33 T1 -3.12639E-12 33 T2 1.16529E-12 23 T3 1.00024E-13 34 T1 1.50635E-11 34 T2 5.45697E-12 34 T3 7.45786E-11 24 T3 -2.11458E-10 35 T1 -1.73941E-11 35 T2 -3.64082E-11 35 T3 3.23977E-10 36 T1 -6.30642E-11 36 T2 -3.21325E-11 36 T3 8.24102E-09 45 T3 -2.92033E-11 55 T1 -9.09495E-13 55 T2 -2.27374E-12 55 T3 -1.80816E-09 44 T3 5.50997E-10 51 T2 3.41061E-13 51 T3 -1.18755E-10 52 T1 2.24532E-12 52 T2 -1.90425E-12 52 T3 -3.23319E-12 42 T3 -2.33058E-12 53 T1 1.96258E-12 53 T2 1.20792E-13 43 T3 -2.20268E-13 54 T1 5.82645E-13 54 T2 -7.20490E-12 54 T3 -8.52794E-10 64 T3 4.85849E-10 74 T1 3.29692E-12 74 T2 -2.92744E-12 74 T3 -3.54165E-10 63 T3 -2.57572E-14 71 T2 -1.70530E-13 71 T3 -5.23457E-11 72 T1 -2.04636E-12 72 T2 -4.54747E-13 72 T3 -6.75300E-11 62 T3 9.94191E-11 73 T1 -3.52429E-12 73 T2 -1.02318E-12 83 T3 -1.42109E-14 93 T1 -1.36424E-12 93 T2 1.13687E-13 91 T2 -5.68434E-14 91 T3 1.16415E-10 92 T1 -4.54747E-13 92 T2 4.54747E-13 92 T3 -1.16160E-10 82 T3 -1.16160E-10 81 T3 -2.32831E-10 0COLUMN 2 ( 11-T2). 1 T3 6.95763E-11 11 T2 -3.41061E-13 11 T3 3.93143E-11 2 T3 -1.11612E-10 12 T1 -2.15339E-12 12 T2 2.85549E-12 12 T3 2.98156E-10 3 T3 1.40797E-13 13 T1 1.13687E-12 13 T2 -2.27374E-13 4 T3 -1.22100E-10 14 T1 -1.36424E-12 14 T2 4.54747E-12 14 T3 5.10880E-11 5 T3 2.44995E-09 15 T1 -2.06910E-11 15 T2 8.35598E-12 15 T3 6.52363E-10 6 T3 -1.83331E-09 16 T1 -1.33014E-11 16 T2 7.27596E-12 16 T3 -1.20508E-11 25 T3 -2.13299E-09 26 T3 3.50440E-09 31 T2 -4.83169E-13 31 T3 2.54632E-11 32 T1 2.97007E-12 32 T2 2.30216E-12 32 T3 9.92166E-11 22 T3 -8.79936E-11 33 T1 -1.53477E-12 33 T2 1.08002E-12 23 T3 1.57631E-13 34 T1 -1.08002E-11 34 T2 7.27596E-12 34 T3 1.27329E-10 24 T3 -4.14389E-10 35 T1 4.54747E-12 35 T2 3.66640E-12 35 T3 2.97279E-09 36 T1 1.81224E-11 36 T2 -3.17986E-11 36 T3 1.64575E-09 45 T3 -6.79321E-10 55 T1 1.68257E-11 55 T2 -5.45697E-12 55 T3 -1.24246E-09 44 T3 -5.43068E-10 51 T2 1.27898E-13 51 T3 3.91642E-12 52 T1 2.00373E-12 52 T2 4.37694E-12 52 T3 -1.85887E-11 42 T3 3.16618E-11 53 T1 -6.54552E-12 53 T2 -5.47118E-13 43 T3 4.44089E-13 54 T1 5.00222E-12 54 T2 2.74269E-12 54 T3 4.77886E-10 64 T3 -1.31154E-10 74 T1 -4.50484E-12 74 T2 2.55795E-12 74 T3 -8.32964E-10 63 T3 -8.61533E-14 41 T3 1.16415E-10 71 T2 -4.54747E-13 71 T3 -6.83897E-11 72 T1 1.30740E-12 72 T2 1.81899E-12 72 T3 2.12026E-11 62 T3 -4.33715E-11 73 T1 7.67386E-12 73 T2 -5.68434E-13 83 T3 -2.84217E-14 93 T1 -1.81899E-12 93 T2 -1.37845E-12 61 T3 1.16415E-10 91 T2 -1.13687E-13 91 T3 1.16415E-10 92 T1 -4.54747E-13 92 T2 -9.09495E-13 92 T3 1.35401E-10 82 T3 -2.13845E-10 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 11 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 6.257729E-04 4.002068E-02 0.0 0.0 0.0 2 G 0.0 5.425497E-04 3.733084E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 12 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 6.614148E-04 6.103728E-04 3.598766E-02 0.0 0.0 0.0 2 G 7.075042E-04 5.407654E-04 3.301679E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 13 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 2.286083E-03 2.316000E-04 0.0 0.0 0.0 0.0 2 G 1.922652E-03 2.518141E-04 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 14 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 4.013456E-03 -3.404346E-04 -8.052365E-02 0.0 0.0 0.0 2 G 3.250005E-03 1.797014E-04 -6.407114E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 15 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 6.604909E-03 -1.864302E-03 -2.203135E-01 0.0 0.0 0.0 2 G 4.753117E-03 -1.348455E-04 -1.684533E-01 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 16 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 6.031278E-03 -3.170522E-03 -4.099651E-01 0.0 0.0 0.0 2 G 4.131411E-03 5.082322E-04 -2.962814E-01 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 31 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 7.059679E-04 3.046147E-02 0.0 0.0 0.0 2 G 0.0 5.826884E-04 2.900738E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 32 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 1.359699E-03 6.494537E-04 2.713288E-02 0.0 0.0 0.0 2 G 1.289995E-03 5.295654E-04 2.586189E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 33 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 4.518996E-03 -1.506429E-04 0.0 0.0 0.0 0.0 2 G 4.216993E-03 -1.004235E-05 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 34 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 7.318559E-03 -1.829483E-03 -6.408095E-02 0.0 0.0 0.0 2 G 6.715946E-03 -7.519245E-04 -5.918684E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 35 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 8.301822E-03 -4.006841E-03 -1.637327E-01 0.0 0.0 0.0 2 G 8.279208E-03 -1.296138E-03 -1.544660E-01 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 36 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 5.033897E-03 -3.913850E-03 -2.962814E-01 0.0 0.0 0.0 2 G 5.919242E-03 -6.417101E-04 -2.976550E-01 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 51 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 3.042138E-04 2.414064E-02 0.0 0.0 0.0 2 G 0.0 2.148185E-04 2.450509E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 52 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 1.357335E-03 3.482526E-04 2.139257E-02 0.0 0.0 0.0 2 G 1.364315E-03 2.441110E-04 2.174565E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 53 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 4.041570E-03 -3.426937E-04 0.0 0.0 0.0 0.0 2 G 4.177101E-03 -2.452348E-04 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 54 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 5.097058E-03 -1.861349E-03 -4.405385E-02 0.0 0.0 0.0 2 G 5.685725E-03 -1.324232E-03 -4.790832E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 55 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 2.805925E-03 -1.836757E-03 -1.071679E-01 0.0 0.0 0.0 2 G 3.546698E-03 -1.710757E-03 -1.240632E-01 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 71 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -6.700351E-05 2.037128E-02 0.0 0.0 0.0 2 G 0.0 -1.310309E-04 2.205973E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 72 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 9.603109E-04 1.428142E-05 1.805558E-02 0.0 0.0 0.0 2 G 1.022864E-03 -6.170840E-05 1.959186E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 73 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 2.456839E-03 -2.578401E-04 0.0 0.0 0.0 0.0 2 G 2.811356E-03 -2.472551E-04 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 74 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 1.126683E-03 -5.069801E-04 -2.588153E-02 0.0 0.0 0.0 2 G 1.332496E-03 -5.904329E-04 -3.141499E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 91 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.540732E-04 2.168750E-02 0.0 0.0 0.0 2 G 0.0 -2.861872E-04 2.443044E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 92 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 5.578290E-04 -2.053996E-04 1.828610E-02 0.0 0.0 0.0 2 G 6.274732E-04 -2.517668E-04 2.060438E-02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 93 D I S P L A C E M E N T V E C T O R SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 7.166527E-04 7.655621E-05 0.0 0.0 0.0 0.0 2 G 8.210363E-04 3.674682E-05 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 1 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 3.574314E-10 0.0 0.0 0.0 0.0 0.0 2 G 3.328751E-10 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 2 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 1.194901E+01 -4.850588E+00 0.0 0.0 0.0 0.0 2 G 2.635284E+02 -1.069769E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 3 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 7.149580E+02 -1.588556E+02 0.0 0.0 0.0 0.0 2 G 2.674528E+02 -4.752302E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 4 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 1.456335E+03 8.762498E+01 0.0 0.0 0.0 0.0 2 G 2.977713E+02 -1.301986E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 5 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 4.162244E+03 -7.188979E+02 0.0 0.0 0.0 0.0 2 G 1.146552E+03 -2.302702E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 6 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 3.408919E+03 -2.224587E+03 0.0 0.0 0.0 0.0 2 G 8.527054E+02 9.419288E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 11 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G -1.500892E+03 0.0 0.0 0.0 0.0 0.0 2 G -1.520571E+03 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 12 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 13 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 3.062576E+01 0.0 0.0 0.0 2 G 0.0 0.0 -1.079851E+02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 14 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 15 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 16 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 21 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G -1.040310E+01 0.0 0.0 0.0 0.0 0.0 2 G -1.336108E+01 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 22 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G -5.609080E+02 3.439765E+02 0.0 0.0 0.0 0.0 2 G -4.047155E+02 6.970292E+01 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 23 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 1.505142E+01 4.625758E+02 0.0 0.0 0.0 0.0 2 G 1.319108E+02 -1.535788E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 24 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 1.259721E+03 2.372083E+02 0.0 0.0 0.0 0.0 2 G 1.082232E+03 -4.971402E+01 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 25 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 2.074747E+03 -1.504029E+03 0.0 0.0 0.0 0.0 2 G 2.606057E+03 -9.971176E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 26 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 1.031446E+03 -1.875451E+03 0.0 0.0 0.0 0.0 2 G 3.552002E+03 -5.629830E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 31 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G -4.408292E+03 0.0 0.0 0.0 0.0 0.0 2 G -4.301350E+03 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 32 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 33 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 4.615814E+02 0.0 0.0 0.0 2 G 0.0 0.0 3.793285E+02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 34 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 35 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 36 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 41 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G -1.583275E+01 0.0 0.0 0.0 0.0 0.0 2 G -1.669304E+01 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 42 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G -2.721242E+02 8.258669E+02 0.0 0.0 0.0 0.0 2 G -3.388028E+02 5.496343E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 43 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G -6.321099E+01 1.377826E+03 0.0 0.0 0.0 0.0 2 G -1.217437E+01 9.418869E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 44 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 5.022900E+02 1.820793E+02 0.0 0.0 0.0 0.0 2 G 1.348876E+03 -3.971450E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 45 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 9.376652E+00 -4.852986E+02 0.0 0.0 0.0 0.0 2 G 2.531648E+03 -2.259555E+03 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 51 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G -4.727695E+03 0.0 0.0 0.0 0.0 0.0 2 G -4.746614E+03 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 52 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 53 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 2.813352E+02 0.0 0.0 0.0 2 G 0.0 0.0 3.662011E+02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 54 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 55 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 61 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G -1.718850E+01 0.0 0.0 0.0 0.0 0.0 2 G -1.794367E+01 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 62 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 3.012740E+02 7.888001E+02 0.0 0.0 0.0 0.0 2 G 1.528159E+02 7.069849E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 63 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 4.365099E+02 1.113170E+03 0.0 0.0 0.0 0.0 2 G 7.225114E+02 1.034363E+03 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 64 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G -2.832064E+02 4.337498E+02 0.0 0.0 0.0 0.0 2 G 1.217794E+02 -4.765714E+01 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 71 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G -3.479487E+03 0.0 0.0 0.0 0.0 0.0 2 G -3.684535E+03 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 72 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 73 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -8.412318E+01 0.0 0.0 0.0 2 G 0.0 0.0 6.301823E+01 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 74 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 81 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 4.092726E-11 0.0 0.0 0.0 0.0 0.0 2 G 4.456524E-11 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 82 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 7.679949E+02 3.117603E+02 0.0 0.0 0.0 0.0 2 G 8.228552E+02 3.340304E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 83 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 3.174382E+02 8.073326E+02 0.0 0.0 0.0 0.0 2 G 4.050871E+02 8.318954E+02 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 91 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G -1.131014E+03 0.0 0.0 0.0 0.0 0.0 2 G -1.249025E+03 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 92 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 POINT-ID = 93 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T SUBCASE TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -1.894191E+02 0.0 0.0 0.0 2 G 0.0 0.0 -2.005627E+02 0.0 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 1 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M 1 ) STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.070748E+03 6.589691E+01 -3.283481E+01 -1.8696 1.071820E+03 6.482516E+01 5.034973E+02 2 1.064582E+03 8.627527E+01 -4.217096E+01 -2.4637 1.066397E+03 8.446082E+01 4.909680E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 2 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M 1 ) STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.292163E+03 1.611077E+02 -2.031254E+02 -9.8786 1.327536E+03 1.257348E+02 6.009007E+02 2 1.123485E+03 1.550892E+02 -1.481783E+02 -8.5078 1.145651E+03 1.329232E+02 5.063637E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 3 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M 1 ) STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.437977E+03 1.593162E+02 -4.761431E+02 -18.3385 1.595801E+03 1.491882E+00 7.971547E+02 2 1.224964E+03 1.213464E+02 -1.860472E+02 -9.3160 1.255484E+03 9.082672E+01 5.823287E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 4 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M 1 ) STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.556770E+03 2.266946E+02 -9.422385E+02 -27.3927 2.045027E+03 -2.615624E+02 1.153295E+03 2 1.328874E+03 3.963416E+01 -2.376794E+02 -10.1198 1.371296E+03 -2.787659E+00 6.870419E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 5 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M 1 ) STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 4.630386E+02 -1.218049E+02 -9.425277E+02 -36.3817 1.157465E+03 -8.162312E+02 9.868480E+02 2 6.768657E+02 -2.769043E+02 1.834729E+02 10.5217 7.109421E+02 -3.109807E+02 5.109615E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 6 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M 1 ) STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.471693E+03 1.961198E+02 -2.703279E+01 -1.2135 1.472266E+03 1.955471E+02 6.383594E+02 2 1.446003E+03 2.192060E+02 -2.094963E+01 -0.9780 1.446361E+03 2.188484E+02 6.137562E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 7 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M 1 ) STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.617482E+03 3.272127E+02 -2.940754E+02 -12.2526 1.681346E+03 2.633487E+02 7.089987E+02 2 1.588276E+03 3.197727E+02 -1.946288E+02 -8.5297 1.617466E+03 2.905822E+02 6.634420E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 8 S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.717684E+03 4.829316E+02 -7.399637E+02 -25.0803 2.063999E+03 1.366172E+02 9.636906E+02 2 1.713714E+03 3.187269E+02 -4.198980E+02 -15.5242 1.830353E+03 2.020881E+02 8.141322E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 9 S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.233284E+03 5.160712E+02 -9.865376E+02 -35.0119 1.924370E+03 -1.750153E+02 1.049693E+03 2 1.365046E+03 -6.816229E+01 -5.311884E+02 -18.2740 1.540452E+03 -2.435686E+02 8.920105E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 11 S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.276126E+03 2.365002E+02 5.616386E+00 0.3095 1.276156E+03 2.364699E+02 5.198431E+02 2 1.316148E+03 2.493843E+02 6.485817E+00 0.3483 1.316188E+03 2.493448E+02 5.334214E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 12 S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.178878E+03 3.062640E+02 -2.155427E+02 -13.1451 1.229215E+03 2.559268E+02 4.866440E+02 2 1.291966E+03 3.187786E+02 -1.555027E+02 -8.8613 1.316209E+03 2.945352E+02 5.108370E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 96 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 13 S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 8.638300E+02 4.339889E+02 -5.712037E+02 -34.6904 1.259208E+03 3.861066E+01 6.102988E+02 2 1.023509E+03 3.166426E+02 -5.125945E+02 -27.7069 1.292706E+03 4.744568E+01 6.226299E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 97 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 15 S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 8.248431E+02 1.180347E+02 5.425122E+01 4.3637 8.289830E+02 1.138948E+02 3.575441E+02 2 8.962290E+02 1.268456E+02 5.663470E+01 4.1875 9.003756E+02 1.226990E+02 3.888383E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 98 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 16 S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 4.815739E+02 1.706079E+02 4.758087E+00 0.8764 4.816466E+02 1.705351E+02 1.555558E+02 2 5.691362E+02 1.793398E+02 1.287994E+01 1.8905 5.695614E+02 1.789147E+02 1.953233E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 99 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 18 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 9.765625E-04 -9.765625E-04 2 0.0 0.0 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 100 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 19 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 8.534302E+00 -8.534302E+00 2 1.882340E+02 -1.882340E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 101 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 20 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 5.021479E+02 -5.021479E+02 2 2.802246E+00 -2.802246E+00 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 102 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 21 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 5.380898E+02 -5.380898E+02 2 2.098916E+02 -2.098916E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 103 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 22 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 2.434938E+03 -2.434938E+03 2 6.090742E+02 -6.090742E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 104 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 28 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 2.261768E+01 2.261768E+01 2 2.384766E+01 2.384766E+01 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 105 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 29 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 1.830655E+02 1.830655E+02 2 2.300782E+02 2.300782E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 106 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 30 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 1.859350E+02 -1.441155E+02 2 2.984656E+02 -2.313365E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 107 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 31 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 5.257952E+02 -3.092850E+02 2 1.766674E+03 -1.039199E+03 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 108 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 35 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 0.0 0.0 2 4.882812E-04 -4.882812E-04 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 109 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 36 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 5.485675E+02 -5.485675E+02 2 5.877533E+02 -5.877533E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 110 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 41 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 2.795193E+02 1.627903E+02 2 8.362063E+02 4.870014E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 111 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 42 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 5.317766E+02 -4.511438E+02 2 2.752463E+02 -2.335110E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 112 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 43 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 6.472682E+02 -5.491236E+02 2 5.307532E+02 -4.502756E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 113 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 44 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 6.277762E+02 -3.656130E+02 2 7.286907E+02 -4.243850E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 114 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 50 S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) MAXIMUM AVERAGE SAFETY MAXIMUM AVERAGE SAFETY SUBCASE SHEAR SHEAR MARGIN SUBCASE SHEAR SHEAR MARGIN 1 1.588992E+03 1.588992E+03 2 6.728047E+02 -6.728047E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 115 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 10 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.021298E+03 4.572069E+02 -6.221107E+02 -32.8060 1.422312E+03 5.619202E+01 6.830602E+02 2 1.473103E+03 -2.990100E+02 -9.138440E+01 -2.9442 1.477803E+03 -3.037101E+02 8.907563E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 116 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 14 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 6.434332E+02 4.265853E+02 -3.473189E+02 -36.3315 8.988584E+02 1.711602E+02 3.638491E+02 2 1.025203E+03 2.628444E+02 -3.590580E+02 -21.6441 1.167685E+03 1.203632E+02 5.236607E+02 1 STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 117 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A 0 ELEMENT-ID = 17 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAXIMUM SUBCASE NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 2.026129E+02 2.348782E+02 -8.734007E+01 -50.2326 3.075631E+02 1.299281E+02 8.881751E+01 2 3.023042E+02 2.386986E+02 -9.004135E+01 -35.2733 3.659941E+02 1.750087E+02 9.549274E+01 * * * END OF JOB * * * 1 JOB TITLE = STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION DATE: 5/17/95 END TIME: 14: 4:53 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01013a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01013A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 15 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 3 LABEL = LOAD ON TRAILING EDGE 4 SPC = 1 5 LOAD = 1 6 OUTPUT 7 $ SET 1 HAS GRIDS ON THE UPPER SURFACE * * * * * * * * * * * * * * * 8 $ SET 2 HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE), 9 $ SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP) * * * * * * * * 10 $ 11 SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93 12 SET 2 = 1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50 13 $ 14 DISPLACEMENTS = 1 15 SPCFORCE = ALL 16 GPFORCE = ALL 17 FORCE = ALL 18 ELSTRESS = 2 19 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 169, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CONROD 100 11 12 1 .035 2- CONROD 101 12 13 1 .035 3- CONROD 102 13 14 1 .0344 4- CONROD 103 14 15 1 .0325 5- CONROD 104 15 16 1 .03 6- CONROD 105 31 32 1 .091 7- CONROD 106 32 33 1 .091 8- CONROD 107 33 34 1 .088 9- CONROD 108 34 35 1 .0719 10- CONROD 109 35 36 1 .0453 11- CONROD 110 51 52 1 .11 12- CONROD 111 52 53 1 .11 13- CONROD 112 53 54 1 .094 14- CONROD 113 54 55 1 .0563 15- CONROD 114 71 72 1 .091 16- CONROD 115 72 73 1 .091 17- CONROD 116 73 74 1 .0649 18- CONROD 117 91 92 1 .035 19- CONROD 118 92 93 1 .035 20- CONROD 119 12 32 1 .063 21- CONROD 120 32 52 1 .1002 22- CONROD 121 52 72 1 .1002 23- CONROD 122 72 92 1 .063 24- CONROD 123 13 33 1 .063 25- CONROD 124 33 53 1 .1002 26- CONROD 125 53 73 1 .1002 27- CONROD 126 73 93 1 .063 28- CONROD 127 14 34 1 .0572 29- CONROD 128 34 54 1 .0805 30- CONROD 129 54 74 1 .0572 31- CONROD 130 15 35 1 .0474 32- CONROD 131 35 55 1 .0474 33- CONROD 132 16 36 1 .028 34- CONROD 133 93 74 1 .0344 35- CONROD 134 74 55 1 .0325 36- CONROD 135 55 36 1 .03 37- CQDMEM1 1 1 11 12 32 31 38- CQDMEM1 2 1 12 13 33 32 39- CQDMEM1 3 1 13 14 34 33 40- CQDMEM1 4 1 14 15 35 34 41- CQDMEM1 5 1 15 16 36 35 42- CQDMEM1 6 1 31 32 52 51 43- CQDMEM1 7 1 32 33 53 52 44- CQDMEM1 8 1 33 34 54 53 45- CQDMEM1 9 1 34 35 55 54 46- CQDMEM1 11 1 51 52 72 71 47- CQDMEM1 12 1 52 53 73 72 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A LOAD ON TRAILING EDGE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQDMEM1 13 1 53 54 74 73 49- CQDMEM1 15 1 71 72 92 91 50- CQDMEM1 16 1 72 73 93 92 51- CROD 60 5 1 11 61 6 2 12 52- CROD 62 8 3 13 63 8 4 14 53- CROD 64 8 5 15 65 6 6 16 54- CROD 66 6 21 31 67 7 22 32 55- CROD 68 9 23 33 69 9 24 34 56- CROD 70 9 25 35 71 8 26 36 57- CROD 72 6 41 51 73 7 42 52 58- CROD 74 9 43 53 75 9 44 54 59- CROD 76 9 45 55 77 6 61 71 60- CROD 78 7 62 72 79 9 63 73 61- CROD 80 9 64 74 81 5 81 91 62- CROD 82 6 82 92 83 8 83 93 63- CSHEAR 18 2 1 2 12 11 64- CSHEAR 19 2 2 3 13 12 65- CSHEAR 20 2 3 4 14 13 66- CSHEAR 21 2 4 5 15 14 67- CSHEAR 22 2 5 6 16 15 68- CSHEAR 23 2 21 22 32 31 69- CSHEAR 24 2 22 23 33 32 70- CSHEAR 25 2 23 24 34 33 71- CSHEAR 26 2 24 25 35 34 72- CSHEAR 27 2 25 26 36 35 73- CSHEAR 28 2 41 42 52 51 74- CSHEAR 29 2 42 43 53 52 75- CSHEAR 30 2 43 44 54 53 76- CSHEAR 31 2 44 45 55 54 77- CSHEAR 32 2 61 62 72 71 78- CSHEAR 33 2 62 63 73 72 79- CSHEAR 34 2 63 64 74 73 80- CSHEAR 35 2 81 82 92 91 81- CSHEAR 36 2 82 83 93 92 82- CSHEAR 37 2 2 22 32 12 83- CSHEAR 38 2 22 42 52 32 84- CSHEAR 39 2 42 62 72 52 85- CSHEAR 40 2 62 82 92 72 86- CSHEAR 41 2 3 23 33 13 87- CSHEAR 42 2 23 43 53 33 88- CSHEAR 43 2 43 63 73 53 89- CSHEAR 44 2 63 83 93 73 90- CSHEAR 45 2 4 24 34 14 91- CSHEAR 46 2 24 44 54 34 92- CSHEAR 47 2 44 64 74 54 93- CSHEAR 48 2 5 25 35 15 94- CSHEAR 49 2 25 45 55 35 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A LOAD ON TRAILING EDGE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CSHEAR 50 2 6 26 36 16 96- CSHEAR 51 2 26 45 55 36 97- CSHEAR 52 2 45 64 74 55 98- CSHEAR 53 2 64 83 93 74 99- CTRMEM 10 3 35 36 55 100- CTRMEM 14 3 54 55 74 101- CTRMEM 17 3 73 74 93 102- FORCE 1 16 0 -1. .0 .0 500. 103- FORCE 2 36 -1.0 .0 .0 500.0 104- GRDSET 456 105- GRID 1 .0 .0 .0 106- GRID 2 10. .0 .0 107- GRID 3 30. .0 .0 108- GRID 4 50. .0 .0 109- GRID 5 70. .0 .0 110- GRID 6 90. .0 .0 111- GRID 11 .0 .0 .82 112- GRID 12 10. .0 .82 113- GRID 13 30. .0 .82 114- GRID 14 50. .0 .795 115- GRID 15 70. .0 .754 116- GRID 16 90. .0 .67 117- GRID 21 .0 20. .0 118- GRID 22 10. 20. .0 119- GRID 23 30. 20. .0 120- GRID 24 50. 20. .0 121- GRID 25 70. 20. .0 122- GRID 26 90. 20. .0 123- GRID 31 .0 20. 2.02 124- GRID 32 10. 20. 2.02 125- GRID 33 30. 20. 2.02 126- GRID 34 50. 20. 1.795 127- GRID 35 70. 20. 1.42 128- GRID 36 90. 20. .67 129- GRID 41 .0 40. .0 130- GRID 42 10. 40. .0 131- GRID 43 30. 40. .0 132- GRID 44 50. 40. .0 133- GRID 45 70. 40. .0 134- GRID 51 .0 40. 2.42 135- GRID 52 10. 40. 2.42 136- GRID 53 30. 40. 2.42 137- GRID 54 50. 40. 1.795 138- GRID 55 70. 40. .754 139- GRID 61 .0 60. .0 140- GRID 62 10. 60. .0 141- GRID 63 30. 60. .0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A LOAD ON TRAILING EDGE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 64 50. 60. .0 143- GRID 71 .0 60. 2.02 144- GRID 72 10. 60. 2.02 145- GRID 73 30. 60. 2.02 146- GRID 74 50. 60. .795 147- GRID 81 .0 80. .0 148- GRID 82 10. 80. .0 149- GRID 83 30. 80. .0 150- GRID 91 .0 80. .82 151- GRID 92 10. 80. .82 152- GRID 93 30. 80. .82 153- MAT1 1 10.4 +64. +6 154- MAT1 2 1.04+7 4.+6 .2523-3 155- PARAM IRES 1 156- PQDMEM1 1 2 .16 .0 157- PROD 5 1 2.1 158- PROD 6 1 3.5 159- PROD 7 1 4.91 160- PROD 8 1 4.2 161- PROD 9 1 5.6 162- PSHEAR 2 2 .14 .0 163- PTRMEM 3 2 .16 .0 164- SPC1 1 1 11 31 51 71 91 165- SPC1 1 3 13 33 53 73 93 166- SPC1 1 12 1 2 3 4 5 6 +SPC-A 167- +SPC-A 21 22 23 24 25 26 41 42 +SPC-B 168- +SPC-B 43 44 45 61 62 63 64 81 +SPC-C 169- +SPC-C 82 83 ENDDATA 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 19 PROFILE 509 MAX WAVEFRONT 17 AVG WAVEFRONT 10.604 RMS WAVEFRONT 11.331 RMS BANDWIDTH 12.060 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 15 PROFILE 486 MAX WAVEFRONT 15 AVG WAVEFRONT 10.125 RMS WAVEFRONT 10.743 RMS BANDWIDTH 10.914 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 19 15 PROFILE (P) 509 486 MAXIMUM WAVEFRONT (C-MAX) 17 15 AVERAGE WAVEFRONT (C-AVG) 10.604 10.125 RMS WAVEFRONT (C-RMS) 11.331 10.743 RMS BANDWITCH (B-RMS) 12.060 10.914 NUMBER OF GRID POINTS (N) 48 NUMBER OF ELEMENTS (NON-RIGID) 113 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 13 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 200 MATRIX DENSITY, PERCENT 19.444 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 12 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 4 3 11 4 13 SEQGP 5 7 6 2 11 3 12 5 SEQGP 13 12 14 14 15 10 16 6 SEQGP 21 27 22 18 23 24 24 25 SEQGP 25 15 26 8 31 16 32 17 SEQGP 33 19 34 23 35 20 36 9 SEQGP 41 37 42 30 43 32 44 26 SEQGP 45 21 51 28 52 29 53 31 SEQGP 54 33 55 22 61 44 62 40 SEQGP 63 36 64 34 71 38 72 39 SEQGP 73 41 74 35 81 48 82 47 SEQGP 83 42 91 45 92 46 93 43 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONROD ELEMENTS (ELEMENT TYPE 10) STARTING WITH ID 100 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM1 ELEMENTS (ELEMENT TYPE 62) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 60 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION SHEAR ELEMENTS (ELEMENT TYPE 4) STARTING WITH ID 18 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 10 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -1.2201008E-12 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1-T3). 1 T3 1.26988E-10 6 T3 1.07570E-09 11 T2 4.54747E-13 11 T3 -1.73294E-10 2 T3 4.08932E-10 12 T1 -2.79954E-12 12 T2 -5.68434E-14 12 T3 -6.13196E-10 16 T1 1.68257E-11 16 T2 -1.81899E-12 16 T3 -1.28733E-09 5 T3 -1.76215E-09 26 T3 1.72690E-09 36 T1 2.91038E-11 36 T2 -3.27418E-11 36 T3 -7.63748E-10 15 T1 6.82121E-13 15 T2 -6.82121E-12 15 T3 -2.13163E-11 3 T3 -1.53495E-13 13 T1 1.81899E-12 13 T2 -5.45675E-13 4 T3 3.87843E-10 14 T1 -3.83693E-12 14 T2 2.72848E-12 14 T3 1.02051E-09 25 T3 5.94696E-10 31 T2 1.13687E-13 31 T3 -4.01834E-11 32 T1 -3.97904E-13 32 T2 -1.62004E-12 32 T3 6.18670E-11 22 T3 -4.30305E-11 33 T1 -2.27374E-13 33 T2 -5.54223E-13 35 T1 5.55360E-11 35 T2 -1.55893E-11 35 T3 1.18309E-09 45 T3 2.43006E-12 55 T1 2.72848E-12 55 T2 -3.63798E-12 55 T3 1.34925E-10 34 T1 1.18234E-11 34 T2 7.27596E-12 34 T3 2.14641E-10 23 T3 -1.89709E-13 24 T3 2.04636E-12 44 T3 1.51914E-10 51 T2 -1.13687E-13 51 T3 -4.54263E-11 52 T1 2.70006E-13 52 T2 -1.05160E-12 52 T3 -6.39138E-11 42 T3 8.23093E-11 53 T1 6.89222E-12 53 T2 -1.33582E-12 43 T3 -5.04485E-13 54 T1 -4.66116E-12 54 T2 -3.35376E-12 54 T3 1.14231E-12 64 T3 1.30763E-10 74 T1 -5.65592E-12 74 T2 1.13687E-12 74 T3 -1.87782E-10 63 T3 5.86198E-14 71 T2 2.27374E-13 71 T3 -1.09267E-10 72 T1 -3.41061E-13 72 T2 -9.09495E-13 72 T3 -1.20224E-10 62 T3 1.20281E-10 73 T1 1.64846E-12 73 T2 7.38964E-13 93 T1 2.72848E-12 93 T2 -8.52651E-14 61 T3 1.16415E-10 91 T2 8.52651E-14 91 T3 1.16415E-10 92 T1 -1.36424E-12 92 T2 -9.09495E-13 92 T3 5.91172E-11 82 T3 5.91172E-11 81 T3 -1.16415E-10 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 0 1 F-OF-SPC 3.510650E-10 0.0 0.0 0.0 0.0 0.0 1 60 ROD 0.0 0.0 0.0 0.0 0.0 0.0 1 18 SHEAR -4.319148E-04 0.0 -3.541702E-05 0.0 0.0 0.0 1 *TOTALS* -4.319145E-04 0.0 -3.541702E-05 0.0 0.0 0.0 0 2 F-OF-SPC 1.077696E+01 -4.374804E+00 0.0 0.0 0.0 0.0 2 61 ROD 0.0 0.0 0.0 0.0 0.0 0.0 2 18 SHEAR -4.319148E-04 0.0 3.541702E-05 0.0 0.0 0.0 2 19 SHEAR -1.077684E+01 0.0 -4.418503E-01 0.0 0.0 0.0 2 37 SHEAR 0.0 4.374889E+00 4.418638E-01 0.0 0.0 0.0 2 *TOTALS* -3.128052E-04 8.535385E-05 4.890561E-05 0.0 0.0 0.0 0 3 F-OF-SPC 7.149570E+02 -1.728072E+02 0.0 0.0 0.0 0.0 3 62 ROD 0.0 0.0 1.009577E+01 0.0 0.0 0.0 3 19 SHEAR -1.077684E+01 0.0 4.418503E-01 0.0 0.0 0.0 3 20 SHEAR -7.041804E+02 0.0 -2.799117E+01 0.0 0.0 0.0 3 41 SHEAR 0.0 1.728072E+02 1.745353E+01 0.0 0.0 0.0 3 *TOTALS* -2.441406E-04 0.0 -1.525879E-05 0.0 0.0 0.0 0 4 F-OF-SPC 1.376281E+03 1.184593E+02 0.0 0.0 0.0 0.0 4 63 ROD 0.0 0.0 6.959123E+00 0.0 0.0 0.0 4 20 SHEAR -7.041804E+02 0.0 2.887140E+01 0.0 0.0 0.0 4 21 SHEAR -6.721002E+02 0.0 -2.533818E+01 0.0 0.0 0.0 4 45 SHEAR 0.0 -1.184595E+02 -1.063174E+01 0.0 0.0 0.0 4 *TOTALS* 6.103516E-05 -1.449585E-04 -1.394014E-01 0.0 0.0 0.0 0 5 F-OF-SPC 4.059979E+03 -7.698094E+02 0.0 0.0 0.0 0.0 5 64 ROD 0.0 0.0 3.280311E+01 0.0 0.0 0.0 5 21 SHEAR -6.721002E+02 0.0 2.671599E+01 0.0 0.0 0.0 5 22 SHEAR -3.387877E+03 0.0 -1.134939E+02 0.0 0.0 0.0 5 48 SHEAR 0.0 7.698089E+02 5.465643E+01 0.0 0.0 0.0 5 *TOTALS* 1.220703E-03 -4.882812E-04 6.816330E-01 0.0 0.0 0.0 0 6 F-OF-SPC 3.387878E+03 -2.247713E+03 0.0 0.0 0.0 0.0 6 65 ROD 0.0 0.0 -2.040080E+02 0.0 0.0 0.0 6 22 SHEAR -3.387877E+03 0.0 1.277230E+02 0.0 0.0 0.0 6 50 SHEAR 0.0 2.247713E+03 7.529840E+01 0.0 0.0 0.0 6 *TOTALS* 7.324219E-04 7.324219E-04 -9.866257E-01 0.0 0.0 0.0 0 11 F-OF-SPC -1.468865E+03 0.0 0.0 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 11 100 CONROD 2.354155E+01 0.0 0.0 0.0 0.0 0.0 11 1 QDMEM1 1.445323E+03 -5.236564E-05 -3.141939E-06 0.0 0.0 0.0 11 60 ROD 0.0 0.0 0.0 0.0 0.0 0.0 11 18 SHEAR 4.319148E-04 0.0 -3.541702E-05 0.0 0.0 0.0 11 *TOTALS* 3.098445E-04 -5.236564E-05 -3.855895E-05 0.0 0.0 0.0 0 12 100 CONROD -2.354155E+01 0.0 0.0 0.0 0.0 0.0 12 101 CONROD 2.897316E+01 0.0 0.0 0.0 0.0 0.0 12 119 CONROD 0.0 -1.578761E+01 -9.472566E-01 0.0 0.0 0.0 12 1 QDMEM1 -1.496114E+03 1.014889E+02 6.089337E+00 0.0 0.0 0.0 12 2 QDMEM1 1.479906E+03 -8.132647E+01 -4.879588E+00 0.0 0.0 0.0 12 61 ROD 0.0 0.0 0.0 0.0 0.0 0.0 12 18 SHEAR 4.319148E-04 0.0 3.541702E-05 0.0 0.0 0.0 12 19 SHEAR 1.077684E+01 0.0 -4.418503E-01 0.0 0.0 0.0 12 37 SHEAR 0.0 -4.374889E+00 1.793705E-01 0.0 0.0 0.0 12 *TOTALS* 2.918243E-04 -2.670288E-05 4.772842E-05 0.0 0.0 0.0 0 13 F-OF-SPC 0.0 0.0 2.781781E+01 0.0 0.0 0.0 13 101 CONROD -2.897316E+01 0.0 0.0 0.0 0.0 0.0 13 102 CONROD 3.106359E+01 0.0 -3.882945E-02 0.0 0.0 0.0 13 123 CONROD 0.0 -1.180692E+01 -7.084155E-01 0.0 0.0 0.0 13 2 QDMEM1 -2.115748E+03 5.915482E+02 3.549289E+01 0.0 0.0 0.0 13 3 QDMEM1 1.398701E+03 -4.069341E+02 -3.112325E+01 0.0 0.0 0.0 13 62 ROD 0.0 0.0 -1.009577E+01 0.0 0.0 0.0 13 19 SHEAR 1.077684E+01 0.0 4.418503E-01 0.0 0.0 0.0 13 20 SHEAR 7.041804E+02 0.0 -2.887140E+01 0.0 0.0 0.0 13 41 SHEAR 0.0 -1.728072E+02 7.085096E+00 0.0 0.0 0.0 13 *TOTALS* 3.051758E-04 -6.103516E-05 -2.288818E-05 0.0 0.0 0.0 0 14 102 CONROD -3.106359E+01 0.0 3.882945E-02 0.0 0.0 0.0 14 103 CONROD 4.850130E+01 0.0 -9.942769E-02 0.0 0.0 0.0 14 127 CONROD 0.0 -1.999500E+01 -9.997502E-01 0.0 0.0 0.0 14 3 QDMEM1 -2.852916E+03 9.766633E+02 7.154720E+01 0.0 0.0 0.0 14 4 QDMEM1 1.459198E+03 -1.075128E+03 -5.995472E+01 0.0 0.0 0.0 14 63 ROD 0.0 0.0 -6.959123E+00 0.0 0.0 0.0 14 20 SHEAR 7.041804E+02 0.0 2.799117E+01 0.0 0.0 0.0 14 21 SHEAR 6.721002E+02 0.0 -2.671599E+01 0.0 0.0 0.0 14 45 SHEAR 0.0 1.184595E+02 -4.708765E+00 0.0 0.0 0.0 14 *TOTALS* 6.103516E-05 1.296997E-04 1.394277E-01 0.0 0.0 0.0 0 15 103 CONROD -4.850130E+01 0.0 9.942769E-02 0.0 0.0 0.0 15 104 CONROD 2.939013E+00 0.0 -1.234385E-02 0.0 0.0 0.0 15 130 CONROD 0.0 -4.312009E+00 -1.435899E-01 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 15 4 QDMEM1 -4.399813E+03 2.197173E+03 1.372703E+02 0.0 0.0 0.0 15 5 QDMEM1 3.853964E+02 -1.423052E+03 -3.172932E+01 0.0 0.0 0.0 15 64 ROD 0.0 0.0 -3.280311E+01 0.0 0.0 0.0 15 21 SHEAR 6.721002E+02 0.0 2.533818E+01 0.0 0.0 0.0 15 22 SHEAR 3.387877E+03 0.0 -1.277230E+02 0.0 0.0 0.0 15 48 SHEAR 0.0 -7.698089E+02 2.902180E+01 0.0 0.0 0.0 15 *TOTALS* -1.708984E-03 6.103516E-05 -6.816635E-01 0.0 0.0 0.0 0 16 APP-LOAD 0.0 0.0 -5.000000E+02 0.0 0.0 0.0 16 104 CONROD -2.939013E+00 0.0 1.234385E-02 0.0 0.0 0.0 16 132 CONROD 0.0 -1.042573E+01 0.0 0.0 0.0 0.0 16 5 QDMEM1 -3.384939E+03 2.258139E+03 1.081740E+02 0.0 0.0 0.0 16 65 ROD 0.0 0.0 2.040080E+02 0.0 0.0 0.0 16 22 SHEAR 3.387877E+03 0.0 1.134939E+02 0.0 0.0 0.0 16 50 SHEAR 0.0 -2.247713E+03 7.529840E+01 0.0 0.0 0.0 16 *TOTALS* -9.765625E-04 -4.882812E-04 9.866180E-01 0.0 0.0 0.0 0 21 F-OF-SPC -1.005764E+01 0.0 0.0 0.0 0.0 0.0 21 66 ROD 0.0 0.0 -2.047434E+00 0.0 0.0 0.0 21 23 SHEAR 1.005741E+01 0.0 2.031597E+00 0.0 0.0 0.0 21 *TOTALS* -2.288818E-04 0.0 -1.583767E-02 0.0 0.0 0.0 0 22 F-OF-SPC -5.475169E+02 3.362216E+02 0.0 0.0 0.0 0.0 22 67 ROD 0.0 0.0 -1.087691E+01 0.0 0.0 0.0 22 23 SHEAR 1.005741E+01 0.0 -2.031597E+00 0.0 0.0 0.0 22 24 SHEAR 5.374593E+02 0.0 5.428339E+01 0.0 0.0 0.0 22 37 SHEAR 0.0 4.374889E+00 -1.793705E-01 0.0 0.0 0.0 22 38 SHEAR 0.0 -3.405963E+02 -4.121215E+01 0.0 0.0 0.0 22 *TOTALS* -1.831055E-04 2.441406E-04 -1.664352E-02 0.0 0.0 0.0 0 23 F-OF-SPC -4.884057E+01 4.285421E+02 0.0 0.0 0.0 0.0 23 68 ROD 0.0 0.0 1.779853E+02 0.0 0.0 0.0 23 24 SHEAR 5.374593E+02 0.0 -5.428339E+01 0.0 0.0 0.0 23 25 SHEAR -4.886187E+02 0.0 -4.385353E+01 0.0 0.0 0.0 23 41 SHEAR 0.0 1.728072E+02 -7.085096E+00 0.0 0.0 0.0 23 42 SHEAR 0.0 -6.013494E+02 -7.276327E+01 0.0 0.0 0.0 23 *TOTALS* 0.0 0.0 -7.629395E-06 0.0 0.0 0.0 0 24 F-OF-SPC 1.108339E+03 1.962545E+02 0.0 0.0 0.0 0.0 24 69 ROD 0.0 0.0 -3.142609E+00 0.0 0.0 0.0 24 25 SHEAR -4.886187E+02 0.0 4.935049E+01 0.0 0.0 0.0 24 26 SHEAR -6.197228E+02 0.0 -4.400032E+01 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 24 45 SHEAR 0.0 -1.184595E+02 4.708765E+00 0.0 0.0 0.0 24 46 SHEAR 0.0 -7.779566E+01 -6.982161E+00 0.0 0.0 0.0 24 *TOTALS* -2.075195E-03 -5.950928E-04 -6.583500E-02 0.0 0.0 0.0 0 25 F-OF-SPC 2.122156E+03 -1.559540E+03 0.0 0.0 0.0 0.0 25 70 ROD 0.0 0.0 -6.111575E+00 0.0 0.0 0.0 25 26 SHEAR -6.197228E+02 0.0 5.562013E+01 0.0 0.0 0.0 25 27 SHEAR -1.502435E+03 0.0 -5.033158E+01 0.0 0.0 0.0 25 48 SHEAR 0.0 7.698089E+02 -2.902180E+01 0.0 0.0 0.0 25 49 SHEAR 0.0 7.897321E+02 2.977290E+01 0.0 0.0 0.0 25 *TOTALS* -1.586914E-03 9.155273E-04 -7.192802E-02 0.0 0.0 0.0 0 26 F-OF-SPC 1.006035E+03 -1.751312E+03 0.0 0.0 0.0 0.0 26 71 ROD 0.0 0.0 -1.165760E+01 0.0 0.0 0.0 26 27 SHEAR -1.502435E+03 0.0 1.066729E+02 0.0 0.0 0.0 26 50 SHEAR 0.0 2.247713E+03 -7.529840E+01 0.0 0.0 0.0 26 51 SHEAR 4.964017E+02 -4.964017E+02 -1.871435E+01 0.0 0.0 0.0 26 *TOTALS* 1.312256E-03 -2.136230E-04 1.002550E+00 0.0 0.0 0.0 0 31 F-OF-SPC -4.308599E+03 0.0 0.0 0.0 0.0 0.0 31 105 CONROD 1.260784E+02 0.0 0.0 0.0 0.0 0.0 31 1 QDMEM1 1.914660E+03 -1.015822E+02 -6.094933E+00 0.0 0.0 0.0 31 6 QDMEM1 2.277918E+03 1.015821E+02 2.031643E+00 0.0 0.0 0.0 31 66 ROD 0.0 0.0 2.047434E+00 0.0 0.0 0.0 31 23 SHEAR -1.005741E+01 0.0 2.031597E+00 0.0 0.0 0.0 31 *TOTALS* 6.961823E-04 -8.392334E-05 1.574087E-02 0.0 0.0 0.0 0 32 105 CONROD -1.260784E+02 0.0 0.0 0.0 0.0 0.0 32 106 CONROD 1.459535E+02 0.0 0.0 0.0 0.0 0.0 32 119 CONROD 0.0 1.578761E+01 9.472566E-01 0.0 0.0 0.0 32 120 CONROD 0.0 -2.082605E+01 -4.165210E-01 0.0 0.0 0.0 32 1 QDMEM1 -1.863869E+03 9.331572E-02 5.598944E-03 0.0 0.0 0.0 32 2 QDMEM1 2.571412E+03 -5.545164E+02 -3.327098E+01 0.0 0.0 0.0 32 6 QDMEM1 -2.321133E+03 2.056316E+02 4.112633E+00 0.0 0.0 0.0 32 7 QDMEM1 2.141231E+03 1.760845E+01 3.521691E-01 0.0 0.0 0.0 32 67 ROD 0.0 0.0 1.087691E+01 0.0 0.0 0.0 32 23 SHEAR -1.005741E+01 0.0 -2.031597E+00 0.0 0.0 0.0 32 24 SHEAR -5.374593E+02 0.0 5.428339E+01 0.0 0.0 0.0 32 37 SHEAR 0.0 -4.374889E+00 -4.418638E-01 0.0 0.0 0.0 32 38 SHEAR 0.0 3.405963E+02 -3.440022E+01 0.0 0.0 0.0 32 *TOTALS* 1.220703E-04 -9.155273E-05 1.676559E-02 0.0 0.0 0.0 0 33 F-OF-SPC 0.0 0.0 4.598999E+02 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 33 106 CONROD -1.459535E+02 0.0 0.0 0.0 0.0 0.0 33 107 CONROD 1.580616E+02 0.0 -1.778193E+00 0.0 0.0 0.0 33 123 CONROD 0.0 1.180692E+01 7.084155E-01 0.0 0.0 0.0 33 124 CONROD 0.0 -1.057252E+01 -2.114505E-01 0.0 0.0 0.0 33 2 QDMEM1 -1.935569E+03 4.429469E+01 2.657681E+00 0.0 0.0 0.0 33 3 QDMEM1 3.162926E+03 -1.047363E+03 -7.737327E+01 0.0 0.0 0.0 33 7 QDMEM1 -3.065891E+03 1.002242E+03 2.004485E+01 0.0 0.0 0.0 33 8 QDMEM1 1.875267E+03 -4.289501E+02 -4.413892E+01 0.0 0.0 0.0 33 68 ROD 0.0 0.0 -1.779853E+02 0.0 0.0 0.0 33 24 SHEAR -5.374593E+02 0.0 -5.428339E+01 0.0 0.0 0.0 33 25 SHEAR 4.886187E+02 0.0 -4.935049E+01 0.0 0.0 0.0 33 41 SHEAR 0.0 -1.728072E+02 -1.745353E+01 0.0 0.0 0.0 33 42 SHEAR 0.0 6.013494E+02 -6.073628E+01 0.0 0.0 0.0 33 *TOTALS* 2.441406E-04 0.0 2.288818E-05 0.0 0.0 0.0 0 34 107 CONROD -1.580616E+02 0.0 1.778193E+00 0.0 0.0 0.0 34 108 CONROD 9.872572E+01 0.0 -1.851107E+00 0.0 0.0 0.0 34 127 CONROD 0.0 1.999500E+01 9.997502E-01 0.0 0.0 0.0 34 128 CONROD 0.0 -1.245303E+00 0.0 0.0 0.0 0.0 34 3 QDMEM1 -1.708711E+03 4.776343E+02 3.694933E+01 0.0 0.0 0.0 34 4 QDMEM1 3.738543E+03 -1.865287E+03 -1.165700E+02 0.0 0.0 0.0 34 8 QDMEM1 -4.213132E+03 2.021890E+03 1.097480E+02 0.0 0.0 0.0 34 9 QDMEM1 1.134297E+03 -8.492415E+02 -2.601425E+01 0.0 0.0 0.0 34 69 ROD 0.0 0.0 3.142609E+00 0.0 0.0 0.0 34 25 SHEAR 4.886187E+02 0.0 4.385353E+01 0.0 0.0 0.0 34 26 SHEAR 6.197228E+02 0.0 -5.562013E+01 0.0 0.0 0.0 34 45 SHEAR 0.0 1.184595E+02 1.063174E+01 0.0 0.0 0.0 34 46 SHEAR 0.0 7.779566E+01 -6.982161E+00 0.0 0.0 0.0 34 *TOTALS* 2.441406E-03 6.866455E-04 6.545496E-02 0.0 0.0 0.0 0 35 108 CONROD -9.872572E+01 0.0 1.851107E+00 0.0 0.0 0.0 35 109 CONROD 4.149953E+01 0.0 -1.556232E+00 0.0 0.0 0.0 35 130 CONROD 0.0 4.312009E+00 1.435899E-01 0.0 0.0 0.0 35 131 CONROD 0.0 4.649729E+00 -1.548360E-01 0.0 0.0 0.0 35 4 QDMEM1 -7.979272E+02 7.432421E+02 3.925447E+01 0.0 0.0 0.0 35 5 QDMEM1 2.269713E+03 -1.576419E+03 -7.357087E+01 0.0 0.0 0.0 35 9 QDMEM1 -4.231526E+03 2.696106E+03 1.049058E+02 0.0 0.0 0.0 35 70 ROD 0.0 0.0 6.111575E+00 0.0 0.0 0.0 35 26 SHEAR 6.197228E+02 0.0 4.400032E+01 0.0 0.0 0.0 35 27 SHEAR 1.502435E+03 0.0 -1.066729E+02 0.0 0.0 0.0 35 48 SHEAR 0.0 -7.698089E+02 -5.465643E+01 0.0 0.0 0.0 35 49 SHEAR 0.0 -7.897321E+02 5.607097E+01 0.0 0.0 0.0 35 10 TRMEM 6.948096E+02 -3.123516E+02 -1.565405E+01 0.0 0.0 0.0 35 *TOTALS* 1.159668E-03 -1.342773E-03 7.256031E-02 0.0 0.0 0.0 0 36 109 CONROD -4.149953E+01 0.0 1.556232E+00 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 36 132 CONROD 0.0 1.042573E+01 0.0 0.0 0.0 0.0 36 135 CONROD -2.751547E+01 2.751547E+01 1.155650E-01 0.0 0.0 0.0 36 5 QDMEM1 7.298301E+02 7.413315E+02 -2.873789E+00 0.0 0.0 0.0 36 71 ROD 0.0 0.0 1.165760E+01 0.0 0.0 0.0 36 27 SHEAR 1.502435E+03 0.0 5.033158E+01 0.0 0.0 0.0 36 50 SHEAR 0.0 -2.247713E+03 -7.529840E+01 0.0 0.0 0.0 36 51 SHEAR -4.964017E+02 4.964017E+02 -1.662946E+01 0.0 0.0 0.0 36 10 TRMEM -1.666849E+03 9.720394E+02 3.013792E+01 0.0 0.0 0.0 36 *TOTALS* -4.882812E-04 4.272461E-04 -1.002747E+00 0.0 0.0 0.0 0 41 F-OF-SPC -1.553812E+01 0.0 0.0 0.0 0.0 0.0 41 72 ROD 0.0 0.0 -3.754230E+00 0.0 0.0 0.0 41 28 SHEAR 1.553802E+01 0.0 3.760202E+00 0.0 0.0 0.0 41 *TOTALS* -9.822845E-05 0.0 5.971193E-03 0.0 0.0 0.0 0 42 F-OF-SPC -2.677239E+02 8.074630E+02 0.0 0.0 0.0 0.0 42 73 ROD 0.0 0.0 -1.399199E+01 0.0 0.0 0.0 42 28 SHEAR 1.553802E+01 0.0 -3.760202E+00 0.0 0.0 0.0 42 29 SHEAR 2.521856E+02 0.0 3.051446E+01 0.0 0.0 0.0 42 38 SHEAR 0.0 -3.405963E+02 3.440022E+01 0.0 0.0 0.0 42 39 SHEAR 0.0 -4.668665E+02 -4.715352E+01 0.0 0.0 0.0 42 *TOTALS* -2.593994E-04 1.831055E-04 8.964539E-03 0.0 0.0 0.0 0 43 F-OF-SPC -5.076573E+01 1.368561E+03 0.0 0.0 0.0 0.0 43 74 ROD 0.0 0.0 6.534398E+01 0.0 0.0 0.0 43 29 SHEAR 2.521856E+02 0.0 -3.051446E+01 0.0 0.0 0.0 43 30 SHEAR -2.014207E+02 0.0 -1.807751E+01 0.0 0.0 0.0 43 42 SHEAR 0.0 -6.013494E+02 6.073628E+01 0.0 0.0 0.0 43 43 SHEAR 0.0 -7.672112E+02 -7.748833E+01 0.0 0.0 0.0 43 *TOTALS* -8.392334E-04 6.103516E-05 -3.814697E-05 0.0 0.0 0.0 0 44 F-OF-SPC 6.062766E+02 1.240258E+02 0.0 0.0 0.0 0.0 44 75 ROD 0.0 0.0 -1.426261E+01 0.0 0.0 0.0 44 30 SHEAR -2.014207E+02 0.0 2.437190E+01 0.0 0.0 0.0 44 31 SHEAR -4.048567E+02 0.0 -1.526310E+01 0.0 0.0 0.0 44 46 SHEAR 0.0 -7.779566E+01 6.982161E+00 0.0 0.0 0.0 44 47 SHEAR 0.0 -4.623029E+01 -1.837654E+00 0.0 0.0 0.0 44 *TOTALS* -7.629395E-04 -1.373291E-04 -9.295702E-03 0.0 0.0 0.0 0 45 F-OF-SPC -1.021908E+02 -2.826833E+02 0.0 0.0 0.0 0.0 45 76 ROD 0.0 0.0 3.452959E+00 0.0 0.0 0.0 45 31 SHEAR -4.048567E+02 0.0 3.633588E+01 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 45 49 SHEAR 0.0 7.897321E+02 -5.607097E+01 0.0 0.0 0.0 45 51 SHEAR 4.964017E+02 -4.964017E+02 1.662946E+01 0.0 0.0 0.0 45 52 SHEAR 1.064676E+01 -1.064676E+01 -4.232087E-01 0.0 0.0 0.0 45 *TOTALS* 9.469986E-04 3.347397E-04 -7.588053E-02 0.0 0.0 0.0 0 51 F-OF-SPC -4.541398E+03 0.0 0.0 0.0 0.0 0.0 51 110 CONROD 1.502588E+02 0.0 0.0 0.0 0.0 0.0 51 6 QDMEM1 2.309709E+03 -1.880113E+02 -3.760226E+00 0.0 0.0 0.0 51 11 QDMEM1 2.096969E+03 1.880112E+02 -3.760225E+00 0.0 0.0 0.0 51 72 ROD 0.0 0.0 3.754230E+00 0.0 0.0 0.0 51 28 SHEAR -1.553802E+01 0.0 3.760202E+00 0.0 0.0 0.0 51 *TOTALS* 3.070831E-04 -4.577637E-05 -6.019354E-03 0.0 0.0 0.0 0 52 110 CONROD -1.502588E+02 0.0 0.0 0.0 0.0 0.0 52 111 CONROD 1.512179E+02 0.0 0.0 0.0 0.0 0.0 52 120 CONROD 0.0 2.082605E+01 4.165210E-01 0.0 0.0 0.0 52 121 CONROD 0.0 -1.409322E+01 2.818644E-01 0.0 0.0 0.0 52 6 QDMEM1 -2.266494E+03 -1.192024E+02 -2.384049E+00 0.0 0.0 0.0 52 7 QDMEM1 2.931548E+03 -9.422684E+02 -1.884537E+01 0.0 0.0 0.0 52 11 QDMEM1 -2.086375E+03 1.701444E+02 -3.402889E+00 0.0 0.0 0.0 52 12 QDMEM1 1.688085E+03 7.713062E+01 -1.542613E+00 0.0 0.0 0.0 52 73 ROD 0.0 0.0 1.399199E+01 0.0 0.0 0.0 52 28 SHEAR -1.553802E+01 0.0 -3.760202E+00 0.0 0.0 0.0 52 29 SHEAR -2.521856E+02 0.0 3.051446E+01 0.0 0.0 0.0 52 38 SHEAR 0.0 3.405963E+02 4.121215E+01 0.0 0.0 0.0 52 39 SHEAR 0.0 4.668665E+02 -5.649085E+01 0.0 0.0 0.0 52 *TOTALS* 1.373291E-04 -1.831055E-04 -8.987427E-03 0.0 0.0 0.0 0 53 F-OF-SPC 0.0 0.0 2.908639E+02 0.0 0.0 0.0 53 111 CONROD -1.512179E+02 0.0 0.0 0.0 0.0 0.0 53 112 CONROD 1.113180E+02 0.0 -3.478688E+00 0.0 0.0 0.0 53 124 CONROD 0.0 1.057252E+01 2.114505E-01 0.0 0.0 0.0 53 125 CONROD 0.0 3.710782E+00 -7.421565E-02 0.0 0.0 0.0 53 7 QDMEM1 -2.006889E+03 -7.758241E+01 -1.551649E+00 0.0 0.0 0.0 53 8 QDMEM1 3.534566E+03 -1.908872E+03 -9.419826E+01 0.0 0.0 0.0 53 12 QDMEM1 -2.374597E+03 8.677802E+02 -1.735561E+01 0.0 0.0 0.0 53 13 QDMEM1 9.375856E+02 -2.641702E+02 -3.411738E+01 0.0 0.0 0.0 53 74 ROD 0.0 0.0 -6.534398E+01 0.0 0.0 0.0 53 29 SHEAR -2.521856E+02 0.0 -3.051446E+01 0.0 0.0 0.0 53 30 SHEAR 2.014207E+02 0.0 -2.437190E+01 0.0 0.0 0.0 53 42 SHEAR 0.0 6.013494E+02 7.276327E+01 0.0 0.0 0.0 53 43 SHEAR 0.0 7.672112E+02 -9.283257E+01 0.0 0.0 0.0 53 *TOTALS* 1.281738E-03 -6.103516E-05 -4.577637E-05 0.0 0.0 0.0 0 54 112 CONROD -1.113180E+02 0.0 3.478688E+00 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 54 113 CONROD 2.885279E+01 0.0 -1.501788E+00 0.0 0.0 0.0 54 128 CONROD 0.0 1.245303E+00 0.0 0.0 0.0 0.0 54 129 CONROD 0.0 1.204411E+01 -6.022053E-01 0.0 0.0 0.0 54 8 QDMEM1 -1.196700E+03 3.159315E+02 2.858920E+01 0.0 0.0 0.0 54 9 QDMEM1 2.929604E+03 -2.248611E+03 -6.626859E+01 0.0 0.0 0.0 54 13 QDMEM1 -2.720061E+03 1.703971E+03 6.616381E+01 0.0 0.0 0.0 54 75 ROD 0.0 0.0 1.426261E+01 0.0 0.0 0.0 54 30 SHEAR 2.014207E+02 0.0 1.807751E+01 0.0 0.0 0.0 54 31 SHEAR 4.048567E+02 0.0 -3.633588E+01 0.0 0.0 0.0 54 46 SHEAR 0.0 7.779566E+01 6.982161E+00 0.0 0.0 0.0 54 47 SHEAR 0.0 4.623029E+01 -4.149168E+00 0.0 0.0 0.0 54 14 TRMEM 4.633465E+02 9.139274E+01 -2.868682E+01 0.0 0.0 0.0 54 *TOTALS* 1.586914E-03 2.212524E-04 9.521484E-03 0.0 0.0 0.0 0 55 113 CONROD -2.885279E+01 0.0 1.501788E+00 0.0 0.0 0.0 55 131 CONROD 0.0 -4.649729E+00 1.548360E-01 0.0 0.0 0.0 55 134 CONROD -1.865283E+01 1.865283E+01 3.823830E-02 0.0 0.0 0.0 55 135 CONROD 2.751547E+01 -2.751547E+01 -1.155650E-01 0.0 0.0 0.0 55 9 QDMEM1 1.676251E+02 4.017465E+02 -1.262300E+01 0.0 0.0 0.0 55 76 ROD 0.0 0.0 -3.452959E+00 0.0 0.0 0.0 55 31 SHEAR 4.048567E+02 0.0 1.526310E+01 0.0 0.0 0.0 55 49 SHEAR 0.0 -7.897321E+02 -2.977290E+01 0.0 0.0 0.0 55 51 SHEAR -4.964017E+02 4.964017E+02 1.871435E+01 0.0 0.0 0.0 55 52 SHEAR -1.064676E+01 1.064676E+01 -4.013829E-01 0.0 0.0 0.0 55 10 TRMEM 9.720394E+02 -6.596878E+02 -1.448387E+01 0.0 0.0 0.0 55 14 TRMEM -1.017484E+03 5.541373E+02 2.525317E+01 0.0 0.0 0.0 55 *TOTALS* -1.281738E-03 -6.103516E-05 7.579231E-02 0.0 0.0 0.0 0 61 F-OF-SPC -1.651715E+01 0.0 0.0 0.0 0.0 0.0 61 77 ROD 0.0 0.0 -3.356450E+00 0.0 0.0 0.0 61 32 SHEAR 1.651729E+01 0.0 3.336492E+00 0.0 0.0 0.0 61 *TOTALS* 1.392365E-04 0.0 -1.995778E-02 0.0 0.0 0.0 0 62 F-OF-SPC 2.911835E+02 7.740940E+02 0.0 0.0 0.0 0.0 62 78 ROD 0.0 0.0 -9.464325E+00 0.0 0.0 0.0 62 32 SHEAR 1.651729E+01 0.0 -3.336492E+00 0.0 0.0 0.0 62 33 SHEAR -3.077006E+02 0.0 -3.107776E+01 0.0 0.0 0.0 62 39 SHEAR 0.0 -4.668665E+02 5.649085E+01 0.0 0.0 0.0 62 40 SHEAR 0.0 -3.072276E+02 -1.259633E+01 0.0 0.0 0.0 62 *TOTALS* 1.831055E-04 -1.220703E-04 1.594734E-02 0.0 0.0 0.0 0 63 F-OF-SPC 4.126346E+02 1.136875E+03 0.0 0.0 0.0 0.0 63 79 ROD 0.0 0.0 -1.045830E+02 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 63 33 SHEAR -3.077006E+02 0.0 3.107776E+01 0.0 0.0 0.0 63 34 SHEAR -1.049337E+02 0.0 -4.171116E+00 0.0 0.0 0.0 63 43 SHEAR 0.0 -7.672112E+02 9.283257E+01 0.0 0.0 0.0 63 44 SHEAR 0.0 -3.696637E+02 -1.515621E+01 0.0 0.0 0.0 63 *TOTALS* 2.822876E-04 3.051758E-05 6.675720E-06 0.0 0.0 0.0 0 64 F-OF-SPC -2.877000E+02 4.388646E+02 0.0 0.0 0.0 0.0 64 80 ROD 0.0 0.0 5.458136E-01 0.0 0.0 0.0 64 34 SHEAR -1.049337E+02 0.0 1.059831E+01 0.0 0.0 0.0 64 47 SHEAR 0.0 -4.623029E+01 4.149168E+00 0.0 0.0 0.0 64 52 SHEAR 1.064676E+01 -1.064676E+01 4.013829E-01 0.0 0.0 0.0 64 53 SHEAR 3.819876E+02 -3.819876E+02 -1.566149E+01 0.0 0.0 0.0 64 *TOTALS* 5.493164E-04 -3.051758E-05 3.318024E-02 0.0 0.0 0.0 0 71 F-OF-SPC -3.382342E+03 0.0 0.0 0.0 0.0 0.0 71 114 CONROD 8.808218E+01 0.0 0.0 0.0 0.0 0.0 71 11 QDMEM1 1.853037E+03 -1.668232E+02 3.336465E+00 0.0 0.0 0.0 71 15 QDMEM1 1.457740E+03 1.668232E+02 -1.000939E+01 0.0 0.0 0.0 71 77 ROD 0.0 0.0 3.356450E+00 0.0 0.0 0.0 71 32 SHEAR -1.651729E+01 0.0 3.336492E+00 0.0 0.0 0.0 71 *TOTALS* -7.438660E-05 -4.577637E-05 2.001452E-02 0.0 0.0 0.0 0 72 114 CONROD -8.808218E+01 0.0 0.0 0.0 0.0 0.0 72 115 CONROD 6.938777E+01 0.0 0.0 0.0 0.0 0.0 72 121 CONROD 0.0 1.409322E+01 -2.818644E-01 0.0 0.0 0.0 72 122 CONROD 0.0 -8.575076E+00 5.145046E-01 0.0 0.0 0.0 72 11 QDMEM1 -1.863631E+03 -1.913324E+02 3.826649E+00 0.0 0.0 0.0 72 12 QDMEM1 2.015724E+03 -7.636426E+02 1.527286E+01 0.0 0.0 0.0 72 15 QDMEM1 -1.374328E+03 1.745317E+00 -1.047190E-01 0.0 0.0 0.0 72 16 QDMEM1 9.497464E+02 1.736177E+02 -1.041706E+01 0.0 0.0 0.0 72 78 ROD 0.0 0.0 9.464325E+00 0.0 0.0 0.0 72 32 SHEAR -1.651729E+01 0.0 -3.336492E+00 0.0 0.0 0.0 72 33 SHEAR 3.077006E+02 0.0 -3.107776E+01 0.0 0.0 0.0 72 39 SHEAR 0.0 4.668665E+02 4.715352E+01 0.0 0.0 0.0 72 40 SHEAR 0.0 3.072276E+02 -3.102999E+01 0.0 0.0 0.0 72 *TOTALS* -2.441406E-04 1.831055E-04 -1.602745E-02 0.0 0.0 0.0 0 73 F-OF-SPC 0.0 0.0 -9.777689E+01 0.0 0.0 0.0 73 115 CONROD -6.938777E+01 0.0 0.0 0.0 0.0 0.0 73 116 CONROD 6.610069E+00 0.0 -4.048667E-01 0.0 0.0 0.0 73 125 CONROD 0.0 -3.710782E+00 7.421565E-02 0.0 0.0 0.0 73 126 CONROD 0.0 1.140558E+01 -6.843346E-01 0.0 0.0 0.0 73 12 QDMEM1 -1.329212E+03 -1.812681E+02 3.625363E+00 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 73 13 QDMEM1 1.777886E+03 -1.518926E+03 -2.906481E+01 0.0 0.0 0.0 73 16 QDMEM1 -9.233628E+02 3.331114E+02 -1.998668E+01 0.0 0.0 0.0 73 79 ROD 0.0 0.0 1.045830E+02 0.0 0.0 0.0 73 33 SHEAR 3.077006E+02 0.0 3.107776E+01 0.0 0.0 0.0 73 34 SHEAR 1.049337E+02 0.0 -1.059831E+01 0.0 0.0 0.0 73 43 SHEAR 0.0 7.672112E+02 7.748833E+01 0.0 0.0 0.0 73 44 SHEAR 0.0 3.696637E+02 -3.733604E+01 0.0 0.0 0.0 73 17 TRMEM 1.248317E+02 2.225128E+02 -2.099671E+01 0.0 0.0 0.0 73 *TOTALS* -4.730225E-04 1.220703E-04 2.098083E-05 0.0 0.0 0.0 0 74 116 CONROD -6.610069E+00 0.0 4.048667E-01 0.0 0.0 0.0 74 129 CONROD 0.0 -1.204411E+01 6.022053E-01 0.0 0.0 0.0 74 133 CONROD -6.434346E+00 6.434346E+00 8.042925E-03 0.0 0.0 0.0 74 134 CONROD 1.865283E+01 -1.865283E+01 -3.823830E-02 0.0 0.0 0.0 74 13 QDMEM1 4.589436E+00 7.912453E+01 -2.981620E+00 0.0 0.0 0.0 74 80 ROD 0.0 0.0 -5.458136E-01 0.0 0.0 0.0 74 34 SHEAR 1.049337E+02 0.0 4.171116E+00 0.0 0.0 0.0 74 47 SHEAR 0.0 4.623029E+01 1.837654E+00 0.0 0.0 0.0 74 52 SHEAR -1.064676E+01 1.064676E+01 4.232087E-01 0.0 0.0 0.0 74 53 SHEAR -3.819876E+02 3.819876E+02 -1.518401E+01 0.0 0.0 0.0 74 14 TRMEM 5.541373E+02 -6.455300E+02 3.433655E+00 0.0 0.0 0.0 74 17 TRMEM -2.766351E+02 1.518034E+02 7.835693E+00 0.0 0.0 0.0 74 *TOTALS* -5.798340E-04 1.525879E-05 -3.323698E-02 0.0 0.0 0.0 0 81 F-OF-SPC -7.230483E-11 0.0 0.0 0.0 0.0 0.0 81 81 ROD 0.0 0.0 0.0 0.0 0.0 0.0 81 35 SHEAR -2.151405E-07 0.0 -1.764153E-08 0.0 0.0 0.0 81 *TOTALS* -2.152128E-07 0.0 -1.764153E-08 0.0 0.0 0.0 0 82 F-OF-SPC 7.568285E+02 3.072274E+02 0.0 0.0 0.0 0.0 82 82 ROD 0.0 0.0 0.0 0.0 0.0 0.0 82 35 SHEAR -2.151405E-07 0.0 1.764153E-08 0.0 0.0 0.0 82 36 SHEAR -7.568283E+02 0.0 -3.102996E+01 0.0 0.0 0.0 82 40 SHEAR 0.0 -3.072276E+02 3.102999E+01 0.0 0.0 0.0 82 *TOTALS* 1.831055E-04 -1.525879E-04 2.479553E-05 0.0 0.0 0.0 0 83 F-OF-SPC 3.748410E+02 7.516512E+02 0.0 0.0 0.0 0.0 83 83 ROD 0.0 0.0 -8.355000E+01 0.0 0.0 0.0 83 36 SHEAR -7.568283E+02 0.0 3.102996E+01 0.0 0.0 0.0 83 44 SHEAR 0.0 -3.696637E+02 3.733604E+01 0.0 0.0 0.0 83 53 SHEAR 3.819876E+02 -3.819876E+02 1.518401E+01 0.0 0.0 0.0 83 *TOTALS* 3.051758E-04 -1.220703E-04 9.536743E-07 0.0 0.0 0.0 0 91 F-OF-SPC -1.180112E+03 0.0 0.0 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 91 117 CONROD 2.104568E+01 0.0 0.0 0.0 0.0 0.0 91 15 QDMEM1 1.159066E+03 -2.176032E-05 1.305619E-06 0.0 0.0 0.0 91 81 ROD 0.0 0.0 0.0 0.0 0.0 0.0 91 35 SHEAR 2.151405E-07 0.0 -1.764153E-08 0.0 0.0 0.0 91 *TOTALS* 2.151405E-07 -2.176032E-05 1.287978E-06 0.0 0.0 0.0 0 92 117 CONROD -2.104568E+01 0.0 0.0 0.0 0.0 0.0 92 118 CONROD 1.745362E+00 0.0 0.0 0.0 0.0 0.0 92 122 CONROD 0.0 8.575076E+00 -5.145046E-01 0.0 0.0 0.0 92 15 QDMEM1 -1.242478E+03 -1.685685E+02 1.011411E+01 0.0 0.0 0.0 92 16 QDMEM1 5.049498E+02 -1.472341E+02 8.834044E+00 0.0 0.0 0.0 92 82 ROD 0.0 0.0 0.0 0.0 0.0 0.0 92 35 SHEAR 2.151405E-07 0.0 1.764153E-08 0.0 0.0 0.0 92 36 SHEAR 7.568283E+02 0.0 -3.102996E+01 0.0 0.0 0.0 92 40 SHEAR 0.0 3.072276E+02 1.259633E+01 0.0 0.0 0.0 92 *TOTALS* -1.831055E-04 9.155273E-05 1.716614E-05 0.0 0.0 0.0 0 93 F-OF-SPC 0.0 0.0 -1.808047E+02 0.0 0.0 0.0 93 118 CONROD -1.745362E+00 0.0 0.0 0.0 0.0 0.0 93 126 CONROD 0.0 -1.140558E+01 6.843346E-01 0.0 0.0 0.0 93 133 CONROD 6.434346E+00 -6.434346E+00 -8.042925E-03 0.0 0.0 0.0 93 16 QDMEM1 -5.313334E+02 -3.594950E+02 2.156970E+01 0.0 0.0 0.0 93 83 ROD 0.0 0.0 8.355000E+01 0.0 0.0 0.0 93 36 SHEAR 7.568283E+02 0.0 3.102996E+01 0.0 0.0 0.0 93 44 SHEAR 0.0 3.696637E+02 1.515621E+01 0.0 0.0 0.0 93 53 SHEAR -3.819876E+02 3.819876E+02 1.566149E+01 0.0 0.0 0.0 93 17 TRMEM 1.518034E+02 -3.743163E+02 1.316102E+01 0.0 0.0 0.0 93 *TOTALS* -3.204346E-04 6.103516E-05 -1.907349E-06 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A LOAD ON TRAILING EDGE 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 0.0 6.135969E-04 3.917006E-02 0.0 0.0 0.0 12 G 6.467458E-04 5.996542E-04 3.522649E-02 0.0 0.0 0.0 13 G 2.238678E-03 2.251942E-04 0.0 0.0 0.0 0.0 14 G 3.877422E-03 -3.170676E-04 -7.825613E-02 0.0 0.0 0.0 15 G 6.468575E-03 -1.843353E-03 -2.142392E-01 0.0 0.0 0.0 16 G 5.877850E-03 -3.112766E-03 -3.997459E-01 0.0 0.0 0.0 31 G 0.0 6.920014E-04 2.979821E-02 0.0 0.0 0.0 32 G 1.332189E-03 6.365333E-04 2.653647E-02 0.0 0.0 0.0 33 G 4.416583E-03 -1.371605E-04 0.0 0.0 0.0 0.0 34 G 7.168456E-03 -1.780519E-03 -6.248228E-02 0.0 0.0 0.0 35 G 7.999689E-03 -3.856233E-03 -1.590546E-01 0.0 0.0 0.0 36 G 4.925540E-03 -3.828819E-03 -2.881108E-01 0.0 0.0 0.0 51 G 0.0 3.016151E-04 2.353532E-02 0.0 0.0 0.0 52 G 1.313451E-03 3.497840E-04 2.087687E-02 0.0 0.0 0.0 53 G 3.957121E-03 -3.401942E-04 0.0 0.0 0.0 0.0 54 G 4.901708E-03 -1.810268E-03 -4.275591E-02 0.0 0.0 0.0 55 G 2.708095E-03 -1.831019E-03 -1.039118E-01 0.0 0.0 0.0 71 G 0.0 -6.515467E-05 1.981949E-02 0.0 0.0 0.0 72 G 9.307077E-04 1.309491E-05 1.757465E-02 0.0 0.0 0.0 73 G 2.397060E-03 -2.689327E-04 0.0 0.0 0.0 0.0 74 G 1.064661E-03 -5.144916E-04 -2.496927E-02 0.0 0.0 0.0 91 G 0.0 -2.389716E-04 2.150062E-02 0.0 0.0 0.0 92 G 5.781779E-04 -2.260449E-04 1.797514E-02 0.0 0.0 0.0 93 G 6.740769E-04 8.110458E-05 0.0 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.510650E-10 0.0 0.0 0.0 0.0 0.0 2 G 1.077696E+01 -4.374804E+00 0.0 0.0 0.0 0.0 3 G 7.149570E+02 -1.728072E+02 0.0 0.0 0.0 0.0 4 G 1.376281E+03 1.184593E+02 0.0 0.0 0.0 0.0 5 G 4.059979E+03 -7.698094E+02 0.0 0.0 0.0 0.0 6 G 3.387878E+03 -2.247713E+03 0.0 0.0 0.0 0.0 11 G -1.468865E+03 0.0 0.0 0.0 0.0 0.0 13 G 0.0 0.0 2.781781E+01 0.0 0.0 0.0 21 G -1.005764E+01 0.0 0.0 0.0 0.0 0.0 22 G -5.475169E+02 3.362216E+02 0.0 0.0 0.0 0.0 23 G -4.884057E+01 4.285421E+02 0.0 0.0 0.0 0.0 24 G 1.108339E+03 1.962545E+02 0.0 0.0 0.0 0.0 25 G 2.122156E+03 -1.559540E+03 0.0 0.0 0.0 0.0 26 G 1.006035E+03 -1.751312E+03 0.0 0.0 0.0 0.0 31 G -4.308599E+03 0.0 0.0 0.0 0.0 0.0 33 G 0.0 0.0 4.598999E+02 0.0 0.0 0.0 41 G -1.553812E+01 0.0 0.0 0.0 0.0 0.0 42 G -2.677239E+02 8.074630E+02 0.0 0.0 0.0 0.0 43 G -5.076573E+01 1.368561E+03 0.0 0.0 0.0 0.0 44 G 6.062766E+02 1.240258E+02 0.0 0.0 0.0 0.0 45 G -1.021908E+02 -2.826833E+02 0.0 0.0 0.0 0.0 51 G -4.541398E+03 0.0 0.0 0.0 0.0 0.0 53 G 0.0 0.0 2.908639E+02 0.0 0.0 0.0 61 G -1.651715E+01 0.0 0.0 0.0 0.0 0.0 62 G 2.911835E+02 7.740940E+02 0.0 0.0 0.0 0.0 63 G 4.126346E+02 1.136875E+03 0.0 0.0 0.0 0.0 64 G -2.877000E+02 4.388646E+02 0.0 0.0 0.0 0.0 71 G -3.382342E+03 0.0 0.0 0.0 0.0 0.0 73 G 0.0 0.0 -9.777689E+01 0.0 0.0 0.0 81 G -7.230483E-11 0.0 0.0 0.0 0.0 0.0 82 G 7.568285E+02 3.072274E+02 0.0 0.0 0.0 0.0 83 G 3.748410E+02 7.516512E+02 0.0 0.0 0.0 0.0 91 G -1.180112E+03 0.0 0.0 0.0 0.0 0.0 93 G 0.0 0.0 -1.808047E+02 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE F O R C E S I N R O D E L E M E N T S ( C O N R O D ) ELEMENT AXIAL ELEMENT AXIAL ID. FORCE TORQUE ID. FORCE TORQUE 100 2.354155E+01 0.0 101 2.897316E+01 0.0 102 3.106362E+01 0.0 103 4.850141E+01 0.0 104 2.939040E+00 0.0 105 1.260784E+02 0.0 106 1.459535E+02 0.0 107 1.580715E+02 0.0 108 9.874306E+01 0.0 109 4.152871E+01 0.0 110 1.502587E+02 0.0 111 1.512179E+02 0.0 112 1.113723E+02 0.0 113 2.889184E+01 0.0 114 8.808218E+01 0.0 115 6.938778E+01 0.0 116 6.622462E+00 0.0 117 2.104568E+01 0.0 118 1.745361E+00 0.0 119 -1.581600E+01 0.0 120 -2.083021E+01 0.0 121 -1.409603E+01 0.0 122 -8.590499E+00 0.0 123 -1.182816E+01 0.0 124 -1.057464E+01 0.0 125 3.711524E+00 0.0 126 1.142609E+01 0.0 127 -2.001999E+01 0.0 128 -1.245303E+00 0.0 129 1.205915E+01 0.0 130 -4.314395E+00 0.0 131 4.652306E+00 0.0 132 -1.042573E+01 0.0 133 9.099544E+00 0.0 134 2.637910E+01 0.0 135 3.891291E+01 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE F O R C E S I N R O D E L E M E N T S ( C R O D ) ELEMENT AXIAL ELEMENT AXIAL ID. FORCE TORQUE ID. FORCE TORQUE 60 0.0 0.0 61 0.0 0.0 62 1.009577E+01 0.0 63 6.825000E+00 0.0 64 3.360000E+01 0.0 65 -2.030000E+02 0.0 66 -2.078125E+00 0.0 67 -1.081734E+01 0.0 68 1.779853E+02 0.0 69 -3.150000E+00 0.0 70 -5.600000E+00 0.0 71 -1.260000E+01 0.0 72 -3.746094E+00 0.0 73 -1.400117E+01 0.0 74 6.534398E+01 0.0 75 -1.426250E+01 0.0 76 3.500000E+00 0.0 77 -3.335938E+00 0.0 78 -9.436406E+00 0.0 79 -1.045830E+02 0.0 80 5.250000E-01 0.0 81 0.0 0.0 82 0.0 0.0 83 -8.355000E+01 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE F O R C E S A C T I N G O N S H E A R P A N E L E L E M E N T S ( C S H E A R ) ====== POINT 1 ====== ====== POINT 2 ====== ====== POINT 3 ====== ====== POINT 4 ====== ELEMENT F-FROM-4 F-FROM-2 F-FROM-1 F-FROM-3 F-FROM-2 F-FROM-4 F-FROM-3 F-FROM-1 ID KICK-1 SHEAR-12 KICK-2 SHEAR-23 KICK-3 SHEAR-34 KICK-4 SHEAR-41 0 18 -5.60547E-05 -6.83594E-04 6.83594E-04 5.60547E-05 -5.60547E-05 -6.83594E-04 6.83594E-04 5.60547E-05 0.0 -1.36719E-04 0.0 -1.36719E-04 0.0 -1.36719E-04 0.0 -1.36719E-04 0 19 -4.41837E-01 -1.07765E+01 1.07765E+01 4.41837E-01 -4.41837E-01 -1.07765E+01 1.07765E+01 4.41837E-01 0.0 -1.07765E+00 0.0 -1.07765E+00 0.0 -1.07765E+00 0.0 -1.07765E+00 0 20 -2.88714E+01 -7.04179E+02 7.04179E+02 2.79911E+01 -2.79911E+01 -7.04180E+02 7.04180E+02 2.88714E+01 0.0 -7.04179E+01 0.0 -7.04179E+01 0.0 -7.04179E+01 0.0 -7.04179E+01 0 21 -2.67160E+01 -6.72101E+02 6.72101E+02 2.53382E+01 -2.53382E+01 -6.72103E+02 6.72103E+02 2.67160E+01 0.0 -6.72101E+01 0.0 -6.72101E+01 0.0 -6.72101E+01 0.0 -6.72101E+01 0 22 -1.27723E+02 -3.38787E+03 3.38787E+03 1.13494E+02 -1.13494E+02 -3.38790E+03 3.38790E+03 1.27723E+02 0.0 -3.38787E+02 0.0 -3.38787E+02 0.0 -3.38787E+02 0.0 -3.38787E+02 0 23 2.03159E+00 1.00574E+01 -1.00574E+01 -2.03159E+00 2.03159E+00 1.00574E+01 -1.00574E+01 -2.03159E+00 0.0 2.01147E+00 0.0 2.01147E+00 0.0 2.01147E+00 0.0 2.01147E+00 0 24 5.42833E+01 5.37459E+02 -5.37459E+02 -5.42833E+01 5.42833E+01 5.37459E+02 -5.37459E+02 -5.42833E+01 0.0 5.37459E+01 0.0 5.37459E+01 0.0 5.37459E+01 0.0 5.37459E+01 0 25 -4.38533E+01 -4.88616E+02 4.88616E+02 4.93502E+01 -4.93502E+01 -4.88647E+02 4.88647E+02 4.38533E+01 0.0 -4.88616E+01 0.0 -5.49863E+01 0.0 -4.88616E+01 0.0 -4.34191E+01 0 26 -4.40002E+01 -6.19721E+02 6.19721E+02 5.56200E+01 -5.56200E+01 -6.19830E+02 6.19830E+02 4.40002E+01 0.0 -6.19721E+01 0.0 -7.83380E+01 0.0 -6.19721E+01 0.0 -4.90253E+01 0 27 -5.03318E+01 -1.50244E+03 1.50244E+03 1.06673E+02 -1.06673E+02 -1.50350E+03 1.50350E+03 5.03318E+01 0.0 -1.50244E+02 0.0 -3.18428E+02 0.0 -1.50244E+02 0.0 -7.08898E+01 0 28 3.76022E+00 1.55381E+01 -1.55381E+01 -3.76022E+00 3.76022E+00 1.55381E+01 -1.55381E+01 -3.76022E+00 0.0 3.10762E+00 0.0 3.10762E+00 0.0 3.10762E+00 0.0 3.10762E+00 0 29 3.05145E+01 2.52186E+02 -2.52186E+02 -3.05145E+01 3.05145E+01 2.52186E+02 -2.52186E+02 -3.05145E+01 0.0 2.52186E+01 0.0 2.52186E+01 0.0 2.52186E+01 0.0 2.52186E+01 0 30 -1.80775E+01 -2.01421E+02 2.01421E+02 2.43719E+01 -2.43719E+01 -2.01519E+02 2.01519E+02 1.80775E+01 0.0 -2.01421E+01 0.0 -2.71554E+01 0.0 -2.01421E+01 0.0 -1.49401E+01 0 31 -1.52631E+01 -4.04857E+02 4.04857E+02 3.63359E+01 -3.63359E+01 -4.05405E+02 4.05405E+02 1.52631E+01 0.0 -4.04857E+01 0.0 -9.63817E+01 0.0 -4.04857E+01 0.0 -1.70063E+01 0 32 3.33647E+00 1.65172E+01 -1.65172E+01 -3.33647E+00 3.33647E+00 1.65172E+01 -1.65172E+01 -3.33647E+00 0.0 3.30343E+00 0.0 3.30343E+00 0.0 3.30343E+00 0.0 3.30343E+00 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE F O R C E S A C T I N G O N S H E A R P A N E L E L E M E N T S ( C S H E A R ) ====== POINT 1 ====== ====== POINT 2 ====== ====== POINT 3 ====== ====== POINT 4 ====== ELEMENT F-FROM-4 F-FROM-2 F-FROM-1 F-FROM-3 F-FROM-2 F-FROM-4 F-FROM-3 F-FROM-1 ID KICK-1 SHEAR-12 KICK-2 SHEAR-23 KICK-3 SHEAR-34 KICK-4 SHEAR-41 0 33 -3.10777E+01 -3.07700E+02 3.07700E+02 3.10777E+01 -3.10777E+01 -3.07700E+02 3.07700E+02 3.10777E+01 0.0 -3.07700E+01 0.0 -3.07700E+01 0.0 -3.07700E+01 0.0 -3.07700E+01 0 34 -4.17111E+00 -1.04934E+02 1.04934E+02 1.05983E+01 -1.05983E+01 -1.05130E+02 1.05130E+02 4.17111E+00 0.0 -1.04934E+01 0.0 -2.66624E+01 0.0 -1.04934E+01 0.0 -4.12982E+00 0 35 -2.80273E-05 -3.41797E-04 3.41797E-04 2.80273E-05 -2.80273E-05 -3.41797E-04 3.41797E-04 2.80273E-05 0.0 -6.83594E-05 0.0 -6.83594E-05 0.0 -6.83594E-05 0.0 -6.83594E-05 0 36 -3.10299E+01 -7.56828E+02 7.56828E+02 3.10299E+01 -3.10299E+01 -7.56828E+02 7.56828E+02 3.10299E+01 0.0 -7.56828E+01 0.0 -7.56828E+01 0.0 -7.56828E+01 0.0 -7.56828E+01 0 37 4.41840E-01 4.37466E+00 -4.37466E+00 -1.79361E-01 1.79361E-01 4.38253E+00 -4.38253E+00 -4.41840E-01 0.0 4.37466E-01 0.0 1.77585E-01 0.0 4.37466E-01 0.0 1.07766E+00 0 38 -4.12122E+01 -3.40596E+02 3.40596E+02 3.44002E+01 -3.44002E+01 -3.40664E+02 3.40664E+02 4.12122E+01 0.0 -3.40596E+01 0.0 -2.84299E+01 0.0 -3.40596E+01 0.0 -4.08041E+01 0 39 -4.71535E+01 -4.66866E+02 4.66866E+02 5.64908E+01 -5.64908E+01 -4.66960E+02 4.66960E+02 4.71535E+01 0.0 -4.66866E+01 0.0 -5.59315E+01 0.0 -4.66866E+01 0.0 -3.89698E+01 0 40 -1.25963E+01 -3.07228E+02 3.07228E+02 3.10300E+01 -3.10300E+01 -3.07780E+02 3.07780E+02 1.25963E+01 0.0 -3.07228E+01 0.0 -7.56830E+01 0.0 -3.07228E+01 0.0 -1.24716E+01 0 41 1.74535E+01 1.72807E+02 -1.72807E+02 -7.08509E+00 7.08509E+00 1.73118E+02 -1.73118E+02 -1.74535E+01 0.0 1.72807E+01 0.0 7.01494E+00 0.0 1.72807E+01 0.0 4.25696E+01 0 42 -7.27633E+01 -6.01349E+02 6.01349E+02 6.07363E+01 -6.07363E+01 -6.01470E+02 6.01470E+02 7.27633E+01 0.0 -6.01349E+01 0.0 -5.01953E+01 0.0 -6.01349E+01 0.0 -7.20428E+01 0 43 -7.74883E+01 -7.67211E+02 7.67211E+02 9.28326E+01 -9.28326E+01 -7.67365E+02 7.67365E+02 7.74883E+01 0.0 -7.67211E+01 0.0 -9.19134E+01 0.0 -7.67211E+01 0.0 -6.40399E+01 0 44 -1.51562E+01 -3.69664E+02 3.69664E+02 3.73360E+01 -3.73360E+01 -3.70328E+02 3.70328E+02 1.51562E+01 0.0 -3.69664E+01 0.0 -9.10635E+01 0.0 -3.69664E+01 0.0 -1.50061E+01 0 45 -1.06317E+01 -1.18459E+02 1.18459E+02 4.70876E+00 -4.70876E+00 -1.18607E+02 1.18607E+02 1.06317E+01 0.0 -1.18459E+01 0.0 -5.24653E+00 0.0 -1.18459E+01 0.0 -2.67465E+01 0 46 -6.98216E+00 -7.77957E+01 7.77957E+01 6.98216E+00 -6.98216E+00 -7.77957E+01 7.77957E+01 6.98216E+00 0.0 -7.77957E+00 0.0 -7.77957E+00 0.0 -7.77957E+00 0.0 -7.77957E+00 0 47 -1.83766E+00 -4.62304E+01 4.62304E+01 4.14918E+00 -4.14918E+00 -4.62882E+01 4.62882E+01 1.83766E+00 0.0 -4.62304E+00 0.0 -1.04382E+01 0.0 -4.62304E+00 0.0 -2.04753E+00 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE F O R C E S A C T I N G O N S H E A R P A N E L E L E M E N T S ( C S H E A R ) ====== POINT 1 ====== ====== POINT 2 ====== ====== POINT 3 ====== ====== POINT 4 ====== ELEMENT F-FROM-4 F-FROM-2 F-FROM-1 F-FROM-3 F-FROM-2 F-FROM-4 F-FROM-3 F-FROM-1 ID KICK-1 SHEAR-12 KICK-2 SHEAR-23 KICK-3 SHEAR-34 KICK-4 SHEAR-41 0 48 5.46566E+01 7.69811E+02 -7.69811E+02 -2.90219E+01 2.90219E+01 7.70238E+02 -7.70238E+02 -5.46566E+01 0.0 7.69811E+01 0.0 4.08759E+01 0.0 7.69811E+01 0.0 1.44978E+02 0 49 2.97729E+01 7.89733E+02 -7.89733E+02 -5.60710E+01 5.60710E+01 7.90170E+02 -7.90170E+02 -2.97729E+01 0.0 7.89733E+01 0.0 1.48729E+02 0.0 7.89733E+01 0.0 4.19337E+01 0 50 7.52983E+01 2.24771E+03 -2.24771E+03 -7.52983E+01 7.52983E+01 2.24771E+03 -2.24771E+03 -7.52983E+01 0.0 2.24771E+02 0.0 2.24771E+02 0.0 2.24771E+02 0.0 2.24771E+02 0 51 -1.66294E+01 -7.02017E+02 7.02017E+02 1.87143E+01 -1.87143E+01 -7.02020E+02 7.02020E+02 1.66294E+01 0.0 -4.96401E+01 0.0 -4.96401E+01 0.0 -4.96401E+01 0.0 -4.96401E+01 0 52 -4.01384E-01 -1.50569E+01 1.50569E+01 4.23210E-01 -4.23210E-01 -1.50569E+01 1.50569E+01 4.01384E-01 0.0 -1.06468E+00 0.0 -1.06468E+00 0.0 -1.06468E+00 0.0 -1.06468E+00 0 53 -1.51840E+01 -5.40212E+02 5.40212E+02 1.56615E+01 -1.56615E+01 -5.40212E+02 5.40212E+02 1.51840E+01 0.0 -3.81988E+01 0.0 -3.81988E+01 0.0 -3.81988E+01 0.0 -3.81988E+01 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M 1 ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.048110E+03 6.354468E+01 -3.174451E+01 -1.8448 1.049132E+03 6.252222E+01 4.933050E+02 2 1.263764E+03 1.597311E+02 -1.987009E+02 -9.8983 1.298437E+03 1.250583E+02 5.866891E+02 3 1.394126E+03 1.492840E+02 -4.548772E+02 -18.0800 1.542627E+03 7.825928E-01 7.709224E+02 4 1.501015E+03 2.295349E+02 -9.194933E+02 -27.6700 1.983145E+03 -2.525951E+02 1.117870E+03 5 4.805718E+02 -8.785059E+01 -9.375741E+02 -36.5681 1.176065E+03 -7.833441E+02 9.797047E+02 6 1.433347E+03 1.920470E+02 -2.700912E+01 -1.2459 1.433934E+03 1.914596E+02 6.212373E+02 7 1.584927E+03 3.187672E+02 -2.889563E+02 -12.2667 1.647753E+03 2.559405E+02 6.959064E+02 8 1.617846E+03 4.246919E+02 -7.307952E+02 -25.3869 1.964649E+03 7.788904E+01 9.433801E+02 9 1.051537E+03 3.578499E+02 -9.673624E+02 -35.1375 1.732356E+03 -3.229692E+02 1.027662E+03 11 1.234130E+03 2.238920E+02 6.621246E+00 0.3755 1.234173E+03 2.238487E+02 5.051623E+02 12 1.157209E+03 2.953437E+02 -2.145350E+02 -13.2330 1.207658E+03 2.448947E+02 4.813816E+02 13 7.494997E+02 3.507684E+02 -5.560833E+02 -35.1382 1.140875E+03 -4.060724E+01 5.907413E+02 15 8.162839E+02 1.055447E+02 5.213225E+01 4.1728 8.200875E+02 1.017412E+02 3.591731E+02 16 4.537765E+02 1.586376E+02 8.244919E+00 1.5989 4.540067E+02 1.584075E+02 1.477996E+02 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) ELEMENT MAX AVG SAFETY ELEMENT MAX AVG SAFETY ID. SHEAR SHEAR MARGIN ID. SHEAR SHEAR MARGIN 18 9.765625E-04 -9.765625E-04 19 7.697510E+00 -7.697510E+00 20 5.029854E+02 -5.029854E+02 21 4.800723E+02 -4.800723E+02 22 2.419910E+03 -2.419910E+03 28 2.219727E+01 2.219727E+01 29 1.801326E+02 1.801326E+02 30 1.939668E+02 -1.503409E+02 31 6.884410E+02 -4.049571E+02 35 4.882812E-04 -4.882812E-04 36 5.405914E+02 -5.405914E+02 41 3.040684E+02 1.770876E+02 42 5.145917E+02 -4.365647E+02 43 6.565245E+02 -5.569764E+02 44 6.504534E+02 -3.788201E+02 50 1.605508E+03 1.605508E+03 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A 0 LOAD ON TRAILING EDGE S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 10 1.040421E+03 4.122435E+02 -6.070105E+02 -31.3207 1.409790E+03 4.287537E+01 6.834571E+02 14 6.342002E+02 4.034127E+02 -3.452886E+02 -35.7603 8.828668E+02 1.547461E+02 3.640604E+02 17 1.722195E+02 2.339284E+02 -9.402055E+01 -54.0841 3.020278E+02 1.041201E+02 9.895383E+01 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A LOAD ON TRAILING EDGE 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. * * * END OF JOB * * * 1 JOB TITLE = DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS DATE: 5/17/95 END TIME: 14: 5:34 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d01014a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01014A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 5 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 3 LABEL = LOAD ON TRAILING EDGE 4 SPC = 1 5 LOAD = 1 6 OUTPUT 7 $ SET 1 HAS GRIDS ON THE UPPER SURFACE * * * * * * * * * * * * * * * 8 $ SET 2 HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE), 9 $ SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP) * * * * * * * * 10 $ 11 SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93 12 SET 2 = 1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50 13 $ 14 DISPLACEMENTS = 1 15 SPCFORCE = ALL 16 ESE = ALL 17 ELSTRESS = 2 18 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 169, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CONROD 100 11 12 1 .035 2- CONROD 101 12 13 1 .035 3- CONROD 102 13 14 1 .0344 4- CONROD 103 14 15 1 .0325 5- CONROD 104 15 16 1 .03 6- CONROD 105 31 32 1 .091 7- CONROD 106 32 33 1 .091 8- CONROD 107 33 34 1 .088 9- CONROD 108 34 35 1 .0719 10- CONROD 109 35 36 1 .0453 11- CONROD 110 51 52 1 .11 12- CONROD 111 52 53 1 .11 13- CONROD 112 53 54 1 .094 14- CONROD 113 54 55 1 .0563 15- CONROD 114 71 72 1 .091 16- CONROD 115 72 73 1 .091 17- CONROD 116 73 74 1 .0649 18- CONROD 117 91 92 1 .035 19- CONROD 118 92 93 1 .035 20- CONROD 119 12 32 1 .063 21- CONROD 120 32 52 1 .1002 22- CONROD 121 52 72 1 .1002 23- CONROD 122 72 92 1 .063 24- CONROD 123 13 33 1 .063 25- CONROD 124 33 53 1 .1002 26- CONROD 125 53 73 1 .1002 27- CONROD 126 73 93 1 .063 28- CONROD 127 14 34 1 .0572 29- CONROD 128 34 54 1 .0805 30- CONROD 129 54 74 1 .0572 31- CONROD 130 15 35 1 .0474 32- CONROD 131 35 55 1 .0474 33- CONROD 132 16 36 1 .028 34- CONROD 133 93 74 1 .0344 35- CONROD 134 74 55 1 .0325 36- CONROD 135 55 36 1 .03 37- CQDMEM2 1 1 11 12 32 31 38- CQDMEM2 2 1 12 13 33 32 39- CQDMEM2 3 1 13 14 34 33 40- CQDMEM2 4 1 14 15 35 34 41- CQDMEM2 5 1 15 16 36 35 42- CQDMEM2 6 1 31 32 52 51 43- CQDMEM2 7 1 32 33 53 52 44- CQDMEM2 8 1 33 34 54 53 45- CQDMEM2 9 1 34 35 55 54 46- CQDMEM2 11 1 51 52 72 71 47- CQDMEM2 12 1 52 53 73 72 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A LOAD ON TRAILING EDGE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQDMEM2 13 1 53 54 74 73 49- CQDMEM2 15 1 71 72 92 91 50- CQDMEM2 16 1 72 73 93 92 51- CROD 60 5 1 11 61 6 2 12 52- CROD 62 8 3 13 63 8 4 14 53- CROD 64 8 5 15 65 6 6 16 54- CROD 66 6 21 31 67 7 22 32 55- CROD 68 9 23 33 69 9 24 34 56- CROD 70 9 25 35 71 8 26 36 57- CROD 72 6 41 51 73 7 42 52 58- CROD 74 9 43 53 75 9 44 54 59- CROD 76 9 45 55 77 6 61 71 60- CROD 78 7 62 72 79 9 63 73 61- CROD 80 9 64 74 81 5 81 91 62- CROD 82 6 82 92 83 8 83 93 63- CSHEAR 18 2 1 2 12 11 64- CSHEAR 19 2 2 3 13 12 65- CSHEAR 20 2 3 4 14 13 66- CSHEAR 21 2 4 5 15 14 67- CSHEAR 22 2 5 6 16 15 68- CSHEAR 23 2 21 22 32 31 69- CSHEAR 24 2 22 23 33 32 70- CSHEAR 25 2 23 24 34 33 71- CSHEAR 26 2 24 25 35 34 72- CSHEAR 27 2 25 26 36 35 73- CSHEAR 28 2 41 42 52 51 74- CSHEAR 29 2 42 43 53 52 75- CSHEAR 30 2 43 44 54 53 76- CSHEAR 31 2 44 45 55 54 77- CSHEAR 32 2 61 62 72 71 78- CSHEAR 33 2 62 63 73 72 79- CSHEAR 34 2 63 64 74 73 80- CSHEAR 35 2 81 82 92 91 81- CSHEAR 36 2 82 83 93 92 82- CSHEAR 37 2 2 22 32 12 83- CSHEAR 38 2 22 42 52 32 84- CSHEAR 39 2 42 62 72 52 85- CSHEAR 40 2 62 82 92 72 86- CSHEAR 41 2 3 23 33 13 87- CSHEAR 42 2 23 43 53 33 88- CSHEAR 43 2 43 63 73 53 89- CSHEAR 44 2 63 83 93 73 90- CSHEAR 45 2 4 24 34 14 91- CSHEAR 46 2 24 44 54 34 92- CSHEAR 47 2 44 64 74 54 93- CSHEAR 48 2 5 25 35 15 94- CSHEAR 49 2 25 45 55 35 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A LOAD ON TRAILING EDGE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CSHEAR 50 2 6 26 36 16 96- CSHEAR 51 2 26 45 55 36 97- CSHEAR 52 2 45 64 74 55 98- CSHEAR 53 2 64 83 93 74 99- CTRMEM 10 3 35 36 55 100- CTRMEM 14 3 54 55 74 101- CTRMEM 17 3 73 74 93 102- FORCE 1 16 0 -1. .0 .0 500. 103- FORCE 2 36 -1.0 .0 .0 500.0 104- GRDSET 456 105- GRID 1 .0 .0 .0 106- GRID 2 10. .0 .0 107- GRID 3 30. .0 .0 108- GRID 4 50. .0 .0 109- GRID 5 70. .0 .0 110- GRID 6 90. .0 .0 111- GRID 11 .0 .0 .82 112- GRID 12 10. .0 .82 113- GRID 13 30. .0 .82 114- GRID 14 50. .0 .795 115- GRID 15 70. .0 .754 116- GRID 16 90. .0 .67 117- GRID 21 .0 20. .0 118- GRID 22 10. 20. .0 119- GRID 23 30. 20. .0 120- GRID 24 50. 20. .0 121- GRID 25 70. 20. .0 122- GRID 26 90. 20. .0 123- GRID 31 .0 20. 2.02 124- GRID 32 10. 20. 2.02 125- GRID 33 30. 20. 2.02 126- GRID 34 50. 20. 1.795 127- GRID 35 70. 20. 1.42 128- GRID 36 90. 20. .67 129- GRID 41 .0 40. .0 130- GRID 42 10. 40. .0 131- GRID 43 30. 40. .0 132- GRID 44 50. 40. .0 133- GRID 45 70. 40. .0 134- GRID 51 .0 40. 2.42 135- GRID 52 10. 40. 2.42 136- GRID 53 30. 40. 2.42 137- GRID 54 50. 40. 1.795 138- GRID 55 70. 40. .754 139- GRID 61 .0 60. .0 140- GRID 62 10. 60. .0 141- GRID 63 30. 60. .0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A LOAD ON TRAILING EDGE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 64 50. 60. .0 143- GRID 71 .0 60. 2.02 144- GRID 72 10. 60. 2.02 145- GRID 73 30. 60. 2.02 146- GRID 74 50. 60. .795 147- GRID 81 .0 80. .0 148- GRID 82 10. 80. .0 149- GRID 83 30. 80. .0 150- GRID 91 .0 80. .82 151- GRID 92 10. 80. .82 152- GRID 93 30. 80. .82 153- MAT1 1 10.4 +64. +6 154- MAT1 2 1.04+7 4.+6 .2523-3 155- PARAM IRES 1 156- PQDMEM2 1 2 .16 .0 157- PROD 5 1 2.1 158- PROD 6 1 3.5 159- PROD 7 1 4.91 160- PROD 8 1 4.2 161- PROD 9 1 5.6 162- PSHEAR 2 2 .14 .0 163- PTRMEM 3 2 .16 .0 164- SPC1 1 1 11 31 51 71 91 165- SPC1 1 3 13 33 53 73 93 166- SPC1 1 12 1 2 3 4 5 6 +SPC-A 167- +SPC-A 21 22 23 24 25 26 41 42 +SPC-B 168- +SPC-B 43 44 45 61 62 63 64 81 +SPC-C 169- +SPC-C 82 83 ENDDATA 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 19 PROFILE 509 MAX WAVEFRONT 17 AVG WAVEFRONT 10.604 RMS WAVEFRONT 11.331 RMS BANDWIDTH 12.060 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 15 PROFILE 486 MAX WAVEFRONT 15 AVG WAVEFRONT 10.125 RMS WAVEFRONT 10.743 RMS BANDWIDTH 10.914 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 19 15 PROFILE (P) 509 486 MAXIMUM WAVEFRONT (C-MAX) 17 15 AVERAGE WAVEFRONT (C-AVG) 10.604 10.125 RMS WAVEFRONT (C-RMS) 11.331 10.743 RMS BANDWITCH (B-RMS) 12.060 10.914 NUMBER OF GRID POINTS (N) 48 NUMBER OF ELEMENTS (NON-RIGID) 113 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 13 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 200 MATRIX DENSITY, PERCENT 19.444 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 12 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 4 3 11 4 13 SEQGP 5 7 6 2 11 3 12 5 SEQGP 13 12 14 14 15 10 16 6 SEQGP 21 27 22 18 23 24 24 25 SEQGP 25 15 26 8 31 16 32 17 SEQGP 33 19 34 23 35 20 36 9 SEQGP 41 37 42 30 43 32 44 26 SEQGP 45 21 51 28 52 29 53 31 SEQGP 54 33 55 22 61 44 62 40 SEQGP 63 36 64 34 71 38 72 39 SEQGP 73 41 74 35 81 48 82 47 SEQGP 83 42 91 45 92 46 93 43 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONROD ELEMENTS (ELEMENT TYPE 10) STARTING WITH ID 100 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM2 ELEMENTS (ELEMENT TYPE 63) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 60 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION SHEAR ELEMENTS (ELEMENT TYPE 4) STARTING WITH ID 18 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 10 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -8.0193690E-12 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1-T3). 1 T3 -2.94449E-10 6 T3 4.83465E-09 11 T2 2.27374E-13 11 T3 3.61528E-10 2 T3 1.61037E-10 12 T1 1.63425E-13 12 T2 -4.26326E-14 12 T3 -3.33218E-10 16 T1 -2.81943E-11 16 T2 -2.36469E-11 16 T3 -3.18065E-09 5 T3 4.57658E-09 26 T3 -3.81249E-10 36 T1 -1.81899E-12 36 T2 -1.45519E-11 36 T3 6.66262E-10 15 T1 1.93268E-11 15 T2 -5.00222E-12 15 T3 -2.23474E-09 3 T3 5.07580E-14 13 T1 9.43601E-12 13 T2 1.32971E-12 4 T3 1.23464E-09 14 T1 6.42331E-12 14 T2 -6.36646E-12 14 T3 -4.40821E-11 25 T3 -1.19519E-09 31 T2 -3.41061E-13 31 T3 -2.50496E-10 32 T1 -2.50111E-12 32 T2 8.81073E-13 32 T3 -1.30300E-11 22 T3 1.24146E-10 33 T1 1.70530E-13 33 T2 1.98952E-12 35 T1 6.08225E-12 35 T2 -2.07478E-11 35 T3 2.27926E-09 45 T3 1.13586E-09 55 T1 9.09495E-13 55 T2 -4.54747E-13 55 T3 -3.41011E-10 34 T1 -6.05382E-12 34 T2 -1.27329E-11 34 T3 3.47654E-10 23 T3 -2.09888E-13 24 T3 -1.51203E-11 44 T3 -3.33273E-10 51 T2 2.84217E-14 51 T3 9.94276E-11 52 T1 8.81073E-13 52 T2 8.52651E-13 52 T3 7.03699E-11 42 T3 1.30740E-11 53 T1 -7.29139E-13 53 T2 -3.12639E-13 43 T3 1.49214E-13 54 T1 -1.57883E-11 54 T2 -7.47491E-12 54 T3 1.75793E-10 64 T3 2.83924E-10 74 T1 1.16529E-12 74 T2 2.95586E-12 74 T3 7.53442E-11 63 T3 -1.02141E-13 41 T3 -5.82077E-11 71 T2 -1.13687E-13 71 T3 -2.15046E-11 72 T1 -1.13687E-13 72 T2 3.63798E-12 72 T3 -2.93312E-11 62 T3 -2.14584E-11 73 T1 -5.68434E-14 73 T2 -6.25278E-13 83 T3 7.10543E-14 93 T1 1.81899E-12 93 T2 6.11067E-13 91 T2 5.68434E-14 91 T3 1.16415E-10 92 T1 1.36424E-12 92 T2 2.27374E-12 92 T3 3.94493E-11 82 T3 -3.09797E-10 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE E L E M E N T S T R A I N E N E R G I E S ELEMENT-TYPE = CONROD * TOTAL FOR ALL TYPES = 1.0669881E+02 0 * ELEMENT-ID STRAIN-ENERGY PERCENT OF TOTAL 100 7.988407E-03 0.0075 101 2.409836E-02 0.0226 102 3.317267E-02 0.0311 103 6.349654E-02 0.0595 104 1.417728E-02 0.0133 105 9.144345E-02 0.0857 106 2.413033E-01 0.2262 107 2.883048E-01 0.2702 108 1.747854E-01 0.1638 109 2.152781E-02 0.0202 110 1.064239E-01 0.0997 111 2.123052E-01 0.1990 112 1.469294E-01 0.1377 113 1.666902E-02 0.0156 114 4.466923E-02 0.0419 115 5.330126E-02 0.0500 116 9.557900E-04 0.0009 117 5.726366E-03 0.0054 118 2.457197E-04 0.0002 119 3.711989E-03 0.0035 120 4.448529E-03 0.0042 121 1.889404E-03 0.0018 122 9.093166E-04 0.0009 123 2.691366E-03 0.0025 124 9.108512E-04 0.0009 125 2.005136E-04 0.0002 126 1.883429E-03 0.0018 127 5.049681E-03 0.0047 128 5.204062E-05 0.0000 129 3.108810E-03 0.0029 130 2.271276E-03 0.0021 131 1.749204E-03 0.0016 132 5.887068E-06 0.0000 133 3.266075E-03 0.0031 134 3.249414E-02 0.0305 135 6.731627E-02 0.0631 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE E L E M E N T S T R A I N E N E R G I E S ELEMENT-TYPE = QDMEM2 * TOTAL FOR ALL TYPES = 1.0669881E+02 0 * ELEMENT-ID STRAIN-ENERGY PERCENT OF TOTAL 1 1.877714E+00 1.7598 2 5.519096E+00 5.1726 3 8.704336E+00 8.1579 4 1.463803E+01 13.7190 5 1.327264E+01 12.4393 6 3.221649E+00 3.0194 7 8.364882E+00 7.8397 8 1.304429E+01 12.2253 9 1.388945E+01 13.0174 11 2.380748E+00 2.2313 12 4.562165E+00 4.2757 13 5.533886E+00 5.1865 15 1.045589E+00 0.9799 16 9.123661E-01 0.8551 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE E L E M E N T S T R A I N E N E R G I E S ELEMENT-TYPE = ROD * TOTAL FOR ALL TYPES = 1.0669881E+02 0 * ELEMENT-ID STRAIN-ENERGY PERCENT OF TOTAL 60 0.0 0.0 61 0.0 0.0 62 1.111976E-06 0.0000 63 1.372487E-06 0.0000 64 1.134541E-05 0.0000 65 4.014914E-04 0.0004 66 1.125337E-07 0.0000 67 2.653774E-06 0.0000 68 6.395850E-04 0.0006 69 3.602195E-09 0.0000 70 3.319486E-06 0.0000 71 2.895196E-08 0.0000 72 4.826075E-07 0.0000 73 4.930169E-06 0.0000 74 7.130022E-05 0.0001 75 9.095766E-06 0.0000 76 1.562888E-06 0.0000 77 3.316307E-07 0.0000 78 1.736600E-06 0.0000 79 1.984971E-04 0.0002 80 2.033314E-07 0.0000 81 0.0 0.0 82 0.0 0.0 83 6.973851E-05 0.0001 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE E L E M E N T S T R A I N E N E R G I E S ELEMENT-TYPE = SHEAR * TOTAL FOR ALL TYPES = 1.0669881E+02 0 * ELEMENT-ID STRAIN-ENERGY PERCENT OF TOTAL 18 3.264712E-14 0.0000 19 5.555574E-04 0.0005 20 7.848595E-02 0.0736 21 1.396061E-01 0.1308 22 1.452987E+00 1.3618 23 7.231098E-05 0.0001 24 1.236306E-01 0.1159 25 9.840964E-02 0.0922 26 1.042789E-01 0.0977 27 2.791686E-01 0.2616 28 2.136098E-04 0.0002 29 2.702962E-02 0.0253 30 1.151129E-02 0.0108 31 1.476611E-02 0.0138 32 2.131561E-04 0.0002 33 3.900273E-02 0.0366 34 3.468137E-03 0.0033 35 4.462504E-15 0.0000 36 8.715755E-02 0.0817 37 1.588225E-04 0.0001 38 5.359860E-02 0.0502 39 9.389047E-02 0.0880 40 2.491763E-02 0.0234 41 6.308967E-03 0.0059 42 1.656711E-01 0.1553 43 2.359575E-01 0.2211 44 3.356045E-02 0.0315 45 6.654442E-04 0.0006 46 6.962767E-03 0.0065 47 3.295067E-05 0.0000 48 5.229048E-02 0.0490 49 7.263252E-02 0.0681 50 7.150434E-01 0.6702 51 3.951204E-03 0.0037 52 3.625683E-07 0.0000 53 4.113988E-02 0.0386 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE E L E M E N T S T R A I N E N E R G I E S ELEMENT-TYPE = TRMEM * TOTAL FOR ALL TYPES = 1.0669881E+02 0 * ELEMENT-ID STRAIN-ENERGY PERCENT OF TOTAL 10 2.693934E+00 2.5248 14 1.257643E+00 1.1787 17 1.321577E-01 0.1239 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 0.0 6.369039E-04 4.026382E-02 0.0 0.0 0.0 12 G 6.625130E-04 6.035610E-04 3.622411E-02 0.0 0.0 0.0 13 G 2.289834E-03 2.433819E-04 0.0 0.0 0.0 0.0 14 G 4.113281E-03 -4.025157E-04 -8.193040E-02 0.0 0.0 0.0 15 G 6.564544E-03 -1.838500E-03 -2.233857E-01 0.0 0.0 0.0 16 G 7.058426E-03 -3.955205E-03 -4.267952E-01 0.0 0.0 0.0 31 G 0.0 6.929894E-04 3.088420E-02 0.0 0.0 0.0 32 G 1.390125E-03 6.509469E-04 2.747888E-02 0.0 0.0 0.0 33 G 4.583679E-03 -1.630613E-04 0.0 0.0 0.0 0.0 34 G 7.405066E-03 -1.844160E-03 -6.477342E-02 0.0 0.0 0.0 35 G 8.560961E-03 -4.170824E-03 -1.662485E-01 0.0 0.0 0.0 36 G 4.914715E-03 -3.983642E-03 -2.995721E-01 0.0 0.0 0.0 51 G 0.0 3.152463E-04 2.439899E-02 0.0 0.0 0.0 52 G 1.364023E-03 3.544406E-04 2.163669E-02 0.0 0.0 0.0 53 G 4.088589E-03 -3.501009E-04 0.0 0.0 0.0 0.0 54 G 5.152458E-03 -1.894024E-03 -4.447462E-02 0.0 0.0 0.0 55 G 2.889915E-03 -1.870304E-03 -1.084868E-01 0.0 0.0 0.0 71 G 0.0 -6.402508E-05 2.056971E-02 0.0 0.0 0.0 72 G 9.715874E-04 1.684427E-05 1.822609E-02 0.0 0.0 0.0 73 G 2.472521E-03 -2.623439E-04 0.0 0.0 0.0 0.0 74 G 1.121520E-03 -5.099169E-04 -2.595375E-02 0.0 0.0 0.0 91 G 0.0 -2.568779E-04 2.186147E-02 0.0 0.0 0.0 92 G 5.609238E-04 -2.064985E-04 1.844120E-02 0.0 0.0 0.0 93 G 7.252471E-04 7.766333E-05 0.0 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.583409E-10 0.0 0.0 0.0 0.0 0.0 2 G 6.159551E+01 -2.500412E+01 0.0 0.0 0.0 0.0 3 G 7.993619E+02 -1.575899E+02 0.0 0.0 0.0 0.0 4 G 1.742463E+03 5.360886E+01 0.0 0.0 0.0 0.0 5 G 4.385215E+03 -5.188792E+02 0.0 0.0 0.0 0.0 6 G 3.380518E+03 -2.444683E+03 0.0 0.0 0.0 0.0 11 G -1.440464E+03 0.0 0.0 0.0 0.0 0.0 13 G 0.0 0.0 2.328759E+01 0.0 0.0 0.0 21 G -1.001171E+01 0.0 0.0 0.0 0.0 0.0 22 G -5.954501E+02 3.426589E+02 0.0 0.0 0.0 0.0 23 G -4.795281E+01 4.888026E+02 0.0 0.0 0.0 0.0 24 G 1.140154E+03 2.009932E+02 0.0 0.0 0.0 0.0 25 G 1.825346E+03 -1.130416E+03 0.0 0.0 0.0 0.0 26 G 1.074440E+03 -2.296445E+03 0.0 0.0 0.0 0.0 31 G -4.576857E+03 0.0 0.0 0.0 0.0 0.0 33 G 0.0 0.0 4.822010E+02 0.0 0.0 0.0 41 G -1.572080E+01 0.0 0.0 0.0 0.0 0.0 42 G -2.658167E+02 8.542761E+02 0.0 0.0 0.0 0.0 43 G -7.524690E+01 1.417811E+03 0.0 0.0 0.0 0.0 44 G 4.293880E+02 1.593136E+02 0.0 0.0 0.0 0.0 45 G 1.076619E+02 -4.646599E+02 0.0 0.0 0.0 0.0 51 G -4.769151E+03 0.0 0.0 0.0 0.0 0.0 53 G 0.0 0.0 2.748912E+02 0.0 0.0 0.0 61 G -1.718889E+01 0.0 0.0 0.0 0.0 0.0 62 G 3.116368E+02 7.997990E+02 0.0 0.0 0.0 0.0 63 G 4.461806E+02 1.134884E+03 0.0 0.0 0.0 0.0 64 G -3.304393E+02 4.597235E+02 0.0 0.0 0.0 0.0 71 G -3.513612E+03 0.0 0.0 0.0 0.0 0.0 73 G 0.0 0.0 -8.953587E+01 0.0 0.0 0.0 81 G -3.165042E-10 0.0 0.0 0.0 0.0 0.0 82 G 7.715068E+02 3.131859E+02 0.0 0.0 0.0 0.0 83 G 3.223515E+02 8.126208E+02 0.0 0.0 0.0 0.0 91 G -1.139908E+03 0.0 0.0 0.0 0.0 0.0 93 G 0.0 0.0 -1.908440E+02 0.0 0.0 0.0 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) ELEMENT STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.088894E+03 7.174078E+01 -3.159946E+01 -1.7777 1.089875E+03 7.076007E+01 5.095574E+02 2 1.301913E+03 1.616174E+02 -1.971363E+02 -9.5368 1.335032E+03 1.284980E+02 6.032670E+02 3 1.495339E+03 2.029335E+02 -4.909373E+02 -18.6124 1.660676E+03 3.759601E+01 8.115400E+02 4 1.631106E+03 2.694280E+02 -9.355760E+02 -26.9779 2.107351E+03 -2.068174E+02 1.157084E+03 5 9.478574E+02 3.167808E+02 -1.152115E+03 -37.3418 1.826862E+03 -5.622238E+02 1.194543E+03 6 1.494905E+03 2.091598E+02 -2.784482E+01 -1.2401 1.495508E+03 2.085571E+02 6.434753E+02 7 1.639450E+03 3.357961E+02 -3.021451E+02 -12.4347 1.706073E+03 2.691732E+02 7.184498E+02 8 1.731677E+03 4.841033E+02 -7.492800E+02 -25.1111 2.082842E+03 1.329387E+02 9.749516E+02 9 1.322923E+03 5.638553E+02 -1.022839E+03 -34.8211 2.034373E+03 -1.475947E+02 1.090984E+03 11 1.285619E+03 2.370070E+02 5.191833E+00 0.2837 1.285645E+03 2.369814E+02 5.243318E+02 12 1.191724E+03 3.103128E+02 -2.194538E+02 -13.2357 1.243341E+03 2.586960E+02 4.923223E+02 13 8.675933E+02 4.397802E+02 -5.826329E+02 -34.9200 1.274345E+03 3.302814E+01 6.206586E+02 15 8.324529E+02 1.184902E+02 5.425244E+01 4.3207 8.365519E+02 1.143912E+02 3.610804E+02 16 4.846491E+02 1.722750E+02 4.698929E+00 0.8616 4.847198E+02 1.722043E+02 1.562577E+02 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE S T R E S S E S I N S H E A R P A N E L S ( C S H E A R ) ELEMENT MAX AVG SAFETY ELEMENT MAX AVG SAFETY ID. SHEAR SHEAR MARGIN ID. SHEAR SHEAR MARGIN 18 9.765625E-04 9.765625E-04 19 4.399683E+01 -4.399683E+01 20 5.269736E+02 -5.269736E+02 21 7.176406E+02 -7.176406E+02 22 2.414652E+03 -2.414652E+03 28 2.245850E+01 2.245850E+01 29 1.786398E+02 1.786398E+02 30 1.683785E+02 -1.305078E+02 31 4.328295E+02 -2.546004E+02 35 4.882812E-04 -4.882812E-04 36 5.510758E+02 -5.510758E+02 41 2.772922E+02 1.614933E+02 42 5.531365E+02 -4.692649E+02 43 6.601245E+02 -5.600304E+02 44 6.395472E+02 -3.724684E+02 50 1.746203E+03 1.746203E+03 1 DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A 0 LOAD ON TRAILING EDGE S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 10 8.375298E+02 4.491918E+02 -6.419191E+02 -36.5852 1.314004E+03 -2.728198E+01 6.706428E+02 14 6.884886E+02 4.465347E+02 -3.543126E+02 -35.5740 9.419083E+02 1.931150E+02 3.743966E+02 17 1.942242E+02 2.352710E+02 -8.755251E+01 -51.5963 3.046734E+02 1.248218E+02 8.992580E+01 * * * END OF JOB * * * 1 JOB TITLE = DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS DATE: 5/17/95 END TIME: 14: 6: 4 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01021a.out ================================================ NASTRAN FILES=(NPTP,PLT2) **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01021A,NASTRAN CHKPNT YES TIME 15 APP DISPLACEMENT SOL 1,1 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE PUNCHED OUT FOR THIS PROBLEM 0 RESTART D01021A ,NASTRAN , 5/17/95, 52113, 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 3 LOAD = 1 4 SPC = 2 5 OUTPUT 6 DISP = ALL 7 SPCF = ALL 8 STRESS = ALL 9 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 10 OUTPUT(PLOT) 11 PLOTTER NASTPLT 12 MAXIMUM DEFORMATION 6.0 13 $ 14 $ ALL ELEMENTS 15 SET 1 = ELEMENTS TRIA2 16 $ 17 $ PLOTEL - EDGES AND CENTERLINE 18 SET 2 = PLOTEL 19 $ 20 VIEW 20.0, 30.0, 0.0 21 FIND SCALE ORIGIN 1 SET 1 22 PTITLE = UNDEFORMED SECTION TRIA2 ELEMENTS 23 PLOT LABEL(BOTH), SYMBOLS 6,SHRINK 24 PTITLE = SECTION TRIA2 ELEMENTS WITH UNDERLAY 25 PLOT STATIC DEFORMATION 0,1, SET 1, ORIGIN 1,SHAPE, LABELS 26 $ 27 $ 28 PERSPECTIVE PROJECTION 29 $ 30 MAXIMUM DEFORMATION 6.0 31 FIND SCALE, SET 2, ORIGIN 1000 32 FIND SCALE,ORIGIN 1000, SET 1,VANT POINT,REGION 0.35,0.1, 0.9, 0.8 33 PTITLE = SECTION PLOTEL ELEMENTS (PERSPECTIVE PROJECTION) 34 PLOT SET 2, ORIGIN 1000, LABELS 35 PTITLE = FULL MODEL (VIA SYMMETRY) TRIA2 ELEMENTS - PERSPECTIVE 36 PLOT SET 1, ORIGIN 1000, SYMBOLS 9, SHAPE,SHRINK, 37 SET 1, ORIGIN 1000 SYMBOLS 9 SHAPE SYMMETRY X, 38 SET 1, ORIGIN 1000 SYMBOLS 9 SHAPE SYMMETRY Y, 39 SET 1, ORIGIN 1000 SYMBOLS 9 SHAPE SYMMETRY XY 40 PTITLE = FULL MODEL (VIA SYMMETRY) PLOTEL ELEMENTS - PERSPECTIVE 41 PLOT STATIC DEFORMATION 0,1, 42 SET 2, ORIGIN 1000, SHAPE, 43 SET 2, ORIGIN 1000, SHAPE, SYMMETRY X, 44 SET 2, ORIGIN 1000, SHAPE, SYMMETRY Y, 45 SET 2, ORIGIN 1000, SHAPE, SYMMETRY XY 46 BEGIN BULK 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A (NO. OF UNSORTED BULK DATA CARDS READ = 91, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2S 2 .0 .0 .0 .0 .0 1. +COR1 2- +COR1 1.000 .000 .000 3- CTRIA2 1 31 1 6 26 .0 4- CTRIA2 2 31 6 11 26 .0 5- CTRIA2 3 31 2 7 1 .0 6- CTRIA2 4 31 6 1 7 .0 7- CTRIA2 5 31 7 12 6 .0 8- CTRIA2 6 31 11 6 12 .0 9- CTRIA2 7 31 12 16 11 .0 10- CTRIA2 8 31 3 8 2 .0 11- CTRIA2 9 31 7 2 8 .0 12- CTRIA2 10 31 8 13 7 .0 13- CTRIA2 11 31 12 7 13 .0 14- CTRIA2 12 31 13 17 12 .0 15- CTRIA2 13 31 16 12 17 .0 16- CTRIA2 14 31 17 20 16 .0 17- CTRIA2 15 31 4 9 3 .0 18- CTRIA2 16 31 8 3 9 .0 19- CTRIA2 17 31 9 14 8 .0 20- CTRIA2 18 31 13 8 14 .0 21- CTRIA2 19 31 14 18 13 .0 22- CTRIA2 20 31 17 13 18 .0 23- CTRIA2 21 31 18 21 17 .0 24- CTRIA2 22 31 20 17 21 .0 25- CTRIA2 23 31 21 23 20 .0 26- CTRIA2 24 31 5 10 4 .0 27- CTRIA2 25 31 9 4 10 .0 28- CTRIA2 26 31 10 15 9 .0 29- CTRIA2 27 31 14 9 15 .0 30- CTRIA2 28 31 15 19 14 .0 31- CTRIA2 29 31 18 14 19 .0 32- CTRIA2 30 31 19 22 18 .0 33- CTRIA2 31 31 21 18 22 .0 34- CTRIA2 32 31 22 24 21 .0 35- CTRIA2 33 31 23 21 24 .0 36- CTRIA2 34 31 24 25 23 .0 37- GRDSET 2 2 38- GRID 1 90. 7. .0 39- GRID 2 90. 14.0 .0 40- GRID 3 90. 21.0 .0 41- GRID 4 90. 28.0 .0 42- GRID 5 90. 35.0 .0 43- GRID 6 90. 7.0 45.0 44- GRID 7 90. 14.0 30.0 45- GRID 8 90. 21.0 22.5 46- GRID 9 90. 28.0 18.0 47- GRID 10 90. 35.0 15.0 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 11 90. 7.0 90.0 49- GRID 12 90. 14.0 60.0 50- GRID 13 90. 21.0 45.0 51- GRID 14 90. 28.0 36.0 52- GRID 15 90. 35.0 30.0 53- GRID 16 90. 14.0 90.0 54- GRID 17 90. 21.0 67.5 55- GRID 18 90. 28.0 54.0 56- GRID 19 90. 35.0 45.0 57- GRID 20 90. 21.0 90.0 58- GRID 21 90. 28.0 72.0 59- GRID 22 90. 35.0 60.0 60- GRID 23 90. 28.0 90.0 61- GRID 24 90. 35.0 75.0 62- GRID 25 90. 35.0 90.0 63- GRID 26 0 .0 .0 90.0 0 64- MAT1 1 3.+6 .1666 65- PLOAD2 1 -1.0 1 2 3 4 5 6 66- PLOAD2 1 -1.0 7 8 9 10 11 12 67- PLOAD2 1 -1.0 13 14 15 16 17 18 68- PLOAD2 1 -1.0 19 20 21 22 23 24 69- PLOAD2 1 -1.0 25 26 27 28 29 30 70- PLOAD2 1 -1.0 31 32 33 34 71- PLOTEL 50 26 1 51 1 2 72- PLOTEL 52 2 3 53 3 4 73- PLOTEL 54 4 5 55 5 10 74- PLOTEL 56 10 15 57 15 19 75- PLOTEL 58 19 22 59 22 24 76- PLOTEL 60 24 25 61 25 23 77- PLOTEL 62 23 20 63 20 16 78- PLOTEL 64 16 11 65 11 26 79- PLOTEL 66 3 8 67 8 13 80- PLOTEL 68 13 17 69 17 20 81- PTRIA2 31 1 3. 82- SPC 1 26 12456 .0 83- SPC1 1 345 1 2 3 4 11 16 +SPC1-2 84- +SPC1-2 20 23 85- SPC1 1 123456 5 10 15 19 22 24 +SPC1-1 86- +SPC1-1 25 87- SPC1 2 2 10 15 19 22 24 88- SPC1 2 345 1 2 3 4 11 16 +SPC2-1 89- +SPC2-1 20 23 90- SPC1 2 2345 5 25 91- SPC1 2 12456 26 ENDDATA 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 CONTINUATION OF CHECKPOINT DICTIONARY 1, XVPS , FLAGS = 0, REEL = 1, FILE = 5 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 26 PROFILE 153 MAX WAVEFRONT 8 AVG WAVEFRONT 5.885 RMS WAVEFRONT 6.168 RMS BANDWIDTH 7.382 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 7 PROFILE 131 MAX WAVEFRONT 7 AVG WAVEFRONT 5.038 RMS WAVEFRONT 5.302 RMS BANDWIDTH 5.374 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 26 7 PROFILE (P) 153 131 MAXIMUM WAVEFRONT (C-MAX) 8 7 AVERAGE WAVEFRONT (C-AVG) 5.885 5.038 RMS WAVEFRONT (C-RMS) 6.168 5.302 RMS BANDWITCH (B-RMS) 7.382 5.374 NUMBER OF GRID POINTS (N) 26 NUMBER OF ELEMENTS (NON-RIGID) 34 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 6 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 59 MATRIX DENSITY, PERCENT 21.302 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 7 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 5 2 4 3 3 4 2 SEQGP 5 1 6 11 7 9 8 8 SEQGP 9 7 10 6 11 16 12 15 SEQGP 13 14 14 13 15 12 16 20 SEQGP 17 19 18 18 19 17 20 23 SEQGP 21 22 22 21 23 25 24 24 SEQGP 25 26 26 10 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 2, REENTER AT DMAP SEQUENCE NUMBER 12 3, GPL , FLAGS = 0, REEL = 1, FILE = 6 4, EQEXIN , FLAGS = 0, REEL = 1, FILE = 7 5, GPDT , FLAGS = 0, REEL = 1, FILE = 8 6, CSTM , FLAGS = 0, REEL = 1, FILE = 9 7, BGPDT , FLAGS = 0, REEL = 1, FILE = 10 8, SIL , FLAGS = 0, REEL = 1, FILE = 11 9, XVPS , FLAGS = 0, REEL = 1, FILE = 12 10, REENTER AT DMAP SEQUENCE NUMBER 13 11, XVPS , FLAGS = 0, REEL = 1, FILE = 13 12, MPTA , FLAGS = 0, REEL = 0, FILE = 0 13, REENTER AT DMAP SEQUENCE NUMBER 14 14, MPT , FLAGS = 0, REEL = 1, FILE = 14 15, XVPS , FLAGS = 0, REEL = 1, FILE = 15 16, REENTER AT DMAP SEQUENCE NUMBER 15 17, BGPDP , FLAGS = 0, REEL = 1, FILE = 16 18, SIP , FLAGS = 0, REEL = 1, FILE = 17 19, XVPS , FLAGS = 0, REEL = 1, FILE = 18 20, REENTER AT DMAP SEQUENCE NUMBER 16 21, ECT , FLAGS = 0, REEL = 1, FILE = 19 22, XVPS , FLAGS = 0, REEL = 1, FILE = 20 23, REENTER AT DMAP SEQUENCE NUMBER 18 24, XVPS , FLAGS = 0, REEL = 1, FILE = 21 25, PLTSETX , FLAGS = 0, REEL = 0, FILE = 0 26, PLTPAR , FLAGS = 0, REEL = 0, FILE = 0 27, GPSETS , FLAGS = 0, REEL = 0, FILE = 0 28, ELSETS , FLAGS = 0, REEL = 0, FILE = 0 29, REENTER AT DMAP SEQUENCE NUMBER 20 30, PLTSETX , FLAGS = 0, REEL = 1, FILE = 22 31, PLTPAR , FLAGS = 0, REEL = 1, FILE = 23 32, GPSETS , FLAGS = 0, REEL = 1, FILE = 24 33, ELSETS , FLAGS = 0, REEL = 1, FILE = 25 34, XVPS , FLAGS = 0, REEL = 1, FILE = 26 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 35, REENTER AT DMAP SEQUENCE NUMBER 25 36, PLOTX1 , FLAGS = 0, REEL = 1, FILE = 27 37, XVPS , FLAGS = 0, REEL = 1, FILE = 28 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 20.00, BETA = 30.00, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 9.011667E-02 ORIGIN 1 - X0 = -9.365200E-01, Y0 = 0.174988E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 1 USED IN THIS PLOT 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A PERSPECTIVE PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 0.00, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 5.789204E-02 VANTAGE POINT (INCHES) - RO = 1.863494E+02, S0 = 0.257393E+02, T0 = 0.171639E+03 PROJECTION PLANE SEPARATION (INCHES) = 1.346651E+02 ORIGIN 1000 - X0 = -2.619190E+00, Y0 = 0.257952E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 2 UNDEFORMED SHAPE ORIGIN 1000 USED IN THIS PLOT 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A PERSPECTIVE PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 0.00, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 5.789204E-02 VANTAGE POINT (INCHES) - RO = 1.863494E+02, S0 = 0.257393E+02, T0 = 0.171639E+03 PROJECTION PLANE SEPARATION (INCHES) = 1.346651E+02 ORIGIN 1000 - X0 = -2.619190E+00, Y0 = 0.257952E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 3 UNDEFORMED SHAPE AN UNRECOGNIZABLE OPTION (SHAPE ) WAS DETECTED ON A -PLOT- CARD ORIGIN 1000 USED IN THIS PLOT 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 38, REENTER AT DMAP SEQUENCE NUMBER 28 39, SLT , FLAGS = 0, REEL = 1, FILE = 29 40, XVPS , FLAGS = 0, REEL = 1, FILE = 30 41, GPTT , FLAGS = 0, REEL = 0, FILE = 0 42, REENTER AT DMAP SEQUENCE NUMBER 30 43, EST , FLAGS = 0, REEL = 1, FILE = 31 44, GPECT , FLAGS = 0, REEL = 1, FILE = 32 45, XVPS , FLAGS = 0, REEL = 1, FILE = 33 46, GEI , FLAGS = 0, REEL = 0, FILE = 0 47, MPTX , FLAGS = 0, REEL = 0, FILE = 0 48, PCOMPS , FLAGS = 0, REEL = 0, FILE = 0 49, EPTX , FLAGS = 0, REEL = 0, FILE = 0 50, REENTER AT DMAP SEQUENCE NUMBER 31 51, MPT , FLAGS = 0, REEL = 1, FILE = 34 52, EPT , FLAGS = 0, REEL = 1, FILE = 35 53, XVPS , FLAGS = 0, REEL = 1, FILE = 36 54, REENTER AT DMAP SEQUENCE NUMBER 34 55, XVPS , FLAGS = 0, REEL = 1, FILE = 37 56, KGGX , FLAGS = 0, REEL = 0, FILE = 0 57, REENTER AT DMAP SEQUENCE NUMBER 35 58, XVPS , FLAGS = 0, REEL = 1, FILE = 38 59, OPTP1 , FLAGS = 0, REEL = 0, FILE = 0 60, REENTER AT DMAP SEQUENCE NUMBER 39 61, XVPS , FLAGS = 0, REEL = 1, FILE = 39 62, OPTP2 , FLAGS = 0, REEL = 0, FILE = 0 63, EST1 , FLAGS = 0, REEL = 0, FILE = 0 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIA2 ELEMENTS (ELEMENT TYPE 17) STARTING WITH ID 1 64, REENTER AT DMAP SEQUENCE NUMBER 40 65, KELM , FLAGS = 0, REEL = 1, FILE = 40 66, KDICT , FLAGS = 0, REEL = 1, FILE = 41 67, XVPS , FLAGS = 0, REEL = 1, FILE = 42 68, MELM , FLAGS = 0, REEL = 0, FILE = 0 69, MDICT , FLAGS = 0, REEL = 0, FILE = 0 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 70, REENTER AT DMAP SEQUENCE NUMBER 42 71, KGGX , FLAGS = 0, REEL = 1, FILE = 43 72, XVPS , FLAGS = 0, REEL = 1, FILE = 44 73, REENTER AT DMAP SEQUENCE NUMBER 44 74, XVPS , FLAGS = 0, REEL = 1, FILE = 45 75, MGG , FLAGS = 0, REEL = 0, FILE = 0 76, REENTER AT DMAP SEQUENCE NUMBER 54 77, KGGX , FLAGS = 4, REEL = 1, FILE = 43 78, KGG , FLAGS = 4, REEL = 1, FILE = 43 79, XVPS , FLAGS = 0, REEL = 1, FILE = 46 80, REENTER AT DMAP SEQUENCE NUMBER 58 81, GPST , FLAGS = 0, REEL = 1, FILE = 47 82, XVPS , FLAGS = 0, REEL = 1, FILE = 48 83, REENTER AT DMAP SEQUENCE NUMBER 61 84, YS , FLAGS = 0, REEL = 1, FILE = 49 85, USET , FLAGS = 0, REEL = 1, FILE = 50 86, XVPS , FLAGS = 0, REEL = 1, FILE = 51 87, RG , FLAGS = 0, REEL = 0, FILE = 0 88, ASET , FLAGS = 0, REEL = 0, FILE = 0 89, OGPST , FLAGS = 0, REEL = 0, FILE = 0 90, REENTER AT DMAP SEQUENCE NUMBER 65 91, XVPS , FLAGS = 0, REEL = 1, FILE = 52 92, KRR , FLAGS = 0, REEL = 0, FILE = 0 93, KLR , FLAGS = 0, REEL = 0, FILE = 0 94, QR , FLAGS = 0, REEL = 0, FILE = 0 95, DM , FLAGS = 0, REEL = 0, FILE = 0 96, GM , FLAGS = 0, REEL = 0, FILE = 0 97, GO , FLAGS = 0, REEL = 0, FILE = 0 98, KOO , FLAGS = 0, REEL = 0, FILE = 0 99, LOO , FLAGS = 0, REEL = 0, FILE = 0 100, PO , FLAGS = 0, REEL = 0, FILE = 0 101, UOOV , FLAGS = 0, REEL = 0, FILE = 0 102, RUOV , FLAGS = 0, REEL = 0, FILE = 0 103, PS , FLAGS = 0, REEL = 0, FILE = 0 104, KFS , FLAGS = 0, REEL = 0, FILE = 0 105, KSS , FLAGS = 0, REEL = 0, FILE = 0 106, QG , FLAGS = 0, REEL = 0, FILE = 0 107, REENTER AT DMAP SEQUENCE NUMBER 66 108, KNN , FLAGS = 4, REEL = 1, FILE = 43 109, XVPS , FLAGS = 0, REEL = 1, FILE = 53 110, REENTER AT DMAP SEQUENCE NUMBER 71 111, XVPS , FLAGS = 0, REEL = 1, FILE = 54 112, KFF , FLAGS = 0, REEL = 0, FILE = 0 113, REENTER AT DMAP SEQUENCE NUMBER 73 114, KFF , FLAGS = 0, REEL = 1, FILE = 55 115, KFS , FLAGS = 0, REEL = 1, FILE = 56 116, KSS , FLAGS = 0, REEL = 1, FILE = 57 117, XVPS , FLAGS = 0, REEL = 1, FILE = 58 118, REENTER AT DMAP SEQUENCE NUMBER 75 119, KFF , FLAGS = 4, REEL = 1, FILE = 55 120, KAA , FLAGS = 4, REEL = 1, FILE = 55 121, XVPS , FLAGS = 0, REEL = 1, FILE = 59 122, REENTER AT DMAP SEQUENCE NUMBER 79 123, KLL , FLAGS = 4, REEL = 1, FILE = 55 124, XVPS , FLAGS = 0, REEL = 1, FILE = 60 125, REENTER AT DMAP SEQUENCE NUMBER 83 126, LLL , FLAGS = 0, REEL = 1, FILE = 61 127, XVPS , FLAGS = 0, REEL = 1, FILE = 62 128, REENTER AT DMAP SEQUENCE NUMBER 87 129, PG , FLAGS = 0, REEL = 1, FILE = 63 130, XVPS , FLAGS = 0, REEL = 1, FILE = 64 131, REENTER AT DMAP SEQUENCE NUMBER 88 132, XVPS , FLAGS = 0, REEL = 1, FILE = 65 133, PL , FLAGS = 0, REEL = 0, FILE = 0 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 134, REENTER AT DMAP SEQUENCE NUMBER 90 135, PS , FLAGS = 0, REEL = 1, FILE = 66 136, PL , FLAGS = 0, REEL = 1, FILE = 67 137, XVPS , FLAGS = 0, REEL = 1, FILE = 68 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 3.5496181E-16 138, REENTER AT DMAP SEQUENCE NUMBER 92 139, ULV , FLAGS = 0, REEL = 1, FILE = 69 140, RULV , FLAGS = 0, REEL = 1, FILE = 70 141, XVPS , FLAGS = 0, REEL = 1, FILE = 71 142, REENTER AT DMAP SEQUENCE NUMBER 97 143, UGV , FLAGS = 0, REEL = 1, FILE = 72 144, PGG , FLAGS = 0, REEL = 1, FILE = 73 145, QG , FLAGS = 0, REEL = 1, FILE = 74 146, XVPS , FLAGS = 0, REEL = 1, FILE = 75 147, REENTER AT DMAP SEQUENCE NUMBER 104 148, XVPS , FLAGS = 0, REEL = 1, FILE = 76 149, ONRGY1 , FLAGS = 0, REEL = 0, FILE = 0 150, OGPFB1 , FLAGS = 0, REEL = 0, FILE = 0 151, REENTER AT DMAP SEQUENCE NUMBER 105 152, XVPS , FLAGS = 0, REEL = 1, FILE = 77 153, KDICT , FLAGS = 0, REEL = 0, FILE = 0 154, KELM , FLAGS = 0, REEL = 0, FILE = 0 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 155, REENTER AT DMAP SEQUENCE NUMBER 111 156, OQG1 , FLAGS = 0, REEL = 1, FILE = 78 157, OUGV1 , FLAGS = 0, REEL = 1, FILE = 79 158, OES1 , FLAGS = 0, REEL = 1, FILE = 80 159, PUGV1 , FLAGS = 0, REEL = 1, FILE = 81 160, XVPS , FLAGS = 0, REEL = 1, FILE = 82 161, OPG1 , FLAGS = 0, REEL = 0, FILE = 0 162, OEF1 , FLAGS = 0, REEL = 0, FILE = 0 163, OES1L , FLAGS = 0, REEL = 0, FILE = 0 164, OEF1L , FLAGS = 0, REEL = 0, FILE = 0 165, REENTER AT DMAP SEQUENCE NUMBER 115 166, XVPS , FLAGS = 0, REEL = 1, FILE = 83 167, OES1M , FLAGS = 0, REEL = 0, FILE = 0 168, REENTER AT DMAP SEQUENCE NUMBER 121 169, XVPS , FLAGS = 0, REEL = 1, FILE = 84 170, OES1A , FLAGS = 0, REEL = 0, FILE = 0 171, REENTER AT DMAP SEQUENCE NUMBER 141 172, XVPS , FLAGS = 0, REEL = 1, FILE = 85 173, OUGV2 , FLAGS = 0, REEL = 0, FILE = 0 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.696464E-04 -4.166084E-07 0.0 0.0 0.0 -4.656293E-08 2 G -3.717109E-04 -6.684564E-07 0.0 0.0 0.0 3.333757E-07 3 G -3.724438E-04 -6.520922E-08 0.0 0.0 0.0 -4.098349E-07 4 G -3.603437E-04 8.606352E-07 0.0 0.0 0.0 -2.526852E-06 5 G -3.259649E-04 0.0 0.0 0.0 0.0 -4.807742E-06 6 G -3.666212E-04 -2.433977E-07 -1.834832E-12 8.686031E-13 -8.537007E-13 -5.214052E-07 7 G -3.663163E-04 -8.246836E-07 -9.045581E-08 1.460336E-06 5.888064E-07 1.980258E-07 8 G -3.711736E-04 -1.055792E-06 -7.136131E-07 6.471687E-07 1.857514E-07 3.812305E-07 9 G -3.742683E-04 -5.839916E-07 -1.916584E-06 -4.917982E-07 -1.215236E-06 4.231427E-07 10 G -3.725176E-04 0.0 -3.220393E-06 -6.210837E-06 -3.759043E-06 3.581181E-07 11 G -3.696464E-04 -4.166121E-07 0.0 0.0 0.0 -4.656135E-08 12 G -3.663163E-04 -8.246860E-07 9.045016E-08 -1.460333E-06 -5.888093E-07 1.980267E-07 13 G -3.698719E-04 -1.771450E-06 -4.075831E-12 -2.716263E-12 5.925879E-13 8.256123E-07 14 G -3.837850E-04 -1.807707E-06 -9.372814E-07 -3.520242E-08 -2.236404E-07 1.782096E-06 15 G -4.037245E-04 0.0 -2.303757E-06 -1.629335E-06 -9.278708E-07 2.287938E-06 16 G -3.717109E-04 -6.684611E-07 0.0 0.0 0.0 3.333771E-07 17 G -3.711736E-04 -1.055795E-06 7.136069E-07 -6.471703E-07 -1.857543E-07 3.812284E-07 18 G -3.837849E-04 -1.807708E-06 9.372708E-07 3.520159E-08 2.236397E-07 1.782099E-06 19 G -4.090099E-04 0.0 -5.815688E-12 -6.926524E-12 -3.951528E-12 2.367121E-06 20 G -3.724438E-04 -6.521335E-08 0.0 0.0 0.0 -4.098352E-07 21 G -3.742683E-04 -5.839948E-07 1.916579E-06 4.918015E-07 1.215234E-06 4.231441E-07 22 G -4.037246E-04 0.0 2.303744E-06 1.629370E-06 9.278664E-07 2.287958E-06 23 G -3.603437E-04 8.606328E-07 0.0 0.0 0.0 -2.526853E-06 24 G -3.725177E-04 0.0 3.220390E-06 6.210808E-06 3.759050E-06 3.581179E-07 25 G -3.259649E-04 0.0 0.0 0.0 0.0 -4.807744E-06 26 G 0.0 0.0 -3.740307E-04 0.0 0.0 0.0 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 4.894094E+02 1.818643E-01 -2.112025E+01 0.0 2 G 0.0 0.0 4.947181E+02 6.833418E-02 -1.412297E+01 0.0 3 G 0.0 0.0 5.034901E+02 -8.246548E-02 -6.633260E+00 0.0 4 G 0.0 0.0 5.048015E+02 -2.052628E-01 1.281466E+01 0.0 5 G 0.0 -2.783340E+02 2.038532E+02 2.047155E+00 3.347041E+01 0.0 10 G 0.0 -6.014798E+02 0.0 0.0 0.0 0.0 11 G 0.0 0.0 -4.894094E+02 -1.818642E-01 2.112024E+01 0.0 15 G 0.0 -6.159268E+02 0.0 0.0 0.0 0.0 16 G 0.0 0.0 -4.947181E+02 -6.833343E-02 1.412294E+01 0.0 19 G 0.0 -6.159152E+02 0.0 0.0 0.0 0.0 20 G 0.0 0.0 -5.034901E+02 8.246557E-02 6.633255E+00 0.0 22 G 0.0 -6.159268E+02 0.0 0.0 0.0 0.0 23 G 0.0 0.0 -5.048015E+02 2.052612E-01 -1.281463E+01 0.0 24 G 0.0 -6.014798E+02 0.0 0.0 0.0 0.0 25 G 0.0 -2.783340E+02 -2.038532E+02 -2.047155E+00 -3.347041E+01 0.0 26 G 2.461045E+02 2.461045E+02 0.0 -1.279847E+01 1.279847E+01 -1.416140E-07 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 -1.500000E+00 -1.465834E+01 -1.499446E+01 -2.191973E-01 -26.2612 -1.455019E+01 -1.510261E+01 2.762093E-01 1.500000E+00 -1.504458E+01 -1.490641E+01 1.006761E-01 62.2293 -1.485339E+01 -1.509759E+01 1.221003E-01 0 2 -1.500000E+00 -1.465836E+01 -1.499446E+01 2.191857E-01 26.2611 -1.455021E+01 -1.510261E+01 2.761955E-01 1.500000E+00 -1.504456E+01 -1.490641E+01 -1.006636E-01 -62.2291 -1.485340E+01 -1.509757E+01 1.220846E-01 0 3 -1.500000E+00 -1.466739E+01 -1.504355E+01 -6.915784E-02 -10.0943 -1.465508E+01 -1.505586E+01 2.003926E-01 1.500000E+00 -1.514168E+01 -1.474049E+01 1.792455E-02 87.4469 -1.473969E+01 -1.514248E+01 2.013922E-01 0 4 -1.500000E+00 -1.488939E+01 -1.507712E+01 -1.288826E-01 -26.9671 -1.482381E+01 -1.514270E+01 1.594407E-01 1.500000E+00 -1.477563E+01 -1.459632E+01 1.698227E-01 58.9160 -1.449394E+01 -1.487801E+01 1.920373E-01 0 5 -1.500000E+00 -1.535018E+01 -1.513464E+01 -6.689610E-06 -89.9982 -1.513464E+01 -1.535018E+01 1.077685E-01 1.500000E+00 -1.414401E+01 -1.455097E+01 7.309524E-06 0.0010 -1.414401E+01 -1.455097E+01 2.034783E-01 0 6 -1.500000E+00 -1.488944E+01 -1.507711E+01 1.289098E-01 26.9746 -1.482383E+01 -1.514272E+01 1.594439E-01 1.500000E+00 -1.477558E+01 -1.459632E+01 -1.698489E-01 -58.9103 -1.449390E+01 -1.487800E+01 1.920470E-01 0 7 -1.500000E+00 -1.466741E+01 -1.504358E+01 6.914719E-02 10.0926 -1.465510E+01 -1.505588E+01 2.003934E-01 1.500000E+00 -1.514166E+01 -1.474047E+01 -1.791223E-02 -87.4487 -1.473967E+01 -1.514246E+01 2.013959E-01 0 8 -1.500000E+00 -1.489148E+01 -1.450566E+01 2.429343E-01 64.2263 -1.438836E+01 -1.500878E+01 3.102122E-01 1.500000E+00 -1.525221E+01 -1.505862E+01 -3.343825E-02 -80.4713 -1.505301E+01 -1.525783E+01 1.024094E-01 0 9 -1.500000E+00 -1.485539E+01 -1.478216E+01 2.152786E-01 49.8267 -1.460040E+01 -1.503714E+01 2.183707E-01 1.500000E+00 -1.493758E+01 -1.490530E+01 7.956702E-02 50.7344 -1.484025E+01 -1.500263E+01 8.118806E-02 0 10 -1.500000E+00 -1.496865E+01 -1.506268E+01 2.263522E-01 39.1333 -1.478448E+01 -1.524685E+01 2.311830E-01 1.500000E+00 -1.460380E+01 -1.470401E+01 -4.940912E-02 -22.2999 -1.458354E+01 -1.472428E+01 7.036822E-02 0 11 -1.500000E+00 -1.527336E+01 -1.541605E+01 -1.315328E-05 -0.0053 -1.527336E+01 -1.541605E+01 7.134676E-02 1.500000E+00 -1.426884E+01 -1.455773E+01 1.160878E-05 0.0023 -1.426884E+01 -1.455773E+01 1.444449E-01 0 12 -1.500000E+00 -1.496867E+01 -1.506266E+01 -2.263398E-01 -39.1353 -1.478450E+01 -1.524683E+01 2.311668E-01 1.500000E+00 -1.460379E+01 -1.470403E+01 4.939753E-02 22.2921 -1.458354E+01 -1.472429E+01 7.037129E-02 0 13 -1.500000E+00 -1.485537E+01 -1.478214E+01 -2.152734E-01 -49.8263 -1.460039E+01 -1.503712E+01 2.183650E-01 1.500000E+00 -1.493760E+01 -1.490531E+01 -7.957027E-02 -50.7348 -1.484026E+01 -1.500264E+01 8.119163E-02 0 14 -1.500000E+00 -1.489145E+01 -1.450565E+01 -2.429289E-01 -64.2256 -1.438835E+01 -1.500875E+01 3.101997E-01 1.500000E+00 -1.525224E+01 -1.505863E+01 3.343241E-02 80.4737 -1.505302E+01 -1.525786E+01 1.024165E-01 0 15 -1.500000E+00 -1.529440E+01 -1.376634E+01 7.902541E-01 67.0168 -1.343117E+01 -1.562957E+01 1.099204E+00 1.500000E+00 -1.488821E+01 -1.536757E+01 -1.557198E-01 -16.5058 -1.484206E+01 -1.541371E+01 2.858239E-01 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 16 -1.500000E+00 -1.509196E+01 -1.473915E+01 6.150868E-01 53.0014 -1.427567E+01 -1.555544E+01 6.398832E-01 1.500000E+00 -1.506609E+01 -1.491132E+01 -1.209733E-01 -61.3032 -1.484510E+01 -1.513231E+01 1.436070E-01 0 17 -1.500000E+00 -1.476340E+01 -1.516257E+01 6.008678E-01 35.8128 -1.432984E+01 -1.559614E+01 6.331478E-01 1.500000E+00 -1.519202E+01 -1.470569E+01 -1.016806E-01 -78.6538 -1.468529E+01 -1.521243E+01 2.635694E-01 0 18 -1.500000E+00 -1.505334E+01 -1.564749E+01 2.963804E-01 22.4665 -1.493078E+01 -1.577005E+01 4.196368E-01 1.500000E+00 -1.461266E+01 -1.468066E+01 3.396784E-02 22.4867 -1.459860E+01 -1.469472E+01 4.806013E-02 0 19 -1.500000E+00 -1.507482E+01 -1.544136E+01 1.065693E-06 0.0002 -1.507482E+01 -1.544136E+01 1.832690E-01 1.500000E+00 -1.489862E+01 -1.457944E+01 -1.178688E-06 -89.9998 -1.457944E+01 -1.489862E+01 1.595922E-01 0 20 -1.500000E+00 -1.505337E+01 -1.564751E+01 -2.963676E-01 -22.4660 -1.493081E+01 -1.577006E+01 4.196251E-01 1.500000E+00 -1.461264E+01 -1.468065E+01 -3.397733E-02 -22.4879 -1.459857E+01 -1.469471E+01 4.807156E-02 0 21 -1.500000E+00 -1.476339E+01 -1.516255E+01 -6.008668E-01 -35.8130 -1.432982E+01 -1.559611E+01 6.331450E-01 1.500000E+00 -1.519203E+01 -1.470572E+01 1.016767E-01 78.6538 -1.468532E+01 -1.521244E+01 2.635583E-01 0 22 -1.500000E+00 -1.509199E+01 -1.473914E+01 -6.150628E-01 -53.0026 -1.427570E+01 -1.555543E+01 6.398660E-01 1.500000E+00 -1.506606E+01 -1.491133E+01 1.209512E-01 61.3017 -1.484512E+01 -1.513227E+01 1.435758E-01 0 23 -1.500000E+00 -1.529442E+01 -1.376638E+01 -7.902526E-01 -67.0165 -1.343121E+01 -1.562959E+01 1.099193E+00 1.500000E+00 -1.488819E+01 -1.536754E+01 1.557139E-01 16.5059 -1.484205E+01 -1.541368E+01 2.858127E-01 0 24 -1.500000E+00 -1.615719E+01 -1.347047E+01 1.260523E+00 68.4111 -1.297167E+01 -1.665598E+01 1.842155E+00 1.500000E+00 -1.329555E+01 -1.503144E+01 -2.420780E-01 -7.7921 -1.326242E+01 -1.506456E+01 9.010729E-01 0 25 -1.500000E+00 -1.534320E+01 -1.480841E+01 1.088726E+00 51.8994 -1.395472E+01 -1.619688E+01 1.121081E+00 1.500000E+00 -1.492063E+01 -1.481295E+01 -7.337141E-01 -47.0984 -1.413110E+01 -1.560247E+01 7.356868E-01 0 26 -1.500000E+00 -1.432555E+01 -1.519972E+01 7.668653E-01 30.1592 -1.387995E+01 -1.564531E+01 8.826810E-01 1.500000E+00 -1.612328E+01 -1.468456E+01 -2.148645E-01 -81.6849 -1.465315E+01 -1.615468E+01 7.507654E-01 0 27 -1.500000E+00 -1.485065E+01 -1.559625E+01 4.375631E-01 24.7847 -1.464861E+01 -1.579829E+01 5.748389E-01 1.500000E+00 -1.522284E+01 -1.498067E+01 -6.056371E-02 -76.7133 -1.496637E+01 -1.523714E+01 1.353851E-01 0 28 -1.500000E+00 -1.544785E+01 -1.538717E+01 7.644680E-02 55.8233 -1.533526E+01 -1.549975E+01 8.224709E-02 1.500000E+00 -1.567000E+01 -1.488676E+01 -2.663583E-03 -89.8052 -1.488675E+01 -1.567000E+01 3.916278E-01 0 29 -1.500000E+00 -1.508062E+01 -1.560929E+01 1.416555E-05 0.0015 -1.508062E+01 -1.560929E+01 2.643366E-01 1.500000E+00 -1.500845E+01 -1.510554E+01 -1.187935E-05 -0.0070 -1.500845E+01 -1.510554E+01 4.854393E-02 0 30 -1.500000E+00 -1.544784E+01 -1.538715E+01 -7.642962E-02 -55.8262 -1.533526E+01 -1.549973E+01 8.223200E-02 1.500000E+00 -1.567002E+01 -1.488678E+01 2.654266E-03 89.8058 -1.488678E+01 -1.567003E+01 3.916253E-01 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 31 -1.500000E+00 -1.485062E+01 -1.559623E+01 -4.375662E-01 -24.7845 -1.464858E+01 -1.579827E+01 5.748459E-01 1.500000E+00 -1.522287E+01 -1.498069E+01 6.056729E-02 76.7136 -1.496639E+01 -1.523718E+01 1.353956E-01 0 32 -1.500000E+00 -1.432553E+01 -1.519971E+01 -7.668736E-01 -30.1592 -1.387993E+01 -1.564531E+01 8.826901E-01 1.500000E+00 -1.612330E+01 -1.468454E+01 2.148690E-01 81.6849 -1.465314E+01 -1.615470E+01 7.507809E-01 0 33 -1.500000E+00 -1.534322E+01 -1.480841E+01 -1.088734E+00 -51.8996 -1.395472E+01 -1.619691E+01 1.121091E+00 1.500000E+00 -1.492060E+01 -1.481295E+01 7.337191E-01 47.0979 -1.413109E+01 -1.560247E+01 7.356908E-01 0 34 -1.500000E+00 -1.615722E+01 -1.347046E+01 -1.260510E+00 -68.4114 -1.297168E+01 -1.665600E+01 1.842158E+00 1.500000E+00 -1.329552E+01 -1.503144E+01 2.420669E-01 7.7917 -1.326240E+01 -1.506456E+01 9.010823E-01 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 174, REENTER AT DMAP SEQUENCE NUMBER 149 175, XVPS , FLAGS = 0, REEL = 1, FILE = 86 176, OESF1X , FLAGS = 0, REEL = 0, FILE = 0 177, OESF1Y , FLAGS = 0, REEL = 0, FILE = 0 178, REENTER AT DMAP SEQUENCE NUMBER 154 179, PLOTX2 , FLAGS = 0, REEL = 1, FILE = 87 180, XVPS , FLAGS = 0, REEL = 1, FILE = 88 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A PERSPECTIVE PROJECTION ROTATIONS (DEGREES) - GAMMA = 20.00, BETA = 30.00, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 9.015691E-02 VANTAGE POINT (INCHES) - RO = 2.235258E+02, S0 = 0.257127E+02, T0 = 0.146123E+03 PROJECTION PLANE SEPARATION (INCHES) = 1.299782E+02 ORIGIN 1 - X0 = -9.565060E-01, Y0 = 0.316908E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 4 STATIC DEFORM. 1 - SUBCASE 1 - LOAD ORIGIN 1 USED IN THIS PLOT 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A PERSPECTIVE PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 0.00, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 5.789204E-02 VANTAGE POINT (INCHES) - RO = 1.863494E+02, S0 = 0.257393E+02, T0 = 0.171639E+03 PROJECTION PLANE SEPARATION (INCHES) = 1.346651E+02 ORIGIN 1000 - X0 = -2.619190E+00, Y0 = 0.257952E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 5 STATIC DEFORM. 1 - SUBCASE 1 - LOAD ORIGIN 1000 USED IN THIS PLOT 1 SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 181, REENTER AT DMAP SEQUENCE NUMBER 172 182, XVPS , FLAGS = 0, REEL = 1, FILE = 89 183, DUMMY , FLAGS = 0, REEL = 0, FILE = 0 * * * END OF JOB * * * 1 JOB TITLE = SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY DATE: 5/17/95 END TIME: 14:28:58 TOTAL WALL CLOCK TIME 4 SEC. ================================================ FILE: demoout/d01021b.out ================================================ NASTRAN FILES = OPTP **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01021B,RESTART $ INSERT THE RESTART DICTIONARY HERE 0*** $ ... READFILE FROM- RSCARDS RESTART D01021A ,NASTRAN , 5/17/95, 52113, 1, XVPS , FLAGS = 0, REEL = 1, FILE = 5 2, REENTER AT DMAP SEQUENCE NUMBER 12 3, GPL , FLAGS = 0, REEL = 1, FILE = 6 4, EQEXIN , FLAGS = 0, REEL = 1, FILE = 7 5, GPDT , FLAGS = 0, REEL = 1, FILE = 8 6, CSTM , FLAGS = 0, REEL = 1, FILE = 9 7, BGPDT , FLAGS = 0, REEL = 1, FILE = 10 8, SIL , FLAGS = 0, REEL = 1, FILE = 11 9, XVPS , FLAGS = 0, REEL = 1, FILE = 12 10, REENTER AT DMAP SEQUENCE NUMBER 13 11, XVPS , FLAGS = 0, REEL = 1, FILE = 13 12, MPTA , FLAGS = 0, REEL = 0, FILE = 0 13, REENTER AT DMAP SEQUENCE NUMBER 14 14, MPT , FLAGS = 0, REEL = 1, FILE = 14 15, XVPS , FLAGS = 0, REEL = 1, FILE = 15 16, REENTER AT DMAP SEQUENCE NUMBER 15 17, BGPDP , FLAGS = 0, REEL = 1, FILE = 16 18, SIP , FLAGS = 0, REEL = 1, FILE = 17 19, XVPS , FLAGS = 0, REEL = 1, FILE = 18 20, REENTER AT DMAP SEQUENCE NUMBER 16 21, ECT , FLAGS = 0, REEL = 1, FILE = 19 22, XVPS , FLAGS = 0, REEL = 1, FILE = 20 23, REENTER AT DMAP SEQUENCE NUMBER 18 24, XVPS , FLAGS = 0, REEL = 1, FILE = 21 25, PLTSETX , FLAGS = 0, REEL = 0, FILE = 0 26, PLTPAR , FLAGS = 0, REEL = 0, FILE = 0 27, GPSETS , FLAGS = 0, REEL = 0, FILE = 0 28, ELSETS , FLAGS = 0, REEL = 0, FILE = 0 29, REENTER AT DMAP SEQUENCE NUMBER 20 30, PLTSETX , FLAGS = 0, REEL = 1, FILE = 22 31, PLTPAR , FLAGS = 0, REEL = 1, FILE = 23 32, GPSETS , FLAGS = 0, REEL = 1, FILE = 24 33, ELSETS , FLAGS = 0, REEL = 1, FILE = 25 34, XVPS , FLAGS = 0, REEL = 1, FILE = 26 35, REENTER AT DMAP SEQUENCE NUMBER 25 36, PLOTX1 , FLAGS = 0, REEL = 1, FILE = 27 37, XVPS , FLAGS = 0, REEL = 1, FILE = 28 38, REENTER AT DMAP SEQUENCE NUMBER 28 39, SLT , FLAGS = 0, REEL = 1, FILE = 29 40, XVPS , FLAGS = 0, REEL = 1, FILE = 30 41, GPTT , FLAGS = 0, REEL = 0, FILE = 0 42, REENTER AT DMAP SEQUENCE NUMBER 30 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 43, EST , FLAGS = 0, REEL = 1, FILE = 31 44, GPECT , FLAGS = 0, REEL = 1, FILE = 32 45, XVPS , FLAGS = 0, REEL = 1, FILE = 33 46, GEI , FLAGS = 0, REEL = 0, FILE = 0 47, MPTX , FLAGS = 0, REEL = 0, FILE = 0 48, PCOMPS , FLAGS = 0, REEL = 0, FILE = 0 49, EPTX , FLAGS = 0, REEL = 0, FILE = 0 50, REENTER AT DMAP SEQUENCE NUMBER 31 51, MPT , FLAGS = 0, REEL = 1, FILE = 34 52, EPT , FLAGS = 0, REEL = 1, FILE = 35 53, XVPS , FLAGS = 0, REEL = 1, FILE = 36 54, REENTER AT DMAP SEQUENCE NUMBER 34 55, XVPS , FLAGS = 0, REEL = 1, FILE = 37 56, KGGX , FLAGS = 0, REEL = 0, FILE = 0 57, REENTER AT DMAP SEQUENCE NUMBER 35 58, XVPS , FLAGS = 0, REEL = 1, FILE = 38 59, OPTP1 , FLAGS = 0, REEL = 0, FILE = 0 60, REENTER AT DMAP SEQUENCE NUMBER 39 61, XVPS , FLAGS = 0, REEL = 1, FILE = 39 62, OPTP2 , FLAGS = 0, REEL = 0, FILE = 0 63, EST1 , FLAGS = 0, REEL = 0, FILE = 0 64, REENTER AT DMAP SEQUENCE NUMBER 40 65, KELM , FLAGS = 0, REEL = 1, FILE = 40 66, KDICT , FLAGS = 0, REEL = 1, FILE = 41 67, XVPS , FLAGS = 0, REEL = 1, FILE = 42 68, MELM , FLAGS = 0, REEL = 0, FILE = 0 69, MDICT , FLAGS = 0, REEL = 0, FILE = 0 70, REENTER AT DMAP SEQUENCE NUMBER 42 71, KGGX , FLAGS = 0, REEL = 1, FILE = 43 72, XVPS , FLAGS = 0, REEL = 1, FILE = 44 73, REENTER AT DMAP SEQUENCE NUMBER 44 74, XVPS , FLAGS = 0, REEL = 1, FILE = 45 75, MGG , FLAGS = 0, REEL = 0, FILE = 0 76, REENTER AT DMAP SEQUENCE NUMBER 54 77, KGGX , FLAGS = 4, REEL = 1, FILE = 43 78, KGG , FLAGS = 4, REEL = 1, FILE = 43 79, XVPS , FLAGS = 0, REEL = 1, FILE = 46 80, REENTER AT DMAP SEQUENCE NUMBER 58 81, GPST , FLAGS = 0, REEL = 1, FILE = 47 82, XVPS , FLAGS = 0, REEL = 1, FILE = 48 83, REENTER AT DMAP SEQUENCE NUMBER 61 84, YS , FLAGS = 0, REEL = 1, FILE = 49 85, USET , FLAGS = 0, REEL = 1, FILE = 50 86, XVPS , FLAGS = 0, REEL = 1, FILE = 51 87, RG , FLAGS = 0, REEL = 0, FILE = 0 88, ASET , FLAGS = 0, REEL = 0, FILE = 0 89, OGPST , FLAGS = 0, REEL = 0, FILE = 0 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 90, REENTER AT DMAP SEQUENCE NUMBER 65 91, XVPS , FLAGS = 0, REEL = 1, FILE = 52 92, KRR , FLAGS = 0, REEL = 0, FILE = 0 93, KLR , FLAGS = 0, REEL = 0, FILE = 0 94, QR , FLAGS = 0, REEL = 0, FILE = 0 95, DM , FLAGS = 0, REEL = 0, FILE = 0 96, GM , FLAGS = 0, REEL = 0, FILE = 0 97, GO , FLAGS = 0, REEL = 0, FILE = 0 98, KOO , FLAGS = 0, REEL = 0, FILE = 0 99, LOO , FLAGS = 0, REEL = 0, FILE = 0 100, PO , FLAGS = 0, REEL = 0, FILE = 0 101, UOOV , FLAGS = 0, REEL = 0, FILE = 0 102, RUOV , FLAGS = 0, REEL = 0, FILE = 0 103, PS , FLAGS = 0, REEL = 0, FILE = 0 104, KFS , FLAGS = 0, REEL = 0, FILE = 0 105, KSS , FLAGS = 0, REEL = 0, FILE = 0 106, QG , FLAGS = 0, REEL = 0, FILE = 0 107, REENTER AT DMAP SEQUENCE NUMBER 66 108, KNN , FLAGS = 4, REEL = 1, FILE = 43 109, XVPS , FLAGS = 0, REEL = 1, FILE = 53 110, REENTER AT DMAP SEQUENCE NUMBER 71 111, XVPS , FLAGS = 0, REEL = 1, FILE = 54 112, KFF , FLAGS = 0, REEL = 0, FILE = 0 113, REENTER AT DMAP SEQUENCE NUMBER 73 114, KFF , FLAGS = 0, REEL = 1, FILE = 55 115, KFS , FLAGS = 0, REEL = 1, FILE = 56 116, KSS , FLAGS = 0, REEL = 1, FILE = 57 117, XVPS , FLAGS = 0, REEL = 1, FILE = 58 118, REENTER AT DMAP SEQUENCE NUMBER 75 119, KFF , FLAGS = 4, REEL = 1, FILE = 55 120, KAA , FLAGS = 4, REEL = 1, FILE = 55 121, XVPS , FLAGS = 0, REEL = 1, FILE = 59 122, REENTER AT DMAP SEQUENCE NUMBER 79 123, KLL , FLAGS = 4, REEL = 1, FILE = 55 124, XVPS , FLAGS = 0, REEL = 1, FILE = 60 125, REENTER AT DMAP SEQUENCE NUMBER 83 126, LLL , FLAGS = 0, REEL = 1, FILE = 61 127, XVPS , FLAGS = 0, REEL = 1, FILE = 62 128, REENTER AT DMAP SEQUENCE NUMBER 87 129, PG , FLAGS = 0, REEL = 1, FILE = 63 130, XVPS , FLAGS = 0, REEL = 1, FILE = 64 131, REENTER AT DMAP SEQUENCE NUMBER 88 132, XVPS , FLAGS = 0, REEL = 1, FILE = 65 133, PL , FLAGS = 0, REEL = 0, FILE = 0 134, REENTER AT DMAP SEQUENCE NUMBER 90 135, PS , FLAGS = 0, REEL = 1, FILE = 66 136, PL , FLAGS = 0, REEL = 1, FILE = 67 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 137, XVPS , FLAGS = 0, REEL = 1, FILE = 68 138, REENTER AT DMAP SEQUENCE NUMBER 92 139, ULV , FLAGS = 0, REEL = 1, FILE = 69 140, RULV , FLAGS = 0, REEL = 1, FILE = 70 141, XVPS , FLAGS = 0, REEL = 1, FILE = 71 142, REENTER AT DMAP SEQUENCE NUMBER 97 143, UGV , FLAGS = 0, REEL = 1, FILE = 72 144, PGG , FLAGS = 0, REEL = 1, FILE = 73 145, QG , FLAGS = 0, REEL = 1, FILE = 74 146, XVPS , FLAGS = 0, REEL = 1, FILE = 75 147, REENTER AT DMAP SEQUENCE NUMBER 104 148, XVPS , FLAGS = 0, REEL = 1, FILE = 76 149, ONRGY1 , FLAGS = 0, REEL = 0, FILE = 0 150, OGPFB1 , FLAGS = 0, REEL = 0, FILE = 0 151, REENTER AT DMAP SEQUENCE NUMBER 105 152, XVPS , FLAGS = 0, REEL = 1, FILE = 77 153, KDICT , FLAGS = 0, REEL = 0, FILE = 0 154, KELM , FLAGS = 0, REEL = 0, FILE = 0 155, REENTER AT DMAP SEQUENCE NUMBER 111 156, OQG1 , FLAGS = 0, REEL = 1, FILE = 78 157, OUGV1 , FLAGS = 0, REEL = 1, FILE = 79 158, OES1 , FLAGS = 0, REEL = 1, FILE = 80 159, PUGV1 , FLAGS = 0, REEL = 1, FILE = 81 160, XVPS , FLAGS = 0, REEL = 1, FILE = 82 161, OPG1 , FLAGS = 0, REEL = 0, FILE = 0 162, OEF1 , FLAGS = 0, REEL = 0, FILE = 0 163, OES1L , FLAGS = 0, REEL = 0, FILE = 0 164, OEF1L , FLAGS = 0, REEL = 0, FILE = 0 165, REENTER AT DMAP SEQUENCE NUMBER 115 166, XVPS , FLAGS = 0, REEL = 1, FILE = 83 167, OES1M , FLAGS = 0, REEL = 0, FILE = 0 168, REENTER AT DMAP SEQUENCE NUMBER 121 169, XVPS , FLAGS = 0, REEL = 1, FILE = 84 170, OES1A , FLAGS = 0, REEL = 0, FILE = 0 171, REENTER AT DMAP SEQUENCE NUMBER 141 172, XVPS , FLAGS = 0, REEL = 1, FILE = 85 173, OUGV2 , FLAGS = 0, REEL = 0, FILE = 0 174, REENTER AT DMAP SEQUENCE NUMBER 149 175, XVPS , FLAGS = 0, REEL = 1, FILE = 86 176, OESF1X , FLAGS = 0, REEL = 0, FILE = 0 177, OESF1Y , FLAGS = 0, REEL = 0, FILE = 0 178, REENTER AT DMAP SEQUENCE NUMBER 154 179, PLOTX2 , FLAGS = 0, REEL = 1, FILE = 87 180, XVPS , FLAGS = 0, REEL = 1, FILE = 88 181, REENTER AT DMAP SEQUENCE NUMBER 172 182, XVPS , FLAGS = 0, REEL = 1, FILE = 89 183, DUMMY , FLAGS = 0, REEL = 0, FILE = 0 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 $ END OF CHECKPOINT DICTIONARY 0*** $ END READFILE TIME 5 APP DISPLACEMENT SOL 1,1 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 3 LOAD = 1 4 SPC = 1 5 OUTPUT 6 DISPLACEMENT = ALL 7 SPCFORCE = ALL 8 ELFORCE = ALL 9 STRESSES = ALL 10 BEGIN BULK 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 0 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ ENDDATA TOTAL COUNT= 0 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2S 2 .0 .0 .0 .0 .0 1. +COR1 2- +COR1 1.000 .000 .000 3- CTRIA2 1 31 1 6 26 .0 4- CTRIA2 2 31 6 11 26 .0 5- CTRIA2 3 31 2 7 1 .0 6- CTRIA2 4 31 6 1 7 .0 7- CTRIA2 5 31 7 12 6 .0 8- CTRIA2 6 31 11 6 12 .0 9- CTRIA2 7 31 12 16 11 .0 10- CTRIA2 8 31 3 8 2 .0 11- CTRIA2 9 31 7 2 8 .0 12- CTRIA2 10 31 8 13 7 .0 13- CTRIA2 11 31 12 7 13 .0 14- CTRIA2 12 31 13 17 12 .0 15- CTRIA2 13 31 16 12 17 .0 16- CTRIA2 14 31 17 20 16 .0 17- CTRIA2 15 31 4 9 3 .0 18- CTRIA2 16 31 8 3 9 .0 19- CTRIA2 17 31 9 14 8 .0 20- CTRIA2 18 31 13 8 14 .0 21- CTRIA2 19 31 14 18 13 .0 22- CTRIA2 20 31 17 13 18 .0 23- CTRIA2 21 31 18 21 17 .0 24- CTRIA2 22 31 20 17 21 .0 25- CTRIA2 23 31 21 23 20 .0 26- CTRIA2 24 31 5 10 4 .0 27- CTRIA2 25 31 9 4 10 .0 28- CTRIA2 26 31 10 15 9 .0 29- CTRIA2 27 31 14 9 15 .0 30- CTRIA2 28 31 15 19 14 .0 31- CTRIA2 29 31 18 14 19 .0 32- CTRIA2 30 31 19 22 18 .0 33- CTRIA2 31 31 21 18 22 .0 34- CTRIA2 32 31 22 24 21 .0 35- CTRIA2 33 31 23 21 24 .0 36- CTRIA2 34 31 24 25 23 .0 37- GRDSET 2 2 38- GRID 1 90. 7. .0 39- GRID 2 90. 14.0 .0 40- GRID 3 90. 21.0 .0 41- GRID 4 90. 28.0 .0 42- GRID 5 90. 35.0 .0 43- GRID 6 90. 7.0 45.0 44- GRID 7 90. 14.0 30.0 45- GRID 8 90. 21.0 22.5 46- GRID 9 90. 28.0 18.0 47- GRID 10 90. 35.0 15.0 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 11 90. 7.0 90.0 49- GRID 12 90. 14.0 60.0 50- GRID 13 90. 21.0 45.0 51- GRID 14 90. 28.0 36.0 52- GRID 15 90. 35.0 30.0 53- GRID 16 90. 14.0 90.0 54- GRID 17 90. 21.0 67.5 55- GRID 18 90. 28.0 54.0 56- GRID 19 90. 35.0 45.0 57- GRID 20 90. 21.0 90.0 58- GRID 21 90. 28.0 72.0 59- GRID 22 90. 35.0 60.0 60- GRID 23 90. 28.0 90.0 61- GRID 24 90. 35.0 75.0 62- GRID 25 90. 35.0 90.0 63- GRID 26 0 .0 .0 90.0 0 64- MAT1 1 3.+6 .1666 65- PLOAD2 1 -1.0 1 2 3 4 5 6 66- PLOAD2 1 -1.0 7 8 9 10 11 12 67- PLOAD2 1 -1.0 13 14 15 16 17 18 68- PLOAD2 1 -1.0 19 20 21 22 23 24 69- PLOAD2 1 -1.0 25 26 27 28 29 30 70- PLOAD2 1 -1.0 31 32 33 34 71- PLOTEL 50 26 1 51 1 2 72- PLOTEL 52 2 3 53 3 4 73- PLOTEL 54 4 5 55 5 10 74- PLOTEL 56 10 15 57 15 19 75- PLOTEL 58 19 22 59 22 24 76- PLOTEL 60 24 25 61 25 23 77- PLOTEL 62 23 20 63 20 16 78- PLOTEL 64 16 11 65 11 26 79- PLOTEL 66 3 8 67 8 13 80- PLOTEL 68 13 17 69 17 20 81- PTRIA2 31 1 3. 82- SPC 1 26 12456 .0 83- SPC1 1 345 1 2 3 4 11 16 +SPC1-2 84- +SPC1-2 20 23 85- SPC1 1 123456 5 10 15 19 22 24 +SPC1-1 86- +SPC1-1 25 87- SPC1 2 2 10 15 19 22 24 88- SPC1 2 345 1 2 3 4 11 16 +SPC2-1 89- +SPC2-1 20 23 90- SPC1 2 2345 5 25 91- SPC1 2 12456 26 ENDDATA 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 0 0*** USER INFORMATION MESSAGE 4144, THIS IS A MODIFIED RESTART. 0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW. 0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES ----------------------------------- MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION 17 2 SPC$ 10 15 PLOT$ 18 17 POUT$ 19 31 NOLOOP$ 31 0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES -------------------------------- NONE 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 01 - STATIC ANALYSIS - APR. 1995 $ + + 2 FILE OPTP2=SAVE/EST1=SAVE $ + + 4 SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ + * 5 PARAM //*MPY*/CARDNO/0/0 $ + * 6 COMPOFF 1,INTERACT $ 7 PRECHK ALL $ 8 COMPON 1,INTERACT $ 10 COMPOFF LBLINT02,SYS21 $ 11 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 12 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 13 EQUIV MPTA,MPT/ISOP $ 14 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 15 GP2 GEOM2,EQEXIN/ECT $ 16 PARAML PCDB//*PRES*////JUMPPLOT $ + * 17 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ + * 18 COND P1,JUMPPLOT $ + * 19 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ + * S,N,JUMPPLOT $ 20 PRTMSG PLTSETX// $ + * 21 PARAM //*MPY*/PLTFLG/1/1 $ + * 22 PARAM //*MPY*/PFILE/0/0 $ + * 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 23 COND P1,JUMPPLOT $ + * 24 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ + * NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 25 PRTMSG PLOTX1// $ + * 26 LABEL P1 $ + + 27 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ 28 PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ 29 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 30 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ + * 31 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ 32 COND ERROR4,NOELMT $ 33 PURGE KGGX/NOSIMP $ 34 OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ 35 LABEL LOOPTOP $ + + 36 COND LBL1,NOSIMP $ 37 PARAM //*ADD*/NOKGGX/1/0 $ 38 EQUIV OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ 39 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 40 COND JMPKGG,NOKGGX $ 41 EMA GPECT,KDICT,KELM/KGGX $ 42 LABEL JMPKGG $ + + 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 43 PURGE MGG/NOMGG $ 44 COND JMPMGG,NOMGG $ 45 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 46 PURGE MDICT,MELM/ALWAYS $ 47 LABEL JMPMGG $ + + 48 COND LBL1,GRDPNT $ 49 COND ERROR2,NOMGG $ 50 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ 51 OFP OGPWG,,,,,//S,N,CARDNO $ 52 LABEL LBL1 $ + + 53 EQUIV KGGX,KGG/NOGENL $ 54 COND LBL11A,NOGENL $ 55 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 56 LABEL LBL11A $ + + 57 GPSTGEN KGG,SIL/GPST $ 58 PARAM //*MPY*/NSKIP/0/0 $ + * 60 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, + * ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 61 OFP OGPST,,,,,//S,N,CARDNO $ + * 62 COND ERROR3,NOL $ + * 63 PARAM //*AND*/NOSR/SINGLE/REACT $ + * 64 PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, + * KFS,KSS/SINGLE/QG/NOSR $ 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 65 EQUIV KGG,KNN/MPCF1 $ 66 COND LBL2,MPCF2 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,,,/KNN,,, $ 69 LABEL LBL2 $ + + 70 EQUIV KNN,KFF/SINGLE $ + * 71 COND LBL3,SINGLE $ + * 72 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ + * 73 LABEL LBL3 $ + + 74 EQUIV KFF,KAA/OMIT $ + * 75 COND LBL5,OMIT $ + * 76 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ + * 77 LABEL LBL5 $ + + 78 EQUIV KAA,KLL/REACT $ + * 79 COND LBL6,REACT $ + * 80 RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ + * 81 LABEL LBL6 $ + + 82 RBMG2 KLL/LLL $ + * 83 COND LBL7,REACT $ + * 84 RBMG3 LLL,KLR,KRR/DM $ + * 85 LABEL LBL7 $ + + 86 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ 87 EQUIV PG,PL/NOSET $ + * 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 88 COND LBL10,NOSET $ + * 89 SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ + * 90 LABEL LBL10 $ + + 91 SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ + * NSKIP/S,N,EPSI $ 92 COND LBL9,IRES $ + * 93 MATGPR GPL,USET,SIL,RULV//*L* $ + * 94 MATGPR GPL,USET,SIL,RUOV//*O* $ + * 95 LABEL LBL9 $ + + 96 SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ + * *STATICS* $ 100 PARAM //*NOT*/TEST/REPEAT $ 101 COND ERROR5,TEST $ 103 GPFDR CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/ + * *STATICS* $ 104 PURGE KDICT,KELM/REPEAT $ + * 105 OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ + * 106 COND NOMPCF,GRDEQ $ 107 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ 108 OFP OQM1,,,,,//S,N,CARDNO $ 109 LABEL NOMPCF $ + + 110 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, + * XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L, OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ 111 COND LBLSTRS,STRESS $ + * 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 112 CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/ + * V,Y,NINTPTS $ 113 LABEL LBLSTRS $ + + 114 PURGE OES1M/STRESS $ + * 115 COND LBLSTRN,STRNFLG $ + * 116 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/ + * ,,,OES1A,,,,/*STATICS*//1 $ 117 COND LBLSTRN,STRAIN $ + * 118 CURV OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/ + * V,Y,NINTPTS $ 119 LABEL LBLSTRN $ + + 120 PURGE OES1A/STRNFLG $ + * 121 COND LBL17,NOSORT2 $ + * 122 SDR3 OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $ + * 123 PARAM //*SUB*/PRTSORT2/NOSORT2/1 $ + * 124 COND LBLSORT1,PRTSORT2 $ + * 125 OFP OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $ + * 126 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ + * 127 OFP OESF2,,,,,//S,N,CARDNO $ + * 128 JUMP LBLXYPLT $ + * 129 LABEL LBLSORT1 $ + + 130 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ + * 131 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ + * 132 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ + * 133 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ + * 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 134 LABEL LBLXYPLT $ + + 135 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ + * 136 XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ 137 XYPLOT XYPLTT// $ 138 JUMP DPLOT $ 139 LABEL LBL17 $ + + 140 PURGE OUGV2/NOSORT2 $ + * 141 COND LBLOFP,COUNT $ + * 142 OPTPR2 OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N, + * CARDNO $ 143 EQUIV EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $ + * 144 COND LOOPEND,PRINT $ + * 145 LABEL LBLOFP $ + + 146 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ + * 147 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ + * 148 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $ + * 149 OFP OESF1X,OESF1Y,,,,//S,N,CARDNO $ + * 150 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ + * 151 LABEL DPLOT $ + + 152 COND P2,JUMPPLOT $ + * 153 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, + * OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 154 PRTMSG PLOTX2// $ + * 155 LABEL P2 $ + + 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 156 LABEL LOOPEND $ + + 157 COND FINIS,COUNT $ + * 158 REPT LOOPTOP,360 $ + * 159 JUMP FINIS $ + * 162 LABEL ERROR2 $ + + 163 PRTPARM //-2/*STATICS* $ 164 LABEL ERROR3 $ + + 165 PRTPARM //-3/*STATICS* $ + * 166 LABEL ERROR4 $ + + 167 PRTPARM //-4/*STATICS* $ 168 LABEL ERROR5 $ + + 169 PRTPARM //-5/*STATICS* $ 170 LABEL FINIS $ + + 171 PURGE DUMMY/ALWAYS $ + * 172 LABEL LBLINT02 $ + + 173 COMPON LBLINT01,SYS21 $ 228 END $ + * 0 0 + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME. 0 * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART. 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 0 0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART FILE NAME REEL NO. FILE NO. GPTT (PURGED) MPTX (PURGED) PCOMPS (PURGED) EPTX (PURGED) OPTP1 (PURGED) OPTP2 (PURGED) EST1 (PURGED) KELM (PURGED) KDICT (PURGED) GM (PURGED) GPL 1 6 EQEXIN 1 7 GPDT 1 8 CSTM 1 9 BGPDT 1 10 SIL 1 11 BGPDP 1 16 SIP 1 17 ECT 1 19 EST 1 31 GPECT 1 32 KGGX 1 43 KGG 1 43 KNN 1 43 GPST 1 47 PG 1 63 XVPS 1 89 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -2.5769482E-16 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 0 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -5.480684E-04 1.919411E-05 0.0 0.0 0.0 -1.786571E-07 2 G -5.261355E-04 3.683910E-05 0.0 0.0 0.0 -3.821245E-06 3 G -4.213421E-04 4.607316E-05 0.0 0.0 0.0 -1.503945E-05 4 G -1.844341E-04 3.363041E-05 0.0 0.0 0.0 -2.690171E-05 5 G 0.0 0.0 0.0 0.0 0.0 0.0 6 G -5.446583E-04 1.894586E-05 -8.010631E-13 9.706269E-13 -8.955855E-13 -8.225492E-07 7 G -5.167566E-04 3.597763E-05 3.338573E-07 1.984027E-06 9.699154E-07 -4.771032E-06 8 G -4.086168E-04 4.493846E-05 8.302441E-07 3.475891E-06 1.024308E-06 -1.541586E-05 9 G -1.767535E-04 3.389497E-05 3.588728E-07 8.759924E-06 -3.347110E-07 -2.501015E-05 10 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G -5.480684E-04 1.919411E-05 0.0 0.0 0.0 -1.786555E-07 12 G -5.167567E-04 3.597763E-05 -3.338596E-07 -1.984026E-06 -9.699182E-07 -4.771030E-06 13 G -4.019238E-04 4.497120E-05 -1.313271E-12 -4.853816E-12 4.966254E-13 -1.521853E-05 14 G -1.739155E-04 3.380157E-05 1.477445E-07 3.014262E-06 -1.436867E-07 -2.421151E-05 15 G 0.0 0.0 0.0 0.0 0.0 0.0 16 G -5.261355E-04 3.683910E-05 0.0 0.0 0.0 -3.821243E-06 17 G -4.086168E-04 4.493846E-05 -8.302458E-07 -3.475893E-06 -1.024311E-06 -1.541586E-05 18 G -1.739154E-04 3.380155E-05 -1.477457E-07 -3.014247E-06 1.436883E-07 -2.421150E-05 19 G 0.0 0.0 0.0 0.0 0.0 0.0 20 G -4.213421E-04 4.607316E-05 0.0 0.0 0.0 -1.503946E-05 21 G -1.767535E-04 3.389498E-05 -3.588742E-07 -8.759933E-06 3.347079E-07 -2.501015E-05 22 G 0.0 0.0 0.0 0.0 0.0 0.0 23 G -1.844341E-04 3.363042E-05 0.0 0.0 0.0 -2.690171E-05 24 G 0.0 0.0 0.0 0.0 0.0 0.0 25 G 0.0 0.0 0.0 0.0 0.0 0.0 26 G 0.0 0.0 -5.529767E-04 0.0 0.0 0.0 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 0 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 5.174022E+02 2.037890E-01 -2.497954E+01 0.0 2 G 0.0 0.0 5.017265E+02 -2.312392E-01 -4.489198E+01 0.0 3 G 0.0 0.0 4.129291E+02 -6.724325E-01 -7.711040E+01 0.0 4 G 0.0 0.0 1.962602E+02 6.025845E-01 -6.132825E+01 0.0 5 G 4.300203E+01 -2.280616E+02 -1.827229E+00 -1.047866E+01 8.151964E+01 2.243964E+02 10 G 8.261316E+01 -4.939240E+02 9.848739E+00 6.742922E+00 7.953281E+01 4.565710E+02 11 G 0.0 0.0 -5.174022E+02 -2.037888E-01 2.497954E+01 0.0 15 G 8.074376E+01 -4.870376E+02 3.213462E+00 2.198295E+00 3.223590E+01 4.434538E+02 16 G 0.0 0.0 -5.017265E+02 2.312396E-01 4.489196E+01 0.0 19 G 8.068778E+01 -4.846935E+02 -1.833121E-05 -5.761797E-06 -1.007727E-05 4.442120E+02 20 G 0.0 0.0 -4.129291E+02 6.724332E-01 7.711041E+01 0.0 22 G 8.074377E+01 -4.870377E+02 -3.213438E+00 -2.198283E+00 -3.223587E+01 4.434537E+02 23 G 0.0 0.0 -1.962603E+02 -6.025877E-01 6.132829E+01 0.0 24 G 8.261316E+01 -4.939240E+02 -9.848740E+00 -6.742932E+00 -7.953275E+01 4.565711E+02 25 G 4.300204E+01 -2.280617E+02 1.827244E+00 1.047867E+01 -8.151970E+01 2.243965E+02 26 G 2.597384E+02 2.597384E+02 0.0 -9.912969E+00 9.912971E+00 -1.545535E-07 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 0 F O R C E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 1 4.185772E-01 1.986923E-01 -3.011416E-01 2.558608E-01 -2.197533E-01 2 4.185343E-01 1.986923E-01 3.011148E-01 -2.558495E-01 -2.197456E-01 3 2.363556E+00 2.906897E+00 -1.327577E-01 1.507044E-01 3.464928E-01 4 5.598302E-01 2.012604E+00 -5.302541E-01 -3.588934E-01 -3.864098E-01 5 5.593891E-01 3.044006E+00 -1.369496E-05 -1.177101E-05 4.590988E-01 6 5.597072E-01 2.012619E+00 5.303126E-01 3.588743E-01 -3.863907E-01 7 2.363511E+00 2.906837E+00 1.327330E-01 -1.506929E-01 3.464546E-01 8 5.038669E+00 7.921600E+00 2.392047E-01 2.791443E-01 4.559593E-01 9 2.812561E+00 6.635864E+00 -5.189347E-01 -2.232857E-01 -3.519287E-01 10 3.484224E+00 7.523854E+00 2.719898E-01 3.291059E-02 5.066795E-01 11 1.554000E+00 5.873881E+00 -2.763301E-05 1.770727E-05 -4.265156E-01 12 3.484192E+00 7.523885E+00 -2.719622E-01 -3.295588E-02 5.066872E-01 13 2.812610E+00 6.635900E+00 5.189408E-01 2.232676E-01 -3.519707E-01 14 5.038725E+00 7.921627E+00 -2.391962E-01 -2.791319E-01 4.559822E-01 15 5.682122E+00 7.785271E+00 6.900254E-01 4.586849E-01 -1.910248E-01 16 4.005364E+00 7.165224E+00 4.720891E-02 -1.749034E-01 6.511726E-01 17 4.811410E+00 6.603031E+00 5.652848E-01 1.765912E-01 -2.055435E-01 18 3.353351E+00 6.008838E+00 1.629866E-01 1.155496E-02 3.259964E-01 19 4.706399E+00 6.421966E+00 -7.387168E-06 -1.333331E-05 -2.826748E-01 20 3.353328E+00 6.008839E+00 -1.629723E-01 -1.157880E-02 3.260174E-01 21 4.811429E+00 6.603067E+00 -5.652763E-01 -1.765904E-01 -2.055244E-01 22 4.005297E+00 7.165242E+00 -4.717469E-02 1.749210E-01 6.511955E-01 23 5.682114E+00 7.785252E+00 -6.900322E-01 -4.586897E-01 -1.910019E-01 24 -2.291738E+00 -1.914076E+01 -8.438914E-01 -5.777880E-01 -3.077005E+00 25 -2.896624E-01 -1.206918E+01 1.178883E+00 1.314135E-01 2.868053E+00 26 -1.799920E+00 -1.746300E+01 -7.531830E-01 -2.757806E-01 -2.982448E+00 27 2.612164E-01 -1.281880E+01 6.957340E-01 -9.183884E-04 2.766027E+00 28 -1.517951E+00 -1.642890E+01 -2.628676E-01 -9.626025E-02 -3.047090E+00 29 3.463801E-01 -1.308880E+01 9.536743E-07 -4.768372E-06 2.767863E+00 30 -1.517932E+00 -1.642889E+01 2.628653E-01 9.626486E-02 -3.047089E+00 31 2.612212E-01 -1.281878E+01 -6.957431E-01 9.188652E-04 2.766024E+00 32 -1.799925E+00 -1.746300E+01 7.531919E-01 2.757857E-01 -2.982447E+00 33 -2.896948E-01 -1.206919E+01 -1.178888E+00 -1.314259E-01 2.868062E+00 34 -2.291726E+00 -1.914075E+01 8.438944E-01 5.777926E-01 -3.077008E+00 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 0 S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 -1.500000E+00 -1.537994E+01 -1.561765E+01 -1.941972E-01 -29.2663 -1.527111E+01 -1.572647E+01 2.276807E-01 1.500000E+00 -1.593804E+01 -1.588257E+01 2.073250E-01 48.8101 -1.570113E+01 -1.611948E+01 2.091722E-01 0 2 -1.500000E+00 -1.537997E+01 -1.561765E+01 1.941795E-01 29.2667 -1.527115E+01 -1.572647E+01 2.276577E-01 1.500000E+00 -1.593802E+01 -1.588257E+01 -2.073069E-01 -48.8086 -1.570114E+01 -1.611945E+01 2.091525E-01 0 3 -1.500000E+00 -1.346805E+01 -1.376185E+01 -3.615104E-03 -0.7049 -1.346800E+01 -1.376189E+01 1.469456E-01 1.500000E+00 -1.661945E+01 -1.763771E+01 1.733951E-01 9.4037 -1.659074E+01 -1.766643E+01 5.378455E-01 0 4 -1.500000E+00 -1.526523E+01 -1.428504E+01 -3.849511E-01 -70.9258 -1.415193E+01 -1.539833E+01 6.231992E-01 1.500000E+00 -1.601167E+01 -1.696851E+01 3.220544E-01 16.9734 -1.591337E+01 -1.706681E+01 5.767223E-01 0 5 -1.500000E+00 -1.482904E+01 -1.366700E+01 -9.086680E-06 -89.9995 -1.366700E+01 -1.482904E+01 5.810175E-01 1.500000E+00 -1.557489E+01 -1.772568E+01 9.173271E-06 0.0002 -1.557489E+01 -1.772568E+01 1.075394E+00 0 6 -1.500000E+00 -1.526531E+01 -1.428503E+01 3.849901E-01 70.9257 -1.415191E+01 -1.539843E+01 6.232616E-01 1.500000E+00 -1.601159E+01 -1.696852E+01 -3.220934E-01 -16.9738 -1.591327E+01 -1.706683E+01 5.767797E-01 0 7 -1.500000E+00 -1.346807E+01 -1.376188E+01 3.598690E-03 0.7016 -1.346803E+01 -1.376193E+01 1.469490E-01 1.500000E+00 -1.661942E+01 -1.763767E+01 -1.733787E-01 -9.4030 -1.659071E+01 -1.766638E+01 5.378339E-01 0 8 -1.500000E+00 -8.936809E+00 -1.037887E+01 6.296102E-01 20.5639 -8.700606E+00 -1.061507E+01 9.572326E-01 1.500000E+00 -1.565503E+01 -2.094100E+01 3.106705E-01 3.3520 -1.563684E+01 -2.095920E+01 2.661181E+00 0 9 -1.500000E+00 -1.309164E+01 -1.081326E+01 -6.620051E-01 -74.9192 -1.063487E+01 -1.327002E+01 1.317575E+00 1.500000E+00 -1.684172E+01 -1.966108E+01 2.990788E-02 0.6077 -1.684140E+01 -1.966139E+01 1.409997E+00 0 10 -1.500000E+00 -1.008639E+01 -1.064912E+01 2.823195E-01 22.5486 -9.969171E+00 -1.076634E+01 3.985846E-01 1.500000E+00 -1.473202E+01 -2.068092E+01 -8.033353E-02 -0.7735 -1.473094E+01 -2.068201E+01 2.975535E+00 0 11 -1.500000E+00 -1.402112E+01 -1.091102E+01 -1.949634E-05 -89.9996 -1.091102E+01 -1.402112E+01 1.555050E+00 1.500000E+00 -1.609312E+01 -1.874286E+01 1.734767E-05 0.0004 -1.609312E+01 -1.874286E+01 1.324871E+00 0 12 -1.500000E+00 -1.008642E+01 -1.064910E+01 -2.823020E-01 -22.5488 -9.969201E+00 -1.076631E+01 3.985567E-01 1.500000E+00 -1.473201E+01 -2.068095E+01 8.031425E-02 0.7733 -1.473092E+01 -2.068203E+01 2.975554E+00 0 13 -1.500000E+00 -1.309160E+01 -1.081323E+01 6.620108E-01 74.9190 -1.063484E+01 -1.326999E+01 1.317574E+00 1.500000E+00 -1.684175E+01 -1.966110E+01 -2.991027E-02 -0.6078 -1.684143E+01 -1.966142E+01 1.409993E+00 0 14 -1.500000E+00 -8.936771E+00 -1.037886E+01 -6.296041E-01 -20.5635 -8.700577E+00 -1.061505E+01 9.572375E-01 1.500000E+00 -1.565507E+01 -2.094103E+01 -3.106758E-01 -3.3521 -1.563688E+01 -2.095922E+01 2.661174E+00 0 15 -1.500000E+00 -2.553598E+00 -9.929503E+00 1.581766E+00 11.6073 -2.228699E+00 -1.025440E+01 4.012852E+00 1.500000E+00 -1.012976E+01 -2.030986E+01 6.617323E-01 3.7036 -1.008693E+01 -2.035270E+01 5.132886E+00 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 0 S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 16 -1.500000E+00 -9.371593E+00 -9.358008E+00 -8.392524E-01 -45.2319 -8.525521E+00 -1.020408E+01 8.392799E-01 1.500000E+00 -1.471208E+01 -1.891164E+01 -9.021977E-01 -11.6257 -1.452646E+01 -1.909726E+01 2.285396E+00 0 17 -1.500000E+00 -3.102994E+00 -1.084871E+01 1.048301E+00 7.5729 -2.963625E+00 -1.098808E+01 4.012226E+00 1.500000E+00 -9.518208E+00 -1.965275E+01 2.945874E-01 1.6636 -9.509651E+00 -1.966131E+01 5.075827E+00 0 18 -1.500000E+00 -9.784378E+00 -9.322620E+00 -1.699941E-01 -71.8181 -9.266788E+00 -9.840210E+00 2.867107E-01 1.500000E+00 -1.425551E+01 -1.733440E+01 -3.873096E-01 -7.0610 -1.420754E+01 -1.738238E+01 1.587419E+00 0 19 -1.500000E+00 -3.170548E+00 -1.110754E+01 -4.459406E-06 0.0000 -3.170548E+00 -1.110754E+01 3.968494E+00 1.500000E+00 -9.445747E+00 -1.967016E+01 5.390151E-06 0.0000 -9.445747E+00 -1.967016E+01 5.112205E+00 0 20 -1.500000E+00 -9.784395E+00 -9.322623E+00 1.700054E-01 71.8176 -9.266786E+00 -9.840232E+00 2.867231E-01 1.500000E+00 -1.425550E+01 -1.733441E+01 3.873017E-01 7.0608 -1.420753E+01 -1.738238E+01 1.587426E+00 0 21 -1.500000E+00 -3.102981E+00 -1.084869E+01 -1.048296E+00 -7.5729 -2.963614E+00 -1.098806E+01 4.012221E+00 1.500000E+00 -9.518219E+00 -1.965278E+01 -2.945946E-01 -1.6636 -9.509663E+00 -1.966133E+01 5.075836E+00 0 22 -1.500000E+00 -9.371638E+00 -9.357996E+00 8.392751E-01 45.2328 -8.525514E+00 -1.020412E+01 8.393028E-01 1.500000E+00 -1.471204E+01 -1.891165E+01 9.021747E-01 11.6253 -1.452643E+01 -1.909726E+01 2.285413E+00 0 23 -1.500000E+00 -2.553603E+00 -9.929518E+00 -1.581772E+00 -11.6073 -2.228702E+00 -1.025442E+01 4.012858E+00 1.500000E+00 -1.012976E+01 -2.030985E+01 -6.617290E-01 -3.7036 -1.008692E+01 -2.035269E+01 5.132883E+00 0 24 -1.500000E+00 -3.690343E+00 -2.574081E+01 3.117485E-01 0.8098 -3.685937E+00 -2.574522E+01 1.102964E+01 1.500000E+00 -6.346928E-01 -2.197981E-01 1.436937E+00 49.1075 1.024589E+00 -1.879080E+00 1.451834E+00 0 25 -1.500000E+00 -6.110115E+00 -2.061674E+01 7.112551E-02 0.2809 -6.109766E+00 -2.061709E+01 7.253662E+00 1.500000E+00 -5.723898E+00 -4.524503E+00 -1.500719E+00 -55.8910 -3.508096E+00 -6.740305E+00 1.616104E+00 0 26 -1.500000E+00 -3.473177E+00 -2.528684E+01 3.982705E-02 0.1046 -3.473104E+00 -2.528691E+01 1.090690E+01 1.500000E+00 -1.073284E+00 -2.002846E+00 1.044071E+00 33.0016 -3.952147E-01 -2.680915E+00 1.142850E+00 0 27 -1.500000E+00 -5.575346E+00 -2.042859E+01 1.475643E-01 0.5691 -5.573880E+00 -2.043005E+01 7.428086E+00 1.500000E+00 -5.923635E+00 -3.336851E+00 -7.800812E-01 -74.4523 -3.119816E+00 -6.140669E+00 1.510427E+00 0 28 -1.500000E+00 -3.332322E+00 -2.488029E+01 6.699562E-03 0.0178 -3.332319E+00 -2.488029E+01 1.077399E+01 1.500000E+00 -1.308386E+00 -2.975090E+00 3.571897E-01 11.6004 -1.235063E+00 -3.048413E+00 9.066751E-01 0 29 -1.500000E+00 -5.456151E+00 -2.038676E+01 2.066294E-06 0.0000 -5.456151E+00 -2.038676E+01 7.465307E+00 1.500000E+00 -5.917991E+00 -2.935028E+00 7.947286E-07 90.0000 -2.935028E+00 -5.917991E+00 1.491481E+00 0 30 -1.500000E+00 -3.332309E+00 -2.488029E+01 -6.700203E-03 -0.0178 -3.332306E+00 -2.488029E+01 1.077399E+01 1.500000E+00 -1.308399E+00 -2.975101E+00 -3.571873E-01 -11.6004 -1.235077E+00 -3.048423E+00 9.066732E-01 1 SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B 0 S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 31 -1.500000E+00 -5.575344E+00 -2.042857E+01 -1.475722E-01 -0.5692 -5.573878E+00 -2.043004E+01 7.428081E+00 1.500000E+00 -5.923639E+00 -3.336866E+00 7.800853E-01 74.4522 -3.119829E+00 -6.140677E+00 1.510424E+00 0 32 -1.500000E+00 -3.473180E+00 -2.528683E+01 -3.982210E-02 -0.1046 -3.473106E+00 -2.528691E+01 1.090690E+01 1.500000E+00 -1.073279E+00 -2.002831E+00 -1.044078E+00 -33.0018 -3.952012E-01 -2.680910E+00 1.142854E+00 0 33 -1.500000E+00 -6.110137E+00 -2.061675E+01 -7.112855E-02 -0.2809 -6.109787E+00 -2.061710E+01 7.253656E+00 1.500000E+00 -5.723876E+00 -4.524496E+00 1.500723E+00 55.8908 -3.508081E+00 -6.740292E+00 1.616105E+00 0 34 -1.500000E+00 -3.690335E+00 -2.574081E+01 -3.117469E-01 -0.8098 -3.685928E+00 -2.574522E+01 1.102964E+01 1.500000E+00 -6.347011E-01 -2.198019E-01 -1.436939E+00 -49.1075 1.024585E+00 -1.879088E+00 1.451837E+00 * * * END OF JOB * * * 1 JOB TITLE = SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY DATE: 5/17/95 END TIME: 14:29:53 TOTAL WALL CLOCK TIME 1 SEC. ================================================ FILE: demoout/d01031a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01031A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FREE RECTANGULAR PLATE WITH THERMAL LOADING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A 3 LABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 4 SPC = 1 5 TEMPERATURE = 1 6 OUTPUT 7 SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247 8 SET 2 = 1 THRU 26 9 DISPLACEMENTS = 1 10 OLOAD = 2 11 $ STRESSES FOR POINTS ON PUBLISHED CURVES 12 SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98, 13 106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176, 14 184,189, 197,202, 210,215, 223,228 15 STRESSES = 3 16 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 595, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CNGRNT 1 14 27 40 53 66 79 92 +CNG11 2- +CNG11 105 118 131 144 157 170 183 196 +CNG12 3- +CNG12 209 222 4- CNGRNT 2 15 28 41 54 67 80 93 +CNG21 5- +CNG21 106 119 132 145 158 171 184 197 +CNG22 6- +CNG22 210 223 7- CNGRNT 3 16 29 42 55 68 81 94 +CNG31 8- +CNG31 107 120 133 146 159 172 185 198 +CNG32 9- +CNG32 211 224 10- CNGRNT 4 17 30 43 56 69 82 95 +CNG41 11- +CNG41 108 121 134 147 160 173 186 199 +CNG42 12- +CNG42 212 225 13- CNGRNT 5 18 31 44 57 70 83 96 +CNG51 14- +CNG51 109 122 135 148 161 174 187 200 +CNG52 15- +CNG52 213 226 16- CNGRNT 6 19 32 45 58 71 84 97 +CNG61 17- +CNG61 110 123 136 149 162 175 188 201 +CNG62 18- +CNG62 214 227 19- CNGRNT 7 20 33 46 59 72 85 98 +CNG71 20- +CNG71 111 124 137 150 163 176 189 202 +CNG72 21- +CNG72 215 228 22- CNGRNT 8 21 34 47 60 73 86 99 +CNG81 23- +CNG81 112 125 138 151 164 177 190 203 +CNG82 24- +CNG82 216 229 25- CNGRNT 9 22 35 48 61 74 87 100 +CNG91 26- +CNG91 113 126 139 152 165 178 191 204 +CNG92 27- +CNG92 217 230 28- CNGRNT 10 23 36 49 62 75 88 101 +CNG101 29- +CNG101 114 127 140 153 166 179 192 205 +CNG102 30- +CNG102 218 231 31- CNGRNT 11 24 37 50 63 76 89 102 +CNG111 32- +CNG111 115 128 141 154 167 180 193 206 +CNG112 33- +CNG112 219 232 34- CNGRNT 12 25 38 51 64 77 90 103 +CNG121 35- +CNG121 116 129 142 155 168 181 194 207 +CNG122 36- +CNG122 220 233 37- CQDMEM 1 21 1 2 15 14 .00 38- CQDMEM 2 21 2 3 16 15 .00 39- CQDMEM 3 21 3 4 17 16 .00 40- CQDMEM 4 21 4 5 18 17 .00 41- CQDMEM 5 21 5 6 19 18 .00 42- CQDMEM 6 21 6 7 20 19 .00 43- CQDMEM 7 21 7 8 21 20 .00 44- CQDMEM 8 21 8 9 22 21 .00 45- CQDMEM 9 21 9 10 23 22 .00 46- CQDMEM 10 21 10 11 24 23 .00 47- CQDMEM 11 21 11 12 25 24 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQDMEM 12 21 12 13 26 25 .00 49- CQDMEM 14 21 14 15 28 27 .00 50- CQDMEM 15 21 15 16 29 28 .00 51- CQDMEM 16 21 16 17 30 29 .00 52- CQDMEM 17 21 17 18 31 30 .00 53- CQDMEM 18 21 18 19 32 31 .00 54- CQDMEM 19 21 19 20 33 32 .00 55- CQDMEM 20 21 20 21 34 33 .00 56- CQDMEM 21 21 21 22 35 34 .00 57- CQDMEM 22 21 22 23 36 35 .00 58- CQDMEM 23 21 23 24 37 36 .00 59- CQDMEM 24 21 24 25 38 37 .00 60- CQDMEM 25 21 25 26 39 38 .00 61- CQDMEM 27 21 27 28 41 40 .00 62- CQDMEM 28 21 28 29 42 41 .00 63- CQDMEM 29 21 29 30 43 42 .00 64- CQDMEM 30 21 30 31 44 43 .00 65- CQDMEM 31 21 31 32 45 44 .00 66- CQDMEM 32 21 32 33 46 45 .00 67- CQDMEM 33 21 33 34 47 46 .00 68- CQDMEM 34 21 34 35 48 47 .00 69- CQDMEM 35 21 35 36 49 48 .00 70- CQDMEM 36 21 36 37 50 49 .00 71- CQDMEM 37 21 37 38 51 50 .00 72- CQDMEM 38 21 38 39 52 51 .00 73- CQDMEM 40 21 40 41 54 53 .00 74- CQDMEM 41 21 41 42 55 54 .00 75- CQDMEM 42 21 42 43 56 55 .00 76- CQDMEM 43 21 43 44 57 56 .00 77- CQDMEM 44 21 44 45 58 57 .00 78- CQDMEM 45 21 45 46 59 58 .00 79- CQDMEM 46 21 46 47 60 59 .00 80- CQDMEM 47 21 47 48 61 60 .00 81- CQDMEM 48 21 48 49 62 61 .00 82- CQDMEM 49 21 49 50 63 62 .00 83- CQDMEM 50 21 50 51 64 63 .00 84- CQDMEM 51 21 51 52 65 64 .00 85- CQDMEM 53 21 53 54 67 66 .00 86- CQDMEM 54 21 54 55 68 67 .00 87- CQDMEM 55 21 55 56 69 68 .00 88- CQDMEM 56 21 56 57 70 69 .00 89- CQDMEM 57 21 57 58 71 70 .00 90- CQDMEM 58 21 58 59 72 71 .00 91- CQDMEM 59 21 59 60 73 72 .00 92- CQDMEM 60 21 60 61 74 73 .00 93- CQDMEM 61 21 61 62 75 74 .00 94- CQDMEM 62 21 62 63 76 75 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CQDMEM 63 21 63 64 77 76 .00 96- CQDMEM 64 21 64 65 78 77 .00 97- CQDMEM 66 21 66 67 80 79 .00 98- CQDMEM 67 21 67 68 81 80 .00 99- CQDMEM 68 21 68 69 82 81 .00 100- CQDMEM 69 21 69 70 83 82 .00 101- CQDMEM 70 21 70 71 84 83 .00 102- CQDMEM 71 21 71 72 85 84 .00 103- CQDMEM 72 21 72 73 86 85 .00 104- CQDMEM 73 21 73 74 87 86 .00 105- CQDMEM 74 21 74 75 88 87 .00 106- CQDMEM 75 21 75 76 89 88 .00 107- CQDMEM 76 21 76 77 90 89 .00 108- CQDMEM 77 21 77 78 91 90 .00 109- CQDMEM 79 21 79 80 93 92 .00 110- CQDMEM 80 21 80 81 94 93 .00 111- CQDMEM 81 21 81 82 95 94 .00 112- CQDMEM 82 21 82 83 96 95 .00 113- CQDMEM 83 21 83 84 97 96 .00 114- CQDMEM 84 21 84 85 98 97 .00 115- CQDMEM 85 21 85 86 99 98 .00 116- CQDMEM 86 21 86 87 100 99 .00 117- CQDMEM 87 21 87 88 101 100 .00 118- CQDMEM 88 21 88 89 102 101 .00 119- CQDMEM 89 21 89 90 103 102 .00 120- CQDMEM 90 21 90 91 104 103 .00 121- CQDMEM 92 21 92 93 106 105 .00 122- CQDMEM 93 21 93 94 107 106 .00 123- CQDMEM 94 21 94 95 108 107 .00 124- CQDMEM 95 21 95 96 109 108 .00 125- CQDMEM 96 21 96 97 110 109 .00 126- CQDMEM 97 21 97 98 111 110 .00 127- CQDMEM 98 21 98 99 112 111 .00 128- CQDMEM 99 21 99 100 113 112 .00 129- CQDMEM 100 21 100 101 114 113 .00 130- CQDMEM 101 21 101 102 115 114 .00 131- CQDMEM 102 21 102 103 116 115 .00 132- CQDMEM 103 21 103 104 117 116 .00 133- CQDMEM 105 21 105 106 119 118 .00 134- CQDMEM 106 21 106 107 120 119 .00 135- CQDMEM 107 21 107 108 121 120 .00 136- CQDMEM 108 21 108 109 122 121 .00 137- CQDMEM 109 21 109 110 123 122 .00 138- CQDMEM 110 21 110 111 124 123 .00 139- CQDMEM 111 21 111 112 125 124 .00 140- CQDMEM 112 21 112 113 126 125 .00 141- CQDMEM 113 21 113 114 127 126 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CQDMEM 114 21 114 115 128 127 .00 143- CQDMEM 115 21 115 116 129 128 .00 144- CQDMEM 116 21 116 117 130 129 .00 145- CQDMEM 118 21 118 119 132 131 .00 146- CQDMEM 119 21 119 120 133 132 .00 147- CQDMEM 120 21 120 121 134 133 .00 148- CQDMEM 121 21 121 122 135 134 .00 149- CQDMEM 122 21 122 123 136 135 .00 150- CQDMEM 123 21 123 124 137 136 .00 151- CQDMEM 124 21 124 125 138 137 .00 152- CQDMEM 125 21 125 126 139 138 .00 153- CQDMEM 126 21 126 127 140 139 .00 154- CQDMEM 127 21 127 128 141 140 .00 155- CQDMEM 128 21 128 129 142 141 .00 156- CQDMEM 129 21 129 130 143 142 .00 157- CQDMEM 131 21 131 132 145 144 .00 158- CQDMEM 132 21 132 133 146 145 .00 159- CQDMEM 133 21 133 134 147 146 .00 160- CQDMEM 134 21 134 135 148 147 .00 161- CQDMEM 135 21 135 136 149 148 .00 162- CQDMEM 136 21 136 137 150 149 .00 163- CQDMEM 137 21 137 138 151 150 .00 164- CQDMEM 138 21 138 139 152 151 .00 165- CQDMEM 139 21 139 140 153 152 .00 166- CQDMEM 140 21 140 141 154 153 .00 167- CQDMEM 141 21 141 142 155 154 .00 168- CQDMEM 142 21 142 143 156 155 .00 169- CQDMEM 144 21 144 145 158 157 .00 170- CQDMEM 145 21 145 146 159 158 .00 171- CQDMEM 146 21 146 147 160 159 .00 172- CQDMEM 147 21 147 148 161 160 .00 173- CQDMEM 148 21 148 149 162 161 .00 174- CQDMEM 149 21 149 150 163 162 .00 175- CQDMEM 150 21 150 151 164 163 .00 176- CQDMEM 151 21 151 152 165 164 .00 177- CQDMEM 152 21 152 153 166 165 .00 178- CQDMEM 153 21 153 154 167 166 .00 179- CQDMEM 154 21 154 155 168 167 .00 180- CQDMEM 155 21 155 156 169 168 .00 181- CQDMEM 157 21 157 158 171 170 .00 182- CQDMEM 158 21 158 159 172 171 .00 183- CQDMEM 159 21 159 160 173 172 .00 184- CQDMEM 160 21 160 161 174 173 .00 185- CQDMEM 161 21 161 162 175 174 .00 186- CQDMEM 162 21 162 163 176 175 .00 187- CQDMEM 163 21 163 164 177 176 .00 188- CQDMEM 164 21 164 165 178 177 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CQDMEM 165 21 165 166 179 178 .00 190- CQDMEM 166 21 166 167 180 179 .00 191- CQDMEM 167 21 167 168 181 180 .00 192- CQDMEM 168 21 168 169 182 181 .00 193- CQDMEM 170 21 170 171 184 183 .00 194- CQDMEM 171 21 171 172 185 184 .00 195- CQDMEM 172 21 172 173 186 185 .00 196- CQDMEM 173 21 173 174 187 186 .00 197- CQDMEM 174 21 174 175 188 187 .00 198- CQDMEM 175 21 175 176 189 188 .00 199- CQDMEM 176 21 176 177 190 189 .00 200- CQDMEM 177 21 177 178 191 190 .00 201- CQDMEM 178 21 178 179 192 191 .00 202- CQDMEM 179 21 179 180 193 192 .00 203- CQDMEM 180 21 180 181 194 193 .00 204- CQDMEM 181 21 181 182 195 194 .00 205- CQDMEM 183 21 183 184 197 196 .00 206- CQDMEM 184 21 184 185 198 197 .00 207- CQDMEM 185 21 185 186 199 198 .00 208- CQDMEM 186 21 186 187 200 199 .00 209- CQDMEM 187 21 187 188 201 200 .00 210- CQDMEM 188 21 188 189 202 201 .00 211- CQDMEM 189 21 189 190 203 202 .00 212- CQDMEM 190 21 190 191 204 203 .00 213- CQDMEM 191 21 191 192 205 204 .00 214- CQDMEM 192 21 192 193 206 205 .00 215- CQDMEM 193 21 193 194 207 206 .00 216- CQDMEM 194 21 194 195 208 207 .00 217- CQDMEM 196 21 196 197 210 209 .00 218- CQDMEM 197 21 197 198 211 210 .00 219- CQDMEM 198 21 198 199 212 211 .00 220- CQDMEM 199 21 199 200 213 212 .00 221- CQDMEM 200 21 200 201 214 213 .00 222- CQDMEM 201 21 201 202 215 214 .00 223- CQDMEM 202 21 202 203 216 215 .00 224- CQDMEM 203 21 203 204 217 216 .00 225- CQDMEM 204 21 204 205 218 217 .00 226- CQDMEM 205 21 205 206 219 218 .00 227- CQDMEM 206 21 206 207 220 219 .00 228- CQDMEM 207 21 207 208 221 220 .00 229- CQDMEM 209 21 209 210 223 222 .00 230- CQDMEM 210 21 210 211 224 223 .00 231- CQDMEM 211 21 211 212 225 224 .00 232- CQDMEM 212 21 212 213 226 225 .00 233- CQDMEM 213 21 213 214 227 226 .00 234- CQDMEM 214 21 214 215 228 227 .00 235- CQDMEM 215 21 215 216 229 228 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- CQDMEM 216 21 216 217 230 229 .00 237- CQDMEM 217 21 217 218 231 230 .00 238- CQDMEM 218 21 218 219 232 231 .00 239- CQDMEM 219 21 219 220 233 232 .00 240- CQDMEM 220 21 220 221 234 233 .00 241- CQDMEM 222 21 222 223 236 235 .00 242- CQDMEM 223 21 223 224 237 236 .00 243- CQDMEM 224 21 224 225 238 237 .00 244- CQDMEM 225 21 225 226 239 238 .00 245- CQDMEM 226 21 226 227 240 239 .00 246- CQDMEM 227 21 227 228 241 240 .00 247- CQDMEM 228 21 228 229 242 241 .00 248- CQDMEM 229 21 229 230 243 242 .00 249- CQDMEM 230 21 230 231 244 243 .00 250- CQDMEM 231 21 231 232 245 244 .00 251- CQDMEM 232 21 232 233 246 245 .00 252- CQDMEM 233 21 233 234 247 246 .00 253- GRDSET 3456 254- GRID 1 .0 .0 .0 255- GRID 2 1.0 .0 .0 256- GRID 3 2.0 .0 .0 257- GRID 4 3.0 .0 .0 258- GRID 5 4.0 .0 .0 259- GRID 6 5.0 .0 .0 260- GRID 7 6.0 .0 .0 261- GRID 8 7.0 .0 .0 262- GRID 9 8.0 .0 .0 263- GRID 10 9.0 .0 .0 264- GRID 11 10.0 .0 .0 265- GRID 12 11.0 .0 .0 266- GRID 13 12.0 .0 .0 267- GRID 14 .0 1.0 .0 268- GRID 15 1.0 1.0 .0 269- GRID 16 2.0 1.0 .0 270- GRID 17 3.0 1.0 .0 271- GRID 18 4.0 1.0 .0 272- GRID 19 5.0 1.0 .0 273- GRID 20 6.0 1.0 .0 274- GRID 21 7.0 1.0 .0 275- GRID 22 8.0 1.0 .0 276- GRID 23 9.0 1.0 .0 277- GRID 24 10.0 1.0 .0 278- GRID 25 11.0 1.0 .0 279- GRID 26 12.0 1.0 .0 280- GRID 27 .0 2.0 .0 281- GRID 28 1.0 2.0 .0 282- GRID 29 2.0 2.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- GRID 30 3.0 2.0 .0 284- GRID 31 4.0 2.0 .0 285- GRID 32 5.0 2.0 .0 286- GRID 33 6.0 2.0 .0 287- GRID 34 7.0 2.0 .0 288- GRID 35 8.0 2.0 .0 289- GRID 36 9.0 2.0 .0 290- GRID 37 10.0 2.0 .0 291- GRID 38 11.0 2.0 .0 292- GRID 39 12.0 2.0 .0 293- GRID 40 .0 3.0 .0 294- GRID 41 1.0 3.0 .0 295- GRID 42 2.0 3.0 .0 296- GRID 43 3.0 3.0 .0 297- GRID 44 4.0 3.0 .0 298- GRID 45 5.0 3.0 .0 299- GRID 46 6.0 3.0 .0 300- GRID 47 7.0 3.0 .0 301- GRID 48 8.0 3.0 .0 302- GRID 49 9.0 3.0 .0 303- GRID 50 10.0 3.0 .0 304- GRID 51 11.0 3.0 .0 305- GRID 52 12.0 3.0 .0 306- GRID 53 .0 4.0 .0 307- GRID 54 1.0 4.0 .0 308- GRID 55 2.0 4.0 .0 309- GRID 56 3.0 4.0 .0 310- GRID 57 4.0 4.0 .0 311- GRID 58 5.0 4.0 .0 312- GRID 59 6.0 4.0 .0 313- GRID 60 7.0 4.0 .0 314- GRID 61 8.0 4.0 .0 315- GRID 62 9.0 4.0 .0 316- GRID 63 10.0 4.0 .0 317- GRID 64 11.0 4.0 .0 318- GRID 65 12.0 4.0 .0 319- GRID 66 .0 5.0 .0 320- GRID 67 1.0 5.0 .0 321- GRID 68 2.0 5.0 .0 322- GRID 69 3.0 5.0 .0 323- GRID 70 4.0 5.0 .0 324- GRID 71 5.0 5.0 .0 325- GRID 72 6.0 5.0 .0 326- GRID 73 7.0 5.0 .0 327- GRID 74 8.0 5.0 .0 328- GRID 75 9.0 5.0 .0 329- GRID 76 10.0 5.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- GRID 77 11.0 5.0 .0 331- GRID 78 12.0 5.0 .0 332- GRID 79 .0 6.0 .0 333- GRID 80 1.0 6.0 .0 334- GRID 81 2.0 6.0 .0 335- GRID 82 3.0 6.0 .0 336- GRID 83 4.0 6.0 .0 337- GRID 84 5.0 6.0 .0 338- GRID 85 6.0 6.0 .0 339- GRID 86 7.0 6.0 .0 340- GRID 87 8.0 6.0 .0 341- GRID 88 9.0 6.0 .0 342- GRID 89 10.0 6.0 .0 343- GRID 90 11.0 6.0 .0 344- GRID 91 12.0 6.0 .0 345- GRID 92 .0 7.0 .0 346- GRID 93 1.0 7.0 .0 347- GRID 94 2.0 7.0 .0 348- GRID 95 3.0 7.0 .0 349- GRID 96 4.0 7.0 .0 350- GRID 97 5.0 7.0 .0 351- GRID 98 6.0 7.0 .0 352- GRID 99 7.0 7.0 .0 353- GRID 100 8.0 7.0 .0 354- GRID 101 9.0 7.0 .0 355- GRID 102 10.0 7.0 .0 356- GRID 103 11.0 7.0 .0 357- GRID 104 12.0 7.0 .0 358- GRID 105 .0 8.0 .0 359- GRID 106 1.0 8.0 .0 360- GRID 107 2.0 8.0 .0 361- GRID 108 3.0 8.0 .0 362- GRID 109 4.0 8.0 .0 363- GRID 110 5.0 8.0 .0 364- GRID 111 6.0 8.0 .0 365- GRID 112 7.0 8.0 .0 366- GRID 113 8.0 8.0 .0 367- GRID 114 9.0 8.0 .0 368- GRID 115 10.0 8.0 .0 369- GRID 116 11.0 8.0 .0 370- GRID 117 12.0 8.0 .0 371- GRID 118 .0 9.0 .0 372- GRID 119 1.0 9.0 .0 373- GRID 120 2.0 9.0 .0 374- GRID 121 3.0 9.0 .0 375- GRID 122 4.0 9.0 .0 376- GRID 123 5.0 9.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- GRID 124 6.0 9.0 .0 378- GRID 125 7.0 9.0 .0 379- GRID 126 8.0 9.0 .0 380- GRID 127 9.0 9.0 .0 381- GRID 128 10.0 9.0 .0 382- GRID 129 11.0 9.0 .0 383- GRID 130 12.0 9.0 .0 384- GRID 131 .0 10.0 .0 385- GRID 132 1.0 10.0 .0 386- GRID 133 2.0 10.0 .0 387- GRID 134 3.0 10.0 .0 388- GRID 135 4.0 10.0 .0 389- GRID 136 5.0 10.0 .0 390- GRID 137 6.0 10.0 .0 391- GRID 138 7.0 10.0 .0 392- GRID 139 8.0 10.0 .0 393- GRID 140 9.0 10.0 .0 394- GRID 141 10.0 10.0 .0 395- GRID 142 11.0 10.0 .0 396- GRID 143 12.0 10.0 .0 397- GRID 144 .0 11.0 .0 398- GRID 145 1.0 11.0 .0 399- GRID 146 2.0 11.0 .0 400- GRID 147 3.0 11.0 .0 401- GRID 148 4.0 11.0 .0 402- GRID 149 5.0 11.0 .0 403- GRID 150 6.0 11.0 .0 404- GRID 151 7.0 11.0 .0 405- GRID 152 8.0 11.0 .0 406- GRID 153 9.0 11.0 .0 407- GRID 154 10.0 11.0 .0 408- GRID 155 11.0 11.0 .0 409- GRID 156 12.0 11.0 .0 410- GRID 157 .0 12.0 .0 411- GRID 158 1.0 12.0 .0 412- GRID 159 2.0 12.0 .0 413- GRID 160 3.0 12.0 .0 414- GRID 161 4.0 12.0 .0 415- GRID 162 5.0 12.0 .0 416- GRID 163 6.0 12.0 .0 417- GRID 164 7.0 12.0 .0 418- GRID 165 8.0 12.0 .0 419- GRID 166 9.0 12.0 .0 420- GRID 167 10.0 12.0 .0 421- GRID 168 11.0 12.0 .0 422- GRID 169 12.0 12.0 .0 423- GRID 170 .0 13.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- GRID 171 1.0 13.0 .0 425- GRID 172 2.0 13.0 .0 426- GRID 173 3.0 13.0 .0 427- GRID 174 4.0 13.0 .0 428- GRID 175 5.0 13.0 .0 429- GRID 176 6.0 13.0 .0 430- GRID 177 7.0 13.0 .0 431- GRID 178 8.0 13.0 .0 432- GRID 179 9.0 13.0 .0 433- GRID 180 10.0 13.0 .0 434- GRID 181 11.0 13.0 .0 435- GRID 182 12.0 13.0 .0 436- GRID 183 .0 14.0 .0 437- GRID 184 1.0 14.0 .0 438- GRID 185 2.0 14.0 .0 439- GRID 186 3.0 14.0 .0 440- GRID 187 4.0 14.0 .0 441- GRID 188 5.0 14.0 .0 442- GRID 189 6.0 14.0 .0 443- GRID 190 7.0 14.0 .0 444- GRID 191 8.0 14.0 .0 445- GRID 192 9.0 14.0 .0 446- GRID 193 10.0 14.0 .0 447- GRID 194 11.0 14.0 .0 448- GRID 195 12.0 14.0 .0 449- GRID 196 .0 15.0 .0 450- GRID 197 1.0 15.0 .0 451- GRID 198 2.0 15.0 .0 452- GRID 199 3.0 15.0 .0 453- GRID 200 4.0 15.0 .0 454- GRID 201 5.0 15.0 .0 455- GRID 202 6.0 15.0 .0 456- GRID 203 7.0 15.0 .0 457- GRID 204 8.0 15.0 .0 458- GRID 205 9.0 15.0 .0 459- GRID 206 10.0 15.0 .0 460- GRID 207 11.0 15.0 .0 461- GRID 208 12.0 15.0 .0 462- GRID 209 .0 16.0 .0 463- GRID 210 1.0 16.0 .0 464- GRID 211 2.0 16.0 .0 465- GRID 212 3.0 16.0 .0 466- GRID 213 4.0 16.0 .0 467- GRID 214 5.0 16.0 .0 468- GRID 215 6.0 16.0 .0 469- GRID 216 7.0 16.0 .0 470- GRID 217 8.0 16.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- GRID 218 9.0 16.0 .0 472- GRID 219 10.0 16.0 .0 473- GRID 220 11.0 16.0 .0 474- GRID 221 12.0 16.0 .0 475- GRID 222 .0 17.0 .0 476- GRID 223 1.0 17.0 .0 477- GRID 224 2.0 17.0 .0 478- GRID 225 3.0 17.0 .0 479- GRID 226 4.0 17.0 .0 480- GRID 227 5.0 17.0 .0 481- GRID 228 6.0 17.0 .0 482- GRID 229 7.0 17.0 .0 483- GRID 230 8.0 17.0 .0 484- GRID 231 9.0 17.0 .0 485- GRID 232 10.0 17.0 .0 486- GRID 233 11.0 17.0 .0 487- GRID 234 12.0 17.0 .0 488- GRID 235 .0 18.0 .0 489- GRID 236 1.0 18.0 .0 490- GRID 237 2.0 18.0 .0 491- GRID 238 3.0 18.0 .0 492- GRID 239 4.0 18.0 .0 493- GRID 240 5.0 18.0 .0 494- GRID 241 6.0 18.0 .0 495- GRID 242 7.0 18.0 .0 496- GRID 243 8.0 18.0 .0 497- GRID 244 9.0 18.0 .0 498- GRID 245 10.0 18.0 .0 499- GRID 246 11.0 18.0 .0 500- GRID 247 12.0 18.0 .0 501- MAT1 75 10.400+6 .3 12.700-675. 502- MATT1 75 100 503- PARAM IRES 1 504- PQDMEM 21 75 .25 505- SPC1 1 1 1 14 27 40 53 66 CSPC-A 506- +SPC-A 79 92 105 118 131 144 157 170 CSPC-B 507- +SPC-B 183 196 209 222 235 508- SPC1 1 2 1 2 3 4 5 6 CSPC-C 509- +SPC-C 7 8 9 10 11 12 13 510- TABLEM1 100 +TM1 511- +TM1 80. 10.4+6 150. 10.15+6 200. 9.84+6 250. 9.51+6 +TM2 512- +TM2 300. 9.15+6 ENDT 513- TEMP 1 1 245.000 2 232.500 3 220.000 514- TEMP 1 4 207.500 5 195.000 6 182.500 515- TEMP 1 7 170.000 8 157.500 9 145.000 516- TEMP 1 10 132.500 11 120.000 12 107.500 517- TEMP 1 13 95.000 14 245.000 15 232.500 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- TEMP 1 16 220.000 17 207.500 18 195.000 519- TEMP 1 19 182.500 20 170.000 21 157.500 520- TEMP 1 22 145.000 23 132.500 24 120.000 521- TEMP 1 25 107.500 26 95.000 27 245.000 522- TEMP 1 28 232.500 29 220.000 30 207.500 523- TEMP 1 31 195.000 32 182.500 33 170.000 524- TEMP 1 34 157.500 35 145.000 36 132.500 525- TEMP 1 37 120.000 38 107.500 39 95.000 526- TEMP 1 40 245.000 41 232.500 42 220.000 527- TEMP 1 43 207.500 44 195.000 45 182.500 528- TEMP 1 46 170.000 47 157.500 48 145.000 529- TEMP 1 49 132.500 50 120.000 51 107.500 530- TEMP 1 52 95.000 53 245.000 54 232.500 531- TEMP 1 55 220.000 56 207.500 57 195.000 532- TEMP 1 58 182.500 59 170.000 60 157.500 533- TEMP 1 61 145.000 62 132.500 63 120.000 534- TEMP 1 64 107.500 65 95.000 66 245.000 535- TEMP 1 67 232.500 68 220.000 69 207.500 536- TEMP 1 70 195.000 71 182.500 72 170.000 537- TEMP 1 73 157.500 74 145.000 75 132.500 538- TEMP 1 76 120.000 77 107.500 78 95.000 539- TEMP 1 79 245.000 80 232.500 81 220.000 540- TEMP 1 82 207.500 83 195.000 84 182.500 541- TEMP 1 85 170.000 86 157.500 87 145.000 542- TEMP 1 88 132.500 89 120.000 90 107.500 543- TEMP 1 91 95.000 92 245.000 93 232.500 544- TEMP 1 94 220.000 95 207.500 96 195.000 545- TEMP 1 97 182.500 98 170.000 99 157.500 546- TEMP 1 100 145.000 101 132.500 102 120.000 547- TEMP 1 103 107.500 104 95.000 105 245.000 548- TEMP 1 106 232.500 107 220.000 108 207.500 549- TEMP 1 109 195.000 110 182.500 111 170.000 550- TEMP 1 112 157.500 113 145.000 114 132.500 551- TEMP 1 115 120.000 116 107.500 117 95.000 552- TEMP 1 118 245.000 119 232.500 120 220.000 553- TEMP 1 121 207.500 122 195.000 123 182.500 554- TEMP 1 124 170.000 125 157.500 126 145.000 555- TEMP 1 127 132.500 128 120.000 129 107.500 556- TEMP 1 130 95.000 131 245.000 132 232.500 557- TEMP 1 133 220.000 134 207.500 135 195.000 558- TEMP 1 136 182.500 137 170.000 138 157.500 559- TEMP 1 139 145.000 140 132.500 141 120.000 560- TEMP 1 142 107.500 143 95.000 144 245.000 561- TEMP 1 145 232.500 146 220.000 147 207.500 562- TEMP 1 148 195.000 149 182.500 150 170.000 563- TEMP 1 151 157.500 152 145.000 153 132.500 564- TEMP 1 154 120.000 155 107.500 156 95.000 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 565- TEMP 1 157 245.000 158 232.500 159 220.000 566- TEMP 1 160 207.500 161 195.000 162 182.500 567- TEMP 1 163 170.000 164 157.500 165 145.000 568- TEMP 1 166 132.500 167 120.000 168 107.500 569- TEMP 1 169 95.000 170 245.000 171 232.500 570- TEMP 1 172 220.000 173 207.500 174 195.000 571- TEMP 1 175 182.500 176 170.000 177 157.500 572- TEMP 1 178 145.000 179 132.500 180 120.000 573- TEMP 1 181 107.500 182 95.000 183 245.000 574- TEMP 1 184 232.500 185 220.000 186 207.500 575- TEMP 1 187 195.000 188 182.500 189 170.000 576- TEMP 1 190 157.500 191 145.000 192 132.500 577- TEMP 1 193 120.000 194 107.500 195 95.000 578- TEMP 1 196 245.000 197 232.500 198 220.000 579- TEMP 1 199 207.500 200 195.000 201 182.500 580- TEMP 1 202 170.000 203 157.500 204 145.000 581- TEMP 1 205 132.500 206 120.000 207 107.500 582- TEMP 1 208 95.000 209 245.000 210 232.500 583- TEMP 1 211 220.000 212 207.500 213 195.000 584- TEMP 1 214 182.500 215 170.000 216 157.500 585- TEMP 1 217 145.000 218 132.500 219 120.000 586- TEMP 1 220 107.500 221 95.000 222 245.000 587- TEMP 1 223 232.500 224 220.000 225 207.500 588- TEMP 1 226 195.000 227 182.500 228 170.000 589- TEMP 1 229 157.500 230 145.000 231 132.500 590- TEMP 1 232 120.000 233 107.500 234 95.000 591- TEMP 1 235 245.000 236 232.500 237 220.000 592- TEMP 1 238 207.500 239 195.000 240 182.500 593- TEMP 1 241 170.000 242 157.500 243 145.000 594- TEMP 1 244 132.500 245 120.000 246 107.500 595- TEMP 1 247 95.000 ENDDATA 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 15 PROFILE 3517 MAX WAVEFRONT 15 AVG WAVEFRONT 14.239 RMS WAVEFRONT 14.436 RMS BANDWIDTH 14.534 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 23 PROFILE 3622 MAX WAVEFRONT 21 AVG WAVEFRONT 14.664 RMS WAVEFRONT 15.039 RMS BANDWIDTH 15.423 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 15 15 PROFILE (P) 3517 3517 MAXIMUM WAVEFRONT (C-MAX) 15 15 AVERAGE WAVEFRONT (C-AVG) 14.239 14.239 RMS WAVEFRONT (C-RMS) 14.436 14.436 RMS BANDWITCH (B-RMS) 14.534 14.534 NUMBER OF GRID POINTS (N) 247 NUMBER OF ELEMENTS (NON-RIGID) 216 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 894 MATRIX DENSITY, PERCENT 3.336 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -8.5814750E-16 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 2-T1). 2 T1 5.68434E-13 3 T1 3.06954E-12 4 T1 -1.70530E-12 5 T1 6.82121E-13 7 T1 -5.68434E-13 8 T1 2.61480E-12 9 T1 -6.93490E-12 10 T1 2.38742E-12 11 T1 9.72022E-12 12 T1 -1.50067E-11 13 T1 -1.02318E-12 14 T2 1.02318E-12 15 T1 2.27374E-12 15 T2 9.09495E-13 16 T1 2.27374E-13 16 T2 2.27374E-12 17 T1 4.32010E-12 17 T2 -9.09495E-13 18 T1 -1.13687E-12 18 T2 3.18323E-12 19 T1 -4.54747E-13 19 T2 9.09495E-13 20 T1 -1.06866E-11 21 T1 -6.13909E-12 21 T2 1.81899E-12 22 T1 -1.11413E-11 22 T2 2.72848E-12 23 T1 2.16005E-11 23 T2 9.09495E-13 24 T1 -1.70530E-12 24 T2 2.72848E-12 25 T1 -3.92220E-11 25 T2 1.81899E-12 26 T1 1.05302E-11 27 T2 -9.09495E-13 28 T1 4.54747E-13 28 T2 -7.73070E-12 29 T1 5.22959E-12 29 T2 -5.91172E-12 30 T1 1.04592E-11 30 T2 9.09495E-13 31 T1 1.50067E-11 31 T2 -8.18545E-12 32 T1 -4.32010E-12 32 T2 -1.81899E-12 33 T1 -2.27374E-12 33 T2 -4.54747E-12 34 T1 7.95808E-12 35 T1 6.59384E-12 35 T2 -3.63798E-12 36 T1 -1.29603E-11 36 T2 3.63798E-12 37 T1 3.59250E-11 37 T2 3.63798E-12 38 T1 -1.47793E-11 38 T2 6.36646E-12 39 T1 2.50111E-12 40 T2 3.41061E-13 41 T1 -9.09495E-13 41 T2 1.31877E-11 42 T1 -2.27374E-12 42 T2 5.00222E-12 43 T1 -6.82121E-12 43 T2 -4.09273E-12 44 T1 3.18323E-12 44 T2 -1.09139E-11 45 T1 2.72848E-12 45 T2 1.81899E-12 46 T1 5.91172E-12 46 T2 1.81899E-12 47 T1 1.40972E-11 47 T2 -5.45697E-12 48 T1 3.63798E-12 48 T2 3.63798E-12 49 T1 -2.50111E-12 49 T2 7.27596E-12 50 T1 -1.02318E-11 50 T2 -8.18545E-12 51 T1 7.50333E-12 51 T2 -9.09495E-13 52 T1 -1.06013E-11 52 T2 3.63798E-12 53 T2 -6.82121E-13 54 T1 4.54747E-13 54 T2 4.54747E-13 55 T1 4.09273E-12 55 T2 -1.45519E-11 56 T1 -5.45697E-12 56 T2 1.81899E-12 57 T1 3.18323E-12 57 T2 2.27374E-12 58 T1 -5.91172E-12 59 T1 -1.09139E-11 59 T2 -5.45697E-12 60 T1 7.73070E-12 60 T2 1.27329E-11 61 T1 -6.82121E-12 61 T2 -9.09495E-13 62 T1 -2.27374E-12 62 T2 1.00044E-11 63 T1 1.40972E-11 63 T2 1.36424E-11 64 T1 -1.72804E-11 64 T2 -7.27596E-12 65 T1 1.33866E-11 65 T2 9.09495E-13 66 T2 8.07177E-12 67 T1 9.09495E-13 67 T2 7.04858E-12 68 T1 4.54747E-13 68 T2 1.81899E-12 69 T1 -5.00222E-12 69 T2 -1.81899E-12 70 T1 3.63798E-12 70 T2 -6.82121E-12 71 T1 -5.91172E-12 71 T2 9.09495E-13 72 T1 6.36646E-12 72 T2 4.54747E-12 73 T1 -9.09495E-13 73 T2 -6.36646E-12 74 T1 -1.59162E-11 74 T2 -5.45697E-12 75 T1 -3.63798E-12 75 T2 5.45697E-12 76 T1 -9.54969E-12 76 T2 -5.45697E-12 77 T2 2.72848E-12 78 T1 -1.53477E-12 78 T2 -5.45697E-12 79 T2 5.68434E-13 80 T1 -9.09495E-13 80 T2 3.41061E-12 81 T1 -1.18234E-11 81 T2 -3.18323E-12 82 T1 1.81899E-12 82 T2 -1.27329E-11 83 T1 -4.54747E-13 83 T2 7.27596E-12 84 T1 -1.36424E-12 84 T2 -5.45697E-12 85 T1 -1.18234E-11 85 T2 1.90994E-11 86 T1 1.36424E-12 86 T2 -1.45519E-11 87 T1 -2.50111E-11 87 T2 -9.09495E-13 88 T1 -5.91172E-12 88 T2 1.36424E-11 89 T2 9.09495E-12 90 T1 -1.90994E-11 90 T2 -2.72848E-12 91 T1 -1.17097E-11 92 T2 1.06866E-11 93 T2 -3.41061E-12 94 T1 -3.63798E-12 94 T2 1.54614E-11 95 T1 4.54747E-12 95 T2 1.36424E-11 96 T1 -2.72848E-12 96 T2 5.00222E-12 97 T2 -9.09495E-12 98 T1 -1.18234E-11 98 T2 -1.18234E-11 99 T2 1.00044E-11 100 T1 3.18323E-12 100 T2 -1.72804E-11 101 T1 9.09495E-13 101 T2 6.36646E-12 102 T1 3.63798E-12 102 T2 -1.72804E-11 103 T1 2.72848E-12 103 T2 -2.72848E-12 104 T1 -4.03588E-12 104 T2 -1.81899E-12 105 T2 -1.43245E-11 106 T1 -3.63798E-12 106 T2 1.02318E-11 107 T2 -6.82121E-12 108 T1 5.45697E-12 108 T2 9.54969E-12 109 T1 -4.54747E-12 109 T2 1.68257E-11 110 T1 -8.18545E-12 110 T2 -4.54747E-12 111 T1 2.72848E-12 111 T2 1.27329E-11 112 T1 -1.45519E-11 112 T2 -1.81899E-12 113 T1 4.54747E-12 113 T2 -2.72848E-12 114 T1 -1.63709E-11 114 T2 -1.00044E-11 115 T1 -9.09495E-13 115 T2 -9.09495E-13 116 T1 8.18545E-12 116 T2 1.36424E-11 117 T1 3.75167E-12 117 T2 -1.81899E-12 118 T2 8.29914E-12 119 T2 5.22959E-12 120 T2 -4.54747E-13 121 T1 -2.72848E-12 121 T2 2.50111E-11 122 T1 2.72848E-12 122 T2 -1.13687E-11 123 T1 -5.45697E-12 123 T2 8.18545E-12 124 T1 5.45697E-12 124 T2 1.00044E-11 125 T1 -9.09495E-13 125 T2 9.09495E-12 126 T1 6.36646E-12 126 T2 -1.18234E-11 127 T1 5.45697E-12 127 T2 4.54747E-12 128 T1 1.81899E-11 128 T2 -1.81899E-12 129 T1 3.63798E-12 129 T2 -8.18545E-12 130 T1 -9.49285E-12 130 T2 -7.27596E-12 131 T2 -1.81899E-12 132 T1 -7.27596E-12 132 T2 -4.54747E-12 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 133 T1 9.09495E-12 133 T2 -1.59162E-11 134 T1 -7.27596E-12 134 T2 -4.54747E-13 135 T1 4.54747E-12 135 T2 -1.50067E-11 136 T1 -1.81899E-12 137 T1 -7.27596E-12 137 T2 1.00044E-11 138 T1 1.18234E-11 138 T2 -2.63753E-11 139 T1 9.09495E-13 139 T2 9.09495E-13 140 T1 -3.63798E-12 140 T2 -1.00044E-11 141 T1 -1.09139E-11 141 T2 -1.81899E-12 142 T1 1.45519E-11 142 T2 -1.81899E-12 143 T1 2.89901E-12 143 T2 -3.63798E-12 144 T2 -7.73070E-12 146 T2 -2.13731E-11 147 T1 -9.09495E-13 147 T2 2.22826E-11 148 T1 -1.00044E-11 148 T2 2.68301E-11 149 T1 1.81899E-12 149 T2 -7.27596E-12 150 T2 -2.27374E-11 151 T1 -1.36424E-11 151 T2 3.63798E-12 152 T1 -9.09495E-12 152 T2 -4.36557E-11 153 T1 8.18545E-12 153 T2 7.27596E-12 154 T1 1.45519E-11 154 T2 -7.27596E-12 155 T1 -3.63798E-11 155 T2 -4.54747E-12 156 T1 1.42109E-12 156 T2 3.63798E-12 157 T2 1.81899E-12 158 T1 -1.81899E-12 158 T2 -2.93312E-11 159 T2 2.72848E-11 160 T2 -2.81943E-11 161 T1 -8.18545E-12 161 T2 -9.09495E-12 162 T1 -9.09495E-12 162 T2 -1.36424E-11 163 T1 -2.72848E-12 163 T2 1.36424E-11 164 T1 1.81899E-12 164 T2 1.54614E-11 165 T1 1.09139E-11 165 T2 9.09495E-13 166 T1 1.27329E-11 166 T2 1.18234E-11 167 T1 1.27329E-11 167 T2 -1.09139E-11 168 T1 9.09495E-12 168 T2 5.45697E-12 169 T1 -3.29692E-12 169 T2 1.81899E-11 170 T2 -1.58025E-11 171 T1 3.63798E-12 171 T2 2.02363E-11 172 T1 3.63798E-12 172 T2 -1.13687E-11 173 T1 -5.45697E-12 173 T2 2.45564E-11 174 T1 -5.45697E-12 174 T2 -1.09139E-11 175 T1 -8.18545E-12 175 T2 3.36513E-11 176 T1 1.72804E-11 176 T2 2.45564E-11 177 T1 -7.27596E-12 177 T2 -1.72804E-11 178 T1 -4.54747E-12 178 T2 -1.63709E-11 179 T1 -1.09139E-11 179 T2 -4.09273E-11 180 T1 -1.54614E-11 180 T2 3.45608E-11 181 T1 5.45697E-12 181 T2 -6.36646E-12 182 T1 -1.08571E-11 182 T2 1.09139E-11 183 T2 1.06866E-11 184 T1 9.09495E-12 184 T2 -7.73070E-12 185 T1 5.45697E-12 185 T2 -1.81899E-12 186 T1 3.63798E-12 186 T2 1.86446E-11 187 T1 -5.45697E-12 187 T2 -3.63798E-11 188 T1 -3.63798E-12 188 T2 -3.63798E-12 189 T1 -9.09495E-12 189 T2 2.72848E-12 190 T1 3.63798E-12 190 T2 -2.18279E-11 191 T1 5.45697E-12 191 T2 1.81899E-12 192 T1 -1.27329E-11 192 T2 2.91038E-11 193 T1 -5.45697E-12 193 T2 -5.45697E-12 194 T1 -1.54614E-11 194 T2 2.72848E-11 195 T1 7.44649E-12 195 T2 1.09139E-11 196 T2 -5.00222E-12 197 T1 3.63798E-12 197 T2 5.45697E-12 198 T1 -1.81899E-12 198 T2 -5.09317E-11 199 T1 1.81899E-12 199 T2 4.09273E-11 200 T1 3.63798E-12 200 T2 8.18545E-11 201 T1 2.18279E-11 201 T2 2.00089E-11 202 T1 -3.27418E-11 202 T2 -1.45519E-11 203 T1 -1.36424E-11 203 T2 4.54747E-12 204 T1 7.27596E-12 204 T2 -1.27329E-11 205 T1 -4.00178E-11 205 T2 7.27596E-12 206 T1 1.36424E-11 206 T2 -2.72848E-12 207 T1 1.81899E-11 207 T2 -9.09495E-12 208 T1 -1.08002E-11 208 T2 1.81899E-11 209 T2 2.59206E-11 210 T1 1.81899E-12 210 T2 2.50111E-11 211 T1 5.45697E-12 211 T2 3.86535E-11 212 T1 7.27596E-12 212 T2 -7.27596E-11 213 T1 -9.09495E-12 214 T1 -1.27329E-11 214 T2 -9.09495E-12 215 T1 -1.27329E-11 215 T2 2.63753E-11 216 T1 1.81899E-11 216 T2 3.63798E-12 217 T1 -1.81899E-11 217 T2 7.45786E-11 218 T1 2.54659E-11 218 T2 4.18368E-11 219 T1 -1.00044E-11 219 T2 1.63709E-11 220 T1 -1.90994E-11 220 T2 1.81899E-12 221 T1 1.84741E-11 221 T2 -1.81899E-11 222 T2 -1.27329E-11 223 T1 -9.09495E-12 223 T2 -1.81899E-11 224 T1 -1.81899E-12 224 T2 -2.22826E-11 225 T1 1.09139E-11 225 T2 5.00222E-11 226 T1 -5.45697E-12 226 T2 -5.36602E-11 227 T1 -1.81899E-12 227 T2 1.63709E-11 228 T1 1.09139E-11 228 T2 2.72848E-12 229 T1 1.27329E-11 229 T2 -5.09317E-11 230 T2 -2.72848E-11 231 T1 1.18234E-11 231 T2 -1.45519E-11 232 T1 1.72804E-11 232 T2 2.00089E-11 233 T1 -2.00089E-11 234 T1 -4.49063E-12 234 T2 1.45519E-11 235 T2 -7.27596E-12 236 T1 2.04636E-12 236 T2 3.63798E-12 237 T1 5.45697E-12 237 T2 7.27596E-12 238 T1 -7.95808E-12 238 T2 -4.00178E-11 239 T1 5.22959E-12 239 T2 2.00089E-11 240 T1 1.68257E-11 240 T2 3.63798E-12 241 T1 -3.97904E-12 241 T2 -2.54659E-11 242 T1 -6.48015E-12 242 T2 -1.27329E-11 243 T1 1.59162E-12 243 T2 -9.09495E-12 244 T1 -1.93268E-12 244 T2 2.45564E-11 245 T1 6.93490E-12 245 T2 -3.18323E-11 246 T1 -1.55183E-11 246 T2 -1.45519E-11 247 T1 -9.09495E-13 247 T2 -1.09139E-11 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 2.157381E-03 0.0 0.0 0.0 0.0 0.0 3 G 4.116066E-03 0.0 0.0 0.0 0.0 0.0 4 G 5.882128E-03 0.0 0.0 0.0 0.0 0.0 5 G 7.460943E-03 0.0 0.0 0.0 0.0 0.0 6 G 8.856850E-03 0.0 0.0 0.0 0.0 0.0 7 G 1.007298E-02 0.0 0.0 0.0 0.0 0.0 8 G 1.111097E-02 0.0 0.0 0.0 0.0 0.0 9 G 1.197074E-02 0.0 0.0 0.0 0.0 0.0 10 G 1.265027E-02 0.0 0.0 0.0 0.0 0.0 11 G 1.314571E-02 0.0 0.0 0.0 0.0 0.0 12 G 1.345112E-02 0.0 0.0 0.0 0.0 0.0 13 G 1.355845E-02 0.0 0.0 0.0 0.0 0.0 79 G 0.0 8.286103E-03 0.0 0.0 0.0 0.0 80 G 2.123252E-03 8.256845E-03 0.0 0.0 0.0 0.0 81 G 4.049665E-03 8.170315E-03 0.0 0.0 0.0 0.0 82 G 5.786915E-03 8.030506E-03 0.0 0.0 0.0 0.0 83 G 7.341697E-03 7.844301E-03 0.0 0.0 0.0 0.0 84 G 8.719338E-03 7.621219E-03 0.0 0.0 0.0 0.0 85 G 9.923656E-03 7.373095E-03 0.0 0.0 0.0 0.0 86 G 1.095676E-02 7.113734E-03 0.0 0.0 0.0 0.0 87 G 1.181894E-02 6.858652E-03 0.0 0.0 0.0 0.0 88 G 1.250852E-02 6.624832E-03 0.0 0.0 0.0 0.0 89 G 1.302202E-02 6.430535E-03 0.0 0.0 0.0 0.0 90 G 1.335381E-02 6.295220E-03 0.0 0.0 0.0 0.0 91 G 1.349584E-02 6.239446E-03 0.0 0.0 0.0 0.0 157 G 0.0 1.754600E-02 0.0 0.0 0.0 0.0 158 G 2.149940E-03 1.745657E-02 0.0 0.0 0.0 0.0 159 G 4.108143E-03 1.719422E-02 0.0 0.0 0.0 0.0 160 G 5.886266E-03 1.677581E-02 0.0 0.0 0.0 0.0 161 G 7.492291E-03 1.622622E-02 0.0 0.0 0.0 0.0 162 G 8.930592E-03 1.557521E-02 0.0 0.0 0.0 0.0 163 G 1.020269E-02 1.485486E-02 0.0 0.0 0.0 0.0 164 G 1.130809E-02 1.409787E-02 0.0 0.0 0.0 0.0 165 G 1.224515E-02 1.333675E-02 0.0 0.0 0.0 0.0 166 G 1.301171E-02 1.260345E-02 0.0 0.0 0.0 0.0 167 G 1.360581E-02 1.192974E-02 0.0 0.0 0.0 0.0 168 G 1.402637E-02 1.134859E-02 0.0 0.0 0.0 0.0 169 G 1.427389E-02 1.089695E-02 0.0 0.0 0.0 0.0 235 G 0.0 2.816095E-02 0.0 0.0 0.0 0.0 236 G 3.106246E-03 2.787872E-02 0.0 0.0 0.0 0.0 237 G 5.946183E-03 2.713641E-02 0.0 0.0 0.0 0.0 238 G 8.493861E-03 2.609289E-02 0.0 0.0 0.0 0.0 239 G 1.074446E-02 2.484037E-02 0.0 0.0 0.0 0.0 240 G 1.270205E-02 2.344462E-02 0.0 0.0 0.0 0.0 241 G 1.437441E-02 2.195764E-02 0.0 0.0 0.0 0.0 242 G 1.577201E-02 2.042312E-02 0.0 0.0 0.0 0.0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 243 G 1.690798E-02 1.887910E-02 0.0 0.0 0.0 0.0 244 G 1.779900E-02 1.735900E-02 0.0 0.0 0.0 0.0 245 G 1.846545E-02 1.589266E-02 0.0 0.0 0.0 0.0 246 G 1.893362E-02 1.450867E-02 0.0 0.0 0.0 0.0 247 G 1.923642E-02 1.325639E-02 0.0 0.0 0.0 0.0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.559223E+03 -3.559223E+03 0.0 0.0 0.0 0.0 2 G 2.433977E+02 -6.875048E+03 0.0 0.0 0.0 0.0 3 G 2.480757E+02 -6.383575E+03 0.0 0.0 0.0 0.0 4 G 2.527524E+02 -5.882747E+03 0.0 0.0 0.0 0.0 5 G 2.585908E+02 -5.371403E+03 0.0 0.0 0.0 0.0 6 G 2.631287E+02 -4.849684E+03 0.0 0.0 0.0 0.0 7 G 2.675220E+02 -4.319033E+03 0.0 0.0 0.0 0.0 8 G 2.719160E+02 -3.779595E+03 0.0 0.0 0.0 0.0 9 G 2.805852E+02 -3.227094E+03 0.0 0.0 0.0 0.0 10 G 2.836848E+02 -2.662824E+03 0.0 0.0 0.0 0.0 11 G 2.862157E+02 -2.092924E+03 0.0 0.0 0.0 0.0 12 G 2.887468E+02 -1.517961E+03 0.0 0.0 0.0 0.0 13 G 6.146071E+02 -6.146071E+02 0.0 0.0 0.0 0.0 14 G -7.118446E+03 0.0 0.0 0.0 0.0 0.0 15 G 4.867954E+02 4.882812E-04 0.0 0.0 0.0 0.0 16 G 4.961514E+02 4.882812E-04 0.0 0.0 0.0 0.0 17 G 5.055049E+02 2.441406E-04 0.0 0.0 0.0 0.0 18 G 5.171816E+02 0.0 0.0 0.0 0.0 0.0 19 G 5.262573E+02 -2.441406E-04 0.0 0.0 0.0 0.0 20 G 5.350439E+02 1.220703E-04 0.0 0.0 0.0 0.0 21 G 5.438320E+02 -1.220703E-04 0.0 0.0 0.0 0.0 22 G 5.611704E+02 1.220703E-04 0.0 0.0 0.0 0.0 23 G 5.673696E+02 -2.441406E-04 0.0 0.0 0.0 0.0 24 G 5.724315E+02 1.220703E-04 0.0 0.0 0.0 0.0 25 G 5.774937E+02 -6.103516E-05 0.0 0.0 0.0 0.0 26 G 1.229214E+03 0.0 0.0 0.0 0.0 0.0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.488293E+03 -7.426135E+03 -1.071265E+01 -0.1034 -1.488274E+03 -7.426154E+03 2.968940E+03 2 -1.445551E+03 -6.018625E+03 -3.169189E+01 -0.3970 -1.445331E+03 -6.018845E+03 2.286757E+03 3 -1.361938E+03 -4.650959E+03 -5.123486E+01 -0.8922 -1.361140E+03 -4.651757E+03 1.645309E+03 4 -1.241416E+03 -3.318562E+03 -6.829102E+01 -1.8810 -1.239173E+03 -3.320805E+03 1.040816E+03 5 -1.090002E+03 -2.012215E+03 -8.187305E+01 -5.0342 -1.082790E+03 -2.019427E+03 4.683187E+02 6 -9.155820E+02 -7.214375E+02 -9.108105E+01 -68.4119 -6.853978E+02 -9.516217E+02 1.331119E+02 7 -7.277139E+02 5.697432E+02 -9.512500E+01 -85.8290 5.766803E+02 -7.346510E+02 6.556656E+02 8 -5.374834E+02 1.880909E+03 -9.332812E+01 -87.7933 1.884505E+03 -5.410797E+02 1.212793E+03 9 -3.571318E+02 3.225220E+03 -8.511133E+01 -88.6398 3.227241E+03 -3.591528E+02 1.793197E+03 10 -1.999941E+02 4.628673E+03 -7.007227E+01 -89.1688 4.629689E+03 -2.010107E+02 2.415350E+03 11 -8.002637E+01 6.118990E+03 -4.795117E+01 -89.5568 6.119361E+03 -8.039722E+01 3.099879E+03 12 -1.154346E+01 7.724462E+03 -1.872266E+01 -89.8613 7.724508E+03 -1.158887E+01 3.868048E+03 15 -1.454961E+03 -5.978324E+03 -9.530908E+01 -1.2065 -1.452954E+03 -5.980332E+03 2.263689E+03 20 -7.327686E+02 5.718818E+02 -2.859502E+02 -78.1648 6.318036E+02 -7.926903E+02 7.122469E+02 28 -1.472193E+03 -5.897449E+03 -1.596125E+02 -2.0630 -1.466444E+03 -5.903199E+03 2.218377E+03 33 -7.418076E+02 5.761768E+02 -4.783428E+02 -72.0126 7.314833E+02 -8.971142E+02 8.142988E+02 41 -1.494023E+03 -5.775473E+03 -2.250210E+02 -3.0003 -1.482229E+03 -5.787267E+03 2.152519E+03 46 -7.526748E+02 5.826475E+02 -6.730215E+02 -67.3855 8.629996E+02 -1.033027E+03 9.480133E+02 54 -1.515453E+03 -5.611648E+03 -2.919043E+02 -4.0557 -1.494756E+03 -5.632346E+03 2.068795E+03 59 -7.619873E+02 5.911924E+02 -8.701318E+02 -63.9338 1.016829E+03 -1.187624E+03 1.102226E+03 67 -1.529553E+03 -5.405090E+03 -3.605654E+02 -5.2703 -1.496292E+03 -5.438350E+03 1.971029E+03 72 -7.649639E+02 6.015518E+02 -1.069069E+03 -61.2916 1.187053E+03 -1.350465E+03 1.268759E+03 80 -1.527146E+03 -5.154805E+03 -4.312373E+02 -6.6869 -1.476588E+03 -5.205363E+03 1.864388E+03 85 -7.552686E+02 6.130459E+02 -1.268178E+03 -59.1730 1.369842E+03 -1.512064E+03 1.440953E+03 93 -1.496502E+03 -4.859844E+03 -5.040684E+02 -8.3429 -1.422581E+03 -4.933765E+03 1.755592E+03 98 -7.247959E+02 6.244619E+02 -1.464492E+03 -57.3668 1.562241E+03 -1.662575E+03 1.612408E+03 106 -1.422809E+03 -4.519348E+03 -5.791094E+02 -10.2538 -1.318049E+03 -4.624107E+03 1.653029E+03 111 -6.636201E+02 6.336650E+02 -1.653372E+03 -55.7104 1.761079E+03 -1.791034E+03 1.776056E+03 118 -1.340590E+03 -5.443752E+03 -2.232520E+02 -3.1052 -1.328479E+03 -5.455863E+03 2.063692E+03 119 -1.287480E+03 -4.132812E+03 -6.562520E+02 -12.3815 -1.143416E+03 -4.276877E+03 1.566731E+03 120 -1.187596E+03 -2.969047E+03 -1.048727E+03 -24.8287 -7.023782E+02 -3.454264E+03 1.375943E+03 121 -1.051994E+03 -1.935428E+03 -1.376873E+03 -36.1066 -4.771887E+01 -2.939703E+03 1.445992E+03 122 -8.938379E+02 -1.007662E+03 -1.623105E+03 -43.9959 6.733529E+02 -2.574853E+03 1.624103E+03 123 -7.260586E+02 -1.593945E+02 -1.775879E+03 -49.5324 1.355612E+03 -2.241065E+03 1.798339E+03 124 -5.599951E+02 6.374658E+02 -1.828169E+03 -54.0669 1.962451E+03 -1.884980E+03 1.923715E+03 125 -4.046943E+02 1.409841E+03 -1.775419E+03 -58.5339 2.496375E+03 -1.491229E+03 1.993802E+03 126 -2.669678E+02 2.175989E+03 -1.613372E+03 -63.5646 2.978116E+03 -1.069095E+03 2.023605E+03 127 -1.519277E+02 2.960170E+03 -1.335913E+03 -69.6765 3.454963E+03 -6.467205E+02 2.050842E+03 128 -6.418262E+01 3.785599E+03 -9.318965E+02 -77.0835 3.999314E+03 -2.778979E+02 2.138606E+03 129 -1.046924E+01 4.679042E+03 -3.827612E+02 -85.3644 4.710078E+03 -4.150513E+01 2.375792E+03 132 -1.067086E+03 -3.700289E+03 -7.351289E+02 -14.5885 -8.757571E+02 -3.891618E+03 1.507930E+03 137 -4.009131E+02 6.312900E+02 -1.979678E+03 -52.3059 2.161034E+03 -1.930657E+03 2.045846E+03 145 -7.317246E+02 -3.222852E+03 -8.148008E+02 -16.5956 -4.888900E+02 -3.465686E+03 1.488398E+03 150 -1.731904E+02 6.092197E+02 -2.095479E+03 -50.2874 2.349698E+03 -1.913669E+03 2.131684E+03 158 -2.424102E+02 -2.703547E+03 -8.931445E+02 -17.9860 4.754956E+01 -2.993507E+03 1.520528E+03 163 1.343389E+02 5.645322E+02 -2.159001E+03 -47.8447 2.519125E+03 -1.820254E+03 2.169689E+03 171 4.532285E+02 -2.149055E+03 -9.654648E+02 -18.2880 7.723005E+02 -2.468127E+03 1.620214E+03 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 176 5.270498E+02 4.911182E+02 -2.148078E+03 -44.7604 2.657237E+03 -1.639069E+03 2.148153E+03 184 1.428041E+03 -1.572961E+03 -1.021488E+03 -17.1228 1.742737E+03 -1.887657E+03 1.815197E+03 189 9.989658E+02 3.864150E+02 -2.032856E+03 -40.7161 2.748490E+03 -1.363109E+03 2.055799E+03 197 2.786881E+03 -1.002102E+03 -1.037965E+03 -14.3589 3.052591E+03 -1.267811E+03 2.160201E+03 202 1.525599E+03 2.561260E+02 -1.772875E+03 -35.1506 2.773938E+03 -9.922139E+02 1.883076E+03 210 4.683656E+03 -4.886484E+02 -9.594297E+02 -10.1771 4.855889E+03 -6.608813E+02 2.758385E+03 215 2.057185E+03 1.204619E+02 -1.313877E+03 -26.8044 2.720999E+03 -5.433521E+02 1.632175E+03 223 7.335062E+03 -1.335234E+02 -6.440117E+02 -4.8925 7.390188E+03 -1.886492E+02 3.789419E+03 228 2.516575E+03 1.869629E+01 -5.862578E+02 -12.5728 2.647327E+03 -1.120555E+02 1.379691E+03 * * * END OF JOB * * * 1 JOB TITLE = FREE RECTANGULAR PLATE WITH THERMAL LOADING DATE: 5/17/95 END TIME: 14:30:44 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d01032a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01032A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A 3 LABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 4 SPC = 1 5 TEMPERATURE = 1 6 OUTPUT 7 SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247 8 SET 2 = 1 THRU 26 9 DISPLACEMENTS = 1 10 OLOAD = 2 11 $ STRESSES FOR POINTS ON PUBLISHED CURVES 12 SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98, 13 106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176, 14 184,189, 197,202, 210,215, 223,228 15 STRESSES = 3 16 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 595, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CNGRNT 1 14 27 40 53 66 79 92 +CNG11 2- +CNG11 105 118 131 144 157 170 183 196 +CNG12 3- +CNG12 209 222 4- CNGRNT 2 15 28 41 54 67 80 93 +CNG21 5- +CNG21 106 119 132 145 158 171 184 197 +CNG22 6- +CNG22 210 223 7- CNGRNT 3 16 29 42 55 68 81 94 +CNG31 8- +CNG31 107 120 133 146 159 172 185 198 +CNG32 9- +CNG32 211 224 10- CNGRNT 4 17 30 43 56 69 82 95 +CNG41 11- +CNG41 108 121 134 147 160 173 186 199 +CNG42 12- +CNG42 212 225 13- CNGRNT 5 18 31 44 57 70 83 96 +CNG51 14- +CNG51 109 122 135 148 161 174 187 200 +CNG52 15- +CNG52 213 226 16- CNGRNT 6 19 32 45 58 71 84 97 +CNG61 17- +CNG61 110 123 136 149 162 175 188 201 +CNG62 18- +CNG62 214 227 19- CNGRNT 7 20 33 46 59 72 85 98 +CNG71 20- +CNG71 111 124 137 150 163 176 189 202 +CNG72 21- +CNG72 215 228 22- CNGRNT 8 21 34 47 60 73 86 99 +CNG81 23- +CNG81 112 125 138 151 164 177 190 203 +CNG82 24- +CNG82 216 229 25- CNGRNT 9 22 35 48 61 74 87 100 +CNG91 26- +CNG91 113 126 139 152 165 178 191 204 +CNG92 27- +CNG92 217 230 28- CNGRNT 10 23 36 49 62 75 88 101 +CNG101 29- +CNG101 114 127 140 153 166 179 192 205 +CNG102 30- +CNG102 218 231 31- CNGRNT 11 24 37 50 63 76 89 102 +CNG111 32- +CNG111 115 128 141 154 167 180 193 206 +CNG112 33- +CNG112 219 232 34- CNGRNT 12 25 38 51 64 77 90 103 +CNG121 35- +CNG121 116 129 142 155 168 181 194 207 +CNG122 36- +CNG122 220 233 37- CQDMEM1 1 21 1 2 15 14 .00 38- CQDMEM1 2 21 2 3 16 15 .00 39- CQDMEM1 3 21 3 4 17 16 .00 40- CQDMEM1 4 21 4 5 18 17 .00 41- CQDMEM1 5 21 5 6 19 18 .00 42- CQDMEM1 6 21 6 7 20 19 .00 43- CQDMEM1 7 21 7 8 21 20 .00 44- CQDMEM1 8 21 8 9 22 21 .00 45- CQDMEM1 9 21 9 10 23 22 .00 46- CQDMEM1 10 21 10 11 24 23 .00 47- CQDMEM1 11 21 11 12 25 24 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQDMEM1 12 21 12 13 26 25 .00 49- CQDMEM1 14 21 14 15 28 27 .00 50- CQDMEM1 15 21 15 16 29 28 .00 51- CQDMEM1 16 21 16 17 30 29 .00 52- CQDMEM1 17 21 17 18 31 30 .00 53- CQDMEM1 18 21 18 19 32 31 .00 54- CQDMEM1 19 21 19 20 33 32 .00 55- CQDMEM1 20 21 20 21 34 33 .00 56- CQDMEM1 21 21 21 22 35 34 .00 57- CQDMEM1 22 21 22 23 36 35 .00 58- CQDMEM1 23 21 23 24 37 36 .00 59- CQDMEM1 24 21 24 25 38 37 .00 60- CQDMEM1 25 21 25 26 39 38 .00 61- CQDMEM1 27 21 27 28 41 40 .00 62- CQDMEM1 28 21 28 29 42 41 .00 63- CQDMEM1 29 21 29 30 43 42 .00 64- CQDMEM1 30 21 30 31 44 43 .00 65- CQDMEM1 31 21 31 32 45 44 .00 66- CQDMEM1 32 21 32 33 46 45 .00 67- CQDMEM1 33 21 33 34 47 46 .00 68- CQDMEM1 34 21 34 35 48 47 .00 69- CQDMEM1 35 21 35 36 49 48 .00 70- CQDMEM1 36 21 36 37 50 49 .00 71- CQDMEM1 37 21 37 38 51 50 .00 72- CQDMEM1 38 21 38 39 52 51 .00 73- CQDMEM1 40 21 40 41 54 53 .00 74- CQDMEM1 41 21 41 42 55 54 .00 75- CQDMEM1 42 21 42 43 56 55 .00 76- CQDMEM1 43 21 43 44 57 56 .00 77- CQDMEM1 44 21 44 45 58 57 .00 78- CQDMEM1 45 21 45 46 59 58 .00 79- CQDMEM1 46 21 46 47 60 59 .00 80- CQDMEM1 47 21 47 48 61 60 .00 81- CQDMEM1 48 21 48 49 62 61 .00 82- CQDMEM1 49 21 49 50 63 62 .00 83- CQDMEM1 50 21 50 51 64 63 .00 84- CQDMEM1 51 21 51 52 65 64 .00 85- CQDMEM1 53 21 53 54 67 66 .00 86- CQDMEM1 54 21 54 55 68 67 .00 87- CQDMEM1 55 21 55 56 69 68 .00 88- CQDMEM1 56 21 56 57 70 69 .00 89- CQDMEM1 57 21 57 58 71 70 .00 90- CQDMEM1 58 21 58 59 72 71 .00 91- CQDMEM1 59 21 59 60 73 72 .00 92- CQDMEM1 60 21 60 61 74 73 .00 93- CQDMEM1 61 21 61 62 75 74 .00 94- CQDMEM1 62 21 62 63 76 75 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CQDMEM1 63 21 63 64 77 76 .00 96- CQDMEM1 64 21 64 65 78 77 .00 97- CQDMEM1 66 21 66 67 80 79 .00 98- CQDMEM1 67 21 67 68 81 80 .00 99- CQDMEM1 68 21 68 69 82 81 .00 100- CQDMEM1 69 21 69 70 83 82 .00 101- CQDMEM1 70 21 70 71 84 83 .00 102- CQDMEM1 71 21 71 72 85 84 .00 103- CQDMEM1 72 21 72 73 86 85 .00 104- CQDMEM1 73 21 73 74 87 86 .00 105- CQDMEM1 74 21 74 75 88 87 .00 106- CQDMEM1 75 21 75 76 89 88 .00 107- CQDMEM1 76 21 76 77 90 89 .00 108- CQDMEM1 77 21 77 78 91 90 .00 109- CQDMEM1 79 21 79 80 93 92 .00 110- CQDMEM1 80 21 80 81 94 93 .00 111- CQDMEM1 81 21 81 82 95 94 .00 112- CQDMEM1 82 21 82 83 96 95 .00 113- CQDMEM1 83 21 83 84 97 96 .00 114- CQDMEM1 84 21 84 85 98 97 .00 115- CQDMEM1 85 21 85 86 99 98 .00 116- CQDMEM1 86 21 86 87 100 99 .00 117- CQDMEM1 87 21 87 88 101 100 .00 118- CQDMEM1 88 21 88 89 102 101 .00 119- CQDMEM1 89 21 89 90 103 102 .00 120- CQDMEM1 90 21 90 91 104 103 .00 121- CQDMEM1 92 21 92 93 106 105 .00 122- CQDMEM1 93 21 93 94 107 106 .00 123- CQDMEM1 94 21 94 95 108 107 .00 124- CQDMEM1 95 21 95 96 109 108 .00 125- CQDMEM1 96 21 96 97 110 109 .00 126- CQDMEM1 97 21 97 98 111 110 .00 127- CQDMEM1 98 21 98 99 112 111 .00 128- CQDMEM1 99 21 99 100 113 112 .00 129- CQDMEM1 100 21 100 101 114 113 .00 130- CQDMEM1 101 21 101 102 115 114 .00 131- CQDMEM1 102 21 102 103 116 115 .00 132- CQDMEM1 103 21 103 104 117 116 .00 133- CQDMEM1 105 21 105 106 119 118 .00 134- CQDMEM1 106 21 106 107 120 119 .00 135- CQDMEM1 107 21 107 108 121 120 .00 136- CQDMEM1 108 21 108 109 122 121 .00 137- CQDMEM1 109 21 109 110 123 122 .00 138- CQDMEM1 110 21 110 111 124 123 .00 139- CQDMEM1 111 21 111 112 125 124 .00 140- CQDMEM1 112 21 112 113 126 125 .00 141- CQDMEM1 113 21 113 114 127 126 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CQDMEM1 114 21 114 115 128 127 .00 143- CQDMEM1 115 21 115 116 129 128 .00 144- CQDMEM1 116 21 116 117 130 129 .00 145- CQDMEM1 118 21 118 119 132 131 .00 146- CQDMEM1 119 21 119 120 133 132 .00 147- CQDMEM1 120 21 120 121 134 133 .00 148- CQDMEM1 121 21 121 122 135 134 .00 149- CQDMEM1 122 21 122 123 136 135 .00 150- CQDMEM1 123 21 123 124 137 136 .00 151- CQDMEM1 124 21 124 125 138 137 .00 152- CQDMEM1 125 21 125 126 139 138 .00 153- CQDMEM1 126 21 126 127 140 139 .00 154- CQDMEM1 127 21 127 128 141 140 .00 155- CQDMEM1 128 21 128 129 142 141 .00 156- CQDMEM1 129 21 129 130 143 142 .00 157- CQDMEM1 131 21 131 132 145 144 .00 158- CQDMEM1 132 21 132 133 146 145 .00 159- CQDMEM1 133 21 133 134 147 146 .00 160- CQDMEM1 134 21 134 135 148 147 .00 161- CQDMEM1 135 21 135 136 149 148 .00 162- CQDMEM1 136 21 136 137 150 149 .00 163- CQDMEM1 137 21 137 138 151 150 .00 164- CQDMEM1 138 21 138 139 152 151 .00 165- CQDMEM1 139 21 139 140 153 152 .00 166- CQDMEM1 140 21 140 141 154 153 .00 167- CQDMEM1 141 21 141 142 155 154 .00 168- CQDMEM1 142 21 142 143 156 155 .00 169- CQDMEM1 144 21 144 145 158 157 .00 170- CQDMEM1 145 21 145 146 159 158 .00 171- CQDMEM1 146 21 146 147 160 159 .00 172- CQDMEM1 147 21 147 148 161 160 .00 173- CQDMEM1 148 21 148 149 162 161 .00 174- CQDMEM1 149 21 149 150 163 162 .00 175- CQDMEM1 150 21 150 151 164 163 .00 176- CQDMEM1 151 21 151 152 165 164 .00 177- CQDMEM1 152 21 152 153 166 165 .00 178- CQDMEM1 153 21 153 154 167 166 .00 179- CQDMEM1 154 21 154 155 168 167 .00 180- CQDMEM1 155 21 155 156 169 168 .00 181- CQDMEM1 157 21 157 158 171 170 .00 182- CQDMEM1 158 21 158 159 172 171 .00 183- CQDMEM1 159 21 159 160 173 172 .00 184- CQDMEM1 160 21 160 161 174 173 .00 185- CQDMEM1 161 21 161 162 175 174 .00 186- CQDMEM1 162 21 162 163 176 175 .00 187- CQDMEM1 163 21 163 164 177 176 .00 188- CQDMEM1 164 21 164 165 178 177 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CQDMEM1 165 21 165 166 179 178 .00 190- CQDMEM1 166 21 166 167 180 179 .00 191- CQDMEM1 167 21 167 168 181 180 .00 192- CQDMEM1 168 21 168 169 182 181 .00 193- CQDMEM1 170 21 170 171 184 183 .00 194- CQDMEM1 171 21 171 172 185 184 .00 195- CQDMEM1 172 21 172 173 186 185 .00 196- CQDMEM1 173 21 173 174 187 186 .00 197- CQDMEM1 174 21 174 175 188 187 .00 198- CQDMEM1 175 21 175 176 189 188 .00 199- CQDMEM1 176 21 176 177 190 189 .00 200- CQDMEM1 177 21 177 178 191 190 .00 201- CQDMEM1 178 21 178 179 192 191 .00 202- CQDMEM1 179 21 179 180 193 192 .00 203- CQDMEM1 180 21 180 181 194 193 .00 204- CQDMEM1 181 21 181 182 195 194 .00 205- CQDMEM1 183 21 183 184 197 196 .00 206- CQDMEM1 184 21 184 185 198 197 .00 207- CQDMEM1 185 21 185 186 199 198 .00 208- CQDMEM1 186 21 186 187 200 199 .00 209- CQDMEM1 187 21 187 188 201 200 .00 210- CQDMEM1 188 21 188 189 202 201 .00 211- CQDMEM1 189 21 189 190 203 202 .00 212- CQDMEM1 190 21 190 191 204 203 .00 213- CQDMEM1 191 21 191 192 205 204 .00 214- CQDMEM1 192 21 192 193 206 205 .00 215- CQDMEM1 193 21 193 194 207 206 .00 216- CQDMEM1 194 21 194 195 208 207 .00 217- CQDMEM1 196 21 196 197 210 209 .00 218- CQDMEM1 197 21 197 198 211 210 .00 219- CQDMEM1 198 21 198 199 212 211 .00 220- CQDMEM1 199 21 199 200 213 212 .00 221- CQDMEM1 200 21 200 201 214 213 .00 222- CQDMEM1 201 21 201 202 215 214 .00 223- CQDMEM1 202 21 202 203 216 215 .00 224- CQDMEM1 203 21 203 204 217 216 .00 225- CQDMEM1 204 21 204 205 218 217 .00 226- CQDMEM1 205 21 205 206 219 218 .00 227- CQDMEM1 206 21 206 207 220 219 .00 228- CQDMEM1 207 21 207 208 221 220 .00 229- CQDMEM1 209 21 209 210 223 222 .00 230- CQDMEM1 210 21 210 211 224 223 .00 231- CQDMEM1 211 21 211 212 225 224 .00 232- CQDMEM1 212 21 212 213 226 225 .00 233- CQDMEM1 213 21 213 214 227 226 .00 234- CQDMEM1 214 21 214 215 228 227 .00 235- CQDMEM1 215 21 215 216 229 228 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- CQDMEM1 216 21 216 217 230 229 .00 237- CQDMEM1 217 21 217 218 231 230 .00 238- CQDMEM1 218 21 218 219 232 231 .00 239- CQDMEM1 219 21 219 220 233 232 .00 240- CQDMEM1 220 21 220 221 234 233 .00 241- CQDMEM1 222 21 222 223 236 235 .00 242- CQDMEM1 223 21 223 224 237 236 .00 243- CQDMEM1 224 21 224 225 238 237 .00 244- CQDMEM1 225 21 225 226 239 238 .00 245- CQDMEM1 226 21 226 227 240 239 .00 246- CQDMEM1 227 21 227 228 241 240 .00 247- CQDMEM1 228 21 228 229 242 241 .00 248- CQDMEM1 229 21 229 230 243 242 .00 249- CQDMEM1 230 21 230 231 244 243 .00 250- CQDMEM1 231 21 231 232 245 244 .00 251- CQDMEM1 232 21 232 233 246 245 .00 252- CQDMEM1 233 21 233 234 247 246 .00 253- GRDSET 3456 254- GRID 1 .0 .0 .0 255- GRID 2 1.0 .0 .0 256- GRID 3 2.0 .0 .0 257- GRID 4 3.0 .0 .0 258- GRID 5 4.0 .0 .0 259- GRID 6 5.0 .0 .0 260- GRID 7 6.0 .0 .0 261- GRID 8 7.0 .0 .0 262- GRID 9 8.0 .0 .0 263- GRID 10 9.0 .0 .0 264- GRID 11 10.0 .0 .0 265- GRID 12 11.0 .0 .0 266- GRID 13 12.0 .0 .0 267- GRID 14 .0 1.0 .0 268- GRID 15 1.0 1.0 .0 269- GRID 16 2.0 1.0 .0 270- GRID 17 3.0 1.0 .0 271- GRID 18 4.0 1.0 .0 272- GRID 19 5.0 1.0 .0 273- GRID 20 6.0 1.0 .0 274- GRID 21 7.0 1.0 .0 275- GRID 22 8.0 1.0 .0 276- GRID 23 9.0 1.0 .0 277- GRID 24 10.0 1.0 .0 278- GRID 25 11.0 1.0 .0 279- GRID 26 12.0 1.0 .0 280- GRID 27 .0 2.0 .0 281- GRID 28 1.0 2.0 .0 282- GRID 29 2.0 2.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- GRID 30 3.0 2.0 .0 284- GRID 31 4.0 2.0 .0 285- GRID 32 5.0 2.0 .0 286- GRID 33 6.0 2.0 .0 287- GRID 34 7.0 2.0 .0 288- GRID 35 8.0 2.0 .0 289- GRID 36 9.0 2.0 .0 290- GRID 37 10.0 2.0 .0 291- GRID 38 11.0 2.0 .0 292- GRID 39 12.0 2.0 .0 293- GRID 40 .0 3.0 .0 294- GRID 41 1.0 3.0 .0 295- GRID 42 2.0 3.0 .0 296- GRID 43 3.0 3.0 .0 297- GRID 44 4.0 3.0 .0 298- GRID 45 5.0 3.0 .0 299- GRID 46 6.0 3.0 .0 300- GRID 47 7.0 3.0 .0 301- GRID 48 8.0 3.0 .0 302- GRID 49 9.0 3.0 .0 303- GRID 50 10.0 3.0 .0 304- GRID 51 11.0 3.0 .0 305- GRID 52 12.0 3.0 .0 306- GRID 53 .0 4.0 .0 307- GRID 54 1.0 4.0 .0 308- GRID 55 2.0 4.0 .0 309- GRID 56 3.0 4.0 .0 310- GRID 57 4.0 4.0 .0 311- GRID 58 5.0 4.0 .0 312- GRID 59 6.0 4.0 .0 313- GRID 60 7.0 4.0 .0 314- GRID 61 8.0 4.0 .0 315- GRID 62 9.0 4.0 .0 316- GRID 63 10.0 4.0 .0 317- GRID 64 11.0 4.0 .0 318- GRID 65 12.0 4.0 .0 319- GRID 66 .0 5.0 .0 320- GRID 67 1.0 5.0 .0 321- GRID 68 2.0 5.0 .0 322- GRID 69 3.0 5.0 .0 323- GRID 70 4.0 5.0 .0 324- GRID 71 5.0 5.0 .0 325- GRID 72 6.0 5.0 .0 326- GRID 73 7.0 5.0 .0 327- GRID 74 8.0 5.0 .0 328- GRID 75 9.0 5.0 .0 329- GRID 76 10.0 5.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- GRID 77 11.0 5.0 .0 331- GRID 78 12.0 5.0 .0 332- GRID 79 .0 6.0 .0 333- GRID 80 1.0 6.0 .0 334- GRID 81 2.0 6.0 .0 335- GRID 82 3.0 6.0 .0 336- GRID 83 4.0 6.0 .0 337- GRID 84 5.0 6.0 .0 338- GRID 85 6.0 6.0 .0 339- GRID 86 7.0 6.0 .0 340- GRID 87 8.0 6.0 .0 341- GRID 88 9.0 6.0 .0 342- GRID 89 10.0 6.0 .0 343- GRID 90 11.0 6.0 .0 344- GRID 91 12.0 6.0 .0 345- GRID 92 .0 7.0 .0 346- GRID 93 1.0 7.0 .0 347- GRID 94 2.0 7.0 .0 348- GRID 95 3.0 7.0 .0 349- GRID 96 4.0 7.0 .0 350- GRID 97 5.0 7.0 .0 351- GRID 98 6.0 7.0 .0 352- GRID 99 7.0 7.0 .0 353- GRID 100 8.0 7.0 .0 354- GRID 101 9.0 7.0 .0 355- GRID 102 10.0 7.0 .0 356- GRID 103 11.0 7.0 .0 357- GRID 104 12.0 7.0 .0 358- GRID 105 .0 8.0 .0 359- GRID 106 1.0 8.0 .0 360- GRID 107 2.0 8.0 .0 361- GRID 108 3.0 8.0 .0 362- GRID 109 4.0 8.0 .0 363- GRID 110 5.0 8.0 .0 364- GRID 111 6.0 8.0 .0 365- GRID 112 7.0 8.0 .0 366- GRID 113 8.0 8.0 .0 367- GRID 114 9.0 8.0 .0 368- GRID 115 10.0 8.0 .0 369- GRID 116 11.0 8.0 .0 370- GRID 117 12.0 8.0 .0 371- GRID 118 .0 9.0 .0 372- GRID 119 1.0 9.0 .0 373- GRID 120 2.0 9.0 .0 374- GRID 121 3.0 9.0 .0 375- GRID 122 4.0 9.0 .0 376- GRID 123 5.0 9.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- GRID 124 6.0 9.0 .0 378- GRID 125 7.0 9.0 .0 379- GRID 126 8.0 9.0 .0 380- GRID 127 9.0 9.0 .0 381- GRID 128 10.0 9.0 .0 382- GRID 129 11.0 9.0 .0 383- GRID 130 12.0 9.0 .0 384- GRID 131 .0 10.0 .0 385- GRID 132 1.0 10.0 .0 386- GRID 133 2.0 10.0 .0 387- GRID 134 3.0 10.0 .0 388- GRID 135 4.0 10.0 .0 389- GRID 136 5.0 10.0 .0 390- GRID 137 6.0 10.0 .0 391- GRID 138 7.0 10.0 .0 392- GRID 139 8.0 10.0 .0 393- GRID 140 9.0 10.0 .0 394- GRID 141 10.0 10.0 .0 395- GRID 142 11.0 10.0 .0 396- GRID 143 12.0 10.0 .0 397- GRID 144 .0 11.0 .0 398- GRID 145 1.0 11.0 .0 399- GRID 146 2.0 11.0 .0 400- GRID 147 3.0 11.0 .0 401- GRID 148 4.0 11.0 .0 402- GRID 149 5.0 11.0 .0 403- GRID 150 6.0 11.0 .0 404- GRID 151 7.0 11.0 .0 405- GRID 152 8.0 11.0 .0 406- GRID 153 9.0 11.0 .0 407- GRID 154 10.0 11.0 .0 408- GRID 155 11.0 11.0 .0 409- GRID 156 12.0 11.0 .0 410- GRID 157 .0 12.0 .0 411- GRID 158 1.0 12.0 .0 412- GRID 159 2.0 12.0 .0 413- GRID 160 3.0 12.0 .0 414- GRID 161 4.0 12.0 .0 415- GRID 162 5.0 12.0 .0 416- GRID 163 6.0 12.0 .0 417- GRID 164 7.0 12.0 .0 418- GRID 165 8.0 12.0 .0 419- GRID 166 9.0 12.0 .0 420- GRID 167 10.0 12.0 .0 421- GRID 168 11.0 12.0 .0 422- GRID 169 12.0 12.0 .0 423- GRID 170 .0 13.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- GRID 171 1.0 13.0 .0 425- GRID 172 2.0 13.0 .0 426- GRID 173 3.0 13.0 .0 427- GRID 174 4.0 13.0 .0 428- GRID 175 5.0 13.0 .0 429- GRID 176 6.0 13.0 .0 430- GRID 177 7.0 13.0 .0 431- GRID 178 8.0 13.0 .0 432- GRID 179 9.0 13.0 .0 433- GRID 180 10.0 13.0 .0 434- GRID 181 11.0 13.0 .0 435- GRID 182 12.0 13.0 .0 436- GRID 183 .0 14.0 .0 437- GRID 184 1.0 14.0 .0 438- GRID 185 2.0 14.0 .0 439- GRID 186 3.0 14.0 .0 440- GRID 187 4.0 14.0 .0 441- GRID 188 5.0 14.0 .0 442- GRID 189 6.0 14.0 .0 443- GRID 190 7.0 14.0 .0 444- GRID 191 8.0 14.0 .0 445- GRID 192 9.0 14.0 .0 446- GRID 193 10.0 14.0 .0 447- GRID 194 11.0 14.0 .0 448- GRID 195 12.0 14.0 .0 449- GRID 196 .0 15.0 .0 450- GRID 197 1.0 15.0 .0 451- GRID 198 2.0 15.0 .0 452- GRID 199 3.0 15.0 .0 453- GRID 200 4.0 15.0 .0 454- GRID 201 5.0 15.0 .0 455- GRID 202 6.0 15.0 .0 456- GRID 203 7.0 15.0 .0 457- GRID 204 8.0 15.0 .0 458- GRID 205 9.0 15.0 .0 459- GRID 206 10.0 15.0 .0 460- GRID 207 11.0 15.0 .0 461- GRID 208 12.0 15.0 .0 462- GRID 209 .0 16.0 .0 463- GRID 210 1.0 16.0 .0 464- GRID 211 2.0 16.0 .0 465- GRID 212 3.0 16.0 .0 466- GRID 213 4.0 16.0 .0 467- GRID 214 5.0 16.0 .0 468- GRID 215 6.0 16.0 .0 469- GRID 216 7.0 16.0 .0 470- GRID 217 8.0 16.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- GRID 218 9.0 16.0 .0 472- GRID 219 10.0 16.0 .0 473- GRID 220 11.0 16.0 .0 474- GRID 221 12.0 16.0 .0 475- GRID 222 .0 17.0 .0 476- GRID 223 1.0 17.0 .0 477- GRID 224 2.0 17.0 .0 478- GRID 225 3.0 17.0 .0 479- GRID 226 4.0 17.0 .0 480- GRID 227 5.0 17.0 .0 481- GRID 228 6.0 17.0 .0 482- GRID 229 7.0 17.0 .0 483- GRID 230 8.0 17.0 .0 484- GRID 231 9.0 17.0 .0 485- GRID 232 10.0 17.0 .0 486- GRID 233 11.0 17.0 .0 487- GRID 234 12.0 17.0 .0 488- GRID 235 .0 18.0 .0 489- GRID 236 1.0 18.0 .0 490- GRID 237 2.0 18.0 .0 491- GRID 238 3.0 18.0 .0 492- GRID 239 4.0 18.0 .0 493- GRID 240 5.0 18.0 .0 494- GRID 241 6.0 18.0 .0 495- GRID 242 7.0 18.0 .0 496- GRID 243 8.0 18.0 .0 497- GRID 244 9.0 18.0 .0 498- GRID 245 10.0 18.0 .0 499- GRID 246 11.0 18.0 .0 500- GRID 247 12.0 18.0 .0 501- MAT1 75 10.400+6 .3 12.700-675. 502- MATT1 75 100 503- PARAM IRES 1 504- PQDMEM1 21 75 .25 505- SPC1 1 1 1 14 27 40 53 66 CSPC-A 506- +SPC-A 79 92 105 118 131 144 157 170 CSPC-B 507- +SPC-B 183 196 209 222 235 508- SPC1 1 2 1 2 3 4 5 6 CSPC-C 509- +SPC-C 7 8 9 10 11 12 13 510- TABLEM1 100 +TM1 511- +TM1 80. 10.4+6 150. 10.15+6 200. 9.84+6 250. 9.51+6 +TM2 512- +TM2 300. 9.15+6 ENDT 513- TEMP 1 1 245.000 2 232.500 3 220.000 514- TEMP 1 4 207.500 5 195.000 6 182.500 515- TEMP 1 7 170.000 8 157.500 9 145.000 516- TEMP 1 10 132.500 11 120.000 12 107.500 517- TEMP 1 13 95.000 14 245.000 15 232.500 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- TEMP 1 16 220.000 17 207.500 18 195.000 519- TEMP 1 19 182.500 20 170.000 21 157.500 520- TEMP 1 22 145.000 23 132.500 24 120.000 521- TEMP 1 25 107.500 26 95.000 27 245.000 522- TEMP 1 28 232.500 29 220.000 30 207.500 523- TEMP 1 31 195.000 32 182.500 33 170.000 524- TEMP 1 34 157.500 35 145.000 36 132.500 525- TEMP 1 37 120.000 38 107.500 39 95.000 526- TEMP 1 40 245.000 41 232.500 42 220.000 527- TEMP 1 43 207.500 44 195.000 45 182.500 528- TEMP 1 46 170.000 47 157.500 48 145.000 529- TEMP 1 49 132.500 50 120.000 51 107.500 530- TEMP 1 52 95.000 53 245.000 54 232.500 531- TEMP 1 55 220.000 56 207.500 57 195.000 532- TEMP 1 58 182.500 59 170.000 60 157.500 533- TEMP 1 61 145.000 62 132.500 63 120.000 534- TEMP 1 64 107.500 65 95.000 66 245.000 535- TEMP 1 67 232.500 68 220.000 69 207.500 536- TEMP 1 70 195.000 71 182.500 72 170.000 537- TEMP 1 73 157.500 74 145.000 75 132.500 538- TEMP 1 76 120.000 77 107.500 78 95.000 539- TEMP 1 79 245.000 80 232.500 81 220.000 540- TEMP 1 82 207.500 83 195.000 84 182.500 541- TEMP 1 85 170.000 86 157.500 87 145.000 542- TEMP 1 88 132.500 89 120.000 90 107.500 543- TEMP 1 91 95.000 92 245.000 93 232.500 544- TEMP 1 94 220.000 95 207.500 96 195.000 545- TEMP 1 97 182.500 98 170.000 99 157.500 546- TEMP 1 100 145.000 101 132.500 102 120.000 547- TEMP 1 103 107.500 104 95.000 105 245.000 548- TEMP 1 106 232.500 107 220.000 108 207.500 549- TEMP 1 109 195.000 110 182.500 111 170.000 550- TEMP 1 112 157.500 113 145.000 114 132.500 551- TEMP 1 115 120.000 116 107.500 117 95.000 552- TEMP 1 118 245.000 119 232.500 120 220.000 553- TEMP 1 121 207.500 122 195.000 123 182.500 554- TEMP 1 124 170.000 125 157.500 126 145.000 555- TEMP 1 127 132.500 128 120.000 129 107.500 556- TEMP 1 130 95.000 131 245.000 132 232.500 557- TEMP 1 133 220.000 134 207.500 135 195.000 558- TEMP 1 136 182.500 137 170.000 138 157.500 559- TEMP 1 139 145.000 140 132.500 141 120.000 560- TEMP 1 142 107.500 143 95.000 144 245.000 561- TEMP 1 145 232.500 146 220.000 147 207.500 562- TEMP 1 148 195.000 149 182.500 150 170.000 563- TEMP 1 151 157.500 152 145.000 153 132.500 564- TEMP 1 154 120.000 155 107.500 156 95.000 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 565- TEMP 1 157 245.000 158 232.500 159 220.000 566- TEMP 1 160 207.500 161 195.000 162 182.500 567- TEMP 1 163 170.000 164 157.500 165 145.000 568- TEMP 1 166 132.500 167 120.000 168 107.500 569- TEMP 1 169 95.000 170 245.000 171 232.500 570- TEMP 1 172 220.000 173 207.500 174 195.000 571- TEMP 1 175 182.500 176 170.000 177 157.500 572- TEMP 1 178 145.000 179 132.500 180 120.000 573- TEMP 1 181 107.500 182 95.000 183 245.000 574- TEMP 1 184 232.500 185 220.000 186 207.500 575- TEMP 1 187 195.000 188 182.500 189 170.000 576- TEMP 1 190 157.500 191 145.000 192 132.500 577- TEMP 1 193 120.000 194 107.500 195 95.000 578- TEMP 1 196 245.000 197 232.500 198 220.000 579- TEMP 1 199 207.500 200 195.000 201 182.500 580- TEMP 1 202 170.000 203 157.500 204 145.000 581- TEMP 1 205 132.500 206 120.000 207 107.500 582- TEMP 1 208 95.000 209 245.000 210 232.500 583- TEMP 1 211 220.000 212 207.500 213 195.000 584- TEMP 1 214 182.500 215 170.000 216 157.500 585- TEMP 1 217 145.000 218 132.500 219 120.000 586- TEMP 1 220 107.500 221 95.000 222 245.000 587- TEMP 1 223 232.500 224 220.000 225 207.500 588- TEMP 1 226 195.000 227 182.500 228 170.000 589- TEMP 1 229 157.500 230 145.000 231 132.500 590- TEMP 1 232 120.000 233 107.500 234 95.000 591- TEMP 1 235 245.000 236 232.500 237 220.000 592- TEMP 1 238 207.500 239 195.000 240 182.500 593- TEMP 1 241 170.000 242 157.500 243 145.000 594- TEMP 1 244 132.500 245 120.000 246 107.500 595- TEMP 1 247 95.000 ENDDATA 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 15 PROFILE 3517 MAX WAVEFRONT 15 AVG WAVEFRONT 14.239 RMS WAVEFRONT 14.436 RMS BANDWIDTH 14.534 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 23 PROFILE 3622 MAX WAVEFRONT 21 AVG WAVEFRONT 14.664 RMS WAVEFRONT 15.039 RMS BANDWIDTH 15.423 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 15 15 PROFILE (P) 3517 3517 MAXIMUM WAVEFRONT (C-MAX) 15 15 AVERAGE WAVEFRONT (C-AVG) 14.239 14.239 RMS WAVEFRONT (C-RMS) 14.436 14.436 RMS BANDWITCH (B-RMS) 14.534 14.534 NUMBER OF GRID POINTS (N) 247 NUMBER OF ELEMENTS (NON-RIGID) 216 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 894 MATRIX DENSITY, PERCENT 3.336 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM1 ELEMENTS (ELEMENT TYPE 62) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 7.1610071E-16 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 2-T1). 2 T1 -1.25056E-12 4 T1 -1.59162E-12 5 T1 -3.86535E-12 6 T1 3.75167E-12 7 T1 -9.09495E-13 8 T1 5.57066E-12 9 T1 5.91172E-12 10 T1 5.28644E-12 11 T1 1.02318E-12 12 T1 1.19371E-12 13 T1 1.56319E-13 14 T2 -2.27374E-13 15 T1 -1.81899E-12 15 T2 4.54747E-13 16 T1 -1.36424E-12 16 T2 1.59162E-12 17 T2 -9.09495E-13 18 T1 -4.32010E-12 18 T2 -1.13687E-12 19 T1 1.11413E-11 19 T2 -4.54747E-13 20 T1 6.13909E-12 20 T2 1.13687E-12 21 T1 4.54747E-12 21 T2 9.09495E-13 22 T1 -3.63798E-12 22 T2 -2.27374E-13 23 T2 4.54747E-13 24 T1 6.70752E-12 24 T2 -2.72848E-12 25 T1 -2.38742E-12 25 T2 5.68434E-12 26 T1 -2.23110E-12 26 T2 -2.95586E-12 27 T2 9.09495E-13 28 T1 2.27374E-12 28 T2 1.81899E-12 29 T1 -6.36646E-12 29 T2 -5.45697E-12 30 T1 4.54747E-13 30 T2 -9.09495E-13 31 T1 1.59162E-12 31 T2 1.36424E-12 32 T1 1.36424E-12 32 T2 2.72848E-12 33 T1 4.09273E-12 33 T2 2.27374E-12 34 T1 1.36424E-12 34 T2 -4.54747E-12 35 T1 9.77707E-12 35 T2 -3.18323E-12 36 T1 -1.36424E-12 36 T2 1.36424E-12 37 T1 -6.59384E-12 37 T2 4.54747E-12 38 T1 7.50333E-12 38 T2 3.18323E-12 39 T1 -3.26850E-13 39 T2 -5.91172E-12 40 T2 1.81899E-12 41 T1 2.72848E-12 41 T2 4.09273E-12 42 T1 -3.18323E-12 42 T2 1.36424E-12 43 T1 -5.45697E-12 43 T2 3.18323E-12 44 T1 -6.36646E-12 44 T2 -6.36646E-12 45 T2 -3.18323E-12 46 T1 1.81899E-12 46 T2 5.91172E-12 47 T1 1.13687E-11 47 T2 -4.54747E-13 48 T2 2.27374E-12 49 T1 4.32010E-12 49 T2 -3.63798E-12 50 T1 -3.41061E-12 50 T2 4.54747E-13 51 T1 7.50333E-12 51 T2 -4.54747E-13 52 T1 -7.67386E-13 52 T2 1.81899E-12 53 T2 2.72848E-12 54 T1 -1.36424E-12 54 T2 -3.63798E-12 55 T1 -4.54747E-13 55 T2 4.54747E-12 56 T1 -3.63798E-12 56 T2 5.45697E-12 57 T1 4.54747E-12 57 T2 8.18545E-12 58 T1 -4.54747E-13 59 T1 -3.18323E-12 59 T2 -9.09495E-12 60 T1 1.81899E-12 60 T2 -9.09495E-12 61 T1 7.27596E-12 61 T2 4.54747E-13 62 T1 -6.82121E-12 62 T2 -1.18234E-11 63 T1 4.09273E-12 63 T2 4.54747E-12 64 T1 1.13687E-11 64 T2 5.91172E-12 65 T1 -1.33582E-12 66 T2 -9.09495E-13 67 T1 4.54747E-13 67 T2 -9.09495E-12 68 T1 9.09495E-13 68 T2 9.09495E-13 69 T1 2.72848E-12 69 T2 -1.18234E-11 70 T1 4.54747E-13 71 T1 8.18545E-12 72 T1 -1.36424E-12 72 T2 4.54747E-12 73 T1 2.41016E-11 73 T2 5.45697E-12 74 T1 1.09139E-11 74 T2 -8.18545E-12 75 T1 -1.00044E-11 75 T2 1.09139E-11 76 T1 9.09495E-12 76 T2 -2.72848E-12 77 T1 1.22782E-11 77 T2 -1.00044E-11 78 T1 -8.44125E-12 78 T2 -4.54747E-12 80 T1 4.54747E-12 80 T2 8.18545E-12 81 T1 -9.09495E-13 81 T2 -1.00044E-11 82 T1 -7.27596E-12 82 T2 1.72804E-11 83 T1 -4.54747E-12 83 T2 -1.27329E-11 84 T1 -5.00222E-12 84 T2 2.72848E-12 85 T1 -9.09495E-13 85 T2 -4.54747E-12 86 T1 -1.81899E-11 86 T2 8.18545E-12 87 T1 -2.27374E-12 87 T2 -3.63798E-12 88 T1 1.36424E-12 88 T2 2.72848E-12 89 T1 1.27329E-11 89 T2 -9.09495E-12 90 T1 -9.09495E-13 90 T2 9.09495E-12 91 T1 -2.33058E-12 91 T2 1.81899E-12 92 T2 7.27596E-12 93 T2 -2.72848E-12 94 T1 7.27596E-12 94 T2 -1.81899E-11 95 T1 1.81899E-12 95 T2 -1.09139E-11 96 T1 2.72848E-12 96 T2 -5.45697E-12 97 T1 8.18545E-12 97 T2 1.81899E-12 98 T1 -1.36424E-11 98 T2 -1.72804E-11 99 T1 6.36646E-12 99 T2 6.36646E-12 100 T1 -1.18234E-11 100 T2 1.18234E-11 101 T1 -3.18323E-12 101 T2 5.45697E-12 102 T1 -1.09139E-11 102 T2 7.27596E-12 103 T1 6.36646E-12 103 T2 7.27596E-12 104 T1 5.85487E-12 105 T2 -3.63798E-12 106 T1 -4.54747E-12 106 T2 -3.63798E-12 107 T1 9.09495E-13 107 T2 1.27329E-11 108 T1 -2.72848E-12 108 T2 9.09495E-12 109 T1 4.54747E-12 109 T2 9.09495E-12 110 T1 -4.54747E-12 110 T2 -1.63709E-11 111 T1 -2.72848E-12 111 T2 -3.63798E-12 112 T1 9.09495E-13 112 T2 2.27374E-11 113 T1 1.54614E-11 113 T2 -2.72848E-12 114 T1 -9.09495E-12 114 T2 -3.63798E-12 115 T1 -1.81899E-12 115 T2 5.45697E-12 116 T1 9.09495E-13 117 T1 -6.42331E-12 117 T2 5.45697E-12 118 T2 3.63798E-12 119 T1 -1.81899E-12 119 T2 5.45697E-12 120 T1 -2.72848E-12 120 T2 1.81899E-12 121 T1 -6.36646E-12 122 T1 7.27596E-12 122 T2 -2.00089E-11 123 T1 9.09495E-13 123 T2 1.09139E-11 124 T1 5.45697E-12 124 T2 -1.09139E-11 125 T1 1.81899E-12 125 T2 -1.09139E-11 126 T1 -1.81899E-12 127 T1 6.36646E-12 127 T2 7.27596E-12 128 T1 -1.81899E-12 128 T2 1.18234E-11 129 T1 -1.00044E-11 129 T2 -2.09184E-11 130 T1 -1.81899E-12 130 T2 -5.45697E-12 132 T1 9.09495E-13 132 T2 -7.27596E-12 133 T1 2.72848E-12 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 133 T2 1.63709E-11 134 T1 -6.36646E-12 134 T2 -1.81899E-11 135 T1 1.81899E-12 135 T2 1.81899E-11 136 T1 -1.81899E-12 136 T2 -3.63798E-12 137 T1 -2.72848E-12 137 T2 -1.81899E-12 138 T1 -6.36646E-12 138 T2 1.09139E-11 139 T1 1.45519E-11 139 T2 9.09495E-12 140 T1 -9.09495E-13 140 T2 7.27596E-12 141 T1 1.81899E-12 141 T2 3.63798E-12 142 T1 9.09495E-13 142 T2 9.09495E-13 143 T1 9.60654E-12 143 T2 4.54747E-12 144 T2 1.09139E-11 145 T1 1.81899E-12 145 T2 2.72848E-11 146 T2 3.63798E-12 147 T1 -4.54747E-12 147 T2 -1.81899E-12 148 T1 -9.09495E-13 148 T2 1.81899E-12 149 T1 1.18234E-11 149 T2 -9.09495E-12 150 T1 -5.45697E-12 150 T2 -3.63798E-12 151 T1 2.72848E-12 151 T2 1.09139E-11 152 T1 5.45697E-12 152 T2 5.45697E-12 153 T1 -2.72848E-12 153 T2 -5.45697E-12 154 T1 -5.45697E-12 154 T2 4.54747E-12 155 T1 1.18234E-11 155 T2 -1.00044E-11 156 T1 -9.72022E-12 157 T2 -1.81899E-11 158 T1 -1.81899E-12 158 T2 1.63709E-11 159 T2 3.63798E-12 160 T1 -1.81899E-12 160 T2 -2.00089E-11 161 T1 -2.72848E-12 161 T2 -1.81899E-12 162 T1 1.18234E-11 162 T2 1.81899E-12 163 T1 -1.09139E-11 163 T2 1.81899E-12 164 T1 -1.81899E-12 164 T2 -1.45519E-11 165 T1 -1.54614E-11 165 T2 -1.45519E-11 166 T1 -1.81899E-12 166 T2 1.09139E-11 167 T2 1.63709E-11 168 T1 9.09495E-13 168 T2 -1.27329E-11 169 T1 1.42109E-12 169 T2 -1.81899E-12 170 T2 -5.45697E-12 171 T1 1.81899E-12 171 T2 2.00089E-11 172 T2 -1.81899E-11 173 T1 1.81899E-12 173 T2 9.09495E-12 174 T1 9.09495E-12 174 T2 2.72848E-11 175 T1 8.18545E-12 175 T2 -9.09495E-12 176 T1 -3.63798E-12 176 T2 -1.09139E-11 177 T1 2.09184E-11 177 T2 9.09495E-12 178 T1 -9.09495E-12 178 T2 -5.45697E-12 179 T1 5.45697E-12 179 T2 -1.45519E-11 180 T1 -1.09139E-11 180 T2 -7.27596E-12 181 T1 -3.63798E-12 181 T2 2.00089E-11 182 T1 -3.35376E-12 182 T2 -1.27329E-11 183 T2 -1.09139E-11 184 T1 -1.81899E-12 184 T2 1.27329E-11 185 T1 -1.81899E-12 185 T2 -2.00089E-11 186 T1 1.81899E-12 186 T2 -7.27596E-12 187 T2 -4.54747E-11 188 T2 -1.63709E-11 189 T1 9.09495E-13 189 T2 -3.63798E-12 190 T1 1.81899E-11 191 T1 -9.09495E-13 191 T2 1.81899E-12 192 T1 1.00044E-11 192 T2 -1.09139E-11 193 T1 3.18323E-11 193 T2 -9.09495E-12 194 T1 1.36424E-11 194 T2 1.81899E-12 195 T1 2.72848E-12 195 T2 -3.63798E-12 196 T2 -1.09139E-11 197 T1 -3.63798E-12 197 T2 1.09139E-11 198 T1 -5.45697E-12 198 T2 1.81899E-12 199 T1 -1.81899E-12 199 T2 -1.09139E-11 200 T1 -3.63798E-12 200 T2 -5.45697E-12 201 T1 1.45519E-11 201 T2 4.00178E-11 202 T2 2.91038E-11 203 T1 -4.54747E-12 203 T2 2.72848E-11 204 T1 1.36424E-11 204 T2 1.63709E-11 205 T1 1.81899E-12 206 T1 5.45697E-12 206 T2 -1.81899E-12 207 T1 1.54614E-11 207 T2 -2.18279E-11 208 T1 -5.11591E-12 208 T2 -1.81899E-12 209 T2 -3.63798E-12 210 T2 1.09139E-11 211 T2 -3.63798E-12 212 T1 1.81899E-12 212 T2 5.09317E-11 213 T1 5.45697E-12 213 T2 -3.63798E-12 214 T1 9.09495E-12 214 T2 -2.18279E-11 215 T2 2.00089E-11 216 T1 3.63798E-12 216 T2 -1.45519E-11 217 T2 3.63798E-12 218 T1 1.45519E-11 218 T2 -1.81899E-11 219 T1 -3.00133E-11 219 T2 -7.27596E-12 220 T1 2.81943E-11 220 T2 3.63798E-11 221 T1 1.04592E-11 221 T2 1.81899E-12 222 T2 -7.27596E-12 223 T1 1.81899E-12 223 T2 3.63798E-12 224 T1 -3.63798E-12 224 T2 1.45519E-11 225 T1 7.27596E-12 225 T2 1.45519E-11 226 T1 -3.63798E-12 226 T2 2.18279E-11 227 T1 -3.63798E-12 227 T2 -3.63798E-12 228 T1 1.45519E-11 228 T2 -3.45608E-11 229 T1 1.81899E-12 229 T2 -1.45519E-11 230 T1 -1.00044E-11 231 T1 2.18279E-11 231 T2 -7.27596E-12 232 T1 -1.54614E-11 232 T2 -3.27418E-11 233 T1 5.45697E-12 233 T2 -3.09228E-11 234 T1 -1.31308E-11 234 T2 -1.45519E-11 235 T2 -9.09495E-13 236 T1 5.22959E-12 236 T2 -1.81899E-12 237 T1 3.18323E-12 237 T2 -2.45564E-11 238 T1 -3.41061E-12 238 T2 -2.18279E-11 239 T1 2.95586E-12 239 T2 -2.45564E-11 240 T1 -5.11591E-12 241 T1 -4.66116E-12 241 T2 -3.63798E-12 242 T1 3.86535E-12 242 T2 3.27418E-11 243 T1 1.71667E-11 243 T2 -3.18323E-12 244 T1 -1.93268E-12 244 T2 4.09273E-12 245 T1 -4.09273E-12 245 T2 1.18234E-11 246 T1 -5.40012E-12 246 T2 1.81899E-12 247 T1 3.63798E-12 247 T2 -3.63798E-12 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 2.156191E-03 0.0 0.0 0.0 0.0 0.0 3 G 4.113756E-03 0.0 0.0 0.0 0.0 0.0 4 G 5.878820E-03 0.0 0.0 0.0 0.0 0.0 5 G 7.456814E-03 0.0 0.0 0.0 0.0 0.0 6 G 8.852118E-03 0.0 0.0 0.0 0.0 0.0 7 G 1.006788E-02 0.0 0.0 0.0 0.0 0.0 8 G 1.110572E-02 0.0 0.0 0.0 0.0 0.0 9 G 1.196552E-02 0.0 0.0 0.0 0.0 0.0 10 G 1.264510E-02 0.0 0.0 0.0 0.0 0.0 11 G 1.314043E-02 0.0 0.0 0.0 0.0 0.0 12 G 1.344535E-02 0.0 0.0 0.0 0.0 0.0 13 G 1.355153E-02 0.0 0.0 0.0 0.0 0.0 79 G 0.0 8.292265E-03 0.0 0.0 0.0 0.0 80 G 2.119685E-03 8.262852E-03 0.0 0.0 0.0 0.0 81 G 4.042593E-03 8.175830E-03 0.0 0.0 0.0 0.0 82 G 5.776464E-03 8.035133E-03 0.0 0.0 0.0 0.0 83 G 7.328094E-03 7.847600E-03 0.0 0.0 0.0 0.0 84 G 8.702945E-03 7.622782E-03 0.0 0.0 0.0 0.0 85 G 9.904990E-03 7.372671E-03 0.0 0.0 0.0 0.0 86 G 1.093647E-02 7.111399E-03 0.0 0.0 0.0 0.0 87 G 1.179777E-02 6.854988E-03 0.0 0.0 0.0 0.0 88 G 1.248717E-02 6.621099E-03 0.0 0.0 0.0 0.0 89 G 1.300105E-02 6.428799E-03 0.0 0.0 0.0 0.0 90 G 1.333340E-02 6.298383E-03 0.0 0.0 0.0 0.0 91 G 1.347557E-02 6.251092E-03 0.0 0.0 0.0 0.0 157 G 0.0 1.759259E-02 0.0 0.0 0.0 0.0 158 G 2.143112E-03 1.750282E-02 0.0 0.0 0.0 0.0 159 G 4.094586E-03 1.723894E-02 0.0 0.0 0.0 0.0 160 G 5.866446E-03 1.681674E-02 0.0 0.0 0.0 0.0 161 G 7.467184E-03 1.626055E-02 0.0 0.0 0.0 0.0 162 G 8.901473E-03 1.560021E-02 0.0 0.0 0.0 0.0 163 G 1.017078E-02 1.486834E-02 0.0 0.0 0.0 0.0 164 G 1.127437E-02 1.409833E-02 0.0 0.0 0.0 0.0 165 G 1.221035E-02 1.332334E-02 0.0 0.0 0.0 0.0 166 G 1.297663E-02 1.257614E-02 0.0 0.0 0.0 0.0 167 G 1.357173E-02 1.189008E-02 0.0 0.0 0.0 0.0 168 G 1.399530E-02 1.130128E-02 0.0 0.0 0.0 0.0 169 G 1.424808E-02 1.085224E-02 0.0 0.0 0.0 0.0 235 G 0.0 2.833324E-02 0.0 0.0 0.0 0.0 236 G 3.159611E-03 2.802449E-02 0.0 0.0 0.0 0.0 237 G 6.029882E-03 2.723900E-02 0.0 0.0 0.0 0.0 238 G 8.589569E-03 2.616550E-02 0.0 0.0 0.0 0.0 239 G 1.084542E-02 2.488910E-02 0.0 0.0 0.0 0.0 240 G 1.280617E-02 2.347336E-02 0.0 0.0 0.0 0.0 241 G 1.448137E-02 2.196799E-02 0.0 0.0 0.0 0.0 242 G 1.588242E-02 2.041499E-02 0.0 0.0 0.0 0.0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 243 G 1.702331E-02 1.885053E-02 0.0 0.0 0.0 0.0 244 G 1.792178E-02 1.730498E-02 0.0 0.0 0.0 0.0 245 G 1.859923E-02 1.580316E-02 0.0 0.0 0.0 0.0 246 G 1.908174E-02 1.435449E-02 0.0 0.0 0.0 0.0 247 G 1.939889E-02 1.298967E-02 0.0 0.0 0.0 0.0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.559223E+03 -3.559223E+03 0.0 0.0 0.0 0.0 2 G 2.433977E+02 -6.875048E+03 0.0 0.0 0.0 0.0 3 G 2.480757E+02 -6.383575E+03 0.0 0.0 0.0 0.0 4 G 2.527524E+02 -5.882747E+03 0.0 0.0 0.0 0.0 5 G 2.585908E+02 -5.371403E+03 0.0 0.0 0.0 0.0 6 G 2.631287E+02 -4.849684E+03 0.0 0.0 0.0 0.0 7 G 2.675220E+02 -4.319033E+03 0.0 0.0 0.0 0.0 8 G 2.719160E+02 -3.779595E+03 0.0 0.0 0.0 0.0 9 G 2.805852E+02 -3.227094E+03 0.0 0.0 0.0 0.0 10 G 2.836848E+02 -2.662824E+03 0.0 0.0 0.0 0.0 11 G 2.862157E+02 -2.092923E+03 0.0 0.0 0.0 0.0 12 G 2.887468E+02 -1.517961E+03 0.0 0.0 0.0 0.0 13 G 6.146071E+02 -6.146071E+02 0.0 0.0 0.0 0.0 14 G -7.118446E+03 0.0 0.0 0.0 0.0 0.0 15 G 4.867954E+02 -2.441406E-04 0.0 0.0 0.0 0.0 16 G 4.961514E+02 0.0 0.0 0.0 0.0 0.0 17 G 5.055049E+02 0.0 0.0 0.0 0.0 0.0 18 G 5.171816E+02 0.0 0.0 0.0 0.0 0.0 19 G 5.262573E+02 -2.441406E-04 0.0 0.0 0.0 0.0 20 G 5.350439E+02 0.0 0.0 0.0 0.0 0.0 21 G 5.438320E+02 0.0 0.0 0.0 0.0 0.0 22 G 5.611704E+02 0.0 0.0 0.0 0.0 0.0 23 G 5.673696E+02 0.0 0.0 0.0 0.0 0.0 24 G 5.724314E+02 -1.220703E-04 0.0 0.0 0.0 0.0 25 G 5.774937E+02 0.0 0.0 0.0 0.0 0.0 26 G 1.229214E+03 0.0 0.0 0.0 0.0 0.0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M 1 ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.501230E+03 -7.430041E+03 -1.090356E+01 -0.1054 -1.501210E+03 -7.430061E+03 2.964425E+03 2 -1.457992E+03 -6.022748E+03 -3.226196E+01 -0.4049 -1.457764E+03 -6.022976E+03 2.282606E+03 3 -1.373389E+03 -4.655514E+03 -5.217676E+01 -0.9105 -1.372559E+03 -4.656343E+03 1.641892E+03 4 -1.251393E+03 -3.323727E+03 -6.957715E+01 -1.9208 -1.249059E+03 -3.326060E+03 1.038500E+03 5 -1.098053E+03 -2.018029E+03 -8.344629E+01 -5.1411 -1.090545E+03 -2.025537E+03 4.674960E+02 6 -9.213984E+02 -7.277109E+02 -9.284082E+01 -68.1045 -6.903976E+02 -9.587118E+02 1.341571E+02 7 -7.312178E+02 5.635908E+02 -9.691602E+01 -85.7430 5.708047E+02 -7.384317E+02 6.546182E+02 8 -5.389014E+02 1.876038E+03 -9.493555E+01 -87.7522 1.879764E+03 -5.426277E+02 1.211196E+03 9 -3.571709E+02 3.223469E+03 -8.629688E+01 -88.6202 3.225547E+03 -3.592495E+02 1.792398E+03 10 -1.997676E+02 4.632628E+03 -7.058984E+01 -89.1633 4.633659E+03 -2.007986E+02 2.417229E+03 11 -8.107324E+01 6.131918E+03 -4.759766E+01 -89.5611 6.132283E+03 -8.143799E+01 3.106860E+03 12 -1.560596E+01 7.750080E+03 -1.742188E+01 -89.8715 7.750119E+03 -1.564502E+01 3.882882E+03 15 -1.468428E+03 -5.981062E+03 -9.700732E+01 -1.2309 -1.466343E+03 -5.983147E+03 2.258402E+03 20 -7.370615E+02 5.659248E+02 -2.913584E+02 -77.9525 6.281074E+02 -7.992441E+02 7.136757E+02 28 -1.487668E+03 -5.897426E+03 -1.624094E+02 -2.1064 -1.481695E+03 -5.903399E+03 2.210852E+03 33 -7.476709E+02 5.706494E+02 -4.875381E+02 -71.7560 7.313585E+02 -9.083799E+02 8.198692E+02 41 -1.512348E+03 -5.771311E+03 -2.288647E+02 -3.0671 -1.500084E+03 -5.783574E+03 2.141745E+03 46 -7.608740E+02 5.778330E+02 -6.862305E+02 -67.1434 8.670964E+02 -1.050137E+03 9.586169E+02 54 -1.537299E+03 -5.601988E+03 -2.967061E+02 -4.1530 -1.515755E+03 -5.623532E+03 2.053889E+03 59 -7.731904E+02 5.875010E+02 -8.876289E+02 -63.7346 1.025527E+03 -1.211216E+03 1.118372E+03 67 -1.555318E+03 -5.388578E+03 -3.662012E+02 -5.4084 -1.520648E+03 -5.423249E+03 1.951300E+03 72 -7.797334E+02 5.994658E+02 -1.091112E+03 -61.1468 1.200631E+03 -1.380899E+03 1.290765E+03 80 -1.556938E+03 -5.130117E+03 -4.375410E+02 -6.8805 -1.504140E+03 -5.182915E+03 1.839387E+03 85 -7.738896E+02 6.131494E+02 -1.294925E+03 -59.0860 1.388575E+03 -1.549315E+03 1.468945E+03 93 -1.530066E+03 -4.825652E+03 -5.108398E+02 -8.6121 -1.452699E+03 -4.903020E+03 1.725161E+03 98 -7.471748E+02 6.272979E+02 -1.495895E+03 -57.3374 1.586268E+03 -1.706145E+03 1.646206E+03 106 -1.459480E+03 -4.474328E+03 -5.861367E+02 -10.6239 -1.349535E+03 -4.584273E+03 1.617369E+03 111 -6.889990E+02 6.397080E+02 -1.689050E+03 -55.7356 1.790363E+03 -1.839654E+03 1.815008E+03 118 -1.378930E+03 -5.386064E+03 -2.254180E+02 -3.2096 -1.366289E+03 -5.398705E+03 2.016208E+03 119 -1.326186E+03 -4.075539E+03 -6.633789E+02 -12.8803 -1.174492E+03 -4.227233E+03 1.526371E+03 120 -1.226352E+03 -2.914125E+03 -1.062240E+03 -25.7675 -7.135883E+02 -3.426888E+03 1.356650E+03 121 -1.089674E+03 -1.885955E+03 -1.397870E+03 -37.0510 -3.435071E+01 -2.941278E+03 1.453464E+03 122 -9.289727E+02 -9.676035E+02 -1.651650E+03 -44.6650 7.034752E+02 -2.600051E+03 1.651763E+03 123 -7.574121E+02 -1.327930E+02 -1.810789E+03 -49.8928 1.392421E+03 -2.282626E+03 1.837524E+03 124 -5.866865E+02 6.467666E+02 -1.867187E+03 -54.1391 1.996442E+03 -1.936362E+03 1.966402E+03 125 -4.260264E+02 1.398310E+03 -1.815149E+03 -58.3405 2.517598E+03 -1.545315E+03 2.031457E+03 126 -2.822529E+02 2.140610E+03 -1.648993E+03 -63.1514 2.975333E+03 -1.116975E+03 2.046154E+03 127 -1.607715E+02 2.899197E+03 -1.360246E+03 -69.1805 3.416436E+03 -6.780100E+02 2.047223E+03 128 -6.774902E+01 3.700368E+03 -9.348584E+02 -76.8048 3.919554E+03 -2.869348E+02 2.103244E+03 129 -1.368799E+01 4.576816E+03 -3.519004E+02 -85.6417 4.603635E+03 -4.050732E+01 2.322071E+03 132 -1.106301E+03 -3.629117E+03 -7.422891E+02 -15.2376 -9.041025E+02 -3.831315E+03 1.463606E+03 137 -4.259561E+02 6.431729E+02 -2.020272E+03 -52.4104 2.198407E+03 -1.981191E+03 2.089799E+03 145 -7.694453E+02 -3.135859E+03 -8.221367E+02 -17.3965 -5.118582E+02 -3.393447E+03 1.440794E+03 150 -1.921201E+02 6.219502E+02 -2.134736E+03 -50.3976 2.388110E+03 -1.958280E+03 2.173195E+03 158 -2.759199E+02 -2.598172E+03 -9.012031E+02 -18.9083 3.277734E+01 -2.906869E+03 1.469823E+03 163 1.272393E+02 5.750947E+02 -2.192363E+03 -47.9160 2.554937E+03 -1.852603E+03 2.203770E+03 171 4.280781E+02 -2.022055E+03 -9.755469E+02 -19.2655 7.690511E+02 -2.363028E+03 1.566039E+03 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M 1 ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 176 5.374971E+02 4.958135E+02 -2.168935E+03 -44.7247 2.685690E+03 -1.652379E+03 2.169035E+03 184 1.419258E+03 -1.420977E+03 -1.036184E+03 -18.0581 1.757097E+03 -1.758815E+03 1.757956E+03 189 1.029976E+03 3.827822E+02 -2.032424E+03 -40.4767 2.764403E+03 -1.351645E+03 2.058024E+03 197 2.812936E+03 -8.252656E+02 -1.061332E+03 -15.1305 3.099910E+03 -1.112240E+03 2.106075E+03 202 1.574075E+03 2.459697E+02 -1.741709E+03 -34.5650 2.774028E+03 -9.539829E+02 1.864005E+03 210 4.800756E+03 -3.076484E+02 -9.865586E+02 -10.5595 4.984664E+03 -4.915564E+02 2.738110E+03 215 2.112392E+03 1.118135E+02 -1.246059E+03 -25.6219 2.709989E+03 -4.857837E+02 1.597886E+03 223 7.582367E+03 -1.813281E+01 -5.399531E+02 -4.0433 7.620535E+03 -5.630029E+01 3.838417E+03 228 2.563356E+03 2.243848E+01 -4.865811E+02 -10.4783 2.653349E+03 -6.755359E+01 1.360451E+03 * * * END OF JOB * * * 1 JOB TITLE = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) DATE: 5/17/95 END TIME: 14:31:24 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d01033a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01033A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A 3 LABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 4 SPC = 1 5 TEMPERATURE = 1 6 OUTPUT 7 SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247 8 SET 2 = 1 THRU 26 9 OLOAD = 2 10 DISPLACEMENTS = 1 11 $ STRESSES FOR POINTS ON PUBLISHED CURVES 12 SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98, 13 106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176, 14 184,189, 197,202, 210,215, 223,228 15 STRESSES = 3 16 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 595, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CNGRNT 1 14 27 40 53 66 79 92 +CNG11 2- +CNG11 105 118 131 144 157 170 183 196 +CNG12 3- +CNG12 209 222 4- CNGRNT 2 15 28 41 54 67 80 93 +CNG21 5- +CNG21 106 119 132 145 158 171 184 197 +CNG22 6- +CNG22 210 223 7- CNGRNT 3 16 29 42 55 68 81 94 +CNG31 8- +CNG31 107 120 133 146 159 172 185 198 +CNG32 9- +CNG32 211 224 10- CNGRNT 4 17 30 43 56 69 82 95 +CNG41 11- +CNG41 108 121 134 147 160 173 186 199 +CNG42 12- +CNG42 212 225 13- CNGRNT 5 18 31 44 57 70 83 96 +CNG51 14- +CNG51 109 122 135 148 161 174 187 200 +CNG52 15- +CNG52 213 226 16- CNGRNT 6 19 32 45 58 71 84 97 +CNG61 17- +CNG61 110 123 136 149 162 175 188 201 +CNG62 18- +CNG62 214 227 19- CNGRNT 7 20 33 46 59 72 85 98 +CNG71 20- +CNG71 111 124 137 150 163 176 189 202 +CNG72 21- +CNG72 215 228 22- CNGRNT 8 21 34 47 60 73 86 99 +CNG81 23- +CNG81 112 125 138 151 164 177 190 203 +CNG82 24- +CNG82 216 229 25- CNGRNT 9 22 35 48 61 74 87 100 +CNG91 26- +CNG91 113 126 139 152 165 178 191 204 +CNG92 27- +CNG92 217 230 28- CNGRNT 10 23 36 49 62 75 88 101 +CNG101 29- +CNG101 114 127 140 153 166 179 192 205 +CNG102 30- +CNG102 218 231 31- CNGRNT 11 24 37 50 63 76 89 102 +CNG111 32- +CNG111 115 128 141 154 167 180 193 206 +CNG112 33- +CNG112 219 232 34- CNGRNT 12 25 38 51 64 77 90 103 +CNG121 35- +CNG121 116 129 142 155 168 181 194 207 +CNG122 36- +CNG122 220 233 37- CQDMEM2 1 21 1 2 15 14 .00 38- CQDMEM2 2 21 2 3 16 15 .00 39- CQDMEM2 3 21 3 4 17 16 .00 40- CQDMEM2 4 21 4 5 18 17 .00 41- CQDMEM2 5 21 5 6 19 18 .00 42- CQDMEM2 6 21 6 7 20 19 .00 43- CQDMEM2 7 21 7 8 21 20 .00 44- CQDMEM2 8 21 8 9 22 21 .00 45- CQDMEM2 9 21 9 10 23 22 .00 46- CQDMEM2 10 21 10 11 24 23 .00 47- CQDMEM2 11 21 11 12 25 24 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQDMEM2 12 21 12 13 26 25 .00 49- CQDMEM2 14 21 14 15 28 27 .00 50- CQDMEM2 15 21 15 16 29 28 .00 51- CQDMEM2 16 21 16 17 30 29 .00 52- CQDMEM2 17 21 17 18 31 30 .00 53- CQDMEM2 18 21 18 19 32 31 .00 54- CQDMEM2 19 21 19 20 33 32 .00 55- CQDMEM2 20 21 20 21 34 33 .00 56- CQDMEM2 21 21 21 22 35 34 .00 57- CQDMEM2 22 21 22 23 36 35 .00 58- CQDMEM2 23 21 23 24 37 36 .00 59- CQDMEM2 24 21 24 25 38 37 .00 60- CQDMEM2 25 21 25 26 39 38 .00 61- CQDMEM2 27 21 27 28 41 40 .00 62- CQDMEM2 28 21 28 29 42 41 .00 63- CQDMEM2 29 21 29 30 43 42 .00 64- CQDMEM2 30 21 30 31 44 43 .00 65- CQDMEM2 31 21 31 32 45 44 .00 66- CQDMEM2 32 21 32 33 46 45 .00 67- CQDMEM2 33 21 33 34 47 46 .00 68- CQDMEM2 34 21 34 35 48 47 .00 69- CQDMEM2 35 21 35 36 49 48 .00 70- CQDMEM2 36 21 36 37 50 49 .00 71- CQDMEM2 37 21 37 38 51 50 .00 72- CQDMEM2 38 21 38 39 52 51 .00 73- CQDMEM2 40 21 40 41 54 53 .00 74- CQDMEM2 41 21 41 42 55 54 .00 75- CQDMEM2 42 21 42 43 56 55 .00 76- CQDMEM2 43 21 43 44 57 56 .00 77- CQDMEM2 44 21 44 45 58 57 .00 78- CQDMEM2 45 21 45 46 59 58 .00 79- CQDMEM2 46 21 46 47 60 59 .00 80- CQDMEM2 47 21 47 48 61 60 .00 81- CQDMEM2 48 21 48 49 62 61 .00 82- CQDMEM2 49 21 49 50 63 62 .00 83- CQDMEM2 50 21 50 51 64 63 .00 84- CQDMEM2 51 21 51 52 65 64 .00 85- CQDMEM2 53 21 53 54 67 66 .00 86- CQDMEM2 54 21 54 55 68 67 .00 87- CQDMEM2 55 21 55 56 69 68 .00 88- CQDMEM2 56 21 56 57 70 69 .00 89- CQDMEM2 57 21 57 58 71 70 .00 90- CQDMEM2 58 21 58 59 72 71 .00 91- CQDMEM2 59 21 59 60 73 72 .00 92- CQDMEM2 60 21 60 61 74 73 .00 93- CQDMEM2 61 21 61 62 75 74 .00 94- CQDMEM2 62 21 62 63 76 75 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CQDMEM2 63 21 63 64 77 76 .00 96- CQDMEM2 64 21 64 65 78 77 .00 97- CQDMEM2 66 21 66 67 80 79 .00 98- CQDMEM2 67 21 67 68 81 80 .00 99- CQDMEM2 68 21 68 69 82 81 .00 100- CQDMEM2 69 21 69 70 83 82 .00 101- CQDMEM2 70 21 70 71 84 83 .00 102- CQDMEM2 71 21 71 72 85 84 .00 103- CQDMEM2 72 21 72 73 86 85 .00 104- CQDMEM2 73 21 73 74 87 86 .00 105- CQDMEM2 74 21 74 75 88 87 .00 106- CQDMEM2 75 21 75 76 89 88 .00 107- CQDMEM2 76 21 76 77 90 89 .00 108- CQDMEM2 77 21 77 78 91 90 .00 109- CQDMEM2 79 21 79 80 93 92 .00 110- CQDMEM2 80 21 80 81 94 93 .00 111- CQDMEM2 81 21 81 82 95 94 .00 112- CQDMEM2 82 21 82 83 96 95 .00 113- CQDMEM2 83 21 83 84 97 96 .00 114- CQDMEM2 84 21 84 85 98 97 .00 115- CQDMEM2 85 21 85 86 99 98 .00 116- CQDMEM2 86 21 86 87 100 99 .00 117- CQDMEM2 87 21 87 88 101 100 .00 118- CQDMEM2 88 21 88 89 102 101 .00 119- CQDMEM2 89 21 89 90 103 102 .00 120- CQDMEM2 90 21 90 91 104 103 .00 121- CQDMEM2 92 21 92 93 106 105 .00 122- CQDMEM2 93 21 93 94 107 106 .00 123- CQDMEM2 94 21 94 95 108 107 .00 124- CQDMEM2 95 21 95 96 109 108 .00 125- CQDMEM2 96 21 96 97 110 109 .00 126- CQDMEM2 97 21 97 98 111 110 .00 127- CQDMEM2 98 21 98 99 112 111 .00 128- CQDMEM2 99 21 99 100 113 112 .00 129- CQDMEM2 100 21 100 101 114 113 .00 130- CQDMEM2 101 21 101 102 115 114 .00 131- CQDMEM2 102 21 102 103 116 115 .00 132- CQDMEM2 103 21 103 104 117 116 .00 133- CQDMEM2 105 21 105 106 119 118 .00 134- CQDMEM2 106 21 106 107 120 119 .00 135- CQDMEM2 107 21 107 108 121 120 .00 136- CQDMEM2 108 21 108 109 122 121 .00 137- CQDMEM2 109 21 109 110 123 122 .00 138- CQDMEM2 110 21 110 111 124 123 .00 139- CQDMEM2 111 21 111 112 125 124 .00 140- CQDMEM2 112 21 112 113 126 125 .00 141- CQDMEM2 113 21 113 114 127 126 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CQDMEM2 114 21 114 115 128 127 .00 143- CQDMEM2 115 21 115 116 129 128 .00 144- CQDMEM2 116 21 116 117 130 129 .00 145- CQDMEM2 118 21 118 119 132 131 .00 146- CQDMEM2 119 21 119 120 133 132 .00 147- CQDMEM2 120 21 120 121 134 133 .00 148- CQDMEM2 121 21 121 122 135 134 .00 149- CQDMEM2 122 21 122 123 136 135 .00 150- CQDMEM2 123 21 123 124 137 136 .00 151- CQDMEM2 124 21 124 125 138 137 .00 152- CQDMEM2 125 21 125 126 139 138 .00 153- CQDMEM2 126 21 126 127 140 139 .00 154- CQDMEM2 127 21 127 128 141 140 .00 155- CQDMEM2 128 21 128 129 142 141 .00 156- CQDMEM2 129 21 129 130 143 142 .00 157- CQDMEM2 131 21 131 132 145 144 .00 158- CQDMEM2 132 21 132 133 146 145 .00 159- CQDMEM2 133 21 133 134 147 146 .00 160- CQDMEM2 134 21 134 135 148 147 .00 161- CQDMEM2 135 21 135 136 149 148 .00 162- CQDMEM2 136 21 136 137 150 149 .00 163- CQDMEM2 137 21 137 138 151 150 .00 164- CQDMEM2 138 21 138 139 152 151 .00 165- CQDMEM2 139 21 139 140 153 152 .00 166- CQDMEM2 140 21 140 141 154 153 .00 167- CQDMEM2 141 21 141 142 155 154 .00 168- CQDMEM2 142 21 142 143 156 155 .00 169- CQDMEM2 144 21 144 145 158 157 .00 170- CQDMEM2 145 21 145 146 159 158 .00 171- CQDMEM2 146 21 146 147 160 159 .00 172- CQDMEM2 147 21 147 148 161 160 .00 173- CQDMEM2 148 21 148 149 162 161 .00 174- CQDMEM2 149 21 149 150 163 162 .00 175- CQDMEM2 150 21 150 151 164 163 .00 176- CQDMEM2 151 21 151 152 165 164 .00 177- CQDMEM2 152 21 152 153 166 165 .00 178- CQDMEM2 153 21 153 154 167 166 .00 179- CQDMEM2 154 21 154 155 168 167 .00 180- CQDMEM2 155 21 155 156 169 168 .00 181- CQDMEM2 157 21 157 158 171 170 .00 182- CQDMEM2 158 21 158 159 172 171 .00 183- CQDMEM2 159 21 159 160 173 172 .00 184- CQDMEM2 160 21 160 161 174 173 .00 185- CQDMEM2 161 21 161 162 175 174 .00 186- CQDMEM2 162 21 162 163 176 175 .00 187- CQDMEM2 163 21 163 164 177 176 .00 188- CQDMEM2 164 21 164 165 178 177 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CQDMEM2 165 21 165 166 179 178 .00 190- CQDMEM2 166 21 166 167 180 179 .00 191- CQDMEM2 167 21 167 168 181 180 .00 192- CQDMEM2 168 21 168 169 182 181 .00 193- CQDMEM2 170 21 170 171 184 183 .00 194- CQDMEM2 171 21 171 172 185 184 .00 195- CQDMEM2 172 21 172 173 186 185 .00 196- CQDMEM2 173 21 173 174 187 186 .00 197- CQDMEM2 174 21 174 175 188 187 .00 198- CQDMEM2 175 21 175 176 189 188 .00 199- CQDMEM2 176 21 176 177 190 189 .00 200- CQDMEM2 177 21 177 178 191 190 .00 201- CQDMEM2 178 21 178 179 192 191 .00 202- CQDMEM2 179 21 179 180 193 192 .00 203- CQDMEM2 180 21 180 181 194 193 .00 204- CQDMEM2 181 21 181 182 195 194 .00 205- CQDMEM2 183 21 183 184 197 196 .00 206- CQDMEM2 184 21 184 185 198 197 .00 207- CQDMEM2 185 21 185 186 199 198 .00 208- CQDMEM2 186 21 186 187 200 199 .00 209- CQDMEM2 187 21 187 188 201 200 .00 210- CQDMEM2 188 21 188 189 202 201 .00 211- CQDMEM2 189 21 189 190 203 202 .00 212- CQDMEM2 190 21 190 191 204 203 .00 213- CQDMEM2 191 21 191 192 205 204 .00 214- CQDMEM2 192 21 192 193 206 205 .00 215- CQDMEM2 193 21 193 194 207 206 .00 216- CQDMEM2 194 21 194 195 208 207 .00 217- CQDMEM2 196 21 196 197 210 209 .00 218- CQDMEM2 197 21 197 198 211 210 .00 219- CQDMEM2 198 21 198 199 212 211 .00 220- CQDMEM2 199 21 199 200 213 212 .00 221- CQDMEM2 200 21 200 201 214 213 .00 222- CQDMEM2 201 21 201 202 215 214 .00 223- CQDMEM2 202 21 202 203 216 215 .00 224- CQDMEM2 203 21 203 204 217 216 .00 225- CQDMEM2 204 21 204 205 218 217 .00 226- CQDMEM2 205 21 205 206 219 218 .00 227- CQDMEM2 206 21 206 207 220 219 .00 228- CQDMEM2 207 21 207 208 221 220 .00 229- CQDMEM2 209 21 209 210 223 222 .00 230- CQDMEM2 210 21 210 211 224 223 .00 231- CQDMEM2 211 21 211 212 225 224 .00 232- CQDMEM2 212 21 212 213 226 225 .00 233- CQDMEM2 213 21 213 214 227 226 .00 234- CQDMEM2 214 21 214 215 228 227 .00 235- CQDMEM2 215 21 215 216 229 228 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- CQDMEM2 216 21 216 217 230 229 .00 237- CQDMEM2 217 21 217 218 231 230 .00 238- CQDMEM2 218 21 218 219 232 231 .00 239- CQDMEM2 219 21 219 220 233 232 .00 240- CQDMEM2 220 21 220 221 234 233 .00 241- CQDMEM2 222 21 222 223 236 235 .00 242- CQDMEM2 223 21 223 224 237 236 .00 243- CQDMEM2 224 21 224 225 238 237 .00 244- CQDMEM2 225 21 225 226 239 238 .00 245- CQDMEM2 226 21 226 227 240 239 .00 246- CQDMEM2 227 21 227 228 241 240 .00 247- CQDMEM2 228 21 228 229 242 241 .00 248- CQDMEM2 229 21 229 230 243 242 .00 249- CQDMEM2 230 21 230 231 244 243 .00 250- CQDMEM2 231 21 231 232 245 244 .00 251- CQDMEM2 232 21 232 233 246 245 .00 252- CQDMEM2 233 21 233 234 247 246 .00 253- GRDSET 3456 254- GRID 1 .0 .0 .0 255- GRID 2 1.0 .0 .0 256- GRID 3 2.0 .0 .0 257- GRID 4 3.0 .0 .0 258- GRID 5 4.0 .0 .0 259- GRID 6 5.0 .0 .0 260- GRID 7 6.0 .0 .0 261- GRID 8 7.0 .0 .0 262- GRID 9 8.0 .0 .0 263- GRID 10 9.0 .0 .0 264- GRID 11 10.0 .0 .0 265- GRID 12 11.0 .0 .0 266- GRID 13 12.0 .0 .0 267- GRID 14 .0 1.0 .0 268- GRID 15 1.0 1.0 .0 269- GRID 16 2.0 1.0 .0 270- GRID 17 3.0 1.0 .0 271- GRID 18 4.0 1.0 .0 272- GRID 19 5.0 1.0 .0 273- GRID 20 6.0 1.0 .0 274- GRID 21 7.0 1.0 .0 275- GRID 22 8.0 1.0 .0 276- GRID 23 9.0 1.0 .0 277- GRID 24 10.0 1.0 .0 278- GRID 25 11.0 1.0 .0 279- GRID 26 12.0 1.0 .0 280- GRID 27 .0 2.0 .0 281- GRID 28 1.0 2.0 .0 282- GRID 29 2.0 2.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- GRID 30 3.0 2.0 .0 284- GRID 31 4.0 2.0 .0 285- GRID 32 5.0 2.0 .0 286- GRID 33 6.0 2.0 .0 287- GRID 34 7.0 2.0 .0 288- GRID 35 8.0 2.0 .0 289- GRID 36 9.0 2.0 .0 290- GRID 37 10.0 2.0 .0 291- GRID 38 11.0 2.0 .0 292- GRID 39 12.0 2.0 .0 293- GRID 40 .0 3.0 .0 294- GRID 41 1.0 3.0 .0 295- GRID 42 2.0 3.0 .0 296- GRID 43 3.0 3.0 .0 297- GRID 44 4.0 3.0 .0 298- GRID 45 5.0 3.0 .0 299- GRID 46 6.0 3.0 .0 300- GRID 47 7.0 3.0 .0 301- GRID 48 8.0 3.0 .0 302- GRID 49 9.0 3.0 .0 303- GRID 50 10.0 3.0 .0 304- GRID 51 11.0 3.0 .0 305- GRID 52 12.0 3.0 .0 306- GRID 53 .0 4.0 .0 307- GRID 54 1.0 4.0 .0 308- GRID 55 2.0 4.0 .0 309- GRID 56 3.0 4.0 .0 310- GRID 57 4.0 4.0 .0 311- GRID 58 5.0 4.0 .0 312- GRID 59 6.0 4.0 .0 313- GRID 60 7.0 4.0 .0 314- GRID 61 8.0 4.0 .0 315- GRID 62 9.0 4.0 .0 316- GRID 63 10.0 4.0 .0 317- GRID 64 11.0 4.0 .0 318- GRID 65 12.0 4.0 .0 319- GRID 66 .0 5.0 .0 320- GRID 67 1.0 5.0 .0 321- GRID 68 2.0 5.0 .0 322- GRID 69 3.0 5.0 .0 323- GRID 70 4.0 5.0 .0 324- GRID 71 5.0 5.0 .0 325- GRID 72 6.0 5.0 .0 326- GRID 73 7.0 5.0 .0 327- GRID 74 8.0 5.0 .0 328- GRID 75 9.0 5.0 .0 329- GRID 76 10.0 5.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- GRID 77 11.0 5.0 .0 331- GRID 78 12.0 5.0 .0 332- GRID 79 .0 6.0 .0 333- GRID 80 1.0 6.0 .0 334- GRID 81 2.0 6.0 .0 335- GRID 82 3.0 6.0 .0 336- GRID 83 4.0 6.0 .0 337- GRID 84 5.0 6.0 .0 338- GRID 85 6.0 6.0 .0 339- GRID 86 7.0 6.0 .0 340- GRID 87 8.0 6.0 .0 341- GRID 88 9.0 6.0 .0 342- GRID 89 10.0 6.0 .0 343- GRID 90 11.0 6.0 .0 344- GRID 91 12.0 6.0 .0 345- GRID 92 .0 7.0 .0 346- GRID 93 1.0 7.0 .0 347- GRID 94 2.0 7.0 .0 348- GRID 95 3.0 7.0 .0 349- GRID 96 4.0 7.0 .0 350- GRID 97 5.0 7.0 .0 351- GRID 98 6.0 7.0 .0 352- GRID 99 7.0 7.0 .0 353- GRID 100 8.0 7.0 .0 354- GRID 101 9.0 7.0 .0 355- GRID 102 10.0 7.0 .0 356- GRID 103 11.0 7.0 .0 357- GRID 104 12.0 7.0 .0 358- GRID 105 .0 8.0 .0 359- GRID 106 1.0 8.0 .0 360- GRID 107 2.0 8.0 .0 361- GRID 108 3.0 8.0 .0 362- GRID 109 4.0 8.0 .0 363- GRID 110 5.0 8.0 .0 364- GRID 111 6.0 8.0 .0 365- GRID 112 7.0 8.0 .0 366- GRID 113 8.0 8.0 .0 367- GRID 114 9.0 8.0 .0 368- GRID 115 10.0 8.0 .0 369- GRID 116 11.0 8.0 .0 370- GRID 117 12.0 8.0 .0 371- GRID 118 .0 9.0 .0 372- GRID 119 1.0 9.0 .0 373- GRID 120 2.0 9.0 .0 374- GRID 121 3.0 9.0 .0 375- GRID 122 4.0 9.0 .0 376- GRID 123 5.0 9.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- GRID 124 6.0 9.0 .0 378- GRID 125 7.0 9.0 .0 379- GRID 126 8.0 9.0 .0 380- GRID 127 9.0 9.0 .0 381- GRID 128 10.0 9.0 .0 382- GRID 129 11.0 9.0 .0 383- GRID 130 12.0 9.0 .0 384- GRID 131 .0 10.0 .0 385- GRID 132 1.0 10.0 .0 386- GRID 133 2.0 10.0 .0 387- GRID 134 3.0 10.0 .0 388- GRID 135 4.0 10.0 .0 389- GRID 136 5.0 10.0 .0 390- GRID 137 6.0 10.0 .0 391- GRID 138 7.0 10.0 .0 392- GRID 139 8.0 10.0 .0 393- GRID 140 9.0 10.0 .0 394- GRID 141 10.0 10.0 .0 395- GRID 142 11.0 10.0 .0 396- GRID 143 12.0 10.0 .0 397- GRID 144 .0 11.0 .0 398- GRID 145 1.0 11.0 .0 399- GRID 146 2.0 11.0 .0 400- GRID 147 3.0 11.0 .0 401- GRID 148 4.0 11.0 .0 402- GRID 149 5.0 11.0 .0 403- GRID 150 6.0 11.0 .0 404- GRID 151 7.0 11.0 .0 405- GRID 152 8.0 11.0 .0 406- GRID 153 9.0 11.0 .0 407- GRID 154 10.0 11.0 .0 408- GRID 155 11.0 11.0 .0 409- GRID 156 12.0 11.0 .0 410- GRID 157 .0 12.0 .0 411- GRID 158 1.0 12.0 .0 412- GRID 159 2.0 12.0 .0 413- GRID 160 3.0 12.0 .0 414- GRID 161 4.0 12.0 .0 415- GRID 162 5.0 12.0 .0 416- GRID 163 6.0 12.0 .0 417- GRID 164 7.0 12.0 .0 418- GRID 165 8.0 12.0 .0 419- GRID 166 9.0 12.0 .0 420- GRID 167 10.0 12.0 .0 421- GRID 168 11.0 12.0 .0 422- GRID 169 12.0 12.0 .0 423- GRID 170 .0 13.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- GRID 171 1.0 13.0 .0 425- GRID 172 2.0 13.0 .0 426- GRID 173 3.0 13.0 .0 427- GRID 174 4.0 13.0 .0 428- GRID 175 5.0 13.0 .0 429- GRID 176 6.0 13.0 .0 430- GRID 177 7.0 13.0 .0 431- GRID 178 8.0 13.0 .0 432- GRID 179 9.0 13.0 .0 433- GRID 180 10.0 13.0 .0 434- GRID 181 11.0 13.0 .0 435- GRID 182 12.0 13.0 .0 436- GRID 183 .0 14.0 .0 437- GRID 184 1.0 14.0 .0 438- GRID 185 2.0 14.0 .0 439- GRID 186 3.0 14.0 .0 440- GRID 187 4.0 14.0 .0 441- GRID 188 5.0 14.0 .0 442- GRID 189 6.0 14.0 .0 443- GRID 190 7.0 14.0 .0 444- GRID 191 8.0 14.0 .0 445- GRID 192 9.0 14.0 .0 446- GRID 193 10.0 14.0 .0 447- GRID 194 11.0 14.0 .0 448- GRID 195 12.0 14.0 .0 449- GRID 196 .0 15.0 .0 450- GRID 197 1.0 15.0 .0 451- GRID 198 2.0 15.0 .0 452- GRID 199 3.0 15.0 .0 453- GRID 200 4.0 15.0 .0 454- GRID 201 5.0 15.0 .0 455- GRID 202 6.0 15.0 .0 456- GRID 203 7.0 15.0 .0 457- GRID 204 8.0 15.0 .0 458- GRID 205 9.0 15.0 .0 459- GRID 206 10.0 15.0 .0 460- GRID 207 11.0 15.0 .0 461- GRID 208 12.0 15.0 .0 462- GRID 209 .0 16.0 .0 463- GRID 210 1.0 16.0 .0 464- GRID 211 2.0 16.0 .0 465- GRID 212 3.0 16.0 .0 466- GRID 213 4.0 16.0 .0 467- GRID 214 5.0 16.0 .0 468- GRID 215 6.0 16.0 .0 469- GRID 216 7.0 16.0 .0 470- GRID 217 8.0 16.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- GRID 218 9.0 16.0 .0 472- GRID 219 10.0 16.0 .0 473- GRID 220 11.0 16.0 .0 474- GRID 221 12.0 16.0 .0 475- GRID 222 .0 17.0 .0 476- GRID 223 1.0 17.0 .0 477- GRID 224 2.0 17.0 .0 478- GRID 225 3.0 17.0 .0 479- GRID 226 4.0 17.0 .0 480- GRID 227 5.0 17.0 .0 481- GRID 228 6.0 17.0 .0 482- GRID 229 7.0 17.0 .0 483- GRID 230 8.0 17.0 .0 484- GRID 231 9.0 17.0 .0 485- GRID 232 10.0 17.0 .0 486- GRID 233 11.0 17.0 .0 487- GRID 234 12.0 17.0 .0 488- GRID 235 .0 18.0 .0 489- GRID 236 1.0 18.0 .0 490- GRID 237 2.0 18.0 .0 491- GRID 238 3.0 18.0 .0 492- GRID 239 4.0 18.0 .0 493- GRID 240 5.0 18.0 .0 494- GRID 241 6.0 18.0 .0 495- GRID 242 7.0 18.0 .0 496- GRID 243 8.0 18.0 .0 497- GRID 244 9.0 18.0 .0 498- GRID 245 10.0 18.0 .0 499- GRID 246 11.0 18.0 .0 500- GRID 247 12.0 18.0 .0 501- MAT1 75 10.400+6 .3 12.700-675. 502- MATT1 75 100 503- PARAM IRES 1 504- PQDMEM2 21 75 .25 505- SPC1 1 1 1 14 27 40 53 66 CSPC-A 506- +SPC-A 79 92 105 118 131 144 157 170 CSPC-B 507- +SPC-B 183 196 209 222 235 508- SPC1 1 2 1 2 3 4 5 6 CSPC-C 509- +SPC-C 7 8 9 10 11 12 13 510- TABLEM1 100 +TM1 511- +TM1 80. 10.4+6 150. 10.15+6 200. 9.84+6 250. 9.51+6 +TM2 512- +TM2 300. 9.15+6 ENDT 513- TEMP 1 1 245.000 2 232.500 3 220.000 514- TEMP 1 4 207.500 5 195.000 6 182.500 515- TEMP 1 7 170.000 8 157.500 9 145.000 516- TEMP 1 10 132.500 11 120.000 12 107.500 517- TEMP 1 13 95.000 14 245.000 15 232.500 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- TEMP 1 16 220.000 17 207.500 18 195.000 519- TEMP 1 19 182.500 20 170.000 21 157.500 520- TEMP 1 22 145.000 23 132.500 24 120.000 521- TEMP 1 25 107.500 26 95.000 27 245.000 522- TEMP 1 28 232.500 29 220.000 30 207.500 523- TEMP 1 31 195.000 32 182.500 33 170.000 524- TEMP 1 34 157.500 35 145.000 36 132.500 525- TEMP 1 37 120.000 38 107.500 39 95.000 526- TEMP 1 40 245.000 41 232.500 42 220.000 527- TEMP 1 43 207.500 44 195.000 45 182.500 528- TEMP 1 46 170.000 47 157.500 48 145.000 529- TEMP 1 49 132.500 50 120.000 51 107.500 530- TEMP 1 52 95.000 53 245.000 54 232.500 531- TEMP 1 55 220.000 56 207.500 57 195.000 532- TEMP 1 58 182.500 59 170.000 60 157.500 533- TEMP 1 61 145.000 62 132.500 63 120.000 534- TEMP 1 64 107.500 65 95.000 66 245.000 535- TEMP 1 67 232.500 68 220.000 69 207.500 536- TEMP 1 70 195.000 71 182.500 72 170.000 537- TEMP 1 73 157.500 74 145.000 75 132.500 538- TEMP 1 76 120.000 77 107.500 78 95.000 539- TEMP 1 79 245.000 80 232.500 81 220.000 540- TEMP 1 82 207.500 83 195.000 84 182.500 541- TEMP 1 85 170.000 86 157.500 87 145.000 542- TEMP 1 88 132.500 89 120.000 90 107.500 543- TEMP 1 91 95.000 92 245.000 93 232.500 544- TEMP 1 94 220.000 95 207.500 96 195.000 545- TEMP 1 97 182.500 98 170.000 99 157.500 546- TEMP 1 100 145.000 101 132.500 102 120.000 547- TEMP 1 103 107.500 104 95.000 105 245.000 548- TEMP 1 106 232.500 107 220.000 108 207.500 549- TEMP 1 109 195.000 110 182.500 111 170.000 550- TEMP 1 112 157.500 113 145.000 114 132.500 551- TEMP 1 115 120.000 116 107.500 117 95.000 552- TEMP 1 118 245.000 119 232.500 120 220.000 553- TEMP 1 121 207.500 122 195.000 123 182.500 554- TEMP 1 124 170.000 125 157.500 126 145.000 555- TEMP 1 127 132.500 128 120.000 129 107.500 556- TEMP 1 130 95.000 131 245.000 132 232.500 557- TEMP 1 133 220.000 134 207.500 135 195.000 558- TEMP 1 136 182.500 137 170.000 138 157.500 559- TEMP 1 139 145.000 140 132.500 141 120.000 560- TEMP 1 142 107.500 143 95.000 144 245.000 561- TEMP 1 145 232.500 146 220.000 147 207.500 562- TEMP 1 148 195.000 149 182.500 150 170.000 563- TEMP 1 151 157.500 152 145.000 153 132.500 564- TEMP 1 154 120.000 155 107.500 156 95.000 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 565- TEMP 1 157 245.000 158 232.500 159 220.000 566- TEMP 1 160 207.500 161 195.000 162 182.500 567- TEMP 1 163 170.000 164 157.500 165 145.000 568- TEMP 1 166 132.500 167 120.000 168 107.500 569- TEMP 1 169 95.000 170 245.000 171 232.500 570- TEMP 1 172 220.000 173 207.500 174 195.000 571- TEMP 1 175 182.500 176 170.000 177 157.500 572- TEMP 1 178 145.000 179 132.500 180 120.000 573- TEMP 1 181 107.500 182 95.000 183 245.000 574- TEMP 1 184 232.500 185 220.000 186 207.500 575- TEMP 1 187 195.000 188 182.500 189 170.000 576- TEMP 1 190 157.500 191 145.000 192 132.500 577- TEMP 1 193 120.000 194 107.500 195 95.000 578- TEMP 1 196 245.000 197 232.500 198 220.000 579- TEMP 1 199 207.500 200 195.000 201 182.500 580- TEMP 1 202 170.000 203 157.500 204 145.000 581- TEMP 1 205 132.500 206 120.000 207 107.500 582- TEMP 1 208 95.000 209 245.000 210 232.500 583- TEMP 1 211 220.000 212 207.500 213 195.000 584- TEMP 1 214 182.500 215 170.000 216 157.500 585- TEMP 1 217 145.000 218 132.500 219 120.000 586- TEMP 1 220 107.500 221 95.000 222 245.000 587- TEMP 1 223 232.500 224 220.000 225 207.500 588- TEMP 1 226 195.000 227 182.500 228 170.000 589- TEMP 1 229 157.500 230 145.000 231 132.500 590- TEMP 1 232 120.000 233 107.500 234 95.000 591- TEMP 1 235 245.000 236 232.500 237 220.000 592- TEMP 1 238 207.500 239 195.000 240 182.500 593- TEMP 1 241 170.000 242 157.500 243 145.000 594- TEMP 1 244 132.500 245 120.000 246 107.500 595- TEMP 1 247 95.000 ENDDATA 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 15 PROFILE 3517 MAX WAVEFRONT 15 AVG WAVEFRONT 14.239 RMS WAVEFRONT 14.436 RMS BANDWIDTH 14.534 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 23 PROFILE 3622 MAX WAVEFRONT 21 AVG WAVEFRONT 14.664 RMS WAVEFRONT 15.039 RMS BANDWIDTH 15.423 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 15 15 PROFILE (P) 3517 3517 MAXIMUM WAVEFRONT (C-MAX) 15 15 AVERAGE WAVEFRONT (C-AVG) 14.239 14.239 RMS WAVEFRONT (C-RMS) 14.436 14.436 RMS BANDWITCH (B-RMS) 14.534 14.534 NUMBER OF GRID POINTS (N) 247 NUMBER OF ELEMENTS (NON-RIGID) 216 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 894 MATRIX DENSITY, PERCENT 3.336 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM2 ELEMENTS (ELEMENT TYPE 63) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.0646110E-16 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 2-T1). 2 T1 6.82121E-13 3 T1 -1.25056E-12 4 T1 -1.13687E-13 5 T1 4.88853E-12 6 T1 -3.75167E-12 7 T1 2.84217E-12 8 T1 3.41061E-13 9 T1 -2.84217E-12 10 T1 -2.44427E-12 11 T1 -4.20641E-12 12 T1 -5.91172E-12 13 T1 -2.19558E-12 14 T2 -2.27374E-13 15 T1 9.09495E-13 15 T2 -2.04636E-12 16 T1 1.81899E-12 16 T2 -5.22959E-12 17 T1 -2.95586E-12 17 T2 1.59162E-12 18 T1 -1.13687E-12 18 T2 -9.09495E-13 19 T1 3.41061E-12 19 T2 4.54747E-12 20 T1 -7.95808E-12 20 T2 -1.36424E-12 21 T1 8.86757E-12 21 T2 -9.09495E-13 22 T1 -1.09139E-11 22 T2 -2.72848E-12 23 T1 7.27596E-12 23 T2 -2.95586E-12 24 T1 -1.58025E-11 24 T2 -4.54747E-13 25 T1 3.06954E-12 25 T2 -3.18323E-12 26 T1 4.43379E-12 26 T2 2.27374E-12 27 T2 3.18323E-12 28 T2 4.54747E-13 29 T1 -5.22959E-12 29 T2 2.72848E-12 30 T1 -5.22959E-12 30 T2 -5.00222E-12 31 T1 -5.22959E-12 31 T2 -4.09273E-12 32 T1 -5.68434E-12 32 T2 3.18323E-12 33 T1 -6.82121E-13 33 T2 -4.54747E-12 34 T1 6.59384E-12 34 T2 -1.40972E-11 35 T1 1.56888E-11 35 T2 3.86535E-12 36 T1 -1.04592E-11 36 T2 -2.27374E-12 37 T1 2.27374E-12 37 T2 -4.09273E-12 38 T1 -2.27374E-13 38 T2 5.22959E-12 39 T1 1.86162E-12 39 T2 9.09495E-13 40 T2 -9.09495E-13 41 T1 2.72848E-12 41 T2 2.27374E-12 42 T1 -2.72848E-12 42 T2 -1.31877E-11 43 T1 9.09495E-13 43 T2 -1.81899E-12 44 T1 9.09495E-12 44 T2 -9.54969E-12 45 T1 -3.18323E-12 45 T2 2.27374E-12 46 T1 1.36424E-12 46 T2 8.64020E-12 47 T1 -5.45697E-12 47 T2 1.04592E-11 48 T1 1.31877E-11 48 T2 -3.18323E-12 49 T1 -1.15961E-11 49 T2 -3.18323E-12 50 T1 -6.36646E-12 50 T2 8.18545E-12 51 T1 -4.54747E-12 52 T1 -5.94014E-12 52 T2 -1.81899E-12 53 T2 -1.81899E-12 54 T1 -9.09495E-13 54 T2 5.00222E-12 55 T1 -4.54747E-12 55 T2 1.09139E-11 56 T1 1.36424E-12 56 T2 -8.18545E-12 57 T1 -7.73070E-12 57 T2 1.81899E-12 58 T1 -3.63798E-12 58 T2 5.91172E-12 59 T1 9.54969E-12 59 T2 -5.00222E-12 60 T1 -1.27329E-11 60 T2 -4.54747E-13 61 T1 -5.00222E-12 61 T2 -7.73070E-12 62 T1 2.72848E-12 62 T2 5.45697E-12 63 T1 4.09273E-12 63 T2 8.18545E-12 64 T1 8.64020E-12 64 T2 -8.64020E-12 65 T1 -1.59162E-12 65 T2 -1.81899E-12 66 T2 -3.63798E-12 67 T1 2.72848E-12 67 T2 9.09495E-13 68 T2 1.18234E-11 69 T1 -3.18323E-12 69 T2 1.00044E-11 70 T1 4.54747E-12 70 T2 -8.18545E-12 71 T1 -9.54969E-12 71 T2 -1.00044E-11 72 T1 1.31877E-11 72 T2 -4.54747E-12 73 T1 -8.18545E-12 73 T2 2.27374E-12 74 T1 4.54747E-13 74 T2 1.40972E-11 75 T1 1.59162E-11 75 T2 -3.18323E-12 76 T1 9.54969E-12 76 T2 -3.18323E-12 77 T1 1.81899E-12 77 T2 -5.00222E-12 78 T1 -1.36424E-12 78 T2 6.36646E-12 79 T2 5.45697E-12 80 T1 3.63798E-12 80 T2 -1.36424E-11 81 T1 3.63798E-12 81 T2 -5.45697E-12 82 T1 9.09495E-13 82 T2 -5.45697E-12 83 T1 5.91172E-12 83 T2 -7.27596E-12 84 T1 7.27596E-12 84 T2 -1.54614E-11 85 T1 -1.27329E-11 85 T2 4.54747E-12 86 T1 -6.36646E-12 86 T2 7.27596E-12 87 T1 1.63709E-11 87 T2 3.63798E-12 88 T1 -2.72848E-12 88 T2 5.45697E-12 89 T1 3.18323E-12 89 T2 1.54614E-11 90 T1 -8.64020E-12 90 T2 1.45519E-11 91 T1 6.70752E-12 91 T2 -9.09495E-13 92 T2 -3.63798E-12 93 T1 9.09495E-13 93 T2 1.27329E-11 94 T1 1.81899E-12 94 T2 -2.72848E-12 95 T1 6.36646E-12 96 T1 -4.54747E-12 96 T2 1.27329E-11 97 T2 -9.09495E-12 98 T1 1.18234E-11 98 T2 -1.18234E-11 99 T1 2.72848E-12 99 T2 -1.09139E-11 100 T1 4.54747E-13 100 T2 7.27596E-12 101 T1 -6.36646E-12 101 T2 -1.81899E-11 102 T1 3.63798E-12 102 T2 -2.72848E-12 103 T1 -7.73070E-12 103 T2 -1.81899E-12 104 T1 1.87583E-12 104 T2 -9.09495E-13 105 T2 -2.72848E-12 106 T1 -6.36646E-12 106 T2 -2.72848E-12 107 T1 2.72848E-12 107 T2 -7.27596E-12 108 T1 5.45697E-12 108 T2 1.63709E-11 109 T1 1.81899E-12 109 T2 7.27596E-12 110 T1 -1.00044E-11 110 T2 1.27329E-11 111 T1 -8.18545E-12 111 T2 -2.72848E-12 112 T1 1.27329E-11 112 T2 -1.81899E-12 113 T1 1.81899E-12 113 T2 -5.45697E-12 114 T1 -2.09184E-11 114 T2 4.54747E-12 115 T1 -1.09139E-11 115 T2 9.09495E-13 116 T1 1.54614E-11 116 T2 1.00044E-11 117 T1 -1.59162E-11 117 T2 9.09495E-13 118 T2 9.09495E-12 119 T1 2.72848E-12 119 T2 -5.45697E-12 120 T1 6.36646E-12 120 T2 -4.54747E-12 121 T2 -9.09495E-13 122 T1 -2.72848E-12 122 T2 9.09495E-13 123 T2 -1.72804E-11 124 T1 -8.18545E-12 125 T1 1.72804E-11 125 T2 7.27596E-12 126 T1 6.36646E-12 126 T2 3.63798E-12 127 T1 -5.45697E-12 127 T2 -3.63798E-12 128 T1 3.63798E-12 128 T2 5.45697E-12 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 129 T1 1.45519E-11 129 T2 -1.81899E-12 130 T1 -6.59384E-12 131 T2 5.45697E-12 132 T1 -1.81899E-12 132 T2 -5.45697E-12 133 T1 6.36646E-12 133 T2 -3.45608E-11 134 T1 1.81899E-12 134 T2 1.27329E-11 135 T1 -3.63798E-12 135 T2 -1.45519E-11 136 T1 -1.63709E-11 136 T2 -1.00044E-11 137 T1 6.36646E-12 137 T2 -1.36424E-11 138 T1 -4.54747E-12 138 T2 7.27596E-12 139 T1 2.72848E-12 139 T2 2.27374E-11 140 T1 7.27596E-12 140 T2 2.27374E-11 141 T1 3.63798E-12 141 T2 -6.36646E-12 142 T1 -1.36424E-11 142 T2 2.72848E-12 143 T1 1.23919E-11 143 T2 -5.45697E-12 144 T2 1.81899E-12 145 T1 -5.45697E-12 145 T2 1.45519E-11 146 T1 1.81899E-12 146 T2 1.27329E-11 147 T1 8.18545E-12 147 T2 2.91038E-11 148 T2 -5.45697E-12 149 T1 2.72848E-12 149 T2 1.45519E-11 150 T1 -6.36646E-12 150 T2 -1.81899E-12 151 T1 1.00044E-11 151 T2 -5.45697E-12 152 T1 -1.81899E-11 152 T2 -2.00089E-11 153 T1 -8.18545E-12 153 T2 -8.18545E-12 154 T1 -2.36469E-11 154 T2 -1.00044E-11 155 T1 1.81899E-11 155 T2 -2.63753E-11 156 T1 2.04636E-12 157 T2 -3.63798E-12 158 T1 3.63798E-12 158 T2 9.09495E-12 159 T1 -1.81899E-12 159 T2 -5.45697E-12 160 T1 3.63798E-12 160 T2 -1.09139E-11 161 T1 -9.09495E-12 161 T2 -1.27329E-11 162 T1 5.45697E-12 162 T2 -3.63798E-11 163 T1 6.36646E-12 163 T2 1.81899E-11 164 T1 -1.18234E-11 164 T2 -5.45697E-12 165 T1 9.09495E-12 165 T2 -6.36646E-12 166 T1 1.72804E-11 166 T2 -1.09139E-11 167 T1 -9.09495E-13 167 T2 -2.72848E-12 168 T1 -7.27596E-12 168 T2 1.81899E-12 169 T1 -5.05906E-12 169 T2 1.63709E-11 171 T1 1.81899E-12 171 T2 -3.63798E-12 172 T1 1.81899E-12 172 T2 -1.45519E-11 173 T1 3.63798E-12 173 T2 1.63709E-11 174 T1 1.09139E-11 174 T2 2.72848E-11 175 T1 8.18545E-12 175 T2 1.81899E-12 176 T1 3.63798E-12 176 T2 3.63798E-12 177 T1 5.45697E-12 177 T2 2.18279E-11 178 T1 -7.27596E-12 178 T2 2.91038E-11 179 T2 -9.09495E-12 180 T1 7.27596E-12 180 T2 8.18545E-12 181 T1 -9.09495E-13 181 T2 6.36646E-12 182 T1 -9.03810E-12 182 T2 1.81899E-12 183 T2 5.45697E-12 184 T1 -1.81899E-12 184 T2 1.81899E-12 185 T1 -3.63798E-12 185 T2 3.63798E-12 186 T1 -3.63798E-12 186 T2 -2.00089E-11 187 T1 3.63798E-12 187 T2 -3.81988E-11 188 T1 -1.63709E-11 188 T2 9.09495E-12 189 T1 1.36424E-11 189 T2 -9.09495E-12 190 T1 -9.09495E-13 190 T2 2.72848E-11 191 T1 7.27596E-12 191 T2 3.27418E-11 192 T1 1.00044E-11 192 T2 -1.81899E-12 193 T1 -1.00044E-11 193 T2 2.72848E-11 194 T1 1.54614E-11 194 T2 -5.45697E-12 195 T1 -2.38742E-12 195 T2 7.27596E-12 196 T2 2.18279E-11 197 T1 -1.81899E-12 197 T2 -2.18279E-11 198 T2 3.63798E-11 199 T1 -7.27596E-12 199 T2 -6.18456E-11 200 T1 1.09139E-11 200 T2 3.09228E-11 201 T1 1.81899E-12 201 T2 4.36557E-11 202 T1 5.45697E-12 202 T2 -3.27418E-11 203 T1 -8.18545E-12 203 T2 1.81899E-12 204 T1 1.18234E-11 204 T2 -2.00089E-11 205 T1 -9.09495E-12 205 T2 -1.81899E-12 206 T1 1.45519E-11 206 T2 -2.72848E-12 207 T1 -1.81899E-11 207 T2 -2.72848E-12 208 T1 -2.04636E-12 208 T2 1.09139E-11 209 T2 -2.72848E-11 210 T1 -3.63798E-12 210 T2 -7.27596E-12 211 T1 -7.27596E-12 211 T2 -3.81988E-11 212 T1 1.81899E-12 212 T2 2.00089E-11 213 T1 1.09139E-11 213 T2 1.45519E-11 214 T1 -1.27329E-11 214 T2 7.27596E-12 215 T2 1.45519E-11 216 T1 1.81899E-12 216 T2 2.36469E-11 217 T1 1.45519E-11 217 T2 5.45697E-12 218 T1 8.18545E-12 218 T2 -2.36469E-11 219 T1 6.36646E-12 219 T2 7.27596E-12 220 T1 1.81899E-12 220 T2 -4.54747E-12 221 T1 3.35376E-12 221 T2 -7.27596E-12 222 T2 -2.36469E-11 223 T1 -1.81899E-12 223 T2 3.63798E-12 224 T1 1.45519E-11 224 T2 1.63709E-11 225 T1 -5.45697E-12 225 T2 1.45519E-11 226 T1 -1.81899E-12 226 T2 -1.27329E-11 227 T1 -1.81899E-11 227 T2 -5.45697E-12 228 T1 9.09495E-12 228 T2 1.45519E-11 229 T1 -1.63709E-11 229 T2 1.45519E-11 230 T1 1.09139E-11 230 T2 5.45697E-12 231 T1 -1.81899E-11 231 T2 1.81899E-12 232 T1 1.81899E-11 232 T2 3.63798E-12 233 T1 -8.18545E-12 233 T2 -2.27374E-11 234 T1 -7.38964E-13 234 T2 -1.81899E-12 235 T2 9.54969E-12 236 T1 1.06866E-11 236 T2 -7.73070E-12 237 T1 6.13909E-12 237 T2 -9.09495E-13 238 T1 6.82121E-13 238 T2 -1.93268E-11 239 T1 5.91172E-12 239 T2 1.72804E-11 240 T1 1.47793E-12 240 T2 -4.54747E-13 241 T1 -1.93268E-12 241 T2 -4.09273E-12 242 T1 -5.68434E-12 243 T1 1.93268E-12 243 T2 -3.63798E-12 244 T1 -8.98126E-12 244 T2 -9.09495E-12 245 T1 -3.29692E-12 245 T2 -1.34150E-11 246 T1 1.19371E-12 246 T2 -7.95808E-12 247 T1 9.09495E-13 247 T2 3.63798E-12 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 2.156407E-03 0.0 0.0 0.0 0.0 0.0 3 G 4.114174E-03 0.0 0.0 0.0 0.0 0.0 4 G 5.879417E-03 0.0 0.0 0.0 0.0 0.0 5 G 7.457555E-03 0.0 0.0 0.0 0.0 0.0 6 G 8.852961E-03 0.0 0.0 0.0 0.0 0.0 7 G 1.006878E-02 0.0 0.0 0.0 0.0 0.0 8 G 1.110664E-02 0.0 0.0 0.0 0.0 0.0 9 G 1.196643E-02 0.0 0.0 0.0 0.0 0.0 10 G 1.264600E-02 0.0 0.0 0.0 0.0 0.0 11 G 1.314135E-02 0.0 0.0 0.0 0.0 0.0 12 G 1.344636E-02 0.0 0.0 0.0 0.0 0.0 13 G 1.355276E-02 0.0 0.0 0.0 0.0 0.0 79 G 0.0 8.291123E-03 0.0 0.0 0.0 0.0 80 G 2.120345E-03 8.261741E-03 0.0 0.0 0.0 0.0 81 G 4.043902E-03 8.174819E-03 0.0 0.0 0.0 0.0 82 G 5.778396E-03 8.034296E-03 0.0 0.0 0.0 0.0 83 G 7.330607E-03 7.847019E-03 0.0 0.0 0.0 0.0 84 G 8.705972E-03 7.622530E-03 0.0 0.0 0.0 0.0 85 G 9.908432E-03 7.372790E-03 0.0 0.0 0.0 0.0 86 G 1.094021E-02 7.111868E-03 0.0 0.0 0.0 0.0 87 G 1.180166E-02 6.855689E-03 0.0 0.0 0.0 0.0 88 G 1.249108E-02 6.621791E-03 0.0 0.0 0.0 0.0 89 G 1.300488E-02 6.429093E-03 0.0 0.0 0.0 0.0 90 G 1.333713E-02 6.297742E-03 0.0 0.0 0.0 0.0 91 G 1.347928E-02 6.248869E-03 0.0 0.0 0.0 0.0 157 G 0.0 1.758395E-02 0.0 0.0 0.0 0.0 158 G 2.144370E-03 1.749425E-02 0.0 0.0 0.0 0.0 159 G 4.097088E-03 1.723065E-02 0.0 0.0 0.0 0.0 160 G 5.870120E-03 1.680914E-02 0.0 0.0 0.0 0.0 161 G 7.471865E-03 1.625414E-02 0.0 0.0 0.0 0.0 162 G 8.906924E-03 1.559553E-02 0.0 0.0 0.0 0.0 163 G 1.017677E-02 1.486582E-02 0.0 0.0 0.0 0.0 164 G 1.128071E-02 1.409827E-02 0.0 0.0 0.0 0.0 165 G 1.221691E-02 1.332590E-02 0.0 0.0 0.0 0.0 166 G 1.298326E-02 1.258134E-02 0.0 0.0 0.0 0.0 167 G 1.357814E-02 1.189757E-02 0.0 0.0 0.0 0.0 168 G 1.400109E-02 1.131006E-02 0.0 0.0 0.0 0.0 169 G 1.425288E-02 1.086025E-02 0.0 0.0 0.0 0.0 235 G 0.0 2.829840E-02 0.0 0.0 0.0 0.0 236 G 3.147562E-03 2.799658E-02 0.0 0.0 0.0 0.0 237 G 6.012617E-03 2.722094E-02 0.0 0.0 0.0 0.0 238 G 8.571308E-03 2.615281E-02 0.0 0.0 0.0 0.0 239 G 1.082678E-02 2.488063E-02 0.0 0.0 0.0 0.0 240 G 1.278716E-02 2.346832E-02 0.0 0.0 0.0 0.0 241 G 1.446191E-02 2.196615E-02 0.0 0.0 0.0 0.0 242 G 1.586233E-02 2.041638E-02 0.0 0.0 0.0 0.0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 243 G 1.700226E-02 1.885547E-02 0.0 0.0 0.0 0.0 244 G 1.789913E-02 1.731442E-02 0.0 0.0 0.0 0.0 245 G 1.857386E-02 1.581857E-02 0.0 0.0 0.0 0.0 246 G 1.905252E-02 1.438263E-02 0.0 0.0 0.0 0.0 247 G 1.936602E-02 1.304365E-02 0.0 0.0 0.0 0.0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.559223E+03 -3.559223E+03 0.0 0.0 0.0 0.0 2 G 2.433977E+02 -6.875048E+03 0.0 0.0 0.0 0.0 3 G 2.480757E+02 -6.383575E+03 0.0 0.0 0.0 0.0 4 G 2.527524E+02 -5.882747E+03 0.0 0.0 0.0 0.0 5 G 2.585908E+02 -5.371403E+03 0.0 0.0 0.0 0.0 6 G 2.631287E+02 -4.849684E+03 0.0 0.0 0.0 0.0 7 G 2.675220E+02 -4.319033E+03 0.0 0.0 0.0 0.0 8 G 2.719160E+02 -3.779595E+03 0.0 0.0 0.0 0.0 9 G 2.805852E+02 -3.227094E+03 0.0 0.0 0.0 0.0 10 G 2.836848E+02 -2.662824E+03 0.0 0.0 0.0 0.0 11 G 2.862157E+02 -2.092923E+03 0.0 0.0 0.0 0.0 12 G 2.887468E+02 -1.517961E+03 0.0 0.0 0.0 0.0 13 G 6.146071E+02 -6.146071E+02 0.0 0.0 0.0 0.0 14 G -7.118446E+03 0.0 0.0 0.0 0.0 0.0 15 G 4.867954E+02 -2.441406E-04 0.0 0.0 0.0 0.0 16 G 4.961514E+02 0.0 0.0 0.0 0.0 0.0 17 G 5.055049E+02 0.0 0.0 0.0 0.0 0.0 18 G 5.171816E+02 0.0 0.0 0.0 0.0 0.0 19 G 5.262573E+02 -2.441406E-04 0.0 0.0 0.0 0.0 20 G 5.350439E+02 0.0 0.0 0.0 0.0 0.0 21 G 5.438320E+02 0.0 0.0 0.0 0.0 0.0 22 G 5.611704E+02 0.0 0.0 0.0 0.0 0.0 23 G 5.673696E+02 0.0 0.0 0.0 0.0 0.0 24 G 5.724314E+02 -1.220703E-04 0.0 0.0 0.0 0.0 25 G 5.774937E+02 0.0 0.0 0.0 0.0 0.0 26 G 1.229214E+03 0.0 0.0 0.0 0.0 0.0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) ELEMENT STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.498871E+03 -7.429309E+03 -1.086743E+01 -0.1050 -1.498851E+03 -7.429328E+03 2.965239E+03 2 -1.455730E+03 -6.021971E+03 -3.215234E+01 -0.4034 -1.455504E+03 -6.022197E+03 2.283346E+03 3 -1.371328E+03 -4.654646E+03 -5.199854E+01 -0.9071 -1.370505E+03 -4.655470E+03 1.642482E+03 4 -1.249607E+03 -3.322734E+03 -6.933594E+01 -1.9134 -1.247291E+03 -3.325051E+03 1.038880E+03 5 -1.096639E+03 -2.016912E+03 -8.314844E+01 -5.1215 -1.089186E+03 -2.024364E+03 4.675890E+02 6 -9.203945E+02 -7.265059E+02 -9.250977E+01 -68.1704 -6.894492E+02 -9.574512E+02 1.340010E+02 7 -7.306475E+02 5.647627E+02 -9.658594E+01 -85.7593 5.719246E+02 -7.378093E+02 6.548669E+02 8 -5.386826E+02 1.876956E+03 -9.464258E+01 -87.7598 1.880658E+03 -5.423849E+02 1.211522E+03 9 -3.571982E+02 3.223775E+03 -8.608594E+01 -88.6237 3.225844E+03 -3.592665E+02 1.792555E+03 10 -1.998145E+02 4.631841E+03 -7.050195E+01 -89.1642 4.632869E+03 -2.008430E+02 2.416856E+03 11 -8.087012E+01 6.129444E+03 -4.766406E+01 -89.5603 6.129810E+03 -8.123584E+01 3.105523E+03 12 -1.484033E+01 7.745253E+03 -1.765820E+01 -89.8696 7.745294E+03 -1.488062E+01 3.880087E+03 15 -1.465977E+03 -5.980547E+03 -9.668311E+01 -1.2263 -1.463907E+03 -5.982616E+03 2.259355E+03 20 -7.363389E+02 5.670596E+02 -2.903594E+02 -77.9925 6.288170E+02 -7.980963E+02 7.134567E+02 28 -1.484842E+03 -5.897426E+03 -1.618750E+02 -2.0981 -1.478911E+03 -5.903356E+03 2.212222E+03 33 -7.466670E+02 5.717119E+02 -4.858418E+02 -71.8044 7.314077E+02 -9.063627E+02 8.188852E+02 41 -1.508990E+03 -5.772090E+03 -2.281289E+02 -3.0544 -1.496817E+03 -5.784263E+03 2.143723E+03 46 -7.594365E+02 5.787705E+02 -6.837803E+02 -67.1892 8.663566E+02 -1.047023E+03 9.566896E+02 54 -1.533277E+03 -5.603797E+03 -2.957871E+02 -4.1345 -1.511896E+03 -5.625178E+03 2.056641E+03 59 -7.711943E+02 5.882334E+02 -8.843877E+02 -63.7724 1.023935E+03 -1.206896E+03 1.115416E+03 67 -1.550566E+03 -5.391652E+03 -3.651221E+02 -5.3821 -1.516167E+03 -5.426052E+03 1.954942E+03 72 -7.770576E+02 5.998975E+02 -1.087007E+03 -61.1745 1.198116E+03 -1.375276E+03 1.286696E+03 80 -1.551434E+03 -5.134723E+03 -4.363340E+02 -6.8436 -1.499067E+03 -5.187089E+03 1.844011E+03 85 -7.704834E+02 6.131689E+02 -1.289928E+03 -59.1030 1.385084E+03 -1.542399E+03 1.463741E+03 93 -1.523863E+03 -4.832016E+03 -5.095449E+02 -8.5608 -1.447158E+03 -4.908721E+03 1.730781E+03 98 -7.430420E+02 6.267979E+02 -1.490000E+03 -57.3436 1.581760E+03 -1.698005E+03 1.639882E+03 106 -1.452711E+03 -4.482688E+03 -5.848027E+02 -10.5536 -1.343758E+03 -4.591640E+03 1.623941E+03 111 -6.842646E+02 6.385713E+02 -1.682326E+03 -55.7313 1.784830E+03 -1.830523E+03 1.807677E+03 118 -1.371869E+03 -5.396775E+03 -2.249980E+02 -3.1897 -1.359331E+03 -5.409314E+03 2.024992E+03 119 -1.319049E+03 -4.086172E+03 -6.620293E+02 -12.7855 -1.168816E+03 -4.236405E+03 1.533794E+03 120 -1.219176E+03 -2.924336E+03 -1.059721E+03 -25.5911 -7.116453E+02 -3.431866E+03 1.360111E+03 121 -1.082631E+03 -1.895205E+03 -1.393975E+03 -36.8754 -3.694189E+01 -2.940894E+03 1.451976E+03 122 -9.223438E+02 -9.751387E+02 -1.646320E+03 -44.5407 6.977906E+02 -2.595273E+03 1.646532E+03 123 -7.514844E+02 -1.378438E+02 -1.804215E+03 -49.8256 1.385453E+03 -2.274781E+03 1.830117E+03 124 -5.816436E+02 6.449814E+02 -1.859793E+03 -54.1256 1.989980E+03 -1.926642E+03 1.958311E+03 125 -4.220811E+02 1.400505E+03 -1.807607E+03 -58.3773 2.513539E+03 -1.535115E+03 2.024327E+03 126 -2.795576E+02 2.147345E+03 -1.642273E+03 -63.2301 2.975835E+03 -1.108048E+03 2.041941E+03 127 -1.593770E+02 2.910732E+03 -1.355799E+03 -69.2741 3.423746E+03 -6.723906E+02 2.048068E+03 128 -6.731152E+01 3.716298E+03 -9.345723E+02 -76.8551 3.934552E+03 -2.855662E+02 2.110059E+03 129 -1.314111E+01 4.595601E+03 -3.579399E+02 -85.5854 4.623235E+03 -4.077490E+01 2.332005E+03 132 -1.099078E+03 -3.642320E+03 -7.409375E+02 -15.1141 -8.989626E+02 -3.842436E+03 1.471737E+03 137 -4.211670E+02 6.408564E+02 -2.012548E+03 -52.3903 2.191268E+03 -1.971579E+03 2.081424E+03 145 -7.625000E+02 -3.152000E+03 -8.207539E+02 -17.2439 -5.077451E+02 -3.406755E+03 1.449505E+03 150 -1.884443E+02 6.194697E+02 -2.127244E+03 -50.3761 2.380772E+03 -1.949747E+03 2.165260E+03 158 -2.696934E+02 -2.617750E+03 -8.996797E+02 -18.7318 3.538818E+01 -2.922832E+03 1.479110E+03 163 1.286553E+02 5.730635E+02 -2.186064E+03 -47.9020 2.548188E+03 -1.846469E+03 2.197329E+03 171 4.329531E+02 -2.045812E+03 -9.736289E+02 -19.0762 7.696487E+02 -2.382508E+03 1.576078E+03 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) ELEMENT STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 176 5.355361E+02 4.949932E+02 -2.165222E+03 -44.7318 2.680581E+03 -1.650052E+03 2.165317E+03 184 1.421537E+03 -1.449914E+03 -1.033297E+03 -17.8714 1.754712E+03 -1.783089E+03 1.768901E+03 189 1.024095E+03 3.835713E+02 -2.033112E+03 -40.5241 2.762015E+03 -1.354349E+03 2.058182E+03 197 2.809926E+03 -8.600078E+02 -1.056020E+03 -14.9602 3.092099E+03 -1.142181E+03 2.117140E+03 202 1.565021E+03 2.479229E+02 -1.748385E+03 -34.6803 2.774769E+03 -9.618259E+02 1.868298E+03 210 4.776887E+03 -3.425547E+02 -9.772305E+02 -10.4477 4.957084E+03 -5.227517E+02 2.739918E+03 215 2.102251E+03 1.132041E+02 -1.259026E+03 -25.8471 2.712167E+03 -4.967114E+02 1.604439E+03 223 7.536414E+03 -3.477344E+01 -5.651758E+02 -4.2457 7.578371E+03 -7.673022E+01 3.827551E+03 228 2.554821E+03 2.159473E+01 -5.040801E+02 -10.8507 2.651442E+03 -7.502563E+01 1.363234E+03 * * * END OF JOB * * * 1 JOB TITLE = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) DATE: 5/17/95 END TIME: 14:32:11 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d01034a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01034A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 3 LABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 4 SPC = 1 5 TEMPERATURE = 1 6 OUTPUT 7 SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247 8 SET 2 = 1 THRU 26 9 DISPLACEMENTS = 1 10 OLOAD = 2 11 SCAN (STRESS,CQDMEM2, SHEAR-XY) = 8, SET 1 12 SCAN (STRESS, 6, CQDMEM2) = +1500., -1500., SET 2 13 $ STRESSES FOR POINTS ON PUBLISHED CURVES 14 SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98, 15 106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176, 16 184,189, 197,202, 210,215, 223,228 17 STRESSES = 3 18 SCAN(STRESS, QDMEM2, MAX-SHR) = 10, SET 3 19 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 595, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CNGRNT 1 14 27 40 53 66 79 92 +CNG11 2- +CNG11 105 118 131 144 157 170 183 196 +CNG12 3- +CNG12 209 222 4- CNGRNT 2 15 28 41 54 67 80 93 +CNG21 5- +CNG21 106 119 132 145 158 171 184 197 +CNG22 6- +CNG22 210 223 7- CNGRNT 3 16 29 42 55 68 81 94 +CNG31 8- +CNG31 107 120 133 146 159 172 185 198 +CNG32 9- +CNG32 211 224 10- CNGRNT 4 17 30 43 56 69 82 95 +CNG41 11- +CNG41 108 121 134 147 160 173 186 199 +CNG42 12- +CNG42 212 225 13- CNGRNT 5 18 31 44 57 70 83 96 +CNG51 14- +CNG51 109 122 135 148 161 174 187 200 +CNG52 15- +CNG52 213 226 16- CNGRNT 6 19 32 45 58 71 84 97 +CNG61 17- +CNG61 110 123 136 149 162 175 188 201 +CNG62 18- +CNG62 214 227 19- CNGRNT 7 20 33 46 59 72 85 98 +CNG71 20- +CNG71 111 124 137 150 163 176 189 202 +CNG72 21- +CNG72 215 228 22- CNGRNT 8 21 34 47 60 73 86 99 +CNG81 23- +CNG81 112 125 138 151 164 177 190 203 +CNG82 24- +CNG82 216 229 25- CNGRNT 9 22 35 48 61 74 87 100 +CNG91 26- +CNG91 113 126 139 152 165 178 191 204 +CNG92 27- +CNG92 217 230 28- CNGRNT 10 23 36 49 62 75 88 101 +CNG101 29- +CNG101 114 127 140 153 166 179 192 205 +CNG102 30- +CNG102 218 231 31- CNGRNT 11 24 37 50 63 76 89 102 +CNG111 32- +CNG111 115 128 141 154 167 180 193 206 +CNG112 33- +CNG112 219 232 34- CNGRNT 12 25 38 51 64 77 90 103 +CNG121 35- +CNG121 116 129 142 155 168 181 194 207 +CNG122 36- +CNG122 220 233 37- CQDMEM2 1 21 1 2 15 14 .00 38- CQDMEM2 2 21 2 3 16 15 .00 39- CQDMEM2 3 21 3 4 17 16 .00 40- CQDMEM2 4 21 4 5 18 17 .00 41- CQDMEM2 5 21 5 6 19 18 .00 42- CQDMEM2 6 21 6 7 20 19 .00 43- CQDMEM2 7 21 7 8 21 20 .00 44- CQDMEM2 8 21 8 9 22 21 .00 45- CQDMEM2 9 21 9 10 23 22 .00 46- CQDMEM2 10 21 10 11 24 23 .00 47- CQDMEM2 11 21 11 12 25 24 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQDMEM2 12 21 12 13 26 25 .00 49- CQDMEM2 14 21 14 15 28 27 .00 50- CQDMEM2 15 21 15 16 29 28 .00 51- CQDMEM2 16 21 16 17 30 29 .00 52- CQDMEM2 17 21 17 18 31 30 .00 53- CQDMEM2 18 21 18 19 32 31 .00 54- CQDMEM2 19 21 19 20 33 32 .00 55- CQDMEM2 20 21 20 21 34 33 .00 56- CQDMEM2 21 21 21 22 35 34 .00 57- CQDMEM2 22 21 22 23 36 35 .00 58- CQDMEM2 23 21 23 24 37 36 .00 59- CQDMEM2 24 21 24 25 38 37 .00 60- CQDMEM2 25 21 25 26 39 38 .00 61- CQDMEM2 27 21 27 28 41 40 .00 62- CQDMEM2 28 21 28 29 42 41 .00 63- CQDMEM2 29 21 29 30 43 42 .00 64- CQDMEM2 30 21 30 31 44 43 .00 65- CQDMEM2 31 21 31 32 45 44 .00 66- CQDMEM2 32 21 32 33 46 45 .00 67- CQDMEM2 33 21 33 34 47 46 .00 68- CQDMEM2 34 21 34 35 48 47 .00 69- CQDMEM2 35 21 35 36 49 48 .00 70- CQDMEM2 36 21 36 37 50 49 .00 71- CQDMEM2 37 21 37 38 51 50 .00 72- CQDMEM2 38 21 38 39 52 51 .00 73- CQDMEM2 40 21 40 41 54 53 .00 74- CQDMEM2 41 21 41 42 55 54 .00 75- CQDMEM2 42 21 42 43 56 55 .00 76- CQDMEM2 43 21 43 44 57 56 .00 77- CQDMEM2 44 21 44 45 58 57 .00 78- CQDMEM2 45 21 45 46 59 58 .00 79- CQDMEM2 46 21 46 47 60 59 .00 80- CQDMEM2 47 21 47 48 61 60 .00 81- CQDMEM2 48 21 48 49 62 61 .00 82- CQDMEM2 49 21 49 50 63 62 .00 83- CQDMEM2 50 21 50 51 64 63 .00 84- CQDMEM2 51 21 51 52 65 64 .00 85- CQDMEM2 53 21 53 54 67 66 .00 86- CQDMEM2 54 21 54 55 68 67 .00 87- CQDMEM2 55 21 55 56 69 68 .00 88- CQDMEM2 56 21 56 57 70 69 .00 89- CQDMEM2 57 21 57 58 71 70 .00 90- CQDMEM2 58 21 58 59 72 71 .00 91- CQDMEM2 59 21 59 60 73 72 .00 92- CQDMEM2 60 21 60 61 74 73 .00 93- CQDMEM2 61 21 61 62 75 74 .00 94- CQDMEM2 62 21 62 63 76 75 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CQDMEM2 63 21 63 64 77 76 .00 96- CQDMEM2 64 21 64 65 78 77 .00 97- CQDMEM2 66 21 66 67 80 79 .00 98- CQDMEM2 67 21 67 68 81 80 .00 99- CQDMEM2 68 21 68 69 82 81 .00 100- CQDMEM2 69 21 69 70 83 82 .00 101- CQDMEM2 70 21 70 71 84 83 .00 102- CQDMEM2 71 21 71 72 85 84 .00 103- CQDMEM2 72 21 72 73 86 85 .00 104- CQDMEM2 73 21 73 74 87 86 .00 105- CQDMEM2 74 21 74 75 88 87 .00 106- CQDMEM2 75 21 75 76 89 88 .00 107- CQDMEM2 76 21 76 77 90 89 .00 108- CQDMEM2 77 21 77 78 91 90 .00 109- CQDMEM2 79 21 79 80 93 92 .00 110- CQDMEM2 80 21 80 81 94 93 .00 111- CQDMEM2 81 21 81 82 95 94 .00 112- CQDMEM2 82 21 82 83 96 95 .00 113- CQDMEM2 83 21 83 84 97 96 .00 114- CQDMEM2 84 21 84 85 98 97 .00 115- CQDMEM2 85 21 85 86 99 98 .00 116- CQDMEM2 86 21 86 87 100 99 .00 117- CQDMEM2 87 21 87 88 101 100 .00 118- CQDMEM2 88 21 88 89 102 101 .00 119- CQDMEM2 89 21 89 90 103 102 .00 120- CQDMEM2 90 21 90 91 104 103 .00 121- CQDMEM2 92 21 92 93 106 105 .00 122- CQDMEM2 93 21 93 94 107 106 .00 123- CQDMEM2 94 21 94 95 108 107 .00 124- CQDMEM2 95 21 95 96 109 108 .00 125- CQDMEM2 96 21 96 97 110 109 .00 126- CQDMEM2 97 21 97 98 111 110 .00 127- CQDMEM2 98 21 98 99 112 111 .00 128- CQDMEM2 99 21 99 100 113 112 .00 129- CQDMEM2 100 21 100 101 114 113 .00 130- CQDMEM2 101 21 101 102 115 114 .00 131- CQDMEM2 102 21 102 103 116 115 .00 132- CQDMEM2 103 21 103 104 117 116 .00 133- CQDMEM2 105 21 105 106 119 118 .00 134- CQDMEM2 106 21 106 107 120 119 .00 135- CQDMEM2 107 21 107 108 121 120 .00 136- CQDMEM2 108 21 108 109 122 121 .00 137- CQDMEM2 109 21 109 110 123 122 .00 138- CQDMEM2 110 21 110 111 124 123 .00 139- CQDMEM2 111 21 111 112 125 124 .00 140- CQDMEM2 112 21 112 113 126 125 .00 141- CQDMEM2 113 21 113 114 127 126 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CQDMEM2 114 21 114 115 128 127 .00 143- CQDMEM2 115 21 115 116 129 128 .00 144- CQDMEM2 116 21 116 117 130 129 .00 145- CQDMEM2 118 21 118 119 132 131 .00 146- CQDMEM2 119 21 119 120 133 132 .00 147- CQDMEM2 120 21 120 121 134 133 .00 148- CQDMEM2 121 21 121 122 135 134 .00 149- CQDMEM2 122 21 122 123 136 135 .00 150- CQDMEM2 123 21 123 124 137 136 .00 151- CQDMEM2 124 21 124 125 138 137 .00 152- CQDMEM2 125 21 125 126 139 138 .00 153- CQDMEM2 126 21 126 127 140 139 .00 154- CQDMEM2 127 21 127 128 141 140 .00 155- CQDMEM2 128 21 128 129 142 141 .00 156- CQDMEM2 129 21 129 130 143 142 .00 157- CQDMEM2 131 21 131 132 145 144 .00 158- CQDMEM2 132 21 132 133 146 145 .00 159- CQDMEM2 133 21 133 134 147 146 .00 160- CQDMEM2 134 21 134 135 148 147 .00 161- CQDMEM2 135 21 135 136 149 148 .00 162- CQDMEM2 136 21 136 137 150 149 .00 163- CQDMEM2 137 21 137 138 151 150 .00 164- CQDMEM2 138 21 138 139 152 151 .00 165- CQDMEM2 139 21 139 140 153 152 .00 166- CQDMEM2 140 21 140 141 154 153 .00 167- CQDMEM2 141 21 141 142 155 154 .00 168- CQDMEM2 142 21 142 143 156 155 .00 169- CQDMEM2 144 21 144 145 158 157 .00 170- CQDMEM2 145 21 145 146 159 158 .00 171- CQDMEM2 146 21 146 147 160 159 .00 172- CQDMEM2 147 21 147 148 161 160 .00 173- CQDMEM2 148 21 148 149 162 161 .00 174- CQDMEM2 149 21 149 150 163 162 .00 175- CQDMEM2 150 21 150 151 164 163 .00 176- CQDMEM2 151 21 151 152 165 164 .00 177- CQDMEM2 152 21 152 153 166 165 .00 178- CQDMEM2 153 21 153 154 167 166 .00 179- CQDMEM2 154 21 154 155 168 167 .00 180- CQDMEM2 155 21 155 156 169 168 .00 181- CQDMEM2 157 21 157 158 171 170 .00 182- CQDMEM2 158 21 158 159 172 171 .00 183- CQDMEM2 159 21 159 160 173 172 .00 184- CQDMEM2 160 21 160 161 174 173 .00 185- CQDMEM2 161 21 161 162 175 174 .00 186- CQDMEM2 162 21 162 163 176 175 .00 187- CQDMEM2 163 21 163 164 177 176 .00 188- CQDMEM2 164 21 164 165 178 177 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CQDMEM2 165 21 165 166 179 178 .00 190- CQDMEM2 166 21 166 167 180 179 .00 191- CQDMEM2 167 21 167 168 181 180 .00 192- CQDMEM2 168 21 168 169 182 181 .00 193- CQDMEM2 170 21 170 171 184 183 .00 194- CQDMEM2 171 21 171 172 185 184 .00 195- CQDMEM2 172 21 172 173 186 185 .00 196- CQDMEM2 173 21 173 174 187 186 .00 197- CQDMEM2 174 21 174 175 188 187 .00 198- CQDMEM2 175 21 175 176 189 188 .00 199- CQDMEM2 176 21 176 177 190 189 .00 200- CQDMEM2 177 21 177 178 191 190 .00 201- CQDMEM2 178 21 178 179 192 191 .00 202- CQDMEM2 179 21 179 180 193 192 .00 203- CQDMEM2 180 21 180 181 194 193 .00 204- CQDMEM2 181 21 181 182 195 194 .00 205- CQDMEM2 183 21 183 184 197 196 .00 206- CQDMEM2 184 21 184 185 198 197 .00 207- CQDMEM2 185 21 185 186 199 198 .00 208- CQDMEM2 186 21 186 187 200 199 .00 209- CQDMEM2 187 21 187 188 201 200 .00 210- CQDMEM2 188 21 188 189 202 201 .00 211- CQDMEM2 189 21 189 190 203 202 .00 212- CQDMEM2 190 21 190 191 204 203 .00 213- CQDMEM2 191 21 191 192 205 204 .00 214- CQDMEM2 192 21 192 193 206 205 .00 215- CQDMEM2 193 21 193 194 207 206 .00 216- CQDMEM2 194 21 194 195 208 207 .00 217- CQDMEM2 196 21 196 197 210 209 .00 218- CQDMEM2 197 21 197 198 211 210 .00 219- CQDMEM2 198 21 198 199 212 211 .00 220- CQDMEM2 199 21 199 200 213 212 .00 221- CQDMEM2 200 21 200 201 214 213 .00 222- CQDMEM2 201 21 201 202 215 214 .00 223- CQDMEM2 202 21 202 203 216 215 .00 224- CQDMEM2 203 21 203 204 217 216 .00 225- CQDMEM2 204 21 204 205 218 217 .00 226- CQDMEM2 205 21 205 206 219 218 .00 227- CQDMEM2 206 21 206 207 220 219 .00 228- CQDMEM2 207 21 207 208 221 220 .00 229- CQDMEM2 209 21 209 210 223 222 .00 230- CQDMEM2 210 21 210 211 224 223 .00 231- CQDMEM2 211 21 211 212 225 224 .00 232- CQDMEM2 212 21 212 213 226 225 .00 233- CQDMEM2 213 21 213 214 227 226 .00 234- CQDMEM2 214 21 214 215 228 227 .00 235- CQDMEM2 215 21 215 216 229 228 .00 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- CQDMEM2 216 21 216 217 230 229 .00 237- CQDMEM2 217 21 217 218 231 230 .00 238- CQDMEM2 218 21 218 219 232 231 .00 239- CQDMEM2 219 21 219 220 233 232 .00 240- CQDMEM2 220 21 220 221 234 233 .00 241- CQDMEM2 222 21 222 223 236 235 .00 242- CQDMEM2 223 21 223 224 237 236 .00 243- CQDMEM2 224 21 224 225 238 237 .00 244- CQDMEM2 225 21 225 226 239 238 .00 245- CQDMEM2 226 21 226 227 240 239 .00 246- CQDMEM2 227 21 227 228 241 240 .00 247- CQDMEM2 228 21 228 229 242 241 .00 248- CQDMEM2 229 21 229 230 243 242 .00 249- CQDMEM2 230 21 230 231 244 243 .00 250- CQDMEM2 231 21 231 232 245 244 .00 251- CQDMEM2 232 21 232 233 246 245 .00 252- CQDMEM2 233 21 233 234 247 246 .00 253- GRDSET 3456 254- GRID 1 .0 .0 .0 255- GRID 2 1.0 .0 .0 256- GRID 3 2.0 .0 .0 257- GRID 4 3.0 .0 .0 258- GRID 5 4.0 .0 .0 259- GRID 6 5.0 .0 .0 260- GRID 7 6.0 .0 .0 261- GRID 8 7.0 .0 .0 262- GRID 9 8.0 .0 .0 263- GRID 10 9.0 .0 .0 264- GRID 11 10.0 .0 .0 265- GRID 12 11.0 .0 .0 266- GRID 13 12.0 .0 .0 267- GRID 14 .0 1.0 .0 268- GRID 15 1.0 1.0 .0 269- GRID 16 2.0 1.0 .0 270- GRID 17 3.0 1.0 .0 271- GRID 18 4.0 1.0 .0 272- GRID 19 5.0 1.0 .0 273- GRID 20 6.0 1.0 .0 274- GRID 21 7.0 1.0 .0 275- GRID 22 8.0 1.0 .0 276- GRID 23 9.0 1.0 .0 277- GRID 24 10.0 1.0 .0 278- GRID 25 11.0 1.0 .0 279- GRID 26 12.0 1.0 .0 280- GRID 27 .0 2.0 .0 281- GRID 28 1.0 2.0 .0 282- GRID 29 2.0 2.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- GRID 30 3.0 2.0 .0 284- GRID 31 4.0 2.0 .0 285- GRID 32 5.0 2.0 .0 286- GRID 33 6.0 2.0 .0 287- GRID 34 7.0 2.0 .0 288- GRID 35 8.0 2.0 .0 289- GRID 36 9.0 2.0 .0 290- GRID 37 10.0 2.0 .0 291- GRID 38 11.0 2.0 .0 292- GRID 39 12.0 2.0 .0 293- GRID 40 .0 3.0 .0 294- GRID 41 1.0 3.0 .0 295- GRID 42 2.0 3.0 .0 296- GRID 43 3.0 3.0 .0 297- GRID 44 4.0 3.0 .0 298- GRID 45 5.0 3.0 .0 299- GRID 46 6.0 3.0 .0 300- GRID 47 7.0 3.0 .0 301- GRID 48 8.0 3.0 .0 302- GRID 49 9.0 3.0 .0 303- GRID 50 10.0 3.0 .0 304- GRID 51 11.0 3.0 .0 305- GRID 52 12.0 3.0 .0 306- GRID 53 .0 4.0 .0 307- GRID 54 1.0 4.0 .0 308- GRID 55 2.0 4.0 .0 309- GRID 56 3.0 4.0 .0 310- GRID 57 4.0 4.0 .0 311- GRID 58 5.0 4.0 .0 312- GRID 59 6.0 4.0 .0 313- GRID 60 7.0 4.0 .0 314- GRID 61 8.0 4.0 .0 315- GRID 62 9.0 4.0 .0 316- GRID 63 10.0 4.0 .0 317- GRID 64 11.0 4.0 .0 318- GRID 65 12.0 4.0 .0 319- GRID 66 .0 5.0 .0 320- GRID 67 1.0 5.0 .0 321- GRID 68 2.0 5.0 .0 322- GRID 69 3.0 5.0 .0 323- GRID 70 4.0 5.0 .0 324- GRID 71 5.0 5.0 .0 325- GRID 72 6.0 5.0 .0 326- GRID 73 7.0 5.0 .0 327- GRID 74 8.0 5.0 .0 328- GRID 75 9.0 5.0 .0 329- GRID 76 10.0 5.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- GRID 77 11.0 5.0 .0 331- GRID 78 12.0 5.0 .0 332- GRID 79 .0 6.0 .0 333- GRID 80 1.0 6.0 .0 334- GRID 81 2.0 6.0 .0 335- GRID 82 3.0 6.0 .0 336- GRID 83 4.0 6.0 .0 337- GRID 84 5.0 6.0 .0 338- GRID 85 6.0 6.0 .0 339- GRID 86 7.0 6.0 .0 340- GRID 87 8.0 6.0 .0 341- GRID 88 9.0 6.0 .0 342- GRID 89 10.0 6.0 .0 343- GRID 90 11.0 6.0 .0 344- GRID 91 12.0 6.0 .0 345- GRID 92 .0 7.0 .0 346- GRID 93 1.0 7.0 .0 347- GRID 94 2.0 7.0 .0 348- GRID 95 3.0 7.0 .0 349- GRID 96 4.0 7.0 .0 350- GRID 97 5.0 7.0 .0 351- GRID 98 6.0 7.0 .0 352- GRID 99 7.0 7.0 .0 353- GRID 100 8.0 7.0 .0 354- GRID 101 9.0 7.0 .0 355- GRID 102 10.0 7.0 .0 356- GRID 103 11.0 7.0 .0 357- GRID 104 12.0 7.0 .0 358- GRID 105 .0 8.0 .0 359- GRID 106 1.0 8.0 .0 360- GRID 107 2.0 8.0 .0 361- GRID 108 3.0 8.0 .0 362- GRID 109 4.0 8.0 .0 363- GRID 110 5.0 8.0 .0 364- GRID 111 6.0 8.0 .0 365- GRID 112 7.0 8.0 .0 366- GRID 113 8.0 8.0 .0 367- GRID 114 9.0 8.0 .0 368- GRID 115 10.0 8.0 .0 369- GRID 116 11.0 8.0 .0 370- GRID 117 12.0 8.0 .0 371- GRID 118 .0 9.0 .0 372- GRID 119 1.0 9.0 .0 373- GRID 120 2.0 9.0 .0 374- GRID 121 3.0 9.0 .0 375- GRID 122 4.0 9.0 .0 376- GRID 123 5.0 9.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- GRID 124 6.0 9.0 .0 378- GRID 125 7.0 9.0 .0 379- GRID 126 8.0 9.0 .0 380- GRID 127 9.0 9.0 .0 381- GRID 128 10.0 9.0 .0 382- GRID 129 11.0 9.0 .0 383- GRID 130 12.0 9.0 .0 384- GRID 131 .0 10.0 .0 385- GRID 132 1.0 10.0 .0 386- GRID 133 2.0 10.0 .0 387- GRID 134 3.0 10.0 .0 388- GRID 135 4.0 10.0 .0 389- GRID 136 5.0 10.0 .0 390- GRID 137 6.0 10.0 .0 391- GRID 138 7.0 10.0 .0 392- GRID 139 8.0 10.0 .0 393- GRID 140 9.0 10.0 .0 394- GRID 141 10.0 10.0 .0 395- GRID 142 11.0 10.0 .0 396- GRID 143 12.0 10.0 .0 397- GRID 144 .0 11.0 .0 398- GRID 145 1.0 11.0 .0 399- GRID 146 2.0 11.0 .0 400- GRID 147 3.0 11.0 .0 401- GRID 148 4.0 11.0 .0 402- GRID 149 5.0 11.0 .0 403- GRID 150 6.0 11.0 .0 404- GRID 151 7.0 11.0 .0 405- GRID 152 8.0 11.0 .0 406- GRID 153 9.0 11.0 .0 407- GRID 154 10.0 11.0 .0 408- GRID 155 11.0 11.0 .0 409- GRID 156 12.0 11.0 .0 410- GRID 157 .0 12.0 .0 411- GRID 158 1.0 12.0 .0 412- GRID 159 2.0 12.0 .0 413- GRID 160 3.0 12.0 .0 414- GRID 161 4.0 12.0 .0 415- GRID 162 5.0 12.0 .0 416- GRID 163 6.0 12.0 .0 417- GRID 164 7.0 12.0 .0 418- GRID 165 8.0 12.0 .0 419- GRID 166 9.0 12.0 .0 420- GRID 167 10.0 12.0 .0 421- GRID 168 11.0 12.0 .0 422- GRID 169 12.0 12.0 .0 423- GRID 170 .0 13.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- GRID 171 1.0 13.0 .0 425- GRID 172 2.0 13.0 .0 426- GRID 173 3.0 13.0 .0 427- GRID 174 4.0 13.0 .0 428- GRID 175 5.0 13.0 .0 429- GRID 176 6.0 13.0 .0 430- GRID 177 7.0 13.0 .0 431- GRID 178 8.0 13.0 .0 432- GRID 179 9.0 13.0 .0 433- GRID 180 10.0 13.0 .0 434- GRID 181 11.0 13.0 .0 435- GRID 182 12.0 13.0 .0 436- GRID 183 .0 14.0 .0 437- GRID 184 1.0 14.0 .0 438- GRID 185 2.0 14.0 .0 439- GRID 186 3.0 14.0 .0 440- GRID 187 4.0 14.0 .0 441- GRID 188 5.0 14.0 .0 442- GRID 189 6.0 14.0 .0 443- GRID 190 7.0 14.0 .0 444- GRID 191 8.0 14.0 .0 445- GRID 192 9.0 14.0 .0 446- GRID 193 10.0 14.0 .0 447- GRID 194 11.0 14.0 .0 448- GRID 195 12.0 14.0 .0 449- GRID 196 .0 15.0 .0 450- GRID 197 1.0 15.0 .0 451- GRID 198 2.0 15.0 .0 452- GRID 199 3.0 15.0 .0 453- GRID 200 4.0 15.0 .0 454- GRID 201 5.0 15.0 .0 455- GRID 202 6.0 15.0 .0 456- GRID 203 7.0 15.0 .0 457- GRID 204 8.0 15.0 .0 458- GRID 205 9.0 15.0 .0 459- GRID 206 10.0 15.0 .0 460- GRID 207 11.0 15.0 .0 461- GRID 208 12.0 15.0 .0 462- GRID 209 .0 16.0 .0 463- GRID 210 1.0 16.0 .0 464- GRID 211 2.0 16.0 .0 465- GRID 212 3.0 16.0 .0 466- GRID 213 4.0 16.0 .0 467- GRID 214 5.0 16.0 .0 468- GRID 215 6.0 16.0 .0 469- GRID 216 7.0 16.0 .0 470- GRID 217 8.0 16.0 .0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- GRID 218 9.0 16.0 .0 472- GRID 219 10.0 16.0 .0 473- GRID 220 11.0 16.0 .0 474- GRID 221 12.0 16.0 .0 475- GRID 222 .0 17.0 .0 476- GRID 223 1.0 17.0 .0 477- GRID 224 2.0 17.0 .0 478- GRID 225 3.0 17.0 .0 479- GRID 226 4.0 17.0 .0 480- GRID 227 5.0 17.0 .0 481- GRID 228 6.0 17.0 .0 482- GRID 229 7.0 17.0 .0 483- GRID 230 8.0 17.0 .0 484- GRID 231 9.0 17.0 .0 485- GRID 232 10.0 17.0 .0 486- GRID 233 11.0 17.0 .0 487- GRID 234 12.0 17.0 .0 488- GRID 235 .0 18.0 .0 489- GRID 236 1.0 18.0 .0 490- GRID 237 2.0 18.0 .0 491- GRID 238 3.0 18.0 .0 492- GRID 239 4.0 18.0 .0 493- GRID 240 5.0 18.0 .0 494- GRID 241 6.0 18.0 .0 495- GRID 242 7.0 18.0 .0 496- GRID 243 8.0 18.0 .0 497- GRID 244 9.0 18.0 .0 498- GRID 245 10.0 18.0 .0 499- GRID 246 11.0 18.0 .0 500- GRID 247 12.0 18.0 .0 501- MAT1 75 10.400+6 .3 12.700-675. 502- MATT1 75 100 503- PARAM IRES 1 504- PQDMEM2 21 75 .25 505- SPC1 1 1 1 14 27 40 53 66 CSPC-A 506- +SPC-A 79 92 105 118 131 144 157 170 CSPC-B 507- +SPC-B 183 196 209 222 235 508- SPC1 1 2 1 2 3 4 5 6 CSPC-C 509- +SPC-C 7 8 9 10 11 12 13 510- TABLEM1 100 +TM1 511- +TM1 80. 10.4+6 150. 10.15+6 200. 9.84+6 250. 9.51+6 +TM2 512- +TM2 300. 9.15+6 ENDT 513- TEMP 1 1 245.000 2 232.500 3 220.000 514- TEMP 1 4 207.500 5 195.000 6 182.500 515- TEMP 1 7 170.000 8 157.500 9 145.000 516- TEMP 1 10 132.500 11 120.000 12 107.500 517- TEMP 1 13 95.000 14 245.000 15 232.500 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- TEMP 1 16 220.000 17 207.500 18 195.000 519- TEMP 1 19 182.500 20 170.000 21 157.500 520- TEMP 1 22 145.000 23 132.500 24 120.000 521- TEMP 1 25 107.500 26 95.000 27 245.000 522- TEMP 1 28 232.500 29 220.000 30 207.500 523- TEMP 1 31 195.000 32 182.500 33 170.000 524- TEMP 1 34 157.500 35 145.000 36 132.500 525- TEMP 1 37 120.000 38 107.500 39 95.000 526- TEMP 1 40 245.000 41 232.500 42 220.000 527- TEMP 1 43 207.500 44 195.000 45 182.500 528- TEMP 1 46 170.000 47 157.500 48 145.000 529- TEMP 1 49 132.500 50 120.000 51 107.500 530- TEMP 1 52 95.000 53 245.000 54 232.500 531- TEMP 1 55 220.000 56 207.500 57 195.000 532- TEMP 1 58 182.500 59 170.000 60 157.500 533- TEMP 1 61 145.000 62 132.500 63 120.000 534- TEMP 1 64 107.500 65 95.000 66 245.000 535- TEMP 1 67 232.500 68 220.000 69 207.500 536- TEMP 1 70 195.000 71 182.500 72 170.000 537- TEMP 1 73 157.500 74 145.000 75 132.500 538- TEMP 1 76 120.000 77 107.500 78 95.000 539- TEMP 1 79 245.000 80 232.500 81 220.000 540- TEMP 1 82 207.500 83 195.000 84 182.500 541- TEMP 1 85 170.000 86 157.500 87 145.000 542- TEMP 1 88 132.500 89 120.000 90 107.500 543- TEMP 1 91 95.000 92 245.000 93 232.500 544- TEMP 1 94 220.000 95 207.500 96 195.000 545- TEMP 1 97 182.500 98 170.000 99 157.500 546- TEMP 1 100 145.000 101 132.500 102 120.000 547- TEMP 1 103 107.500 104 95.000 105 245.000 548- TEMP 1 106 232.500 107 220.000 108 207.500 549- TEMP 1 109 195.000 110 182.500 111 170.000 550- TEMP 1 112 157.500 113 145.000 114 132.500 551- TEMP 1 115 120.000 116 107.500 117 95.000 552- TEMP 1 118 245.000 119 232.500 120 220.000 553- TEMP 1 121 207.500 122 195.000 123 182.500 554- TEMP 1 124 170.000 125 157.500 126 145.000 555- TEMP 1 127 132.500 128 120.000 129 107.500 556- TEMP 1 130 95.000 131 245.000 132 232.500 557- TEMP 1 133 220.000 134 207.500 135 195.000 558- TEMP 1 136 182.500 137 170.000 138 157.500 559- TEMP 1 139 145.000 140 132.500 141 120.000 560- TEMP 1 142 107.500 143 95.000 144 245.000 561- TEMP 1 145 232.500 146 220.000 147 207.500 562- TEMP 1 148 195.000 149 182.500 150 170.000 563- TEMP 1 151 157.500 152 145.000 153 132.500 564- TEMP 1 154 120.000 155 107.500 156 95.000 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 565- TEMP 1 157 245.000 158 232.500 159 220.000 566- TEMP 1 160 207.500 161 195.000 162 182.500 567- TEMP 1 163 170.000 164 157.500 165 145.000 568- TEMP 1 166 132.500 167 120.000 168 107.500 569- TEMP 1 169 95.000 170 245.000 171 232.500 570- TEMP 1 172 220.000 173 207.500 174 195.000 571- TEMP 1 175 182.500 176 170.000 177 157.500 572- TEMP 1 178 145.000 179 132.500 180 120.000 573- TEMP 1 181 107.500 182 95.000 183 245.000 574- TEMP 1 184 232.500 185 220.000 186 207.500 575- TEMP 1 187 195.000 188 182.500 189 170.000 576- TEMP 1 190 157.500 191 145.000 192 132.500 577- TEMP 1 193 120.000 194 107.500 195 95.000 578- TEMP 1 196 245.000 197 232.500 198 220.000 579- TEMP 1 199 207.500 200 195.000 201 182.500 580- TEMP 1 202 170.000 203 157.500 204 145.000 581- TEMP 1 205 132.500 206 120.000 207 107.500 582- TEMP 1 208 95.000 209 245.000 210 232.500 583- TEMP 1 211 220.000 212 207.500 213 195.000 584- TEMP 1 214 182.500 215 170.000 216 157.500 585- TEMP 1 217 145.000 218 132.500 219 120.000 586- TEMP 1 220 107.500 221 95.000 222 245.000 587- TEMP 1 223 232.500 224 220.000 225 207.500 588- TEMP 1 226 195.000 227 182.500 228 170.000 589- TEMP 1 229 157.500 230 145.000 231 132.500 590- TEMP 1 232 120.000 233 107.500 234 95.000 591- TEMP 1 235 245.000 236 232.500 237 220.000 592- TEMP 1 238 207.500 239 195.000 240 182.500 593- TEMP 1 241 170.000 242 157.500 243 145.000 594- TEMP 1 244 132.500 245 120.000 246 107.500 595- TEMP 1 247 95.000 ENDDATA 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 15 PROFILE 3517 MAX WAVEFRONT 15 AVG WAVEFRONT 14.239 RMS WAVEFRONT 14.436 RMS BANDWIDTH 14.534 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 23 PROFILE 3622 MAX WAVEFRONT 21 AVG WAVEFRONT 14.664 RMS WAVEFRONT 15.039 RMS BANDWIDTH 15.423 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 15 15 PROFILE (P) 3517 3517 MAXIMUM WAVEFRONT (C-MAX) 15 15 AVERAGE WAVEFRONT (C-AVG) 14.239 14.239 RMS WAVEFRONT (C-RMS) 14.436 14.436 RMS BANDWITCH (B-RMS) 14.534 14.534 NUMBER OF GRID POINTS (N) 247 NUMBER OF ELEMENTS (NON-RIGID) 216 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 894 MATRIX DENSITY, PERCENT 3.336 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM2 ELEMENTS (ELEMENT TYPE 63) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.0646110E-16 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 2-T1). 2 T1 6.82121E-13 3 T1 -1.25056E-12 4 T1 -1.13687E-13 5 T1 4.88853E-12 6 T1 -3.75167E-12 7 T1 2.84217E-12 8 T1 3.41061E-13 9 T1 -2.84217E-12 10 T1 -2.44427E-12 11 T1 -4.20641E-12 12 T1 -5.91172E-12 13 T1 -2.19558E-12 14 T2 -2.27374E-13 15 T1 9.09495E-13 15 T2 -2.04636E-12 16 T1 1.81899E-12 16 T2 -5.22959E-12 17 T1 -2.95586E-12 17 T2 1.59162E-12 18 T1 -1.13687E-12 18 T2 -9.09495E-13 19 T1 3.41061E-12 19 T2 4.54747E-12 20 T1 -7.95808E-12 20 T2 -1.36424E-12 21 T1 8.86757E-12 21 T2 -9.09495E-13 22 T1 -1.09139E-11 22 T2 -2.72848E-12 23 T1 7.27596E-12 23 T2 -2.95586E-12 24 T1 -1.58025E-11 24 T2 -4.54747E-13 25 T1 3.06954E-12 25 T2 -3.18323E-12 26 T1 4.43379E-12 26 T2 2.27374E-12 27 T2 3.18323E-12 28 T2 4.54747E-13 29 T1 -5.22959E-12 29 T2 2.72848E-12 30 T1 -5.22959E-12 30 T2 -5.00222E-12 31 T1 -5.22959E-12 31 T2 -4.09273E-12 32 T1 -5.68434E-12 32 T2 3.18323E-12 33 T1 -6.82121E-13 33 T2 -4.54747E-12 34 T1 6.59384E-12 34 T2 -1.40972E-11 35 T1 1.56888E-11 35 T2 3.86535E-12 36 T1 -1.04592E-11 36 T2 -2.27374E-12 37 T1 2.27374E-12 37 T2 -4.09273E-12 38 T1 -2.27374E-13 38 T2 5.22959E-12 39 T1 1.86162E-12 39 T2 9.09495E-13 40 T2 -9.09495E-13 41 T1 2.72848E-12 41 T2 2.27374E-12 42 T1 -2.72848E-12 42 T2 -1.31877E-11 43 T1 9.09495E-13 43 T2 -1.81899E-12 44 T1 9.09495E-12 44 T2 -9.54969E-12 45 T1 -3.18323E-12 45 T2 2.27374E-12 46 T1 1.36424E-12 46 T2 8.64020E-12 47 T1 -5.45697E-12 47 T2 1.04592E-11 48 T1 1.31877E-11 48 T2 -3.18323E-12 49 T1 -1.15961E-11 49 T2 -3.18323E-12 50 T1 -6.36646E-12 50 T2 8.18545E-12 51 T1 -4.54747E-12 52 T1 -5.94014E-12 52 T2 -1.81899E-12 53 T2 -1.81899E-12 54 T1 -9.09495E-13 54 T2 5.00222E-12 55 T1 -4.54747E-12 55 T2 1.09139E-11 56 T1 1.36424E-12 56 T2 -8.18545E-12 57 T1 -7.73070E-12 57 T2 1.81899E-12 58 T1 -3.63798E-12 58 T2 5.91172E-12 59 T1 9.54969E-12 59 T2 -5.00222E-12 60 T1 -1.27329E-11 60 T2 -4.54747E-13 61 T1 -5.00222E-12 61 T2 -7.73070E-12 62 T1 2.72848E-12 62 T2 5.45697E-12 63 T1 4.09273E-12 63 T2 8.18545E-12 64 T1 8.64020E-12 64 T2 -8.64020E-12 65 T1 -1.59162E-12 65 T2 -1.81899E-12 66 T2 -3.63798E-12 67 T1 2.72848E-12 67 T2 9.09495E-13 68 T2 1.18234E-11 69 T1 -3.18323E-12 69 T2 1.00044E-11 70 T1 4.54747E-12 70 T2 -8.18545E-12 71 T1 -9.54969E-12 71 T2 -1.00044E-11 72 T1 1.31877E-11 72 T2 -4.54747E-12 73 T1 -8.18545E-12 73 T2 2.27374E-12 74 T1 4.54747E-13 74 T2 1.40972E-11 75 T1 1.59162E-11 75 T2 -3.18323E-12 76 T1 9.54969E-12 76 T2 -3.18323E-12 77 T1 1.81899E-12 77 T2 -5.00222E-12 78 T1 -1.36424E-12 78 T2 6.36646E-12 79 T2 5.45697E-12 80 T1 3.63798E-12 80 T2 -1.36424E-11 81 T1 3.63798E-12 81 T2 -5.45697E-12 82 T1 9.09495E-13 82 T2 -5.45697E-12 83 T1 5.91172E-12 83 T2 -7.27596E-12 84 T1 7.27596E-12 84 T2 -1.54614E-11 85 T1 -1.27329E-11 85 T2 4.54747E-12 86 T1 -6.36646E-12 86 T2 7.27596E-12 87 T1 1.63709E-11 87 T2 3.63798E-12 88 T1 -2.72848E-12 88 T2 5.45697E-12 89 T1 3.18323E-12 89 T2 1.54614E-11 90 T1 -8.64020E-12 90 T2 1.45519E-11 91 T1 6.70752E-12 91 T2 -9.09495E-13 92 T2 -3.63798E-12 93 T1 9.09495E-13 93 T2 1.27329E-11 94 T1 1.81899E-12 94 T2 -2.72848E-12 95 T1 6.36646E-12 96 T1 -4.54747E-12 96 T2 1.27329E-11 97 T2 -9.09495E-12 98 T1 1.18234E-11 98 T2 -1.18234E-11 99 T1 2.72848E-12 99 T2 -1.09139E-11 100 T1 4.54747E-13 100 T2 7.27596E-12 101 T1 -6.36646E-12 101 T2 -1.81899E-11 102 T1 3.63798E-12 102 T2 -2.72848E-12 103 T1 -7.73070E-12 103 T2 -1.81899E-12 104 T1 1.87583E-12 104 T2 -9.09495E-13 105 T2 -2.72848E-12 106 T1 -6.36646E-12 106 T2 -2.72848E-12 107 T1 2.72848E-12 107 T2 -7.27596E-12 108 T1 5.45697E-12 108 T2 1.63709E-11 109 T1 1.81899E-12 109 T2 7.27596E-12 110 T1 -1.00044E-11 110 T2 1.27329E-11 111 T1 -8.18545E-12 111 T2 -2.72848E-12 112 T1 1.27329E-11 112 T2 -1.81899E-12 113 T1 1.81899E-12 113 T2 -5.45697E-12 114 T1 -2.09184E-11 114 T2 4.54747E-12 115 T1 -1.09139E-11 115 T2 9.09495E-13 116 T1 1.54614E-11 116 T2 1.00044E-11 117 T1 -1.59162E-11 117 T2 9.09495E-13 118 T2 9.09495E-12 119 T1 2.72848E-12 119 T2 -5.45697E-12 120 T1 6.36646E-12 120 T2 -4.54747E-12 121 T2 -9.09495E-13 122 T1 -2.72848E-12 122 T2 9.09495E-13 123 T2 -1.72804E-11 124 T1 -8.18545E-12 125 T1 1.72804E-11 125 T2 7.27596E-12 126 T1 6.36646E-12 126 T2 3.63798E-12 127 T1 -5.45697E-12 127 T2 -3.63798E-12 128 T1 3.63798E-12 128 T2 5.45697E-12 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 129 T1 1.45519E-11 129 T2 -1.81899E-12 130 T1 -6.59384E-12 131 T2 5.45697E-12 132 T1 -1.81899E-12 132 T2 -5.45697E-12 133 T1 6.36646E-12 133 T2 -3.45608E-11 134 T1 1.81899E-12 134 T2 1.27329E-11 135 T1 -3.63798E-12 135 T2 -1.45519E-11 136 T1 -1.63709E-11 136 T2 -1.00044E-11 137 T1 6.36646E-12 137 T2 -1.36424E-11 138 T1 -4.54747E-12 138 T2 7.27596E-12 139 T1 2.72848E-12 139 T2 2.27374E-11 140 T1 7.27596E-12 140 T2 2.27374E-11 141 T1 3.63798E-12 141 T2 -6.36646E-12 142 T1 -1.36424E-11 142 T2 2.72848E-12 143 T1 1.23919E-11 143 T2 -5.45697E-12 144 T2 1.81899E-12 145 T1 -5.45697E-12 145 T2 1.45519E-11 146 T1 1.81899E-12 146 T2 1.27329E-11 147 T1 8.18545E-12 147 T2 2.91038E-11 148 T2 -5.45697E-12 149 T1 2.72848E-12 149 T2 1.45519E-11 150 T1 -6.36646E-12 150 T2 -1.81899E-12 151 T1 1.00044E-11 151 T2 -5.45697E-12 152 T1 -1.81899E-11 152 T2 -2.00089E-11 153 T1 -8.18545E-12 153 T2 -8.18545E-12 154 T1 -2.36469E-11 154 T2 -1.00044E-11 155 T1 1.81899E-11 155 T2 -2.63753E-11 156 T1 2.04636E-12 157 T2 -3.63798E-12 158 T1 3.63798E-12 158 T2 9.09495E-12 159 T1 -1.81899E-12 159 T2 -5.45697E-12 160 T1 3.63798E-12 160 T2 -1.09139E-11 161 T1 -9.09495E-12 161 T2 -1.27329E-11 162 T1 5.45697E-12 162 T2 -3.63798E-11 163 T1 6.36646E-12 163 T2 1.81899E-11 164 T1 -1.18234E-11 164 T2 -5.45697E-12 165 T1 9.09495E-12 165 T2 -6.36646E-12 166 T1 1.72804E-11 166 T2 -1.09139E-11 167 T1 -9.09495E-13 167 T2 -2.72848E-12 168 T1 -7.27596E-12 168 T2 1.81899E-12 169 T1 -5.05906E-12 169 T2 1.63709E-11 171 T1 1.81899E-12 171 T2 -3.63798E-12 172 T1 1.81899E-12 172 T2 -1.45519E-11 173 T1 3.63798E-12 173 T2 1.63709E-11 174 T1 1.09139E-11 174 T2 2.72848E-11 175 T1 8.18545E-12 175 T2 1.81899E-12 176 T1 3.63798E-12 176 T2 3.63798E-12 177 T1 5.45697E-12 177 T2 2.18279E-11 178 T1 -7.27596E-12 178 T2 2.91038E-11 179 T2 -9.09495E-12 180 T1 7.27596E-12 180 T2 8.18545E-12 181 T1 -9.09495E-13 181 T2 6.36646E-12 182 T1 -9.03810E-12 182 T2 1.81899E-12 183 T2 5.45697E-12 184 T1 -1.81899E-12 184 T2 1.81899E-12 185 T1 -3.63798E-12 185 T2 3.63798E-12 186 T1 -3.63798E-12 186 T2 -2.00089E-11 187 T1 3.63798E-12 187 T2 -3.81988E-11 188 T1 -1.63709E-11 188 T2 9.09495E-12 189 T1 1.36424E-11 189 T2 -9.09495E-12 190 T1 -9.09495E-13 190 T2 2.72848E-11 191 T1 7.27596E-12 191 T2 3.27418E-11 192 T1 1.00044E-11 192 T2 -1.81899E-12 193 T1 -1.00044E-11 193 T2 2.72848E-11 194 T1 1.54614E-11 194 T2 -5.45697E-12 195 T1 -2.38742E-12 195 T2 7.27596E-12 196 T2 2.18279E-11 197 T1 -1.81899E-12 197 T2 -2.18279E-11 198 T2 3.63798E-11 199 T1 -7.27596E-12 199 T2 -6.18456E-11 200 T1 1.09139E-11 200 T2 3.09228E-11 201 T1 1.81899E-12 201 T2 4.36557E-11 202 T1 5.45697E-12 202 T2 -3.27418E-11 203 T1 -8.18545E-12 203 T2 1.81899E-12 204 T1 1.18234E-11 204 T2 -2.00089E-11 205 T1 -9.09495E-12 205 T2 -1.81899E-12 206 T1 1.45519E-11 206 T2 -2.72848E-12 207 T1 -1.81899E-11 207 T2 -2.72848E-12 208 T1 -2.04636E-12 208 T2 1.09139E-11 209 T2 -2.72848E-11 210 T1 -3.63798E-12 210 T2 -7.27596E-12 211 T1 -7.27596E-12 211 T2 -3.81988E-11 212 T1 1.81899E-12 212 T2 2.00089E-11 213 T1 1.09139E-11 213 T2 1.45519E-11 214 T1 -1.27329E-11 214 T2 7.27596E-12 215 T2 1.45519E-11 216 T1 1.81899E-12 216 T2 2.36469E-11 217 T1 1.45519E-11 217 T2 5.45697E-12 218 T1 8.18545E-12 218 T2 -2.36469E-11 219 T1 6.36646E-12 219 T2 7.27596E-12 220 T1 1.81899E-12 220 T2 -4.54747E-12 221 T1 3.35376E-12 221 T2 -7.27596E-12 222 T2 -2.36469E-11 223 T1 -1.81899E-12 223 T2 3.63798E-12 224 T1 1.45519E-11 224 T2 1.63709E-11 225 T1 -5.45697E-12 225 T2 1.45519E-11 226 T1 -1.81899E-12 226 T2 -1.27329E-11 227 T1 -1.81899E-11 227 T2 -5.45697E-12 228 T1 9.09495E-12 228 T2 1.45519E-11 229 T1 -1.63709E-11 229 T2 1.45519E-11 230 T1 1.09139E-11 230 T2 5.45697E-12 231 T1 -1.81899E-11 231 T2 1.81899E-12 232 T1 1.81899E-11 232 T2 3.63798E-12 233 T1 -8.18545E-12 233 T2 -2.27374E-11 234 T1 -7.38964E-13 234 T2 -1.81899E-12 235 T2 9.54969E-12 236 T1 1.06866E-11 236 T2 -7.73070E-12 237 T1 6.13909E-12 237 T2 -9.09495E-13 238 T1 6.82121E-13 238 T2 -1.93268E-11 239 T1 5.91172E-12 239 T2 1.72804E-11 240 T1 1.47793E-12 240 T2 -4.54747E-13 241 T1 -1.93268E-12 241 T2 -4.09273E-12 242 T1 -5.68434E-12 243 T1 1.93268E-12 243 T2 -3.63798E-12 244 T1 -8.98126E-12 244 T2 -9.09495E-12 245 T1 -3.29692E-12 245 T2 -1.34150E-11 246 T1 1.19371E-12 246 T2 -7.95808E-12 247 T1 9.09495E-13 247 T2 3.63798E-12 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 2.156407E-03 0.0 0.0 0.0 0.0 0.0 3 G 4.114174E-03 0.0 0.0 0.0 0.0 0.0 4 G 5.879417E-03 0.0 0.0 0.0 0.0 0.0 5 G 7.457555E-03 0.0 0.0 0.0 0.0 0.0 6 G 8.852961E-03 0.0 0.0 0.0 0.0 0.0 7 G 1.006878E-02 0.0 0.0 0.0 0.0 0.0 8 G 1.110664E-02 0.0 0.0 0.0 0.0 0.0 9 G 1.196643E-02 0.0 0.0 0.0 0.0 0.0 10 G 1.264600E-02 0.0 0.0 0.0 0.0 0.0 11 G 1.314135E-02 0.0 0.0 0.0 0.0 0.0 12 G 1.344636E-02 0.0 0.0 0.0 0.0 0.0 13 G 1.355276E-02 0.0 0.0 0.0 0.0 0.0 79 G 0.0 8.291123E-03 0.0 0.0 0.0 0.0 80 G 2.120345E-03 8.261741E-03 0.0 0.0 0.0 0.0 81 G 4.043902E-03 8.174819E-03 0.0 0.0 0.0 0.0 82 G 5.778396E-03 8.034296E-03 0.0 0.0 0.0 0.0 83 G 7.330607E-03 7.847019E-03 0.0 0.0 0.0 0.0 84 G 8.705972E-03 7.622530E-03 0.0 0.0 0.0 0.0 85 G 9.908432E-03 7.372790E-03 0.0 0.0 0.0 0.0 86 G 1.094021E-02 7.111868E-03 0.0 0.0 0.0 0.0 87 G 1.180166E-02 6.855689E-03 0.0 0.0 0.0 0.0 88 G 1.249108E-02 6.621791E-03 0.0 0.0 0.0 0.0 89 G 1.300488E-02 6.429093E-03 0.0 0.0 0.0 0.0 90 G 1.333713E-02 6.297742E-03 0.0 0.0 0.0 0.0 91 G 1.347928E-02 6.248869E-03 0.0 0.0 0.0 0.0 157 G 0.0 1.758395E-02 0.0 0.0 0.0 0.0 158 G 2.144370E-03 1.749425E-02 0.0 0.0 0.0 0.0 159 G 4.097088E-03 1.723065E-02 0.0 0.0 0.0 0.0 160 G 5.870120E-03 1.680914E-02 0.0 0.0 0.0 0.0 161 G 7.471865E-03 1.625414E-02 0.0 0.0 0.0 0.0 162 G 8.906924E-03 1.559553E-02 0.0 0.0 0.0 0.0 163 G 1.017677E-02 1.486582E-02 0.0 0.0 0.0 0.0 164 G 1.128071E-02 1.409827E-02 0.0 0.0 0.0 0.0 165 G 1.221691E-02 1.332590E-02 0.0 0.0 0.0 0.0 166 G 1.298326E-02 1.258134E-02 0.0 0.0 0.0 0.0 167 G 1.357814E-02 1.189757E-02 0.0 0.0 0.0 0.0 168 G 1.400109E-02 1.131006E-02 0.0 0.0 0.0 0.0 169 G 1.425288E-02 1.086025E-02 0.0 0.0 0.0 0.0 235 G 0.0 2.829840E-02 0.0 0.0 0.0 0.0 236 G 3.147562E-03 2.799658E-02 0.0 0.0 0.0 0.0 237 G 6.012617E-03 2.722094E-02 0.0 0.0 0.0 0.0 238 G 8.571308E-03 2.615281E-02 0.0 0.0 0.0 0.0 239 G 1.082678E-02 2.488063E-02 0.0 0.0 0.0 0.0 240 G 1.278716E-02 2.346832E-02 0.0 0.0 0.0 0.0 241 G 1.446191E-02 2.196615E-02 0.0 0.0 0.0 0.0 242 G 1.586233E-02 2.041638E-02 0.0 0.0 0.0 0.0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 243 G 1.700226E-02 1.885547E-02 0.0 0.0 0.0 0.0 244 G 1.789913E-02 1.731442E-02 0.0 0.0 0.0 0.0 245 G 1.857386E-02 1.581857E-02 0.0 0.0 0.0 0.0 246 G 1.905252E-02 1.438263E-02 0.0 0.0 0.0 0.0 247 G 1.936602E-02 1.304365E-02 0.0 0.0 0.0 0.0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.559223E+03 -3.559223E+03 0.0 0.0 0.0 0.0 2 G 2.433977E+02 -6.875048E+03 0.0 0.0 0.0 0.0 3 G 2.480757E+02 -6.383575E+03 0.0 0.0 0.0 0.0 4 G 2.527524E+02 -5.882747E+03 0.0 0.0 0.0 0.0 5 G 2.585908E+02 -5.371403E+03 0.0 0.0 0.0 0.0 6 G 2.631287E+02 -4.849684E+03 0.0 0.0 0.0 0.0 7 G 2.675220E+02 -4.319033E+03 0.0 0.0 0.0 0.0 8 G 2.719160E+02 -3.779595E+03 0.0 0.0 0.0 0.0 9 G 2.805852E+02 -3.227094E+03 0.0 0.0 0.0 0.0 10 G 2.836848E+02 -2.662824E+03 0.0 0.0 0.0 0.0 11 G 2.862157E+02 -2.092923E+03 0.0 0.0 0.0 0.0 12 G 2.887468E+02 -1.517961E+03 0.0 0.0 0.0 0.0 13 G 6.146071E+02 -6.146071E+02 0.0 0.0 0.0 0.0 14 G -7.118446E+03 0.0 0.0 0.0 0.0 0.0 15 G 4.867954E+02 -2.441406E-04 0.0 0.0 0.0 0.0 16 G 4.961514E+02 0.0 0.0 0.0 0.0 0.0 17 G 5.055049E+02 0.0 0.0 0.0 0.0 0.0 18 G 5.171816E+02 0.0 0.0 0.0 0.0 0.0 19 G 5.262573E+02 -2.441406E-04 0.0 0.0 0.0 0.0 20 G 5.350439E+02 0.0 0.0 0.0 0.0 0.0 21 G 5.438320E+02 0.0 0.0 0.0 0.0 0.0 22 G 5.611704E+02 0.0 0.0 0.0 0.0 0.0 23 G 5.673696E+02 0.0 0.0 0.0 0.0 0.0 24 G 5.724314E+02 -1.220703E-04 0.0 0.0 0.0 0.0 25 G 5.774937E+02 0.0 0.0 0.0 0.0 0.0 26 G 1.229214E+03 0.0 0.0 0.0 0.0 0.0 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) ELEMENT STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.498871E+03 -7.429309E+03 -1.086743E+01 -0.1050 -1.498851E+03 -7.429328E+03 2.965239E+03 2 -1.455730E+03 -6.021971E+03 -3.215234E+01 -0.4034 -1.455504E+03 -6.022197E+03 2.283346E+03 3 -1.371328E+03 -4.654646E+03 -5.199854E+01 -0.9071 -1.370505E+03 -4.655470E+03 1.642482E+03 4 -1.249607E+03 -3.322734E+03 -6.933594E+01 -1.9134 -1.247291E+03 -3.325051E+03 1.038880E+03 5 -1.096639E+03 -2.016912E+03 -8.314844E+01 -5.1215 -1.089186E+03 -2.024364E+03 4.675890E+02 6 -9.203945E+02 -7.265059E+02 -9.250977E+01 -68.1704 -6.894492E+02 -9.574512E+02 1.340010E+02 7 -7.306475E+02 5.647627E+02 -9.658594E+01 -85.7593 5.719246E+02 -7.378093E+02 6.548669E+02 8 -5.386826E+02 1.876956E+03 -9.464258E+01 -87.7598 1.880658E+03 -5.423849E+02 1.211522E+03 9 -3.571982E+02 3.223775E+03 -8.608594E+01 -88.6237 3.225844E+03 -3.592665E+02 1.792555E+03 10 -1.998145E+02 4.631841E+03 -7.050195E+01 -89.1642 4.632869E+03 -2.008430E+02 2.416856E+03 11 -8.087012E+01 6.129444E+03 -4.766406E+01 -89.5603 6.129810E+03 -8.123584E+01 3.105523E+03 12 -1.484033E+01 7.745253E+03 -1.765820E+01 -89.8696 7.745294E+03 -1.488062E+01 3.880087E+03 15 -1.465977E+03 -5.980547E+03 -9.668311E+01 -1.2263 -1.463907E+03 -5.982616E+03 2.259355E+03 20 -7.363389E+02 5.670596E+02 -2.903594E+02 -77.9925 6.288170E+02 -7.980963E+02 7.134567E+02 28 -1.484842E+03 -5.897426E+03 -1.618750E+02 -2.0981 -1.478911E+03 -5.903356E+03 2.212222E+03 33 -7.466670E+02 5.717119E+02 -4.858418E+02 -71.8044 7.314077E+02 -9.063627E+02 8.188852E+02 41 -1.508990E+03 -5.772090E+03 -2.281289E+02 -3.0544 -1.496817E+03 -5.784263E+03 2.143723E+03 46 -7.594365E+02 5.787705E+02 -6.837803E+02 -67.1892 8.663566E+02 -1.047023E+03 9.566896E+02 54 -1.533277E+03 -5.603797E+03 -2.957871E+02 -4.1345 -1.511896E+03 -5.625178E+03 2.056641E+03 59 -7.711943E+02 5.882334E+02 -8.843877E+02 -63.7724 1.023935E+03 -1.206896E+03 1.115416E+03 67 -1.550566E+03 -5.391652E+03 -3.651221E+02 -5.3821 -1.516167E+03 -5.426052E+03 1.954942E+03 72 -7.770576E+02 5.998975E+02 -1.087007E+03 -61.1745 1.198116E+03 -1.375276E+03 1.286696E+03 80 -1.551434E+03 -5.134723E+03 -4.363340E+02 -6.8436 -1.499067E+03 -5.187089E+03 1.844011E+03 85 -7.704834E+02 6.131689E+02 -1.289928E+03 -59.1030 1.385084E+03 -1.542399E+03 1.463741E+03 93 -1.523863E+03 -4.832016E+03 -5.095449E+02 -8.5608 -1.447158E+03 -4.908721E+03 1.730781E+03 98 -7.430420E+02 6.267979E+02 -1.490000E+03 -57.3436 1.581760E+03 -1.698005E+03 1.639882E+03 106 -1.452711E+03 -4.482688E+03 -5.848027E+02 -10.5536 -1.343758E+03 -4.591640E+03 1.623941E+03 111 -6.842646E+02 6.385713E+02 -1.682326E+03 -55.7313 1.784830E+03 -1.830523E+03 1.807677E+03 118 -1.371869E+03 -5.396775E+03 -2.249980E+02 -3.1897 -1.359331E+03 -5.409314E+03 2.024992E+03 119 -1.319049E+03 -4.086172E+03 -6.620293E+02 -12.7855 -1.168816E+03 -4.236405E+03 1.533794E+03 120 -1.219176E+03 -2.924336E+03 -1.059721E+03 -25.5911 -7.116453E+02 -3.431866E+03 1.360111E+03 121 -1.082631E+03 -1.895205E+03 -1.393975E+03 -36.8754 -3.694189E+01 -2.940894E+03 1.451976E+03 122 -9.223438E+02 -9.751387E+02 -1.646320E+03 -44.5407 6.977906E+02 -2.595273E+03 1.646532E+03 123 -7.514844E+02 -1.378438E+02 -1.804215E+03 -49.8256 1.385453E+03 -2.274781E+03 1.830117E+03 124 -5.816436E+02 6.449814E+02 -1.859793E+03 -54.1256 1.989980E+03 -1.926642E+03 1.958311E+03 125 -4.220811E+02 1.400505E+03 -1.807607E+03 -58.3773 2.513539E+03 -1.535115E+03 2.024327E+03 126 -2.795576E+02 2.147345E+03 -1.642273E+03 -63.2301 2.975835E+03 -1.108048E+03 2.041941E+03 127 -1.593770E+02 2.910732E+03 -1.355799E+03 -69.2741 3.423746E+03 -6.723906E+02 2.048068E+03 128 -6.731152E+01 3.716298E+03 -9.345723E+02 -76.8551 3.934552E+03 -2.855662E+02 2.110059E+03 129 -1.314111E+01 4.595601E+03 -3.579399E+02 -85.5854 4.623235E+03 -4.077490E+01 2.332005E+03 132 -1.099078E+03 -3.642320E+03 -7.409375E+02 -15.1141 -8.989626E+02 -3.842436E+03 1.471737E+03 137 -4.211670E+02 6.408564E+02 -2.012548E+03 -52.3903 2.191268E+03 -1.971579E+03 2.081424E+03 145 -7.625000E+02 -3.152000E+03 -8.207539E+02 -17.2439 -5.077451E+02 -3.406755E+03 1.449505E+03 150 -1.884443E+02 6.194697E+02 -2.127244E+03 -50.3761 2.380772E+03 -1.949747E+03 2.165260E+03 158 -2.696934E+02 -2.617750E+03 -8.996797E+02 -18.7318 3.538818E+01 -2.922832E+03 1.479110E+03 163 1.286553E+02 5.730635E+02 -2.186064E+03 -47.9020 2.548188E+03 -1.846469E+03 2.197329E+03 171 4.329531E+02 -2.045812E+03 -9.736289E+02 -19.0762 7.696487E+02 -2.382508E+03 1.576078E+03 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) ELEMENT STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 176 5.355361E+02 4.949932E+02 -2.165222E+03 -44.7318 2.680581E+03 -1.650052E+03 2.165317E+03 184 1.421537E+03 -1.449914E+03 -1.033297E+03 -17.8714 1.754712E+03 -1.783089E+03 1.768901E+03 189 1.024095E+03 3.835713E+02 -2.033112E+03 -40.5241 2.762015E+03 -1.354349E+03 2.058182E+03 197 2.809926E+03 -8.600078E+02 -1.056020E+03 -14.9602 3.092099E+03 -1.142181E+03 2.117140E+03 202 1.565021E+03 2.479229E+02 -1.748385E+03 -34.6803 2.774769E+03 -9.618259E+02 1.868298E+03 210 4.776887E+03 -3.425547E+02 -9.772305E+02 -10.4477 4.957084E+03 -5.227517E+02 2.739918E+03 215 2.102251E+03 1.132041E+02 -1.259026E+03 -25.8471 2.712167E+03 -4.967114E+02 1.604439E+03 223 7.536414E+03 -3.477344E+01 -5.651758E+02 -4.2457 7.578371E+03 -7.673022E+01 3.827551E+03 228 2.554821E+03 2.159473E+01 -5.040801E+02 -10.8507 2.651442E+03 -7.502563E+01 1.363234E+03 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 SCANNED BY FIELD: SHEAR-XY SET: 1 TOP AND BOTTOM 8 VALUES SORT1 S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) ELEMENT STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 9 -3.571982E+02 3.223775E+03 -8.608594E+01 -88.6237 3.225844E+03 -3.592665E+02 1.792555E+03 6 -9.203945E+02 -7.265059E+02 -9.250977E+01 -68.1704 -6.894492E+02 -9.574512E+02 1.340010E+02 8 -5.386826E+02 1.876956E+03 -9.464258E+01 -87.7598 1.880658E+03 -5.423849E+02 1.211522E+03 7 -7.306475E+02 5.647627E+02 -9.658594E+01 -85.7593 5.719246E+02 -7.378093E+02 6.548669E+02 80 -1.551434E+03 -5.134723E+03 -4.363340E+02 -6.8436 -1.499067E+03 -5.187089E+03 1.844011E+03 158 -2.696934E+02 -2.617750E+03 -8.996797E+02 -18.7318 3.538818E+01 -2.922832E+03 1.479110E+03 85 -7.704834E+02 6.131689E+02 -1.289928E+03 -59.1030 1.385084E+03 -1.542399E+03 1.463741E+03 163 1.286553E+02 5.730635E+02 -2.186064E+03 -47.9020 2.548188E+03 -1.846469E+03 2.197329E+03 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 SCANNED BY FIELD: MAJOR SET: 2 EXCLUDING TO -1500.0 1500.0 SORT1 S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) ELEMENT STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 12 -1.484033E+01 7.745253E+03 -1.765820E+01 -89.8696 7.745294E+03 -1.488062E+01 3.880087E+03 11 -8.087012E+01 6.129444E+03 -4.766406E+01 -89.5603 6.129810E+03 -8.123584E+01 3.105523E+03 10 -1.998145E+02 4.631841E+03 -7.050195E+01 -89.1642 4.632869E+03 -2.008430E+02 2.416856E+03 9 -3.571982E+02 3.223775E+03 -8.608594E+01 -88.6237 3.225844E+03 -3.592665E+02 1.792555E+03 8 -5.386826E+02 1.876956E+03 -9.464258E+01 -87.7598 1.880658E+03 -5.423849E+02 1.211522E+03 1 FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A 0 SCANNED BY FIELD: MAX-SHR SET: 3 TOP AND BOTTOM 10 VALUES SORT1 S T R E S S E S A C T I N G I N Q D M E M 2 E L E M E N T S (CQDMEM2) ELEMENT STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 12 -1.484033E+01 7.745253E+03 -1.765820E+01 -89.8696 7.745294E+03 -1.488062E+01 3.880087E+03 223 7.536414E+03 -3.477344E+01 -5.651758E+02 -4.2457 7.578371E+03 -7.673022E+01 3.827551E+03 11 -8.087012E+01 6.129444E+03 -4.766406E+01 -89.5603 6.129810E+03 -8.123584E+01 3.105523E+03 1 -1.498871E+03 -7.429309E+03 -1.086743E+01 -0.1050 -1.498851E+03 -7.429328E+03 2.965239E+03 210 4.776887E+03 -3.425547E+02 -9.772305E+02 -10.4477 4.957084E+03 -5.227517E+02 2.739918E+03 10 -1.998145E+02 4.631841E+03 -7.050195E+01 -89.1642 4.632869E+03 -2.008430E+02 2.416856E+03 129 -1.314111E+01 4.595601E+03 -3.579399E+02 -85.5854 4.623235E+03 -4.077490E+01 2.332005E+03 2 -1.455730E+03 -6.021971E+03 -3.215234E+01 -0.4034 -1.455504E+03 -6.022197E+03 2.283346E+03 15 -1.465977E+03 -5.980547E+03 -9.668311E+01 -1.2263 -1.463907E+03 -5.982616E+03 2.259355E+03 28 -1.484842E+03 -5.897426E+03 -1.618750E+02 -2.0981 -1.478911E+03 -5.903356E+03 2.212222E+03 * * * END OF JOB * * * 1 JOB TITLE = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) DATE: 5/17/95 END TIME: 14:32:56 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d01041a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01041A,NASTRAN APP DISPLACEMENT TIME 30 SOL 1,1 DIAG 14 ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, GEOM1,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ EQUIV G1,GEOM1/TRUE /G2,GEOM2/TRUE /G4,GEOM4/TRUE $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 3 LABEL = SPILL CHECK 4 SPC = 5100 5 LOAD = 17 6 OUTPUT 7 SET 1 = 1 THRU 5,7,13,19,25,31,37,43 8 DISP = 1 9 STRESS = 1 10 OLOAD = ALL 11 SPCFORCE = ALL 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 162, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- FORCE 17 1 1.0 .9958928 2- FORCE 17 2 1.0 1.894301 3- FORCE 17 3 1.0 1.610752 4- FORCE 17 4 1.0 1.170742 5- FORCE 17 5 1.0-2 61.54956 6- FORCE 17 6 1.0-2 7.837847 7- MAT2 1234 4.0+6 2.0+6 6.0+6 3.0+6 1.0 +MATL 8- +MATL .5 1.0 .05 10.0 .004 1.+12 2.+12 3.+12 9- PQUAD1 101 1234 .0833333 +PQD 10- +PQD .5 -.5 11- SEQGP 1 1 2 102 3 203 4 304 12- SEQGP 5 405 6 506 7 2 8 103 13- SEQGP 9 204 10 305 11 406 12 507 14- SEQGP 13 3 14 104 15 205 16 306 15- SEQGP 17 407 18 508 19 4 20 105 16- SEQGP 21 206 22 307 23 408 24 509 17- SEQGP 25 5 26 106 27 207 28 308 18- SEQGP 29 409 30 510 31 6 32 107 19- SEQGP 33 208 34 309 35 410 36 511 20- SEQGP 37 7 38 108 39 209 40 310 21- SEQGP 41 411 42 512 43 8 44 109 22- SEQGP 45 210 46 311 47 412 48 513 23- SEQGP 49 9 50 110 51 211 52 312 24- SEQGP 53 413 54 514 55 10 56 111 25- SEQGP 57 212 58 313 59 414 60 515 26- SEQGP 61 11 62 112 63 213 64 314 27- SEQGP 65 415 66 516 67 12 68 113 28- SEQGP 69 214 70 315 71 416 72 517 29- SEQGP 73 13 74 114 75 215 76 316 30- SEQGP 77 417 78 518 79 14 80 115 31- SEQGP 81 216 82 317 83 418 84 519 32- SEQGP 85 15 86 116 87 217 88 318 33- SEQGP 89 419 90 520 91 16 92 117 34- SEQGP 93 218 94 319 95 420 96 521 35- SEQGP 97 17 98 118 99 219 100 320 36- SEQGP 101 421 102 522 103 18 104 119 37- SEQGP 105 220 106 321 107 422 108 523 38- SEQGP 109 19 110 120 111 221 112 322 39- SEQGP 113 423 114 524 115 20 116 121 40- SEQGP 117 222 118 323 119 424 120 525 41- SEQGP 121 21 122 122 123 223 124 324 42- SEQGP 125 425 126 526 127 22 128 123 43- SEQGP 129 224 130 325 131 426 132 527 44- SEQGP 133 23 134 124 135 225 136 326 45- SEQGP 137 427 138 528 139 24 140 125 46- SEQGP 141 226 142 327 143 428 144 529 47- SEQGP 145 25 146 126 147 227 148 328 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A SPILL CHECK S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- SEQGP 149 429 150 530 151 26 152 127 49- SEQGP 153 228 154 329 155 430 156 531 50- SEQGP 157 27 158 128 159 229 160 330 51- SEQGP 161 431 162 532 163 28 164 129 52- SEQGP 165 230 166 331 167 432 168 533 53- SEQGP 169 29 170 130 171 231 172 332 54- SEQGP 173 433 174 534 175 30 176 131 55- SEQGP 177 232 178 333 179 434 180 535 56- SEQGP 181 31 182 132 183 233 184 334 57- SEQGP 185 435 186 536 187 32 188 133 58- SEQGP 189 234 190 335 191 436 192 537 59- SEQGP 193 33 194 134 195 235 196 336 60- SEQGP 197 437 198 538 199 34 200 135 61- SEQGP 201 236 202 337 203 438 204 539 62- SEQGP 205 35 206 136 207 237 208 338 63- SEQGP 209 439 210 540 211 36 212 137 64- SEQGP 213 238 214 339 215 440 216 541 65- SEQGP 217 37 218 138 219 239 220 340 66- SEQGP 221 441 222 542 223 38 224 139 67- SEQGP 225 240 226 341 227 442 228 543 68- SEQGP 229 39 230 140 231 241 232 342 69- SEQGP 233 443 234 544 235 40 236 141 70- SEQGP 237 242 238 343 239 444 240 545 71- SEQGP 241 41 242 142 243 243 244 344 72- SEQGP 245 445 246 546 247 42 248 143 73- SEQGP 249 244 250 345 251 446 252 547 74- SEQGP 253 43 254 144 255 245 256 346 75- SEQGP 257 447 258 548 259 44 260 145 76- SEQGP 261 246 262 347 263 448 264 549 77- SEQGP 265 45 266 146 267 247 268 348 78- SEQGP 269 449 270 550 271 46 272 147 79- SEQGP 273 248 274 349 275 450 276 551 80- SEQGP 277 47 278 148 279 249 280 350 81- SEQGP 281 451 282 552 283 48 284 149 82- SEQGP 285 250 286 351 287 452 288 553 83- SEQGP 289 49 290 150 291 251 292 352 84- SEQGP 293 453 294 554 295 50 296 151 85- SEQGP 297 252 298 353 299 454 300 555 86- SEQGP 301 51 302 152 303 253 304 354 87- SEQGP 305 455 306 556 307 52 308 153 88- SEQGP 309 254 310 355 311 456 312 557 89- SEQGP 313 53 314 154 315 255 316 356 90- SEQGP 317 457 318 558 319 54 320 155 91- SEQGP 321 256 322 357 323 458 324 559 92- SEQGP 325 55 326 156 327 257 328 358 93- SEQGP 329 459 330 560 331 56 332 157 94- SEQGP 333 258 334 359 335 460 336 561 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A SPILL CHECK S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- SEQGP 337 57 338 158 339 259 340 360 96- SEQGP 341 461 342 562 343 58 344 159 97- SEQGP 345 260 346 361 347 462 348 563 98- SEQGP 349 59 350 160 351 261 352 362 99- SEQGP 353 463 354 564 355 60 356 161 100- SEQGP 357 262 358 363 359 464 360 565 101- SEQGP 361 61 362 162 363 263 364 364 102- SEQGP 365 465 366 566 367 62 368 163 103- SEQGP 369 264 370 365 371 466 372 567 104- SEQGP 373 63 374 164 375 265 376 366 105- SEQGP 377 467 378 568 379 64 380 165 106- SEQGP 381 266 382 367 383 468 384 569 107- SEQGP 385 65 386 166 387 267 388 368 108- SEQGP 389 469 390 570 391 66 392 167 109- SEQGP 393 268 394 369 395 470 396 571 110- SEQGP 397 67 398 168 399 269 400 370 111- SEQGP 401 471 402 572 403 68 404 169 112- SEQGP 405 270 406 371 407 472 408 573 113- SEQGP 409 69 410 170 411 271 412 372 114- SEQGP 413 473 414 574 415 70 416 171 115- SEQGP 417 272 418 373 419 474 420 575 116- SEQGP 421 71 422 172 423 273 424 374 117- SEQGP 425 475 426 576 427 72 428 173 118- SEQGP 429 274 430 375 431 476 432 577 119- SEQGP 433 73 434 174 435 275 436 376 120- SEQGP 437 477 438 578 439 74 440 175 121- SEQGP 441 276 442 377 443 478 444 579 122- SEQGP 445 75 446 176 447 277 448 378 123- SEQGP 449 479 450 580 451 76 452 177 124- SEQGP 453 278 454 379 455 480 456 581 125- SEQGP 457 77 458 178 459 279 460 380 126- SEQGP 461 481 462 582 463 78 464 179 127- SEQGP 465 280 466 381 467 482 468 583 128- SEQGP 469 79 470 180 471 281 472 382 129- SEQGP 473 483 474 584 475 80 476 181 130- SEQGP 477 282 478 383 479 484 480 585 131- SEQGP 481 81 482 182 483 283 484 384 132- SEQGP 485 485 486 586 487 82 488 183 133- SEQGP 489 284 490 385 491 486 492 587 134- SEQGP 493 83 494 184 495 285 496 386 135- SEQGP 497 487 498 588 499 84 500 185 136- SEQGP 501 286 502 387 503 488 504 589 137- SEQGP 505 85 506 186 507 287 508 388 138- SEQGP 509 489 510 590 511 86 512 187 139- SEQGP 513 288 514 389 515 490 516 591 140- SEQGP 517 87 518 188 519 289 520 390 141- SEQGP 521 491 522 592 523 88 524 189 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A SPILL CHECK S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- SEQGP 525 290 526 391 527 492 528 593 143- SEQGP 529 89 530 190 531 291 532 392 144- SEQGP 533 493 534 594 535 90 536 191 145- SEQGP 537 292 538 393 539 494 540 595 146- SEQGP 541 91 542 192 543 293 544 394 147- SEQGP 545 495 546 596 547 92 548 193 148- SEQGP 549 294 550 395 551 496 552 597 149- SEQGP 553 93 554 194 555 295 556 396 150- SEQGP 557 497 558 598 559 94 560 195 151- SEQGP 561 296 562 397 563 498 564 599 152- SEQGP 565 95 566 196 567 297 568 398 153- SEQGP 569 499 570 600 571 96 572 197 154- SEQGP 573 298 574 399 575 500 576 601 155- SEQGP 577 97 578 198 579 299 580 400 156- SEQGP 581 501 582 602 583 98 584 199 157- SEQGP 585 300 586 401 587 502 588 603 158- SEQGP 589 99 590 200 591 301 592 402 159- SEQGP 593 503 594 604 595 100 596 201 160- SEQGP 597 302 598 403 599 504 600 605 161- SEQGP 601 101 602 202 603 303 604 404 162- SEQGP 605 505 606 606 ENDDATA 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 01 - STATIC ANALYSIS - APR. 1995 $ 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ 1 INPUT, GEOM1,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ 1 EQUIV G1,GEOM1/TRUE /G2,GEOM2/TRUE /G4,GEOM4/TRUE $ 2 FILE OPTP2=SAVE/EST1=SAVE $ 4 SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ 5 PARAM //*MPY*/CARDNO/0/0 $ 6 COMPOFF 1,INTERACT $ 7 PRECHK ALL $ 8 COMPON 1,INTERACT $ 10 COMPOFF LBLINT02,SYS21 $ 11 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 12 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 13 EQUIV MPTA,MPT/ISOP $ 14 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 15 GP2 GEOM2,EQEXIN/ECT $ 16 PARAML PCDB//*PRES*////JUMPPLOT $ 17 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 18 COND P1,JUMPPLOT $ 19 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A SPILL CHECK COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 20 PRTMSG PLTSETX// $ 21 PARAM //*MPY*/PLTFLG/1/1 $ 22 PARAM //*MPY*/PFILE/0/0 $ 23 COND P1,JUMPPLOT $ 24 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 25 PRTMSG PLOTX1// $ 26 LABEL P1 $ 27 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ 28 PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ 29 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 30 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 31 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ 32 COND ERROR4,NOELMT $ 33 PURGE KGGX/NOSIMP $ 34 OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ 35 LABEL LOOPTOP $ 36 COND LBL1,NOSIMP $ 37 PARAM //*ADD*/NOKGGX/1/0 $ 38 EQUIV OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ 39 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A SPILL CHECK COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 40 COND JMPKGG,NOKGGX $ 41 EMA GPECT,KDICT,KELM/KGGX $ 42 LABEL JMPKGG $ 43 PURGE MGG/NOMGG $ 44 COND JMPMGG,NOMGG $ 45 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 46 PURGE MDICT,MELM/ALWAYS $ 47 LABEL JMPMGG $ 48 COND LBL1,GRDPNT $ 49 COND ERROR2,NOMGG $ 50 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ 51 OFP OGPWG,,,,,//S,N,CARDNO $ 52 LABEL LBL1 $ 53 EQUIV KGGX,KGG/NOGENL $ 54 COND LBL11A,NOGENL $ 55 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 56 LABEL LBL11A $ 57 GPSTGEN KGG,SIL/GPST $ 58 PARAM //*MPY*/NSKIP/0/0 $ 60 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 61 OFP OGPST,,,,,//S,N,CARDNO $ 62 COND ERROR3,NOL $ 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A SPILL CHECK COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 63 PARAM //*AND*/NOSR/SINGLE/REACT $ 64 PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ 65 EQUIV KGG,KNN/MPCF1 $ 66 COND LBL2,MPCF2 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,,,/KNN,,, $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 COND LBL5,OMIT $ 76 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 77 LABEL LBL5 $ 78 EQUIV KAA,KLL/REACT $ 79 COND LBL6,REACT $ 80 RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ 81 LABEL LBL6 $ 82 RBMG2 KLL/LLL $ 83 COND LBL7,REACT $ 84 RBMG3 LLL,KLR,KRR/DM $ 85 LABEL LBL7 $ 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A SPILL CHECK COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 86 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ 87 EQUIV PG,PL/NOSET $ 88 COND LBL10,NOSET $ 89 SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ 90 LABEL LBL10 $ 91 SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ NSKIP/S,N,EPSI $ 92 COND LBL9,IRES $ 93 MATGPR GPL,USET,SIL,RULV//*L* $ 94 MATGPR GPL,USET,SIL,RUOV//*O* $ 95 LABEL LBL9 $ 96 SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ *STATICS* $ 100 PARAM //*NOT*/TEST/REPEAT $ 101 COND ERROR5,TEST $ 103 GPFDR CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/ *STATICS* $ 104 PURGE KDICT,KELM/REPEAT $ 105 OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ 106 COND NOMPCF,GRDEQ $ 107 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ 108 OFP OQM1,,,,,//S,N,CARDNO $ 109 LABEL NOMPCF $ 110 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L, OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ 111 COND LBLSTRS,STRESS $ 112 CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/ V,Y,NINTPTS $ 113 LABEL LBLSTRS $ 114 PURGE OES1M/STRESS $ 115 COND LBLSTRN,STRNFLG $ 116 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/ ,,,OES1A,,,,/*STATICS*//1 $ 117 COND LBLSTRN,STRAIN $ 118 CURV OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/ V,Y,NINTPTS $ 119 LABEL LBLSTRN $ 120 PURGE OES1A/STRNFLG $ 121 COND LBL17,NOSORT2 $ 122 SDR3 OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $ 123 PARAM //*SUB*/PRTSORT2/NOSORT2/1 $ 124 COND LBLSORT1,PRTSORT2 $ 125 OFP OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $ 126 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ 127 OFP OESF2,,,,,//S,N,CARDNO $ 128 JUMP LBLXYPLT $ 129 LABEL LBLSORT1 $ 130 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 131 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A SPILL CHECK COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 132 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 133 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 134 LABEL LBLXYPLT $ 135 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ 136 XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ 137 XYPLOT XYPLTT// $ 138 JUMP DPLOT $ 139 LABEL LBL17 $ 140 PURGE OUGV2/NOSORT2 $ 141 COND LBLOFP,COUNT $ 142 OPTPR2 OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N, CARDNO $ 143 EQUIV EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $ 144 COND LOOPEND,PRINT $ 145 LABEL LBLOFP $ 146 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 147 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 148 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $ 149 OFP OESF1X,OESF1Y,,,,//S,N,CARDNO $ 150 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ 151 LABEL DPLOT $ 152 COND P2,JUMPPLOT $ 153 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 154 PRTMSG PLOTX2// $ 155 LABEL P2 $ 156 LABEL LOOPEND $ 157 COND FINIS,COUNT $ 158 REPT LOOPTOP,360 $ 159 JUMP FINIS $ 162 LABEL ERROR2 $ 163 PRTPARM //-2/*STATICS* $ 164 LABEL ERROR3 $ 165 PRTPARM //-3/*STATICS* $ 166 LABEL ERROR4 $ 167 PRTPARM //-4/*STATICS* $ 168 LABEL ERROR5 $ 169 PRTPARM //-5/*STATICS* $ 170 LABEL FINIS $ 171 PURGE DUMMY/ALWAYS $ 172 LABEL LBLINT02 $ 173 COMPON LBLINT01,SYS21 $ 228 END $ 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF SEQGP CARDS 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK * U T I L I T Y M O D U L E I N P U T * INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST) * 1 ** 2 ** 3 ** 4 ** 5 ** 6 ** 7 ** 8 ** 9 ** 10 * 5 100 2.0E+00 2.0E+00 126 0.0E+00 0.0E+00 4 5 0 34 0 0 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -4.3674068E-13 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 3.037262E-04 0.0 0.0 0.0 2 G 0.0 0.0 2.888604E-04 0.0 1.475484E-05 0.0 3 G 0.0 0.0 2.457186E-04 0.0 2.806470E-05 0.0 4 G 0.0 0.0 1.785250E-04 0.0 3.862729E-05 0.0 5 G 0.0 0.0 9.385625E-05 0.0 4.540926E-05 0.0 7 G 0.0 0.0 2.939934E-04 -8.977599E-06 0.0 0.0 13 G 0.0 0.0 2.713889E-04 -1.309458E-05 0.0 0.0 19 G 0.0 0.0 2.434646E-04 -1.443695E-05 0.0 0.0 25 G 0.0 0.0 2.144644E-04 -1.426641E-05 0.0 0.0 31 G 0.0 0.0 1.866442E-04 -1.332437E-05 0.0 0.0 37 G 0.0 0.0 1.610988E-04 -1.204011E-05 0.0 0.0 43 G 0.0 0.0 1.382578E-04 -1.065591E-05 0.0 0.0 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 9.958928E-01 0.0 0.0 0.0 2 G 0.0 0.0 1.894301E+00 0.0 0.0 0.0 3 G 0.0 0.0 1.610752E+00 0.0 0.0 0.0 4 G 0.0 0.0 1.170742E+00 0.0 0.0 0.0 5 G 0.0 0.0 6.154956E-01 0.0 0.0 0.0 6 G 0.0 0.0 7.837847E-02 0.0 0.0 0.0 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 4.260429E+00 -3.161795E+00 0.0 2 G 0.0 0.0 0.0 8.103666E+00 0.0 0.0 3 G 0.0 0.0 0.0 6.893106E+00 0.0 0.0 4 G 0.0 0.0 0.0 5.008235E+00 0.0 0.0 5 G 0.0 0.0 0.0 2.633057E+00 0.0 0.0 6 G 0.0 0.0 -1.318083E+00 1.503710E-01 0.0 0.0 7 G 0.0 0.0 0.0 0.0 -6.083074E+00 0.0 12 G 0.0 0.0 -1.988982E+00 1.847761E-02 0.0 0.0 13 G 0.0 0.0 0.0 0.0 -5.028289E+00 0.0 18 G 0.0 0.0 -1.175889E+00 -9.037440E-02 0.0 0.0 19 G 0.0 0.0 0.0 0.0 -4.179047E+00 0.0 24 G 0.0 0.0 -7.222049E-01 -8.707463E-02 0.0 0.0 25 G 0.0 0.0 0.0 0.0 -3.490331E+00 0.0 30 G 0.0 0.0 -4.424800E-01 -8.324321E-02 0.0 0.0 31 G 0.0 0.0 0.0 0.0 -2.925571E+00 0.0 36 G 0.0 0.0 -2.715906E-01 -7.610597E-02 0.0 0.0 37 G 0.0 0.0 0.0 0.0 -2.458671E+00 0.0 42 G 0.0 0.0 -1.670355E-01 -6.787330E-02 0.0 0.0 43 G 0.0 0.0 0.0 0.0 -2.070276E+00 0.0 48 G 0.0 0.0 -1.030183E-01 -5.955674E-02 0.0 0.0 49 G 0.0 0.0 0.0 0.0 -1.745689E+00 0.0 54 G 0.0 0.0 -6.377681E-02 -5.169515E-02 0.0 0.0 55 G 0.0 0.0 0.0 0.0 -1.473497E+00 0.0 60 G 0.0 0.0 -3.968485E-02 -4.453912E-02 0.0 0.0 61 G 0.0 0.0 0.0 0.0 -1.244669E+00 0.0 66 G 0.0 0.0 -2.486212E-02 -3.817596E-02 0.0 0.0 67 G 0.0 0.0 0.0 0.0 -1.051942E+00 0.0 72 G 0.0 0.0 -1.571565E-02 -3.260330E-02 0.0 0.0 73 G 0.0 0.0 0.0 0.0 -8.894022E-01 0.0 78 G 0.0 0.0 -1.004935E-02 -2.777263E-02 0.0 0.0 79 G 0.0 0.0 0.0 0.0 -7.521883E-01 0.0 84 G 0.0 0.0 -6.520282E-03 -2.361445E-02 0.0 0.0 85 G 0.0 0.0 0.0 0.0 -6.362723E-01 0.0 90 G 0.0 0.0 -4.306674E-03 -2.005262E-02 0.0 0.0 91 G 0.0 0.0 0.0 0.0 -5.382983E-01 0.0 96 G 0.0 0.0 -2.905211E-03 -1.701209E-02 0.0 0.0 97 G 0.0 0.0 0.0 0.0 -4.554586E-01 0.0 102 G 0.0 0.0 -2.007236E-03 -1.442289E-02 0.0 0.0 103 G 0.0 0.0 0.0 0.0 -3.853967E-01 0.0 108 G 0.0 0.0 -1.423142E-03 -1.222186E-02 0.0 0.0 109 G 0.0 0.0 0.0 0.0 -3.261302E-01 0.0 114 G 0.0 0.0 -1.036180E-03 -1.035312E-02 0.0 0.0 115 G 0.0 0.0 0.0 0.0 -2.759886E-01 0.0 120 G 0.0 0.0 -7.742308E-04 -8.767921E-03 0.0 0.0 121 G 0.0 0.0 0.0 0.0 -2.335629E-01 0.0 126 G 0.0 0.0 -5.925495E-04 -7.424098E-03 0.0 0.0 127 G 0.0 0.0 0.0 0.0 -1.976630E-01 0.0 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 132 G 0.0 0.0 -4.632143E-04 -6.285420E-03 0.0 0.0 133 G 0.0 0.0 0.0 0.0 -1.672837E-01 0.0 138 G 0.0 0.0 -3.686657E-04 -5.320890E-03 0.0 0.0 139 G 0.0 0.0 0.0 0.0 -1.415749E-01 0.0 144 G 0.0 0.0 -2.977494E-04 -4.504069E-03 0.0 0.0 145 G 0.0 0.0 0.0 0.0 -1.198181E-01 0.0 150 G 0.0 0.0 -2.432876E-04 -3.812453E-03 0.0 0.0 151 G 0.0 0.0 0.0 0.0 -1.014054E-01 0.0 156 G 0.0 0.0 -2.005871E-04 -3.226925E-03 0.0 0.0 157 G 0.0 0.0 0.0 0.0 -8.582255E-02 0.0 162 G 0.0 0.0 -1.665191E-04 -2.731254E-03 0.0 0.0 163 G 0.0 0.0 0.0 0.0 -7.263451E-02 0.0 168 G 0.0 0.0 -1.389503E-04 -2.311679E-03 0.0 0.0 169 G 0.0 0.0 0.0 0.0 -6.147316E-02 0.0 174 G 0.0 0.0 -1.163896E-04 -1.956533E-03 0.0 0.0 175 G 0.0 0.0 0.0 0.0 -5.202699E-02 0.0 180 G 0.0 0.0 -9.776679E-05 -1.655933E-03 0.0 0.0 181 G 0.0 0.0 0.0 0.0 -4.403240E-02 0.0 186 G 0.0 0.0 -8.229317E-05 -1.401507E-03 0.0 0.0 187 G 0.0 0.0 0.0 0.0 -3.726630E-02 0.0 192 G 0.0 0.0 -6.937282E-05 -1.186167E-03 0.0 0.0 193 G 0.0 0.0 0.0 0.0 -3.153992E-02 0.0 198 G 0.0 0.0 -5.854500E-05 -1.003910E-03 0.0 0.0 199 G 0.0 0.0 0.0 0.0 -2.669347E-02 0.0 204 G 0.0 0.0 -4.944643E-05 -8.496544E-04 0.0 0.0 205 G 0.0 0.0 0.0 0.0 -2.259173E-02 0.0 210 G 0.0 0.0 -4.178589E-05 -7.191000E-04 0.0 0.0 211 G 0.0 0.0 0.0 0.0 -1.912027E-02 0.0 216 G 0.0 0.0 -3.532685E-05 -6.086052E-04 0.0 0.0 217 G 0.0 0.0 0.0 0.0 -1.618225E-02 0.0 222 G 0.0 0.0 -2.987519E-05 -5.150882E-04 0.0 0.0 223 G 0.0 0.0 0.0 0.0 -1.369568E-02 0.0 228 G 0.0 0.0 -2.527033E-05 -4.359405E-04 0.0 0.0 229 G 0.0 0.0 0.0 0.0 -1.159120E-02 0.0 234 G 0.0 0.0 -2.137860E-05 -3.689544E-04 0.0 0.0 235 G 0.0 0.0 0.0 0.0 -9.810094E-03 0.0 240 G 0.0 0.0 -1.808825E-05 -3.122612E-04 0.0 0.0 241 G 0.0 0.0 0.0 0.0 -8.302674E-03 0.0 246 G 0.0 0.0 -1.530557E-05 -2.642793E-04 0.0 0.0 247 G 0.0 0.0 0.0 0.0 -7.026884E-03 0.0 252 G 0.0 0.0 -1.295174E-05 -2.236703E-04 0.0 0.0 253 G 0.0 0.0 0.0 0.0 -5.947133E-03 0.0 258 G 0.0 0.0 -1.096037E-05 -1.893012E-04 0.0 0.0 259 G 0.0 0.0 0.0 0.0 -5.033297E-03 0.0 264 G 0.0 0.0 -9.275462E-06 -1.602132E-04 0.0 0.0 265 G 0.0 0.0 0.0 0.0 -4.259880E-03 0.0 270 G 0.0 0.0 -7.849744E-06 -1.355948E-04 0.0 0.0 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 271 G 0.0 0.0 0.0 0.0 -3.605307E-03 0.0 276 G 0.0 0.0 -6.643278E-06 -1.147594E-04 0.0 0.0 277 G 0.0 0.0 0.0 0.0 -3.051315E-03 0.0 282 G 0.0 0.0 -5.622304E-06 -9.712544E-05 0.0 0.0 283 G 0.0 0.0 0.0 0.0 -2.582450E-03 0.0 288 G 0.0 0.0 -4.758278E-06 -8.220116E-05 0.0 0.0 289 G 0.0 0.0 0.0 0.0 -2.185631E-03 0.0 294 G 0.0 0.0 -4.027059E-06 -6.957013E-05 0.0 0.0 295 G 0.0 0.0 0.0 0.0 -1.849787E-03 0.0 300 G 0.0 0.0 -3.408223E-06 -5.887998E-05 0.0 0.0 301 G 0.0 0.0 0.0 0.0 -1.565549E-03 0.0 306 G 0.0 0.0 -2.884492E-06 -4.983249E-05 0.0 0.0 307 G 0.0 0.0 0.0 0.0 -1.324987E-03 0.0 312 G 0.0 0.0 -2.441247E-06 -4.217523E-05 0.0 0.0 313 G 0.0 0.0 0.0 0.0 -1.121389E-03 0.0 318 G 0.0 0.0 -2.066116E-06 -3.569458E-05 0.0 0.0 319 G 0.0 0.0 0.0 0.0 -9.490766E-04 0.0 324 G 0.0 0.0 -1.748632E-06 -3.020975E-05 0.0 0.0 325 G 0.0 0.0 0.0 0.0 -8.032415E-04 0.0 330 G 0.0 0.0 -1.479934E-06 -2.556772E-05 0.0 0.0 331 G 0.0 0.0 0.0 0.0 -6.798155E-04 0.0 336 G 0.0 0.0 -1.252525E-06 -2.163898E-05 0.0 0.0 337 G 0.0 0.0 0.0 0.0 -5.753551E-04 0.0 342 G 0.0 0.0 -1.060061E-06 -1.831393E-05 0.0 0.0 343 G 0.0 0.0 0.0 0.0 -4.869461E-04 0.0 348 G 0.0 0.0 -8.971717E-07 -1.549981E-05 0.0 0.0 349 G 0.0 0.0 0.0 0.0 -4.121221E-04 0.0 354 G 0.0 0.0 -7.593120E-07 -1.311811E-05 0.0 0.0 355 G 0.0 0.0 0.0 0.0 -3.487955E-04 0.0 360 G 0.0 0.0 -6.426361E-07 -1.110238E-05 0.0 0.0 361 G 0.0 0.0 0.0 0.0 -2.951997E-04 0.0 366 G 0.0 0.0 -5.438887E-07 -9.396381E-06 0.0 0.0 367 G 0.0 0.0 0.0 0.0 -2.498395E-04 0.0 372 G 0.0 0.0 -4.603149E-07 -7.952528E-06 0.0 0.0 373 G 0.0 0.0 0.0 0.0 -2.114494E-04 0.0 378 G 0.0 0.0 -3.895832E-07 -6.730537E-06 0.0 0.0 379 G 0.0 0.0 0.0 0.0 -1.789583E-04 0.0 384 G 0.0 0.0 -3.297203E-07 -5.696315E-06 0.0 0.0 385 G 0.0 0.0 0.0 0.0 -1.514598E-04 0.0 390 G 0.0 0.0 -2.790559E-07 -4.821011E-06 0.0 0.0 391 G 0.0 0.0 0.0 0.0 -1.281868E-04 0.0 396 G 0.0 0.0 -2.361767E-07 -4.080205E-06 0.0 0.0 397 G 0.0 0.0 0.0 0.0 -1.084900E-04 0.0 402 G 0.0 0.0 -1.998865E-07 -3.453229E-06 0.0 0.0 403 G 0.0 0.0 0.0 0.0 -9.181984E-05 0.0 408 G 0.0 0.0 -1.691727E-07 -2.922592E-06 0.0 0.0 409 G 0.0 0.0 0.0 0.0 -7.771132E-05 0.0 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 414 G 0.0 0.0 -1.431786E-07 -2.473490E-06 0.0 0.0 415 G 0.0 0.0 0.0 0.0 -6.577080E-05 0.0 420 G 0.0 0.0 -1.211789E-07 -2.093395E-06 0.0 0.0 421 G 0.0 0.0 0.0 0.0 -5.566517E-05 0.0 426 G 0.0 0.0 -1.025598E-07 -1.771701E-06 0.0 0.0 427 G 0.0 0.0 0.0 0.0 -4.711250E-05 0.0 432 G 0.0 0.0 -8.680202E-08 -1.499435E-06 0.0 0.0 433 G 0.0 0.0 0.0 0.0 -3.987419E-05 0.0 438 G 0.0 0.0 -7.346584E-08 -1.269000E-06 0.0 0.0 439 G 0.0 0.0 0.0 0.0 -3.374829E-05 0.0 444 G 0.0 0.0 -6.217923E-08 -1.073968E-06 0.0 0.0 445 G 0.0 0.0 0.0 0.0 -2.856392E-05 0.0 450 G 0.0 0.0 -5.262729E-08 -9.088980E-07 0.0 0.0 451 G 0.0 0.0 0.0 0.0 -2.417643E-05 0.0 456 G 0.0 0.0 -4.454355E-08 -7.691845E-07 0.0 0.0 457 G 0.0 0.0 0.0 0.0 -2.046341E-05 0.0 462 G 0.0 0.0 -3.770248E-08 -6.509300E-07 0.0 0.0 463 G 0.0 0.0 0.0 0.0 -1.732129E-05 0.0 468 G 0.0 0.0 -3.191320E-08 -5.508352E-07 0.0 0.0 469 G 0.0 0.0 0.0 0.0 -1.466241E-05 0.0 474 G 0.0 0.0 -2.701419E-08 -4.661078E-07 0.0 0.0 475 G 0.0 0.0 0.0 0.0 -1.241258E-05 0.0 480 G 0.0 0.0 -2.286873E-08 -3.943840E-07 0.0 0.0 481 G 0.0 0.0 0.0 0.0 -1.050903E-05 0.0 486 G 0.0 0.0 -1.936111E-08 -3.336628E-07 0.0 0.0 487 G 0.0 0.0 0.0 0.0 -8.898676E-06 0.0 492 G 0.0 0.0 -1.639337E-08 -2.822501E-07 0.0 0.0 493 G 0.0 0.0 0.0 0.0 -7.536575E-06 0.0 498 G 0.0 0.0 -1.388255E-08 -2.387117E-07 0.0 0.0 499 G 0.0 0.0 0.0 0.0 -6.384731E-06 0.0 504 G 0.0 0.0 -1.175833E-08 -2.018330E-07 0.0 0.0 505 G 0.0 0.0 0.0 0.0 -5.411009E-06 0.0 510 G 0.0 0.0 -9.961006E-09 -1.705849E-07 0.0 0.0 511 G 0.0 0.0 0.0 0.0 -4.588244E-06 0.0 516 G 0.0 0.0 -8.439711E-09 -1.440958E-07 0.0 0.0 517 G 0.0 0.0 0.0 0.0 -3.893482E-06 0.0 522 G 0.0 0.0 -7.150808E-09 -1.216265E-07 0.0 0.0 523 G 0.0 0.0 0.0 0.0 -3.307341E-06 0.0 528 G 0.0 0.0 -6.056388E-09 -1.025501E-07 0.0 0.0 529 G 0.0 0.0 0.0 0.0 -2.813465E-06 0.0 534 G 0.0 0.0 -5.122720E-09 -8.633420E-08 0.0 0.0 535 G 0.0 0.0 0.0 0.0 -2.398077E-06 0.0 540 G 0.0 0.0 -4.318514E-09 -7.252614E-08 0.0 0.0 541 G 0.0 0.0 0.0 0.0 -2.049585E-06 0.0 546 G 0.0 0.0 -3.612754E-09 -6.074022E-08 0.0 0.0 547 G 0.0 0.0 0.0 0.0 -1.758263E-06 0.0 552 G 0.0 0.0 -2.971689E-09 -5.064685E-08 0.0 0.0 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 553 G 0.0 0.0 0.0 0.0 -1.515977E-06 0.0 558 G 0.0 0.0 -2.354404E-09 -4.196319E-08 0.0 0.0 559 G 0.0 0.0 0.0 0.0 -1.315957E-06 0.0 564 G 0.0 0.0 -1.705949E-09 -3.444489E-08 0.0 0.0 565 G 0.0 0.0 0.0 0.0 -1.152607E-06 0.0 570 G 0.0 0.0 -9.464320E-10 -2.787880E-08 0.0 0.0 571 G 0.0 0.0 0.0 0.0 -1.021340E-06 0.0 576 G 0.0 0.0 4.657980E-11 -2.207615E-08 0.0 0.0 577 G 0.0 0.0 0.0 0.0 -9.184492E-07 0.0 582 G 0.0 0.0 1.466508E-09 -1.686610E-08 0.0 0.0 583 G 0.0 0.0 0.0 0.0 -8.409891E-07 0.0 588 G 0.0 0.0 3.626697E-09 -1.208528E-08 0.0 0.0 589 G 0.0 0.0 0.0 0.0 -7.866723E-07 0.0 594 G 0.0 0.0 6.996022E-09 -7.629329E-09 0.0 0.0 595 G 0.0 0.0 0.0 0.0 -7.538399E-07 0.0 600 G 0.0 0.0 1.303603E-08 -2.394109E-09 0.0 0.0 601 G 0.0 0.0 0.0 0.0 -3.773022E-07 0.0 606 G 0.0 0.0 -3.685073E-08 -6.026966E-08 0.0 0.0 1 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A 0 SPILL CHECK S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 5.000000E-01 1.889895E+01 2.039686E+01 -3.900606E-01 -76.2446 2.049234E+01 1.880346E+01 8.444400E-01 -5.000000E-01 -1.889895E+01 -2.039686E+01 3.900606E-01 13.7554 -1.880346E+01 -2.049234E+01 8.444400E-01 0 2 5.000000E-01 1.704840E+01 1.839983E+01 -1.132050E+00 -60.4164 1.904250E+01 1.640573E+01 1.318382E+00 -5.000000E-01 -1.704840E+01 -1.839983E+01 1.132050E+00 29.5836 -1.640573E+01 -1.904250E+01 1.318382E+00 0 3 5.000000E-01 1.352950E+01 1.460203E+01 -1.762666E+00 -53.4608 1.590820E+01 1.222333E+01 1.842436E+00 -5.000000E-01 -1.352950E+01 -1.460203E+01 1.762666E+00 36.5392 -1.222333E+01 -1.590820E+01 1.842436E+00 0 4 5.000000E-01 8.686762E+00 9.375266E+00 -2.221185E+00 -49.4050 1.127872E+01 6.783310E+00 2.247704E+00 -5.000000E-01 -8.686762E+00 -9.375266E+00 2.221185E+00 40.5950 -6.783310E+00 -1.127872E+01 2.247704E+00 0 5 5.000000E-01 2.993285E+00 3.230521E+00 -2.462346E+00 -46.3790 5.577105E+00 6.467016E-01 2.465201E+00 -5.000000E-01 -2.993285E+00 -3.230521E+00 2.462346E+00 43.6210 -6.467016E-01 -5.577105E+00 2.465201E+00 0 7 5.000000E-01 1.575741E+01 1.289906E+01 -8.756107E-01 -15.7472 1.600432E+01 1.265215E+01 1.676080E+00 -5.000000E-01 -1.575741E+01 -1.289906E+01 8.756107E-01 74.2528 -1.265215E+01 -1.600432E+01 1.676080E+00 0 13 5.000000E-01 1.319522E+01 8.234562E+00 -1.055054E+00 -11.5217 1.341029E+01 8.019493E+00 2.695398E+00 -5.000000E-01 -1.319522E+01 -8.234562E+00 1.055054E+00 78.4783 -8.019493E+00 -1.341029E+01 2.695398E+00 0 19 5.000000E-01 1.108139E+01 5.332791E+00 -1.085724E+00 -10.3467 1.127962E+01 5.134568E+00 3.072525E+00 -5.000000E-01 -1.108139E+01 -5.332791E+00 1.085724E+00 79.6533 -5.134568E+00 -1.127962E+01 3.072525E+00 0 25 5.000000E-01 9.325995E+00 3.514302E+00 -1.036469E+00 -9.8153 9.505309E+00 3.334989E+00 3.085160E+00 -5.000000E-01 -9.325995E+00 -3.514302E+00 1.036469E+00 80.1847 -3.334989E+00 -9.505309E+00 3.085160E+00 0 31 5.000000E-01 7.860834E+00 2.364410E+00 -9.491504E-01 -9.5267 8.020123E+00 2.205122E+00 2.907500E+00 -5.000000E-01 -7.860834E+00 -2.364410E+00 9.491504E-01 80.4733 -2.205122E+00 -8.020123E+00 2.907500E+00 0 37 5.000000E-01 6.633325E+00 1.628785E+00 -8.470691E-01 -9.3510 6.772812E+00 1.489297E+00 2.641757E+00 -5.000000E-01 -6.633325E+00 -1.628785E+00 8.470691E-01 80.6490 -1.489297E+00 -6.772812E+00 2.641757E+00 0 43 5.000000E-01 5.602075E+00 1.151222E+00 -7.437060E-01 -9.2395 5.723054E+00 1.030242E+00 2.346406E+00 -5.000000E-01 -5.602075E+00 -1.151222E+00 7.437060E-01 80.7606 -1.030242E+00 -5.723054E+00 2.346406E+00 * * * END OF JOB * * * 1 JOB TITLE = 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE DATE: 5/17/95 END TIME: 14:35:19 TOTAL WALL CLOCK TIME 4 SEC. ================================================ FILE: demoout/d01051a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01051A,NASTRAN TIME 35 APP DISP SOL 1,1 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 $ 2 TITLE = NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION 3 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 4 LOAD = 15 5 AXISYM = COSINE 6 OUTPUT 7 SET 1 = 5,10,15,20,25,30,35,40,45,50,100,200 8 SET 2 = 1,6,11,16,21,26,31,36,41,46,50 9 DISP = 1 10 ELFORCE = 2 11 HARMONICS = ALL 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 148, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AXIC 20 2- CCONEAX 1 15 100 1 3- CCONEAX 2 15 1 2 4- CCONEAX 3 15 2 3 5- CCONEAX 4 15 3 4 6- CCONEAX 5 15 4 5 7- CCONEAX 6 15 5 6 8- CCONEAX 7 15 6 7 9- CCONEAX 8 15 7 8 10- CCONEAX 9 15 8 9 11- CCONEAX 10 15 9 10 12- CCONEAX 11 15 10 11 13- CCONEAX 12 15 11 12 14- CCONEAX 13 15 12 13 15- CCONEAX 14 15 13 14 16- CCONEAX 15 15 14 15 17- CCONEAX 16 15 15 16 18- CCONEAX 17 15 16 17 19- CCONEAX 18 15 17 18 20- CCONEAX 19 15 18 19 21- CCONEAX 20 15 19 20 22- CCONEAX 21 15 20 21 23- CCONEAX 22 15 21 22 24- CCONEAX 23 15 22 23 25- CCONEAX 24 15 23 24 26- CCONEAX 25 15 24 25 27- CCONEAX 26 15 25 26 28- CCONEAX 27 15 26 27 29- CCONEAX 28 15 27 28 30- CCONEAX 29 15 28 29 31- CCONEAX 30 15 29 30 32- CCONEAX 31 15 30 31 33- CCONEAX 32 15 31 32 34- CCONEAX 33 15 32 33 35- CCONEAX 34 15 33 34 36- CCONEAX 35 15 34 35 37- CCONEAX 36 15 35 36 38- CCONEAX 37 15 36 37 39- CCONEAX 38 15 37 38 40- CCONEAX 39 15 38 39 41- CCONEAX 40 15 39 40 42- CCONEAX 41 15 40 41 43- CCONEAX 42 15 41 42 44- CCONEAX 43 15 42 43 45- CCONEAX 44 15 43 44 46- CCONEAX 45 15 44 45 47- CCONEAX 46 15 45 46 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CCONEAX 47 15 46 47 49- CCONEAX 48 15 47 48 50- CCONEAX 49 15 48 49 51- CCONEAX 50 15 49 50 52- MAT1 15 91.0 .3 .5 53- MOMAX 15 50 0 157.0796 2.0 54- MOMAX 15 50 1 157.0796 1.0 55- MOMAX 15 50 2 157.0796 1.0 56- MOMAX 15 50 3 157.0796 1.0 57- MOMAX 15 50 4 157.0796 1.0 58- MOMAX 15 50 5 157.0796 1.0 59- MOMAX 15 50 6 157.0796 1.0 60- MOMAX 15 50 7 157.0796 1.0 61- MOMAX 15 50 8 157.0796 1.0 62- MOMAX 15 50 9 157.0796 1.0 63- MOMAX 15 50 10 157.0796 1.0 64- MOMAX 15 50 11 157.0796 1.0 65- MOMAX 15 50 12 157.0796 1.0 66- MOMAX 15 50 13 157.0796 1.0 67- MOMAX 15 50 14 157.0796 1.0 68- MOMAX 15 50 15 157.0796 1.0 69- MOMAX 15 50 16 157.0796 1.0 70- MOMAX 15 50 17 157.0796 1.0 71- MOMAX 15 50 18 157.0796 1.0 72- MOMAX 15 50 19 157.0796 1.0 73- MOMAX 15 50 20 157.0796 1.0 74- MOMAX 15 100 0 157.0796 -2.0 75- MOMAX 15 100 1 157.0796 -1.0 76- MOMAX 15 100 2 157.0796 -1.0 77- MOMAX 15 100 3 157.0796 -1.0 78- MOMAX 15 100 4 157.0796 -1.0 79- MOMAX 15 100 5 157.0796 -1.0 80- MOMAX 15 100 6 157.0796 -1.0 81- MOMAX 15 100 7 157.0796 -1.0 82- MOMAX 15 100 8 157.0796 -1.0 83- MOMAX 15 100 9 157.0796 -1.0 84- MOMAX 15 100 10 157.0796 -1.0 85- MOMAX 15 100 11 157.0796 -1.0 86- MOMAX 15 100 12 157.0796 -1.0 87- MOMAX 15 100 13 157.0796 -1.0 88- MOMAX 15 100 14 157.0796 -1.0 89- MOMAX 15 100 15 157.0796 -1.0 90- MOMAX 15 100 16 157.0796 -1.0 91- MOMAX 15 100 17 157.0796 -1.0 92- MOMAX 15 100 18 157.0796 -1.0 93- MOMAX 15 100 19 157.0796 -1.0 94- MOMAX 15 100 20 157.0796 -1.0 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- PCONEAX 15 15 1.0 15 .083333315 1.0 .5 +PC 96- +PC .0 .5 .0 90. 180. 97- POINTAX 200 100 98- RINGAX 1 50.0 1.0 4 99- RINGAX 2 50.0 2.0 4 100- RINGAX 3 50.0 3. 4 101- RINGAX 4 50.0 4. 4 102- RINGAX 5 50.0 5. 4 103- RINGAX 6 50.0 6. 4 104- RINGAX 7 50.0 7. 4 105- RINGAX 8 50.0 8. 4 106- RINGAX 9 50.0 9. 4 107- RINGAX 10 50.0 10. 4 108- RINGAX 11 50.0 11. 4 109- RINGAX 12 50.0 12. 4 110- RINGAX 13 50.0 13. 4 111- RINGAX 14 50.0 14. 4 112- RINGAX 15 50.0 15. 4 113- RINGAX 16 50.0 16. 4 114- RINGAX 17 50.0 17. 4 115- RINGAX 18 50.0 18. 4 116- RINGAX 19 50.0 19. 4 117- RINGAX 20 50.0 20. 4 118- RINGAX 21 50.0 21. 4 119- RINGAX 22 50.0 22. 4 120- RINGAX 23 50.0 23. 4 121- RINGAX 24 50.0 24. 4 122- RINGAX 25 50.0 25. 4 123- RINGAX 26 50.0 26. 4 124- RINGAX 27 50.0 27. 4 125- RINGAX 28 50.0 28. 4 126- RINGAX 29 50.0 29. 4 127- RINGAX 30 50.0 30. 4 128- RINGAX 31 50.0 31. 4 129- RINGAX 32 50.0 32. 4 130- RINGAX 33 50.0 33. 4 131- RINGAX 34 50.0 34. 4 132- RINGAX 35 50.0 35. 4 133- RINGAX 36 50.0 36. 4 134- RINGAX 37 50.0 37. 4 135- RINGAX 38 50.0 38. 4 136- RINGAX 39 50.0 39. 4 137- RINGAX 40 50.0 40. 4 138- RINGAX 41 50.0 41. 4 139- RINGAX 42 50.0 42. 4 140- RINGAX 43 50.0 43. 4 141- RINGAX 44 50.0 44. 4 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- RINGAX 45 50.0 45. 4 143- RINGAX 46 50.0 46. 4 144- RINGAX 47 50.0 47. 4 145- RINGAX 48 50.0 48. 4 146- RINGAX 49 50.0 49. 4 147- RINGAX 50 50.0 50. 1234 148- RINGAX 100 50.0 .0 1234 ENDDATA 0*** USER WARNING MESSAGE, POTENTIAL SYSTEM FATAL ERROR DUE TO LARGE HARMONIC (LARGER THAN 15) ON 32-BIT WORD MACHINE 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF AXISYMMETRIC SOLID DATA 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 200 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONEAX ELEMENTS (ELEMENT TYPE 35) STARTING WITH ID 1001 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -3.6379900E-15 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 200 0.0 0.0 0.0 0.0 -5.896880E+00 0.0 5 0 -5.602123E-01 0.0 7.240845E-03 0.0 2.196875E-02 0.0 10 0 -2.665145E-01 0.0 1.460390E-02 0.0 6.418888E-02 0.0 15 0 -2.958295E-02 0.0 1.309108E-02 0.0 2.881903E-02 0.0 20 0 4.592609E-02 0.0 7.069997E-03 0.0 5.624009E-03 0.0 25 0 5.537392E-02 0.0 7.589415E-17 0.0 1.717376E-16 0.0 30 0 4.592609E-02 0.0 -7.069997E-03 0.0 -5.624009E-03 0.0 35 0 -2.958295E-02 0.0 -1.309108E-02 0.0 -2.881903E-02 0.0 40 0 -2.665145E-01 0.0 -1.460390E-02 0.0 -6.418888E-02 0.0 45 0 -5.602123E-01 0.0 -7.240845E-03 0.0 -2.196875E-02 0.0 50 0 0.0 0.0 0.0 0.0 3.307119E-01 0.0 100 0 0.0 0.0 0.0 0.0 -3.307119E-01 0.0 5 1 -5.761585E-01 2.171002E-02 7.646895E-03 0.0 1.891554E-02 -1.094837E-02 10 1 -2.949313E-01 3.104102E-02 1.487839E-02 0.0 6.240648E-02 -5.298858E-03 15 1 -6.327514E-02 3.309046E-02 1.321609E-02 0.0 2.836499E-02 -6.357495E-04 20 1 1.164692E-02 3.310905E-02 7.118431E-03 0.0 5.687605E-03 8.836140E-04 25 1 2.139612E-02 3.301223E-02 1.296706E-16 0.0 -6.201636E-17 1.085787E-03 30 1 1.164692E-02 3.310905E-02 -7.118431E-03 0.0 -5.687605E-03 8.836140E-04 35 1 -6.327514E-02 3.309046E-02 -1.321609E-02 0.0 -2.836499E-02 -6.357495E-04 40 1 -2.949313E-01 3.104102E-02 -1.487839E-02 0.0 -6.240648E-02 -5.298858E-03 45 1 -5.761585E-01 2.171002E-02 -7.646895E-03 0.0 -1.891554E-02 -1.094837E-02 50 1 0.0 0.0 0.0 0.0 3.338717E-01 -2.123022E-03 100 1 0.0 0.0 0.0 0.0 -3.338717E-01 -2.123022E-03 5 2 -6.227801E-01 4.272133E-02 8.879352E-03 0.0 9.913349E-03 -2.376496E-02 10 2 -3.788306E-01 6.161175E-02 1.574957E-02 0.0 5.696727E-02 -1.395023E-02 15 2 -1.638495E-01 6.623182E-02 1.364115E-02 0.0 2.679431E-02 -5.286187E-03 20 2 -9.164616E-02 6.662706E-02 7.291997E-03 0.0 5.730168E-03 -2.354266E-03 25 2 -8.138160E-02 6.654514E-02 3.317659E-16 0.0 2.834104E-16 -1.928851E-03 30 2 -9.164616E-02 6.662706E-02 -7.291997E-03 0.0 -5.730168E-03 -2.354266E-03 35 2 -1.638495E-01 6.623182E-02 -1.364115E-02 0.0 -2.679431E-02 -5.286187E-03 40 2 -3.788306E-01 6.161175E-02 -1.574957E-02 0.0 -5.696727E-02 -1.395023E-02 45 2 -6.227801E-01 4.272133E-02 -8.879352E-03 0.0 -9.913349E-03 -2.376496E-02 50 2 0.0 0.0 0.0 0.0 3.430619E-01 -4.396851E-03 100 2 0.0 0.0 0.0 0.0 -3.430619E-01 -4.396851E-03 5 3 -6.949153E-01 6.187053E-02 1.090705E-02 0.0 -4.277630E-03 -3.999237E-02 10 3 -5.113052E-01 9.031871E-02 1.726137E-02 0.0 4.783854E-02 -2.887978E-02 15 3 -3.259107E-01 9.824070E-02 1.443411E-02 0.0 2.364721E-02 -1.764994E-02 20 3 -2.608269E-01 9.958751E-02 7.631449E-03 0.0 5.384665E-03 -1.367553E-02 25 3 -2.508107E-01 9.970948E-02 1.991679E-16 0.0 6.071532E-17 -1.305145E-02 30 3 -2.608269E-01 9.958751E-02 -7.631449E-03 0.0 -5.384665E-03 -1.367553E-02 35 3 -3.259107E-01 9.824070E-02 -1.443411E-02 0.0 -2.364721E-02 -1.764994E-02 40 3 -5.113052E-01 9.031871E-02 -1.726137E-02 0.0 -4.783854E-02 -2.887978E-02 45 3 -6.949153E-01 6.187053E-02 -1.090705E-02 0.0 4.277630E-03 -3.999237E-02 50 3 0.0 0.0 0.0 0.0 3.571041E-01 -6.941441E-03 100 3 0.0 0.0 0.0 0.0 -3.571041E-01 -6.941441E-03 5 4 -7.774271E-01 7.672203E-02 1.334119E-02 0.0 -2.112866E-02 -5.998836E-02 10 4 -6.682619E-01 1.131085E-01 1.902118E-02 0.0 3.609492E-02 -5.113530E-02 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 15 4 -5.228862E-01 1.241799E-01 1.530530E-02 0.0 1.899602E-02 -3.936585E-02 20 4 -4.699032E-01 1.266359E-01 7.980472E-03 0.0 4.471006E-03 -3.503807E-02 25 4 -4.614506E-01 1.270287E-01 1.270143E-16 0.0 -2.705301E-15 -3.433265E-02 30 4 -4.699032E-01 1.266359E-01 -7.980472E-03 0.0 -4.471006E-03 -3.503807E-02 35 4 -5.228862E-01 1.241799E-01 -1.530530E-02 0.0 -1.899602E-02 -3.936585E-02 40 4 -6.682619E-01 1.131085E-01 -1.902118E-02 0.0 -3.609492E-02 -5.113530E-02 45 4 -7.774271E-01 7.672203E-02 -1.334119E-02 0.0 2.112866E-02 -5.998836E-02 50 4 0.0 0.0 0.0 0.0 3.727042E-01 -9.770336E-03 100 4 0.0 0.0 0.0 0.0 -3.727042E-01 -9.770336E-03 5 5 -8.369089E-01 8.328763E-02 1.496641E-02 0.0 -3.466010E-02 -8.111328E-02 10 5 -7.914025E-01 1.222912E-01 1.952992E-02 0.0 2.566624E-02 -7.649974E-02 15 5 -6.817381E-01 1.336280E-01 1.501161E-02 0.0 1.491384E-02 -6.541826E-02 20 5 -6.388470E-01 1.357392E-01 7.646537E-03 0.0 3.820874E-03 -6.105647E-02 25 5 -6.312926E-01 1.359431E-01 -1.239677E-15 0.0 3.014949E-15 -6.027813E-02 30 5 -6.388470E-01 1.357392E-01 -7.646537E-03 0.0 -3.820874E-03 -6.105647E-02 35 5 -6.817381E-01 1.336280E-01 -1.501161E-02 0.0 -1.491384E-02 -6.541826E-02 40 5 -7.914025E-01 1.222912E-01 -1.952992E-02 0.0 -2.566624E-02 -7.649974E-02 45 5 -8.369089E-01 8.328763E-02 -1.496641E-02 0.0 3.466010E-02 -8.111328E-02 50 5 0.0 0.0 0.0 0.0 3.828112E-01 -1.263768E-02 100 5 0.0 0.0 0.0 0.0 -3.828112E-01 -1.263768E-02 5 6 -8.350282E-01 7.923639E-02 1.429522E-02 0.0 -3.776878E-02 -9.745304E-02 10 6 -8.107681E-01 1.126405E-01 1.694013E-02 0.0 2.194637E-02 -9.468113E-02 15 6 -7.104898E-01 1.189940E-01 1.203857E-02 0.0 1.479233E-02 -8.266562E-02 20 6 -6.633447E-01 1.178531E-01 5.798481E-03 0.0 5.014711E-03 -7.701979E-02 25 6 -6.521218E-01 1.169279E-01 -1.589874E-15 0.0 4.479056E-15 -7.567946E-02 30 6 -6.633447E-01 1.178531E-01 -5.798481E-03 0.0 -5.014711E-03 -7.701979E-02 35 6 -7.104898E-01 1.189940E-01 -1.203857E-02 0.0 -1.479233E-02 -8.266562E-02 40 6 -8.107681E-01 1.126405E-01 -1.694013E-02 0.0 -2.194637E-02 -9.468113E-02 45 6 -8.350282E-01 7.923639E-02 -1.429522E-02 0.0 3.776878E-02 -9.745304E-02 50 6 0.0 0.0 0.0 0.0 3.794854E-01 -1.502219E-02 100 6 0.0 0.0 0.0 0.0 -3.794854E-01 -1.502219E-02 5 7 -7.708316E-01 6.817680E-02 1.152903E-02 0.0 -3.022086E-02 -1.051547E-01 10 7 -7.240698E-01 9.068445E-02 1.178754E-02 0.0 2.509840E-02 -9.905618E-02 15 7 -6.067640E-01 8.911392E-02 7.036417E-03 0.0 1.848063E-02 -8.285718E-02 20 7 -5.420821E-01 8.334614E-02 2.869090E-03 0.0 7.828345E-03 -7.393924E-02 25 7 -5.232557E-01 8.089539E-02 -1.195224E-15 0.0 4.123438E-15 -7.135262E-02 30 7 -5.420821E-01 8.334614E-02 -2.869090E-03 0.0 -7.828345E-03 -7.393924E-02 35 7 -6.067640E-01 8.911392E-02 -7.036417E-03 0.0 -1.848063E-02 -8.285718E-02 40 7 -7.240698E-01 9.068445E-02 -1.178754E-02 0.0 -2.509840E-02 -9.905618E-02 45 7 -7.708316E-01 6.817680E-02 -1.152903E-02 0.0 3.022086E-02 -1.051547E-01 50 7 0.0 0.0 0.0 0.0 3.626095E-01 -1.658444E-02 100 7 0.0 0.0 0.0 0.0 -3.626095E-01 -1.658444E-02 5 8 -6.783637E-01 5.592587E-02 8.325203E-03 0.0 -1.835339E-02 -1.058308E-01 10 8 -5.941957E-01 6.788449E-02 6.570717E-03 0.0 2.992040E-02 -9.312271E-02 15 8 -4.564036E-01 5.994575E-02 2.352050E-03 0.0 2.207983E-02 -7.148588E-02 20 8 -3.762371E-01 5.104911E-02 2.479903E-04 0.0 1.013029E-02 -5.890057E-02 25 8 -3.513096E-01 4.766582E-02 -9.016225E-16 0.0 4.406198E-15 -5.499457E-02 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 30 8 -3.762371E-01 5.104911E-02 -2.479903E-04 0.0 -1.013029E-02 -5.890057E-02 35 8 -4.564036E-01 5.994575E-02 -2.352050E-03 0.0 -2.207983E-02 -7.148588E-02 40 8 -5.941957E-01 6.788449E-02 -6.570717E-03 0.0 -2.992040E-02 -9.312271E-02 45 8 -6.783637E-01 5.592587E-02 -8.325203E-03 0.0 1.835339E-02 -1.058308E-01 50 8 0.0 0.0 0.0 0.0 3.392798E-01 -1.745022E-02 100 8 0.0 0.0 0.0 0.0 -3.392798E-01 -1.745022E-02 5 9 -5.846092E-01 4.527576E-02 5.745686E-03 0.0 -7.078635E-03 -1.025902E-01 10 9 -4.697757E-01 4.961263E-02 2.779952E-03 0.0 3.271192E-02 -8.293324E-02 15 9 -3.235339E-01 3.855956E-02 -7.113160E-04 0.0 2.313119E-02 -5.713712E-02 20 9 -2.391887E-01 2.891780E-02 -1.330918E-03 0.0 1.070232E-02 -4.224697E-02 25 9 -2.127255E-01 2.546318E-02 -2.102268E-16 0.0 7.095019E-16 -3.757953E-02 30 9 -2.391887E-01 2.891780E-02 1.330918E-03 0.0 -1.070232E-02 -4.224697E-02 35 9 -3.235339E-01 3.855956E-02 7.113160E-04 0.0 -2.313119E-02 -5.713712E-02 40 9 -4.697757E-01 4.961263E-02 -2.779952E-03 0.0 -3.271192E-02 -8.293324E-02 45 9 -5.846092E-01 4.527576E-02 -5.745686E-03 0.0 7.078635E-03 -1.025902E-01 50 9 0.0 0.0 0.0 0.0 3.151578E-01 -1.787481E-02 100 9 0.0 0.0 0.0 0.0 -3.151578E-01 -1.787481E-02 5 10 -4.995883E-01 3.660928E-02 3.932967E-03 0.0 2.019514E-03 -9.735009E-02 10 10 -3.662125E-01 3.612787E-02 4.825634E-04 0.0 3.291020E-02 -7.187898E-02 15 10 -2.244894E-01 2.452488E-02 -2.222282E-03 0.0 2.175411E-02 -4.411321E-02 20 10 -1.461309E-01 1.578673E-02 -1.960435E-03 0.0 9.799447E-03 -2.873741E-02 25 10 -1.219730E-01 1.281759E-02 -5.128276E-17 0.0 3.295975E-17 -2.399868E-02 30 10 -1.461309E-01 1.578673E-02 1.960435E-03 0.0 -9.799447E-03 -2.873741E-02 35 10 -2.244894E-01 2.452488E-02 2.222282E-03 0.0 -2.175411E-02 -4.411321E-02 40 10 -3.662125E-01 3.612787E-02 -4.825634E-04 0.0 -3.291020E-02 -7.187898E-02 45 10 -4.995883E-01 3.660928E-02 -3.932967E-03 0.0 -2.019514E-03 -9.735009E-02 50 10 0.0 0.0 0.0 0.0 2.924661E-01 -1.802015E-02 100 10 0.0 0.0 0.0 0.0 -2.924661E-01 -1.802015E-02 5 11 -4.254043E-01 2.964958E-02 2.700037E-03 0.0 8.875675E-03 -9.109813E-02 10 11 -2.838721E-01 2.634332E-02 -7.518489E-04 0.0 3.124485E-02 -6.130319E-02 15 11 -1.549072E-01 1.561006E-02 -2.707582E-03 0.0 1.899985E-02 -3.351444E-02 20 11 -8.796706E-02 8.473241E-03 -1.998386E-03 0.0 8.157096E-03 -1.905880E-02 25 11 -6.801096E-02 6.183995E-03 9.334981E-17 0.0 -3.027092E-16 -1.474893E-02 30 11 -8.796706E-02 8.473241E-03 1.998386E-03 0.0 -8.157096E-03 -1.905880E-02 35 11 -1.549072E-01 1.561006E-02 2.707582E-03 0.0 -1.899985E-02 -3.351444E-02 40 11 -2.838721E-01 2.634332E-02 7.518489E-04 0.0 -3.124485E-02 -6.130319E-02 45 11 -4.254043E-01 2.964958E-02 -2.700037E-03 0.0 -8.875675E-03 -9.109813E-02 50 11 0.0 0.0 0.0 0.0 2.718119E-01 -1.797635E-02 100 11 0.0 0.0 0.0 0.0 -2.718119E-01 -1.797635E-02 5 12 -3.617761E-01 2.407600E-02 1.852453E-03 0.0 1.381077E-02 -8.441760E-02 10 12 -2.194866E-01 1.924324E-02 -1.336011E-03 0.0 2.854415E-02 -5.170644E-02 15 12 -1.068965E-01 9.966643E-03 -2.640460E-03 0.0 1.579830E-02 -2.524449E-02 20 12 -5.281071E-02 4.506767E-03 -1.753228E-03 0.0 6.368489E-03 -1.249752E-02 25 12 -3.740108E-02 2.867601E-03 -8.733248E-17 0.0 2.281161E-16 -8.864053E-03 30 12 -5.281071E-02 4.506767E-03 1.753228E-03 0.0 -6.368489E-03 -1.249752E-02 35 12 -1.068965E-01 9.966643E-03 2.640460E-03 0.0 -1.579830E-02 -2.524449E-02 40 12 -2.194866E-01 1.924324E-02 1.336011E-03 0.0 -2.854415E-02 -5.170644E-02 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 45 12 -3.617761E-01 2.407600E-02 -1.852453E-03 0.0 -1.381077E-02 -8.441760E-02 50 12 0.0 0.0 0.0 0.0 2.532832E-01 -1.780255E-02 100 12 0.0 0.0 0.0 0.0 -2.532832E-01 -1.780255E-02 5 13 -3.077220E-01 1.961650E-02 1.256297E-03 0.0 1.719068E-02 -7.768603E-02 10 13 -1.695399E-01 1.408008E-02 -1.551156E-03 0.0 2.540998E-02 -4.325966E-02 15 13 -7.389521E-02 6.377668E-03 -2.328828E-03 0.0 1.271238E-02 -1.891228E-02 20 13 -3.179632E-02 2.378674E-03 -1.417270E-03 0.0 4.758106E-03 -8.159886E-03 25 13 -2.044057E-02 1.266764E-03 1.718460E-17 0.0 1.279359E-17 -5.257055E-03 30 13 -3.179632E-02 2.378674E-03 1.417270E-03 0.0 -4.758106E-03 -8.159886E-03 35 13 -7.389521E-02 6.377668E-03 2.328828E-03 0.0 -1.271238E-02 -1.891228E-02 40 13 -1.695399E-01 1.408008E-02 1.551156E-03 0.0 -2.540998E-02 -4.325966E-02 45 13 -3.077220E-01 1.961650E-02 -1.256297E-03 0.0 -1.719068E-02 -7.768603E-02 50 13 0.0 0.0 0.0 0.0 2.367824E-01 -1.754095E-02 100 13 0.0 0.0 0.0 0.0 -2.367824E-01 -1.754095E-02 5 14 -2.620454E-01 1.604596E-02 8.281480E-04 0.0 1.934786E-02 -7.114168E-02 10 14 -1.309701E-01 1.031892E-02 -1.567084E-03 0.0 2.221631E-02 -3.597721E-02 15 14 -5.119544E-02 4.083515E-03 -1.943715E-03 0.0 1.000459E-02 -1.411383E-02 20 14 -1.924492E-02 1.242475E-03 -1.089019E-03 0.0 3.447118E-03 -5.323359E-03 25 14 -1.114932E-02 5.195738E-04 -1.317306E-17 0.0 4.336809E-17 -3.093233E-03 30 14 -1.924492E-02 1.242475E-03 1.089019E-03 0.0 -3.447118E-03 -5.323359E-03 35 14 -5.119544E-02 4.083515E-03 1.943715E-03 0.0 -1.000459E-02 -1.411383E-02 40 14 -1.309701E-01 1.031892E-02 1.567084E-03 0.0 -2.221631E-02 -3.597721E-02 45 14 -2.620454E-01 1.604596E-02 -8.281480E-04 0.0 -1.934786E-02 -7.114168E-02 50 14 0.0 0.0 0.0 0.0 2.221310E-01 -1.722130E-02 100 14 0.0 0.0 0.0 0.0 -2.221310E-01 -1.722130E-02 5 15 -2.235372E-01 1.318034E-02 5.162609E-04 0.0 2.056481E-02 -6.492334E-02 10 15 -1.012589E-01 7.574738E-03 -1.481249E-03 0.0 1.917417E-02 -2.979007E-02 15 15 -3.555094E-02 2.611756E-03 -1.568969E-03 0.0 7.753859E-03 -1.050236E-02 20 15 -1.171862E-02 6.382932E-04 -8.089597E-04 0.0 2.443124E-03 -3.475692E-03 25 15 -6.083956E-03 1.849518E-04 1.002887E-17 0.0 -3.068292E-17 -1.811567E-03 30 15 -1.171862E-02 6.382932E-04 8.089597E-04 0.0 -2.443124E-03 -3.475692E-03 35 15 -3.555094E-02 2.611756E-03 1.568969E-03 0.0 -7.753859E-03 -1.050236E-02 40 15 -1.012589E-01 7.574738E-03 1.481249E-03 0.0 -1.917417E-02 -2.979007E-02 45 15 -2.235372E-01 1.318034E-02 -5.162609E-04 0.0 -2.056481E-02 -6.492334E-02 50 15 0.0 0.0 0.0 0.0 2.091212E-01 -1.686388E-02 100 15 0.0 0.0 0.0 0.0 -2.091212E-01 -1.686388E-02 5 16 -1.910795E-01 1.087187E-02 2.874261E-04 0.0 2.107297E-02 -5.910239E-02 10 16 -7.839178E-02 5.569051E-03 -1.348363E-03 0.0 1.639038E-02 -2.458825E-02 15 16 -2.474425E-02 1.665856E-03 -1.239510E-03 0.0 5.944951E-03 -7.797729E-03 20 16 -7.178878E-03 3.190267E-04 -5.868569E-04 0.0 1.704258E-03 -2.272741E-03 25 16 -3.325709E-03 4.409392E-05 2.209062E-18 0.0 -1.067939E-17 -1.058147E-03 30 16 -7.178878E-03 3.190267E-04 5.868569E-04 0.0 -1.704258E-03 -2.272741E-03 35 16 -2.474425E-02 1.665856E-03 1.239510E-03 0.0 -5.944951E-03 -7.797729E-03 40 16 -7.839178E-02 5.569051E-03 1.348363E-03 0.0 -1.639038E-02 -2.458825E-02 45 16 -1.910795E-01 1.087187E-02 -2.874261E-04 0.0 -2.107297E-02 -5.910239E-02 50 16 0.0 0.0 0.0 0.0 1.975463E-01 -1.648227E-02 100 16 0.0 0.0 0.0 0.0 -1.975463E-01 -1.648227E-02 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 5 17 -1.636908E-01 9.003812E-03 1.193584E-04 0.0 2.105716E-02 -5.370726E-02 10 17 -6.078759E-02 4.100231E-03 -1.198740E-03 0.0 1.390850E-02 -2.024734E-02 15 17 -1.726177E-02 1.057785E-03 -9.651373E-04 0.0 4.522748E-03 -5.779836E-03 20 17 -4.422826E-03 1.521746E-04 -4.184789E-04 0.0 1.175071E-03 -1.488675E-03 25 17 -1.822442E-03 -8.932097E-06 2.649519E-18 0.0 -8.700722E-18 -6.172227E-04 30 17 -4.422826E-03 1.521746E-04 4.184789E-04 0.0 -1.175071E-03 -1.488675E-03 35 17 -1.726177E-02 1.057785E-03 9.651373E-04 0.0 -4.522748E-03 -5.779836E-03 40 17 -6.078759E-02 4.100231E-03 1.198740E-03 0.0 -1.390850E-02 -2.024734E-02 45 17 -1.636908E-01 9.003812E-03 -1.193584E-04 0.0 -2.105716E-02 -5.370726E-02 50 17 0.0 0.0 0.0 0.0 1.872158E-01 -1.608553E-02 100 17 0.0 0.0 0.0 0.0 -1.872158E-01 -1.608553E-02 5 18 -1.405349E-01 7.484792E-03 -3.512256E-06 0.0 2.066229E-02 -4.874032E-02 10 18 -4.722084E-02 3.022328E-03 -1.048865E-03 0.0 1.173519E-02 -1.664406E-02 15 18 -1.206872E-02 6.673530E-04 -7.439200E-04 0.0 3.421140E-03 -4.278642E-03 20 18 -2.738986E-03 6.660681E-05 -2.946073E-04 0.0 8.032274E-04 -9.767350E-04 25 18 -1.001494E-03 -2.417023E-05 2.236167E-19 0.0 -2.032879E-18 -3.598296E-04 30 18 -2.738986E-03 6.660681E-05 2.946073E-04 0.0 -8.032274E-04 -9.767350E-04 35 18 -1.206872E-02 6.673530E-04 7.439200E-04 0.0 -3.421140E-03 -4.278642E-03 40 18 -4.722084E-02 3.022328E-03 1.048865E-03 0.0 -1.173519E-02 -1.664406E-02 45 18 -1.405349E-01 7.484792E-03 3.512256E-06 0.0 -2.066229E-02 -4.874032E-02 50 18 0.0 0.0 0.0 0.0 1.779618E-01 -1.567976E-02 100 18 0.0 0.0 0.0 0.0 -1.779618E-01 -1.567976E-02 5 19 -1.209118E-01 6.243576E-03 -9.241024E-05 0.0 2.000046E-02 -4.418882E-02 10 19 -3.674946E-02 2.229672E-03 -9.073571E-04 0.0 9.856595E-03 -1.366446E-02 15 19 -8.456136E-03 4.173083E-04 -5.692229E-04 0.0 2.576734E-03 -3.164292E-03 20 19 -1.704113E-03 2.408993E-05 -2.053787E-04 0.0 5.455060E-04 -6.418306E-04 25 19 -5.519878E-04 -2.455087E-05 -1.131636E-18 0.0 3.943785E-18 -2.097680E-04 30 19 -1.704113E-03 2.408993E-05 2.053787E-04 0.0 -5.455060E-04 -6.418306E-04 35 19 -8.456136E-03 4.173083E-04 5.692229E-04 0.0 -2.576734E-03 -3.164292E-03 40 19 -3.674946E-02 2.229672E-03 9.073571E-04 0.0 -9.856595E-03 -1.366446E-02 45 19 -1.209118E-01 6.243576E-03 9.241024E-05 0.0 -2.000046E-02 -4.418882E-02 50 19 0.0 0.0 0.0 0.0 1.696391E-01 -1.526912E-02 100 19 0.0 0.0 0.0 0.0 -1.696391E-01 -1.526912E-02 5 20 -1.042404E-01 5.224598E-03 -1.556100E-04 0.0 1.915754E-02 -4.003173E-02 10 20 -2.865249E-02 1.645662E-03 -7.783295E-04 0.0 8.248383E-03 -1.120737E-02 15 20 -5.937218E-03 2.578173E-04 -4.331797E-04 0.0 1.934342E-03 -2.338477E-03 20 20 -1.064654E-03 4.083483E-06 -1.420841E-04 0.0 3.686680E-04 -4.223336E-04 25 20 -3.051434E-04 -2.012450E-05 3.371191E-19 0.0 -6.166400E-19 -1.223255E-04 30 20 -1.064654E-03 4.083483E-06 1.420841E-04 0.0 -3.686680E-04 -4.223336E-04 35 20 -5.937218E-03 2.578173E-04 4.331797E-04 0.0 -1.934342E-03 -2.338477E-03 40 20 -2.865249E-02 1.645662E-03 7.783295E-04 0.0 -8.248383E-03 -1.120737E-02 45 20 -1.042404E-01 5.224598E-03 1.556100E-04 0.0 -1.915754E-02 -4.003173E-02 50 20 0.0 0.0 0.0 0.0 1.621242E-01 -1.485651E-02 100 20 0.0 0.0 0.0 0.0 -1.621242E-01 -1.485651E-02 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 F O R C E S I N A X I S - S Y M M E T R I C C O N I C A L S H E L L E L E M E N T S (CCONEAX) ELEMENT HARMONIC POINT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. NUMBER ANGLE V U V U 1 0 9.071273E-01 2.721384E-01 0.0 1.808777E-01 0.0 1 1 9.084988E-01 2.731012E-01 2.317262E-02 1.804571E-01 -2.421218E-02 1 2 9.125664E-01 2.760531E-01 4.803424E-02 1.792045E-01 -5.075264E-02 1 3 9.190149E-01 2.811075E-01 7.593663E-02 1.771903E-01 -8.146164E-02 1 4 9.265556E-01 2.881004E-01 1.070604E-01 1.747727E-01 -1.165138E-01 1 5 9.318886E-01 2.959521E-01 1.387170E-01 1.729665E-01 -1.520579E-01 1 6 9.310224E-01 3.027056E-01 1.651555E-01 1.734104E-01 -1.800231E-01 1 7 9.238057E-01 3.073471E-01 1.826149E-01 1.771374E-01 -1.952508E-01 1 8 9.136355E-01 3.105246E-01 1.924800E-01 1.838961E-01 -1.998232E-01 1 9 9.029766E-01 3.130297E-01 1.975738E-01 1.929932E-01 -1.977893E-01 1 10 8.924997E-01 3.151410E-01 1.996851E-01 2.038078E-01 -1.917107E-01 1 11 8.822167E-01 3.169009E-01 1.998052E-01 2.158339E-01 -1.830092E-01 1 12 8.720658E-01 3.183288E-01 1.985817E-01 2.286515E-01 -1.726096E-01 1 13 8.620284E-01 3.194592E-01 1.964752E-01 2.419341E-01 -1.611642E-01 1 14 8.521100E-01 3.203344E-01 1.938090E-01 2.554410E-01 -1.491282E-01 1 15 8.423238E-01 3.209918E-01 1.908024E-01 2.690051E-01 -1.368080E-01 1 16 8.326806E-01 3.214617E-01 1.876002E-01 2.825096E-01 -1.244055E-01 1 17 8.231866E-01 3.217669E-01 1.842983E-01 2.958736E-01 -1.120529E-01 1 18 8.138462E-01 3.219258E-01 1.809590E-01 3.090404E-01 -9.983709E-02 1 19 8.046588E-01 3.219519E-01 1.776242E-01 3.219707E-01 -8.781514E-02 1 20 7.956250E-01 3.218566E-01 1.743215E-01 3.346379E-01 -7.602471E-02 1 0.0000 1.845033E+01 6.440178E+00 0.0 4.751611E+00 0.0 1 90.0000 8.456448E-01 2.962504E-01 -8.654614E-02 2.644415E-01 3.706797E-02 1 180.0000 8.491355E-01 2.969619E-01 -7.313687E-09 2.608877E-01 -1.570370E-07 6 0 2.174275E-01 6.522825E-02 0.0 9.202290E-02 0.0 6 1 2.193124E-01 6.741084E-02 -4.021686E-03 9.167290E-02 4.006684E-03 6 2 2.248192E-01 7.453474E-02 -5.991027E-03 9.058094E-02 8.409590E-03 6 3 2.333187E-01 8.811504E-02 -4.099965E-03 8.866501E-02 1.364410E-02 6 4 2.429558E-01 1.095536E-01 2.371728E-03 8.587837E-02 2.013028E-02 6 5 2.495200E-01 1.373235E-01 1.108077E-02 8.236504E-02 2.794671E-02 6 6 2.476348E-01 1.645642E-01 1.613718E-02 7.860374E-02 3.632665E-02 6 7 2.358413E-01 1.840732E-01 1.376793E-02 7.513046E-02 4.398119E-02 6 8 2.174038E-01 1.947746E-01 6.075740E-03 7.212830E-02 5.014372E-02 6 9 1.958688E-01 1.989802E-01 -3.368914E-03 6.949425E-02 5.468297E-02 6 10 1.734016E-01 1.986504E-01 -1.257360E-02 6.704903E-02 5.770111E-02 6 11 1.513120E-01 1.950350E-01 -2.076909E-02 6.463718E-02 5.937970E-02 6 12 1.304335E-01 1.890653E-01 -2.770174E-02 6.215286E-02 5.994129E-02 6 13 1.112503E-01 1.814961E-01 -3.332743E-02 5.954027E-02 5.961084E-02 6 14 9.398319E-02 1.729202E-01 -3.770334E-02 5.679417E-02 5.859423E-02 6 15 7.867259E-02 1.637821E-01 -4.093978E-02 5.393505E-02 5.706227E-02 6 16 6.524979E-02 1.544022E-01 -4.317120E-02 5.099916E-02 5.515486E-02 6 17 5.358577E-02 1.450073E-01 -4.453814E-02 4.802513E-02 5.298269E-02 6 18 4.352294E-02 1.357555E-01 -4.517621E-02 4.505444E-02 5.063307E-02 6 19 3.489655E-02 1.267552E-01 -4.521035E-02 4.211974E-02 4.817510E-02 6 20 2.754398E-02 1.180795E-01 -4.475245E-02 3.925037E-02 4.566264E-02 6 0.0000 3.247954E+00 3.065507E+00 0.0 1.416099E+00 0.0 6 90.0000 1.176525E-01 8.467839E-02 2.307583E-02 6.434962E-02 -2.301238E-02 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 F O R C E S I N A X I S - S Y M M E T R I C C O N I C A L S H E L L E L E M E N T S (CCONEAX) ELEMENT HARMONIC POINT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. NUMBER ANGLE V U V U 6 180.0000 1.207978E-01 8.955002E-02 8.741171E-08 6.492925E-02 -1.353741E-08 11 0 -4.455906E-02 -1.336774E-02 0.0 1.630640E-02 0.0 11 1 -4.204887E-02 -1.190503E-02 -7.074006E-03 1.662683E-02 -8.984730E-04 11 2 -3.446770E-02 -6.453559E-03 -1.299156E-02 1.749516E-02 -1.360551E-03 11 3 -2.183133E-02 5.933970E-03 -1.654045E-02 1.864338E-02 -8.028150E-04 11 4 -4.969776E-03 2.863924E-02 -1.692307E-02 1.969337E-02 1.505673E-03 11 5 1.289251E-02 6.087524E-02 -1.536557E-02 2.030945E-02 5.936027E-03 11 6 2.594665E-02 9.270798E-02 -1.587972E-02 2.039909E-02 1.151037E-02 11 7 3.058806E-02 1.124496E-01 -2.087370E-02 2.001762E-02 1.628244E-02 11 8 2.850944E-02 1.186364E-01 -2.798671E-02 1.917839E-02 1.924169E-02 11 9 2.308977E-02 1.161444E-01 -3.400183E-02 1.789570E-02 2.053583E-02 11 10 1.667348E-02 1.090980E-01 -3.760266E-02 1.628304E-02 2.060103E-02 11 11 1.053397E-02 9.981355E-02 -3.886303E-02 1.449680E-02 1.982003E-02 11 12 5.285218E-03 8.961345E-02 -3.833091E-02 1.266718E-02 1.850039E-02 11 13 1.140714E-03 7.932030E-02 -3.658426E-02 1.089239E-02 1.688337E-02 11 14 -1.918286E-03 6.944638E-02 -3.409472E-02 9.236813E-03 1.514655E-02 11 15 -4.026771E-03 6.028702E-02 -3.121104E-02 7.734060E-03 1.341122E-02 11 16 -5.360521E-03 5.198623E-02 -2.817813E-02 6.401420E-03 1.175421E-02 11 17 -6.094858E-03 4.458847E-02 -2.516130E-02 5.241394E-03 1.021910E-02 11 18 -6.385446E-03 3.807651E-02 -2.226730E-02 4.247189E-03 8.826837E-03 11 19 -6.360620E-03 3.239767E-02 -1.956081E-02 3.406942E-03 7.583842E-03 11 20 -6.122295E-03 2.748124E-02 -1.707678E-02 2.705276E-03 6.487072E-03 11 0.0000 -2.948573E-02 1.205769E+00 0.0 2.798779E-01 0.0 11 90.0000 -2.706571E-02 1.134258E-04 8.862025E-03 9.290744E-03 -3.618847E-03 11 180.0000 -2.525088E-02 5.958887E-03 -1.002244E-09 9.348750E-03 6.719461E-09 16 0 -6.225514E-02 -1.867656E-02 0.0 -6.983310E-03 0.0 16 1 -6.097022E-02 -1.823527E-02 -2.943521E-03 -6.536126E-03 -1.054344E-03 16 2 -5.673656E-02 -1.557159E-02 -5.590694E-03 -5.260468E-03 -1.876198E-03 16 3 -4.855633E-02 -6.843999E-03 -7.451825E-03 -3.357887E-03 -1.980931E-03 16 4 -3.559771E-02 1.276074E-02 -8.028701E-03 -1.166344E-03 -5.509853E-04 16 5 -1.941526E-02 4.324083E-02 -7.915229E-03 9.365082E-04 2.954602E-03 16 6 -5.592078E-03 7.277322E-02 -9.506822E-03 2.664566E-03 7.431030E-03 16 7 1.089469E-03 8.697607E-02 -1.401490E-02 3.812790E-03 1.058865E-02 16 8 1.772493E-03 8.521000E-02 -1.926059E-02 4.257202E-03 1.154387E-02 16 9 -7.390976E-06 7.526027E-02 -2.274129E-02 4.046440E-03 1.096863E-02 16 10 -2.039194E-03 6.312601E-02 -2.373163E-02 3.407478E-03 9.691179E-03 16 11 -3.526941E-03 5.151400E-02 -2.271922E-02 2.598047E-03 8.207738E-03 16 12 -4.346989E-03 4.134335E-02 -2.050427E-02 1.804829E-03 6.760627E-03 16 13 -4.612014E-03 3.280137E-02 -1.776528E-02 1.128316E-03 5.458057E-03 16 14 -4.488487E-03 2.579966E-02 -1.495488E-02 6.026030E-04 4.339367E-03 16 15 -4.128817E-03 2.015376E-02 -1.232940E-02 2.224445E-04 3.408626E-03 16 16 -3.650323E-03 1.565570E-02 -1.000902E-02 -3.403425E-05 2.651870E-03 16 17 -3.134208E-03 1.210545E-02 -8.030545E-03 -1.938045E-04 2.047233E-03 16 18 -2.631681E-03 9.324059E-03 -6.384629E-03 -2.823174E-04 1.570553E-03 16 19 -2.171409E-03 7.158139E-03 -5.039388E-03 -3.209412E-04 1.198679E-03 16 20 -1.766786E-03 5.479849E-03 -3.954296E-03 -3.265738E-04 9.109806E-04 16 0.0000 -3.227656E-01 6.013551E-01 0.0 1.019418E-03 0.0 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 F O R C E S I N A X I S - S Y M M E T R I C C O N I C A L S H E L L E L E M E N T S (CCONEAX) ELEMENT HARMONIC POINT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. NUMBER ANGLE V U V U 16 90.0000 -3.435645E-02 -1.367833E-02 2.158837E-03 -3.580096E-03 -1.048574E-03 16 180.0000 -3.189934E-02 -6.906177E-03 -1.085947E-08 -3.652155E-03 9.795545E-09 21 0 -2.883520E-02 -8.650560E-03 0.0 -5.781174E-03 0.0 21 1 -2.883300E-02 -8.791633E-03 -5.350758E-04 -5.553991E-03 -3.465498E-04 21 2 -2.824527E-02 -7.790832E-03 -1.093459E-03 -4.893780E-03 -6.326549E-04 21 3 -2.541539E-02 -1.469405E-03 -1.563117E-03 -3.874302E-03 -4.925877E-04 21 4 -1.835778E-02 1.564927E-02 -1.743659E-03 -2.643585E-03 8.804798E-04 21 5 -7.373683E-03 4.395555E-02 -1.871824E-03 -1.394272E-03 4.083276E-03 21 6 2.380535E-03 7.054955E-02 -3.009379E-03 -2.880096E-04 7.928371E-03 21 7 5.823240E-03 7.970589E-02 -5.588800E-03 5.178452E-04 9.981513E-03 21 8 4.207671E-03 7.181197E-02 -8.349150E-03 9.117126E-04 9.576797E-03 21 9 1.328655E-03 5.683737E-02 -9.972155E-03 9.188652E-04 7.829309E-03 21 10 -8.013062E-04 4.195441E-02 -1.016760E-02 6.771088E-04 5.840689E-03 21 11 -1.863737E-03 2.983691E-02 -9.314485E-03 3.511906E-04 4.132092E-03 21 12 -2.155188E-03 2.079872E-02 -7.927872E-03 5.483627E-05 2.832323E-03 21 13 -2.024822E-03 1.434269E-02 -6.407034E-03 -1.621842E-04 1.904011E-03 21 14 -1.717281E-03 9.833449E-03 -4.988074E-03 -2.910495E-04 1.264125E-03 21 15 -1.371160E-03 6.721086E-03 -3.777970E-03 -3.471673E-04 8.322671E-04 21 16 -1.052654E-03 4.586243E-03 -2.802946E-03 -3.521144E-04 5.446039E-04 21 17 -7.864214E-04 3.126659E-03 -2.047056E-03 -3.260076E-04 3.546551E-04 21 18 -5.760142E-04 2.130409E-03 -1.476898E-03 -2.843663E-04 2.299864E-04 21 19 -4.156432E-04 1.450997E-03 -1.055415E-03 -2.377294E-04 1.485599E-04 21 20 -2.964608E-04 9.878844E-04 -7.485328E-04 -1.925174E-04 9.559095E-05 21 0.0000 -1.363809E-01 4.475766E-01 0.0 -2.319069E-02 0.0 21 90.0000 -1.753027E-02 -1.149350E-02 4.666305E-04 -2.922746E-03 -7.771379E-04 21 180.0000 -1.451698E-02 -3.855605E-03 -4.955657E-09 -2.975186E-03 1.229171E-08 26 0 -1.595008E-02 -4.785024E-03 0.0 6.781816E-04 0.0 26 1 -1.634900E-02 -5.069200E-03 2.866425E-05 6.469488E-04 -8.988194E-05 26 2 -1.691572E-02 -4.488793E-03 6.564241E-05 5.548000E-04 -1.690872E-04 26 3 -1.582326E-02 1.193346E-03 1.029745E-04 4.057884E-04 8.995831E-05 26 4 -1.076375E-02 1.760245E-02 1.203567E-04 2.145767E-04 1.483023E-03 26 5 -1.665305E-03 4.521585E-02 1.430809E-04 1.525879E-05 4.615426E-03 26 6 6.473951E-03 7.082117E-02 2.849698E-04 -1.239777E-04 8.271575E-03 26 7 8.547606E-03 7.834256E-02 5.860627E-04 -1.516342E-04 9.983659E-03 26 8 5.902356E-03 6.854293E-02 8.975565E-04 -7.820129E-05 9.167254E-03 26 9 2.426979E-03 5.208583E-02 1.070753E-03 3.528595E-05 7.080913E-03 26 10 5.678274E-05 3.648443E-02 1.077965E-03 1.428127E-04 4.907489E-03 26 11 -1.054971E-03 2.435862E-02 9.679124E-04 2.169609E-04 3.166229E-03 26 12 -1.342183E-03 1.579269E-02 8.027293E-04 2.530813E-04 1.941040E-03 26 13 -1.225941E-03 1.005095E-02 6.288104E-04 2.569556E-04 1.143336E-03 26 14 -9.710653E-04 6.320223E-03 4.721815E-04 2.391040E-04 6.505400E-04 26 15 -7.092968E-04 3.942695E-03 3.433311E-04 2.091825E-04 3.578402E-04 26 16 -4.915470E-04 2.446324E-03 2.434403E-04 1.748353E-04 1.896657E-04 26 17 -3.283007E-04 1.512267E-03 1.691743E-04 1.410060E-04 9.598397E-05 26 18 -2.133578E-04 9.324473E-04 1.156493E-04 1.105461E-04 4.547229E-05 26 19 -1.357631E-04 5.738909E-04 7.798598E-05 8.466840E-05 1.927326E-05 26 20 -8.494901E-05 3.527506E-04 5.198340E-05 6.359722E-05 6.369082E-06 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 F O R C E S I N A X I S - S Y M M E T R I C C O N I C A L S H E L L E L E M E N T S (CCONEAX) ELEMENT HARMONIC POINT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. NUMBER ANGLE V U V U 26 0.0000 -6.061681E-02 4.222284E-01 0.0 4.089777E-03 0.0 26 90.0000 -1.116074E-02 -1.011738E-02 -3.778302E-05 3.827856E-04 -7.711764E-04 26 180.0000 -7.982310E-03 -2.185213E-03 5.433367E-10 3.689351E-04 1.305099E-08 31 0 -3.486022E-02 -1.045807E-02 0.0 6.788373E-03 0.0 31 1 -3.466041E-02 -1.052260E-02 8.161333E-04 6.498024E-03 -4.686052E-04 31 2 -3.350635E-02 -9.299386E-03 1.631652E-03 5.653858E-03 -8.515939E-04 31 3 -2.983131E-02 -2.645824E-03 2.287939E-03 4.349232E-03 -7.646084E-04 31 4 -2.181404E-02 1.483269E-02 2.533212E-03 2.760887E-03 6.033778E-04 31 5 -9.941339E-03 4.347802E-02 2.663970E-03 1.146317E-03 3.843546E-03 31 6 5.567521E-04 7.054527E-02 3.988445E-03 -2.155304E-04 7.781744E-03 31 7 4.621282E-03 8.049001E-02 7.057160E-03 -1.082420E-03 1.000130E-02 31 8 3.468812E-03 7.352583E-02 1.037019E-02 -1.365662E-03 9.799242E-03 31 9 8.505210E-04 5.928721E-02 1.234330E-02 -1.175404E-03 8.221209E-03 31 10 -1.186229E-03 4.477670E-02 1.261473E-02 -7.290840E-04 6.328940E-03 31 11 -2.245102E-03 3.268718E-02 1.162241E-02 -2.317429E-04 4.642457E-03 31 12 -2.556700E-03 2.343766E-02 9.972297E-03 1.862049E-04 3.311083E-03 31 13 -2.434727E-03 1.664308E-02 8.139260E-03 4.752874E-04 2.321422E-03 31 14 -2.113298E-03 1.175376E-02 6.408861E-03 6.362200E-04 1.609564E-03 31 15 -1.733853E-03 8.273603E-03 4.915098E-03 6.943047E-04 1.107294E-03 31 16 -1.370120E-03 5.811299E-03 3.695858E-03 6.813705E-04 7.572472E-04 31 17 -1.054250E-03 4.075290E-03 2.737555E-03 6.255358E-04 5.153548E-04 31 18 -7.953211E-04 2.854140E-03 2.004180E-03 5.483851E-04 3.492460E-04 31 19 -5.909288E-04 1.996571E-03 1.453808E-03 4.647709E-04 2.357764E-04 31 20 -4.338156E-04 1.395146E-03 1.046806E-03 3.838055E-04 1.586070E-04 31 0.0000 -1.716306E-01 4.629376E-01 0.0 2.709273E-02 0.0 31 90.0000 -2.052164E-02 -1.208597E-02 -6.361841E-04 3.541132E-03 -7.892873E-04 31 180.0000 -1.759041E-02 -4.587492E-03 6.258055E-09 3.564924E-03 1.191286E-08 36 0 -6.700876E-02 -2.010262E-02 0.0 5.230308E-03 0.0 36 1 -6.541926E-02 -1.948351E-02 3.728910E-03 4.759550E-03 -1.172348E-03 36 2 -6.033200E-02 -1.632300E-02 7.030161E-03 3.419876E-03 -2.067588E-03 36 3 -5.093929E-02 -6.906852E-03 9.292625E-03 1.433372E-03 -2.173811E-03 36 4 -3.672612E-02 1.335718E-02 9.951591E-03 -8.468628E-04 -6.786585E-04 36 5 -1.957577E-02 4.433903E-02 9.698659E-03 -3.011703E-03 2.936125E-03 36 6 -5.153015E-03 7.452305E-02 1.122743E-02 -4.751205E-03 7.587433E-03 36 7 1.903698E-03 8.994348E-02 1.595595E-02 -5.843163E-03 1.103389E-02 36 8 2.767831E-03 8.974579E-02 2.161008E-02 -6.164551E-03 1.235008E-02 36 9 9.232759E-04 8.115906E-02 2.550504E-02 -5.784988E-03 1.209933E-02 36 10 -1.381114E-03 6.985578E-02 2.680950E-02 -4.940987E-03 1.103640E-02 36 11 -3.240943E-03 5.851232E-02 2.597274E-02 -3.900051E-03 9.643555E-03 36 12 -4.430830E-03 4.816733E-02 2.379353E-02 -2.862930E-03 8.184314E-03 36 13 -5.001858E-03 3.916032E-02 2.096853E-02 -1.944304E-03 6.798506E-03 36 14 -5.097091E-03 3.153459E-02 1.797823E-02 -1.190782E-03 5.555436E-03 36 15 -4.870165E-03 2.520189E-02 1.510913E-02 -6.084442E-04 4.481718E-03 36 16 -4.451774E-03 2.001775E-02 1.250912E-02 -1.813173E-04 3.579110E-03 36 17 -3.940590E-03 1.582029E-02 1.023782E-02 1.159906E-04 2.835326E-03 36 18 -3.404548E-03 1.245099E-02 8.302953E-03 3.098845E-04 2.231576E-03 36 19 -2.886595E-03 9.764994E-03 6.684339E-03 4.250705E-04 1.747128E-03 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 F O R C E S I N A X I S - S Y M M E T R I C C O N I C A L S H E L L E L E M E N T S (CCONEAX) ELEMENT HARMONIC POINT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. NUMBER ANGLE V U V U 36 20 -2.411161E-03 7.635650E-03 5.348629E-03 4.822016E-04 1.361962E-03 36 0.0000 -3.406761E-01 6.683735E-01 0.0 -2.585503E-02 0.0 36 90.0000 -3.689305E-02 -1.322038E-02 -2.875794E-03 2.810066E-03 -1.235535E-03 36 180.0000 -3.458108E-02 -6.648534E-03 1.141980E-08 2.862304E-03 9.186866E-09 41 0 -2.002168E-02 -6.006479E-03 0.0 -2.667999E-02 0.0 41 1 -1.744604E-02 -4.332379E-03 7.591940E-03 -2.689362E-02 -4.728064E-04 41 2 -9.729564E-03 1.669571E-03 1.381838E-02 -2.745056E-02 -4.872978E-04 41 3 2.925456E-03 1.469223E-02 1.731086E-02 -2.810955E-02 5.375743E-04 41 4 1.938829E-02 3.774308E-02 1.724130E-02 -2.853394E-02 3.291309E-03 41 5 3.614223E-02 6.985441E-02 1.501721E-02 -2.846909E-02 8.093834E-03 41 6 4.740936E-02 1.015915E-01 1.501095E-02 -2.792358E-02 1.399863E-02 41 7 4.996631E-02 1.220083E-01 1.990420E-02 -2.706146E-02 1.916420E-02 41 8 4.575652E-02 1.295950E-01 2.736875E-02 -2.589607E-02 2.259254E-02 41 9 3.817335E-02 1.286526E-01 3.409368E-02 -2.438736E-02 2.434659E-02 41 10 2.956250E-02 1.228752E-01 3.862581E-02 -2.257061E-02 2.478421E-02 41 11 2.125743E-02 1.144186E-01 4.089206E-02 -2.054214E-02 2.425361E-02 41 12 1.395164E-02 1.046015E-01 4.131539E-02 -1.841450E-02 2.305907E-02 41 13 7.924661E-03 9.430642E-02 4.039016E-02 -1.627970E-02 2.145469E-02 41 14 3.198162E-03 8.412275E-02 3.854579E-02 -1.421094E-02 1.963770E-02 41 15 -3.457963E-04 7.442077E-02 3.612058E-02 -1.226139E-02 1.774931E-02 41 16 -2.883703E-03 6.541077E-02 3.336909E-02 -1.046491E-02 1.588547E-02 41 17 -4.604362E-03 5.719291E-02 3.047741E-02 -8.840203E-03 1.410648E-02 41 18 -5.683564E-03 4.979548E-02 2.757770E-02 -7.394433E-03 1.244760E-02 41 19 -6.273665E-03 4.320183E-02 2.476081E-02 -6.124735E-03 1.092657E-02 41 20 -6.501205E-03 3.736919E-02 2.208629E-02 -5.023539E-03 9.549573E-03 41 0.0000 2.421663E-01 1.443183E+00 0.0 -4.135323E-01 0.0 41 90.0000 -1.506707E-02 8.658437E-03 -1.141805E-02 -1.546280E-02 -5.102447E-03 41 180.0000 -1.327281E-02 1.435192E-02 -7.718418E-09 -1.559383E-02 5.785056E-09 46 0 3.210647E-01 9.631940E-02 0.0 -1.130009E-01 0.0 46 1 3.226164E-01 9.846723E-02 5.823411E-04 -1.125069E-01 6.039858E-03 46 2 3.271245E-01 1.053777E-01 -9.778142E-04 -1.110039E-01 1.241839E-02 46 3 3.339568E-01 1.182584E-01 -6.520450E-03 -1.084614E-01 1.949924E-02 46 4 3.412386E-01 1.381275E-01 -1.667228E-02 -1.049137E-01 2.761567E-02 46 5 3.447446E-01 1.634140E-01 -2.881506E-02 -1.006985E-01 3.679001E-02 46 6 3.392503E-01 1.880817E-01 -3.667277E-02 -9.651947E-02 4.632533E-02 46 7 3.236912E-01 2.060642E-01 -3.620434E-02 -9.307098E-02 5.510652E-02 46 8 3.016250E-01 2.165584E-01 -2.944505E-02 -9.049416E-02 6.246805E-02 46 9 2.765925E-01 2.214886E-01 -2.000925E-02 -8.855534E-02 6.827021E-02 46 10 2.506241E-01 2.224134E-01 -1.000825E-02 -8.695412E-02 7.256901E-02 46 11 2.249182E-01 2.203165E-01 -3.827214E-04 -8.542442E-02 7.549977E-02 46 12 2.002625E-01 2.159527E-01 8.431882E-03 -8.379555E-02 7.724643E-02 46 13 1.771490E-01 2.099543E-01 1.622957E-02 -8.196163E-02 7.800269E-02 46 14 1.558378E-01 2.028317E-01 2.293700E-02 -7.987881E-02 7.795203E-02 46 15 1.364224E-01 1.949765E-01 2.856451E-02 -7.755327E-02 7.725108E-02 46 16 1.188898E-01 1.866795E-01 3.317207E-02 -7.500696E-02 7.603431E-02 46 17 1.031619E-01 1.781538E-01 3.684586E-02 -7.227945E-02 7.441056E-02 46 18 8.912538E-02 1.695551E-01 3.968273E-02 -6.940866E-02 7.247055E-02 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0 F O R C E S I N A X I S - S Y M M E T R I C C O N I C A L S H E L L E L E M E N T S (CCONEAX) ELEMENT HARMONIC POINT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. NUMBER ANGLE V U V U 46 19 7.665125E-02 1.609972E-01 4.178111E-02 -6.643796E-02 7.028902E-02 46 20 6.560507E-02 1.525634E-01 4.323551E-02 -6.340480E-02 6.792796E-02 46 0.0000 4.830552E+00 3.666552E+00 0.0 -1.861331E+00 0.0 46 90.0000 1.867235E-01 1.179412E-01 -2.240466E-02 -8.685108E-02 -3.413220E-02 46 180.0000 1.907435E-01 1.223698E-01 -1.158306E-07 -8.743119E-02 -3.073490E-08 50 0 9.071276E-01 2.721382E-01 0.0 -1.808777E-01 0.0 50 1 9.084994E-01 2.731013E-01 -2.317266E-02 -1.804585E-01 -2.421219E-02 50 2 9.125665E-01 2.760533E-01 -4.803396E-02 -1.791921E-01 -5.075265E-02 50 3 9.190161E-01 2.811075E-01 -7.593659E-02 -1.771054E-01 -8.146163E-02 50 4 9.265559E-01 2.881005E-01 -1.070640E-01 -1.745000E-01 -1.165137E-01 50 5 9.318893E-01 2.959521E-01 -1.387316E-01 -1.723862E-01 -1.520578E-01 50 6 9.310226E-01 3.027056E-01 -1.651870E-01 -1.725173E-01 -1.800233E-01 50 7 9.238050E-01 3.073469E-01 -1.826634E-01 -1.760592E-01 -1.952508E-01 50 8 9.136358E-01 3.105244E-01 -1.925415E-01 -1.827598E-01 -1.998231E-01 50 9 9.029758E-01 3.130298E-01 -1.976459E-01 -1.918502E-01 -1.977893E-01 50 10 8.924991E-01 3.151408E-01 -1.997671E-01 -2.026639E-01 -1.917108E-01 50 11 8.822162E-01 3.169008E-01 -1.998972E-01 -2.146859E-01 -1.830093E-01 50 12 8.720655E-01 3.183285E-01 -1.986840E-01 -2.274952E-01 -1.726096E-01 50 13 8.620275E-01 3.194593E-01 -1.965878E-01 -2.407699E-01 -1.611644E-01 50 14 8.521097E-01 3.203344E-01 -1.939318E-01 -2.542703E-01 -1.491284E-01 50 15 8.423240E-01 3.209918E-01 -1.909351E-01 -2.678297E-01 -1.368081E-01 50 16 8.326805E-01 3.214615E-01 -1.877426E-01 -2.813315E-01 -1.244055E-01 50 17 8.231871E-01 3.217670E-01 -1.844500E-01 -2.946949E-01 -1.120529E-01 50 18 8.138458E-01 3.219258E-01 -1.811198E-01 -3.078632E-01 -9.983715E-02 50 19 8.046587E-01 3.219520E-01 -1.777937E-01 -3.207963E-01 -8.781511E-02 50 20 7.956247E-01 3.218564E-01 -1.744995E-01 -3.334675E-01 -7.602471E-02 50 0.0000 1.845034E+01 6.440178E+00 0.0 -4.733575E+00 0.0 50 90.0000 8.456460E-01 2.962495E-01 8.663784E-02 -2.639249E-01 3.706796E-02 50 180.0000 8.491348E-01 2.969609E-01 7.525472E-09 -2.603023E-01 -1.570365E-07 1 NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. * * * END OF JOB * * * 1 JOB TITLE = NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION DATE: 5/17/95 END TIME: 14:37:26 TOTAL WALL CLOCK TIME 4 SEC. ================================================ FILE: demoout/d01061a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01061A,NASTRAN APP DISP SOL 1,1 TIME 5 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A 0 TRAPEZOIDAL RING ELEMENTS 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = SOLID DISC WITH RADIALLY VARYING THERMAL LOAD 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A 3 LABEL = TRAPEZOIDAL RING ELEMENTS 4 SPC = 16 5 TEMPERATURE(LOAD) = 16 6 OUTPUT 7 SET 1 = 1,3,5,7,9,11,13,15,17,19,21,23,25,26 8 DISP = 1 9 ELSTRESS = ALL 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 50, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A 0 TRAPEZOIDAL RING ELEMENTS 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CTRAPRG 1 1 3 4 2 .0 12 2- CTRAPRG 2 3 5 6 4 .0 12 3- CTRAPRG 3 5 7 8 6 .0 12 4- CTRAPRG 4 7 9 10 8 .0 12 5- CTRAPRG 5 9 11 12 10 .0 12 6- CTRAPRG 6 11 13 14 12 .0 12 7- CTRAPRG 7 13 15 16 14 .0 12 8- CTRAPRG 8 15 17 18 16 .0 12 9- CTRAPRG 9 17 19 20 18 .0 12 10- CTRAPRG 10 19 21 22 20 .0 12 11- CTRAPRG 11 21 23 24 22 .0 12 12- CTRAPRG 12 23 25 26 24 .0 12 13- GRDSET 2456 14- GRID 1 .0 15- GRID 2 .0 .01 16- GRID 3 .005 17- GRID 4 .005 .01 18- GRID 5 .01 19- GRID 6 .01 .01 20- GRID 7 .015 21- GRID 8 .015 .01 22- GRID 9 .02 23- GRID 10 .02 .01 24- GRID 11 .03 25- GRID 12 .03 .01 26- GRID 13 .04 27- GRID 14 .04 .01 28- GRID 15 .05 29- GRID 16 .05 .01 30- GRID 17 .06 31- GRID 18 .06 .01 32- GRID 19 .07 33- GRID 20 .07 .01 34- GRID 21 .08 35- GRID 22 .08 .01 36- GRID 23 .09 37- GRID 24 .09 .01 38- GRID 25 .10 39- GRID 26 .10 .01 40- MAT1 12 1.0+7 .3 .2587-3 1.0-7 .0 41- SPC 16 1 13 .0 2 1 .0 42- TEMP 16 1 100. 2 100. 3 99.75 43- TEMP 16 4 99.75 5 99.0 6 99.0 44- TEMP 16 7 97.75 8 97.75 9 96.0 45- TEMP 16 10 96.0 11 91.0 12 91.0 46- TEMP 16 13 84.0 14 84.0 15 75.0 47- TEMP 16 16 75.0 17 64.0 18 64.0 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A TRAPEZOIDAL RING ELEMENTS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- TEMP 16 19 51.0 20 51.0 21 36.0 49- TEMP 16 22 36.0 23 19.0 24 19.0 50- TEMP 16 25 .0 26 .0 ENDDATA 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A 0 TRAPEZOIDAL RING ELEMENTS 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 4 PROFILE 87 MAX WAVEFRONT 4 AVG WAVEFRONT 3.346 RMS WAVEFRONT 3.425 RMS BANDWIDTH 3.425 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 4 PROFILE 87 MAX WAVEFRONT 4 AVG WAVEFRONT 3.346 RMS WAVEFRONT 3.425 RMS BANDWIDTH 3.425 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 4 4 PROFILE (P) 87 87 MAXIMUM WAVEFRONT (C-MAX) 4 4 AVERAGE WAVEFRONT (C-AVG) 3.346 3.346 RMS WAVEFRONT (C-RMS) 3.425 3.425 RMS BANDWITCH (B-RMS) 3.425 3.425 NUMBER OF GRID POINTS (N) 26 NUMBER OF ELEMENTS (NON-RIGID) 12 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 5 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 61 MATRIX DENSITY, PERCENT 21.893 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRAPRG ELEMENTS (ELEMENT TYPE 37) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -9.8344422E-16 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A 0 TRAPEZOIDAL RING ELEMENTS D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 4.137375E-08 0.0 1.617766E-10 0.0 0.0 0.0 5 G 8.247069E-08 0.0 6.340573E-10 0.0 0.0 0.0 7 G 1.230682E-07 0.0 1.444846E-09 0.0 0.0 0.0 9 G 1.628908E-07 0.0 2.402843E-09 0.0 0.0 0.0 11 G 2.390447E-07 0.0 5.696864E-09 0.0 0.0 0.0 13 G 3.093366E-07 0.0 1.021249E-08 0.0 0.0 0.0 15 G 3.717856E-07 0.0 1.604569E-08 0.0 0.0 0.0 17 G 4.244503E-07 0.0 2.318027E-08 0.0 0.0 0.0 19 G 4.653845E-07 0.0 3.161578E-08 0.0 0.0 0.0 21 G 4.926447E-07 0.0 4.136025E-08 0.0 0.0 0.0 23 G 5.042713E-07 0.0 5.237228E-08 0.0 0.0 0.0 25 G 4.983839E-07 0.0 6.487542E-08 0.0 0.0 0.0 26 G 4.983834E-07 0.0 4.975312E-08 0.0 0.0 0.0 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A 0 TRAPEZOIDAL RING ELEMENTS S T R E S S E S F O R T H E T R A P E Z O I D A L R I N G S ( C T R A P R G ) EL STRESS RADIAL CIRCUMFERENTIAL AXIAL SHEAR ID POINT (X) (THETA) (Z) (ZX) 0 1 1 -2.474039E+01 -2.474039E+01 -2.192230E-01 1.244435E-01 2 -2.430206E+01 -2.430206E+01 -2.976990E-02 1.244488E-01 3 -2.430200E+01 -2.430200E+01 -2.973938E-02 -1.244354E-01 4 -2.474033E+01 -2.474033E+01 -2.191925E-01 -1.244431E-01 5 -2.452119E+01 -2.452119E+01 -1.244965E-01 3.814697E-06 0 2 1 -2.504733E+01 -2.462146E+01 -3.491821E-01 3.632984E-01 2 -2.387700E+01 -2.366411E+01 9.443665E-02 3.633709E-01 3 -2.387636E+01 -2.366364E+01 9.475708E-02 -3.633118E-01 4 -2.504681E+01 -2.462119E+01 -3.489532E-01 -3.633804E-01 5 -2.448849E+01 -2.420467E+01 -1.538391E-01 -3.814697E-06 0 3 1 -2.522168E+01 -2.424036E+01 -4.818726E-01 6.237621E-01 2 -2.327759E+01 -2.262338E+01 2.147980E-01 6.236801E-01 3 -2.327820E+01 -2.262361E+01 2.145233E-01 -6.237564E-01 4 -2.522218E+01 -2.424033E+01 -4.819946E-01 -6.236725E-01 5 -2.427440E+01 -2.348918E+01 -1.581879E-01 0.0 0 4 1 -2.536394E+01 -2.351753E+01 -6.793671E-01 7.369156E-01 2 -2.244048E+01 -2.105571E+01 7.702179E-01 7.369189E-01 3 -2.244044E+01 -2.105569E+01 7.702332E-01 -7.369156E-01 4 -2.536391E+01 -2.351753E+01 -6.793365E-01 -7.369156E-01 5 -2.392694E+01 -2.234435E+01 2.070618E-02 3.814697E-06 0 5 1 -2.714015E+01 -2.306981E+01 -1.243896E+00 1.266930E+00 2 -1.945836E+01 -1.674481E+01 1.370407E+00 1.266830E+00 3 -1.945874E+01 -1.674504E+01 1.370193E+00 -1.266918E+00 4 -2.714052E+01 -2.306996E+01 -1.244034E+00 -1.266819E+00 5 -2.340117E+01 -2.014485E+01 -3.858948E-02 1.907349E-06 0 6 1 -2.734969E+01 -2.012682E+01 -2.011597E+00 1.736679E+00 2 -1.641396E+01 -1.099689E+01 1.977310E+00 1.736687E+00 3 -1.641402E+01 -1.099698E+01 1.977295E+00 -1.736675E+00 4 -2.734969E+01 -2.012691E+01 -2.011642E+00 -1.736683E+00 5 -2.197858E+01 -1.578760E+01 -1.138763E-01 1.907349E-06 0 7 1 -2.697171E+01 -1.552158E+01 -2.547363E+00 2.243439E+00 2 -1.291940E+01 -3.759308E+00 2.531219E+00 2.243369E+00 3 -1.291965E+01 -3.759552E+00 2.531067E+00 -2.243446E+00 4 -2.697198E+01 -1.552176E+01 -2.547516E+00 -2.243385E+00 5 -2.004103E+01 -9.863220E+00 -1.035309E-01 -1.525879E-05 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A 0 TRAPEZOIDAL RING ELEMENTS S T R E S S E S F O R T H E T R A P E Z O I D A L R I N G S ( C T R A P R G ) EL STRESS RADIAL CIRCUMFERENTIAL AXIAL SHEAR ID POINT (X) (THETA) (Z) (ZX) 0 8 1 -2.609064E+01 -9.404114E+00 -3.113571E+00 2.743912E+00 2 -8.908356E+00 4.996979E+00 3.092590E+00 2.744110E+00 3 -8.907654E+00 4.997299E+00 3.092926E+00 -2.743912E+00 4 -2.608997E+01 -9.403931E+00 -3.113312E+00 -2.744110E+00 5 -1.759395E+01 -2.424667E+00 -1.051636E-01 0.0 0 9 1 -2.469951E+01 -1.770630E+00 -3.675034E+00 3.244461E+00 2 -4.389656E+00 1.526368E+01 3.656883E+00 3.244522E+00 3 -4.389366E+00 1.526380E+01 3.656990E+00 -3.244459E+00 4 -2.469925E+01 -1.770493E+00 -3.674927E+00 -3.244526E+00 5 -1.463896E+01 6.526123E+00 -1.034851E-01 -9.536743E-06 0 10 1 -2.279702E+01 7.374870E+00 -4.231956E+00 3.747971E+00 2 6.308899E-01 2.703125E+01 4.204369E+00 3.747760E+00 3 6.300659E-01 2.703085E+01 4.204033E+00 -3.747963E+00 4 -2.279765E+01 7.374596E+00 -4.232201E+00 -3.747763E+00 5 -1.117762E+01 1.698296E+01 -1.082077E-01 -2.861023E-06 0 11 1 -2.041447E+01 1.801181E+01 -4.815056E+00 4.235291E+00 2 6.177742E+00 4.033441E+01 4.836357E+00 4.235104E+00 3 6.177078E+00 4.033403E+01 4.836037E+00 -4.235292E+00 4 -2.041515E+01 1.801149E+01 -4.815300E+00 -4.235102E+00 5 -7.212791E+00 2.895321E+01 -8.361816E-02 1.811981E-05 0 12 1 -1.739876E+01 3.023016E+01 -5.267845E+00 4.808609E+00 2 1.210323E+01 5.496916E+01 4.999410E+00 4.808709E+00 3 1.210345E+01 5.496924E+01 4.999448E+00 -4.808615E+00 4 -1.739862E+01 3.023019E+01 -5.267723E+00 -4.808710E+00 5 -2.741669E+00 4.238035E+01 -2.281456E-01 -1.239777E-05 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A TRAPEZOIDAL RING ELEMENTS 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. * * * END OF JOB * * * 1 JOB TITLE = SOLID DISC WITH RADIALLY VARYING THERMAL LOAD DATE: 5/17/95 END TIME: 14:55:39 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01062a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01062A,NASTRAN APP DISP SOL 1,1 TIME 5 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A 0 TRAPEZOIDAL RING ELEMENTS 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A 3 LABEL = TRAPEZOIDAL RING ELEMENTS 4 ECHO = BOTH 5 SPC = 16 6 TEMPERATURE(LOAD) = 16 7 OUTPUT 8 SET 1 = 1,3,5,7,9,11,13,15,17,19,21,23,25,26 9 DISP = 1 10 ELSTRESS = ALL 11 BEGIN BULK 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A 0 TRAPEZOIDAL RING ELEMENTS 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ -FF- CTRAPRG, 1,1,3,4,2,.0,12 -FF- =(11), *(1) *(2),///, == -FF- GRDSET, 8)2456 -FF- GRID,1,,.0 -FF- =(3),*(2),,*(.005) -FF- GRID,2,,.0,,.01 -FF- =(3),*(2),,*(.005),== -FF- GRID,9,,.02 -FF- =(8),*(2),,%(.10) -FF- GRID,10,,.02,,.01 -FF- =(8),*(2),,%(.10),== -FF- MAT1,12,1.0+7,,.3,.2587-3,1.0-7,.0 -FF- SPC,16,1,13,.0,2,1,.0 -FF- TEMP,16,1,100.,2,100.,3,99.75 -FF- =,=,4,99.75,5,99.0,6,99.0 -FF- =,=,7,97.75,8,97.75,9,96.0 -FF- =,=,10,96.0,11,91.0,12,91.0 -FF- =,=,13,84.0,14,84.0,15,75.0 -FF- =,=,16,75.0,17,64.0,18,64.0 -FF- =,=,19,51.0,20,51.0,21,36.0 -FF- =,=,22,36.0,23,19.0,24,19.0 -FF- =,=,25,.0,26,.0 ENDDATA TOTAL COUNT= 22 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A 0 TRAPEZOIDAL RING ELEMENTS 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CTRAPRG 1 1 3 4 2 .0 12 2- CTRAPRG 2 3 5 6 4 .0 12 3- CTRAPRG 3 5 7 8 6 .0 12 4- CTRAPRG 4 7 9 10 8 .0 12 5- CTRAPRG 5 9 11 12 10 .0 12 6- CTRAPRG 6 11 13 14 12 .0 12 7- CTRAPRG 7 13 15 16 14 .0 12 8- CTRAPRG 8 15 17 18 16 .0 12 9- CTRAPRG 9 17 19 20 18 .0 12 10- CTRAPRG 10 19 21 22 20 .0 12 11- CTRAPRG 11 21 23 24 22 .0 12 12- CTRAPRG 12 23 25 26 24 .0 12 13- GRDSET 2456 14- GRID 1 .0 15- GRID 2 .0 .01 16- GRID 3 .005 17- GRID 4 .005 .01 18- GRID 5 0.01 19- GRID 6 0.01 .01 20- GRID 7 0.015 21- GRID 8 0.015 .01 22- GRID 9 .02 23- GRID 10 .02 .01 24- GRID 11 0.03 25- GRID 12 0.03 .01 26- GRID 13 0.04 27- GRID 14 0.04 .01 28- GRID 15 0.049999 29- GRID 16 0.049999 .01 30- GRID 17 0.059999 31- GRID 18 0.059999 .01 32- GRID 19 0.069999 33- GRID 20 0.069999 .01 34- GRID 21 0.079999 35- GRID 22 0.079999 .01 36- GRID 23 0.089999 37- GRID 24 0.089999 .01 38- GRID 25 .0999999 39- GRID 26 .0999999 .01 40- MAT1 12 1.0+7 .3 .2587-3 1.0-7 .0 41- SPC 16 1 13 .0 2 1 .0 42- TEMP 16 1 100. 2 100. 3 99.75 43- TEMP 16 4 99.75 5 99.0 6 99.0 44- TEMP 16 7 97.75 8 97.75 9 96.0 45- TEMP 16 10 96.0 11 91.0 12 91.0 46- TEMP 16 13 84.0 14 84.0 15 75.0 47- TEMP 16 16 75.0 17 64.0 18 64.0 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A TRAPEZOIDAL RING ELEMENTS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- TEMP 16 19 51.0 20 51.0 21 36.0 49- TEMP 16 22 36.0 23 19.0 24 19.0 50- TEMP 16 25 .0 26 .0 ENDDATA 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A 0 TRAPEZOIDAL RING ELEMENTS 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 4 PROFILE 87 MAX WAVEFRONT 4 AVG WAVEFRONT 3.346 RMS WAVEFRONT 3.425 RMS BANDWIDTH 3.425 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 4 PROFILE 87 MAX WAVEFRONT 4 AVG WAVEFRONT 3.346 RMS WAVEFRONT 3.425 RMS BANDWIDTH 3.425 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 4 4 PROFILE (P) 87 87 MAXIMUM WAVEFRONT (C-MAX) 4 4 AVERAGE WAVEFRONT (C-AVG) 3.346 3.346 RMS WAVEFRONT (C-RMS) 3.425 3.425 RMS BANDWITCH (B-RMS) 3.425 3.425 NUMBER OF GRID POINTS (N) 26 NUMBER OF ELEMENTS (NON-RIGID) 12 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 5 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 61 MATRIX DENSITY, PERCENT 21.893 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRAPRG ELEMENTS (ELEMENT TYPE 37) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 3.7422619E-15 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A 0 TRAPEZOIDAL RING ELEMENTS D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 4.137360E-08 0.0 1.617717E-10 0.0 0.0 0.0 5 G 8.247039E-08 0.0 6.340413E-10 0.0 0.0 0.0 7 G 1.230677E-07 0.0 1.444813E-09 0.0 0.0 0.0 9 G 1.628901E-07 0.0 2.402780E-09 0.0 0.0 0.0 11 G 2.390438E-07 0.0 5.696757E-09 0.0 0.0 0.0 13 G 3.093353E-07 0.0 1.021218E-08 0.0 0.0 0.0 15 G 3.717776E-07 0.0 1.604540E-08 0.0 0.0 0.0 17 G 4.244424E-07 0.0 2.317959E-08 0.0 0.0 0.0 19 G 4.653766E-07 0.0 3.161614E-08 0.0 0.0 0.0 21 G 4.926359E-07 0.0 4.136072E-08 0.0 0.0 0.0 23 G 5.042610E-07 0.0 5.237185E-08 0.0 0.0 0.0 25 G 4.983738E-07 0.0 6.487632E-08 0.0 0.0 0.0 26 G 4.983734E-07 0.0 4.975213E-08 0.0 0.0 0.0 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A 0 TRAPEZOIDAL RING ELEMENTS S T R E S S E S F O R T H E T R A P E Z O I D A L R I N G S ( C T R A P R G ) EL STRESS RADIAL CIRCUMFERENTIAL AXIAL SHEAR ID POINT (X) (THETA) (Z) (ZX) 0 1 1 -2.474084E+01 -2.474084E+01 -2.192535E-01 1.244398E-01 2 -2.430251E+01 -2.430251E+01 -2.983093E-02 1.244507E-01 3 -2.430240E+01 -2.430240E+01 -2.975464E-02 -1.244431E-01 4 -2.474074E+01 -2.474074E+01 -2.191925E-01 -1.244507E-01 5 -2.452162E+01 -2.452162E+01 -1.244965E-01 0.0 0 2 1 -2.504778E+01 -2.462190E+01 -3.492126E-01 3.632956E-01 2 -2.387746E+01 -2.366457E+01 9.442139E-02 3.633766E-01 3 -2.387675E+01 -2.366402E+01 9.480286E-02 -3.633041E-01 4 -2.504720E+01 -2.462160E+01 -3.489380E-01 -3.633881E-01 5 -2.448892E+01 -2.420509E+01 -1.538544E-01 -7.629395E-06 0 3 1 -2.522212E+01 -2.424078E+01 -4.818726E-01 6.237602E-01 2 -2.327802E+01 -2.262379E+01 2.147827E-01 6.236801E-01 3 -2.327855E+01 -2.262399E+01 2.145233E-01 -6.237488E-01 4 -2.522252E+01 -2.424072E+01 -4.819794E-01 -6.236725E-01 5 -2.427483E+01 -2.348958E+01 -1.581726E-01 3.814697E-06 0 4 1 -2.536441E+01 -2.351797E+01 -6.793976E-01 7.369118E-01 2 -2.244093E+01 -2.105617E+01 7.702179E-01 7.369151E-01 3 -2.244093E+01 -2.105614E+01 7.702484E-01 -7.369156E-01 4 -2.536433E+01 -2.351794E+01 -6.793365E-01 -7.369156E-01 5 -2.392735E+01 -2.234474E+01 2.072144E-02 -3.814697E-06 0 5 1 -2.714058E+01 -2.307025E+01 -1.243896E+00 1.266930E+00 2 -1.945882E+01 -1.674527E+01 1.370346E+00 1.266838E+00 3 -1.945917E+01 -1.674548E+01 1.370163E+00 -1.266930E+00 4 -2.714093E+01 -2.307036E+01 -1.244003E+00 -1.266838E+00 5 -2.340160E+01 -2.014528E+01 -3.860474E-02 0.0 0 6 1 -2.735017E+01 -2.012727E+01 -2.011673E+00 1.736618E+00 2 -1.641437E+01 -1.099722E+01 1.977554E+00 1.736641E+00 3 -1.641426E+01 -1.099725E+01 1.977570E+00 -1.736629E+00 4 -2.735011E+01 -2.012733E+01 -2.011673E+00 -1.736652E+00 5 -2.197900E+01 -1.578801E+01 -1.137848E-01 1.907349E-06 0 7 1 -2.697226E+01 -1.552203E+01 -2.547272E+00 2.243713E+00 2 -1.292029E+01 -3.759888E+00 2.530609E+00 2.243796E+00 3 -1.291992E+01 -3.759750E+00 2.530731E+00 -2.243710E+00 4 -2.697200E+01 -1.552194E+01 -2.547134E+00 -2.243801E+00 5 -2.004155E+01 -9.863541E+00 -1.036987E-01 9.536743E-06 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A 0 TRAPEZOIDAL RING ELEMENTS S T R E S S E S F O R T H E T R A P E Z O I D A L R I N G S ( C T R A P R G ) EL STRESS RADIAL CIRCUMFERENTIAL AXIAL SHEAR ID POINT (X) (THETA) (Z) (ZX) 0 8 1 -2.609070E+01 -9.404327E+00 -3.113785E+00 2.743942E+00 2 -8.908096E+00 4.997101E+00 3.093231E+00 2.743805E+00 3 -8.908569E+00 4.996872E+00 3.093002E+00 -2.743942E+00 4 -2.609113E+01 -9.404495E+00 -3.113983E+00 -2.743805E+00 5 -1.759444E+01 -2.424957E+00 -1.051941E-01 7.629395E-06 0 9 1 -2.469939E+01 -1.770554E+00 -3.674408E+00 3.244736E+00 2 -4.389793E+00 1.526328E+01 3.656456E+00 3.244522E+00 3 -4.390526E+00 1.526283E+01 3.656136E+00 -3.244740E+00 4 -2.470012E+01 -1.770905E+00 -3.674744E+00 -3.244526E+00 5 -1.463948E+01 6.525696E+00 -1.036224E-01 1.335144E-05 0 10 1 -2.279849E+01 7.373878E+00 -4.232887E+00 3.747604E+00 2 6.298294E-01 2.703056E+01 4.204529E+00 3.747757E+00 3 6.303558E-01 2.703069E+01 4.204758E+00 -3.747625E+00 4 -2.279811E+01 7.373940E+00 -4.232796E+00 -3.747774E+00 5 -1.117837E+01 1.698226E+01 -1.084290E-01 -8.583069E-06 0 11 1 -2.041618E+01 1.801087E+01 -4.815178E+00 4.234894E+00 2 6.176689E+00 4.033392E+01 4.837578E+00 4.235077E+00 3 6.177483E+00 4.033425E+01 4.837898E+00 -4.234901E+00 4 -2.041544E+01 1.801109E+01 -4.814880E+00 -4.235088E+00 5 -7.213608E+00 2.895280E+01 -8.286285E-02 9.536743E-06 0 12 1 -1.739697E+01 3.023093E+01 -5.265419E+00 4.809036E+00 2 1.210247E+01 5.496722E+01 4.996686E+00 4.808831E+00 3 1.210190E+01 5.496686E+01 4.996335E+00 -4.809010E+00 4 -1.739769E+01 3.023065E+01 -5.265694E+00 -4.808800E+00 5 -2.741693E+00 4.237949E+01 -2.285347E-01 3.814697E-06 1 SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A TRAPEZOIDAL RING ELEMENTS 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. * * * END OF JOB * * * 1 JOB TITLE = SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) DATE: 5/17/95 END TIME: 14:57: 7 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01071a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01071A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 5 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 SPHERICAL SHELL WITH TOROIDAL RING ELEMENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A 0 EXTERNAL PRESSURE LOADING 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = SPHERICAL SHELL WITH TOROIDAL RING ELEMENT 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A 3 LABEL = EXTERNAL PRESSURE LOADING 4 SPC = 1 5 LOAD = 1 6 OUTPUT 7 DISP = ALL 8 OLOAD = ALL 9 ELFORCE = ALL 10 STRESSES = ALL 11 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 56, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 SPHERICAL SHELL WITH TOROIDAL RING ELEMENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A 0 EXTERNAL PRESSURE LOADING 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CTORDRG 1 1 1 2 .0 2.0 2- CTORDRG 2 1 2 3 2.0 4.0 3- CTORDRG 3 1 3 4 4.0 6.0 4- CTORDRG 4 1 4 5 6.0 8.0 5- CTORDRG 5 1 5 6 8.0 10.0 6- CTORDRG 6 1 6 7 10.0 15.0 7- CTORDRG 7 1 7 8 15.0 20.0 8- CTORDRG 8 1 8 9 20.0 25.0 9- CTORDRG 9 1 9 10 25.0 27.0 10- CTORDRG 10 1 10 11 27.0 29.0 11- CTORDRG 11 1 11 12 29.0 31.0 12- CTORDRG 12 1 12 13 31.0 33.0 13- CTORDRG 13 1 13 14 33.0 35.0 14- FORCE 1 1 0 1.0 .0 .0 -8.85885 15- FORCE 1 2 0 1.0 -2.16381.0 -61.9635 16- FORCE 1 3 0 1.0 -8.64421.0 -123.618 17- FORCE 1 4 0 1.0 -19.4063.0 -184.639 18- FORCE 1 5 0 1.0 -34.4036.0 -244.795 19- FORCE 1 6 0 1.0 -101.669.0 -576.596 20- FORCE 1 7 0 1.0 -297.393.0 -1109.89 21- FORCE 1 8 0 1.0 -519.309.0 -1426.79 22- FORCE 1 9 0 1.0 -537.246.0 -1153.13 23- FORCE 1 10 0 1.0 -366.120.0 -718.555 24- FORCE 1 11 0 1.0 -417.584.0 -753.352 25- FORCE 1 12 0 1.0 -471.266.0 -784.318 26- FORCE 1 13 0 1.0 -526.891.0 -811.340 27- GRDSET 2 28- GRID 1 0 .0 .0 90.00 29- GRID 2 0 3.141 .0 89.9451 30- GRID 3 0 6.2784 .0 89.7804 31- GRID 4 0 9.4077 .0 89.5068 32- GRID 5 0 12.5253 .0 89.1243 33- GRID 6 0 15.6285 .0 88.6329 34- GRID 7 0 23.2938 .0 86.9337 35- GRID 8 0 30.7818 .0 84.5721 36- GRID 9 0 38.0358 .0 81.5679 37- GRID 10 0 40.8591 .0 80.1909 38- GRID 11 0 43.6329 .0 78.7158 39- GRID 12 0 46.3536 .0 77.1453 40- GRID 13 0 49.0176 .0 75.4803 41- GRID 14 0 51.6222 .0 73.7235 42- MAT1 12 3.0E6 .1667 12.5 E-6.0 CMAT11 43- MOMENT 1 2 0 1.0 14.83917.0 -10.1998 44- MOMENT 1 3 0 1.0 14.79298.0 -20.3822 45- MOMENT 1 4 0 1.0 14.73849.0 -30.5275 46- MOMENT 1 5 0 1.0 14.73710.0 -40.6554 47- MOMENT 1 6 0 1.0 629.9624.0 -503.492 1 SPHERICAL SHELL WITH TOROIDAL RING ELEMENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A EXTERNAL PRESSURE LOADING S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- MOMENT 1 7 0 1.0 223.9160.0 -1180.98 49- MOMENT 1 8 0 1.0 217.7740.0 -1560.45 50- MOMENT 1 9 0 1.0 -1125.59.0 -950.370 51- MOMENT 1 10 0 1.0 13.35776.0 -132.642 52- MOMENT 1 11 0 1.0 13.01903.0 -141.715 53- MOMENT 1 12 0 1.0 12.64240.0 -150.533 54- MOMENT 1 13 0 1.0 12.29669.0 -159.092 55- PTORDRG 1 12 3.0 3.0 56- SPC 1 1 14 .0 14 134 .0 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 SPHERICAL SHELL WITH TOROIDAL RING ELEMENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A EXTERNAL PRESSURE LOADING 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TORDRG ELEMENTS (ELEMENT TYPE 38) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.2777657E-12 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 SPHERICAL SHELL WITH TOROIDAL RING ELEMENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A 0 EXTERNAL PRESSURE LOADING D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -5.466944E-04 0.0 1.683363E-06 2.264283E-07 2 G -1.379353E-05 0.0 -5.465159E-04 9.711449E-09 1.683092E-06 -2.154376E-08 3 G -2.758300E-05 0.0 -5.460528E-04 -4.874046E-08 1.682592E-06 4.688149E-08 4 G -4.132202E-05 0.0 -5.448287E-04 -2.965820E-07 1.676809E-06 1.172040E-07 5 G -5.488748E-05 0.0 -5.421351E-04 -8.169633E-07 1.656756E-06 2.187806E-07 6 G -6.804022E-05 0.0 -5.369930E-04 -1.700009E-06 1.611340E-06 3.477465E-07 7 G -9.602270E-05 0.0 -5.049501E-04 -5.982594E-06 1.304370E-06 7.566065E-07 8 G -1.071690E-04 0.0 -4.272170E-04 -1.345247E-05 4.936754E-07 1.104621E-06 9 G -8.639758E-05 0.0 -2.889577E-04 -2.183137E-05 -1.014970E-06 8.644736E-07 10 G -6.754949E-05 0.0 -2.194551E-04 -2.388999E-05 -1.779485E-06 3.991782E-07 11 G -4.435892E-05 0.0 -1.472862E-04 -2.399925E-05 -2.568128E-06 -3.909324E-07 12 G -2.046372E-05 0.0 -7.944898E-05 -2.101134E-05 -3.285147E-06 -1.583342E-06 13 G -2.309796E-06 0.0 -2.593311E-05 -1.352425E-05 -3.788745E-06 -3.284960E-06 14 G 0.0 0.0 0.0 0.0 -3.883259E-06 -5.282909E-06 1 SPHERICAL SHELL WITH TOROIDAL RING ELEMENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A 0 EXTERNAL PRESSURE LOADING L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -8.858850E+00 0.0 0.0 0.0 2 G -2.163810E+00 0.0 -6.196350E+01 1.483917E+01 0.0 -1.019980E+01 3 G -8.644210E+00 0.0 -1.236180E+02 1.479298E+01 0.0 -2.038220E+01 4 G -1.940630E+01 0.0 -1.846390E+02 1.473849E+01 0.0 -3.052750E+01 5 G -3.440360E+01 0.0 -2.447950E+02 1.473710E+01 0.0 -4.065540E+01 6 G -1.016690E+02 0.0 -5.765960E+02 6.299624E+02 0.0 -5.034920E+02 7 G -2.973930E+02 0.0 -1.109890E+03 2.239160E+02 0.0 -1.180980E+03 8 G -5.193090E+02 0.0 -1.426790E+03 2.177740E+02 0.0 -1.560450E+03 9 G -5.372460E+02 0.0 -1.153130E+03 -1.125590E+03 0.0 -9.503700E+02 10 G -3.661200E+02 0.0 -7.185550E+02 1.335776E+01 0.0 -1.326420E+02 11 G -4.175840E+02 0.0 -7.533520E+02 1.301903E+01 0.0 -1.417150E+02 12 G -4.712660E+02 0.0 -7.843180E+02 1.264240E+01 0.0 -1.505330E+02 13 G -5.268910E+02 0.0 -8.113400E+02 1.229669E+01 0.0 -1.590920E+02 1 SPHERICAL SHELL WITH TOROIDAL RING ELEMENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A 0 EXTERNAL PRESSURE LOADING F O R C E S F O R T H E T O R O I D A L R I N G S ( C T O R D R G ) EL CORNER RADIAL CIRCUMFERENTIAL AXIAL MOMENT DIRECT STRAIN CURVATURE ID POINT (X) (THETA) (Z) (ZX) (XI) (XI,XI) 0 1 1 -1.435260E-02 0.0 -8.857550E+00 6.850548E-01 -7.417463E-04 1.385167E-03 2 -9.361709E+02 0.0 8.858372E+00 -1.194810E+01 -1.365885E-02 -2.249861E+00 0 2 1 9.340080E+02 0.0 -7.081214E+01 2.678206E+01 1.373598E-02 -7.953564E+00 2 -1.870660E+03 0.0 7.082641E+01 -4.425937E+01 4.811107E-02 -8.135111E+00 0 3 1 1.862018E+03 0.0 -1.944009E+02 5.895256E+01 -4.638583E-02 -1.225448E+01 2 -2.798947E+03 0.0 1.945020E+02 -1.013341E+02 -6.079648E-03 -1.307026E+01 0 4 1 2.779536E+03 0.0 -3.791533E+02 1.160077E+02 9.682901E-03 -1.746239E+01 2 -3.715845E+03 0.0 3.793006E+02 -1.956308E+02 -3.433111E-01 -1.815808E+01 0 5 1 3.681427E+03 0.0 -6.242156E+02 2.104531E+02 3.403968E-01 -2.250226E+01 2 -4.615107E+03 0.0 6.242530E+02 -3.389402E+02 -6.897379E-01 -2.322445E+01 0 6 1 4.513437E+03 0.0 -1.200878E+03 9.688644E+02 6.852036E-01 -4.802863E+02 2 -6.800861E+03 0.0 1.202774E+03 -1.601000E+03 -2.833398E+00 -5.080294E+02 0 7 1 6.503458E+03 0.0 -2.312679E+03 1.824949E+03 2.827059E+00 -6.729493E+02 2 -8.600890E+03 0.0 2.315741E+03 -2.658186E+03 -6.409254E-01 -7.000667E+02 0 8 1 8.081584E+03 0.0 -3.742526E+03 2.875959E+03 6.302433E-01 -8.604033E+02 2 -9.747442E+03 0.0 3.742836E+03 -2.945964E+03 1.493594E+00 -8.867585E+02 0 9 1 9.210227E+03 0.0 -4.895938E+03 1.820449E+03 -1.493172E+00 -6.358387E+01 2 -9.692967E+03 0.0 4.892215E+03 -1.112938E+03 8.562287E-01 -6.431381E+01 0 10 1 9.326908E+03 0.0 -5.610593E+03 1.126212E+03 -8.530122E-01 -6.828882E+01 2 -9.685742E+03 0.0 5.602792E+03 3.262547E+02 1.366635E+00 -6.908867E+01 0 11 1 9.268126E+03 0.0 -6.356183E+03 -3.135163E+02 -1.350971E+00 -7.259787E+01 2 -9.503368E+03 0.0 6.342287E+03 2.795578E+03 1.920020E+00 -7.216864E+01 0 12 1 9.032036E+03 0.0 -7.126740E+03 -2.783069E+03 -1.911161E+00 -7.840787E+01 2 -9.162020E+03 0.0 7.104391E+03 6.593884E+03 2.235647E+00 -8.788574E+01 0 13 1 8.635151E+03 0.0 -7.915670E+03 -6.581451E+03 -2.228176E+00 -7.119308E+01 2 -8.704317E+03 0.0 7.882500E+03 1.198971E+04 1.802444E-03 -1.855469E-02 1 SPHERICAL SHELL WITH TOROIDAL RING ELEMENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A 0 EXTERNAL PRESSURE LOADING S T R E S S R E S U L T A N T S F O R T H E T O R O I D A L R I N G S ( C T O R D R G ) EL STRESS MEMBRANE (FORCES) FLEXURE (MOMENTS) SHEAR ID POINT TANGENTIAL CIRCUMFERENTIAL TANGENTIAL CIRCUMFERENTIAL (FORCE) 0 1 1 -4.742393E+01 -4.742393E+01 -1.834143E+00 1.834143E+00 6.117731E+00 2 -4.741985E+01 -4.742053E+01 3.893908E-01 7.417586E-02 -2.767995E-01 3 -4.742413E+01 -4.742857E+01 1.531547E-01 4.638737E-02 1.319523E+00 0 2 1 -4.741985E+01 -4.742789E+01 1.531532E-01 4.638781E-02 -3.576809E-01 2 -4.742702E+01 -4.743805E+01 -1.498061E-01 -2.513187E-02 -9.881045E-02 3 -4.742553E+01 -4.744564E+01 -3.344585E-01 -1.080277E-01 -2.839203E-01 0 3 1 -4.743420E+01 -4.744713E+01 -3.344583E-01 -1.080281E-01 -1.403322E-01 2 -4.743338E+01 -4.744912E+01 -5.580543E-01 -2.167377E-01 -2.157153E-01 3 -4.743655E+01 -4.743897E+01 -8.500305E-01 -3.533323E-01 -2.438290E-01 0 4 1 -4.744117E+01 -4.743970E+01 -8.500276E-01 -3.533307E-01 -2.582688E-01 2 -4.743185E+01 -4.740683E+01 -1.196292E+00 -5.151972E-01 -2.975522E-01 3 -4.743970E+01 -4.734747E+01 -1.593775E+00 -7.016712E-01 -3.418674E-01 0 5 1 -4.742383E+01 -4.734471E+01 -1.593736E+00 -7.016601E-01 -3.391230E-01 2 -4.741095E+01 -4.724012E+01 -2.041596E+00 -9.122855E-01 -3.801277E-01 3 -4.740445E+01 -4.708471E+01 -2.538218E+00 -1.146203E+00 -4.187303E-01 0 6 1 -4.741298E+01 -4.708613E+01 -2.538366E+00 -1.146230E+00 -4.175308E-01 2 -4.726017E+01 -4.634843E+01 -3.961301E+00 -1.822912E+00 -4.957582E-01 3 -4.701212E+01 -4.493718E+01 -5.540241E+00 -2.598110E+00 -5.311699E-01 0 7 1 -4.701073E+01 -4.493687E+01 -5.540196E+00 -2.598095E+00 -5.247869E-01 2 -4.657161E+01 -4.256562E+01 -7.056335E+00 -3.404063E+00 -4.792132E-01 3 -4.586499E+01 -3.897964E+01 -8.144388E+00 -4.129645E+00 -3.072319E-01 0 8 1 -4.586560E+01 -3.897993E+01 -8.144615E+00 -4.129735E+00 -2.964945E-01 2 -4.490353E+01 -3.402090E+01 -8.247053E+00 -4.608160E+00 6.129110E-02 3 -4.359391E+01 -2.771052E+01 -6.603844E+00 -4.612164E+00 6.679063E-01 0 9 1 -4.359608E+01 -2.771079E+01 -6.604050E+00 -4.612195E+00 6.793578E-01 2 -4.296380E+01 -2.487673E+01 -5.239190E+00 -4.416682E+00 1.000867E+00 3 -4.229292E+01 -2.192929E+01 -3.375110E+00 -4.079192E+00 1.377905E+00 0 10 1 -4.228968E+01 -2.192876E+01 -3.374427E+00 -4.079026E+00 1.380139E+00 2 -4.157248E+01 -1.892799E+01 -9.345999E-01 -3.576959E+00 1.806204E+00 3 -4.080384E+01 -1.595172E+01 2.156033E+00 -2.887666E+00 2.294774E+00 0 11 1 -4.080479E+01 -1.595191E+01 2.157442E+00 -2.887537E+00 2.268575E+00 2 -4.001025E+01 -1.310438E+01 5.966252E+00 -1.989860E+00 2.828775E+00 3 -3.918151E+01 -1.050479E+01 1.054323E+01 -8.650403E-01 3.356083E+00 1 SPHERICAL SHELL WITH TOROIDAL RING ELEMENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A 0 EXTERNAL PRESSURE LOADING S T R E S S R E S U L T A N T S F O R T H E T O R O I D A L R I N G S ( C T O R D R G ) EL STRESS MEMBRANE (FORCES) FLEXURE (MOMENTS) SHEAR ID POINT TANGENTIAL CIRCUMFERENTIAL TANGENTIAL CIRCUMFERENTIAL (FORCE) 0 12 1 -3.918133E+01 -1.050476E+01 1.054335E+01 -8.650696E-01 3.556906E+00 2 -3.834824E+01 -8.305113E+00 1.600016E+01 5.156120E-01 3.985400E+00 3 -3.751252E+01 -6.677447E+00 2.254027E+01 2.195566E+00 5.073380E+00 0 13 1 -3.751236E+01 -6.677407E+00 2.253946E+01 2.195416E+00 3.520725E+00 2 -3.669323E+01 -5.826451E+00 2.981250E+01 4.122759E+00 5.717581E+00 3 -3.594828E+01 -5.992583E+00 3.667900E+01 6.114406E+00 3.136902E+00 1 SPHERICAL SHELL WITH TOROIDAL RING ELEMENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A EXTERNAL PRESSURE LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. * * * END OF JOB * * * 1 JOB TITLE = SPHERICAL SHELL WITH TOROIDAL RING ELEMENT DATE: 5/17/95 END TIME: 14:57:41 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01081a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01081A,NASTRAN APP DISPLACEMENT SOL 1,3 TIME 15 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A 0 TWO PLANES OF SYMMETRY, PURE BENDING MOMENT 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A 3 LABEL = TWO PLANES OF SYMMETRY, PURE BENDING MOMENT 4 SPC = 10 5 LOAD = 10 6 OUTPUT 7 DISPLACEMENT = ALL 8 SPCFORCE = ALL 9 OLOAD = ALL 10 STRESS = ALL 11 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 217, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A 0 TWO PLANES OF SYMMETRY, PURE BENDING MOMENT 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CHEXA1 1 1 2 1 3 4 12 11 +HEX 1 2- +HEX 113 14 3- CHEXA1 2 1 4 3 5 6 14 13 +HEX 2 4- +HEX 215 16 5- CHEXA1 3 1 6 5 7 8 16 15 +HEX 3 6- +HEX 317 18 7- CHEXA1 4 1 8 7 9 10 18 17 +HEX 4 8- +HEX 419 20 9- CHEXA1 5 1 12 11 13 14 22 21 +HEX 5 10- +HEX 523 24 11- CHEXA1 6 1 14 13 15 16 24 23 +HEX 6 12- +HEX 625 26 13- CHEXA1 7 1 16 15 17 18 26 25 +HEX 7 14- +HEX 727 28 15- CHEXA1 8 1 18 17 19 20 28 27 +HEX 8 16- +HEX 829 30 17- CHEXA1 9 1 22 21 23 24 32 31 +HEX 9 18- +HEX 933 34 19- CHEXA1 10 1 24 23 25 26 34 33 +HEX 10 20- +HEX 1035 36 21- CHEXA1 11 1 26 25 27 28 36 35 +HEX 11 22- +HEX 1137 38 23- CHEXA1 12 1 28 27 29 30 38 37 +HEX 12 24- +HEX 1239 40 25- CHEXA1 13 1 32 31 33 34 42 41 +HEX 13 26- +HEX 1343 44 27- CHEXA1 14 1 34 33 35 36 44 43 +HEX 14 28- +HEX 1445 46 29- CHEXA1 15 1 36 35 37 38 46 45 +HEX 15 30- +HEX 1547 48 31- CHEXA1 16 1 38 37 39 40 48 47 +HEX 16 32- +HEX 1649 50 33- CHEXA1 17 1 42 41 43 44 52 51 +HEX 17 34- +HEX 1753 54 35- CHEXA1 18 1 44 43 45 46 54 53 +HEX 18 36- +HEX 1855 56 37- CHEXA1 19 1 46 45 47 48 56 55 +HEX 19 38- +HEX 1957 58 39- CHEXA1 20 1 48 47 49 50 58 57 +HEX 20 40- +HEX 2059 60 41- CHEXA1 21 1 52 51 53 54 62 61 +HEX 21 42- +HEX 2163 64 43- CHEXA1 22 1 54 53 55 56 64 63 +HEX 22 44- +HEX 2265 66 45- CHEXA1 23 1 56 55 57 58 66 65 +HEX 23 46- +HEX 2367 68 47- CHEXA1 24 1 58 57 59 60 68 67 +HEX 24 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A TWO PLANES OF SYMMETRY, PURE BENDING MOMENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- +HEX 2469 70 49- CHEXA1 25 1 62 61 63 64 72 71 +HEX 25 50- +HEX 2573 74 51- CHEXA1 26 1 64 63 65 66 74 73 +HEX 26 52- +HEX 2675 76 53- CHEXA1 27 1 66 65 67 68 76 75 +HEX 27 54- +HEX 2777 78 55- CHEXA1 28 1 68 67 69 70 78 77 +HEX 28 56- +HEX 2879 80 57- CHEXA1 29 1 72 71 73 74 82 81 +HEX 29 58- +HEX 2983 84 59- CHEXA1 30 1 74 73 75 76 84 83 +HEX 30 60- +HEX 3085 86 61- CHEXA1 31 1 76 75 77 78 86 85 +HEX 31 62- +HEX 3187 88 63- CHEXA1 32 1 78 77 79 80 88 87 +HEX 32 64- +HEX 3289 90 65- CHEXA1 33 1 82 81 83 84 92 91 +HEX 33 66- +HEX 3393 94 67- CHEXA1 34 1 84 83 85 86 94 93 +HEX 34 68- +HEX 3495 96 69- CHEXA1 35 1 86 85 87 88 96 95 +HEX 35 70- +HEX 3597 98 71- CHEXA1 36 1 88 87 89 90 98 97 +HEX 36 72- +HEX 3699 100 73- CHEXA1 37 1 92 91 93 94 102 101 +HEX 37 74- +HEX 37103 104 75- CHEXA1 38 1 94 93 95 96 104 103 +HEX 38 76- +HEX 38105 106 77- CHEXA1 39 1 96 95 97 98 106 105 +HEX 39 78- +HEX 39107 108 79- CHEXA1 40 1 98 97 99 100 108 107 +HEX 40 80- +HEX 40109 110 81- CNGRNT 1 2 THRU 40 82- FORCE 10 103 5.818182-1.0 .0 .0 83- FORCE 10 104 5.818182-1.0 .0 .0 84- FORCE 10 105 5.818182-2.0 .0 .0 85- FORCE 10 106 5.818182-2.0 .0 .0 86- FORCE 10 107 5.818182-3.0 .0 .0 87- FORCE 10 108 5.818182-3.0 .0 .0 88- FORCE 10 109 5.818182-2.0 .0 .0 89- FORCE 10 110 5.818182-2.0 .0 .0 90- GRID 1 .00 .00 .00 456 91- GRID 2 .00 .00 2.00000 456 92- GRID 3 .00 2.00000 .00 456 93- GRID 4 .00 2.00000 2.00000 456 94- GRID 5 .00 4.00000 .00 456 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A TWO PLANES OF SYMMETRY, PURE BENDING MOMENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- GRID 6 .00 4.00000 2.00000 456 96- GRID 7 .00 6.00000 .00 456 97- GRID 8 .00 6.00000 2.00000 456 98- GRID 9 .00 8.00000 .00 456 99- GRID 10 .00 8.00000 2.00000 456 100- GRID 11 2.00000 .00 .00 456 101- GRID 12 2.00000 .00 2.00000 456 102- GRID 13 2.00000 2.00000 .00 456 103- GRID 14 2.00000 2.00000 2.00000 456 104- GRID 15 2.00000 4.00000 .00 456 105- GRID 16 2.00000 4.00000 2.00000 456 106- GRID 17 2.00000 6.00000 .00 456 107- GRID 18 2.00000 6.00000 2.00000 456 108- GRID 19 2.00000 8.00000 .00 456 109- GRID 20 2.00000 8.00000 2.00000 456 110- GRID 21 4.00000 .00 .00 456 111- GRID 22 4.00000 .00 2.00000 456 112- GRID 23 4.00000 2.00000 .00 456 113- GRID 24 4.00000 2.00000 2.00000 456 114- GRID 25 4.00000 4.00000 .00 456 115- GRID 26 4.00000 4.00000 2.00000 456 116- GRID 27 4.00000 6.00000 .00 456 117- GRID 28 4.00000 6.00000 2.00000 456 118- GRID 29 4.00000 8.00000 .00 456 119- GRID 30 4.00000 8.00000 2.00000 456 120- GRID 31 6.00000 .00 .00 456 121- GRID 32 6.00000 .00 2.00000 456 122- GRID 33 6.00000 2.00000 .00 456 123- GRID 34 6.00000 2.00000 2.00000 456 124- GRID 35 6.00000 4.00000 .00 456 125- GRID 36 6.00000 4.00000 2.00000 456 126- GRID 37 6.00000 6.00000 .00 456 127- GRID 38 6.00000 6.00000 2.00000 456 128- GRID 39 6.00000 8.00000 .00 456 129- GRID 40 6.00000 8.00000 2.00000 456 130- GRID 41 8.00000 .00 .00 456 131- GRID 42 8.00000 .00 2.00000 456 132- GRID 43 8.00000 2.00000 .00 456 133- GRID 44 8.00000 2.00000 2.00000 456 134- GRID 45 8.00000 4.00000 .00 456 135- GRID 46 8.00000 4.00000 2.00000 456 136- GRID 47 8.00000 6.00000 .00 456 137- GRID 48 8.00000 6.00000 2.00000 456 138- GRID 49 8.00000 8.00000 .00 456 139- GRID 50 8.00000 8.00000 2.00000 456 140- GRID 51 10.0000 .00 .00 456 141- GRID 52 10.0000 .00 2.00000 456 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A TWO PLANES OF SYMMETRY, PURE BENDING MOMENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 53 10.0000 2.00000 .00 456 143- GRID 54 10.0000 2.00000 2.00000 456 144- GRID 55 10.0000 4.00000 .00 456 145- GRID 56 10.0000 4.00000 2.00000 456 146- GRID 57 10.0000 6.00000 .00 456 147- GRID 58 10.0000 6.00000 2.00000 456 148- GRID 59 10.0000 8.00000 .00 456 149- GRID 60 10.0000 8.00000 2.00000 456 150- GRID 61 12.0000 .00 .00 456 151- GRID 62 12.0000 .00 2.00000 456 152- GRID 63 12.0000 2.00000 .00 456 153- GRID 64 12.0000 2.00000 2.00000 456 154- GRID 65 12.0000 4.00000 .00 456 155- GRID 66 12.0000 4.00000 2.00000 456 156- GRID 67 12.0000 6.00000 .00 456 157- GRID 68 12.0000 6.00000 2.00000 456 158- GRID 69 12.0000 8.00000 .00 456 159- GRID 70 12.0000 8.00000 2.00000 456 160- GRID 71 14.0000 .00 .00 456 161- GRID 72 14.0000 .00 2.00000 456 162- GRID 73 14.0000 2.00000 .00 456 163- GRID 74 14.0000 2.00000 2.00000 456 164- GRID 75 14.0000 4.00000 .00 456 165- GRID 76 14.0000 4.00000 2.00000 456 166- GRID 77 14.0000 6.00000 .00 456 167- GRID 78 14.0000 6.00000 2.00000 456 168- GRID 79 14.0000 8.00000 .00 456 169- GRID 80 14.0000 8.00000 2.00000 456 170- GRID 81 16.0000 .00 .00 456 171- GRID 82 16.0000 .00 2.00000 456 172- GRID 83 16.0000 2.00000 .00 456 173- GRID 84 16.0000 2.00000 2.00000 456 174- GRID 85 16.0000 4.00000 .00 456 175- GRID 86 16.0000 4.00000 2.00000 456 176- GRID 87 16.0000 6.00000 .00 456 177- GRID 88 16.0000 6.00000 2.00000 456 178- GRID 89 16.0000 8.00000 .00 456 179- GRID 90 16.0000 8.00000 2.00000 456 180- GRID 91 18.0000 .00 .00 456 181- GRID 92 18.0000 .00 2.00000 456 182- GRID 93 18.0000 2.00000 .00 456 183- GRID 94 18.0000 2.00000 2.00000 456 184- GRID 95 18.0000 4.00000 .00 456 185- GRID 96 18.0000 4.00000 2.00000 456 186- GRID 97 18.0000 6.00000 .00 456 187- GRID 98 18.0000 6.00000 2.00000 456 188- GRID 99 18.0000 8.00000 .00 456 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A TWO PLANES OF SYMMETRY, PURE BENDING MOMENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- GRID 100 18.0000 8.00000 2.00000 456 190- GRID 101 20.0000 .00 .00 456 191- GRID 102 20.0000 .00 2.00000 456 192- GRID 103 20.0000 2.00000 .00 456 193- GRID 104 20.0000 2.00000 2.00000 456 194- GRID 105 20.0000 4.00000 .00 456 195- GRID 106 20.0000 4.00000 2.00000 456 196- GRID 107 20.0000 6.00000 .00 456 197- GRID 108 20.0000 6.00000 2.00000 456 198- GRID 109 20.0000 8.00000 .00 456 199- GRID 110 20.0000 8.00000 2.00000 456 200- MAT1 1 3.0+6 .2 1.0 .001 10.0 +MAT1 201- SPC 10 1 123 .0 2 13 .0 202- SPC1 10 1 3 4 5 6 7 8 +3 203- +3 9 10 204- SPC1 10 3 3 5 7 9 205- SPC1 10 3 11 13 15 17 19 206- SPC1 10 3 21 23 25 27 29 207- SPC1 10 3 31 33 35 37 39 208- SPC1 10 3 41 43 45 47 49 209- SPC1 10 3 51 53 55 57 59 210- SPC1 10 3 61 63 65 67 69 211- SPC1 10 3 71 73 75 77 79 212- SPC1 10 3 81 83 85 87 89 213- SPC1 10 3 91 93 95 97 99 214- SPC1 10 3 101 103 105 107 109 215- SPC1 10 13 11 12 21 22 31 32 +1 216- +1 41 42 51 52 61 62 71 72 +2 217- +2 81 82 91 92 101 102 ENDDATA 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A 0 TWO PLANES OF SYMMETRY, PURE BENDING MOMENT 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 14 PROFILE 1341 MAX WAVEFRONT 14 AVG WAVEFRONT 12.191 RMS WAVEFRONT 12.468 RMS BANDWIDTH 12.561 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 14 PROFILE 1341 MAX WAVEFRONT 14 AVG WAVEFRONT 12.191 RMS WAVEFRONT 12.468 RMS BANDWIDTH 12.561 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 14 14 PROFILE (P) 1341 1341 MAXIMUM WAVEFRONT (C-MAX) 14 14 AVERAGE WAVEFRONT (C-AVG) 12.191 12.191 RMS WAVEFRONT (C-RMS) 12.468 12.468 RMS BANDWITCH (B-RMS) 12.561 12.561 NUMBER OF GRID POINTS (N) 110 NUMBER OF ELEMENTS (NON-RIGID) 40 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 17 MINIMUM NODAL DEGREE 7 NUMBER OF UNIQUE EDGES 751 MATRIX DENSITY, PERCENT 13.322 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HEXA1 ELEMENTS (ELEMENT TYPE 41) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -7.8471834E-15 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A 0 TWO PLANES OF SYMMETRY, PURE BENDING MOMENT D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 -7.236303E-07 0.0 0.0 0.0 0.0 3 G 0.0 -2.220805E-08 0.0 0.0 0.0 0.0 4 G 0.0 -2.878438E-07 2.802273E-07 0.0 0.0 0.0 5 G 0.0 5.597231E-07 0.0 0.0 0.0 0.0 6 G 0.0 4.899793E-07 7.203020E-07 0.0 0.0 0.0 7 G 0.0 1.508277E-06 0.0 0.0 0.0 0.0 8 G 0.0 1.768772E-06 1.210187E-06 0.0 0.0 0.0 9 G 0.0 2.579086E-06 0.0 0.0 0.0 0.0 10 G 0.0 3.079503E-06 1.240823E-06 0.0 0.0 0.0 11 G 0.0 7.828518E-07 0.0 0.0 0.0 0.0 12 G 0.0 4.831079E-07 0.0 0.0 0.0 0.0 13 G -1.847828E-06 9.493548E-07 0.0 0.0 0.0 0.0 14 G -2.220059E-06 7.019580E-07 3.779402E-07 0.0 0.0 0.0 15 G -3.847553E-06 1.508382E-06 0.0 0.0 0.0 0.0 16 G -4.186309E-06 1.365887E-06 8.076747E-07 0.0 0.0 0.0 17 G -5.980957E-06 2.368505E-06 0.0 0.0 0.0 0.0 18 G -5.892221E-06 2.435727E-06 1.286841E-06 0.0 0.0 0.0 19 G -9.563634E-06 3.828580E-06 0.0 0.0 0.0 0.0 20 G -6.211963E-06 3.791745E-06 1.813249E-06 0.0 0.0 0.0 21 G 0.0 3.721138E-06 0.0 0.0 0.0 0.0 22 G 0.0 3.496175E-06 0.0 0.0 0.0 0.0 23 G -3.840255E-06 3.920522E-06 0.0 0.0 0.0 0.0 24 G -4.248565E-06 3.713418E-06 4.029023E-07 0.0 0.0 0.0 25 G -7.868655E-06 4.490614E-06 0.0 0.0 0.0 0.0 26 G -8.253402E-06 4.322316E-06 8.323428E-07 0.0 0.0 0.0 27 G -1.221326E-05 5.452979E-06 0.0 0.0 0.0 0.0 28 G -1.193466E-05 5.342733E-06 1.287832E-06 0.0 0.0 0.0 29 G -1.798615E-05 6.770431E-06 0.0 0.0 0.0 0.0 30 G -1.417472E-05 6.658906E-06 1.486481E-06 0.0 0.0 0.0 31 G 0.0 8.738137E-06 0.0 0.0 0.0 0.0 32 G 0.0 8.530267E-06 0.0 0.0 0.0 0.0 33 G -5.865585E-06 8.949984E-06 0.0 0.0 0.0 0.0 34 G -6.276462E-06 8.749302E-06 4.060279E-07 0.0 0.0 0.0 35 G -1.195537E-05 9.545230E-06 0.0 0.0 0.0 0.0 36 G -1.231907E-05 9.356126E-06 8.375354E-07 0.0 0.0 0.0 37 G -1.836820E-05 1.050080E-05 0.0 0.0 0.0 0.0 38 G -1.804433E-05 1.036518E-05 1.273038E-06 0.0 0.0 0.0 39 G -2.621468E-05 1.179138E-05 0.0 0.0 0.0 0.0 40 G -2.232071E-05 1.169130E-05 1.394593E-06 0.0 0.0 0.0 41 G 0.0 1.581650E-05 0.0 0.0 0.0 0.0 42 G 0.0 1.561344E-05 0.0 0.0 0.0 0.0 43 G -7.903643E-06 1.603535E-05 0.0 0.0 0.0 0.0 44 G -8.311622E-06 1.583155E-05 4.062445E-07 0.0 0.0 0.0 45 G -1.603938E-05 1.663356E-05 0.0 0.0 0.0 0.0 46 G -1.639610E-05 1.643881E-05 8.367012E-07 0.0 0.0 0.0 47 G -2.450196E-05 1.758555E-05 0.0 0.0 0.0 0.0 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A 0 TWO PLANES OF SYMMETRY, PURE BENDING MOMENT D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 48 G -2.416898E-05 1.744821E-05 1.267842E-06 0.0 0.0 0.0 49 G -3.440270E-05 1.887117E-05 0.0 0.0 0.0 0.0 50 G -3.049380E-05 1.877862E-05 1.373055E-06 0.0 0.0 0.0 51 G 0.0 2.494817E-05 0.0 0.0 0.0 0.0 52 G 0.0 2.474773E-05 0.0 0.0 0.0 0.0 53 G -9.941075E-06 2.516834E-05 0.0 0.0 0.0 0.0 54 G -1.034769E-05 2.496247E-05 4.055171E-07 0.0 0.0 0.0 55 G -2.011959E-05 2.576441E-05 0.0 0.0 0.0 0.0 56 G -2.047524E-05 2.556668E-05 8.358465E-07 0.0 0.0 0.0 57 G -3.063173E-05 2.671282E-05 0.0 0.0 0.0 0.0 58 G -3.029779E-05 2.657510E-05 1.267082E-06 0.0 0.0 0.0 59 G -4.258355E-05 2.799574E-05 0.0 0.0 0.0 0.0 60 G -3.867095E-05 2.790772E-05 1.368984E-06 0.0 0.0 0.0 61 G 0.0 3.613058E-05 0.0 0.0 0.0 0.0 62 G 0.0 3.593479E-05 0.0 0.0 0.0 0.0 63 G -1.197344E-05 3.635066E-05 0.0 0.0 0.0 0.0 64 G -1.237863E-05 3.614348E-05 4.040002E-07 0.0 0.0 0.0 65 G -2.419332E-05 3.694095E-05 0.0 0.0 0.0 0.0 66 G -2.454928E-05 3.673978E-05 8.346207E-07 0.0 0.0 0.0 67 G -3.676029E-05 3.788170E-05 0.0 0.0 0.0 0.0 68 G -3.642750E-05 3.774329E-05 1.267979E-06 0.0 0.0 0.0 69 G -5.077138E-05 3.916018E-05 0.0 0.0 0.0 0.0 70 G -4.685427E-05 3.907730E-05 1.370512E-06 0.0 0.0 0.0 71 G 0.0 4.936553E-05 0.0 0.0 0.0 0.0 72 G 0.0 4.917779E-05 0.0 0.0 0.0 0.0 73 G -1.399455E-05 4.958560E-05 0.0 0.0 0.0 0.0 74 G -1.439835E-05 4.937762E-05 4.004611E-07 0.0 0.0 0.0 75 G -2.825233E-05 5.016658E-05 0.0 0.0 0.0 0.0 76 G -2.860983E-05 4.996204E-05 8.313656E-07 0.0 0.0 0.0 77 G -4.288674E-05 5.109474E-05 0.0 0.0 0.0 0.0 78 G -4.255546E-05 5.095637E-05 1.269488E-06 0.0 0.0 0.0 79 G -5.898596E-05 5.236638E-05 0.0 0.0 0.0 0.0 80 G -5.505293E-05 5.229194E-05 1.375944E-06 0.0 0.0 0.0 81 G 0.0 6.465213E-05 0.0 0.0 0.0 0.0 82 G 0.0 6.447650E-05 0.0 0.0 0.0 0.0 83 G -1.599204E-05 6.487409E-05 0.0 0.0 0.0 0.0 84 G -1.640083E-05 6.466798E-05 3.929152E-07 0.0 0.0 0.0 85 G -3.228031E-05 6.544771E-05 0.0 0.0 0.0 0.0 86 G -3.264940E-05 6.523987E-05 8.234044E-07 0.0 0.0 0.0 87 G -4.900961E-05 6.636985E-05 0.0 0.0 0.0 0.0 88 G -4.867631E-05 6.622972E-05 1.267805E-06 0.0 0.0 0.0 89 G -6.727674E-05 6.764138E-05 0.0 0.0 0.0 0.0 90 G -6.327896E-05 6.756941E-05 1.384972E-06 0.0 0.0 0.0 91 G 0.0 8.196688E-05 0.0 0.0 0.0 0.0 92 G 0.0 8.183186E-05 0.0 0.0 0.0 0.0 93 G -1.794250E-05 8.219639E-05 0.0 0.0 0.0 0.0 94 G -1.839103E-05 8.200815E-05 3.930135E-07 0.0 0.0 0.0 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A 0 TWO PLANES OF SYMMETRY, PURE BENDING MOMENT D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 95 G -3.625804E-05 8.280518E-05 0.0 0.0 0.0 0.0 96 G -3.666116E-05 8.258449E-05 8.181784E-07 0.0 0.0 0.0 97 G -5.512622E-05 8.378747E-05 0.0 0.0 0.0 0.0 98 G -5.479647E-05 8.356768E-05 1.243331E-06 0.0 0.0 0.0 99 G -7.578575E-05 8.516679E-05 0.0 0.0 0.0 0.0 100 G -7.152418E-05 8.495418E-05 1.372395E-06 0.0 0.0 0.0 101 G 0.0 1.011092E-04 0.0 0.0 0.0 0.0 102 G 0.0 1.013765E-04 0.0 0.0 0.0 0.0 103 G -1.990230E-05 1.014986E-04 0.0 0.0 0.0 0.0 104 G -2.037665E-05 1.013609E-04 5.232301E-07 0.0 0.0 0.0 105 G -4.023005E-05 1.022861E-04 0.0 0.0 0.0 0.0 106 G -4.064284E-05 1.019533E-04 9.452079E-07 0.0 0.0 0.0 107 G -6.123682E-05 1.036613E-04 0.0 0.0 0.0 0.0 108 G -6.085171E-05 1.029487E-04 1.108042E-06 0.0 0.0 0.0 109 G -8.441132E-05 1.059195E-04 0.0 0.0 0.0 0.0 110 G -7.993243E-05 1.042387E-04 7.041944E-07 0.0 0.0 0.0 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A 0 TWO PLANES OF SYMMETRY, PURE BENDING MOMENT L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 103 G -5.818182E+00 0.0 0.0 0.0 0.0 0.0 104 G -5.818182E+00 0.0 0.0 0.0 0.0 0.0 105 G -1.163636E+01 0.0 0.0 0.0 0.0 0.0 106 G -1.163636E+01 0.0 0.0 0.0 0.0 0.0 107 G -1.745455E+01 0.0 0.0 0.0 0.0 0.0 108 G -1.745455E+01 0.0 0.0 0.0 0.0 0.0 109 G -1.163636E+01 0.0 0.0 0.0 0.0 0.0 110 G -1.163636E+01 0.0 0.0 0.0 0.0 0.0 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A 0 TWO PLANES OF SYMMETRY, PURE BENDING MOMENT F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.200193E-01 -4.328371E-12 3.076815E-01 0.0 0.0 0.0 2 G 2.355000E-01 0.0 4.435807E-01 0.0 0.0 0.0 3 G 5.076888E+00 0.0 5.005272E-01 0.0 0.0 0.0 4 G 7.243148E+00 0.0 0.0 0.0 0.0 0.0 5 G 1.102149E+01 0.0 6.664348E-01 0.0 0.0 0.0 6 G 1.306333E+01 0.0 0.0 0.0 0.0 0.0 7 G 1.721528E+01 0.0 1.560230E-01 0.0 0.0 0.0 8 G 1.747314E+01 0.0 0.0 0.0 0.0 0.0 9 G 1.613257E+01 0.0 -1.425851E+00 0.0 0.0 0.0 10 G 6.728694E+00 0.0 0.0 0.0 0.0 0.0 11 G -8.547883E-01 0.0 -1.664067E-01 0.0 0.0 0.0 12 G 9.104427E-01 0.0 4.051717E-01 0.0 0.0 0.0 13 G 0.0 0.0 3.330743E-01 0.0 0.0 0.0 15 G 0.0 0.0 9.531790E-02 0.0 0.0 0.0 17 G 0.0 0.0 -6.038411E-01 0.0 0.0 0.0 19 G 0.0 0.0 -9.006622E-01 0.0 0.0 0.0 21 G -9.155623E-01 0.0 -2.911960E-01 0.0 0.0 0.0 22 G 1.009436E+00 0.0 3.321466E-01 0.0 0.0 0.0 23 G 0.0 0.0 -2.410587E-02 0.0 0.0 0.0 25 G 0.0 0.0 -1.193371E-01 0.0 0.0 0.0 27 G 0.0 0.0 -3.702234E-02 0.0 0.0 0.0 29 G 0.0 0.0 -4.042901E-01 0.0 0.0 0.0 31 G -9.644368E-01 0.0 -3.186193E-01 0.0 0.0 0.0 32 G 1.001274E+00 0.0 3.225394E-01 0.0 0.0 0.0 33 G 0.0 0.0 -5.361385E-02 0.0 0.0 0.0 35 G 0.0 0.0 -1.145025E-01 0.0 0.0 0.0 37 G 0.0 0.0 1.953256E-01 0.0 0.0 0.0 39 G 0.0 0.0 -2.194339E-01 0.0 0.0 0.0 41 G -9.878631E-01 0.0 -3.234900E-01 0.0 0.0 0.0 42 G 9.854240E-01 0.0 3.239129E-01 0.0 0.0 0.0 43 G 0.0 0.0 -4.480178E-02 0.0 0.0 0.0 45 G 0.0 0.0 -9.384078E-02 0.0 0.0 0.0 47 G 0.0 0.0 2.601616E-01 0.0 0.0 0.0 49 G 0.0 0.0 -1.721291E-01 0.0 0.0 0.0 51 G -9.992784E-01 0.0 -3.221905E-01 0.0 0.0 0.0 52 G 9.662942E-01 0.0 3.227056E-01 0.0 0.0 0.0 53 G 0.0 0.0 -3.672881E-02 0.0 0.0 0.0 55 G 0.0 0.0 -8.623786E-02 0.0 0.0 0.0 57 G 0.0 0.0 2.728207E-01 0.0 0.0 0.0 59 G 0.0 0.0 -1.605400E-01 0.0 0.0 0.0 61 G -1.018168E+00 0.0 -3.201928E-01 0.0 0.0 0.0 62 G 9.349450E-01 0.0 3.179084E-01 0.0 0.0 0.0 63 G 0.0 0.0 -2.760579E-02 0.0 0.0 0.0 65 G 0.0 0.0 -8.333493E-02 0.0 0.0 0.0 67 G 0.0 0.0 2.696600E-01 0.0 0.0 0.0 69 G 0.0 0.0 -1.578923E-01 0.0 0.0 0.0 71 G -1.050108E+00 0.0 -3.179487E-01 0.0 0.0 0.0 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A 0 TWO PLANES OF SYMMETRY, PURE BENDING MOMENT F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 72 G 8.823858E-01 0.0 3.099854E-01 0.0 0.0 0.0 73 G 0.0 0.0 -8.672502E-03 0.0 0.0 0.0 75 G 0.0 0.0 -7.274164E-02 0.0 0.0 0.0 77 G 0.0 0.0 2.596842E-01 0.0 0.0 0.0 79 G 0.0 0.0 -1.692700E-01 0.0 0.0 0.0 81 G -1.096077E+00 0.0 -3.183673E-01 0.0 0.0 0.0 82 G 8.210829E-01 0.0 3.028427E-01 0.0 0.0 0.0 83 G 0.0 0.0 3.378375E-02 0.0 0.0 0.0 85 G 0.0 0.0 -4.628116E-02 0.0 0.0 0.0 87 G 0.0 0.0 2.737601E-01 0.0 0.0 0.0 89 G 0.0 0.0 -2.570263E-01 0.0 0.0 0.0 91 G -1.093214E+00 0.0 -3.496839E-01 0.0 0.0 0.0 92 G 8.544708E-01 0.0 2.707089E-01 0.0 0.0 0.0 93 G 0.0 0.0 -1.200761E-02 0.0 0.0 0.0 95 G 0.0 0.0 -1.059262E-01 0.0 0.0 0.0 97 G 0.0 0.0 3.824981E-01 0.0 0.0 0.0 99 G 0.0 0.0 5.936363E-03 0.0 0.0 0.0 101 G -5.077267E-01 0.0 -4.601036E-01 0.0 0.0 0.0 102 G 3.423530E-01 0.0 -3.337049E-01 0.0 0.0 0.0 103 G 0.0 0.0 -1.268459E+00 0.0 0.0 0.0 105 G 0.0 0.0 -9.431822E-01 0.0 0.0 0.0 107 G 0.0 0.0 1.654901E+00 0.0 0.0 0.0 109 G 0.0 0.0 2.152148E+00 0.0 0.0 0.0 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A 0 TWO PLANES OF SYMMETRY, PURE BENDING MOMENT S T R E S S E S I N S O L I D H E X A H E D R O N E L E M E N T S ( C H E X A 1 ) OCTAHEDRAL PRESSURE ELEMENT-ID SIGMA-XX SIGMA-YY SIGMA-ZZ TAU-YZ TAU-XZ TAU-XY TAU-0 P 1 -1.576126E+00 2.958350E-02 -5.028161E-02 -1.336058E-01 -2.204831E-01 -1.107740E-02 7.682881E-01 5.322748E-01 2 -4.543242E+00 3.648633E-02 -8.283961E-02 2.509910E-02 -2.434309E-01 -4.949611E-02 2.141064E+00 1.529865E+00 3 -7.392510E+00 5.535716E-02 4.060616E-02 1.625120E-01 -1.629294E-01 -6.108123E-02 3.512870E+00 2.432183E+00 4 -9.955628E+00 -1.071121E-01 1.310855E-01 2.671177E-01 4.647440E-01 1.216547E-01 4.721166E+00 3.310552E+00 5 -1.614058E+00 -1.360381E-02 -2.959606E-02 -2.806550E-02 -2.868141E-01 -3.302363E-02 7.871940E-01 5.524191E-01 6 -4.534679E+00 -4.400611E-03 -3.028661E-05 1.496398E-02 -3.943402E-01 -8.965731E-03 2.160795E+00 1.513037E+00 7 -7.494325E+00 -4.297674E-02 7.008879E-02 9.484351E-02 -2.210109E-01 3.158975E-02 3.545087E+00 2.489071E+00 8 -9.838358E+00 8.677578E-02 2.116143E-01 5.691540E-02 9.494026E-01 1.039982E-02 4.772072E+00 3.179989E+00 9 -1.629150E+00 -9.889126E-03 -2.406824E-02 -4.046082E-03 -2.964836E-01 -1.670873E-02 7.977528E-01 5.543692E-01 10 -4.570040E+00 -2.057052E-02 1.168949E-02 1.659775E-02 -4.123003E-01 1.732588E-03 2.178495E+00 1.526307E+00 11 -7.469863E+00 -1.516819E-03 8.975640E-02 4.351068E-02 -1.920817E-01 8.438945E-03 3.545976E+00 2.460541E+00 12 -9.835840E+00 1.328111E-02 6.658131E-02 -2.788568E-02 1.084055E+00 6.535530E-03 4.738986E+00 3.251992E+00 13 -1.635826E+00 -6.270885E-03 -2.379012E-02 -1.618862E-04 -2.977535E-01 -3.914356E-03 8.018350E-01 5.552958E-01 14 -4.574477E+00 -1.008272E-02 1.539746E-02 1.164985E-02 -4.086206E-01 -5.950620E-04 2.183370E+00 1.523054E+00 15 -7.469188E+00 -5.460739E-03 8.519366E-02 3.230429E-02 -1.791415E-01 1.183987E-03 3.543114E+00 2.463152E+00 16 -9.834611E+00 4.434586E-04 2.182162E-02 -3.874397E-02 1.115780E+00 3.325701E-03 4.730010E+00 3.270782E+00 17 -1.635057E+00 -4.718781E-03 -2.363586E-02 -3.643036E-04 -2.972760E-01 3.789663E-03 8.017595E-01 5.544707E-01 18 -4.573621E+00 -1.023674E-02 1.482880E-02 8.808613E-03 -4.068058E-01 4.512072E-04 2.182567E+00 1.523010E+00 19 -7.469590E+00 -8.566856E-03 8.218201E-02 3.012180E-02 -1.759400E-01 -2.728760E-03 3.541744E+00 2.465325E+00 20 -9.835216E+00 -2.504349E-03 1.090306E-02 -3.910828E-02 1.122833E+00 -1.512051E-03 4.728192E+00 3.275605E+00 21 -1.631439E+00 -6.843567E-03 -2.427769E-02 -3.600121E-04 -2.965500E-01 1.356506E-02 7.993981E-01 5.541866E-01 22 -4.567224E+00 -1.629066E-02 1.332760E-02 6.801605E-03 -4.063549E-01 3.351927E-03 2.177777E+00 1.523396E+00 23 -7.466712E+00 -1.474380E-02 8.104759E-02 2.894688E-02 -1.761217E-01 -8.238822E-03 3.538694E+00 2.466803E+00 24 -9.839874E+00 -5.101204E-03 9.043336E-03 -3.794003E-02 1.124380E+00 -8.681178E-03 4.729559E+00 3.278644E+00 25 -1.623712E+00 -1.071739E-02 -2.565479E-02 2.574921E-04 -2.955208E-01 2.999973E-02 7.947855E-01 5.533614E-01 26 -4.551358E+00 -2.662277E-02 1.085758E-02 4.893303E-03 -4.065099E-01 9.416103E-03 2.167452E+00 1.522375E+00 27 -7.457133E+00 -2.575684E-02 8.031261E-02 2.830219E-02 -1.779594E-01 -1.707709E-02 3.531545E+00 2.467526E+00 28 -9.852229E+00 -1.009560E-02 9.496182E-03 -3.508854E-02 1.125708E+00 -2.233887E-02 4.734452E+00 3.284276E+00 29 -1.609839E+00 -1.332092E-02 -2.805901E-02 1.757622E-03 -2.951562E-01 5.622578E-02 7.883039E-01 5.504064E-01 30 -4.520524E+00 -3.636932E-02 6.625652E-03 3.610611E-03 -4.099102E-01 1.980495E-02 2.150327E+00 1.516756E+00 31 -7.433674E+00 -3.355980E-02 7.936215E-02 2.889347E-02 -1.827412E-01 -2.927661E-02 3.518691E+00 2.462624E+00 32 -9.878480E+00 -1.687431E-02 9.097576E-03 -3.086185E-02 1.133265E+00 -4.675579E-02 4.746234E+00 3.295419E+00 33 -1.591774E+00 -8.911133E-03 -2.540112E-02 1.225471E-02 -2.982492E-01 8.828449E-02 7.846181E-01 5.420286E-01 34 -4.463443E+00 -1.529312E-02 1.390314E-02 6.919861E-03 -4.217277E-01 3.219414E-02 2.131957E+00 1.488278E+00 35 -7.395667E+00 -2.238846E-02 7.124901E-02 1.391411E-02 -1.976213E-01 -4.557657E-02 3.502012E+00 2.448936E+00 36 -9.922865E+00 2.910614E-03 -6.815434E-03 -5.610466E-02 1.165877E+00 -7.490349E-02 4.773274E+00 3.308923E+00 37 -1.575201E+00 4.468918E-02 5.376720E-02 1.180191E-01 -2.816248E-01 8.877182E-02 8.085924E-01 4.922483E-01 38 -4.399051E+00 1.033859E-01 1.453304E-01 1.848793E-02 -3.961353E-01 3.708935E-02 2.157080E+00 1.383445E+00 39 -7.320324E+00 9.962082E-02 6.610298E-02 -1.196098E-01 -2.058382E-01 -3.526402E-02 3.495450E+00 2.384867E+00 40 -1.001950E+01 3.826904E-02 -4.023714E-01 -4.855537E-01 1.083998E+00 -9.059048E-02 4.741730E+00 3.461200E+00 1 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A TWO PLANES OF SYMMETRY, PURE BENDING MOMENT 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. * * * END OF JOB * * * 1 JOB TITLE = 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. DATE: 5/17/95 END TIME: 14:58:22 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01091a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01091A,NASTRAN APP DISP SOL 1,3 TIME 15 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 TWO PLANES OF SYMMETRY 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS. 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 3 LABEL = TWO PLANES OF SYMMETRY 4 SPC = 2 5 OUTPUT 6 DISPLACEMENTS = ALL 7 OLOAD = ALL 8 SUBCASE 1 9 LOAD = 20 10 LABEL = UNIFORM STRESS. 11 SPCFORCE = ALL 12 STRESS = ALL 13 SUBCASE 2 14 TEMPERATURE(LOAD) = 30 15 LABEL = UNIFORM TEMPERATURE LOAD. 16 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 206, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 TWO PLANES OF SYMMETRY 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CHEXA2 1 1 1 2 5 4 10 11 +HEX 1 2- +HEX 114 13 3- CHEXA2 2 1 2 3 6 5 11 12 +HEX 2 4- +HEX 215 14 5- CHEXA2 3 1 4 5 8 7 13 14 +HEX 3 6- +HEX 317 16 7- CHEXA2 4 1 5 6 9 8 14 15 +HEX 4 8- +HEX 418 17 9- CHEXA2 5 1 10 11 14 13 19 20 +HEX 5 10- +HEX 523 22 11- CHEXA2 6 1 11 12 15 14 20 21 +HEX 6 12- +HEX 624 23 13- CHEXA2 7 1 13 14 17 16 22 23 +HEX 7 14- +HEX 726 25 15- CHEXA2 8 1 14 15 18 17 23 24 +HEX 8 16- +HEX 827 26 17- CHEXA2 9 1 19 20 23 22 28 29 +HEX 9 18- +HEX 932 31 19- CHEXA2 10 1 20 21 24 23 29 30 +HEX 10 20- +HEX 1033 32 21- CHEXA2 11 1 22 23 26 25 31 32 +HEX 11 22- +HEX 1135 34 23- CHEXA2 12 1 23 24 27 26 32 33 +HEX 12 24- +HEX 1236 35 25- CHEXA2 13 1 28 29 32 31 37 38 +HEX 13 26- +HEX 1341 40 27- CHEXA2 14 1 29 30 33 32 38 39 +HEX 14 28- +HEX 1442 41 29- CHEXA2 15 1 31 32 35 34 40 41 +HEX 15 30- +HEX 1544 43 31- CHEXA2 16 1 32 33 36 35 41 42 +HEX 16 32- +HEX 1645 44 33- CHEXA2 17 1 37 38 41 40 46 47 +HEX 17 34- +HEX 1750 49 35- CHEXA2 18 1 38 39 42 41 47 48 +HEX 18 36- +HEX 1851 50 37- CHEXA2 19 1 40 41 44 43 49 50 +HEX 19 38- +HEX 1953 52 39- CHEXA2 20 1 41 42 45 44 50 51 +HEX 20 40- +HEX 2054 53 41- CHEXA2 21 1 46 47 50 49 55 56 +HEX 21 42- +HEX 2159 58 43- CHEXA2 22 1 47 48 51 50 56 57 +HEX 22 44- +HEX 2260 59 45- CHEXA2 23 1 49 50 53 52 58 59 +HEX 23 46- +HEX 2362 61 47- CHEXA2 24 1 50 51 54 53 59 60 +HEX 24 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A TWO PLANES OF SYMMETRY S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- +HEX 2463 62 49- CHEXA2 25 1 55 56 59 58 64 65 +HEX 25 50- +HEX 2568 67 51- CHEXA2 26 1 56 57 60 59 65 66 +HEX 26 52- +HEX 2669 68 53- CHEXA2 27 1 58 59 62 61 67 68 +HEX 27 54- +HEX 2771 70 55- CHEXA2 28 1 59 60 63 62 68 69 +HEX 28 56- +HEX 2872 71 57- CHEXA2 29 1 64 65 68 67 73 74 +HEX 29 58- +HEX 2977 76 59- CHEXA2 30 1 65 66 69 68 74 75 +HEX 30 60- +HEX 3078 77 61- CHEXA2 31 1 67 68 71 70 76 77 +HEX 31 62- +HEX 3180 79 63- CHEXA2 32 1 68 69 72 71 77 78 +HEX 32 64- +HEX 3281 80 65- CHEXA2 33 1 73 74 77 76 82 83 +HEX 33 66- +HEX 3386 85 67- CHEXA2 34 1 74 75 78 77 83 84 +HEX 34 68- +HEX 3487 86 69- CHEXA2 35 1 76 77 80 79 85 86 +HEX 35 70- +HEX 3589 88 71- CHEXA2 36 1 77 78 81 80 86 87 +HEX 36 72- +HEX 3690 89 73- CHEXA2 37 1 82 83 86 85 91 92 +HEX 37 74- +HEX 3795 94 75- CHEXA2 38 1 83 84 87 86 92 93 +HEX 38 76- +HEX 3896 95 77- CHEXA2 39 1 85 86 89 88 94 95 +HEX 39 78- +HEX 3998 97 79- CHEXA2 40 1 86 87 90 89 95 96 +HEX 40 80- +HEX 4099 98 81- CNGRNT 1 2 THRU 40 82- FORCE1 20 91 .375+3 82 91 83- FORCE1 20 92 .75+3 83 92 84- FORCE1 20 93 .375+3 84 93 85- FORCE1 20 94 .75+3 85 94 86- FORCE1 20 95 1.5+3 86 95 87- FORCE1 20 96 .75+3 87 96 88- FORCE1 20 97 .375+3 88 97 89- FORCE1 20 98 .75+3 89 98 90- FORCE1 20 99 .375+3 90 99 91- GRID 1 0.0 0.0 0.0 456 92- GRID 2 0.0 0.0 1.00000 456 93- GRID 3 0.0 0.0 2.00000 456 94- GRID 4 0.0 1.00000 0.0 456 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A TWO PLANES OF SYMMETRY S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- GRID 5 0.0 1.00000 1.00000 456 96- GRID 6 0.0 1.00000 2.00000 456 97- GRID 7 0.0 2.00000 0.0 456 98- GRID 8 0.0 2.00000 1.00000 456 99- GRID 9 0.0 2.00000 2.00000 456 100- GRID 10 -2.000000.0 0.0 456 101- GRID 11 -2.000000.0 1.00000 456 102- GRID 12 -2.000000.0 2.00000 456 103- GRID 13 -2.000001.00000 0.0 456 104- GRID 14 -2.000001.00000 1.00000 456 105- GRID 15 -2.000001.00000 2.00000 456 106- GRID 16 -2.000002.00000 0.0 456 107- GRID 17 -2.000002.00000 1.00000 456 108- GRID 18 -2.000002.00000 2.00000 456 109- GRID 19 -4.000000.0 0.0 456 110- GRID 20 -4.000000.0 1.00000 456 111- GRID 21 -4.000000.0 2.00000 456 112- GRID 22 -4.000001.00000 0.0 456 113- GRID 23 -4.000001.00000 1.00000 456 114- GRID 24 -4.000001.00000 2.00000 456 115- GRID 25 -4.000002.00000 0.0 456 116- GRID 26 -4.000002.00000 1.00000 456 117- GRID 27 -4.000002.00000 2.00000 456 118- GRID 28 -6.000000.0 0.0 456 119- GRID 29 -6.000000.0 1.00000 456 120- GRID 30 -6.000000.0 2.00000 456 121- GRID 31 -6.000001.00000 0.0 456 122- GRID 32 -6.000001.00000 1.00000 456 123- GRID 33 -6.000001.00000 2.00000 456 124- GRID 34 -6.000002.00000 0.0 456 125- GRID 35 -6.000002.00000 1.00000 456 126- GRID 36 -6.000002.00000 2.00000 456 127- GRID 37 -8.000000.0 0.0 456 128- GRID 38 -8.000000.0 1.00000 456 129- GRID 39 -8.000000.0 2.00000 456 130- GRID 40 -8.000001.00000 0.0 456 131- GRID 41 -8.000001.00000 1.00000 456 132- GRID 42 -8.000001.00000 2.00000 456 133- GRID 43 -8.000002.00000 0.0 456 134- GRID 44 -8.000002.00000 1.00000 456 135- GRID 45 -8.000002.00000 2.00000 456 136- GRID 46 -10.00000.0 0.0 456 137- GRID 47 -10.00000.0 1.00000 456 138- GRID 48 -10.00000.0 2.00000 456 139- GRID 49 -10.00001.00000 0.0 456 140- GRID 50 -10.00001.00000 1.00000 456 141- GRID 51 -10.00001.00000 2.00000 456 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A TWO PLANES OF SYMMETRY S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 52 -10.00002.00000 0.0 456 143- GRID 53 -10.00002.00000 1.00000 456 144- GRID 54 -10.00002.00000 2.00000 456 145- GRID 55 -12.00000.0 0.0 456 146- GRID 56 -12.00000.0 1.00000 456 147- GRID 57 -12.00000.0 2.00000 456 148- GRID 58 -12.00001.00000 0.0 456 149- GRID 59 -12.00001.00000 1.00000 456 150- GRID 60 -12.00001.00000 2.00000 456 151- GRID 61 -12.00002.00000 0.0 456 152- GRID 62 -12.00002.00000 1.00000 456 153- GRID 63 -12.00002.00000 2.00000 456 154- GRID 64 -14.00000.0 0.0 456 155- GRID 65 -14.00000.0 1.00000 456 156- GRID 66 -14.00000.0 2.00000 456 157- GRID 67 -14.00001.00000 0.0 456 158- GRID 68 -14.00001.00000 1.00000 456 159- GRID 69 -14.00001.00000 2.00000 456 160- GRID 70 -14.00002.00000 0.0 456 161- GRID 71 -14.00002.00000 1.00000 456 162- GRID 72 -14.00002.00000 2.00000 456 163- GRID 73 -16.00000.0 0.0 456 164- GRID 74 -16.00000.0 1.00000 456 165- GRID 75 -16.00000.0 2.00000 456 166- GRID 76 -16.00001.00000 0.0 456 167- GRID 77 -16.00001.00000 1.00000 456 168- GRID 78 -16.00001.00000 2.00000 456 169- GRID 79 -16.00002.00000 0.0 456 170- GRID 80 -16.00002.00000 1.00000 456 171- GRID 81 -16.00002.00000 2.00000 456 172- GRID 82 -18.00000.0 0.0 456 173- GRID 83 -18.00000.0 1.00000 456 174- GRID 84 -18.00000.0 2.00000 456 175- GRID 85 -18.00001.00000 0.0 456 176- GRID 86 -18.00001.00000 1.00000 456 177- GRID 87 -18.00001.00000 2.00000 456 178- GRID 88 -18.00002.00000 0.0 456 179- GRID 89 -18.00002.00000 1.00000 456 180- GRID 90 -18.00002.00000 2.00000 456 181- GRID 91 -20.00000.0 0.0 456 182- GRID 92 -20.00000.0 1.00000 456 183- GRID 93 -20.00000.0 2.00000 456 184- GRID 94 -20.00001.00000 0.0 456 185- GRID 95 -20.00001.00000 1.00000 456 186- GRID 96 -20.00001.00000 2.00000 456 187- GRID 97 -20.00002.00000 0.0 456 188- GRID 98 -20.00002.00000 1.00000 456 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A TWO PLANES OF SYMMETRY S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- GRID 99 -20.00002.00000 2.00000 456 190- MAT1 1 3.0+6 .2 1.0 .001 10.0 +MAT1 191- SPC1 100 1 1 2 3 4 5 6 192- SPC1 100 1 7 8 9 193- SPC1 100 2 1 2 3 194- SPC1 103 3 1 4 7 10 13 16 +1SPC103 195- +1SPC10319 22 25 28 31 34 37 40 +2SPC103 196- +2SPC10343 46 49 52 55 58 61 64 +3SPC103 197- +3SPC10367 70 73 76 79 82 85 88 +4SPC103 198- +4SPC10391 94 97 199- SPC1 104 2 1 2 3 10 11 12 200- SPC1 104 2 19 20 21 28 29 30 201- SPC1 104 2 37 38 39 46 47 48 202- SPC1 104 2 55 56 57 64 65 66 203- SPC1 104 2 73 74 75 82 83 84 204- SPC1 104 2 91 92 93 205- SPCADD 2 100 104 103 206- TEMPD 30 60.0 ENDDATA 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 TWO PLANES OF SYMMETRY 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 14 PROFILE 1173 MAX WAVEFRONT 14 AVG WAVEFRONT 11.848 RMS WAVEFRONT 12.148 RMS BANDWIDTH 12.219 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 15 PROFILE 1206 MAX WAVEFRONT 15 AVG WAVEFRONT 12.182 RMS WAVEFRONT 12.523 RMS BANDWIDTH 12.560 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 14 14 PROFILE (P) 1173 1173 MAXIMUM WAVEFRONT (C-MAX) 14 14 AVERAGE WAVEFRONT (C-AVG) 11.848 11.848 RMS WAVEFRONT (C-RMS) 12.148 12.148 RMS BANDWITCH (B-RMS) 12.219 12.219 NUMBER OF GRID POINTS (N) 99 NUMBER OF ELEMENTS (NON-RIGID) 40 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 26 MINIMUM NODAL DEGREE 7 NUMBER OF UNIQUE EDGES 710 MATRIX DENSITY, PERCENT 15.498 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HEXA2 ELEMENTS (ELEMENT TYPE 42) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 4.1212456E-15 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 1.0547864E-16 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM STRESS. SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 -1.000000E-04 0.0 0.0 0.0 3 G 0.0 0.0 -2.000000E-04 0.0 0.0 0.0 4 G 0.0 -1.000000E-04 0.0 0.0 0.0 0.0 5 G 0.0 -1.000000E-04 -1.000000E-04 0.0 0.0 0.0 6 G 0.0 -1.000000E-04 -2.000000E-04 0.0 0.0 0.0 7 G 0.0 -2.000000E-04 0.0 0.0 0.0 0.0 8 G 0.0 -2.000000E-04 -1.000000E-04 0.0 0.0 0.0 9 G 0.0 -2.000000E-04 -2.000000E-04 0.0 0.0 0.0 10 G -1.000000E-03 0.0 0.0 0.0 0.0 0.0 11 G -1.000000E-03 0.0 -1.000000E-04 0.0 0.0 0.0 12 G -1.000000E-03 0.0 -2.000000E-04 0.0 0.0 0.0 13 G -1.000000E-03 -1.000000E-04 0.0 0.0 0.0 0.0 14 G -1.000000E-03 -1.000000E-04 -1.000000E-04 0.0 0.0 0.0 15 G -1.000000E-03 -1.000000E-04 -2.000000E-04 0.0 0.0 0.0 16 G -1.000000E-03 -2.000000E-04 0.0 0.0 0.0 0.0 17 G -1.000000E-03 -2.000000E-04 -1.000000E-04 0.0 0.0 0.0 18 G -1.000000E-03 -2.000000E-04 -2.000000E-04 0.0 0.0 0.0 19 G -2.000000E-03 0.0 0.0 0.0 0.0 0.0 20 G -2.000000E-03 0.0 -1.000000E-04 0.0 0.0 0.0 21 G -2.000000E-03 0.0 -2.000000E-04 0.0 0.0 0.0 22 G -2.000000E-03 -1.000000E-04 0.0 0.0 0.0 0.0 23 G -2.000000E-03 -1.000000E-04 -1.000000E-04 0.0 0.0 0.0 24 G -2.000000E-03 -1.000000E-04 -2.000000E-04 0.0 0.0 0.0 25 G -2.000000E-03 -2.000000E-04 0.0 0.0 0.0 0.0 26 G -2.000000E-03 -2.000000E-04 -1.000000E-04 0.0 0.0 0.0 27 G -2.000000E-03 -2.000000E-04 -2.000000E-04 0.0 0.0 0.0 28 G -3.000000E-03 0.0 0.0 0.0 0.0 0.0 29 G -3.000000E-03 0.0 -1.000000E-04 0.0 0.0 0.0 30 G -3.000000E-03 0.0 -2.000000E-04 0.0 0.0 0.0 31 G -3.000000E-03 -1.000000E-04 0.0 0.0 0.0 0.0 32 G -3.000000E-03 -1.000000E-04 -1.000000E-04 0.0 0.0 0.0 33 G -3.000000E-03 -1.000000E-04 -2.000000E-04 0.0 0.0 0.0 34 G -3.000000E-03 -2.000000E-04 0.0 0.0 0.0 0.0 35 G -3.000000E-03 -2.000000E-04 -1.000000E-04 0.0 0.0 0.0 36 G -3.000000E-03 -2.000000E-04 -2.000000E-04 0.0 0.0 0.0 37 G -4.000000E-03 0.0 0.0 0.0 0.0 0.0 38 G -4.000000E-03 0.0 -1.000000E-04 0.0 0.0 0.0 39 G -4.000000E-03 0.0 -2.000000E-04 0.0 0.0 0.0 40 G -4.000000E-03 -1.000000E-04 0.0 0.0 0.0 0.0 41 G -4.000000E-03 -1.000000E-04 -1.000000E-04 0.0 0.0 0.0 42 G -4.000000E-03 -1.000000E-04 -2.000000E-04 0.0 0.0 0.0 43 G -4.000000E-03 -2.000000E-04 0.0 0.0 0.0 0.0 44 G -4.000000E-03 -2.000000E-04 -1.000000E-04 0.0 0.0 0.0 45 G -4.000000E-03 -2.000000E-04 -2.000000E-04 0.0 0.0 0.0 46 G -5.000000E-03 0.0 0.0 0.0 0.0 0.0 47 G -5.000000E-03 0.0 -1.000000E-04 0.0 0.0 0.0 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM STRESS. SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 48 G -5.000000E-03 0.0 -2.000000E-04 0.0 0.0 0.0 49 G -5.000000E-03 -1.000000E-04 0.0 0.0 0.0 0.0 50 G -5.000000E-03 -1.000000E-04 -1.000000E-04 0.0 0.0 0.0 51 G -5.000000E-03 -1.000000E-04 -2.000000E-04 0.0 0.0 0.0 52 G -5.000000E-03 -2.000000E-04 0.0 0.0 0.0 0.0 53 G -5.000000E-03 -2.000000E-04 -1.000000E-04 0.0 0.0 0.0 54 G -5.000000E-03 -2.000000E-04 -2.000000E-04 0.0 0.0 0.0 55 G -6.000000E-03 0.0 0.0 0.0 0.0 0.0 56 G -6.000000E-03 0.0 -1.000000E-04 0.0 0.0 0.0 57 G -6.000000E-03 0.0 -2.000000E-04 0.0 0.0 0.0 58 G -6.000000E-03 -1.000000E-04 0.0 0.0 0.0 0.0 59 G -6.000000E-03 -1.000000E-04 -1.000000E-04 0.0 0.0 0.0 60 G -6.000000E-03 -1.000000E-04 -2.000000E-04 0.0 0.0 0.0 61 G -6.000000E-03 -2.000000E-04 0.0 0.0 0.0 0.0 62 G -6.000000E-03 -2.000000E-04 -1.000000E-04 0.0 0.0 0.0 63 G -6.000000E-03 -2.000000E-04 -2.000000E-04 0.0 0.0 0.0 64 G -7.000000E-03 0.0 0.0 0.0 0.0 0.0 65 G -7.000000E-03 0.0 -1.000000E-04 0.0 0.0 0.0 66 G -7.000000E-03 0.0 -2.000000E-04 0.0 0.0 0.0 67 G -7.000000E-03 -1.000000E-04 0.0 0.0 0.0 0.0 68 G -7.000000E-03 -1.000000E-04 -1.000000E-04 0.0 0.0 0.0 69 G -7.000000E-03 -1.000000E-04 -2.000000E-04 0.0 0.0 0.0 70 G -7.000000E-03 -2.000000E-04 0.0 0.0 0.0 0.0 71 G -7.000000E-03 -2.000000E-04 -1.000000E-04 0.0 0.0 0.0 72 G -7.000000E-03 -2.000000E-04 -2.000000E-04 0.0 0.0 0.0 73 G -8.000000E-03 0.0 0.0 0.0 0.0 0.0 74 G -8.000000E-03 0.0 -1.000000E-04 0.0 0.0 0.0 75 G -8.000000E-03 0.0 -2.000000E-04 0.0 0.0 0.0 76 G -8.000000E-03 -1.000000E-04 0.0 0.0 0.0 0.0 77 G -8.000000E-03 -1.000000E-04 -1.000000E-04 0.0 0.0 0.0 78 G -8.000000E-03 -1.000000E-04 -2.000000E-04 0.0 0.0 0.0 79 G -8.000000E-03 -2.000000E-04 0.0 0.0 0.0 0.0 80 G -8.000000E-03 -2.000000E-04 -1.000000E-04 0.0 0.0 0.0 81 G -8.000000E-03 -2.000000E-04 -2.000000E-04 0.0 0.0 0.0 82 G -9.000001E-03 0.0 0.0 0.0 0.0 0.0 83 G -9.000001E-03 0.0 -1.000000E-04 0.0 0.0 0.0 84 G -9.000001E-03 0.0 -2.000000E-04 0.0 0.0 0.0 85 G -9.000001E-03 -1.000000E-04 0.0 0.0 0.0 0.0 86 G -9.000001E-03 -1.000000E-04 -1.000000E-04 0.0 0.0 0.0 87 G -9.000001E-03 -1.000000E-04 -2.000000E-04 0.0 0.0 0.0 88 G -9.000001E-03 -2.000000E-04 0.0 0.0 0.0 0.0 89 G -9.000001E-03 -2.000000E-04 -1.000000E-04 0.0 0.0 0.0 90 G -9.000001E-03 -2.000000E-04 -2.000000E-04 0.0 0.0 0.0 91 G -1.000000E-02 0.0 0.0 0.0 0.0 0.0 92 G -1.000000E-02 0.0 -1.000000E-04 0.0 0.0 0.0 93 G -1.000000E-02 0.0 -2.000000E-04 0.0 0.0 0.0 94 G -1.000000E-02 -1.000000E-04 0.0 0.0 0.0 0.0 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM STRESS. SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 95 G -1.000000E-02 -1.000000E-04 -1.000000E-04 0.0 0.0 0.0 96 G -1.000000E-02 -1.000000E-04 -2.000000E-04 0.0 0.0 0.0 97 G -1.000000E-02 -2.000000E-04 0.0 0.0 0.0 0.0 98 G -1.000000E-02 -2.000000E-04 -1.000000E-04 0.0 0.0 0.0 99 G -1.000000E-02 -2.000000E-04 -2.000000E-04 0.0 0.0 0.0 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM TEMPERATURE LOAD. SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 5.000001E-02 0.0 0.0 0.0 3 G 0.0 0.0 1.000000E-01 0.0 0.0 0.0 4 G 0.0 5.000001E-02 0.0 0.0 0.0 0.0 5 G 0.0 5.000001E-02 5.000001E-02 0.0 0.0 0.0 6 G 0.0 5.000001E-02 1.000000E-01 0.0 0.0 0.0 7 G 0.0 1.000000E-01 0.0 0.0 0.0 0.0 8 G 0.0 1.000000E-01 5.000001E-02 0.0 0.0 0.0 9 G 0.0 1.000000E-01 1.000000E-01 0.0 0.0 0.0 10 G -1.000000E-01 0.0 0.0 0.0 0.0 0.0 11 G -1.000000E-01 0.0 5.000001E-02 0.0 0.0 0.0 12 G -1.000000E-01 0.0 1.000000E-01 0.0 0.0 0.0 13 G -1.000000E-01 5.000001E-02 0.0 0.0 0.0 0.0 14 G -1.000000E-01 5.000001E-02 5.000001E-02 0.0 0.0 0.0 15 G -1.000000E-01 5.000001E-02 1.000000E-01 0.0 0.0 0.0 16 G -1.000000E-01 1.000000E-01 0.0 0.0 0.0 0.0 17 G -1.000000E-01 1.000000E-01 5.000001E-02 0.0 0.0 0.0 18 G -1.000000E-01 1.000000E-01 1.000000E-01 0.0 0.0 0.0 19 G -2.000000E-01 0.0 0.0 0.0 0.0 0.0 20 G -2.000000E-01 0.0 5.000001E-02 0.0 0.0 0.0 21 G -2.000000E-01 0.0 1.000000E-01 0.0 0.0 0.0 22 G -2.000000E-01 5.000000E-02 0.0 0.0 0.0 0.0 23 G -2.000000E-01 5.000000E-02 5.000001E-02 0.0 0.0 0.0 24 G -2.000000E-01 5.000001E-02 1.000000E-01 0.0 0.0 0.0 25 G -2.000000E-01 1.000000E-01 0.0 0.0 0.0 0.0 26 G -2.000000E-01 1.000000E-01 5.000000E-02 0.0 0.0 0.0 27 G -2.000000E-01 1.000000E-01 1.000000E-01 0.0 0.0 0.0 28 G -3.000000E-01 0.0 0.0 0.0 0.0 0.0 29 G -3.000000E-01 0.0 5.000000E-02 0.0 0.0 0.0 30 G -3.000000E-01 0.0 1.000000E-01 0.0 0.0 0.0 31 G -3.000000E-01 5.000001E-02 0.0 0.0 0.0 0.0 32 G -3.000000E-01 5.000001E-02 5.000001E-02 0.0 0.0 0.0 33 G -3.000000E-01 5.000001E-02 1.000000E-01 0.0 0.0 0.0 34 G -3.000000E-01 1.000000E-01 0.0 0.0 0.0 0.0 35 G -3.000000E-01 1.000000E-01 5.000001E-02 0.0 0.0 0.0 36 G -3.000000E-01 1.000000E-01 1.000000E-01 0.0 0.0 0.0 37 G -4.000000E-01 0.0 0.0 0.0 0.0 0.0 38 G -4.000000E-01 0.0 5.000001E-02 0.0 0.0 0.0 39 G -4.000000E-01 0.0 1.000000E-01 0.0 0.0 0.0 40 G -4.000000E-01 5.000000E-02 0.0 0.0 0.0 0.0 41 G -4.000000E-01 5.000000E-02 5.000001E-02 0.0 0.0 0.0 42 G -4.000000E-01 5.000001E-02 1.000000E-01 0.0 0.0 0.0 43 G -4.000000E-01 1.000000E-01 0.0 0.0 0.0 0.0 44 G -4.000000E-01 1.000000E-01 5.000001E-02 0.0 0.0 0.0 45 G -4.000000E-01 1.000000E-01 1.000000E-01 0.0 0.0 0.0 46 G -5.000000E-01 0.0 0.0 0.0 0.0 0.0 47 G -5.000000E-01 0.0 5.000001E-02 0.0 0.0 0.0 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM TEMPERATURE LOAD. SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 48 G -5.000000E-01 0.0 1.000000E-01 0.0 0.0 0.0 49 G -5.000000E-01 5.000001E-02 0.0 0.0 0.0 0.0 50 G -5.000000E-01 5.000001E-02 5.000001E-02 0.0 0.0 0.0 51 G -5.000000E-01 5.000001E-02 1.000000E-01 0.0 0.0 0.0 52 G -5.000000E-01 1.000000E-01 0.0 0.0 0.0 0.0 53 G -5.000000E-01 1.000000E-01 5.000001E-02 0.0 0.0 0.0 54 G -5.000000E-01 1.000000E-01 1.000000E-01 0.0 0.0 0.0 55 G -6.000000E-01 0.0 0.0 0.0 0.0 0.0 56 G -6.000000E-01 0.0 5.000000E-02 0.0 0.0 0.0 57 G -6.000000E-01 0.0 1.000000E-01 0.0 0.0 0.0 58 G -6.000000E-01 5.000000E-02 0.0 0.0 0.0 0.0 59 G -6.000000E-01 5.000000E-02 5.000000E-02 0.0 0.0 0.0 60 G -6.000000E-01 5.000000E-02 1.000000E-01 0.0 0.0 0.0 61 G -6.000000E-01 1.000000E-01 0.0 0.0 0.0 0.0 62 G -6.000000E-01 1.000000E-01 5.000000E-02 0.0 0.0 0.0 63 G -6.000000E-01 1.000000E-01 1.000000E-01 0.0 0.0 0.0 64 G -7.000000E-01 0.0 0.0 0.0 0.0 0.0 65 G -7.000000E-01 0.0 5.000000E-02 0.0 0.0 0.0 66 G -7.000000E-01 0.0 1.000000E-01 0.0 0.0 0.0 67 G -7.000000E-01 5.000000E-02 0.0 0.0 0.0 0.0 68 G -7.000000E-01 5.000000E-02 5.000000E-02 0.0 0.0 0.0 69 G -7.000000E-01 5.000000E-02 1.000000E-01 0.0 0.0 0.0 70 G -7.000000E-01 1.000000E-01 0.0 0.0 0.0 0.0 71 G -7.000000E-01 1.000000E-01 5.000000E-02 0.0 0.0 0.0 72 G -7.000000E-01 1.000000E-01 1.000000E-01 0.0 0.0 0.0 73 G -8.000000E-01 0.0 0.0 0.0 0.0 0.0 74 G -8.000000E-01 0.0 5.000000E-02 0.0 0.0 0.0 75 G -8.000000E-01 0.0 1.000000E-01 0.0 0.0 0.0 76 G -8.000000E-01 5.000000E-02 0.0 0.0 0.0 0.0 77 G -8.000000E-01 5.000000E-02 5.000000E-02 0.0 0.0 0.0 78 G -8.000000E-01 5.000000E-02 1.000000E-01 0.0 0.0 0.0 79 G -8.000000E-01 1.000000E-01 0.0 0.0 0.0 0.0 80 G -8.000000E-01 1.000000E-01 5.000000E-02 0.0 0.0 0.0 81 G -8.000000E-01 1.000000E-01 1.000000E-01 0.0 0.0 0.0 82 G -9.000000E-01 0.0 0.0 0.0 0.0 0.0 83 G -9.000000E-01 0.0 5.000002E-02 0.0 0.0 0.0 84 G -9.000000E-01 0.0 1.000000E-01 0.0 0.0 0.0 85 G -9.000000E-01 5.000001E-02 0.0 0.0 0.0 0.0 86 G -9.000000E-01 5.000001E-02 5.000002E-02 0.0 0.0 0.0 87 G -9.000000E-01 5.000001E-02 1.000000E-01 0.0 0.0 0.0 88 G -9.000000E-01 1.000000E-01 0.0 0.0 0.0 0.0 89 G -9.000000E-01 1.000000E-01 5.000002E-02 0.0 0.0 0.0 90 G -9.000000E-01 1.000000E-01 1.000000E-01 0.0 0.0 0.0 91 G -1.000000E+00 0.0 0.0 0.0 0.0 0.0 92 G -1.000000E+00 0.0 5.000002E-02 0.0 0.0 0.0 93 G -1.000000E+00 0.0 1.000000E-01 0.0 0.0 0.0 94 G -1.000000E+00 5.000002E-02 0.0 0.0 0.0 0.0 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM TEMPERATURE LOAD. SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 95 G -1.000000E+00 5.000002E-02 5.000003E-02 0.0 0.0 0.0 96 G -1.000000E+00 5.000002E-02 1.000000E-01 0.0 0.0 0.0 97 G -1.000000E+00 1.000000E-01 0.0 0.0 0.0 0.0 98 G -1.000000E+00 1.000000E-01 5.000002E-02 0.0 0.0 0.0 99 G -1.000000E+00 1.000000E-01 1.000000E-01 0.0 0.0 0.0 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM STRESS. SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 91 G -3.750000E+02 0.0 0.0 0.0 0.0 0.0 92 G -7.500000E+02 0.0 0.0 0.0 0.0 0.0 93 G -3.750000E+02 0.0 0.0 0.0 0.0 0.0 94 G -7.500000E+02 0.0 0.0 0.0 0.0 0.0 95 G -1.500000E+03 0.0 0.0 0.0 0.0 0.0 96 G -7.500000E+02 0.0 0.0 0.0 0.0 0.0 97 G -3.750000E+02 0.0 0.0 0.0 0.0 0.0 98 G -7.500000E+02 0.0 0.0 0.0 0.0 0.0 99 G -3.750000E+02 0.0 0.0 0.0 0.0 0.0 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM TEMPERATURE LOAD. SUBCASE 2 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.250001E+04 -1.250000E+05 -1.250000E+05 0.0 0.0 0.0 2 G 1.250000E+05 -2.500000E+05 3.906250E-03 0.0 0.0 0.0 3 G 6.250001E+04 -1.250000E+05 1.250000E+05 0.0 0.0 0.0 4 G 1.250000E+05 3.906250E-03 -2.500000E+05 0.0 0.0 0.0 5 G 2.500000E+05 -3.906250E-03 3.906250E-03 0.0 0.0 0.0 6 G 1.250000E+05 0.0 2.500000E+05 0.0 0.0 0.0 7 G 6.250001E+04 1.250000E+05 -1.250000E+05 0.0 0.0 0.0 8 G 1.250000E+05 2.500000E+05 0.0 0.0 0.0 0.0 9 G 6.250001E+04 1.250000E+05 1.250000E+05 0.0 0.0 0.0 10 G 0.0 -2.500000E+05 -2.500000E+05 0.0 0.0 0.0 11 G -1.953125E-03 -5.000000E+05 -3.906250E-03 0.0 0.0 0.0 12 G -1.953125E-03 -2.500000E+05 2.500000E+05 0.0 0.0 0.0 13 G -1.953125E-03 -3.906250E-03 -5.000000E+05 0.0 0.0 0.0 14 G -2.343750E-02 7.812500E-03 -1.953125E-02 0.0 0.0 0.0 15 G -3.906250E-03 0.0 5.000001E+05 0.0 0.0 0.0 16 G -1.953125E-03 2.500000E+05 -2.500000E+05 0.0 0.0 0.0 17 G -1.953125E-03 5.000001E+05 0.0 0.0 0.0 0.0 18 G 0.0 2.500000E+05 2.500000E+05 0.0 0.0 0.0 19 G 3.906250E-03 -2.500000E+05 -2.500000E+05 0.0 0.0 0.0 20 G 0.0 -5.000000E+05 7.812500E-03 0.0 0.0 0.0 21 G 3.906250E-03 -2.500000E+05 2.500000E+05 0.0 0.0 0.0 22 G 0.0 0.0 -5.000000E+05 0.0 0.0 0.0 23 G -5.859375E-02 1.562500E-02 3.906250E-02 0.0 0.0 0.0 24 G 7.812500E-03 -7.812500E-03 5.000000E+05 0.0 0.0 0.0 25 G 3.906250E-03 2.500000E+05 -2.500000E+05 0.0 0.0 0.0 26 G -1.953125E-03 5.000000E+05 -3.906250E-03 0.0 0.0 0.0 27 G -1.953125E-03 2.500000E+05 2.500000E+05 0.0 0.0 0.0 28 G -7.812500E-03 -2.500000E+05 -2.500000E+05 0.0 0.0 0.0 29 G 7.812500E-03 -5.000001E+05 -1.171875E-02 0.0 0.0 0.0 30 G 0.0 -2.500000E+05 2.500000E+05 0.0 0.0 0.0 31 G 7.812500E-03 -7.812500E-03 -5.000001E+05 0.0 0.0 0.0 32 G 3.906250E-02 -1.562500E-02 1.562500E-02 0.0 0.0 0.0 33 G 5.859375E-03 1.953125E-02 5.000000E+05 0.0 0.0 0.0 34 G 0.0 2.500000E+05 -2.500000E+05 0.0 0.0 0.0 35 G 9.765625E-03 5.000001E+05 1.171875E-02 0.0 0.0 0.0 36 G 5.859375E-03 2.500000E+05 2.500000E+05 0.0 0.0 0.0 37 G 3.906250E-03 -2.500000E+05 -2.500000E+05 0.0 0.0 0.0 38 G 3.906250E-03 -5.000000E+05 -7.812500E-03 0.0 0.0 0.0 39 G 0.0 -2.500000E+05 2.500000E+05 0.0 0.0 0.0 40 G 3.906250E-03 -7.812500E-03 -5.000000E+05 0.0 0.0 0.0 41 G 2.734375E-02 1.562500E-02 3.125000E-02 0.0 0.0 0.0 42 G -1.953125E-03 1.314147E-02 5.000000E+05 0.0 0.0 0.0 43 G 0.0 2.500000E+05 -2.500000E+05 0.0 0.0 0.0 44 G -1.953125E-03 5.000000E+05 1.704772E-02 0.0 0.0 0.0 45 G -5.859375E-03 2.500000E+05 2.500000E+05 0.0 0.0 0.0 46 G -1.171875E-02 -2.500000E+05 -2.500000E+05 0.0 0.0 0.0 47 G -9.765625E-03 -5.000001E+05 -7.812500E-03 0.0 0.0 0.0 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM TEMPERATURE LOAD. SUBCASE 2 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 48 G -1.953125E-03 -2.500000E+05 2.500000E+05 0.0 0.0 0.0 49 G -1.953125E-03 -7.812500E-03 -5.000001E+05 0.0 0.0 0.0 50 G -2.539062E-02 7.812500E-03 3.906250E-03 0.0 0.0 0.0 51 G -1.953125E-03 2.483527E-03 5.000001E+05 0.0 0.0 0.0 52 G -1.953125E-03 2.500000E+05 -2.500000E+05 0.0 0.0 0.0 53 G -1.953125E-03 5.000001E+05 6.389777E-03 0.0 0.0 0.0 54 G -3.906250E-03 2.500000E+05 2.500000E+05 0.0 0.0 0.0 55 G 1.171875E-02 -2.500000E+05 -2.500000E+05 0.0 0.0 0.0 56 G 0.0 -5.000000E+05 -7.812500E-03 0.0 0.0 0.0 57 G 3.906250E-03 -2.500000E+05 2.500000E+05 0.0 0.0 0.0 58 G 0.0 -7.812500E-03 -5.000000E+05 0.0 0.0 0.0 59 G 2.148438E-02 1.953125E-02 -7.812500E-03 0.0 0.0 0.0 60 G 3.906250E-03 -2.343750E-02 5.000000E+05 0.0 0.0 0.0 61 G 1.171875E-02 2.500000E+05 -2.500000E+05 0.0 0.0 0.0 62 G -3.906250E-03 5.000000E+05 -7.812500E-03 0.0 0.0 0.0 63 G -3.906250E-03 2.500000E+05 2.500000E+05 0.0 0.0 0.0 64 G -7.812500E-03 -2.500000E+05 -2.500000E+05 0.0 0.0 0.0 65 G 0.0 -5.000001E+05 -1.171875E-02 0.0 0.0 0.0 66 G 0.0 -2.500000E+05 2.500000E+05 0.0 0.0 0.0 67 G -7.812500E-03 -7.812500E-03 -5.000001E+05 0.0 0.0 0.0 68 G 3.906250E-02 -3.125000E-02 1.562500E-02 0.0 0.0 0.0 69 G -1.953125E-03 3.906250E-03 5.000000E+05 0.0 0.0 0.0 70 G 0.0 2.500000E+05 -2.500000E+05 0.0 0.0 0.0 71 G 1.757812E-02 5.000000E+05 -3.906250E-03 0.0 0.0 0.0 72 G 7.812500E-03 2.500000E+05 2.500000E+05 0.0 0.0 0.0 73 G 3.906250E-03 -2.500000E+05 -2.500000E+05 0.0 0.0 0.0 74 G 3.906250E-03 -5.000000E+05 -7.812500E-03 0.0 0.0 0.0 75 G 3.906250E-03 -2.500000E+05 2.500000E+05 0.0 0.0 0.0 76 G 3.906250E-03 -7.812500E-03 -5.000000E+05 0.0 0.0 0.0 77 G -3.906250E-03 7.812500E-03 7.812500E-03 0.0 0.0 0.0 78 G -9.765625E-03 1.060804E-03 5.000000E+05 0.0 0.0 0.0 79 G 3.906250E-03 2.500000E+05 -2.500000E+05 0.0 0.0 0.0 80 G 0.0 5.000000E+05 1.060804E-03 0.0 0.0 0.0 81 G 0.0 2.500000E+05 2.500000E+05 0.0 0.0 0.0 82 G -1.171875E-02 -2.500000E+05 -2.500001E+05 0.0 0.0 0.0 83 G -9.765625E-03 -5.000001E+05 -7.812500E-03 0.0 0.0 0.0 84 G 5.859375E-03 -2.500000E+05 2.500001E+05 0.0 0.0 0.0 85 G -1.953125E-03 -7.812500E-03 -5.000001E+05 0.0 0.0 0.0 86 G 5.859375E-03 7.812500E-03 2.343750E-02 0.0 0.0 0.0 87 G -9.765625E-03 -3.125000E-02 5.000001E+05 0.0 0.0 0.0 88 G -1.953125E-03 2.500000E+05 -2.500001E+05 0.0 0.0 0.0 89 G -1.953125E-03 5.000001E+05 0.0 0.0 0.0 0.0 90 G 1.953125E-03 2.500000E+05 2.500000E+05 0.0 0.0 0.0 91 G -6.250000E+04 -1.250000E+05 -1.250000E+05 0.0 0.0 0.0 92 G -1.250000E+05 -2.500000E+05 0.0 0.0 0.0 0.0 93 G -6.250000E+04 -1.250000E+05 1.250000E+05 0.0 0.0 0.0 94 G -1.250000E+05 7.812500E-03 -2.500001E+05 0.0 0.0 0.0 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM TEMPERATURE LOAD. SUBCASE 2 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 95 G -2.500000E+05 1.171875E-02 2.734375E-02 0.0 0.0 0.0 96 G -1.250000E+05 7.812500E-03 2.500001E+05 0.0 0.0 0.0 97 G -6.250000E+04 1.250000E+05 -1.250000E+05 0.0 0.0 0.0 98 G -1.250000E+05 2.500000E+05 0.0 0.0 0.0 0.0 99 G -6.250001E+04 1.250000E+05 1.250000E+05 0.0 0.0 0.0 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM STRESS. SUBCASE 1 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.750000E+02 -4.973799E-14 -1.070255E-13 0.0 0.0 0.0 2 G 7.500000E+02 4.973799E-14 0.0 0.0 0.0 0.0 3 G 3.750000E+02 -3.552714E-14 0.0 0.0 0.0 0.0 4 G 7.500000E+02 0.0 -7.993606E-14 0.0 0.0 0.0 5 G 1.500000E+03 0.0 0.0 0.0 0.0 0.0 6 G 7.500000E+02 0.0 0.0 0.0 0.0 0.0 7 G 3.750000E+02 0.0 -1.598721E-13 0.0 0.0 0.0 8 G 7.500000E+02 0.0 0.0 0.0 0.0 0.0 9 G 3.750000E+02 0.0 0.0 0.0 0.0 0.0 10 G 0.0 -1.278977E-13 1.065814E-13 0.0 0.0 0.0 11 G 0.0 -7.105427E-15 0.0 0.0 0.0 0.0 12 G 0.0 1.421085E-14 0.0 0.0 0.0 0.0 13 G 0.0 0.0 -1.234568E-13 0.0 0.0 0.0 16 G 0.0 0.0 -5.329071E-14 0.0 0.0 0.0 19 G 0.0 -4.227729E-13 -3.375078E-14 0.0 0.0 0.0 20 G 0.0 -3.836931E-13 0.0 0.0 0.0 0.0 21 G 0.0 -1.945111E-13 0.0 0.0 0.0 0.0 22 G 0.0 0.0 -7.167600E-13 0.0 0.0 0.0 25 G 0.0 0.0 -2.167155E-13 0.0 0.0 0.0 28 G 0.0 2.131628E-13 -1.110223E-13 0.0 0.0 0.0 29 G 0.0 -2.131628E-14 0.0 0.0 0.0 0.0 30 G 0.0 -4.405365E-13 0.0 0.0 0.0 0.0 31 G 0.0 0.0 -8.109069E-13 0.0 0.0 0.0 34 G 0.0 0.0 -6.785683E-13 0.0 0.0 0.0 37 G 0.0 1.421085E-13 1.465494E-14 0.0 0.0 0.0 38 G 0.0 -6.181722E-13 0.0 0.0 0.0 0.0 39 G 0.0 1.874056E-13 0.0 0.0 0.0 0.0 40 G 0.0 0.0 -1.065814E-14 0.0 0.0 0.0 43 G 0.0 0.0 -1.953993E-13 0.0 0.0 0.0 46 G 0.0 -8.029133E-13 4.760636E-13 0.0 0.0 0.0 47 G 0.0 -1.122658E-12 0.0 0.0 0.0 0.0 48 G 0.0 -2.424727E-13 0.0 0.0 0.0 0.0 49 G 0.0 0.0 8.792966E-13 0.0 0.0 0.0 52 G 0.0 0.0 4.014566E-13 0.0 0.0 0.0 55 G 0.0 -1.776357E-13 -2.575717E-14 0.0 0.0 0.0 56 G 0.0 4.760636E-13 0.0 0.0 0.0 0.0 57 G 0.0 8.171241E-14 0.0 0.0 0.0 0.0 58 G 0.0 0.0 1.125322E-12 0.0 0.0 0.0 61 G 0.0 0.0 1.385558E-13 0.0 0.0 0.0 64 G 0.0 -7.212009E-13 -9.912071E-13 0.0 0.0 0.0 65 G 0.0 -5.258016E-13 0.0 0.0 0.0 0.0 66 G 0.0 -1.094236E-12 0.0 0.0 0.0 0.0 67 G 0.0 0.0 -6.998846E-13 0.0 0.0 0.0 70 G 0.0 0.0 -5.684342E-13 0.0 0.0 0.0 73 G 0.0 -3.339551E-13 7.238654E-14 0.0 0.0 0.0 74 G 0.0 -6.892265E-13 0.0 0.0 0.0 0.0 75 G 0.0 -7.034373E-13 0.0 0.0 0.0 0.0 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM STRESS. SUBCASE 1 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 76 G 0.0 0.0 -1.392664E-12 0.0 0.0 0.0 79 G 0.0 0.0 -5.684342E-13 0.0 0.0 0.0 82 G 0.0 6.643575E-13 2.562395E-13 0.0 0.0 0.0 83 G 0.0 1.314504E-12 0.0 0.0 0.0 0.0 84 G 0.0 -5.639933E-13 0.0 0.0 0.0 0.0 85 G 0.0 0.0 6.963319E-13 0.0 0.0 0.0 88 G 0.0 0.0 1.627143E-12 0.0 0.0 0.0 91 G 0.0 6.963319E-13 -9.734435E-13 0.0 0.0 0.0 92 G 0.0 1.577405E-12 0.0 0.0 0.0 0.0 93 G 0.0 4.849454E-13 0.0 0.0 0.0 0.0 94 G 0.0 0.0 9.450218E-13 0.0 0.0 0.0 97 G 0.0 0.0 -6.110668E-13 0.0 0.0 0.0 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A 0 UNIFORM STRESS. SUBCASE 1 S T R E S S E S I N S O L I D H E X A H E D R O N E L E M E N T S ( C H E X A 2 ) OCTAHEDRAL PRESSURE ELEMENT-ID SIGMA-XX SIGMA-YY SIGMA-ZZ TAU-YZ TAU-XZ TAU-XY TAU-0 P 1 1.500000E+03 1.907349E-06 0.0 0.0 6.103516E-05 6.103516E-05 7.071069E+02 -5.000001E+02 2 1.500000E+03 -3.814697E-06 1.525879E-05 0.0 6.103516E-05 6.103516E-05 7.071069E+02 -5.000001E+02 3 1.500000E+03 -3.814697E-06 1.144409E-05 -7.629395E-06 6.103516E-05 6.103516E-05 7.071069E+02 -5.000001E+02 4 1.500000E+03 -3.814697E-06 0.0 3.814697E-06 6.103516E-05 6.103516E-05 7.071069E+02 -5.000001E+02 5 1.500000E+03 -7.629395E-06 0.0 0.0 1.220703E-04 1.220703E-04 7.071069E+02 -5.000001E+02 6 1.500000E+03 -1.525879E-05 0.0 0.0 6.103516E-05 1.220703E-04 7.071069E+02 -5.000001E+02 7 1.500000E+03 -1.907349E-05 -1.525879E-05 -7.629395E-06 1.220703E-04 1.220703E-04 7.071069E+02 -5.000001E+02 8 1.500000E+03 -3.814697E-06 0.0 3.814697E-06 6.103516E-05 1.220703E-04 7.071069E+02 -5.000001E+02 9 1.500000E+03 -1.068115E-04 -9.155273E-05 0.0 0.0 0.0 7.071069E+02 -5.000000E+02 10 1.500000E+03 -7.629395E-05 -9.155273E-05 0.0 -1.220703E-04 0.0 7.071069E+02 -4.999999E+02 11 1.500000E+03 3.051758E-05 -6.103516E-05 -7.629395E-06 0.0 -1.220703E-04 7.071069E+02 -5.000001E+02 12 1.500000E+03 -4.577637E-05 -3.051758E-05 3.814697E-06 -1.220703E-04 -1.220703E-04 7.071069E+02 -5.000000E+02 13 1.500000E+03 9.155273E-05 9.155273E-05 0.0 2.441406E-04 2.441406E-04 7.071069E+02 -5.000002E+02 14 1.500000E+03 6.103516E-05 1.220703E-04 0.0 2.441406E-04 2.441406E-04 7.071070E+02 -5.000002E+02 15 1.500000E+03 1.220703E-04 3.051758E-05 -7.629395E-06 2.441406E-04 2.441406E-04 7.071070E+02 -5.000002E+02 16 1.500000E+03 -3.051758E-05 -3.051758E-05 3.814697E-06 2.441406E-04 2.441406E-04 7.071069E+02 -5.000001E+02 17 1.500001E+03 -3.051758E-05 2.136230E-04 0.0 0.0 0.0 7.071072E+02 -5.000005E+02 18 1.500000E+03 9.155273E-05 6.103516E-05 0.0 -2.441406E-04 0.0 7.071069E+02 -5.000002E+02 19 1.500001E+03 9.155273E-05 9.155273E-05 -7.629395E-06 0.0 -2.441406E-04 7.071070E+02 -5.000003E+02 20 1.500001E+03 3.051758E-05 1.831055E-04 3.814697E-06 -2.441406E-04 -2.441406E-04 7.071072E+02 -5.000003E+02 21 1.500000E+03 -3.662109E-04 -1.220703E-04 0.0 0.0 0.0 7.071068E+02 -4.999998E+02 22 1.499999E+03 -1.220703E-04 -1.831055E-04 0.0 0.0 0.0 7.071065E+02 -4.999997E+02 23 1.500000E+03 6.103516E-05 0.0 -7.629395E-06 0.0 0.0 7.071069E+02 -5.000001E+02 24 1.500000E+03 -6.103516E-05 0.0 3.814697E-06 0.0 0.0 7.071068E+02 -5.000000E+02 25 1.500000E+03 6.103516E-05 6.103516E-05 0.0 0.0 0.0 7.071069E+02 -5.000001E+02 26 1.500001E+03 0.0 3.051758E-04 0.0 0.0 0.0 7.071072E+02 -5.000005E+02 27 1.500001E+03 6.103516E-05 0.0 -7.629395E-06 0.0 0.0 7.071075E+02 -5.000005E+02 28 1.500000E+03 1.220703E-04 1.220703E-04 3.814697E-06 0.0 0.0 7.071069E+02 -5.000002E+02 29 1.500000E+03 6.103516E-05 6.103516E-05 0.0 0.0 0.0 7.071069E+02 -5.000001E+02 30 1.500000E+03 -6.103516E-05 -6.103516E-05 0.0 4.882812E-04 0.0 7.071068E+02 -5.000000E+02 31 1.500000E+03 0.0 0.0 -7.629395E-06 0.0 4.882812E-04 7.071069E+02 -5.000001E+02 32 1.500000E+03 1.220703E-04 1.220703E-04 3.814697E-06 4.882812E-04 4.882812E-04 7.071065E+02 -4.999999E+02 33 1.500001E+03 6.103516E-05 6.103516E-05 0.0 0.0 0.0 7.071072E+02 -5.000003E+02 34 1.500000E+03 6.103516E-05 6.103516E-05 0.0 0.0 0.0 7.071070E+02 -5.000002E+02 35 1.500002E+03 1.220703E-04 3.662109E-04 -7.629395E-06 0.0 0.0 7.071075E+02 -5.000007E+02 36 1.500000E+03 0.0 -6.103516E-05 3.814697E-06 0.0 0.0 7.071069E+02 -5.000001E+02 37 1.500001E+03 1.831055E-04 2.441406E-04 0.0 0.0 0.0 7.071071E+02 -5.000005E+02 38 1.500000E+03 0.0 -1.220703E-04 0.0 0.0 0.0 7.071069E+02 -5.000000E+02 39 1.500001E+03 1.220703E-04 1.831055E-04 -7.629395E-06 0.0 0.0 7.071072E+02 -5.000004E+02 40 1.500000E+03 0.0 0.0 3.814697E-06 0.0 0.0 7.071069E+02 -5.000001E+02 1 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A TWO PLANES OF SYMMETRY 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. * * * END OF JOB * * * 1 JOB TITLE = 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS DATE: 5/17/95 END TIME: 14:59:20 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01092a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01092A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 10 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 3 SPC = 1 4 OUTPUT 5 DISP = ALL 6 SPCFORCE = ALL 7 STRESS = ALL 8 SUBCASE 1 9 LABEL = CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1) 10 LOAD = 20 11 OLOAD = ALL 12 SUBCASE 2 13 LABEL = UNIFORM TEMPERATURE LOAD 14 TEMPERATURE(LOAD) = 30 15 SUBCASE 3 16 LABEL = LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1) 17 LOAD = 40 18 OLOAD = ALL 19 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 66, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CTRIM6 1 80 9 6 3 2 1 5 +TE1 2- +TE1 3- CTRIM6 2 80 1 4 7 8 9 5 +TE2 4- +TE2 5- CTRIM6 3 80 15 12 9 8 7 11 +TE3 6- +TE3 7- CTRIM6 4 80 7 10 13 14 15 11 +TE4 8- +TE4 9- CTRIM6 5 80 21 18 15 14 13 17 +TE5 10- +TE5 11- CTRIM6 6 80 13 16 19 20 21 17 +TE6 12- +TE6 13- CTRIM6 7 80 27 24 21 20 19 23 +TE7 14- +TE7 15- CTRIM6 8 80 19 22 25 26 27 23 +TE8 16- +TE8 17- CTRIM6 9 80 33 30 27 26 25 29 +TE9 18- +TE9 19- CTRIM6 10 80 25 28 31 32 33 29 +TE10 20- +TE10 21- FORCE1 20 31 2.0+3 28 31 22- FORCE1 20 32 8.0+3 29 32 23- FORCE1 20 33 2.0+3 30 33 24- FORCE1 40 31 3.0+3 28 31 25- FORCE1 40 32 6.0+3 29 32 26- FORCE1 40 33 3.0+3 30 33 27- GRDSET 3456 28- GRID 1 .0 .0 .0 29- GRID 2 .0 1. .0 30- GRID 3 .0 2. .0 31- GRID 4 2. .0 .0 32- GRID 5 2. 1. .0 33- GRID 6 2. 2. .0 34- GRID 7 4. .0 .0 35- GRID 8 4. 1. .0 36- GRID 9 4. 2. .0 37- GRID 10 6. .0 .0 38- GRID 11 6. 1. .0 39- GRID 12 6. 2. .0 40- GRID 13 8. .0 .0 41- GRID 14 8. 1. .0 42- GRID 15 8. 2. .0 43- GRID 16 10. .0 .0 44- GRID 17 10. 1. .0 45- GRID 18 10. 2. .0 46- GRID 19 12. .0 .0 47- GRID 20 12. 1. .0 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 21 12. 2. .0 49- GRID 22 14. .0 .0 50- GRID 23 14. 1. .0 51- GRID 24 14. 2. .0 52- GRID 25 16. .0 .0 53- GRID 26 16. 1. .0 54- GRID 27 16. 2. .0 55- GRID 28 18. .0 .0 56- GRID 29 18. 1. .0 57- GRID 30 18. 2. .0 58- GRID 31 20. .0 .0 59- GRID 32 20. 1. .0 60- GRID 33 20. 2. .0 61- MAT1 90 3.0+6 .2 1. .001 10. 62- PTRIM6 80 90 4. .0 .0 63- SPC1 1 2 4 7 10 13 16 19 +GJD 64- +GJD 22 25 28 31 65- SPC1 1 12 1 2 3 66- TEMPD 30 60. ENDDATA 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 9 PROFILE 201 MAX WAVEFRONT 9 AVG WAVEFRONT 6.091 RMS WAVEFRONT 6.441 RMS BANDWIDTH 6.441 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 7 PROFILE 168 MAX WAVEFRONT 7 AVG WAVEFRONT 5.091 RMS WAVEFRONT 5.269 RMS BANDWIDTH 5.314 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 9 7 PROFILE (P) 201 168 MAXIMUM WAVEFRONT (C-MAX) 9 7 AVERAGE WAVEFRONT (C-AVG) 6.091 5.091 RMS WAVEFRONT (C-RMS) 6.441 5.269 RMS BANDWITCH (B-RMS) 6.441 5.314 NUMBER OF GRID POINTS (N) 33 NUMBER OF ELEMENTS (NON-RIGID) 10 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 11 MINIMUM NODAL DEGREE 5 NUMBER OF UNIQUE EDGES 123 MATRIX DENSITY, PERCENT 25.620 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 9 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 4 2 3 3 2 4 7 SEQGP 5 5 6 1 7 10 8 8 SEQGP 9 6 10 13 11 11 12 9 SEQGP 13 16 14 14 15 12 16 19 SEQGP 17 17 18 15 19 22 20 20 SEQGP 21 18 22 25 23 23 24 21 SEQGP 25 28 26 26 27 24 28 31 SEQGP 29 30 30 27 31 32 32 33 SEQGP 33 29 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIM6 ELEMENTS (ELEMENT TYPE 73) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 4.2381171E-15 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 5.3632856E-18 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 3, EPSILON SUB E = 6.1083637E-15 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1) SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 4 G 9.755653E-04 0.0 0.0 0.0 0.0 0.0 5 G 9.752495E-04 -8.421802E-05 0.0 0.0 0.0 0.0 6 G 9.940324E-04 -1.738671E-04 0.0 0.0 0.0 0.0 7 G 1.974339E-03 0.0 0.0 0.0 0.0 0.0 8 G 1.978997E-03 -1.027162E-04 0.0 0.0 0.0 0.0 9 G 1.990489E-03 -2.065741E-04 0.0 0.0 0.0 0.0 10 G 2.980463E-03 0.0 0.0 0.0 0.0 0.0 11 G 2.981231E-03 -1.018568E-04 0.0 0.0 0.0 0.0 12 G 2.982456E-03 -2.029182E-04 0.0 0.0 0.0 0.0 13 G 3.981847E-03 0.0 0.0 0.0 0.0 0.0 14 G 3.981403E-03 -9.995454E-05 0.0 0.0 0.0 0.0 15 G 3.980520E-03 -1.996578E-04 0.0 0.0 0.0 0.0 16 G 4.981343E-03 0.0 0.0 0.0 0.0 0.0 17 G 4.981273E-03 -9.986824E-05 0.0 0.0 0.0 0.0 18 G 4.981138E-03 -1.997993E-04 0.0 0.0 0.0 0.0 19 G 5.981221E-03 0.0 0.0 0.0 0.0 0.0 20 G 5.981251E-03 -9.999946E-05 0.0 0.0 0.0 0.0 21 G 5.981305E-03 -2.000194E-04 0.0 0.0 0.0 0.0 22 G 6.981253E-03 0.0 0.0 0.0 0.0 0.0 23 G 6.981258E-03 -1.000080E-04 0.0 0.0 0.0 0.0 24 G 6.981267E-03 -2.000121E-04 0.0 0.0 0.0 0.0 25 G 7.981261E-03 0.0 0.0 0.0 0.0 0.0 26 G 7.981259E-03 -1.000001E-04 0.0 0.0 0.0 0.0 27 G 7.981257E-03 -1.999989E-04 0.0 0.0 0.0 0.0 28 G 8.981260E-03 0.0 0.0 0.0 0.0 0.0 29 G 8.981259E-03 -9.999952E-05 0.0 0.0 0.0 0.0 30 G 8.981259E-03 -1.999993E-04 0.0 0.0 0.0 0.0 31 G 9.981259E-03 0.0 0.0 0.0 0.0 0.0 32 G 9.981259E-03 -1.000001E-04 0.0 0.0 0.0 0.0 33 G 9.981260E-03 -2.000004E-04 0.0 0.0 0.0 0.0 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 UNIFORM TEMPERATURE LOAD SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 4 G -1.648835E-03 0.0 0.0 0.0 0.0 0.0 5 G 4.177203E-03 -8.648645E-03 0.0 0.0 0.0 0.0 6 G 5.917963E-03 -1.965214E-02 0.0 0.0 0.0 0.0 7 G 1.235595E-02 0.0 0.0 0.0 0.0 0.0 8 G 3.098183E-03 1.277058E-02 0.0 0.0 0.0 0.0 9 G -5.333313E-03 3.007017E-02 0.0 0.0 0.0 0.0 10 G -8.002131E-04 0.0 0.0 0.0 0.0 0.0 11 G 3.687791E-03 -4.867714E-03 0.0 0.0 0.0 0.0 12 G 6.185023E-03 -1.397179E-02 0.0 0.0 0.0 0.0 13 G 1.094665E-02 0.0 0.0 0.0 0.0 0.0 14 G 2.706160E-03 1.241176E-02 0.0 0.0 0.0 0.0 15 G -3.578494E-03 2.887344E-02 0.0 0.0 0.0 0.0 16 G -9.163942E-04 0.0 0.0 0.0 0.0 0.0 17 G 3.676186E-03 -5.209250E-03 0.0 0.0 0.0 0.0 18 G 6.387613E-03 -1.449538E-02 0.0 0.0 0.0 0.0 19 G 1.117302E-02 0.0 0.0 0.0 0.0 0.0 20 G 2.709978E-03 1.258350E-02 0.0 0.0 0.0 0.0 21 G -3.841633E-03 2.916184E-02 0.0 0.0 0.0 0.0 22 G -1.830325E-03 0.0 0.0 0.0 0.0 0.0 23 G 3.576760E-03 -5.147792E-03 0.0 0.0 0.0 0.0 24 G 7.131107E-03 -1.451433E-02 0.0 0.0 0.0 0.0 25 G 8.924786E-03 0.0 0.0 0.0 0.0 0.0 26 G 2.953756E-03 1.063461E-02 0.0 0.0 0.0 0.0 27 G -1.579488E-03 2.642297E-02 0.0 0.0 0.0 0.0 28 G -6.771333E-04 0.0 0.0 0.0 0.0 0.0 29 G 5.124210E-03 -8.241136E-03 0.0 0.0 0.0 0.0 30 G 7.161502E-04 -1.672504E-02 0.0 0.0 0.0 0.0 31 G 1.225421E-02 0.0 0.0 0.0 0.0 0.0 32 G 8.729980E-03 7.510907E-03 0.0 0.0 0.0 0.0 33 G -2.891717E-02 4.273563E-02 0.0 0.0 0.0 0.0 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1) SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 4 G 9.755648E-04 0.0 0.0 0.0 0.0 0.0 5 G 9.752495E-04 -8.421810E-05 0.0 0.0 0.0 0.0 6 G 9.940327E-04 -1.738672E-04 0.0 0.0 0.0 0.0 7 G 1.974338E-03 0.0 0.0 0.0 0.0 0.0 8 G 1.978997E-03 -1.027175E-04 0.0 0.0 0.0 0.0 9 G 1.990490E-03 -2.065759E-04 0.0 0.0 0.0 0.0 10 G 2.980471E-03 0.0 0.0 0.0 0.0 0.0 11 G 2.981232E-03 -1.018557E-04 0.0 0.0 0.0 0.0 12 G 2.982449E-03 -2.029163E-04 0.0 0.0 0.0 0.0 13 G 3.981861E-03 0.0 0.0 0.0 0.0 0.0 14 G 3.981400E-03 -9.993056E-05 0.0 0.0 0.0 0.0 15 G 3.980505E-03 -1.996252E-04 0.0 0.0 0.0 0.0 16 G 4.981197E-03 0.0 0.0 0.0 0.0 0.0 17 G 4.981257E-03 -9.988573E-05 0.0 0.0 0.0 0.0 18 G 4.981264E-03 -1.998316E-04 0.0 0.0 0.0 0.0 19 G 5.980983E-03 0.0 0.0 0.0 0.0 0.0 20 G 5.981305E-03 -1.004177E-04 0.0 0.0 0.0 0.0 21 G 5.981578E-03 -2.005890E-04 0.0 0.0 0.0 0.0 22 G 6.983388E-03 0.0 0.0 0.0 0.0 0.0 23 G 6.981500E-03 -9.985557E-05 0.0 0.0 0.0 0.0 24 G 6.979138E-03 -1.996077E-04 0.0 0.0 0.0 0.0 25 G 7.984206E-03 0.0 0.0 0.0 0.0 0.0 26 G 7.980872E-03 -9.349850E-05 0.0 0.0 0.0 0.0 27 G 7.976167E-03 -1.911762E-04 0.0 0.0 0.0 0.0 28 G 8.984848E-03 0.0 0.0 0.0 0.0 0.0 29 G 8.982096E-03 -8.974470E-05 0.0 0.0 0.0 0.0 30 G 9.008435E-03 -1.932132E-04 0.0 0.0 0.0 0.0 31 G 1.005263E-02 0.0 0.0 0.0 0.0 0.0 32 G 9.936554E-03 -1.383498E-04 0.0 0.0 0.0 0.0 33 G 1.008871E-02 -2.452084E-04 0.0 0.0 0.0 0.0 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1) SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 31 G 2.000000E+03 0.0 0.0 0.0 0.0 0.0 32 G 8.000000E+03 0.0 0.0 0.0 0.0 0.0 33 G 2.000000E+03 0.0 0.0 0.0 0.0 0.0 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1) SUBCASE 3 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 31 G 3.000000E+03 0.0 0.0 0.0 0.0 0.0 32 G 6.000000E+03 0.0 0.0 0.0 0.0 0.0 33 G 3.000000E+03 0.0 0.0 0.0 0.0 0.0 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1) SUBCASE 1 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.845380E+03 -7.815339E+02 0.0 0.0 0.0 0.0 2 G -7.678834E+03 1.868125E+02 0.0 0.0 0.0 0.0 3 G -2.475786E+03 1.031056E+03 0.0 0.0 0.0 0.0 4 G 0.0 -5.081673E+02 0.0 0.0 0.0 0.0 7 G 0.0 1.763216E+01 0.0 0.0 0.0 0.0 10 G 0.0 5.543964E+01 0.0 0.0 0.0 0.0 13 G 0.0 2.630944E+00 0.0 0.0 0.0 0.0 16 G 0.0 -3.847355E+00 0.0 0.0 0.0 0.0 19 G 0.0 -2.588916E-01 0.0 0.0 0.0 0.0 22 G 0.0 2.330291E-01 0.0 0.0 0.0 0.0 25 G 0.0 1.702238E-02 0.0 0.0 0.0 0.0 28 G 0.0 -1.374118E-02 0.0 0.0 0.0 0.0 31 G 0.0 3.539163E-04 0.0 0.0 0.0 0.0 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 UNIFORM TEMPERATURE LOAD SUBCASE 2 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.494282E+05 4.566547E+05 0.0 0.0 0.0 0.0 2 G 2.702075E+05 -4.798750E+05 0.0 0.0 0.0 0.0 3 G -1.207793E+05 5.736829E+04 0.0 0.0 0.0 0.0 4 G 0.0 -1.568861E+05 0.0 0.0 0.0 0.0 7 G 0.0 2.632719E+05 0.0 0.0 0.0 0.0 10 G 0.0 -2.717516E+05 0.0 0.0 0.0 0.0 13 G 0.0 2.618101E+05 0.0 0.0 0.0 0.0 16 G 0.0 -2.614575E+05 0.0 0.0 0.0 0.0 19 G 0.0 2.605337E+05 0.0 0.0 0.0 0.0 22 G 0.0 -2.677693E+05 0.0 0.0 0.0 0.0 25 G 0.0 2.670373E+05 0.0 0.0 0.0 0.0 28 G 0.0 -1.842167E+05 0.0 0.0 0.0 0.0 31 G 0.0 5.528037E+04 0.0 0.0 0.0 0.0 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1) SUBCASE 3 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.845381E+03 -7.815336E+02 0.0 0.0 0.0 0.0 2 G -7.678833E+03 1.868106E+02 0.0 0.0 0.0 0.0 3 G -2.475786E+03 1.031055E+03 0.0 0.0 0.0 0.0 4 G 0.0 -5.081661E+02 0.0 0.0 0.0 0.0 7 G 0.0 1.765652E+01 0.0 0.0 0.0 0.0 10 G 0.0 5.542770E+01 0.0 0.0 0.0 0.0 13 G 0.0 2.204099E+00 0.0 0.0 0.0 0.0 16 G 0.0 -3.660007E+00 0.0 0.0 0.0 0.0 19 G 0.0 6.598501E+00 0.0 0.0 0.0 0.0 22 G 0.0 -2.953044E+00 0.0 0.0 0.0 0.0 25 G 0.0 -6.352297E+01 0.0 0.0 0.0 0.0 28 G 0.0 1.107143E+02 0.0 0.0 0.0 0.0 31 G 0.0 -5.063141E+01 0.0 0.0 0.0 0.0 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1) SUBCASE 1 S T R E S S E S I N T R I A N G U L A R M E M B R A N E E L E M E N T S ( C T R I M 6 ) 0 ELEMENT POINT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. NO. NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 1 1.446797E+03 -2.485347E+02 7.062793E+01 2.381455E+00 1.449734E+03 -2.514719E+02 8.506031E+02 3 1.551281E+03 3.102562E+02 -1.527794E+02 -6.915974E+00 1.569813E+03 2.917247E+02 6.390441E+02 5 1.492585E+03 2.985169E+02 -4.071812E+01 -1.950785E+00 1.493972E+03 2.971299E+02 5.984208E+02 C 1.496888E+03 1.200795E+02 -4.095654E+01 -1.702397E+00 1.498105E+03 1.188622E+02 6.896214E+02 0 2 1 1.465471E+03 9.764728E+01 -1.088379E+01 -4.558646E-01 1.465558E+03 9.756061E+01 6.839986E+02 3 1.514875E+03 -3.460907E+00 1.550781E+00 5.852005E-02 1.514877E+03 -3.462524E+00 7.591696E+02 5 1.528991E+03 -7.488159E+00 -4.485535E+00 -1.672651E-01 1.529004E+03 -7.501221E+00 7.682526E+02 C 1.503112E+03 2.889938E+01 -4.606323E+00 -1.790240E-01 1.503126E+03 2.888507E+01 7.371207E+02 0 3 1 1.502467E+03 3.986023E+00 -5.117188E+00 -1.956573E-01 1.502484E+03 3.968628E+00 7.492578E+02 3 1.479916E+03 -1.730310E+01 2.104565E+01 8.051657E-01 1.480212E+03 -1.759888E+01 7.489055E+02 5 1.513428E+03 -3.750122E+00 4.633942E-01 1.749994E-02 1.513428E+03 -3.750244E+00 7.585893E+02 C 1.498604E+03 -5.689026E+00 5.463867E+00 2.081051E-01 1.498624E+03 -5.708923E+00 7.521664E+02 0 4 1 1.510844E+03 -9.485535E+00 2.749512E+00 1.036188E-01 1.510849E+03 -9.490540E+00 7.601697E+02 3 1.498408E+03 -5.586243E-01 -2.802734E-01 -1.071304E-02 1.498408E+03 -5.585938E-01 7.494832E+02 5 1.494937E+03 2.541504E-01 9.992523E-01 3.830440E-02 1.494937E+03 2.534790E-01 7.473419E+02 C 1.501396E+03 -3.263245E+00 1.156006E+00 4.401941E-02 1.501397E+03 -3.264038E+00 7.523304E+02 0 5 1 1.499889E+03 -1.221313E-01 3.281250E-01 1.253336E-02 1.499889E+03 -1.222534E-01 7.500056E+02 3 1.501581E+03 1.583313E+00 -1.442383E+00 -5.509499E-02 1.501582E+03 1.581970E+00 7.500002E+02 5 1.498932E+03 -4.541016E-01 -5.892944E-02 -2.251861E-03 1.498932E+03 -4.541016E-01 7.496929E+02 C 1.500134E+03 3.356934E-01 -3.911133E-01 -1.494144E-02 1.500134E+03 3.356323E-01 7.498991E+02 0 6 1 1.499086E+03 6.369019E-01 -2.275391E-01 -8.700346E-03 1.499086E+03 6.367798E-01 7.492248E+02 3 1.500114E+03 5.484009E-02 2.221680E-02 8.485855E-04 1.500114E+03 5.480957E-02 7.500297E+02 5 1.500401E+03 -1.049805E-02 -8.071899E-02 -3.082392E-03 1.500401E+03 -1.049805E-02 7.502059E+02 C 1.499866E+03 2.270508E-01 -9.570312E-02 -3.656470E-03 1.499866E+03 2.270508E-01 7.498196E+02 0 7 1 1.500006E+03 6.286621E-03 -1.757812E-02 -6.714350E-04 1.500006E+03 6.347656E-03 7.499999E+02 3 1.499899E+03 -1.102905E-01 8.618164E-02 3.291877E-03 1.499899E+03 -1.103516E-01 7.500045E+02 5 1.500066E+03 4.589844E-02 4.600525E-03 1.757247E-04 1.500066E+03 4.589844E-02 7.500103E+02 C 1.499991E+03 -1.953125E-02 2.441406E-02 9.325421E-04 1.499991E+03 -1.953125E-02 7.500051E+02 0 8 1 1.500059E+03 -3.802490E-02 1.562500E-02 5.967925E-04 1.500059E+03 -3.796387E-02 7.500485E+02 3 1.499992E+03 -3.540039E-03 -1.953125E-03 -7.460411E-05 1.499992E+03 -3.540039E-03 7.499976E+02 5 1.499975E+03 0.0 6.141663E-03 2.345982E-04 1.499975E+03 0.0 7.499873E+02 C 1.500010E+03 -1.391602E-02 5.371094E-03 2.051574E-04 1.500010E+03 -1.391602E-02 7.500118E+02 0 9 1 1.500000E+03 -3.051758E-04 1.953125E-03 7.460385E-05 1.500000E+03 -3.662109E-04 7.500004E+02 3 1.500006E+03 6.469727E-03 -3.906250E-03 -1.492078E-04 1.500006E+03 6.469727E-03 7.499998E+02 5 1.499996E+03 -3.417969E-03 -1.350403E-03 -5.158161E-05 1.499996E+03 -3.417969E-03 7.499998E+02 C 1.499999E+03 1.220703E-03 0.0 0.0 1.499999E+03 1.220703E-03 7.499989E+02 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1) SUBCASE 1 S T R E S S E S I N T R I A N G U L A R M E M B R A N E E L E M E N T S ( C T R I M 6 ) 0 ELEMENT POINT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. NO. NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 10 1 1.499998E+03 2.685547E-03 -1.953125E-03 -7.460412E-05 1.499998E+03 2.685547E-03 7.499976E+02 3 1.500002E+03 -1.831055E-04 0.0 0.0 1.500002E+03 -2.441406E-04 7.500011E+02 5 1.500002E+03 -4.882812E-04 1.350403E-03 5.158150E-05 1.500002E+03 -4.882812E-04 7.500012E+02 C 1.500000E+03 7.324219E-04 -9.765625E-04 -3.730196E-05 1.500000E+03 7.324219E-04 7.499996E+02 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 UNIFORM TEMPERATURE LOAD SUBCASE 2 S T R E S S E S I N T R I A N G U L A R M E M B R A N E E L E M E N T S ( C T R I M 6 ) 0 ELEMENT POINT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. NO. NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 1 -2.322480E+05 -2.624706E+05 5.710787E+04 3.758932E+01 -1.882859E+05 -3.064327E+05 5.907335E+04 3 -1.648397E+05 -1.829680E+05 -3.396211E+04 -3.752835E+01 -1.387530E+05 -2.090547E+05 3.515086E+04 5 -1.702796E+05 -1.840559E+05 -2.020774E+04 -3.558871E+01 -1.558183E+05 -1.985172E+05 2.134946E+04 C -1.891224E+05 -2.098315E+05 9.793418E+02 2.701509E+00 -1.890762E+05 -2.098777E+05 1.040074E+04 0 2 1 -2.225134E+05 -2.914998E+05 2.562089E+04 1.830213E+01 -2.140391E+05 -2.999742E+05 4.296756E+04 3 -1.468218E+05 -1.478462E+05 -1.208863E+04 -4.378701E+01 -1.352345E+05 -1.594335E+05 1.209947E+04 5 -1.882975E+05 -1.289672E+05 1.675108E+04 7.527389E+01 -1.245645E+05 -1.927002E+05 3.406786E+04 C -1.858776E+05 -1.894377E+05 1.009445E+04 3.999960E+01 -1.774075E+05 -1.979078E+05 1.025020E+04 0 3 1 -2.401590E+05 -2.977615E+05 7.122938E+04 3.399215E+01 -1.921284E+05 -3.457921E+05 7.683188E+04 3 -1.406486E+05 -1.194374E+05 -6.470143E+04 -4.965445E+01 -6.447814E+04 -1.956079E+05 6.556488E+04 5 -1.804621E+05 -1.545742E+05 -3.376252E+04 -5.548798E+01 -1.313595E+05 -2.036769E+05 3.615873E+04 C -1.870899E+05 -1.905911E+05 -9.078185E+03 -3.954271E+01 -1.795951E+05 -1.980859E+05 9.245429E+03 0 4 1 -2.426196E+05 -2.710404E+05 2.029822E+04 2.750244E+01 -2.320519E+05 -2.816081E+05 2.477808E+04 3 -1.431983E+05 -1.474792E+05 -1.152301E+04 -3.973843E+01 -1.336187E+05 -1.570589E+05 1.172012E+04 5 -1.779125E+05 -1.301226E+05 1.496593E+04 7.397009E+01 -1.258227E+05 -1.822123E+05 2.819479E+04 C -1.879101E+05 -1.828808E+05 7.913716E+03 5.381417E+01 -1.770918E+05 -1.936991E+05 8.303646E+03 0 5 1 -2.398914E+05 -2.970052E+05 7.033819E+04 3.395156E+01 -1.925342E+05 -3.443625E+05 7.591414E+04 3 -1.445962E+05 -1.234594E+05 -6.093457E+04 -4.991972E+01 -7.218352E+04 -1.958720E+05 6.184427E+04 5 -1.777714E+05 -1.543939E+05 -3.363940E+04 -5.458046E+01 -1.304703E+05 -2.016949E+05 3.561230E+04 C -1.874197E+05 -1.916195E+05 -8.078594E+03 -3.771465E+01 -1.811725E+05 -1.978666E+05 8.347052E+03 0 6 1 -2.403735E+05 -2.730730E+05 2.086561E+04 2.595934E+01 -2.302150E+05 -2.832315E+05 2.650826E+04 3 -1.432812E+05 -1.468980E+05 -1.177345E+04 -4.063372E+01 -1.331781E+05 -1.570011E+05 1.191153E+04 5 -1.790864E+05 -1.300900E+05 1.524606E+04 7.405231E+01 -1.257333E+05 -1.834431E+05 2.885490E+04 C -1.875804E+05 -1.833537E+05 8.112741E+03 5.230044E+01 -1.770835E+05 -1.938505E+05 8.383483E+03 0 7 1 -2.373092E+05 -2.974039E+05 7.029755E+04 3.342832E+01 -1.909066E+05 -3.438064E+05 7.644991E+04 3 -1.433677E+05 -1.229462E+05 -6.073419E+04 -4.977170E+01 -7.157041E+04 -1.947435E+05 6.158653E+04 5 -1.799423E+05 -1.542303E+05 -3.308166E+04 -5.561843E+01 -1.315944E+05 -2.025782E+05 3.549189E+04 C -1.868730E+05 -1.915268E+05 -7.839432E+03 -3.673414E+01 -1.810224E+05 -1.973774E+05 8.177469E+03 0 8 1 -2.410710E+05 -2.687354E+05 2.008289E+04 2.772131E+01 -2.305177E+05 -2.792887E+05 2.438550E+04 3 -1.470978E+05 -1.552464E+05 -8.362404E+03 -3.201196E+01 -1.418699E+05 -1.604742E+05 9.302135E+03 5 -1.762122E+05 -1.301467E+05 1.496006E+04 7.349788E+01 -1.257148E+05 -1.806442E+05 2.746471E+04 C -1.881270E+05 -1.847095E+05 8.893514E+03 5.043793E+01 -1.773621E+05 -1.954744E+05 9.056178E+03 0 9 1 -2.776086E+05 -2.960596E+05 6.477316E+04 4.094700E+01 -2.214073E+05 -3.522610E+05 6.542684E+04 3 -1.474903E+05 -1.244024E+05 -6.380066E+04 -5.012802E+01 -7.110973E+04 -2.007830E+05 6.483662E+04 5 -1.543237E+05 -1.566916E+05 -3.705479E+04 -4.408499E+01 -1.184339E+05 -1.925813E+05 3.707370E+04 C -1.931409E+05 -1.923845E+05 -1.202743E+04 -4.590048E+01 -1.807293E+05 -2.047961E+05 1.203337E+04 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 UNIFORM TEMPERATURE LOAD SUBCASE 2 S T R E S S E S I N T R I A N G U L A R M E M B R A N E E L E M E N T S ( C T R I M 6 ) 0 ELEMENT POINT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. NO. NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 10 1 -2.437634E+05 -3.123029E+05 4.023547E+04 2.478899E+01 -2.251814E+05 -3.308849E+05 5.285176E+04 3 -1.536569E+05 -1.997694E+05 1.692154E+04 1.813794E+01 -1.481137E+05 -2.053126E+05 2.859944E+04 5 -1.481571E+05 -3.238655E+04 -4.869570E+04 -6.996397E+01 -1.462807E+04 -1.659156E+05 7.564374E+04 C -1.818592E+05 -1.814863E+05 2.820434E+03 4.689087E+01 -1.788461E+05 -1.844993E+05 2.826588E+03 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1) SUBCASE 3 S T R E S S E S I N T R I A N G U L A R M E M B R A N E E L E M E N T S ( C T R I M 6 ) 0 ELEMENT POINT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. NO. NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 1 1.446798E+03 -2.485351E+02 7.062744E+01 2.381438E+00 1.449735E+03 -2.514723E+02 8.506036E+02 3 1.551282E+03 3.102564E+02 -1.527790E+02 -6.915954E+00 1.569813E+03 2.917249E+02 6.390443E+02 5 1.492584E+03 2.985168E+02 -4.071765E+01 -1.950763E+00 1.493971E+03 2.971300E+02 5.984205E+02 C 1.496888E+03 1.200794E+02 -4.095648E+01 -1.702394E+00 1.498105E+03 1.188622E+02 6.896215E+02 0 2 1 1.465471E+03 9.764941E+01 -1.088330E+01 -4.558450E-01 1.465557E+03 9.756287E+01 6.839973E+02 3 1.514873E+03 -3.466553E+00 1.553345E+00 5.861665E-02 1.514875E+03 -3.468140E+00 7.591713E+02 5 1.528992E+03 -7.487976E+00 -4.487633E+00 -1.673432E-01 1.529006E+03 -7.501160E+00 7.682534E+02 C 1.503112E+03 2.889832E+01 -4.606018E+00 -1.790120E-01 1.503126E+03 2.888397E+01 7.371212E+02 0 3 1 1.502456E+03 3.991638E+00 -5.110352E+00 -1.953981E-01 1.502473E+03 3.974243E+00 7.492495E+02 3 1.479904E+03 -1.730566E+01 2.103931E+01 8.049281E-01 1.480200E+03 -1.760126E+01 7.489005E+02 5 1.513441E+03 -3.752808E+00 4.584351E-01 1.731248E-02 1.513442E+03 -3.752930E+00 7.585972E+02 C 1.498601E+03 -5.688965E+00 5.462402E+00 2.080497E-01 1.498621E+03 -5.708801E+00 7.521648E+02 0 4 1 1.510852E+03 -9.526062E+00 2.749023E+00 1.035971E-01 1.510857E+03 -9.531067E+00 7.601940E+02 3 1.498435E+03 -4.585876E-01 -3.051758E-01 -1.166546E-02 1.498435E+03 -4.586792E-01 7.494468E+02 5 1.494912E+03 2.525635E-01 1.016907E+00 3.898174E-02 1.494913E+03 2.518311E-01 7.473305E+02 C 1.501399E+03 -3.244019E+00 1.153076E+00 4.390831E-02 1.501400E+03 -3.244873E+00 7.523226E+02 0 5 1 1.500093E+03 -2.186890E-01 2.207031E-01 8.428488E-03 1.500093E+03 -2.188110E-01 7.501558E+02 3 1.501798E+03 1.629517E+00 -1.346680E+00 -5.143354E-02 1.501799E+03 1.628296E+00 7.500854E+02 5 1.498685E+03 -4.086914E-01 5.201721E-02 1.988113E-03 1.498685E+03 -4.086914E-01 7.495466E+02 C 1.500192E+03 3.339844E-01 -3.579102E-01 -1.367246E-02 1.500192E+03 3.339233E-01 7.499290E+02 0 6 1 1.498940E+03 1.356873E+00 -2.236328E-01 -8.555932E-03 1.498940E+03 1.356873E+00 7.487914E+02 3 1.499678E+03 -1.687103E+00 4.338379E-01 1.655632E-02 1.499678E+03 -1.687256E+00 7.506825E+02 5 1.500806E+03 1.733398E-02 -3.557281E-01 -1.358068E-02 1.500806E+03 1.727295E-02 7.503942E+02 C 1.499808E+03 -1.042480E-01 -4.931641E-02 -1.883858E-03 1.499808E+03 -1.042480E-01 7.499562E+02 0 7 1 1.495435E+03 1.457397E+00 1.320312E+00 5.063546E-02 1.495436E+03 1.456238E+00 7.469901E+02 3 1.496574E+03 -8.294067E-01 -1.405273E+00 -5.377051E-02 1.496575E+03 -8.308105E-01 7.487030E+02 5 1.504500E+03 -7.231445E-01 -1.804817E+00 -6.869958E-02 1.504502E+03 -7.252808E-01 7.526137E+02 C 1.498836E+03 -3.149414E-02 -6.289062E-01 -2.404060E-02 1.498836E+03 -3.173828E-02 7.494340E+02 0 8 1 1.502419E+03 -1.188513E+01 3.046875E-01 1.152827E-02 1.502419E+03 -1.188513E+01 7.571522E+02 3 1.505408E+03 2.685532E+01 -3.311523E+00 -1.283248E-01 1.505416E+03 2.684796E+01 7.392839E+02 5 1.495664E+03 -1.689453E-01 1.208138E+00 4.627597E-02 1.495665E+03 -1.699219E-01 7.479175E+02 C 1.501165E+03 4.933716E+00 -6.000977E-01 -2.297978E-02 1.501165E+03 4.933472E+00 7.481157E+02 0 9 1 1.655845E+03 -2.877625E+00 2.275977E+01 7.859730E-01 1.656157E+03 -3.189880E+00 8.296735E+02 3 1.513057E+03 3.309448E+00 7.600586E+00 2.884369E-01 1.513095E+03 3.271179E+00 7.549119E+02 5 1.421270E+03 1.002734E+01 1.826542E+01 7.414020E-01 1.421506E+03 9.790955E+00 7.058575E+02 C 1.530057E+03 3.486084E+00 1.621045E+01 6.083248E-01 1.530229E+03 3.313965E+00 7.634574E+02 1 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A 0 LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1) SUBCASE 3 S T R E S S E S I N T R I A N G U L A R M E M B R A N E E L E M E N T S ( C T R I M 6 ) 0 ELEMENT POINT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. NO. NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 10 1 1.475501E+03 1.244442E+02 -2.943164E+01 -1.247351E+00 1.476142E+03 1.238033E+02 6.761694E+02 3 1.624542E+03 -1.373778E+02 -3.127290E+02 -9.772092E+00 1.678403E+03 -1.912386E+02 9.348207E+02 5 1.309787E+03 -1.138135E+01 2.970793E+02 1.210725E+01 1.373515E+03 -7.510895E+01 7.243118E+02 C 1.469942E+03 -8.104980E+00 -1.502881E+01 -5.825041E-01 1.470095E+03 -8.257812E+00 7.391765E+02 * * * END OF JOB * * * 1 JOB TITLE = 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS DATE: 5/17/95 END TIME: 14:59:55 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01101a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01101A,NASTRAN SOL 1,0 TIME 9 APP DISPLACEMENT CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = THERMAL BENDING OF A BAR. 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 3 TEMPERATURE(LOAD) = 20 4 OUTPUT 5 DISPLACEMENT = ALL 6 SPCFORCE = ALL 7 OLOAD = ALL 8 ELFORCE = ALL 9 STRESS = ALL 10 SUBCASE 1 11 LABEL = CONSTRAINTS ARE - FIXED AND FREE ENDS. 12 SPC = 1 13 SUBCASE 2 14 LABEL = CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS. 15 SPC = 2 16 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 64, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BAROR .0 1.00 .0 1 2- CBAR 101 10 1 2 3- CBAR 102 10 2 3 4- CBAR 103 10 3 4 5- CBAR 104 10 4 5 6- CBAR 105 10 5 6 7- CBAR 106 10 6 7 8- CBAR 107 10 7 8 9- CBAR 108 10 8 9 10- CBAR 109 10 9 10 11- CBAR 110 10 10 11 12- CBAR 111 10 11 12 13- CBAR 112 10 12 13 14- CBAR 113 10 13 14 15- CBAR 114 10 14 15 16- GRDSET 345 17- GRID 1 .0 .0 .0 18- GRID 2 2.4 .0 .0 19- GRID 3 3.7 .0 .0 20- GRID 4 4.7 .0 .0 21- GRID 5 5.5 .0 .0 22- GRID 6 6.2 .0 .0 23- GRID 7 7.2 .0 .0 24- GRID 8 7.8 .0 .0 25- GRID 9 8.3 .0 .0 26- GRID 10 8.7 .0 .0 27- GRID 11 9.0 .0 .0 28- GRID 12 9.3 .0 .0 29- GRID 13 9.6 .0 .0 30- GRID 14 9.8 .0 .0 31- GRID 15 10.0 .0 .0 32- MAT1 10 1.0+7 .3 1.3-5 .0 33- PBAR 10 10 .52 .0689333.0337333 +BAR 34- +BAR .0 .3 .5 -0.5 35- SPC 1 1 126 .0 36- SPC 2 1 126 .0 15 2 .0 37- TEMPRB 20 101 .0 .0 .0 2.35083 .0 .0 +1T 38- +1T .0 .0 .0 .0 .0 .373248 1.728 -1.728 39- TEMPRB 20 102 .0 .0 2.35083 8.61375 .0 .0 +2T 40- +2T .0 .373248 1.728 -1.728 .0 1.36763 6.33163 -6.33163 41- TEMPRB 20 103 .0 .0 8.61375 17.6555 .0 .0 +3T 42- +3T .0 1.36763 6.33163 -6.33163.0 2.80322 12.9779 -12.9779 43- TEMPRB 20 104 .0 .0 17.6555 28.2928 .0 .0 +4T 44- +4T .0 2.80322 12.9779 -12.9779.0 4.49213 20.7969 -20.7969 45- TEMPRB 20 105 .0 .0 28.2928 40.5287 .0 .0 +5T 46- +5T .0 4.49213 20.7969 -20.7969.0 6.43486 29.791 -29.791 47- TEMPRB 20 106 .0 .0 40.5287 63.4724 .0 .0 +6T 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- +6T .0 6.43486 29.791 -29.791 .0 10.0777 46.656 -46.656 49- TEMPRB 20 107 .0 .0 63.4724 80.6995 .0 .0 +7T 50- +7T .0 10.0777 46.656 -46.656 .0 12.8129 59.319 -59.319 51- TEMPRB 20 108 .0 .0 80.6995 97.2348 .0 .0 +8T 52- +8T .0 12.8129 59.319 -59.319 .0 15.4383 71.4734 -71.4734 53- TEMPRB 20 109 .0 .0 97.2348 111.981 .0 .0 +9T 54- +9T .0 15.4383 71.4734 -71.4734.0 17.7796 82.3129 -82.3129 55- TEMPRB 20 110 .0 .0 111.981 123.97 .0 .0 +10T 56- +10T .0 17.7796 82.3129 -82.3129.0 19.683 91.125 -91.125 57- TEMPRB 20 111 .0 .0 123.97 136.784 .0 .0 +11T 58- +11T .0 19.683 91.125 -91.125 .0 21.7176 100.545 -100.545 59- TEMPRB 20 112 .0 .0 136.784 150.453 .0 .0 +12T 60- +12T .0 21.7176 100.545 -100.545.0 23.8879 110.592 -110.592 61- TEMPRB 20 113 .0 .0 150.453 160.054 .0 .0 +13T 62- +13T .0 23.8879 110.592 -110.592.0 25.4122 117.649 -117.649 63- TEMPRB 20 114 .0 .0 160.054 170.054 .0 .0 +14T 64- +14T .0 25.4122 117.649 -117.649.0 27.0 125.0 -125.0 ENDDATA 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 2 PROFILE 29 MAX WAVEFRONT 2 AVG WAVEFRONT 1.933 RMS WAVEFRONT 1.949 RMS BANDWIDTH 1.949 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 2 PROFILE 29 MAX WAVEFRONT 2 AVG WAVEFRONT 1.933 RMS WAVEFRONT 1.949 RMS BANDWIDTH 1.949 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 2 2 PROFILE (P) 29 29 MAXIMUM WAVEFRONT (C-MAX) 2 2 AVERAGE WAVEFRONT (C-AVG) 1.933 1.933 RMS WAVEFRONT (C-RMS) 1.949 1.949 RMS BANDWITCH (B-RMS) 1.949 1.949 NUMBER OF GRID POINTS (N) 15 NUMBER OF ELEMENTS (NON-RIGID) 14 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 2 MINIMUM NODAL DEGREE 1 NUMBER OF UNIQUE EDGES 14 MATRIX DENSITY, PERCENT 19.111 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 101 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.7497619E-12 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 1.0778023E-13 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 CONSTRAINTS ARE - FIXED AND FREE ENDS. SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 -2.933817E-05 0.0 0.0 0.0 -3.667279E-05 3 G 0.0 -1.257693E-04 0.0 0.0 0.0 -1.293234E-04 4 G 0.0 -3.306724E-04 0.0 0.0 0.0 -3.000733E-04 5 G 0.0 -6.589283E-04 0.0 0.0 0.0 -5.390043E-04 6 G 0.0 -1.139334E-03 0.0 0.0 0.0 -8.521419E-04 7 G 0.0 -2.304624E-03 0.0 0.0 0.0 -1.528149E-03 8 G 0.0 -3.383476E-03 0.0 0.0 0.0 -2.090419E-03 9 G 0.0 -4.568779E-03 0.0 0.0 0.0 -2.668706E-03 10 G 0.0 -5.742496E-03 0.0 0.0 0.0 -3.212666E-03 11 G 0.0 -6.774144E-03 0.0 0.0 0.0 -3.672770E-03 12 G 0.0 -7.950997E-03 0.0 0.0 0.0 -4.181241E-03 13 G 0.0 -9.288054E-03 0.0 0.0 0.0 -4.741353E-03 14 G 0.0 -1.027627E-02 0.0 0.0 0.0 -5.145011E-03 15 G 0.0 -1.134775E-02 0.0 0.0 0.0 -5.574150E-03 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS. SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 8.726722E-04 0.0 0.0 0.0 6.823210E-04 3 G 0.0 1.917093E-03 0.0 0.0 0.0 8.972513E-04 4 G 0.0 2.840327E-03 0.0 0.0 0.0 9.239523E-04 5 G 0.0 3.546124E-03 0.0 0.0 0.0 8.184709E-04 6 G 0.0 4.051537E-03 0.0 0.0 0.0 6.042290E-04 7 G 0.0 4.401627E-03 0.0 0.0 0.0 4.056478E-05 8 G 0.0 4.279935E-03 0.0 0.0 0.0 -4.706409E-04 9 G 0.0 3.913174E-03 0.0 0.0 0.0 -1.015735E-03 10 G 0.0 3.404911E-03 0.0 0.0 0.0 -1.539269E-03 11 G 0.0 2.877122E-03 0.0 0.0 0.0 -1.987629E-03 12 G 0.0 2.207190E-03 0.0 0.0 0.0 -2.487418E-03 13 G 0.0 1.379200E-03 0.0 0.0 0.0 -3.041913E-03 14 G 0.0 7.310949E-04 0.0 0.0 0.0 -3.443528E-03 15 G 0.0 0.0 0.0 0.0 0.0 -3.871987E-03 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 CONSTRAINTS ARE - FIXED AND FREE ENDS. SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -8.777737E+00 0.0 0.0 0.0 -7.629395E-06 2 G 0.0 -3.439463E+01 0.0 0.0 0.0 -2.288818E-05 3 G 0.0 -3.785376E+01 0.0 0.0 0.0 -2.288818E-05 4 G 0.0 -3.812915E+01 0.0 0.0 0.0 -4.577637E-05 5 G 0.0 -3.748755E+01 0.0 0.0 0.0 9.155273E-05 6 G 0.0 -4.896338E+01 0.0 0.0 0.0 -6.103516E-05 7 G 0.0 -5.169019E+01 0.0 0.0 0.0 -2.441406E-04 8 G 0.0 -3.906006E+01 0.0 0.0 0.0 -2.441406E-04 9 G 0.0 -3.400879E+01 0.0 0.0 0.0 -2.441406E-04 10 G 0.0 -2.775781E+01 0.0 0.0 0.0 -1.220703E-04 11 G 0.0 -2.464453E+01 0.0 0.0 0.0 -4.882812E-04 12 G 0.0 -2.554297E+01 0.0 0.0 0.0 -7.324219E-04 13 G 0.0 -2.187305E+01 0.0 0.0 0.0 4.882812E-04 14 G 0.0 -1.788281E+01 0.0 0.0 0.0 1.220703E-03 15 G 0.0 4.480664E+02 0.0 0.0 0.0 -1.523909E+03 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS. SUBCASE 2 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -8.777737E+00 0.0 0.0 0.0 -7.629395E-06 2 G 0.0 -3.439463E+01 0.0 0.0 0.0 -2.288818E-05 3 G 0.0 -3.785376E+01 0.0 0.0 0.0 -2.288818E-05 4 G 0.0 -3.812915E+01 0.0 0.0 0.0 -4.577637E-05 5 G 0.0 -3.748755E+01 0.0 0.0 0.0 9.155273E-05 6 G 0.0 -4.896338E+01 0.0 0.0 0.0 -6.103516E-05 7 G 0.0 -5.169019E+01 0.0 0.0 0.0 -2.441406E-04 8 G 0.0 -3.906006E+01 0.0 0.0 0.0 -2.441406E-04 9 G 0.0 -3.400879E+01 0.0 0.0 0.0 -2.441406E-04 10 G 0.0 -2.775781E+01 0.0 0.0 0.0 -1.220703E-04 11 G 0.0 -2.464453E+01 0.0 0.0 0.0 -4.882812E-04 12 G 0.0 -2.554297E+01 0.0 0.0 0.0 -7.324219E-04 13 G 0.0 -2.187305E+01 0.0 0.0 0.0 4.882812E-04 14 G 0.0 -1.788281E+01 0.0 0.0 0.0 1.220703E-03 15 G 0.0 4.480664E+02 0.0 0.0 0.0 -1.523909E+03 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 CONSTRAINTS ARE - FIXED AND FREE ENDS. SUBCASE 1 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -1.119155E-09 0.0 0.0 0.0 -4.037770E-05 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS. SUBCASE 2 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.346715E+01 0.0 0.0 0.0 -2.346715E+02 15 G 0.0 2.346715E+01 0.0 0.0 0.0 0.0 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 CONSTRAINTS ARE - FIXED AND FREE ENDS. SUBCASE 1 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 101 3.890592E-05 0.0 4.348356E-05 0.0 -1.907349E-06 0.0 0.0 0.0 102 3.242493E-05 0.0 6.217956E-05 0.0 -2.288818E-05 0.0 0.0 0.0 103 4.577637E-05 0.0 2.670288E-04 0.0 -2.212524E-04 0.0 0.0 0.0 104 -1.220703E-04 0.0 -1.220701E-05 0.0 -1.373291E-04 0.0 0.0 0.0 105 6.866455E-04 0.0 -8.087154E-04 0.0 2.136230E-03 0.0 0.0 0.0 106 -5.493164E-04 0.0 1.525879E-04 0.0 -7.019043E-04 0.0 0.0 0.0 107 2.441406E-04 0.0 -4.956058E-03 0.0 8.666992E-03 0.0 0.0 0.0 108 -5.187988E-03 0.0 -6.408691E-03 0.0 2.441406E-03 0.0 0.0 0.0 109 9.277344E-03 0.0 4.492192E-03 0.0 1.196289E-02 0.0 0.0 0.0 110 -1.342773E-03 0.0 -1.562500E-03 0.0 7.324219E-04 0.0 0.0 0.0 111 -1.464844E-03 0.0 3.881839E-03 0.0 -1.782227E-02 0.0 0.0 0.0 112 1.647949E-02 0.0 -4.116214E-02 0.0 1.921387E-01 0.0 0.0 0.0 113 8.789062E-03 0.0 -1.541991E-01 0.0 8.149414E-01 0.0 0.0 0.0 114 -7.849121E-02 0.0 -6.589357E-02 0.0 -6.298828E-02 0.0 0.0 0.0 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS. SUBCASE 2 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 101 2.346715E+02 0.0 1.783503E+02 0.0 2.346717E+01 0.0 0.0 0.0 102 1.783505E+02 0.0 1.478437E+02 0.0 2.346679E+01 0.0 0.0 0.0 103 1.478440E+02 0.0 1.243761E+02 0.0 2.346792E+01 0.0 0.0 0.0 104 1.243749E+02 0.0 1.056023E+02 0.0 2.346568E+01 0.0 0.0 0.0 105 1.056037E+02 0.0 8.917683E+01 0.0 2.346698E+01 0.0 0.0 0.0 106 8.917719E+01 0.0 6.570914E+01 0.0 2.346805E+01 0.0 0.0 0.0 107 6.570728E+01 0.0 5.163488E+01 0.0 2.345398E+01 0.0 0.0 0.0 108 5.162762E+01 0.0 3.989984E+01 0.0 2.345557E+01 0.0 0.0 0.0 109 3.988428E+01 0.0 3.050450E+01 0.0 2.344946E+01 0.0 0.0 0.0 110 3.049866E+01 0.0 2.344843E+01 0.0 2.350073E+01 0.0 0.0 0.0 111 2.348291E+01 0.0 1.641950E+01 0.0 2.354468E+01 0.0 0.0 0.0 112 1.641492E+01 0.0 9.401021E+00 0.0 2.337964E+01 0.0 0.0 0.0 113 9.399414E+00 0.0 4.686430E+00 0.0 2.356494E+01 0.0 0.0 0.0 114 4.696899E+00 0.0 3.251553E-03 0.0 2.346826E+01 0.0 0.0 0.0 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 CONSTRAINTS ARE - FIXED AND FREE ENDS. SUBCASE 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 101 0.0 -1.693199E-04 -2.821998E-04 2.821998E-04 0.0 2.821998E-04 -2.821998E-04 0.0 4.315995E+01 -7.183636E+01 7.183636E+01 7.183636E+01 -7.183636E+01 0 102 0.0 4.316000E+01 -7.183629E+01 7.183629E+01 0.0 7.183629E+01 -7.183629E+01 0.0 1.581441E+02 -2.632186E+02 2.632186E+02 2.632186E+02 -2.632186E+02 0 103 0.0 1.581442E+02 -2.632185E+02 2.632185E+02 0.0 2.632185E+02 -2.632185E+02 0.0 3.241448E+02 -5.395214E+02 5.395214E+02 5.395214E+02 -5.395214E+02 0 104 0.0 3.241465E+02 -5.395185E+02 5.395185E+02 0.0 5.395185E+02 -5.395185E+02 0.0 5.194424E+02 -8.645649E+02 8.645649E+02 8.645649E+02 -8.645649E+02 0 105 0.0 5.194394E+02 -8.645699E+02 8.645699E+02 0.0 8.645699E+02 -8.645699E+02 0.0 7.440912E+02 -1.238459E+03 1.238459E+03 1.238459E+03 -1.238459E+03 0 106 0.0 7.440900E+02 -1.238460E+03 1.238460E+03 0.0 1.238460E+03 -1.238460E+03 0.0 1.165322E+03 -1.939575E+03 1.939575E+03 1.939575E+03 -1.939575E+03 0 107 0.0 1.165322E+03 -1.939576E+03 1.939576E+03 0.0 1.939576E+03 -1.939576E+03 0.0 1.481625E+03 -2.465967E+03 2.465967E+03 2.465967E+03 -2.465967E+03 0 108 0.0 1.481626E+03 -2.465965E+03 2.465965E+03 0.0 2.465965E+03 -2.465965E+03 0.0 1.785206E+03 -2.971233E+03 2.971233E+03 2.971233E+03 -2.971233E+03 0 109 0.0 1.785138E+03 -2.971347E+03 2.971347E+03 0.0 2.971347E+03 -2.971347E+03 0.0 2.055892E+03 -3.421944E+03 3.421944E+03 3.421944E+03 -3.421944E+03 0 110 0.0 2.055917E+03 -3.421902E+03 3.421902E+03 0.0 3.421902E+03 -3.421902E+03 0.0 2.276047E+03 -3.788189E+03 3.788189E+03 3.788189E+03 -3.788189E+03 0 111 0.0 2.276047E+03 -3.788189E+03 3.788189E+03 0.0 3.788189E+03 -3.788189E+03 0.0 2.511271E+03 -4.179918E+03 4.179918E+03 4.179918E+03 -4.179918E+03 0 112 0.0 2.511217E+03 -4.180010E+03 4.180010E+03 0.0 4.180010E+03 -4.180010E+03 0.0 2.762420E+03 -4.597217E+03 4.597217E+03 4.597217E+03 -4.597217E+03 0 113 0.0 2.762202E+03 -4.597579E+03 4.597579E+03 0.0 4.597579E+03 -4.597579E+03 0.0 2.939191E+03 -4.889742E+03 4.889742E+03 4.889742E+03 -4.889742E+03 0 114 0.0 2.938862E+03 -4.890291E+03 4.890291E+03 0.0 4.890291E+03 -4.890291E+03 0.0 3.122393E+03 -5.196012E+03 5.196012E+03 5.196012E+03 -5.196012E+03 1 THERMAL BENDING OF A BAR. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A 0 CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS. SUBCASE 2 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 101 0.0 -1.021298E+03 -1.702164E+03 1.702164E+03 0.0 1.702164E+03 -1.702164E+03 0.0 -7.330262E+02 -1.365480E+03 1.365480E+03 1.365480E+03 -1.365480E+03 0 102 0.0 -7.330271E+02 -1.365481E+03 1.365481E+03 0.0 1.365481E+03 -1.365481E+03 0.0 -4.852762E+02 -1.335586E+03 1.335586E+03 1.335586E+03 -1.335586E+03 0 103 0.0 -4.852775E+02 -1.335588E+03 1.335588E+03 0.0 1.335588E+03 -1.335588E+03 0.0 -2.171429E+02 -1.441667E+03 1.441667E+03 1.441667E+03 -1.441667E+03 0 104 0.0 -2.171376E+02 -1.441659E+03 1.441659E+03 0.0 1.441659E+03 -1.441659E+03 0.0 5.985757E+01 -1.630540E+03 1.630540E+03 1.630540E+03 -1.630540E+03 0 105 0.0 5.985153E+01 -1.630550E+03 1.630550E+03 0.0 1.630550E+03 -1.630550E+03 0.0 3.559871E+02 -1.885299E+03 1.885299E+03 1.885299E+03 -1.885299E+03 0 106 0.0 3.559856E+02 -1.885301E+03 1.885301E+03 0.0 1.885301E+03 -1.885301E+03 0.0 8.793545E+02 -2.416188E+03 2.416188E+03 2.416188E+03 -2.416188E+03 0 107 0.0 8.793627E+02 -2.416174E+03 2.416174E+03 0.0 2.416174E+03 -2.416174E+03 0.0 1.256887E+03 -2.840530E+03 2.840530E+03 2.840530E+03 -2.840530E+03 0 108 0.0 1.256919E+03 -2.840478E+03 2.840478E+03 0.0 2.840478E+03 -2.840478E+03 0.0 1.611533E+03 -3.260688E+03 3.260688E+03 3.260688E+03 -3.260688E+03 0 109 0.0 1.611601E+03 -3.260575E+03 3.260575E+03 0.0 3.260575E+03 -3.260575E+03 0.0 1.923155E+03 -3.643172E+03 3.643172E+03 3.643172E+03 -3.643172E+03 0 110 0.0 1.923180E+03 -3.643130E+03 3.643130E+03 0.0 3.643130E+03 -3.643130E+03 0.0 2.173992E+03 -3.958281E+03 3.958281E+03 3.958281E+03 -3.958281E+03 0 111 0.0 2.173842E+03 -3.958531E+03 3.958531E+03 0.0 3.958531E+03 -3.958531E+03 0.0 2.439830E+03 -4.298987E+03 4.298987E+03 4.298987E+03 -4.298987E+03 0 112 0.0 2.439850E+03 -4.298954E+03 4.298954E+03 0.0 4.298954E+03 -4.298954E+03 0.0 2.721327E+03 -4.665705E+03 4.665705E+03 4.665705E+03 -4.665705E+03 0 113 0.0 2.721334E+03 -4.665693E+03 4.665693E+03 0.0 4.665693E+03 -4.665693E+03 0.0 2.918125E+03 -4.924853E+03 4.924853E+03 4.924853E+03 -4.924853E+03 0 114 0.0 2.918079E+03 -4.924929E+03 4.924929E+03 0.0 4.924929E+03 -4.924929E+03 0.0 3.122092E+03 -5.196513E+03 5.196513E+03 5.196513E+03 -5.196513E+03 * * * END OF JOB * * * 1 JOB TITLE = THERMAL BENDING OF A BAR. DATE: 5/17/95 END TIME: 15: 0:56 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01111a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01111A,NASTRAN APP DISPLACEMENT SOL 1,3 TIME 9 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 3 SPC = 1 4 TEMP(LOAD) = 20 5 OUTPUT 6 DISPLACEMENT = ALL 7 SPCFORCE = ALL 8 ELFORCE = ALL 9 STRESSES = ALL 10 STRAIN = ALL 11 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 182, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CNGRNT 1 2 THRU 59 2- CORD2R 1000 .0 .0 .0 .0 .0 1.0 +COR1 3- +COR1 1.0 .0 .0 4- CQUAD1 1 101 1 2 8 7 5- CQUAD1 2 101 2 3 9 8 6- CQUAD1 3 101 3 4 10 9 7- CQUAD1 4 101 4 5 11 10 8- CQUAD1 5 101 5 6 12 11 9- CQUAD1 7 101 7 8 14 13 10- CQUAD1 8 101 8 9 15 14 11- CQUAD1 9 101 9 10 16 15 12- CQUAD1 10 101 10 11 17 16 13- CQUAD1 11 101 11 12 18 17 14- CQUAD1 13 101 13 14 20 19 15- CQUAD1 14 101 14 15 21 20 16- CQUAD1 15 101 15 16 22 21 17- CQUAD1 16 101 16 17 23 22 18- CQUAD1 17 101 17 18 24 23 19- CQUAD1 19 101 19 20 26 25 20- CQUAD1 20 101 20 21 27 26 21- CQUAD1 21 101 21 22 28 27 22- CQUAD1 22 101 22 23 29 28 23- CQUAD1 23 101 23 24 30 29 24- CQUAD1 25 101 25 26 32 31 25- CQUAD1 26 101 26 27 33 32 26- CQUAD1 27 101 27 28 34 33 27- CQUAD1 28 101 28 29 35 34 28- CQUAD1 29 101 29 30 36 35 29- CQUAD1 31 101 31 32 38 37 30- CQUAD1 32 101 32 33 39 38 31- CQUAD1 33 101 33 34 40 39 32- CQUAD1 34 101 34 35 41 40 33- CQUAD1 35 101 35 36 42 41 34- CQUAD1 37 101 37 38 44 43 35- CQUAD1 38 101 38 39 45 44 36- CQUAD1 39 101 39 40 46 45 37- CQUAD1 40 101 40 41 47 46 38- CQUAD1 41 101 41 42 48 47 39- CQUAD1 43 101 43 44 50 49 40- CQUAD1 44 101 44 45 51 50 41- CQUAD1 45 101 45 46 52 51 42- CQUAD1 46 101 46 47 53 52 43- CQUAD1 47 101 47 48 54 53 44- CQUAD1 49 101 49 50 56 55 45- CQUAD1 50 101 50 51 57 56 46- CQUAD1 51 101 51 52 58 57 47- CQUAD1 52 101 52 53 59 58 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQUAD1 53 101 53 54 60 59 49- CQUAD1 55 101 55 56 62 61 50- CQUAD1 56 101 56 57 63 62 51- CQUAD1 57 101 57 58 64 63 52- CQUAD1 58 101 58 59 65 64 53- CQUAD1 59 101 59 60 66 65 54- GRDSET 6 55- GRID 1 .00 .00 .00 56- GRID 2 1.00000 .00 .00 57- GRID 3 2.00000 .00 .00 58- GRID 4 3.00000 .00 .00 59- GRID 5 4.00000 .00 .00 60- GRID 6 5.00000 .00 .00 61- GRID 7 .00 1.00000 .00 62- GRID 8 1.00000 1.00000 .00 63- GRID 9 2.00000 1.00000 .00 64- GRID 10 3.00000 1.00000 .00 65- GRID 11 4.00000 1.00000 .00 66- GRID 12 5.00000 1.00000 .00 67- GRID 13 .00 2.00000 .00 68- GRID 14 1.00000 2.00000 .00 69- GRID 15 2.00000 2.00000 .00 70- GRID 16 3.00000 2.00000 .00 71- GRID 17 4.00000 2.00000 .00 72- GRID 18 5.00000 2.00000 .00 73- GRID 19 .00 3.00000 .00 74- GRID 20 1.00000 3.00000 .00 75- GRID 21 2.00000 3.00000 .00 76- GRID 22 3.00000 3.00000 .00 77- GRID 23 4.00000 3.00000 .00 78- GRID 24 5.00000 3.00000 .00 79- GRID 25 .00 4.00000 .00 80- GRID 26 1.00000 4.00000 .00 81- GRID 27 2.00000 4.00000 .00 82- GRID 28 3.00000 4.00000 .00 83- GRID 29 4.00000 4.00000 .00 84- GRID 30 5.00000 4.00000 .00 85- GRID 31 .00 5.00000 .00 86- GRID 32 1.00000 5.00000 .00 87- GRID 33 2.00000 5.00000 .00 88- GRID 34 3.00000 5.00000 .00 89- GRID 35 4.00000 5.00000 .00 90- GRID 36 5.00000 5.00000 .00 91- GRID 37 .00 6.00000 .00 92- GRID 38 1.00000 6.00000 .00 93- GRID 39 2.00000 6.00000 .00 94- GRID 40 3.00000 6.00000 .00 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- GRID 41 4.00000 6.00000 .00 96- GRID 42 5.00000 6.00000 .00 97- GRID 43 .00 7.00000 .00 98- GRID 44 1.00000 7.00000 .00 99- GRID 45 2.00000 7.00000 .00 100- GRID 46 3.00000 7.00000 .00 101- GRID 47 4.00000 7.00000 .00 102- GRID 48 5.00000 7.00000 .00 103- GRID 49 .00 8.00000 .00 104- GRID 50 1.00000 8.00000 .00 105- GRID 51 2.00000 8.00000 .00 106- GRID 52 3.00000 8.00000 .00 107- GRID 53 4.00000 8.00000 .00 108- GRID 54 5.00000 8.00000 .00 109- GRID 55 .00 9.00000 .00 110- GRID 56 1.00000 9.00000 .00 111- GRID 57 2.00000 9.00000 .00 112- GRID 58 3.00000 9.00000 .00 113- GRID 59 4.00000 9.00000 .00 114- GRID 60 5.00000 9.00000 .00 115- GRID 61 .00 10.0000 .00 116- GRID 62 1.00000 10.0000 .00 117- GRID 63 2.00000 10.0000 .00 118- GRID 64 3.00000 10.0000 .00 119- GRID 65 4.00000 10.0000 .00 120- GRID 66 5.00000 10.0000 .00 121- MAT1 1 3.0+5 .3 1.0 .01 .0 +MAT1 122- +MAT1 1000 123- PARAM IRES 1 124- PARAM STRESS 0 125- PQUAD1 101 1 .5 1 .0104167 +PQUAD1 126- +PQUAD1 .25 -0.25 127- SPC1 1 34 6 12 18 24 30 36 +SPC-34 128- +SPC-34 42 48 54 60 66 129- SPC1 1 35 61 62 63 64 65 66 130- SPC1 1 124 1 2 3 4 5 6 131- SPC1 1 125 7 13 19 25 31 37 +SPC-5 132- +SPC-5 43 49 55 61 1 133- TEMPP1 20 1 .0 5.90786 2.46161 -2.46161 134- TEMPP1 20 2 .0 5.32956 2.22065 -2.22065 135- TEMPP1 20 3 .0 4.22956 1.76232 -1.76232 136- TEMPP1 20 4 .0 2.71555 1.13148 -1.13148 137- TEMPP1 20 5 .0 .93571 .38988 -.38988 138- TEMPP1 20 7 .0 5.76239 2.40100 -2.40100 139- TEMPP1 20 8 .0 5.19833 2.16597 -2.16597 140- TEMPP1 20 9 .0 4.12542 1.71892 -1.71892 141- TEMPP1 20 10 .0 2.64868 1.10362 -1.10362 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- TEMPP1 20 11 .0 .91267 .38028 -.38028 143- TEMPP1 20 13 .0 5.47503 2.28126 -2.28126 144- TEMPP1 20 14 .0 4.93910 2.05796 -2.05796 145- TEMPP1 20 15 .0 3.91969 1.63320 -1.63320 146- TEMPP1 20 16 .0 2.51660 1.04858 -1.04858 147- TEMPP1 20 17 .0 .86716 .36132 -.36132 148- TEMPP1 20 19 .0 5.05286 2.10536 -2.10536 149- TEMPP1 20 20 .0 4.55825 1.89927 -1.89927 150- TEMPP1 20 21 .0 3.61745 1.50727 -1.50727 151- TEMPP1 20 22 .0 2.32254 .96773 -.96773 152- TEMPP1 20 23 .0 .80029 .33346 -.33346 153- TEMPP1 20 25 .0 4.50626 1.87761 -1.87761 154- TEMPP1 20 26 .0 4.06516 1.69382 -1.69382 155- TEMPP1 20 27 .0 3.22613 1.34422 -1.34422 156- TEMPP1 20 28 .0 2.07130 .86304 -.86304 157- TEMPP1 20 29 .0 .71372 .29738 -.29738 158- TEMPP1 20 31 .0 3.84871 1.60363 -1.60363 159- TEMPP1 20 32 .0 3.47197 1.44666 -1.44666 160- TEMPP1 20 33 .0 2.75537 1.14807 -1.14807 161- TEMPP1 20 34 .0 1.76906 .73711 -.73711 162- TEMPP1 20 35 .0 .60958 .25399 -.25399 163- TEMPP1 20 37 .0 3.09639 1.29016 -1.29016 164- TEMPP1 20 38 .0 2.79330 1.16387 -1.16387 165- TEMPP1 20 39 .0 2.21677 .92366 -.92366 166- TEMPP1 20 40 .0 1.42326 .59302 -.59302 167- TEMPP1 20 41 .0 .49042 .20434 -.20434 168- TEMPP1 20 43 .0 2.26783 .94493 -.94493 169- TEMPP1 20 44 .0 2.04584 .85243 -.85243 170- TEMPP1 20 45 .0 1.62359 .67650 -.67650 171- TEMPP1 20 46 .0 1.04241 .43434 -.43434 172- TEMPP1 20 47 .0 .35919 .14966 -.14966 173- TEMPP1 20 49 .0 1.38343 .57643 -.57643 174- TEMPP1 20 50 .0 1.24801 .52000 -.52000 175- TEMPP1 20 51 .0 .99043 .41268 -.41268 176- TEMPP1 20 52 .0 .63589 .26496 -.26496 177- TEMPP1 20 53 .0 .21911 .09130 -.09130 178- TEMPP1 20 55 .0 .46496 .19373 -.19373 179- TEMPP1 20 56 .0 .41945 .17477 -.17477 180- TEMPP1 20 57 .0 .33287 .13870 -.13870 181- TEMPP1 20 58 .0 .21372 .08905 -.08905 182- TEMPP1 20 59 .0 .07364 .03068 -.03068 ENDDATA 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 8 PROFILE 481 MAX WAVEFRONT 8 AVG WAVEFRONT 7.288 RMS WAVEFRONT 7.438 RMS BANDWIDTH 7.498 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 8 PROFILE 481 MAX WAVEFRONT 8 AVG WAVEFRONT 7.288 RMS WAVEFRONT 7.438 RMS BANDWIDTH 7.498 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 8 8 PROFILE (P) 481 481 MAXIMUM WAVEFRONT (C-MAX) 8 8 AVERAGE WAVEFRONT (C-AVG) 7.288 7.288 RMS WAVEFRONT (C-RMS) 7.438 7.438 RMS BANDWITCH (B-RMS) 7.498 7.498 NUMBER OF GRID POINTS (N) 66 NUMBER OF ELEMENTS (NON-RIGID) 50 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 215 MATRIX DENSITY, PERCENT 11.387 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.6240146E-13 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1-T3). 1 T3 1.16529E-12 2 T3 4.09273E-12 2 R2 3.52429E-12 3 T3 1.95541E-11 3 R2 7.67386E-13 4 T3 -6.82121E-13 4 R2 3.97904E-13 5 T3 -7.73070E-12 5 R2 2.24532E-12 6 R2 7.81597E-13 7 T3 4.57590E-12 7 R1 5.11591E-12 8 T3 1.77351E-11 8 R1 -3.41061E-13 8 R2 2.62901E-12 9 T3 9.83391E-12 9 R1 -7.95808E-12 9 R2 -2.72848E-12 10 T3 8.35598E-12 10 R1 -1.93268E-12 10 R2 7.24754E-12 11 T3 1.58025E-11 11 R1 -3.06954E-12 11 R2 -2.67164E-12 12 R2 3.97904E-13 13 T3 -2.73133E-11 13 R1 2.10321E-12 14 T3 8.18545E-12 14 R1 5.68434E-12 14 R2 5.96856E-12 15 T3 -2.08047E-11 15 R1 -8.81073E-12 15 R2 -1.25056E-12 16 T3 1.87583E-12 16 R1 -4.54747E-12 16 R2 -2.21689E-12 17 T3 1.19940E-11 17 R1 -3.86535E-12 17 R2 1.87583E-12 18 R2 5.96856E-13 19 T3 -4.83169E-13 19 R1 -2.55795E-13 20 T3 2.00089E-11 20 R1 -6.99174E-12 20 R2 6.93490E-12 21 T3 1.51203E-11 21 R1 -3.41061E-12 21 R2 3.06954E-12 22 T3 8.29914E-12 22 R1 -6.93490E-12 22 R2 -4.54747E-13 23 T3 -9.66338E-13 23 R1 -4.03588E-12 23 R2 -2.10321E-12 24 R2 -1.20792E-12 25 T3 -1.00044E-11 25 R1 -7.95808E-13 26 T3 7.41807E-12 26 R1 -6.42331E-12 26 R2 1.04592E-11 27 T3 -4.83169E-12 27 R1 -3.18323E-12 27 R2 1.56319E-13 28 T3 1.59730E-11 28 R1 -6.82121E-13 28 R2 6.30962E-12 29 T3 4.09273E-12 29 R1 6.25278E-13 29 R2 1.19371E-12 30 R2 -6.39488E-14 31 T3 8.07177E-12 31 R1 3.01270E-12 32 T3 -9.91918E-12 32 R1 -8.15703E-12 32 R2 1.05160E-12 33 T3 6.02540E-12 33 R1 -3.86535E-12 33 R2 5.91172E-12 34 T3 -6.08225E-12 34 R1 -2.89901E-12 34 R2 2.45848E-12 35 T3 1.25056E-11 35 R1 3.41061E-13 35 R2 1.63425E-12 36 R2 2.62901E-13 37 T3 -1.25908E-11 37 R1 8.66862E-13 38 T3 1.03171E-11 38 R1 -2.07478E-12 38 R2 1.54188E-12 39 T3 1.02318E-12 39 R1 -2.84217E-14 39 R2 1.79057E-12 40 T3 -6.59384E-12 40 R1 -3.18323E-12 40 R2 1.50635E-12 41 T3 6.25278E-13 41 R1 -7.38964E-13 41 R2 1.79057E-12 42 R2 2.13163E-14 43 T3 2.21689E-12 43 R1 2.33058E-12 44 T3 -1.89573E-11 44 R1 2.75691E-12 44 R2 -1.27898E-12 45 T3 -9.26548E-12 45 R1 7.95808E-13 45 R2 -8.31335E-13 46 T3 3.29692E-12 46 R1 -1.76215E-12 46 R2 1.42819E-12 47 T3 2.41585E-12 47 R1 -3.12639E-13 47 R2 -2.41585E-13 48 R2 -6.00409E-13 49 T3 -2.61835E-12 49 R1 5.08038E-13 50 T3 1.22213E-11 50 R1 -5.23670E-12 50 R2 -7.28306E-13 51 T3 6.86384E-12 51 R1 -1.32161E-12 51 R2 3.19744E-14 52 T3 -1.17950E-12 52 R1 3.69482E-13 52 R2 3.01981E-13 53 T3 5.82645E-13 53 R1 7.67386E-13 53 R2 -3.05533E-13 54 R2 -6.76792E-13 55 T3 -5.68434E-14 55 R1 1.09424E-12 56 T3 -5.11591E-13 56 R1 -9.94760E-14 56 R2 1.47793E-12 57 T3 -2.78533E-12 57 R1 2.70006E-13 57 R2 1.33582E-12 58 T3 1.96110E-12 58 R1 6.82121E-13 58 R2 1.27898E-13 59 T3 4.54747E-13 59 R1 6.82121E-13 59 R2 -3.69482E-13 60 R2 -1.56319E-13 61 R1 -1.70530E-13 62 R1 -2.80664E-13 63 R1 -4.01457E-13 64 R1 6.48370E-13 65 R1 1.13687E-13 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER WARNING MESSAGE 2077, SDR2 OUTPUT DATA BLOCK NO. 2 IS PURGED 0*** USER WARNING MESSAGE 2078, SDR2 OUTPUT DATA BLOCK NO. 3 IS PURGED 0*** SYSTEM WARNING MESSAGE 3001 0ATTEMPT TO OPEN DATA SET 205 IN SUBROUTINE SDR2 , WHICH WAS NOT DEFINED IN THE FIST 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 6.289829E-01 0.0 0.0 0.0 2 G 0.0 0.0 5.981983E-01 0.0 6.155673E-02 0.0 3 G 0.0 0.0 5.088579E-01 0.0 1.170879E-01 0.0 4 G 0.0 0.0 3.697069E-01 0.0 1.611577E-01 0.0 5 G 0.0 0.0 1.943664E-01 0.0 1.894522E-01 0.0 6 G 0.0 0.0 0.0 0.0 1.992018E-01 0.0 7 G 0.0 0.0 6.212391E-01 -1.547499E-02 0.0 0.0 8 G 0.0 0.0 5.908335E-01 -1.471759E-02 6.079886E-02 0.0 9 G 0.0 0.0 5.025930E-01 -1.251952E-02 1.156463E-01 0.0 10 G 0.0 0.0 3.651552E-01 -9.095970E-03 1.591735E-01 0.0 11 G 0.0 0.0 1.919734E-01 -4.782042E-03 1.871198E-01 0.0 12 G 0.0 0.0 0.0 0.0 1.967493E-01 0.0 13 G 0.0 0.0 5.981983E-01 -3.056896E-02 0.0 0.0 14 G 0.0 0.0 5.689204E-01 -2.907280E-02 5.854392E-02 0.0 15 G 0.0 0.0 4.839526E-01 -2.473081E-02 1.113572E-01 0.0 16 G 0.0 0.0 3.516122E-01 -1.796798E-02 1.532701E-01 0.0 17 G 0.0 0.0 1.848534E-01 -9.446317E-03 1.801798E-01 0.0 18 G 0.0 0.0 0.0 0.0 1.894522E-01 0.0 19 G 0.0 0.0 5.604278E-01 -4.491021E-02 0.0 0.0 20 G 0.0 0.0 5.329986E-01 -4.271215E-02 5.484745E-02 0.0 21 G 0.0 0.0 4.533957E-01 -3.633313E-02 1.043261E-01 0.0 22 G 0.0 0.0 3.294112E-01 -2.639757E-02 1.435925E-01 0.0 23 G 0.0 0.0 1.731817E-01 -1.387804E-02 1.688032E-01 0.0 24 G 0.0 0.0 0.0 0.0 1.774901E-01 0.0 25 G 0.0 0.0 5.088578E-01 -5.814566E-02 0.0 0.0 26 G 0.0 0.0 4.839526E-01 -5.529981E-02 4.980044E-02 0.0 27 G 0.0 0.0 4.116746E-01 -4.704082E-02 9.472609E-02 0.0 28 G 0.0 0.0 2.990991E-01 -3.417715E-02 1.303793E-01 0.0 29 G 0.0 0.0 1.572457E-01 -1.796798E-02 1.532700E-01 0.0 30 G 0.0 0.0 0.0 0.0 1.611576E-01 0.0 31 G 0.0 0.0 4.447580E-01 -6.994929E-02 0.0 0.0 32 G 0.0 0.0 4.229900E-01 -6.652573E-02 4.352717E-02 0.0 33 G 0.0 0.0 3.598168E-01 -5.659018E-02 8.279362E-02 0.0 34 G 0.0 0.0 2.614222E-01 -4.111516E-02 1.139557E-01 0.0 35 G 0.0 0.0 1.374378E-01 -2.161550E-02 1.339629E-01 0.0 36 G 0.0 0.0 0.0 0.0 1.408570E-01 0.0 37 G 0.0 0.0 3.697068E-01 -8.003054E-02 0.0 0.0 38 G 0.0 0.0 3.516121E-01 -7.611356E-02 3.618212E-02 0.0 39 G 0.0 0.0 2.990991E-01 -6.474605E-02 6.882253E-02 0.0 40 G 0.0 0.0 2.173082E-01 -4.704076E-02 9.472606E-02 0.0 41 G 0.0 0.0 1.142457E-01 -2.473079E-02 1.113572E-01 0.0 42 G 0.0 0.0 0.0 0.0 1.170879E-01 0.0 43 G 0.0 0.0 2.855522E-01 -8.814117E-02 0.0 0.0 44 G 0.0 0.0 2.715763E-01 -8.382725E-02 2.794615E-02 0.0 45 G 0.0 0.0 2.310166E-01 -7.130771E-02 5.315678E-02 0.0 46 G 0.0 0.0 1.678434E-01 -5.180809E-02 7.316402E-02 0.0 47 G 0.0 0.0 8.824050E-02 -2.723713E-02 8.600949E-02 0.0 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 48 G 0.0 0.0 0.0 0.0 9.043574E-02 0.0 49 G 0.0 0.0 1.943664E-01 -9.408151E-02 0.0 0.0 50 G 0.0 0.0 1.848534E-01 -8.947683E-02 1.902207E-02 0.0 51 G 0.0 0.0 1.572457E-01 -7.611354E-02 3.618213E-02 0.0 52 G 0.0 0.0 1.142457E-01 -5.529974E-02 4.980046E-02 0.0 53 G 0.0 0.0 6.006252E-02 -2.907281E-02 5.854395E-02 0.0 54 G 0.0 0.0 0.0 0.0 6.155673E-02 0.0 55 G 0.0 0.0 9.839460E-02 -9.770528E-02 0.0 0.0 56 G 0.0 0.0 9.357884E-02 -9.292324E-02 9.629590E-03 0.0 57 G 0.0 0.0 7.960291E-02 -7.904524E-02 1.831659E-02 0.0 58 G 0.0 0.0 5.783490E-02 -5.742973E-02 2.521062E-02 0.0 59 G 0.0 0.0 3.040560E-02 -3.019259E-02 2.963686E-02 0.0 60 G 0.0 0.0 0.0 0.0 3.116201E-02 0.0 61 G 0.0 0.0 0.0 -9.892321E-02 0.0 0.0 62 G 0.0 0.0 0.0 -9.408157E-02 0.0 0.0 63 G 0.0 0.0 0.0 -8.003056E-02 0.0 0.0 64 G 0.0 0.0 0.0 -5.814559E-02 0.0 0.0 65 G 0.0 0.0 0.0 -3.056894E-02 0.0 0.0 66 G 0.0 0.0 0.0 0.0 0.0 0.0 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -7.400122E+01 1.861396E+01 0.0 2 G 0.0 0.0 0.0 -1.407587E+02 0.0 0.0 3 G 0.0 0.0 0.0 -1.197365E+02 0.0 0.0 4 G 0.0 0.0 0.0 -8.699371E+01 0.0 0.0 5 G 0.0 0.0 0.0 -4.573529E+01 0.0 0.0 6 G 0.0 0.0 -5.925016E+00 -1.750928E+01 0.0 0.0 7 G 0.0 0.0 0.0 0.0 3.676960E+01 0.0 12 G 0.0 0.0 -1.170411E+01 8.652160E-02 0.0 0.0 13 G 0.0 0.0 0.0 0.0 3.540588E+01 0.0 18 G 0.0 0.0 -1.127010E+01 1.707948E-01 0.0 0.0 19 G 0.0 0.0 0.0 0.0 3.317041E+01 0.0 24 G 0.0 0.0 -1.055845E+01 2.511623E-01 0.0 0.0 25 G 0.0 0.0 0.0 0.0 3.011804E+01 0.0 30 G 0.0 0.0 -9.586771E+00 3.250313E-01 0.0 0.0 31 G 0.0 0.0 0.0 0.0 2.632403E+01 0.0 36 G 0.0 0.0 -8.379259E+00 3.909180E-01 0.0 0.0 37 G 0.0 0.0 0.0 0.0 2.188195E+01 0.0 42 G 0.0 0.0 -6.965311E+00 4.474613E-01 0.0 0.0 43 G 0.0 0.0 0.0 0.0 1.690109E+01 0.0 48 G 0.0 0.0 -5.379806E+00 4.926479E-01 0.0 0.0 49 G 0.0 0.0 0.0 0.0 1.150410E+01 0.0 54 G 0.0 0.0 -3.661853E+00 5.260014E-01 0.0 0.0 55 G 0.0 0.0 0.0 0.0 5.823802E+00 0.0 60 G 0.0 0.0 -1.853672E+00 5.461640E-01 0.0 0.0 61 G 0.0 0.0 -1.168273E+01 0.0 1.289775E+01 0.0 62 G 0.0 0.0 -2.222199E+01 0.0 -1.049895E+00 0.0 63 G 0.0 0.0 -1.890310E+01 0.0 -1.997354E+00 0.0 64 G 0.0 0.0 -1.373387E+01 0.0 -2.748788E+00 0.0 65 G 0.0 0.0 -7.220332E+00 0.0 -3.231655E+00 0.0 66 G 0.0 0.0 1.490416E+02 2.764740E-01 -1.698860E+00 0.0 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 F O R C E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 1 3.810094E+01 1.488741E+02 9.116211E-01 -1.681641E+00 -1.685547E+00 2 3.437134E+01 1.343014E+02 2.645996E+00 -4.884766E+00 -1.519531E+00 3 2.727718E+01 1.065821E+02 4.122559E+00 -7.611328E+00 -1.207031E+00 4 1.751310E+01 6.843006E+01 5.194580E+00 -9.588867E+00 -7.734375E-01 5 6.034527E+00 2.357921E+01 5.758179E+00 -1.063184E+01 -2.675781E-01 7 3.716281E+01 1.452083E+02 2.712891E+00 -1.640625E+00 -5.007812E+00 8 3.352502E+01 1.309944E+02 7.875000E+00 -4.765625E+00 -4.515625E+00 9 2.660574E+01 1.039578E+02 1.226538E+01 -7.422852E+00 -3.583008E+00 10 1.708173E+01 6.674492E+01 1.545557E+01 -9.353516E+00 -2.301758E+00 11 5.885925E+00 2.299864E+01 1.713293E+01 -1.036987E+01 -7.939453E-01 13 3.530957E+01 1.379671E+02 4.447754E+00 -1.560547E+00 -8.207031E+00 14 3.185324E+01 1.244620E+02 1.290918E+01 -4.527344E+00 -7.400391E+00 15 2.527878E+01 9.877349E+01 2.010693E+01 -7.053711E+00 -5.875977E+00 16 1.623011E+01 6.341660E+01 2.533643E+01 -8.886719E+00 -3.771484E+00 17 5.592537E+00 2.185180E+01 2.808569E+01 -9.853027E+00 -1.300293E+00 19 3.258702E+01 1.273286E+02 6.072998E+00 -1.441406E+00 -1.120117E+01 20 2.939702E+01 1.148648E+02 1.762598E+01 -4.176758E+00 -1.010938E+01 21 2.332970E+01 9.115733E+01 2.745337E+01 -6.509766E+00 -8.023438E+00 22 1.497841E+01 5.852643E+01 3.459338E+01 -8.201172E+00 -5.150391E+00 23 5.161152E+00 2.016675E+01 3.834692E+01 -9.093018E+00 -1.775391E+00 25 2.906168E+01 1.135548E+02 7.549072E+00 -1.284180E+00 -1.392773E+01 26 2.621701E+01 1.024394E+02 2.190845E+01 -3.726562E+00 -1.256445E+01 27 2.080591E+01 8.129636E+01 3.412378E+01 -5.805664E+00 -9.970703E+00 28 1.335812E+01 5.219539E+01 4.299792E+01 -7.314453E+00 -6.402344E+00 29 4.602867E+00 1.798526E+01 4.766394E+01 -8.109375E+00 -2.206543E+00 31 2.482106E+01 9.698503E+01 8.839111E+00 -1.095703E+00 -1.630664E+01 32 2.239125E+01 8.749140E+01 2.565161E+01 -3.182617E+00 -1.471094E+01 33 1.776981E+01 6.943353E+01 3.995312E+01 -4.957031E+00 -1.167578E+01 34 1.140897E+01 4.457915E+01 5.034448E+01 -6.248047E+00 -7.496582E+00 35 3.931374E+00 1.536104E+01 5.580719E+01 -6.926025E+00 -2.583496E+00 37 1.996918E+01 7.802699E+01 9.910645E+00 -8.808594E-01 -1.828516E+01 38 1.801458E+01 7.038936E+01 2.876318E+01 -2.560547E+00 -1.649609E+01 39 1.429631E+01 5.586108E+01 4.479968E+01 -3.988281E+00 -1.309082E+01 40 9.178928E+00 3.586526E+01 5.645105E+01 -5.026855E+00 -8.405273E+00 41 3.162741E+00 1.235822E+01 6.257642E+01 -5.572388E+00 -2.896729E+00 43 1.462569E+01 5.714783E+01 1.073926E+01 -6.455078E-01 -1.981396E+01 44 1.319399E+01 5.155382E+01 3.116638E+01 -1.874512E+00 -1.787402E+01 45 1.047088E+01 4.091340E+01 4.854285E+01 -2.920898E+00 -1.418457E+01 46 6.722740E+00 2.626803E+01 6.116754E+01 -3.681152E+00 -9.107910E+00 47 2.316523E+00 9.051338E+00 6.780478E+01 -4.081116E+00 -3.138672E+00 49 8.922112E+00 3.486148E+01 1.130286E+01 -3.930664E-01 -2.085400E+01 50 8.048695E+00 3.144896E+01 3.280212E+01 -1.143555E+00 -1.881201E+01 51 6.387611E+00 2.495819E+01 5.109064E+01 -1.782227E+00 -1.493018E+01 52 4.100914E+00 1.602398E+01 6.437796E+01 -2.245605E+00 -9.585449E+00 53 1.413036E+00 5.521420E+00 7.136359E+01 -2.489563E+00 -3.303101E+00 55 2.998659E+00 1.171662E+01 1.158815E+01 -1.317444E-01 -2.138025E+01 56 2.705261E+00 1.056990E+01 3.363035E+01 -3.840942E-01 -1.928735E+01 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 F O R C E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 57 2.146612E+00 8.388025E+00 5.238049E+01 -5.986786E-01 -1.530640E+01 58 1.378399E+00 5.385653E+00 6.600327E+01 -7.545395E-01 -9.827454E+00 59 4.748776E-01 1.855652E+00 7.316516E+01 -8.366966E-01 -3.386353E+00 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 2.500000E-01 -5.134327E+03 -7.792875E+03 -2.187884E+01 -0.4715 -5.134147E+03 -7.793055E+03 1.329454E+03 -2.500000E-01 5.134327E+03 7.792875E+03 2.187884E+01 89.5285 7.793055E+03 5.134147E+03 1.329454E+03 0 2 2.500000E-01 -4.631738E+03 -7.030051E+03 -6.350370E+01 -1.5157 -4.630058E+03 -7.031731E+03 1.200837E+03 -2.500000E-01 4.631738E+03 7.030051E+03 6.350370E+01 88.4843 7.031731E+03 4.630058E+03 1.200837E+03 0 3 2.500000E-01 -3.675779E+03 -5.579090E+03 -9.894109E+01 -2.9678 -3.670650E+03 -5.584220E+03 9.567849E+02 -2.500000E-01 3.675779E+03 5.579090E+03 9.894109E+01 87.0322 5.584220E+03 3.670650E+03 9.567849E+02 0 4 2.500000E-01 -2.359995E+03 -3.581999E+03 -1.246695E+02 -5.7662 -2.347406E+03 -3.594588E+03 6.235909E+02 -2.500000E-01 2.359995E+03 3.581999E+03 1.246695E+02 84.2338 3.594588E+03 2.347406E+03 6.235909E+02 0 5 2.500000E-01 -8.131960E+02 -1.234267E+03 -1.381958E+02 -16.6405 -7.718917E+02 -1.275571E+03 2.518398E+02 -2.500000E-01 8.131960E+02 1.234267E+03 1.381958E+02 73.3595 1.275571E+03 7.718917E+02 2.518398E+02 0 7 2.500000E-01 -5.007916E+03 -7.601000E+03 -6.510917E+01 -1.4374 -5.006282E+03 -7.602634E+03 1.298176E+03 -2.500000E-01 5.007916E+03 7.601000E+03 6.510917E+01 88.5626 7.602634E+03 5.006282E+03 1.298176E+03 0 8 2.500000E-01 -4.517688E+03 -6.856945E+03 -1.889994E+02 -4.5895 -4.502516E+03 -6.872117E+03 1.184800E+03 -2.500000E-01 4.517688E+03 6.856945E+03 1.889994E+02 85.4105 6.872117E+03 4.502516E+03 1.184800E+03 0 9 2.500000E-01 -3.585243E+03 -5.441688E+03 -2.943682E+02 -8.7977 -3.539685E+03 -5.487246E+03 9.737809E+02 -2.500000E-01 3.585243E+03 5.441688E+03 2.943682E+02 81.2023 5.487246E+03 3.539685E+03 9.737809E+02 0 10 2.500000E-01 -2.301889E+03 -3.493802E+03 -3.709324E+02 -15.9494 -2.195880E+03 -3.599810E+03 7.019650E+02 -2.500000E-01 2.301889E+03 3.493802E+03 3.709324E+02 74.0506 3.599810E+03 2.195880E+03 7.019650E+02 0 11 2.500000E-01 -7.931724E+02 -1.203876E+03 -4.111891E+02 -31.7310 -5.389094E+02 -1.458139E+03 4.596149E+02 -2.500000E-01 7.931724E+02 1.203876E+03 4.111891E+02 58.2690 1.458139E+03 5.389094E+02 4.596149E+02 0 13 2.500000E-01 -4.758152E+03 -7.221924E+03 -1.067458E+02 -2.4762 -4.753536E+03 -7.226540E+03 1.236502E+03 -2.500000E-01 4.758152E+03 7.221924E+03 1.067458E+02 87.5238 7.226540E+03 4.753536E+03 1.236502E+03 0 14 2.500000E-01 -4.292411E+03 -6.515015E+03 -3.098193E+02 -7.7890 -4.250032E+03 -6.557394E+03 1.153681E+03 -2.500000E-01 4.292411E+03 6.515015E+03 3.098193E+02 82.2110 6.557394E+03 4.250032E+03 1.153681E+03 0 15 2.500000E-01 -3.406450E+03 -5.170317E+03 -4.825649E+02 -14.3430 -3.283060E+03 -5.293708E+03 1.005324E+03 -2.500000E-01 3.406450E+03 5.170317E+03 4.825649E+02 75.6570 5.293708E+03 3.283060E+03 1.005324E+03 0 16 2.500000E-01 -2.187079E+03 -3.319551E+03 -6.080723E+02 -23.5202 -1.922427E+03 -3.584203E+03 8.308882E+02 -2.500000E-01 2.187079E+03 3.319551E+03 6.080723E+02 66.4798 3.584203E+03 1.922427E+03 8.308882E+02 0 17 2.500000E-01 -7.536347E+02 -1.143856E+03 -6.740545E+02 -36.9282 -2.470205E+02 -1.650470E+03 7.017247E+02 -2.500000E-01 7.536347E+02 1.143856E+03 6.740545E+02 53.0718 1.650470E+03 2.470205E+02 7.017247E+02 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 19 2.500000E-01 -4.391279E+03 -6.665070E+03 -1.457515E+02 -3.6528 -4.381975E+03 -6.674375E+03 1.146200E+03 -2.500000E-01 4.391279E+03 6.665070E+03 1.457515E+02 86.3472 6.674375E+03 4.381975E+03 1.146200E+03 0 20 2.500000E-01 -3.961416E+03 -6.012635E+03 -4.230221E+02 -11.2071 -3.877601E+03 -6.096450E+03 1.109425E+03 -2.500000E-01 3.961416E+03 6.012635E+03 4.230221E+02 78.7929 6.096450E+03 3.877601E+03 1.109425E+03 0 21 2.500000E-01 -3.143800E+03 -4.771658E+03 -6.588788E+02 -19.4952 -2.910542E+03 -5.004917E+03 1.047188E+03 -2.500000E-01 3.143800E+03 4.771658E+03 6.588788E+02 70.5048 5.004917E+03 2.910542E+03 1.047188E+03 0 22 2.500000E-01 -2.018459E+03 -3.063608E+03 -8.302386E+02 -28.9063 -1.560024E+03 -3.522043E+03 9.810099E+02 -2.500000E-01 2.018459E+03 3.063608E+03 8.302386E+02 61.0937 3.522043E+03 1.560024E+03 9.810099E+02 0 23 2.500000E-01 -6.955280E+02 -1.055661E+03 -9.203232E+02 -39.4648 6.217871E+01 -1.813368E+03 9.377733E+02 -2.500000E-01 6.955280E+02 1.055661E+03 9.203232E+02 50.5352 1.813368E+03 -6.217871E+01 9.377733E+02 0 25 2.500000E-01 -3.916242E+03 -5.944071E+03 -1.811772E+02 -5.0656 -3.900182E+03 -5.960131E+03 1.029974E+03 -2.500000E-01 3.916242E+03 5.944071E+03 1.811772E+02 84.9343 5.960131E+03 3.900182E+03 1.029974E+03 0 26 2.500000E-01 -3.532906E+03 -5.362237E+03 -5.258011E+02 -14.9464 -3.392546E+03 -5.502598E+03 1.055026E+03 -2.500000E-01 3.532906E+03 5.362237E+03 5.258011E+02 75.0536 5.502598E+03 3.392546E+03 1.055026E+03 0 27 2.500000E-01 -2.803715E+03 -4.255481E+03 -8.189681E+02 -24.2241 -2.435242E+03 -4.623954E+03 1.094356E+03 -2.500000E-01 2.803715E+03 4.255481E+03 8.189681E+02 65.7759 4.623954E+03 2.435242E+03 1.094356E+03 0 28 2.500000E-01 -1.800087E+03 -2.732178E+03 -1.031947E+03 -32.8476 -1.133828E+03 -3.398437E+03 1.132304E+03 -2.500000E-01 1.800087E+03 2.732178E+03 1.031947E+03 57.1524 3.398437E+03 1.133828E+03 1.132304E+03 0 29 2.500000E-01 -6.202542E+02 -9.414305E+02 -1.143931E+03 -41.0044 3.743055E+02 -1.935990E+03 1.155148E+03 -2.500000E-01 6.202542E+02 9.414305E+02 1.143931E+03 48.9956 1.935990E+03 -3.743055E+02 1.155148E+03 0 31 2.500000E-01 -3.344785E+03 -5.076715E+03 -2.121380E+02 -6.8824 -3.319180E+03 -5.102320E+03 8.915702E+02 -2.500000E-01 3.344785E+03 5.076715E+03 2.121380E+02 83.1176 5.102320E+03 3.319180E+03 8.915702E+02 0 32 2.500000E-01 -3.017392E+03 -4.579791E+03 -6.156367E+02 -19.1202 -2.803965E+03 -4.793217E+03 9.946260E+02 -2.500000E-01 3.017392E+03 4.579791E+03 6.156367E+02 70.8798 4.793217E+03 2.803965E+03 9.946260E+02 0 33 2.500000E-01 -2.394592E+03 -3.634517E+03 -9.588719E+02 -28.5576 -1.872719E+03 -4.156391E+03 1.141836E+03 -2.500000E-01 2.394592E+03 3.634517E+03 9.588719E+02 61.4424 4.156391E+03 1.872719E+03 1.141836E+03 0 34 2.500000E-01 -1.537436E+03 -2.333518E+03 -1.208264E+03 -35.8832 -6.633378E+02 -3.207616E+03 1.272139E+03 -2.500000E-01 1.537436E+03 2.333518E+03 1.208264E+03 54.1168 3.207616E+03 6.633378E+02 1.272139E+03 0 35 2.500000E-01 -5.297598E+02 -8.040709E+02 -1.339368E+03 -42.0766 6.794572E+02 -2.013288E+03 1.346373E+03 -2.500000E-01 5.297598E+02 8.040709E+02 1.339368E+03 47.9234 2.013288E+03 -6.794572E+02 1.346373E+03 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 37 2.500000E-01 -2.690955E+03 -4.084338E+03 -2.378547E+02 -9.4251 -2.651471E+03 -4.123822E+03 7.361752E+02 -2.500000E-01 2.690955E+03 4.084338E+03 2.378547E+02 80.5749 4.123822E+03 2.651471E+03 7.361752E+02 0 38 2.500000E-01 -2.427541E+03 -3.684532E+03 -6.903142E+02 -23.8419 -2.122474E+03 -3.989600E+03 9.335631E+02 -2.500000E-01 2.427541E+03 3.684532E+03 6.903142E+02 66.1581 3.989600E+03 2.122474E+03 9.335631E+02 0 39 2.500000E-01 -1.926542E+03 -2.924094E+03 -1.075189E+03 -32.5568 -1.240072E+03 -3.610564E+03 1.185246E+03 -2.500000E-01 1.926542E+03 2.924094E+03 1.075189E+03 57.4432 3.610564E+03 1.240072E+03 1.185246E+03 0 40 2.500000E-01 -1.236886E+03 -1.877356E+03 -1.354821E+03 -38.3506 -1.649684E+02 -2.949274E+03 1.392153E+03 -2.500000E-01 1.236886E+03 1.877356E+03 1.354821E+03 51.6494 2.949274E+03 1.649684E+02 1.392153E+03 0 41 2.500000E-01 -4.261984E+02 -6.468893E+02 -1.501829E+03 -42.8989 9.693336E+02 -2.042421E+03 1.505877E+03 -2.500000E-01 4.261984E+02 6.468893E+02 1.501829E+03 47.1011 2.042421E+03 -9.693336E+02 1.505877E+03 0 43 2.500000E-01 -1.970898E+03 -2.991426E+03 -2.577414E+02 -13.3995 -1.909497E+03 -3.052826E+03 5.716643E+02 -2.500000E-01 1.970898E+03 2.991426E+03 2.577414E+02 76.6005 3.052826E+03 1.909497E+03 5.716643E+02 0 44 2.500000E-01 -1.777955E+03 -2.698587E+03 -7.479908E+02 -29.1958 -1.359988E+03 -3.116554E+03 8.782832E+02 -2.500000E-01 1.777955E+03 2.698587E+03 7.479908E+02 60.8042 3.116554E+03 1.359988E+03 8.782832E+02 0 45 2.500000E-01 -1.411025E+03 -2.141644E+03 -1.165025E+03 -36.2952 -5.553785E+02 -2.997291E+03 1.220956E+03 -2.500000E-01 1.411025E+03 2.141644E+03 1.165025E+03 53.7048 2.997291E+03 5.553785E+02 1.220956E+03 0 46 2.500000E-01 -9.059346E+02 -1.375020E+03 -1.468016E+03 -40.4613 3.461572E+02 -2.627112E+03 1.486635E+03 -2.500000E-01 9.059346E+02 1.375020E+03 1.468016E+03 49.5387 2.627112E+03 -3.461572E+02 1.486635E+03 0 47 2.500000E-01 -3.121500E+02 -4.737850E+02 -1.627310E+03 -43.5784 1.236348E+03 -2.022283E+03 1.629315E+03 -2.500000E-01 3.121500E+02 4.737850E+02 1.627310E+03 46.4216 2.022283E+03 -1.236348E+03 1.629315E+03 0 49 2.500000E-01 -1.202298E+03 -1.824841E+03 -2.712677E+02 -20.5358 -1.100682E+03 -1.926457E+03 4.128875E+02 -2.500000E-01 1.202298E+03 1.824841E+03 2.712677E+02 69.4642 1.926457E+03 1.100682E+03 4.128875E+02 0 50 2.500000E-01 -1.084586E+03 -1.646190E+03 -7.872485E+02 -35.1846 -5.295591E+02 -2.201217E+03 8.358290E+02 -2.500000E-01 1.084586E+03 1.646190E+03 7.872485E+02 54.8154 2.201217E+03 5.295591E+02 8.358290E+02 0 51 2.500000E-01 -8.607558E+02 -1.306448E+03 -1.226171E+03 -39.8497 1.626550E+02 -2.329859E+03 1.246257E+03 -2.500000E-01 8.607558E+02 1.306448E+03 1.226171E+03 50.1503 2.329859E+03 -1.626550E+02 1.246257E+03 0 52 2.500000E-01 -5.526537E+02 -8.388065E+02 -1.545066E+03 -42.3547 8.559465E+02 -2.247407E+03 1.551677E+03 -2.500000E-01 5.526537E+02 8.388065E+02 1.545066E+03 47.6453 2.247407E+03 -8.559465E+02 1.551677E+03 0 53 2.500000E-01 -1.904378E+02 -2.890386E+02 -1.712721E+03 -44.1756 1.473692E+03 -1.953168E+03 1.713430E+03 -2.500000E-01 1.904378E+02 2.890386E+02 1.712721E+03 45.8244 1.953168E+03 -1.473692E+03 1.713430E+03 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 55 2.500000E-01 -4.040676E+02 -6.132980E+02 -2.781147E+02 -34.6929 -2.115428E+02 -8.058227E+02 2.971399E+02 -2.500000E-01 4.040676E+02 6.132980E+02 2.781147E+02 55.3071 8.058227E+02 2.115428E+02 2.971399E+02 0 56 2.500000E-01 -3.645296E+02 -5.532803E+02 -8.071258E+02 -41.6654 3.537197E+02 -1.271530E+03 8.126246E+02 -2.500000E-01 3.645296E+02 5.532803E+02 8.071258E+02 48.3346 1.271530E+03 -3.537197E+02 8.126246E+02 0 57 2.500000E-01 -2.893006E+02 -4.390941E+02 -1.257128E+03 -43.2952 8.951595E+02 -1.623554E+03 1.259357E+03 -2.500000E-01 2.893006E+02 4.390941E+02 1.257128E+03 46.7048 1.623554E+03 -8.951595E+02 1.259357E+03 0 58 2.500000E-01 -1.857386E+02 -2.819124E+02 -1.584073E+03 -44.1306 1.350978E+03 -1.818629E+03 1.584803E+03 -2.500000E-01 1.857386E+02 2.819124E+02 1.584073E+03 45.8694 1.818629E+03 -1.350978E+03 1.584803E+03 0 59 2.500000E-01 -6.398275E+01 -9.712123E+01 -1.755958E+03 -44.7297 1.675484E+03 -1.836589E+03 1.756036E+03 -2.500000E-01 6.398275E+01 9.712123E+01 1.755958E+03 45.2703 1.836589E+03 -1.675484E+03 1.756036E+03 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN MATERIAL COORDINATE SYSTEM) ELEMENT MAT. COORD. SYS. STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 1000 -5.134327E+03 -7.792875E+03 -2.187884E+01 -0.4715 -5.134147E+03 -7.793055E+03 1.329454E+03 1 5.134327E+03 7.792875E+03 2.187884E+01 89.5285 7.793055E+03 5.134147E+03 1.329454E+03 0 2 1000 -4.631738E+03 -7.030051E+03 -6.350370E+01 -1.5157 -4.630058E+03 -7.031731E+03 1.200837E+03 1 4.631738E+03 7.030051E+03 6.350370E+01 88.4843 7.031731E+03 4.630058E+03 1.200837E+03 0 3 1000 -3.675779E+03 -5.579090E+03 -9.894109E+01 -2.9678 -3.670650E+03 -5.584220E+03 9.567849E+02 1 3.675779E+03 5.579090E+03 9.894109E+01 87.0322 5.584220E+03 3.670650E+03 9.567849E+02 0 4 1000 -2.359995E+03 -3.581999E+03 -1.246695E+02 -5.7662 -2.347406E+03 -3.594588E+03 6.235909E+02 1 2.359995E+03 3.581999E+03 1.246695E+02 84.2338 3.594588E+03 2.347406E+03 6.235909E+02 0 5 1000 -8.131960E+02 -1.234267E+03 -1.381958E+02 -16.6405 -7.718917E+02 -1.275571E+03 2.518398E+02 1 8.131960E+02 1.234267E+03 1.381958E+02 73.3595 1.275571E+03 7.718917E+02 2.518398E+02 0 7 1000 -5.007916E+03 -7.601000E+03 -6.510917E+01 -1.4374 -5.006282E+03 -7.602634E+03 1.298176E+03 1 5.007916E+03 7.601000E+03 6.510917E+01 88.5626 7.602634E+03 5.006282E+03 1.298176E+03 0 8 1000 -4.517688E+03 -6.856945E+03 -1.889994E+02 -4.5895 -4.502516E+03 -6.872117E+03 1.184800E+03 1 4.517688E+03 6.856945E+03 1.889994E+02 85.4105 6.872117E+03 4.502516E+03 1.184800E+03 0 9 1000 -3.585243E+03 -5.441688E+03 -2.943682E+02 -8.7977 -3.539685E+03 -5.487246E+03 9.737809E+02 1 3.585243E+03 5.441688E+03 2.943682E+02 81.2023 5.487246E+03 3.539685E+03 9.737809E+02 0 10 1000 -2.301889E+03 -3.493802E+03 -3.709324E+02 -15.9494 -2.195880E+03 -3.599810E+03 7.019650E+02 1 2.301889E+03 3.493802E+03 3.709324E+02 74.0506 3.599810E+03 2.195880E+03 7.019650E+02 0 11 1000 -7.931724E+02 -1.203876E+03 -4.111891E+02 -31.7310 -5.389094E+02 -1.458139E+03 4.596149E+02 1 7.931724E+02 1.203876E+03 4.111891E+02 58.2690 1.458139E+03 5.389094E+02 4.596149E+02 0 13 1000 -4.758152E+03 -7.221924E+03 -1.067458E+02 -2.4762 -4.753536E+03 -7.226540E+03 1.236502E+03 1 4.758152E+03 7.221924E+03 1.067458E+02 87.5238 7.226540E+03 4.753536E+03 1.236502E+03 0 14 1000 -4.292411E+03 -6.515015E+03 -3.098193E+02 -7.7890 -4.250032E+03 -6.557394E+03 1.153681E+03 1 4.292411E+03 6.515015E+03 3.098193E+02 82.2110 6.557394E+03 4.250032E+03 1.153681E+03 0 15 1000 -3.406450E+03 -5.170317E+03 -4.825649E+02 -14.3430 -3.283060E+03 -5.293708E+03 1.005324E+03 1 3.406450E+03 5.170317E+03 4.825649E+02 75.6570 5.293708E+03 3.283060E+03 1.005324E+03 0 16 1000 -2.187079E+03 -3.319551E+03 -6.080723E+02 -23.5202 -1.922427E+03 -3.584203E+03 8.308882E+02 1 2.187079E+03 3.319551E+03 6.080723E+02 66.4798 3.584203E+03 1.922427E+03 8.308882E+02 0 17 1000 -7.536347E+02 -1.143856E+03 -6.740545E+02 -36.9282 -2.470205E+02 -1.650470E+03 7.017247E+02 1 7.536347E+02 1.143856E+03 6.740545E+02 53.0718 1.650470E+03 2.470205E+02 7.017247E+02 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN MATERIAL COORDINATE SYSTEM) ELEMENT MAT. COORD. SYS. STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 19 1000 -4.391279E+03 -6.665070E+03 -1.457515E+02 -3.6528 -4.381975E+03 -6.674375E+03 1.146200E+03 1 4.391279E+03 6.665070E+03 1.457515E+02 86.3472 6.674375E+03 4.381975E+03 1.146200E+03 0 20 1000 -3.961416E+03 -6.012635E+03 -4.230221E+02 -11.2071 -3.877601E+03 -6.096450E+03 1.109425E+03 1 3.961416E+03 6.012635E+03 4.230221E+02 78.7929 6.096450E+03 3.877601E+03 1.109425E+03 0 21 1000 -3.143800E+03 -4.771658E+03 -6.588788E+02 -19.4952 -2.910542E+03 -5.004917E+03 1.047188E+03 1 3.143800E+03 4.771658E+03 6.588788E+02 70.5048 5.004917E+03 2.910542E+03 1.047188E+03 0 22 1000 -2.018459E+03 -3.063608E+03 -8.302386E+02 -28.9063 -1.560024E+03 -3.522043E+03 9.810099E+02 1 2.018459E+03 3.063608E+03 8.302386E+02 61.0937 3.522043E+03 1.560024E+03 9.810099E+02 0 23 1000 -6.955280E+02 -1.055661E+03 -9.203232E+02 -39.4648 6.217871E+01 -1.813368E+03 9.377733E+02 1 6.955280E+02 1.055661E+03 9.203232E+02 50.5352 1.813368E+03 -6.217871E+01 9.377733E+02 0 25 1000 -3.916242E+03 -5.944071E+03 -1.811772E+02 -5.0656 -3.900182E+03 -5.960131E+03 1.029974E+03 1 3.916242E+03 5.944071E+03 1.811772E+02 84.9343 5.960131E+03 3.900182E+03 1.029974E+03 0 26 1000 -3.532906E+03 -5.362237E+03 -5.258011E+02 -14.9464 -3.392546E+03 -5.502598E+03 1.055026E+03 1 3.532906E+03 5.362237E+03 5.258011E+02 75.0536 5.502598E+03 3.392546E+03 1.055026E+03 0 27 1000 -2.803715E+03 -4.255481E+03 -8.189681E+02 -24.2241 -2.435242E+03 -4.623954E+03 1.094356E+03 1 2.803715E+03 4.255481E+03 8.189681E+02 65.7759 4.623954E+03 2.435242E+03 1.094356E+03 0 28 1000 -1.800087E+03 -2.732178E+03 -1.031947E+03 -32.8476 -1.133828E+03 -3.398437E+03 1.132304E+03 1 1.800087E+03 2.732178E+03 1.031947E+03 57.1524 3.398437E+03 1.133828E+03 1.132304E+03 0 29 1000 -6.202542E+02 -9.414305E+02 -1.143931E+03 -41.0044 3.743055E+02 -1.935990E+03 1.155148E+03 1 6.202542E+02 9.414305E+02 1.143931E+03 48.9956 1.935990E+03 -3.743055E+02 1.155148E+03 0 31 1000 -3.344785E+03 -5.076715E+03 -2.121380E+02 -6.8824 -3.319180E+03 -5.102320E+03 8.915702E+02 1 3.344785E+03 5.076715E+03 2.121380E+02 83.1176 5.102320E+03 3.319180E+03 8.915702E+02 0 32 1000 -3.017392E+03 -4.579791E+03 -6.156367E+02 -19.1202 -2.803965E+03 -4.793217E+03 9.946260E+02 1 3.017392E+03 4.579791E+03 6.156367E+02 70.8798 4.793217E+03 2.803965E+03 9.946260E+02 0 33 1000 -2.394592E+03 -3.634517E+03 -9.588719E+02 -28.5576 -1.872719E+03 -4.156391E+03 1.141836E+03 1 2.394592E+03 3.634517E+03 9.588719E+02 61.4424 4.156391E+03 1.872719E+03 1.141836E+03 0 34 1000 -1.537436E+03 -2.333518E+03 -1.208264E+03 -35.8832 -6.633378E+02 -3.207616E+03 1.272139E+03 1 1.537436E+03 2.333518E+03 1.208264E+03 54.1168 3.207616E+03 6.633378E+02 1.272139E+03 0 35 1000 -5.297598E+02 -8.040709E+02 -1.339368E+03 -42.0766 6.794572E+02 -2.013288E+03 1.346373E+03 1 5.297598E+02 8.040709E+02 1.339368E+03 47.9234 2.013288E+03 -6.794572E+02 1.346373E+03 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN MATERIAL COORDINATE SYSTEM) ELEMENT MAT. COORD. SYS. STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 37 1000 -2.690955E+03 -4.084338E+03 -2.378547E+02 -9.4251 -2.651471E+03 -4.123822E+03 7.361752E+02 1 2.690955E+03 4.084338E+03 2.378547E+02 80.5749 4.123822E+03 2.651471E+03 7.361752E+02 0 38 1000 -2.427541E+03 -3.684532E+03 -6.903142E+02 -23.8419 -2.122474E+03 -3.989600E+03 9.335631E+02 1 2.427541E+03 3.684532E+03 6.903142E+02 66.1581 3.989600E+03 2.122474E+03 9.335631E+02 0 39 1000 -1.926542E+03 -2.924094E+03 -1.075189E+03 -32.5568 -1.240072E+03 -3.610564E+03 1.185246E+03 1 1.926542E+03 2.924094E+03 1.075189E+03 57.4432 3.610564E+03 1.240072E+03 1.185246E+03 0 40 1000 -1.236886E+03 -1.877356E+03 -1.354821E+03 -38.3506 -1.649684E+02 -2.949274E+03 1.392153E+03 1 1.236886E+03 1.877356E+03 1.354821E+03 51.6494 2.949274E+03 1.649684E+02 1.392153E+03 0 41 1000 -4.261984E+02 -6.468893E+02 -1.501829E+03 -42.8989 9.693336E+02 -2.042421E+03 1.505877E+03 1 4.261984E+02 6.468893E+02 1.501829E+03 47.1011 2.042421E+03 -9.693336E+02 1.505877E+03 0 43 1000 -1.970898E+03 -2.991426E+03 -2.577414E+02 -13.3995 -1.909497E+03 -3.052826E+03 5.716643E+02 1 1.970898E+03 2.991426E+03 2.577414E+02 76.6005 3.052826E+03 1.909497E+03 5.716643E+02 0 44 1000 -1.777955E+03 -2.698587E+03 -7.479908E+02 -29.1958 -1.359988E+03 -3.116554E+03 8.782832E+02 1 1.777955E+03 2.698587E+03 7.479908E+02 60.8042 3.116554E+03 1.359988E+03 8.782832E+02 0 45 1000 -1.411025E+03 -2.141644E+03 -1.165025E+03 -36.2952 -5.553785E+02 -2.997291E+03 1.220956E+03 1 1.411025E+03 2.141644E+03 1.165025E+03 53.7048 2.997291E+03 5.553785E+02 1.220956E+03 0 46 1000 -9.059346E+02 -1.375020E+03 -1.468016E+03 -40.4613 3.461572E+02 -2.627112E+03 1.486635E+03 1 9.059346E+02 1.375020E+03 1.468016E+03 49.5387 2.627112E+03 -3.461572E+02 1.486635E+03 0 47 1000 -3.121500E+02 -4.737850E+02 -1.627310E+03 -43.5784 1.236348E+03 -2.022283E+03 1.629315E+03 1 3.121500E+02 4.737850E+02 1.627310E+03 46.4216 2.022283E+03 -1.236348E+03 1.629315E+03 0 49 1000 -1.202298E+03 -1.824841E+03 -2.712677E+02 -20.5358 -1.100682E+03 -1.926457E+03 4.128875E+02 1 1.202298E+03 1.824841E+03 2.712677E+02 69.4642 1.926457E+03 1.100682E+03 4.128875E+02 0 50 1000 -1.084586E+03 -1.646190E+03 -7.872485E+02 -35.1846 -5.295591E+02 -2.201217E+03 8.358290E+02 1 1.084586E+03 1.646190E+03 7.872485E+02 54.8154 2.201217E+03 5.295591E+02 8.358290E+02 0 51 1000 -8.607558E+02 -1.306448E+03 -1.226171E+03 -39.8497 1.626550E+02 -2.329859E+03 1.246257E+03 1 8.607558E+02 1.306448E+03 1.226171E+03 50.1503 2.329859E+03 -1.626550E+02 1.246257E+03 0 52 1000 -5.526537E+02 -8.388065E+02 -1.545066E+03 -42.3547 8.559465E+02 -2.247407E+03 1.551677E+03 1 5.526537E+02 8.388065E+02 1.545066E+03 47.6453 2.247407E+03 -8.559465E+02 1.551677E+03 0 53 1000 -1.904378E+02 -2.890386E+02 -1.712721E+03 -44.1756 1.473692E+03 -1.953168E+03 1.713430E+03 1 1.904378E+02 2.890386E+02 1.712721E+03 45.8244 1.953168E+03 -1.473692E+03 1.713430E+03 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN MATERIAL COORDINATE SYSTEM) ELEMENT MAT. COORD. SYS. STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 55 1000 -4.040676E+02 -6.132980E+02 -2.781147E+02 -34.6929 -2.115428E+02 -8.058227E+02 2.971399E+02 1 4.040676E+02 6.132980E+02 2.781147E+02 55.3071 8.058227E+02 2.115428E+02 2.971399E+02 0 56 1000 -3.645296E+02 -5.532803E+02 -8.071258E+02 -41.6654 3.537197E+02 -1.271530E+03 8.126246E+02 1 3.645296E+02 5.532803E+02 8.071258E+02 48.3346 1.271530E+03 -3.537197E+02 8.126246E+02 0 57 1000 -2.893006E+02 -4.390941E+02 -1.257128E+03 -43.2952 8.951595E+02 -1.623554E+03 1.259357E+03 1 2.893006E+02 4.390941E+02 1.257128E+03 46.7048 1.623554E+03 -8.951595E+02 1.259357E+03 0 58 1000 -1.857386E+02 -2.819124E+02 -1.584073E+03 -44.1306 1.350978E+03 -1.818629E+03 1.584803E+03 1 1.857386E+02 2.819124E+02 1.584073E+03 45.8694 1.818629E+03 -1.350978E+03 1.584803E+03 0 59 1000 -6.398275E+01 -9.712123E+01 -1.755958E+03 -44.7297 1.675484E+03 -1.836589E+03 1.756036E+03 1 6.398275E+01 9.712123E+01 1.755958E+03 45.2703 1.836589E+03 -1.675484E+03 1.756036E+03 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S A T G R I D P O I N T S (IN MATERIAL COORDINATE SYSTEM) POINT MAT. COORD. SYS. STRESSES INMATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 1000 -5.412447E+03 -8.215008E+03 1.159304E+02 2.3647 -5.407660E+03 -8.219795E+03 1.406068E+03 503 5.412447E+03 8.215008E+03 -1.159304E+02 -87.6353 8.219795E+03 5.407660E+03 1.406068E+03 0 2 1000 -4.975675E+03 -7.552078E+03 1.322150E-02 0.0003 -4.975676E+03 -7.552078E+03 1.288201E+03 503 4.975675E+03 7.552078E+03 -1.322150E-02 -89.9997 7.552078E+03 4.975676E+03 1.288201E+03 0 3 1000 -4.239363E+03 -6.434500E+03 -3.953982E+00 -0.1032 -4.239355E+03 -6.434507E+03 1.097575E+03 503 4.239363E+03 6.434500E+03 3.953982E+00 89.8968 6.434507E+03 4.239355E+03 1.097575E+03 0 4 1000 -3.087997E+03 -4.686955E+03 -1.473942E+01 -0.5281 -3.087861E+03 -4.687091E+03 7.996147E+02 503 3.087997E+03 4.686955E+03 1.473942E+01 89.4719 4.687091E+03 3.087861E+03 7.996147E+02 0 5 1000 -1.609170E+03 -2.442397E+03 -1.440378E+01 -0.9901 -1.608921E+03 -2.442646E+03 4.168622E+02 503 1.609170E+03 2.442397E+03 1.440378E+01 89.0099 2.442646E+03 1.608921E+03 4.168622E+02 0 6 1000 -2.973753E+02 -4.513539E+02 -8.367082E+01 -23.6907 -2.606625E+02 -4.880666E+02 1.137021E+02 503 2.973753E+02 4.513539E+02 8.367082E+01 66.3093 4.880666E+02 2.606625E+02 1.137021E+02 0 7 1000 -5.238118E+03 -7.950405E+03 5.388284E+01 1.1377 -5.237048E+03 -7.951476E+03 1.357214E+03 503 5.238118E+03 7.950405E+03 -5.388284E+01 -88.8624 7.951476E+03 5.237048E+03 1.357214E+03 0 8 1000 -4.875125E+03 -7.399459E+03 -9.774213E+01 -2.2141 -4.871346E+03 -7.403238E+03 1.265946E+03 503 4.875125E+03 7.399459E+03 9.774213E+01 87.7859 7.403238E+03 4.871346E+03 1.265946E+03 0 9 1000 -4.162800E+03 -6.318296E+03 -1.614362E+02 -4.2595 -4.150776E+03 -6.330320E+03 1.089772E+03 503 4.162800E+03 6.318296E+03 1.614362E+02 85.7405 6.330320E+03 4.150776E+03 1.089772E+03 0 10 1000 -3.030241E+03 -4.599297E+03 -2.258318E+02 -8.0294 -2.998384E+03 -4.631154E+03 8.163850E+02 503 3.030241E+03 4.599297E+03 2.258318E+02 81.9706 4.631154E+03 2.998384E+03 8.163850E+02 0 11 1000 -1.548027E+03 -2.349593E+03 -2.552258E+02 -16.2449 -1.473661E+03 -2.423960E+03 4.751495E+02 503 1.548027E+03 2.349593E+03 2.552258E+02 73.7551 2.423960E+03 1.473661E+03 4.751495E+02 0 12 1000 -2.115782E+02 -3.211316E+02 -3.183424E+02 -40.1184 5.666577E+01 -5.893756E+02 3.230207E+02 503 2.115782E+02 3.211316E+02 3.183424E+02 49.8816 5.893756E+02 -5.666577E+01 3.230207E+02 0 13 1000 -5.010431E+03 -7.604823E+03 2.322411E+01 0.5128 -5.010223E+03 -7.605031E+03 1.297404E+03 503 5.010431E+03 7.604823E+03 -2.322411E+01 -89.4872 7.605031E+03 5.010223E+03 1.297404E+03 0 14 1000 -4.704003E+03 -7.139728E+03 -1.760344E+02 -4.1124 -4.691346E+03 -7.152384E+03 1.230519E+03 503 4.704003E+03 7.139728E+03 1.760344E+02 85.8876 7.152384E+03 4.691346E+03 1.230519E+03 0 15 1000 -4.010997E+03 -6.087896E+03 -3.219900E+02 -8.6135 -3.962223E+03 -6.136670E+03 1.087223E+03 503 4.010997E+03 6.087896E+03 3.219900E+02 81.3865 6.136670E+03 3.962223E+03 1.087223E+03 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S A T G R I D P O I N T S (IN MATERIAL COORDINATE SYSTEM) POINT MAT. COORD. SYS. STRESSES INMATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 16 1000 -2.921089E+03 -4.433632E+03 -4.466739E+02 -15.2836 -2.799030E+03 -4.555691E+03 8.783304E+02 503 2.921089E+03 4.433632E+03 4.466739E+02 74.7164 4.555691E+03 2.799030E+03 8.783304E+02 0 17 1000 -1.497415E+03 -2.272773E+03 -5.177765E+02 -26.5882 -1.238266E+03 -2.531923E+03 6.468287E+02 503 1.497415E+03 2.272773E+03 5.177765E+02 63.4118 2.531923E+03 1.238266E+03 6.468287E+02 0 18 1000 -1.779182E+02 -2.700389E+02 -5.759235E+02 -42.7137 3.537838E+02 -8.017410E+02 5.777624E+02 503 1.779182E+02 2.700389E+02 5.759235E+02 47.2863 8.017410E+02 -3.537838E+02 5.777624E+02 0 19 1000 -4.681554E+03 -7.105657E+03 1.672077E+00 0.0395 -4.681553E+03 -7.105658E+03 1.212052E+03 503 4.681554E+03 7.105657E+03 -1.672077E+00 -89.9605 7.105658E+03 4.681553E+03 1.212052E+03 0 20 1000 -4.412221E+03 -6.696860E+03 -2.509875E+02 -6.1960 -4.384973E+03 -6.724108E+03 1.169568E+03 503 4.412221E+03 6.696860E+03 2.509875E+02 83.8040 6.724108E+03 4.384973E+03 1.169568E+03 0 21 1000 -3.758303E+03 -5.704352E+03 -4.751817E+02 -13.0144 -3.648472E+03 -5.814182E+03 1.082855E+03 503 3.758303E+03 5.704352E+03 4.751817E+02 76.9856 5.814182E+03 3.648472E+03 1.082855E+03 0 22 1000 -2.737074E+03 -4.154333E+03 -6.558763E+02 -21.3930 -2.480132E+03 -4.411276E+03 9.655722E+02 503 2.737074E+03 4.154333E+03 6.558763E+02 68.6070 4.411276E+03 2.480132E+03 9.655722E+02 0 23 1000 -1.408172E+03 -2.137314E+03 -7.665382E+02 -32.2819 -9.239246E+02 -2.621562E+03 8.488186E+02 503 1.408172E+03 2.137314E+03 7.665382E+02 57.7181 2.621562E+03 9.239246E+02 8.488186E+02 0 24 1000 -1.507021E+02 -2.287276E+02 -8.269897E+02 -43.6496 6.381945E+02 -1.017624E+03 8.279094E+02 503 1.507021E+02 2.287276E+02 8.269897E+02 46.3504 1.017624E+03 -6.381945E+02 8.279094E+02 0 25 1000 -4.248349E+03 -6.448138E+03 -1.547431E+01 -0.4030 -4.248240E+03 -6.448246E+03 1.100003E+03 503 4.248349E+03 6.448138E+03 1.547431E+01 89.5970 6.448246E+03 4.248240E+03 1.100003E+03 0 26 1000 -4.007302E+03 -6.082276E+03 -3.213080E+02 -8.6038 -3.958687E+03 -6.130892E+03 1.086103E+03 503 4.007302E+03 6.082276E+03 3.213080E+02 81.3962 6.130892E+03 3.958687E+03 1.086103E+03 0 27 1000 -3.412460E+03 -5.179430E+03 -6.164155E+02 -17.4519 -3.218674E+03 -5.373216E+03 1.077271E+03 503 3.412460E+03 5.179430E+03 6.164155E+02 72.5481 5.373216E+03 3.218674E+03 1.077271E+03 0 28 1000 -2.484400E+03 -3.770823E+03 -8.484420E+02 -26.4170 -2.062917E+03 -4.192306E+03 1.064694E+03 503 2.484400E+03 3.770823E+03 8.484420E+02 63.5830 4.192306E+03 2.062917E+03 1.064694E+03 0 29 1000 -1.281956E+03 -1.945751E+03 -9.946729E+02 -35.7737 -5.652692E+02 -2.662439E+03 1.048585E+03 503 1.281956E+03 1.945751E+03 9.946729E+02 54.2263 2.662439E+03 5.652692E+02 1.048585E+03 0 30 1000 -1.211170E+02 -1.838302E+02 -1.061139E+03 -44.1537 9.091285E+02 -1.214076E+03 1.061602E+03 503 1.211170E+02 1.838302E+02 1.061139E+03 45.8463 1.214076E+03 -9.091285E+02 1.061602E+03 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S A T G R I D P O I N T S (IN MATERIAL COORDINATE SYSTEM) POINT MAT. COORD. SYS. STRESSES INMATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 31 1000 -3.718076E+03 -5.643295E+03 -2.960088E+01 -0.8807 -3.717621E+03 -5.643750E+03 9.630649E+02 503 3.718076E+03 5.643295E+03 2.960088E+01 89.1193 5.643750E+03 3.717621E+03 9.630649E+02 0 32 1000 -3.501687E+03 -5.314855E+03 -3.844437E+02 -11.4899 -3.423542E+03 -5.393000E+03 9.847296E+02 503 3.501687E+03 5.314855E+03 3.844437E+02 78.5101 5.393000E+03 3.423542E+03 9.847296E+02 0 33 1000 -2.983081E+03 -4.527717E+03 -7.422441E+02 -21.9312 -2.684230E+03 -4.826567E+03 1.071168E+03 503 2.983081E+03 4.527717E+03 7.422441E+02 68.0688 4.826567E+03 2.684230E+03 1.071168E+03 0 34 1000 -2.170286E+03 -3.294063E+03 -1.020220E+03 -30.5781 -1.567456E+03 -3.896893E+03 1.164718E+03 503 2.170286E+03 3.294063E+03 1.020220E+03 59.4219 3.896893E+03 1.567456E+03 1.164718E+03 0 35 1000 -1.124092E+03 -1.706151E+03 -1.197585E+03 -38.1706 -1.826814E+02 -2.647562E+03 1.232440E+03 503 1.124092E+03 1.706151E+03 1.197585E+03 51.8294 2.647562E+03 1.826814E+02 1.232440E+03 0 36 1000 -8.655007E+01 -1.313699E+02 -1.271597E+03 -44.4952 1.162834E+03 -1.380754E+03 1.271794E+03 503 8.655007E+01 1.313699E+02 1.271597E+03 45.5048 1.380754E+03 -1.162834E+03 1.271794E+03 0 37 1000 -3.102701E+03 -4.709281E+03 -4.141850E+01 -1.4758 -3.101634E+03 -4.710348E+03 8.043571E+02 503 3.102701E+03 4.709281E+03 4.141850E+01 88.5242 4.710348E+03 3.101634E+03 8.043571E+02 0 38 1000 -2.908363E+03 -4.414317E+03 -4.384298E+02 -15.1053 -2.790022E+03 -4.532658E+03 8.713182E+02 503 2.908363E+03 4.414317E+03 4.384298E+02 74.8947 4.532658E+03 2.790022E+03 8.713182E+02 0 39 1000 -2.480795E+03 -3.765349E+03 -8.496696E+02 -26.4569 -2.057962E+03 -4.188181E+03 1.065109E+03 503 2.480795E+03 3.765349E+03 8.496696E+02 63.5431 4.188181E+03 2.057962E+03 1.065109E+03 0 40 1000 -1.802366E+03 -2.735630E+03 -1.167071E+03 -34.1034 -1.012097E+03 -3.525899E+03 1.256901E+03 503 1.802366E+03 2.735630E+03 1.167071E+03 55.8966 3.525899E+03 1.012097E+03 1.256901E+03 0 41 1000 -9.395004E+02 -1.425978E+03 -1.370510E+03 -39.9680 2.091882E+02 -2.574667E+03 1.391928E+03 503 9.395004E+02 1.425978E+03 1.370510E+03 50.0320 2.574667E+03 -2.091882E+02 1.391928E+03 0 42 1000 -4.526099E+01 -6.870167E+01 -1.452950E+03 -44.7689 1.396016E+03 -1.509979E+03 1.452997E+03 503 4.526099E+01 6.870167E+01 1.452950E+03 45.2311 1.509979E+03 -1.396016E+03 1.452997E+03 0 43 1000 -2.418063E+03 -3.670136E+03 -5.153229E+01 -2.3529 -2.415946E+03 -3.672253E+03 6.281537E+02 503 2.418063E+03 3.670136E+03 5.153229E+01 87.6471 3.672253E+03 2.415946E+03 6.281537E+02 0 44 1000 -2.241295E+03 -3.401845E+03 -4.815924E+02 -19.8453 -2.067481E+03 -3.575659E+03 7.540891E+02 503 2.241295E+03 3.401845E+03 4.815924E+02 70.1547 3.575659E+03 2.067481E+03 7.540891E+02 0 45 1000 -1.917746E+03 -2.910753E+03 -9.360900E+02 -31.0292 -1.354636E+03 -3.473863E+03 1.059613E+03 503 1.917746E+03 2.910753E+03 9.360900E+02 58.9708 3.473863E+03 1.354636E+03 1.059613E+03 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S A T G R I D P O I N T S (IN MATERIAL COORDINATE SYSTEM) POINT MAT. COORD. SYS. STRESSES INMATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 46 1000 -1.389427E+03 -2.108866E+03 -1.285354E+03 -37.1826 -4.144058E+02 -3.083887E+03 1.334741E+03 503 1.389427E+03 2.108866E+03 1.285354E+03 52.8174 3.083887E+03 4.144058E+02 1.334741E+03 0 47 1000 -7.338983E+02 -1.113914E+03 -1.508995E+03 -41.4116 5.970037E+02 -2.444816E+03 1.520910E+03 503 7.338983E+02 1.113914E+03 1.508995E+03 48.5884 2.444816E+03 -5.970037E+02 1.520910E+03 0 48 1000 4.863134E+00 7.375687E+00 -1.601109E+03 -45.0225 1.607229E+03 -1.594991E+03 1.601110E+03 503 -4.863134E+00 -7.375687E+00 1.601109E+03 44.9775 1.594991E+03 -1.607229E+03 1.601110E+03 0 49 1000 -1.683967E+03 -2.555920E+03 -6.084562E+01 -3.9725 -1.679742E+03 -2.560146E+03 4.402021E+02 503 1.683967E+03 2.555920E+03 6.084562E+01 86.0275 2.560146E+03 1.679742E+03 4.402021E+02 0 50 1000 -1.513944E+03 -2.297867E+03 -5.121187E+02 -26.2853 -1.261003E+03 -2.550808E+03 6.449025E+02 503 1.513944E+03 2.297867E+03 5.121187E+02 63.7147 2.550808E+03 1.261003E+03 6.449025E+02 0 51 1000 -1.306063E+03 -1.982343E+03 -9.990259E+02 -35.6503 -5.895033E+02 -2.698902E+03 1.054700E+03 503 1.306063E+03 1.982343E+03 9.990259E+02 54.3497 2.698902E+03 5.895033E+02 1.054700E+03 0 52 1000 -9.415195E+02 -1.429027E+03 -1.371778E+03 -39.9621 2.079935E+02 -2.578540E+03 1.393267E+03 503 9.415195E+02 1.429027E+03 1.371778E+03 50.0379 2.578540E+03 -2.079935E+02 1.393267E+03 0 53 1000 -5.147592E+02 -7.812952E+02 -1.608785E+03 -42.6323 9.662677E+02 -2.262322E+03 1.614295E+03 503 5.147592E+02 7.812952E+02 1.608785E+03 47.3677 2.262322E+03 -9.662677E+02 1.614295E+03 0 54 1000 6.787238E+01 1.030137E+02 -1.713586E+03 -45.2937 1.799119E+03 -1.628233E+03 1.713676E+03 503 -6.787238E+01 -1.030137E+02 1.713586E+03 44.7063 1.628233E+03 -1.799119E+03 1.713676E+03 0 55 1000 -9.308094E+02 -1.412781E+03 -7.235959E+01 -8.3566 -9.201802E+02 -1.423410E+03 2.516150E+02 503 9.308094E+02 1.412781E+03 7.235959E+01 81.6434 1.423410E+03 9.201802E+02 2.516150E+02 0 56 1000 -7.462652E+02 -1.132682E+03 -5.294288E+02 -34.9755 -3.758918E+02 -1.503055E+03 5.635817E+02 503 7.462652E+02 1.132682E+03 5.294288E+02 55.0245 1.503055E+03 3.758918E+02 5.635817E+02 0 57 1000 -6.603292E+02 -1.002245E+03 -1.036352E+03 -40.3164 2.190710E+02 -1.881645E+03 1.050358E+03 503 6.603292E+02 1.002245E+03 1.036352E+03 49.6836 1.881645E+03 -2.190710E+02 1.050358E+03 0 58 1000 -4.720674E+02 -7.164954E+02 -1.423694E+03 -42.5468 8.346487E+02 -2.023211E+03 1.428930E+03 503 4.720674E+02 7.164954E+02 1.423694E+03 47.4532 2.023211E+03 -8.346487E+02 1.428930E+03 0 59 1000 -2.858381E+02 -4.338409E+02 -1.667309E+03 -43.7293 1.309111E+03 -2.028790E+03 1.668951E+03 503 2.858381E+02 4.338409E+02 1.667309E+03 46.2707 2.028790E+03 -1.309111E+03 1.668951E+03 0 60 1000 1.575309E+02 2.390941E+02 -1.791454E+03 -45.6520 1.990231E+03 -1.593606E+03 1.791919E+03 503 -1.575309E+02 -2.390941E+02 1.791454E+03 44.3480 1.593606E+03 -1.990231E+03 1.791919E+03 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R E S S E S A T G R I D P O I N T S (IN MATERIAL COORDINATE SYSTEM) POINT MAT. COORD. SYS. STRESSES INMATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 61 1000 -2.446324E+02 -3.713096E+02 -1.017026E+02 -29.0430 -1.881579E+02 -4.277842E+02 1.198131E+02 503 2.446324E+02 3.713096E+02 1.017026E+02 60.9570 4.277842E+02 1.881579E+02 1.198131E+02 0 62 1000 -4.210839E+01 -6.391433E+01 -5.503413E+02 -44.4325 4.974379E+02 -6.034606E+02 5.504493E+02 503 4.210839E+01 6.391433E+01 5.503413E+02 45.5675 6.034606E+02 -4.974379E+02 5.504493E+02 0 63 1000 -4.309179E+01 -6.540018E+01 -1.056104E+03 -44.6974 1.001917E+03 -1.110409E+03 1.056163E+03 503 4.309179E+01 6.540018E+01 1.056104E+03 45.3026 1.110409E+03 -1.001917E+03 1.056163E+03 0 64 1000 -1.158768E+01 -1.758555E+01 -1.449877E+03 -44.9407 1.435293E+03 -1.464467E+03 1.449880E+03 503 1.158768E+01 1.758555E+01 1.449877E+03 45.0593 1.464467E+03 -1.435293E+03 1.449880E+03 0 65 1000 9.407043E-03 6.347656E-03 -1.701701E+03 -45.0000 1.701709E+03 -1.701693E+03 1.701701E+03 503 -9.407043E-03 -6.347656E-03 1.701701E+03 45.0000 1.701693E+03 -1.701709E+03 1.701701E+03 0 66 1000 3.389859E+02 5.144959E+02 -1.851078E+03 -46.3571 2.279898E+03 -1.426416E+03 1.853157E+03 503 -3.389859E+02 -5.144959E+02 1.851078E+03 43.6429 1.426416E+03 -2.279898E+03 1.853157E+03 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R A I N S / C U R V A T U R E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT STRAIN STRNS./CURVS. IN ELEMENT COORD SYSTEM PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST) MAXIMUM ID. CURVATURE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR/TWIST 0 1 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -6.117778E-02 -1.509628E-02 7.591248E-04 89.5281 -1.509315E-02 -6.118090E-02 4.608775E-02 0 2 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.518931E-02 -1.361854E-02 2.201796E-03 88.4841 -1.358941E-02 -5.521844E-02 4.162904E-02 0 3 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.379847E-02 -1.080774E-02 3.430128E-03 87.0321 -1.071882E-02 -4.388739E-02 3.316857E-02 0 4 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.812038E-02 -6.939002E-03 4.321814E-03 84.2339 -6.720795E-03 -2.833859E-02 2.161779E-02 0 5 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -9.689569E-03 -2.391021E-03 4.790783E-03 73.3595 -1.675081E-03 -1.040551E-02 8.730429E-03 0 7 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.967138E-02 -1.472457E-02 2.257586E-03 88.5623 -1.469625E-02 -5.969971E-02 4.500346E-02 0 8 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.383037E-02 -1.328324E-02 6.552458E-03 85.4101 -1.302022E-02 -5.409338E-02 4.107316E-02 0 9 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.272002E-02 -1.054164E-02 1.020479E-02 81.2023 -9.751953E-03 -4.350970E-02 3.375775E-02 0 10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.742796E-02 -6.768140E-03 1.285911E-02 74.0505 -4.930627E-03 -2.926547E-02 2.433484E-02 0 11 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -9.450994E-03 -2.332138E-03 1.425445E-02 58.2691 2.075044E-03 -1.385818E-02 1.593322E-02 0 13 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.669567E-02 -1.399029E-02 3.701210E-03 87.5233 -1.391024E-02 -5.677571E-02 4.286547E-02 0 14 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.114594E-02 -1.262083E-02 1.074076E-02 82.2108 -1.188620E-02 -5.188056E-02 3.999436E-02 0 15 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.058964E-02 -1.001595E-02 1.672912E-02 75.6568 -7.877143E-03 -4.272845E-02 3.485131E-02 0 16 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.606016E-02 -6.430654E-03 2.107990E-02 66.4798 -1.843329E-03 -3.064749E-02 2.880416E-02 0 17 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -8.979693E-03 -2.215862E-03 2.336723E-02 53.0718 6.565453E-03 -1.776101E-02 2.432646E-02 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R A I N S / C U R V A T U R E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT STRAIN STRNS./CURVS. IN ELEMENT COORD SYSTEM PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST) MAXIMUM ID. CURVATURE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR/TWIST 0 19 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.232393E-02 -1.291154E-02 5.053043E-03 86.3470 -1.275024E-02 -5.248523E-02 3.973499E-02 0 20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.720213E-02 -1.164766E-02 1.466465E-02 78.7930 -1.019489E-02 -4.865490E-02 3.846000E-02 0 21 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.745983E-02 -9.243628E-03 2.284098E-02 70.5049 -5.200529E-03 -4.150293E-02 3.630240E-02 0 22 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.405068E-02 -5.934753E-03 2.878141E-02 61.0938 2.011377E-03 -3.199681E-02 3.400818E-02 0 23 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -8.287281E-03 -2.044971E-03 3.190458E-02 50.5352 1.108863E-02 -2.142088E-02 3.250952E-02 0 25 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.666379E-02 -1.151477E-02 6.280899E-03 84.9343 -1.123638E-02 -4.694217E-02 3.570579E-02 0 26 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.209603E-02 -1.038763E-02 1.822805E-02 75.0535 -7.954644E-03 -4.452902E-02 3.657437E-02 0 27 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.340762E-02 -8.243671E-03 2.839112E-02 65.7758 -1.856724E-03 -3.979457E-02 3.793785E-02 0 28 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.144899E-02 -5.292756E-03 3.577423E-02 57.1524 6.255765E-03 -3.299751E-02 3.925328E-02 0 29 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -7.390812E-03 -1.823756E-03 3.965628E-02 48.9956 1.541528E-02 -2.462985E-02 4.004513E-02 0 31 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.985463E-02 -9.834521E-03 7.354259E-03 83.1175 -9.390675E-03 -4.029848E-02 3.090780E-02 0 32 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.595342E-02 -8.871842E-03 2.134204E-02 70.8798 -5.172458E-03 -3.965280E-02 3.448034E-02 0 33 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.853277E-02 -7.040728E-03 3.324115E-02 61.4423 2.005180E-03 -3.757868E-02 3.958386E-02 0 34 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.831919E-02 -4.520444E-03 4.188657E-02 54.1167 1.063063E-02 -3.347027E-02 4.410091E-02 0 35 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -6.312374E-03 -1.557647E-03 4.643142E-02 47.9234 1.940211E-02 -2.727213E-02 4.667424E-02 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R A I N S / C U R V A T U R E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT STRAIN STRNS./CURVS. IN ELEMENT COORD SYSTEM PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST) MAXIMUM ID. CURVATURE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR/TWIST 0 37 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.206413E-02 -7.912155E-03 8.245945E-03 80.5746 -7.227720E-03 -3.274857E-02 2.552084E-02 0 38 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.892550E-02 -7.137667E-03 2.393103E-02 66.1580 -1.849776E-03 -3.421339E-02 3.236362E-02 0 39 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.295538E-02 -5.664488E-03 3.727329E-02 57.4432 6.234366E-03 -3.485423E-02 4.108860E-02 0 40 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.473830E-02 -3.636822E-03 4.696703E-02 51.6494 1.494305E-02 -3.331817E-02 4.826121E-02 0 41 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.078472E-03 -1.253165E-03 5.206341E-02 47.1011 2.293606E-02 -2.926769E-02 5.220375E-02 0 43 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.348410E-02 -5.794950E-03 8.935213E-03 76.6003 -4.730639E-03 -2.454841E-02 1.981777E-02 0 44 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.118533E-02 -5.227700E-03 2.593040E-02 60.8041 2.017083E-03 -2.843012E-02 3.044720E-02 0 45 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.681278E-02 -4.148740E-03 4.038739E-02 53.7048 1.068241E-02 -3.164393E-02 4.232634E-02 0 46 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.079448E-02 -2.663663E-03 5.089128E-02 49.5387 1.903928E-02 -3.249742E-02 5.153671E-02 0 47 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.719518E-03 -9.178389E-04 5.641344E-02 46.4216 2.592281E-02 -3.056016E-02 5.648297E-02 0 49 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.432582E-02 -3.535084E-03 9.404004E-03 69.4641 -1.773721E-03 -1.608719E-02 1.431347E-02 0 50 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.292352E-02 -3.189050E-03 2.729130E-02 54.8153 6.431423E-03 -2.254400E-02 2.897542E-02 0 51 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.025618E-02 -2.530843E-03 4.250735E-02 50.1503 1.520832E-02 -2.799534E-02 4.320365E-02 0 52 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -6.584862E-03 -1.624880E-03 5.356231E-02 47.6453 2.279087E-02 -3.100061E-02 5.379147E-02 0 53 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.268968E-03 -5.598860E-04 5.937433E-02 45.8244 2.828503E-02 -3.111389E-02 5.939892E-02 1 SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A 0 S T R A I N S / C U R V A T U R E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT STRAIN STRNS./CURVS. IN ELEMENT COORD SYSTEM PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST) MAXIMUM ID. CURVATURE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR/TWIST 0 55 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.814792E-03 -1.188125E-03 9.641312E-03 55.3071 2.148969E-03 -8.151887E-03 1.030086E-02 0 56 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.343497E-03 -1.071822E-03 2.798040E-02 48.3346 1.137785E-02 -1.679317E-02 2.817103E-02 0 57 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.447015E-03 -8.505806E-04 4.358041E-02 46.7048 1.968004E-02 -2.397764E-02 4.365768E-02 0 58 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.213120E-03 -5.461071E-04 5.491451E-02 45.8694 2.609029E-02 -2.884951E-02 5.493980E-02 0 59 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -7.625768E-04 -1.881756E-04 6.087321E-02 45.2703 2.996258E-02 -3.091334E-02 6.087592E-02 * * * END OF JOB * * * 1 JOB TITLE = SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT DATE: 5/17/95 END TIME: 15: 1:48 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d01112a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01112A,NASTRAN APP DISPLACEMENT TIME 9 SOL 1,3 DIAG 14 ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT GEOM1,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ QUAD1 ELEMENT EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 3 SPC = 5010 4 TEMP(LOAD) = 20 5 OUTPUT 6 DISPLACEMENT = ALL 7 SPCFORCE = ALL 8 ELFORCE = ALL 9 STRESSES = ALL 10 STRAIN = ALL 11 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 57, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2R 1000 .0 .0 .0 .0 .0 1.0 +COR1 2- +COR1 1.0 .0 .0 3- MAT1 1 3.0+5 .3 1.0 .01 .0 +MAT1 4- +MAT1 1000 5- PARAM STRESS 0 6- PQUAD1 101 1 .5 1 .0104167 +PQUAD1 7- +PQUAD1 .25 -0.25 8- TEMPP1 20 1 .0 5.90786 2.46161 -2.46161 9- TEMPP1 20 2 .0 5.32956 2.22065 -2.22065 10- TEMPP1 20 3 .0 4.22956 1.76232 -1.76232 11- TEMPP1 20 4 .0 2.71555 1.13148 -1.13148 12- TEMPP1 20 5 .0 .93571 .38988 -.38988 13- TEMPP1 20 7 .0 5.76239 2.40100 -2.40100 14- TEMPP1 20 8 .0 5.19833 2.16597 -2.16597 15- TEMPP1 20 9 .0 4.12542 1.71892 -1.71892 16- TEMPP1 20 10 .0 2.64868 1.10362 -1.10362 17- TEMPP1 20 11 .0 .91267 .38028 -.38028 18- TEMPP1 20 13 .0 5.47503 2.28126 -2.28126 19- TEMPP1 20 14 .0 4.93910 2.05796 -2.05796 20- TEMPP1 20 15 .0 3.91969 1.63320 -1.63320 21- TEMPP1 20 16 .0 2.51660 1.04858 -1.04858 22- TEMPP1 20 17 .0 .86716 .36132 -.36132 23- TEMPP1 20 19 .0 5.05286 2.10536 -2.10536 24- TEMPP1 20 20 .0 4.55825 1.89927 -1.89927 25- TEMPP1 20 21 .0 3.61745 1.50727 -1.50727 26- TEMPP1 20 22 .0 2.32254 .96773 -.96773 27- TEMPP1 20 23 .0 .80029 .33346 -.33346 28- TEMPP1 20 25 .0 4.50626 1.87761 -1.87761 29- TEMPP1 20 26 .0 4.06516 1.69382 -1.69382 30- TEMPP1 20 27 .0 3.22613 1.34422 -1.34422 31- TEMPP1 20 28 .0 2.07130 .86304 -.86304 32- TEMPP1 20 29 .0 .71372 .29738 -.29738 33- TEMPP1 20 31 .0 3.84871 1.60363 -1.60363 34- TEMPP1 20 32 .0 3.47197 1.44666 -1.44666 35- TEMPP1 20 33 .0 2.75537 1.14807 -1.14807 36- TEMPP1 20 34 .0 1.76906 .73711 -.73711 37- TEMPP1 20 35 .0 .60958 .25399 -.25399 38- TEMPP1 20 37 .0 3.09639 1.29016 -1.29016 39- TEMPP1 20 38 .0 2.79330 1.16387 -1.16387 40- TEMPP1 20 39 .0 2.21677 .92366 -.92366 41- TEMPP1 20 40 .0 1.42326 .59302 -.59302 42- TEMPP1 20 41 .0 .49042 .20434 -.20434 43- TEMPP1 20 43 .0 2.26783 .94493 -.94493 44- TEMPP1 20 44 .0 2.04584 .85243 -.85243 45- TEMPP1 20 45 .0 1.62359 .67650 -.67650 46- TEMPP1 20 46 .0 1.04241 .43434 -.43434 47- TEMPP1 20 47 .0 .35919 .14966 -.14966 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- TEMPP1 20 49 .0 1.38343 .57643 -.57643 49- TEMPP1 20 50 .0 1.24801 .52000 -.52000 50- TEMPP1 20 51 .0 .99043 .41268 -.41268 51- TEMPP1 20 52 .0 .63589 .26496 -.26496 52- TEMPP1 20 53 .0 .21911 .09130 -.09130 53- TEMPP1 20 55 .0 .46496 .19373 -.19373 54- TEMPP1 20 56 .0 .41945 .17477 -.17477 55- TEMPP1 20 57 .0 .33287 .13870 -.13870 56- TEMPP1 20 58 .0 .21372 .08905 -.08905 57- TEMPP1 20 59 .0 .07364 .03068 -.03068 ENDDATA 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 01 - STATIC ANALYSIS - APR. 1995 $ 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ 1 INPUT GEOM1,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ QUAD1 ELEMENT 1 EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ 2 FILE OPTP2=SAVE/EST1=SAVE $ 4 SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ 5 PARAM //*MPY*/CARDNO/0/0 $ 6 COMPOFF 1,INTERACT $ 7 PRECHK ALL $ 8 COMPON 1,INTERACT $ 10 COMPOFF LBLINT02,SYS21 $ 11 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 12 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 13 EQUIV MPTA,MPT/ISOP $ 14 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 15 GP2 GEOM2,EQEXIN/ECT $ 16 PARAML PCDB//*PRES*////JUMPPLOT $ 17 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 18 COND P1,JUMPPLOT $ 19 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 20 PRTMSG PLTSETX// $ 21 PARAM //*MPY*/PLTFLG/1/1 $ 22 PARAM //*MPY*/PFILE/0/0 $ 23 COND P1,JUMPPLOT $ 24 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 25 PRTMSG PLOTX1// $ 26 LABEL P1 $ 27 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ 28 PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ 29 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 30 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 31 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ 32 COND ERROR4,NOELMT $ 33 PURGE KGGX/NOSIMP $ 34 OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ 35 LABEL LOOPTOP $ 36 COND LBL1,NOSIMP $ 37 PARAM //*ADD*/NOKGGX/1/0 $ 38 EQUIV OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ 39 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 40 COND JMPKGG,NOKGGX $ 41 EMA GPECT,KDICT,KELM/KGGX $ 42 LABEL JMPKGG $ 43 PURGE MGG/NOMGG $ 44 COND JMPMGG,NOMGG $ 45 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 46 PURGE MDICT,MELM/ALWAYS $ 47 LABEL JMPMGG $ 48 COND LBL1,GRDPNT $ 49 COND ERROR2,NOMGG $ 50 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ 51 OFP OGPWG,,,,,//S,N,CARDNO $ 52 LABEL LBL1 $ 53 EQUIV KGGX,KGG/NOGENL $ 54 COND LBL11A,NOGENL $ 55 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 56 LABEL LBL11A $ 57 GPSTGEN KGG,SIL/GPST $ 58 PARAM //*MPY*/NSKIP/0/0 $ 60 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 61 OFP OGPST,,,,,//S,N,CARDNO $ 62 COND ERROR3,NOL $ 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 63 PARAM //*AND*/NOSR/SINGLE/REACT $ 64 PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ 65 EQUIV KGG,KNN/MPCF1 $ 66 COND LBL2,MPCF2 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,,,/KNN,,, $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 COND LBL5,OMIT $ 76 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 77 LABEL LBL5 $ 78 EQUIV KAA,KLL/REACT $ 79 COND LBL6,REACT $ 80 RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ 81 LABEL LBL6 $ 82 RBMG2 KLL/LLL $ 83 COND LBL7,REACT $ 84 RBMG3 LLL,KLR,KRR/DM $ 85 LABEL LBL7 $ 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 86 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ 87 EQUIV PG,PL/NOSET $ 88 COND LBL10,NOSET $ 89 SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ 90 LABEL LBL10 $ 91 SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ NSKIP/S,N,EPSI $ 92 COND LBL9,IRES $ 93 MATGPR GPL,USET,SIL,RULV//*L* $ 94 MATGPR GPL,USET,SIL,RUOV//*O* $ 95 LABEL LBL9 $ 96 SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ *STATICS* $ 100 PARAM //*NOT*/TEST/REPEAT $ 101 COND ERROR5,TEST $ 103 GPFDR CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/ *STATICS* $ 104 PURGE KDICT,KELM/REPEAT $ 105 OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ 106 COND NOMPCF,GRDEQ $ 107 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ 108 OFP OQM1,,,,,//S,N,CARDNO $ 109 LABEL NOMPCF $ 110 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L, OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ 111 COND LBLSTRS,STRESS $ 112 CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/ V,Y,NINTPTS $ 113 LABEL LBLSTRS $ 114 PURGE OES1M/STRESS $ 115 COND LBLSTRN,STRNFLG $ 116 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/ ,,,OES1A,,,,/*STATICS*//1 $ 117 COND LBLSTRN,STRAIN $ 118 CURV OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/ V,Y,NINTPTS $ 119 LABEL LBLSTRN $ 120 PURGE OES1A/STRNFLG $ 121 COND LBL17,NOSORT2 $ 122 SDR3 OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $ 123 PARAM //*SUB*/PRTSORT2/NOSORT2/1 $ 124 COND LBLSORT1,PRTSORT2 $ 125 OFP OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $ 126 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ 127 OFP OESF2,,,,,//S,N,CARDNO $ 128 JUMP LBLXYPLT $ 129 LABEL LBLSORT1 $ 130 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 131 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 132 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 133 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 134 LABEL LBLXYPLT $ 135 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ 136 XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ 137 XYPLOT XYPLTT// $ 138 JUMP DPLOT $ 139 LABEL LBL17 $ 140 PURGE OUGV2/NOSORT2 $ 141 COND LBLOFP,COUNT $ 142 OPTPR2 OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N, CARDNO $ 143 EQUIV EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $ 144 COND LOOPEND,PRINT $ 145 LABEL LBLOFP $ 146 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 147 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 148 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $ 149 OFP OESF1X,OESF1Y,,,,//S,N,CARDNO $ 150 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ 151 LABEL DPLOT $ 152 COND P2,JUMPPLOT $ 153 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 154 PRTMSG PLOTX2// $ 155 LABEL P2 $ 156 LABEL LOOPEND $ 157 COND FINIS,COUNT $ 158 REPT LOOPTOP,360 $ 159 JUMP FINIS $ 162 LABEL ERROR2 $ 163 PRTPARM //-2/*STATICS* $ 164 LABEL ERROR3 $ 165 PRTPARM //-3/*STATICS* $ 166 LABEL ERROR4 $ 167 PRTPARM //-4/*STATICS* $ 168 LABEL ERROR5 $ 169 PRTPARM //-5/*STATICS* $ 170 LABEL FINIS $ 171 PURGE DUMMY/ALWAYS $ 172 LABEL LBLINT02 $ 173 COMPON LBLINT01,SYS21 $ 228 END $ 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE ABSENCE OF GRID CARDS 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 * U T I L I T Y M O D U L E I N P U T * INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST) * 1 ** 2 ** 3 ** 4 ** 5 ** 6 ** 7 ** 8 ** 9 ** 10 * 5 10 1.0E+00 1.0E+00 6 0.0E+00 0.0E+00 421 125 53 34 0 0 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.6240146E-13 0*** USER WARNING MESSAGE 2077, SDR2 OUTPUT DATA BLOCK NO. 2 IS PURGED 0*** USER WARNING MESSAGE 2078, SDR2 OUTPUT DATA BLOCK NO. 3 IS PURGED 0*** SYSTEM WARNING MESSAGE 3001 0ATTEMPT TO OPEN DATA SET 205 IN SUBROUTINE SDR2 , WHICH WAS NOT DEFINED IN THE FIST 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 6.289829E-01 0.0 0.0 0.0 2 G 0.0 0.0 5.981983E-01 0.0 6.155673E-02 0.0 3 G 0.0 0.0 5.088579E-01 0.0 1.170879E-01 0.0 4 G 0.0 0.0 3.697069E-01 0.0 1.611577E-01 0.0 5 G 0.0 0.0 1.943664E-01 0.0 1.894522E-01 0.0 6 G 0.0 0.0 0.0 0.0 1.992018E-01 0.0 7 G 0.0 0.0 6.212391E-01 -1.547499E-02 0.0 0.0 8 G 0.0 0.0 5.908335E-01 -1.471759E-02 6.079886E-02 0.0 9 G 0.0 0.0 5.025930E-01 -1.251952E-02 1.156463E-01 0.0 10 G 0.0 0.0 3.651552E-01 -9.095970E-03 1.591735E-01 0.0 11 G 0.0 0.0 1.919734E-01 -4.782042E-03 1.871198E-01 0.0 12 G 0.0 0.0 0.0 0.0 1.967493E-01 0.0 13 G 0.0 0.0 5.981983E-01 -3.056896E-02 0.0 0.0 14 G 0.0 0.0 5.689204E-01 -2.907280E-02 5.854392E-02 0.0 15 G 0.0 0.0 4.839526E-01 -2.473081E-02 1.113572E-01 0.0 16 G 0.0 0.0 3.516122E-01 -1.796798E-02 1.532701E-01 0.0 17 G 0.0 0.0 1.848534E-01 -9.446317E-03 1.801798E-01 0.0 18 G 0.0 0.0 0.0 0.0 1.894522E-01 0.0 19 G 0.0 0.0 5.604278E-01 -4.491021E-02 0.0 0.0 20 G 0.0 0.0 5.329986E-01 -4.271215E-02 5.484745E-02 0.0 21 G 0.0 0.0 4.533957E-01 -3.633313E-02 1.043261E-01 0.0 22 G 0.0 0.0 3.294112E-01 -2.639757E-02 1.435925E-01 0.0 23 G 0.0 0.0 1.731817E-01 -1.387804E-02 1.688032E-01 0.0 24 G 0.0 0.0 0.0 0.0 1.774901E-01 0.0 25 G 0.0 0.0 5.088578E-01 -5.814566E-02 0.0 0.0 26 G 0.0 0.0 4.839526E-01 -5.529981E-02 4.980044E-02 0.0 27 G 0.0 0.0 4.116746E-01 -4.704082E-02 9.472609E-02 0.0 28 G 0.0 0.0 2.990991E-01 -3.417715E-02 1.303793E-01 0.0 29 G 0.0 0.0 1.572457E-01 -1.796798E-02 1.532700E-01 0.0 30 G 0.0 0.0 0.0 0.0 1.611576E-01 0.0 31 G 0.0 0.0 4.447580E-01 -6.994929E-02 0.0 0.0 32 G 0.0 0.0 4.229900E-01 -6.652573E-02 4.352717E-02 0.0 33 G 0.0 0.0 3.598168E-01 -5.659018E-02 8.279362E-02 0.0 34 G 0.0 0.0 2.614222E-01 -4.111516E-02 1.139557E-01 0.0 35 G 0.0 0.0 1.374378E-01 -2.161550E-02 1.339629E-01 0.0 36 G 0.0 0.0 0.0 0.0 1.408570E-01 0.0 37 G 0.0 0.0 3.697068E-01 -8.003054E-02 0.0 0.0 38 G 0.0 0.0 3.516121E-01 -7.611356E-02 3.618212E-02 0.0 39 G 0.0 0.0 2.990991E-01 -6.474605E-02 6.882253E-02 0.0 40 G 0.0 0.0 2.173082E-01 -4.704076E-02 9.472606E-02 0.0 41 G 0.0 0.0 1.142457E-01 -2.473079E-02 1.113572E-01 0.0 42 G 0.0 0.0 0.0 0.0 1.170879E-01 0.0 43 G 0.0 0.0 2.855522E-01 -8.814117E-02 0.0 0.0 44 G 0.0 0.0 2.715763E-01 -8.382725E-02 2.794615E-02 0.0 45 G 0.0 0.0 2.310166E-01 -7.130771E-02 5.315678E-02 0.0 46 G 0.0 0.0 1.678434E-01 -5.180809E-02 7.316402E-02 0.0 47 G 0.0 0.0 8.824050E-02 -2.723713E-02 8.600949E-02 0.0 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 48 G 0.0 0.0 0.0 0.0 9.043574E-02 0.0 49 G 0.0 0.0 1.943664E-01 -9.408151E-02 0.0 0.0 50 G 0.0 0.0 1.848534E-01 -8.947683E-02 1.902207E-02 0.0 51 G 0.0 0.0 1.572457E-01 -7.611354E-02 3.618213E-02 0.0 52 G 0.0 0.0 1.142457E-01 -5.529974E-02 4.980046E-02 0.0 53 G 0.0 0.0 6.006252E-02 -2.907281E-02 5.854395E-02 0.0 54 G 0.0 0.0 0.0 0.0 6.155673E-02 0.0 55 G 0.0 0.0 9.839460E-02 -9.770528E-02 0.0 0.0 56 G 0.0 0.0 9.357884E-02 -9.292324E-02 9.629590E-03 0.0 57 G 0.0 0.0 7.960291E-02 -7.904524E-02 1.831659E-02 0.0 58 G 0.0 0.0 5.783490E-02 -5.742973E-02 2.521062E-02 0.0 59 G 0.0 0.0 3.040560E-02 -3.019259E-02 2.963686E-02 0.0 60 G 0.0 0.0 0.0 0.0 3.116201E-02 0.0 61 G 0.0 0.0 0.0 -9.892321E-02 0.0 0.0 62 G 0.0 0.0 0.0 -9.408157E-02 0.0 0.0 63 G 0.0 0.0 0.0 -8.003056E-02 0.0 0.0 64 G 0.0 0.0 0.0 -5.814559E-02 0.0 0.0 65 G 0.0 0.0 0.0 -3.056894E-02 0.0 0.0 66 G 0.0 0.0 0.0 0.0 0.0 0.0 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -7.400122E+01 1.861396E+01 0.0 2 G 0.0 0.0 0.0 -1.407587E+02 0.0 0.0 3 G 0.0 0.0 0.0 -1.197365E+02 0.0 0.0 4 G 0.0 0.0 0.0 -8.699371E+01 0.0 0.0 5 G 0.0 0.0 0.0 -4.573529E+01 0.0 0.0 6 G 0.0 0.0 -5.925016E+00 -1.750928E+01 0.0 0.0 7 G 0.0 0.0 0.0 0.0 3.676960E+01 0.0 12 G 0.0 0.0 -1.170411E+01 8.652160E-02 0.0 0.0 13 G 0.0 0.0 0.0 0.0 3.540588E+01 0.0 18 G 0.0 0.0 -1.127010E+01 1.707948E-01 0.0 0.0 19 G 0.0 0.0 0.0 0.0 3.317041E+01 0.0 24 G 0.0 0.0 -1.055845E+01 2.511623E-01 0.0 0.0 25 G 0.0 0.0 0.0 0.0 3.011804E+01 0.0 30 G 0.0 0.0 -9.586771E+00 3.250313E-01 0.0 0.0 31 G 0.0 0.0 0.0 0.0 2.632403E+01 0.0 36 G 0.0 0.0 -8.379259E+00 3.909180E-01 0.0 0.0 37 G 0.0 0.0 0.0 0.0 2.188195E+01 0.0 42 G 0.0 0.0 -6.965311E+00 4.474613E-01 0.0 0.0 43 G 0.0 0.0 0.0 0.0 1.690109E+01 0.0 48 G 0.0 0.0 -5.379806E+00 4.926479E-01 0.0 0.0 49 G 0.0 0.0 0.0 0.0 1.150410E+01 0.0 54 G 0.0 0.0 -3.661853E+00 5.260014E-01 0.0 0.0 55 G 0.0 0.0 0.0 0.0 5.823802E+00 0.0 60 G 0.0 0.0 -1.853672E+00 5.461640E-01 0.0 0.0 61 G 0.0 0.0 -1.168273E+01 0.0 1.289775E+01 0.0 62 G 0.0 0.0 -2.222199E+01 0.0 -1.049895E+00 0.0 63 G 0.0 0.0 -1.890310E+01 0.0 -1.997354E+00 0.0 64 G 0.0 0.0 -1.373387E+01 0.0 -2.748788E+00 0.0 65 G 0.0 0.0 -7.220332E+00 0.0 -3.231655E+00 0.0 66 G 0.0 0.0 1.490416E+02 2.764740E-01 -1.698860E+00 0.0 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 F O R C E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 1 3.810094E+01 1.488741E+02 9.116211E-01 -1.681641E+00 -1.685547E+00 2 3.437134E+01 1.343014E+02 2.645996E+00 -4.884766E+00 -1.519531E+00 3 2.727718E+01 1.065821E+02 4.122559E+00 -7.611328E+00 -1.207031E+00 4 1.751310E+01 6.843006E+01 5.194580E+00 -9.588867E+00 -7.734375E-01 5 6.034527E+00 2.357921E+01 5.758179E+00 -1.063184E+01 -2.675781E-01 7 3.716281E+01 1.452083E+02 2.712891E+00 -1.640625E+00 -5.007812E+00 8 3.352502E+01 1.309944E+02 7.875000E+00 -4.765625E+00 -4.515625E+00 9 2.660574E+01 1.039578E+02 1.226538E+01 -7.422852E+00 -3.583008E+00 10 1.708173E+01 6.674492E+01 1.545557E+01 -9.353516E+00 -2.301758E+00 11 5.885925E+00 2.299864E+01 1.713293E+01 -1.036987E+01 -7.939453E-01 13 3.530957E+01 1.379671E+02 4.447754E+00 -1.560547E+00 -8.207031E+00 14 3.185324E+01 1.244620E+02 1.290918E+01 -4.527344E+00 -7.400391E+00 15 2.527878E+01 9.877349E+01 2.010693E+01 -7.053711E+00 -5.875977E+00 16 1.623011E+01 6.341660E+01 2.533643E+01 -8.886719E+00 -3.771484E+00 17 5.592537E+00 2.185180E+01 2.808569E+01 -9.853027E+00 -1.300293E+00 19 3.258702E+01 1.273286E+02 6.072998E+00 -1.441406E+00 -1.120117E+01 20 2.939702E+01 1.148648E+02 1.762598E+01 -4.176758E+00 -1.010938E+01 21 2.332970E+01 9.115733E+01 2.745337E+01 -6.509766E+00 -8.023438E+00 22 1.497841E+01 5.852643E+01 3.459338E+01 -8.201172E+00 -5.150391E+00 23 5.161152E+00 2.016675E+01 3.834692E+01 -9.093018E+00 -1.775391E+00 25 2.906168E+01 1.135548E+02 7.549072E+00 -1.284180E+00 -1.392773E+01 26 2.621701E+01 1.024394E+02 2.190845E+01 -3.726562E+00 -1.256445E+01 27 2.080591E+01 8.129636E+01 3.412378E+01 -5.805664E+00 -9.970703E+00 28 1.335812E+01 5.219539E+01 4.299792E+01 -7.314453E+00 -6.402344E+00 29 4.602867E+00 1.798526E+01 4.766394E+01 -8.109375E+00 -2.206543E+00 31 2.482106E+01 9.698503E+01 8.839111E+00 -1.095703E+00 -1.630664E+01 32 2.239125E+01 8.749140E+01 2.565161E+01 -3.182617E+00 -1.471094E+01 33 1.776981E+01 6.943353E+01 3.995312E+01 -4.957031E+00 -1.167578E+01 34 1.140897E+01 4.457915E+01 5.034448E+01 -6.248047E+00 -7.496582E+00 35 3.931374E+00 1.536104E+01 5.580719E+01 -6.926025E+00 -2.583496E+00 37 1.996918E+01 7.802699E+01 9.910645E+00 -8.808594E-01 -1.828516E+01 38 1.801458E+01 7.038936E+01 2.876318E+01 -2.560547E+00 -1.649609E+01 39 1.429631E+01 5.586108E+01 4.479968E+01 -3.988281E+00 -1.309082E+01 40 9.178928E+00 3.586526E+01 5.645105E+01 -5.026855E+00 -8.405273E+00 41 3.162741E+00 1.235822E+01 6.257642E+01 -5.572388E+00 -2.896729E+00 43 1.462569E+01 5.714783E+01 1.073926E+01 -6.455078E-01 -1.981396E+01 44 1.319399E+01 5.155382E+01 3.116638E+01 -1.874512E+00 -1.787402E+01 45 1.047088E+01 4.091340E+01 4.854285E+01 -2.920898E+00 -1.418457E+01 46 6.722740E+00 2.626803E+01 6.116754E+01 -3.681152E+00 -9.107910E+00 47 2.316523E+00 9.051338E+00 6.780478E+01 -4.081116E+00 -3.138672E+00 49 8.922112E+00 3.486148E+01 1.130286E+01 -3.930664E-01 -2.085400E+01 50 8.048695E+00 3.144896E+01 3.280212E+01 -1.143555E+00 -1.881201E+01 51 6.387611E+00 2.495819E+01 5.109064E+01 -1.782227E+00 -1.493018E+01 52 4.100914E+00 1.602398E+01 6.437796E+01 -2.245605E+00 -9.585449E+00 53 1.413036E+00 5.521420E+00 7.136359E+01 -2.489563E+00 -3.303101E+00 55 2.998659E+00 1.171662E+01 1.158815E+01 -1.317444E-01 -2.138025E+01 56 2.705261E+00 1.056990E+01 3.363035E+01 -3.840942E-01 -1.928735E+01 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 F O R C E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 57 2.146612E+00 8.388025E+00 5.238049E+01 -5.986786E-01 -1.530640E+01 58 1.378399E+00 5.385653E+00 6.600327E+01 -7.545395E-01 -9.827454E+00 59 4.748776E-01 1.855652E+00 7.316516E+01 -8.366966E-01 -3.386353E+00 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 2.500000E-01 -5.134327E+03 -7.792875E+03 -2.187884E+01 -0.4715 -5.134147E+03 -7.793055E+03 1.329454E+03 -2.500000E-01 5.134327E+03 7.792875E+03 2.187884E+01 89.5285 7.793055E+03 5.134147E+03 1.329454E+03 0 2 2.500000E-01 -4.631738E+03 -7.030051E+03 -6.350370E+01 -1.5157 -4.630058E+03 -7.031731E+03 1.200837E+03 -2.500000E-01 4.631738E+03 7.030051E+03 6.350370E+01 88.4843 7.031731E+03 4.630058E+03 1.200837E+03 0 3 2.500000E-01 -3.675779E+03 -5.579090E+03 -9.894109E+01 -2.9678 -3.670650E+03 -5.584220E+03 9.567849E+02 -2.500000E-01 3.675779E+03 5.579090E+03 9.894109E+01 87.0322 5.584220E+03 3.670650E+03 9.567849E+02 0 4 2.500000E-01 -2.359995E+03 -3.581999E+03 -1.246695E+02 -5.7662 -2.347406E+03 -3.594588E+03 6.235909E+02 -2.500000E-01 2.359995E+03 3.581999E+03 1.246695E+02 84.2338 3.594588E+03 2.347406E+03 6.235909E+02 0 5 2.500000E-01 -8.131960E+02 -1.234267E+03 -1.381958E+02 -16.6405 -7.718917E+02 -1.275571E+03 2.518398E+02 -2.500000E-01 8.131960E+02 1.234267E+03 1.381958E+02 73.3595 1.275571E+03 7.718917E+02 2.518398E+02 0 7 2.500000E-01 -5.007916E+03 -7.601000E+03 -6.510917E+01 -1.4374 -5.006282E+03 -7.602634E+03 1.298176E+03 -2.500000E-01 5.007916E+03 7.601000E+03 6.510917E+01 88.5626 7.602634E+03 5.006282E+03 1.298176E+03 0 8 2.500000E-01 -4.517688E+03 -6.856945E+03 -1.889994E+02 -4.5895 -4.502516E+03 -6.872117E+03 1.184800E+03 -2.500000E-01 4.517688E+03 6.856945E+03 1.889994E+02 85.4105 6.872117E+03 4.502516E+03 1.184800E+03 0 9 2.500000E-01 -3.585243E+03 -5.441688E+03 -2.943682E+02 -8.7977 -3.539685E+03 -5.487246E+03 9.737809E+02 -2.500000E-01 3.585243E+03 5.441688E+03 2.943682E+02 81.2023 5.487246E+03 3.539685E+03 9.737809E+02 0 10 2.500000E-01 -2.301889E+03 -3.493802E+03 -3.709324E+02 -15.9494 -2.195880E+03 -3.599810E+03 7.019650E+02 -2.500000E-01 2.301889E+03 3.493802E+03 3.709324E+02 74.0506 3.599810E+03 2.195880E+03 7.019650E+02 0 11 2.500000E-01 -7.931724E+02 -1.203876E+03 -4.111891E+02 -31.7310 -5.389094E+02 -1.458139E+03 4.596149E+02 -2.500000E-01 7.931724E+02 1.203876E+03 4.111891E+02 58.2690 1.458139E+03 5.389094E+02 4.596149E+02 0 13 2.500000E-01 -4.758152E+03 -7.221924E+03 -1.067458E+02 -2.4762 -4.753536E+03 -7.226540E+03 1.236502E+03 -2.500000E-01 4.758152E+03 7.221924E+03 1.067458E+02 87.5238 7.226540E+03 4.753536E+03 1.236502E+03 0 14 2.500000E-01 -4.292411E+03 -6.515015E+03 -3.098193E+02 -7.7890 -4.250032E+03 -6.557394E+03 1.153681E+03 -2.500000E-01 4.292411E+03 6.515015E+03 3.098193E+02 82.2110 6.557394E+03 4.250032E+03 1.153681E+03 0 15 2.500000E-01 -3.406450E+03 -5.170317E+03 -4.825649E+02 -14.3430 -3.283060E+03 -5.293708E+03 1.005324E+03 -2.500000E-01 3.406450E+03 5.170317E+03 4.825649E+02 75.6570 5.293708E+03 3.283060E+03 1.005324E+03 0 16 2.500000E-01 -2.187079E+03 -3.319551E+03 -6.080723E+02 -23.5202 -1.922427E+03 -3.584203E+03 8.308882E+02 -2.500000E-01 2.187079E+03 3.319551E+03 6.080723E+02 66.4798 3.584203E+03 1.922427E+03 8.308882E+02 0 17 2.500000E-01 -7.536347E+02 -1.143856E+03 -6.740545E+02 -36.9282 -2.470205E+02 -1.650470E+03 7.017247E+02 -2.500000E-01 7.536347E+02 1.143856E+03 6.740545E+02 53.0718 1.650470E+03 2.470205E+02 7.017247E+02 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 19 2.500000E-01 -4.391279E+03 -6.665070E+03 -1.457515E+02 -3.6528 -4.381975E+03 -6.674375E+03 1.146200E+03 -2.500000E-01 4.391279E+03 6.665070E+03 1.457515E+02 86.3472 6.674375E+03 4.381975E+03 1.146200E+03 0 20 2.500000E-01 -3.961416E+03 -6.012635E+03 -4.230221E+02 -11.2071 -3.877601E+03 -6.096450E+03 1.109425E+03 -2.500000E-01 3.961416E+03 6.012635E+03 4.230221E+02 78.7929 6.096450E+03 3.877601E+03 1.109425E+03 0 21 2.500000E-01 -3.143800E+03 -4.771658E+03 -6.588788E+02 -19.4952 -2.910542E+03 -5.004917E+03 1.047188E+03 -2.500000E-01 3.143800E+03 4.771658E+03 6.588788E+02 70.5048 5.004917E+03 2.910542E+03 1.047188E+03 0 22 2.500000E-01 -2.018459E+03 -3.063608E+03 -8.302386E+02 -28.9063 -1.560024E+03 -3.522043E+03 9.810099E+02 -2.500000E-01 2.018459E+03 3.063608E+03 8.302386E+02 61.0937 3.522043E+03 1.560024E+03 9.810099E+02 0 23 2.500000E-01 -6.955280E+02 -1.055661E+03 -9.203232E+02 -39.4648 6.217871E+01 -1.813368E+03 9.377733E+02 -2.500000E-01 6.955280E+02 1.055661E+03 9.203232E+02 50.5352 1.813368E+03 -6.217871E+01 9.377733E+02 0 25 2.500000E-01 -3.916242E+03 -5.944071E+03 -1.811772E+02 -5.0656 -3.900182E+03 -5.960131E+03 1.029974E+03 -2.500000E-01 3.916242E+03 5.944071E+03 1.811772E+02 84.9343 5.960131E+03 3.900182E+03 1.029974E+03 0 26 2.500000E-01 -3.532906E+03 -5.362237E+03 -5.258011E+02 -14.9464 -3.392546E+03 -5.502598E+03 1.055026E+03 -2.500000E-01 3.532906E+03 5.362237E+03 5.258011E+02 75.0536 5.502598E+03 3.392546E+03 1.055026E+03 0 27 2.500000E-01 -2.803715E+03 -4.255481E+03 -8.189681E+02 -24.2241 -2.435242E+03 -4.623954E+03 1.094356E+03 -2.500000E-01 2.803715E+03 4.255481E+03 8.189681E+02 65.7759 4.623954E+03 2.435242E+03 1.094356E+03 0 28 2.500000E-01 -1.800087E+03 -2.732178E+03 -1.031947E+03 -32.8476 -1.133828E+03 -3.398437E+03 1.132304E+03 -2.500000E-01 1.800087E+03 2.732178E+03 1.031947E+03 57.1524 3.398437E+03 1.133828E+03 1.132304E+03 0 29 2.500000E-01 -6.202542E+02 -9.414305E+02 -1.143931E+03 -41.0044 3.743055E+02 -1.935990E+03 1.155148E+03 -2.500000E-01 6.202542E+02 9.414305E+02 1.143931E+03 48.9956 1.935990E+03 -3.743055E+02 1.155148E+03 0 31 2.500000E-01 -3.344785E+03 -5.076715E+03 -2.121380E+02 -6.8824 -3.319180E+03 -5.102320E+03 8.915702E+02 -2.500000E-01 3.344785E+03 5.076715E+03 2.121380E+02 83.1176 5.102320E+03 3.319180E+03 8.915702E+02 0 32 2.500000E-01 -3.017392E+03 -4.579791E+03 -6.156367E+02 -19.1202 -2.803965E+03 -4.793217E+03 9.946260E+02 -2.500000E-01 3.017392E+03 4.579791E+03 6.156367E+02 70.8798 4.793217E+03 2.803965E+03 9.946260E+02 0 33 2.500000E-01 -2.394592E+03 -3.634517E+03 -9.588719E+02 -28.5576 -1.872719E+03 -4.156391E+03 1.141836E+03 -2.500000E-01 2.394592E+03 3.634517E+03 9.588719E+02 61.4424 4.156391E+03 1.872719E+03 1.141836E+03 0 34 2.500000E-01 -1.537436E+03 -2.333518E+03 -1.208264E+03 -35.8832 -6.633378E+02 -3.207616E+03 1.272139E+03 -2.500000E-01 1.537436E+03 2.333518E+03 1.208264E+03 54.1168 3.207616E+03 6.633378E+02 1.272139E+03 0 35 2.500000E-01 -5.297598E+02 -8.040709E+02 -1.339368E+03 -42.0766 6.794572E+02 -2.013288E+03 1.346373E+03 -2.500000E-01 5.297598E+02 8.040709E+02 1.339368E+03 47.9234 2.013288E+03 -6.794572E+02 1.346373E+03 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 37 2.500000E-01 -2.690955E+03 -4.084338E+03 -2.378547E+02 -9.4251 -2.651471E+03 -4.123822E+03 7.361752E+02 -2.500000E-01 2.690955E+03 4.084338E+03 2.378547E+02 80.5749 4.123822E+03 2.651471E+03 7.361752E+02 0 38 2.500000E-01 -2.427541E+03 -3.684532E+03 -6.903142E+02 -23.8419 -2.122474E+03 -3.989600E+03 9.335631E+02 -2.500000E-01 2.427541E+03 3.684532E+03 6.903142E+02 66.1581 3.989600E+03 2.122474E+03 9.335631E+02 0 39 2.500000E-01 -1.926542E+03 -2.924094E+03 -1.075189E+03 -32.5568 -1.240072E+03 -3.610564E+03 1.185246E+03 -2.500000E-01 1.926542E+03 2.924094E+03 1.075189E+03 57.4432 3.610564E+03 1.240072E+03 1.185246E+03 0 40 2.500000E-01 -1.236886E+03 -1.877356E+03 -1.354821E+03 -38.3506 -1.649684E+02 -2.949274E+03 1.392153E+03 -2.500000E-01 1.236886E+03 1.877356E+03 1.354821E+03 51.6494 2.949274E+03 1.649684E+02 1.392153E+03 0 41 2.500000E-01 -4.261984E+02 -6.468893E+02 -1.501829E+03 -42.8989 9.693336E+02 -2.042421E+03 1.505877E+03 -2.500000E-01 4.261984E+02 6.468893E+02 1.501829E+03 47.1011 2.042421E+03 -9.693336E+02 1.505877E+03 0 43 2.500000E-01 -1.970898E+03 -2.991426E+03 -2.577414E+02 -13.3995 -1.909497E+03 -3.052826E+03 5.716643E+02 -2.500000E-01 1.970898E+03 2.991426E+03 2.577414E+02 76.6005 3.052826E+03 1.909497E+03 5.716643E+02 0 44 2.500000E-01 -1.777955E+03 -2.698587E+03 -7.479908E+02 -29.1958 -1.359988E+03 -3.116554E+03 8.782832E+02 -2.500000E-01 1.777955E+03 2.698587E+03 7.479908E+02 60.8042 3.116554E+03 1.359988E+03 8.782832E+02 0 45 2.500000E-01 -1.411025E+03 -2.141644E+03 -1.165025E+03 -36.2952 -5.553785E+02 -2.997291E+03 1.220956E+03 -2.500000E-01 1.411025E+03 2.141644E+03 1.165025E+03 53.7048 2.997291E+03 5.553785E+02 1.220956E+03 0 46 2.500000E-01 -9.059346E+02 -1.375020E+03 -1.468016E+03 -40.4613 3.461572E+02 -2.627112E+03 1.486635E+03 -2.500000E-01 9.059346E+02 1.375020E+03 1.468016E+03 49.5387 2.627112E+03 -3.461572E+02 1.486635E+03 0 47 2.500000E-01 -3.121500E+02 -4.737850E+02 -1.627310E+03 -43.5784 1.236348E+03 -2.022283E+03 1.629315E+03 -2.500000E-01 3.121500E+02 4.737850E+02 1.627310E+03 46.4216 2.022283E+03 -1.236348E+03 1.629315E+03 0 49 2.500000E-01 -1.202298E+03 -1.824841E+03 -2.712677E+02 -20.5358 -1.100682E+03 -1.926457E+03 4.128875E+02 -2.500000E-01 1.202298E+03 1.824841E+03 2.712677E+02 69.4642 1.926457E+03 1.100682E+03 4.128875E+02 0 50 2.500000E-01 -1.084586E+03 -1.646190E+03 -7.872485E+02 -35.1846 -5.295591E+02 -2.201217E+03 8.358290E+02 -2.500000E-01 1.084586E+03 1.646190E+03 7.872485E+02 54.8154 2.201217E+03 5.295591E+02 8.358290E+02 0 51 2.500000E-01 -8.607558E+02 -1.306448E+03 -1.226171E+03 -39.8497 1.626550E+02 -2.329859E+03 1.246257E+03 -2.500000E-01 8.607558E+02 1.306448E+03 1.226171E+03 50.1503 2.329859E+03 -1.626550E+02 1.246257E+03 0 52 2.500000E-01 -5.526537E+02 -8.388065E+02 -1.545066E+03 -42.3547 8.559465E+02 -2.247407E+03 1.551677E+03 -2.500000E-01 5.526537E+02 8.388065E+02 1.545066E+03 47.6453 2.247407E+03 -8.559465E+02 1.551677E+03 0 53 2.500000E-01 -1.904378E+02 -2.890386E+02 -1.712721E+03 -44.1756 1.473692E+03 -1.953168E+03 1.713430E+03 -2.500000E-01 1.904378E+02 2.890386E+02 1.712721E+03 45.8244 1.953168E+03 -1.473692E+03 1.713430E+03 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 55 2.500000E-01 -4.040676E+02 -6.132980E+02 -2.781147E+02 -34.6929 -2.115428E+02 -8.058227E+02 2.971399E+02 -2.500000E-01 4.040676E+02 6.132980E+02 2.781147E+02 55.3071 8.058227E+02 2.115428E+02 2.971399E+02 0 56 2.500000E-01 -3.645296E+02 -5.532803E+02 -8.071258E+02 -41.6654 3.537197E+02 -1.271530E+03 8.126246E+02 -2.500000E-01 3.645296E+02 5.532803E+02 8.071258E+02 48.3346 1.271530E+03 -3.537197E+02 8.126246E+02 0 57 2.500000E-01 -2.893006E+02 -4.390941E+02 -1.257128E+03 -43.2952 8.951595E+02 -1.623554E+03 1.259357E+03 -2.500000E-01 2.893006E+02 4.390941E+02 1.257128E+03 46.7048 1.623554E+03 -8.951595E+02 1.259357E+03 0 58 2.500000E-01 -1.857386E+02 -2.819124E+02 -1.584073E+03 -44.1306 1.350978E+03 -1.818629E+03 1.584803E+03 -2.500000E-01 1.857386E+02 2.819124E+02 1.584073E+03 45.8694 1.818629E+03 -1.350978E+03 1.584803E+03 0 59 2.500000E-01 -6.398275E+01 -9.712123E+01 -1.755958E+03 -44.7297 1.675484E+03 -1.836589E+03 1.756036E+03 -2.500000E-01 6.398275E+01 9.712123E+01 1.755958E+03 45.2703 1.836589E+03 -1.675484E+03 1.756036E+03 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN MATERIAL COORDINATE SYSTEM) ELEMENT MAT. COORD. SYS. STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 1000 -5.134327E+03 -7.792875E+03 -2.187884E+01 -0.4715 -5.134147E+03 -7.793055E+03 1.329454E+03 1 5.134327E+03 7.792875E+03 2.187884E+01 89.5285 7.793055E+03 5.134147E+03 1.329454E+03 0 2 1000 -4.631738E+03 -7.030051E+03 -6.350370E+01 -1.5157 -4.630058E+03 -7.031731E+03 1.200837E+03 1 4.631738E+03 7.030051E+03 6.350370E+01 88.4843 7.031731E+03 4.630058E+03 1.200837E+03 0 3 1000 -3.675779E+03 -5.579090E+03 -9.894109E+01 -2.9678 -3.670650E+03 -5.584220E+03 9.567849E+02 1 3.675779E+03 5.579090E+03 9.894109E+01 87.0322 5.584220E+03 3.670650E+03 9.567849E+02 0 4 1000 -2.359995E+03 -3.581999E+03 -1.246695E+02 -5.7662 -2.347406E+03 -3.594588E+03 6.235909E+02 1 2.359995E+03 3.581999E+03 1.246695E+02 84.2338 3.594588E+03 2.347406E+03 6.235909E+02 0 5 1000 -8.131960E+02 -1.234267E+03 -1.381958E+02 -16.6405 -7.718917E+02 -1.275571E+03 2.518398E+02 1 8.131960E+02 1.234267E+03 1.381958E+02 73.3595 1.275571E+03 7.718917E+02 2.518398E+02 0 7 1000 -5.007916E+03 -7.601000E+03 -6.510917E+01 -1.4374 -5.006282E+03 -7.602634E+03 1.298176E+03 1 5.007916E+03 7.601000E+03 6.510917E+01 88.5626 7.602634E+03 5.006282E+03 1.298176E+03 0 8 1000 -4.517688E+03 -6.856945E+03 -1.889994E+02 -4.5895 -4.502516E+03 -6.872117E+03 1.184800E+03 1 4.517688E+03 6.856945E+03 1.889994E+02 85.4105 6.872117E+03 4.502516E+03 1.184800E+03 0 9 1000 -3.585243E+03 -5.441688E+03 -2.943682E+02 -8.7977 -3.539685E+03 -5.487246E+03 9.737809E+02 1 3.585243E+03 5.441688E+03 2.943682E+02 81.2023 5.487246E+03 3.539685E+03 9.737809E+02 0 10 1000 -2.301889E+03 -3.493802E+03 -3.709324E+02 -15.9494 -2.195880E+03 -3.599810E+03 7.019650E+02 1 2.301889E+03 3.493802E+03 3.709324E+02 74.0506 3.599810E+03 2.195880E+03 7.019650E+02 0 11 1000 -7.931724E+02 -1.203876E+03 -4.111891E+02 -31.7310 -5.389094E+02 -1.458139E+03 4.596149E+02 1 7.931724E+02 1.203876E+03 4.111891E+02 58.2690 1.458139E+03 5.389094E+02 4.596149E+02 0 13 1000 -4.758152E+03 -7.221924E+03 -1.067458E+02 -2.4762 -4.753536E+03 -7.226540E+03 1.236502E+03 1 4.758152E+03 7.221924E+03 1.067458E+02 87.5238 7.226540E+03 4.753536E+03 1.236502E+03 0 14 1000 -4.292411E+03 -6.515015E+03 -3.098193E+02 -7.7890 -4.250032E+03 -6.557394E+03 1.153681E+03 1 4.292411E+03 6.515015E+03 3.098193E+02 82.2110 6.557394E+03 4.250032E+03 1.153681E+03 0 15 1000 -3.406450E+03 -5.170317E+03 -4.825649E+02 -14.3430 -3.283060E+03 -5.293708E+03 1.005324E+03 1 3.406450E+03 5.170317E+03 4.825649E+02 75.6570 5.293708E+03 3.283060E+03 1.005324E+03 0 16 1000 -2.187079E+03 -3.319551E+03 -6.080723E+02 -23.5202 -1.922427E+03 -3.584203E+03 8.308882E+02 1 2.187079E+03 3.319551E+03 6.080723E+02 66.4798 3.584203E+03 1.922427E+03 8.308882E+02 0 17 1000 -7.536347E+02 -1.143856E+03 -6.740545E+02 -36.9282 -2.470205E+02 -1.650470E+03 7.017247E+02 1 7.536347E+02 1.143856E+03 6.740545E+02 53.0718 1.650470E+03 2.470205E+02 7.017247E+02 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN MATERIAL COORDINATE SYSTEM) ELEMENT MAT. COORD. SYS. STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 19 1000 -4.391279E+03 -6.665070E+03 -1.457515E+02 -3.6528 -4.381975E+03 -6.674375E+03 1.146200E+03 1 4.391279E+03 6.665070E+03 1.457515E+02 86.3472 6.674375E+03 4.381975E+03 1.146200E+03 0 20 1000 -3.961416E+03 -6.012635E+03 -4.230221E+02 -11.2071 -3.877601E+03 -6.096450E+03 1.109425E+03 1 3.961416E+03 6.012635E+03 4.230221E+02 78.7929 6.096450E+03 3.877601E+03 1.109425E+03 0 21 1000 -3.143800E+03 -4.771658E+03 -6.588788E+02 -19.4952 -2.910542E+03 -5.004917E+03 1.047188E+03 1 3.143800E+03 4.771658E+03 6.588788E+02 70.5048 5.004917E+03 2.910542E+03 1.047188E+03 0 22 1000 -2.018459E+03 -3.063608E+03 -8.302386E+02 -28.9063 -1.560024E+03 -3.522043E+03 9.810099E+02 1 2.018459E+03 3.063608E+03 8.302386E+02 61.0937 3.522043E+03 1.560024E+03 9.810099E+02 0 23 1000 -6.955280E+02 -1.055661E+03 -9.203232E+02 -39.4648 6.217871E+01 -1.813368E+03 9.377733E+02 1 6.955280E+02 1.055661E+03 9.203232E+02 50.5352 1.813368E+03 -6.217871E+01 9.377733E+02 0 25 1000 -3.916242E+03 -5.944071E+03 -1.811772E+02 -5.0656 -3.900182E+03 -5.960131E+03 1.029974E+03 1 3.916242E+03 5.944071E+03 1.811772E+02 84.9343 5.960131E+03 3.900182E+03 1.029974E+03 0 26 1000 -3.532906E+03 -5.362237E+03 -5.258011E+02 -14.9464 -3.392546E+03 -5.502598E+03 1.055026E+03 1 3.532906E+03 5.362237E+03 5.258011E+02 75.0536 5.502598E+03 3.392546E+03 1.055026E+03 0 27 1000 -2.803715E+03 -4.255481E+03 -8.189681E+02 -24.2241 -2.435242E+03 -4.623954E+03 1.094356E+03 1 2.803715E+03 4.255481E+03 8.189681E+02 65.7759 4.623954E+03 2.435242E+03 1.094356E+03 0 28 1000 -1.800087E+03 -2.732178E+03 -1.031947E+03 -32.8476 -1.133828E+03 -3.398437E+03 1.132304E+03 1 1.800087E+03 2.732178E+03 1.031947E+03 57.1524 3.398437E+03 1.133828E+03 1.132304E+03 0 29 1000 -6.202542E+02 -9.414305E+02 -1.143931E+03 -41.0044 3.743055E+02 -1.935990E+03 1.155148E+03 1 6.202542E+02 9.414305E+02 1.143931E+03 48.9956 1.935990E+03 -3.743055E+02 1.155148E+03 0 31 1000 -3.344785E+03 -5.076715E+03 -2.121380E+02 -6.8824 -3.319180E+03 -5.102320E+03 8.915702E+02 1 3.344785E+03 5.076715E+03 2.121380E+02 83.1176 5.102320E+03 3.319180E+03 8.915702E+02 0 32 1000 -3.017392E+03 -4.579791E+03 -6.156367E+02 -19.1202 -2.803965E+03 -4.793217E+03 9.946260E+02 1 3.017392E+03 4.579791E+03 6.156367E+02 70.8798 4.793217E+03 2.803965E+03 9.946260E+02 0 33 1000 -2.394592E+03 -3.634517E+03 -9.588719E+02 -28.5576 -1.872719E+03 -4.156391E+03 1.141836E+03 1 2.394592E+03 3.634517E+03 9.588719E+02 61.4424 4.156391E+03 1.872719E+03 1.141836E+03 0 34 1000 -1.537436E+03 -2.333518E+03 -1.208264E+03 -35.8832 -6.633378E+02 -3.207616E+03 1.272139E+03 1 1.537436E+03 2.333518E+03 1.208264E+03 54.1168 3.207616E+03 6.633378E+02 1.272139E+03 0 35 1000 -5.297598E+02 -8.040709E+02 -1.339368E+03 -42.0766 6.794572E+02 -2.013288E+03 1.346373E+03 1 5.297598E+02 8.040709E+02 1.339368E+03 47.9234 2.013288E+03 -6.794572E+02 1.346373E+03 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN MATERIAL COORDINATE SYSTEM) ELEMENT MAT. COORD. SYS. STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 37 1000 -2.690955E+03 -4.084338E+03 -2.378547E+02 -9.4251 -2.651471E+03 -4.123822E+03 7.361752E+02 1 2.690955E+03 4.084338E+03 2.378547E+02 80.5749 4.123822E+03 2.651471E+03 7.361752E+02 0 38 1000 -2.427541E+03 -3.684532E+03 -6.903142E+02 -23.8419 -2.122474E+03 -3.989600E+03 9.335631E+02 1 2.427541E+03 3.684532E+03 6.903142E+02 66.1581 3.989600E+03 2.122474E+03 9.335631E+02 0 39 1000 -1.926542E+03 -2.924094E+03 -1.075189E+03 -32.5568 -1.240072E+03 -3.610564E+03 1.185246E+03 1 1.926542E+03 2.924094E+03 1.075189E+03 57.4432 3.610564E+03 1.240072E+03 1.185246E+03 0 40 1000 -1.236886E+03 -1.877356E+03 -1.354821E+03 -38.3506 -1.649684E+02 -2.949274E+03 1.392153E+03 1 1.236886E+03 1.877356E+03 1.354821E+03 51.6494 2.949274E+03 1.649684E+02 1.392153E+03 0 41 1000 -4.261984E+02 -6.468893E+02 -1.501829E+03 -42.8989 9.693336E+02 -2.042421E+03 1.505877E+03 1 4.261984E+02 6.468893E+02 1.501829E+03 47.1011 2.042421E+03 -9.693336E+02 1.505877E+03 0 43 1000 -1.970898E+03 -2.991426E+03 -2.577414E+02 -13.3995 -1.909497E+03 -3.052826E+03 5.716643E+02 1 1.970898E+03 2.991426E+03 2.577414E+02 76.6005 3.052826E+03 1.909497E+03 5.716643E+02 0 44 1000 -1.777955E+03 -2.698587E+03 -7.479908E+02 -29.1958 -1.359988E+03 -3.116554E+03 8.782832E+02 1 1.777955E+03 2.698587E+03 7.479908E+02 60.8042 3.116554E+03 1.359988E+03 8.782832E+02 0 45 1000 -1.411025E+03 -2.141644E+03 -1.165025E+03 -36.2952 -5.553785E+02 -2.997291E+03 1.220956E+03 1 1.411025E+03 2.141644E+03 1.165025E+03 53.7048 2.997291E+03 5.553785E+02 1.220956E+03 0 46 1000 -9.059346E+02 -1.375020E+03 -1.468016E+03 -40.4613 3.461572E+02 -2.627112E+03 1.486635E+03 1 9.059346E+02 1.375020E+03 1.468016E+03 49.5387 2.627112E+03 -3.461572E+02 1.486635E+03 0 47 1000 -3.121500E+02 -4.737850E+02 -1.627310E+03 -43.5784 1.236348E+03 -2.022283E+03 1.629315E+03 1 3.121500E+02 4.737850E+02 1.627310E+03 46.4216 2.022283E+03 -1.236348E+03 1.629315E+03 0 49 1000 -1.202298E+03 -1.824841E+03 -2.712677E+02 -20.5358 -1.100682E+03 -1.926457E+03 4.128875E+02 1 1.202298E+03 1.824841E+03 2.712677E+02 69.4642 1.926457E+03 1.100682E+03 4.128875E+02 0 50 1000 -1.084586E+03 -1.646190E+03 -7.872485E+02 -35.1846 -5.295591E+02 -2.201217E+03 8.358290E+02 1 1.084586E+03 1.646190E+03 7.872485E+02 54.8154 2.201217E+03 5.295591E+02 8.358290E+02 0 51 1000 -8.607558E+02 -1.306448E+03 -1.226171E+03 -39.8497 1.626550E+02 -2.329859E+03 1.246257E+03 1 8.607558E+02 1.306448E+03 1.226171E+03 50.1503 2.329859E+03 -1.626550E+02 1.246257E+03 0 52 1000 -5.526537E+02 -8.388065E+02 -1.545066E+03 -42.3547 8.559465E+02 -2.247407E+03 1.551677E+03 1 5.526537E+02 8.388065E+02 1.545066E+03 47.6453 2.247407E+03 -8.559465E+02 1.551677E+03 0 53 1000 -1.904378E+02 -2.890386E+02 -1.712721E+03 -44.1756 1.473692E+03 -1.953168E+03 1.713430E+03 1 1.904378E+02 2.890386E+02 1.712721E+03 45.8244 1.953168E+03 -1.473692E+03 1.713430E+03 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN MATERIAL COORDINATE SYSTEM) ELEMENT MAT. COORD. SYS. STRESSES IN MATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 55 1000 -4.040676E+02 -6.132980E+02 -2.781147E+02 -34.6929 -2.115428E+02 -8.058227E+02 2.971399E+02 1 4.040676E+02 6.132980E+02 2.781147E+02 55.3071 8.058227E+02 2.115428E+02 2.971399E+02 0 56 1000 -3.645296E+02 -5.532803E+02 -8.071258E+02 -41.6654 3.537197E+02 -1.271530E+03 8.126246E+02 1 3.645296E+02 5.532803E+02 8.071258E+02 48.3346 1.271530E+03 -3.537197E+02 8.126246E+02 0 57 1000 -2.893006E+02 -4.390941E+02 -1.257128E+03 -43.2952 8.951595E+02 -1.623554E+03 1.259357E+03 1 2.893006E+02 4.390941E+02 1.257128E+03 46.7048 1.623554E+03 -8.951595E+02 1.259357E+03 0 58 1000 -1.857386E+02 -2.819124E+02 -1.584073E+03 -44.1306 1.350978E+03 -1.818629E+03 1.584803E+03 1 1.857386E+02 2.819124E+02 1.584073E+03 45.8694 1.818629E+03 -1.350978E+03 1.584803E+03 0 59 1000 -6.398275E+01 -9.712123E+01 -1.755958E+03 -44.7297 1.675484E+03 -1.836589E+03 1.756036E+03 1 6.398275E+01 9.712123E+01 1.755958E+03 45.2703 1.836589E+03 -1.675484E+03 1.756036E+03 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S A T G R I D P O I N T S (IN MATERIAL COORDINATE SYSTEM) POINT MAT. COORD. SYS. STRESSES INMATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 1000 -5.412447E+03 -8.215008E+03 1.159304E+02 2.3647 -5.407660E+03 -8.219795E+03 1.406068E+03 503 5.412447E+03 8.215008E+03 -1.159304E+02 -87.6353 8.219795E+03 5.407660E+03 1.406068E+03 0 2 1000 -4.975675E+03 -7.552078E+03 1.322150E-02 0.0003 -4.975676E+03 -7.552078E+03 1.288201E+03 503 4.975675E+03 7.552078E+03 -1.322150E-02 -89.9997 7.552078E+03 4.975676E+03 1.288201E+03 0 3 1000 -4.239363E+03 -6.434500E+03 -3.953982E+00 -0.1032 -4.239355E+03 -6.434507E+03 1.097575E+03 503 4.239363E+03 6.434500E+03 3.953982E+00 89.8968 6.434507E+03 4.239355E+03 1.097575E+03 0 4 1000 -3.087997E+03 -4.686955E+03 -1.473942E+01 -0.5281 -3.087861E+03 -4.687091E+03 7.996147E+02 503 3.087997E+03 4.686955E+03 1.473942E+01 89.4719 4.687091E+03 3.087861E+03 7.996147E+02 0 5 1000 -1.609170E+03 -2.442397E+03 -1.440378E+01 -0.9901 -1.608921E+03 -2.442646E+03 4.168622E+02 503 1.609170E+03 2.442397E+03 1.440378E+01 89.0099 2.442646E+03 1.608921E+03 4.168622E+02 0 6 1000 -2.973753E+02 -4.513539E+02 -8.367082E+01 -23.6907 -2.606625E+02 -4.880666E+02 1.137021E+02 503 2.973753E+02 4.513539E+02 8.367082E+01 66.3093 4.880666E+02 2.606625E+02 1.137021E+02 0 7 1000 -5.238118E+03 -7.950405E+03 5.388284E+01 1.1377 -5.237048E+03 -7.951476E+03 1.357214E+03 503 5.238118E+03 7.950405E+03 -5.388284E+01 -88.8624 7.951476E+03 5.237048E+03 1.357214E+03 0 8 1000 -4.875125E+03 -7.399459E+03 -9.774213E+01 -2.2141 -4.871346E+03 -7.403238E+03 1.265946E+03 503 4.875125E+03 7.399459E+03 9.774213E+01 87.7859 7.403238E+03 4.871346E+03 1.265946E+03 0 9 1000 -4.162800E+03 -6.318296E+03 -1.614362E+02 -4.2595 -4.150776E+03 -6.330320E+03 1.089772E+03 503 4.162800E+03 6.318296E+03 1.614362E+02 85.7405 6.330320E+03 4.150776E+03 1.089772E+03 0 10 1000 -3.030241E+03 -4.599297E+03 -2.258318E+02 -8.0294 -2.998384E+03 -4.631154E+03 8.163850E+02 503 3.030241E+03 4.599297E+03 2.258318E+02 81.9706 4.631154E+03 2.998384E+03 8.163850E+02 0 11 1000 -1.548027E+03 -2.349593E+03 -2.552258E+02 -16.2449 -1.473661E+03 -2.423960E+03 4.751495E+02 503 1.548027E+03 2.349593E+03 2.552258E+02 73.7551 2.423960E+03 1.473661E+03 4.751495E+02 0 12 1000 -2.115782E+02 -3.211316E+02 -3.183424E+02 -40.1184 5.666577E+01 -5.893756E+02 3.230207E+02 503 2.115782E+02 3.211316E+02 3.183424E+02 49.8816 5.893756E+02 -5.666577E+01 3.230207E+02 0 13 1000 -5.010431E+03 -7.604823E+03 2.322411E+01 0.5128 -5.010223E+03 -7.605031E+03 1.297404E+03 503 5.010431E+03 7.604823E+03 -2.322411E+01 -89.4872 7.605031E+03 5.010223E+03 1.297404E+03 0 14 1000 -4.704003E+03 -7.139728E+03 -1.760344E+02 -4.1124 -4.691346E+03 -7.152384E+03 1.230519E+03 503 4.704003E+03 7.139728E+03 1.760344E+02 85.8876 7.152384E+03 4.691346E+03 1.230519E+03 0 15 1000 -4.010997E+03 -6.087896E+03 -3.219900E+02 -8.6135 -3.962223E+03 -6.136670E+03 1.087223E+03 503 4.010997E+03 6.087896E+03 3.219900E+02 81.3865 6.136670E+03 3.962223E+03 1.087223E+03 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S A T G R I D P O I N T S (IN MATERIAL COORDINATE SYSTEM) POINT MAT. COORD. SYS. STRESSES INMATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 16 1000 -2.921089E+03 -4.433632E+03 -4.466739E+02 -15.2836 -2.799030E+03 -4.555691E+03 8.783304E+02 503 2.921089E+03 4.433632E+03 4.466739E+02 74.7164 4.555691E+03 2.799030E+03 8.783304E+02 0 17 1000 -1.497415E+03 -2.272773E+03 -5.177765E+02 -26.5882 -1.238266E+03 -2.531923E+03 6.468287E+02 503 1.497415E+03 2.272773E+03 5.177765E+02 63.4118 2.531923E+03 1.238266E+03 6.468287E+02 0 18 1000 -1.779182E+02 -2.700389E+02 -5.759235E+02 -42.7137 3.537838E+02 -8.017410E+02 5.777624E+02 503 1.779182E+02 2.700389E+02 5.759235E+02 47.2863 8.017410E+02 -3.537838E+02 5.777624E+02 0 19 1000 -4.681554E+03 -7.105657E+03 1.672077E+00 0.0395 -4.681553E+03 -7.105658E+03 1.212052E+03 503 4.681554E+03 7.105657E+03 -1.672077E+00 -89.9605 7.105658E+03 4.681553E+03 1.212052E+03 0 20 1000 -4.412221E+03 -6.696860E+03 -2.509875E+02 -6.1960 -4.384973E+03 -6.724108E+03 1.169568E+03 503 4.412221E+03 6.696860E+03 2.509875E+02 83.8040 6.724108E+03 4.384973E+03 1.169568E+03 0 21 1000 -3.758303E+03 -5.704352E+03 -4.751817E+02 -13.0144 -3.648472E+03 -5.814182E+03 1.082855E+03 503 3.758303E+03 5.704352E+03 4.751817E+02 76.9856 5.814182E+03 3.648472E+03 1.082855E+03 0 22 1000 -2.737074E+03 -4.154333E+03 -6.558763E+02 -21.3930 -2.480132E+03 -4.411276E+03 9.655722E+02 503 2.737074E+03 4.154333E+03 6.558763E+02 68.6070 4.411276E+03 2.480132E+03 9.655722E+02 0 23 1000 -1.408172E+03 -2.137314E+03 -7.665382E+02 -32.2819 -9.239246E+02 -2.621562E+03 8.488186E+02 503 1.408172E+03 2.137314E+03 7.665382E+02 57.7181 2.621562E+03 9.239246E+02 8.488186E+02 0 24 1000 -1.507021E+02 -2.287276E+02 -8.269897E+02 -43.6496 6.381945E+02 -1.017624E+03 8.279094E+02 503 1.507021E+02 2.287276E+02 8.269897E+02 46.3504 1.017624E+03 -6.381945E+02 8.279094E+02 0 25 1000 -4.248349E+03 -6.448138E+03 -1.547431E+01 -0.4030 -4.248240E+03 -6.448246E+03 1.100003E+03 503 4.248349E+03 6.448138E+03 1.547431E+01 89.5970 6.448246E+03 4.248240E+03 1.100003E+03 0 26 1000 -4.007302E+03 -6.082276E+03 -3.213080E+02 -8.6038 -3.958687E+03 -6.130892E+03 1.086103E+03 503 4.007302E+03 6.082276E+03 3.213080E+02 81.3962 6.130892E+03 3.958687E+03 1.086103E+03 0 27 1000 -3.412460E+03 -5.179430E+03 -6.164155E+02 -17.4519 -3.218674E+03 -5.373216E+03 1.077271E+03 503 3.412460E+03 5.179430E+03 6.164155E+02 72.5481 5.373216E+03 3.218674E+03 1.077271E+03 0 28 1000 -2.484400E+03 -3.770823E+03 -8.484420E+02 -26.4170 -2.062917E+03 -4.192306E+03 1.064694E+03 503 2.484400E+03 3.770823E+03 8.484420E+02 63.5830 4.192306E+03 2.062917E+03 1.064694E+03 0 29 1000 -1.281956E+03 -1.945751E+03 -9.946729E+02 -35.7737 -5.652692E+02 -2.662439E+03 1.048585E+03 503 1.281956E+03 1.945751E+03 9.946729E+02 54.2263 2.662439E+03 5.652692E+02 1.048585E+03 0 30 1000 -1.211170E+02 -1.838302E+02 -1.061139E+03 -44.1537 9.091285E+02 -1.214076E+03 1.061602E+03 503 1.211170E+02 1.838302E+02 1.061139E+03 45.8463 1.214076E+03 -9.091285E+02 1.061602E+03 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S A T G R I D P O I N T S (IN MATERIAL COORDINATE SYSTEM) POINT MAT. COORD. SYS. STRESSES INMATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 31 1000 -3.718076E+03 -5.643295E+03 -2.960088E+01 -0.8807 -3.717621E+03 -5.643750E+03 9.630649E+02 503 3.718076E+03 5.643295E+03 2.960088E+01 89.1193 5.643750E+03 3.717621E+03 9.630649E+02 0 32 1000 -3.501687E+03 -5.314855E+03 -3.844437E+02 -11.4899 -3.423542E+03 -5.393000E+03 9.847296E+02 503 3.501687E+03 5.314855E+03 3.844437E+02 78.5101 5.393000E+03 3.423542E+03 9.847296E+02 0 33 1000 -2.983081E+03 -4.527717E+03 -7.422441E+02 -21.9312 -2.684230E+03 -4.826567E+03 1.071168E+03 503 2.983081E+03 4.527717E+03 7.422441E+02 68.0688 4.826567E+03 2.684230E+03 1.071168E+03 0 34 1000 -2.170286E+03 -3.294063E+03 -1.020220E+03 -30.5781 -1.567456E+03 -3.896893E+03 1.164718E+03 503 2.170286E+03 3.294063E+03 1.020220E+03 59.4219 3.896893E+03 1.567456E+03 1.164718E+03 0 35 1000 -1.124092E+03 -1.706151E+03 -1.197585E+03 -38.1706 -1.826814E+02 -2.647562E+03 1.232440E+03 503 1.124092E+03 1.706151E+03 1.197585E+03 51.8294 2.647562E+03 1.826814E+02 1.232440E+03 0 36 1000 -8.655007E+01 -1.313699E+02 -1.271597E+03 -44.4952 1.162834E+03 -1.380754E+03 1.271794E+03 503 8.655007E+01 1.313699E+02 1.271597E+03 45.5048 1.380754E+03 -1.162834E+03 1.271794E+03 0 37 1000 -3.102701E+03 -4.709281E+03 -4.141850E+01 -1.4758 -3.101634E+03 -4.710348E+03 8.043571E+02 503 3.102701E+03 4.709281E+03 4.141850E+01 88.5242 4.710348E+03 3.101634E+03 8.043571E+02 0 38 1000 -2.908363E+03 -4.414317E+03 -4.384298E+02 -15.1053 -2.790022E+03 -4.532658E+03 8.713182E+02 503 2.908363E+03 4.414317E+03 4.384298E+02 74.8947 4.532658E+03 2.790022E+03 8.713182E+02 0 39 1000 -2.480795E+03 -3.765349E+03 -8.496696E+02 -26.4569 -2.057962E+03 -4.188181E+03 1.065109E+03 503 2.480795E+03 3.765349E+03 8.496696E+02 63.5431 4.188181E+03 2.057962E+03 1.065109E+03 0 40 1000 -1.802366E+03 -2.735630E+03 -1.167071E+03 -34.1034 -1.012097E+03 -3.525899E+03 1.256901E+03 503 1.802366E+03 2.735630E+03 1.167071E+03 55.8966 3.525899E+03 1.012097E+03 1.256901E+03 0 41 1000 -9.395004E+02 -1.425978E+03 -1.370510E+03 -39.9680 2.091882E+02 -2.574667E+03 1.391928E+03 503 9.395004E+02 1.425978E+03 1.370510E+03 50.0320 2.574667E+03 -2.091882E+02 1.391928E+03 0 42 1000 -4.526099E+01 -6.870167E+01 -1.452950E+03 -44.7689 1.396016E+03 -1.509979E+03 1.452997E+03 503 4.526099E+01 6.870167E+01 1.452950E+03 45.2311 1.509979E+03 -1.396016E+03 1.452997E+03 0 43 1000 -2.418063E+03 -3.670136E+03 -5.153229E+01 -2.3529 -2.415946E+03 -3.672253E+03 6.281537E+02 503 2.418063E+03 3.670136E+03 5.153229E+01 87.6471 3.672253E+03 2.415946E+03 6.281537E+02 0 44 1000 -2.241295E+03 -3.401845E+03 -4.815924E+02 -19.8453 -2.067481E+03 -3.575659E+03 7.540891E+02 503 2.241295E+03 3.401845E+03 4.815924E+02 70.1547 3.575659E+03 2.067481E+03 7.540891E+02 0 45 1000 -1.917746E+03 -2.910753E+03 -9.360900E+02 -31.0292 -1.354636E+03 -3.473863E+03 1.059613E+03 503 1.917746E+03 2.910753E+03 9.360900E+02 58.9708 3.473863E+03 1.354636E+03 1.059613E+03 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S A T G R I D P O I N T S (IN MATERIAL COORDINATE SYSTEM) POINT MAT. COORD. SYS. STRESSES INMATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 46 1000 -1.389427E+03 -2.108866E+03 -1.285354E+03 -37.1826 -4.144058E+02 -3.083887E+03 1.334741E+03 503 1.389427E+03 2.108866E+03 1.285354E+03 52.8174 3.083887E+03 4.144058E+02 1.334741E+03 0 47 1000 -7.338983E+02 -1.113914E+03 -1.508995E+03 -41.4116 5.970037E+02 -2.444816E+03 1.520910E+03 503 7.338983E+02 1.113914E+03 1.508995E+03 48.5884 2.444816E+03 -5.970037E+02 1.520910E+03 0 48 1000 4.863134E+00 7.375687E+00 -1.601109E+03 -45.0225 1.607229E+03 -1.594991E+03 1.601110E+03 503 -4.863134E+00 -7.375687E+00 1.601109E+03 44.9775 1.594991E+03 -1.607229E+03 1.601110E+03 0 49 1000 -1.683967E+03 -2.555920E+03 -6.084562E+01 -3.9725 -1.679742E+03 -2.560146E+03 4.402021E+02 503 1.683967E+03 2.555920E+03 6.084562E+01 86.0275 2.560146E+03 1.679742E+03 4.402021E+02 0 50 1000 -1.513944E+03 -2.297867E+03 -5.121187E+02 -26.2853 -1.261003E+03 -2.550808E+03 6.449025E+02 503 1.513944E+03 2.297867E+03 5.121187E+02 63.7147 2.550808E+03 1.261003E+03 6.449025E+02 0 51 1000 -1.306063E+03 -1.982343E+03 -9.990259E+02 -35.6503 -5.895033E+02 -2.698902E+03 1.054700E+03 503 1.306063E+03 1.982343E+03 9.990259E+02 54.3497 2.698902E+03 5.895033E+02 1.054700E+03 0 52 1000 -9.415195E+02 -1.429027E+03 -1.371778E+03 -39.9621 2.079935E+02 -2.578540E+03 1.393267E+03 503 9.415195E+02 1.429027E+03 1.371778E+03 50.0379 2.578540E+03 -2.079935E+02 1.393267E+03 0 53 1000 -5.147592E+02 -7.812952E+02 -1.608785E+03 -42.6323 9.662677E+02 -2.262322E+03 1.614295E+03 503 5.147592E+02 7.812952E+02 1.608785E+03 47.3677 2.262322E+03 -9.662677E+02 1.614295E+03 0 54 1000 6.787238E+01 1.030137E+02 -1.713586E+03 -45.2937 1.799119E+03 -1.628233E+03 1.713676E+03 503 -6.787238E+01 -1.030137E+02 1.713586E+03 44.7063 1.628233E+03 -1.799119E+03 1.713676E+03 0 55 1000 -9.308094E+02 -1.412781E+03 -7.235959E+01 -8.3566 -9.201802E+02 -1.423410E+03 2.516150E+02 503 9.308094E+02 1.412781E+03 7.235959E+01 81.6434 1.423410E+03 9.201802E+02 2.516150E+02 0 56 1000 -7.462652E+02 -1.132682E+03 -5.294288E+02 -34.9755 -3.758918E+02 -1.503055E+03 5.635817E+02 503 7.462652E+02 1.132682E+03 5.294288E+02 55.0245 1.503055E+03 3.758918E+02 5.635817E+02 0 57 1000 -6.603292E+02 -1.002245E+03 -1.036352E+03 -40.3164 2.190710E+02 -1.881645E+03 1.050358E+03 503 6.603292E+02 1.002245E+03 1.036352E+03 49.6836 1.881645E+03 -2.190710E+02 1.050358E+03 0 58 1000 -4.720674E+02 -7.164954E+02 -1.423694E+03 -42.5468 8.346487E+02 -2.023211E+03 1.428930E+03 503 4.720674E+02 7.164954E+02 1.423694E+03 47.4532 2.023211E+03 -8.346487E+02 1.428930E+03 0 59 1000 -2.858381E+02 -4.338409E+02 -1.667309E+03 -43.7293 1.309111E+03 -2.028790E+03 1.668951E+03 503 2.858381E+02 4.338409E+02 1.667309E+03 46.2707 2.028790E+03 -1.309111E+03 1.668951E+03 0 60 1000 1.575309E+02 2.390941E+02 -1.791454E+03 -45.6520 1.990231E+03 -1.593606E+03 1.791919E+03 503 -1.575309E+02 -2.390941E+02 1.791454E+03 44.3480 1.593606E+03 -1.990231E+03 1.791919E+03 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R E S S E S A T G R I D P O I N T S (IN MATERIAL COORDINATE SYSTEM) POINT MAT. COORD. SYS. STRESSES INMATERIAL COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. ID./OUTPUT CODE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 61 1000 -2.446324E+02 -3.713096E+02 -1.017026E+02 -29.0430 -1.881579E+02 -4.277842E+02 1.198131E+02 503 2.446324E+02 3.713096E+02 1.017026E+02 60.9570 4.277842E+02 1.881579E+02 1.198131E+02 0 62 1000 -4.210839E+01 -6.391433E+01 -5.503413E+02 -44.4325 4.974379E+02 -6.034606E+02 5.504493E+02 503 4.210839E+01 6.391433E+01 5.503413E+02 45.5675 6.034606E+02 -4.974379E+02 5.504493E+02 0 63 1000 -4.309179E+01 -6.540018E+01 -1.056104E+03 -44.6974 1.001917E+03 -1.110409E+03 1.056163E+03 503 4.309179E+01 6.540018E+01 1.056104E+03 45.3026 1.110409E+03 -1.001917E+03 1.056163E+03 0 64 1000 -1.158768E+01 -1.758555E+01 -1.449877E+03 -44.9407 1.435293E+03 -1.464467E+03 1.449880E+03 503 1.158768E+01 1.758555E+01 1.449877E+03 45.0593 1.464467E+03 -1.435293E+03 1.449880E+03 0 65 1000 9.407043E-03 6.347656E-03 -1.701701E+03 -45.0000 1.701709E+03 -1.701693E+03 1.701701E+03 503 -9.407043E-03 -6.347656E-03 1.701701E+03 45.0000 1.701693E+03 -1.701709E+03 1.701701E+03 0 66 1000 3.389859E+02 5.144959E+02 -1.851078E+03 -46.3571 2.279898E+03 -1.426416E+03 1.853157E+03 503 -3.389859E+02 -5.144959E+02 1.851078E+03 43.6429 1.426416E+03 -2.279898E+03 1.853157E+03 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R A I N S / C U R V A T U R E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT STRAIN STRNS./CURVS. IN ELEMENT COORD SYSTEM PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST) MAXIMUM ID. CURVATURE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR/TWIST 0 1 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -6.117778E-02 -1.509628E-02 7.591248E-04 89.5281 -1.509315E-02 -6.118090E-02 4.608775E-02 0 2 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.518931E-02 -1.361854E-02 2.201796E-03 88.4841 -1.358941E-02 -5.521844E-02 4.162904E-02 0 3 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.379847E-02 -1.080774E-02 3.430128E-03 87.0321 -1.071882E-02 -4.388739E-02 3.316857E-02 0 4 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.812038E-02 -6.939002E-03 4.321814E-03 84.2339 -6.720795E-03 -2.833859E-02 2.161779E-02 0 5 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -9.689569E-03 -2.391021E-03 4.790783E-03 73.3595 -1.675081E-03 -1.040551E-02 8.730429E-03 0 7 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.967138E-02 -1.472457E-02 2.257586E-03 88.5623 -1.469625E-02 -5.969971E-02 4.500346E-02 0 8 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.383037E-02 -1.328324E-02 6.552458E-03 85.4101 -1.302022E-02 -5.409338E-02 4.107316E-02 0 9 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.272002E-02 -1.054164E-02 1.020479E-02 81.2023 -9.751953E-03 -4.350970E-02 3.375775E-02 0 10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.742796E-02 -6.768140E-03 1.285911E-02 74.0505 -4.930627E-03 -2.926547E-02 2.433484E-02 0 11 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -9.450994E-03 -2.332138E-03 1.425445E-02 58.2691 2.075044E-03 -1.385818E-02 1.593322E-02 0 13 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.669567E-02 -1.399029E-02 3.701210E-03 87.5233 -1.391024E-02 -5.677571E-02 4.286547E-02 0 14 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.114594E-02 -1.262083E-02 1.074076E-02 82.2108 -1.188620E-02 -5.188056E-02 3.999436E-02 0 15 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.058964E-02 -1.001595E-02 1.672912E-02 75.6568 -7.877143E-03 -4.272845E-02 3.485131E-02 0 16 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.606016E-02 -6.430654E-03 2.107990E-02 66.4798 -1.843329E-03 -3.064749E-02 2.880416E-02 0 17 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -8.979693E-03 -2.215862E-03 2.336723E-02 53.0718 6.565453E-03 -1.776101E-02 2.432646E-02 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R A I N S / C U R V A T U R E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT STRAIN STRNS./CURVS. IN ELEMENT COORD SYSTEM PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST) MAXIMUM ID. CURVATURE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR/TWIST 0 19 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.232393E-02 -1.291154E-02 5.053043E-03 86.3470 -1.275024E-02 -5.248523E-02 3.973499E-02 0 20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.720213E-02 -1.164766E-02 1.466465E-02 78.7930 -1.019489E-02 -4.865490E-02 3.846000E-02 0 21 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.745983E-02 -9.243628E-03 2.284098E-02 70.5049 -5.200529E-03 -4.150293E-02 3.630240E-02 0 22 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.405068E-02 -5.934753E-03 2.878141E-02 61.0938 2.011377E-03 -3.199681E-02 3.400818E-02 0 23 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -8.287281E-03 -2.044971E-03 3.190458E-02 50.5352 1.108863E-02 -2.142088E-02 3.250952E-02 0 25 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.666379E-02 -1.151477E-02 6.280899E-03 84.9343 -1.123638E-02 -4.694217E-02 3.570579E-02 0 26 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.209603E-02 -1.038763E-02 1.822805E-02 75.0535 -7.954644E-03 -4.452902E-02 3.657437E-02 0 27 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.340762E-02 -8.243671E-03 2.839112E-02 65.7758 -1.856724E-03 -3.979457E-02 3.793785E-02 0 28 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.144899E-02 -5.292756E-03 3.577423E-02 57.1524 6.255765E-03 -3.299751E-02 3.925328E-02 0 29 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -7.390812E-03 -1.823756E-03 3.965628E-02 48.9956 1.541528E-02 -2.462985E-02 4.004513E-02 0 31 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.985463E-02 -9.834521E-03 7.354259E-03 83.1175 -9.390675E-03 -4.029848E-02 3.090780E-02 0 32 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.595342E-02 -8.871842E-03 2.134204E-02 70.8798 -5.172458E-03 -3.965280E-02 3.448034E-02 0 33 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.853277E-02 -7.040728E-03 3.324115E-02 61.4423 2.005180E-03 -3.757868E-02 3.958386E-02 0 34 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.831919E-02 -4.520444E-03 4.188657E-02 54.1167 1.063063E-02 -3.347027E-02 4.410091E-02 0 35 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -6.312374E-03 -1.557647E-03 4.643142E-02 47.9234 1.940211E-02 -2.727213E-02 4.667424E-02 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R A I N S / C U R V A T U R E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT STRAIN STRNS./CURVS. IN ELEMENT COORD SYSTEM PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST) MAXIMUM ID. CURVATURE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR/TWIST 0 37 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.206413E-02 -7.912155E-03 8.245945E-03 80.5746 -7.227720E-03 -3.274857E-02 2.552084E-02 0 38 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.892550E-02 -7.137667E-03 2.393103E-02 66.1580 -1.849776E-03 -3.421339E-02 3.236362E-02 0 39 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.295538E-02 -5.664488E-03 3.727329E-02 57.4432 6.234366E-03 -3.485423E-02 4.108860E-02 0 40 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.473830E-02 -3.636822E-03 4.696703E-02 51.6494 1.494305E-02 -3.331817E-02 4.826121E-02 0 41 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -5.078472E-03 -1.253165E-03 5.206341E-02 47.1011 2.293606E-02 -2.926769E-02 5.220375E-02 0 43 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.348410E-02 -5.794950E-03 8.935213E-03 76.6003 -4.730639E-03 -2.454841E-02 1.981777E-02 0 44 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.118533E-02 -5.227700E-03 2.593040E-02 60.8041 2.017083E-03 -2.843012E-02 3.044720E-02 0 45 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.681278E-02 -4.148740E-03 4.038739E-02 53.7048 1.068241E-02 -3.164393E-02 4.232634E-02 0 46 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.079448E-02 -2.663663E-03 5.089128E-02 49.5387 1.903928E-02 -3.249742E-02 5.153671E-02 0 47 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.719518E-03 -9.178389E-04 5.641344E-02 46.4216 2.592281E-02 -3.056016E-02 5.648297E-02 0 49 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.432582E-02 -3.535084E-03 9.404004E-03 69.4641 -1.773721E-03 -1.608719E-02 1.431347E-02 0 50 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.292352E-02 -3.189050E-03 2.729130E-02 54.8153 6.431423E-03 -2.254400E-02 2.897542E-02 0 51 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.025618E-02 -2.530843E-03 4.250735E-02 50.1503 1.520832E-02 -2.799534E-02 4.320365E-02 0 52 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -6.584862E-03 -1.624880E-03 5.356231E-02 47.6453 2.279087E-02 -3.100061E-02 5.379147E-02 0 53 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.268968E-03 -5.598860E-04 5.937433E-02 45.8244 2.828503E-02 -3.111389E-02 5.939892E-02 1 SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A 0 S T R A I N S / C U R V A T U R E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT STRAIN STRNS./CURVS. IN ELEMENT COORD SYSTEM PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST) MAXIMUM ID. CURVATURE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR/TWIST 0 55 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.814792E-03 -1.188125E-03 9.641312E-03 55.3071 2.148969E-03 -8.151887E-03 1.030086E-02 0 56 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.343497E-03 -1.071822E-03 2.798040E-02 48.3346 1.137785E-02 -1.679317E-02 2.817103E-02 0 57 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.447015E-03 -8.505806E-04 4.358041E-02 46.7048 1.968004E-02 -2.397764E-02 4.365768E-02 0 58 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.213120E-03 -5.461071E-04 5.491451E-02 45.8694 2.609029E-02 -2.884951E-02 5.493980E-02 0 59 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -7.625768E-04 -1.881756E-04 6.087321E-02 45.2703 2.996258E-02 -3.091334E-02 6.087592E-02 * * * END OF JOB * * * 1 JOB TITLE = SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT DATE: 5/17/95 END TIME: 15: 2:33 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d01121a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01121A,NASTRAN TIME 30 APP HEAT SOL 1,1 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A 0 SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A 3 LABEL = SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER 4 OLOAD = ALL 5 SPCFORCES= ALL 6 THERMAL(PRINT,PUNCH) = ALL 7 ELFORCE = ALL 8 SUBCASE 123 9 LABEL = TEMPERATURE SPECIFIED AT OUTER BOUNDARY 10 SPC = 351 11 LOAD = 251 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 86, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A 0 SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CHBDY 701 702 AREA4 1 12 112 101 2- CHEXA1 1 200 1 2 13 12 101 102 +SOL1 3- +SOL1 113 112 4- CHEXA2 2 200 2 3 14 13 102 103 +SOL2 5- +SOL2 114 113 6- CORD2C 111 0 .0 .0 .0 .0 .0 100.0 +CORD111 7- +CORD111100.0 .0 .0 8- CTETRA 3 200 104 114 3 103 9- CTETRA 4 200 104 15 4 3 10- CTETRA 5 200 115 15 104 114 11- CTETRA 6 200 15 14 3 114 12- CTETRA 7 200 114 104 3 15 13- CWEDGE 8 200 4 5 15 104 105 115 14- CWEDGE 9 200 5 16 15 105 116 115 15- CWEDGE 10 200 5 6 16 105 106 116 16- CWEDGE 11 200 6 17 16 106 117 116 17- CWEDGE 12 200 6 7 17 106 107 117 18- CWEDGE 13 200 7 18 17 107 118 117 19- CWEDGE 14 200 7 8 18 107 108 118 20- CWEDGE 15 200 8 19 18 108 119 118 21- CWEDGE 16 200 8 9 19 108 109 119 22- CWEDGE 17 200 9 20 19 109 120 119 23- CWEDGE 18 200 9 10 20 109 110 120 24- CWEDGE 19 200 10 21 20 110 121 120 25- CWEDGE 20 200 10 11 21 110 111 121 26- CWEDGE 21 200 11 22 21 111 122 121 27- GRDSET 111 28- GRID 1 111 1.0 .0 .0 29- GRID 2 111 1.1 .0 .0 30- GRID 3 111 1.2 .0 .0 31- GRID 4 111 1.3 .0 .0 32- GRID 5 111 1.4 .0 .0 33- GRID 6 111 1.5 .0 .0 34- GRID 7 111 1.6 .0 .0 35- GRID 8 111 1.7 .0 .0 36- GRID 9 111 1.8 .0 .0 37- GRID 10 111 1.9 .0 .0 38- GRID 11 111 2.0 .0 .0 39- GRID 12 111 1.0 4.0 .0 40- GRID 13 111 1.1 4.0 .0 41- GRID 14 111 1.2 4.0 .0 42- GRID 15 111 1.3 4.0 .0 43- GRID 16 111 1.4 4.0 .0 44- GRID 17 111 1.5 4.0 .0 45- GRID 18 111 1.6 4.0 .0 46- GRID 19 111 1.7 4.0 .0 47- GRID 20 111 1.8 4.0 .0 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 21 111 1.9 4.0 .0 49- GRID 22 111 2.0 4.0 .0 50- GRID 101 111 1.0 .0 1.0-1 51- GRID 102 111 1.1 .0 1.0-1 52- GRID 103 111 1.2 .0 1.0-1 53- GRID 104 111 1.3 .0 1.0-1 54- GRID 105 111 1.4 .0 1.0-1 55- GRID 106 111 1.5 .0 1.0-1 56- GRID 107 111 1.6 .0 1.0-1 57- GRID 108 111 1.7 .0 1.0-1 58- GRID 109 111 1.8 .0 1.0-1 59- GRID 110 111 1.9 .0 1.0-1 60- GRID 111 111 2.0 .0 1.0-1 61- GRID 112 111 1.0 4.0 1.0-1 62- GRID 113 111 1.1 4.0 1.0-1 63- GRID 114 111 1.2 4.0 1.0-1 64- GRID 115 111 1.3 4.0 1.0-1 65- GRID 116 111 1.4 4.0 1.0-1 66- GRID 117 111 1.5 4.0 1.0-1 67- GRID 118 111 1.6 4.0 1.0-1 68- GRID 119 111 1.7 4.0 1.0-1 69- GRID 120 111 1.8 4.0 1.0-1 70- GRID 121 111 1.9 4.0 1.0-1 71- GRID 122 111 2.0 4.0 1.0-1 72- MAT4 200 1.0 73- PARAM IRES 1 74- PHBDY 702 75- QBDY1 251 288.5 701 76- SEQGP 12 1.1 13 2.1 14 3.1 15 4.1 77- SEQGP 16 5.1 17 6.1 18 7.1 19 8.1 78- SEQGP 20 9.1 21 10.1 22 11.1 79- SEQGP 101 1.2 102 2.2 103 3.2 104 4.2 80- SEQGP 105 5.2 106 6.2 107 7.2 108 8.2 81- SEQGP 109 9.2 110 10.2 111 11.2 82- SEQGP 112 1.3 113 2.3 114 3.3 115 4.3 83- SEQGP 116 5.3 117 6.3 118 7.3 119 8.3 84- SEQGP 120 9.3 121 10.3 122 11.3 85- SPC 351 11 1 .0 22 1 .0 86- SPC 351 111 1 .0 122 1 .0 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF SEQGP CARDS 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HBDY ELEMENTS (ELEMENT TYPE 52) STARTING WITH ID 701 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HEXA1 ELEMENTS (ELEMENT TYPE 41) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HEXA2 ELEMENTS (ELEMENT TYPE 42) STARTING WITH ID 2 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TETRA ELEMENTS (ELEMENT TYPE 39) STARTING WITH ID 3 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION WEDGE ELEMENTS (ELEMENT TYPE 40) STARTING WITH ID 8 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -4.4266622E-16 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A 0 SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER 0 HRULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1- S). 1 S -3.33067E-16 12 S -4.44089E-16 101 S -8.88178E-16 112 S 2.66454E-15 2 S -6.24500E-15 13 S -9.71445E-16 102 S 6.66134E-16 113 S 1.55431E-15 3 S -2.22045E-15 14 S 2.44249E-15 103 S -2.22045E-16 114 S -1.55431E-15 4 S -3.40006E-16 15 S -1.21431E-15 104 S 1.33227E-15 115 S 1.33227E-15 5 S 1.49837E-15 16 S -7.56339E-16 105 S 4.44089E-16 116 S 1.33227E-15 6 S 1.45717E-15 17 S 1.67227E-15 106 S 2.44249E-15 117 S -4.44089E-16 7 S 6.38378E-16 18 S -2.72699E-15 107 S -8.88178E-16 118 S 2.22045E-16 8 S 5.55112E-17 19 S 5.89806E-16 108 S -4.44089E-16 9 S 3.08781E-16 20 S 1.30798E-15 109 S 5.55112E-17 120 S 3.88578E-16 10 S -4.99600E-16 21 S 6.66134E-16 110 S -2.22045E-16 121 S -4.44089E-16 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A 0 TEMPERATURE SPECIFIED AT OUTER BOUNDARY SUBCASE 123 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 1.994187E+02 1.718267E+02 1.467834E+02 1.231581E+02 1.027777E+02 8.292779E+01 7 S 6.432259E+01 4.684700E+01 3.037104E+01 1.478588E+01 0.0 2.034128E+02 13 S 1.740188E+02 1.488803E+02 1.248486E+02 1.028775E+02 8.293189E+01 6.432233E+01 19 S 4.684689E+01 3.037100E+01 1.478588E+01 0.0 101 S 2.034151E+02 1.740255E+02 1.489236E+02 1.251343E+02 1.028302E+02 8.291599E+01 107 S 6.431886E+01 4.684620E+01 3.037088E+01 1.478585E+01 0.0 1.994211E+02 113 S 1.718352E+02 1.468322E+02 1.235158E+02 1.027420E+02 8.291391E+01 6.431948E+01 119 S 4.684640E+01 3.037092E+01 1.478586E+01 0.0 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A 0 TEMPERATURE SPECIFIED AT OUTER BOUNDARY SUBCASE 123 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 5.034252E-01 12 S 5.034252E-01 101 S 5.034252E-01 112 S 5.034252E-01 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A 0 TEMPERATURE SPECIFIED AT OUTER BOUNDARY SUBCASE 123 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 11 S -5.034260E-01 22 S -5.034252E-01 111 S -5.034248E-01 122 S -5.034248E-01 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A 0 TEMPERATURE SPECIFIED AT OUTER BOUNDARY SUBCASE 123 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 701 HBDY 0.000000E+00 0.000000E+00 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A 0 TEMPERATURE SPECIFIED AT OUTER BOUNDARY SUBCASE 123 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 1 HEXA1 -2.791185E+02 -9.747375E+00 4.882812E-02 2.791185E+02 9.747375E+00 -4.882812E-02 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A 0 TEMPERATURE SPECIFIED AT OUTER BOUNDARY SUBCASE 123 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 2 HEXA2 -2.507174E+02 -8.732483E+00 2.664185E-01 2.507174E+02 8.732483E+00 -2.664185E-01 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A 0 TEMPERATURE SPECIFIED AT OUTER BOUNDARY SUBCASE 123 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 3 TETRA -2.378942E+02 -3.329272E+01 2.140247E+01 2.378942E+02 3.329272E+01 -2.140247E+01 4 TETRA -2.362532E+02 1.039120E+01 1.976148E+01 2.362532E+02 -1.039120E+01 -1.976148E+01 5 TETRA -2.319188E+02 -2.594576E+01 -1.332739E+01 2.319188E+02 2.594576E+01 1.332739E+01 6 TETRA -2.420652E+02 1.659753E+01 -2.048145E+01 2.420652E+02 -1.659753E+01 2.048145E+01 7 TETRA -2.181166E+02 -8.975220E+00 1.624939E+00 2.181166E+02 8.975220E+00 -1.624939E+00 1 LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A 0 TEMPERATURE SPECIFIED AT OUTER BOUNDARY SUBCASE 123 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 8 WEDGE -2.102163E+02 -5.954407E+00 2.319763E+00 2.102163E+02 5.954407E+00 -2.319763E+00 9 WEDGE -2.117557E+02 -7.014702E+00 -4.718903E+00 2.117557E+02 7.014702E+00 4.718903E+00 10 WEDGE -1.987133E+02 -6.981262E+00 -3.157349E-01 1.987133E+02 6.981262E+00 3.157349E-01 11 WEDGE -1.986737E+02 -6.918308E+00 -5.507812E-01 1.986737E+02 6.918308E+00 5.507812E-01 12 WEDGE -1.860250E+02 -6.521973E+00 -1.117554E-01 1.860250E+02 6.521973E+00 1.117554E-01 13 WEDGE -1.859946E+02 -6.494610E+00 -8.190918E-02 1.859946E+02 6.494610E+00 8.190918E-02 14 WEDGE -1.747461E+02 -6.107910E+00 -2.462769E-02 1.747461E+02 6.107910E+00 2.462769E-02 15 WEDGE -1.747388E+02 -6.102112E+00 -1.379395E-02 1.747388E+02 6.102112E+00 1.379395E-02 16 WEDGE -1.647576E+02 -5.754456E+00 -4.837036E-03 1.647576E+02 5.754456E+00 4.837036E-03 17 WEDGE -1.647562E+02 -5.753418E+00 -2.456665E-03 1.647562E+02 5.753418E+00 2.456665E-03 18 WEDGE -1.558512E+02 -5.442581E+00 -9.078979E-04 1.558512E+02 5.442581E+00 9.078979E-04 19 WEDGE -1.558509E+02 -5.442414E+00 -4.425049E-04 1.558509E+02 5.442414E+00 4.425049E-04 20 WEDGE -1.478587E+02 -5.163376E+00 -1.411438E-04 1.478587E+02 5.163376E+00 1.411438E-04 21 WEDGE -1.478586E+02 -5.163278E+00 -4.959106E-05 1.478586E+02 5.163278E+00 4.959106E-05 * * * END OF JOB * * * 1 JOB TITLE = LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER DATE: 5/17/95 END TIME: 15: 3:11 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01122a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01122A,NASTRAN APP HEAT DIAG 14 SOL 1,0 TIME 10 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A 0 RING ELEMENTS, FILM HEAT TRANSFER 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = LINEAR STEADY STATE CONDUCTION THROUGH A WASHER 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A 3 LABEL = RING ELEMENTS, FILM HEAT TRANSFER 4 OUTPUT 5 OLOAD = ALL 6 SPCFORCE = ALL 7 THERMAL (PRINT,PUNCH) = ALL 8 ELFORCE = ALL 9 SPC = 350 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 48, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A 0 RING ELEMENTS, FILM HEAT TRANSFER 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CHBDY 14 100 REV 1 12 +HBDY14 2- +HBDY14 23 23 3- CTRAPRG 7 4 5 16 15 .0 200 4- CTRAPRG 8 5 6 17 16 .0 200 5- CTRAPRG 9 6 7 18 17 .0 200 6- CTRAPRG 10 7 8 19 18 .0 200 7- CTRAPRG 11 8 9 20 19 .0 200 8- CTRAPRG 12 9 10 21 20 .0 200 9- CTRAPRG 13 10 11 22 21 .0 200 10- CTRIARG 1 1 13 12 -45.0 200 11- CTRIARG 2 1 2 13 .0 200 12- CTRIARG 3 2 14 13 -45.0 200 13- CTRIARG 4 2 3 14 .0 200 14- CTRIARG 5 3 15 14 -45.0 200 15- CTRIARG 6 3 4 15 .0 200 16- GRID 1 1.0 .0 .0 17- GRID 2 1.1 .0 .0 18- GRID 3 1.2 .0 .0 19- GRID 4 1.3 .0 .0 20- GRID 5 1.4 .0 .0 21- GRID 6 1.5 .0 .0 22- GRID 7 1.6 .0 .0 23- GRID 8 1.7 .0 .0 24- GRID 9 1.8 .0 .0 25- GRID 10 1.9 .0 .0 26- GRID 11 2.0 .0 .0 27- GRID 12 1.0 .0 .1 28- GRID 13 1.1 .0 .1 29- GRID 14 1.2 .0 .1 30- GRID 15 1.3 .0 .1 31- GRID 16 1.4 .0 .1 32- GRID 17 1.5 .0 .1 33- GRID 18 1.6 .0 .1 34- GRID 19 1.7 .0 .1 35- GRID 20 1.8 .0 .1 36- GRID 21 1.9 .0 .1 37- GRID 22 2.0 .0 .1 38- MAT4 200 1.0 39- MAT4 300 1.0 40- PHBDY 100 300 41- SEQGP 12 1.1 13 2.1 14 3.1 15 4.1 42- SEQGP 16 5.1 17 6.1 18 7.1 19 8.1 43- SEQGP 20 9.1 21 10.1 22 11.1 23 1.0.5 44- SPC 352 23 488.5 45- SPC1 351 1 11 22 46- SPCADD 350 351 352 47- SPOINT 23 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A RING ELEMENTS, FILM HEAT TRANSFER S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- TEMPD 201 .0 ENDDATA 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A 0 RING ELEMENTS, FILM HEAT TRANSFER 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN HEAT 01 - STATIC HEAT TRANSFER ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE HQG=APPEND/HPGG=APPEND/HUGV=APPEND/HGM=SAVE/HKNN=SAVE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/ NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND HP1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND HP1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/ HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL HP1 $ 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A RING ELEMENTS, FILM HEAT TRANSFER COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 GP3 GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,HGEI,HGPECT,,,,,/ HLUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL $ 23 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ 24 COND ERROR4,NOELMT $ 25 PURGE HKGGX/NOSIMP $ 26 COND HLBL1,NOSIMP $ 27 PARAM //*ADD*/HNOKGG/1/0 $ 28 EMG HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $ 29 PURGE HKGGX/HNOKGG $ 30 COND HLBL1,HNOKGG $ 31 EMA HGPECT,HKDICT,HKELM/HKGGX $ 32 PURGE HKDICT,HKELM/MINUS1 $ 33 LABEL HLBL1 $ 34 EQUIV HKGGX,HKGG/NOGENL $ 35 COND HLBL11A,NOGENL $ 36 SMA3 HGEI,HKGGX/HKGG/HLUSET/NOGENL/NOSIMP $ 37 LABEL HLBL11A $ 38 GPSTGEN HKGG,HSIL/GPST $ 39 PARAM //*MPY*/NSKIP/0/0 $ 40 LABEL HLBL11 $ 41 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,HUSET, HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,HREPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A RING ELEMENTS, FILM HEAT TRANSFER COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 OFP OGPST,,,,,//S,N,CARDNO $ 43 COND ERROR3,NOL $ 44 PARAM //*AND*/NOSR/SINGLE/REACT $ 45 PURGE HKRR,HKLR,HQR,HDM/REACT/GM/MPCF1/HGO,HKOO,HLOO,HPO,HUOOV, HRUOV/OMIT/HPS,HKFS,HKSS/SINGLE/HQG/NOSR $ 46 EQUIV HKGG,HKNN/MPCF1 $ 47 COND HLBL2,MPCF1 $ 48 MCE1 HUSET,RG/GM $ 49 MCE2 HUSET,GM,HKGG,,,/HKNN,,, $ 50 LABEL HLBL2 $ 51 EQUIV HKNN,HKFF/SINGLE $ 52 COND HLBL3,SINGLE $ 53 SCE1 HUSET,HKNN,,,/HKFF,HKFS,HKSS,,, $ 54 LABEL HLBL3 $ 55 EQUIV HKFF,HKAA/OMIT $ 56 COND HLBL5,OMIT $ 57 SMP1 HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $ 58 LABEL HLBL5 $ 59 EQUIV HKAA,HKLL/REACT $ 60 COND HLBL6,REACT $ 61 RBMG1 HUSET,HKAA,/HKLL,HKLR,HKRR,,, $ 62 LABEL HLBL6 $ 63 RBMG2 HKLL/HLLL $ 64 COND HLBL7,REACT $ 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A RING ELEMENTS, FILM HEAT TRANSFER COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 65 RBMG3 HLLL,HKLR,HKRR/HDM $ 66 LABEL HLBL7 $ 67 SSG1 HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,/ HPG,,,,SCR/HLUSET/NSKIP $ 68 EQUIV HPG,HPL/NOSET $ 69 COND HLBL10,NOSET $ 70 SSG2 HUSET,GM,YS,HKFS,HGO,HDM,HPG/HQR,HPO,HPS,HPL $ 71 LABEL HLBL10 $ 72 SSG3 HLLL,HKLL,HPL,HLOO,HKOO,HPO/HULV,HUOOV,HRULV,HRUOV/OMIT/ V,Y,IRES=-1/NSKIP/S,N,EPSI $ 73 COND HLBL9,IRES $ 74 MATGPR GPL,HUSET,HSIL,HRULV//*L* $ 75 MATGPR GPL,HUSET,HSIL,HRUOV//*O* $ 76 LABEL HLBL9 $ 77 SDR1 HUSET,HPG,HULV,HUOOV,YS,HGO,GM,HPS,HKFS,HKSS,HQR/HUGV,HPGG, HQG/NSKIP/*HSTATICS* $ 78 COND HLBL8,HREPEAT $ 79 REPT HLBL11,100 $ 80 JUMP ERROR1 $ 81 PARAM //*NOT*/HTEST/HREPEAT $ 82 COND ERROR2,HTEST $ 83 LABEL HLBL8 $ 84 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV, HEST,,HPGG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/ *STATICS* $ 85 OFP HOUGV1,HOPG1,HOQG1,HOEF1,,//S,N,CARDNO $ 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A RING ELEMENTS, FILM HEAT TRANSFER COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 86 COND HP2,JUMPPLOT $ 87 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIP,HPUGV1,HOES1, HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ 88 PRTMSG PLOTX2// $ 89 LABEL HP2 $ 90 JUMP FINIS $ 91 LABEL ERROR1 $ 92 PRTPARM //-1/*HSTA* $ 93 LABEL ERROR2 $ 94 PRTPARM //-2/*HSTA* $ 95 LABEL ERROR3 $ 96 PRTPARM //-3/*HSTA* $ 97 LABEL ERROR4 $ 98 PRTPARM //-4/*HSTA* $ 99 LABEL FINIS $ 100 PURGE DUMMY/MINUS1 $ 101 END $ 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF SEQGP CARDS 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A RING ELEMENTS, FILM HEAT TRANSFER 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HBDY ELEMENTS (ELEMENT TYPE 52) STARTING WITH ID 14 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRAPRG ELEMENTS (ELEMENT TYPE 37) STARTING WITH ID 7 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIARG ELEMENTS (ELEMENT TYPE 36) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -9.5293695E-16 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A 0 RING ELEMENTS, FILM HEAT TRANSFER T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 1.997820E+02 1.724320E+02 1.473660E+02 1.243215E+02 1.029022E+02 8.299373E+01 7 S 6.437527E+01 4.688614E+01 3.039657E+01 1.479833E+01 0.0 2.000835E+02 13 S 1.724639E+02 1.473435E+02 1.242162E+02 1.028848E+02 8.299084E+01 6.437479E+01 19 S 4.688606E+01 3.039655E+01 1.479832E+01 0.0 4.885000E+02 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A 0 RING ELEMENTS, FILM HEAT TRANSFER F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 11 S -9.065610E+01 22 S -9.065608E+01 1.813122E+02 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A 0 RING ELEMENTS, FILM HEAT TRANSFER F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 14 HBDY -2.885673E+02 1.813122E+02 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A 0 RING ELEMENTS, FILM HEAT TRANSFER F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 7 TRAPRG -2.137535E+02 -6.135254E-01 2.137535E+02 6.135254E-01 8 TRAPRG -1.990119E+02 -1.015015E-01 1.990119E+02 1.015015E-01 9 TRAPRG -1.861725E+02 -1.681519E-02 1.861725E+02 1.681519E-02 10 TRAPRG -1.748893E+02 -2.807617E-03 1.748893E+02 2.807617E-03 11 TRAPRG -1.648956E+02 -4.730225E-04 1.648956E+02 4.730225E-04 12 TRAPRG -1.559823E+02 -7.629395E-05 1.559823E+02 7.629395E-05 13 TRAPRG -1.479832E+02 -7.629395E-06 1.479832E+02 7.629395E-06 1 LINEAR STEADY STATE CONDUCTION THROUGH A WASHER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A 0 RING ELEMENTS, FILM HEAT TRANSFER F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 1 TRIARG -1.931675E+02 1.974312E+02 1.931675E+02 -1.974312E+02 2 TRIARG -2.734998E+02 3.195801E-01 2.734998E+02 -3.195801E-01 3 TRIARG -1.774022E+02 1.778540E+02 1.774022E+02 -1.778540E+02 4 TRIARG -2.506598E+02 -2.246094E-01 2.506598E+02 2.246094E-01 5 TRIARG -1.636938E+02 1.633762E+02 1.636938E+02 -1.633762E+02 6 TRIARG -2.304453E+02 -1.052856E+00 2.304453E+02 1.052856E+00 * * * END OF JOB * * * 1 JOB TITLE = LINEAR STEADY STATE CONDUCTION THROUGH A WASHER DATE: 5/17/95 END TIME: 15: 3:44 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01131a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01131A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 15 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 3 DISP = ALL 4 STRESS= ALL 5 SPC = 100 6 SUBCASE 1 7 LABEL = PRESSURE LOAD 8 LOAD = 400 9 SUBCASE 2 10 LABEL = THERMAL LOAD 11 TEMP(LOAD) = 500 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 226, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CIHEX1 1 200 1 2 20 19 7 8 +HEX1-1 2- +HEX1-1 26 25 3- CIHEX1 2 200 2 3 21 20 8 9 +HEX1-2 4- +HEX1-2 27 26 5- CIHEX1 3 200 3 4 22 21 9 10 +HEX1-3 6- +HEX1-3 28 27 7- CIHEX1 4 200 4 5 23 22 10 11 +HEX1-4 8- +HEX1-4 29 28 9- CIHEX1 5 200 5 6 24 23 11 12 +HEX1-5 10- +HEX1-5 30 29 11- CIHEX1 6 200 19 20 38 37 25 26 +HEX1-6 12- +HEX1-6 44 43 13- CIHEX1 7 200 20 21 39 38 26 27 +HEX1-7 14- +HEX1-7 45 44 15- CIHEX1 8 200 21 22 40 39 27 28 +HEX1-8 16- +HEX1-8 46 45 17- CIHEX1 9 200 22 23 41 40 28 29 +HEX1-9 18- +HEX1-9 47 46 19- CIHEX1 10 200 23 24 42 41 29 30 +HEX1-10 20- +HEX1-1048 47 21- CIHEX1 11 200 37 38 56 55 43 44 +HEX1-11 22- +HEX1-1162 61 23- CIHEX1 12 200 38 39 57 56 44 45 +HEX1-12 24- +HEX1-1263 62 25- CIHEX1 13 200 39 40 58 57 45 46 +HEX1-13 26- +HEX1-1364 63 27- CIHEX1 14 200 40 41 59 58 46 47 +HEX1-14 28- +HEX1-1465 64 29- CIHEX1 15 200 41 42 60 59 47 48 +HEX1-15 30- +HEX1-1566 65 31- CIHEX1 16 200 55 56 74 73 61 62 +HEX1-16 32- +HEX1-1680 79 33- CIHEX1 17 200 56 57 75 74 62 63 +HEX1-17 34- +HEX1-1781 80 35- CIHEX1 18 200 57 58 76 75 63 64 +HEX1-18 36- +HEX1-1882 81 37- CIHEX1 19 200 58 59 77 76 64 65 +HEX1-19 38- +HEX1-1983 82 39- CIHEX1 20 200 59 60 78 77 65 66 +HEX1-20 40- +HEX1-2084 83 41- CIHEX1 21 200 7 8 26 25 13 14 +HEX1-21 42- +HEX1-2132 31 43- CIHEX1 22 200 8 9 27 26 14 15 +HEX1-22 44- +HEX1-2233 32 45- CIHEX1 23 200 9 10 28 27 15 16 +HEX1-23 46- +HEX1-2334 33 47- CIHEX1 24 200 10 11 29 28 16 17 +HEX1-24 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- +HEX1-2435 34 49- CIHEX1 25 200 11 12 30 29 17 18 +HEX1-25 50- +HEX1-2536 35 51- CIHEX1 26 200 25 26 44 43 31 32 +HEX1-26 52- +HEX1-2650 49 53- CIHEX1 27 200 26 27 45 44 32 33 +HEX1-27 54- +HEX1-2751 50 55- CIHEX1 28 200 27 28 46 45 33 34 +HEX1-28 56- +HEX1-2852 51 57- CIHEX1 29 200 28 29 47 46 34 35 +HEX1-29 58- +HEX1-2953 52 59- CIHEX1 30 200 29 30 48 47 35 36 +HEX1-30 60- +HEX1-3054 53 61- CIHEX1 31 200 43 44 62 61 49 50 +HEX1-31 62- +HEX1-3168 67 63- CIHEX1 32 200 44 45 63 62 50 51 +HEX1-32 64- +HEX1-3269 68 65- CIHEX1 33 200 45 46 64 63 51 52 +HEX1-33 66- +HEX1-3370 69 67- CIHEX1 34 200 46 47 65 64 52 53 +HEX1-34 68- +HEX1-3471 70 69- CIHEX1 35 200 47 48 66 65 53 54 +HEX1-35 70- +HEX1-3572 71 71- CIHEX1 36 200 61 62 80 79 67 68 +HEX1-36 72- +HEX1-3686 85 73- CIHEX1 37 200 62 63 81 80 68 69 +HEX1-37 74- +HEX1-3787 86 75- CIHEX1 38 200 63 64 82 81 69 70 +HEX1-38 76- +HEX1-3888 87 77- CIHEX1 39 200 64 65 83 82 70 71 +HEX1-39 78- +HEX1-3989 88 79- CIHEX1 40 200 65 66 84 83 71 72 +HEX1-40 80- +HEX1-4090 89 81- CNGRNT 1 6 11 16 21 26 31 36 82- CNGRNT 2 7 12 17 22 27 32 37 83- CNGRNT 3 8 13 18 23 28 33 38 84- CNGRNT 4 9 14 19 24 29 34 39 85- CNGRNT 5 10 15 20 25 30 35 40 86- CORD2C 1 0 .0 .0 .0 .0 .0 100.0 +CORD2-1 87- +CORD2-1100.0 .0 .0 88- CORD2C 2 .0 .0 .5 .0 .0 100.0 +CORD2-2 89- +CORD2-2100.0 .0 2.0 90- CORD2C 3 .0 .0 1.0 .0 .0 100.0 +CORD2-3 91- +CORD2-3100.0 .0 2.0 92- GRDSET 1 1 456 93- GRID 1 4.0 -14.0 94- GRID 2 4.2 -14.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- GRID 3 4.4 -14.0 96- GRID 4 4.6 -14.0 97- GRID 5 4.8 -14.0 98- GRID 6 5.0 -14.0 99- GRID 7 2 4.0 -14.0 2 100- GRID 8 2 4.2 -14.0 2 101- GRID 9 2 4.4 -14.0 2 102- GRID 10 2 4.6 -14.0 2 103- GRID 11 2 4.8 -14.0 2 104- GRID 12 2 5.0 -14.0 2 105- GRID 13 3 4.0 -14.0 3 106- GRID 14 3 4.2 -14.0 3 107- GRID 15 3 4.4 -14.0 3 108- GRID 16 3 4.6 -14.0 3 109- GRID 17 3 4.8 -14.0 3 110- GRID 18 3 5.0 -14.0 3 111- GRID 19 4.0 -7.0 112- GRID 20 4.2 -7.0 113- GRID 21 4.4 -7.0 114- GRID 22 4.6 -7.0 115- GRID 23 4.8 -7.0 116- GRID 24 5.0 -7.0 117- GRID 25 2 4.0 -7.0 2 118- GRID 26 2 4.2 -7.0 2 119- GRID 27 2 4.4 -7.0 2 120- GRID 28 2 4.6 -7.0 2 121- GRID 29 2 4.8 -7.0 2 122- GRID 30 2 5.0 -7.0 2 123- GRID 31 3 4.0 -7.0 3 124- GRID 32 3 4.2 -7.0 3 125- GRID 33 3 4.4 -7.0 3 126- GRID 34 3 4.6 -7.0 3 127- GRID 35 3 4.8 -7.0 3 128- GRID 36 3 5.0 -7.0 3 129- GRID 37 4.0 130- GRID 38 4.2 131- GRID 39 4.4 132- GRID 40 4.6 133- GRID 41 4.8 134- GRID 42 5.0 135- GRID 43 2 4.0 2 136- GRID 44 2 4.2 2 137- GRID 45 2 4.4 2 138- GRID 46 2 4.6 2 139- GRID 47 2 4.8 2 140- GRID 48 2 5.0 2 141- GRID 49 3 4.0 3 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 50 3 4.2 3 143- GRID 51 3 4.4 3 144- GRID 52 3 4.6 3 145- GRID 53 3 4.8 3 146- GRID 54 3 5.0 3 147- GRID 55 4.0 7.0 148- GRID 56 4.2 7.0 149- GRID 57 4.4 7.0 150- GRID 58 4.6 7.0 151- GRID 59 4.8 7.0 152- GRID 60 5.0 7.0 153- GRID 61 2 4.0 7.0 2 154- GRID 62 2 4.2 7.0 2 155- GRID 63 2 4.4 7.0 2 156- GRID 64 2 4.6 7.0 2 157- GRID 65 2 4.8 7.0 2 158- GRID 66 2 5.0 7.0 2 159- GRID 67 3 4.0 7.0 3 160- GRID 68 3 4.2 7.0 3 161- GRID 69 3 4.4 7.0 3 162- GRID 70 3 4.6 7.0 3 163- GRID 71 3 4.8 7.0 3 164- GRID 72 3 5.0 7.0 3 165- GRID 73 4.0 14.0 166- GRID 74 4.2 14.0 167- GRID 75 4.4 14.0 168- GRID 76 4.6 14.0 169- GRID 77 4.8 14.0 170- GRID 78 5.0 14.0 171- GRID 79 2 4.0 14.0 2 172- GRID 80 2 4.2 14.0 2 173- GRID 81 2 4.4 14.0 2 174- GRID 82 2 4.6 14.0 2 175- GRID 83 2 4.8 14.0 2 176- GRID 84 2 5.0 14.0 2 177- GRID 85 3 4.0 14.0 3 178- GRID 86 3 4.2 14.0 3 179- GRID 87 3 4.4 14.0 3 180- GRID 88 3 4.6 14.0 3 181- GRID 89 3 4.8 14.0 3 182- GRID 90 3 5.0 14.0 3 183- MAT1 300 3.+7 .3 7.535-4 1.428-5 .0 184- PIHEX 200 300 4 4.5 10.0 185- PLOAD3 400 -10.0 1 1 25 21 7 31 186- PLOAD3 400 -10.0 6 19 43 26 25 49 187- PLOAD3 400 -10.0 11 37 61 31 43 67 188- PLOAD3 400 -10.0 16 55 79 36 61 85 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- SPC1 100 2 1 THRU 18 190- SPC1 100 2 73 THRU 90 191- SPC1 100 3 1 THRU 6 192- SPC1 100 3 13 THRU 18 193- SPC1 100 3 19 THRU 24 194- SPC1 100 3 31 THRU 36 195- SPC1 100 3 37 THRU 42 196- SPC1 100 3 49 THRU 54 197- SPC1 100 3 55 THRU 60 198- SPC1 100 3 67 THRU 72 199- SPC1 100 3 73 THRU 78 200- SPC1 100 3 85 THRU 90 201- TEMP 500 1 100.0 7 100.0 13 100.0 202- TEMP 500 2 78.14 8 78.14 14 78.14 203- TEMP 500 3 57.29 9 57.29 15 57.29 204- TEMP 500 4 37.37 10 37.37 16 37.37 205- TEMP 500 5 18.29 11 18.29 17 18.29 206- TEMP 500 19 100.0 25 100.0 31 100.0 207- TEMP 500 20 78.14 26 78.14 32 78.14 208- TEMP 500 21 57.29 27 57.29 33 57.29 209- TEMP 500 22 37.37 28 37.37 34 37.37 210- TEMP 500 23 18.29 29 18.29 35 18.29 211- TEMP 500 37 100.0 43 100.0 49 100.0 212- TEMP 500 38 78.14 44 78.14 50 78.14 213- TEMP 500 39 57.29 45 57.29 51 57.29 214- TEMP 500 40 37.37 46 37.37 52 37.37 215- TEMP 500 41 18.29 47 18.29 53 18.29 216- TEMP 500 55 100.0 61 100.0 67 100.0 217- TEMP 500 56 78.14 62 78.14 68 78.14 218- TEMP 500 57 57.29 63 57.29 69 57.29 219- TEMP 500 58 37.37 64 37.37 70 37.37 220- TEMP 500 59 18.29 65 18.29 71 18.29 221- TEMP 500 73 100.0 79 100.0 85 100.0 222- TEMP 500 74 78.14 80 78.14 86 78.14 223- TEMP 500 75 57.29 81 57.29 87 57.29 224- TEMP 500 76 37.37 82 37.37 88 37.37 225- TEMP 500 77 18.29 83 18.29 89 18.29 226- TEMPD 500 .0 ENDDATA 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 26 PROFILE 1821 MAX WAVEFRONT 26 AVG WAVEFRONT 20.233 RMS WAVEFRONT 21.286 RMS BANDWIDTH 21.665 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 31 PROFILE 1520 MAX WAVEFRONT 24 AVG WAVEFRONT 16.889 RMS WAVEFRONT 17.667 RMS BANDWIDTH 18.966 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 26 31 PROFILE (P) 1821 1520 MAXIMUM WAVEFRONT (C-MAX) 26 24 AVERAGE WAVEFRONT (C-AVG) 20.233 16.889 RMS WAVEFRONT (C-RMS) 21.286 17.667 RMS BANDWITCH (B-RMS) 21.665 18.966 NUMBER OF GRID POINTS (N) 90 NUMBER OF ELEMENTS (NON-RIGID) 40 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 26 MINIMUM NODAL DEGREE 7 NUMBER OF UNIQUE EDGES 683 MATRIX DENSITY, PERCENT 17.975 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 23 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 16 3 31 4 55 SEQGP 5 79 6 89 7 3 8 18 SEQGP 9 33 10 57 11 81 12 87 SEQGP 13 7 14 22 15 37 16 61 SEQGP 17 73 18 77 19 2 20 17 SEQGP 21 32 22 56 23 80 24 90 SEQGP 25 4 26 19 27 34 28 58 SEQGP 29 82 30 88 31 8 32 23 SEQGP 33 38 34 62 35 74 36 78 SEQGP 37 5 38 20 39 35 40 59 SEQGP 41 83 42 85 43 6 44 21 SEQGP 45 36 46 60 47 84 48 86 SEQGP 49 9 50 24 51 39 52 63 SEQGP 53 75 54 76 55 10 56 25 SEQGP 57 40 58 64 59 67 60 70 SEQGP 61 11 62 26 63 41 64 65 SEQGP 65 68 66 71 67 12 68 27 SEQGP 69 42 70 66 71 69 72 72 SEQGP 73 13 74 28 75 43 76 46 SEQGP 77 49 78 52 79 14 80 29 SEQGP 81 44 82 47 83 50 84 53 SEQGP 85 15 86 30 87 45 88 48 SEQGP 89 51 90 54 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION IHEX1 ELEMENTS (ELEMENT TYPE 65) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 3.9791579E-15 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 5.8231368E-15 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.038542E-06 0.0 0.0 0.0 0.0 0.0 2 G 5.871330E-06 0.0 0.0 0.0 0.0 0.0 3 G 5.724914E-06 0.0 0.0 0.0 0.0 0.0 4 G 5.596584E-06 0.0 0.0 0.0 0.0 0.0 5 G 5.484078E-06 0.0 0.0 0.0 0.0 0.0 6 G 5.385500E-06 0.0 0.0 0.0 0.0 0.0 7 G 6.038542E-06 0.0 -7.676236E-21 0.0 0.0 0.0 8 G 5.871330E-06 0.0 -1.849576E-21 0.0 0.0 0.0 9 G 5.724914E-06 0.0 7.411538E-22 0.0 0.0 0.0 10 G 5.596584E-06 0.0 1.164670E-21 0.0 0.0 0.0 11 G 5.484078E-06 0.0 1.852885E-21 0.0 0.0 0.0 12 G 5.385500E-06 0.0 4.923379E-21 0.0 0.0 0.0 13 G 6.038542E-06 0.0 0.0 0.0 0.0 0.0 14 G 5.871330E-06 0.0 0.0 0.0 0.0 0.0 15 G 5.724914E-06 0.0 0.0 0.0 0.0 0.0 16 G 5.596584E-06 0.0 0.0 0.0 0.0 0.0 17 G 5.484078E-06 0.0 0.0 0.0 0.0 0.0 18 G 5.385500E-06 0.0 0.0 0.0 0.0 0.0 19 G 6.038542E-06 8.933220E-13 0.0 0.0 0.0 0.0 20 G 5.871330E-06 4.705834E-13 0.0 0.0 0.0 0.0 21 G 5.724914E-06 2.134534E-13 0.0 0.0 0.0 0.0 22 G 5.596584E-06 -5.668907E-14 0.0 0.0 0.0 0.0 23 G 5.484079E-06 -3.613600E-13 0.0 0.0 0.0 0.0 24 G 5.385500E-06 -4.895789E-13 0.0 0.0 0.0 0.0 25 G 6.038542E-06 8.934489E-13 -6.246868E-21 0.0 0.0 0.0 26 G 5.871330E-06 4.701660E-13 -8.544776E-22 0.0 0.0 0.0 27 G 5.724914E-06 2.134116E-13 1.058791E-21 0.0 0.0 0.0 28 G 5.596584E-06 -5.666530E-14 1.376429E-21 0.0 0.0 0.0 29 G 5.484079E-06 -3.613338E-13 1.545173E-21 0.0 0.0 0.0 30 G 5.385500E-06 -4.895537E-13 2.514629E-21 0.0 0.0 0.0 31 G 6.038542E-06 8.933220E-13 0.0 0.0 0.0 0.0 32 G 5.871330E-06 4.705834E-13 0.0 0.0 0.0 0.0 33 G 5.724914E-06 2.134534E-13 0.0 0.0 0.0 0.0 34 G 5.596584E-06 -5.668907E-14 0.0 0.0 0.0 0.0 35 G 5.484079E-06 -3.613600E-13 0.0 0.0 0.0 0.0 36 G 5.385500E-06 -4.895789E-13 0.0 0.0 0.0 0.0 37 G 6.038543E-06 1.142353E-12 0.0 0.0 0.0 0.0 38 G 5.871331E-06 6.627584E-13 0.0 0.0 0.0 0.0 39 G 5.724915E-06 2.951181E-13 0.0 0.0 0.0 0.0 40 G 5.596585E-06 -6.413380E-14 0.0 0.0 0.0 0.0 41 G 5.484080E-06 -4.356640E-13 0.0 0.0 0.0 0.0 42 G 5.385501E-06 -6.865234E-13 0.0 0.0 0.0 0.0 43 G 6.038543E-06 1.142105E-12 -5.717472E-21 0.0 0.0 0.0 44 G 5.871331E-06 6.646716E-13 -1.301982E-21 0.0 0.0 0.0 45 G 5.724915E-06 2.959968E-13 4.235165E-22 0.0 0.0 0.0 46 G 5.596585E-06 -6.377743E-14 1.482308E-21 0.0 0.0 0.0 47 G 5.484080E-06 -4.355240E-13 1.932294E-21 0.0 0.0 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 48 G 5.385501E-06 -6.863851E-13 3.122607E-21 0.0 0.0 0.0 49 G 6.038543E-06 1.142353E-12 0.0 0.0 0.0 0.0 50 G 5.871331E-06 6.627584E-13 0.0 0.0 0.0 0.0 51 G 5.724915E-06 2.951181E-13 0.0 0.0 0.0 0.0 52 G 5.596585E-06 -6.413380E-14 0.0 0.0 0.0 0.0 53 G 5.484080E-06 -4.356640E-13 0.0 0.0 0.0 0.0 54 G 5.385501E-06 -6.865234E-13 0.0 0.0 0.0 0.0 55 G 6.038544E-06 8.827788E-13 0.0 0.0 0.0 0.0 56 G 5.871332E-06 4.700195E-13 0.0 0.0 0.0 0.0 57 G 5.724917E-06 2.149759E-13 0.0 0.0 0.0 0.0 58 G 5.596587E-06 -5.502398E-14 0.0 0.0 0.0 0.0 59 G 5.484081E-06 -3.591216E-13 0.0 0.0 0.0 0.0 60 G 5.385502E-06 -4.844150E-13 0.0 0.0 0.0 0.0 61 G 6.038544E-06 8.829057E-13 -5.432922E-21 0.0 0.0 0.0 62 G 5.871332E-06 4.696021E-13 -8.131185E-22 0.0 0.0 0.0 63 G 5.724917E-06 2.149341E-13 5.293956E-23 0.0 0.0 0.0 64 G 5.596587E-06 -5.500021E-14 4.719065E-22 0.0 0.0 0.0 65 G 5.484081E-06 -3.590954E-13 1.257315E-21 0.0 0.0 0.0 66 G 5.385502E-06 -4.843898E-13 4.446923E-21 0.0 0.0 0.0 67 G 6.038544E-06 8.827788E-13 0.0 0.0 0.0 0.0 68 G 5.871332E-06 4.700195E-13 0.0 0.0 0.0 0.0 69 G 5.724917E-06 2.149759E-13 0.0 0.0 0.0 0.0 70 G 5.596587E-06 -5.502398E-14 0.0 0.0 0.0 0.0 71 G 5.484081E-06 -3.591216E-13 0.0 0.0 0.0 0.0 72 G 5.385502E-06 -4.844150E-13 0.0 0.0 0.0 0.0 73 G 6.038545E-06 0.0 0.0 0.0 0.0 0.0 74 G 5.871333E-06 0.0 0.0 0.0 0.0 0.0 75 G 5.724917E-06 0.0 0.0 0.0 0.0 0.0 76 G 5.596587E-06 0.0 0.0 0.0 0.0 0.0 77 G 5.484081E-06 0.0 0.0 0.0 0.0 0.0 78 G 5.385502E-06 0.0 0.0 0.0 0.0 0.0 79 G 6.038545E-06 0.0 -4.325121E-21 0.0 0.0 0.0 80 G 5.871333E-06 0.0 -1.027772E-21 0.0 0.0 0.0 81 G 5.724917E-06 0.0 -9.264423E-22 0.0 0.0 0.0 82 G 5.596587E-06 0.0 3.970467E-23 0.0 0.0 0.0 83 G 5.484081E-06 0.0 1.164670E-21 0.0 0.0 0.0 84 G 5.385502E-06 0.0 2.873625E-21 0.0 0.0 0.0 85 G 6.038545E-06 0.0 0.0 0.0 0.0 0.0 86 G 5.871333E-06 0.0 0.0 0.0 0.0 0.0 87 G 5.724917E-06 0.0 0.0 0.0 0.0 0.0 88 G 5.596587E-06 0.0 0.0 0.0 0.0 0.0 89 G 5.484081E-06 0.0 0.0 0.0 0.0 0.0 90 G 5.385502E-06 0.0 0.0 0.0 0.0 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.460571E-03 0.0 0.0 0.0 0.0 0.0 2 G 3.852415E-03 0.0 0.0 0.0 0.0 0.0 3 G 4.123968E-03 0.0 0.0 0.0 0.0 0.0 4 G 4.286101E-03 0.0 0.0 0.0 0.0 0.0 5 G 4.348075E-03 0.0 0.0 0.0 0.0 0.0 6 G 4.317869E-03 0.0 0.0 0.0 0.0 0.0 7 G 3.460571E-03 0.0 9.636248E-12 0.0 0.0 0.0 8 G 3.852415E-03 0.0 3.352161E-11 0.0 0.0 0.0 9 G 4.123968E-03 0.0 3.124335E-12 0.0 0.0 0.0 10 G 4.286101E-03 0.0 -7.922166E-12 0.0 0.0 0.0 11 G 4.348075E-03 0.0 -8.567314E-12 0.0 0.0 0.0 12 G 4.317869E-03 0.0 -3.409624E-12 0.0 0.0 0.0 13 G 3.460571E-03 0.0 0.0 0.0 0.0 0.0 14 G 3.852415E-03 0.0 0.0 0.0 0.0 0.0 15 G 4.123968E-03 0.0 0.0 0.0 0.0 0.0 16 G 4.286101E-03 0.0 0.0 0.0 0.0 0.0 17 G 4.348075E-03 0.0 0.0 0.0 0.0 0.0 18 G 4.317869E-03 0.0 0.0 0.0 0.0 0.0 19 G 3.460571E-03 1.310342E-09 0.0 0.0 0.0 0.0 20 G 3.852415E-03 6.743623E-10 0.0 0.0 0.0 0.0 21 G 4.123969E-03 2.518001E-10 0.0 0.0 0.0 0.0 22 G 4.286101E-03 -1.472132E-10 0.0 0.0 0.0 0.0 23 G 4.348075E-03 -5.234614E-10 0.0 0.0 0.0 0.0 24 G 4.317870E-03 -6.858291E-10 0.0 0.0 0.0 0.0 25 G 3.460571E-03 1.304831E-09 -3.528035E-12 0.0 0.0 0.0 26 G 3.852415E-03 6.579294E-10 -2.039417E-11 0.0 0.0 0.0 27 G 4.123969E-03 2.543372E-10 1.218263E-12 0.0 0.0 0.0 28 G 4.286101E-03 -1.440164E-10 4.139893E-12 0.0 0.0 0.0 29 G 4.348075E-03 -5.171684E-10 2.942866E-12 0.0 0.0 0.0 30 G 4.317870E-03 -6.844953E-10 7.290467E-13 0.0 0.0 0.0 31 G 3.460571E-03 1.315820E-09 0.0 0.0 0.0 0.0 32 G 3.852415E-03 6.790586E-10 0.0 0.0 0.0 0.0 33 G 4.123969E-03 2.553539E-10 0.0 0.0 0.0 0.0 34 G 4.286101E-03 -1.472008E-10 0.0 0.0 0.0 0.0 35 G 4.348075E-03 -5.249863E-10 0.0 0.0 0.0 0.0 36 G 4.317870E-03 -6.875694E-10 0.0 0.0 0.0 0.0 37 G 3.460572E-03 1.651333E-09 0.0 0.0 0.0 0.0 38 G 3.852417E-03 8.375040E-10 0.0 0.0 0.0 0.0 39 G 4.123970E-03 2.555364E-10 0.0 0.0 0.0 0.0 40 G 4.286102E-03 -2.224282E-10 0.0 0.0 0.0 0.0 41 G 4.348076E-03 -6.706875E-10 0.0 0.0 0.0 0.0 42 G 4.317871E-03 -9.375322E-10 0.0 0.0 0.0 0.0 43 G 3.460572E-03 1.654677E-09 -3.176273E-13 0.0 0.0 0.0 44 G 3.852417E-03 8.429065E-10 1.010008E-11 0.0 0.0 0.0 45 G 4.123970E-03 2.516556E-10 -1.724076E-11 0.0 0.0 0.0 46 G 4.286102E-03 -2.294276E-10 -2.901995E-12 0.0 0.0 0.0 47 G 4.348076E-03 -6.730993E-10 1.171669E-12 0.0 0.0 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 48 G 4.317871E-03 -9.401189E-10 1.335131E-12 0.0 0.0 0.0 49 G 3.460572E-03 1.649573E-09 0.0 0.0 0.0 0.0 50 G 3.852417E-03 8.361894E-10 0.0 0.0 0.0 0.0 51 G 4.123970E-03 2.524221E-10 0.0 0.0 0.0 0.0 52 G 4.286102E-03 -2.232415E-10 0.0 0.0 0.0 0.0 53 G 4.348076E-03 -6.706648E-10 0.0 0.0 0.0 0.0 54 G 4.317871E-03 -9.375765E-10 0.0 0.0 0.0 0.0 55 G 3.460573E-03 1.231848E-09 0.0 0.0 0.0 0.0 56 G 3.852418E-03 4.993717E-10 0.0 0.0 0.0 0.0 57 G 4.123971E-03 7.140710E-11 0.0 0.0 0.0 0.0 58 G 4.286103E-03 -2.227363E-10 0.0 0.0 0.0 0.0 59 G 4.348077E-03 -5.226497E-10 0.0 0.0 0.0 0.0 60 G 4.317872E-03 -5.963808E-10 0.0 0.0 0.0 0.0 61 G 3.460573E-03 1.232895E-09 -4.830580E-12 0.0 0.0 0.0 62 G 3.852418E-03 4.932141E-10 -2.152754E-11 0.0 0.0 0.0 63 G 4.123971E-03 5.984628E-11 2.511022E-11 0.0 0.0 0.0 64 G 4.286103E-03 -2.204363E-10 2.664355E-12 0.0 0.0 0.0 65 G 4.348077E-03 -5.286154E-10 -7.935603E-13 0.0 0.0 0.0 66 G 4.317872E-03 -5.977581E-10 -1.347183E-12 0.0 0.0 0.0 67 G 3.460573E-03 1.225329E-09 0.0 0.0 0.0 0.0 68 G 3.852418E-03 4.936100E-10 0.0 0.0 0.0 0.0 69 G 4.123971E-03 6.822497E-11 0.0 0.0 0.0 0.0 70 G 4.286103E-03 -2.234101E-10 0.0 0.0 0.0 0.0 71 G 4.348077E-03 -5.217327E-10 0.0 0.0 0.0 0.0 72 G 4.317872E-03 -5.952522E-10 0.0 0.0 0.0 0.0 73 G 3.460574E-03 0.0 0.0 0.0 0.0 0.0 74 G 3.852418E-03 0.0 0.0 0.0 0.0 0.0 75 G 4.123971E-03 0.0 0.0 0.0 0.0 0.0 76 G 4.286103E-03 0.0 0.0 0.0 0.0 0.0 77 G 4.348077E-03 0.0 0.0 0.0 0.0 0.0 78 G 4.317872E-03 0.0 0.0 0.0 0.0 0.0 79 G 3.460574E-03 0.0 1.030910E-11 0.0 0.0 0.0 80 G 3.852418E-03 0.0 3.596011E-11 0.0 0.0 0.0 81 G 4.123971E-03 0.0 -4.681991E-12 0.0 0.0 0.0 82 G 4.286103E-03 0.0 -5.621564E-12 0.0 0.0 0.0 83 G 4.348077E-03 0.0 -7.007497E-12 0.0 0.0 0.0 84 G 4.317872E-03 0.0 -3.354537E-12 0.0 0.0 0.0 85 G 3.460574E-03 0.0 0.0 0.0 0.0 0.0 86 G 3.852418E-03 0.0 0.0 0.0 0.0 0.0 87 G 4.123971E-03 0.0 0.0 0.0 0.0 0.0 88 G 4.286103E-03 0.0 0.0 0.0 0.0 0.0 89 G 4.348077E-03 0.0 0.0 0.0 0.0 0.0 90 G 4.317872E-03 0.0 0.0 0.0 0.0 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 1 1 X -5.261773E+00 XY 1.124047E+01 A 4.650879E+01 LX 0.21 0.98 0.0 -1.681614E+01 2.243197E+01 Y 4.406824E+01 YZ 0.0 B -7.702314E+00 LY 0.98-0.21 0.0 Z 1.164196E+01 ZX 0.0 C 1.164196E+01 LZ 0.0 0.0 1.00 0 1 2 X -7.308180E+00 XY 1.070515E+01 A 4.199724E+01 LX 0.21 0.98 0.0 -1.402473E+01 2.129747E+01 Y 3.967295E+01 YZ 0.0 B -9.632474E+00 LY 0.98-0.21 0.0 Z 9.709419E+00 ZX 0.0 C 9.709420E+00 LZ 0.0 0.0 1.00 0 1 20 X -8.437486E+00 XY 7.762691E+00 A 4.199743E+01 LX 0.15 0.99 0.0 -1.402491E+01 2.129747E+01 Y 4.080264E+01 YZ 0.0 B -9.632278E+00 LY 0.99-0.15 0.0 Z 9.709587E+00 ZX 0.0 C 9.709590E+00 LZ 0.0 0.0 1.00 0 1 19 X -6.447939E+00 XY 8.150827E+00 A 4.650868E+01 LX 0.15 0.99 0.0 -1.681603E+01 2.243199E+01 Y 4.525415E+01 YZ 0.0 B -7.702479E+00 LY 0.99-0.15 0.0 Z 1.164187E+01 ZX 0.0 C 1.164188E+01 LZ 0.0 0.0 1.00 0 1 7 X -5.261611E+00 XY 1.124041E+01 A 4.650882E+01 LX 0.21 0.98 0.0 -1.681623E+01 2.243192E+01 Y 4.406830E+01 YZ 0.0 B -7.702134E+00 LY 0.98-0.21 0.0 Z 1.164200E+01 ZX 0.0 C 1.164199E+01 LZ 0.0 0.0 1.00 0 1 8 X -7.308160E+00 XY 1.070516E+01 A 4.199729E+01 LX 0.21 0.98 0.0 -1.402478E+01 2.129748E+01 Y 3.967300E+01 YZ 0.0 B -9.632452E+00 LY 0.98-0.21 0.0 Z 9.709496E+00 ZX 0.0 C 9.709496E+00 LZ 0.0 0.0 1.00 0 1 26 X -8.437604E+00 XY 7.762723E+00 A 4.199728E+01 LX 0.15 0.99 0.0 -1.402478E+01 2.129746E+01 Y 4.080247E+01 YZ 0.0 B -9.632410E+00 LY 0.99-0.15 0.0 Z 9.709468E+00 ZX 0.0 C 9.709472E+00 LZ 0.0 0.0 1.00 0 1 25 X -6.447938E+00 XY 8.150826E+00 A 4.650867E+01 LX 0.15 0.99 0.0 -1.681603E+01 2.243199E+01 Y 4.525414E+01 YZ 0.0 B -7.702477E+00 LY 0.99-0.15 0.0 Z 1.164189E+01 ZX 0.0 C 1.164190E+01 LZ 0.0 0.0 1.00 0 1 0 X -6.863837E+00 XY 9.464784E+00 A 4.420368E+01 LX 0.18 0.98 0.0 -1.542046E+01 2.182380E+01 Y 4.244949E+01 YZ 0.0 B -8.618028E+00 LY 0.98-0.18 0.0 Z 1.067571E+01 ZX 0.0 C 1.067571E+01 LZ 0.0 0.0 1.00 0 2 2 X -3.212638E+00 XY 1.020725E+01 A 4.379931E+01 LX 0.21 0.98 0.0 -1.662721E+01 2.042031E+01 Y 4.158311E+01 YZ 0.0 B -5.428845E+00 LY 0.98-0.21 0.0 Z 1.151115E+01 ZX 0.0 C 1.151115E+01 LZ 0.0 0.0 1.00 0 2 3 X -4.986290E+00 XY 9.743332E+00 A 3.988885E+01 LX 0.21 0.98 0.0 -1.420772E+01 1.943130E+01 Y 3.777338E+01 YZ 0.0 B -7.101773E+00 LY 0.98-0.21 0.0 Z 9.836070E+00 ZX 0.0 C 9.836074E+00 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 2 21 X -6.014593E+00 XY 7.065213E+00 A 3.988871E+01 LX 0.15 0.99 0.0 -1.420757E+01 1.943134E+01 Y 3.880127E+01 YZ 0.0 B -7.102040E+00 LY 0.99-0.15 0.0 Z 9.836025E+00 ZX 0.0 C 9.836030E+00 LZ 0.0 0.0 1.00 0 2 20 X -4.289634E+00 XY 7.401617E+00 A 4.379949E+01 LX 0.15 0.99 0.0 -1.662726E+01 2.042039E+01 Y 4.266027E+01 YZ 0.0 B -5.428847E+00 LY 0.99-0.15 0.0 Z 1.151113E+01 ZX 0.0 C 1.151113E+01 LZ 0.0 0.0 1.00 0 2 8 X -3.212891E+00 XY 1.020729E+01 A 4.379936E+01 LX 0.21 0.98 0.0 -1.662711E+01 2.042043E+01 Y 4.158315E+01 YZ 0.0 B -5.429098E+00 LY 0.98-0.21 0.0 Z 1.151107E+01 ZX 0.0 C 1.151107E+01 LZ 0.0 0.0 1.00 0 2 9 X -4.986540E+00 XY 9.743314E+00 A 3.988867E+01 LX 0.21 0.98 0.0 -1.420757E+01 1.943131E+01 Y 3.777320E+01 YZ 0.0 B -7.102011E+00 LY 0.98-0.21 0.0 Z 9.836053E+00 ZX 0.0 C 9.836054E+00 LZ 0.0 0.0 1.00 0 2 27 X -6.014266E+00 XY 7.065209E+00 A 3.988883E+01 LX 0.15 0.99 0.0 -1.420771E+01 1.943127E+01 Y 3.880138E+01 YZ 0.0 B -7.101717E+00 LY 0.99-0.15 0.0 Z 9.836017E+00 ZX 0.0 C 9.836020E+00 LZ 0.0 0.0 1.00 0 2 26 X -4.289722E+00 XY 7.401639E+00 A 4.379939E+01 LX 0.15 0.99 0.0 -1.662723E+01 2.042037E+01 Y 4.266017E+01 YZ 0.0 B -5.428944E+00 LY 0.99-0.15 0.0 Z 1.151125E+01 ZX 0.0 C 1.151125E+01 LZ 0.0 0.0 1.00 0 2 0 X -4.625822E+00 XY 8.604360E+00 A 4.179921E+01 LX 0.18 0.98 0.0 -1.541742E+01 1.988890E+01 Y 4.020449E+01 YZ 0.0 B -6.220546E+00 LY 0.98-0.18 0.0 Z 1.067360E+01 ZX 0.0 C 1.067360E+01 LZ 0.0 0.0 1.00 0 3 3 X -1.424954E+00 XY 9.310253E+00 A 4.145556E+01 LX 0.21 0.98 0.0 -1.647064E+01 1.867814E+01 Y 3.943411E+01 YZ 0.0 B -3.446404E+00 LY 0.98-0.21 0.0 Z 1.140276E+01 ZX 0.0 C 1.140277E+01 LZ 0.0 0.0 1.00 0 3 4 X -2.972486E+00 XY 8.905502E+00 A 3.804379E+01 LX 0.21 0.98 0.0 -1.435970E+01 1.781036E+01 Y 3.611021E+01 YZ 0.0 B -4.906059E+00 LY 0.98-0.21 0.0 Z 9.941361E+00 ZX 0.0 C 9.941369E+00 LZ 0.0 0.0 1.00 0 3 22 X -3.912252E+00 XY 6.457644E+00 A 3.804381E+01 LX 0.15 0.99 0.0 -1.435961E+01 1.781043E+01 Y 3.704988E+01 YZ 0.0 B -4.906177E+00 LY 0.99-0.15 0.0 Z 9.941213E+00 ZX 0.0 C 9.941213E+00 LZ 0.0 0.0 1.00 0 3 21 X -2.407589E+00 XY 6.751239E+00 A 4.145550E+01 LX 0.15 0.99 0.0 -1.647046E+01 1.867823E+01 Y 4.041638E+01 YZ 0.0 B -3.446714E+00 LY 0.99-0.15 0.0 Z 1.140259E+01 ZX 0.0 C 1.140260E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 3 9 X -1.425101E+00 XY 9.310243E+00 A 4.145564E+01 LX 0.21 0.98 0.0 -1.647062E+01 1.867822E+01 Y 3.943421E+01 YZ 0.0 B -3.446533E+00 LY 0.98-0.21 0.0 Z 1.140275E+01 ZX 0.0 C 1.140275E+01 LZ 0.0 0.0 1.00 0 3 10 X -2.972355E+00 XY 8.905476E+00 A 3.804376E+01 LX 0.21 0.98 0.0 -1.435969E+01 1.781031E+01 Y 3.611019E+01 YZ 0.0 B -4.905928E+00 LY 0.98-0.21 0.0 Z 9.941252E+00 ZX 0.0 C 9.941251E+00 LZ 0.0 0.0 1.00 0 3 28 X -3.912313E+00 XY 6.457649E+00 A 3.804372E+01 LX 0.15 0.99 0.0 -1.435960E+01 1.781040E+01 Y 3.704980E+01 YZ 0.0 B -4.906239E+00 LY 0.99-0.15 0.0 Z 9.941315E+00 ZX 0.0 C 9.941323E+00 LZ 0.0 0.0 1.00 0 3 27 X -2.407286E+00 XY 6.751226E+00 A 4.145550E+01 LX 0.15 0.99 0.0 -1.647057E+01 1.867813E+01 Y 4.041637E+01 YZ 0.0 B -3.446415E+00 LY 0.99-0.15 0.0 Z 1.140263E+01 ZX 0.0 C 1.140263E+01 LZ 0.0 0.0 1.00 0 3 0 X -2.679292E+00 XY 7.856154E+00 A 3.970870E+01 LX 0.18 0.98 0.0 -1.541512E+01 1.821077E+01 Y 3.825265E+01 YZ 0.0 B -4.135345E+00 LY 0.98-0.18 0.0 Z 1.067198E+01 ZX 0.0 C 1.067199E+01 LZ 0.0 0.0 1.00 0 4 4 X 1.435238E-01 XY 8.526464E+00 A 3.941454E+01 LX 0.21 0.98 0.0 -1.633962E+01 1.716037E+01 Y 3.756329E+01 YZ 0.0 B -1.707732E+00 LY 0.98-0.21 0.0 Z 1.131205E+01 ZX 0.0 C 1.131205E+01 LZ 0.0 0.0 1.00 0 4 5 X -1.214677E+00 XY 8.171254E+00 A 3.641995E+01 LX 0.21 0.98 0.0 -1.448684E+01 1.639440E+01 Y 3.464580E+01 YZ 0.0 B -2.988823E+00 LY 0.98-0.21 0.0 Z 1.002939E+01 ZX 0.0 C 1.002939E+01 LZ 0.0 0.0 1.00 0 4 23 X -2.076726E+00 XY 5.925227E+00 A 3.642004E+01 LX 0.15 0.99 0.0 -1.448692E+01 1.639440E+01 Y 3.550806E+01 YZ 0.0 B -2.988707E+00 LY 0.99-0.15 0.0 Z 1.002943E+01 ZX 0.0 C 1.002943E+01 LZ 0.0 0.0 1.00 0 4 22 X -7.559077E-01 XY 6.182885E+00 A 3.941456E+01 LX 0.15 0.99 0.0 -1.633973E+01 1.716031E+01 Y 3.846292E+01 YZ 0.0 B -1.707556E+00 LY 0.99-0.15 0.0 Z 1.131219E+01 ZX 0.0 C 1.131219E+01 LZ 0.0 0.0 1.00 0 4 10 X 1.435371E-01 XY 8.526528E+00 A 3.941443E+01 LX 0.21 0.98 0.0 -1.633955E+01 1.716034E+01 Y 3.756314E+01 YZ 0.0 B -1.707749E+00 LY 0.98-0.21 0.0 Z 1.131198E+01 ZX 0.0 C 1.131198E+01 LZ 0.0 0.0 1.00 0 4 11 X -1.214686E+00 XY 8.171246E+00 A 3.642010E+01 LX 0.21 0.98 0.0 -1.448690E+01 1.639447E+01 Y 3.464597E+01 YZ 0.0 B -2.988826E+00 LY 0.98-0.21 0.0 Z 1.002940E+01 ZX 0.0 C 1.002941E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 4 29 X -2.076760E+00 XY 5.925259E+00 A 3.641998E+01 LX 0.15 0.99 0.0 -1.448687E+01 1.639439E+01 Y 3.550799E+01 YZ 0.0 B -2.988753E+00 LY 0.99-0.15 0.0 Z 1.002937E+01 ZX 0.0 C 1.002937E+01 LZ 0.0 0.0 1.00 0 4 28 X -7.557735E-01 XY 6.182810E+00 A 3.941458E+01 LX 0.15 0.99 0.0 -1.633975E+01 1.716027E+01 Y 3.846295E+01 YZ 0.0 B -1.707402E+00 LY 0.99-0.15 0.0 Z 1.131209E+01 ZX 0.0 C 1.131209E+01 LZ 0.0 0.0 1.00 0 4 0 X -9.759337E-01 XY 7.201459E+00 A 3.787973E+01 LX 0.18 0.98 0.0 -1.541327E+01 1.674685E+01 Y 3.654502E+01 YZ 0.0 B -2.310645E+00 LY 0.98-0.18 0.0 Z 1.067074E+01 ZX 0.0 C 1.067073E+01 LZ 0.0 0.0 1.00 0 5 5 X 1.527696E+00 XY 7.837736E+00 A 3.762611E+01 LX 0.21 0.98 0.0 -1.622922E+01 1.583067E+01 Y 3.592436E+01 YZ 0.0 B -1.740426E-01 LY 0.98-0.21 0.0 Z 1.123560E+01 ZX 0.0 C 1.123560E+01 LZ 0.0 0.0 1.00 0 5 6 X 3.292457E-01 XY 7.524264E+00 A 3.498370E+01 LX 0.21 0.98 0.0 -1.459434E+01 1.515105E+01 Y 3.335001E+01 YZ 0.0 B -1.304444E+00 LY 0.98-0.21 0.0 Z 1.010376E+01 ZX 0.0 C 1.010376E+01 LZ 0.0 0.0 1.00 0 5 24 X -4.648218E-01 XY 5.456056E+00 A 3.498370E+01 LX 0.15 0.99 0.0 -1.459428E+01 1.515110E+01 Y 3.414393E+01 YZ 0.0 B -1.304591E+00 LY 0.99-0.15 0.0 Z 1.010373E+01 ZX 0.0 C 1.010373E+01 LZ 0.0 0.0 1.00 0 5 23 X 7.005937E-01 XY 5.683384E+00 A 3.762610E+01 LX 0.15 0.99 0.0 -1.622919E+01 1.583070E+01 Y 3.675134E+01 YZ 0.0 B -1.741619E-01 LY 0.99-0.15 0.0 Z 1.123564E+01 ZX 0.0 C 1.123564E+01 LZ 0.0 0.0 1.00 0 5 11 X 1.527790E+00 XY 7.837706E+00 A 3.762616E+01 LX 0.21 0.98 0.0 -1.622929E+01 1.583065E+01 Y 3.592443E+01 YZ 0.0 B -1.739423E-01 LY 0.98-0.21 0.0 Z 1.123564E+01 ZX 0.0 C 1.123564E+01 LZ 0.0 0.0 1.00 0 5 12 X 3.291441E-01 XY 7.524170E+00 A 3.498371E+01 LX 0.21 0.98 0.0 -1.459433E+01 1.515107E+01 Y 3.335007E+01 YZ 0.0 B -1.304498E+00 LY 0.98-0.21 0.0 Z 1.010378E+01 ZX 0.0 C 1.010378E+01 LZ 0.0 0.0 1.00 0 5 30 X -4.647097E-01 XY 5.456091E+00 A 3.498365E+01 LX 0.15 0.99 0.0 -1.459431E+01 1.515104E+01 Y 3.414386E+01 YZ 0.0 B -1.304493E+00 LY 0.99-0.15 0.0 Z 1.010379E+01 ZX 0.0 C 1.010378E+01 LZ 0.0 0.0 1.00 0 5 29 X 7.007304E-01 XY 5.683424E+00 A 3.762608E+01 LX 0.15 0.99 0.0 -1.622919E+01 1.583066E+01 Y 3.675130E+01 YZ 0.0 B -1.740424E-01 LY 0.99-0.15 0.0 Z 1.123555E+01 ZX 0.0 C 1.123554E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 5 0 X 5.232086E-01 XY 6.625354E+00 A 3.627036E+01 LX 0.18 0.98 0.0 -1.541177E+01 1.546296E+01 Y 3.504242E+01 YZ 0.0 B -7.047326E-01 LY 0.98-0.18 0.0 Z 1.066969E+01 ZX 0.0 C 1.066969E+01 LZ 0.0 0.0 1.00 0 6 19 X -7.248496E+00 XY 4.939545E+00 A 4.650864E+01 LX 0.09 1.00 0.0 -1.681605E+01 2.243194E+01 Y 4.605476E+01 YZ 0.0 B -7.702377E+00 LY 1.00-0.09 0.0 Z 1.164189E+01 ZX 0.0 C 1.164189E+01 LZ 0.0 0.0 1.00 0 6 20 X -9.200280E+00 XY 4.704335E+00 A 4.199725E+01 LX 0.09 1.00 0.0 -1.402469E+01 2.129750E+01 Y 4.156499E+01 YZ 0.0 B -9.632544E+00 LY 1.00-0.09 0.0 Z 9.709371E+00 ZX 0.0 C 9.709377E+00 LZ 0.0 0.0 1.00 0 6 38 X -9.583983E+00 XY 1.576010E+00 A 4.199737E+01 LX 0.03 1.00 0.0 -1.402493E+01 2.129739E+01 Y 4.194921E+01 YZ 0.0 B -9.632134E+00 LY 1.00-0.03 0.0 Z 9.709567E+00 ZX 0.0 C 9.709569E+00 LZ 0.0 0.0 1.00 0 6 37 X -7.651737E+00 XY 1.654788E+00 A 4.650875E+01 LX 0.03 1.00 0.0 -1.681614E+01 2.243195E+01 Y 4.645818E+01 YZ 0.0 B -7.702299E+00 LY 1.00-0.03 0.0 Z 1.164196E+01 ZX 0.0 C 1.164197E+01 LZ 0.0 0.0 1.00 0 6 25 X -7.248512E+00 XY 4.939534E+00 A 4.650867E+01 LX 0.09 1.00 0.0 -1.681604E+01 2.243195E+01 Y 4.605479E+01 YZ 0.0 B -7.702384E+00 LY 1.00-0.09 0.0 Z 1.164184E+01 ZX 0.0 C 1.164184E+01 LZ 0.0 0.0 1.00 0 6 26 X -9.200150E+00 XY 4.704368E+00 A 4.199732E+01 LX 0.09 1.00 0.0 -1.402482E+01 2.129747E+01 Y 4.156505E+01 YZ 0.0 B -9.632417E+00 LY 1.00-0.09 0.0 Z 9.709568E+00 ZX 0.0 C 9.709570E+00 LZ 0.0 0.0 1.00 0 6 44 X -9.584345E+00 XY 1.575992E+00 A 4.199720E+01 LX 0.03 1.00 0.0 -1.402470E+01 2.129746E+01 Y 4.194905E+01 YZ 0.0 B -9.632498E+00 LY 1.00-0.03 0.0 Z 9.709398E+00 ZX 0.0 C 9.709407E+00 LZ 0.0 0.0 1.00 0 6 43 X -7.651850E+00 XY 1.654799E+00 A 4.650871E+01 LX 0.03 1.00 0.0 -1.681606E+01 2.243198E+01 Y 4.645815E+01 YZ 0.0 B -7.702409E+00 LY 1.00-0.03 0.0 Z 1.164187E+01 ZX 0.0 C 1.164187E+01 LZ 0.0 0.0 1.00 0 6 0 X -8.421169E+00 XY 3.218671E+00 A 4.420364E+01 LX 0.06 1.00 0.0 -1.542043E+01 2.182379E+01 Y 4.400677E+01 YZ 0.0 B -8.618032E+00 LY 1.00-0.06 0.0 Z 1.067568E+01 ZX 0.0 C 1.067569E+01 LZ 0.0 0.0 1.00 0 7 20 X -5.016896E+00 XY 4.485518E+00 A 4.379942E+01 LX 0.09 1.00 0.0 -1.662717E+01 2.042043E+01 Y 4.338727E+01 YZ 0.0 B -5.429055E+00 LY 1.00-0.09 0.0 Z 1.151113E+01 ZX 0.0 C 1.151114E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 7 21 X -6.708273E+00 XY 4.281663E+00 A 3.988879E+01 LX 0.09 1.00 0.0 -1.420774E+01 1.943125E+01 Y 3.949536E+01 YZ 0.0 B -7.101705E+00 LY 1.00-0.09 0.0 Z 9.836122E+00 ZX 0.0 C 9.836131E+00 LZ 0.0 0.0 1.00 0 7 39 X -7.057993E+00 XY 1.434377E+00 A 3.988883E+01 LX 0.03 1.00 0.0 -1.420769E+01 1.943131E+01 Y 3.984501E+01 YZ 0.0 B -7.101819E+00 LY 1.00-0.03 0.0 Z 9.836050E+00 ZX 0.0 C 9.836055E+00 LZ 0.0 0.0 1.00 0 7 38 X -5.382915E+00 XY 1.502705E+00 A 4.379934E+01 LX 0.03 1.00 0.0 -1.662723E+01 2.042031E+01 Y 4.375343E+01 YZ 0.0 B -5.428827E+00 LY 1.00-0.03 0.0 Z 1.151117E+01 ZX 0.0 C 1.151118E+01 LZ 0.0 0.0 1.00 0 7 26 X -5.016578E+00 XY 4.485517E+00 A 4.379934E+01 LX 0.09 1.00 0.0 -1.662725E+01 2.042028E+01 Y 4.338718E+01 YZ 0.0 B -5.428739E+00 LY 1.00-0.09 0.0 Z 1.151116E+01 ZX 0.0 C 1.151117E+01 LZ 0.0 0.0 1.00 0 7 27 X -6.708583E+00 XY 4.281591E+00 A 3.988881E+01 LX 0.09 1.00 0.0 -1.420763E+01 1.943136E+01 Y 3.949540E+01 YZ 0.0 B -7.101999E+00 LY 1.00-0.09 0.0 Z 9.836085E+00 ZX 0.0 C 9.836091E+00 LZ 0.0 0.0 1.00 0 7 45 X -7.057889E+00 XY 1.434416E+00 A 3.988876E+01 LX 0.03 1.00 0.0 -1.420771E+01 1.943124E+01 Y 3.984493E+01 YZ 0.0 B -7.101716E+00 LY 1.00-0.03 0.0 Z 9.836075E+00 ZX 0.0 C 9.836075E+00 LZ 0.0 0.0 1.00 0 7 44 X -5.382978E+00 XY 1.502699E+00 A 4.379943E+01 LX 0.03 1.00 0.0 -1.662723E+01 2.042037E+01 Y 4.375351E+01 YZ 0.0 B -5.428893E+00 LY 1.00-0.03 0.0 Z 1.151115E+01 ZX 0.0 C 1.151116E+01 LZ 0.0 0.0 1.00 0 7 0 X -6.041513E+00 XY 2.926061E+00 A 4.179923E+01 LX 0.06 1.00 0.0 -1.541746E+01 1.988888E+01 Y 4.162026E+01 YZ 0.0 B -6.220479E+00 LY 1.00-0.06 0.0 Z 1.067362E+01 ZX 0.0 C 1.067362E+01 LZ 0.0 0.0 1.00 0 8 21 X -3.070649E+00 XY 4.091353E+00 A 4.145561E+01 LX 0.09 1.00 0.0 -1.647057E+01 1.867823E+01 Y 4.107967E+01 YZ 0.0 B -3.446591E+00 LY 1.00-0.09 0.0 Z 1.140269E+01 ZX 0.0 C 1.140268E+01 LZ 0.0 0.0 1.00 0 8 22 X -4.546530E+00 XY 3.913471E+00 A 3.804368E+01 LX 0.09 1.00 0.0 -1.435960E+01 1.781035E+01 Y 3.768408E+01 YZ 0.0 B -4.906124E+00 LY 1.00-0.09 0.0 Z 9.941245E+00 ZX 0.0 C 9.941253E+00 LZ 0.0 0.0 1.00 0 8 40 X -4.866156E+00 XY 1.311064E+00 A 3.804365E+01 LX 0.03 1.00 0.0 -1.435957E+01 1.781037E+01 Y 3.800359E+01 YZ 0.0 B -4.906214E+00 LY 1.00-0.03 0.0 Z 9.941252E+00 ZX 0.0 C 9.941259E+00 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 8 39 X -3.404593E+00 XY 1.370632E+00 A 4.145565E+01 LX 0.03 1.00 0.0 -1.647065E+01 1.867820E+01 Y 4.141378E+01 YZ 0.0 B -3.446472E+00 LY 1.00-0.03 0.0 Z 1.140277E+01 ZX 0.0 C 1.140277E+01 LZ 0.0 0.0 1.00 0 8 27 X -3.070594E+00 XY 4.091346E+00 A 4.145552E+01 LX 0.09 1.00 0.0 -1.647056E+01 1.867817E+01 Y 4.107957E+01 YZ 0.0 B -3.446534E+00 LY 1.00-0.09 0.0 Z 1.140271E+01 ZX 0.0 C 1.140271E+01 LZ 0.0 0.0 1.00 0 8 28 X -4.546695E+00 XY 3.913476E+00 A 3.804368E+01 LX 0.09 1.00 0.0 -1.435954E+01 1.781041E+01 Y 3.768409E+01 YZ 0.0 B -4.906289E+00 LY 1.00-0.09 0.0 Z 9.941232E+00 ZX 0.0 C 9.941237E+00 LZ 0.0 0.0 1.00 0 8 46 X -4.866154E+00 XY 1.311057E+00 A 3.804376E+01 LX 0.03 1.00 0.0 -1.435961E+01 1.781041E+01 Y 3.800370E+01 YZ 0.0 B -4.906210E+00 LY 1.00-0.03 0.0 Z 9.941265E+00 ZX 0.0 C 9.941267E+00 LZ 0.0 0.0 1.00 0 8 45 X -3.404577E+00 XY 1.370662E+00 A 4.145564E+01 LX 0.03 1.00 0.0 -1.647066E+01 1.867819E+01 Y 4.141377E+01 YZ 0.0 B -3.446454E+00 LY 1.00-0.03 0.0 Z 1.140278E+01 ZX 0.0 C 1.140278E+01 LZ 0.0 0.0 1.00 0 8 0 X -3.971994E+00 XY 2.671633E+00 A 3.970869E+01 LX 0.06 1.00 0.0 -1.541509E+01 1.821078E+01 Y 3.954528E+01 YZ 0.0 B -4.135398E+00 LY 1.00-0.06 0.0 Z 1.067199E+01 ZX 0.0 C 1.067199E+01 LZ 0.0 0.0 1.00 0 9 22 X -1.363455E+00 XY 3.746936E+00 A 3.941440E+01 LX 0.09 1.00 0.0 -1.633959E+01 1.716031E+01 Y 3.907011E+01 YZ 0.0 B -1.707751E+00 LY 1.00-0.09 0.0 Z 1.131211E+01 ZX 0.0 C 1.131211E+01 LZ 0.0 0.0 1.00 0 9 23 X -2.658633E+00 XY 3.590806E+00 A 3.642015E+01 LX 0.09 1.00 0.0 -1.448702E+01 1.639440E+01 Y 3.609020E+01 YZ 0.0 B -2.988577E+00 LY 1.00-0.09 0.0 Z 1.002947E+01 ZX 0.0 C 1.002947E+01 LZ 0.0 0.0 1.00 0 9 41 X -2.952033E+00 XY 1.202959E+00 A 3.642002E+01 LX 0.03 1.00 0.0 -1.448688E+01 1.639442E+01 Y 3.638327E+01 YZ 0.0 B -2.988789E+00 LY 1.00-0.03 0.0 Z 1.002939E+01 ZX 0.0 C 1.002939E+01 LZ 0.0 0.0 1.00 0 9 40 X -1.669338E+00 XY 1.255262E+00 A 3.941450E+01 LX 0.03 1.00 0.0 -1.633959E+01 1.716035E+01 Y 3.937615E+01 YZ 0.0 B -1.707692E+00 LY 1.00-0.03 0.0 Z 1.131196E+01 ZX 0.0 C 1.131197E+01 LZ 0.0 0.0 1.00 0 9 28 X -1.363257E+00 XY 3.746925E+00 A 3.941466E+01 LX 0.09 1.00 0.0 -1.633975E+01 1.716035E+01 Y 3.907037E+01 YZ 0.0 B -1.707550E+00 LY 1.00-0.09 0.0 Z 1.131214E+01 ZX 0.0 C 1.131214E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 9 29 X -2.658775E+00 XY 3.590798E+00 A 3.642007E+01 LX 0.09 1.00 0.0 -1.448694E+01 1.639441E+01 Y 3.609013E+01 YZ 0.0 B -2.988718E+00 LY 1.00-0.09 0.0 Z 1.002947E+01 ZX 0.0 C 1.002947E+01 LZ 0.0 0.0 1.00 0 9 47 X -2.951741E+00 XY 1.202923E+00 A 3.642014E+01 LX 0.03 1.00 0.0 -1.448701E+01 1.639437E+01 Y 3.638338E+01 YZ 0.0 B -2.988495E+00 LY 1.00-0.03 0.0 Z 1.002939E+01 ZX 0.0 C 1.002939E+01 LZ 0.0 0.0 1.00 0 9 46 X -1.669341E+00 XY 1.255277E+00 A 3.941442E+01 LX 0.03 1.00 0.0 -1.633960E+01 1.716031E+01 Y 3.937608E+01 YZ 0.0 B -1.707695E+00 LY 1.00-0.03 0.0 Z 1.131206E+01 ZX 0.0 C 1.131207E+01 LZ 0.0 0.0 1.00 0 9 0 X -2.160822E+00 XY 2.448986E+00 A 3.787975E+01 LX 0.06 1.00 0.0 -1.541330E+01 1.674684E+01 Y 3.772997E+01 YZ 0.0 B -2.310607E+00 LY 1.00-0.06 0.0 Z 1.067075E+01 ZX 0.0 C 1.067076E+01 LZ 0.0 0.0 1.00 0 10 23 X 1.423912E-01 XY 3.444264E+00 A 3.762603E+01 LX 0.09 1.00 0.0 -1.622917E+01 1.583065E+01 Y 3.730954E+01 YZ 0.0 B -1.740919E-01 LY 1.00-0.09 0.0 Z 1.123556E+01 ZX 0.0 C 1.123557E+01 LZ 0.0 0.0 1.00 0 10 24 X -1.000876E+00 XY 3.306460E+00 A 3.498368E+01 LX 0.09 1.00 0.0 -1.459424E+01 1.515113E+01 Y 3.467987E+01 YZ 0.0 B -1.304689E+00 LY 1.00-0.09 0.0 Z 1.010373E+01 ZX 0.0 C 1.010374E+01 LZ 0.0 0.0 1.00 0 10 42 X -1.270738E+00 XY 1.107714E+00 A 3.498372E+01 LX 0.03 1.00 0.0 -1.459428E+01 1.515111E+01 Y 3.494987E+01 YZ 0.0 B -1.304583E+00 LY 1.00-0.03 0.0 Z 1.010369E+01 ZX 0.0 C 1.010369E+01 LZ 0.0 0.0 1.00 0 10 41 X -1.388310E-01 XY 1.153863E+00 A 3.762612E+01 LX 0.03 1.00 0.0 -1.622922E+01 1.583069E+01 Y 3.759087E+01 YZ 0.0 B -1.740849E-01 LY 1.00-0.03 0.0 Z 1.123560E+01 ZX 0.0 C 1.123561E+01 LZ 0.0 0.0 1.00 0 10 29 X 1.426364E-01 XY 3.444250E+00 A 3.762624E+01 LX 0.09 1.00 0.0 -1.622935E+01 1.583065E+01 Y 3.730976E+01 YZ 0.0 B -1.738449E-01 LY 1.00-0.09 0.0 Z 1.123565E+01 ZX 0.0 C 1.123565E+01 LZ 0.0 0.0 1.00 0 10 30 X -1.000798E+00 XY 3.306483E+00 A 3.498369E+01 LX 0.09 1.00 0.0 -1.459427E+01 1.515111E+01 Y 3.467987E+01 YZ 0.0 B -1.304620E+00 LY 1.00-0.09 0.0 Z 1.010372E+01 ZX 0.0 C 1.010373E+01 LZ 0.0 0.0 1.00 0 10 48 X -1.270767E+00 XY 1.107689E+00 A 3.498366E+01 LX 0.03 1.00 0.0 -1.459427E+01 1.515109E+01 Y 3.494982E+01 YZ 0.0 B -1.304614E+00 LY 1.00-0.03 0.0 Z 1.010376E+01 ZX 0.0 C 1.010377E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10 47 X -1.391150E-01 XY 1.153877E+00 A 3.762605E+01 LX 0.03 1.00 0.0 -1.622909E+01 1.583075E+01 Y 3.759079E+01 YZ 0.0 B -1.743724E-01 LY 1.00-0.03 0.0 Z 1.123559E+01 ZX 0.0 C 1.123558E+01 LZ 0.0 0.0 1.00 0 10 0 X -5.670121E-01 XY 2.253075E+00 A 3.627036E+01 LX 0.06 1.00 0.0 -1.541174E+01 1.546300E+01 Y 3.613255E+01 YZ 0.0 B -7.048191E-01 LY 1.00-0.06 0.0 Z 1.066966E+01 ZX 0.0 C 1.066967E+01 LZ 0.0 0.0 1.00 0 11 37 X -7.651814E+00 XY -1.654801E+00 A 4.650867E+01 LX 0.03 1.00 0.0 -1.681606E+01 2.243195E+01 Y 4.645811E+01 YZ 0.0 B -7.702378E+00 LY -1.00 0.03 0.0 Z 1.164190E+01 ZX 0.0 C 1.164190E+01 LZ 0.0 0.0 1.00 0 11 38 X -9.584056E+00 XY -1.576046E+00 A 4.199729E+01 LX 0.03 1.00 0.0 -1.402484E+01 2.129739E+01 Y 4.194913E+01 YZ 0.0 B -9.632212E+00 LY -1.00 0.03 0.0 Z 9.709447E+00 ZX 0.0 C 9.709450E+00 LZ 0.0 0.0 1.00 0 11 56 X -9.200301E+00 XY -4.704339E+00 A 4.199720E+01 LX 0.09 1.00 0.0 -1.402468E+01 2.129749E+01 Y 4.156494E+01 YZ 0.0 B -9.632565E+00 LY -1.00 0.09 0.0 Z 9.709412E+00 ZX 0.0 C 9.709413E+00 LZ 0.0 0.0 1.00 0 11 55 X -7.248493E+00 XY -4.939536E+00 A 4.650873E+01 LX 0.09 1.00 0.0 -1.681608E+01 2.243197E+01 Y 4.605486E+01 YZ 0.0 B -7.702365E+00 LY -1.00 0.09 0.0 Z 1.164187E+01 ZX 0.0 C 1.164188E+01 LZ 0.0 0.0 1.00 0 11 43 X -7.651825E+00 XY -1.654794E+00 A 4.650875E+01 LX 0.03 1.00 0.0 -1.681609E+01 2.243199E+01 Y 4.645819E+01 YZ 0.0 B -7.702390E+00 LY -1.00 0.03 0.0 Z 1.164190E+01 ZX 0.0 C 1.164190E+01 LZ 0.0 0.0 1.00 0 11 44 X -9.584261E+00 XY -1.575992E+00 A 4.199724E+01 LX 0.03 1.00 0.0 -1.402478E+01 2.129744E+01 Y 4.194909E+01 YZ 0.0 B -9.632413E+00 LY -1.00 0.03 0.0 Z 9.709498E+00 ZX 0.0 C 9.709501E+00 LZ 0.0 0.0 1.00 0 11 62 X -9.200224E+00 XY -4.704395E+00 A 4.199726E+01 LX 0.09 1.00 0.0 -1.402474E+01 2.129748E+01 Y 4.156498E+01 YZ 0.0 B -9.632502E+00 LY -1.00 0.09 0.0 Z 9.709466E+00 ZX 0.0 C 9.709473E+00 LZ 0.0 0.0 1.00 0 11 61 X -7.248506E+00 XY -4.939567E+00 A 4.650861E+01 LX 0.09 1.00 0.0 -1.681604E+01 2.243192E+01 Y 4.605473E+01 YZ 0.0 B -7.702387E+00 LY -1.00 0.09 0.0 Z 1.164190E+01 ZX 0.0 C 1.164190E+01 LZ 0.0 0.0 1.00 0 11 0 X -8.421185E+00 XY -3.218684E+00 A 4.420362E+01 LX 0.06 1.00 0.0 -1.542041E+01 2.182379E+01 Y 4.400676E+01 YZ 0.0 B -8.618051E+00 LY -1.00 0.06 0.0 Z 1.067567E+01 ZX 0.0 C 1.067568E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 12 38 X -5.382993E+00 XY -1.502676E+00 A 4.379935E+01 LX 0.03 1.00 0.0 -1.662721E+01 2.042034E+01 Y 4.375344E+01 YZ 0.0 B -5.428905E+00 LY -1.00 0.03 0.0 Z 1.151118E+01 ZX 0.0 C 1.151119E+01 LZ 0.0 0.0 1.00 0 12 39 X -7.058012E+00 XY -1.434405E+00 A 3.988879E+01 LX 0.03 1.00 0.0 -1.420768E+01 1.943130E+01 Y 3.984496E+01 YZ 0.0 B -7.101843E+00 LY -1.00 0.03 0.0 Z 9.836076E+00 ZX 0.0 C 9.836083E+00 LZ 0.0 0.0 1.00 0 12 57 X -6.708365E+00 XY -4.281602E+00 A 3.988887E+01 LX 0.09 1.00 0.0 -1.420774E+01 1.943131E+01 Y 3.949546E+01 YZ 0.0 B -7.101781E+00 LY -1.00 0.09 0.0 Z 9.836114E+00 ZX 0.0 C 9.836115E+00 LZ 0.0 0.0 1.00 0 12 56 X -5.016712E+00 XY -4.485510E+00 A 4.379939E+01 LX 0.09 1.00 0.0 -1.662723E+01 2.042035E+01 Y 4.338723E+01 YZ 0.0 B -5.428871E+00 LY -1.00 0.09 0.0 Z 1.151119E+01 ZX 0.0 C 1.151119E+01 LZ 0.0 0.0 1.00 0 12 44 X -5.382915E+00 XY -1.502709E+00 A 4.379931E+01 LX 0.03 1.00 0.0 -1.662720E+01 2.042030E+01 Y 4.375340E+01 YZ 0.0 B -5.428830E+00 LY -1.00 0.03 0.0 Z 1.151112E+01 ZX 0.0 C 1.151112E+01 LZ 0.0 0.0 1.00 0 12 45 X -7.058091E+00 XY -1.434398E+00 A 3.988885E+01 LX 0.03 1.00 0.0 -1.420768E+01 1.943135E+01 Y 3.984503E+01 YZ 0.0 B -7.101920E+00 LY -1.00 0.03 0.0 Z 9.836105E+00 ZX 0.0 C 9.836102E+00 LZ 0.0 0.0 1.00 0 12 63 X -6.708352E+00 XY -4.281596E+00 A 3.988883E+01 LX 0.09 1.00 0.0 -1.420775E+01 1.943128E+01 Y 3.949541E+01 YZ 0.0 B -7.101771E+00 LY -1.00 0.09 0.0 Z 9.836208E+00 ZX 0.0 C 9.836206E+00 LZ 0.0 0.0 1.00 0 12 62 X -5.016639E+00 XY -4.485536E+00 A 4.379939E+01 LX 0.09 1.00 0.0 -1.662724E+01 2.042032E+01 Y 4.338723E+01 YZ 0.0 B -5.428802E+00 LY -1.00 0.09 0.0 Z 1.151115E+01 ZX 0.0 C 1.151115E+01 LZ 0.0 0.0 1.00 0 12 0 X -6.041510E+00 XY -2.926054E+00 A 4.179924E+01 LX 0.06 1.00 0.0 -1.541747E+01 1.988888E+01 Y 4.162027E+01 YZ 0.0 B -6.220476E+00 LY -1.00 0.06 0.0 Z 1.067364E+01 ZX 0.0 C 1.067365E+01 LZ 0.0 0.0 1.00 0 13 39 X -3.404559E+00 XY -1.370662E+00 A 4.145560E+01 LX 0.03 1.00 0.0 -1.647064E+01 1.867817E+01 Y 4.141372E+01 YZ 0.0 B -3.446439E+00 LY -1.00 0.03 0.0 Z 1.140276E+01 ZX 0.0 C 1.140276E+01 LZ 0.0 0.0 1.00 0 13 40 X -4.866085E+00 XY -1.311039E+00 A 3.804374E+01 LX 0.03 1.00 0.0 -1.435961E+01 1.781038E+01 Y 3.800368E+01 YZ 0.0 B -4.906142E+00 LY -1.00 0.03 0.0 Z 9.941235E+00 ZX 0.0 C 9.941233E+00 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 13 58 X -4.546736E+00 XY -3.913499E+00 A 3.804363E+01 LX 0.09 1.00 0.0 -1.435950E+01 1.781041E+01 Y 3.768403E+01 YZ 0.0 B -4.906337E+00 LY -1.00 0.09 0.0 Z 9.941207E+00 ZX 0.0 C 9.941210E+00 LZ 0.0 0.0 1.00 0 13 57 X -3.070618E+00 XY -4.091303E+00 A 4.145561E+01 LX 0.09 1.00 0.0 -1.647057E+01 1.867822E+01 Y 4.107968E+01 YZ 0.0 B -3.446551E+00 LY -1.00 0.09 0.0 Z 1.140266E+01 ZX 0.0 C 1.140267E+01 LZ 0.0 0.0 1.00 0 13 45 X -3.404575E+00 XY -1.370623E+00 A 4.145563E+01 LX 0.03 1.00 0.0 -1.647064E+01 1.867818E+01 Y 4.141375E+01 YZ 0.0 B -3.446455E+00 LY -1.00 0.03 0.0 Z 1.140276E+01 ZX 0.0 C 1.140276E+01 LZ 0.0 0.0 1.00 0 13 46 X -4.866205E+00 XY -1.311039E+00 A 3.804379E+01 LX 0.03 1.00 0.0 -1.435963E+01 1.781044E+01 Y 3.800373E+01 YZ 0.0 B -4.906261E+00 LY -1.00 0.03 0.0 Z 9.941342E+00 ZX 0.0 C 9.941350E+00 LZ 0.0 0.0 1.00 0 13 64 X -4.546403E+00 XY -3.913457E+00 A 3.804391E+01 LX 0.09 1.00 0.0 -1.435974E+01 1.781040E+01 Y 3.768432E+01 YZ 0.0 B -4.906000E+00 LY -1.00 0.09 0.0 Z 9.941296E+00 ZX 0.0 C 9.941306E+00 LZ 0.0 0.0 1.00 0 13 63 X -3.070669E+00 XY -4.091335E+00 A 4.145551E+01 LX 0.09 1.00 0.0 -1.647053E+01 1.867819E+01 Y 4.107957E+01 YZ 0.0 B -3.446606E+00 LY -1.00 0.09 0.0 Z 1.140269E+01 ZX 0.0 C 1.140269E+01 LZ 0.0 0.0 1.00 0 13 0 X -3.971981E+00 XY -2.671620E+00 A 3.970871E+01 LX 0.06 1.00 0.0 -1.541511E+01 1.821078E+01 Y 3.954531E+01 YZ 0.0 B -4.135385E+00 LY -1.00 0.06 0.0 Z 1.067199E+01 ZX 0.0 C 1.067200E+01 LZ 0.0 0.0 1.00 0 14 40 X -1.669251E+00 XY -1.255260E+00 A 3.941447E+01 LX 0.03 1.00 0.0 -1.633964E+01 1.716030E+01 Y 3.937612E+01 YZ 0.0 B -1.707605E+00 LY -1.00 0.03 0.0 Z 1.131204E+01 ZX 0.0 C 1.131204E+01 LZ 0.0 0.0 1.00 0 14 41 X -2.951932E+00 XY -1.202959E+00 A 3.642012E+01 LX 0.03 1.00 0.0 -1.448697E+01 1.639442E+01 Y 3.638337E+01 YZ 0.0 B -2.988688E+00 LY -1.00 0.03 0.0 Z 1.002946E+01 ZX 0.0 C 1.002947E+01 LZ 0.0 0.0 1.00 0 14 59 X -2.658801E+00 XY -3.590794E+00 A 3.642011E+01 LX 0.09 1.00 0.0 -1.448693E+01 1.639444E+01 Y 3.609017E+01 YZ 0.0 B -2.988745E+00 LY -1.00 0.09 0.0 Z 1.002941E+01 ZX 0.0 C 1.002942E+01 LZ 0.0 0.0 1.00 0 14 58 X -1.363514E+00 XY -3.746939E+00 A 3.941443E+01 LX 0.09 1.00 0.0 -1.633952E+01 1.716036E+01 Y 3.907014E+01 YZ 0.0 B -1.707807E+00 LY -1.00 0.09 0.0 Z 1.131193E+01 ZX 0.0 C 1.131194E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 14 46 X -1.669373E+00 XY -1.255256E+00 A 3.941443E+01 LX 0.03 1.00 0.0 -1.633957E+01 1.716033E+01 Y 3.937608E+01 YZ 0.0 B -1.707723E+00 LY -1.00 0.03 0.0 Z 1.131201E+01 ZX 0.0 C 1.131201E+01 LZ 0.0 0.0 1.00 0 14 47 X -2.951972E+00 XY -1.202963E+00 A 3.642004E+01 LX 0.03 1.00 0.0 -1.448689E+01 1.639441E+01 Y 3.638329E+01 YZ 0.0 B -2.988727E+00 LY -1.00 0.03 0.0 Z 1.002937E+01 ZX 0.0 C 1.002937E+01 LZ 0.0 0.0 1.00 0 14 65 X -2.658952E+00 XY -3.590812E+00 A 3.642009E+01 LX 0.09 1.00 0.0 -1.448688E+01 1.639448E+01 Y 3.609015E+01 YZ 0.0 B -2.988897E+00 LY -1.00 0.09 0.0 Z 1.002943E+01 ZX 0.0 C 1.002944E+01 LZ 0.0 0.0 1.00 0 14 64 X -1.363212E+00 XY -3.746920E+00 A 3.941459E+01 LX 0.09 1.00 0.0 -1.633973E+01 1.716031E+01 Y 3.907030E+01 YZ 0.0 B -1.707505E+00 LY -1.00 0.09 0.0 Z 1.131211E+01 ZX 0.0 C 1.131211E+01 LZ 0.0 0.0 1.00 0 14 0 X -2.160876E+00 XY -2.448988E+00 A 3.787974E+01 LX 0.06 1.00 0.0 -1.541327E+01 1.674686E+01 Y 3.772995E+01 YZ 0.0 B -2.310665E+00 LY -1.00 0.06 0.0 Z 1.067072E+01 ZX 0.0 C 1.067072E+01 LZ 0.0 0.0 1.00 0 15 41 X -1.389500E-01 XY -1.153847E+00 A 3.762617E+01 LX 0.03 1.00 0.0 -1.622919E+01 1.583075E+01 Y 3.759092E+01 YZ 0.0 B -1.742062E-01 LY -1.00 0.03 0.0 Z 1.123560E+01 ZX 0.0 C 1.123560E+01 LZ 0.0 0.0 1.00 0 15 42 X -1.270707E+00 XY -1.107705E+00 A 3.498373E+01 LX 0.03 1.00 0.0 -1.459432E+01 1.515109E+01 Y 3.494988E+01 YZ 0.0 B -1.304554E+00 LY -1.00 0.03 0.0 Z 1.010380E+01 ZX 0.0 C 1.010380E+01 LZ 0.0 0.0 1.00 0 15 60 X -1.000982E+00 XY -3.306457E+00 A 3.498371E+01 LX 0.09 1.00 0.0 -1.459419E+01 1.515119E+01 Y 3.467990E+01 YZ 0.0 B -1.304796E+00 LY -1.00 0.09 0.0 Z 1.010367E+01 ZX 0.0 C 1.010366E+01 LZ 0.0 0.0 1.00 0 15 59 X 1.425155E-01 XY -3.444238E+00 A 3.762608E+01 LX 0.09 1.00 0.0 -1.622923E+01 1.583063E+01 Y 3.730960E+01 YZ 0.0 B -1.739643E-01 LY -1.00 0.09 0.0 Z 1.123556E+01 ZX 0.0 C 1.123556E+01 LZ 0.0 0.0 1.00 0 15 47 X -1.390444E-01 XY -1.153878E+00 A 3.762612E+01 LX 0.03 1.00 0.0 -1.622914E+01 1.583076E+01 Y 3.759087E+01 YZ 0.0 B -1.743022E-01 LY -1.00 0.03 0.0 Z 1.123560E+01 ZX 0.0 C 1.123560E+01 LZ 0.0 0.0 1.00 0 15 48 X -1.270686E+00 XY -1.107688E+00 A 3.498372E+01 LX 0.03 1.00 0.0 -1.459429E+01 1.515109E+01 Y 3.494987E+01 YZ 0.0 B -1.304530E+00 LY -1.00 0.03 0.0 Z 1.010369E+01 ZX 0.0 C 1.010370E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 15 66 X -1.000765E+00 XY -3.306450E+00 A 3.498368E+01 LX 0.09 1.00 0.0 -1.459431E+01 1.515108E+01 Y 3.467986E+01 YZ 0.0 B -1.304583E+00 LY -1.00 0.09 0.0 Z 1.010383E+01 ZX 0.0 C 1.010383E+01 LZ 0.0 0.0 1.00 0 15 65 X 1.426059E-01 XY -3.444229E+00 A 3.762623E+01 LX 0.09 1.00 0.0 -1.622934E+01 1.583066E+01 Y 3.730975E+01 YZ 0.0 B -1.738749E-01 LY -1.00 0.09 0.0 Z 1.123565E+01 ZX 0.0 C 1.123565E+01 LZ 0.0 0.0 1.00 0 15 0 X -5.670016E-01 XY -2.253062E+00 A 3.627039E+01 LX 0.06 1.00 0.0 -1.541175E+01 1.546301E+01 Y 3.613258E+01 YZ 0.0 B -7.048067E-01 LY -1.00 0.06 0.0 Z 1.066967E+01 ZX 0.0 C 1.066967E+01 LZ 0.0 0.0 1.00 0 16 55 X -6.447991E+00 XY -8.150861E+00 A 4.650864E+01 LX 0.15 0.99 0.0 -1.681602E+01 2.243199E+01 Y 4.525410E+01 YZ 0.0 B -7.702540E+00 LY -0.99 0.15 0.0 Z 1.164194E+01 ZX 0.0 C 1.164194E+01 LZ 0.0 0.0 1.00 0 16 56 X -8.437662E+00 XY -7.762743E+00 A 4.199734E+01 LX 0.15 0.99 0.0 -1.402477E+01 2.129751E+01 Y 4.080252E+01 YZ 0.0 B -9.632472E+00 LY -0.99 0.15 0.0 Z 9.709441E+00 ZX 0.0 C 9.709437E+00 LZ 0.0 0.0 1.00 0 16 74 X -7.308058E+00 XY -1.070514E+01 A 4.199718E+01 LX 0.21 0.98 0.0 -1.402476E+01 2.129740E+01 Y 3.967288E+01 YZ 0.0 B -9.632358E+00 LY -0.98 0.21 0.0 Z 9.709444E+00 ZX 0.0 C 9.709447E+00 LZ 0.0 0.0 1.00 0 16 73 X -5.261737E+00 XY -1.124039E+01 A 4.650871E+01 LX 0.21 0.98 0.0 -1.681612E+01 2.243192E+01 Y 4.406820E+01 YZ 0.0 B -7.702252E+00 LY -0.98 0.21 0.0 Z 1.164189E+01 ZX 0.0 C 1.164190E+01 LZ 0.0 0.0 1.00 0 16 61 X -6.447934E+00 XY -8.150843E+00 A 4.650863E+01 LX 0.15 0.99 0.0 -1.681600E+01 2.243197E+01 Y 4.525409E+01 YZ 0.0 B -7.702472E+00 LY -0.99 0.15 0.0 Z 1.164184E+01 ZX 0.0 C 1.164184E+01 LZ 0.0 0.0 1.00 0 16 62 X -8.437500E+00 XY -7.762682E+00 A 4.199716E+01 LX 0.15 0.99 0.0 -1.402480E+01 2.129736E+01 Y 4.080237E+01 YZ 0.0 B -9.632298E+00 LY -0.99 0.15 0.0 Z 9.709517E+00 ZX 0.0 C 9.709520E+00 LZ 0.0 0.0 1.00 0 16 80 X -7.307952E+00 XY -1.070515E+01 A 4.199731E+01 LX 0.21 0.98 0.0 -1.402485E+01 2.129741E+01 Y 3.967301E+01 YZ 0.0 B -9.632254E+00 LY -0.98 0.21 0.0 Z 9.709495E+00 ZX 0.0 C 9.709496E+00 LZ 0.0 0.0 1.00 0 16 79 X -5.261828E+00 XY -1.124040E+01 A 4.650865E+01 LX 0.21 0.98 0.0 -1.681608E+01 2.243192E+01 Y 4.406814E+01 YZ 0.0 B -7.702345E+00 LY -0.98 0.21 0.0 Z 1.164194E+01 ZX 0.0 C 1.164195E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 16 0 X -6.863833E+00 XY -9.464778E+00 A 4.420361E+01 LX 0.18 0.98 0.0 -1.542043E+01 2.182377E+01 Y 4.244942E+01 YZ 0.0 B -8.618024E+00 LY -0.98 0.18 0.0 Z 1.067569E+01 ZX 0.0 C 1.067569E+01 LZ 0.0 0.0 1.00 0 17 56 X -4.289547E+00 XY -7.401642E+00 A 4.379949E+01 LX 0.15 0.99 0.0 -1.662735E+01 2.042035E+01 Y 4.266026E+01 YZ 0.0 B -5.428777E+00 LY -0.99 0.15 0.0 Z 1.151133E+01 ZX 0.0 C 1.151133E+01 LZ 0.0 0.0 1.00 0 17 57 X -6.014280E+00 XY -7.065206E+00 A 3.988877E+01 LX 0.15 0.99 0.0 -1.420772E+01 1.943124E+01 Y 3.880132E+01 YZ 0.0 B -7.101728E+00 LY -0.99 0.15 0.0 Z 9.836125E+00 ZX 0.0 C 9.836129E+00 LZ 0.0 0.0 1.00 0 17 75 X -4.986279E+00 XY -9.743273E+00 A 3.988882E+01 LX 0.21 0.98 0.0 -1.420772E+01 1.943127E+01 Y 3.777337E+01 YZ 0.0 B -7.101737E+00 LY -0.98 0.21 0.0 Z 9.836079E+00 ZX 0.0 C 9.836083E+00 LZ 0.0 0.0 1.00 0 17 74 X -3.212636E+00 XY -1.020727E+01 A 4.379926E+01 LX 0.21 0.98 0.0 -1.662715E+01 2.042029E+01 Y 4.158304E+01 YZ 0.0 B -5.428843E+00 LY -0.98 0.21 0.0 Z 1.151105E+01 ZX 0.0 C 1.151105E+01 LZ 0.0 0.0 1.00 0 17 62 X -4.289447E+00 XY -7.401594E+00 A 4.379947E+01 LX 0.15 0.99 0.0 -1.662736E+01 2.042030E+01 Y 4.266025E+01 YZ 0.0 B -5.428667E+00 LY -0.99 0.15 0.0 Z 1.151128E+01 ZX 0.0 C 1.151128E+01 LZ 0.0 0.0 1.00 0 17 63 X -6.014262E+00 XY -7.065218E+00 A 3.988875E+01 LX 0.15 0.99 0.0 -1.420770E+01 1.943124E+01 Y 3.880130E+01 YZ 0.0 B -7.101717E+00 LY -0.99 0.15 0.0 Z 9.836059E+00 ZX 0.0 C 9.836068E+00 LZ 0.0 0.0 1.00 0 17 81 X -4.986399E+00 XY -9.743288E+00 A 3.988883E+01 LX 0.21 0.98 0.0 -1.420771E+01 1.943132E+01 Y 3.777337E+01 YZ 0.0 B -7.101860E+00 LY -0.98 0.21 0.0 Z 9.836139E+00 ZX 0.0 C 9.836145E+00 LZ 0.0 0.0 1.00 0 17 80 X -3.212860E+00 XY -1.020726E+01 A 4.379925E+01 LX 0.21 0.98 0.0 -1.662708E+01 2.042036E+01 Y 4.158305E+01 YZ 0.0 B -5.429059E+00 LY -0.98 0.21 0.0 Z 1.151105E+01 ZX 0.0 C 1.151106E+01 LZ 0.0 0.0 1.00 0 17 0 X -4.625714E+00 XY -8.604343E+00 A 4.179921E+01 LX 0.18 0.98 0.0 -1.541747E+01 1.988885E+01 Y 4.020450E+01 YZ 0.0 B -6.220437E+00 LY -0.98 0.18 0.0 Z 1.067364E+01 ZX 0.0 C 1.067365E+01 LZ 0.0 0.0 1.00 0 18 57 X -2.407416E+00 XY -6.751181E+00 A 4.145557E+01 LX 0.15 0.99 0.0 -1.647060E+01 1.867818E+01 Y 4.041646E+01 YZ 0.0 B -3.446524E+00 LY -0.99 0.15 0.0 Z 1.140275E+01 ZX 0.0 C 1.140275E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 18 58 X -3.912360E+00 XY -6.457686E+00 A 3.804369E+01 LX 0.15 0.99 0.0 -1.435951E+01 1.781042E+01 Y 3.704975E+01 YZ 0.0 B -4.906299E+00 LY -0.99 0.15 0.0 Z 9.941144E+00 ZX 0.0 C 9.941146E+00 LZ 0.0 0.0 1.00 0 18 76 X -2.972674E+00 XY -8.905455E+00 A 3.804382E+01 LX 0.21 0.98 0.0 -1.435964E+01 1.781044E+01 Y 3.611028E+01 YZ 0.0 B -4.906217E+00 LY -0.98 0.21 0.0 Z 9.941318E+00 ZX 0.0 C 9.941320E+00 LZ 0.0 0.0 1.00 0 18 75 X -1.424910E+00 XY -9.310263E+00 A 4.145557E+01 LX 0.21 0.98 0.0 -1.647065E+01 1.867813E+01 Y 3.943411E+01 YZ 0.0 B -3.446368E+00 LY -0.98 0.21 0.0 Z 1.140274E+01 ZX 0.0 C 1.140274E+01 LZ 0.0 0.0 1.00 0 18 63 X -2.407360E+00 XY -6.751261E+00 A 4.145552E+01 LX 0.15 0.99 0.0 -1.647055E+01 1.867817E+01 Y 4.041638E+01 YZ 0.0 B -3.446500E+00 LY -0.99 0.15 0.0 Z 1.140263E+01 ZX 0.0 C 1.140262E+01 LZ 0.0 0.0 1.00 0 18 64 X -3.912142E+00 XY -6.457650E+00 A 3.804378E+01 LX 0.15 0.99 0.0 -1.435967E+01 1.781037E+01 Y 3.704985E+01 YZ 0.0 B -4.906075E+00 LY -0.99 0.15 0.0 Z 9.941298E+00 ZX 0.0 C 9.941304E+00 LZ 0.0 0.0 1.00 0 18 82 X -2.972641E+00 XY -8.905495E+00 A 3.804374E+01 LX 0.21 0.98 0.0 -1.435961E+01 1.781040E+01 Y 3.611017E+01 YZ 0.0 B -4.906206E+00 LY -0.98 0.21 0.0 Z 9.941302E+00 ZX 0.0 C 9.941311E+00 LZ 0.0 0.0 1.00 0 18 81 X -1.425248E+00 XY -9.310236E+00 A 4.145552E+01 LX 0.21 0.98 0.0 -1.647050E+01 1.867822E+01 Y 3.943409E+01 YZ 0.0 B -3.446681E+00 LY -0.98 0.21 0.0 Z 1.140267E+01 ZX 0.0 C 1.140267E+01 LZ 0.0 0.0 1.00 0 18 0 X -2.679344E+00 XY -7.856153E+00 A 3.970869E+01 LX 0.18 0.98 0.0 -1.541509E+01 1.821078E+01 Y 3.825264E+01 YZ 0.0 B -4.135399E+00 LY -0.98 0.18 0.0 Z 1.067198E+01 ZX 0.0 C 1.067199E+01 LZ 0.0 0.0 1.00 0 19 58 X -7.559631E-01 XY -6.182885E+00 A 3.941452E+01 LX 0.15 0.99 0.0 -1.633965E+01 1.716032E+01 Y 3.846287E+01 YZ 0.0 B -1.707608E+00 LY -0.99 0.15 0.0 Z 1.131203E+01 ZX 0.0 C 1.131203E+01 LZ 0.0 0.0 1.00 0 19 59 X -2.076752E+00 XY -5.925269E+00 A 3.642009E+01 LX 0.15 0.99 0.0 -1.448693E+01 1.639443E+01 Y 3.550809E+01 YZ 0.0 B -2.988746E+00 LY -0.99 0.15 0.0 Z 1.002946E+01 ZX 0.0 C 1.002946E+01 LZ 0.0 0.0 1.00 0 19 77 X -1.214674E+00 XY -8.171244E+00 A 3.642007E+01 LX 0.21 0.98 0.0 -1.448687E+01 1.639445E+01 Y 3.464593E+01 YZ 0.0 B -2.988816E+00 LY -0.98 0.21 0.0 Z 1.002936E+01 ZX 0.0 C 1.002937E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 19 76 X 1.434554E-01 XY -8.526519E+00 A 3.941451E+01 LX 0.21 0.98 0.0 -1.633958E+01 1.716039E+01 Y 3.756325E+01 YZ 0.0 B -1.707819E+00 LY -0.98 0.21 0.0 Z 1.131204E+01 ZX 0.0 C 1.131205E+01 LZ 0.0 0.0 1.00 0 19 64 X -7.560387E-01 XY -6.182858E+00 A 3.941451E+01 LX 0.15 0.99 0.0 -1.633962E+01 1.716034E+01 Y 3.846287E+01 YZ 0.0 B -1.707673E+00 LY -0.99 0.15 0.0 Z 1.131204E+01 ZX 0.0 C 1.131204E+01 LZ 0.0 0.0 1.00 0 19 65 X -2.076801E+00 XY -5.925259E+00 A 3.642009E+01 LX 0.15 0.99 0.0 -1.448689E+01 1.639445E+01 Y 3.550809E+01 YZ 0.0 B -2.988788E+00 LY -0.99 0.15 0.0 Z 1.002936E+01 ZX 0.0 C 1.002936E+01 LZ 0.0 0.0 1.00 0 19 83 X -1.214617E+00 XY -8.171262E+00 A 3.642010E+01 LX 0.21 0.98 0.0 -1.448692E+01 1.639445E+01 Y 3.464596E+01 YZ 0.0 B -2.988765E+00 LY -0.98 0.21 0.0 Z 1.002942E+01 ZX 0.0 C 1.002942E+01 LZ 0.0 0.0 1.00 0 19 82 X 1.436092E-01 XY -8.526481E+00 A 3.941450E+01 LX 0.21 0.98 0.0 -1.633962E+01 1.716033E+01 Y 3.756324E+01 YZ 0.0 B -1.707659E+00 LY -0.98 0.21 0.0 Z 1.131201E+01 ZX 0.0 C 1.131201E+01 LZ 0.0 0.0 1.00 0 19 0 X -9.759728E-01 XY -7.201473E+00 A 3.787975E+01 LX 0.18 0.98 0.0 -1.541326E+01 1.674687E+01 Y 3.654504E+01 YZ 0.0 B -2.310685E+00 LY -0.98 0.18 0.0 Z 1.067072E+01 ZX 0.0 C 1.067071E+01 LZ 0.0 0.0 1.00 0 20 59 X 7.009242E-01 XY -5.683420E+00 A 3.762620E+01 LX 0.15 0.99 0.0 -1.622933E+01 1.583064E+01 Y 3.675143E+01 YZ 0.0 B -1.738502E-01 LY -0.99 0.15 0.0 Z 1.123565E+01 ZX 0.0 C 1.123565E+01 LZ 0.0 0.0 1.00 0 20 60 X -4.648032E-01 XY -5.456080E+00 A 3.498375E+01 LX 0.15 0.99 0.0 -1.459431E+01 1.515111E+01 Y 3.414397E+01 YZ 0.0 B -1.304577E+00 LY -0.99 0.15 0.0 Z 1.010377E+01 ZX 0.0 C 1.010377E+01 LZ 0.0 0.0 1.00 0 20 78 X 3.291521E-01 XY -7.524220E+00 A 3.498374E+01 LX 0.21 0.98 0.0 -1.459434E+01 1.515108E+01 Y 3.335007E+01 YZ 0.0 B -1.304510E+00 LY -0.98 0.21 0.0 Z 1.010379E+01 ZX 0.0 C 1.010380E+01 LZ 0.0 0.0 1.00 0 20 77 X 1.527491E+00 XY -7.837722E+00 A 3.762610E+01 LX 0.21 0.98 0.0 -1.622913E+01 1.583074E+01 Y 3.592437E+01 YZ 0.0 B -1.742332E-01 LY -0.98 0.21 0.0 Z 1.123553E+01 ZX 0.0 C 1.123553E+01 LZ 0.0 0.0 1.00 0 20 65 X 7.005276E-01 XY -5.683405E+00 A 3.762613E+01 LX 0.15 0.99 0.0 -1.622916E+01 1.583075E+01 Y 3.675137E+01 YZ 0.0 B -1.742376E-01 LY -0.99 0.15 0.0 Z 1.123559E+01 ZX 0.0 C 1.123559E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 20 66 X -4.646621E-01 XY -5.456085E+00 A 3.498379E+01 LX 0.15 0.99 0.0 -1.459440E+01 1.515108E+01 Y 3.414401E+01 YZ 0.0 B -1.304439E+00 LY -0.99 0.15 0.0 Z 1.010385E+01 ZX 0.0 C 1.010385E+01 LZ 0.0 0.0 1.00 0 20 84 X 3.289979E-01 XY -7.524213E+00 A 3.498376E+01 LX 0.21 0.98 0.0 -1.459427E+01 1.515115E+01 Y 3.335011E+01 YZ 0.0 B -1.304654E+00 LY -0.98 0.21 0.0 Z 1.010370E+01 ZX 0.0 C 1.010371E+01 LZ 0.0 0.0 1.00 0 20 83 X 1.527745E+00 XY -7.837724E+00 A 3.762621E+01 LX 0.21 0.98 0.0 -1.622931E+01 1.583068E+01 Y 3.592447E+01 YZ 0.0 B -1.739885E-01 LY -0.98 0.21 0.0 Z 1.123570E+01 ZX 0.0 C 1.123570E+01 LZ 0.0 0.0 1.00 0 20 0 X 5.231716E-01 XY -6.625359E+00 A 3.627042E+01 LX 0.18 0.98 0.0 -1.541178E+01 1.546300E+01 Y 3.504248E+01 YZ 0.0 B -7.047694E-01 LY -0.98 0.18 0.0 Z 1.066970E+01 ZX 0.0 C 1.066970E+01 LZ 0.0 0.0 1.00 0 21 7 X -5.261773E+00 XY 1.124047E+01 A 4.650879E+01 LX 0.21 0.98 0.0 -1.681615E+01 2.243197E+01 Y 4.406825E+01 YZ 0.0 B -7.702315E+00 LY 0.98-0.21 0.0 Z 1.164196E+01 ZX 0.0 C 1.164197E+01 LZ 0.0 0.0 1.00 0 21 8 X -7.308180E+00 XY 1.070516E+01 A 4.199723E+01 LX 0.21 0.98 0.0 -1.402472E+01 2.129747E+01 Y 3.967293E+01 YZ 0.0 B -9.632483E+00 LY 0.98-0.21 0.0 Z 9.709400E+00 ZX 0.0 C 9.709409E+00 LZ 0.0 0.0 1.00 0 21 26 X -8.437486E+00 XY 7.762687E+00 A 4.199744E+01 LX 0.15 0.99 0.0 -1.402492E+01 2.129747E+01 Y 4.080264E+01 YZ 0.0 B -9.632278E+00 LY 0.99-0.15 0.0 Z 9.709592E+00 ZX 0.0 C 9.709592E+00 LZ 0.0 0.0 1.00 0 21 25 X -6.447939E+00 XY 8.150828E+00 A 4.650868E+01 LX 0.15 0.99 0.0 -1.681602E+01 2.243199E+01 Y 4.525414E+01 YZ 0.0 B -7.702480E+00 LY 0.99-0.15 0.0 Z 1.164187E+01 ZX 0.0 C 1.164188E+01 LZ 0.0 0.0 1.00 0 21 13 X -5.261611E+00 XY 1.124042E+01 A 4.650882E+01 LX 0.21 0.98 0.0 -1.681622E+01 2.243192E+01 Y 4.406829E+01 YZ 0.0 B -7.702136E+00 LY 0.98-0.21 0.0 Z 1.164199E+01 ZX 0.0 C 1.164199E+01 LZ 0.0 0.0 1.00 0 21 14 X -7.308160E+00 XY 1.070515E+01 A 4.199729E+01 LX 0.21 0.98 0.0 -1.402478E+01 2.129748E+01 Y 3.967300E+01 YZ 0.0 B -9.632454E+00 LY 0.98-0.21 0.0 Z 9.709500E+00 ZX 0.0 C 9.709498E+00 LZ 0.0 0.0 1.00 0 21 32 X -8.437604E+00 XY 7.762742E+00 A 4.199728E+01 LX 0.15 0.99 0.0 -1.402478E+01 2.129746E+01 Y 4.080247E+01 YZ 0.0 B -9.632417E+00 LY 0.99-0.15 0.0 Z 9.709466E+00 ZX 0.0 C 9.709470E+00 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 21 31 X -6.447938E+00 XY 8.150821E+00 A 4.650867E+01 LX 0.15 0.99 0.0 -1.681603E+01 2.243198E+01 Y 4.525414E+01 YZ 0.0 B -7.702474E+00 LY 0.99-0.15 0.0 Z 1.164189E+01 ZX 0.0 C 1.164190E+01 LZ 0.0 0.0 1.00 0 21 0 X -6.863837E+00 XY 9.464785E+00 A 4.420368E+01 LX 0.18 0.98 0.0 -1.542045E+01 2.182380E+01 Y 4.244949E+01 YZ 0.0 B -8.618029E+00 LY 0.98-0.18 0.0 Z 1.067571E+01 ZX 0.0 C 1.067571E+01 LZ 0.0 0.0 1.00 0 22 8 X -3.212638E+00 XY 1.020726E+01 A 4.379932E+01 LX 0.21 0.98 0.0 -1.662721E+01 2.042031E+01 Y 4.158311E+01 YZ 0.0 B -5.428841E+00 LY 0.98-0.21 0.0 Z 1.151115E+01 ZX 0.0 C 1.151115E+01 LZ 0.0 0.0 1.00 0 22 9 X -4.986290E+00 XY 9.743331E+00 A 3.988884E+01 LX 0.21 0.98 0.0 -1.420771E+01 1.943130E+01 Y 3.777337E+01 YZ 0.0 B -7.101770E+00 LY 0.98-0.21 0.0 Z 9.836070E+00 ZX 0.0 C 9.836070E+00 LZ 0.0 0.0 1.00 0 22 27 X -6.014593E+00 XY 7.065217E+00 A 3.988871E+01 LX 0.15 0.99 0.0 -1.420757E+01 1.943134E+01 Y 3.880127E+01 YZ 0.0 B -7.102040E+00 LY 0.99-0.15 0.0 Z 9.836025E+00 ZX 0.0 C 9.836030E+00 LZ 0.0 0.0 1.00 0 22 26 X -4.289634E+00 XY 7.401616E+00 A 4.379949E+01 LX 0.15 0.99 0.0 -1.662726E+01 2.042039E+01 Y 4.266027E+01 YZ 0.0 B -5.428847E+00 LY 0.99-0.15 0.0 Z 1.151113E+01 ZX 0.0 C 1.151113E+01 LZ 0.0 0.0 1.00 0 22 14 X -3.212891E+00 XY 1.020729E+01 A 4.379936E+01 LX 0.21 0.98 0.0 -1.662711E+01 2.042043E+01 Y 4.158315E+01 YZ 0.0 B -5.429098E+00 LY 0.98-0.21 0.0 Z 1.151107E+01 ZX 0.0 C 1.151107E+01 LZ 0.0 0.0 1.00 0 22 15 X -4.986540E+00 XY 9.743314E+00 A 3.988868E+01 LX 0.21 0.98 0.0 -1.420757E+01 1.943131E+01 Y 3.777320E+01 YZ 0.0 B -7.102013E+00 LY 0.98-0.21 0.0 Z 9.836053E+00 ZX 0.0 C 9.836055E+00 LZ 0.0 0.0 1.00 0 22 33 X -6.014266E+00 XY 7.065208E+00 A 3.988883E+01 LX 0.15 0.99 0.0 -1.420771E+01 1.943127E+01 Y 3.880138E+01 YZ 0.0 B -7.101716E+00 LY 0.99-0.15 0.0 Z 9.836017E+00 ZX 0.0 C 9.836019E+00 LZ 0.0 0.0 1.00 0 22 32 X -4.289722E+00 XY 7.401639E+00 A 4.379939E+01 LX 0.15 0.99 0.0 -1.662723E+01 2.042037E+01 Y 4.266017E+01 YZ 0.0 B -5.428944E+00 LY 0.99-0.15 0.0 Z 1.151125E+01 ZX 0.0 C 1.151125E+01 LZ 0.0 0.0 1.00 0 22 0 X -4.625822E+00 XY 8.604360E+00 A 4.179921E+01 LX 0.18 0.98 0.0 -1.541742E+01 1.988890E+01 Y 4.020449E+01 YZ 0.0 B -6.220546E+00 LY 0.98-0.18 0.0 Z 1.067360E+01 ZX 0.0 C 1.067360E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 23 9 X -1.424954E+00 XY 9.310253E+00 A 4.145556E+01 LX 0.21 0.98 0.0 -1.647064E+01 1.867814E+01 Y 3.943411E+01 YZ 0.0 B -3.446404E+00 LY 0.98-0.21 0.0 Z 1.140276E+01 ZX 0.0 C 1.140277E+01 LZ 0.0 0.0 1.00 0 23 10 X -2.972486E+00 XY 8.905501E+00 A 3.804379E+01 LX 0.21 0.98 0.0 -1.435970E+01 1.781036E+01 Y 3.611021E+01 YZ 0.0 B -4.906059E+00 LY 0.98-0.21 0.0 Z 9.941361E+00 ZX 0.0 C 9.941369E+00 LZ 0.0 0.0 1.00 0 23 28 X -3.912252E+00 XY 6.457649E+00 A 3.804381E+01 LX 0.15 0.99 0.0 -1.435962E+01 1.781043E+01 Y 3.704989E+01 YZ 0.0 B -4.906178E+00 LY 0.99-0.15 0.0 Z 9.941213E+00 ZX 0.0 C 9.941214E+00 LZ 0.0 0.0 1.00 0 23 27 X -2.407589E+00 XY 6.751238E+00 A 4.145550E+01 LX 0.15 0.99 0.0 -1.647046E+01 1.867823E+01 Y 4.041638E+01 YZ 0.0 B -3.446714E+00 LY 0.99-0.15 0.0 Z 1.140259E+01 ZX 0.0 C 1.140260E+01 LZ 0.0 0.0 1.00 0 23 15 X -1.425101E+00 XY 9.310243E+00 A 4.145564E+01 LX 0.21 0.98 0.0 -1.647062E+01 1.867822E+01 Y 3.943420E+01 YZ 0.0 B -3.446535E+00 LY 0.98-0.21 0.0 Z 1.140275E+01 ZX 0.0 C 1.140276E+01 LZ 0.0 0.0 1.00 0 23 16 X -2.972355E+00 XY 8.905477E+00 A 3.804378E+01 LX 0.21 0.98 0.0 -1.435970E+01 1.781032E+01 Y 3.611021E+01 YZ 0.0 B -4.905927E+00 LY 0.98-0.21 0.0 Z 9.941252E+00 ZX 0.0 C 9.941255E+00 LZ 0.0 0.0 1.00 0 23 34 X -3.912313E+00 XY 6.457647E+00 A 3.804366E+01 LX 0.15 0.99 0.0 -1.435958E+01 1.781038E+01 Y 3.704973E+01 YZ 0.0 B -4.906243E+00 LY 0.99-0.15 0.0 Z 9.941315E+00 ZX 0.0 C 9.941319E+00 LZ 0.0 0.0 1.00 0 23 33 X -2.407286E+00 XY 6.751226E+00 A 4.145551E+01 LX 0.15 0.99 0.0 -1.647058E+01 1.867813E+01 Y 4.041639E+01 YZ 0.0 B -3.446417E+00 LY 0.99-0.15 0.0 Z 1.140263E+01 ZX 0.0 C 1.140263E+01 LZ 0.0 0.0 1.00 0 23 0 X -2.679292E+00 XY 7.856154E+00 A 3.970870E+01 LX 0.18 0.98 0.0 -1.541511E+01 1.821077E+01 Y 3.825264E+01 YZ 0.0 B -4.135346E+00 LY 0.98-0.18 0.0 Z 1.067198E+01 ZX 0.0 C 1.067199E+01 LZ 0.0 0.0 1.00 0 24 10 X 1.435238E-01 XY 8.526462E+00 A 3.941454E+01 LX 0.21 0.98 0.0 -1.633962E+01 1.716037E+01 Y 3.756329E+01 YZ 0.0 B -1.707729E+00 LY 0.98-0.21 0.0 Z 1.131205E+01 ZX 0.0 C 1.131205E+01 LZ 0.0 0.0 1.00 0 24 11 X -1.214677E+00 XY 8.171263E+00 A 3.641996E+01 LX 0.21 0.98 0.0 -1.448684E+01 1.639440E+01 Y 3.464580E+01 YZ 0.0 B -2.988827E+00 LY 0.98-0.21 0.0 Z 1.002939E+01 ZX 0.0 C 1.002939E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 24 29 X -2.076726E+00 XY 5.925210E+00 A 3.642004E+01 LX 0.15 0.99 0.0 -1.448692E+01 1.639439E+01 Y 3.550806E+01 YZ 0.0 B -2.988704E+00 LY 0.99-0.15 0.0 Z 1.002943E+01 ZX 0.0 C 1.002943E+01 LZ 0.0 0.0 1.00 0 24 28 X -7.559077E-01 XY 6.182889E+00 A 3.941457E+01 LX 0.15 0.99 0.0 -1.633973E+01 1.716031E+01 Y 3.846292E+01 YZ 0.0 B -1.707557E+00 LY 0.99-0.15 0.0 Z 1.131219E+01 ZX 0.0 C 1.131219E+01 LZ 0.0 0.0 1.00 0 24 16 X 1.435371E-01 XY 8.526529E+00 A 3.941443E+01 LX 0.21 0.98 0.0 -1.633955E+01 1.716034E+01 Y 3.756314E+01 YZ 0.0 B -1.707749E+00 LY 0.98-0.21 0.0 Z 1.131198E+01 ZX 0.0 C 1.131198E+01 LZ 0.0 0.0 1.00 0 24 17 X -1.214686E+00 XY 8.171243E+00 A 3.642010E+01 LX 0.21 0.98 0.0 -1.448690E+01 1.639446E+01 Y 3.464597E+01 YZ 0.0 B -2.988824E+00 LY 0.98-0.21 0.0 Z 1.002940E+01 ZX 0.0 C 1.002941E+01 LZ 0.0 0.0 1.00 0 24 35 X -2.076760E+00 XY 5.925263E+00 A 3.641998E+01 LX 0.15 0.99 0.0 -1.448687E+01 1.639439E+01 Y 3.550799E+01 YZ 0.0 B -2.988754E+00 LY 0.99-0.15 0.0 Z 1.002937E+01 ZX 0.0 C 1.002938E+01 LZ 0.0 0.0 1.00 0 24 34 X -7.557735E-01 XY 6.182809E+00 A 3.941458E+01 LX 0.15 0.99 0.0 -1.633976E+01 1.716027E+01 Y 3.846295E+01 YZ 0.0 B -1.707399E+00 LY 0.99-0.15 0.0 Z 1.131209E+01 ZX 0.0 C 1.131209E+01 LZ 0.0 0.0 1.00 0 24 0 X -9.759337E-01 XY 7.201459E+00 A 3.787973E+01 LX 0.18 0.98 0.0 -1.541327E+01 1.674685E+01 Y 3.654502E+01 YZ 0.0 B -2.310645E+00 LY 0.98-0.18 0.0 Z 1.067074E+01 ZX 0.0 C 1.067073E+01 LZ 0.0 0.0 1.00 0 25 11 X 1.527696E+00 XY 7.837735E+00 A 3.762611E+01 LX 0.21 0.98 0.0 -1.622922E+01 1.583067E+01 Y 3.592436E+01 YZ 0.0 B -1.740426E-01 LY 0.98-0.21 0.0 Z 1.123560E+01 ZX 0.0 C 1.123560E+01 LZ 0.0 0.0 1.00 0 25 12 X 3.292457E-01 XY 7.524268E+00 A 3.498370E+01 LX 0.21 0.98 0.0 -1.459434E+01 1.515105E+01 Y 3.335001E+01 YZ 0.0 B -1.304445E+00 LY 0.98-0.21 0.0 Z 1.010376E+01 ZX 0.0 C 1.010377E+01 LZ 0.0 0.0 1.00 0 25 30 X -4.648218E-01 XY 5.456042E+00 A 3.498368E+01 LX 0.15 0.99 0.0 -1.459428E+01 1.515109E+01 Y 3.414391E+01 YZ 0.0 B -1.304586E+00 LY 0.99-0.15 0.0 Z 1.010373E+01 ZX 0.0 C 1.010373E+01 LZ 0.0 0.0 1.00 0 25 29 X 7.005937E-01 XY 5.683388E+00 A 3.762611E+01 LX 0.15 0.99 0.0 -1.622919E+01 1.583071E+01 Y 3.675135E+01 YZ 0.0 B -1.741652E-01 LY 0.99-0.15 0.0 Z 1.123564E+01 ZX 0.0 C 1.123563E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 25 17 X 1.527790E+00 XY 7.837706E+00 A 3.762617E+01 LX 0.21 0.98 0.0 -1.622929E+01 1.583066E+01 Y 3.592444E+01 YZ 0.0 B -1.739381E-01 LY 0.98-0.21 0.0 Z 1.123564E+01 ZX 0.0 C 1.123564E+01 LZ 0.0 0.0 1.00 0 25 18 X 3.291441E-01 XY 7.524168E+00 A 3.498369E+01 LX 0.21 0.98 0.0 -1.459432E+01 1.515106E+01 Y 3.335005E+01 YZ 0.0 B -1.304499E+00 LY 0.98-0.21 0.0 Z 1.010378E+01 ZX 0.0 C 1.010378E+01 LZ 0.0 0.0 1.00 0 25 36 X -4.647096E-01 XY 5.456096E+00 A 3.498372E+01 LX 0.15 0.99 0.0 -1.459434E+01 1.515107E+01 Y 3.414394E+01 YZ 0.0 B -1.304492E+00 LY 0.99-0.15 0.0 Z 1.010379E+01 ZX 0.0 C 1.010379E+01 LZ 0.0 0.0 1.00 0 25 35 X 7.007303E-01 XY 5.683423E+00 A 3.762606E+01 LX 0.15 0.99 0.0 -1.622919E+01 1.583065E+01 Y 3.675128E+01 YZ 0.0 B -1.740444E-01 LY 0.99-0.15 0.0 Z 1.123555E+01 ZX 0.0 C 1.123555E+01 LZ 0.0 0.0 1.00 0 25 0 X 5.232086E-01 XY 6.625354E+00 A 3.627036E+01 LX 0.18 0.98 0.0 -1.541177E+01 1.546296E+01 Y 3.504242E+01 YZ 0.0 B -7.047337E-01 LY 0.98-0.18 0.0 Z 1.066969E+01 ZX 0.0 C 1.066969E+01 LZ 0.0 0.0 1.00 0 26 25 X -7.248496E+00 XY 4.939541E+00 A 4.650864E+01 LX 0.09 1.00 0.0 -1.681605E+01 2.243193E+01 Y 4.605476E+01 YZ 0.0 B -7.702374E+00 LY 1.00-0.09 0.0 Z 1.164189E+01 ZX 0.0 C 1.164189E+01 LZ 0.0 0.0 1.00 0 26 26 X -9.200280E+00 XY 4.704349E+00 A 4.199725E+01 LX 0.09 1.00 0.0 -1.402469E+01 2.129750E+01 Y 4.156499E+01 YZ 0.0 B -9.632548E+00 LY 1.00-0.09 0.0 Z 9.709371E+00 ZX 0.0 C 9.709377E+00 LZ 0.0 0.0 1.00 0 26 44 X -9.583983E+00 XY 1.576010E+00 A 4.199737E+01 LX 0.03 1.00 0.0 -1.402493E+01 2.129739E+01 Y 4.194921E+01 YZ 0.0 B -9.632134E+00 LY 1.00-0.03 0.0 Z 9.709567E+00 ZX 0.0 C 9.709569E+00 LZ 0.0 0.0 1.00 0 26 43 X -7.651737E+00 XY 1.654788E+00 A 4.650875E+01 LX 0.03 1.00 0.0 -1.681614E+01 2.243195E+01 Y 4.645818E+01 YZ 0.0 B -7.702299E+00 LY 1.00-0.03 0.0 Z 1.164196E+01 ZX 0.0 C 1.164197E+01 LZ 0.0 0.0 1.00 0 26 31 X -7.248512E+00 XY 4.939535E+00 A 4.650867E+01 LX 0.09 1.00 0.0 -1.681604E+01 2.243195E+01 Y 4.605479E+01 YZ 0.0 B -7.702384E+00 LY 1.00-0.09 0.0 Z 1.164184E+01 ZX 0.0 C 1.164184E+01 LZ 0.0 0.0 1.00 0 26 32 X -9.200150E+00 XY 4.704364E+00 A 4.199732E+01 LX 0.09 1.00 0.0 -1.402482E+01 2.129747E+01 Y 4.156505E+01 YZ 0.0 B -9.632417E+00 LY 1.00-0.09 0.0 Z 9.709568E+00 ZX 0.0 C 9.709570E+00 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 26 50 X -9.584345E+00 XY 1.575992E+00 A 4.199720E+01 LX 0.03 1.00 0.0 -1.402470E+01 2.129746E+01 Y 4.194905E+01 YZ 0.0 B -9.632498E+00 LY 1.00-0.03 0.0 Z 9.709398E+00 ZX 0.0 C 9.709407E+00 LZ 0.0 0.0 1.00 0 26 49 X -7.651850E+00 XY 1.654799E+00 A 4.650871E+01 LX 0.03 1.00 0.0 -1.681606E+01 2.243198E+01 Y 4.645815E+01 YZ 0.0 B -7.702409E+00 LY 1.00-0.03 0.0 Z 1.164187E+01 ZX 0.0 C 1.164187E+01 LZ 0.0 0.0 1.00 0 26 0 X -8.421169E+00 XY 3.218672E+00 A 4.420364E+01 LX 0.06 1.00 0.0 -1.542043E+01 2.182379E+01 Y 4.400677E+01 YZ 0.0 B -8.618032E+00 LY 1.00-0.06 0.0 Z 1.067568E+01 ZX 0.0 C 1.067568E+01 LZ 0.0 0.0 1.00 0 27 26 X -5.016896E+00 XY 4.485518E+00 A 4.379942E+01 LX 0.09 1.00 0.0 -1.662717E+01 2.042043E+01 Y 4.338727E+01 YZ 0.0 B -5.429055E+00 LY 1.00-0.09 0.0 Z 1.151113E+01 ZX 0.0 C 1.151114E+01 LZ 0.0 0.0 1.00 0 27 27 X -6.708273E+00 XY 4.281661E+00 A 3.988879E+01 LX 0.09 1.00 0.0 -1.420774E+01 1.943124E+01 Y 3.949536E+01 YZ 0.0 B -7.101703E+00 LY 1.00-0.09 0.0 Z 9.836122E+00 ZX 0.0 C 9.836131E+00 LZ 0.0 0.0 1.00 0 27 45 X -7.057993E+00 XY 1.434386E+00 A 3.988884E+01 LX 0.03 1.00 0.0 -1.420769E+01 1.943131E+01 Y 3.984501E+01 YZ 0.0 B -7.101821E+00 LY 1.00-0.03 0.0 Z 9.836050E+00 ZX 0.0 C 9.836053E+00 LZ 0.0 0.0 1.00 0 27 44 X -5.382915E+00 XY 1.502703E+00 A 4.379934E+01 LX 0.03 1.00 0.0 -1.662723E+01 2.042031E+01 Y 4.375343E+01 YZ 0.0 B -5.428827E+00 LY 1.00-0.03 0.0 Z 1.151117E+01 ZX 0.0 C 1.151118E+01 LZ 0.0 0.0 1.00 0 27 32 X -5.016578E+00 XY 4.485515E+00 A 4.379934E+01 LX 0.09 1.00 0.0 -1.662725E+01 2.042028E+01 Y 4.338718E+01 YZ 0.0 B -5.428739E+00 LY 1.00-0.09 0.0 Z 1.151116E+01 ZX 0.0 C 1.151117E+01 LZ 0.0 0.0 1.00 0 27 33 X -6.708583E+00 XY 4.281597E+00 A 3.988881E+01 LX 0.09 1.00 0.0 -1.420763E+01 1.943136E+01 Y 3.949540E+01 YZ 0.0 B -7.102002E+00 LY 1.00-0.09 0.0 Z 9.836085E+00 ZX 0.0 C 9.836090E+00 LZ 0.0 0.0 1.00 0 27 51 X -7.057889E+00 XY 1.434396E+00 A 3.988876E+01 LX 0.03 1.00 0.0 -1.420771E+01 1.943124E+01 Y 3.984493E+01 YZ 0.0 B -7.101720E+00 LY 1.00-0.03 0.0 Z 9.836075E+00 ZX 0.0 C 9.836075E+00 LZ 0.0 0.0 1.00 0 27 50 X -5.382978E+00 XY 1.502705E+00 A 4.379943E+01 LX 0.03 1.00 0.0 -1.662723E+01 2.042037E+01 Y 4.375351E+01 YZ 0.0 B -5.428893E+00 LY 1.00-0.03 0.0 Z 1.151115E+01 ZX 0.0 C 1.151114E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 27 0 X -6.041513E+00 XY 2.926060E+00 A 4.179923E+01 LX 0.06 1.00 0.0 -1.541746E+01 1.988888E+01 Y 4.162026E+01 YZ 0.0 B -6.220479E+00 LY 1.00-0.06 0.0 Z 1.067362E+01 ZX 0.0 C 1.067362E+01 LZ 0.0 0.0 1.00 0 28 27 X -3.070641E+00 XY 4.091352E+00 A 4.145561E+01 LX 0.09 1.00 0.0 -1.647057E+01 1.867823E+01 Y 4.107967E+01 YZ 0.0 B -3.446578E+00 LY 1.00-0.09 0.0 Z 1.140269E+01 ZX 0.0 C 1.140269E+01 LZ 0.0 0.0 1.00 0 28 28 X -4.546559E+00 XY 3.913479E+00 A 3.804368E+01 LX 0.09 1.00 0.0 -1.435959E+01 1.781036E+01 Y 3.768408E+01 YZ 0.0 B -4.906160E+00 LY 1.00-0.09 0.0 Z 9.941245E+00 ZX 0.0 C 9.941252E+00 LZ 0.0 0.0 1.00 0 28 46 X -4.866148E+00 XY 1.311069E+00 A 3.804366E+01 LX 0.03 1.00 0.0 -1.435957E+01 1.781037E+01 Y 3.800359E+01 YZ 0.0 B -4.906205E+00 LY 1.00-0.03 0.0 Z 9.941252E+00 ZX 0.0 C 9.941250E+00 LZ 0.0 0.0 1.00 0 28 45 X -3.404596E+00 XY 1.370631E+00 A 4.145566E+01 LX 0.03 1.00 0.0 -1.647065E+01 1.867821E+01 Y 4.141378E+01 YZ 0.0 B -3.446477E+00 LY 1.00-0.03 0.0 Z 1.140277E+01 ZX 0.0 C 1.140277E+01 LZ 0.0 0.0 1.00 0 28 33 X -3.070596E+00 XY 4.091346E+00 A 4.145552E+01 LX 0.09 1.00 0.0 -1.647056E+01 1.867817E+01 Y 4.107957E+01 YZ 0.0 B -3.446538E+00 LY 1.00-0.09 0.0 Z 1.140271E+01 ZX 0.0 C 1.140271E+01 LZ 0.0 0.0 1.00 0 28 34 X -4.546688E+00 XY 3.913473E+00 A 3.804369E+01 LX 0.09 1.00 0.0 -1.435954E+01 1.781041E+01 Y 3.768409E+01 YZ 0.0 B -4.906283E+00 LY 1.00-0.09 0.0 Z 9.941232E+00 ZX 0.0 C 9.941230E+00 LZ 0.0 0.0 1.00 0 28 52 X -4.866156E+00 XY 1.311056E+00 A 3.804376E+01 LX 0.03 1.00 0.0 -1.435960E+01 1.781042E+01 Y 3.800370E+01 YZ 0.0 B -4.906210E+00 LY 1.00-0.03 0.0 Z 9.941265E+00 ZX 0.0 C 9.941266E+00 LZ 0.0 0.0 1.00 0 28 51 X -3.404576E+00 XY 1.370663E+00 A 4.145564E+01 LX 0.03 1.00 0.0 -1.647066E+01 1.867819E+01 Y 4.141377E+01 YZ 0.0 B -3.446453E+00 LY 1.00-0.03 0.0 Z 1.140278E+01 ZX 0.0 C 1.140278E+01 LZ 0.0 0.0 1.00 0 28 0 X -3.971995E+00 XY 2.671634E+00 A 3.970869E+01 LX 0.06 1.00 0.0 -1.541509E+01 1.821078E+01 Y 3.954528E+01 YZ 0.0 B -4.135398E+00 LY 1.00-0.06 0.0 Z 1.067199E+01 ZX 0.0 C 1.067199E+01 LZ 0.0 0.0 1.00 0 29 28 X -1.363455E+00 XY 3.746936E+00 A 3.941440E+01 LX 0.09 1.00 0.0 -1.633959E+01 1.716031E+01 Y 3.907011E+01 YZ 0.0 B -1.707753E+00 LY 1.00-0.09 0.0 Z 1.131211E+01 ZX 0.0 C 1.131211E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 29 29 X -2.658633E+00 XY 3.590806E+00 A 3.642014E+01 LX 0.09 1.00 0.0 -1.448701E+01 1.639439E+01 Y 3.609020E+01 YZ 0.0 B -2.988579E+00 LY 1.00-0.09 0.0 Z 1.002945E+01 ZX 0.0 C 1.002945E+01 LZ 0.0 0.0 1.00 0 29 47 X -2.952033E+00 XY 1.202959E+00 A 3.642002E+01 LX 0.03 1.00 0.0 -1.448688E+01 1.639442E+01 Y 3.638327E+01 YZ 0.0 B -2.988786E+00 LY 1.00-0.03 0.0 Z 1.002939E+01 ZX 0.0 C 1.002939E+01 LZ 0.0 0.0 1.00 0 29 46 X -1.669338E+00 XY 1.255262E+00 A 3.941450E+01 LX 0.03 1.00 0.0 -1.633959E+01 1.716035E+01 Y 3.937615E+01 YZ 0.0 B -1.707690E+00 LY 1.00-0.03 0.0 Z 1.131196E+01 ZX 0.0 C 1.131197E+01 LZ 0.0 0.0 1.00 0 29 34 X -1.363257E+00 XY 3.746926E+00 A 3.941466E+01 LX 0.09 1.00 0.0 -1.633975E+01 1.716036E+01 Y 3.907037E+01 YZ 0.0 B -1.707548E+00 LY 1.00-0.09 0.0 Z 1.131214E+01 ZX 0.0 C 1.131214E+01 LZ 0.0 0.0 1.00 0 29 35 X -2.658775E+00 XY 3.590794E+00 A 3.642007E+01 LX 0.09 1.00 0.0 -1.448694E+01 1.639441E+01 Y 3.609013E+01 YZ 0.0 B -2.988718E+00 LY 1.00-0.09 0.0 Z 1.002948E+01 ZX 0.0 C 1.002947E+01 LZ 0.0 0.0 1.00 0 29 53 X -2.951741E+00 XY 1.202937E+00 A 3.642014E+01 LX 0.03 1.00 0.0 -1.448701E+01 1.639437E+01 Y 3.638338E+01 YZ 0.0 B -2.988497E+00 LY 1.00-0.03 0.0 Z 1.002939E+01 ZX 0.0 C 1.002939E+01 LZ 0.0 0.0 1.00 0 29 52 X -1.669341E+00 XY 1.255273E+00 A 3.941442E+01 LX 0.03 1.00 0.0 -1.633960E+01 1.716031E+01 Y 3.937608E+01 YZ 0.0 B -1.707695E+00 LY 1.00-0.03 0.0 Z 1.131206E+01 ZX 0.0 C 1.131207E+01 LZ 0.0 0.0 1.00 0 29 0 X -2.160822E+00 XY 2.448987E+00 A 3.787975E+01 LX 0.06 1.00 0.0 -1.541330E+01 1.674684E+01 Y 3.772997E+01 YZ 0.0 B -2.310608E+00 LY 1.00-0.06 0.0 Z 1.067075E+01 ZX 0.0 C 1.067076E+01 LZ 0.0 0.0 1.00 0 30 29 X 1.423912E-01 XY 3.444263E+00 A 3.762603E+01 LX 0.09 1.00 0.0 -1.622917E+01 1.583065E+01 Y 3.730954E+01 YZ 0.0 B -1.740919E-01 LY 1.00-0.09 0.0 Z 1.123556E+01 ZX 0.0 C 1.123557E+01 LZ 0.0 0.0 1.00 0 30 30 X -1.000876E+00 XY 3.306464E+00 A 3.498368E+01 LX 0.09 1.00 0.0 -1.459424E+01 1.515113E+01 Y 3.467987E+01 YZ 0.0 B -1.304691E+00 LY 1.00-0.09 0.0 Z 1.010373E+01 ZX 0.0 C 1.010374E+01 LZ 0.0 0.0 1.00 0 30 48 X -1.270738E+00 XY 1.107717E+00 A 3.498372E+01 LX 0.03 1.00 0.0 -1.459428E+01 1.515111E+01 Y 3.494987E+01 YZ 0.0 B -1.304583E+00 LY 1.00-0.03 0.0 Z 1.010369E+01 ZX 0.0 C 1.010369E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 30 47 X -1.388310E-01 XY 1.153862E+00 A 3.762612E+01 LX 0.03 1.00 0.0 -1.622922E+01 1.583069E+01 Y 3.759087E+01 YZ 0.0 B -1.740849E-01 LY 1.00-0.03 0.0 Z 1.123560E+01 ZX 0.0 C 1.123561E+01 LZ 0.0 0.0 1.00 0 30 35 X 1.426364E-01 XY 3.444251E+00 A 3.762624E+01 LX 0.09 1.00 0.0 -1.622935E+01 1.583065E+01 Y 3.730976E+01 YZ 0.0 B -1.738449E-01 LY 1.00-0.09 0.0 Z 1.123565E+01 ZX 0.0 C 1.123565E+01 LZ 0.0 0.0 1.00 0 30 36 X -1.000798E+00 XY 3.306479E+00 A 3.498369E+01 LX 0.09 1.00 0.0 -1.459427E+01 1.515111E+01 Y 3.467987E+01 YZ 0.0 B -1.304620E+00 LY 1.00-0.09 0.0 Z 1.010372E+01 ZX 0.0 C 1.010373E+01 LZ 0.0 0.0 1.00 0 30 54 X -1.270767E+00 XY 1.107702E+00 A 3.498366E+01 LX 0.03 1.00 0.0 -1.459427E+01 1.515109E+01 Y 3.494982E+01 YZ 0.0 B -1.304610E+00 LY 1.00-0.03 0.0 Z 1.010376E+01 ZX 0.0 C 1.010377E+01 LZ 0.0 0.0 1.00 0 30 53 X -1.391151E-01 XY 1.153874E+00 A 3.762605E+01 LX 0.03 1.00 0.0 -1.622909E+01 1.583075E+01 Y 3.759079E+01 YZ 0.0 B -1.743724E-01 LY 1.00-0.03 0.0 Z 1.123559E+01 ZX 0.0 C 1.123558E+01 LZ 0.0 0.0 1.00 0 30 0 X -5.670121E-01 XY 2.253077E+00 A 3.627036E+01 LX 0.06 1.00 0.0 -1.541174E+01 1.546300E+01 Y 3.613255E+01 YZ 0.0 B -7.048191E-01 LY 1.00-0.06 0.0 Z 1.066966E+01 ZX 0.0 C 1.066967E+01 LZ 0.0 0.0 1.00 0 31 43 X -7.651814E+00 XY -1.654801E+00 A 4.650867E+01 LX 0.03 1.00 0.0 -1.681606E+01 2.243195E+01 Y 4.645811E+01 YZ 0.0 B -7.702378E+00 LY -1.00 0.03 0.0 Z 1.164190E+01 ZX 0.0 C 1.164190E+01 LZ 0.0 0.0 1.00 0 31 44 X -9.584056E+00 XY -1.576043E+00 A 4.199729E+01 LX 0.03 1.00 0.0 -1.402484E+01 2.129739E+01 Y 4.194913E+01 YZ 0.0 B -9.632212E+00 LY -1.00 0.03 0.0 Z 9.709447E+00 ZX 0.0 C 9.709450E+00 LZ 0.0 0.0 1.00 0 31 62 X -9.200301E+00 XY -4.704334E+00 A 4.199720E+01 LX 0.09 1.00 0.0 -1.402468E+01 2.129749E+01 Y 4.156494E+01 YZ 0.0 B -9.632564E+00 LY -1.00 0.09 0.0 Z 9.709412E+00 ZX 0.0 C 9.709413E+00 LZ 0.0 0.0 1.00 0 31 61 X -7.248493E+00 XY -4.939538E+00 A 4.650873E+01 LX 0.09 1.00 0.0 -1.681608E+01 2.243197E+01 Y 4.605486E+01 YZ 0.0 B -7.702373E+00 LY -1.00 0.09 0.0 Z 1.164187E+01 ZX 0.0 C 1.164188E+01 LZ 0.0 0.0 1.00 0 31 49 X -7.651825E+00 XY -1.654794E+00 A 4.650875E+01 LX 0.03 1.00 0.0 -1.681609E+01 2.243199E+01 Y 4.645819E+01 YZ 0.0 B -7.702381E+00 LY -1.00 0.03 0.0 Z 1.164190E+01 ZX 0.0 C 1.164190E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 31 50 X -9.584261E+00 XY -1.575994E+00 A 4.199724E+01 LX 0.03 1.00 0.0 -1.402478E+01 2.129744E+01 Y 4.194909E+01 YZ 0.0 B -9.632413E+00 LY -1.00 0.03 0.0 Z 9.709498E+00 ZX 0.0 C 9.709501E+00 LZ 0.0 0.0 1.00 0 31 68 X -9.200224E+00 XY -4.704391E+00 A 4.199726E+01 LX 0.09 1.00 0.0 -1.402474E+01 2.129748E+01 Y 4.156498E+01 YZ 0.0 B -9.632502E+00 LY -1.00 0.09 0.0 Z 9.709466E+00 ZX 0.0 C 9.709473E+00 LZ 0.0 0.0 1.00 0 31 67 X -7.248506E+00 XY -4.939567E+00 A 4.650861E+01 LX 0.09 1.00 0.0 -1.681604E+01 2.243192E+01 Y 4.605473E+01 YZ 0.0 B -7.702387E+00 LY -1.00 0.09 0.0 Z 1.164190E+01 ZX 0.0 C 1.164190E+01 LZ 0.0 0.0 1.00 0 31 0 X -8.421185E+00 XY -3.218683E+00 A 4.420362E+01 LX 0.06 1.00 0.0 -1.542041E+01 2.182379E+01 Y 4.400676E+01 YZ 0.0 B -8.618051E+00 LY -1.00 0.06 0.0 Z 1.067567E+01 ZX 0.0 C 1.067568E+01 LZ 0.0 0.0 1.00 0 32 44 X -5.382993E+00 XY -1.502677E+00 A 4.379935E+01 LX 0.03 1.00 0.0 -1.662721E+01 2.042034E+01 Y 4.375344E+01 YZ 0.0 B -5.428905E+00 LY -1.00 0.03 0.0 Z 1.151118E+01 ZX 0.0 C 1.151117E+01 LZ 0.0 0.0 1.00 0 32 45 X -7.058012E+00 XY -1.434400E+00 A 3.988879E+01 LX 0.03 1.00 0.0 -1.420767E+01 1.943130E+01 Y 3.984496E+01 YZ 0.0 B -7.101841E+00 LY -1.00 0.03 0.0 Z 9.836070E+00 ZX 0.0 C 9.836069E+00 LZ 0.0 0.0 1.00 0 32 63 X -6.708365E+00 XY -4.281606E+00 A 3.988888E+01 LX 0.09 1.00 0.0 -1.420775E+01 1.943131E+01 Y 3.949546E+01 YZ 0.0 B -7.101781E+00 LY -1.00 0.09 0.0 Z 9.836134E+00 ZX 0.0 C 9.836135E+00 LZ 0.0 0.0 1.00 0 32 62 X -5.016712E+00 XY -4.485508E+00 A 4.379939E+01 LX 0.09 1.00 0.0 -1.662723E+01 2.042034E+01 Y 4.338723E+01 YZ 0.0 B -5.428867E+00 LY -1.00 0.09 0.0 Z 1.151118E+01 ZX 0.0 C 1.151119E+01 LZ 0.0 0.0 1.00 0 32 50 X -5.382915E+00 XY -1.502708E+00 A 4.379932E+01 LX 0.03 1.00 0.0 -1.662720E+01 2.042031E+01 Y 4.375340E+01 YZ 0.0 B -5.428833E+00 LY -1.00 0.03 0.0 Z 1.151112E+01 ZX 0.0 C 1.151112E+01 LZ 0.0 0.0 1.00 0 32 51 X -7.058091E+00 XY -1.434399E+00 A 3.988885E+01 LX 0.03 1.00 0.0 -1.420768E+01 1.943135E+01 Y 3.984503E+01 YZ 0.0 B -7.101917E+00 LY -1.00 0.03 0.0 Z 9.836107E+00 ZX 0.0 C 9.836115E+00 LZ 0.0 0.0 1.00 0 32 69 X -6.708352E+00 XY -4.281595E+00 A 3.988883E+01 LX 0.09 1.00 0.0 -1.420776E+01 1.943128E+01 Y 3.949541E+01 YZ 0.0 B -7.101765E+00 LY -1.00 0.09 0.0 Z 9.836204E+00 ZX 0.0 C 9.836206E+00 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 32 68 X -5.016639E+00 XY -4.485536E+00 A 4.379939E+01 LX 0.09 1.00 0.0 -1.662725E+01 2.042032E+01 Y 4.338723E+01 YZ 0.0 B -5.428799E+00 LY -1.00 0.09 0.0 Z 1.151115E+01 ZX 0.0 C 1.151116E+01 LZ 0.0 0.0 1.00 0 32 0 X -6.041510E+00 XY -2.926054E+00 A 4.179924E+01 LX 0.06 1.00 0.0 -1.541747E+01 1.988888E+01 Y 4.162027E+01 YZ 0.0 B -6.220476E+00 LY -1.00 0.06 0.0 Z 1.067364E+01 ZX 0.0 C 1.067365E+01 LZ 0.0 0.0 1.00 0 33 45 X -3.404559E+00 XY -1.370661E+00 A 4.145560E+01 LX 0.03 1.00 0.0 -1.647064E+01 1.867817E+01 Y 4.141372E+01 YZ 0.0 B -3.446439E+00 LY -1.00 0.03 0.0 Z 1.140276E+01 ZX 0.0 C 1.140276E+01 LZ 0.0 0.0 1.00 0 33 46 X -4.866085E+00 XY -1.311042E+00 A 3.804374E+01 LX 0.03 1.00 0.0 -1.435961E+01 1.781038E+01 Y 3.800368E+01 YZ 0.0 B -4.906142E+00 LY -1.00 0.03 0.0 Z 9.941235E+00 ZX 0.0 C 9.941232E+00 LZ 0.0 0.0 1.00 0 33 64 X -4.546736E+00 XY -3.913490E+00 A 3.804365E+01 LX 0.09 1.00 0.0 -1.435951E+01 1.781041E+01 Y 3.768405E+01 YZ 0.0 B -4.906334E+00 LY -1.00 0.09 0.0 Z 9.941207E+00 ZX 0.0 C 9.941215E+00 LZ 0.0 0.0 1.00 0 33 63 X -3.070618E+00 XY -4.091306E+00 A 4.145561E+01 LX 0.09 1.00 0.0 -1.647058E+01 1.867822E+01 Y 4.107967E+01 YZ 0.0 B -3.446551E+00 LY -1.00 0.09 0.0 Z 1.140266E+01 ZX 0.0 C 1.140267E+01 LZ 0.0 0.0 1.00 0 33 51 X -3.404575E+00 XY -1.370628E+00 A 4.145563E+01 LX 0.03 1.00 0.0 -1.647064E+01 1.867818E+01 Y 4.141375E+01 YZ 0.0 B -3.446455E+00 LY -1.00 0.03 0.0 Z 1.140276E+01 ZX 0.0 C 1.140276E+01 LZ 0.0 0.0 1.00 0 33 52 X -4.866205E+00 XY -1.311020E+00 A 3.804379E+01 LX 0.03 1.00 0.0 -1.435963E+01 1.781044E+01 Y 3.800373E+01 YZ 0.0 B -4.906259E+00 LY -1.00 0.03 0.0 Z 9.941342E+00 ZX 0.0 C 9.941350E+00 LZ 0.0 0.0 1.00 0 33 70 X -4.546403E+00 XY -3.913464E+00 A 3.804390E+01 LX 0.09 1.00 0.0 -1.435974E+01 1.781040E+01 Y 3.768431E+01 YZ 0.0 B -4.905999E+00 LY -1.00 0.09 0.0 Z 9.941296E+00 ZX 0.0 C 9.941305E+00 LZ 0.0 0.0 1.00 0 33 69 X -3.070669E+00 XY -4.091333E+00 A 4.145551E+01 LX 0.09 1.00 0.0 -1.647053E+01 1.867819E+01 Y 4.107957E+01 YZ 0.0 B -3.446608E+00 LY -1.00 0.09 0.0 Z 1.140269E+01 ZX 0.0 C 1.140269E+01 LZ 0.0 0.0 1.00 0 33 0 X -3.971981E+00 XY -2.671618E+00 A 3.970872E+01 LX 0.06 1.00 0.0 -1.541511E+01 1.821079E+01 Y 3.954531E+01 YZ 0.0 B -4.135385E+00 LY -1.00 0.06 0.0 Z 1.067199E+01 ZX 0.0 C 1.067199E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 34 46 X -1.669251E+00 XY -1.255262E+00 A 3.941447E+01 LX 0.03 1.00 0.0 -1.633964E+01 1.716030E+01 Y 3.937612E+01 YZ 0.0 B -1.707609E+00 LY -1.00 0.03 0.0 Z 1.131205E+01 ZX 0.0 C 1.131205E+01 LZ 0.0 0.0 1.00 0 34 47 X -2.951932E+00 XY -1.202951E+00 A 3.642012E+01 LX 0.03 1.00 0.0 -1.448697E+01 1.639442E+01 Y 3.638337E+01 YZ 0.0 B -2.988687E+00 LY -1.00 0.03 0.0 Z 1.002946E+01 ZX 0.0 C 1.002946E+01 LZ 0.0 0.0 1.00 0 34 65 X -2.658801E+00 XY -3.590790E+00 A 3.642011E+01 LX 0.09 1.00 0.0 -1.448693E+01 1.639444E+01 Y 3.609017E+01 YZ 0.0 B -2.988743E+00 LY -1.00 0.09 0.0 Z 1.002943E+01 ZX 0.0 C 1.002943E+01 LZ 0.0 0.0 1.00 0 34 64 X -1.363514E+00 XY -3.746940E+00 A 3.941443E+01 LX 0.09 1.00 0.0 -1.633952E+01 1.716036E+01 Y 3.907014E+01 YZ 0.0 B -1.707807E+00 LY -1.00 0.09 0.0 Z 1.131192E+01 ZX 0.0 C 1.131192E+01 LZ 0.0 0.0 1.00 0 34 52 X -1.669373E+00 XY -1.255256E+00 A 3.941443E+01 LX 0.03 1.00 0.0 -1.633957E+01 1.716033E+01 Y 3.937608E+01 YZ 0.0 B -1.707730E+00 LY -1.00 0.03 0.0 Z 1.131201E+01 ZX 0.0 C 1.131201E+01 LZ 0.0 0.0 1.00 0 34 53 X -2.951972E+00 XY -1.202965E+00 A 3.642004E+01 LX 0.03 1.00 0.0 -1.448689E+01 1.639441E+01 Y 3.638329E+01 YZ 0.0 B -2.988728E+00 LY -1.00 0.03 0.0 Z 1.002937E+01 ZX 0.0 C 1.002937E+01 LZ 0.0 0.0 1.00 0 34 71 X -2.658952E+00 XY -3.590813E+00 A 3.642009E+01 LX 0.09 1.00 0.0 -1.448687E+01 1.639449E+01 Y 3.609015E+01 YZ 0.0 B -2.988895E+00 LY -1.00 0.09 0.0 Z 1.002943E+01 ZX 0.0 C 1.002943E+01 LZ 0.0 0.0 1.00 0 34 70 X -1.363212E+00 XY -3.746920E+00 A 3.941459E+01 LX 0.09 1.00 0.0 -1.633973E+01 1.716031E+01 Y 3.907030E+01 YZ 0.0 B -1.707503E+00 LY -1.00 0.09 0.0 Z 1.131211E+01 ZX 0.0 C 1.131211E+01 LZ 0.0 0.0 1.00 0 34 0 X -2.160876E+00 XY -2.448987E+00 A 3.787974E+01 LX 0.06 1.00 0.0 -1.541327E+01 1.674686E+01 Y 3.772995E+01 YZ 0.0 B -2.310665E+00 LY -1.00 0.06 0.0 Z 1.067072E+01 ZX 0.0 C 1.067072E+01 LZ 0.0 0.0 1.00 0 35 47 X -1.389500E-01 XY -1.153848E+00 A 3.762617E+01 LX 0.03 1.00 0.0 -1.622919E+01 1.583075E+01 Y 3.759092E+01 YZ 0.0 B -1.742062E-01 LY -1.00 0.03 0.0 Z 1.123560E+01 ZX 0.0 C 1.123560E+01 LZ 0.0 0.0 1.00 0 35 48 X -1.270707E+00 XY -1.107702E+00 A 3.498373E+01 LX 0.03 1.00 0.0 -1.459433E+01 1.515109E+01 Y 3.494988E+01 YZ 0.0 B -1.304550E+00 LY -1.00 0.03 0.0 Z 1.010380E+01 ZX 0.0 C 1.010380E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 35 66 X -1.000982E+00 XY -3.306451E+00 A 3.498371E+01 LX 0.09 1.00 0.0 -1.459420E+01 1.515118E+01 Y 3.467990E+01 YZ 0.0 B -1.304796E+00 LY -1.00 0.09 0.0 Z 1.010367E+01 ZX 0.0 C 1.010367E+01 LZ 0.0 0.0 1.00 0 35 65 X 1.425155E-01 XY -3.444240E+00 A 3.762608E+01 LX 0.09 1.00 0.0 -1.622923E+01 1.583063E+01 Y 3.730960E+01 YZ 0.0 B -1.739643E-01 LY -1.00 0.09 0.0 Z 1.123556E+01 ZX 0.0 C 1.123556E+01 LZ 0.0 0.0 1.00 0 35 53 X -1.390445E-01 XY -1.153878E+00 A 3.762612E+01 LX 0.03 1.00 0.0 -1.622914E+01 1.583076E+01 Y 3.759087E+01 YZ 0.0 B -1.743022E-01 LY -1.00 0.03 0.0 Z 1.123560E+01 ZX 0.0 C 1.123560E+01 LZ 0.0 0.0 1.00 0 35 54 X -1.270686E+00 XY -1.107689E+00 A 3.498372E+01 LX 0.03 1.00 0.0 -1.459429E+01 1.515109E+01 Y 3.494987E+01 YZ 0.0 B -1.304530E+00 LY -1.00 0.03 0.0 Z 1.010369E+01 ZX 0.0 C 1.010370E+01 LZ 0.0 0.0 1.00 0 35 72 X -1.000765E+00 XY -3.306452E+00 A 3.498368E+01 LX 0.09 1.00 0.0 -1.459431E+01 1.515108E+01 Y 3.467986E+01 YZ 0.0 B -1.304583E+00 LY -1.00 0.09 0.0 Z 1.010383E+01 ZX 0.0 C 1.010383E+01 LZ 0.0 0.0 1.00 0 35 71 X 1.426059E-01 XY -3.444229E+00 A 3.762623E+01 LX 0.09 1.00 0.0 -1.622934E+01 1.583066E+01 Y 3.730975E+01 YZ 0.0 B -1.738749E-01 LY -1.00 0.09 0.0 Z 1.123565E+01 ZX 0.0 C 1.123565E+01 LZ 0.0 0.0 1.00 0 35 0 X -5.670016E-01 XY -2.253061E+00 A 3.627039E+01 LX 0.06 1.00 0.0 -1.541175E+01 1.546301E+01 Y 3.613258E+01 YZ 0.0 B -7.048067E-01 LY -1.00 0.06 0.0 Z 1.066967E+01 ZX 0.0 C 1.066967E+01 LZ 0.0 0.0 1.00 0 36 61 X -6.447991E+00 XY -8.150863E+00 A 4.650866E+01 LX 0.15 0.99 0.0 -1.681602E+01 2.243200E+01 Y 4.525411E+01 YZ 0.0 B -7.702541E+00 LY -0.99 0.15 0.0 Z 1.164194E+01 ZX 0.0 C 1.164195E+01 LZ 0.0 0.0 1.00 0 36 62 X -8.437662E+00 XY -7.762735E+00 A 4.199731E+01 LX 0.15 0.99 0.0 -1.402476E+01 2.129750E+01 Y 4.080250E+01 YZ 0.0 B -9.632473E+00 LY -0.99 0.15 0.0 Z 9.709441E+00 ZX 0.0 C 9.709446E+00 LZ 0.0 0.0 1.00 0 36 80 X -7.308058E+00 XY -1.070514E+01 A 4.199722E+01 LX 0.21 0.98 0.0 -1.402477E+01 2.129741E+01 Y 3.967292E+01 YZ 0.0 B -9.632357E+00 LY -0.98 0.21 0.0 Z 9.709444E+00 ZX 0.0 C 9.709443E+00 LZ 0.0 0.0 1.00 0 36 79 X -5.261737E+00 XY -1.124039E+01 A 4.650869E+01 LX 0.21 0.98 0.0 -1.681611E+01 2.243191E+01 Y 4.406819E+01 YZ 0.0 B -7.702250E+00 LY -0.98 0.21 0.0 Z 1.164189E+01 ZX 0.0 C 1.164189E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 36 67 X -6.447934E+00 XY -8.150842E+00 A 4.650861E+01 LX 0.15 0.99 0.0 -1.681600E+01 2.243196E+01 Y 4.525407E+01 YZ 0.0 B -7.702474E+00 LY -0.99 0.15 0.0 Z 1.164184E+01 ZX 0.0 C 1.164185E+01 LZ 0.0 0.0 1.00 0 36 68 X -8.437500E+00 XY -7.762685E+00 A 4.199722E+01 LX 0.15 0.99 0.0 -1.402481E+01 2.129739E+01 Y 4.080243E+01 YZ 0.0 B -9.632300E+00 LY -0.99 0.15 0.0 Z 9.709517E+00 ZX 0.0 C 9.709521E+00 LZ 0.0 0.0 1.00 0 36 86 X -7.307952E+00 XY -1.070516E+01 A 4.199728E+01 LX 0.21 0.98 0.0 -1.402484E+01 2.129740E+01 Y 3.967299E+01 YZ 0.0 B -9.632257E+00 LY -0.98 0.21 0.0 Z 9.709495E+00 ZX 0.0 C 9.709504E+00 LZ 0.0 0.0 1.00 0 36 85 X -5.261828E+00 XY -1.124040E+01 A 4.650866E+01 LX 0.21 0.98 0.0 -1.681609E+01 2.243193E+01 Y 4.406814E+01 YZ 0.0 B -7.702342E+00 LY -0.98 0.21 0.0 Z 1.164194E+01 ZX 0.0 C 1.164194E+01 LZ 0.0 0.0 1.00 0 36 0 X -6.863833E+00 XY -9.464777E+00 A 4.420361E+01 LX 0.18 0.98 0.0 -1.542043E+01 2.182378E+01 Y 4.244942E+01 YZ 0.0 B -8.618025E+00 LY -0.98 0.18 0.0 Z 1.067569E+01 ZX 0.0 C 1.067569E+01 LZ 0.0 0.0 1.00 0 37 62 X -4.289547E+00 XY -7.401645E+00 A 4.379950E+01 LX 0.15 0.99 0.0 -1.662735E+01 2.042035E+01 Y 4.266026E+01 YZ 0.0 B -5.428777E+00 LY -0.99 0.15 0.0 Z 1.151133E+01 ZX 0.0 C 1.151133E+01 LZ 0.0 0.0 1.00 0 37 63 X -6.014280E+00 XY -7.065197E+00 A 3.988875E+01 LX 0.15 0.99 0.0 -1.420772E+01 1.943123E+01 Y 3.880130E+01 YZ 0.0 B -7.101723E+00 LY -0.99 0.15 0.0 Z 9.836125E+00 ZX 0.0 C 9.836125E+00 LZ 0.0 0.0 1.00 0 37 81 X -4.986279E+00 XY -9.743273E+00 A 3.988883E+01 LX 0.21 0.98 0.0 -1.420773E+01 1.943128E+01 Y 3.777337E+01 YZ 0.0 B -7.101737E+00 LY -0.98 0.21 0.0 Z 9.836079E+00 ZX 0.0 C 9.836086E+00 LZ 0.0 0.0 1.00 0 37 80 X -3.212636E+00 XY -1.020727E+01 A 4.379926E+01 LX 0.21 0.98 0.0 -1.662715E+01 2.042029E+01 Y 4.158304E+01 YZ 0.0 B -5.428843E+00 LY -0.98 0.21 0.0 Z 1.151105E+01 ZX 0.0 C 1.151105E+01 LZ 0.0 0.0 1.00 0 37 68 X -4.289447E+00 XY -7.401588E+00 A 4.379945E+01 LX 0.15 0.99 0.0 -1.662736E+01 2.042029E+01 Y 4.266024E+01 YZ 0.0 B -5.428662E+00 LY -0.99 0.15 0.0 Z 1.151128E+01 ZX 0.0 C 1.151128E+01 LZ 0.0 0.0 1.00 0 37 69 X -6.014262E+00 XY -7.065239E+00 A 3.988881E+01 LX 0.15 0.99 0.0 -1.420772E+01 1.943127E+01 Y 3.880136E+01 YZ 0.0 B -7.101719E+00 LY -0.99 0.15 0.0 Z 9.836059E+00 ZX 0.0 C 9.836056E+00 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 37 87 X -4.986399E+00 XY -9.743283E+00 A 3.988881E+01 LX 0.21 0.98 0.0 -1.420770E+01 1.943131E+01 Y 3.777335E+01 YZ 0.0 B -7.101856E+00 LY -0.98 0.21 0.0 Z 9.836139E+00 ZX 0.0 C 9.836143E+00 LZ 0.0 0.0 1.00 0 37 86 X -3.212860E+00 XY -1.020726E+01 A 4.379926E+01 LX 0.21 0.98 0.0 -1.662708E+01 2.042037E+01 Y 4.158306E+01 YZ 0.0 B -5.429060E+00 LY -0.98 0.21 0.0 Z 1.151105E+01 ZX 0.0 C 1.151105E+01 LZ 0.0 0.0 1.00 0 37 0 X -4.625714E+00 XY -8.604344E+00 A 4.179922E+01 LX 0.18 0.98 0.0 -1.541748E+01 1.988885E+01 Y 4.020450E+01 YZ 0.0 B -6.220432E+00 LY -0.98 0.18 0.0 Z 1.067364E+01 ZX 0.0 C 1.067365E+01 LZ 0.0 0.0 1.00 0 38 63 X -2.407413E+00 XY -6.751182E+00 A 4.145557E+01 LX 0.15 0.99 0.0 -1.647060E+01 1.867818E+01 Y 4.041646E+01 YZ 0.0 B -3.446524E+00 LY -0.99 0.15 0.0 Z 1.140275E+01 ZX 0.0 C 1.140275E+01 LZ 0.0 0.0 1.00 0 38 64 X -3.912370E+00 XY -6.457681E+00 A 3.804369E+01 LX 0.15 0.99 0.0 -1.435951E+01 1.781043E+01 Y 3.704975E+01 YZ 0.0 B -4.906311E+00 LY -0.99 0.15 0.0 Z 9.941144E+00 ZX 0.0 C 9.941143E+00 LZ 0.0 0.0 1.00 0 38 82 X -2.972635E+00 XY -8.905456E+00 A 3.804383E+01 LX 0.21 0.98 0.0 -1.435966E+01 1.781043E+01 Y 3.611028E+01 YZ 0.0 B -4.906182E+00 LY -0.98 0.21 0.0 Z 9.941318E+00 ZX 0.0 C 9.941324E+00 LZ 0.0 0.0 1.00 0 38 81 X -1.424920E+00 XY -9.310263E+00 A 4.145557E+01 LX 0.21 0.98 0.0 -1.647065E+01 1.867813E+01 Y 3.943411E+01 YZ 0.0 B -3.446374E+00 LY -0.98 0.21 0.0 Z 1.140274E+01 ZX 0.0 C 1.140275E+01 LZ 0.0 0.0 1.00 0 38 69 X -2.407360E+00 XY -6.751261E+00 A 4.145552E+01 LX 0.15 0.99 0.0 -1.647055E+01 1.867816E+01 Y 4.041638E+01 YZ 0.0 B -3.446497E+00 LY -0.99 0.15 0.0 Z 1.140263E+01 ZX 0.0 C 1.140263E+01 LZ 0.0 0.0 1.00 0 38 70 X -3.912139E+00 XY -6.457652E+00 A 3.804378E+01 LX 0.15 0.99 0.0 -1.435967E+01 1.781037E+01 Y 3.704985E+01 YZ 0.0 B -4.906069E+00 LY -0.99 0.15 0.0 Z 9.941298E+00 ZX 0.0 C 9.941306E+00 LZ 0.0 0.0 1.00 0 38 88 X -2.972651E+00 XY -8.905495E+00 A 3.804374E+01 LX 0.21 0.98 0.0 -1.435961E+01 1.781040E+01 Y 3.611017E+01 YZ 0.0 B -4.906219E+00 LY -0.98 0.21 0.0 Z 9.941302E+00 ZX 0.0 C 9.941306E+00 LZ 0.0 0.0 1.00 0 38 87 X -1.425245E+00 XY -9.310236E+00 A 4.145552E+01 LX 0.21 0.98 0.0 -1.647050E+01 1.867822E+01 Y 3.943409E+01 YZ 0.0 B -3.446675E+00 LY -0.98 0.21 0.0 Z 1.140267E+01 ZX 0.0 C 1.140267E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 38 0 X -2.679342E+00 XY -7.856153E+00 A 3.970869E+01 LX 0.18 0.98 0.0 -1.541509E+01 1.821078E+01 Y 3.825264E+01 YZ 0.0 B -4.135395E+00 LY -0.98 0.18 0.0 Z 1.067198E+01 ZX 0.0 C 1.067198E+01 LZ 0.0 0.0 1.00 0 39 64 X -7.559631E-01 XY -6.182886E+00 A 3.941452E+01 LX 0.15 0.99 0.0 -1.633965E+01 1.716032E+01 Y 3.846287E+01 YZ 0.0 B -1.707608E+00 LY -0.99 0.15 0.0 Z 1.131203E+01 ZX 0.0 C 1.131203E+01 LZ 0.0 0.0 1.00 0 39 65 X -2.076752E+00 XY -5.925268E+00 A 3.642008E+01 LX 0.15 0.99 0.0 -1.448694E+01 1.639442E+01 Y 3.550809E+01 YZ 0.0 B -2.988744E+00 LY -0.99 0.15 0.0 Z 1.002946E+01 ZX 0.0 C 1.002947E+01 LZ 0.0 0.0 1.00 0 39 83 X -1.214674E+00 XY -8.171229E+00 A 3.642006E+01 LX 0.21 0.98 0.0 -1.448687E+01 1.639445E+01 Y 3.464593E+01 YZ 0.0 B -2.988809E+00 LY -0.98 0.21 0.0 Z 1.002936E+01 ZX 0.0 C 1.002936E+01 LZ 0.0 0.0 1.00 0 39 82 X 1.434554E-01 XY -8.526523E+00 A 3.941452E+01 LX 0.21 0.98 0.0 -1.633958E+01 1.716040E+01 Y 3.756325E+01 YZ 0.0 B -1.707823E+00 LY -0.98 0.21 0.0 Z 1.131204E+01 ZX 0.0 C 1.131205E+01 LZ 0.0 0.0 1.00 0 39 70 X -7.560387E-01 XY -6.182858E+00 A 3.941451E+01 LX 0.15 0.99 0.0 -1.633962E+01 1.716034E+01 Y 3.846287E+01 YZ 0.0 B -1.707673E+00 LY -0.99 0.15 0.0 Z 1.131204E+01 ZX 0.0 C 1.131204E+01 LZ 0.0 0.0 1.00 0 39 71 X -2.076801E+00 XY -5.925260E+00 A 3.642009E+01 LX 0.15 0.99 0.0 -1.448689E+01 1.639445E+01 Y 3.550809E+01 YZ 0.0 B -2.988788E+00 LY -0.99 0.15 0.0 Z 1.002936E+01 ZX 0.0 C 1.002936E+01 LZ 0.0 0.0 1.00 0 39 89 X -1.214617E+00 XY -8.171266E+00 A 3.642011E+01 LX 0.21 0.98 0.0 -1.448692E+01 1.639445E+01 Y 3.464596E+01 YZ 0.0 B -2.988763E+00 LY -0.98 0.21 0.0 Z 1.002942E+01 ZX 0.0 C 1.002942E+01 LZ 0.0 0.0 1.00 0 39 88 X 1.436092E-01 XY -8.526480E+00 A 3.941450E+01 LX 0.21 0.98 0.0 -1.633962E+01 1.716033E+01 Y 3.756324E+01 YZ 0.0 B -1.707658E+00 LY -0.98 0.21 0.0 Z 1.131201E+01 ZX 0.0 C 1.131201E+01 LZ 0.0 0.0 1.00 0 39 0 X -9.759728E-01 XY -7.201472E+00 A 3.787975E+01 LX 0.18 0.98 0.0 -1.541326E+01 1.674687E+01 Y 3.654504E+01 YZ 0.0 B -2.310685E+00 LY -0.98 0.18 0.0 Z 1.067072E+01 ZX 0.0 C 1.067071E+01 LZ 0.0 0.0 1.00 0 40 65 X 7.009261E-01 XY -5.683421E+00 A 3.762620E+01 LX 0.15 0.99 0.0 -1.622933E+01 1.583064E+01 Y 3.675143E+01 YZ 0.0 B -1.738491E-01 LY -0.99 0.15 0.0 Z 1.123565E+01 ZX 0.0 C 1.123565E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 40 66 X -4.648107E-01 XY -5.456077E+00 A 3.498374E+01 LX 0.15 0.99 0.0 -1.459431E+01 1.515111E+01 Y 3.414397E+01 YZ 0.0 B -1.304585E+00 LY -0.99 0.15 0.0 Z 1.010377E+01 ZX 0.0 C 1.010378E+01 LZ 0.0 0.0 1.00 0 40 84 X 3.291802E-01 XY -7.524218E+00 A 3.498375E+01 LX 0.21 0.98 0.0 -1.459436E+01 1.515108E+01 Y 3.335009E+01 YZ 0.0 B -1.304482E+00 LY -0.98 0.21 0.0 Z 1.010379E+01 ZX 0.0 C 1.010379E+01 LZ 0.0 0.0 1.00 0 40 83 X 1.527484E+00 XY -7.837723E+00 A 3.762609E+01 LX 0.21 0.98 0.0 -1.622913E+01 1.583074E+01 Y 3.592437E+01 YZ 0.0 B -1.742396E-01 LY -0.98 0.21 0.0 Z 1.123553E+01 ZX 0.0 C 1.123554E+01 LZ 0.0 0.0 1.00 0 40 71 X 7.005271E-01 XY -5.683405E+00 A 3.762613E+01 LX 0.15 0.99 0.0 -1.622916E+01 1.583074E+01 Y 3.675136E+01 YZ 0.0 B -1.742354E-01 LY -0.99 0.15 0.0 Z 1.123559E+01 ZX 0.0 C 1.123559E+01 LZ 0.0 0.0 1.00 0 40 72 X -4.646601E-01 XY -5.456086E+00 A 3.498381E+01 LX 0.15 0.99 0.0 -1.459441E+01 1.515108E+01 Y 3.414403E+01 YZ 0.0 B -1.304439E+00 LY -0.99 0.15 0.0 Z 1.010385E+01 ZX 0.0 C 1.010385E+01 LZ 0.0 0.0 1.00 0 40 90 X 3.289904E-01 XY -7.524214E+00 A 3.498368E+01 LX 0.21 0.98 0.0 -1.459424E+01 1.515112E+01 Y 3.335003E+01 YZ 0.0 B -1.304666E+00 LY -0.98 0.21 0.0 Z 1.010370E+01 ZX 0.0 C 1.010371E+01 LZ 0.0 0.0 1.00 0 40 89 X 1.527747E+00 XY -7.837724E+00 A 3.762622E+01 LX 0.21 0.98 0.0 -1.622931E+01 1.583069E+01 Y 3.592449E+01 YZ 0.0 B -1.739854E-01 LY -0.98 0.21 0.0 Z 1.123570E+01 ZX 0.0 C 1.123570E+01 LZ 0.0 0.0 1.00 0 40 0 X 5.231730E-01 XY -6.625359E+00 A 3.627041E+01 LX 0.18 0.98 0.0 -1.541178E+01 1.546300E+01 Y 3.504247E+01 YZ 0.0 B -7.047672E-01 LY -0.98 0.18 0.0 Z 1.066970E+01 ZX 0.0 C 1.066970E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 1 1 X -1.411065E+04 XY -5.242737E+03 A -1.297235E+04 LX 0.98 0.0 0.21 3.647952E+04 1.851045E+04 Y -3.711912E+04 YZ 0.0 B -5.820881E+04 LY -0.21 0.0 0.98 Z -5.820879E+04 ZX 0.0 C -3.825740E+04 LZ 0.0 1.00 0.0 0 1 2 X 1.025496E+04 XY -4.993116E+03 A 1.133907E+04 LX 0.98 0.0 0.21 1.176639E+04 1.848011E+04 Y -1.165791E+04 YZ 0.0 B -3.389621E+04 LY -0.21 0.0 0.98 Z -3.389621E+04 ZX 0.0 C -1.274201E+04 LZ 0.0 1.00 0.0 0 1 20 X 1.078215E+04 XY -3.620715E+03 A 1.133943E+04 LX 0.99 0.0 0.15 1.176611E+04 1.848016E+04 Y -1.218450E+04 YZ 0.0 B -3.389597E+04 LY -0.15 0.0 0.99 Z -3.389597E+04 ZX 0.0 C -1.274179E+04 LZ 0.0 1.00 0.0 0 1 19 X -1.355755E+04 XY -3.801741E+03 A -1.297240E+04 LX 0.99 0.0 0.15 3.647956E+04 1.851042E+04 Y -3.767231E+04 YZ 0.0 B -5.820879E+04 LY -0.15 0.0 0.99 Z -5.820881E+04 ZX 0.0 C -3.825748E+04 LZ 0.0 1.00 0.0 0 1 7 X -1.411068E+04 XY -5.242763E+03 A -1.297237E+04 LX 0.98 0.0 0.21 3.647955E+04 1.851044E+04 Y -3.711916E+04 YZ 0.0 B -5.820882E+04 LY -0.21 0.0 0.98 Z -5.820880E+04 ZX 0.0 C -3.825745E+04 LZ 0.0 1.00 0.0 0 1 8 X 1.025501E+04 XY -4.993105E+03 A 1.133912E+04 LX 0.98 0.0 0.21 1.176631E+04 1.848009E+04 Y -1.165783E+04 YZ 0.0 B -3.389613E+04 LY -0.21 0.0 0.98 Z -3.389612E+04 ZX 0.0 C -1.274193E+04 LZ 0.0 1.00 0.0 0 1 26 X 1.078194E+04 XY -3.620681E+03 A 1.133922E+04 LX 0.99 0.0 0.15 1.176625E+04 1.848012E+04 Y -1.218458E+04 YZ 0.0 B -3.389611E+04 LY -0.15 0.0 0.99 Z -3.389611E+04 ZX 0.0 C -1.274186E+04 LZ 0.0 1.00 0.0 0 1 25 X -1.355746E+04 XY -3.801771E+03 A -1.297229E+04 LX 0.99 0.0 0.15 3.647951E+04 1.851047E+04 Y -3.767230E+04 YZ 0.0 B -5.820882E+04 LY -0.15 0.0 0.99 Z -5.820879E+04 ZX 0.0 C -3.825743E+04 LZ 0.0 1.00 0.0 0 1 0 X -1.657784E+03 XY -4.414579E+03 A -8.395894E+02 LX 0.98 0.0 0.18 2.412290E+04 1.848288E+04 Y -2.465847E+04 YZ 0.0 B -4.605245E+04 LY -0.18 0.0 0.98 Z -4.605245E+04 ZX 0.0 C -2.547666E+04 LZ 0.0 1.00 0.0 0 2 2 X -1.342556E+04 XY -2.111017E+03 A -1.296721E+04 LX 0.98 0.0 0.21 2.680847E+04 1.305464E+04 Y -2.269010E+04 YZ 0.0 B -4.430974E+04 LY -0.21 0.0 0.98 Z -4.430975E+04 ZX 0.0 C -2.314845E+04 LZ 0.0 1.00 0.0 0 2 3 X 9.270897E+03 XY -2.015056E+03 A 9.708402E+03 LX 0.98 0.0 0.21 3.978422E+03 1.309943E+04 Y 4.275085E+02 YZ 0.0 B -2.163367E+04 LY -0.21 0.0 0.98 Z -2.163367E+04 ZX 0.0 C -9.996917E+00 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 2 21 X 9.483532E+03 XY -1.461220E+03 A 9.708439E+03 LX 0.99 0.0 0.15 3.978400E+03 1.309944E+04 Y 2.149207E+02 YZ 0.0 B -2.163366E+04 LY -0.15 0.0 0.99 Z -2.163366E+04 ZX 0.0 C -9.982727E+00 LZ 0.0 1.00 0.0 0 2 20 X -1.320290E+04 XY -1.530786E+03 A -1.296729E+04 LX 0.99 0.0 0.15 2.680848E+04 1.305463E+04 Y -2.291279E+04 YZ 0.0 B -4.430977E+04 LY -0.15 0.0 0.99 Z -4.430976E+04 ZX 0.0 C -2.314838E+04 LZ 0.0 1.00 0.0 0 2 8 X -1.342576E+04 XY -2.111029E+03 A -1.296740E+04 LX 0.98 0.0 0.21 2.680855E+04 1.305459E+04 Y -2.269011E+04 YZ 0.0 B -4.430979E+04 LY -0.21 0.0 0.98 Z -4.430979E+04 ZX 0.0 C -2.314847E+04 LZ 0.0 1.00 0.0 0 2 9 X 9.270850E+03 XY -2.015068E+03 A 9.708362E+03 LX 0.98 0.0 0.21 3.978416E+03 1.309938E+04 Y 4.274952E+02 YZ 0.0 B -2.163359E+04 LY -0.21 0.0 0.98 Z -2.163360E+04 ZX 0.0 C -1.001622E+01 LZ 0.0 1.00 0.0 0 2 27 X 9.483409E+03 XY -1.461212E+03 A 9.708314E+03 LX 0.99 0.0 0.15 3.978505E+03 1.309942E+04 Y 2.148135E+02 YZ 0.0 B -2.163374E+04 LY -0.15 0.0 0.99 Z -2.163374E+04 ZX 0.0 C -1.009205E+01 LZ 0.0 1.00 0.0 0 2 26 X -1.320299E+04 XY -1.530778E+03 A -1.296738E+04 LX 0.99 0.0 0.15 2.680850E+04 1.305458E+04 Y -2.291278E+04 YZ 0.0 B -4.430973E+04 LY -0.15 0.0 0.99 Z -4.430973E+04 ZX 0.0 C -2.314839E+04 LZ 0.0 1.00 0.0 0 2 0 X -1.968566E+03 XY -1.779521E+03 A -1.638751E+03 LX 0.98 0.0 0.18 1.539347E+04 1.307423E+04 Y -1.124013E+04 YZ 0.0 B -3.297171E+04 LY -0.18 0.0 0.98 Z -3.297171E+04 ZX 0.0 C -1.156995E+04 LZ 0.0 1.00 0.0 0 3 3 X -1.226871E+04 XY 6.067123E+02 A -9.474388E+03 LX 0.21 0.0 0.98 1.766006E+04 9.582011E+03 Y -9.606112E+03 YZ 0.0 B -3.110535E+04 LY 0.98 0.0 -0.21 Z -3.110535E+04 ZX 0.0 C -1.240043E+04 LZ 0.0 1.00 0.0 0 3 4 X 8.964054E+03 XY 5.803583E+02 A 1.163696E+04 LX 0.21 0.0 0.98 -3.536033E+03 9.545943E+03 Y 1.151095E+04 YZ 0.0 B -9.866905E+03 LY 0.98 0.0 -0.21 Z -9.866903E+03 ZX 0.0 C 8.838045E+03 LZ 0.0 1.00 0.0 0 3 22 X 8.902727E+03 XY 4.207940E+02 A 1.163694E+04 LX 0.15 0.0 0.99 -3.535976E+03 9.545954E+03 Y 1.157218E+04 YZ 0.0 B -9.866974E+03 LY 0.99 0.0 -0.15 Z -9.866974E+03 ZX 0.0 C 8.837965E+03 LZ 0.0 1.00 0.0 0 3 21 X -1.233290E+04 XY 4.399682E+02 A -9.474515E+03 LX 0.15 0.0 0.99 1.766021E+04 9.582014E+03 Y -9.542223E+03 YZ 0.0 B -3.110550E+04 LY 0.99 0.0 -0.15 Z -3.110549E+04 ZX 0.0 C -1.240060E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 3 9 X -1.226878E+04 XY 6.066987E+02 A -9.474381E+03 LX 0.21 0.0 0.98 1.766009E+04 9.582030E+03 Y -9.606087E+03 YZ 0.0 B -3.110541E+04 LY 0.98 0.0 -0.21 Z -3.110541E+04 ZX 0.0 C -1.240048E+04 LZ 0.0 1.00 0.0 0 3 10 X 8.964229E+03 XY 5.803391E+02 A 1.163690E+04 LX 0.21 0.0 0.98 -3.536060E+03 9.545972E+03 Y 1.151089E+04 YZ 0.0 B -9.866936E+03 LY 0.98 0.0 -0.21 Z -9.866937E+03 ZX 0.0 C 8.838212E+03 LZ 0.0 1.00 0.0 0 3 28 X 8.902804E+03 XY 4.207957E+02 A 1.163695E+04 LX 0.15 0.0 0.99 -3.536036E+03 9.545935E+03 Y 1.157219E+04 YZ 0.0 B -9.866892E+03 LY 0.99 0.0 -0.15 Z -9.866892E+03 ZX 0.0 C 8.838047E+03 LZ 0.0 1.00 0.0 0 3 27 X -1.233276E+04 XY 4.399537E+02 A -9.474472E+03 LX 0.15 0.0 0.99 1.766012E+04 9.582021E+03 Y -9.542176E+03 YZ 0.0 B -3.110544E+04 LY 0.99 0.0 -0.15 Z -3.110544E+04 ZX 0.0 C -1.240047E+04 LZ 0.0 1.00 0.0 0 3 0 X -1.683667E+03 XY 5.119525E+02 A 1.078586E+03 LX 0.18 0.0 0.98 7.062047E+03 9.563691E+03 Y 9.837013E+02 YZ 0.0 B -2.048618E+04 LY 0.98 0.0 -0.18 Z -2.048618E+04 ZX 0.0 C -1.778550E+03 LZ 0.0 1.00 0.0 0 4 4 X -1.075197E+04 XY 2.980323E+03 A 2.974776E+03 LX 0.21 0.0 0.98 8.986930E+03 8.946049E+03 Y 2.327695E+03 YZ 0.0 B -1.853652E+04 LY 0.98 0.0 -0.21 Z -1.853652E+04 ZX 0.0 C -1.139905E+04 LZ 0.0 1.00 0.0 0 4 5 X 9.207340E+03 XY 2.856187E+03 A 2.236213E+04 LX 0.21 0.0 0.98 -1.079953E+04 8.679779E+03 Y 2.174199E+04 YZ 0.0 B 1.449262E+03 LY 0.98 0.0 -0.21 Z 1.449263E+03 ZX 0.0 C 8.587200E+03 LZ 0.0 1.00 0.0 0 4 23 X 8.906044E+03 XY 2.071075E+03 A 2.236209E+04 LX 0.15 0.0 0.99 -1.079955E+04 8.679745E+03 Y 2.204332E+04 YZ 0.0 B 1.449287E+03 LY 0.99 0.0 -0.15 Z 1.449289E+03 ZX 0.0 C 8.587274E+03 LZ 0.0 1.00 0.0 0 4 22 X -1.106642E+04 XY 2.161178E+03 A 2.974839E+03 LX 0.15 0.0 0.99 8.986859E+03 8.946021E+03 Y 2.642198E+03 YZ 0.0 B -1.853636E+04 LY 0.99 0.0 -0.15 Z -1.853636E+04 ZX 0.0 C -1.139906E+04 LZ 0.0 1.00 0.0 0 4 10 X -1.075200E+04 XY 2.980366E+03 A 2.974724E+03 LX 0.21 0.0 0.98 8.986968E+03 8.946032E+03 Y 2.327622E+03 YZ 0.0 B -1.853652E+04 LY 0.98 0.0 -0.21 Z -1.853652E+04 ZX 0.0 C -1.139910E+04 LZ 0.0 1.00 0.0 0 4 11 X 9.207314E+03 XY 2.856174E+03 A 2.236218E+04 LX 0.21 0.0 0.98 -1.079956E+04 8.679783E+03 Y 2.174205E+04 YZ 0.0 B 1.449310E+03 LY 0.98 0.0 -0.21 Z 1.449310E+03 ZX 0.0 C 8.587191E+03 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 4 29 X 8.905957E+03 XY 2.071098E+03 A 2.236212E+04 LX 0.15 0.0 0.99 -1.079950E+04 8.679796E+03 Y 2.204335E+04 YZ 0.0 B 1.449200E+03 LY 0.99 0.0 -0.15 Z 1.449200E+03 ZX 0.0 C 8.587188E+03 LZ 0.0 1.00 0.0 0 4 28 X -1.106624E+04 XY 2.161113E+03 A 2.974842E+03 LX 0.15 0.0 0.99 8.986812E+03 8.946021E+03 Y 2.642218E+03 YZ 0.0 B -1.853641E+04 LY 0.99 0.0 -0.15 Z -1.853641E+04 ZX 0.0 C -1.139887E+04 LZ 0.0 1.00 0.0 0 4 0 X -9.262469E+02 XY 2.517189E+03 A 1.265534E+04 LX 0.18 0.0 0.98 -9.063216E+02 8.805797E+03 Y 1.218881E+04 YZ 0.0 B -8.543595E+03 LY 0.98 0.0 -0.18 Z -8.543594E+03 ZX 0.0 C -1.392778E+03 LZ 0.0 1.00 0.0 0 5 5 X -8.937519E+03 XY 5.065114E+03 A 1.439100E+04 LX 0.21 0.98 0.0 7.251395E+02 1.078425E+04 Y 1.329126E+04 YZ 0.0 B -1.003726E+04 LY 0.98-0.21 0.0 Z -6.529159E+03 ZX 0.0 C -6.529155E+03 LZ 0.0 0.0 1.00 0 5 6 X 9.876238E+03 XY 4.862515E+03 A 3.227137E+04 LX 0.21 0.98 0.0 -1.780641E+04 1.032799E+04 Y 3.121561E+04 YZ 0.0 B 8.820471E+03 LY 0.98-0.21 0.0 Z 1.232739E+04 ZX 0.0 C 1.232739E+04 LZ 0.0 0.0 1.00 0 5 24 X 9.362969E+03 XY 3.525951E+03 A 3.227144E+04 LX 0.15 0.99 0.0 -1.780638E+04 1.032807E+04 Y 3.172874E+04 YZ 0.0 B 8.820264E+03 LY 0.99-0.15 0.0 Z 1.232742E+04 ZX 0.0 C 1.232743E+04 LZ 0.0 0.0 1.00 0 5 23 X -9.471760E+03 XY 3.672837E+03 A 1.439106E+04 LX 0.15 0.99 0.0 7.250480E+02 1.078421E+04 Y 1.382575E+04 YZ 0.0 B -1.003707E+04 LY 0.99-0.15 0.0 Z -6.529137E+03 ZX 0.0 C -6.529131E+03 LZ 0.0 0.0 1.00 0 5 11 X -8.937278E+03 XY 5.065062E+03 A 1.439105E+04 LX 0.21 0.98 0.0 7.250344E+02 1.078419E+04 Y 1.329132E+04 YZ 0.0 B -1.003701E+04 LY 0.98-0.21 0.0 Z -6.529144E+03 ZX 0.0 C -6.529142E+03 LZ 0.0 0.0 1.00 0 5 12 X 9.876032E+03 XY 4.862482E+03 A 3.227138E+04 LX 0.21 0.98 0.0 -1.780636E+04 1.032804E+04 Y 3.121565E+04 YZ 0.0 B 8.820270E+03 LY 0.98-0.21 0.0 Z 1.232741E+04 ZX 0.0 C 1.232743E+04 LZ 0.0 0.0 1.00 0 5 30 X 9.363142E+03 XY 3.525958E+03 A 3.227140E+04 LX 0.15 0.99 0.0 -1.780642E+04 1.032800E+04 Y 3.172870E+04 YZ 0.0 B 8.820449E+03 LY 0.99-0.15 0.0 Z 1.232744E+04 ZX 0.0 C 1.232742E+04 LZ 0.0 0.0 1.00 0 5 29 X -9.471812E+03 XY 3.672892E+03 A 1.439098E+04 LX 0.15 0.99 0.0 7.251071E+02 1.078420E+04 Y 1.382566E+04 YZ 0.0 B -1.003714E+04 LY 0.99-0.15 0.0 Z -6.529168E+03 ZX 0.0 C -6.529165E+03 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 5 0 X 2.075015E+02 XY 4.281602E+03 A 2.330889E+04 LX 0.18 0.98 0.0 -8.540656E+03 1.053920E+04 Y 2.251534E+04 YZ 0.0 B -5.860502E+02 LY 0.98-0.18 0.0 Z 2.899130E+03 ZX 0.0 C 2.899132E+03 LZ 0.0 0.0 1.00 0 6 19 X -1.318405E+04 XY -2.303919E+03 A -1.297236E+04 LX 1.00 0.0 0.09 3.647953E+04 1.851045E+04 Y -3.804573E+04 YZ 0.0 B -5.820883E+04 LY -0.09 0.0 1.00 Z -5.820880E+04 ZX 0.0 C -3.825740E+04 LZ 0.0 1.00 0.0 0 6 20 X 1.113774E+04 XY -2.194239E+03 A 1.133936E+04 LX 1.00 0.0 0.09 1.176623E+04 1.848018E+04 Y -1.254033E+04 YZ 0.0 B -3.389609E+04 LY -0.09 0.0 1.00 Z -3.389609E+04 ZX 0.0 C -1.274194E+04 LZ 0.0 1.00 0.0 0 6 38 X 1.131672E+04 XY -7.351078E+02 A 1.133918E+04 LX 1.00 0.0 0.03 1.176630E+04 1.848013E+04 Y -1.271948E+04 YZ 0.0 B -3.389615E+04 LY -0.03 0.0 1.00 Z -3.389615E+04 ZX 0.0 C -1.274193E+04 LZ 0.0 1.00 0.0 0 6 37 X -1.299606E+04 XY -7.718613E+02 A -1.297249E+04 LX 1.00 0.0 0.03 3.647965E+04 1.851043E+04 Y -3.823402E+04 YZ 0.0 B -5.820889E+04 LY -0.03 0.0 1.00 Z -5.820888E+04 ZX 0.0 C -3.825758E+04 LZ 0.0 1.00 0.0 0 6 25 X -1.318404E+04 XY -2.303924E+03 A -1.297234E+04 LX 1.00 0.0 0.09 3.647959E+04 1.851048E+04 Y -3.804588E+04 YZ 0.0 B -5.820888E+04 LY -0.09 0.0 1.00 Z -5.820887E+04 ZX 0.0 C -3.825756E+04 LZ 0.0 1.00 0.0 0 6 26 X 1.113752E+04 XY -2.194198E+03 A 1.133914E+04 LX 1.00 0.0 0.09 1.176627E+04 1.848006E+04 Y -1.254030E+04 YZ 0.0 B -3.389604E+04 LY -0.09 0.0 1.00 Z -3.389604E+04 ZX 0.0 C -1.274192E+04 LZ 0.0 1.00 0.0 0 6 44 X 1.131681E+04 XY -7.351031E+02 A 1.133927E+04 LX 1.00 0.0 0.03 1.176626E+04 1.848016E+04 Y -1.271945E+04 YZ 0.0 B -3.389615E+04 LY -0.03 0.0 1.00 Z -3.389615E+04 ZX 0.0 C -1.274190E+04 LZ 0.0 1.00 0.0 0 6 43 X -1.299594E+04 XY -7.718761E+02 A -1.297236E+04 LX 1.00 0.0 0.03 3.647954E+04 1.851044E+04 Y -3.823390E+04 YZ 0.0 B -5.820878E+04 LY -0.03 0.0 1.00 Z -5.820879E+04 ZX 0.0 C -3.825749E+04 LZ 0.0 1.00 0.0 0 6 0 X -9.314135E+02 XY -1.501279E+03 A -8.395925E+02 LX 1.00 0.0 0.06 2.412292E+04 1.848289E+04 Y -2.538489E+04 YZ 0.0 B -4.605247E+04 LY -0.06 0.0 1.00 Z -4.605247E+04 ZX 0.0 C -2.547671E+04 LZ 0.0 1.00 0.0 0 7 20 X -1.305249E+04 XY -9.276960E+02 A -1.296726E+04 LX 1.00 0.0 0.09 2.680846E+04 1.305464E+04 Y -2.306314E+04 YZ 0.0 B -4.430976E+04 LY -0.09 0.0 1.00 Z -4.430975E+04 ZX 0.0 C -2.314836E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 7 21 X 9.627142E+03 XY -8.854850E+02 A 9.708503E+03 LX 1.00 0.0 0.09 3.978374E+03 1.309945E+04 Y 7.137315E+01 YZ 0.0 B -2.163364E+04 LY -0.09 0.0 1.00 Z -2.163364E+04 ZX 0.0 C -9.986910E+00 LZ 0.0 1.00 0.0 0 7 39 X 9.699457E+03 XY -2.966933E+02 A 9.708522E+03 LX 1.00 0.0 0.03 3.978354E+03 1.309946E+04 Y -9.013640E-01 YZ 0.0 B -2.163362E+04 LY -0.03 0.0 1.00 Z -2.163362E+04 ZX 0.0 C -9.966269E+00 LZ 0.0 1.00 0.0 0 7 38 X -1.297683E+04 XY -3.107749E+02 A -1.296733E+04 LX 1.00 0.0 0.03 2.680852E+04 1.305460E+04 Y -2.313897E+04 YZ 0.0 B -4.430975E+04 LY -0.03 0.0 1.00 Z -4.430976E+04 ZX 0.0 C -2.314848E+04 LZ 0.0 1.00 0.0 0 7 26 X -1.305265E+04 XY -9.276857E+02 A -1.296740E+04 LX 1.00 0.0 0.09 2.680862E+04 1.305462E+04 Y -2.306331E+04 YZ 0.0 B -4.430989E+04 LY -0.09 0.0 1.00 Z -4.430989E+04 ZX 0.0 C -2.314855E+04 LZ 0.0 1.00 0.0 0 7 27 X 9.626813E+03 XY -8.855112E+02 A 9.708181E+03 LX 1.00 0.0 0.09 3.978522E+03 1.309934E+04 Y 7.127962E+01 YZ 0.0 B -2.163366E+04 LY -0.09 0.0 1.00 Z -2.163366E+04 ZX 0.0 C -1.008266E+01 LZ 0.0 1.00 0.0 0 7 45 X 9.699467E+03 XY -2.966397E+02 A 9.708529E+03 LX 1.00 0.0 0.03 3.978367E+03 1.309947E+04 Y -9.278845E-01 YZ 0.0 B -2.163364E+04 LY -0.03 0.0 1.00 Z -2.163364E+04 ZX 0.0 C -9.985622E+00 LZ 0.0 1.00 0.0 0 7 44 X -1.297664E+04 XY -3.108080E+02 A -1.296713E+04 LX 1.00 0.0 0.03 2.680839E+04 1.305463E+04 Y -2.313889E+04 YZ 0.0 B -4.430964E+04 LY -0.03 0.0 1.00 Z -4.430965E+04 ZX 0.0 C -2.314841E+04 LZ 0.0 1.00 0.0 0 7 0 X -1.675716E+03 XY -6.051617E+02 A -1.638700E+03 LX 1.00 0.0 0.06 1.539345E+04 1.307424E+04 Y -1.153294E+04 YZ 0.0 B -3.297170E+04 LY -0.06 0.0 1.00 Z -3.297170E+04 ZX 0.0 C -1.156995E+04 LZ 0.0 1.00 0.0 0 8 21 X -1.237616E+04 XY 2.666454E+02 A -9.474440E+03 LX 0.09 0.0 1.00 1.766020E+04 9.582029E+03 Y -9.498941E+03 YZ 0.0 B -3.110551E+04 LY 1.00 0.0 -0.09 Z -3.110550E+04 ZX 0.0 C -1.240065E+04 LZ 0.0 1.00 0.0 0 8 22 X 8.861426E+03 XY 2.550430E+02 A 1.163692E+04 LX 0.09 0.0 1.00 -3.535987E+03 9.545944E+03 Y 1.161349E+04 YZ 0.0 B -9.866952E+03 LY 1.00 0.0 -0.09 Z -9.866952E+03 ZX 0.0 C 8.837992E+03 LZ 0.0 1.00 0.0 0 8 40 X 8.840765E+03 XY 8.543445E+01 A 1.163688E+04 LX 0.03 0.0 1.00 -3.536031E+03 9.545965E+03 Y 1.163427E+04 YZ 0.0 B -9.866951E+03 LY 1.00 0.0 -0.03 Z -9.866950E+03 ZX 0.0 C 8.838158E+03 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 8 39 X -1.239773E+04 XY 8.931259E+01 A -9.474368E+03 LX 0.03 0.0 1.00 1.766004E+04 9.581993E+03 Y -9.477089E+03 YZ 0.0 B -3.110531E+04 LY 1.00 0.0 -0.03 Z -3.110531E+04 ZX 0.0 C -1.240045E+04 LZ 0.0 1.00 0.0 0 8 27 X -1.237588E+04 XY 2.666164E+02 A -9.474443E+03 LX 0.09 0.0 1.00 1.766006E+04 9.582012E+03 Y -9.498938E+03 YZ 0.0 B -3.110536E+04 LY 1.00 0.0 -0.09 Z -3.110536E+04 ZX 0.0 C -1.240037E+04 LZ 0.0 1.00 0.0 0 8 28 X 8.861572E+03 XY 2.550385E+02 A 1.163693E+04 LX 0.09 0.0 1.00 -3.536063E+03 9.545941E+03 Y 1.161350E+04 YZ 0.0 B -9.866881E+03 LY 1.00 0.0 -0.09 Z -9.866881E+03 ZX 0.0 C 8.838138E+03 LZ 0.0 1.00 0.0 0 8 46 X 8.840547E+03 XY 8.544410E+01 A 1.163691E+04 LX 0.03 0.0 1.00 -3.535951E+03 9.545954E+03 Y 1.163430E+04 YZ 0.0 B -9.866999E+03 LY 1.00 0.0 -0.03 Z -9.866998E+03 ZX 0.0 C 8.837938E+03 LZ 0.0 1.00 0.0 0 8 45 X -1.239773E+04 XY 8.932683E+01 A -9.474391E+03 LX 0.03 0.0 1.00 1.766006E+04 9.582011E+03 Y -9.477106E+03 YZ 0.0 B -3.110536E+04 LY 1.00 0.0 -0.03 Z -3.110536E+04 ZX 0.0 C -1.240044E+04 LZ 0.0 1.00 0.0 0 8 0 X -1.767899E+03 XY 1.741077E+02 A 1.078586E+03 LX 0.06 0.0 1.00 7.062042E+03 9.563685E+03 Y 1.067936E+03 YZ 0.0 B -2.048616E+04 LY 1.00 0.0 -0.06 Z -2.048616E+04 ZX 0.0 C -1.778548E+03 LZ 0.0 1.00 0.0 0 9 22 X -1.127877E+04 XY 1.309701E+03 A 2.974750E+03 LX 0.09 0.0 1.00 8.986944E+03 8.946025E+03 Y 2.854406E+03 YZ 0.0 B -1.853647E+04 LY 1.00 0.0 -0.09 Z -1.853647E+04 ZX 0.0 C -1.139911E+04 LZ 0.0 1.00 0.0 0 9 23 X 8.702659E+03 XY 1.255127E+03 A 2.236225E+04 LX 0.09 0.0 1.00 -1.079963E+04 8.679802E+03 Y 2.224692E+04 YZ 0.0 B 1.449310E+03 LY 1.00 0.0 -0.09 Z 1.449311E+03 ZX 0.0 C 8.587333E+03 LZ 0.0 1.00 0.0 0 9 41 X 8.600021E+03 XY 4.204839E+02 A 2.236212E+04 LX 0.03 0.0 1.00 -1.079950E+04 8.679790E+03 Y 2.234927E+04 YZ 0.0 B 1.449217E+03 LY 1.00 0.0 -0.03 Z 1.449218E+03 ZX 0.0 C 8.587174E+03 LZ 0.0 1.00 0.0 0 9 40 X -1.138566E+04 XY 4.387598E+02 A 2.974739E+03 LX 0.03 0.0 1.00 8.986950E+03 8.946034E+03 Y 2.961333E+03 YZ 0.0 B -1.853652E+04 LY 1.00 0.0 -0.03 Z -1.853652E+04 ZX 0.0 C -1.139907E+04 LZ 0.0 1.00 0.0 0 9 28 X -1.127853E+04 XY 1.309708E+03 A 2.974855E+03 LX 0.09 0.0 1.00 8.986806E+03 8.946027E+03 Y 2.854509E+03 YZ 0.0 B -1.853640E+04 LY 1.00 0.0 -0.09 Z -1.853640E+04 ZX 0.0 C -1.139887E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 9 29 X 8.702591E+03 XY 1.255115E+03 A 2.236219E+04 LX 0.09 0.0 1.00 -1.079959E+04 8.679776E+03 Y 2.224686E+04 YZ 0.0 B 1.449321E+03 LY 1.00 0.0 -0.09 Z 1.449321E+03 ZX 0.0 C 8.587266E+03 LZ 0.0 1.00 0.0 0 9 47 X 8.600112E+03 XY 4.204577E+02 A 2.236219E+04 LX 0.03 0.0 1.00 -1.079958E+04 8.679797E+03 Y 2.234935E+04 YZ 0.0 B 1.449273E+03 LY 1.00 0.0 -0.03 Z 1.449273E+03 ZX 0.0 C 8.587265E+03 LZ 0.0 1.00 0.0 0 9 46 X -1.138589E+04 XY 4.387921E+02 A 2.974672E+03 LX 0.03 0.0 1.00 8.987063E+03 8.946042E+03 Y 2.961264E+03 YZ 0.0 B -1.853657E+04 LY 1.00 0.0 -0.03 Z -1.853656E+04 ZX 0.0 C -1.139930E+04 LZ 0.0 1.00 0.0 0 9 0 X -1.340434E+03 XY 8.560180E+02 A 1.265535E+04 LX 0.06 0.0 1.00 -9.063167E+02 8.805805E+03 Y 1.260299E+04 YZ 0.0 B -8.543604E+03 LY 1.00 0.0 -0.06 Z -8.543604E+03 ZX 0.0 C -1.392791E+03 LZ 0.0 1.00 0.0 0 10 23 X -9.832527E+03 XY 2.225827E+03 A 1.439103E+04 LX 0.09 1.00 0.0 7.250740E+02 1.078421E+04 Y 1.418650E+04 YZ 0.0 B -1.003706E+04 LY 1.00-0.09 0.0 Z -6.529195E+03 ZX 0.0 C -6.529194E+03 LZ 0.0 0.0 1.00 0 10 24 X 9.016569E+03 XY 2.136790E+03 A 3.227140E+04 LX 0.09 1.00 0.0 -1.780634E+04 1.032807E+04 Y 3.207506E+04 YZ 0.0 B 8.820231E+03 LY 1.00-0.09 0.0 Z 1.232739E+04 ZX 0.0 C 1.232738E+04 LZ 0.0 0.0 1.00 0 10 42 X 8.842154E+03 XY 7.158607E+02 A 3.227140E+04 LX 0.03 1.00 0.0 -1.780636E+04 1.032805E+04 Y 3.224954E+04 YZ 0.0 B 8.820294E+03 LY 1.00-0.03 0.0 Z 1.232740E+04 ZX 0.0 C 1.232739E+04 LZ 0.0 0.0 1.00 0 10 41 X -1.001434E+04 XY 7.456534E+02 A 1.439109E+04 LX 0.03 1.00 0.0 7.250488E+02 1.078424E+04 Y 1.436831E+04 YZ 0.0 B -1.003713E+04 LY 1.00-0.03 0.0 Z -6.529115E+03 ZX 0.0 C -6.529109E+03 LZ 0.0 0.0 1.00 0 10 29 X -9.832444E+03 XY 2.225818E+03 A 1.439115E+04 LX 0.09 1.00 0.0 7.249626E+02 1.078422E+04 Y 1.418663E+04 YZ 0.0 B -1.003697E+04 LY 1.00-0.09 0.0 Z -6.529075E+03 ZX 0.0 C -6.529070E+03 LZ 0.0 0.0 1.00 0 10 30 X 9.016701E+03 XY 2.136791E+03 A 3.227143E+04 LX 0.09 1.00 0.0 -1.780640E+04 1.032804E+04 Y 3.207507E+04 YZ 0.0 B 8.820382E+03 LY 1.00-0.09 0.0 Z 1.232742E+04 ZX 0.0 C 1.232739E+04 LZ 0.0 0.0 1.00 0 10 48 X 8.842233E+03 XY 7.158309E+02 A 3.227144E+04 LX 0.03 1.00 0.0 -1.780640E+04 1.032805E+04 Y 3.224955E+04 YZ 0.0 B 8.820366E+03 LY 1.00-0.03 0.0 Z 1.232740E+04 ZX 0.0 C 1.232739E+04 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10 47 X -1.001444E+04 XY 7.457202E+02 A 1.439102E+04 LX 0.03 1.00 0.0 7.251185E+02 1.078424E+04 Y 1.436823E+04 YZ 0.0 B -1.003723E+04 LY 1.00-0.03 0.0 Z -6.529146E+03 ZX 0.0 C -6.529144E+03 LZ 0.0 0.0 1.00 0 10 0 X -4.970122E+02 XY 1.456037E+03 A 2.330892E+04 LX 0.06 1.00 0.0 -8.540660E+03 1.053922E+04 Y 2.321986E+04 YZ 0.0 B -5.860701E+02 LY 1.00-0.06 0.0 Z 2.899135E+03 ZX 0.0 C 2.899134E+03 LZ 0.0 0.0 1.00 0 11 37 X -1.299608E+04 XY 7.718271E+02 A -1.297250E+04 LX 1.00 0.0 0.03 3.647967E+04 1.851041E+04 Y -3.823407E+04 YZ 0.0 B -5.820886E+04 LY 0.03 0.0 -1.00 Z -5.820886E+04 ZX 0.0 C -3.825764E+04 LZ 0.0 1.00 0.0 0 11 38 X 1.131685E+04 XY 7.350547E+02 A 1.133931E+04 LX 1.00 0.0 0.03 1.176627E+04 1.848020E+04 Y -1.271948E+04 YZ 0.0 B -3.389620E+04 LY 0.03 0.0 -1.00 Z -3.389620E+04 ZX 0.0 C -1.274193E+04 LZ 0.0 1.00 0.0 0 11 56 X 1.113761E+04 XY 2.194207E+03 A 1.133922E+04 LX 1.00 0.0 0.09 1.176626E+04 1.848012E+04 Y -1.254033E+04 YZ 0.0 B -3.389607E+04 LY 0.09 0.0 -1.00 Z -3.389607E+04 ZX 0.0 C -1.274194E+04 LZ 0.0 1.00 0.0 0 11 55 X -1.318394E+04 XY 2.303884E+03 A -1.297223E+04 LX 1.00 0.0 0.09 3.647949E+04 1.851048E+04 Y -3.804575E+04 YZ 0.0 B -5.820876E+04 LY 0.09 0.0 -1.00 Z -5.820879E+04 ZX 0.0 C -3.825748E+04 LZ 0.0 1.00 0.0 0 11 43 X -1.299605E+04 XY 7.717997E+02 A -1.297247E+04 LX 1.00 0.0 0.03 3.647964E+04 1.851044E+04 Y -3.823398E+04 YZ 0.0 B -5.820891E+04 LY 0.03 0.0 -1.00 Z -5.820890E+04 ZX 0.0 C -3.825754E+04 LZ 0.0 1.00 0.0 0 11 44 X 1.131661E+04 XY 7.350700E+02 A 1.133907E+04 LX 1.00 0.0 0.03 1.176638E+04 1.848009E+04 Y -1.271957E+04 YZ 0.0 B -3.389616E+04 LY 0.03 0.0 -1.00 Z -3.389616E+04 ZX 0.0 C -1.274203E+04 LZ 0.0 1.00 0.0 0 11 62 X 1.113770E+04 XY 2.194157E+03 A 1.133930E+04 LX 1.00 0.0 0.09 1.176622E+04 1.848014E+04 Y -1.254030E+04 YZ 0.0 B -3.389606E+04 LY 0.09 0.0 -1.00 Z -3.389606E+04 ZX 0.0 C -1.274190E+04 LZ 0.0 1.00 0.0 0 11 61 X -1.318408E+04 XY 2.303876E+03 A -1.297239E+04 LX 1.00 0.0 0.09 3.647964E+04 1.851047E+04 Y -3.804593E+04 YZ 0.0 B -5.820889E+04 LY 0.09 0.0 -1.00 Z -5.820888E+04 ZX 0.0 C -3.825762E+04 LZ 0.0 1.00 0.0 0 11 0 X -9.314234E+02 XY 1.501234E+03 A -8.396038E+02 LX 1.00 0.0 0.06 2.412295E+04 1.848289E+04 Y -2.538493E+04 YZ 0.0 B -4.605249E+04 LY 0.06 0.0 -1.00 Z -4.605249E+04 ZX 0.0 C -2.547675E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 12 38 X -1.297670E+04 XY 3.107932E+02 A -1.296719E+04 LX 1.00 0.0 0.03 2.680844E+04 1.305464E+04 Y -2.313892E+04 YZ 0.0 B -4.430971E+04 LY 0.03 0.0 -1.00 Z -4.430971E+04 ZX 0.0 C -2.314842E+04 LZ 0.0 1.00 0.0 0 12 39 X 9.699403E+03 XY 2.966287E+02 A 9.708466E+03 LX 1.00 0.0 0.03 3.978355E+03 1.309942E+04 Y -8.825329E-01 YZ 0.0 B -2.163359E+04 LY 0.03 0.0 -1.00 Z -2.163359E+04 ZX 0.0 C -9.942722E+00 LZ 0.0 1.00 0.0 0 12 57 X 9.626986E+03 XY 8.855081E+02 A 9.708352E+03 LX 1.00 0.0 0.09 3.978462E+03 1.309942E+04 Y 7.131857E+01 YZ 0.0 B -2.163370E+04 LY 0.09 0.0 -1.00 Z -2.163370E+04 ZX 0.0 C -1.004206E+01 LZ 0.0 1.00 0.0 0 12 56 X -1.305261E+04 XY 9.276832E+02 A -1.296736E+04 LX 1.00 0.0 0.09 2.680857E+04 1.305461E+04 Y -2.306329E+04 YZ 0.0 B -4.430981E+04 LY 0.09 0.0 -1.00 Z -4.430980E+04 ZX 0.0 C -2.314853E+04 LZ 0.0 1.00 0.0 0 12 44 X -1.297662E+04 XY 3.107822E+02 A -1.296711E+04 LX 1.00 0.0 0.03 2.680840E+04 1.305464E+04 Y -2.313892E+04 YZ 0.0 B -4.430966E+04 LY 0.03 0.0 -1.00 Z -4.430967E+04 ZX 0.0 C -2.314842E+04 LZ 0.0 1.00 0.0 0 12 45 X 9.699536E+03 XY 2.966304E+02 A 9.708598E+03 LX 1.00 0.0 0.03 3.978316E+03 1.309946E+04 Y -9.091188E-01 YZ 0.0 B -2.163358E+04 LY 0.03 0.0 -1.00 Z -2.163358E+04 ZX 0.0 C -9.969473E+00 LZ 0.0 1.00 0.0 0 12 63 X 9.626957E+03 XY 8.855155E+02 A 9.708326E+03 LX 1.00 0.0 0.09 3.978421E+03 1.309937E+04 Y 7.137288E+01 YZ 0.0 B -2.163360E+04 LY 0.09 0.0 -1.00 Z -2.163360E+04 ZX 0.0 C -9.990115E+00 LZ 0.0 1.00 0.0 0 12 62 X -1.305255E+04 XY 9.276594E+02 A -1.296732E+04 LX 1.00 0.0 0.09 2.680855E+04 1.305465E+04 Y -2.306325E+04 YZ 0.0 B -4.430985E+04 LY 0.09 0.0 -1.00 Z -4.430984E+04 ZX 0.0 C -2.314848E+04 LZ 0.0 1.00 0.0 0 12 0 X -1.675700E+03 XY 6.051501E+02 A -1.638690E+03 LX 1.00 0.0 0.06 1.539344E+04 1.307424E+04 Y -1.153294E+04 YZ 0.0 B -3.297169E+04 LY 0.06 0.0 -1.00 Z -3.297169E+04 ZX 0.0 C -1.156994E+04 LZ 0.0 1.00 0.0 0 13 39 X -1.239778E+04 XY -8.933924E+01 A -9.474388E+03 LX 0.03 0.0 1.00 1.766009E+04 9.582003E+03 Y -9.477121E+03 YZ 0.0 B -3.110537E+04 LY -1.00 0.0 0.03 Z -3.110537E+04 ZX 0.0 C -1.240051E+04 LZ 0.0 1.00 0.0 0 13 40 X 8.840688E+03 XY -8.543847E+01 A 1.163696E+04 LX 0.03 0.0 1.00 -3.536036E+03 9.545963E+03 Y 1.163435E+04 YZ 0.0 B -9.866932E+03 LY -1.00 0.0 0.03 Z -9.866932E+03 ZX 0.0 C 8.838080E+03 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 13 58 X 8.861407E+03 XY -2.550578E+02 A 1.163688E+04 LX 0.09 0.0 1.00 -3.535967E+03 9.545930E+03 Y 1.161344E+04 YZ 0.0 B -9.866952E+03 LY -1.00 0.0 0.09 Z -9.866951E+03 ZX 0.0 C 8.837970E+03 LZ 0.0 1.00 0.0 0 13 57 X -1.237599E+04 XY -2.666093E+02 A -9.474392E+03 LX 0.09 0.0 1.00 1.766010E+04 9.582024E+03 Y -9.498896E+03 YZ 0.0 B -3.110541E+04 LY -1.00 0.0 0.09 Z -3.110541E+04 ZX 0.0 C -1.240050E+04 LZ 0.0 1.00 0.0 0 13 45 X -1.239768E+04 XY -8.932755E+01 A -9.474396E+03 LX 0.03 0.0 1.00 1.766006E+04 9.582019E+03 Y -9.477140E+03 YZ 0.0 B -3.110537E+04 LY -1.00 0.0 0.03 Z -3.110537E+04 ZX 0.0 C -1.240042E+04 LZ 0.0 1.00 0.0 0 13 46 X 8.840594E+03 XY -8.543159E+01 A 1.163692E+04 LX 0.03 0.0 1.00 -3.535994E+03 9.545928E+03 Y 1.163431E+04 YZ 0.0 B -9.866921E+03 LY -1.00 0.0 0.03 Z -9.866921E+03 ZX 0.0 C 8.837984E+03 LZ 0.0 1.00 0.0 0 13 64 X 8.861588E+03 XY -2.550310E+02 A 1.163701E+04 LX 0.09 0.0 1.00 -3.536085E+03 9.545981E+03 Y 1.161358E+04 YZ 0.0 B -9.866912E+03 LY -1.00 0.0 0.09 Z -9.866912E+03 ZX 0.0 C 8.838158E+03 LZ 0.0 1.00 0.0 0 13 63 X -1.237612E+04 XY -2.666077E+02 A -9.474492E+03 LX 0.09 0.0 1.00 1.766019E+04 9.582010E+03 Y -9.498987E+03 YZ 0.0 B -3.110548E+04 LY -1.00 0.0 0.09 Z -3.110548E+04 ZX 0.0 C -1.240061E+04 LZ 0.0 1.00 0.0 0 13 0 X -1.767912E+03 XY -1.741053E+02 A 1.078591E+03 LX 0.06 0.0 1.00 7.062045E+03 9.563685E+03 Y 1.067943E+03 YZ 0.0 B -2.048617E+04 LY -1.00 0.0 0.06 Z -2.048617E+04 ZX 0.0 C -1.778563E+03 LZ 0.0 1.00 0.0 0 14 40 X -1.138567E+04 XY -4.387800E+02 A 2.974721E+03 LX 0.03 0.0 1.00 8.986952E+03 8.946021E+03 Y 2.961313E+03 YZ 0.0 B -1.853650E+04 LY -1.00 0.0 0.03 Z -1.853650E+04 ZX 0.0 C -1.139907E+04 LZ 0.0 1.00 0.0 0 14 41 X 8.599990E+03 XY -4.204848E+02 A 2.236219E+04 LX 0.03 0.0 1.00 -1.079953E+04 8.679807E+03 Y 2.234934E+04 YZ 0.0 B 1.449266E+03 LY -1.00 0.0 0.03 Z 1.449266E+03 ZX 0.0 C 8.587148E+03 LZ 0.0 1.00 0.0 0 14 59 X 8.702630E+03 XY -1.255120E+03 A 2.236221E+04 LX 0.09 0.0 1.00 -1.079959E+04 8.679803E+03 Y 2.224688E+04 YZ 0.0 B 1.449265E+03 LY -1.00 0.0 0.09 Z 1.449266E+03 ZX 0.0 C 8.587300E+03 LZ 0.0 1.00 0.0 0 14 58 X -1.127882E+04 XY -1.309704E+03 A 2.974726E+03 LX 0.09 0.0 1.00 8.986986E+03 8.946039E+03 Y 2.854383E+03 YZ 0.0 B -1.853653E+04 LY -1.00 0.0 0.09 Z -1.853653E+04 ZX 0.0 C -1.139916E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 14 46 X -1.138575E+04 XY -4.387729E+02 A 2.974741E+03 LX 0.03 0.0 1.00 8.986979E+03 8.946042E+03 Y 2.961334E+03 YZ 0.0 B -1.853652E+04 LY -1.00 0.0 0.03 Z -1.853652E+04 ZX 0.0 C -1.139916E+04 LZ 0.0 1.00 0.0 0 14 47 X 8.600051E+03 XY -4.204969E+02 A 2.236216E+04 LX 0.03 0.0 1.00 -1.079953E+04 8.679797E+03 Y 2.234931E+04 YZ 0.0 B 1.449240E+03 LY -1.00 0.0 0.03 Z 1.449240E+03 ZX 0.0 C 8.587202E+03 LZ 0.0 1.00 0.0 0 14 65 X 8.702371E+03 XY -1.255133E+03 A 2.236220E+04 LX 0.09 0.0 1.00 -1.079952E+04 8.679810E+03 Y 2.224688E+04 YZ 0.0 B 1.449298E+03 LY -1.00 0.0 0.09 Z 1.449298E+03 ZX 0.0 C 8.587049E+03 LZ 0.0 1.00 0.0 0 14 64 X -1.127867E+04 XY -1.309708E+03 A 2.974823E+03 LX 0.09 0.0 1.00 8.986885E+03 8.946048E+03 Y 2.854479E+03 YZ 0.0 B -1.853646E+04 LY -1.00 0.0 0.09 Z -1.853646E+04 ZX 0.0 C -1.139901E+04 LZ 0.0 1.00 0.0 0 14 0 X -1.340482E+03 XY -8.560250E+02 A 1.265535E+04 LX 0.06 0.0 1.00 -9.062968E+02 8.805814E+03 Y 1.260299E+04 YZ 0.0 B -8.543619E+03 LY -1.00 0.0 0.06 Z -8.543618E+03 ZX 0.0 C -1.392837E+03 LZ 0.0 1.00 0.0 0 15 41 X -1.001439E+04 XY -7.456570E+02 A 1.439109E+04 LX 0.03 1.00 0.0 7.250627E+02 1.078425E+04 Y 1.436831E+04 YZ 0.0 B -1.003717E+04 LY -1.00 0.03 0.0 Z -6.529109E+03 ZX 0.0 C -6.529107E+03 LZ 0.0 0.0 1.00 0 15 42 X 8.842219E+03 XY -7.158508E+02 A 3.227147E+04 LX 0.03 1.00 0.0 -1.780642E+04 1.032806E+04 Y 3.224960E+04 YZ 0.0 B 8.820354E+03 LY -1.00 0.03 0.0 Z 1.232743E+04 ZX 0.0 C 1.232743E+04 LZ 0.0 0.0 1.00 0 15 60 X 9.016590E+03 XY -2.136773E+03 A 3.227143E+04 LX 0.09 1.00 0.0 -1.780637E+04 1.032807E+04 Y 3.207509E+04 YZ 0.0 B 8.820246E+03 LY -1.00 0.09 0.0 Z 1.232744E+04 ZX 0.0 C 1.232745E+04 LZ 0.0 0.0 1.00 0 15 59 X -9.832405E+03 XY -2.225816E+03 A 1.439108E+04 LX 0.09 1.00 0.0 7.250139E+02 1.078420E+04 Y 1.418656E+04 YZ 0.0 B -1.003693E+04 LY -1.00 0.09 0.0 Z -6.529194E+03 ZX 0.0 C -6.529196E+03 LZ 0.0 0.0 1.00 0 15 47 X -1.001441E+04 XY -7.456857E+02 A 1.439106E+04 LX 0.03 1.00 0.0 7.250882E+02 1.078425E+04 Y 1.436827E+04 YZ 0.0 B -1.003720E+04 LY -1.00 0.03 0.0 Z -6.529131E+03 ZX 0.0 C -6.529126E+03 LZ 0.0 0.0 1.00 0 15 48 X 8.842167E+03 XY -7.158401E+02 A 3.227146E+04 LX 0.03 1.00 0.0 -1.780639E+04 1.032807E+04 Y 3.224959E+04 YZ 0.0 B 8.820284E+03 LY -1.00 0.03 0.0 Z 1.232743E+04 ZX 0.0 C 1.232744E+04 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 15 66 X 9.016801E+03 XY -2.136769E+03 A 3.227149E+04 LX 0.09 1.00 0.0 -1.780646E+04 1.032803E+04 Y 3.207515E+04 YZ 0.0 B 8.820470E+03 LY -1.00 0.09 0.0 Z 1.232743E+04 ZX 0.0 C 1.232743E+04 LZ 0.0 0.0 1.00 0 15 65 X -9.832506E+03 XY -2.225798E+03 A 1.439115E+04 LX 0.09 1.00 0.0 7.249783E+02 1.078423E+04 Y 1.418663E+04 YZ 0.0 B -1.003703E+04 LY -1.00 0.09 0.0 Z -6.529058E+03 ZX 0.0 C -6.529058E+03 LZ 0.0 0.0 1.00 0 15 0 X -4.969918E+02 XY -1.456024E+03 A 2.330896E+04 LX 0.06 1.00 0.0 -8.540689E+03 1.053923E+04 Y 2.321990E+04 YZ 0.0 B -5.860455E+02 LY -1.00 0.06 0.0 Z 2.899155E+03 ZX 0.0 C 2.899157E+03 LZ 0.0 0.0 1.00 0 16 55 X -1.355748E+04 XY 3.801698E+03 A -1.297234E+04 LX 0.99 0.0 0.15 3.647958E+04 1.851044E+04 Y -3.767250E+04 YZ 0.0 B -5.820875E+04 LY 0.15 0.0 -0.99 Z -5.820878E+04 ZX 0.0 C -3.825766E+04 LZ 0.0 1.00 0.0 0 16 56 X 1.078197E+04 XY 3.620653E+03 A 1.133924E+04 LX 0.99 0.0 0.15 1.176622E+04 1.848012E+04 Y -1.218456E+04 YZ 0.0 B -3.389607E+04 LY 0.15 0.0 -0.99 Z -3.389607E+04 ZX 0.0 C -1.274182E+04 LZ 0.0 1.00 0.0 0 16 74 X 1.025503E+04 XY 4.993123E+03 A 1.133914E+04 LX 0.98 0.0 0.21 1.176638E+04 1.848014E+04 Y -1.165798E+04 YZ 0.0 B -3.389621E+04 LY 0.21 0.0 -0.98 Z -3.389621E+04 ZX 0.0 C -1.274209E+04 LZ 0.0 1.00 0.0 0 16 73 X -1.411090E+04 XY 5.242798E+03 A -1.297256E+04 LX 0.98 0.0 0.21 3.647973E+04 1.851042E+04 Y -3.711934E+04 YZ 0.0 B -5.820894E+04 LY 0.21 0.0 -0.98 Z -5.820896E+04 ZX 0.0 C -3.825769E+04 LZ 0.0 1.00 0.0 0 16 61 X -1.355755E+04 XY 3.801710E+03 A -1.297240E+04 LX 0.99 0.0 0.15 3.647961E+04 1.851045E+04 Y -3.767239E+04 YZ 0.0 B -5.820885E+04 LY 0.15 0.0 -0.99 Z -5.820887E+04 ZX 0.0 C -3.825757E+04 LZ 0.0 1.00 0.0 0 16 62 X 1.078215E+04 XY 3.620678E+03 A 1.133942E+04 LX 0.99 0.0 0.15 1.176622E+04 1.848018E+04 Y -1.218477E+04 YZ 0.0 B -3.389604E+04 LY 0.15 0.0 -0.99 Z -3.389604E+04 ZX 0.0 C -1.274204E+04 LZ 0.0 1.00 0.0 0 16 80 X 1.025498E+04 XY 4.993116E+03 A 1.133909E+04 LX 0.98 0.0 0.21 1.176637E+04 1.848012E+04 Y -1.165786E+04 YZ 0.0 B -3.389623E+04 LY 0.21 0.0 -0.98 Z -3.389623E+04 ZX 0.0 C -1.274197E+04 LZ 0.0 1.00 0.0 0 16 79 X -1.411091E+04 XY 5.242798E+03 A -1.297259E+04 LX 0.98 0.0 0.21 3.647974E+04 1.851039E+04 Y -3.711941E+04 YZ 0.0 B -5.820891E+04 LY 0.21 0.0 -0.98 Z -5.820890E+04 ZX 0.0 C -3.825772E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 16 0 X -1.657839E+03 XY 4.414572E+03 A -8.396480E+02 LX 0.98 0.0 0.18 2.412298E+04 1.848288E+04 Y -2.465860E+04 YZ 0.0 B -4.605251E+04 LY 0.18 0.0 -0.98 Z -4.605251E+04 ZX 0.0 C -2.547678E+04 LZ 0.0 1.00 0.0 0 17 56 X -1.320298E+04 XY 1.530755E+03 A -1.296738E+04 LX 0.99 0.0 0.15 2.680851E+04 1.305457E+04 Y -2.291284E+04 YZ 0.0 B -4.430972E+04 LY 0.15 0.0 -0.99 Z -4.430973E+04 ZX 0.0 C -2.314844E+04 LZ 0.0 1.00 0.0 0 17 57 X 9.483430E+03 XY 1.461181E+03 A 9.708324E+03 LX 0.99 0.0 0.15 3.978511E+03 1.309941E+04 Y 2.147638E+02 YZ 0.0 B -2.163372E+04 LY 0.15 0.0 -0.99 Z -2.163372E+04 ZX 0.0 C -1.013330E+01 LZ 0.0 1.00 0.0 0 17 75 X 9.271054E+03 XY 2.015120E+03 A 9.708583E+03 LX 0.98 0.0 0.21 3.978317E+03 1.309946E+04 Y 4.275780E+02 YZ 0.0 B -2.163359E+04 LY 0.21 0.0 -0.98 Z -2.163359E+04 ZX 0.0 C -9.945301E+00 LZ 0.0 1.00 0.0 0 17 74 X -1.342564E+04 XY 2.111030E+03 A -1.296730E+04 LX 0.98 0.0 0.21 2.680855E+04 1.305464E+04 Y -2.269018E+04 YZ 0.0 B -4.430984E+04 LY 0.21 0.0 -0.98 Z -4.430983E+04 ZX 0.0 C -2.314851E+04 LZ 0.0 1.00 0.0 0 17 62 X -1.320279E+04 XY 1.530779E+03 A -1.296719E+04 LX 0.99 0.0 0.15 2.680845E+04 1.305465E+04 Y -2.291280E+04 YZ 0.0 B -4.430975E+04 LY 0.15 0.0 -0.99 Z -4.430975E+04 ZX 0.0 C -2.314840E+04 LZ 0.0 1.00 0.0 0 17 63 X 9.483473E+03 XY 1.461188E+03 A 9.708370E+03 LX 0.99 0.0 0.15 3.978458E+03 1.309941E+04 Y 2.148196E+02 YZ 0.0 B -2.163367E+04 LY 0.15 0.0 -0.99 Z -2.163367E+04 ZX 0.0 C -1.007525E+01 LZ 0.0 1.00 0.0 0 17 81 X 9.270857E+03 XY 2.015079E+03 A 9.708375E+03 LX 0.98 0.0 0.21 3.978417E+03 1.309941E+04 Y 4.275191E+02 YZ 0.0 B -2.163363E+04 LY 0.21 0.0 -0.98 Z -2.163363E+04 ZX 0.0 C -9.993999E+00 LZ 0.0 1.00 0.0 0 17 80 X -1.342575E+04 XY 2.111012E+03 A -1.296740E+04 LX 0.98 0.0 0.21 2.680859E+04 1.305459E+04 Y -2.269018E+04 YZ 0.0 B -4.430981E+04 LY 0.21 0.0 -0.98 Z -4.430983E+04 ZX 0.0 C -2.314854E+04 LZ 0.0 1.00 0.0 0 17 0 X -1.968542E+03 XY 1.779518E+03 A -1.638730E+03 LX 0.98 0.0 0.18 1.539348E+04 1.307423E+04 Y -1.124017E+04 YZ 0.0 B -3.297172E+04 LY 0.18 0.0 -0.98 Z -3.297172E+04 ZX 0.0 C -1.156998E+04 LZ 0.0 1.00 0.0 0 18 57 X -1.233273E+04 XY -4.399454E+02 A -9.474340E+03 LX 0.15 0.0 0.99 1.766004E+04 9.582020E+03 Y -9.542055E+03 YZ 0.0 B -3.110535E+04 LY -0.99 0.0 0.15 Z -3.110534E+04 ZX 0.0 C -1.240045E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 18 58 X 8.902924E+03 XY -4.208455E+02 A 1.163691E+04 LX 0.15 0.0 0.99 -3.536031E+03 9.545976E+03 Y 1.157213E+04 YZ 0.0 B -9.866964E+03 LY -0.99 0.0 0.15 Z -9.866964E+03 ZX 0.0 C 8.838147E+03 LZ 0.0 1.00 0.0 0 18 76 X 8.963975E+03 XY -5.803478E+02 A 1.163699E+04 LX 0.21 0.0 0.98 -3.536006E+03 9.545957E+03 Y 1.151099E+04 YZ 0.0 B -9.866945E+03 LY -0.98 0.0 0.21 Z -9.866944E+03 ZX 0.0 C 8.837972E+03 LZ 0.0 1.00 0.0 0 18 75 X -1.226881E+04 XY -6.067138E+02 A -9.474447E+03 LX 0.21 0.0 0.98 1.766012E+04 9.581979E+03 Y -9.606183E+03 YZ 0.0 B -3.110536E+04 LY -0.98 0.0 0.21 Z -3.110537E+04 ZX 0.0 C -1.240054E+04 LZ 0.0 1.00 0.0 0 18 63 X -1.233284E+04 XY -4.399847E+02 A -9.474521E+03 LX 0.15 0.0 0.99 1.766019E+04 9.582016E+03 Y -9.542246E+03 YZ 0.0 B -3.110549E+04 LY -0.99 0.0 0.15 Z -3.110549E+04 ZX 0.0 C -1.240055E+04 LZ 0.0 1.00 0.0 0 18 64 X 8.902749E+03 XY -4.208141E+02 A 1.163696E+04 LX 0.15 0.0 0.99 -3.535998E+03 9.545951E+03 Y 1.157219E+04 YZ 0.0 B -9.866947E+03 LY -0.99 0.0 0.15 Z -9.866947E+03 ZX 0.0 C 8.837984E+03 LZ 0.0 1.00 0.0 0 18 82 X 8.963942E+03 XY -5.803636E+02 A 1.163693E+04 LX 0.21 0.0 0.98 -3.535963E+03 9.545951E+03 Y 1.151092E+04 YZ 0.0 B -9.866980E+03 LY -0.98 0.0 0.21 Z -9.866980E+03 ZX 0.0 C 8.837936E+03 LZ 0.0 1.00 0.0 0 18 81 X -1.226892E+04 XY -6.067174E+02 A -9.474498E+03 LX 0.21 0.0 0.98 1.766019E+04 9.581975E+03 Y -9.606219E+03 YZ 0.0 B -3.110542E+04 LY -0.98 0.0 0.21 Z -3.110542E+04 ZX 0.0 C -1.240064E+04 LZ 0.0 1.00 0.0 0 18 0 X -1.683714E+03 XY -5.119666E+02 A 1.078582E+03 LX 0.18 0.0 0.98 7.062069E+03 9.563684E+03 Y 9.836915E+02 YZ 0.0 B -2.048619E+04 LY -0.98 0.0 0.18 Z -2.048618E+04 ZX 0.0 C -1.778604E+03 LZ 0.0 1.00 0.0 0 19 58 X -1.106630E+04 XY -2.161192E+03 A 2.974849E+03 LX 0.15 0.0 0.99 8.986837E+03 8.946036E+03 Y 2.642202E+03 YZ 0.0 B -1.853642E+04 LY -0.99 0.0 0.15 Z -1.853642E+04 ZX 0.0 C -1.139895E+04 LZ 0.0 1.00 0.0 0 19 59 X 8.905987E+03 XY -2.071126E+03 A 2.236222E+04 LX 0.15 0.0 0.99 -1.079957E+04 8.679812E+03 Y 2.204344E+04 YZ 0.0 B 1.449274E+03 LY -0.99 0.0 0.15 Z 1.449273E+03 ZX 0.0 C 8.587210E+03 LZ 0.0 1.00 0.0 0 19 77 X 9.207343E+03 XY -2.856186E+03 A 2.236220E+04 LX 0.21 0.0 0.98 -1.079955E+04 8.679814E+03 Y 2.174206E+04 YZ 0.0 B 1.449240E+03 LY -0.98 0.0 0.21 Z 1.449242E+03 ZX 0.0 C 8.587208E+03 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 19 76 X -1.075202E+04 XY -2.980351E+03 A 2.974787E+03 LX 0.21 0.0 0.98 8.986923E+03 8.946034E+03 Y 2.327696E+03 YZ 0.0 B -1.853645E+04 LY -0.98 0.0 0.21 Z -1.853645E+04 ZX 0.0 C -1.139911E+04 LZ 0.0 1.00 0.0 0 19 64 X -1.106642E+04 XY -2.161162E+03 A 2.974770E+03 LX 0.15 0.0 0.99 8.986926E+03 8.946035E+03 Y 2.642133E+03 YZ 0.0 B -1.853648E+04 LY -0.99 0.0 0.15 Z -1.853649E+04 ZX 0.0 C -1.139906E+04 LZ 0.0 1.00 0.0 0 19 65 X 8.905895E+03 XY -2.071118E+03 A 2.236220E+04 LX 0.15 0.0 0.99 -1.079953E+04 8.679811E+03 Y 2.204343E+04 YZ 0.0 B 1.449275E+03 LY -0.99 0.0 0.15 Z 1.449277E+03 ZX 0.0 C 8.587124E+03 LZ 0.0 1.00 0.0 0 19 83 X 9.207486E+03 XY -2.856167E+03 A 2.236231E+04 LX 0.21 0.0 0.98 -1.079966E+04 8.679823E+03 Y 2.174218E+04 YZ 0.0 B 1.449320E+03 LY -0.98 0.0 0.21 Z 1.449322E+03 ZX 0.0 C 8.587361E+03 LZ 0.0 1.00 0.0 0 19 82 X -1.075195E+04 XY -2.980335E+03 A 2.974812E+03 LX 0.21 0.0 0.98 8.986898E+03 8.946047E+03 Y 2.327727E+03 YZ 0.0 B -1.853647E+04 LY -0.98 0.0 0.21 Z -1.853647E+04 ZX 0.0 C -1.139904E+04 LZ 0.0 1.00 0.0 0 19 0 X -9.262480E+02 XY -2.517205E+03 A 1.265539E+04 LX 0.18 0.0 0.98 -9.063405E+02 8.805819E+03 Y 1.218886E+04 YZ 0.0 B -8.543588E+03 LY -0.98 0.0 0.18 Z -8.543590E+03 ZX 0.0 C -1.392783E+03 LZ 0.0 1.00 0.0 0 20 59 X -9.471438E+03 XY -3.672870E+03 A 1.439120E+04 LX 0.15 0.99 0.0 7.248748E+02 1.078418E+04 Y 1.382588E+04 YZ 0.0 B -1.003676E+04 LY -0.99 0.15 0.0 Z -6.529066E+03 ZX 0.0 C -6.529067E+03 LZ 0.0 0.0 1.00 0 20 60 X 9.362906E+03 XY -3.525957E+03 A 3.227148E+04 LX 0.15 0.99 0.0 -1.780638E+04 1.032810E+04 Y 3.172879E+04 YZ 0.0 B 8.820214E+03 LY -0.99 0.15 0.0 Z 1.232746E+04 ZX 0.0 C 1.232746E+04 LZ 0.0 0.0 1.00 0 20 78 X 9.876243E+03 XY -4.862483E+03 A 3.227150E+04 LX 0.21 0.98 0.0 -1.780650E+04 1.032802E+04 Y 3.121575E+04 YZ 0.0 B 8.820496E+03 LY -0.98 0.21 0.0 Z 1.232750E+04 ZX 0.0 C 1.232750E+04 LZ 0.0 0.0 1.00 0 20 77 X -8.937543E+03 XY -5.065085E+03 A 1.439106E+04 LX 0.21 0.98 0.0 7.251333E+02 1.078429E+04 Y 1.329134E+04 YZ 0.0 B -1.003727E+04 LY -0.98 0.21 0.0 Z -6.529196E+03 ZX 0.0 C -6.529196E+03 LZ 0.0 0.0 1.00 0 20 65 X -9.471935E+03 XY -3.672879E+03 A 1.439106E+04 LX 0.15 0.99 0.0 7.251140E+02 1.078427E+04 Y 1.382575E+04 YZ 0.0 B -1.003725E+04 LY -0.99 0.15 0.0 Z -6.529155E+03 ZX 0.0 C -6.529154E+03 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 20 66 X 9.363246E+03 XY -3.525954E+03 A 3.227153E+04 LX 0.15 0.99 0.0 -1.780653E+04 1.032802E+04 Y 3.172882E+04 YZ 0.0 B 8.820545E+03 LY -0.99 0.15 0.0 Z 1.232751E+04 ZX 0.0 C 1.232751E+04 LZ 0.0 0.0 1.00 0 20 84 X 9.876041E+03 XY -4.862484E+03 A 3.227151E+04 LX 0.21 0.98 0.0 -1.780640E+04 1.032810E+04 Y 3.121577E+04 YZ 0.0 B 8.820292E+03 LY -0.98 0.21 0.0 Z 1.232738E+04 ZX 0.0 C 1.232739E+04 LZ 0.0 0.0 1.00 0 20 83 X -8.937338E+03 XY -5.065090E+03 A 1.439116E+04 LX 0.21 0.98 0.0 7.249865E+02 1.078425E+04 Y 1.329143E+04 YZ 0.0 B -1.003707E+04 LY -0.98 0.21 0.0 Z -6.529046E+03 ZX 0.0 C -6.529047E+03 LZ 0.0 0.0 1.00 0 20 0 X 2.075228E+02 XY -4.281601E+03 A 2.330899E+04 LX 0.18 0.98 0.0 -8.540714E+03 1.053923E+04 Y 2.251544E+04 YZ 0.0 B -5.860214E+02 LY -0.98 0.18 0.0 Z 2.899173E+03 ZX 0.0 C 2.899171E+03 LZ 0.0 0.0 1.00 0 21 7 X -1.411064E+04 XY -5.242738E+03 A -1.297235E+04 LX 0.98 0.0 0.21 3.647954E+04 1.851044E+04 Y -3.711920E+04 YZ 0.0 B -5.820880E+04 LY -0.21 0.0 0.98 Z -5.820880E+04 ZX 0.0 C -3.825748E+04 LZ 0.0 1.00 0.0 0 21 8 X 1.025496E+04 XY -4.993113E+03 A 1.133907E+04 LX 0.98 0.0 0.21 1.176639E+04 1.848011E+04 Y -1.165793E+04 YZ 0.0 B -3.389621E+04 LY -0.21 0.0 0.98 Z -3.389621E+04 ZX 0.0 C -1.274203E+04 LZ 0.0 1.00 0.0 0 21 26 X 1.078215E+04 XY -3.620709E+03 A 1.133943E+04 LX 0.99 0.0 0.15 1.176612E+04 1.848017E+04 Y -1.218451E+04 YZ 0.0 B -3.389600E+04 LY -0.15 0.0 0.99 Z -3.389600E+04 ZX 0.0 C -1.274179E+04 LZ 0.0 1.00 0.0 0 21 25 X -1.355755E+04 XY -3.801744E+03 A -1.297240E+04 LX 0.99 0.0 0.15 3.647955E+04 1.851042E+04 Y -3.767229E+04 YZ 0.0 B -5.820880E+04 LY -0.15 0.0 0.99 Z -5.820880E+04 ZX 0.0 C -3.825743E+04 LZ 0.0 1.00 0.0 0 21 13 X -1.411068E+04 XY -5.242768E+03 A -1.297237E+04 LX 0.98 0.0 0.21 3.647954E+04 1.851045E+04 Y -3.711913E+04 YZ 0.0 B -5.820884E+04 LY -0.21 0.0 0.98 Z -5.820882E+04 ZX 0.0 C -3.825742E+04 LZ 0.0 1.00 0.0 0 21 14 X 1.025501E+04 XY -4.993103E+03 A 1.133912E+04 LX 0.98 0.0 0.21 1.176631E+04 1.848009E+04 Y -1.165784E+04 YZ 0.0 B -3.389612E+04 LY -0.21 0.0 0.98 Z -3.389612E+04 ZX 0.0 C -1.274194E+04 LZ 0.0 1.00 0.0 0 21 32 X 1.078194E+04 XY -3.620697E+03 A 1.133923E+04 LX 0.99 0.0 0.15 1.176623E+04 1.848012E+04 Y -1.218454E+04 YZ 0.0 B -3.389610E+04 LY -0.15 0.0 0.99 Z -3.389610E+04 ZX 0.0 C -1.274182E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 21 31 X -1.355746E+04 XY -3.801750E+03 A -1.297231E+04 LX 0.99 0.0 0.15 3.647952E+04 1.851047E+04 Y -3.767232E+04 YZ 0.0 B -5.820882E+04 LY -0.15 0.0 0.99 Z -5.820879E+04 ZX 0.0 C -3.825744E+04 LZ 0.0 1.00 0.0 0 21 0 X -1.657784E+03 XY -4.414578E+03 A -8.395894E+02 LX 0.98 0.0 0.18 2.412290E+04 1.848288E+04 Y -2.465847E+04 YZ 0.0 B -4.605246E+04 LY -0.18 0.0 0.98 Z -4.605246E+04 ZX 0.0 C -2.547666E+04 LZ 0.0 1.00 0.0 0 22 8 X -1.342556E+04 XY -2.111012E+03 A -1.296722E+04 LX 0.98 0.0 0.21 2.680847E+04 1.305465E+04 Y -2.269010E+04 YZ 0.0 B -4.430976E+04 LY -0.21 0.0 0.98 Z -4.430975E+04 ZX 0.0 C -2.314843E+04 LZ 0.0 1.00 0.0 0 22 9 X 9.270895E+03 XY -2.015075E+03 A 9.708409E+03 LX 0.98 0.0 0.21 3.978414E+03 1.309942E+04 Y 4.275110E+02 YZ 0.0 B -2.163365E+04 LY -0.21 0.0 0.98 Z -2.163365E+04 ZX 0.0 C -1.000110E+01 LZ 0.0 1.00 0.0 0 22 27 X 9.483444E+03 XY -1.461203E+03 A 9.708348E+03 LX 0.99 0.0 0.15 3.978467E+03 1.309943E+04 Y 2.148641E+02 YZ 0.0 B -2.163371E+04 LY -0.15 0.0 0.99 Z -2.163371E+04 ZX 0.0 C -1.003594E+01 LZ 0.0 1.00 0.0 0 22 26 X -1.320301E+04 XY -1.530790E+03 A -1.296740E+04 LX 0.99 0.0 0.15 2.680855E+04 1.305460E+04 Y -2.291283E+04 YZ 0.0 B -4.430981E+04 LY -0.15 0.0 0.99 Z -4.430981E+04 ZX 0.0 C -2.314844E+04 LZ 0.0 1.00 0.0 0 22 14 X -1.342576E+04 XY -2.111031E+03 A -1.296741E+04 LX 0.98 0.0 0.21 2.680854E+04 1.305458E+04 Y -2.269010E+04 YZ 0.0 B -4.430976E+04 LY -0.21 0.0 0.98 Z -4.430977E+04 ZX 0.0 C -2.314846E+04 LZ 0.0 1.00 0.0 0 22 15 X 9.270871E+03 XY -2.015060E+03 A 9.708382E+03 LX 0.98 0.0 0.21 3.978433E+03 1.309942E+04 Y 4.274928E+02 YZ 0.0 B -2.163367E+04 LY -0.21 0.0 0.98 Z -2.163367E+04 ZX 0.0 C -1.001271E+01 LZ 0.0 1.00 0.0 0 22 33 X 9.483357E+03 XY -1.461227E+03 A 9.708269E+03 LX 0.99 0.0 0.15 3.978514E+03 1.309941E+04 Y 2.148393E+02 YZ 0.0 B -2.163374E+04 LY -0.15 0.0 0.99 Z -2.163374E+04 ZX 0.0 C -1.007045E+01 LZ 0.0 1.00 0.0 0 22 32 X -1.320294E+04 XY -1.530776E+03 A -1.296732E+04 LX 0.99 0.0 0.15 2.680849E+04 1.305460E+04 Y -2.291280E+04 YZ 0.0 B -4.430973E+04 LY -0.15 0.0 0.99 Z -4.430972E+04 ZX 0.0 C -2.314842E+04 LZ 0.0 1.00 0.0 0 22 0 X -1.968589E+03 XY -1.779522E+03 A -1.638771E+03 LX 0.98 0.0 0.18 1.539349E+04 1.307423E+04 Y -1.124014E+04 YZ 0.0 B -3.297173E+04 LY -0.18 0.0 0.98 Z -3.297173E+04 ZX 0.0 C -1.156996E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 23 9 X -1.226870E+04 XY 6.067010E+02 A -9.474375E+03 LX 0.21 0.0 0.98 1.766005E+04 9.582010E+03 Y -9.606109E+03 YZ 0.0 B -3.110534E+04 LY 0.98 0.0 -0.21 Z -3.110535E+04 ZX 0.0 C -1.240044E+04 LZ 0.0 1.00 0.0 0 23 10 X 8.964049E+03 XY 5.803546E+02 A 1.163696E+04 LX 0.21 0.0 0.98 -3.536032E+03 9.545937E+03 Y 1.151095E+04 YZ 0.0 B -9.866896E+03 LY 0.98 0.0 -0.21 Z -9.866896E+03 ZX 0.0 C 8.838035E+03 LZ 0.0 1.00 0.0 0 23 28 X 8.902847E+03 XY 4.207919E+02 A 1.163698E+04 LX 0.15 0.0 0.99 -3.536040E+03 9.545973E+03 Y 1.157222E+04 YZ 0.0 B -9.866941E+03 LY 0.99 0.0 -0.15 Z -9.866941E+03 ZX 0.0 C 8.838086E+03 LZ 0.0 1.00 0.0 0 23 27 X -1.233283E+04 XY 4.399509E+02 A -9.474454E+03 LX 0.15 0.0 0.99 1.766015E+04 9.582024E+03 Y -9.542174E+03 YZ 0.0 B -3.110546E+04 LY 0.99 0.0 -0.15 Z -3.110546E+04 ZX 0.0 C -1.240054E+04 LZ 0.0 1.00 0.0 0 23 15 X -1.226880E+04 XY 6.067067E+02 A -9.474370E+03 LX 0.21 0.0 0.98 1.766010E+04 9.582034E+03 Y -9.606088E+03 YZ 0.0 B -3.110542E+04 LY 0.98 0.0 -0.21 Z -3.110542E+04 ZX 0.0 C -1.240051E+04 LZ 0.0 1.00 0.0 0 23 16 X 8.964235E+03 XY 5.803387E+02 A 1.163690E+04 LX 0.21 0.0 0.98 -3.536061E+03 9.545979E+03 Y 1.151089E+04 YZ 0.0 B -9.866944E+03 LY 0.98 0.0 -0.21 Z -9.866944E+03 ZX 0.0 C 8.838227E+03 LZ 0.0 1.00 0.0 0 23 34 X 8.902752E+03 XY 4.208012E+02 A 1.163694E+04 LX 0.15 0.0 0.99 -3.536009E+03 9.545930E+03 Y 1.157218E+04 YZ 0.0 B -9.866907E+03 LY 0.99 0.0 -0.15 Z -9.866907E+03 ZX 0.0 C 8.837993E+03 LZ 0.0 1.00 0.0 0 23 33 X -1.233271E+04 XY 4.399398E+02 A -9.474477E+03 LX 0.15 0.0 0.99 1.766010E+04 9.582016E+03 Y -9.542188E+03 YZ 0.0 B -3.110541E+04 LY 0.99 0.0 -0.15 Z -3.110541E+04 ZX 0.0 C -1.240042E+04 LZ 0.0 1.00 0.0 0 23 0 X -1.683645E+03 XY 5.119481E+02 A 1.078592E+03 LX 0.18 0.0 0.98 7.062033E+03 9.563691E+03 Y 9.837091E+02 YZ 0.0 B -2.048617E+04 LY 0.98 0.0 -0.18 Z -2.048617E+04 ZX 0.0 C -1.778524E+03 LZ 0.0 1.00 0.0 0 24 10 X -1.075197E+04 XY 2.980322E+03 A 2.974776E+03 LX 0.21 0.0 0.98 8.986930E+03 8.946049E+03 Y 2.327695E+03 YZ 0.0 B -1.853652E+04 LY 0.98 0.0 -0.21 Z -1.853652E+04 ZX 0.0 C -1.139905E+04 LZ 0.0 1.00 0.0 0 24 11 X 9.207339E+03 XY 2.856190E+03 A 2.236213E+04 LX 0.21 0.0 0.98 -1.079953E+04 8.679777E+03 Y 2.174199E+04 YZ 0.0 B 1.449265E+03 LY 0.98 0.0 -0.21 Z 1.449265E+03 ZX 0.0 C 8.587201E+03 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 24 29 X 8.906044E+03 XY 2.071079E+03 A 2.236209E+04 LX 0.15 0.0 0.99 -1.079955E+04 8.679747E+03 Y 2.204332E+04 YZ 0.0 B 1.449280E+03 LY 0.99 0.0 -0.15 Z 1.449280E+03 ZX 0.0 C 8.587277E+03 LZ 0.0 1.00 0.0 0 24 28 X -1.106642E+04 XY 2.161177E+03 A 2.974838E+03 LX 0.15 0.0 0.99 8.986859E+03 8.946020E+03 Y 2.642197E+03 YZ 0.0 B -1.853636E+04 LY 0.99 0.0 -0.15 Z -1.853636E+04 ZX 0.0 C -1.139906E+04 LZ 0.0 1.00 0.0 0 24 16 X -1.075200E+04 XY 2.980366E+03 A 2.974725E+03 LX 0.21 0.0 0.98 8.986966E+03 8.946032E+03 Y 2.327623E+03 YZ 0.0 B -1.853652E+04 LY 0.98 0.0 -0.21 Z -1.853652E+04 ZX 0.0 C -1.139910E+04 LZ 0.0 1.00 0.0 0 24 17 X 9.207314E+03 XY 2.856173E+03 A 2.236218E+04 LX 0.21 0.0 0.98 -1.079956E+04 8.679783E+03 Y 2.174205E+04 YZ 0.0 B 1.449309E+03 LY 0.98 0.0 -0.21 Z 1.449309E+03 ZX 0.0 C 8.587185E+03 LZ 0.0 1.00 0.0 0 24 35 X 8.905957E+03 XY 2.071096E+03 A 2.236212E+04 LX 0.15 0.0 0.99 -1.079950E+04 8.679798E+03 Y 2.204335E+04 YZ 0.0 B 1.449201E+03 LY 0.99 0.0 -0.15 Z 1.449202E+03 ZX 0.0 C 8.587184E+03 LZ 0.0 1.00 0.0 0 24 34 X -1.106624E+04 XY 2.161113E+03 A 2.974842E+03 LX 0.15 0.0 0.99 8.986810E+03 8.946021E+03 Y 2.642217E+03 YZ 0.0 B -1.853640E+04 LY 0.99 0.0 -0.15 Z -1.853641E+04 ZX 0.0 C -1.139887E+04 LZ 0.0 1.00 0.0 0 24 0 X -9.262469E+02 XY 2.517190E+03 A 1.265534E+04 LX 0.18 0.0 0.98 -9.063216E+02 8.805797E+03 Y 1.218881E+04 YZ 0.0 B -8.543595E+03 LY 0.98 0.0 -0.18 Z -8.543594E+03 ZX 0.0 C -1.392778E+03 LZ 0.0 1.00 0.0 0 25 11 X -8.937519E+03 XY 5.065115E+03 A 1.439100E+04 LX 0.21 0.98 0.0 7.251403E+02 1.078425E+04 Y 1.329126E+04 YZ 0.0 B -1.003727E+04 LY 0.98-0.21 0.0 Z -6.529159E+03 ZX 0.0 C -6.529156E+03 LZ 0.0 0.0 1.00 0 25 12 X 9.876238E+03 XY 4.862513E+03 A 3.227139E+04 LX 0.21 0.98 0.0 -1.780641E+04 1.032799E+04 Y 3.121562E+04 YZ 0.0 B 8.820473E+03 LY 0.98-0.21 0.0 Z 1.232739E+04 ZX 0.0 C 1.232738E+04 LZ 0.0 0.0 1.00 0 25 30 X 9.362969E+03 XY 3.525958E+03 A 3.227144E+04 LX 0.15 0.99 0.0 -1.780638E+04 1.032807E+04 Y 3.172874E+04 YZ 0.0 B 8.820266E+03 LY 0.99-0.15 0.0 Z 1.232742E+04 ZX 0.0 C 1.232742E+04 LZ 0.0 0.0 1.00 0 25 29 X -9.471760E+03 XY 3.672830E+03 A 1.439105E+04 LX 0.15 0.99 0.0 7.250488E+02 1.078421E+04 Y 1.382575E+04 YZ 0.0 B -1.003706E+04 LY 0.99-0.15 0.0 Z -6.529137E+03 ZX 0.0 C -6.529137E+03 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 25 17 X -8.937280E+03 XY 5.065061E+03 A 1.439105E+04 LX 0.21 0.98 0.0 7.250340E+02 1.078420E+04 Y 1.329132E+04 YZ 0.0 B -1.003701E+04 LY 0.98-0.21 0.0 Z -6.529145E+03 ZX 0.0 C -6.529142E+03 LZ 0.0 0.0 1.00 0 25 18 X 9.876032E+03 XY 4.862485E+03 A 3.227139E+04 LX 0.21 0.98 0.0 -1.780636E+04 1.032804E+04 Y 3.121564E+04 YZ 0.0 B 8.820296E+03 LY 0.98-0.21 0.0 Z 1.232741E+04 ZX 0.0 C 1.232740E+04 LZ 0.0 0.0 1.00 0 25 36 X 9.363142E+03 XY 3.525947E+03 A 3.227139E+04 LX 0.15 0.99 0.0 -1.780642E+04 1.032800E+04 Y 3.172870E+04 YZ 0.0 B 8.820446E+03 LY 0.99-0.15 0.0 Z 1.232744E+04 ZX 0.0 C 1.232743E+04 LZ 0.0 0.0 1.00 0 25 35 X -9.471812E+03 XY 3.672896E+03 A 1.439098E+04 LX 0.15 0.99 0.0 7.251074E+02 1.078420E+04 Y 1.382566E+04 YZ 0.0 B -1.003714E+04 LY 0.99-0.15 0.0 Z -6.529169E+03 ZX 0.0 C -6.529166E+03 LZ 0.0 0.0 1.00 0 25 0 X 2.075015E+02 XY 4.281601E+03 A 2.330889E+04 LX 0.18 0.98 0.0 -8.540656E+03 1.053920E+04 Y 2.251534E+04 YZ 0.0 B -5.860502E+02 LY 0.98-0.18 0.0 Z 2.899130E+03 ZX 0.0 C 2.899132E+03 LZ 0.0 0.0 1.00 0 26 25 X -1.318405E+04 XY -2.303928E+03 A -1.297236E+04 LX 1.00 0.0 0.09 3.647953E+04 1.851044E+04 Y -3.804575E+04 YZ 0.0 B -5.820880E+04 LY -0.09 0.0 1.00 Z -5.820880E+04 ZX 0.0 C -3.825743E+04 LZ 0.0 1.00 0.0 0 26 26 X 1.113774E+04 XY -2.194233E+03 A 1.133936E+04 LX 1.00 0.0 0.09 1.176622E+04 1.848018E+04 Y -1.254032E+04 YZ 0.0 B -3.389610E+04 LY -0.09 0.0 1.00 Z -3.389610E+04 ZX 0.0 C -1.274193E+04 LZ 0.0 1.00 0.0 0 26 44 X 1.131672E+04 XY -7.351105E+02 A 1.133918E+04 LX 1.00 0.0 0.03 1.176630E+04 1.848013E+04 Y -1.271948E+04 YZ 0.0 B -3.389615E+04 LY -0.03 0.0 1.00 Z -3.389615E+04 ZX 0.0 C -1.274194E+04 LZ 0.0 1.00 0.0 0 26 43 X -1.299606E+04 XY -7.718502E+02 A -1.297247E+04 LX 1.00 0.0 0.03 3.647964E+04 1.851042E+04 Y -3.823398E+04 YZ 0.0 B -5.820887E+04 LY -0.03 0.0 1.00 Z -5.820887E+04 ZX 0.0 C -3.825757E+04 LZ 0.0 1.00 0.0 0 26 31 X -1.318404E+04 XY -2.303927E+03 A -1.297234E+04 LX 1.00 0.0 0.09 3.647959E+04 1.851047E+04 Y -3.804588E+04 YZ 0.0 B -5.820885E+04 LY -0.09 0.0 1.00 Z -5.820885E+04 ZX 0.0 C -3.825758E+04 LZ 0.0 1.00 0.0 0 26 32 X 1.113752E+04 XY -2.194181E+03 A 1.133913E+04 LX 1.00 0.0 0.09 1.176627E+04 1.848006E+04 Y -1.254030E+04 YZ 0.0 B -3.389604E+04 LY -0.09 0.0 1.00 Z -3.389604E+04 ZX 0.0 C -1.274191E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 26 50 X 1.131681E+04 XY -7.351072E+02 A 1.133927E+04 LX 1.00 0.0 0.03 1.176627E+04 1.848016E+04 Y -1.271948E+04 YZ 0.0 B -3.389615E+04 LY -0.03 0.0 1.00 Z -3.389615E+04 ZX 0.0 C -1.274194E+04 LZ 0.0 1.00 0.0 0 26 49 X -1.299594E+04 XY -7.718775E+02 A -1.297236E+04 LX 1.00 0.0 0.03 3.647954E+04 1.851046E+04 Y -3.823390E+04 YZ 0.0 B -5.820883E+04 LY -0.03 0.0 1.00 Z -5.820880E+04 ZX 0.0 C -3.825745E+04 LZ 0.0 1.00 0.0 0 26 0 X -9.314135E+02 XY -1.501277E+03 A -8.395925E+02 LX 1.00 0.0 0.06 2.412292E+04 1.848289E+04 Y -2.538489E+04 YZ 0.0 B -4.605247E+04 LY -0.06 0.0 1.00 Z -4.605247E+04 ZX 0.0 C -2.547671E+04 LZ 0.0 1.00 0.0 0 27 26 X -1.305262E+04 XY -9.276849E+02 A -1.296739E+04 LX 1.00 0.0 0.09 2.680853E+04 1.305459E+04 Y -2.306320E+04 YZ 0.0 B -4.430978E+04 LY -0.09 0.0 1.00 Z -4.430977E+04 ZX 0.0 C -2.314843E+04 LZ 0.0 1.00 0.0 0 27 27 X 9.627086E+03 XY -8.854755E+02 A 9.708446E+03 LX 1.00 0.0 0.09 3.978409E+03 1.309945E+04 Y 7.135573E+01 YZ 0.0 B -2.163368E+04 LY -0.09 0.0 1.00 Z -2.163368E+04 ZX 0.0 C -9.998855E+00 LZ 0.0 1.00 0.0 0 27 45 X 9.699397E+03 XY -2.966740E+02 A 9.708464E+03 LX 1.00 0.0 0.03 3.978390E+03 1.309944E+04 Y -9.237575E-01 YZ 0.0 B -2.163364E+04 LY -0.03 0.0 1.00 Z -2.163364E+04 ZX 0.0 C -9.987878E+00 LZ 0.0 1.00 0.0 0 27 44 X -1.297678E+04 XY -3.107838E+02 A -1.296728E+04 LX 1.00 0.0 0.03 2.680850E+04 1.305461E+04 Y -2.313898E+04 YZ 0.0 B -4.430974E+04 LY -0.03 0.0 1.00 Z -4.430975E+04 ZX 0.0 C -2.314848E+04 LZ 0.0 1.00 0.0 0 27 32 X -1.305261E+04 XY -9.276702E+02 A -1.296736E+04 LX 1.00 0.0 0.09 2.680858E+04 1.305463E+04 Y -2.306328E+04 YZ 0.0 B -4.430986E+04 LY -0.09 0.0 1.00 Z -4.430986E+04 ZX 0.0 C -2.314852E+04 LZ 0.0 1.00 0.0 0 27 33 X 9.626829E+03 XY -8.855187E+02 A 9.708196E+03 LX 1.00 0.0 0.09 3.978549E+03 1.309937E+04 Y 7.124732E+01 YZ 0.0 B -2.163373E+04 LY -0.09 0.0 1.00 Z -2.163373E+04 ZX 0.0 C -1.011751E+01 LZ 0.0 1.00 0.0 0 27 51 X 9.699483E+03 XY -2.966432E+02 A 9.708547E+03 LX 1.00 0.0 0.03 3.978350E+03 1.309946E+04 Y -9.119792E-01 YZ 0.0 B -2.163362E+04 LY -0.03 0.0 1.00 Z -2.163362E+04 ZX 0.0 C -9.975940E+00 LZ 0.0 1.00 0.0 0 27 50 X -1.297665E+04 XY -3.108102E+02 A -1.296716E+04 LX 1.00 0.0 0.03 2.680840E+04 1.305463E+04 Y -2.313889E+04 YZ 0.0 B -4.430966E+04 LY -0.03 0.0 1.00 Z -4.430966E+04 ZX 0.0 C -2.314838E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 27 0 X -1.675734E+03 XY -6.051576E+02 A -1.638721E+03 LX 1.00 0.0 0.06 1.539347E+04 1.307424E+04 Y -1.153295E+04 YZ 0.0 B -3.297171E+04 LY -0.06 0.0 1.00 Z -3.297171E+04 ZX 0.0 C -1.156997E+04 LZ 0.0 1.00 0.0 0 28 27 X -1.237607E+04 XY 2.666460E+02 A -9.474355E+03 LX 0.09 0.0 1.00 1.766013E+04 9.582041E+03 Y -9.498869E+03 YZ 0.0 B -3.110546E+04 LY 1.00 0.0 -0.09 Z -3.110546E+04 ZX 0.0 C -1.240058E+04 LZ 0.0 1.00 0.0 0 28 28 X 8.861530E+03 XY 2.550224E+02 A 1.163689E+04 LX 0.09 0.0 1.00 -3.536033E+03 9.545928E+03 Y 1.161346E+04 YZ 0.0 B -9.866893E+03 LY 1.00 0.0 -0.09 Z -9.866891E+03 ZX 0.0 C 8.838099E+03 LZ 0.0 1.00 0.0 0 28 46 X 8.840712E+03 XY 8.545925E+01 A 1.163693E+04 LX 0.03 0.0 1.00 -3.536018E+03 9.545979E+03 Y 1.163432E+04 YZ 0.0 B -9.866977E+03 LY 1.00 0.0 -0.03 Z -9.866977E+03 ZX 0.0 C 8.838102E+03 LZ 0.0 1.00 0.0 0 28 45 X -1.239766E+04 XY 8.932443E+01 A -9.474393E+03 LX 0.03 0.0 1.00 1.766002E+04 9.581986E+03 Y -9.477108E+03 YZ 0.0 B -3.110528E+04 LY 1.00 0.0 -0.03 Z -3.110528E+04 ZX 0.0 C -1.240038E+04 LZ 0.0 1.00 0.0 0 28 33 X -1.237590E+04 XY 2.666162E+02 A -9.474428E+03 LX 0.09 0.0 1.00 1.766006E+04 9.582020E+03 Y -9.498919E+03 YZ 0.0 B -3.110538E+04 LY 1.00 0.0 -0.09 Z -3.110537E+04 ZX 0.0 C -1.240039E+04 LZ 0.0 1.00 0.0 0 28 34 X 8.861544E+03 XY 2.550440E+02 A 1.163693E+04 LX 0.09 0.0 1.00 -3.536049E+03 9.545944E+03 Y 1.161349E+04 YZ 0.0 B -9.866897E+03 LY 1.00 0.0 -0.09 Z -9.866898E+03 ZX 0.0 C 8.838111E+03 LZ 0.0 1.00 0.0 0 28 52 X 8.840561E+03 XY 8.543741E+01 A 1.163690E+04 LX 0.03 0.0 1.00 -3.535954E+03 9.545949E+03 Y 1.163429E+04 YZ 0.0 B -9.866990E+03 LY 1.00 0.0 -0.03 Z -9.866990E+03 ZX 0.0 C 8.837951E+03 LZ 0.0 1.00 0.0 0 28 51 X -1.239775E+04 XY 8.932360E+01 A -9.474382E+03 LX 0.03 0.0 1.00 1.766007E+04 9.582010E+03 Y -9.477110E+03 YZ 0.0 B -3.110536E+04 LY 1.00 0.0 -0.03 Z -3.110537E+04 ZX 0.0 C -1.240048E+04 LZ 0.0 1.00 0.0 0 28 0 X -1.767879E+03 XY 1.741092E+02 A 1.078594E+03 LX 0.06 0.0 1.00 7.062029E+03 9.563685E+03 Y 1.067944E+03 YZ 0.0 B -2.048615E+04 LY 1.00 0.0 -0.06 Z -2.048615E+04 ZX 0.0 C -1.778528E+03 LZ 0.0 1.00 0.0 0 29 28 X -1.127877E+04 XY 1.309699E+03 A 2.974751E+03 LX 0.09 0.0 1.00 8.986944E+03 8.946026E+03 Y 2.854408E+03 YZ 0.0 B -1.853647E+04 LY 1.00 0.0 -0.09 Z -1.853647E+04 ZX 0.0 C -1.139911E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 29 29 X 8.702659E+03 XY 1.255132E+03 A 2.236224E+04 LX 0.09 0.0 1.00 -1.079963E+04 8.679798E+03 Y 2.224691E+04 YZ 0.0 B 1.449311E+03 LY 1.00 0.0 -0.09 Z 1.449311E+03 ZX 0.0 C 8.587331E+03 LZ 0.0 1.00 0.0 0 29 47 X 8.600021E+03 XY 4.204825E+02 A 2.236212E+04 LX 0.03 0.0 1.00 -1.079950E+04 8.679792E+03 Y 2.234927E+04 YZ 0.0 B 1.449216E+03 LY 1.00 0.0 -0.03 Z 1.449218E+03 ZX 0.0 C 8.587175E+03 LZ 0.0 1.00 0.0 0 29 46 X -1.138566E+04 XY 4.387602E+02 A 2.974736E+03 LX 0.03 0.0 1.00 8.986949E+03 8.946033E+03 Y 2.961332E+03 YZ 0.0 B -1.853652E+04 LY 1.00 0.0 -0.03 Z -1.853652E+04 ZX 0.0 C -1.139906E+04 LZ 0.0 1.00 0.0 0 29 34 X -1.127853E+04 XY 1.309709E+03 A 2.974855E+03 LX 0.09 0.0 1.00 8.986805E+03 8.946026E+03 Y 2.854510E+03 YZ 0.0 B -1.853640E+04 LY 1.00 0.0 -0.09 Z -1.853640E+04 ZX 0.0 C -1.139887E+04 LZ 0.0 1.00 0.0 0 29 35 X 8.702593E+03 XY 1.255111E+03 A 2.236219E+04 LX 0.09 0.0 1.00 -1.079959E+04 8.679776E+03 Y 2.224686E+04 YZ 0.0 B 1.449320E+03 LY 1.00 0.0 -0.09 Z 1.449321E+03 ZX 0.0 C 8.587272E+03 LZ 0.0 1.00 0.0 0 29 53 X 8.600111E+03 XY 4.204669E+02 A 2.236219E+04 LX 0.03 0.0 1.00 -1.079958E+04 8.679795E+03 Y 2.234935E+04 YZ 0.0 B 1.449273E+03 LY 1.00 0.0 -0.03 Z 1.449274E+03 ZX 0.0 C 8.587265E+03 LZ 0.0 1.00 0.0 0 29 52 X -1.138589E+04 XY 4.387893E+02 A 2.974672E+03 LX 0.03 0.0 1.00 8.987063E+03 8.946041E+03 Y 2.961266E+03 YZ 0.0 B -1.853656E+04 LY 1.00 0.0 -0.03 Z -1.853656E+04 ZX 0.0 C -1.139930E+04 LZ 0.0 1.00 0.0 0 29 0 X -1.340434E+03 XY 8.560188E+02 A 1.265535E+04 LX 0.06 0.0 1.00 -9.063167E+02 8.805805E+03 Y 1.260299E+04 YZ 0.0 B -8.543604E+03 LY 1.00 0.0 -0.06 Z -8.543604E+03 ZX 0.0 C -1.392791E+03 LZ 0.0 1.00 0.0 0 30 29 X -9.832526E+03 XY 2.225826E+03 A 1.439103E+04 LX 0.09 1.00 0.0 7.250715E+02 1.078420E+04 Y 1.418650E+04 YZ 0.0 B -1.003705E+04 LY 1.00-0.09 0.0 Z -6.529192E+03 ZX 0.0 C -6.529191E+03 LZ 0.0 0.0 1.00 0 30 30 X 9.016568E+03 XY 2.136793E+03 A 3.227140E+04 LX 0.09 1.00 0.0 -1.780634E+04 1.032807E+04 Y 3.207506E+04 YZ 0.0 B 8.820224E+03 LY 1.00-0.09 0.0 Z 1.232739E+04 ZX 0.0 C 1.232739E+04 LZ 0.0 0.0 1.00 0 30 48 X 8.842154E+03 XY 7.158658E+02 A 3.227140E+04 LX 0.03 1.00 0.0 -1.780637E+04 1.032805E+04 Y 3.224954E+04 YZ 0.0 B 8.820288E+03 LY 1.00-0.03 0.0 Z 1.232741E+04 ZX 0.0 C 1.232741E+04 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 30 47 X -1.001434E+04 XY 7.456522E+02 A 1.439109E+04 LX 0.03 1.00 0.0 7.250554E+02 1.078424E+04 Y 1.436831E+04 YZ 0.0 B -1.003713E+04 LY 1.00-0.03 0.0 Z -6.529125E+03 ZX 0.0 C -6.529127E+03 LZ 0.0 0.0 1.00 0 30 35 X -9.832444E+03 XY 2.225817E+03 A 1.439115E+04 LX 0.09 1.00 0.0 7.249648E+02 1.078422E+04 Y 1.418663E+04 YZ 0.0 B -1.003697E+04 LY 1.00-0.09 0.0 Z -6.529076E+03 ZX 0.0 C -6.529077E+03 LZ 0.0 0.0 1.00 0 30 36 X 9.016701E+03 XY 2.136798E+03 A 3.227142E+04 LX 0.09 1.00 0.0 -1.780640E+04 1.032804E+04 Y 3.207507E+04 YZ 0.0 B 8.820372E+03 LY 1.00-0.09 0.0 Z 1.232742E+04 ZX 0.0 C 1.232740E+04 LZ 0.0 0.0 1.00 0 30 54 X 8.842233E+03 XY 7.158318E+02 A 3.227143E+04 LX 0.03 1.00 0.0 -1.780640E+04 1.032804E+04 Y 3.224955E+04 YZ 0.0 B 8.820366E+03 LY 1.00-0.03 0.0 Z 1.232740E+04 ZX 0.0 C 1.232740E+04 LZ 0.0 0.0 1.00 0 30 53 X -1.001444E+04 XY 7.457196E+02 A 1.439102E+04 LX 0.03 1.00 0.0 7.251165E+02 1.078424E+04 Y 1.436823E+04 YZ 0.0 B -1.003723E+04 LY 1.00-0.03 0.0 Z -6.529144E+03 ZX 0.0 C -6.529137E+03 LZ 0.0 0.0 1.00 0 30 0 X -4.970123E+02 XY 1.456038E+03 A 2.330892E+04 LX 0.06 1.00 0.0 -8.540661E+03 1.053922E+04 Y 2.321986E+04 YZ 0.0 B -5.860659E+02 LY 1.00-0.06 0.0 Z 2.899135E+03 ZX 0.0 C 2.899134E+03 LZ 0.0 0.0 1.00 0 31 43 X -1.299608E+04 XY 7.718275E+02 A -1.297250E+04 LX 1.00 0.0 0.03 3.647967E+04 1.851041E+04 Y -3.823407E+04 YZ 0.0 B -5.820886E+04 LY 0.03 0.0 -1.00 Z -5.820886E+04 ZX 0.0 C -3.825764E+04 LZ 0.0 1.00 0.0 0 31 44 X 1.131685E+04 XY 7.350535E+02 A 1.133931E+04 LX 1.00 0.0 0.03 1.176628E+04 1.848020E+04 Y -1.271949E+04 YZ 0.0 B -3.389620E+04 LY 0.03 0.0 -1.00 Z -3.389620E+04 ZX 0.0 C -1.274195E+04 LZ 0.0 1.00 0.0 0 31 62 X 1.113761E+04 XY 2.194211E+03 A 1.133923E+04 LX 1.00 0.0 0.09 1.176625E+04 1.848012E+04 Y -1.254030E+04 YZ 0.0 B -3.389607E+04 LY 0.09 0.0 -1.00 Z -3.389607E+04 ZX 0.0 C -1.274192E+04 LZ 0.0 1.00 0.0 0 31 61 X -1.318394E+04 XY 2.303883E+03 A -1.297224E+04 LX 1.00 0.0 0.09 3.647950E+04 1.851048E+04 Y -3.804576E+04 YZ 0.0 B -5.820877E+04 LY 0.09 0.0 -1.00 Z -5.820879E+04 ZX 0.0 C -3.825747E+04 LZ 0.0 1.00 0.0 0 31 49 X -1.299605E+04 XY 7.717997E+02 A -1.297247E+04 LX 1.00 0.0 0.03 3.647964E+04 1.851044E+04 Y -3.823398E+04 YZ 0.0 B -5.820891E+04 LY 0.03 0.0 -1.00 Z -5.820890E+04 ZX 0.0 C -3.825754E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 31 50 X 1.131661E+04 XY 7.350699E+02 A 1.133907E+04 LX 1.00 0.0 0.03 1.176637E+04 1.848009E+04 Y -1.271957E+04 YZ 0.0 B -3.389616E+04 LY 0.03 0.0 -1.00 Z -3.389616E+04 ZX 0.0 C -1.274202E+04 LZ 0.0 1.00 0.0 0 31 68 X 1.113770E+04 XY 2.194158E+03 A 1.133930E+04 LX 1.00 0.0 0.09 1.176622E+04 1.848014E+04 Y -1.254030E+04 YZ 0.0 B -3.389607E+04 LY 0.09 0.0 -1.00 Z -3.389606E+04 ZX 0.0 C -1.274190E+04 LZ 0.0 1.00 0.0 0 31 67 X -1.318408E+04 XY 2.303876E+03 A -1.297239E+04 LX 1.00 0.0 0.09 3.647964E+04 1.851047E+04 Y -3.804593E+04 YZ 0.0 B -5.820889E+04 LY 0.09 0.0 -1.00 Z -5.820888E+04 ZX 0.0 C -3.825762E+04 LZ 0.0 1.00 0.0 0 31 0 X -9.314234E+02 XY 1.501235E+03 A -8.396038E+02 LX 1.00 0.0 0.06 2.412295E+04 1.848289E+04 Y -2.538493E+04 YZ 0.0 B -4.605249E+04 LY 0.06 0.0 -1.00 Z -4.605249E+04 ZX 0.0 C -2.547675E+04 LZ 0.0 1.00 0.0 0 32 44 X -1.297669E+04 XY 3.108042E+02 A -1.296719E+04 LX 1.00 0.0 0.03 2.680844E+04 1.305463E+04 Y -2.313893E+04 YZ 0.0 B -4.430970E+04 LY 0.03 0.0 -1.00 Z -4.430970E+04 ZX 0.0 C -2.314842E+04 LZ 0.0 1.00 0.0 0 32 45 X 9.699402E+03 XY 2.966404E+02 A 9.708467E+03 LX 1.00 0.0 0.03 3.978356E+03 1.309942E+04 Y -8.855397E-01 YZ 0.0 B -2.163359E+04 LY 0.03 0.0 -1.00 Z -2.163359E+04 ZX 0.0 C -9.944334E+00 LZ 0.0 1.00 0.0 0 32 63 X 9.627098E+03 XY 8.855173E+02 A 9.708464E+03 LX 1.00 0.0 0.09 3.978399E+03 1.309945E+04 Y 7.136333E+01 YZ 0.0 B -2.163366E+04 LY 0.09 0.0 -1.00 Z -2.163367E+04 ZX 0.0 C -9.997237E+00 LZ 0.0 1.00 0.0 0 32 62 X -1.305258E+04 XY 9.276847E+02 A -1.296733E+04 LX 1.00 0.0 0.09 2.680853E+04 1.305461E+04 Y -2.306323E+04 YZ 0.0 B -4.430978E+04 LY 0.09 0.0 -1.00 Z -4.430979E+04 ZX 0.0 C -2.314847E+04 LZ 0.0 1.00 0.0 0 32 50 X -1.297661E+04 XY 3.107767E+02 A -1.296711E+04 LX 1.00 0.0 0.03 2.680840E+04 1.305465E+04 Y -2.313892E+04 YZ 0.0 B -4.430968E+04 LY 0.03 0.0 -1.00 Z -4.430968E+04 ZX 0.0 C -2.314842E+04 LZ 0.0 1.00 0.0 0 32 51 X 9.699519E+03 XY 2.966135E+02 A 9.708580E+03 LX 1.00 0.0 0.03 3.978324E+03 1.309946E+04 Y -9.080046E-01 YZ 0.0 B -2.163358E+04 LY 0.03 0.0 -1.00 Z -2.163358E+04 ZX 0.0 C -9.969153E+00 LZ 0.0 1.00 0.0 0 32 69 X 9.626900E+03 XY 8.855168E+02 A 9.708269E+03 LX 1.00 0.0 0.09 3.978459E+03 1.309936E+04 Y 7.134488E+01 YZ 0.0 B -2.163362E+04 LY 0.09 0.0 -1.00 Z -2.163362E+04 ZX 0.0 C -1.002172E+01 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 32 68 X -1.305268E+04 XY 9.276516E+02 A -1.296745E+04 LX 1.00 0.0 0.09 2.680862E+04 1.305461E+04 Y -2.306332E+04 YZ 0.0 B -4.430988E+04 LY 0.09 0.0 -1.00 Z -4.430987E+04 ZX 0.0 C -2.314854E+04 LZ 0.0 1.00 0.0 0 32 0 X -1.675705E+03 XY 6.051507E+02 A -1.638693E+03 LX 1.00 0.0 0.06 1.539344E+04 1.307423E+04 Y -1.153294E+04 YZ 0.0 B -3.297168E+04 LY 0.06 0.0 -1.00 Z -3.297169E+04 ZX 0.0 C -1.156994E+04 LZ 0.0 1.00 0.0 0 33 45 X -1.239778E+04 XY -8.933356E+01 A -9.474401E+03 LX 0.03 0.0 1.00 1.766010E+04 9.582002E+03 Y -9.477130E+03 YZ 0.0 B -3.110537E+04 LY -1.00 0.0 0.03 Z -3.110538E+04 ZX 0.0 C -1.240051E+04 LZ 0.0 1.00 0.0 0 33 46 X 8.840686E+03 XY -8.543568E+01 A 1.163697E+04 LX 0.03 0.0 1.00 -3.536038E+03 9.545963E+03 Y 1.163436E+04 YZ 0.0 B -9.866931E+03 LY -1.00 0.0 0.03 Z -9.866932E+03 ZX 0.0 C 8.838078E+03 LZ 0.0 1.00 0.0 0 33 64 X 8.861313E+03 XY -2.550598E+02 A 1.163684E+04 LX 0.09 0.0 1.00 -3.535908E+03 9.545919E+03 Y 1.161340E+04 YZ 0.0 B -9.866992E+03 LY -1.00 0.0 0.09 Z -9.866992E+03 ZX 0.0 C 8.837874E+03 LZ 0.0 1.00 0.0 0 33 63 X -1.237609E+04 XY -2.666019E+02 A -9.474415E+03 LX 0.09 0.0 1.00 1.766015E+04 9.582013E+03 Y -9.498926E+03 YZ 0.0 B -3.110544E+04 LY -1.00 0.0 0.09 Z -3.110545E+04 ZX 0.0 C -1.240060E+04 LZ 0.0 1.00 0.0 0 33 51 X -1.239767E+04 XY -8.932046E+01 A -9.474399E+03 LX 0.03 0.0 1.00 1.766005E+04 9.582019E+03 Y -9.477130E+03 YZ 0.0 B -3.110536E+04 LY -1.00 0.0 0.03 Z -3.110537E+04 ZX 0.0 C -1.240040E+04 LZ 0.0 1.00 0.0 0 33 52 X 8.840607E+03 XY -8.543722E+01 A 1.163692E+04 LX 0.03 0.0 1.00 -3.535999E+03 9.545925E+03 Y 1.163430E+04 YZ 0.0 B -9.866912E+03 LY -1.00 0.0 0.03 Z -9.866912E+03 ZX 0.0 C 8.837994E+03 LZ 0.0 1.00 0.0 0 33 70 X 8.861652E+03 XY -2.550246E+02 A 1.163708E+04 LX 0.09 0.0 1.00 -3.536132E+03 9.546005E+03 Y 1.161364E+04 YZ 0.0 B -9.866899E+03 LY -1.00 0.0 0.09 Z -9.866897E+03 ZX 0.0 C 8.838219E+03 LZ 0.0 1.00 0.0 0 33 69 X -1.237605E+04 XY -2.666200E+02 A -9.474489E+03 LX 0.09 0.0 1.00 1.766015E+04 9.582002E+03 Y -9.498979E+03 YZ 0.0 B -3.110543E+04 LY -1.00 0.0 0.09 Z -3.110543E+04 ZX 0.0 C -1.240053E+04 LZ 0.0 1.00 0.0 0 33 0 X -1.767917E+03 XY -1.741042E+02 A 1.078591E+03 LX 0.06 0.0 1.00 7.062047E+03 9.563686E+03 Y 1.067942E+03 YZ 0.0 B -2.048617E+04 LY -1.00 0.0 0.06 Z -2.048617E+04 ZX 0.0 C -1.778565E+03 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 34 46 X -1.138567E+04 XY -4.387814E+02 A 2.974732E+03 LX 0.03 0.0 1.00 8.986947E+03 8.946026E+03 Y 2.961324E+03 YZ 0.0 B -1.853650E+04 LY -1.00 0.0 0.03 Z -1.853650E+04 ZX 0.0 C -1.139907E+04 LZ 0.0 1.00 0.0 0 34 47 X 8.599990E+03 XY -4.204799E+02 A 2.236219E+04 LX 0.03 0.0 1.00 -1.079953E+04 8.679807E+03 Y 2.234934E+04 YZ 0.0 B 1.449263E+03 LY -1.00 0.0 0.03 Z 1.449263E+03 ZX 0.0 C 8.587146E+03 LZ 0.0 1.00 0.0 0 34 65 X 8.702630E+03 XY -1.255120E+03 A 2.236222E+04 LX 0.09 0.0 1.00 -1.079960E+04 8.679807E+03 Y 2.224689E+04 YZ 0.0 B 1.449275E+03 LY -1.00 0.0 0.09 Z 1.449276E+03 ZX 0.0 C 8.587302E+03 LZ 0.0 1.00 0.0 0 34 64 X -1.127882E+04 XY -1.309704E+03 A 2.974721E+03 LX 0.09 0.0 1.00 8.986989E+03 8.946039E+03 Y 2.854376E+03 YZ 0.0 B -1.853653E+04 LY -1.00 0.0 0.09 Z -1.853653E+04 ZX 0.0 C -1.139916E+04 LZ 0.0 1.00 0.0 0 34 52 X -1.138575E+04 XY -4.387725E+02 A 2.974698E+03 LX 0.03 0.0 1.00 8.986992E+03 8.946023E+03 Y 2.961291E+03 YZ 0.0 B -1.853652E+04 LY -1.00 0.0 0.03 Z -1.853652E+04 ZX 0.0 C -1.139916E+04 LZ 0.0 1.00 0.0 0 34 53 X 8.600051E+03 XY -4.204982E+02 A 2.236218E+04 LX 0.03 0.0 1.00 -1.079954E+04 8.679810E+03 Y 2.234933E+04 YZ 0.0 B 1.449240E+03 LY -1.00 0.0 0.03 Z 1.449240E+03 ZX 0.0 C 8.587203E+03 LZ 0.0 1.00 0.0 0 34 71 X 8.702371E+03 XY -1.255132E+03 A 2.236216E+04 LX 0.09 0.0 1.00 -1.079950E+04 8.679792E+03 Y 2.224683E+04 YZ 0.0 B 1.449295E+03 LY -1.00 0.0 0.09 Z 1.449295E+03 ZX 0.0 C 8.587043E+03 LZ 0.0 1.00 0.0 0 34 70 X -1.127867E+04 XY -1.309708E+03 A 2.974847E+03 LX 0.09 0.0 1.00 8.986876E+03 8.946059E+03 Y 2.854502E+03 YZ 0.0 B -1.853647E+04 LY -1.00 0.0 0.09 Z -1.853646E+04 ZX 0.0 C -1.139901E+04 LZ 0.0 1.00 0.0 0 34 0 X -1.340482E+03 XY -8.560247E+02 A 1.265534E+04 LX 0.06 0.0 1.00 -9.062960E+02 8.805813E+03 Y 1.260299E+04 YZ 0.0 B -8.543619E+03 LY -1.00 0.0 0.06 Z -8.543618E+03 ZX 0.0 C -1.392838E+03 LZ 0.0 1.00 0.0 0 35 47 X -1.001439E+04 XY -7.456578E+02 A 1.439109E+04 LX 0.03 1.00 0.0 7.250627E+02 1.078425E+04 Y 1.436831E+04 YZ 0.0 B -1.003717E+04 LY -1.00 0.03 0.0 Z -6.529109E+03 ZX 0.0 C -6.529107E+03 LZ 0.0 0.0 1.00 0 35 48 X 8.842219E+03 XY -7.158475E+02 A 3.227147E+04 LX 0.03 1.00 0.0 -1.780642E+04 1.032806E+04 Y 3.224960E+04 YZ 0.0 B 8.820354E+03 LY -1.00 0.03 0.0 Z 1.232743E+04 ZX 0.0 C 1.232743E+04 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 35 66 X 9.016589E+03 XY -2.136768E+03 A 3.227143E+04 LX 0.09 1.00 0.0 -1.780637E+04 1.032807E+04 Y 3.207509E+04 YZ 0.0 B 8.820246E+03 LY -1.00 0.09 0.0 Z 1.232744E+04 ZX 0.0 C 1.232745E+04 LZ 0.0 0.0 1.00 0 35 65 X -9.832405E+03 XY -2.225817E+03 A 1.439108E+04 LX 0.09 1.00 0.0 7.250139E+02 1.078420E+04 Y 1.418656E+04 YZ 0.0 B -1.003693E+04 LY -1.00 0.09 0.0 Z -6.529194E+03 ZX 0.0 C -6.529196E+03 LZ 0.0 0.0 1.00 0 35 53 X -1.001441E+04 XY -7.456854E+02 A 1.439106E+04 LX 0.03 1.00 0.0 7.250882E+02 1.078425E+04 Y 1.436827E+04 YZ 0.0 B -1.003720E+04 LY -1.00 0.03 0.0 Z -6.529131E+03 ZX 0.0 C -6.529126E+03 LZ 0.0 0.0 1.00 0 35 54 X 8.842166E+03 XY -7.158408E+02 A 3.227146E+04 LX 0.03 1.00 0.0 -1.780640E+04 1.032807E+04 Y 3.224959E+04 YZ 0.0 B 8.820293E+03 LY -1.00 0.03 0.0 Z 1.232743E+04 ZX 0.0 C 1.232743E+04 LZ 0.0 0.0 1.00 0 35 72 X 9.016802E+03 XY -2.136771E+03 A 3.227148E+04 LX 0.09 1.00 0.0 -1.780646E+04 1.032803E+04 Y 3.207515E+04 YZ 0.0 B 8.820456E+03 LY -1.00 0.09 0.0 Z 1.232743E+04 ZX 0.0 C 1.232744E+04 LZ 0.0 0.0 1.00 0 35 71 X -9.832506E+03 XY -2.225798E+03 A 1.439115E+04 LX 0.09 1.00 0.0 7.249782E+02 1.078423E+04 Y 1.418663E+04 YZ 0.0 B -1.003703E+04 LY -1.00 0.09 0.0 Z -6.529057E+03 ZX 0.0 C -6.529058E+03 LZ 0.0 0.0 1.00 0 35 0 X -4.969917E+02 XY -1.456023E+03 A 2.330896E+04 LX 0.06 1.00 0.0 -8.540689E+03 1.053923E+04 Y 2.321990E+04 YZ 0.0 B -5.860455E+02 LY -1.00 0.06 0.0 Z 2.899156E+03 ZX 0.0 C 2.899157E+03 LZ 0.0 0.0 1.00 0 36 61 X -1.355748E+04 XY 3.801697E+03 A -1.297234E+04 LX 0.99 0.0 0.15 3.647958E+04 1.851045E+04 Y -3.767250E+04 YZ 0.0 B -5.820877E+04 LY 0.15 0.0 -0.99 Z -5.820877E+04 ZX 0.0 C -3.825763E+04 LZ 0.0 1.00 0.0 0 36 62 X 1.078197E+04 XY 3.620659E+03 A 1.133924E+04 LX 0.99 0.0 0.15 1.176622E+04 1.848012E+04 Y -1.218457E+04 YZ 0.0 B -3.389607E+04 LY 0.15 0.0 -0.99 Z -3.389607E+04 ZX 0.0 C -1.274184E+04 LZ 0.0 1.00 0.0 0 36 80 X 1.025503E+04 XY 4.993125E+03 A 1.133914E+04 LX 0.98 0.0 0.21 1.176639E+04 1.848015E+04 Y -1.165798E+04 YZ 0.0 B -3.389624E+04 LY 0.21 0.0 -0.98 Z -3.389624E+04 ZX 0.0 C -1.274209E+04 LZ 0.0 1.00 0.0 0 36 79 X -1.411090E+04 XY 5.242797E+03 A -1.297259E+04 LX 0.98 0.0 0.21 3.647973E+04 1.851041E+04 Y -3.711933E+04 YZ 0.0 B -5.820896E+04 LY 0.21 0.0 -0.98 Z -5.820896E+04 ZX 0.0 C -3.825764E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 36 67 X -1.355755E+04 XY 3.801713E+03 A -1.297240E+04 LX 0.99 0.0 0.15 3.647961E+04 1.851045E+04 Y -3.767240E+04 YZ 0.0 B -5.820886E+04 LY 0.15 0.0 -0.99 Z -5.820886E+04 ZX 0.0 C -3.825755E+04 LZ 0.0 1.00 0.0 0 36 68 X 1.078215E+04 XY 3.620667E+03 A 1.133942E+04 LX 0.99 0.0 0.15 1.176621E+04 1.848019E+04 Y -1.218474E+04 YZ 0.0 B -3.389605E+04 LY 0.15 0.0 -0.99 Z -3.389605E+04 ZX 0.0 C -1.274200E+04 LZ 0.0 1.00 0.0 0 36 86 X 1.025498E+04 XY 4.993118E+03 A 1.133909E+04 LX 0.98 0.0 0.21 1.176635E+04 1.848010E+04 Y -1.165783E+04 YZ 0.0 B -3.389618E+04 LY 0.21 0.0 -0.98 Z -3.389618E+04 ZX 0.0 C -1.274195E+04 LZ 0.0 1.00 0.0 0 36 85 X -1.411091E+04 XY 5.242797E+03 A -1.297259E+04 LX 0.98 0.0 0.21 3.647975E+04 1.851040E+04 Y -3.711942E+04 YZ 0.0 B -5.820893E+04 LY 0.21 0.0 -0.98 Z -5.820892E+04 ZX 0.0 C -3.825773E+04 LZ 0.0 1.00 0.0 0 36 0 X -1.657839E+03 XY 4.414572E+03 A -8.396481E+02 LX 0.98 0.0 0.18 2.412298E+04 1.848288E+04 Y -2.465860E+04 YZ 0.0 B -4.605251E+04 LY 0.18 0.0 -0.98 Z -4.605251E+04 ZX 0.0 C -2.547678E+04 LZ 0.0 1.00 0.0 0 37 62 X -1.320287E+04 XY 1.530756E+03 A -1.296727E+04 LX 0.99 0.0 0.15 2.680844E+04 1.305461E+04 Y -2.291276E+04 YZ 0.0 B -4.430971E+04 LY 0.15 0.0 -0.99 Z -4.430970E+04 ZX 0.0 C -2.314835E+04 LZ 0.0 1.00 0.0 0 37 63 X 9.483492E+03 XY 1.461178E+03 A 9.708384E+03 LX 0.99 0.0 0.15 3.978474E+03 1.309941E+04 Y 2.147612E+02 YZ 0.0 B -2.163367E+04 LY 0.15 0.0 -0.99 Z -2.163367E+04 ZX 0.0 C -1.013199E+01 LZ 0.0 1.00 0.0 0 37 81 X 9.271018E+03 XY 2.015114E+03 A 9.708546E+03 LX 0.98 0.0 0.21 3.978336E+03 1.309946E+04 Y 4.275937E+02 YZ 0.0 B -2.163362E+04 LY 0.21 0.0 -0.98 Z -2.163362E+04 ZX 0.0 C -9.935644E+00 LZ 0.0 1.00 0.0 0 37 80 X -1.342559E+04 XY 2.111032E+03 A -1.296725E+04 LX 0.98 0.0 0.21 2.680853E+04 1.305465E+04 Y -2.269020E+04 YZ 0.0 B -4.430981E+04 LY 0.21 0.0 -0.98 Z -4.430981E+04 ZX 0.0 C -2.314852E+04 LZ 0.0 1.00 0.0 0 37 68 X -1.320293E+04 XY 1.530770E+03 A -1.296732E+04 LX 0.99 0.0 0.15 2.680852E+04 1.305459E+04 Y -2.291289E+04 YZ 0.0 B -4.430973E+04 LY 0.15 0.0 -0.99 Z -4.430973E+04 ZX 0.0 C -2.314849E+04 LZ 0.0 1.00 0.0 0 37 69 X 9.483416E+03 XY 1.461189E+03 A 9.708316E+03 LX 0.99 0.0 0.15 3.978483E+03 1.309944E+04 Y 2.148896E+02 YZ 0.0 B -2.163375E+04 LY 0.15 0.0 -0.99 Z -2.163375E+04 ZX 0.0 C -1.001275E+01 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 37 87 X 9.270896E+03 XY 2.015089E+03 A 9.708418E+03 LX 0.98 0.0 0.21 3.978400E+03 1.309941E+04 Y 4.275045E+02 YZ 0.0 B -2.163361E+04 LY 0.21 0.0 -0.98 Z -2.163361E+04 ZX 0.0 C -1.001140E+01 LZ 0.0 1.00 0.0 0 37 86 X -1.342580E+04 XY 2.111012E+03 A -1.296746E+04 LX 0.98 0.0 0.21 2.680861E+04 1.305459E+04 Y -2.269019E+04 YZ 0.0 B -4.430984E+04 LY 0.21 0.0 -0.98 Z -4.430984E+04 ZX 0.0 C -2.314853E+04 LZ 0.0 1.00 0.0 0 37 0 X -1.968546E+03 XY 1.779518E+03 A -1.638731E+03 LX 0.98 0.0 0.18 1.539348E+04 1.307423E+04 Y -1.124016E+04 YZ 0.0 B -3.297172E+04 LY 0.18 0.0 -0.98 Z -3.297172E+04 ZX 0.0 C -1.156998E+04 LZ 0.0 1.00 0.0 0 38 63 X -1.233285E+04 XY -4.399625E+02 A -9.474423E+03 LX 0.15 0.0 0.99 1.766012E+04 9.581982E+03 Y -9.542139E+03 YZ 0.0 B -3.110537E+04 LY -0.99 0.0 0.15 Z -3.110537E+04 ZX 0.0 C -1.240056E+04 LZ 0.0 1.00 0.0 0 38 64 X 8.902800E+03 XY -4.208527E+02 A 1.163695E+04 LX 0.15 0.0 0.99 -3.535976E+03 9.546001E+03 Y 1.157217E+04 YZ 0.0 B -9.867043E+03 LY -0.99 0.0 0.15 Z -9.867044E+03 ZX 0.0 C 8.838020E+03 LZ 0.0 1.00 0.0 0 38 82 X 8.964024E+03 XY -5.803415E+02 A 1.163699E+04 LX 0.21 0.0 0.98 -3.536035E+03 9.545945E+03 Y 1.151098E+04 YZ 0.0 B -9.866903E+03 LY -0.98 0.0 0.21 Z -9.866904E+03 ZX 0.0 C 8.838022E+03 LZ 0.0 1.00 0.0 0 38 81 X -1.226878E+04 XY -6.067255E+02 A -9.474438E+03 LX 0.21 0.0 0.98 1.766012E+04 9.582004E+03 Y -9.606171E+03 YZ 0.0 B -3.110540E+04 LY -0.98 0.0 0.21 Z -3.110540E+04 ZX 0.0 C -1.240052E+04 LZ 0.0 1.00 0.0 0 38 69 X -1.233269E+04 XY -4.399666E+02 A -9.474435E+03 LX 0.15 0.0 0.99 1.766011E+04 9.582065E+03 Y -9.542160E+03 YZ 0.0 B -3.110549E+04 LY -0.99 0.0 0.15 Z -3.110549E+04 ZX 0.0 C -1.240041E+04 LZ 0.0 1.00 0.0 0 38 70 X 8.902870E+03 XY -4.208072E+02 A 1.163693E+04 LX 0.15 0.0 0.99 -3.536049E+03 9.545938E+03 Y 1.157217E+04 YZ 0.0 B -9.866889E+03 LY -0.99 0.0 0.15 Z -9.866889E+03 ZX 0.0 C 8.838104E+03 LZ 0.0 1.00 0.0 0 38 88 X 8.963975E+03 XY -5.803690E+02 A 1.163693E+04 LX 0.21 0.0 0.98 -3.535965E+03 9.545966E+03 Y 1.151092E+04 YZ 0.0 B -9.867002E+03 LY -0.98 0.0 0.21 Z -9.867002E+03 ZX 0.0 C 8.837965E+03 LZ 0.0 1.00 0.0 0 38 87 X -1.226897E+04 XY -6.067093E+02 A -9.474479E+03 LX 0.21 0.0 0.98 1.766020E+04 9.581962E+03 Y -9.606204E+03 YZ 0.0 B -3.110541E+04 LY -0.98 0.0 0.21 Z -3.110541E+04 ZX 0.0 C -1.240070E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 38 0 X -1.683704E+03 XY -5.119668E+02 A 1.078583E+03 LX 0.18 0.0 0.98 7.062066E+03 9.563687E+03 Y 9.836955E+02 YZ 0.0 B -2.048619E+04 LY -0.98 0.0 0.18 Z -2.048619E+04 ZX 0.0 C -1.778593E+03 LZ 0.0 1.00 0.0 0 39 64 X -1.106630E+04 XY -2.161192E+03 A 2.974849E+03 LX 0.15 0.0 0.99 8.986837E+03 8.946036E+03 Y 2.642202E+03 YZ 0.0 B -1.853642E+04 LY -0.99 0.0 0.15 Z -1.853642E+04 ZX 0.0 C -1.139895E+04 LZ 0.0 1.00 0.0 0 39 65 X 8.905987E+03 XY -2.071125E+03 A 2.236222E+04 LX 0.15 0.0 0.99 -1.079957E+04 8.679811E+03 Y 2.204344E+04 YZ 0.0 B 1.449277E+03 LY -0.99 0.0 0.15 Z 1.449278E+03 ZX 0.0 C 8.587212E+03 LZ 0.0 1.00 0.0 0 39 83 X 9.207343E+03 XY -2.856175E+03 A 2.236219E+04 LX 0.21 0.0 0.98 -1.079954E+04 8.679815E+03 Y 2.174206E+04 YZ 0.0 B 1.449230E+03 LY -0.98 0.0 0.21 Z 1.449231E+03 ZX 0.0 C 8.587209E+03 LZ 0.0 1.00 0.0 0 39 82 X -1.075202E+04 XY -2.980354E+03 A 2.974788E+03 LX 0.21 0.0 0.98 8.986923E+03 8.946034E+03 Y 2.327695E+03 YZ 0.0 B -1.853645E+04 LY -0.98 0.0 0.21 Z -1.853645E+04 ZX 0.0 C -1.139911E+04 LZ 0.0 1.00 0.0 0 39 70 X -1.106642E+04 XY -2.161162E+03 A 2.974769E+03 LX 0.15 0.0 0.99 8.986923E+03 8.946033E+03 Y 2.642132E+03 YZ 0.0 B -1.853648E+04 LY -0.99 0.0 0.15 Z -1.853648E+04 ZX 0.0 C -1.139906E+04 LZ 0.0 1.00 0.0 0 39 71 X 8.905895E+03 XY -2.071118E+03 A 2.236220E+04 LX 0.15 0.0 0.99 -1.079953E+04 8.679813E+03 Y 2.204343E+04 YZ 0.0 B 1.449268E+03 LY -0.99 0.0 0.15 Z 1.449266E+03 ZX 0.0 C 8.587120E+03 LZ 0.0 1.00 0.0 0 39 89 X 9.207486E+03 XY -2.856169E+03 A 2.236231E+04 LX 0.21 0.0 0.98 -1.079968E+04 8.679809E+03 Y 2.174218E+04 YZ 0.0 B 1.449361E+03 LY -0.98 0.0 0.21 Z 1.449362E+03 ZX 0.0 C 8.587360E+03 LZ 0.0 1.00 0.0 0 39 88 X -1.075195E+04 XY -2.980334E+03 A 2.974813E+03 LX 0.21 0.0 0.98 8.986899E+03 8.946051E+03 Y 2.327728E+03 YZ 0.0 B -1.853648E+04 LY -0.98 0.0 0.21 Z -1.853648E+04 ZX 0.0 C -1.139903E+04 LZ 0.0 1.00 0.0 0 39 0 X -9.262480E+02 XY -2.517204E+03 A 1.265539E+04 LX 0.18 0.0 0.98 -9.063411E+02 8.805818E+03 Y 1.218886E+04 YZ 0.0 B -8.543587E+03 LY -0.98 0.0 0.18 Z -8.543587E+03 ZX 0.0 C -1.392782E+03 LZ 0.0 1.00 0.0 0 40 65 X -9.471438E+03 XY -3.672868E+03 A 1.439119E+04 LX 0.15 0.99 0.0 7.248784E+02 1.078417E+04 Y 1.382587E+04 YZ 0.0 B -1.003676E+04 LY -0.99 0.15 0.0 Z -6.529068E+03 ZX 0.0 C -6.529068E+03 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 1 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 40 66 X 9.362900E+03 XY -3.525966E+03 A 3.227150E+04 LX 0.15 0.99 0.0 -1.780638E+04 1.032811E+04 Y 3.172879E+04 YZ 0.0 B 8.820216E+03 LY -0.99 0.15 0.0 Z 1.232747E+04 ZX 0.0 C 1.232744E+04 LZ 0.0 0.0 1.00 0 40 84 X 9.876266E+03 XY -4.862468E+03 A 3.227150E+04 LX 0.21 0.98 0.0 -1.780651E+04 1.032801E+04 Y 3.121575E+04 YZ 0.0 B 8.820533E+03 LY -0.98 0.21 0.0 Z 1.232749E+04 ZX 0.0 C 1.232748E+04 LZ 0.0 0.0 1.00 0 40 83 X -8.937549E+03 XY -5.065090E+03 A 1.439107E+04 LX 0.21 0.98 0.0 7.251331E+02 1.078429E+04 Y 1.329134E+04 YZ 0.0 B -1.003728E+04 LY -0.98 0.21 0.0 Z -6.529195E+03 ZX 0.0 C -6.529192E+03 LZ 0.0 0.0 1.00 0 40 71 X -9.471935E+03 XY -3.672880E+03 A 1.439110E+04 LX 0.15 0.99 0.0 7.250993E+02 1.078429E+04 Y 1.382579E+04 YZ 0.0 B -1.003724E+04 LY -0.99 0.15 0.0 Z -6.529154E+03 ZX 0.0 C -6.529150E+03 LZ 0.0 0.0 1.00 0 40 72 X 9.363248E+03 XY -3.525952E+03 A 3.227151E+04 LX 0.15 0.99 0.0 -1.780652E+04 1.032801E+04 Y 3.172881E+04 YZ 0.0 B 8.820537E+03 LY -0.99 0.15 0.0 Z 1.232751E+04 ZX 0.0 C 1.232752E+04 LZ 0.0 0.0 1.00 0 40 90 X 9.876035E+03 XY -4.862489E+03 A 3.227151E+04 LX 0.21 0.98 0.0 -1.780640E+04 1.032810E+04 Y 3.121578E+04 YZ 0.0 B 8.820283E+03 LY -0.98 0.21 0.0 Z 1.232738E+04 ZX 0.0 C 1.232740E+04 LZ 0.0 0.0 1.00 0 40 89 X -8.937336E+03 XY -5.065088E+03 A 1.439115E+04 LX 0.21 0.98 0.0 7.249896E+02 1.078424E+04 Y 1.329142E+04 YZ 0.0 B -1.003707E+04 LY -0.98 0.21 0.0 Z -6.529047E+03 ZX 0.0 C -6.529048E+03 LZ 0.0 0.0 1.00 0 40 0 X 2.075239E+02 XY -4.281600E+03 A 2.330899E+04 LX 0.18 0.98 0.0 -8.540713E+03 1.053923E+04 Y 2.251545E+04 YZ 0.0 B -5.860234E+02 LY -0.98 0.18 0.0 Z 2.899174E+03 ZX 0.0 C 2.899172E+03 LZ 0.0 0.0 1.00 * * * END OF JOB * * * 1 JOB TITLE = LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS DATE: 5/17/95 END TIME: 15: 5:25 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d01132a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01132A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 5 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 3 DISP = ALL 4 STRESS = ALL 5 SPC = 200 6 SUBCASE 1 7 LABEL = PRESSURE LOAD 8 LOAD = 400 9 SUBCASE 2 10 LABEL = THERMAL LOAD 11 TEMP(LOAD) = 500 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 59, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CIHEX2 1 200 1 2 3 10 15 14 +HEX-1 2- +HEX-1 13 9 4 5 17 16 6 7 +HEX-11 3- +HEX-11 8 12 20 19 18 11 4- CIHEX2 2 200 13 14 15 22 27 26 +HEX-21 5- +HEX-21 25 21 16 17 29 28 18 19 +HEX-22 6- +HEX-22 20 24 32 31 30 23 7- CNGRNT 1 2 8- CORD2C 10 0 .0 .0 .0 .0 .0 100.0 +CRD-1 9- +CRD-1 100.0 .0 .0 10- GRDSET 10 10 456 11- GRID 1 4.0 -14.0 .0 12- GRID 2 4.5 -14.0 .0 13- GRID 3 5.0 -14.0 .0 14- GRID 4 4.0 -14.0 .5 15- GRID 5 5.0 -14.0 .5 16- GRID 6 4.0 -14.0 1.0 17- GRID 7 4.5 -14.0 1.0 18- GRID 8 5.0 -14.0 1.0 19- GRID 9 4.0 -7.0 .0 20- GRID 10 5.0 -7.0 .0 21- GRID 11 4.0 -7.0 1.0 22- GRID 12 5.0 -7.0 1.0 23- GRID 13 4.0 .0 .0 24- GRID 14 4.5 .0 .0 25- GRID 15 5.0 .0 .0 26- GRID 16 4.0 .0 .5 27- GRID 17 5.0 .0 .5 28- GRID 18 4.0 .0 1.0 29- GRID 19 4.5 .0 1.0 30- GRID 20 5.0 .0 1.0 31- GRID 21 4.0 7.0 .0 32- GRID 22 5.0 7.0 .0 33- GRID 23 4.0 7.0 1.0 34- GRID 24 5.0 7.0 1.0 35- GRID 25 4.0 14.0 .0 36- GRID 26 4.5 14.0 .0 37- GRID 27 5.0 14.0 .0 38- GRID 28 4.0 14.0 .5 39- GRID 29 5.0 14.0 .5 40- GRID 30 4.0 14.0 1.0 41- GRID 31 4.5 14.0 1.0 42- GRID 32 5.0 14.0 1.0 43- MAT1 300 3.+7 .3 7.535-4 1.428-5 .0 44- PIHEX 200 300 4 45- PLOAD3 400 -10.0 1 13 6 2 25 18 46- SPC1 200 2 1 THRU 8 47- SPC1 200 2 25 THRU 32 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- SPC1 200 3 1 2 3 9 10 13 +SPC-A3 49- +SPC-A3 14 15 21 22 25 26 27 50- SPC1 200 3 6 7 8 11 12 18 +SPC-A4 51- +SPC-A4 19 20 23 24 30 31 32 52- TEMP 500 1 100.0 4 100.0 6 100.0 53- TEMP 500 9 100.0 11 100.0 13 100.0 54- TEMP 500 14 47.22 19 47.22 26 47.22 55- TEMP 500 16 100.0 18 100.0 21 100.0 56- TEMP 500 23 100.0 25 100.0 28 100.0 57- TEMP 500 30 100.0 2 47.22 7 47.22 58- TEMP 500 31 47.22 59- TEMPD 500 .0 ENDDATA 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 20 PROFILE 384 MAX WAVEFRONT 20 AVG WAVEFRONT 12.000 RMS WAVEFRONT 13.153 RMS BANDWIDTH 13.153 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 20 PROFILE 384 MAX WAVEFRONT 20 AVG WAVEFRONT 12.000 RMS WAVEFRONT 13.153 RMS BANDWIDTH 13.153 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 20 20 PROFILE (P) 384 384 MAXIMUM WAVEFRONT (C-MAX) 20 20 AVERAGE WAVEFRONT (C-AVG) 12.000 12.000 RMS WAVEFRONT (C-RMS) 13.153 13.153 RMS BANDWITCH (B-RMS) 13.153 13.153 NUMBER OF GRID POINTS (N) 32 NUMBER OF ELEMENTS (NON-RIGID) 2 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 31 MINIMUM NODAL DEGREE 19 NUMBER OF UNIQUE EDGES 352 MATRIX DENSITY, PERCENT 71.875 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION IHEX2 ELEMENTS (ELEMENT TYPE 66) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -3.6603334E-15 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 4.7536495E-16 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 PRESSURE LOAD SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.047039E-06 0.0 0.0 0.0 0.0 0.0 2 G 5.666053E-06 0.0 0.0 0.0 0.0 0.0 3 G 5.392320E-06 0.0 0.0 0.0 0.0 0.0 4 G 6.047039E-06 0.0 2.870110E-21 0.0 0.0 0.0 5 G 5.392320E-06 0.0 -1.500092E-21 0.0 0.0 0.0 6 G 6.047039E-06 0.0 0.0 0.0 0.0 0.0 7 G 5.666053E-06 0.0 0.0 0.0 0.0 0.0 8 G 5.392320E-06 0.0 0.0 0.0 0.0 0.0 9 G 6.046814E-06 -2.117252E-13 0.0 0.0 0.0 0.0 10 G 5.392107E-06 1.717601E-13 0.0 0.0 0.0 0.0 11 G 6.046814E-06 -2.117252E-13 0.0 0.0 0.0 0.0 12 G 5.392107E-06 1.717601E-13 0.0 0.0 0.0 0.0 13 G 6.047038E-06 -4.240684E-13 0.0 0.0 0.0 0.0 14 G 5.666052E-06 -6.380181E-14 0.0 0.0 0.0 0.0 15 G 5.392320E-06 3.170519E-13 0.0 0.0 0.0 0.0 16 G 6.047038E-06 -4.230127E-13 1.763549E-21 0.0 0.0 0.0 17 G 5.392320E-06 3.170770E-13 9.926167E-23 0.0 0.0 0.0 18 G 6.047038E-06 -4.240684E-13 0.0 0.0 0.0 0.0 19 G 5.666052E-06 -6.380182E-14 0.0 0.0 0.0 0.0 20 G 5.392320E-06 3.170519E-13 0.0 0.0 0.0 0.0 21 G 6.046813E-06 -2.163572E-13 0.0 0.0 0.0 0.0 22 G 5.392106E-06 1.773487E-13 0.0 0.0 0.0 0.0 23 G 6.046813E-06 -2.163572E-13 0.0 0.0 0.0 0.0 24 G 5.392106E-06 1.773487E-13 0.0 0.0 0.0 0.0 25 G 6.047038E-06 0.0 0.0 0.0 0.0 0.0 26 G 5.666052E-06 0.0 0.0 0.0 0.0 0.0 27 G 5.392319E-06 0.0 0.0 0.0 0.0 0.0 28 G 6.047038E-06 0.0 1.131583E-21 0.0 0.0 0.0 29 G 5.392319E-06 0.0 -1.588187E-22 0.0 0.0 0.0 30 G 6.047038E-06 0.0 0.0 0.0 0.0 0.0 31 G 5.666052E-06 0.0 0.0 0.0 0.0 0.0 32 G 5.392319E-06 0.0 0.0 0.0 0.0 0.0 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 THERMAL LOAD SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.438675E-03 0.0 0.0 0.0 0.0 0.0 2 G 4.198856E-03 0.0 0.0 0.0 0.0 0.0 3 G 4.297704E-03 0.0 0.0 0.0 0.0 0.0 4 G 3.438675E-03 0.0 2.527546E-18 0.0 0.0 0.0 5 G 4.297704E-03 0.0 -1.626303E-18 0.0 0.0 0.0 6 G 3.438675E-03 0.0 0.0 0.0 0.0 0.0 7 G 4.198856E-03 0.0 0.0 0.0 0.0 0.0 8 G 4.297704E-03 0.0 0.0 0.0 0.0 0.0 9 G 3.440342E-03 -3.102146E-10 0.0 0.0 0.0 0.0 10 G 4.299318E-03 1.377486E-10 0.0 0.0 0.0 0.0 11 G 3.440342E-03 -3.102146E-10 0.0 0.0 0.0 0.0 12 G 4.299318E-03 1.377486E-10 0.0 0.0 0.0 0.0 13 G 3.438675E-03 -5.368165E-10 0.0 0.0 0.0 0.0 14 G 4.198856E-03 -4.622748E-11 0.0 0.0 0.0 0.0 15 G 4.297704E-03 3.938078E-10 0.0 0.0 0.0 0.0 16 G 3.438675E-03 -5.344766E-10 5.692061E-19 0.0 0.0 0.0 17 G 4.297704E-03 3.951975E-10 4.065758E-19 0.0 0.0 0.0 18 G 3.438675E-03 -5.368165E-10 0.0 0.0 0.0 0.0 19 G 4.198856E-03 -4.622748E-11 0.0 0.0 0.0 0.0 20 G 4.297704E-03 3.938077E-10 0.0 0.0 0.0 0.0 21 G 3.440341E-03 -3.285747E-10 0.0 0.0 0.0 0.0 22 G 4.299317E-03 3.878982E-10 0.0 0.0 0.0 0.0 23 G 3.440341E-03 -3.285747E-10 0.0 0.0 0.0 0.0 24 G 4.299317E-03 3.878982E-10 0.0 0.0 0.0 0.0 25 G 3.438674E-03 0.0 0.0 0.0 0.0 0.0 26 G 4.198855E-03 0.0 0.0 0.0 0.0 0.0 27 G 4.297703E-03 0.0 0.0 0.0 0.0 0.0 28 G 3.438674E-03 0.0 -2.710505E-20 0.0 0.0 0.0 29 G 4.297703E-03 0.0 3.794708E-19 0.0 0.0 0.0 30 G 3.438674E-03 0.0 0.0 0.0 0.0 0.0 31 G 4.198855E-03 0.0 0.0 0.0 0.0 0.0 32 G 4.297703E-03 0.0 0.0 0.0 0.0 0.0 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 1 1 X -6.691342E+00 XY 1.291605E+01 A 4.547615E+01 LX 0.24 0.97 0.0 -1.542102E+01 2.285047E+01 Y 4.227829E+01 YZ 0.0 B -9.889205E+00 LY 0.97-0.24 0.0 Z 1.067611E+01 ZX 0.0 C 1.067611E+01 LZ 0.0 0.0 1.00 0 1 2 X -2.259551E+00 XY 1.056923E+01 A 4.043281E+01 LX 0.24 0.97 0.0 -1.540789E+01 1.879863E+01 Y 3.781621E+01 YZ 0.0 B -4.876149E+00 LY 0.97-0.24 0.0 Z 1.066700E+01 ZX 0.0 C 1.066700E+01 LZ 0.0 0.0 1.00 0 1 3 X 2.172241E+00 XY 8.222413E+00 A 3.538945E+01 LX 0.24 0.97 0.0 -1.539474E+01 1.477642E+01 Y 3.335412E+01 YZ 0.0 B 1.369058E-01 LY 0.97-0.24 0.0 Z 1.065788E+01 ZX 0.0 C 1.065788E+01 LZ 0.0 0.0 1.00 0 1 10 X 1.154503E+00 XY 4.140992E+00 A 3.488017E+01 LX 0.12 0.99 0.0 -1.539470E+01 1.437178E+01 Y 3.437172E+01 YZ 0.0 B 6.460528E-01 LY 0.99-0.12 0.0 Z 1.065786E+01 ZX 0.0 C 1.065786E+01 LZ 0.0 0.0 1.00 0 1 15 X 1.367655E-01 XY 5.957030E-02 A 3.538942E+01 LX 0.00 1.00 0.0 -1.539464E+01 1.477649E+01 Y 3.538931E+01 YZ 0.0 B 1.366617E-01 LY 1.00 0.00 0.0 Z 1.065784E+01 ZX 0.0 C 1.065784E+01 LZ 0.0 0.0 1.00 0 1 14 X -4.875983E+00 XY 7.516288E-02 A 4.043284E+01 LX 0.00 1.00 0.0 -1.540792E+01 1.879862E+01 Y 4.043271E+01 YZ 0.0 B -4.876106E+00 LY 1.00 0.00 0.0 Z 1.066702E+01 ZX 0.0 C 1.066702E+01 LZ 0.0 0.0 1.00 0 1 13 X -9.888731E+00 XY 9.075449E-02 A 4.547625E+01 LX 0.00 1.00 0.0 -1.542120E+01 2.285039E+01 Y 4.547610E+01 YZ 0.0 B -9.888878E+00 LY 1.00 0.00 0.0 Z 1.067620E+01 ZX 0.0 C 1.067621E+01 LZ 0.0 0.0 1.00 0 1 9 X -8.290037E+00 XY 6.503403E+00 A 4.467573E+01 LX 0.12 0.99 0.0 -1.542111E+01 2.220414E+01 Y 4.387720E+01 YZ 0.0 B -9.088559E+00 LY 0.99-0.12 0.0 Z 1.067616E+01 ZX 0.0 C 1.067617E+01 LZ 0.0 0.0 1.00 0 1 4 X -6.691255E+00 XY 1.291605E+01 A 4.547618E+01 LX 0.24 0.97 0.0 -1.542107E+01 2.285045E+01 Y 4.227831E+01 YZ 0.0 B -9.889115E+00 LY 0.97-0.24 0.0 Z 1.067613E+01 ZX 0.0 C 1.067613E+01 LZ 0.0 0.0 1.00 0 1 5 X 2.172129E+00 XY 8.222420E+00 A 3.538943E+01 LX 0.24 0.97 0.0 -1.539470E+01 1.477645E+01 Y 3.335411E+01 YZ 0.0 B 1.367964E-01 LY 0.97-0.24 0.0 Z 1.065786E+01 ZX 0.0 C 1.065787E+01 LZ 0.0 0.0 1.00 0 1 17 X 1.368871E-01 XY 5.955793E-02 A 3.538943E+01 LX 0.00 1.00 0.0 -1.539470E+01 1.477645E+01 Y 3.538934E+01 YZ 0.0 B 1.367873E-01 LY 1.00 0.00 0.0 Z 1.065787E+01 ZX 0.0 C 1.065788E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 1 16 X -9.888877E+00 XY 9.075666E-02 A 4.547623E+01 LX 0.00 1.00 0.0 -1.542112E+01 2.285044E+01 Y 4.547608E+01 YZ 0.0 B -9.889028E+00 LY 1.00 0.00 0.0 Z 1.067615E+01 ZX 0.0 C 1.067616E+01 LZ 0.0 0.0 1.00 0 1 6 X -6.691167E+00 XY 1.291605E+01 A 4.547618E+01 LX 0.24 0.97 0.0 -1.542110E+01 2.285043E+01 Y 4.227832E+01 YZ 0.0 B -9.889039E+00 LY 0.97-0.24 0.0 Z 1.067615E+01 ZX 0.0 C 1.067616E+01 LZ 0.0 0.0 1.00 0 1 7 X -2.259575E+00 XY 1.056924E+01 A 4.043280E+01 LX 0.24 0.97 0.0 -1.540788E+01 1.879863E+01 Y 3.781621E+01 YZ 0.0 B -4.876173E+00 LY 0.97-0.24 0.0 Z 1.066700E+01 ZX 0.0 C 1.066700E+01 LZ 0.0 0.0 1.00 0 1 8 X 2.172018E+00 XY 8.222425E+00 A 3.538941E+01 LX 0.24 0.97 0.0 -1.539465E+01 1.477648E+01 Y 3.335409E+01 YZ 0.0 B 1.366919E-01 LY 0.97-0.24 0.0 Z 1.065784E+01 ZX 0.0 C 1.065785E+01 LZ 0.0 0.0 1.00 0 1 12 X 1.154513E+00 XY 4.140985E+00 A 3.488017E+01 LX 0.12 0.99 0.0 -1.539470E+01 1.437177E+01 Y 3.437172E+01 YZ 0.0 B 6.460651E-01 LY 0.99-0.12 0.0 Z 1.065787E+01 ZX 0.0 C 1.065788E+01 LZ 0.0 0.0 1.00 0 1 20 X 1.370092E-01 XY 5.954466E-02 A 3.538944E+01 LX 0.00 1.00 0.0 -1.539475E+01 1.477641E+01 Y 3.538935E+01 YZ 0.0 B 1.369065E-01 LY 1.00 0.00 0.0 Z 1.065790E+01 ZX 0.0 C 1.065790E+01 LZ 0.0 0.0 1.00 0 1 19 X -4.876007E+00 XY 7.515171E-02 A 4.043282E+01 LX 0.00 1.00 0.0 -1.540790E+01 1.879863E+01 Y 4.043270E+01 YZ 0.0 B -4.876133E+00 LY 1.00 0.00 0.0 Z 1.066700E+01 ZX 0.0 C 1.066700E+01 LZ 0.0 0.0 1.00 0 1 18 X -9.889022E+00 XY 9.075779E-02 A 4.547618E+01 LX 0.00 1.00 0.0 -1.542104E+01 2.285048E+01 Y 4.547604E+01 YZ 0.0 B -9.889173E+00 LY 1.00 0.00 0.0 Z 1.067611E+01 ZX 0.0 C 1.067610E+01 LZ 0.0 0.0 1.00 0 1 11 X -8.290095E+00 XY 6.503403E+00 A 4.467570E+01 LX 0.12 0.99 0.0 -1.542107E+01 2.220415E+01 Y 4.387718E+01 YZ 0.0 B -9.088618E+00 LY 0.99-0.12 0.0 Z 1.067613E+01 ZX 0.0 C 1.067613E+01 LZ 0.0 0.0 1.00 0 1 0 X -3.567779E+00 XY 5.322196E+00 A 3.977794E+01 LX 0.12 0.99 0.0 -1.540789E+01 1.827274E+01 Y 3.912445E+01 YZ 0.0 B -4.221265E+00 LY 0.99-0.12 0.0 Z 1.066700E+01 ZX 0.0 C 1.066700E+01 LZ 0.0 0.0 1.00 0 2 13 X -9.888847E+00 XY -9.075878E-02 A 4.547621E+01 LX 0.00 1.00 0.0 -1.542113E+01 2.285042E+01 Y 4.547607E+01 YZ 0.0 B -9.888995E+00 LY -1.00 0.00 0.0 Z 1.067617E+01 ZX 0.0 C 1.067617E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 2 14 X -4.876045E+00 XY -7.515997E-02 A 4.043282E+01 LX 0.00 1.00 0.0 -1.540789E+01 1.879864E+01 Y 4.043269E+01 YZ 0.0 B -4.876172E+00 LY -1.00 0.00 0.0 Z 1.066701E+01 ZX 0.0 C 1.066701E+01 LZ 0.0 0.0 1.00 0 2 15 X 1.367583E-01 XY -5.956020E-02 A 3.538940E+01 LX 0.00 1.00 0.0 -1.539464E+01 1.477649E+01 Y 3.538931E+01 YZ 0.0 B 1.366543E-01 LY -1.00 0.00 0.0 Z 1.065785E+01 ZX 0.0 C 1.065785E+01 LZ 0.0 0.0 1.00 0 2 22 X 1.154518E+00 XY -4.140984E+00 A 3.488018E+01 LX 0.12 0.99 0.0 -1.539470E+01 1.437178E+01 Y 3.437173E+01 YZ 0.0 B 6.460685E-01 LY -0.99 0.12 0.0 Z 1.065786E+01 ZX 0.0 C 1.065786E+01 LZ 0.0 0.0 1.00 0 2 27 X 2.172278E+00 XY -8.222406E+00 A 3.538948E+01 LX 0.24 0.97 0.0 -1.539477E+01 1.477642E+01 Y 3.335415E+01 YZ 0.0 B 1.369467E-01 LY -0.97 0.24 0.0 Z 1.065788E+01 ZX 0.0 C 1.065788E+01 LZ 0.0 0.0 1.00 0 2 26 X -2.259534E+00 XY -1.056924E+01 A 4.043285E+01 LX 0.24 0.97 0.0 -1.540791E+01 1.879864E+01 Y 3.781625E+01 YZ 0.0 B -4.876134E+00 LY -0.97 0.24 0.0 Z 1.066699E+01 ZX 0.0 C 1.066700E+01 LZ 0.0 0.0 1.00 0 2 25 X -6.691346E+00 XY -1.291607E+01 A 4.547621E+01 LX 0.24 0.97 0.0 -1.542104E+01 2.285050E+01 Y 4.227834E+01 YZ 0.0 B -9.889211E+00 LY -0.97 0.24 0.0 Z 1.067611E+01 ZX 0.0 C 1.067611E+01 LZ 0.0 0.0 1.00 0 2 21 X -8.290097E+00 XY -6.503413E+00 A 4.467573E+01 LX 0.12 0.99 0.0 -1.542109E+01 2.220416E+01 Y 4.387721E+01 YZ 0.0 B -9.088620E+00 LY -0.99 0.12 0.0 Z 1.067614E+01 ZX 0.0 C 1.067615E+01 LZ 0.0 0.0 1.00 0 2 16 X -9.888850E+00 XY -9.076250E-02 A 4.547624E+01 LX 0.00 1.00 0.0 -1.542113E+01 2.285044E+01 Y 4.547610E+01 YZ 0.0 B -9.889002E+00 LY -1.00 0.00 0.0 Z 1.067616E+01 ZX 0.0 C 1.067616E+01 LZ 0.0 0.0 1.00 0 2 17 X 1.368011E-01 XY -5.956426E-02 A 3.538943E+01 LX 0.00 1.00 0.0 -1.539467E+01 1.477649E+01 Y 3.538933E+01 YZ 0.0 B 1.366997E-01 LY -1.00 0.00 0.0 Z 1.065786E+01 ZX 0.0 C 1.065786E+01 LZ 0.0 0.0 1.00 0 2 29 X 2.172181E+00 XY -8.222425E+00 A 3.538944E+01 LX 0.24 0.97 0.0 -1.539471E+01 1.477644E+01 Y 3.335410E+01 YZ 0.0 B 1.368441E-01 LY -0.97 0.24 0.0 Z 1.065786E+01 ZX 0.0 C 1.065786E+01 LZ 0.0 0.0 1.00 0 2 28 X -6.691268E+00 XY -1.291603E+01 A 4.547620E+01 LX 0.24 0.97 0.0 -1.542106E+01 2.285046E+01 Y 4.227834E+01 YZ 0.0 B -9.889123E+00 LY -0.97 0.24 0.0 Z 1.067612E+01 ZX 0.0 C 1.067611E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 2 18 X -9.888851E+00 XY -9.076518E-02 A 4.547626E+01 LX 0.00 1.00 0.0 -1.542114E+01 2.285045E+01 Y 4.547611E+01 YZ 0.0 B -9.889000E+00 LY -1.00 0.00 0.0 Z 1.067615E+01 ZX 0.0 C 1.067616E+01 LZ 0.0 0.0 1.00 0 2 19 X -4.876004E+00 XY -7.516678E-02 A 4.043286E+01 LX 0.00 1.00 0.0 -1.540792E+01 1.879864E+01 Y 4.043274E+01 YZ 0.0 B -4.876126E+00 LY -1.00 0.00 0.0 Z 1.066702E+01 ZX 0.0 C 1.066701E+01 LZ 0.0 0.0 1.00 0 2 20 X 1.368446E-01 XY -5.956743E-02 A 3.538944E+01 LX 0.00 1.00 0.0 -1.539469E+01 1.477647E+01 Y 3.538935E+01 YZ 0.0 B 1.367452E-01 LY -1.00 0.00 0.0 Z 1.065788E+01 ZX 0.0 C 1.065788E+01 LZ 0.0 0.0 1.00 0 2 24 X 1.154464E+00 XY -4.141006E+00 A 3.488016E+01 LX 0.12 0.99 0.0 -1.539468E+01 1.437178E+01 Y 3.437170E+01 YZ 0.0 B 6.460094E-01 LY -0.99 0.12 0.0 Z 1.065786E+01 ZX 0.0 C 1.065787E+01 LZ 0.0 0.0 1.00 0 2 32 X 2.172085E+00 XY -8.222443E+00 A 3.538939E+01 LX 0.24 0.97 0.0 -1.539466E+01 1.477645E+01 Y 3.335404E+01 YZ 0.0 B 1.367415E-01 LY -0.97 0.24 0.0 Z 1.065784E+01 ZX 0.0 C 1.065784E+01 LZ 0.0 0.0 1.00 0 2 31 X -2.259552E+00 XY -1.056922E+01 A 4.043279E+01 LX 0.24 0.97 0.0 -1.540788E+01 1.879861E+01 Y 3.781619E+01 YZ 0.0 B -4.876147E+00 LY -0.97 0.24 0.0 Z 1.066698E+01 ZX 0.0 C 1.066699E+01 LZ 0.0 0.0 1.00 0 2 30 X -6.691189E+00 XY -1.291599E+01 A 4.547617E+01 LX 0.24 0.97 0.0 -1.542109E+01 2.285042E+01 Y 4.227834E+01 YZ 0.0 B -9.889026E+00 LY -0.97 0.24 0.0 Z 1.067613E+01 ZX 0.0 C 1.067614E+01 LZ 0.0 0.0 1.00 0 2 23 X -8.290021E+00 XY -6.503379E+00 A 4.467574E+01 LX 0.12 0.99 0.0 -1.542112E+01 2.220414E+01 Y 4.387723E+01 YZ 0.0 B -9.088536E+00 LY -0.99 0.12 0.0 Z 1.067614E+01 ZX 0.0 C 1.067614E+01 LZ 0.0 0.0 1.00 0 2 0 X -3.567784E+00 XY -5.322195E+00 A 3.977795E+01 LX 0.12 0.99 0.0 -1.540790E+01 1.827275E+01 Y 3.912447E+01 YZ 0.0 B -4.221269E+00 LY -0.99 0.12 0.0 Z 1.066700E+01 ZX 0.0 C 1.066700E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 1 1 X -2.880421E+03 XY -6.926184E+03 A -1.163994E+03 LX 0.97 0.0 0.24 2.787886E+04 2.071345E+04 Y -2.911279E+04 YZ 0.0 B -5.164338E+04 LY -0.24 0.0 0.97 Z -5.164338E+04 ZX 0.0 C -3.082921E+04 LZ 0.0 1.00 0.0 0 1 2 X -1.089508E+03 XY 2.731567E+02 A 1.442129E+01 LX 0.24 0.0 0.97 7.370508E+03 9.627364E+03 Y -5.317122E+01 YZ 0.0 B -2.096885E+04 LY 0.97 0.0 -0.24 Z -2.096885E+04 ZX 0.0 C -1.157102E+03 LZ 0.0 1.00 0.0 0 1 3 X 7.014052E+02 XY 7.472497E+03 A 3.085805E+04 LX 0.24 0.97 0.0 -1.313784E+04 1.329077E+04 Y 2.900644E+04 YZ 0.0 B -1.150202E+03 LY 0.97-0.24 0.0 Z 9.705687E+03 ZX 0.0 C 9.705686E+03 LZ 0.0 0.0 1.00 0 1 10 X -2.244097E+02 XY 3.759441E+03 A 3.039381E+04 LX 0.12 0.99 0.0 -1.313783E+04 1.291830E+04 Y 2.993221E+04 YZ 0.0 B -6.860110E+02 LY 0.99-0.12 0.0 Z 9.705675E+03 ZX 0.0 C 9.705672E+03 LZ 0.0 0.0 1.00 0 1 15 X -1.150224E+03 XY 4.638407E+01 A 3.085804E+04 LX 0.00 1.00 0.0 -1.313780E+04 1.329080E+04 Y 3.085797E+04 YZ 0.0 B -1.150292E+03 LY 1.00 0.00 0.0 Z 9.705666E+03 ZX 0.0 C 9.705664E+03 LZ 0.0 0.0 1.00 0 1 14 X -1.157072E+03 XY 2.096515E+00 A 1.446751E+01 LX 0.00 0.0 1.00 7.370476E+03 9.627366E+03 Y 1.446161E+01 YZ 0.0 B -2.096882E+04 LY 1.00 0.0 0.00 Z -2.096882E+04 ZX 0.0 C -1.157078E+03 LZ 0.0 1.00 0.0 0 1 13 X -1.163920E+03 XY -4.219107E+01 A -1.163863E+03 LX 1.00 0.0 0.00 2.787876E+04 2.071347E+04 Y -3.082905E+04 YZ 0.0 B -5.164329E+04 LY 0.00 0.0 1.00 Z -5.164330E+04 ZX 0.0 C -3.082912E+04 LZ 0.0 1.00 0.0 0 1 9 X -2.022171E+03 XY -3.484188E+03 A -1.594363E+03 LX 0.99 0.0 0.12 2.787881E+04 2.050996E+04 Y -2.997092E+04 YZ 0.0 B -5.164336E+04 LY -0.12 0.0 0.99 Z -5.164334E+04 ZX 0.0 C -3.039871E+04 LZ 0.0 1.00 0.0 0 1 4 X -2.880374E+03 XY -6.926183E+03 A -1.163953E+03 LX 0.97 0.0 0.24 2.787882E+04 2.071345E+04 Y -2.911275E+04 YZ 0.0 B -5.164334E+04 LY -0.24 0.0 0.97 Z -5.164334E+04 ZX 0.0 C -3.082917E+04 LZ 0.0 1.00 0.0 0 1 5 X 7.013417E+02 XY 7.472495E+03 A 3.085805E+04 LX 0.24 0.97 0.0 -1.313782E+04 1.329079E+04 Y 2.900644E+04 YZ 0.0 B -1.150260E+03 LY 0.97-0.24 0.0 Z 9.705660E+03 ZX 0.0 C 9.705659E+03 LZ 0.0 0.0 1.00 0 1 17 X -1.150141E+03 XY 4.638845E+01 A 3.085806E+04 LX 0.00 1.00 0.0 -1.313785E+04 1.329078E+04 Y 3.085800E+04 YZ 0.0 B -1.150212E+03 LY 1.00 0.00 0.0 Z 9.705690E+03 ZX 0.0 C 9.705695E+03 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 1 16 X -1.164045E+03 XY -4.220688E+01 A -1.163984E+03 LX 1.00 0.0 0.00 2.787884E+04 2.071345E+04 Y -3.082911E+04 YZ 0.0 B -5.164336E+04 LY 0.00 0.0 1.00 Z -5.164335E+04 ZX 0.0 C -3.082917E+04 LZ 0.0 1.00 0.0 0 1 6 X -2.880326E+03 XY -6.926183E+03 A -1.163900E+03 LX 0.97 0.0 0.24 2.787878E+04 2.071346E+04 Y -2.911271E+04 YZ 0.0 B -5.164331E+04 LY -0.24 0.0 0.97 Z -5.164330E+04 ZX 0.0 C -3.082913E+04 LZ 0.0 1.00 0.0 0 1 7 X -1.089524E+03 XY 2.731552E+02 A 1.445565E+01 LX 0.24 0.0 0.97 7.370499E+03 9.627365E+03 Y -5.313544E+01 YZ 0.0 B -2.096884E+04 LY 0.97 0.0 -0.24 Z -2.096884E+04 ZX 0.0 C -1.157114E+03 LZ 0.0 1.00 0.0 0 1 8 X 7.012785E+02 XY 7.472493E+03 A 3.085803E+04 LX 0.24 0.97 0.0 -1.313778E+04 1.329081E+04 Y 2.900644E+04 YZ 0.0 B -1.150320E+03 LY 0.97-0.24 0.0 Z 9.705636E+03 ZX 0.0 C 9.705641E+03 LZ 0.0 0.0 1.00 0 1 12 X -2.243900E+02 XY 3.759443E+03 A 3.039383E+04 LX 0.12 0.99 0.0 -1.313784E+04 1.291830E+04 Y 2.993223E+04 YZ 0.0 B -6.859918E+02 LY 0.99-0.12 0.0 Z 9.705676E+03 ZX 0.0 C 9.705676E+03 LZ 0.0 0.0 1.00 0 1 20 X -1.150058E+03 XY 4.639257E+01 A 3.085809E+04 LX 0.00 1.00 0.0 -1.313789E+04 1.329075E+04 Y 3.085802E+04 YZ 0.0 B -1.150126E+03 LY 1.00 0.00 0.0 Z 9.705719E+03 ZX 0.0 C 9.705720E+03 LZ 0.0 0.0 1.00 0 1 19 X -1.157115E+03 XY 2.085050E+00 A 1.443191E+01 LX 0.00 0.0 1.00 7.370510E+03 9.627362E+03 Y 1.442414E+01 YZ 0.0 B -2.096884E+04 LY 1.00 0.0 0.00 Z -2.096884E+04 ZX 0.0 C -1.157119E+03 LZ 0.0 1.00 0.0 0 1 18 X -1.164171E+03 XY -4.222250E+01 A -1.164115E+03 LX 1.00 0.0 0.00 2.787892E+04 2.071341E+04 Y -3.082917E+04 YZ 0.0 B -5.164341E+04 LY 0.00 0.0 1.00 Z -5.164340E+04 ZX 0.0 C -3.082923E+04 LZ 0.0 1.00 0.0 0 1 11 X -2.022249E+03 XY -3.484203E+03 A -1.594444E+03 LX 0.99 0.0 0.12 2.787885E+04 2.050993E+04 Y -2.997094E+04 YZ 0.0 B -5.164336E+04 LY -0.12 0.0 0.99 Z -5.164336E+04 ZX 0.0 C -3.039875E+04 LZ 0.0 1.00 0.0 0 1 0 X -1.123305E+03 XY 1.376234E+02 A -2.454061E+00 LX 0.12 0.0 0.99 7.370498E+03 9.626688E+03 Y -1.935522E+01 YZ 0.0 B -2.096883E+04 LY 0.99 0.0 -0.12 Z -2.096883E+04 ZX 0.0 C -1.140205E+03 LZ 0.0 1.00 0.0 0 2 13 X -1.164112E+03 XY 4.221630E+01 A -1.164050E+03 LX 1.00 0.0 0.00 2.787888E+04 2.071344E+04 Y -3.082914E+04 YZ 0.0 B -5.164341E+04 LY 0.00 0.0 -1.00 Z -5.164340E+04 ZX 0.0 C -3.082920E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 2 14 X -1.157136E+03 XY -2.089234E+00 A 1.442692E+01 LX 0.00 0.0 1.00 7.370523E+03 9.627361E+03 Y 1.442376E+01 YZ 0.0 B -2.096886E+04 LY -1.00 0.0 0.00 Z -2.096886E+04 ZX 0.0 C -1.157141E+03 LZ 0.0 1.00 0.0 0 2 15 X -1.150159E+03 XY -4.639474E+01 A 3.085805E+04 LX 0.00 1.00 0.0 -1.313784E+04 1.329078E+04 Y 3.085799E+04 YZ 0.0 B -1.150226E+03 LY -1.00 0.00 0.0 Z 9.705694E+03 ZX 0.0 C 9.705695E+03 LZ 0.0 0.0 1.00 0 2 22 X -2.243690E+02 XY -3.759435E+03 A 3.039380E+04 LX 0.12 0.99 0.0 -1.313784E+04 1.291828E+04 Y 2.993220E+04 YZ 0.0 B -6.859714E+02 LY -0.99 0.12 0.0 Z 9.705682E+03 ZX 0.0 C 9.705682E+03 LZ 0.0 0.0 1.00 0 2 27 X 7.014216E+02 XY -7.472475E+03 A 3.085801E+04 LX 0.24 0.97 0.0 -1.313783E+04 1.329074E+04 Y 2.900641E+04 YZ 0.0 B -1.150177E+03 LY -0.97 0.24 0.0 Z 9.705671E+03 ZX 0.0 C 9.705672E+03 LZ 0.0 0.0 1.00 0 2 26 X -1.089461E+03 XY -2.731642E+02 A 1.446064E+01 LX 0.24 0.0 0.97 7.370471E+03 9.627372E+03 Y -5.313277E+01 YZ 0.0 B -2.096882E+04 LY -0.97 0.0 0.24 Z -2.096882E+04 ZX 0.0 C -1.157053E+03 LZ 0.0 1.00 0.0 0 2 25 X -2.880344E+03 XY 6.926146E+03 A -1.163931E+03 LX 0.97 0.0 0.24 2.787877E+04 2.071344E+04 Y -2.911267E+04 YZ 0.0 B -5.164331E+04 LY 0.24 0.0 -0.97 Z -5.164330E+04 ZX 0.0 C -3.082908E+04 LZ 0.0 1.00 0.0 0 2 21 X -2.022228E+03 XY 3.484181E+03 A -1.594432E+03 LX 0.99 0.0 0.12 2.787883E+04 2.050994E+04 Y -2.997091E+04 YZ 0.0 B -5.164336E+04 LY 0.12 0.0 -0.99 Z -5.164336E+04 ZX 0.0 C -3.039870E+04 LZ 0.0 1.00 0.0 0 2 16 X -1.164081E+03 XY 4.220443E+01 A -1.164019E+03 LX 1.00 0.0 0.00 2.787886E+04 2.071344E+04 Y -3.082911E+04 YZ 0.0 B -5.164338E+04 LY 0.00 0.0 -1.00 Z -5.164338E+04 ZX 0.0 C -3.082918E+04 LZ 0.0 1.00 0.0 0 2 17 X -1.150166E+03 XY -4.639832E+01 A 3.085806E+04 LX 0.00 1.00 0.0 -1.313784E+04 1.329079E+04 Y 3.085800E+04 YZ 0.0 B -1.150234E+03 LY -1.00 0.00 0.0 Z 9.705699E+03 ZX 0.0 C 9.705697E+03 LZ 0.0 0.0 1.00 0 2 29 X 7.014169E+02 XY -7.472489E+03 A 3.085801E+04 LX 0.24 0.97 0.0 -1.313783E+04 1.329075E+04 Y 2.900641E+04 YZ 0.0 B -1.150187E+03 LY -0.97 0.24 0.0 Z 9.705680E+03 ZX 0.0 C 9.705681E+03 LZ 0.0 0.0 1.00 0 2 28 X -2.880376E+03 XY 6.926182E+03 A -1.163950E+03 LX 0.97 0.0 0.24 2.787880E+04 2.071345E+04 Y -2.911269E+04 YZ 0.0 B -5.164333E+04 LY 0.24 0.0 -0.97 Z -5.164334E+04 ZX 0.0 C -3.082912E+04 LZ 0.0 1.00 0.0 1 LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 2 18 X -1.164049E+03 XY 4.219235E+01 A -1.163991E+03 LX 1.00 0.0 0.00 2.787883E+04 2.071344E+04 Y -3.082909E+04 YZ 0.0 B -5.164336E+04 LY 0.00 0.0 -1.00 Z -5.164336E+04 ZX 0.0 C -3.082914E+04 LZ 0.0 1.00 0.0 0 2 19 X -1.157111E+03 XY -2.104656E+00 A 1.446377E+01 LX 0.00 0.0 1.00 7.370494E+03 9.627364E+03 Y 1.446090E+01 YZ 0.0 B -2.096883E+04 LY -1.00 0.0 0.00 Z -2.096883E+04 ZX 0.0 C -1.157116E+03 LZ 0.0 1.00 0.0 0 2 20 X -1.150173E+03 XY -4.640164E+01 A 3.085808E+04 LX 0.00 1.00 0.0 -1.313785E+04 1.329079E+04 Y 3.085801E+04 YZ 0.0 B -1.150241E+03 LY -1.00 0.00 0.0 Z 9.705708E+03 ZX 0.0 C 9.705709E+03 LZ 0.0 0.0 1.00 0 2 24 X -2.243805E+02 XY -3.759452E+03 A 3.039381E+04 LX 0.12 0.99 0.0 -1.313784E+04 1.291829E+04 Y 2.993221E+04 YZ 0.0 B -6.859860E+02 LY -0.99 0.12 0.0 Z 9.705697E+03 ZX 0.0 C 9.705701E+03 LZ 0.0 0.0 1.00 0 2 32 X 7.014125E+02 XY -7.472502E+03 A 3.085802E+04 LX 0.24 0.97 0.0 -1.313784E+04 1.329075E+04 Y 2.900641E+04 YZ 0.0 B -1.150197E+03 LY -0.97 0.24 0.0 Z 9.705690E+03 ZX 0.0 C 9.705690E+03 LZ 0.0 0.0 1.00 0 2 31 X -1.089498E+03 XY -2.731430E+02 A 1.443066E+01 LX 0.24 0.0 0.97 7.370497E+03 9.627371E+03 Y -5.315130E+01 YZ 0.0 B -2.096884E+04 LY -0.97 0.0 0.24 Z -2.096884E+04 ZX 0.0 C -1.157075E+03 LZ 0.0 1.00 0.0 0 2 30 X -2.880408E+03 XY 6.926216E+03 A -1.163966E+03 LX 0.97 0.0 0.24 2.787883E+04 2.071346E+04 Y -2.911271E+04 YZ 0.0 B -5.164338E+04 LY 0.24 0.0 -0.97 Z -5.164337E+04 ZX 0.0 C -3.082915E+04 LZ 0.0 1.00 0.0 0 2 23 X -2.022229E+03 XY 3.484205E+03 A -1.594423E+03 LX 0.99 0.0 0.12 2.787883E+04 2.050994E+04 Y -2.997090E+04 YZ 0.0 B -5.164337E+04 LY 0.12 0.0 -0.99 Z -5.164337E+04 ZX 0.0 C -3.039871E+04 LZ 0.0 1.00 0.0 0 2 0 X -1.123302E+03 XY -1.376253E+02 A -2.447187E+00 LX 0.12 0.0 0.99 7.370495E+03 9.626691E+03 Y -1.934985E+01 YZ 0.0 B -2.096884E+04 LY -0.99 0.0 0.12 Z -2.096884E+04 ZX 0.0 C -1.140201E+03 LZ 0.0 1.00 0.0 * * * END OF JOB * * * 1 JOB TITLE = LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS DATE: 5/17/95 END TIME: 15: 6: 9 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01133a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01133A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 15 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A 3 DISPLACEMENT =ALL 4 STRESS = ALL 5 SPC = 200 6 SUBCASE 1 7 LABEL = PRESSURE LOAD 8 LOAD = 80 9 SUBCASE 2 10 LABEL = THERMAL LOAD 11 TEMP(LOAD) = 90 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 57, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CIHEX3 10 60 1 2 3 4 5 6 +HEX-31 2- +HEX-31 7 8 9 10 11 12 13 14 +HEX-32 3- +HEX-32 15 16 17 18 19 20 21 22 +HEX-33 4- +HEX-33 23 24 25 26 27 28 29 30 +HEX-34 5- +HEX-34 31 32 6- CORD2C 111 0 .0 .0 .0 .0 .0 50.0 +COR1 7- +COR1 50.0 .0 .0 8- GRDSET 111 111 456 9- GRID 1 4.0 .0 .0 10- GRID 2 4.25 .0 .0 11- GRID 3 4.6 .0 .0 12- GRID 4 5.0 .0 .0 13- GRID 5 5.0 9.0 .0 14- GRID 6 5.0 18.0 .0 15- GRID 7 5.0 27.0 .0 16- GRID 8 4.6 27.0 .0 17- GRID 9 4.25 27.0 .0 18- GRID 10 4.0 27.0 .0 19- GRID 11 4.0 18.0 .0 20- GRID 12 4.0 9.0 .0 21- GRID 13 4.0 .0 .33 22- GRID 14 5.0 .0 .33 23- GRID 15 5.0 27.0 .33 24- GRID 16 4.0 27.0 .33 25- GRID 17 4.0 .0 .67 26- GRID 18 5.0 .0 .67 27- GRID 19 5.0 27.0 .67 28- GRID 20 4.0 27.0 .67 29- GRID 21 4.0 .0 1.0 30- GRID 22 4.25 .0 1.0 31- GRID 23 4.6 .0 1.0 32- GRID 24 5.0 .0 1.0 33- GRID 25 5.0 9.0 1.0 34- GRID 26 5.0 18.0 1.0 35- GRID 27 5.0 27.0 1.0 36- GRID 28 4.6 27.0 1.0 37- GRID 29 4.25 27.0 1.0 38- GRID 30 4.0 27.0 1.0 39- GRID 31 4.0 18.0 1.0 40- GRID 32 4.0 9.0 1.0 41- MAT1 70 3.+7 .3 7.535-4 1.428-5 .0 42- PIHEX 60 70 4 43- PLOAD3 80 -10.0 10 30 1 44- SPC1 200 2 1 2 3 4 13 14 +SPC-A2 45- +SPC-A2 17 18 21 22 23 24 7 8 +SPC-B2 46- +SPC-B2 9 10 15 16 19 20 27 28 +SPC-C2 47- +SPC-C2 29 30 1 LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- SPC1 200 3 1 THRU 12 49- SPC1 200 3 21 THRU 32 50- TEMP 90 1 100.0 12 100.0 11 100.0 51- TEMP 90 2 72.83 9 72.83 22 72.83 52- TEMP 90 10 100.0 13 100.0 16 100.0 53- TEMP 90 17 100.0 20 100.0 21 100.0 54- TEMP 90 23 37.37 28 37.37 55- TEMP 90 29 72.83 3 37.37 8 37.37 56- TEMP 90 32 100.0 31 100.0 30 100.0 57- TEMPD 90 .0 ENDDATA 1 LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 32 PROFILE 528 MAX WAVEFRONT 32 AVG WAVEFRONT 16.500 RMS WAVEFRONT 18.908 RMS BANDWIDTH 18.908 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 32 PROFILE 528 MAX WAVEFRONT 32 AVG WAVEFRONT 16.500 RMS WAVEFRONT 18.908 RMS BANDWIDTH 18.908 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 32 32 PROFILE (P) 528 528 MAXIMUM WAVEFRONT (C-MAX) 32 32 AVERAGE WAVEFRONT (C-AVG) 16.500 16.500 RMS WAVEFRONT (C-RMS) 18.908 18.908 RMS BANDWITCH (B-RMS) 18.908 18.908 NUMBER OF GRID POINTS (N) 32 NUMBER OF ELEMENTS (NON-RIGID) 1 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 31 MINIMUM NODAL DEGREE 31 NUMBER OF UNIQUE EDGES 496 MATRIX DENSITY, PERCENT 100.000 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION IHEX3 ELEMENTS (ELEMENT TYPE 67) STARTING WITH ID 10 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 2.2671276E-14 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 4.9858604E-15 1 LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A 0 PRESSURE LOAD SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.050786E-06 0.0 0.0 0.0 0.0 0.0 2 G 5.846175E-06 0.0 0.0 0.0 0.0 0.0 3 G 5.610640E-06 0.0 0.0 0.0 0.0 0.0 4 G 5.400863E-06 0.0 0.0 0.0 0.0 0.0 5 G 5.388761E-06 2.557252E-09 0.0 0.0 0.0 0.0 6 G 5.388757E-06 -2.554353E-09 0.0 0.0 0.0 0.0 7 G 5.400858E-06 0.0 0.0 0.0 0.0 0.0 8 G 5.610633E-06 0.0 0.0 0.0 0.0 0.0 9 G 5.846167E-06 0.0 0.0 0.0 0.0 0.0 10 G 6.050780E-06 0.0 0.0 0.0 0.0 0.0 11 G 6.047972E-06 8.276416E-09 0.0 0.0 0.0 0.0 12 G 6.047976E-06 -8.281300E-09 0.0 0.0 0.0 0.0 13 G 6.047890E-06 0.0 -9.660649E-12 0.0 0.0 0.0 14 G 5.401584E-06 0.0 1.430897E-10 0.0 0.0 0.0 15 G 5.401579E-06 0.0 1.430087E-10 0.0 0.0 0.0 16 G 6.047884E-06 0.0 -9.678485E-12 0.0 0.0 0.0 17 G 6.047888E-06 0.0 9.055283E-12 0.0 0.0 0.0 18 G 5.401582E-06 0.0 -1.425552E-10 0.0 0.0 0.0 19 G 5.401577E-06 0.0 -1.425790E-10 0.0 0.0 0.0 20 G 6.047882E-06 0.0 8.970768E-12 0.0 0.0 0.0 21 G 6.050786E-06 0.0 0.0 0.0 0.0 0.0 22 G 5.846174E-06 0.0 0.0 0.0 0.0 0.0 23 G 5.610639E-06 0.0 0.0 0.0 0.0 0.0 24 G 5.400863E-06 0.0 0.0 0.0 0.0 0.0 25 G 5.388761E-06 2.557415E-09 0.0 0.0 0.0 0.0 26 G 5.388757E-06 -2.554164E-09 0.0 0.0 0.0 0.0 27 G 5.400857E-06 0.0 0.0 0.0 0.0 0.0 28 G 5.610632E-06 0.0 0.0 0.0 0.0 0.0 29 G 5.846166E-06 0.0 0.0 0.0 0.0 0.0 30 G 6.050779E-06 0.0 0.0 0.0 0.0 0.0 31 G 6.047971E-06 8.276606E-09 0.0 0.0 0.0 0.0 32 G 6.047975E-06 -8.281077E-09 0.0 0.0 0.0 0.0 1 LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A 0 THERMAL LOAD SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.444288E-03 0.0 0.0 0.0 0.0 0.0 2 G 3.916255E-03 0.0 0.0 0.0 0.0 0.0 3 G 4.273251E-03 0.0 0.0 0.0 0.0 0.0 4 G 4.302782E-03 0.0 0.0 0.0 0.0 0.0 5 G 4.307540E-03 1.666190E-06 0.0 0.0 0.0 0.0 6 G 4.307540E-03 -1.666242E-06 0.0 0.0 0.0 0.0 7 G 4.302782E-03 0.0 0.0 0.0 0.0 0.0 8 G 4.273251E-03 0.0 0.0 0.0 0.0 0.0 9 G 3.916255E-03 0.0 0.0 0.0 0.0 0.0 10 G 3.444287E-03 0.0 0.0 0.0 0.0 0.0 11 G 3.446013E-03 2.039222E-06 0.0 0.0 0.0 0.0 12 G 3.446012E-03 -2.039390E-06 0.0 0.0 0.0 0.0 13 G 3.444288E-03 0.0 4.946186E-10 0.0 0.0 0.0 14 G 4.302783E-03 0.0 -5.070250E-10 0.0 0.0 0.0 15 G 4.302783E-03 0.0 -4.969053E-10 0.0 0.0 0.0 16 G 3.444287E-03 0.0 5.084081E-10 0.0 0.0 0.0 17 G 3.444289E-03 0.0 3.367499E-10 0.0 0.0 0.0 18 G 4.302783E-03 0.0 -4.153888E-10 0.0 0.0 0.0 19 G 4.302783E-03 0.0 -4.872369E-10 0.0 0.0 0.0 20 G 3.444288E-03 0.0 3.860670E-10 0.0 0.0 0.0 21 G 3.444288E-03 0.0 0.0 0.0 0.0 0.0 22 G 3.916256E-03 0.0 0.0 0.0 0.0 0.0 23 G 4.273252E-03 0.0 0.0 0.0 0.0 0.0 24 G 4.302783E-03 0.0 0.0 0.0 0.0 0.0 25 G 4.307541E-03 1.666334E-06 0.0 0.0 0.0 0.0 26 G 4.307540E-03 -1.666113E-06 0.0 0.0 0.0 0.0 27 G 4.302783E-03 0.0 0.0 0.0 0.0 0.0 28 G 4.273252E-03 0.0 0.0 0.0 0.0 0.0 29 G 3.916256E-03 0.0 0.0 0.0 0.0 0.0 30 G 3.444288E-03 0.0 0.0 0.0 0.0 0.0 31 G 3.446012E-03 2.039085E-06 0.0 0.0 0.0 0.0 32 G 3.446012E-03 -2.039559E-06 0.0 0.0 0.0 0.0 1 LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 3 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10 1 X -1.167441E+01 XY -3.700511E-01 A 4.817874E+01 LX 0.01 1.00 0.01 -1.581752E+01 2.467732E+01 CENTER Y 4.817646E+01 YZ 0.0 B -1.167762E+01 LY -1.00 0.01 0.00 Z 1.095053E+01 ZX -1.448299E-01 C 1.095146E+01 LZ 0.00 0.01-1.00 0 10 1 X -6.613694E+00 XY -4.081637E-01 A 4.220941E+01 LX 0.01 1.00 0.00 -1.542333E+01 2.021387E+01 4 Y 4.220600E+01 YZ 0.0 B -6.617265E+00 LY -1.00 0.01 0.00 Z 1.067768E+01 ZX -5.232137E-02 C 1.067784E+01 LZ 0.00 0.00-1.00 0 10 4 X -1.552980E+00 XY -4.462744E-01 A 3.624080E+01 LX 0.01 1.00 0.00 -1.502912E+01 1.577407E+01 CENTER Y 3.623553E+01 YZ 0.0 B -1.558386E+00 LY -1.00 0.01 0.00 Z 1.040482E+01 ZX 4.018720E-02 C 1.040496E+01 LZ 0.00 0.00 1.00 0 10 4 X 2.160930E+00 XY -7.734811E+00 A 3.437873E+01 LX 0.23 0.97 0.00 -1.502917E+01 1.429014E+01 7 Y 3.252176E+01 YZ 9.121744E-03 B 3.038110E-01 LY -0.97 0.23 0.00 Z 1.040482E+01 ZX 3.799364E-02 C 1.040498E+01 LZ 0.00 0.00 1.00 0 10 7 X 5.874840E+00 XY -1.502334E+01 A 3.624070E+01 LX 0.44 0.90 0.00 -1.502921E+01 1.577389E+01 CENTER Y 2.880797E+01 YZ 1.823853E-02 B -1.558016E+00 LY -0.90 0.44 0.00 Z 1.040482E+01 ZX 3.580007E-02 C 1.040495E+01 LZ 0.00 0.00 1.00 0 10 7 X 3.118326E+00 XY -1.950803E+01 A 4.220953E+01 LX 0.45 0.89 0.00 -1.542346E+01 2.021385E+01 10 Y 3.247425E+01 YZ -2.375900E-02 B -6.617107E+00 LY -0.89 0.45 0.00 Z 1.067781E+01 ZX -4.662206E-02 C 1.067797E+01 LZ 0.00 0.00-1.00 0 10 10 X 3.618126E-01 XY -2.399272E+01 A 4.817907E+01 LX 0.45 0.89 0.01 -1.581771E+01 2.467746E+01 CENTER Y 3.614052E+01 YZ -6.575651E-02 B -1.167767E+01 LY -0.89 0.45 0.00 Z 1.095079E+01 ZX -1.290442E-01 C 1.095173E+01 LZ 0.00 0.01-1.00 0 10 10 X -5.656297E+00 XY -1.218139E+01 A 4.508297E+01 LX 0.23 0.97 0.01 -1.581762E+01 2.217709E+01 1 Y 4.215849E+01 YZ -3.287491E-02 B -8.581801E+00 LY -0.97 0.23 0.00 Z 1.095066E+01 ZX -1.369371E-01 C 1.095168E+01 LZ 0.00 0.01-1.00 0 10 1 X -1.167443E+01 XY -3.700329E-01 A 4.817881E+01 LX 0.01 1.00 0.0 -1.581758E+01 2.467706E+01 21 Y 4.817652E+01 YZ 0.0 B -1.167671E+01 LY -1.00 0.01 0.0 Z 1.095063E+01 ZX 0.0 C 1.095063E+01 LZ 0.0 0.0 1.00 0 10 4 X -1.552963E+00 XY -4.462850E-01 A 3.624077E+01 LX 0.01 1.00 0.0 -1.502909E+01 1.577402E+01 24 Y 3.623550E+01 YZ 0.0 B -1.558233E+00 LY -1.00 0.01 0.0 Z 1.040474E+01 ZX 0.0 C 1.040474E+01 LZ 0.0 0.0 1.00 0 10 7 X 5.874769E+00 XY -1.502334E+01 A 3.624067E+01 LX 0.44 0.90 0.0 -1.502918E+01 1.577386E+01 27 Y 2.880795E+01 YZ 0.0 B -1.557940E+00 LY -0.90 0.44 0.0 Z 1.040482E+01 ZX 0.0 C 1.040482E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A 0 PRESSURE LOAD SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 3 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10 10 X 3.619789E-01 XY -2.399273E+01 A 4.817910E+01 LX 0.45 0.89 0.0 -1.581775E+01 2.467715E+01 30 Y 3.614049E+01 YZ 0.0 B -1.167663E+01 LY -0.89 0.45 0.0 Z 1.095079E+01 ZX 0.0 C 1.095079E+01 LZ 0.0 0.0 1.00 0 10 21 X -1.167444E+01 XY -3.700127E-01 A 4.817886E+01 LX 0.01 1.00 0.01 -1.581762E+01 2.467737E+01 CENTER Y 4.817657E+01 YZ 0.0 B -1.167766E+01 LY -1.00 0.01 0.00 Z 1.095073E+01 ZX 1.449132E-01 C 1.095167E+01 LZ 0.00-0.01 1.00 0 10 21 X -6.613695E+00 XY -4.081542E-01 A 4.220944E+01 LX 0.01 1.00 0.00 -1.542335E+01 2.021388E+01 24 Y 4.220602E+01 YZ 0.0 B -6.617266E+00 LY -1.00 0.01 0.00 Z 1.067770E+01 ZX 5.235885E-02 C 1.067787E+01 LZ 0.00 0.00 1.00 0 10 24 X -1.552946E+00 XY -4.462940E-01 A 3.624073E+01 LX 0.01 1.00 0.00 -1.502906E+01 1.577404E+01 CENTER Y 3.623547E+01 YZ 0.0 B -1.558353E+00 LY -1.00 0.01 0.00 Z 1.040467E+01 ZX -4.019549E-02 C 1.040480E+01 LZ 0.00 0.00-1.00 0 10 24 X 2.160875E+00 XY -7.734817E+00 A 3.437867E+01 LX 0.23 0.97 0.00 -1.502911E+01 1.429015E+01 27 Y 3.252170E+01 YZ -9.125198E-03 B 3.037542E-01 LY -0.97 0.23 0.00 Z 1.040474E+01 ZX -3.801505E-02 C 1.040489E+01 LZ 0.00 0.00-1.00 0 10 27 X 5.874697E+00 XY -1.502334E+01 A 3.624062E+01 LX 0.44 0.90 0.00 -1.502914E+01 1.577390E+01 CENTER Y 2.880793E+01 YZ -1.825798E-02 B -1.558134E+00 LY -0.90 0.44 0.00 Z 1.040481E+01 ZX -3.583460E-02 C 1.040494E+01 LZ 0.00 0.00-1.00 0 10 27 X 3.118421E+00 XY -1.950804E+01 A 4.220950E+01 LX 0.45 0.89 0.00 -1.542347E+01 2.021382E+01 30 Y 3.247420E+01 YZ 2.375388E-02 B -6.617048E+00 LY -0.89 0.45 0.00 Z 1.067780E+01 ZX 4.663216E-02 C 1.067795E+01 LZ 0.00 0.00 1.00 0 10 30 X 3.621457E-01 XY -2.399275E+01 A 4.817912E+01 LX 0.45 0.89 0.01 -1.581780E+01 2.467739E+01 CENTER Y 3.614046E+01 YZ 6.576574E-02 B -1.167744E+01 LY -0.89 0.45 0.00 Z 1.095078E+01 ZX 1.290989E-01 C 1.095171E+01 LZ 0.00-0.01 1.00 0 10 30 X -5.656149E+00 XY -1.218138E+01 A 4.508301E+01 LX 0.23 0.97 0.01 -1.581771E+01 2.217705E+01 21 Y 4.215852E+01 YZ 3.288345E-02 B -8.581654E+00 LY -0.97 0.23 0.00 Z 1.095076E+01 ZX 1.370061E-01 C 1.095177E+01 LZ 0.00-0.01 1.00 0 10 0 X -1.747660E+00 XY -9.958098E+00 A 3.973084E+01 LX 0.23 0.97 0.0 -1.542340E+01 1.822120E+01 CENTER Y 3.734011E+01 YZ 0.0 B -4.138386E+00 LY -0.97 0.23 0.0 Z 1.067774E+01 ZX 0.0 C 1.067775E+01 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 3 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10 1 X -3.541076E+03 XY 3.426359E+02 A -3.537719E+03 LX 1.00 0.0 0.01 3.338200E+04 2.257168E+04 CENTER Y -3.849209E+04 YZ 0.0 B -5.811284E+04 LY 0.01 0.0 -1.00 Z -5.811283E+04 ZX 0.0 C -3.849545E+04 LZ 0.0 1.00 0.0 0 10 1 X -1.269406E+03 XY 5.550882E+01 A -1.268108E+03 LX 1.00 0.0 0.02 9.812351E+03 1.045225E+04 4 Y -3.637063E+03 YZ 0.0 B -2.453058E+04 LY 0.02 0.0 -1.00 Z -2.453058E+04 ZX 0.0 C -3.638361E+03 LZ 0.0 1.00 0.0 0 10 4 X 1.002263E+03 XY -2.316184E+02 A 3.121975E+04 LX 0.01 1.00 0.0 -1.375730E+04 1.277780E+04 CENTER Y 3.121797E+04 YZ 0.0 B 1.000490E+03 LY -1.00 0.01 0.0 Z 9.051668E+03 ZX 0.0 C 9.051669E+03 LZ 0.0 0.0 1.00 0 10 4 X 4.022519E+03 XY -6.158970E+03 A 2.967649E+04 LX 0.23 0.97 0.0 -1.375736E+04 1.156581E+04 7 Y 2.819785E+04 YZ 0.0 B 2.543880E+03 LY -0.97 0.23 0.0 Z 9.051698E+03 ZX 0.0 C 9.051696E+03 LZ 0.0 0.0 1.00 0 10 7 X 7.042774E+03 XY -1.208632E+04 A 3.121979E+04 LX 0.45 0.89 0.0 -1.375741E+04 1.277774E+04 CENTER Y 2.517772E+04 YZ 0.0 B 1.000706E+03 LY -0.89 0.45 0.0 Z 9.051732E+03 ZX 0.0 C 9.051735E+03 LZ 0.0 0.0 1.00 0 10 7 X -1.712629E+03 XY 9.250844E+02 A -1.268244E+03 LX 0.90 0.0 0.43 9.812414E+03 1.045221E+04 10 Y -3.194019E+03 YZ 0.0 B -2.453059E+04 LY 0.43 0.0 -0.90 Z -2.453060E+04 ZX 0.0 C -3.638404E+03 LZ 0.0 1.00 0.0 0 10 10 X -1.046803E+04 XY 1.393649E+04 A -3.538219E+03 LX 0.90 0.0 0.45 3.338223E+04 2.257150E+04 CENTER Y -3.156576E+04 YZ 0.0 B -5.811292E+04 LY 0.45 0.0 -0.90 Z -5.811292E+04 ZX 0.0 C -3.849557E+04 LZ 0.0 1.00 0.0 0 10 10 X -7.004554E+03 XY 7.139563E+03 A -5.290494E+03 LX 0.97 0.0 0.23 3.338212E+04 2.169521E+04 1 Y -3.502893E+04 YZ 0.0 B -5.811289E+04 LY 0.23 0.0 -0.97 Z -5.811288E+04 ZX 0.0 C -3.674298E+04 LZ 0.0 1.00 0.0 0 10 1 X -3.541281E+03 XY 3.426451E+02 A -3.537927E+03 LX 1.00 0.0 0.01 3.338212E+04 2.257163E+04 21 Y -3.849213E+04 YZ 0.0 B -5.811293E+04 LY 0.01 0.0 -1.00 Z -5.811294E+04 ZX 0.0 C -3.849550E+04 LZ 0.0 1.00 0.0 0 10 4 X 1.002236E+03 XY -2.316260E+02 A 3.121971E+04 LX 0.01 1.00 0.0 -1.375729E+04 1.277778E+04 24 Y 3.121793E+04 YZ 0.0 B 1.000461E+03 LY -1.00 0.01 0.0 Z 9.051707E+03 ZX 0.0 C 9.051707E+03 LZ 0.0 0.0 1.00 0 10 7 X 7.042712E+03 XY -1.208634E+04 A 3.121982E+04 LX 0.45 0.89 0.0 -1.375743E+04 1.277776E+04 27 Y 2.517775E+04 YZ 0.0 B 1.000652E+03 LY -0.89 0.45 0.0 Z 9.051811E+03 ZX 0.0 C 9.051810E+03 LZ 0.0 0.0 1.00 1 LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A 0 THERMAL LOAD SUBCASE 2 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 3 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10 10 X -1.046797E+04 XY 1.393648E+04 A -3.538192E+03 LX 0.90 0.0 0.45 3.338228E+04 2.257156E+04 30 Y -3.156585E+04 YZ 0.0 B -5.811303E+04 LY 0.45 0.0 -0.90 Z -5.811303E+04 ZX 0.0 C -3.849563E+04 LZ 0.0 1.00 0.0 0 10 21 X -3.541486E+03 XY 3.426537E+02 A -3.538123E+03 LX 1.00 0.0 0.01 3.338223E+04 2.257159E+04 CENTER Y -3.849216E+04 YZ 0.0 B -5.811304E+04 LY 0.01 0.0 -1.00 Z -5.811304E+04 ZX 0.0 C -3.849554E+04 LZ 0.0 1.00 0.0 0 10 21 X -1.269639E+03 XY 5.551021E+01 A -1.268340E+03 LX 1.00 0.0 0.02 9.812475E+03 1.045220E+04 24 Y -3.637141E+03 YZ 0.0 B -2.453065E+04 LY 0.02 0.0 -1.00 Z -2.453065E+04 ZX 0.0 C -3.638438E+03 LZ 0.0 1.00 0.0 0 10 24 X 1.002208E+03 XY -2.316334E+02 A 3.121966E+04 LX 0.01 1.00 0.0 -1.375728E+04 1.277776E+04 CENTER Y 3.121788E+04 YZ 0.0 B 1.000434E+03 LY -1.00 0.01 0.0 Z 9.051751E+03 ZX 0.0 C 9.051753E+03 LZ 0.0 0.0 1.00 0 10 24 X 4.022429E+03 XY -6.158992E+03 A 2.967648E+04 LX 0.23 0.97 0.0 -1.375736E+04 1.156582E+04 27 Y 2.819783E+04 YZ 0.0 B 2.543786E+03 LY -0.97 0.23 0.0 Z 9.051820E+03 ZX 0.0 C 9.051824E+03 LZ 0.0 0.0 1.00 0 10 27 X 7.042650E+03 XY -1.208635E+04 A 3.121983E+04 LX 0.45 0.89 0.0 -1.375744E+04 1.277777E+04 CENTER Y 2.517778E+04 YZ 0.0 B 1.000594E+03 LY -0.89 0.45 0.0 Z 9.051894E+03 ZX 0.0 C 9.051896E+03 LZ 0.0 0.0 1.00 0 10 27 X -1.712628E+03 XY 9.250567E+02 A -1.268276E+03 LX 0.90 0.0 0.43 9.812442E+03 1.045221E+04 30 Y -3.194079E+03 YZ 0.0 B -2.453062E+04 LY 0.43 0.0 -0.90 Z -2.453062E+04 ZX 0.0 C -3.638426E+03 LZ 0.0 1.00 0.0 0 10 30 X -1.046791E+04 XY 1.393646E+04 A -3.538167E+03 LX 0.90 0.0 0.45 3.338233E+04 2.257162E+04 CENTER Y -3.156594E+04 YZ 0.0 B -5.811315E+04 LY 0.45 0.0 -0.90 Z -5.811314E+04 ZX 0.0 C -3.849567E+04 LZ 0.0 1.00 0.0 0 10 30 X -7.004696E+03 XY 7.139559E+03 A -5.290645E+03 LX 0.97 0.0 0.23 3.338228E+04 2.169523E+04 21 Y -3.502905E+04 YZ 0.0 B -5.811310E+04 LY 0.23 0.0 -0.97 Z -5.811309E+04 ZX 0.0 C -3.674309E+04 LZ 0.0 1.00 0.0 0 10 0 X -1.491075E+03 XY 4.902900E+02 A -1.373364E+03 LX 0.97 0.0 0.23 9.812419E+03 1.044462E+04 CENTER Y -3.415575E+03 YZ 0.0 B -2.453061E+04 LY 0.23 0.0 -0.97 Z -2.453061E+04 ZX 0.0 C -3.533284E+03 LZ 0.0 1.00 0.0 * * * END OF JOB * * * 1 JOB TITLE = LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS DATE: 5/17/95 END TIME: 15: 6:56 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01141a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01141A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 5 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A 3 DISPLACEMENT = ALL 4 ELFORCE = ALL 5 SUBCASE 1 6 LABEL = AXIAL LOAD 7 LOAD = 1 8 SUBCASE 2 9 LABEL = BENDING LOAD 10 LOAD = 2 11 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 33, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CBAR 6 1 6 7 .0 1.0 .0 1 2- FORCE 1 7 1. 1. 3- FORCE 2 7 1. 1. 4- GENEL 1 2 1 2 2 2 6 +G11 5- +G11 Z .1666667.0 .0 .66666671.0 2.0 6- GENEL 2 2 1 2 2 2 6 +G21 7- +G21 3 1 3 2 3 6 +G22 8- +G22 K 6. .0 .0 -6. .0 .0 6. +G23 9- +G23 3. .0 -6. 3. 2. .0 -3. 1. +G24 10- +G24 6. .0 .0 6. -3. 2. 11- GENEL 3 3 1 3 2 3 6 +G31 12- +G31 UD 4 1 4 2 4 6 +G32 13- +G32 K 6. .0 .0 6. 3. 2. +G33 14- +G33 S 1. .0 .0 .0 1. -1. .0 +G34 15- +G34 .0 1. 16- GENEL 4 4 1 4 2 4 6 +G41 17- +G41 UD 5 1 5 2 5 6 +G42 18- +G42 K 6. .0 .0 6. 3. 2. 19- GENEL 5 5 1 5 2 5 6 +G51 20- +G51 UD 6 1 6 2 6 6 +G52 21- +G52 Z .166666 .0 .0 .666667 -1. 2. +G53 22- +G53 S 1. .0 .0 .0 1. -1. .0 +G54 23- +G54 .0 1. 24- GRDSET 345 25- GRID 1 .0 .0 .0 123456 26- GRID 2 1. .0 .0 27- GRID 3 2. .0 .0 28- GRID 4 3. .0 .0 29- GRID 5 4. .0 .0 30- GRID 6 5. .0 .0 31- GRID 7 6.0 .0 .0 32- MAT1 1 6. .3 33- PBAR 1 1 1. .083333 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 1 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 2 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 3 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 4 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 5 NOT CONNECTED 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 6 0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON 103, FROM ( 24, 1), TO ( 24, 2) 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -5.9211875E-16 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 2.8965307E-13 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A 0 AXIAL LOAD SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 1.666667E-01 0.0 0.0 0.0 0.0 0.0 3 G 3.333334E-01 0.0 0.0 0.0 0.0 0.0 4 G 5.000001E-01 0.0 0.0 0.0 0.0 0.0 5 G 6.666667E-01 0.0 0.0 0.0 0.0 0.0 6 G 8.333327E-01 0.0 0.0 0.0 0.0 0.0 7 G 9.999993E-01 0.0 0.0 0.0 0.0 0.0 1 STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A 0 BENDING LOAD SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 5.666667E+00 0.0 0.0 0.0 1.100000E+01 3 G 0.0 2.133333E+01 0.0 0.0 0.0 2.000000E+01 4 G 0.0 4.500000E+01 0.0 0.0 0.0 2.700000E+01 5 G 0.0 7.466666E+01 0.0 0.0 0.0 3.200000E+01 6 G 0.0 1.083333E+02 0.0 0.0 0.0 3.500000E+01 7 G 0.0 1.440000E+02 0.0 0.0 0.0 3.600000E+01 1 STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A 0 AXIAL LOAD SUBCASE 1 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 6 0.0 0.0 0.0 0.0 0.0 0.0 1.000000E+00 0.0 1 STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A 0 BENDING LOAD SUBCASE 2 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 6 9.999695E-01 0.0 -3.051758E-05 0.0 1.000000E+00 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS DATE: 5/17/95 END TIME: 15: 7:36 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d01151a.out ================================================ NASTRAN FILE=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01151A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 90 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SHELL 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 3 AXISYM = COSINE 4 LOAD = 20 5 SET 10 = 11 THRU 34, 111 THRU 231, 235, 241, 245, 251, 255, 261, 6 265, 271, 275, 281, 285, 291, 295, 301, 305, 311, 315, 7 321, 325, 331, 335, 341, 345, 351, 355, 361, 365, 371, 8 375, 381, 385, 391, 395, 401, 405, 411 THRU 415 9 SET 9 = 111 THRU 227, 231, 234, 241, 244, 251, 254, 261, 264, 271, 10 274, 281, 284, 291, 294, 301, 304, 311, 314, 321, 324, 331, 11 334, 341, 344, 351, 354, 361, 364, 371, 374, 381, 384, 391, 12 394, 401 THRU 404 13 HARMONICS = ALL 14 DISPLACEMENT = 10 15 OLOAD = ALL 16 STRESS = 9 17 ELFORCE= 9 18 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 19 OUTPUT(PLOT) 20 PLOTTER NASTPLT 21 SET 1 = ALL 22 $ 23 $ CONVERT IDS TO NASTRAN IDS FOR ELEMENTS 111 THRU 227 (ID*1000+N) 24 $ 25 SET 2 INCLUDE ELEMENTS 111001 THRU 227001 26 AXES Z, X, Y 27 VIEW 0.0, 0.0, 0.0 28 FIND SCALE, ORIGIN 1, SET 1 29 PTITLE = FULL MODEL 30 PLOT SET 1, ORIGIN 1 31 FIND SCALE, ORIGIN 2, SET 2 32 PTITLE = LOADED SECTION (TRAPAX) AND TRANSITION SECTION (TRIAAX) 33 PLOT SET 2, ORIGIN 2 34 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 289, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AXIC 10 2- CTRAPAX 111 5 111 112 122 121 3- CTRAPAX 112 5 112 113 123 122 4- CTRAPAX 113 5 113 114 124 123 5- CTRAPAX 121 5 121 122 132 131 6- CTRAPAX 122 5 122 123 133 132 7- CTRAPAX 123 5 123 124 134 133 8- CTRAPAX 131 5 131 132 142 141 9- CTRAPAX 132 5 132 133 143 142 10- CTRAPAX 133 5 133 134 144 143 11- CTRAPAX 141 5 141 142 152 151 12- CTRAPAX 142 5 142 143 153 152 13- CTRAPAX 143 5 143 144 154 153 14- CTRAPAX 151 5 151 152 162 161 15- CTRAPAX 152 5 152 153 163 162 16- CTRAPAX 153 5 153 154 164 163 17- CTRAPAX 161 5 161 162 172 171 18- CTRAPAX 162 5 162 163 173 172 19- CTRAPAX 163 5 163 164 174 173 20- CTRAPAX 171 5 171 172 182 181 21- CTRAPAX 172 5 172 173 183 182 22- CTRAPAX 173 5 173 174 184 183 23- CTRAPAX 231 5 231 232 242 241 24- CTRAPAX 232 5 232 233 243 242 25- CTRAPAX 233 5 233 234 244 243 26- CTRAPAX 234 5 234 235 245 244 27- CTRAPAX 241 5 241 242 252 251 28- CTRAPAX 242 5 242 243 253 252 29- CTRAPAX 243 5 243 244 254 253 30- CTRAPAX 244 5 244 245 255 254 31- CTRAPAX 251 5 251 252 262 261 32- CTRAPAX 252 5 252 253 263 262 33- CTRAPAX 253 5 253 254 264 263 34- CTRAPAX 254 5 254 255 265 264 35- CTRAPAX 261 5 261 262 272 271 36- CTRAPAX 262 5 262 263 273 272 37- CTRAPAX 263 5 263 264 274 273 38- CTRAPAX 264 5 264 265 275 274 39- CTRAPAX 271 5 271 272 282 281 40- CTRAPAX 272 5 272 273 283 282 41- CTRAPAX 273 5 273 274 284 283 42- CTRAPAX 274 5 274 275 285 284 43- CTRAPAX 281 5 281 282 292 291 44- CTRAPAX 282 5 282 283 293 292 45- CTRAPAX 283 5 283 284 294 293 46- CTRAPAX 284 5 284 285 295 294 47- CTRAPAX 291 5 291 292 302 301 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CTRAPAX 292 5 292 293 303 302 49- CTRAPAX 293 5 293 294 304 303 50- CTRAPAX 294 5 294 295 305 304 51- CTRAPAX 301 5 301 302 312 311 52- CTRAPAX 302 5 302 303 313 312 53- CTRAPAX 303 5 303 304 314 313 54- CTRAPAX 304 5 304 305 315 314 55- CTRAPAX 311 5 311 312 322 321 56- CTRAPAX 312 5 312 313 323 322 57- CTRAPAX 313 5 313 314 324 323 58- CTRAPAX 314 5 314 315 325 324 59- CTRAPAX 321 5 321 322 332 331 60- CTRAPAX 322 5 322 323 333 332 61- CTRAPAX 323 5 323 324 334 333 62- CTRAPAX 324 5 324 325 335 334 63- CTRAPAX 331 5 331 332 342 341 64- CTRAPAX 332 5 332 333 343 342 65- CTRAPAX 333 5 333 334 344 343 66- CTRAPAX 334 5 334 335 345 344 67- CTRAPAX 341 5 341 342 352 351 68- CTRAPAX 342 5 342 343 353 352 69- CTRAPAX 343 5 343 344 354 353 70- CTRAPAX 344 5 344 345 355 354 71- CTRAPAX 351 5 351 352 362 361 72- CTRAPAX 352 5 352 353 363 362 73- CTRAPAX 353 5 353 354 364 363 74- CTRAPAX 354 5 354 355 365 364 75- CTRAPAX 361 5 361 362 372 371 76- CTRAPAX 362 5 362 363 373 372 77- CTRAPAX 363 5 363 364 374 373 78- CTRAPAX 364 5 364 365 375 374 79- CTRAPAX 371 5 371 372 382 381 80- CTRAPAX 372 5 372 373 383 382 81- CTRAPAX 373 5 373 374 384 383 82- CTRAPAX 374 5 374 375 385 384 83- CTRAPAX 381 5 381 382 392 391 84- CTRAPAX 382 5 382 383 393 392 85- CTRAPAX 383 5 383 384 394 393 86- CTRAPAX 384 5 384 385 395 394 87- CTRAPAX 391 5 391 392 402 401 88- CTRAPAX 392 5 392 393 403 402 89- CTRAPAX 393 5 393 394 404 403 90- CTRAPAX 394 5 394 395 405 404 91- CTRAPAX 401 5 401 402 412 411 92- CTRAPAX 402 5 402 403 413 412 93- CTRAPAX 403 5 403 404 414 413 94- CTRAPAX 404 5 404 405 415 414 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CTRIAAX 181 10 181 192 191 96- CTRIAAX 182 10 181 182 192 97- CTRIAAX 183 10 182 193 192 98- CTRIAAX 184 10 182 183 193 99- CTRIAAX 185 10 183 194 193 100- CTRIAAX 186 10 183 184 194 101- CTRIAAX 187 10 184 195 194 102- CTRIAAX 191 10 191 192 201 103- CTRIAAX 192 10 192 202 201 104- CTRIAAX 193 10 192 203 202 105- CTRIAAX 194 10 192 193 203 106- CTRIAAX 195 10 193 194 203 107- CTRIAAX 196 10 194 204 203 108- CTRIAAX 197 10 194 205 204 109- CTRIAAX 198 10 194 195 205 110- CTRIAAX 201 10 201 212 211 111- CTRIAAX 202 10 201 203 212 112- CTRIAAX 203 10 202 203 212 113- CTRIAAX 204 10 212 203 213 114- CTRIAAX 205 10 203 214 213 115- CTRIAAX 206 10 203 204 214 116- CTRIAAX 207 10 204 205 214 117- CTRIAAX 208 10 214 205 215 118- CTRIAAX 211 10 211 212 221 119- CTRIAAX 212 10 221 212 222 120- CTRIAAX 213 10 212 213 222 121- CTRIAAX 214 10 222 213 223 122- CTRIAAX 215 10 213 214 223 123- CTRIAAX 216 10 223 214 224 124- CTRIAAX 217 10 214 215 224 125- CTRIAAX 221 10 221 232 231 126- CTRIAAX 222 10 221 222 232 127- CTRIAAX 223 10 232 222 233 128- CTRIAAX 224 10 222 223 233 129- CTRIAAX 225 10 223 234 233 130- CTRIAAX 226 10 223 224 234 131- CTRIAAX 227 10 234 224 235 132- MAT1 15 66666.7 .3 133- POINTAX 11 111 .0 134- POINTAX 14 114 .0 135- POINTAX 21 121 .0 136- POINTAX 34 134 .0 137- PRESAX 20 -7.11111114 124 -7.162 7.162 138- PRESAX 20 -7.11111124 134 -7.162 7.162 139- PRESAX 20 -7.11111134 144 -7.162 7.162 140- PRESAX 20 -7.11111144 154 -7.162 7.162 141- PRESAX 20 -7.11111154 164 -7.162 7.162 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- PTRAPAX 5 15 .0 7.1 143- PTRIAAX 10 15 .0 3.581 7.162 144- RINGAX 111 14.5 .0 3456 145- RINGAX 112 14.7 .0 3456 146- RINGAX 113 15.3 .0 3456 147- RINGAX 114 15.5 .0 3456 148- RINGAX 121 14.5 .375 456 149- RINGAX 122 14.8 .375 456 150- RINGAX 123 15.2 .375 456 151- RINGAX 124 15.5 .375 456 152- RINGAX 131 14.5 .75 456 153- RINGAX 132 14.7 .75 456 154- RINGAX 133 15.3 .75 456 155- RINGAX 134 15.5 .75 456 156- RINGAX 141 14.5 1.125 456 157- RINGAX 142 14.8 1.125 456 158- RINGAX 143 15.2 1.125 456 159- RINGAX 144 15.5 1.125 456 160- RINGAX 151 14.5 1.5 456 161- RINGAX 152 14.7 1.5 456 162- RINGAX 153 15.3 1.5 456 163- RINGAX 154 15.5 1.5 456 164- RINGAX 161 14.5 1.875 456 165- RINGAX 162 14.8 1.875 456 166- RINGAX 163 15.2 1.875 456 167- RINGAX 164 15.5 1.875 456 168- RINGAX 171 14.5 2.25 456 169- RINGAX 172 14.7 2.25 456 170- RINGAX 173 15.3 2.25 456 171- RINGAX 174 15.5 2.25 456 172- RINGAX 181 14.5 2.625 456 173- RINGAX 182 14.8 2.625 456 174- RINGAX 183 15.2 2.625 456 175- RINGAX 184 15.5 2.625 456 176- RINGAX 191 14.5 3.0 456 177- RINGAX 192 14.75 3.0 456 178- RINGAX 193 15.0 3.0 456 179- RINGAX 194 15.25 3.0 456 180- RINGAX 195 15.5 3.0 456 181- RINGAX 201 14.5 3.375 456 182- RINGAX 202 14.75 3.375 456 183- RINGAX 203 15.0 3.375 456 184- RINGAX 204 15.25 3.375 456 185- RINGAX 205 15.5 3.375 456 186- RINGAX 211 14.5 3.75 456 187- RINGAX 212 14.75 3.75 456 188- RINGAX 213 15.0 3.75 456 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- RINGAX 214 15.25 3.75 456 190- RINGAX 215 15.5 3.75 456 191- RINGAX 221 14.5 4.125 456 192- RINGAX 222 14.8 4.125 456 193- RINGAX 223 15.2 4.125 456 194- RINGAX 224 15.5 4.125 456 195- RINGAX 231 14.5 4.5 456 196- RINGAX 232 14.7 4.5 456 197- RINGAX 233 15.0 4.5 456 198- RINGAX 234 15.3 4.5 456 199- RINGAX 235 15.5 4.5 456 200- RINGAX 241 14.5 5.5 456 201- RINGAX 242 14.8 5.5 456 202- RINGAX 243 15.0 5.5 456 203- RINGAX 244 15.2 5.5 456 204- RINGAX 245 15.5 5.5 456 205- RINGAX 251 14.5 6.5 456 206- RINGAX 252 14.7 6.5 456 207- RINGAX 253 15.0 6.5 456 208- RINGAX 254 15.3 6.5 456 209- RINGAX 255 15.5 6.5 456 210- RINGAX 261 14.5 7.5 456 211- RINGAX 262 14.8 7.5 456 212- RINGAX 263 15.0 7.5 456 213- RINGAX 264 15.2 7.5 456 214- RINGAX 265 15.5 7.5 456 215- RINGAX 271 14.5 8.5 456 216- RINGAX 272 14.7 8.5 456 217- RINGAX 273 15.0 8.5 456 218- RINGAX 274 15.3 8.5 456 219- RINGAX 275 15.5 8.5 456 220- RINGAX 281 14.5 9.5 456 221- RINGAX 282 14.8 9.5 456 222- RINGAX 283 15.0 9.5 456 223- RINGAX 284 15.2 9.5 456 224- RINGAX 285 15.5 9.5 456 225- RINGAX 291 14.5 10.5 456 226- RINGAX 292 14.7 10.5 456 227- RINGAX 293 15.0 10.5 456 228- RINGAX 294 15.3 10.5 456 229- RINGAX 295 15.5 10.5 456 230- RINGAX 301 14.5 11.5 456 231- RINGAX 302 14.8 11.5 456 232- RINGAX 303 15.0 11.5 456 233- RINGAX 304 15.2 11.5 456 234- RINGAX 305 15.5 11.5 456 235- RINGAX 311 14.5 12.5 456 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- RINGAX 312 14.7 12.5 456 237- RINGAX 313 15.0 12.5 456 238- RINGAX 314 15.3 12.5 456 239- RINGAX 315 15.5 12.5 456 240- RINGAX 321 14.5 13.5 456 241- RINGAX 322 14.8 13.5 456 242- RINGAX 323 15.0 13.5 456 243- RINGAX 324 15.2 13.5 456 244- RINGAX 325 15.5 13.5 456 245- RINGAX 331 14.5 14.5 456 246- RINGAX 332 14.7 14.5 456 247- RINGAX 333 15.0 14.5 456 248- RINGAX 334 15.3 14.5 456 249- RINGAX 335 15.5 14.5 456 250- RINGAX 341 14.5 15.5 456 251- RINGAX 342 14.8 15.5 456 252- RINGAX 343 15.0 15.5 456 253- RINGAX 344 15.2 15.5 456 254- RINGAX 345 15.5 15.5 456 255- RINGAX 351 14.5 16.5 456 256- RINGAX 352 14.7 16.5 456 257- RINGAX 353 15.0 16.5 456 258- RINGAX 354 15.3 16.5 456 259- RINGAX 355 15.5 16.5 456 260- RINGAX 361 14.5 17.5 456 261- RINGAX 362 14.8 17.5 456 262- RINGAX 363 15.0 17.5 456 263- RINGAX 364 15.2 17.5 456 264- RINGAX 365 15.5 17.5 456 265- RINGAX 371 14.5 18.5 456 266- RINGAX 372 14.7 18.5 456 267- RINGAX 373 15.0 18.5 456 268- RINGAX 374 15.3 18.5 456 269- RINGAX 375 15.5 18.5 456 270- RINGAX 381 14.5 19.5 456 271- RINGAX 382 14.8 19.5 456 272- RINGAX 383 15.0 19.5 456 273- RINGAX 384 15.2 19.5 456 274- RINGAX 385 15.5 19.5 456 275- RINGAX 391 14.5 20.5 456 276- RINGAX 392 14.7 20.5 456 277- RINGAX 393 15.0 20.5 456 278- RINGAX 394 15.3 20.5 456 279- RINGAX 395 15.5 20.5 456 280- RINGAX 401 14.5 21.5 456 281- RINGAX 402 14.8 21.5 456 282- RINGAX 403 15.0 21.5 456 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- RINGAX 404 15.2 21.5 456 284- RINGAX 405 15.5 21.5 456 285- RINGAX 411 14.5 22.5 12456 286- RINGAX 412 14.7 22.5 12456 287- RINGAX 413 15.0 22.5 12456 288- RINGAX 414 15.3 22.5 12456 289- RINGAX 415 15.5 22.5 12456 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF AXISYMMETRIC SOLID DATA 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.819159E-01 ORIGIN 1 - X0 = 9.750730E-01, Y0 = -0.437928E+00 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 1 USED IN THIS PLOT 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 1.409579E+00 ORIGIN 1 - X0 = 9.750730E-01, Y0 = -0.437928E+00 (INCHES) ORIGIN 2 - X0 = 1.789002E+01, Y0 = -0.437928E+00 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 2 UNDEFORMED SHAPE ORIGIN 2 USED IN THIS PLOT 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 11 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 14 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 21 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 34 NOT CONNECTED 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRAPAX ELEMENTS (ELEMENT TYPE 71) STARTING WITH ID 111001 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIAAX ELEMENTS (ELEMENT TYPE 70) STARTING WITH ID 181001 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -8.2589650E-11 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 11 -2.725171E-02 0.0 0.0 0.0 0.0 0.0 14 -2.713255E-02 0.0 0.0 0.0 0.0 0.0 21 -2.717048E-02 0.0 1.396160E-04 0.0 0.0 0.0 34 -2.682227E-02 0.0 -4.904729E-04 0.0 0.0 0.0 111 0 -5.469031E-04 0.0 0.0 0.0 0.0 0.0 112 0 -5.469223E-04 0.0 0.0 0.0 0.0 0.0 113 0 -5.417446E-04 0.0 0.0 0.0 0.0 0.0 114 0 -5.379575E-04 0.0 0.0 0.0 0.0 0.0 121 0 -5.421539E-04 0.0 1.611814E-05 0.0 0.0 0.0 122 0 -5.417241E-04 0.0 9.026005E-06 0.0 0.0 0.0 123 0 -5.380376E-04 0.0 -6.277682E-08 0.0 0.0 0.0 124 0 -5.335253E-04 0.0 -7.074076E-06 0.0 0.0 0.0 131 0 -5.281530E-04 0.0 3.183430E-05 0.0 0.0 0.0 132 0 -5.280495E-04 0.0 2.220947E-05 0.0 0.0 0.0 133 0 -5.231100E-04 0.0 -4.415109E-06 0.0 0.0 0.0 134 0 -5.195902E-04 0.0 -1.387959E-05 0.0 0.0 0.0 141 0 -5.054295E-04 0.0 4.594490E-05 0.0 0.0 0.0 142 0 -5.047426E-04 0.0 2.594963E-05 0.0 0.0 0.0 143 0 -5.013819E-04 0.0 3.729274E-07 0.0 0.0 0.0 144 0 -4.975643E-04 0.0 -1.945116E-05 0.0 0.0 0.0 151 0 -4.750075E-04 0.0 5.877490E-05 0.0 0.0 0.0 152 0 -4.744983E-04 0.0 4.128708E-05 0.0 0.0 0.0 153 0 -4.701629E-04 0.0 -6.802749E-06 0.0 0.0 0.0 154 0 -4.675107E-04 0.0 -2.424261E-05 0.0 0.0 0.0 161 0 -4.385516E-04 0.0 6.827281E-05 0.0 0.0 0.0 162 0 -4.371820E-04 0.0 3.946848E-05 0.0 0.0 0.0 163 0 -4.340140E-04 0.0 2.468377E-06 0.0 0.0 0.0 164 0 -4.309291E-04 0.0 -2.647610E-05 0.0 0.0 0.0 171 0 -3.982515E-04 0.0 7.587229E-05 0.0 0.0 0.0 172 0 -3.971026E-04 0.0 5.423255E-05 0.0 0.0 0.0 173 0 -3.924145E-04 0.0 -5.896935E-06 0.0 0.0 0.0 174 0 -3.903509E-04 0.0 -2.739516E-05 0.0 0.0 0.0 181 0 -3.559901E-04 0.0 7.995249E-05 0.0 0.0 0.0 182 0 -3.540304E-04 0.0 4.766057E-05 0.0 0.0 0.0 183 0 -3.512069E-04 0.0 6.246914E-06 0.0 0.0 0.0 184 0 -3.490655E-04 0.0 -2.568289E-05 0.0 0.0 0.0 191 0 -3.142677E-04 0.0 8.200743E-05 0.0 0.0 0.0 192 0 -3.122963E-04 0.0 5.545765E-05 0.0 0.0 0.0 193 0 -3.107817E-04 0.0 2.938565E-05 0.0 0.0 0.0 194 0 -3.091996E-04 0.0 3.524853E-06 0.0 0.0 0.0 195 0 -3.080492E-04 0.0 -2.271347E-05 0.0 0.0 0.0 201 0 -2.732557E-04 0.0 8.243632E-05 0.0 0.0 0.0 202 0 -2.718244E-04 0.0 5.706676E-05 0.0 0.0 0.0 203 0 -2.700643E-04 0.0 3.145271E-05 0.0 0.0 0.0 204 0 -2.691215E-04 0.0 6.513757E-06 0.0 0.0 0.0 205 0 -2.680303E-04 0.0 -1.903129E-05 0.0 0.0 0.0 211 0 -2.350818E-04 0.0 8.194652E-05 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 212 0 -2.329640E-04 0.0 5.775100E-05 0.0 0.0 0.0 213 0 -2.316318E-04 0.0 3.352477E-05 0.0 0.0 0.0 214 0 -2.306804E-04 0.0 9.609922E-06 0.0 0.0 0.0 215 0 -2.305112E-04 0.0 -1.445751E-05 0.0 0.0 0.0 221 0 -1.986081E-04 0.0 8.029921E-05 0.0 0.0 0.0 222 0 -1.967607E-04 0.0 5.307191E-05 0.0 0.0 0.0 223 0 -1.951992E-04 0.0 1.730681E-05 0.0 0.0 0.0 224 0 -1.946242E-04 0.0 -9.622861E-06 0.0 0.0 0.0 231 0 -1.658351E-04 0.0 7.775560E-05 0.0 0.0 0.0 235 0 -1.623857E-04 0.0 -4.456610E-06 0.0 0.0 0.0 241 0 -9.223618E-05 0.0 7.017923E-05 0.0 0.0 0.0 245 0 -9.046926E-05 0.0 7.920604E-06 0.0 0.0 0.0 251 0 -3.995549E-05 0.0 6.162796E-05 0.0 0.0 0.0 255 0 -3.918159E-05 0.0 1.882546E-05 0.0 0.0 0.0 261 0 -6.055541E-06 0.0 5.385317E-05 0.0 0.0 0.0 265 0 -5.954656E-06 0.0 2.729768E-05 0.0 0.0 0.0 271 0 1.308115E-05 0.0 4.732625E-05 0.0 0.0 0.0 275 0 1.281218E-05 0.0 3.351854E-05 0.0 0.0 0.0 281 0 2.160022E-05 0.0 4.266165E-05 0.0 0.0 0.0 285 0 2.116444E-05 0.0 3.738009E-05 0.0 0.0 0.0 291 0 2.322061E-05 0.0 3.938646E-05 0.0 0.0 0.0 295 0 2.275789E-05 0.0 3.969380E-05 0.0 0.0 0.0 301 0 2.084170E-05 0.0 3.753785E-05 0.0 0.0 0.0 305 0 2.042745E-05 0.0 4.063125E-05 0.0 0.0 0.0 311 0 1.667983E-05 0.0 3.655089E-05 0.0 0.0 0.0 315 0 1.634982E-05 0.0 4.085834E-05 0.0 0.0 0.0 321 0 1.208777E-05 0.0 3.628221E-05 0.0 0.0 0.0 325 0 1.184941E-05 0.0 4.055725E-05 0.0 0.0 0.0 331 0 7.940162E-06 0.0 3.637022E-05 0.0 0.0 0.0 335 0 7.784040E-06 0.0 4.007944E-05 0.0 0.0 0.0 341 0 4.588450E-06 0.0 3.667792E-05 0.0 0.0 0.0 345 0 4.498935E-06 0.0 3.953496E-05 0.0 0.0 0.0 351 0 2.161722E-06 0.0 3.705042E-05 0.0 0.0 0.0 355 0 2.119828E-06 0.0 3.903989E-05 0.0 0.0 0.0 361 0 5.790248E-07 0.0 3.740845E-05 0.0 0.0 0.0 365 0 5.684814E-07 0.0 3.863783E-05 0.0 0.0 0.0 371 0 -2.978372E-07 0.0 3.771954E-05 0.0 0.0 0.0 375 0 -2.914345E-07 0.0 3.832925E-05 0.0 0.0 0.0 381 0 -6.424745E-07 0.0 3.795162E-05 0.0 0.0 0.0 385 0 -6.293026E-07 0.0 3.812174E-05 0.0 0.0 0.0 391 0 -6.172078E-07 0.0 3.811877E-05 0.0 0.0 0.0 395 0 -6.047889E-07 0.0 3.798357E-05 0.0 0.0 0.0 401 0 -3.624995E-07 0.0 3.821006E-05 0.0 0.0 0.0 405 0 -3.551966E-07 0.0 3.791386E-05 0.0 0.0 0.0 411 0 0.0 0.0 3.824411E-05 0.0 0.0 0.0 412 0 0.0 0.0 3.816782E-05 0.0 0.0 0.0 413 0 0.0 0.0 3.806505E-05 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 414 0 0.0 0.0 3.796290E-05 0.0 0.0 0.0 415 0 0.0 0.0 3.788779E-05 0.0 0.0 0.0 111 1 -2.023812E-03 1.082920E-03 0.0 0.0 0.0 0.0 112 1 -2.022980E-03 1.070008E-03 0.0 0.0 0.0 0.0 113 1 -2.008777E-03 1.033198E-03 0.0 0.0 0.0 0.0 114 1 -1.999541E-03 1.020594E-03 0.0 0.0 0.0 0.0 121 1 -2.013813E-03 1.081568E-03 2.485723E-05 0.0 0.0 0.0 122 1 -2.011517E-03 1.062935E-03 9.900688E-06 0.0 0.0 0.0 123 1 -2.001585E-03 1.038470E-03 -9.301376E-06 0.0 0.0 0.0 124 1 -1.990172E-03 1.020161E-03 -2.409581E-05 0.0 0.0 0.0 131 1 -1.984361E-03 1.078282E-03 4.894155E-05 0.0 0.0 0.0 132 1 -1.983281E-03 1.065846E-03 2.865407E-05 0.0 0.0 0.0 133 1 -1.969558E-03 1.030321E-03 -2.767655E-05 0.0 0.0 0.0 134 1 -1.960860E-03 1.018182E-03 -4.764227E-05 0.0 0.0 0.0 141 1 -1.936454E-03 1.072428E-03 6.986472E-05 0.0 0.0 0.0 142 1 -1.933639E-03 1.055100E-03 2.754114E-05 0.0 0.0 0.0 143 1 -1.924362E-03 1.032334E-03 -2.670683E-05 0.0 0.0 0.0 144 1 -1.914347E-03 1.015310E-03 -6.868541E-05 0.0 0.0 0.0 151 1 -1.872179E-03 1.064779E-03 8.831793E-05 0.0 0.0 0.0 152 1 -1.870282E-03 1.053689E-03 5.124283E-05 0.0 0.0 0.0 153 1 -1.857776E-03 1.021782E-03 -5.116055E-05 0.0 0.0 0.0 154 1 -1.850824E-03 1.010963E-03 -8.812908E-05 0.0 0.0 0.0 161 1 -1.794786E-03 1.054954E-03 1.002051E-04 0.0 0.0 0.0 162 1 -1.790610E-03 1.040000E-03 3.864597E-05 0.0 0.0 0.0 163 1 -1.781734E-03 1.020317E-03 -4.057406E-05 0.0 0.0 0.0 164 1 -1.773219E-03 1.005650E-03 -1.023793E-04 0.0 0.0 0.0 171 1 -1.708693E-03 1.043624E-03 1.084029E-04 0.0 0.0 0.0 172 1 -1.705499E-03 1.034442E-03 6.194985E-05 0.0 0.0 0.0 173 1 -1.692396E-03 1.007888E-03 -6.776991E-05 0.0 0.0 0.0 174 1 -1.686629E-03 9.989867E-04 -1.139635E-04 0.0 0.0 0.0 181 1 -1.617645E-03 1.030338E-03 1.095919E-04 0.0 0.0 0.0 182 1 -1.612274E-03 1.018731E-03 3.955777E-05 0.0 0.0 0.0 183 1 -1.604091E-03 1.002965E-03 -5.060148E-05 0.0 0.0 0.0 184 1 -1.597555E-03 9.914088E-04 -1.203000E-04 0.0 0.0 0.0 191 1 -1.526690E-03 1.016436E-03 1.066872E-04 0.0 0.0 0.0 192 1 -1.521576E-03 1.008050E-03 4.878697E-05 0.0 0.0 0.0 193 1 -1.517114E-03 9.992631E-04 -8.916278E-06 0.0 0.0 0.0 194 1 -1.512230E-03 9.907081E-04 -6.584316E-05 0.0 0.0 0.0 195 1 -1.507909E-03 9.821594E-04 -1.235802E-04 0.0 0.0 0.0 201 1 -1.435992E-03 9.999756E-04 9.990401E-05 0.0 0.0 0.0 202 1 -1.432360E-03 9.952766E-04 4.566492E-05 0.0 0.0 0.0 203 1 -1.427629E-03 9.862923E-04 -1.310840E-05 0.0 0.0 0.0 204 1 -1.423853E-03 9.792371E-04 -6.853170E-05 0.0 0.0 0.0 205 1 -1.419895E-03 9.720632E-04 -1.254705E-04 0.0 0.0 0.0 211 1 -1.350139E-03 9.870441E-04 9.372631E-05 0.0 0.0 0.0 212 1 -1.345098E-03 9.814553E-04 3.957934E-05 0.0 0.0 0.0 213 1 -1.341013E-03 9.741326E-04 -1.621949E-05 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 214 1 -1.337620E-03 9.675386E-04 -7.074579E-05 0.0 0.0 0.0 215 1 -1.335258E-03 9.613029E-04 -1.254581E-04 0.0 0.0 0.0 221 1 -1.267173E-03 9.704357E-04 8.438526E-05 0.0 0.0 0.0 222 1 -1.261734E-03 9.641183E-04 2.127889E-05 0.0 0.0 0.0 223 1 -1.256258E-03 9.554587E-04 -6.208143E-05 0.0 0.0 0.0 224 1 -1.253053E-03 9.493112E-04 -1.247464E-04 0.0 0.0 0.0 231 1 -1.189796E-03 9.531777E-04 7.307191E-05 0.0 0.0 0.0 235 1 -1.176947E-03 9.361667E-04 -1.230221E-04 0.0 0.0 0.0 241 1 -1.007994E-03 9.045953E-04 4.096163E-05 0.0 0.0 0.0 245 1 -9.987068E-04 8.972173E-04 -1.201426E-04 0.0 0.0 0.0 251 1 -8.642232E-04 8.545169E-04 7.768960E-06 0.0 0.0 0.0 255 1 -8.571889E-04 8.535925E-04 -1.185341E-04 0.0 0.0 0.0 261 1 -7.536694E-04 8.035122E-04 -2.327952E-05 0.0 0.0 0.0 265 1 -7.483101E-04 8.066737E-04 -1.201170E-04 0.0 0.0 0.0 271 1 -6.700419E-04 7.520493E-04 -5.104342E-05 0.0 0.0 0.0 275 1 -6.657694E-04 7.575683E-04 -1.246653E-04 0.0 0.0 0.0 281 1 -6.058440E-04 7.004527E-04 -7.436665E-05 0.0 0.0 0.0 285 1 -6.022704E-04 7.068742E-04 -1.323842E-04 0.0 0.0 0.0 291 1 -5.543032E-04 6.486670E-04 -9.403375E-05 0.0 0.0 0.0 295 1 -5.511550E-04 6.551719E-04 -1.418427E-04 0.0 0.0 0.0 301 1 -5.100676E-04 5.967000E-04 -1.099739E-04 0.0 0.0 0.0 305 1 -5.071937E-04 6.027051E-04 -1.527362E-04 0.0 0.0 0.0 311 1 -4.690232E-04 5.444210E-04 -1.232022E-04 0.0 0.0 0.0 315 1 -4.663463E-04 5.496946E-04 -1.638614E-04 0.0 0.0 0.0 321 1 -4.286207E-04 4.917696E-04 -1.339900E-04 0.0 0.0 0.0 325 1 -4.261188E-04 4.962141E-04 -1.748893E-04 0.0 0.0 0.0 331 1 -3.871935E-04 4.386774E-04 -1.429987E-04 0.0 0.0 0.0 335 1 -3.848767E-04 4.423227E-04 -1.851741E-04 0.0 0.0 0.0 341 1 -3.440471E-04 3.851178E-04 -1.504958E-04 0.0 0.0 0.0 345 1 -3.419393E-04 3.880448E-04 -1.945077E-04 0.0 0.0 0.0 351 1 -2.989104E-04 3.310977E-04 -1.567661E-04 0.0 0.0 0.0 355 1 -2.970427E-04 3.333999E-04 -2.026706E-04 0.0 0.0 0.0 361 1 -2.519227E-04 2.766404E-04 -1.619773E-04 0.0 0.0 0.0 365 1 -2.503231E-04 2.784185E-04 -2.095676E-04 0.0 0.0 0.0 371 1 -2.033460E-04 2.218017E-04 -1.661848E-04 0.0 0.0 0.0 375 1 -2.020396E-04 2.231312E-04 -2.151943E-04 0.0 0.0 0.0 381 1 -1.535324E-04 1.666400E-04 -1.694734E-04 0.0 0.0 0.0 385 1 -1.525373E-04 1.675882E-04 -2.195172E-04 0.0 0.0 0.0 391 1 -1.028267E-04 1.112335E-04 -1.718056E-04 0.0 0.0 0.0 395 1 -1.021566E-04 1.118414E-04 -2.225983E-04 0.0 0.0 0.0 401 1 -5.155101E-05 5.565857E-05 -1.732279E-04 0.0 0.0 0.0 405 1 -5.121392E-05 5.595644E-05 -2.244194E-04 0.0 0.0 0.0 411 1 0.0 0.0 -1.736874E-04 0.0 0.0 0.0 412 1 0.0 0.0 -1.839989E-04 0.0 0.0 0.0 413 1 0.0 0.0 -1.994050E-04 0.0 0.0 0.0 414 1 0.0 0.0 -2.147771E-04 0.0 0.0 0.0 415 1 0.0 0.0 -2.250372E-04 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 111 2 -7.155533E-03 3.636908E-03 0.0 0.0 0.0 0.0 112 2 -7.156213E-03 3.489951E-03 0.0 0.0 0.0 0.0 113 2 -7.132606E-03 3.056334E-03 0.0 0.0 0.0 0.0 114 2 -7.116085E-03 2.910346E-03 0.0 0.0 0.0 0.0 121 2 -7.143202E-03 3.633314E-03 8.473204E-06 0.0 0.0 0.0 122 2 -7.141686E-03 3.415511E-03 -9.962181E-06 0.0 0.0 0.0 123 2 -7.125545E-03 3.126389E-03 -3.378330E-05 0.0 0.0 0.0 124 2 -7.104290E-03 2.909584E-03 -5.205877E-05 0.0 0.0 0.0 131 2 -7.107306E-03 3.625607E-03 1.626655E-05 0.0 0.0 0.0 132 2 -7.107725E-03 3.479816E-03 -8.690200E-06 0.0 0.0 0.0 133 2 -7.084597E-03 3.049401E-03 -7.890531E-05 0.0 0.0 0.0 134 2 -7.068626E-03 2.904557E-03 -1.035439E-04 0.0 0.0 0.0 141 2 -7.048259E-03 3.610979E-03 2.103647E-05 0.0 0.0 0.0 142 2 -7.046192E-03 3.396423E-03 -3.177899E-05 0.0 0.0 0.0 143 2 -7.030706E-03 3.111546E-03 -9.995645E-05 0.0 0.0 0.0 144 2 -7.010879E-03 2.897948E-03 -1.524297E-04 0.0 0.0 0.0 151 2 -6.968666E-03 3.592494E-03 2.360965E-05 0.0 0.0 0.0 152 2 -6.968229E-03 3.450038E-03 -2.288238E-05 0.0 0.0 0.0 153 2 -6.946321E-03 3.028772E-03 -1.532661E-04 0.0 0.0 0.0 154 2 -6.932128E-03 2.887213E-03 -1.996362E-04 0.0 0.0 0.0 161 2 -6.871135E-03 3.567849E-03 1.988579E-05 0.0 0.0 0.0 162 2 -6.867671E-03 3.359328E-03 -5.936393E-05 0.0 0.0 0.0 163 2 -6.852607E-03 3.082332E-03 -1.620166E-04 0.0 0.0 0.0 164 2 -6.834385E-03 2.874736E-03 -2.414403E-04 0.0 0.0 0.0 171 2 -6.760549E-03 3.539874E-03 1.283057E-05 0.0 0.0 0.0 172 2 -6.758753E-03 3.402327E-03 -4.787798E-05 0.0 0.0 0.0 173 2 -6.736490E-03 2.995022E-03 -2.200108E-04 0.0 0.0 0.0 174 2 -6.723501E-03 2.858383E-03 -2.805300E-04 0.0 0.0 0.0 181 2 -6.640286E-03 3.506165E-03 -8.309664E-07 0.0 0.0 0.0 182 2 -6.635356E-03 3.306241E-03 -9.624131E-05 0.0 0.0 0.0 183 2 -6.620986E-03 3.039806E-03 -2.186361E-04 0.0 0.0 0.0 184 2 -6.605159E-03 2.840465E-03 -3.146699E-04 0.0 0.0 0.0 191 2 -6.514345E-03 3.470884E-03 -1.877318E-05 0.0 0.0 0.0 192 2 -6.511034E-03 3.307469E-03 -9.988827E-05 0.0 0.0 0.0 193 2 -6.504214E-03 3.144032E-03 -1.818036E-04 0.0 0.0 0.0 194 2 -6.493942E-03 2.981214E-03 -2.623099E-04 0.0 0.0 0.0 195 2 -6.480460E-03 2.817818E-03 -3.441529E-04 0.0 0.0 0.0 201 2 -6.385573E-03 3.429069E-03 -4.160216E-05 0.0 0.0 0.0 202 2 -6.383093E-03 3.274338E-03 -1.182357E-04 0.0 0.0 0.0 203 2 -6.377385E-03 3.111368E-03 -2.069925E-04 0.0 0.0 0.0 204 2 -6.367048E-03 2.952654E-03 -2.885461E-04 0.0 0.0 0.0 205 2 -6.355658E-03 2.793350E-03 -3.723977E-04 0.0 0.0 0.0 211 2 -6.255637E-03 3.393317E-03 -5.883423E-05 0.0 0.0 0.0 212 2 -6.253083E-03 3.237932E-03 -1.414258E-04 0.0 0.0 0.0 213 2 -6.246559E-03 3.079832E-03 -2.288465E-04 0.0 0.0 0.0 214 2 -6.238373E-03 2.923320E-03 -3.136754E-04 0.0 0.0 0.0 215 2 -6.226872E-03 2.766979E-03 -3.984663E-04 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 221 2 -6.126705E-03 3.349198E-03 -8.083762E-05 0.0 0.0 0.0 222 2 -6.120893E-03 3.165367E-03 -1.838159E-04 0.0 0.0 0.0 223 2 -6.109598E-03 2.920908E-03 -3.206055E-04 0.0 0.0 0.0 224 2 -6.097771E-03 2.737860E-03 -4.234491E-04 0.0 0.0 0.0 231 2 -5.995256E-03 3.302973E-03 -1.051018E-04 0.0 0.0 0.0 235 2 -5.968137E-03 2.705506E-03 -4.464671E-04 0.0 0.0 0.0 241 2 -5.653967E-03 3.167993E-03 -1.738915E-04 0.0 0.0 0.0 245 2 -5.630789E-03 2.610294E-03 -5.054275E-04 0.0 0.0 0.0 251 2 -5.325994E-03 3.023715E-03 -2.415463E-04 0.0 0.0 0.0 255 2 -5.305722E-03 2.500466E-03 -5.611724E-04 0.0 0.0 0.0 261 2 -5.010235E-03 2.870248E-03 -3.059025E-04 0.0 0.0 0.0 265 2 -4.992393E-03 2.380133E-03 -6.153396E-04 0.0 0.0 0.0 271 2 -4.703226E-03 2.709936E-03 -3.650312E-04 0.0 0.0 0.0 275 2 -4.687328E-03 2.250701E-03 -6.683234E-04 0.0 0.0 0.0 281 2 -4.400340E-03 2.543054E-03 -4.184027E-04 0.0 0.0 0.0 285 2 -4.385998E-03 2.114297E-03 -7.198876E-04 0.0 0.0 0.0 291 2 -4.097214E-03 2.370826E-03 -4.660377E-04 0.0 0.0 0.0 295 2 -4.084224E-03 1.971602E-03 -7.694709E-04 0.0 0.0 0.0 301 2 -3.790586E-03 2.193059E-03 -5.083278E-04 0.0 0.0 0.0 305 2 -3.778754E-03 1.824036E-03 -8.164475E-04 0.0 0.0 0.0 311 2 -3.477955E-03 2.010679E-03 -5.455845E-04 0.0 0.0 0.0 315 2 -3.467235E-03 1.671766E-03 -8.603883E-04 0.0 0.0 0.0 321 2 -3.158121E-03 1.823439E-03 -5.784977E-04 0.0 0.0 0.0 325 2 -3.148435E-03 1.515816E-03 -9.006331E-04 0.0 0.0 0.0 331 2 -2.830425E-03 1.632215E-03 -6.071265E-04 0.0 0.0 0.0 335 2 -2.821796E-03 1.356161E-03 -9.371637E-04 0.0 0.0 0.0 341 2 -2.495080E-03 1.436887E-03 -6.321803E-04 0.0 0.0 0.0 345 2 -2.487480E-03 1.193622E-03 -9.693787E-04 0.0 0.0 0.0 351 2 -2.152531E-03 1.238312E-03 -6.534187E-04 0.0 0.0 0.0 355 2 -2.145999E-03 1.028180E-03 -9.975842E-04 0.0 0.0 0.0 361 2 -1.803663E-03 1.036542E-03 -6.714938E-04 0.0 0.0 0.0 365 2 -1.798187E-03 8.605447E-04 -1.021231E-03 0.0 0.0 0.0 371 2 -1.449397E-03 8.323837E-04 -6.859684E-04 0.0 0.0 0.0 375 2 -1.445010E-03 6.907936E-04 -1.040800E-03 0.0 0.0 0.0 381 2 -1.090827E-03 6.260496E-04 -6.974437E-04 0.0 0.0 0.0 385 2 -1.087522E-03 5.195512E-04 -1.055765E-03 0.0 0.0 0.0 391 2 -7.290063E-04 4.182613E-04 -7.053888E-04 0.0 0.0 0.0 395 2 -7.268038E-04 3.470167E-04 -1.066671E-03 0.0 0.0 0.0 401 2 -3.650416E-04 2.093745E-04 -7.103796E-04 0.0 0.0 0.0 405 2 -3.639372E-04 1.737257E-04 -1.072991E-03 0.0 0.0 0.0 411 2 0.0 0.0 -7.118536E-04 0.0 0.0 0.0 412 2 0.0 0.0 -7.848515E-04 0.0 0.0 0.0 413 2 0.0 0.0 -8.936951E-04 0.0 0.0 0.0 414 2 0.0 0.0 -1.002442E-03 0.0 0.0 0.0 415 2 0.0 0.0 -1.075277E-03 0.0 0.0 0.0 111 3 -8.347357E-03 3.409247E-03 0.0 0.0 0.0 0.0 112 3 -8.357818E-03 3.111519E-03 0.0 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 113 3 -8.340114E-03 2.236106E-03 0.0 0.0 0.0 0.0 114 3 -8.318717E-03 1.939509E-03 0.0 0.0 0.0 0.0 121 3 -8.334165E-03 3.403754E-03 1.325129E-05 0.0 0.0 0.0 122 3 -8.344774E-03 2.963718E-03 -6.166330E-06 0.0 0.0 0.0 123 3 -8.332676E-03 2.379338E-03 -3.127547E-05 0.0 0.0 0.0 124 3 -8.305859E-03 1.940331E-03 -5.055369E-05 0.0 0.0 0.0 131 3 -8.296559E-03 3.395771E-03 2.593692E-05 0.0 0.0 0.0 132 3 -8.306719E-03 3.099945E-03 -3.778074E-07 0.0 0.0 0.0 133 3 -8.289449E-03 2.229775E-03 -7.450864E-05 0.0 0.0 0.0 134 3 -8.268605E-03 1.935051E-03 -1.005442E-04 0.0 0.0 0.0 141 3 -8.234018E-03 3.377178E-03 3.575276E-05 0.0 0.0 0.0 142 3 -8.243975E-03 2.942459E-03 -2.011247E-05 0.0 0.0 0.0 143 3 -8.232470E-03 2.365044E-03 -9.229027E-05 0.0 0.0 0.0 144 3 -8.207085E-03 1.931304E-03 -1.478707E-04 0.0 0.0 0.0 151 3 -8.149951E-03 3.356409E-03 4.369766E-05 0.0 0.0 0.0 152 3 -8.159142E-03 3.066055E-03 -5.642382E-06 0.0 0.0 0.0 153 3 -8.142962E-03 2.210955E-03 -1.442569E-04 0.0 0.0 0.0 154 3 -8.123910E-03 1.921636E-03 -1.935457E-04 0.0 0.0 0.0 161 3 -8.046004E-03 3.326120E-03 4.561595E-05 0.0 0.0 0.0 162 3 -8.054352E-03 2.901362E-03 -3.903346E-05 0.0 0.0 0.0 163 3 -8.043163E-03 2.336997E-03 -1.487675E-04 0.0 0.0 0.0 164 3 -8.019417E-03 1.913182E-03 -2.336885E-04 0.0 0.0 0.0 171 3 -7.927725E-03 3.294268E-03 4.474368E-05 0.0 0.0 0.0 172 3 -7.935405E-03 3.012143E-03 -2.061498E-05 0.0 0.0 0.0 173 3 -7.918642E-03 2.180245E-03 -2.059269E-04 0.0 0.0 0.0 174 3 -7.900840E-03 1.899165E-03 -2.711595E-04 0.0 0.0 0.0 181 3 -7.797647E-03 3.253781E-03 3.825746E-05 0.0 0.0 0.0 182 3 -7.803980E-03 2.842922E-03 -6.687733E-05 0.0 0.0 0.0 183 3 -7.793372E-03 2.296557E-03 -1.984324E-04 0.0 0.0 0.0 184 3 -7.772271E-03 1.886361E-03 -3.039435E-04 0.0 0.0 0.0 191 3 -7.657312E-03 3.213700E-03 2.817973E-05 0.0 0.0 0.0 192 3 -7.666024E-03 2.875834E-03 -6.303258E-05 0.0 0.0 0.0 193 3 -7.663905E-03 2.539955E-03 -1.523264E-04 0.0 0.0 0.0 194 3 -7.653443E-03 2.204843E-03 -2.410575E-04 0.0 0.0 0.0 195 3 -7.633603E-03 1.867053E-03 -3.320757E-04 0.0 0.0 0.0 201 3 -7.515794E-03 3.165409E-03 1.516556E-05 0.0 0.0 0.0 202 3 -7.521686E-03 2.840327E-03 -7.675072E-05 0.0 0.0 0.0 203 3 -7.522066E-03 2.506228E-03 -1.721375E-04 0.0 0.0 0.0 204 3 -7.510269E-03 2.178013E-03 -2.642494E-04 0.0 0.0 0.0 205 3 -7.494480E-03 1.847549E-03 -3.587750E-04 0.0 0.0 0.0 211 3 -7.367080E-03 3.124502E-03 3.843824E-06 0.0 0.0 0.0 212 3 -7.375553E-03 2.800375E-03 -9.222496E-05 0.0 0.0 0.0 213 3 -7.373428E-03 2.475182E-03 -1.899513E-04 0.0 0.0 0.0 214 3 -7.364965E-03 2.151778E-03 -2.862648E-04 0.0 0.0 0.0 215 3 -7.347312E-03 1.826680E-03 -3.829864E-04 0.0 0.0 0.0 221 3 -7.219622E-03 3.074137E-03 -1.033577E-05 0.0 0.0 0.0 222 3 -7.224790E-03 2.691989E-03 -1.297862E-04 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 223 3 -7.216833E-03 2.185441E-03 -2.869262E-04 0.0 0.0 0.0 224 3 -7.200152E-03 1.804051E-03 -4.060360E-04 0.0 0.0 0.0 231 3 -7.065194E-03 3.022662E-03 -2.602356E-05 0.0 0.0 0.0 235 3 -7.047505E-03 1.777825E-03 -4.267163E-04 0.0 0.0 0.0 241 3 -6.656891E-03 2.871207E-03 -7.341433E-05 0.0 0.0 0.0 245 3 -6.642473E-03 1.705082E-03 -4.751254E-04 0.0 0.0 0.0 251 3 -6.251246E-03 2.715330E-03 -1.193335E-04 0.0 0.0 0.0 255 3 -6.239557E-03 1.619237E-03 -5.177447E-04 0.0 0.0 0.0 261 3 -5.851645E-03 2.552041E-03 -1.631106E-04 0.0 0.0 0.0 265 3 -5.842095E-03 1.528251E-03 -5.553955E-04 0.0 0.0 0.0 271 3 -5.457837E-03 2.387095E-03 -2.019793E-04 0.0 0.0 0.0 275 3 -5.450076E-03 1.431098E-03 -5.901007E-04 0.0 0.0 0.0 281 3 -5.068336E-03 2.218511E-03 -2.367167E-04 0.0 0.0 0.0 285 3 -5.061863E-03 1.332278E-03 -6.211266E-04 0.0 0.0 0.0 291 3 -4.681299E-03 2.050113E-03 -2.663613E-04 0.0 0.0 0.0 295 3 -4.675969E-03 1.230307E-03 -6.496555E-04 0.0 0.0 0.0 301 3 -4.295334E-03 1.879567E-03 -2.923227E-04 0.0 0.0 0.0 305 3 -4.290812E-03 1.128479E-03 -6.747277E-04 0.0 0.0 0.0 311 3 -3.909197E-03 1.709772E-03 -3.140037E-04 0.0 0.0 0.0 315 3 -3.905448E-03 1.025029E-03 -6.974448E-04 0.0 0.0 0.0 321 3 -3.522343E-03 1.538518E-03 -3.329533E-04 0.0 0.0 0.0 325 3 -3.519145E-03 9.224078E-04 -7.168191E-04 0.0 0.0 0.0 331 3 -3.134319E-03 1.368106E-03 -3.484699E-04 0.0 0.0 0.0 335 3 -3.131685E-03 8.188906E-04 -7.340803E-04 0.0 0.0 0.0 341 3 -2.745158E-03 1.196663E-03 -3.620474E-04 0.0 0.0 0.0 345 3 -2.742935E-03 7.163174E-04 -7.482421E-04 0.0 0.0 0.0 351 3 -2.354854E-03 1.025985E-03 -3.728083E-04 0.0 0.0 0.0 355 3 -2.353066E-03 6.132067E-04 -7.606234E-04 0.0 0.0 0.0 361 3 -1.963649E-03 8.546109E-04 -3.821468E-04 0.0 0.0 0.0 365 3 -1.962191E-03 5.109038E-04 -7.702236E-04 0.0 0.0 0.0 371 3 -1.571681E-03 6.838434E-04 -3.890543E-04 0.0 0.0 0.0 375 3 -1.570575E-03 4.082710E-04 -7.783731E-04 0.0 0.0 0.0 381 3 -1.179190E-03 5.126534E-04 -3.948353E-04 0.0 0.0 0.0 385 3 -1.178366E-03 3.062083E-04 -7.840349E-04 0.0 0.0 0.0 391 3 -7.863112E-04 3.418550E-04 -3.984011E-04 0.0 0.0 0.0 395 3 -7.857832E-04 2.039635E-04 -7.884980E-04 0.0 0.0 0.0 401 3 -3.932122E-04 1.708597E-04 -4.009879E-04 0.0 0.0 0.0 405 3 -3.929459E-04 1.020110E-04 -7.906724E-04 0.0 0.0 0.0 411 3 0.0 0.0 -4.014552E-04 0.0 0.0 0.0 412 3 0.0 0.0 -4.800372E-04 0.0 0.0 0.0 413 3 0.0 0.0 -5.966243E-04 0.0 0.0 0.0 414 3 0.0 0.0 -7.132256E-04 0.0 0.0 0.0 415 3 0.0 0.0 -7.917819E-04 0.0 0.0 0.0 111 4 -4.100843E-03 1.475338E-03 0.0 0.0 0.0 0.0 112 4 -4.112401E-03 1.270173E-03 0.0 0.0 0.0 0.0 113 4 -4.104022E-03 6.748437E-04 0.0 0.0 0.0 0.0 114 4 -4.087587E-03 4.704577E-04 0.0 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 121 4 -4.089800E-03 1.469961E-03 1.842402E-05 0.0 0.0 0.0 122 4 -4.102664E-03 1.169816E-03 2.324012E-06 0.0 0.0 0.0 123 4 -4.096758E-03 7.719685E-04 -1.838205E-05 0.0 0.0 0.0 124 4 -4.076871E-03 4.724278E-04 -3.437253E-05 0.0 0.0 0.0 131 4 -4.058345E-03 1.463825E-03 3.639535E-05 0.0 0.0 0.0 132 4 -4.069575E-03 1.260828E-03 1.448034E-05 0.0 0.0 0.0 133 4 -4.061554E-03 6.713888E-04 -4.654401E-05 0.0 0.0 0.0 134 4 -4.045648E-03 4.691367E-04 -6.823762E-05 0.0 0.0 0.0 141 4 -4.006122E-03 1.447385E-03 5.173257E-05 0.0 0.0 0.0 142 4 -4.018256E-03 1.153232E-03 5.614758E-06 0.0 0.0 0.0 143 4 -4.012843E-03 7.632163E-04 -5.362291E-05 0.0 0.0 0.0 144 4 -3.994315E-03 4.696135E-04 -9.953995E-05 0.0 0.0 0.0 151 4 -3.936118E-03 1.430496E-03 6.551614E-05 0.0 0.0 0.0 152 4 -3.946301E-03 1.233714E-03 2.470649E-05 0.0 0.0 0.0 153 4 -3.939158E-03 6.611336E-04 -8.848374E-05 0.0 0.0 0.0 154 4 -3.924969E-03 4.650260E-04 -1.293500E-04 0.0 0.0 0.0 161 4 -3.850042E-03 1.404618E-03 7.368752E-05 0.0 0.0 0.0 162 4 -3.860409E-03 1.121610E-03 4.652504E-06 0.0 0.0 0.0 163 4 -3.855136E-03 7.461710E-04 -8.435581E-05 0.0 0.0 0.0 164 4 -3.838114E-03 4.636949E-04 -1.538193E-04 0.0 0.0 0.0 171 4 -3.752915E-03 1.378910E-03 7.954736E-05 0.0 0.0 0.0 172 4 -3.761465E-03 1.191390E-03 2.633837E-05 0.0 0.0 0.0 173 4 -3.753331E-03 6.444960E-04 -1.226113E-04 0.0 0.0 0.0 174 4 -3.740344E-03 4.576792E-04 -1.757983E-04 0.0 0.0 0.0 181 4 -3.647197E-03 1.345397E-03 8.025033E-05 0.0 0.0 0.0 182 4 -3.655386E-03 1.077682E-03 -4.107626E-06 0.0 0.0 0.0 183 4 -3.650459E-03 7.220882E-04 -1.086227E-04 0.0 0.0 0.0 184 4 -3.635762E-03 4.546819E-04 -1.929441E-04 0.0 0.0 0.0 191 4 -3.534468E-03 1.314169E-03 7.824883E-05 0.0 0.0 0.0 192 4 -3.543970E-03 1.095811E-03 5.434177E-06 0.0 0.0 0.0 193 4 -3.544574E-03 8.798215E-04 -6.449041E-05 0.0 0.0 0.0 194 4 -3.538317E-03 6.644090E-04 -1.343336E-04 0.0 0.0 0.0 195 4 -3.524507E-03 4.459555E-04 -2.064466E-04 0.0 0.0 0.0 201 4 -3.422556E-03 1.276332E-03 7.456625E-05 0.0 0.0 0.0 202 4 -3.429209E-03 1.070570E-03 1.551218E-07 0.0 0.0 0.0 203 4 -3.431472E-03 8.571797E-04 -7.239011E-05 0.0 0.0 0.0 204 4 -3.424468E-03 6.490246E-04 -1.442096E-04 0.0 0.0 0.0 205 4 -3.413826E-03 4.383489E-04 -2.182718E-04 0.0 0.0 0.0 211 4 -3.306531E-03 1.245836E-03 6.969529E-05 0.0 0.0 0.0 212 4 -3.314995E-03 1.042038E-03 -5.219967E-06 0.0 0.0 0.0 213 4 -3.315427E-03 8.379032E-04 -7.937845E-05 0.0 0.0 0.0 214 4 -3.310743E-03 6.351711E-04 -1.530449E-04 0.0 0.0 0.0 215 4 -3.299122E-03 4.304161E-04 -2.275839E-04 0.0 0.0 0.0 221 4 -3.192576E-03 1.208220E-03 6.349404E-05 0.0 0.0 0.0 222 4 -3.199377E-03 9.713770E-04 -2.724679E-05 0.0 0.0 0.0 223 4 -3.196427E-03 6.584604E-04 -1.454487E-04 0.0 0.0 0.0 224 4 -3.185841E-03 4.219000E-04 -2.358010E-04 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 231 4 -3.075830E-03 1.171064E-03 5.642504E-05 0.0 0.0 0.0 235 4 -3.070358E-03 4.109438E-04 -2.419518E-04 0.0 0.0 0.0 241 4 -2.775980E-03 1.064656E-03 3.393706E-05 0.0 0.0 0.0 245 4 -2.772668E-03 3.840810E-04 -2.518873E-04 0.0 0.0 0.0 251 4 -2.492371E-03 9.634795E-04 1.270102E-05 0.0 0.0 0.0 255 4 -2.490894E-03 3.505813E-04 -2.564082E-04 0.0 0.0 0.0 261 4 -2.228804E-03 8.642884E-04 -7.395378E-06 0.0 0.0 0.0 265 4 -2.228629E-03 3.175350E-04 -2.559280E-04 0.0 0.0 0.0 271 4 -1.986046E-03 7.719790E-04 -2.377778E-05 0.0 0.0 0.0 275 4 -1.986868E-03 2.834632E-04 -2.532327E-04 0.0 0.0 0.0 281 4 -1.763050E-03 6.845332E-04 -3.763089E-05 0.0 0.0 0.0 285 4 -1.764471E-03 2.517716E-04 -2.478437E-04 0.0 0.0 0.0 291 4 -1.558524E-03 6.046026E-04 -4.802379E-05 0.0 0.0 0.0 295 4 -1.560390E-03 2.209499E-04 -2.414914E-04 0.0 0.0 0.0 301 4 -1.370760E-03 5.299751E-04 -5.632900E-05 0.0 0.0 0.0 305 4 -1.372815E-03 1.931788E-04 -2.336665E-04 0.0 0.0 0.0 311 4 -1.198247E-03 4.622144E-04 -6.210622E-05 0.0 0.0 0.0 315 4 -1.200420E-03 1.669357E-04 -2.256488E-04 0.0 0.0 0.0 321 4 -1.039412E-03 3.992876E-04 -6.656922E-05 0.0 0.0 0.0 325 4 -1.041541E-03 1.436107E-04 -2.169977E-04 0.0 0.0 0.0 331 4 -8.928771E-04 3.421169E-04 -6.938055E-05 0.0 0.0 0.0 335 4 -8.949355E-04 1.218397E-04 -2.087517E-04 0.0 0.0 0.0 341 4 -7.572197E-04 2.889723E-04 -7.151263E-05 0.0 0.0 0.0 345 4 -7.591039E-04 1.024990E-04 -2.005335E-04 0.0 0.0 0.0 351 4 -6.311408E-04 2.403332E-04 -7.263914E-05 0.0 0.0 0.0 355 4 -6.328421E-04 8.446640E-05 -1.931913E-04 0.0 0.0 0.0 361 4 -5.132678E-04 1.947803E-04 -7.351228E-05 0.0 0.0 0.0 365 4 -5.147199E-04 6.826047E-05 -1.863880E-04 0.0 0.0 0.0 371 4 -4.022968E-04 1.524484E-04 -7.380732E-05 0.0 0.0 0.0 375 4 -4.034978E-04 5.301580E-05 -1.808043E-04 0.0 0.0 0.0 381 4 -2.968479E-04 1.122014E-04 -7.410570E-05 0.0 0.0 0.0 385 4 -2.977579E-04 3.897755E-05 -1.761189E-04 0.0 0.0 0.0 391 4 -1.955777E-04 7.388621E-05 -7.408134E-05 0.0 0.0 0.0 395 4 -1.961968E-04 2.552158E-05 -1.728736E-04 0.0 0.0 0.0 401 4 -9.708873E-05 3.662124E-05 -7.419509E-05 0.0 0.0 0.0 405 4 -9.739821E-05 1.266348E-05 -1.707375E-04 0.0 0.0 0.0 411 4 0.0 0.0 -7.410512E-05 0.0 0.0 0.0 412 4 0.0 0.0 -9.345532E-05 0.0 0.0 0.0 413 4 0.0 0.0 -1.220752E-04 0.0 0.0 0.0 414 4 0.0 0.0 -1.507444E-04 0.0 0.0 0.0 415 4 0.0 0.0 -1.701483E-04 0.0 0.0 0.0 111 5 -2.128634E-03 7.334673E-04 0.0 0.0 0.0 0.0 112 5 -2.138764E-03 5.975223E-04 0.0 0.0 0.0 0.0 113 5 -2.134838E-03 2.096654E-04 0.0 0.0 0.0 0.0 114 5 -2.122537E-03 7.423451E-05 0.0 0.0 0.0 0.0 121 5 -2.119891E-03 7.285578E-04 1.636297E-05 0.0 0.0 0.0 122 5 -2.131528E-03 5.322522E-04 3.741557E-06 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 123 5 -2.128556E-03 2.726860E-04 -1.238561E-05 0.0 0.0 0.0 124 5 -2.114131E-03 7.669732E-05 -2.492709E-05 0.0 0.0 0.0 131 5 -2.094962E-03 7.238967E-04 3.238510E-05 0.0 0.0 0.0 132 5 -2.104760E-03 5.901193E-04 1.511134E-05 0.0 0.0 0.0 133 5 -2.101113E-03 2.080517E-04 -3.232508E-05 0.0 0.0 0.0 134 5 -2.089290E-03 7.475585E-05 -4.943540E-05 0.0 0.0 0.0 141 5 -2.053674E-03 7.098949E-04 4.609598E-05 0.0 0.0 0.0 142 5 -2.064559E-03 5.195015E-04 1.011637E-05 0.0 0.0 0.0 143 5 -2.061976E-03 2.676417E-04 -3.577330E-05 0.0 0.0 0.0 144 5 -2.048776E-03 7.751526E-05 -7.163405E-05 0.0 0.0 0.0 151 5 -1.998457E-03 6.964020E-04 5.856982E-05 0.0 0.0 0.0 152 5 -2.007200E-03 5.688196E-04 2.664545E-05 0.0 0.0 0.0 153 5 -2.004209E-03 2.032317E-04 -6.051270E-05 0.0 0.0 0.0 154 5 -1.993957E-03 7.606626E-05 -9.259283E-05 0.0 0.0 0.0 161 5 -1.931023E-03 6.749899E-04 6.602002E-05 0.0 0.0 0.0 162 5 -1.940103E-03 4.954964E-04 1.293724E-05 0.0 0.0 0.0 163 5 -1.937484E-03 2.578559E-04 -5.505271E-05 0.0 0.0 0.0 164 5 -1.925558E-03 7.863934E-05 -1.086864E-04 0.0 0.0 0.0 171 5 -1.855699E-03 6.546361E-04 7.159887E-05 0.0 0.0 0.0 172 5 -1.862785E-03 5.361683E-04 3.079295E-05 0.0 0.0 0.0 173 5 -1.858474E-03 1.953557E-04 -8.172578E-05 0.0 0.0 0.0 174 5 -1.849263E-03 7.736431E-05 -1.226362E-04 0.0 0.0 0.0 181 5 -1.774771E-03 6.277464E-04 7.251826E-05 0.0 0.0 0.0 182 5 -1.781720E-03 4.629290E-04 9.198092E-06 0.0 0.0 0.0 183 5 -1.779196E-03 2.442900E-04 -6.877515E-05 0.0 0.0 0.0 184 5 -1.769131E-03 7.962019E-05 -1.320281E-04 0.0 0.0 0.0 191 5 -1.690080E-03 6.039172E-04 7.151080E-05 0.0 0.0 0.0 192 5 -1.697532E-03 4.709770E-04 1.747671E-05 0.0 0.0 0.0 193 5 -1.698658E-03 3.402985E-04 -3.391155E-05 0.0 0.0 0.0 194 5 -1.694739E-03 2.100326E-04 -8.529588E-05 0.0 0.0 0.0 195 5 -1.685524E-03 7.696491E-05 -1.387328E-04 0.0 0.0 0.0 201 5 -1.607083E-03 5.751147E-04 6.927248E-05 0.0 0.0 0.0 202 5 -1.612503E-03 4.531635E-04 1.456870E-05 0.0 0.0 0.0 203 5 -1.614529E-03 3.253522E-04 -3.775514E-05 0.0 0.0 0.0 204 5 -1.610353E-03 2.017024E-04 -8.979741E-05 0.0 0.0 0.0 205 5 -1.603312E-03 7.579726E-05 -1.438824E-04 0.0 0.0 0.0 211 5 -1.522899E-03 5.526431E-04 6.567309E-05 0.0 0.0 0.0 212 5 -1.529142E-03 4.330720E-04 1.181116E-05 0.0 0.0 0.0 213 5 -1.530003E-03 3.135251E-04 -4.093762E-05 0.0 0.0 0.0 214 5 -1.527317E-03 1.950039E-04 -9.341208E-05 0.0 0.0 0.0 215 5 -1.520033E-03 7.464991E-05 -1.469017E-04 0.0 0.0 0.0 221 5 -1.441129E-03 5.252338E-04 6.126923E-05 0.0 0.0 0.0 222 5 -1.446464E-03 3.889548E-04 -2.665088E-06 0.0 0.0 0.0 223 5 -1.445324E-03 2.095861E-04 -8.535889E-05 0.0 0.0 0.0 224 5 -1.438774E-03 7.337348E-05 -1.490417E-04 0.0 0.0 0.0 231 5 -1.359256E-03 4.989271E-04 5.633262E-05 0.0 0.0 0.0 235 5 -1.357714E-03 7.036317E-05 -1.496320E-04 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 241 5 -1.155435E-03 4.258198E-04 4.128147E-05 0.0 0.0 0.0 245 5 -1.155118E-03 6.548424E-05 -1.466288E-04 0.0 0.0 0.0 251 5 -9.723791E-04 3.610988E-04 2.771759E-05 0.0 0.0 0.0 255 5 -9.730661E-04 5.614702E-05 -1.401043E-04 0.0 0.0 0.0 261 5 -8.118062E-04 3.015710E-04 1.520713E-05 0.0 0.0 0.0 265 5 -8.131054E-04 4.760641E-05 -1.303931E-04 0.0 0.0 0.0 271 5 -6.733268E-04 2.501577E-04 5.694244E-06 0.0 0.0 0.0 275 5 -6.750183E-04 3.853906E-05 -1.200373E-04 0.0 0.0 0.0 281 5 -5.548745E-04 2.049953E-04 -1.944154E-06 0.0 0.0 0.0 285 5 -5.567184E-04 3.094847E-05 -1.087256E-04 0.0 0.0 0.0 291 5 -4.545008E-04 1.670599E-04 -7.136918E-06 0.0 0.0 0.0 295 5 -4.564000E-04 2.383284E-05 -9.781712E-05 0.0 0.0 0.0 301 5 -3.698250E-04 1.346080E-04 -1.091990E-05 0.0 0.0 0.0 305 5 -3.716540E-04 1.824226E-05 -8.698369E-05 0.0 0.0 0.0 311 5 -2.988838E-04 1.078532E-04 -1.313774E-05 0.0 0.0 0.0 315 5 -3.006109E-04 1.336198E-05 -7.699959E-05 0.0 0.0 0.0 321 5 -2.396585E-04 8.539997E-05 -1.454609E-05 0.0 0.0 0.0 325 5 -2.412252E-04 9.715761E-06 -6.759803E-05 0.0 0.0 0.0 331 5 -1.905047E-04 6.714940E-05 -1.509476E-05 0.0 0.0 0.0 335 5 -1.919092E-04 6.699811E-06 -5.923059E-05 0.0 0.0 0.0 341 5 -1.498048E-04 5.206113E-05 -1.527502E-05 0.0 0.0 0.0 345 5 -1.510229E-04 4.561655E-06 -5.169446E-05 0.0 0.0 0.0 351 5 -1.162200E-04 3.991195E-05 -1.506353E-05 0.0 0.0 0.0 355 5 -1.172607E-04 2.889339E-06 -4.524153E-05 0.0 0.0 0.0 361 5 -8.844869E-05 2.994626E-05 -1.475486E-05 0.0 0.0 0.0 365 5 -8.930406E-05 1.786830E-06 -3.972564E-05 0.0 0.0 0.0 371 5 -6.538232E-05 2.189462E-05 -1.433693E-05 0.0 0.0 0.0 375 5 -6.606256E-05 9.897578E-07 -3.527541E-05 0.0 0.0 0.0 381 5 -4.594449E-05 1.520400E-05 -1.397277E-05 0.0 0.0 0.0 385 5 -4.644838E-05 5.254767E-07 -3.179298E-05 0.0 0.0 0.0 391 5 -2.918040E-05 9.586600E-06 -1.365511E-05 0.0 0.0 0.0 395 5 -2.951519E-05 2.310584E-07 -2.933905E-05 0.0 0.0 0.0 401 5 -1.415697E-05 4.620722E-06 -1.346520E-05 0.0 0.0 0.0 405 5 -1.432307E-05 8.841361E-08 -2.785372E-05 0.0 0.0 0.0 411 5 0.0 0.0 -1.339031E-05 0.0 0.0 0.0 412 5 0.0 0.0 -1.618976E-05 0.0 0.0 0.0 413 5 0.0 0.0 -2.035691E-05 0.0 0.0 0.0 414 5 0.0 0.0 -2.454471E-05 0.0 0.0 0.0 415 5 0.0 0.0 -2.737075E-05 0.0 0.0 0.0 111 6 -1.211192E-03 4.180476E-04 0.0 0.0 0.0 0.0 112 6 -1.219662E-03 3.242887E-04 0.0 0.0 0.0 0.0 113 6 -1.218136E-03 6.187926E-05 0.0 0.0 0.0 0.0 114 6 -1.208880E-03 -3.157158E-05 0.0 0.0 0.0 0.0 121 6 -1.204471E-03 4.136982E-04 1.315699E-05 0.0 0.0 0.0 122 6 -1.214402E-03 2.802822E-04 3.570133E-06 0.0 0.0 0.0 123 6 -1.213006E-03 1.043453E-04 -8.589866E-06 0.0 0.0 0.0 124 6 -1.202502E-03 -2.896348E-05 -1.812025E-05 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 131 6 -1.185307E-03 4.102655E-04 2.607217E-05 0.0 0.0 0.0 132 6 -1.193464E-03 3.185167E-04 1.286715E-05 0.0 0.0 0.0 133 6 -1.192151E-03 6.136817E-05 -2.282826E-05 0.0 0.0 0.0 134 6 -1.183313E-03 -3.010272E-05 -3.591616E-05 0.0 0.0 0.0 141 6 -1.153623E-03 3.986093E-04 3.702535E-05 0.0 0.0 0.0 142 6 -1.162830E-03 2.705914E-04 9.827694E-06 0.0 0.0 0.0 143 6 -1.161736E-03 1.016692E-04 -2.457947E-05 0.0 0.0 0.0 144 6 -1.152302E-03 -2.628362E-05 -5.172148E-05 0.0 0.0 0.0 151 6 -1.111347E-03 3.880623E-04 4.702356E-05 0.0 0.0 0.0 152 6 -1.118500E-03 3.020389E-04 2.280409E-05 0.0 0.0 0.0 153 6 -1.117661E-03 5.977819E-05 -4.210725E-05 0.0 0.0 0.0 154 6 -1.110218E-03 -2.602089E-05 -6.655492E-05 0.0 0.0 0.0 161 6 -1.060082E-03 3.707321E-04 5.264271E-05 0.0 0.0 0.0 162 6 -1.067545E-03 2.525687E-04 1.316563E-05 0.0 0.0 0.0 163 6 -1.066278E-03 9.646369E-05 -3.701402E-05 0.0 0.0 0.0 164 6 -1.057858E-03 -2.159335E-05 -7.712188E-05 0.0 0.0 0.0 171 6 -1.003494E-03 3.549622E-04 5.677201E-05 0.0 0.0 0.0 172 6 -1.009060E-03 2.772431E-04 2.651218E-05 0.0 0.0 0.0 173 6 -1.006672E-03 5.701143E-05 -5.546296E-05 0.0 0.0 0.0 174 6 -1.000065E-03 -2.038851E-05 -8.592261E-05 0.0 0.0 0.0 181 6 -9.435985E-04 3.339266E-04 5.681491E-05 0.0 0.0 0.0 182 6 -9.490903E-04 2.287289E-04 1.104242E-05 0.0 0.0 0.0 183 6 -9.477276E-04 8.938416E-05 -4.492898E-05 0.0 0.0 0.0 184 6 -9.407073E-04 -1.575247E-05 -9.066908E-05 0.0 0.0 0.0 191 6 -8.823092E-04 3.161546E-04 5.557434E-05 0.0 0.0 0.0 192 6 -8.878188E-04 2.322431E-04 1.708069E-05 0.0 0.0 0.0 193 6 -8.889303E-04 1.503554E-04 -1.920485E-05 0.0 0.0 0.0 194 6 -8.863703E-04 6.875750E-05 -5.549762E-05 0.0 0.0 0.0 195 6 -8.801805E-04 -1.527180E-05 -9.356743E-05 0.0 0.0 0.0 201 6 -8.231532E-04 2.947896E-04 5.339460E-05 0.0 0.0 0.0 202 6 -8.273344E-04 2.198707E-04 1.507417E-05 0.0 0.0 0.0 203 6 -8.288593E-04 1.406366E-04 -2.121239E-05 0.0 0.0 0.0 204 6 -8.263239E-04 6.458795E-05 -5.731369E-05 0.0 0.0 0.0 205 6 -8.215545E-04 -1.335156E-05 -9.517198E-05 0.0 0.0 0.0 211 6 -7.646618E-04 2.786120E-04 5.017529E-05 0.0 0.0 0.0 212 6 -7.690292E-04 2.059669E-04 1.323575E-05 0.0 0.0 0.0 213 6 -7.698521E-04 1.335544E-04 -2.269311E-05 0.0 0.0 0.0 214 6 -7.682395E-04 6.186954E-05 -5.842820E-05 0.0 0.0 0.0 215 6 -7.636426E-04 -1.137238E-05 -9.514023E-05 0.0 0.0 0.0 221 6 -7.086680E-04 2.591783E-04 4.644354E-05 0.0 0.0 0.0 222 6 -7.125404E-04 1.780734E-04 3.499440E-06 0.0 0.0 0.0 223 6 -7.121156E-04 7.175408E-05 -5.168176E-05 0.0 0.0 0.0 224 6 -7.079567E-04 -9.379859E-06 -9.449370E-05 0.0 0.0 0.0 231 6 -6.539678E-04 2.410525E-04 4.242062E-05 0.0 0.0 0.0 235 6 -6.537518E-04 -8.690899E-06 -9.281683E-05 0.0 0.0 0.0 241 6 -5.225123E-04 1.923546E-04 3.109630E-05 0.0 0.0 0.0 245 6 -5.229207E-04 -4.408929E-06 -8.573970E-05 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 251 6 -4.110423E-04 1.522863E-04 2.145670E-05 0.0 0.0 0.0 255 6 -4.119288E-04 -3.831027E-06 -7.707889E-05 0.0 0.0 0.0 261 6 -3.190819E-04 1.177401E-04 1.299320E-05 0.0 0.0 0.0 265 6 -3.201852E-04 -3.166799E-06 -6.712608E-05 0.0 0.0 0.0 271 6 -2.449632E-04 9.006101E-05 6.927018E-06 0.0 0.0 0.0 275 6 -2.461513E-04 -3.402910E-06 -5.774307E-05 0.0 0.0 0.0 281 6 -1.858935E-04 6.749503E-05 2.342311E-06 0.0 0.0 0.0 285 6 -1.870420E-04 -3.329087E-06 -4.867317E-05 0.0 0.0 0.0 291 6 -1.395338E-04 5.003664E-05 -5.649576E-07 0.0 0.0 0.0 295 6 -1.406033E-04 -3.492413E-06 -4.067654E-05 0.0 0.0 0.0 301 6 -1.034340E-04 3.631608E-05 -2.501577E-06 0.0 0.0 0.0 305 6 -1.043796E-04 -3.352606E-06 -3.347065E-05 0.0 0.0 0.0 311 6 -7.569289E-05 2.599409E-05 -3.514497E-06 0.0 0.0 0.0 315 6 -7.651602E-05 -3.249239E-06 -2.733221E-05 0.0 0.0 0.0 321 6 -5.455561E-05 1.814463E-05 -4.034083E-06 0.0 0.0 0.0 325 6 -5.524896E-05 -2.962459E-06 -2.203224E-05 0.0 0.0 0.0 331 6 -3.868108E-05 1.240965E-05 -4.130463E-06 0.0 0.0 0.0 335 6 -3.925927E-05 -2.679885E-06 -1.763524E-05 0.0 0.0 0.0 341 6 -2.689456E-05 8.212382E-06 -4.030948E-06 0.0 0.0 0.0 345 6 -2.736419E-05 -2.321646E-06 -1.397225E-05 0.0 0.0 0.0 351 6 -1.829785E-05 5.263295E-06 -3.788265E-06 0.0 0.0 0.0 355 6 -1.867456E-05 -1.974210E-06 -1.101765E-05 0.0 0.0 0.0 361 6 -1.212534E-05 3.219975E-06 -3.506392E-06 0.0 0.0 0.0 365 6 -1.241858E-05 -1.613746E-06 -8.656893E-06 0.0 0.0 0.0 371 6 -7.784945E-06 1.870509E-06 -3.222298E-06 0.0 0.0 0.0 375 6 -8.006858E-06 -1.269197E-06 -6.835217E-06 0.0 0.0 0.0 381 6 -4.776460E-06 1.013420E-06 -2.972736E-06 0.0 0.0 0.0 385 6 -4.934698E-06 -9.354515E-07 -5.485008E-06 0.0 0.0 0.0 391 6 -2.699728E-06 4.986427E-07 -2.785177E-06 0.0 0.0 0.0 395 6 -2.801668E-06 -6.148161E-07 -4.553897E-06 0.0 0.0 0.0 401 6 -1.207984E-06 1.981636E-07 -2.662621E-06 0.0 0.0 0.0 405 6 -1.257730E-06 -3.049350E-07 -4.014224E-06 0.0 0.0 0.0 411 6 0.0 0.0 -2.626093E-06 0.0 0.0 0.0 412 6 0.0 0.0 -2.858411E-06 0.0 0.0 0.0 413 6 0.0 0.0 -3.222688E-06 0.0 0.0 0.0 414 6 0.0 0.0 -3.592364E-06 0.0 0.0 0.0 415 6 0.0 0.0 -3.832285E-06 0.0 0.0 0.0 111 7 -7.366746E-04 2.605855E-04 0.0 0.0 0.0 0.0 112 7 -7.436450E-04 1.937221E-04 0.0 0.0 0.0 0.0 113 7 -7.434404E-04 1.052688E-05 0.0 0.0 0.0 0.0 114 7 -7.364021E-04 -5.618393E-05 0.0 0.0 0.0 0.0 121 7 -7.315361E-04 2.567709E-04 1.026412E-05 0.0 0.0 0.0 122 7 -7.398412E-04 1.631472E-04 3.029099E-06 0.0 0.0 0.0 123 7 -7.393128E-04 4.003961E-05 -6.077210E-06 0.0 0.0 0.0 124 7 -7.316063E-04 -5.362492E-05 -1.327267E-05 0.0 0.0 0.0 131 7 -7.168935E-04 2.542679E-04 2.036963E-05 0.0 0.0 0.0 132 7 -7.235784E-04 1.892017E-04 1.033228E-05 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 133 7 -7.235367E-04 1.061073E-05 -1.635258E-05 0.0 0.0 0.0 134 7 -7.168575E-04 -5.432996E-05 -2.630649E-05 0.0 0.0 0.0 141 7 -6.926998E-04 2.445880E-04 2.884617E-05 0.0 0.0 0.0 142 7 -7.003355E-04 1.557144E-04 8.401672E-06 0.0 0.0 0.0 143 7 -7.000450E-04 3.875937E-05 -1.723731E-05 0.0 0.0 0.0 144 7 -6.932581E-04 -5.018918E-05 -3.766986E-05 0.0 0.0 0.0 151 7 -6.604696E-04 2.363419E-04 3.660764E-05 0.0 0.0 0.0 152 7 -6.662346E-04 1.763829E-04 1.831442E-05 0.0 0.0 0.0 153 7 -6.665303E-04 1.075061E-05 -2.973648E-05 0.0 0.0 0.0 154 7 -6.610721E-04 -4.912421E-05 -4.830327E-05 0.0 0.0 0.0 161 7 -6.216385E-04 2.223203E-04 4.061078E-05 0.0 0.0 0.0 162 7 -6.276472E-04 1.420372E-04 1.141257E-05 0.0 0.0 0.0 163 7 -6.270894E-04 3.622017E-05 -2.540030E-05 0.0 0.0 0.0 164 7 -6.210740E-04 -4.406736E-05 -5.527097E-05 0.0 0.0 0.0 171 7 -5.792941E-04 2.100834E-04 4.344465E-05 0.0 0.0 0.0 172 7 -5.835926E-04 1.574304E-04 2.111207E-05 0.0 0.0 0.0 173 7 -5.822072E-04 1.066547E-05 -3.822249E-05 0.0 0.0 0.0 174 7 -5.773827E-04 -4.177328E-05 -6.081488E-05 0.0 0.0 0.0 181 7 -5.351672E-04 1.936510E-04 4.276222E-05 0.0 0.0 0.0 182 7 -5.393980E-04 1.244039E-04 9.896001E-06 0.0 0.0 0.0 183 7 -5.386175E-04 3.283000E-05 -2.998873E-05 0.0 0.0 0.0 184 7 -5.336175E-04 -3.640234E-05 -6.285929E-05 0.0 0.0 0.0 191 7 -4.910945E-04 1.803758E-04 4.126927E-05 0.0 0.0 0.0 192 7 -4.950918E-04 1.257449E-04 1.406494E-05 0.0 0.0 0.0 193 7 -4.960345E-04 7.286084E-05 -1.134958E-05 0.0 0.0 0.0 194 7 -4.942984E-04 2.018144E-05 -3.676776E-05 0.0 0.0 0.0 195 7 -4.900789E-04 -3.454863E-05 -6.368901E-05 0.0 0.0 0.0 201 7 -4.492542E-04 1.645339E-04 3.906379E-05 0.0 0.0 0.0 202 7 -4.524134E-04 1.170816E-04 1.252580E-05 0.0 0.0 0.0 203 7 -4.534912E-04 6.646543E-05 -1.243945E-05 0.0 0.0 0.0 204 7 -4.519184E-04 1.827103E-05 -3.723718E-05 0.0 0.0 0.0 205 7 -4.486112E-04 -3.146297E-05 -6.349741E-05 0.0 0.0 0.0 211 7 -4.090050E-04 1.528862E-04 3.617690E-05 0.0 0.0 0.0 212 7 -4.120099E-04 1.073946E-04 1.112941E-05 0.0 0.0 0.0 213 7 -4.126805E-04 6.221529E-05 -1.309875E-05 0.0 0.0 0.0 214 7 -4.116699E-04 1.755372E-05 -3.717391E-05 0.0 0.0 0.0 215 7 -4.087272E-04 -2.838670E-05 -6.211349E-05 0.0 0.0 0.0 221 7 -3.710988E-04 1.391268E-04 3.297198E-05 0.0 0.0 0.0 222 7 -3.738377E-04 8.940353E-05 4.476920E-06 0.0 0.0 0.0 223 7 -3.736958E-04 2.449534E-05 -3.190562E-05 0.0 0.0 0.0 224 7 -3.709861E-04 -2.529218E-05 -6.034357E-05 0.0 0.0 0.0 231 7 -3.350165E-04 1.266498E-04 2.965079E-05 0.0 0.0 0.0 235 7 -3.351993E-04 -2.322889E-05 -5.794858E-05 0.0 0.0 0.0 241 7 -2.514873E-04 9.434476E-05 2.100276E-05 0.0 0.0 0.0 245 7 -2.519660E-04 -1.625455E-05 -5.039500E-05 0.0 0.0 0.0 251 7 -1.848847E-04 6.969161E-05 1.408390E-05 0.0 0.0 0.0 255 7 -1.855681E-04 -1.259141E-05 -4.257157E-05 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 261 7 -1.333882E-04 4.980562E-05 8.377661E-06 0.0 0.0 0.0 265 7 -1.341137E-04 -9.437522E-06 -3.466088E-05 0.0 0.0 0.0 271 7 -9.473105E-05 3.507120E-05 4.532596E-06 0.0 0.0 0.0 275 7 -9.543016E-05 -7.406221E-06 -2.784011E-05 0.0 0.0 0.0 281 7 -6.610711E-05 2.395218E-05 1.828403E-06 0.0 0.0 0.0 285 7 -6.672383E-05 -5.675633E-06 -2.183837E-05 0.0 0.0 0.0 291 7 -4.535557E-05 1.605881E-05 2.298623E-07 0.0 0.0 0.0 295 7 -4.588297E-05 -4.466001E-06 -1.695680E-05 0.0 0.0 0.0 301 7 -3.047341E-05 1.038231E-05 -7.325816E-07 0.0 0.0 0.0 305 7 -3.090331E-05 -3.435315E-06 -1.292918E-05 0.0 0.0 0.0 311 7 -2.000400E-05 6.503921E-06 -1.181657E-06 0.0 0.0 0.0 315 7 -2.034932E-05 -2.667872E-06 -9.758087E-06 0.0 0.0 0.0 321 7 -1.273643E-05 3.848863E-06 -1.355477E-06 0.0 0.0 0.0 325 7 -1.300508E-05 -2.031134E-06 -7.248372E-06 0.0 0.0 0.0 331 7 -7.804126E-06 2.117423E-06 -1.340066E-06 0.0 0.0 0.0 335 7 -8.011067E-06 -1.542007E-06 -5.321484E-06 0.0 0.0 0.0 341 7 -4.528225E-06 1.012241E-06 -1.236039E-06 0.0 0.0 0.0 345 7 -4.683713E-06 -1.152038E-06 -3.848072E-06 0.0 0.0 0.0 351 7 -2.426180E-06 3.480224E-07 -1.090681E-06 0.0 0.0 0.0 355 7 -2.541703E-06 -8.488841E-07 -2.744225E-06 0.0 0.0 0.0 361 7 -1.136241E-06 -1.689206E-08 -9.370593E-07 0.0 0.0 0.0 365 7 -1.219929E-06 -6.158235E-07 -1.930737E-06 0.0 0.0 0.0 371 7 -4.020005E-07 -1.875435E-07 -7.995700E-07 0.0 0.0 0.0 375 7 -4.612261E-07 -4.326635E-07 -1.341883E-06 0.0 0.0 0.0 381 7 -3.776265E-08 -2.265690E-07 -6.828035E-07 0.0 0.0 0.0 385 7 -7.769022E-08 -2.931116E-07 -9.343532E-07 0.0 0.0 0.0 391 7 8.958970E-08 -1.895311E-07 -6.003042E-07 0.0 0.0 0.0 395 7 6.500694E-08 -1.790724E-07 -6.648655E-07 0.0 0.0 0.0 401 7 7.701989E-08 -1.044436E-07 -5.467518E-07 0.0 0.0 0.0 405 7 6.534348E-08 -8.564069E-08 -5.160099E-07 0.0 0.0 0.0 411 7 0.0 0.0 -5.315599E-07 0.0 0.0 0.0 412 7 0.0 0.0 -5.142880E-07 0.0 0.0 0.0 413 7 0.0 0.0 -4.970613E-07 0.0 0.0 0.0 414 7 0.0 0.0 -4.809218E-07 0.0 0.0 0.0 415 7 0.0 0.0 -4.653448E-07 0.0 0.0 0.0 111 8 -4.715578E-04 1.729593E-04 0.0 0.0 0.0 0.0 112 8 -4.772723E-04 1.239339E-04 0.0 0.0 0.0 0.0 113 8 -4.778097E-04 -7.312296E-06 0.0 0.0 0.0 0.0 114 8 -4.724019E-04 -5.630255E-05 0.0 0.0 0.0 0.0 121 8 -4.676183E-04 1.696245E-04 7.926174E-06 0.0 0.0 0.0 122 8 -4.745258E-04 1.021609E-04 2.454667E-06 0.0 0.0 0.0 123 8 -4.744892E-04 1.372064E-05 -4.378135E-06 0.0 0.0 0.0 124 8 -4.688011E-04 -5.388846E-05 -9.822012E-06 0.0 0.0 0.0 131 8 -4.564056E-04 1.678137E-04 1.576080E-05 0.0 0.0 0.0 132 8 -4.618667E-04 1.203639E-04 8.110221E-06 0.0 0.0 0.0 133 8 -4.625298E-04 -6.933094E-06 -1.188616E-05 0.0 0.0 0.0 134 8 -4.574269E-04 -5.437172E-05 -1.947725E-05 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 141 8 -4.378685E-04 1.597504E-04 2.226437E-05 0.0 0.0 0.0 142 8 -4.441743E-04 9.638623E-05 6.844579E-06 0.0 0.0 0.0 143 8 -4.443265E-04 1.323792E-05 -1.231880E-05 0.0 0.0 0.0 144 8 -4.394219E-04 -5.029853E-05 -2.775556E-05 0.0 0.0 0.0 151 8 -4.131878E-04 1.532678E-04 2.825023E-05 0.0 0.0 0.0 152 8 -4.178247E-04 1.102917E-04 1.436853E-05 0.0 0.0 0.0 153 8 -4.187260E-04 -5.940229E-06 -2.132794E-05 0.0 0.0 0.0 154 8 -4.146832E-04 -4.893458E-05 -3.550804E-05 0.0 0.0 0.0 161 8 -3.836126E-04 1.418594E-04 3.104044E-05 0.0 0.0 0.0 162 8 -3.884317E-04 8.584791E-05 9.349092E-06 0.0 0.0 0.0 163 8 -3.882577E-04 1.220300E-05 -1.777030E-05 0.0 0.0 0.0 164 8 -3.839143E-04 -4.388439E-05 -4.014784E-05 0.0 0.0 0.0 171 8 -3.517379E-04 1.322890E-04 3.292458E-05 0.0 0.0 0.0 172 8 -3.550503E-04 9.563433E-05 1.634902E-05 0.0 0.0 0.0 173 8 -3.542115E-04 -4.732562E-06 -2.678582E-05 0.0 0.0 0.0 174 8 -3.506220E-04 -4.124354E-05 -4.365451E-05 0.0 0.0 0.0 181 8 -3.190305E-04 1.193766E-04 3.181709E-05 0.0 0.0 0.0 182 8 -3.222659E-04 7.259564E-05 8.103098E-06 0.0 0.0 0.0 183 8 -3.217902E-04 1.084354E-05 -2.044415E-05 0.0 0.0 0.0 184 8 -3.181580E-04 -3.594622E-05 -4.418966E-05 0.0 0.0 0.0 191 8 -2.871681E-04 1.093719E-04 3.022970E-05 0.0 0.0 0.0 192 8 -2.900597E-04 7.286399E-05 1.091642E-05 0.0 0.0 0.0 193 8 -2.908136E-04 3.783542E-05 -6.958844E-06 0.0 0.0 0.0 194 8 -2.895986E-04 2.953341E-06 -2.483236E-05 0.0 0.0 0.0 195 8 -2.866733E-04 -3.363457E-05 -4.396221E-05 0.0 0.0 0.0 201 8 -2.574362E-04 9.753538E-05 2.811078E-05 0.0 0.0 0.0 202 8 -2.598084E-04 6.670519E-05 9.682512E-06 0.0 0.0 0.0 203 8 -2.605508E-04 3.354224E-05 -7.572490E-06 0.0 0.0 0.0 204 8 -2.595531E-04 2.224770E-06 -2.466463E-05 0.0 0.0 0.0 205 8 -2.572119E-04 -3.032945E-05 -4.295274E-05 0.0 0.0 0.0 211 8 -2.296370E-04 8.907896E-05 2.559802E-05 0.0 0.0 0.0 212 8 -2.317007E-04 5.986026E-05 8.563858E-06 0.0 0.0 0.0 213 8 -2.322154E-04 3.096341E-05 -7.832157E-06 0.0 0.0 0.0 214 8 -2.315577E-04 2.439149E-06 -2.410206E-05 0.0 0.0 0.0 215 8 -2.296420E-04 -2.711696E-05 -4.110514E-05 0.0 0.0 0.0 221 8 -2.039024E-04 7.926319E-05 2.290194E-05 0.0 0.0 0.0 222 8 -2.058254E-04 4.801321E-05 3.946918E-06 0.0 0.0 0.0 223 8 -2.057923E-04 7.397831E-06 -2.010437E-05 0.0 0.0 0.0 224 8 -2.039850E-04 -2.392320E-05 -3.904428E-05 0.0 0.0 0.0 231 8 -1.800485E-04 7.060183E-05 2.020698E-05 0.0 0.0 0.0 235 8 -1.803058E-04 -2.157046E-05 -3.664282E-05 0.0 0.0 0.0 241 8 -1.268914E-04 4.903160E-05 1.365764E-05 0.0 0.0 0.0 245 8 -1.272764E-04 -1.462614E-05 -2.997525E-05 0.0 0.0 0.0 251 8 -8.712405E-05 3.377629E-05 8.742764E-06 0.0 0.0 0.0 255 8 -8.758391E-05 -1.062433E-05 -2.376998E-05 0.0 0.0 0.0 261 8 -5.836448E-05 2.227434E-05 4.957364E-06 0.0 0.0 0.0 265 8 -5.880278E-05 -7.421932E-06 -1.807411E-05 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 271 8 -3.830418E-05 1.441140E-05 2.569679E-06 0.0 0.0 0.0 275 8 -3.869066E-05 -5.326553E-06 -1.353744E-05 0.0 0.0 0.0 281 8 -2.453604E-05 8.932280E-06 1.019099E-06 0.0 0.0 0.0 285 8 -2.485011E-05 -3.723183E-06 -9.870209E-06 0.0 0.0 0.0 291 8 -1.534284E-05 5.377944E-06 1.710495E-07 0.0 0.0 0.0 295 8 -1.559103E-05 -2.640900E-06 -7.109066E-06 0.0 0.0 0.0 301 8 -9.293454E-06 3.052583E-06 -2.835810E-07 0.0 0.0 0.0 305 8 -9.480277E-06 -1.832804E-06 -5.016269E-06 0.0 0.0 0.0 311 8 -5.416434E-06 1.622002E-06 -4.674182E-07 0.0 0.0 0.0 315 8 -5.555030E-06 -1.274051E-06 -3.492729E-06 0.0 0.0 0.0 321 8 -2.982124E-06 7.534970E-07 -5.103961E-07 0.0 0.0 0.0 325 8 -3.081489E-06 -8.701596E-07 -2.388111E-06 0.0 0.0 0.0 331 8 -1.503716E-06 2.586916E-07 -4.769229E-07 0.0 0.0 0.0 335 8 -1.574160E-06 -5.880007E-07 -1.605666E-06 0.0 0.0 0.0 341 8 -6.395857E-07 -4.090220E-09 -4.098531E-07 0.0 0.0 0.0 345 8 -6.882001E-07 -3.922586E-07 -1.059551E-06 0.0 0.0 0.0 351 8 -1.643033E-07 -1.285249E-07 -3.368201E-07 0.0 0.0 0.0 355 8 -1.974294E-07 -2.556098E-07 -6.827671E-07 0.0 0.0 0.0 361 8 7.082386E-08 -1.677396E-07 -2.664092E-07 0.0 0.0 0.0 365 8 4.880375E-08 -1.651831E-07 -4.298803E-07 0.0 0.0 0.0 371 8 1.626811E-07 -1.640273E-07 -2.091327E-07 0.0 0.0 0.0 375 8 1.483609E-07 -1.024059E-07 -2.608367E-07 0.0 0.0 0.0 381 8 1.707404E-07 -1.337405E-07 -1.630113E-07 0.0 0.0 0.0 385 8 1.617908E-07 -6.253431E-08 -1.536935E-07 0.0 0.0 0.0 391 8 1.330768E-07 -9.375619E-08 -1.320669E-07 0.0 0.0 0.0 395 8 1.279122E-07 -3.444401E-08 -8.706841E-08 0.0 0.0 0.0 401 8 7.140681E-08 -4.743411E-08 -1.126183E-07 0.0 0.0 0.0 405 8 6.905152E-08 -1.561452E-08 -5.257157E-08 0.0 0.0 0.0 411 8 0.0 0.0 -1.071146E-07 0.0 0.0 0.0 412 8 0.0 0.0 -9.262341E-08 0.0 0.0 0.0 413 8 0.0 0.0 -7.374443E-08 0.0 0.0 0.0 414 8 0.0 0.0 -5.503506E-08 0.0 0.0 0.0 415 8 0.0 0.0 -4.086068E-08 0.0 0.0 0.0 111 9 -3.139066E-04 1.200438E-04 0.0 0.0 0.0 0.0 112 9 -3.185922E-04 8.330718E-05 0.0 0.0 0.0 0.0 113 9 -3.195494E-04 -1.262615E-05 0.0 0.0 0.0 0.0 114 9 -3.153639E-04 -4.941778E-05 0.0 0.0 0.0 0.0 121 9 -3.108745E-04 1.171346E-04 6.098423E-06 0.0 0.0 0.0 122 9 -3.166179E-04 6.750787E-05 1.946680E-06 0.0 0.0 0.0 123 9 -3.168658E-04 2.654377E-06 -3.197253E-06 0.0 0.0 0.0 124 9 -3.126625E-04 -4.719263E-05 -7.329747E-06 0.0 0.0 0.0 131 9 -3.022595E-04 1.158430E-04 1.215734E-05 0.0 0.0 0.0 132 9 -3.067242E-04 8.046971E-05 6.302650E-06 0.0 0.0 0.0 133 9 -3.077793E-04 -1.212094E-05 -8.738741E-06 0.0 0.0 0.0 134 9 -3.038505E-04 -4.757017E-05 -1.455097E-05 0.0 0.0 0.0 141 9 -2.879904E-04 1.091084E-04 1.714263E-05 0.0 0.0 0.0 142 9 -2.932029E-04 6.297490E-05 5.457000E-06 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 143 9 -2.936027E-04 2.615990E-06 -8.931765E-06 0.0 0.0 0.0 144 9 -2.900625E-04 -4.375799E-05 -2.065283E-05 0.0 0.0 0.0 151 9 -2.689815E-04 1.039906E-04 2.176828E-05 0.0 0.0 0.0 152 9 -2.727195E-04 7.249140E-05 1.116952E-05 0.0 0.0 0.0 153 9 -2.739407E-04 -1.076562E-05 -1.548728E-05 0.0 0.0 0.0 154 9 -2.709270E-04 -4.235918E-05 -2.639456E-05 0.0 0.0 0.0 161 9 -2.462987E-04 9.465970E-05 2.369372E-05 0.0 0.0 0.0 162 9 -2.501718E-04 5.474924E-05 7.479874E-06 0.0 0.0 0.0 163 9 -2.502116E-04 2.408972E-06 -1.261938E-05 0.0 0.0 0.0 164 9 -2.470560E-04 -3.762413E-05 -2.951351E-05 0.0 0.0 0.0 171 9 -2.221200E-04 8.712101E-05 2.492554E-05 0.0 0.0 0.0 172 9 -2.246795E-04 6.103880E-05 1.252874E-05 0.0 0.0 0.0 173 9 -2.241541E-04 -9.023582E-06 -1.903376E-05 0.0 0.0 0.0 174 9 -2.214403E-04 -3.501056E-05 -3.173837E-05 0.0 0.0 0.0 181 9 -1.976793E-04 7.691259E-05 2.363003E-05 0.0 0.0 0.0 182 9 -2.001519E-04 4.464629E-05 6.394255E-06 0.0 0.0 0.0 183 9 -1.998444E-04 2.138047E-06 -1.417983E-05 0.0 0.0 0.0 184 9 -1.971638E-04 -3.014827E-05 -3.146443E-05 0.0 0.0 0.0 191 9 -1.744626E-04 6.930729E-05 2.207992E-05 0.0 0.0 0.0 192 9 -1.765596E-04 4.439450E-05 8.267152E-06 0.0 0.0 0.0 193 9 -1.771468E-04 2.072038E-05 -4.392602E-06 0.0 0.0 0.0 194 9 -1.762758E-04 -2.847635E-06 -1.704658E-05 0.0 0.0 0.0 195 9 -1.742177E-04 -2.782349E-05 -3.074318E-05 0.0 0.0 0.0 201 9 -1.531775E-04 6.039476E-05 2.014127E-05 0.0 0.0 0.0 202 9 -1.549573E-04 3.995403E-05 7.263682E-06 0.0 0.0 0.0 203 9 -1.554627E-04 1.778254E-05 -4.750405E-06 0.0 0.0 0.0 204 9 -1.548176E-04 -2.977692E-06 -1.660920E-05 0.0 0.0 0.0 205 9 -1.531334E-04 -2.472419E-05 -2.943556E-05 0.0 0.0 0.0 211 9 -1.338442E-04 5.420286E-05 1.801424E-05 0.0 0.0 0.0 212 9 -1.352658E-04 3.505296E-05 6.353619E-06 0.0 0.0 0.0 213 9 -1.356508E-04 1.620131E-05 -4.817693E-06 0.0 0.0 0.0 214 9 -1.352097E-04 -2.379082E-06 -1.588402E-05 0.0 0.0 0.0 215 9 -1.339442E-04 -2.178328E-05 -2.755721E-05 0.0 0.0 0.0 221 9 -1.162604E-04 4.714381E-05 1.579640E-05 0.0 0.0 0.0 222 9 -1.176097E-04 2.711284E-05 3.108416E-06 0.0 0.0 0.0 223 9 -1.176158E-04 1.196580E-06 -1.289196E-05 0.0 0.0 0.0 224 9 -1.163879E-04 -1.890033E-05 -2.558634E-05 0.0 0.0 0.0 231 9 -1.003947E-04 4.107735E-05 1.365156E-05 0.0 0.0 0.0 235 9 -1.006247E-04 -1.671190E-05 -2.346249E-05 0.0 0.0 0.0 241 9 -6.636477E-05 2.656373E-05 8.749321E-06 0.0 0.0 0.0 245 9 -6.664032E-05 -1.075519E-05 -1.804447E-05 0.0 0.0 0.0 251 9 -4.251461E-05 1.705471E-05 5.301341E-06 0.0 0.0 0.0 255 9 -4.280747E-05 -7.337793E-06 -1.342149E-05 0.0 0.0 0.0 261 9 -2.640545E-05 1.035677E-05 2.827997E-06 0.0 0.0 0.0 265 9 -2.666070E-05 -4.777794E-06 -9.522193E-06 0.0 0.0 0.0 271 9 -1.598488E-05 6.140818E-06 1.373010E-06 0.0 0.0 0.0 275 9 -1.619279E-05 -3.172620E-06 -6.642098E-06 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 281 9 -9.370082E-06 3.434139E-06 5.052998E-07 0.0 0.0 0.0 285 9 -9.526306E-06 -2.042084E-06 -4.495371E-06 0.0 0.0 0.0 291 9 -5.314204E-06 1.836619E-06 6.980986E-08 0.0 0.0 0.0 295 9 -5.428586E-06 -1.325230E-06 -2.997453E-06 0.0 0.0 0.0 301 9 -2.876140E-06 8.926504E-07 -1.343183E-07 0.0 0.0 0.0 305 9 -2.955674E-06 -8.394048E-07 -1.953442E-06 0.0 0.0 0.0 311 9 -1.461555E-06 3.757904E-07 -2.021272E-07 0.0 0.0 0.0 315 9 -1.516050E-06 -5.285240E-07 -1.250867E-06 0.0 0.0 0.0 321 9 -6.670508E-07 1.044742E-07 -2.031096E-07 0.0 0.0 0.0 325 9 -7.029902E-07 -3.265317E-07 -7.847555E-07 0.0 0.0 0.0 331 9 -2.427885E-07 -2.473303E-08 -1.767620E-07 0.0 0.0 0.0 335 9 -2.661764E-07 -1.972439E-07 -4.807839E-07 0.0 0.0 0.0 341 9 -3.231988E-08 -7.437836E-08 -1.403017E-07 0.0 0.0 0.0 345 9 -4.706937E-08 -1.174667E-07 -2.880236E-07 0.0 0.0 0.0 351 9 5.976314E-08 -8.596496E-08 -1.068987E-07 0.0 0.0 0.0 355 9 5.061992E-08 -6.689117E-08 -1.662919E-07 0.0 0.0 0.0 361 9 8.826124E-08 -7.710921E-08 -7.760162E-08 0.0 0.0 0.0 365 9 8.275291E-08 -3.772245E-08 -9.276368E-08 0.0 0.0 0.0 371 9 8.586915E-08 -6.254071E-08 -5.586168E-08 0.0 0.0 0.0 375 9 8.263991E-08 -1.963389E-08 -4.803193E-08 0.0 0.0 0.0 381 9 6.907124E-08 -4.521448E-08 -3.947294E-08 0.0 0.0 0.0 385 9 6.724488E-08 -1.016782E-08 -2.270009E-08 0.0 0.0 0.0 391 9 4.717355E-08 -2.935991E-08 -2.907743E-08 0.0 0.0 0.0 395 9 4.621482E-08 -4.520003E-09 -8.244018E-09 0.0 0.0 0.0 401 9 2.364189E-08 -1.417245E-08 -2.282607E-08 0.0 0.0 0.0 405 9 2.323129E-08 -1.813635E-09 -1.446993E-09 0.0 0.0 0.0 411 9 0.0 0.0 -2.105345E-08 0.0 0.0 0.0 412 9 0.0 0.0 -1.635581E-08 0.0 0.0 0.0 413 9 0.0 0.0 -1.007759E-08 0.0 0.0 0.0 414 9 0.0 0.0 -3.814049E-09 0.0 0.0 0.0 415 9 0.0 0.0 8.355661E-10 0.0 0.0 0.0 111 10 -2.152995E-04 8.601928E-05 0.0 0.0 0.0 0.0 112 10 -2.191442E-04 5.803717E-05 0.0 0.0 0.0 0.0 113 10 -2.203318E-04 -1.313167E-05 0.0 0.0 0.0 0.0 114 10 -2.170801E-04 -4.123829E-05 0.0 0.0 0.0 0.0 121 10 -2.129586E-04 8.348790E-05 4.683473E-06 0.0 0.0 0.0 122 10 -2.177385E-04 4.641662E-05 1.525496E-06 0.0 0.0 0.0 123 10 -2.181505E-04 -1.874715E-06 -2.356423E-06 0.0 0.0 0.0 124 10 -2.150588E-04 -3.921926E-05 -5.501041E-06 0.0 0.0 0.0 131 10 -2.063239E-04 8.258886E-05 9.366256E-06 0.0 0.0 0.0 132 10 -2.099790E-04 5.577421E-05 4.872156E-06 0.0 0.0 0.0 133 10 -2.112433E-04 -1.259494E-05 -6.475249E-06 0.0 0.0 0.0 134 10 -2.082060E-04 -3.955220E-05 -1.093903E-05 0.0 0.0 0.0 141 10 -1.952995E-04 7.695820E-05 1.319313E-05 0.0 0.0 0.0 142 10 -1.996174E-04 4.283406E-05 4.302892E-06 0.0 0.0 0.0 143 10 -2.001531E-04 -1.677468E-06 -6.541195E-06 0.0 0.0 0.0 144 10 -1.976191E-04 -3.608934E-05 -1.547801E-05 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 151 10 -1.805880E-04 7.291080E-05 1.678406E-05 0.0 0.0 0.0 152 10 -1.836100E-04 4.942181E-05 8.649281E-06 0.0 0.0 0.0 153 10 -1.849877E-04 -1.114777E-05 -1.134457E-05 0.0 0.0 0.0 154 10 -1.827367E-04 -3.478807E-05 -1.978748E-05 0.0 0.0 0.0 161 10 -1.630855E-04 6.525289E-05 1.810450E-05 0.0 0.0 0.0 162 10 -1.662093E-04 3.635155E-05 5.920385E-06 0.0 0.0 0.0 163 10 -1.663693E-04 -1.450106E-06 -9.055169E-06 0.0 0.0 0.0 164 10 -1.640752E-04 -3.050435E-05 -2.189976E-05 0.0 0.0 0.0 171 10 -1.446181E-04 5.928450E-05 1.890076E-05 0.0 0.0 0.0 172 10 -1.466031E-04 4.040585E-05 9.564835E-06 0.0 0.0 0.0 173 10 -1.462663E-04 -9.278231E-06 -1.366559E-05 0.0 0.0 0.0 174 10 -1.441882E-04 -2.809592E-05 -2.331117E-05 0.0 0.0 0.0 181 10 -1.262183E-04 5.117736E-05 1.757243E-05 0.0 0.0 0.0 182 10 -1.281103E-04 2.856281E-05 4.959772E-06 0.0 0.0 0.0 183 10 -1.279010E-04 -1.166435E-06 -9.963591E-06 0.0 0.0 0.0 184 10 -1.258991E-04 -2.380550E-05 -2.263469E-05 0.0 0.0 0.0 191 10 -1.091762E-04 4.535778E-05 1.613973E-05 0.0 0.0 0.0 192 10 -1.107025E-04 2.807930E-05 6.190968E-06 0.0 0.0 0.0 193 10 -1.111536E-04 1.182968E-05 -2.833581E-06 0.0 0.0 0.0 194 10 -1.105184E-04 -4.342401E-06 -1.185003E-05 0.0 0.0 0.0 195 10 -1.090536E-04 -2.166976E-05 -2.172712E-05 0.0 0.0 0.0 201 10 -9.383055E-05 3.860687E-05 1.442948E-05 0.0 0.0 0.0 202 10 -9.516672E-05 2.484169E-05 5.373656E-06 0.0 0.0 0.0 203 10 -9.550835E-05 9.786114E-06 -3.049737E-06 0.0 0.0 0.0 204 10 -9.508508E-05 -4.187457E-06 -1.133007E-05 0.0 0.0 0.0 205 10 -9.385943E-05 -1.894362E-05 -2.038731E-05 0.0 0.0 0.0 211 10 -8.029462E-05 3.404297E-05 1.266795E-05 0.0 0.0 0.0 212 10 -8.127763E-05 2.129549E-05 4.633388E-06 0.0 0.0 0.0 213 10 -8.156207E-05 8.809294E-06 -3.028430E-06 0.0 0.0 0.0 214 10 -8.125966E-05 -3.477609E-06 -1.060313E-05 0.0 0.0 0.0 215 10 -8.041404E-05 -1.641719E-05 -1.867212E-05 0.0 0.0 0.0 221 10 -6.820307E-05 2.893431E-05 1.087724E-05 0.0 0.0 0.0 222 10 -6.915100E-05 1.589952E-05 2.330779E-06 0.0 0.0 0.0 223 10 -6.916869E-05 -8.860315E-07 -8.381121E-06 0.0 0.0 0.0 224 10 -6.832305E-05 -1.397741E-05 -1.694368E-05 0.0 0.0 0.0 231 10 -5.758567E-05 2.465513E-05 9.198237E-06 0.0 0.0 0.0 235 10 -5.776519E-05 -1.211196E-05 -1.517940E-05 0.0 0.0 0.0 241 10 -3.566506E-05 1.482892E-05 5.568784E-06 0.0 0.0 0.0 245 10 -3.585236E-05 -7.348182E-06 -1.097009E-05 0.0 0.0 0.0 251 10 -2.129063E-05 8.867214E-06 3.177320E-06 0.0 0.0 0.0 255 10 -2.147229E-05 -4.708047E-06 -7.647450E-06 0.0 0.0 0.0 261 10 -1.223588E-05 4.945952E-06 1.582094E-06 0.0 0.0 0.0 265 10 -1.238185E-05 -2.853752E-06 -5.057435E-06 0.0 0.0 0.0 271 10 -6.814619E-06 2.678498E-06 7.097308E-07 0.0 0.0 0.0 275 10 -6.924958E-06 -1.757327E-06 -3.280747E-06 0.0 0.0 0.0 281 10 -3.639731E-06 1.340768E-06 2.342492E-07 0.0 0.0 0.0 285 10 -3.716476E-06 -1.042948E-06 -2.057988E-06 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 D I S P L A C E M E N T V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 291 10 -1.858353E-06 6.261932E-07 1.715712E-08 0.0 0.0 0.0 295 10 -1.910460E-06 -6.208658E-07 -1.267393E-06 0.0 0.0 0.0 301 10 -8.857004E-07 2.485580E-07 -6.961136E-08 0.0 0.0 0.0 305 10 -9.191349E-07 -3.594829E-07 -7.609662E-07 0.0 0.0 0.0 311 10 -3.791468E-07 6.770247E-08 -9.083384E-08 0.0 0.0 0.0 315 10 -4.002821E-07 -2.050725E-07 -4.462957E-07 0.0 0.0 0.0 321 10 -1.290095E-07 -1.056198E-08 -8.258133E-08 0.0 0.0 0.0 325 10 -1.417977E-07 -1.145089E-07 -2.557356E-07 0.0 0.0 0.0 331 10 -1.523212E-08 -3.838498E-08 -6.633874E-08 0.0 0.0 0.0 335 10 -2.284375E-08 -6.141856E-08 -1.416354E-07 0.0 0.0 0.0 341 10 2.869560E-08 -4.130651E-08 -4.836031E-08 0.0 0.0 0.0 345 10 2.433333E-08 -3.233980E-08 -7.628068E-08 0.0 0.0 0.0 351 10 4.002465E-08 -3.599662E-08 -3.403795E-08 0.0 0.0 0.0 355 10 3.758780E-08 -1.561655E-08 -3.874793E-08 0.0 0.0 0.0 361 10 3.693860E-08 -2.728876E-08 -2.263115E-08 0.0 0.0 0.0 365 10 3.562679E-08 -7.336475E-09 -1.864186E-08 0.0 0.0 0.0 371 10 2.925399E-08 -1.963251E-08 -1.491483E-08 0.0 0.0 0.0 375 10 2.857895E-08 -2.775632E-09 -7.703713E-09 0.0 0.0 0.0 381 10 2.068480E-08 -1.288511E-08 -9.522814E-09 0.0 0.0 0.0 385 10 2.035205E-08 -9.350497E-10 -2.379014E-09 0.0 0.0 0.0 391 10 1.298292E-08 -7.811437E-09 -6.315603E-09 0.0 0.0 0.0 395 10 1.283351E-08 -6.646342E-11 2.959341E-10 0.0 0.0 0.0 401 10 6.182059E-09 -3.598715E-09 -4.487289E-09 0.0 0.0 0.0 405 10 6.125025E-09 5.424363E-11 1.353192E-09 0.0 0.0 0.0 411 10 0.0 0.0 -3.970876E-09 0.0 0.0 0.0 412 10 0.0 0.0 -2.763596E-09 0.0 0.0 0.0 413 10 0.0 0.0 -1.133795E-09 0.0 0.0 0.0 414 10 0.0 0.0 4.987604E-10 0.0 0.0 0.0 415 10 0.0 0.0 1.701567E-09 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 L O A D V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 114 0 -5.166686E+00 0.0 0.0 0.0 0.0 0.0 124 0 -1.033337E+01 0.0 0.0 0.0 0.0 0.0 134 0 -1.033337E+01 0.0 0.0 0.0 0.0 0.0 144 0 -1.033337E+01 0.0 0.0 0.0 0.0 0.0 154 0 -1.033337E+01 0.0 0.0 0.0 0.0 0.0 164 0 -5.166686E+00 0.0 0.0 0.0 0.0 0.0 114 1 -5.153242E+00 0.0 0.0 0.0 0.0 0.0 124 1 -1.030648E+01 0.0 0.0 0.0 0.0 0.0 134 1 -1.030648E+01 0.0 0.0 0.0 0.0 0.0 144 1 -1.030648E+01 0.0 0.0 0.0 0.0 0.0 154 1 -1.030648E+01 0.0 0.0 0.0 0.0 0.0 164 1 -5.153242E+00 0.0 0.0 0.0 0.0 0.0 114 2 -5.113034E+00 0.0 0.0 0.0 0.0 0.0 124 2 -1.022607E+01 0.0 0.0 0.0 0.0 0.0 134 2 -1.022607E+01 0.0 0.0 0.0 0.0 0.0 144 2 -1.022607E+01 0.0 0.0 0.0 0.0 0.0 154 2 -1.022607E+01 0.0 0.0 0.0 0.0 0.0 164 2 -5.113034E+00 0.0 0.0 0.0 0.0 0.0 114 3 -5.046439E+00 0.0 0.0 0.0 0.0 0.0 124 3 -1.009288E+01 0.0 0.0 0.0 0.0 0.0 134 3 -1.009288E+01 0.0 0.0 0.0 0.0 0.0 144 3 -1.009288E+01 0.0 0.0 0.0 0.0 0.0 154 3 -1.009288E+01 0.0 0.0 0.0 0.0 0.0 164 3 -5.046439E+00 0.0 0.0 0.0 0.0 0.0 114 4 -4.954081E+00 0.0 0.0 0.0 0.0 0.0 124 4 -9.908161E+00 0.0 0.0 0.0 0.0 0.0 134 4 -9.908161E+00 0.0 0.0 0.0 0.0 0.0 144 4 -9.908161E+00 0.0 0.0 0.0 0.0 0.0 154 4 -9.908161E+00 0.0 0.0 0.0 0.0 0.0 164 4 -4.954081E+00 0.0 0.0 0.0 0.0 0.0 114 5 -4.836820E+00 0.0 0.0 0.0 0.0 0.0 124 5 -9.673640E+00 0.0 0.0 0.0 0.0 0.0 134 5 -9.673640E+00 0.0 0.0 0.0 0.0 0.0 144 5 -9.673640E+00 0.0 0.0 0.0 0.0 0.0 154 5 -9.673640E+00 0.0 0.0 0.0 0.0 0.0 164 5 -4.836820E+00 0.0 0.0 0.0 0.0 0.0 114 6 -4.695747E+00 0.0 0.0 0.0 0.0 0.0 124 6 -9.391495E+00 0.0 0.0 0.0 0.0 0.0 134 6 -9.391495E+00 0.0 0.0 0.0 0.0 0.0 144 6 -9.391495E+00 0.0 0.0 0.0 0.0 0.0 154 6 -9.391495E+00 0.0 0.0 0.0 0.0 0.0 164 6 -4.695747E+00 0.0 0.0 0.0 0.0 0.0 114 7 -4.532173E+00 0.0 0.0 0.0 0.0 0.0 124 7 -9.064346E+00 0.0 0.0 0.0 0.0 0.0 134 7 -9.064346E+00 0.0 0.0 0.0 0.0 0.0 144 7 -9.064346E+00 0.0 0.0 0.0 0.0 0.0 154 7 -9.064346E+00 0.0 0.0 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 L O A D V E C T O R SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 164 7 -4.532173E+00 0.0 0.0 0.0 0.0 0.0 114 8 -4.347610E+00 0.0 0.0 0.0 0.0 0.0 124 8 -8.695221E+00 0.0 0.0 0.0 0.0 0.0 134 8 -8.695221E+00 0.0 0.0 0.0 0.0 0.0 144 8 -8.695221E+00 0.0 0.0 0.0 0.0 0.0 154 8 -8.695221E+00 0.0 0.0 0.0 0.0 0.0 164 8 -4.347610E+00 0.0 0.0 0.0 0.0 0.0 114 9 -4.143755E+00 0.0 0.0 0.0 0.0 0.0 124 9 -8.287511E+00 0.0 0.0 0.0 0.0 0.0 134 9 -8.287511E+00 0.0 0.0 0.0 0.0 0.0 144 9 -8.287511E+00 0.0 0.0 0.0 0.0 0.0 154 9 -8.287511E+00 0.0 0.0 0.0 0.0 0.0 164 9 -4.143755E+00 0.0 0.0 0.0 0.0 0.0 114 10 -3.922476E+00 0.0 0.0 0.0 0.0 0.0 124 10 -7.844951E+00 0.0 0.0 0.0 0.0 0.0 134 10 -7.844951E+00 0.0 0.0 0.0 0.0 0.0 144 10 -7.844951E+00 0.0 0.0 0.0 0.0 0.0 154 10 -7.844951E+00 0.0 0.0 0.0 0.0 0.0 164 10 -3.922476E+00 0.0 0.0 0.0 0.0 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 111 0 3.175735E-04 0.0 -2.054438E+01 0.0 -8.721924E-01 0.0 -1.933128E+01 0.0 -5.468249E-01 0.0 1.331892E+01 0.0 2.663536E-01 0.0 2.654488E+01 0.0 0 111 1 -3.395081E-04 -7.076263E-04 -1.549734E+01 0.0 -8.638439E-01 5.102730E-01 -9.545174E+00 0.0 -4.863691E-01 -3.658003E-01 6.853249E+00 0.0 2.678967E-01 -1.234937E+00 1.823052E+01 0.0 0 111 2 1.348567E-02 -1.025155E-03 -9.569466E+00 0.0 -9.096918E-01 1.889151E+00 9.217463E+00 0.0 4.607496E-01 4.063952E-01 -5.014495E+00 0.0 2.925663E-01 -2.508737E+00 5.415639E+00 0.0 0 111 3 -1.737976E-02 9.382308E-03 -2.570389E+01 0.0 -1.001264E+00 5.150817E+00 -8.552100E+00 0.0 2.387064E+00 3.920389E+00 8.098587E+00 0.0 3.407574E-01 -3.098336E+00 2.630042E+01 0.0 0 111 4 9.686470E-03 -3.699481E-03 -2.902992E+01 0.0 -9.153614E-01 6.143842E+00 -1.931046E+01 0.0 2.142514E+00 5.099025E+00 1.507939E+01 0.0 3.232365E-01 -2.983666E+00 3.344912E+01 0.0 0 111 5 -8.678436E-05 2.901912E-03 -2.514917E+01 0.0 -8.043003E-01 6.214652E+00 -1.877675E+01 0.0 1.643339E+00 5.431815E+00 1.436740E+01 0.0 3.252792E-01 -2.645876E+00 2.979304E+01 0.0 0 111 6 3.606796E-03 4.318833E-03 -2.054000E+01 0.0 -7.200098E-01 5.961888E+00 -1.611438E+01 0.0 1.199237E+00 5.418803E+00 1.225253E+01 0.0 3.033295E-01 -2.241049E+00 2.462481E+01 0.0 0 111 7 1.134872E-03 -4.211724E-03 -1.647591E+01 0.0 -6.451187E-01 5.575144E+00 -1.327385E+01 0.0 8.304703E-01 5.203665E+00 1.008543E+01 0.0 2.718968E-01 -1.867896E+00 1.988398E+01 0.0 0 111 8 -8.020401E-04 2.415180E-04 -1.316486E+01 0.0 -5.858035E-01 5.131303E+00 -1.077408E+01 0.0 5.437453E-01 4.900210E+00 8.188550E+00 0.0 2.387242E-01 -1.555307E+00 1.596554E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 111 9 5.664825E-04 5.775690E-04 -1.052184E+01 0.0 -5.326238E-01 4.679421E+00 -8.705985E+00 0.0 3.203657E-01 4.553272E+00 6.616152E+00 0.0 2.064953E-01 -1.289898E+00 1.281433E+01 0.0 0 111 10 2.136469E-03 6.084412E-03 -8.429304E+00 0.0 -4.866290E-01 4.230435E+00 -7.007618E+00 0.0 1.472707E-01 4.184227E+00 5.325075E+00 0.0 1.774366E-01 -1.067159E+00 1.029963E+01 0.0 0 111 0.0000 1.232624E-02 0.0 -1.946261E+02 0.0 -8.336838E+00 0.0 -1.221742E+02 0.0 8.641562E+00 0.0 9.517079E+01 0.0 3.013972E+00 0.0 2.233219E+02 0.0 0 111 7.1000 9.206349E-03 9.179636E-03 -1.555163E+02 0.0 -6.664938E+00 2.971190E+01 -9.256639E+01 0.0 6.770258E+00 2.684013E+01 7.243534E+01 0.0 2.360923E+00 -1.125940E+01 1.767880E+02 0.0 0 112 0 8.743718E-01 0.0 -1.136794E+01 0.0 -3.949233E+00 0.0 1.058512E+01 0.0 -2.385414E+00 0.0 -1.463032E+01 0.0 2.581308E+00 0.0 1.542054E+01 0.0 0 112 1 8.715451E-01 -5.092053E-01 5.626144E+00 0.0 -3.894990E+00 4.330072E-01 2.916732E+01 0.0 -2.367465E+00 -6.877635E-01 -3.363361E+01 0.0 2.533639E+00 -2.097179E+00 -1.121307E+00 0.0 0 112 2 9.310746E-01 -1.879185E+00 4.441196E+01 0.0 -3.055831E+00 1.807802E+00 7.935194E+01 0.0 -2.354224E+00 8.277420E-03 -8.742751E+01 0.0 1.624722E+00 -5.131506E+00 -3.620046E+01 0.0 0 112 3 1.027367E+00 -5.163598E+00 2.542305E+01 0.0 -1.435411E+00 5.008529E+00 7.337159E+01 0.0 -2.377097E+00 4.159456E+00 -8.637993E+01 0.0 -2.101593E-01 -9.207088E+00 -1.223188E+01 0.0 0 112 4 9.088149E-01 -6.132656E+00 2.413192E+00 0.0 -1.700865E+00 5.902270E+00 4.351704E+01 0.0 -2.348707E+00 5.901310E+00 -5.454064E+01 0.0 2.628994E-02 -9.844504E+00 8.792154E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 112 5 8.024518E-01 -6.205193E+00 -3.586449E+00 0.0 -2.108616E+00 5.966768E+00 2.921254E+01 0.0 -2.362652E+00 6.530578E+00 -3.777398E+01 0.0 3.874481E-01 -9.363985E+00 1.231218E+01 0.0 0 112 6 7.187411E-01 -5.956728E+00 -5.115411E+00 0.0 -2.409636E+00 5.721004E+00 2.052062E+01 0.0 -2.404018E+00 6.591211E+00 -2.704587E+01 0.0 6.208019E-01 -8.581452E+00 1.177538E+01 0.0 0 112 7 6.483485E-01 -5.565341E+00 -5.107376E+00 0.0 -2.599407E+00 5.336343E+00 1.495457E+01 0.0 -2.441104E+00 6.341490E+00 -1.990958E+01 0.0 7.519853E-01 -7.754370E+00 1.018447E+01 0.0 0 112 8 5.870253E-01 -5.128757E+00 -4.548856E+00 0.0 -2.701775E+00 4.910397E+00 1.122414E+01 0.0 -2.454339E+00 5.941119E+00 -1.503510E+01 0.0 8.180540E-01 -6.961327E+00 8.449300E+00 0.0 0 112 9 5.349662E-01 -4.676669E+00 -3.858761E+00 0.0 -2.731797E+00 4.468833E+00 8.623543E+00 0.0 -2.439130E+00 5.474179E+00 -1.157446E+01 0.0 8.360950E-01 -6.219301E+00 6.877706E+00 0.0 0 112 10 4.856679E-01 -4.231503E+00 -3.187973E+00 0.0 -2.705134E+00 4.036528E+00 6.741246E+00 0.0 -2.395899E+00 4.987455E+00 -9.020693E+00 0.0 8.250746E-01 -5.535951E+00 5.520299E+00 0.0 0 112 0.0000 8.390373E+00 0.0 4.110158E+01 0.0 -2.929270E+01 0.0 3.272697E+02 0.0 -2.633005E+01 0.0 -3.969717E+02 0.0 1.079526E+01 0.0 2.977840E+01 0.0 0 112 7.1000 6.715086E+00 -2.968859E+01 4.786429E+01 0.0 -2.234392E+01 2.846939E+01 2.837900E+02 0.0 -1.976672E+01 3.192798E+01 -3.410179E+02 0.0 8.841080E+00 -4.334950E+01 1.027925E+01 0.0 0 113 0 3.952621E+00 0.0 1.952186E+01 0.0 -5.168442E+00 0.0 2.112818E+01 0.0 -4.858137E+00 0.0 -2.711550E+01 0.0 4.364410E+00 0.0 -1.352352E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 113 1 3.894554E+00 -4.337145E-01 3.231671E+01 0.0 -5.154110E+00 -1.710826E-03 2.924902E+01 0.0 -4.843957E+00 -4.097449E-01 -3.943379E+01 0.0 4.355932E+00 -9.034081E-01 -2.208531E+01 0.0 0 113 2 3.037373E+00 -1.822036E+00 7.030793E+01 0.0 -5.118624E+00 -2.270520E-03 5.617918E+01 0.0 -4.793257E+00 -4.499179E-01 -7.839024E+01 0.0 4.389273E+00 -2.558673E+00 -4.797281E+01 0.0 0 113 3 1.384884E+00 -5.016311E+00 7.275962E+01 0.0 -5.053633E+00 8.313507E-04 6.330246E+01 0.0 -4.711872E+00 2.650229E-01 -8.519009E+01 0.0 4.512062E+00 -5.898695E+00 -5.078745E+01 0.0 0 113 4 1.704628E+00 -5.916603E+00 4.976283E+01 0.0 -4.960936E+00 2.966888E-03 4.703033E+01 0.0 -4.628247E+00 7.908968E-01 -6.152725E+01 0.0 4.497777E+00 -6.641881E+00 -3.526337E+01 0.0 0 113 5 2.104806E+00 -5.973814E+00 3.611632E+01 0.0 -4.838264E+00 7.345527E-05 3.545863E+01 0.0 -4.517689E+00 1.083519E+00 -4.577473E+01 0.0 4.381452E+00 -6.515318E+00 -2.586395E+01 0.0 0 113 6 2.406148E+00 -5.727571E+00 2.671167E+01 0.0 -4.697614E+00 -1.757406E-03 2.690913E+01 0.0 -4.408504E+00 1.161940E+00 -3.441881E+01 0.0 4.221670E+00 -6.155560E+00 -1.929770E+01 0.0 0 113 7 2.600455E+00 -5.347017E+00 2.017373E+01 0.0 -4.532460E+00 5.497850E-03 2.065059E+01 0.0 -4.275033E+00 1.115629E+00 -2.625484E+01 0.0 4.031751E+00 -5.714090E+00 -1.468312E+01 0.0 0 113 8 2.698064E+00 -4.909804E+00 1.554160E+01 0.0 -4.346531E+00 7.914864E-04 1.604017E+01 0.0 -4.124269E+00 1.022014E+00 -2.032844E+01 0.0 3.824721E+00 -5.265079E+00 -1.136851E+01 0.0 0 113 9 2.731264E+00 -4.476295E+00 1.214525E+01 0.0 -4.143434E+00 6.867498E-04 1.261930E+01 0.0 -3.949693E+00 9.032423E-01 -1.594554E+01 0.0 3.605816E+00 -4.814209E+00 -8.929692E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 113 10 2.703796E+00 -4.038587E+00 9.612075E+00 0.0 -3.921999E+00 -3.953829E-03 1.000990E+01 0.0 -3.756562E+00 7.838631E-01 -1.263794E+01 0.0 3.379352E+00 -4.381573E+00 -7.087504E+00 0.0 0 113 0.0000 2.921859E+01 0.0 3.649696E+02 0.0 -5.193604E+01 0.0 3.385769E+02 0.0 -4.886721E+01 0.0 -4.470172E+02 0.0 4.556422E+01 0.0 -2.568629E+02 0.0 0 113 7.1000 2.227752E+01 -2.850744E+01 3.104097E+02 0.0 -4.012566E+01 1.531413E-03 2.845895E+02 0.0 -3.767999E+01 4.985452E+00 -3.775787E+02 0.0 3.516550E+01 -3.122082E+01 -2.175032E+02 0.0 0 121 0 -2.678022E-01 0.0 -2.654553E+01 0.0 -1.520115E+00 0.0 -1.130614E+01 0.0 4.370444E-01 0.0 1.915273E+01 0.0 1.985207E-01 0.0 1.870717E+01 0.0 0 121 1 -2.791719E-01 1.235026E+00 -1.823754E+01 0.0 -1.457106E+00 1.314130E+00 -4.821955E+00 0.0 4.467932E-01 -2.013853E+00 9.422348E+00 0.0 2.083397E-01 -1.614172E+00 1.372745E+01 0.0 0 121 2 -3.042357E-01 2.512244E+00 -5.422934E+00 0.0 -5.094500E-01 3.750664E+00 7.072321E+00 0.0 4.076183E-01 -3.161877E+00 -9.096638E+00 0.0 2.563362E-01 -3.295645E+00 7.774677E+00 0.0 0 121 3 -3.578758E-01 3.102209E+00 -2.632626E+01 0.0 1.419874E+00 7.940866E+00 -5.900761E+00 0.0 3.828091E-01 -9.259762E-01 8.836720E+00 0.0 2.879562E-01 -4.151860E+00 2.400530E+01 0.0 0 121 4 -3.415852E-01 2.993652E+00 -3.344818E+01 0.0 1.181950E+00 8.900661E+00 -1.291080E+01 0.0 4.108598E-01 3.587337E-01 1.968003E+01 0.0 3.042965E-01 -4.052092E+00 2.745304E+01 0.0 0 121 5 -3.345585E-01 2.653576E+00 -2.978796E+01 0.0 7.584076E-01 8.724033E+00 -1.230528E+01 0.0 4.268182E-01 1.166680E+00 1.918828E+01 0.0 3.004169E-01 -3.623049E+00 2.376324E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 121 6 -3.022399E-01 2.247564E+00 -2.461947E+01 0.0 4.145174E-01 8.160501E+00 -1.040521E+01 0.0 3.768462E-01 1.721782E+00 1.653083E+01 0.0 2.829075E-01 -3.097842E+00 1.936362E+01 0.0 0 121 7 -2.713997E-01 1.878605E+00 -1.989881E+01 0.0 1.593313E-01 7.466954E+00 -8.439030E+00 0.0 2.974441E-01 2.042415E+00 1.370125E+01 0.0 2.588844E-01 -2.614844E+00 1.550764E+01 0.0 0 121 8 -2.374732E-01 1.562471E+00 -1.597037E+01 0.0 -2.670860E-02 6.761950E+00 -6.772229E+00 0.0 2.184691E-01 2.198971E+00 1.118242E+01 0.0 2.321663E-01 -2.192424E+00 1.237185E+01 0.0 0 121 9 -2.056198E-01 1.296858E+00 -1.280406E+01 0.0 -1.595559E-01 6.075755E+00 -5.412289E+00 0.0 1.441227E-01 2.247137E+00 9.095935E+00 0.0 2.047539E-01 -1.831040E+00 9.882318E+00 0.0 0 121 10 -1.765797E-01 1.073455E+00 -1.029249E+01 0.0 -2.522821E-01 5.423616E+00 -4.306524E+00 0.0 7.828346E-02 2.225254E+00 7.381301E+00 0.0 1.799707E-01 -1.526211E+00 7.918961E+00 0.0 0 121 0.0000 -3.078542E+00 0.0 -2.233536E+02 0.0 8.862972E-03 0.0 -7.550790E+01 0.0 3.627109E+00 0.0 1.250752E+02 0.0 2.714549E+00 0.0 1.804753E+02 0.0 0 121 7.1000 -2.422044E+00 1.130168E+01 -1.768233E+02 0.0 -2.386908E-01 4.072740E+01 -5.671635E+01 0.0 3.019423E+00 8.172356E+00 9.440820E+01 0.0 2.085790E+00 -1.556036E+01 1.437109E+02 0.0 0 122 0 -5.110159E-01 0.0 -1.741164E+01 0.0 -5.469524E+00 0.0 1.650735E+01 0.0 -8.278718E-01 0.0 -7.954266E+00 0.0 3.988863E+00 0.0 8.835205E+00 0.0 0 122 1 -5.897393E-01 1.146496E+00 -8.818054E-01 0.0 -5.466087E+00 1.767890E+00 3.552938E+01 0.0 -7.629716E-01 -2.169934E+00 -2.646487E+01 0.0 4.011337E+00 -3.548006E+00 -8.095451E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 122 2 -1.598400E+00 9.632981E-01 3.415001E+01 0.0 -5.497094E+00 4.145529E+00 8.936135E+01 0.0 1.477445E-01 -2.703819E+00 -7.637731E+01 0.0 4.165039E+00 -7.498949E+00 -4.676168E+01 0.0 0 122 3 -3.594630E+00 -2.648900E+00 1.004265E+01 0.0 -5.689766E+00 7.509909E+00 8.849890E+01 0.0 1.914301E+00 1.033804E+00 -7.025786E+01 0.0 4.451501E+00 -1.097359E+01 -2.772022E+01 0.0 0 122 4 -3.362026E+00 -4.160548E+00 -1.098874E+01 0.0 -5.679528E+00 7.953434E+00 5.666059E+01 0.0 1.635051E+00 3.100712E+00 -4.042474E+01 0.0 4.344592E+00 -1.095067E+01 -4.648075E+00 0.0 0 122 5 -2.786484E+00 -4.792157E+00 -1.433736E+01 0.0 -5.508130E+00 7.492164E+00 3.975041E+01 0.0 1.044749E+00 4.217912E+00 -2.636900E+01 0.0 4.042492E+00 -9.894465E+00 1.465290E+00 0.0 0 122 6 -2.230773E+00 -4.991250E+00 -1.362248E+01 0.0 -5.245205E+00 6.857619E+00 2.885991E+01 0.0 4.410422E-01 4.687697E+00 -1.802680E+01 0.0 3.645700E+00 -8.702257E+00 3.224489E+00 0.0 0 122 7 -1.745857E+00 -4.923568E+00 -1.182116E+01 0.0 -4.939036E+00 6.234151E+00 2.154426E+01 0.0 -8.983302E-02 4.730435E+00 -1.281202E+01 0.0 3.229775E+00 -7.620923E+00 3.453585E+00 0.0 0 122 8 -1.338020E+00 -4.701889E+00 -9.867616E+00 0.0 -4.611796E+00 5.644199E+00 1.644451E+01 0.0 -5.270966E-01 4.550232E+00 -9.397288E+00 0.0 2.828460E+00 -6.682581E+00 3.122025E+00 0.0 0 122 9 -9.960073E-01 -4.403611E+00 -8.071600E+00 0.0 -4.283235E+00 5.091783E+00 1.276505E+01 0.0 -8.695803E-01 4.259367E+00 -7.085690E+00 0.0 2.455914E+00 -5.866863E+00 2.648133E+00 0.0 0 122 10 -7.205666E-01 -4.070709E+00 -6.539885E+00 0.0 -3.952450E+00 4.580316E+00 1.004141E+01 0.0 -1.125666E+00 3.912572E+00 -5.464489E+00 0.0 2.119797E+00 -5.148080E+00 2.170983E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 122 0.0000 -1.947352E+01 0.0 -4.934962E+01 0.0 -5.634185E+01 0.0 4.159631E+02 0.0 9.798684E-01 0.0 -3.006343E+02 0.0 3.928347E+01 0.0 -6.230573E+01 0.0 0 122 7.1000 -1.539750E+01 -2.421725E+01 -2.591857E+01 0.0 -4.375608E+01 3.511954E+01 3.561194E+02 0.0 1.859476E+00 2.148084E+01 -2.623435E+02 0.0 3.135934E+01 -4.464895E+01 -6.506491E+01 0.0 0 123 0 3.494788E+00 0.0 1.158109E+01 0.0 -5.467914E+00 0.0 2.714750E+01 0.0 -4.948598E+00 0.0 -1.933893E+01 0.0 5.239270E+00 0.0 -1.938861E+01 0.0 0 123 1 3.487752E+00 -1.805264E-01 2.012040E+01 0.0 -5.453379E+00 4.016861E-01 3.948990E+01 0.0 -4.937172E+00 -4.482010E-01 -2.742281E+01 0.0 5.202816E+00 -1.485621E+00 -3.213791E+01 0.0 0 123 2 3.488258E+00 -1.598128E+00 4.596457E+01 0.0 -5.388222E+00 4.401739E-01 7.846040E+01 0.0 -4.900621E+00 -3.966469E-01 -5.427815E+01 0.0 4.372810E+00 -3.186862E+00 -7.007198E+01 0.0 0 123 3 3.554935E+00 -5.779352E+00 4.868691E+01 0.0 -5.367073E+00 -2.705687E-01 8.523940E+01 0.0 -4.819677E+00 6.009172E-01 -6.131852E+01 0.0 2.801659E+00 -5.098090E+00 -7.262989E+01 0.0 0 123 4 3.543353E+00 -7.219948E+00 3.316735E+01 0.0 -5.267757E+00 -7.902124E-01 6.153389E+01 0.0 -4.697942E+00 1.305820E+00 -4.518071E+01 0.0 3.051914E+00 -4.917954E+00 -4.968933E+01 0.0 0 123 5 3.503174E+00 -7.516857E+00 2.381461E+01 0.0 -5.142103E+00 -1.082493E+00 4.582047E+01 0.0 -4.581582E+00 1.675233E+00 -3.387147E+01 0.0 3.385597E+00 -4.322402E+00 -3.608468E+01 0.0 0 123 6 3.436891E+00 -7.308762E+00 1.746592E+01 0.0 -4.981913E+00 -1.164296E+00 3.443427E+01 0.0 -4.444454E+00 1.757391E+00 -2.549233E+01 0.0 3.548134E+00 -3.838189E+00 -2.681347E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 123 7 3.349019E+00 -6.865427E+00 1.305333E+01 0.0 -4.787801E+00 -1.115942E+00 2.625938E+01 0.0 -4.301318E+00 1.676110E+00 -1.948432E+01 0.0 3.591468E+00 -3.459589E+00 -2.030761E+01 0.0 0 123 8 3.241505E+00 -6.324697E+00 9.951645E+00 0.0 -4.570515E+00 -1.019069E+00 2.034632E+01 0.0 -4.139203E+00 1.522998E+00 -1.511955E+01 0.0 3.550127E+00 -3.156473E+00 -1.568216E+01 0.0 0 123 9 3.114524E+00 -5.762594E+00 7.716880E+00 0.0 -4.338258E+00 -9.002083E-01 1.595871E+01 0.0 -3.956528E+00 1.346394E+00 -1.186051E+01 0.0 3.447060E+00 -2.896318E+00 -1.231867E+01 0.0 0 123 10 2.968781E+00 -5.196939E+00 6.059127E+00 0.0 -4.088518E+00 -7.815230E-01 1.264470E+01 0.0 -3.757600E+00 1.169740E+00 -9.405159E+00 0.0 3.303974E+00 -2.662976E+00 -9.791548E+00 0.0 0 123 0.0000 3.718298E+01 0.0 2.375818E+02 0.0 -5.485345E+01 0.0 4.473349E+02 0.0 -4.948470E+01 0.0 -3.227724E+02 0.0 4.149483E+01 0.0 -3.649159E+02 0.0 0 123 7.1000 2.842614E+01 -3.587697E+01 2.021481E+02 0.0 -4.242974E+01 -4.984362E+00 3.778556E+02 0.0 -3.823578E+01 7.716829E+00 -2.715454E+02 0.0 3.216333E+01 -2.066299E+01 -3.100323E+02 0.0 0 131 0 -1.955070E-01 0.0 -1.874763E+01 0.0 -2.208878E+00 0.0 -1.603338E+01 0.0 4.304104E-01 0.0 1.304656E+01 0.0 8.585129E-01 0.0 2.172481E+01 0.0 0 131 1 -2.070007E-01 1.610894E+00 -1.373943E+01 0.0 -2.199890E+00 2.946548E+00 -6.283966E+00 0.0 4.859219E-01 -2.045703E+00 6.657054E+00 0.0 8.731232E-01 -3.568133E+00 1.350610E+01 0.0 0 131 2 -2.287149E-01 3.288421E+00 -7.873717E+00 0.0 -2.254868E+00 6.744511E+00 1.239875E+01 0.0 1.425799E+00 -2.958292E+00 -4.977379E+00 0.0 9.405956E-01 -7.247162E+00 9.223213E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 131 3 -3.021832E-01 4.147937E+00 -2.406848E+01 0.0 -2.374432E+00 1.095508E+01 -5.367470E+00 0.0 3.347971E+00 -1.872516E-01 8.352252E+00 0.0 1.053143E+00 -8.946497E+00 2.199286E+01 0.0 0 131 4 -2.946758E-01 4.040015E+00 -2.750332E+01 0.0 -2.261372E+00 1.155352E+01 -1.621651E+01 0.0 3.059981E+00 1.135328E+00 1.545574E+01 0.0 1.056953E+00 -8.577661E+00 2.943107E+01 0.0 0 131 5 -3.007889E-01 3.617490E+00 -2.379147E+01 0.0 -2.056709E+00 1.083109E+01 -1.591119E+01 0.0 2.483893E+00 1.893601E+00 1.480345E+01 0.0 1.037148E+00 -7.545955E+00 2.620520E+01 0.0 0 131 6 -2.794609E-01 3.095170E+00 -1.937534E+01 0.0 -1.838608E+00 9.735464E+00 -1.356243E+01 0.0 1.944658E+00 2.369473E+00 1.271375E+01 0.0 9.641209E-01 -6.353985E+00 2.152964E+01 0.0 0 131 7 -2.567282E-01 2.602274E+00 -1.550682E+01 0.0 -1.621374E+00 8.624233E+00 -1.105600E+01 0.0 1.480548E+00 2.593714E+00 1.054978E+01 0.0 8.699951E-01 -5.280482E+00 1.728182E+01 0.0 0 131 8 -2.329483E-01 2.185740E+00 -1.237341E+01 0.0 -1.425053E+00 7.586064E+00 -8.880764E+00 0.0 1.104605E+00 2.666875E+00 8.645554E+00 0.0 7.724485E-01 -4.379684E+00 1.381620E+01 0.0 0 131 9 -2.053246E-01 1.827477E+00 -9.885828E+00 0.0 -1.245516E+00 6.649720E+00 -7.109063E+00 0.0 8.008649E-01 2.642094E+00 7.059275E+00 0.0 6.777916E-01 -3.625073E+00 1.106194E+01 0.0 0 131 10 -1.786418E-01 1.526499E+00 -7.926000E+00 0.0 -1.086859E+00 5.808646E+00 -5.674313E+00 0.0 5.568221E-01 2.549544E+00 5.745667E+00 0.0 5.900373E-01 -2.994759E+00 8.889838E+00 0.0 0 131 0.0000 -2.681974E+00 0.0 -1.807915E+02 0.0 -2.057356E+01 0.0 -9.369632E+01 0.0 1.712148E+01 0.0 9.805170E+01 0.0 9.693869E+00 0.0 1.863618E+02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 131 7.1000 -2.056081E+00 1.552787E+01 -1.439981E+02 0.0 -1.653790E+01 4.876160E+01 -6.944032E+01 0.0 1.365552E+01 1.118989E+01 7.414862E+01 0.0 7.577746E+00 -3.201023E+01 1.460868E+02 0.0 0 132 0 -2.215270E+00 0.0 -1.192661E+01 0.0 -7.161739E+00 0.0 1.133229E+01 0.0 7.140627E-01 0.0 -9.734899E+00 0.0 5.921612E+00 0.0 1.033563E+01 0.0 0 132 1 -2.247773E+00 2.617117E+00 4.981689E+00 0.0 -7.124006E+00 2.963299E+00 2.985970E+01 0.0 7.498784E-01 -3.176812E+00 -2.858635E+01 0.0 5.904173E+00 -5.124800E+00 -6.076485E+00 0.0 0 132 2 -2.301907E+00 3.921669E+00 4.353040E+01 0.0 -6.370024E+00 6.162282E+00 7.990965E+01 0.0 8.461862E-01 -4.223910E+00 -8.194208E+01 0.0 5.114779E+00 -1.080285E+01 -4.085934E+01 0.0 0 132 3 -2.382284E+00 9.234333E-01 2.431453E+01 0.0 -4.908701E+00 8.736433E+00 7.390244E+01 0.0 9.853115E-01 6.000557E-01 -8.055317E+01 0.0 3.460697E+00 -1.515749E+01 -1.675301E+01 0.0 0 132 4 -2.496613E+00 -9.469435E-01 1.219927E+00 0.0 -5.166771E+00 8.359598E+00 4.406467E+01 0.0 1.015507E+00 3.513807E+00 -4.879940E+01 0.0 3.697694E+00 -1.479554E+01 4.451085E+00 0.0 0 132 5 -2.404861E+00 -2.091775E+00 -4.755871E+00 0.0 -5.378215E+00 7.307981E+00 2.977917E+01 0.0 8.242329E-01 5.116202E+00 -3.248925E+01 0.0 3.863919E+00 -1.313854E+01 8.302622E+00 0.0 0 132 6 -2.176134E+00 -2.747260E+00 -6.203621E+00 0.0 -5.368068E+00 6.308796E+00 2.108450E+01 0.0 4.948820E-01 5.795307E+00 -2.238555E+01 0.0 3.787412E+00 -1.136430E+01 8.200041E+00 0.0 0 132 7 -1.898479E+00 -3.031355E+00 -6.095632E+00 0.0 -5.209831E+00 5.481462E+00 1.549405E+01 0.0 1.338375E-01 5.881468E+00 -1.589145E+01 0.0 3.572689E+00 -9.801426E+00 7.074360E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 132 8 -1.617635E+00 -3.098140E+00 -5.433915E+00 0.0 -4.967906E+00 4.808839E+00 1.172556E+01 0.0 -2.009501E-01 5.654401E+00 -1.161128E+01 0.0 3.296284E+00 -8.472922E+00 5.788145E+00 0.0 0 132 9 -1.351133E+00 -3.028619E+00 -4.643210E+00 0.0 -4.676040E+00 4.236220E+00 9.080200E+00 0.0 -4.880899E-01 5.276196E+00 -8.684559E+00 0.0 2.993010E+00 -7.343369E+00 4.629577E+00 0.0 0 132 10 -1.111905E+00 -2.883581E+00 -3.878233E+00 0.0 -4.356906E+00 3.743451E+00 7.150741E+00 0.0 -7.210700E-01 4.831278E+00 -6.601959E+00 0.0 2.687405E+00 -6.371083E+00 3.642950E+00 0.0 0 132 0.0000 -2.220400E+01 0.0 3.110945E+01 0.0 -6.068821E+01 0.0 3.333829E+02 0.0 4.353789E+00 0.0 -3.472800E+02 0.0 4.429967E+01 0.0 -1.126443E+01 0.0 0 132 7.1000 -1.772285E+01 -1.225431E+01 4.028230E+01 0.0 -4.742030E+01 3.308966E+01 2.885753E+02 0.0 4.652164E+00 2.587735E+01 -3.010518E+02 0.0 3.545694E+01 -5.833195E+01 -2.323532E+01 0.0 0 133 0 2.745110E+00 0.0 1.607897E+01 0.0 -5.387803E+00 0.0 1.928988E+01 0.0 -4.241082E+00 0.0 -2.228316E+01 0.0 5.283182E+00 0.0 -1.307467E+01 0.0 0 133 1 2.676890E+00 6.970183E-01 2.881921E+01 0.0 -5.372065E+00 4.485827E-01 2.738498E+01 0.0 -4.226258E+00 -1.245114E+00 -3.452932E+01 0.0 5.284163E+00 -1.538937E+00 -2.159383E+01 0.0 0 133 2 1.779525E+00 -2.812216E-01 6.664873E+01 0.0 -5.338768E+00 3.999094E-01 5.425118E+01 0.0 -4.166334E+00 -1.386935E+00 -7.329526E+01 0.0 5.349617E+00 -3.346549E+00 -4.739562E+01 0.0 0 133 3 7.966280E-02 -4.664178E+00 6.896716E+01 0.0 -5.290127E+00 -5.940782E-01 6.134957E+01 0.0 -4.049544E+00 6.946316E-01 -8.001701E+01 0.0 5.514702E+00 -5.764623E+00 -5.024562E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 133 4 4.263468E-01 -6.553684E+00 4.608108E+01 0.0 -5.215691E+00 -1.300751E+00 4.517387E+01 0.0 -3.962372E+00 2.229139E+00 -5.660769E+01 0.0 5.489582E+00 -5.734458E+00 -3.485078E+01 0.0 0 133 5 9.283136E-01 -7.202511E+00 3.274479E+01 0.0 -5.096516E+00 -1.677899E+00 3.380700E+01 0.0 -3.879810E+00 3.070261E+00 -4.139147E+01 0.0 5.309246E+00 -5.130313E+00 -2.560227E+01 0.0 0 133 6 1.365534E+00 -7.161659E+00 2.375440E+01 0.0 -4.945312E+00 -1.759993E+00 2.549524E+01 0.0 -3.822053E+00 3.283206E+00 -3.066908E+01 0.0 5.055977E+00 -4.587050E+00 -1.917504E+01 0.0 0 133 7 1.703981E+00 -6.761343E+00 1.763270E+01 0.0 -4.762642E+00 -1.669301E+00 1.947690E+01 0.0 -3.747666E+00 3.146613E+00 -2.312444E+01 0.0 4.765166E+00 -4.138891E+00 -1.466316E+01 0.0 0 133 8 1.938205E+00 -6.198060E+00 1.339044E+01 0.0 -4.555452E+00 -1.524383E+00 1.508180E+01 0.0 -3.657378E+00 2.866391E+00 -1.775657E+01 0.0 4.460978E+00 -3.776206E+00 -1.142263E+01 0.0 0 133 9 2.094925E+00 -5.601812E+00 1.034566E+01 0.0 -4.330245E+00 -1.347549E+00 1.184436E+01 0.0 -3.541194E+00 2.525932E+00 -1.385800E+01 0.0 4.153128E+00 -3.450639E+00 -9.035490E+00 0.0 0 133 10 2.176294E+00 -4.993586E+00 8.117298E+00 0.0 -4.086710E+00 -1.173632E+00 9.393291E+00 0.0 -3.402136E+00 2.184084E+00 -1.096136E+01 0.0 3.846468E+00 -3.160779E+00 -7.224594E+00 0.0 0 133 0.0000 1.791479E+01 0.0 3.325804E+02 0.0 -5.438133E+01 0.0 3.225481E+02 0.0 -4.269584E+01 0.0 -4.044934E+02 0.0 5.451221E+01 0.0 -2.542837E+02 0.0 0 133 7.1000 1.313038E+01 -3.391935E+01 2.841553E+02 0.0 -4.201081E+01 -7.715079E+00 2.713688E+02 0.0 -3.279654E+01 1.395543E+01 -3.425672E+02 0.0 4.232806E+01 -2.432039E+01 -2.149439E+02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 141 0 -8.602352E-01 0.0 -2.172635E+01 0.0 -2.616577E+00 0.0 -6.768372E+00 0.0 1.910031E+00 0.0 1.554580E+01 0.0 4.606247E-01 0.0 1.295532E+01 0.0 0 141 1 -8.839149E-01 3.567614E+00 -1.351239E+01 0.0 -2.552223E+00 2.817200E+00 -3.298492E-01 0.0 1.920823E+00 -4.372818E+00 5.964703E+00 0.0 4.774017E-01 -3.048469E+00 8.063995E+00 0.0 0 141 2 -9.547131E-01 7.249653E+00 -9.344149E-01 0.0 -1.613749E+00 6.746922E+00 1.146788E+01 0.0 1.888716E+00 -7.901553E+00 -1.214811E+01 0.0 5.484982E-01 -6.248104E+00 2.337070E+00 0.0 0 141 3 -1.067369E+00 8.948834E+00 -2.202285E+01 0.0 2.788525E-01 1.145501E+01 -1.516890E+00 0.0 1.890415E+00 -6.661064E+00 6.152777E+00 0.0 6.284828E-01 -7.833458E+00 1.872608E+01 0.0 0 141 4 -1.076119E+00 8.586265E+00 -2.943399E+01 0.0 5.422974E-02 1.205747E+01 -8.666807E+00 0.0 1.895348E+00 -5.083786E+00 1.731760E+01 0.0 6.616898E-01 -7.570108E+00 2.246680E+01 0.0 0 141 5 -1.046203E+00 7.552649E+00 -2.620127E+01 0.0 -3.061390E-01 1.129402E+01 -8.377125E+00 0.0 1.820633E+00 -3.609101E+00 1.717060E+01 0.0 6.539307E-01 -6.697293E+00 1.925052E+01 0.0 0 141 6 -9.631205E-01 6.359627E+00 -2.152583E+01 0.0 -5.524883E-01 1.014584E+01 -6.891544E+00 0.0 1.647956E+00 -2.330893E+00 1.485740E+01 0.0 6.152649E-01 -5.668399E+00 1.541151E+01 0.0 0 141 7 -8.694954E-01 5.290601E+00 -1.729585E+01 0.0 -7.004662E-01 8.968692E+00 -5.364508E+00 0.0 1.436250E+00 -1.380385E+00 1.235208E+01 0.0 5.649395E-01 -4.742888E+00 1.211998E+01 0.0 0 141 8 -7.711906E-01 4.385793E+00 -1.381987E+01 0.0 -7.811308E-01 7.883826E+00 -4.117064E+00 0.0 1.227333E+00 -7.008522E-01 1.012444E+01 0.0 5.117455E-01 -3.952904E+00 9.509857E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 141 9 -6.770463E-01 3.630136E+00 -1.105322E+01 0.0 -8.150330E-01 6.903236E+00 -3.140348E+00 0.0 1.031383E+00 -2.187874E-01 8.286281E+00 0.0 4.584789E-01 -3.290648E+00 7.489704E+00 0.0 0 141 10 -5.895088E-01 2.999278E+00 -8.883492E+00 0.0 -8.171015E-01 6.025026E+00 -2.378244E+00 0.0 8.544994E-01 1.225284E-01 6.779015E+00 0.0 4.082813E-01 -2.737025E+00 5.935369E+00 0.0 0 141 0.0000 -9.758916E+00 0.0 -1.864095E+02 0.0 -1.042183E+01 0.0 -3.608287E+01 0.0 1.752339E+01 0.0 1.024026E+02 0.0 5.989338E+00 0.0 1.342662E+02 0.0 0 141 7.1000 -7.639101E+00 3.204508E+01 -1.461360E+02 0.0 -8.567440E+00 5.065820E+01 -2.478792E+01 0.0 1.410385E+01 -1.270980E+01 7.495454E+01 0.0 4.599217E+00 -2.854938E+01 1.057232E+02 0.0 0 142 0 -3.732597E+00 0.0 -1.659705E+01 0.0 -8.788834E+00 0.0 1.553667E+01 0.0 2.648642E+00 0.0 -3.125137E+00 0.0 7.292522E+00 0.0 4.167587E+00 0.0 0 142 1 -3.837226E+00 4.351064E+00 -2.312164E-01 0.0 -8.799427E+00 4.073363E+00 3.443859E+01 0.0 2.728188E+00 -4.717621E+00 -2.142008E+01 0.0 7.342487E+00 -6.269094E+00 -1.256110E+01 0.0 0 142 2 -4.947270E+00 7.003795E+00 3.437413E+01 0.0 -8.903776E+00 7.998890E+00 8.796278E+01 0.0 3.707687E+00 -7.139878E+00 -7.074652E+01 0.0 7.602864E+00 -1.252125E+01 -5.073537E+01 0.0 0 142 3 -7.085036E+00 3.894816E+00 9.927650E+00 0.0 -9.244265E+00 1.046771E+01 8.698727E+01 0.0 5.606064E+00 -2.943360E+00 -6.422543E+01 0.0 8.064217E+00 -1.597054E+01 -3.142567E+01 0.0 0 142 4 -6.820891E+00 1.597375E+00 -1.126789E+01 0.0 -9.228027E+00 9.534451E+00 5.526617E+01 0.0 5.311006E+00 1.731829E-01 -3.450397E+01 0.0 7.967684E+00 -1.483497E+01 -8.183521E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 142 5 -6.039720E+00 -5.147719E-02 -1.469917E+01 0.0 -8.873158E+00 7.947297E+00 3.860968E+01 0.0 4.541995E+00 2.203088E+00 -2.094085E+01 0.0 7.495327E+00 -1.260918E+01 -1.831154E+00 0.0 0 142 6 -5.175469E+00 -1.145434E+00 -1.402207E+01 0.0 -8.314468E+00 6.605232E+00 2.798403E+01 0.0 3.662269E+00 3.276869E+00 -1.323804E+01 0.0 6.821505E+00 -1.049666E+01 2.338333E-01 0.0 0 142 7 -4.356101E+00 -1.769306E+00 -1.225171E+01 0.0 -7.676295E+00 5.609299E+00 2.089627E+01 0.0 2.825308E+00 3.670394E+00 -8.662610E+00 0.0 6.095100E+00 -8.777632E+00 8.060074E-01 0.0 0 142 8 -3.622409E+00 -2.076548E+00 -1.032031E+01 0.0 -7.019442E+00 4.845272E+00 1.598546E+01 0.0 2.085032E+00 3.696252E+00 -5.832097E+00 0.0 5.385853E+00 -7.409727E+00 8.188305E-01 0.0 0 142 9 -2.977796E+00 -2.196261E+00 -8.540642E+00 0.0 -6.380445E+00 4.237660E+00 1.245731E+01 0.0 1.455628E+00 3.530170E+00 -4.038077E+00 0.0 4.722221E+00 -6.303508E+00 6.689472E-01 0.0 0 142 10 -2.427468E+00 -2.202266E+00 -7.012245E+00 0.0 -5.765263E+00 3.736783E+00 9.847166E+00 0.0 9.332240E-01 3.267249E+00 -2.867295E+00 0.0 4.116774E+00 -5.389130E+00 4.875622E-01 0.0 0 142 0.0000 -5.102198E+01 0.0 -5.064053E+01 0.0 -8.899339E+01 0.0 4.059714E+02 0.0 3.550504E+01 0.0 -2.496001E+02 0.0 7.290656E+01 0.0 -9.755404E+01 0.0 0 142 7.1000 -4.056557E+01 -3.516343E+00 -2.606898E+01 0.0 -6.971929E+01 3.555994E+01 3.476330E+02 0.0 2.915202E+01 1.232761E+01 -2.214546E+02 0.0 5.790387E+01 -5.478160E+01 -9.385593E+01 0.0 0 143 0 2.794204E+00 0.0 7.222631E+00 0.0 -6.084959E+00 0.0 2.231079E+01 0.0 -5.196574E+00 0.0 -1.403716E+01 0.0 6.981966E+00 0.0 -1.549539E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 143 1 2.774953E+00 6.397805E-01 1.569024E+01 0.0 -6.072163E+00 1.236965E+00 3.457860E+01 0.0 -5.181593E+00 -9.350810E-01 -2.204538E+01 0.0 6.955814E+00 -2.476678E+00 -2.813819E+01 0.0 0 143 2 2.729874E+00 -4.295831E-01 4.131818E+01 0.0 -6.017014E+00 1.375957E+00 7.336023E+01 0.0 -5.130424E+00 -8.806252E-01 -4.870039E+01 0.0 6.172699E+00 -4.454582E+00 -6.580936E+01 0.0 0 143 3 2.745277E+00 -5.310549E+00 4.383754E+01 0.0 -6.027527E+00 -7.008238E-01 8.006323E+01 0.0 -5.023399E+00 1.045314E+00 -5.566119E+01 0.0 4.666275E+00 -5.058110E+00 -6.827951E+01 0.0 0 143 4 2.738531E+00 -7.317285E+00 2.841275E+01 0.0 -5.934273E+00 -2.229880E+00 5.661649E+01 0.0 -4.884172E+00 2.390728E+00 -3.979887E+01 0.0 4.903831E+00 -3.803435E+00 -4.558354E+01 0.0 0 143 5 2.753164E+00 -7.937241E+00 1.942259E+01 0.0 -5.780460E+00 -3.070854E+00 4.143301E+01 0.0 -4.760297E+00 3.084806E+00 -2.906000E+01 0.0 5.145065E+00 -2.564069E+00 -3.245918E+01 0.0 0 143 6 2.771439E+00 -7.825745E+00 1.356565E+01 0.0 -5.568539E+00 -3.287006E+00 3.068319E+01 0.0 -4.622137E+00 3.220240E+00 -2.137176E+01 0.0 5.170563E+00 -1.844375E+00 -2.373228E+01 0.0 0 143 7 2.777122E+00 -7.350904E+00 9.665406E+00 0.0 -5.314808E+00 -3.147992E+00 2.312777E+01 0.0 -4.482112E+00 3.055104E+00 -1.603676E+01 0.0 5.061049E+00 -1.474678E+00 -1.773985E+01 0.0 0 143 8 2.759027E+00 -6.727953E+00 7.045527E+00 0.0 -5.037304E+00 -2.863854E+00 1.777292E+01 0.0 -4.323314E+00 2.765885E+00 -1.228101E+01 0.0 4.868195E+00 -1.298886E+00 -1.356550E+01 0.0 0 143 9 2.713295E+00 -6.071525E+00 5.246003E+00 0.0 -4.746655E+00 -2.524047E+00 1.387030E+01 0.0 -4.143132E+00 2.438592E+00 -9.553319E+00 0.0 4.622152E+00 -1.215907E+00 -1.058634E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 143 10 2.639829E+00 -5.417192E+00 3.973370E+00 0.0 -4.442998E+00 -2.180795E+00 1.096758E+01 0.0 -3.944132E+00 2.112108E+00 -7.549566E+00 0.0 4.345398E+00 -1.171181E+00 -8.382111E+00 0.0 0 143 0.0000 3.019672E+01 0.0 1.953999E+02 0.0 -6.102670E+01 0.0 4.047841E+02 0.0 -5.169129E+01 0.0 -2.760954E+02 0.0 5.889301E+01 0.0 -3.297712E+02 0.0 0 143 7.1000 2.280257E+01 -3.715235E+01 1.681933E+02 0.0 -4.731509E+01 -1.395878E+01 3.428202E+02 0.0 -3.993957E+01 1.398764E+01 -2.331416E+02 0.0 4.591170E+01 -1.219345E+01 -2.811123E+02 0.0 0 151 0 -4.574051E-01 0.0 -1.298255E+01 0.0 -3.513260E+00 0.0 -8.960632E+00 0.0 1.631559E+00 0.0 1.031401E+01 0.0 1.289246E+00 0.0 1.162360E+01 0.0 0 151 1 -4.754219E-01 3.044847E+00 -8.081486E+00 0.0 -3.506142E+00 5.044583E+00 6.582413E-01 0.0 1.668091E+00 -3.560936E+00 4.051938E+00 0.0 1.326370E+00 -5.524678E+00 3.591782E+00 0.0 0 151 2 -5.197430E-01 6.241873E+00 -2.417086E+00 0.0 -3.574091E+00 1.095035E+01 1.901058E+01 0.0 2.567043E+00 -6.028738E+00 -7.209038E+00 0.0 1.453559E+00 -1.127619E+01 -8.541748E+00 0.0 0 151 3 -6.410522E-01 7.831066E+00 -1.877522E+01 0.0 -3.725872E+00 1.584770E+01 1.066696E+00 0.0 4.490330E+00 -3.952163E+00 6.424003E+00 0.0 1.598431E+00 -1.382814E+01 1.285551E+01 0.0 0 151 4 -6.544456E-01 7.560247E+00 -2.250802E+01 0.0 -3.591049E+00 1.586853E+01 -1.005540E+01 0.0 4.177416E+00 -2.505789E+00 1.376241E+01 0.0 1.611698E+00 -1.305729E+01 2.079279E+01 0.0 0 151 5 -6.531734E-01 6.692957E+00 -1.927583E+01 0.0 -3.312973E+00 1.426667E+01 -1.023592E+01 0.0 3.532798E+00 -1.390896E+00 1.334275E+01 0.0 1.576984E+00 -1.129094E+01 1.834576E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 151 6 -6.114407E-01 5.667669E+00 -1.541898E+01 0.0 -2.985840E+00 1.231486E+01 -8.494835E+00 0.0 2.914813E+00 -5.122567E-01 1.149561E+01 0.0 1.465950E+00 -9.341400E+00 1.457917E+01 0.0 0 151 7 -5.633621E-01 4.732789E+00 -1.212068E+01 0.0 -2.648838E+00 1.051230E+01 -6.620010E+00 0.0 2.373479E+00 6.564248E-02 9.559098E+00 0.0 1.326504E+00 -7.639175E+00 1.125234E+01 0.0 0 151 8 -5.123034E-01 3.947967E+00 -9.513000E+00 0.0 -2.334316E+00 8.943756E+00 -5.050900E+00 0.0 1.925483E+00 4.358674E-01 7.863579E+00 0.0 1.182077E+00 -6.243759E+00 8.645462E+00 0.0 0 151 9 -4.583759E-01 3.288871E+00 -7.493970E+00 0.0 -2.044632E+00 7.604158E+00 -3.829563E+00 0.0 1.555420E+00 6.636513E-01 6.463659E+00 0.0 1.042387E+00 -5.104164E+00 6.658720E+00 0.0 0 151 10 -4.063997E-01 2.738644E+00 -5.941838E+00 0.0 -1.784548E+00 6.461985E+00 -2.886257E+00 0.0 1.249840E+00 7.899657E-01 5.305490E+00 0.0 9.124546E-01 -4.173007E+00 5.165895E+00 0.0 0 151 0.0000 -5.953123E+00 0.0 -1.345287E+02 0.0 -3.302156E+01 0.0 -3.539800E+01 0.0 2.808627E+01 0.0 8.137351E+01 0.0 1.478566E+01 0.0 1.049693E+02 0.0 0 151 7.1000 -4.566690E+00 2.852694E+01 -1.059596E+02 0.0 -2.645457E+01 6.167409E+01 -2.198724E+01 0.0 2.233608E+01 -3.943218E+00 5.982126E+01 0.0 1.154537E+01 -4.714214E+01 7.946516E+01 0.0 0 152 0 -5.688502E+00 0.0 -1.073233E+01 0.0 -1.017414E+01 0.0 1.022813E+01 0.0 5.192140E+00 0.0 -1.824911E+00 0.0 8.251915E+00 0.0 2.332794E+00 0.0 0 152 1 -5.747029E+00 5.599199E+00 5.955811E+00 0.0 -1.015754E+01 5.277411E+00 2.857378E+01 0.0 5.235229E+00 -5.588017E+00 -2.040092E+01 0.0 8.277016E+00 -7.684132E+00 -1.382198E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 152 2 -5.909257E+00 9.476493E+00 4.393157E+01 0.0 -9.498119E+00 1.011596E+01 7.813734E+01 0.0 5.390499E+00 -8.352329E+00 -7.296905E+01 0.0 7.639812E+00 -1.559310E+01 -4.799962E+01 0.0 0 152 3 -6.161951E+00 6.760501E+00 2.425500E+01 0.0 -8.217381E+00 1.194081E+01 7.189351E+01 0.0 5.684074E+00 -2.954593E+00 -7.101840E+01 0.0 6.196362E+00 -1.992350E+01 -2.356421E+01 0.0 0 152 4 -6.272250E+00 4.064713E+00 9.492292E-01 0.0 -8.489038E+00 1.024160E+01 4.213408E+01 0.0 5.722564E+00 9.443060E-01 -3.942165E+01 0.0 6.479269E+00 -1.838939E+01 -2.064163E+00 0.0 0 152 5 -5.996542E+00 1.963047E+00 -5.111954E+00 0.0 -8.537146E+00 8.074148E+00 2.813406E+01 0.0 5.370028E+00 3.321544E+00 -2.386117E+01 0.0 6.520475E+00 -1.550547E+01 2.244501E+00 0.0 0 152 6 -5.476623E+00 5.186630E-01 -6.603397E+00 0.0 -8.253924E+00 6.347490E+00 1.977340E+01 0.0 4.773662E+00 4.457818E+00 -1.474561E+01 0.0 6.219032E+00 -1.276312E+01 2.731796E+00 0.0 0 152 7 -4.875580E+00 -3.415452E-01 -6.530933E+00 0.0 -7.787302E+00 5.113177E+00 1.448365E+01 0.0 4.107446E+00 4.767286E+00 -9.243063E+00 0.0 5.750053E+00 -1.052956E+01 2.239969E+00 0.0 0 152 8 -4.274936E+00 -8.309451E-01 -5.899721E+00 0.0 -7.239073E+00 4.232003E+00 1.096583E+01 0.0 3.461700E+00 4.644527E+00 -5.860170E+00 0.0 5.224154E+00 -8.753147E+00 1.567936E+00 0.0 0 152 9 -3.706411E+00 -1.083113E+00 -5.131249E+00 0.0 -6.659236E+00 3.567812E+00 8.524149E+00 0.0 2.870618E+00 4.320565E+00 -3.732997E+00 0.0 4.688046E+00 -7.333989E+00 9.806862E-01 0.0 0 152 10 -3.187939E+00 -1.195018E+00 -4.379987E+00 0.0 -6.075513E+00 3.053333E+00 6.757764E+00 0.0 2.344835E+00 3.910238E+00 -2.357594E+00 0.0 4.170466E+00 -6.175607E+00 5.166721E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 152 0.0000 -5.729702E+01 0.0 3.070204E+01 0.0 -9.108842E+01 0.0 3.196057E+02 0.0 5.015279E+01 0.0 -2.654355E+02 0.0 6.941660E+01 0.0 -7.483562E+01 0.0 0 152 7.1000 -4.545454E+01 5.838408E+00 4.103973E+01 0.0 -7.151929E+01 3.485945E+01 2.771606E+02 0.0 4.040682E+01 1.668194E+01 -2.355303E+02 0.0 5.523050E+01 -6.618182E+01 -7.494137E+01 0.0 0 153 0 5.395373E-01 0.0 8.437694E+00 0.0 -5.140292E+00 0.0 1.400672E+01 0.0 -1.428161E+00 0.0 -1.185637E+01 0.0 4.689423E+00 0.0 -1.057795E+01 0.0 0 153 1 4.662155E-01 1.920261E+00 2.104079E+01 0.0 -5.128498E+00 9.358690E-01 2.202029E+01 0.0 -1.431490E+00 -2.136597E+00 -2.395080E+01 0.0 4.718845E+00 -2.095800E+00 -1.899684E+01 0.0 0 153 2 -4.426908E-01 1.465859E+00 5.849583E+01 0.0 -5.109489E+00 8.856820E-01 4.868011E+01 0.0 -1.418756E+00 -2.455583E+00 -6.232081E+01 0.0 4.870773E+00 -3.991178E+00 -4.456068E+01 0.0 0 153 3 -2.158966E+00 -3.932422E+00 6.058841E+01 0.0 -5.096123E+00 -1.039536E+00 5.569726E+01 0.0 -1.307860E+00 8.573935E-01 -6.889130E+01 0.0 5.096817E+00 -5.443532E+00 -4.734991E+01 0.0 0 153 4 -1.774636E+00 -6.625816E+00 3.798055E+01 0.0 -5.031696E+00 -2.385172E+00 3.979273E+01 0.0 -1.225269E+00 3.248912E+00 -4.595741E+01 0.0 5.065075E+00 -4.621630E+00 -3.217550E+01 0.0 0 153 5 -1.166529E+00 -7.716150E+00 2.532359E+01 0.0 -4.920849E+00 -3.085420E+00 2.900763E+01 0.0 -1.199938E+00 4.517045E+00 -3.175590E+01 0.0 4.852453E+00 -3.530101E+00 -2.331074E+01 0.0 0 153 6 -5.899624E-01 -7.785421E+00 1.719574E+01 0.0 -4.769365E+00 -3.222905E+00 2.137640E+01 0.0 -1.234121E+00 4.792777E+00 -2.223053E+01 0.0 4.558010E+00 -2.791483E+00 -1.731868E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 153 7 -1.022943E-01 -7.319717E+00 1.192047E+01 0.0 -4.582603E+00 -3.047486E+00 1.603685E+01 0.0 -1.273146E+00 4.540079E+00 -1.586045E+01 0.0 4.230961E+00 -2.321662E+00 -1.319841E+01 0.0 0 153 8 2.799931E-01 -6.624291E+00 8.460415E+00 0.0 -4.371820E+00 -2.766932E+00 1.225289E+01 0.0 -1.308037E+00 4.081541E+00 -1.155995E+01 0.0 3.902598E+00 -2.026950E+00 -1.029433E+01 0.0 0 153 9 5.781597E-01 -5.886008E+00 6.118311E+00 0.0 -4.144222E+00 -2.438553E+00 9.538968E+00 0.0 -1.325000E+00 3.552327E+00 -8.598367E+00 0.0 3.582896E+00 -1.809620E+00 -8.189785E+00 0.0 0 153 10 7.947330E-01 -5.148837E+00 4.501015E+00 0.0 -3.900319E+00 -2.116783E+00 7.539324E+00 0.0 -1.324862E+00 3.035347E+00 -6.513636E+00 0.0 3.276234E+00 -1.647161E+00 -6.606709E+00 0.0 0 153 0.0000 -3.576440E+00 0.0 2.600628E+02 0.0 -5.219527E+01 0.0 2.759492E+02 0.0 -1.447664E+01 0.0 -3.094955E+02 0.0 4.884409E+01 0.0 -2.325795E+02 0.0 0 153 7.1000 -3.783246E+00 -3.501308E+01 2.256587E+02 0.0 -4.032468E+01 -1.398317E+01 2.330306E+02 0.0 -1.095967E+01 1.979535E+01 -2.653603E+02 0.0 3.812013E+01 -1.600231E+01 -1.967001E+02 0.0 0 161 0 -1.290102E+00 0.0 -1.162660E+01 0.0 -2.918007E+00 0.0 -8.474274E-01 0.0 2.737645E+00 0.0 8.097992E+00 0.0 4.358521E-01 0.0 4.379257E+00 0.0 0 161 1 -1.336655E+00 5.523843E+00 -3.597519E+00 0.0 -2.879578E+00 3.992836E+00 5.505692E+00 0.0 2.783895E+00 -6.369000E+00 -1.214294E+00 0.0 4.575424E-01 -4.119448E+00 -4.312744E-01 0.0 0 161 2 -1.463187E+00 1.127761E+01 8.520653E+00 0.0 -2.024491E+00 9.118456E+00 1.710797E+01 0.0 2.802818E+00 -1.197243E+01 -1.864323E+01 0.0 5.956678E-01 -8.521289E+00 -5.936451E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 161 3 -1.612307E+00 1.382961E+01 -1.289545E+01 0.0 -1.870003E-01 1.409129E+01 4.033846E+00 0.0 2.753069E+00 -1.149961E+01 5.369759E-02 0.0 7.698879E-01 -1.062948E+01 1.072835E+01 0.0 0 161 4 -1.629937E+00 1.306458E+01 -2.080288E+01 0.0 -4.120750E-01 1.414836E+01 -3.331841E+00 0.0 2.729046E+00 -9.548134E+00 1.160695E+01 0.0 8.107872E-01 -1.006026E+01 1.490717E+01 0.0 0 161 5 -1.585333E+00 1.129650E+01 -1.834549E+01 0.0 -7.359352E-01 1.269695E+01 -3.463943E+00 0.0 2.627638E+00 -7.433726E+00 1.200174E+01 0.0 7.738686E-01 -8.689801E+00 1.235638E+01 0.0 0 161 6 -1.465673E+00 9.346127E+00 -1.458060E+01 0.0 -9.211559E-01 1.092995E+01 -2.507429E+00 0.0 2.405351E+00 -5.511384E+00 1.028528E+01 0.0 7.003250E-01 -7.167490E+00 9.309479E+00 0.0 0 161 7 -1.326087E+00 7.647933E+00 -1.126694E+01 0.0 -1.001846E+00 9.282036E+00 -1.533781E+00 0.0 2.134407E+00 -4.035040E+00 8.373703E+00 0.0 6.222858E-01 -5.846232E+00 6.815006E+00 0.0 0 161 8 -1.180886E+00 6.248491E+00 -8.648136E+00 0.0 -1.018551E+00 7.860074E+00 -8.075190E-01 0.0 1.862827E+00 -2.945568E+00 6.709085E+00 0.0 5.501270E-01 -4.757584E+00 4.949860E+00 0.0 0 161 9 -1.041835E+00 5.107381E+00 -6.656155E+00 0.0 -9.948292E-01 6.647616E+00 -2.987127E-01 0.0 1.606992E+00 -2.142065E+00 5.374002E+00 0.0 4.839077E-01 -3.874693E+00 3.599155E+00 0.0 0 161 10 -9.121809E-01 4.175613E+00 -5.163234E+00 0.0 -9.472008E-01 5.617949E+00 4.458046E-02 0.0 1.374179E+00 -1.544197E+00 4.311468E+00 0.0 4.248800E-01 -3.157523E+00 2.631521E+00 0.0 0 161 0.0000 -1.484418E+01 0.0 -1.050624E+02 0.0 -1.404067E+01 0.0 1.390144E+01 0.0 2.581787E+01 0.0 4.695639E+01 0.0 6.625132E+00 0.0 6.330846E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 161 7.1000 -1.160008E+01 4.716882E+01 -7.955015E+01 0.0 -1.150379E+01 5.428747E+01 1.581188E+01 0.0 2.064765E+01 -2.941587E+01 2.927883E+01 0.0 5.098320E+00 -3.604807E+01 4.777539E+01 0.0 0 162 0 -6.963305E+00 0.0 -1.179021E+01 0.0 -8.916763E+00 0.0 1.157511E+01 0.0 6.645342E+00 0.0 1.593277E+00 0.0 7.064735E+00 0.0 -1.387436E+00 0.0 0 162 1 -7.065600E+00 7.250233E+00 4.272728E+00 0.0 -8.974213E+00 6.118392E+00 3.022228E+01 0.0 6.672752E+00 -7.019319E+00 -1.635268E+01 0.0 7.213547E+00 -8.499133E+00 -1.779038E+01 0.0 0 162 2 -8.202956E+00 1.249412E+01 3.810806E+01 0.0 -9.241318E+00 1.138259E+01 8.307428E+01 0.0 7.556475E+00 -1.114553E+01 -6.473514E+01 0.0 7.767286E+00 -1.664407E+01 -5.516576E+01 0.0 0 162 3 -1.050314E+01 9.790075E+00 1.312269E+01 0.0 -9.773518E+00 1.283703E+01 8.176355E+01 0.0 9.638020E+00 -6.488949E+00 -5.757488E+01 0.0 8.409792E+00 -1.977649E+01 -3.545317E+01 0.0 0 162 4 -1.025503E+01 6.741430E+00 -8.387253E+00 0.0 -9.789024E+00 1.049363E+01 5.026247E+01 0.0 9.442667E+00 -2.448799E+00 -2.797589E+01 0.0 8.312017E+00 -1.738132E+01 -1.202309E+01 0.0 0 162 5 -9.315619E+00 4.195666E+00 -1.210411E+01 0.0 -9.346983E+00 7.799310E+00 3.420250E+01 0.0 8.576887E+00 3.145865E-01 -1.505112E+01 0.0 7.766157E+00 -1.395898E+01 -5.440006E+00 0.0 0 162 6 -8.209097E+00 2.350031E+00 -1.171577E+01 0.0 -8.628824E+00 5.783065E+00 2.426897E+01 0.0 7.508511E+00 1.824764E+00 -8.154808E+00 0.0 6.972095E+00 -1.095635E+01 -3.079937E+00 0.0 0 162 7 -7.125040E+00 1.173570E+00 -1.025632E+01 0.0 -7.819170E+00 4.445127E+00 1.782892E+01 0.0 6.451410E+00 2.439351E+00 -4.355942E+00 0.0 6.126522E+00 -8.658269E+00 -2.164074E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 162 8 -6.133805E+00 4.602969E-01 -8.629549E+00 0.0 -7.006500E+00 3.533043E+00 1.348997E+01 0.0 5.486313E+00 2.578422E+00 -2.208348E+00 0.0 5.318102E+00 -6.932426E+00 -1.798767E+00 0.0 0 162 9 -5.248013E+00 2.769971E-02 -7.139909E+00 0.0 -6.236849E+00 2.891380E+00 1.045114E+01 0.0 4.635516E+00 2.476495E+00 -9.960260E-01 0.0 4.580386E+00 -5.613926E+00 -1.613171E+00 0.0 0 162 10 -4.473181E+00 -2.309712E-01 -5.867645E+00 0.0 -5.518846E+00 2.420223E+00 8.244723E+00 0.0 3.896353E+00 2.261724E+00 -3.131886E-01 0.0 3.923104E+00 -4.584888E+00 -1.484734E+00 0.0 0 162 0.0000 -8.349479E+01 0.0 -2.038729E+01 0.0 -9.125200E+01 0.0 3.653839E+02 0.0 7.651025E+01 0.0 -1.961248E+02 0.0 7.345374E+01 0.0 -1.374005E+02 0.0 0 162 7.1000 -6.609241E+01 1.583749E+01 -6.465387E-01 0.0 -7.189355E+01 3.287745E+01 3.144026E+02 0.0 6.087266E+01 2.674726E+00 -1.784650E+02 0.0 5.852149E+01 -5.788710E+01 -1.264027E+02 0.0 0 163 0 -9.614830E-01 0.0 8.049021E-01 0.0 -3.732565E+00 0.0 1.187210E+01 0.0 3.778839E-02 0.0 -3.841345E+00 0.0 3.494204E+00 0.0 -8.834776E+00 0.0 0 163 1 -9.696789E-01 1.563051E+00 9.155624E+00 0.0 -3.714573E+00 2.128527E+00 2.397973E+01 0.0 6.022072E-02 -1.505981E+00 -1.177114E+01 0.0 3.444717E+00 -3.375359E+00 -2.124664E+01 0.0 0 163 2 -9.964180E-01 9.604850E-01 3.443517E+01 0.0 -3.652847E+00 2.444246E+00 6.236729E+01 0.0 1.709518E-01 -1.542660E+00 -3.822470E+01 0.0 2.587051E+00 -5.563586E+00 -5.830386E+01 0.0 0 163 3 -1.002956E+00 -4.443984E+00 3.664248E+01 0.0 -3.729126E+00 -8.644328E-01 6.892563E+01 0.0 2.514114E-01 1.202641E+00 -4.505772E+01 0.0 1.210648E+00 -4.896520E+00 -6.053516E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 163 4 -9.845734E-01 -6.816793E+00 2.137025E+01 0.0 -3.717934E+00 -3.250927E+00 4.596445E+01 0.0 2.538681E-01 3.039038E+00 -2.954044E+01 0.0 1.654343E+00 -2.631296E+00 -3.826920E+01 0.0 0 163 5 -8.635731E-01 -7.590349E+00 1.293631E+01 0.0 -3.623817E+00 -4.519057E+00 3.178373E+01 0.0 2.139549E-01 3.935671E+00 -1.964207E+01 0.0 2.022507E+00 -8.101627E-01 -2.596931E+01 0.0 0 163 6 -6.943607E-01 -7.458291E+00 7.795753E+00 0.0 -3.460480E+00 -4.798007E+00 2.223750E+01 0.0 1.654816E-01 4.052486E+00 -1.301467E+01 0.0 2.134918E+00 1.059263E-01 -1.817188E+01 0.0 0 163 7 -5.192242E-01 -6.885878E+00 4.621408E+00 0.0 -3.257416E+00 -4.542389E+00 1.586051E+01 0.0 1.117649E-01 3.775419E+00 -8.716909E+00 0.0 2.102337E+00 4.572124E-01 -1.305901E+01 0.0 0 163 8 -3.576241E-01 -6.154603E+00 2.673166E+00 0.0 -3.039383E+00 -4.079866E+00 1.156654E+01 0.0 6.508350E-02 3.354293E+00 -5.902927E+00 0.0 1.994991E+00 5.208113E-01 -9.669979E+00 0.0 0 163 9 -2.182803E-01 -5.407816E+00 1.468869E+00 0.0 -2.819063E+00 -3.551628E+00 8.604012E+00 0.0 2.731371E-02 2.903051E+00 -4.022789E+00 0.0 1.849840E+00 4.573525E-01 -7.353794E+00 0.0 0 163 10 -1.021655E-01 -4.691508E+00 7.175236E-01 0.0 -2.597913E+00 -3.031745E+00 6.517029E+00 0.0 -4.350185E-03 2.468351E+00 -2.764330E+00 0.0 1.691380E+00 3.515230E-01 -5.710238E+00 0.0 0 163 0.0000 -7.670338E+00 0.0 1.326215E+02 0.0 -3.734512E+01 0.0 3.096785E+02 0.0 1.353489E+00 0.0 -1.824990E+02 0.0 2.418694E+01 0.0 -2.671238E+02 0.0 0 163 7.1000 -6.565331E+00 -3.357765E+01 1.178138E+02 0.0 -2.905935E+01 -1.980368E+01 2.655230E+02 0.0 1.135349E+00 1.697326E+01 -1.576550E+02 0.0 1.903839E+01 -3.683343E+00 -2.298584E+02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 171 0 -4.317780E-01 0.0 -4.390556E+00 0.0 -3.014847E+00 0.0 -1.228806E+00 0.0 1.411213E+00 0.0 4.549942E+00 0.0 1.074745E+00 0.0 1.067596E+00 0.0 0 171 1 -4.559975E-01 4.115807E+00 4.133415E-01 0.0 -3.087036E+00 6.761524E+00 8.287712E+00 0.0 1.452623E+00 -4.602407E+00 -1.520590E+00 0.0 1.178162E+00 -7.195305E+00 -6.898056E+00 0.0 0 171 2 -5.648103E-01 8.515937E+00 5.880306E+00 0.0 -2.946978E+00 1.445566E+01 2.620100E+01 0.0 2.467908E+00 -8.231209E+00 -1.259265E+01 0.0 1.002795E+00 -1.478409E+01 -1.834447E+01 0.0 0 171 3 -7.774963E-01 1.062804E+01 -1.076268E+01 0.0 -2.303940E+00 1.972179E+01 7.598862E+00 0.0 4.467316E+00 -6.718547E+00 6.593665E-01 0.0 3.142433E-01 -1.783745E+01 4.595787E+00 0.0 0 171 4 -8.024445E-01 1.005226E+01 -1.493385E+01 0.0 -2.271317E+00 1.895594E+01 -3.922569E+00 0.0 4.103296E+00 -5.069654E+00 8.400572E+00 0.0 4.442253E-01 -1.647608E+01 1.304301E+01 0.0 0 171 5 -7.733746E-01 8.686635E+00 -1.237301E+01 0.0 -2.254440E+00 1.636868E+01 -4.598686E+00 0.0 3.371422E+00 -3.614995E+00 8.580511E+00 0.0 7.125053E-01 -1.389126E+01 1.113947E+01 0.0 0 171 6 -6.967602E-01 7.168462E+00 -9.309216E+00 0.0 -2.137486E+00 1.352445E+01 -3.479450E+00 0.0 2.688586E+00 -2.410016E+00 7.341558E+00 0.0 8.532753E-01 -1.115175E+01 8.102272E+00 0.0 0 171 7 -6.207848E-01 5.838662E+00 -6.813268E+00 0.0 -1.946407E+00 1.104807E+01 -2.262341E+00 0.0 2.126023E+00 -1.573201E+00 5.966408E+00 0.0 8.809738E-01 -8.835110E+00 5.578362E+00 0.0 0 171 8 -5.502262E-01 4.754421E+00 -4.950449E+00 0.0 -1.731401E+00 9.004148E+00 -1.323784E+00 0.0 1.687454E+00 -1.003511E+00 4.772357E+00 0.0 8.414173E-01 -6.993779E+00 3.752754E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 171 9 -4.835358E-01 3.874305E+00 -3.599704E+00 0.0 -1.513067E+00 7.340697E+00 -6.722031E-01 0.0 1.344973E+00 -6.174536E-01 3.814193E+00 0.0 7.674599E-01 -5.540361E+00 2.481529E+00 0.0 0 171 10 -4.231725E-01 3.160083E+00 -2.634459E+00 0.0 -1.307547E+00 5.989351E+00 -2.330170E-01 0.0 1.075278E+00 -3.598947E-01 3.040720E+00 0.0 6.804638E-01 -4.392646E+00 1.626526E+00 0.0 0 171 0.0000 -6.580380E+00 0.0 -6.347355E+01 0.0 -2.451447E+01 0.0 2.436671E+01 0.0 2.619609E+01 0.0 3.301239E+01 0.0 8.750265E+00 0.0 2.614478E+01 0.0 0 171 7.1000 -5.057886E+00 3.603445E+01 -4.792812E+01 0.0 -1.978676E+01 6.743695E+01 2.716032E+01 0.0 2.098146E+01 -1.410464E+01 2.036678E+01 0.0 6.697429E+00 -5.616607E+01 1.451064E+01 0.0 0 172 0 -6.788544E+00 0.0 -5.471664E+00 0.0 -7.097458E+00 0.0 5.904655E+00 0.0 5.872553E+00 0.0 3.266159E+00 0.0 6.041519E+00 0.0 -3.698502E+00 0.0 0 172 1 -6.902972E+00 8.108236E+00 1.072648E+01 0.0 -7.168819E+00 7.272805E+00 2.376527E+01 0.0 6.041186E+00 -7.673717E+00 -1.463901E+01 0.0 6.087471E+00 -9.652542E+00 -1.944027E+01 0.0 0 172 2 -7.616118E+00 1.416370E+01 4.765092E+01 0.0 -7.158646E+00 1.353860E+01 7.188229E+01 0.0 6.908243E+00 -1.184751E+01 -6.442739E+01 0.0 5.939865E+00 -1.938084E+01 -5.362067E+01 0.0 0 172 3 -8.790764E+00 1.152951E+01 2.783841E+01 0.0 -6.854610E+00 1.453109E+01 6.499023E+01 0.0 8.038330E+00 -5.662690E+00 -5.989714E+01 0.0 5.546543E+00 -2.357769E+01 -3.084859E+01 0.0 0 172 4 -8.770883E+00 7.987717E+00 4.353113E+00 0.0 -7.036989E+00 1.150302E+01 3.576260E+01 0.0 7.885051E+00 -8.755460E-01 -2.924221E+01 0.0 5.824620E+00 -2.076154E+01 -8.801590E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 172 5 -8.133106E+00 5.034828E+00 -1.968311E+00 0.0 -6.805242E+00 8.268427E+00 2.257064E+01 0.0 7.204432E+00 2.069873E+00 -1.539806E+01 0.0 5.617179E+00 -1.662841E+01 -3.446760E+00 0.0 0 172 6 -7.234870E+00 2.947804E+00 -3.732073E+00 0.0 -6.248642E+00 5.865977E+00 1.505028E+01 0.0 6.292653E+00 3.464649E+00 -8.024531E+00 0.0 5.068183E+00 -1.294534E+01 -1.905674E+00 0.0 0 172 7 -6.308539E+00 1.655964E+00 -3.943175E+00 0.0 -5.581266E+00 4.265918E+00 1.050343E+01 0.0 5.373169E+00 3.845476E+00 -4.008456E+00 0.0 4.424285E+00 -1.009418E+01 -1.469687E+00 0.0 0 172 8 -5.446749E+00 8.743486E-01 -3.593103E+00 0.0 -4.913498E+00 3.205472E+00 7.612082E+00 0.0 4.537923E+00 3.722242E+00 -1.800452E+00 0.0 3.799363E+00 -7.936565E+00 -1.374605E+00 0.0 0 172 9 -4.672836E+00 4.124813E-01 -3.092928E+00 0.0 -4.285118E+00 2.471534E+00 5.695489E+00 0.0 3.806761E+00 3.384482E+00 -6.013591E-01 0.0 3.228403E+00 -6.299191E+00 -1.336084E+00 0.0 0 172 10 -3.991168E+00 1.386292E-01 -2.593731E+00 0.0 -3.711488E+00 1.951668E+00 4.370147E+00 0.0 3.177403E+00 2.968663E+00 3.926241E-02 0.0 2.723448E+00 -5.029625E+00 -1.287811E+00 0.0 0 172 0.0000 -7.465655E+01 0.0 6.617393E+01 0.0 -6.686177E+01 0.0 2.681071E+02 0.0 6.513770E+01 0.0 -1.947332E+02 0.0 5.430088E+01 0.0 -1.272302E+02 0.0 0 172 7.1000 -5.929232E+01 1.987902E+01 7.006093E+01 0.0 -5.326143E+01 3.374218E+01 2.355266E+02 0.0 5.215645E+01 9.112692E+00 -1.775208E+02 0.0 4.368462E+01 -6.755721E+01 -1.183748E+02 0.0 0 173 0 -3.045180E+00 0.0 1.349595E+00 0.0 -4.140806E-02 0.0 3.836752E+00 0.0 8.436390E-01 0.0 -9.985749E-01 0.0 1.267921E+00 0.0 -4.179036E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 173 1 -2.957016E+00 3.125393E+00 1.385781E+01 0.0 -6.283951E-02 1.506625E+00 1.176562E+01 0.0 6.454258E-01 -2.960582E+00 -1.312448E+01 0.0 1.361984E+00 -2.684768E+00 -1.235477E+01 0.0 0 173 2 -3.048347E+00 3.156908E+00 5.119914E+01 0.0 -1.812744E-01 1.548568E+00 3.821800E+01 0.0 -2.986422E-01 -3.351618E+00 -5.207441E+01 0.0 1.783554E+00 -4.744090E+00 -3.696075E+01 0.0 0 173 3 -4.092569E+00 -3.140623E+00 5.309542E+01 0.0 -2.809143E-01 -1.196578E+00 4.509813E+01 0.0 -8.393869E-01 1.063566E+00 -5.918667E+01 0.0 2.110550E+00 -5.244536E+00 -3.895386E+01 0.0 0 173 4 -4.107959E+00 -6.439949E+00 3.050053E+01 0.0 -2.618256E-01 -3.032879E+00 2.953553E+01 0.0 -2.261286E-01 4.146153E+00 -3.610978E+01 0.0 2.000137E+00 -3.717606E+00 -2.439394E+01 0.0 0 173 5 -3.810549E+00 -7.779444E+00 1.848428E+01 0.0 -2.189369E-01 -3.934057E+00 1.961163E+01 0.0 2.569499E-01 5.682023E+00 -2.256530E+01 0.0 1.713459E+00 -2.219438E+00 -1.646608E+01 0.0 0 173 6 -3.403808E+00 -7.803972E+00 1.126968E+01 0.0 -1.664581E-01 -4.054785E+00 1.302393E+01 0.0 5.225792E-01 5.881579E+00 -1.407555E+01 0.0 1.390518E+00 -1.318735E+00 -1.143684E+01 0.0 0 173 7 -2.974814E+00 -7.174012E+00 6.906942E+00 0.0 -1.121998E-01 -3.767627E+00 8.724529E+00 0.0 6.380572E-01 5.422208E+00 -8.807148E+00 0.0 1.102758E+00 -8.277427E-01 -8.166796E+00 0.0 0 173 8 -2.572273E+00 -6.300136E+00 4.276538E+00 0.0 -6.517601E-02 -3.354637E+00 5.893036E+00 0.0 6.553217E-01 4.741636E+00 -5.540302E+00 0.0 8.676710E-01 -5.785414E-01 -5.989937E+00 0.0 0 173 9 -2.202539E+00 -5.410535E+00 2.661096E+00 0.0 -2.720928E-02 -2.901628E+00 4.017859E+00 0.0 6.233954E-01 4.018334E+00 -3.496248E+00 0.0 6.798010E-01 -4.364673E-01 -4.504531E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 173 10 -1.877891E+00 -4.564002E+00 1.656042E+00 0.0 4.810333E-03 -2.472559E+00 2.760192E+00 0.0 5.657930E-01 3.346091E+00 -2.207342E+00 0.0 5.310192E-01 -3.613567E-01 -3.446200E+00 0.0 0 173 0.0000 -3.409295E+01 0.0 1.952571E+02 0.0 -1.413432E+00 0.0 1.824852E+02 0.0 3.387003E+00 0.0 -2.181858E+02 0.0 1.480937E+01 0.0 -1.668527E+02 0.0 0 173 7.1000 -2.688199E+01 -3.276026E+01 1.728970E+02 0.0 -1.190973E+00 -1.696426E+01 1.576498E+02 0.0 2.037470E+00 2.332626E+01 -1.911319E+02 0.0 1.215314E+01 -9.199348E+00 -1.435112E+02 0.0 0 231 0 -1.678875E+00 0.0 9.145706E+00 0.0 4.576416E-01 0.0 3.478226E+00 0.0 7.841740E-01 0.0 -1.929474E-01 0.0 -7.138138E-01 0.0 -1.242624E+01 0.0 0 231 1 -1.351416E+00 6.001682E+00 1.368531E+01 0.0 1.942101E-01 8.048324E+00 1.263783E+01 0.0 5.511999E-01 -6.677373E+00 -6.000774E+00 0.0 -4.899158E-01 -8.469260E+00 -1.931985E+01 0.0 0 231 2 6.485367E-01 1.293425E+01 1.829784E+01 0.0 -8.144073E-01 1.851547E+01 3.127121E+01 0.0 6.427536E-01 -1.164326E+01 -1.729120E+01 0.0 3.457565E-01 -1.815778E+01 -2.808148E+01 0.0 0 231 3 2.458950E+00 1.550745E+01 1.441521E+00 0.0 -1.315720E+00 2.688223E+01 1.496548E+01 0.0 2.495128E+00 -6.263211E+00 -3.075287E+00 0.0 1.145199E+00 -2.074969E+01 -6.141853E+00 0.0 0 231 4 1.388610E+00 1.346399E+01 -3.124628E+00 0.0 -1.184921E+00 2.328299E+01 3.437992E+00 0.0 2.378172E+00 -3.320682E+00 6.448971E+00 0.0 1.186119E+00 -1.642752E+01 1.038383E+00 0.0 0 231 5 5.974674E-01 1.057248E+01 -1.823252E+00 0.0 -9.536247E-01 1.756400E+01 1.627949E+00 0.0 1.774724E+00 -1.837721E+00 7.234402E+00 0.0 1.048746E+00 -1.170866E+01 1.402512E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 231 6 1.377964E-01 7.786725E+00 -4.738817E-01 0.0 -6.538982E-01 1.261106E+01 1.200039E+00 0.0 1.233685E+00 -8.246254E-01 6.082882E+00 0.0 8.424797E-01 -7.836076E+00 -8.266144E-01 0.0 0 231 7 -8.649445E-02 5.648844E+00 2.960739E-01 0.0 -4.080162E-01 8.922899E+00 1.002115E+00 0.0 8.172212E-01 -2.845150E-01 4.677807E+00 0.0 6.507082E-01 -5.152528E+00 -1.206913E+00 0.0 0 231 8 -1.779947E-01 4.079920E+00 6.507220E-01 0.0 -2.342110E-01 6.300628E+00 8.350334E-01 0.0 5.232735E-01 -2.555757E-02 3.458175E+00 0.0 4.938841E-01 -3.381852E+00 -1.212507E+00 0.0 0 231 9 -2.002625E-01 2.939725E+00 7.459233E-01 0.0 -1.222544E-01 4.466567E+00 6.796112E-01 0.0 3.256115E-01 7.989127E-02 2.509737E+00 0.0 3.708062E-01 -2.224840E+00 -1.052600E+00 0.0 0 231 10 -1.893065E-01 2.123139E+00 7.088592E-01 0.0 -5.238485E-02 3.166410E+00 5.439868E-01 0.0 1.960845E-01 1.128582E-01 1.799439E+00 0.0 2.761095E-01 -1.464771E+00 -8.493328E-01 0.0 0 231 0.0000 1.547012E+00 0.0 3.955020E+01 0.0 -5.087586E+00 0.0 7.167945E+01 0.0 1.172203E+01 0.0 5.651205E+00 0.0 5.156078E+00 0.0 -6.993877E+01 0.0 0 231 7.1000 1.405960E+00 3.973125E+01 3.833290E+01 0.0 -4.127998E+00 6.419367E+01 6.709246E+01 0.0 9.746033E+00 -9.221286E+00 -3.126641E+00 0.0 3.663835E+00 -4.309745E+01 -6.630873E+01 0.0 0 234 0 8.639691E-01 0.0 -3.487165E+00 0.0 -1.756973E+00 0.0 -9.617603E+00 0.0 1.497371E-01 0.0 1.268019E+01 0.0 1.493568E-01 0.0 4.298019E-01 0.0 0 234 1 4.550190E-01 6.799138E+00 6.518951E+00 0.0 -1.492046E+00 3.247623E+00 -1.982445E+00 0.0 1.447010E-02 -6.360289E+00 2.498390E+00 0.0 3.803520E-01 -4.328983E+00 -6.345467E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 234 2 -2.632307E+00 7.832323E+00 3.568839E+01 0.0 4.617004E-01 3.429470E+00 2.396573E+01 0.0 -9.623146E-02 -8.153671E+00 -3.145856E+01 0.0 -5.467224E-02 -7.697465E+00 -2.638245E+01 0.0 0 234 3 -7.032597E+00 -4.253957E+00 3.324274E+01 0.0 2.822876E+00 -1.637940E+00 2.942197E+01 0.0 1.766434E-01 -5.535766E-01 -3.513580E+01 0.0 -1.495667E+00 -9.141187E+00 -2.713776E+01 0.0 0 234 4 -5.854020E+00 -8.236844E+00 1.259741E+01 0.0 1.984024E+00 -4.356234E+00 1.363261E+01 0.0 1.507864E-01 3.364362E+00 -1.255338E+01 0.0 -5.470352E-01 -6.043440E+00 -1.499297E+01 0.0 0 234 5 -4.158711E+00 -8.750427E+00 4.084492E+00 0.0 1.065636E+00 -5.281944E+00 5.669785E+00 0.0 2.177477E-01 4.716315E+00 -2.890823E+00 0.0 -2.188873E-02 -3.102278E+00 -9.417923E+00 0.0 0 234 6 -2.785873E+00 -7.752980E+00 6.354809E-01 0.0 4.456482E-01 -4.953468E+00 1.712128E+00 0.0 2.742562E-01 4.458776E+00 8.555832E-01 0.0 7.914925E-02 -1.511072E+00 -6.262299E+00 0.0 0 234 7 -1.810756E+00 -6.292657E+00 -6.715908E-01 0.0 9.673500E-02 -4.151741E+00 -8.916092E-02 0.0 2.865235E-01 3.604954E+00 2.006792E+00 0.0 4.847336E-02 -7.380522E-01 -4.255569E+00 0.0 0 234 8 -1.156838E+00 -4.877750E+00 -1.039298E+00 0.0 -7.580185E-02 -3.307059E+00 -8.272324E-01 0.0 2.697834E-01 2.722170E+00 2.101593E+00 0.0 -1.904488E-03 -3.701056E-01 -2.944962E+00 0.0 0 234 9 -7.286416E-01 -3.692683E+00 -1.031688E+00 0.0 -1.476865E-01 -2.555481E+00 -1.031184E+00 0.0 2.367395E-01 1.983016E+00 1.815556E+00 0.0 -3.899240E-02 -1.963205E-01 -2.055736E+00 0.0 0 234 10 -4.514789E-01 -2.752993E+00 -8.905592E-01 0.0 -1.668773E-01 -1.937399E+00 -1.000338E+00 0.0 1.990052E-01 1.409097E+00 1.442321E+00 0.0 -5.972290E-02 -1.062072E-01 -1.444855E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 234 0.0000 -2.529223E+01 0.0 8.564716E+01 0.0 3.237234E+00 0.0 5.985426E+01 0.0 1.879461E+00 0.0 -5.863813E+01 0.0 -1.562551E+00 0.0 -1.008102E+02 0.0 0 234 7.1000 -2.064658E+01 -2.783027E+01 8.167873E+01 0.0 2.682656E+00 -1.790472E+01 5.563890E+01 0.0 1.249157E+00 1.250993E+01 -5.712284E+01 0.0 -1.366755E+00 -1.259188E+01 -8.793262E+01 0.0 0 241 0 7.126789E-01 0.0 1.242349E+01 0.0 -4.825974E-01 0.0 6.243896E-02 0.0 -1.156045E+00 0.0 -3.406586E+00 0.0 1.806107E-01 0.0 -9.079346E+00 0.0 0 241 1 4.881485E-01 8.469613E+00 1.931577E+01 0.0 -3.968420E-01 5.751734E+00 6.417578E+00 0.0 -1.126010E+00 -9.502399E+00 -1.154070E+01 0.0 3.085423E-01 -5.445504E+00 -1.319423E+01 0.0 0 241 2 -3.490181E-01 1.816121E+01 2.807287E+01 0.0 7.348328E-01 1.425847E+01 2.021072E+01 0.0 4.532242E-02 -1.816017E+01 -2.707263E+01 0.0 5.904694E-01 -1.211801E+01 -1.692682E+01 0.0 0 241 3 -1.147215E+00 2.076005E+01 6.133705E+00 0.0 2.754284E+00 2.206067E+01 1.027582E+01 0.0 2.467444E+00 -1.374769E+01 -7.292908E+00 0.0 5.651093E-01 -1.390275E+01 -1.962891E+00 0.0 0 241 4 -1.194203E+00 1.642739E+01 -1.033620E+00 0.0 2.021879E+00 1.861374E+01 2.305341E+00 0.0 2.091448E+00 -8.578408E+00 5.299183E+00 0.0 4.735088E-01 -1.068930E+01 7.243118E-01 0.0 0 241 5 -1.049913E+00 1.170747E+01 -1.361828E-01 0.0 1.259520E+00 1.349426E+01 9.825726E-01 0.0 1.382813E+00 -5.195502E+00 6.111637E+00 0.0 3.913670E-01 -7.415353E+00 -6.490021E-01 0.0 0 241 6 -8.419445E-01 7.835405E+00 8.275118E-01 0.0 8.068953E-01 9.254912E+00 5.985050E-01 0.0 8.259872E-01 -2.862286E+00 4.798622E+00 0.0 3.129044E-01 -4.814406E+00 -1.309475E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 241 7 -6.506701E-01 5.154825E+00 1.209096E+00 0.0 5.416145E-01 6.240051E+00 4.026117E-01 0.0 4.559893E-01 -1.517545E+00 3.408062E+00 0.0 2.441769E-01 -3.062751E+00 -1.363041E+00 0.0 0 241 8 -4.943352E-01 3.382138E+00 1.212688E+00 0.0 3.766456E-01 4.196091E+00 2.803655E-01 0.0 2.328261E-01 -7.867090E-01 2.328356E+00 0.0 1.869082E-01 -1.943188E+00 -1.156801E+00 0.0 0 241 9 -3.706493E-01 2.221288E+00 1.053550E+00 0.0 2.681279E-01 2.820160E+00 1.948657E-01 0.0 1.061279E-01 -4.028115E-01 1.562333E+00 0.0 1.391826E-01 -1.232257E+00 -8.918991E-01 0.0 0 241 10 -2.760354E-01 1.463512E+00 8.516906E-01 0.0 1.942118E-01 1.894084E+00 1.326139E-01 0.0 3.814464E-02 -1.988934E-01 1.035979E+00 0.0 1.017201E-01 -7.851723E-01 -6.534090E-01 0.0 0 241 0.0000 -5.173156E+00 0.0 6.993057E+01 0.0 8.078570E+00 0.0 4.186343E+01 0.0 5.364047E+00 0.0 -2.476865E+01 0.0 3.494499E+00 0.0 -4.646260E+01 0.0 0 241 7.1000 -3.679560E+00 4.309850E+01 6.629685E+01 0.0 6.537754E+00 4.776963E+01 3.940909E+01 0.0 4.124453E+00 -2.202322E+01 -3.022588E+01 0.0 2.905813E+00 -2.715571E+01 -4.338610E+01 0.0 0 244 0 6.729345E-01 0.0 1.479206E-01 0.0 -1.502571E-01 0.0 -1.268311E+01 0.0 5.962429E-01 0.0 9.401314E+00 0.0 -1.325962E+00 0.0 3.131821E+00 0.0 0 244 1 3.974895E-01 5.218898E+00 6.443302E+00 0.0 -1.157379E-02 6.360525E+00 -2.501854E+00 0.0 3.578930E-01 -4.397849E+00 3.234024E+00 0.0 -9.930191E-01 -7.431105E+00 -6.412018E+00 0.0 0 244 2 -1.127975E+00 5.405540E+00 2.413120E+01 0.0 9.545898E-02 8.154398E+00 3.146967E+01 0.0 -3.059998E-01 -5.307364E+00 -1.868689E+01 0.0 -5.405884E-01 -1.193837E+01 -3.488318E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 244 3 -3.233055E+00 -5.792995E+00 2.050267E+01 0.0 -1.719055E-01 5.573616E-01 3.514825E+01 0.0 -5.907898E-01 5.787923E-01 -2.141077E+01 0.0 -9.786987E-01 -9.230481E+00 -3.380872E+01 0.0 0 244 4 -2.793064E+00 -8.487903E+00 6.574951E+00 0.0 -1.532745E-01 -3.368406E+00 1.255305E+01 0.0 -4.475479E-01 3.152204E+00 -5.674835E+00 0.0 -3.645172E-01 -4.348624E+00 -1.473456E+01 0.0 0 244 5 -1.949558E+00 -7.975547E+00 1.387840E+00 0.0 -2.169800E-01 -4.711544E+00 2.888542E+00 0.0 -1.870384E-01 3.757670E+00 4.721527E-01 0.0 -1.230927E-01 -1.058823E+00 -7.122223E+00 0.0 0 244 6 -1.242132E+00 -6.499651E+00 -3.323689E-01 0.0 -2.725143E-01 -4.453135E+00 -8.541336E-01 0.0 1.888275E-02 3.271097E+00 2.228004E+00 0.0 -1.563988E-01 2.661733E-01 -3.742493E+00 0.0 0 244 7 -7.482920E-01 -4.915580E+00 -7.773905E-01 0.0 -2.866364E-01 -3.609678E+00 -2.011887E+00 0.0 1.220779E-01 2.497550E+00 2.349686E+00 0.0 -2.072792E-01 5.894518E-01 -2.078911E+00 0.0 0 244 8 -4.299622E-01 -3.582637E+00 -7.751613E-01 0.0 -2.698307E-01 -2.725374E+00 -2.104378E+00 0.0 1.565242E-01 1.789047E+00 1.953449E+00 0.0 -2.232838E-01 5.637935E-01 -1.211395E+00 0.0 0 244 9 -2.335973E-01 -2.557191E+00 -6.373234E-01 0.0 -2.371483E-01 -1.981849E+00 -1.818031E+00 0.0 1.519117E-01 1.237879E+00 1.473940E+00 0.0 -2.097311E-01 4.457681E-01 -7.323055E-01 0.0 0 244 10 -1.163274E-01 -1.796603E+00 -4.833498E-01 0.0 -1.987214E-01 -1.410233E+00 -1.442332E+00 0.0 1.307025E-01 8.412888E-01 1.055042E+00 0.0 -1.807222E-01 3.216197E-01 -4.532108E-01 0.0 0 244 0.0000 -1.080354E+01 0.0 5.618229E+01 0.0 -1.873383E+00 0.0 5.864380E+01 0.0 2.859116E-03 0.0 -2.360488E+01 0.0 -5.303293E+00 0.0 -1.020472E+02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 244 7.1000 -8.856814E+00 -2.394309E+01 5.434170E+01 0.0 -1.243605E+00 -1.251000E+01 5.713187E+01 0.0 -1.536983E-01 9.569131E+00 -2.483973E+01 0.0 -4.690701E+00 -8.077327E+00 -9.253969E+01 0.0 0 251 0 -1.804466E-01 0.0 9.087574E+00 0.0 2.291565E-01 0.0 1.394341E+00 0.0 -3.321114E-01 0.0 -1.732307E+00 0.0 -8.570862E-02 0.0 -8.745804E+00 0.0 0 251 1 -3.063955E-01 5.444410E+00 1.320238E+01 0.0 3.020840E-01 8.788833E+00 9.937267E+00 0.0 -4.537835E-01 -6.310971E+00 -6.844078E+00 0.0 8.345413E-02 -8.297776E+00 -1.530614E+01 0.0 0 251 2 -5.908356E-01 1.211935E+01 1.693866E+01 0.0 1.081512E+00 2.025525E+01 2.768689E+01 0.0 1.198463E-01 -1.148081E+01 -1.637216E+01 0.0 6.182404E-01 -1.837320E+01 -2.399310E+01 0.0 0 251 3 -5.731354E-01 1.388414E+01 1.963814E+00 0.0 1.927017E+00 2.656133E+01 1.202904E+01 0.0 2.231293E+00 -5.986920E+00 -2.325592E+00 0.0 9.751816E-01 -1.972932E+01 -4.824646E+00 0.0 0 251 4 -4.820166E-01 1.067572E+01 -7.321007E-01 0.0 9.317751E-01 2.025967E+01 8.114243E-01 0.0 1.831784E+00 -2.775880E+00 5.861581E+00 0.0 8.962512E-01 -1.372228E+01 5.982723E-01 0.0 0 251 5 -3.923373E-01 7.415898E+00 6.421089E-01 0.0 3.411036E-01 1.333417E+01 -4.602489E-01 0.0 1.121744E+00 -1.506423E+00 5.635324E+00 0.0 7.127161E-01 -8.615585E+00 -5.129261E-01 0.0 0 251 6 -3.145318E-01 4.801916E+00 1.312643E+00 0.0 1.468134E-01 8.239704E+00 -4.234772E-01 0.0 6.295540E-01 -7.121494E-01 4.053358E+00 0.0 5.040693E-01 -5.021350E+00 -1.090160E+00 0.0 0 251 7 -2.452931E-01 3.057872E+00 1.358409E+00 0.0 9.830952E-02 4.986095E+00 -2.834377E-01 0.0 3.315980E-01 -3.169631E-01 2.667844E+00 0.0 3.375015E-01 -2.855922E+00 -1.082205E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 251 8 -1.870821E-01 1.941178E+00 1.158458E+00 0.0 8.761072E-02 3.000354E+00 -1.823888E-01 0.0 1.642715E-01 -1.380216E-01 1.686700E+00 0.0 2.200818E-01 -1.616365E+00 -8.612747E-01 0.0 0 251 9 -1.396121E-01 1.231473E+00 8.938485E-01 0.0 8.023262E-02 1.806821E+00 -1.182928E-01 0.0 7.524568E-02 -6.259478E-02 1.044415E+00 0.0 1.411390E-01 -9.149154E-01 -6.170030E-01 0.0 0 251 10 -1.018935E-01 7.842682E-01 6.516349E-01 0.0 7.092404E-02 1.083865E+00 -7.700968E-02 0.0 3.003773E-02 -3.079374E-02 6.375349E-01 0.0 8.934367E-02 -5.169224E-01 -4.181135E-01 0.0 0 251 0.0000 -3.513579E+00 0.0 4.647743E+01 0.0 5.296539E+00 0.0 5.031410E+01 0.0 5.749479E+00 0.0 -5.687384E+00 0.0 4.492270E+00 0.0 -5.685310E+01 0.0 0 251 7.1000 -2.921886E+00 2.712759E+01 4.340281E+01 0.0 4.748123E+00 4.762066E+01 4.897073E+01 0.0 4.747920E+00 -8.890780E+00 -1.051880E+01 0.0 3.674669E+00 -3.246899E+01 -5.396256E+01 0.0 0 254 0 8.669353E-01 0.0 -1.395477E+00 0.0 -5.956192E-01 0.0 -9.398483E+00 0.0 2.423720E-01 0.0 8.987495E+00 0.0 -4.481697E-01 0.0 1.808922E+00 0.0 0 254 1 5.564871E-01 8.129444E+00 7.665604E+00 0.0 -3.583221E-01 4.397569E+00 -3.226227E+00 0.0 5.924129E-02 -7.368416E+00 4.458542E-01 0.0 -2.323532E-01 -5.133927E+00 -4.059753E+00 0.0 0 254 2 -1.110195E+00 9.671082E+00 3.377704E+01 0.0 2.923584E-01 5.309116E+00 1.868628E+01 0.0 -3.504448E-01 -9.337390E+00 -2.853345E+01 0.0 -3.682861E-01 -8.623169E+00 -2.174170E+01 0.0 0 254 3 -3.506401E+00 -3.535834E+00 2.866875E+01 0.0 5.890503E-01 -5.733738E-01 2.141202E+01 0.0 -2.670116E-01 -1.033009E-01 -2.819495E+01 0.0 -1.269440E+00 -8.164062E+00 -2.145618E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 254 4 -3.023516E+00 -7.114371E+00 8.364143E+00 0.0 4.449692E-01 -3.156085E+00 5.677185E+00 0.0 -7.426453E-02 3.550083E+00 -5.714340E+00 0.0 -5.065384E-01 -4.399841E+00 -9.565948E+00 0.0 0 254 5 -2.029787E+00 -6.902712E+00 1.371616E+00 0.0 1.880188E-01 -3.756001E+00 -4.560623E-01 0.0 9.754276E-02 4.225286E+00 1.734947E+00 0.0 -1.574554E-01 -1.539802E+00 -4.819069E+00 0.0 0 254 6 -1.190498E+00 -5.475457E+00 -6.377659E-01 0.0 -1.806450E-02 -3.272686E+00 -2.230186E+00 0.0 1.820235E-01 3.518850E+00 3.182446E+00 0.0 -1.181107E-01 -2.977287E-01 -2.644981E+00 0.0 0 254 7 -6.329799E-01 -3.929333E+00 -1.017552E+00 0.0 -1.229124E-01 -2.492858E+00 -2.342594E+00 0.0 1.902685E-01 2.511248E+00 2.815884E+00 0.0 -1.299028E-01 1.159699E-01 -1.494867E+00 0.0 0 254 8 -3.018140E-01 -2.673449E+00 -8.961344E-01 0.0 -1.564002E-01 -1.787590E+00 -1.950939E+00 0.0 1.646541E-01 1.671208E+00 2.085259E+00 0.0 -1.289997E-01 2.075727E-01 -8.638878E-01 0.0 0 254 9 -1.193880E-01 -1.767185E+00 -6.722641E-01 0.0 -1.517935E-01 -1.238070E+00 -1.470621E+00 0.0 1.288249E-01 1.071410E+00 1.425955E+00 0.0 -1.135218E-01 1.906737E-01 -5.033283E-01 0.0 0 254 10 -2.624418E-02 -1.145620E+00 -4.689370E-01 0.0 -1.307067E-01 -8.392284E-01 -1.053152E+00 0.0 9.518689E-02 6.693071E-01 9.334819E-01 0.0 -9.209239E-02 1.500197E-01 -2.951837E-01 0.0 0 254 0.0000 -1.051740E+01 0.0 7.475902E+01 0.0 -1.942194E-02 0.0 2.364722E+01 0.0 4.683931E-01 0.0 -4.083141E+01 0.0 -3.564870E+00 0.0 -6.563597E+01 0.0 0 254 7.1000 -8.748170E+00 -1.690961E+01 7.207420E+01 0.0 1.377617E-01 -9.562143E+00 2.487247E+01 0.0 1.616082E-01 8.193818E+00 -4.187790E+01 0.0 -3.113784E+00 -8.328645E+00 -5.932998E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 261 0 8.515358E-02 0.0 8.744564E+00 0.0 6.285782E-01 0.0 -7.745132E-01 0.0 -1.143690E+00 0.0 -2.836121E+00 0.0 2.872162E-01 0.0 -5.133896E+00 0.0 0 261 1 -8.387947E-02 8.297515E+00 1.530365E+01 0.0 6.957226E-01 5.720937E+00 4.788593E+00 0.0 -1.202436E+00 -9.062232E+00 -1.008579E+01 0.0 4.315338E-01 -5.115831E+00 -9.043755E+00 0.0 0 261 2 -6.177673E-01 1.837555E+01 2.398587E+01 0.0 1.515488E+00 1.419756E+01 1.687210E+01 0.0 -3.624759E-01 -1.800629E+01 -2.369122E+01 0.0 7.993164E-01 -1.182891E+01 -1.291187E+01 0.0 0 261 3 -9.743500E-01 1.973903E+01 4.817604E+00 0.0 2.884552E+00 2.018871E+01 7.189758E+00 0.0 1.685636E+00 -1.294908E+01 -5.045593E+00 0.0 7.783051E-01 -1.279367E+01 -3.070984E-01 0.0 0 261 4 -9.028561E-01 1.372218E+01 -5.951929E-01 0.0 1.962003E+00 1.489936E+01 -3.495789E-02 0.0 1.251488E+00 -6.946774E+00 5.592873E+00 0.0 5.592365E-01 -8.509787E+00 9.430733E-01 0.0 0 261 5 -7.135189E-01 8.614764E+00 5.137372E-01 0.0 1.129182E+00 9.287390E+00 -6.400828E-01 0.0 6.539122E-01 -3.779393E+00 5.179364E+00 0.0 3.876901E-01 -5.135427E+00 -5.914898E-01 0.0 0 261 6 -5.037270E-01 5.020864E+00 1.090519E+00 0.0 6.633003E-01 5.418891E+00 -4.878163E-01 0.0 2.863838E-01 -1.867023E+00 3.416454E+00 0.0 2.579608E-01 -2.871850E+00 -1.017048E+00 0.0 0 261 7 -3.375054E-01 2.856960E+00 1.083086E+00 0.0 4.043446E-01 3.094697E+00 -3.299747E-01 0.0 9.700093E-02 -8.882384E-01 2.054898E+00 0.0 1.675227E-01 -1.561160E+00 -8.936033E-01 0.0 0 261 8 -2.203560E-01 1.616484E+00 8.607532E-01 0.0 2.523168E-01 1.758425E+00 -2.177050E-01 0.0 1.312486E-02 -4.189029E-01 1.191556E+00 0.0 1.070160E-01 -8.429380E-01 -6.429896E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 261 9 -1.410935E-01 9.133861E-01 6.174911E-01 0.0 1.593750E-01 9.960819E-01 -1.426964E-01 0.0 -1.775424E-02 -2.000095E-01 6.771760E-01 0.0 6.694424E-02 -4.531879E-01 -4.207776E-01 0.0 0 261 10 -8.934154E-02 5.164367E-01 4.190344E-01 0.0 1.013623E-01 5.619186E-01 -9.409314E-02 0.0 -2.466156E-02 -9.596144E-02 3.793644E-01 0.0 4.113871E-02 -2.439649E-01 -2.617494E-01 0.0 0 261 0.0000 -4.499242E+00 0.0 5.684111E+01 0.0 1.039622E+01 0.0 2.612861E+01 0.0 1.236528E+00 0.0 -2.316705E+01 0.0 3.883880E+00 0.0 -3.028120E+01 0.0 0 261 7.1000 -3.680756E+00 3.247127E+01 5.394971E+01 0.0 9.111873E+00 3.292852E+01 2.569560E+01 0.0 7.803081E-01 -1.830175E+01 -2.645869E+01 0.0 3.422710E+00 -1.968850E+01 -2.851277E+01 0.0 0 264 0 1.151257E+00 0.0 9.339027E-01 0.0 -2.429886E-01 0.0 -8.990532E+00 0.0 4.203205E-01 0.0 5.297379E+00 0.0 -1.152542E+00 0.0 2.757645E+00 0.0 0 264 1 8.591919E-01 5.759140E+00 6.433559E+00 0.0 -5.767059E-02 7.368777E+00 -4.489594E-01 0.0 2.091827E-01 -4.834387E+00 2.859955E-01 0.0 -8.645782E-01 -8.147472E+00 -5.421265E+00 0.0 0 264 2 -8.359070E-01 6.303456E+00 2.176068E+01 0.0 3.514404E-01 9.338504E+00 2.854211E+01 0.0 -3.284912E-01 -5.729238E+00 -1.800684E+01 0.0 -4.967651E-01 -1.247200E+01 -3.007898E+01 0.0 0 264 3 -2.847809E+00 -5.178187E+00 1.704948E+01 0.0 2.720337E-01 1.063032E-01 2.820428E+01 0.0 -3.824310E-01 1.123038E+00 -1.791003E+01 0.0 -1.106567E+00 -7.314981E+00 -2.716052E+01 0.0 0 264 4 -2.048027E+00 -7.063096E+00 3.990799E+00 0.0 7.273865E-02 -3.553105E+00 5.714264E+00 0.0 -1.688156E-01 3.191220E+00 -2.323669E+00 0.0 -6.531982E-01 -2.245006E+00 -8.811890E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 264 5 -1.141401E+00 -5.829775E+00 -5.154419E-02 0.0 -9.683228E-02 -4.221764E+00 -1.738068E+00 0.0 3.887939E-02 3.172451E+00 2.372314E+00 0.0 -4.018173E-01 3.994429E-01 -2.714050E+00 0.0 0 264 6 -5.464935E-01 -4.168896E+00 -8.778934E-01 0.0 -1.811142E-01 -3.514971E+00 -3.181492E+00 0.0 1.522112E-01 2.394091E+00 2.763367E+00 0.0 -3.479042E-01 1.074475E+00 -8.041382E-01 0.0 0 264 7 -2.222052E-01 -2.755892E+00 -8.255701E-01 0.0 -1.904926E-01 -2.513611E+00 -2.818895E+00 0.0 1.731496E-01 1.589467E+00 2.120102E+00 0.0 -3.005600E-01 9.613582E-01 -1.866074E-01 0.0 0 264 8 -6.374383E-02 -1.749371E+00 -6.033034E-01 0.0 -1.646748E-01 -1.672704E+00 -2.087064E+00 0.0 1.506615E-01 9.888373E-01 1.419556E+00 0.0 -2.396717E-01 6.934560E-01 1.058578E-03 0.0 0 264 9 5.161285E-03 -1.084219E+00 -3.988638E-01 0.0 -1.290026E-01 -1.070878E+00 -1.427389E+00 0.0 1.152135E-01 5.932572E-01 8.901863E-01 0.0 -1.782126E-01 4.582747E-01 4.616547E-02 0.0 0 264 10 2.965403E-02 -6.596088E-01 -2.508636E-01 0.0 -9.513927E-02 -6.697515E-01 -9.334769E-01 0.0 8.181489E-02 3.486177E-01 5.365825E-01 0.0 -1.257803E-01 2.883968E-01 4.751539E-02 0.0 0 264 0.0000 -5.660323E+00 0.0 4.716039E+01 0.0 -4.617021E-01 0.0 4.083479E+01 0.0 4.616954E-01 0.0 -2.255506E+01 0.0 -5.867598E+00 0.0 -7.232507E+01 0.0 0 264 7.1000 -4.759532E+00 -1.435241E+01 4.599964E+01 0.0 -1.553352E-01 -8.192174E+00 4.188342E+01 0.0 2.201448E-01 6.287606E+00 -2.392578E+01 0.0 -5.125846E+00 -4.834540E+00 -6.772437E+01 0.0 0 271 0 -2.871132E-01 0.0 5.140202E+00 0.0 6.324234E-01 0.0 4.367905E-01 0.0 -3.857346E-01 0.0 -1.429939E+00 0.0 5.357361E-02 0.0 -4.145172E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 271 1 -4.294701E-01 5.115421E+00 9.049679E+00 0.0 7.240143E-01 8.607988E+00 7.941170E+00 0.0 -5.213175E-01 -5.874819E+00 -5.908073E+00 0.0 2.137146E-01 -7.862246E+00 -1.014265E+01 0.0 0 271 2 -7.950134E-01 1.183025E+01 1.291968E+01 0.0 1.455688E+00 2.007223E+01 2.357358E+01 0.0 -3.653717E-02 -1.117618E+01 -1.400418E+01 0.0 7.267456E-01 -1.794959E+01 -1.831378E+01 0.0 0 271 3 -7.858582E-01 1.277631E+01 3.089981E-01 0.0 2.081345E+00 2.413047E+01 8.790314E+00 0.0 1.895542E+00 -5.567820E+00 -8.694916E-01 0.0 9.588013E-01 -1.794843E+01 -1.986420E+00 0.0 0 271 4 -5.634747E-01 8.498740E+00 -9.495182E-01 0.0 1.010288E+00 1.591213E+01 -1.234966E+00 0.0 1.432917E+00 -2.022596E+00 5.712391E+00 0.0 7.295437E-01 -1.060326E+01 1.574409E+00 0.0 0 271 5 -3.881341E-01 5.135691E+00 5.887178E-01 0.0 4.021264E-01 8.955670E+00 -1.633030E+00 0.0 7.523389E-01 -1.003849E+00 4.595660E+00 0.0 4.882191E-01 -5.705148E+00 1.668787E-02 0.0 0 271 6 -2.587837E-01 2.864239E+00 1.020718E+00 0.0 1.927524E-01 4.664217E+00 -1.052254E+00 0.0 3.562557E-01 -4.502000E-01 2.796065E+00 0.0 2.885381E-01 -2.819760E+00 -5.553055E-01 0.0 0 271 7 -1.679175E-01 1.558605E+00 8.918415E-01 0.0 1.186529E-01 2.355886E+00 -6.233509E-01 0.0 1.571060E-01 -1.952575E-01 1.558353E+00 0.0 1.594374E-01 -1.344406E+00 -5.397582E-01 0.0 0 271 8 -1.071916E-01 8.419315E-01 6.442710E-01 0.0 8.328962E-02 1.174057E+00 -3.653533E-01 0.0 6.463385E-02 -8.822887E-02 8.334906E-01 0.0 8.481687E-02 -6.325111E-01 -3.814540E-01 0.0 0 271 9 -6.709962E-02 4.529225E-01 4.219699E-01 0.0 5.928516E-02 5.805764E-01 -2.140061E-01 0.0 2.418081E-02 -4.424306E-02 4.350644E-01 0.0 4.385462E-02 -2.951739E-01 -2.360591E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 271 10 -4.120978E-02 2.436741E-01 2.611924E-01 0.0 4.143499E-02 2.825088E-01 -1.249823E-01 0.0 7.586982E-03 -2.454397E-02 2.227710E-01 0.0 2.201985E-02 -1.360463E-01 -1.365148E-01 0.0 0 271 0.0000 -3.891266E+00 0.0 3.029775E+01 0.0 6.801300E+00 0.0 3.549391E+01 0.0 3.746972E+00 0.0 -6.057891E+00 0.0 3.769265E+00 0.0 -3.484601E+01 0.0 0 271 7.1000 -3.428563E+00 1.966891E+01 2.852898E+01 0.0 6.221148E+00 3.424678E+01 3.543177E+01 0.0 3.112891E+00 -7.625597E+00 -9.126382E+00 0.0 3.291125E+00 -2.410784E+01 -3.353151E+01 0.0 0 274 0 8.721709E-01 0.0 -4.138222E-01 0.0 -4.198494E-01 0.0 -5.297134E+00 0.0 1.246052E-01 0.0 4.261444E+00 0.0 -3.474274E-01 0.0 1.450127E+00 0.0 0 274 1 6.137810E-01 8.542396E+00 7.419037E+00 0.0 -2.092590E-01 4.834277E+00 -2.817307E-01 0.0 -5.583334E-02 -7.701212E+00 -2.744728E+00 0.0 -1.456451E-01 -5.472153E+00 -3.521103E+00 0.0 0 274 2 -8.437309E-01 1.017457E+01 2.985641E+01 0.0 3.215637E-01 5.730722E+00 1.800659E+01 0.0 -4.508018E-01 -9.466551E+00 -2.686407E+01 0.0 -1.980286E-01 -8.696104E+00 -1.874377E+01 0.0 0 274 3 -2.791035E+00 -3.897263E+00 2.315332E+01 0.0 3.702698E-01 -1.118694E+00 1.791089E+01 0.0 -2.523766E-01 1.147146E+00 -2.352692E+01 0.0 -1.033264E+00 -6.394255E+00 -1.749396E+01 0.0 0 274 4 -2.109674E+00 -6.576521E+00 4.327896E+00 0.0 1.651840E-01 -3.194370E+00 2.325546E+00 0.0 -1.430511E-05 3.985206E+00 -2.034683E+00 0.0 -4.516907E-01 -2.608098E+00 -6.077820E+00 0.0 0 274 5 -1.162310E+00 -5.450402E+00 -8.449936E-01 0.0 -3.723145E-02 -3.171480E+00 -2.360748E+00 0.0 1.372552E-01 3.731738E+00 3.433952E+00 0.0 -1.793327E-01 -3.390417E-01 -2.177299E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 274 6 -5.168390E-01 -3.754328E+00 -1.521184E+00 0.0 -1.515656E-01 -2.395687E+00 -2.765427E+00 0.0 1.720974E-01 2.647320E+00 3.361328E+00 0.0 -1.429119E-01 3.604667E-01 -8.540955E-01 0.0 0 274 7 -1.763437E-01 -2.343798E+00 -1.201303E+00 0.0 -1.735706E-01 -1.587073E+00 -2.116083E+00 0.0 1.473505E-01 1.633867E+00 2.308221E+00 0.0 -1.285734E-01 4.188731E-01 -3.368454E-01 0.0 0 274 8 -2.447513E-02 -1.385409E+00 -7.898543E-01 0.0 -1.505766E-01 -9.882089E-01 -1.418320E+00 0.0 1.078431E-01 9.427668E-01 1.406950E+00 0.0 -1.034098E-01 3.174888E-01 -1.288137E-01 0.0 0 274 9 3.125884E-02 -7.938772E-01 -4.808295E-01 0.0 -1.151592E-01 -5.933719E-01 -8.888848E-01 0.0 7.220922E-02 5.240940E-01 8.080497E-01 0.0 -7.517684E-02 2.093650E-01 -4.376030E-02 0.0 0 274 10 4.355625E-02 -4.451324E-01 -2.808050E-01 0.0 -8.179885E-02 -3.479665E-01 -5.358827E-01 0.0 4.580350E-02 2.837396E-01 4.477882E-01 0.0 -5.093884E-02 1.301453E-01 -1.081371E-02 0.0 0 274 0.0000 -6.063640E+00 0.0 5.922388E+01 0.0 -4.819931E-01 0.0 2.257882E+01 0.0 4.813811E-02 0.0 -3.914267E+01 0.0 -2.856399E+00 0.0 -4.793816E+01 0.0 0 274 7.1000 -5.219084E+00 -1.077877E+01 5.795115E+01 0.0 -2.393701E-01 -6.284827E+00 2.394444E+01 0.0 -1.635199E-01 5.770909E+00 -4.018061E+01 0.0 -2.484581E+00 -5.429477E+00 -4.457280E+01 0.0 0 281 0 -5.391026E-02 0.0 4.144794E+00 0.0 6.333427E-01 0.0 -7.443390E-01 0.0 -7.120858E-01 0.0 -1.532303E+00 0.0 2.233582E-01 0.0 -1.868164E+00 0.0 0 281 1 -2.140751E-01 7.862236E+00 1.014099E+01 0.0 7.307053E-01 5.604788E+00 4.021431E+00 0.0 -8.261765E-01 -8.546866E+00 -7.834106E+00 0.0 3.765945E-01 -4.854148E+00 -5.411255E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 281 2 -7.255936E-01 1.795185E+01 1.830884E+01 0.0 1.511215E+00 1.392405E+01 1.443393E+01 0.0 -1.942501E-01 -1.754793E+01 -1.943384E+01 0.0 7.538147E-01 -1.156371E+01 -9.155396E+00 0.0 0 281 3 -9.554329E-01 1.795716E+01 1.979721E+00 0.0 2.614105E+00 1.805787E+01 5.246140E+00 0.0 1.537266E+00 -1.174977E+01 -2.465149E+00 0.0 6.944275E-01 -1.165483E+01 1.254517E+00 0.0 0 281 4 -7.323451E-01 1.060325E+01 -1.572315E+00 0.0 1.655899E+00 1.145856E+01 -1.329426E+00 0.0 9.716298E-01 -5.011194E+00 5.964767E+00 0.0 4.209099E-01 -6.490378E+00 1.424126E+00 0.0 0 281 5 -4.888093E-01 5.704574E+00 -1.712942E-02 0.0 8.516939E-01 6.014192E+00 -1.398065E+00 0.0 3.903495E-01 -2.301418E+00 4.505836E+00 0.0 2.491641E-01 -3.309621E+00 -2.160473E-01 0.0 0 281 6 -2.882854E-01 2.819503E+00 5.553968E-01 0.0 4.390932E-01 2.902344E+00 -8.719258E-01 0.0 1.178348E-01 -9.580985E-01 2.504473E+00 0.0 1.389364E-01 -1.551458E+00 -5.664635E-01 0.0 0 281 7 -1.593942E-01 1.344874E+00 5.400587E-01 0.0 2.332897E-01 1.352080E+00 -5.092430E-01 0.0 1.405345E-02 -3.756250E-01 1.273966E+00 0.0 7.424986E-02 -6.965441E-01 -4.511264E-01 0.0 0 281 8 -8.495330E-02 6.325657E-01 3.810371E-01 0.0 1.261469E-01 6.179333E-01 -2.925656E-01 0.0 -1.590770E-02 -1.438957E-01 6.246977E-01 0.0 3.841256E-02 -3.064425E-01 -2.800567E-01 0.0 0 281 9 -4.383381E-02 2.945904E-01 2.362399E-01 0.0 6.863139E-02 2.763584E-01 -1.664496E-01 0.0 -1.912559E-02 -5.575847E-02 2.990962E-01 0.0 1.915504E-02 -1.320710E-01 -1.551959E-01 0.0 0 281 10 -2.202322E-02 1.358843E-01 1.368222E-01 0.0 3.736483E-02 1.197772E-01 -9.429545E-02 0.0 -1.477007E-02 -2.189397E-02 1.403962E-01 0.0 9.183396E-03 -5.584519E-02 -8.083056E-02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 281 0.0000 -3.768656E+00 0.0 3.483446E+01 0.0 8.901488E+00 0.0 1.829519E+01 0.0 1.248818E+00 0.0 -1.595216E+01 0.0 2.998206E+00 0.0 -1.550589E+01 0.0 0 281 7.1000 -3.290361E+00 2.411078E+01 3.352015E+01 0.0 7.994547E+00 2.348461E+01 1.858401E+01 0.0 9.583922E-01 -1.447522E+01 -1.834109E+01 0.0 2.730685E+00 -1.468836E+01 -1.482461E+01 0.0 0 284 0 7.838573E-01 0.0 8.050957E-01 0.0 -1.251907E-01 0.0 -4.263176E+00 0.0 2.089252E-01 0.0 1.928040E+00 0.0 -6.511841E-01 0.0 1.529251E+00 0.0 0 284 1 5.457611E-01 5.799661E+00 5.576874E+00 0.0 5.697632E-02 7.701502E+00 2.743713E+00 0.0 1.914215E-02 -4.926571E+00 -2.125000E+00 0.0 -4.211884E-01 -8.374078E+00 -5.324097E+00 0.0 0 284 2 -9.412994E-01 6.342348E+00 1.869788E+01 0.0 4.541626E-01 9.467325E+00 2.687012E+01 0.0 -4.564972E-01 -5.608109E+00 -1.715869E+01 0.0 -1.224976E-01 -1.226462E+01 -2.620850E+01 0.0 0 284 3 -2.491104E+00 -5.321291E+00 1.343604E+01 0.0 2.525024E-01 -1.144423E+00 2.353528E+01 0.0 -3.314972E-01 2.025001E+00 -1.514673E+01 0.0 -8.419189E-01 -5.002392E+00 -2.210474E+01 0.0 0 284 4 -1.466072E+00 -6.309877E+00 1.831223E+00 0.0 -1.358032E-03 -3.987643E+00 2.034119E+00 0.0 -4.514313E-02 3.345128E+00 -4.992065E-01 0.0 -6.298828E-01 -4.312454E-01 -5.029846E+00 0.0 0 284 5 -6.145000E-01 -4.416536E+00 -9.715805E-01 0.0 -1.367722E-01 -3.729312E+00 -3.436417E+00 0.0 1.165028E-01 2.664149E+00 2.874146E+00 0.0 -4.183426E-01 1.199116E+00 -3.615723E-01 0.0 0 284 6 -1.822882E-01 -2.702829E+00 -1.068465E+00 0.0 -1.714439E-01 -2.644868E+00 -3.360699E+00 0.0 1.627579E-01 1.702538E+00 2.419785E+00 0.0 -3.234711E-01 1.246003E+00 4.372177E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 284 7 -8.762836E-03 -1.532905E+00 -7.173967E-01 0.0 -1.473942E-01 -1.635011E+00 -2.309840E+00 0.0 1.399708E-01 9.675612E-01 1.510780E+00 0.0 -2.376804E-01 8.619230E-01 4.170876E-01 0.0 0 284 8 4.375684E-02 -8.332492E-01 -4.197705E-01 0.0 -1.078792E-01 -9.434236E-01 -1.407851E+00 0.0 9.951377E-02 5.155503E-01 8.447742E-01 0.0 -1.604552E-01 5.191823E-01 2.800426E-01 0.0 0 284 9 4.881930E-02 -4.407567E-01 -2.299306E-01 0.0 -7.228971E-02 -5.238891E-01 -8.086815E-01 0.0 6.372291E-02 2.644073E-01 4.461975E-01 0.0 -1.012154E-01 2.931530E-01 1.679430E-01 0.0 0 284 10 3.915791E-02 -2.279171E-01 -1.213421E-01 0.0 -4.579049E-02 -2.838928E-01 -4.477792E-01 0.0 3.820649E-02 1.322767E-01 2.270594E-01 0.0 -6.066239E-02 1.593048E-01 9.566259E-02 0.0 0 284 0.0000 -4.242674E+00 0.0 3.681862E+01 0.0 -4.447705E-02 0.0 3.914878E+01 0.0 1.560447E-02 0.0 -2.467884E+01 0.0 -3.968499E+00 0.0 -5.610155E+01 0.0 0 284 7.1000 -3.779611E+00 -9.533243E+00 3.618285E+01 0.0 1.670318E-01 -5.769168E+00 4.018767E+01 0.0 -1.630445E-01 4.573290E+00 -2.553525E+01 0.0 -3.410934E+00 -3.020487E+00 -5.362540E+01 0.0 0 291 0 -2.232628E-01 0.0 1.871380E+00 0.0 5.107269E-01 0.0 -5.859375E-03 0.0 -2.380667E-01 0.0 -7.552643E-01 0.0 7.024384E-02 0.0 -1.109711E+00 0.0 0 291 1 -3.752823E-01 4.854140E+00 5.414570E+00 0.0 6.313248E-01 8.346158E+00 6.405991E+00 0.0 -3.897038E-01 -5.559496E+00 -4.582970E+00 0.0 2.278442E-01 -7.546190E+00 -6.338516E+00 0.0 0 291 2 -7.597198E-01 1.156540E+01 9.159485E+00 0.0 1.312378E+00 1.963516E+01 1.979602E+01 0.0 -2.140045E-02 -1.098424E+01 -1.128162E+01 0.0 7.360229E-01 -1.761049E+01 -1.358344E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 291 3 -7.032928E-01 1.164006E+01 -1.253174E+00 0.0 1.741089E+00 2.151051E+01 6.256287E+00 0.0 1.679066E+00 -5.239447E+00 5.243225E-01 0.0 8.767548E-01 -1.628955E+01 1.185913E-01 0.0 0 291 4 -4.260178E-01 6.481536E+00 -1.429359E+00 0.0 7.700844E-01 1.197134E+01 -2.473236E+00 0.0 1.171521E+00 -1.284360E+00 5.446732E+00 0.0 5.456314E-01 -7.891473E+00 2.260963E+00 0.0 0 291 5 -2.498856E-01 3.309721E+00 2.149835E-01 0.0 2.597790E-01 5.606640E+00 -2.158237E+00 0.0 5.302629E-01 -5.116799E-01 3.706724E+00 0.0 2.993822E-01 -3.505577E+00 4.531460E-01 0.0 0 291 6 -1.394830E-01 1.547025E+00 5.693482E-01 0.0 1.049466E-01 2.375145E+00 -1.204490E+00 0.0 2.124880E-01 -2.005774E-01 1.910377E+00 0.0 1.422969E-01 -1.414402E+00 -1.454215E-01 0.0 0 291 7 -7.446042E-02 6.952767E-01 4.505436E-01 0.0 5.595064E-02 9.501336E-01 -6.288504E-01 0.0 7.974826E-02 -7.537065E-02 8.979158E-01 0.0 6.072471E-02 -5.352801E-01 -1.906454E-01 0.0 0 291 8 -3.849129E-02 3.059893E-01 2.807999E-01 0.0 3.390735E-02 3.623574E-01 -3.245197E-01 0.0 2.835025E-02 -3.033488E-02 4.032562E-01 0.0 2.351908E-02 -1.928461E-01 -1.241231E-01 0.0 0 291 9 -1.920950E-02 1.319902E-01 1.557685E-01 0.0 2.051589E-02 1.300132E-01 -1.665656E-01 0.0 9.506386E-03 -1.436735E-02 1.755085E-01 0.0 7.976882E-03 -6.532224E-02 -6.552663E-02 0.0 0 291 10 -9.206111E-03 5.576554E-02 8.068188E-02 0.0 1.198294E-02 4.127234E-02 -8.488318E-02 0.0 2.979964E-03 -7.741614E-03 7.418140E-02 0.0 2.018444E-03 -1.976239E-02 -3.117664E-02 0.0 0 291 0.0000 -3.018311E+00 0.0 1.551503E+01 0.0 5.452685E+00 0.0 2.541166E+01 0.0 3.064752E+00 0.0 -3.480834E+00 0.0 2.992415E+00 0.0 -1.875586E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 291 7.1000 -2.748966E+00 1.467477E+01 1.483322E+01 0.0 5.065473E+00 2.540292E+01 2.586650E+01 0.0 2.609732E+00 -6.431773E+00 -5.633425E+00 0.0 2.711500E+00 -1.856331E+01 -1.843706E+01 0.0 0 294 0 5.277219E-01 0.0 3.411865E-02 0.0 -2.086563E-01 0.0 -1.928635E+00 0.0 3.827524E-02 0.0 1.140846E+00 0.0 -1.737938E-01 0.0 7.535172E-01 0.0 0 294 1 3.173943E-01 8.514406E+00 6.687431E+00 0.0 -1.933289E-02 4.926851E+00 2.126312E+00 0.0 -1.344585E-01 -7.707770E+00 -4.573349E+00 0.0 8.049011E-03 -5.561748E+00 -3.365799E+00 0.0 0 294 2 -9.655190E-01 9.960870E+00 2.558450E+01 0.0 4.537964E-01 5.610411E+00 1.715851E+01 0.0 -5.001030E-01 -9.097163E+00 -2.436993E+01 0.0 1.141357E-02 -8.393332E+00 -1.618896E+01 0.0 0 294 3 -2.476404E+00 -4.790332E+00 1.815417E+01 0.0 3.272095E-01 -2.020888E+00 1.514853E+01 0.0 -1.826820E-01 2.642748E+00 -1.938995E+01 0.0 -7.958374E-01 -4.476577E+00 -1.437964E+01 0.0 0 294 4 -1.570283E+00 -6.397846E+00 1.508369E+00 0.0 4.370880E-02 -3.347615E+00 5.006714E-01 0.0 8.706284E-02 4.410104E+00 8.549500E-02 0.0 -4.019012E-01 -1.115306E+00 -3.796021E+00 0.0 0 294 5 -6.837649E-01 -4.390519E+00 -1.948584E+00 0.0 -1.161957E-01 -2.663590E+00 -2.866058E+00 0.0 1.642160E-01 3.229280E+00 3.796295E+00 0.0 -1.818542E-01 3.579057E-01 -7.064209E-01 0.0 0 294 6 -2.073513E-01 -2.568148E+00 -1.684506E+00 0.0 -1.626110E-01 -1.703791E+00 -2.421265E+00 0.0 1.506675E-01 1.919679E+00 2.828358E+00 0.0 -1.335735E-01 5.746410E-01 -3.561783E-02 0.0 0 294 7 -1.778802E-02 -1.374123E+00 -1.022187E+00 0.0 -1.401310E-01 -9.664167E-01 -1.508698E+00 0.0 1.062597E-01 1.012260E+00 1.599349E+00 0.0 -1.007304E-01 4.186021E-01 8.385754E-02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 294 8 3.672238E-02 -6.971261E-01 -5.534148E-01 0.0 -9.945798E-02 -5.153012E-01 -8.442123E-01 0.0 6.572407E-02 5.008348E-01 8.176527E-01 0.0 -6.787586E-02 2.493427E-01 7.823563E-02 0.0 0 294 9 4.087044E-02 -3.423675E-01 -2.839869E-01 0.0 -6.369770E-02 -2.644617E-01 -4.457421E-01 0.0 3.752955E-02 2.386510E-01 3.963817E-01 0.0 -4.158294E-02 1.359936E-01 5.338407E-02 0.0 0 294 10 3.102314E-02 -1.641371E-01 -1.412168E-01 0.0 -3.819808E-02 -1.321019E-01 -2.268350E-01 0.0 2.034323E-02 1.105821E-01 1.855817E-01 0.0 -2.380475E-02 7.095490E-02 3.230399E-02 0.0 0 294 0.0000 -4.967378E+00 0.0 4.633471E+01 0.0 -2.356598E-02 0.0 2.469258E+01 0.0 -1.471653E-01 0.0 -3.748328E+01 0.0 -1.901492E+00 0.0 -3.747116E+01 0.0 0 294 7.1000 -4.454487E+00 -7.669082E+00 4.575256E+01 0.0 1.555482E-01 -4.571705E+00 2.554617E+01 0.0 -3.011469E-01 4.557850E+00 -3.812346E+01 0.0 -1.624483E+00 -3.589066E+00 -3.548758E+01 0.0 0 301 0 -7.054520E-02 0.0 1.109745E+00 0.0 3.745728E-01 0.0 -4.336853E-01 0.0 -2.968547E-01 0.0 -5.263977E-01 0.0 1.142769E-01 0.0 -1.496887E-01 0.0 0 301 1 -2.280579E-01 7.546233E+00 6.337238E+00 0.0 5.028763E-01 5.495742E+00 3.549706E+00 0.0 -4.458911E-01 -8.225756E+00 -5.826385E+00 0.0 2.751617E-01 -4.712854E+00 -3.173615E+00 0.0 0 301 2 -7.349701E-01 1.761308E+01 1.358081E+01 0.0 1.253143E+00 1.360577E+01 1.233514E+01 0.0 4.368782E-03 -1.731408E+01 -1.536694E+01 0.0 6.765137E-01 -1.143701E+01 -6.464966E+00 0.0 0 301 3 -8.790436E-01 1.629844E+01 -1.237335E-01 0.0 2.149124E+00 1.597545E+01 3.979919E+00 0.0 1.472900E+00 -1.084283E+01 -4.566040E-01 0.0 5.665131E-01 -1.071166E+01 2.051270E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 301 4 -5.481873E-01 7.891425E+00 -2.259380E+00 0.0 1.254848E+00 8.547256E+00 -1.901062E+00 0.0 8.108472E-01 -3.417448E+00 5.853691E+00 0.0 2.748985E-01 -4.843369E+00 1.602539E+00 0.0 0 301 5 -2.997210E-01 3.505242E+00 -4.538693E-01 0.0 5.634446E-01 3.670649E+00 -1.609393E+00 0.0 2.607750E-01 -1.203550E+00 3.751844E+00 0.0 1.319351E-01 -2.002159E+00 2.755356E-02 0.0 0 301 6 -1.420717E-01 1.414257E+00 1.453815E-01 0.0 2.465979E-01 1.399664E+00 -8.818605E-01 0.0 5.465785E-02 -3.851344E-01 1.779851E+00 0.0 5.761313E-02 -7.543735E-01 -2.689495E-01 0.0 0 301 7 -6.070669E-02 5.354737E-01 1.907234E-01 0.0 1.102262E-01 4.917866E-01 -4.501892E-01 0.0 -2.908189E-03 -1.052203E-01 7.686063E-01 0.0 2.265775E-02 -2.623625E-01 -1.966197E-01 0.0 0 301 8 -2.357394E-02 1.928685E-01 1.238722E-01 0.0 4.979889E-02 1.567850E-01 -2.253674E-01 0.0 -1.216205E-02 -2.279258E-02 3.185067E-01 0.0 7.756442E-03 -8.424652E-02 -1.032339E-01 0.0 0 301 9 -7.971762E-03 6.512487E-02 6.558439E-02 0.0 2.242474E-02 4.096701E-02 -1.113254E-01 0.0 -9.462163E-03 -2.680014E-03 1.280146E-01 0.0 1.958936E-03 -2.360041E-02 -4.671443E-02 0.0 0 301 10 -2.019223E-03 1.971635E-02 3.126471E-02 0.0 9.978540E-03 4.853910E-03 -5.445769E-02 0.0 -5.598916E-03 9.852399E-04 4.997467E-02 0.0 2.638996E-05 -4.758019E-03 -1.927634E-02 0.0 0 301 0.0000 -2.996868E+00 0.0 1.874764E+01 0.0 6.537036E+00 0.0 1.419743E+01 0.0 1.830671E+00 0.0 -9.525842E+00 0.0 2.129312E+00 0.0 -6.741701E+00 0.0 0 301 7.1000 -2.715500E+00 1.856680E+01 1.842923E+01 0.0 5.946496E+00 1.751186E+01 1.464219E+01 0.0 1.588465E+00 -1.188847E+01 -1.137304E+01 0.0 1.982393E+00 -1.155230E+01 -6.631644E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 304 0 3.560753E-01 0.0 4.402008E-01 0.0 -3.874969E-02 0.0 -1.141510E+00 0.0 6.218338E-02 0.0 1.548462E-01 0.0 -2.397308E-01 0.0 5.461884E-01 0.0 0 304 1 1.623077E-01 5.678167E+00 4.493324E+00 0.0 1.357574E-01 7.708030E+00 4.573959E+00 0.0 -1.140442E-01 -4.882802E+00 -3.123108E+00 0.0 -4.862976E-02 -8.367920E+00 -5.077698E+00 0.0 0 304 2 -1.114243E+00 6.116176E+00 1.544690E+01 0.0 5.025635E-01 9.098076E+00 2.437476E+01 0.0 -5.439148E-01 -5.289589E+00 -1.533142E+01 0.0 2.318115E-01 -1.171439E+01 -2.238696E+01 0.0 0 304 3 -2.226517E+00 -5.610685E+00 1.009833E+01 0.0 1.865845E-01 -2.640903E+00 1.939545E+01 0.0 -2.818909E-01 2.969566E+00 -1.240552E+01 0.0 -5.455933E-01 -2.641626E+00 -1.787476E+01 0.0 0 304 4 -1.056862E+00 -5.771554E+00 3.049927E-01 0.0 -8.714294E-02 -4.412024E+00 -8.564758E-02 0.0 4.994202E-02 3.468420E+00 5.545044E-01 0.0 -5.539551E-01 1.038039E+00 -2.640625E+00 0.0 0 304 5 -3.056068E-01 -3.381632E+00 -1.389120E+00 0.0 -1.633911E-01 -3.227631E+00 -3.798195E+00 0.0 1.515484E-01 2.202002E+00 2.772049E+00 0.0 -3.745041E-01 1.566154E+00 7.682190E-01 0.0 0 304 6 -1.899576E-02 -1.742125E+00 -1.010115E+00 0.0 -1.502724E-01 -1.918202E+00 -2.827961E+00 0.0 1.430674E-01 1.174834E+00 1.872025E+00 0.0 -2.549477E-01 1.134689E+00 8.302689E-01 0.0 0 304 7 5.375910E-02 -8.362461E-01 -5.439386E-01 0.0 -1.063151E-01 -1.012774E+00 -1.600159E+00 0.0 9.870887E-02 5.655049E-01 9.716930E-01 0.0 -1.602707E-01 6.425505E-01 4.974918E-01 0.0 0 304 8 5.408907E-02 -3.841280E-01 -2.646108E-01 0.0 -6.573153E-02 -5.010990E-01 -8.180528E-01 0.0 5.837721E-02 2.554256E-01 4.555192E-01 0.0 -9.218740E-02 3.271568E-01 2.590628E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 304 9 3.816235E-02 -1.708221E-01 -1.221061E-01 0.0 -3.755832E-02 -2.385817E-01 -3.966268E-01 0.0 3.140634E-02 1.106495E-01 2.020068E-01 0.0 -4.940844E-02 1.576441E-01 1.271677E-01 0.0 0 304 10 2.340003E-02 -7.371223E-02 -5.452123E-02 0.0 -2.034268E-02 -1.106280E-01 -1.855764E-01 0.0 1.584664E-02 4.643400E-02 8.609581E-02 0.0 -2.507681E-02 7.337324E-02 6.043756E-02 0.0 0 304 0.0000 -4.034431E+00 0.0 2.739933E+01 0.0 1.554016E-01 0.0 3.749043E+01 0.0 -3.287697E-01 0.0 -2.379131E+01 0.0 -2.112493E+00 0.0 -4.489121E+01 0.0 0 304 7.1000 -3.741139E+00 -6.906235E+00 2.710818E+01 0.0 3.088222E-01 -4.556475E+00 3.813096E+01 0.0 -4.535113E-01 3.689486E+00 -2.424807E+01 0.0 -1.735466E+00 -1.721506E+00 -4.339626E+01 0.0 0 311 0 -1.142502E-01 0.0 1.506729E-01 0.0 2.679443E-01 0.0 -1.335220E-01 0.0 -9.822655E-02 0.0 -2.502975E-01 0.0 4.642487E-02 0.0 2.330780E-01 0.0 0 311 1 -2.741432E-01 4.712686E+00 3.175301E+00 0.0 4.142456E-01 8.173225E+00 5.184830E+00 0.0 -2.586613E-01 -5.405903E+00 -3.399246E+00 0.0 2.054901E-01 -7.393355E+00 -4.083572E+00 0.0 0 311 2 -6.760559E-01 1.143914E+01 6.466553E+00 0.0 1.039978E+00 1.926687E+01 1.635822E+01 0.0 -2.967834E-03 -1.101342E+01 -8.685791E+00 0.0 7.170105E-01 -1.747050E+01 -1.009161E+01 0.0 0 311 3 -5.742035E-01 1.069818E+01 -2.050827E+00 0.0 1.312805E+00 1.911037E+01 4.492004E+00 0.0 1.464310E+00 -5.195289E+00 1.526733E+00 0.0 7.908325E-01 -1.496184E+01 1.185181E+00 0.0 0 311 4 -2.784443E-01 4.836489E+00 -1.606815E+00 0.0 5.049286E-01 8.732045E+00 -2.936218E+00 0.0 9.593315E-01 -7.591465E-01 4.906696E+00 0.0 3.846626E-01 -5.752351E+00 2.400894E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 311 5 -1.321449E-01 2.002188E+00 -2.771711E-02 0.0 1.291466E-01 3.264321E+00 -2.186990E+00 0.0 3.784525E-01 -1.636828E-01 2.872612E+00 0.0 1.618195E-01 -1.987355E+00 6.125145E-01 0.0 0 311 6 -5.803812E-02 7.519075E-01 2.709675E-01 0.0 3.679299E-02 1.050482E+00 -1.081549E+00 0.0 1.287553E-01 -4.697113E-02 1.260837E+00 0.0 5.580688E-02 -6.071107E-01 4.917383E-02 0.0 0 311 7 -2.281696E-02 2.617855E-01 1.964937E-01 0.0 1.540196E-02 2.878143E-01 -4.962273E-01 0.0 4.141003E-02 -1.249026E-02 4.985680E-01 0.0 1.411593E-02 -1.568685E-01 -3.260922E-02 0.0 0 311 8 -7.782474E-03 8.405547E-02 1.036127E-01 0.0 7.882178E-03 5.670573E-02 -2.237857E-01 0.0 1.305088E-02 -3.764608E-03 1.864216E-01 0.0 9.287298E-04 -2.851536E-02 -2.243674E-02 0.0 0 311 9 -1.975954E-03 2.358179E-02 4.695474E-02 0.0 3.882632E-03 -1.979569E-03 -9.992155E-02 0.0 4.170846E-03 -1.925463E-03 6.663616E-02 0.0 -1.972228E-03 1.557418E-03 -8.811593E-03 0.0 0 311 10 -3.264099E-05 4.741627E-03 1.924676E-02 0.0 1.706608E-03 -1.125190E-02 -4.411003E-02 0.0 1.418788E-03 -1.263407E-03 2.265893E-02 0.0 -1.874305E-03 5.464734E-03 -2.329260E-03 0.0 0 311 0.0000 -2.139888E+00 0.0 6.744442E+00 0.0 3.734715E+00 0.0 1.883273E+01 0.0 2.631044E+00 0.0 -9.941714E-01 0.0 2.373245E+00 0.0 -9.760532E+00 0.0 0 311 7.1000 -1.991806E+00 1.154235E+01 6.634066E+00 0.0 3.503269E+00 1.969275E+01 1.939387E+01 0.0 2.289484E+00 -5.760559E+00 -2.577289E+00 0.0 2.201601E+00 -1.507227E+01 -9.889441E+00 0.0 0 314 0 2.121043E-01 0.0 1.517830E-01 0.0 -6.187820E-02 0.0 -1.554947E-01 0.0 -2.562523E-03 0.0 -2.395477E-01 0.0 -5.265427E-02 0.0 2.428970E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 314 1 3.339672E-02 8.373869E+00 5.671150E+00 0.0 1.133881E-01 4.882656E+00 3.123215E+00 0.0 -1.709929E-01 -7.619023E+00 -4.848145E+00 0.0 1.174774E-01 -5.544785E+00 -3.082520E+00 0.0 0 314 2 -1.093853E+00 9.584806E+00 2.115588E+01 0.0 5.410767E-01 5.291471E+00 1.533258E+01 0.0 -5.150642E-01 -8.610157E+00 -2.078796E+01 0.0 1.970520E-01 -7.939800E+00 -1.362817E+01 0.0 0 314 3 -2.200672E+00 -5.636093E+00 1.373978E+01 0.0 2.780762E-01 -2.966410E+00 1.240649E+01 0.0 -1.067619E-01 4.029607E+00 -1.538550E+01 0.0 -5.645752E-01 -2.601942E+00 -1.172272E+01 0.0 0 314 4 -1.152646E+00 -6.223512E+00 -2.500534E-01 0.0 -5.397797E-02 -3.470565E+00 -5.532532E-01 0.0 1.592417E-01 4.690736E+00 1.243393E+00 0.0 -3.586426E-01 7.613391E-02 -2.322540E+00 0.0 0 314 5 -3.771484E-01 -3.521473E+00 -2.276318E+00 0.0 -1.511631E-01 -2.201707E+00 -2.766560E+00 0.0 1.708369E-01 2.722310E+00 3.511475E+00 0.0 -1.752625E-01 7.164675E-01 4.756165E-02 0.0 0 314 6 -5.563110E-02 -1.723788E+00 -1.480093E+00 0.0 -1.428776E-01 -1.175720E+00 -1.873034E+00 0.0 1.214721E-01 1.340817E+00 2.141882E+00 0.0 -1.118422E-01 5.736233E-01 2.780552E-01 0.0 0 314 7 3.247520E-02 -7.809758E-01 -7.406077E-01 0.0 -9.878683E-02 -5.649971E-01 -9.706812E-01 0.0 7.095769E-02 5.980630E-01 1.013135E+00 0.0 -7.043195E-02 3.247876E-01 1.885719E-01 0.0 0 314 8 3.916148E-02 -3.362775E-01 -3.376410E-01 0.0 -5.834532E-02 -2.553383E-01 -4.552805E-01 0.0 3.704166E-02 2.512993E-01 4.349186E-01 0.0 -3.989041E-02 1.599344E-01 1.018875E-01 0.0 0 314 9 2.723109E-02 -1.398282E-01 -1.470404E-01 0.0 -3.139681E-02 -1.106724E-01 -2.018682E-01 0.0 1.795402E-02 1.015054E-01 1.770313E-01 0.0 -2.062300E-02 7.335345E-02 5.064487E-02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 96 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 314 10 1.572854E-02 -5.650119E-02 -6.220977E-02 0.0 -1.584271E-02 -4.639962E-02 -8.603375E-02 0.0 8.257565E-03 3.971042E-02 6.934671E-02 0.0 -9.954192E-03 3.228803E-02 2.398059E-02 0.0 0 314 0.0000 -4.519853E+00 0.0 3.542463E+01 0.0 3.182724E-01 0.0 2.380009E+01 0.0 -2.096199E-01 0.0 -3.266997E+01 0.0 -1.089347E+00 0.0 -2.982235E+01 0.0 0 314 7.1000 -4.167899E+00 -5.888847E+00 3.517867E+01 0.0 4.437355E-01 -3.688873E+00 2.425525E+01 0.0 -3.257025E-01 3.924453E+00 -3.301483E+01 0.0 -8.912570E-01 -2.259721E+00 -2.854149E+01 0.0 0 321 0 -4.669571E-02 0.0 -2.329369E-01 0.0 1.461334E-01 0.0 -1.669388E-01 0.0 -5.490863E-02 0.0 -1.731873E-02 0.0 3.601074E-02 0.0 4.172058E-01 0.0 0 321 1 -2.050858E-01 7.393253E+00 4.082512E+00 0.0 2.952118E-01 5.431414E+00 3.067474E+00 0.0 -2.180142E-01 -8.089601E+00 -4.272858E+00 0.0 2.017899E-01 -4.662652E+00 -2.003571E+00 0.0 0 321 2 -7.153397E-01 1.747254E+01 1.009003E+01 0.0 9.928284E-01 1.332016E+01 1.032080E+01 0.0 9.777737E-02 -1.733554E+01 -1.170825E+01 0.0 6.135559E-01 -1.142594E+01 -4.644775E+00 0.0 0 321 3 -7.918625E-01 1.496918E+01 -1.188934E+00 0.0 1.660034E+00 1.406509E+01 3.166229E+00 0.0 1.342430E+00 -1.034818E+01 8.568726E-01 0.0 4.675446E-01 -9.987414E+00 2.169983E+00 0.0 0 321 4 -3.877153E-01 5.752314E+00 -2.399891E+00 0.0 8.904228E-01 6.202352E+00 -1.973373E+00 0.0 6.767260E-01 -2.269087E+00 5.259567E+00 0.0 1.609726E-01 -3.577772E+00 1.485245E+00 0.0 0 321 5 -1.620214E-01 1.987138E+00 -6.133013E-01 0.0 3.420768E-01 2.083728E+00 -1.512703E+00 0.0 1.779855E-01 -4.803637E-01 2.935762E+00 0.0 5.244827E-02 -1.119099E+00 1.226044E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 97 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 321 6 -5.571479E-02 6.070386E-01 -4.925108E-02 0.0 1.217718E-01 5.687472E-01 -7.383103E-01 0.0 2.571516E-02 -7.566516E-02 1.201208E+00 0.0 1.318884E-02 -3.083913E-01 -1.116190E-01 0.0 0 321 7 -1.411438E-02 1.569353E-01 3.260171E-02 0.0 4.302508E-02 1.128411E-01 -3.289696E-01 0.0 -5.199617E-03 8.227604E-03 4.412837E-01 0.0 5.059242E-04 -6.729663E-02 -7.397962E-02 0.0 0 321 8 -9.442344E-04 2.852326E-02 2.230094E-02 0.0 1.490143E-02 4.018391E-04 -1.426994E-01 0.0 -6.661256E-03 1.489874E-02 1.539350E-01 0.0 -2.256006E-03 -6.341256E-03 -3.064203E-02 0.0 0 321 9 1.973636E-03 -1.613224E-03 8.826301E-03 0.0 4.886344E-03 -1.695365E-02 -6.082298E-02 0.0 -3.827281E-03 8.867330E-03 5.146736E-02 0.0 -2.062172E-03 4.748288E-03 -9.900659E-03 0.0 0 321 10 1.873901E-03 -5.475163E-03 2.349213E-03 0.0 1.432274E-03 -1.326722E-02 -2.553884E-02 0.0 -1.737251E-03 4.134496E-03 1.644170E-02 0.0 -1.328185E-03 4.379717E-03 -2.412111E-03 0.0 0 321 0.0000 -2.375646E+00 0.0 9.754302E+00 0.0 4.512724E+00 0.0 1.160515E+01 0.0 2.030285E+00 0.0 -5.081890E+00 0.0 1.540370E+00 0.0 -2.681861E+00 0.0 0 321 7.1000 -2.203600E+00 1.507523E+01 9.883614E+00 0.0 4.138202E+00 1.365164E+01 1.199557E+01 0.0 1.824120E+00 -1.039020E+01 -6.511053E+00 0.0 1.458428E+00 -9.615628E+00 -2.797727E+00 0.0 0 324 0 8.612442E-02 0.0 1.550064E-01 0.0 2.227783E-03 0.0 2.395096E-01 0.0 -5.746841E-03 0.0 -4.302368E-01 0.0 -2.233124E-02 0.0 3.575134E-02 0.0 0 324 1 -8.599472E-02 5.558794E+00 3.482727E+00 0.0 1.728210E-01 7.619240E+00 4.849258E+00 0.0 -1.769829E-01 -4.817646E+00 -3.040436E+00 0.0 1.522064E-01 -8.297927E+00 -4.436035E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 98 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 324 2 -1.193451E+00 5.911211E+00 1.227206E+01 0.0 5.173340E-01 8.611321E+00 2.079181E+01 0.0 -5.823364E-01 -4.964283E+00 -1.271326E+01 0.0 4.664917E-01 -1.109322E+01 -1.835571E+01 0.0 0 324 3 -1.941513E+00 -5.752789E+00 7.190521E+00 0.0 1.106567E-01 -4.027864E+00 1.538922E+01 0.0 -2.205658E-01 3.786146E+00 -9.664551E+00 0.0 -2.947388E-01 -4.712529E-01 -1.414966E+01 0.0 0 324 4 -7.340889E-01 -5.261175E+00 -6.082382E-01 0.0 -1.589355E-01 -4.692170E+00 -1.243393E+00 0.0 1.285782E-01 3.511448E+00 1.075317E+00 0.0 -4.806366E-01 2.150886E+00 -1.218933E+00 0.0 0 324 5 -1.174898E-01 -2.578412E+00 -1.429108E+00 0.0 -1.705093E-01 -2.721230E+00 -3.512890E+00 0.0 1.626129E-01 1.787616E+00 2.379021E+00 0.0 -3.220634E-01 1.653156E+00 1.170593E+00 0.0 0 324 6 4.752111E-02 -1.101907E+00 -8.221412E-01 0.0 -1.212492E-01 -1.339967E+00 -2.141624E+00 0.0 1.146812E-01 7.848905E-01 1.342186E+00 0.0 -1.887341E-01 9.172628E-01 8.310585E-01 0.0 0 324 7 5.970871E-02 -4.408388E-01 -3.698057E-01 0.0 -7.096338E-02 -5.982698E-01 -1.013513E+00 0.0 6.433344E-02 3.161119E-01 5.840406E-01 0.0 -1.002269E-01 4.311229E-01 4.039450E-01 0.0 0 324 8 4.004800E-02 -1.683554E-01 -1.517438E-01 0.0 -3.704453E-02 -2.513929E-01 -4.350824E-01 0.0 3.166392E-02 1.196133E-01 2.287531E-01 0.0 -4.871166E-02 1.857654E-01 1.758413E-01 0.0 0 324 9 2.215283E-02 -6.165029E-02 -5.924043E-02 0.0 -1.796323E-02 -1.014858E-01 -1.771170E-01 0.0 1.425982E-02 4.311896E-02 8.434093E-02 0.0 -2.201062E-02 7.605902E-02 7.288170E-02 0.0 0 324 10 1.109203E-02 -2.155612E-02 -2.235593E-02 0.0 -8.258693E-03 -3.972195E-02 -6.934422E-02 0.0 6.005250E-03 1.486006E-02 2.963895E-02 0.0 -9.361789E-03 3.006614E-02 2.932081E-02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 99 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 324 0.0000 -3.805890E+00 0.0 1.963769E+01 0.0 2.181156E-01 0.0 3.267684E+01 0.0 -4.634972E-01 0.0 -2.012518E+01 0.0 -8.701169E-01 0.0 -3.544095E+01 0.0 0 324 7.1000 -3.597592E+00 -5.250889E+00 1.954818E+01 0.0 3.337015E-01 -3.923216E+00 3.302176E+01 0.0 -5.543326E-01 3.195505E+00 -2.035610E+01 0.0 -6.218036E-01 -7.332106E-01 -3.445258E+01 0.0 0 331 0 -3.602219E-02 0.0 -4.172592E-01 0.0 8.882141E-02 0.0 -1.185379E-01 0.0 -1.800251E-02 0.0 -1.335144E-03 0.0 2.048111E-02 0.0 5.369034E-01 0.0 0 331 1 -2.010117E-01 4.662590E+00 2.004295E+00 0.0 2.485962E-01 8.096582E+00 4.119308E+00 0.0 -1.802998E-01 -5.361162E+00 -2.448578E+00 0.0 1.811600E-01 -7.349119E+00 -2.805435E+00 0.0 0 331 2 -6.105957E-01 1.142779E+01 4.645935E+00 0.0 7.973633E-01 1.900597E+01 1.313800E+01 0.0 -2.967072E-02 -1.120359E+01 -6.307434E+00 0.0 6.976624E-01 -1.746935E+01 -7.435303E+00 0.0 0 331 3 -4.729462E-01 9.975458E+00 -2.169373E+00 0.0 9.005127E-01 1.702551E+01 3.354645E+00 0.0 1.211487E+00 -5.426528E+00 2.120300E+00 0.0 7.201843E-01 -1.396172E+01 1.472473E+00 0.0 0 331 4 -1.640244E-01 3.572407E+00 -1.488354E+00 0.0 2.888260E-01 6.194016E+00 -2.802940E+00 0.0 7.620029E-01 -4.580808E-01 4.135078E+00 0.0 2.625694E-01 -4.152411E+00 2.134384E+00 0.0 0 331 5 -5.270290E-02 1.119056E+00 -1.224079E-01 0.0 4.431629E-02 1.714836E+00 -1.916061E+00 0.0 2.666025E-01 5.517722E-02 2.105385E+00 0.0 7.106972E-02 -9.935710E-01 5.788517E-01 0.0 0 331 6 -1.334453E-02 3.070926E-01 1.129632E-01 0.0 1.040936E-03 3.455006E-01 -8.507538E-01 0.0 7.727879E-02 3.492360E-02 7.910180E-01 0.0 1.023984E-02 -1.779596E-01 1.071939E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 100 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 331 7 -5.655885E-04 6.705463E-02 7.401353E-02 0.0 -1.996279E-03 1.652787E-02 -3.426079E-01 0.0 2.120613E-02 1.316587E-02 2.623665E-01 0.0 -4.139543E-03 -2.522038E-03 2.091241E-02 0.0 0 331 8 2.248555E-03 6.269567E-03 3.082122E-02 0.0 -1.271069E-03 -3.294139E-02 -1.341776E-01 0.0 5.944557E-03 4.455553E-03 8.061793E-02 0.0 -4.911751E-03 1.914207E-02 7.741451E-03 0.0 0 331 9 2.056886E-03 -4.749247E-03 9.992331E-03 0.0 -8.311123E-04 -2.536494E-02 -5.172072E-02 0.0 1.825571E-03 1.259795E-03 2.301925E-02 0.0 -3.131628E-03 1.314235E-02 4.564032E-03 0.0 0 331 10 1.327015E-03 -4.380527E-03 2.411427E-03 0.0 -5.635992E-04 -1.374433E-02 -1.961124E-02 0.0 6.458107E-04 2.544631E-04 5.948301E-03 0.0 -1.633968E-03 6.599050E-03 2.629489E-03 0.0 0 331 0.0000 -1.545581E+00 0.0 2.683039E+00 0.0 2.364815E+00 0.0 1.437554E+01 0.0 2.119020E+00 0.0 7.663864E-01 0.0 1.949550E+00 0.0 -5.375085E+00 0.0 0 331 7.1000 -1.462882E+00 9.608029E+00 2.798660E+00 0.0 2.235885E+00 1.597255E+01 1.485531E+01 0.0 1.865257E+00 -5.529217E+00 -4.107731E-01 0.0 1.836676E+00 -1.290561E+01 -5.634955E+00 0.0 0 334 0 3.425884E-02 0.0 1.264420E-01 0.0 6.015778E-03 0.0 4.298325E-01 0.0 -1.341438E-02 0.0 -5.519180E-01 0.0 3.265381E-03 0.0 -4.585266E-03 0.0 0 334 1 -1.326847E-01 8.258691E+00 4.533371E+00 0.0 1.760025E-01 4.817613E+00 3.039963E+00 0.0 -1.810255E-01 -7.538891E+00 -4.142746E+00 0.0 1.697464E-01 -5.505286E+00 -2.577545E+00 0.0 0 334 2 -1.139603E+00 9.289896E+00 1.668576E+01 0.0 5.799561E-01 4.966548E+00 1.271399E+01 0.0 -5.092239E-01 -8.183920E+00 -1.648749E+01 0.0 3.437500E-01 -7.470882E+00 -1.094385E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 101 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 334 3 -1.905521E+00 -6.199553E+00 9.873383E+00 0.0 2.182312E-01 -3.782875E+00 9.665649E+00 0.0 -3.569794E-02 5.153803E+00 -1.156165E+01 0.0 -3.413391E-01 -8.812153E-01 -9.352844E+00 0.0 0 334 4 -8.028994E-01 -5.956385E+00 -1.176956E+00 0.0 -1.300125E-01 -3.513173E+00 -1.074524E+00 0.0 2.115984E-01 4.818866E+00 1.687851E+00 0.0 -3.162308E-01 9.986994E-01 -1.423065E+00 0.0 0 334 5 -1.756973E-01 -2.796642E+00 -2.129637E+00 0.0 -1.624851E-01 -1.787476E+00 -2.375374E+00 0.0 1.648295E-01 2.251738E+00 2.899620E+00 0.0 -1.645565E-01 8.628840E-01 3.595772E-01 0.0 0 334 6 1.480412E-02 -1.129552E+00 -1.143022E+00 0.0 -1.145825E-01 -7.854824E-01 -1.342835E+00 0.0 9.239274E-02 9.059409E-01 1.502874E+00 0.0 -8.880568E-02 4.837291E-01 3.429985E-01 0.0 0 334 7 4.050074E-02 -4.266263E-01 -4.835913E-01 0.0 -6.434965E-02 -3.159121E-01 -5.835760E-01 0.0 4.449850E-02 3.368604E-01 6.004431E-01 0.0 -4.595208E-02 2.218919E-01 1.746788E-01 0.0 0 334 8 2.807189E-02 -1.536181E-01 -1.868748E-01 0.0 -3.165364E-02 -1.195898E-01 -2.286617E-01 0.0 1.947606E-02 1.186757E-01 2.158203E-01 0.0 -2.168304E-02 9.141793E-02 7.642508E-02 0.0 0 334 9 1.482937E-02 -5.317289E-02 -6.894408E-02 0.0 -1.425721E-02 -4.312776E-02 -8.430912E-02 0.0 7.947993E-03 4.004703E-02 7.299165E-02 0.0 -9.392485E-03 3.532454E-02 3.138396E-02 0.0 0 334 10 6.851824E-03 -1.771229E-02 -2.464818E-02 0.0 -6.003618E-03 -1.485949E-02 -2.962581E-02 0.0 3.068348E-03 1.297471E-02 2.351198E-02 0.0 -3.788941E-03 1.306883E-02 1.238311E-02 0.0 0 334 0.0000 -4.017089E+00 0.0 2.600528E+01 0.0 4.568613E-01 0.0 2.013053E+01 0.0 -1.955502E-01 0.0 -2.574068E+01 0.0 -4.749869E-01 0.0 -2.330444E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 102 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 334 7.1000 -3.765637E+00 -4.692329E+00 2.593601E+01 0.0 5.480577E-01 -3.194740E+00 2.036052E+01 0.0 -2.877023E-01 3.549949E+00 -2.592059E+01 0.0 -3.375351E-01 -1.239913E+00 -2.241970E+01 0.0 0 341 0 -2.075863E-02 0.0 -5.367775E-01 0.0 1.994705E-02 0.0 -2.244568E-02 0.0 3.782201E-02 0.0 1.394196E-01 0.0 -1.365662E-03 0.0 4.197998E-01 0.0 0 341 1 -1.811562E-01 7.349225E+00 2.804436E+00 0.0 1.776505E-01 5.405531E+00 2.490784E+00 0.0 -1.258657E-01 -8.060842E+00 -3.050049E+00 0.0 1.649475E-01 -4.658828E+00 -1.374878E+00 0.0 0 341 2 -6.973877E-01 1.747067E+01 7.434296E+00 0.0 7.908325E-01 1.306738E+01 8.301147E+00 0.0 8.530045E-02 -1.751537E+01 -8.370239E+00 0.0 5.777283E-01 -1.146965E+01 -3.307129E+00 0.0 0 341 3 -7.175751E-01 1.396881E+01 -1.475739E+00 0.0 1.216553E+00 1.235262E+01 2.674957E+00 0.0 1.148867E+00 -1.022129E+01 1.607483E+00 0.0 3.976135E-01 -9.453964E+00 1.861572E+00 0.0 0 341 4 -2.634192E-01 4.152457E+00 -2.133652E+00 0.0 5.883636E-01 4.369096E+00 -1.695816E+00 0.0 5.456978E-01 -1.524761E+00 4.326767E+00 0.0 8.147812E-02 -2.649734E+00 1.192307E+00 0.0 0 341 5 -7.117605E-02 9.934546E-01 -5.795541E-01 0.0 1.905761E-01 1.055687E+00 -1.254847E+00 0.0 1.210201E-01 -3.507641E-02 2.131840E+00 0.0 4.314423E-03 -5.481474E-01 1.304817E-01 0.0 0 341 6 -1.018059E-02 1.779282E-01 -1.072735E-01 0.0 5.144513E-02 1.449257E-01 -5.548823E-01 0.0 1.154709E-02 7.633808E-02 7.588749E-01 0.0 -7.880926E-03 -7.428961E-02 -3.847218E-02 0.0 0 341 7 4.141659E-03 2.535630E-03 -2.094305E-02 0.0 1.204252E-02 -2.915972E-02 -2.162122E-01 0.0 -4.241593E-03 4.540816E-02 2.376497E-01 0.0 -6.787241E-03 9.696046E-03 -2.182150E-02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 103 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 341 8 4.909553E-03 -1.913981E-02 -7.809654E-03 0.0 1.970977E-03 -3.643005E-02 -8.082390E-02 0.0 -3.240846E-03 2.015197E-02 6.933492E-02 0.0 -4.033729E-03 1.414473E-02 -5.132854E-03 0.0 0 341 9 3.131768E-03 -1.315270E-02 -4.562367E-03 0.0 -1.903884E-04 -2.112928E-02 -2.948547E-02 0.0 -1.369748E-03 7.844506E-03 1.895374E-02 0.0 -2.049312E-03 8.115179E-03 1.536310E-04 0.0 0 341 10 1.633776E-03 -6.600143E-03 -2.627347E-03 0.0 -4.154108E-04 -9.998248E-03 -1.053009E-02 0.0 -4.444646E-04 2.807755E-03 4.783772E-03 0.0 -9.424388E-04 3.722567E-03 8.853227E-04 0.0 0 341 0.0000 -1.947837E+00 0.0 5.369793E+00 0.0 3.048775E+00 0.0 9.601846E+00 0.0 1.815092E+00 0.0 -2.125182E+00 0.0 1.203022E+00 0.0 -1.142234E+00 0.0 0 341 7.1000 -1.835042E+00 1.290846E+01 5.630029E+00 0.0 2.815578E+00 1.106880E+01 9.866722E+00 0.0 1.647786E+00 -9.638594E+00 -3.202279E+00 0.0 1.154422E+00 -8.422426E+00 -1.306056E+00 0.0 0 344 0 -2.739525E-02 0.0 1.004028E-02 0.0 1.310730E-02 0.0 5.520477E-01 0.0 -2.275658E-02 0.0 -4.330750E-01 0.0 4.945374E-02 0.0 -1.289215E-01 0.0 0 344 1 -1.945000E-01 5.487413E+00 2.601990E+00 0.0 1.824493E-01 7.539107E+00 4.144119E+00 0.0 -1.940765E-01 -4.772597E+00 -2.409576E+00 0.0 2.224579E-01 -8.236925E+00 -3.489380E+00 0.0 0 344 2 -1.169754E+00 5.819063E+00 9.218658E+00 0.0 5.135498E-01 8.185194E+00 1.648999E+01 0.0 -5.905457E-01 -4.707695E+00 -9.669678E+00 0.0 6.060791E-01 -1.052977E+01 -1.413184E+01 0.0 0 344 3 -1.627014E+00 -5.657486E+00 4.679138E+00 0.0 3.991699E-02 -5.152577E+00 1.156451E+01 0.0 -1.565552E-01 4.413625E+00 -7.030640E+00 0.0 -6.744385E-02 1.408184E+00 -1.079907E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 104 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 344 4 -4.691772E-01 -4.741117E+00 -1.045883E+00 0.0 -2.118988E-01 -4.819940E+00 -1.688004E+00 0.0 1.851234E-01 3.488511E+00 1.177948E+00 0.0 -4.047394E-01 2.965330E+00 -4.977112E-01 0.0 0 344 5 -3.561020E-03 -1.958391E+00 -1.241779E+00 0.0 -1.645050E-01 -2.251048E+00 -2.900578E+00 0.0 1.607361E-01 1.440924E+00 1.843933E+00 0.0 -2.721672E-01 1.591476E+00 1.141563E+00 0.0 0 344 6 6.772327E-02 -6.834199E-01 -5.988431E-01 0.0 -9.227848E-02 -9.054759E-01 -1.502726E+00 0.0 8.747864E-02 5.107977E-01 8.965836E-01 0.0 -1.360159E-01 6.908199E-01 6.715813E-01 0.0 0 344 7 4.809052E-02 -2.224253E-01 -2.294773E-01 0.0 -4.450107E-02 -3.369290E-01 -6.006050E-01 0.0 3.965199E-02 1.684257E-01 3.303647E-01 0.0 -5.992985E-02 2.683434E-01 2.788506E-01 0.0 0 344 8 2.484731E-02 -6.861117E-02 -7.992603E-02 0.0 -1.947832E-02 -1.187022E-01 -2.158804E-01 0.0 1.608802E-02 5.230425E-02 1.076664E-01 0.0 -2.420473E-02 9.730065E-02 1.033251E-01 0.0 0 344 9 1.117169E-02 -1.986559E-02 -2.634560E-02 0.0 -7.950366E-03 -4.004344E-02 -7.301736E-02 0.0 5.996589E-03 1.529453E-02 3.249273E-02 0.0 -9.077758E-03 3.360423E-02 3.631726E-02 0.0 0 344 10 4.614885E-03 -5.251048E-03 -8.336272E-03 0.0 -3.069062E-03 -1.297658E-02 -2.351097E-02 0.0 2.075619E-03 4.154875E-03 9.149969E-03 0.0 -3.176730E-03 1.116176E-02 1.233786E-02 0.0 0 344 0.0000 -3.334954E+00 0.0 1.327924E+01 0.0 2.053423E-01 0.0 2.574635E+01 0.0 -4.667836E-01 0.0 -1.514483E+01 0.0 -9.876467E-02 0.0 -2.680294E+01 0.0 0 344 7.1000 -3.184923E+00 -4.054054E+00 1.331032E+01 0.0 2.970125E-01 -3.549033E+00 2.592623E+01 0.0 -5.378441E-01 2.890121E+00 -1.526155E+01 0.0 6.016117E-02 3.936044E-02 -2.611016E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 105 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 351 0 1.377106E-03 0.0 -4.201508E-01 0.0 1.518250E-03 0.0 -6.883240E-02 0.0 1.254082E-02 0.0 7.176208E-02 0.0 4.264832E-03 0.0 4.170532E-01 0.0 0 351 1 -1.648178E-01 4.658861E+00 1.375244E+00 0.0 1.643372E-01 8.079730E+00 3.102371E+00 0.0 -1.476669E-01 -5.366136E+00 -1.661972E+00 0.0 1.664886E-01 -7.353952E+00 -1.946411E+00 0.0 0 351 2 -5.800171E-01 1.147158E+01 3.307587E+00 0.0 6.107178E-01 1.881087E+01 1.003052E+01 0.0 -9.829712E-02 -1.147325E+01 -4.095276E+00 0.0 6.876831E-01 -1.752495E+01 -5.190552E+00 0.0 0 351 3 -4.005432E-01 9.443357E+00 -1.861465E+00 0.0 5.394897E-01 1.524975E+01 2.679932E+00 0.0 9.244690E-01 -5.883384E+00 2.397614E+00 0.0 6.675110E-01 -1.324554E+01 1.288940E+00 0.0 0 351 4 -8.369827E-02 2.645669E+00 -1.194599E+00 0.0 1.222534E-01 4.270192E+00 -2.248131E+00 0.0 5.757999E-01 -3.557088E-01 3.223145E+00 0.0 1.755295E-01 -3.020347E+00 1.633041E+00 0.0 0 351 5 -4.441738E-03 5.480880E-01 -1.301165E-01 0.0 -2.666473E-03 7.351335E-01 -1.490782E+00 0.0 1.831846E-01 1.820886E-01 1.425634E+00 0.0 1.521873E-02 -3.740667E-01 4.476547E-01 0.0 0 351 6 7.822037E-03 7.364844E-02 3.932965E-02 0.0 -1.254201E-02 3.000021E-03 -6.066899E-01 0.0 4.602987E-02 7.862180E-02 4.592459E-01 0.0 -1.140857E-02 3.393438E-02 9.939957E-02 0.0 0 351 7 6.764770E-03 -9.782609E-03 2.189440E-02 0.0 -6.774366E-03 -7.160714E-02 -2.157753E-01 0.0 1.081309E-02 2.289317E-02 1.271994E-01 0.0 -9.412408E-03 4.901737E-02 2.894282E-02 0.0 0 351 8 4.031725E-03 -1.416768E-02 5.212456E-03 0.0 -3.071457E-03 -4.433087E-02 -7.314894E-02 0.0 2.678428E-03 6.047603E-03 3.145058E-02 0.0 -4.972875E-03 2.534783E-02 1.160315E-02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 106 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 351 9 2.048735E-03 -8.112656E-03 -1.220964E-04 0.0 -1.391560E-03 -2.026560E-02 -2.414457E-02 0.0 7.756753E-04 1.524725E-03 6.759353E-03 0.0 -2.222102E-03 1.049931E-02 5.065471E-03 0.0 0 351 10 9.423112E-04 -3.720968E-03 -8.818628E-04 0.0 -6.358698E-04 -8.126369E-03 -7.778514E-03 0.0 2.690596E-04 3.687435E-04 1.103330E-03 0.0 -8.986685E-04 3.898917E-03 2.111621E-03 0.0 0 351 0.0000 -1.210531E+00 0.0 1.141931E+00 0.0 1.411235E+00 0.0 1.107754E+01 0.0 1.510596E+00 0.0 1.986665E+00 0.0 1.687781E+00 0.0 -3.203151E+00 0.0 0 351 7.1000 -1.161347E+00 8.416569E+00 1.305629E+00 0.0 1.348545E+00 1.349494E+01 1.140007E+01 0.0 1.330439E+00 -5.600870E+00 1.122964E+00 0.0 1.606377E+00 -1.157851E+01 -3.443392E+00 0.0 0 354 0 -3.050089E-02 0.0 7.031250E-02 0.0 2.304077E-02 0.0 4.328995E-01 0.0 -1.092768E-02 0.0 -4.287491E-01 0.0 1.732635E-02 0.0 -7.459259E-02 0.0 0 354 1 -1.978436E-01 8.197416E+00 3.368561E+00 0.0 1.930847E-01 4.772626E+00 2.409012E+00 0.0 -1.789494E-01 -7.493026E+00 -3.016861E+00 0.0 1.855850E-01 -5.475319E+00 -1.914490E+00 0.0 0 354 2 -1.112892E+00 9.140005E+00 1.222598E+01 0.0 5.893555E-01 4.710137E+00 9.670349E+00 0.0 -5.018425E-01 -7.872882E+00 -1.185248E+01 0.0 4.702148E-01 -7.046856E+00 -8.155396E+00 0.0 0 354 3 -1.584274E+00 -6.421305E+00 6.467346E+00 0.0 1.597290E-01 -4.411158E+00 7.032349E+00 0.0 1.927185E-02 5.977118E+00 -7.993530E+00 0.0 -1.113892E-01 6.423950E-01 -7.194031E+00 0.0 0 354 4 -5.103192E-01 -5.610888E+00 -1.499786E+00 0.0 -1.874542E-01 -3.489993E+00 -1.177322E+00 0.0 2.462540E-01 4.843244E+00 1.588760E+00 0.0 -2.684555E-01 1.713030E+00 -9.432373E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 107 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 354 5 -4.362571E-02 -2.220498E+00 -1.724302E+00 0.0 -1.607933E-01 -1.440882E+00 -1.841616E+00 0.0 1.531229E-01 1.862497E+00 2.129425E+00 0.0 -1.527882E-01 8.977201E-01 3.983154E-01 0.0 0 354 6 4.339480E-02 -7.300967E-01 -7.951427E-01 0.0 -8.744955E-02 -5.111676E-01 -8.969755E-01 0.0 6.844154E-02 6.022739E-01 9.690914E-01 0.0 -6.994295E-02 3.746170E-01 2.939177E-01 0.0 0 354 7 3.418314E-02 -2.241945E-01 -2.892092E-01 0.0 -3.966063E-02 -1.683621E-01 -3.301731E-01 0.0 2.674647E-02 1.817767E-01 3.320950E-01 0.0 -2.910018E-02 1.391504E-01 1.272910E-01 0.0 0 354 8 1.716918E-02 -6.568058E-02 -9.516039E-02 0.0 -1.608440E-02 -5.230298E-02 -1.076354E-01 0.0 9.640265E-03 5.233818E-02 9.998763E-02 0.0 -1.116936E-02 4.779722E-02 4.723698E-02 0.0 0 354 9 7.181772E-03 -1.832104E-02 -2.961955E-02 0.0 -5.995981E-03 -1.529758E-02 -3.249128E-02 0.0 3.256038E-03 1.435727E-02 2.771090E-02 0.0 -3.973529E-03 1.548602E-02 1.635660E-02 0.0 0 354 10 2.678573E-03 -4.802615E-03 -8.849060E-03 0.0 -2.075003E-03 -4.159092E-03 -9.149132E-03 0.0 1.034840E-03 3.711597E-03 7.120376E-03 0.0 -1.313526E-03 4.774582E-03 5.418787E-03 0.0 0 354 0.0000 -3.374848E+00 0.0 1.769013E+01 0.0 4.656968E-01 0.0 1.514925E+01 0.0 -1.639517E-01 0.0 -1.813743E+01 0.0 2.499385E-02 0.0 -1.739321E+01 0.0 0 354 7.1000 -3.198703E+00 -3.776471E+00 1.772759E+01 0.0 5.368686E-01 -2.889510E+00 1.526535E+01 0.0 -2.410546E-01 3.305388E+00 -1.823176E+01 0.0 1.144236E-01 -4.178741E-01 -1.675516E+01 0.0 0 361 0 -4.559517E-03 0.0 -4.169960E-01 0.0 -2.517700E-02 0.0 2.799225E-02 0.0 5.036509E-02 0.0 1.302948E-01 0.0 -1.207733E-02 0.0 2.586975E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 108 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 361 1 -1.661644E-01 7.354056E+00 1.945587E+00 0.0 1.336212E-01 5.400570E+00 1.835220E+00 0.0 -1.089408E-01 -8.073606E+00 -1.988831E+00 0.0 1.538315E-01 -4.669911E+00 -9.206848E-01 0.0 0 361 2 -6.855087E-01 1.752577E+01 5.190521E+00 0.0 6.400146E-01 1.282777E+01 6.261475E+00 0.0 3.114700E-03 -1.775824E+01 -5.216675E+00 0.0 5.650024E-01 -1.152230E+01 -2.167603E+00 0.0 0 361 3 -6.655197E-01 1.325205E+01 -1.291000E+00 0.0 8.116455E-01 1.083210E+01 2.421234E+00 0.0 9.129443E-01 -1.040293E+01 1.973938E+00 0.0 3.532715E-01 -9.084660E+00 1.325195E+00 0.0 0 361 4 -1.761465E-01 3.020365E+00 -1.632442E+00 0.0 3.420029E-01 2.970757E+00 -1.169746E+00 0.0 4.242004E-01 -1.131860E+00 3.200516E+00 0.0 3.113174E-02 -2.016158E+00 8.182068E-01 0.0 0 361 5 -1.520109E-02 3.739992E-01 -4.482021E-01 0.0 9.075832E-02 4.187936E-01 -9.175158E-01 0.0 8.297779E-02 2.180057E-01 1.387201E+00 0.0 -2.252388E-02 -1.999392E-01 9.856415E-02 0.0 0 361 6 1.143461E-02 -3.394616E-02 -9.946227E-02 0.0 1.537681E-02 -4.875936E-02 -3.804097E-01 0.0 5.748376E-03 1.474176E-01 4.311728E-01 0.0 -1.654243E-02 4.027174E-02 -9.045601E-03 0.0 0 361 7 9.416476E-03 -4.902072E-02 -2.897307E-02 0.0 -5.522370E-05 -6.619126E-02 -1.315333E-01 0.0 -2.489676E-03 5.375385E-02 1.153686E-01 0.0 -8.031130E-03 3.459168E-02 -3.100872E-03 0.0 0 361 8 4.973505E-03 -2.534779E-02 -1.163580E-02 0.0 -1.624502E-03 -3.418944E-02 -4.237461E-02 0.0 -1.356673E-03 1.699920E-02 2.794510E-02 0.0 -3.395081E-03 1.559355E-02 1.645148E-03 0.0 0 361 9 2.221951E-03 -1.049791E-02 -5.066875E-03 0.0 -1.029344E-03 -1.410199E-02 -1.311631E-02 0.0 -4.043545E-04 5.062352E-03 6.063566E-03 0.0 -1.324531E-03 5.901530E-03 1.698196E-03 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 109 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 361 10 8.986027E-04 -3.898271E-03 -2.112779E-03 0.0 -4.883013E-04 -5.207652E-03 -3.929910E-03 0.0 -7.267561E-05 1.445303E-03 1.109408E-03 0.0 -4.851744E-04 2.041303E-03 9.026118E-04 0.0 0 361 0.0000 -1.684155E+00 0.0 3.200217E+00 0.0 2.005045E+00 0.0 7.887295E+00 0.0 1.366086E+00 0.0 6.810400E-02 0.0 1.038858E+00 0.0 -5.955241E-01 0.0 0 361 7.1000 -1.602893E+00 1.158105E+01 3.440680E+00 0.0 1.868593E+00 9.275517E+00 8.003864E+00 0.0 1.238239E+00 -9.383838E+00 -7.064593E-01 0.0 1.006530E+00 -7.704845E+00 -7.283721E-01 0.0 0 364 0 -4.893112E-02 0.0 -3.537369E-02 0.0 1.064301E-02 0.0 4.288712E-01 0.0 -1.805687E-02 0.0 -2.669220E-01 0.0 5.014038E-02 0.0 -1.264954E-01 0.0 0 364 1 -2.190018E-01 5.457526E+00 1.813759E+00 0.0 1.806335E-01 7.493072E+00 3.018112E+00 0.0 -1.914062E-01 -4.750906E+00 -1.602142E+00 0.0 2.272644E-01 -8.201582E+00 -2.386841E+00 0.0 0 364 2 -1.082184E+00 5.841139E+00 6.254791E+00 0.0 5.045166E-01 7.873753E+00 1.185461E+01 0.0 -5.877686E-01 -4.534271E+00 -6.466064E+00 0.0 7.037354E-01 -1.006262E+01 -9.797852E+00 0.0 0 364 3 -1.299728E+00 -5.323063E+00 2.470123E+00 0.0 -1.489258E-02 -5.976443E+00 7.994751E+00 0.0 -1.113892E-01 4.847559E+00 -4.560425E+00 0.0 1.621094E-01 2.973663E+00 -7.740356E+00 0.0 0 364 4 -2.567329E-01 -4.224770E+00 -1.159622E+00 0.0 -2.463074E-01 -4.843947E+00 -1.589127E+00 0.0 2.235413E-01 3.436612E+00 9.625549E-01 0.0 -3.190460E-01 3.567214E+00 -2.805481E-01 0.0 0 364 5 6.267071E-02 -1.502130E+00 -9.414988E-01 0.0 -1.530075E-01 -1.862065E+00 -2.130074E+00 0.0 1.537981E-01 1.181442E+00 1.245911E+00 0.0 -2.269821E-01 1.484747E+00 8.598709E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 110 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 364 6 6.739211E-02 -4.243506E-01 -3.889620E-01 0.0 -6.838083E-02 -6.020366E-01 -9.690089E-01 0.0 6.627321E-02 3.325152E-01 5.402155E-01 0.0 -9.839821E-02 5.043067E-01 4.609413E-01 0.0 0 364 7 3.413028E-02 -1.083105E-01 -1.287555E-01 0.0 -2.674735E-02 -1.817905E-01 -3.321553E-01 0.0 2.388665E-02 8.622742E-02 1.721833E-01 0.0 -3.547227E-02 1.583141E-01 1.699784E-01 0.0 0 364 8 1.397691E-02 -2.537577E-02 -3.833797E-02 0.0 -9.641171E-03 -5.234144E-02 -1.000054E-01 0.0 7.777952E-03 2.092587E-02 4.691112E-02 0.0 -1.157159E-02 4.736941E-02 5.461746E-02 0.0 0 364 9 5.121117E-03 -5.193491E-03 -1.065411E-02 0.0 -3.256384E-03 -1.435784E-02 -2.771659E-02 0.0 2.330516E-03 4.647955E-03 1.138519E-02 0.0 -3.484350E-03 1.357637E-02 1.635955E-02 0.0 0 364 10 1.733939E-03 -7.712294E-04 -2.794089E-03 0.0 -1.035219E-03 -3.711357E-03 -7.119984E-03 0.0 6.399290E-04 8.785159E-04 2.433490E-03 0.0 -9.634634E-04 3.721354E-03 4.669953E-03 0.0 0 364 0.0000 -2.721553E+00 0.0 7.832675E+00 0.0 1.725248E-01 0.0 1.814114E+01 0.0 -4.303732E-01 0.0 -9.913960E+00 0.0 4.473315E-01 0.0 -1.876566E+01 0.0 0 364 7.1000 -2.618978E+00 -3.104335E+00 7.946818E+00 0.0 2.492040E-01 -3.304861E+00 1.823549E+01 0.0 -4.900123E-01 2.695325E+00 -9.972651E+00 0.0 5.399365E-01 6.743168E-01 -1.826402E+01 0.0 0 371 0 1.208496E-02 0.0 -2.590065E-01 0.0 -2.442169E-02 0.0 -2.781677E-02 0.0 1.798439E-02 0.0 6.578827E-02 0.0 -2.960205E-03 0.0 2.209396E-01 0.0 0 371 1 -1.533203E-01 4.669853E+00 9.208374E-01 0.0 1.349182E-01 8.087128E+00 2.086029E+00 0.0 -1.391182E-01 -5.383475E+00 -9.522247E-01 0.0 1.597824E-01 -7.370417E+00 -1.183655E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 111 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 371 2 -5.640564E-01 1.152407E+01 2.167603E+00 0.0 4.618530E-01 1.863454E+01 6.970947E+00 0.0 -1.911316E-01 -1.176639E+01 -1.978271E+00 0.0 6.838074E-01 -1.758287E+01 -3.094116E+00 0.0 0 371 3 -3.563232E-01 9.075876E+00 -1.326096E+00 0.0 2.122192E-01 1.375806E+01 2.329132E+00 0.0 6.088638E-01 -6.529869E+00 2.468445E+00 0.0 6.336670E-01 -1.278048E+01 8.519897E-01 0.0 0 371 4 -3.144836E-02 2.013137E+00 -8.197136E-01 0.0 -5.973816E-03 2.864829E+00 -1.405968E+00 0.0 3.983154E-01 -4.382018E-01 2.253059E+00 0.0 1.206055E-01 -2.296850E+00 1.013771E+00 0.0 0 371 5 2.258015E-02 1.998636E-01 -9.822035E-02 0.0 -2.582455E-02 1.466373E-01 -9.941196E-01 0.0 1.205311E-01 2.408708E-01 8.363743E-01 0.0 -1.636028E-02 -1.830666E-02 2.767982E-01 0.0 0 371 6 1.648748E-02 -4.056278E-02 9.563088E-03 0.0 -1.451397E-02 -1.433469E-01 -3.867438E-01 0.0 2.794969E-02 1.057691E-01 2.257392E-01 0.0 -2.053833E-02 1.294052E-01 6.522560E-02 0.0 0 371 7 8.022428E-03 -3.461474E-02 3.166378E-03 0.0 -6.287098E-03 -8.497612E-02 -1.245053E-01 0.0 6.035492E-03 2.908343E-02 5.081767E-02 0.0 -9.904832E-03 6.028334E-02 2.043831E-02 0.0 0 371 8 3.394231E-03 -1.559870E-02 -1.612291E-03 0.0 -2.512366E-03 -3.433869E-02 -3.687541E-02 0.0 1.385521E-03 6.785514E-03 9.491935E-03 0.0 -3.808849E-03 2.101069E-02 7.831633E-03 0.0 0 371 9 1.324914E-03 -5.899314E-03 -1.688695E-03 0.0 -9.749271E-04 -1.199753E-02 -1.038846E-02 0.0 3.705528E-04 1.458595E-03 1.214128E-03 0.0 -1.315152E-03 6.542162E-03 2.990231E-03 0.0 0 371 10 4.853220E-04 -2.040112E-03 -9.001368E-04 0.0 -3.693784E-04 -3.843099E-03 -2.807521E-03 0.0 1.152270E-04 3.003507E-04 -5.159248E-05 0.0 -4.224954E-04 1.903824E-03 1.056217E-03 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 112 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 371 0.0000 -1.040769E+00 0.0 5.939322E-01 0.0 7.281127E-01 0.0 8.396884E+00 0.0 8.513014E-01 0.0 2.980382E+00 0.0 1.542552E+00 0.0 -1.816730E+00 0.0 0 371 7.1000 -1.008221E+00 7.700386E+00 7.267764E-01 0.0 7.119720E-01 1.181116E+01 8.533231E+00 0.0 7.358548E-01 -5.891271E+00 2.370423E+00 0.0 1.477338E+00 -1.081097E+01 -1.975137E+00 0.0 0 374 0 -3.652000E-02 0.0 2.649307E-02 0.0 1.835251E-02 0.0 2.668915E-01 0.0 -5.667210E-03 0.0 -2.271347E-01 0.0 1.488495E-02 0.0 -6.629181E-02 0.0 0 374 1 -2.094088E-01 8.176111E+00 2.212494E+00 0.0 1.905975E-01 4.750871E+00 1.601669E+00 0.0 -1.748791E-01 -7.474106E+00 -1.794388E+00 0.0 1.867981E-01 -5.460037E+00 -1.176910E+00 0.0 0 374 2 -1.042564E+00 9.127172E+00 7.791473E+00 0.0 5.839233E-01 4.535934E+00 6.466553E+00 0.0 -4.939232E-01 -7.677596E+00 -7.115601E+00 0.0 5.902710E-01 -6.683595E+00 -5.307861E+00 0.0 0 374 3 -1.264732E+00 -6.314989E+00 3.407074E+00 0.0 1.099854E-01 -4.845439E+00 4.561768E+00 0.0 5.633926E-02 6.509242E+00 -4.678162E+00 0.0 1.326599E-01 1.962851E+00 -5.192200E+00 0.0 0 374 4 -2.690449E-01 -5.228224E+00 -1.421059E+00 0.0 -2.249756E-01 -3.437797E+00 -9.620056E-01 0.0 2.668085E-01 4.821939E+00 1.105164E+00 0.0 -2.104416E-01 2.287623E+00 -7.660522E-01 0.0 0 374 5 4.263878E-02 -1.801203E+00 -1.198598E+00 0.0 -1.537142E-01 -1.181468E+00 -1.244585E+00 0.0 1.421987E-01 1.587575E+00 1.292130E+00 0.0 -1.419945E-01 8.978369E-01 2.679863E-01 0.0 0 374 6 5.264799E-02 -4.835427E-01 -4.843066E-01 0.0 -6.626201E-02 -3.327296E-01 -5.404468E-01 0.0 5.191371E-02 4.128897E-01 5.359101E-01 0.0 -5.768371E-02 2.828826E-01 1.967049E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 113 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 374 7 2.552409E-02 -1.171238E-01 -1.540850E-01 0.0 -2.388817E-02 -8.621498E-02 -1.721153E-01 0.0 1.621673E-02 9.744880E-02 1.624076E-01 0.0 -1.930672E-02 8.240897E-02 7.794154E-02 0.0 0 374 8 9.654604E-03 -2.643752E-02 -4.364595E-02 0.0 -7.776409E-03 -2.093040E-02 -4.690331E-02 0.0 4.647042E-03 2.162023E-02 4.169327E-02 0.0 -5.820587E-03 2.289250E-02 2.548149E-02 0.0 0 374 9 3.186968E-03 -5.467250E-03 -1.147431E-02 0.0 -2.330529E-03 -4.648881E-03 -1.138935E-02 0.0 1.243935E-03 4.456158E-03 9.425905E-03 0.0 -1.620658E-03 6.077575E-03 7.577933E-03 0.0 0 374 10 9.453627E-04 -9.657946E-04 -2.831527E-03 0.0 -6.397127E-04 -8.814829E-04 -2.434622E-03 0.0 3.091390E-04 8.111407E-04 1.844754E-03 0.0 -4.154567E-04 1.528006E-03 2.116754E-03 0.0 0 374 0.0000 -2.687673E+00 0.0 1.012153E+01 0.0 4.232721E-01 0.0 9.917000E+00 0.0 -1.347925E-01 0.0 -1.066671E+01 0.0 4.873308E-01 0.0 -1.193151E+01 0.0 0 374 7.1000 -2.573065E+00 -3.021589E+00 1.023791E+01 0.0 4.832846E-01 -2.694872E+00 9.975316E+00 0.0 -2.031874E-01 3.149305E+00 -1.071335E+01 0.0 5.363861E-01 2.884149E-01 -1.145989E+01 0.0 0 381 0 2.654076E-03 0.0 -2.209358E-01 0.0 -2.943802E-02 0.0 3.388977E-02 0.0 3.736603E-02 0.0 7.730103E-02 0.0 -1.192474E-02 0.0 1.097412E-01 0.0 0 381 1 -1.592331E-01 7.370517E+00 1.182991E+00 0.0 1.277008E-01 5.402499E+00 1.139587E+00 0.0 -1.182621E-01 -8.091220E+00 -9.761047E-01 0.0 1.529312E-01 -4.680169E+00 -4.735413E-01 0.0 0 381 2 -6.814194E-01 1.758359E+01 3.094513E+00 0.0 5.190430E-01 1.258449E+01 4.210144E+00 0.0 -1.052608E-01 -1.800930E+01 -2.146606E+00 0.0 5.609131E-01 -1.156015E+01 -1.081665E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 114 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 381 3 -6.324158E-01 1.278628E+01 -8.528900E-01 0.0 4.337158E-01 9.495281E+00 2.338318E+00 0.0 6.515522E-01 -1.085664E+01 2.110535E+00 0.0 3.298035E-01 -8.866527E+00 6.829224E-01 0.0 0 381 4 -1.209278E-01 2.296862E+00 -1.013390E+00 0.0 1.343269E-01 1.934210E+00 -4.651947E-01 0.0 3.143061E-01 -1.060907E+00 1.991226E+00 0.0 2.529144E-03 -1.646888E+00 4.136505E-01 0.0 0 381 5 1.639390E-02 1.828653E-02 -2.771211E-01 0.0 2.369118E-02 4.614676E-02 -5.385599E-01 0.0 5.974476E-02 3.309605E-01 7.144642E-01 0.0 -3.593540E-02 -1.388328E-02 5.155182E-02 0.0 0 381 6 2.055582E-02 -1.294074E-01 -6.525600E-02 0.0 -1.968265E-03 -1.213128E-01 -2.274320E-01 0.0 5.199824E-03 1.814063E-01 1.859598E-01 0.0 -1.947844E-02 9.024017E-02 -3.933907E-04 0.0 0 381 7 9.906702E-03 -6.028853E-02 -2.045846E-02 0.0 -3.658324E-03 -6.337746E-02 -7.323122E-02 0.0 -4.613642E-04 5.644527E-02 4.093421E-02 0.0 -7.575393E-03 4.008985E-02 1.096249E-03 0.0 0 381 8 3.809953E-03 -2.101155E-02 -7.846545E-03 0.0 -1.950055E-03 -2.367459E-02 -2.085147E-02 0.0 -2.392535E-04 1.467828E-02 7.788807E-03 0.0 -2.563521E-03 1.310916E-02 1.796275E-03 0.0 0 381 9 1.315068E-03 -6.539452E-03 -2.991874E-03 0.0 -7.961169E-04 -7.701541E-03 -5.503420E-03 0.0 -1.053471E-05 3.492721E-03 1.166023E-03 0.0 -7.977560E-04 3.793950E-03 1.045838E-03 0.0 0 381 10 4.224700E-04 -1.903207E-03 -1.057250E-03 0.0 -2.855670E-04 -2.300258E-03 -1.366105E-03 0.0 2.704110E-05 7.828526E-04 7.576682E-05 0.0 -2.328414E-04 1.023195E-03 4.325081E-04 0.0 0 381 0.0000 -1.538938E+00 0.0 1.815557E+00 0.0 1.200381E+00 0.0 6.389800E+00 0.0 8.439620E-01 0.0 2.006740E+00 0.0 9.676688E-01 0.0 -2.933629E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 115 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 381 7.1000 -1.473860E+00 1.081326E+01 1.974056E+00 0.0 1.136678E+00 7.991402E+00 6.348114E+00 0.0 7.535321E-01 -9.491993E+00 1.495428E+00 0.0 9.427844E-01 -7.319405E+00 -3.646710E-01 0.0 0 384 0 -3.560638E-02 0.0 -3.665543E-02 0.0 5.386353E-03 0.0 2.272491E-01 0.0 -9.878159E-03 0.0 -1.132507E-01 0.0 3.250122E-02 0.0 -7.730103E-02 0.0 0 384 1 -2.099724E-01 5.450048E+00 1.067352E+00 0.0 1.761627E-01 7.474184E+00 1.795319E+00 0.0 -1.852112E-01 -4.743378E+00 -7.876282E-01 0.0 2.133942E-01 -8.185503E+00 -1.234070E+00 0.0 0 384 2 -9.637756E-01 5.954376E+00 3.340302E+00 0.0 4.972534E-01 7.678469E+00 7.117065E+00 0.0 -5.819702E-01 -4.436195E+00 -3.230713E+00 0.0 7.861328E-01 -9.693708E+00 -5.417725E+00 0.0 0 384 3 -9.811859E-01 -4.772121E+00 4.626770E-01 0.0 -5.316162E-02 -6.509060E+00 4.677063E+00 0.0 -8.322144E-02 5.100090E+00 -2.237549E+00 0.0 4.051514E-01 4.235807E+00 -4.892578E+00 0.0 0 384 4 -9.072495E-02 -3.728384E+00 -1.082741E+00 0.0 -2.664337E-01 -4.822330E+00 -1.105545E+00 0.0 2.449112E-01 3.390313E+00 5.342712E-01 0.0 -2.152557E-01 4.040056E+00 -4.056091E-01 0.0 0 384 5 9.925795E-02 -1.192373E+00 -6.016922E-01 0.0 -1.420574E-01 -1.587308E+00 -1.292511E+00 0.0 1.473646E-01 1.021741E+00 6.256294E-01 0.0 -1.860809E-01 1.408062E+00 4.321289E-01 0.0 0 384 6 6.037998E-02 -2.809491E-01 -2.082046E-01 0.0 -5.188370E-02 -4.127755E-01 -5.358720E-01 0.0 5.311430E-02 2.331380E-01 2.520466E-01 0.0 -7.447100E-02 3.797107E-01 2.412891E-01 0.0 0 384 7 2.323043E-02 -5.546054E-02 -5.937582E-02 0.0 -1.621538E-02 -9.744675E-02 -1.624248E-01 0.0 1.534031E-02 4.574096E-02 7.246089E-02 0.0 -2.254593E-02 9.305554E-02 8.442008E-02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 116 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 384 8 7.510090E-03 -8.956078E-03 -1.519314E-02 0.0 -4.647426E-03 -2.161775E-02 -4.169584E-02 0.0 3.876437E-03 7.730813E-03 1.708186E-02 0.0 -5.844072E-03 2.177268E-02 2.463317E-02 0.0 0 384 9 2.195338E-03 -8.485481E-04 -3.569514E-03 0.0 -1.243816E-03 -4.457255E-03 -9.425960E-03 0.0 8.719563E-04 9.806826E-04 3.364623E-03 0.0 -1.335776E-03 4.887536E-03 6.481726E-03 0.0 0 384 10 5.916928E-04 1.560559E-04 -7.680178E-04 0.0 -3.092870E-04 -8.107204E-04 -1.844604E-03 0.0 1.689472E-04 1.156858E-05 5.070060E-04 0.0 -2.618338E-04 1.037929E-03 1.576879E-03 0.0 0 384 0.0000 -2.088099E+00 0.0 2.862131E+00 0.0 1.428501E-01 0.0 1.066738E+01 0.0 -3.946332E-01 0.0 -4.863779E+00 0.0 9.313843E-01 0.0 -1.123675E+01 0.0 0 384 7.1000 -2.026716E+00 -2.305491E+00 3.047744E+00 0.0 2.108368E-01 -3.148966E+00 1.071415E+01 0.0 -4.484061E-01 2.583987E+00 -4.888843E+00 0.0 9.697338E-01 1.239774E+00 -1.086839E+01 0.0 0 391 0 1.192856E-02 0.0 -1.099167E-01 0.0 -2.556610E-02 0.0 1.243591E-03 0.0 1.790333E-02 0.0 4.380798E-02 0.0 -5.195618E-03 0.0 6.482697E-02 0.0 0 391 1 -1.524811E-01 4.679985E+00 4.736252E-01 0.0 1.295166E-01 8.097191E+00 1.061508E+00 0.0 -1.366043E-01 -5.397065E+00 -2.614746E-01 0.0 1.576920E-01 -7.381347E+00 -4.010925E-01 0.0 0 391 2 -5.606689E-01 1.156207E+01 1.081696E+00 0.0 3.356323E-01 1.844928E+01 3.929932E+00 0.0 -2.944336E-01 -1.205450E+01 9.582520E-02 0.0 6.818542E-01 -1.761677E+01 -1.030396E+00 0.0 0 391 3 -3.296204E-01 8.859267E+00 -6.839142E-01 0.0 -9.252930E-02 1.253384E+01 2.185638E+00 0.0 2.760544E-01 -7.349174E+00 2.429779E+00 0.0 6.172485E-01 -1.255078E+01 2.954712E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 117 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 391 4 -3.028870E-03 1.644928E+00 -4.144135E-01 0.0 -1.136475E-01 1.898247E+00 -3.727798E-01 0.0 2.255230E-01 -7.111812E-01 1.285728E+00 0.0 9.397507E-02 -1.944044E+00 3.429642E-01 0.0 0 391 5 3.593493E-02 1.380229E-02 -5.136919E-02 0.0 -3.745937E-02 -1.781403E-01 -4.610424E-01 0.0 7.104945E-02 2.358511E-01 3.251734E-01 0.0 -3.046894E-02 1.430559E-01 9.313393E-02 0.0 0 391 6 1.945984E-02 -9.035063E-02 6.673336E-04 0.0 -1.168060E-02 -1.921820E-01 -1.936960E-01 0.0 1.775813E-02 1.254979E-01 5.364680E-02 0.0 -2.366400E-02 1.647424E-01 2.236700E-02 0.0 0 391 7 7.573351E-03 -4.009242E-02 -1.049995E-03 0.0 -4.150450E-03 -7.488380E-02 -6.089967E-02 0.0 4.398689E-03 3.759110E-02 4.412591E-03 0.0 -9.430349E-03 6.036605E-02 7.109761E-03 0.0 0 391 8 2.563357E-03 -1.310912E-02 -1.784187E-03 0.0 -1.524463E-03 -2.314708E-02 -1.662469E-02 0.0 1.150005E-03 9.223741E-03 -1.066543E-03 0.0 -3.008232E-03 1.721900E-02 2.632648E-03 0.0 0 391 9 7.980550E-04 -3.792619E-03 -1.043273E-03 0.0 -5.360525E-04 -6.413195E-03 -4.132891E-03 0.0 3.118101E-04 2.024173E-03 -7.298999E-04 0.0 -8.490868E-04 4.357381E-03 9.362623E-04 0.0 0 391 10 2.329372E-04 -1.022729E-03 -4.313440E-04 0.0 -1.766547E-04 -1.647585E-03 -9.483849E-04 0.0 8.440478E-05 4.086230E-04 -2.704831E-04 0.0 -2.192424E-04 1.016550E-03 3.013853E-04 0.0 0 391 0.0000 -9.673082E-01 0.0 2.920658E-01 0.0 1.778785E-01 0.0 6.068198E+00 0.0 1.831953E-01 0.0 3.974832E+00 0.0 1.477934E+00 0.0 -6.017448E-01 0.0 0 391 7.1000 -9.423816E-01 7.316160E+00 3.634017E-01 0.0 1.992491E-01 1.066503E+01 6.004351E+00 0.0 1.270412E-01 -6.371498E+00 3.578108E+00 0.0 1.419642E+00 -1.045768E+01 -6.562901E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 118 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 394 0 -2.613711E-02 0.0 -3.303528E-03 0.0 1.018524E-02 0.0 1.132889E-01 0.0 -2.324104E-03 0.0 -6.663513E-02 0.0 1.290512E-02 0.0 -4.335785E-02 0.0 0 394 1 -2.049599E-01 8.174026E+00 1.066856E+00 0.0 1.843796E-01 4.743342E+00 7.871399E-01 0.0 -1.722364E-01 -7.468842E+00 -5.917206E-01 0.0 1.876068E-01 -5.453722E+00 -4.211426E-01 0.0 0 394 2 -9.565697E-01 9.225691E+00 3.378052E+00 0.0 5.788574E-01 4.437444E+00 3.230469E+00 0.0 -4.902191E-01 -7.584680E+00 -2.370117E+00 0.0 7.106323E-01 -6.381438E+00 -2.435669E+00 0.0 0 394 3 -9.563751E-01 -5.905855E+00 5.716553E-01 0.0 8.090210E-02 -5.098388E+00 2.238770E+00 0.0 7.400513E-02 6.769036E+00 -1.539734E+00 0.0 3.946228E-01 3.087292E+00 -3.293335E+00 0.0 0 394 4 -7.200289E-02 -4.838494E+00 -1.113686E+00 0.0 -2.461624E-01 -3.391341E+00 -5.339508E-01 0.0 2.759342E-01 4.799638E+00 3.933105E-01 0.0 -1.355438E-01 2.784802E+00 -7.917786E-01 0.0 0 394 5 1.015713E-01 -1.536675E+00 -6.341457E-01 0.0 -1.473637E-01 -1.021819E+00 -6.250343E-01 0.0 1.357249E-01 1.446007E+00 4.322186E-01 0.0 -1.317186E-01 9.201665E-01 3.275681E-02 0.0 0 394 6 5.600324E-02 -3.571342E-01 -2.170668E-01 0.0 -5.311465E-02 -2.332563E-01 -2.521610E-01 0.0 4.358147E-02 3.225837E-01 1.707375E-01 0.0 -5.263710E-02 2.277944E-01 7.850266E-02 0.0 0 394 7 1.939660E-02 -7.024048E-02 -6.023188E-02 0.0 -1.534176E-02 -4.574151E-02 -7.244548E-02 0.0 1.139338E-02 6.087339E-02 4.822457E-02 0.0 -1.549819E-02 4.981937E-02 3.373760E-02 0.0 0 394 8 5.506615E-03 -1.188456E-02 -1.482404E-02 0.0 -3.876284E-03 -7.735463E-03 -1.708206E-02 0.0 2.602117E-03 9.849165E-03 1.118287E-02 0.0 -3.840871E-03 1.012824E-02 1.066791E-02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 119 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 394 9 1.370310E-03 -1.563382E-03 -3.321467E-03 0.0 -8.720225E-04 -9.808457E-04 -3.367809E-03 0.0 5.242518E-04 1.223137E-03 2.172116E-03 0.0 -8.297837E-04 1.922645E-03 2.907127E-03 0.0 0 394 10 3.001636E-04 -6.872943E-05 -6.737777E-04 0.0 -1.688842E-04 -1.292378E-05 -5.077773E-04 0.0 8.894871E-05 4.343538E-05 3.264714E-04 0.0 -1.529516E-04 3.287760E-04 7.159052E-04 0.0 0 394 0.0000 -2.031897E+00 0.0 2.969311E+00 0.0 3.874247E-01 0.0 4.865118E+00 0.0 -1.209253E-01 0.0 -3.510034E+00 0.0 9.655458E-01 0.0 -6.825995E+00 0.0 0 394 7.1000 -1.971075E+00 -2.372233E+00 3.158358E+00 0.0 4.416084E-01 -2.583688E+00 4.889986E+00 0.0 -1.851759E-01 3.071804E+00 -3.524168E+00 0.0 9.779059E-01 9.435198E-01 -6.473750E+00 0.0 0 401 0 4.887581E-03 0.0 -6.482697E-02 0.0 -2.250671E-02 0.0 3.286743E-02 0.0 2.706623E-02 0.0 3.201294E-02 0.0 -1.081085E-02 0.0 -4.577637E-05 0.0 0 401 1 -1.571255E-01 7.381510E+00 4.005203E-01 0.0 1.334839E-01 5.402797E+00 4.353180E-01 0.0 -1.278579E-01 -8.099858E+00 3.771973E-02 0.0 1.535645E-01 -4.683915E+00 1.525879E-04 0.0 0 401 2 -6.795044E-01 1.761687E+01 1.031311E+00 0.0 4.081116E-01 1.232788E+01 2.155212E+00 0.0 -2.235832E-01 -1.824280E+01 8.940430E-01 0.0 5.605774E-01 -1.157366E+01 -7.324219E-04 0.0 0 401 3 -6.159439E-01 1.255605E+01 -2.955017E-01 0.0 7.415771E-02 8.334469E+00 2.363190E+00 0.0 3.756433E-01 -1.156750E+01 2.144104E+00 0.0 3.220215E-01 -8.794458E+00 -5.493164E-04 0.0 0 401 4 -9.400940E-02 1.944150E+00 -3.426514E-01 0.0 -5.060196E-02 1.197528E+00 3.670425E-01 0.0 2.126307E-01 -1.309061E+00 7.786865E-01 0.0 -6.732941E-03 -1.525351E+00 4.272461E-04 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 120 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 401 5 3.049850E-02 -1.430401E-01 -9.319830E-02 0.0 -2.618217E-02 -1.521919E-01 -1.272097E-01 0.0 4.641952E-02 3.221667E-01 1.041718E-01 0.0 -3.991890E-02 4.439508E-02 2.670288E-05 0.0 0 401 6 2.367815E-02 -1.647298E-01 -2.235198E-02 0.0 -1.076269E-02 -1.357005E-01 -8.883619E-02 0.0 7.793751E-03 1.969727E-01 -1.156569E-02 0.0 -2.011538E-02 1.039927E-01 7.486343E-05 0.0 0 401 7 9.432457E-03 -6.036737E-02 -7.116288E-03 0.0 -4.180849E-03 -5.001628E-02 -3.197792E-02 0.0 1.766920E-03 6.303728E-02 -1.121414E-02 0.0 -7.259905E-03 4.058965E-02 1.597404E-05 0.0 0 401 8 3.009044E-03 -1.722022E-02 -2.638284E-03 0.0 -1.482971E-03 -1.469132E-02 -9.118713E-03 0.0 6.221160E-04 1.637534E-02 -4.201263E-03 0.0 -2.238162E-03 1.188478E-02 1.609325E-06 0.0 0 401 9 8.490600E-04 -4.355942E-03 -9.376295E-04 0.0 -4.768642E-04 -3.852114E-03 -2.266880E-03 0.0 2.349490E-04 3.792721E-03 -1.221467E-03 0.0 -6.211186E-04 3.041772E-03 6.742775E-07 0.0 0 401 10 2.192465E-04 -1.016169E-03 -3.017983E-04 0.0 -1.402490E-04 -9.323191E-04 -5.049403E-04 0.0 8.012313E-05 8.043057E-04 -3.072862E-04 0.0 -1.579272E-04 7.112458E-04 8.847564E-08 0.0 0 401 0.0000 -1.474009E+00 0.0 6.023070E-01 0.0 4.994187E-01 0.0 5.093716E+00 0.0 3.208165E-01 0.0 3.962228E+00 0.0 9.483081E-01 0.0 -6.277682E-04 0.0 0 401 7.1000 -1.415888E+00 1.045971E+01 6.568071E-01 0.0 4.971663E-01 7.053983E+00 4.883047E+00 0.0 2.656016E-01 -9.914423E+00 3.684886E+00 0.0 9.255759E-01 -7.197658E+00 -6.519840E-04 0.0 0 402 0 -1.010776E-02 0.0 -7.950592E-02 0.0 -1.611328E-02 0.0 6.922913E-02 0.0 2.122498E-02 0.0 4.222107E-02 0.0 4.028320E-03 0.0 -3.196716E-02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 121 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 402 1 -1.860876E-01 8.115677E+00 3.957520E-01 0.0 1.461792E-01 4.709984E+00 4.275513E-01 0.0 -1.350613E-01 -7.414086E+00 7.698059E-02 0.0 1.732864E-01 -5.413323E+00 -3.836060E-02 0.0 0 402 2 -9.931221E-01 1.612075E+01 3.217163E-01 0.0 3.684998E-01 8.525417E+00 2.617981E+00 0.0 -1.712990E-01 -1.378973E+01 1.265869E+00 0.0 8.065796E-01 -1.082907E+01 -8.970947E-01 0.0 0 402 3 -1.214941E+00 7.518943E+00 -2.239731E+00 0.0 -1.635742E-01 3.021918E+00 3.642548E+00 0.0 6.039009E-01 -5.102848E+00 2.849915E+00 0.0 8.110046E-01 -5.275483E+00 -2.146667E+00 0.0 0 402 4 -2.566934E-01 -7.701087E-02 -1.158630E+00 0.0 -2.038078E-01 -4.385870E-01 7.799759E-01 0.0 3.573337E-01 6.829800E-01 1.005020E+00 0.0 1.167793E-01 -6.311721E-02 -7.793274E-01 0.0 0 402 5 3.264737E-02 -5.780364E-01 -2.541051E-01 0.0 -7.717800E-02 -4.182655E-01 -1.040640E-01 0.0 9.515572E-02 6.484128E-01 1.253414E-01 0.0 -4.882717E-02 3.700963E-01 -1.043682E-01 0.0 0 402 6 3.663325E-02 -2.255589E-01 -3.418756E-02 0.0 -2.212715E-02 -1.514609E-01 -1.086290E-01 0.0 1.893847E-02 2.205733E-01 -1.882219E-02 0.0 -3.338981E-02 1.539853E-01 1.148319E-02 0.0 0 402 7 1.466646E-02 -6.280518E-02 -2.419323E-03 0.0 -5.789995E-03 -4.279527E-02 -4.119530E-02 0.0 3.446721E-03 5.716015E-02 -1.563525E-02 0.0 -1.227090E-02 4.469583E-02 1.118606E-02 0.0 0 402 8 4.460365E-03 -1.513431E-02 1.552515E-04 0.0 -1.450241E-03 -1.077819E-02 -1.177458E-02 0.0 6.512008E-04 1.295481E-02 -5.716965E-03 0.0 -3.601644E-03 1.115117E-02 4.199743E-03 0.0 0 402 9 1.169538E-03 -3.341871E-03 5.113659E-05 0.0 -3.478415E-04 -2.512328E-03 -2.867604E-03 0.0 1.377038E-04 2.671434E-03 -1.639912E-03 0.0 -9.275349E-04 2.535849E-03 1.220545E-03 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 122 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 402 10 2.741923E-04 -6.863452E-04 -1.315586E-05 0.0 -7.884356E-05 -5.459425E-04 -6.135760E-04 0.0 3.245364E-05 5.039013E-04 -4.089514E-04 0.0 -2.158828E-04 5.320270E-04 3.072070E-04 0.0 0 402 0.0000 -2.571101E+00 0.0 -3.050918E+00 0.0 2.421155E-02 0.0 7.268140E+00 0.0 7.944615E-01 0.0 5.323124E+00 0.0 1.812445E+00 0.0 -3.969389E+00 0.0 0 402 7.1000 -2.449219E+00 7.099730E+00 -2.714325E+00 0.0 7.066818E-02 3.172784E+00 6.912091E+00 0.0 6.921769E-01 -5.244741E+00 4.959197E+00 0.0 1.741535E+00 -4.906547E+00 -3.691627E+00 0.0 0 403 0 -1.331329E-02 0.0 -7.012939E-02 0.0 -1.396179E-02 0.0 7.872772E-02 0.0 8.280754E-03 0.0 3.360748E-02 0.0 1.612091E-02 0.0 -4.219818E-02 0.0 0 403 1 -1.893616E-01 4.713359E+00 1.998672E-01 0.0 1.465454E-01 8.158311E+00 6.486816E-01 0.0 -1.502838E-01 -5.438668E+00 7.975769E-02 0.0 1.951599E-01 -7.434985E+00 -7.727051E-02 0.0 0 403 2 -8.739624E-01 7.551087E+00 -4.747620E-01 0.0 2.265015E-01 1.160402E+01 3.255615E+00 0.0 -3.028870E-01 -7.664419E+00 1.023560E+00 0.0 9.488525E-01 -1.152543E+01 -1.266602E+00 0.0 0 403 3 -8.561096E-01 8.118973E-01 -2.870544E+00 0.0 -5.688477E-01 -9.619350E-01 3.546936E+00 0.0 3.998489E-01 9.288158E-01 2.158081E+00 0.0 9.914551E-01 -8.672736E-01 -2.849060E+00 0.0 0 403 4 -8.194733E-02 -1.312516E+00 -1.239811E+00 0.0 -3.940430E-01 -2.966685E+00 3.948669E-01 0.0 3.505230E-01 2.119945E+00 7.289200E-01 0.0 1.055756E-01 2.118294E+00 -1.004440E+00 0.0 0 403 5 7.712460E-02 -5.785263E-01 -2.214346E-01 0.0 -1.233044E-01 -1.139839E+00 -2.936802E-01 0.0 1.258650E-01 7.805457E-01 7.919502E-02 0.0 -8.498383E-02 9.223209E-01 -1.254311E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 123 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 403 6 4.395509E-02 -1.562047E-01 -1.084936E-02 0.0 -2.899289E-02 -3.022566E-01 -1.675336E-01 0.0 3.308606E-02 1.953506E-01 -1.900387E-02 0.0 -4.859924E-02 2.565675E-01 1.883936E-02 0.0 0 403 7 1.517177E-02 -3.409987E-02 6.887108E-03 0.0 -5.981296E-03 -6.835477E-02 -5.563366E-02 0.0 7.378526E-03 4.057639E-02 -1.293099E-02 0.0 -1.632190E-02 5.937805E-02 1.563603E-02 0.0 0 403 8 4.264496E-03 -6.462365E-03 3.174093E-03 0.0 -1.138069E-03 -1.405566E-02 -1.472470E-02 0.0 1.442588E-03 7.347668E-03 -4.533857E-03 0.0 -4.381929E-03 1.234951E-02 5.716667E-03 0.0 0 403 9 1.055767E-03 -1.055398E-03 9.209635E-04 0.0 -1.989324E-04 -2.653809E-03 -3.350087E-03 0.0 2.372866E-04 1.129933E-03 -1.270474E-03 0.0 -1.014959E-03 2.344328E-03 1.639649E-03 0.0 0 403 10 2.353791E-04 -1.356140E-04 2.159688E-04 0.0 -3.056659E-05 -4.457726E-04 -6.594121E-04 0.0 2.655666E-05 1.252635E-04 -3.111711E-04 0.0 -2.050513E-04 3.974797E-04 4.090830E-04 0.0 0 403 0.0000 -1.872887E+00 0.0 -4.676466E+00 0.0 -7.634518E-01 0.0 7.389246E+00 0.0 4.735179E-01 0.0 4.065071E+00 0.0 2.101657E+00 0.0 -5.322761E+00 0.0 0 403 7.1000 -1.810364E+00 1.631400E+00 -4.278701E+00 0.0 -6.518839E-01 1.161284E+00 7.122425E+00 0.0 3.788882E-01 -5.829542E-01 3.795876E+00 0.0 2.027814E+00 -2.286415E+00 -4.958926E+00 0.0 0 404 0 -1.952553E-02 0.0 -3.304291E-02 0.0 2.021790E-03 0.0 6.667328E-02 0.0 -6.433487E-03 0.0 3.051758E-05 0.0 2.231598E-02 0.0 -3.366089E-02 0.0 0 404 1 -1.960526E-01 5.450822E+00 3.276672E-01 0.0 1.733551E-01 7.468854E+00 5.924377E-01 0.0 -1.824875E-01 -4.741963E+00 3.051758E-05 0.0 2.038879E-01 -8.178005E+00 -7.971191E-02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 124 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 404 2 -8.378296E-01 6.138462E+00 4.465027E-01 0.0 4.931030E-01 7.585469E+00 2.370483E+00 0.0 -5.798035E-01 -4.404734E+00 2.441406E-04 0.0 8.692627E-01 -9.414934E+00 -1.024658E+00 0.0 0 404 3 -6.796265E-01 -4.024153E+00 -1.432861E+00 0.0 -7.159424E-02 -6.769221E+00 1.536865E+00 0.0 -7.316589E-02 5.183102E+00 6.103516E-04 0.0 6.693726E-01 5.209071E+00 -2.158936E+00 0.0 0 404 4 3.714752E-02 -3.253836E+00 -9.276276E-01 0.0 -2.756042E-01 -4.799757E+00 -3.938751E-01 0.0 2.520752E-01 3.372308E+00 -9.155273E-05 0.0 -8.691406E-02 4.450160E+00 -7.290344E-01 0.0 0 404 5 1.192431E-01 -1.007443E+00 -2.669468E-01 0.0 -1.356258E-01 -1.445836E+00 -4.323807E-01 0.0 1.448164E-01 9.679222E-01 4.196167E-05 0.0 -1.462288E-01 1.413436E+00 -7.901764E-02 0.0 0 404 6 5.416089E-02 -2.224008E-01 -5.486631E-02 0.0 -4.356122E-02 -3.225223E-01 -1.707325E-01 0.0 4.867589E-02 2.013519E-01 -2.145767E-05 0.0 -6.155276E-02 3.275260E-01 1.903629E-02 0.0 0 404 7 1.691312E-02 -3.978648E-02 -9.077653E-03 0.0 -1.139075E-02 -6.087190E-02 -4.822743E-02 0.0 1.265647E-02 3.366534E-02 1.430511E-06 0.0 -1.789427E-02 6.448261E-02 1.293552E-02 0.0 0 404 8 4.388728E-03 -5.556592E-03 -1.140565E-03 0.0 -2.602249E-03 -9.847093E-03 -1.118112E-02 0.0 2.749747E-03 4.170666E-03 -6.556511E-07 0.0 -4.215322E-03 1.117344E-02 4.536420E-03 0.0 0 404 9 9.988368E-04 -3.743276E-04 -4.700560E-05 0.0 -5.241025E-04 -1.223888E-03 -2.171170E-03 0.0 4.936695E-04 1.254463E-04 -8.102506E-07 0.0 -8.259607E-04 1.634573E-03 1.271525E-03 0.0 0 404 10 1.995110E-04 1.162061E-04 3.419025E-05 0.0 -8.900976E-05 -4.317871E-05 -3.264016E-04 0.0 6.296982E-05 -1.460233E-04 -1.246808E-07 0.0 -1.247681E-04 1.615467E-04 3.111295E-04 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 125 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 404 0.0000 -1.499982E+00 0.0 -1.951406E+00 0.0 1.274883E-01 0.0 3.507565E+00 0.0 -3.803600E-01 0.0 8.443185E-04 0.0 1.447083E+00 0.0 -4.066927E+00 0.0 0 404 7.1000 -1.476038E+00 -1.600625E+00 -1.690217E+00 0.0 1.914131E-01 -3.071589E+00 3.521974E+00 0.0 -4.323830E-01 2.547598E+00 8.041431E-04 0.0 1.435896E+00 1.791069E+00 -3.797673E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 126 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 181 0 -1.633583E+00 0.0 7.870789E-01 0.0 7.913208E-01 0.0 2.229294E+00 0.0 4.000854E-01 0.0 -3.016449E+00 0.0 0 181 1 -1.749737E+00 6.191360E+00 7.640213E+00 0.0 9.024582E-01 5.805826E-01 2.465210E+00 0.0 4.197540E-01 -7.199009E+00 -9.942719E+00 0.0 0 181 2 -1.671769E+00 1.305140E+01 1.734789E+01 0.0 1.224230E+00 2.299739E+00 2.729860E+00 0.0 4.474678E-01 -1.523586E+01 -1.940937E+01 0.0 0 181 3 -1.076279E+00 1.683681E+01 -2.822002E+00 0.0 1.627241E+00 5.602385E+00 2.469460E+00 0.0 3.486938E-01 -1.911594E+01 1.564697E+00 0.0 0 181 4 -1.129879E+00 1.580528E+01 -1.001936E+01 0.0 1.623512E+00 6.081904E+00 2.554153E+00 0.0 2.350006E-01 -1.775928E+01 8.949066E+00 0.0 0 181 5 -1.270683E+00 1.339741E+01 -8.407532E+00 0.0 1.592220E+00 5.608698E+00 2.653938E+00 0.0 1.417847E-01 -1.493826E+01 7.301971E+00 0.0 0 181 6 -1.301201E+00 1.081760E+01 -5.943916E+00 0.0 1.491074E+00 4.852313E+00 2.576523E+00 0.0 7.553101E-02 -1.191655E+01 4.843430E+00 0.0 0 181 7 -1.236294E+00 8.615693E+00 -3.935581E+00 0.0 1.331619E+00 4.078435E+00 2.368557E+00 0.0 3.280640E-02 -9.356230E+00 2.917557E+00 0.0 0 181 8 -1.120127E+00 6.846076E+00 -2.509491E+00 0.0 1.150919E+00 3.383773E+00 2.101765E+00 0.0 6.763458E-03 -7.322008E+00 1.616707E+00 0.0 0 181 9 -9.845791E-01 5.442111E+00 -1.546936E+00 0.0 9.727955E-01 2.786015E+00 1.822504E+00 0.0 -7.915497E-03 -5.727661E+00 7.909813E-01 0.0 0 181 10 -8.477964E-01 4.328039E+00 -9.129276E-01 0.0 8.100471E-01 2.283159E+00 1.554704E+00 0.0 -1.643944E-02 -4.481537E+00 2.886009E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 127 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 181 0.0000 -1.402193E+01 0.0 -1.032256E+01 0.0 1.351744E+01 0.0 2.552597E+01 0.0 2.083532E+00 0.0 -4.095531E+00 0.0 0 181 3.5810 -1.323398E+01 2.951086E+01 -8.202825E+00 0.0 1.267707E+01 1.254548E+01 2.401450E+01 0.0 2.054098E+00 -3.241467E+01 -5.569684E+00 0.0 0 181 7.1620 -1.105457E+01 5.434902E+01 -2.243128E+00 0.0 1.034433E+01 2.285653E+01 1.982689E+01 0.0 1.967149E+00 -5.980951E+01 -9.736885E+00 0.0 0 182 0 5.613632E-01 0.0 -1.859568E+00 0.0 -2.539383E+00 0.0 2.737045E+00 0.0 1.418023E+00 0.0 -8.775787E-01 0.0 0 182 1 5.694237E-01 1.000435E+00 -7.517719E-01 0.0 -2.840435E+00 5.411161E+00 1.038464E+01 0.0 1.739287E+00 -6.943224E+00 -9.460129E+00 0.0 0 182 2 6.697311E-01 1.715525E+00 9.637794E-01 0.0 -3.514870E+00 1.176877E+01 2.475867E+01 0.0 2.748720E+00 -1.365378E+01 -2.502896E+01 0.0 0 182 3 7.799339E-01 9.914287E-01 -1.805241E+00 0.0 -2.857952E+00 1.653976E+01 8.824272E+00 0.0 2.849053E+00 -1.481355E+01 -5.814484E+00 0.0 0 182 4 6.706891E-01 6.712906E-01 -3.045661E+00 0.0 -2.405832E+00 1.552416E+01 -7.730880E-01 0.0 2.400308E+00 -1.267290E+01 5.233459E+00 0.0 0 182 5 5.562296E-01 4.901887E-01 -2.735152E+00 0.0 -2.085280E+00 1.306476E+01 -1.812880E+00 0.0 1.988832E+00 -1.000229E+01 5.976145E+00 0.0 0 182 6 4.490747E-01 3.333409E-01 -2.165611E+00 0.0 -1.741566E+00 1.057338E+01 -1.457556E+00 0.0 1.582602E+00 -7.574749E+00 4.954054E+00 0.0 0 182 7 3.561802E-01 2.247245E-01 -1.650885E+00 0.0 -1.438794E+00 8.480745E+00 -9.150105E-01 0.0 1.245781E+00 -5.707848E+00 3.764856E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 128 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 182 8 2.794600E-01 1.473628E-01 -1.246088E+00 0.0 -1.188900E+00 6.808983E+00 -4.626646E-01 0.0 9.820338E-01 -4.321374E+00 2.771273E+00 0.0 0 182 9 2.172117E-01 9.771863E-02 -9.409487E-01 0.0 -9.837141E-01 5.475546E+00 -1.427603E-01 0.0 7.773284E-01 -3.290202E+00 2.014882E+00 0.0 0 182 10 1.673160E-01 6.264246E-02 -7.128783E-01 0.0 -8.150625E-01 4.412131E+00 6.429100E-02 0.0 6.176009E-01 -2.516148E+00 1.457838E+00 0.0 0 182 0.0000 5.276613E+00 0.0 -1.595003E+01 0.0 -2.241179E+01 0.0 4.120496E+01 0.0 1.834957E+01 0.0 -1.500865E+01 0.0 0 182 3.5810 5.044754E+00 1.154681E+00 -1.495901E+01 0.0 -2.144521E+01 2.897765E+01 4.120264E+01 0.0 1.751979E+01 -2.159908E+01 -1.676927E+01 0.0 0 182 7.1620 4.394951E+00 2.192260E+00 -1.218888E+01 0.0 -1.874505E+01 5.330492E+01 4.114781E+01 0.0 1.519441E+01 -4.013459E+01 -2.162214E+01 0.0 0 183 0 -2.480202E+00 0.0 -8.771515E-02 0.0 -2.887802E-01 0.0 3.521255E+00 0.0 2.336075E+00 0.0 -3.433624E+00 0.0 0 183 1 -2.148256E+00 5.086140E+00 7.447834E+00 0.0 -7.415581E-02 -8.881383E-01 1.575127E+00 0.0 1.801590E+00 -4.618822E+00 -8.891129E+00 0.0 0 183 2 -1.208057E+00 9.870409E+00 2.268459E+01 0.0 2.565212E+00 -2.914387E-02 -2.651985E+00 0.0 -1.617744E+00 -1.025334E+01 -1.952682E+01 0.0 0 183 3 -1.771275E+00 1.110783E+01 9.662392E+00 0.0 6.838055E+00 4.615067E+00 1.050446E+00 0.0 -5.070717E+00 -1.486129E+01 -9.892426E+00 0.0 0 183 4 -2.599017E+00 9.580977E+00 -3.465147E-01 0.0 5.682012E+00 5.819353E+00 4.272278E+00 0.0 -3.213418E+00 -1.410143E+01 -3.001596E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 129 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 183 5 -2.831826E+00 7.550448E+00 -1.908163E+00 0.0 4.141069E+00 5.729571E+00 4.855049E+00 0.0 -1.573954E+00 -1.190136E+01 -2.051832E+00 0.0 0 183 6 -2.756564E+00 5.748029E+00 -1.776697E+00 0.0 2.942255E+00 5.173614E+00 4.637204E+00 0.0 -5.354748E-01 -9.603899E+00 -2.056091E+00 0.0 0 183 7 -2.521459E+00 4.375329E+00 -1.322225E+00 0.0 2.084424E+00 4.467903E+00 4.132007E+00 0.0 4.508781E-02 -7.654287E+00 -2.106434E+00 0.0 0 183 8 -2.225010E+00 3.357047E+00 -8.933926E-01 0.0 1.486506E+00 3.771996E+00 3.557621E+00 0.0 3.347998E-01 -6.088874E+00 -2.056074E+00 0.0 0 183 9 -1.920135E+00 2.596511E+00 -5.642796E-01 0.0 1.068466E+00 3.141708E+00 3.004499E+00 0.0 4.564714E-01 -4.844444E+00 -1.917797E+00 0.0 0 183 10 -1.632025E+00 2.020779E+00 -3.311458E-01 0.0 7.738898E-01 2.595140E+00 2.506229E+00 0.0 4.847188E-01 -3.857102E+00 -1.728641E+00 0.0 0 183 0.0000 -2.409383E+01 0.0 3.256468E+01 0.0 2.721895E+01 0.0 3.045973E+01 0.0 -6.552566E+00 0.0 -5.666247E+01 0.0 0 183 3.5810 -2.252541E+01 1.644613E+01 3.281390E+01 0.0 2.580834E+01 1.279260E+01 2.800733E+01 0.0 -6.448441E+00 -2.600488E+01 -5.491144E+01 0.0 0 183 7.1620 -1.818560E+01 3.051742E+01 3.344282E+01 0.0 2.182743E+01 2.314208E+01 2.122800E+01 0.0 -6.090984E+00 -4.785635E+01 -5.001572E+01 0.0 0 184 0 -2.433567E+00 0.0 -3.498528E+00 0.0 -1.920593E+00 0.0 3.779457E+00 0.0 3.645117E+00 0.0 -2.809143E-01 0.0 0 184 1 -2.551465E+00 3.756103E+00 3.125480E+00 0.0 -2.128098E+00 3.140471E+00 1.103293E+01 0.0 3.986285E+00 -7.589798E+00 -1.397458E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 130 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 184 2 -3.696686E+00 5.964810E+00 1.876686E+01 0.0 -2.670486E+00 6.539364E+00 2.989723E+01 0.0 5.721255E+00 -1.377125E+01 -4.799677E+01 0.0 0 184 3 -5.401794E+00 2.652956E+00 1.167731E+01 0.0 -2.366806E+00 9.077806E+00 2.549823E+01 0.0 7.172221E+00 -1.283422E+01 -3.624106E+01 0.0 0 184 4 -4.925537E+00 7.193339E-01 1.503769E+00 0.0 -2.110180E+00 7.948347E+00 1.402930E+01 0.0 6.502712E+00 -9.350496E+00 -1.462083E+01 0.0 0 184 5 -4.068256E+00 -3.765817E-01 -1.408577E+00 0.0 -1.866018E+00 6.209252E+00 9.103561E+00 0.0 5.442653E+00 -6.185005E+00 -6.936455E+00 0.0 0 184 6 -3.255312E+00 -9.691701E-01 -2.205463E+00 0.0 -1.572945E+00 4.767387E+00 6.259097E+00 0.0 4.357479E+00 -3.946085E+00 -3.469318E+00 0.0 0 184 7 -2.592219E+00 -1.197881E+00 -2.255960E+00 0.0 -1.306854E+00 3.697051E+00 4.488081E+00 0.0 3.445582E+00 -2.541290E+00 -1.789845E+00 0.0 0 184 8 -2.074172E+00 -1.227472E+00 -2.046584E+00 0.0 -1.082892E+00 2.908556E+00 3.332136E+00 0.0 2.724367E+00 -1.670079E+00 -9.507895E-01 0.0 0 184 9 -1.669739E+00 -1.156598E+00 -1.765651E+00 0.0 -8.978913E-01 2.312996E+00 2.539555E+00 0.0 2.160473E+00 -1.121094E+00 -5.188732E-01 0.0 0 184 10 -1.351614E+00 -1.043958E+00 -1.485363E+00 0.0 -7.443326E-01 1.857794E+00 1.972195E+00 0.0 1.717985E+00 -7.677409E-01 -2.910519E-01 0.0 0 184 0.0000 -3.402036E+01 0.0 2.040729E+01 0.0 -1.866710E+01 0.0 1.119318E+02 0.0 4.687613E+01 0.0 -1.270705E+02 0.0 0 184 3.5810 -3.230464E+01 -1.143638E+00 2.124069E+01 0.0 -1.780063E+01 1.360651E+01 1.083233E+02 0.0 4.461374E+01 -1.316802E+01 -1.245820E+02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 131 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 184 7.1620 -2.750533E+01 -1.606948E+00 2.343401E+01 0.0 -1.538253E+01 2.516279E+01 9.808860E+01 0.0 3.828007E+01 -2.494170E+01 -1.173448E+02 0.0 0 185 0 -2.498898E+00 0.0 -9.396553E-02 0.0 1.700678E+00 0.0 3.613953E+00 0.0 3.791237E-01 0.0 -3.519943E+00 0.0 0 185 1 -2.378904E+00 3.725591E+00 9.311790E+00 0.0 1.370995E+00 -2.810659E+00 -4.039693E+00 0.0 5.767839E-01 -1.346804E+00 -5.176393E+00 0.0 0 185 2 -1.933487E+00 5.754062E+00 3.644719E+01 0.0 -9.000206E-01 -2.916166E+00 -2.639382E+01 0.0 2.197403E+00 -3.994113E+00 -9.748718E+00 0.0 0 185 3 -2.281036E+00 3.331063E+00 3.594873E+01 0.0 -3.065659E+00 2.859433E+00 -2.568517E+01 0.0 4.289135E+00 -8.453671E+00 -9.960876E+00 0.0 0 185 4 -2.832104E+00 1.074287E+00 1.944956E+01 0.0 -1.648882E+00 5.394517E+00 -1.171440E+01 0.0 3.460188E+00 -8.676488E+00 -7.556099E+00 0.0 0 185 5 -2.993610E+00 -4.461907E-01 1.134918E+01 0.0 -3.816433E-01 6.203039E+00 -5.040533E+00 0.0 2.444983E+00 -7.643485E+00 -6.286118E+00 0.0 0 185 6 -2.886453E+00 -1.181341E+00 6.727624E+00 0.0 3.901877E-01 6.017169E+00 -1.531395E+00 0.0 1.654982E+00 -6.408533E+00 -5.293588E+00 0.0 0 185 7 -2.629539E+00 -1.410876E+00 4.030107E+00 0.0 7.673554E-01 5.378464E+00 2.407274E-01 0.0 1.106270E+00 -5.273218E+00 -4.439863E+00 0.0 0 185 8 -2.315226E+00 -1.392351E+00 2.440758E+00 0.0 9.011676E-01 4.614623E+00 1.060147E+00 0.0 7.392229E-01 -4.306703E+00 -3.704986E+00 0.0 0 185 9 -1.994838E+00 -1.265522E+00 1.488209E+00 0.0 9.012536E-01 3.868491E+00 1.373533E+00 0.0 4.951862E-01 -3.503679E+00 -3.076771E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 132 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 185 10 -1.693233E+00 -1.100032E+00 9.085385E-01 0.0 8.347698E-01 3.196998E+00 1.423359E+00 0.0 3.319405E-01 -2.843939E+00 -2.542551E+00 0.0 0 185 0.0000 -2.643733E+01 0.0 1.280077E+02 0.0 8.702030E-01 0.0 -6.669329E+01 0.0 1.767522E+01 0.0 -6.130590E+01 0.0 0 185 3.5810 -2.478546E+01 -1.316901E+00 1.243738E+02 0.0 4.916482E-01 1.386426E+01 -6.594772E+01 0.0 1.690704E+01 -1.683309E+01 -5.831150E+01 0.0 0 185 7.1620 -2.021068E+01 -1.883416E+00 1.139349E+02 0.0 -5.041293E-01 2.482829E+01 -6.358812E+01 0.0 1.472857E+01 -3.078422E+01 -4.994847E+01 0.0 0 186 0 -2.721878E+00 0.0 -2.766679E+00 0.0 6.689487E-01 0.0 2.020167E+00 0.0 1.547199E+00 0.0 7.464142E-01 0.0 0 186 1 -2.901340E+00 3.492238E+00 6.664680E+00 0.0 7.602577E-01 3.128112E-01 4.061020E+00 0.0 1.630523E+00 -4.315307E+00 -1.062437E+01 0.0 0 186 2 -4.106537E+00 4.302600E+00 3.508481E+01 0.0 1.390106E+00 6.957426E-01 1.032749E+01 0.0 1.873355E+00 -6.667464E+00 -4.511264E+01 0.0 0 186 3 -5.513885E+00 -1.493284E+00 3.746103E+01 0.0 2.279694E+00 1.255059E+00 1.089093E+01 0.0 1.730532E+00 -3.930111E+00 -4.816660E+01 0.0 0 186 4 -4.940552E+00 -4.421746E+00 2.020068E+01 0.0 1.975212E+00 9.771528E-01 7.202507E+00 0.0 1.694319E+00 -8.944545E-01 -2.745660E+01 0.0 0 186 5 -4.056618E+00 -5.608438E+00 1.141183E+01 0.0 1.559517E+00 6.172302E-01 4.952770E+00 0.0 1.501224E+00 1.103616E+00 -1.665842E+01 0.0 0 186 6 -3.222992E+00 -5.727942E+00 6.485588E+00 0.0 1.205452E+00 3.875964E-01 3.406164E+00 0.0 1.221398E+00 1.958653E+00 -1.034492E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 133 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 186 7 -2.541645E+00 -5.294306E+00 3.661472E+00 0.0 9.256897E-01 2.471777E-01 2.365206E+00 0.0 9.668993E-01 2.136684E+00 -6.558998E+00 0.0 0 186 8 -2.008921E+00 -4.664608E+00 2.030857E+00 0.0 7.104645E-01 1.681497E-01 1.667833E+00 0.0 7.605891E-01 2.007812E+00 -4.254467E+00 0.0 0 186 9 -1.594836E+00 -3.996056E+00 1.080677E+00 0.0 5.464239E-01 1.164041E-01 1.193401E+00 0.0 5.981244E-01 1.761394E+00 -2.817806E+00 0.0 0 186 10 -1.270799E+00 -3.367632E+00 5.252094E-01 0.0 4.205599E-01 8.612561E-02 8.645957E-01 0.0 4.706869E-01 1.486677E+00 -1.900312E+00 0.0 0 186 0.0000 -3.488000E+01 0.0 1.218401E+02 0.0 1.244233E+01 0.0 4.895208E+01 0.0 1.399485E+01 0.0 -1.731487E+02 0.0 0 186 3.5810 -3.320034E+01 -1.302095E+01 1.184062E+02 0.0 1.183148E+01 1.211518E+00 4.719794E+01 0.0 1.337115E+01 2.679097E+00 -1.676205E+02 0.0 0 186 7.1620 -2.849684E+01 -2.314299E+01 1.085014E+02 0.0 1.011701E+01 2.282615E+00 4.222395E+01 0.0 1.162544E+01 4.254536E+00 -1.518157E+02 0.0 0 187 0 -1.510164E+00 0.0 -1.017395E+00 0.0 -3.267498E-01 0.0 3.077320E+00 0.0 1.426392E+00 0.0 -2.060020E+00 0.0 0 187 1 -1.402180E+00 2.645952E+00 9.074206E+00 0.0 -3.367805E-01 -2.570693E+00 -7.140606E+00 0.0 1.309623E+00 -5.053101E-01 -1.865723E+00 0.0 0 187 2 -1.082565E+00 2.652189E+00 4.179271E+01 0.0 -3.646088E-01 -2.264081E+00 -4.048888E+01 0.0 6.032610E-01 -2.006348E+00 -1.149536E+00 0.0 0 187 3 -1.430954E+00 -2.315434E+00 4.836277E+01 0.0 -3.403625E-01 3.029320E+00 -4.707423E+01 0.0 1.342649E-01 -5.144287E+00 -1.349655E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 134 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 187 4 -1.752274E+00 -5.121188E+00 2.893094E+01 0.0 -2.722931E-01 6.091703E+00 -2.724527E+01 0.0 5.991416E-01 -5.674377E+00 -2.030930E+00 0.0 0 187 5 -1.812775E+00 -6.297133E+00 1.763014E+01 0.0 -2.053261E-01 7.294951E+00 -1.588238E+01 0.0 8.668008E-01 -5.260742E+00 -2.341103E+00 0.0 0 187 6 -1.728596E+00 -6.269707E+00 1.067965E+01 0.0 -1.517525E-01 7.108819E+00 -9.043865E+00 0.0 9.445410E-01 -4.567680E+00 -2.369595E+00 0.0 0 187 7 -1.562557E+00 -5.674703E+00 6.442485E+00 0.0 -1.145897E-01 6.311370E+00 -5.005039E+00 0.0 9.096233E-01 -3.847475E+00 -2.221542E+00 0.0 0 187 8 -1.366341E+00 -4.904841E+00 3.873625E+00 0.0 -8.830070E-02 5.359205E+00 -2.658964E+00 0.0 8.204222E-01 -3.196820E+00 -1.991276E+00 0.0 0 187 9 -1.169547E+00 -4.132637E+00 2.306190E+00 0.0 -7.011604E-02 4.438752E+00 -1.305095E+00 0.0 7.130389E-01 -2.634692E+00 -1.735918E+00 0.0 0 187 10 -9.863367E-01 -3.426183E+00 1.343542E+00 0.0 -5.651379E-02 3.620313E+00 -5.325079E-01 0.0 6.046065E-01 -2.160305E+00 -1.485010E+00 0.0 0 187 0.0000 -1.580429E+01 0.0 1.694189E+02 0.0 -2.327394E+00 0.0 -1.532995E+02 0.0 8.931715E+00 0.0 -2.060031E+01 0.0 0 187 3.5810 -1.482454E+01 -1.439948E+01 1.640417E+02 0.0 -2.245881E+00 1.620427E+01 -1.488012E+02 0.0 8.385586E+00 -1.176669E+01 -1.922165E+01 0.0 0 187 7.1620 -1.210958E+01 -2.573845E+01 1.486227E+02 0.0 -2.016605E+00 2.905784E+01 -1.358233E+02 0.0 6.879507E+00 -2.142607E+01 -1.541211E+01 0.0 0 191 0 -4.001465E-01 0.0 3.016312E+00 0.0 -8.242035E-01 0.0 1.394806E+00 0.0 7.827364E-01 0.0 -4.411118E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 135 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 191 1 -4.193039E-01 7.198987E+00 9.942810E+00 0.0 -1.372452E+00 -1.810545E-01 2.322484E+00 0.0 1.364308E+00 -7.444951E+00 -1.207738E+01 0.0 0 191 2 -4.483185E-01 1.523481E+01 1.940952E+01 0.0 -2.310951E+00 1.062206E-01 4.432053E+00 0.0 2.789985E+00 -1.527623E+01 -2.305471E+01 0.0 0 191 3 -3.536510E-01 1.912041E+01 -1.565195E+00 0.0 -7.824764E-01 1.771944E+00 3.241201E+00 0.0 2.193442E+00 -1.762140E+01 -2.324486E-01 0.0 0 191 4 -2.373276E-01 1.775627E+01 -8.948975E+00 0.0 -1.663895E-01 1.874995E+00 2.160520E+00 0.0 1.378396E+00 -1.559552E+01 8.530609E+00 0.0 0 191 5 -1.427383E-01 1.493842E+01 -7.301819E+00 0.0 -1.162491E-01 1.595722E+00 1.740175E+00 0.0 1.013760E+00 -1.263494E+01 7.353226E+00 0.0 0 191 6 -7.485962E-02 1.191868E+01 -4.843307E+00 0.0 -9.833527E-02 1.333044E+00 1.392221E+00 0.0 7.444776E-01 -9.731210E+00 5.133774E+00 0.0 0 191 7 -3.274155E-02 9.356999E+00 -2.917461E+00 0.0 -8.686829E-02 1.105481E+00 1.112433E+00 0.0 5.473144E-01 -7.400384E+00 3.320835E+00 0.0 0 191 8 -7.135391E-03 7.321773E+00 -1.616451E+00 0.0 -7.741165E-02 9.139226E-01 8.927346E-01 0.0 4.052096E-01 -5.624289E+00 2.059746E+00 0.0 0 191 9 8.316040E-03 5.728336E+00 -7.910843E-01 0.0 -6.919670E-02 7.517917E-01 7.193050E-01 0.0 3.019872E-01 -4.282578E+00 1.232464E+00 0.0 0 191 10 1.640701E-02 4.481959E+00 -2.885761E-01 0.0 -6.046867E-02 6.168301E-01 5.804875E-01 0.0 2.261701E-01 -3.266445E+00 7.051640E-01 0.0 0 191 0.0000 -2.091499E+00 0.0 4.095768E+00 0.0 -5.965002E+00 0.0 1.998842E+01 0.0 1.174779E+01 0.0 -1.143984E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 136 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 191 3.5810 -2.061916E+00 3.241627E+01 5.569883E+00 0.0 -5.873189E+00 3.443330E+00 1.920967E+01 0.0 1.135079E+01 -2.698838E+01 -1.309852E+01 0.0 0 191 7.1620 -1.974522E+00 5.981238E+01 9.736968E+00 0.0 -5.611810E+00 6.275190E+00 1.702391E+01 0.0 1.022845E+01 -5.004135E+01 -1.774747E+01 0.0 0 192 0 -2.038055E+00 0.0 1.660645E+00 0.0 5.503159E-01 0.0 1.195618E+00 0.0 1.086060E+00 0.0 -2.856323E+00 0.0 0 192 1 -3.237324E+00 5.539631E+00 8.114474E+00 0.0 9.772415E-01 -3.008417E+00 -3.376198E+00 0.0 1.830308E+00 -2.960449E+00 -4.592842E+00 0.0 0 192 2 -5.190756E+00 1.126766E+01 1.954863E+01 0.0 2.083151E+00 -4.715603E+00 -1.148976E+01 0.0 2.886915E+00 -6.660889E+00 -7.481773E+00 0.0 0 192 3 -2.437322E+00 1.351405E+01 4.612135E+00 0.0 1.991281E+00 -1.802604E+00 -1.429901E-01 0.0 7.718048E-01 -9.354736E+00 -3.492573E+00 0.0 0 192 4 -1.197346E+00 1.200602E+01 -3.445413E+00 0.0 1.457066E+00 -3.314302E-01 6.053665E+00 0.0 -1.374378E-01 -8.706665E+00 -1.481705E+00 0.0 0 192 5 -1.200226E+00 9.682424E+00 -3.802167E+00 0.0 1.230762E+00 4.211922E-01 6.300968E+00 0.0 -1.193109E-01 -7.203125E+00 -1.384624E+00 0.0 0 192 6 -1.252701E+00 7.475383E+00 -2.974844E+00 0.0 1.042038E+00 8.145100E-01 5.423702E+00 0.0 1.399040E-03 -5.649597E+00 -1.437084E+00 0.0 0 192 7 -1.220697E+00 5.723495E+00 -2.107821E+00 0.0 8.657360E-01 9.415255E-01 4.395176E+00 0.0 8.550453E-02 -4.357483E+00 -1.400707E+00 0.0 0 192 8 -1.124441E+00 4.390278E+00 -1.428069E+00 0.0 7.082081E-01 9.267782E-01 3.478197E+00 0.0 1.252465E-01 -3.346336E+00 -1.286495E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 137 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 192 9 -9.964323E-01 3.379225E+00 -9.412812E-01 0.0 5.723629E-01 8.471998E-01 2.725157E+00 0.0 1.354027E-01 -2.567684E+00 -1.133492E+00 0.0 0 192 10 -8.594379E-01 2.607955E+00 -6.056322E-01 0.0 4.586859E-01 7.433430E-01 2.124733E+00 0.0 1.287271E-01 -1.969933E+00 -9.700184E-01 0.0 0 192 0.0000 -2.075474E+01 0.0 1.863066E+01 0.0 1.193685E+01 0.0 1.668827E+01 0.0 6.794619E+00 0.0 -2.751764E+01 0.0 0 192 3.5810 -1.991418E+01 2.081282E+01 1.951231E+01 0.0 1.136333E+01 9.639627E-01 1.425544E+01 0.0 6.696363E+00 -1.516947E+01 -2.652866E+01 0.0 0 192 7.1620 -1.757877E+01 3.855612E+01 2.194113E+01 0.0 9.759459E+00 1.413108E+00 7.512550E+00 0.0 6.422529E+00 -2.802978E+01 -2.377460E+01 0.0 0 193 0 -1.760040E+00 0.0 9.600983E-01 0.0 8.972931E-01 0.0 2.450577E+00 0.0 4.838104E-01 0.0 -3.410614E+00 0.0 0 193 1 -5.323029E-01 5.248652E+00 7.165443E+00 0.0 1.417542E+00 -1.155415E+00 6.758385E-01 0.0 -1.221153E+00 -4.428974E+00 -7.705856E+00 0.0 0 193 2 2.039696E+00 1.027066E+01 2.005782E+01 0.0 2.298035E+00 -8.706911E-01 -2.928429E+00 0.0 -4.426575E+00 -9.613189E+00 -1.660635E+01 0.0 0 193 3 -4.164047E-01 1.135470E+01 9.886757E+00 0.0 1.382439E+00 2.554393E+00 1.029396E+00 0.0 -7.126770E-01 -1.284955E+01 -1.008295E+01 0.0 0 193 4 -2.312539E+00 9.633716E+00 1.189107E+00 0.0 9.852272E-01 3.556896E+00 3.859101E+00 0.0 1.490231E+00 -1.175933E+01 -4.122262E+00 0.0 0 193 5 -2.592997E+00 7.486662E+00 -4.957256E-01 0.0 1.041355E+00 3.624224E+00 4.203804E+00 0.0 1.590668E+00 -9.648458E+00 -2.823601E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 138 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 193 6 -2.429182E+00 5.603811E+00 -6.735802E-01 0.0 1.047020E+00 3.312961E+00 3.877521E+00 0.0 1.328945E+00 -7.549905E+00 -2.422832E+00 0.0 0 193 7 -2.120178E+00 4.187458E+00 -5.120144E-01 0.0 9.730768E-01 2.861624E+00 3.348104E+00 0.0 1.036156E+00 -5.835773E+00 -2.166668E+00 0.0 0 193 8 -1.787143E+00 3.151666E+00 -3.178968E-01 0.0 8.569388E-01 2.399727E+00 2.798971E+00 0.0 7.888670E-01 -4.504738E+00 -1.914238E+00 0.0 0 193 9 -1.477496E+00 2.390069E+00 -1.653709E-01 0.0 7.282481E-01 1.978008E+00 2.298251E+00 0.0 5.958033E-01 -3.480677E+00 -1.656351E+00 0.0 0 193 10 -1.206485E+00 1.823120E+00 -6.146717E-02 0.0 6.044021E-01 1.613506E+00 1.865754E+00 0.0 4.486241E-01 -2.693219E+00 -1.406037E+00 0.0 0 193 0.0000 -1.459507E+01 0.0 3.703317E+01 0.0 1.223158E+01 0.0 2.347889E+01 0.0 1.402699E+00 0.0 -5.431776E+01 0.0 0 193 3.5810 -1.336217E+01 1.608901E+01 3.684748E+01 0.0 1.160981E+01 7.864946E+00 2.152455E+01 0.0 8.656214E-01 -2.057557E+01 -5.260374E+01 0.0 0 193 7.1620 -9.951131E+00 2.992592E+01 3.626162E+01 0.0 9.883263E+00 1.419182E+01 1.611219E+01 0.0 -6.210392E-01 -3.803254E+01 -4.778951E+01 0.0 0 194 0 7.710266E-02 0.0 -1.933807E+00 0.0 -1.630386E+00 0.0 2.401566E+00 0.0 1.157036E+00 0.0 -4.677734E-01 0.0 0 194 1 6.976795E-01 3.746022E-01 -1.716233E+00 0.0 -2.129785E+00 4.651391E+00 1.107539E+01 0.0 1.044067E+00 -5.414607E+00 -9.226295E+00 0.0 0 194 2 3.104004E+00 -3.793168E-02 -2.212363E+00 0.0 -4.886475E+00 9.435080E+00 3.305045E+01 0.0 1.484733E+00 -1.000457E+01 -3.034457E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 139 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 194 3 4.230255E+00 -2.572124E+00 -4.503740E+00 0.0 -7.465927E+00 1.218664E+01 2.624908E+01 0.0 3.126730E+00 -9.602486E+00 -2.101973E+01 0.0 0 194 4 2.867500E+00 -2.822489E+00 -4.690688E+00 0.0 -6.216827E+00 1.037725E+01 1.271508E+01 0.0 3.259941E+00 -7.178385E+00 -7.289497E+00 0.0 0 194 5 1.902664E+00 -2.471310E+00 -4.020604E+00 0.0 -4.795784E+00 7.901692E+00 7.463917E+00 0.0 2.786688E+00 -4.900147E+00 -2.805023E+00 0.0 0 194 6 1.241514E+00 -2.086041E+00 -3.218245E+00 0.0 -3.586447E+00 5.891607E+00 4.691153E+00 0.0 2.217778E+00 -3.231170E+00 -9.565697E-01 0.0 0 194 7 8.057413E-01 -1.734747E+00 -2.519728E+00 0.0 -2.671060E+00 4.436209E+00 3.102239E+00 0.0 1.723813E+00 -2.148928E+00 -1.718998E-01 0.0 0 194 8 5.214252E-01 -1.430280E+00 -1.964105E+00 0.0 -2.001989E+00 3.386298E+00 2.147948E+00 0.0 1.332432E+00 -1.455558E+00 1.424465E-01 0.0 0 194 9 3.362131E-01 -1.172687E+00 -1.532008E+00 0.0 -1.513793E+00 2.615802E+00 1.543597E+00 0.0 1.029997E+00 -1.003838E+00 2.487407E-01 0.0 0 194 10 2.139497E-01 -9.589142E-01 -1.197413E+00 0.0 -1.153266E+00 2.039282E+00 1.141701E+00 0.0 7.971265E-01 -7.030606E-01 2.640414E-01 0.0 0 194 0.0000 1.599805E+01 0.0 -2.950893E+01 0.0 -3.805174E+01 0.0 1.055821E+02 0.0 1.996034E+01 0.0 -7.162614E+01 0.0 0 194 3.5810 1.539878E+01 -5.290072E+00 -2.790502E+01 0.0 -3.625591E+01 1.698431E+01 1.027510E+02 0.0 1.886662E+01 -1.039641E+01 -7.066349E+01 0.0 0 194 7.1620 1.369161E+01 -9.628967E+00 -2.341722E+01 0.0 -3.120450E+01 3.154210E+01 9.465702E+01 0.0 1.580478E+01 -1.962561E+01 -6.779684E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 140 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 195 0 -2.105068E+00 0.0 -2.121910E+00 0.0 2.877350E-01 0.0 2.340332E+00 0.0 1.431618E+00 0.0 -2.183838E-01 0.0 0 195 1 -2.358438E+00 5.173088E+00 6.500260E+00 0.0 4.473190E-01 -4.675781E-01 2.528624E+00 0.0 1.532007E+00 -5.084895E+00 -8.905807E+00 0.0 0 195 2 -5.591690E+00 8.360094E+00 2.734760E+01 0.0 2.851273E+00 -5.182099E-02 3.834052E+00 0.0 2.318804E+00 -9.133716E+00 -3.074097E+01 0.0 0 195 3 -1.082909E+01 4.489343E+00 1.890480E+01 0.0 6.935379E+00 2.683276E+00 5.508877E+00 0.0 3.363529E+00 -8.361763E+00 -2.381984E+01 0.0 0 195 4 -9.426628E+00 1.833835E+00 5.190010E+00 0.0 5.738640E+00 3.010992E+00 5.248047E+00 0.0 3.221210E+00 -5.871378E+00 -9.888107E+00 0.0 0 195 5 -7.231953E+00 1.997490E-01 9.039650E-01 0.0 4.110744E+00 2.677227E+00 4.425856E+00 0.0 2.723561E+00 -3.690721E+00 -4.904621E+00 0.0 0 195 6 -5.368093E+00 -7.092390E-01 -5.651264E-01 0.0 2.853209E+00 2.276502E+00 3.521022E+00 0.0 2.164078E+00 -2.223335E+00 -2.656939E+00 0.0 0 195 7 -3.965401E+00 -1.088794E+00 -1.004595E+00 0.0 1.967770E+00 1.893818E+00 2.750625E+00 0.0 1.684009E+00 -1.348545E+00 -1.542826E+00 0.0 0 195 8 -2.947542E+00 -1.180044E+00 -1.049452E+00 0.0 1.362419E+00 1.557161E+00 2.142594E+00 0.0 1.304797E+00 -8.343839E-01 -9.575081E-01 0.0 0 195 9 -2.209976E+00 -1.132411E+00 -9.523706E-01 0.0 9.488044E-01 1.272378E+00 1.671823E+00 0.0 1.011524E+00 -5.282074E-01 -6.302161E-01 0.0 0 195 10 -1.670514E+00 -1.021436E+00 -8.142042E-01 0.0 6.643591E-01 1.034517E+00 1.307553E+00 0.0 7.852404E-01 -3.423223E-01 -4.355609E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 141 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 195 0.0000 -5.370439E+01 0.0 5.233897E+01 0.0 2.816765E+01 0.0 3.527940E+01 0.0 2.154038E+01 0.0 -8.470078E+01 0.0 0 195 3.5810 -5.105938E+01 2.289671E-01 5.213945E+01 0.0 2.682330E+01 5.699125E+00 3.349968E+01 0.0 2.045527E+01 -7.870008E+00 -8.285449E+01 0.0 0 195 7.1620 -4.361872E+01 1.050487E+00 5.141202E+01 0.0 2.302108E+01 1.036712E+01 2.851513E+01 0.0 1.741535E+01 -1.498486E+01 -7.751901E+01 0.0 0 196 0 -2.294289E+00 0.0 -1.705627E+00 0.0 7.650146E-01 0.0 4.967102E+00 0.0 1.169678E+00 0.0 -3.261494E+00 0.0 0 196 1 -2.259517E+00 4.051789E+00 7.492828E+00 0.0 1.025927E+00 -3.679696E+00 -4.221724E+00 0.0 8.589177E-01 -7.462158E-01 -3.167857E+00 0.0 0 196 2 -2.053673E+00 6.198080E+00 3.381191E+01 0.0 2.105873E+00 -4.142223E+00 -3.080809E+01 0.0 -6.359272E-01 -3.092041E+00 -2.679626E+00 0.0 0 196 3 -2.380714E+00 3.395975E+00 3.251107E+01 0.0 3.034065E+00 2.399534E+00 -2.925043E+01 0.0 -1.680410E+00 -7.922607E+00 -2.956558E+00 0.0 0 196 4 -2.823261E+00 8.612984E-01 1.632891E+01 0.0 2.645729E+00 5.418058E+00 -1.248800E+01 0.0 -8.157043E-01 -8.356506E+00 -3.687347E+00 0.0 0 196 5 -2.873047E+00 -7.702200E-01 8.795438E+00 0.0 2.225935E+00 6.421793E+00 -4.947948E+00 0.0 -2.474940E-01 -7.423401E+00 -3.869610E+00 0.0 0 196 6 -2.665657E+00 -1.493842E+00 4.735243E+00 0.0 1.823191E+00 6.218837E+00 -1.233347E+00 0.0 4.704189E-02 -6.203476E+00 -3.650347E+00 0.0 0 196 7 -2.344310E+00 -1.662775E+00 2.505114E+00 0.0 1.466931E+00 5.483595E+00 5.168247E-01 0.0 1.770090E-01 -5.050175E+00 -3.238821E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 142 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 196 8 -1.998461E+00 -1.576317E+00 1.282190E+00 0.0 1.169374E+00 4.616667E+00 1.247301E+00 0.0 2.182465E-01 -4.062277E+00 -2.773872E+00 0.0 0 196 9 -1.670779E+00 -1.390015E+00 6.111475E-01 0.0 9.263091E-01 3.788393E+00 1.466518E+00 0.0 2.159274E-01 -3.246838E+00 -2.324044E+00 0.0 0 196 10 -1.378169E+00 -1.177614E+00 2.460209E-01 0.0 7.305201E-01 3.059385E+00 1.439026E+00 0.0 1.940288E-01 -2.584188E+00 -1.918330E+00 0.0 0 196 0.0000 -2.474188E+01 0.0 1.066142E+02 0.0 1.791887E+01 0.0 -7.331276E+01 0.0 -4.986869E-01 0.0 -3.352791E+01 0.0 0 196 3.5810 -2.328415E+01 -1.802551E+00 1.039697E+02 0.0 1.696836E+01 1.364063E+01 -7.253725E+01 0.0 -5.452116E-01 -1.586155E+01 -3.152793E+01 0.0 0 196 7.1620 -1.923669E+01 -2.747931E+00 9.630834E+01 0.0 1.430941E+01 2.440445E+01 -7.007273E+01 0.0 -6.543700E-01 -2.901459E+01 -2.597875E+01 0.0 0 197 0 -1.565153E+00 0.0 -2.113810E+00 0.0 -2.848425E-01 0.0 2.174438E+00 0.0 1.503563E+00 0.0 -6.059647E-02 0.0 0 197 1 -1.343979E+00 3.729086E+00 7.357224E+00 0.0 -4.550819E-01 3.515047E-01 1.864895E+00 0.0 1.434189E+00 -4.445332E+00 -9.128128E+00 0.0 0 197 2 -6.962738E-01 5.120363E+00 3.621725E+01 0.0 -9.174805E-01 1.543067E+00 7.801819E-01 0.0 9.055481E-01 -7.985077E+00 -3.672504E+01 0.0 0 197 3 -1.024734E+00 1.187772E+00 3.882361E+01 0.0 -7.034302E-01 3.567781E+00 9.124146E-01 0.0 3.658752E-01 -8.229569E+00 -3.956415E+01 0.0 0 197 4 -1.534966E+00 -1.531223E+00 2.132567E+01 0.0 -4.881592E-01 3.790745E+00 1.690536E+00 0.0 8.212280E-01 -5.845185E+00 -2.304947E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 143 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 197 5 -1.669071E+00 -2.978227E+00 1.232584E+01 0.0 -3.299179E-01 3.415236E+00 1.933907E+00 0.0 1.015762E+00 -3.601539E+00 -1.449471E+01 0.0 0 197 6 -1.610901E+00 -3.373392E+00 7.212097E+00 0.0 -1.889038E-01 2.846221E+00 1.891853E+00 0.0 9.928360E-01 -2.177678E+00 -9.466644E+00 0.0 0 197 7 -1.453222E+00 -3.204571E+00 4.249336E+00 0.0 -9.854889E-02 2.289639E+00 1.707058E+00 0.0 8.847580E-01 -1.366695E+00 -6.374878E+00 0.0 0 197 8 -1.260349E+00 -2.819456E+00 2.519936E+00 0.0 -4.719543E-02 1.810351E+00 1.471603E+00 0.0 7.544518E-01 -9.020171E-01 -4.418568E+00 0.0 0 197 9 -1.066628E+00 -2.382936E+00 1.495842E+00 0.0 -2.085781E-02 1.418393E+00 1.234272E+00 0.0 6.280174E-01 -6.273904E-01 -3.137829E+00 0.0 0 197 10 -8.877540E-01 -1.965651E+00 8.818054E-01 0.0 -7.831573E-03 1.106043E+00 1.016612E+00 0.0 5.142441E-01 -4.590560E-01 -2.271652E+00 0.0 0 197 0.0000 -1.411303E+01 0.0 1.302948E+02 0.0 -3.542250E+00 0.0 1.667777E+01 0.0 9.820473E+00 0.0 -1.486917E+02 0.0 0 197 3.5810 -1.322318E+01 -6.567699E+00 1.264504E+02 0.0 -3.457838E+00 7.151292E+00 1.565108E+01 0.0 9.290808E+00 -7.772902E+00 -1.435632E+02 0.0 0 197 7.1620 -1.075838E+01 -1.145691E+01 1.153991E+02 0.0 -3.214179E+00 1.309827E+01 1.280793E+01 0.0 7.822980E+00 -1.474778E+01 -1.289675E+02 0.0 0 198 0 -1.102600E+00 0.0 -8.213196E-01 0.0 3.266830E-01 0.0 -3.077316E+00 0.0 4.333393E-01 0.0 3.898670E+00 0.0 0 198 1 -1.154121E+00 3.181324E-01 -8.492548E-01 0.0 3.371353E-01 2.570462E+00 7.140701E+00 0.0 4.660459E-01 -3.239435E+00 -6.215469E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 144 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 198 2 -1.677856E+00 3.231685E-01 -1.207601E+00 0.0 3.649597E-01 2.264060E+00 4.048856E+01 0.0 6.071416E-01 -4.042765E+00 -3.910751E+01 0.0 0 198 3 -2.333130E+00 -1.055675E+00 -1.643786E+00 0.0 3.402710E-01 -3.028655E+00 4.707446E+01 0.0 6.168647E-01 -7.771564E-02 -4.552707E+01 0.0 0 198 4 -2.027176E+00 -1.169728E+00 -1.700871E+00 0.0 2.748260E-01 -6.089681E+00 2.724585E+01 0.0 6.828303E-01 2.906028E+00 -2.596890E+01 0.0 0 198 5 -1.555695E+00 -9.742968E-01 -1.507397E+00 0.0 2.051086E-01 -7.294894E+00 1.588237E+01 0.0 6.013784E-01 4.401424E+00 -1.506699E+01 0.0 0 198 6 -1.133194E+00 -8.215537E-01 -1.222707E+00 0.0 1.518707E-01 -7.107906E+00 9.044312E+00 0.0 4.541206E-01 4.605517E+00 -8.655334E+00 0.0 0 198 7 -8.139000E-01 -6.947603E-01 -9.655061E-01 0.0 1.143074E-01 -6.310607E+00 5.005493E+00 0.0 3.245018E-01 4.191180E+00 -4.913216E+00 0.0 0 198 8 -5.862274E-01 -5.881780E-01 -7.594788E-01 0.0 8.871460E-02 -5.358099E+00 2.659145E+00 0.0 2.273482E-01 3.580172E+00 -2.749786E+00 0.0 0 198 9 -4.241199E-01 -4.952217E-01 -5.987652E-01 0.0 7.005882E-02 -4.439173E+00 1.305134E+00 0.0 1.578967E-01 2.956676E+00 -1.497978E+00 0.0 0 198 10 -3.087215E-01 -4.153118E-01 -4.733799E-01 0.0 5.655670E-02 -3.620162E+00 5.325718E-01 0.0 1.089917E-01 2.391812E+00 -7.742481E-01 0.0 0 198 0.0000 -1.311674E+01 0.0 -1.175007E+01 0.0 2.330492E+00 0.0 1.533013E+02 0.0 4.680459E+00 0.0 -1.465778E+02 0.0 0 198 3.5810 -1.257126E+01 -2.109914E+00 -1.113367E+01 0.0 2.248878E+00 -1.620259E+01 1.488029E+02 0.0 4.478761E+00 9.506564E+00 -1.421476E+02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 145 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 198 7.1620 -1.103283E+01 -3.827059E+00 -9.409961E+00 0.0 2.019309E+00 -2.905473E+01 1.358246E+02 0.0 3.910509E+00 1.684232E+01 -1.293900E+02 0.0 0 201 0 -1.595070E+00 0.0 5.075211E+00 0.0 8.791809E-01 0.0 2.209274E+00 0.0 3.493652E-01 0.0 -7.284546E+00 0.0 0 201 1 -1.929710E+00 5.731011E+00 9.930038E+00 0.0 1.203346E+00 8.145243E-01 2.771515E+00 0.0 3.796539E-01 -6.891781E+00 -1.255133E+01 0.0 0 201 2 -2.343456E+00 1.247272E+01 1.540494E+01 0.0 1.980301E+00 2.794551E+00 3.765121E+00 0.0 4.371719E-01 -1.497774E+01 -1.853352E+01 0.0 0 201 3 -1.504998E+00 1.640487E+01 -1.860649E+00 0.0 2.049449E+00 5.969434E+00 3.100960E+00 0.0 3.544722E-01 -1.900409E+01 -6.108475E-02 0.0 0 201 4 -1.203403E+00 1.512436E+01 -6.602798E+00 0.0 1.649509E+00 6.087019E+00 2.618412E+00 0.0 2.331390E-01 -1.726421E+01 5.404144E+00 0.0 0 201 5 -1.192837E+00 1.249606E+01 -4.917381E+00 0.0 1.461765E+00 5.310773E+00 2.474354E+00 0.0 1.361237E-01 -1.410571E+01 3.890961E+00 0.0 0 201 6 -1.134571E+00 9.774541E+00 -2.970253E+00 0.0 1.283669E+00 4.352960E+00 2.257072E+00 0.0 6.774139E-02 -1.086514E+01 2.053505E+00 0.0 0 201 7 -1.016235E+00 7.515780E+00 -1.576649E+00 0.0 1.086689E+00 3.472319E+00 1.968212E+00 0.0 2.656555E-02 -8.211583E+00 7.947235E-01 0.0 0 201 8 -8.721857E-01 5.755710E+00 -7.047043E-01 0.0 8.931561E-01 2.737981E+00 1.661985E+00 0.0 3.223419E-03 -6.176969E+00 6.786346E-02 0.0 0 201 9 -7.273884E-01 4.405402E+00 -1.963978E-01 0.0 7.183380E-01 2.144608E+00 1.372937E+00 0.0 -8.834839E-03 -4.641267E+00 -3.042488E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 146 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 201 10 -5.945168E-01 3.371421E+00 8.086586E-02 0.0 5.691872E-01 1.673086E+00 1.116158E+00 0.0 -1.478386E-02 -3.486704E+00 -4.636192E-01 0.0 0 201 0.0000 -1.411437E+01 0.0 1.166222E+01 0.0 1.377459E+01 0.0 2.531600E+01 0.0 1.963838E+00 0.0 -2.698716E+01 0.0 0 201 3.5810 -1.346497E+01 2.640046E+01 1.245483E+01 0.0 1.307962E+01 1.115155E+01 2.405740E+01 0.0 1.936184E+00 -2.938352E+01 -2.726477E+01 0.0 0 201 7.1620 -1.165805E+01 4.882046E+01 1.471630E+01 0.0 1.113950E+01 2.046400E+01 2.055215E+01 0.0 1.854331E+00 -5.445882E+01 -2.808291E+01 0.0 0 202 0 -2.739334E-01 0.0 2.192276E+00 0.0 -9.415207E-01 0.0 3.281219E+00 0.0 4.813131E-01 0.0 -5.473480E+00 0.0 0 202 1 -1.265278E+00 4.674261E+00 6.740200E+00 0.0 -7.298355E-01 4.976595E+00 9.060532E+00 0.0 1.322756E+00 -1.032321E+01 -1.554377E+01 0.0 0 202 2 -3.331970E+00 9.464867E+00 1.513109E+01 0.0 -1.550980E-01 1.084648E+01 2.030440E+01 0.0 3.430043E+00 -2.035220E+01 -3.440082E+01 0.0 0 202 3 -1.462364E+00 1.057320E+01 5.586403E+00 0.0 -1.575470E-01 1.490850E+01 9.031227E+00 0.0 2.635115E+00 -2.184489E+01 -1.285875E+01 0.0 0 202 4 -3.736067E-02 9.176981E+00 -4.462566E-01 0.0 -8.267541E-01 1.326301E+01 1.694563E+00 0.0 1.708077E+00 -1.802669E+01 7.347546E-01 0.0 0 202 5 2.988434E-01 7.340650E+00 -1.050964E+00 0.0 -1.010684E+00 1.052744E+01 6.045990E-01 0.0 1.299231E+00 -1.363766E+01 2.359447E+00 0.0 0 202 6 3.885660E-01 5.607613E+00 -7.265377E-01 0.0 -9.388828E-01 8.046990E+00 4.879112E-01 0.0 9.390760E-01 -9.873239E+00 1.936909E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 147 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 202 7 3.837051E-01 4.241227E+00 -3.436670E-01 0.0 -8.022985E-01 6.112863E+00 5.300407E-01 0.0 6.643155E-01 -7.113570E+00 1.271982E+00 0.0 0 202 8 3.416500E-01 3.214920E+00 -6.868267E-02 0.0 -6.637187E-01 4.656832E+00 5.616531E-01 0.0 4.690928E-01 -5.155624E+00 7.396679E-01 0.0 0 202 9 2.902293E-01 2.445453E+00 9.747982E-02 0.0 -5.414500E-01 3.560067E+00 5.554953E-01 0.0 3.324277E-01 -3.762956E+00 3.791199E-01 0.0 0 202 10 2.397542E-01 1.864331E+00 1.840191E-01 0.0 -4.379759E-01 2.729740E+00 5.196533E-01 0.0 2.364243E-01 -2.762102E+00 1.538668E-01 0.0 0 202 0.0000 -4.428158E+00 0.0 2.729536E+01 0.0 -7.205765E+00 0.0 4.663129E+01 0.0 1.351787E+01 0.0 -6.070107E+01 0.0 0 202 3.5810 -4.582380E+00 1.575726E+01 2.717246E+01 0.0 -6.737435E+00 2.222568E+01 4.587852E+01 0.0 1.304515E+01 -2.863165E+01 -6.074651E+01 0.0 0 202 7.1620 -4.993310E+00 2.925047E+01 2.680591E+01 0.0 -5.439111E+00 4.118105E+01 4.372886E+01 0.0 1.170602E+01 -5.349007E+01 -6.079011E+01 0.0 0 203 0 -1.034019E+00 0.0 2.214951E+00 0.0 4.440918E-01 0.0 5.248718E-01 0.0 2.299754E-01 0.0 -2.739853E+00 0.0 0 203 1 2.438622E-01 7.437337E+00 1.108197E+01 0.0 -1.018524E-01 -1.905932E+00 -4.883460E-01 0.0 -4.656094E-01 -5.854843E+00 -1.044847E+01 0.0 0 203 2 2.342018E+00 1.432983E+01 2.809505E+01 0.0 -1.132812E+00 -3.130787E+00 -1.675554E+00 0.0 -1.261070E+00 -1.145137E+01 -2.584425E+01 0.0 0 203 3 -1.274498E+00 1.465266E+01 1.022713E+01 0.0 3.572464E-01 -1.439642E+00 2.138944E+00 0.0 1.365960E+00 -1.210982E+01 -1.141959E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 148 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 203 4 -2.946722E+00 1.208941E+01 -1.930997E+00 0.0 1.102571E+00 -7.562413E-01 3.571618E+00 0.0 2.301847E+00 -9.819129E+00 -5.963020E-01 0.0 0 203 5 -2.819810E+00 9.225391E+00 -3.477522E+00 0.0 1.129147E+00 -4.076008E-01 3.241881E+00 0.0 2.067065E+00 -7.307920E+00 1.223021E+00 0.0 0 203 6 -2.369591E+00 6.736712E+00 -3.000498E+00 0.0 1.017812E+00 -1.420592E-01 2.602493E+00 0.0 1.639304E+00 -5.223660E+00 1.259647E+00 0.0 0 203 7 -1.901738E+00 4.894613E+00 -2.228459E+00 0.0 8.661709E-01 1.539326E-02 2.008964E+00 0.0 1.248029E+00 -3.727863E+00 9.489336E-01 0.0 0 203 8 -1.497001E+00 3.577029E+00 -1.563922E+00 0.0 7.140789E-01 9.590220E-02 1.532498E+00 0.0 9.379374E-01 -2.682693E+00 6.406870E-01 0.0 0 203 9 -1.168144E+00 2.633909E+00 -1.068506E+00 0.0 5.773964E-01 1.303433E-01 1.166195E+00 0.0 7.026234E-01 -1.947755E+00 4.074001E-01 0.0 0 203 10 -9.071774E-01 1.949159E+00 -7.187457E-01 0.0 4.612489E-01 1.402332E-01 8.879088E-01 0.0 5.262011E-01 -1.424161E+00 2.469201E-01 0.0 0 203 0.0000 -1.333282E+01 0.0 3.763046E+01 0.0 5.435098E+00 0.0 1.551147E+01 0.0 9.292263E+00 0.0 -4.632186E+01 0.0 0 203 3.5810 -1.222253E+01 1.961092E+01 3.834917E+01 0.0 4.933024E+00 -9.381102E-01 1.431475E+01 0.0 8.553378E+00 -1.537764E+01 -4.630515E+01 0.0 0 203 7.1620 -9.132877E+00 3.661822E+01 4.027758E+01 0.0 3.541293E+00 -1.894182E+00 1.097336E+01 0.0 6.488613E+00 -2.877029E+01 -4.617550E+01 0.0 0 204 0 -1.146461E+00 0.0 -2.515171E+00 0.0 -1.780426E+00 0.0 -8.132782E-01 0.0 2.615959E+00 0.0 3.328384E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 149 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 204 1 -1.328570E+00 6.031561E-01 -1.711729E+00 0.0 -1.264852E+00 4.808512E+00 6.620590E+00 0.0 2.304255E+00 -5.700437E+00 -4.785629E+00 0.0 0 204 2 -8.041840E-01 -2.515597E-01 3.299255E-01 0.0 5.833435E-02 8.630303E+00 2.499756E+01 0.0 5.536194E-01 -8.756625E+00 -2.488812E+01 0.0 0 204 3 1.201675E+00 -4.063786E+00 -1.032898E+00 0.0 -8.572464E-01 7.933505E+00 1.784659E+01 0.0 -4.580688E-01 -3.649971E+00 -1.622198E+01 0.0 0 204 4 9.035034E-01 -4.718911E+00 -2.699989E+00 0.0 -1.985603E+00 5.781163E+00 5.910034E+00 0.0 9.005051E-01 -5.581197E-01 -2.645782E+00 0.0 0 204 5 3.220177E-01 -4.320487E+00 -3.094749E+00 0.0 -2.245384E+00 3.814551E+00 1.934818E+00 0.0 1.680206E+00 1.105442E+00 1.614189E+00 0.0 0 204 6 -3.788757E-02 -3.648160E+00 -2.961018E+00 0.0 -2.140424E+00 2.418623E+00 3.452473E-01 0.0 1.901859E+00 1.828359E+00 2.950577E+00 0.0 0 204 7 -2.121162E-01 -2.961092E+00 -2.604650E+00 0.0 -1.884131E+00 1.545500E+00 -2.761211E-01 0.0 1.812973E+00 1.960757E+00 3.120798E+00 0.0 0 204 8 -2.760148E-01 -2.354810E+00 -2.191074E+00 0.0 -1.589352E+00 1.006626E+00 -4.768934E-01 0.0 1.592875E+00 1.820416E+00 2.838715E+00 0.0 0 204 9 -2.810278E-01 -1.851019E+00 -1.794901E+00 0.0 -1.307359E+00 6.686618E-01 -4.998121E-01 0.0 1.337064E+00 1.579643E+00 2.416019E+00 0.0 0 204 10 -2.585304E-01 -1.444816E+00 -1.445481E+00 0.0 -1.057715E+00 4.520430E-01 -4.524670E-01 0.0 1.091329E+00 1.320624E+00 1.984104E+00 0.0 0 204 0.0000 -1.917596E+00 0.0 -2.172174E+01 0.0 -1.605416E+01 0.0 5.513626E+01 0.0 1.533258E+01 0.0 -3.028873E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 150 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 204 3.5810 -1.824901E+00 -8.799219E+00 -2.019992E+01 0.0 -1.494449E+01 8.102558E+00 5.456100E+01 0.0 1.431218E+01 2.061918E+00 -3.139063E+01 0.0 0 204 7.1620 -1.587149E+00 -1.604803E+01 -1.598382E+01 0.0 -1.186979E+01 1.535827E+01 5.279786E+01 0.0 1.150018E+01 3.126794E+00 -3.428142E+01 0.0 0 205 0 -2.181213E+00 0.0 -2.339249E-01 0.0 -1.323704E+00 0.0 3.110748E+00 0.0 3.182861E+00 0.0 -2.876862E+00 0.0 0 205 1 -2.058987E+00 4.484508E+00 7.288713E+00 0.0 -1.016895E+00 -1.810236E-01 2.970131E+00 0.0 2.763100E+00 -4.616576E+00 -1.014481E+01 0.0 0 205 2 -1.576477E+00 7.513267E+00 2.683627E+01 0.0 1.285934E+00 1.189358E+00 2.304840E+00 0.0 -8.480835E-02 -9.385560E+00 -2.875653E+01 0.0 0 205 3 -1.889938E+00 5.685702E+00 2.202338E+01 0.0 4.055023E+00 5.237941E+00 2.682388E+00 0.0 -2.774506E+00 -1.200272E+01 -2.425598E+01 0.0 0 205 4 -2.451637E+00 3.395105E+00 9.469681E+00 0.0 2.801979E+00 5.749839E+00 3.491859E+00 0.0 -9.677277E-01 -1.010379E+01 -1.259311E+01 0.0 0 205 5 -2.548830E+00 1.648698E+00 4.672012E+00 0.0 1.677948E+00 5.148724E+00 3.611214E+00 0.0 2.889290E-01 -7.556742E+00 -8.046928E+00 0.0 0 205 6 -2.366934E+00 6.062872E-01 2.434673E+00 0.0 9.685898E-01 4.281337E+00 3.323410E+00 0.0 8.643379E-01 -5.491260E+00 -5.637714E+00 0.0 0 205 7 -2.062299E+00 8.500409E-02 1.307819E+00 0.0 5.430117E-01 3.435605E+00 2.868478E+00 0.0 1.040243E+00 -4.009389E+00 -4.133074E+00 0.0 0 205 8 -1.732293E+00 -1.498116E-01 7.179451E-01 0.0 2.953568E-01 2.709403E+00 2.386746E+00 0.0 1.015861E+00 -2.959922E+00 -3.107963E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 151 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 205 9 -1.422580E+00 -2.381185E-01 3.981891E-01 0.0 1.522613E-01 2.116633E+00 1.941891E+00 0.0 9.057403E-01 -2.207575E+00 -2.368839E+00 0.0 0 205 10 -1.150430E+00 -2.542510E-01 2.200880E-01 0.0 7.083058E-02 1.642901E+00 1.556356E+00 0.0 7.682142E-01 -1.658594E+00 -1.817309E+00 0.0 0 205 0.0000 -2.144162E+01 0.0 7.513483E+01 0.0 9.510335E+00 0.0 3.024806E+01 0.0 7.002244E+00 0.0 -1.037391E+02 0.0 0 205 3.5810 -2.018506E+01 3.534003E+00 7.352133E+01 0.0 9.071381E+00 1.053157E+01 2.850709E+01 0.0 6.495052E+00 -1.579564E+01 -1.004185E+02 0.0 0 205 7.1620 -1.669458E+01 6.989132E+00 6.884077E+01 0.0 7.810575E+00 1.926342E+01 2.366779E+01 0.0 5.126429E+00 -2.943633E+01 -9.100062E+01 0.0 0 206 0 -1.967697E-01 0.0 -1.261780E+00 0.0 -8.518238E-01 0.0 -1.540211E+00 0.0 7.375267E-01 0.0 2.802010E+00 0.0 0 206 1 -6.984100E-01 3.745443E-02 -1.857330E+00 0.0 -7.705917E-01 4.008267E+00 7.947289E+00 0.0 1.158124E+00 -4.356153E+00 -5.984726E+00 0.0 0 206 2 -2.662872E+00 -7.592585E-01 -3.768574E+00 0.0 -2.243958E-01 6.684235E+00 3.540625E+01 0.0 2.432993E+00 -6.808804E+00 -3.131509E+01 0.0 0 206 3 -3.645721E+00 -3.754137E+00 -4.275120E+00 0.0 2.315369E-01 5.898774E+00 3.452606E+01 0.0 2.650184E+00 -4.038522E+00 -2.999762E+01 0.0 0 206 4 -2.491119E+00 -3.832469E+00 -3.640377E+00 0.0 -3.858643E-01 3.303572E+00 1.792259E+01 0.0 2.224093E+00 -1.283252E+00 -1.421469E+01 0.0 0 206 5 -1.630180E+00 -3.194318E+00 -3.077939E+00 0.0 -7.372971E-01 1.212466E+00 1.007141E+01 0.0 1.853716E+00 4.794298E-01 -7.114655E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 152 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 206 6 -1.048401E+00 -2.584378E+00 -2.484015E+00 0.0 -8.282166E-01 1.184580E-01 5.718826E+00 0.0 1.463747E+00 1.243398E+00 -3.479683E+00 0.0 0 206 7 -6.757584E-01 -2.073225E+00 -1.965284E+00 0.0 -7.931480E-01 -3.384969E-01 3.258301E+00 0.0 1.129928E+00 1.416867E+00 -1.595596E+00 0.0 0 206 8 -4.409637E-01 -1.656636E+00 -1.545527E+00 0.0 -7.064495E-01 -4.832759E-01 1.863888E+00 0.0 8.661997E-01 1.329943E+00 -6.348648E-01 0.0 0 206 9 -2.917757E-01 -1.321071E+00 -1.213099E+00 0.0 -6.056385E-01 -4.880660E-01 1.065168E+00 0.0 6.628215E-01 1.148731E+00 -1.566296E-01 0.0 0 206 10 -1.960344E-01 -1.051471E+00 -9.512852E-01 0.0 -5.067482E-01 -4.337328E-01 6.032934E-01 0.0 5.068140E-01 9.487057E-01 6.916618E-02 0.0 0 206 0.0000 -1.397801E+01 0.0 -2.604033E+01 0.0 -6.178637E+00 0.0 1.168429E+02 0.0 1.568615E+01 0.0 -9.162238E+01 0.0 0 206 3.5810 -1.346307E+01 -6.661293E+00 -2.475646E+01 0.0 -5.723883E+00 2.527563E+00 1.136904E+02 0.0 1.494742E+01 8.171846E-01 -8.957325E+01 0.0 0 206 7.1620 -1.199649E+01 -1.220132E+01 -2.116020E+01 0.0 -4.471937E+00 5.169543E+00 1.046029E+02 0.0 1.287399E+01 9.493933E-01 -8.359240E+01 0.0 0 207 0 -1.416529E+00 0.0 -3.366253E+00 0.0 1.115868E+00 0.0 1.526794E-01 0.0 2.388775E-03 0.0 3.213526E+00 0.0 0 207 1 -1.689804E+00 4.116757E+00 5.402679E+00 0.0 1.148842E+00 -3.899066E-01 5.412915E-01 0.0 2.388458E-01 -4.028546E+00 -5.847740E+00 0.0 0 207 2 -2.787933E+00 5.442780E+00 3.212888E+01 0.0 1.208252E+00 -6.889145E-01 1.879753E+00 0.0 1.000277E+00 -5.925259E+00 -3.373761E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 153 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 207 3 -3.630737E+00 -7.122374E-02 3.428934E+01 0.0 1.444427E+00 -4.436054E-01 2.211262E+00 0.0 1.077973E+00 -2.726266E+00 -3.638025E+01 0.0 0 207 4 -3.082840E+00 -2.876818E+00 1.761446E+01 0.0 1.424591E+00 -5.583053E-01 1.585319E+00 0.0 7.953625E-01 1.096621E-01 -1.931966E+01 0.0 0 207 5 -2.503716E+00 -4.028049E+00 9.371429E+00 0.0 1.315086E+00 -6.348557E-01 1.067227E+00 0.0 5.839030E-01 1.765532E+00 -1.077303E+01 0.0 0 207 6 -1.986588E+00 -4.159789E+00 4.981316E+00 0.0 1.166973E+00 -6.026844E-01 6.480443E-01 0.0 3.910098E-01 2.311170E+00 -6.088455E+00 0.0 0 207 7 -1.558773E+00 -3.778879E+00 2.599812E+00 0.0 9.991722E-01 -5.315551E-01 3.620659E-01 0.0 2.501232E-01 2.261844E+00 -3.465889E+00 0.0 0 207 8 -1.217669E+00 -3.230390E+00 1.307621E+00 0.0 8.343925E-01 -4.549623E-01 1.814390E-01 0.0 1.561970E-01 1.983902E+00 -1.988190E+00 0.0 0 207 9 -9.488335E-01 -2.672125E+00 6.062145E-01 0.0 6.846991E-01 -3.825218E-01 7.206184E-02 0.0 9.539898E-02 1.648733E+00 -1.144392E+00 0.0 0 207 10 -7.380810E-01 -2.165703E+00 2.294903E-01 0.0 5.551414E-01 -3.166510E-01 8.385792E-03 0.0 5.650172E-02 1.327907E+00 -6.567173E-01 0.0 0 207 0.0000 -2.156150E+01 0.0 1.051650E+02 0.0 1.189744E+01 0.0 8.709529E+00 0.0 4.647981E+00 0.0 -1.161884E+02 0.0 0 207 3.5810 -2.053606E+01 -8.393281E+00 1.024134E+02 0.0 1.126469E+01 -1.579591E+00 8.440041E+00 0.0 4.472579E+00 3.483569E+00 -1.128603E+02 0.0 0 207 7.1620 -1.766117E+01 -1.482272E+01 9.444028E+01 0.0 9.502579E+00 -2.867935E+00 7.663380E+00 0.0 3.972899E+00 5.847451E+00 -1.032717E+02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 154 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 208 0 1.300594E+00 0.0 -1.760990E+00 0.0 -1.264292E+00 0.0 -6.225880E+00 0.0 -3.074417E-01 0.0 7.986839E+00 0.0 0 208 1 1.190636E+00 -2.893439E-01 -1.567551E+00 0.0 -1.159874E+00 3.277965E+00 3.809113E+00 0.0 -3.203888E-01 -3.278659E+00 -2.159698E+00 0.0 0 208 2 5.495605E-01 -1.632585E+00 -9.342957E-01 0.0 -8.962708E-01 3.187539E+00 3.644775E+01 0.0 -3.551025E-01 -2.900399E+00 -3.533771E+01 0.0 0 208 3 2.236023E-01 -4.612194E+00 -1.336334E+00 0.0 -1.355682E+00 -3.047532E+00 4.240198E+01 0.0 -3.434448E-01 3.655660E+00 -4.119049E+01 0.0 0 208 4 6.397247E-01 -4.964265E+00 -1.951981E+00 0.0 -1.616669E+00 -6.139642E+00 2.269193E+01 0.0 -2.766418E-01 6.955491E+00 -2.120312E+01 0.0 0 208 5 8.171387E-01 -4.443998E+00 -2.133057E+00 0.0 -1.586754E+00 -7.183307E+00 1.206570E+01 0.0 -2.079773E-01 7.995266E+00 -1.065903E+01 0.0 0 208 6 8.192673E-01 -3.709939E+00 -2.049484E+00 0.0 -1.432404E+00 -6.851419E+00 6.115524E+00 0.0 -1.527557E-01 7.492718E+00 -4.916763E+00 0.0 0 208 7 7.362671E-01 -2.997225E+00 -1.826050E+00 0.0 -1.225483E+00 -5.948821E+00 2.844292E+00 0.0 -1.142120E-01 6.393701E+00 -1.886307E+00 0.0 0 208 8 6.234818E-01 -2.385738E+00 -1.557098E+00 0.0 -1.014322E+00 -4.935761E+00 1.096657E+00 0.0 -8.719635E-02 5.216404E+00 -3.635025E-01 0.0 0 208 9 5.100040E-01 -1.882359E+00 -1.292318E+00 0.0 -8.219433E-01 -3.993960E+00 1.915016E-01 0.0 -6.823349E-02 4.150977E+00 3.523407E-01 0.0 0 208 10 4.078197E-01 -1.477036E+00 -1.053148E+00 0.0 -6.563196E-01 -3.181266E+00 -2.507343E-01 0.0 -5.398941E-02 3.252603E+00 6.440315E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 155 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 208 0.0000 7.818096E+00 0.0 -1.746231E+01 0.0 -1.303001E+01 0.0 1.211878E+02 0.0 -2.287384E+00 0.0 -1.087334E+02 0.0 0 208 3.5810 7.389822E+00 -9.316374E+00 -1.636131E+01 0.0 -1.228004E+01 -1.508091E+01 1.180538E+02 0.0 -2.206529E+00 1.636489E+01 -1.061683E+02 0.0 0 208 7.1620 6.203308E+00 -1.704646E+01 -1.330853E+01 0.0 -1.019354E+01 -2.707751E+01 1.089162E+02 0.0 -1.978944E+00 2.946155E+01 -9.862280E+01 0.0 0 211 0 -3.493195E-01 0.0 7.284424E+00 0.0 -2.970886E-02 0.0 2.118530E-01 0.0 2.240211E-02 0.0 -7.496338E+00 0.0 0 211 1 -3.798447E-01 6.891980E+00 1.255122E+01 0.0 -5.300064E-01 1.153692E-01 1.087017E+00 0.0 5.700424E-01 -7.347520E+00 -1.345229E+01 0.0 0 211 2 -4.403534E-01 1.497687E+01 1.853326E+01 0.0 -1.462173E+00 5.746309E-01 3.227363E+00 0.0 2.011955E+00 -1.530831E+01 -2.096873E+01 0.0 0 211 3 -3.562918E-01 1.900764E+01 6.096363E-02 0.0 -2.422504E-01 1.941222E+00 2.451994E+00 0.0 1.671450E+00 -1.761820E+01 -1.068821E+00 0.0 0 211 4 -2.368889E-01 1.726122E+01 -5.404243E+00 0.0 2.430420E-01 1.779103E+00 1.493208E+00 0.0 9.333757E-01 -1.515141E+01 5.603149E+00 0.0 0 211 5 -1.359100E-01 1.410575E+01 -3.890938E+00 0.0 2.225494E-01 1.344255E+00 1.133270E+00 0.0 6.168988E-01 -1.186766E+01 4.437172E+00 0.0 0 211 6 -6.736755E-02 1.086708E+01 -2.053589E+00 0.0 1.831245E-01 1.017121E+00 8.484626E-01 0.0 4.010888E-01 -8.791345E+00 2.720497E+00 0.0 0 211 7 -2.647972E-02 8.212254E+00 -7.945709E-01 0.0 1.471214E-01 7.793792E-01 6.331330E-01 0.0 2.570171E-01 -6.414971E+00 1.470665E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 156 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 211 8 -3.458023E-03 6.176775E+00 -6.765175E-02 0.0 1.161652E-01 6.035928E-01 4.762183E-01 0.0 1.640006E-01 -4.673884E+00 6.973724E-01 0.0 0 211 9 9.094238E-03 4.641780E+00 3.041725E-01 0.0 9.035587E-02 4.689973E-01 3.613861E-01 0.0 1.042651E-01 -3.410771E+00 2.549839E-01 0.0 0 211 10 1.476765E-02 3.487021E+00 4.636431E-01 0.0 7.017612E-02 3.655482E-01 2.758357E-01 0.0 6.581414E-02 -2.492941E+00 1.818180E-02 0.0 0 211 0.0000 -1.972052E+00 0.0 2.698670E+01 0.0 -1.191605E+00 0.0 1.219974E+01 0.0 6.818310E+00 0.0 -2.778416E+01 0.0 0 211 3.5810 -1.944276E+00 2.938472E+01 2.726429E+01 0.0 -1.261241E+00 2.750266E+00 1.174343E+01 0.0 6.612646E+00 -2.450502E+01 -2.842031E+01 0.0 0 211 7.1620 -1.862059E+00 5.446096E+01 2.808238E+01 0.0 -1.451801E+00 5.076532E+00 1.045521E+01 0.0 6.024631E+00 -4.565672E+01 -3.021377E+01 0.0 0 212 0 3.495941E-01 0.0 -2.998577E+00 0.0 -1.885864E+00 0.0 4.782028E+00 0.0 1.162582E+00 0.0 -1.783401E+00 0.0 0 212 1 2.265549E-01 -1.656603E+00 -4.351900E+00 0.0 -1.813165E+00 8.167324E+00 1.392089E+01 0.0 1.220751E+00 -6.876584E+00 -9.357456E+00 0.0 0 212 2 -5.212402E-02 -4.036731E+00 -6.287346E+00 0.0 -1.187561E+00 1.658050E+01 3.083223E+01 0.0 1.221954E+00 -1.249804E+01 -2.369849E+01 0.0 0 212 3 1.529541E-01 -6.058999E+00 -2.628334E+00 0.0 -8.543701E-01 1.927144E+01 1.084618E+01 0.0 1.416931E+00 -1.041418E+01 -6.812363E+00 0.0 0 212 4 1.461449E-01 -5.596706E+00 -1.156712E+00 0.0 -1.398836E+00 1.638061E+01 -1.226013E+00 0.0 1.777901E+00 -7.407261E+00 3.941158E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 157 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 212 5 5.170834E-02 -4.531227E+00 -1.174329E+00 0.0 -1.636177E+00 1.259474E+01 -2.463785E+00 0.0 1.855391E+00 -4.913233E+00 5.112348E+00 0.0 0 212 6 8.937597E-03 -3.443244E+00 -1.221028E+00 0.0 -1.599922E+00 9.241014E+00 -1.952599E+00 0.0 1.693766E+00 -3.059809E+00 4.449944E+00 0.0 0 212 7 -8.291960E-03 -2.554663E+00 -1.152502E+00 0.0 -1.423681E+00 6.723013E+00 -1.280141E+00 0.0 1.432946E+00 -1.881272E+00 3.498338E+00 0.0 0 212 8 -1.431656E-02 -1.883280E+00 -1.013283E+00 0.0 -1.202023E+00 4.904584E+00 -7.581558E-01 0.0 1.161572E+00 -1.153330E+00 2.646269E+00 0.0 0 212 9 -1.567292E-02 -1.382262E+00 -8.508859E-01 0.0 -9.833188E-01 3.594073E+00 -4.075346E-01 0.0 9.177394E-01 -7.076876E-01 1.969299E+00 0.0 0 212 10 -1.503706E-02 -1.013497E+00 -6.929814E-01 0.0 -7.877817E-01 2.643209E+00 -1.882191E-01 0.0 7.126644E-01 -4.311821E-01 1.454222E+00 0.0 0 212 0.0000 8.304514E-01 0.0 -2.352788E+01 0.0 -1.477270E+01 0.0 5.210488E+01 0.0 1.457420E+01 0.0 -1.858013E+01 0.0 0 212 3.5810 8.278572E-01 -9.090487E+00 -2.275187E+01 0.0 -1.392934E+01 2.614214E+01 5.225192E+01 0.0 1.372132E+01 -1.037248E+01 -2.016870E+01 0.0 0 212 7.1620 8.183801E-01 -1.686050E+01 -2.058656E+01 0.0 -1.159004E+01 4.873901E+01 5.259256E+01 0.0 1.134698E+01 -1.973769E+01 -2.452814E+01 0.0 0 213 0 1.472046E+00 0.0 3.525391E+00 0.0 -1.368805E+00 0.0 2.795582E-01 0.0 -4.299477E-01 0.0 -3.805008E+00 0.0 0 213 1 1.610668E+00 6.477623E+00 9.924301E+00 0.0 -1.349905E+00 -1.965424E-01 1.661219E+00 0.0 -5.580447E-01 -6.577754E+00 -1.142193E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 158 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 213 2 -6.925659E-01 1.210588E+01 2.209105E+01 0.0 7.538300E-01 3.574848E-01 5.498096E+00 0.0 -1.164230E-01 -1.267922E+01 -2.695224E+01 0.0 0 213 3 -6.153023E+00 1.083364E+01 8.908875E+00 0.0 4.892479E+00 2.998195E+00 5.279186E+00 0.0 1.610632E+00 -1.278831E+01 -1.319385E+01 0.0 0 213 4 -5.407131E+00 8.319166E+00 -3.243732E-01 0.0 3.837051E+00 3.000885E+00 3.520923E+00 0.0 1.887087E+00 -9.931743E+00 -2.146523E+00 0.0 0 213 5 -3.737037E+00 6.015944E+00 -1.631896E+00 0.0 2.405172E+00 2.400303E+00 2.616087E+00 0.0 1.563241E+00 -7.078454E+00 -3.436852E-02 0.0 0 213 6 -2.407893E+00 4.134156E+00 -1.388940E+00 0.0 1.408409E+00 1.873095E+00 1.914392E+00 0.0 1.151228E+00 -4.837566E+00 2.664256E-01 0.0 0 213 7 -1.510257E+00 2.825760E+00 -9.375420E-01 0.0 7.887802E-01 1.451838E+00 1.394372E+00 0.0 8.140036E-01 -3.305699E+00 1.847777E-01 0.0 0 213 8 -9.381704E-01 1.946457E+00 -5.697153E-01 0.0 4.207189E-01 1.122356E+00 1.021074E+00 0.0 5.692086E-01 -2.283161E+00 6.273842E-02 0.0 0 213 9 -5.795577E-01 1.353452E+00 -3.182378E-01 0.0 2.069554E-01 8.658395E-01 7.528039E-01 0.0 3.975755E-01 -1.594682E+00 -2.480173E-02 0.0 0 213 10 -3.556631E-01 9.483757E-01 -1.592484E-01 0.0 8.567047E-02 6.674453E-01 5.580143E-01 0.0 2.781645E-01 -1.124075E+00 -7.357407E-02 0.0 0 213 0.0000 -1.869858E+01 0.0 3.911967E+01 0.0 1.208036E+01 0.0 2.449573E+01 0.0 7.166725E+00 0.0 -5.713836E+01 0.0 0 213 3.5810 -1.765843E+01 1.276239E+01 3.919460E+01 0.0 1.148383E+01 4.763095E+00 2.351005E+01 0.0 6.665924E+00 -1.478396E+01 -5.663199E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 159 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 213 7.1620 -1.470093E+01 2.402506E+01 3.934578E+01 0.0 9.772212E+00 8.755402E+00 2.072550E+01 0.0 5.256851E+00 -2.780569E+01 -5.512738E+01 0.0 0 214 0 1.433211E+00 0.0 -2.417770E+00 0.0 -2.879923E+00 0.0 -2.925568E-01 0.0 1.011892E+00 0.0 2.710350E+00 0.0 0 214 1 1.326145E+00 -4.567050E+00 -8.384056E+00 0.0 -2.634800E+00 8.794372E+00 1.231979E+01 0.0 8.793526E-01 -4.656776E+00 -3.712120E+00 0.0 0 214 2 7.160416E-01 -9.591797E+00 -2.340848E+01 0.0 -2.131866E+00 1.550715E+01 4.389154E+01 0.0 9.632874E-01 -6.707573E+00 -1.969452E+01 0.0 0 214 3 5.828590E-01 -1.263060E+01 -1.903050E+01 0.0 -3.612595E+00 1.352705E+01 3.268930E+01 0.0 2.435974E+00 -1.496128E+00 -1.262936E+01 0.0 0 214 4 1.205175E+00 -1.069857E+01 -9.620513E+00 0.0 -4.543541E+00 9.309227E+00 1.207272E+01 0.0 2.681442E+00 1.125526E+00 -1.512482E+00 0.0 0 214 5 1.378692E+00 -8.007122E+00 -6.131732E+00 0.0 -4.465015E+00 5.705502E+00 5.023430E+00 0.0 2.419510E+00 2.248127E+00 1.823639E+00 0.0 0 214 6 1.279772E+00 -5.770378E+00 -4.292914E+00 0.0 -3.944759E+00 3.298870E+00 2.080357E+00 0.0 2.027813E+00 2.514313E+00 2.705120E+00 0.0 0 214 7 1.082591E+00 -4.149793E+00 -3.131570E+00 0.0 -3.290556E+00 1.893585E+00 7.843323E-01 0.0 1.625881E+00 2.326964E+00 2.674503E+00 0.0 0 214 8 8.733814E-01 -3.004634E+00 -2.333043E+00 0.0 -2.658106E+00 1.091884E+00 2.175827E-01 0.0 1.269947E+00 1.981887E+00 2.329212E+00 0.0 0 214 9 6.855531E-01 -2.189205E+00 -1.755762E+00 0.0 -2.105742E+00 6.323901E-01 -2.077007E-02 0.0 9.757614E-01 1.614415E+00 1.914509E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 160 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 214 10 5.285006E-01 -1.604970E+00 -1.326844E+00 0.0 -1.646227E+00 3.666929E-01 -1.097794E-01 0.0 7.412276E-01 1.282772E+00 1.524592E+00 0.0 0 214 0.0000 1.109192E+01 0.0 -8.183318E+01 0.0 -3.391313E+01 0.0 1.086560E+02 0.0 1.703209E+01 0.0 -2.186656E+01 0.0 0 214 3.5810 1.046594E+01 -1.636289E+01 -7.930433E+01 0.0 -3.192543E+01 1.214724E+01 1.068768E+02 0.0 1.603963E+01 4.032116E+00 -2.283381E+01 0.0 0 214 7.1620 8.725302E+00 -3.052801E+01 -7.212492E+01 0.0 -2.638834E+01 2.322839E+01 1.016433E+02 0.0 1.326623E+01 6.908506E+00 -2.539688E+01 0.0 0 215 0 -1.550034E+00 0.0 -4.386272E-01 0.0 1.545900E+00 0.0 -2.979889E+00 0.0 -2.471513E-01 0.0 3.418575E+00 0.0 0 215 1 -1.082619E+00 1.719045E+00 9.494915E-01 0.0 8.167381E-01 3.067621E+00 4.442223E+00 0.0 2.047136E-02 -5.032011E+00 -5.269203E+00 0.0 0 215 2 9.081116E-01 2.278872E+00 4.254585E+00 0.0 -2.438721E+00 5.130014E+00 2.629453E+01 0.0 1.168566E+00 -8.177156E+00 -3.015771E+01 0.0 0 215 3 1.943817E+00 -8.702822E-01 2.507843E+00 0.0 -4.535065E+00 4.689213E+00 2.600034E+01 0.0 1.973311E+00 -5.491742E+00 -2.814127E+01 0.0 0 215 4 7.730713E-01 -1.644837E+00 -3.555145E-01 0.0 -3.025452E+00 2.567042E+00 1.288570E+01 0.0 1.773806E+00 -2.460257E+00 -1.233749E+01 0.0 0 215 5 9.217834E-02 -1.653268E+00 -1.207314E+00 0.0 -1.875916E+00 8.588486E-01 6.819244E+00 0.0 1.438758E+00 -4.326481E-01 -5.609001E+00 0.0 0 215 6 -2.296219E-01 -1.507520E+00 -1.307546E+00 0.0 -1.099056E+00 2.850533E-03 3.574562E+00 0.0 1.070767E+00 5.422195E-01 -2.395149E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 161 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 215 7 -3.514118E-01 -1.295820E+00 -1.166504E+00 0.0 -6.217728E-01 -3.307365E-01 1.823723E+00 0.0 7.724332E-01 8.681730E-01 -8.515167E-01 0.0 0 215 8 -3.711395E-01 -1.073453E+00 -9.691577E-01 0.0 -3.425980E-01 -4.199808E-01 8.915596E-01 0.0 5.536033E-01 8.937618E-01 -1.389751E-01 0.0 0 215 9 -3.438511E-01 -8.696463E-01 -7.792263E-01 0.0 -1.826954E-01 -4.045670E-01 3.997831E-01 0.0 3.973660E-01 7.990847E-01 1.661034E-01 0.0 0 215 10 -2.988625E-01 -6.954163E-01 -6.150439E-01 0.0 -9.220362E-02 -3.491901E-01 1.447659E-01 0.0 2.861641E-01 6.678228E-01 2.738371E-01 0.0 0 215 0.0000 -5.103607E-01 0.0 8.729870E-01 0.0 -1.185084E+01 0.0 8.029653E+01 0.0 9.208096E+00 0.0 -8.104181E+01 0.0 0 215 3.5810 -3.739330E-01 -3.172447E+00 1.419213E+00 0.0 -1.134655E+01 1.843919E+00 7.827785E+01 0.0 8.709270E+00 -1.287343E+00 -7.946149E+01 0.0 0 215 7.1620 -1.868933E-02 -5.666607E+00 2.910277E+00 0.0 -9.898597E+00 3.800685E+00 7.242085E+01 0.0 7.304285E+00 -2.951791E+00 -7.480662E+01 0.0 0 216 0 1.809590E+00 0.0 1.513337E+00 0.0 -1.985457E+00 0.0 -4.651288E+00 0.0 -1.100769E-01 0.0 3.137937E+00 0.0 0 216 1 1.722836E+00 -4.791076E+00 -7.152382E+00 0.0 -1.859291E+00 5.330209E+00 6.040897E+00 0.0 -1.628914E-01 -8.383783E-01 1.244469E+00 0.0 0 216 2 7.142944E-01 -8.226275E+00 -3.320709E+01 0.0 -1.303467E+00 7.310081E+00 3.850294E+01 0.0 -7.296753E-02 -3.321016E-01 -4.917328E+00 0.0 0 216 3 -3.086853E-01 -7.586772E+00 -3.474835E+01 0.0 -1.461441E+00 1.746935E+00 4.035732E+01 0.0 3.830719E-01 2.303315E+00 -5.393066E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 162 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 216 4 6.057129E-01 -4.800756E+00 -1.878964E+01 0.0 -1.948654E+00 -1.833940E+00 2.017638E+01 0.0 1.464005E-01 3.063614E+00 -1.449936E+00 0.0 0 216 5 1.074856E+00 -2.459257E+00 -1.106665E+01 0.0 -2.034622E+00 -3.610610E+00 1.046977E+01 0.0 1.070404E-02 3.020595E+00 2.793503E-01 0.0 0 216 6 1.138737E+00 -1.129860E+00 -6.808376E+00 0.0 -1.880760E+00 -3.989747E+00 5.386293E+00 0.0 -1.125336E-02 2.597695E+00 9.595795E-01 0.0 0 216 7 1.027981E+00 -4.772049E-01 -4.326612E+00 0.0 -1.620350E+00 -3.665559E+00 2.686655E+00 0.0 -7.220268E-03 2.084726E+00 1.129379E+00 0.0 0 216 8 8.624125E-01 -1.775954E-01 -2.834137E+00 0.0 -1.339731E+00 -3.108959E+00 1.263559E+00 0.0 -8.192062E-04 1.619882E+00 1.070438E+00 0.0 0 216 9 6.952057E-01 -4.477990E-02 -1.904444E+00 0.0 -1.079861E+00 -2.529245E+00 5.196691E-01 0.0 3.580570E-03 1.232934E+00 9.259720E-01 0.0 0 216 10 5.469251E-01 6.297290E-03 -1.306026E+00 0.0 -8.555126E-01 -2.006625E+00 1.394815E-01 0.0 5.403996E-03 9.281945E-01 7.627459E-01 0.0 0 216 0.0000 9.889864E+00 0.0 -1.206304E+02 0.0 -1.736915E+01 0.0 1.208917E+02 0.0 1.839323E-01 0.0 -2.250460E+00 0.0 0 216 3.5810 9.323414E+00 -5.404230E+00 -1.168603E+02 0.0 -1.639518E+01 -7.021635E+00 1.178493E+02 0.0 1.730251E-01 5.834132E+00 -2.679410E+00 0.0 0 216 7.1620 7.757366E+00 -1.047221E+01 -1.060748E+02 0.0 -1.368715E+01 -1.221434E+01 1.090122E+02 0.0 1.411567E-01 1.062027E+01 -3.811790E+00 0.0 0 217 0 -2.773666E-01 0.0 2.658997E-01 0.0 3.072243E-01 0.0 -7.986839E+00 0.0 -2.509627E-01 0.0 7.720924E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 163 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 217 1 -5.279312E-01 4.572467E-01 -5.314329E-02 0.0 3.198166E-01 3.278626E+00 2.159683E+00 0.0 -1.905650E-02 -3.962249E+00 -2.011917E+00 0.0 0 217 2 -1.526123E+00 7.365823E-01 -1.117030E+00 0.0 3.549500E-01 2.899985E+00 3.533685E+01 0.0 6.031280E-01 -4.828006E+00 -3.400458E+01 0.0 0 217 3 -2.008057E+00 -2.996211E-01 -1.326263E+00 0.0 3.428650E-01 -3.655134E+00 4.119049E+01 0.0 4.579139E-01 2.124197E-01 -3.997192E+01 0.0 0 217 4 -1.488083E+00 -3.473897E-01 -1.068354E+00 0.0 2.778931E-01 -6.953546E+00 2.120303E+01 0.0 3.095428E-01 3.476026E+00 -2.059705E+01 0.0 0 217 5 -1.022720E+00 -1.971645E-01 -8.794102E-01 0.0 2.080994E-01 -7.995205E+00 1.065916E+01 0.0 2.286432E-01 4.912135E+00 -1.051015E+01 0.0 0 217 6 -6.634216E-01 -1.428492E-01 -6.668937E-01 0.0 1.531296E-01 -7.491913E+00 4.917191E+00 0.0 1.286667E-01 4.913275E+00 -5.099594E+00 0.0 0 217 7 -4.174767E-01 -1.213701E-01 -4.916593E-01 0.0 1.141663E-01 -6.393059E+00 1.886803E+00 0.0 5.434924E-02 4.289827E+00 -2.251709E+00 0.0 0 217 8 -2.591515E-01 -1.096739E-01 -3.620124E-01 0.0 8.740234E-02 -5.215515E+00 3.636932E-01 0.0 8.833289E-03 3.519624E+00 -8.036499E-01 0.0 0 217 9 -1.581230E-01 -9.826708E-02 -2.681643E-01 0.0 6.817055E-02 -4.151305E+00 -3.523178E-01 0.0 -1.607315E-02 2.793251E+00 -9.730530E-02 0.0 0 217 10 -9.436226E-02 -8.699441E-02 -1.998771E-01 0.0 5.397224E-02 -3.252489E+00 -6.439877E-01 0.0 -2.793432E-02 2.172066E+00 2.208862E-01 0.0 0 217 0.0000 -8.442816E+00 0.0 -6.166907E+00 0.0 2.287689E+00 0.0 1.087338E+02 0.0 1.477050E+00 0.0 -1.074061E+02 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 164 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 217 3.5810 -8.139538E+00 -3.416507E-01 -5.842967E+00 0.0 2.206768E+00 -1.636347E+01 1.061686E+02 0.0 1.436275E+00 9.625393E+00 -1.046488E+02 0.0 0 217 7.1620 -7.274639E+00 -6.064473E-01 -4.931318E+00 0.0 1.978992E+00 -2.945889E+01 9.862272E+01 0.0 1.315685E+00 1.711485E+01 -9.659697E+01 0.0 0 221 0 -1.155975E+00 0.0 7.139145E+00 0.0 -7.704620E-01 0.0 2.012436E+00 0.0 1.678345E+00 0.0 -9.151520E+00 0.0 0 221 1 -1.002865E+00 5.834873E+00 1.205133E+01 0.0 -5.820312E-01 -6.687799E-02 1.785355E+00 0.0 1.351608E+00 -6.001152E+00 -1.368451E+01 0.0 0 221 2 -2.917213E-01 1.262253E+01 1.809261E+01 0.0 1.072021E+00 5.964314E-01 8.443298E-01 0.0 -6.497955E-01 -1.293452E+01 -1.829283E+01 0.0 0 221 3 -1.854229E-02 1.588462E+01 1.625328E+00 0.0 3.371727E+00 2.461183E+00 9.718571E-01 0.0 -2.471527E+00 -1.552717E+01 -1.443489E+00 0.0 0 221 4 -4.555855E-01 1.392501E+01 -3.517563E+00 0.0 2.569080E+00 2.730026E+00 1.739212E+00 0.0 -1.404068E+00 -1.347290E+01 3.103241E+00 0.0 0 221 5 -6.425171E-01 1.094254E+01 -2.450848E+00 0.0 1.707756E+00 2.462877E+00 1.925049E+00 0.0 -5.995026E-01 -1.057400E+01 1.812683E+00 0.0 0 221 6 -6.616917E-01 8.125929E+00 -1.135761E+00 0.0 1.096493E+00 2.045491E+00 1.801861E+00 0.0 -1.413803E-01 -7.806493E+00 4.672699E-01 0.0 0 221 7 -5.963173E-01 5.934069E+00 -2.811012E-01 0.0 6.906872E-01 1.630241E+00 1.548214E+00 0.0 8.476257E-02 -5.655543E+00 -3.124084E-01 0.0 0 221 8 -5.013704E-01 4.320477E+00 1.741543E-01 0.0 4.304981E-01 1.272452E+00 1.268267E+00 0.0 1.767025E-01 -4.081411E+00 -6.564026E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 165 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 221 9 -4.049330E-01 3.146989E+00 3.766050E-01 0.0 2.653227E-01 9.811087E-01 1.009201E+00 0.0 1.994038E-01 -2.945511E+00 -7.479954E-01 0.0 0 221 10 -3.187499E-01 2.293664E+00 4.368610E-01 0.0 1.612134E-01 7.496787E-01 7.878599E-01 0.0 1.889095E-01 -2.126463E+00 -7.129211E-01 0.0 0 221 0.0000 -6.050269E+00 0.0 3.251077E+01 0.0 1.001231E+01 0.0 1.569364E+01 0.0 -1.586542E+00 0.0 -3.961888E+01 0.0 0 221 3.5810 -5.714255E+00 2.229053E+01 3.248911E+01 0.0 9.518096E+00 4.973387E+00 1.478850E+01 0.0 -1.554333E+00 -2.149313E+01 -3.928107E+01 0.0 0 221 7.1620 -4.784172E+00 4.149225E+01 3.244751E+01 0.0 8.110508E+00 9.103534E+00 1.227331E+01 0.0 -1.436417E+00 -4.005371E+01 -3.836354E+01 0.0 0 222 0 7.840805E-01 0.0 3.355782E+00 0.0 -1.098022E-01 0.0 3.296417E+00 0.0 -1.028841E+00 0.0 -6.652206E+00 0.0 0 222 1 2.056465E-01 3.169176E+00 5.752817E+00 0.0 1.269741E-01 4.997360E+00 9.364193E+00 0.0 -6.612737E-01 -8.494604E+00 -1.490269E+01 0.0 0 222 2 -1.668121E+00 6.721599E+00 9.163513E+00 0.0 9.903717E-01 1.067459E+01 2.089378E+01 0.0 8.063563E-01 -1.719300E+01 -2.917377E+01 0.0 0 222 3 -1.806755E+00 7.790003E+00 2.071709E+00 0.0 1.253593E+00 1.395079E+01 8.338524E+00 0.0 1.601961E+00 -1.862961E+01 -8.901001E+00 0.0 0 222 4 -6.230459E-01 6.819255E+00 -9.284947E-01 0.0 3.994784E-01 1.186694E+01 7.239485E-01 0.0 1.141830E+00 -1.507794E+01 1.870081E+00 0.0 0 222 5 -2.673054E-02 5.453978E+00 -8.118854E-01 0.0 -5.290508E-02 8.956790E+00 -1.429443E-01 0.0 7.612821E-01 -1.114317E+01 2.518719E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 166 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 222 6 2.514915E-01 4.107682E+00 -3.636327E-01 0.0 -2.157021E-01 6.484684E+00 -7.598400E-02 0.0 4.574281E-01 -7.825047E+00 1.781519E+00 0.0 0 222 7 3.472433E-01 3.036951E+00 -3.731823E-02 0.0 -2.509975E-01 4.663468E+00 7.711506E-02 0.0 2.567180E-01 -5.442940E+00 1.068991E+00 0.0 0 222 8 3.516092E-01 2.235156E+00 1.416287E-01 0.0 -2.349291E-01 3.367337E+00 1.776028E-01 0.0 1.359400E-01 -3.798106E+00 5.807981E-01 0.0 0 222 9 3.163452E-01 1.645949E+00 2.193975E-01 0.0 -2.017226E-01 2.442223E+00 2.201905E-01 0.0 6.628761E-02 -2.664328E+00 2.827625E-01 0.0 0 222 10 2.679992E-01 1.212070E+00 2.379415E-01 0.0 -1.654618E-01 1.778705E+00 2.243276E-01 0.0 2.734408E-02 -1.877259E+00 1.126008E-01 0.0 0 222 0.0000 -1.600237E+00 0.0 1.880146E+01 0.0 1.538897E+00 0.0 4.309718E+01 0.0 3.565033E+00 0.0 -5.141418E+01 0.0 0 222 3.5810 -1.727923E+00 1.130173E+01 1.868326E+01 0.0 1.628843E+00 1.824162E+01 4.265408E+01 0.0 3.371596E+00 -2.281531E+01 -5.154203E+01 0.0 0 222 7.1620 -2.060318E+00 2.101892E+01 1.835302E+01 0.0 1.865116E+00 3.402843E+01 4.136572E+01 0.0 2.816290E+00 -4.277789E+01 -5.184420E+01 0.0 0 223 0 1.541910E+00 0.0 -5.150665E+00 0.0 -2.049526E+00 0.0 4.077190E+00 0.0 1.971588E-01 0.0 1.073509E+00 0.0 0 223 1 1.550963E+00 -5.420304E+00 -1.100881E+01 0.0 -2.033648E+00 7.730319E+00 1.305692E+01 0.0 1.759462E-01 -2.616746E+00 -1.850044E+00 0.0 0 223 2 6.810341E-01 -1.180309E+01 -2.295561E+01 0.0 -1.853653E+00 1.505333E+01 3.168542E+01 0.0 1.030319E+00 -3.434485E+00 -7.964417E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 167 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 223 3 -5.938721E-01 -1.564070E+01 -1.317122E+01 0.0 -2.405930E+00 1.605986E+01 1.614655E+01 0.0 3.140793E+00 9.150962E-01 -1.790054E+00 0.0 0 223 4 1.904230E-01 -1.336545E+01 -5.138367E+00 0.0 -2.966152E+00 1.278501E+01 3.184376E+00 0.0 2.762318E+00 2.277512E+00 3.189560E+00 0.0 0 223 5 6.839795E-01 -1.010090E+01 -3.385540E+00 0.0 -2.942507E+00 9.221640E+00 5.721703E-01 0.0 2.106541E+00 2.464881E+00 3.912579E+00 0.0 0 223 6 8.092041E-01 -7.277001E+00 -2.694322E+00 0.0 -2.592031E+00 6.365944E+00 6.659222E-02 0.0 1.562228E+00 2.267323E+00 3.524858E+00 0.0 0 223 7 7.583591E-01 -5.188201E+00 -2.206274E+00 0.0 -2.139412E+00 4.383285E+00 4.066515E-02 0.0 1.139489E+00 1.909590E+00 2.876165E+00 0.0 0 223 8 6.441905E-01 -3.705082E+00 -1.786475E+00 0.0 -1.702663E+00 3.043400E+00 9.744120E-02 0.0 8.236961E-01 1.537530E+00 2.245493E+00 0.0 0 223 9 5.194755E-01 -2.654224E+00 -1.421143E+00 0.0 -1.325433E+00 2.132517E+00 1.413357E-01 0.0 5.920792E-01 1.204990E+00 1.713201E+00 0.0 0 223 10 4.059698E-01 -1.907393E+00 -1.112198E+00 0.0 -1.016510E+00 1.505359E+00 1.591086E-01 0.0 4.237684E-01 9.291626E-01 1.289232E+00 0.0 0 223 0.0000 7.191636E+00 0.0 -7.003062E+01 0.0 -2.302746E+01 0.0 6.922777E+01 0.0 1.395434E+01 0.0 8.220082E+00 0.0 0 223 3.5810 6.791351E+00 -2.030903E+01 -6.823251E+01 0.0 -2.174569E+01 1.901734E+01 6.847310E+01 0.0 1.321495E+01 4.463136E+00 6.730141E+00 0.0 0 223 7.1620 5.688061E+00 -3.790761E+01 -6.314064E+01 0.0 -1.817124E+01 3.571268E+01 6.625421E+01 0.0 1.113245E+01 7.967301E+00 2.608611E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 168 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 224 0 -6.523132E-03 0.0 6.325607E-01 0.0 2.188416E-01 0.0 -2.518158E-01 0.0 -6.014622E-01 0.0 -3.807526E-01 0.0 0 224 1 -8.210754E-02 5.293678E+00 6.742296E+00 0.0 5.383492E-02 3.892004E+00 6.333767E+00 0.0 -3.409790E-01 -9.554876E+00 -1.284030E+01 0.0 0 224 2 -9.596405E-01 9.042706E+00 2.148053E+01 0.0 -1.437988E-01 7.436214E+00 2.317657E+01 0.0 8.052795E-01 -1.713679E+01 -4.381140E+01 0.0 0 224 3 -2.453766E+00 5.825287E+00 1.455275E+01 0.0 4.268341E-01 8.568827E+00 1.807416E+01 0.0 1.802342E+00 -1.477696E+01 -3.152820E+01 0.0 0 224 4 -2.301132E+00 3.386824E+00 3.917900E+00 0.0 1.573257E-01 6.359632E+00 7.737366E+00 0.0 1.983638E+00 -9.792696E+00 -1.067743E+01 0.0 0 224 5 -1.802425E+00 1.815578E+00 6.246262E-01 0.0 -8.992004E-02 4.081753E+00 4.023159E+00 0.0 1.772654E+00 -5.773294E+00 -3.920929E+00 0.0 0 224 6 -1.316729E+00 8.180106E-01 -4.140034E-01 0.0 -1.625042E-01 2.544060E+00 2.228346E+00 0.0 1.374261E+00 -3.187034E+00 -1.327583E+00 0.0 0 224 7 -9.391222E-01 2.879843E-01 -6.692047E-01 0.0 -1.659937E-01 1.608877E+00 1.281251E+00 0.0 1.007699E+00 -1.733775E+00 -2.990990E-01 0.0 0 224 8 -6.666684E-01 2.965319E-02 -6.509752E-01 0.0 -1.472058E-01 1.042588E+00 7.630424E-01 0.0 7.242216E-01 -9.398618E-01 8.472633E-02 0.0 0 224 9 -4.735279E-01 -8.372676E-02 -5.501924E-01 0.0 -1.234822E-01 6.898853E-01 4.684696E-01 0.0 5.165030E-01 -5.063852E-01 2.032528E-01 0.0 0 224 10 -3.372560E-01 -1.251759E-01 -4.374101E-01 0.0 -1.004755E-01 4.668085E-01 2.950997E-01 0.0 3.670917E-01 -2.690884E-01 2.156258E-01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 169 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 224 0.0000 -1.133890E+01 0.0 4.522888E+01 0.0 -7.654405E-02 0.0 6.412942E+01 0.0 9.411248E+00 0.0 -1.042821E+02 0.0 0 224 3.5810 -1.073113E+01 4.257949E+00 4.497995E+01 0.0 -5.766675E-04 8.350125E+00 6.268713E+01 0.0 8.798473E+00 -1.246550E+01 -1.028028E+02 0.0 0 224 7.1620 -9.018292E+00 8.326126E+00 4.416251E+01 0.0 2.054824E-01 1.581253E+01 5.851857E+01 0.0 7.077121E+00 -2.392252E+01 -9.841920E+01 0.0 0 225 0 -2.029221E+00 0.0 -4.137085E+00 0.0 1.413203E+00 0.0 5.195583E+00 0.0 3.784370E-01 0.0 -1.058472E+00 0.0 0 225 1 -1.835541E+00 6.252901E+00 6.173874E+00 0.0 1.156591E+00 -4.425917E+00 -1.835927E+00 0.0 4.354057E-01 -2.070605E+00 -4.181358E+00 0.0 0 225 2 -1.331528E+00 9.627117E+00 3.554376E+01 0.0 3.465595E-01 -5.650212E+00 -2.195150E+01 0.0 5.247803E-01 -4.825873E+00 -1.310229E+01 0.0 0 225 3 -2.319275E+00 5.256215E+00 3.281248E+01 0.0 6.262054E-01 6.318337E-01 -1.912624E+01 0.0 7.469254E-01 -7.896241E+00 -1.324654E+01 0.0 0 225 4 -3.107826E+00 1.628371E+00 1.403998E+01 0.0 1.231009E+00 3.366728E+00 -5.716675E+00 0.0 9.993057E-01 -6.875951E+00 -8.100082E+00 0.0 0 225 5 -3.093445E+00 -5.728672E-01 6.178688E+00 0.0 1.395177E+00 4.197927E+00 -5.673409E-01 0.0 9.541340E-01 -5.138446E+00 -5.619793E+00 0.0 0 225 6 -2.718349E+00 -1.493958E+00 2.505960E+00 0.0 1.317551E+00 4.012355E+00 1.377085E+00 0.0 7.768784E-01 -3.712872E+00 -4.045664E+00 0.0 0 225 7 -2.237072E+00 -1.669078E+00 7.843266E-01 0.0 1.129854E+00 3.404669E+00 1.928138E+00 0.0 5.910406E-01 -2.676412E+00 -2.947059E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 170 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 225 8 -1.775590E+00 -1.530174E+00 1.534557E-02 0.0 9.182101E-01 2.730045E+00 1.892094E+00 0.0 4.343987E-01 -1.940562E+00 -2.161284E+00 0.0 0 225 9 -1.378850E+00 -1.289129E+00 -2.951703E-01 0.0 7.223577E-01 2.121287E+00 1.641862E+00 0.0 3.131950E-01 -1.413954E+00 -1.590400E+00 0.0 0 225 10 -1.055163E+00 -1.037707E+00 -3.889077E-01 0.0 5.560989E-01 1.617080E+00 1.341486E+00 0.0 2.229328E-01 -1.034345E+00 -1.171656E+00 0.0 0 225 0.0000 -2.288186E+01 0.0 9.323325E+01 0.0 1.081282E+01 0.0 -3.582143E+01 0.0 6.377434E+00 0.0 -5.722461E+01 0.0 0 225 3.5810 -2.155191E+01 -4.852749E-01 9.150217E+01 0.0 1.016423E+01 7.558854E+00 -3.612166E+01 0.0 6.028887E+00 -1.026728E+01 -5.506821E+01 0.0 0 225 7.1620 -1.784423E+01 -2.028536E-01 8.638629E+01 0.0 8.362171E+00 1.344608E+01 -3.677240E+01 0.0 5.051996E+00 -1.912269E+01 -4.896622E+01 0.0 0 226 0 -7.640133E-01 0.0 -3.253309E+00 0.0 1.507174E+00 0.0 -3.304095E+00 0.0 -9.703307E-01 0.0 6.557434E+00 0.0 0 226 1 -8.412552E-01 4.334895E+00 3.625961E+00 0.0 1.308380E+00 1.379320E+00 6.737938E-01 0.0 -6.970674E-01 -5.944380E+00 -4.156235E+00 0.0 0 226 2 -1.373199E+00 6.046837E+00 2.433893E+01 0.0 4.232788E-01 1.440662E+00 1.333655E+01 0.0 4.048436E-01 -8.631841E+00 -3.727216E+01 0.0 0 226 3 -2.208191E+00 7.482214E-01 2.463477E+01 0.0 1.501465E-01 -7.106938E-01 1.477982E+01 0.0 9.182062E-01 -3.512650E+00 -3.924133E+01 0.0 0 226 4 -2.112869E+00 -1.853367E+00 1.086143E+01 0.0 6.277466E-01 -2.071966E+00 7.142700E+00 0.0 6.492027E-01 4.779382E-01 -1.816330E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 171 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 226 5 -1.749168E+00 -2.859186E+00 4.650574E+00 0.0 8.045578E-01 -2.619806E+00 3.357517E+00 0.0 4.123512E-01 2.600551E+00 -8.443451E+00 0.0 0 226 6 -1.356522E+00 -2.976260E+00 1.764282E+00 0.0 8.118744E-01 -2.521895E+00 1.381203E+00 0.0 2.041663E-01 3.161603E+00 -3.723495E+00 0.0 0 226 7 -1.022869E+00 -2.656482E+00 4.383202E-01 0.0 7.311020E-01 -2.165123E+00 3.881741E-01 0.0 7.076101E-02 2.945596E+00 -1.437721E+00 0.0 0 226 8 -7.629375E-01 -2.210503E+00 -1.345177E-01 0.0 6.191330E-01 -1.760234E+00 -7.597828E-02 0.0 -1.387075E-03 2.474270E+00 -3.711548E-01 0.0 0 226 9 -5.659924E-01 -1.769518E+00 -3.494873E-01 0.0 5.054836E-01 -1.391980E+00 -2.682772E-01 0.0 -3.547037E-02 1.974022E+00 9.609413E-02 0.0 0 226 10 -4.186554E-01 -1.384348E+00 -3.984537E-01 0.0 4.030933E-01 -1.080488E+00 -3.246527E-01 0.0 -4.810743E-02 1.528361E+00 2.729626E-01 0.0 0 226 0.0000 -1.317567E+01 0.0 6.617850E+01 0.0 7.891970E+00 0.0 3.708675E+01 0.0 9.071680E-01 0.0 -1.058824E+02 0.0 0 226 3.5810 -1.252386E+01 -5.202508E+00 6.496861E+01 0.0 7.469843E+00 -5.244221E+00 3.631713E+01 0.0 8.429998E-01 4.354751E+00 -1.035489E+02 0.0 0 226 7.1620 -1.069314E+01 -9.089037E+00 6.137556E+01 0.0 6.300782E+00 -9.401474E+00 3.403056E+01 0.0 6.523561E-01 7.316932E+00 -9.670028E+01 0.0 0 227 0 -7.302408E-01 0.0 -2.074906E+00 0.0 -1.146097E+00 0.0 -7.554766E+00 0.0 1.757936E+00 0.0 9.629625E+00 0.0 0 227 1 -4.997330E-01 -3.087148E-01 -1.999222E+00 0.0 -1.126259E+00 3.421432E+00 9.353638E-02 0.0 1.490860E+00 -3.247819E+00 1.989807E+00 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 172 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 227 2 9.519653E-01 -1.198912E+00 -1.422729E+00 0.0 -9.499512E-01 3.720210E+00 2.558563E+01 0.0 -4.700928E-01 -3.424251E+00 -2.396710E+01 0.0 0 227 3 2.756500E+00 -2.850703E+00 -1.214752E+00 0.0 -9.927979E-01 -1.805847E+00 3.058447E+01 0.0 -2.825684E+00 1.648291E+00 -2.942914E+01 0.0 0 227 4 2.219482E+00 -2.935773E+00 -1.609680E+00 0.0 -1.083588E+00 -4.464221E+00 1.490561E+01 0.0 -1.987762E+00 4.357361E+00 -1.363165E+01 0.0 0 227 5 1.493896E+00 -2.538537E+00 -1.755280E+00 0.0 -1.045662E+00 -5.312507E+00 6.872742E+00 0.0 -1.065659E+00 5.288990E+00 -5.659302E+00 0.0 0 227 6 9.257965E-01 -2.050788E+00 -1.671143E+00 0.0 -9.295654E-01 -4.988721E+00 2.758652E+00 0.0 -4.457703E-01 4.961086E+00 -1.713837E+00 0.0 0 227 7 5.451088E-01 -1.609336E+00 -1.460258E+00 0.0 -7.784309E-01 -4.210910E+00 7.342606E-01 0.0 -9.746552E-02 4.161744E+00 1.038208E-01 0.0 0 227 8 3.059845E-01 -1.244762E+00 -1.212772E+00 0.0 -6.272659E-01 -3.377612E+00 -1.906853E-01 0.0 7.497787E-02 3.311037E+00 8.318710E-01 0.0 0 227 9 1.608620E-01 -9.534847E-01 -9.758949E-01 0.0 -4.929733E-01 -2.634632E+00 -5.605335E-01 0.0 1.474075E-01 2.558521E+00 1.035305E+00 0.0 0 227 10 7.513618E-02 -7.263487E-01 -7.688713E-01 0.0 -3.807497E-01 -2.019489E+00 -6.590672E-01 0.0 1.665249E-01 1.942807E+00 1.002274E+00 0.0 0 227 0.0000 8.204759E+00 0.0 -1.616551E+01 0.0 -9.553340E+00 0.0 7.256986E+01 0.0 -3.254727E+00 0.0 -5.980833E+01 0.0 0 227 3.5810 7.816518E+00 -5.170157E+00 -1.529632E+01 0.0 -9.079361E+00 -1.021413E+01 7.101118E+01 0.0 -3.114250E+00 1.005051E+01 -5.875304E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 173 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 F O R C E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL CIRCUMFERENTIAL AXIAL CHARGE ID. NUMBER ANGLE (R) (THETA-T) (Z) 0 227 7.1620 6.705687E+00 -9.502197E+00 -1.288070E+01 0.0 -7.757367E+00 -1.833145E+01 6.637836E+01 0.0 -2.688328E+00 1.804958E+01 -5.553005E+01 0.0 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 174 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 111 0 1.939E-01 2.403E+00 -1.735E+00 3.247E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.714E-01 1.291E+00 -2.174E+00 3.456E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.534E-01 8.074E-01 -2.304E+00 -2.501E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.437E-01 2.474E+00 -1.647E+00 -2.814E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.175E-02 1.744E+00 -1.965E+00 3.471E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 111 1 4.275E-01 3.613E+00 -3.114E+00 6.837E-01 8.533E-03 -9.245E-02 0.000E+00 0.000E+00 0.000E+00 -5.929E-01 1.229E+00 -4.131E+00 7.314E-01 6.976E-03 -5.900E-02 0.000E+00 0.000E+00 0.000E+00 -7.628E-01 1.987E-01 -4.442E+00 -5.231E-01 5.081E-02 -5.942E-02 0.000E+00 0.000E+00 0.000E+00 7.636E-01 3.770E+00 -2.926E+00 -5.947E-01 5.595E-02 -1.364E-01 0.000E+00 0.000E+00 0.000E+00 -4.129E-02 2.203E+00 -3.654E+00 7.434E-02 3.065E-02 -8.785E-02 0.000E+00 0.000E+00 0.000E+00 0 111 2 8.780E-01 2.211E+00 1.470E+00 8.432E-01 3.501E-02 -2.458E-01 0.000E+00 0.000E+00 0.000E+00 -1.158E+00 -1.505E+00 -1.599E+00 9.588E-01 3.687E-02 -1.258E-01 0.000E+00 0.000E+00 0.000E+00 -1.375E+00 -2.997E+00 -2.711E+00 -5.592E-01 2.128E-01 -3.114E-02 0.000E+00 0.000E+00 0.000E+00 1.650E+00 2.550E+00 1.827E+00 -7.325E-01 2.228E-01 -2.758E-01 0.000E+00 0.000E+00 0.000E+00 -6.543E-03 5.925E-02 -2.652E-01 1.276E-01 1.273E-01 -1.721E-01 0.000E+00 0.000E+00 0.000E+00 0 111 3 1.653E+00 6.147E+00 1.099E+01 9.020E-01 8.386E-02 -3.757E-01 0.000E+00 0.000E+00 0.000E+00 -2.107E+00 6.171E-01 3.982E+00 1.134E+00 1.374E-01 -7.680E-02 0.000E+00 0.000E+00 0.000E+00 -2.385E+00 -1.416E+00 1.321E+00 -4.101E-01 6.272E-01 1.048E-01 0.000E+00 0.000E+00 0.000E+00 3.164E+00 6.790E+00 1.162E+01 -7.577E-01 5.840E-01 -4.460E-01 0.000E+00 0.000E+00 0.000E+00 6.456E-02 3.018E+00 6.938E+00 2.170E-01 3.597E-01 -2.023E-01 0.000E+00 0.000E+00 0.000E+00 0 111 4 1.479E+00 6.962E+00 1.081E+01 7.551E-01 9.481E-02 -3.678E-01 0.000E+00 0.000E+00 0.000E+00 -1.864E+00 2.151E+00 4.478E+00 9.590E-01 1.741E-01 -2.115E-02 0.000E+00 0.000E+00 0.000E+00 -2.111E+00 4.053E-01 2.085E+00 -3.152E-01 7.511E-01 1.361E-01 0.000E+00 0.000E+00 0.000E+00 2.790E+00 7.508E+00 1.132E+01 -6.210E-01 6.761E-01 -4.981E-01 0.000E+00 0.000E+00 0.000E+00 5.683E-02 4.240E+00 7.135E+00 1.945E-01 4.261E-01 -1.921E-01 0.000E+00 0.000E+00 0.000E+00 0 111 5 1.215E+00 6.049E+00 9.254E+00 5.978E-01 9.488E-02 -3.358E-01 0.000E+00 0.000E+00 0.000E+00 -1.509E+00 2.175E+00 4.050E+00 7.600E-01 1.820E-01 1.128E-02 0.000E+00 0.000E+00 0.000E+00 -1.721E+00 7.801E-01 2.104E+00 -2.377E-01 7.639E-01 1.524E-01 0.000E+00 0.000E+00 0.000E+00 2.236E+00 6.463E+00 9.612E+00 -4.810E-01 6.767E-01 -4.804E-01 0.000E+00 0.000E+00 0.000E+00 4.040E-02 3.852E+00 6.220E+00 1.598E-01 4.316E-01 -1.675E-01 0.000E+00 0.000E+00 0.000E+00 0 111 6 9.891E-01 4.960E+00 7.748E+00 4.595E-01 9.118E-02 -2.974E-01 0.000E+00 0.000E+00 0.000E+00 -1.207E+00 1.890E+00 3.498E+00 5.860E-01 1.786E-01 3.182E-02 0.000E+00 0.000E+00 0.000E+00 -1.390E+00 7.955E-01 1.926E+00 -1.702E-01 7.350E-01 1.594E-01 0.000E+00 0.000E+00 0.000E+00 1.768E+00 5.265E+00 7.984E+00 -3.599E-01 6.449E-01 -4.370E-01 0.000E+00 0.000E+00 0.000E+00 2.621E-02 3.214E+00 5.257E+00 1.289E-01 4.144E-01 -1.398E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 175 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 111 7 8.094E-01 4.000E+00 6.443E+00 3.513E-01 8.577E-02 -2.609E-01 0.000E+00 0.000E+00 0.000E+00 -9.674E-01 1.564E+00 2.956E+00 4.494E-01 1.698E-01 4.328E-02 0.000E+00 0.000E+00 0.000E+00 -1.129E+00 7.054E-01 1.685E+00 -1.200E-01 6.877E-01 1.586E-01 0.000E+00 0.000E+00 0.000E+00 1.396E+00 4.219E+00 6.585E+00 -2.670E-01 5.992E-01 -3.879E-01 0.000E+00 0.000E+00 0.000E+00 1.486E-02 2.610E+00 4.388E+00 1.034E-01 3.875E-01 -1.152E-01 0.000E+00 0.000E+00 0.000E+00 0 111 8 6.681E-01 3.217E+00 5.359E+00 2.694E-01 7.988E-02 -2.280E-01 0.000E+00 0.000E+00 0.000E+00 -7.800E-01 1.270E+00 2.479E+00 3.452E-01 1.585E-01 4.888E-02 0.000E+00 0.000E+00 0.000E+00 -9.238E-01 5.926E-01 1.445E+00 -8.449E-02 6.338E-01 1.533E-01 0.000E+00 0.000E+00 0.000E+00 1.106E+00 3.370E+00 5.432E+00 -1.983E-01 5.493E-01 -3.402E-01 0.000E+00 0.000E+00 0.000E+00 6.179E-03 2.101E+00 3.652E+00 8.296E-02 3.571E-01 -9.455E-02 0.000E+00 0.000E+00 0.000E+00 0 111 9 5.561E-01 2.591E+00 4.468E+00 2.073E-01 7.374E-02 -1.989E-01 0.000E+00 0.000E+00 0.000E+00 -6.328E-01 1.024E+00 2.073E+00 2.659E-01 1.463E-01 5.080E-02 0.000E+00 0.000E+00 0.000E+00 -7.624E-01 4.856E-01 1.228E+00 -5.966E-02 5.783E-01 1.453E-01 0.000E+00 0.000E+00 0.000E+00 8.791E-01 2.695E+00 4.490E+00 -1.475E-01 4.989E-01 -2.960E-01 0.000E+00 0.000E+00 0.000E+00 -3.928E-04 1.689E+00 3.040E+00 6.651E-02 3.258E-01 -7.731E-02 0.000E+00 0.000E+00 0.000E+00 0 111 10 4.657E-01 2.092E+00 3.732E+00 1.601E-01 6.766E-02 -1.731E-01 0.000E+00 0.000E+00 0.000E+00 -5.157E-01 8.228E-01 1.730E+00 2.051E-01 1.338E-01 5.036E-02 0.000E+00 0.000E+00 0.000E+00 -6.330E-01 3.927E-01 1.038E+00 -4.235E-02 5.234E-01 1.357E-01 0.000E+00 0.000E+00 0.000E+00 7.001E-01 2.158E+00 3.717E+00 -1.099E-01 4.497E-01 -2.559E-01 0.000E+00 0.000E+00 0.000E+00 -5.228E-03 1.357E+00 2.532E+00 5.323E-02 2.950E-01 -6.295E-02 0.000E+00 0.000E+00 0.000E+00 0 111 0.0000 9.334E+00 4.425E+01 5.542E+01 5.554E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.161E+01 1.253E+01 1.734E+01 6.740E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.355E+01 7.505E-01 3.374E+00 -2.772E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.680E+01 4.726E+01 5.801E+01 -4.551E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.338E-01 2.609E+01 3.328E+01 1.243E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 111 7.1000 7.313E+00 3.473E+01 3.986E+01 4.668E+00 4.645E-01 -1.511E+00 0.000E+00 0.000E+00 0.000E+00 -9.201E+00 9.107E+00 1.044E+01 5.614E+00 8.892E-01 1.191E-01 0.000E+00 0.000E+00 0.000E+00 -1.073E+01 -5.205E-01 -3.856E-01 -2.453E+00 3.654E+00 7.923E-01 0.000E+00 0.000E+00 0.000E+00 1.335E+01 3.722E+01 4.212E+01 -3.872E+00 3.214E+00 -2.146E+00 0.000E+00 0.000E+00 0.000E+00 1.044E-01 2.005E+01 2.283E+01 9.892E-01 2.065E+00 -7.058E-01 0.000E+00 0.000E+00 0.000E+00 0 112 0 5.022E-01 1.605E+00 -1.848E+00 2.924E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -8.269E-01 -1.589E+00 -3.085E+00 3.165E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.408E-01 -1.022E+00 -2.829E+00 -2.701E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.450E-01 1.107E+00 -2.005E+00 -2.862E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.296E-01 2.569E-02 -2.441E+00 1.314E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 176 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 112 1 1.139E+00 1.935E+00 -3.400E+00 6.140E-01 8.918E-02 -6.548E-02 0.000E+00 0.000E+00 0.000E+00 -1.774E+00 -4.917E+00 -6.258E+00 6.615E-01 6.187E-02 -5.776E-02 0.000E+00 0.000E+00 0.000E+00 -1.163E+00 -3.708E+00 -5.685E+00 -5.773E-01 5.644E-02 -4.334E-02 0.000E+00 0.000E+00 0.000E+00 7.786E-01 8.592E-01 -3.782E+00 -6.090E-01 7.516E-02 -8.134E-02 0.000E+00 0.000E+00 0.000E+00 -2.547E-01 -1.457E+00 -4.781E+00 2.230E-02 7.047E-02 -6.187E-02 0.000E+00 0.000E+00 0.000E+00 0 112 2 2.659E+00 9.306E-02 2.598E-02 7.175E-01 3.469E-01 -1.477E-01 0.000E+00 0.000E+00 0.000E+00 -3.109E+00 -1.056E+01 -8.545E+00 7.587E-01 2.541E-01 -1.521E-01 0.000E+00 0.000E+00 0.000E+00 -2.052E+00 -8.741E+00 -7.066E+00 -7.752E-01 2.329E-01 -3.740E-02 0.000E+00 0.000E+00 0.000E+00 1.792E+00 -1.640E+00 -1.354E+00 -8.027E-01 2.951E-01 -1.138E-01 0.000E+00 0.000E+00 0.000E+00 -1.926E-01 -5.227E+00 -4.270E+00 -2.544E-02 2.816E-01 -1.125E-01 0.000E+00 0.000E+00 0.000E+00 0 112 3 5.215E+00 3.717E+00 7.109E+00 6.851E-01 8.971E-01 -1.167E-01 0.000E+00 0.000E+00 0.000E+00 -5.306E+00 -1.195E+01 -1.229E+01 7.153E-01 7.729E-01 -1.957E-01 0.000E+00 0.000E+00 0.000E+00 -3.516E+00 -9.344E+00 -9.098E+00 -8.993E-01 6.953E-01 -2.419E-02 0.000E+00 0.000E+00 0.000E+00 3.502E+00 1.107E+00 3.844E+00 -9.194E-01 7.771E-01 -9.768E-02 0.000E+00 0.000E+00 0.000E+00 -7.435E-02 -4.167E+00 -2.720E+00 -1.046E-01 7.847E-01 -1.082E-01 0.000E+00 0.000E+00 0.000E+00 0 112 4 4.556E+00 4.866E+00 7.218E+00 5.648E-01 1.036E+00 -6.126E-02 0.000E+00 0.000E+00 0.000E+00 -4.694E+00 -8.632E+00 -1.012E+01 5.977E-01 9.391E-01 -1.597E-01 0.000E+00 0.000E+00 0.000E+00 -3.113E+00 -6.384E+00 -7.274E+00 -7.351E-01 8.382E-01 -1.928E-02 0.000E+00 0.000E+00 0.000E+00 3.062E+00 2.623E+00 4.303E+00 -7.570E-01 9.017E-01 -9.367E-02 0.000E+00 0.000E+00 0.000E+00 -9.107E-02 -1.926E+00 -1.570E+00 -8.242E-02 9.280E-01 -8.305E-02 0.000E+00 0.000E+00 0.000E+00 0 112 5 3.605E+00 4.333E+00 6.231E+00 4.439E-01 1.036E+00 -2.590E-02 0.000E+00 0.000E+00 0.000E+00 -3.828E+00 -6.409E+00 -7.805E+00 4.804E-01 9.622E-01 -1.279E-01 0.000E+00 0.000E+00 0.000E+00 -2.539E+00 -4.614E+00 -5.502E+00 -5.595E-01 8.546E-01 -6.412E-03 0.000E+00 0.000E+00 0.000E+00 2.427E+00 2.558E+00 3.882E+00 -5.838E-01 9.034E-01 -7.524E-02 0.000E+00 0.000E+00 0.000E+00 -1.194E-01 -1.069E+00 -8.821E-01 -5.477E-02 9.384E-01 -5.842E-02 0.000E+00 0.000E+00 0.000E+00 0 112 6 2.806E+00 3.579E+00 5.208E+00 3.358E-01 9.849E-01 -1.535E-03 0.000E+00 0.000E+00 0.000E+00 -3.093E+00 -4.814E+00 -6.062E+00 3.747E-01 9.309E-01 -1.038E-01 0.000E+00 0.000E+00 0.000E+00 -2.053E+00 -3.407E+00 -4.212E+00 -4.113E-01 8.233E-01 2.046E-04 0.000E+00 0.000E+00 0.000E+00 1.894E+00 2.203E+00 3.334E+00 -4.373E-01 8.601E-01 -5.564E-02 0.000E+00 0.000E+00 0.000E+00 -1.408E-01 -6.387E-01 -5.010E-01 -3.453E-02 8.994E-01 -3.979E-02 0.000E+00 0.000E+00 0.000E+00 0 112 7 2.177E+00 2.885E+00 4.296E+00 2.511E-01 9.132E-01 1.380E-02 0.000E+00 0.000E+00 0.000E+00 -2.510E+00 -3.670E+00 -4.772E+00 2.913E-01 8.749E-01 -8.642E-02 0.000E+00 0.000E+00 0.000E+00 -1.666E+00 -2.565E+00 -3.283E+00 -2.992E-01 7.710E-01 2.050E-03 0.000E+00 0.000E+00 0.000E+00 1.474E+00 1.821E+00 2.800E+00 -3.260E-01 7.983E-01 -3.960E-02 0.000E+00 0.000E+00 0.000E+00 -1.549E-01 -4.060E-01 -2.951E-01 -2.071E-02 8.391E-01 -2.719E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 177 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 112 8 1.692E+00 2.307E+00 3.532E+00 1.872E-01 8.350E-01 2.305E-02 0.000E+00 0.000E+00 0.000E+00 -2.053E+00 -2.839E+00 -3.804E+00 2.277E-01 8.095E-01 -7.364E-02 0.000E+00 0.000E+00 0.000E+00 -1.364E+00 -1.967E+00 -2.599E+00 -2.171E-01 7.110E-01 1.563E-03 0.000E+00 0.000E+00 0.000E+00 1.151E+00 1.482E+00 2.334E+00 -2.441E-01 7.307E-01 -2.707E-02 0.000E+00 0.000E+00 0.000E+00 -1.630E-01 -2.739E-01 -1.800E-01 -1.158E-02 7.713E-01 -1.872E-02 0.000E+00 0.000E+00 0.000E+00 0 112 9 1.317E+00 1.840E+00 2.903E+00 1.392E-01 7.564E-01 2.831E-02 0.000E+00 0.000E+00 0.000E+00 -1.692E+00 -2.223E+00 -3.062E+00 1.793E-01 7.412E-01 -6.378E-02 0.000E+00 0.000E+00 0.000E+00 -1.125E+00 -1.530E+00 -2.082E+00 -1.572E-01 6.490E-01 1.157E-04 0.000E+00 0.000E+00 0.000E+00 9.002E-01 1.198E+00 1.940E+00 -1.838E-01 6.626E-01 -1.738E-02 0.000E+00 0.000E+00 0.000E+00 -1.661E-01 -1.948E-01 -1.127E-01 -5.621E-03 7.022E-01 -1.292E-02 0.000E+00 0.000E+00 0.000E+00 0 112 10 1.024E+00 1.466E+00 2.385E+00 1.032E-01 6.799E-01 3.092E-02 0.000E+00 0.000E+00 0.000E+00 -1.403E+00 -1.756E+00 -2.480E+00 1.421E-01 6.731E-01 -5.578E-02 0.000E+00 0.000E+00 0.000E+00 -9.336E-01 -1.203E+00 -1.680E+00 -1.132E-01 5.876E-01 -1.577E-03 0.000E+00 0.000E+00 0.000E+00 7.044E-01 9.659E-01 1.611E+00 -1.392E-01 5.963E-01 -9.944E-03 0.000E+00 0.000E+00 0.000E+00 -1.654E-01 -1.450E-01 -7.188E-02 -1.789E-03 6.341E-01 -8.877E-03 0.000E+00 0.000E+00 0.000E+00 0 112 0.0000 2.669E+01 2.863E+01 3.366E+01 4.334E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.029E+01 -5.936E+01 -6.828E+01 4.745E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.007E+01 -4.449E+01 -5.131E+01 -5.014E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.803E+01 1.428E+01 1.691E+01 -5.288E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.652E+00 -1.548E+01 -1.782E+01 -3.060E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 112 7.1000 2.132E+01 2.194E+01 2.345E+01 3.701E+00 4.900E+00 -4.747E-02 0.000E+00 0.000E+00 0.000E+00 -2.402E+01 -4.968E+01 -5.607E+01 4.006E+00 4.633E+00 -5.736E-01 0.000E+00 0.000E+00 0.000E+00 -1.590E+01 -3.756E+01 -4.278E+01 -4.256E+00 4.090E+00 -3.459E-02 0.000E+00 0.000E+00 0.000E+00 1.439E+01 1.024E+01 1.038E+01 -4.459E+00 4.279E+00 -2.772E-01 0.000E+00 0.000E+00 0.000E+00 -1.236E+00 -1.395E+01 -1.669E+01 -2.521E-01 4.474E+00 -2.313E-01 0.000E+00 0.000E+00 0.000E+00 0 113 0 9.134E-02 -1.208E+00 -2.696E+00 3.563E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.611E-01 -2.300E+00 -3.112E+00 3.031E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.996E-01 -2.438E+00 -3.236E+00 -2.962E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.805E-02 -7.980E-01 -2.605E+00 -2.163E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.468E-01 -1.686E+00 -2.912E+00 3.671E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 113 1 2.319E-01 -4.082E+00 -5.406E+00 7.519E-01 1.904E-02 -5.685E-02 0.000E+00 0.000E+00 0.000E+00 -7.563E-01 -6.420E+00 -6.363E+00 6.407E-01 3.510E-03 -2.963E-02 0.000E+00 0.000E+00 0.000E+00 -1.464E+00 -6.710E+00 -6.624E+00 -6.238E-01 3.977E-02 1.023E-02 0.000E+00 0.000E+00 0.000E+00 2.335E-02 -3.200E+00 -5.177E+00 -4.570E-01 5.984E-02 -5.477E-02 0.000E+00 0.000E+00 0.000E+00 -4.914E-01 -5.103E+00 -5.893E+00 7.794E-02 3.060E-02 -3.168E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 178 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 113 2 7.594E-01 -8.930E+00 -6.895E+00 9.673E-01 6.833E-02 -1.513E-01 0.000E+00 0.000E+00 0.000E+00 -1.140E+00 -1.250E+01 -9.663E+00 8.065E-01 1.276E-02 -5.208E-02 0.000E+00 0.000E+00 0.000E+00 -2.170E+00 -1.292E+01 -1.006E+01 -7.555E-01 1.611E-01 1.202E-01 0.000E+00 0.000E+00 0.000E+00 6.848E-01 -7.568E+00 -5.893E+00 -5.144E-01 2.363E-01 -8.701E-02 0.000E+00 0.000E+00 0.000E+00 -4.703E-01 -1.048E+01 -8.135E+00 1.260E-01 1.197E-01 -3.993E-02 0.000E+00 0.000E+00 0.000E+00 0 113 3 1.632E+00 -9.010E+00 -9.323E+00 1.120E+00 1.585E-01 -2.122E-01 0.000E+00 0.000E+00 0.000E+00 -1.787E+00 -1.419E+01 -1.555E+01 8.791E-01 5.022E-02 5.626E-02 0.000E+00 0.000E+00 0.000E+00 -3.329E+00 -1.483E+01 -1.613E+01 -7.686E-01 4.884E-01 3.071E-01 0.000E+00 0.000E+00 0.000E+00 1.791E+00 -7.070E+00 -6.824E+00 -4.076E-01 6.338E-01 -1.882E-01 0.000E+00 0.000E+00 0.000E+00 -4.335E-01 -1.128E+01 -1.198E+01 2.057E-01 3.329E-01 -5.014E-03 0.000E+00 0.000E+00 0.000E+00 0 113 4 1.411E+00 -6.045E+00 -7.511E+00 9.500E-01 1.772E-01 -1.861E-01 0.000E+00 0.000E+00 0.000E+00 -1.624E+00 -1.054E+01 -1.314E+01 7.328E-01 6.607E-02 1.347E-01 0.000E+00 0.000E+00 0.000E+00 -3.004E+00 -1.110E+01 -1.364E+01 -6.339E-01 5.936E-01 3.622E-01 0.000E+00 0.000E+00 0.000E+00 1.511E+00 -4.402E+00 -5.292E+00 -3.081E-01 7.398E-01 -2.226E-01 0.000E+00 0.000E+00 0.000E+00 -4.346E-01 -8.031E+00 -9.914E+00 1.852E-01 3.944E-01 2.673E-02 0.000E+00 0.000E+00 0.000E+00 0 113 5 1.089E+00 -4.330E+00 -5.707E+00 7.583E-01 1.744E-01 -1.579E-01 0.000E+00 0.000E+00 0.000E+00 -1.383E+00 -7.946E+00 -1.033E+01 5.748E-01 7.047E-02 1.684E-01 0.000E+00 0.000E+00 0.000E+00 -2.536E+00 -8.411E+00 -1.073E+01 -4.972E-01 6.087E-01 3.746E-01 0.000E+00 0.000E+00 0.000E+00 1.109E+00 -3.051E+00 -3.939E+00 -2.218E-01 7.423E-01 -2.166E-01 0.000E+00 0.000E+00 0.000E+00 -4.356E-01 -5.940E+00 -7.689E+00 1.535E-01 3.994E-01 4.669E-02 0.000E+00 0.000E+00 0.000E+00 0 113 6 8.177E-01 -3.165E+00 -4.394E+00 5.902E-01 1.641E-01 -1.347E-01 0.000E+00 0.000E+00 0.000E+00 -1.175E+00 -6.026E+00 -8.175E+00 4.361E-01 7.014E-02 1.783E-01 0.000E+00 0.000E+00 0.000E+00 -2.131E+00 -6.405E+00 -8.480E+00 -3.784E-01 5.895E-01 3.582E-01 0.000E+00 0.000E+00 0.000E+00 7.760E-01 -2.194E+00 -3.000E+00 -1.473E-01 7.075E-01 -2.043E-01 0.000E+00 0.000E+00 0.000E+00 -4.314E-01 -4.451E+00 -6.020E+00 1.251E-01 3.834E-01 5.352E-02 0.000E+00 0.000E+00 0.000E+00 0 113 7 6.052E-01 -2.359E+00 -3.444E+00 4.579E-01 1.511E-01 -1.168E-01 0.000E+00 0.000E+00 0.000E+00 -1.006E+00 -4.626E+00 -6.549E+00 3.279E-01 6.770E-02 1.750E-01 0.000E+00 0.000E+00 0.000E+00 -1.803E+00 -4.935E+00 -6.783E+00 -2.871E-01 5.551E-01 3.287E-01 0.000E+00 0.000E+00 0.000E+00 5.205E-01 -1.628E+00 -2.346E+00 -9.215E-02 6.571E-01 -1.910E-01 0.000E+00 0.000E+00 0.000E+00 -4.224E-01 -3.388E+00 -4.784E+00 1.016E-01 3.583E-01 5.260E-02 0.000E+00 0.000E+00 0.000E+00 0 113 8 4.432E-01 -1.790E+00 -2.741E+00 3.567E-01 1.375E-01 -1.028E-01 0.000E+00 0.000E+00 0.000E+00 -8.707E-01 -3.600E+00 -5.310E+00 2.462E-01 6.413E-02 1.651E-01 0.000E+00 0.000E+00 0.000E+00 -1.539E+00 -3.854E+00 -5.489E+00 -2.191E-01 5.147E-01 2.951E-01 0.000E+00 0.000E+00 0.000E+00 3.296E-01 -1.241E+00 -1.873E+00 -5.336E-02 6.017E-01 -1.777E-01 0.000E+00 0.000E+00 0.000E+00 -4.095E-01 -2.622E+00 -3.854E+00 8.261E-02 3.302E-01 4.807E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 179 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 113 9 3.199E-01 -1.379E+00 -2.205E+00 2.793E-01 1.240E-01 -9.129E-02 0.000E+00 0.000E+00 0.000E+00 -7.598E-01 -2.835E+00 -4.348E+00 1.847E-01 6.009E-02 1.522E-01 0.000E+00 0.000E+00 0.000E+00 -1.324E+00 -3.045E+00 -4.482E+00 -1.685E-01 4.727E-01 2.613E-01 0.000E+00 0.000E+00 0.000E+00 1.881E-01 -9.676E-01 -1.519E+00 -2.661E-02 5.458E-01 -1.645E-01 0.000E+00 0.000E+00 0.000E+00 -3.933E-01 -2.056E+00 -3.137E+00 6.723E-02 3.014E-01 4.210E-02 0.000E+00 0.000E+00 0.000E+00 0 113 10 2.259E-01 -1.073E+00 -1.786E+00 2.196E-01 1.111E-01 -8.145E-02 0.000E+00 0.000E+00 0.000E+00 -6.670E-01 -2.253E+00 -3.583E+00 1.382E-01 5.589E-02 1.381E-01 0.000E+00 0.000E+00 0.000E+00 -1.146E+00 -2.427E+00 -3.684E+00 -1.306E-01 4.307E-01 2.291E-01 0.000E+00 0.000E+00 0.000E+00 8.376E-02 -7.670E-01 -1.244E+00 -8.456E-03 4.913E-01 -1.515E-01 0.000E+00 0.000E+00 0.000E+00 -3.745E-01 -1.629E+00 -2.571E+00 5.470E-02 2.729E-01 3.582E-02 0.000E+00 0.000E+00 0.000E+00 0 113 0.0000 7.627E+00 -4.337E+01 -5.211E+01 6.807E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.153E+01 -7.323E+01 -8.612E+01 5.270E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.114E+01 -7.708E+01 -8.933E+01 -4.759E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.999E+00 -3.289E+01 -3.971E+01 -2.453E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.543E+00 -5.667E+01 -6.689E+01 1.216E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 113 7.1000 6.157E+00 -3.694E+01 -4.320E+01 5.657E+00 8.200E-01 -7.267E-01 0.000E+00 0.000E+00 0.000E+00 -8.981E+00 -6.112E+01 -6.948E+01 4.446E+00 3.537E-01 8.254E-01 0.000E+00 0.000E+00 0.000E+00 -1.660E+01 -6.420E+01 -7.213E+01 -4.027E+00 2.942E+00 1.723E+00 0.000E+00 0.000E+00 0.000E+00 5.768E+00 -2.828E+01 -3.350E+01 -2.212E+00 3.517E+00 -1.052E+00 0.000E+00 0.000E+00 0.000E+00 -3.441E+00 -4.766E+01 -5.464E+01 9.661E-01 1.911E+00 2.125E-01 0.000E+00 0.000E+00 0.000E+00 0 121 0 3.024E-01 2.378E+00 -1.688E+00 3.514E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.207E-01 6.506E-01 -2.371E+00 3.326E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.255E-01 1.228E+00 -2.094E+00 -2.889E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.575E-01 2.380E+00 -1.637E+00 -2.764E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.152E-02 1.659E+00 -1.948E+00 2.965E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 121 1 6.843E-01 3.585E+00 -3.005E+00 7.363E-01 5.595E-02 -2.691E-01 0.000E+00 0.000E+00 0.000E+00 -8.952E-01 -1.104E-01 -4.575E+00 6.901E-01 5.083E-02 -2.436E-01 0.000E+00 0.000E+00 0.000E+00 -5.037E-01 1.102E+00 -3.981E+00 -6.172E-01 5.981E-03 -2.760E-01 0.000E+00 0.000E+00 0.000E+00 5.515E-01 3.568E+00 -2.930E+00 -5.863E-01 7.965E-03 -3.117E-01 0.000E+00 0.000E+00 0.000E+00 -4.086E-02 2.036E+00 -3.623E+00 5.571E-02 3.026E-02 -2.738E-01 0.000E+00 0.000E+00 0.000E+00 0 121 2 1.580E+00 2.387E+00 1.758E+00 8.815E-01 2.227E-01 -5.583E-01 0.000E+00 0.000E+00 0.000E+00 -1.503E+00 -3.295E+00 -2.839E+00 7.348E-01 2.129E-01 -5.543E-01 0.000E+00 0.000E+00 0.000E+00 -1.075E+00 -1.634E+00 -1.485E+00 -8.402E-01 3.473E-02 -5.383E-01 0.000E+00 0.000E+00 0.000E+00 9.927E-01 2.166E+00 1.610E+00 -7.424E-01 3.366E-02 -5.858E-01 0.000E+00 0.000E+00 0.000E+00 -6.216E-03 -9.891E-02 -2.504E-01 8.419E-03 1.264E-01 -5.561E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 180 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 121 3 3.106E+00 6.655E+00 1.156E+01 9.150E-01 5.842E-01 -6.173E-01 0.000E+00 0.000E+00 0.000E+00 -2.509E+00 -1.704E+00 1.197E+00 5.983E-01 6.274E-01 -7.683E-01 0.000E+00 0.000E+00 0.000E+00 -2.031E+00 4.808E-01 4.039E+00 -1.010E+00 1.342E-01 -7.138E-01 0.000E+00 0.000E+00 0.000E+00 1.757E+00 6.097E+00 1.105E+01 -7.991E-01 8.191E-02 -6.846E-01 0.000E+00 0.000E+00 0.000E+00 6.536E-02 2.867E+00 6.925E+00 -7.394E-02 3.585E-01 -6.911E-01 0.000E+00 0.000E+00 0.000E+00 0 121 4 2.743E+00 7.400E+00 1.127E+01 7.763E-01 6.759E-01 -5.503E-01 0.000E+00 0.000E+00 0.000E+00 -2.227E+00 1.360E-01 1.970E+00 5.041E-01 7.513E-01 -7.337E-01 0.000E+00 0.000E+00 0.000E+00 -1.795E+00 2.013E+00 4.481E+00 -8.387E-01 1.693E-01 -7.193E-01 0.000E+00 0.000E+00 0.000E+00 1.570E+00 6.908E+00 1.081E+01 -6.573E-01 9.203E-02 -6.774E-01 0.000E+00 0.000E+00 0.000E+00 5.792E-02 4.099E+00 7.098E+00 -5.392E-02 4.241E-01 -6.647E-01 0.000E+00 0.000E+00 0.000E+00 0 121 5 2.202E+00 6.382E+00 9.577E+00 6.267E-01 6.769E-01 -4.636E-01 0.000E+00 0.000E+00 0.000E+00 -1.824E+00 5.388E-01 2.001E+00 4.174E-01 7.640E-01 -6.495E-01 0.000E+00 0.000E+00 0.000E+00 -1.449E+00 2.043E+00 4.014E+00 -6.487E-01 1.763E-01 -6.495E-01 0.000E+00 0.000E+00 0.000E+00 1.290E+00 5.994E+00 9.195E+00 -5.092E-01 9.185E-02 -6.053E-01 0.000E+00 0.000E+00 0.000E+00 4.158E-02 3.726E+00 6.166E+00 -2.847E-02 4.292E-01 -5.865E-01 0.000E+00 0.000E+00 0.000E+00 0 121 6 1.743E+00 5.207E+00 7.959E+00 4.914E-01 6.449E-01 -3.744E-01 0.000E+00 0.000E+00 0.000E+00 -1.480E+00 5.859E-01 1.837E+00 3.339E-01 7.351E-01 -5.596E-01 0.000E+00 0.000E+00 0.000E+00 -1.157E+00 1.769E+00 3.438E+00 -4.872E-01 1.722E-01 -5.613E-01 0.000E+00 0.000E+00 0.000E+00 1.050E+00 4.908E+00 7.655E+00 -3.822E-01 8.796E-02 -5.115E-01 0.000E+00 0.000E+00 0.000E+00 2.741E-02 3.106E+00 5.196E+00 -1.101E-02 4.119E-01 -4.966E-01 0.000E+00 0.000E+00 0.000E+00 0 121 7 1.379E+00 4.181E+00 6.569E+00 3.831E-01 5.992E-01 -2.983E-01 0.000E+00 0.000E+00 0.000E+00 -1.205E+00 5.271E-01 1.608E+00 2.654E-01 6.878E-01 -4.798E-01 0.000E+00 0.000E+00 0.000E+00 -9.259E-01 1.457E+00 2.884E+00 -3.639E-01 1.630E-01 -4.786E-01 0.000E+00 0.000E+00 0.000E+00 8.564E-01 3.952E+00 6.330E+00 -2.853E-01 8.254E-02 -4.234E-01 0.000E+00 0.000E+00 0.000E+00 1.604E-02 2.519E+00 4.324E+00 -1.860E-04 3.848E-01 -4.155E-01 0.000E+00 0.000E+00 0.000E+00 0 121 8 1.096E+00 3.348E+00 5.423E+00 2.992E-01 5.492E-01 -2.360E-01 0.000E+00 0.000E+00 0.000E+00 -9.879E-01 4.432E-01 1.381E+00 2.114E-01 6.338E-01 -4.116E-01 0.000E+00 0.000E+00 0.000E+00 -7.466E-01 1.178E+00 2.402E+00 -2.725E-01 1.517E-01 -4.062E-01 0.000E+00 0.000E+00 0.000E+00 7.034E-01 3.175E+00 5.238E+00 -2.140E-01 7.653E-02 -3.468E-01 0.000E+00 0.000E+00 0.000E+00 7.223E-03 2.027E+00 3.589E+00 6.029E-03 3.543E-01 -3.462E-01 0.000E+00 0.000E+00 0.000E+00 0 121 9 8.750E-01 2.685E+00 4.486E+00 2.343E-01 4.989E-01 -1.854E-01 0.000E+00 0.000E+00 0.000E+00 -8.155E-01 3.617E-01 1.174E+00 1.691E-01 5.783E-01 -3.535E-01 0.000E+00 0.000E+00 0.000E+00 -6.062E-01 9.450E-01 1.995E+00 -2.049E-01 1.397E-01 -3.438E-01 0.000E+00 0.000E+00 0.000E+00 5.817E-01 2.555E+00 4.345E+00 -1.614E-01 7.059E-02 -2.818E-01 0.000E+00 0.000E+00 0.000E+00 5.172E-04 1.629E+00 2.981E+00 9.286E-03 3.232E-01 -2.877E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 181 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 121 10 7.001E-01 2.158E+00 3.717E+00 1.838E-01 4.497E-01 -1.443E-01 0.000E+00 0.000E+00 0.000E+00 -6.767E-01 2.907E-01 9.943E-01 1.358E-01 5.234E-01 -3.034E-01 0.000E+00 0.000E+00 0.000E+00 -4.949E-01 7.560E-01 1.656E+00 -1.545E-01 1.276E-01 -2.901E-01 0.000E+00 0.000E+00 0.000E+00 4.836E-01 2.061E+00 3.612E+00 -1.224E-01 6.466E-02 -2.271E-01 0.000E+00 0.000E+00 0.000E+00 -4.466E-03 1.309E+00 2.477E+00 1.068E-02 2.925E-01 -2.383E-01 0.000E+00 0.000E+00 0.000E+00 0 121 0.0000 1.641E+01 4.637E+01 5.763E+01 5.879E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.454E+01 -1.575E+00 2.378E+00 4.393E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.101E+01 1.134E+01 1.735E+01 -5.727E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.009E+01 4.376E+01 5.527E+01 -4.736E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.430E-01 2.488E+01 3.293E+01 -4.774E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 121 7.1000 1.300E+01 3.641E+01 4.178E+01 4.918E+00 3.215E+00 -1.907E+00 0.000E+00 0.000E+00 0.000E+00 -1.154E+01 -2.414E+00 -1.197E+00 3.722E+00 3.654E+00 -2.865E+00 0.000E+00 0.000E+00 0.000E+00 -8.706E+00 8.170E+00 1.062E+01 -4.807E+00 8.549E-01 -2.813E+00 0.000E+00 0.000E+00 0.000E+00 7.961E+00 3.436E+01 3.999E+01 -4.009E+00 4.472E-01 -2.532E+00 0.000E+00 0.000E+00 0.000E+00 1.109E-01 1.906E+01 2.263E+01 -4.375E-02 2.051E+00 -2.504E+00 0.000E+00 0.000E+00 0.000E+00 0 122 0 3.163E-01 1.040E+00 -2.033E+00 4.086E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.256E-01 -9.866E-01 -2.813E+00 3.817E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -7.895E-01 -1.496E+00 -2.965E+00 -1.802E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.763E-01 1.546E+00 -1.788E+00 -1.399E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.302E-01 2.628E-02 -2.399E+00 1.175E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 122 1 7.237E-01 7.310E-01 -3.836E+00 8.558E-01 7.515E-02 -2.227E-01 0.000E+00 0.000E+00 0.000E+00 -1.130E+00 -3.633E+00 -5.653E+00 8.023E-01 5.642E-02 -1.365E-01 0.000E+00 0.000E+00 0.000E+00 -1.701E+00 -4.730E+00 -6.022E+00 -3.875E-01 5.586E-02 -9.242E-02 0.000E+00 0.000E+00 0.000E+00 1.083E+00 1.818E+00 -3.290E+00 -3.072E-01 8.208E-02 -2.689E-01 0.000E+00 0.000E+00 0.000E+00 -2.558E-01 -1.453E+00 -4.700E+00 2.408E-01 6.720E-02 -1.795E-01 0.000E+00 0.000E+00 0.000E+00 0 122 2 1.744E+00 -1.752E+00 -1.402E+00 1.057E+00 2.950E-01 -4.730E-01 0.000E+00 0.000E+00 0.000E+00 -2.015E+00 -8.654E+00 -7.029E+00 1.008E+00 2.329E-01 -2.446E-01 0.000E+00 0.000E+00 0.000E+00 -3.036E+00 -1.037E+01 -8.317E+00 -4.781E-01 2.417E-01 -5.679E-02 0.000E+00 0.000E+00 0.000E+00 2.591E+00 -2.571E-02 9.812E-02 -4.040E-01 3.322E-01 -5.144E-01 0.000E+00 0.000E+00 0.000E+00 -1.939E-01 -5.215E+00 -4.198E+00 2.957E-01 2.749E-01 -3.208E-01 0.000E+00 0.000E+00 0.000E+00 0 122 3 3.461E+00 1.012E+00 3.803E+00 1.188E+00 7.771E-01 -5.694E-01 0.000E+00 0.000E+00 0.000E+00 -3.476E+00 -9.249E+00 -9.057E+00 1.148E+00 6.955E-01 -1.515E-01 0.000E+00 0.000E+00 0.000E+00 -5.230E+00 -1.176E+01 -1.207E+01 -4.207E-01 7.531E-01 1.379E-01 0.000E+00 0.000E+00 0.000E+00 5.131E+00 3.589E+00 7.120E+00 -3.607E-01 8.741E-01 -6.722E-01 0.000E+00 0.000E+00 0.000E+00 -7.623E-02 -4.150E+00 -2.663E+00 3.884E-01 7.740E-01 -3.116E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 182 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 122 4 3.027E+00 2.542E+00 4.268E+00 1.026E+00 9.017E-01 -5.102E-01 0.000E+00 0.000E+00 0.000E+00 -3.073E+00 -6.291E+00 -7.234E+00 9.876E-01 8.382E-01 -3.589E-02 0.000E+00 0.000E+00 0.000E+00 -4.617E+00 -8.446E+00 -9.914E+00 -3.025E-01 9.119E-01 2.357E-01 0.000E+00 0.000E+00 0.000E+00 4.463E+00 4.732E+00 7.175E+00 -2.453E-01 1.005E+00 -6.786E-01 0.000E+00 0.000E+00 0.000E+00 -9.326E-02 -1.909E+00 -1.528E+00 3.664E-01 9.136E-01 -2.448E-01 0.000E+00 0.000E+00 0.000E+00 0 122 5 2.399E+00 2.491E+00 3.853E+00 8.377E-01 9.034E-01 -4.297E-01 0.000E+00 0.000E+00 0.000E+00 -2.503E+00 -4.530E+00 -5.466E+00 8.007E-01 8.545E-01 3.907E-02 0.000E+00 0.000E+00 0.000E+00 -3.753E+00 -6.240E+00 -7.620E+00 -2.020E-01 9.298E-01 2.885E-01 0.000E+00 0.000E+00 0.000E+00 3.511E+00 4.203E+00 6.150E+00 -1.465E-01 9.995E-01 -6.120E-01 0.000E+00 0.000E+00 0.000E+00 -1.220E-01 -1.054E+00 -8.534E-01 3.225E-01 9.213E-01 -1.761E-01 0.000E+00 0.000E+00 0.000E+00 0 122 6 1.871E+00 2.150E+00 3.311E+00 6.669E-01 8.601E-01 -3.533E-01 0.000E+00 0.000E+00 0.000E+00 -2.022E+00 -3.335E+00 -4.181E+00 6.313E-01 8.234E-01 7.879E-02 0.000E+00 0.000E+00 0.000E+00 -3.023E+00 -4.667E+00 -5.897E+00 -1.236E-01 8.954E-01 2.984E-01 0.000E+00 0.000E+00 0.000E+00 2.716E+00 3.459E+00 5.107E+00 -7.013E-02 9.457E-01 -5.278E-01 0.000E+00 0.000E+00 0.000E+00 -1.434E-01 -6.269E-01 -4.821E-01 2.761E-01 8.807E-01 -1.237E-01 0.000E+00 0.000E+00 0.000E+00 0 122 7 1.457E+00 1.779E+00 2.783E+00 5.286E-01 7.983E-01 -2.905E-01 0.000E+00 0.000E+00 0.000E+00 -1.641E+00 -2.505E+00 -3.257E+00 4.944E-01 7.710E-01 9.474E-02 0.000E+00 0.000E+00 0.000E+00 -2.446E+00 -3.544E+00 -4.626E+00 -7.083E-02 8.381E-01 2.840E-01 0.000E+00 0.000E+00 0.000E+00 2.094E+00 2.778E+00 4.186E+00 -1.950E-02 8.728E-01 -4.490E-01 0.000E+00 0.000E+00 0.000E+00 -1.575E-01 -3.964E-01 -2.831E-01 2.332E-01 8.198E-01 -8.825E-02 0.000E+00 0.000E+00 0.000E+00 0 122 8 1.137E+00 1.450E+00 2.320E+00 4.199E-01 7.307E-01 -2.401E-01 0.000E+00 0.000E+00 0.000E+00 -1.343E+00 -1.919E+00 -2.578E+00 3.872E-01 7.110E-01 9.753E-02 0.000E+00 0.000E+00 0.000E+00 -1.996E+00 -2.733E+00 -3.676E+00 -3.753E-02 7.727E-01 2.589E-01 0.000E+00 0.000E+00 0.000E+00 1.617E+00 2.213E+00 3.421E+00 1.157E-02 7.950E-01 -3.803E-01 0.000E+00 0.000E+00 0.000E+00 -1.654E-01 -2.661E-01 -1.727E-01 1.953E-01 7.522E-01 -6.432E-02 0.000E+00 0.000E+00 0.000E+00 0 122 9 8.902E-01 1.175E+00 1.930E+00 3.347E-01 6.626E-01 -1.992E-01 0.000E+00 0.000E+00 0.000E+00 -1.108E+00 -1.491E+00 -2.065E+00 3.035E-01 6.490E-01 9.341E-02 0.000E+00 0.000E+00 0.000E+00 -1.642E+00 -2.134E+00 -2.949E+00 -1.732E-02 7.057E-01 2.301E-01 0.000E+00 0.000E+00 0.000E+00 1.249E+00 1.759E+00 2.796E+00 2.940E-02 7.179E-01 -3.213E-01 0.000E+00 0.000E+00 0.000E+00 -1.684E-01 -1.885E-01 -1.086E-01 1.626E-01 6.837E-01 -4.783E-02 0.000E+00 0.000E+00 0.000E+00 0 122 10 6.972E-01 9.491E-01 1.604E+00 2.673E-01 5.963E-01 -1.657E-01 0.000E+00 0.000E+00 0.000E+00 -9.204E-01 -1.172E+00 -1.667E+00 2.378E-01 5.876E-01 8.587E-02 0.000E+00 0.000E+00 0.000E+00 -1.360E+00 -1.682E+00 -2.382E+00 -5.639E-03 6.396E-01 2.010E-01 0.000E+00 0.000E+00 0.000E+00 9.645E-01 1.398E+00 2.286E+00 3.855E-02 6.436E-01 -2.706E-01 0.000E+00 0.000E+00 0.000E+00 -1.675E-01 -1.398E-01 -6.987E-02 1.345E-01 6.167E-01 -3.619E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 183 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 122 0.0000 1.772E+01 1.357E+01 1.660E+01 7.590E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.976E+01 -4.377E+01 -5.100E+01 7.182E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.959E+01 -5.780E+01 -6.644E+01 -2.226E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.590E+01 2.747E+01 3.326E+01 -1.614E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.674E+00 -1.537E+01 -1.746E+01 2.733E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 122 7.1000 1.413E+01 9.627E+00 1.011E+01 6.271E+00 4.279E+00 -1.840E+00 0.000E+00 0.000E+00 0.000E+00 -1.565E+01 -3.698E+01 -4.254E+01 5.952E+00 4.090E+00 2.460E-01 0.000E+00 0.000E+00 0.000E+00 -2.348E+01 -4.842E+01 -5.459E+01 -2.018E+00 4.444E+00 1.336E+00 0.000E+00 0.000E+00 0.000E+00 2.073E+01 2.104E+01 2.331E+01 -1.540E+00 4.692E+00 -2.644E+00 0.000E+00 0.000E+00 0.000E+00 -1.251E+00 -1.387E+01 -1.635E+01 2.166E+00 4.374E+00 -7.148E-01 0.000E+00 0.000E+00 0.000E+00 0 123 0 2.737E-02 -6.920E-01 -2.559E+00 3.009E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.720E-01 -2.374E+00 -3.209E+00 3.534E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.079E-01 -2.241E+00 -3.029E+00 -2.608E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 5.772E-02 -1.120E+00 -2.598E+00 -2.958E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.486E-01 -1.607E+00 -2.849E+00 2.443E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 123 1 1.166E-01 -2.982E+00 -5.084E+00 6.273E-01 5.982E-02 -1.261E-01 0.000E+00 0.000E+00 0.000E+00 -1.408E+00 -6.579E+00 -6.568E+00 7.389E-01 3.979E-02 -9.506E-02 0.000E+00 0.000E+00 0.000E+00 -8.513E-01 -6.302E+00 -6.200E+00 -5.563E-01 3.143E-03 -5.611E-02 0.000E+00 0.000E+00 0.000E+00 1.628E-01 -3.906E+00 -5.215E+00 -6.307E-01 1.776E-02 -9.312E-02 0.000E+00 0.000E+00 0.000E+00 -4.949E-01 -4.942E+00 -5.767E+00 4.482E-02 3.014E-02 -9.352E-02 0.000E+00 0.000E+00 0.000E+00 0 123 2 7.851E-01 -7.334E+00 -5.792E+00 6.890E-01 2.361E-01 -1.971E-01 0.000E+00 0.000E+00 0.000E+00 -2.111E+00 -1.279E+01 -9.996E+00 8.738E-01 1.611E-01 -1.703E-01 0.000E+00 0.000E+00 0.000E+00 -1.239E+00 -1.238E+01 -9.502E+00 -7.230E-01 1.205E-02 1.997E-05 0.000E+00 0.000E+00 0.000E+00 6.850E-01 -8.747E+00 -6.714E+00 -8.462E-01 6.583E-02 -5.706E-02 0.000E+00 0.000E+00 0.000E+00 -4.737E-01 -1.031E+01 -8.010E+00 -1.621E-03 1.187E-01 -1.083E-01 0.000E+00 0.000E+00 0.000E+00 0 123 3 1.900E+00 -6.816E+00 -6.714E+00 5.922E-01 6.339E-01 8.591E-03 0.000E+00 0.000E+00 0.000E+00 -3.271E+00 -1.469E+01 -1.608E+01 8.963E-01 4.884E-01 -1.093E-01 0.000E+00 0.000E+00 0.000E+00 -1.887E+00 -1.407E+01 -1.538E+01 -7.939E-01 4.935E-02 1.388E-01 0.000E+00 0.000E+00 0.000E+00 1.555E+00 -8.823E+00 -9.153E+00 -9.967E-01 1.546E-01 1.547E-01 0.000E+00 0.000E+00 0.000E+00 -4.364E-01 -1.111E+01 -1.186E+01 -7.548E-02 3.315E-01 4.472E-02 0.000E+00 0.000E+00 0.000E+00 0 123 4 1.620E+00 -4.147E+00 -5.183E+00 4.950E-01 7.395E-01 1.616E-01 0.000E+00 0.000E+00 0.000E+00 -2.951E+00 -1.098E+01 -1.359E+01 7.666E-01 5.936E-01 2.674E-03 0.000E+00 0.000E+00 0.000E+00 -1.718E+00 -1.043E+01 -1.297E+01 -6.479E-01 6.442E-02 2.268E-01 0.000E+00 0.000E+00 0.000E+00 1.337E+00 -5.864E+00 -7.354E+00 -8.290E-01 1.721E-01 2.621E-01 0.000E+00 0.000E+00 0.000E+00 -4.375E-01 -7.865E+00 -9.796E+00 -5.382E-02 3.925E-01 1.594E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 184 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 123 5 1.211E+00 -2.811E+00 -3.836E+00 3.995E-01 7.424E-01 2.422E-01 0.000E+00 0.000E+00 0.000E+00 -2.493E+00 -8.310E+00 -1.068E+01 6.258E-01 6.087E-01 7.351E-02 0.000E+00 0.000E+00 0.000E+00 -1.465E+00 -7.848E+00 -1.017E+01 -4.959E-01 6.855E-02 2.762E-01 0.000E+00 0.000E+00 0.000E+00 1.022E+00 -4.165E+00 -5.565E+00 -6.468E-01 1.683E-01 3.185E-01 0.000E+00 0.000E+00 0.000E+00 -4.381E-01 -5.791E+00 -7.581E+00 -2.936E-02 3.970E-01 2.237E-01 0.000E+00 0.000E+00 0.000E+00 0 123 6 8.679E-01 -1.980E+00 -2.908E+00 3.088E-01 7.075E-01 2.756E-01 0.000E+00 0.000E+00 0.000E+00 -2.098E+00 -6.327E+00 -8.447E+00 4.970E-01 5.895E-01 1.020E-01 0.000E+00 0.000E+00 0.000E+00 -1.244E+00 -5.944E+00 -8.023E+00 -3.664E-01 6.790E-02 2.786E-01 0.000E+00 0.000E+00 0.000E+00 7.598E-01 -3.019E+00 -4.268E+00 -4.919E-01 1.576E-01 3.293E-01 0.000E+00 0.000E+00 0.000E+00 -4.335E-01 -4.322E+00 -5.923E+00 -1.311E-02 3.809E-01 2.427E-01 0.000E+00 0.000E+00 0.000E+00 0 123 7 6.004E-01 -1.442E+00 -2.266E+00 2.351E-01 6.571E-01 2.797E-01 0.000E+00 0.000E+00 0.000E+00 -1.778E+00 -4.878E+00 -6.758E+00 3.932E-01 5.551E-01 1.055E-01 0.000E+00 0.000E+00 0.000E+00 -1.062E+00 -4.557E+00 -6.405E+00 -2.680E-01 6.521E-02 2.564E-01 0.000E+00 0.000E+00 0.000E+00 5.570E-01 -2.233E+00 -3.332E+00 -3.734E-01 1.445E-01 3.144E-01 0.000E+00 0.000E+00 0.000E+00 -4.241E-01 -3.281E+00 -4.698E+00 -3.264E-03 3.558E-01 2.357E-01 0.000E+00 0.000E+00 0.000E+00 0 123 8 3.979E-01 -1.082E+00 -1.805E+00 1.778E-01 6.017E-01 2.687E-01 0.000E+00 0.000E+00 0.000E+00 -1.522E+00 -3.814E+00 -5.471E+00 3.123E-01 5.147E-01 9.694E-02 0.000E+00 0.000E+00 0.000E+00 -9.150E-01 -3.544E+00 -5.176E+00 -1.957E-01 6.170E-02 2.247E-01 0.000E+00 0.000E+00 0.000E+00 4.036E-01 -1.683E+00 -2.641E+00 -2.853E-01 1.310E-01 2.881E-01 0.000E+00 0.000E+00 0.000E+00 -4.108E-01 -2.533E+00 -3.778E+00 2.270E-03 3.277E-01 2.167E-01 0.000E+00 0.000E+00 0.000E+00 0 123 9 2.457E-01 -8.332E-01 -1.461E+00 1.337E-01 5.458E-01 2.502E-01 0.000E+00 0.000E+00 0.000E+00 -1.313E+00 -3.019E+00 -4.471E+00 2.492E-01 4.727E-01 8.331E-02 0.000E+00 0.000E+00 0.000E+00 -7.941E-01 -2.789E+00 -4.223E+00 -1.427E-01 5.777E-02 1.908E-01 0.000E+00 0.000E+00 0.000E+00 2.879E-01 -1.289E+00 -2.117E+00 -2.198E-01 1.177E-01 2.576E-01 0.000E+00 0.000E+00 0.000E+00 -3.944E-01 -1.984E+00 -3.071E+00 5.084E-03 2.989E-01 1.930E-01 0.000E+00 0.000E+00 0.000E+00 0 123 10 1.319E-01 -6.546E-01 -1.196E+00 9.960E-02 4.913E-01 2.283E-01 0.000E+00 0.000E+00 0.000E+00 -1.140E+00 -2.412E+00 -3.677E+00 1.997E-01 4.307E-01 6.823E-02 0.000E+00 0.000E+00 0.000E+00 -6.930E-01 -2.215E+00 -3.469E+00 -1.038E-01 5.370E-02 1.582E-01 0.000E+00 0.000E+00 0.000E+00 2.003E-01 -9.984E-01 -1.709E+00 -1.705E-01 1.053E-01 2.267E-01 0.000E+00 0.000E+00 0.000E+00 -3.754E-01 -1.570E+00 -2.513E+00 6.241E-03 2.707E-01 1.682E-01 0.000E+00 0.000E+00 0.000E+00 0 123 0.0000 7.905E+00 -3.077E+01 -3.880E+01 4.059E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.076E+01 -7.617E+01 -8.895E+01 5.906E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.228E+01 -7.231E+01 -8.456E+01 -4.554E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.028E+00 -4.185E+01 -5.067E+01 -5.786E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.568E+00 -5.532E+01 -6.584E+01 -9.382E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 185 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 123 7.1000 6.482E+00 -2.661E+01 -3.278E+01 3.472E+00 3.517E+00 1.222E+00 0.000E+00 0.000E+00 0.000E+00 -1.626E+01 -6.343E+01 -7.179E+01 4.918E+00 2.942E+00 3.207E-01 0.000E+00 0.000E+00 0.000E+00 -9.595E+00 -6.037E+01 -6.829E+01 -3.874E+00 3.417E-01 1.205E+00 0.000E+00 0.000E+00 0.000E+00 5.673E+00 -3.573E+01 -4.204E+01 -4.838E+00 7.858E-01 1.490E+00 0.000E+00 0.000E+00 0.000E+00 -3.461E+00 -4.657E+01 -5.381E+01 -8.049E-02 1.898E+00 1.042E+00 0.000E+00 0.000E+00 0.000E+00 0 131 0 9.277E-02 1.996E+00 -1.802E+00 3.198E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.679E-01 1.128E+00 -2.137E+00 3.440E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.290E-01 8.232E-01 -2.095E+00 -1.189E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.121E-01 2.124E+00 -1.593E+00 -1.552E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.291E-02 1.518E+00 -1.906E+00 9.741E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 131 1 2.272E-01 2.812E+00 -3.254E+00 6.748E-01 7.984E-03 -4.868E-01 0.000E+00 0.000E+00 0.000E+00 -5.829E-01 9.173E-01 -4.060E+00 7.292E-01 6.000E-03 -3.898E-01 0.000E+00 0.000E+00 0.000E+00 -5.148E-01 2.390E-01 -4.040E+00 -2.600E-01 4.103E-02 -3.574E-01 0.000E+00 0.000E+00 0.000E+00 6.961E-01 3.076E+00 -2.841E+00 -3.417E-01 4.689E-02 -5.238E-01 0.000E+00 0.000E+00 0.000E+00 -4.368E-02 1.761E+00 -3.549E+00 2.006E-01 2.557E-02 -4.401E-01 0.000E+00 0.000E+00 0.000E+00 0 131 2 6.829E-01 1.443E+00 1.299E+00 8.379E-01 3.388E-02 -1.058E+00 0.000E+00 0.000E+00 0.000E+00 -1.138E+00 -1.780E+00 -1.547E+00 9.607E-01 3.483E-02 -7.816E-01 0.000E+00 0.000E+00 0.000E+00 -1.128E+00 -2.933E+00 -2.359E+00 -2.924E-01 1.925E-01 -6.076E-01 0.000E+00 0.000E+00 0.000E+00 1.568E+00 1.867E+00 1.829E+00 -4.767E-01 2.041E-01 -1.075E+00 0.000E+00 0.000E+00 0.000E+00 -9.242E-03 -3.562E-01 -2.073E-01 2.573E-01 1.168E-01 -8.820E-01 0.000E+00 0.000E+00 0.000E+00 0 131 3 1.463E+00 5.410E+00 1.075E+01 9.026E-01 8.203E-02 -1.409E+00 0.000E+00 0.000E+00 0.000E+00 -2.075E+00 3.781E-01 3.994E+00 1.143E+00 1.340E-01 -8.581E-01 0.000E+00 0.000E+00 0.000E+00 -2.136E+00 -1.334E+00 1.587E+00 -1.373E-01 5.947E-01 -5.498E-01 0.000E+00 0.000E+00 0.000E+00 3.061E+00 6.105E+00 1.147E+01 -4.984E-01 5.542E-01 -1.461E+00 0.000E+00 0.000E+00 0.000E+00 6.084E-02 2.623E+00 6.912E+00 3.526E-01 3.428E-01 -1.072E+00 0.000E+00 0.000E+00 0.000E+00 0 131 4 1.300E+00 6.277E+00 1.054E+01 7.612E-01 9.239E-02 -1.382E+00 0.000E+00 0.000E+00 0.000E+00 -1.824E+00 1.945E+00 4.452E+00 9.759E-01 1.694E-01 -7.537E-01 0.000E+00 0.000E+00 0.000E+00 -1.870E+00 4.903E-01 2.265E+00 -4.879E-02 7.071E-01 -4.557E-01 0.000E+00 0.000E+00 0.000E+00 2.674E+00 6.845E+00 1.106E+01 -3.709E-01 6.363E-01 -1.490E+00 0.000E+00 0.000E+00 0.000E+00 5.255E-02 3.872E+00 7.036E+00 3.293E-01 4.034E-01 -1.023E+00 0.000E+00 0.000E+00 0.000E+00 0 131 5 1.053E+00 5.441E+00 8.957E+00 6.085E-01 9.197E-02 -1.244E+00 0.000E+00 0.000E+00 0.000E+00 -1.466E+00 2.004E+00 3.997E+00 7.823E-01 1.763E-01 -6.209E-01 0.000E+00 0.000E+00 0.000E+00 -1.498E+00 8.611E-01 2.210E+00 8.624E-03 7.112E-01 -3.426E-01 0.000E+00 0.000E+00 0.000E+00 2.117E+00 5.853E+00 9.268E+00 -2.521E-01 6.296E-01 -1.365E+00 0.000E+00 0.000E+00 0.000E+00 3.562E-02 3.524E+00 6.071E+00 2.868E-01 4.045E-01 -8.957E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 186 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 131 6 8.486E-01 4.438E+00 7.454E+00 4.735E-01 8.802E-02 -1.074E+00 0.000E+00 0.000E+00 0.000E+00 -1.164E+00 1.751E+00 3.431E+00 6.116E-01 1.722E-01 -4.938E-01 0.000E+00 0.000E+00 0.000E+00 -1.191E+00 8.696E-01 1.979E+00 4.895E-02 6.771E-01 -2.424E-01 0.000E+00 0.000E+00 0.000E+00 1.653E+00 4.725E+00 7.605E+00 -1.581E-01 5.934E-01 -1.190E+00 0.000E+00 0.000E+00 0.000E+00 2.155E-02 2.931E+00 5.082E+00 2.440E-01 3.847E-01 -7.522E-01 0.000E+00 0.000E+00 0.000E+00 0 131 7 6.893E-01 3.563E+00 6.163E+00 3.674E-01 8.250E-02 -9.140E-01 0.000E+00 0.000E+00 0.000E+00 -9.266E-01 1.455E+00 2.884E+00 4.765E-01 1.631E-01 -3.903E-01 0.000E+00 0.000E+00 0.000E+00 -9.548E-01 7.728E-01 1.701E+00 7.041E-02 6.275E-01 -1.671E-01 0.000E+00 0.000E+00 0.000E+00 1.289E+00 3.754E+00 6.200E+00 -9.312E-02 5.460E-01 -1.019E+00 0.000E+00 0.000E+00 0.000E+00 1.054E-02 2.372E+00 4.205E+00 2.053E-01 3.567E-01 -6.245E-01 0.000E+00 0.000E+00 0.000E+00 0 131 8 5.669E-01 2.857E+00 5.101E+00 2.866E-01 7.662E-02 -7.743E-01 0.000E+00 0.000E+00 0.000E+00 -7.422E-01 1.188E+00 2.406E+00 3.726E-01 1.518E-01 -3.085E-01 0.000E+00 0.000E+00 0.000E+00 -7.742E-01 6.537E-01 1.436E+00 7.851E-02 5.735E-01 -1.121E-01 0.000E+00 0.000E+00 0.000E+00 1.009E+00 2.976E+00 5.058E+00 -5.044E-02 4.962E-01 -8.663E-01 0.000E+00 0.000E+00 0.000E+00 2.314E-03 1.906E+00 3.471E+00 1.718E-01 3.263E-01 -5.169E-01 0.000E+00 0.000E+00 0.000E+00 0 131 9 4.716E-01 2.298E+00 4.235E+00 2.251E-01 7.059E-02 -6.540E-01 0.000E+00 0.000E+00 0.000E+00 -5.983E-01 9.636E-01 2.003E+00 2.927E-01 1.397E-01 -2.437E-01 0.000E+00 0.000E+00 0.000E+00 -6.348E-01 5.409E-01 1.204E+00 7.841E-02 5.196E-01 -7.196E-02 0.000E+00 0.000E+00 0.000E+00 7.928E-01 2.366E+00 4.138E+00 -2.311E-02 4.474E-01 -7.333E-01 0.000E+00 0.000E+00 0.000E+00 -3.742E-03 1.530E+00 2.868E+00 1.433E-01 2.959E-01 -4.270E-01 0.000E+00 0.000E+00 0.000E+00 0 131 10 3.958E-01 1.856E+00 3.524E+00 1.776E-01 6.469E-02 -5.506E-01 0.000E+00 0.000E+00 0.000E+00 -4.846E-01 7.800E-01 1.666E+00 2.307E-01 1.276E-01 -1.920E-01 0.000E+00 0.000E+00 0.000E+00 -5.252E-01 4.423E-01 1.005E+00 7.359E-02 4.675E-01 -4.259E-02 0.000E+00 0.000E+00 0.000E+00 6.241E-01 1.886E+00 3.393E+00 -6.044E-03 4.009E-01 -6.183E-01 0.000E+00 0.000E+00 0.000E+00 -8.089E-03 1.230E+00 2.372E+00 1.190E-01 2.666E-01 -3.519E-01 0.000E+00 0.000E+00 0.000E+00 0 131 0.0000 7.792E+00 3.839E+01 5.297E+01 5.635E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.127E+01 1.073E+01 1.709E+01 6.920E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.146E+01 1.426E+00 4.892E+00 -4.989E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.580E+01 4.158E+01 5.559E+01 -2.426E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 9.575E-02 2.291E+01 3.235E+01 2.407E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 131 7.1000 6.062E+00 2.993E+01 3.809E+01 4.708E+00 4.476E-01 -5.391E+00 0.000E+00 0.000E+00 0.000E+00 -8.965E+00 7.566E+00 1.036E+01 5.726E+00 8.549E-01 -2.561E+00 0.000E+00 0.000E+00 0.000E+00 -9.057E+00 -1.364E-02 1.078E+00 -6.412E-01 3.343E+00 -1.299E+00 0.000E+00 0.000E+00 0.000E+00 1.261E+01 3.265E+01 4.062E+01 -2.169E+00 2.939E+00 -5.911E+00 0.000E+00 0.000E+00 0.000E+00 7.636E-02 1.745E+01 2.234E+01 1.906E+00 1.906E+00 -3.801E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 187 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 132 0 3.966E-01 1.360E+00 -1.868E+00 3.984E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -7.409E-01 -1.383E+00 -2.916E+00 4.053E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.787E-01 -8.616E-01 -2.601E+00 -9.756E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.810E-01 9.685E-01 -1.899E+00 -1.022E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.350E-01 2.158E-02 -2.320E+00 1.510E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 132 1 9.291E-01 1.459E+00 -3.444E+00 8.285E-01 8.208E-02 -3.956E-01 0.000E+00 0.000E+00 0.000E+00 -1.600E+00 -4.495E+00 -5.921E+00 8.416E-01 5.585E-02 -2.051E-01 0.000E+00 0.000E+00 0.000E+00 -1.039E+00 -3.380E+00 -5.238E+00 -2.308E-01 4.539E-02 -2.221E-01 0.000E+00 0.000E+00 0.000E+00 6.471E-01 5.894E-01 -3.586E+00 -2.395E-01 6.268E-02 -3.776E-01 0.000E+00 0.000E+00 0.000E+00 -2.655E-01 -1.456E+00 -4.547E+00 2.999E-01 6.132E-02 -2.993E-01 0.000E+00 0.000E+00 0.000E+00 0 132 2 2.452E+00 -3.514E-01 -4.147E-02 9.421E-01 3.322E-01 -8.021E-01 0.000E+00 0.000E+00 0.000E+00 -2.926E+00 -1.011E+01 -8.207E+00 9.490E-01 2.417E-01 -3.560E-01 0.000E+00 0.000E+00 0.000E+00 -1.928E+00 -8.393E+00 -6.638E+00 -4.219E-01 2.101E-01 -3.185E-01 0.000E+00 0.000E+00 0.000E+00 1.648E+00 -1.894E+00 -1.215E+00 -4.265E-01 2.694E-01 -6.869E-01 0.000E+00 0.000E+00 0.000E+00 -2.036E-01 -5.203E+00 -4.061E+00 2.606E-01 2.627E-01 -5.389E-01 0.000E+00 0.000E+00 0.000E+00 0 132 3 5.008E+00 3.301E+00 6.997E+00 9.256E-01 8.740E-01 -8.959E-01 0.000E+00 0.000E+00 0.000E+00 -5.114E+00 -1.149E+01 -1.195E+01 9.247E-01 7.529E-01 -2.465E-01 0.000E+00 0.000E+00 0.000E+00 -3.387E+00 -8.984E+00 -8.700E+00 -5.340E-01 6.587E-01 -2.001E-01 0.000E+00 0.000E+00 0.000E+00 3.341E+00 8.564E-01 3.887E+00 -5.334E-01 7.365E-01 -7.471E-01 0.000E+00 0.000E+00 0.000E+00 -8.584E-02 -4.127E+00 -2.554E+00 1.958E-01 7.547E-01 -5.194E-01 0.000E+00 0.000E+00 0.000E+00 0 132 4 4.357E+00 4.484E+00 7.068E+00 8.086E-01 1.005E+00 -7.911E-01 0.000E+00 0.000E+00 0.000E+00 -4.504E+00 -8.183E+00 -9.802E+00 8.153E-01 9.119E-01 -7.607E-02 0.000E+00 0.000E+00 0.000E+00 -2.984E+00 -6.037E+00 -6.916E+00 -3.752E-01 7.888E-01 -7.656E-02 0.000E+00 0.000E+00 0.000E+00 2.894E+00 2.378E+00 4.260E+00 -3.798E-01 8.475E-01 -6.785E-01 0.000E+00 0.000E+00 0.000E+00 -1.026E-01 -1.883E+00 -1.448E+00 2.172E-01 8.876E-01 -4.022E-01 0.000E+00 0.000E+00 0.000E+00 0 132 5 3.423E+00 3.997E+00 6.062E+00 6.775E-01 9.995E-01 -6.551E-01 0.000E+00 0.000E+00 0.000E+00 -3.652E+00 -6.004E+00 -7.519E+00 6.930E-01 9.298E-01 4.014E-02 0.000E+00 0.000E+00 0.000E+00 -2.416E+00 -4.300E+00 -5.189E+00 -2.240E-01 7.955E-01 2.225E-02 0.000E+00 0.000E+00 0.000E+00 2.263E+00 2.330E+00 3.779E+00 -2.344E-01 8.394E-01 -5.621E-01 0.000E+00 0.000E+00 0.000E+00 -1.305E-01 -1.029E+00 -7.989E-01 2.280E-01 8.905E-01 -2.854E-01 0.000E+00 0.000E+00 0.000E+00 0 132 6 2.645E+00 3.293E+00 5.036E+00 5.505E-01 9.456E-01 -5.241E-01 0.000E+00 0.000E+00 0.000E+00 -2.937E+00 -4.465E+00 -5.811E+00 5.729E-01 8.953E-01 9.763E-02 0.000E+00 0.000E+00 0.000E+00 -1.941E+00 -3.134E+00 -3.942E+00 -1.110E-01 7.586E-01 7.396E-02 0.000E+00 0.000E+00 0.000E+00 1.741E+00 1.999E+00 3.197E+00 -1.259E-01 7.905E-01 -4.486E-01 0.000E+00 0.000E+00 0.000E+00 -1.513E-01 -6.051E-01 -4.461E-01 2.216E-01 8.471E-01 -1.973E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 188 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 132 7 2.038E+00 2.647E+00 4.130E+00 4.439E-01 8.728E-01 -4.167E-01 0.000E+00 0.000E+00 0.000E+00 -2.374E+00 -3.375E+00 -4.554E+00 4.709E-01 8.381E-01 1.173E-01 0.000E+00 0.000E+00 0.000E+00 -1.567E+00 -2.333E+00 -3.050E+00 -3.678E-02 7.039E-01 9.303E-02 0.000E+00 0.000E+00 0.000E+00 1.336E+00 1.643E+00 2.649E+00 -5.475E-02 7.264E-01 -3.564E-01 0.000E+00 0.000E+00 0.000E+00 -1.647E-01 -3.776E-01 -2.599E-01 2.058E-01 7.850E-01 -1.381E-01 0.000E+00 0.000E+00 0.000E+00 0 132 8 1.573E+00 2.112E+00 3.378E+00 3.578E-01 7.950E-01 -3.313E-01 0.000E+00 0.000E+00 0.000E+00 -1.937E+00 -2.595E+00 -3.617E+00 3.875E-01 7.727E-01 1.172E-01 0.000E+00 0.000E+00 0.000E+00 -1.277E+00 -1.772E+00 -2.399E+00 8.688E-03 6.440E-01 9.479E-02 0.000E+00 0.000E+00 0.000E+00 1.027E+00 1.330E+00 2.180E+00 -1.113E-02 6.592E-01 -2.837E-01 0.000E+00 0.000E+00 0.000E+00 -1.720E-01 -2.500E-01 -1.582E-01 1.857E-01 7.176E-01 -9.851E-02 0.000E+00 0.000E+00 0.000E+00 0 132 9 1.217E+00 1.683E+00 2.763E+00 2.886E-01 7.179E-01 -2.634E-01 0.000E+00 0.000E+00 0.000E+00 -1.594E+00 -2.023E+00 -2.902E+00 3.197E-01 7.057E-01 1.077E-01 0.000E+00 0.000E+00 0.000E+00 -1.050E+00 -1.368E+00 -1.910E+00 3.496E-02 5.840E-01 8.810E-02 0.000E+00 0.000E+00 0.000E+00 7.916E-01 1.070E+00 1.791E+00 1.420E-02 5.935E-01 -2.261E-01 0.000E+00 0.000E+00 0.000E+00 -1.744E-01 -1.747E-01 -1.001E-01 1.644E-01 6.502E-01 -7.155E-02 0.000E+00 0.000E+00 0.000E+00 0 132 10 9.405E-01 1.341E+00 2.262E+00 2.327E-01 6.436E-01 -2.089E-01 0.000E+00 0.000E+00 0.000E+00 -1.322E+00 -1.593E+00 -2.344E+00 2.642E-01 6.395E-01 9.414E-02 0.000E+00 0.000E+00 0.000E+00 -8.698E-01 -1.069E+00 -1.533E+00 4.876E-02 5.259E-01 7.771E-02 0.000E+00 0.000E+00 0.000E+00 6.098E-01 8.593E-01 1.471E+00 2.776E-02 5.309E-01 -1.802E-01 0.000E+00 0.000E+00 0.000E+00 -1.729E-01 -1.279E-01 -6.538E-02 1.434E-01 5.849E-01 -5.273E-02 0.000E+00 0.000E+00 0.000E+00 0 132 0.0000 2.498E+01 2.533E+01 3.234E+01 6.454E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.870E+01 -5.572E+01 -6.554E+01 6.644E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.894E+01 -4.163E+01 -4.812E+01 -1.939E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.658E+01 1.213E+01 1.651E+01 -2.066E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.758E+00 -1.521E+01 -1.676E+01 2.273E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 132 7.1000 1.995E+01 1.921E+01 2.253E+01 5.350E+00 4.692E+00 -2.712E+00 0.000E+00 0.000E+00 0.000E+00 -2.275E+01 -4.674E+01 -5.387E+01 5.469E+00 4.444E+00 2.243E-01 0.000E+00 0.000E+00 0.000E+00 -1.501E+01 -3.527E+01 -4.018E+01 -1.815E+00 3.744E+00 1.511E-01 0.000E+00 0.000E+00 0.000E+00 1.328E+01 8.517E+00 1.034E+01 -1.894E+00 3.908E+00 -2.322E+00 0.000E+00 0.000E+00 0.000E+00 -1.317E+00 -1.375E+01 -1.572E+01 1.777E+00 4.195E+00 -1.150E+00 0.000E+00 0.000E+00 0.000E+00 0 133 0 7.776E-02 -1.074E+00 -2.578E+00 3.593E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.813E-01 -1.946E+00 -2.903E+00 2.927E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.640E-01 -2.079E+00 -2.963E+00 -1.883E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.209E-01 -7.659E-01 -2.465E+00 -8.834E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.472E-01 -1.466E+00 -2.727E+00 9.382E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 189 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 133 1 2.059E-01 -3.805E+00 -5.172E+00 7.589E-01 1.775E-02 -2.040E-01 0.000E+00 0.000E+00 0.000E+00 -5.946E-01 -5.702E+00 -5.944E+00 6.207E-01 3.143E-03 -1.175E-01 0.000E+00 0.000E+00 0.000E+00 -1.393E+00 -5.983E+00 -6.080E+00 -4.075E-01 3.222E-02 -8.272E-02 0.000E+00 0.000E+00 0.000E+00 -1.857E-01 -3.130E+00 -4.907E+00 -2.003E-01 4.977E-02 -2.323E-01 0.000E+00 0.000E+00 0.000E+00 -4.921E-01 -4.655E+00 -5.526E+00 1.929E-01 2.584E-02 -1.581E-01 0.000E+00 0.000E+00 0.000E+00 0 133 2 7.351E-01 -8.630E+00 -6.664E+00 9.780E-01 6.567E-02 -3.546E-01 0.000E+00 0.000E+00 0.000E+00 -9.726E-01 -1.175E+01 -9.235E+00 7.898E-01 1.199E-02 -1.092E-01 0.000E+00 0.000E+00 0.000E+00 -2.097E+00 -1.217E+01 -9.507E+00 -5.363E-01 1.455E-01 5.250E-02 0.000E+00 0.000E+00 0.000E+00 4.653E-01 -7.488E+00 -5.649E+00 -2.539E-01 2.155E-01 -3.655E-01 0.000E+00 0.000E+00 0.000E+00 -4.707E-01 -1.001E+01 -7.771E+00 2.444E-01 1.098E-01 -1.916E-01 0.000E+00 0.000E+00 0.000E+00 0 133 3 1.606E+00 -8.703E+00 -9.101E+00 1.137E+00 1.544E-01 -2.620E-01 0.000E+00 0.000E+00 0.000E+00 -1.614E+00 -1.343E+01 -1.511E+01 8.687E-01 4.893E-02 2.429E-01 0.000E+00 0.000E+00 0.000E+00 -3.248E+00 -1.406E+01 -1.557E+01 -5.439E-01 4.633E-01 4.777E-01 0.000E+00 0.000E+00 0.000E+00 1.557E+00 -6.994E+00 -6.620E+00 -1.419E-01 6.010E-01 -3.599E-01 0.000E+00 0.000E+00 0.000E+00 -4.340E-01 -1.081E+01 -1.162E+01 3.299E-01 3.172E-01 2.899E-02 0.000E+00 0.000E+00 0.000E+00 0 133 4 1.383E+00 -5.757E+00 -7.308E+00 9.718E-01 1.719E-01 -1.009E-01 0.000E+00 0.000E+00 0.000E+00 -1.455E+00 -9.815E+00 -1.271E+01 7.287E-01 6.433E-02 4.842E-01 0.000E+00 0.000E+00 0.000E+00 -2.918E+00 -1.037E+01 -1.309E+01 -4.146E-01 5.594E-01 6.913E-01 0.000E+00 0.000E+00 0.000E+00 1.275E+00 -4.344E+00 -5.131E+00 -5.007E-02 6.958E-01 -2.740E-01 0.000E+00 0.000E+00 0.000E+00 -4.360E-01 -7.577E+00 -9.575E+00 3.090E-01 3.734E-01 2.048E-01 0.000E+00 0.000E+00 0.000E+00 0 133 5 1.059E+00 -4.079E+00 -5.529E+00 7.833E-01 1.682E-01 1.205E-02 0.000E+00 0.000E+00 0.000E+00 -1.228E+00 -7.296E+00 -9.936E+00 5.766E-01 6.834E-02 5.976E-01 0.000E+00 0.000E+00 0.000E+00 -2.450E+00 -7.742E+00 -1.020E+01 -2.948E-01 5.678E-01 7.812E-01 0.000E+00 0.000E+00 0.000E+00 8.863E-01 -3.012E+00 -3.812E+00 1.523E-02 6.902E-01 -1.809E-01 0.000E+00 0.000E+00 0.000E+00 -4.373E-01 -5.536E+00 -7.379E+00 2.701E-01 3.743E-01 3.069E-01 0.000E+00 0.000E+00 0.000E+00 0 133 6 7.869E-01 -2.956E+00 -4.241E+00 6.168E-01 1.575E-01 6.888E-02 0.000E+00 0.000E+00 0.000E+00 -1.040E+00 -5.467E+00 -7.818E+00 4.425E-01 6.778E-02 6.176E-01 0.000E+00 0.000E+00 0.000E+00 -2.049E+00 -5.824E+00 -7.996E+00 -1.994E-01 5.446E-01 7.745E-01 0.000E+00 0.000E+00 0.000E+00 5.754E-01 -2.172E+00 -2.899E+00 6.196E-02 6.509E-01 -1.228E-01 0.000E+00 0.000E+00 0.000E+00 -4.333E-01 -4.106E+00 -5.742E+00 2.305E-01 3.560E-01 3.385E-01 0.000E+00 0.000E+00 0.000E+00 0 133 7 5.756E-01 -2.189E+00 -3.313E+00 4.848E-01 1.444E-01 8.922E-02 0.000E+00 0.000E+00 0.000E+00 -8.909E-01 -4.157E+00 -6.234E+00 3.375E-01 6.524E-02 5.878E-01 0.000E+00 0.000E+00 0.000E+00 -1.727E+00 -4.441E+00 -6.343E+00 -1.327E-01 5.084E-01 7.194E-01 0.000E+00 0.000E+00 0.000E+00 3.442E-01 -1.618E+00 -2.262E+00 8.825E-02 5.987E-01 -9.197E-02 0.000E+00 0.000E+00 0.000E+00 -4.245E-01 -3.101E+00 -4.538E+00 1.945E-01 3.300E-01 3.295E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 190 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 133 8 4.155E-01 -1.656E+00 -2.629E+00 3.832E-01 1.309E-01 9.046E-02 0.000E+00 0.000E+00 0.000E+00 -7.737E-01 -3.214E+00 -5.035E+00 2.579E-01 6.168E-02 5.363E-01 0.000E+00 0.000E+00 0.000E+00 -1.471E+00 -3.441E+00 -5.094E+00 -8.826E-02 4.681E-01 6.458E-01 0.000E+00 0.000E+00 0.000E+00 1.772E-01 -1.239E+00 -1.803E+00 9.975E-02 5.436E-01 -7.638E-02 0.000E+00 0.000E+00 0.000E+00 -4.116E-01 -2.386E+00 -3.637E+00 1.632E-01 3.020E-01 3.019E-01 0.000E+00 0.000E+00 0.000E+00 0 133 9 2.945E-01 -1.274E+00 -2.110E+00 3.049E-01 1.177E-01 8.251E-02 0.000E+00 0.000E+00 0.000E+00 -6.792E-01 -2.521E+00 -4.108E+00 1.976E-01 5.773E-02 4.773E-01 0.000E+00 0.000E+00 0.000E+00 -1.264E+00 -2.703E+00 -4.132E+00 -5.903E-02 4.273E-01 5.682E-01 0.000E+00 0.000E+00 0.000E+00 5.781E-02 -9.712E-01 -1.458E+00 1.019E-01 4.895E-01 -6.869E-02 0.000E+00 0.000E+00 0.000E+00 -3.955E-01 -1.865E+00 -2.947E+00 1.363E-01 2.740E-01 2.672E-01 0.000E+00 0.000E+00 0.000E+00 0 133 10 2.029E-01 -9.922E-01 -1.706E+00 2.438E-01 1.052E-01 7.070E-02 0.000E+00 0.000E+00 0.000E+00 -6.007E-01 -2.000E+00 -3.377E+00 1.516E-01 5.365E-02 4.177E-01 0.000E+00 0.000E+00 0.000E+00 -1.093E+00 -2.147E+00 -3.374E+00 -3.993E-02 3.877E-01 4.928E-01 0.000E+00 0.000E+00 0.000E+00 -2.653E-02 -7.739E-01 -1.192E+00 9.831E-02 4.380E-01 -6.478E-02 0.000E+00 0.000E+00 0.000E+00 -3.766E-01 -1.476E+00 -2.406E+00 1.134E-01 2.471E-01 2.311E-01 0.000E+00 0.000E+00 0.000E+00 0 133 0.0000 7.342E+00 -4.112E+01 -5.035E+01 7.022E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.013E+01 -6.730E+01 -8.241E+01 5.264E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.038E+01 -7.096E+01 -8.435E+01 -2.905E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 5.005E+00 -3.251E+01 -3.820E+01 -2.691E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.559E+00 -5.299E+01 -6.387E+01 2.278E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 133 7.1000 5.944E+00 -3.509E+01 -4.177E+01 5.803E+00 7.854E-01 8.292E-02 0.000E+00 0.000E+00 0.000E+00 -7.858E+00 -5.632E+01 -6.655E+01 4.416E+00 3.412E-01 2.763E+00 0.000E+00 0.000E+00 0.000E+00 -1.601E+01 -5.927E+01 -6.823E+01 -2.544E+00 2.702E+00 3.548E+00 0.000E+00 0.000E+00 0.000E+00 4.199E+00 -2.792E+01 -3.221E+01 -4.629E-01 3.215E+00 -8.246E-01 0.000E+00 0.000E+00 0.000E+00 -3.451E+00 -4.467E+01 -5.224E+01 1.803E+00 1.765E+00 1.411E+00 0.000E+00 0.000E+00 0.000E+00 0 141 0 1.807E-01 1.818E+00 -1.724E+00 3.713E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.300E-01 3.543E-01 -2.296E+00 3.766E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.236E-01 9.318E-01 -1.909E+00 -1.582E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.844E-01 1.908E+00 -1.526E+00 -1.617E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.206E-02 1.253E+00 -1.864E+00 1.070E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 141 1 4.428E-01 2.485E+00 -3.094E+00 7.782E-01 4.688E-02 -6.470E-01 0.000E+00 0.000E+00 0.000E+00 -9.115E-01 -6.865E-01 -4.437E+00 7.803E-01 4.105E-02 -5.238E-01 0.000E+00 0.000E+00 0.000E+00 -3.010E-01 5.243E-01 -3.636E+00 -3.562E-01 2.594E-03 -5.812E-01 0.000E+00 0.000E+00 0.000E+00 6.025E-01 2.639E+00 -2.740E+00 -3.577E-01 5.966E-03 -6.796E-01 0.000E+00 0.000E+00 0.000E+00 -4.186E-02 1.241E+00 -3.477E+00 2.111E-01 2.414E-02 -6.066E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 191 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 141 2 1.343E+00 1.342E+00 1.604E+00 9.308E-01 2.040E-01 -1.340E+00 0.000E+00 0.000E+00 0.000E+00 -1.512E+00 -3.828E+00 -2.743E+00 8.344E-01 1.926E-01 -1.096E+00 0.000E+00 0.000E+00 0.000E+00 -8.755E-01 -2.178E+00 -1.225E+00 -5.798E-01 2.765E-02 -1.146E+00 0.000E+00 0.000E+00 0.000E+00 1.034E+00 1.274E+00 1.687E+00 -5.156E-01 2.945E-02 -1.349E+00 0.000E+00 0.000E+00 0.000E+00 -6.934E-03 -8.520E-01 -1.795E-01 1.675E-01 1.137E-01 -1.229E+00 0.000E+00 0.000E+00 0.000E+00 0 141 3 2.869E+00 5.658E+00 1.128E+01 9.766E-01 5.545E-01 -1.611E+00 0.000E+00 0.000E+00 0.000E+00 -2.509E+00 -2.202E+00 1.215E+00 7.148E-01 5.949E-01 -1.372E+00 0.000E+00 0.000E+00 0.000E+00 -1.831E+00 -4.248E-02 4.150E+00 -7.489E-01 1.227E-01 -1.429E+00 0.000E+00 0.000E+00 0.000E+00 1.782E+00 5.225E+00 1.093E+01 -5.743E-01 7.535E-02 -1.653E+00 0.000E+00 0.000E+00 0.000E+00 6.329E-02 2.145E+00 6.860E+00 9.204E-02 3.382E-01 -1.511E+00 0.000E+00 0.000E+00 0.000E+00 0 141 4 2.514E+00 6.473E+00 1.090E+01 8.464E-01 6.361E-01 -1.521E+00 0.000E+00 0.000E+00 0.000E+00 -2.219E+00 -3.246E-01 1.916E+00 6.318E-01 7.073E-01 -1.264E+00 0.000E+00 0.000E+00 0.000E+00 -1.601E+00 1.518E+00 4.458E+00 -5.870E-01 1.533E-01 -1.374E+00 0.000E+00 0.000E+00 0.000E+00 1.582E+00 6.078E+00 1.051E+01 -4.439E-01 8.327E-02 -1.619E+00 0.000E+00 0.000E+00 0.000E+00 5.582E-02 3.423E+00 6.914E+00 1.118E-01 3.967E-01 -1.439E+00 0.000E+00 0.000E+00 0.000E+00 0 141 5 1.991E+00 5.557E+00 9.142E+00 7.011E-01 6.298E-01 -1.330E+00 0.000E+00 0.000E+00 0.000E+00 -1.813E+00 1.251E-01 1.894E+00 5.487E-01 7.113E-01 -1.077E+00 0.000E+00 0.000E+00 0.000E+00 -1.268E+00 1.594E+00 3.893E+00 -4.182E-01 1.569E-01 -1.200E+00 0.000E+00 0.000E+00 0.000E+00 1.291E+00 5.239E+00 8.780E+00 -3.166E-01 8.144E-02 -1.441E+00 0.000E+00 0.000E+00 0.000E+00 3.943E-02 3.118E+00 5.902E+00 1.288E-01 3.964E-01 -1.256E+00 0.000E+00 0.000E+00 0.000E+00 0 141 6 1.555E+00 4.496E+00 7.508E+00 5.665E-01 5.935E-01 -1.114E+00 0.000E+00 0.000E+00 0.000E+00 -1.468E+00 2.243E-01 1.702E+00 4.624E-01 6.771E-01 -8.930E-01 0.000E+00 0.000E+00 0.000E+00 -9.938E-01 1.375E+00 3.261E+00 -2.834E-01 1.504E-01 -1.006E+00 0.000E+00 0.000E+00 0.000E+00 1.044E+00 4.245E+00 7.182E+00 -2.140E-01 7.652E-02 -1.220E+00 0.000E+00 0.000E+00 0.000E+00 2.540E-02 2.576E+00 4.893E+00 1.329E-01 3.758E-01 -1.053E+00 0.000E+00 0.000E+00 0.000E+00 0 141 7 1.216E+00 3.583E+00 6.127E+00 4.566E-01 5.460E-01 -9.210E-01 0.000E+00 0.000E+00 0.000E+00 -1.193E+00 2.170E-01 1.462E+00 3.875E-01 6.275E-01 -7.386E-01 0.000E+00 0.000E+00 0.000E+00 -7.819E-01 1.120E+00 2.679E+00 -1.874E-01 1.400E-01 -8.361E-01 0.000E+00 0.000E+00 0.000E+00 8.456E-01 3.385E+00 5.839E+00 -1.413E-01 7.057E-02 -1.017E+00 0.000E+00 0.000E+00 0.000E+00 1.424E-02 2.069E+00 4.010E+00 1.289E-01 3.472E-01 -8.735E-01 0.000E+00 0.000E+00 0.000E+00 0 141 8 9.561E-01 2.853E+00 5.005E+00 3.698E-01 4.962E-01 -7.583E-01 0.000E+00 0.000E+00 0.000E+00 -9.770E-01 1.807E-01 1.234E+00 3.254E-01 5.735E-01 -6.134E-01 0.000E+00 0.000E+00 0.000E+00 -6.208E-01 8.942E-01 2.189E+00 -1.216E-01 1.283E-01 -6.939E-01 0.000E+00 0.000E+00 0.000E+00 6.896E-01 2.697E+00 4.754E+00 -9.196E-02 6.442E-02 -8.429E-01 0.000E+00 0.000E+00 0.000E+00 5.668E-03 1.650E+00 3.281E+00 1.204E-01 3.167E-01 -7.230E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 192 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 141 9 7.560E-01 2.280E+00 4.101E+00 3.011E-01 4.474E-01 -6.228E-01 0.000E+00 0.000E+00 0.000E+00 -8.060E-01 1.415E-01 1.033E+00 2.741E-01 5.196E-01 -5.113E-01 0.000E+00 0.000E+00 0.000E+00 -4.975E-01 7.095E-01 1.786E+00 -7.694E-02 1.165E-01 -5.761E-01 0.000E+00 0.000E+00 0.000E+00 5.662E-01 2.157E+00 3.883E+00 -5.895E-02 5.861E-02 -6.964E-01 0.000E+00 0.000E+00 0.000E+00 -7.927E-04 1.316E+00 2.688E+00 1.098E-01 2.864E-01 -5.981E-01 0.000E+00 0.000E+00 0.000E+00 0 141 10 5.999E-01 1.829E+00 3.369E+00 2.461E-01 4.009E-01 -5.101E-01 0.000E+00 0.000E+00 0.000E+00 -6.687E-01 1.076E-01 8.620E-01 2.314E-01 4.676E-01 -4.272E-01 0.000E+00 0.000E+00 0.000E+00 -4.015E-01 5.625E-01 1.457E+00 -4.674E-02 1.051E-01 -4.782E-01 0.000E+00 0.000E+00 0.000E+00 4.672E-01 1.733E+00 3.182E+00 -3.693E-02 5.304E-02 -5.736E-01 0.000E+00 0.000E+00 0.000E+00 -5.543E-03 1.053E+00 2.206E+00 9.848E-02 2.574E-01 -4.941E-01 0.000E+00 0.000E+00 0.000E+00 0 141 0.0000 1.442E+01 3.837E+01 5.422E+01 6.545E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.451E+01 -5.690E+00 1.842E+00 5.567E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -9.296E+00 7.009E+00 1.710E+01 -3.564E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.019E+01 3.658E+01 5.248E+01 -2.913E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.267E-01 1.899E+01 3.123E+01 1.409E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 141 7.1000 1.141E+01 2.986E+01 3.943E+01 5.399E+00 2.940E+00 -5.622E+00 0.000E+00 0.000E+00 0.000E+00 -1.153E+01 -5.771E+00 -1.390E+00 4.593E+00 3.343E+00 -4.603E+00 0.000E+00 0.000E+00 0.000E+00 -7.345E+00 4.656E+00 1.084E+01 -3.074E+00 7.356E-01 -5.091E+00 0.000E+00 0.000E+00 0.000E+00 8.081E+00 2.855E+01 3.837E+01 -2.537E+00 3.845E-01 -6.096E+00 0.000E+00 0.000E+00 0.000E+00 9.871E-02 1.427E+01 2.168E+01 1.095E+00 1.857E+00 -5.327E+00 0.000E+00 0.000E+00 0.000E+00 0 142 0 1.933E-01 7.638E-01 -1.986E+00 4.778E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.286E-01 -7.447E-01 -2.551E+00 4.456E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.136E-01 -1.091E+00 -2.560E+00 2.198E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.242E-01 1.177E+00 -1.702E+00 7.022E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.307E-01 2.663E-02 -2.199E+00 2.539E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 142 1 4.787E-01 1.966E-01 -3.755E+00 9.968E-01 6.268E-02 -5.076E-01 0.000E+00 0.000E+00 0.000E+00 -9.334E-01 -3.133E+00 -5.132E+00 9.326E-01 4.540E-02 -3.126E-01 0.000E+00 0.000E+00 0.000E+00 -1.348E+00 -3.906E+00 -5.219E+00 1.773E-02 3.748E-02 -2.464E-01 0.000E+00 0.000E+00 0.000E+00 7.740E-01 1.092E+00 -3.144E+00 1.141E-01 6.082E-02 -5.748E-01 0.000E+00 0.000E+00 0.000E+00 -2.570E-01 -1.438E+00 -4.312E+00 5.153E-01 5.143E-02 -4.092E-01 0.000E+00 0.000E+00 0.000E+00 0 142 2 1.500E+00 -2.241E+00 -1.363E+00 1.209E+00 2.693E-01 -1.024E+00 0.000E+00 0.000E+00 0.000E+00 -1.808E+00 -8.112E+00 -6.518E+00 1.149E+00 2.101E-01 -5.212E-01 0.000E+00 0.000E+00 0.000E+00 -2.677E+00 -9.509E+00 -7.528E+00 -6.812E-02 2.038E-01 -2.757E-01 0.000E+00 0.000E+00 0.000E+00 2.263E+00 -7.239E-01 1.526E-01 2.228E-02 2.885E-01 -1.123E+00 0.000E+00 0.000E+00 0.000E+00 -1.954E-01 -5.161E+00 -3.849E+00 5.779E-01 2.424E-01 -7.332E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 193 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 142 3 3.212E+00 5.566E-01 3.759E+00 1.357E+00 7.365E-01 -1.189E+00 0.000E+00 0.000E+00 0.000E+00 -3.257E+00 -8.679E+00 -8.569E+00 1.307E+00 6.589E-01 -3.239E-01 0.000E+00 0.000E+00 0.000E+00 -4.855E+00 -1.088E+01 -1.130E+01 -1.815E-03 6.921E-01 6.008E-02 0.000E+00 0.000E+00 0.000E+00 4.772E+00 2.900E+00 7.014E+00 7.194E-02 8.049E-01 -1.389E+00 0.000E+00 0.000E+00 0.000E+00 -7.929E-02 -4.072E+00 -2.384E+00 6.836E-01 7.222E-01 -7.059E-01 0.000E+00 0.000E+00 0.000E+00 0 142 4 2.783E+00 2.120E+00 4.150E+00 1.203E+00 8.475E-01 -1.061E+00 0.000E+00 0.000E+00 0.000E+00 -2.855E+00 -5.737E+00 -6.788E+00 1.159E+00 7.887E-01 -9.298E-02 0.000E+00 0.000E+00 0.000E+00 -4.243E+00 -7.595E+00 -9.192E+00 1.078E-01 8.291E-01 2.802E-01 0.000E+00 0.000E+00 0.000E+00 4.094E+00 4.069E+00 6.932E+00 1.747E-01 9.127E-01 -1.336E+00 0.000E+00 0.000E+00 0.000E+00 -9.762E-02 -1.828E+00 -1.324E+00 6.612E-01 8.440E-01 -5.473E-01 0.000E+00 0.000E+00 0.000E+00 0 142 5 2.170E+00 2.113E+00 3.686E+00 1.014E+00 8.394E-01 -8.817E-01 0.000E+00 0.000E+00 0.000E+00 -2.299E+00 -4.027E+00 -5.072E+00 9.737E-01 7.955E-01 6.387E-02 0.000E+00 0.000E+00 0.000E+00 -3.397E+00 -5.467E+00 -6.964E+00 1.806E-01 8.302E-01 4.083E-01 0.000E+00 0.000E+00 0.000E+00 3.156E+00 3.592E+00 5.820E+00 2.411E-01 8.901E-01 -1.165E+00 0.000E+00 0.000E+00 0.000E+00 -1.268E-01 -9.816E-01 -7.125E-01 6.024E-01 8.383E-01 -3.888E-01 0.000E+00 0.000E+00 0.000E+00 0 142 6 1.664E+00 1.819E+00 3.120E+00 8.348E-01 7.905E-01 -7.127E-01 0.000E+00 0.000E+00 0.000E+00 -1.839E+00 -2.897E+00 -3.840E+00 7.983E-01 7.586E-01 1.452E-01 0.000E+00 0.000E+00 0.000E+00 -2.698E+00 -3.990E+00 -5.314E+00 2.208E-01 7.853E-01 4.466E-01 0.000E+00 0.000E+00 0.000E+00 2.389E+00 2.916E+00 4.738E+00 2.755E-01 8.261E-01 -9.759E-01 0.000E+00 0.000E+00 0.000E+00 -1.481E-01 -5.653E-01 -3.877E-01 5.324E-01 7.898E-01 -2.697E-01 0.000E+00 0.000E+00 0.000E+00 0 142 7 1.273E+00 1.496E+00 2.586E+00 6.847E-01 7.264E-01 -5.762E-01 0.000E+00 0.000E+00 0.000E+00 -1.480E+00 -2.132E+00 -2.964E+00 6.513E-01 7.039E-01 1.759E-01 0.000E+00 0.000E+00 0.000E+00 -2.155E+00 -2.963E+00 -4.112E+00 2.330E-01 7.229E-01 4.330E-01 0.000E+00 0.000E+00 0.000E+00 1.802E+00 2.307E+00 3.811E+00 2.831E-01 7.488E-01 -8.096E-01 0.000E+00 0.000E+00 0.000E+00 -1.618E-01 -3.447E-01 -2.207E-01 4.630E-01 7.253E-01 -1.904E-01 0.000E+00 0.000E+00 0.000E+00 0 142 8 9.769E-01 1.212E+00 2.129E+00 5.629E-01 6.592E-01 -4.687E-01 0.000E+00 0.000E+00 0.000E+00 -1.204E+00 -1.603E+00 -2.327E+00 5.322E-01 6.440E-01 1.795E-01 0.000E+00 0.000E+00 0.000E+00 -1.740E+00 -2.239E+00 -3.225E+00 2.275E-01 6.567E-01 3.960E-01 0.000E+00 0.000E+00 0.000E+00 1.361E+00 1.812E+00 3.058E+00 2.735E-01 6.709E-01 -6.710E-01 0.000E+00 0.000E+00 0.000E+00 -1.691E-01 -2.224E-01 -1.322E-01 3.990E-01 6.576E-01 -1.378E-01 0.000E+00 0.000E+00 0.000E+00 0 142 9 7.515E-01 9.764E-01 1.751E+00 4.642E-01 5.935E-01 -3.832E-01 0.000E+00 0.000E+00 0.000E+00 -9.897E-01 -1.227E+00 -1.850E+00 4.359E-01 5.840E-01 1.694E-01 0.000E+00 0.000E+00 0.000E+00 -1.418E+00 -1.718E+00 -2.557E+00 2.120E-01 5.919E-01 3.504E-01 0.000E+00 0.000E+00 0.000E+00 1.028E+00 1.421E+00 2.457E+00 2.545E-01 5.969E-01 -5.564E-01 0.000E+00 0.000E+00 0.000E+00 -1.715E-01 -1.513E-01 -8.306E-02 3.417E-01 5.915E-01 -1.022E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 194 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 142 10 5.782E-01 7.856E-01 1.439E+00 3.837E-01 5.309E-01 -3.144E-01 0.000E+00 0.000E+00 0.000E+00 -8.200E-01 -9.525E-01 -1.483E+00 3.575E-01 5.259E-01 1.530E-01 0.000E+00 0.000E+00 0.000E+00 -1.166E+00 -1.334E+00 -2.042E+00 1.916E-01 5.304E-01 3.035E-01 0.000E+00 0.000E+00 0.000E+00 7.743E-01 1.116E+00 1.976E+00 2.309E-01 5.280E-01 -4.613E-01 0.000E+00 0.000E+00 0.000E+00 -1.699E-01 -1.080E-01 -5.455E-02 2.909E-01 5.288E-01 -7.747E-02 0.000E+00 0.000E+00 0.000E+00 0 142 0.0000 1.558E+01 9.798E+00 1.551E+01 9.188E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.791E+01 -3.924E+01 -4.709E+01 8.742E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.631E+01 -5.069E+01 -6.001E+01 1.343E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.274E+01 2.168E+01 3.111E+01 2.012E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.707E+00 -1.485E+01 -1.566E+01 5.321E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 142 7.1000 1.243E+01 6.545E+00 9.493E+00 7.481E+00 3.907E+00 -3.718E+00 0.000E+00 0.000E+00 0.000E+00 -1.420E+01 -3.337E+01 -3.936E+01 7.123E+00 3.744E+00 3.882E-01 0.000E+00 0.000E+00 0.000E+00 -2.090E+01 -4.272E+01 -4.945E+01 8.072E-01 3.848E+00 1.860E+00 0.000E+00 0.000E+00 0.000E+00 1.828E+01 1.638E+01 2.205E+01 1.345E+00 4.049E+00 -4.939E+00 0.000E+00 0.000E+00 0.000E+00 -1.275E+00 -1.347E+01 -1.473E+01 4.189E+00 3.886E+00 -1.581E+00 0.000E+00 0.000E+00 0.000E+00 0 143 0 3.173E-02 -4.097E-01 -2.312E+00 3.494E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.840E-01 -1.892E+00 -2.883E+00 3.604E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.614E-01 -1.797E+00 -2.688E+00 -1.811E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.006E-02 -8.077E-01 -2.306E+00 -1.885E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.658E-01 -1.226E+00 -2.547E+00 8.506E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 143 1 1.264E-01 -2.402E+00 -4.595E+00 7.266E-01 4.975E-02 -3.062E-01 0.000E+00 0.000E+00 0.000E+00 -1.229E+00 -5.600E+00 -5.916E+00 7.548E-01 3.222E-02 -1.832E-01 0.000E+00 0.000E+00 0.000E+00 -9.587E-01 -5.400E+00 -5.520E+00 -3.968E-01 2.319E-03 -1.510E-01 0.000E+00 0.000E+00 0.000E+00 -5.497E-02 -3.268E+00 -4.640E+00 -4.157E-01 1.401E-02 -2.474E-01 0.000E+00 0.000E+00 0.000E+00 -5.290E-01 -4.168E+00 -5.167E+00 1.672E-01 2.451E-02 -2.226E-01 0.000E+00 0.000E+00 0.000E+00 0 143 2 7.981E-01 -6.711E+00 -5.316E+00 7.971E-01 2.153E-01 -4.818E-01 0.000E+00 0.000E+00 0.000E+00 -1.925E+00 -1.177E+01 -9.334E+00 8.970E-01 1.455E-01 -2.286E-01 0.000E+00 0.000E+00 0.000E+00 -1.345E+00 -1.144E+01 -8.815E+00 -5.630E-01 1.028E-02 -7.238E-02 0.000E+00 0.000E+00 0.000E+00 4.608E-01 -8.077E+00 -6.158E+00 -6.296E-01 5.804E-02 -2.766E-01 0.000E+00 0.000E+00 0.000E+00 -5.068E-01 -9.504E+00 -7.415E+00 1.254E-01 1.071E-01 -2.664E-01 0.000E+00 0.000E+00 0.000E+00 0 143 3 1.913E+00 -6.162E+00 -6.263E+00 7.152E-01 6.010E-01 -1.769E-01 0.000E+00 0.000E+00 0.000E+00 -3.079E+00 -1.366E+01 -1.540E+01 9.335E-01 4.633E-01 7.368E-02 0.000E+00 0.000E+00 0.000E+00 -1.989E+00 -1.312E+01 -1.468E+01 -6.351E-01 4.645E-02 3.004E-01 0.000E+00 0.000E+00 0.000E+00 1.323E+00 -8.135E+00 -8.624E+00 -7.808E-01 1.426E-01 7.591E-02 0.000E+00 0.000E+00 0.000E+00 -4.693E-01 -1.028E+01 -1.127E+01 5.816E-02 3.131E-01 6.569E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 195 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 143 4 1.634E+00 -3.507E+00 -4.772E+00 6.272E-01 6.955E-01 8.656E-02 0.000E+00 0.000E+00 0.000E+00 -2.765E+00 -1.001E+01 -1.293E+01 8.155E-01 5.594E-01 3.452E-01 0.000E+00 0.000E+00 0.000E+00 -1.814E+00 -9.529E+00 -1.228E+01 -4.992E-01 6.045E-02 5.425E-01 0.000E+00 0.000E+00 0.000E+00 1.107E+00 -5.206E+00 -6.871E+00 -6.248E-01 1.565E-01 3.052E-01 0.000E+00 0.000E+00 0.000E+00 -4.700E-01 -7.073E+00 -9.239E+00 7.961E-02 3.678E-01 3.169E-01 0.000E+00 0.000E+00 0.000E+00 0 143 5 1.225E+00 -2.221E+00 -3.473E+00 5.335E-01 6.903E-01 2.452E-01 0.000E+00 0.000E+00 0.000E+00 -2.323E+00 -7.446E+00 -1.008E+01 6.825E-01 5.678E-01 4.935E-01 0.000E+00 0.000E+00 0.000E+00 -1.553E+00 -7.048E+00 -9.521E+00 -3.654E-01 6.378E-02 6.669E-01 0.000E+00 0.000E+00 0.000E+00 8.051E-01 -3.572E+00 -5.135E+00 -4.647E-01 1.503E-01 4.364E-01 0.000E+00 0.000E+00 0.000E+00 -4.696E-01 -5.080E+00 -7.070E+00 9.650E-02 3.678E-01 4.575E-01 0.000E+00 0.000E+00 0.000E+00 0 143 6 8.822E-01 -1.456E+00 -2.592E+00 4.390E-01 6.509E-01 3.177E-01 0.000E+00 0.000E+00 0.000E+00 -1.950E+00 -5.591E+00 -7.897E+00 5.573E-01 5.446E-01 5.314E-01 0.000E+00 0.000E+00 0.000E+00 -1.324E+00 -5.261E+00 -7.422E+00 -2.572E-01 6.279E-02 6.786E-01 0.000E+00 0.000E+00 0.000E+00 5.619E-01 -2.506E+00 -3.890E+00 -3.361E-01 1.384E-01 4.754E-01 0.000E+00 0.000E+00 0.000E+00 -4.638E-01 -3.710E+00 -5.465E+00 1.007E-01 3.491E-01 4.980E-01 0.000E+00 0.000E+00 0.000E+00 0 143 7 6.156E-01 -9.844E-01 -1.991E+00 3.584E-01 5.986E-01 3.354E-01 0.000E+00 0.000E+00 0.000E+00 -1.652E+00 -4.267E+00 -6.269E+00 4.541E-01 5.084E-01 5.090E-01 0.000E+00 0.000E+00 0.000E+00 -1.135E+00 -3.989E+00 -5.859E+00 -1.799E-01 6.009E-02 6.322E-01 0.000E+00 0.000E+00 0.000E+00 3.794E-01 -1.798E+00 -3.002E+00 -2.437E-01 1.250E-01 4.610E-01 0.000E+00 0.000E+00 0.000E+00 -4.530E-01 -2.764E+00 -4.292E+00 9.722E-02 3.230E-01 4.818E-01 0.000E+00 0.000E+00 0.000E+00 0 143 8 4.140E-01 -6.868E-01 -1.566E+00 2.927E-01 5.435E-01 3.248E-01 0.000E+00 0.000E+00 0.000E+00 -1.417E+00 -3.315E+00 -5.040E+00 3.720E-01 4.681E-01 4.606E-01 0.000E+00 0.000E+00 0.000E+00 -9.814E-01 -3.078E+00 -4.685E+00 -1.266E-01 5.681E-02 5.632E-01 0.000E+00 0.000E+00 0.000E+00 2.457E-01 -1.319E+00 -2.354E+00 -1.795E-01 1.118E-01 4.227E-01 0.000E+00 0.000E+00 0.000E+00 -4.384E-01 -2.104E+00 -3.420E+00 8.966E-02 2.951E-01 4.405E-01 0.000E+00 0.000E+00 0.000E+00 0 143 9 2.627E-01 -4.932E-01 -1.254E+00 2.395E-01 4.895E-01 3.007E-01 0.000E+00 0.000E+00 0.000E+00 -1.227E+00 -2.617E+00 -4.095E+00 3.065E-01 4.274E-01 4.031E-01 0.000E+00 0.000E+00 0.000E+00 -8.549E-01 -2.413E+00 -3.785E+00 -9.007E-02 5.329E-02 4.886E-01 0.000E+00 0.000E+00 0.000E+00 1.484E-01 -9.865E-01 -1.867E+00 -1.348E-01 9.941E-02 3.756E-01 0.000E+00 0.000E+00 0.000E+00 -4.204E-01 -1.630E+00 -2.757E+00 8.028E-02 2.675E-01 3.899E-01 0.000E+00 0.000E+00 0.000E+00 0 143 10 1.495E-01 -3.633E-01 -1.016E+00 1.961E-01 4.381E-01 2.710E-01 0.000E+00 0.000E+00 0.000E+00 -1.070E+00 -2.092E+00 -3.351E+00 2.537E-01 3.877E-01 3.450E-01 0.000E+00 0.000E+00 0.000E+00 -7.486E-01 -1.915E+00 -3.081E+00 -6.490E-02 4.973E-02 4.163E-01 0.000E+00 0.000E+00 0.000E+00 7.770E-02 -7.490E-01 -1.493E+00 -1.033E-01 8.807E-02 3.269E-01 0.000E+00 0.000E+00 0.000E+00 -3.998E-01 -1.282E+00 -2.240E+00 7.039E-02 2.410E-01 3.379E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 196 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 143 0.0000 8.052E+00 -2.540E+01 -3.515E+01 5.275E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.922E+01 -6.826E+01 -8.319E+01 6.387E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.317E+01 -6.499E+01 -7.834E+01 -3.359E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 5.003E+00 -3.642E+01 -4.634E+01 -4.101E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.886E+00 -4.882E+01 -6.088E+01 1.050E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 143 7.1000 6.586E+00 -2.235E+01 -2.982E+01 4.380E+00 3.215E+00 1.232E+00 0.000E+00 0.000E+00 0.000E+00 -1.503E+01 -5.698E+01 -6.725E+01 5.247E+00 2.702E+00 2.220E+00 0.000E+00 0.000E+00 0.000E+00 -1.030E+01 -5.441E+01 -6.343E+01 -2.885E+00 3.162E-01 2.963E+00 0.000E+00 0.000E+00 0.000E+00 4.088E+00 -3.136E+01 -3.854E+01 -3.463E+00 6.846E-01 2.001E+00 0.000E+00 0.000E+00 0.000E+00 -3.705E+00 -4.132E+01 -4.986E+01 8.197E-01 1.729E+00 2.090E+00 0.000E+00 0.000E+00 0.000E+00 0 151 0 -5.734E-02 1.111E+00 -1.868E+00 2.507E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.148E-01 7.190E-01 -2.001E+00 2.783E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.609E-02 6.968E-01 -1.765E+00 7.224E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.206E-01 1.285E+00 -1.565E+00 3.081E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.679E-02 9.532E-01 -1.799E+00 1.580E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 151 1 -7.096E-02 1.068E+00 -3.413E+00 5.386E-01 5.986E-03 -8.280E-01 0.000E+00 0.000E+00 0.000E+00 -4.725E-01 1.245E-01 -3.808E+00 5.992E-01 2.598E-03 -6.846E-01 0.000E+00 0.000E+00 0.000E+00 -9.204E-02 6.531E-03 -3.407E+00 1.213E-01 2.226E-02 -6.238E-01 0.000E+00 0.000E+00 0.000E+00 5.061E-01 1.418E+00 -2.824E+00 3.039E-02 3.014E-02 -8.490E-01 0.000E+00 0.000E+00 0.000E+00 -3.244E-02 6.541E-01 -3.363E+00 3.224E-01 1.534E-02 -7.464E-01 0.000E+00 0.000E+00 0.000E+00 0 151 2 3.878E-01 -2.333E-01 1.041E+00 7.083E-01 2.964E-02 -1.769E+00 0.000E+00 0.000E+00 0.000E+00 -1.014E+00 -2.503E+00 -1.364E+00 8.363E-01 2.775E-02 -1.370E+00 0.000E+00 0.000E+00 0.000E+00 -7.085E-01 -3.111E+00 -1.817E+00 8.726E-02 1.539E-01 -1.126E+00 0.000E+00 0.000E+00 0.000E+00 1.356E+00 2.545E-01 1.699E+00 -1.047E-01 1.697E-01 -1.755E+00 0.000E+00 0.000E+00 0.000E+00 -2.694E-04 -1.404E+00 -1.230E-01 3.818E-01 9.570E-02 -1.505E+00 0.000E+00 0.000E+00 0.000E+00 0 151 3 1.163E+00 3.782E+00 1.031E+01 7.818E-01 7.547E-02 -2.303E+00 0.000E+00 0.000E+00 0.000E+00 -1.936E+00 -2.873E-01 4.045E+00 1.030E+00 1.225E-01 -1.550E+00 0.000E+00 0.000E+00 0.000E+00 -1.703E+00 -1.469E+00 1.975E+00 2.443E-01 5.316E-01 -1.131E+00 0.000E+00 0.000E+00 0.000E+00 2.825E+00 4.514E+00 1.109E+01 -1.275E-01 4.984E-01 -2.313E+00 0.000E+00 0.000E+00 0.000E+00 6.972E-02 1.618E+00 6.813E+00 4.821E-01 3.086E-01 -1.825E+00 0.000E+00 0.000E+00 0.000E+00 0 151 4 1.006E+00 4.735E+00 9.933E+00 6.536E-01 8.362E-02 -2.233E+00 0.000E+00 0.000E+00 0.000E+00 -1.679E+00 1.336E+00 4.380E+00 8.772E-01 1.535E-01 -1.387E+00 0.000E+00 0.000E+00 0.000E+00 -1.438E+00 3.818E-01 2.503E+00 3.206E-01 6.205E-01 -9.698E-01 0.000E+00 0.000E+00 0.000E+00 2.428E+00 5.317E+00 1.045E+01 -1.488E-02 5.605E-01 -2.291E+00 0.000E+00 0.000E+00 0.000E+00 6.137E-02 2.925E+00 6.776E+00 4.591E-01 3.566E-01 -1.721E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 197 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 151 5 7.760E-01 4.037E+00 8.265E+00 5.180E-01 8.156E-02 -1.982E+00 0.000E+00 0.000E+00 0.000E+00 -1.325E+00 1.462E+00 3.837E+00 7.019E-01 1.568E-01 -1.155E+00 0.000E+00 0.000E+00 0.000E+00 -1.089E+00 7.719E-01 2.326E+00 3.497E-01 6.063E-01 -7.638E-01 0.000E+00 0.000E+00 0.000E+00 1.878E+00 4.449E+00 8.536E+00 7.386E-02 5.385E-01 -2.048E+00 0.000E+00 0.000E+00 0.000E+00 4.363E-02 2.663E+00 5.702E+00 4.109E-01 3.480E-01 -1.487E+00 0.000E+00 0.000E+00 0.000E+00 0 151 6 5.946E-01 3.197E+00 6.733E+00 4.002E-01 7.658E-02 -1.684E+00 0.000E+00 0.000E+00 0.000E+00 -1.034E+00 1.282E+00 3.221E+00 5.492E-01 1.504E-01 -9.281E-01 0.000E+00 0.000E+00 0.000E+00 -8.152E-01 7.985E-01 2.012E+00 3.546E-01 5.601E-01 -5.784E-01 0.000E+00 0.000E+00 0.000E+00 1.432E+00 3.476E+00 6.826E+00 1.312E-01 4.925E-01 -1.744E+00 0.000E+00 0.000E+00 0.000E+00 2.921E-02 2.173E+00 4.662E+00 3.588E-01 3.219E-01 -1.233E+00 0.000E+00 0.000E+00 0.000E+00 0 151 7 4.601E-01 2.486E+00 5.454E+00 3.098E-01 7.054E-02 -1.412E+00 0.000E+00 0.000E+00 0.000E+00 -8.092E-01 1.056E+00 2.652E+00 4.301E-01 1.400E-01 -7.422E-01 0.000E+00 0.000E+00 0.000E+00 -6.145E-01 7.196E-01 1.683E+00 3.400E-01 5.038E-01 -4.369E-01 0.000E+00 0.000E+00 0.000E+00 1.092E+00 2.667E+00 5.425E+00 1.596E-01 4.399E-01 -1.461E+00 0.000E+00 0.000E+00 0.000E+00 1.827E-02 1.718E+00 3.771E+00 3.099E-01 2.905E-01 -1.013E+00 0.000E+00 0.000E+00 0.000E+00 0 151 8 3.619E-01 1.932E+00 4.426E+00 2.425E-01 6.450E-02 -1.180E+00 0.000E+00 0.000E+00 0.000E+00 -6.386E-01 8.528E-01 2.171E+00 3.399E-01 1.283E-01 -5.953E-01 0.000E+00 0.000E+00 0.000E+00 -4.692E-01 6.173E-01 1.388E+00 3.143E-01 4.476E-01 -3.317E-01 0.000E+00 0.000E+00 0.000E+00 8.373E-01 2.043E+00 4.318E+00 1.683E-01 3.888E-01 -1.219E+00 0.000E+00 0.000E+00 0.000E+00 1.024E-02 1.349E+00 3.046E+00 2.663E-01 2.591E-01 -8.308E-01 0.000E+00 0.000E+00 0.000E+00 0 151 9 2.892E-01 1.511E+00 3.606E+00 1.921E-01 5.861E-02 -9.845E-01 0.000E+00 0.000E+00 0.000E+00 -5.080E-01 6.850E-01 1.775E+00 2.712E-01 1.165E-01 -4.788E-01 0.000E+00 0.000E+00 0.000E+00 -3.631E-01 5.191E-01 1.139E+00 2.837E-01 3.948E-01 -2.529E-01 0.000E+00 0.000E+00 0.000E+00 6.453E-01 1.571E+00 3.449E+00 1.652E-01 3.413E-01 -1.015E+00 0.000E+00 0.000E+00 0.000E+00 4.379E-03 1.060E+00 2.466E+00 2.281E-01 2.294E-01 -6.820E-01 0.000E+00 0.000E+00 0.000E+00 0 151 10 2.343E-01 1.190E+00 2.949E+00 1.538E-01 5.307E-02 -8.204E-01 0.000E+00 0.000E+00 0.000E+00 -4.067E-01 5.504E-01 1.452E+00 2.181E-01 1.051E-01 -3.858E-01 0.000E+00 0.000E+00 0.000E+00 -2.844E-01 4.326E-01 9.332E-01 2.517E-01 3.464E-01 -1.932E-01 0.000E+00 0.000E+00 0.000E+00 4.992E-01 1.214E+00 2.764E+00 1.554E-01 2.983E-01 -8.438E-01 0.000E+00 0.000E+00 0.000E+00 2.198E-04 8.363E-01 2.000E+00 1.948E-01 2.022E-01 -5.600E-01 0.000E+00 0.000E+00 0.000E+00 0 151 0.0000 5.145E+00 2.482E+01 4.743E+01 4.750E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.004E+01 5.278E+00 1.636E+01 6.131E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -7.593E+00 3.647E-01 6.971E+00 2.740E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.372E+01 2.821E+01 5.017E+01 6.676E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.875E-01 1.455E+01 2.995E+01 3.572E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 198 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 151 7.1000 3.986E+00 1.899E+01 3.428E+01 3.959E+00 3.850E-01 -8.449E+00 0.000E+00 0.000E+00 0.000E+00 -8.017E+00 3.089E+00 1.017E+01 5.045E+00 7.356E-01 -4.802E+00 0.000E+00 0.000E+00 0.000E+00 -6.039E+00 -9.561E-01 3.163E+00 1.931E+00 2.701E+00 -3.081E+00 0.000E+00 0.000E+00 0.000E+00 1.100E+01 2.193E+01 3.707E+01 3.029E-01 2.388E+00 -8.679E+00 0.000E+00 0.000E+00 0.000E+00 1.461E-01 1.068E+01 2.097E+01 2.810E+00 1.563E+00 -6.251E+00 0.000E+00 0.000E+00 0.000E+00 0 152 0 1.692E-01 8.149E-01 -1.857E+00 4.423E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.313E-01 -8.989E-01 -2.478E+00 4.707E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.586E-01 -4.930E-01 -2.129E+00 1.493E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.102E-01 6.514E-01 -1.711E+00 1.303E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.022E-01 1.901E-02 -2.043E+00 2.982E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 152 1 4.733E-01 3.901E-01 -3.444E+00 9.197E-01 6.083E-02 -6.889E-01 0.000E+00 0.000E+00 0.000E+00 -1.177E+00 -3.506E+00 -5.047E+00 9.750E-01 3.748E-02 -3.509E-01 0.000E+00 0.000E+00 0.000E+00 -5.999E-01 -2.624E+00 -4.307E+00 2.637E-01 2.272E-02 -3.953E-01 0.000E+00 0.000E+00 0.000E+00 4.993E-01 -2.729E-02 -3.240E+00 2.269E-01 3.870E-02 -6.393E-01 0.000E+00 0.000E+00 0.000E+00 -2.007E-01 -1.442E+00 -4.009E+00 5.963E-01 3.976E-02 -5.173E-01 0.000E+00 0.000E+00 0.000E+00 0 152 2 1.989E+00 -1.363E+00 -1.213E-01 1.046E+00 2.885E-01 -1.388E+00 0.000E+00 0.000E+00 0.000E+00 -2.487E+00 -9.066E+00 -7.338E+00 1.093E+00 2.038E-01 -5.590E-01 0.000E+00 0.000E+00 0.000E+00 -1.487E+00 -7.587E+00 -5.739E+00 7.713E-02 1.637E-01 -5.918E-01 0.000E+00 0.000E+00 0.000E+00 1.480E+00 -2.469E+00 -9.679E-01 4.574E-02 2.203E-01 -1.196E+00 0.000E+00 0.000E+00 0.000E+00 -1.412E-01 -5.136E+00 -3.576E+00 5.656E-01 2.185E-01 -9.303E-01 0.000E+00 0.000E+00 0.000E+00 0 152 3 4.528E+00 2.330E+00 6.769E+00 1.050E+00 8.048E-01 -1.584E+00 0.000E+00 0.000E+00 0.000E+00 -4.653E+00 -1.040E+01 -1.110E+01 1.091E+00 6.919E-01 -3.037E-01 0.000E+00 0.000E+00 0.000E+00 -2.933E+00 -8.144E+00 -7.851E+00 -2.595E-02 5.846E-01 -3.735E-01 0.000E+00 0.000E+00 0.000E+00 3.144E+00 3.023E-01 3.961E+00 -5.358E-02 6.587E-01 -1.313E+00 0.000E+00 0.000E+00 0.000E+00 -2.550E-02 -4.026E+00 -2.164E+00 5.155E-01 6.842E-01 -8.884E-01 0.000E+00 0.000E+00 0.000E+00 0 152 4 3.880E+00 3.570E+00 6.718E+00 9.456E-01 9.127E-01 -1.420E+00 0.000E+00 0.000E+00 0.000E+00 -4.045E+00 -7.134E+00 -8.995E+00 9.980E-01 8.291E-01 -1.004E-02 0.000E+00 0.000E+00 0.000E+00 -2.531E+00 -5.222E+00 -6.144E+00 1.208E-01 6.878E-01 -1.414E-01 0.000E+00 0.000E+00 0.000E+00 2.688E+00 1.849E+00 4.181E+00 8.583E-02 7.428E-01 -1.172E+00 0.000E+00 0.000E+00 0.000E+00 -4.387E-02 -1.776E+00 -1.158E+00 5.376E-01 7.925E-01 -6.801E-01 0.000E+00 0.000E+00 0.000E+00 0 152 5 2.974E+00 3.169E+00 5.638E+00 8.183E-01 8.900E-01 -1.184E+00 0.000E+00 0.000E+00 0.000E+00 -3.220E+00 -5.053E+00 -6.787E+00 8.825E-01 8.301E-01 1.798E-01 0.000E+00 0.000E+00 0.000E+00 -1.982E+00 -3.558E+00 -4.505E+00 2.382E-01 6.735E-01 3.312E-02 0.000E+00 0.000E+00 0.000E+00 2.068E+00 1.844E+00 3.594E+00 1.954E-01 7.144E-01 -9.593E-01 0.000E+00 0.000E+00 0.000E+00 -7.336E-02 -9.331E-01 -5.930E-01 5.336E-01 7.765E-01 -4.769E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 199 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 152 6 2.239E+00 2.564E+00 4.587E+00 6.885E-01 8.260E-01 -9.528E-01 0.000E+00 0.000E+00 0.000E+00 -2.547E+00 -3.637E+00 -5.162E+00 7.610E-01 7.852E-01 2.634E-01 0.000E+00 0.000E+00 0.000E+00 -1.536E+00 -2.482E+00 -3.344E+00 3.063E-01 6.228E-01 1.223E-01 0.000E+00 0.000E+00 0.000E+00 1.569E+00 1.568E+00 2.959E+00 2.579E-01 6.528E-01 -7.586E-01 0.000E+00 0.000E+00 0.000E+00 -9.537E-02 -5.233E-01 -3.021E-01 5.034E-01 7.214E-01 -3.264E-01 0.000E+00 0.000E+00 0.000E+00 0 152 7 1.679E+00 2.019E+00 3.687E+00 5.755E-01 7.488E-01 -7.632E-01 0.000E+00 0.000E+00 0.000E+00 -2.030E+00 -2.670E+00 -3.986E+00 6.529E-01 7.229E-01 2.815E-01 0.000E+00 0.000E+00 0.000E+00 -1.197E+00 -1.770E+00 -2.528E+00 3.336E-01 5.606E-01 1.539E-01 0.000E+00 0.000E+00 0.000E+00 1.191E+00 1.271E+00 2.390E+00 2.820E-01 5.826E-01 -5.993E-01 0.000E+00 0.000E+00 0.000E+00 -1.102E-01 -3.087E-01 -1.587E-01 4.610E-01 6.535E-01 -2.274E-01 0.000E+00 0.000E+00 0.000E+00 0 152 8 1.261E+00 1.579E+00 2.959E+00 4.813E-01 6.709E-01 -6.130E-01 0.000E+00 0.000E+00 0.000E+00 -1.637E+00 -2.001E+00 -3.123E+00 5.608E-01 6.567E-01 2.676E-01 0.000E+00 0.000E+00 0.000E+00 -9.417E-01 -1.291E+00 -1.945E+00 3.346E-01 4.982E-01 1.558E-01 0.000E+00 0.000E+00 0.000E+00 9.098E-01 1.015E+00 1.921E+00 2.816E-01 5.141E-01 -4.763E-01 0.000E+00 0.000E+00 0.000E+00 -1.190E-01 -1.916E-01 -8.652E-02 4.146E-01 5.848E-01 -1.628E-01 0.000E+00 0.000E+00 0.000E+00 0 152 9 9.478E-01 1.235E+00 2.377E+00 4.032E-01 5.969E-01 -4.938E-01 0.000E+00 0.000E+00 0.000E+00 -1.336E+00 -1.527E+00 -2.475E+00 4.826E-01 5.919E-01 2.397E-01 0.000E+00 0.000E+00 0.000E+00 -7.487E-01 -9.590E-01 -1.515E+00 3.202E-01 4.395E-01 1.436E-01 0.000E+00 0.000E+00 0.000E+00 6.987E-01 8.068E-01 1.544E+00 2.672E-01 4.508E-01 -3.810E-01 0.000E+00 0.000E+00 0.000E+00 -1.232E-01 -1.247E-01 -4.890E-02 3.683E-01 5.197E-01 -1.198E-01 0.000E+00 0.000E+00 0.000E+00 0 152 10 7.107E-01 9.673E-01 1.912E+00 3.381E-01 5.280E-01 -3.984E-01 0.000E+00 0.000E+00 0.000E+00 -1.101E+00 -1.182E+00 -1.976E+00 4.159E-01 5.304E-01 2.070E-01 0.000E+00 0.000E+00 0.000E+00 -6.005E-01 -7.226E-01 -1.190E+00 2.974E-01 3.858E-01 1.256E-01 0.000E+00 0.000E+00 0.000E+00 5.387E-01 6.418E-01 1.243E+00 2.455E-01 3.934E-01 -3.060E-01 0.000E+00 0.000E+00 0.000E+00 -1.239E-01 -8.483E-02 -2.863E-02 3.242E-01 4.594E-01 -9.039E-02 0.000E+00 0.000E+00 0.000E+00 0 152 0.0000 2.085E+01 1.728E+01 2.923E+01 7.709E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.476E+01 -4.708E+01 -5.846E+01 8.384E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.482E+01 -3.485E+01 -4.120E+01 2.415E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.500E+01 7.454E+00 1.588E+01 1.965E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.158E+00 -1.453E+01 -1.417E+01 5.118E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 152 7.1000 1.669E+01 1.269E+01 2.046E+01 6.276E+00 4.048E+00 -4.924E+00 0.000E+00 0.000E+00 0.000E+00 -1.965E+01 -3.981E+01 -4.820E+01 6.749E+00 3.848E+00 8.368E-01 0.000E+00 0.000E+00 0.000E+00 -1.181E+01 -2.987E+01 -3.457E+01 1.624E+00 2.999E+00 2.005E-01 0.000E+00 0.000E+00 0.000E+00 1.202E+01 4.737E+00 1.029E+01 1.308E+00 3.159E+00 -3.965E+00 0.000E+00 0.000E+00 0.000E+00 -8.615E-01 -1.324E+01 -1.341E+01 3.989E+00 3.512E+00 -1.939E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 200 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 153 0 -3.050E-02 -7.621E-01 -2.286E+00 3.062E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.991E-01 -1.185E+00 -2.426E+00 2.654E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.755E-01 -1.208E+00 -2.329E+00 2.743E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.188E-01 -5.708E-01 -2.110E+00 8.851E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.810E-01 -9.315E-01 -2.288E+00 1.719E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 153 1 -9.187E-03 -3.161E+00 -4.594E+00 6.540E-01 1.399E-02 -3.487E-01 0.000E+00 0.000E+00 0.000E+00 -4.260E-01 -4.157E+00 -4.987E+00 5.667E-01 2.312E-03 -2.175E-01 0.000E+00 0.000E+00 0.000E+00 -8.190E-01 -4.223E+00 -4.814E+00 2.380E-02 1.615E-02 -1.939E-01 0.000E+00 0.000E+00 0.000E+00 -1.896E-01 -2.725E+00 -4.214E+00 1.546E-01 3.087E-02 -4.016E-01 0.000E+00 0.000E+00 0.000E+00 -3.610E-01 -3.567E+00 -4.652E+00 3.498E-01 1.590E-02 -2.896E-01 0.000E+00 0.000E+00 0.000E+00 0 153 2 5.218E-01 -7.935E+00 -6.097E+00 8.783E-01 5.792E-02 -5.556E-01 0.000E+00 0.000E+00 0.000E+00 -7.914E-01 -1.015E+01 -8.261E+00 7.384E-01 1.019E-02 -1.926E-01 0.000E+00 0.000E+00 0.000E+00 -1.528E+00 -1.036E+01 -8.233E+00 -1.050E-01 1.128E-01 -5.431E-02 0.000E+00 0.000E+00 0.000E+00 4.348E-01 -7.047E+00 -5.001E+00 1.047E-01 1.767E-01 -6.308E-01 0.000E+00 0.000E+00 0.000E+00 -3.438E-01 -8.875E+00 -6.905E+00 4.041E-01 8.949E-02 -3.561E-01 0.000E+00 0.000E+00 0.000E+00 0 153 3 1.387E+00 -7.986E+00 -8.560E+00 1.046E+00 1.424E-01 -3.160E-01 0.000E+00 0.000E+00 0.000E+00 -1.422E+00 -1.180E+01 -1.411E+01 8.258E-01 4.604E-02 3.825E-01 0.000E+00 0.000E+00 0.000E+00 -2.671E+00 -1.222E+01 -1.427E+01 -1.133E-01 4.102E-01 5.817E-01 0.000E+00 0.000E+00 0.000E+00 1.501E+00 -6.545E+00 -6.040E+00 2.170E-01 5.385E-01 -5.202E-01 0.000E+00 0.000E+00 0.000E+00 -3.096E-01 -9.645E+00 -1.077E+01 4.939E-01 2.845E-01 3.572E-02 0.000E+00 0.000E+00 0.000E+00 0 153 4 1.161E+00 -5.079E+00 -6.817E+00 8.939E-01 1.563E-01 -3.049E-02 0.000E+00 0.000E+00 0.000E+00 -1.266E+00 -8.251E+00 -1.174E+01 6.996E-01 6.036E-02 7.649E-01 0.000E+00 0.000E+00 0.000E+00 -2.339E+00 -8.595E+00 -1.181E+01 1.795E-03 4.866E-01 9.268E-01 0.000E+00 0.000E+00 0.000E+00 1.217E+00 -3.922E+00 -4.629E+00 2.931E-01 6.114E-01 -3.208E-01 0.000E+00 0.000E+00 0.000E+00 -3.126E-01 -6.468E+00 -8.762E+00 4.721E-01 3.290E-01 3.389E-01 0.000E+00 0.000E+00 0.000E+00 0 153 5 8.429E-01 -3.484E+00 -5.098E+00 7.214E-01 1.502E-01 1.574E-01 0.000E+00 0.000E+00 0.000E+00 -1.054E+00 -5.884E+00 -9.022E+00 5.640E-01 6.358E-02 9.418E-01 0.000E+00 0.000E+00 0.000E+00 -1.885E+00 -6.125E+00 -8.994E+00 9.278E-02 4.792E-01 1.075E+00 0.000E+00 0.000E+00 0.000E+00 8.421E-01 -2.643E+00 -3.383E+00 3.289E-01 5.892E-01 -1.482E-01 0.000E+00 0.000E+00 0.000E+00 -3.162E-01 -4.536E+00 -6.630E+00 4.267E-01 3.210E-01 5.099E-01 0.000E+00 0.000E+00 0.000E+00 0 153 6 5.829E-01 -2.457E+00 -3.869E+00 5.710E-01 1.383E-01 2.411E-01 0.000E+00 0.000E+00 0.000E+00 -8.863E-01 -4.240E+00 -6.984E+00 4.459E-01 6.268E-02 9.633E-01 0.000E+00 0.000E+00 0.000E+00 -1.511E+00 -4.396E+00 -6.879E+00 1.522E-01 4.452E-01 1.068E+00 0.000E+00 0.000E+00 0.000E+00 5.539E-01 -1.861E+00 -2.530E+00 3.398E-01 5.392E-01 -5.027E-02 0.000E+00 0.000E+00 0.000E+00 -3.154E-01 -3.238E+00 -5.066E+00 3.772E-01 2.968E-01 5.584E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 201 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 153 7 3.863E-01 -1.782E+00 -2.995E+00 4.536E-01 1.249E-01 2.604E-01 0.000E+00 0.000E+00 0.000E+00 -7.591E-01 -3.111E+00 -5.484E+00 3.546E-01 6.012E-02 9.051E-01 0.000E+00 0.000E+00 0.000E+00 -1.222E+00 -3.203E+00 -5.325E+00 1.819E-01 4.027E-01 9.858E-01 0.000E+00 0.000E+00 0.000E+00 3.468E-01 -1.358E+00 -1.942E+00 3.304E-01 4.817E-01 -5.566E-03 0.000E+00 0.000E+00 0.000E+00 -3.104E-01 -2.362E+00 -3.933E+00 3.301E-01 2.678E-01 5.386E-01 0.000E+00 0.000E+00 0.000E+00 0 153 8 2.419E-01 -1.328E+00 -2.358E+00 3.643E-01 1.118E-01 2.482E-01 0.000E+00 0.000E+00 0.000E+00 -6.622E-01 -2.333E+00 -4.366E+00 2.859E-01 5.679E-02 8.152E-01 0.000E+00 0.000E+00 0.000E+00 -1.000E+00 -2.377E+00 -4.175E+00 1.913E-01 3.596E-01 8.766E-01 0.000E+00 0.000E+00 0.000E+00 2.016E-01 -1.024E+00 -1.521E+00 3.089E-01 4.253E-01 1.048E-02 0.000E+00 0.000E+00 0.000E+00 -3.022E-01 -1.763E+00 -3.099E+00 2.876E-01 2.388E-01 4.893E-01 0.000E+00 0.000E+00 0.000E+00 0 153 9 1.367E-01 -1.014E+00 -1.879E+00 2.961E-01 9.941E-02 2.220E-01 0.000E+00 0.000E+00 0.000E+00 -5.858E-01 -1.785E+00 -3.516E+00 2.338E-01 5.325E-02 7.167E-01 0.000E+00 0.000E+00 0.000E+00 -8.292E-01 -1.795E+00 -3.306E+00 1.883E-01 3.189E-01 7.632E-01 0.000E+00 0.000E+00 0.000E+00 1.005E-01 -7.925E-01 -1.210E+00 2.816E-01 3.731E-01 1.229E-02 0.000E+00 0.000E+00 0.000E+00 -2.912E-01 -1.343E+00 -2.470E+00 2.499E-01 2.116E-01 4.298E-01 0.000E+00 0.000E+00 0.000E+00 0 153 10 6.051E-02 -7.891E-01 -1.510E+00 2.429E-01 8.805E-02 1.910E-01 0.000E+00 0.000E+00 0.000E+00 -5.232E-01 -1.389E+00 -2.856E+00 1.936E-01 4.969E-02 6.202E-01 0.000E+00 0.000E+00 0.000E+00 -6.944E-01 -1.375E+00 -2.639E+00 1.782E-01 2.814E-01 6.552E-01 0.000E+00 0.000E+00 0.000E+00 3.043E-02 -6.259E-01 -9.719E-01 2.522E-01 3.257E-01 7.619E-03 0.000E+00 0.000E+00 0.000E+00 -2.779E-01 -1.041E+00 -1.986E+00 2.167E-01 1.866E-01 3.694E-01 0.000E+00 0.000E+00 0.000E+00 0 153 0.0000 5.281E+00 -3.578E+01 -4.606E+01 6.428E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -8.576E+00 -5.428E+01 -7.375E+01 5.174E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.488E+01 -5.588E+01 -7.278E+01 8.192E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.920E+00 -2.911E+01 -3.355E+01 2.700E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.321E+00 -4.377E+01 -5.656E+01 3.780E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 153 7.1000 4.357E+00 -3.073E+01 -3.827E+01 5.277E+00 6.842E-01 7.321E-01 0.000E+00 0.000E+00 0.000E+00 -6.620E+00 -4.583E+01 -5.976E+01 4.268E+00 3.157E-01 4.230E+00 0.000E+00 0.000E+00 0.000E+00 -1.179E+01 -4.722E+01 -5.920E+01 3.960E-01 2.150E+00 4.752E+00 0.000E+00 0.000E+00 0.000E+00 4.066E+00 -2.517E+01 -2.840E+01 1.910E+00 2.607E+00 -6.433E-01 0.000E+00 0.000E+00 0.000E+00 -2.510E+00 -3.725E+01 -4.644E+01 2.963E+00 1.442E+00 2.280E+00 0.000E+00 0.000E+00 0.000E+00 0 161 0 2.585E-02 8.309E-01 -1.759E+00 2.938E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.219E-01 -1.671E-02 -2.071E+00 3.180E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.012E-03 4.174E-01 -1.674E+00 -2.481E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.386E-01 9.832E-01 -1.464E+00 -1.861E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.282E-02 5.538E-01 -1.742E+00 1.477E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 202 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 161 1 1.275E-01 5.347E-01 -3.203E+00 6.259E-01 3.014E-02 -9.523E-01 0.000E+00 0.000E+00 0.000E+00 -6.935E-01 -1.397E+00 -4.008E+00 6.680E-01 2.229E-02 -7.614E-01 0.000E+00 0.000E+00 0.000E+00 -3.687E-02 -4.752E-01 -3.197E+00 -4.007E-02 -6.729E-03 -8.294E-01 0.000E+00 0.000E+00 0.000E+00 5.100E-01 8.120E-01 -2.661E+00 -6.814E-02 -1.190E-03 -9.668E-01 0.000E+00 0.000E+00 0.000E+00 -2.308E-02 -1.313E-01 -3.267E+00 2.964E-01 1.108E-02 -8.764E-01 0.000E+00 0.000E+00 0.000E+00 0 161 2 1.014E+00 -5.427E-01 1.358E+00 7.906E-01 1.696E-01 -1.985E+00 0.000E+00 0.000E+00 0.000E+00 -1.286E+00 -4.459E+00 -2.395E+00 7.380E-01 1.541E-01 -1.558E+00 0.000E+00 0.000E+00 0.000E+00 -6.055E-01 -3.108E+00 -9.056E-01 -2.541E-01 9.552E-03 -1.647E+00 0.000E+00 0.000E+00 0.000E+00 9.289E-01 -4.963E-01 1.598E+00 -2.191E-01 1.593E-02 -1.960E+00 0.000E+00 0.000E+00 0.000E+00 9.014E-03 -2.155E+00 -9.542E-02 2.638E-01 8.748E-02 -1.784E+00 0.000E+00 0.000E+00 0.000E+00 0 161 3 2.539E+00 3.847E+00 1.080E+01 8.556E-01 4.986E-01 -2.421E+00 0.000E+00 0.000E+00 0.000E+00 -2.272E+00 -2.795E+00 1.407E+00 6.387E-01 5.318E-01 -1.869E+00 0.000E+00 0.000E+00 0.000E+00 -1.570E+00 -9.407E-01 4.240E+00 -4.334E-01 1.010E-01 -2.000E+00 0.000E+00 0.000E+00 0.000E+00 1.650E+00 3.500E+00 1.053E+01 -2.887E-01 6.134E-02 -2.416E+00 0.000E+00 0.000E+00 0.000E+00 7.397E-02 8.898E-01 6.715E+00 1.931E-01 2.993E-01 -2.172E+00 0.000E+00 0.000E+00 0.000E+00 0 161 4 2.190E+00 4.764E+00 1.022E+01 7.422E-01 5.603E-01 -2.280E+00 0.000E+00 0.000E+00 0.000E+00 -1.979E+00 -8.794E-01 1.962E+00 5.742E-01 6.207E-01 -1.672E+00 0.000E+00 0.000E+00 0.000E+00 -1.345E+00 6.656E-01 4.350E+00 -2.911E-01 1.250E-01 -1.863E+00 0.000E+00 0.000E+00 0.000E+00 1.440E+00 4.434E+00 9.867E+00 -1.790E-01 6.609E-02 -2.321E+00 0.000E+00 0.000E+00 0.000E+00 6.527E-02 2.235E+00 6.573E+00 2.116E-01 3.444E-01 -2.029E+00 0.000E+00 0.000E+00 0.000E+00 0 161 5 1.686E+00 4.001E+00 8.345E+00 6.141E-01 5.387E-01 -1.976E+00 0.000E+00 0.000E+00 0.000E+00 -1.581E+00 -3.773E-01 1.833E+00 5.082E-01 6.064E-01 -1.382E+00 0.000E+00 0.000E+00 0.000E+00 -1.023E+00 8.163E-01 3.648E+00 -1.511E-01 1.228E-01 -1.579E+00 0.000E+00 0.000E+00 0.000E+00 1.152E+00 3.732E+00 7.982E+00 -8.040E-02 6.163E-02 -2.025E+00 0.000E+00 0.000E+00 0.000E+00 5.007E-02 2.035E+00 5.432E+00 2.227E-01 3.336E-01 -1.735E+00 0.000E+00 0.000E+00 0.000E+00 0 161 6 1.279E+00 3.120E+00 6.673E+00 4.956E-01 4.926E-01 -1.637E+00 0.000E+00 0.000E+00 0.000E+00 -1.252E+00 -2.198E-01 1.576E+00 4.350E-01 5.601E-01 -1.107E+00 0.000E+00 0.000E+00 0.000E+00 -7.662E-01 6.866E-01 2.944E+00 -5.019E-02 1.130E-01 -1.284E+00 0.000E+00 0.000E+00 0.000E+00 9.133E-01 2.905E+00 6.324E+00 -9.809E-03 5.538E-02 -1.681E+00 0.000E+00 0.000E+00 0.000E+00 3.732E-02 1.617E+00 4.364E+00 2.176E-01 3.063E-01 -1.423E+00 0.000E+00 0.000E+00 0.000E+00 0 161 7 9.722E-01 2.387E+00 5.305E+00 4.000E-01 4.400E-01 -1.339E+00 0.000E+00 0.000E+00 0.000E+00 -9.952E-01 -1.687E-01 1.302E+00 3.700E-01 5.039E-01 -8.861E-01 0.000E+00 0.000E+00 0.000E+00 -5.758E-01 5.218E-01 2.335E+00 1.241E-02 1.007E-01 -1.035E+00 0.000E+00 0.000E+00 0.000E+00 7.260E-01 2.216E+00 4.980E+00 3.242E-02 4.886E-02 -1.375E+00 0.000E+00 0.000E+00 0.000E+00 2.700E-02 1.234E+00 3.469E+00 2.037E-01 2.741E-01 -1.155E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 203 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 161 8 7.444E-01 1.826E+00 4.225E+00 3.256E-01 3.887E-01 -1.094E+00 0.000E+00 0.000E+00 0.000E+00 -7.984E-01 -1.507E-01 1.059E+00 3.154E-01 4.476E-01 -7.136E-01 0.000E+00 0.000E+00 0.000E+00 -4.372E-01 3.806E-01 1.843E+00 4.773E-02 8.831E-02 -8.356E-01 0.000E+00 0.000E+00 0.000E+00 5.811E-01 1.688E+00 3.929E+00 5.454E-02 4.264E-02 -1.120E+00 0.000E+00 0.000E+00 0.000E+00 1.881E-02 9.323E-01 2.755E+00 1.858E-01 2.424E-01 -9.376E-01 0.000E+00 0.000E+00 0.000E+00 0 161 9 5.742E-01 1.405E+00 3.378E+00 2.675E-01 3.413E-01 -8.926E-01 0.000E+00 0.000E+00 0.000E+00 -6.462E-01 -1.413E-01 8.564E-01 2.699E-01 3.948E-01 -5.783E-01 0.000E+00 0.000E+00 0.000E+00 -3.355E-01 2.721E-01 1.453E+00 6.555E-02 7.679E-02 -6.763E-01 0.000E+00 0.000E+00 0.000E+00 4.685E-01 1.293E+00 3.112E+00 6.400E-02 3.712E-02 -9.122E-01 0.000E+00 0.000E+00 0.000E+00 1.240E-02 7.043E-01 2.193E+00 1.667E-01 2.130E-01 -7.622E-01 0.000E+00 0.000E+00 0.000E+00 0 161 10 4.455E-01 1.088E+00 2.710E+00 2.214E-01 2.983E-01 -7.283E-01 0.000E+00 0.000E+00 0.000E+00 -5.267E-01 -1.327E-01 6.910E-01 2.314E-01 3.464E-01 -4.708E-01 0.000E+00 0.000E+00 0.000E+00 -2.598E-01 1.921E-01 1.147E+00 7.254E-02 6.637E-02 -5.484E-01 0.000E+00 0.000E+00 0.000E+00 3.799E-01 9.978E-01 2.474E+00 6.587E-02 3.214E-02 -7.423E-01 0.000E+00 0.000E+00 0.000E+00 7.445E-03 5.341E-01 1.750E+00 1.478E-01 1.861E-01 -6.202E-01 0.000E+00 0.000E+00 0.000E+00 0 161 0.0000 1.160E+01 2.326E+01 4.805E+01 5.632E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.235E+01 -1.074E+01 2.214E+00 5.067E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.949E+00 -5.708E-01 1.618E+01 -1.024E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 8.989E+00 2.207E+01 4.668E+01 -6.470E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.654E-01 8.448E+00 2.815E+01 2.257E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 161 7.1000 9.176E+00 1.768E+01 3.525E+01 4.623E+00 2.389E+00 -8.250E+00 0.000E+00 0.000E+00 0.000E+00 -9.860E+00 -9.869E+00 -6.563E-01 4.137E+00 2.701E+00 -5.739E+00 0.000E+00 0.000E+00 0.000E+00 -5.504E+00 -1.459E+00 1.072E+01 -1.022E+00 5.278E-01 -6.519E+00 0.000E+00 0.000E+00 0.000E+00 7.178E+00 1.690E+01 3.464E+01 -6.974E-01 2.674E-01 -8.402E+00 0.000E+00 0.000E+00 0.000E+00 2.032E-01 5.768E+00 1.988E+01 1.760E+00 1.476E+00 -7.207E+00 0.000E+00 0.000E+00 0.000E+00 0 162 0 6.104E-02 3.034E-01 -1.860E+00 4.220E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.176E-01 -3.972E-01 -2.088E+00 4.191E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.945E-01 -4.742E-01 -1.910E+00 2.205E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.278E-01 5.811E-01 -1.558E+00 2.249E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.045E-02 3.643E-03 -1.853E+00 3.216E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 162 1 2.135E-01 -6.942E-01 -3.525E+00 8.904E-01 3.870E-02 -7.494E-01 0.000E+00 0.000E+00 0.000E+00 -5.071E-01 -2.408E+00 -4.214E+00 8.807E-01 2.271E-02 -4.786E-01 0.000E+00 0.000E+00 0.000E+00 -5.190E-01 -2.650E+00 -3.933E+00 4.129E-01 1.238E-02 -3.996E-01 0.000E+00 0.000E+00 0.000E+00 5.629E-01 -7.852E-02 -2.898E+00 4.274E-01 3.574E-02 -8.244E-01 0.000E+00 0.000E+00 0.000E+00 -6.217E-02 -1.457E+00 -3.642E+00 6.529E-01 2.722E-02 -6.115E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 204 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 162 2 1.228E+00 -3.056E+00 -1.219E+00 1.120E+00 2.203E-01 -1.495E+00 0.000E+00 0.000E+00 0.000E+00 -1.367E+00 -7.306E+00 -5.619E+00 1.104E+00 1.637E-01 -7.811E-01 0.000E+00 0.000E+00 0.000E+00 -1.863E+00 -8.187E+00 -6.267E+00 3.247E-01 1.536E-01 -4.970E-01 0.000E+00 0.000E+00 0.000E+00 1.996E+00 -1.846E+00 2.532E-01 3.475E-01 2.376E-01 -1.627E+00 0.000E+00 0.000E+00 0.000E+00 -1.581E-02 -5.113E+00 -3.247E+00 7.240E-01 1.933E-01 -1.096E+00 0.000E+00 0.000E+00 0.000E+00 0 162 3 2.921E+00 -2.192E-01 3.737E+00 1.288E+00 6.587E-01 -1.702E+00 0.000E+00 0.000E+00 0.000E+00 -2.796E+00 -7.824E+00 -7.713E+00 1.287E+00 5.848E-01 -4.846E-01 0.000E+00 0.000E+00 0.000E+00 -4.005E+00 -9.503E+00 -1.006E+01 4.021E-01 6.073E-01 -3.504E-02 0.000E+00 0.000E+00 0.000E+00 4.463E+00 1.798E+00 6.872E+00 4.036E-01 7.197E-01 -1.964E+00 0.000E+00 0.000E+00 0.000E+00 9.944E-02 -3.983E+00 -1.898E+00 8.454E-01 6.417E-01 -1.040E+00 0.000E+00 0.000E+00 0.000E+00 0 162 4 2.488E+00 1.383E+00 3.981E+00 1.152E+00 7.428E-01 -1.493E+00 0.000E+00 0.000E+00 0.000E+00 -2.397E+00 -4.910E+00 -6.010E+00 1.162E+00 6.877E-01 -1.505E-01 0.000E+00 0.000E+00 0.000E+00 -3.379E+00 -6.263E+00 -8.014E+00 5.048E-01 7.090E-01 2.877E-01 0.000E+00 0.000E+00 0.000E+00 3.786E+00 3.013E+00 6.593E+00 4.895E-01 7.947E-01 -1.830E+00 0.000E+00 0.000E+00 0.000E+00 8.363E-02 -1.735E+00 -9.572E-01 8.270E-01 7.330E-01 -7.896E-01 0.000E+00 0.000E+00 0.000E+00 0 162 5 1.892E+00 1.434E+00 3.418E+00 9.771E-01 7.144E-01 -1.215E+00 0.000E+00 0.000E+00 0.000E+00 -1.865E+00 -3.284E+00 -4.388E+00 9.945E-01 6.734E-01 7.474E-02 0.000E+00 0.000E+00 0.000E+00 -2.564E+00 -4.256E+00 -5.888E+00 5.487E-01 6.810E-01 4.736E-01 0.000E+00 0.000E+00 0.000E+00 2.873E+00 2.622E+00 5.359E+00 5.226E-01 7.463E-01 -1.550E+00 0.000E+00 0.000E+00 0.000E+00 5.225E-02 -9.029E-01 -4.491E-01 7.607E-01 7.033E-01 -5.474E-01 0.000E+00 0.000E+00 0.000E+00 0 162 6 1.416E+00 1.210E+00 2.805E+00 8.094E-01 6.528E-01 -9.595E-01 0.000E+00 0.000E+00 0.000E+00 -1.440E+00 -2.257E+00 -3.247E+00 8.316E-01 6.228E-01 1.868E-01 0.000E+00 0.000E+00 0.000E+00 -1.919E+00 -2.931E+00 -4.351E+00 5.506E-01 6.153E-01 5.286E-01 0.000E+00 0.000E+00 0.000E+00 2.152E+00 2.057E+00 4.230E+00 5.172E-01 6.654E-01 -1.259E+00 0.000E+00 0.000E+00 0.000E+00 2.715E-02 -5.051E-01 -1.988E-01 6.772E-01 6.387E-01 -3.699E-01 0.000E+00 0.000E+00 0.000E+00 0 162 7 1.058E+00 9.610E-01 2.257E+00 6.682E-01 5.826E-01 -7.584E-01 0.000E+00 0.000E+00 0.000E+00 -1.121E+00 -1.594E+00 -2.453E+00 6.932E-01 5.606E-01 2.251E-01 0.000E+00 0.000E+00 0.000E+00 -1.440E+00 -2.053E+00 -3.259E+00 5.235E-01 5.401E-01 5.099E-01 0.000E+00 0.000E+00 0.000E+00 1.615E+00 1.564E+00 3.305E+00 4.860E-01 5.791E-01 -1.014E+00 0.000E+00 0.000E+00 0.000E+00 8.549E-03 -2.999E-01 -8.304E-02 5.927E-01 5.654E-01 -2.544E-01 0.000E+00 0.000E+00 0.000E+00 0 162 8 7.950E-01 7.468E-01 1.806E+00 5.536E-01 5.141E-01 -6.042E-01 0.000E+00 0.000E+00 0.000E+00 -8.837E-01 -1.156E+00 -1.887E+00 5.799E-01 4.982E-01 2.256E-01 0.000E+00 0.000E+00 0.000E+00 -1.089E+00 -1.467E+00 -2.475E+00 4.815E-01 4.677E-01 4.600E-01 0.000E+00 0.000E+00 0.000E+00 1.221E+00 1.179E+00 2.580E+00 4.420E-01 4.985E-01 -8.179E-01 0.000E+00 0.000E+00 0.000E+00 -4.667E-03 -1.895E-01 -2.971E-02 5.143E-01 4.944E-01 -1.800E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 205 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 162 9 5.998E-01 5.759E-01 1.445E+00 4.606E-01 4.508E-01 -4.850E-01 0.000E+00 0.000E+00 0.000E+00 -7.055E-01 -8.583E-01 -1.471E+00 4.873E-01 4.396E-01 2.083E-01 0.000E+00 0.000E+00 0.000E+00 -8.316E-01 -1.067E+00 -1.900E+00 4.335E-01 4.019E-01 4.001E-01 0.000E+00 0.000E+00 0.000E+00 9.305E-01 8.889E-01 2.018E+00 3.935E-01 4.266E-01 -6.613E-01 0.000E+00 0.000E+00 0.000E+00 -1.383E-02 -1.271E-01 -5.223E-03 4.437E-01 4.296E-01 -1.311E-01 0.000E+00 0.000E+00 0.000E+00 0 162 10 4.535E-01 4.430E-01 1.158E+00 3.844E-01 3.934E-01 -3.916E-01 0.000E+00 0.000E+00 0.000E+00 -5.693E-01 -6.498E-01 -1.159E+00 4.107E-01 3.858E-01 1.837E-01 0.000E+00 0.000E+00 0.000E+00 -6.394E-01 -7.867E-01 -1.469E+00 3.845E-01 3.436E-01 3.399E-01 0.000E+00 0.000E+00 0.000E+00 7.138E-01 6.714E-01 1.583E+00 3.451E-01 3.635E-01 -5.358E-01 0.000E+00 0.000E+00 0.000E+00 -1.997E-02 -9.017E-02 5.674E-03 3.812E-01 3.714E-01 -9.811E-02 0.000E+00 0.000E+00 0.000E+00 0 162 0.0000 1.313E+01 3.087E+00 1.400E+01 8.725E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.387E+01 -3.264E+01 -4.025E+01 8.851E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.844E+01 -3.964E+01 -4.952E+01 4.787E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.054E+01 1.245E+01 2.834E+01 4.599E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.241E-01 -1.440E+01 -1.236E+01 6.741E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 162 7.1000 1.049E+01 1.150E+00 8.753E+00 7.059E+00 3.159E+00 -5.033E+00 0.000E+00 0.000E+00 0.000E+00 -1.104E+01 -2.806E+01 -3.380E+01 7.121E+00 2.999E+00 3.927E-01 0.000E+00 0.000E+00 0.000E+00 -1.482E+01 -3.388E+01 -4.108E+01 3.534E+00 2.898E+00 2.040E+00 0.000E+00 0.000E+00 0.000E+00 1.649E+01 8.955E+00 2.044E+01 3.441E+00 3.171E+00 -6.395E+00 0.000E+00 0.000E+00 0.000E+00 1.116E-01 -1.313E+01 -1.181E+01 5.288E+00 3.055E+00 -2.221E+00 0.000E+00 0.000E+00 0.000E+00 0 163 0 6.912E-02 -1.322E-01 -1.923E+00 2.998E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.407E-01 -8.937E-01 -2.194E+00 3.005E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.369E-01 -7.917E-01 -1.958E+00 1.823E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.108E-02 -2.826E-01 -1.773E+00 1.775E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.914E-02 -5.249E-01 -1.961E+00 1.591E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 163 1 2.000E-01 -1.816E+00 -3.824E+00 6.283E-01 3.085E-02 -4.767E-01 0.000E+00 0.000E+00 0.000E+00 -5.457E-01 -3.585E+00 -4.541E+00 6.375E-01 1.617E-02 -2.859E-01 0.000E+00 0.000E+00 0.000E+00 -3.067E-01 -3.370E+00 -4.061E+00 -2.234E-03 -3.632E-03 -2.667E-01 0.000E+00 0.000E+00 0.000E+00 1.906E-01 -2.190E+00 -3.582E+00 -8.420E-03 6.012E-03 -4.016E-01 0.000E+00 0.000E+00 0.000E+00 -1.153E-01 -2.740E+00 -4.002E+00 3.138E-01 1.228E-02 -3.578E-01 0.000E+00 0.000E+00 0.000E+00 0 163 2 8.655E-01 -6.042E+00 -4.570E+00 7.046E-01 1.766E-01 -7.508E-01 0.000E+00 0.000E+00 0.000E+00 -1.250E+00 -9.711E+00 -7.955E+00 7.908E-01 1.128E-01 -3.181E-01 0.000E+00 0.000E+00 0.000E+00 -6.788E-01 -9.355E+00 -7.340E+00 -1.798E-01 -1.404E-03 -1.888E-01 0.000E+00 0.000E+00 0.000E+00 7.191E-01 -6.922E+00 -5.113E+00 -2.373E-01 4.214E-02 -4.998E-01 0.000E+00 0.000E+00 0.000E+00 -8.998E-02 -8.012E+00 -6.254E+00 2.696E-01 8.235E-02 -4.399E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 206 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 163 3 1.975E+00 -5.441E+00 -5.567E+00 6.443E-01 5.386E-01 -3.548E-01 0.000E+00 0.000E+00 0.000E+00 -2.397E+00 -1.158E+01 -1.400E+01 8.465E-01 4.102E-01 2.022E-01 0.000E+00 0.000E+00 0.000E+00 -1.322E+00 -1.101E+01 -1.318E+01 -2.585E-01 3.278E-02 3.881E-01 0.000E+00 0.000E+00 0.000E+00 1.565E+00 -6.945E+00 -7.618E+00 -3.933E-01 1.225E-01 -2.234E-02 0.000E+00 0.000E+00 0.000E+00 -5.703E-02 -8.757E+00 -1.012E+01 2.097E-01 2.758E-01 5.232E-02 0.000E+00 0.000E+00 0.000E+00 0 163 4 1.693E+00 -2.811E+00 -4.153E+00 5.785E-01 6.111E-01 4.189E-03 0.000E+00 0.000E+00 0.000E+00 -2.084E+00 -7.999E+00 -1.156E+01 7.466E-01 4.867E-01 6.067E-01 0.000E+00 0.000E+00 0.000E+00 -1.165E+00 -7.501E+00 -1.081E+01 -1.353E-01 4.205E-02 7.522E-01 0.000E+00 0.000E+00 0.000E+00 1.324E+00 -4.071E+00 -5.946E+00 -2.473E-01 1.298E-01 3.082E-01 0.000E+00 0.000E+00 0.000E+00 -6.873E-02 -5.607E+00 -8.142E+00 2.356E-01 3.172E-01 4.168E-01 0.000E+00 0.000E+00 0.000E+00 0 163 5 1.290E+00 -1.599E+00 -2.936E+00 5.027E-01 5.893E-01 2.248E-01 0.000E+00 0.000E+00 0.000E+00 -1.666E+00 -5.612E+00 -8.774E+00 6.319E-01 4.792E-01 8.119E-01 0.000E+00 0.000E+00 0.000E+00 -9.265E-01 -5.196E+00 -8.127E+00 -2.892E-02 4.097E-02 9.273E-01 0.000E+00 0.000E+00 0.000E+00 1.015E+00 -2.550E+00 -4.302E+00 -1.151E-01 1.185E-01 4.961E-01 0.000E+00 0.000E+00 0.000E+00 -8.109E-02 -3.748E+00 -6.056E+00 2.476E-01 3.068E-01 6.140E-01 0.000E+00 0.000E+00 0.000E+00 0 163 6 9.551E-01 -9.245E-01 -2.129E+00 4.213E-01 5.392E-01 3.232E-01 0.000E+00 0.000E+00 0.000E+00 -1.330E+00 -3.973E+00 -6.698E+00 5.232E-01 4.452E-01 8.479E-01 0.000E+00 0.000E+00 0.000E+00 -7.231E-01 -3.621E+00 -6.131E+00 4.617E-02 3.694E-02 9.352E-01 0.000E+00 0.000E+00 0.000E+00 7.729E-01 -1.616E+00 -3.149E+00 -2.178E-02 1.038E-01 5.509E-01 0.000E+00 0.000E+00 0.000E+00 -8.881E-02 -2.541E+00 -4.544E+00 2.422E-01 2.812E-01 6.635E-01 0.000E+00 0.000E+00 0.000E+00 0 163 7 6.977E-01 -5.393E-01 -1.591E+00 3.506E-01 4.817E-01 3.454E-01 0.000E+00 0.000E+00 0.000E+00 -1.076E+00 -2.862E+00 -5.179E+00 4.342E-01 4.026E-01 7.969E-01 0.000E+00 0.000E+00 0.000E+00 -5.621E-01 -2.557E+00 -4.677E+00 9.073E-02 3.217E-02 8.611E-01 0.000E+00 0.000E+00 0.000E+00 5.950E-01 -1.034E+00 -2.343E+00 3.506E-02 8.924E-02 5.310E-01 0.000E+00 0.000E+00 0.000E+00 -9.240E-02 -1.754E+00 -3.462E+00 2.276E-01 2.514E-01 6.330E-01 0.000E+00 0.000E+00 0.000E+00 0 163 8 5.043E-01 -3.177E-01 -1.219E+00 2.925E-01 4.253E-01 3.301E-01 0.000E+00 0.000E+00 0.000E+00 -8.841E-01 -2.106E+00 -4.058E+00 3.636E-01 3.596E-01 7.119E-01 0.000E+00 0.000E+00 0.000E+00 -4.378E-01 -1.838E+00 -3.610E+00 1.136E-01 2.750E-02 7.583E-01 0.000E+00 0.000E+00 0.000E+00 4.654E-01 -6.678E-01 -1.769E+00 6.615E-02 7.602E-02 4.795E-01 0.000E+00 0.000E+00 0.000E+00 -9.310E-02 -1.237E+00 -2.676E+00 2.090E-01 2.221E-01 5.694E-01 0.000E+00 0.000E+00 0.000E+00 0 163 9 3.593E-01 -1.886E-01 -9.511E-01 2.449E-01 3.731E-01 2.983E-01 0.000E+00 0.000E+00 0.000E+00 -7.375E-01 -1.581E+00 -3.215E+00 3.075E-01 3.189E-01 6.181E-01 0.000E+00 0.000E+00 0.000E+00 -3.418E-01 -1.342E+00 -2.813E+00 1.226E-01 2.315E-02 6.512E-01 0.000E+00 0.000E+00 0.000E+00 3.698E-01 -4.332E-01 -1.350E+00 8.089E-02 6.436E-02 4.178E-01 0.000E+00 0.000E+00 0.000E+00 -9.172E-02 -8.904E-01 -2.092E+00 1.890E-01 1.950E-01 4.960E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 207 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 163 10 2.504E-01 -1.128E-01 -7.520E-01 2.056E-01 3.257E-01 2.608E-01 0.000E+00 0.000E+00 0.000E+00 -6.226E-01 -1.208E+00 -2.567E+00 2.619E-01 2.814E-01 5.270E-01 0.000E+00 0.000E+00 0.000E+00 -2.673E-01 -9.931E-01 -2.207E+00 1.231E-01 1.924E-02 5.503E-01 0.000E+00 0.000E+00 0.000E+00 2.978E-01 -2.800E-01 -1.036E+00 8.560E-02 5.429E-02 3.560E-01 0.000E+00 0.000E+00 0.000E+00 -8.883E-02 -6.518E-01 -1.648E+00 1.691E-01 1.703E-01 4.232E-01 0.000E+00 0.000E+00 0.000E+00 0 163 0.0000 8.859E+00 -1.993E+01 -2.961E+01 4.873E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.283E+01 -5.111E+01 -7.074E+01 5.844E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.868E+00 -4.758E+01 -6.491E+01 -9.017E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.385E+00 -2.699E+01 -3.798E+01 -7.377E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -9.262E-01 -3.646E+01 -5.096E+01 2.472E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 163 7.1000 7.156E+00 -1.796E+01 -2.531E+01 3.997E+00 2.607E+00 1.033E+00 0.000E+00 0.000E+00 0.000E+00 -1.010E+01 -4.328E+01 -5.751E+01 4.745E+00 2.150E+00 3.551E+00 0.000E+00 0.000E+00 0.000E+00 -5.483E+00 -4.053E+01 -5.298E+01 -2.927E-01 1.664E-01 3.987E+00 0.000E+00 0.000E+00 0.000E+00 5.874E+00 -2.380E+01 -3.185E+01 -7.920E-01 4.972E-01 2.145E+00 0.000E+00 0.000E+00 0.000E+00 -6.858E-01 -3.144E+01 -4.202E+01 1.914E+00 1.355E+00 2.676E+00 0.000E+00 0.000E+00 0.000E+00 0 171 0 -1.224E-01 1.410E-01 -1.825E+00 1.153E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -9.351E-02 1.852E-01 -1.773E+00 1.261E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.019E-01 3.478E-01 -1.460E+00 1.458E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.042E-02 2.834E-01 -1.534E+00 1.297E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.321E-02 2.395E-01 -1.648E+00 1.292E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 171 1 -2.088E-01 -8.653E-01 -3.380E+00 2.700E-01 -1.185E-03 -1.100E+00 0.000E+00 0.000E+00 0.000E+00 -2.246E-01 -9.135E-01 -3.385E+00 2.964E-01 -6.739E-03 -9.177E-01 0.000E+00 0.000E+00 0.000E+00 1.499E-01 -6.541E-01 -2.825E+00 2.793E-01 3.623E-02 -8.288E-01 0.000E+00 0.000E+00 0.000E+00 1.708E-01 -5.848E-01 -2.824E+00 2.397E-01 4.650E-02 -1.102E+00 0.000E+00 0.000E+00 0.000E+00 -2.820E-02 -7.544E-01 -3.104E+00 2.714E-01 1.876E-02 -9.868E-01 0.000E+00 0.000E+00 0.000E+00 0 171 2 2.516E-01 -2.077E+00 9.199E-01 4.399E-01 1.612E-02 -2.350E+00 0.000E+00 0.000E+00 0.000E+00 -7.724E-01 -3.497E+00 -1.073E+00 5.419E-01 9.623E-03 -1.846E+00 0.000E+00 0.000E+00 0.000E+00 -4.315E-01 -3.737E+00 -1.354E+00 2.212E-01 1.758E-01 -1.534E+00 0.000E+00 0.000E+00 0.000E+00 1.061E+00 -1.651E+00 1.534E+00 6.837E-02 1.972E-01 -2.302E+00 0.000E+00 0.000E+00 0.000E+00 2.146E-02 -2.746E+00 -6.213E-03 3.179E-01 1.001E-01 -2.007E+00 0.000E+00 0.000E+00 0.000E+00 0 171 3 1.075E+00 2.157E+00 9.958E+00 5.150E-01 6.147E-02 -3.006E+00 0.000E+00 0.000E+00 0.000E+00 -1.716E+00 -1.281E+00 4.094E+00 7.514E-01 1.007E-01 -2.099E+00 0.000E+00 0.000E+00 0.000E+00 -1.404E+00 -2.179E+00 2.190E+00 2.630E-01 5.196E-01 -1.578E+00 0.000E+00 0.000E+00 0.000E+00 2.649E+00 2.844E+00 1.068E+01 -9.159E-02 4.968E-01 -2.971E+00 0.000E+00 0.000E+00 0.000E+00 1.334E-01 3.680E-01 6.689E+00 3.594E-01 2.961E-01 -2.413E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 208 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 171 4 9.114E-01 3.200E+00 9.338E+00 4.070E-01 6.639E-02 -2.854E+00 0.000E+00 0.000E+00 0.000E+00 -1.448E+00 4.262E-01 4.247E+00 6.183E-01 1.251E-01 -1.857E+00 0.000E+00 0.000E+00 0.000E+00 -1.141E+00 -2.662E-01 2.530E+00 3.355E-01 5.829E-01 -1.335E+00 0.000E+00 0.000E+00 0.000E+00 2.223E+00 3.719E+00 9.757E+00 1.856E-02 5.374E-01 -2.859E+00 0.000E+00 0.000E+00 0.000E+00 1.186E-01 1.752E+00 6.426E+00 3.448E-01 3.299E-01 -2.225E+00 0.000E+00 0.000E+00 0.000E+00 0 171 5 6.743E-01 2.617E+00 7.505E+00 3.020E-01 6.173E-02 -2.472E+00 0.000E+00 0.000E+00 0.000E+00 -1.090E+00 6.608E-01 3.581E+00 4.698E-01 1.228E-01 -1.520E+00 0.000E+00 0.000E+00 0.000E+00 -8.161E-01 2.088E-01 2.218E+00 3.732E-01 5.451E-01 -1.037E+00 0.000E+00 0.000E+00 0.000E+00 1.633E+00 2.947E+00 7.645E+00 1.216E-01 4.949E-01 -2.480E+00 0.000E+00 0.000E+00 0.000E+00 8.418E-02 1.592E+00 5.199E+00 3.167E-01 3.081E-01 -1.876E+00 0.000E+00 0.000E+00 0.000E+00 0 171 6 4.942E-01 1.927E+00 5.905E+00 2.160E-01 5.543E-02 -2.041E+00 0.000E+00 0.000E+00 0.000E+00 -8.072E-01 5.910E-01 2.903E+00 3.462E-01 1.129E-01 -1.197E+00 0.000E+00 0.000E+00 0.000E+00 -5.777E-01 3.147E-01 1.828E+00 3.786E-01 4.782E-01 -7.749E-01 0.000E+00 0.000E+00 0.000E+00 1.173E+00 2.118E+00 5.861E+00 1.832E-01 4.299E-01 -2.041E+00 0.000E+00 0.000E+00 0.000E+00 5.590E-02 1.223E+00 4.090E+00 2.810E-01 2.709E-01 -1.512E+00 0.000E+00 0.000E+00 0.000E+00 0 171 7 3.654E-01 1.374E+00 4.620E+00 1.541E-01 4.883E-02 -1.661E+00 0.000E+00 0.000E+00 0.000E+00 -5.991E-01 4.674E-01 2.312E+00 2.551E-01 1.007E-01 -9.377E-01 0.000E+00 0.000E+00 0.000E+00 -4.094E-01 3.070E-01 1.462E+00 3.597E-01 4.074E-01 -5.781E-01 0.000E+00 0.000E+00 0.000E+00 8.405E-01 1.470E+00 4.465E+00 2.081E-01 3.635E-01 -1.653E+00 0.000E+00 0.000E+00 0.000E+00 3.623E-02 8.916E-01 3.184E+00 2.443E-01 2.317E-01 -1.206E+00 0.000E+00 0.000E+00 0.000E+00 0 171 8 2.743E-01 9.722E-01 3.623E+00 1.113E-01 4.271E-02 -1.349E+00 0.000E+00 0.000E+00 0.000E+00 -4.485E-01 3.541E-01 1.831E+00 1.903E-01 8.834E-02 -7.372E-01 0.000E+00 0.000E+00 0.000E+00 -2.918E-01 2.670E-01 1.157E+00 3.281E-01 3.424E-01 -4.344E-01 0.000E+00 0.000E+00 0.000E+00 6.055E-01 1.007E+00 3.408E+00 2.096E-01 3.038E-01 -1.333E+00 0.000E+00 0.000E+00 0.000E+00 2.328E-02 6.385E-01 2.478E+00 2.098E-01 1.957E-01 -9.613E-01 0.000E+00 0.000E+00 0.000E+00 0 171 9 2.093E-01 6.884E-01 2.853E+00 8.183E-02 3.712E-02 -1.095E+00 0.000E+00 0.000E+00 0.000E+00 -3.389E-01 2.641E-01 1.450E+00 1.441E-01 7.679E-02 -5.821E-01 0.000E+00 0.000E+00 0.000E+00 -2.090E-01 2.224E-01 9.124E-01 2.915E-01 2.857E-01 -3.288E-01 0.000E+00 0.000E+00 0.000E+00 4.392E-01 6.847E-01 2.611E+00 1.980E-01 2.523E-01 -1.074E+00 0.000E+00 0.000E+00 0.000E+00 1.490E-02 4.547E-01 1.933E+00 1.789E-01 1.642E-01 -7.679E-01 0.000E+00 0.000E+00 0.000E+00 0 171 10 1.620E-01 4.893E-01 2.256E+00 6.119E-02 3.216E-02 -8.886E-01 0.000E+00 0.000E+00 0.000E+00 -2.582E-01 1.960E-01 1.149E+00 1.107E-01 6.636E-02 -4.612E-01 0.000E+00 0.000E+00 0.000E+00 -1.502E-01 1.818E-01 7.190E-01 2.543E-01 2.371E-01 -2.503E-01 0.000E+00 0.000E+00 0.000E+00 3.205E-01 4.622E-01 2.007E+00 1.801E-01 2.086E-01 -8.651E-01 0.000E+00 0.000E+00 0.000E+00 9.530E-03 3.233E-01 1.512E+00 1.516E-01 1.371E-01 -6.144E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 209 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 171 0.0000 4.086E+00 1.062E+01 4.177E+01 2.674E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -7.796E+00 -2.547E+00 1.534E+01 3.850E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.178E+00 -4.987E+00 7.378E+00 3.230E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.118E+01 1.330E+01 4.361E+01 1.465E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.561E-01 3.982E+00 2.675E+01 2.805E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 171 7.1000 3.162E+00 7.525E+00 3.062E+01 2.269E+00 2.678E-01 -1.020E+01 0.000E+00 0.000E+00 0.000E+00 -6.285E+00 -3.281E+00 9.940E+00 3.196E+00 5.278E-01 -6.196E+00 0.000E+00 0.000E+00 0.000E+00 -4.134E+00 -5.285E+00 4.057E+00 2.384E+00 2.232E+00 -4.150E+00 0.000E+00 0.000E+00 0.000E+00 9.047E+00 9.936E+00 3.277E+01 9.938E-01 2.024E+00 -1.012E+01 0.000E+00 0.000E+00 0.000E+00 3.637E-01 2.141E+00 1.915E+01 2.210E+00 1.271E+00 -7.656E+00 0.000E+00 0.000E+00 0.000E+00 0 172 0 5.006E-02 1.665E-01 -1.736E+00 3.272E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.016E-01 -2.574E-01 -1.818E+00 2.962E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.752E-02 -1.093E-01 -1.584E+00 2.163E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.726E-02 1.770E-01 -1.521E+00 2.370E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.090E-03 -5.450E-03 -1.664E+00 2.692E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 172 1 2.192E-01 -8.805E-01 -3.242E+00 6.909E-01 3.574E-02 -9.128E-01 0.000E+00 0.000E+00 0.000E+00 -3.118E-01 -2.166E+00 -3.726E+00 6.342E-01 1.237E-02 -4.925E-01 0.000E+00 0.000E+00 0.000E+00 -1.418E-01 -1.800E+00 -3.219E+00 4.078E-01 3.410E-03 -5.538E-01 0.000E+00 0.000E+00 0.000E+00 2.142E-01 -9.404E-01 -2.891E+00 4.456E-01 1.768E-02 -8.401E-01 0.000E+00 0.000E+00 0.000E+00 -4.802E-03 -1.446E+00 -3.269E+00 5.446E-01 1.714E-02 -6.982E-01 0.000E+00 0.000E+00 0.000E+00 0 172 2 1.628E+00 -2.704E+00 -1.147E-01 8.356E-01 2.376E-01 -1.849E+00 0.000E+00 0.000E+00 0.000E+00 -1.544E+00 -7.443E+00 -5.949E+00 7.872E-01 1.536E-01 -7.548E-01 0.000E+00 0.000E+00 0.000E+00 -9.472E-01 -6.525E+00 -4.616E+00 3.056E-01 1.310E-01 -8.418E-01 0.000E+00 0.000E+00 0.000E+00 1.147E+00 -3.386E+00 -7.749E-01 3.378E-01 1.842E-01 -1.595E+00 0.000E+00 0.000E+00 0.000E+00 5.651E-02 -5.029E+00 -2.897E+00 5.666E-01 1.760E-01 -1.256E+00 0.000E+00 0.000E+00 0.000E+00 0 172 3 4.017E+00 7.547E-01 6.425E+00 8.857E-01 7.196E-01 -2.123E+00 0.000E+00 0.000E+00 0.000E+00 -3.561E+00 -8.466E+00 -9.612E+00 8.275E-01 6.071E-01 -3.512E-01 0.000E+00 0.000E+00 0.000E+00 -2.306E+00 -6.865E+00 -6.715E+00 3.234E-01 5.425E-01 -5.231E-01 0.000E+00 0.000E+00 0.000E+00 2.686E+00 -7.764E-01 3.838E+00 3.623E-01 6.124E-01 -1.743E+00 0.000E+00 0.000E+00 0.000E+00 1.634E-01 -3.884E+00 -1.623E+00 5.997E-01 6.196E-01 -1.178E+00 0.000E+00 0.000E+00 0.000E+00 0 172 4 3.401E+00 2.115E+00 6.209E+00 8.036E-01 7.947E-01 -1.880E+00 0.000E+00 0.000E+00 0.000E+00 -2.983E+00 -5.339E+00 -7.618E+00 7.528E-01 7.090E-01 4.890E-02 0.000E+00 0.000E+00 0.000E+00 -1.934E+00 -4.048E+00 -5.137E+00 4.270E-01 6.194E-01 -1.940E-01 0.000E+00 0.000E+00 0.000E+00 2.232E+00 8.318E-01 3.871E+00 4.609E-01 6.702E-01 -1.514E+00 0.000E+00 0.000E+00 0.000E+00 1.389E-01 -1.650E+00 -7.621E-01 6.110E-01 6.977E-01 -8.774E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 210 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 172 5 2.570E+00 1.914E+00 5.055E+00 6.913E-01 7.463E-01 -1.539E+00 0.000E+00 0.000E+00 0.000E+00 -2.243E+00 -3.506E+00 -5.566E+00 6.554E-01 6.809E-01 2.934E-01 0.000E+00 0.000E+00 0.000E+00 -1.440E+00 -2.557E+00 -3.645E+00 4.716E-01 5.793E-01 4.214E-02 0.000E+00 0.000E+00 0.000E+00 1.660E+00 9.476E-01 3.183E+00 4.955E-01 6.168E-01 -1.204E+00 0.000E+00 0.000E+00 0.000E+00 1.056E-01 -8.315E-01 -3.160E-01 5.785E-01 6.554E-01 -5.948E-01 0.000E+00 0.000E+00 0.000E+00 0 172 6 1.918E+00 1.512E+00 3.997E+00 5.740E-01 6.653E-01 -1.213E+00 0.000E+00 0.000E+00 0.000E+00 -1.668E+00 -2.345E+00 -4.100E+00 5.505E-01 6.152E-01 3.893E-01 0.000E+00 0.000E+00 0.000E+00 -1.056E+00 -1.659E+00 -2.619E+00 4.697E-01 5.092E-01 1.585E-01 0.000E+00 0.000E+00 0.000E+00 1.220E+00 7.986E-01 2.512E+00 4.854E-01 5.372E-01 -9.222E-01 0.000E+00 0.000E+00 0.000E+00 7.945E-02 -4.475E-01 -1.085E-01 5.199E-01 5.814E-01 -3.907E-01 0.000E+00 0.000E+00 0.000E+00 0 172 7 1.436E+00 1.147E+00 3.126E+00 4.728E-01 5.791E-01 -9.506E-01 0.000E+00 0.000E+00 0.000E+00 -1.247E+00 -1.603E+00 -3.066E+00 4.582E-01 5.401E-01 3.986E-01 0.000E+00 0.000E+00 0.000E+00 -7.760E-01 -1.102E+00 -1.918E+00 4.396E-01 4.347E-01 1.971E-01 0.000E+00 0.000E+00 0.000E+00 9.003E-01 6.188E-01 1.949E+00 4.493E-01 4.559E-01 -7.057E-01 0.000E+00 0.000E+00 0.000E+00 5.970E-02 -2.534E-01 -2.089E-02 4.550E-01 5.022E-01 -2.601E-01 0.000E+00 0.000E+00 0.000E+00 0 172 8 1.085E+00 8.611E-01 2.443E+00 3.902E-01 4.985E-01 -7.478E-01 0.000E+00 0.000E+00 0.000E+00 -9.417E-01 -1.122E+00 -2.328E+00 3.816E-01 4.677E-01 3.686E-01 0.000E+00 0.000E+00 0.000E+00 -5.749E-01 -7.518E-01 -1.429E+00 3.964E-01 3.659E-01 1.972E-01 0.000E+00 0.000E+00 0.000E+00 6.701E-01 4.646E-01 1.505E+00 4.021E-01 3.824E-01 -5.438E-01 0.000E+00 0.000E+00 0.000E+00 4.500E-02 -1.515E-01 1.406E-02 3.926E-01 4.284E-01 -1.773E-01 0.000E+00 0.000E+00 0.000E+00 0 172 9 8.264E-01 6.460E-01 1.914E+00 3.230E-01 4.266E-01 -5.909E-01 0.000E+00 0.000E+00 0.000E+00 -7.188E-01 -8.033E-01 -1.787E+00 3.186E-01 4.019E-01 3.236E-01 0.000E+00 0.000E+00 0.000E+00 -4.297E-01 -5.247E-01 -1.078E+00 3.493E-01 3.056E-01 1.800E-01 0.000E+00 0.000E+00 0.000E+00 5.034E-01 3.445E-01 1.163E+00 3.523E-01 3.186E-01 -4.221E-01 0.000E+00 0.000E+00 0.000E+00 3.399E-02 -9.573E-02 2.634E-02 3.358E-01 3.630E-01 -1.239E-01 0.000E+00 0.000E+00 0.000E+00 0 172 10 6.343E-01 4.860E-01 1.504E+00 2.681E-01 3.634E-01 -4.684E-01 0.000E+00 0.000E+00 0.000E+00 -5.535E-01 -5.862E-01 -1.384E+00 2.666E-01 3.436E-01 2.755E-01 0.000E+00 0.000E+00 0.000E+00 -3.236E-01 -3.736E-01 -8.213E-01 3.030E-01 2.538E-01 1.565E-01 0.000E+00 0.000E+00 0.000E+00 3.811E-01 2.540E-01 9.001E-01 3.040E-01 2.643E-01 -3.295E-01 0.000E+00 0.000E+00 0.000E+00 2.567E-02 -6.389E-02 2.894E-02 2.854E-01 3.061E-01 -8.866E-02 0.000E+00 0.000E+00 0.000E+00 0 172 0.0000 1.778E+01 6.018E+00 2.558E+01 6.262E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.587E+01 -3.364E+01 -4.695E+01 5.929E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -9.967E+00 -2.631E+01 -3.278E+01 4.110E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.168E+01 -6.659E-01 1.373E+01 4.332E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.983E-01 -1.386E+01 -1.059E+01 5.158E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 211 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 172 7.1000 1.418E+01 3.562E+00 1.813E+01 5.089E+00 3.171E+00 -6.271E+00 0.000E+00 0.000E+00 0.000E+00 -1.272E+01 -2.898E+01 -3.898E+01 4.793E+00 2.898E+00 1.247E+00 0.000E+00 0.000E+00 0.000E+00 -8.007E+00 -2.296E+01 -2.769E+01 3.078E+00 2.357E+00 1.996E-01 0.000E+00 0.000E+00 0.000E+00 9.402E+00 -1.782E+00 9.169E+00 3.275E+00 2.514E+00 -4.855E+00 0.000E+00 0.000E+00 0.000E+00 5.503E-01 -1.270E+01 -1.022E+01 4.059E+00 2.733E+00 -2.391E+00 0.000E+00 0.000E+00 0.000E+00 0 173 0 9.344E-02 -2.305E-01 -1.751E+00 1.102E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.330E-01 -1.620E-01 -1.688E+00 6.675E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.995E-02 -1.818E-01 -1.571E+00 9.390E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.050E-01 -2.804E-01 -1.656E+00 1.591E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.778E-02 -2.137E-01 -1.667E+00 1.075E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 173 1 2.451E-01 -2.063E+00 -3.528E+00 2.646E-01 5.997E-03 -4.864E-01 0.000E+00 0.000E+00 0.000E+00 2.316E-01 -2.114E+00 -3.522E+00 1.683E-01 -3.632E-03 -3.296E-01 0.000E+00 0.000E+00 0.000E+00 -1.987E-01 -2.183E+00 -3.321E+00 1.334E-01 1.497E-02 -3.191E-01 0.000E+00 0.000E+00 0.000E+00 -1.739E-01 -2.102E+00 -3.319E+00 2.780E-01 2.631E-02 -5.555E-01 0.000E+00 0.000E+00 0.000E+00 2.590E-02 -2.115E+00 -3.423E+00 2.111E-01 1.100E-02 -4.222E-01 0.000E+00 0.000E+00 0.000E+00 0 173 2 8.096E-01 -6.710E+00 -5.023E+00 4.996E-01 4.202E-02 -7.438E-01 0.000E+00 0.000E+00 0.000E+00 -1.709E-01 -8.170E+00 -6.833E+00 3.330E-01 -1.465E-03 -2.970E-01 0.000E+00 0.000E+00 0.000E+00 -1.060E+00 -8.434E+00 -6.824E+00 -1.162E-01 1.167E-01 -1.841E-01 0.000E+00 0.000E+00 0.000E+00 4.021E-01 -6.253E+00 -4.130E+00 1.338E-01 1.727E-01 -8.716E-01 0.000E+00 0.000E+00 0.000E+00 -7.870E-03 -7.395E+00 -5.709E+00 2.125E-01 8.269E-02 -5.223E-01 0.000E+00 0.000E+00 0.000E+00 0 173 3 1.686E+00 -6.664E+00 -7.497E+00 6.833E-01 1.223E-01 -3.609E-01 0.000E+00 0.000E+00 0.000E+00 -8.416E-01 -9.890E+00 -1.270E+01 4.279E-01 3.242E-02 4.703E-01 0.000E+00 0.000E+00 0.000E+00 -2.293E+00 -1.038E+01 -1.289E+01 -2.271E-01 3.921E-01 6.330E-01 0.000E+00 0.000E+00 0.000E+00 1.449E+00 -5.594E+00 -5.207E+00 1.560E-01 5.067E-01 -6.525E-01 0.000E+00 0.000E+00 0.000E+00 -8.286E-03 -8.141E+00 -9.592E+00 2.600E-01 2.638E-01 2.586E-02 0.000E+00 0.000E+00 0.000E+00 0 173 4 1.425E+00 -3.836E+00 -5.845E+00 5.502E-01 1.296E-01 3.268E-02 0.000E+00 0.000E+00 0.000E+00 -6.695E-01 -6.344E+00 -1.032E+01 3.321E-01 4.196E-02 9.584E-01 0.000E+00 0.000E+00 0.000E+00 -1.871E+00 -6.728E+00 -1.039E+01 -5.599E-02 4.506E-01 1.072E+00 0.000E+00 0.000E+00 0.000E+00 1.175E+00 -3.061E+00 -3.908E+00 2.710E-01 5.589E-01 -3.485E-01 0.000E+00 0.000E+00 0.000E+00 1.008E-02 -4.997E+00 -7.628E+00 2.743E-01 2.958E-01 4.318E-01 0.000E+00 0.000E+00 0.000E+00 0 173 5 1.083E+00 -2.392E+00 -4.235E+00 4.052E-01 1.184E-01 2.776E-01 0.000E+00 0.000E+00 0.000E+00 -4.589E-01 -4.105E+00 -7.659E+00 2.342E-01 4.078E-02 1.169E+00 0.000E+00 0.000E+00 0.000E+00 -1.354E+00 -4.359E+00 -7.611E+00 7.290E-02 4.271E-01 1.246E+00 0.000E+00 0.000E+00 0.000E+00 8.298E-01 -1.917E+00 -2.772E+00 3.295E-01 5.203E-01 -1.079E-01 0.000E+00 0.000E+00 0.000E+00 2.322E-02 -3.195E+00 -5.573E+00 2.604E-01 2.773E-01 6.487E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 212 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 173 6 8.106E-01 -1.528E+00 -3.111E+00 2.853E-01 1.038E-01 3.750E-01 0.000E+00 0.000E+00 0.000E+00 -3.072E-01 -2.650E+00 -5.715E+00 1.535E-01 3.684E-02 1.170E+00 0.000E+00 0.000E+00 0.000E+00 -9.555E-01 -2.805E+00 -5.581E+00 1.492E-01 3.771E-01 1.217E+00 0.000E+00 0.000E+00 0.000E+00 5.774E-01 -1.265E+00 -2.011E+00 3.469E-01 4.556E-01 2.210E-02 0.000E+00 0.000E+00 0.000E+00 3.202E-02 -2.061E+00 -4.103E+00 2.337E-01 2.439E-01 6.976E-01 0.000E+00 0.000E+00 0.000E+00 0 173 7 6.096E-01 -9.998E-01 -2.329E+00 1.980E-01 8.918E-02 3.860E-01 0.000E+00 0.000E+00 0.000E+00 -2.031E-01 -1.720E+00 -4.318E+00 9.604E-02 3.219E-02 1.071E+00 0.000E+00 0.000E+00 0.000E+00 -6.703E-01 -1.805E+00 -4.134E+00 1.831E-01 3.222E-01 1.095E+00 0.000E+00 0.000E+00 0.000E+00 4.002E-01 -8.733E-01 -1.496E+00 3.360E-01 3.876E-01 7.686E-02 0.000E+00 0.000E+00 0.000E+00 3.617E-02 -1.347E+00 -3.064E+00 2.033E-01 2.084E-01 6.583E-01 0.000E+00 0.000E+00 0.000E+00 0 173 8 4.637E-01 -6.719E-01 -1.771E+00 1.370E-01 7.598E-02 3.577E-01 0.000E+00 0.000E+00 0.000E+00 -1.330E-01 -1.127E+00 -3.305E+00 5.711E-02 2.748E-02 9.399E-01 0.000E+00 0.000E+00 0.000E+00 -4.714E-01 -1.165E+00 -3.096E+00 1.902E-01 2.709E-01 9.470E-01 0.000E+00 0.000E+00 0.000E+00 2.771E-01 -6.299E-01 -1.137E+00 3.100E-01 3.253E-01 9.269E-02 0.000E+00 0.000E+00 0.000E+00 3.700E-02 -8.955E-01 -2.321E+00 1.736E-01 1.755E-01 5.846E-01 0.000E+00 0.000E+00 0.000E+00 0 173 9 3.570E-01 -4.629E-01 -1.362E+00 9.450E-02 6.435E-02 3.144E-01 0.000E+00 0.000E+00 0.000E+00 -8.549E-02 -7.439E-01 -2.556E+00 3.114E-02 2.311E-02 8.050E-01 0.000E+00 0.000E+00 0.000E+00 -3.325E-01 -7.533E-01 -2.341E+00 1.826E-01 2.258E-01 8.009E-01 0.000E+00 0.000E+00 0.000E+00 1.912E-01 -4.719E-01 -8.763E-01 2.777E-01 2.710E-01 9.002E-02 0.000E+00 0.000E+00 0.000E+00 3.586E-02 -6.047E-01 -1.776E+00 1.465E-01 1.466E-01 5.024E-01 0.000E+00 0.000E+00 0.000E+00 0 173 10 2.781E-01 -3.261E-01 -1.056E+00 6.476E-02 5.428E-02 2.677E-01 0.000E+00 0.000E+00 0.000E+00 -5.309E-02 -4.934E-01 -1.993E+00 1.393E-02 1.921E-02 6.790E-01 0.000E+00 0.000E+00 0.000E+00 -2.348E-01 -4.845E-01 -1.781E+00 1.675E-01 1.871E-01 6.678E-01 0.000E+00 0.000E+00 0.000E+00 1.308E-01 -3.647E-01 -6.823E-01 2.438E-01 2.246E-01 7.938E-02 0.000E+00 0.000E+00 0.000E+00 3.370E-02 -4.137E-01 -1.370E+00 1.225E-01 1.218E-01 4.230E-01 0.000E+00 0.000E+00 0.000E+00 0 173 0.0000 7.860E+00 -2.588E+01 -3.751E+01 3.293E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.558E+00 -3.752E+01 -6.060E+01 1.914E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -9.492E+00 -3.928E+01 -5.955E+01 7.737E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 5.154E+00 -2.281E+01 -2.720E+01 2.842E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.356E-01 -3.138E+01 -4.622E+01 2.205E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 173 7.1000 6.319E+00 -2.276E+01 -3.140E+01 2.783E+00 4.968E-01 1.186E+00 0.000E+00 0.000E+00 0.000E+00 -2.035E+00 -3.249E+01 -4.953E+01 1.663E+00 1.660E-01 4.952E+00 0.000E+00 0.000E+00 0.000E+00 -7.778E+00 -3.403E+01 -4.892E+01 3.795E-01 1.742E+00 5.181E+00 0.000E+00 0.000E+00 0.000E+00 4.134E+00 -2.006E+01 -2.318E+01 2.061E+00 2.129E+00 -4.409E-01 0.000E+00 0.000E+00 0.000E+00 1.499E-01 -2.734E+01 -3.828E+01 1.721E+00 1.137E+00 2.726E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 213 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 231 0 -4.510E-02 -8.257E-01 -1.024E+00 -2.365E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.188E-01 -4.566E-01 -8.465E-01 -2.516E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.243E-01 -1.969E-01 -4.309E-01 2.538E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.151E-01 -7.442E-01 -6.819E-01 2.766E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.103E-02 -5.556E-01 -7.450E-01 1.058E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 231 1 -8.379E-02 -2.747E+00 -1.937E+00 -4.269E-01 -3.184E-02 -1.375E+00 0.000E+00 0.000E+00 0.000E+00 2.054E-01 -2.085E+00 -1.635E+00 -4.546E-01 -3.831E-02 -1.252E+00 0.000E+00 0.000E+00 0.000E+00 2.152E-01 -1.612E+00 -8.754E-01 4.630E-01 -1.575E-02 -1.155E+00 0.000E+00 0.000E+00 0.000E+00 -2.149E-01 -2.601E+00 -1.320E+00 5.046E-01 -8.423E-03 -1.318E+00 0.000E+00 0.000E+00 0.000E+00 3.068E-02 -2.261E+00 -1.442E+00 2.151E-02 -2.372E-02 -1.274E+00 0.000E+00 0.000E+00 0.000E+00 0 231 2 2.144E-01 -4.022E+00 1.665E+00 -1.636E-01 -6.568E-02 -3.089E+00 0.000E+00 0.000E+00 0.000E+00 -3.113E-01 -4.388E+00 2.808E-01 -1.636E-01 -7.447E-02 -2.629E+00 0.000E+00 0.000E+00 0.000E+00 -3.145E-01 -4.312E+00 1.939E-01 2.339E-01 6.253E-02 -2.179E+00 0.000E+00 0.000E+00 0.000E+00 4.031E-01 -3.833E+00 2.107E+00 2.339E-01 7.855E-02 -2.846E+00 0.000E+00 0.000E+00 0.000E+00 -8.163E-03 -4.145E+00 1.047E+00 3.514E-02 2.594E-04 -2.684E+00 0.000E+00 0.000E+00 0.000E+00 0 231 3 8.383E-01 -7.706E-02 9.437E+00 -2.144E-02 -7.510E-02 -3.745E+00 0.000E+00 0.000E+00 0.000E+00 -1.167E+00 -2.009E+00 4.685E+00 2.661E-02 -4.321E-02 -2.857E+00 0.000E+00 0.000E+00 0.000E+00 -1.210E+00 -2.496E+00 2.948E+00 2.324E-01 3.637E-01 -2.181E+00 0.000E+00 0.000E+00 0.000E+00 1.557E+00 1.614E-01 9.512E+00 1.603E-01 3.394E-01 -3.494E+00 0.000E+00 0.000E+00 0.000E+00 -1.577E-02 -1.126E+00 6.597E+00 9.948E-02 1.471E-01 -3.066E+00 0.000E+00 0.000E+00 0.000E+00 0 231 4 6.716E-01 1.078E+00 7.920E+00 -1.430E-01 -7.224E-02 -3.128E+00 0.000E+00 0.000E+00 0.000E+00 -8.674E-01 -2.630E-01 4.132E+00 -9.780E-02 -2.883E-02 -2.231E+00 0.000E+00 0.000E+00 0.000E+00 -8.665E-01 -6.150E-01 2.530E+00 4.186E-01 3.582E-01 -1.671E+00 0.000E+00 0.000E+00 0.000E+00 1.128E+00 1.083E+00 7.480E+00 3.509E-01 3.198E-01 -2.968E+00 0.000E+00 0.000E+00 0.000E+00 -4.799E-03 2.996E-01 5.466E+00 1.322E-01 1.455E-01 -2.495E+00 0.000E+00 0.000E+00 0.000E+00 0 231 5 4.666E-01 8.182E-01 5.606E+00 -1.976E-01 -6.095E-02 -2.373E+00 0.000E+00 0.000E+00 0.000E+00 -5.486E-01 4.277E-02 2.997E+00 -1.612E-01 -2.186E-02 -1.602E+00 0.000E+00 0.000E+00 0.000E+00 -5.205E-01 -1.738E-01 1.728E+00 4.563E-01 2.757E-01 -1.150E+00 0.000E+00 0.000E+00 0.000E+00 6.755E-01 6.627E-01 4.878E+00 4.016E-01 2.423E-01 -2.240E+00 0.000E+00 0.000E+00 0.000E+00 -8.811E-04 3.183E-01 3.757E+00 1.248E-01 1.100E-01 -1.836E+00 0.000E+00 0.000E+00 0.000E+00 0 231 6 3.283E-01 5.120E-01 3.895E+00 -2.036E-01 -4.610E-02 -1.699E+00 0.000E+00 0.000E+00 0.000E+00 -3.389E-01 7.447E-02 2.109E+00 -1.756E-01 -1.428E-02 -1.095E+00 0.000E+00 0.000E+00 0.000E+00 -3.097E-01 -6.077E-02 1.131E+00 4.125E-01 2.004E-01 -7.483E-01 0.000E+00 0.000E+00 0.000E+00 3.908E-01 2.952E-01 3.110E+00 3.706E-01 1.744E-01 -1.579E+00 0.000E+00 0.000E+00 0.000E+00 1.346E-03 1.890E-01 2.523E+00 1.010E-01 7.960E-02 -1.276E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 214 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 231 7 2.350E-01 3.031E-01 2.697E+00 -1.820E-01 -3.338E-02 -1.195E+00 0.000E+00 0.000E+00 0.000E+00 -2.082E-01 5.593E-02 1.467E+00 -1.612E-01 -8.535E-03 -7.425E-01 0.000E+00 0.000E+00 0.000E+00 -1.861E-01 -3.194E-02 7.270E-01 3.393E-01 1.419E-01 -4.829E-01 0.000E+00 0.000E+00 0.000E+00 2.209E-01 8.092E-02 1.971E+00 3.081E-01 1.228E-01 -1.088E+00 0.000E+00 0.000E+00 0.000E+00 2.128E-03 8.873E-02 1.684E+00 7.604E-02 5.652E-02 -8.732E-01 0.000E+00 0.000E+00 0.000E+00 0 231 8 1.708E-01 1.766E-01 1.873E+00 -1.508E-01 -2.367E-02 -8.390E-01 0.000E+00 0.000E+00 0.000E+00 -1.281E-01 3.486E-02 1.019E+00 -1.355E-01 -4.760E-03 -5.056E-01 0.000E+00 0.000E+00 0.000E+00 -1.134E-01 -2.480E-02 4.647E-01 2.650E-01 9.928E-02 -3.136E-01 0.000E+00 0.000E+00 0.000E+00 1.217E-01 -2.546E-02 1.249E+00 2.421E-01 8.572E-02 -7.463E-01 0.000E+00 0.000E+00 0.000E+00 2.159E-03 2.971E-02 1.127E+00 5.522E-02 3.982E-02 -5.976E-01 0.000E+00 0.000E+00 0.000E+00 0 231 9 1.253E-01 1.027E-01 1.307E+00 -1.194E-01 -1.665E-02 -5.894E-01 0.000E+00 0.000E+00 0.000E+00 -7.894E-02 1.988E-02 7.087E-01 -1.083E-01 -2.416E-03 -3.466E-01 0.000E+00 0.000E+00 0.000E+00 -7.002E-02 -2.213E-02 2.968E-01 2.007E-01 6.901E-02 -2.053E-01 0.000E+00 0.000E+00 0.000E+00 6.440E-02 -6.976E-02 7.925E-01 1.840E-01 5.952E-02 -5.114E-01 0.000E+00 0.000E+00 0.000E+00 1.871E-03 -6.310E-04 7.567E-01 3.926E-02 2.790E-02 -4.102E-01 0.000E+00 0.000E+00 0.000E+00 0 231 10 9.240E-02 6.012E-02 9.146E-01 -9.197E-02 -1.163E-02 -4.146E-01 0.000E+00 0.000E+00 0.000E+00 -4.863E-02 1.062E-02 4.940E-01 -8.387E-02 -1.004E-03 -2.388E-01 0.000E+00 0.000E+00 0.000E+00 -4.369E-02 -1.975E-02 1.895E-01 1.490E-01 4.769E-02 -1.353E-01 0.000E+00 0.000E+00 0.000E+00 3.178E-02 -8.157E-02 5.029E-01 1.368E-01 4.116E-02 -3.504E-01 0.000E+00 0.000E+00 0.000E+00 1.512E-03 -1.410E-02 5.102E-01 2.750E-02 1.948E-02 -2.824E-01 0.000E+00 0.000E+00 0.000E+00 0 231 0.0000 3.014E+00 -4.621E+00 3.235E+01 -1.937E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.373E+00 -8.964E+00 1.541E+01 -1.767E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.295E+00 -9.565E+00 8.902E+00 3.425E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.263E+00 -5.072E+00 2.960E+01 3.169E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.111E-02 -7.177E+00 2.128E+01 7.227E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 231 7.1000 2.404E+00 -5.174E+00 2.550E+01 -1.558E+00 -2.195E-01 -8.839E+00 0.000E+00 0.000E+00 0.000E+00 -2.781E+00 -8.727E+00 1.177E+01 -1.436E+00 -8.839E-02 -6.096E+00 0.000E+00 0.000E+00 0.000E+00 -2.736E+00 -9.080E+00 7.016E+00 2.701E+00 9.100E-01 -4.382E+00 0.000E+00 0.000E+00 0.000E+00 3.591E+00 -5.200E+00 2.422E+01 2.519E+00 8.102E-01 -8.156E+00 0.000E+00 0.000E+00 0.000E+00 2.879E-02 -7.136E+00 1.692E+01 5.565E-01 3.574E-01 -6.848E+00 0.000E+00 0.000E+00 0.000E+00 0 234 0 -1.433E-01 3.247E-01 -6.526E-01 -2.438E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.258E-02 6.819E-01 -4.901E-01 -2.462E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.489E-01 8.423E-01 -9.178E-02 2.570E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -8.117E-02 3.103E-01 -3.266E-01 2.606E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.591E-02 5.397E-01 -3.906E-01 6.919E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 215 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 234 1 -2.259E-01 -7.245E-01 -1.326E+00 -4.020E-01 -4.601E-03 -9.013E-01 0.000E+00 0.000E+00 0.000E+00 3.714E-02 -1.145E-01 -1.059E+00 -4.106E-01 -6.470E-03 -7.952E-01 0.000E+00 0.000E+00 0.000E+00 2.333E-01 1.670E-01 -3.164E-01 4.568E-01 -1.873E-02 -8.000E-01 0.000E+00 0.000E+00 0.000E+00 -1.597E-01 -7.464E-01 -7.129E-01 4.696E-01 -1.699E-02 -9.427E-01 0.000E+00 0.000E+00 0.000E+00 -2.890E-02 -3.547E-01 -8.536E-01 2.846E-02 -1.165E-02 -8.602E-01 0.000E+00 0.000E+00 0.000E+00 0 234 2 3.377E-01 -4.766E+00 -2.749E+00 -1.662E-02 -9.735E-03 -1.378E+00 0.000E+00 0.000E+00 0.000E+00 -1.604E-01 -5.178E+00 -3.998E+00 -5.020E-02 -3.540E-02 -9.642E-01 0.000E+00 0.000E+00 0.000E+00 -3.835E-01 -5.066E+00 -3.399E+00 1.641E-01 3.676E-02 -7.691E-01 0.000E+00 0.000E+00 0.000E+00 3.205E-01 -4.490E+00 -1.627E+00 2.145E-01 7.024E-02 -1.380E+00 0.000E+00 0.000E+00 0.000E+00 2.729E-02 -4.876E+00 -2.946E+00 7.796E-02 1.556E-02 -1.122E+00 0.000E+00 0.000E+00 0.000E+00 0 234 3 1.178E+00 -4.455E+00 -5.233E+00 1.456E-01 5.127E-03 -5.681E-01 0.000E+00 0.000E+00 0.000E+00 -6.167E-01 -6.241E+00 -9.429E+00 7.949E-02 -5.574E-02 2.525E-01 0.000E+00 0.000E+00 0.000E+00 -1.311E+00 -6.274E+00 -8.844E+00 1.006E-01 2.755E-01 4.928E-01 0.000E+00 0.000E+00 0.000E+00 1.221E+00 -3.755E+00 -2.924E+00 1.999E-01 3.544E-01 -7.360E-01 0.000E+00 0.000E+00 0.000E+00 1.157E-01 -5.183E+00 -6.612E+00 1.314E-01 1.451E-01 -1.379E-01 0.000E+00 0.000E+00 0.000E+00 0 234 4 8.993E-01 -1.755E+00 -3.829E+00 -4.276E-02 -4.398E-03 7.760E-02 0.000E+00 0.000E+00 0.000E+00 -4.559E-01 -2.946E+00 -7.156E+00 -9.849E-02 -5.551E-02 9.122E-01 0.000E+00 0.000E+00 0.000E+00 -9.591E-01 -2.892E+00 -6.473E+00 3.134E-01 2.756E-01 9.780E-01 0.000E+00 0.000E+00 0.000E+00 8.386E-01 -1.341E+00 -2.031E+00 3.970E-01 3.372E-01 -2.440E-01 0.000E+00 0.000E+00 0.000E+00 8.366E-02 -2.231E+00 -4.866E+00 1.423E-01 1.386E-01 4.316E-01 0.000E+00 0.000E+00 0.000E+00 0 234 5 5.813E-01 -6.728E-01 -2.533E+00 -1.334E-01 -1.204E-02 3.915E-01 0.000E+00 0.000E+00 0.000E+00 -3.031E-01 -1.336E+00 -4.818E+00 -1.745E-01 -5.012E-02 1.113E+00 0.000E+00 0.000E+00 0.000E+00 -5.806E-01 -1.202E+00 -4.095E+00 3.781E-01 2.135E-01 1.088E+00 0.000E+00 0.000E+00 0.000E+00 4.853E-01 -4.681E-01 -1.276E+00 4.398E-01 2.560E-01 5.692E-02 0.000E+00 0.000E+00 0.000E+00 5.187E-02 -9.137E-01 -3.166E+00 1.275E-01 1.023E-01 6.617E-01 0.000E+00 0.000E+00 0.000E+00 0 234 6 3.616E-01 -2.173E-01 -1.710E+00 -1.619E-01 -1.235E-02 4.647E-01 0.000E+00 0.000E+00 0.000E+00 -2.141E-01 -5.742E-01 -3.273E+00 -1.908E-01 -4.018E-02 1.031E+00 0.000E+00 0.000E+00 0.000E+00 -3.324E-01 -4.030E-01 -2.584E+00 3.561E-01 1.557E-01 9.608E-01 0.000E+00 0.000E+00 0.000E+00 2.837E-01 -1.150E-01 -8.177E-01 3.996E-01 1.844E-01 1.721E-01 0.000E+00 0.000E+00 0.000E+00 3.181E-02 -3.202E-01 -2.079E+00 1.007E-01 7.231E-02 6.558E-01 0.000E+00 0.000E+00 0.000E+00 0 234 7 2.215E-01 -3.043E-02 -1.180E+00 -1.548E-01 -1.017E-02 4.241E-01 0.000E+00 0.000E+00 0.000E+00 -1.579E-01 -2.201E-01 -2.254E+00 -1.750E-01 -3.033E-02 8.499E-01 0.000E+00 0.000E+00 0.000E+00 -1.824E-01 -4.342E-02 -1.641E+00 2.992E-01 1.105E-01 7.624E-01 0.000E+00 0.000E+00 0.000E+00 1.699E-01 2.440E-02 -5.342E-01 3.294E-01 1.299E-01 1.855E-01 0.000E+00 0.000E+00 0.000E+00 1.966E-02 -6.050E-02 -1.386E+00 7.471E-02 5.033E-02 5.538E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 216 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 234 8 1.348E-01 3.771E-02 -8.261E-01 -1.329E-01 -7.663E-03 3.492E-01 0.000E+00 0.000E+00 0.000E+00 -1.192E-01 -6.298E-02 -1.572E+00 -1.469E-01 -2.231E-02 6.630E-01 0.000E+00 0.000E+00 0.000E+00 -9.517E-02 1.013E-01 -1.049E+00 2.366E-01 7.748E-02 5.748E-01 0.000E+00 0.000E+00 0.000E+00 1.044E-01 7.079E-02 -3.530E-01 2.576E-01 9.050E-02 1.613E-01 0.000E+00 0.000E+00 0.000E+00 1.234E-02 4.282E-02 -9.358E-01 5.361E-02 3.482E-02 4.353E-01 0.000E+00 0.000E+00 0.000E+00 0 234 9 8.166E-02 5.548E-02 -5.842E-01 -1.076E-01 -5.523E-03 2.731E-01 0.000E+00 0.000E+00 0.000E+00 -9.108E-02 1.945E-03 -1.106E+00 -1.174E-01 -1.619E-02 5.021E-01 0.000E+00 0.000E+00 0.000E+00 -4.561E-02 1.456E-01 -6.729E-01 1.806E-01 5.395E-02 4.214E-01 0.000E+00 0.000E+00 0.000E+00 6.572E-02 7.815E-02 -2.344E-01 1.953E-01 6.271E-02 1.282E-01 0.000E+00 0.000E+00 0.000E+00 7.849E-03 7.548E-02 -6.374E-01 3.770E-02 2.401E-02 3.295E-01 0.000E+00 0.000E+00 0.000E+00 0 234 10 4.906E-02 5.336E-02 -4.152E-01 -8.416E-02 -3.864E-03 2.073E-01 0.000E+00 0.000E+00 0.000E+00 -6.980E-02 2.481E-02 -7.829E-01 -9.107E-02 -1.163E-02 3.733E-01 0.000E+00 0.000E+00 0.000E+00 -1.824E-02 1.455E-01 -4.321E-01 1.347E-01 3.737E-02 3.036E-01 0.000E+00 0.000E+00 0.000E+00 4.216E-02 7.046E-02 -1.557E-01 1.451E-01 4.325E-02 9.708E-02 0.000E+00 0.000E+00 0.000E+00 5.037E-03 7.779E-02 -4.366E-01 2.613E-02 1.649E-02 2.439E-01 0.000E+00 0.000E+00 0.000E+00 0 234 0.0000 3.476E+00 -1.215E+01 -2.104E+01 -1.334E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.138E+00 -1.596E+01 -3.594E+01 -1.622E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.526E+00 -1.448E+01 -2.960E+01 2.877E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.290E+00 -1.036E+01 -1.099E+01 3.308E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.104E-01 -1.320E+01 -2.431E+01 8.074E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 234 7.1000 2.857E+00 -1.137E+01 -1.781E+01 -1.036E+00 -4.132E-02 9.798E-01 0.000E+00 0.000E+00 0.000E+00 -1.716E+00 -1.454E+01 -2.989E+01 -1.272E+00 -1.798E-01 3.541E+00 0.000E+00 0.000E+00 0.000E+00 -2.970E+00 -1.343E+01 -2.494E+01 2.255E+00 7.001E-01 3.366E+00 0.000E+00 0.000E+00 0.000E+00 2.760E+00 -9.815E+00 -9.456E+00 2.610E+00 8.498E-01 -2.056E-01 0.000E+00 0.000E+00 0.000E+00 2.535E-01 -1.227E+01 -2.047E+01 6.390E-01 3.340E-01 1.915E+00 0.000E+00 0.000E+00 0.000E+00 0 241 0 -1.526E-01 -8.317E-01 -7.194E-01 -2.700E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 9.081E-02 -2.751E-01 -4.644E-01 -2.750E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 8.816E-02 -3.490E-01 -2.558E-01 2.485E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -7.196E-02 -7.179E-01 -4.207E-01 2.518E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.152E-02 -5.435E-01 -4.653E-01 -1.118E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 241 1 -2.566E-01 -2.698E+00 -1.362E+00 -4.706E-01 -8.423E-03 -1.356E+00 0.000E+00 0.000E+00 0.000E+00 1.706E-01 -1.716E+00 -9.201E-01 -4.821E-01 -1.575E-02 -1.219E+00 0.000E+00 0.000E+00 0.000E+00 1.422E-01 -1.853E+00 -5.462E-01 4.466E-01 -4.845E-03 -1.219E+00 0.000E+00 0.000E+00 0.000E+00 -1.420E-01 -2.507E+00 -8.394E-01 4.542E-01 -3.433E-04 -1.298E+00 0.000E+00 0.000E+00 0.000E+00 -2.143E-02 -2.194E+00 -9.169E-01 -1.298E-02 -7.339E-03 -1.273E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 217 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 241 2 4.468E-01 -3.731E+00 2.151E+00 -1.075E-01 7.861E-02 -3.084E+00 0.000E+00 0.000E+00 0.000E+00 -3.232E-01 -4.333E+00 1.852E-01 -1.376E-01 6.259E-02 -2.503E+00 0.000E+00 0.000E+00 0.000E+00 -2.861E-01 -4.151E+00 9.955E-01 1.532E-01 -3.967E-03 -2.467E+00 0.000E+00 0.000E+00 0.000E+00 2.011E-01 -3.777E+00 2.244E+00 1.732E-01 3.052E-03 -2.845E+00 0.000E+00 0.000E+00 0.000E+00 8.374E-03 -4.000E+00 1.390E+00 2.032E-02 3.528E-02 -2.724E+00 0.000E+00 0.000E+00 0.000E+00 0 241 3 1.613E+00 2.932E-01 9.569E+00 9.216E-02 3.392E-01 -3.607E+00 0.000E+00 0.000E+00 0.000E+00 -1.239E+00 -2.565E+00 2.918E+00 4.234E-02 3.637E-01 -2.527E+00 0.000E+00 0.000E+00 0.000E+00 -9.539E-01 -1.946E+00 4.689E+00 4.933E-02 2.744E-02 -2.644E+00 0.000E+00 0.000E+00 0.000E+00 8.672E-01 -1.203E-01 8.936E+00 8.254E-02 -6.104E-04 -3.364E+00 0.000E+00 0.000E+00 0.000E+00 6.674E-02 -1.090E+00 6.516E+00 6.659E-02 1.831E-01 -3.033E+00 0.000E+00 0.000E+00 0.000E+00 0 241 4 1.176E+00 1.196E+00 7.528E+00 -6.557E-02 3.199E-01 -2.834E+00 0.000E+00 0.000E+00 0.000E+00 -8.940E-01 -6.791E-01 2.502E+00 -8.721E-02 3.583E-01 -1.784E+00 0.000E+00 0.000E+00 0.000E+00 -6.621E-01 -3.681E-01 3.589E+00 2.458E-01 2.866E-02 -2.001E+00 0.000E+00 0.000E+00 0.000E+00 6.027E-01 7.663E-01 6.671E+00 2.602E-01 -5.402E-03 -2.684E+00 0.000E+00 0.000E+00 0.000E+00 5.528E-02 2.282E-01 5.072E+00 8.829E-02 1.761E-01 -2.325E+00 0.000E+00 0.000E+00 0.000E+00 0 241 5 7.327E-01 7.962E-01 4.935E+00 -1.308E-01 2.423E-01 -2.025E+00 0.000E+00 0.000E+00 0.000E+00 -5.404E-01 -2.203E-01 1.708E+00 -1.329E-01 2.758E-01 -1.151E+00 0.000E+00 0.000E+00 0.000E+00 -3.873E-01 -1.385E-01 2.198E+00 2.957E-01 2.023E-02 -1.351E+00 0.000E+00 0.000E+00 0.000E+00 3.350E-01 4.127E-01 4.055E+00 2.971E-01 -6.187E-03 -1.905E+00 0.000E+00 0.000E+00 0.000E+00 3.790E-02 2.154E-01 3.231E+00 8.227E-02 1.334E-01 -1.608E+00 0.000E+00 0.000E+00 0.000E+00 0 241 6 4.556E-01 4.464E-01 3.175E+00 -1.419E-01 1.744E-01 -1.357E+00 0.000E+00 0.000E+00 0.000E+00 -3.206E-01 -8.629E-02 1.120E+00 -1.364E-01 2.004E-01 -7.063E-01 0.000E+00 0.000E+00 0.000E+00 -2.261E-01 -1.089E-01 1.302E+00 2.676E-01 1.260E-02 -8.539E-01 0.000E+00 0.000E+00 0.000E+00 1.766E-01 1.314E-01 2.404E+00 2.640E-01 -5.825E-03 -1.255E+00 0.000E+00 0.000E+00 0.000E+00 2.526E-02 9.957E-02 2.009E+00 6.333E-02 9.552E-02 -1.044E+00 0.000E+00 0.000E+00 0.000E+00 0 241 7 2.874E-01 2.361E-01 2.037E+00 -1.259E-01 1.229E-01 -8.921E-01 0.000E+00 0.000E+00 0.000E+00 -1.893E-01 -3.942E-02 7.238E-01 -1.189E-01 1.419E-01 -4.308E-01 0.000E+00 0.000E+00 0.000E+00 -1.346E-01 -9.872E-02 7.620E-01 2.140E-01 7.162E-03 -5.308E-01 0.000E+00 0.000E+00 0.000E+00 8.845E-02 -9.763E-03 1.417E+00 2.093E-01 -5.129E-03 -8.065E-01 0.000E+00 0.000E+00 0.000E+00 1.682E-02 2.588E-02 1.244E+00 4.463E-02 6.672E-02 -6.661E-01 0.000E+00 0.000E+00 0.000E+00 0 241 8 1.845E-01 1.212E-01 1.312E+00 -1.012E-01 8.573E-02 -5.844E-01 0.000E+00 0.000E+00 0.000E+00 -1.115E-01 -2.048E-02 4.666E-01 -9.483E-02 9.929E-02 -2.650E-01 0.000E+00 0.000E+00 0.000E+00 -8.205E-02 -8.516E-02 4.444E-01 1.603E-01 3.630E-03 -3.301E-01 0.000E+00 0.000E+00 0.000E+00 4.106E-02 -6.496E-02 8.346E-01 1.560E-01 -4.367E-03 -5.148E-01 0.000E+00 0.000E+00 0.000E+00 1.129E-02 -9.044E-03 7.720E-01 3.006E-02 4.606E-02 -4.247E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 218 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 241 9 1.203E-01 6.075E-02 8.484E-01 -7.703E-02 5.952E-02 -3.831E-01 0.000E+00 0.000E+00 0.000E+00 -6.549E-02 -1.156E-02 3.013E-01 -7.191E-02 6.901E-02 -1.647E-01 0.000E+00 0.000E+00 0.000E+00 -5.113E-02 -6.920E-02 2.588E-01 1.156E-01 1.517E-03 -2.060E-01 0.000E+00 0.000E+00 0.000E+00 1.638E-02 -7.737E-02 4.919E-01 1.121E-01 -3.618E-03 -3.282E-01 0.000E+00 0.000E+00 0.000E+00 7.674E-03 -2.169E-02 4.813E-01 1.969E-02 3.157E-02 -2.715E-01 0.000E+00 0.000E+00 0.000E+00 0 241 10 7.939E-02 2.953E-02 5.505E-01 -5.665E-02 4.116E-02 -2.513E-01 0.000E+00 0.000E+00 0.000E+00 -3.813E-02 -6.776E-03 1.951E-01 -5.281E-02 4.770E-02 -1.033E-01 0.000E+00 0.000E+00 0.000E+00 -3.244E-02 -5.370E-02 1.502E-01 8.127E-02 3.202E-04 -1.289E-01 0.000E+00 0.000E+00 0.000E+00 4.104E-03 -7.131E-02 2.896E-01 7.871E-02 -2.934E-03 -2.091E-01 0.000E+00 0.000E+00 0.000E+00 5.277E-03 -2.352E-02 3.011E-01 1.263E-02 2.151E-02 -1.740E-01 0.000E+00 0.000E+00 0.000E+00 0 241 0.0000 4.687E+00 -4.082E+00 3.002E+01 -1.455E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.461E+00 -9.953E+00 8.736E+00 -1.547E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.585E+00 -9.221E+00 1.359E+01 2.278E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.119E+00 -6.035E+00 2.608E+01 2.339E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.017E-01 -7.312E+00 1.963E+01 4.036E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 241 7.1000 3.861E+00 -4.569E+00 2.449E+01 -1.213E+00 8.101E-01 -7.428E+00 0.000E+00 0.000E+00 0.000E+00 -2.895E+00 -9.453E+00 6.857E+00 -1.310E+00 9.101E-01 -4.474E+00 0.000E+00 0.000E+00 0.000E+00 -2.166E+00 -8.700E+00 1.134E+01 1.844E+00 5.247E-02 -5.018E+00 0.000E+00 0.000E+00 0.000E+00 1.811E+00 -5.972E+00 2.187E+01 1.908E+00 -2.321E-02 -6.851E+00 0.000E+00 0.000E+00 0.000E+00 1.577E-01 -7.169E+00 1.615E+01 3.070E-01 4.382E-01 -5.945E+00 0.000E+00 0.000E+00 0.000E+00 0 244 0 -1.427E-01 1.667E-01 -3.881E-01 -2.623E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 9.222E-02 7.101E-01 -1.484E-01 -2.719E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.077E-01 7.895E-01 1.006E-01 2.423E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.660E-02 4.295E-01 -5.378E-02 2.487E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.805E-03 5.241E-01 -1.221E-01 -1.082E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 244 1 -2.325E-01 -9.163E-01 -7.857E-01 -4.629E-01 -1.699E-02 -1.051E+00 0.000E+00 0.000E+00 0.000E+00 1.844E-01 5.294E-02 -3.653E-01 -4.848E-01 -1.873E-02 -9.198E-01 0.000E+00 0.000E+00 0.000E+00 1.719E-01 1.864E-01 9.201E-02 4.358E-01 -7.858E-04 -9.225E-01 0.000E+00 0.000E+00 0.000E+00 -1.049E-01 -4.587E-01 -1.857E-01 4.504E-01 -3.586E-04 -9.976E-01 0.000E+00 0.000E+00 0.000E+00 4.777E-03 -2.838E-01 -3.110E-01 -1.538E-02 -9.258E-03 -9.718E-01 0.000E+00 0.000E+00 0.000E+00 0 244 2 4.027E-01 -4.298E+00 -1.545E+00 -1.303E-01 7.024E-02 -1.700E+00 0.000E+00 0.000E+00 0.000E+00 -2.600E-01 -4.777E+00 -3.275E+00 -1.507E-01 3.676E-02 -1.144E+00 0.000E+00 0.000E+00 0.000E+00 -2.371E-01 -4.618E+00 -2.767E+00 1.558E-01 -9.186E-03 -9.595E-01 0.000E+00 0.000E+00 0.000E+00 1.729E-01 -4.330E+00 -1.689E+00 1.694E-01 1.062E-02 -1.319E+00 0.000E+00 0.000E+00 0.000E+00 1.487E-02 -4.511E+00 -2.330E+00 1.104E-02 2.684E-02 -1.279E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 219 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 244 3 1.446E+00 -3.231E+00 -2.699E+00 5.803E-02 3.544E-01 -8.759E-01 0.000E+00 0.000E+00 0.000E+00 -1.088E+00 -5.754E+00 -8.621E+00 4.639E-02 2.755E-01 1.568E-01 0.000E+00 0.000E+00 0.000E+00 -8.630E-01 -5.452E+00 -7.838E+00 6.343E-02 -1.439E-02 3.683E-01 0.000E+00 0.000E+00 0.000E+00 7.281E-01 -3.867E+00 -4.118E+00 7.118E-02 3.253E-02 -3.143E-01 0.000E+00 0.000E+00 0.000E+00 4.091E-02 -4.591E+00 -5.853E+00 5.976E-02 1.614E-01 -1.640E-01 0.000E+00 0.000E+00 0.000E+00 0 244 4 1.080E+00 -7.784E-01 -1.790E+00 -7.405E-02 3.372E-01 -1.945E-01 0.000E+00 0.000E+00 0.000E+00 -7.509E-01 -2.406E+00 -6.265E+00 -9.470E-02 2.756E-01 8.078E-01 0.000E+00 0.000E+00 0.000E+00 -6.251E-01 -2.143E+00 -5.512E+00 2.439E-01 -9.239E-03 8.377E-01 0.000E+00 0.000E+00 0.000E+00 4.733E-01 -1.180E+00 -2.814E+00 2.577E-01 2.429E-02 1.900E-01 0.000E+00 0.000E+00 0.000E+00 3.014E-02 -1.641E+00 -4.128E+00 8.320E-02 1.563E-01 4.133E-01 0.000E+00 0.000E+00 0.000E+00 0 244 5 6.738E-01 -2.829E-02 -1.088E+00 -1.269E-01 2.560E-01 1.409E-01 0.000E+00 0.000E+00 0.000E+00 -4.452E-01 -8.864E-01 -3.959E+00 -1.487E-01 2.135E-01 9.734E-01 0.000E+00 0.000E+00 0.000E+00 -3.630E-01 -6.593E-01 -3.284E+00 2.861E-01 -6.362E-03 9.194E-01 0.000E+00 0.000E+00 0.000E+00 2.585E-01 -2.117E-01 -1.660E+00 3.006E-01 1.413E-02 3.941E-01 0.000E+00 0.000E+00 0.000E+00 1.901E-02 -4.585E-01 -2.526E+00 7.777E-02 1.187E-01 6.103E-01 0.000E+00 0.000E+00 0.000E+00 0 244 6 4.063E-01 1.711E-01 -6.950E-01 -1.348E-01 1.844E-01 2.449E-01 0.000E+00 0.000E+00 0.000E+00 -2.715E-01 -2.609E-01 -2.523E+00 -1.526E-01 1.557E-01 8.658E-01 0.000E+00 0.000E+00 0.000E+00 -1.949E-01 -6.571E-02 -1.949E+00 2.572E-01 -4.939E-03 7.799E-01 0.000E+00 0.000E+00 0.000E+00 1.473E-01 1.126E-01 -9.864E-01 2.691E-01 7.351E-03 3.984E-01 0.000E+00 0.000E+00 0.000E+00 1.220E-02 -2.033E-02 -1.561E+00 5.975E-02 8.510E-02 5.754E-01 0.000E+00 0.000E+00 0.000E+00 0 244 7 2.417E-01 1.919E-01 -4.624E-01 -1.192E-01 1.299E-01 2.374E-01 0.000E+00 0.000E+00 0.000E+00 -1.721E-01 -1.922E-02 -1.630E+00 -1.324E-01 1.105E-01 6.775E-01 0.000E+00 0.000E+00 0.000E+00 -9.765E-02 1.432E-01 -1.164E+00 2.053E-01 -4.028E-03 5.869E-01 0.000E+00 0.000E+00 0.000E+00 8.893E-02 1.947E-01 -5.931E-01 2.141E-01 3.246E-03 3.243E-01 0.000E+00 0.000E+00 0.000E+00 7.854E-03 1.203E-01 -9.796E-01 4.193E-02 5.949E-02 4.592E-01 0.000E+00 0.000E+00 0.000E+00 0 244 8 1.427E-01 1.600E-01 -3.147E-01 -9.599E-02 9.050E-02 1.945E-01 0.000E+00 0.000E+00 0.000E+00 -1.130E-01 5.980E-02 -1.067E+00 -1.054E-01 7.748E-02 4.993E-01 0.000E+00 0.000E+00 0.000E+00 -4.441E-02 1.909E-01 -6.983E-01 1.537E-01 -3.372E-03 4.172E-01 0.000E+00 0.000E+00 0.000E+00 5.656E-02 1.882E-01 -3.591E-01 1.599E-01 9.242E-04 2.407E-01 0.000E+00 0.000E+00 0.000E+00 4.969E-03 1.442E-01 -6.225E-01 2.807E-02 4.107E-02 3.401E-01 0.000E+00 0.000E+00 0.000E+00 0 244 9 8.351E-02 1.197E-01 -2.166E-01 -7.323E-02 6.271E-02 1.478E-01 0.000E+00 0.000E+00 0.000E+00 -7.619E-02 7.428E-02 -7.035E-01 -7.973E-02 5.395E-02 3.563E-01 0.000E+00 0.000E+00 0.000E+00 -1.653E-02 1.773E-01 -4.199E-01 1.108E-01 -2.813E-03 2.874E-01 0.000E+00 0.000E+00 0.000E+00 3.746E-02 1.550E-01 -2.177E-01 1.151E-01 -3.015E-04 1.705E-01 0.000E+00 0.000E+00 0.000E+00 3.032E-03 1.275E-01 -3.989E-01 1.825E-02 2.816E-02 2.422E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 220 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 244 10 4.827E-02 8.473E-02 -1.496E-01 -5.403E-02 4.325E-02 1.077E-01 0.000E+00 0.000E+00 0.000E+00 -5.234E-02 6.595E-02 -4.662E-01 -5.845E-02 3.737E-02 2.492E-01 0.000E+00 0.000E+00 0.000E+00 -2.754E-03 1.450E-01 -2.522E-01 7.795E-02 -2.310E-03 1.942E-01 0.000E+00 0.000E+00 0.000E+00 2.551E-02 1.187E-01 -1.317E-01 8.090E-02 -8.640E-04 1.173E-01 0.000E+00 0.000E+00 0.000E+00 1.756E-03 1.007E-01 -2.567E-01 1.159E-02 1.919E-02 1.684E-01 0.000E+00 0.000E+00 0.000E+00 0 244 0.0000 4.149E+00 -8.358E+00 -1.013E+01 -1.476E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.953E+00 -1.314E+01 -2.902E+01 -1.633E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.165E+00 -1.130E+01 -2.369E+01 2.232E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.837E+00 -8.849E+00 -1.281E+01 2.337E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.423E-01 -1.049E+01 -1.909E+01 3.652E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 244 7.1000 3.448E+00 -8.209E+00 -8.768E+00 -1.241E+00 8.497E-01 -1.318E-01 0.000E+00 0.000E+00 0.000E+00 -2.437E+00 -1.219E+01 -2.441E+01 -1.370E+00 7.001E-01 2.688E+00 0.000E+00 0.000E+00 0.000E+00 -1.840E+00 -1.073E+01 -2.015E+01 1.813E+00 -2.961E-02 2.483E+00 0.000E+00 0.000E+00 0.000E+00 1.544E+00 -8.618E+00 -1.098E+01 1.899E+00 4.127E-02 7.407E-01 0.000E+00 0.000E+00 0.000E+00 1.208E-01 -9.993E+00 -1.621E+01 2.751E-01 3.881E-01 1.459E+00 0.000E+00 0.000E+00 0.000E+00 0 251 0 -4.209E-02 -6.482E-01 -3.908E-01 -2.195E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 8.217E-02 -3.630E-01 -2.618E-01 -2.286E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.235E-02 -2.017E-01 -6.300E-02 1.693E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.108E-01 -6.263E-01 -2.490E-01 1.829E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 5.481E-04 -4.596E-01 -2.408E-01 -2.398E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 251 1 -5.953E-02 -2.315E+00 -7.569E-01 -3.975E-01 -3.403E-04 -1.322E+00 0.000E+00 0.000E+00 0.000E+00 1.680E-01 -1.793E+00 -5.204E-01 -4.159E-01 -4.849E-03 -1.258E+00 0.000E+00 0.000E+00 0.000E+00 1.151E-01 -1.515E+00 -1.787E-01 3.109E-01 -1.521E-02 -1.188E+00 0.000E+00 0.000E+00 0.000E+00 -2.230E-01 -2.295E+00 -5.261E-01 3.384E-01 -1.057E-02 -1.267E+00 0.000E+00 0.000E+00 0.000E+00 2.982E-04 -1.979E+00 -4.952E-01 -4.102E-02 -7.851E-03 -1.258E+00 0.000E+00 0.000E+00 0.000E+00 0 251 2 3.282E-01 -3.481E+00 2.371E+00 -1.400E-01 3.082E-03 -3.081E+00 0.000E+00 0.000E+00 0.000E+00 -1.580E-01 -3.853E+00 1.123E+00 -1.436E-01 -3.876E-03 -2.688E+00 0.000E+00 0.000E+00 0.000E+00 -3.809E-01 -3.983E+00 6.664E-01 1.383E-01 5.049E-02 -2.282E+00 0.000E+00 0.000E+00 0.000E+00 2.888E-01 -3.484E+00 2.399E+00 1.437E-01 6.134E-02 -2.853E+00 0.000E+00 0.000E+00 0.000E+00 1.442E-02 -3.706E+00 1.627E+00 -3.710E-04 2.773E-02 -2.724E+00 0.000E+00 0.000E+00 0.000E+00 0 251 3 9.497E-01 7.190E-02 9.018E+00 -7.243E-02 -7.176E-04 -3.554E+00 0.000E+00 0.000E+00 0.000E+00 -7.954E-01 -1.575E+00 4.848E+00 -4.148E-02 2.711E-02 -2.718E+00 0.000E+00 0.000E+00 0.000E+00 -1.144E+00 -2.185E+00 2.952E+00 2.191E-01 3.128E-01 -2.091E+00 0.000E+00 0.000E+00 0.000E+00 1.252E+00 6.483E-02 8.692E+00 1.727E-01 2.867E-01 -3.322E+00 0.000E+00 0.000E+00 0.000E+00 4.741E-02 -9.243E-01 6.334E+00 6.947E-02 1.571E-01 -2.918E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 221 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 251 4 6.467E-01 8.685E-01 6.715E+00 -2.537E-01 -5.364E-03 -2.633E+00 0.000E+00 0.000E+00 0.000E+00 -5.265E-01 -5.204E-02 3.725E+00 -2.255E-01 2.878E-02 -1.864E+00 0.000E+00 0.000E+00 0.000E+00 -7.113E-01 -3.933E-01 2.225E+00 4.198E-01 2.730E-01 -1.395E+00 0.000E+00 0.000E+00 0.000E+00 7.880E-01 7.273E-01 6.102E+00 3.774E-01 2.385E-01 -2.491E+00 0.000E+00 0.000E+00 0.000E+00 3.178E-02 2.701E-01 4.651E+00 7.949E-02 1.345E-01 -2.091E+00 0.000E+00 0.000E+00 0.000E+00 0 251 5 3.755E-01 5.072E-01 4.095E+00 -2.794E-01 -6.224E-03 -1.771E+00 0.000E+00 0.000E+00 0.000E+00 -2.772E-01 1.185E-01 2.308E+00 -2.583E-01 2.020E-02 -1.175E+00 0.000E+00 0.000E+00 0.000E+00 -3.557E-01 -3.860E-02 1.291E+00 4.122E-01 1.768E-01 -8.378E-01 0.000E+00 0.000E+00 0.000E+00 3.804E-01 3.015E-01 3.405E+00 3.806E-01 1.514E-01 -1.661E+00 0.000E+00 0.000E+00 0.000E+00 1.672E-02 2.081E-01 2.742E+00 6.376E-02 8.621E-02 -1.357E+00 0.000E+00 0.000E+00 0.000E+00 0 251 6 2.218E-01 2.369E-01 2.449E+00 -2.362E-01 -5.841E-03 -1.113E+00 0.000E+00 0.000E+00 0.000E+00 -1.410E-01 8.970E-02 1.387E+00 -2.216E-01 1.256E-02 -6.963E-01 0.000E+00 0.000E+00 0.000E+00 -1.745E-01 1.797E-02 7.140E-01 3.246E-01 1.076E-01 -4.674E-01 0.000E+00 0.000E+00 0.000E+00 1.714E-01 4.058E-02 1.845E+00 3.027E-01 9.107E-02 -1.024E+00 0.000E+00 0.000E+00 0.000E+00 8.875E-03 8.572E-02 1.574E+00 4.235E-02 5.187E-02 -8.213E-01 0.000E+00 0.000E+00 0.000E+00 0 251 7 1.351E-01 9.905E-02 1.463E+00 -1.780E-01 -5.148E-03 -6.842E-01 0.000E+00 0.000E+00 0.000E+00 -7.006E-02 5.185E-02 8.265E-01 -1.684E-01 7.154E-03 -4.069E-01 0.000E+00 0.000E+00 0.000E+00 -8.617E-02 1.818E-02 3.881E-01 2.313E-01 6.395E-02 -2.566E-01 0.000E+00 0.000E+00 0.000E+00 7.139E-02 -6.118E-02 9.927E-01 2.168E-01 5.369E-02 -6.136E-01 0.000E+00 0.000E+00 0.000E+00 4.949E-03 1.935E-02 8.999E-01 2.544E-02 3.028E-02 -4.873E-01 0.000E+00 0.000E+00 0.000E+00 0 251 8 8.450E-02 3.640E-02 8.781E-01 -1.262E-01 -4.364E-03 -4.186E-01 0.000E+00 0.000E+00 0.000E+00 -3.378E-02 2.745E-02 4.927E-01 -1.200E-01 3.641E-03 -2.385E-01 0.000E+00 0.000E+00 0.000E+00 -4.296E-02 1.085E-02 2.096E-01 1.564E-01 3.753E-02 -1.412E-01 0.000E+00 0.000E+00 0.000E+00 2.538E-02 -8.481E-02 5.331E-01 1.471E-01 3.136E-02 -3.651E-01 0.000E+00 0.000E+00 0.000E+00 2.942E-03 -7.874E-03 5.159E-01 1.432E-02 1.731E-02 -2.885E-01 0.000E+00 0.000E+00 0.000E+00 0 251 9 5.386E-02 1.010E-02 5.294E-01 -8.634E-02 -3.620E-03 -2.561E-01 0.000E+00 0.000E+00 0.000E+00 -1.550E-02 1.393E-02 2.944E-01 -8.242E-02 1.514E-03 -1.405E-01 0.000E+00 0.000E+00 0.000E+00 -2.157E-02 5.228E-03 1.129E-01 1.025E-01 2.183E-02 -7.821E-02 0.000E+00 0.000E+00 0.000E+00 5.352E-03 -7.764E-02 2.855E-01 9.665E-02 1.820E-02 -2.168E-01 0.000E+00 0.000E+00 0.000E+00 1.852E-03 -1.578E-02 2.969E-01 7.604E-03 9.665E-03 -1.712E-01 0.000E+00 0.000E+00 0.000E+00 0 251 10 3.473E-02 1.482E-04 3.203E-01 -5.769E-02 -2.935E-03 -1.567E-01 0.000E+00 0.000E+00 0.000E+00 -6.467E-03 6.890E-03 1.762E-01 -5.525E-02 3.190E-04 -8.321E-02 0.000E+00 0.000E+00 0.000E+00 -1.085E-02 2.033E-03 6.053E-02 6.582E-02 1.257E-02 -4.351E-02 0.000E+00 0.000E+00 0.000E+00 -2.483E-03 -6.151E-02 1.519E-01 6.215E-02 1.048E-02 -1.285E-01 0.000E+00 0.000E+00 0.000E+00 1.227E-03 -1.562E-02 1.714E-01 3.757E-03 5.236E-03 -1.018E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 222 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 251 0.0000 2.729E+00 -4.613E+00 2.669E+01 -2.047E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.774E+00 -7.328E+00 1.440E+01 -1.961E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.741E+00 -8.262E+00 8.379E+00 2.550E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.647E+00 -5.556E+00 2.363E+01 2.421E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.310E-01 -6.525E+00 1.808E+01 2.408E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 251 7.1000 2.308E+00 -4.813E+00 2.237E+01 -1.683E+00 -2.327E-02 -6.495E+00 0.000E+00 0.000E+00 0.000E+00 -1.511E+00 -7.172E+00 1.199E+01 -1.620E+00 5.238E-02 -4.557E+00 0.000E+00 0.000E+00 0.000E+00 -2.385E+00 -7.946E+00 7.126E+00 2.062E+00 5.411E-01 -3.358E+00 0.000E+00 0.000E+00 0.000E+00 2.305E+00 -5.446E+00 2.026E+01 1.967E+00 4.743E-01 -5.995E+00 0.000E+00 0.000E+00 0.000E+00 1.131E-01 -6.411E+00 1.528E+01 1.816E-01 2.633E-01 -5.085E+00 0.000E+00 0.000E+00 0.000E+00 0 254 0 -1.046E-01 2.942E-01 -1.118E-01 -2.224E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.417E-02 5.712E-01 7.086E-03 -2.208E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.250E-01 6.658E-01 2.116E-01 1.749E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.177E-02 2.516E-01 3.657E-02 1.724E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.361E-03 4.456E-01 3.574E-02 -2.398E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 254 1 -1.676E-01 -6.049E-01 -2.483E-01 -4.013E-01 -3.586E-04 -1.064E+00 0.000E+00 0.000E+00 0.000E+00 4.916E-02 -1.000E-01 -3.072E-02 -4.011E-01 -7.858E-04 -1.007E+00 0.000E+00 0.000E+00 0.000E+00 2.070E-01 5.552E-02 3.298E-01 3.192E-01 -1.310E-02 -1.004E+00 0.000E+00 0.000E+00 0.000E+00 -1.178E-01 -7.015E-01 4.115E-03 3.189E-01 -1.266E-02 -1.076E+00 0.000E+00 0.000E+00 0.000E+00 -7.307E-03 -3.377E-01 1.369E-02 -4.110E-02 -6.721E-03 -1.038E+00 0.000E+00 0.000E+00 0.000E+00 0 254 2 2.471E-01 -4.158E+00 -1.614E+00 -1.279E-01 1.062E-02 -1.595E+00 0.000E+00 0.000E+00 0.000E+00 -1.763E-01 -4.476E+00 -2.707E+00 -1.452E-01 -9.186E-03 -1.229E+00 0.000E+00 0.000E+00 0.000E+00 -3.001E-01 -4.426E+00 -2.416E+00 1.166E-01 3.586E-02 -1.050E+00 0.000E+00 0.000E+00 0.000E+00 2.935E-01 -3.990E+00 -8.741E-01 1.427E-01 6.317E-02 -1.587E+00 0.000E+00 0.000E+00 0.000E+00 1.512E-02 -4.263E+00 -1.905E+00 -3.435E-03 2.512E-02 -1.365E+00 0.000E+00 0.000E+00 0.000E+00 0 254 3 8.573E-01 -3.565E+00 -3.989E+00 -3.713E-02 3.253E-02 -5.484E-01 0.000E+00 0.000E+00 0.000E+00 -6.720E-01 -5.006E+00 -7.647E+00 -7.644E-02 -1.439E-02 2.365E-01 0.000E+00 0.000E+00 0.000E+00 -1.051E+00 -4.992E+00 -7.221E+00 1.466E-01 2.426E-01 4.234E-01 0.000E+00 0.000E+00 0.000E+00 1.086E+00 -2.988E+00 -2.100E+00 2.056E-01 3.070E-01 -7.408E-01 0.000E+00 0.000E+00 0.000E+00 5.382E-02 -4.139E+00 -5.242E+00 5.968E-02 1.419E-01 -1.560E-01 0.000E+00 0.000E+00 0.000E+00 0 254 4 5.828E-01 -9.243E-01 -2.704E+00 -2.247E-01 2.429E-02 1.258E-01 0.000E+00 0.000E+00 0.000E+00 -4.328E-01 -1.694E+00 -5.320E+00 -2.563E-01 -9.235E-03 8.493E-01 0.000E+00 0.000E+00 0.000E+00 -6.632E-01 -1.608E+00 -4.804E+00 3.588E-01 2.133E-01 8.462E-01 0.000E+00 0.000E+00 0.000E+00 6.575E-01 -6.564E-01 -1.353E+00 4.062E-01 2.557E-01 -1.940E-01 0.000E+00 0.000E+00 0.000E+00 3.884E-02 -1.218E+00 -3.539E+00 7.097E-02 1.212E-01 4.066E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 223 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 254 5 3.166E-01 -7.609E-02 -1.602E+00 -2.592E-01 1.413E-02 3.779E-01 0.000E+00 0.000E+00 0.000E+00 -2.404E-01 -3.732E-01 -3.162E+00 -2.803E-01 -6.362E-03 9.399E-01 0.000E+00 0.000E+00 0.000E+00 -3.190E-01 -2.407E-01 -2.641E+00 3.694E-01 1.382E-01 8.595E-01 0.000E+00 0.000E+00 0.000E+00 3.176E-01 6.132E-03 -7.659E-01 4.010E-01 1.617E-01 7.644E-02 0.000E+00 0.000E+00 0.000E+00 2.362E-02 -1.660E-01 -2.031E+00 5.771E-02 7.711E-02 5.622E-01 0.000E+00 0.000E+00 0.000E+00 0 254 6 1.601E-01 1.423E-01 -9.736E-01 -2.233E-01 7.351E-03 3.889E-01 0.000E+00 0.000E+00 0.000E+00 -1.452E-01 5.026E-02 -1.899E+00 -2.363E-01 -4.939E-03 7.821E-01 0.000E+00 0.000E+00 0.000E+00 -1.353E-01 1.902E-01 -1.442E+00 2.967E-01 8.410E-02 6.833E-01 0.000E+00 0.000E+00 0.000E+00 1.560E-01 1.617E-01 -4.429E-01 3.162E-01 9.671E-02 1.528E-01 0.000E+00 0.000E+00 0.000E+00 1.388E-02 1.411E-01 -1.178E+00 3.832E-02 4.600E-02 5.001E-01 0.000E+00 0.000E+00 0.000E+00 0 254 7 7.609E-02 1.647E-01 -6.060E-01 -1.701E-01 3.245E-03 3.123E-01 0.000E+00 0.000E+00 0.000E+00 -9.429E-02 1.510E-01 -1.160E+00 -1.779E-01 -4.028E-03 5.738E-01 0.000E+00 0.000E+00 0.000E+00 -4.723E-02 2.755E-01 -7.925E-01 2.138E-01 4.995E-02 4.822E-01 0.000E+00 0.000E+00 0.000E+00 8.019E-02 1.679E-01 -2.602E-01 2.254E-01 5.669E-02 1.409E-01 0.000E+00 0.000E+00 0.000E+00 7.872E-03 1.940E-01 -6.949E-01 2.281E-02 2.660E-02 3.757E-01 0.000E+00 0.000E+00 0.000E+00 0 254 8 3.315E-02 1.336E-01 -3.825E-01 -1.216E-01 9.242E-04 2.267E-01 0.000E+00 0.000E+00 0.000E+00 -6.401E-02 1.451E-01 -7.179E-01 -1.261E-01 -3.372E-03 3.967E-01 0.000E+00 0.000E+00 0.000E+00 -8.354E-03 2.461E-01 -4.370E-01 1.457E-01 2.931E-02 3.213E-01 0.000E+00 0.000E+00 0.000E+00 4.328E-02 1.347E-01 -1.534E-01 1.525E-01 3.286E-02 1.068E-01 0.000E+00 0.000E+00 0.000E+00 4.257E-03 1.681E-01 -4.152E-01 1.262E-02 1.504E-02 2.615E-01 0.000E+00 0.000E+00 0.000E+00 0 254 9 1.210E-02 9.586E-02 -2.431E-01 -8.364E-02 -3.015E-04 1.563E-01 0.000E+00 0.000E+00 0.000E+00 -4.436E-02 1.123E-01 -4.478E-01 -8.628E-02 -2.813E-03 2.655E-01 0.000E+00 0.000E+00 0.000E+00 6.807E-03 1.898E-01 -2.406E-01 9.601E-02 1.706E-02 2.074E-01 0.000E+00 0.000E+00 0.000E+00 2.444E-02 9.806E-02 -9.012E-02 9.996E-02 1.890E-02 7.437E-02 0.000E+00 0.000E+00 0.000E+00 2.135E-03 1.264E-01 -2.498E-01 6.513E-03 8.285E-03 1.748E-01 0.000E+00 0.000E+00 0.000E+00 0 254 10 2.376E-03 6.476E-02 -1.548E-01 -5.617E-02 -8.641E-04 1.046E-01 0.000E+00 0.000E+00 0.000E+00 -3.093E-02 7.929E-02 -2.803E-01 -5.768E-02 -2.310E-03 1.741E-01 0.000E+00 0.000E+00 0.000E+00 1.113E-02 1.365E-01 -1.317E-01 6.191E-02 9.843E-03 1.312E-01 0.000E+00 0.000E+00 0.000E+00 1.433E-02 6.793E-02 -5.250E-02 6.418E-02 1.077E-02 4.939E-02 0.000E+00 0.000E+00 0.000E+00 9.351E-04 8.883E-02 -1.509E-01 3.058E-03 4.407E-03 1.140E-01 0.000E+00 0.000E+00 0.000E+00 0 254 0.0000 2.015E+00 -8.433E+00 -1.263E+01 -1.928E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.837E+00 -1.054E+01 -2.336E+01 -2.064E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.175E+00 -9.507E+00 -1.959E+01 2.300E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.503E+00 -7.448E+00 -6.052E+00 2.505E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.488E-01 -8.960E+00 -1.536E+01 2.032E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 224 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 254 7.1000 1.729E+00 -8.186E+00 -1.080E+01 -1.584E+00 4.127E-02 4.877E-01 0.000E+00 0.000E+00 0.000E+00 -1.543E+00 -1.004E+01 -1.986E+01 -1.699E+00 -2.961E-02 2.312E+00 0.000E+00 0.000E+00 0.000E+00 -1.911E+00 -9.250E+00 -1.687E+01 1.856E+00 4.212E-01 2.083E+00 0.000E+00 0.000E+00 0.000E+00 2.170E+00 -7.302E+00 -5.212E+00 2.029E+00 5.043E-01 -4.255E-01 0.000E+00 0.000E+00 0.000E+00 1.255E-01 -8.679E+00 -1.315E+01 1.507E-01 2.349E-01 1.109E+00 0.000E+00 0.000E+00 0.000E+00 0 261 0 -6.281E-02 -5.143E-01 -2.010E-01 -1.957E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 9.677E-02 -1.447E-01 -3.858E-02 -2.011E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.047E-02 -2.451E-01 -3.635E-03 1.507E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -7.488E-02 -4.904E-01 -1.094E-01 1.543E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.674E-03 -3.487E-01 -8.830E-02 -2.295E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 261 1 -9.670E-02 -2.000E+00 -3.998E-01 -3.520E-01 -1.057E-02 -1.278E+00 0.000E+00 0.000E+00 0.000E+00 1.962E-01 -1.326E+00 -9.767E-02 -3.646E-01 -1.521E-02 -1.208E+00 0.000E+00 0.000E+00 0.000E+00 3.674E-02 -1.529E+00 -6.349E-02 2.749E-01 -1.579E-03 -1.191E+00 0.000E+00 0.000E+00 0.000E+00 -1.579E-01 -1.977E+00 -2.635E-01 2.833E-01 1.129E-03 -1.229E+00 0.000E+00 0.000E+00 0.000E+00 -5.432E-03 -1.708E+00 -2.061E-01 -3.961E-02 -6.546E-03 -1.227E+00 0.000E+00 0.000E+00 0.000E+00 0 261 2 4.898E-01 -3.015E+00 2.600E+00 -8.060E-02 6.140E-02 -3.029E+00 0.000E+00 0.000E+00 0.000E+00 -2.350E-01 -3.644E+00 8.120E-01 -1.082E-01 5.055E-02 -2.504E+00 0.000E+00 0.000E+00 0.000E+00 -3.264E-01 -3.583E+00 1.245E+00 6.147E-02 1.160E-03 -2.476E+00 0.000E+00 0.000E+00 0.000E+00 1.316E-01 -3.189E+00 2.378E+00 7.988E-02 5.249E-03 -2.820E+00 0.000E+00 0.000E+00 0.000E+00 1.396E-02 -3.359E+00 1.756E+00 -1.188E-02 2.980E-02 -2.706E+00 0.000E+00 0.000E+00 0.000E+00 0 261 3 1.441E+00 5.053E-01 8.880E+00 2.412E-02 2.865E-01 -3.364E+00 0.000E+00 0.000E+00 0.000E+00 -1.043E+00 -1.949E+00 3.053E+00 -1.563E-02 3.128E-01 -2.316E+00 0.000E+00 0.000E+00 0.000E+00 -8.652E-01 -1.516E+00 4.363E+00 4.740E-02 2.756E-02 -2.461E+00 0.000E+00 0.000E+00 0.000E+00 7.089E-01 3.847E-02 8.056E+00 7.390E-02 4.578E-04 -3.158E+00 0.000E+00 0.000E+00 0.000E+00 5.665E-02 -7.342E-01 6.079E+00 3.246E-02 1.573E-01 -2.823E+00 0.000E+00 0.000E+00 0.000E+00 0 261 4 9.309E-01 1.061E+00 6.245E+00 -1.562E-01 2.386E-01 -2.315E+00 0.000E+00 0.000E+00 0.000E+00 -6.613E-01 -2.768E-01 2.275E+00 -1.705E-01 2.730E-01 -1.405E+00 0.000E+00 0.000E+00 0.000E+00 -5.297E-01 -1.351E-01 2.984E+00 2.589E-01 2.483E-02 -1.615E+00 0.000E+00 0.000E+00 0.000E+00 4.292E-01 6.539E-01 5.391E+00 2.684E-01 -4.128E-03 -2.199E+00 0.000E+00 0.000E+00 0.000E+00 4.254E-02 3.259E-01 4.224E+00 5.017E-02 1.336E-01 -1.883E+00 0.000E+00 0.000E+00 0.000E+00 0 261 5 4.957E-01 5.705E-01 3.520E+00 -1.859E-01 1.514E-01 -1.453E+00 0.000E+00 0.000E+00 0.000E+00 -3.309E-01 1.925E-02 1.316E+00 -1.852E-01 1.768E-01 -7.780E-01 0.000E+00 0.000E+00 0.000E+00 -2.623E-01 -8.575E-03 1.552E+00 2.734E-01 1.464E-02 -9.494E-01 0.000E+00 0.000E+00 0.000E+00 1.894E-01 2.595E-01 2.790E+00 2.730E-01 -4.425E-03 -1.369E+00 0.000E+00 0.000E+00 0.000E+00 2.566E-02 2.129E-01 2.301E+00 4.382E-02 8.483E-02 -1.138E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 225 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 261 6 2.636E-01 2.557E-01 1.937E+00 -1.548E-01 9.105E-02 -8.476E-01 0.000E+00 0.000E+00 0.000E+00 -1.611E-01 4.925E-02 7.274E-01 -1.501E-01 1.076E-01 -4.020E-01 0.000E+00 0.000E+00 0.000E+00 -1.289E-01 -2.267E-02 7.708E-01 2.122E-01 7.402E-03 -5.156E-01 0.000E+00 0.000E+00 0.000E+00 7.456E-02 3.530E-02 1.391E+00 2.090E-01 -3.752E-03 -7.832E-01 0.000E+00 0.000E+00 0.000E+00 1.504E-02 8.240E-02 1.214E+00 2.907E-02 5.063E-02 -6.381E-01 0.000E+00 0.000E+00 0.000E+00 0 261 7 1.430E-01 1.059E-01 1.064E+00 -1.124E-01 5.370E-02 -4.815E-01 0.000E+00 0.000E+00 0.000E+00 -7.762E-02 3.812E-02 3.967E-01 -1.079E-01 6.396E-02 -2.041E-01 0.000E+00 0.000E+00 0.000E+00 -6.478E-02 -3.010E-02 3.773E-01 1.454E-01 3.294E-03 -2.731E-01 0.000E+00 0.000E+00 0.000E+00 2.463E-02 -4.261E-02 6.878E-01 1.424E-01 -2.935E-03 -4.339E-01 0.000E+00 0.000E+00 0.000E+00 8.802E-03 2.032E-02 6.374E-01 1.690E-02 2.949E-02 -3.491E-01 0.000E+00 0.000E+00 0.000E+00 0 261 8 7.914E-02 4.063E-02 5.869E-01 -7.595E-02 3.136E-02 -2.717E-01 0.000E+00 0.000E+00 0.000E+00 -3.693E-02 2.492E-02 2.157E-01 -7.261E-02 3.753E-02 -1.037E-01 0.000E+00 0.000E+00 0.000E+00 -3.337E-02 -2.728E-02 1.831E-01 9.355E-02 1.180E-03 -1.442E-01 0.000E+00 0.000E+00 0.000E+00 4.522E-03 -5.629E-02 3.384E-01 9.132E-02 -2.200E-03 -2.380E-01 0.000E+00 0.000E+00 0.000E+00 5.190E-03 -2.656E-03 3.353E-01 9.080E-03 1.695E-02 -1.902E-01 0.000E+00 0.000E+00 0.000E+00 0 261 9 4.452E-02 1.375E-02 3.246E-01 -4.922E-02 1.820E-02 -1.531E-01 0.000E+00 0.000E+00 0.000E+00 -1.718E-02 1.546E-02 1.172E-01 -4.699E-02 2.183E-02 -5.289E-02 0.000E+00 0.000E+00 0.000E+00 -1.757E-02 -2.089E-02 8.806E-02 5.796E-02 2.050E-04 -7.613E-02 0.000E+00 0.000E+00 0.000E+00 -2.545E-03 -4.814E-02 1.654E-01 5.648E-02 -1.593E-03 -1.300E-01 0.000E+00 0.000E+00 0.000E+00 3.090E-03 -8.672E-03 1.768E-01 4.558E-03 9.633E-03 -1.036E-01 0.000E+00 0.000E+00 0.000E+00 0 261 10 2.532E-02 3.363E-03 1.797E-01 -3.102E-02 1.048E-02 -8.612E-02 0.000E+00 0.000E+00 0.000E+00 -7.677E-03 9.426E-03 6.370E-02 -2.963E-02 1.258E-02 -2.701E-02 0.000E+00 0.000E+00 0.000E+00 -9.412E-03 -1.460E-02 4.178E-02 3.501E-02 -1.883E-04 -4.019E-02 0.000E+00 0.000E+00 0.000E+00 -4.228E-03 -3.545E-02 7.991E-02 3.408E-02 -1.123E-03 -7.069E-02 0.000E+00 0.000E+00 0.000E+00 1.856E-03 -8.459E-03 9.328E-02 2.112E-03 5.414E-03 -5.645E-02 0.000E+00 0.000E+00 0.000E+00 0 261 0.0000 3.753E+00 -2.973E+00 2.474E+01 -1.370E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.278E+00 -7.184E+00 8.841E+00 -1.452E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.171E+00 -7.131E+00 1.154E+01 1.611E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.323E+00 -4.852E+00 2.090E+01 1.666E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.647E-01 -5.528E+00 1.652E+01 1.137E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 261 7.1000 3.239E+00 -3.267E+00 2.119E+01 -1.149E+00 4.743E-01 -5.455E+00 0.000E+00 0.000E+00 0.000E+00 -1.959E+00 -6.952E+00 7.552E+00 -1.233E+00 5.412E-01 -3.312E+00 0.000E+00 0.000E+00 0.000E+00 -1.901E+00 -6.838E+00 1.006E+01 1.316E+00 3.892E-02 -3.752E+00 0.000E+00 0.000E+00 0.000E+00 1.159E+00 -4.787E+00 1.821E+01 1.372E+00 -1.205E-02 -5.075E+00 0.000E+00 0.000E+00 0.000E+00 1.381E-01 -5.458E+00 1.426E+01 7.627E-02 2.612E-01 -4.401E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 226 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 264 0 -1.160E-01 1.019E-01 -2.762E-02 -1.960E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.841E-02 4.638E-01 1.250E-01 -1.959E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 8.633E-02 5.109E-01 2.343E-01 1.500E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.598E-02 2.702E-01 1.339E-01 1.499E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.770E-03 3.367E-01 1.165E-01 -2.301E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 264 1 -1.907E-01 -8.716E-01 -6.879E-02 -3.528E-01 -1.266E-02 -1.126E+00 0.000E+00 0.000E+00 0.000E+00 9.299E-02 -2.106E-01 2.157E-01 -3.561E-01 -1.310E-02 -1.060E+00 0.000E+00 0.000E+00 0.000E+00 1.370E-01 -1.443E-01 3.927E-01 2.728E-01 -4.196E-04 -1.053E+00 0.000E+00 0.000E+00 0.000E+00 -5.212E-02 -5.850E-01 2.029E-01 2.750E-01 -1.221E-04 -1.088E+00 0.000E+00 0.000E+00 0.000E+00 -3.187E-03 -4.529E-01 1.856E-01 -4.029E-02 -6.580E-03 -1.081E+00 0.000E+00 0.000E+00 0.000E+00 0 264 2 3.852E-01 -3.775E+00 -7.823E-01 -8.774E-02 6.317E-02 -1.781E+00 0.000E+00 0.000E+00 0.000E+00 -2.546E-01 -4.320E+00 -2.371E+00 -9.530E-02 3.586E-02 -1.283E+00 0.000E+00 0.000E+00 0.000E+00 -2.285E-01 -4.243E+00 -2.141E+00 6.370E-02 -7.263E-03 -1.108E+00 0.000E+00 0.000E+00 0.000E+00 1.676E-01 -3.911E+00 -1.154E+00 6.875E-02 9.613E-03 -1.432E+00 0.000E+00 0.000E+00 0.000E+00 1.314E-02 -4.067E+00 -1.622E+00 -1.266E-02 2.516E-02 -1.399E+00 0.000E+00 0.000E+00 0.000E+00 0 264 3 1.277E+00 -2.541E+00 -1.909E+00 1.207E-02 3.070E-01 -7.343E-01 0.000E+00 0.000E+00 0.000E+00 -9.381E-01 -4.727E+00 -7.108E+00 7.065E-03 2.426E-01 2.652E-01 0.000E+00 0.000E+00 0.000E+00 -7.471E-01 -4.503E+00 -6.550E+00 5.626E-02 -1.155E-02 4.374E-01 0.000E+00 0.000E+00 0.000E+00 6.337E-01 -3.142E+00 -3.309E+00 5.962E-02 2.704E-02 -2.224E-01 0.000E+00 0.000E+00 0.000E+00 4.296E-02 -3.742E+00 -4.750E+00 3.374E-02 1.408E-01 -6.131E-02 0.000E+00 0.000E+00 0.000E+00 0 264 4 8.290E-01 -2.562E-01 -1.181E+00 -1.546E-01 2.557E-01 -4.659E-02 0.000E+00 0.000E+00 0.000E+00 -5.780E-01 -1.409E+00 -4.719E+00 -1.670E-01 2.133E-01 8.198E-01 0.000E+00 0.000E+00 0.000E+00 -4.612E-01 -1.210E+00 -4.170E+00 2.563E-01 -5.825E-03 8.020E-01 0.000E+00 0.000E+00 0.000E+00 3.702E-01 -5.476E-01 -2.061E+00 2.646E-01 1.731E-02 2.483E-01 0.000E+00 0.000E+00 0.000E+00 2.806E-02 -8.676E-01 -3.061E+00 4.985E-02 1.197E-01 4.589E-01 0.000E+00 0.000E+00 0.000E+00 0 264 5 4.288E-01 2.655E-01 -6.548E-01 -1.789E-01 1.617E-01 2.032E-01 0.000E+00 0.000E+00 0.000E+00 -2.943E-01 -1.829E-01 -2.617E+00 -1.915E-01 1.382E-01 8.460E-01 0.000E+00 0.000E+00 0.000E+00 -2.116E-01 -1.592E-02 -2.143E+00 2.663E-01 -3.001E-03 7.604E-01 0.000E+00 0.000E+00 0.000E+00 1.736E-01 1.861E-01 -1.061E+00 2.747E-01 7.893E-03 3.621E-01 0.000E+00 0.000E+00 0.000E+00 1.505E-02 5.413E-02 -1.640E+00 4.266E-02 7.580E-02 5.460E-01 0.000E+00 0.000E+00 0.000E+00 0 264 6 2.105E-01 2.888E-01 -3.884E-01 -1.484E-01 9.671E-02 2.354E-01 0.000E+00 0.000E+00 0.000E+00 -1.572E-01 1.391E-01 -1.464E+00 -1.574E-01 8.410E-02 6.602E-01 0.000E+00 0.000E+00 0.000E+00 -8.242E-02 2.741E-01 -1.089E+00 2.059E-01 -1.981E-03 5.671E-01 0.000E+00 0.000E+00 0.000E+00 8.705E-02 2.983E-01 -5.483E-01 2.119E-01 2.883E-03 3.122E-01 0.000E+00 0.000E+00 0.000E+00 8.055E-03 2.436E-01 -8.875E-01 2.798E-02 4.517E-02 4.462E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 227 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 264 7 9.993E-02 2.139E-01 -2.404E-01 -1.080E-01 5.668E-02 1.887E-01 0.000E+00 0.000E+00 0.000E+00 -8.915E-02 1.776E-01 -8.344E-01 -1.136E-01 4.995E-02 4.534E-01 0.000E+00 0.000E+00 0.000E+00 -2.416E-02 2.805E-01 -5.565E-01 1.411E-01 -1.481E-03 3.745E-01 0.000E+00 0.000E+00 0.000E+00 4.778E-02 2.506E-01 -2.868E-01 1.449E-01 5.587E-04 2.209E-01 0.000E+00 0.000E+00 0.000E+00 4.265E-03 2.263E-01 -4.896E-01 1.608E-02 2.625E-02 3.112E-01 0.000E+00 0.000E+00 0.000E+00 0 264 8 4.565E-02 1.402E-01 -1.510E-01 -7.324E-02 3.286E-02 1.324E-01 0.000E+00 0.000E+00 0.000E+00 -5.294E-02 1.421E-01 -4.815E-01 -7.661E-02 2.931E-02 2.929E-01 0.000E+00 0.000E+00 0.000E+00 -7.591E-04 2.167E-01 -2.849E-01 9.083E-02 -1.156E-03 2.329E-01 0.000E+00 0.000E+00 0.000E+00 2.810E-02 1.786E-01 -1.506E-01 9.307E-02 -3.780E-04 1.430E-01 0.000E+00 0.000E+00 0.000E+00 2.175E-03 1.666E-01 -2.736E-01 8.512E-03 1.505E-02 2.016E-01 0.000E+00 0.000E+00 0.000E+00 0 264 9 1.959E-02 8.675E-02 -9.497E-02 -4.767E-02 1.890E-02 8.707E-02 0.000E+00 0.000E+00 0.000E+00 -3.239E-02 9.834E-02 -2.798E-01 -4.960E-02 1.706E-02 1.829E-01 0.000E+00 0.000E+00 0.000E+00 6.923E-03 1.505E-01 -1.452E-01 5.635E-02 -8.891E-04 1.400E-01 0.000E+00 0.000E+00 0.000E+00 1.727E-02 1.185E-01 -7.870E-02 5.764E-02 -6.588E-04 8.828E-02 0.000E+00 0.000E+00 0.000E+00 1.027E-03 1.117E-01 -1.539E-01 4.181E-03 8.536E-03 1.255E-01 0.000E+00 0.000E+00 0.000E+00 0 264 10 7.448E-03 5.188E-02 -5.938E-02 -3.019E-02 1.077E-02 5.517E-02 0.000E+00 0.000E+00 0.000E+00 -2.015E-02 6.350E-02 -1.630E-01 -3.126E-02 9.843E-03 1.118E-01 0.000E+00 0.000E+00 0.000E+00 8.098E-03 9.889E-02 -7.327E-02 3.410E-02 -6.628E-04 8.239E-02 0.000E+00 0.000E+00 0.000E+00 1.085E-02 7.550E-02 -4.070E-02 3.482E-02 -6.513E-04 5.295E-02 0.000E+00 0.000E+00 0.000E+00 4.163E-04 7.130E-02 -8.676E-02 1.867E-03 4.785E-03 7.618E-02 0.000E+00 0.000E+00 0.000E+00 0 264 0.0000 2.997E+00 -6.296E+00 -5.558E+00 -1.365E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.285E+00 -9.766E+00 -1.970E+01 -1.427E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.517E+00 -8.585E+00 -1.653E+01 1.594E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.468E+00 -6.807E+00 -8.353E+00 1.635E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.102E-01 -7.919E+00 -1.266E+01 1.089E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 264 7.1000 2.592E+00 -6.317E+00 -4.790E+00 -1.151E+00 5.043E-01 -2.025E-01 0.000E+00 0.000E+00 0.000E+00 -1.961E+00 -9.367E+00 -1.692E+01 -1.201E+00 4.212E-01 1.840E+00 0.000E+00 0.000E+00 0.000E+00 -1.344E+00 -8.418E+00 -1.437E+01 1.305E+00 -1.541E-02 1.648E+00 0.000E+00 0.000E+00 0.000E+00 1.274E+00 -6.803E+00 -7.262E+00 1.339E+00 2.584E-02 3.906E-01 0.000E+00 0.000E+00 0.000E+00 9.524E-02 -7.771E+00 -1.094E+01 7.286E-02 2.328E-01 9.290E-01 0.000E+00 0.000E+00 0.000E+00 0 271 0 -3.252E-03 -3.233E-01 -3.782E-02 -1.180E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 5.682E-02 -1.836E-01 2.272E-02 -1.229E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.128E-02 -1.296E-01 6.561E-02 7.364E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.761E-02 -3.380E-01 -2.236E-02 8.110E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.860E-03 -2.436E-01 7.154E-03 -2.154E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 228 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 271 1 1.288E-02 -1.579E+00 -9.274E-02 -2.149E-01 1.118E-03 -1.233E+00 0.000E+00 0.000E+00 0.000E+00 1.270E-01 -1.318E+00 2.675E-02 -2.261E-01 -1.591E-03 -1.205E+00 0.000E+00 0.000E+00 0.000E+00 2.087E-02 -1.240E+00 7.659E-02 1.351E-01 -7.893E-03 -1.159E+00 0.000E+00 0.000E+00 0.000E+00 -1.483E-01 -1.629E+00 -9.815E-02 1.518E-01 -5.108E-03 -1.191E+00 0.000E+00 0.000E+00 0.000E+00 3.222E-03 -1.441E+00 -2.167E-02 -3.854E-02 -3.433E-03 -1.197E+00 0.000E+00 0.000E+00 0.000E+00 0 271 2 3.534E-01 -2.672E+00 2.599E+00 -2.588E-02 5.256E-03 -2.988E+00 0.000E+00 0.000E+00 0.000E+00 -1.383E-01 -3.144E+00 1.433E+00 -2.563E-02 1.228E-03 -2.627E+00 0.000E+00 0.000E+00 0.000E+00 -4.042E-01 -3.403E+00 7.944E-01 2.299E-02 5.237E-02 -2.266E+00 0.000E+00 0.000E+00 0.000E+00 2.757E-01 -2.752E+00 2.410E+00 2.260E-02 5.951E-02 -2.799E+00 0.000E+00 0.000E+00 0.000E+00 1.691E-02 -2.998E+00 1.798E+00 -1.474E-03 2.961E-02 -2.669E+00 0.000E+00 0.000E+00 0.000E+00 0 271 3 8.682E-01 4.089E-01 8.215E+00 -3.653E-02 3.344E-04 -3.251E+00 0.000E+00 0.000E+00 0.000E+00 -6.741E-01 -1.070E+00 4.554E+00 -6.749E-03 2.728E-02 -2.453E+00 0.000E+00 0.000E+00 0.000E+00 -1.022E+00 -1.684E+00 2.720E+00 1.649E-01 2.760E-01 -1.887E+00 0.000E+00 0.000E+00 0.000E+00 1.081E+00 3.242E-01 7.719E+00 1.203E-01 2.501E-01 -3.067E+00 0.000E+00 0.000E+00 0.000E+00 4.650E-02 -5.222E-01 5.763E+00 6.047E-02 1.390E-01 -2.662E+00 0.000E+00 0.000E+00 0.000E+00 0 271 4 5.266E-01 8.809E-01 5.488E+00 -2.383E-01 -4.094E-03 -2.074E+00 0.000E+00 0.000E+00 0.000E+00 -3.913E-01 1.878E-01 3.122E+00 -2.149E-01 2.491E-02 -1.430E+00 0.000E+00 0.000E+00 0.000E+00 -5.603E-01 -1.025E-01 1.836E+00 3.585E-01 2.136E-01 -1.061E+00 0.000E+00 0.000E+00 0.000E+00 5.992E-01 7.199E-01 4.879E+00 3.234E-01 1.836E-01 -1.976E+00 0.000E+00 0.000E+00 0.000E+00 2.930E-02 4.072E-01 3.798E+00 5.719E-02 1.052E-01 -1.632E+00 0.000E+00 0.000E+00 0.000E+00 0 271 5 2.614E-01 4.277E-01 2.862E+00 -2.406E-01 -4.448E-03 -1.208E+00 0.000E+00 0.000E+00 0.000E+00 -1.662E-01 2.155E-01 1.648E+00 -2.259E-01 1.461E-02 -7.711E-01 0.000E+00 0.000E+00 0.000E+00 -2.319E-01 1.109E-01 8.984E-01 3.202E-01 1.148E-01 -5.432E-01 0.000E+00 0.000E+00 0.000E+00 2.334E-01 2.530E-01 2.307E+00 2.982E-01 9.597E-02 -1.141E+00 0.000E+00 0.000E+00 0.000E+00 1.413E-02 2.417E-01 1.905E+00 3.796E-02 5.571E-02 -9.124E-01 0.000E+00 0.000E+00 0.000E+00 0 271 6 1.315E-01 1.682E-01 1.448E+00 -1.769E-01 -3.761E-03 -6.521E-01 0.000E+00 0.000E+00 0.000E+00 -6.606E-02 1.240E-01 8.336E-01 -1.682E-01 7.381E-03 -3.856E-01 0.000E+00 0.000E+00 0.000E+00 -9.167E-02 8.893E-02 4.099E-01 2.196E-01 5.685E-02 -2.528E-01 0.000E+00 0.000E+00 0.000E+00 7.994E-02 3.045E-02 1.040E+00 2.066E-01 4.652E-02 -6.035E-01 0.000E+00 0.000E+00 0.000E+00 6.874E-03 9.635E-02 9.177E-01 2.027E-02 2.705E-02 -4.708E-01 0.000E+00 0.000E+00 0.000E+00 0 271 7 6.850E-02 5.977E-02 7.317E-01 -1.148E-01 -2.946E-03 -3.412E-01 0.000E+00 0.000E+00 0.000E+00 -2.465E-02 6.353E-02 4.174E-01 -1.100E-01 3.289E-03 -1.877E-01 0.000E+00 0.000E+00 0.000E+00 -3.575E-02 5.264E-02 1.822E-01 1.347E-01 2.720E-02 -1.134E-01 0.000E+00 0.000E+00 0.000E+00 2.241E-02 -3.457E-02 4.633E-01 1.274E-01 2.185E-02 -3.077E-01 0.000E+00 0.000E+00 0.000E+00 3.544E-03 3.125E-02 4.391E-01 9.314E-03 1.253E-02 -2.357E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 229 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 271 8 3.672E-02 1.883E-02 3.706E-01 -7.001E-02 -2.198E-03 -1.768E-01 0.000E+00 0.000E+00 0.000E+00 -8.124E-03 3.163E-02 2.084E-01 -6.740E-02 1.185E-03 -9.085E-02 0.000E+00 0.000E+00 0.000E+00 -1.365E-02 2.879E-02 7.949E-02 7.802E-02 1.267E-02 -5.020E-02 0.000E+00 0.000E+00 0.000E+00 2.718E-03 -4.131E-02 2.042E-01 7.410E-02 9.992E-03 -1.549E-01 0.000E+00 0.000E+00 0.000E+00 1.951E-03 7.020E-03 2.099E-01 3.674E-03 5.523E-03 -1.170E-01 0.000E+00 0.000E+00 0.000E+00 0 271 9 2.004E-02 4.562E-03 1.880E-01 -4.111E-02 -1.594E-03 -9.125E-02 0.000E+00 0.000E+00 0.000E+00 -1.894E-03 1.570E-02 1.037E-01 -3.972E-02 2.041E-04 -4.386E-02 0.000E+00 0.000E+00 0.000E+00 -4.974E-03 1.534E-02 3.396E-02 4.364E-02 5.713E-03 -2.197E-02 0.000E+00 0.000E+00 0.000E+00 -2.851E-03 -3.215E-02 8.852E-02 4.157E-02 4.416E-03 -7.744E-02 0.000E+00 0.000E+00 0.000E+00 1.126E-03 -5.938E-04 1.002E-01 1.095E-03 2.249E-03 -5.788E-02 0.000E+00 0.000E+00 0.000E+00 0 271 10 1.104E-02 1.652E-04 9.518E-02 -2.352E-02 -1.124E-03 -4.685E-02 0.000E+00 0.000E+00 0.000E+00 1.985E-04 7.830E-03 5.139E-02 -2.280E-02 -1.887E-04 -2.105E-02 0.000E+00 0.000E+00 0.000E+00 -1.634E-03 8.114E-03 1.408E-02 2.381E-02 2.460E-03 -9.441E-03 0.000E+00 0.000E+00 0.000E+00 -3.541E-03 -2.155E-02 3.738E-02 2.274E-02 1.852E-03 -3.844E-02 0.000E+00 0.000E+00 0.000E+00 6.715E-04 -2.203E-03 4.754E-02 5.595E-05 7.860E-04 -2.849E-02 0.000E+00 0.000E+00 0.000E+00 0 271 0.0000 2.287E+00 -2.606E+00 2.187E+01 -1.300E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.287E+00 -5.070E+00 1.242E+01 -1.230E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.324E+00 -6.254E+00 7.111E+00 1.575E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.072E+00 -3.521E+00 1.903E+01 1.470E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.261E-01 -4.424E+00 1.496E+01 1.285E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 271 7.1000 2.011E+00 -2.802E+00 1.906E+01 -1.064E+00 -1.211E-02 -4.730E+00 0.000E+00 0.000E+00 0.000E+00 -1.129E+00 -5.037E+00 1.083E+01 -1.008E+00 3.885E-02 -3.352E+00 0.000E+00 0.000E+00 0.000E+00 -2.084E+00 -6.103E+00 6.275E+00 1.278E+00 3.577E-01 -2.533E+00 0.000E+00 0.000E+00 0.000E+00 1.849E+00 -3.525E+00 1.681E+01 1.194E+00 3.101E-01 -4.429E+00 0.000E+00 0.000E+00 0.000E+00 1.112E-01 -4.418E+00 1.312E+01 9.980E-02 1.749E-01 -3.751E+00 0.000E+00 0.000E+00 0.000E+00 0 274 0 -6.169E-02 1.636E-01 8.819E-02 -1.200E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.411E-03 2.992E-01 1.435E-01 -1.171E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.838E-02 3.422E-01 2.142E-01 7.869E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.755E-02 1.388E-01 1.312E-01 7.423E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.821E-03 2.359E-01 1.443E-01 -2.104E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 274 1 -9.313E-02 -6.807E-01 1.619E-01 -2.189E-01 -1.221E-04 -1.118E+00 0.000E+00 0.000E+00 0.000E+00 1.510E-02 -4.289E-01 2.707E-01 -2.155E-01 -4.196E-04 -1.094E+00 0.000E+00 0.000E+00 0.000E+00 1.065E-01 -3.715E-01 3.704E-01 1.437E-01 -6.786E-03 -1.081E+00 0.000E+00 0.000E+00 0.000E+00 -5.614E-02 -7.497E-01 2.064E-01 1.386E-01 -6.107E-03 -1.110E+00 0.000E+00 0.000E+00 0.000E+00 -6.915E-03 -5.577E-01 2.524E-01 -3.802E-02 -3.370E-03 -1.101E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 230 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 274 2 2.584E-01 -3.699E+00 -1.063E+00 -1.949E-02 9.613E-03 -1.624E+00 0.000E+00 0.000E+00 0.000E+00 -1.738E-01 -4.116E+00 -2.087E+00 -3.206E-02 -7.263E-03 -1.286E+00 0.000E+00 0.000E+00 0.000E+00 -3.230E-01 -4.139E+00 -2.016E+00 6.332E-03 3.851E-02 -1.116E+00 0.000E+00 0.000E+00 0.000E+00 2.844E-01 -3.555E+00 -5.751E-01 2.520E-02 6.241E-02 -1.619E+00 0.000E+00 0.000E+00 0.000E+00 1.101E-02 -3.878E+00 -1.436E+00 -4.995E-03 2.579E-02 -1.410E+00 0.000E+00 0.000E+00 0.000E+00 0 274 3 7.463E-01 -2.879E+00 -3.196E+00 -1.025E-02 2.702E-02 -3.569E-01 0.000E+00 0.000E+00 0.000E+00 -6.054E-01 -4.173E+00 -6.409E+00 -4.133E-02 -1.155E-02 3.947E-01 0.000E+00 0.000E+00 0.000E+00 -9.218E-01 -4.178E+00 -6.111E+00 1.044E-01 2.149E-01 5.487E-01 0.000E+00 0.000E+00 0.000E+00 9.521E-01 -2.392E+00 -1.651E+00 1.510E-01 2.685E-01 -5.706E-01 0.000E+00 0.000E+00 0.000E+00 4.232E-02 -3.406E+00 -4.342E+00 5.095E-02 1.247E-01 5.416E-03 0.000E+00 0.000E+00 0.000E+00 0 274 4 4.347E-01 -3.971E-01 -1.996E+00 -2.187E-01 1.731E-02 2.558E-01 0.000E+00 0.000E+00 0.000E+00 -3.576E-01 -9.680E-01 -4.067E+00 -2.402E-01 -5.825E-03 8.631E-01 0.000E+00 0.000E+00 0.000E+00 -4.976E-01 -8.924E-01 -3.675E+00 3.135E-01 1.674E-01 8.274E-01 0.000E+00 0.000E+00 0.000E+00 5.196E-01 -2.073E-01 -9.687E-01 3.458E-01 1.972E-01 -4.343E-02 0.000E+00 0.000E+00 0.000E+00 2.741E-02 -6.136E-01 -2.670E+00 5.011E-02 9.411E-02 4.754E-01 0.000E+00 0.000E+00 0.000E+00 0 274 5 1.873E-01 2.183E-01 -1.047E+00 -2.291E-01 7.892E-03 3.854E-01 0.000E+00 0.000E+00 0.000E+00 -1.748E-01 6.989E-02 -2.106E+00 -2.411E-01 -3.002E-03 7.982E-01 0.000E+00 0.000E+00 0.000E+00 -1.849E-01 1.795E-01 -1.731E+00 2.934E-01 9.010E-02 7.047E-01 0.000E+00 0.000E+00 0.000E+00 2.124E-01 2.561E-01 -4.828E-01 3.114E-01 1.025E-01 1.343E-01 0.000E+00 0.000E+00 0.000E+00 1.379E-02 1.847E-01 -1.333E+00 3.364E-02 4.947E-02 5.045E-01 0.000E+00 0.000E+00 0.000E+00 0 274 6 6.946E-02 2.572E-01 -5.659E-01 -1.709E-01 2.883E-03 3.231E-01 0.000E+00 0.000E+00 0.000E+00 -9.446E-02 2.460E-01 -1.101E+00 -1.768E-01 -1.981E-03 5.750E-01 0.000E+00 0.000E+00 0.000E+00 -5.115E-02 3.490E-01 -8.010E-01 2.050E-01 4.456E-02 4.850E-01 0.000E+00 0.000E+00 0.000E+00 8.877E-02 2.598E-01 -2.455E-01 2.139E-01 4.929E-02 1.493E-01 0.000E+00 0.000E+00 0.000E+00 6.409E-03 2.813E-01 -6.708E-01 1.780E-02 2.378E-02 3.819E-01 0.000E+00 0.000E+00 0.000E+00 0 274 7 2.012E-02 1.860E-01 -3.145E-01 -1.120E-01 5.587E-04 2.215E-01 0.000E+00 0.000E+00 0.000E+00 -5.566E-02 2.070E-01 -5.880E-01 -1.148E-01 -1.481E-03 3.668E-01 0.000E+00 0.000E+00 0.000E+00 -3.237E-03 2.874E-01 -3.726E-01 1.271E-01 2.131E-02 2.973E-01 0.000E+00 0.000E+00 0.000E+00 4.009E-02 1.855E-01 -1.264E-01 1.313E-01 2.293E-02 1.107E-01 0.000E+00 0.000E+00 0.000E+00 2.671E-03 2.188E-01 -3.449E-01 7.928E-03 1.088E-02 2.480E-01 0.000E+00 0.000E+00 0.000E+00 0 274 8 1.629E-03 1.169E-01 -1.770E-01 -6.874E-02 -3.780E-04 1.388E-01 0.000E+00 0.000E+00 0.000E+00 -3.420E-02 1.387E-01 -3.183E-01 -6.998E-02 -1.156E-03 2.203E-01 0.000E+00 0.000E+00 0.000E+00 1.025E-02 1.956E-01 -1.732E-01 7.424E-02 9.928E-03 1.717E-01 0.000E+00 0.000E+00 0.000E+00 1.963E-02 1.184E-01 -6.482E-02 7.611E-02 1.034E-02 7.093E-02 0.000E+00 0.000E+00 0.000E+00 8.788E-04 1.440E-01 -1.797E-01 2.906E-03 4.712E-03 1.497E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 231 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 274 9 -4.029E-03 6.878E-02 -1.000E-01 -4.060E-02 -6.588E-04 8.292E-02 0.000E+00 0.000E+00 0.000E+00 -2.128E-02 8.470E-02 -1.734E-01 -4.112E-02 -8.891E-04 1.279E-01 0.000E+00 0.000E+00 0.000E+00 1.147E-02 1.226E-01 -7.980E-02 4.182E-02 4.483E-03 9.592E-02 0.000E+00 0.000E+00 0.000E+00 1.029E-02 7.168E-02 -3.278E-02 4.259E-02 4.478E-03 4.235E-02 0.000E+00 0.000E+00 0.000E+00 8.920E-05 8.792E-02 -9.422E-02 6.722E-04 1.868E-03 8.678E-02 0.000E+00 0.000E+00 0.000E+00 0 274 10 -4.795E-03 3.899E-02 -5.634E-02 -2.336E-02 -6.513E-04 4.809E-02 0.000E+00 0.000E+00 0.000E+00 -1.321E-02 4.918E-02 -9.458E-02 -2.355E-02 -6.628E-04 7.259E-02 0.000E+00 0.000E+00 0.000E+00 9.130E-03 7.343E-02 -3.607E-02 2.296E-02 1.938E-03 5.236E-02 0.000E+00 0.000E+00 0.000E+00 5.671E-03 4.207E-02 -1.624E-02 2.325E-02 1.818E-03 2.427E-02 0.000E+00 0.000E+00 0.000E+00 -2.054E-04 5.151E-02 -4.942E-02 -1.753E-04 6.162E-04 4.901E-02 0.000E+00 0.000E+00 0.000E+00 0 274 0.0000 1.554E+00 -6.606E+00 -8.266E+00 -1.232E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.520E+00 -8.591E+00 -1.653E+01 -1.313E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.776E+00 -8.032E+00 -1.441E+01 1.411E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.059E+00 -5.831E+00 -3.826E+00 1.533E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 9.363E-02 -7.251E+00 -1.072E+01 9.976E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 274 7.1000 1.388E+00 -6.535E+00 -7.147E+00 -1.006E+00 2.583E-02 3.030E-01 0.000E+00 0.000E+00 0.000E+00 -1.317E+00 -8.354E+00 -1.435E+01 -1.077E+00 -1.541E-02 1.603E+00 0.000E+00 0.000E+00 0.000E+00 -1.612E+00 -7.943E+00 -1.268E+01 1.139E+00 2.792E-01 1.429E+00 0.000E+00 0.000E+00 0.000E+00 1.828E+00 -5.832E+00 -3.322E+00 1.245E+00 3.307E-01 -3.784E-01 0.000E+00 0.000E+00 0.000E+00 8.165E-02 -7.156E+00 -9.350E+00 7.537E-02 1.553E-01 7.362E-01 0.000E+00 0.000E+00 0.000E+00 0 281 0 -1.417E-02 -2.133E-01 3.108E-02 -9.579E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 5.657E-02 -4.731E-02 1.009E-01 -9.878E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.209E-03 -1.135E-01 7.211E-02 6.093E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.468E-02 -2.239E-01 2.619E-02 6.292E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.940E-05 -1.495E-01 5.752E-02 -1.768E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 281 1 -7.668E-03 -1.301E+00 4.248E-02 -1.728E-01 -5.104E-03 -1.196E+00 0.000E+00 0.000E+00 0.000E+00 1.266E-01 -9.929E-01 1.823E-01 -1.811E-01 -7.885E-03 -1.167E+00 0.000E+00 0.000E+00 0.000E+00 -1.575E-02 -1.138E+00 9.183E-02 1.109E-01 -5.798E-04 -1.146E+00 0.000E+00 0.000E+00 0.000E+00 -1.049E-01 -1.343E+00 -4.170E-04 1.164E-01 9.995E-04 -1.162E+00 0.000E+00 0.000E+00 0.000E+00 -4.219E-04 -1.194E+00 7.902E-02 -3.166E-02 -3.139E-03 -1.168E+00 0.000E+00 0.000E+00 0.000E+00 0 281 2 4.963E-01 -2.238E+00 2.631E+00 2.879E-02 5.956E-02 -2.936E+00 0.000E+00 0.000E+00 0.000E+00 -2.298E-01 -2.996E+00 9.688E-01 6.741E-03 5.243E-02 -2.439E+00 0.000E+00 0.000E+00 0.000E+00 -3.285E-01 -2.937E+00 1.217E+00 -4.031E-02 2.441E-03 -2.436E+00 0.000E+00 0.000E+00 0.000E+00 1.296E-01 -2.457E+00 2.265E+00 -2.563E-02 4.547E-03 -2.768E+00 0.000E+00 0.000E+00 0.000E+00 1.610E-02 -2.658E+00 1.768E+00 -7.614E-03 2.992E-02 -2.644E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 232 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 281 3 1.276E+00 7.811E-01 7.915E+00 5.711E-02 2.499E-01 -3.062E+00 0.000E+00 0.000E+00 0.000E+00 -9.084E-01 -1.420E+00 2.833E+00 2.691E-02 2.760E-01 -2.036E+00 0.000E+00 0.000E+00 0.000E+00 -7.612E-01 -1.066E+00 3.842E+00 9.853E-03 2.512E-02 -2.219E+00 0.000E+00 0.000E+00 0.000E+00 6.109E-01 3.168E-01 7.033E+00 2.998E-02 0.000E+00 -2.905E+00 0.000E+00 0.000E+00 0.000E+00 5.206E-02 -3.495E-01 5.400E+00 3.096E-02 1.382E-01 -2.553E+00 0.000E+00 0.000E+00 0.000E+00 0 281 4 7.323E-01 1.030E+00 5.012E+00 -1.502E-01 1.837E-01 -1.783E+00 0.000E+00 0.000E+00 0.000E+00 -5.089E-01 1.717E-02 1.888E+00 -1.587E-01 2.136E-01 -1.016E+00 0.000E+00 0.000E+00 0.000E+00 -4.119E-01 9.512E-02 2.380E+00 2.241E-01 2.035E-02 -1.218E+00 0.000E+00 0.000E+00 0.000E+00 3.271E-01 6.822E-01 4.256E+00 2.298E-01 -3.815E-03 -1.710E+00 0.000E+00 0.000E+00 0.000E+00 3.532E-02 4.569E-01 3.386E+00 3.627E-02 1.039E-01 -1.431E+00 0.000E+00 0.000E+00 0.000E+00 0 281 5 3.274E-01 4.725E-01 2.401E+00 -1.654E-01 9.597E-02 -9.555E-01 0.000E+00 0.000E+00 0.000E+00 -2.087E-01 1.651E-01 9.217E-01 -1.633E-01 1.149E-01 -4.620E-01 0.000E+00 0.000E+00 0.000E+00 -1.688E-01 1.148E-01 1.045E+00 2.172E-01 1.010E-02 -6.059E-01 0.000E+00 0.000E+00 0.000E+00 1.149E-01 2.460E-01 1.859E+00 2.158E-01 -3.479E-03 -9.096E-01 0.000E+00 0.000E+00 0.000E+00 1.842E-02 2.518E-01 1.562E+00 2.607E-02 5.450E-02 -7.339E-01 0.000E+00 0.000E+00 0.000E+00 0 281 6 1.444E-01 1.810E-01 1.105E+00 -1.193E-01 4.651E-02 -4.725E-01 0.000E+00 0.000E+00 0.000E+00 -8.129E-02 1.131E-01 4.203E-01 -1.156E-01 5.685E-02 -1.893E-01 0.000E+00 0.000E+00 0.000E+00 -6.684E-02 5.049E-02 4.250E-01 1.463E-01 4.138E-03 -2.740E-01 0.000E+00 0.000E+00 0.000E+00 3.240E-02 4.446E-02 7.618E-01 1.439E-01 -2.477E-03 -4.417E-01 0.000E+00 0.000E+00 0.000E+00 9.236E-03 9.933E-02 6.828E-01 1.384E-02 2.626E-02 -3.452E-01 0.000E+00 0.000E+00 0.000E+00 0 281 7 6.494E-02 6.466E-02 5.058E-01 -7.441E-02 2.185E-02 -2.250E-01 0.000E+00 0.000E+00 0.000E+00 -3.086E-02 6.407E-02 1.871E-01 -7.169E-02 2.720E-02 -7.268E-02 0.000E+00 0.000E+00 0.000E+00 -2.663E-02 1.839E-02 1.681E-01 8.608E-02 1.425E-03 -1.187E-01 0.000E+00 0.000E+00 0.000E+00 5.207E-03 -1.324E-02 3.059E-01 8.427E-02 -1.622E-03 -2.052E-01 0.000E+00 0.000E+00 0.000E+00 4.623E-03 3.493E-02 2.951E-01 6.061E-03 1.220E-02 -1.561E-01 0.000E+00 0.000E+00 0.000E+00 0 281 8 2.974E-02 2.174E-02 2.312E-01 -4.321E-02 9.994E-03 -1.056E-01 0.000E+00 0.000E+00 0.000E+00 -1.123E-02 3.444E-02 8.192E-02 -4.157E-02 1.267E-02 -2.620E-02 0.000E+00 0.000E+00 0.000E+00 -1.067E-02 6.198E-03 6.474E-02 4.733E-02 3.349E-04 -5.035E-02 0.000E+00 0.000E+00 0.000E+00 -2.208E-03 -2.112E-02 1.203E-01 4.624E-02 -1.015E-03 -9.356E-02 0.000E+00 0.000E+00 0.000E+00 2.327E-03 1.123E-02 1.267E-01 2.196E-03 5.478E-03 -6.937E-02 0.000E+00 0.000E+00 0.000E+00 0 281 9 1.377E-02 6.643E-03 1.051E-01 -2.404E-02 4.416E-03 -4.900E-02 0.000E+00 0.000E+00 0.000E+00 -3.760E-03 1.817E-02 3.518E-02 -2.316E-02 5.714E-03 -8.473E-03 0.000E+00 0.000E+00 0.000E+00 -4.248E-03 2.064E-03 2.396E-02 2.498E-02 -3.497E-05 -2.097E-02 0.000E+00 0.000E+00 0.000E+00 -3.228E-03 -1.629E-02 4.571E-02 2.439E-02 -6.109E-04 -4.207E-02 0.000E+00 0.000E+00 0.000E+00 1.178E-03 3.191E-03 5.377E-02 5.415E-04 2.357E-03 -3.043E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 233 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 281 10 6.397E-03 1.643E-03 4.732E-02 -1.299E-02 1.852E-03 -2.246E-02 0.000E+00 0.000E+00 0.000E+00 -1.039E-03 9.502E-03 1.468E-02 -1.254E-02 2.461E-03 -2.079E-03 0.000E+00 0.000E+00 0.000E+00 -1.646E-03 7.774E-04 8.292E-03 1.280E-02 -1.222E-04 -8.502E-03 0.000E+00 0.000E+00 0.000E+00 -2.547E-03 -1.032E-02 1.639E-02 1.250E-02 -3.557E-04 -1.863E-02 0.000E+00 0.000E+00 0.000E+00 5.996E-04 7.087E-04 2.239E-02 -5.875E-05 9.499E-04 -1.310E-02 0.000E+00 0.000E+00 0.000E+00 0 281 0.0000 3.070E+00 -1.192E+00 2.003E+01 -7.722E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.801E+00 -5.035E+00 7.633E+00 -8.328E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.794E+00 -4.967E+00 9.338E+00 9.002E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.063E+00 -2.795E+00 1.669E+01 9.406E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.394E-01 -3.493E+00 1.343E+01 5.893E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 281 7.1000 2.732E+00 -1.464E+00 1.769E+01 -6.273E-01 3.101E-01 -4.029E+00 0.000E+00 0.000E+00 0.000E+00 -1.592E+00 -4.957E+00 6.766E+00 -6.879E-01 3.577E-01 -2.449E+00 0.000E+00 0.000E+00 0.000E+00 -1.615E+00 -4.853E+00 8.337E+00 7.195E-01 2.922E-02 -2.821E+00 0.000E+00 0.000E+00 0.000E+00 9.512E-01 -2.841E+00 1.488E+01 7.599E-01 -7.244E-03 -3.808E+00 0.000E+00 0.000E+00 0.000E+00 1.215E-01 -3.526E+00 1.192E+01 4.103E-02 1.729E-01 -3.278E+00 0.000E+00 0.000E+00 0.000E+00 0 284 0 -5.942E-02 4.112E-02 8.928E-02 -9.733E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 8.850E-03 2.033E-01 1.547E-01 -9.461E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.449E-02 2.208E-01 1.775E-01 6.191E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.158E-03 1.126E-01 1.336E-01 6.010E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.825E-03 1.444E-01 1.387E-01 -1.748E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 284 1 -9.010E-02 -8.289E-01 1.725E-01 -1.759E-01 -6.107E-03 -1.133E+00 0.000E+00 0.000E+00 0.000E+00 3.959E-02 -5.276E-01 3.035E-01 -1.738E-01 -6.786E-03 -1.107E+00 0.000E+00 0.000E+00 0.000E+00 6.195E-02 -5.189E-01 3.103E-01 1.121E-01 -3.433E-04 -1.091E+00 0.000E+00 0.000E+00 0.000E+00 -2.476E-02 -7.200E-01 2.224E-01 1.107E-01 2.747E-04 -1.105E+00 0.000E+00 0.000E+00 0.000E+00 -3.337E-03 -6.489E-01 2.521E-01 -3.174E-02 -3.235E-03 -1.109E+00 0.000E+00 0.000E+00 0.000E+00 0 284 2 4.023E-01 -3.280E+00 -4.572E-01 2.136E-02 6.241E-02 -1.750E+00 0.000E+00 0.000E+00 0.000E+00 -2.468E-01 -3.962E+00 -1.939E+00 1.772E-02 3.851E-02 -1.277E+00 0.000E+00 0.000E+00 0.000E+00 -2.488E-01 -3.939E+00 -1.863E+00 -3.654E-02 -6.104E-03 -1.113E+00 0.000E+00 0.000E+00 0.000E+00 1.539E-01 -3.515E+00 -9.450E-01 -3.410E-02 8.850E-03 -1.427E+00 0.000E+00 0.000E+00 0.000E+00 1.119E-02 -3.678E+00 -1.310E+00 -7.893E-03 2.577E-02 -1.391E+00 0.000E+00 0.000E+00 0.000E+00 0 284 3 1.126E+00 -1.986E+00 -1.477E+00 4.723E-02 2.685E-01 -5.112E-01 0.000E+00 0.000E+00 0.000E+00 -8.258E-01 -3.954E+00 -6.015E+00 4.486E-02 2.149E-01 4.679E-01 0.000E+00 0.000E+00 0.000E+00 -6.548E-01 -3.767E+00 -5.563E+00 1.771E-02 -9.171E-03 6.094E-01 0.000E+00 0.000E+00 0.000E+00 5.508E-01 -2.551E+00 -2.761E+00 1.927E-02 2.306E-02 -4.022E-02 0.000E+00 0.000E+00 0.000E+00 3.678E-02 -3.077E+00 -3.983E+00 3.228E-02 1.239E-01 1.334E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 234 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 284 4 6.354E-01 6.269E-02 -8.529E-01 -1.489E-01 1.972E-01 1.181E-01 0.000E+00 0.000E+00 0.000E+00 -4.607E-01 -8.060E-01 -3.638E+00 -1.561E-01 1.674E-01 8.497E-01 0.000E+00 0.000E+00 0.000E+00 -3.443E-01 -6.416E-01 -3.206E+00 2.227E-01 -3.487E-03 8.076E-01 0.000E+00 0.000E+00 0.000E+00 2.954E-01 -1.534E-01 -1.562E+00 2.275E-01 1.278E-02 3.409E-01 0.000E+00 0.000E+00 0.000E+00 2.159E-02 -3.944E-01 -2.337E+00 3.630E-02 9.315E-02 5.317E-01 0.000E+00 0.000E+00 0.000E+00 0 284 5 2.662E-01 3.816E-01 -4.290E-01 -1.608E-01 1.025E-01 2.462E-01 0.000E+00 0.000E+00 0.000E+00 -2.004E-01 1.433E-01 -1.746E+00 -1.677E-01 9.010E-02 7.168E-01 0.000E+00 0.000E+00 0.000E+00 -1.203E-01 2.694E-01 -1.406E+00 2.128E-01 -1.106E-03 6.266E-01 0.000E+00 0.000E+00 0.000E+00 1.193E-01 3.568E-01 -6.945E-01 2.174E-01 4.406E-03 3.376E-01 0.000E+00 0.000E+00 0.000E+00 9.668E-03 2.812E-01 -1.084E+00 2.546E-02 4.875E-02 4.842E-01 0.000E+00 0.000E+00 0.000E+00 0 284 6 1.010E-01 2.883E-01 -2.333E-01 -1.158E-01 4.929E-02 2.086E-01 0.000E+00 0.000E+00 0.000E+00 -9.243E-02 2.527E-01 -8.423E-01 -1.199E-01 4.456E-02 4.789E-01 0.000E+00 0.000E+00 0.000E+00 -2.813E-02 3.447E-01 -5.999E-01 1.431E-01 -5.219E-04 3.995E-01 0.000E+00 0.000E+00 0.000E+00 5.229E-02 3.199E-01 -3.071E-01 1.458E-01 9.327E-04 2.395E-01 0.000E+00 0.000E+00 0.000E+00 4.154E-03 2.974E-01 -5.050E-01 1.330E-02 2.344E-02 3.334E-01 0.000E+00 0.000E+00 0.000E+00 0 284 7 3.441E-02 1.723E-01 -1.321E-01 -7.247E-02 2.292E-02 1.383E-01 0.000E+00 0.000E+00 0.000E+00 -4.632E-02 1.868E-01 -4.157E-01 -7.455E-02 2.131E-02 2.839E-01 0.000E+00 0.000E+00 0.000E+00 2.096E-03 2.491E-01 -2.564E-01 8.423E-02 -3.460E-04 2.274E-01 0.000E+00 0.000E+00 0.000E+00 2.591E-02 2.094E-01 -1.373E-01 8.562E-02 -2.022E-04 1.444E-01 0.000E+00 0.000E+00 0.000E+00 1.679E-03 2.021E-01 -2.409E-01 5.710E-03 1.086E-02 1.996E-01 0.000E+00 0.000E+00 0.000E+00 0 284 8 9.339E-03 9.441E-02 -7.511E-02 -4.229E-02 1.034E-02 8.240E-02 0.000E+00 0.000E+00 0.000E+00 -2.460E-02 1.143E-01 -2.081E-01 -4.323E-02 9.928E-03 1.584E-01 0.000E+00 0.000E+00 0.000E+00 8.908E-03 1.540E-01 -1.090E-01 4.643E-02 -2.547E-04 1.218E-01 0.000E+00 0.000E+00 0.000E+00 1.395E-02 1.232E-01 -6.143E-02 4.705E-02 -4.420E-04 8.026E-02 0.000E+00 0.000E+00 0.000E+00 5.752E-04 1.202E-01 -1.165E-01 1.989E-03 4.863E-03 1.114E-01 0.000E+00 0.000E+00 0.000E+00 0 284 9 7.747E-04 4.947E-02 -4.230E-02 -2.367E-02 4.478E-03 4.644E-02 0.000E+00 0.000E+00 0.000E+00 -1.349E-02 6.439E-02 -1.048E-01 -2.405E-02 4.483E-03 8.531E-02 0.000E+00 0.000E+00 0.000E+00 8.251E-03 8.866E-02 -4.557E-02 2.458E-02 -1.790E-04 6.301E-02 0.000E+00 0.000E+00 0.000E+00 7.815E-03 6.878E-02 -2.714E-02 2.484E-02 -3.928E-04 4.262E-02 0.000E+00 0.000E+00 0.000E+00 1.097E-04 6.710E-02 -5.664E-02 4.251E-04 2.085E-03 5.975E-02 0.000E+00 0.000E+00 0.000E+00 0 284 10 -1.564E-03 2.519E-02 -2.348E-02 -1.287E-02 1.818E-03 2.528E-02 0.000E+00 0.000E+00 0.000E+00 -7.491E-03 3.465E-02 -5.270E-02 -1.300E-02 1.938E-03 4.487E-02 0.000E+00 0.000E+00 0.000E+00 5.947E-03 4.896E-02 -1.845E-02 1.265E-02 -1.171E-04 3.179E-02 0.000E+00 0.000E+00 0.000E+00 4.434E-03 3.718E-02 -1.172E-02 1.273E-02 -2.799E-04 2.196E-02 0.000E+00 0.000E+00 0.000E+00 -6.082E-05 3.610E-02 -2.750E-02 -1.227E-04 8.350E-04 3.121E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 235 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 284 0.0000 2.424E+00 -4.980E+00 -3.461E+00 -7.814E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.870E+00 -8.250E+00 -1.450E+01 -8.044E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.265E+00 -7.491E+00 -1.258E+01 9.017E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.198E+00 -5.711E+00 -6.151E+00 9.170E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 8.053E-02 -6.650E+00 -9.270E+00 5.823E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 284 7.1000 2.167E+00 -5.040E+00 -2.983E+00 -6.389E-01 3.306E-01 -1.748E-01 0.000E+00 0.000E+00 0.000E+00 -1.649E+00 -8.028E+00 -1.272E+01 -6.570E-01 2.792E-01 1.333E+00 0.000E+00 0.000E+00 0.000E+00 -1.155E+00 -7.414E+00 -1.116E+01 7.235E-01 -8.273E-03 1.194E+00 0.000E+00 0.000E+00 0.000E+00 1.061E+00 -5.749E+00 -5.437E+00 7.356E-01 1.871E-02 2.555E-01 0.000E+00 0.000E+00 0.000E+00 7.133E-02 -6.593E+00 -8.156E+00 4.083E-02 1.544E-01 6.586E-01 0.000E+00 0.000E+00 0.000E+00 0 291 0 1.018E-02 -9.587E-02 8.106E-02 -3.962E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.680E-02 -5.614E-02 9.671E-02 -4.141E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.600E-03 -5.612E-02 7.609E-02 1.549E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.738E-02 -1.156E-01 5.294E-02 1.816E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.750E-03 -8.092E-02 7.670E-02 -1.185E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 291 1 3.851E-02 -1.008E+00 1.429E-01 -7.095E-02 9.811E-04 -1.166E+00 0.000E+00 0.000E+00 0.000E+00 7.249E-02 -9.321E-01 1.801E-01 -7.622E-02 -5.830E-04 -1.155E+00 0.000E+00 0.000E+00 0.000E+00 -2.415E-02 -9.549E-01 1.092E-01 2.656E-02 -2.823E-03 -1.124E+00 0.000E+00 0.000E+00 0.000E+00 -7.424E-02 -1.068E+00 5.556E-02 3.447E-02 -1.049E-03 -1.138E+00 0.000E+00 0.000E+00 0.000E+00 3.207E-03 -9.908E-01 1.220E-01 -2.153E-02 -8.965E-04 -1.146E+00 0.000E+00 0.000E+00 0.000E+00 0 291 2 3.354E-01 -1.978E+00 2.470E+00 6.416E-02 4.592E-03 -2.910E+00 0.000E+00 0.000E+00 0.000E+00 -1.404E-01 -2.498E+00 1.405E+00 6.782E-02 2.517E-03 -2.556E+00 0.000E+00 0.000E+00 0.000E+00 -3.863E-01 -2.803E+00 7.320E-01 -4.297E-02 5.127E-02 -2.230E+00 0.000E+00 0.000E+00 0.000E+00 2.695E-01 -2.080E+00 2.195E+00 -4.847E-02 5.609E-02 -2.760E+00 0.000E+00 0.000E+00 0.000E+00 1.508E-02 -2.345E+00 1.690E+00 1.014E-02 2.865E-02 -2.613E+00 0.000E+00 0.000E+00 0.000E+00 0 291 3 7.528E-01 6.472E-01 7.174E+00 2.491E-03 -1.092E-04 -2.960E+00 0.000E+00 0.000E+00 0.000E+00 -5.869E-01 -6.593E-01 4.016E+00 3.165E-02 2.487E-02 -2.183E+00 0.000E+00 0.000E+00 0.000E+00 -8.758E-01 -1.223E+00 2.354E+00 1.283E-01 2.382E-01 -1.669E+00 0.000E+00 0.000E+00 0.000E+00 9.298E-01 5.329E-01 6.616E+00 8.457E-02 2.143E-01 -2.822E+00 0.000E+00 0.000E+00 0.000E+00 3.989E-02 -1.910E-01 5.004E+00 6.177E-02 1.199E-01 -2.406E+00 0.000E+00 0.000E+00 0.000E+00 0 291 4 4.075E-01 8.696E-01 4.337E+00 -2.000E-01 -3.779E-03 -1.574E+00 0.000E+00 0.000E+00 0.000E+00 -3.058E-01 3.426E-01 2.486E+00 -1.800E-01 2.042E-02 -1.037E+00 0.000E+00 0.000E+00 0.000E+00 -4.257E-01 1.159E-01 1.447E+00 2.958E-01 1.655E-01 -7.522E-01 0.000E+00 0.000E+00 0.000E+00 4.635E-01 7.257E-01 3.801E+00 2.658E-01 1.404E-01 -1.515E+00 0.000E+00 0.000E+00 0.000E+00 2.331E-02 5.018E-01 2.990E+00 4.541E-02 8.120E-02 -1.217E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 236 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 291 5 1.691E-01 3.725E-01 1.913E+00 -1.867E-01 -3.492E-03 -7.690E-01 0.000E+00 0.000E+00 0.000E+00 -1.066E-01 2.599E-01 1.107E+00 -1.762E-01 1.009E-02 -4.586E-01 0.000E+00 0.000E+00 0.000E+00 -1.423E-01 2.010E-01 5.925E-01 2.368E-01 7.333E-02 -3.135E-01 0.000E+00 0.000E+00 0.000E+00 1.468E-01 2.454E-01 1.512E+00 2.211E-01 5.974E-02 -7.356E-01 0.000E+00 0.000E+00 0.000E+00 9.783E-03 2.627E-01 1.265E+00 2.376E-02 3.525E-02 -5.666E-01 0.000E+00 0.000E+00 0.000E+00 0 291 6 6.973E-02 1.316E-01 7.992E-01 -1.192E-01 -2.483E-03 -3.458E-01 0.000E+00 0.000E+00 0.000E+00 -3.306E-02 1.293E-01 4.588E-01 -1.140E-01 4.126E-03 -1.839E-01 0.000E+00 0.000E+00 0.000E+00 -4.204E-02 1.192E-01 2.162E-01 1.399E-01 2.846E-02 -1.143E-01 0.000E+00 0.000E+00 0.000E+00 3.712E-02 4.753E-02 5.517E-01 1.322E-01 2.225E-02 -3.253E-01 0.000E+00 0.000E+00 0.000E+00 4.046E-03 1.030E-01 4.974E-01 9.704E-03 1.326E-02 -2.406E-01 0.000E+00 0.000E+00 0.000E+00 0 291 7 2.967E-02 4.384E-02 3.304E-01 -6.623E-02 -1.628E-03 -1.484E-01 0.000E+00 0.000E+00 0.000E+00 -9.119E-03 5.926E-02 1.856E-01 -6.383E-02 1.423E-03 -6.903E-02 0.000E+00 0.000E+00 0.000E+00 -1.095E-02 6.057E-02 7.436E-02 7.289E-02 1.024E-02 -3.734E-02 0.000E+00 0.000E+00 0.000E+00 5.701E-03 -4.098E-03 1.945E-01 6.929E-02 7.586E-03 -1.365E-01 0.000E+00 0.000E+00 0.000E+00 1.776E-03 3.784E-02 1.914E-01 3.028E-03 4.493E-03 -9.680E-02 0.000E+00 0.000E+00 0.000E+00 0 291 8 1.292E-02 1.419E-02 1.354E-01 -3.437E-02 -1.014E-03 -6.204E-02 0.000E+00 0.000E+00 0.000E+00 -1.863E-03 2.675E-02 7.355E-02 -3.330E-02 3.368E-04 -2.444E-02 0.000E+00 0.000E+00 0.000E+00 -1.972E-03 2.959E-02 2.385E-02 3.561E-02 3.319E-03 -1.064E-02 0.000E+00 0.000E+00 0.000E+00 -1.596E-03 -1.106E-02 6.575E-02 3.400E-02 2.242E-03 -5.561E-02 0.000E+00 0.000E+00 0.000E+00 8.304E-04 1.382E-02 7.221E-02 4.867E-04 1.265E-03 -3.763E-02 0.000E+00 0.000E+00 0.000E+00 0 291 9 5.670E-03 4.475E-03 5.461E-02 -1.710E-02 -6.112E-04 -2.532E-02 0.000E+00 0.000E+00 0.000E+00 4.667E-05 1.209E-02 2.825E-02 -1.663E-02 -3.525E-05 -7.915E-03 0.000E+00 0.000E+00 0.000E+00 2.627E-04 1.430E-02 6.725E-03 1.668E-02 8.582E-04 -2.166E-03 0.000E+00 0.000E+00 0.000E+00 -2.306E-03 -8.125E-03 2.058E-02 1.599E-02 4.430E-04 -2.207E-02 0.000E+00 0.000E+00 0.000E+00 4.043E-04 5.169E-03 2.634E-02 -2.638E-04 1.843E-04 -1.407E-02 0.000E+00 0.000E+00 0.000E+00 0 291 10 2.465E-03 1.374E-03 2.140E-02 -8.238E-03 -3.558E-04 -9.986E-03 0.000E+00 0.000E+00 0.000E+00 3.706E-04 5.482E-03 1.031E-02 -8.047E-03 -1.224E-04 -2.105E-03 0.000E+00 0.000E+00 0.000E+00 5.858E-04 6.891E-03 1.350E-03 7.554E-03 7.459E-05 1.494E-04 0.000E+00 0.000E+00 0.000E+00 -1.633E-03 -4.631E-03 5.477E-03 7.268E-03 -7.375E-05 -8.452E-03 0.000E+00 0.000E+00 0.000E+00 2.013E-04 2.033E-03 9.059E-03 -3.657E-04 -1.102E-04 -4.948E-03 0.000E+00 0.000E+00 0.000E+00 0 291 0.0000 1.834E+00 -9.971E-01 1.746E+01 -6.757E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.084E+00 -3.311E+00 1.005E+01 -6.102E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.911E+00 -4.490E+00 5.632E+00 9.327E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.745E+00 -1.740E+00 1.507E+01 8.344E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.003E-01 -2.681E+00 1.194E+01 1.203E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 237 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 291 7.1000 1.652E+00 -1.207E+00 1.558E+01 -5.330E-01 -7.273E-03 -3.560E+00 0.000E+00 0.000E+00 0.000E+00 -9.710E-01 -3.349E+00 8.981E+00 -4.770E-01 2.916E-02 -2.529E+00 0.000E+00 0.000E+00 0.000E+00 -1.746E+00 -4.444E+00 5.065E+00 7.522E-01 2.507E-01 -1.948E+00 0.000E+00 0.000E+00 0.000E+00 1.582E+00 -1.836E+00 1.355E+01 6.681E-01 2.160E-01 -3.389E+00 0.000E+00 0.000E+00 0.000E+00 9.002E-02 -2.749E+00 1.070E+01 1.026E-01 1.231E-01 -2.850E+00 0.000E+00 0.000E+00 0.000E+00 0 294 0 -2.426E-02 5.867E-02 1.105E-01 -4.089E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -8.441E-03 9.733E-02 1.245E-01 -3.870E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.395E-02 1.079E-01 1.274E-01 1.839E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.141E-04 4.949E-02 1.053E-01 1.512E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.231E-03 7.836E-02 1.170E-01 -1.152E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 294 1 -2.505E-02 -7.206E-01 2.221E-01 -7.361E-02 2.747E-04 -1.120E+00 0.000E+00 0.000E+00 0.000E+00 6.761E-03 -6.477E-01 2.551E-01 -7.137E-02 -3.433E-04 -1.111E+00 0.000E+00 0.000E+00 0.000E+00 2.487E-02 -6.520E-01 2.227E-01 3.156E-02 -2.594E-03 -1.093E+00 0.000E+00 0.000E+00 0.000E+00 -2.313E-02 -7.617E-01 1.725E-01 2.820E-02 -1.484E-03 -1.104E+00 0.000E+00 0.000E+00 0.000E+00 -4.122E-03 -6.955E-01 2.181E-01 -2.130E-02 -1.047E-03 -1.107E+00 0.000E+00 0.000E+00 0.000E+00 0 294 2 2.734E-01 -3.236E+00 -8.255E-01 7.040E-02 8.865E-03 -1.570E+00 0.000E+00 0.000E+00 0.000E+00 -1.485E-01 -3.705E+00 -1.763E+00 5.822E-02 -6.104E-03 -1.238E+00 0.000E+00 0.000E+00 0.000E+00 -3.358E-01 -3.771E+00 -1.794E+00 -6.008E-02 3.824E-02 -1.083E+00 0.000E+00 0.000E+00 0.000E+00 2.550E-01 -3.109E+00 -4.861E-01 -4.182E-02 5.927E-02 -1.584E+00 0.000E+00 0.000E+00 0.000E+00 1.086E-02 -3.455E+00 -1.217E+00 6.666E-03 2.504E-02 -1.368E+00 0.000E+00 0.000E+00 0.000E+00 0 294 3 6.531E-01 -2.312E+00 -2.658E+00 2.593E-02 2.306E-02 -1.196E-01 0.000E+00 0.000E+00 0.000E+00 -5.217E-01 -3.457E+00 -5.430E+00 -1.191E-03 -9.171E-03 6.131E-01 0.000E+00 0.000E+00 0.000E+00 -7.985E-01 -3.463E+00 -5.173E+00 7.384E-02 1.858E-01 7.376E-01 0.000E+00 0.000E+00 0.000E+00 8.118E-01 -1.897E+00 -1.370E+00 1.145E-01 2.303E-01 -3.581E-01 0.000E+00 0.000E+00 0.000E+00 3.680E-02 -2.782E+00 -3.656E+00 5.327E-02 1.075E-01 2.198E-01 0.000E+00 0.000E+00 0.000E+00 0 294 4 3.274E-01 -7.893E-02 -1.530E+00 -1.849E-01 1.278E-02 3.791E-01 0.000E+00 0.000E+00 0.000E+00 -2.877E-01 -5.094E-01 -3.149E+00 -2.005E-01 -3.487E-03 8.859E-01 0.000E+00 0.000E+00 0.000E+00 -3.718E-01 -4.370E-01 -2.824E+00 2.608E-01 1.300E-01 8.341E-01 0.000E+00 0.000E+00 0.000E+00 4.068E-01 6.479E-02 -7.302E-01 2.843E-01 1.510E-01 1.069E-01 0.000E+00 0.000E+00 0.000E+00 2.116E-02 -2.376E-01 -2.052E+00 3.992E-02 7.262E-02 5.513E-01 0.000E+00 0.000E+00 0.000E+00 0 294 5 1.087E-01 3.321E-01 -7.051E-01 -1.795E-01 4.406E-03 3.720E-01 0.000E+00 0.000E+00 0.000E+00 -1.232E-01 2.627E-01 -1.409E+00 -1.864E-01 -1.107E-03 6.657E-01 0.000E+00 0.000E+00 0.000E+00 -1.029E-01 3.519E-01 -1.132E+00 2.197E-01 5.774E-02 5.761E-01 0.000E+00 0.000E+00 0.000E+00 1.411E-01 3.522E-01 -3.184E-01 2.301E-01 6.385E-02 1.724E-01 0.000E+00 0.000E+00 0.000E+00 8.699E-03 3.275E-01 -8.844E-01 2.095E-02 3.128E-02 4.457E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 238 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 294 6 2.542E-02 2.572E-01 -3.339E-01 -1.163E-01 9.326E-04 2.539E-01 0.000E+00 0.000E+00 0.000E+00 -5.854E-02 2.737E-01 -6.303E-01 -1.189E-01 -5.219E-04 4.073E-01 0.000E+00 0.000E+00 0.000E+00 -1.218E-02 3.462E-01 -4.353E-01 1.323E-01 2.243E-02 3.358E-01 0.000E+00 0.000E+00 0.000E+00 4.956E-02 2.572E-01 -1.405E-01 1.362E-01 2.353E-02 1.332E-01 0.000E+00 0.000E+00 0.000E+00 3.081E-03 2.856E-01 -3.803E-01 8.356E-03 1.163E-02 2.817E-01 0.000E+00 0.000E+00 0.000E+00 0 294 7 -5.519E-05 1.489E-01 -1.633E-01 -6.521E-02 -2.022E-04 1.474E-01 0.000E+00 0.000E+00 0.000E+00 -3.075E-02 1.725E-01 -2.893E-01 -6.605E-02 -3.460E-04 2.228E-01 0.000E+00 0.000E+00 0.000E+00 9.636E-03 2.213E-01 -1.671E-01 6.981E-02 8.085E-03 1.761E-01 0.000E+00 0.000E+00 0.000E+00 1.954E-02 1.497E-01 -6.244E-02 7.107E-02 7.898E-03 8.060E-02 0.000E+00 0.000E+00 0.000E+00 8.235E-04 1.743E-01 -1.677E-01 2.402E-03 3.873E-03 1.562E-01 0.000E+00 0.000E+00 0.000E+00 0 294 8 -5.489E-03 7.786E-02 -8.086E-02 -3.410E-02 -4.420E-04 7.904E-02 0.000E+00 0.000E+00 0.000E+00 -1.680E-02 9.406E-02 -1.347E-01 -3.430E-02 -2.547E-04 1.148E-01 0.000E+00 0.000E+00 0.000E+00 1.092E-02 1.238E-01 -6.343E-02 3.445E-02 2.636E-03 8.711E-02 0.000E+00 0.000E+00 0.000E+00 8.690E-03 8.028E-02 -2.739E-02 3.475E-02 2.252E-03 4.359E-02 0.000E+00 0.000E+00 0.000E+00 1.510E-05 9.468E-02 -7.501E-02 2.007E-04 1.053E-03 8.078E-02 0.000E+00 0.000E+00 0.000E+00 0 294 9 -5.067E-03 3.872E-02 -4.002E-02 -1.708E-02 -3.928E-04 4.050E-02 0.000E+00 0.000E+00 0.000E+00 -9.207E-03 4.793E-02 -6.303E-02 -1.708E-02 -1.790E-04 5.708E-02 0.000E+00 0.000E+00 0.000E+00 7.792E-03 6.492E-02 -2.339E-02 1.630E-02 6.934E-04 4.154E-02 0.000E+00 0.000E+00 0.000E+00 4.221E-03 4.132E-02 -1.170E-02 1.629E-02 3.883E-04 2.220E-02 0.000E+00 0.000E+00 0.000E+00 -2.059E-04 4.858E-02 -3.370E-02 -3.925E-04 1.282E-04 4.013E-02 0.000E+00 0.000E+00 0.000E+00 0 294 10 -3.509E-03 1.865E-02 -1.966E-02 -8.287E-03 -2.799E-04 2.014E-02 0.000E+00 0.000E+00 0.000E+00 -4.982E-03 2.345E-02 -2.938E-02 -8.242E-03 -1.171E-04 2.767E-02 0.000E+00 0.000E+00 0.000E+00 4.756E-03 3.274E-02 -8.167E-03 7.454E-03 7.139E-05 1.929E-02 0.000E+00 0.000E+00 0.000E+00 2.158E-03 2.072E-02 -4.811E-03 7.386E-03 -1.258E-04 1.089E-02 0.000E+00 0.000E+00 0.000E+00 -2.139E-04 2.407E-02 -1.508E-02 -4.224E-04 -1.142E-04 1.939E-02 0.000E+00 0.000E+00 0.000E+00 0 294 0.0000 1.325E+00 -5.415E+00 -6.024E+00 -6.235E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.203E+00 -7.348E+00 -1.252E+01 -6.846E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.539E+00 -7.074E+00 -1.127E+01 8.046E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.675E+00 -4.752E+00 -2.874E+00 8.961E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.467E-02 -6.137E+00 -8.147E+00 9.812E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 294 7.1000 1.213E+00 -5.395E+00 -5.285E+00 -4.870E-01 1.871E-02 2.351E-01 0.000E+00 0.000E+00 0.000E+00 -1.063E+00 -7.199E+00 -1.107E+01 -5.416E-01 -8.274E-03 1.209E+00 0.000E+00 0.000E+00 0.000E+00 -1.424E+00 -7.014E+00 -1.009E+01 6.396E-01 1.962E-01 1.089E+00 0.000E+00 0.000E+00 0.000E+00 1.509E+00 -4.789E+00 -2.538E+00 7.215E-01 2.310E-01 -2.859E-01 0.000E+00 0.000E+00 0.000E+00 6.684E-02 -6.092E+00 -7.228E+00 8.311E-02 1.095E-01 5.603E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 239 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 301 0 5.756E-03 -3.825E-02 8.608E-02 -2.755E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.167E-02 5.159E-04 1.004E-01 -2.861E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.938E-03 -2.866E-02 6.472E-02 9.823E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.762E-02 -5.458E-02 5.503E-02 1.053E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.167E-04 -3.024E-02 7.655E-02 -8.953E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 301 1 3.006E-02 -8.249E-01 1.599E-01 -4.736E-02 -1.049E-03 -1.146E+00 0.000E+00 0.000E+00 0.000E+00 6.251E-02 -7.528E-01 1.958E-01 -5.208E-02 -2.819E-03 -1.133E+00 0.000E+00 0.000E+00 0.000E+00 -3.346E-02 -8.305E-01 9.006E-02 1.568E-02 -2.441E-04 -1.115E+00 0.000E+00 0.000E+00 0.000E+00 -5.481E-02 -8.783E-01 6.672E-02 1.883E-02 7.477E-04 -1.123E+00 0.000E+00 0.000E+00 0.000E+00 1.078E-03 -8.216E-01 1.281E-01 -1.623E-02 -8.354E-04 -1.129E+00 0.000E+00 0.000E+00 0.000E+00 0 301 2 4.631E-01 -1.628E+00 2.389E+00 1.055E-01 5.614E-02 -2.879E+00 0.000E+00 0.000E+00 0.000E+00 -2.266E-01 -2.430E+00 8.919E-01 8.866E-02 5.132E-02 -2.375E+00 0.000E+00 0.000E+00 0.000E+00 -3.032E-01 -2.357E+00 1.049E+00 -9.329E-02 2.594E-03 -2.407E+00 0.000E+00 0.000E+00 0.000E+00 1.287E-01 -1.851E+00 1.982E+00 -8.209E-02 3.632E-03 -2.747E+00 0.000E+00 0.000E+00 0.000E+00 1.539E-02 -2.067E+00 1.577E+00 4.681E-03 2.855E-02 -2.600E+00 0.000E+00 0.000E+00 0.000E+00 0 301 3 1.094E+00 9.168E-01 6.780E+00 8.900E-02 2.142E-01 -2.803E+00 0.000E+00 0.000E+00 0.000E+00 -7.867E-01 -1.016E+00 2.442E+00 6.800E-02 2.382E-01 -1.778E+00 0.000E+00 0.000E+00 0.000E+00 -6.431E-01 -7.151E-01 3.227E+00 -1.139E-02 2.158E-02 -2.000E+00 0.000E+00 0.000E+00 0.000E+00 5.223E-01 4.849E-01 5.912E+00 2.609E-03 -4.272E-04 -2.688E+00 0.000E+00 0.000E+00 0.000E+00 4.577E-02 -8.328E-02 4.588E+00 3.705E-02 1.187E-01 -2.315E+00 0.000E+00 0.000E+00 0.000E+00 0 301 4 5.608E-01 9.526E-01 3.898E+00 -1.252E-01 1.405E-01 -1.339E+00 0.000E+00 0.000E+00 0.000E+00 -3.972E-01 1.825E-01 1.475E+00 -1.292E-01 1.655E-01 -6.913E-01 0.000E+00 0.000E+00 0.000E+00 -3.086E-01 2.346E-01 1.832E+00 1.853E-01 1.599E-02 -8.823E-01 0.000E+00 0.000E+00 0.000E+00 2.536E-01 6.716E-01 3.269E+00 1.879E-01 -3.448E-03 -1.298E+00 0.000E+00 0.000E+00 0.000E+00 2.817E-02 5.113E-01 2.621E+00 2.969E-02 7.992E-02 -1.052E+00 0.000E+00 0.000E+00 0.000E+00 0 301 5 2.070E-01 3.858E-01 1.572E+00 -1.311E-01 5.974E-02 -5.895E-01 0.000E+00 0.000E+00 0.000E+00 -1.339E-01 2.204E-01 6.009E-01 -1.283E-01 7.335E-02 -2.385E-01 0.000E+00 0.000E+00 0.000E+00 -1.020E-01 1.757E-01 6.733E-01 1.633E-01 6.660E-03 -3.552E-01 0.000E+00 0.000E+00 0.000E+00 7.217E-02 2.328E-01 1.197E+00 1.615E-01 -2.721E-03 -5.699E-01 0.000E+00 0.000E+00 0.000E+00 1.255E-02 2.554E-01 1.015E+00 1.635E-02 3.433E-02 -4.388E-01 0.000E+00 0.000E+00 0.000E+00 0 301 6 7.264E-02 1.304E-01 5.872E-01 -8.217E-02 2.224E-02 -2.381E-01 0.000E+00 0.000E+00 0.000E+00 -4.080E-02 1.221E-01 2.174E-01 -7.942E-02 2.846E-02 -6.649E-02 0.000E+00 0.000E+00 0.000E+00 -3.018E-02 7.934E-02 2.161E-01 9.481E-02 2.128E-03 -1.270E-01 0.000E+00 0.000E+00 0.000E+00 1.401E-02 5.347E-02 3.893E-01 9.298E-02 -1.628E-03 -2.274E-01 0.000E+00 0.000E+00 0.000E+00 5.245E-03 9.765E-02 3.556E-01 6.548E-03 1.279E-02 -1.653E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 240 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 301 7 2.545E-02 4.198E-02 2.143E-01 -4.386E-02 7.587E-03 -9.038E-02 0.000E+00 0.000E+00 0.000E+00 -1.164E-02 5.894E-02 7.366E-02 -4.226E-02 1.024E-02 -1.197E-02 0.000E+00 0.000E+00 0.000E+00 -8.166E-03 3.373E-02 6.423E-02 4.731E-02 5.059E-04 -4.100E-02 0.000E+00 0.000E+00 0.000E+00 -1.246E-04 5.735E-03 1.190E-01 4.624E-02 -8.818E-04 -8.482E-02 0.000E+00 0.000E+00 0.000E+00 2.171E-03 3.589E-02 1.196E-01 1.860E-03 4.346E-03 -5.743E-02 0.000E+00 0.000E+00 0.000E+00 0 301 8 8.819E-03 1.324E-02 7.617E-02 -2.170E-02 2.242E-03 -3.267E-02 0.000E+00 0.000E+00 0.000E+00 -2.931E-03 2.735E-02 2.289E-02 -2.092E-02 3.319E-03 1.775E-03 0.000E+00 0.000E+00 0.000E+00 -1.766E-03 1.473E-02 1.702E-02 2.192E-02 2.728E-05 -1.174E-02 0.000E+00 0.000E+00 0.000E+00 -2.219E-03 -2.960E-03 3.320E-02 2.140E-02 -4.510E-04 -3.007E-02 0.000E+00 0.000E+00 0.000E+00 8.963E-04 1.351E-02 3.830E-02 1.738E-04 1.273E-03 -1.840E-02 0.000E+00 0.000E+00 0.000E+00 0 301 9 2.937E-03 4.109E-03 2.583E-02 -1.025E-02 4.432E-04 -1.112E-02 0.000E+00 0.000E+00 0.000E+00 -5.143E-04 1.248E-02 5.948E-03 -9.915E-03 8.583E-04 3.610E-03 0.000E+00 0.000E+00 0.000E+00 -7.867E-05 6.724E-03 3.398E-03 9.682E-03 -6.887E-05 -2.609E-03 0.000E+00 0.000E+00 0.000E+00 -1.707E-03 -2.788E-03 7.481E-03 9.457E-03 -2.185E-04 -1.004E-02 0.000E+00 0.000E+00 0.000E+00 3.673E-04 5.340E-03 1.115E-02 -2.570E-04 2.469E-04 -5.161E-03 0.000E+00 0.000E+00 0.000E+00 0 301 10 8.882E-04 1.251E-03 7.998E-03 -4.683E-03 -7.375E-05 -3.406E-03 0.000E+00 0.000E+00 0.000E+00 4.874E-05 5.637E-03 8.127E-04 -4.548E-03 7.478E-05 2.734E-03 0.000E+00 0.000E+00 0.000E+00 2.483E-04 3.191E-03 8.486E-06 4.117E-03 -6.143E-05 -1.113E-04 0.000E+00 0.000E+00 0.000E+00 -9.841E-04 -1.525E-03 6.169E-04 4.027E-03 -1.001E-04 -3.031E-03 0.000E+00 0.000E+00 0.000E+00 1.482E-04 2.237E-03 2.587E-03 -2.718E-04 -4.345E-05 -1.016E-03 0.000E+00 0.000E+00 0.000E+00 0 301 0.0000 2.472E+00 -4.516E-02 1.580E+01 -2.994E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.516E+00 -3.570E+00 6.027E+00 -3.386E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.437E+00 -3.384E+00 7.237E+00 4.472E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 9.133E-01 -1.342E+00 1.303E+01 4.734E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.125E-01 -2.081E+00 1.053E+01 7.064E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 301 7.1000 2.242E+00 -2.965E-01 1.421E+01 -2.130E-01 2.160E-01 -3.116E+00 0.000E+00 0.000E+00 0.000E+00 -1.367E+00 -3.559E+00 5.445E+00 -2.522E-01 2.508E-01 -1.883E+00 0.000E+00 0.000E+00 0.000E+00 -1.316E+00 -3.363E+00 6.549E+00 3.383E-01 2.165E-02 -2.210E+00 0.000E+00 0.000E+00 0.000E+00 8.292E-01 -1.448E+00 1.179E+01 3.644E-01 -4.835E-03 -2.993E+00 0.000E+00 0.000E+00 0.000E+00 1.003E-01 -2.164E+00 9.504E+00 5.934E-02 1.212E-01 -2.550E+00 0.000E+00 0.000E+00 0.000E+00 0 304 0 -1.862E-02 6.531E-03 8.689E-02 -2.878E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.375E-03 4.416E-02 1.001E-01 -2.641E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.411E-02 4.587E-02 8.831E-02 1.088E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.649E-03 2.049E-02 7.882E-02 9.305E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.084E-03 2.924E-02 8.848E-02 -8.750E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 241 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 304 1 -1.523E-02 -7.432E-01 1.804E-01 -5.002E-02 -1.484E-03 -1.118E+00 0.000E+00 0.000E+00 0.000E+00 1.595E-02 -6.728E-01 2.138E-01 -4.828E-02 -2.594E-03 -1.107E+00 0.000E+00 0.000E+00 0.000E+00 6.042E-03 -6.943E-01 1.520E-01 1.723E-02 -3.891E-04 -1.088E+00 0.000E+00 0.000E+00 0.000E+00 -1.488E-02 -7.414E-01 1.294E-01 1.607E-02 4.501E-04 -1.095E+00 0.000E+00 0.000E+00 0.000E+00 -2.024E-03 -7.129E-01 1.689E-01 -1.625E-02 -1.007E-03 -1.102E+00 0.000E+00 0.000E+00 0.000E+00 0 304 2 4.019E-01 -2.766E+00 -3.391E-01 9.964E-02 5.927E-02 -1.682E+00 0.000E+00 0.000E+00 0.000E+00 -2.190E-01 -3.498E+00 -1.677E+00 9.502E-02 3.824E-02 -1.203E+00 0.000E+00 0.000E+00 0.000E+00 -2.557E-01 -3.504E+00 -1.660E+00 -9.041E-02 -5.188E-03 -1.058E+00 0.000E+00 0.000E+00 0.000E+00 1.277E-01 -3.047E+00 -8.395E-01 -8.732E-02 7.767E-03 -1.379E+00 0.000E+00 0.000E+00 0.000E+00 9.914E-03 -3.207E+00 -1.138E+00 4.234E-03 2.488E-02 -1.330E+00 0.000E+00 0.000E+00 0.000E+00 0 304 3 9.745E-01 -1.517E+00 -1.207E+00 8.258E-02 2.303E-01 -2.828E-01 0.000E+00 0.000E+00 0.000E+00 -7.081E-01 -3.252E+00 -5.082E+00 7.916E-02 1.858E-01 6.959E-01 0.000E+00 0.000E+00 0.000E+00 -5.619E-01 -3.083E+00 -4.665E+00 -6.271E-03 -7.309E-03 8.087E-01 0.000E+00 0.000E+00 0.000E+00 4.642E-01 -2.022E+00 -2.305E+00 -3.990E-03 1.917E-02 1.565E-01 0.000E+00 0.000E+00 0.000E+00 3.067E-02 -2.480E+00 -3.341E+00 3.786E-02 1.066E-01 3.463E-01 0.000E+00 0.000E+00 0.000E+00 0 304 4 4.812E-01 2.384E-01 -6.558E-01 -1.237E-01 1.510E-01 2.551E-01 0.000E+00 0.000E+00 0.000E+00 -3.644E-01 -4.197E-01 -2.816E+00 -1.284E-01 1.300E-01 8.733E-01 0.000E+00 0.000E+00 0.000E+00 -2.524E-01 -2.761E-01 -2.450E+00 1.840E-01 -2.073E-03 8.202E-01 0.000E+00 0.000E+00 0.000E+00 2.338E-01 8.514E-02 -1.190E+00 1.872E-01 9.289E-03 4.252E-01 0.000E+00 0.000E+00 0.000E+00 1.649E-02 -1.012E-01 -1.797E+00 2.978E-02 7.181E-02 5.956E-01 0.000E+00 0.000E+00 0.000E+00 0 304 5 1.597E-01 3.957E-01 -2.998E-01 -1.279E-01 6.385E-02 2.593E-01 0.000E+00 0.000E+00 0.000E+00 -1.356E-01 2.757E-01 -1.164E+00 -1.316E-01 5.774E-02 5.943E-01 0.000E+00 0.000E+00 0.000E+00 -6.357E-02 3.727E-01 -9.129E-01 1.606E-01 -1.869E-04 5.118E-01 0.000E+00 0.000E+00 0.000E+00 8.207E-02 4.014E-01 -4.562E-01 1.631E-01 2.275E-03 3.072E-01 0.000E+00 0.000E+00 0.000E+00 6.072E-03 3.568E-01 -7.189E-01 1.603E-02 3.079E-02 4.199E-01 0.000E+00 0.000E+00 0.000E+00 0 304 6 4.269E-02 2.412E-01 -1.474E-01 -8.028E-02 2.353E-02 1.708E-01 0.000E+00 0.000E+00 0.000E+00 -5.324E-02 2.504E-01 -4.763E-01 -8.204E-02 2.243E-02 3.349E-01 0.000E+00 0.000E+00 0.000E+00 -3.124E-03 3.122E-01 -3.202E-01 9.315E-02 6.476E-05 2.739E-01 0.000E+00 0.000E+00 0.000E+00 3.118E-02 2.764E-01 -1.701E-01 9.433E-02 4.390E-05 1.779E-01 0.000E+00 0.000E+00 0.000E+00 1.976E-03 2.676E-01 -2.841E-01 6.290E-03 1.147E-02 2.405E-01 0.000E+00 0.000E+00 0.000E+00 0 304 7 7.113E-03 1.207E-01 -7.486E-02 -4.307E-02 7.894E-03 9.430E-02 0.000E+00 0.000E+00 0.000E+00 -2.331E-02 1.444E-01 -2.000E-01 -4.367E-02 8.085E-03 1.694E-01 0.000E+00 0.000E+00 0.000E+00 9.150E-03 1.809E-01 -1.108E-01 4.661E-02 4.360E-05 1.327E-01 0.000E+00 0.000E+00 0.000E+00 1.383E-02 1.495E-01 -6.379E-02 4.701E-02 -3.748E-04 9.057E-02 0.000E+00 0.000E+00 0.000E+00 5.039E-04 1.477E-01 -1.152E-01 1.719E-03 3.895E-03 1.224E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 242 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 304 8 -1.737E-03 5.595E-02 -3.781E-02 -2.145E-02 2.252E-03 4.765E-02 0.000E+00 0.000E+00 0.000E+00 -1.097E-02 7.268E-02 -8.533E-02 -2.159E-02 2.636E-03 8.071E-02 0.000E+00 0.000E+00 0.000E+00 8.315E-03 9.285E-02 -3.738E-02 2.169E-02 1.524E-05 6.055E-02 0.000E+00 0.000E+00 0.000E+00 6.745E-03 7.397E-02 -2.374E-02 2.178E-02 -3.192E-04 4.285E-02 0.000E+00 0.000E+00 0.000E+00 1.940E-05 7.329E-02 -4.739E-02 1.066E-04 1.142E-03 5.826E-02 0.000E+00 0.000E+00 0.000E+00 0 304 9 -2.818E-03 2.490E-02 -1.874E-02 -1.022E-02 3.883E-04 2.288E-02 0.000E+00 0.000E+00 0.000E+00 -5.340E-03 3.428E-02 -3.652E-02 -1.020E-02 6.934E-04 3.705E-02 0.000E+00 0.000E+00 0.000E+00 5.385E-03 4.488E-02 -1.190E-02 9.638E-03 5.901E-06 2.659E-02 0.000E+00 0.000E+00 0.000E+00 3.401E-03 3.497E-02 -8.594E-03 9.626E-03 -1.981E-04 1.938E-02 0.000E+00 0.000E+00 0.000E+00 -1.053E-04 3.449E-02 -1.955E-02 -2.876E-04 2.234E-04 2.664E-02 0.000E+00 0.000E+00 0.000E+00 0 304 10 -2.110E-03 1.076E-02 -9.079E-03 -4.708E-03 -1.258E-04 1.062E-02 0.000E+00 0.000E+00 0.000E+00 -2.619E-03 1.553E-02 -1.554E-02 -4.661E-03 7.139E-05 1.655E-02 0.000E+00 0.000E+00 0.000E+00 3.051E-03 2.088E-02 -3.361E-03 4.130E-03 4.653E-06 1.134E-02 0.000E+00 0.000E+00 0.000E+00 1.715E-03 1.603E-02 -2.962E-03 4.098E-03 -1.062E-04 8.485E-03 0.000E+00 0.000E+00 0.000E+00 -1.081E-04 1.569E-02 -8.010E-03 -2.854E-04 -3.712E-05 1.183E-02 0.000E+00 0.000E+00 0.000E+00 0 304 0.0000 2.027E+00 -3.933E+00 -2.522E+00 -3.079E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.510E+00 -7.005E+00 -1.124E+01 -3.227E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.091E+00 -6.487E+00 -9.931E+00 4.513E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 9.534E-01 -4.752E+00 -4.851E+00 4.612E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.233E-02 -5.577E+00 -7.211E+00 7.044E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 304 7.1000 1.850E+00 -3.994E+00 -2.197E+00 -2.225E-01 2.310E-01 -1.236E-01 0.000E+00 0.000E+00 0.000E+00 -1.354E+00 -6.852E+00 -1.002E+01 -2.350E-01 1.962E-01 1.054E+00 0.000E+00 0.000E+00 0.000E+00 -1.014E+00 -6.427E+00 -8.948E+00 3.433E-01 -4.971E-03 9.589E-01 0.000E+00 0.000E+00 0.000E+00 8.553E-01 -4.790E+00 -4.356E+00 3.516E-01 1.386E-02 2.147E-01 0.000E+00 0.000E+00 0.000E+00 5.626E-02 -5.544E+00 -6.446E+00 5.933E-02 1.086E-01 5.305E-01 0.000E+00 0.000E+00 0.000E+00 0 311 0 1.000E-02 9.888E-03 8.266E-02 -5.021E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.102E-03 4.102E-03 7.877E-02 -6.317E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -8.566E-03 -1.171E-02 4.797E-02 -7.902E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.446E-03 -3.267E-03 5.326E-02 -7.707E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.011E-03 -2.594E-04 6.563E-02 -4.186E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 311 1 3.908E-02 -6.593E-01 1.606E-01 2.366E-03 7.451E-04 -1.132E+00 0.000E+00 0.000E+00 0.000E+00 3.540E-02 -6.698E-01 1.589E-01 2.465E-04 -2.544E-04 -1.125E+00 0.000E+00 0.000E+00 0.000E+00 -3.636E-02 -7.238E-01 6.558E-02 -1.803E-02 -4.616E-04 -1.103E+00 0.000E+00 0.000E+00 0.000E+00 -3.054E-02 -7.077E-01 6.888E-02 -1.485E-02 8.125E-04 -1.113E+00 0.000E+00 0.000E+00 0.000E+00 1.933E-03 -6.901E-01 1.135E-01 -7.565E-03 1.965E-04 -1.118E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 243 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 311 2 2.961E-01 -1.461E+00 2.149E+00 1.026E-01 3.623E-03 -2.871E+00 0.000E+00 0.000E+00 0.000E+00 -1.309E-01 -1.956E+00 1.221E+00 1.077E-01 2.632E-03 -2.508E+00 0.000E+00 0.000E+00 0.000E+00 -3.414E-01 -2.251E+00 5.948E-01 -6.031E-02 4.581E-02 -2.208E+00 0.000E+00 0.000E+00 0.000E+00 2.400E-01 -1.568E+00 1.849E+00 -6.795E-02 4.926E-02 -2.755E+00 0.000E+00 0.000E+00 0.000E+00 1.176E-02 -1.813E+00 1.443E+00 2.049E-02 2.539E-02 -2.585E+00 0.000E+00 0.000E+00 0.000E+00 0 311 3 6.274E-01 7.300E-01 6.017E+00 2.098E-02 -5.223E-04 -2.725E+00 0.000E+00 0.000E+00 0.000E+00 -4.968E-01 -3.739E-01 3.373E+00 4.836E-02 2.140E-02 -1.959E+00 0.000E+00 0.000E+00 0.000E+00 -7.182E-01 -8.586E-01 1.934E+00 1.132E-01 1.974E-01 -1.484E+00 0.000E+00 0.000E+00 0.000E+00 7.701E-01 5.989E-01 5.437E+00 7.207E-02 1.768E-01 -2.625E+00 0.000E+00 0.000E+00 0.000E+00 3.190E-02 1.021E-02 4.158E+00 6.365E-02 9.927E-02 -2.196E+00 0.000E+00 0.000E+00 0.000E+00 0 311 4 3.042E-01 7.895E-01 3.319E+00 -1.628E-01 -3.417E-03 -1.174E+00 0.000E+00 0.000E+00 0.000E+00 -2.385E-01 3.983E-01 1.902E+00 -1.460E-01 1.605E-02 -7.256E-01 0.000E+00 0.000E+00 0.000E+00 -3.109E-01 2.332E-01 1.096E+00 2.410E-01 1.248E-01 -5.033E-01 0.000E+00 0.000E+00 0.000E+00 3.525E-01 6.695E-01 2.871E+00 2.158E-01 1.048E-01 -1.143E+00 0.000E+00 0.000E+00 0.000E+00 1.745E-02 5.132E-01 2.275E+00 3.700E-02 6.101E-02 -8.839E-01 0.000E+00 0.000E+00 0.000E+00 0 311 5 1.033E-01 3.054E-01 1.228E+00 -1.389E-01 -2.730E-03 -4.596E-01 0.000E+00 0.000E+00 0.000E+00 -6.917E-02 2.522E-01 7.061E-01 -1.316E-01 6.650E-03 -2.439E-01 0.000E+00 0.000E+00 0.000E+00 -8.127E-02 2.262E-01 3.729E-01 1.703E-01 4.529E-02 -1.552E-01 0.000E+00 0.000E+00 0.000E+00 9.143E-02 2.200E-01 9.548E-01 1.592E-01 3.586E-02 -4.471E-01 0.000E+00 0.000E+00 0.000E+00 6.307E-03 2.462E-01 8.043E-01 1.476E-02 2.149E-02 -3.246E-01 0.000E+00 0.000E+00 0.000E+00 0 311 6 3.299E-02 9.774E-02 4.083E-01 -7.635E-02 -1.631E-03 -1.640E-01 0.000E+00 0.000E+00 0.000E+00 -1.650E-02 1.113E-01 2.298E-01 -7.339E-02 2.121E-03 -6.974E-02 0.000E+00 0.000E+00 0.000E+00 -1.508E-02 1.146E-01 1.029E-01 8.562E-02 1.292E-02 -3.688E-02 0.000E+00 0.000E+00 0.000E+00 1.594E-02 5.109E-02 2.698E-01 8.118E-02 9.361E-03 -1.585E-01 0.000E+00 0.000E+00 0.000E+00 2.128E-03 9.146E-02 2.476E-01 4.263E-03 5.792E-03 -1.062E-01 0.000E+00 0.000E+00 0.000E+00 0 311 7 1.046E-02 3.044E-02 1.296E-01 -3.586E-02 -8.842E-04 -5.345E-02 0.000E+00 0.000E+00 0.000E+00 -3.170E-03 4.539E-02 6.922E-02 -3.473E-02 5.050E-04 -1.493E-02 0.000E+00 0.000E+00 0.000E+00 -5.409E-04 5.109E-02 2.364E-02 3.729E-02 2.850E-03 -3.917E-03 0.000E+00 0.000E+00 0.000E+00 9.012E-05 8.836E-03 6.799E-02 3.561E-02 1.631E-03 -5.130E-02 0.000E+00 0.000E+00 0.000E+00 7.464E-04 3.297E-02 7.037E-02 5.783E-04 1.065E-03 -3.038E-02 0.000E+00 0.000E+00 0.000E+00 0 311 8 3.199E-03 9.681E-03 3.862E-02 -1.559E-02 -4.507E-04 -1.566E-02 0.000E+00 0.000E+00 0.000E+00 -2.695E-04 1.822E-02 1.852E-02 -1.519E-02 2.802E-05 -6.218E-04 0.000E+00 0.000E+00 0.000E+00 1.532E-03 2.203E-02 3.362E-03 1.504E-02 2.014E-04 2.537E-03 0.000E+00 0.000E+00 0.000E+00 -1.763E-03 7.123E-04 1.369E-02 1.444E-02 -1.816E-04 -1.505E-02 0.000E+00 0.000E+00 0.000E+00 2.752E-04 1.226E-02 1.761E-02 -3.277E-04 -8.519E-05 -6.958E-03 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 244 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 311 9 8.629E-04 3.209E-03 1.005E-02 -6.443E-03 -2.186E-04 -3.740E-03 0.000E+00 0.000E+00 0.000E+00 1.693E-04 7.303E-03 3.646E-03 -6.310E-03 -6.895E-05 1.896E-03 0.000E+00 0.000E+00 0.000E+00 1.200E-03 9.403E-03 -7.556E-04 5.724E-03 -2.970E-04 2.513E-03 0.000E+00 0.000E+00 0.000E+00 -1.190E-03 -1.680E-04 8.487E-04 5.526E-03 -4.031E-04 -3.724E-03 0.000E+00 0.000E+00 0.000E+00 1.031E-04 4.779E-03 3.081E-03 -3.757E-04 -2.415E-04 -6.599E-04 0.000E+00 0.000E+00 0.000E+00 0 311 10 1.495E-04 1.120E-03 1.750E-03 -2.548E-03 -1.001E-04 -4.005E-04 0.000E+00 0.000E+00 0.000E+00 1.334E-04 2.923E-03 -1.065E-04 -2.509E-03 -6.145E-05 1.616E-03 0.000E+00 0.000E+00 0.000E+00 6.840E-04 3.996E-03 -1.023E-03 2.058E-03 -2.699E-04 1.546E-03 0.000E+00 0.000E+00 0.000E+00 -5.847E-04 -1.662E-06 -1.255E-03 2.000E-03 -2.920E-04 -5.465E-04 0.000E+00 0.000E+00 0.000E+00 3.751E-05 1.951E-03 -2.938E-04 -2.498E-04 -1.792E-04 5.966E-04 0.000E+00 0.000E+00 0.000E+00 0 311 0.0000 1.428E+00 -1.431E-01 1.354E+01 -3.131E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -9.125E-01 -2.160E+00 7.761E+00 -2.540E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.509E+00 -3.185E+00 4.239E+00 5.839E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.432E+00 -7.296E-01 1.159E+01 4.953E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.365E-02 -1.590E+00 9.198E+00 1.280E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 311 7.1000 1.305E+00 -3.385E-01 1.226E+01 -2.271E-01 -4.865E-03 -2.828E+00 0.000E+00 0.000E+00 0.000E+00 -8.278E-01 -2.224E+00 7.037E+00 -1.749E-01 2.161E-02 -2.008E+00 0.000E+00 0.000E+00 0.000E+00 -1.394E+00 -3.188E+00 3.851E+00 4.704E-01 1.791E-01 -1.568E+00 0.000E+00 0.000E+00 0.000E+00 1.310E+00 -8.555E-01 1.053E+01 3.920E-01 1.539E-01 -2.733E+00 0.000E+00 0.000E+00 0.000E+00 6.680E-02 -1.683E+00 8.346E+00 1.151E-01 8.809E-02 -2.280E+00 0.000E+00 0.000E+00 0.000E+00 0 314 0 -3.425E-03 3.984E-03 7.175E-02 -1.019E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.207E-03 -1.535E-03 6.800E-02 4.104E-05 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.180E-03 -4.751E-03 4.989E-02 -6.804E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.982E-03 3.159E-03 5.466E-02 -8.395E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -8.551E-04 2.270E-04 6.110E-02 -4.044E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 314 1 1.383E-02 -6.744E-01 1.581E-01 1.048E-03 4.501E-04 -1.106E+00 0.000E+00 0.000E+00 0.000E+00 9.791E-03 -6.855E-01 1.558E-01 1.336E-03 -3.891E-04 -1.100E+00 0.000E+00 0.000E+00 0.000E+00 -1.805E-02 -7.162E-01 8.119E-02 -1.630E-02 -6.256E-04 -1.082E+00 0.000E+00 0.000E+00 0.000E+00 -1.208E-02 -6.997E-01 8.459E-02 -1.673E-02 6.714E-04 -1.090E+00 0.000E+00 0.000E+00 0.000E+00 -1.621E-03 -6.940E-01 1.199E-01 -7.661E-03 1.717E-05 -1.095E+00 0.000E+00 0.000E+00 0.000E+00 0 314 2 2.665E-01 -2.723E+00 -7.007E-01 1.090E-01 7.767E-03 -1.493E+00 0.000E+00 0.000E+00 0.000E+00 -1.136E-01 -3.172E+00 -1.518E+00 9.629E-02 -5.188E-03 -1.152E+00 0.000E+00 0.000E+00 0.000E+00 -3.188E-01 -3.251E+00 -1.573E+00 -7.803E-02 3.441E-02 -1.019E+00 0.000E+00 0.000E+00 0.000E+00 2.072E-01 -2.620E+00 -4.502E-01 -5.898E-02 5.223E-02 -1.537E+00 0.000E+00 0.000E+00 0.000E+00 1.057E-02 -2.941E+00 -1.060E+00 1.705E-02 2.231E-02 -1.299E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 245 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 314 3 5.534E-01 -1.814E+00 -2.215E+00 4.212E-02 1.918E-02 1.057E-01 0.000E+00 0.000E+00 0.000E+00 -4.333E-01 -2.782E+00 -4.536E+00 1.778E-02 -7.309E-03 8.300E-01 0.000E+00 0.000E+00 0.000E+00 -6.644E-01 -2.770E+00 -4.265E+00 6.398E-02 1.542E-01 9.261E-01 0.000E+00 0.000E+00 0.000E+00 6.633E-01 -1.470E+00 -1.139E+00 1.005E-01 1.902E-01 -1.591E-01 0.000E+00 0.000E+00 0.000E+00 3.124E-02 -2.208E+00 -3.035E+00 5.610E-02 8.910E-02 4.274E-01 0.000E+00 0.000E+00 0.000E+00 0 314 4 2.390E-01 9.739E-02 -1.185E+00 -1.510E-01 9.291E-03 4.705E-01 0.000E+00 0.000E+00 0.000E+00 -2.280E-01 -2.192E-01 -2.425E+00 -1.625E-01 -2.073E-03 8.951E-01 0.000E+00 0.000E+00 0.000E+00 -2.675E-01 -1.432E-01 -2.132E+00 2.136E-01 9.823E-02 8.378E-01 0.000E+00 0.000E+00 0.000E+00 3.119E-01 2.106E-01 -5.544E-01 2.310E-01 1.128E-01 2.275E-01 0.000E+00 0.000E+00 0.000E+00 1.623E-02 -1.124E-02 -1.569E+00 3.277E-02 5.460E-02 6.076E-01 0.000E+00 0.000E+00 0.000E+00 0 314 5 5.799E-02 3.452E-01 -4.803E-01 -1.345E-01 2.275E-03 3.389E-01 0.000E+00 0.000E+00 0.000E+00 -8.596E-02 3.204E-01 -9.353E-01 -1.383E-01 -1.869E-04 5.434E-01 0.000E+00 0.000E+00 0.000E+00 -5.101E-02 3.937E-01 -7.258E-01 1.595E-01 3.581E-02 4.656E-01 0.000E+00 0.000E+00 0.000E+00 9.265E-02 3.587E-01 -2.119E-01 1.652E-01 3.836E-02 1.858E-01 0.000E+00 0.000E+00 0.000E+00 5.405E-03 3.565E-01 -5.836E-01 1.297E-02 1.909E-02 3.828E-01 0.000E+00 0.000E+00 0.000E+00 0 314 6 4.107E-03 2.133E-01 -1.972E-01 -7.503E-02 4.390E-05 1.891E-01 0.000E+00 0.000E+00 0.000E+00 -3.538E-02 2.370E-01 -3.525E-01 -7.599E-02 6.476E-05 2.786E-01 0.000E+00 0.000E+00 0.000E+00 4.951E-03 2.869E-01 -2.265E-01 8.194E-02 1.027E-02 2.260E-01 0.000E+00 0.000E+00 0.000E+00 2.691E-02 2.141E-01 -8.054E-02 8.337E-02 9.879E-03 1.089E-01 0.000E+00 0.000E+00 0.000E+00 1.347E-03 2.390E-01 -2.114E-01 3.573E-03 5.081E-03 2.002E-01 0.000E+00 0.000E+00 0.000E+00 0 314 7 -6.098E-03 1.030E-01 -8.372E-02 -3.560E-02 -3.748E-04 9.263E-02 0.000E+00 0.000E+00 0.000E+00 -1.629E-02 1.215E-01 -1.363E-01 -3.570E-02 4.360E-05 1.293E-01 0.000E+00 0.000E+00 0.000E+00 1.125E-02 1.501E-01 -6.869E-02 3.622E-02 2.304E-03 1.003E-01 0.000E+00 0.000E+00 0.000E+00 9.130E-03 1.048E-01 -3.048E-02 3.637E-02 1.652E-03 5.440E-02 0.000E+00 0.000E+00 0.000E+00 1.036E-04 1.205E-01 -7.838E-02 3.251E-04 9.082E-04 9.385E-02 0.000E+00 0.000E+00 0.000E+00 0 314 8 -5.488E-03 4.543E-02 -3.597E-02 -1.562E-02 -3.192E-04 4.221E-02 0.000E+00 0.000E+00 0.000E+00 -7.797E-03 5.525E-02 -5.349E-02 -1.554E-02 1.523E-05 5.658E-02 0.000E+00 0.000E+00 0.000E+00 7.790E-03 7.002E-02 -1.985E-02 1.481E-02 1.924E-04 4.196E-02 0.000E+00 0.000E+00 0.000E+00 3.681E-03 4.771E-02 -1.123E-02 1.468E-02 -2.447E-04 2.483E-02 0.000E+00 0.000E+00 0.000E+00 -1.777E-04 5.488E-02 -2.949E-02 -4.161E-04 -9.027E-05 4.124E-02 0.000E+00 0.000E+00 0.000E+00 0 314 9 -3.388E-03 1.913E-02 -1.538E-02 -6.510E-03 -1.981E-04 1.839E-02 0.000E+00 0.000E+00 0.000E+00 -3.710E-03 2.366E-02 -2.099E-02 -6.428E-03 5.901E-06 2.380E-02 0.000E+00 0.000E+00 0.000E+00 4.271E-03 3.081E-02 -5.138E-03 5.722E-03 -2.157E-04 1.686E-02 0.000E+00 0.000E+00 0.000E+00 1.654E-03 2.091E-02 -3.954E-03 5.598E-03 -4.544E-04 1.074E-02 0.000E+00 0.000E+00 0.000E+00 -1.769E-04 2.374E-02 -1.110E-02 -4.045E-04 -2.174E-04 1.738E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 246 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 314 10 -1.814E-03 7.798E-03 -6.492E-03 -2.600E-03 -1.062E-04 7.759E-03 0.000E+00 0.000E+00 0.000E+00 -1.722E-03 9.747E-03 -8.135E-03 -2.546E-03 4.653E-06 9.705E-03 0.000E+00 0.000E+00 0.000E+00 2.100E-03 1.304E-02 -9.941E-04 2.097E-03 -2.031E-04 6.553E-03 0.000E+00 0.000E+00 0.000E+00 7.757E-04 8.925E-03 -1.299E-03 2.017E-03 -3.219E-04 4.477E-03 0.000E+00 0.000E+00 0.000E+00 -1.194E-04 9.922E-03 -4.123E-03 -2.580E-04 -1.582E-04 7.092E-03 0.000E+00 0.000E+00 0.000E+00 0 314 0.0000 1.115E+00 -4.376E+00 -4.690E+00 -2.697E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -9.221E-01 -6.094E+00 -9.762E+00 -3.216E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.288E+00 -5.941E+00 -8.886E+00 4.768E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.310E+00 -3.821E+00 -2.343E+00 5.546E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.195E-02 -5.049E+00 -6.400E+00 1.100E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 314 7.1000 1.036E+00 -4.369E+00 -4.176E+00 -1.879E-01 1.387E-02 2.138E-01 0.000E+00 0.000E+00 0.000E+00 -8.239E-01 -5.985E+00 -8.759E+00 -2.355E-01 -4.971E-03 9.893E-01 0.000E+00 0.000E+00 0.000E+00 -1.204E+00 -5.889E+00 -8.059E+00 3.738E-01 1.404E-01 9.075E-01 0.000E+00 0.000E+00 0.000E+00 1.190E+00 -3.860E+00 -2.106E+00 4.452E-01 1.649E-01 -2.036E-01 0.000E+00 0.000E+00 0.000E+00 5.642E-02 -5.019E+00 -5.759E+00 9.889E-02 7.861E-02 4.764E-01 0.000E+00 0.000E+00 0.000E+00 0 321 0 9.273E-03 2.874E-02 6.698E-02 3.689E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.613E-03 1.437E-02 5.915E-02 3.621E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.819E-03 7.963E-03 3.608E-02 -9.206E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.520E-03 1.740E-02 4.097E-02 -9.161E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.425E-04 1.713E-02 5.081E-02 -2.764E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 321 1 3.791E-02 -5.480E-01 1.373E-01 1.142E-02 8.163E-04 -1.124E+00 0.000E+00 0.000E+00 0.000E+00 2.618E-02 -5.779E-01 1.281E-01 8.600E-03 -4.578E-04 -1.114E+00 0.000E+00 0.000E+00 0.000E+00 -3.400E-02 -6.132E-01 4.443E-02 -2.074E-02 -1.831E-04 -1.101E+00 0.000E+00 0.000E+00 0.000E+00 -2.601E-02 -5.931E-01 5.098E-02 -1.885E-02 5.417E-04 -1.108E+00 0.000E+00 0.000E+00 0.000E+00 1.033E-03 -5.831E-01 9.020E-02 -4.892E-03 1.831E-04 -1.112E+00 0.000E+00 0.000E+00 0.000E+00 0 321 2 4.049E-01 -1.183E+00 2.014E+00 1.337E-01 4.929E-02 -2.857E+00 0.000E+00 0.000E+00 0.000E+00 -2.020E-01 -1.926E+00 7.341E-01 1.210E-01 4.584E-02 -2.331E+00 0.000E+00 0.000E+00 0.000E+00 -2.626E-01 -1.857E+00 8.293E-01 -1.020E-01 2.213E-03 -2.399E+00 0.000E+00 0.000E+00 0.000E+00 1.114E-01 -1.392E+00 1.611E+00 -9.352E-02 2.777E-03 -2.756E+00 0.000E+00 0.000E+00 0.000E+00 1.320E-02 -1.589E+00 1.297E+00 1.479E-02 2.515E-02 -2.584E+00 0.000E+00 0.000E+00 0.000E+00 0 321 3 9.022E-01 9.069E-01 5.569E+00 1.021E-01 1.767E-01 -2.603E+00 0.000E+00 0.000E+00 0.000E+00 -6.574E-01 -7.173E-01 1.995E+00 8.926E-02 1.974E-01 -1.566E+00 0.000E+00 0.000E+00 0.000E+00 -5.201E-01 -4.731E-01 2.578E+00 -1.413E-02 1.750E-02 -1.824E+00 0.000E+00 0.000E+00 0.000E+00 4.260E-01 5.161E-01 4.743E+00 -5.611E-03 -6.409E-04 -2.521E+00 0.000E+00 0.000E+00 0.000E+00 3.829E-02 5.868E-02 3.722E+00 4.289E-02 9.798E-02 -2.126E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 247 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 321 4 4.161E-01 8.177E-01 2.934E+00 -9.963E-02 1.048E-01 -9.950E-01 0.000E+00 0.000E+00 0.000E+00 -3.054E-01 2.462E-01 1.101E+00 -1.001E-01 1.248E-01 -4.436E-01 0.000E+00 0.000E+00 0.000E+00 -2.219E-01 2.830E-01 1.357E+00 1.498E-01 1.201E-02 -6.200E-01 0.000E+00 0.000E+00 0.000E+00 1.923E-01 5.973E-01 2.424E+00 1.501E-01 -2.934E-03 -9.752E-01 0.000E+00 0.000E+00 0.000E+00 2.162E-02 4.874E-01 1.957E+00 2.504E-02 5.988E-02 -7.582E-01 0.000E+00 0.000E+00 0.000E+00 0 321 5 1.245E-01 2.971E-01 9.878E-01 -9.901E-02 3.586E-02 -3.394E-01 0.000E+00 0.000E+00 0.000E+00 -8.521E-02 2.169E-01 3.690E-01 -9.624E-02 4.530E-02 -9.486E-02 0.000E+00 0.000E+00 0.000E+00 -5.714E-02 1.834E-01 4.161E-01 1.187E-01 4.188E-03 -1.856E-01 0.000E+00 0.000E+00 0.000E+00 4.517E-02 1.993E-01 7.411E-01 1.169E-01 -2.048E-03 -3.345E-01 0.000E+00 0.000E+00 0.000E+00 8.139E-03 2.255E-01 6.316E-01 1.009E-02 2.085E-02 -2.390E-01 0.000E+00 0.000E+00 0.000E+00 0 321 6 3.221E-02 8.907E-02 2.861E-01 -5.377E-02 9.358E-03 -1.042E-01 0.000E+00 0.000E+00 0.000E+00 -1.952E-02 1.042E-01 9.850E-02 -5.184E-02 1.292E-02 -4.705E-03 0.000E+00 0.000E+00 0.000E+00 -1.052E-02 7.808E-02 9.899E-02 5.899E-02 9.738E-04 -4.573E-02 0.000E+00 0.000E+00 0.000E+00 5.521E-03 4.953E-02 1.810E-01 5.771E-02 -1.040E-03 -1.032E-01 0.000E+00 0.000E+00 0.000E+00 2.743E-03 8.104E-02 1.681E-01 2.773E-03 5.540E-03 -6.485E-02 0.000E+00 0.000E+00 0.000E+00 0 321 7 7.369E-03 2.582E-02 7.527E-02 -2.427E-02 1.631E-03 -2.762E-02 0.000E+00 0.000E+00 0.000E+00 -3.691E-03 4.373E-02 2.049E-02 -2.338E-02 2.851E-03 1.020E-02 0.000E+00 0.000E+00 0.000E+00 -4.901E-04 3.132E-02 1.776E-02 2.462E-02 1.004E-04 -7.097E-03 0.000E+00 0.000E+00 0.000E+00 -1.274E-03 1.122E-02 3.525E-02 2.402E-02 -4.632E-04 -2.781E-02 0.000E+00 0.000E+00 0.000E+00 8.847E-04 2.843E-02 3.814E-02 2.501E-04 1.018E-03 -1.329E-02 0.000E+00 0.000E+00 0.000E+00 0 321 8 1.177E-03 7.573E-03 1.663E-02 -1.007E-02 -1.815E-04 -5.467E-03 0.000E+00 0.000E+00 0.000E+00 -3.747E-04 1.757E-02 1.455E-03 -9.728E-03 2.015E-04 8.177E-03 0.000E+00 0.000E+00 0.000E+00 9.384E-04 1.273E-02 6.804E-04 9.412E-03 -5.810E-05 1.101E-03 0.000E+00 0.000E+00 0.000E+00 -1.364E-03 2.725E-03 3.010E-03 9.181E-03 -1.896E-04 -5.940E-03 0.000E+00 0.000E+00 0.000E+00 2.717E-04 1.033E-02 5.858E-03 -3.024E-04 -6.339E-05 -6.369E-04 0.000E+00 0.000E+00 0.000E+00 0 321 9 -1.392E-04 2.285E-03 1.900E-03 -3.968E-03 -4.030E-04 -8.049E-05 0.000E+00 0.000E+00 0.000E+00 1.364E-04 6.922E-03 -1.819E-03 -3.850E-03 -2.970E-04 4.619E-03 0.000E+00 0.000E+00 0.000E+00 7.423E-04 5.288E-03 -1.573E-03 3.381E-03 -5.227E-05 1.761E-03 0.000E+00 0.000E+00 0.000E+00 -7.218E-04 9.155E-04 -2.082E-03 3.302E-03 -7.075E-05 -4.998E-04 0.000E+00 0.000E+00 0.000E+00 7.582E-05 3.924E-03 -7.269E-04 -2.834E-04 -2.087E-04 1.403E-03 0.000E+00 0.000E+00 0.000E+00 0 321 10 -2.774E-04 7.154E-04 -9.474E-04 -1.496E-03 -2.920E-04 7.469E-04 0.000E+00 0.000E+00 0.000E+00 1.222E-04 2.685E-03 -1.585E-03 -1.461E-03 -2.699E-04 2.281E-03 0.000E+00 0.000E+00 0.000E+00 4.208E-04 2.227E-03 -1.142E-03 1.144E-03 -2.774E-05 1.135E-03 0.000E+00 0.000E+00 0.000E+00 -3.058E-04 4.540E-04 -1.790E-03 1.120E-03 -2.307E-05 4.597E-04 0.000E+00 0.000E+00 0.000E+00 1.667E-05 1.547E-03 -1.304E-03 -1.734E-04 -1.543E-04 1.136E-03 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 248 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 321 0.0000 1.935E+00 4.450E-01 1.209E+01 -4.138E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.245E+00 -2.569E+00 4.503E+00 -6.418E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.112E+00 -2.339E+00 5.375E+00 2.200E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.482E-01 -5.897E-01 9.826E+00 2.352E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 8.691E-02 -1.258E+00 7.959E+00 8.741E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 321 7.1000 1.776E+00 2.319E-01 1.100E+01 8.424E-03 1.538E-01 -2.551E+00 0.000E+00 0.000E+00 0.000E+00 -1.135E+00 -2.583E+00 4.111E+00 -1.462E-02 1.791E-01 -1.527E+00 0.000E+00 0.000E+00 0.000E+00 -1.029E+00 -2.355E+00 4.902E+00 1.530E-01 1.564E-02 -1.823E+00 0.000E+00 0.000E+00 0.000E+00 6.845E-01 -7.059E-01 8.964E+00 1.683E-01 -3.371E-03 -2.483E+00 0.000E+00 0.000E+00 0.000E+00 7.856E-02 -1.349E+00 7.253E+00 7.877E-02 8.651E-02 -2.095E+00 0.000E+00 0.000E+00 0.000E+00 0 324 0 9.100E-04 -6.341E-03 5.059E-02 3.050E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.617E-03 -2.061E-02 4.310E-02 4.351E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.243E-04 -2.419E-02 2.606E-02 -8.552E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.607E-03 -1.490E-02 3.054E-02 -9.419E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.220E-04 -1.653E-02 3.754E-02 -2.643E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 324 1 2.188E-02 -6.205E-01 1.185E-01 9.784E-03 6.714E-04 -1.101E+00 0.000E+00 0.000E+00 0.000E+00 1.053E-02 -6.496E-01 1.098E-01 9.718E-03 -6.256E-04 -1.093E+00 0.000E+00 0.000E+00 0.000E+00 -2.162E-02 -6.813E-01 3.620E-02 -1.985E-02 -4.120E-04 -1.076E+00 0.000E+00 0.000E+00 0.000E+00 -1.406E-02 -6.619E-01 4.207E-02 -1.981E-02 4.463E-04 -1.081E+00 0.000E+00 0.000E+00 0.000E+00 -8.240E-04 -6.533E-01 7.666E-02 -5.038E-03 2.098E-05 -1.088E+00 0.000E+00 0.000E+00 0.000E+00 0 324 2 3.724E-01 -2.234E+00 -2.850E-01 1.301E-01 5.223E-02 -1.614E+00 0.000E+00 0.000E+00 0.000E+00 -1.760E-01 -2.917E+00 -1.430E+00 1.230E-01 3.442E-02 -1.114E+00 0.000E+00 0.000E+00 0.000E+00 -2.410E-01 -2.935E+00 -1.424E+00 -1.010E-01 -4.257E-03 -9.931E-01 0.000E+00 0.000E+00 0.000E+00 9.291E-02 -2.511E+00 -7.341E-01 -9.623E-02 6.409E-03 -1.330E+00 0.000E+00 0.000E+00 0.000E+00 8.675E-03 -2.653E+00 -9.763E-01 1.397E-02 2.206E-02 -1.262E+00 0.000E+00 0.000E+00 0.000E+00 0 324 3 8.131E-01 -1.121E+00 -9.887E-01 9.953E-02 1.902E-01 -8.687E-02 0.000E+00 0.000E+00 0.000E+00 -5.832E-01 -2.581E+00 -4.183E+00 9.365E-02 1.542E-01 9.031E-01 0.000E+00 0.000E+00 0.000E+00 -4.612E-01 -2.419E+00 -3.768E+00 -1.251E-02 -5.707E-03 9.888E-01 0.000E+00 0.000E+00 0.000E+00 3.729E-01 -1.543E+00 -1.863E+00 -8.575E-03 1.526E-02 3.280E-01 0.000E+00 0.000E+00 0.000E+00 2.491E-02 -1.926E+00 -2.725E+00 4.303E-02 8.818E-02 5.349E-01 0.000E+00 0.000E+00 0.000E+00 0 324 4 3.534E-01 3.075E-01 -5.129E-01 -9.755E-02 1.128E-01 3.508E-01 0.000E+00 0.000E+00 0.000E+00 -2.831E-01 -1.796E-01 -2.148E+00 -1.010E-01 9.823E-02 8.776E-01 0.000E+00 0.000E+00 0.000E+00 -1.763E-01 -4.938E-02 -1.821E+00 1.483E-01 -1.196E-03 8.231E-01 0.000E+00 0.000E+00 0.000E+00 1.816E-01 2.087E-01 -8.860E-01 1.506E-01 6.538E-03 4.854E-01 0.000E+00 0.000E+00 0.000E+00 1.229E-02 6.521E-02 -1.357E+00 2.506E-02 5.391E-02 6.360E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 249 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 324 5 8.982E-02 3.521E-01 -2.147E-01 -9.683E-02 3.836E-02 2.481E-01 0.000E+00 0.000E+00 0.000E+00 -9.079E-02 3.009E-01 -7.655E-01 -9.873E-02 3.581E-02 4.818E-01 0.000E+00 0.000E+00 0.000E+00 -2.798E-02 3.764E-01 -5.768E-01 1.170E-01 2.115E-04 4.126E-01 0.000E+00 0.000E+00 0.000E+00 5.643E-02 3.745E-01 -2.936E-01 1.183E-01 1.015E-03 2.705E-01 0.000E+00 0.000E+00 0.000E+00 3.735E-03 3.479E-01 -4.700E-01 9.923E-03 1.878E-02 3.545E-01 0.000E+00 0.000E+00 0.000E+00 0 324 6 1.303E-02 1.817E-01 -9.442E-02 -5.278E-02 9.879E-03 1.306E-01 0.000E+00 0.000E+00 0.000E+00 -2.978E-02 2.058E-01 -2.613E-01 -5.338E-02 1.027E-02 2.259E-01 0.000E+00 0.000E+00 0.000E+00 7.174E-03 2.467E-01 -1.618E-01 5.821E-02 2.499E-04 1.823E-01 0.000E+00 0.000E+00 0.000E+00 1.838E-02 2.133E-01 -9.107E-02 5.860E-02 -2.985E-04 1.272E-01 0.000E+00 0.000E+00 0.000E+00 8.289E-04 2.105E-01 -1.554E-01 2.664E-03 5.010E-03 1.672E-01 0.000E+00 0.000E+00 0.000E+00 0 324 7 -2.725E-03 7.715E-02 -4.234E-02 -2.399E-02 1.650E-03 6.018E-02 0.000E+00 0.000E+00 0.000E+00 -1.117E-02 9.778E-02 -9.111E-02 -2.404E-02 2.304E-03 9.648E-02 0.000E+00 0.000E+00 0.000E+00 9.149E-03 1.184E-01 -4.261E-02 2.441E-02 1.374E-04 7.416E-02 0.000E+00 0.000E+00 0.000E+00 7.171E-03 9.706E-02 -2.785E-02 2.444E-02 -3.396E-04 5.419E-02 0.000E+00 0.000E+00 0.000E+00 4.052E-05 9.704E-02 -5.230E-02 2.038E-04 9.377E-04 7.158E-02 0.000E+00 0.000E+00 0.000E+00 0 324 8 -3.773E-03 3.032E-02 -1.869E-02 -1.005E-02 -2.447E-04 2.570E-02 0.000E+00 0.000E+00 0.000E+00 -4.601E-03 4.111E-02 -3.224E-02 -9.969E-03 1.924E-04 3.884E-02 0.000E+00 0.000E+00 0.000E+00 5.679E-03 5.085E-02 -1.004E-02 9.400E-03 6.723E-05 2.848E-02 0.000E+00 0.000E+00 0.000E+00 3.124E-03 4.055E-02 -8.257E-03 9.346E-03 -1.959E-04 2.165E-02 0.000E+00 0.000E+00 0.000E+00 -1.147E-04 4.049E-02 -1.782E-02 -3.184E-04 -4.205E-05 2.881E-02 0.000E+00 0.000E+00 0.000E+00 0 324 9 -2.417E-03 1.141E-02 -8.024E-03 -4.001E-03 -4.544E-04 1.045E-02 0.000E+00 0.000E+00 0.000E+00 -1.966E-03 1.626E-02 -1.137E-02 -3.925E-03 -2.157E-04 1.500E-02 0.000E+00 0.000E+00 0.000E+00 2.894E-03 2.061E-02 -1.728E-03 3.412E-03 3.378E-05 1.047E-02 0.000E+00 0.000E+00 0.000E+00 1.398E-03 1.618E-02 -2.282E-03 3.361E-03 -9.122E-05 8.257E-03 0.000E+00 0.000E+00 0.000E+00 -1.051E-04 1.604E-02 -6.045E-03 -2.881E-04 -1.790E-04 1.110E-02 0.000E+00 0.000E+00 0.000E+00 0 324 10 -1.269E-03 4.154E-03 -3.344E-03 -1.529E-03 -3.219E-04 4.098E-03 0.000E+00 0.000E+00 0.000E+00 -8.404E-04 6.174E-03 -3.935E-03 -1.481E-03 -2.031E-04 5.592E-03 0.000E+00 0.000E+00 0.000E+00 1.335E-03 8.028E-03 6.894E-05 1.172E-03 1.784E-05 3.704E-03 0.000E+00 0.000E+00 0.000E+00 6.174E-04 6.249E-03 -5.445E-04 1.140E-03 -3.694E-05 3.034E-03 0.000E+00 0.000E+00 0.000E+00 -6.815E-05 6.122E-03 -2.006E-03 -1.746E-04 -1.342E-04 4.130E-03 0.000E+00 0.000E+00 0.000E+00 0 324 0.0000 1.654E+00 -3.018E+00 -1.999E+00 -4.427E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.177E+00 -5.680E+00 -8.774E+00 -6.186E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -9.023E-01 -5.288E+00 -7.743E+00 2.199E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.241E-01 -3.774E+00 -3.834E+00 2.317E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.895E-02 -4.466E+00 -5.648E+00 8.638E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 250 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 324 7.1000 1.530E+00 -3.069E+00 -1.767E+00 4.842E-03 1.649E-01 -8.364E-02 0.000E+00 0.000E+00 0.000E+00 -1.065E+00 -5.564E+00 -7.920E+00 -1.130E-02 1.404E-01 8.947E-01 0.000E+00 0.000E+00 0.000E+00 -8.471E-01 -5.239E+00 -7.052E+00 1.535E-01 -3.237E-03 8.304E-01 0.000E+00 0.000E+00 0.000E+00 6.535E-01 -3.804E+00 -3.484E+00 1.643E-01 1.013E-02 2.030E-01 0.000E+00 0.000E+00 0.000E+00 4.474E-02 -4.442E+00 -5.110E+00 7.784E-02 7.778E-02 4.644E-01 0.000E+00 0.000E+00 0.000E+00 0 331 0 5.929E-03 3.712E-02 4.942E-02 1.125E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.569E-03 2.021E-02 4.133E-02 1.165E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.890E-03 6.148E-03 2.015E-02 -1.166E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.112E-03 3.126E-02 3.171E-02 -1.227E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.838E-04 2.367E-02 3.562E-02 -2.592E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 331 1 3.214E-02 -4.574E-01 1.091E-01 2.523E-02 5.320E-04 -1.120E+00 0.000E+00 0.000E+00 0.000E+00 1.840E-02 -4.910E-01 9.682E-02 2.421E-02 -1.890E-04 -1.113E+00 0.000E+00 0.000E+00 0.000E+00 -3.406E-02 -5.431E-01 1.824E-02 -2.575E-02 2.365E-04 -1.095E+00 0.000E+00 0.000E+00 0.000E+00 -1.331E-02 -4.927E-01 3.704E-02 -2.422E-02 1.225E-03 -1.107E+00 0.000E+00 0.000E+00 0.000E+00 8.202E-04 -4.960E-01 6.533E-02 -1.321E-04 4.482E-04 -1.109E+00 0.000E+00 0.000E+00 0.000E+00 0 331 2 2.491E-01 -1.071E+00 1.749E+00 1.026E-01 2.792E-03 -2.861E+00 0.000E+00 0.000E+00 0.000E+00 -1.045E-01 -1.488E+00 9.874E-01 1.074E-01 2.274E-03 -2.484E+00 0.000E+00 0.000E+00 0.000E+00 -2.826E-01 -1.746E+00 4.412E-01 -4.883E-02 3.728E-02 -2.204E+00 0.000E+00 0.000E+00 0.000E+00 1.876E-01 -1.181E+00 1.443E+00 -5.614E-02 3.982E-02 -2.773E+00 0.000E+00 0.000E+00 0.000E+00 8.493E-03 -1.376E+00 1.146E+00 2.627E-02 2.060E-02 -2.579E+00 0.000E+00 0.000E+00 0.000E+00 0 331 3 5.006E-01 6.900E-01 4.817E+00 2.355E-02 -7.064E-04 -2.547E+00 0.000E+00 0.000E+00 0.000E+00 -3.986E-01 -1.895E-01 2.699E+00 4.815E-02 1.736E-02 -1.786E+00 0.000E+00 0.000E+00 0.000E+00 -5.567E-01 -5.836E-01 1.501E+00 1.097E-01 1.545E-01 -1.342E+00 0.000E+00 0.000E+00 0.000E+00 5.992E-01 5.428E-01 4.227E+00 7.276E-02 1.380E-01 -2.475E+00 0.000E+00 0.000E+00 0.000E+00 2.374E-02 1.024E-01 3.282E+00 6.353E-02 7.772E-02 -2.035E+00 0.000E+00 0.000E+00 0.000E+00 0 331 4 2.185E-01 6.583E-01 2.450E+00 -1.288E-01 -2.918E-03 -8.719E-01 0.000E+00 0.000E+00 0.000E+00 -1.806E-01 3.792E-01 1.398E+00 -1.149E-01 1.206E-02 -4.936E-01 0.000E+00 0.000E+00 0.000E+00 -2.155E-01 2.657E-01 7.945E-01 1.922E-01 9.016E-02 -3.159E-01 0.000E+00 0.000E+00 0.000E+00 2.572E-01 5.583E-01 2.078E+00 1.714E-01 7.505E-02 -8.569E-01 0.000E+00 0.000E+00 0.000E+00 1.236E-02 4.578E-01 1.662E+00 2.997E-02 4.395E-02 -6.325E-01 0.000E+00 0.000E+00 0.000E+00 0 331 5 5.934E-02 2.324E-01 7.553E-01 -9.989E-02 -2.054E-03 -2.534E-01 0.000E+00 0.000E+00 0.000E+00 -4.449E-02 2.129E-01 4.287E-01 -9.486E-02 4.180E-03 -1.063E-01 0.000E+00 0.000E+00 0.000E+00 -4.203E-02 2.071E-01 2.244E-01 1.185E-01 2.671E-02 -5.333E-02 0.000E+00 0.000E+00 0.000E+00 5.531E-02 1.780E-01 5.780E-01 1.109E-01 2.045E-02 -2.518E-01 0.000E+00 0.000E+00 0.000E+00 3.859E-03 2.044E-01 4.892E-01 8.661E-03 1.247E-02 -1.649E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 251 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 331 6 1.306E-02 6.711E-02 1.885E-01 -4.711E-02 -1.041E-03 -6.380E-02 0.000E+00 0.000E+00 0.000E+00 -7.921E-03 8.415E-02 1.016E-01 -4.550E-02 9.706E-04 -1.155E-02 0.000E+00 0.000E+00 0.000E+00 -2.059E-03 9.289E-02 4.249E-02 5.033E-02 4.908E-03 1.702E-03 0.000E+00 0.000E+00 0.000E+00 5.747E-03 4.368E-02 1.177E-01 4.791E-02 2.975E-03 -6.485E-02 0.000E+00 0.000E+00 0.000E+00 1.015E-03 7.076E-02 1.098E-01 1.409E-03 2.005E-03 -3.401E-02 0.000E+00 0.000E+00 0.000E+00 0 331 7 2.135E-03 1.917E-02 3.866E-02 -1.845E-02 -4.642E-04 -1.175E-02 0.000E+00 0.000E+00 0.000E+00 -8.525E-04 3.048E-02 1.740E-02 -1.797E-02 1.000E-04 5.495E-03 0.000E+00 0.000E+00 0.000E+00 2.779E-03 3.651E-02 2.924E-03 1.799E-02 1.289E-05 7.690E-03 0.000E+00 0.000E+00 0.000E+00 -1.400E-03 1.090E-02 1.461E-02 1.728E-02 -4.909E-04 -1.304E-02 0.000E+00 0.000E+00 0.000E+00 2.527E-04 2.385E-02 1.743E-02 -2.895E-04 -1.948E-04 -2.649E-03 0.000E+00 0.000E+00 0.000E+00 0 331 8 -7.217E-05 5.740E-03 4.302E-03 -6.570E-03 -1.896E-04 8.920E-06 0.000E+00 0.000E+00 0.000E+00 1.030E-04 1.078E-02 -1.550E-04 -6.446E-03 -5.787E-05 5.299E-03 0.000E+00 0.000E+00 0.000E+00 1.924E-03 1.380E-02 -2.443E-03 5.779E-03 -5.697E-04 5.011E-03 0.000E+00 0.000E+00 0.000E+00 -1.202E-03 3.380E-03 -2.438E-03 5.594E-03 -6.760E-04 -9.400E-04 0.000E+00 0.000E+00 0.000E+00 5.754E-05 8.295E-03 -4.884E-04 -4.108E-04 -3.690E-04 2.438E-03 0.000E+00 0.000E+00 0.000E+00 0 331 9 -3.329E-04 1.823E-03 -1.693E-03 -2.180E-03 -7.076E-05 1.540E-03 0.000E+00 0.000E+00 0.000E+00 9.681E-05 3.781E-03 -2.219E-03 -2.155E-03 -5.228E-05 3.016E-03 0.000E+00 0.000E+00 0.000E+00 9.427E-04 5.145E-03 -1.832E-03 1.679E-03 -3.890E-04 2.479E-03 0.000E+00 0.000E+00 0.000E+00 -5.279E-04 1.381E-03 -2.970E-03 1.642E-03 -4.007E-04 9.599E-04 0.000E+00 0.000E+00 0.000E+00 8.509E-06 2.996E-03 -2.263E-03 -2.532E-04 -2.274E-04 2.031E-03 0.000E+00 0.000E+00 0.000E+00 0 331 10 -2.391E-04 6.098E-04 -1.724E-03 -6.706E-04 -2.307E-05 1.098E-03 0.000E+00 0.000E+00 0.000E+00 3.013E-05 1.316E-03 -1.532E-03 -6.694E-04 -2.774E-05 1.447E-03 0.000E+00 0.000E+00 0.000E+00 4.081E-04 1.900E-03 -9.095E-04 4.231E-04 -1.978E-04 1.086E-03 0.000E+00 0.000E+00 0.000E+00 -1.786E-04 6.579E-04 -1.623E-03 4.213E-04 -1.930E-04 7.803E-04 0.000E+00 0.000E+00 0.000E+00 -2.347E-06 1.113E-03 -1.465E-03 -1.239E-04 -1.105E-04 1.113E-03 0.000E+00 0.000E+00 0.000E+00 0 331 0.0000 1.080E+00 1.839E-01 1.016E+01 -1.411E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -7.199E-01 -1.426E+00 5.767E+00 -9.105E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.134E+00 -2.244E+00 3.039E+00 4.103E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.093E+00 -3.034E-01 8.520E+00 3.353E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 5.098E-02 -9.763E-01 6.803E+00 1.284E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 331 7.1000 9.969E-01 2.203E-02 9.276E+00 -8.833E-02 -3.389E-03 -2.377E+00 0.000E+00 0.000E+00 0.000E+00 -6.574E-01 -1.489E+00 5.273E+00 -4.342E-02 1.561E-02 -1.687E+00 0.000E+00 0.000E+00 0.000E+00 -1.055E+00 -2.265E+00 2.776E+00 3.359E-01 1.260E-01 -1.330E+00 0.000E+00 0.000E+00 0.000E+00 1.005E+00 -4.190E-01 7.797E+00 2.685E-01 1.081E-01 -2.323E+00 0.000E+00 0.000E+00 0.000E+00 4.650E-02 -1.064E+00 6.220E+00 1.182E-01 6.208E-02 -1.926E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 252 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 334 0 4.070E-03 -1.382E-02 3.101E-02 1.115E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.089E-03 -3.018E-02 2.350E-02 1.146E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.979E-03 -3.607E-02 6.735E-03 -1.154E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.557E-03 -1.174E-02 1.752E-02 -1.199E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.025E-04 -2.294E-02 1.971E-02 -2.295E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 334 1 2.851E-02 -5.626E-01 8.463E-02 2.471E-02 4.463E-04 -1.092E+00 0.000E+00 0.000E+00 0.000E+00 1.496E-02 -5.959E-01 7.279E-02 2.362E-02 -4.120E-04 -1.085E+00 0.000E+00 0.000E+00 0.000E+00 -3.239E-02 -6.323E-01 -1.102E-03 -2.585E-02 0.000E+00 -1.070E+00 0.000E+00 0.000E+00 0.000E+00 -1.193E-02 -5.821E-01 1.697E-02 -2.421E-02 1.194E-03 -1.080E+00 0.000E+00 0.000E+00 0.000E+00 -2.177E-04 -5.932E-01 4.332E-02 -4.311E-04 3.128E-04 -1.082E+00 0.000E+00 0.000E+00 0.000E+00 0 334 2 2.403E-01 -2.167E+00 -5.867E-01 1.088E-01 6.409E-03 -1.422E+00 0.000E+00 0.000E+00 0.000E+00 -7.498E-02 -2.547E+00 -1.258E+00 9.584E-02 -4.257E-03 -1.067E+00 0.000E+00 0.000E+00 0.000E+00 -2.783E-01 -2.621E+00 -1.301E+00 -6.614E-02 2.812E-02 -9.605E-01 0.000E+00 0.000E+00 0.000E+00 1.481E-01 -2.098E+00 -4.032E-01 -4.675E-02 4.233E-02 -1.499E+00 0.000E+00 0.000E+00 0.000E+00 9.477E-03 -2.358E+00 -8.855E-01 2.294E-02 1.817E-02 -1.236E+00 0.000E+00 0.000E+00 0.000E+00 0 334 3 4.466E-01 -1.371E+00 -1.789E+00 4.234E-02 1.526E-02 2.933E-01 0.000E+00 0.000E+00 0.000E+00 -3.419E-01 -2.141E+00 -3.648E+00 2.055E-02 -5.707E-03 1.013E+00 0.000E+00 0.000E+00 0.000E+00 -5.220E-01 -2.103E+00 -3.342E+00 6.599E-02 1.208E-01 1.083E+00 0.000E+00 0.000E+00 0.000E+00 5.088E-01 -1.100E+00 -9.098E-01 9.867E-02 1.485E-01 4.421E-03 0.000E+00 0.000E+00 0.000E+00 2.553E-02 -1.676E+00 -2.416E+00 5.689E-02 6.978E-02 6.002E-01 0.000E+00 0.000E+00 0.000E+00 0 334 4 1.656E-01 1.715E-01 -9.020E-01 -1.195E-01 6.538E-03 5.268E-01 0.000E+00 0.000E+00 0.000E+00 -1.773E-01 -5.185E-02 -1.822E+00 -1.280E-01 -1.197E-03 8.854E-01 0.000E+00 0.000E+00 0.000E+00 -1.805E-01 2.968E-02 -1.547E+00 1.709E-01 7.109E-02 8.310E-01 0.000E+00 0.000E+00 0.000E+00 2.310E-01 2.619E-01 -4.071E-01 1.837E-01 8.083E-02 3.140E-01 0.000E+00 0.000E+00 0.000E+00 1.201E-02 1.051E-01 -1.164E+00 2.676E-02 3.935E-02 6.393E-01 0.000E+00 0.000E+00 0.000E+00 0 334 5 2.586E-02 3.032E-01 -3.241E-01 -9.722E-02 1.015E-03 2.954E-01 0.000E+00 0.000E+00 0.000E+00 -5.995E-02 3.018E-01 -6.088E-01 -9.916E-02 2.114E-04 4.351E-01 0.000E+00 0.000E+00 0.000E+00 -1.898E-02 3.622E-01 -4.485E-01 1.119E-01 2.122E-02 3.728E-01 0.000E+00 0.000E+00 0.000E+00 6.033E-02 3.149E-01 -1.368E-01 1.148E-01 2.190E-02 1.821E-01 0.000E+00 0.000E+00 0.000E+00 3.229E-03 3.219E-01 -3.762E-01 7.578E-03 1.110E-02 3.208E-01 0.000E+00 0.000E+00 0.000E+00 0 334 6 -5.038E-03 1.587E-01 -1.145E-01 -4.662E-02 -2.985E-04 1.344E-01 0.000E+00 0.000E+00 0.000E+00 -2.105E-02 1.809E-01 -1.901E-01 -4.678E-02 2.499E-04 1.842E-01 0.000E+00 0.000E+00 0.000E+00 1.089E-02 2.145E-01 -1.100E-01 4.876E-02 3.973E-03 1.479E-01 0.000E+00 0.000E+00 0.000E+00 1.433E-02 1.606E-01 -4.465E-02 4.901E-02 3.121E-03 8.355E-02 0.000E+00 0.000E+00 0.000E+00 4.631E-04 1.793E-01 -1.132E-01 1.091E-03 1.765E-03 1.372E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 253 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 334 7 -6.562E-03 6.502E-02 -4.158E-02 -1.847E-02 -3.396E-04 5.512E-02 0.000E+00 0.000E+00 0.000E+00 -8.292E-03 7.772E-02 -6.005E-02 -1.833E-02 1.374E-04 7.162E-02 0.000E+00 0.000E+00 0.000E+00 9.160E-03 9.379E-02 -2.394E-02 1.776E-02 6.592E-05 5.456E-02 0.000E+00 0.000E+00 0.000E+00 4.051E-03 6.703E-02 -1.421E-02 1.755E-02 -5.586E-04 3.437E-02 0.000E+00 0.000E+00 0.000E+00 -1.354E-04 7.617E-02 -3.430E-02 -3.710E-04 -1.758E-04 5.376E-02 0.000E+00 0.000E+00 0.000E+00 0 334 8 -3.863E-03 2.425E-02 -1.524E-02 -6.651E-03 -1.959E-04 2.118E-02 0.000E+00 0.000E+00 0.000E+00 -3.411E-03 2.964E-02 -1.913E-02 -6.533E-03 6.723E-05 2.627E-02 0.000E+00 0.000E+00 0.000E+00 4.742E-03 3.662E-02 -4.050E-03 5.827E-03 -4.223E-04 1.904E-02 0.000E+00 0.000E+00 0.000E+00 1.461E-03 2.592E-02 -4.290E-03 5.650E-03 -7.360E-04 1.318E-02 0.000E+00 0.000E+00 0.000E+00 -1.696E-04 2.920E-02 -1.045E-02 -4.267E-04 -3.240E-04 1.985E-02 0.000E+00 0.000E+00 0.000E+00 0 334 9 -1.852E-03 8.600E-03 -5.533E-03 -2.235E-03 -9.121E-05 7.768E-03 0.000E+00 0.000E+00 0.000E+00 -1.384E-03 1.063E-02 -6.005E-03 -2.170E-03 3.378E-05 9.204E-03 0.000E+00 0.000E+00 0.000E+00 2.081E-03 1.345E-02 -9.098E-05 1.744E-03 -2.946E-04 6.334E-03 0.000E+00 0.000E+00 0.000E+00 6.043E-04 9.623E-03 -1.188E-03 1.647E-03 -4.320E-04 4.811E-03 0.000E+00 0.000E+00 0.000E+00 -1.072E-04 1.061E-02 -3.133E-03 -2.536E-04 -1.976E-04 7.005E-03 0.000E+00 0.000E+00 0.000E+00 0 334 10 -8.012E-04 2.939E-03 -1.963E-03 -6.992E-04 -3.693E-05 2.742E-03 0.000E+00 0.000E+00 0.000E+00 -5.398E-04 3.653E-03 -1.806E-03 -6.688E-04 1.784E-05 3.089E-03 0.000E+00 0.000E+00 0.000E+00 8.323E-04 4.721E-03 3.796E-04 4.630E-04 -1.508E-04 2.007E-03 0.000E+00 0.000E+00 0.000E+00 2.576E-04 3.467E-03 -2.823E-04 4.173E-04 -2.068E-04 1.687E-03 0.000E+00 0.000E+00 0.000E+00 -5.512E-05 3.703E-03 -9.001E-04 -1.219E-04 -9.504E-05 2.374E-03 0.000E+00 0.000E+00 0.000E+00 0 334 0.0000 8.929E-01 -3.380E+00 -3.665E+00 -1.044E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.770E-01 -4.762E+00 -7.517E+00 -1.502E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.010E+00 -4.638E+00 -6.771E+00 3.198E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 9.615E-01 -2.948E+00 -1.887E+00 3.885E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.993E-02 -3.924E+00 -4.941E+00 1.134E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 334 7.1000 8.370E-01 -3.376E+00 -3.301E+00 -5.482E-02 1.013E-02 2.052E-01 0.000E+00 0.000E+00 0.000E+00 -6.078E-01 -4.680E+00 -6.813E+00 -9.741E-02 -3.237E-03 8.583E-01 0.000E+00 0.000E+00 0.000E+00 -9.508E-01 -4.598E+00 -6.194E+00 2.531E-01 9.890E-02 8.026E-01 0.000E+00 0.000E+00 0.000E+00 8.770E-01 -2.980E+00 -1.719E+00 3.170E-01 1.161E-01 -1.449E-01 0.000E+00 0.000E+00 0.000E+00 4.595E-02 -3.901E+00 -4.490E+00 1.045E-01 5.553E-02 4.305E-01 0.000E+00 0.000E+00 0.000E+00 0 341 0 6.605E-03 3.708E-02 3.420E-02 1.145E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.073E-03 1.272E-02 2.296E-02 1.169E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.069E-03 1.569E-02 1.312E-02 -1.119E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.948E-03 3.183E-02 2.037E-02 -1.135E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.573E-04 2.433E-02 2.268E-02 1.493E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 254 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 341 1 3.390E-02 -3.826E-01 8.422E-02 2.681E-02 1.225E-03 -1.119E+00 0.000E+00 0.000E+00 0.000E+00 1.267E-02 -4.341E-01 6.498E-02 2.464E-02 2.403E-04 -1.106E+00 0.000E+00 0.000E+00 0.000E+00 -2.930E-02 -4.515E-01 5.192E-03 -2.506E-02 -1.793E-04 -1.099E+00 0.000E+00 0.000E+00 0.000E+00 -1.501E-02 -4.170E-01 1.839E-02 -2.361E-02 3.738E-04 -1.108E+00 0.000E+00 0.000E+00 0.000E+00 5.627E-04 -4.213E-01 4.319E-02 6.924E-04 4.215E-04 -1.108E+00 0.000E+00 0.000E+00 0.000E+00 0 341 2 3.343E-01 -8.386E-01 1.590E+00 1.286E-01 3.985E-02 -2.856E+00 0.000E+00 0.000E+00 0.000E+00 -1.578E-01 -1.455E+00 5.660E-01 1.191E-01 3.732E-02 -2.304E+00 0.000E+00 0.000E+00 0.000E+00 -2.161E-01 -1.409E+00 5.991E-01 -8.533E-02 1.678E-03 -2.407E+00 0.000E+00 0.000E+00 0.000E+00 7.890E-02 -1.031E+00 1.205E+00 -7.900E-02 2.029E-03 -2.781E+00 0.000E+00 0.000E+00 0.000E+00 1.058E-02 -1.183E+00 9.915E-01 2.086E-02 2.032E-02 -2.585E+00 0.000E+00 0.000E+00 0.000E+00 0 341 3 7.075E-01 7.954E-01 4.335E+00 1.021E-01 1.379E-01 -2.456E+00 0.000E+00 0.000E+00 0.000E+00 -5.180E-01 -4.936E-01 1.539E+00 9.667E-02 1.545E-01 -1.403E+00 0.000E+00 0.000E+00 0.000E+00 -3.970E-01 -3.154E-01 1.921E+00 -7.351E-03 1.321E-02 -1.691E+00 0.000E+00 0.000E+00 0.000E+00 3.214E-01 4.454E-01 3.555E+00 -3.738E-03 -6.256E-04 -2.399E+00 0.000E+00 0.000E+00 0.000E+00 3.046E-02 1.100E-01 2.842E+00 4.692E-02 7.639E-02 -1.985E+00 0.000E+00 0.000E+00 0.000E+00 0 341 4 2.959E-01 6.486E-01 2.116E+00 -7.423E-02 7.507E-02 -7.413E-01 0.000E+00 0.000E+00 0.000E+00 -2.269E-01 2.392E-01 7.831E-01 -7.214E-02 9.018E-02 -2.649E-01 0.000E+00 0.000E+00 0.000E+00 -1.506E-01 2.638E-01 9.525E-01 1.162E-01 8.505E-03 -4.250E-01 0.000E+00 0.000E+00 0.000E+00 1.386E-01 4.774E-01 1.703E+00 1.148E-01 -2.291E-03 -7.334E-01 0.000E+00 0.000E+00 0.000E+00 1.590E-02 4.089E-01 1.393E+00 2.115E-02 4.298E-02 -5.408E-01 0.000E+00 0.000E+00 0.000E+00 0 341 5 7.038E-02 2.131E-01 5.931E-01 -7.152E-02 2.045E-02 -1.765E-01 0.000E+00 0.000E+00 0.000E+00 -5.320E-02 1.811E-01 2.133E-01 -6.901E-02 2.672E-02 -8.602E-03 0.000E+00 0.000E+00 0.000E+00 -2.859E-02 1.584E-01 2.454E-01 8.268E-02 2.493E-03 -7.636E-02 0.000E+00 0.000E+00 0.000E+00 2.763E-02 1.537E-01 4.376E-01 8.100E-02 -1.448E-03 -1.783E-01 0.000E+00 0.000E+00 0.000E+00 5.050E-03 1.776E-01 3.746E-01 5.787E-03 1.206E-02 -1.102E-01 0.000E+00 0.000E+00 0.000E+00 0 341 6 1.125E-02 5.652E-02 1.232E-01 -3.387E-02 2.973E-03 -3.285E-02 0.000E+00 0.000E+00 0.000E+00 -8.603E-03 7.762E-02 3.595E-02 -3.262E-02 4.908E-03 2.193E-02 0.000E+00 0.000E+00 0.000E+00 -1.153E-03 6.302E-02 3.900E-02 3.521E-02 3.734E-04 -4.304E-03 0.000E+00 0.000E+00 0.000E+00 1.810E-03 3.869E-02 7.322E-02 3.437E-02 -6.331E-04 -3.542E-02 0.000E+00 0.000E+00 0.000E+00 1.304E-03 5.944E-02 6.896E-02 7.739E-04 1.893E-03 -1.290E-02 0.000E+00 0.000E+00 0.000E+00 0 341 7 1.898E-04 1.461E-02 1.620E-02 -1.282E-02 -4.907E-04 -1.731E-03 0.000E+00 0.000E+00 0.000E+00 -6.133E-04 2.860E-02 -4.681E-04 -1.236E-02 1.311E-05 1.496E-02 0.000E+00 0.000E+00 0.000E+00 1.957E-03 2.315E-02 1.667E-04 1.214E-02 -4.364E-05 5.314E-03 0.000E+00 0.000E+00 0.000E+00 -1.163E-03 1.017E-02 2.747E-03 1.183E-02 -2.313E-04 -3.530E-03 0.000E+00 0.000E+00 0.000E+00 2.846E-04 1.932E-02 5.108E-03 -3.036E-04 -1.960E-04 3.639E-03 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 255 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 341 8 -9.722E-04 3.915E-03 -2.208E-03 -4.376E-03 -6.759E-04 2.607E-03 0.000E+00 0.000E+00 0.000E+00 2.777E-04 9.962E-03 -4.089E-03 -4.236E-03 -5.697E-04 7.308E-03 0.000E+00 0.000E+00 0.000E+00 1.300E-03 8.448E-03 -3.230E-03 3.713E-03 -6.125E-05 3.863E-03 0.000E+00 0.000E+00 0.000E+00 -7.107E-04 3.238E-03 -4.724E-03 3.619E-03 -7.330E-05 1.574E-03 0.000E+00 0.000E+00 0.000E+00 4.097E-05 6.458E-03 -3.406E-03 -3.199E-04 -3.484E-04 3.793E-03 0.000E+00 0.000E+00 0.000E+00 0 341 9 -6.455E-04 1.107E-03 -3.088E-03 -1.393E-03 -4.007E-04 1.936E-03 0.000E+00 0.000E+00 0.000E+00 1.826E-04 3.371E-03 -2.592E-03 -1.358E-03 -3.890E-04 3.124E-03 0.000E+00 0.000E+00 0.000E+00 6.225E-04 3.098E-03 -1.870E-03 1.024E-03 -3.069E-05 1.913E-03 0.000E+00 0.000E+00 0.000E+00 -2.668E-04 1.251E-03 -2.987E-03 1.001E-03 -1.897E-05 1.404E-03 0.000E+00 0.000E+00 0.000E+00 -6.060E-06 2.227E-03 -2.586E-03 -1.816E-04 -2.110E-04 2.078E-03 0.000E+00 0.000E+00 0.000E+00 0 341 10 -3.193E-04 3.298E-04 -1.764E-03 -4.146E-04 -1.930E-04 9.913E-04 0.000E+00 0.000E+00 0.000E+00 7.158E-05 1.115E-03 -1.246E-03 -4.084E-04 -1.978E-04 1.237E-03 0.000E+00 0.000E+00 0.000E+00 2.644E-04 1.135E-03 -8.021E-04 2.461E-04 -1.141E-05 8.164E-04 0.000E+00 0.000E+00 0.000E+00 -7.625E-05 5.316E-04 -1.334E-03 2.420E-04 -2.834E-06 7.381E-04 0.000E+00 0.000E+00 0.000E+00 -9.393E-06 7.833E-04 -1.274E-03 -8.373E-05 -1.016E-04 9.407E-04 0.000E+00 0.000E+00 0.000E+00 0 341 0.0000 1.458E+00 5.495E-01 8.885E+00 7.033E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -9.560E-01 -1.829E+00 3.217E+00 6.000E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -8.226E-01 -1.639E+00 3.769E+00 1.223E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 5.540E-01 -2.857E-01 7.005E+00 1.292E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.453E-02 -7.950E-01 5.734E+00 9.544E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 341 7.1000 1.349E+00 3.833E-01 8.141E+00 9.795E-02 1.081E-01 -2.205E+00 0.000E+00 0.000E+00 0.000E+00 -8.765E-01 -1.848E+00 2.955E+00 8.700E-02 1.260E-01 -1.306E+00 0.000E+00 0.000E+00 0.000E+00 -7.667E-01 -1.663E+00 3.452E+00 8.021E-02 1.081E-02 -1.580E+00 0.000E+00 0.000E+00 0.000E+00 5.084E-01 -3.838E-01 6.424E+00 8.752E-02 -2.300E-03 -2.166E+00 0.000E+00 0.000E+00 0.000E+00 5.881E-02 -8.725E-01 5.255E+00 8.818E-02 6.079E-02 -1.813E+00 0.000E+00 0.000E+00 0.000E+00 0 344 0 6.282E-03 -7.713E-03 1.925E-02 1.123E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.078E-03 -3.164E-02 8.636E-03 1.169E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.592E-03 -3.523E-02 -2.829E-03 -1.091E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.207E-03 -1.939E-02 3.993E-03 -1.122E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.227E-05 -2.350E-02 7.245E-03 1.979E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 344 1 3.300E-02 -4.773E-01 6.189E-02 2.596E-02 1.194E-03 -1.090E+00 0.000E+00 0.000E+00 0.000E+00 1.262E-02 -5.272E-01 4.392E-02 2.438E-02 0.000E+00 -1.079E+00 0.000E+00 0.000E+00 0.000E+00 -2.995E-02 -5.593E-01 -2.041E-02 -2.486E-02 -3.586E-04 -1.066E+00 0.000E+00 0.000E+00 0.000E+00 -1.626E-02 -5.259E-01 -8.153E-03 -2.381E-02 3.586E-04 -1.074E+00 0.000E+00 0.000E+00 0.000E+00 -1.421E-04 -5.224E-01 1.934E-02 4.196E-04 2.918E-04 -1.077E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 256 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 344 2 3.212E-01 -1.694E+00 -2.300E-01 1.272E-01 4.233E-02 -1.560E+00 0.000E+00 0.000E+00 0.000E+00 -1.241E-01 -2.262E+00 -1.147E+00 1.176E-01 2.812E-02 -1.035E+00 0.000E+00 0.000E+00 0.000E+00 -2.104E-01 -2.284E+00 -1.134E+00 -8.636E-02 -3.265E-03 -9.416E-01 0.000E+00 0.000E+00 0.000E+00 5.360E-02 -1.938E+00 -5.993E-01 -7.993E-02 4.898E-03 -1.295E+00 0.000E+00 0.000E+00 0.000E+00 6.855E-03 -2.048E+00 -7.850E-01 1.963E-02 1.788E-02 -1.207E+00 0.000E+00 0.000E+00 0.000E+00 0 344 3 6.445E-01 -7.832E-01 -7.741E-01 1.034E-01 1.485E-01 6.472E-02 0.000E+00 0.000E+00 0.000E+00 -4.536E-01 -1.944E+00 -3.274E+00 9.468E-02 1.208E-01 1.069E+00 0.000E+00 0.000E+00 0.000E+00 -3.557E-01 -1.788E+00 -2.851E+00 -9.361E-03 -4.204E-03 1.131E+00 0.000E+00 0.000E+00 0.000E+00 2.784E-01 -1.112E+00 -1.413E+00 -3.532E-03 1.136E-02 4.600E-01 0.000E+00 0.000E+00 0.000E+00 1.883E-02 -1.416E+00 -2.100E+00 4.631E-02 6.885E-02 6.830E-01 0.000E+00 0.000E+00 0.000E+00 0 344 4 2.470E-01 2.992E-01 -3.911E-01 -7.160E-02 8.083E-02 4.091E-01 0.000E+00 0.000E+00 0.000E+00 -2.142E-01 -4.896E-02 -1.581E+00 -7.443E-02 7.109E-02 8.646E-01 0.000E+00 0.000E+00 0.000E+00 -1.129E-01 7.122E-02 -1.281E+00 1.142E-01 -6.533E-04 8.160E-01 0.000E+00 0.000E+00 0.000E+00 1.366E-01 2.453E-01 -6.236E-01 1.160E-01 4.378E-03 5.226E-01 0.000E+00 0.000E+00 0.000E+00 8.703E-03 1.363E-01 -9.817E-01 2.104E-02 3.879E-02 6.545E-01 0.000E+00 0.000E+00 0.000E+00 0 344 5 4.508E-02 2.793E-01 -1.520E-01 -7.003E-02 2.190E-02 2.240E-01 0.000E+00 0.000E+00 0.000E+00 -6.065E-02 2.649E-01 -4.902E-01 -7.078E-02 2.122E-02 3.847E-01 0.000E+00 0.000E+00 0.000E+00 -6.366E-03 3.242E-01 -3.469E-01 8.159E-02 3.285E-04 3.313E-01 0.000E+00 0.000E+00 0.000E+00 3.917E-02 3.088E-01 -1.796E-01 8.209E-02 3.388E-04 2.338E-01 0.000E+00 0.000E+00 0.000E+00 2.195E-03 2.922E-01 -2.971E-01 5.719E-03 1.091E-02 2.944E-01 0.000E+00 0.000E+00 0.000E+00 0 344 6 -6.738E-04 1.256E-01 -5.966E-02 -3.341E-02 3.121E-03 9.505E-02 0.000E+00 0.000E+00 0.000E+00 -1.635E-02 1.509E-01 -1.372E-01 -3.343E-02 3.973E-03 1.476E-01 0.000E+00 0.000E+00 0.000E+00 1.013E-02 1.775E-01 -7.497E-02 3.490E-02 2.592E-04 1.183E-01 0.000E+00 0.000E+00 0.000E+00 1.095E-02 1.510E-01 -4.572E-02 3.492E-02 -3.598E-04 8.833E-02 0.000E+00 0.000E+00 0.000E+00 2.686E-04 1.505E-01 -8.114E-02 7.440E-04 1.748E-03 1.127E-01 0.000E+00 0.000E+00 0.000E+00 0 344 7 -5.064E-03 4.576E-02 -2.333E-02 -1.276E-02 -5.593E-04 3.627E-02 0.000E+00 0.000E+00 0.000E+00 -5.055E-03 6.063E-02 -3.816E-02 -1.263E-02 6.592E-05 5.233E-02 0.000E+00 0.000E+00 0.000E+00 7.046E-03 7.186E-02 -1.282E-02 1.212E-02 1.273E-04 3.955E-02 0.000E+00 0.000E+00 0.000E+00 3.640E-03 5.855E-02 -1.087E-02 1.204E-02 -2.465E-04 3.098E-02 0.000E+00 0.000E+00 0.000E+00 -1.033E-04 5.895E-02 -2.186E-02 -3.102E-04 -1.485E-04 3.994E-02 0.000E+00 0.000E+00 0.000E+00 0 344 8 -3.117E-03 1.524E-02 -8.868E-03 -4.410E-03 -7.360E-04 1.298E-02 0.000E+00 0.000E+00 0.000E+00 -1.771E-03 2.142E-02 -1.056E-02 -4.306E-03 -4.223E-04 1.753E-02 0.000E+00 0.000E+00 0.000E+00 3.368E-03 2.587E-02 -8.740E-04 3.754E-03 5.702E-05 1.254E-02 0.000E+00 0.000E+00 0.000E+00 1.375E-03 2.065E-02 -2.299E-03 3.685E-03 -1.084E-04 1.029E-02 0.000E+00 0.000E+00 0.000E+00 -1.108E-04 2.072E-02 -5.825E-03 -3.193E-04 -2.987E-04 1.339E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 257 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 344 9 -1.458E-03 4.811E-03 -3.250E-03 -1.426E-03 -4.320E-04 4.424E-03 0.000E+00 0.000E+00 0.000E+00 -6.510E-04 7.073E-03 -2.823E-03 -1.369E-03 -2.946E-04 5.585E-03 0.000E+00 0.000E+00 0.000E+00 1.388E-03 8.731E-03 6.641E-04 1.057E-03 2.555E-05 3.773E-03 0.000E+00 0.000E+00 0.000E+00 5.351E-04 6.908E-03 -3.555E-04 1.018E-03 -3.885E-05 3.263E-03 0.000E+00 0.000E+00 0.000E+00 -6.660E-05 6.861E-03 -1.488E-03 -1.801E-04 -1.829E-04 4.279E-03 0.000E+00 0.000E+00 0.000E+00 0 344 10 -6.048E-04 1.454E-03 -1.145E-03 -4.337E-04 -2.068E-04 1.445E-03 0.000E+00 0.000E+00 0.000E+00 -2.378E-04 2.224E-03 -6.905E-04 -4.068E-04 -1.508E-04 1.691E-03 0.000E+00 0.000E+00 0.000E+00 5.238E-04 2.806E-03 4.889E-04 2.636E-04 1.158E-05 1.070E-03 0.000E+00 0.000E+00 0.000E+00 2.032E-04 2.217E-03 9.027E-06 2.457E-04 -1.162E-05 9.863E-04 0.000E+00 0.000E+00 0.000E+00 -3.331E-05 2.171E-03 -3.446E-04 -8.279E-05 -8.835E-05 1.303E-03 0.000E+00 0.000E+00 0.000E+00 0 344 0.0000 1.286E+00 -2.191E+00 -1.562E+00 7.378E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -8.681E-01 -4.306E+00 -6.628E+00 5.099E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.975E-01 -3.984E+00 -5.724E+00 1.164E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 5.104E-01 -2.802E+00 -2.879E+00 1.315E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.635E-02 -3.342E+00 -4.248E+00 9.317E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 344 7.1000 1.199E+00 -2.230E+00 -1.397E+00 1.007E-01 1.161E-01 -6.105E-02 0.000E+00 0.000E+00 0.000E+00 -7.889E-01 -4.220E+00 -6.032E+00 7.913E-02 9.890E-02 7.969E-01 0.000E+00 0.000E+00 0.000E+00 -6.596E-01 -3.947E+00 -5.252E+00 7.496E-02 -2.138E-03 7.537E-01 0.000E+00 0.000E+00 0.000E+00 4.609E-01 -2.825E+00 -2.639E+00 8.932E-02 7.084E-03 1.971E-01 0.000E+00 0.000E+00 0.000E+00 3.347E-02 -3.325E+00 -3.875E+00 8.602E-02 5.479E-02 4.241E-01 0.000E+00 0.000E+00 0.000E+00 0 351 0 2.391E-03 3.053E-02 1.982E-02 1.029E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.522E-03 1.697E-02 1.367E-02 1.068E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.684E-03 9.072E-03 4.070E-03 -8.237E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 5.039E-03 2.927E-02 1.295E-02 -8.824E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.923E-05 2.145E-02 1.261E-02 9.789E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 351 1 2.571E-02 -3.220E-01 5.912E-02 2.384E-02 3.723E-04 -1.119E+00 0.000E+00 0.000E+00 0.000E+00 1.409E-02 -3.503E-01 4.857E-02 2.289E-02 -1.808E-04 -1.109E+00 0.000E+00 0.000E+00 0.000E+00 -2.836E-02 -3.915E-01 -1.039E-02 -1.919E-02 2.460E-04 -1.095E+00 0.000E+00 0.000E+00 0.000E+00 -1.074E-02 -3.489E-01 5.749E-03 -1.776E-02 9.861E-04 -1.110E+00 0.000E+00 0.000E+00 0.000E+00 1.960E-04 -3.531E-01 2.578E-02 2.448E-03 3.481E-04 -1.108E+00 0.000E+00 0.000E+00 0.000E+00 0 351 2 2.007E-01 -7.470E-01 1.326E+00 8.299E-02 2.053E-03 -2.863E+00 0.000E+00 0.000E+00 0.000E+00 -6.634E-02 -1.059E+00 7.490E-01 8.670E-02 1.717E-03 -2.472E+00 0.000E+00 0.000E+00 0.000E+00 -2.188E-01 -1.272E+00 2.918E-01 -2.536E-02 2.720E-02 -2.212E+00 0.000E+00 0.000E+00 0.000E+00 1.208E-01 -8.641E-01 1.016E+00 -3.095E-02 2.898E-02 -2.799E+00 0.000E+00 0.000E+00 0.000E+00 5.500E-03 -9.893E-01 8.372E-01 2.835E-02 1.502E-02 -2.585E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 258 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 351 3 3.760E-01 5.730E-01 3.609E+00 1.936E-02 -6.845E-04 -2.416E+00 0.000E+00 0.000E+00 0.000E+00 -2.931E-01 -7.294E-02 2.024E+00 4.052E-02 1.309E-02 -1.660E+00 0.000E+00 0.000E+00 0.000E+00 -3.961E-01 -3.757E-01 1.067E+00 1.094E-01 1.106E-01 -1.241E+00 0.000E+00 0.000E+00 0.000E+00 4.205E-01 4.058E-01 3.007E+00 7.767E-02 9.857E-02 -2.367E+00 0.000E+00 0.000E+00 0.000E+00 1.590E-02 1.215E-01 2.401E+00 6.174E-02 5.576E-02 -1.919E+00 0.000E+00 0.000E+00 0.000E+00 0 351 4 1.484E-01 5.001E-01 1.713E+00 -9.562E-02 -2.278E-03 -6.542E-01 0.000E+00 0.000E+00 0.000E+00 -1.299E-01 3.121E-01 9.733E-01 -8.439E-02 8.534E-03 -3.304E-01 0.000E+00 0.000E+00 0.000E+00 -1.366E-01 2.382E-01 5.383E-01 1.468E-01 6.055E-02 -1.824E-01 0.000E+00 0.000E+00 0.000E+00 1.741E-01 4.136E-01 1.399E+00 1.299E-01 5.005E-02 -6.480E-01 0.000E+00 0.000E+00 0.000E+00 7.963E-03 3.600E-01 1.142E+00 2.417E-02 2.949E-02 -4.521E-01 0.000E+00 0.000E+00 0.000E+00 0 351 5 3.137E-02 1.624E-01 4.413E-01 -6.806E-02 -1.452E-03 -1.223E-01 0.000E+00 0.000E+00 0.000E+00 -2.829E-02 1.591E-01 2.457E-01 -6.468E-02 2.489E-03 -2.303E-02 0.000E+00 0.000E+00 0.000E+00 -1.809E-02 1.637E-01 1.283E-01 7.809E-02 1.477E-02 9.130E-03 0.000E+00 0.000E+00 0.000E+00 3.215E-02 1.293E-01 3.302E-01 7.300E-02 1.088E-02 -1.251E-01 0.000E+00 0.000E+00 0.000E+00 2.203E-03 1.515E-01 2.815E-01 4.588E-03 6.772E-03 -6.448E-02 0.000E+00 0.000E+00 0.000E+00 0 351 6 3.317E-03 4.220E-02 7.472E-02 -2.779E-02 -6.338E-04 -1.220E-02 0.000E+00 0.000E+00 0.000E+00 -3.781E-03 5.689E-02 3.637E-02 -2.696E-02 3.718E-04 1.500E-02 0.000E+00 0.000E+00 0.000E+00 3.058E-03 6.640E-02 1.402E-02 2.792E-02 1.240E-03 1.889E-02 0.000E+00 0.000E+00 0.000E+00 1.564E-03 3.223E-02 4.322E-02 2.668E-02 2.604E-04 -1.519E-02 0.000E+00 0.000E+00 0.000E+00 4.383E-04 4.883E-02 4.068E-02 -3.678E-05 3.349E-04 1.965E-03 0.000E+00 0.000E+00 0.000E+00 0 351 7 -8.457E-04 1.091E-02 3.064E-03 -8.994E-03 -2.316E-04 4.144E-03 0.000E+00 0.000E+00 0.000E+00 -9.520E-05 1.836E-02 -1.886E-03 -8.828E-03 -4.373E-05 1.089E-02 0.000E+00 0.000E+00 0.000E+00 3.066E-03 2.322E-02 -3.369E-03 8.007E-03 -7.587E-04 9.985E-03 0.000E+00 0.000E+00 0.000E+00 -1.307E-03 8.792E-03 -3.522E-03 7.759E-03 -9.353E-04 2.243E-03 0.000E+00 0.000E+00 0.000E+00 5.431E-05 1.517E-02 -1.778E-03 -5.140E-04 -4.874E-04 6.929E-03 0.000E+00 0.000E+00 0.000E+00 0 351 8 -8.116E-04 3.003E-03 -4.825E-03 -2.538E-03 -7.328E-05 3.759E-03 0.000E+00 0.000E+00 0.000E+00 1.287E-04 5.714E-03 -4.402E-03 -2.518E-03 -6.120E-05 5.179E-03 0.000E+00 0.000E+00 0.000E+00 1.429E-03 7.696E-03 -2.931E-03 1.918E-03 -5.585E-04 4.186E-03 0.000E+00 0.000E+00 0.000E+00 -6.641E-04 2.947E-03 -5.159E-03 1.888E-03 -5.701E-04 2.763E-03 0.000E+00 0.000E+00 0.000E+00 -8.324E-06 4.811E-03 -4.397E-03 -3.125E-04 -3.155E-04 4.004E-03 0.000E+00 0.000E+00 0.000E+00 0 351 9 -4.247E-04 8.822E-04 -3.145E-03 -6.296E-04 -1.897E-05 1.928E-03 0.000E+00 0.000E+00 0.000E+00 4.218E-05 1.744E-03 -2.450E-03 -6.335E-04 -3.068E-05 2.120E-03 0.000E+00 0.000E+00 0.000E+00 5.503E-04 2.489E-03 -1.329E-03 3.506E-04 -2.587E-04 1.577E-03 0.000E+00 0.000E+00 0.000E+00 -2.072E-04 1.139E-03 -2.505E-03 3.566E-04 -2.495E-04 1.462E-03 0.000E+00 0.000E+00 0.000E+00 -1.121E-05 1.562E-03 -2.361E-03 -1.390E-04 -1.398E-04 1.779E-03 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 259 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 351 10 -1.884E-04 2.700E-04 -1.447E-03 -1.276E-04 -2.832E-06 8.252E-04 0.000E+00 0.000E+00 0.000E+00 1.740E-06 5.220E-04 -1.065E-03 -1.321E-04 -1.141E-05 7.973E-04 0.000E+00 0.000E+00 0.000E+00 1.939E-04 7.903E-04 -4.968E-04 2.034E-05 -1.015E-04 5.544E-04 0.000E+00 0.000E+00 0.000E+00 -4.460E-05 4.589E-04 -9.605E-04 2.711E-05 -9.519E-05 6.235E-04 0.000E+00 0.000E+00 0.000E+00 -6.729E-06 5.129E-04 -9.861E-04 -5.307E-05 -5.304E-05 7.011E-04 0.000E+00 0.000E+00 0.000E+00 0 351 0.0000 7.856E-01 2.543E-01 7.237E+00 -6.727E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.108E-01 -9.112E-01 4.081E+00 -2.735E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -7.934E-01 -1.528E+00 2.025E+00 3.197E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.411E-01 -1.895E-01 5.802E+00 2.598E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.228E-02 -6.171E-01 4.731E+00 1.212E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 351 7.1000 7.300E-01 1.330E-01 6.645E+00 -3.506E-02 -2.312E-03 -2.100E+00 0.000E+00 0.000E+00 0.000E+00 -4.670E-01 -9.638E-01 3.752E+00 1.057E-03 1.079E-02 -1.492E+00 0.000E+00 0.000E+00 0.000E+00 -7.426E-01 -1.550E+00 1.855E+00 2.697E-01 8.373E-02 -1.184E+00 0.000E+00 0.000E+00 0.000E+00 6.824E-01 -2.759E-01 5.330E+00 2.155E-01 7.183E-02 -2.069E+00 0.000E+00 0.000E+00 0.000E+00 2.954E-02 -6.856E-01 4.346E+00 1.128E-01 4.136E-02 -1.708E+00 0.000E+00 0.000E+00 0.000E+00 0 354 0 4.630E-03 -1.374E-02 6.415E-03 1.036E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.014E-03 -2.688E-02 7.479E-04 1.031E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.693E-03 -3.109E-02 -8.590E-03 -8.444E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.704E-03 -1.144E-02 -2.491E-04 -8.373E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.595E-04 -2.078E-02 -4.122E-04 9.638E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 354 1 3.022E-02 -4.175E-01 3.833E-02 2.365E-02 3.586E-04 -1.083E+00 0.000E+00 0.000E+00 0.000E+00 1.874E-02 -4.457E-01 2.829E-02 2.189E-02 -3.586E-04 -1.075E+00 0.000E+00 0.000E+00 0.000E+00 -3.259E-02 -4.794E-01 -3.275E-02 -1.998E-02 6.104E-05 -1.063E+00 0.000E+00 0.000E+00 0.000E+00 -1.514E-02 -4.368E-01 -1.714E-02 -1.733E-02 9.823E-04 -1.076E+00 0.000E+00 0.000E+00 0.000E+00 3.011E-04 -4.448E-01 4.169E-03 2.058E-03 2.651E-04 -1.074E+00 0.000E+00 0.000E+00 0.000E+00 0 354 2 2.029E-01 -1.590E+00 -4.500E-01 8.857E-02 4.898E-03 -1.365E+00 0.000E+00 0.000E+00 0.000E+00 -3.501E-02 -1.874E+00 -9.584E-01 7.593E-02 -3.265E-03 -9.978E-01 0.000E+00 0.000E+00 0.000E+00 -2.250E-01 -1.938E+00 -9.806E-01 -4.130E-02 2.054E-02 -9.196E-01 0.000E+00 0.000E+00 0.000E+00 8.319E-02 -1.560E+00 -3.315E-01 -2.235E-02 3.082E-02 -1.476E+00 0.000E+00 0.000E+00 0.000E+00 7.639E-03 -1.739E+00 -6.775E-01 2.521E-02 1.328E-02 -1.188E+00 0.000E+00 0.000E+00 0.000E+00 0 354 3 3.376E-01 -9.735E-01 -1.354E+00 3.567E-02 1.135E-02 4.363E-01 0.000E+00 0.000E+00 0.000E+00 -2.487E-01 -1.538E+00 -2.744E+00 1.646E-02 -4.204E-03 1.152E+00 0.000E+00 0.000E+00 0.000E+00 -3.766E-01 -1.474E+00 -2.402E+00 7.160E-02 8.653E-02 1.199E+00 0.000E+00 0.000E+00 0.000E+00 3.507E-01 -7.795E-01 -6.722E-01 1.004E-01 1.062E-01 1.271E-01 0.000E+00 0.000E+00 0.000E+00 1.931E-02 -1.188E+00 -1.785E+00 5.604E-02 5.004E-02 7.303E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 260 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 354 4 1.049E-01 1.714E-01 -6.553E-01 -8.845E-02 4.378E-03 5.556E-01 0.000E+00 0.000E+00 0.000E+00 -1.337E-01 2.288E-02 -1.302E+00 -9.455E-02 -6.533E-04 8.628E-01 0.000E+00 0.000E+00 0.000E+00 -1.082E-01 1.094E-01 -1.039E+00 1.305E-01 4.781E-02 8.178E-01 0.000E+00 0.000E+00 0.000E+00 1.610E-01 2.436E-01 -2.759E-01 1.396E-01 5.394E-02 3.723E-01 0.000E+00 0.000E+00 0.000E+00 8.366E-03 1.392E-01 -8.126E-01 2.179E-02 2.640E-02 6.522E-01 0.000E+00 0.000E+00 0.000E+00 0 354 5 6.385E-03 2.323E-01 -2.124E-01 -6.650E-02 3.388E-04 2.514E-01 0.000E+00 0.000E+00 0.000E+00 -4.240E-02 2.401E-01 -3.829E-01 -6.727E-02 3.285E-04 3.459E-01 0.000E+00 0.000E+00 0.000E+00 -2.348E-04 2.900E-01 -2.587E-01 7.425E-02 1.180E-02 3.003E-01 0.000E+00 0.000E+00 0.000E+00 3.941E-02 2.448E-01 -8.132E-02 7.541E-02 1.167E-02 1.711E-01 0.000E+00 0.000E+00 0.000E+00 1.804E-03 2.528E-01 -2.315E-01 3.971E-03 6.036E-03 2.669E-01 0.000E+00 0.000E+00 0.000E+00 0 354 6 -7.860E-03 1.071E-01 -6.453E-02 -2.768E-02 -3.598E-04 9.259E-02 0.000E+00 0.000E+00 0.000E+00 -1.271E-02 1.242E-01 -9.781E-02 -2.750E-02 2.593E-04 1.186E-01 0.000E+00 0.000E+00 0.000E+00 1.138E-02 1.465E-01 -4.770E-02 2.742E-02 1.064E-03 9.517E-02 0.000E+00 0.000E+00 0.000E+00 7.978E-03 1.101E-01 -2.269E-02 2.714E-02 2.534E-04 6.207E-02 0.000E+00 0.000E+00 0.000E+00 6.054E-05 1.224E-01 -5.734E-02 -1.540E-04 3.020E-04 9.191E-02 0.000E+00 0.000E+00 0.000E+00 0 354 7 -5.200E-03 3.792E-02 -1.970E-02 -9.091E-03 -2.465E-04 3.125E-02 0.000E+00 0.000E+00 0.000E+00 -4.121E-03 4.580E-02 -2.399E-02 -8.909E-03 1.273E-04 3.775E-02 0.000E+00 0.000E+00 0.000E+00 6.386E-03 5.449E-02 -5.525E-03 8.088E-03 -5.576E-04 2.833E-02 0.000E+00 0.000E+00 0.000E+00 1.815E-03 3.972E-02 -5.992E-03 7.816E-03 -1.010E-03 2.071E-02 0.000E+00 0.000E+00 0.000E+00 -1.702E-04 4.459E-02 -1.355E-02 -5.238E-04 -4.247E-04 2.944E-02 0.000E+00 0.000E+00 0.000E+00 0 354 8 -2.332E-03 1.200E-02 -6.006E-03 -2.608E-03 -1.084E-04 9.964E-03 0.000E+00 0.000E+00 0.000E+00 -1.398E-03 1.475E-02 -5.639E-03 -2.516E-03 5.702E-05 1.135E-02 0.000E+00 0.000E+00 0.000E+00 2.608E-03 1.784E-02 6.605E-04 2.017E-03 -4.236E-04 8.008E-03 0.000E+00 0.000E+00 0.000E+00 5.511E-04 1.306E-02 -1.419E-03 1.880E-03 -6.106E-04 6.563E-03 0.000E+00 0.000E+00 0.000E+00 -1.160E-04 1.444E-02 -3.039E-03 -3.066E-04 -2.732E-04 8.948E-03 0.000E+00 0.000E+00 0.000E+00 0 354 9 -8.995E-04 3.561E-03 -1.790E-03 -6.622E-04 -3.885E-05 3.025E-03 0.000E+00 0.000E+00 0.000E+00 -4.661E-04 4.405E-03 -1.190E-03 -6.244E-04 2.555E-05 3.224E-03 0.000E+00 0.000E+00 0.000E+00 9.259E-04 5.419E-03 7.993E-04 4.034E-04 -1.976E-04 2.129E-03 0.000E+00 0.000E+00 0.000E+00 2.025E-04 4.079E-03 -2.720E-04 3.468E-04 -2.657E-04 1.991E-03 0.000E+00 0.000E+00 0.000E+00 -5.545E-05 4.370E-03 -6.042E-04 -1.341E-04 -1.201E-04 2.586E-03 0.000E+00 0.000E+00 0.000E+00 0 354 10 -3.168E-04 1.004E-03 -5.109E-04 -1.405E-04 -1.162E-05 8.733E-04 0.000E+00 0.000E+00 0.000E+00 -1.465E-04 1.242E-03 -1.813E-04 -1.265E-04 1.158E-05 8.533E-04 0.000E+00 0.000E+00 0.000E+00 2.995E-04 1.548E-03 3.919E-04 4.292E-05 -7.779E-05 5.207E-04 0.000E+00 0.000E+00 0.000E+00 7.674E-05 1.223E-03 -2.619E-05 2.189E-05 -1.008E-04 5.776E-04 0.000E+00 0.000E+00 0.000E+00 -2.258E-05 1.253E-03 -8.359E-05 -5.055E-05 -4.505E-05 7.051E-04 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 261 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 354 0.0000 6.700E-01 -2.429E+00 -2.719E+00 -3.689E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.609E-01 -3.432E+00 -5.487E+00 -7.691E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -7.268E-01 -3.297E+00 -4.773E+00 2.446E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.325E-01 -2.131E+00 -1.409E+00 3.046E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.728E-02 -2.813E+00 -3.577E+00 1.089E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 354 7.1000 6.324E-01 -2.424E+00 -2.467E+00 -7.043E-03 7.081E-03 1.984E-01 0.000E+00 0.000E+00 0.000E+00 -4.132E-01 -3.372E+00 -5.005E+00 -4.466E-02 -2.138E-03 7.743E-01 0.000E+00 0.000E+00 0.000E+00 -6.880E-01 -3.271E+00 -4.392E+00 2.004E-01 6.576E-02 7.372E-01 0.000E+00 0.000E+00 0.000E+00 5.763E-01 -2.153E+00 -1.295E+00 2.568E-01 7.723E-02 -1.068E-01 0.000E+00 0.000E+00 0.000E+00 3.453E-02 -2.797E+00 -3.272E+00 1.014E-01 3.703E-02 4.013E-01 0.000E+00 0.000E+00 0.000E+00 0 361 0 3.234E-03 2.505E-02 1.115E-02 9.274E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.479E-03 7.219E-03 3.275E-03 9.491E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.665E-03 1.196E-02 1.661E-03 -7.453E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.431E-03 2.381E-02 6.803E-03 -7.597E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.328E-04 1.701E-02 5.728E-03 9.284E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 361 1 2.787E-02 -2.588E-01 4.435E-02 2.298E-02 9.861E-04 -1.120E+00 0.000E+00 0.000E+00 0.000E+00 1.127E-02 -2.991E-01 2.923E-02 2.085E-02 2.460E-04 -1.104E+00 0.000E+00 0.000E+00 0.000E+00 -2.483E-02 -3.131E-01 -1.551E-02 -1.780E-02 -1.488E-04 -1.101E+00 0.000E+00 0.000E+00 0.000E+00 -1.359E-02 -2.861E-01 -5.054E-03 -1.638E-02 2.422E-04 -1.112E+00 0.000E+00 0.000E+00 0.000E+00 1.757E-04 -2.893E-01 1.325E-02 2.414E-03 3.347E-04 -1.109E+00 0.000E+00 0.000E+00 0.000E+00 0 361 2 2.592E-01 -5.409E-01 1.154E+00 1.075E-01 2.900E-02 -2.860E+00 0.000E+00 0.000E+00 0.000E+00 -1.017E-01 -9.987E-01 4.089E-01 1.007E-01 2.723E-02 -2.285E+00 0.000E+00 0.000E+00 0.000E+00 -1.682E-01 -9.878E-01 3.717E-01 -5.840E-02 1.122E-03 -2.420E+00 0.000E+00 0.000E+00 0.000E+00 3.692E-02 -7.181E-01 7.859E-01 -5.389E-02 1.335E-03 -2.809E+00 0.000E+00 0.000E+00 0.000E+00 7.857E-03 -8.101E-01 6.831E-01 2.398E-02 1.473E-02 -2.592E+00 0.000E+00 0.000E+00 0.000E+00 0 361 3 5.139E-01 6.239E-01 3.101E+00 9.723E-02 9.853E-02 -2.351E+00 0.000E+00 0.000E+00 0.000E+00 -3.721E-01 -3.199E-01 1.091E+00 9.862E-02 1.106E-01 -1.284E+00 0.000E+00 0.000E+00 0.000E+00 -2.763E-01 -2.141E-01 1.265E+00 1.823E-03 8.827E-03 -1.597E+00 0.000E+00 0.000E+00 0.000E+00 2.110E-01 3.117E-01 2.363E+00 8.926E-04 -5.035E-04 -2.315E+00 0.000E+00 0.000E+00 0.000E+00 2.271E-02 1.040E-01 1.963E+00 4.963E-02 5.442E-02 -1.884E+00 0.000E+00 0.000E+00 0.000E+00 0 361 4 1.963E-01 4.655E-01 1.421E+00 -4.705E-02 5.006E-02 -5.655E-01 0.000E+00 0.000E+00 0.000E+00 -1.588E-01 1.865E-01 5.162E-01 -4.285E-02 6.056E-02 -1.439E-01 0.000E+00 0.000E+00 0.000E+00 -9.192E-02 2.000E-01 6.042E-01 8.261E-02 5.421E-03 -2.883E-01 0.000E+00 0.000E+00 0.000E+00 9.051E-02 3.317E-01 1.081E+00 7.981E-02 -1.560E-03 -5.634E-01 0.000E+00 0.000E+00 0.000E+00 1.104E-02 2.979E-01 9.102E-01 1.813E-02 2.867E-02 -3.898E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 262 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 361 5 3.635E-02 1.391E-01 3.344E-01 -4.764E-02 1.088E-02 -7.599E-02 0.000E+00 0.000E+00 0.000E+00 -3.269E-02 1.296E-01 1.137E-01 -4.544E-02 1.478E-02 3.951E-02 0.000E+00 0.000E+00 0.000E+00 -1.128E-02 1.165E-01 1.348E-01 5.310E-02 1.365E-03 -9.110E-03 0.000E+00 0.000E+00 0.000E+00 1.634E-02 1.044E-01 2.390E-01 5.164E-02 -9.179E-04 -7.969E-02 0.000E+00 0.000E+00 0.000E+00 2.958E-03 1.232E-01 2.073E-01 2.916E-03 6.521E-03 -3.151E-02 0.000E+00 0.000E+00 0.000E+00 0 361 6 1.649E-03 3.242E-02 4.330E-02 -2.029E-02 2.595E-04 2.601E-03 0.000E+00 0.000E+00 0.000E+00 -3.625E-03 5.081E-02 7.337E-03 -1.953E-02 1.240E-03 3.077E-02 0.000E+00 0.000E+00 0.000E+00 2.476E-03 4.391E-02 1.241E-02 1.965E-02 1.036E-04 1.526E-02 0.000E+00 0.000E+00 0.000E+00 6.370E-04 2.630E-02 2.389E-02 1.914E-02 -3.542E-04 -4.129E-04 0.000E+00 0.000E+00 0.000E+00 5.457E-04 3.862E-02 2.234E-02 -2.587E-04 3.023E-04 1.191E-02 0.000E+00 0.000E+00 0.000E+00 0 361 7 -1.928E-03 7.345E-03 -4.143E-03 -6.490E-03 -9.352E-04 7.224E-03 0.000E+00 0.000E+00 0.000E+00 2.715E-04 1.670E-02 -6.164E-03 -6.277E-03 -7.587E-04 1.347E-02 0.000E+00 0.000E+00 0.000E+00 2.189E-03 1.481E-02 -4.032E-03 5.574E-03 -6.724E-05 8.586E-03 0.000E+00 0.000E+00 0.000E+00 -6.676E-04 7.187E-03 -5.928E-03 5.432E-03 -1.070E-04 5.522E-03 0.000E+00 0.000E+00 0.000E+00 4.409E-05 1.159E-02 -4.885E-03 -4.402E-04 -4.714E-04 8.641E-03 0.000E+00 0.000E+00 0.000E+00 0 361 8 -1.169E-03 1.768E-03 -5.664E-03 -1.786E-03 -5.701E-04 3.864E-03 0.000E+00 0.000E+00 0.000E+00 3.090E-04 5.083E-03 -4.051E-03 -1.739E-03 -5.585E-04 5.014E-03 0.000E+00 0.000E+00 0.000E+00 9.874E-04 4.836E-03 -2.899E-03 1.306E-03 -4.166E-05 3.501E-03 0.000E+00 0.000E+00 0.000E+00 -2.996E-04 2.325E-03 -4.677E-03 1.274E-03 -2.501E-05 3.054E-03 0.000E+00 0.000E+00 0.000E+00 -2.341E-05 3.523E-03 -4.277E-03 -2.362E-04 -3.004E-04 3.840E-03 0.000E+00 0.000E+00 0.000E+00 0 361 9 -4.979E-04 4.612E-04 -2.796E-03 -4.355E-04 -2.495E-04 1.609E-03 0.000E+00 0.000E+00 0.000E+00 1.172E-04 1.478E-03 -1.763E-03 -4.288E-04 -2.587E-04 1.722E-03 0.000E+00 0.000E+00 0.000E+00 3.718E-04 1.554E-03 -1.183E-03 2.387E-04 -1.535E-05 1.261E-03 0.000E+00 0.000E+00 0.000E+00 -7.853E-05 8.360E-04 -1.966E-03 2.343E-04 -3.132E-06 1.263E-03 0.000E+00 0.000E+00 0.000E+00 -1.818E-05 1.086E-03 -1.918E-03 -9.780E-05 -1.321E-04 1.459E-03 0.000E+00 0.000E+00 0.000E+00 0 361 10 -1.865E-04 1.277E-04 -1.102E-03 -9.080E-05 -9.519E-05 5.965E-04 0.000E+00 0.000E+00 0.000E+00 3.255E-05 4.137E-04 -6.582E-04 -9.137E-05 -1.015E-04 5.590E-04 0.000E+00 0.000E+00 0.000E+00 1.285E-04 4.911E-04 -3.994E-04 2.031E-05 -4.267E-06 4.216E-04 0.000E+00 0.000E+00 0.000E+00 -1.049E-05 3.076E-04 -6.790E-04 2.069E-05 1.031E-06 4.601E-04 0.000E+00 0.000E+00 0.000E+00 -8.854E-06 3.352E-04 -7.094E-04 -3.529E-05 -5.008E-05 5.083E-04 0.000E+00 0.000E+00 0.000E+00 0 361 0.0000 1.035E+00 4.959E-01 6.095E+00 1.132E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.614E-01 -1.220E+00 2.157E+00 1.133E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.680E-01 -1.121E+00 2.365E+00 8.067E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.442E-01 -1.955E-01 4.481E+00 8.057E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.542E-02 -5.021E-01 3.793E+00 9.694E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 263 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 361 7.1000 9.623E-01 3.776E-01 5.610E+00 1.264E-01 7.183E-02 -1.995E+00 0.000E+00 0.000E+00 0.000E+00 -6.071E-01 -1.234E+00 1.990E+00 1.254E-01 8.374E-02 -1.171E+00 0.000E+00 0.000E+00 0.000E+00 -5.328E-01 -1.140E+00 2.170E+00 5.476E-02 6.800E-03 -1.431E+00 0.000E+00 0.000E+00 0.000E+00 3.151E-01 -2.632E-01 4.121E+00 5.539E-02 -1.445E-03 -1.973E+00 0.000E+00 0.000E+00 0.000E+00 4.161E-02 -5.577E-01 3.490E+00 9.048E-02 4.027E-02 -1.641E+00 0.000E+00 0.000E+00 0.000E+00 0 364 0 5.364E-03 -5.230E-03 2.411E-03 9.260E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.098E-03 -2.270E-02 -4.994E-03 9.285E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.947E-03 -2.471E-02 -9.851E-03 -7.393E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 9.987E-04 -1.309E-02 -4.983E-03 -7.409E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.784E-05 -1.644E-02 -4.358E-03 9.358E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 364 1 3.203E-02 -3.267E-01 3.004E-02 2.254E-02 9.823E-04 -1.085E+00 0.000E+00 0.000E+00 0.000E+00 1.626E-02 -3.654E-01 1.609E-02 2.012E-02 6.104E-05 -1.071E+00 0.000E+00 0.000E+00 0.000E+00 -2.932E-02 -3.949E-01 -3.654E-02 -1.801E-02 -2.594E-04 -1.062E+00 0.000E+00 0.000E+00 0.000E+00 -1.863E-02 -3.689E-01 -2.685E-02 -1.640E-02 2.384E-04 -1.071E+00 0.000E+00 0.000E+00 0.000E+00 1.044E-04 -3.640E-01 -4.283E-03 2.061E-03 2.460E-04 -1.072E+00 0.000E+00 0.000E+00 0.000E+00 0 364 2 2.583E-01 -1.151E+00 -1.564E-01 1.081E-01 3.082E-02 -1.520E+00 0.000E+00 0.000E+00 0.000E+00 -6.823E-02 -1.572E+00 -8.237E-01 9.629E-02 2.054E-02 -9.738E-01 0.000E+00 0.000E+00 0.000E+00 -1.717E-01 -1.597E+00 -8.035E-01 -6.133E-02 -2.220E-03 -9.091E-01 0.000E+00 0.000E+00 0.000E+00 1.207E-02 -1.350E+00 -4.375E-01 -5.347E-02 3.265E-03 -1.275E+00 0.000E+00 0.000E+00 0.000E+00 4.646E-03 -1.421E+00 -5.621E-01 2.240E-02 1.298E-02 -1.169E+00 0.000E+00 0.000E+00 0.000E+00 0 364 3 4.737E-01 -4.922E-01 -5.490E-01 1.023E-01 1.062E-01 1.718E-01 0.000E+00 0.000E+00 0.000E+00 -3.209E-01 -1.344E+00 -2.347E+00 9.058E-02 8.653E-02 1.191E+00 0.000E+00 0.000E+00 0.000E+00 -2.496E-01 -1.194E+00 -1.920E+00 -3.876E-03 -2.766E-03 1.231E+00 0.000E+00 0.000E+00 0.000E+00 1.813E-01 -7.256E-01 -9.527E-01 3.922E-03 7.526E-03 5.510E-01 0.000E+00 0.000E+00 0.000E+00 1.255E-02 -9.475E-01 -1.462E+00 4.823E-02 4.912E-02 7.879E-01 0.000E+00 0.000E+00 0.000E+00 0 364 4 1.585E-01 2.377E-01 -2.784E-01 -4.387E-02 5.394E-02 4.392E-01 0.000E+00 0.000E+00 0.000E+00 -1.551E-01 -1.068E-04 -1.086E+00 -4.643E-02 4.781E-02 8.424E-01 0.000E+00 0.000E+00 0.000E+00 -6.033E-02 1.118E-01 -8.079E-01 8.000E-02 -3.214E-04 8.055E-01 0.000E+00 0.000E+00 0.000E+00 9.695E-02 2.185E-01 -3.904E-01 8.171E-02 2.667E-03 5.437E-01 0.000E+00 0.000E+00 0.000E+00 5.592E-03 1.375E-01 -6.510E-01 1.785E-02 2.593E-02 6.588E-01 0.000E+00 0.000E+00 0.000E+00 0 364 5 1.752E-02 1.937E-01 -1.032E-01 -4.662E-02 1.167E-02 1.974E-01 0.000E+00 0.000E+00 0.000E+00 -4.123E-02 1.944E-01 -2.997E-01 -4.665E-02 1.180E-02 3.081E-01 0.000E+00 0.000E+00 0.000E+00 6.237E-03 2.420E-01 -1.884E-01 5.243E-02 2.883E-04 2.713E-01 0.000E+00 0.000E+00 0.000E+00 2.799E-02 2.242E-01 -9.799E-02 5.245E-02 4.148E-05 2.037E-01 0.000E+00 0.000E+00 0.000E+00 1.217E-03 2.122E-01 -1.756E-01 2.900E-03 5.936E-03 2.457E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 264 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 364 6 -5.804E-03 7.798E-02 -3.648E-02 -2.013E-02 2.534E-04 6.766E-02 0.000E+00 0.000E+00 0.000E+00 -9.350E-03 9.811E-02 -6.843E-02 -1.987E-02 1.064E-03 9.476E-02 0.000E+00 0.000E+00 0.000E+00 9.740E-03 1.155E-01 -2.963E-02 1.959E-02 1.948E-04 7.668E-02 0.000E+00 0.000E+00 0.000E+00 7.088E-03 9.704E-02 -2.003E-02 1.942E-02 -2.858E-04 6.153E-02 0.000E+00 0.000E+00 0.000E+00 4.071E-05 9.677E-02 -3.952E-02 -2.459E-04 3.128E-04 7.538E-02 0.000E+00 0.000E+00 0.000E+00 0 364 7 -4.566E-03 2.483E-02 -1.237E-02 -6.519E-03 -1.010E-03 2.101E-02 0.000E+00 0.000E+00 0.000E+00 -2.254E-03 3.433E-02 -1.416E-02 -6.349E-03 -5.576E-04 2.705E-02 0.000E+00 0.000E+00 0.000E+00 4.784E-03 4.024E-02 -1.503E-03 5.629E-03 8.740E-05 2.024E-02 0.000E+00 0.000E+00 0.000E+00 1.948E-03 3.261E-02 -3.328E-03 5.516E-03 -1.521E-04 1.723E-02 0.000E+00 0.000E+00 0.000E+00 -1.114E-04 3.292E-02 -8.051E-03 -4.306E-04 -4.028E-04 2.145E-02 0.000E+00 0.000E+00 0.000E+00 0 364 8 -2.025E-03 7.052E-03 -3.994E-03 -1.824E-03 -6.106E-04 6.168E-03 0.000E+00 0.000E+00 0.000E+00 -6.167E-04 1.032E-02 -2.564E-03 -1.743E-03 -4.236E-04 7.299E-03 0.000E+00 0.000E+00 0.000E+00 1.816E-03 1.221E-02 1.322E-03 1.348E-03 3.559E-05 5.062E-03 0.000E+00 0.000E+00 0.000E+00 5.964E-04 9.755E-03 -2.859E-04 1.294E-03 -5.422E-05 4.605E-03 0.000E+00 0.000E+00 0.000E+00 -7.435E-05 9.816E-03 -1.420E-03 -2.313E-04 -2.604E-04 5.803E-03 0.000E+00 0.000E+00 0.000E+00 0 364 9 -7.499E-04 1.857E-03 -1.224E-03 -4.564E-04 -2.657E-04 1.725E-03 0.000E+00 0.000E+00 0.000E+00 -1.817E-04 2.835E-03 -3.083E-04 -4.234E-04 -1.976E-04 1.845E-03 0.000E+00 0.000E+00 0.000E+00 6.072E-04 3.404E-03 7.987E-04 2.596E-04 1.419E-05 1.179E-03 0.000E+00 0.000E+00 0.000E+00 1.903E-04 2.714E-03 9.915E-05 2.376E-04 -1.520E-05 1.171E-03 0.000E+00 0.000E+00 0.000E+00 -3.496E-05 2.701E-03 -1.620E-04 -9.567E-05 -1.149E-04 1.485E-03 0.000E+00 0.000E+00 0.000E+00 0 364 10 -2.520E-04 4.564E-04 -3.549E-04 -9.979E-05 -1.008E-04 4.575E-04 0.000E+00 0.000E+00 0.000E+00 -5.314E-05 7.250E-04 3.925E-05 -8.752E-05 -7.779E-05 4.253E-04 0.000E+00 0.000E+00 0.000E+00 1.858E-04 8.821E-04 3.239E-04 2.881E-05 5.583E-06 2.444E-04 0.000E+00 0.000E+00 0.000E+00 5.934E-05 7.091E-04 7.541E-05 2.062E-05 -3.192E-06 2.786E-04 0.000E+00 0.000E+00 0.000E+00 -1.413E-05 6.941E-04 2.295E-05 -3.447E-05 -4.356E-05 3.521E-04 0.000E+00 0.000E+00 0.000E+00 0 364 0.0000 9.320E-01 -1.432E+00 -1.109E+00 1.226E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.837E-01 -2.963E+00 -4.630E+00 9.473E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.915E-01 -2.685E+00 -3.795E+00 6.867E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.105E-01 -1.872E+00 -1.934E+00 8.728E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.399E-02 -2.256E+00 -2.909E+00 9.333E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 364 7.1000 8.739E-01 -1.459E+00 -9.975E-01 1.349E-01 7.723E-02 -5.211E-02 0.000E+00 0.000E+00 0.000E+00 -5.298E-01 -2.902E+00 -4.234E+00 1.083E-01 6.576E-02 7.339E-01 0.000E+00 0.000E+00 0.000E+00 -4.684E-01 -2.663E+00 -3.500E+00 4.364E-02 -1.320E-03 7.066E-01 0.000E+00 0.000E+00 0.000E+00 2.781E-01 -1.890E+00 -1.784E+00 6.138E-02 4.486E-03 1.917E-01 0.000E+00 0.000E+00 0.000E+00 2.218E-02 -2.245E+00 -2.667E+00 8.705E-02 3.638E-02 3.969E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 265 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 371 0 3.923E-04 1.672E-02 3.764E-03 6.049E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.776E-03 9.372E-03 5.496E-04 6.275E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.268E-03 6.531E-03 -1.372E-03 -4.059E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.432E-03 1.750E-02 3.325E-03 -4.398E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.722E-05 1.253E-02 1.561E-03 9.673E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 371 1 2.175E-02 -2.036E-01 3.028E-02 1.534E-02 2.394E-04 -1.121E+00 0.000E+00 0.000E+00 0.000E+00 1.519E-02 -2.197E-01 2.451E-02 1.413E-02 -1.497E-04 -1.109E+00 0.000E+00 0.000E+00 0.000E+00 -2.355E-02 -2.512E-01 -2.094E-02 -1.028E-02 1.135E-04 -1.097E+00 0.000E+00 0.000E+00 0.000E+00 -1.353E-02 -2.269E-01 -1.185E-02 -8.476E-03 5.789E-04 -1.115E+00 0.000E+00 0.000E+00 0.000E+00 -1.907E-05 -2.253E-01 5.524E-03 2.678E-03 1.879E-04 -1.110E+00 0.000E+00 0.000E+00 0.000E+00 0 371 2 1.524E-01 -4.490E-01 9.012E-01 5.646E-02 1.337E-03 -2.865E+00 0.000E+00 0.000E+00 0.000E+00 -2.203E-02 -6.469E-01 5.179E-01 5.864E-02 1.139E-03 -2.465E+00 0.000E+00 0.000E+00 0.000E+00 -1.538E-01 -8.122E-01 1.494E-01 9.041E-04 1.645E-02 -2.225E+00 0.000E+00 0.000E+00 0.000E+00 4.698E-02 -5.761E-01 5.828E-01 -2.373E-03 1.751E-02 -2.824E+00 0.000E+00 0.000E+00 0.000E+00 2.675E-03 -6.243E-01 5.303E-01 2.841E-02 9.132E-03 -2.594E+00 0.000E+00 0.000E+00 0.000E+00 0 371 3 2.544E-01 4.127E-01 2.406E+00 1.430E-02 -5.404E-04 -2.326E+00 0.000E+00 0.000E+00 0.000E+00 -1.837E-01 1.929E-03 1.357E+00 3.171E-02 8.737E-03 -1.576E+00 0.000E+00 0.000E+00 0.000E+00 -2.379E-01 -2.126E-01 6.372E-01 1.084E-01 6.639E-02 -1.179E+00 0.000E+00 0.000E+00 0.000E+00 2.376E-01 2.221E-01 1.788E+00 8.229E-02 5.909E-02 -2.295E+00 0.000E+00 0.000E+00 0.000E+00 8.073E-03 9.646E-02 1.525E+00 5.917E-02 3.370E-02 -1.841E+00 0.000E+00 0.000E+00 0.000E+00 0 371 4 9.041E-02 3.314E-01 1.081E+00 -6.178E-02 -1.550E-03 -5.099E-01 0.000E+00 0.000E+00 0.000E+00 -8.453E-02 2.173E-01 6.116E-01 -5.282E-02 5.440E-03 -2.255E-01 0.000E+00 0.000E+00 0.000E+00 -7.023E-02 1.724E-01 3.160E-01 1.036E-01 3.475E-02 -9.505E-02 0.000E+00 0.000E+00 0.000E+00 9.985E-02 2.513E-01 8.040E-01 9.020E-02 2.858E-02 -5.078E-01 0.000E+00 0.000E+00 0.000E+00 4.096E-03 2.383E-01 6.918E-01 1.981E-02 1.700E-02 -3.333E-01 0.000E+00 0.000E+00 0.000E+00 0 371 5 1.427E-02 9.962E-02 2.369E-01 -4.140E-02 -9.195E-04 -4.479E-02 0.000E+00 0.000E+00 0.000E+00 -1.792E-02 1.010E-01 1.282E-01 -3.910E-02 1.363E-03 2.342E-02 0.000E+00 0.000E+00 0.000E+00 -3.969E-03 1.088E-01 6.715E-02 4.609E-02 7.215E-03 4.549E-02 0.000E+00 0.000E+00 0.000E+00 1.739E-02 7.972E-02 1.674E-01 4.264E-02 5.110E-03 -4.801E-02 0.000E+00 0.000E+00 0.000E+00 1.081E-03 9.593E-02 1.467E-01 2.060E-03 3.255E-03 -5.442E-03 0.000E+00 0.000E+00 0.000E+00 0 371 6 -6.906E-04 2.320E-02 2.256E-02 -1.502E-02 -3.544E-04 1.221E-02 0.000E+00 0.000E+00 0.000E+00 -2.245E-03 3.289E-02 7.686E-03 -1.462E-02 1.029E-04 2.533E-02 0.000E+00 0.000E+00 0.000E+00 4.108E-03 4.087E-02 3.574E-03 1.370E-02 -3.210E-05 2.580E-02 0.000E+00 0.000E+00 0.000E+00 6.380E-04 2.053E-02 1.235E-02 1.310E-02 -4.728E-04 9.564E-03 0.000E+00 0.000E+00 0.000E+00 1.718E-04 2.909E-02 1.089E-02 -7.065E-04 -1.774E-04 1.840E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 266 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 371 7 -1.465E-03 5.327E-03 -6.725E-03 -4.055E-03 -1.070E-04 8.897E-03 0.000E+00 0.000E+00 0.000E+00 -7.012E-05 9.541E-03 -6.291E-03 -4.021E-03 -6.725E-05 1.081E-02 0.000E+00 0.000E+00 0.000E+00 2.295E-03 1.297E-02 -3.328E-03 3.044E-03 -6.630E-04 9.332E-03 0.000E+00 0.000E+00 0.000E+00 -6.209E-04 5.827E-03 -5.904E-03 2.993E-03 -7.100E-04 7.451E-03 0.000E+00 0.000E+00 0.000E+00 -1.227E-06 8.381E-03 -5.646E-03 -5.098E-04 -3.861E-04 9.166E-03 0.000E+00 0.000E+00 0.000E+00 0 371 8 -7.286E-04 1.324E-03 -5.107E-03 -8.744E-04 -2.501E-05 3.735E-03 0.000E+00 0.000E+00 0.000E+00 4.407E-05 2.635E-03 -3.842E-03 -8.850E-04 -4.167E-05 3.784E-03 0.000E+00 0.000E+00 0.000E+00 8.549E-04 3.821E-03 -1.866E-03 4.553E-04 -3.469E-04 2.950E-03 0.000E+00 0.000E+00 0.000E+00 -2.502E-04 1.909E-03 -3.637E-03 4.713E-04 -3.370E-04 3.083E-03 0.000E+00 0.000E+00 0.000E+00 -1.589E-05 2.426E-03 -3.603E-03 -2.082E-04 -1.883E-04 3.396E-03 0.000E+00 0.000E+00 0.000E+00 0 371 9 -2.844E-04 3.558E-04 -2.172E-03 -1.351E-04 -3.128E-06 1.333E-03 0.000E+00 0.000E+00 0.000E+00 7.162E-06 7.035E-04 -1.548E-03 -1.431E-04 -1.535E-05 1.214E-03 0.000E+00 0.000E+00 0.000E+00 2.731E-04 1.078E-03 -6.883E-04 -6.685E-06 -1.313E-04 8.733E-04 0.000E+00 0.000E+00 0.000E+00 -5.541E-05 6.648E-04 -1.371E-03 5.326E-06 -1.229E-04 1.072E-03 0.000E+00 0.000E+00 0.000E+00 -9.283E-06 7.060E-04 -1.431E-03 -6.989E-05 -6.861E-05 1.124E-03 0.000E+00 0.000E+00 0.000E+00 0 371 10 -9.988E-05 9.898E-05 -7.684E-04 -1.989E-06 1.033E-06 4.368E-04 0.000E+00 0.000E+00 0.000E+00 -4.350E-06 1.812E-04 -5.322E-04 -5.428E-06 -4.266E-06 3.676E-04 0.000E+00 0.000E+00 0.000E+00 8.005E-05 2.933E-04 -2.140E-04 -4.043E-05 -4.276E-05 2.467E-04 0.000E+00 0.000E+00 0.000E+00 -3.831E-06 2.294E-04 -4.296E-04 -3.527E-05 -3.917E-05 3.414E-04 0.000E+00 0.000E+00 0.000E+00 -4.114E-06 2.036E-04 -4.793E-04 -2.078E-05 -2.149E-05 3.476E-04 0.000E+00 0.000E+00 0.000E+00 0 371 0.0000 5.303E-01 2.381E-01 4.667E+00 -3.112E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.980E-01 -4.910E-01 2.635E+00 -8.405E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.831E-01 -9.292E-01 1.145E+00 2.618E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.915E-01 -2.032E-01 3.334E+00 2.164E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.599E-02 -3.656E-01 2.900E+00 1.116E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 371 7.1000 4.958E-01 1.579E-01 4.301E+00 -1.294E-02 -1.454E-03 -1.935E+00 0.000E+00 0.000E+00 0.000E+00 -2.708E-01 -5.284E-01 2.432E+00 1.448E-02 6.779E-03 -1.378E+00 0.000E+00 0.000E+00 0.000E+00 -4.553E-01 -9.468E-01 1.048E+00 2.286E-01 4.791E-02 -1.100E+00 0.000E+00 0.000E+00 0.000E+00 3.588E-01 -2.530E-01 3.068E+00 1.874E-01 4.110E-02 -1.918E+00 0.000E+00 0.000E+00 0.000E+00 1.463E-02 -4.102E-01 2.671E+00 1.044E-01 2.383E-02 -1.580E+00 0.000E+00 0.000E+00 0.000E+00 0 374 0 2.967E-03 -8.503E-03 -3.015E-03 6.135E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.926E-05 -1.564E-02 -5.963E-03 5.993E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.394E-03 -1.755E-02 -8.989E-03 -4.285E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.149E-03 -6.839E-03 -4.557E-03 -4.071E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.659E-04 -1.213E-02 -5.631E-03 9.429E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 267 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 374 1 2.740E-02 -2.615E-01 1.918E-02 1.520E-02 2.384E-04 -1.078E+00 0.000E+00 0.000E+00 0.000E+00 2.084E-02 -2.779E-01 1.361E-02 1.324E-02 -2.594E-04 -1.068E+00 0.000E+00 0.000E+00 0.000E+00 -2.851E-02 -3.076E-01 -3.609E-02 -1.116E-02 1.144E-05 -1.061E+00 0.000E+00 0.000E+00 0.000E+00 -1.838E-02 -2.828E-01 -2.709E-02 -8.219E-03 5.779E-04 -1.076E+00 0.000E+00 0.000E+00 0.000E+00 3.290E-04 -2.824E-01 -7.619E-03 2.264E-03 1.473E-04 -1.071E+00 0.000E+00 0.000E+00 0.000E+00 0 374 2 1.606E-01 -1.004E+00 -2.890E-01 6.116E-02 3.265E-03 -1.323E+00 0.000E+00 0.000E+00 0.000E+00 5.404E-03 -1.184E+00 -6.263E-01 4.920E-02 -2.220E-03 -9.473E-01 0.000E+00 0.000E+00 0.000E+00 -1.667E-01 -1.236E+00 -6.292E-01 -1.310E-02 1.243E-02 -8.978E-01 0.000E+00 0.000E+00 0.000E+00 1.585E-02 -1.017E+00 -2.405E-01 4.845E-03 1.864E-02 -1.465E+00 0.000E+00 0.000E+00 0.000E+00 5.283E-03 -1.109E+00 -4.427E-01 2.553E-02 8.087E-03 -1.157E+00 0.000E+00 0.000E+00 0.000E+00 0 374 3 2.291E-01 -6.141E-01 -9.049E-01 2.800E-02 7.526E-03 5.360E-01 0.000E+00 0.000E+00 0.000E+00 -1.538E-01 -9.710E-01 -1.825E+00 1.132E-02 -2.762E-03 1.246E+00 0.000E+00 0.000E+00 0.000E+00 -2.321E-01 -8.826E-01 -1.452E+00 7.657E-02 5.194E-02 1.274E+00 0.000E+00 0.000E+00 0.000E+00 1.902E-01 -4.994E-01 -4.269E-01 1.016E-01 6.364E-02 2.102E-01 0.000E+00 0.000E+00 0.000E+00 1.301E-02 -7.371E-01 -1.141E+00 5.436E-02 3.020E-02 8.182E-01 0.000E+00 0.000E+00 0.000E+00 0 374 4 5.476E-02 1.200E-01 -4.325E-01 -5.625E-02 2.667E-03 5.663E-01 0.000E+00 0.000E+00 0.000E+00 -9.486E-02 3.117E-02 -8.425E-01 -6.057E-02 -3.214E-04 8.364E-01 0.000E+00 0.000E+00 0.000E+00 -4.743E-02 1.218E-01 -5.878E-01 9.135E-02 2.746E-02 8.054E-01 0.000E+00 0.000E+00 0.000E+00 9.863E-02 1.767E-01 -1.558E-01 9.783E-02 3.081E-02 4.103E-01 0.000E+00 0.000E+00 0.000E+00 5.233E-03 1.149E-01 -4.989E-01 1.809E-02 1.519E-02 6.548E-01 0.000E+00 0.000E+00 0.000E+00 0 374 5 -4.874E-03 1.475E-01 -1.308E-01 -4.049E-02 4.148E-05 2.148E-01 0.000E+00 0.000E+00 0.000E+00 -3.099E-02 1.552E-01 -2.256E-01 -4.058E-02 2.883E-04 2.799E-01 0.000E+00 0.000E+00 0.000E+00 1.028E-02 1.974E-01 -1.262E-01 4.395E-02 5.790E-03 2.511E-01 0.000E+00 0.000E+00 0.000E+00 2.610E-02 1.625E-01 -3.853E-02 4.409E-02 5.483E-03 1.609E-01 0.000E+00 0.000E+00 0.000E+00 8.970E-04 1.664E-01 -1.285E-01 1.743E-03 2.897E-03 2.265E-01 0.000E+00 0.000E+00 0.000E+00 0 374 6 -7.739E-03 6.244E-02 -3.486E-02 -1.507E-02 -2.858E-04 6.378E-02 0.000E+00 0.000E+00 0.000E+00 -8.393E-03 7.317E-02 -4.776E-02 -1.475E-02 1.948E-04 7.640E-02 0.000E+00 0.000E+00 0.000E+00 9.660E-03 8.810E-02 -1.604E-02 1.370E-02 2.935E-05 6.300E-02 0.000E+00 0.000E+00 0.000E+00 5.447E-03 6.682E-02 -8.797E-03 1.323E-02 -5.147E-04 4.710E-02 0.000E+00 0.000E+00 0.000E+00 -7.427E-05 7.281E-02 -2.644E-02 -7.235E-04 -1.495E-04 6.247E-02 0.000E+00 0.000E+00 0.000E+00 0 374 7 -3.591E-03 1.969E-02 -8.867E-03 -4.153E-03 -1.521E-04 1.724E-02 0.000E+00 0.000E+00 0.000E+00 -2.190E-03 2.397E-02 -8.477E-03 -3.991E-03 8.740E-05 1.912E-02 0.000E+00 0.000E+00 0.000E+00 4.021E-03 2.856E-02 6.152E-04 3.204E-03 -4.993E-04 1.440E-02 0.000E+00 0.000E+00 0.000E+00 1.123E-03 2.134E-02 -1.829E-03 2.961E-03 -7.605E-04 1.247E-02 0.000E+00 0.000E+00 0.000E+00 -1.280E-04 2.342E-02 -4.567E-03 -4.944E-04 -3.343E-04 1.577E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 268 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 374 8 -1.277E-03 5.385E-03 -2.159E-03 -9.206E-04 -5.422E-05 4.405E-03 0.000E+00 0.000E+00 0.000E+00 -5.651E-04 6.656E-03 -1.058E-03 -8.604E-04 3.559E-05 4.474E-03 0.000E+00 0.000E+00 0.000E+00 1.314E-03 7.932E-03 1.318E-03 5.386E-04 -2.649E-04 3.056E-03 0.000E+00 0.000E+00 0.000E+00 2.645E-04 6.044E-03 -2.911E-04 4.482E-04 -3.589E-04 3.144E-03 0.000E+00 0.000E+00 0.000E+00 -6.516E-05 6.505E-03 -5.459E-04 -1.985E-04 -1.619E-04 3.762E-03 0.000E+00 0.000E+00 0.000E+00 0 374 9 -3.982E-04 1.341E-03 -4.893E-04 -1.518E-04 -1.520E-05 1.064E-03 0.000E+00 0.000E+00 0.000E+00 -1.390E-04 1.663E-03 5.260E-05 -1.323E-04 1.419E-05 9.578E-04 0.000E+00 0.000E+00 0.000E+00 3.752E-04 1.982E-03 6.029E-04 2.508E-05 -1.007E-04 5.807E-04 0.000E+00 0.000E+00 0.000E+00 7.234E-05 1.585E-03 -9.460E-06 -4.151E-06 -1.300E-04 7.605E-04 0.000E+00 0.000E+00 0.000E+00 -2.511E-05 1.640E-03 3.285E-05 -6.578E-05 -5.844E-05 8.396E-04 0.000E+00 0.000E+00 0.000E+00 0 374 10 -1.131E-04 3.067E-04 -9.705E-05 -7.190E-06 -3.192E-06 2.380E-04 0.000E+00 0.000E+00 0.000E+00 -3.012E-05 3.783E-04 1.080E-04 -1.425E-06 5.583E-06 1.746E-04 0.000E+00 0.000E+00 0.000E+00 9.603E-05 4.468E-04 2.102E-04 -2.989E-05 -3.286E-05 8.655E-05 0.000E+00 0.000E+00 0.000E+00 2.104E-05 3.889E-04 1.813E-05 -3.854E-05 -4.118E-05 1.745E-04 0.000E+00 0.000E+00 0.000E+00 -8.258E-06 3.785E-04 5.581E-05 -1.926E-05 -1.808E-05 1.686E-04 0.000E+00 0.000E+00 0.000E+00 0 374 0.0000 4.568E-01 -1.531E+00 -1.788E+00 -6.541E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.648E-01 -2.156E+00 -3.569E+00 -4.114E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.524E-01 -1.998E+00 -2.853E+00 2.008E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.205E-01 -1.370E+00 -9.043E-01 2.526E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.461E-02 -1.754E+00 -2.256E+00 1.014E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 374 7.1000 4.346E-01 -1.525E+00 -1.627E+00 9.806E-03 4.486E-03 1.920E-01 0.000E+00 0.000E+00 0.000E+00 -2.341E-01 -2.116E+00 -3.266E+00 -2.292E-02 -1.319E-03 7.196E-01 0.000E+00 0.000E+00 0.000E+00 -4.323E-01 -1.987E+00 -2.637E+00 1.719E-01 3.764E-02 6.971E-01 0.000E+00 0.000E+00 0.000E+00 2.885E-01 -1.383E+00 -8.386E-01 2.209E-01 4.422E-02 -8.272E-02 0.000E+00 0.000E+00 0.000E+00 2.288E-02 -1.744E+00 -2.072E+00 9.493E-02 2.131E-02 3.823E-01 0.000E+00 0.000E+00 0.000E+00 0 381 0 9.348E-04 1.167E-02 8.285E-04 5.088E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.945E-03 2.619E-03 -3.049E-03 5.203E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.286E-04 6.289E-03 -1.006E-03 -3.459E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.351E-03 1.232E-02 1.563E-03 -3.536E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.849E-05 8.225E-03 -4.147E-04 8.237E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 381 1 2.326E-02 -1.410E-01 2.493E-02 1.439E-02 5.798E-04 -1.121E+00 0.000E+00 0.000E+00 0.000E+00 1.405E-02 -1.634E-01 1.665E-02 1.214E-02 1.144E-04 -1.104E+00 0.000E+00 0.000E+00 0.000E+00 -2.179E-02 -1.799E-01 -2.131E-02 -9.125E-03 -8.488E-05 -1.105E+00 0.000E+00 0.000E+00 0.000E+00 -1.549E-02 -1.648E-01 -1.542E-02 -7.622E-03 1.183E-04 -1.117E+00 0.000E+00 0.000E+00 0.000E+00 1.192E-06 -1.623E-01 1.196E-03 2.447E-03 1.869E-04 -1.112E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 269 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 381 2 1.828E-01 -2.593E-01 7.185E-01 8.097E-02 1.752E-02 -2.861E+00 0.000E+00 0.000E+00 0.000E+00 -3.981E-02 -5.462E-01 2.635E-01 7.673E-02 1.646E-02 -2.270E+00 0.000E+00 0.000E+00 0.000E+00 -1.201E-01 -5.769E-01 1.486E-01 -2.905E-02 5.531E-04 -2.435E+00 0.000E+00 0.000E+00 0.000E+00 -9.184E-03 -4.230E-01 3.647E-01 -2.624E-02 6.599E-04 -2.833E+00 0.000E+00 0.000E+00 0.000E+00 5.187E-03 -4.495E-01 3.780E-01 2.560E-02 8.842E-03 -2.598E+00 0.000E+00 0.000E+00 0.000E+00 0 381 3 3.228E-01 4.209E-01 1.873E+00 9.222E-02 5.905E-02 -2.285E+00 0.000E+00 0.000E+00 0.000E+00 -2.226E-01 -1.769E-01 6.524E-01 1.001E-01 6.639E-02 -1.203E+00 0.000E+00 0.000E+00 0.000E+00 -1.580E-01 -1.473E-01 6.109E-01 1.011E-02 4.417E-03 -1.539E+00 0.000E+00 0.000E+00 0.000E+00 9.748E-02 1.432E-01 1.172E+00 4.868E-03 -2.670E-04 -2.266E+00 0.000E+00 0.000E+00 0.000E+00 1.504E-02 6.509E-02 1.089E+00 5.182E-02 3.237E-02 -1.821E+00 0.000E+00 0.000E+00 0.000E+00 0 381 4 1.123E-01 2.802E-01 8.164E-01 -1.694E-02 2.858E-02 -4.583E-01 0.000E+00 0.000E+00 0.000E+00 -9.860E-02 1.062E-01 2.876E-01 -1.077E-02 3.476E-02 -7.122E-02 0.000E+00 0.000E+00 0.000E+00 -4.250E-02 1.089E-01 2.937E-01 4.851E-02 2.629E-03 -2.028E-01 0.000E+00 0.000E+00 0.000E+00 4.631E-02 1.732E-01 5.255E-01 4.440E-02 -7.906E-04 -4.584E-01 0.000E+00 0.000E+00 0.000E+00 6.842E-03 1.696E-01 4.865E-01 1.630E-02 1.628E-02 -2.971E-01 0.000E+00 0.000E+00 0.000E+00 0 381 5 1.560E-02 7.554E-02 1.656E-01 -2.592E-02 5.110E-03 -2.049E-02 0.000E+00 0.000E+00 0.000E+00 -1.991E-02 7.158E-02 5.121E-02 -2.392E-02 7.218E-03 6.302E-02 0.000E+00 0.000E+00 0.000E+00 -1.005E-03 6.667E-02 6.150E-02 2.799E-02 5.960E-04 2.903E-02 0.000E+00 0.000E+00 0.000E+00 8.850E-03 5.549E-02 1.055E-01 2.666E-02 -4.433E-04 -2.330E-02 0.000E+00 0.000E+00 0.000E+00 1.558E-03 6.799E-02 9.754E-02 1.205E-03 3.104E-03 1.200E-02 0.000E+00 0.000E+00 0.000E+00 0 381 6 -1.747E-03 1.497E-02 9.962E-03 -1.079E-02 -4.732E-04 1.834E-02 0.000E+00 0.000E+00 0.000E+00 -2.071E-03 2.646E-02 -2.605E-03 -1.034E-02 -3.210E-05 3.192E-02 0.000E+00 0.000E+00 0.000E+00 3.217E-03 2.483E-02 3.740E-03 9.196E-03 1.309E-05 2.386E-02 0.000E+00 0.000E+00 0.000E+00 7.826E-04 1.452E-02 5.934E-03 8.898E-03 -1.572E-04 1.635E-02 0.000E+00 0.000E+00 0.000E+00 1.829E-04 2.033E-02 4.578E-03 -7.590E-04 -1.690E-04 2.254E-02 0.000E+00 0.000E+00 0.000E+00 0 381 7 -1.939E-03 2.752E-03 -7.222E-03 -3.081E-03 -7.100E-04 9.402E-03 0.000E+00 0.000E+00 0.000E+00 1.529E-04 7.973E-03 -5.471E-03 -3.008E-03 -6.630E-04 1.082E-02 0.000E+00 0.000E+00 0.000E+00 1.659E-03 7.946E-03 -2.547E-03 2.184E-03 -4.176E-05 8.849E-03 0.000E+00 0.000E+00 0.000E+00 -5.557E-05 4.145E-03 -4.461E-03 2.135E-03 -4.086E-05 8.381E-03 0.000E+00 0.000E+00 0.000E+00 -2.601E-05 5.724E-03 -4.879E-03 -4.425E-04 -3.658E-04 9.336E-03 0.000E+00 0.000E+00 0.000E+00 0 381 8 -8.339E-04 5.467E-04 -4.220E-03 -7.011E-04 -3.370E-04 3.331E-03 0.000E+00 0.000E+00 0.000E+00 1.479E-04 2.172E-03 -2.573E-03 -6.958E-04 -3.469E-04 3.202E-03 0.000E+00 0.000E+00 0.000E+00 6.016E-04 2.376E-03 -1.417E-03 3.741E-04 -1.993E-05 2.696E-03 0.000E+00 0.000E+00 0.000E+00 -2.385E-05 1.322E-03 -2.447E-03 3.706E-04 -6.893E-06 2.894E-03 0.000E+00 0.000E+00 0.000E+00 -2.718E-05 1.604E-03 -2.664E-03 -1.631E-04 -1.781E-04 3.023E-03 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 270 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 381 9 -2.859E-04 1.269E-04 -1.601E-03 -1.254E-04 -1.229E-04 1.035E-03 0.000E+00 0.000E+00 0.000E+00 4.784E-05 5.520E-04 -9.136E-04 -1.279E-04 -1.313E-04 8.833E-04 0.000E+00 0.000E+00 0.000E+00 1.887E-04 6.788E-04 -4.998E-04 2.503E-05 -6.095E-06 7.515E-04 0.000E+00 0.000E+00 0.000E+00 5.755E-06 4.350E-04 -8.658E-04 2.667E-05 2.643E-07 8.693E-04 0.000E+00 0.000E+00 0.000E+00 -1.250E-05 4.466E-04 -9.738E-04 -5.041E-05 -6.508E-05 8.833E-04 0.000E+00 0.000E+00 0.000E+00 0 381 10 -8.786E-05 3.335E-05 -5.137E-04 -1.303E-05 -3.917E-05 2.985E-04 0.000E+00 0.000E+00 0.000E+00 1.077E-05 1.317E-04 -2.832E-04 -1.463E-05 -4.276E-05 2.315E-04 0.000E+00 0.000E+00 0.000E+00 5.434E-05 1.860E-04 -1.461E-04 -1.458E-05 -1.349E-06 1.978E-04 0.000E+00 0.000E+00 0.000E+00 7.589E-06 1.395E-04 -2.553E-04 -1.352E-05 8.792E-07 2.418E-04 0.000E+00 0.000E+00 0.000E+00 -4.657E-06 1.218E-04 -3.016E-04 -1.394E-05 -2.060E-05 2.423E-04 0.000E+00 0.000E+00 0.000E+00 0 381 0.0000 6.527E-01 4.065E-01 3.595E+00 1.351E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.715E-01 -6.689E-01 1.256E+00 1.453E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.380E-01 -6.861E-01 1.091E+00 5.674E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.310E-01 -1.831E-01 2.152E+00 4.995E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.877E-02 -2.727E-01 2.048E+00 9.677E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 381 7.1000 6.102E-01 3.337E-01 3.319E+00 1.374E-01 4.109E-02 -1.877E+00 0.000E+00 0.000E+00 0.000E+00 -3.393E-01 -6.762E-01 1.164E+00 1.459E-01 4.791E-02 -1.094E+00 0.000E+00 0.000E+00 0.000E+00 -3.199E-01 -6.935E-01 9.995E-01 4.259E-02 3.280E-03 -1.347E+00 0.000E+00 0.000E+00 0.000E+00 1.174E-01 -2.160E-01 1.980E+00 3.690E-02 -6.962E-04 -1.867E+00 0.000E+00 0.000E+00 0.000E+00 2.645E-02 -3.037E-01 1.887E+00 9.071E-02 2.288E-02 -1.545E+00 0.000E+00 0.000E+00 0.000E+00 0 384 0 3.014E-03 -2.486E-03 -2.692E-03 5.142E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -7.272E-04 -1.133E-02 -6.323E-03 5.007E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.250E-03 -1.194E-02 -6.860E-03 -3.491E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.546E-04 -6.041E-03 -4.416E-03 -3.401E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 7.391E-05 -7.949E-03 -5.070E-03 8.142E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 384 1 2.780E-02 -1.750E-01 1.909E-02 1.412E-02 5.779E-04 -1.082E+00 0.000E+00 0.000E+00 0.000E+00 1.925E-02 -1.961E-01 1.167E-02 1.136E-02 1.144E-05 -1.066E+00 0.000E+00 0.000E+00 0.000E+00 -2.631E-02 -2.233E-01 -3.322E-02 -9.542E-03 -1.354E-04 -1.061E+00 0.000E+00 0.000E+00 0.000E+00 -2.042E-02 -2.090E-01 -2.783E-02 -7.698E-03 1.163E-04 -1.072E+00 0.000E+00 0.000E+00 0.000E+00 9.823E-05 -2.009E-01 -7.538E-03 2.061E-03 1.330E-04 -1.070E+00 0.000E+00 0.000E+00 0.000E+00 0 384 2 1.905E-01 -6.089E-01 -6.585E-02 8.331E-02 1.864E-02 -1.493E+00 0.000E+00 0.000E+00 0.000E+00 -1.059E-02 -8.722E-01 -4.731E-01 6.973E-02 1.243E-02 -9.309E-01 0.000E+00 0.000E+00 0.000E+00 -1.300E-01 -9.012E-01 -4.503E-01 -3.371E-02 -1.118E-03 -8.949E-01 0.000E+00 0.000E+00 0.000E+00 -3.032E-02 -7.601E-01 -2.590E-01 -2.467E-02 1.640E-03 -1.270E+00 0.000E+00 0.000E+00 0.000E+00 2.270E-03 -7.882E-01 -3.182E-01 2.367E-02 7.792E-03 -1.146E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 271 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 384 3 3.041E-01 -2.336E-01 -3.130E-01 1.009E-01 6.364E-02 2.375E-01 0.000E+00 0.000E+00 0.000E+00 -1.861E-01 -7.750E-01 -1.406E+00 8.615E-02 5.194E-02 1.269E+00 0.000E+00 0.000E+00 0.000E+00 -1.449E-01 -6.357E-01 -9.821E-01 8.087E-04 -1.369E-03 1.291E+00 0.000E+00 0.000E+00 0.000E+00 8.217E-02 -3.745E-01 -4.865E-01 1.064E-02 3.746E-03 6.027E-01 0.000E+00 0.000E+00 0.000E+00 6.222E-03 -5.123E-01 -8.145E-01 4.962E-02 2.929E-02 8.519E-01 0.000E+00 0.000E+00 0.000E+00 0 384 4 8.420E-02 1.430E-01 -1.702E-01 -1.308E-02 3.081E-02 4.499E-01 0.000E+00 0.000E+00 0.000E+00 -1.028E-01 -7.457E-03 -6.432E-01 -1.580E-02 2.746E-02 8.204E-01 0.000E+00 0.000E+00 0.000E+00 -1.607E-02 9.741E-02 -3.804E-01 4.512E-02 -1.273E-04 7.989E-01 0.000E+00 0.000E+00 0.000E+00 6.059E-02 1.497E-01 -1.771E-01 4.693E-02 1.258E-03 5.556E-01 0.000E+00 0.000E+00 0.000E+00 2.823E-03 9.202E-02 -3.513E-01 1.579E-02 1.478E-02 6.570E-01 0.000E+00 0.000E+00 0.000E+00 0 384 5 1.050E-03 1.040E-01 -6.358E-02 -2.518E-02 5.483E-03 1.751E-01 0.000E+00 0.000E+00 0.000E+00 -2.928E-02 1.051E-01 -1.657E-01 -2.479E-02 5.790E-03 2.554E-01 0.000E+00 0.000E+00 0.000E+00 1.356E-02 1.454E-01 -7.430E-02 2.751E-02 1.630E-04 2.351E-01 0.000E+00 0.000E+00 0.000E+00 2.088E-02 1.318E-01 -3.628E-02 2.726E-02 -3.120E-05 1.849E-01 0.000E+00 0.000E+00 0.000E+00 5.839E-04 1.206E-01 -8.723E-02 1.199E-03 2.851E-03 2.130E-01 0.000E+00 0.000E+00 0.000E+00 0 384 6 -6.713E-03 3.844E-02 -2.096E-02 -1.078E-02 -5.147E-04 4.950E-02 0.000E+00 0.000E+00 0.000E+00 -6.460E-03 5.049E-02 -3.216E-02 -1.038E-02 2.935E-05 6.266E-02 0.000E+00 0.000E+00 0.000E+00 8.263E-03 6.255E-02 -6.672E-03 9.267E-03 1.019E-04 5.342E-02 0.000E+00 0.000E+00 0.000E+00 5.600E-03 5.203E-02 -5.024E-03 9.001E-03 -1.532E-04 4.609E-02 0.000E+00 0.000E+00 0.000E+00 -8.643E-06 5.070E-02 -1.663E-02 -7.247E-04 -1.258E-04 5.303E-02 0.000E+00 0.000E+00 0.000E+00 0 384 7 -3.302E-03 1.102E-02 -6.255E-03 -3.141E-03 -7.606E-04 1.233E-02 0.000E+00 0.000E+00 0.000E+00 -1.288E-03 1.617E-02 -4.694E-03 -2.971E-03 -4.993E-04 1.374E-02 0.000E+00 0.000E+00 0.000E+00 3.027E-03 1.935E-02 1.603E-03 2.261E-03 4.306E-05 1.062E-02 0.000E+00 0.000E+00 0.000E+00 1.375E-03 1.561E-02 -1.594E-04 2.147E-03 -7.112E-05 1.012E-02 0.000E+00 0.000E+00 0.000E+00 -6.722E-05 1.552E-02 -2.423E-03 -4.259E-04 -3.174E-04 1.173E-02 0.000E+00 0.000E+00 0.000E+00 0 384 8 -1.152E-03 2.739E-03 -1.707E-03 -7.327E-04 -3.589E-04 2.861E-03 0.000E+00 0.000E+00 0.000E+00 -2.446E-04 4.296E-03 -2.404E-04 -6.745E-04 -2.649E-04 2.754E-03 0.000E+00 0.000E+00 0.000E+00 9.077E-04 5.061E-03 1.156E-03 4.086E-04 1.633E-05 1.873E-03 0.000E+00 0.000E+00 0.000E+00 3.261E-04 4.046E-03 2.316E-04 3.698E-04 -2.195E-05 2.045E-03 0.000E+00 0.000E+00 0.000E+00 -3.779E-05 4.038E-03 -1.335E-04 -1.572E-04 -1.555E-04 2.389E-03 0.000E+00 0.000E+00 0.000E+00 0 384 9 -3.457E-04 6.096E-04 -4.275E-04 -1.374E-04 -1.300E-04 6.232E-04 0.000E+00 0.000E+00 0.000E+00 -4.307E-05 1.006E-03 1.846E-04 -1.194E-04 -1.007E-04 4.828E-04 0.000E+00 0.000E+00 0.000E+00 2.410E-04 1.170E-03 4.472E-04 3.727E-05 5.947E-06 2.676E-04 0.000E+00 0.000E+00 0.000E+00 7.486E-05 9.414E-04 1.222E-04 2.526E-05 -5.027E-06 3.764E-04 0.000E+00 0.000E+00 0.000E+00 -1.526E-05 9.348E-04 8.851E-05 -4.858E-05 -5.683E-05 4.381E-04 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 272 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 384 10 -9.412E-05 1.202E-04 -9.703E-05 -1.692E-05 -4.118E-05 1.245E-04 0.000E+00 0.000E+00 0.000E+00 -5.883E-06 2.090E-04 1.083E-04 -1.173E-05 -3.286E-05 6.163E-05 0.000E+00 0.000E+00 0.000E+00 5.761E-05 2.379E-04 1.410E-04 -1.076E-05 2.088E-06 1.738E-05 0.000E+00 0.000E+00 0.000E+00 1.612E-05 1.960E-04 4.457E-05 -1.423E-05 -7.023E-07 5.870E-05 0.000E+00 0.000E+00 0.000E+00 -5.214E-06 1.922E-04 5.236E-05 -1.341E-05 -1.797E-05 6.540E-05 0.000E+00 0.000E+00 0.000E+00 0 384 0.0000 5.991E-01 -7.201E-01 -6.257E-01 1.504E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.183E-01 -1.685E+00 -2.719E+00 1.175E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -2.935E-01 -1.441E+00 -1.930E+00 3.865E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.206E-01 -9.953E-01 -9.959E-01 6.059E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.194E-02 -1.225E+00 -1.603E+00 9.178E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 384 7.1000 5.657E-01 -7.364E-01 -5.613E-01 1.515E-01 4.422E-02 -5.196E-02 0.000E+00 0.000E+00 0.000E+00 -2.853E-01 -1.644E+00 -2.490E+00 1.201E-01 3.764E-02 6.951E-01 0.000E+00 0.000E+00 0.000E+00 -2.838E-01 -1.433E+00 -1.789E+00 2.572E-02 -6.315E-04 6.810E-01 0.000E+00 0.000E+00 0.000E+00 1.027E-01 -1.009E+00 -9.253E-01 4.665E-02 2.176E-03 1.875E-01 0.000E+00 0.000E+00 0.000E+00 1.105E-02 -1.220E+00 -1.474E+00 8.598E-02 2.073E-02 3.795E-01 0.000E+00 0.000E+00 0.000E+00 0 391 0 -5.677E-04 5.509E-03 -1.356E-03 2.346E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.584E-03 3.126E-03 -2.361E-03 2.439E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.155E-04 3.310E-03 -5.872E-04 -9.289E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.740E-03 6.883E-03 9.202E-04 -1.069E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -4.905E-05 4.707E-03 -8.458E-04 6.968E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 391 1 1.951E-02 -8.310E-02 1.957E-02 6.991E-03 1.179E-04 -1.121E+00 0.000E+00 0.000E+00 0.000E+00 1.755E-02 -8.808E-02 1.802E-02 5.556E-03 -8.519E-05 -1.109E+00 0.000E+00 0.000E+00 0.000E+00 -2.017E-02 -1.130E-01 -2.064E-02 -2.709E-03 2.527E-05 -1.100E+00 0.000E+00 0.000E+00 0.000E+00 -1.701E-02 -1.053E-01 -1.780E-02 -5.569E-04 1.845E-04 -1.119E+00 0.000E+00 0.000E+00 0.000E+00 -2.193E-05 -9.735E-02 -1.891E-04 2.321E-03 5.388E-05 -1.112E+00 0.000E+00 0.000E+00 0.000E+00 0 391 2 1.045E-01 -1.579E-01 4.783E-01 2.876E-02 6.631E-04 -2.861E+00 0.000E+00 0.000E+00 0.000E+00 2.479E-02 -2.388E-01 2.935E-01 2.928E-02 5.677E-04 -2.458E+00 0.000E+00 0.000E+00 0.000E+00 -8.888E-02 -3.581E-01 1.170E-02 2.667E-02 5.499E-03 -2.240E+00 0.000E+00 0.000E+00 0.000E+00 -2.926E-02 -2.968E-01 1.491E-01 2.590E-02 5.852E-03 -2.844E+00 0.000E+00 0.000E+00 0.000E+00 1.049E-05 -2.657E-01 2.267E-01 2.766E-02 3.147E-03 -2.599E+00 0.000E+00 0.000E+00 0.000E+00 0 391 3 1.351E-01 2.310E-01 1.210E+00 1.051E-02 -2.819E-04 -2.271E+00 0.000E+00 0.000E+00 0.000E+00 -7.169E-02 5.425E-02 6.972E-01 2.397E-02 4.380E-03 -1.528E+00 0.000E+00 0.000E+00 0.000E+00 -8.236E-02 -7.591E-02 2.088E-01 1.058E-01 2.212E-02 -1.152E+00 0.000E+00 0.000E+00 0.000E+00 5.259E-02 1.395E-02 5.688E-01 8.565E-02 1.969E-02 -2.257E+00 0.000E+00 0.000E+00 0.000E+00 3.281E-04 4.770E-02 6.523E-01 5.649E-02 1.167E-02 -1.800E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 273 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 391 4 4.100E-02 1.608E-01 5.202E-01 -2.692E-02 -7.853E-04 -4.315E-01 0.000E+00 0.000E+00 0.000E+00 -4.249E-02 1.089E-01 2.937E-01 -1.985E-02 2.642E-03 -1.716E-01 0.000E+00 0.000E+00 0.000E+00 -1.184E-02 8.467E-02 1.137E-01 6.277E-02 1.132E-02 -4.857E-02 0.000E+00 0.000E+00 0.000E+00 3.058E-02 7.964E-02 2.602E-01 5.216E-02 9.280E-03 -4.307E-01 0.000E+00 0.000E+00 0.000E+00 4.969E-04 1.047E-01 2.880E-01 1.704E-02 5.750E-03 -2.696E-01 0.000E+00 0.000E+00 0.000E+00 0 391 5 3.936E-03 4.402E-02 1.006E-01 -1.797E-02 -4.442E-04 -6.596E-03 0.000E+00 0.000E+00 0.000E+00 -1.108E-02 4.316E-02 5.142E-02 -1.630E-02 5.951E-04 4.438E-02 0.000E+00 0.000E+00 0.000E+00 4.722E-03 4.940E-02 2.573E-02 1.991E-02 2.137E-03 6.438E-02 0.000E+00 0.000E+00 0.000E+00 7.052E-03 3.050E-02 5.240E-02 1.741E-02 1.474E-03 -8.275E-03 0.000E+00 0.000E+00 0.000E+00 2.303E-04 4.084E-02 5.537E-02 7.635E-04 9.810E-04 2.376E-02 0.000E+00 0.000E+00 0.000E+00 0 391 6 -1.717E-03 8.685E-03 3.434E-03 -6.102E-03 -1.573E-04 2.185E-02 0.000E+00 0.000E+00 0.000E+00 -2.182E-03 1.223E-02 -1.660E-03 -5.886E-03 1.288E-05 2.811E-02 0.000E+00 0.000E+00 0.000E+00 3.403E-03 1.766E-02 2.159E-03 4.244E-03 -1.275E-04 2.871E-02 0.000E+00 0.000E+00 0.000E+00 1.242E-03 9.482E-03 3.130E-03 3.920E-03 -2.513E-04 2.055E-02 0.000E+00 0.000E+00 0.000E+00 5.578E-05 1.188E-02 1.461E-03 -9.559E-04 -1.248E-04 2.487E-02 0.000E+00 0.000E+00 0.000E+00 0 391 7 -1.169E-03 1.547E-03 -5.574E-03 -1.453E-03 -4.086E-05 9.613E-03 0.000E+00 0.000E+00 0.000E+00 -4.211E-04 3.092E-03 -4.627E-03 -1.459E-03 -4.175E-05 9.575E-03 0.000E+00 0.000E+00 0.000E+00 1.316E-03 5.287E-03 -7.765E-04 5.320E-04 -2.468E-04 8.624E-03 0.000E+00 0.000E+00 0.000E+00 2.741E-04 3.049E-03 -2.010E-03 5.409E-04 -2.540E-04 8.950E-03 0.000E+00 0.000E+00 0.000E+00 3.853E-06 3.248E-03 -3.238E-03 -4.597E-04 -1.462E-04 9.201E-03 0.000E+00 0.000E+00 0.000E+00 0 391 8 -4.660E-04 2.899E-04 -2.889E-03 -2.449E-04 -6.900E-06 3.056E-03 0.000E+00 0.000E+00 0.000E+00 -9.658E-05 7.467E-04 -2.115E-03 -2.598E-04 -1.994E-05 2.707E-03 0.000E+00 0.000E+00 0.000E+00 4.089E-04 1.444E-03 -4.845E-04 -4.879E-05 -1.138E-04 2.229E-03 0.000E+00 0.000E+00 0.000E+00 9.369E-05 9.980E-04 -1.089E-03 -2.652E-05 -1.085E-04 2.781E-03 0.000E+00 0.000E+00 0.000E+00 -4.019E-06 8.807E-04 -1.619E-03 -1.450E-04 -6.290E-05 2.693E-03 0.000E+00 0.000E+00 0.000E+00 0 391 9 -1.536E-04 6.312E-05 -1.025E-03 -1.523E-05 2.665E-07 8.522E-04 0.000E+00 0.000E+00 0.000E+00 -2.751E-05 1.743E-04 -7.160E-04 -2.150E-05 -6.093E-06 6.971E-04 0.000E+00 0.000E+00 0.000E+00 1.125E-04 3.696E-04 -1.728E-04 -6.189E-05 -3.886E-05 5.297E-04 0.000E+00 0.000E+00 0.000E+00 3.673E-05 3.162E-04 -3.719E-04 -5.248E-05 -3.584E-05 7.527E-04 0.000E+00 0.000E+00 0.000E+00 -2.805E-06 2.360E-04 -5.594E-04 -3.777E-05 -2.042E-05 7.071E-04 0.000E+00 0.000E+00 0.000E+00 0 391 10 -4.544E-05 1.575E-05 -3.084E-04 9.588E-06 8.798E-07 2.197E-04 0.000E+00 0.000E+00 0.000E+00 -8.686E-06 3.899E-05 -2.091E-04 7.601E-06 -1.349E-06 1.684E-04 0.000E+00 0.000E+00 0.000E+00 2.828E-05 8.906E-05 -4.985E-05 -2.718E-05 -1.131E-05 1.181E-04 0.000E+00 0.000E+00 0.000E+00 1.350E-05 9.455E-05 -1.046E-04 -2.420E-05 -1.023E-05 1.874E-04 0.000E+00 0.000E+00 0.000E+00 -1.257E-06 6.142E-05 -1.637E-04 -8.550E-06 -5.603E-06 1.729E-04 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 274 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 391 0.0000 2.999E-01 2.109E-01 2.321E+00 -4.083E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -8.724E-02 -1.011E-01 1.342E+00 1.747E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.930E-01 -3.847E-01 3.394E-01 2.162E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.735E-02 -2.571E-01 1.013E+00 1.839E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.046E-03 -1.488E-01 1.217E+00 1.034E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 391 7.1000 2.829E-01 1.700E-01 2.145E+00 3.082E-03 -6.990E-04 -1.849E+00 0.000E+00 0.000E+00 0.000E+00 -7.527E-02 -1.228E-01 1.244E+00 2.251E-02 3.275E-03 -1.321E+00 0.000E+00 0.000E+00 0.000E+00 -1.856E-01 -3.946E-01 3.066E-01 1.957E-01 1.560E-02 -1.061E+00 0.000E+00 0.000E+00 0.000E+00 3.930E-02 -2.677E-01 9.295E-01 1.665E-01 1.338E-02 -1.842E+00 0.000E+00 0.000E+00 0.000E+00 9.093E-04 -1.682E-01 1.123E+00 9.695E-02 8.048E-03 -1.516E+00 0.000E+00 0.000E+00 0.000E+00 0 394 0 1.353E-03 -3.479E-03 -3.317E-03 2.420E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 3.839E-04 -5.799E-03 -4.226E-03 2.280E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.443E-03 -6.229E-03 -3.829E-03 -1.101E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 4.280E-05 -2.715E-03 -2.391E-03 -8.910E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 8.297E-05 -4.556E-03 -3.443E-03 6.771E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 394 1 2.429E-02 -1.047E-01 1.688E-02 6.837E-03 1.163E-04 -1.075E+00 0.000E+00 0.000E+00 0.000E+00 2.216E-02 -1.102E-01 1.525E-02 4.868E-03 -1.354E-04 -1.065E+00 0.000E+00 0.000E+00 0.000E+00 -2.457E-02 -1.372E-01 -2.814E-02 -3.511E-03 -5.722E-06 -1.062E+00 0.000E+00 0.000E+00 0.000E+00 -2.109E-02 -1.287E-01 -2.503E-02 -5.550E-04 1.836E-04 -1.078E+00 0.000E+00 0.000E+00 0.000E+00 1.903E-04 -1.202E-01 -5.285E-03 1.909E-03 4.697E-05 -1.070E+00 0.000E+00 0.000E+00 0.000E+00 0 394 2 1.170E-01 -4.164E-01 -1.117E-01 3.245E-02 1.640E-03 -1.295E+00 0.000E+00 0.000E+00 0.000E+00 4.637E-02 -4.896E-01 -2.739E-01 2.138E-02 -1.118E-03 -9.143E-01 0.000E+00 0.000E+00 0.000E+00 -1.072E-01 -5.323E-01 -2.627E-01 1.491E-02 4.153E-03 -8.934E-01 0.000E+00 0.000E+00 0.000E+00 -5.256E-02 -4.738E-01 -1.392E-01 3.153E-02 6.229E-03 -1.466E+00 0.000E+00 0.000E+00 0.000E+00 2.827E-03 -4.761E-01 -1.924E-01 2.507E-02 2.800E-03 -1.141E+00 0.000E+00 0.000E+00 0.000E+00 0 394 3 1.228E-01 -2.797E-01 -4.459E-01 2.157E-02 3.746E-03 5.955E-01 0.000E+00 0.000E+00 0.000E+00 -5.679E-02 -4.302E-01 -8.940E-01 7.337E-03 -1.369E-03 1.299E+00 0.000E+00 0.000E+00 0.000E+00 -9.010E-02 -3.211E-01 -4.972E-01 8.005E-02 1.731E-02 1.310E+00 0.000E+00 0.000E+00 0.000E+00 2.781E-02 -2.469E-01 -1.784E-01 1.014E-01 2.120E-02 2.557E-01 0.000E+00 0.000E+00 0.000E+00 6.573E-03 -3.138E-01 -4.907E-01 5.259E-02 1.036E-02 8.667E-01 0.000E+00 0.000E+00 0.000E+00 0 394 4 1.243E-02 3.733E-02 -2.253E-01 -2.266E-02 1.258E-03 5.671E-01 0.000E+00 0.000E+00 0.000E+00 -5.873E-02 -2.117E-03 -4.230E-01 -2.571E-02 -1.273E-04 8.142E-01 0.000E+00 0.000E+00 0.000E+00 5.356E-03 9.251E-02 -1.717E-01 5.357E-02 8.946E-03 8.001E-01 0.000E+00 0.000E+00 0.000E+00 3.983E-02 7.941E-02 -4.367E-02 5.815E-02 1.001E-02 4.341E-01 0.000E+00 0.000E+00 0.000E+00 2.427E-03 5.449E-02 -2.096E-01 1.583E-02 5.057E-03 6.543E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 275 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 394 5 -1.143E-02 5.639E-02 -6.859E-02 -1.738E-02 -3.122E-05 1.902E-01 0.000E+00 0.000E+00 0.000E+00 -2.370E-02 5.845E-02 -1.116E-01 -1.713E-02 1.630E-04 2.390E-01 0.000E+00 0.000E+00 0.000E+00 1.659E-02 9.624E-02 -2.585E-02 1.870E-02 1.721E-03 2.267E-01 0.000E+00 0.000E+00 0.000E+00 1.709E-02 7.525E-02 -3.170E-03 1.832E-02 1.583E-03 1.566E-01 0.000E+00 0.000E+00 0.000E+00 3.103E-04 7.225E-02 -5.073E-02 6.268E-04 8.524E-04 2.031E-01 0.000E+00 0.000E+00 0.000E+00 0 394 6 -6.631E-03 2.349E-02 -1.726E-02 -6.175E-03 -1.532E-04 4.704E-02 0.000E+00 0.000E+00 0.000E+00 -6.792E-03 2.742E-02 -2.173E-02 -5.838E-03 1.019E-04 5.315E-02 0.000E+00 0.000E+00 0.000E+00 7.559E-03 3.840E-02 5.084E-04 4.402E-03 -8.199E-05 4.779E-02 0.000E+00 0.000E+00 0.000E+00 5.168E-03 2.986E-02 1.074E-03 3.895E-03 -2.709E-04 3.971E-02 0.000E+00 0.000E+00 0.000E+00 -7.454E-05 2.989E-02 -9.118E-03 -9.289E-04 -1.083E-04 4.689E-02 0.000E+00 0.000E+00 0.000E+00 0 394 7 -2.316E-03 6.997E-03 -3.851E-03 -1.524E-03 -7.112E-05 1.008E-02 0.000E+00 0.000E+00 0.000E+00 -1.613E-03 8.529E-03 -3.037E-03 -1.390E-03 4.306E-05 1.009E-02 0.000E+00 0.000E+00 0.000E+00 2.355E-03 1.116E-02 1.756E-03 6.805E-04 -1.870E-04 8.371E-03 0.000E+00 0.000E+00 0.000E+00 1.326E-03 8.886E-03 5.970E-04 4.795E-04 -2.715E-04 8.603E-03 0.000E+00 0.000E+00 0.000E+00 -6.280E-05 8.891E-03 -1.135E-03 -4.383E-04 -1.249E-04 9.277E-03 0.000E+00 0.000E+00 0.000E+00 0 394 8 -6.570E-04 1.752E-03 -7.515E-04 -2.722E-04 -2.195E-05 1.954E-03 0.000E+00 0.000E+00 0.000E+00 -3.280E-04 2.177E-03 -8.019E-05 -2.320E-04 1.633E-05 1.635E-03 0.000E+00 0.000E+00 0.000E+00 6.033E-04 2.707E-03 7.527E-04 8.978E-06 -8.712E-05 1.179E-03 0.000E+00 0.000E+00 0.000E+00 3.074E-04 2.266E-03 2.068E-04 -5.133E-05 -1.152E-04 1.687E-03 0.000E+00 0.000E+00 0.000E+00 -2.593E-05 2.218E-03 1.469E-05 -1.366E-04 -5.308E-05 1.612E-03 0.000E+00 0.000E+00 0.000E+00 0 394 9 -1.633E-04 3.857E-04 -1.160E-04 -2.329E-05 -5.027E-06 3.363E-04 0.000E+00 0.000E+00 0.000E+00 -5.359E-05 4.828E-04 1.526E-04 -1.282E-05 5.947E-06 1.921E-04 0.000E+00 0.000E+00 0.000E+00 1.329E-04 5.647E-04 2.390E-04 -4.427E-05 -2.985E-05 9.094E-05 0.000E+00 0.000E+00 0.000E+00 6.525E-05 5.159E-04 6.221E-05 -5.996E-05 -3.783E-05 3.002E-04 0.000E+00 0.000E+00 0.000E+00 -8.334E-06 4.836E-04 7.592E-05 -3.509E-05 -1.701E-05 2.298E-04 0.000E+00 0.000E+00 0.000E+00 0 394 10 -3.606E-05 7.428E-05 -7.605E-06 7.557E-06 -7.023E-07 4.624E-05 0.000E+00 0.000E+00 0.000E+00 -4.614E-06 9.273E-05 7.877E-05 1.001E-05 2.088E-06 -1.800E-06 0.000E+00 0.000E+00 0.000E+00 2.461E-05 9.745E-05 6.530E-05 -2.249E-05 -8.705E-06 -1.929E-05 0.000E+00 0.000E+00 0.000E+00 1.239E-05 1.047E-04 1.728E-05 -2.616E-05 -1.071E-05 4.625E-05 0.000E+00 0.000E+00 0.000E+00 -2.251E-06 9.097E-05 3.533E-05 -7.772E-06 -4.589E-06 1.802E-05 0.000E+00 0.000E+00 0.000E+00 0 394 0.0000 2.567E-01 -6.778E-01 -8.598E-01 1.525E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -7.909E-02 -9.407E-01 -1.716E+00 -1.445E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.907E-01 -7.552E-01 -9.861E-01 1.676E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.802E-02 -6.558E-01 -3.899E-01 2.122E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.224E-02 -7.464E-01 -9.623E-01 9.516E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 276 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 394 7.1000 2.481E-01 -6.699E-01 -7.799E-01 2.099E-02 2.176E-03 1.875E-01 0.000E+00 0.000E+00 0.000E+00 -6.278E-02 -9.177E-01 -1.568E+00 -7.223E-03 -6.315E-04 6.872E-01 0.000E+00 0.000E+00 0.000E+00 -1.880E-01 -7.606E-01 -9.197E-01 1.504E-01 1.226E-02 6.774E-01 0.000E+00 0.000E+00 0.000E+00 7.896E-03 -6.594E-01 -3.680E-01 1.928E-01 1.440E-02 -6.732E-02 0.000E+00 0.000E+00 0.000E+00 1.141E-02 -7.418E-01 -8.855E-01 8.925E-02 7.124E-03 3.722E-01 0.000E+00 0.000E+00 0.000E+00 0 401 0 -4.616E-04 1.748E-03 -1.281E-03 1.695E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.431E-03 -5.304E-04 -2.234E-03 1.765E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.553E-04 1.529E-03 6.553E-04 -4.396E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.310E-03 3.056E-03 1.310E-03 -4.859E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.770E-05 1.450E-03 -3.884E-04 6.337E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 401 1 2.002E-02 -1.886E-02 1.923E-02 6.498E-03 1.850E-04 -1.121E+00 0.000E+00 0.000E+00 0.000E+00 1.726E-02 -2.561E-02 1.679E-02 4.202E-03 2.575E-05 -1.103E+00 0.000E+00 0.000E+00 0.000E+00 -1.967E-02 -4.590E-02 -1.967E-02 -1.692E-03 1.555E-08 -1.108E+00 0.000E+00 0.000E+00 0.000E+00 -1.767E-02 -4.124E-02 -1.767E-02 -1.602E-04 -1.064E-08 -1.120E+00 0.000E+00 0.000E+00 0.000E+00 -2.265E-05 -3.291E-02 -3.493E-04 2.213E-03 5.889E-05 -1.113E+00 0.000E+00 0.000E+00 0.000E+00 0 401 2 1.060E-01 1.886E-02 2.844E-01 5.350E-02 5.857E-03 -2.856E+00 0.000E+00 0.000E+00 0.000E+00 2.420E-02 -9.428E-02 1.248E-01 5.177E-02 5.503E-03 -2.255E+00 0.000E+00 0.000E+00 0.000E+00 -7.234E-02 -1.688E-01 -7.234E-02 1.678E-04 -1.873E-06 -2.448E+00 0.000E+00 0.000E+00 0.000E+00 -5.669E-02 -1.323E-01 -5.669E-02 1.328E-03 1.375E-06 -2.851E+00 0.000E+00 0.000E+00 0.000E+00 2.591E-03 -9.182E-02 7.537E-02 2.669E-02 2.855E-03 -2.601E+00 0.000E+00 0.000E+00 0.000E+00 0 401 3 1.341E-01 2.042E-01 6.503E-01 8.855E-02 1.967E-02 -2.254E+00 0.000E+00 0.000E+00 0.000E+00 -7.101E-02 -4.944E-02 2.202E-01 1.026E-01 2.212E-02 -1.160E+00 0.000E+00 0.000E+00 0.000E+00 -4.220E-02 -9.847E-02 -4.219E-02 1.715E-02 3.555E-06 -1.516E+00 0.000E+00 0.000E+00 0.000E+00 -1.797E-02 -4.193E-02 -1.797E-02 7.748E-03 2.636E-06 -2.251E+00 0.000E+00 0.000E+00 0.000E+00 7.344E-03 1.020E-02 2.180E-01 5.402E-02 1.034E-02 -1.793E+00 0.000E+00 0.000E+00 0.000E+00 0 401 4 3.842E-02 9.793E-02 2.680E-01 1.626E-02 9.283E-03 -4.142E-01 0.000E+00 0.000E+00 0.000E+00 -4.301E-02 1.194E-02 8.257E-02 2.449E-02 1.132E-02 -4.049E-02 0.000E+00 0.000E+00 0.000E+00 1.183E-03 2.760E-03 1.183E-03 1.415E-02 -1.289E-06 -1.644E-01 0.000E+00 0.000E+00 0.000E+00 3.461E-03 8.074E-03 3.461E-03 8.659E-03 9.125E-07 -4.148E-01 0.000E+00 0.000E+00 0.000E+00 3.073E-03 3.324E-02 9.594E-02 1.589E-02 5.072E-03 -2.577E-01 0.000E+00 0.000E+00 0.000E+00 0 401 5 2.628E-03 2.017E-02 4.797E-02 -4.803E-03 1.474E-03 5.754E-04 0.000E+00 0.000E+00 0.000E+00 -1.162E-02 1.126E-02 9.389E-03 -2.747E-03 2.139E-03 7.010E-02 0.000E+00 0.000E+00 0.000E+00 5.550E-03 1.295E-02 5.550E-03 5.466E-03 1.896E-07 4.582E-02 0.000E+00 0.000E+00 0.000E+00 2.880E-03 6.721E-03 2.881E-03 4.095E-03 1.696E-07 -8.671E-05 0.000E+00 0.000E+00 0.000E+00 5.747E-04 1.349E-02 1.812E-02 5.028E-04 8.774E-04 2.920E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 277 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 401 6 -2.067E-03 1.761E-03 -1.789E-04 -3.356E-03 -2.514E-04 2.317E-02 0.000E+00 0.000E+00 0.000E+00 -2.370E-03 4.186E-03 -3.614E-03 -3.063E-03 -1.275E-04 3.059E-02 0.000E+00 0.000E+00 0.000E+00 2.769E-03 6.460E-03 2.769E-03 1.385E-03 1.885E-08 2.738E-02 0.000E+00 0.000E+00 0.000E+00 1.405E-03 3.278E-03 1.405E-03 1.190E-03 1.854E-08 2.278E-02 0.000E+00 0.000E+00 0.000E+00 2.633E-05 4.013E-03 3.099E-04 -9.611E-04 -9.962E-05 2.597E-02 0.000E+00 0.000E+00 0.000E+00 0 401 7 -1.201E-03 -3.933E-04 -3.486E-03 -1.112E-03 -2.540E-04 9.446E-03 0.000E+00 0.000E+00 0.000E+00 -4.490E-04 1.170E-03 -2.541E-03 -1.107E-03 -2.468E-04 9.032E-03 0.000E+00 0.000E+00 0.000E+00 9.897E-04 2.309E-03 9.897E-04 2.424E-04 -1.375E-09 8.855E-03 0.000E+00 0.000E+00 0.000E+00 5.843E-04 1.363E-03 5.843E-04 2.395E-04 -4.540E-09 9.258E-03 0.000E+00 0.000E+00 0.000E+00 -2.475E-05 1.107E-03 -1.126E-03 -4.343E-04 -1.255E-04 9.138E-03 0.000E+00 0.000E+00 0.000E+00 0 401 8 -4.427E-04 -2.534E-04 -1.625E-03 -2.762E-04 -1.085E-04 2.809E-03 0.000E+00 0.000E+00 0.000E+00 -8.935E-05 2.817E-04 -9.827E-04 -2.901E-04 -1.138E-04 2.280E-03 0.000E+00 0.000E+00 0.000E+00 3.026E-04 7.061E-04 3.026E-04 1.760E-05 2.086E-09 2.345E-03 0.000E+00 0.000E+00 0.000E+00 2.117E-04 4.939E-04 2.117E-04 2.690E-05 -1.202E-09 2.732E-03 0.000E+00 0.000E+00 0.000E+00 -1.293E-05 2.986E-04 -5.432E-04 -1.305E-04 -5.536E-05 2.538E-03 0.000E+00 0.000E+00 0.000E+00 0 401 9 -1.355E-04 -8.572E-05 -5.441E-04 -5.531E-05 -3.584E-05 7.267E-04 0.000E+00 0.000E+00 0.000E+00 -1.990E-05 6.072E-05 -3.052E-04 -6.147E-05 -3.887E-05 5.242E-04 0.000E+00 0.000E+00 0.000E+00 8.359E-05 1.950E-04 8.358E-05 -8.050E-06 -5.142E-10 5.571E-04 0.000E+00 0.000E+00 0.000E+00 6.818E-05 1.591E-04 6.818E-05 -3.941E-06 -4.619E-10 6.985E-04 0.000E+00 0.000E+00 0.000E+00 -4.541E-06 7.865E-05 -1.828E-04 -3.219E-05 -1.856E-05 6.258E-04 0.000E+00 0.000E+00 0.000E+00 0 401 10 -3.696E-05 -2.318E-05 -1.551E-04 -8.337E-06 -1.023E-05 1.716E-04 0.000E+00 0.000E+00 0.000E+00 -4.902E-06 1.164E-05 -8.303E-05 -1.024E-05 -1.131E-05 1.118E-04 0.000E+00 0.000E+00 0.000E+00 2.124E-05 4.957E-05 2.124E-05 -5.005E-06 -1.474E-10 1.219E-04 0.000E+00 0.000E+00 0.000E+00 1.986E-05 4.634E-05 1.986E-05 -3.735E-06 -1.320E-10 1.625E-04 0.000E+00 0.000E+00 0.000E+00 -1.365E-06 1.992E-05 -5.199E-05 -6.830E-06 -5.343E-06 1.418E-04 0.000E+00 0.000E+00 0.000E+00 0 401 0.0000 2.969E-01 3.250E-01 1.263E+00 1.569E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -8.855E-02 -1.409E-01 4.439E-01 1.776E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.227E-01 -2.862E-01 -1.226E-01 3.643E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -8.240E-02 -1.923E-01 -8.240E-02 2.263E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.356E-02 -6.083E-02 4.051E-01 9.839E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 401 7.1000 2.805E-01 2.950E-01 1.171E+00 1.495E-01 1.338E-02 -1.828E+00 0.000E+00 0.000E+00 0.000E+00 -7.639E-02 -1.397E-01 4.158E-01 1.679E-01 1.560E-02 -1.059E+00 0.000E+00 0.000E+00 0.000E+00 -1.199E-01 -2.797E-01 -1.199E-01 3.210E-02 3.434E-07 -1.312E+00 0.000E+00 0.000E+00 0.000E+00 -8.098E-02 -1.890E-01 -8.098E-02 1.985E-02 1.834E-06 -1.827E+00 0.000E+00 0.000E+00 0.000E+00 1.251E-02 -6.662E-02 3.737E-01 9.235E-02 7.156E-03 -1.505E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 278 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 402 0 -2.178E-04 2.742E-04 -1.628E-03 1.686E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -5.354E-04 -4.861E-04 -1.927E-03 1.671E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.459E-04 3.400E-04 1.459E-04 5.655E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 6.434E-04 1.501E-03 6.434E-04 5.872E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 8.106E-06 4.065E-04 -6.936E-04 1.127E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 402 1 2.056E-02 -2.271E-02 1.865E-02 5.796E-03 1.416E-04 -1.103E+00 0.000E+00 0.000E+00 0.000E+00 1.982E-02 -2.466E-02 1.814E-02 4.122E-03 2.861E-05 -1.091E+00 0.000E+00 0.000E+00 0.000E+00 -2.080E-02 -4.852E-02 -2.080E-02 1.093E-03 0.000E+00 -1.090E+00 0.000E+00 0.000E+00 0.000E+00 -1.943E-02 -4.535E-02 -1.943E-02 3.605E-03 0.000E+00 -1.108E+00 0.000E+00 0.000E+00 0.000E+00 2.360E-05 -3.532E-02 -8.824E-04 3.654E-03 4.959E-05 -1.098E+00 0.000E+00 0.000E+00 0.000E+00 0 402 2 9.015E-02 -5.007E-02 1.578E-01 5.770E-02 5.447E-03 -2.255E+00 0.000E+00 0.000E+00 0.000E+00 5.217E-02 -8.892E-02 7.015E-02 5.326E-02 4.778E-03 -1.862E+00 0.000E+00 0.000E+00 0.000E+00 -7.247E-02 -1.691E-01 -7.247E-02 5.099E-02 0.000E+00 -1.856E+00 0.000E+00 0.000E+00 0.000E+00 -7.146E-02 -1.667E-01 -7.146E-02 5.767E-02 0.000E+00 -2.448E+00 0.000E+00 0.000E+00 0.000E+00 1.863E-03 -1.164E-01 2.630E-02 5.491E-02 2.597E-03 -2.104E+00 0.000E+00 0.000E+00 0.000E+00 0 402 3 8.290E-02 4.792E-02 2.955E-01 1.061E-01 1.891E-02 -1.160E+00 0.000E+00 0.000E+00 0.000E+00 -1.756E-02 -4.225E-02 5.084E-02 1.076E-01 1.897E-02 -4.427E-01 0.000E+00 0.000E+00 0.000E+00 -3.013E-02 -7.031E-02 -3.013E-02 1.333E-01 9.632E-06 -4.386E-01 0.000E+00 0.000E+00 0.000E+00 -4.170E-02 -9.732E-02 -4.170E-02 1.310E-01 0.000E+00 -1.517E+00 0.000E+00 0.000E+00 0.000E+00 4.951E-03 -3.391E-02 8.399E-02 1.195E-01 9.459E-03 -8.874E-01 0.000E+00 0.000E+00 0.000E+00 0 402 4 1.189E-02 4.537E-02 1.091E-01 2.479E-02 8.941E-03 -4.049E-02 0.000E+00 0.000E+00 0.000E+00 -3.027E-02 1.392E-02 1.133E-05 2.744E-02 9.526E-03 2.049E-01 0.000E+00 0.000E+00 0.000E+00 1.327E-02 3.095E-02 1.327E-02 5.420E-02 0.000E+00 2.025E-01 0.000E+00 0.000E+00 0.000E+00 1.225E-03 2.857E-03 1.225E-03 5.023E-02 0.000E+00 -1.646E-01 0.000E+00 0.000E+00 0.000E+00 2.083E-03 2.633E-02 3.803E-02 3.917E-02 4.581E-03 5.117E-02 0.000E+00 0.000E+00 0.000E+00 0 402 5 -4.638E-03 1.504E-02 1.262E-02 -2.787E-03 1.389E-03 7.010E-02 0.000E+00 0.000E+00 0.000E+00 -1.294E-02 1.141E-02 -1.142E-02 -1.792E-03 1.702E-03 1.158E-01 0.000E+00 0.000E+00 0.000E+00 1.080E-02 2.519E-02 1.080E-02 9.884E-03 0.000E+00 1.134E-01 0.000E+00 0.000E+00 0.000E+00 5.543E-03 1.293E-02 5.543E-03 8.391E-03 0.000E+00 4.575E-02 0.000E+00 0.000E+00 0.000E+00 4.099E-04 1.686E-02 6.063E-03 3.424E-03 7.536E-04 8.635E-02 0.000E+00 0.000E+00 0.000E+00 0 402 6 -3.334E-03 3.387E-03 -4.143E-03 -3.086E-03 -2.548E-04 3.059E-02 0.000E+00 0.000E+00 0.000E+00 -3.902E-03 4.106E-03 -6.755E-03 -2.847E-03 -1.558E-04 3.548E-02 0.000E+00 0.000E+00 0.000E+00 4.213E-03 9.831E-03 4.213E-03 3.714E-04 6.055E-08 3.436E-02 0.000E+00 0.000E+00 0.000E+00 2.765E-03 6.452E-03 2.765E-03 1.293E-05 0.000E+00 2.737E-02 0.000E+00 0.000E+00 0.000E+00 2.920E-05 6.038E-03 -7.618E-04 -1.387E-03 -1.087E-04 3.194E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 279 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 402 7 -1.278E-03 6.022E-04 -2.960E-03 -1.116E-03 -2.436E-04 9.032E-03 0.000E+00 0.000E+00 0.000E+00 -1.004E-03 1.124E-03 -2.566E-03 -1.072E-03 -2.198E-04 8.762E-03 0.000E+00 0.000E+00 0.000E+00 1.266E-03 2.955E-03 1.266E-03 -4.542E-04 7.517E-09 8.368E-03 0.000E+00 0.000E+00 0.000E+00 9.884E-04 2.306E-03 9.884E-04 -5.201E-04 7.517E-09 8.855E-03 0.000E+00 0.000E+00 0.000E+00 -1.235E-05 1.741E-03 -8.306E-04 -7.905E-04 -1.173E-04 8.750E-03 0.000E+00 0.000E+00 0.000E+00 0 402 8 -3.926E-04 8.196E-05 -1.134E-03 -2.932E-04 -1.008E-04 2.280E-03 0.000E+00 0.000E+00 0.000E+00 -2.337E-04 2.656E-04 -7.876E-04 -2.872E-04 -9.631E-05 1.931E-03 0.000E+00 0.000E+00 0.000E+00 3.300E-04 7.700E-04 3.300E-04 -2.254E-04 0.000E+00 1.813E-03 0.000E+00 0.000E+00 0.000E+00 3.022E-04 7.050E-04 3.022E-04 -2.343E-04 0.000E+00 2.346E-03 0.000E+00 0.000E+00 0.000E+00 -7.079E-06 4.471E-04 -3.422E-04 -2.600E-04 -4.956E-05 2.091E-03 0.000E+00 0.000E+00 0.000E+00 0 402 9 -1.061E-04 5.012E-06 -3.477E-04 -6.251E-05 -3.209E-05 5.242E-04 0.000E+00 0.000E+00 0.000E+00 -4.970E-05 5.613E-05 -2.108E-04 -6.225E-05 -3.150E-05 3.904E-04 0.000E+00 0.000E+00 0.000E+00 7.746E-05 1.808E-04 7.746E-05 -7.551E-05 0.000E+00 3.594E-04 0.000E+00 0.000E+00 0.000E+00 8.343E-05 1.947E-04 8.343E-05 -7.590E-05 0.000E+00 5.578E-04 0.000E+00 0.000E+00 0.000E+00 -2.409E-06 1.055E-04 -1.080E-04 -6.904E-05 -1.593E-05 4.577E-04 0.000E+00 0.000E+00 0.000E+00 0 402 10 -2.602E-05 -1.838E-06 -9.341E-05 -1.058E-05 -8.707E-06 1.118E-04 0.000E+00 0.000E+00 0.000E+00 -9.447E-06 1.052E-05 -5.051E-05 -1.077E-05 -8.721E-06 7.208E-05 0.000E+00 0.000E+00 0.000E+00 1.645E-05 3.838E-05 1.645E-05 -2.132E-05 0.000E+00 6.477E-05 0.000E+00 0.000E+00 0.000E+00 2.119E-05 4.945E-05 2.119E-05 -2.102E-05 0.000E+00 1.222E-04 0.000E+00 0.000E+00 0.000E+00 -6.599E-07 2.293E-05 -2.938E-05 -1.592E-05 -4.356E-06 9.269E-05 0.000E+00 0.000E+00 0.000E+00 0 402 0.0000 1.955E-01 3.989E-02 5.834E-01 1.887E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 5.496E-03 -1.254E-01 1.154E-01 1.881E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -9.329E-02 -2.177E-01 -9.328E-02 2.497E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.210E-01 -2.824E-01 -1.210E-01 2.506E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 9.344E-03 -1.337E-01 1.507E-01 2.193E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 402 7.1000 1.879E-01 2.892E-02 5.456E-01 1.786E-01 1.280E-02 -1.059E+00 0.000E+00 0.000E+00 0.000E+00 1.252E-02 -1.251E-01 1.150E-01 1.774E-01 1.319E-02 -5.550E-01 0.000E+00 0.000E+00 0.000E+00 -9.422E-02 -2.199E-01 -9.422E-02 2.308E-01 3.545E-06 -5.556E-01 0.000E+00 0.000E+00 0.000E+00 -1.183E-01 -2.760E-01 -1.183E-01 2.326E-01 5.733E-09 -1.312E+00 0.000E+00 0.000E+00 0.000E+00 8.624E-03 -1.364E-01 1.392E-01 2.049E-01 6.472E-03 -8.691E-01 0.000E+00 0.000E+00 0.000E+00 0 403 0 2.695E-04 -1.409E-04 -1.582E-03 1.704E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.725E-05 -8.818E-04 -1.865E-03 1.643E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.421E-04 -7.986E-04 -3.421E-04 5.291E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.457E-04 3.402E-04 1.457E-04 6.199E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.013E-05 -3.692E-04 -9.080E-04 1.124E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 280 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 403 1 2.171E-02 -2.386E-02 1.895E-02 6.156E-03 1.550E-04 -1.091E+00 0.000E+00 0.000E+00 0.000E+00 2.124E-02 -2.518E-02 1.872E-02 4.372E-03 3.576E-05 -1.080E+00 0.000E+00 0.000E+00 0.000E+00 -2.177E-02 -5.080E-02 -2.177E-02 1.316E-03 8.502E-10 -1.073E+00 0.000E+00 0.000E+00 0.000E+00 -2.080E-02 -4.853E-02 -2.080E-02 3.990E-03 8.502E-10 -1.090E+00 0.000E+00 0.000E+00 0.000E+00 1.063E-04 -3.708E-02 -1.197E-03 3.959E-03 4.005E-05 -1.083E+00 0.000E+00 0.000E+00 0.000E+00 0 403 2 9.649E-02 -6.996E-02 8.914E-02 5.970E-02 5.646E-03 -1.862E+00 0.000E+00 0.000E+00 0.000E+00 6.035E-02 -1.063E-01 4.988E-03 5.273E-02 4.650E-03 -1.475E+00 0.000E+00 0.000E+00 0.000E+00 -7.270E-02 -1.696E-01 -7.270E-02 4.877E-02 6.658E-09 -1.277E+00 0.000E+00 0.000E+00 0.000E+00 -7.249E-02 -1.691E-01 -7.249E-02 5.925E-02 6.658E-09 -1.856E+00 0.000E+00 0.000E+00 0.000E+00 6.123E-04 -1.310E-01 -1.814E-02 5.511E-02 2.513E-03 -1.616E+00 0.000E+00 0.000E+00 0.000E+00 0 403 3 8.918E-02 3.448E-03 9.658E-02 1.087E-01 1.941E-02 -4.427E-01 0.000E+00 0.000E+00 0.000E+00 -8.482E-03 -8.483E-02 -1.407E-01 1.041E-01 1.826E-02 2.648E-01 0.000E+00 0.000E+00 0.000E+00 -1.962E-02 -4.579E-02 -1.962E-02 1.253E-01 1.302E-08 6.177E-01 0.000E+00 0.000E+00 0.000E+00 -3.016E-02 -7.037E-02 -3.016E-02 1.321E-01 4.341E-09 -4.387E-01 0.000E+00 0.000E+00 0.000E+00 1.025E-03 -5.607E-02 -3.911E-02 1.175E-01 9.342E-03 2.315E-03 0.000E+00 0.000E+00 0.000E+00 0 403 4 8.918E-03 3.070E-02 1.680E-02 2.540E-02 9.135E-03 2.049E-01 0.000E+00 0.000E+00 0.000E+00 -3.238E-02 -7.524E-04 -8.938E-02 2.581E-02 9.121E-03 4.472E-01 0.000E+00 0.000E+00 0.000E+00 2.432E-02 5.676E-02 2.433E-02 5.060E-02 -7.831E-10 5.630E-01 0.000E+00 0.000E+00 0.000E+00 1.326E-02 3.094E-02 1.326E-02 4.998E-02 -7.831E-10 2.025E-01 0.000E+00 0.000E+00 0.000E+00 4.120E-04 2.630E-02 -1.602E-02 3.795E-02 4.565E-03 3.551E-01 0.000E+00 0.000E+00 0.000E+00 0 403 5 -7.522E-03 1.373E-02 -9.095E-03 -2.820E-03 1.387E-03 1.158E-01 0.000E+00 0.000E+00 0.000E+00 -1.573E-02 9.896E-03 -3.262E-02 -2.134E-03 1.594E-03 1.611E-01 0.000E+00 0.000E+00 0.000E+00 1.572E-02 3.668E-02 1.572E-02 9.146E-03 -2.615E-09 1.801E-01 0.000E+00 0.000E+00 0.000E+00 1.080E-02 2.519E-02 1.080E-02 8.118E-03 -1.308E-09 1.134E-01 0.000E+00 0.000E+00 0.000E+00 8.008E-05 2.064E-02 -5.518E-03 3.078E-03 7.585E-04 1.428E-01 0.000E+00 0.000E+00 0.000E+00 0 403 6 -4.421E-03 3.884E-03 -6.978E-03 -3.148E-03 -2.833E-04 3.548E-02 0.000E+00 0.000E+00 0.000E+00 -5.015E-03 4.513E-03 -9.586E-03 -2.880E-03 -1.735E-04 4.036E-02 0.000E+00 0.000E+00 0.000E+00 5.590E-03 1.304E-02 5.590E-03 3.130E-04 -1.537E-09 4.132E-02 0.000E+00 0.000E+00 0.000E+00 4.213E-03 9.831E-03 4.213E-03 -9.000E-05 -5.125E-10 3.436E-02 0.000E+00 0.000E+00 0.000E+00 -4.992E-06 7.721E-03 -1.916E-03 -1.451E-03 -1.072E-04 3.790E-02 0.000E+00 0.000E+00 0.000E+00 0 403 7 -1.563E-03 8.844E-04 -2.806E-03 -1.143E-03 -2.590E-04 8.762E-03 0.000E+00 0.000E+00 0.000E+00 -1.305E-03 1.380E-03 -2.444E-03 -1.067E-03 -2.207E-04 8.510E-03 0.000E+00 0.000E+00 0.000E+00 1.534E-03 3.580E-03 1.534E-03 -4.334E-04 -2.894E-10 7.918E-03 0.000E+00 0.000E+00 0.000E+00 1.266E-03 2.955E-03 1.266E-03 -5.472E-04 -7.349E-09 8.368E-03 0.000E+00 0.000E+00 0.000E+00 -1.183E-05 2.205E-03 -6.007E-04 -7.975E-04 -1.175E-04 8.392E-03 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 281 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 403 8 -4.500E-04 1.729E-04 -8.803E-04 -3.019E-04 -1.066E-04 1.931E-03 0.000E+00 0.000E+00 0.000E+00 -2.976E-04 3.501E-04 -5.495E-04 -2.836E-04 -9.558E-05 1.590E-03 0.000E+00 0.000E+00 0.000E+00 3.579E-04 8.351E-04 3.579E-04 -2.124E-04 -6.977E-11 1.296E-03 0.000E+00 0.000E+00 0.000E+00 3.300E-04 7.700E-04 3.300E-04 -2.399E-04 -6.977E-11 1.813E-03 0.000E+00 0.000E+00 0.000E+00 -6.337E-06 5.406E-04 -1.655E-04 -2.594E-04 -4.984E-05 1.657E-03 0.000E+00 0.000E+00 0.000E+00 0 403 9 -1.145E-04 2.837E-05 -2.385E-04 -6.499E-05 -3.389E-05 3.904E-04 0.000E+00 0.000E+00 0.000E+00 -5.998E-05 7.815E-05 -1.067E-04 -6.104E-05 -3.111E-05 2.592E-04 0.000E+00 0.000E+00 0.000E+00 7.217E-05 1.684E-04 7.217E-05 -7.083E-05 -1.509E-11 1.660E-04 0.000E+00 0.000E+00 0.000E+00 7.747E-05 1.808E-04 7.746E-05 -7.677E-05 -1.509E-11 3.594E-04 0.000E+00 0.000E+00 0.000E+00 -2.489E-06 1.176E-04 -4.023E-05 -6.841E-05 -1.607E-05 2.933E-04 0.000E+00 0.000E+00 0.000E+00 0 403 10 -2.636E-05 3.273E-06 -5.776E-05 -1.123E-05 -9.207E-06 7.208E-05 0.000E+00 0.000E+00 0.000E+00 -1.028E-05 1.541E-05 -1.632E-05 -1.046E-05 -8.579E-06 3.311E-05 0.000E+00 0.000E+00 0.000E+00 1.202E-05 2.804E-05 1.202E-05 -1.993E-05 -5.876E-12 8.579E-06 0.000E+00 0.000E+00 0.000E+00 1.645E-05 3.838E-05 1.645E-05 -2.108E-05 -2.938E-12 6.477E-05 0.000E+00 0.000E+00 0.000E+00 -8.259E-07 2.249E-05 -8.560E-06 -1.568E-05 -4.406E-06 4.444E-05 0.000E+00 0.000E+00 0.000E+00 0 403 0.0000 2.025E-01 -4.111E-02 1.998E-01 1.942E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1.827E-02 -2.017E-01 -2.535E-01 1.822E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.683E-02 -1.560E-01 -6.683E-02 2.352E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -9.334E-02 -2.178E-01 -9.334E-02 2.531E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.220E-03 -1.670E-01 -8.362E-02 2.162E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 403 7.1000 1.956E-01 -4.671E-02 1.934E-01 1.837E-01 1.309E-02 -5.550E-01 0.000E+00 0.000E+00 0.000E+00 2.562E-02 -1.961E-01 -2.237E-01 1.721E-01 1.264E-02 -5.739E-02 0.000E+00 0.000E+00 0.000E+00 -7.118E-02 -1.661E-01 -7.118E-02 2.176E-01 3.239E-09 1.861E-01 0.000E+00 0.000E+00 0.000E+00 -9.427E-02 -2.200E-01 -9.427E-02 2.351E-01 -3.843E-09 -5.556E-01 0.000E+00 0.000E+00 0.000E+00 2.076E-03 -1.690E-01 -7.661E-02 2.021E-01 6.404E-03 -2.440E-01 0.000E+00 0.000E+00 0.000E+00 0 404 0 1.158E-03 -1.121E-04 -1.275E-03 1.789E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 2.352E-04 -2.313E-03 -2.151E-03 1.607E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.003E-03 -2.340E-03 -1.003E-03 -5.226E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -3.639E-04 -8.490E-04 -3.639E-04 -4.015E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 8.106E-06 -1.402E-03 -1.195E-03 6.180E-04 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 404 1 2.397E-02 -2.357E-02 2.003E-02 6.332E-03 1.836E-04 -1.080E+00 0.000E+00 0.000E+00 0.000E+00 2.170E-02 -2.924E-02 1.814E-02 3.445E-03 -5.722E-06 -1.064E+00 0.000E+00 0.000E+00 0.000E+00 -2.376E-02 -5.545E-02 -2.376E-02 -2.226E-03 0.000E+00 -1.063E+00 0.000E+00 0.000E+00 0.000E+00 -2.206E-02 -5.148E-02 -2.206E-02 -3.014E-04 0.000E+00 -1.073E+00 0.000E+00 0.000E+00 0.000E+00 -2.480E-05 -3.992E-02 -1.886E-03 1.812E-03 3.648E-05 -1.070E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 282 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 404 2 1.215E-01 -6.766E-02 3.491E-02 5.752E-02 6.229E-03 -1.475E+00 0.000E+00 0.000E+00 0.000E+00 4.795E-02 -1.704E-01 -1.076E-01 4.237E-02 4.153E-03 -9.045E-01 0.000E+00 0.000E+00 0.000E+00 -8.796E-02 -2.052E-01 -8.796E-02 -6.134E-03 0.000E+00 -8.969E-01 0.000E+00 0.000E+00 0.000E+00 -7.340E-02 -1.713E-01 -7.340E-02 3.967E-03 0.000E+00 -1.277E+00 0.000E+00 0.000E+00 0.000E+00 -2.575E-04 -1.559E-01 -6.383E-02 2.443E-02 2.504E-03 -1.137E+00 0.000E+00 0.000E+00 0.000E+00 0 404 3 1.369E-01 7.629E-03 -6.935E-02 1.008E-01 2.120E-02 2.648E-01 0.000E+00 0.000E+00 0.000E+00 -4.918E-02 -2.256E-01 -4.563E-01 8.282E-02 1.731E-02 1.308E+00 0.000E+00 0.000E+00 0.000E+00 -4.269E-02 -9.962E-02 -4.269E-02 4.196E-03 0.000E+00 1.314E+00 0.000E+00 0.000E+00 0.000E+00 -1.910E-02 -4.458E-02 -1.910E-02 1.615E-02 0.000E+00 6.174E-01 0.000E+00 0.000E+00 0.000E+00 -1.621E-04 -9.718E-02 -1.623E-01 5.099E-02 9.456E-03 8.778E-01 0.000E+00 0.000E+00 0.000E+00 0 404 4 1.960E-02 3.220E-02 -6.390E-02 2.102E-02 1.001E-02 4.472E-01 0.000E+00 0.000E+00 0.000E+00 -5.414E-02 -4.632E-02 -2.312E-01 1.766E-02 8.946E-03 8.051E-01 0.000E+00 0.000E+00 0.000E+00 2.266E-02 5.287E-02 2.266E-02 9.706E-03 0.000E+00 8.012E-01 0.000E+00 0.000E+00 0.000E+00 2.505E-02 5.844E-02 2.505E-02 1.195E-02 0.000E+00 5.629E-01 0.000E+00 0.000E+00 0.000E+00 2.005E-04 2.121E-02 -6.905E-02 1.508E-02 4.691E-03 6.547E-01 0.000E+00 0.000E+00 0.000E+00 0 404 5 -9.175E-03 1.396E-02 -2.944E-02 -4.109E-03 1.583E-03 1.611E-01 0.000E+00 0.000E+00 0.000E+00 -2.197E-02 6.283E-03 -6.441E-02 -3.586E-03 1.721E-03 2.281E-01 0.000E+00 0.000E+00 0.000E+00 1.857E-02 4.334E-02 1.857E-02 4.946E-03 0.000E+00 2.241E-01 0.000E+00 0.000E+00 0.000E+00 1.602E-02 3.737E-02 1.602E-02 4.597E-03 -9.971E-10 1.801E-01 0.000E+00 0.000E+00 0.000E+00 1.293E-04 2.451E-02 -1.652E-02 4.618E-04 8.317E-04 1.985E-01 0.000E+00 0.000E+00 0.000E+00 0 404 6 -5.975E-03 3.863E-03 -1.007E-02 -3.412E-03 -2.709E-04 4.036E-02 0.000E+00 0.000E+00 0.000E+00 -6.200E-03 6.294E-03 -1.325E-02 -2.937E-03 -8.199E-05 4.766E-02 0.000E+00 0.000E+00 0.000E+00 6.998E-03 1.633E-02 6.998E-03 1.490E-03 0.000E+00 4.586E-02 0.000E+00 0.000E+00 0.000E+00 5.669E-03 1.323E-02 5.669E-03 1.174E-03 0.000E+00 4.133E-02 0.000E+00 0.000E+00 0.000E+00 2.534E-05 9.831E-03 -2.891E-03 -9.211E-04 -7.991E-05 4.383E-02 0.000E+00 0.000E+00 0.000E+00 0 404 7 -2.115E-03 8.561E-04 -2.844E-03 -1.179E-03 -2.714E-04 8.510E-03 0.000E+00 0.000E+00 0.000E+00 -1.422E-03 2.345E-03 -2.020E-03 -1.004E-03 -1.870E-04 8.171E-03 0.000E+00 0.000E+00 0.000E+00 1.949E-03 4.547E-03 1.949E-03 3.216E-04 0.000E+00 7.585E-03 0.000E+00 0.000E+00 0.000E+00 1.551E-03 3.619E-03 1.551E-03 2.047E-04 -3.343E-10 7.923E-03 0.000E+00 0.000E+00 0.000E+00 -5.011E-06 2.846E-03 -3.312E-04 -4.141E-04 -1.109E-04 8.054E-03 0.000E+00 0.000E+00 0.000E+00 0 404 8 -5.951E-04 1.603E-04 -6.957E-04 -3.025E-04 -1.152E-04 1.590E-03 0.000E+00 0.000E+00 0.000E+00 -2.730E-04 6.617E-04 -1.237E-04 -2.523E-04 -8.712E-05 1.096E-03 0.000E+00 0.000E+00 0.000E+00 4.504E-04 1.051E-03 4.504E-04 4.668E-05 0.000E+00 9.411E-04 0.000E+00 0.000E+00 0.000E+00 3.607E-04 8.417E-04 3.607E-04 1.326E-05 0.000E+00 1.298E-03 0.000E+00 0.000E+00 0.000E+00 -5.984E-06 6.869E-04 1.721E-05 -1.237E-04 -4.935E-05 1.232E-03 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 283 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 404 9 -1.455E-04 2.413E-05 -1.485E-04 -6.310E-05 -3.783E-05 2.592E-04 0.000E+00 0.000E+00 0.000E+00 -4.070E-05 1.596E-04 6.538E-05 -5.062E-05 -2.985E-05 6.805E-05 0.000E+00 0.000E+00 0.000E+00 8.779E-05 2.048E-04 8.779E-05 4.309E-07 0.000E+00 3.406E-05 0.000E+00 0.000E+00 0.000E+00 7.248E-05 1.691E-04 7.248E-05 -7.891E-06 0.000E+00 1.666E-04 0.000E+00 0.000E+00 0.000E+00 -2.881E-06 1.430E-04 2.768E-05 -3.030E-05 -1.657E-05 1.320E-04 0.000E+00 0.000E+00 0.000E+00 0 404 10 -3.161E-05 2.075E-06 -2.671E-05 -1.032E-05 -1.071E-05 3.311E-05 0.000E+00 0.000E+00 0.000E+00 -2.658E-06 3.384E-05 3.803E-05 -7.528E-06 -8.705E-06 -2.378E-05 0.000E+00 0.000E+00 0.000E+00 1.340E-05 3.127E-05 1.340E-05 -2.846E-06 0.000E+00 -2.954E-05 0.000E+00 0.000E+00 0.000E+00 1.199E-05 2.799E-05 1.199E-05 -4.709E-06 -1.066E-11 8.793E-06 0.000E+00 0.000E+00 0.000E+00 -1.036E-06 2.497E-05 1.194E-05 -6.351E-06 -4.766E-06 -2.928E-06 0.000E+00 0.000E+00 0.000E+00 0 404 0.0000 2.851E-01 -3.264E-02 -1.228E-01 1.783E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.334E-02 -4.581E-01 -8.588E-01 1.401E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -1.047E-01 -2.443E-01 -1.047E-01 1.182E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -6.621E-02 -1.545E-01 -6.621E-02 3.734E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 -9.609E-05 -2.352E-01 -3.180E-01 9.190E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 404 7.1000 2.739E-01 -3.879E-02 -1.020E-01 1.694E-01 1.440E-02 -5.739E-02 0.000E+00 0.000E+00 0.000E+00 -4.873E-02 -4.357E-01 -7.805E-01 1.329E-01 1.226E-02 6.767E-01 0.000E+00 0.000E+00 0.000E+00 -1.079E-01 -2.517E-01 -1.079E-01 9.126E-03 0.000E+00 6.747E-01 0.000E+00 0.000E+00 0.000E+00 -7.074E-02 -1.651E-01 -7.074E-02 3.344E-02 -8.441E-10 1.859E-01 0.000E+00 0.000E+00 0.000E+00 -1.250E-04 -2.346E-01 -2.927E-01 8.622E-02 6.569E-03 3.713E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 284 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 181 0 5.464E-02 -6.872E-02 -1.501E+00 1.298E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 181 1 1.216E-01 -1.325E+00 -2.816E+00 2.807E-01 8.415E-02 -1.106E+00 0.000E+00 0.000E+00 0.000E+00 0 181 2 1.423E-01 -2.990E+00 5.222E-01 2.918E-01 2.632E-01 -2.272E+00 0.000E+00 0.000E+00 0.000E+00 0 181 3 1.541E-01 5.635E-01 7.696E+00 2.404E-01 5.234E-01 -2.747E+00 0.000E+00 0.000E+00 0.000E+00 0 181 4 1.606E-01 1.836E+00 7.145E+00 2.397E-01 5.477E-01 -2.520E+00 0.000E+00 0.000E+00 0.000E+00 0 181 5 1.673E-01 1.558E+00 5.624E+00 2.489E-01 4.951E-01 -2.103E+00 0.000E+00 0.000E+00 0.000E+00 0 181 6 1.633E-01 1.124E+00 4.318E+00 2.427E-01 4.194E-01 -1.670E+00 0.000E+00 0.000E+00 0.000E+00 0 181 7 1.500E-01 7.658E-01 3.287E+00 2.233E-01 3.454E-01 -1.310E+00 0.000E+00 0.000E+00 0.000E+00 0 181 8 1.325E-01 5.086E-01 2.503E+00 1.978E-01 2.811E-01 -1.026E+00 0.000E+00 0.000E+00 0.000E+00 0 181 9 1.140E-01 3.322E-01 1.912E+00 1.708E-01 2.274E-01 -8.047E-01 0.000E+00 0.000E+00 0.000E+00 0 181 10 9.641E-02 2.136E-01 1.464E+00 1.449E-01 1.832E-01 -6.318E-01 0.000E+00 0.000E+00 0.000E+00 0 181 0.0000 1.457E+00 2.518E+00 3.015E+01 2.411E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 181 3.5810 1.362E+00 2.097E+00 2.804E+01 2.268E+00 1.086E+00 -4.592E+00 0.000E+00 0.000E+00 0.000E+00 0 181 7.1620 1.100E+00 9.173E-01 2.211E+01 1.874E+00 1.986E+00 -8.478E+00 0.000E+00 0.000E+00 0.000E+00 0 182 0 -5.871E-02 -6.341E-02 -1.584E+00 1.160E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 182 1 -1.233E-01 -1.376E+00 -3.014E+00 2.770E-01 -5.770E-03 -9.778E-01 0.000E+00 0.000E+00 0.000E+00 0 182 2 -1.347E-01 -3.651E+00 -4.499E-01 4.021E-01 5.716E-02 -1.965E+00 0.000E+00 0.000E+00 0.000E+00 0 182 3 -1.106E-01 -8.983E-01 5.221E+00 3.748E-01 2.927E-01 -2.272E+00 0.000E+00 0.000E+00 0.000E+00 0 182 4 -9.392E-02 6.882E-01 5.065E+00 3.148E-01 3.248E-01 -2.001E+00 0.000E+00 0.000E+00 0.000E+00 0 182 5 -8.194E-02 7.949E-01 4.080E+00 2.653E-01 2.956E-01 -1.617E+00 0.000E+00 0.000E+00 0.000E+00 0 182 6 -6.942E-02 6.519E-01 3.185E+00 2.147E-01 2.571E-01 -1.255E+00 0.000E+00 0.000E+00 0.000E+00 0 182 7 -5.789E-02 4.863E-01 2.455E+00 1.722E-01 2.189E-01 -9.693E-01 0.000E+00 0.000E+00 0.000E+00 0 182 8 -4.799E-02 3.493E-01 1.887E+00 1.384E-01 1.845E-01 -7.515E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 285 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 182 9 -3.962E-02 2.463E-01 1.453E+00 1.118E-01 1.547E-01 -5.855E-01 0.000E+00 0.000E+00 0.000E+00 0 182 10 -3.261E-02 1.717E-01 1.121E+00 9.071E-02 1.292E-01 -4.580E-01 0.000E+00 0.000E+00 0.000E+00 0 182 0.0000 -8.507E-01 -2.599E+00 1.942E+01 2.478E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 182 3.5810 -8.121E-01 -2.817E+00 1.786E+01 2.363E+00 6.660E-01 -3.533E+00 0.000E+00 0.000E+00 0.000E+00 0 182 7.1620 -7.045E-01 -3.415E+00 1.351E+01 2.040E+00 1.210E+00 -6.540E+00 0.000E+00 0.000E+00 0.000E+00 0 183 0 -3.496E-02 7.526E-03 -1.470E+00 2.003E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 183 1 -3.835E-02 -1.270E+00 -2.824E+00 3.443E-01 3.401E-02 -8.962E-01 0.000E+00 0.000E+00 0.000E+00 0 183 2 2.775E-01 -3.861E+00 -1.277E+00 1.923E-01 2.412E-01 -1.716E+00 0.000E+00 0.000E+00 0.000E+00 0 183 3 7.410E-01 -1.610E+00 2.197E+00 3.035E-01 7.421E-01 -1.856E+00 0.000E+00 0.000E+00 0.000E+00 0 183 4 5.960E-01 1.123E-01 2.411E+00 4.382E-01 8.248E-01 -1.569E+00 0.000E+00 0.000E+00 0.000E+00 0 183 5 4.208E-01 3.784E-01 2.025E+00 4.705E-01 7.646E-01 -1.216E+00 0.000E+00 0.000E+00 0.000E+00 0 183 6 2.894E-01 3.507E-01 1.602E+00 4.527E-01 6.627E-01 -9.104E-01 0.000E+00 0.000E+00 0.000E+00 0 183 7 1.986E-01 2.670E-01 1.233E+00 4.100E-01 5.564E-01 -6.823E-01 0.000E+00 0.000E+00 0.000E+00 0 183 8 1.375E-01 1.880E-01 9.405E-01 3.585E-01 4.603E-01 -5.162E-01 0.000E+00 0.000E+00 0.000E+00 0 183 9 9.631E-02 1.266E-01 7.163E-01 3.067E-01 3.777E-01 -3.942E-01 0.000E+00 0.000E+00 0.000E+00 0 183 10 6.824E-02 8.231E-02 5.461E-01 2.585E-01 3.082E-01 -3.031E-01 0.000E+00 0.000E+00 0.000E+00 0 183 0.0000 2.752E+00 -5.227E+00 6.099E+00 3.735E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 183 3.5810 2.615E+00 -5.296E+00 5.347E+00 3.481E+00 1.691E+00 -2.635E+00 0.000E+00 0.000E+00 0.000E+00 0 183 7.1620 2.226E+00 -5.476E+00 3.244E+00 2.778E+00 3.078E+00 -4.901E+00 0.000E+00 0.000E+00 0.000E+00 0 184 0 1.452E-02 -1.490E-02 -1.505E+00 2.059E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 184 1 2.395E-02 -1.489E+00 -2.977E+00 4.475E-01 -3.486E-02 -7.808E-01 0.000E+00 0.000E+00 0.000E+00 0 184 2 5.802E-02 -5.116E+00 -2.674E+00 6.299E-01 3.243E-02 -1.416E+00 0.000E+00 0.000E+00 0.000E+00 0 184 3 1.716E-01 -3.878E+00 -1.442E+00 7.820E-01 3.635E-01 -1.323E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 286 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 184 4 1.593E-01 -1.584E+00 -6.228E-01 7.088E-01 4.089E-01 -9.680E-01 0.000E+00 0.000E+00 0.000E+00 0 184 5 1.246E-01 -7.628E-01 -2.240E-01 5.949E-01 3.723E-01 -6.438E-01 0.000E+00 0.000E+00 0.000E+00 0 184 6 9.519E-02 -3.888E-01 -5.094E-02 4.790E-01 3.246E-01 -4.134E-01 0.000E+00 0.000E+00 0.000E+00 0 184 7 7.273E-02 -2.055E-01 1.439E-02 3.816E-01 2.770E-01 -2.682E-01 0.000E+00 0.000E+00 0.000E+00 0 184 8 5.608E-02 -1.127E-01 3.535E-02 3.044E-01 2.339E-01 -1.776E-01 0.000E+00 0.000E+00 0.000E+00 0 184 9 4.369E-02 -6.407E-02 3.893E-02 2.436E-01 1.964E-01 -1.202E-01 0.000E+00 0.000E+00 0.000E+00 0 184 10 3.438E-02 -3.781E-02 3.615E-02 1.957E-01 1.640E-01 -8.310E-02 0.000E+00 0.000E+00 0.000E+00 0 184 0.0000 8.540E-01 -1.365E+01 -9.371E+00 4.973E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 184 3.5810 8.060E-01 -1.338E+01 -9.304E+00 4.722E+00 8.343E-01 -1.372E+00 0.000E+00 0.000E+00 0.000E+00 0 184 7.1620 6.712E-01 -1.258E+01 -9.100E+00 4.019E+00 1.514E+00 -2.597E+00 0.000E+00 0.000E+00 0.000E+00 0 185 0 -2.630E-03 7.901E-03 -1.423E+00 1.983E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 185 1 -3.071E-02 -1.560E+00 -2.883E+00 3.756E-01 4.807E-02 -6.504E-01 0.000E+00 0.000E+00 0.000E+00 0 185 2 -2.316E-01 -6.109E+00 -3.793E+00 2.892E-01 2.668E-01 -1.032E+00 0.000E+00 0.000E+00 0.000E+00 0 185 3 -4.773E-01 -6.025E+00 -4.865E+00 3.241E-01 7.714E-01 -6.867E-01 0.000E+00 0.000E+00 0.000E+00 0 185 4 -3.700E-01 -3.259E+00 -3.535E+00 4.188E-01 8.491E-01 -3.043E-01 0.000E+00 0.000E+00 0.000E+00 0 185 5 -2.486E-01 -1.906E+00 -2.406E+00 4.511E-01 7.819E-01 -3.070E-02 0.000E+00 0.000E+00 0.000E+00 0 185 6 -1.585E-01 -1.136E+00 -1.668E+00 4.380E-01 6.743E-01 1.105E-01 0.000E+00 0.000E+00 0.000E+00 0 185 7 -9.893E-02 -6.869E-01 -1.186E+00 3.996E-01 5.640E-01 1.640E-01 0.000E+00 0.000E+00 0.000E+00 0 185 8 -6.121E-02 -4.217E-01 -8.623E-01 3.513E-01 4.651E-01 1.733E-01 0.000E+00 0.000E+00 0.000E+00 0 185 9 -3.759E-02 -2.622E-01 -6.373E-01 3.018E-01 3.807E-01 1.623E-01 0.000E+00 0.000E+00 0.000E+00 0 185 10 -2.285E-02 -1.645E-01 -4.763E-01 2.551E-01 3.099E-01 1.430E-01 0.000E+00 0.000E+00 0.000E+00 0 185 0.0000 -1.740E+00 -2.152E+01 -2.373E+01 3.803E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 185 3.5810 -1.668E+00 -2.091E+01 -2.287E+01 3.554E+00 1.724E+00 -1.876E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 287 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 185 7.1620 -1.464E+00 -1.914E+01 -2.041E+01 2.863E+00 3.141E+00 -1.226E-01 0.000E+00 0.000E+00 0.000E+00 0 186 0 6.227E-02 5.171E-02 -1.430E+00 1.189E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 186 1 1.364E-01 -1.477E+00 -2.910E+00 2.495E-01 -2.306E-02 -5.743E-01 0.000E+00 0.000E+00 0.000E+00 0 186 2 2.252E-01 -6.264E+00 -4.709E+00 2.984E-01 2.583E-02 -8.467E-01 0.000E+00 0.000E+00 0.000E+00 0 186 3 3.493E-01 -6.682E+00 -7.784E+00 3.094E-01 2.463E-01 -3.519E-01 0.000E+00 0.000E+00 0.000E+00 0 186 4 3.048E-01 -3.802E+00 -6.069E+00 2.934E-01 2.786E-01 7.646E-02 0.000E+00 0.000E+00 0.000E+00 0 186 5 2.436E-01 -2.294E+00 -4.349E+00 2.539E-01 2.564E-01 3.324E-01 0.000E+00 0.000E+00 0.000E+00 0 186 6 1.905E-01 -1.412E+00 -3.153E+00 2.060E-01 2.249E-01 4.276E-01 0.000E+00 0.000E+00 0.000E+00 0 186 7 1.484E-01 -8.841E-01 -2.325E+00 1.639E-01 1.926E-01 4.304E-01 0.000E+00 0.000E+00 0.000E+00 0 186 8 1.160E-01 -5.638E-01 -1.740E+00 1.302E-01 1.629E-01 3.931E-01 0.000E+00 0.000E+00 0.000E+00 0 186 9 9.103E-02 -3.653E-01 -1.317E+00 1.037E-01 1.368E-01 3.419E-01 0.000E+00 0.000E+00 0.000E+00 0 186 10 7.169E-02 -2.397E-01 -1.004E+00 8.274E-02 1.144E-01 2.889E-01 0.000E+00 0.000E+00 0.000E+00 0 186 0.0000 1.939E+00 -2.393E+01 -3.679E+01 2.210E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 186 3.5810 1.841E+00 -2.318E+01 -3.517E+01 2.103E+00 5.774E-01 7.929E-01 0.000E+00 0.000E+00 0.000E+00 0 186 7.1620 1.565E+00 -2.103E+01 -3.060E+01 1.804E+00 1.048E+00 1.356E+00 0.000E+00 0.000E+00 0.000E+00 0 187 0 -8.606E-02 8.402E-02 -1.393E+00 1.134E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 187 1 -1.599E-01 -1.495E+00 -2.880E+00 2.079E-01 3.986E-02 -4.607E-01 0.000E+00 0.000E+00 0.000E+00 0 187 2 -9.728E-02 -6.895E+00 -5.414E+00 1.323E-01 1.615E-01 -5.272E-01 0.000E+00 0.000E+00 0.000E+00 0 187 3 -7.477E-02 -7.992E+00 -9.893E+00 1.464E-01 4.039E-01 1.385E-01 0.000E+00 0.000E+00 0.000E+00 0 187 4 -1.184E-01 -4.798E+00 -7.873E+00 2.110E-01 4.521E-01 5.869E-01 0.000E+00 0.000E+00 0.000E+00 0 187 5 -1.377E-01 -2.945E+00 -5.705E+00 2.360E-01 4.229E-01 8.054E-01 0.000E+00 0.000E+00 0.000E+00 0 187 6 -1.384E-01 -1.804E+00 -4.159E+00 2.340E-01 3.661E-01 8.303E-01 0.000E+00 0.000E+00 0.000E+00 0 187 7 -1.283E-01 -1.107E+00 -3.071E+00 2.158E-01 3.058E-01 7.605E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 288 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 187 8 -1.136E-01 -6.826E-01 -2.296E+00 1.908E-01 2.513E-01 6.592E-01 0.000E+00 0.000E+00 0.000E+00 0 187 9 -9.784E-02 -4.214E-01 -1.734E+00 1.642E-01 2.047E-01 5.544E-01 0.000E+00 0.000E+00 0.000E+00 0 187 10 -8.267E-02 -2.590E-01 -1.319E+00 1.388E-01 1.657E-01 4.577E-01 0.000E+00 0.000E+00 0.000E+00 0 187 0.0000 -1.235E+00 -2.831E+01 -4.574E+01 1.991E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 187 3.5810 -1.156E+00 -2.740E+01 -4.362E+01 1.857E+00 9.301E-01 1.830E+00 0.000E+00 0.000E+00 0.000E+00 0 187 7.1620 -9.373E-01 -2.478E+01 -3.765E+01 1.488E+00 1.695E+00 3.254E+00 0.000E+00 0.000E+00 0.000E+00 0 191 0 -3.940E-02 -3.851E-01 -1.499E+00 8.118E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 191 1 -1.431E-01 -2.120E+00 -2.903E+00 2.631E-01 -4.515E-03 -1.275E+00 0.000E+00 0.000E+00 0.000E+00 0 191 2 -2.703E-01 -4.071E+00 2.272E-01 4.854E-01 9.790E-03 -2.671E+00 0.000E+00 0.000E+00 0.000E+00 0 191 3 -1.321E-01 -1.246E-01 7.429E+00 3.213E-01 7.962E-02 -3.267E+00 0.000E+00 0.000E+00 0.000E+00 0 191 4 -5.728E-02 1.388E+00 6.867E+00 1.840E-01 6.153E-02 -2.958E+00 0.000E+00 0.000E+00 0.000E+00 0 191 5 -4.283E-02 1.180E+00 5.302E+00 1.331E-01 3.454E-02 -2.433E+00 0.000E+00 0.000E+00 0.000E+00 0 191 6 -3.361E-02 7.985E-01 3.987E+00 9.678E-02 1.875E-02 -1.904E+00 0.000E+00 0.000E+00 0.000E+00 0 191 7 -2.668E-02 4.917E-01 2.972E+00 7.069E-02 9.998E-03 -1.470E+00 0.000E+00 0.000E+00 0.000E+00 0 191 8 -2.148E-02 2.819E-01 2.217E+00 5.210E-02 5.071E-03 -1.134E+00 0.000E+00 0.000E+00 0.000E+00 0 191 9 -1.738E-02 1.477E-01 1.658E+00 3.870E-02 2.334E-03 -8.757E-01 0.000E+00 0.000E+00 0.000E+00 0 191 10 -1.410E-02 6.511E-02 1.245E+00 2.889E-02 7.710E-04 -6.770E-01 0.000E+00 0.000E+00 0.000E+00 0 191 0.0000 -7.983E-01 -2.348E+00 2.750E+01 1.755E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 191 3.5810 -7.769E-01 -2.582E+00 2.559E+01 1.702E+00 5.685E-02 -5.229E+00 0.000E+00 0.000E+00 0.000E+00 0 191 7.1620 -7.165E-01 -3.238E+00 2.021E+01 1.551E+00 1.083E-01 -9.672E+00 0.000E+00 0.000E+00 0.000E+00 0 192 0 -7.061E-02 -1.442E-01 -1.363E+00 1.653E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 192 1 -2.285E-01 -1.400E+00 -2.590E+00 5.372E-01 3.261E-01 -9.867E-01 0.000E+00 0.000E+00 0.000E+00 0 192 2 -3.427E-01 -3.361E+00 1.346E-02 8.883E-01 7.668E-01 -1.963E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 289 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 192 3 -7.676E-02 -7.444E-01 5.725E+00 4.419E-01 1.174E+00 -2.210E+00 0.000E+00 0.000E+00 0.000E+00 0 192 4 2.061E-02 6.634E-01 5.319E+00 2.150E-01 1.122E+00 -1.913E+00 0.000E+00 0.000E+00 0.000E+00 0 192 5 1.037E-02 7.246E-01 4.128E+00 2.033E-01 9.458E-01 -1.513E+00 0.000E+00 0.000E+00 0.000E+00 0 192 6 -8.186E-03 5.751E-01 3.114E+00 2.054E-01 7.560E-01 -1.145E+00 0.000E+00 0.000E+00 0.000E+00 0 192 7 -2.028E-02 4.173E-01 2.323E+00 1.963E-01 5.935E-01 -8.602E-01 0.000E+00 0.000E+00 0.000E+00 0 192 8 -2.571E-02 2.921E-01 1.731E+00 1.784E-01 4.634E-01 -6.482E-01 0.000E+00 0.000E+00 0.000E+00 0 192 9 -2.678E-02 2.011E-01 1.292E+00 1.563E-01 3.613E-01 -4.907E-01 0.000E+00 0.000E+00 0.000E+00 0 192 10 -2.539E-02 1.369E-01 9.662E-01 1.335E-01 2.814E-01 -3.729E-01 0.000E+00 0.000E+00 0.000E+00 0 192 0.0000 -7.939E-01 -2.639E+00 2.066E+01 3.321E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 192 3.5810 -7.761E-01 -2.825E+00 1.917E+01 3.185E+00 2.011E+00 -3.231E+00 0.000E+00 0.000E+00 0.000E+00 0 192 7.1620 -7.267E-01 -3.337E+00 1.499E+01 2.806E+00 3.706E+00 -6.003E+00 0.000E+00 0.000E+00 0.000E+00 0 193 0 5.857E-02 -8.242E-02 -1.287E+00 1.402E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 193 1 1.750E-01 -1.222E+00 -2.400E+00 7.218E-02 -1.194E-01 -9.203E-01 0.000E+00 0.000E+00 0.000E+00 0 193 2 2.662E-01 -3.414E+00 -7.722E-01 -3.552E-01 -9.143E-02 -1.775E+00 0.000E+00 0.000E+00 0.000E+00 0 193 3 1.482E-01 -1.650E+00 2.482E+00 8.599E-02 2.520E-01 -1.889E+00 0.000E+00 0.000E+00 0.000E+00 0 193 4 1.066E-01 -1.512E-01 2.518E+00 4.063E-01 3.524E-01 -1.572E+00 0.000E+00 0.000E+00 0.000E+00 0 193 5 1.178E-01 1.357E-01 2.058E+00 4.474E-01 3.589E-01 -1.202E+00 0.000E+00 0.000E+00 0.000E+00 0 193 6 1.219E-01 1.603E-01 1.602E+00 4.140E-01 3.271E-01 -8.838E-01 0.000E+00 0.000E+00 0.000E+00 0 193 7 1.156E-01 1.262E-01 1.217E+00 3.576E-01 2.812E-01 -6.494E-01 0.000E+00 0.000E+00 0.000E+00 0 193 8 1.035E-01 8.701E-02 9.178E-01 2.987E-01 2.347E-01 -4.812E-01 0.000E+00 0.000E+00 0.000E+00 0 193 9 8.922E-02 5.566E-02 6.910E-01 2.449E-01 1.925E-01 -3.595E-01 0.000E+00 0.000E+00 0.000E+00 0 193 10 7.503E-02 3.334E-02 5.204E-01 1.983E-01 1.563E-01 -2.704E-01 0.000E+00 0.000E+00 0.000E+00 0 193 0.0000 1.378E+00 -5.921E+00 7.547E+00 2.310E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 290 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 193 3.5810 1.304E+00 -5.914E+00 6.793E+00 2.103E+00 7.712E-01 -2.569E+00 0.000E+00 0.000E+00 0.000E+00 0 193 7.1620 1.098E+00 -5.881E+00 4.682E+00 1.529E+00 1.392E+00 -4.789E+00 0.000E+00 0.000E+00 0.000E+00 0 194 0 -1.191E-02 -3.993E-02 -1.346E+00 1.100E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 194 1 -9.410E-02 -1.583E+00 -2.697E+00 2.004E-01 -5.739E-02 -9.022E-01 0.000E+00 0.000E+00 0.000E+00 0 194 2 -3.649E-01 -5.208E+00 -2.069E+00 2.705E-01 -1.883E-02 -1.673E+00 0.000E+00 0.000E+00 0.000E+00 0 194 3 -4.856E-01 -3.629E+00 1.275E-01 5.401E-01 2.932E-01 -1.640E+00 0.000E+00 0.000E+00 0.000E+00 0 194 4 -3.299E-01 -1.286E+00 7.237E-01 5.617E-01 3.352E-01 -1.247E+00 0.000E+00 0.000E+00 0.000E+00 0 194 5 -2.206E-01 -5.152E-01 7.810E-01 4.818E-01 3.011E-01 -8.667E-01 0.000E+00 0.000E+00 0.000E+00 0 194 6 -1.462E-01 -1.927E-01 6.936E-01 3.858E-01 2.593E-01 -5.843E-01 0.000E+00 0.000E+00 0.000E+00 0 194 7 -9.706E-02 -5.270E-02 5.672E-01 3.023E-01 2.183E-01 -3.983E-01 0.000E+00 0.000E+00 0.000E+00 0 194 8 -6.499E-02 5.751E-03 4.478E-01 2.359E-01 1.817E-01 -2.770E-01 0.000E+00 0.000E+00 0.000E+00 0 194 9 -4.386E-02 2.766E-02 3.481E-01 1.842E-01 1.501E-01 -1.964E-01 0.000E+00 0.000E+00 0.000E+00 0 194 10 -2.975E-02 3.322E-02 2.686E-01 1.442E-01 1.233E-01 -1.415E-01 0.000E+00 0.000E+00 0.000E+00 0 194 0.0000 -1.889E+00 -1.244E+01 -2.155E+00 3.417E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 194 3.5810 -1.817E+00 -1.226E+01 -2.457E+00 3.224E+00 6.510E-01 -1.849E+00 0.000E+00 0.000E+00 0.000E+00 0 194 7.1620 -1.612E+00 -1.173E+01 -3.292E+00 2.686E+00 1.182E+00 -3.481E+00 0.000E+00 0.000E+00 0.000E+00 0 195 0 2.343E-02 -1.844E-02 -1.310E+00 1.317E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 195 1 6.458E-02 -1.511E+00 -2.615E+00 2.800E-01 -3.839E-02 -8.371E-01 0.000E+00 0.000E+00 0.000E+00 0 195 2 3.371E-01 -5.215E+00 -2.793E+00 4.150E-01 2.522E-02 -1.496E+00 0.000E+00 0.000E+00 0.000E+00 0 195 3 8.006E-01 -4.055E+00 -2.577E+00 5.978E-01 3.466E-01 -1.345E+00 0.000E+00 0.000E+00 0.000E+00 0 195 4 6.634E-01 -1.700E+00 -1.650E+00 5.700E-01 3.776E-01 -9.334E-01 0.000E+00 0.000E+00 0.000E+00 0 195 5 4.776E-01 -8.520E-01 -1.040E+00 4.822E-01 3.319E-01 -5.773E-01 0.000E+00 0.000E+00 0.000E+00 0 195 6 3.343E-01 -4.654E-01 -6.959E-01 3.851E-01 2.810E-01 -3.384E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 291 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 195 7 2.333E-01 -2.719E-01 -4.938E-01 3.020E-01 2.336E-01 -1.971E-01 0.000E+00 0.000E+00 0.000E+00 0 195 8 1.639E-01 -1.693E-01 -3.645E-01 2.361E-01 1.925E-01 -1.151E-01 0.000E+00 0.000E+00 0.000E+00 0 195 9 1.162E-01 -1.114E-01 -2.755E-01 1.848E-01 1.578E-01 -6.731E-02 0.000E+00 0.000E+00 0.000E+00 0 195 10 8.308E-02 -7.678E-02 -2.109E-01 1.450E-01 1.288E-01 -3.925E-02 0.000E+00 0.000E+00 0.000E+00 0 195 0.0000 3.297E+00 -1.445E+01 -1.403E+01 3.730E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 195 3.5810 3.138E+00 -1.413E+01 -1.363E+01 3.534E+00 7.146E-01 -1.219E+00 0.000E+00 0.000E+00 0.000E+00 0 195 7.1620 2.687E+00 -1.320E+01 -1.251E+01 2.987E+00 1.301E+00 -2.329E+00 0.000E+00 0.000E+00 0.000E+00 0 196 0 -7.217E-02 1.432E-01 -1.222E+00 1.825E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 196 1 -1.101E-01 -1.252E+00 -2.471E+00 3.584E-01 6.956E-02 -7.012E-01 0.000E+00 0.000E+00 0.000E+00 0 196 2 4.941E-02 -5.659E+00 -3.365E+00 3.120E-01 3.075E-01 -1.099E+00 0.000E+00 0.000E+00 0.000E+00 0 196 3 1.498E-01 -5.442E+00 -4.545E+00 3.423E-01 8.076E-01 -6.892E-01 0.000E+00 0.000E+00 0.000E+00 0 196 4 5.420E-02 -2.733E+00 -3.312E+00 4.184E-01 8.578E-01 -2.609E-01 0.000E+00 0.000E+00 0.000E+00 0 196 5 -5.647E-03 -1.478E+00 -2.253E+00 4.323E-01 7.646E-01 3.016E-02 0.000E+00 0.000E+00 0.000E+00 0 196 6 -3.491E-02 -8.033E-01 -1.567E+00 4.030E-01 6.393E-01 1.681E-01 0.000E+00 0.000E+00 0.000E+00 0 196 7 -4.592E-02 -4.327E-01 -1.118E+00 3.544E-01 5.194E-01 2.104E-01 0.000E+00 0.000E+00 0.000E+00 0 196 8 -4.722E-02 -2.290E-01 -8.154E-01 3.014E-01 4.165E-01 2.075E-01 0.000E+00 0.000E+00 0.000E+00 0 196 9 -4.388E-02 -1.164E-01 -6.033E-01 2.509E-01 3.317E-01 1.859E-01 0.000E+00 0.000E+00 0.000E+00 0 196 10 -3.864E-02 -5.436E-02 -4.507E-01 2.060E-01 2.630E-01 1.584E-01 0.000E+00 0.000E+00 0.000E+00 0 196 0.0000 -1.450E-01 -1.806E+01 -2.172E+01 3.562E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 196 3.5810 -1.226E-01 -1.760E+01 -2.091E+01 3.343E+00 1.625E+00 7.747E-02 0.000E+00 0.000E+00 0.000E+00 0 196 7.1620 -6.271E-02 -1.630E+01 -1.860E+01 2.735E+00 2.973E+00 4.957E-02 0.000E+00 0.000E+00 0.000E+00 0 197 0 -9.374E-03 1.755E-01 -1.177E+00 1.204E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 197 1 -3.692E-02 -1.217E+00 -2.425E+00 2.030E-01 5.238E-02 -6.395E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 292 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 197 2 -7.543E-02 -6.000E+00 -4.376E+00 7.636E-02 2.196E-01 -9.235E-01 0.000E+00 0.000E+00 0.000E+00 0 197 3 -2.775E-02 -6.438E+00 -7.689E+00 9.473E-02 5.233E-01 -3.896E-01 0.000E+00 0.000E+00 0.000E+00 0 197 4 -9.747E-03 -3.543E+00 -5.949E+00 1.884E-01 5.520E-01 5.581E-02 0.000E+00 0.000E+00 0.000E+00 0 197 5 -2.317E-04 -2.060E+00 -4.199E+00 2.228E-01 4.949E-01 3.194E-01 0.000E+00 0.000E+00 0.000E+00 0 197 6 8.857E-03 -1.218E+00 -2.992E+00 2.228E-01 4.151E-01 4.105E-01 0.000E+00 0.000E+00 0.000E+00 0 197 7 1.372E-02 -7.289E-01 -2.165E+00 2.044E-01 3.377E-01 4.059E-01 0.000E+00 0.000E+00 0.000E+00 0 197 8 1.517E-02 -4.421E-01 -1.588E+00 1.787E-01 2.709E-01 3.624E-01 0.000E+00 0.000E+00 0.000E+00 0 197 9 1.466E-02 -2.710E-01 -1.177E+00 1.517E-01 2.159E-01 3.076E-01 0.000E+00 0.000E+00 0.000E+00 0 197 10 1.320E-02 -1.671E-01 -8.783E-01 1.263E-01 1.711E-01 2.534E-01 0.000E+00 0.000E+00 0.000E+00 0 197 0.0000 -9.385E-02 -2.191E+01 -3.462E+01 1.790E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 197 3.5810 -1.009E-01 -2.126E+01 -3.310E+01 1.666E+00 1.057E+00 6.927E-01 0.000E+00 0.000E+00 0.000E+00 0 197 7.1620 -1.197E-01 -1.938E+01 -2.882E+01 1.326E+00 1.934E+00 1.177E+00 0.000E+00 0.000E+00 0.000E+00 0 198 0 5.443E-02 3.220E-01 -1.163E+00 4.522E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 198 1 1.142E-01 -1.031E+00 -2.430E+00 9.631E-02 -4.791E-02 -5.158E-01 0.000E+00 0.000E+00 0.000E+00 0 198 2 1.590E-01 -6.469E+00 -4.985E+00 1.393E-01 -8.903E-02 -5.877E-01 0.000E+00 0.000E+00 0.000E+00 0 198 3 2.063E-01 -7.515E+00 -9.433E+00 1.775E-01 -3.643E-02 2.163E-01 0.000E+00 0.000E+00 0.000E+00 0 198 4 1.840E-01 -4.266E+00 -7.397E+00 1.718E-01 -3.105E-02 7.196E-01 0.000E+00 0.000E+00 0.000E+00 0 198 5 1.438E-01 -2.451E+00 -5.261E+00 1.406E-01 -3.465E-02 9.400E-01 0.000E+00 0.000E+00 0.000E+00 0 198 6 1.054E-01 -1.384E+00 -3.767E+00 1.040E-01 -3.153E-02 9.437E-01 0.000E+00 0.000E+00 0.000E+00 0 198 7 7.587E-02 -7.635E-01 -2.734E+00 7.425E-02 -2.679E-02 8.473E-01 0.000E+00 0.000E+00 0.000E+00 0 198 8 5.462E-02 -4.074E-01 -2.011E+00 5.242E-02 -2.211E-02 7.216E-01 0.000E+00 0.000E+00 0.000E+00 0 198 9 3.951E-02 -2.038E-01 -1.494E+00 3.688E-02 -1.802E-02 5.972E-01 0.000E+00 0.000E+00 0.000E+00 0 198 10 2.874E-02 -8.851E-02 -1.118E+00 2.588E-02 -1.458E-02 4.856E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 293 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 198 0.0000 1.166E+00 -2.426E+01 -4.179E+01 1.064E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 198 3.5810 1.116E+00 -2.355E+01 -3.989E+01 1.016E+00 -9.085E-02 2.055E+00 0.000E+00 0.000E+00 0.000E+00 0 198 7.1620 9.733E-01 -2.153E+01 -3.453E+01 8.817E-01 -1.673E-01 3.665E+00 0.000E+00 0.000E+00 0.000E+00 0 201 0 5.829E-02 -4.431E-01 -1.245E+00 1.286E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 201 1 1.535E-01 -1.725E+00 -2.243E+00 3.168E-01 1.083E-01 -1.021E+00 0.000E+00 0.000E+00 0.000E+00 0 201 2 2.277E-01 -2.653E+00 1.141E+00 4.136E-01 3.140E-01 -2.161E+00 0.000E+00 0.000E+00 0.000E+00 0 201 3 2.033E-01 3.937E-01 7.817E+00 3.153E-01 5.643E-01 -2.668E+00 0.000E+00 0.000E+00 0.000E+00 0 201 4 1.655E-01 1.236E+00 6.840E+00 2.497E-01 5.553E-01 -2.411E+00 0.000E+00 0.000E+00 0.000E+00 0 201 5 1.544E-01 9.430E-01 5.122E+00 2.319E-01 4.746E-01 -1.967E+00 0.000E+00 0.000E+00 0.000E+00 0 201 6 1.411E-01 5.967E-01 3.756E+00 2.107E-01 3.803E-01 -1.517E+00 0.000E+00 0.000E+00 0.000E+00 0 201 7 1.227E-01 3.444E-01 2.736E+00 1.831E-01 2.966E-01 -1.151E+00 0.000E+00 0.000E+00 0.000E+00 0 201 8 1.030E-01 1.827E-01 1.995E+00 1.537E-01 2.288E-01 -8.702E-01 0.000E+00 0.000E+00 0.000E+00 0 201 9 8.433E-02 8.507E-02 1.460E+00 1.260E-01 1.757E-01 -6.582E-01 0.000E+00 0.000E+00 0.000E+00 0 201 10 6.782E-02 2.857E-02 1.071E+00 1.015E-01 1.344E-01 -4.980E-01 0.000E+00 0.000E+00 0.000E+00 0 201 0.0000 1.482E+00 -1.011E+00 2.845E+01 2.431E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 201 3.5810 1.404E+00 -1.193E+00 2.666E+01 2.313E+00 9.813E-01 -4.134E+00 0.000E+00 0.000E+00 0.000E+00 0 201 7.1620 1.186E+00 -1.708E+00 2.161E+01 1.985E+00 1.807E+00 -7.662E+00 0.000E+00 0.000E+00 0.000E+00 0 202 0 -1.921E-02 -2.362E-01 -1.246E+00 3.133E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 202 1 3.082E-02 -1.349E+00 -2.265E+00 1.335E-01 1.740E-02 -8.718E-01 0.000E+00 0.000E+00 0.000E+00 0 202 2 1.829E-01 -2.999E+00 -3.028E-02 2.976E-01 7.951E-02 -1.756E+00 0.000E+00 0.000E+00 0.000E+00 0 202 3 7.496E-02 -1.161E+00 4.198E+00 1.982E-01 2.495E-01 -1.990E+00 0.000E+00 0.000E+00 0.000E+00 0 202 4 -4.546E-02 6.358E-03 3.805E+00 1.232E-01 2.350E-01 -1.683E+00 0.000E+00 0.000E+00 0.000E+00 0 202 5 -7.531E-02 1.486E-01 2.910E+00 9.526E-02 1.832E-01 -1.299E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 294 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 202 6 -7.642E-02 1.183E-01 2.163E+00 6.987E-02 1.404E-01 -9.611E-01 0.000E+00 0.000E+00 0.000E+00 0 202 7 -6.823E-02 6.783E-02 1.588E+00 5.028E-02 1.077E-01 -7.073E-01 0.000E+00 0.000E+00 0.000E+00 0 202 8 -5.786E-02 2.838E-02 1.163E+00 3.626E-02 8.297E-02 -5.232E-01 0.000E+00 0.000E+00 0.000E+00 0 202 9 -4.785E-02 3.027E-03 8.531E-01 2.636E-02 6.417E-02 -3.893E-01 0.000E+00 0.000E+00 0.000E+00 0 202 10 -3.899E-02 -1.139E-02 6.271E-01 1.931E-02 4.974E-02 -2.911E-01 0.000E+00 0.000E+00 0.000E+00 0 202 0.0000 -1.407E-01 -5.384E+00 1.377E+01 1.081E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 202 3.5810 -1.049E-01 -5.361E+00 1.274E+01 1.045E+00 3.721E-01 -2.741E+00 0.000E+00 0.000E+00 0.000E+00 0 202 7.1620 -6.510E-03 -5.292E+00 9.876E+00 9.424E-01 6.864E-01 -5.105E+00 0.000E+00 0.000E+00 0.000E+00 0 203 0 3.228E-02 -2.352E-01 -1.222E+00 3.004E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 203 1 5.965E-04 -1.802E+00 -2.401E+00 -6.142E-02 -2.058E-01 -9.866E-01 0.000E+00 0.000E+00 0.000E+00 0 203 2 -1.277E-01 -4.470E+00 -1.029E+00 -2.137E-01 -3.486E-01 -1.952E+00 0.000E+00 0.000E+00 0.000E+00 0 203 3 2.347E-02 -2.014E+00 2.431E+00 2.087E-01 -2.066E-01 -2.142E+00 0.000E+00 0.000E+00 0.000E+00 0 203 4 1.087E-01 -1.621E-01 2.536E+00 3.689E-01 -1.444E-01 -1.772E+00 0.000E+00 0.000E+00 0.000E+00 0 203 5 1.149E-01 1.534E-01 2.031E+00 3.334E-01 -1.044E-01 -1.341E+00 0.000E+00 0.000E+00 0.000E+00 0 203 6 1.056E-01 1.670E-01 1.540E+00 2.650E-01 -6.844E-02 -9.752E-01 0.000E+00 0.000E+00 0.000E+00 0 203 7 9.102E-02 1.212E-01 1.140E+00 2.021E-01 -4.334E-02 -7.076E-01 0.000E+00 0.000E+00 0.000E+00 0 203 8 7.580E-02 7.512E-02 8.375E-01 1.522E-01 -2.687E-02 -5.172E-01 0.000E+00 0.000E+00 0.000E+00 0 203 9 6.182E-02 4.104E-02 6.143E-01 1.142E-01 -1.623E-02 -3.811E-01 0.000E+00 0.000E+00 0.000E+00 0 203 10 4.974E-02 1.858E-02 4.509E-01 8.574E-02 -9.388E-03 -2.826E-01 0.000E+00 0.000E+00 0.000E+00 0 203 0.0000 5.362E-01 -8.107E+00 6.929E+00 1.485E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 203 3.5810 4.837E-01 -8.078E+00 6.225E+00 1.366E+00 -2.331E-01 -2.829E+00 0.000E+00 0.000E+00 0.000E+00 0 203 7.1620 3.385E-01 -7.982E+00 4.251E+00 1.032E+00 -4.440E-01 -5.280E+00 0.000E+00 0.000E+00 0.000E+00 0 204 0 5.934E-02 6.942E-02 -1.056E+00 1.431E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 295 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 204 1 1.402E-01 -1.123E+00 -2.041E+00 1.995E-01 -7.959E-02 -8.373E-01 0.000E+00 0.000E+00 0.000E+00 0 204 2 8.418E-02 -4.242E+00 -1.275E+00 -2.086E-02 1.425E-02 -1.495E+00 0.000E+00 0.000E+00 0.000E+00 0 204 3 -1.413E-01 -3.013E+00 6.543E-01 1.400E-01 4.709E-01 -1.342E+00 0.000E+00 0.000E+00 0.000E+00 0 204 4 -1.096E-01 -9.769E-01 9.949E-01 3.287E-01 5.560E-01 -9.582E-01 0.000E+00 0.000E+00 0.000E+00 0 204 5 -4.590E-02 -3.044E-01 9.170E-01 3.694E-01 5.143E-01 -6.171E-01 0.000E+00 0.000E+00 0.000E+00 0 204 6 -6.205E-03 -3.987E-02 7.507E-01 3.497E-01 4.380E-01 -3.788E-01 0.000E+00 0.000E+00 0.000E+00 0 204 7 1.339E-02 6.079E-02 5.800E-01 3.055E-01 3.576E-01 -2.328E-01 0.000E+00 0.000E+00 0.000E+00 0 204 8 2.105E-02 9.112E-02 4.366E-01 2.558E-01 2.858E-01 -1.450E-01 0.000E+00 0.000E+00 0.000E+00 0 204 9 2.246E-02 9.223E-02 3.248E-01 2.089E-01 2.257E-01 -9.154E-02 0.000E+00 0.000E+00 0.000E+00 0 204 10 2.089E-02 8.215E-02 2.403E-01 1.678E-01 1.768E-01 -5.851E-02 0.000E+00 0.000E+00 0.000E+00 0 204 0.0000 5.846E-02 -9.304E+00 5.269E-01 2.448E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 204 3.5810 5.482E-02 -9.215E+00 1.983E-01 2.269E+00 1.053E+00 -1.306E+00 0.000E+00 0.000E+00 0.000E+00 0 204 7.1620 4.677E-02 -8.939E+00 -7.178E-01 1.772E+00 1.919E+00 -2.483E+00 0.000E+00 0.000E+00 0.000E+00 0 205 0 -6.844E-02 1.974E-02 -1.094E+00 1.751E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 205 1 -1.027E-01 -1.224E+00 -2.134E+00 3.300E-01 -8.636E-03 -7.747E-01 0.000E+00 0.000E+00 0.000E+00 0 205 2 1.589E-01 -4.509E+00 -2.238E+00 2.450E-01 1.595E-01 -1.307E+00 0.000E+00 0.000E+00 0.000E+00 0 205 3 4.796E-01 -3.693E+00 -2.232E+00 2.849E-01 6.302E-01 -1.021E+00 0.000E+00 0.000E+00 0.000E+00 0 205 4 3.385E-01 -1.578E+00 -1.457E+00 3.792E-01 6.833E-01 -6.272E-01 0.000E+00 0.000E+00 0.000E+00 0 205 5 2.108E-01 -7.755E-01 -9.097E-01 3.976E-01 6.080E-01 -3.211E-01 0.000E+00 0.000E+00 0.000E+00 0 205 6 1.291E-01 -4.043E-01 -5.991E-01 3.695E-01 5.047E-01 -1.363E-01 0.000E+00 0.000E+00 0.000E+00 0 205 7 7.914E-02 -2.184E-01 -4.163E-01 3.212E-01 4.051E-01 -4.186E-02 0.000E+00 0.000E+00 0.000E+00 0 205 8 4.905E-02 -1.214E-01 -2.998E-01 2.688E-01 3.200E-01 2.763E-03 0.000E+00 0.000E+00 0.000E+00 0 205 9 3.083E-02 -6.884E-02 -2.204E-01 2.197E-01 2.506E-01 2.168E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 296 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 205 10 1.967E-02 -3.946E-02 -1.638E-01 1.767E-01 1.951E-01 2.773E-02 0.000E+00 0.000E+00 0.000E+00 0 205 0.0000 1.324E+00 -1.261E+01 -1.176E+01 3.168E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 205 3.5810 1.263E+00 -1.234E+01 -1.143E+01 2.973E+00 1.250E+00 -6.940E-01 0.000E+00 0.000E+00 0.000E+00 0 205 7.1620 1.089E+00 -1.156E+01 -1.049E+01 2.432E+00 2.288E+00 -1.359E+00 0.000E+00 0.000E+00 0.000E+00 0 206 0 5.212E-03 2.352E-01 -1.056E+00 7.062E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 206 1 6.659E-02 -1.011E+00 -2.124E+00 2.118E-01 -1.579E-02 -7.140E-01 0.000E+00 0.000E+00 0.000E+00 0 206 2 2.809E-01 -5.276E+00 -2.976E+00 4.338E-01 5.204E-02 -1.094E+00 0.000E+00 0.000E+00 0.000E+00 0 206 3 3.799E-01 -5.051E+00 -4.169E+00 4.879E-01 3.498E-01 -5.721E-01 0.000E+00 0.000E+00 0.000E+00 0 206 4 2.546E-01 -2.390E+00 -2.987E+00 4.100E-01 3.613E-01 -1.140E-01 0.000E+00 0.000E+00 0.000E+00 0 206 5 1.633E-01 -1.188E+00 -1.980E+00 3.400E-01 3.013E-01 1.646E-01 0.000E+00 0.000E+00 0.000E+00 0 206 6 1.020E-01 -5.705E-01 -1.343E+00 2.689E-01 2.438E-01 2.772E-01 0.000E+00 0.000E+00 0.000E+00 0 206 7 6.302E-02 -2.510E-01 -9.370E-01 2.087E-01 1.949E-01 2.936E-01 0.000E+00 0.000E+00 0.000E+00 0 206 8 3.886E-02 -8.888E-02 -6.685E-01 1.612E-01 1.552E-01 2.687E-01 0.000E+00 0.000E+00 0.000E+00 0 206 9 2.391E-02 -9.247E-03 -4.845E-01 1.244E-01 1.232E-01 2.298E-01 0.000E+00 0.000E+00 0.000E+00 0 206 10 1.463E-02 2.722E-02 -3.547E-01 9.606E-02 9.761E-02 1.893E-01 0.000E+00 0.000E+00 0.000E+00 0 206 0.0000 1.393E+00 -1.557E+01 -1.908E+01 2.813E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 206 3.5810 1.344E+00 -1.524E+01 -1.839E+01 2.676E+00 6.218E-01 3.228E-01 0.000E+00 0.000E+00 0.000E+00 0 206 7.1620 1.204E+00 -1.426E+01 -1.642E+01 2.292E+00 1.139E+00 4.999E-01 0.000E+00 0.000E+00 0.000E+00 0 207 0 6.728E-02 2.668E-01 -1.013E+00 8.453E-03 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 207 1 1.383E-01 -9.765E-01 -2.081E+00 5.638E-02 -3.204E-02 -6.523E-01 0.000E+00 0.000E+00 0.000E+00 0 207 2 1.549E-01 -5.618E+00 -3.990E+00 1.982E-01 -3.303E-02 -9.192E-01 0.000E+00 0.000E+00 0.000E+00 0 207 3 2.013E-01 -6.048E+00 -7.316E+00 2.404E-01 7.064E-02 -2.732E-01 0.000E+00 0.000E+00 0.000E+00 0 207 4 1.895E-01 -3.202E+00 -5.627E+00 1.799E-01 6.086E-02 2.022E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 297 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 207 5 1.679E-01 -1.771E+00 -3.928E+00 1.305E-01 3.667E-02 4.536E-01 0.000E+00 0.000E+00 0.000E+00 0 207 6 1.450E-01 -9.857E-01 -2.770E+00 8.868E-02 2.385E-02 5.195E-01 0.000E+00 0.000E+00 0.000E+00 0 207 7 1.221E-01 -5.477E-01 -1.985E+00 5.868E-02 1.671E-02 4.891E-01 0.000E+00 0.000E+00 0.000E+00 0 207 8 1.008E-01 -3.026E-01 -1.443E+00 3.851E-02 1.241E-02 4.237E-01 0.000E+00 0.000E+00 0.000E+00 0 207 9 8.204E-02 -1.643E-01 -1.059E+00 2.518E-02 9.570E-03 3.516E-01 0.000E+00 0.000E+00 0.000E+00 0 207 10 6.613E-02 -8.587E-02 -7.831E-01 1.638E-02 7.530E-03 2.844E-01 0.000E+00 0.000E+00 0.000E+00 0 207 0.0000 1.435E+00 -1.943E+01 -3.199E+01 1.041E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 207 3.5810 1.357E+00 -1.890E+01 -3.060E+01 1.000E+00 6.465E-02 9.377E-01 0.000E+00 0.000E+00 0.000E+00 0 207 7.1620 1.139E+00 -1.735E+01 -2.666E+01 8.831E-01 1.196E-01 1.627E+00 0.000E+00 0.000E+00 0.000E+00 0 208 0 -7.658E-02 5.142E-01 -9.198E-01 9.696E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 208 1 -1.417E-01 -6.247E-01 -1.948E+00 1.756E-01 2.122E-02 -5.574E-01 0.000E+00 0.000E+00 0.000E+00 0 208 2 -8.641E-02 -6.011E+00 -4.501E+00 1.094E-01 1.303E-01 -6.006E-01 0.000E+00 0.000E+00 0.000E+00 0 208 3 -7.872E-02 -7.011E+00 -8.943E+00 1.427E-01 3.610E-01 2.829E-01 0.000E+00 0.000E+00 0.000E+00 0 208 4 -1.165E-01 -3.774E+00 -6.944E+00 1.979E-01 3.943E-01 7.857E-01 0.000E+00 0.000E+00 0.000E+00 0 208 5 -1.258E-01 -2.033E+00 -4.862E+00 2.082E-01 3.561E-01 9.865E-01 0.000E+00 0.000E+00 0.000E+00 0 208 6 -1.183E-01 -1.057E+00 -3.424E+00 1.944E-01 2.959E-01 9.627E-01 0.000E+00 0.000E+00 0.000E+00 0 208 7 -1.032E-01 -5.176E-01 -2.442E+00 1.692E-01 2.364E-01 8.421E-01 0.000E+00 0.000E+00 0.000E+00 0 208 8 -8.621E-02 -2.265E-01 -1.764E+00 1.412E-01 1.854E-01 6.994E-01 0.000E+00 0.000E+00 0.000E+00 0 208 9 -7.011E-02 -7.284E-02 -1.286E+00 1.148E-01 1.440E-01 5.647E-01 0.000E+00 0.000E+00 0.000E+00 0 208 10 -5.601E-02 5.084E-03 -9.434E-01 9.175E-02 1.111E-01 4.481E-01 0.000E+00 0.000E+00 0.000E+00 0 208 0.0000 -1.060E+00 -2.081E+01 -3.798E+01 1.642E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 208 3.5810 -9.977E-01 -2.026E+01 -3.627E+01 1.540E+00 7.311E-01 2.049E+00 0.000E+00 0.000E+00 0.000E+00 0 208 7.1620 -8.256E-01 -1.867E+01 -3.145E+01 1.258E+00 1.339E+00 3.665E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 298 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 211 0 5.193E-03 -6.545E-01 -1.211E+00 1.233E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 211 1 -4.854E-02 -2.360E+00 -2.282E+00 1.193E-01 2.663E-02 -1.263E+00 0.000E+00 0.000E+00 0.000E+00 0 211 2 -1.748E-01 -3.708E+00 8.551E-01 3.449E-01 5.736E-02 -2.687E+00 0.000E+00 0.000E+00 0.000E+00 0 211 3 -7.006E-02 -2.707E-01 7.570E+00 2.294E-01 9.699E-02 -3.270E+00 0.000E+00 0.000E+00 0.000E+00 0 211 4 -8.309E-03 8.800E-01 6.616E+00 1.082E-01 5.607E-02 -2.872E+00 0.000E+00 0.000E+00 0.000E+00 0 211 5 -1.418E-03 6.771E-01 4.868E+00 6.676E-02 1.755E-02 -2.281E+00 0.000E+00 0.000E+00 0.000E+00 0 211 6 1.297E-03 3.869E-01 3.500E+00 3.997E-02 -1.456E-03 -1.715E+00 0.000E+00 0.000E+00 0.000E+00 0 211 7 2.491E-03 1.806E-01 2.499E+00 2.291E-02 -9.152E-03 -1.270E+00 0.000E+00 0.000E+00 0.000E+00 0 211 8 2.772E-03 5.740E-02 1.786E+00 1.254E-02 -1.146E-02 -9.387E-01 0.000E+00 0.000E+00 0.000E+00 0 211 9 2.642E-03 -9.048E-03 1.281E+00 6.351E-03 -1.130E-02 -6.945E-01 0.000E+00 0.000E+00 0.000E+00 0 211 10 2.322E-03 -4.092E-02 9.224E-01 2.715E-03 -1.016E-02 -5.145E-01 0.000E+00 0.000E+00 0.000E+00 0 211 0.0000 -2.864E-01 -4.861E+00 2.640E+01 9.654E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 211 3.5810 -2.849E-01 -4.924E+00 2.476E+01 9.439E-01 2.429E-02 -4.723E+00 0.000E+00 0.000E+00 0.000E+00 0 211 7.1620 -2.800E-01 -5.106E+00 2.012E+01 8.818E-01 5.269E-02 -8.780E+00 0.000E+00 0.000E+00 0.000E+00 0 212 0 -1.044E-02 -3.456E-01 -1.058E+00 1.273E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 212 1 -7.725E-03 -2.002E+00 -2.053E+00 2.444E-01 1.768E-02 -1.198E+00 0.000E+00 0.000E+00 0.000E+00 0 212 2 2.818E-02 -4.415E+00 2.038E-01 1.709E-01 1.492E-01 -2.394E+00 0.000E+00 0.000E+00 0.000E+00 0 212 3 3.076E-02 -1.500E+00 5.431E+00 1.581E-01 4.548E-01 -2.650E+00 0.000E+00 0.000E+00 0.000E+00 0 212 4 3.372E-02 2.523E-01 4.898E+00 2.274E-01 4.830E-01 -2.205E+00 0.000E+00 0.000E+00 0.000E+00 0 212 5 3.769E-02 4.271E-01 3.650E+00 2.495E-01 4.227E-01 -1.668E+00 0.000E+00 0.000E+00 0.000E+00 0 212 6 3.444E-02 3.437E-01 2.639E+00 2.362E-01 3.430E-01 -1.204E+00 0.000E+00 0.000E+00 0.000E+00 0 212 7 2.842E-02 2.363E-01 1.887E+00 2.058E-01 2.687E-01 -8.614E-01 0.000E+00 0.000E+00 0.000E+00 0 212 8 2.235E-02 1.517E-01 1.347E+00 1.711E-01 2.071E-01 -6.188E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 299 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 212 9 1.711E-02 9.314E-02 9.633E-01 1.382E-01 1.582E-01 -4.470E-01 0.000E+00 0.000E+00 0.000E+00 0 212 10 1.286E-02 5.481E-02 6.902E-01 1.095E-01 1.201E-01 -3.243E-01 0.000E+00 0.000E+00 0.000E+00 0 212 0.0000 2.274E-01 -6.703E+00 1.860E+01 2.038E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 212 3.5810 2.109E-01 -6.757E+00 1.737E+01 1.916E+00 8.473E-01 -3.456E+00 0.000E+00 0.000E+00 0.000E+00 0 212 7.1620 1.649E-01 -6.895E+00 1.392E+01 1.576E+00 1.556E+00 -6.459E+00 0.000E+00 0.000E+00 0.000E+00 0 213 0 -7.568E-02 -3.262E-01 -1.110E+00 -2.752E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 213 1 -1.535E-01 -1.968E+00 -2.175E+00 -7.872E-02 -1.593E-01 -1.111E+00 0.000E+00 0.000E+00 0.000E+00 0 213 2 8.601E-02 -4.658E+00 -8.543E-01 -1.682E-02 -2.392E-01 -2.162E+00 0.000E+00 0.000E+00 0.000E+00 0 213 3 5.802E-01 -2.319E+00 2.365E+00 2.563E-01 2.581E-03 -2.253E+00 0.000E+00 0.000E+00 0.000E+00 0 213 4 4.671E-01 -4.281E-01 2.369E+00 3.054E-01 5.251E-02 -1.782E+00 0.000E+00 0.000E+00 0.000E+00 0 213 5 3.001E-01 -6.018E-02 1.826E+00 2.549E-01 5.136E-02 -1.290E+00 0.000E+00 0.000E+00 0.000E+00 0 213 6 1.804E-01 4.420E-04 1.332E+00 1.887E-01 5.010E-02 -8.964E-01 0.000E+00 0.000E+00 0.000E+00 0 213 7 1.045E-01 -4.996E-03 9.495E-01 1.343E-01 4.589E-02 -6.224E-01 0.000E+00 0.000E+00 0.000E+00 0 213 8 5.873E-02 -1.863E-02 6.719E-01 9.465E-02 4.012E-02 -4.364E-01 0.000E+00 0.000E+00 0.000E+00 0 213 9 3.160E-02 -2.768E-02 4.752E-01 6.675E-02 3.396E-02 -3.092E-01 0.000E+00 0.000E+00 0.000E+00 0 213 10 1.578E-02 -3.120E-02 3.366E-01 4.723E-02 2.812E-02 -2.209E-01 0.000E+00 0.000E+00 0.000E+00 0 213 0.0000 1.595E+00 -9.842E+00 6.186E+00 1.225E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 213 3.5810 1.518E+00 -9.732E+00 5.592E+00 1.143E+00 8.108E-02 -2.692E+00 0.000E+00 0.000E+00 0.000E+00 0 213 7.1620 1.298E+00 -9.409E+00 3.922E+00 9.103E-01 1.376E-01 -5.052E+00 0.000E+00 0.000E+00 0.000E+00 0 214 0 -1.192E-02 1.552E-02 -9.228E-01 1.451E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 214 1 -2.530E-02 -1.299E+00 -1.827E+00 2.644E-01 -5.089E-03 -9.483E-01 0.000E+00 0.000E+00 0.000E+00 0 214 2 1.407E-02 -4.629E+00 -1.599E+00 2.102E-01 1.632E-01 -1.673E+00 0.000E+00 0.000E+00 0.000E+00 0 214 3 1.050E-01 -3.432E+00 -6.384E-01 3.623E-01 6.301E-01 -1.456E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 300 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 214 4 8.361E-02 -1.248E+00 -1.126E-01 4.588E-01 6.689E-01 -9.971E-01 0.000E+00 0.000E+00 0.000E+00 0 214 5 5.890E-02 -5.077E-01 7.061E-02 4.502E-01 5.800E-01 -6.073E-01 0.000E+00 0.000E+00 0.000E+00 0 214 6 4.232E-02 -2.033E-01 1.084E-01 3.960E-01 4.688E-01 -3.485E-01 0.000E+00 0.000E+00 0.000E+00 0 214 7 3.074E-02 -7.165E-02 9.525E-02 3.286E-01 3.665E-01 -1.984E-01 0.000E+00 0.000E+00 0.000E+00 0 214 8 2.243E-02 -1.552E-02 7.195E-02 2.638E-01 2.821E-01 -1.134E-01 0.000E+00 0.000E+00 0.000E+00 0 214 9 1.643E-02 7.084E-03 5.109E-02 2.077E-01 2.153E-01 -6.506E-02 0.000E+00 0.000E+00 0.000E+00 0 214 10 1.205E-02 1.476E-02 3.522E-02 1.614E-01 1.633E-01 -3.733E-02 0.000E+00 0.000E+00 0.000E+00 0 214 0.0000 3.483E-01 -1.137E+01 -4.668E+00 3.248E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 214 3.5810 3.276E-01 -1.119E+01 -4.680E+00 3.051E+00 1.154E+00 -1.295E+00 0.000E+00 0.000E+00 0.000E+00 0 214 7.1620 2.691E-01 -1.065E+01 -4.708E+00 2.499E+00 2.118E+00 -2.478E+00 0.000E+00 0.000E+00 0.000E+00 0 215 0 8.399E-02 2.873E-01 -8.531E-01 -1.373E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 215 1 1.099E-01 -8.925E-01 -1.757E+00 1.719E-02 -9.085E-02 -8.321E-01 0.000E+00 0.000E+00 0.000E+00 0 215 2 -1.441E-01 -5.091E+00 -2.665E+00 2.167E-01 -1.066E-01 -1.331E+00 0.000E+00 0.000E+00 0.000E+00 0 215 3 -2.898E-01 -4.751E+00 -3.739E+00 3.661E-01 1.459E-01 -8.293E-01 0.000E+00 0.000E+00 0.000E+00 0 215 4 -1.478E-01 -2.085E+00 -2.571E+00 3.250E-01 1.704E-01 -3.273E-01 0.000E+00 0.000E+00 0.000E+00 0 215 5 -5.804E-02 -9.429E-01 -1.638E+00 2.611E-01 1.399E-01 -3.989E-03 0.000E+00 0.000E+00 0.000E+00 0 215 6 -9.812E-03 -3.954E-01 -1.071E+00 1.945E-01 1.138E-01 1.451E-01 0.000E+00 0.000E+00 0.000E+00 0 215 7 1.307E-02 -1.323E-01 -7.225E-01 1.411E-01 9.172E-02 1.884E-01 0.000E+00 0.000E+00 0.000E+00 0 215 8 2.201E-02 -1.122E-02 -5.001E-01 1.020E-01 7.334E-02 1.838E-01 0.000E+00 0.000E+00 0.000E+00 0 215 9 2.385E-02 3.988E-02 -3.524E-01 7.403E-02 5.831E-02 1.610E-01 0.000E+00 0.000E+00 0.000E+00 0 215 10 2.238E-02 5.704E-02 -2.513E-01 5.398E-02 4.609E-02 1.334E-01 0.000E+00 0.000E+00 0.000E+00 0 215 0.0000 -3.744E-01 -1.392E+01 -1.612E+01 1.738E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 215 3.5810 -3.721E-01 -1.366E+01 -1.557E+01 1.646E+00 2.672E-01 -6.976E-02 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 301 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 215 7.1620 -3.626E-01 -1.289E+01 -1.399E+01 1.388E+00 4.853E-01 -2.261E-01 0.000E+00 0.000E+00 0.000E+00 0 216 0 -1.828E-02 3.222E-01 -8.091E-01 1.309E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 216 1 -3.948E-02 -8.308E-01 -1.675E+00 2.438E-01 1.842E-02 -7.523E-01 0.000E+00 0.000E+00 0.000E+00 0 216 2 -3.393E-03 -5.317E+00 -3.456E+00 1.499E-01 1.521E-01 -1.070E+00 0.000E+00 0.000E+00 0.000E+00 0 216 3 7.518E-02 -5.581E+00 -6.524E+00 1.385E-01 4.400E-01 -4.053E-01 0.000E+00 0.000E+00 0.000E+00 0 216 4 3.174E-02 -2.798E+00 -4.937E+00 2.147E-01 4.595E-01 8.917E-02 0.000E+00 0.000E+00 0.000E+00 0 216 5 4.589E-03 -1.465E+00 -3.371E+00 2.381E-01 3.995E-01 3.594E-01 0.000E+00 0.000E+00 0.000E+00 0 216 6 -3.499E-03 -7.676E-01 -2.325E+00 2.258E-01 3.229E-01 4.363E-01 0.000E+00 0.000E+00 0.000E+00 0 216 7 -4.889E-03 -3.958E-01 -1.628E+00 1.968E-01 2.522E-01 4.128E-01 0.000E+00 0.000E+00 0.000E+00 0 216 8 -4.222E-03 -1.982E-01 -1.155E+00 1.635E-01 1.939E-01 3.538E-01 0.000E+00 0.000E+00 0.000E+00 0 216 9 -3.119E-03 -9.319E-02 -8.268E-01 1.320E-01 1.478E-01 2.885E-01 0.000E+00 0.000E+00 0.000E+00 0 216 10 -2.123E-03 -3.797E-02 -5.955E-01 1.045E-01 1.120E-01 2.285E-01 0.000E+00 0.000E+00 0.000E+00 0 216 0.0000 3.250E-02 -1.716E+01 -2.730E+01 1.939E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 216 3.5810 3.218E-02 -1.673E+01 -2.614E+01 1.822E+00 8.010E-01 6.684E-01 0.000E+00 0.000E+00 0.000E+00 0 216 7.1620 3.080E-02 -1.547E+01 -2.287E+01 1.498E+00 1.472E+00 1.135E+00 0.000E+00 0.000E+00 0.000E+00 0 217 0 1.122E-02 6.377E-01 -7.507E-01 -1.464E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 217 1 4.984E-02 -3.375E-01 -1.597E+00 9.323E-03 -5.867E-02 -6.420E-01 0.000E+00 0.000E+00 0.000E+00 0 217 2 1.471E-01 -5.629E+00 -4.104E+00 1.309E-01 -1.248E-01 -7.319E-01 0.000E+00 0.000E+00 0.000E+00 0 217 3 1.767E-01 -6.596E+00 -8.506E+00 1.420E-01 -1.043E-01 2.411E-01 0.000E+00 0.000E+00 0.000E+00 0 217 4 1.307E-01 -3.377E+00 -6.517E+00 1.006E-01 -1.022E-01 7.847E-01 0.000E+00 0.000E+00 0.000E+00 0 217 5 9.111E-02 -1.696E+00 -4.476E+00 7.005E-02 -9.866E-02 9.920E-01 0.000E+00 0.000E+00 0.000E+00 0 217 6 5.899E-02 -7.956E-01 -3.094E+00 4.224E-02 -8.415E-02 9.614E-01 0.000E+00 0.000E+00 0.000E+00 0 217 7 3.685E-02 -3.247E-01 -2.168E+00 2.268E-02 -6.829E-02 8.311E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 302 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 217 8 2.255E-02 -8.858E-02 -1.539E+00 1.042E-02 -5.422E-02 6.808E-01 0.000E+00 0.000E+00 0.000E+00 0 217 9 1.352E-02 2.345E-02 -1.103E+00 3.183E-03 -4.260E-02 5.415E-01 0.000E+00 0.000E+00 0.000E+00 0 217 10 7.884E-03 7.079E-02 -7.962E-01 -8.545E-04 -3.326E-02 4.231E-01 0.000E+00 0.000E+00 0.000E+00 0 217 0.0000 7.466E-01 -1.811E+01 -3.465E+01 5.160E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 217 3.5810 7.199E-01 -1.769E+01 -3.312E+01 4.993E-01 -2.222E-01 1.980E+00 0.000E+00 0.000E+00 0.000E+00 0 217 7.1620 6.436E-01 -1.643E+01 -2.879E+01 4.509E-01 -4.085E-01 3.540E+00 0.000E+00 0.000E+00 0.000E+00 0 221 0 -4.007E-02 -7.800E-01 -1.053E+00 1.173E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 221 1 -5.878E-02 -2.622E+00 -1.978E+00 2.022E-01 1.259E-03 -1.292E+00 0.000E+00 0.000E+00 0.000E+00 0 221 2 1.201E-01 -3.907E+00 1.237E+00 7.335E-02 5.841E-02 -2.738E+00 0.000E+00 0.000E+00 0.000E+00 0 221 3 3.590E-01 -2.712E-01 8.033E+00 6.845E-02 1.773E-01 -3.266E+00 0.000E+00 0.000E+00 0.000E+00 0 221 4 2.717E-01 8.652E-01 6.801E+00 1.512E-01 1.945E-01 -2.811E+00 0.000E+00 0.000E+00 0.000E+00 0 221 5 1.809E-01 6.293E-01 4.842E+00 1.744E-01 1.770E-01 -2.185E+00 0.000E+00 0.000E+00 0.000E+00 0 221 6 1.164E-01 3.308E-01 3.370E+00 1.660E-01 1.465E-01 -1.603E+00 0.000E+00 0.000E+00 0.000E+00 0 221 7 7.354E-02 1.310E-01 2.331E+00 1.434E-01 1.159E-01 -1.158E+00 0.000E+00 0.000E+00 0.000E+00 0 221 8 4.606E-02 1.920E-02 1.615E+00 1.173E-01 8.957E-02 -8.340E-01 0.000E+00 0.000E+00 0.000E+00 0 221 9 2.862E-02 -3.584E-02 1.123E+00 9.284E-02 6.836E-02 -6.015E-01 0.000E+00 0.000E+00 0.000E+00 0 221 10 1.757E-02 -5.818E-02 7.834E-01 7.194E-02 5.173E-02 -4.344E-01 0.000E+00 0.000E+00 0.000E+00 0 221 0.0000 1.115E+00 -5.699E+00 2.711E+01 1.378E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 221 3.5810 1.062E+00 -5.737E+00 2.554E+01 1.296E+00 3.554E-01 -4.451E+00 0.000E+00 0.000E+00 0.000E+00 0 221 7.1620 9.122E-01 -5.847E+00 2.112E+01 1.066E+00 6.513E-01 -8.299E+00 0.000E+00 0.000E+00 0.000E+00 0 222 0 -3.465E-02 -4.812E-01 -1.003E+00 -6.588E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 222 1 -1.522E-02 -2.167E+00 -1.913E+00 -7.986E-02 -5.597E-02 -1.213E+00 0.000E+00 0.000E+00 0.000E+00 0 222 2 1.687E-01 -4.264E+00 5.204E-01 1.104E-01 -1.042E-01 -2.497E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 303 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 222 3 2.013E-01 -1.361E+00 5.860E+00 1.813E-01 -2.283E-02 -2.845E+00 0.000E+00 0.000E+00 0.000E+00 0 222 4 7.537E-02 1.903E-01 5.098E+00 1.210E-01 -2.207E-02 -2.356E+00 0.000E+00 0.000E+00 0.000E+00 0 222 5 8.829E-03 2.890E-01 3.692E+00 7.726E-02 -3.336E-02 -1.770E+00 0.000E+00 0.000E+00 0.000E+00 0 222 6 -2.138E-02 1.931E-01 2.604E+00 4.240E-02 -3.120E-02 -1.266E+00 0.000E+00 0.000E+00 0.000E+00 0 222 7 -3.194E-02 1.012E-01 1.821E+00 2.011E-02 -2.529E-02 -8.964E-01 0.000E+00 0.000E+00 0.000E+00 0 222 8 -3.295E-02 4.063E-02 1.274E+00 7.491E-03 -1.937E-02 -6.366E-01 0.000E+00 0.000E+00 0.000E+00 0 222 9 -2.987E-02 6.073E-03 8.938E-01 8.655E-04 -1.443E-02 -4.542E-01 0.000E+00 0.000E+00 0.000E+00 0 222 10 -2.539E-02 -1.144E-02 6.290E-01 -2.306E-03 -1.059E-02 -3.253E-01 0.000E+00 0.000E+00 0.000E+00 0 222 0.0000 2.628E-01 -7.463E+00 1.948E+01 4.128E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 222 3.5810 2.732E-01 -7.448E+00 1.827E+01 3.959E-01 -8.178E-02 -3.626E+00 0.000E+00 0.000E+00 0.000E+00 0 222 7.1620 2.995E-01 -7.400E+00 1.487E+01 3.470E-01 -1.513E-01 -6.781E+00 0.000E+00 0.000E+00 0.000E+00 0 223 0 -1.992E-02 -2.916E-01 -8.783E-01 1.392E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 223 1 -4.191E-02 -1.858E+00 -1.724E+00 2.763E-01 1.104E-02 -1.121E+00 0.000E+00 0.000E+00 0.000E+00 0 223 2 5.438E-02 -4.496E+00 -4.266E-01 2.584E-01 1.906E-01 -2.162E+00 0.000E+00 0.000E+00 0.000E+00 0 223 3 2.605E-01 -2.253E+00 2.733E+00 3.508E-01 6.494E-01 -2.234E+00 0.000E+00 0.000E+00 0.000E+00 0 223 4 2.036E-01 -3.967E-01 2.566E+00 4.236E-01 6.618E-01 -1.748E+00 0.000E+00 0.000E+00 0.000E+00 0 223 5 1.366E-01 -2.944E-02 1.905E+00 4.137E-01 5.531E-01 -1.244E+00 0.000E+00 0.000E+00 0.000E+00 0 223 6 9.112E-02 3.327E-02 1.351E+00 3.603E-01 4.333E-01 -8.460E-01 0.000E+00 0.000E+00 0.000E+00 0 223 7 6.105E-02 2.807E-02 9.401E-01 2.945E-01 3.296E-01 -5.744E-01 0.000E+00 0.000E+00 0.000E+00 0 223 8 4.125E-02 1.259E-02 6.505E-01 2.324E-01 2.474E-01 -3.936E-01 0.000E+00 0.000E+00 0.000E+00 0 223 9 2.808E-02 4.488E-04 4.501E-01 1.794E-01 1.845E-01 -2.725E-01 0.000E+00 0.000E+00 0.000E+00 0 223 10 1.923E-02 -6.734E-03 3.120E-01 1.365E-01 1.369E-01 -1.902E-01 0.000E+00 0.000E+00 0.000E+00 0 223 0.0000 8.339E-01 -9.259E+00 7.879E+00 3.065E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 304 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 223 3.5810 7.910E-01 -9.172E+00 7.276E+00 2.889E+00 1.075E+00 -2.569E+00 0.000E+00 0.000E+00 0.000E+00 0 223 7.1620 6.692E-01 -8.914E+00 5.573E+00 2.396E+00 1.980E+00 -4.834E+00 0.000E+00 0.000E+00 0.000E+00 0 224 0 6.380E-03 -2.020E-02 -8.260E-01 -2.502E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 224 1 7.709E-03 -1.371E+00 -1.646E+00 -2.312E-02 -7.933E-02 -1.001E+00 0.000E+00 0.000E+00 0.000E+00 0 224 2 4.613E-02 -4.679E+00 -1.443E+00 9.598E-02 -9.096E-02 -1.795E+00 0.000E+00 0.000E+00 0.000E+00 0 224 3 1.631E-01 -3.384E+00 -4.926E-01 1.992E-01 1.552E-01 -1.554E+00 0.000E+00 0.000E+00 0.000E+00 0 224 4 1.391E-01 -1.167E+00 -7.497E-03 2.161E-01 1.681E-01 -1.037E+00 0.000E+00 0.000E+00 0.000E+00 0 224 5 9.689E-02 -4.417E-01 1.314E-01 1.923E-01 1.279E-01 -6.170E-01 0.000E+00 0.000E+00 0.000E+00 0 224 6 6.529E-02 -1.581E-01 1.397E-01 1.495E-01 9.766E-02 -3.443E-01 0.000E+00 0.000E+00 0.000E+00 0 224 7 4.376E-02 -4.281E-02 1.098E-01 1.104E-01 7.475E-02 -1.897E-01 0.000E+00 0.000E+00 0.000E+00 0 224 8 2.938E-02 2.033E-03 7.756E-02 8.001E-02 5.724E-02 -1.044E-01 0.000E+00 0.000E+00 0.000E+00 0 224 9 1.982E-02 1.727E-02 5.220E-02 5.765E-02 4.379E-02 -5.728E-02 0.000E+00 0.000E+00 0.000E+00 0 224 10 1.341E-02 2.029E-02 3.423E-02 4.145E-02 3.340E-02 -3.112E-02 0.000E+00 0.000E+00 0.000E+00 0 224 0.0000 6.309E-01 -1.122E+01 -3.870E+00 1.095E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 224 3.5810 6.009E-01 -1.106E+01 -3.897E+00 1.027E+00 2.313E-01 -1.328E+00 0.000E+00 0.000E+00 0.000E+00 0 224 7.1620 5.156E-01 -1.057E+01 -3.968E+00 8.374E-01 4.232E-01 -2.546E+00 0.000E+00 0.000E+00 0.000E+00 0 225 0 1.077E-02 2.894E-01 -6.722E-01 1.364E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 225 1 7.703E-03 -8.565E-01 -1.392E+00 2.455E-01 -1.365E-02 -8.862E-01 0.000E+00 0.000E+00 0.000E+00 0 225 2 -3.187E-02 -4.950E+00 -2.332E+00 1.648E-01 1.387E-01 -1.387E+00 0.000E+00 0.000E+00 0.000E+00 0 225 3 -4.434E-02 -4.571E+00 -3.592E+00 2.804E-01 5.879E-01 -8.291E-01 0.000E+00 0.000E+00 0.000E+00 0 225 4 -3.940E-02 -1.954E+00 -2.507E+00 3.939E-01 6.151E-01 -3.156E-01 0.000E+00 0.000E+00 0.000E+00 0 225 5 -2.834E-02 -8.649E-01 -1.609E+00 3.981E-01 5.211E-01 9.570E-03 0.000E+00 0.000E+00 0.000E+00 0 225 6 -1.656E-02 -3.582E-01 -1.058E+00 3.512E-01 4.119E-01 1.533E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 305 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 225 7 -8.357E-03 -1.207E-01 -7.155E-01 2.889E-01 3.151E-01 1.897E-01 0.000E+00 0.000E+00 0.000E+00 0 225 8 -3.428E-03 -1.399E-02 -4.943E-01 2.287E-01 2.374E-01 1.796E-01 0.000E+00 0.000E+00 0.000E+00 0 225 9 -6.980E-04 2.993E-02 -3.461E-01 1.769E-01 1.774E-01 1.532E-01 0.000E+00 0.000E+00 0.000E+00 0 225 10 6.880E-04 4.420E-02 -2.443E-01 1.348E-01 1.318E-01 1.240E-01 0.000E+00 0.000E+00 0.000E+00 0 225 0.0000 -1.538E-01 -1.333E+01 -1.496E+01 2.800E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 225 3.5810 -1.479E-01 -1.308E+01 -1.442E+01 2.629E+00 1.008E+00 -8.106E-02 0.000E+00 0.000E+00 0.000E+00 0 225 7.1620 -1.307E-01 -1.235E+01 -1.289E+01 2.154E+00 1.855E+00 -2.458E-01 0.000E+00 0.000E+00 0.000E+00 0 226 0 7.112E-02 4.538E-01 -6.426E-01 -6.191E-02 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 226 1 1.304E-01 -5.818E-01 -1.358E+00 -8.586E-02 -5.533E-02 -8.121E-01 0.000E+00 0.000E+00 0.000E+00 0 226 2 8.842E-02 -5.177E+00 -3.289E+00 8.118E-02 -1.029E-01 -1.142E+00 0.000E+00 0.000E+00 0.000E+00 0 226 3 1.066E-01 -5.439E+00 -6.562E+00 1.797E-01 -3.734E-02 -3.260E-01 0.000E+00 0.000E+00 0.000E+00 0 226 4 1.346E-01 -2.506E+00 -4.887E+00 1.283E-01 -4.243E-02 2.251E-01 0.000E+00 0.000E+00 0.000E+00 0 226 5 1.304E-01 -1.148E+00 -3.268E+00 8.156E-02 -5.241E-02 4.927E-01 0.000E+00 0.000E+00 0.000E+00 0 226 6 1.142E-01 -4.886E-01 -2.211E+00 4.395E-02 -4.759E-02 5.453E-01 0.000E+00 0.000E+00 0.000E+00 0 226 7 9.445E-02 -1.708E-01 -1.522E+00 1.999E-02 -3.869E-02 4.942E-01 0.000E+00 0.000E+00 0.000E+00 0 226 8 7.563E-02 -2.453E-02 -1.062E+00 6.504E-03 -3.007E-02 4.115E-01 0.000E+00 0.000E+00 0.000E+00 0 226 9 5.938E-02 3.736E-02 -7.490E-01 -4.797E-04 -2.285E-02 3.280E-01 0.000E+00 0.000E+00 0.000E+00 0 226 10 4.599E-02 5.854E-02 -5.317E-01 -3.722E-03 -1.715E-02 2.547E-01 0.000E+00 0.000E+00 0.000E+00 0 226 0.0000 1.051E+00 -1.499E+01 -2.608E+01 3.892E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 226 3.5810 9.940E-01 -1.468E+01 -2.498E+01 3.727E-01 -1.203E-01 8.837E-01 0.000E+00 0.000E+00 0.000E+00 0 226 7.1620 8.344E-01 -1.378E+01 -2.188E+01 3.246E-01 -2.214E-01 1.528E+00 0.000E+00 0.000E+00 0.000E+00 0 227 0 3.799E-02 7.791E-01 -5.026E-01 1.141E-01 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 227 1 4.995E-02 -1.352E-02 -1.117E+00 2.230E-01 2.901E-02 -7.150E-01 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 306 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0 S T R E S S E S I N A X I S - S Y M M E T R I C T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX) ELEMENT HARMONIC POINT RADIAL AXIAL CIRCUM. SHEAR SHEAR SHEAR F L U X D E N S I T I E S ID. NUMBER ANGLE (R) (Z) (THETA-T) (ZR) (RT) (ZT) (R) (Z) (T) 0 227 2 -1.219E-01 -5.263E+00 -3.783E+00 1.637E-01 9.872E-02 -8.294E-01 0.000E+00 0.000E+00 0.000E+00 0 227 3 -3.425E-01 -6.312E+00 -8.443E+00 1.314E-01 2.035E-01 1.657E-01 0.000E+00 0.000E+00 0.000E+00 0 227 4 -2.756E-01 -3.097E+00 -6.404E+00 1.648E-01 2.111E-01 7.116E-01 0.000E+00 0.000E+00 0.000E+00 0 227 5 -1.869E-01 -1.455E+00 -4.312E+00 1.732E-01 1.852E-01 9.196E-01 0.000E+00 0.000E+00 0.000E+00 0 227 6 -1.184E-01 -6.120E-01 -2.915E+00 1.608E-01 1.495E-01 8.860E-01 0.000E+00 0.000E+00 0.000E+00 0 227 7 -7.211E-02 -1.942E-01 -1.995E+00 1.378E-01 1.162E-01 7.545E-01 0.000E+00 0.000E+00 0.000E+00 0 227 8 -4.270E-02 3.433E-05 -1.380E+00 1.124E-01 8.873E-02 6.065E-01 0.000E+00 0.000E+00 0.000E+00 0 227 9 -2.447E-02 8.116E-02 -9.636E-01 8.898E-02 6.712E-02 4.726E-01 0.000E+00 0.000E+00 0.000E+00 0 227 10 -1.335E-02 1.067E-01 -6.766E-01 6.896E-02 5.043E-02 3.613E-01 0.000E+00 0.000E+00 0.000E+00 0 227 0.0000 -1.110E+00 -1.598E+01 -3.249E+01 1.539E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0 227 3.5810 -1.059E+00 -1.563E+01 -3.107E+01 1.457E+00 3.730E-01 1.740E+00 0.000E+00 0.000E+00 0.000E+00 0 227 7.1620 -9.133E-01 -1.461E+01 -2.704E+01 1.228E+00 6.863E-01 3.108E+00 0.000E+00 0.000E+00 0.000E+00 1 ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 307 NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK OES1G MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK OES1AM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK OES1AG MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. * * * END OF JOB * * * 1 JOB TITLE = ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH DATE: 5/17/95 END TIME: 15:11: 1 TOTAL WALL CLOCK TIME 6 SEC. ================================================ FILE: demoout/d01161a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01161A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 30 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 3 LABEL = TEMPERATURE DEPENDENT MATERIALS. 4 TEMPERATURE(MATERIALS) = 3000 5 SPC = 11 6 DISPLACEMENT = ALL 7 SUBCASE 10 8 LABEL = DESIGN CASE - UNIFORM END LOAD 9 SET 111 = 1 THRU 105 EXCEPT 7 10 STRESS = 111 11 LOAD = 10 12 SUBCASE 12 13 LABEL = CHECK CASE - CONTACT LOAD AT NOZZLE. 14 LOAD = 12 15 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 16 OUTPUT(PLOT) 17 PLOTTER NASTPLT 18 SET 1 = 1, 7, 38, 61, 69 19 SET 2 INCLUDE ELEMENTS QDMEM, TRMEM 20 MAXIMUM DEFORMATION 0.8 21 AXES Z, X, Y 22 VIEW 0.0, 0.0, 0.0 23 FIND SCALE, ORIGIN 12, SET 1 24 PTITLE = ARCH MODEL 25 PLOT SET 2, ORIGIN 12 LABEL,SHRINK 26 PTITLE = ELEMENT AND PROPERTY ID-S 27 PLOT SET 2, ORIGIN 12, LABEL EPID 28 PTITLE = DEFLECTION VECTORS FOR BOTH LOADS AND EACH ITERATION 29 PLOT STATIC DEFORMATION SET 2, ORIGIN 12, VECTOR RXY, SYMBOL 7 30 FIND SCALE, ORIGIN 12, SET 1, REGION 0.0, 0.0, 0.6, 1.0 31 PTITLE = ARCH MODEL REFLECTED ABOUT VERTICAL AXIS 32 PLOT SET 2, ORIGIN 12, SYMMETRY X, SET 2, ORIGIN 12 33 PTITLE = MAJOR PRINCIPAL STRESS CONTOURS FOR OPTIMIZED CASE 34 CONTOUR, MAJPRIN, EVEN 20, LOCAL 35 PLOT STATIC DEFORMATION, CONTOUR 10, SET 2, ORIGIN 12, OUTLINE 36 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 173, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CQDMEM 1 11 13 3 1 2- CQDMEM 3 13 15 5 3 3- CQDMEM 5 15 15 17 7 5 4- CQDMEM 7 17 17 19 9 7 5- CQDMEM 13 23 25 15 13 6- CQDMEM 15 25 27 17 15 7- CQDMEM 17 27 29 19 17 8- CQDMEM 31 41 43 33 31 9- CQDMEM 41 51 53 43 41 10- CQDMEM 51 61 63 53 51 11- CQDMEM 61 71 73 63 61 12- CROD 101 48 49 102 102 49 59 13- CROD 103 59 69 104 104 69 78 14- CROD 105 78 79 15- CTRMEM 11 13 11 21 16- CTRMEM 12 21 23 13 17- CTRMEM 21 31 33 21 18- CTRMEM 22 23 21 33 19- CTRMEM 23 33 35 23 20- CTRMEM 24 25 23 35 21- CTRMEM 25 35 37 25 22- CTRMEM 26 27 25 37 23- CTRMEM 27 37 38 27 24- CTRMEM 28 38 39 27 25- CTRMEM 29 29 27 39 26- CTRMEM 32 35 33 43 27- CTRMEM 33 43 45 35 28- CTRMEM 34 37 35 45 29- CTRMEM 35 45 47 37 30- CTRMEM 36 47 38 37 31- CTRMEM 37 47 49 38 32- CTRMEM 38 49 48 38 33- CTRMEM 39 38 48 39 34- CTRMEM 42 53 55 43 35- CTRMEM 43 45 43 55 36- CTRMEM 44 55 57 45 37- CTRMEM 45 47 45 57 38- CTRMEM 46 57 59 47 39- CTRMEM 47 59 49 47 40- CTRMEM 52 63 65 53 41- CTRMEM 53 55 53 65 42- CTRMEM 54 65 67 55 43- CTRMEM 55 57 55 67 44- CTRMEM 57 67 69 57 45- CTRMEM 59 59 57 69 46- CTRMEM 62 65 63 73 47- CTRMEM 63 73 75 65 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A TEMPERATURE DEPENDENT MATERIALS. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CTRMEM 64 67 65 75 49- CTRMEM 65 75 77 67 50- CTRMEM 67 69 67 78 51- CTRMEM 68 67 77 78 90.0 52- CTRMEM 69 77 79 78 53- FORCE 10 1 .3125E5 .0 1.0 .0 54- FORCE 10 3 .625E5 .0 1.0 .0 55- FORCE 10 5 .625E5 .0 1.0 .0 56- FORCE 10 7 .625E5 .0 1.0 .0 57- FORCE 10 9 .3125E5 .0 1.0 .0 58- FORCE 12 69 100.+1 -1.0 59- FORCE 12 78 200.+1 -1.0 60- FORCE 12 79 100.+1 -1.0 61- GRDSET 3456 62- GRID 1 -10. 15. 63- GRID 3 -7.5 15. 64- GRID 5 -5. 15. 65- GRID 7 -2.5 15. 66- GRID 9 .0 15. 67- GRID 11 -10. 12. 68- GRID 13 -7.5 12. 69- GRID 15 -5. 12. 70- GRID 17 -2.5 12. 71- GRID 19 .0 12. 72- GRID 21 -10. 9. 73- GRID 23 -7.5 9. 74- GRID 25 -5. 9. 75- GRID 27 -2.5 9. 76- GRID 29 .0 9. 77- GRID 31 -10. 7.25 78- GRID 33 -8.5 7.25 79- GRID 35 -6. 7.25 80- GRID 37 -4. 7.25 81- GRID 38 -2. 6.5 82- GRID 39 .0 7.25 83- GRID 41 -10. 5.25 84- GRID 43 -8.5 5.25 85- GRID 45 -6. 5.25 86- GRID 47 -4. 5.5 87- GRID 48 .0 5. 88- GRID 49 -2. 4.582576 89- GRID 51 -10. 3.5 90- GRID 53 -8.5 3.5 91- GRID 55 -6.5 3.5 92- GRID 57 -5. 3.75 93- GRID 59 -3.5707 3.5 94- GRID 61 -10. 1.75 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A TEMPERATURE DEPENDENT MATERIALS. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- GRID 63 -8.5 1.75 96- GRID 65 -7. 1.75 97- GRID 67 -5.75 1.75 98- GRID 69 -4.4651 2.25 99- GRID 71 -10. .0 100- GRID 73 -8.5 .0 101- GRID 75 -7. .0 102- GRID 77 -5.75 .0 103- GRID 78 -4.899 1. 104- GRID 79 -5. .0 105- MAT1 1 30.E06 .3 .283 70.0 +CONST 106- +CONST 12.5E3 107- MAT1 2 30.+6 .3 .283 70. +TDEP 108- +TDEP 1.E3 109- MAT1 3 30.E06 .283 70. +MATROD 110- +MATROD 25.E3 25.E3 111- MATT1 2 +MATT1 112- +MATT1 222 113- PARAM GRDPNT 0 114- PLIMIT QDMEM .2986858 1 THRU 61 FSD 115- PLIMIT TRMEM .2986858 11 THRU 69 FSD 116- POPT 5 .04 .95 2 YES FSD 117- PQDMEM 1 1 3.348 118- PQDMEM 3 1 3.348 119- PQDMEM 13 1 3.348 120- PQDMEM 15 1 3.348 121- PQDMEM 17 1 3.348 122- PQDMEM 31 1 3.348 123- PQDMEM 41 1 3.348 124- PQDMEM 51 1 3.348 125- PQDMEM 61 1 3.348 126- PROD 101 3 1.674 127- PROD 102 3 1.674 128- PROD 103 3 1.674 129- PROD 104 3 1.674 130- PROD 105 3 1.674 131- PTRMEM 11 1 3.348 132- PTRMEM 12 1 3.348 133- PTRMEM 21 1 3.348 134- PTRMEM 22 1 3.348 135- PTRMEM 23 1 3.348 136- PTRMEM 24 1 3.348 137- PTRMEM 25 1 3.348 138- PTRMEM 26 1 3.348 139- PTRMEM 27 1 3.348 140- PTRMEM 28 1 3.348 141- PTRMEM 29 1 3.348 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A TEMPERATURE DEPENDENT MATERIALS. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- PTRMEM 32 1 3.348 143- PTRMEM 33 1 3.348 144- PTRMEM 34 1 3.348 145- PTRMEM 35 1 3.348 146- PTRMEM 36 1 3.348 147- PTRMEM 37 2 3.348 148- PTRMEM 38 2 3.348 149- PTRMEM 39 2 3.348 150- PTRMEM 42 1 3.348 151- PTRMEM 43 1 3.348 152- PTRMEM 44 1 3.348 153- PTRMEM 45 1 3.348 154- PTRMEM 46 2 3.348 155- PTRMEM 47 2 3.348 156- PTRMEM 52 1 3.348 157- PTRMEM 53 1 3.348 158- PTRMEM 54 1 3.348 159- PTRMEM 55 1 3.348 160- PTRMEM 57 2 3.348 161- PTRMEM 59 2 3.348 162- PTRMEM 62 1 3.348 163- PTRMEM 63 1 3.348 164- PTRMEM 64 1 3.348 165- PTRMEM 65 1 3.348 166- PTRMEM 67 2 3.348 167- PTRMEM 68 2 3.348 168- PTRMEM 69 2 3.348 169- SPC1 11 1 9 19 29 39 48 170- SPC1 11 2 71 73 75 77 79 171- TABLEM1 222 +TAB-M1 172- +TAB-M1 1. 12.5E3 10. 12.5E3 ENDT 173- TEMPD 3000 80. ENDDATA 0*** USER WARNING MESSAGE 2251, TWO OF THE E, G AND NU ON MAT1 CARD 3 ARE ZEROS OR BLANKS. POTENTIAL ERROR MAY OCCUR LATER 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 8 PROFILE 270 MAX WAVEFRONT 8 AVG WAVEFRONT 6.279 RMS WAVEFRONT 6.484 RMS BANDWIDTH 6.541 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 9 PROFILE 264 MAX WAVEFRONT 9 AVG WAVEFRONT 6.140 RMS WAVEFRONT 6.354 RMS BANDWIDTH 6.534 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 8 9 PROFILE (P) 270 264 MAXIMUM WAVEFRONT (C-MAX) 8 9 AVERAGE WAVEFRONT (C-AVG) 6.279 6.140 RMS WAVEFRONT (C-RMS) 6.484 6.354 RMS BANDWITCH (B-RMS) 6.541 6.534 NUMBER OF GRID POINTS (N) 43 NUMBER OF ELEMENTS (NON-RIGID) 54 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 113 MATRIX DENSITY, PERCENT 14.548 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 11 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 31 3 37 5 41 7 43 SEQGP 9 42 11 30 13 36 15 40 SEQGP 17 39 19 38 21 29 23 34 SEQGP 25 33 27 32 29 35 31 23 SEQGP 33 27 35 26 37 25 38 24 SEQGP 39 28 41 21 43 20 45 19 SEQGP 47 18 48 22 49 17 51 16 SEQGP 53 15 55 14 57 13 59 12 SEQGP 61 10 63 11 65 9 67 8 SEQGP 69 7 71 6 73 5 75 4 SEQGP 77 3 78 2 79 1 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 3.569302E-01 ORIGIN 12 - X0 = -5.038315E+00, Y0 = -0.932505E+00 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 12 USED IN THIS PLOT 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 3.569302E-01 ORIGIN 12 - X0 = -5.038315E+00, Y0 = -0.932505E+00 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 2 UNDEFORMED SHAPE ORIGIN 12 USED IN THIS PLOT 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.920009E-01 ORIGIN 12 - X0 = -3.324618E+00, Y0 = -0.141947E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 3 UNDEFORMED SHAPE ORIGIN 12 USED IN THIS PLOT 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A TEMPERATURE DEPENDENT MATERIALS. 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 101 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 11 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 1.27579471D+02 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 -1.03942636D+03 * * 0.00000000D+00 1.27579471D+02 0.00000000D+00 0.00000000D+00 0.00000000D+00 -6.83771390D+02 * * 0.00000000D+00 0.00000000D+00 1.27579471D+02 1.03942636D+03 6.83771390D+02 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.03942636D+03 1.07163364D+04 5.28215763D+03 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 6.83771390D+02 5.28215763D+03 4.76943701D+03 0.00000000D+00 * * -1.03942636D+03 -6.83771390D+02 0.00000000D+00 0.00000000D+00 0.00000000D+00 1.54857734D+04 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 1.275794714D+02 0.000000000D+00 8.147285329D+00 0.000000000D+00 Y 1.275794714D+02 -5.359572216D+00 0.000000000D+00 0.000000000D+00 Z 1.275794714D+02 -5.359572216D+00 8.147285329D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 2.247833289D+03 2.887229808D+02 0.000000000D+00 * * 2.887229808D+02 1.104714865D+03 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 3.352548155D+03 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 1.035929723D+03 * * 2.316618432D+03 * * 3.352548155D+03 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 2.317530886D-01 9.727746429D-01 0.000000000D+00 * * -9.727746429D-01 2.317530886D-01 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A TEMPERATURE DEPENDENT MATERIALS. 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -8.2019481E-16 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 3.0981488E-15 0*** USER INFORMATION MESSAGE 2304A, THE FOLLOWING ELEMENTS EITHER CONVERGED (NO PLUS) OR OVER-DESIGNED (PLUS(ES)) IN ONE OR MORE SUBCASES, (EACH PLUS INDICATES AN INCREMENTAL PERCENTAGE OF OVER-DESIGN BASED ON CONVERGENCE CRITERION, EPS) 1+++ 3+++ 5+++ 13+++ 15+++ 17+++ 31+++ 41+++ 51+++ 61+++ 101+++ 102+++ 103+++ 104+++ 105+++ 11+++ 12+++ 21+++ 22+++ 23+++ 24+++ 25+++ 26+++ 27+++ 28+++ 29+++ 32+++ 33+++ 34+++ 35+++ 36+++ 37+++ 38+++ 39+++ 42+++ 43+++ 44+++ 45+++ 46+++ 47+++ 52+++ 53+++ 54+++ 55+++ 57+++ 59+++ 62+++ 63+++ 64+++ 65+++ 67+++ 68+++ 69+++ 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. 0 PROPERTIES USED DURING INTERMEDIATE ITERATION 1 BY OPTPR2 PQDMEM 1 1 1.071222 0.0 PQDMEM 3 1 .9651195 0.0 PQDMEM 15 1 1.044106 0.0 PQDMEM 17 1 .7073267 0.0 PQDMEM 13 1 1.218299 0.0 PQDMEM 31 1 1.505458 0.0 PQDMEM 41 1 1.443331 0.0 PQDMEM 51 1 1.254365 0.0 PQDMEM 61 1 1.074768 0.0 PROD 101 3 .4442439 0.0 0.0 0.0 PROD 102 3 0.057833 0.0 0.0 0.0 PROD 103 3 .7338835 0.0 0.0 0.0 PROD 104 3 1.278474 0.0 0.0 0.0 PROD 105 3 1.515862 0.0 0.0 0.0 PTRMEM 11 1 1.247378 0.0 PTRMEM 12 1 1.268776 0.0 PTRMEM 21 1 1.526466 0.0 PTRMEM 22 1 1.418664 0.0 PTRMEM 23 1 1.440864 0.0 PTRMEM 24 1 1.405627 0.0 PTRMEM 25 1 1.537694 0.0 PTRMEM 26 1 1.16755 0.0 PTRMEM 27 1 1.243675 0.0 PTRMEM 28 1 .7109981 0.0 PTRMEM 29 1 .5958584 0.0 PTRMEM 32 1 1.533594 0.0 PTRMEM 33 1 1.615692 0.0 PTRMEM 34 1 1.640791 0.0 PTRMEM 35 1 1.663493 0.0 PTRMEM 36 1 1.518806 0.0 PTRMEM 37 2 1.16544 0.0 PTRMEM 38 2 1.195288 0.0 PTRMEM 39 2 .6632436 0.0 PTRMEM 42 1 1.560347 0.0 PTRMEM 43 1 1.805321 0.0 PTRMEM 44 1 1.759308 0.0 PTRMEM 45 1 1.803497 0.0 PTRMEM 46 2 1.560043 0.0 PTRMEM 47 2 1.59514 0.0 PTRMEM 52 1 1.343613 0.0 PTRMEM 53 1 1.717822 0.0 PTRMEM 54 1 1.646737 0.0 PTRMEM 55 1 2.068011 0.0 PTRMEM 57 2 1.737657 0.0 PTRMEM 59 2 2.07212 0.0 PTRMEM 62 1 1.22372 0.0 PTRMEM 63 1 1.595381 0.0 PTRMEM 64 1 1.552233 0.0 PTRMEM 65 1 1.966814 0.0 PTRMEM 67 2 2.635926 0.0 PTRMEM 68 2 1.905292 0.0 PTRMEM 69 2 2.900582 0.0 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 DESIGN CASE - UNIFORM END LOAD SUBCASE 10 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.821330E-06 4.463533E-03 0.0 0.0 0.0 0.0 3 G -1.662125E-04 4.880861E-03 0.0 0.0 0.0 0.0 5 G -2.397044E-04 5.362344E-03 0.0 0.0 0.0 0.0 7 G -1.730450E-04 5.768419E-03 0.0 0.0 0.0 0.0 9 G 0.0 5.930198E-03 0.0 0.0 0.0 0.0 11 G 4.243813E-04 3.676291E-03 0.0 0.0 0.0 0.0 13 G 2.214705E-04 4.120482E-03 0.0 0.0 0.0 0.0 15 G 7.384723E-05 4.659455E-03 0.0 0.0 0.0 0.0 17 G 3.596370E-06 5.132475E-03 0.0 0.0 0.0 0.0 19 G 0.0 5.325631E-03 0.0 0.0 0.0 0.0 21 G 7.917140E-04 2.759396E-03 0.0 0.0 0.0 0.0 23 G 5.459347E-04 3.253321E-03 0.0 0.0 0.0 0.0 25 G 2.884250E-04 3.903282E-03 0.0 0.0 0.0 0.0 27 G 9.539562E-05 4.534599E-03 0.0 0.0 0.0 0.0 29 G 0.0 4.811072E-03 0.0 0.0 0.0 0.0 31 G 1.122056E-03 2.122282E-03 0.0 0.0 0.0 0.0 33 G 9.492157E-04 2.449180E-03 0.0 0.0 0.0 0.0 35 G 6.302312E-04 3.082057E-03 0.0 0.0 0.0 0.0 37 G 3.304072E-04 3.739155E-03 0.0 0.0 0.0 0.0 38 G 1.692269E-04 4.260318E-03 0.0 0.0 0.0 0.0 39 G 0.0 4.618727E-03 0.0 0.0 0.0 0.0 41 G 1.608188E-03 1.395537E-03 0.0 0.0 0.0 0.0 43 G 1.439375E-03 1.739556E-03 0.0 0.0 0.0 0.0 45 G 1.056256E-03 2.373940E-03 0.0 0.0 0.0 0.0 47 G 6.377807E-04 3.231311E-03 0.0 0.0 0.0 0.0 48 G 0.0 4.530326E-03 0.0 0.0 0.0 0.0 49 G 5.554355E-04 3.998240E-03 0.0 0.0 0.0 0.0 51 G 2.106432E-03 8.206687E-04 0.0 0.0 0.0 0.0 53 G 1.960665E-03 1.117764E-03 0.0 0.0 0.0 0.0 55 G 1.707227E-03 1.525712E-03 0.0 0.0 0.0 0.0 57 G 1.369143E-03 2.156304E-03 0.0 0.0 0.0 0.0 59 G 1.248551E-03 2.900507E-03 0.0 0.0 0.0 0.0 61 G 2.534436E-03 3.599752E-04 0.0 0.0 0.0 0.0 63 G 2.415793E-03 5.485326E-04 0.0 0.0 0.0 0.0 65 G 2.312277E-03 7.152221E-04 0.0 0.0 0.0 0.0 67 G 2.214380E-03 9.216786E-04 0.0 0.0 0.0 0.0 69 G 1.887825E-03 1.772448E-03 0.0 0.0 0.0 0.0 71 G 2.742701E-03 0.0 0.0 0.0 0.0 0.0 73 G 2.651163E-03 0.0 0.0 0.0 0.0 0.0 75 G 2.535276E-03 0.0 0.0 0.0 0.0 0.0 77 G 2.430456E-03 0.0 0.0 0.0 0.0 0.0 78 G 2.259260E-03 7.630617E-04 0.0 0.0 0.0 0.0 79 G 2.304059E-03 0.0 0.0 0.0 0.0 0.0 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 CHECK CASE - CONTACT LOAD AT NOZZLE. SUBCASE 12 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.070535E-05 8.905783E-06 0.0 0.0 0.0 0.0 3 G 2.979222E-05 -1.447115E-05 0.0 0.0 0.0 0.0 5 G 2.452122E-05 -3.903139E-05 0.0 0.0 0.0 0.0 7 G 1.397812E-05 -5.791377E-05 0.0 0.0 0.0 0.0 9 G 0.0 -6.480613E-05 0.0 0.0 0.0 0.0 11 G 6.695201E-06 1.103889E-05 0.0 0.0 0.0 0.0 13 G 7.741342E-06 -1.405100E-05 0.0 0.0 0.0 0.0 15 G 6.844914E-06 -4.094277E-05 0.0 0.0 0.0 0.0 17 G 4.060484E-06 -6.190219E-05 0.0 0.0 0.0 0.0 19 G 0.0 -6.944413E-05 0.0 0.0 0.0 0.0 21 G -1.744610E-05 1.900311E-05 0.0 0.0 0.0 0.0 23 G -1.500150E-05 -9.813247E-06 0.0 0.0 0.0 0.0 25 G -1.010835E-05 -4.079473E-05 0.0 0.0 0.0 0.0 27 G -4.921635E-06 -6.590025E-05 0.0 0.0 0.0 0.0 29 G 0.0 -7.431350E-05 0.0 0.0 0.0 0.0 31 G -4.067240E-05 2.808370E-05 0.0 0.0 0.0 0.0 33 G -3.806622E-05 7.116089E-06 0.0 0.0 0.0 0.0 35 G -3.105998E-05 -2.501162E-05 0.0 0.0 0.0 0.0 37 G -2.116511E-05 -5.193195E-05 0.0 0.0 0.0 0.0 38 G -1.544805E-05 -7.237335E-05 0.0 0.0 0.0 0.0 39 G 0.0 -7.902690E-05 0.0 0.0 0.0 0.0 41 G -7.533809E-05 3.549538E-05 0.0 0.0 0.0 0.0 43 G -7.368292E-05 1.279203E-05 0.0 0.0 0.0 0.0 45 G -6.349137E-05 -1.872761E-05 0.0 0.0 0.0 0.0 47 G -4.482215E-05 -4.853486E-05 0.0 0.0 0.0 0.0 48 G 0.0 -8.200093E-05 0.0 0.0 0.0 0.0 49 G -4.008858E-05 -7.057897E-05 0.0 0.0 0.0 0.0 51 G -1.117945E-04 3.488453E-05 0.0 0.0 0.0 0.0 53 G -1.124346E-04 1.471849E-05 0.0 0.0 0.0 0.0 55 G -1.087393E-04 -4.376902E-06 0.0 0.0 0.0 0.0 57 G -9.256283E-05 -2.674525E-05 0.0 0.0 0.0 0.0 59 G -8.745134E-05 -5.237132E-05 0.0 0.0 0.0 0.0 61 G -1.458062E-04 2.259811E-05 0.0 0.0 0.0 0.0 63 G -1.497287E-04 9.460794E-06 0.0 0.0 0.0 0.0 65 G -1.555401E-04 2.852147E-06 0.0 0.0 0.0 0.0 67 G -1.613386E-04 -2.925104E-06 0.0 0.0 0.0 0.0 69 G -1.429701E-04 -3.085577E-05 0.0 0.0 0.0 0.0 71 G -1.623483E-04 0.0 0.0 0.0 0.0 0.0 73 G -1.687532E-04 0.0 0.0 0.0 0.0 0.0 75 G -1.776006E-04 0.0 0.0 0.0 0.0 0.0 77 G -1.909577E-04 0.0 0.0 0.0 0.0 0.0 78 G -1.882396E-04 -1.146091E-05 0.0 0.0 0.0 0.0 79 G -1.998155E-04 0.0 0.0 0.0 0.0 0.0 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 DESIGN CASE - UNIFORM END LOAD SUBCASE 10 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 9.204980E+01 7.765725E+03 4.338096E+02 86.7746 7.790171E+03 6.760352E+01 3.861284E+03 3 9.540791E+02 7.602566E+03 1.006370E+03 81.5785 7.751560E+03 8.050854E+02 3.473237E+03 5 2.183189E+03 7.349125E+03 1.086003E+03 78.5979 7.568143E+03 1.964171E+03 2.801986E+03 13 4.619141E+00 8.118059E+03 1.707073E+03 78.5893 8.462598E+03 -3.399194E+02 4.401258E+03 15 4.960356E+02 6.919061E+03 1.959285E+03 74.3067 7.469543E+03 -5.444727E+01 3.761995E+03 17 1.180990E+03 5.916475E+03 9.072217E+02 79.5176 6.084330E+03 1.013135E+03 2.535597E+03 31 -2.029727E+02 1.071188E+04 -2.357793E+02 -88.7631 1.071697E+04 -2.080635E+02 5.462515E+03 41 -7.546094E+01 1.023446E+04 -8.952756E+02 -85.0738 1.031162E+04 -1.526260E+02 5.232123E+03 51 4.701172E+00 8.829336E+03 -1.043530E+03 -83.3469 8.951057E+03 -1.170195E+02 4.534038E+03 61 2.575293E+02 7.864468E+03 -7.373130E+02 -84.5146 7.935273E+03 1.867234E+02 3.874275E+03 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 DESIGN CASE - UNIFORM END LOAD SUBCASE 10 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) ELEMENT AXIAL SAFETY TORSIONAL SAFETY ELEMENT AXIAL SAFETY TORSIONAL SAFETY ID. STRESS MARGIN STRESS MARGIN ID. STRESS MARGIN STRESS MARGIN 101 -6.387499E+03 2.9E+00 0.0 102 8.219414E+02 2.9E+01 0.0 103 1.064538E+04 1.3E+00 0.0 104 1.885858E+04 3.3E-01 0.0 105 2.252632E+04 1.1E-01 0.0 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 DESIGN CASE - UNIFORM END LOAD SUBCASE 10 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 11 3.469834E+02 9.273043E+03 6.372966E+02 85.9367 9.318314E+03 3.017119E+02 4.508301E+03 12 -3.822715E+02 8.556934E+03 1.031714E+03 83.5011 8.674463E+03 -4.998008E+02 4.587132E+03 21 -1.980430E+02 1.086254E+04 3.365225E+02 88.2589 1.087277E+04 -2.082725E+02 5.540521E+03 22 1.869854E+02 1.045445E+04 2.688682E+02 88.5010 1.046149E+04 1.799492E+02 5.140770E+03 23 -1.092473E+03 9.117793E+03 1.103255E+03 83.9028 9.235644E+03 -1.210323E+03 5.222983E+03 24 -2.238906E+02 9.554086E+03 1.425299E+03 81.8734 9.757609E+03 -4.274146E+02 5.092512E+03 25 -2.157803E+03 7.798523E+03 2.525711E+03 76.5493 8.402594E+03 -2.761873E+03 5.582233E+03 26 -1.907285E+02 7.085406E+03 2.127878E+03 74.8385 7.662003E+03 -7.673257E+02 4.214665E+03 27 -2.857303E+03 6.108141E+03 3.274565E+02 87.9110 6.120085E+03 -2.869247E+03 4.494666E+03 28 3.102715E+02 2.560742E+03 2.287080E+03 58.0985 3.984406E+03 -1.113393E+03 2.548900E+03 29 -1.709277E+02 3.246070E+03 1.276031E+03 71.6225 3.669994E+03 -5.948511E+02 2.132422E+03 32 -6.972583E+02 1.043518E+04 9.312891E+01 89.5207 1.043596E+04 -6.980366E+02 5.567000E+03 33 -1.550443E+03 1.015663E+04 4.700901E+02 87.7043 1.017548E+04 -1.569289E+03 5.872384E+03 34 -1.440474E+03 1.018962E+04 1.333112E+03 83.5440 1.034047E+04 -1.591326E+03 5.965900E+03 35 -2.518875E+03 6.929484E+03 3.780377E+03 70.6663 8.255852E+03 -3.845243E+03 6.050547E+03 36 1.845756E+03 4.314555E+03 5.372074E+03 51.4704 8.592227E+03 -2.431916E+03 5.512071E+03 37 -4.107727E+03 4.241250E+03 -5.213320E+02 -86.4407 4.273677E+03 -4.140154E+03 4.206916E+03 38 -5.892549E+03 1.649836E+03 2.100302E+03 75.4426 2.195258E+03 -6.437971E+03 4.316614E+03 39 -3.193361E+03 1.250906E+03 -8.410977E+02 -79.6339 1.404761E+03 -3.347217E+03 2.375989E+03 42 -6.634922E+02 1.046025E+04 -1.083527E+03 -84.4880 1.056481E+04 -7.680522E+02 5.666431E+03 43 -9.754121E+02 1.207340E+04 -8.589785E+02 -86.2499 1.212970E+04 -1.031714E+03 6.580708E+03 44 -1.398176E+03 1.045202E+04 2.441626E+03 78.8022 1.093538E+04 -1.881535E+03 6.408455E+03 45 -1.275215E+03 1.107501E+04 2.254729E+03 79.9706 1.147377E+04 -1.673976E+03 6.573875E+03 46 -2.496250E+03 8.702660E+03 8.612216E+02 85.6281 8.768503E+03 -2.562093E+03 5.665298E+03 47 1.361309E+03 1.797898E+03 5.791753E+03 46.0792 7.375469E+03 -4.216262E+03 5.795865E+03 52 9.419395E+02 1.004083E+04 -1.718616E+03 -79.6526 1.035462E+04 6.281455E+02 4.863240E+03 53 -1.734492E+02 1.209373E+04 -1.218039E+03 -84.3840 1.221350E+04 -2.932222E+02 6.253361E+03 54 1.531846E+03 1.293796E+04 -1.825399E+03 -81.1257 1.322297E+04 1.246836E+03 5.988068E+03 55 -2.729763E+02 1.420266E+04 2.213671E+03 81.4969 1.453361E+04 -6.039331E+02 7.568772E+03 57 3.304886E+03 1.071143E+04 5.130581E+03 62.9110 1.333565E+04 6.806719E+02 6.327488E+03 59 -7.986494E+02 1.436133E+04 -2.553477E+02 -89.0353 1.436563E+04 -8.029492E+02 7.584291E+03 62 8.249609E+02 9.650906E+03 -2.696621E+02 -88.2516 9.659138E+03 8.167295E+02 4.421204E+03 63 1.495104E+03 1.270948E+04 -1.470324E+03 -82.6533 1.289905E+04 1.305533E+03 5.796760E+03 64 1.460156E+03 1.269900E+04 4.354297E+02 87.7846 1.271584E+04 1.443312E+03 5.636266E+03 65 2.444367E+03 1.653352E+04 -1.424679E+03 -84.2834 1.667613E+04 2.301749E+03 7.187192E+03 67 5.091932E+03 1.666825E+04 7.824211E+03 63.2466 2.061256E+04 1.147615E+03 9.732475E+03 68 1.680823E+04 3.360102E+03 -1.780442E+03 -7.4154 1.703996E+04 3.128376E+03 6.955792E+03 69 1.990874E+03 2.348911E+04 -3.205117E+02 -89.1460 2.349389E+04 1.986098E+03 1.075390E+04 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 3.569302E-01 ORIGIN 12 - X0 = -5.038315E+00, Y0 = -0.932505E+00 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 4 STATIC DEFORM. 10 - SUBCASE 10 - LOAD PLOT 5 STATIC DEFORM. 12 - SUBCASE 12 - LOAD ORIGIN 12 USED IN THIS PLOT 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.920009E-01 ORIGIN 12 - X0 = -3.324618E+00, Y0 = -0.141947E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 6 STATIC DEFORM. 10 - SUBCASE 10 - LOAD C O N T O U R P L O T T I N G D A T A ABOVE PLOT IS A CONTOUR PLOT OF STRESS, MAJOR-PR THE CONTOUR VALUES ARE CALCULATED AT FIBRE DISTANCE Z1 TABLE OF PLOTTING SYMBOLS SYMBOL VALUE SYMBOL VALUE SYMBOL VALUE SYMBOL VALUE SYMBOL VALUE 1 1.404761E+03 2 3.859109E+03 3 6.313457E+03 4 8.767805E+03 5 1.122215E+04 6 1.367650E+04 7 1.613085E+04 8 1.858520E+04 9 2.103954E+04 10 2.349389E+04 PLOT MODULE MESSAGES CONTINUE ORIGIN 12 USED IN THIS PLOT 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A TEMPERATURE DEPENDENT MATERIALS. 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 101 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 11 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 4.74011512D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 -3.47739441D+02 * * 0.00000000D+00 4.74011512D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 -2.73248199D+02 * * 0.00000000D+00 0.00000000D+00 4.74011512D+01 3.47739441D+02 2.73248199D+02 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 3.47739441D+02 3.38784567D+03 1.92787281D+03 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 2.73248199D+02 1.92787281D+03 1.91626089D+03 0.00000000D+00 * * -3.47739441D+02 -2.73248199D+02 0.00000000D+00 0.00000000D+00 0.00000000D+00 5.30410656D+03 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 4.740115117D+01 0.000000000D+00 7.336096968D+00 0.000000000D+00 Y 4.740115117D+01 -5.764589940D+00 0.000000000D+00 0.000000000D+00 Z 4.740115117D+01 -5.764589940D+00 7.336096968D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 8.367954101D+02 7.670247806D+01 0.000000000D+00 * * 7.670247806D+01 3.410970667D+02 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.177892477D+03 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 3.294997467D+02 * * 8.483927301D+02 * * 1.177892477D+03 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.494995623D-01 9.887617918D-01 0.000000000D+00 * * -9.887617918D-01 1.494995623D-01 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A TEMPERATURE DEPENDENT MATERIALS. 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 9.2122425E-16 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 4.9296211E-16 0*** USER INFORMATION MESSAGE 2304A, THE FOLLOWING ELEMENTS EITHER CONVERGED (NO PLUS) OR OVER-DESIGNED (PLUS(ES)) IN ONE OR MORE SUBCASES, (EACH PLUS INDICATES AN INCREMENTAL PERCENTAGE OF OVER-DESIGN BASED ON CONVERGENCE CRITERION, EPS) 1+ 3++ 5+++ 13+ 15 17+++ 31+++ 41+++ 51+++ 61+++ 101+++ 102+++ 103++ 11+++ 12++ 21+++ 22+++ 23+++ 24+ 25 26+ 27+ 28+++ 29+++ 32+++ 33+ 34 35 36 37+++ 38++ 39+++ 42+++ 43 44+ 46++ 52+++ 53++ 54+++ 57+ 62+++ 63+++ 64+++ 65+ 68+++ 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. 0 PROPERTIES USED DURING INTERMEDIATE ITERATION 2 BY OPTPR2 PQDMEM 1 1 1.033994 0.0 PQDMEM 3 1 .9188714 0.0 PQDMEM 15 1 1.059908 0.0 PQDMEM 17 1 .6108416 0.0 PQDMEM 13 1 1.191968 0.0 PQDMEM 31 1 1.284232 0.0 PQDMEM 41 1 1.147469 0.0 PQDMEM 51 1 .9442209 0.0 PQDMEM 61 1 .7763133 0.0 PROD 101 3 .2935847 0.0 0.0 0.0 PROD 102 3 0.012492 0.0 0.0 0.0 PROD 103 3 .6987218 0.0 0.0 0.0 PROD 104 3 1.532408 0.0 0.0 0.0 PROD 105 3 2.047833 0.0 0.0 0.0 PTRMEM 11 1 1.14133 0.0 PTRMEM 12 1 1.185928 0.0 PTRMEM 21 1 1.311802 0.0 PTRMEM 22 1 1.269593 0.0 PTRMEM 23 1 1.322531 0.0 PTRMEM 24 1 1.393923 0.0 PTRMEM 25 1 1.586295 0.0 PTRMEM 26 1 1.164333 0.0 PTRMEM 27 1 1.241797 0.0 PTRMEM 28 1 .5620121 0.0 PTRMEM 29 1 .4691587 0.0 PTRMEM 32 1 1.386189 0.0 PTRMEM 33 1 1.57027 0.0 PTRMEM 34 1 1.687123 0.0 PTRMEM 35 1 1.691113 0.0 PTRMEM 36 1 1.569896 0.0 PTRMEM 37 2 .9444442 0.0 PTRMEM 38 2 1.136783 0.0 PTRMEM 39 2 .4895919 0.0 PTRMEM 42 1 1.316499 0.0 PTRMEM 43 1 1.819054 0.0 PTRMEM 44 1 1.69324 0.0 PTRMEM 45 1 1.994908 0.0 PTRMEM 46 2 1.500635 0.0 PTRMEM 47 2 1.690118 0.0 PTRMEM 52 1 1.061136 0.0 PTRMEM 53 1 1.601526 0.0 PTRMEM 54 1 1.516941 0.0 PTRMEM 55 1 2.307184 0.0 PTRMEM 57 2 1.702405 0.0 PTRMEM 59 2 2.634386 0.0 PTRMEM 62 1 .9506319 0.0 PTRMEM 63 1 1.423582 0.0 PTRMEM 64 1 1.336945 0.0 PTRMEM 65 1 1.902205 0.0 PTRMEM 67 2 3.373956 0.0 PTRMEM 68 2 1.734491 0.0 PTRMEM 69 2 3.764548 0.0 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 101 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 11 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 4.50961252D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 -3.30139626D+02 * * 0.00000000D+00 4.50961252D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 -2.57464502D+02 * * 0.00000000D+00 0.00000000D+00 4.50961252D+01 3.30139626D+02 2.57464502D+02 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 3.30139626D+02 3.22077189D+03 1.83006659D+03 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 2.57464502D+02 1.83006659D+03 1.77290012D+03 0.00000000D+00 * * -3.30139626D+02 -2.57464502D+02 0.00000000D+00 0.00000000D+00 0.00000000D+00 4.99367201D+03 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 4.509612523D+01 0.000000000D+00 7.320798052D+00 0.000000000D+00 Y 4.509612523D+01 -5.709237787D+00 0.000000000D+00 0.000000000D+00 Z 4.509612523D+01 -5.709237787D+00 7.320798052D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 8.038863647D+02 5.477903122D+01 0.000000000D+00 * * 5.477903122D+01 3.029740528D+02 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.106860418D+03 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 2.970534776D+02 * * 8.098069400D+02 * * 1.106860418D+03 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.074552535D-01 9.942099217D-01 0.000000000D+00 * * -9.942099217D-01 1.074552535D-01 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A TEMPERATURE DEPENDENT MATERIALS. 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 2.1605210E-16 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = -7.7336327E-15 0*** USER INFORMATION MESSAGE 2304A, THE FOLLOWING ELEMENTS EITHER CONVERGED (NO PLUS) OR OVER-DESIGNED (PLUS(ES)) IN ONE OR MORE SUBCASES, (EACH PLUS INDICATES AN INCREMENTAL PERCENTAGE OF OVER-DESIGN BASED ON CONVERGENCE CRITERION, EPS) 1+ 3 5+ 13 17+ 31+++ 41+++ 51+++ 61+++ 101+++ 102+++ 103++ 11++ 12++ 21+++ 22+++ 23++ 24 25 27 28+++ 29+++ 32++ 33+ 34 35 37+++ 38+ 39+++ 42+++ 43 44++ 46++ 52+++ 53++ 54++ 57+ 62+++ 63+++ 64+++ 65++ 68+++ 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 101 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 11 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 4.46419732D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 -3.28408190D+02 * * 0.00000000D+00 4.46419732D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 -2.51345648D+02 * * 0.00000000D+00 0.00000000D+00 4.46419732D+01 3.28408190D+02 2.51345648D+02 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 3.28408190D+02 3.22286541D+03 1.80285042D+03 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 2.51345648D+02 1.80285042D+03 1.70250230D+03 0.00000000D+00 * * -3.28408190D+02 -2.51345648D+02 0.00000000D+00 0.00000000D+00 0.00000000D+00 4.92536771D+03 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 4.464197324D+01 0.000000000D+00 7.356489103D+00 0.000000000D+00 Y 4.464197324D+01 -5.630253981D+00 0.000000000D+00 0.000000000D+00 Z 4.464197324D+01 -5.630253981D+00 7.356489103D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 8.069341434D+02 4.617109323D+01 0.000000000D+00 * * 4.617109323D+01 2.873624671D+02 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.094296610D+03 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 2.832914282D+02 * * 8.110051822D+02 * * 1.094296610D+03 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 8.783213064D-02 9.961352904D-01 0.000000000D+00 * * -9.961352904D-01 8.783213064D-02 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A TEMPERATURE DEPENDENT MATERIALS. 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.6581286E-15 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = -4.4773581E-15 0*** USER INFORMATION MESSAGE 2304A, THE FOLLOWING ELEMENTS EITHER CONVERGED (NO PLUS) OR OVER-DESIGNED (PLUS(ES)) IN ONE OR MORE SUBCASES, (EACH PLUS INDICATES AN INCREMENTAL PERCENTAGE OF OVER-DESIGN BASED ON CONVERGENCE CRITERION, EPS) 1+ 3 5 13+ 17+ 31+++ 41+++ 51+++ 61+++ 101+++ 102+++ 103+++ 11++ 12++ 21+++ 22+++ 23++ 24 25 27 28++ 29++ 32++ 33+ 34 35+ 36 37+++ 38+ 39+++ 42+++ 43+ 44++ 46++ 52+++ 53++ 54+++ 57++ 62+++ 63++ 64+++ 65+++ 68+++ 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. 0 PROPERTIES USED DURING INTERMEDIATE ITERATION 4 BY OPTPR2 PQDMEM 1 1 1.031045 0.0 PQDMEM 3 1 .9311845 0.0 PQDMEM 15 1 1.211034 0.0 PQDMEM 17 1 .58821 0.0 PQDMEM 13 1 1.196972 0.0 PQDMEM 31 1 1.00508 0.0 PQDMEM 41 1 .8348035 0.0 PQDMEM 51 1 .6612925 0.0 PQDMEM 61 1 .5353363 0.0 PROD 101 3 .115252 0.0 0.0 0.0 PROD 102 3 .95971-3 0.0 0.0 0.0 PROD 103 3 .567601 0.0 0.0 0.0 PROD 104 3 1.797204 0.0 0.0 0.0 PROD 105 3 2.939022 0.0 0.0 0.0 PTRMEM 11 1 1.011748 0.0 PTRMEM 12 1 1.080094 0.0 PTRMEM 21 1 1.044504 0.0 PTRMEM 22 1 1.066173 0.0 PTRMEM 23 1 1.198598 0.0 PTRMEM 24 1 1.460319 0.0 PTRMEM 25 1 1.657861 0.0 PTRMEM 26 1 1.285158 0.0 PTRMEM 27 1 1.268225 0.0 PTRMEM 28 1 .4628378 0.0 PTRMEM 29 1 .4094069 0.0 PTRMEM 32 1 1.211546 0.0 PTRMEM 33 1 1.523078 0.0 PTRMEM 34 1 1.777022 0.0 PTRMEM 35 1 1.700289 0.0 PTRMEM 36 1 1.692735 0.0 PTRMEM 37 2 .6385411 0.0 PTRMEM 38 2 1.104635 0.0 PTRMEM 39 2 .3634879 0.0 PTRMEM 42 1 1.025942 0.0 PTRMEM 43 1 1.823302 0.0 PTRMEM 44 1 1.537771 0.0 PTRMEM 45 1 2.393018 0.0 PTRMEM 46 2 1.337129 0.0 PTRMEM 47 2 1.902055 0.0 PTRMEM 52 1 .7678915 0.0 PTRMEM 53 1 1.419793 0.0 PTRMEM 54 1 1.2843 0.0 PTRMEM 55 1 2.65112 0.0 PTRMEM 57 2 1.546774 0.0 PTRMEM 59 2 3.880642 0.0 PTRMEM 62 1 .710145 0.0 PTRMEM 63 1 1.21977 0.0 PTRMEM 64 1 1.069723 0.0 PTRMEM 65 1 1.646051 0.0 PTRMEM 67 2 4.798389 0.0 PTRMEM 68 2 1.329027 0.0 PTRMEM 69 2 5.043369 0.0 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 101 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 11 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 4.44065574D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 -3.28284636D+02 * * 0.00000000D+00 4.44065574D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 -2.46971219D+02 * * 0.00000000D+00 0.00000000D+00 4.44065574D+01 3.28284636D+02 2.46971219D+02 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 3.28284636D+02 3.23870221D+03 1.78462601D+03 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 2.46971219D+02 1.78462601D+03 1.65055593D+03 0.00000000D+00 * * -3.28284636D+02 -2.46971219D+02 0.00000000D+00 0.00000000D+00 0.00000000D+00 4.88925815D+03 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 4.440655743D+01 0.000000000D+00 7.392706271D+00 0.000000000D+00 Y 4.440655743D+01 -5.561593462D+00 0.000000000D+00 0.000000000D+00 Z 4.440655743D+01 -5.561593462D+00 7.392706271D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 8.117903272D+02 4.115967161D+01 0.000000000D+00 * * 4.115967161D+01 2.770024145D+02 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.088792742D+03 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 2.738531276D+02 * * 8.149396140D+02 * * 1.088792742D+03 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 7.629090530D-02 9.970856020D-01 0.000000000D+00 * * -9.970856020D-01 7.629090530D-02 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A TEMPERATURE DEPENDENT MATERIALS. 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -1.5635397E-16 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = -3.9567802E-15 0*** USER INFORMATION MESSAGE 2304A, THE FOLLOWING ELEMENTS EITHER CONVERGED (NO PLUS) OR OVER-DESIGNED (PLUS(ES)) IN ONE OR MORE SUBCASES, (EACH PLUS INDICATES AN INCREMENTAL PERCENTAGE OF OVER-DESIGN BASED ON CONVERGENCE CRITERION, EPS) 1+ 3 5+ 13+ 17+ 31+++ 41+++ 51+++ 61+++ 101+++ 102+++ 103+++ 104 11++ 12++ 21+++ 22++ 23+ 24 25+ 27+ 28++ 29+ 32++ 33+ 34 35+ 36 37+++ 38+ 39+++ 42+++ 43+ 44++ 46+++ 52+++ 53++ 54+++ 57+++ 62+++ 63++ 64+++ 65+++ 68+++ 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. 0 PROPERTIES USED DURING FINAL ITERATION 5 BY OPTPR2 PQDMEM 1 1 1.028005 0.0 PQDMEM 3 1 .937016 0.0 PQDMEM 15 1 1.272886 0.0 PQDMEM 17 1 .584856 0.0 PQDMEM 13 1 1.193568 0.0 PQDMEM 31 1 .9128151 0.0 PQDMEM 41 1 .7436725 0.0 PQDMEM 51 1 .5855925 0.0 PQDMEM 61 1 .4719824 0.0 PROD 101 3 0.066974 0.0 0.0 0.0 PROD 102 3 .28643-3 0.0 0.0 0.0 PROD 103 3 .4770681 0.0 0.0 0.0 PROD 104 3 1.825921 0.0 0.0 0.0 PROD 105 3 3.285259 0.0 0.0 0.0 PTRMEM 11 1 .9699996 0.0 PTRMEM 12 1 1.036422 0.0 PTRMEM 21 1 .9643758 0.0 PTRMEM 22 1 .9919872 0.0 PTRMEM 23 1 1.15619 0.0 PTRMEM 24 1 1.501551 0.0 PTRMEM 25 1 1.655592 0.0 PTRMEM 26 1 1.349646 0.0 PTRMEM 27 1 1.257455 0.0 PTRMEM 28 1 .4377882 0.0 PTRMEM 29 1 .3954258 0.0 PTRMEM 32 1 1.152832 0.0 PTRMEM 33 1 1.504325 0.0 PTRMEM 34 1 1.805507 0.0 PTRMEM 35 1 1.688277 0.0 PTRMEM 36 1 1.748828 0.0 PTRMEM 37 2 .5293518 0.0 PTRMEM 38 2 1.096847 0.0 PTRMEM 39 2 .3327318 0.0 PTRMEM 42 1 .9304726 0.0 PTRMEM 43 1 1.806777 0.0 PTRMEM 44 1 1.450798 0.0 PTRMEM 45 1 2.575514 0.0 PTRMEM 46 2 1.226632 0.0 PTRMEM 47 2 1.987407 0.0 PTRMEM 52 1 .6789549 0.0 PTRMEM 53 1 1.33767 0.0 PTRMEM 54 1 1.171215 0.0 PTRMEM 55 1 2.753381 0.0 PTRMEM 57 2 1.427849 0.0 PTRMEM 59 2 4.434203 0.0 PTRMEM 62 1 .6418355 0.0 PTRMEM 63 1 1.144582 0.0 PTRMEM 64 1 .9728199 0.0 PTRMEM 65 1 1.486445 0.0 PTRMEM 67 2 5.46184 0.0 PTRMEM 68 2 1.151183 0.0 PTRMEM 69 2 5.489853 0.0 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 DESIGN CASE - UNIFORM END LOAD SUBCASE 10 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.389916E-03 1.134543E-02 0.0 0.0 0.0 0.0 3 G 7.489821E-04 1.186683E-02 0.0 0.0 0.0 0.0 5 G 1.039473E-04 1.251831E-02 0.0 0.0 0.0 0.0 7 G -3.450447E-04 1.381497E-02 0.0 0.0 0.0 0.0 9 G 0.0 1.548968E-02 0.0 0.0 0.0 0.0 11 G 2.006213E-03 8.919884E-03 0.0 0.0 0.0 0.0 13 G 1.405371E-03 9.305301E-03 0.0 0.0 0.0 0.0 15 G 8.264998E-04 1.001041E-02 0.0 0.0 0.0 0.0 17 G 3.060064E-04 1.118545E-02 0.0 0.0 0.0 0.0 19 G 0.0 1.233637E-02 0.0 0.0 0.0 0.0 21 G 2.463463E-03 6.531760E-03 0.0 0.0 0.0 0.0 23 G 1.863695E-03 6.913052E-03 0.0 0.0 0.0 0.0 25 G 1.189154E-03 7.462451E-03 0.0 0.0 0.0 0.0 27 G 5.369621E-04 8.679849E-03 0.0 0.0 0.0 0.0 29 G 0.0 9.999206E-03 0.0 0.0 0.0 0.0 31 G 2.761734E-03 5.202384E-03 0.0 0.0 0.0 0.0 33 G 2.407298E-03 5.423277E-03 0.0 0.0 0.0 0.0 35 G 1.732644E-03 5.765760E-03 0.0 0.0 0.0 0.0 37 G 1.130979E-03 6.518316E-03 0.0 0.0 0.0 0.0 38 G 7.088970E-04 7.312952E-03 0.0 0.0 0.0 0.0 39 G 0.0 8.797762E-03 0.0 0.0 0.0 0.0 41 G 3.238700E-03 3.740417E-03 0.0 0.0 0.0 0.0 43 G 2.899359E-03 3.918175E-03 0.0 0.0 0.0 0.0 45 G 2.236031E-03 4.178303E-03 0.0 0.0 0.0 0.0 47 G 1.534037E-03 5.235521E-03 0.0 0.0 0.0 0.0 48 G 0.0 7.788152E-03 0.0 0.0 0.0 0.0 49 G 1.272480E-03 6.429462E-03 0.0 0.0 0.0 0.0 51 G 3.750891E-03 2.480421E-03 0.0 0.0 0.0 0.0 53 G 3.428966E-03 2.651694E-03 0.0 0.0 0.0 0.0 55 G 2.984176E-03 2.763550E-03 0.0 0.0 0.0 0.0 57 G 2.489995E-03 3.300968E-03 0.0 0.0 0.0 0.0 59 G 2.228803E-03 4.235663E-03 0.0 0.0 0.0 0.0 61 G 4.296278E-03 1.236817E-03 0.0 0.0 0.0 0.0 63 G 3.992726E-03 1.372976E-03 0.0 0.0 0.0 0.0 65 G 3.727047E-03 1.425912E-03 0.0 0.0 0.0 0.0 67 G 3.539943E-03 1.439801E-03 0.0 0.0 0.0 0.0 69 G 3.044058E-03 2.339595E-03 0.0 0.0 0.0 0.0 71 G 4.603796E-03 0.0 0.0 0.0 0.0 0.0 73 G 4.326903E-03 0.0 0.0 0.0 0.0 0.0 75 G 4.055515E-03 0.0 0.0 0.0 0.0 0.0 77 G 3.893840E-03 0.0 0.0 0.0 0.0 0.0 78 G 3.599570E-03 9.599373E-04 0.0 0.0 0.0 0.0 79 G 3.728859E-03 0.0 0.0 0.0 0.0 0.0 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 CHECK CASE - CONTACT LOAD AT NOZZLE. SUBCASE 12 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.113594E-04 9.720551E-05 0.0 0.0 0.0 0.0 3 G 1.089807E-04 1.628048E-05 0.0 0.0 0.0 0.0 5 G 9.356585E-05 -6.945906E-05 0.0 0.0 0.0 0.0 7 G 6.804381E-05 -1.358898E-04 0.0 0.0 0.0 0.0 9 G 0.0 -1.661745E-04 0.0 0.0 0.0 0.0 11 G 2.506319E-05 1.030170E-04 0.0 0.0 0.0 0.0 13 G 2.813581E-05 1.764900E-05 0.0 0.0 0.0 0.0 15 G 2.639636E-05 -7.428269E-05 0.0 0.0 0.0 0.0 17 G 1.904449E-05 -1.494868E-04 0.0 0.0 0.0 0.0 19 G 0.0 -1.868239E-04 0.0 0.0 0.0 0.0 21 G -6.438290E-05 1.234532E-04 0.0 0.0 0.0 0.0 23 G -5.746961E-05 2.955882E-05 0.0 0.0 0.0 0.0 25 G -4.460326E-05 -7.262684E-05 0.0 0.0 0.0 0.0 27 G -3.239902E-05 -1.644906E-04 0.0 0.0 0.0 0.0 29 G 0.0 -2.059365E-04 0.0 0.0 0.0 0.0 31 G -1.385965E-04 1.436616E-04 0.0 0.0 0.0 0.0 33 G -1.327369E-04 8.128180E-05 0.0 0.0 0.0 0.0 35 G -1.165768E-04 -2.060961E-05 0.0 0.0 0.0 0.0 37 G -9.674120E-05 -1.136771E-04 0.0 0.0 0.0 0.0 38 G -9.649803E-05 -1.978868E-04 0.0 0.0 0.0 0.0 39 G 0.0 -2.327262E-04 0.0 0.0 0.0 0.0 41 G -2.396177E-04 1.569218E-04 0.0 0.0 0.0 0.0 43 G -2.375029E-04 9.577748E-05 0.0 0.0 0.0 0.0 45 G -2.215467E-04 -6.056624E-06 0.0 0.0 0.0 0.0 47 G -1.836613E-04 -1.083834E-04 0.0 0.0 0.0 0.0 48 G 0.0 -2.429685E-04 0.0 0.0 0.0 0.0 49 G -1.792880E-04 -1.872508E-04 0.0 0.0 0.0 0.0 51 G -3.373955E-04 1.454475E-04 0.0 0.0 0.0 0.0 53 G -3.437240E-04 9.125708E-05 0.0 0.0 0.0 0.0 55 G -3.447415E-04 2.985934E-05 0.0 0.0 0.0 0.0 57 G -3.139759E-04 -4.204221E-05 0.0 0.0 0.0 0.0 59 G -3.160170E-04 -1.258820E-04 0.0 0.0 0.0 0.0 61 G -4.278020E-04 9.464542E-05 0.0 0.0 0.0 0.0 63 G -4.445327E-04 5.571855E-05 0.0 0.0 0.0 0.0 65 G -4.653942E-04 3.344712E-05 0.0 0.0 0.0 0.0 67 G -4.818863E-04 1.576246E-05 0.0 0.0 0.0 0.0 69 G -4.383495E-04 -6.017886E-05 0.0 0.0 0.0 0.0 71 G -4.781616E-04 0.0 0.0 0.0 0.0 0.0 73 G -5.046047E-04 0.0 0.0 0.0 0.0 0.0 75 G -5.256462E-04 0.0 0.0 0.0 0.0 0.0 77 G -5.503929E-04 0.0 0.0 0.0 0.0 0.0 78 G -5.400554E-04 -1.651714E-05 0.0 0.0 0.0 0.0 79 G -5.537386E-04 0.0 0.0 0.0 0.0 0.0 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 DESIGN CASE - UNIFORM END LOAD SUBCASE 10 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 3.291895E+01 2.494525E+04 -3.548027E+02 -89.1842 2.495030E+04 2.786621E+01 1.246122E+04 3 2.865068E+02 2.543314E+04 4.787812E+02 88.9096 2.544225E+04 2.773955E+02 1.258243E+04 5 2.076074E+03 2.630996E+04 3.062377E+03 82.9082 2.669096E+04 1.695078E+03 1.249794E+04 13 -1.210527E+02 2.466473E+04 1.316213E+03 86.9688 2.473443E+04 -1.907520E+02 1.246259E+04 15 5.980527E+02 2.544722E+04 4.379451E+03 80.2917 2.619647E+04 -1.511953E+02 1.317383E+04 17 2.424543E+03 2.494118E+04 5.256494E+03 77.4861 2.610786E+04 1.257868E+03 1.242500E+04 31 -2.877676E+02 2.216668E+04 -1.261995E+03 -86.7933 2.223738E+04 -3.584727E+02 1.129793E+04 41 -1.274766E+02 2.161728E+04 -2.092072E+03 -84.5541 2.181673E+04 -3.269268E+02 1.107183E+04 51 2.540742E+02 2.169613E+04 -2.474097E+03 -83.5027 2.197790E+04 -2.769727E+01 1.100280E+04 61 9.961016E+02 2.266848E+04 -1.591791E+03 -85.8216 2.278477E+04 8.798115E+02 1.095248E+04 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 DESIGN CASE - UNIFORM END LOAD SUBCASE 10 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) ELEMENT AXIAL SAFETY TORSIONAL SAFETY ELEMENT AXIAL SAFETY TORSIONAL SAFETY ID. STRESS MARGIN STRESS MARGIN ID. STRESS MARGIN STRESS MARGIN 101 -1.421438E+04 7.6E-01 0.0 102 7.195711E+03 2.5E+00 0.0 103 2.083755E+04 2.0E-01 0.0 104 2.542085E+04 -1.7E-02 0.0 105 2.811953E+04 -1.1E-01 0.0 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 DESIGN CASE - UNIFORM END LOAD SUBCASE 10 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 11 -5.026172E+01 2.386617E+04 2.019336E+01 89.9516 2.386619E+04 -5.027832E+01 1.195823E+04 12 -2.249023E+01 2.391573E+04 -2.974609E+00 -89.9929 2.391573E+04 -2.249121E+01 1.196911E+04 21 -2.768477E+02 2.270625E+04 -2.674463E+02 -89.3334 2.270936E+04 -2.799600E+02 1.149466E+04 22 -3.515156E+02 2.281898E+04 -2.425781E+02 -89.4002 2.282152E+04 -3.540547E+02 1.158779E+04 23 -1.251309E+03 2.281516E+04 -2.241924E+02 -89.4663 2.281725E+04 -1.253396E+03 1.203532E+04 24 -5.481816E+02 2.515438E+04 7.312461E+02 88.3717 2.517516E+04 -5.689688E+02 1.287207E+04 25 -2.455242E+03 2.189908E+04 2.741729E+03 83.6556 2.220392E+04 -2.760082E+03 1.248200E+04 26 -5.125195E+02 2.437928E+04 4.282264E+03 80.5066 2.509538E+04 -1.228618E+03 1.316200E+04 27 -3.120797E+03 2.116209E+04 -2.460834E+03 -84.2712 2.140896E+04 -3.367669E+03 1.238831E+04 28 1.834023E+03 1.278052E+04 1.044247E+04 58.8303 1.909717E+04 -4.482623E+03 1.178990E+04 29 -2.908672E+02 2.050892E+04 6.089344E+03 74.8251 2.216050E+04 -1.942442E+03 1.205147E+04 32 -1.453732E+03 2.214041E+04 -1.258118E+03 -86.9563 2.220730E+04 -1.520630E+03 1.186397E+04 33 -8.971133E+02 2.354273E+04 -1.703567E+03 -86.0318 2.366090E+04 -1.015288E+03 1.233809E+04 34 -2.067480E+03 2.319162E+04 1.437509E+03 86.7532 2.327316E+04 -2.149026E+03 1.271109E+04 35 -2.410898E+03 2.001743E+04 5.308301E+03 77.3346 2.121034E+04 -3.603811E+03 1.240708E+04 36 6.279750E+03 1.238948E+04 1.257093E+04 51.8293 2.227140E+04 -3.602170E+03 1.293678E+04 37 -5.783938E+03 1.414805E+04 -2.480676E+03 -83.0112 1.445215E+04 -6.088035E+03 1.027009E+04 38 -1.206284E+04 7.171789E+03 7.838854E+03 70.4087 9.961745E+03 -1.485280E+04 1.240727E+04 39 -6.934504E+03 1.097452E+04 -7.041680E+03 -70.9095 1.341160E+04 -9.371592E+03 1.139160E+04 42 -1.741895E+02 2.165885E+04 -2.846590E+03 -82.6925 2.202388E+04 -5.392246E+02 1.128155E+04 43 -1.045733E+03 2.304733E+04 -2.857514E+03 -83.3279 2.338160E+04 -1.380007E+03 1.238080E+04 44 -1.405676E+03 2.155950E+04 2.530074E+03 83.7870 2.183494E+04 -1.681111E+03 1.175803E+04 45 -9.282168E+02 2.495970E+04 3.860871E+03 81.6957 2.552323E+04 -1.491752E+03 1.350749E+04 46 -2.575713E+03 2.024471E+04 4.043560E+02 88.9852 2.025187E+04 -2.582875E+03 1.141737E+04 47 9.242463E+03 6.822520E+03 1.303580E+04 42.3485 2.112433E+04 -5.059348E+03 1.309184E+04 52 1.387567E+03 2.233716E+04 -3.309898E+03 -81.2321 2.284766E+04 8.770645E+02 1.098530E+04 53 6.991504E+01 2.247253E+04 -3.519559E+03 -81.2784 2.301246E+04 -4.700127E+02 1.174124E+04 54 2.593628E+03 2.361379E+04 -4.276385E+03 -78.9297 2.445048E+04 1.756935E+03 1.134677E+04 55 -2.092944E+02 2.554739E+04 1.836045E+03 85.9431 2.567762E+04 -3.395176E+02 1.300857E+04 57 3.358346E+03 2.104556E+04 7.339373E+03 70.1552 2.369438E+04 7.095303E+02 1.149242E+04 59 -4.201953E+01 2.869034E+04 -8.470664E+02 -88.3128 2.871529E+04 -6.696973E+01 1.439113E+04 62 1.920266E+03 2.411281E+04 -1.796160E+03 -85.4026 2.425724E+04 1.775833E+03 1.124070E+04 63 2.093952E+03 2.507239E+04 -2.165725E+03 -84.6625 2.527473E+04 1.891614E+03 1.169156E+04 64 3.123906E+03 2.538138E+04 -2.037516E+03 -84.8124 2.556636E+04 2.938923E+03 1.131372E+04 65 3.873070E+03 2.584422E+04 -2.333389E+03 -84.0042 2.608930E+04 3.627992E+03 1.123065E+04 67 5.132285E+03 2.695872E+04 9.291156E+03 69.7950 3.037812E+04 1.712886E+03 1.433262E+04 68 2.605371E+04 4.571375E+03 4.732148E+02 1.2613 2.606413E+04 4.560956E+03 1.075159E+04 69 2.241980E+03 2.947071E+04 -1.235445E+03 -87.4074 2.952666E+04 2.186040E+03 1.367031E+04 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 3.569302E-01 ORIGIN 12 - X0 = -5.038315E+00, Y0 = -0.932505E+00 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 7 STATIC DEFORM. 10 - SUBCASE 10 - LOAD PLOT 8 STATIC DEFORM. 12 - SUBCASE 12 - LOAD ORIGIN 12 USED IN THIS PLOT 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.920009E-01 ORIGIN 12 - X0 = -3.324618E+00, Y0 = -0.141947E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 9 STATIC DEFORM. 10 - SUBCASE 10 - LOAD C O N T O U R P L O T T I N G D A T A ABOVE PLOT IS A CONTOUR PLOT OF STRESS, MAJOR-PR THE CONTOUR VALUES ARE CALCULATED AT FIBRE DISTANCE Z1 TABLE OF PLOTTING SYMBOLS SYMBOL VALUE SYMBOL VALUE SYMBOL VALUE SYMBOL VALUE SYMBOL VALUE 1 9.961745E+03 2 1.223023E+04 3 1.449872E+04 4 1.676720E+04 5 1.903569E+04 6 2.130418E+04 7 2.357266E+04 8 2.584115E+04 9 2.810963E+04 10 3.037812E+04 PLOT MODULE MESSAGES CONTINUE ORIGIN 12 USED IN THIS PLOT 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A TEMPERATURE DEPENDENT MATERIALS. 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 101 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 11 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 4.42392104D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 -3.28419695D+02 * * 0.00000000D+00 4.42392104D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 -2.43591923D+02 * * 0.00000000D+00 0.00000000D+00 4.42392104D+01 3.28419695D+02 2.43591923D+02 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 3.28419695D+02 3.25374491D+03 1.77082577D+03 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 2.43591923D+02 1.77082577D+03 1.61062580D+03 0.00000000D+00 * * -3.28419695D+02 -2.43591923D+02 0.00000000D+00 0.00000000D+00 0.00000000D+00 4.86437072D+03 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 4.423921044D+01 0.000000000D+00 7.423724146D+00 0.000000000D+00 Y 4.423921044D+01 -5.506244814D+00 0.000000000D+00 0.000000000D+00 Z 4.423921044D+01 -5.506244814D+00 7.423724146D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 8.156476969D+02 3.753347547D+01 0.000000000D+00 * * 3.753347547D+01 2.693490403D+02 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.084996737D+03 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 2.667823602D+02 * * 8.182143771D+02 * * 1.084996737D+03 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 6.822442583D-02 9.976699994D-01 0.000000000D+00 * * -9.976699994D-01 6.822442583D-02 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A TEMPERATURE DEPENDENT MATERIALS. 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -6.9756541E-16 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 8.5940708E-15 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 DESIGN CASE - UNIFORM END LOAD SUBCASE 10 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.572628E-03 1.154599E-02 0.0 0.0 0.0 0.0 3 G 9.243845E-04 1.193848E-02 0.0 0.0 0.0 0.0 5 G 2.444017E-04 1.241018E-02 0.0 0.0 0.0 0.0 7 G -2.523648E-04 1.360102E-02 0.0 0.0 0.0 0.0 9 G 0.0 1.532952E-02 0.0 0.0 0.0 0.0 11 G 2.076502E-03 9.129270E-03 0.0 0.0 0.0 0.0 13 G 1.468924E-03 9.388575E-03 0.0 0.0 0.0 0.0 15 G 8.780985E-04 9.946185E-03 0.0 0.0 0.0 0.0 17 G 3.431796E-04 1.101889E-02 0.0 0.0 0.0 0.0 19 G 0.0 1.216943E-02 0.0 0.0 0.0 0.0 21 G 2.468790E-03 6.717768E-03 0.0 0.0 0.0 0.0 23 G 1.866533E-03 6.979578E-03 0.0 0.0 0.0 0.0 25 G 1.196364E-03 7.409636E-03 0.0 0.0 0.0 0.0 27 G 5.493447E-04 8.549244E-03 0.0 0.0 0.0 0.0 29 G 0.0 9.856408E-03 0.0 0.0 0.0 0.0 31 G 2.732095E-03 5.360832E-03 0.0 0.0 0.0 0.0 33 G 2.373674E-03 5.521496E-03 0.0 0.0 0.0 0.0 35 G 1.706541E-03 5.753301E-03 0.0 0.0 0.0 0.0 37 G 1.120617E-03 6.424075E-03 0.0 0.0 0.0 0.0 38 G 7.014140E-04 7.145126E-03 0.0 0.0 0.0 0.0 39 G 0.0 8.639262E-03 0.0 0.0 0.0 0.0 41 G 3.157101E-03 3.872707E-03 0.0 0.0 0.0 0.0 43 G 2.813426E-03 3.996840E-03 0.0 0.0 0.0 0.0 45 G 2.163439E-03 4.155316E-03 0.0 0.0 0.0 0.0 47 G 1.487233E-03 5.120448E-03 0.0 0.0 0.0 0.0 48 G 0.0 7.541713E-03 0.0 0.0 0.0 0.0 49 G 1.215867E-03 6.214110E-03 0.0 0.0 0.0 0.0 51 G 3.626089E-03 2.576474E-03 0.0 0.0 0.0 0.0 53 G 3.296602E-03 2.705682E-03 0.0 0.0 0.0 0.0 55 G 2.850667E-03 2.760899E-03 0.0 0.0 0.0 0.0 57 G 2.371857E-03 3.235445E-03 0.0 0.0 0.0 0.0 59 G 2.116686E-03 4.087639E-03 0.0 0.0 0.0 0.0 61 G 4.140181E-03 1.288175E-03 0.0 0.0 0.0 0.0 63 G 3.827813E-03 1.397156E-03 0.0 0.0 0.0 0.0 65 G 3.551628E-03 1.435035E-03 0.0 0.0 0.0 0.0 67 G 3.362291E-03 1.423973E-03 0.0 0.0 0.0 0.0 69 G 2.881066E-03 2.275202E-03 0.0 0.0 0.0 0.0 71 G 4.437525E-03 0.0 0.0 0.0 0.0 0.0 73 G 4.152381E-03 0.0 0.0 0.0 0.0 0.0 75 G 3.876265E-03 0.0 0.0 0.0 0.0 0.0 77 G 3.724050E-03 0.0 0.0 0.0 0.0 0.0 78 G 3.413983E-03 9.358756E-04 0.0 0.0 0.0 0.0 79 G 3.560508E-03 0.0 0.0 0.0 0.0 0.0 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 CHECK CASE - CONTACT LOAD AT NOZZLE. SUBCASE 12 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.132649E-04 1.033499E-04 0.0 0.0 0.0 0.0 3 G 1.108946E-04 2.068001E-05 0.0 0.0 0.0 0.0 5 G 9.538453E-05 -6.701716E-05 0.0 0.0 0.0 0.0 7 G 7.042404E-05 -1.346991E-04 0.0 0.0 0.0 0.0 9 G 0.0 -1.659026E-04 0.0 0.0 0.0 0.0 11 G 2.499494E-05 1.092637E-04 0.0 0.0 0.0 0.0 13 G 2.820096E-05 2.219585E-05 0.0 0.0 0.0 0.0 15 G 2.667133E-05 -7.172060E-05 0.0 0.0 0.0 0.0 17 G 1.954824E-05 -1.483324E-04 0.0 0.0 0.0 0.0 19 G 0.0 -1.871402E-04 0.0 0.0 0.0 0.0 21 G -6.640136E-05 1.304785E-04 0.0 0.0 0.0 0.0 23 G -5.902418E-05 3.493368E-05 0.0 0.0 0.0 0.0 25 G -4.591129E-05 -6.969135E-05 0.0 0.0 0.0 0.0 27 G -3.405407E-05 -1.636451E-04 0.0 0.0 0.0 0.0 29 G 0.0 -2.067497E-04 0.0 0.0 0.0 0.0 31 G -1.423310E-04 1.517441E-04 0.0 0.0 0.0 0.0 33 G -1.361955E-04 8.848578E-05 0.0 0.0 0.0 0.0 35 G -1.197369E-04 -1.587622E-05 0.0 0.0 0.0 0.0 37 G -1.000269E-04 -1.117819E-04 0.0 0.0 0.0 0.0 38 G -1.014647E-04 -2.001894E-04 0.0 0.0 0.0 0.0 39 G 0.0 -2.351940E-04 0.0 0.0 0.0 0.0 41 G -2.453887E-04 1.657672E-04 0.0 0.0 0.0 0.0 43 G -2.432512E-04 1.042271E-04 0.0 0.0 0.0 0.0 45 G -2.276061E-04 -6.361477E-07 0.0 0.0 0.0 0.0 47 G -1.904912E-04 -1.068092E-04 0.0 0.0 0.0 0.0 48 G 0.0 -2.474123E-04 0.0 0.0 0.0 0.0 49 G -1.892384E-04 -1.898324E-04 0.0 0.0 0.0 0.0 51 G -3.450770E-04 1.534594E-04 0.0 0.0 0.0 0.0 53 G -3.519631E-04 9.879672E-05 0.0 0.0 0.0 0.0 55 G -3.537626E-04 3.644150E-05 0.0 0.0 0.0 0.0 57 G -3.227140E-04 -3.868844E-05 0.0 0.0 0.0 0.0 59 G -3.264424E-04 -1.259629E-04 0.0 0.0 0.0 0.0 61 G -4.374868E-04 9.968391E-05 0.0 0.0 0.0 0.0 63 G -4.552736E-04 5.991073E-05 0.0 0.0 0.0 0.0 65 G -4.772080E-04 3.774761E-05 0.0 0.0 0.0 0.0 67 G -4.946991E-04 2.097354E-05 0.0 0.0 0.0 0.0 69 G -4.501201E-04 -5.916022E-05 0.0 0.0 0.0 0.0 71 G -4.892818E-04 0.0 0.0 0.0 0.0 0.0 73 G -5.171538E-04 0.0 0.0 0.0 0.0 0.0 75 G -5.391882E-04 0.0 0.0 0.0 0.0 0.0 77 G -5.663188E-04 0.0 0.0 0.0 0.0 0.0 78 G -5.556829E-04 -1.547226E-05 0.0 0.0 0.0 0.0 79 G -5.691727E-04 0.0 0.0 0.0 0.0 0.0 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 DESIGN CASE - UNIFORM END LOAD SUBCASE 10 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -9.340625E+01 2.480509E+04 -5.120371E+02 -88.8224 2.481561E+04 -1.039316E+02 1.245977E+04 3 -1.142930E+02 2.503518E+04 1.094863E+02 89.7506 2.503566E+04 -1.147695E+02 1.257521E+04 5 1.515451E+03 2.568520E+04 2.859643E+03 83.3435 2.601893E+04 1.181721E+03 1.241861E+04 13 -1.622456E+02 2.467906E+04 9.025508E+02 87.9219 2.471181E+04 -1.949951E+02 1.245340E+04 15 4.589766E+02 2.516868E+04 4.096820E+03 80.8273 2.583021E+04 -2.025576E+02 1.301638E+04 17 1.998743E+03 2.451296E+04 5.275145E+03 77.4460 2.568766E+04 8.240518E+02 1.243180E+04 31 -2.661621E+02 2.251600E+04 -1.399120E+03 -86.4988 2.260160E+04 -3.517646E+02 1.147668E+04 41 -8.607422E+01 2.215181E+04 -2.164619E+03 -84.4918 2.236056E+04 -2.948174E+02 1.132769E+04 51 2.846113E+02 2.234388E+04 -2.529942E+03 -83.5406 2.263032E+04 -1.824219E+00 1.131607E+04 61 1.021992E+03 2.332372E+04 -1.631108E+03 -85.8390 2.344238E+04 9.033271E+02 1.126953E+04 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 DESIGN CASE - UNIFORM END LOAD SUBCASE 10 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) ELEMENT AXIAL SAFETY TORSIONAL SAFETY ELEMENT AXIAL SAFETY TORSIONAL SAFETY ID. STRESS MARGIN STRESS MARGIN ID. STRESS MARGIN STRESS MARGIN 101 -1.349390E+04 8.5E-01 0.0 102 7.313547E+03 2.4E+00 0.0 103 2.008784E+04 2.4E-01 0.0 104 2.472500E+04 1.1E-02 0.0 105 2.735327E+04 -8.6E-02 0.0 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 DESIGN CASE - UNIFORM END LOAD SUBCASE 10 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 11 -6.201562E+01 2.409641E+04 -3.120078E+02 -89.2602 2.410044E+04 -6.604395E+01 1.208324E+04 12 -1.113281E-01 2.408995E+04 -3.209111E+02 -89.2369 2.409422E+04 -4.384766E+00 1.204930E+04 21 -2.086719E+02 2.319916E+04 -5.001934E+02 -88.7764 2.320985E+04 -2.193555E+02 1.171460E+04 22 -2.933633E+02 2.311242E+04 -5.470596E+02 -88.6618 2.312520E+04 -3.061426E+02 1.171567E+04 23 -1.081027E+03 2.308186E+04 -5.144482E+02 -88.7809 2.309281E+04 -1.091976E+03 1.209239E+04 24 -4.488086E+02 2.531072E+04 3.885537E+02 89.1360 2.531658E+04 -4.546689E+02 1.288562E+04 25 -2.192766E+03 2.198699E+04 2.437665E+03 84.3002 2.223029E+04 -2.436068E+03 1.233318E+04 26 -3.860430E+02 2.459397E+04 4.052738E+03 81.0114 2.523503E+04 -1.027104E+03 1.313107E+04 27 -2.684766E+03 2.127970E+04 -2.702272E+03 -83.6455 2.158063E+04 -2.985699E+03 1.228316E+04 28 2.097666E+03 1.317799E+04 1.061162E+04 58.7842 1.960862E+04 -4.332968E+03 1.197080E+04 29 -3.654141E+02 2.075573E+04 6.033066E+03 75.1307 2.235755E+04 -1.967226E+03 1.216239E+04 32 -1.257842E+03 2.249249E+04 -1.467162E+03 -86.4784 2.258278E+04 -1.348131E+03 1.196546E+04 33 -6.691270E+02 2.376903E+04 -1.904522E+03 -85.5704 2.391656E+04 -8.166602E+02 1.236661E+04 34 -1.755971E+03 2.344298E+04 1.233902E+03 87.2033 2.350326E+04 -1.816246E+03 1.265975E+04 35 -2.029184E+03 2.058692E+04 5.014203E+03 78.0433 2.164876E+04 -3.091025E+03 1.236989E+04 36 6.608434E+03 1.296733E+04 1.251579E+04 52.1268 2.270120E+04 -3.125437E+03 1.291332E+04 37 -5.126066E+03 1.484598E+04 -2.736504E+03 -82.3376 1.521414E+04 -5.494227E+03 1.035419E+04 38 -1.103643E+04 8.191586E+03 7.899169E+03 70.2962 1.102049E+04 -1.386533E+04 1.244291E+04 39 -6.020293E+03 1.189569E+04 -7.465453E+03 -70.0963 1.459868E+04 -8.723289E+03 1.166099E+04 42 -5.361328E+01 2.211805E+04 -2.867217E+03 -82.7495 2.248284E+04 -4.183975E+02 1.145062E+04 43 -8.698389E+02 2.310000E+04 -2.942620E+03 -83.1026 2.345596E+04 -1.225800E+03 1.234088E+04 44 -1.282586E+03 2.165245E+04 2.421211E+03 84.0389 2.190526E+04 -1.535402E+03 1.172033E+04 45 -7.042891E+02 2.500324E+04 3.721184E+03 81.9271 2.553105E+04 -1.232097E+03 1.338157E+04 46 -2.111352E+03 2.040420E+04 1.881638E+02 89.5212 2.040578E+04 -2.112924E+03 1.125935E+04 47 9.506314E+03 7.309246E+03 1.293362E+04 42.5726 2.138797E+04 -4.572412E+03 1.298019E+04 52 1.325133E+03 2.282942E+04 -3.211109E+03 -81.6859 2.329868E+04 8.558760E+02 1.122140E+04 53 6.451855E+01 2.251182E+04 -3.568102E+03 -81.1820 2.306533E+04 -4.889980E+02 1.177717E+04 54 2.524614E+03 2.356234E+04 -4.224479E+03 -79.0596 2.437894E+04 1.708017E+03 1.133546E+04 55 -1.765977E+02 2.533907E+04 1.640418E+03 86.3365 2.544410E+04 -2.816289E+02 1.286286E+04 57 3.166664E+03 2.069308E+04 7.217078E+03 70.2632 2.328241E+04 5.773379E+02 1.135254E+04 59 1.529062E+02 2.795172E+04 -1.024646E+03 -87.8919 2.798944E+04 1.151895E+02 1.393712E+04 62 1.826023E+03 2.449905E+04 -1.848633E+03 -85.3692 2.464879E+04 1.676285E+03 1.148625E+04 63 2.041595E+03 2.521307E+04 -2.140467E+03 -84.7663 2.540914E+04 1.845529E+03 1.178180E+04 64 3.116586E+03 2.553557E+04 -2.242568E+03 -84.3434 2.575769E+04 2.894463E+03 1.143162E+04 65 4.033112E+03 2.562090E+04 -2.385223E+03 -83.7696 2.588130E+04 3.772710E+03 1.105430E+04 67 4.897299E+03 2.646188E+04 8.969699E+03 70.1216 2.970504E+04 1.654138E+03 1.402545E+04 68 2.562416E+04 4.043977E+03 7.286631E+02 1.9317 2.564873E+04 4.019400E+03 1.081467E+04 69 2.067257E+03 2.869645E+04 -1.436559E+03 -86.9210 2.877372E+04 1.989984E+03 1.339187E+04 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 3.569302E-01 ORIGIN 12 - X0 = -5.038315E+00, Y0 = -0.932505E+00 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 10 STATIC DEFORM. 10 - SUBCASE 10 - LOAD PLOT 11 STATIC DEFORM. 12 - SUBCASE 12 - LOAD ORIGIN 12 USED IN THIS PLOT 1 FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A 0 TEMPERATURE DEPENDENT MATERIALS. MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.920009E-01 ORIGIN 12 - X0 = -3.324618E+00, Y0 = -0.141947E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 12 STATIC DEFORM. 10 - SUBCASE 10 - LOAD C O N T O U R P L O T T I N G D A T A ABOVE PLOT IS A CONTOUR PLOT OF STRESS, MAJOR-PR THE CONTOUR VALUES ARE CALCULATED AT FIBRE DISTANCE Z1 TABLE OF PLOTTING SYMBOLS SYMBOL VALUE SYMBOL VALUE SYMBOL VALUE SYMBOL VALUE SYMBOL VALUE 1 1.102049E+04 2 1.309655E+04 3 1.517261E+04 4 1.724867E+04 5 1.932473E+04 6 2.140080E+04 7 2.347686E+04 8 2.555292E+04 9 2.762898E+04 10 2.970504E+04 PLOT MODULE MESSAGES CONTINUE ORIGIN 12 USED IN THIS PLOT * * * END OF JOB * * * 1 JOB TITLE = FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE DATE: 5/17/95 END TIME: 15:13: 6 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d01171a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D01171A,NASTRAN APP DISP SOL 1,0 TIME 10 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 ELEMENT STRESS PRECISION CHECKS 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 3 LABEL = ELEMENT STRESS PRECISION CHECKS 4 SPC = 10 5 OUTPUT 6 DISPLACEMENT = ALL 7 ELSTRESS = ALL 8 NCHECK = 12 9 SUBCASE 1 10 LABEL = LOAD IN LONGITUDINAL DIRECTION 11 LOAD = 1 12 SUBCASE 2 13 LABEL = LOAD IN TRANSVERSE DIRECTION 14 LOAD = 2 15 SUBCASE 3 16 LABEL = LOAD NORMAL TO SURFACE 17 LOAD = 3 18 SUBCASE 4 19 LABEL = THERMAL LOAD 20 TEMP(LOAD) = 4 21 SPC = 20 22 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 40, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 ELEMENT STRESS PRECISION CHECKS 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CQUAD2 11 10 11 12 22 21 .0 2- CQUAD2 12 10 12 13 23 22 .0 3- CQUAD2 21 20 21 22 32 31 .0 4- CQUAD2 22 20 22 23 33 32 .0 5- CQUAD2 31 30 31 32 42 41 .0 6- CQUAD2 32 30 32 33 43 42 .0 7- CQUAD2 41 40 41 42 52 51 .0 8- CQUAD2 42 40 42 43 53 52 .0 9- FORCE 1 51 100.0 .0 1.0 .0 10- FORCE 1 52 400.0 .0 1.0 .0 11- FORCE 1 53 100.0 .0 1.0 .0 12- FORCE 2 52 1000.0 1.0 .0 .0 13- FORCE 3 52 100.0 .0 .0 1.0 14- GRDSET 6 15- GRID 11 .0 .0 .0 16- GRID 12 10.0 .0 .0 17- GRID 13 20.0 .0 .0 18- GRID 21 .0 10.0 .0 19- GRID 22 10.0 10.0 .0 20- GRID 23 20.0 10.0 .0 21- GRID 31 .0 20.0 .0 22- GRID 32 10.0 20.0 .0 23- GRID 33 20.0 20.0 .0 24- GRID 41 .0 30.0 .0 25- GRID 42 10.0 30.0 .0 26- GRID 43 20.0 30.0 .0 27- GRID 51 .0 40.0 .0 28- GRID 52 10.0 40.0 .0 29- GRID 53 20.0 40.0 .0 30- MAT1 10 1.0E3 .0 1.0E-6 70.0 31- MAT1 20 1.0E5 .0 1.0E-6 70.0 32- MAT1 30 1.0E7 .0 1.0E-6 70.0 33- MAT1 40 1.0E9 .0 1.0E-6 70.0 34- PQUAD2 10 10 1.0 .0 20 20 1.0 .0 35- PQUAD2 30 30 1.0 .0 40 40 1.0 .0 36- SPC1 10 23 11 13 37- SPC1 10 12345 12 38- SPC1 20 12345 11 THRU 13 39- SPC1 20 12345 51 THRU 53 40- TEMPD 4 170.0 ENDDATA 0*** USER WARNING MESSAGE 2251, TWO OF THE E, G AND NU ON MAT1 CARD 10 ARE ZEROS OR BLANKS. POTENTIAL ERROR MAY OCCUR LATER 0*** USER WARNING MESSAGE 2251, TWO OF THE E, G AND NU ON MAT1 CARD 20 ARE ZEROS OR BLANKS. POTENTIAL ERROR MAY OCCUR LATER 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A ELEMENT STRESS PRECISION CHECKS 0*** USER WARNING MESSAGE 2251, TWO OF THE E, G AND NU ON MAT1 CARD 30 ARE ZEROS OR BLANKS. POTENTIAL ERROR MAY OCCUR LATER 0*** USER WARNING MESSAGE 2251, TWO OF THE E, G AND NU ON MAT1 CARD 40 ARE ZEROS OR BLANKS. POTENTIAL ERROR MAY OCCUR LATER 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 ELEMENT STRESS PRECISION CHECKS 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 5 PROFILE 61 MAX WAVEFRONT 5 AVG WAVEFRONT 4.067 RMS WAVEFRONT 4.235 RMS BANDWIDTH 4.266 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 5 PROFILE 61 MAX WAVEFRONT 5 AVG WAVEFRONT 4.067 RMS WAVEFRONT 4.235 RMS BANDWIDTH 4.266 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 5 5 PROFILE (P) 61 61 MAXIMUM WAVEFRONT (C-MAX) 5 5 AVERAGE WAVEFRONT (C-AVG) 4.067 4.067 RMS WAVEFRONT (C-RMS) 4.235 4.235 RMS BANDWITCH (B-RMS) 4.266 4.266 NUMBER OF GRID POINTS (N) 15 NUMBER OF ELEMENTS (NON-RIGID) 8 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 38 MATRIX DENSITY, PERCENT 40.444 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 11 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -6.1119436E-11 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 3.9226826E-09 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 3, EPSILON SUB E = -7.0352350E-08 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 4, EPSILON SUB E = 6.4355009E-17 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 ELEMENT STRESS PRECISION CHECKS 0 E L E M E N T P R E C I S I O N C H E C K SIGNIFICANT DIGITS FOR SUBCASE = 1, 1 = LOAD TYPE EID MX MY MXY VX VY SX1 SY1 SXY1 SX2 SY2 SXY2 0 QUAD2 11 15.7 15.7 15.7 15.7 15.7 15.7 15.7 8.5 15.7 15.7 8.5 0 QUAD2 12 15.7 15.7 15.7 15.7 15.7 15.7 15.7 8.5 15.7 15.7 8.5 0 QUAD2 21 15.7 15.7 15.7 15.7 15.7 15.7 13.4 8.6 15.7 13.4 8.6 0 QUAD2 22 15.7 15.7 15.7 15.7 15.7 15.7 13.4 8.6 15.7 13.4 8.6 0 QUAD2 31 15.7 15.7 15.7 15.7 15.7 15.7 11.3 8.7 15.7 11.3 8.7 0 QUAD2 32 15.7 15.7 15.7 15.7 15.7 15.7 11.3 8.7 15.7 11.3 8.7 0 QUAD2 41 15.7 15.7 15.7 15.7 15.7 13.7 9.3 8.8 13.7 9.3 8.8 0 QUAD2 42 15.7 15.7 15.7 15.7 15.7 13.7 9.3 8.8 13.7 9.3 8.8 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 ELEMENT STRESS PRECISION CHECKS 0 E L E M E N T P R E C I S I O N C H E C K SIGNIFICANT DIGITS FOR SUBCASE = 2, 2 = LOAD TYPE EID MX MY MXY VX VY SX1 SY1 SXY1 SX2 SY2 SXY2 0 QUAD2 21 15.7 15.7 15.7 15.7 15.7 11.3 13.2 12.6 11.3 13.2 12.6 0 QUAD2 22 15.7 15.7 15.7 15.7 15.7 11.3 13.2 12.6 11.3 13.2 12.6 0 QUAD2 31 15.7 15.7 15.7 15.7 15.7 8.4 11.0 10.4 8.4 11.0 10.4 0 QUAD2 32 15.7 15.7 15.7 15.7 15.7 8.4 11.0 10.4 8.4 11.0 10.4 0 QUAD2 41 15.7 15.7 15.7 15.7 15.7 8.2 8.4 8.1 8.2 8.4 8.1 0 QUAD2 42 15.7 15.7 15.7 15.7 15.7 8.2 8.4 8.1 8.2 8.4 8.1 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 ELEMENT STRESS PRECISION CHECKS 0 E L E M E N T P R E C I S I O N C H E C K SIGNIFICANT DIGITS FOR SUBCASE = 3, 3 = LOAD TYPE EID MX MY MXY VX VY SX1 SY1 SXY1 SX2 SY2 SXY2 0 QUAD2 21 15.7 13.1 11.8 11.6 11.7 15.7 13.1 11.8 15.7 13.1 11.8 0 QUAD2 22 15.7 13.1 11.8 11.6 11.7 15.7 13.1 11.8 15.7 13.1 11.8 0 QUAD2 31 15.6 10.9 9.1 9.2 9.5 15.6 10.9 9.1 15.6 10.9 9.1 0 QUAD2 32 15.6 10.9 9.1 9.2 9.5 15.6 10.9 9.1 15.6 10.9 9.1 0 QUAD2 41 15.5 9.4 8.2 15.7 8.0 15.5 9.4 8.2 15.5 9.4 8.2 0 QUAD2 42 15.5 9.4 8.2 15.7 8.0 15.5 9.4 8.2 15.5 9.4 8.2 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 ELEMENT STRESS PRECISION CHECKS 0 E L E M E N T P R E C I S I O N C H E C K SIGNIFICANT DIGITS FOR SUBCASE = 4, 0 = LOAD TYPE EID MX MY MXY VX VY SX1 SY1 SXY1 SX2 SY2 SXY2 0 QUAD2 31 15.7 15.7 15.7 15.7 15.7 15.0 11.8 13.6 15.0 11.8 13.6 0 QUAD2 32 15.7 15.7 15.7 15.7 15.7 15.0 11.8 13.6 15.0 11.8 13.6 0 QUAD2 41 15.7 15.7 15.7 15.7 15.7 15.7 10.2 14.9 15.7 10.2 14.9 0 QUAD2 42 15.7 15.7 15.7 15.7 15.7 15.7 10.2 14.9 15.7 10.2 14.9 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 LOAD IN LONGITUDINAL DIRECTION SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 1.136627E-08 0.0 0.0 0.0 0.0 0.0 12 G 0.0 0.0 0.0 0.0 0.0 0.0 13 G -1.136839E-08 0.0 0.0 0.0 0.0 0.0 21 G 2.331782E-08 3.000000E-01 0.0 0.0 0.0 0.0 22 G -4.557625E-12 3.000000E-01 0.0 0.0 0.0 0.0 23 G -2.332694E-08 3.000000E-01 0.0 0.0 0.0 0.0 31 G 3.511839E-08 3.030000E-01 0.0 0.0 0.0 0.0 32 G -7.360022E-12 3.030000E-01 0.0 0.0 0.0 0.0 33 G -3.513312E-08 3.030000E-01 0.0 0.0 0.0 0.0 41 G 3.251075E-08 3.030300E-01 0.0 0.0 0.0 0.0 42 G -1.013840E-11 3.030300E-01 0.0 0.0 0.0 0.0 43 G -3.253103E-08 3.030300E-01 0.0 0.0 0.0 0.0 51 G -3.321615E-08 3.030302E-01 0.0 0.0 0.0 0.0 52 G -1.291650E-11 3.030304E-01 0.0 0.0 0.0 0.0 53 G 3.319032E-08 3.030302E-01 0.0 0.0 0.0 0.0 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 LOAD IN TRANSVERSE DIRECTION SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 4.001586E-01 0.0 0.0 0.0 0.0 0.0 12 G 0.0 0.0 0.0 0.0 0.0 0.0 13 G 4.001586E-01 0.0 0.0 0.0 0.0 0.0 21 G 2.600476E+00 2.800000E+00 0.0 0.0 0.0 0.0 22 G 2.599683E+00 -2.131248E-11 0.0 0.0 0.0 0.0 23 G 2.600476E+00 -2.800000E+00 0.0 0.0 0.0 0.0 31 G 5.420080E+00 2.820000E+00 0.0 0.0 0.0 0.0 32 G 5.420078E+00 -2.152550E-11 0.0 0.0 0.0 0.0 33 G 5.420080E+00 -2.820000E+00 0.0 0.0 0.0 0.0 41 G 8.240239E+00 2.820120E+00 0.0 0.0 0.0 0.0 42 G 8.240239E+00 -2.152745E-11 0.0 0.0 0.0 0.0 43 G 8.240239E+00 -2.820120E+00 0.0 0.0 0.0 0.0 51 G 1.106036E+01 2.820120E+00 0.0 0.0 0.0 0.0 52 G 1.106036E+01 -2.152767E-11 0.0 0.0 0.0 0.0 53 G 1.106036E+01 -2.820120E+00 0.0 0.0 0.0 0.0 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 LOAD NORMAL TO SURFACE SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 0.0 0.0 0.0 9.594370E+00 3.892732E-01 0.0 12 G 0.0 0.0 0.0 0.0 0.0 0.0 13 G 0.0 0.0 0.0 9.594370E+00 -3.892732E-01 0.0 21 G 0.0 0.0 1.568320E+02 2.574604E+01 5.975270E-02 0.0 22 G 0.0 0.0 1.563638E+02 2.584833E+01 2.478003E-08 0.0 23 G 0.0 0.0 1.568320E+02 2.574604E+01 -5.975265E-02 0.0 31 G 0.0 0.0 4.153883E+02 2.594679E+01 6.801047E-04 0.0 32 G 0.0 0.0 4.153853E+02 2.594758E+01 2.525376E-08 0.0 33 G 0.0 0.0 4.153883E+02 2.594679E+01 -6.800542E-04 0.0 41 G 0.0 0.0 6.748639E+02 2.594809E+01 1.421553E-06 0.0 42 G 0.0 0.0 6.748639E+02 2.594809E+01 2.525925E-08 0.0 43 G 0.0 0.0 6.748639E+02 2.594809E+01 -1.371035E-06 0.0 51 G 0.0 0.0 9.343448E+02 2.594809E+01 -1.628650E-06 0.0 52 G 0.0 0.0 9.343448E+02 2.594809E+01 2.525915E-08 0.0 53 G 0.0 0.0 9.343448E+02 2.594809E+01 1.679169E-06 0.0 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 THERMAL LOAD SUBCASE 4 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 0.0 0.0 0.0 0.0 0.0 0.0 12 G 0.0 0.0 0.0 0.0 0.0 0.0 13 G 0.0 0.0 0.0 0.0 0.0 0.0 21 G -1.020553E-03 -2.915823E-03 0.0 0.0 0.0 0.0 22 G -1.897354E-19 -3.004177E-03 0.0 0.0 0.0 0.0 23 G 1.020553E-03 -2.915823E-03 0.0 0.0 0.0 0.0 31 G -9.535098E-04 -1.924571E-03 0.0 0.0 0.0 0.0 32 G 1.084202E-19 -2.074629E-03 0.0 0.0 0.0 0.0 33 G 9.535098E-04 -1.924571E-03 0.0 0.0 0.0 0.0 41 G -6.980164E-04 -9.129202E-04 0.0 0.0 0.0 0.0 42 G -2.710505E-20 -1.087072E-03 0.0 0.0 0.0 0.0 43 G 6.980164E-04 -9.129202E-04 0.0 0.0 0.0 0.0 51 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 0.0 0.0 0.0 0.0 0.0 53 G 0.0 0.0 0.0 0.0 0.0 0.0 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 LOAD IN LONGITUDINAL DIRECTION SUBCASE 1 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 11 -5.000000E-01 -1.734433E-06 3.000000E+01 9.536743E-07 90.0000 3.000000E+01 -1.907349E-06 1.500000E+01 5.000000E-01 -1.734433E-06 3.000000E+01 9.536743E-07 90.0000 3.000000E+01 -1.907349E-06 1.500000E+01 0 12 -5.000000E-01 -1.734539E-06 3.000000E+01 -9.536743E-07 -90.0000 3.000000E+01 -1.907349E-06 1.500000E+01 5.000000E-01 -1.734539E-06 3.000000E+01 -9.536743E-07 -90.0000 3.000000E+01 -1.907349E-06 1.500000E+01 0 21 -5.000000E-01 -2.922406E-04 3.000000E+01 2.441406E-04 89.9995 3.000000E+01 -2.918243E-04 1.500015E+01 5.000000E-01 -2.922406E-04 3.000000E+01 2.441406E-04 89.9995 3.000000E+01 -2.918243E-04 1.500015E+01 0 22 -5.000000E-01 -2.922407E-04 3.000000E+01 -2.441406E-04 -89.9995 3.000000E+01 -2.918243E-04 1.500015E+01 5.000000E-01 -2.922407E-04 3.000000E+01 -2.441406E-04 -89.9995 3.000000E+01 -2.918243E-04 1.500015E+01 0 31 -5.000000E-01 -3.382332E-02 3.000000E+01 3.125000E-02 89.9404 3.000003E+01 -3.385544E-02 1.501694E+01 5.000000E-01 -3.382332E-02 3.000000E+01 3.125000E-02 89.9404 3.000003E+01 -3.385544E-02 1.501694E+01 0 32 -5.000000E-01 -3.382332E-02 3.000000E+01 -3.125000E-02 -89.9404 3.000003E+01 -3.385544E-02 1.501694E+01 5.000000E-01 -3.382332E-02 3.000000E+01 -3.125000E-02 -89.9404 3.000003E+01 -3.385544E-02 1.501694E+01 0 41 -5.000000E-01 3.411746E-02 3.000000E+01 4.500000E+00 81.6414 3.066118E+01 -6.270628E-01 1.564412E+01 5.000000E-01 3.411746E-02 3.000000E+01 4.500000E+00 81.6414 3.066118E+01 -6.270628E-01 1.564412E+01 0 42 -5.000000E-01 3.411717E-02 3.000000E+01 -4.500000E+00 -81.6414 3.066118E+01 -6.270628E-01 1.564412E+01 5.000000E-01 3.411717E-02 3.000000E+01 -4.500000E+00 -81.6414 3.066118E+01 -6.270628E-01 1.564412E+01 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 LOAD IN TRANSVERSE DIRECTION SUBCASE 2 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 11 -5.000000E-01 -2.004755E+01 1.400000E+02 5.000000E+01 74.0011 1.543362E+02 -3.438375E+01 9.435998E+01 5.000000E-01 -2.004755E+01 1.400000E+02 5.000000E+01 74.0011 1.543362E+02 -3.438375E+01 9.435998E+01 0 12 -5.000000E-01 2.004756E+01 -1.400000E+02 5.000000E+01 15.9989 3.438376E+01 -1.543362E+02 9.435998E+01 5.000000E-01 2.004756E+01 -1.400000E+02 5.000000E+01 15.9989 3.438376E+01 -1.543362E+02 9.435998E+01 0 21 -5.000000E-01 -3.974609E+00 1.000000E+02 5.000146E+01 68.0577 1.201433E+02 -2.411792E+01 7.213062E+01 5.000000E-01 -3.974609E+00 1.000000E+02 5.000146E+01 68.0577 1.201433E+02 -2.411792E+01 7.213062E+01 0 22 -5.000000E-01 3.972656E+00 -1.000000E+02 5.000195E+01 21.9427 2.411658E+01 -1.201439E+02 7.213026E+01 5.000000E-01 3.972656E+00 -1.000000E+02 5.000195E+01 21.9427 2.411658E+01 -1.201439E+02 7.213026E+01 0 31 -5.000000E-01 -7.500000E-01 6.000000E+01 5.000000E+01 60.6393 8.812834E+01 -2.887834E+01 5.850334E+01 5.000000E-01 -7.500000E-01 6.000000E+01 5.000000E+01 60.6393 8.812834E+01 -2.887834E+01 5.850334E+01 0 32 -5.000000E-01 7.500000E-01 -6.000001E+01 5.000000E+01 29.3607 2.887834E+01 -8.812835E+01 5.850334E+01 5.000000E-01 7.500000E-01 -6.000001E+01 5.000000E+01 29.3607 2.887834E+01 -8.812835E+01 5.850334E+01 0 41 -5.000000E-01 6.400000E+01 1.600000E+01 3.200000E+01 26.5651 8.000000E+01 0.0 4.000000E+01 5.000000E-01 6.400000E+01 1.600000E+01 3.200000E+01 26.5651 8.000000E+01 0.0 4.000000E+01 0 42 -5.000000E-01 -6.400000E+01 -1.600108E+01 3.200000E+01 63.4346 -8.621216E-04 -8.000021E+01 3.999968E+01 5.000000E-01 -6.400000E+01 -1.600108E+01 3.200000E+01 63.4346 -8.621216E-04 -8.000021E+01 3.999968E+01 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 LOAD NORMAL TO SURFACE SUBCASE 3 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 11 -5.000000E-01 1.122579E+01 1.050000E+03 2.090967E+02 79.0355 1.090510E+03 -2.928381E+01 5.598969E+02 5.000000E-01 -1.122579E+01 -1.050000E+03 -2.090967E+02 -10.9645 2.928381E+01 -1.090510E+03 5.598969E+02 0 12 -5.000000E-01 1.122599E+01 1.050000E+03 -2.090971E+02 -79.0355 1.090510E+03 -2.928387E+01 5.598970E+02 5.000000E-01 -1.122599E+01 -1.050000E+03 2.090971E+02 10.9645 2.928387E+01 -1.090510E+03 5.598970E+02 0 21 -5.000000E-01 1.509965E+02 7.499062E+02 2.887031E+02 68.0236 8.664114E+02 3.449139E+01 4.159600E+02 5.000000E-01 -1.509965E+02 -7.499062E+02 -2.887031E+02 -21.9764 -3.449139E+01 -8.664114E+02 4.159600E+02 0 22 -5.000000E-01 1.509964E+02 7.499062E+02 -2.887031E+02 -68.0236 8.664114E+02 3.449130E+01 4.159600E+02 5.000000E-01 -1.509964E+02 -7.499062E+02 2.887031E+02 21.9764 -3.449130E+01 -8.664114E+02 4.159600E+02 0 31 -5.000000E-01 1.747801E+02 4.537500E+02 9.600000E+01 72.7312 4.835933E+02 1.449368E+02 1.693282E+02 5.000000E-01 -1.747801E+02 -4.537500E+02 -9.600000E+01 -17.2688 -1.449368E+02 -4.835933E+02 1.693282E+02 0 32 -5.000000E-01 1.747801E+02 4.560000E+02 -1.020000E+02 -72.0212 4.891000E+02 1.416801E+02 1.737100E+02 5.000000E-01 -1.747801E+02 -4.560000E+02 1.020000E+02 17.9788 -1.416801E+02 -4.891000E+02 1.737100E+02 0 41 -5.000000E-01 -1.563726E+03 -1.488000E+03 -1.536000E+03 -45.7060 1.060352E+01 -3.062330E+03 1.536467E+03 5.000000E-01 1.563726E+03 1.488000E+03 1.536000E+03 44.2940 3.062330E+03 -1.060352E+01 1.536467E+03 0 42 -5.000000E-01 -1.563726E+03 -1.488000E+03 -1.536000E+03 -45.7060 1.060352E+01 -3.062330E+03 1.536467E+03 5.000000E-01 1.563726E+03 1.488000E+03 1.536000E+03 44.2940 3.062330E+03 -1.060352E+01 1.536467E+03 1 RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A 0 THERMAL LOAD SUBCASE 4 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 11 -5.000000E-01 -4.897237E-02 -3.960000E-01 -2.772269E-02 -4.5388 -4.677166E-02 -3.982007E-01 1.757145E-01 5.000000E-01 -4.897237E-02 -3.960000E-01 -2.772269E-02 -4.5388 -4.677166E-02 -3.982007E-01 1.757145E-01 0 12 -5.000000E-01 -4.897237E-02 -3.960000E-01 2.772269E-02 4.5388 -4.677166E-02 -3.982007E-01 1.757145E-01 5.000000E-01 -4.897237E-02 -3.960000E-01 2.772269E-02 4.5388 -4.677166E-02 -3.982007E-01 1.757145E-01 0 21 -5.000000E-01 -1.296883E-01 -3.959990E-01 -4.284244E-01 -36.3673 1.857963E-01 -7.114835E-01 4.486399E-01 5.000000E-01 -1.296883E-01 -3.959990E-01 -4.284244E-01 -36.3673 1.857963E-01 -7.114835E-01 4.486399E-01 0 22 -5.000000E-01 -1.296883E-01 -3.959990E-01 4.284244E-01 36.3673 1.857963E-01 -7.114835E-01 4.486399E-01 5.000000E-01 -1.296883E-01 -3.959990E-01 4.284244E-01 36.3673 1.857963E-01 -7.114835E-01 4.486399E-01 0 31 -5.000000E-01 -1.742369E+02 -3.958740E-01 -1.717905E+01 -84.4100 1.285507E+00 -1.759183E+02 8.860188E+01 5.000000E-01 -1.742369E+02 -3.958740E-01 -1.717905E+01 -84.4100 1.285507E+00 -1.759183E+02 8.860188E+01 0 32 -5.000000E-01 -1.742369E+02 -3.959351E-01 1.717905E+01 84.4100 1.285446E+00 -1.759183E+02 8.860185E+01 5.000000E-01 -1.742369E+02 -3.959351E-01 1.717905E+01 84.4100 1.285446E+00 -1.759183E+02 8.860185E+01 0 41 -5.000000E-01 -6.509918E+04 -3.906250E-01 1.309662E+04 79.0410 2.535605E+03 -6.763517E+04 3.508539E+04 5.000000E-01 -6.509918E+04 -3.906250E-01 1.309662E+04 79.0410 2.535605E+03 -6.763517E+04 3.508539E+04 0 42 -5.000000E-01 -6.509918E+04 -3.906250E-01 -1.309662E+04 -79.0410 2.535605E+03 -6.763517E+04 3.508539E+04 5.000000E-01 -6.509918E+04 -3.906250E-01 -1.309662E+04 -79.0410 2.535605E+03 -6.763517E+04 3.508539E+04 * * * END OF JOB * * * 1 JOB TITLE = RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY DATE: 5/17/95 END TIME: 15:13:42 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d02011a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D02011A,NASTRAN TIME 5 APP DISPLACEMENT SOL 2,1 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 INERTIA RELIEF ANALYSIS OF A CIRCULAR RING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A 0 CONCENTRATED AND CENTRIFUGAL LOADS 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = INERTIA RELIEF ANALYSIS OF A CIRCULAR RING 2 LABEL = CONCENTRATED AND CENTRIFUGAL LOADS 3 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A 4 LOAD = 3 5 OUTPUT 6 DISP = ALL 7 OLOAD = ALL 8 SPCFORCE = ALL 9 STRESSES = ALL 10 SET 1 = 1,6,7,12,13,18,19,24 11 ELFORCE = 1 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 86, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 INERTIA RELIEF ANALYSIS OF A CIRCULAR RING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A 0 CONCENTRATED AND CENTRIFUGAL LOADS 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BAROR 5 1.0 .0 .0 1 2- CBAR 1 1 2 1 +B1 3- +B1 -1.0 .0 .0 -1.0 .0 .0 4- CBAR 2 2 3 1 +B2 5- +B2 -1.0 .0 .0 -1.0 .0 .0 6- CBAR 3 3 4 1 +B3 7- +B3 -1.0 .0 .0 -1.0 .0 .0 8- CBAR 4 4 5 1 +B4 9- +B4 -1.0 .0 .0 -1.0 .0 .0 10- CBAR 5 5 6 1 +B5 11- +B5 -1.0 .0 .0 -1.0 .0 .0 12- CBAR 6 6 7 1 +B6 13- +B6 -1.0 .0 .0 -1.0 .0 .0 14- CBAR 7 7 8 1 +B7 15- +B7 -1.0 .0 .0 -1.0 .0 .0 16- CBAR 8 8 9 1 +B8 17- +B8 -1.0 .0 .0 -1.0 .0 .0 18- CBAR 9 9 10 1 +B9 19- +B9 -1.0 .0 .0 -1.0 .0 .0 20- CBAR 10 10 11 1 +B10 21- +B10 -1.0 .0 .0 -1.0 .0 .0 22- CBAR 11 11 12 1 +B11 23- +B11 -1.0 .0 .0 -1.0 .0 .0 24- CBAR 12 12 13 1 +B12 25- +B12 -1.0 .0 .0 -1.0 .0 .0 26- CBAR 13 13 14 1 +B13 27- +B13 -1.0 .0 .0 -1.0 .0 .0 28- CBAR 14 14 15 1 +B14 29- +B14 -1.0 .0 .0 -1.0 .0 .0 30- CBAR 15 15 16 1 +B15 31- +B15 -1.0 .0 .0 -1.0 .0 .0 32- CBAR 16 16 17 1 +B16 33- +B16 -1.0 .0 .0 -1.0 .0 .0 34- CBAR 17 17 18 1 +B17 35- +B17 -1.0 .0 .0 -1.0 .0 .0 36- CBAR 18 18 19 1 +B18 37- +B18 -1.0 .0 .0 -1.0 .0 .0 38- CBAR 19 19 20 1 +B19 39- +B19 -1.0 .0 .0 -1.0 .0 .0 40- CBAR 20 20 21 1 +B20 41- +B20 -1.0 .0 .0 -1.0 .0 .0 42- CBAR 21 21 22 1 +B21 43- +B21 -1.0 .0 .0 -1.0 .0 .0 44- CBAR 22 22 23 1 +B22 45- +B22 -1.0 .0 .0 -1.0 .0 .0 46- CBAR 23 23 24 1 +B23 47- +B23 -1.0 .0 .0 -1.0 .0 .0 1 INERTIA RELIEF ANALYSIS OF A CIRCULAR RING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A CONCENTRATED AND CENTRIFUGAL LOADS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CBAR 24 24 1 1 +B24 49- +B24 -1.0 .0 .0 -1.0 .0 .0 50- CORD2C 2 0 .0 10.0 .0 .0 10.0 1.0 CCORD 51- +CORD .0 9.0 .0 52- FORCE 1 13 2 100.0 1.0 .0 .0 53- GRDSET 2 2 345 54- GRID 1 11.0 .0 .0 55- GRID 2 11.0 15.0 .0 56- GRID 3 11.0 30.0 .0 57- GRID 4 11.0 45.0 .0 58- GRID 5 11.0 60.0 .0 59- GRID 6 11.0 75.0 .0 60- GRID 7 11.0 90.0 .0 61- GRID 8 11.0 105.0 .0 62- GRID 9 11.0 120.0 .0 63- GRID 10 11.0 135.0 .0 64- GRID 11 11.0 150.0 .0 65- GRID 12 11.0 165.0 .0 66- GRID 13 11.0 180. .0 67- GRID 14 11.0 195. .0 68- GRID 15 11.0 210. .0 69- GRID 16 11.0 225. .0 70- GRID 17 11.0 240. .0 71- GRID 18 11.0 255. .0 72- GRID 19 11.0 270. .0 73- GRID 20 11.0 285. .0 74- GRID 21 11.0 300. .0 75- GRID 22 11.0 315. .0 76- GRID 23 11.0 330. .0 77- GRID 24 11.0 345. .0 78- GRID 25 2 .0 .0 .0 123456 79- LOAD 3 1.0 1.0 1 1.0 2 80- MAT1 1 1000.0 400.0 .5 +MAT1 81- +MAT1 100. 200. 300. 82- PARAM GRDPNT 19 83- PBAR 5 1 1000.0 10. 10. +P5 84- +P5 1.0 1.0 -1.0 -1.0 85- RFORCE 2 25 2 .159155 .0 .0 1.0 86- SUPORT 1 2 1 1 13 2 ENDDATA 1 INERTIA RELIEF ANALYSIS OF A CIRCULAR RING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A 0 CONCENTRATED AND CENTRIFUGAL LOADS 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 24 PROFILE 69 MAX WAVEFRONT 3 AVG WAVEFRONT 2.875 RMS WAVEFRONT 2.908 RMS BANDWIDTH 5.264 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 3 PROFILE 69 MAX WAVEFRONT 3 AVG WAVEFRONT 2.875 RMS WAVEFRONT 2.908 RMS BANDWIDTH 2.908 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 24 24 PROFILE (P) 69 69 MAXIMUM WAVEFRONT (C-MAX) 3 3 AVERAGE WAVEFRONT (C-AVG) 2.875 2.875 RMS WAVEFRONT (C-RMS) 2.908 2.908 RMS BANDWITCH (B-RMS) 5.264 5.264 NUMBER OF GRID POINTS (N) 25 NUMBER OF ELEMENTS (NON-RIGID) 24 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 2 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 24 MATRIX DENSITY, PERCENT 12.500 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 25 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 1 INERTIA RELIEF ANALYSIS OF A CIRCULAR RING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A 0 CONCENTRATED AND CENTRIFUGAL LOADS O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 19 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 3.13262851D+04 -5.68434189D-14 0.00000000D+00 0.00000000D+00 0.00000000D+00 1.47353916D-03 * * 5.68434189D-14 3.13262851D+04 0.00000000D+00 0.00000000D+00 0.00000000D+00 3.44589147D+05 * * 0.00000000D+00 0.00000000D+00 3.13262858D+04 -5.75844994D-04 -3.44589146D+05 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 -5.75845012D-04 1.56631423D+06 1.42182534D-03 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 -3.44589146D+05 1.42182531D-03 5.35679491D+06 0.00000000D+00 * * 1.47353917D-03 3.44589147D+05 0.00000000D+00 0.00000000D+00 0.00000000D+00 6.92310919D+06 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 3.132628513D+04 0.000000000D+00 -4.703842661D-08 0.000000000D+00 Y 3.132628513D+04 1.100000035D+01 0.000000000D+00 0.000000000D+00 Z 3.132628582D+04 1.100000007D+01 -1.838216625D-08 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 1.566314229D+06 4.912469627D-03 0.000000000D+00 * * 4.912469627D-03 1.566314277D+06 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 3.132628446D+06 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 1.566314229D+06 * * 1.566314277D+06 * * 3.132628446D+06 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 INERTIA RELIEF ANALYSIS OF A CIRCULAR RING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A CONCENTRATED AND CENTRIFUGAL LOADS 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 0, EPSILON SUB E = 6.9275717E-16 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.2960218E-15 1 INERTIA RELIEF ANALYSIS OF A CIRCULAR RING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A 0 CONCENTRATED AND CENTRIFUGAL LOADS D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 1.059570E-07 2 G -9.235611E-03 1.527942E-01 0.0 0.0 0.0 1.994616E-02 3 G -3.096246E-02 3.055936E-01 0.0 0.0 0.0 3.581405E-02 4 G -4.850188E-02 4.560749E-01 0.0 0.0 0.0 4.418124E-02 5 G -3.809213E-02 5.978281E-01 0.0 0.0 0.0 4.286394E-02 6 G 2.567450E-02 7.196550E-01 0.0 0.0 0.0 3.136594E-02 7 G 1.633540E-01 8.062631E-01 0.0 0.0 0.0 1.115041E-02 8 G 3.840694E-01 8.404521E-01 0.0 0.0 0.0 -1.431701E-02 9 G 6.799029E-01 8.066742E-01 0.0 0.0 0.0 -3.975694E-02 10 G 1.022223E+00 6.955946E-01 0.0 0.0 0.0 -5.848686E-02 11 G 1.360743E+00 5.090740E-01 0.0 0.0 0.0 -6.301698E-02 12 G 1.625783E+00 2.648372E-01 0.0 0.0 0.0 -4.578657E-02 13 G 1.733905E+00 0.0 0.0 0.0 0.0 -2.284842E-06 14 G 1.625796E+00 -2.648381E-01 0.0 0.0 0.0 4.578251E-02 15 G 1.360763E+00 -5.090763E-01 0.0 0.0 0.0 6.301593E-02 16 G 1.022240E+00 -6.955984E-01 0.0 0.0 0.0 5.848927E-02 17 G 6.799079E-01 -8.066780E-01 0.0 0.0 0.0 3.976232E-02 18 G 3.840587E-01 -8.404579E-01 0.0 0.0 0.0 1.431959E-02 19 G 1.633433E-01 -8.062711E-01 0.0 0.0 0.0 -1.115287E-02 20 G 2.566912E-02 -7.196607E-01 0.0 0.0 0.0 -3.136814E-02 21 G -3.809446E-02 -5.978311E-01 0.0 0.0 0.0 -4.286440E-02 22 G -4.850535E-02 -4.560763E-01 0.0 0.0 0.0 -4.418079E-02 23 G -3.096606E-02 -3.055954E-01 0.0 0.0 0.0 -3.581496E-02 24 G -9.236000E-03 -1.527956E-01 0.0 0.0 0.0 -1.994708E-02 25 G 0.0 0.0 0.0 0.0 0.0 0.0 1 INERTIA RELIEF ANALYSIS OF A CIRCULAR RING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A 0 CONCENTRATED AND CENTRIFUGAL LOADS L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.305263E+04 0.0 0.0 0.0 0.0 0.0 2 G 1.305263E+04 -3.111988E-04 0.0 0.0 0.0 0.0 3 G 1.305263E+04 -6.223976E-04 0.0 0.0 0.0 0.0 4 G 1.305263E+04 0.0 0.0 0.0 0.0 0.0 5 G 1.305263E+04 6.223976E-04 0.0 0.0 0.0 0.0 6 G 1.305263E+04 3.111988E-04 0.0 0.0 0.0 0.0 7 G 1.305263E+04 0.0 0.0 0.0 0.0 0.0 8 G 1.305263E+04 -3.111988E-04 0.0 0.0 0.0 0.0 9 G 1.305263E+04 -6.223977E-04 0.0 0.0 0.0 0.0 10 G 1.305263E+04 0.0 0.0 0.0 0.0 0.0 11 G 1.305262E+04 6.223974E-04 0.0 0.0 0.0 0.0 12 G 1.305263E+04 0.0 0.0 0.0 0.0 0.0 13 G 1.315263E+04 0.0 0.0 0.0 0.0 0.0 14 G 1.305262E+04 -3.111987E-04 0.0 0.0 0.0 0.0 15 G 1.305262E+04 -6.223974E-04 0.0 0.0 0.0 0.0 16 G 1.305263E+04 0.0 0.0 0.0 0.0 0.0 17 G 1.305263E+04 0.0 0.0 0.0 0.0 0.0 18 G 1.305263E+04 3.111988E-04 0.0 0.0 0.0 0.0 19 G 1.305262E+04 0.0 0.0 0.0 0.0 0.0 20 G 1.305263E+04 -3.111988E-04 0.0 0.0 0.0 0.0 21 G 1.305262E+04 0.0 0.0 0.0 0.0 0.0 22 G 1.305262E+04 0.0 0.0 0.0 0.0 0.0 23 G 1.305263E+04 6.223975E-04 0.0 0.0 0.0 0.0 24 G 1.305263E+04 3.111989E-04 0.0 0.0 0.0 0.0 1 INERTIA RELIEF ANALYSIS OF A CIRCULAR RING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A 0 CONCENTRATED AND CENTRIFUGAL LOADS F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 9.999944E+01 -3.029712E-03 0.0 0.0 0.0 0.0 13 G 0.0 3.331374E-03 0.0 0.0 0.0 0.0 1 INERTIA RELIEF ANALYSIS OF A CIRCULAR RING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A 0 CONCENTRATED AND CENTRIFUGAL LOADS F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 1 -8.047074E+01 0.0 -7.234190E+01 0.0 -3.113871E+00 0.0 4.999233E+04 0.0 6 6.312048E+01 0.0 9.175675E+01 0.0 -1.096954E+01 0.0 5.002170E+04 0.0 7 9.175635E+01 0.0 1.033568E+02 0.0 -4.443726E+00 0.0 5.002794E+04 0.0 12 -1.147656E+02 0.0 -2.360047E+02 0.0 4.644238E+01 0.0 5.001426E+04 0.0 13 -2.360010E+02 0.0 -1.147697E+02 0.0 -4.643945E+01 0.0 5.001426E+04 0.0 18 1.033936E+02 0.0 9.175837E+01 0.0 4.457031E+00 0.0 5.002794E+04 0.0 19 9.175867E+01 0.0 6.311644E+01 0.0 1.097183E+01 0.0 5.002173E+04 0.0 24 -7.235044E+01 0.0 -8.047080E+01 0.0 3.110624E+00 0.0 4.999234E+04 0.0 1 INERTIA RELIEF ANALYSIS OF A CIRCULAR RING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A 0 CONCENTRATED AND CENTRIFUGAL LOADS S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 1 8.047074E+00 -8.047074E+00 0.0 0.0 4.999233E+01 5.803940E+01 4.194526E+01 7.2E-01 7.234190E+00 -7.234190E+00 0.0 0.0 5.722652E+01 4.275814E+01 0 2 7.234229E+00 -7.234229E+00 0.0 0.0 4.999500E+01 5.722923E+01 4.276077E+01 7.5E-01 4.922631E+00 -4.922631E+00 0.0 0.0 5.491763E+01 4.507237E+01 0 3 4.922711E+00 -4.922711E+00 0.0 0.0 4.999998E+01 5.492269E+01 4.507727E+01 8.2E-01 1.487651E+00 -1.487651E+00 0.0 0.0 5.148763E+01 4.851233E+01 0 4 1.487640E+00 -1.487640E+00 0.0 0.0 5.000672E+01 5.149436E+01 4.851908E+01 9.0E-01 -2.496883E+00 2.496883E+00 0.0 0.0 5.250360E+01 4.750983E+01 0 5 -2.496933E+00 2.496933E+00 0.0 0.0 5.001425E+01 5.251118E+01 4.751732E+01 7.8E-01 -6.312027E+00 6.312027E+00 0.0 0.0 5.632628E+01 4.370222E+01 0 6 -6.312048E+00 6.312048E+00 0.0 0.0 5.002170E+01 5.633375E+01 4.370965E+01 6.9E-01 -9.175675E+00 9.175675E+00 0.0 0.0 5.919738E+01 4.084603E+01 0 7 -9.175634E+00 9.175634E+00 0.0 0.0 5.002794E+01 5.920358E+01 4.085230E+01 6.6E-01 -1.033568E+01 1.033568E+01 0.0 0.0 6.036362E+01 3.969226E+01 0 8 -1.033564E+01 1.033564E+01 0.0 0.0 5.003197E+01 6.036761E+01 3.969632E+01 6.6E-01 -9.154663E+00 9.154663E+00 0.0 0.0 5.918663E+01 4.087730E+01 0 9 -9.154492E+00 9.154492E+00 0.0 0.0 5.003300E+01 5.918749E+01 4.087851E+01 6.9E-01 -5.194984E+00 5.194984E+00 0.0 0.0 5.522799E+01 4.483802E+01 0 10 -5.195117E+00 5.195117E+00 0.0 0.0 5.003051E+01 5.522563E+01 4.483540E+01 8.1E-01 1.724298E+00 -1.724298E+00 0.0 0.0 5.175481E+01 4.830622E+01 0 11 1.724316E+00 -1.724316E+00 0.0 0.0 5.002422E+01 5.174854E+01 4.829990E+01 6.3E-01 1.147656E+01 -1.147656E+01 0.0 0.0 6.150078E+01 3.854766E+01 0 12 1.147656E+01 -1.147656E+01 0.0 0.0 5.001426E+01 6.149082E+01 3.853770E+01 3.6E-01 2.360047E+01 -2.360047E+01 0.0 0.0 7.361473E+01 2.641379E+01 0 13 2.360010E+01 -2.360010E+01 0.0 0.0 5.001426E+01 7.361436E+01 2.641417E+01 3.6E-01 1.147697E+01 -1.147697E+01 0.0 0.0 6.149123E+01 3.853729E+01 0 14 1.147715E+01 -1.147715E+01 0.0 0.0 5.002425E+01 6.150140E+01 3.854710E+01 6.3E-01 1.725673E+00 -1.725673E+00 0.0 0.0 5.174992E+01 4.829858E+01 0 15 1.726269E+00 -1.726269E+00 0.0 0.0 5.003051E+01 5.175678E+01 4.830424E+01 8.1E-01 -5.194039E+00 5.194039E+00 0.0 0.0 5.522455E+01 4.483648E+01 1 INERTIA RELIEF ANALYSIS OF A CIRCULAR RING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A 0 CONCENTRATED AND CENTRIFUGAL LOADS S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 16 -5.194140E+00 5.194140E+00 0.0 0.0 5.003306E+01 5.522720E+01 4.483892E+01 6.9E-01 -9.153140E+00 9.153140E+00 0.0 0.0 5.918620E+01 4.087992E+01 0 17 -9.153076E+00 9.153076E+00 0.0 0.0 5.003197E+01 5.918504E+01 4.087889E+01 6.6E-01 -1.033928E+01 1.033928E+01 0.0 0.0 6.037125E+01 3.969268E+01 0 18 -1.033936E+01 1.033936E+01 0.0 0.0 5.002794E+01 6.036729E+01 3.968858E+01 6.6E-01 -9.175837E+00 9.175837E+00 0.0 0.0 5.920377E+01 4.085210E+01 0 19 -9.175867E+00 9.175867E+00 0.0 0.0 5.002174E+01 5.919760E+01 4.084587E+01 6.9E-01 -6.311644E+00 6.311644E+00 0.0 0.0 5.633338E+01 4.371009E+01 0 20 -6.311645E+00 6.311645E+00 0.0 0.0 5.001428E+01 5.632593E+01 4.370264E+01 7.8E-01 -2.495986E+00 2.495986E+00 0.0 0.0 5.251027E+01 4.751830E+01 0 21 -2.495996E+00 2.495996E+00 0.0 0.0 5.000669E+01 5.250268E+01 4.751069E+01 9.0E-01 1.487465E+00 -1.487465E+00 0.0 0.0 5.149415E+01 4.851922E+01 0 22 1.487471E+00 -1.487471E+00 0.0 0.0 4.999998E+01 5.148746E+01 4.851251E+01 8.2E-01 4.921838E+00 -4.921838E+00 0.0 0.0 5.492182E+01 4.507815E+01 0 23 4.921772E+00 -4.921772E+00 0.0 0.0 4.999499E+01 5.491676E+01 4.507322E+01 7.5E-01 7.235080E+00 -7.235080E+00 0.0 0.0 5.723007E+01 4.275991E+01 0 24 7.235044E+00 -7.235044E+00 0.0 0.0 4.999234E+01 5.722738E+01 4.275730E+01 7.2E-01 8.047080E+00 -8.047080E+00 0.0 0.0 5.803942E+01 4.194526E+01 * * * END OF JOB * * * 1 JOB TITLE = INERTIA RELIEF ANALYSIS OF A CIRCULAR RING DATE: 5/17/95 END TIME: 15:14:34 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d02021a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D02021A,NASTRAN APP DISPLACEMENT,SUBS SOL 2,0 TIME 10 DIAG 23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE1 PASSWORD = DEMO SOF(1) = FT18,950,NEW $ DEC VAX RUN = STEP OPTION = K,M,P NAME = HUB SAVEPLOT = 1 SOFP TOC ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 4 2 PARAM //*NOP*/ALLWAYS=-1 $ 3 SGEN CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/ 4 S,N,NOGPDT $ 5 EQUIV CASEI,CASECC/ALLWAYS $ 6 ALTER 50, 50 7 PARAM //*ADD*/DRY/1 /0 $ 8 LABEL LBSBEG $ 9 COND LBLIS,DRY $ 10 ALTER 65, 68 11 LABEL LBLIS $ 12 ALTER 70, 97 13 SUBPH1 CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/ 14 *HUB */1 /*PVEC* $ 15 COND LBSEND,DRY $ 16 EQUIV PG,PL/NOSET $ 17 COND LBL10,NOSET $ 18 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 19 CHKPNT PO,PS,PL $ 20 LABEL LBL10 $ 21 SOFO ,KAA,MAA,PL, , //S,N,DRY/*HUB */*KMTX*/*MMTX*/*PVEC*/ 22 *BMTX*/*K4MX* $ 23 EQUIV CASESS,CASECC/ALWAYS $ 24 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 25 * */* */* * $ 26 LABEL LBSEND $ 27 JUMP FINIS $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A 3 LABEL = SUBSTRUCTURE 1, RUN 1, PHASE 1 4 SPC = 30 5 SUBCASE 1 6 LABEL = ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE 7 LOAD = 1 8 SUBCASE 2 9 LABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5 10 LOAD = 3 11 OUTPUT(PLOT) 12 SET 1 = ALL 13 CSCA = 2.0 14 PLOT 15 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 57, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2C 1 0 .0 .0 .0 .0 .0 1.0 +COR 2- +COR 1.0 .0 .0 3- CQDMEM 1 10 1 4 5 2 4- CQDMEM 3 10 4 7 108 5 5- CQDMEM 5 10 108 7 10 11 6- CQDMEM 7 10 13 14 11 10 7- CQDMEM 9 10 16 17 14 13 8- CQDMEM 11 10 19 20 17 16 9- CQDMEM 13 10 20 19 22 23 10- CQDMEM 15 10 25 26 23 22 11- CQDMEM 17 10 29 26 25 28 12- CQDMEM 19 10 32 29 28 31 13- CQDMEM 21 10 32 31 34 35 14- CQDMEM 23 10 37 38 35 34 15- CQDMEM 25 10 38 37 40 41 16- CQDMEM 27 10 41 40 43 44 17- CQDMEM 29 10 44 43 46 47 18- CQDMEM 31 10 1 2 47 46 19- FORCE1 3 4 1.0 5 4 20- GRDSET 3456 21- GRID 1 -5.0 10.0 22- GRID 2 -5.0 15.0 23- GRID 4 .0 10.0 24- GRID 5 .0 15.0 25- GRID 7 5.0 10.0 26- GRID 10 7.5 7.5 27- GRID 11 10.0 10.0 28- GRID 13 10.0 5.0 29- GRID 14 15.0 5.0 30- GRID 16 10.0 .0 31- GRID 17 15.0 .0 32- GRID 19 10.0 -5.0 33- GRID 20 15.0 -5.0 34- GRID 22 7.5 -7.5 35- GRID 23 10.0 -10.0 36- GRID 25 5.0 -10.0 37- GRID 26 5.0 -15.0 38- GRID 28 .0 -10.0 39- GRID 29 .0 -15.0 40- GRID 31 -5.0 -10.0 41- GRID 32 -5.0 -15.0 42- GRID 34 -7.5 -7.5 43- GRID 35 -10.0 -10.0 44- GRID 37 -10.0 -5.0 45- GRID 38 -15.0 -5.0 46- GRID 40 -10.0 .0 47- GRID 41 -15.0 .0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A SUBSTRUCTURE 1, RUN 1, PHASE 1 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 43 -10.0 5.0 49- GRID 44 -15.0 5.0 50- GRID 46 -7.5 7.5 51- GRID 47 -10.0 10.0 52- GRID 108 5.0 15.0 1 53- MAT1 50 1.0+7 .25 2.5E-4 1.0E-6 70.0 54- PQDMEM 10 50 .1 55- RFORCE 1 0 0 .1591579.0 .0 1.0 56- SPC1 30 1 13 19 37 43 57- SPC1 30 2 1 7 31 25 ENDDATA 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1995 $ 2 PRECHK ALL $ 3 FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 4 PARAM //*NOP*/ALLWAYS=-1 $ 4 SGEN CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/ S,N,NOGPDT $ 4 EQUIV CASEI,CASECC/ALLWAYS $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A SUBSTRUCTURE 1, RUN 1, PHASE 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL P1 $ 21 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR6,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 PURGE KDICT,KELM/ALWAYS $ 32 LABEL JMPKGG $ 33 COND ERROR1,NOMGG $ 34 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 35 PURGE MDICT,MELM/ALWAYS $ 36 COND LGPWG,GRDPNT $ 37 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A SUBSTRUCTURE 1, RUN 1, PHASE 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 38 OFP OGPWG,,,,,//S,N,CARDNO $ 39 LABEL LGPWG $ 40 EQUIV KGGX,KGG/NOGENL $ 41 COND LBL11A,NOGENL $ 42 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 43 LABEL LBL11A $ 44 GPSTGEN KGG,SIL/GPST $ 45 PARAM //*MPY*/NSKIP/0/0 $ 46 LABEL LBL11 $ 47 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 48 OFP OGPST,,,,,//S,N,CARDNO $ 49 COND ERROR3,NOL $ 50 PARAM //*ADD*/DRY/1 /0 $ 50 LABEL LBSBEG $ 50 COND LBLIS,DRY $ 51 PURGE GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/ SINGLE $ 52 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 53 COND LBL2,MPCF2 $ 54 MCE1 USET,RG/GM $ 55 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 56 LABEL LBL2 $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A SUBSTRUCTURE 1, RUN 1, PHASE 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 57 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 58 COND LBL3,SINGLE $ 59 SCE1 USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $ 60 LABEL LBL3 $ 61 EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ 62 COND LBL5,OMIT $ 63 SMP1 USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $ 64 LABEL LBL5 $ 68 LABEL LBLIS $ 69 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ 97 SUBPH1 CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/ *HUB */1 /*PVEC* $ 97 COND LBSEND,DRY $ 97 EQUIV PG,PL/NOSET $ 97 COND LBL10,NOSET $ 97 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 97 CHKPNT PO,PS,PL $ 97 LABEL LBL10 $ 97 SOFO ,KAA,MAA,PL, , //S,N,DRY/*HUB */*KMTX*/*MMTX*/*PVEC*/ *BMTX*/*K4MX* $ 97 EQUIV CASESS,CASECC/ALWAYS $ 97 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 97 LABEL LBSEND $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A SUBSTRUCTURE 1, RUN 1, PHASE 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 97 JUMP FINIS $ 98 LABEL ERROR1 $ 99 PRTPARM //-1/*INERTIA* $ 100 LABEL ERROR2 $ 101 PRTPARM //-2/*INERTIA* $ 102 LABEL ERROR3 $ 103 PRTPARM //-3/*INERTIA* $ 104 LABEL ERROR4 $ 105 PRTPARM //-4/*INERTIA* $ 106 LABEL ERROR5 $ 107 PRTPARM //-5/*INERTIA* $ 108 LABEL ERROR6 $ 109 PRTPARM //-6/*INERTIA* $ 110 LABEL FINIS $ 111 PURGE DUMMY/ALWAYS $ 112 END $ 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR5 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR4 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR2 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0*** USER WARNING MESSAGE 27, LABEL NAMED LBL11 NOT REFERENCED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 31 PROFILE 186 MAX WAVEFRONT 7 AVG WAVEFRONT 5.812 RMS WAVEFRONT 5.990 RMS BANDWIDTH 9.823 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 6 PROFILE 164 MAX WAVEFRONT 6 AVG WAVEFRONT 5.125 RMS WAVEFRONT 5.256 RMS BANDWIDTH 5.256 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 31 6 PROFILE (P) 186 164 MAXIMUM WAVEFRONT (C-MAX) 7 6 AVERAGE WAVEFRONT (C-AVG) 5.812 5.125 RMS WAVEFRONT (C-RMS) 5.990 5.256 RMS BANDWITCH (B-RMS) 9.823 5.256 NUMBER OF GRID POINTS (N) 32 NUMBER OF ELEMENTS (NON-RIGID) 16 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 5 MINIMUM NODAL DEGREE 5 NUMBER OF UNIQUE EDGES 80 MATRIX DENSITY, PERCENT 18.750 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 8 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 2 4 3 5 4 SEQGP 7 7 10 11 11 12 13 15 SEQGP 14 16 16 19 17 20 19 23 SEQGP 20 24 22 27 23 28 25 31 SEQGP 26 32 28 30 29 29 31 26 SEQGP 32 25 34 22 35 21 37 18 SEQGP 38 17 40 14 41 13 43 10 SEQGP 44 9 46 6 47 5 108 8 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 2.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 1.977029E-01 ORIGIN 0 - X0 = -3.007330E+00, Y0 = -0.371896E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 0 USED IN THIS PLOT 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A SUBSTRUCTURE 1, RUN 1, PHASE 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 926 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE HUB SUBCASE 1 IS IDENTIFIED BY EXTERNAL STATIC LOAD SET 1 IN LODS ITEM. REFER TO THIS NUMBER ON LOADC CARDS. 0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE HUB SUBCASE 2 IS IDENTIFIED BY EXTERNAL STATIC LOAD SET 3 IN LODS ITEM. REFER TO THIS NUMBER ON LOADC CARDS. 0*** USER INFORMATION MESSAGE 6361, PHASE 1 SUCCESSFULLY EXECUTED FOR SUBSTRUCTURE HUB 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 0 0 3 3 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 934912 WORDS. OR = 913 BLOCKS. OR = 98 PERCENT. 0*** HIGHEST BLOCK USED = 13 * * * END OF JOB * * * 1 JOB TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR DATE: 5/17/95 END TIME: 15:16: 4 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d02022a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D02022A,NASTRAN APP DISPLACEMENT,SUBS SOL 2,0 TIME 10 DIAG 23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE1 PASSWORD = DEMO SOF(1) = FT18,950 $ DEC VAX RUN = STEP OPTION = K,M,P NAME = ROOT1 SAVEPLOT = 1 SOFP TOC ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 4 2 PARAM //*NOP*/ALLWAYS=-1 $ 3 SGEN CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/ 4 S,N,NOGPDT $ 5 EQUIV CASEI,CASECC/ALLWAYS $ 6 ALTER 50, 50 7 PARAM //*ADD*/DRY/1 /0 $ 8 LABEL LBSBEG $ 9 COND LBLIS,DRY $ 10 ALTER 65, 68 11 LABEL LBLIS $ 12 ALTER 70, 97 13 SUBPH1 CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/ 14 *ROOT1 */1 /*PVEC* $ 15 COND LBSEND,DRY $ 16 EQUIV PG,PL/NOSET $ 17 COND LBL10,NOSET $ 18 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 19 CHKPNT PO,PS,PL $ 20 LABEL LBL10 $ 21 SOFO ,KAA,MAA,PL, , //S,N,DRY/*ROOT1 */*KMTX*/*MMTX*/*PVEC*/ 22 *BMTX*/*K4MX* $ 23 EQUIV CASESS,CASECC/ALWAYS $ 24 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 25 * */* */* * $ 26 LABEL LBSEND $ 27 JUMP FINIS $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A 3 LABEL = SUBSTRUCTURE 2, RUN 2, PHASE 1 4 LOAD = 1 5 OUTPUT(PLOT) 6 SET 1 = ALL 7 CSCA = 2.0 8 PLOT 9 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 15, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CQDMEM 1 10 3 4 2 1 2- CQDMEM 2 10 5 6 4 3 3- CQDMEM 3 10 6 8 7 4 4- GRDSET 3456 5- GRID 1 .0 27.5 6- GRID 2 5.0 27.5 7- GRID 3 .0 20.0 8- GRID 4 5.0 20.0 9- GRID 5 .0 15.0 10- GRID 6 5.0 15.0 11- GRID 7 12.5 12.5 12- GRID 8 10.0 10.0 13- MAT1 50 1.0+7 .25 2.5E-4 1.0E-6 70.0 14- PQDMEM 10 50 .1 15- RFORCE 1 .1591579.0 .0 1.0 ENDDATA 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1995 $ 2 PRECHK ALL $ 3 FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 4 PARAM //*NOP*/ALLWAYS=-1 $ 4 SGEN CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/ S,N,NOGPDT $ 4 EQUIV CASEI,CASECC/ALLWAYS $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A SUBSTRUCTURE 2, RUN 2, PHASE 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL P1 $ 21 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR6,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 PURGE KDICT,KELM/ALWAYS $ 32 LABEL JMPKGG $ 33 COND ERROR1,NOMGG $ 34 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 35 PURGE MDICT,MELM/ALWAYS $ 36 COND LGPWG,GRDPNT $ 37 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A SUBSTRUCTURE 2, RUN 2, PHASE 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 38 OFP OGPWG,,,,,//S,N,CARDNO $ 39 LABEL LGPWG $ 40 EQUIV KGGX,KGG/NOGENL $ 41 COND LBL11A,NOGENL $ 42 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 43 LABEL LBL11A $ 44 GPSTGEN KGG,SIL/GPST $ 45 PARAM //*MPY*/NSKIP/0/0 $ 46 LABEL LBL11 $ 47 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 48 OFP OGPST,,,,,//S,N,CARDNO $ 49 COND ERROR3,NOL $ 50 PARAM //*ADD*/DRY/1 /0 $ 50 LABEL LBSBEG $ 50 COND LBLIS,DRY $ 51 PURGE GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/ SINGLE $ 52 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 53 COND LBL2,MPCF2 $ 54 MCE1 USET,RG/GM $ 55 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 56 LABEL LBL2 $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A SUBSTRUCTURE 2, RUN 2, PHASE 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 57 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 58 COND LBL3,SINGLE $ 59 SCE1 USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $ 60 LABEL LBL3 $ 61 EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ 62 COND LBL5,OMIT $ 63 SMP1 USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $ 64 LABEL LBL5 $ 68 LABEL LBLIS $ 69 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ 97 SUBPH1 CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/ *ROOT1 */1 /*PVEC* $ 97 COND LBSEND,DRY $ 97 EQUIV PG,PL/NOSET $ 97 COND LBL10,NOSET $ 97 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 97 CHKPNT PO,PS,PL $ 97 LABEL LBL10 $ 97 SOFO ,KAA,MAA,PL, , //S,N,DRY/*ROOT1 */*KMTX*/*MMTX*/*PVEC*/ *BMTX*/*K4MX* $ 97 EQUIV CASESS,CASECC/ALWAYS $ 97 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 97 LABEL LBSEND $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A SUBSTRUCTURE 2, RUN 2, PHASE 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 97 JUMP FINIS $ 98 LABEL ERROR1 $ 99 PRTPARM //-1/*INERTIA* $ 100 LABEL ERROR2 $ 101 PRTPARM //-2/*INERTIA* $ 102 LABEL ERROR3 $ 103 PRTPARM //-3/*INERTIA* $ 104 LABEL ERROR4 $ 105 PRTPARM //-4/*INERTIA* $ 106 LABEL ERROR5 $ 107 PRTPARM //-5/*INERTIA* $ 108 LABEL ERROR6 $ 109 PRTPARM //-6/*INERTIA* $ 110 LABEL FINIS $ 111 PURGE DUMMY/ALWAYS $ 112 END $ 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR5 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR4 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR2 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0*** USER WARNING MESSAGE 27, LABEL NAMED LBL11 NOT REFERENCED 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 2.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 4.575494E-01 ORIGIN 0 - X0 = 5.671736E+00, Y0 = -0.262135E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 0 USED IN THIS PLOT 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A SUBSTRUCTURE 2, RUN 2, PHASE 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 926 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE ROOT1 SUBCASE 1 IS IDENTIFIED BY EXTERNAL STATIC LOAD SET 1 IN LODS ITEM. REFER TO THIS NUMBER ON LOADC CARDS. 0*** USER INFORMATION MESSAGE 6361, PHASE 1 SUCCESSFULLY EXECUTED FOR SUBSTRUCTURE ROOT1 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 0 0 3 3 3 3 3 3 3 3 2 ROOT1 B 0 0 0 0 0 3 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 927744 WORDS. OR = 906 BLOCKS. OR = 97 PERCENT. 0*** HIGHEST BLOCK USED = 20 * * * END OF JOB * * * 1 JOB TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR DATE: 5/17/95 END TIME: 15:16:43 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d02023a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D02023A,NASTRAN APP DISPLACEMENT,SUBS SOL 2,0 TIME 10 DIAG 23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE1 PASSWORD = DEMO SOF(1) = FT18,950 $ DEC VAX RUN = STEP OPTION = K,M,P NAME = VANE1 SAVEPLOT = 1 SOFP TOC ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 4 2 PARAM //*NOP*/ALLWAYS=-1 $ 3 SGEN CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/ 4 S,N,NOGPDT $ 5 EQUIV CASEI,CASECC/ALLWAYS $ 6 ALTER 50, 50 7 PARAM //*ADD*/DRY/1 /0 $ 8 LABEL LBSBEG $ 9 COND LBLIS,DRY $ 10 ALTER 65, 68 11 LABEL LBLIS $ 12 ALTER 70, 97 13 SUBPH1 CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/ 14 *VANE1 */1 /*PVEC* $ 15 COND LBSEND,DRY $ 16 EQUIV PG,PL/NOSET $ 17 COND LBL10,NOSET $ 18 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 19 CHKPNT PO,PS,PL $ 20 LABEL LBL10 $ 21 SOFO ,KAA,MAA,PL, , //S,N,DRY/*VANE1 */*KMTX*/*MMTX*/*PVEC*/ 22 *BMTX*/*K4MX* $ 23 EQUIV CASESS,CASECC/ALWAYS $ 24 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 25 * */* */* * $ 26 LABEL LBSEND $ 27 JUMP FINIS $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A 0 SUBSTRUCTURE 3, RUN 3, PHASE 1 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A 3 LABEL = SUBSTRUCTURE 3, RUN 3, PHASE 1 4 SUBCASE 1 5 LABEL = ROTATIOAL FORCES ABOUT CENTER OF OVERALL STRUCTURE 6 LOAD = 1 7 SUBCASE 2 8 LABEL = EXTENSION OF PANEL 9 LOAD = 2 10 OUTPUT(PLOT) 11 SET 1 = ALL 12 PLOT 13 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 20, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A 0 SUBSTRUCTURE 3, RUN 3, PHASE 1 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2R 1 5.0 22.5 .0 5.0 22.5 1.0 +A 2- +A .0 22.5 .0 3- CQDMEM 1 10 3 4 2 1 4- CQDMEM 2 10 5 6 4 3 5- CQDMEM 3 10 7 8 6 5 6- FORCE1 2 1 25.0 4 2 7- FORCE1 2 2 25.0 4 2 8- GRDSET 1 3456 9- GRID 1 .0 22.5 10- GRID 2 5.0 22.5 11- GRID 3 .0 15.0 12- GRID 4 5.0 15.0 13- GRID 5 .0 7.5 14- GRID 6 5.0 7.5 15- GRID 7 .0 .0 16- GRID 8 5.0 .0 17- GRID 9 .0 -27.5 123456 18- MAT1 50 1.0+7 .25 2.5E-4 1.0E-6 70.0 19- PQDMEM 10 50 .1 20- RFORCE 1 9 .1591579.0 .0 1.0 ENDDATA 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A 0 SUBSTRUCTURE 3, RUN 3, PHASE 1 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1995 $ 2 PRECHK ALL $ 3 FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 4 PARAM //*NOP*/ALLWAYS=-1 $ 4 SGEN CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/ S,N,NOGPDT $ 4 EQUIV CASEI,CASECC/ALLWAYS $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A SUBSTRUCTURE 3, RUN 3, PHASE 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL P1 $ 21 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR6,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 PURGE KDICT,KELM/ALWAYS $ 32 LABEL JMPKGG $ 33 COND ERROR1,NOMGG $ 34 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 35 PURGE MDICT,MELM/ALWAYS $ 36 COND LGPWG,GRDPNT $ 37 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A SUBSTRUCTURE 3, RUN 3, PHASE 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 38 OFP OGPWG,,,,,//S,N,CARDNO $ 39 LABEL LGPWG $ 40 EQUIV KGGX,KGG/NOGENL $ 41 COND LBL11A,NOGENL $ 42 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 43 LABEL LBL11A $ 44 GPSTGEN KGG,SIL/GPST $ 45 PARAM //*MPY*/NSKIP/0/0 $ 46 LABEL LBL11 $ 47 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 48 OFP OGPST,,,,,//S,N,CARDNO $ 49 COND ERROR3,NOL $ 50 PARAM //*ADD*/DRY/1 /0 $ 50 LABEL LBSBEG $ 50 COND LBLIS,DRY $ 51 PURGE GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/ SINGLE $ 52 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 53 COND LBL2,MPCF2 $ 54 MCE1 USET,RG/GM $ 55 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 56 LABEL LBL2 $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A SUBSTRUCTURE 3, RUN 3, PHASE 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 57 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 58 COND LBL3,SINGLE $ 59 SCE1 USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $ 60 LABEL LBL3 $ 61 EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ 62 COND LBL5,OMIT $ 63 SMP1 USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $ 64 LABEL LBL5 $ 68 LABEL LBLIS $ 69 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ 97 SUBPH1 CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/ *VANE1 */1 /*PVEC* $ 97 COND LBSEND,DRY $ 97 EQUIV PG,PL/NOSET $ 97 COND LBL10,NOSET $ 97 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 97 CHKPNT PO,PS,PL $ 97 LABEL LBL10 $ 97 SOFO ,KAA,MAA,PL, , //S,N,DRY/*VANE1 */*KMTX*/*MMTX*/*PVEC*/ *BMTX*/*K4MX* $ 97 EQUIV CASESS,CASECC/ALWAYS $ 97 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 97 LABEL LBSEND $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A SUBSTRUCTURE 3, RUN 3, PHASE 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 97 JUMP FINIS $ 98 LABEL ERROR1 $ 99 PRTPARM //-1/*INERTIA* $ 100 LABEL ERROR2 $ 101 PRTPARM //-2/*INERTIA* $ 102 LABEL ERROR3 $ 103 PRTPARM //-3/*INERTIA* $ 104 LABEL ERROR4 $ 105 PRTPARM //-4/*INERTIA* $ 106 LABEL ERROR5 $ 107 PRTPARM //-5/*INERTIA* $ 108 LABEL ERROR6 $ 109 PRTPARM //-6/*INERTIA* $ 110 LABEL FINIS $ 111 PURGE DUMMY/ALWAYS $ 112 END $ 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR5 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR4 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR2 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A 0 SUBSTRUCTURE 3, RUN 3, PHASE 1 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0*** USER WARNING MESSAGE 27, LABEL NAMED LBL11 NOT REFERENCED 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A 0 SUBSTRUCTURE 3, RUN 3, PHASE 1 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 3.039485E-01 ORIGIN 0 - X0 = 0.000000E+00, Y0 = -0.309897E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 0 USED IN THIS PLOT 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A SUBSTRUCTURE 3, RUN 3, PHASE 1 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 9 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 926 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE VANE1 SUBCASE 1 IS IDENTIFIED BY EXTERNAL STATIC LOAD SET 1 IN LODS ITEM. REFER TO THIS NUMBER ON LOADC CARDS. 0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE VANE1 SUBCASE 2 IS IDENTIFIED BY EXTERNAL STATIC LOAD SET 2 IN LODS ITEM. REFER TO THIS NUMBER ON LOADC CARDS. 0*** USER INFORMATION MESSAGE 6361, PHASE 1 SUCCESSFULLY EXECUTED FOR SUBSTRUCTURE VANE1 0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON 103, FROM ( 38, 1), TO ( 38, 2) 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A 0 SUBSTRUCTURE 3, RUN 3, PHASE 1 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 0 0 3 3 3 3 3 3 3 3 2 ROOT1 B 0 0 0 0 0 3 3 3 3 3 3 3 3 VANE1 B 0 0 0 0 0 3 3 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 919552 WORDS. OR = 898 BLOCKS. OR = 96 PERCENT. 0*** HIGHEST BLOCK USED = 28 * * * END OF JOB * * * 1 JOB TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR DATE: 5/17/95 END TIME: 15:17:23 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d02024a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D02024A,NASTRAN APP DISPLACEMENT,SUBS SOL 1,0 TIME 30 DIAG 23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE2 PASSWORD = DEMO SOF(1) = FT18,950 $ DEC VAX OPTIONS = K,M,P PLOT VANE1 PLOT ROOT1 PLOT HUB $ $ STEP I. COMBINE VANETOP $ SOFPRINT TOC EQUIV VANE1,VANE2 PREFIX=X COMBINE VANE1,VANE2 NAME=VANETOP TOLERANCE=0.02 OUTPUT=1,2,7,11,12,13,14,15,16,17 COMPONENT=VANE1 TRANS=100 COMPONENT=VANE2 TRANS=100 SYMT=X PLOT VANETOP SOFPRINT TOC $ $ STEP II. COMBINE ROOTTOP $ EQUIV ROOT1,ROOT2 PREFIX=X COMBINE ROOT1,ROOT2 NAME=ROOTTOP TOLERANCE=0.02 OUTPUT=1,2,7,11,12,13,14,15,16,17 COMPONENT=ROOT2 SYMT=X PLOT ROOTTOP SOFPRINT TOC $ $ STEP III. SEVEN STRUCTURE COMBINE $ EQUIV VANETOP,VANELFT PREFIX=L EQUIV VANETOP,VANERGT PREFIX=R EQUIV VANETOP,VANEBOT PREFIX=B EQUIV ROOTTOP,ROOTLFT 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 PREFIX=L EQUIV ROOTTOP,ROOTRGT PREFIX=R EQUIV ROOTTOP,ROOTBOT PREFIX=B SOFPRINT TOC $ COMBINE VANETOP,ROOTTOP,VANELFT,ROOTLFT,VANEBOT,ROOTBOT,ROOTRGT NAME=RING TOLERANCE=0.02 OUTPUT=1,2,7,11,12,13,14,15,16,17 COMPONENT=VANELFT TRANS=400 COMPONENT=ROOTLFT TRANS=400 COMPONENT=VANEBOT SYMT=Y COMPONENT=ROOTBOT SYMT=Y COMPONENT=ROOTRGT TRANS=300 SOFPRINT TOC $ $ STEP IV. COMBINATION OF BLADES $ COMBINE RING,VANERGT NAME=BLADES TOLERANCE=0.02 OUTPUT=1,2,7,11,12,13,14,15,16,17 COMPONENT=VANERGT TRANS=500 SOFPRINT TOC $ $ STEP V. FINAL COMBINE OF WINDMILL WITH RELES OPTION $ COMBINE HUB,BLADES NAME=WINDMIL TOLERANCE=0.02 OUTPUT=1,2,9,11,12,13,14,15,16,17 CONNECT=1000 SOFPRINT TOC PLOT WINDMIL $ $ STEP VI. REDUCTION TO BOUNDARY POINTS $ REDUCE WINDMIL NAME=SMALLMIL 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 BOUNDARY=2000 RSAVE OUTPUT=1,2,3,4,5,6,7,8,9 SOFPRINT TOC SOLVE SMALLMIL RECOVER SMALLMIL PRINT WINDMIL SAVE HUB SAVE RVANE1 SOFPRINT TOC ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 5 2 PARAM //*ADD*/DRY/1 /0 $ 3 LABEL LBSBEG $ 4 PLTMRG CASECC,PCDB/PLT2 ,GP2 ,EL2 ,BG2 ,CAS2 ,EQ2 /*VANE1 */ 5 S,N,NGP/S,N,LSIL/S,N,NPSET $ 6 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 7 PLOT PLT2 ,GP2 ,EL2 ,CAS2 ,BG2 ,EQ2 ,,,,,,,/PM2 /NGP/LSIL/ 8 S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 9 PRTMSG PM2 // $ 10 PLTMRG CASECC,PCDB/PLT3 ,GP3 ,EL3 ,BG3 ,CAS3 ,EQ3 /*ROOT1 */ 11 S,N,NGP/S,N,LSIL/S,N,NPSET $ 12 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 13 PLOT PLT3 ,GP3 ,EL3 ,CAS3 ,BG3 ,EQ3 ,,,,,,,/PM3 /NGP/LSIL/ 14 S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 15 PRTMSG PM3 // $ 16 PLTMRG CASECC,PCDB/PLT4 ,GP4 ,EL4 ,BG4 ,CAS4 ,EQ4 /*HUB */ 17 S,N,NGP/S,N,LSIL/S,N,NPSET $ 18 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 19 PLOT PLT4 ,GP4 ,EL4 ,CAS4 ,BG4 ,EQ4 ,,,,,,,/PM4 /NGP/LSIL/ 20 S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 21 PRTMSG PM4 // $ 22 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 23 * */* */* * $ 24 SOFUT //DRY/*VANE1 */*EQUI*/32 /*VANE2 */*X */*ITM1*/*ITM2*/ 25 *ITM3*/*ITM4*/*ITM5* $ 26 COMB1 CASECC,GEOM4//7 /S,N,DRY/*PVEC* $ 27 COND LB7 ,DRY $ 28 COMB2 , , , , , , , /K3 /S,N,DRY/*K*/* */ 29 *VANE1 */*VANE2 */* */* */* */ 30 * */* * $ 31 SOFO ,K3 ,,,,//S,N,DRY/*VANETOP */*KMTX* $ 32 COMB2 , , , , , , , /M3 /S,N,DRY/*M*/* */ 33 *VANE1 */*VANE2 */* */* */* */ 34 * */* * $ 35 SOFO ,M3 ,,,,//S,N,DRY/*VANETOP */*MMTX* $ 36 COMB2 , , , , , , , /P3 /S,N,DRY/*P*/*PVEC*/ 37 *VANE1 */*VANE2 */* */* */* */ 38 * */* * $ 39 SOFO ,P3 ,,,,//S,N,DRY/*VANETOP */*PVEC* $ 40 LABEL LB7 $ 41 PLTMRG CASECC,PCDB/PLT8 ,GP8 ,EL8 ,BG8 ,CAS8 ,EQ8 /*VANETOP */ 42 S,N,NGP/S,N,LSIL/S,N,NPSET $ 43 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 44 PLOT PLT8 ,GP8 ,EL8 ,CAS8 ,BG8 ,EQ8 ,,,,,,,/PM8 /NGP/LSIL/ 45 S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 46 PRTMSG PM8 // $ 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 47 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 48 * */* */* * $ 49 SOFUT //DRY/*ROOT1 */*EQUI*/32 /*ROOT2 */*X */*ITM1*/*ITM2*/ 50 *ITM3*/*ITM4*/*ITM5* $ 51 COMB1 CASECC,GEOM4//11 /S,N,DRY/*PVEC* $ 52 COND LB11 ,DRY $ 53 COMB2 , , , , , , , /K6 /S,N,DRY/*K*/* */ 54 *ROOT1 */*ROOT2 */* */* */* */ 55 * */* * $ 56 SOFO ,K6 ,,,,//S,N,DRY/*ROOTTOP */*KMTX* $ 57 COMB2 , , , , , , , /M6 /S,N,DRY/*M*/* */ 58 *ROOT1 */*ROOT2 */* */* */* */ 59 * */* * $ 60 SOFO ,M6 ,,,,//S,N,DRY/*ROOTTOP */*MMTX* $ 61 COMB2 , , , , , , , /P6 /S,N,DRY/*P*/*PVEC*/ 62 *ROOT1 */*ROOT2 */* */* */* */ 63 * */* * $ 64 SOFO ,P6 ,,,,//S,N,DRY/*ROOTTOP */*PVEC* $ 65 LABEL LB11 $ 66 PLTMRG CASECC,PCDB/PLT12 ,GP12 ,EL12 ,BG12 ,CAS12 ,EQ12 /*ROOTTOP */ 67 S,N,NGP/S,N,LSIL/S,N,NPSET $ 68 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 69 PLOT PLT12 ,GP12 ,EL12 ,CAS12 ,BG12 ,EQ12 ,,,,,,,/PM12 /NGP/LSIL/ 70 S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 71 PRTMSG PM12 // $ 72 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 73 * */* */* * $ 74 SOFUT //DRY/*VANETOP */*EQUI*/32 /*VANELFT */*L */*ITM1*/*ITM2*/ 75 *ITM3*/*ITM4*/*ITM5* $ 76 SOFUT //DRY/*VANETOP */*EQUI*/32 /*VANERGT */*R */*ITM1*/*ITM2*/ 77 *ITM3*/*ITM4*/*ITM5* $ 78 SOFUT //DRY/*VANETOP */*EQUI*/32 /*VANEBOT */*B */*ITM1*/*ITM2*/ 79 *ITM3*/*ITM4*/*ITM5* $ 80 SOFUT //DRY/*ROOTTOP */*EQUI*/32 /*ROOTLFT */*L */*ITM1*/*ITM2*/ 81 *ITM3*/*ITM4*/*ITM5* $ 82 SOFUT //DRY/*ROOTTOP */*EQUI*/32 /*ROOTRGT */*R */*ITM1*/*ITM2*/ 83 *ITM3*/*ITM4*/*ITM5* $ 84 SOFUT //DRY/*ROOTTOP */*EQUI*/32 /*ROOTBOT */*B */*ITM1*/*ITM2*/ 85 *ITM3*/*ITM4*/*ITM5* $ 86 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 87 * */* */* * $ 88 COMB1 CASECC,GEOM4//21 /S,N,DRY/*PVEC* $ 89 COND LB21 ,DRY $ 90 COMB2 ,K3 ,K6 , , , , , /K12 /S,N,DRY/*K*/* */ 91 *VANETOP */*ROOTTOP */*VANELFT */*ROOTLFT */*VANEBOT */ 92 *ROOTBOT */*ROOTRGT * $ 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 93 SOFO ,K12 ,,,,//S,N,DRY/*RING */*KMTX* $ 94 COMB2 ,M3 ,M6 , , , , , /M12 /S,N,DRY/*M*/* */ 95 *VANETOP */*ROOTTOP */*VANELFT */*ROOTLFT */*VANEBOT */ 96 *ROOTBOT */*ROOTRGT * $ 97 SOFO ,M12 ,,,,//S,N,DRY/*RING */*MMTX* $ 98 COMB2 ,P3 ,P6 , , , , , /P12 /S,N,DRY/*P*/*PVEC*/ 99 *VANETOP */*ROOTTOP */*VANELFT */*ROOTLFT */*VANEBOT */ 100 *ROOTBOT */*ROOTRGT * $ 101 SOFO ,P12 ,,,,//S,N,DRY/*RING */*PVEC* $ 102 LABEL LB21 $ 103 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 104 * */* */* * $ 105 COMB1 CASECC,GEOM4//23 /S,N,DRY/*PVEC* $ 106 COND LB23 ,DRY $ 107 COMB2 ,K12 , , , , , , /K14 /S,N,DRY/*K*/* */ 108 *RING */*VANERGT */* */* */* */ 109 * */* * $ 110 SOFO ,K14 ,,,,//S,N,DRY/*BLADES */*KMTX* $ 111 COMB2 ,M12 , , , , , , /M14 /S,N,DRY/*M*/* */ 112 *RING */*VANERGT */* */* */* */ 113 * */* * $ 114 SOFO ,M14 ,,,,//S,N,DRY/*BLADES */*MMTX* $ 115 COMB2 ,P12 , , , , , , /P14 /S,N,DRY/*P*/*PVEC*/ 116 *RING */*VANERGT */* */* */* */ 117 * */* * $ 118 SOFO ,P14 ,,,,//S,N,DRY/*BLADES */*PVEC* $ 119 LABEL LB23 $ 120 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 121 * */* */* * $ 122 COMB1 CASECC,GEOM4//25 /S,N,DRY/*PVEC* $ 123 COND LB25 ,DRY $ 124 COMB2 , ,K14 , , , , , /K16 /S,N,DRY/*K*/* */ 125 *HUB */*BLADES */* */* */* */ 126 * */* * $ 127 SOFO ,K16 ,,,,//S,N,DRY/*WINDMIL */*KMTX* $ 128 COMB2 , ,M14 , , , , , /M16 /S,N,DRY/*M*/* */ 129 *HUB */*BLADES */* */* */* */ 130 * */* * $ 131 SOFO ,M16 ,,,,//S,N,DRY/*WINDMIL */*MMTX* $ 132 COMB2 , ,P14 , , , , , /P16 /S,N,DRY/*P*/*PVEC*/ 133 *HUB */*BLADES */* */* */* */ 134 * */* * $ 135 SOFO ,P16 ,,,,//S,N,DRY/*WINDMIL */*PVEC* $ 136 LABEL LB25 $ 137 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 138 * */* */* * $ 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 139 PLTMRG CASECC,PCDB/PLT27 ,GP27 ,EL27 ,BG27 ,CAS27 ,EQ27 /*WINDMIL */ 140 S,N,NGP/S,N,LSIL/S,N,NPSET $ 141 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 142 PLOT PLT27 ,GP27 ,EL27 ,CAS27 ,BG27 ,EQ27 ,,,,,,,/PM27 /NGP/LSIL/ 143 S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 144 PRTMSG PM27 // $ 145 REDUCE CASECC,GEOM4/PV16 ,US28 ,IN28 /28 /S,N,DRY/*PVEC* $ 146 COND LBR28 ,DRY $ 147 SOFI / , , , , /S,N,DRY/*WINDMIL */*KMTX*/*MMTX*/ 148 *PVEC*/*BMTX*/*K4MX* $ 149 COND LBR28 ,DRY $ 150 SMP1 US28 ,K16 ,,,/GO16 ,K17 ,KO16 ,LO16 ,,,,, $ 151 MERGE GO16 ,IN28 ,,,,PV16 /G16 /1/2 /2 $ 152 SOFO ,G16 ,LO16 ,,,//DRY/*WINDMIL */*HORG*/*LMTX* $ 153 SOFO ,K17 ,,,,//DRY/*SMALLMIL*/*KMTX* $ 154 SOFI / ,,,,/S,N,DRY/*WINDMIL */*HORG* $ 155 MPY3 G16 ,M16 ,/M17 /0/0 $ 156 SOFO ,M17 ,,,,//DRY/*SMALLMIL*/*MMTX* $ 157 PARTN P16 ,,PV16 /PO16 ,,,/1/1/2 $ 158 MPYAD G16 ,P16 ,/P17 /1/1/0/1 $ 159 SOFO ,PO16 ,,,,//DRY/*WINDMIL */*POVE* $ 160 SOFO ,PV16 ,,,,//DRY/*WINDMIL */*UPRT* $ 161 SOFO ,P17 ,,,,//DRY/*SMALLMIL*/*PVEC* $ 162 LABEL LBR28 $ 163 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 164 * */* */* * $ 165 ALTER 11, 11 166 PARAM //*NOP*/ALWAYS=-1 $ 167 SGEN CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT, 168 BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*SMALLMIL*/S,N,LUSET/ 169 S,N,NOGPDT $ 170 PURGE CSTM $ 171 EQUIV GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/ 172 DYNS,DYNAMICS/ALWAYS $ 173 COND LB30 ,DRY $ 174 ALTER 16, 26 175 ALTER 31, 32 176 COND LBSOL,NOSIMP $ 177 ALTER 38, 38 178 ALTER 53, 57 179 LABEL LBSOL $ 180 SOFI / , ,,,/DRY/*SMALLMIL*/*KMTX*/*MMTX* $ 181 EQUIV K17 ,KGG/NOSIMP $ 182 EQUIV M17 ,MGG/NOSIMP $ 183 COND LB30 ,NOSIMP $ 184 ADD KGGX,K17 /KGG/(1.0,0.0)/(1.0,0.0) $ 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 185 ADD MGG,M17 /MGGX/(1.0,0.0)/(1.0,0.0) $ 186 EQUIV MGGX,MGG/ALWAYS $ 187 LABEL LB30 $ 188 CHKPNT MGG $ 189 ALTER 103,156 190 COND LBSEND,DRY $ 191 FILE U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $ 192 PARAM //*ADD*/ILOOP/0/0 $ 193 LABEL LB31 $ 194 RCOVR CASESS,GEOM4,KGG,MGG,PGG,UGV , , , , , /OUGV1 , 195 OPG1,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/31 /*SMALLMIL*/ 196 1 / /S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/ 197 S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $ 198 EQUIV OUGV1 ,OUGV /NOSORT2/OQG1,OQG/NOSORT2 $ 199 EQUIV OPG1,OPG/NOSORT2 $ 200 COND NST231 ,NOSORT2 $ 201 SDR3 OUGV1 ,OPG1,OQG1,,,/OUGV ,OPG,OQG,,, $ 202 LABEL NST231 $ 203 OFP OUGV ,OPG,OQG,,,//S,N,CARDNO $ 204 COND LBB31 ,ILOOP $ 205 REPT LB31 ,100 $ 206 LABEL LBB31 $ 207 SOFO ,U1,U2,U3,U4,U5//-1/*XXXXXXXX* $ 208 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 209 * */* */* * $ 210 LABEL LBSEND $ 211 JUMP FINIS $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 3 LABEL = COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 4 DISP = ALL 5 OLOAD = ALL 6 MPC = 20 7 SUBCASE 1 8 LABEL = ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE 9 LOAD = 1 10 SUBCASE 2 11 LABEL = EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL 12 LOAD = 2 13 SUBCASE 3 14 LABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5 15 LOAD = 3 16 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. 2-2-4 17 OUTPUT(PLOT) 18 PLOTTER NASTPLT 19 SET 1 = ALL 20 AXES Z, X, Y 21 VIEW 0.0, 0.0, 0.0 22 FIND SCALE, ORIGIN 1, SET 1, REGION 0.1, 0.1, 0.9, 0.9 23 PTITLE = SUBSTRUCTURES VANE1/ROOT1/HUB/VANETOP/ROOTTOP PLUS MILL 24 PLOT SET 1, ORIGIN 1, LABEL BOTH 25 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 51, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BDYC 2000 VANE1 200 VANE2 200 LVANE1 200 +BC1 2- +BC1 LVANE2 200 BVANE1 200 BVANE2 200 +BC2 3- +BC2 RVANE1 200 RVANE2 200 ROOT1 230 +BC3 4- +BC3 ROOT2 210 LROOT1 210 LROOT2 210 +BC4 5- +BC4 BROOT1 210 BROOT2 210 RROOT1 210 +BC5 6- +BC5 RROOT2 210 HUB 220 7- BDYS1 200 12 1 2 4 6 8 8- BDYS1 210 12 2 4 7 9- BDYS1 220 1 1 7 31 25 10- BDYS1 220 2 13 19 37 43 11- BDYS1 220 12 4 10 16 22 28 34 +B1 12- +B1 40 46 108 13- BDYS1 230 12 2 4 6 7 14- GTRAN 100 VANE1 7 0 15- GTRAN 100 VANE1 8 0 16- GTRAN 100 VANE2 1 200 17- GTRAN 100 VANE2 2 200 18- GTRAN 100 VANE2 3 200 19- GTRAN 100 VANE2 4 200 20- GTRAN 100 VANE2 5 200 21- GTRAN 100 VANE2 6 200 22- GTRAN 100 VANE2 7 0 23- GTRAN 100 VANE2 8 0 24- LOADC 1 1.0 VANE1 1 1.0 VANE2 1 1.0 +LC1A 25- +LC1A ROOT1 1 1.0 ROOT2 1 1.0 +LC1B 26- +LC1B LVANE1 1 1.0 LVANE2 1 1.0 +LC1C 27- +LC1C LROOT1 1 1.0 LROOT2 1 1.0 +LC1D 28- +LC1D BVANE1 1 1.0 BVANE2 1 1.0 +LC1E 29- +LC1E BROOT1 1 1.0 BROOT2 1 1.0 +LC1F 30- +LC1F RVANE1 1 1.0 RVANE2 1 1.0 +LC1G 31- +LC1G RROOT1 1 1.0 RROOT2 1 1.0 +LC1H 32- +LC1H HUB 1 1.0 33- LOADC 2 -1.0 BVANE1 2 1.0 BVANE2 2 1.0 +LC2A 34- +LC2A RVANE1 2 -1.0 RVANE2 2 -1.0 35- LOADC 3 1.0 HUB 3 1.0 36- MPCS 20 HUB 108 1 -1.0 +MPC1 37- +MPC1 ROOT1 6 2 .94868336 1 .3162278 38- MPCS 20 HUB 108 2 -1.0 +MPC2 39- +MPC2 ROOT1 6 1 -.9486836 2 .3162278 40- RELES 1000 HUB 5 2 17 1 29 2 +REL 41- +REL 41 1 108 12 42- TRANS 100 0.0 27.5 0.0 0.0 27.5 1.0 +A 43- +A 5.0 27.5 0.0 44- TRANS 200 0.0 0.0 0.0 0.0 0.0 1. +B 45- +B -1.0 0.0 0.0 46- TRANS 300 .0 .0 .0 .0 .0 1.0 +D 47- +D .0 -1.0 .0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- TRANS 400 .0 .0 .0 .0 .0 1.0 +C 49- +C .0 1.0 .0 50- TRANS 500 .0 .0 .0 .0 .0 1.0 +E 51- +E .0 -1.0 .0 ENDDATA 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 01 - STATIC ANALYSIS - APR. 1995 $ 2 FILE OPTP2=SAVE/EST1=SAVE $ 3 FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $ 4 SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ 5 PARAM //*MPY*/CARDNO/0/0 $ 5 PARAM //*ADD*/DRY/1 /0 $ 5 LABEL LBSBEG $ 5 PLTMRG CASECC,PCDB/PLT2 ,GP2 ,EL2 ,BG2 ,CAS2 ,EQ2 /*VANE1 */ S,N,NGP/S,N,LSIL/S,N,NPSET $ 5 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 5 PLOT PLT2 ,GP2 ,EL2 ,CAS2 ,BG2 ,EQ2 ,,,,,,,/PM2 /NGP/LSIL/ S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 5 PRTMSG PM2 // $ 5 PLTMRG CASECC,PCDB/PLT3 ,GP3 ,EL3 ,BG3 ,CAS3 ,EQ3 /*ROOT1 */ S,N,NGP/S,N,LSIL/S,N,NPSET $ 5 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 5 PLOT PLT3 ,GP3 ,EL3 ,CAS3 ,BG3 ,EQ3 ,,,,,,,/PM3 /NGP/LSIL/ S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 5 PRTMSG PM3 // $ 5 PLTMRG CASECC,PCDB/PLT4 ,GP4 ,EL4 ,BG4 ,CAS4 ,EQ4 /*HUB */ S,N,NGP/S,N,LSIL/S,N,NPSET $ 5 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 5 PLOT PLT4 ,GP4 ,EL4 ,CAS4 ,BG4 ,EQ4 ,,,,,,,/PM4 /NGP/LSIL/ S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 5 PRTMSG PM4 // $ 5 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 5 SOFUT //DRY/*VANE1 */*EQUI*/32 /*VANE2 */*X */*ITM1*/*ITM2*/ *ITM3*/*ITM4*/*ITM5* $ 5 COMB1 CASECC,GEOM4//7 /S,N,DRY/*PVEC* $ 5 COND LB7 ,DRY $ 5 COMB2 , , , , , , , /K3 /S,N,DRY/*K*/* */ *VANE1 */*VANE2 */* */* */* */ * */* * $ 5 SOFO ,K3 ,,,,//S,N,DRY/*VANETOP */*KMTX* $ 5 COMB2 , , , , , , , /M3 /S,N,DRY/*M*/* */ *VANE1 */*VANE2 */* */* */* */ * */* * $ 5 SOFO ,M3 ,,,,//S,N,DRY/*VANETOP */*MMTX* $ 5 COMB2 , , , , , , , /P3 /S,N,DRY/*P*/*PVEC*/ *VANE1 */*VANE2 */* */* */* */ * */* * $ 5 SOFO ,P3 ,,,,//S,N,DRY/*VANETOP */*PVEC* $ 5 LABEL LB7 $ 5 PLTMRG CASECC,PCDB/PLT8 ,GP8 ,EL8 ,BG8 ,CAS8 ,EQ8 /*VANETOP */ S,N,NGP/S,N,LSIL/S,N,NPSET $ 5 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 5 PLOT PLT8 ,GP8 ,EL8 ,CAS8 ,BG8 ,EQ8 ,,,,,,,/PM8 /NGP/LSIL/ S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 5 PRTMSG PM8 // $ 5 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 5 SOFUT //DRY/*ROOT1 */*EQUI*/32 /*ROOT2 */*X */*ITM1*/*ITM2*/ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING *ITM3*/*ITM4*/*ITM5* $ 5 COMB1 CASECC,GEOM4//11 /S,N,DRY/*PVEC* $ 5 COND LB11 ,DRY $ 5 COMB2 , , , , , , , /K6 /S,N,DRY/*K*/* */ *ROOT1 */*ROOT2 */* */* */* */ * */* * $ 5 SOFO ,K6 ,,,,//S,N,DRY/*ROOTTOP */*KMTX* $ 5 COMB2 , , , , , , , /M6 /S,N,DRY/*M*/* */ *ROOT1 */*ROOT2 */* */* */* */ * */* * $ 5 SOFO ,M6 ,,,,//S,N,DRY/*ROOTTOP */*MMTX* $ 5 COMB2 , , , , , , , /P6 /S,N,DRY/*P*/*PVEC*/ *ROOT1 */*ROOT2 */* */* */* */ * */* * $ 5 SOFO ,P6 ,,,,//S,N,DRY/*ROOTTOP */*PVEC* $ 5 LABEL LB11 $ 5 PLTMRG CASECC,PCDB/PLT12 ,GP12 ,EL12 ,BG12 ,CAS12 ,EQ12 /*ROOTTOP */ S,N,NGP/S,N,LSIL/S,N,NPSET $ 5 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 5 PLOT PLT12 ,GP12 ,EL12 ,CAS12 ,BG12 ,EQ12 ,,,,,,,/PM12 /NGP/LSIL/ S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 5 PRTMSG PM12 // $ 5 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 5 SOFUT //DRY/*VANETOP */*EQUI*/32 /*VANELFT */*L */*ITM1*/*ITM2*/ *ITM3*/*ITM4*/*ITM5* $ 5 SOFUT //DRY/*VANETOP */*EQUI*/32 /*VANERGT */*R */*ITM1*/*ITM2*/ *ITM3*/*ITM4*/*ITM5* $ 5 SOFUT //DRY/*VANETOP */*EQUI*/32 /*VANEBOT */*B */*ITM1*/*ITM2*/ *ITM3*/*ITM4*/*ITM5* $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 5 SOFUT //DRY/*ROOTTOP */*EQUI*/32 /*ROOTLFT */*L */*ITM1*/*ITM2*/ *ITM3*/*ITM4*/*ITM5* $ 5 SOFUT //DRY/*ROOTTOP */*EQUI*/32 /*ROOTRGT */*R */*ITM1*/*ITM2*/ *ITM3*/*ITM4*/*ITM5* $ 5 SOFUT //DRY/*ROOTTOP */*EQUI*/32 /*ROOTBOT */*B */*ITM1*/*ITM2*/ *ITM3*/*ITM4*/*ITM5* $ 5 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 5 COMB1 CASECC,GEOM4//21 /S,N,DRY/*PVEC* $ 5 COND LB21 ,DRY $ 5 COMB2 ,K3 ,K6 , , , , , /K12 /S,N,DRY/*K*/* */ *VANETOP */*ROOTTOP */*VANELFT */*ROOTLFT */*VANEBOT */ *ROOTBOT */*ROOTRGT * $ 5 SOFO ,K12 ,,,,//S,N,DRY/*RING */*KMTX* $ 5 COMB2 ,M3 ,M6 , , , , , /M12 /S,N,DRY/*M*/* */ *VANETOP */*ROOTTOP */*VANELFT */*ROOTLFT */*VANEBOT */ *ROOTBOT */*ROOTRGT * $ 5 SOFO ,M12 ,,,,//S,N,DRY/*RING */*MMTX* $ 5 COMB2 ,P3 ,P6 , , , , , /P12 /S,N,DRY/*P*/*PVEC*/ *VANETOP */*ROOTTOP */*VANELFT */*ROOTLFT */*VANEBOT */ *ROOTBOT */*ROOTRGT * $ 5 SOFO ,P12 ,,,,//S,N,DRY/*RING */*PVEC* $ 5 LABEL LB21 $ 5 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 5 COMB1 CASECC,GEOM4//23 /S,N,DRY/*PVEC* $ 5 COND LB23 ,DRY $ 5 COMB2 ,K12 , , , , , , /K14 /S,N,DRY/*K*/* */ *RING */*VANERGT */* */* */* */ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING * */* * $ 5 SOFO ,K14 ,,,,//S,N,DRY/*BLADES */*KMTX* $ 5 COMB2 ,M12 , , , , , , /M14 /S,N,DRY/*M*/* */ *RING */*VANERGT */* */* */* */ * */* * $ 5 SOFO ,M14 ,,,,//S,N,DRY/*BLADES */*MMTX* $ 5 COMB2 ,P12 , , , , , , /P14 /S,N,DRY/*P*/*PVEC*/ *RING */*VANERGT */* */* */* */ * */* * $ 5 SOFO ,P14 ,,,,//S,N,DRY/*BLADES */*PVEC* $ 5 LABEL LB23 $ 5 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 5 COMB1 CASECC,GEOM4//25 /S,N,DRY/*PVEC* $ 5 COND LB25 ,DRY $ 5 COMB2 , ,K14 , , , , , /K16 /S,N,DRY/*K*/* */ *HUB */*BLADES */* */* */* */ * */* * $ 5 SOFO ,K16 ,,,,//S,N,DRY/*WINDMIL */*KMTX* $ 5 COMB2 , ,M14 , , , , , /M16 /S,N,DRY/*M*/* */ *HUB */*BLADES */* */* */* */ * */* * $ 5 SOFO ,M16 ,,,,//S,N,DRY/*WINDMIL */*MMTX* $ 5 COMB2 , ,P14 , , , , , /P16 /S,N,DRY/*P*/*PVEC*/ *HUB */*BLADES */* */* */* */ * */* * $ 5 SOFO ,P16 ,,,,//S,N,DRY/*WINDMIL */*PVEC* $ 5 LABEL LB25 $ 5 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 5 PLTMRG CASECC,PCDB/PLT27 ,GP27 ,EL27 ,BG27 ,CAS27 ,EQ27 /*WINDMIL */ S,N,NGP/S,N,LSIL/S,N,NPSET $ 5 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 5 PLOT PLT27 ,GP27 ,EL27 ,CAS27 ,BG27 ,EQ27 ,,,,,,,/PM27 /NGP/LSIL/ S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 5 PRTMSG PM27 // $ 5 REDUCE CASECC,GEOM4/PV16 ,US28 ,IN28 /28 /S,N,DRY/*PVEC* $ 5 COND LBR28 ,DRY $ 5 SOFI / , , , , /S,N,DRY/*WINDMIL */*KMTX*/*MMTX*/ *PVEC*/*BMTX*/*K4MX* $ 5 COND LBR28 ,DRY $ 5 SMP1 US28 ,K16 ,,,/GO16 ,K17 ,KO16 ,LO16 ,,,,, $ 5 MERGE GO16 ,IN28 ,,,,PV16 /G16 /1/2 /2 $ 5 SOFO ,G16 ,LO16 ,,,//DRY/*WINDMIL */*HORG*/*LMTX* $ 5 SOFO ,K17 ,,,,//DRY/*SMALLMIL*/*KMTX* $ 5 SOFI / ,,,,/S,N,DRY/*WINDMIL */*HORG* $ 5 MPY3 G16 ,M16 ,/M17 /0/0 $ 5 SOFO ,M17 ,,,,//DRY/*SMALLMIL*/*MMTX* $ 5 PARTN P16 ,,PV16 /PO16 ,,,/1/1/2 $ 5 MPYAD G16 ,P16 ,/P17 /1/1/0/1 $ 5 SOFO ,PO16 ,,,,//DRY/*WINDMIL */*POVE* $ 5 SOFO ,PV16 ,,,,//DRY/*WINDMIL */*UPRT* $ 5 SOFO ,P17 ,,,,//DRY/*SMALLMIL*/*PVEC* $ 5 LABEL LBR28 $ 5 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING * */* */* * $ 6 COMPOFF 1,INTERACT $ 7 PRECHK ALL $ 8 COMPON 1,INTERACT $ 10 COMPOFF LBLINT02,SYS21 $ 11 PARAM //*NOP*/ALWAYS=-1 $ 11 SGEN CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT, BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*SMALLMIL*/S,N,LUSET/ S,N,NOGPDT $ 11 PURGE CSTM $ 11 EQUIV GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/ DYNS,DYNAMICS/ALWAYS $ 11 COND LB30 ,DRY $ 12 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 13 EQUIV MPTA,MPT/ISOP $ 14 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 15 GP2 GEOM2,EQEXIN/ECT $ 27 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ 28 PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ 29 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 30 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 32 COND LBSOL,NOSIMP $ 33 PURGE KGGX/NOSIMP $ 34 OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ 35 LABEL LOOPTOP $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 36 COND LBL1,NOSIMP $ 37 PARAM //*ADD*/NOKGGX/1/0 $ 39 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 40 COND JMPKGG,NOKGGX $ 41 EMA GPECT,KDICT,KELM/KGGX $ 42 LABEL JMPKGG $ 43 PURGE MGG/NOMGG $ 44 COND JMPMGG,NOMGG $ 45 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 46 PURGE MDICT,MELM/ALWAYS $ 47 LABEL JMPMGG $ 48 COND LBL1,GRDPNT $ 49 COND ERROR2,NOMGG $ 50 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ 51 OFP OGPWG,,,,,//S,N,CARDNO $ 52 LABEL LBL1 $ 57 LABEL LBSOL $ 57 SOFI / , ,,,/DRY/*SMALLMIL*/*KMTX*/*MMTX* $ 57 EQUIV K17 ,KGG/NOSIMP $ 57 EQUIV M17 ,MGG/NOSIMP $ 57 COND LB30 ,NOSIMP $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 57 ADD KGGX,K17 /KGG/(1.0,0.0)/(1.0,0.0) $ 57 ADD MGG,M17 /MGGX/(1.0,0.0)/(1.0,0.0) $ 57 EQUIV MGGX,MGG/ALWAYS $ 57 LABEL LB30 $ 57 CHKPNT MGG $ 58 PARAM //*MPY*/NSKIP/0/0 $ 59 LABEL LBL11 $ 60 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 61 OFP OGPST,,,,,//S,N,CARDNO $ 62 COND ERROR3,NOL $ 63 PARAM //*AND*/NOSR/SINGLE/REACT $ 64 PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ 65 EQUIV KGG,KNN/MPCF1 $ 66 COND LBL2,MPCF2 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,,,/KNN,,, $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ 73 LABEL LBL3 $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 74 EQUIV KFF,KAA/OMIT $ 75 COND LBL5,OMIT $ 76 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 77 LABEL LBL5 $ 78 EQUIV KAA,KLL/REACT $ 79 COND LBL6,REACT $ 80 RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ 81 LABEL LBL6 $ 82 RBMG2 KLL/LLL $ 83 COND LBL7,REACT $ 84 RBMG3 LLL,KLR,KRR/DM $ 85 LABEL LBL7 $ 86 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ 87 EQUIV PG,PL/NOSET $ 88 COND LBL10,NOSET $ 89 SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ 90 LABEL LBL10 $ 91 SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ NSKIP/S,N,EPSI $ 92 COND LBL9,IRES $ 93 MATGPR GPL,USET,SIL,RULV//*L* $ 94 MATGPR GPL,USET,SIL,RUOV//*O* $ 95 LABEL LBL9 $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 96 SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ *STATICS* $ 97 COND LBL8,REPEAT $ 98 REPT LBL11,360 $ 99 JUMP ERROR1 $ 100 PARAM //*NOT*/TEST/REPEAT $ 101 COND ERROR5,TEST $ 102 LABEL LBL8 $ 156 COND LBSEND,DRY $ 156 FILE U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $ 156 PARAM //*ADD*/ILOOP/0/0 $ 156 LABEL LB31 $ 156 RCOVR CASESS,GEOM4,KGG,MGG,PGG,UGV , , , , , /OUGV1 , OPG1,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/31 /*SMALLMIL*/ 1 / /S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/ S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $ 156 EQUIV OUGV1 ,OUGV /NOSORT2/OQG1,OQG/NOSORT2 $ 156 EQUIV OPG1,OPG/NOSORT2 $ 156 COND NST231 ,NOSORT2 $ 156 SDR3 OUGV1 ,OPG1,OQG1,,,/OUGV ,OPG,OQG,,, $ 156 LABEL NST231 $ 156 OFP OUGV ,OPG,OQG,,,//S,N,CARDNO $ 156 COND LBB31 ,ILOOP $ 156 REPT LB31 ,100 $ 156 LABEL LBB31 $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 156 SOFO ,U1,U2,U3,U4,U5//-1/*XXXXXXXX* $ 156 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 156 LABEL LBSEND $ 156 JUMP FINIS $ 157 COND FINIS,COUNT $ 158 REPT LOOPTOP,360 $ 159 JUMP FINIS $ 160 LABEL ERROR1 $ 161 PRTPARM //-1/*STATICS* $ 162 LABEL ERROR2 $ 163 PRTPARM //-2/*STATICS* $ 164 LABEL ERROR3 $ 165 PRTPARM //-3/*STATICS* $ 166 LABEL ERROR4 $ 167 PRTPARM //-4/*STATICS* $ 168 LABEL ERROR5 $ 169 PRTPARM //-5/*STATICS* $ 170 LABEL FINIS $ 171 PURGE DUMMY/ALWAYS $ 172 LABEL LBLINT02 $ 173 COMPON LBLINT01,SYS21 $ 228 END $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR4 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 *** USER POTENTIALLY FATAL MESSAGE 22, POSSIBLE ERROR IN DMAP INSTRUCTION TA1 INSTRUCTION NO. 29 DATA BLOCK NAMED CSTM APPEARS AS INPUT BEFORE BEING DEFINED *** USER POTENTIALLY FATAL MESSAGE 22, POSSIBLE ERROR IN DMAP INSTRUCTION GP4 INSTRUCTION NO. 60 DATA BLOCK NAMED GPST APPEARS AS INPUT BEFORE BEING DEFINED 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 926 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 MESSAGES FROM THE PLOT MODULE AN UNRECOGNIZABLE PLOT PARAMETER (SET ) HAS BEEN DETECTED - IGNORED AN UNRECOGNIZABLE PLOT PARAMETER (ALL ) HAS BEEN DETECTED - IGNORED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.401302E-01 ORIGIN 1 - X0 = -2.653339E+00, Y0 = -0.689052E+00 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 1 USED IN THIS PLOT 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 MESSAGES FROM THE PLOT MODULE AN UNRECOGNIZABLE PLOT PARAMETER (SET ) HAS BEEN DETECTED - IGNORED AN UNRECOGNIZABLE PLOT PARAMETER (ALL ) HAS BEEN DETECTED - IGNORED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 3.087389E-01 ORIGIN 1 - X0 = -1.324046E+00, Y0 = 0.239834E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 1 USED IN THIS PLOT 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 MESSAGES FROM THE PLOT MODULE AN UNRECOGNIZABLE PLOT PARAMETER (SET ) HAS BEEN DETECTED - IGNORED AN UNRECOGNIZABLE PLOT PARAMETER (ALL ) HAS BEEN DETECTED - IGNORED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 1.706093E-01 ORIGIN 1 - X0 = -3.253665E+00, Y0 = -0.339052E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 1 USED IN THIS PLOT 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 0 0 3 3 3 3 3 3 3 3 2 ROOT1 B 0 0 0 0 0 3 3 3 3 3 3 3 3 VANE1 B 0 0 0 0 0 3 3 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 919552 WORDS. OR = 898 BLOCKS. OR = 96 PERCENT. 0*** HIGHEST BLOCK USED = 28 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 S U B S T R U C T U R E E Q U I V A L E N C E O P E R A T I O N SUBSTRUCTURE VANE2 HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE VANE1 0 THE PRIMARY SUBSTRUCTURE OF VANE2 IS VANE1 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF CASE CONTROL FOR COMBINE OPERATION THIS JOB STEP WILL COMBINE 2 PSEUDOSTRUCTURES CONNECTIONS ARE GENERATED AUTOMATICALLY. THE RESULTANT PSEUDOSTRUCTURE NAME IS VANETOP THE TOLERANCE ON CONNECTIONS IS 0.200000E-01 THE PRINT CONTROL OPTIONS ARE 1 2 7 11 12 13 14 15 16 17 COMPONENT SUBSTRUCTURE NO. 1 NAME = VANE1 TRANS SET ID = 100 COMPONENT SUBSTRUCTURE NO. 2 NAME = VANE2 TRANS SET ID = 100 SYMMETRY DIRECTIONS = X 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 P S E U D O S T R U C T U R E T A B L E O F C O N T E N T S PSEUDO- NO. OF STRUCTURE COMPONENTS ---------- COMPONENT NAMES ----------- VANE1 1 + VANE1 VANE2 1 + VANE2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PROCESSED TRANS BULK DATA TRANS SET IDENTIFICATION NUMBER = 100 COORDINATES OF ORIGIN IN BASIC SYSTEM 0.000000E+00 0.275000E+02 0.000000E+00 TRANSFORMATION MATRIX ***** ***** * * * 0.100000E+01 0.000000E+00 0.000000E+00 * * * * 0.000000E+00 0.100000E+01 0.000000E+00 * * * * 0.000000E+00 0.000000E+00 0.100000E+01 * * * ***** ***** TRANS SET IDENTIFICATION NUMBER = 200 COORDINATES OF ORIGIN IN BASIC SYSTEM 0.000000E+00 0.000000E+00 0.000000E+00 TRANSFORMATION MATRIX ***** ***** * * * -0.100000E+01 0.000000E+00 0.000000E+00 * * * * 0.000000E+00 -0.100000E+01 0.000000E+00 * * * * 0.000000E+00 0.000000E+00 0.100000E+01 * * * ***** ***** 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF AUTOMATICALLY GENERATED CONNECTIONS CONNECTED CONNECTION PSEUDOSTRUCTURE NAMES DOF CODE VANE1 VANE2 12 12 1 1 12 12 3 3 12 12 5 5 12 12 7 7 NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL GRID NUMBERS 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM VANE1 VANE2 1 1 12 VANE1 2 --------------------------------------------------------------------------------------------------------------- 2 3 12 VANE1 4 --------------------------------------------------------------------------------------------------------------- 3 5 12 VANE1 6 --------------------------------------------------------------------------------------------------------------- 4 7 12 VANE1 8 --------------------------------------------------------------------------------------------------------------- 5 9 12 VANE1 VANE2 5 5 --------------------------------------------------------------------------------------------------------------- 6 11 12 VANE1 VANE2 7 7 --------------------------------------------------------------------------------------------------------------- 7 13 12 VANE1 VANE2 3 3 --------------------------------------------------------------------------------------------------------------- 8 15 12 VANE1 VANE2 1 1 --------------------------------------------------------------------------------------------------------------- 9 17 12 VANE2 8 --------------------------------------------------------------------------------------------------------------- 10 19 12 VANE2 6 --------------------------------------------------------------------------------------------------------------- 11 21 12 VANE2 2 --------------------------------------------------------------------------------------------------------------- 12 23 12 VANE2 4 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE VANETOP COMPONENT VANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 8 12 2 1 12 3 7 12 4 2 12 5 5 12 6 3 12 7 6 12 8 4 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE VANETOP COMPONENT VANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 8 12 2 11 12 3 7 12 4 12 12 5 5 12 6 10 12 7 6 12 8 9 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE VANETOP INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT POINT ID SIL ID DOF POINT ID SIL ID DOF POINT ID SIL ID DOF 1 1 12 2 3 12 3 5 12 4 7 12 5 9 12 6 11 12 7 13 12 8 15 12 9 17 12 10 19 12 11 21 12 12 23 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 BGSS ITEM FOR SUBSTRUCTURE VANETOP INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 1 1 0.500000E+01 0.500000E+02 0.000000E+00 2 1 0.500000E+01 0.425000E+02 0.000000E+00 3 1 0.500000E+01 0.350000E+02 0.000000E+00 4 0 0.500000E+01 0.275000E+02 0.000000E+00 5 1 0.000000E+00 0.350000E+02 0.000000E+00 6 0 0.000000E+00 0.275000E+02 0.000000E+00 7 1 0.000000E+00 0.425000E+02 0.000000E+00 8 1 0.000000E+00 0.500000E+02 0.000000E+00 9 0 -0.500000E+01 0.275000E+02 0.000000E+00 10 2 -0.500000E+01 0.350000E+02 0.000000E+00 11 2 -0.500000E+01 0.500000E+02 0.000000E+00 12 2 -0.500000E+01 0.425000E+02 0.000000E+00 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 CSTM ITEM FOR SUBSTRUCTURE VANETOP CSTM TYPE C O O R D I N A T E S O F O R I G I N T R A N S F O R M A T I O N ID X1 X2 X3 M A T R I X 1 1 0.500000E+01 0.225000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 2 1 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 PLTS ITEM FOR SUBSTRUCTURE VANETOP COMPONENT C O O R D I N A T E S O F OR I G I N T R A N S F O R M A T I O N NAME X1 X2 X3 M A T R I X VANE1 0.000000E+00 0.275000E+02 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 VANE2 0.000000E+00 0.275000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 LODS ITEM FOR SUBSTRUCTURE VANETOP COMPONENT NUMBER OF NAME LOAD SETS L O A D S E T I D E N T I F I C A T I O N N U M B E R S VANE1 2 1 2 VANE2 2 1 2 0*** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 MESSAGES FROM THE PLOT MODULE AN UNRECOGNIZABLE PLOT PARAMETER (SET ) HAS BEEN DETECTED - IGNORED AN UNRECOGNIZABLE PLOT PARAMETER (ALL ) HAS BEEN DETECTED - IGNORED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.401302E-01 ORIGIN 1 - X0 = -3.253665E+00, Y0 = 0.591453E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 1 USED IN THIS PLOT 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 0 0 3 3 3 3 3 3 3 3 2 ROOT1 B 0 0 0 0 0 3 3 3 3 3 3 3 3 VANE1 B 4 0 0 4 5 3 3 3 3 3 3 3 3 3 4 VANE2 B 0 3 0 3 5 3 0 0 3 3 0 0 0 3 5 VANETOP C 0 0 3 0 0 3 3 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 906240 WORDS. OR = 885 BLOCKS. OR = 95 PERCENT. 0*** HIGHEST BLOCK USED = 41 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 S U B S T R U C T U R E E Q U I V A L E N C E O P E R A T I O N SUBSTRUCTURE ROOT2 HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE ROOT1 0 THE PRIMARY SUBSTRUCTURE OF ROOT2 IS ROOT1 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF CASE CONTROL FOR COMBINE OPERATION THIS JOB STEP WILL COMBINE 2 PSEUDOSTRUCTURES CONNECTIONS ARE GENERATED AUTOMATICALLY. THE RESULTANT PSEUDOSTRUCTURE NAME IS ROOTTOP THE TOLERANCE ON CONNECTIONS IS 0.200000E-01 THE PRINT CONTROL OPTIONS ARE 1 2 7 11 12 13 14 15 16 17 COMPONENT SUBSTRUCTURE NO. 1 NAME = ROOT1 COMPONENT SUBSTRUCTURE NO. 2 NAME = ROOT2 SYMMETRY DIRECTIONS = X 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 P S E U D O S T R U C T U R E T A B L E O F C O N T E N T S PSEUDO- NO. OF STRUCTURE COMPONENTS ---------- COMPONENT NAMES ----------- ROOT1 1 + ROOT1 ROOT2 1 + ROOT2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF AUTOMATICALLY GENERATED CONNECTIONS CONNECTED CONNECTION PSEUDOSTRUCTURE NAMES DOF CODE ROOT1 ROOT2 12 12 1 1 12 12 3 3 12 12 5 5 NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL GRID NUMBERS 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM ROOT1 ROOT2 1 1 12 ROOT1 2 --------------------------------------------------------------------------------------------------------------- 2 3 12 ROOT1 4 --------------------------------------------------------------------------------------------------------------- 3 5 12 ROOT1 6 --------------------------------------------------------------------------------------------------------------- 4 7 12 ROOT1 7 --------------------------------------------------------------------------------------------------------------- 5 9 12 ROOT1 8 --------------------------------------------------------------------------------------------------------------- 6 11 12 ROOT1 ROOT2 3 3 --------------------------------------------------------------------------------------------------------------- 7 13 12 ROOT1 ROOT2 5 5 --------------------------------------------------------------------------------------------------------------- 8 15 12 ROOT1 ROOT2 1 1 --------------------------------------------------------------------------------------------------------------- 9 17 12 ROOT2 7 --------------------------------------------------------------------------------------------------------------- 10 19 12 ROOT2 8 --------------------------------------------------------------------------------------------------------------- 11 21 12 ROOT2 6 --------------------------------------------------------------------------------------------------------------- 12 23 12 ROOT2 2 --------------------------------------------------------------------------------------------------------------- 13 25 12 ROOT2 4 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE ROOTTOP COMPONENT ROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 8 12 2 1 12 3 6 12 4 2 12 5 7 12 6 3 12 7 4 12 8 5 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE ROOTTOP COMPONENT ROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 8 12 2 12 12 3 6 12 4 13 12 5 7 12 6 11 12 7 9 12 8 10 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE ROOTTOP INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT POINT ID SIL ID DOF POINT ID SIL ID DOF POINT ID SIL ID DOF 1 1 12 2 3 12 3 5 12 4 7 12 5 9 12 6 11 12 7 13 12 8 15 12 9 17 12 10 19 12 11 21 12 12 23 12 13 25 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 BGSS ITEM FOR SUBSTRUCTURE ROOTTOP INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 1 0 0.500000E+01 0.275000E+02 0.000000E+00 2 0 0.500000E+01 0.200000E+02 0.000000E+00 3 0 0.500000E+01 0.150000E+02 0.000000E+00 4 0 0.125000E+02 0.125000E+02 0.000000E+00 5 0 0.100000E+02 0.100000E+02 0.000000E+00 6 0 0.000000E+00 0.200000E+02 0.000000E+00 7 0 0.000000E+00 0.150000E+02 0.000000E+00 8 0 0.000000E+00 0.275000E+02 0.000000E+00 9 0 -0.125000E+02 0.125000E+02 0.000000E+00 10 0 -0.100000E+02 0.100000E+02 0.000000E+00 11 0 -0.500000E+01 0.150000E+02 0.000000E+00 12 0 -0.500000E+01 0.275000E+02 0.000000E+00 13 0 -0.500000E+01 0.200000E+02 0.000000E+00 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 PLTS ITEM FOR SUBSTRUCTURE ROOTTOP COMPONENT C O O R D I N A T E S O F OR I G I N T R A N S F O R M A T I O N NAME X1 X2 X3 M A T R I X ROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 ROOT2 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 LODS ITEM FOR SUBSTRUCTURE ROOTTOP COMPONENT NUMBER OF NAME LOAD SETS L O A D S E T I D E N T I F I C A T I O N N U M B E R S ROOT1 1 1 ROOT2 1 1 0*** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 MESSAGES FROM THE PLOT MODULE AN UNRECOGNIZABLE PLOT PARAMETER (SET ) HAS BEEN DETECTED - IGNORED AN UNRECOGNIZABLE PLOT PARAMETER (ALL ) HAS BEEN DETECTED - IGNORED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.047311E-01 ORIGIN 1 - X0 = -3.253665E+00, Y0 = 0.448191E+00 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 1 USED IN THIS PLOT 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 0 0 3 3 3 3 3 3 3 3 2 ROOT1 B 6 0 0 6 7 3 3 3 3 3 3 3 3 3 VANE1 B 4 0 0 4 5 3 3 3 3 3 3 3 3 3 4 VANE2 B 0 3 0 3 5 3 0 0 3 3 0 0 0 3 5 VANETOP C 0 0 3 0 0 3 3 3 3 3 3 3 3 6 ROOT2 B 0 2 0 2 7 3 0 3 3 0 0 0 3 7 ROOTTOP C 0 0 2 0 0 3 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 893952 WORDS. OR = 873 BLOCKS. OR = 94 PERCENT. 0*** HIGHEST BLOCK USED = 53 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 S U B S T R U C T U R E E Q U I V A L E N C E O P E R A T I O N SUBSTRUCTURE VANELFT HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE VANETOP 0 THE PRIMARY SUBSTRUCTURE OF VANELFT IS VANETOP 0 THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED -- 0 LVANE1 LVANE2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 S U B S T R U C T U R E E Q U I V A L E N C E O P E R A T I O N SUBSTRUCTURE VANERGT HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE VANETOP 0 THE PRIMARY SUBSTRUCTURE OF VANERGT IS VANETOP 0 THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED -- 0 RVANE1 RVANE2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 S U B S T R U C T U R E E Q U I V A L E N C E O P E R A T I O N SUBSTRUCTURE VANEBOT HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE VANETOP 0 THE PRIMARY SUBSTRUCTURE OF VANEBOT IS VANETOP 0 THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED -- 0 BVANE1 BVANE2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 S U B S T R U C T U R E E Q U I V A L E N C E O P E R A T I O N SUBSTRUCTURE ROOTLFT HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE ROOTTOP 0 THE PRIMARY SUBSTRUCTURE OF ROOTLFT IS ROOTTOP 0 THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED -- 0 LROOT1 LROOT2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 S U B S T R U C T U R E E Q U I V A L E N C E O P E R A T I O N SUBSTRUCTURE ROOTRGT HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE ROOTTOP 0 THE PRIMARY SUBSTRUCTURE OF ROOTRGT IS ROOTTOP 0 THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED -- 0 RROOT1 RROOT2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 S U B S T R U C T U R E E Q U I V A L E N C E O P E R A T I O N SUBSTRUCTURE ROOTBOT HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE ROOTTOP 0 THE PRIMARY SUBSTRUCTURE OF ROOTBOT IS ROOTTOP 0 THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED -- 0 BROOT1 BROOT2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 0 0 3 3 3 3 3 3 3 3 2 ROOT1 B 24 0 0 6 7 3 3 3 3 3 3 3 3 3 VANE1 B 15 0 0 4 5 3 3 3 3 3 3 3 3 3 4 VANE2 B 14 3 0 3 5 3 0 0 3 3 0 0 0 3 5 VANETOP C 16 0 3 0 0 3 3 3 3 3 3 3 3 6 ROOT2 B 23 2 0 2 7 3 0 3 3 0 0 0 3 7 ROOTTOP C 25 0 2 0 0 3 3 3 3 3 3 3 8 LVANE2 IB 0 3 0 9 10 3 0 0 3 3 0 0 0 0 9 LVANE1 IB 4 3 0 8 10 3 0 0 3 3 0 0 0 0 10 VANELFT C 0 5 9 0 0 3 0 0 3 3 0 0 0 11 RVANE2 IB 8 3 0 12 13 3 0 0 3 3 0 0 0 0 12 RVANE1 IB 9 3 0 11 13 3 0 0 3 3 0 0 0 0 13 VANERGT C 10 5 12 0 0 3 0 0 3 3 0 0 0 14 BVANE2 IB 11 3 0 15 16 3 0 0 3 3 0 0 0 0 15 BVANE1 IB 12 3 0 14 16 3 0 0 3 3 0 0 0 0 16 VANEBOT C 13 5 15 0 0 3 0 0 3 3 0 0 0 17 LROOT2 IB 0 2 0 18 19 3 0 3 3 0 0 0 0 18 LROOT1 IB 6 2 0 17 19 3 0 3 3 0 0 0 0 19 ROOTLFT C 0 7 18 0 0 3 0 3 3 0 0 0 20 RROOT2 IB 17 2 0 21 22 3 0 3 3 0 0 0 0 21 RROOT1 IB 18 2 0 20 22 3 0 3 3 0 0 0 0 22 ROOTRGT C 19 7 21 0 0 3 0 3 3 0 0 0 23 BROOT2 IB 20 2 0 24 25 3 0 3 3 0 0 0 0 24 BROOT1 IB 21 2 0 23 25 3 0 3 3 0 0 0 0 25 ROOTBOT C 22 7 24 0 0 3 0 3 3 0 0 0 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 838656 WORDS. OR = 819 BLOCKS. OR = 88 PERCENT. 0*** HIGHEST BLOCK USED = 107 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF CASE CONTROL FOR COMBINE OPERATION THIS JOB STEP WILL COMBINE 7 PSEUDOSTRUCTURES CONNECTIONS ARE GENERATED AUTOMATICALLY. THE RESULTANT PSEUDOSTRUCTURE NAME IS RING THE TOLERANCE ON CONNECTIONS IS 0.200000E-01 THE PRINT CONTROL OPTIONS ARE 1 2 7 11 12 13 14 15 16 17 COMPONENT SUBSTRUCTURE NO. 1 NAME = VANETOP COMPONENT SUBSTRUCTURE NO. 2 NAME = ROOTTOP COMPONENT SUBSTRUCTURE NO. 3 NAME = VANELFT TRANS SET ID = 400 COMPONENT SUBSTRUCTURE NO. 4 NAME = ROOTLFT TRANS SET ID = 400 COMPONENT SUBSTRUCTURE NO. 5 NAME = VANEBOT SYMMETRY DIRECTIONS = Y COMPONENT SUBSTRUCTURE NO. 6 NAME = ROOTBOT SYMMETRY DIRECTIONS = Y COMPONENT SUBSTRUCTURE NO. 7 NAME = ROOTRGT TRANS SET ID = 300 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 P S E U D O S T R U C T U R E T A B L E O F C O N T E N T S PSEUDO- NO. OF STRUCTURE COMPONENTS ---------- COMPONENT NAMES ----------- VANETOP 2 + VANE1 VANE2 ROOTTOP 2 + ROOT1 ROOT2 VANELFT 2 + LVANE1 LVANE2 ROOTLFT 2 + LROOT1 LROOT2 VANEBOT 2 + BVANE1 BVANE2 ROOTBOT 2 + BROOT1 BROOT2 ROOTRGT 2 + RROOT1 RROOT2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PROCESSED TRANS BULK DATA TRANS SET IDENTIFICATION NUMBER = 300 COORDINATES OF ORIGIN IN BASIC SYSTEM 0.000000E+00 0.000000E+00 0.000000E+00 TRANSFORMATION MATRIX ***** ***** * * * 0.000000E+00 0.100000E+01 0.000000E+00 * * * * -0.100000E+01 0.000000E+00 0.000000E+00 * * * * 0.000000E+00 0.000000E+00 0.100000E+01 * * * ***** ***** TRANS SET IDENTIFICATION NUMBER = 400 COORDINATES OF ORIGIN IN BASIC SYSTEM 0.000000E+00 0.000000E+00 0.000000E+00 TRANSFORMATION MATRIX ***** ***** * * * 0.000000E+00 -0.100000E+01 0.000000E+00 * * * * 0.100000E+01 0.000000E+00 0.000000E+00 * * * * 0.000000E+00 0.000000E+00 0.100000E+01 * * * ***** ***** 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF AUTOMATICALLY GENERATED CONNECTIONS CONNECTED CONNECTION PSEUDOSTRUCTURE NAMES DOF CODE VANETOP ROOTTOP VANELFT ROOTLFT VANEBOT ROOTBOT ROOTRGT 12 12 9 12 0 0 0 0 0 12 12 6 8 0 0 0 0 0 12 12 4 1 0 0 0 0 0 12 24 0 9 0 4 0 0 0 12 24 0 10 0 5 0 0 0 12 27 0 5 0 0 0 0 10 12 27 0 4 0 0 0 0 9 12 34 0 0 9 12 0 0 0 12 34 0 0 4 1 0 0 0 12 34 0 0 6 8 0 0 0 12 46 0 0 0 9 0 9 0 12 46 0 0 0 10 0 10 0 12 56 0 0 0 0 9 12 0 12 56 0 0 0 0 6 8 0 12 56 0 0 0 0 4 1 0 12 67 0 0 0 0 0 5 5 12 67 0 0 0 0 0 4 4 NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL GRID NUMBERS 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM VANETOP ROOTTOP VANELFT ROOTLFT VANEBOT ROOTBOT ROOTRGT 1 1 12 VANE1 2 --------------------------------------------------------------------------------------------------------------- 2 3 12 VANE1 4 --------------------------------------------------------------------------------------------------------------- 3 5 12 VANE1 6 --------------------------------------------------------------------------------------------------------------- 4 7 12 VANE1 5 VANE2 5 --------------------------------------------------------------------------------------------------------------- 5 9 12 VANE1 3 VANE2 3 --------------------------------------------------------------------------------------------------------------- 6 11 12 VANE1 1 VANE2 1 --------------------------------------------------------------------------------------------------------------- 7 13 12 VANE2 6 --------------------------------------------------------------------------------------------------------------- 8 15 12 VANE2 2 --------------------------------------------------------------------------------------------------------------- 9 17 12 VANE2 4 --------------------------------------------------------------------------------------------------------------- 10 19 12 VANE1 ROOT1 8 2 --------------------------------------------------------------------------------------------------------------- 11 21 12 VANE1 ROOT1 7 1 VANE2 ROOT2 7 1 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM VANETOP ROOTTOP VANELFT ROOTLFT VANEBOT ROOTBOT ROOTRGT 12 23 12 VANE2 ROOT2 8 2 --------------------------------------------------------------------------------------------------------------- 13 25 12 ROOT1 6 --------------------------------------------------------------------------------------------------------------- 14 27 12 ROOT1 4 --------------------------------------------------------------------------------------------------------------- 15 29 12 ROOT2 4 --------------------------------------------------------------------------------------------------------------- 16 31 12 ROOT1 3 ROOT2 3 --------------------------------------------------------------------------------------------------------------- 17 33 12 ROOT1 5 ROOT2 5 --------------------------------------------------------------------------------------------------------------- 18 35 12 ROOT2 6 --------------------------------------------------------------------------------------------------------------- 19 37 12 LVANE1 5 LVANE2 5 --------------------------------------------------------------------------------------------------------------- 20 39 12 LVANE1 2 --------------------------------------------------------------------------------------------------------------- 21 41 12 LVANE1 4 --------------------------------------------------------------------------------------------------------------- 22 43 12 LVANE1 6 --------------------------------------------------------------------------------------------------------------- 23 45 12 LVANE2 2 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM VANETOP ROOTTOP VANELFT ROOTLFT VANEBOT ROOTBOT ROOTRGT 24 47 12 LVANE2 4 --------------------------------------------------------------------------------------------------------------- 25 49 12 LVANE1 1 LVANE2 1 --------------------------------------------------------------------------------------------------------------- 26 51 12 LVANE1 3 LVANE2 3 --------------------------------------------------------------------------------------------------------------- 27 53 12 LVANE2 6 --------------------------------------------------------------------------------------------------------------- 28 55 12 ROOT2 LROOT1 8 8 --------------------------------------------------------------------------------------------------------------- 29 57 12 ROOT2 LROOT1 7 7 --------------------------------------------------------------------------------------------------------------- 30 59 12 LVANE1 LROOT1 8 2 --------------------------------------------------------------------------------------------------------------- 31 61 12 LVANE2 LROOT2 8 2 --------------------------------------------------------------------------------------------------------------- 32 63 12 LVANE1 LROOT1 7 1 LVANE2 LROOT2 7 1 --------------------------------------------------------------------------------------------------------------- 33 65 12 LROOT1 6 --------------------------------------------------------------------------------------------------------------- 34 67 12 LROOT1 4 --------------------------------------------------------------------------------------------------------------- 35 69 12 LROOT2 6 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM VANETOP ROOTTOP VANELFT ROOTLFT VANEBOT ROOTBOT ROOTRGT 36 71 12 LROOT2 4 --------------------------------------------------------------------------------------------------------------- 37 73 12 LROOT1 3 LROOT2 3 --------------------------------------------------------------------------------------------------------------- 38 75 12 LROOT1 5 LROOT2 5 --------------------------------------------------------------------------------------------------------------- 39 77 12 BVANE1 3 BVANE2 3 --------------------------------------------------------------------------------------------------------------- 40 79 12 BVANE1 1 BVANE2 1 --------------------------------------------------------------------------------------------------------------- 41 81 12 BVANE1 6 --------------------------------------------------------------------------------------------------------------- 42 83 12 BVANE1 4 --------------------------------------------------------------------------------------------------------------- 43 85 12 BVANE1 2 --------------------------------------------------------------------------------------------------------------- 44 87 12 BVANE2 4 --------------------------------------------------------------------------------------------------------------- 45 89 12 BVANE2 6 --------------------------------------------------------------------------------------------------------------- 46 91 12 BVANE1 5 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM VANETOP ROOTTOP VANELFT ROOTLFT VANEBOT ROOTBOT ROOTRGT BVANE2 5 --------------------------------------------------------------------------------------------------------------- 47 93 12 BVANE2 2 --------------------------------------------------------------------------------------------------------------- 48 95 12 LROOT2 BROOT2 7 7 --------------------------------------------------------------------------------------------------------------- 49 97 12 LROOT2 BROOT2 8 8 --------------------------------------------------------------------------------------------------------------- 50 99 12 BVANE2 BROOT2 8 2 --------------------------------------------------------------------------------------------------------------- 51 101 12 BVANE1 BROOT1 7 1 BVANE2 BROOT2 7 1 --------------------------------------------------------------------------------------------------------------- 52 103 12 BVANE1 BROOT1 8 2 --------------------------------------------------------------------------------------------------------------- 53 105 12 BROOT1 4 --------------------------------------------------------------------------------------------------------------- 54 107 12 BROOT2 4 --------------------------------------------------------------------------------------------------------------- 55 109 12 BROOT1 5 BROOT2 5 --------------------------------------------------------------------------------------------------------------- 56 111 12 BROOT2 6 --------------------------------------------------------------------------------------------------------------- 57 113 12 BROOT1 3 BROOT2 3 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM VANETOP ROOTTOP VANELFT ROOTLFT VANEBOT ROOTBOT ROOTRGT 58 115 12 BROOT1 6 --------------------------------------------------------------------------------------------------------------- 59 117 12 ROOT1 RROOT2 7 7 --------------------------------------------------------------------------------------------------------------- 60 119 12 ROOT1 RROOT2 8 8 --------------------------------------------------------------------------------------------------------------- 61 121 12 BROOT1 RROOT1 8 8 --------------------------------------------------------------------------------------------------------------- 62 123 12 BROOT1 RROOT1 7 7 --------------------------------------------------------------------------------------------------------------- 63 125 12 RROOT1 2 --------------------------------------------------------------------------------------------------------------- 64 127 12 RROOT1 4 --------------------------------------------------------------------------------------------------------------- 65 129 12 RROOT1 6 --------------------------------------------------------------------------------------------------------------- 66 131 12 RROOT1 3 RROOT2 3 --------------------------------------------------------------------------------------------------------------- 67 133 12 RROOT1 5 RROOT2 5 --------------------------------------------------------------------------------------------------------------- 68 135 12 RROOT1 1 RROOT2 1 --------------------------------------------------------------------------------------------------------------- 69 137 12 RROOT2 6 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM VANETOP ROOTTOP VANELFT ROOTLFT VANEBOT ROOTBOT ROOTRGT 70 139 12 RROOT2 2 --------------------------------------------------------------------------------------------------------------- 71 141 12 RROOT2 4 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT VANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 6 12 2 1 12 3 5 12 4 2 12 5 4 12 6 3 12 7 11 12 8 10 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT VANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 6 12 2 8 12 3 5 12 4 9 12 5 4 12 6 7 12 7 11 12 8 12 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT ROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 11 12 2 10 12 3 16 12 4 14 12 5 17 12 6 13 12 7 59 12 8 60 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT ROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 11 12 2 12 12 3 16 12 4 15 12 5 17 12 6 18 12 7 29 12 8 28 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT LVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 25 12 2 20 12 3 26 12 4 21 12 5 19 12 6 22 12 7 32 12 8 30 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT LVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 25 12 2 23 12 3 26 12 4 24 12 5 19 12 6 27 12 7 32 12 8 31 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT LROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 32 12 2 30 12 3 37 12 4 34 12 5 38 12 6 33 12 7 29 12 8 28 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT LROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 32 12 2 31 12 3 37 12 4 36 12 5 38 12 6 35 12 7 48 12 8 49 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT BVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 40 12 2 43 12 3 39 12 4 42 12 5 46 12 6 41 12 7 51 12 8 52 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT BVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 40 12 2 47 12 3 39 12 4 44 12 5 46 12 6 45 12 7 51 12 8 50 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT BROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 51 12 2 52 12 3 57 12 4 53 12 5 55 12 6 58 12 7 62 12 8 61 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 96 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT BROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 51 12 2 50 12 3 57 12 4 54 12 5 55 12 6 56 12 7 48 12 8 49 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 97 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT RROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 68 12 2 63 12 3 66 12 4 64 12 5 67 12 6 65 12 7 62 12 8 61 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 98 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE RING COMPONENT RROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 68 12 2 70 12 3 66 12 4 71 12 5 67 12 6 69 12 7 59 12 8 60 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 99 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE RING INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT POINT ID SIL ID DOF POINT ID SIL ID DOF POINT ID SIL ID DOF 1 1 12 2 3 12 3 5 12 4 7 12 5 9 12 6 11 12 7 13 12 8 15 12 9 17 12 10 19 12 11 21 12 12 23 12 13 25 12 14 27 12 15 29 12 16 31 12 17 33 12 18 35 12 19 37 12 20 39 12 21 41 12 22 43 12 23 45 12 24 47 12 25 49 12 26 51 12 27 53 12 28 55 12 29 57 12 30 59 12 31 61 12 32 63 12 33 65 12 34 67 12 35 69 12 36 71 12 37 73 12 38 75 12 39 77 12 40 79 12 41 81 12 42 83 12 43 85 12 44 87 12 45 89 12 46 91 12 47 93 12 48 95 12 49 97 12 50 99 12 51 101 12 52 103 12 53 105 12 54 107 12 55 109 12 56 111 12 57 113 12 58 115 12 59 117 12 60 119 12 61 121 12 62 123 12 63 125 12 64 127 12 65 129 12 66 131 12 67 133 12 68 135 12 69 137 12 70 139 12 71 141 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 100 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 BGSS ITEM FOR SUBSTRUCTURE RING INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 1 1 0.500000E+01 0.500000E+02 0.000000E+00 2 1 0.500000E+01 0.425000E+02 0.000000E+00 3 1 0.500000E+01 0.350000E+02 0.000000E+00 4 1 0.000000E+00 0.350000E+02 0.000000E+00 5 1 0.000000E+00 0.425000E+02 0.000000E+00 6 1 0.000000E+00 0.500000E+02 0.000000E+00 7 2 -0.500000E+01 0.350000E+02 0.000000E+00 8 2 -0.500000E+01 0.500000E+02 0.000000E+00 9 2 -0.500000E+01 0.425000E+02 0.000000E+00 10 0 0.500000E+01 0.275000E+02 0.000000E+00 11 0 0.000000E+00 0.275000E+02 0.000000E+00 12 0 -0.500000E+01 0.275000E+02 0.000000E+00 13 0 0.500000E+01 0.150000E+02 0.000000E+00 14 0 0.500000E+01 0.200000E+02 0.000000E+00 15 0 -0.500000E+01 0.200000E+02 0.000000E+00 16 0 0.000000E+00 0.200000E+02 0.000000E+00 17 0 0.000000E+00 0.150000E+02 0.000000E+00 18 0 -0.500000E+01 0.150000E+02 0.000000E+00 19 3 -0.350000E+02 0.000000E+00 0.000000E+00 20 3 -0.500000E+02 0.500000E+01 0.000000E+00 21 3 -0.425000E+02 0.500000E+01 0.000000E+00 22 3 -0.350000E+02 0.500000E+01 0.000000E+00 23 4 -0.500000E+02 -0.500000E+01 0.000000E+00 24 4 -0.425000E+02 -0.500000E+01 0.000000E+00 25 3 -0.500000E+02 0.000000E+00 0.000000E+00 26 3 -0.425000E+02 0.000000E+00 0.000000E+00 27 4 -0.350000E+02 -0.500000E+01 0.000000E+00 28 0 -0.100000E+02 0.100000E+02 0.000000E+00 29 0 -0.125000E+02 0.125000E+02 0.000000E+00 30 0 -0.275000E+02 0.500000E+01 0.000000E+00 31 0 -0.275000E+02 -0.500000E+01 0.000000E+00 32 0 -0.275000E+02 0.000000E+00 0.000000E+00 33 0 -0.150000E+02 0.500000E+01 0.000000E+00 34 0 -0.200000E+02 0.500000E+01 0.000000E+00 35 0 -0.150000E+02 -0.500000E+01 0.000000E+00 36 0 -0.200000E+02 -0.500000E+01 0.000000E+00 37 0 -0.200000E+02 0.000000E+00 0.000000E+00 38 0 -0.150000E+02 0.000000E+00 0.000000E+00 39 5 0.000000E+00 -0.425000E+02 0.000000E+00 40 5 0.000000E+00 -0.500000E+02 0.000000E+00 41 5 0.500000E+01 -0.350000E+02 0.000000E+00 42 5 0.500000E+01 -0.425000E+02 0.000000E+00 43 5 0.500000E+01 -0.500000E+02 0.000000E+00 44 6 -0.500000E+01 -0.425000E+02 0.000000E+00 45 6 -0.500000E+01 -0.350000E+02 0.000000E+00 46 5 0.000000E+00 -0.350000E+02 0.000000E+00 47 6 -0.500000E+01 -0.500000E+02 0.000000E+00 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 101 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 BGSS ITEM FOR SUBSTRUCTURE RING INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 48 0 -0.125000E+02 -0.125000E+02 0.000000E+00 49 0 -0.100000E+02 -0.100000E+02 0.000000E+00 50 0 -0.500000E+01 -0.275000E+02 0.000000E+00 51 0 0.000000E+00 -0.275000E+02 0.000000E+00 52 0 0.500000E+01 -0.275000E+02 0.000000E+00 53 0 0.500000E+01 -0.200000E+02 0.000000E+00 54 0 -0.500000E+01 -0.200000E+02 0.000000E+00 55 0 0.000000E+00 -0.150000E+02 0.000000E+00 56 0 -0.500000E+01 -0.150000E+02 0.000000E+00 57 0 0.000000E+00 -0.200000E+02 0.000000E+00 58 0 0.500000E+01 -0.150000E+02 0.000000E+00 59 0 0.125000E+02 0.125000E+02 0.000000E+00 60 0 0.100000E+02 0.100000E+02 0.000000E+00 61 0 0.100000E+02 -0.100000E+02 0.000000E+00 62 0 0.125000E+02 -0.125000E+02 0.000000E+00 63 0 0.275000E+02 -0.500000E+01 0.000000E+00 64 0 0.200000E+02 -0.500000E+01 0.000000E+00 65 0 0.150000E+02 -0.500000E+01 0.000000E+00 66 0 0.200000E+02 0.000000E+00 0.000000E+00 67 0 0.150000E+02 0.000000E+00 0.000000E+00 68 0 0.275000E+02 0.000000E+00 0.000000E+00 69 0 0.150000E+02 0.500000E+01 0.000000E+00 70 0 0.275000E+02 0.500000E+01 0.000000E+00 71 0 0.200000E+02 0.500000E+01 0.000000E+00 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 102 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 CSTM ITEM FOR SUBSTRUCTURE RING CSTM TYPE C O O R D I N A T E S O F O R I G I N T R A N S F O R M A T I O N ID X1 X2 X3 M A T R I X 1 1 0.500000E+01 0.225000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 2 1 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 3 1 0.500000E+01 0.225000E+02 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 4 1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 5 1 0.500000E+01 0.225000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 6 1 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 103 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 PLTS ITEM FOR SUBSTRUCTURE RING COMPONENT C O O R D I N A T E S O F OR I G I N T R A N S F O R M A T I O N NAME X1 X2 X3 M A T R I X VANE1 0.000000E+00 0.275000E+02 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 VANE2 0.000000E+00 0.275000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 ROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 ROOT2 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LVANE1 -0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LVANE2 -0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LROOT2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 BVANE1 0.000000E+00 -0.275000E+02 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 BVANE2 0.000000E+00 -0.275000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 BROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 104 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 PLTS ITEM FOR SUBSTRUCTURE RING COMPONENT C O O R D I N A T E S O F OR I G I N T R A N S F O R M A T I O N NAME X1 X2 X3 M A T R I X BROOT2 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RROOT2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 105 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 LODS ITEM FOR SUBSTRUCTURE RING COMPONENT NUMBER OF NAME LOAD SETS L O A D S E T I D E N T I F I C A T I O N N U M B E R S VANE1 2 1 2 VANE2 2 1 2 ROOT1 1 1 ROOT2 1 1 LVANE1 2 1 2 LVANE2 2 1 2 LROOT1 1 1 LROOT2 1 1 BVANE1 2 1 2 BVANE2 2 1 2 BROOT1 1 1 BROOT2 1 1 RROOT1 1 1 RROOT2 1 1 0*** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 106 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 0 0 3 3 3 3 3 3 3 3 2 ROOT1 B 24 0 0 6 7 3 3 3 3 3 3 3 3 3 VANE1 B 15 0 0 4 5 3 3 3 3 3 3 3 3 3 4 VANE2 B 14 3 0 3 5 3 0 0 3 3 0 0 0 3 5 VANETOP C 16 0 3 7 26 3 3 3 3 3 3 3 3 3 6 ROOT2 B 23 2 0 2 7 3 0 3 3 0 0 0 3 7 ROOTTOP C 25 0 2 10 26 3 3 3 3 3 3 3 3 8 LVANE2 IB 0 3 0 9 10 3 0 0 3 3 0 0 0 0 9 LVANE1 IB 4 3 0 8 10 3 0 0 3 3 0 0 0 0 10 VANELFT C 0 5 9 19 26 3 0 0 3 3 0 0 0 3 11 RVANE2 IB 8 3 0 12 13 3 0 0 3 3 0 0 0 0 12 RVANE1 IB 9 3 0 11 13 3 0 0 3 3 0 0 0 0 13 VANERGT C 10 5 12 0 0 3 0 0 3 3 0 0 0 14 BVANE2 IB 11 3 0 15 16 3 0 0 3 3 0 0 0 0 15 BVANE1 IB 12 3 0 14 16 3 0 0 3 3 0 0 0 0 16 VANEBOT C 13 5 15 25 26 3 0 0 3 3 0 0 0 3 17 LROOT2 IB 0 2 0 18 19 3 0 3 3 0 0 0 0 18 LROOT1 IB 6 2 0 17 19 3 0 3 3 0 0 0 0 19 ROOTLFT C 0 7 18 16 26 3 0 3 3 0 0 0 3 20 RROOT2 IB 17 2 0 21 22 3 0 3 3 0 0 0 0 21 RROOT1 IB 18 2 0 20 22 3 0 3 3 0 0 0 0 22 ROOTRGT C 19 7 21 5 26 3 0 3 3 0 0 0 3 23 BROOT2 IB 20 2 0 24 25 3 0 3 3 0 0 0 0 24 BROOT1 IB 21 2 0 23 25 3 0 3 3 0 0 0 0 25 ROOTBOT C 22 7 24 22 26 3 0 3 3 0 0 0 3 26 RING C 0 0 5 0 0 3 3 3 3 3 4 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 818176 WORDS. OR = 799 BLOCKS. OR = 86 PERCENT. 0*** HIGHEST BLOCK USED = 127 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 107 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF CASE CONTROL FOR COMBINE OPERATION THIS JOB STEP WILL COMBINE 2 PSEUDOSTRUCTURES CONNECTIONS ARE GENERATED AUTOMATICALLY. THE RESULTANT PSEUDOSTRUCTURE NAME IS BLADES THE TOLERANCE ON CONNECTIONS IS 0.200000E-01 THE PRINT CONTROL OPTIONS ARE 1 2 7 11 12 13 14 15 16 17 COMPONENT SUBSTRUCTURE NO. 1 NAME = RING COMPONENT SUBSTRUCTURE NO. 2 NAME = VANERGT TRANS SET ID = 500 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 108 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 P S E U D O S T R U C T U R E T A B L E O F C O N T E N T S PSEUDO- NO. OF STRUCTURE COMPONENTS ---------- COMPONENT NAMES ----------- RING 14 + VANE1 VANE2 ROOT1 ROOT2 LVANE1 LVANE2 LROOT1 LROOT2 BVANE1 BVANE2 BROOT1 BROOT2 RROOT1 RROOT2 VANERGT 2 + RVANE1 RVANE2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 109 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PROCESSED TRANS BULK DATA TRANS SET IDENTIFICATION NUMBER = 500 COORDINATES OF ORIGIN IN BASIC SYSTEM 0.000000E+00 0.000000E+00 0.000000E+00 TRANSFORMATION MATRIX ***** ***** * * * 0.000000E+00 0.100000E+01 0.000000E+00 * * * * -0.100000E+01 0.000000E+00 0.000000E+00 * * * * 0.000000E+00 0.000000E+00 0.100000E+01 * * * ***** ***** 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 110 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF AUTOMATICALLY GENERATED CONNECTIONS CONNECTED CONNECTION PSEUDOSTRUCTURE NAMES DOF CODE RING VANERGT 12 12 68 6 12 12 70 9 12 12 63 4 NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL GRID NUMBERS 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 111 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM RING VANERGT 1 1 12 VANE1 2 --------------------------------------------------------------------------------------------------------------- 2 3 12 VANE1 4 --------------------------------------------------------------------------------------------------------------- 3 5 12 VANE1 6 --------------------------------------------------------------------------------------------------------------- 4 7 12 VANE1 5 VANE2 5 --------------------------------------------------------------------------------------------------------------- 5 9 12 VANE1 3 VANE2 3 --------------------------------------------------------------------------------------------------------------- 6 11 12 VANE1 1 VANE2 1 --------------------------------------------------------------------------------------------------------------- 7 13 12 VANE2 6 --------------------------------------------------------------------------------------------------------------- 8 15 12 VANE2 2 --------------------------------------------------------------------------------------------------------------- 9 17 12 VANE2 4 --------------------------------------------------------------------------------------------------------------- 10 19 12 VANE1 8 ROOT1 2 --------------------------------------------------------------------------------------------------------------- 11 21 12 VANE1 7 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 112 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM RING VANERGT VANE2 7 ROOT1 1 ROOT2 1 --------------------------------------------------------------------------------------------------------------- 12 23 12 VANE2 8 ROOT2 2 --------------------------------------------------------------------------------------------------------------- 13 25 12 ROOT1 6 --------------------------------------------------------------------------------------------------------------- 14 27 12 ROOT1 4 --------------------------------------------------------------------------------------------------------------- 15 29 12 ROOT2 4 --------------------------------------------------------------------------------------------------------------- 16 31 12 ROOT1 3 ROOT2 3 --------------------------------------------------------------------------------------------------------------- 17 33 12 ROOT1 5 ROOT2 5 --------------------------------------------------------------------------------------------------------------- 18 35 12 ROOT2 6 --------------------------------------------------------------------------------------------------------------- 19 37 12 LVANE1 5 LVANE2 5 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 113 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM RING VANERGT 20 39 12 LVANE1 2 --------------------------------------------------------------------------------------------------------------- 21 41 12 LVANE1 4 --------------------------------------------------------------------------------------------------------------- 22 43 12 LVANE1 6 --------------------------------------------------------------------------------------------------------------- 23 45 12 LVANE2 2 --------------------------------------------------------------------------------------------------------------- 24 47 12 LVANE2 4 --------------------------------------------------------------------------------------------------------------- 25 49 12 LVANE1 1 LVANE2 1 --------------------------------------------------------------------------------------------------------------- 26 51 12 LVANE1 3 LVANE2 3 --------------------------------------------------------------------------------------------------------------- 27 53 12 LVANE2 6 --------------------------------------------------------------------------------------------------------------- 28 55 12 ROOT2 8 LROOT1 8 --------------------------------------------------------------------------------------------------------------- 29 57 12 ROOT2 7 LROOT1 7 --------------------------------------------------------------------------------------------------------------- 30 59 12 LVANE1 8 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 114 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM RING VANERGT LROOT1 2 --------------------------------------------------------------------------------------------------------------- 31 61 12 LVANE2 8 LROOT2 2 --------------------------------------------------------------------------------------------------------------- 32 63 12 LVANE1 7 LVANE2 7 LROOT1 1 LROOT2 1 --------------------------------------------------------------------------------------------------------------- 33 65 12 LROOT1 6 --------------------------------------------------------------------------------------------------------------- 34 67 12 LROOT1 4 --------------------------------------------------------------------------------------------------------------- 35 69 12 LROOT2 6 --------------------------------------------------------------------------------------------------------------- 36 71 12 LROOT2 4 --------------------------------------------------------------------------------------------------------------- 37 73 12 LROOT1 3 LROOT2 3 --------------------------------------------------------------------------------------------------------------- 38 75 12 LROOT1 5 LROOT2 5 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 115 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM RING VANERGT 39 77 12 BVANE1 3 BVANE2 3 --------------------------------------------------------------------------------------------------------------- 40 79 12 BVANE1 1 BVANE2 1 --------------------------------------------------------------------------------------------------------------- 41 81 12 BVANE1 6 --------------------------------------------------------------------------------------------------------------- 42 83 12 BVANE1 4 --------------------------------------------------------------------------------------------------------------- 43 85 12 BVANE1 2 --------------------------------------------------------------------------------------------------------------- 44 87 12 BVANE2 4 --------------------------------------------------------------------------------------------------------------- 45 89 12 BVANE2 6 --------------------------------------------------------------------------------------------------------------- 46 91 12 BVANE1 5 BVANE2 5 --------------------------------------------------------------------------------------------------------------- 47 93 12 BVANE2 2 --------------------------------------------------------------------------------------------------------------- 48 95 12 LROOT2 7 BROOT2 7 --------------------------------------------------------------------------------------------------------------- 49 97 12 LROOT2 8 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 116 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM RING VANERGT BROOT2 8 --------------------------------------------------------------------------------------------------------------- 50 99 12 BVANE2 8 BROOT2 2 --------------------------------------------------------------------------------------------------------------- 51 101 12 BVANE1 7 BVANE2 7 BROOT1 1 BROOT2 1 --------------------------------------------------------------------------------------------------------------- 52 103 12 BVANE1 8 BROOT1 2 --------------------------------------------------------------------------------------------------------------- 53 105 12 BROOT1 4 --------------------------------------------------------------------------------------------------------------- 54 107 12 BROOT2 4 --------------------------------------------------------------------------------------------------------------- 55 109 12 BROOT1 5 BROOT2 5 --------------------------------------------------------------------------------------------------------------- 56 111 12 BROOT2 6 --------------------------------------------------------------------------------------------------------------- 57 113 12 BROOT1 3 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 117 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM RING VANERGT BROOT2 3 --------------------------------------------------------------------------------------------------------------- 58 115 12 BROOT1 6 --------------------------------------------------------------------------------------------------------------- 59 117 12 ROOT1 7 RROOT2 7 --------------------------------------------------------------------------------------------------------------- 60 119 12 ROOT1 8 RROOT2 8 --------------------------------------------------------------------------------------------------------------- 61 121 12 BROOT1 8 RROOT1 8 --------------------------------------------------------------------------------------------------------------- 62 123 12 BROOT1 7 RROOT1 7 --------------------------------------------------------------------------------------------------------------- 63 125 12 RROOT1 4 --------------------------------------------------------------------------------------------------------------- 64 127 12 RROOT1 6 --------------------------------------------------------------------------------------------------------------- 65 129 12 RROOT1 3 RROOT2 3 --------------------------------------------------------------------------------------------------------------- 66 131 12 RROOT1 5 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 118 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM RING VANERGT RROOT2 5 --------------------------------------------------------------------------------------------------------------- 67 133 12 RROOT2 6 --------------------------------------------------------------------------------------------------------------- 68 135 12 RROOT2 4 --------------------------------------------------------------------------------------------------------------- 69 137 12 RROOT2 RVANE2 2 8 --------------------------------------------------------------------------------------------------------------- 70 139 12 RROOT1 RVANE1 2 8 --------------------------------------------------------------------------------------------------------------- 71 141 12 RROOT1 RVANE1 1 7 RROOT2 RVANE2 1 7 --------------------------------------------------------------------------------------------------------------- 72 143 12 RVANE1 5 RVANE2 5 --------------------------------------------------------------------------------------------------------------- 73 145 12 RVANE1 6 --------------------------------------------------------------------------------------------------------------- 74 147 12 RVANE1 1 RVANE2 1 --------------------------------------------------------------------------------------------------------------- 75 149 12 RVANE2 6 --------------------------------------------------------------------------------------------------------------- 76 151 12 RVANE2 2 --------------------------------------------------------------------------------------------------------------- 77 153 12 RVANE2 4 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 119 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM RING VANERGT 78 155 12 RVANE1 3 RVANE2 3 --------------------------------------------------------------------------------------------------------------- 79 157 12 RVANE1 2 --------------------------------------------------------------------------------------------------------------- 80 159 12 RVANE1 4 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 120 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT VANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 6 12 2 1 12 3 5 12 4 2 12 5 4 12 6 3 12 7 11 12 8 10 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 121 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT VANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 6 12 2 8 12 3 5 12 4 9 12 5 4 12 6 7 12 7 11 12 8 12 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 122 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT ROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 11 12 2 10 12 3 16 12 4 14 12 5 17 12 6 13 12 7 59 12 8 60 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 123 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT ROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 11 12 2 12 12 3 16 12 4 15 12 5 17 12 6 18 12 7 29 12 8 28 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 124 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT LVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 25 12 2 20 12 3 26 12 4 21 12 5 19 12 6 22 12 7 32 12 8 30 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 125 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT LVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 25 12 2 23 12 3 26 12 4 24 12 5 19 12 6 27 12 7 32 12 8 31 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 126 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT LROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 32 12 2 30 12 3 37 12 4 34 12 5 38 12 6 33 12 7 29 12 8 28 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 127 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT LROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 32 12 2 31 12 3 37 12 4 36 12 5 38 12 6 35 12 7 48 12 8 49 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 128 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT BVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 40 12 2 43 12 3 39 12 4 42 12 5 46 12 6 41 12 7 51 12 8 52 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 129 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT BVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 40 12 2 47 12 3 39 12 4 44 12 5 46 12 6 45 12 7 51 12 8 50 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 130 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT BROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 51 12 2 52 12 3 57 12 4 53 12 5 55 12 6 58 12 7 62 12 8 61 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 131 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT BROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 51 12 2 50 12 3 57 12 4 54 12 5 55 12 6 56 12 7 48 12 8 49 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 132 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT RROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 71 12 2 70 12 3 65 12 4 63 12 5 66 12 6 64 12 7 62 12 8 61 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 133 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT RROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 71 12 2 69 12 3 65 12 4 68 12 5 66 12 6 67 12 7 59 12 8 60 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 134 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT RVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 74 12 2 79 12 3 78 12 4 80 12 5 72 12 6 73 12 7 71 12 8 70 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 135 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE BLADES COMPONENT RVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 74 12 2 76 12 3 78 12 4 77 12 5 72 12 6 75 12 7 71 12 8 69 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 136 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE BLADES INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT POINT ID SIL ID DOF POINT ID SIL ID DOF POINT ID SIL ID DOF 1 1 12 2 3 12 3 5 12 4 7 12 5 9 12 6 11 12 7 13 12 8 15 12 9 17 12 10 19 12 11 21 12 12 23 12 13 25 12 14 27 12 15 29 12 16 31 12 17 33 12 18 35 12 19 37 12 20 39 12 21 41 12 22 43 12 23 45 12 24 47 12 25 49 12 26 51 12 27 53 12 28 55 12 29 57 12 30 59 12 31 61 12 32 63 12 33 65 12 34 67 12 35 69 12 36 71 12 37 73 12 38 75 12 39 77 12 40 79 12 41 81 12 42 83 12 43 85 12 44 87 12 45 89 12 46 91 12 47 93 12 48 95 12 49 97 12 50 99 12 51 101 12 52 103 12 53 105 12 54 107 12 55 109 12 56 111 12 57 113 12 58 115 12 59 117 12 60 119 12 61 121 12 62 123 12 63 125 12 64 127 12 65 129 12 66 131 12 67 133 12 68 135 12 69 137 12 70 139 12 71 141 12 72 143 12 73 145 12 74 147 12 75 149 12 76 151 12 77 153 12 78 155 12 79 157 12 80 159 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 137 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 BGSS ITEM FOR SUBSTRUCTURE BLADES INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 1 1 0.500000E+01 0.500000E+02 0.000000E+00 2 1 0.500000E+01 0.425000E+02 0.000000E+00 3 1 0.500000E+01 0.350000E+02 0.000000E+00 4 1 0.000000E+00 0.350000E+02 0.000000E+00 5 1 0.000000E+00 0.425000E+02 0.000000E+00 6 1 0.000000E+00 0.500000E+02 0.000000E+00 7 2 -0.500000E+01 0.350000E+02 0.000000E+00 8 2 -0.500000E+01 0.500000E+02 0.000000E+00 9 2 -0.500000E+01 0.425000E+02 0.000000E+00 10 0 0.500000E+01 0.275000E+02 0.000000E+00 11 0 0.000000E+00 0.275000E+02 0.000000E+00 12 0 -0.500000E+01 0.275000E+02 0.000000E+00 13 0 0.500000E+01 0.150000E+02 0.000000E+00 14 0 0.500000E+01 0.200000E+02 0.000000E+00 15 0 -0.500000E+01 0.200000E+02 0.000000E+00 16 0 0.000000E+00 0.200000E+02 0.000000E+00 17 0 0.000000E+00 0.150000E+02 0.000000E+00 18 0 -0.500000E+01 0.150000E+02 0.000000E+00 19 3 -0.350000E+02 0.000000E+00 0.000000E+00 20 3 -0.500000E+02 0.500000E+01 0.000000E+00 21 3 -0.425000E+02 0.500000E+01 0.000000E+00 22 3 -0.350000E+02 0.500000E+01 0.000000E+00 23 4 -0.500000E+02 -0.500000E+01 0.000000E+00 24 4 -0.425000E+02 -0.500000E+01 0.000000E+00 25 3 -0.500000E+02 0.000000E+00 0.000000E+00 26 3 -0.425000E+02 0.000000E+00 0.000000E+00 27 4 -0.350000E+02 -0.500000E+01 0.000000E+00 28 0 -0.100000E+02 0.100000E+02 0.000000E+00 29 0 -0.125000E+02 0.125000E+02 0.000000E+00 30 0 -0.275000E+02 0.500000E+01 0.000000E+00 31 0 -0.275000E+02 -0.500000E+01 0.000000E+00 32 0 -0.275000E+02 0.000000E+00 0.000000E+00 33 0 -0.150000E+02 0.500000E+01 0.000000E+00 34 0 -0.200000E+02 0.500000E+01 0.000000E+00 35 0 -0.150000E+02 -0.500000E+01 0.000000E+00 36 0 -0.200000E+02 -0.500000E+01 0.000000E+00 37 0 -0.200000E+02 0.000000E+00 0.000000E+00 38 0 -0.150000E+02 0.000000E+00 0.000000E+00 39 5 0.000000E+00 -0.425000E+02 0.000000E+00 40 5 0.000000E+00 -0.500000E+02 0.000000E+00 41 5 0.500000E+01 -0.350000E+02 0.000000E+00 42 5 0.500000E+01 -0.425000E+02 0.000000E+00 43 5 0.500000E+01 -0.500000E+02 0.000000E+00 44 6 -0.500000E+01 -0.425000E+02 0.000000E+00 45 6 -0.500000E+01 -0.350000E+02 0.000000E+00 46 5 0.000000E+00 -0.350000E+02 0.000000E+00 47 6 -0.500000E+01 -0.500000E+02 0.000000E+00 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 138 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 BGSS ITEM FOR SUBSTRUCTURE BLADES INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 48 0 -0.125000E+02 -0.125000E+02 0.000000E+00 49 0 -0.100000E+02 -0.100000E+02 0.000000E+00 50 0 -0.500000E+01 -0.275000E+02 0.000000E+00 51 0 0.000000E+00 -0.275000E+02 0.000000E+00 52 0 0.500000E+01 -0.275000E+02 0.000000E+00 53 0 0.500000E+01 -0.200000E+02 0.000000E+00 54 0 -0.500000E+01 -0.200000E+02 0.000000E+00 55 0 0.000000E+00 -0.150000E+02 0.000000E+00 56 0 -0.500000E+01 -0.150000E+02 0.000000E+00 57 0 0.000000E+00 -0.200000E+02 0.000000E+00 58 0 0.500000E+01 -0.150000E+02 0.000000E+00 59 0 0.125000E+02 0.125000E+02 0.000000E+00 60 0 0.100000E+02 0.100000E+02 0.000000E+00 61 0 0.100000E+02 -0.100000E+02 0.000000E+00 62 0 0.125000E+02 -0.125000E+02 0.000000E+00 63 0 0.200000E+02 -0.500000E+01 0.000000E+00 64 0 0.150000E+02 -0.500000E+01 0.000000E+00 65 0 0.200000E+02 0.000000E+00 0.000000E+00 66 0 0.150000E+02 0.000000E+00 0.000000E+00 67 0 0.150000E+02 0.500000E+01 0.000000E+00 68 0 0.200000E+02 0.500000E+01 0.000000E+00 69 0 0.275000E+02 0.500000E+01 0.000000E+00 70 0 0.275000E+02 -0.500000E+01 0.000000E+00 71 0 0.275000E+02 0.000000E+00 0.000000E+00 72 7 0.350000E+02 0.000000E+00 0.000000E+00 73 7 0.350000E+02 -0.500000E+01 0.000000E+00 74 7 0.500000E+02 0.000000E+00 0.000000E+00 75 8 0.350000E+02 0.500000E+01 0.000000E+00 76 8 0.500000E+02 0.500000E+01 0.000000E+00 77 8 0.425000E+02 0.500000E+01 0.000000E+00 78 7 0.425000E+02 0.000000E+00 0.000000E+00 79 7 0.500000E+02 -0.500000E+01 0.000000E+00 80 7 0.425000E+02 -0.500000E+01 0.000000E+00 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 139 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 CSTM ITEM FOR SUBSTRUCTURE BLADES CSTM TYPE C O O R D I N A T E S O F O R I G I N T R A N S F O R M A T I O N ID X1 X2 X3 M A T R I X 1 1 0.500000E+01 0.225000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 2 1 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 3 1 0.500000E+01 0.225000E+02 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 4 1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 5 1 0.500000E+01 0.225000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 6 1 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 7 1 0.500000E+01 0.225000E+02 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 8 1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 140 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 PLTS ITEM FOR SUBSTRUCTURE BLADES COMPONENT C O O R D I N A T E S O F OR I G I N T R A N S F O R M A T I O N NAME X1 X2 X3 M A T R I X VANE1 0.000000E+00 0.275000E+02 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 VANE2 0.000000E+00 0.275000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 ROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 ROOT2 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LVANE1 -0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LVANE2 -0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LROOT2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 BVANE1 0.000000E+00 -0.275000E+02 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 BVANE2 0.000000E+00 -0.275000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 BROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 141 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 PLTS ITEM FOR SUBSTRUCTURE BLADES COMPONENT C O O R D I N A T E S O F OR I G I N T R A N S F O R M A T I O N NAME X1 X2 X3 M A T R I X BROOT2 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RROOT2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RVANE1 0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RVANE2 0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 142 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 LODS ITEM FOR SUBSTRUCTURE BLADES COMPONENT NUMBER OF NAME LOAD SETS L O A D S E T I D E N T I F I C A T I O N N U M B E R S VANE1 2 1 2 VANE2 2 1 2 ROOT1 1 1 ROOT2 1 1 LVANE1 2 1 2 LVANE2 2 1 2 LROOT1 1 1 LROOT2 1 1 BVANE1 2 1 2 BVANE2 2 1 2 BROOT1 1 1 BROOT2 1 1 RROOT1 1 1 RROOT2 1 1 RVANE1 2 1 2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 143 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 LODS ITEM FOR SUBSTRUCTURE BLADES COMPONENT NUMBER OF NAME LOAD SETS L O A D S E T I D E N T I F I C A T I O N N U M B E R S RVANE2 2 1 2 0*** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 144 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 0 0 3 3 3 3 3 3 3 3 2 ROOT1 B 24 0 0 6 7 3 3 3 3 3 3 3 3 3 VANE1 B 15 0 0 4 5 3 3 3 3 3 3 3 3 3 4 VANE2 B 14 3 0 3 5 3 0 0 3 3 0 0 0 3 5 VANETOP C 16 0 3 7 26 3 3 3 3 3 3 3 3 3 6 ROOT2 B 23 2 0 2 7 3 0 3 3 0 0 0 3 7 ROOTTOP C 25 0 2 10 26 3 3 3 3 3 3 3 3 8 LVANE2 IB 0 3 0 9 10 3 0 0 3 3 0 0 0 0 9 LVANE1 IB 4 3 0 8 10 3 0 0 3 3 0 0 0 0 10 VANELFT C 0 5 9 19 26 3 0 0 3 3 0 0 0 3 11 RVANE2 IB 8 3 0 12 13 3 0 0 3 3 0 0 0 0 12 RVANE1 IB 9 3 0 11 13 3 0 0 3 3 0 0 0 0 13 VANERGT C 10 5 12 26 27 3 0 0 3 3 0 0 0 3 14 BVANE2 IB 11 3 0 15 16 3 0 0 3 3 0 0 0 0 15 BVANE1 IB 12 3 0 14 16 3 0 0 3 3 0 0 0 0 16 VANEBOT C 13 5 15 25 26 3 0 0 3 3 0 0 0 3 17 LROOT2 IB 0 2 0 18 19 3 0 3 3 0 0 0 0 18 LROOT1 IB 6 2 0 17 19 3 0 3 3 0 0 0 0 19 ROOTLFT C 0 7 18 16 26 3 0 3 3 0 0 0 3 20 RROOT2 IB 17 2 0 21 22 3 0 3 3 0 0 0 0 21 RROOT1 IB 18 2 0 20 22 3 0 3 3 0 0 0 0 22 ROOTRGT C 19 7 21 5 26 3 0 3 3 0 0 0 3 23 BROOT2 IB 20 2 0 24 25 3 0 3 3 0 0 0 0 24 BROOT1 IB 21 2 0 23 25 3 0 3 3 0 0 0 0 25 ROOTBOT C 22 7 24 22 26 3 0 3 3 0 0 0 3 26 RING C 0 0 5 13 27 3 3 3 3 3 4 3 3 3 27 BLADES C 0 0 26 0 0 3 3 3 3 3 4 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 799744 WORDS. OR = 781 BLOCKS. OR = 84 PERCENT. 0*** HIGHEST BLOCK USED = 145 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 145 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF CASE CONTROL FOR COMBINE OPERATION THIS JOB STEP WILL COMBINE 2 PSEUDOSTRUCTURES CONNECTIONS ARE GENERATED AUTOMATICALLY. THE CONNECTION SET ID IS 1000 THE RESULTANT PSEUDOSTRUCTURE NAME IS WINDMIL THE TOLERANCE ON CONNECTIONS IS 0.200000E-01 THE PRINT CONTROL OPTIONS ARE 1 2 9 11 12 13 14 15 16 17 COMPONENT SUBSTRUCTURE NO. 1 NAME = HUB COMPONENT SUBSTRUCTURE NO. 2 NAME = BLADES 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 146 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 P S E U D O S T R U C T U R E T A B L E O F C O N T E N T S PSEUDO- NO. OF STRUCTURE COMPONENTS ---------- COMPONENT NAMES ----------- HUB 1 + HUB BLADES 16 + VANE1 VANE2 ROOT1 ROOT2 LVANE1 LVANE2 LROOT1 LROOT2 BVANE1 BVANE2 BROOT1 BROOT2 RROOT1 RROOT2 RVANE1 RVANE2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 147 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PROCESSED RELES BULK DATA BASIC GRID REQUESTED INTERNAL CURRENT DOF TO BE SUBSTRUCTURE POINT ID RELEASE POINT NO. DOF RELEASED HUB 5 2 4 123456 2 HUB 17 1 20 123456 1 HUB 29 2 29 123456 2 HUB 41 1 13 123456 1 HUB 108 12 8 123456 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 148 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF AUTOMATICALLY GENERATED CONNECTIONS CONNECTED CONNECTION PSEUDOSTRUCTURE NAMES DOF CODE HUB BLADES 12 12 17 35 12 12 13 38 12 12 9 33 12 12 5 28 12 12 21 49 12 12 2 18 12 12 25 56 12 12 4 17 12 12 29 55 12 12 8 13 12 12 32 58 12 12 12 60 12 12 28 61 12 12 24 64 12 12 20 66 12 12 16 67 NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL GRID NUMBERS 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 149 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM HUB BLADES 1 1 1 HUB 1 --------------------------------------------------------------------------------------------------------------- 2 2 12 HUB 4 --------------------------------------------------------------------------------------------------------------- 3 4 2 HUB 5 --------------------------------------------------------------------------------------------------------------- 4 5 12 HUB 46 --------------------------------------------------------------------------------------------------------------- 5 7 1 HUB 7 --------------------------------------------------------------------------------------------------------------- 6 8 12 HUB 108 --------------------------------------------------------------------------------------------------------------- 7 10 2 HUB 43 --------------------------------------------------------------------------------------------------------------- 8 11 12 HUB 10 --------------------------------------------------------------------------------------------------------------- 9 13 1 HUB 41 --------------------------------------------------------------------------------------------------------------- 10 14 12 HUB 40 --------------------------------------------------------------------------------------------------------------- 11 16 2 HUB 13 --------------------------------------------------------------------------------------------------------------- 12 17 2 HUB 37 --------------------------------------------------------------------------------------------------------------- 13 18 12 HUB 16 --------------------------------------------------------------------------------------------------------------- 14 20 1 HUB 17 --------------------------------------------------------------------------------------------------------------- 15 21 12 HUB 34 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 150 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM HUB BLADES 16 23 2 HUB 19 --------------------------------------------------------------------------------------------------------------- 17 24 1 HUB 31 --------------------------------------------------------------------------------------------------------------- 18 25 12 HUB 22 --------------------------------------------------------------------------------------------------------------- 19 27 2 HUB 29 --------------------------------------------------------------------------------------------------------------- 20 28 12 HUB 28 --------------------------------------------------------------------------------------------------------------- 21 30 1 HUB 25 --------------------------------------------------------------------------------------------------------------- 22 31 12 HUB BROOT1 26 6 --------------------------------------------------------------------------------------------------------------- 23 33 12 HUB ROOT1 11 8 RROOT2 8 --------------------------------------------------------------------------------------------------------------- 24 35 12 HUB BROOT1 23 8 RROOT1 8 --------------------------------------------------------------------------------------------------------------- 25 37 12 HUB RROOT1 20 6 --------------------------------------------------------------------------------------------------------------- 26 39 2 HUB RROOT1 17 5 RROOT2 5 --------------------------------------------------------------------------------------------------------------- 27 40 12 HUB RROOT2 14 6 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 151 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM HUB BLADES 28 42 12 HUB LROOT1 44 6 --------------------------------------------------------------------------------------------------------------- 29 44 12 HUB ROOT2 47 8 LROOT1 8 --------------------------------------------------------------------------------------------------------------- 30 46 12 HUB LROOT2 35 8 BROOT2 8 --------------------------------------------------------------------------------------------------------------- 31 48 12 HUB ROOT2 2 6 --------------------------------------------------------------------------------------------------------------- 32 50 12 HUB BROOT2 32 6 --------------------------------------------------------------------------------------------------------------- 33 52 1 HUB ROOT1 5 5 ROOT2 5 --------------------------------------------------------------------------------------------------------------- 34 53 1 HUB BROOT1 29 5 BROOT2 5 --------------------------------------------------------------------------------------------------------------- 35 54 12 HUB LROOT2 38 6 --------------------------------------------------------------------------------------------------------------- 36 56 2 HUB LROOT1 41 5 LROOT2 5 --------------------------------------------------------------------------------------------------------------- 37 57 12 ROOT1 4 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 152 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM HUB BLADES 38 59 2 ROOT1 5 ROOT2 5 --------------------------------------------------------------------------------------------------------------- 39 60 12 ROOT2 4 --------------------------------------------------------------------------------------------------------------- 40 62 12 ROOT1 3 ROOT2 3 --------------------------------------------------------------------------------------------------------------- 41 64 12 VANE2 6 --------------------------------------------------------------------------------------------------------------- 42 66 12 VANE2 2 --------------------------------------------------------------------------------------------------------------- 43 68 12 VANE2 4 --------------------------------------------------------------------------------------------------------------- 44 70 12 VANE1 8 ROOT1 2 --------------------------------------------------------------------------------------------------------------- 45 72 12 VANE1 7 VANE2 7 ROOT1 1 ROOT2 1 --------------------------------------------------------------------------------------------------------------- 46 74 12 VANE2 8 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 153 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM HUB BLADES ROOT2 2 --------------------------------------------------------------------------------------------------------------- 47 76 12 ROOT1 6 --------------------------------------------------------------------------------------------------------------- 48 78 12 VANE1 2 --------------------------------------------------------------------------------------------------------------- 49 80 12 VANE1 4 --------------------------------------------------------------------------------------------------------------- 50 82 12 VANE1 6 --------------------------------------------------------------------------------------------------------------- 51 84 12 VANE1 5 VANE2 5 --------------------------------------------------------------------------------------------------------------- 52 86 12 VANE1 3 VANE2 3 --------------------------------------------------------------------------------------------------------------- 53 88 12 VANE1 1 VANE2 1 --------------------------------------------------------------------------------------------------------------- 54 90 12 LROOT1 3 LROOT2 3 --------------------------------------------------------------------------------------------------------------- 55 92 1 LROOT1 5 LROOT2 5 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 154 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM HUB BLADES 56 93 12 BVANE1 3 BVANE2 3 --------------------------------------------------------------------------------------------------------------- 57 95 12 BVANE1 1 BVANE2 1 --------------------------------------------------------------------------------------------------------------- 58 97 12 BVANE1 6 --------------------------------------------------------------------------------------------------------------- 59 99 12 BVANE1 4 --------------------------------------------------------------------------------------------------------------- 60 101 12 BVANE1 2 --------------------------------------------------------------------------------------------------------------- 61 103 12 BVANE2 4 --------------------------------------------------------------------------------------------------------------- 62 105 12 BVANE2 6 --------------------------------------------------------------------------------------------------------------- 63 107 12 BVANE1 5 BVANE2 5 --------------------------------------------------------------------------------------------------------------- 64 109 12 BVANE2 2 --------------------------------------------------------------------------------------------------------------- 65 111 12 LROOT2 7 BROOT2 7 --------------------------------------------------------------------------------------------------------------- 66 113 12 BVANE2 8 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 155 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM HUB BLADES BROOT2 2 --------------------------------------------------------------------------------------------------------------- 67 115 12 BVANE1 7 BVANE2 7 BROOT1 1 BROOT2 1 --------------------------------------------------------------------------------------------------------------- 68 117 12 BVANE1 8 BROOT1 2 --------------------------------------------------------------------------------------------------------------- 69 119 12 BROOT1 4 --------------------------------------------------------------------------------------------------------------- 70 121 12 BROOT2 4 --------------------------------------------------------------------------------------------------------------- 71 123 2 BROOT1 5 BROOT2 5 --------------------------------------------------------------------------------------------------------------- 72 124 12 BROOT1 3 BROOT2 3 --------------------------------------------------------------------------------------------------------------- 73 126 12 ROOT1 7 RROOT2 7 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 156 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM HUB BLADES 74 128 12 BROOT1 7 RROOT1 7 --------------------------------------------------------------------------------------------------------------- 75 130 12 RROOT1 4 --------------------------------------------------------------------------------------------------------------- 76 132 12 RROOT1 3 RROOT2 3 --------------------------------------------------------------------------------------------------------------- 77 134 1 RROOT1 5 RROOT2 5 --------------------------------------------------------------------------------------------------------------- 78 135 12 RROOT2 4 --------------------------------------------------------------------------------------------------------------- 79 137 12 RROOT2 2 RVANE2 8 --------------------------------------------------------------------------------------------------------------- 80 139 12 RROOT1 2 RVANE1 8 --------------------------------------------------------------------------------------------------------------- 81 141 12 RROOT1 1 RROOT2 1 RVANE1 7 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 157 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM HUB BLADES RVANE2 7 --------------------------------------------------------------------------------------------------------------- 82 143 12 RVANE1 5 RVANE2 5 --------------------------------------------------------------------------------------------------------------- 83 145 12 RVANE1 6 --------------------------------------------------------------------------------------------------------------- 84 147 12 RVANE1 1 RVANE2 1 --------------------------------------------------------------------------------------------------------------- 85 149 12 RVANE2 6 --------------------------------------------------------------------------------------------------------------- 86 151 12 RVANE2 2 --------------------------------------------------------------------------------------------------------------- 87 153 12 RVANE2 4 --------------------------------------------------------------------------------------------------------------- 88 155 12 RVANE1 3 RVANE2 3 --------------------------------------------------------------------------------------------------------------- 89 157 12 RVANE1 2 --------------------------------------------------------------------------------------------------------------- 90 159 12 RVANE1 4 --------------------------------------------------------------------------------------------------------------- 91 161 12 LVANE1 5 LVANE2 5 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 158 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM HUB BLADES 92 163 12 LVANE1 2 --------------------------------------------------------------------------------------------------------------- 93 165 12 LVANE1 4 --------------------------------------------------------------------------------------------------------------- 94 167 12 LVANE1 6 --------------------------------------------------------------------------------------------------------------- 95 169 12 LVANE2 2 --------------------------------------------------------------------------------------------------------------- 96 171 12 LVANE2 4 --------------------------------------------------------------------------------------------------------------- 97 173 12 LVANE1 1 LVANE2 1 --------------------------------------------------------------------------------------------------------------- 98 175 12 LVANE1 3 LVANE2 3 --------------------------------------------------------------------------------------------------------------- 99 177 12 LVANE2 6 --------------------------------------------------------------------------------------------------------------- 100 179 12 ROOT2 7 LROOT1 7 --------------------------------------------------------------------------------------------------------------- 101 181 12 LVANE1 8 LROOT1 2 --------------------------------------------------------------------------------------------------------------- 102 183 12 LVANE2 8 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 159 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM HUB BLADES LROOT2 2 --------------------------------------------------------------------------------------------------------------- 103 185 12 LVANE1 7 LVANE2 7 LROOT1 1 LROOT2 1 --------------------------------------------------------------------------------------------------------------- 104 187 12 LROOT1 4 --------------------------------------------------------------------------------------------------------------- 105 189 12 LROOT2 4 --------------------------------------------------------------------------------------------------------------- 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 160 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT HUB GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 1 1 2 31 12 4 2 12 5 3 2 5 33 1 7 5 1 10 8 12 11 23 12 13 11 2 14 27 12 16 13 12 17 26 2 17 14 1 19 16 2 20 25 12 22 18 12 23 24 12 25 21 1 26 22 12 28 20 12 29 34 1 29 19 2 31 17 1 32 32 12 34 15 12 35 30 12 37 12 2 38 35 12 40 10 12 41 36 2 41 9 1 43 7 2 44 28 12 46 4 12 47 29 12 108 6 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 161 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT VANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 53 12 2 48 12 3 52 12 4 49 12 5 51 12 6 50 12 7 45 12 8 44 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 162 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT VANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 53 12 2 42 12 3 52 12 4 43 12 5 51 12 6 41 12 7 45 12 8 46 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 163 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT ROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 45 12 2 44 12 3 40 12 4 37 12 5 33 1 5 38 2 6 47 12 7 73 12 8 23 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 164 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT ROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 45 12 2 46 12 3 40 12 4 39 12 5 33 1 5 38 2 6 31 12 7 100 12 8 29 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 165 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT LVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 97 12 2 92 12 3 98 12 4 93 12 5 91 12 6 94 12 7 103 12 8 101 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 166 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT LVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 97 12 2 95 12 3 98 12 4 96 12 5 91 12 6 99 12 7 103 12 8 102 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 167 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT LROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 103 12 2 101 12 3 54 12 4 104 12 5 36 2 5 55 1 6 28 12 7 100 12 8 29 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 168 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT LROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 103 12 2 102 12 3 54 12 4 105 12 5 36 2 5 55 1 6 35 12 7 65 12 8 30 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 169 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT BVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 57 12 2 60 12 3 56 12 4 59 12 5 63 12 6 58 12 7 67 12 8 68 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 170 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT BVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 57 12 2 64 12 3 56 12 4 61 12 5 63 12 6 62 12 7 67 12 8 66 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 171 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT BROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 67 12 2 68 12 3 72 12 4 69 12 5 71 2 5 34 1 6 22 12 7 74 12 8 24 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 172 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT BROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 67 12 2 66 12 3 72 12 4 70 12 5 71 2 5 34 1 6 32 12 7 65 12 8 30 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 173 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT RROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 81 12 2 80 12 3 76 12 4 75 12 5 26 2 5 77 1 6 25 12 7 74 12 8 24 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 174 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT RROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 81 12 2 79 12 3 76 12 4 78 12 5 26 2 5 77 1 6 27 12 7 73 12 8 23 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 175 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT RVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 84 12 2 89 12 3 88 12 4 90 12 5 82 12 6 83 12 7 81 12 8 80 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 176 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT RVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 84 12 2 86 12 3 88 12 4 87 12 5 82 12 6 85 12 7 81 12 8 79 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 177 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE WINDMIL INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT POINT ID SIL ID DOF POINT ID SIL ID DOF POINT ID SIL ID DOF 1 1 1 2 2 12 3 4 2 4 5 12 5 7 1 6 8 12 7 10 2 8 11 12 9 13 1 10 14 12 11 16 2 12 17 2 13 18 12 14 20 1 15 21 12 16 23 2 17 24 1 18 25 12 19 27 2 20 28 12 21 30 1 22 31 12 23 33 12 24 35 12 25 37 12 26 39 2 27 40 12 28 42 12 29 44 12 30 46 12 31 48 12 32 50 12 33 52 1 34 53 1 35 54 12 36 56 2 37 57 12 38 59 2 39 60 12 40 62 12 41 64 12 42 66 12 43 68 12 44 70 12 45 72 12 46 74 12 47 76 12 48 78 12 49 80 12 50 82 12 51 84 12 52 86 12 53 88 12 54 90 12 55 92 1 56 93 12 57 95 12 58 97 12 59 99 12 60 101 12 61 103 12 62 105 12 63 107 12 64 109 12 65 111 12 66 113 12 67 115 12 68 117 12 69 119 12 70 121 12 71 123 2 72 124 12 73 126 12 74 128 12 75 130 12 76 132 12 77 134 1 78 135 12 79 137 12 80 139 12 81 141 12 82 143 12 83 145 12 84 147 12 85 149 12 86 151 12 87 153 12 88 155 12 89 157 12 90 159 12 91 161 12 92 163 12 93 165 12 94 167 12 95 169 12 96 171 12 97 173 12 98 175 12 99 177 12 100 179 12 101 181 12 102 183 12 103 185 12 104 187 12 105 189 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 178 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 BGSS ITEM FOR SUBSTRUCTURE WINDMIL INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 1 0 -0.500000E+01 0.100000E+02 0.000000E+00 2 0 0.000000E+00 0.100000E+02 0.000000E+00 3 0 0.000000E+00 0.150000E+02 0.000000E+00 4 0 -0.750000E+01 0.750000E+01 0.000000E+00 5 0 0.500000E+01 0.100000E+02 0.000000E+00 6 1 0.500000E+01 0.150000E+02 0.000000E+00 7 0 -0.100000E+02 0.500000E+01 0.000000E+00 8 0 0.750000E+01 0.750000E+01 0.000000E+00 9 0 -0.150000E+02 0.000000E+00 0.000000E+00 10 0 -0.100000E+02 0.000000E+00 0.000000E+00 11 0 0.100000E+02 0.500000E+01 0.000000E+00 12 0 -0.100000E+02 -0.500000E+01 0.000000E+00 13 0 0.100000E+02 0.000000E+00 0.000000E+00 14 0 0.150000E+02 0.000000E+00 0.000000E+00 15 0 -0.750000E+01 -0.750000E+01 0.000000E+00 16 0 0.100000E+02 -0.500000E+01 0.000000E+00 17 0 -0.500000E+01 -0.100000E+02 0.000000E+00 18 0 0.750000E+01 -0.750000E+01 0.000000E+00 19 0 0.000000E+00 -0.150000E+02 0.000000E+00 20 0 0.000000E+00 -0.100000E+02 0.000000E+00 21 0 0.500000E+01 -0.100000E+02 0.000000E+00 22 0 0.500000E+01 -0.150000E+02 0.000000E+00 23 0 0.100000E+02 0.100000E+02 0.000000E+00 24 0 0.100000E+02 -0.100000E+02 0.000000E+00 25 0 0.150000E+02 -0.500000E+01 0.000000E+00 26 0 0.150000E+02 0.000000E+00 0.000000E+00 27 0 0.150000E+02 0.500000E+01 0.000000E+00 28 0 -0.150000E+02 0.500000E+01 0.000000E+00 29 0 -0.100000E+02 0.100000E+02 0.000000E+00 30 0 -0.100000E+02 -0.100000E+02 0.000000E+00 31 0 -0.500000E+01 0.150000E+02 0.000000E+00 32 0 -0.500000E+01 -0.150000E+02 0.000000E+00 33 0 0.000000E+00 0.150000E+02 0.000000E+00 34 0 0.000000E+00 -0.150000E+02 0.000000E+00 35 0 -0.150000E+02 -0.500000E+01 0.000000E+00 36 0 -0.150000E+02 0.000000E+00 0.000000E+00 37 0 0.500000E+01 0.200000E+02 0.000000E+00 38 0 0.000000E+00 0.150000E+02 0.000000E+00 39 0 -0.500000E+01 0.200000E+02 0.000000E+00 40 0 0.000000E+00 0.200000E+02 0.000000E+00 41 3 -0.500000E+01 0.350000E+02 0.000000E+00 42 3 -0.500000E+01 0.500000E+02 0.000000E+00 43 3 -0.500000E+01 0.425000E+02 0.000000E+00 44 0 0.500000E+01 0.275000E+02 0.000000E+00 45 0 0.000000E+00 0.275000E+02 0.000000E+00 46 0 -0.500000E+01 0.275000E+02 0.000000E+00 47 0 0.500000E+01 0.150000E+02 0.000000E+00 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 179 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 BGSS ITEM FOR SUBSTRUCTURE WINDMIL INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 48 2 0.500000E+01 0.500000E+02 0.000000E+00 49 2 0.500000E+01 0.425000E+02 0.000000E+00 50 2 0.500000E+01 0.350000E+02 0.000000E+00 51 2 0.000000E+00 0.350000E+02 0.000000E+00 52 2 0.000000E+00 0.425000E+02 0.000000E+00 53 2 0.000000E+00 0.500000E+02 0.000000E+00 54 0 -0.200000E+02 0.000000E+00 0.000000E+00 55 0 -0.150000E+02 0.000000E+00 0.000000E+00 56 6 0.000000E+00 -0.425000E+02 0.000000E+00 57 6 0.000000E+00 -0.500000E+02 0.000000E+00 58 6 0.500000E+01 -0.350000E+02 0.000000E+00 59 6 0.500000E+01 -0.425000E+02 0.000000E+00 60 6 0.500000E+01 -0.500000E+02 0.000000E+00 61 7 -0.500000E+01 -0.425000E+02 0.000000E+00 62 7 -0.500000E+01 -0.350000E+02 0.000000E+00 63 6 0.000000E+00 -0.350000E+02 0.000000E+00 64 7 -0.500000E+01 -0.500000E+02 0.000000E+00 65 0 -0.125000E+02 -0.125000E+02 0.000000E+00 66 0 -0.500000E+01 -0.275000E+02 0.000000E+00 67 0 0.000000E+00 -0.275000E+02 0.000000E+00 68 0 0.500000E+01 -0.275000E+02 0.000000E+00 69 0 0.500000E+01 -0.200000E+02 0.000000E+00 70 0 -0.500000E+01 -0.200000E+02 0.000000E+00 71 0 0.000000E+00 -0.150000E+02 0.000000E+00 72 0 0.000000E+00 -0.200000E+02 0.000000E+00 73 0 0.125000E+02 0.125000E+02 0.000000E+00 74 0 0.125000E+02 -0.125000E+02 0.000000E+00 75 0 0.200000E+02 -0.500000E+01 0.000000E+00 76 0 0.200000E+02 0.000000E+00 0.000000E+00 77 0 0.150000E+02 0.000000E+00 0.000000E+00 78 0 0.200000E+02 0.500000E+01 0.000000E+00 79 0 0.275000E+02 0.500000E+01 0.000000E+00 80 0 0.275000E+02 -0.500000E+01 0.000000E+00 81 0 0.275000E+02 0.000000E+00 0.000000E+00 82 8 0.350000E+02 0.000000E+00 0.000000E+00 83 8 0.350000E+02 -0.500000E+01 0.000000E+00 84 8 0.500000E+02 0.000000E+00 0.000000E+00 85 9 0.350000E+02 0.500000E+01 0.000000E+00 86 9 0.500000E+02 0.500000E+01 0.000000E+00 87 9 0.425000E+02 0.500000E+01 0.000000E+00 88 8 0.425000E+02 0.000000E+00 0.000000E+00 89 8 0.500000E+02 -0.500000E+01 0.000000E+00 90 8 0.425000E+02 -0.500000E+01 0.000000E+00 91 4 -0.350000E+02 0.000000E+00 0.000000E+00 92 4 -0.500000E+02 0.500000E+01 0.000000E+00 93 4 -0.425000E+02 0.500000E+01 0.000000E+00 94 4 -0.350000E+02 0.500000E+01 0.000000E+00 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 180 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 BGSS ITEM FOR SUBSTRUCTURE WINDMIL INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 95 5 -0.500000E+02 -0.500000E+01 0.000000E+00 96 5 -0.425000E+02 -0.500000E+01 0.000000E+00 97 4 -0.500000E+02 0.000000E+00 0.000000E+00 98 4 -0.425000E+02 0.000000E+00 0.000000E+00 99 5 -0.350000E+02 -0.500000E+01 0.000000E+00 100 0 -0.125000E+02 0.125000E+02 0.000000E+00 101 0 -0.275000E+02 0.500000E+01 0.000000E+00 102 0 -0.275000E+02 -0.500000E+01 0.000000E+00 103 0 -0.275000E+02 0.000000E+00 0.000000E+00 104 0 -0.200000E+02 0.500000E+01 0.000000E+00 105 0 -0.200000E+02 -0.500000E+01 0.000000E+00 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 181 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 CSTM ITEM FOR SUBSTRUCTURE WINDMIL CSTM TYPE C O O R D I N A T E S O F O R I G I N T R A N S F O R M A T I O N ID X1 X2 X3 M A T R I X 1 2 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 2 1 0.500000E+01 0.225000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 3 1 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 4 1 0.500000E+01 0.225000E+02 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 5 1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 6 1 0.500000E+01 0.225000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 7 1 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 8 1 0.500000E+01 0.225000E+02 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 9 1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 182 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 PLTS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT C O O R D I N A T E S O F OR I G I N T R A N S F O R M A T I O N NAME X1 X2 X3 M A T R I X HUB 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 VANE1 0.000000E+00 0.275000E+02 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 VANE2 0.000000E+00 0.275000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 ROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 ROOT2 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LVANE1 -0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LVANE2 -0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LROOT2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 BVANE1 0.000000E+00 -0.275000E+02 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 BVANE2 0.000000E+00 -0.275000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 183 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 PLTS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT C O O R D I N A T E S O F OR I G I N T R A N S F O R M A T I O N NAME X1 X2 X3 M A T R I X BROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 BROOT2 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RROOT2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RVANE1 0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RVANE2 0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 184 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 LODS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT NUMBER OF NAME LOAD SETS L O A D S E T I D E N T I F I C A T I O N N U M B E R S HUB 2 1 3 VANE1 2 1 2 VANE2 2 1 2 ROOT1 1 1 ROOT2 1 1 LVANE1 2 1 2 LVANE2 2 1 2 LROOT1 1 1 LROOT2 1 1 BVANE1 2 1 2 BVANE2 2 1 2 BROOT1 1 1 BROOT2 1 1 RROOT1 1 1 RROOT2 1 1 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 185 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 LODS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT NUMBER OF NAME LOAD SETS L O A D S E T I D E N T I F I C A T I O N N U M B E R S RVANE1 2 1 2 RVANE2 2 1 2 0*** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 186 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 27 28 3 3 3 3 3 3 3 3 3 2 ROOT1 B 24 0 0 6 7 3 3 3 3 3 3 3 3 3 VANE1 B 15 0 0 4 5 3 3 3 3 3 3 3 3 3 4 VANE2 B 14 3 0 3 5 3 0 0 3 3 0 0 0 3 5 VANETOP C 16 0 3 7 26 3 3 3 3 3 3 3 3 3 6 ROOT2 B 23 2 0 2 7 3 0 3 3 0 0 0 3 7 ROOTTOP C 25 0 2 10 26 3 3 3 3 3 3 3 3 8 LVANE2 IB 0 3 0 9 10 3 0 0 3 3 0 0 0 0 9 LVANE1 IB 4 3 0 8 10 3 0 0 3 3 0 0 0 0 10 VANELFT C 0 5 9 19 26 3 0 0 3 3 0 0 0 3 11 RVANE2 IB 8 3 0 12 13 3 0 0 3 3 0 0 0 0 12 RVANE1 IB 9 3 0 11 13 3 0 0 3 3 0 0 0 0 13 VANERGT C 10 5 12 26 27 3 0 0 3 3 0 0 0 3 14 BVANE2 IB 11 3 0 15 16 3 0 0 3 3 0 0 0 0 15 BVANE1 IB 12 3 0 14 16 3 0 0 3 3 0 0 0 0 16 VANEBOT C 13 5 15 25 26 3 0 0 3 3 0 0 0 3 17 LROOT2 IB 0 2 0 18 19 3 0 3 3 0 0 0 0 18 LROOT1 IB 6 2 0 17 19 3 0 3 3 0 0 0 0 19 ROOTLFT C 0 7 18 16 26 3 0 3 3 0 0 0 3 20 RROOT2 IB 17 2 0 21 22 3 0 3 3 0 0 0 0 21 RROOT1 IB 18 2 0 20 22 3 0 3 3 0 0 0 0 22 ROOTRGT C 19 7 21 5 26 3 0 3 3 0 0 0 3 23 BROOT2 IB 20 2 0 24 25 3 0 3 3 0 0 0 0 24 BROOT1 IB 21 2 0 23 25 3 0 3 3 0 0 0 0 25 ROOTBOT C 22 7 24 22 26 3 0 3 3 0 0 0 3 26 RING C 0 0 5 13 27 3 3 3 3 3 4 3 3 3 27 BLADES C 0 0 26 1 28 3 3 3 3 3 4 3 3 3 28 WINDMIL C 0 0 1 0 0 3 3 3 3 3 4 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 780288 WORDS. OR = 762 BLOCKS. OR = 82 PERCENT. 0*** HIGHEST BLOCK USED = 164 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 187 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 MESSAGES FROM THE PLOT MODULE AN UNRECOGNIZABLE PLOT PARAMETER (SET ) HAS BEEN DETECTED - IGNORED AN UNRECOGNIZABLE PLOT PARAMETER (ALL ) HAS BEEN DETECTED - IGNORED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 188 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 5.118278E-02 ORIGIN 1 - X0 = -3.253665E+00, Y0 = -0.339052E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 1 USED IN THIS PLOT 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 189 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 S U M M A R Y O F C U R R E N T P R O B L E M NAME OF PSEUDOSTRUCTURE TO BE REDUCED - WINDMIL NAME GIVEN TO RESULTANT PSEUDOSTRUCTURE - SMALLMIL BOUNDARY SET IDENTIFICATION NUMBER - 2000 NAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN WINDMIL HUB VANE1 VANE2 ROOT1 ROOT2 LVANE1 LVANE2 LROOT1 LROOT2 BVANE1 BVANE2 BROOT1 BROOT2 RROOT1 RROOT2 RVANE1 RVANE2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 190 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 SUMMARY OF COMBINED BOUNDARY SET NUMBER 2000 BASIC BOUNDARY SUBSTRUCTURE SET ID NAME NUMBER VANE1 200 VANE2 200 LVANE1 200 LVANE2 200 BVANE1 200 BVANE2 200 RVANE1 200 RVANE2 200 BROOT1 210 ROOT2 210 LROOT1 210 LROOT2 210 RROOT1 210 BROOT2 210 RROOT2 210 HUB 220 ROOT1 230 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 191 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 TABLE OF GRID POINTS COMPOSING BOUNDARY SETS BOUNDARY SET ID GRID POINT DOF NUMBER ID NUMBER CODE 200 1 12 200 2 12 200 4 12 200 6 12 200 8 12 210 2 12 210 4 12 210 7 12 220 1 1 220 7 1 220 31 1 220 25 1 220 13 2 220 19 2 220 37 2 220 43 2 220 4 12 220 10 12 220 16 12 220 22 12 220 28 12 220 34 12 220 40 12 220 46 12 220 108 12 230 2 12 230 4 12 230 6 12 230 7 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 192 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT HUB GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 1 1 2 31 12 4 2 12 5 3 2 5 33 1 7 5 1 10 8 12 11 23 12 13 11 2 14 27 12 16 13 12 17 26 2 17 14 1 19 16 2 20 25 12 22 18 12 23 24 12 25 21 1 26 22 12 28 20 12 29 34 1 29 19 2 31 17 1 32 32 12 34 15 12 35 30 12 37 12 2 38 35 12 40 10 12 41 36 2 41 9 1 43 7 2 44 28 12 46 4 12 47 29 12 108 6 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 193 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT VANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 53 12 2 48 12 3 52 12 4 49 12 5 51 12 6 50 12 7 45 12 8 44 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 194 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT VANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 53 12 2 42 12 3 52 12 4 43 12 5 51 12 6 41 12 7 45 12 8 46 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 195 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT ROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 45 12 2 44 12 3 40 12 4 37 12 5 33 1 5 38 2 6 47 12 7 73 12 8 23 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 196 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT ROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 45 12 2 46 12 3 40 12 4 39 12 5 33 1 5 38 2 6 31 12 7 100 12 8 29 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 197 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT LVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 97 12 2 92 12 3 98 12 4 93 12 5 91 12 6 94 12 7 103 12 8 101 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 198 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT LVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 97 12 2 95 12 3 98 12 4 96 12 5 91 12 6 99 12 7 103 12 8 102 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 199 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT LROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 103 12 2 101 12 3 54 12 4 104 12 5 36 2 5 55 1 6 28 12 7 100 12 8 29 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 200 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT LROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 103 12 2 102 12 3 54 12 4 105 12 5 36 2 5 55 1 6 35 12 7 65 12 8 30 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 201 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT BVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 57 12 2 60 12 3 56 12 4 59 12 5 63 12 6 58 12 7 67 12 8 68 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 202 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT BVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 57 12 2 64 12 3 56 12 4 61 12 5 63 12 6 62 12 7 67 12 8 66 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 203 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT BROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 67 12 2 68 12 3 72 12 4 69 12 5 71 2 5 34 1 6 22 12 7 74 12 8 24 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 204 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT BROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 67 12 2 66 12 3 72 12 4 70 12 5 71 2 5 34 1 6 32 12 7 65 12 8 30 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 205 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT RROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 81 12 2 80 12 3 76 12 4 75 12 5 26 2 5 77 1 6 25 12 7 74 12 8 24 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 206 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT RROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 81 12 2 79 12 3 76 12 4 78 12 5 26 2 5 77 1 6 27 12 7 73 12 8 23 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 207 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT RVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 84 12 2 89 12 3 88 12 4 90 12 5 82 12 6 83 12 7 81 12 8 80 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 208 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE WINDMIL COMPONENT RVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 84 12 2 86 12 3 88 12 4 87 12 5 82 12 6 85 12 7 81 12 8 79 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 209 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT HUB GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 1 1 4 2 12 7 4 1 10 7 12 13 9 2 16 11 12 19 13 2 22 15 12 25 17 1 28 16 12 31 14 1 34 12 12 37 10 2 40 8 12 43 6 2 46 3 12 108 5 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 210 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT VANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 29 12 2 26 12 4 27 12 6 28 12 8 23 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 211 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT VANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 29 12 2 21 12 4 22 12 6 20 12 8 24 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 212 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT ROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 2 23 12 4 18 12 6 25 12 7 42 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 213 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT ROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 2 24 12 4 19 12 7 62 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 214 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT LVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 60 12 2 55 12 4 56 12 6 57 12 8 63 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 215 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT LVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 60 12 2 58 12 4 59 12 6 61 12 8 64 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 216 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT LROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 2 63 12 4 65 12 7 62 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 217 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT LROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 2 64 12 4 66 12 7 37 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 218 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT BVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 30 12 2 33 12 4 32 12 6 31 12 8 39 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 219 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT BVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 30 12 2 36 12 4 34 12 6 35 12 8 38 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 220 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT BROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 2 39 12 4 40 12 7 43 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 221 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT BROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 2 38 12 4 41 12 7 37 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 222 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT RROOT1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 2 47 12 4 44 12 7 43 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 223 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT RROOT2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 2 46 12 4 45 12 7 42 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 224 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT RVANE1 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 49 12 2 53 12 4 54 12 6 48 12 8 47 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 225 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT RVANE2 GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 49 12 2 51 12 4 52 12 6 50 12 8 46 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 226 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE SMALLMIL INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT POINT ID SIL ID DOF POINT ID SIL ID DOF POINT ID SIL ID DOF 1 1 1 2 2 12 3 4 12 4 6 1 5 7 12 6 9 2 7 10 12 8 12 12 9 14 2 10 15 2 11 16 12 12 18 12 13 20 2 14 21 1 15 22 12 16 24 12 17 26 1 18 27 12 19 29 12 20 31 12 21 33 12 22 35 12 23 37 12 24 39 12 25 41 12 26 43 12 27 45 12 28 47 12 29 49 12 30 51 12 31 53 12 32 55 12 33 57 12 34 59 12 35 61 12 36 63 12 37 65 12 38 67 12 39 69 12 40 71 12 41 73 12 42 75 12 43 77 12 44 79 12 45 81 12 46 83 12 47 85 12 48 87 12 49 89 12 50 91 12 51 93 12 52 95 12 53 97 12 54 99 12 55 101 12 56 103 12 57 105 12 58 107 12 59 109 12 60 111 12 61 113 12 62 115 12 63 117 12 64 119 12 65 121 12 66 123 12 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 227 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 BGSS ITEM FOR SUBSTRUCTURE SMALLMIL INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 1 0 -0.500000E+01 0.100000E+02 0.000000E+00 2 0 0.000000E+00 0.100000E+02 0.000000E+00 3 0 -0.750000E+01 0.750000E+01 0.000000E+00 4 0 0.500000E+01 0.100000E+02 0.000000E+00 5 1 0.500000E+01 0.150000E+02 0.000000E+00 6 0 -0.100000E+02 0.500000E+01 0.000000E+00 7 0 0.750000E+01 0.750000E+01 0.000000E+00 8 0 -0.100000E+02 0.000000E+00 0.000000E+00 9 0 0.100000E+02 0.500000E+01 0.000000E+00 10 0 -0.100000E+02 -0.500000E+01 0.000000E+00 11 0 0.100000E+02 0.000000E+00 0.000000E+00 12 0 -0.750000E+01 -0.750000E+01 0.000000E+00 13 0 0.100000E+02 -0.500000E+01 0.000000E+00 14 0 -0.500000E+01 -0.100000E+02 0.000000E+00 15 0 0.750000E+01 -0.750000E+01 0.000000E+00 16 0 0.000000E+00 -0.100000E+02 0.000000E+00 17 0 0.500000E+01 -0.100000E+02 0.000000E+00 18 0 0.500000E+01 0.200000E+02 0.000000E+00 19 0 -0.500000E+01 0.200000E+02 0.000000E+00 20 3 -0.500000E+01 0.350000E+02 0.000000E+00 21 3 -0.500000E+01 0.500000E+02 0.000000E+00 22 3 -0.500000E+01 0.425000E+02 0.000000E+00 23 0 0.500000E+01 0.275000E+02 0.000000E+00 24 0 -0.500000E+01 0.275000E+02 0.000000E+00 25 0 0.500000E+01 0.150000E+02 0.000000E+00 26 2 0.500000E+01 0.500000E+02 0.000000E+00 27 2 0.500000E+01 0.425000E+02 0.000000E+00 28 2 0.500000E+01 0.350000E+02 0.000000E+00 29 2 0.000000E+00 0.500000E+02 0.000000E+00 30 6 0.000000E+00 -0.500000E+02 0.000000E+00 31 6 0.500000E+01 -0.350000E+02 0.000000E+00 32 6 0.500000E+01 -0.425000E+02 0.000000E+00 33 6 0.500000E+01 -0.500000E+02 0.000000E+00 34 7 -0.500000E+01 -0.425000E+02 0.000000E+00 35 7 -0.500000E+01 -0.350000E+02 0.000000E+00 36 7 -0.500000E+01 -0.500000E+02 0.000000E+00 37 0 -0.125000E+02 -0.125000E+02 0.000000E+00 38 0 -0.500000E+01 -0.275000E+02 0.000000E+00 39 0 0.500000E+01 -0.275000E+02 0.000000E+00 40 0 0.500000E+01 -0.200000E+02 0.000000E+00 41 0 -0.500000E+01 -0.200000E+02 0.000000E+00 42 0 0.125000E+02 0.125000E+02 0.000000E+00 43 0 0.125000E+02 -0.125000E+02 0.000000E+00 44 0 0.200000E+02 -0.500000E+01 0.000000E+00 45 0 0.200000E+02 0.500000E+01 0.000000E+00 46 0 0.275000E+02 0.500000E+01 0.000000E+00 47 0 0.275000E+02 -0.500000E+01 0.000000E+00 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 228 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 BGSS ITEM FOR SUBSTRUCTURE SMALLMIL INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 48 8 0.350000E+02 -0.500000E+01 0.000000E+00 49 8 0.500000E+02 0.000000E+00 0.000000E+00 50 9 0.350000E+02 0.500000E+01 0.000000E+00 51 9 0.500000E+02 0.500000E+01 0.000000E+00 52 9 0.425000E+02 0.500000E+01 0.000000E+00 53 8 0.500000E+02 -0.500000E+01 0.000000E+00 54 8 0.425000E+02 -0.500000E+01 0.000000E+00 55 4 -0.500000E+02 0.500000E+01 0.000000E+00 56 4 -0.425000E+02 0.500000E+01 0.000000E+00 57 4 -0.350000E+02 0.500000E+01 0.000000E+00 58 5 -0.500000E+02 -0.500000E+01 0.000000E+00 59 5 -0.425000E+02 -0.500000E+01 0.000000E+00 60 4 -0.500000E+02 0.000000E+00 0.000000E+00 61 5 -0.350000E+02 -0.500000E+01 0.000000E+00 62 0 -0.125000E+02 0.125000E+02 0.000000E+00 63 0 -0.275000E+02 0.500000E+01 0.000000E+00 64 0 -0.275000E+02 -0.500000E+01 0.000000E+00 65 0 -0.200000E+02 0.500000E+01 0.000000E+00 66 0 -0.200000E+02 -0.500000E+01 0.000000E+00 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 229 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 CSTM ITEM FOR SUBSTRUCTURE SMALLMIL CSTM TYPE C O O R D I N A T E S O F O R I G I N T R A N S F O R M A T I O N ID X1 X2 X3 M A T R I X 1 2 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 2 1 0.500000E+01 0.225000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 3 1 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 4 1 0.500000E+01 0.225000E+02 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 5 1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 6 1 0.500000E+01 0.225000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 7 1 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 8 1 0.500000E+01 0.225000E+02 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 9 1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 230 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 PLTS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT C O O R D I N A T E S O F OR I G I N T R A N S F O R M A T I O N NAME X1 X2 X3 M A T R I X HUB 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 VANE1 0.000000E+00 0.275000E+02 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 VANE2 0.000000E+00 0.275000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 ROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 ROOT2 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LVANE1 -0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LVANE2 -0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 LROOT2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 BVANE1 0.000000E+00 -0.275000E+02 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 BVANE2 0.000000E+00 -0.275000E+02 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 231 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 PLTS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT C O O R D I N A T E S O F OR I G I N T R A N S F O R M A T I O N NAME X1 X2 X3 M A T R I X BROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 BROOT2 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RROOT1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RROOT2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RVANE1 0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 -0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 RVANE2 0.275000E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 0.000000E+00 0.100000E+01 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.100000E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 232 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 LODS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT NUMBER OF NAME LOAD SETS L O A D S E T I D E N T I F I C A T I O N N U M B E R S HUB 2 1 3 VANE1 2 1 2 VANE2 2 1 2 ROOT1 1 1 ROOT2 1 1 LVANE1 2 1 2 LVANE2 2 1 2 LROOT1 1 1 LROOT2 1 1 BVANE1 2 1 2 BVANE2 2 1 2 BROOT1 1 1 BROOT2 1 1 RROOT1 1 1 RROOT2 1 1 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 233 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0 LODS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT NUMBER OF NAME LOAD SETS L O A D S E T I D E N T I F I C A T I O N N U M B E R S RVANE1 2 1 2 RVANE2 2 1 2 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN 538976288 0*** SYSTEM WARNING MESSAGE 2163, REQUESTED VALUE OF TYPE 1 USED BY PARTN1 . LOGICAL CHOICE IS 2 0*** SYSTEM WARNING MESSAGE 2430, REQUESTED SINGLE PRECISION USED BY MPYAD . DOUBLE PRECISION IS LOGICAL CHOICE 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 234 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 27 28 3 3 3 3 3 3 3 3 3 2 ROOT1 B 24 0 0 6 7 3 3 3 3 3 3 3 3 3 VANE1 B 15 0 0 4 5 3 3 3 3 3 3 3 3 3 4 VANE2 B 14 3 0 3 5 3 0 0 3 3 0 0 0 3 5 VANETOP C 16 0 3 7 26 3 3 3 3 3 3 3 3 3 6 ROOT2 B 23 2 0 2 7 3 0 3 3 0 0 0 3 7 ROOTTOP C 25 0 2 10 26 3 3 3 3 3 3 3 3 8 LVANE2 IB 0 3 0 9 10 3 0 0 3 3 0 0 0 0 9 LVANE1 IB 4 3 0 8 10 3 0 0 3 3 0 0 0 0 10 VANELFT C 0 5 9 19 26 3 0 0 3 3 0 0 0 3 11 RVANE2 IB 8 3 0 12 13 3 0 0 3 3 0 0 0 0 12 RVANE1 IB 9 3 0 11 13 3 0 0 3 3 0 0 0 0 13 VANERGT C 10 5 12 26 27 3 0 0 3 3 0 0 0 3 14 BVANE2 IB 11 3 0 15 16 3 0 0 3 3 0 0 0 0 15 BVANE1 IB 12 3 0 14 16 3 0 0 3 3 0 0 0 0 16 VANEBOT C 13 5 15 25 26 3 0 0 3 3 0 0 0 3 17 LROOT2 IB 0 2 0 18 19 3 0 3 3 0 0 0 0 18 LROOT1 IB 6 2 0 17 19 3 0 3 3 0 0 0 0 19 ROOTLFT C 0 7 18 16 26 3 0 3 3 0 0 0 3 20 RROOT2 IB 17 2 0 21 22 3 0 3 3 0 0 0 0 21 RROOT1 IB 18 2 0 20 22 3 0 3 3 0 0 0 0 22 ROOTRGT C 19 7 21 5 26 3 0 3 3 0 0 0 3 23 BROOT2 IB 20 2 0 24 25 3 0 3 3 0 0 0 0 24 BROOT1 IB 21 2 0 23 25 3 0 3 3 0 0 0 0 25 ROOTBOT C 22 7 24 22 26 3 0 3 3 0 0 0 3 26 RING C 0 0 5 13 27 3 3 3 3 3 4 3 3 3 27 BLADES C 0 0 26 1 28 3 3 3 3 3 4 3 3 3 28 WINDMIL C 0 0 1 0 29 3 3 3 3 3 4 3 3 3 3 4 3 29 SMALLMIL R 0 0 28 0 0 3 3 3 3 3 4 4 4 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 676864 WORDS. OR = 661 BLOCKS. OR = 71 PERCENT. 0*** HIGHEST BLOCK USED = 265 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 235 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPST MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -8.9376938E-17 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = -3.7897085E-18 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 3, EPSILON SUB E = -2.0854889E-17 0*** USER INFORMATION MESSAGE 6312, LEVEL 1 DISPLACEMENTS FOR SUBSTRUCTURE WINDMIL HAVE BEEN RECOVERED AND SAVED ON THE SOF. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 236 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT HUB SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -6.885472E-09 0.0 0.0 0.0 0.0 0.0 2 G 6.815310E-09 1.102501E-07 0.0 0.0 0.0 0.0 4 G -2.260284E-14 4.903196E-08 0.0 0.0 0.0 0.0 5 G 0.0 6.704929E-08 0.0 0.0 0.0 0.0 5 G -3.257896E-14 0.0 0.0 0.0 0.0 0.0 7 G 6.885431E-09 0.0 0.0 0.0 0.0 0.0 10 G 3.999435E-09 3.999455E-09 0.0 0.0 0.0 0.0 11 G 6.384132E-09 6.384167E-09 0.0 0.0 0.0 0.0 13 G 0.0 6.885465E-09 0.0 0.0 0.0 0.0 14 G 1.102501E-07 -6.815319E-09 0.0 0.0 0.0 0.0 16 G 4.903196E-08 1.131666E-14 0.0 0.0 0.0 0.0 17 G 0.0 1.798945E-14 0.0 0.0 0.0 0.0 17 G 6.704929E-08 0.0 0.0 0.0 0.0 0.0 19 G 0.0 -6.885445E-09 0.0 0.0 0.0 0.0 20 G 1.102501E-07 6.815356E-09 0.0 0.0 0.0 0.0 22 G 3.999454E-09 -3.999445E-09 0.0 0.0 0.0 0.0 23 G 6.384163E-09 -6.384147E-09 0.0 0.0 0.0 0.0 25 G 6.885462E-09 0.0 0.0 0.0 0.0 0.0 26 G -6.815327E-09 -1.102501E-07 0.0 0.0 0.0 0.0 28 G 8.188964E-15 -4.903196E-08 0.0 0.0 0.0 0.0 29 G 1.180331E-14 0.0 0.0 0.0 0.0 0.0 29 G 0.0 -6.704929E-08 0.0 0.0 0.0 0.0 31 G -6.885447E-09 0.0 0.0 0.0 0.0 0.0 32 G 6.815351E-09 -1.102501E-07 0.0 0.0 0.0 0.0 34 G -3.999445E-09 -3.999454E-09 0.0 0.0 0.0 0.0 35 G -6.384148E-09 -6.384164E-09 0.0 0.0 0.0 0.0 37 G 0.0 -6.885463E-09 0.0 0.0 0.0 0.0 38 G -1.102501E-07 6.815324E-09 0.0 0.0 0.0 0.0 40 G -4.903196E-08 -9.811720E-15 0.0 0.0 0.0 0.0 41 G 0.0 -1.471499E-14 0.0 0.0 0.0 0.0 41 G -6.704929E-08 0.0 0.0 0.0 0.0 0.0 43 G 0.0 6.885445E-09 0.0 0.0 0.0 0.0 44 G -1.102501E-07 -6.815354E-09 0.0 0.0 0.0 0.0 46 G -3.999458E-09 3.999444E-09 0.0 0.0 0.0 0.0 47 G -6.384170E-09 6.384145E-09 0.0 0.0 0.0 0.0 108 G 1.024372E-07 4.132977E-08 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 237 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT VANE1 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.147531E-13 -6.884929E-07 0.0 0.0 0.0 0.0 2 G 4.723347E-09 -6.866109E-07 0.0 0.0 0.0 0.0 3 G 1.520040E-13 -6.531354E-07 0.0 0.0 0.0 0.0 4 G 9.446746E-09 -6.507344E-07 0.0 0.0 0.0 0.0 5 G 9.878015E-14 -5.599795E-07 0.0 0.0 0.0 0.0 6 G 1.713458E-08 -5.559373E-07 0.0 0.0 0.0 0.0 7 G -6.209428E-14 4.225010E-07 0.0 0.0 0.0 0.0 8 G -2.011192E-08 4.091746E-07 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 238 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT VANE2 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.147531E-13 -6.884929E-07 0.0 0.0 0.0 0.0 2 G -4.722918E-09 -6.866109E-07 0.0 0.0 0.0 0.0 3 G 1.520040E-13 -6.531354E-07 0.0 0.0 0.0 0.0 4 G -9.446441E-09 -6.507343E-07 0.0 0.0 0.0 0.0 5 G 9.878015E-14 -5.599795E-07 0.0 0.0 0.0 0.0 6 G -1.713438E-08 -5.559373E-07 0.0 0.0 0.0 0.0 7 G -6.209428E-14 4.225010E-07 0.0 0.0 0.0 0.0 8 G 2.011179E-08 4.091746E-07 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 239 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT ROOT1 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -6.209428E-14 4.225010E-07 0.0 0.0 0.0 0.0 2 G -2.011192E-08 4.091746E-07 0.0 0.0 0.0 0.0 3 G -4.213302E-14 2.735738E-07 0.0 0.0 0.0 0.0 4 G -1.218664E-08 2.032037E-07 0.0 0.0 0.0 0.0 5 G -3.257896E-14 0.0 0.0 0.0 0.0 0.0 5 G 0.0 2.297672E-07 0.0 0.0 0.0 0.0 6 G -6.815377E-09 1.102501E-07 0.0 0.0 0.0 0.0 7 G 1.442007E-09 1.442054E-09 0.0 0.0 0.0 0.0 8 G 6.384132E-09 6.384167E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 240 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT ROOT2 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -6.209428E-14 4.225010E-07 0.0 0.0 0.0 0.0 2 G 2.011179E-08 4.091746E-07 0.0 0.0 0.0 0.0 3 G -4.213302E-14 2.735738E-07 0.0 0.0 0.0 0.0 4 G 1.218656E-08 2.032037E-07 0.0 0.0 0.0 0.0 5 G -3.257896E-14 0.0 0.0 0.0 0.0 0.0 5 G 0.0 2.297672E-07 0.0 0.0 0.0 0.0 6 G 6.815310E-09 1.102501E-07 0.0 0.0 0.0 0.0 7 G -1.442056E-09 1.442022E-09 0.0 0.0 0.0 0.0 8 G -6.384170E-09 6.384145E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 241 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT LVANE1 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 7.119271E-14 -6.884929E-07 0.0 0.0 0.0 0.0 2 G 4.723204E-09 -6.866109E-07 0.0 0.0 0.0 0.0 3 G 5.633288E-14 -6.531354E-07 0.0 0.0 0.0 0.0 4 G 9.446649E-09 -6.507343E-07 0.0 0.0 0.0 0.0 5 G 4.108375E-14 -5.599794E-07 0.0 0.0 0.0 0.0 6 G 1.713452E-08 -5.559373E-07 0.0 0.0 0.0 0.0 7 G -4.225010E-07 -2.822054E-14 0.0 0.0 0.0 0.0 8 G -4.091746E-07 -2.011188E-08 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 242 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT LVANE2 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 7.119271E-14 -6.884929E-07 0.0 0.0 0.0 0.0 2 G -4.723061E-09 -6.866109E-07 0.0 0.0 0.0 0.0 3 G 5.633288E-14 -6.531354E-07 0.0 0.0 0.0 0.0 4 G -9.446536E-09 -6.507343E-07 0.0 0.0 0.0 0.0 5 G 4.108375E-14 -5.599794E-07 0.0 0.0 0.0 0.0 6 G -1.713444E-08 -5.559372E-07 0.0 0.0 0.0 0.0 7 G -4.225010E-07 -2.822054E-14 0.0 0.0 0.0 0.0 8 G -4.091746E-07 2.011182E-08 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 243 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT LROOT1 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -4.225010E-07 -2.822054E-14 0.0 0.0 0.0 0.0 2 G -4.091746E-07 -2.011188E-08 0.0 0.0 0.0 0.0 3 G -2.735738E-07 -2.008560E-14 0.0 0.0 0.0 0.0 4 G -2.032037E-07 -1.218662E-08 0.0 0.0 0.0 0.0 5 G 0.0 -1.471499E-14 0.0 0.0 0.0 0.0 5 G -2.297672E-07 0.0 0.0 0.0 0.0 0.0 6 G -1.102501E-07 -6.815354E-09 0.0 0.0 0.0 0.0 7 G -1.442056E-09 1.442022E-09 0.0 0.0 0.0 0.0 8 G -6.384170E-09 6.384145E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 244 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT LROOT2 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -4.225010E-07 -2.822054E-14 0.0 0.0 0.0 0.0 2 G -4.091746E-07 2.011182E-08 0.0 0.0 0.0 0.0 3 G -2.735738E-07 -2.008560E-14 0.0 0.0 0.0 0.0 4 G -2.032037E-07 1.218658E-08 0.0 0.0 0.0 0.0 5 G 0.0 -1.471499E-14 0.0 0.0 0.0 0.0 5 G -2.297672E-07 0.0 0.0 0.0 0.0 0.0 6 G -1.102501E-07 6.815324E-09 0.0 0.0 0.0 0.0 7 G -1.442027E-09 -1.442048E-09 0.0 0.0 0.0 0.0 8 G -6.384148E-09 -6.384164E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 245 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT BVANE1 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.997251E-14 -6.884929E-07 0.0 0.0 0.0 0.0 2 G 4.723112E-09 -6.866109E-07 0.0 0.0 0.0 0.0 3 G -1.872208E-14 -6.531354E-07 0.0 0.0 0.0 0.0 4 G 9.446574E-09 -6.507343E-07 0.0 0.0 0.0 0.0 5 G -1.729431E-14 -5.599794E-07 0.0 0.0 0.0 0.0 6 G 1.713446E-08 -5.559373E-07 0.0 0.0 0.0 0.0 7 G 1.627024E-14 -4.225010E-07 0.0 0.0 0.0 0.0 8 G -2.011183E-08 -4.091746E-07 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 246 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT BVANE2 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.997251E-14 -6.884929E-07 0.0 0.0 0.0 0.0 2 G -4.723152E-09 -6.866109E-07 0.0 0.0 0.0 0.0 3 G -1.872208E-14 -6.531354E-07 0.0 0.0 0.0 0.0 4 G -9.446611E-09 -6.507343E-07 0.0 0.0 0.0 0.0 5 G -1.729431E-14 -5.599794E-07 0.0 0.0 0.0 0.0 6 G -1.713450E-08 -5.559373E-07 0.0 0.0 0.0 0.0 7 G 1.627024E-14 -4.225010E-07 0.0 0.0 0.0 0.0 8 G 2.011187E-08 -4.091746E-07 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 247 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT BROOT1 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.627024E-14 -4.225010E-07 0.0 0.0 0.0 0.0 2 G -2.011183E-08 -4.091746E-07 0.0 0.0 0.0 0.0 3 G 1.515582E-14 -2.735738E-07 0.0 0.0 0.0 0.0 4 G -1.218658E-08 -2.032037E-07 0.0 0.0 0.0 0.0 5 G 0.0 -2.297672E-07 0.0 0.0 0.0 0.0 5 G 1.180331E-14 0.0 0.0 0.0 0.0 0.0 6 G -6.815327E-09 -1.102501E-07 0.0 0.0 0.0 0.0 7 G 1.442048E-09 -1.442025E-09 0.0 0.0 0.0 0.0 8 G 6.384163E-09 -6.384147E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 248 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT BROOT2 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.627024E-14 -4.225010E-07 0.0 0.0 0.0 0.0 2 G 2.011187E-08 -4.091746E-07 0.0 0.0 0.0 0.0 3 G 1.515582E-14 -2.735738E-07 0.0 0.0 0.0 0.0 4 G 1.218661E-08 -2.032037E-07 0.0 0.0 0.0 0.0 5 G 0.0 -2.297672E-07 0.0 0.0 0.0 0.0 5 G 1.180331E-14 0.0 0.0 0.0 0.0 0.0 6 G 6.815351E-09 -1.102501E-07 0.0 0.0 0.0 0.0 7 G -1.442027E-09 -1.442048E-09 0.0 0.0 0.0 0.0 8 G -6.384148E-09 -6.384164E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 249 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT RROOT1 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.225010E-07 3.515526E-14 0.0 0.0 0.0 0.0 2 G 4.091746E-07 2.011189E-08 0.0 0.0 0.0 0.0 3 G 2.735738E-07 2.564078E-14 0.0 0.0 0.0 0.0 4 G 2.032037E-07 1.218662E-08 0.0 0.0 0.0 0.0 5 G 0.0 1.798945E-14 0.0 0.0 0.0 0.0 5 G 2.297672E-07 0.0 0.0 0.0 0.0 0.0 6 G 1.102501E-07 6.815356E-09 0.0 0.0 0.0 0.0 7 G 1.442048E-09 -1.442025E-09 0.0 0.0 0.0 0.0 8 G 6.384163E-09 -6.384147E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 250 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT RROOT2 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.225010E-07 3.515526E-14 0.0 0.0 0.0 0.0 2 G 4.091746E-07 -2.011182E-08 0.0 0.0 0.0 0.0 3 G 2.735738E-07 2.564078E-14 0.0 0.0 0.0 0.0 4 G 2.032037E-07 -1.218657E-08 0.0 0.0 0.0 0.0 5 G 0.0 1.798945E-14 0.0 0.0 0.0 0.0 5 G 2.297672E-07 0.0 0.0 0.0 0.0 0.0 6 G 1.102501E-07 -6.815319E-09 0.0 0.0 0.0 0.0 7 G 1.442007E-09 1.442054E-09 0.0 0.0 0.0 0.0 8 G 6.384132E-09 6.384167E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 251 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT RVANE1 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 8.268573E-14 -6.884929E-07 0.0 0.0 0.0 0.0 2 G 4.723215E-09 -6.866109E-07 0.0 0.0 0.0 0.0 3 G 6.438692E-14 -6.531354E-07 0.0 0.0 0.0 0.0 4 G 9.446658E-09 -6.507344E-07 0.0 0.0 0.0 0.0 5 G 4.847075E-14 -5.599794E-07 0.0 0.0 0.0 0.0 6 G 1.713453E-08 -5.559373E-07 0.0 0.0 0.0 0.0 7 G 4.225010E-07 3.515526E-14 0.0 0.0 0.0 0.0 8 G 4.091746E-07 2.011189E-08 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 252 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT RVANE2 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 8.268573E-14 -6.884929E-07 0.0 0.0 0.0 0.0 2 G -4.723050E-09 -6.866109E-07 0.0 0.0 0.0 0.0 3 G 6.438692E-14 -6.531354E-07 0.0 0.0 0.0 0.0 4 G -9.446528E-09 -6.507343E-07 0.0 0.0 0.0 0.0 5 G 4.847075E-14 -5.599794E-07 0.0 0.0 0.0 0.0 6 G -1.713443E-08 -5.559372E-07 0.0 0.0 0.0 0.0 7 G 4.225010E-07 3.515526E-14 0.0 0.0 0.0 0.0 8 G 4.091746E-07 -2.011182E-08 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 253 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT HUB SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.172360E-06 0.0 0.0 0.0 0.0 0.0 2 G 9.928668E-06 7.763517E-07 0.0 0.0 0.0 0.0 4 G 7.811291E-06 -3.324972E-07 0.0 0.0 0.0 0.0 5 G 0.0 -6.439687E-07 0.0 0.0 0.0 0.0 5 G 1.047571E-05 0.0 0.0 0.0 0.0 0.0 7 G 8.371261E-06 0.0 0.0 0.0 0.0 0.0 10 G 5.991280E-06 -2.600528E-06 0.0 0.0 0.0 0.0 11 G 1.164498E-05 -7.079488E-06 0.0 0.0 0.0 0.0 13 G 0.0 2.686615E-06 0.0 0.0 0.0 0.0 14 G 4.018371E-05 5.140406E-07 0.0 0.0 0.0 0.0 16 G 1.393543E-05 7.811291E-06 0.0 0.0 0.0 0.0 17 G 0.0 1.047571E-05 0.0 0.0 0.0 0.0 17 G 2.207221E-05 0.0 0.0 0.0 0.0 0.0 19 G 0.0 1.185701E-05 0.0 0.0 0.0 0.0 20 G 4.312564E-05 2.097850E-05 0.0 0.0 0.0 0.0 22 G 1.186977E-05 1.186977E-05 0.0 0.0 0.0 0.0 23 G 2.433343E-05 2.433343E-05 0.0 0.0 0.0 0.0 25 G 1.185701E-05 0.0 0.0 0.0 0.0 0.0 26 G 2.097850E-05 4.312564E-05 0.0 0.0 0.0 0.0 28 G 7.811291E-06 1.393543E-05 0.0 0.0 0.0 0.0 29 G 1.047571E-05 0.0 0.0 0.0 0.0 0.0 29 G 0.0 2.207221E-05 0.0 0.0 0.0 0.0 31 G 2.686615E-06 0.0 0.0 0.0 0.0 0.0 32 G 5.140405E-07 4.018371E-05 0.0 0.0 0.0 0.0 34 G -2.600528E-06 5.991280E-06 0.0 0.0 0.0 0.0 35 G -7.079488E-06 1.164498E-05 0.0 0.0 0.0 0.0 37 G 0.0 8.371262E-06 0.0 0.0 0.0 0.0 38 G -2.165587E-06 1.156387E-05 0.0 0.0 0.0 0.0 40 G -3.324968E-07 7.811291E-06 0.0 0.0 0.0 0.0 41 G 0.0 1.047571E-05 0.0 0.0 0.0 0.0 41 G -6.439684E-07 0.0 0.0 0.0 0.0 0.0 43 G 0.0 6.172360E-06 0.0 0.0 0.0 0.0 44 G 7.763518E-07 9.928668E-06 0.0 0.0 0.0 0.0 46 G 3.277963E-06 3.277963E-06 0.0 0.0 0.0 0.0 47 G 5.608956E-06 5.608956E-06 0.0 0.0 0.0 0.0 108 G 1.602361E-06 -1.165527E-05 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 254 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT VANE1 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.191551E-05 8.608121E-07 0.0 0.0 0.0 0.0 2 G -2.191546E-05 2.350861E-06 0.0 0.0 0.0 0.0 3 G -1.968054E-05 8.609264E-07 0.0 0.0 0.0 0.0 4 G -1.968017E-05 2.350909E-06 0.0 0.0 0.0 0.0 5 G -1.744547E-05 8.624753E-07 0.0 0.0 0.0 0.0 6 G -1.744261E-05 2.350640E-06 0.0 0.0 0.0 0.0 7 G 1.520824E-05 -8.771087E-07 0.0 0.0 0.0 0.0 8 G 1.519253E-05 -2.344542E-06 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 255 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT VANE2 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.191551E-05 8.608121E-07 0.0 0.0 0.0 0.0 2 G -2.191557E-05 -6.290987E-07 0.0 0.0 0.0 0.0 3 G -1.968054E-05 8.609264E-07 0.0 0.0 0.0 0.0 4 G -1.968093E-05 -6.290471E-07 0.0 0.0 0.0 0.0 5 G -1.744547E-05 8.624753E-07 0.0 0.0 0.0 0.0 6 G -1.744888E-05 -6.292407E-07 0.0 0.0 0.0 0.0 7 G 1.520824E-05 -8.771087E-07 0.0 0.0 0.0 0.0 8 G 1.523633E-05 6.336330E-07 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 256 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT ROOT1 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.520824E-05 -8.771087E-07 0.0 0.0 0.0 0.0 2 G 1.519253E-05 -2.344542E-06 0.0 0.0 0.0 0.0 3 G 1.292194E-05 -9.883806E-07 0.0 0.0 0.0 0.0 4 G 1.293116E-05 -2.271383E-06 0.0 0.0 0.0 0.0 5 G 1.047571E-05 0.0 0.0 0.0 0.0 0.0 5 G 0.0 -9.752778E-07 0.0 0.0 0.0 0.0 6 G 1.156387E-05 -2.165588E-06 0.0 0.0 0.0 0.0 7 G 9.515968E-06 -6.087409E-06 0.0 0.0 0.0 0.0 8 G 1.164498E-05 -7.079488E-06 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 257 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT ROOT2 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.520824E-05 -8.771087E-07 0.0 0.0 0.0 0.0 2 G 1.523633E-05 6.336330E-07 0.0 0.0 0.0 0.0 3 G 1.292194E-05 -9.883806E-07 0.0 0.0 0.0 0.0 4 G 1.319384E-05 6.680856E-07 0.0 0.0 0.0 0.0 5 G 1.047571E-05 0.0 0.0 0.0 0.0 0.0 5 G 0.0 -9.752778E-07 0.0 0.0 0.0 0.0 6 G 9.928668E-06 7.763517E-07 0.0 0.0 0.0 0.0 7 G 7.634854E-06 7.634854E-06 0.0 0.0 0.0 0.0 8 G 5.608956E-06 5.608956E-06 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 258 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT LVANE1 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.191551E-05 -8.608116E-07 0.0 0.0 0.0 0.0 2 G -2.191557E-05 6.290987E-07 0.0 0.0 0.0 0.0 3 G -1.968054E-05 -8.609259E-07 0.0 0.0 0.0 0.0 4 G -1.968093E-05 6.290472E-07 0.0 0.0 0.0 0.0 5 G -1.744547E-05 -8.624748E-07 0.0 0.0 0.0 0.0 6 G -1.744888E-05 6.292407E-07 0.0 0.0 0.0 0.0 7 G -8.771082E-07 1.520824E-05 0.0 0.0 0.0 0.0 8 G 6.336330E-07 1.523633E-05 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 259 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT LVANE2 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.191551E-05 -8.608116E-07 0.0 0.0 0.0 0.0 2 G -2.191545E-05 -2.350860E-06 0.0 0.0 0.0 0.0 3 G -1.968054E-05 -8.609259E-07 0.0 0.0 0.0 0.0 4 G -1.968017E-05 -2.350908E-06 0.0 0.0 0.0 0.0 5 G -1.744547E-05 -8.624748E-07 0.0 0.0 0.0 0.0 6 G -1.744261E-05 -2.350639E-06 0.0 0.0 0.0 0.0 7 G -8.771082E-07 1.520824E-05 0.0 0.0 0.0 0.0 8 G -2.344541E-06 1.519253E-05 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 260 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT LROOT1 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -8.771082E-07 1.520824E-05 0.0 0.0 0.0 0.0 2 G 6.336330E-07 1.523633E-05 0.0 0.0 0.0 0.0 3 G -9.883801E-07 1.292193E-05 0.0 0.0 0.0 0.0 4 G 6.680856E-07 1.319384E-05 0.0 0.0 0.0 0.0 5 G 0.0 1.047571E-05 0.0 0.0 0.0 0.0 5 G -9.752772E-07 0.0 0.0 0.0 0.0 0.0 6 G 7.763518E-07 9.928668E-06 0.0 0.0 0.0 0.0 7 G 7.634854E-06 7.634854E-06 0.0 0.0 0.0 0.0 8 G 5.608956E-06 5.608956E-06 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 261 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT LROOT2 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -8.771082E-07 1.520824E-05 0.0 0.0 0.0 0.0 2 G -2.344541E-06 1.519253E-05 0.0 0.0 0.0 0.0 3 G -9.883801E-07 1.292193E-05 0.0 0.0 0.0 0.0 4 G -2.271382E-06 1.293116E-05 0.0 0.0 0.0 0.0 5 G 0.0 1.047571E-05 0.0 0.0 0.0 0.0 5 G -9.752772E-07 0.0 0.0 0.0 0.0 0.0 6 G -2.165587E-06 1.156387E-05 0.0 0.0 0.0 0.0 7 G -6.087409E-06 9.515968E-06 0.0 0.0 0.0 0.0 8 G -7.079488E-06 1.164498E-05 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 262 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT BVANE1 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.191551E-05 3.859980E-04 0.0 0.0 0.0 0.0 2 G -3.438945E-05 3.874633E-04 0.0 0.0 0.0 0.0 3 G -1.968054E-05 3.110513E-04 0.0 0.0 0.0 0.0 4 G -3.210570E-05 3.124478E-04 0.0 0.0 0.0 0.0 5 G -1.744547E-05 2.364426E-04 0.0 0.0 0.0 0.0 6 G -2.953589E-05 2.372383E-04 0.0 0.0 0.0 0.0 7 G 1.520824E-05 1.638057E-04 0.0 0.0 0.0 0.0 8 G 2.593191E-05 1.606965E-04 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 263 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT BVANE2 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.191551E-05 3.859980E-04 0.0 0.0 0.0 0.0 2 G -9.441568E-06 3.844834E-04 0.0 0.0 0.0 0.0 3 G -1.968054E-05 3.110513E-04 0.0 0.0 0.0 0.0 4 G -7.255400E-06 3.094678E-04 0.0 0.0 0.0 0.0 5 G -1.744547E-05 2.364426E-04 0.0 0.0 0.0 0.0 6 G -5.355591E-06 2.342584E-04 0.0 0.0 0.0 0.0 7 G 1.520824E-05 1.638057E-04 0.0 0.0 0.0 0.0 8 G 4.496952E-06 1.577183E-04 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 264 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT BROOT1 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.520824E-05 1.638057E-04 0.0 0.0 0.0 0.0 2 G 2.593191E-05 1.606965E-04 0.0 0.0 0.0 0.0 3 G 1.292193E-05 1.006230E-04 0.0 0.0 0.0 0.0 4 G 2.153777E-05 7.603752E-05 0.0 0.0 0.0 0.0 5 G 0.0 8.307965E-05 0.0 0.0 0.0 0.0 5 G 1.047571E-05 0.0 0.0 0.0 0.0 0.0 6 G 2.097850E-05 4.312564E-05 0.0 0.0 0.0 0.0 7 G 2.323823E-05 2.323823E-05 0.0 0.0 0.0 0.0 8 G 2.433343E-05 2.433343E-05 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 265 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT BROOT2 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.520824E-05 1.638057E-04 0.0 0.0 0.0 0.0 2 G 4.496952E-06 1.577183E-04 0.0 0.0 0.0 0.0 3 G 1.292193E-05 1.006230E-04 0.0 0.0 0.0 0.0 4 G 4.587235E-06 7.309805E-05 0.0 0.0 0.0 0.0 5 G 0.0 8.307965E-05 0.0 0.0 0.0 0.0 5 G 1.047571E-05 0.0 0.0 0.0 0.0 0.0 6 G 5.140405E-07 4.018371E-05 0.0 0.0 0.0 0.0 7 G -6.087409E-06 9.515968E-06 0.0 0.0 0.0 0.0 8 G -7.079488E-06 1.164498E-05 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 266 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT RROOT1 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.638057E-04 1.520824E-05 0.0 0.0 0.0 0.0 2 G 1.606965E-04 2.593191E-05 0.0 0.0 0.0 0.0 3 G 1.006230E-04 1.292193E-05 0.0 0.0 0.0 0.0 4 G 7.603752E-05 2.153777E-05 0.0 0.0 0.0 0.0 5 G 0.0 1.047571E-05 0.0 0.0 0.0 0.0 5 G 8.307965E-05 0.0 0.0 0.0 0.0 0.0 6 G 4.312564E-05 2.097850E-05 0.0 0.0 0.0 0.0 7 G 2.323823E-05 2.323823E-05 0.0 0.0 0.0 0.0 8 G 2.433343E-05 2.433343E-05 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 267 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT RROOT2 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.638057E-04 1.520824E-05 0.0 0.0 0.0 0.0 2 G 1.577183E-04 4.496952E-06 0.0 0.0 0.0 0.0 3 G 1.006230E-04 1.292193E-05 0.0 0.0 0.0 0.0 4 G 7.309805E-05 4.587235E-06 0.0 0.0 0.0 0.0 5 G 0.0 1.047571E-05 0.0 0.0 0.0 0.0 5 G 8.307965E-05 0.0 0.0 0.0 0.0 0.0 6 G 4.018371E-05 5.140406E-07 0.0 0.0 0.0 0.0 7 G 9.515968E-06 -6.087409E-06 0.0 0.0 0.0 0.0 8 G 1.164498E-05 -7.079488E-06 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 268 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT RVANE1 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.191551E-05 -3.859980E-04 0.0 0.0 0.0 0.0 2 G 3.438945E-05 -3.874633E-04 0.0 0.0 0.0 0.0 3 G 1.968054E-05 -3.110513E-04 0.0 0.0 0.0 0.0 4 G 3.210570E-05 -3.124478E-04 0.0 0.0 0.0 0.0 5 G 1.744547E-05 -2.364426E-04 0.0 0.0 0.0 0.0 6 G 2.953589E-05 -2.372383E-04 0.0 0.0 0.0 0.0 7 G 1.638057E-04 1.520824E-05 0.0 0.0 0.0 0.0 8 G 1.606965E-04 2.593191E-05 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 269 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT RVANE2 SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.191551E-05 -3.859980E-04 0.0 0.0 0.0 0.0 2 G 9.441567E-06 -3.844834E-04 0.0 0.0 0.0 0.0 3 G 1.968054E-05 -3.110513E-04 0.0 0.0 0.0 0.0 4 G 7.255399E-06 -3.094678E-04 0.0 0.0 0.0 0.0 5 G 1.744547E-05 -2.364426E-04 0.0 0.0 0.0 0.0 6 G 5.355591E-06 -2.342584E-04 0.0 0.0 0.0 0.0 7 G 1.638057E-04 1.520824E-05 0.0 0.0 0.0 0.0 8 G 1.577183E-04 4.496952E-06 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 270 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT HUB SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.030348E-07 0.0 0.0 0.0 0.0 0.0 2 G 6.187168E-08 -1.398604E-07 0.0 0.0 0.0 0.0 4 G 5.649104E-14 -1.586544E-06 0.0 0.0 0.0 0.0 5 G 0.0 -1.218223E-06 0.0 0.0 0.0 0.0 5 G 7.715708E-14 0.0 0.0 0.0 0.0 0.0 7 G 1.030349E-07 0.0 0.0 0.0 0.0 0.0 10 G 7.883455E-08 3.399462E-09 0.0 0.0 0.0 0.0 11 G 4.464573E-08 -2.663294E-09 0.0 0.0 0.0 0.0 13 G 0.0 5.574307E-10 0.0 0.0 0.0 0.0 14 G 9.545968E-09 -1.067458E-08 0.0 0.0 0.0 0.0 16 G 3.383299E-10 -2.378025E-09 0.0 0.0 0.0 0.0 17 G 0.0 -8.726363E-09 0.0 0.0 0.0 0.0 17 G 9.869841E-10 0.0 0.0 0.0 0.0 0.0 19 G 0.0 -3.605775E-09 0.0 0.0 0.0 0.0 20 G -2.253810E-10 -8.167829E-09 0.0 0.0 0.0 0.0 22 G -9.613698E-10 -1.313596E-09 0.0 0.0 0.0 0.0 23 G -1.936940E-09 -2.810916E-09 0.0 0.0 0.0 0.0 25 G -7.297873E-10 0.0 0.0 0.0 0.0 0.0 26 G -9.521191E-10 -8.604193E-10 0.0 0.0 0.0 0.0 28 G -1.644306E-14 -1.626000E-10 0.0 0.0 0.0 0.0 29 G -2.420368E-14 0.0 0.0 0.0 0.0 0.0 29 G 0.0 -4.754937E-10 0.0 0.0 0.0 0.0 31 G 7.297578E-10 0.0 0.0 0.0 0.0 0.0 32 G 9.520696E-10 -8.604117E-10 0.0 0.0 0.0 0.0 34 G 9.613531E-10 -1.313576E-09 0.0 0.0 0.0 0.0 35 G 1.936910E-09 -2.810881E-09 0.0 0.0 0.0 0.0 37 G 0.0 -3.605737E-09 0.0 0.0 0.0 0.0 38 G 2.253748E-10 -8.167763E-09 0.0 0.0 0.0 0.0 40 G -3.383293E-10 -2.377982E-09 0.0 0.0 0.0 0.0 41 G 0.0 -8.726295E-09 0.0 0.0 0.0 0.0 41 G -9.869821E-10 0.0 0.0 0.0 0.0 0.0 43 G 0.0 5.574692E-10 0.0 0.0 0.0 0.0 44 G -9.545950E-09 -1.067451E-08 0.0 0.0 0.0 0.0 46 G -7.883449E-08 3.399481E-09 0.0 0.0 0.0 0.0 47 G -4.464564E-08 -2.663251E-09 0.0 0.0 0.0 0.0 108 G -1.522487E-07 1.446874E-08 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 271 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT VANE1 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -9.836983E-14 1.348591E-07 0.0 0.0 0.0 0.0 2 G -8.153989E-11 1.350002E-07 0.0 0.0 0.0 0.0 3 G -9.627897E-14 1.346897E-07 0.0 0.0 0.0 0.0 4 G -1.236044E-10 1.350927E-07 0.0 0.0 0.0 0.0 5 G -9.418701E-14 1.338180E-07 0.0 0.0 0.0 0.0 6 G -1.289829E-10 1.358698E-07 0.0 0.0 0.0 0.0 7 G 9.207020E-14 -1.312908E-07 0.0 0.0 0.0 0.0 8 G -3.731483E-09 -1.397481E-07 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 272 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT VANE2 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -9.836983E-14 1.348591E-07 0.0 0.0 0.0 0.0 2 G 8.134315E-11 1.350002E-07 0.0 0.0 0.0 0.0 3 G -9.627897E-14 1.346897E-07 0.0 0.0 0.0 0.0 4 G 1.234119E-10 1.350927E-07 0.0 0.0 0.0 0.0 5 G -9.418701E-14 1.338180E-07 0.0 0.0 0.0 0.0 6 G 1.287945E-10 1.358698E-07 0.0 0.0 0.0 0.0 7 G 9.207020E-14 -1.312908E-07 0.0 0.0 0.0 0.0 8 G 3.731667E-09 -1.397480E-07 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 273 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT ROOT1 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 9.207020E-14 -1.312908E-07 0.0 0.0 0.0 0.0 2 G -3.731483E-09 -1.397481E-07 0.0 0.0 0.0 0.0 3 G 8.938956E-14 -1.384233E-07 0.0 0.0 0.0 0.0 4 G -5.092468E-08 -1.531117E-07 0.0 0.0 0.0 0.0 5 G 7.715708E-14 0.0 0.0 0.0 0.0 0.0 5 G 0.0 -1.475767E-07 0.0 0.0 0.0 0.0 6 G -6.187154E-08 -1.398604E-07 0.0 0.0 0.0 0.0 7 G 2.277065E-08 8.388493E-09 0.0 0.0 0.0 0.0 8 G 4.464573E-08 -2.663294E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 274 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT ROOT2 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 9.207020E-14 -1.312908E-07 0.0 0.0 0.0 0.0 2 G 3.731667E-09 -1.397480E-07 0.0 0.0 0.0 0.0 3 G 8.938956E-14 -1.384233E-07 0.0 0.0 0.0 0.0 4 G 5.092486E-08 -1.531117E-07 0.0 0.0 0.0 0.0 5 G 7.715708E-14 0.0 0.0 0.0 0.0 0.0 5 G 0.0 -1.475767E-07 0.0 0.0 0.0 0.0 6 G 6.187168E-08 -1.398604E-07 0.0 0.0 0.0 0.0 7 G -2.277054E-08 8.388557E-09 0.0 0.0 0.0 0.0 8 G -4.464564E-08 -2.663251E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 275 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT LVANE1 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.265985E-08 -4.426523E-09 0.0 0.0 0.0 0.0 2 G 4.265768E-08 -8.993104E-09 0.0 0.0 0.0 0.0 3 G 3.580430E-08 -4.431025E-09 0.0 0.0 0.0 0.0 4 G 3.580108E-08 -8.990622E-09 0.0 0.0 0.0 0.0 5 G 2.894859E-08 -4.454032E-09 0.0 0.0 0.0 0.0 6 G 2.894613E-08 -8.969854E-09 0.0 0.0 0.0 0.0 7 G -4.518991E-09 -2.208935E-08 0.0 0.0 0.0 0.0 8 G -8.865822E-09 -2.220287E-08 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 276 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT LVANE2 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.265985E-08 -4.426523E-09 0.0 0.0 0.0 0.0 2 G 4.266201E-08 1.476191E-10 0.0 0.0 0.0 0.0 3 G 3.580430E-08 -4.431025E-09 0.0 0.0 0.0 0.0 4 G 3.580755E-08 1.500946E-10 0.0 0.0 0.0 0.0 5 G 2.894859E-08 -4.454032E-09 0.0 0.0 0.0 0.0 6 G 2.895194E-08 1.707398E-10 0.0 0.0 0.0 0.0 7 G -4.518991E-09 -2.208935E-08 0.0 0.0 0.0 0.0 8 G 2.719824E-10 -2.199610E-08 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 277 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT LROOT1 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -4.518991E-09 -2.208935E-08 0.0 0.0 0.0 0.0 2 G -8.865822E-09 -2.220287E-08 0.0 0.0 0.0 0.0 3 G -4.309472E-09 -1.514982E-08 0.0 0.0 0.0 0.0 4 G -8.486619E-09 -1.676190E-08 0.0 0.0 0.0 0.0 5 G 0.0 -8.726295E-09 0.0 0.0 0.0 0.0 5 G -4.148007E-09 0.0 0.0 0.0 0.0 0.0 6 G -9.545950E-09 -1.067451E-08 0.0 0.0 0.0 0.0 7 G -2.277054E-08 8.388557E-09 0.0 0.0 0.0 0.0 8 G -4.464564E-08 -2.663251E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 278 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT LROOT2 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -4.518991E-09 -2.208935E-08 0.0 0.0 0.0 0.0 2 G 2.719824E-10 -2.199610E-08 0.0 0.0 0.0 0.0 3 G -4.309472E-09 -1.514982E-08 0.0 0.0 0.0 0.0 4 G 5.878570E-10 -1.399770E-08 0.0 0.0 0.0 0.0 5 G 0.0 -8.726295E-09 0.0 0.0 0.0 0.0 5 G -4.148007E-09 0.0 0.0 0.0 0.0 0.0 6 G 2.253748E-10 -8.167763E-09 0.0 0.0 0.0 0.0 7 G 2.812853E-09 -4.251674E-09 0.0 0.0 0.0 0.0 8 G 1.936910E-09 -2.810881E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 279 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT BVANE1 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 5.850196E-14 -1.100441E-09 0.0 0.0 0.0 0.0 2 G -8.518395E-13 -1.098899E-09 0.0 0.0 0.0 0.0 3 G 5.211953E-14 -1.102333E-09 0.0 0.0 0.0 0.0 4 G -1.382410E-12 -1.097886E-09 0.0 0.0 0.0 0.0 5 G 4.573666E-14 -1.112249E-09 0.0 0.0 0.0 0.0 6 G -1.958013E-12 -1.089260E-09 0.0 0.0 0.0 0.0 7 G -3.934350E-14 -1.142872E-09 0.0 0.0 0.0 0.0 8 G -3.720392E-11 -1.045451E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 280 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT BVANE2 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 5.850196E-14 -1.100441E-09 0.0 0.0 0.0 0.0 2 G 9.688435E-13 -1.098890E-09 0.0 0.0 0.0 0.0 3 G 5.211953E-14 -1.102333E-09 0.0 0.0 0.0 0.0 4 G 1.486649E-12 -1.097878E-09 0.0 0.0 0.0 0.0 5 G 4.573666E-14 -1.112249E-09 0.0 0.0 0.0 0.0 6 G 2.049489E-12 -1.089251E-09 0.0 0.0 0.0 0.0 7 G -3.934350E-14 -1.142872E-09 0.0 0.0 0.0 0.0 8 G 3.712518E-11 -1.045443E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 281 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT BROOT1 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.934350E-14 -1.142872E-09 0.0 0.0 0.0 0.0 2 G -3.720392E-11 -1.045451E-09 0.0 0.0 0.0 0.0 3 G -3.271717E-14 -1.084683E-09 0.0 0.0 0.0 0.0 4 G -5.382276E-10 -8.878813E-10 0.0 0.0 0.0 0.0 5 G 0.0 -9.444789E-10 0.0 0.0 0.0 0.0 5 G -2.420368E-14 0.0 0.0 0.0 0.0 0.0 6 G -9.521191E-10 -8.604193E-10 0.0 0.0 0.0 0.0 7 G -2.812895E-09 -4.251722E-09 0.0 0.0 0.0 0.0 8 G -1.936940E-09 -2.810916E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 282 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT BROOT2 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.934350E-14 -1.142872E-09 0.0 0.0 0.0 0.0 2 G 3.712518E-11 -1.045443E-09 0.0 0.0 0.0 0.0 3 G -3.271717E-14 -1.084683E-09 0.0 0.0 0.0 0.0 4 G 5.381608E-10 -8.878730E-10 0.0 0.0 0.0 0.0 5 G 0.0 -9.444789E-10 0.0 0.0 0.0 0.0 5 G -2.420368E-14 0.0 0.0 0.0 0.0 0.0 6 G 9.520696E-10 -8.604117E-10 0.0 0.0 0.0 0.0 7 G 2.812853E-09 -4.251674E-09 0.0 0.0 0.0 0.0 8 G 1.936910E-09 -2.810881E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 283 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT RROOT1 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.518998E-09 -2.208946E-08 0.0 0.0 0.0 0.0 2 G -2.719895E-10 -2.199622E-08 0.0 0.0 0.0 0.0 3 G 4.309479E-09 -1.514992E-08 0.0 0.0 0.0 0.0 4 G -5.878648E-10 -1.399779E-08 0.0 0.0 0.0 0.0 5 G 0.0 -8.726363E-09 0.0 0.0 0.0 0.0 5 G 4.148013E-09 0.0 0.0 0.0 0.0 0.0 6 G -2.253810E-10 -8.167829E-09 0.0 0.0 0.0 0.0 7 G -2.812895E-09 -4.251722E-09 0.0 0.0 0.0 0.0 8 G -1.936940E-09 -2.810916E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 284 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT RROOT2 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.518998E-09 -2.208946E-08 0.0 0.0 0.0 0.0 2 G 8.865842E-09 -2.220298E-08 0.0 0.0 0.0 0.0 3 G 4.309479E-09 -1.514992E-08 0.0 0.0 0.0 0.0 4 G 8.486640E-09 -1.676200E-08 0.0 0.0 0.0 0.0 5 G 0.0 -8.726363E-09 0.0 0.0 0.0 0.0 5 G 4.148013E-09 0.0 0.0 0.0 0.0 0.0 6 G 9.545968E-09 -1.067458E-08 0.0 0.0 0.0 0.0 7 G 2.277065E-08 8.388493E-09 0.0 0.0 0.0 0.0 8 G 4.464573E-08 -2.663294E-09 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 285 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT RVANE1 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -4.266003E-08 -4.426530E-09 0.0 0.0 0.0 0.0 2 G -4.266219E-08 1.476260E-10 0.0 0.0 0.0 0.0 3 G -3.580445E-08 -4.431032E-09 0.0 0.0 0.0 0.0 4 G -3.580771E-08 1.501015E-10 0.0 0.0 0.0 0.0 5 G -2.894873E-08 -4.454039E-09 0.0 0.0 0.0 0.0 6 G -2.895208E-08 1.707467E-10 0.0 0.0 0.0 0.0 7 G 4.518998E-09 -2.208946E-08 0.0 0.0 0.0 0.0 8 G -2.719895E-10 -2.199622E-08 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 286 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT RVANE2 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -4.266003E-08 -4.426530E-09 0.0 0.0 0.0 0.0 2 G -4.265786E-08 -8.993125E-09 0.0 0.0 0.0 0.0 3 G -3.580445E-08 -4.431032E-09 0.0 0.0 0.0 0.0 4 G -3.580124E-08 -8.990644E-09 0.0 0.0 0.0 0.0 5 G -2.894873E-08 -4.454039E-09 0.0 0.0 0.0 0.0 6 G -2.894627E-08 -8.969876E-09 0.0 0.0 0.0 0.0 7 G 4.518998E-09 -2.208946E-08 0.0 0.0 0.0 0.0 8 G 8.865842E-09 -2.220298E-08 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 287 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT HUB SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.302132E-03 0.0 0.0 0.0 0.0 0.0 2 G -3.125116E-03 9.375350E-03 0.0 0.0 0.0 0.0 4 G 0.0 3.125116E-03 0.0 0.0 0.0 0.0 5 G 0.0 4.687674E-03 0.0 0.0 0.0 0.0 7 G 1.302132E-03 0.0 0.0 0.0 0.0 0.0 10 G 1.562558E-03 1.562558E-03 0.0 0.0 0.0 0.0 11 G 6.250232E-03 6.250232E-03 0.0 0.0 0.0 0.0 13 G 0.0 1.302132E-03 0.0 0.0 0.0 0.0 14 G 9.375350E-03 3.125116E-03 0.0 0.0 0.0 0.0 16 G 3.125116E-03 0.0 0.0 0.0 0.0 0.0 17 G 4.687674E-03 0.0 0.0 0.0 0.0 0.0 19 G 0.0 -1.302132E-03 0.0 0.0 0.0 0.0 20 G 9.375350E-03 -3.125116E-03 0.0 0.0 0.0 0.0 22 G 1.562558E-03 -1.562558E-03 0.0 0.0 0.0 0.0 23 G 6.250232E-03 -6.250232E-03 0.0 0.0 0.0 0.0 25 G 1.302132E-03 0.0 0.0 0.0 0.0 0.0 26 G 3.125116E-03 -9.375350E-03 0.0 0.0 0.0 0.0 28 G 0.0 -3.125116E-03 0.0 0.0 0.0 0.0 29 G 0.0 -4.687674E-03 0.0 0.0 0.0 0.0 31 G -1.302132E-03 0.0 0.0 0.0 0.0 0.0 32 G -3.125116E-03 -9.375350E-03 0.0 0.0 0.0 0.0 34 G -1.562558E-03 -1.562558E-03 0.0 0.0 0.0 0.0 35 G -6.250232E-03 -6.250232E-03 0.0 0.0 0.0 0.0 37 G 0.0 -1.302132E-03 0.0 0.0 0.0 0.0 38 G -9.375350E-03 -3.125116E-03 0.0 0.0 0.0 0.0 40 G -3.125116E-03 0.0 0.0 0.0 0.0 0.0 41 G -4.687674E-03 0.0 0.0 0.0 0.0 0.0 43 G 0.0 1.302132E-03 0.0 0.0 0.0 0.0 44 G -9.375350E-03 3.125116E-03 0.0 0.0 0.0 0.0 46 G -1.562558E-03 1.562558E-03 0.0 0.0 0.0 0.0 47 G -6.250232E-03 6.250232E-03 0.0 0.0 0.0 0.0 108 G 4.529472E-03 -1.365965E-10 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 288 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT VANE1 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.343837E-02 0.0 0.0 0.0 0.0 2 G -1.171919E-03 -1.171919E-02 0.0 0.0 0.0 0.0 3 G 0.0 -3.984523E-02 0.0 0.0 0.0 0.0 4 G -2.343837E-03 -1.992262E-02 0.0 0.0 0.0 0.0 5 G 0.0 -3.281372E-02 0.0 0.0 0.0 0.0 6 G -2.343837E-03 -1.640686E-02 0.0 0.0 0.0 0.0 7 G 0.0 2.578221E-02 0.0 0.0 0.0 0.0 8 G 2.343837E-03 1.289110E-02 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 289 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT VANE2 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.343837E-02 0.0 0.0 0.0 0.0 2 G 1.171919E-03 -1.171919E-02 0.0 0.0 0.0 0.0 3 G 0.0 -3.984523E-02 0.0 0.0 0.0 0.0 4 G 2.343837E-03 -1.992262E-02 0.0 0.0 0.0 0.0 5 G 0.0 -3.281372E-02 0.0 0.0 0.0 0.0 6 G 2.343837E-03 -1.640686E-02 0.0 0.0 0.0 0.0 7 G 0.0 2.578221E-02 0.0 0.0 0.0 0.0 8 G -2.343837E-03 1.289110E-02 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 290 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT ROOT1 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 2.578221E-02 0.0 0.0 0.0 0.0 2 G 2.343837E-03 1.289110E-02 0.0 0.0 0.0 0.0 3 G 0.0 1.562558E-02 0.0 0.0 0.0 0.0 4 G 2.994903E-03 1.197961E-02 0.0 0.0 0.0 0.0 5 G 0.0 4.687674E-03 0.0 0.0 0.0 0.0 6 G 1.692771E-03 5.078314E-03 0.0 0.0 0.0 0.0 7 G 5.208528E-03 5.208528E-03 0.0 0.0 0.0 0.0 8 G 6.250232E-03 6.250232E-03 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 291 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT ROOT2 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 2.578221E-02 0.0 0.0 0.0 0.0 2 G -2.343837E-03 1.289110E-02 0.0 0.0 0.0 0.0 3 G 0.0 1.562558E-02 0.0 0.0 0.0 0.0 4 G -2.994903E-03 1.197961E-02 0.0 0.0 0.0 0.0 5 G 0.0 4.687674E-03 0.0 0.0 0.0 0.0 6 G -3.125116E-03 9.375350E-03 0.0 0.0 0.0 0.0 7 G -5.208528E-03 5.208528E-03 0.0 0.0 0.0 0.0 8 G -6.250232E-03 6.250232E-03 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 292 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT LVANE1 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.343837E-02 0.0 0.0 0.0 0.0 2 G -1.171919E-03 -1.171919E-02 0.0 0.0 0.0 0.0 3 G 0.0 -3.984523E-02 0.0 0.0 0.0 0.0 4 G -2.343837E-03 -1.992262E-02 0.0 0.0 0.0 0.0 5 G 0.0 -3.281372E-02 0.0 0.0 0.0 0.0 6 G -2.343837E-03 -1.640686E-02 0.0 0.0 0.0 0.0 7 G -2.578221E-02 0.0 0.0 0.0 0.0 0.0 8 G -1.289110E-02 2.343837E-03 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 293 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT LVANE2 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.343837E-02 0.0 0.0 0.0 0.0 2 G 1.171919E-03 -1.171919E-02 0.0 0.0 0.0 0.0 3 G 0.0 -3.984523E-02 0.0 0.0 0.0 0.0 4 G 2.343837E-03 -1.992262E-02 0.0 0.0 0.0 0.0 5 G 0.0 -3.281372E-02 0.0 0.0 0.0 0.0 6 G 2.343837E-03 -1.640686E-02 0.0 0.0 0.0 0.0 7 G -2.578221E-02 0.0 0.0 0.0 0.0 0.0 8 G -1.289110E-02 -2.343837E-03 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 294 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT LROOT1 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.578221E-02 0.0 0.0 0.0 0.0 0.0 2 G -1.289110E-02 2.343837E-03 0.0 0.0 0.0 0.0 3 G -1.562558E-02 0.0 0.0 0.0 0.0 0.0 4 G -1.197961E-02 2.994903E-03 0.0 0.0 0.0 0.0 5 G -4.687674E-03 0.0 0.0 0.0 0.0 0.0 6 G -9.375350E-03 3.125116E-03 0.0 0.0 0.0 0.0 7 G -5.208528E-03 5.208528E-03 0.0 0.0 0.0 0.0 8 G -6.250232E-03 6.250232E-03 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 295 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT LROOT2 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.578221E-02 0.0 0.0 0.0 0.0 0.0 2 G -1.289110E-02 -2.343837E-03 0.0 0.0 0.0 0.0 3 G -1.562558E-02 0.0 0.0 0.0 0.0 0.0 4 G -1.197961E-02 -2.994903E-03 0.0 0.0 0.0 0.0 5 G -4.687674E-03 0.0 0.0 0.0 0.0 0.0 6 G -9.375350E-03 -3.125116E-03 0.0 0.0 0.0 0.0 7 G -5.208528E-03 -5.208528E-03 0.0 0.0 0.0 0.0 8 G -6.250232E-03 -6.250232E-03 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 296 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT BVANE1 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.343837E-02 0.0 0.0 0.0 0.0 2 G -1.171919E-03 -1.171919E-02 0.0 0.0 0.0 0.0 3 G 0.0 -3.984523E-02 0.0 0.0 0.0 0.0 4 G -2.343837E-03 -1.992262E-02 0.0 0.0 0.0 0.0 5 G 0.0 -3.281372E-02 0.0 0.0 0.0 0.0 6 G -2.343837E-03 -1.640686E-02 0.0 0.0 0.0 0.0 7 G 0.0 -2.578221E-02 0.0 0.0 0.0 0.0 8 G 2.343837E-03 -1.289110E-02 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 297 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT BVANE2 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.343837E-02 0.0 0.0 0.0 0.0 2 G 1.171919E-03 -1.171919E-02 0.0 0.0 0.0 0.0 3 G 0.0 -3.984523E-02 0.0 0.0 0.0 0.0 4 G 2.343837E-03 -1.992262E-02 0.0 0.0 0.0 0.0 5 G 0.0 -3.281372E-02 0.0 0.0 0.0 0.0 6 G 2.343837E-03 -1.640686E-02 0.0 0.0 0.0 0.0 7 G 0.0 -2.578221E-02 0.0 0.0 0.0 0.0 8 G -2.343837E-03 -1.289110E-02 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 298 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT BROOT1 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.578221E-02 0.0 0.0 0.0 0.0 2 G 2.343837E-03 -1.289110E-02 0.0 0.0 0.0 0.0 3 G 0.0 -1.562558E-02 0.0 0.0 0.0 0.0 4 G 2.994903E-03 -1.197961E-02 0.0 0.0 0.0 0.0 5 G 0.0 -4.687674E-03 0.0 0.0 0.0 0.0 6 G 3.125116E-03 -9.375350E-03 0.0 0.0 0.0 0.0 7 G 5.208528E-03 -5.208528E-03 0.0 0.0 0.0 0.0 8 G 6.250232E-03 -6.250232E-03 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 299 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT BROOT2 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.578221E-02 0.0 0.0 0.0 0.0 2 G -2.343837E-03 -1.289110E-02 0.0 0.0 0.0 0.0 3 G 0.0 -1.562558E-02 0.0 0.0 0.0 0.0 4 G -2.994903E-03 -1.197961E-02 0.0 0.0 0.0 0.0 5 G 0.0 -4.687674E-03 0.0 0.0 0.0 0.0 6 G -3.125116E-03 -9.375350E-03 0.0 0.0 0.0 0.0 7 G -5.208528E-03 -5.208528E-03 0.0 0.0 0.0 0.0 8 G -6.250232E-03 -6.250232E-03 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 300 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT RROOT1 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.578221E-02 0.0 0.0 0.0 0.0 0.0 2 G 1.289110E-02 -2.343837E-03 0.0 0.0 0.0 0.0 3 G 1.562558E-02 0.0 0.0 0.0 0.0 0.0 4 G 1.197961E-02 -2.994903E-03 0.0 0.0 0.0 0.0 5 G 4.687674E-03 0.0 0.0 0.0 0.0 0.0 6 G 9.375350E-03 -3.125116E-03 0.0 0.0 0.0 0.0 7 G 5.208528E-03 -5.208528E-03 0.0 0.0 0.0 0.0 8 G 6.250232E-03 -6.250232E-03 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 301 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT RROOT2 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.578221E-02 0.0 0.0 0.0 0.0 0.0 2 G 1.289110E-02 2.343837E-03 0.0 0.0 0.0 0.0 3 G 1.562558E-02 0.0 0.0 0.0 0.0 0.0 4 G 1.197961E-02 2.994903E-03 0.0 0.0 0.0 0.0 5 G 4.687674E-03 0.0 0.0 0.0 0.0 0.0 6 G 9.375350E-03 3.125116E-03 0.0 0.0 0.0 0.0 7 G 5.208528E-03 5.208528E-03 0.0 0.0 0.0 0.0 8 G 6.250232E-03 6.250232E-03 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 302 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT RVANE1 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.343837E-02 0.0 0.0 0.0 0.0 2 G -1.171919E-03 -1.171919E-02 0.0 0.0 0.0 0.0 3 G 0.0 -3.984523E-02 0.0 0.0 0.0 0.0 4 G -2.343837E-03 -1.992262E-02 0.0 0.0 0.0 0.0 5 G 0.0 -3.281372E-02 0.0 0.0 0.0 0.0 6 G -2.343837E-03 -1.640686E-02 0.0 0.0 0.0 0.0 7 G 2.578221E-02 0.0 0.0 0.0 0.0 0.0 8 G 1.289110E-02 -2.343837E-03 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 303 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE COMPONENT RVANE2 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.343837E-02 0.0 0.0 0.0 0.0 2 G 1.171919E-03 -1.171919E-02 0.0 0.0 0.0 0.0 3 G 0.0 -3.984523E-02 0.0 0.0 0.0 0.0 4 G 2.343837E-03 -1.992262E-02 0.0 0.0 0.0 0.0 5 G 0.0 -3.281372E-02 0.0 0.0 0.0 0.0 6 G 2.343837E-03 -1.640686E-02 0.0 0.0 0.0 0.0 7 G 2.578221E-02 0.0 0.0 0.0 0.0 0.0 8 G 1.289110E-02 2.343837E-03 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 304 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT BVANE1 SUBCASE 2 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 5.000000E+01 0.0 0.0 0.0 0.0 2 G 0.0 2.500000E+01 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 305 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT BVANE2 SUBCASE 2 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 5.000000E+01 0.0 0.0 0.0 0.0 2 G 0.0 2.500000E+01 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 306 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT RVANE1 SUBCASE 2 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -5.000000E+01 0.0 0.0 0.0 0.0 2 G 0.0 -2.500000E+01 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 307 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL COMPONENT RVANE2 SUBCASE 2 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -5.000000E+01 0.0 0.0 0.0 0.0 2 G 0.0 -2.500000E+01 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 308 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A SUBSTRUCTURE WINDMIL 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 COMPONENT HUB SUBCASE 3 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 4 G 0.0 -1.000000E+00 0.0 0.0 0.0 0.0 0*** USER INFORMATION MESSAGE 6312, LEVEL 1 DISPLACEMENTS FOR SUBSTRUCTURE HUB HAVE BEEN RECOVERED AND SAVED ON THE SOF. 0*** USER INFORMATION MESSAGE 6312, LEVEL 3 DISPLACEMENTS FOR SUBSTRUCTURE BLADES HAVE BEEN RECOVERED AND SAVED ON THE SOF. 0*** USER INFORMATION MESSAGE 6312, LEVEL 2 DISPLACEMENTS FOR SUBSTRUCTURE VANERGT HAVE BEEN RECOVERED AND SAVED ON THE SOF. 0*** USER INFORMATION MESSAGE 6312, LEVEL 1 DISPLACEMENTS FOR SUBSTRUCTURE RVANE1 HAVE BEEN RECOVERED AND SAVED ON THE SOF. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 309 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A 0 COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 27 28 3 3 3 3 3 3 3 3 3 3 3 2 ROOT1 B 24 0 0 6 7 3 3 3 3 3 3 3 3 3 VANE1 B 15 0 0 4 5 3 3 3 3 3 3 3 3 3 4 VANE2 B 14 3 0 3 5 3 0 0 3 3 0 0 0 3 5 VANETOP C 16 0 3 7 26 3 3 3 3 3 3 3 3 3 6 ROOT2 B 23 2 0 2 7 3 0 3 3 0 0 0 3 7 ROOTTOP C 25 0 2 10 26 3 3 3 3 3 3 3 3 8 LVANE2 IB 0 3 0 9 10 3 0 0 3 3 0 0 0 0 9 LVANE1 IB 4 3 0 8 10 3 0 0 3 3 0 0 0 0 10 VANELFT C 0 5 9 19 26 3 0 0 3 3 0 0 0 3 11 RVANE2 IB 8 3 0 12 13 3 0 0 3 3 0 0 0 0 12 RVANE1 IB 9 3 0 11 13 3 0 0 3 3 0 0 0 0 3 3 13 VANERGT C 10 5 12 26 27 3 0 0 3 3 0 0 0 3 3 3 14 BVANE2 IB 11 3 0 15 16 3 0 0 3 3 0 0 0 0 15 BVANE1 IB 12 3 0 14 16 3 0 0 3 3 0 0 0 0 16 VANEBOT C 13 5 15 25 26 3 0 0 3 3 0 0 0 3 17 LROOT2 IB 0 2 0 18 19 3 0 3 3 0 0 0 0 18 LROOT1 IB 6 2 0 17 19 3 0 3 3 0 0 0 0 19 ROOTLFT C 0 7 18 16 26 3 0 3 3 0 0 0 3 20 RROOT2 IB 17 2 0 21 22 3 0 3 3 0 0 0 0 21 RROOT1 IB 18 2 0 20 22 3 0 3 3 0 0 0 0 22 ROOTRGT C 19 7 21 5 26 3 0 3 3 0 0 0 3 23 BROOT2 IB 20 2 0 24 25 3 0 3 3 0 0 0 0 24 BROOT1 IB 21 2 0 23 25 3 0 3 3 0 0 0 0 25 ROOTBOT C 22 7 24 22 26 3 0 3 3 0 0 0 3 26 RING C 0 0 5 13 27 3 3 3 3 3 4 3 3 3 27 BLADES C 0 0 26 1 28 3 3 3 3 3 4 3 3 3 3 3 28 WINDMIL C 0 0 1 0 29 3 3 3 3 3 4 3 3 3 3 4 3 3 3 29 SMALLMIL R 0 0 28 0 0 3 3 3 3 3 4 4 4 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 663552 WORDS. OR = 648 BLOCKS. OR = 69 PERCENT. 0*** HIGHEST BLOCK USED = 278 * * * END OF JOB * * * 1 JOB TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR DATE: 5/17/95 END TIME: 15:19:19 TOTAL WALL CLOCK TIME 8 SEC. ================================================ FILE: demoout/d02025a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D02025A,NASTRAN APP DISP,SUBS SOL 1,0 TIME 5 DIAG 23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE3 PASSWORD = DEMO SOF(1) = FT18,950 $ DEC VAX SOFPRINT TOC RECOVER RVANE1 ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 78, 85 2 PARAM //*ADD*/DRY/1 /0 $ 3 LABEL LBSBEG $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 5 * */* */* * $ 6 ALTER 88, 95 7 PARAM //*NOP*/ALWAYS=-1 $ 8 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 9 RCOVR3 ,PG,PS,PO,YS/ULV ,QAS,PGS,PSS,POS,YSS, /1 /*RVANE1 */ 10 $ 11 EQUIV PGS,PG/ALWAYS $ 12 EQUIV PSS,PS/ALWAYS $ 13 EQUIV POS,PO/ALWAYS $ 14 EQUIV YSS,YS/ALWAYS $ 15 COND LBS3 ,OMIT $ 16 FBS LOO,,POS/UOOV/1/1/2 /0 $ 17 LABEL LBS3 $ 18 ALTER 96 19 UMERGE USET,QAS,/QGS/*G*/*A*/*O* $ 20 ADD QG ,QGS/QGT/ (1.0,0.0)/(1.0,0.0) $ 21 EQUIV QGT,QG /ALWAYS $ 22 LABEL LBSEND $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A 0 RECOVER RVANE1, RUN 5, PHASE 3 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A 3 LABEL = RECOVER RVANE1, RUN 5, PHASE 3 4 DISP = ALL 5 STRESS = ALL 6 SUBCASE 1 7 LABEL = ROTATIOAL FORCES ABOUT CENTER OF OVERALL STRUCTURE 8 SUBCASE 2 9 LABEL = EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL 10 SUBCASE 3 11 LABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 20, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A 0 RECOVER RVANE1, RUN 5, PHASE 3 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2R 1 5.0 22.5 .0 5.0 22.5 1.0 +A 2- +A .0 22.5 .0 3- CQDMEM 1 10 3 4 2 1 4- CQDMEM 2 10 5 6 4 3 5- CQDMEM 3 10 7 8 6 5 6- FORCE1 2 1 25.0 4 2 7- FORCE1 2 2 25.0 4 2 8- GRDSET 1 3456 9- GRID 1 .0 22.5 10- GRID 2 5.0 22.5 11- GRID 3 .0 15.0 12- GRID 4 5.0 15.0 13- GRID 5 .0 7.5 14- GRID 6 5.0 7.5 15- GRID 7 .0 .0 16- GRID 8 5.0 .0 17- GRID 9 .0 -27.5 123456 18- MAT1 50 1.0+7 .25 2.5E-4 1.0E-6 70.0 19- PQDMEM 10 50 .1 20- RFORCE 1 9 .1591579.0 .0 1.0 ENDDATA 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A 0 RECOVER RVANE1, RUN 5, PHASE 3 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 01 - STATIC ANALYSIS - APR. 1995 $ 2 FILE OPTP2=SAVE/EST1=SAVE $ 3 FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $ 4 SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ 5 PARAM //*MPY*/CARDNO/0/0 $ 6 COMPOFF 1,INTERACT $ 7 PRECHK ALL $ 8 COMPON 1,INTERACT $ 10 COMPOFF LBLINT02,SYS21 $ 11 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 12 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 13 EQUIV MPTA,MPT/ISOP $ 14 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 15 GP2 GEOM2,EQEXIN/ECT $ 16 PARAML PCDB//*PRES*////JUMPPLOT $ 17 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 18 COND P1,JUMPPLOT $ 19 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 20 PRTMSG PLTSETX// $ 21 PARAM //*MPY*/PLTFLG/1/1 $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A RECOVER RVANE1, RUN 5, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 22 PARAM //*MPY*/PFILE/0/0 $ 23 COND P1,JUMPPLOT $ 24 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 25 PRTMSG PLOTX1// $ 26 LABEL P1 $ 27 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ 28 PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ 29 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 30 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 31 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ 32 COND ERROR4,NOELMT $ 33 PURGE KGGX/NOSIMP $ 34 OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ 35 LABEL LOOPTOP $ 36 COND LBL1,NOSIMP $ 37 PARAM //*ADD*/NOKGGX/1/0 $ 38 EQUIV OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ 39 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 40 COND JMPKGG,NOKGGX $ 41 EMA GPECT,KDICT,KELM/KGGX $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A RECOVER RVANE1, RUN 5, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 LABEL JMPKGG $ 43 PURGE MGG/NOMGG $ 44 COND JMPMGG,NOMGG $ 45 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 46 PURGE MDICT,MELM/ALWAYS $ 47 LABEL JMPMGG $ 48 COND LBL1,GRDPNT $ 49 COND ERROR2,NOMGG $ 50 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ 51 OFP OGPWG,,,,,//S,N,CARDNO $ 52 LABEL LBL1 $ 53 EQUIV KGGX,KGG/NOGENL $ 54 COND LBL11A,NOGENL $ 55 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 56 LABEL LBL11A $ 57 GPSTGEN KGG,SIL/GPST $ 58 PARAM //*MPY*/NSKIP/0/0 $ 59 LABEL LBL11 $ 60 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 61 OFP OGPST,,,,,//S,N,CARDNO $ 62 COND ERROR3,NOL $ 63 PARAM //*AND*/NOSR/SINGLE/REACT $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A RECOVER RVANE1, RUN 5, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 64 PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ 65 EQUIV KGG,KNN/MPCF1 $ 66 COND LBL2,MPCF2 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,,,/KNN,,, $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 COND LBL5,OMIT $ 76 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 77 LABEL LBL5 $ 85 PARAM //*ADD*/DRY/1 /0 $ 85 LABEL LBSBEG $ 85 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 86 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ 87 EQUIV PG,PL/NOSET $ 95 PARAM //*NOP*/ALWAYS=-1 $ 0*** USER WARNING MESSAGE 42, POSSIBLE ERROR IN DMAP INSTRUCTION PARAM INSTRUCTION NO. 95 PARAMETER NAMED ALWAYS ALREADY HAD VALUE ASSIGNED PREVIOUSLY 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A RECOVER RVANE1, RUN 5, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 95 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 95 RCOVR3 ,PG,PS,PO,YS/ULV ,QAS,PGS,PSS,POS,YSS, /1 /*RVANE1 */ $ 95 EQUIV PGS,PG/ALWAYS $ 95 EQUIV PSS,PS/ALWAYS $ 95 EQUIV POS,PO/ALWAYS $ 95 EQUIV YSS,YS/ALWAYS $ 95 COND LBS3 ,OMIT $ 95 FBS LOO,,POS/UOOV/1/1/2 /0 $ 95 LABEL LBS3 $ 96 SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ *STATICS* $ 96 UMERGE USET,QAS,/QGS/*G*/*A*/*O* $ 96 ADD QG ,QGS/QGT/ (1.0,0.0)/(1.0,0.0) $ 96 EQUIV QGT,QG /ALWAYS $ 96 LABEL LBSEND $ 97 COND LBL8,REPEAT $ 98 REPT LBL11,360 $ 99 JUMP ERROR1 $ 100 PARAM //*NOT*/TEST/REPEAT $ 101 COND ERROR5,TEST $ 102 LABEL LBL8 $ 103 GPFDR CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/ *STATICS* $ 104 PURGE KDICT,KELM/REPEAT $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A RECOVER RVANE1, RUN 5, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 105 OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ 106 COND NOMPCF,GRDEQ $ 107 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ 108 OFP OQM1,,,,,//S,N,CARDNO $ 109 LABEL NOMPCF $ 110 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L, OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ 111 COND LBLSTRS,STRESS $ 112 CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/ V,Y,NINTPTS $ 113 LABEL LBLSTRS $ 114 PURGE OES1M/STRESS $ 115 COND LBLSTRN,STRNFLG $ 116 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/ ,,,OES1A,,,,/*STATICS*//1 $ 117 COND LBLSTRN,STRAIN $ 118 CURV OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/ V,Y,NINTPTS $ 119 LABEL LBLSTRN $ 120 PURGE OES1A/STRNFLG $ 121 COND LBL17,NOSORT2 $ 122 SDR3 OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $ 123 PARAM //*SUB*/PRTSORT2/NOSORT2/1 $ 124 COND LBLSORT1,PRTSORT2 $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A RECOVER RVANE1, RUN 5, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 125 OFP OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $ 126 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ 127 OFP OESF2,,,,,//S,N,CARDNO $ 128 JUMP LBLXYPLT $ 129 LABEL LBLSORT1 $ 130 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 131 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 132 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 133 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 134 LABEL LBLXYPLT $ 135 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ 136 XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ 137 XYPLOT XYPLTT// $ 138 JUMP DPLOT $ 139 LABEL LBL17 $ 140 PURGE OUGV2/NOSORT2 $ 141 COND LBLOFP,COUNT $ 142 OPTPR2 OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N, CARDNO $ 143 EQUIV EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $ 144 COND LOOPEND,PRINT $ 145 LABEL LBLOFP $ 146 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A RECOVER RVANE1, RUN 5, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 147 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 148 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $ 149 OFP OESF1X,OESF1Y,,,,//S,N,CARDNO $ 150 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ 151 LABEL DPLOT $ 152 COND P2,JUMPPLOT $ 153 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 154 PRTMSG PLOTX2// $ 155 LABEL P2 $ 156 LABEL LOOPEND $ 157 COND FINIS,COUNT $ 158 REPT LOOPTOP,360 $ 159 JUMP FINIS $ 160 LABEL ERROR1 $ 161 PRTPARM //-1/*STATICS* $ 162 LABEL ERROR2 $ 163 PRTPARM //-2/*STATICS* $ 164 LABEL ERROR3 $ 165 PRTPARM //-3/*STATICS* $ 166 LABEL ERROR4 $ 167 PRTPARM //-4/*STATICS* $ 168 LABEL ERROR5 $ 169 PRTPARM //-5/*STATICS* $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A RECOVER RVANE1, RUN 5, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 170 LABEL FINIS $ 171 PURGE DUMMY/ALWAYS $ 172 LABEL LBLINT02 $ 173 COMPON LBLINT01,SYS21 $ 228 END $ 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSEND NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A RECOVER RVANE1, RUN 5, PHASE 3 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 9 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 926 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A 0 RECOVER RVANE1, RUN 5, PHASE 3 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 27 28 3 3 3 3 3 3 3 3 3 3 3 2 ROOT1 B 24 0 0 6 7 3 3 3 3 3 3 3 3 3 VANE1 B 15 0 0 4 5 3 3 3 3 3 3 3 3 3 4 VANE2 B 14 3 0 3 5 3 0 0 3 3 0 0 0 3 5 VANETOP C 16 0 3 7 26 3 3 3 3 3 3 3 3 3 6 ROOT2 B 23 2 0 2 7 3 0 3 3 0 0 0 3 7 ROOTTOP C 25 0 2 10 26 3 3 3 3 3 3 3 3 8 LVANE2 IB 0 3 0 9 10 3 0 0 3 3 0 0 0 0 9 LVANE1 IB 4 3 0 8 10 3 0 0 3 3 0 0 0 0 10 VANELFT C 0 5 9 19 26 3 0 0 3 3 0 0 0 3 11 RVANE2 IB 8 3 0 12 13 3 0 0 3 3 0 0 0 0 12 RVANE1 IB 9 3 0 11 13 3 0 0 3 3 0 0 0 0 3 3 13 VANERGT C 10 5 12 26 27 3 0 0 3 3 0 0 0 3 3 3 14 BVANE2 IB 11 3 0 15 16 3 0 0 3 3 0 0 0 0 15 BVANE1 IB 12 3 0 14 16 3 0 0 3 3 0 0 0 0 16 VANEBOT C 13 5 15 25 26 3 0 0 3 3 0 0 0 3 17 LROOT2 IB 0 2 0 18 19 3 0 3 3 0 0 0 0 18 LROOT1 IB 6 2 0 17 19 3 0 3 3 0 0 0 0 19 ROOTLFT C 0 7 18 16 26 3 0 3 3 0 0 0 3 20 RROOT2 IB 17 2 0 21 22 3 0 3 3 0 0 0 0 21 RROOT1 IB 18 2 0 20 22 3 0 3 3 0 0 0 0 22 ROOTRGT C 19 7 21 5 26 3 0 3 3 0 0 0 3 23 BROOT2 IB 20 2 0 24 25 3 0 3 3 0 0 0 0 24 BROOT1 IB 21 2 0 23 25 3 0 3 3 0 0 0 0 25 ROOTBOT C 22 7 24 22 26 3 0 3 3 0 0 0 3 26 RING C 0 0 5 13 27 3 3 3 3 3 4 3 3 3 27 BLADES C 0 0 26 1 28 3 3 3 3 3 4 3 3 3 3 3 28 WINDMIL C 0 0 1 0 29 3 3 3 3 3 4 3 3 3 3 4 3 3 3 29 SMALLMIL R 0 0 28 0 0 3 3 3 3 3 4 4 4 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 663552 WORDS. OR = 648 BLOCKS. OR = 69 PERCENT. 0*** HIGHEST BLOCK USED = 278 0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON 103, FROM ( 38, 1), TO ( 38, 3) 0*** USER INFORMATION MESSAGE 6321, SUBSTRUCTURE PHASE 3 RECOVER FOR FINAL SOLUTION STRUCTURE SMALLMIL AND BASIC SUBSTRUCTURE RVANE1 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A 0 ROTATIOAL FORCES ABOUT CENTER OF OVERALL STRUCTURE SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 8.268573E-14 -6.884929E-07 0.0 0.0 0.0 0.0 2 G 4.723215E-09 -6.866109E-07 0.0 0.0 0.0 0.0 3 G 6.438692E-14 -6.531354E-07 0.0 0.0 0.0 0.0 4 G 9.446658E-09 -6.507344E-07 0.0 0.0 0.0 0.0 5 G 4.847075E-14 -5.599794E-07 0.0 0.0 0.0 0.0 6 G 1.713453E-08 -5.559373E-07 0.0 0.0 0.0 0.0 7 G 3.515526E-14 -4.225010E-07 0.0 0.0 0.0 0.0 8 G 2.011189E-08 -4.091746E-07 0.0 0.0 0.0 0.0 9 G 0.0 0.0 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A 0 EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.191551E-05 -3.859980E-04 0.0 0.0 0.0 0.0 2 G 3.438945E-05 -3.874633E-04 0.0 0.0 0.0 0.0 3 G 1.968054E-05 -3.110513E-04 0.0 0.0 0.0 0.0 4 G 3.210570E-05 -3.124478E-04 0.0 0.0 0.0 0.0 5 G 1.744547E-05 -2.364426E-04 0.0 0.0 0.0 0.0 6 G 2.953589E-05 -2.372383E-04 0.0 0.0 0.0 0.0 7 G 1.520824E-05 -1.638057E-04 0.0 0.0 0.0 0.0 8 G 2.593191E-05 -1.606965E-04 0.0 0.0 0.0 0.0 9 G 0.0 0.0 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -4.266003E-08 -4.426530E-09 0.0 0.0 0.0 0.0 2 G -4.266219E-08 1.476260E-10 0.0 0.0 0.0 0.0 3 G -3.580445E-08 -4.431032E-09 0.0 0.0 0.0 0.0 4 G -3.580771E-08 1.501015E-10 0.0 0.0 0.0 0.0 5 G -2.894873E-08 -4.454039E-09 0.0 0.0 0.0 0.0 6 G -2.895208E-08 1.707467E-10 0.0 0.0 0.0 0.0 7 G -2.208946E-08 -4.518998E-09 0.0 0.0 0.0 0.0 8 G -2.199622E-08 2.719895E-10 0.0 0.0 0.0 0.0 9 G 0.0 0.0 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A 0 ROTATIOAL FORCES ABOUT CENTER OF OVERALL STRUCTURE SUBCASE 1 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -2.450548E-03 4.687670E-02 -4.536510E-04 -89.4731 4.688087E-02 -2.454720E-03 2.466780E-02 2 5.060732E-03 1.265672E-01 -5.271435E-04 -89.7514 1.265695E-01 5.058449E-03 6.075554E-02 3 1.080233E-02 1.921947E-01 -6.153435E-03 -88.0593 1.924032E-01 1.059382E-02 9.090468E-02 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A 0 EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL SUBCASE 2 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.008911E-01 1.000000E+02 -6.025696E-02 -89.9654 1.000001E+02 1.008530E-01 4.994961E+01 2 4.843979E-01 9.999995E+01 -4.044342E-01 -89.7672 1.000016E+02 4.827538E-01 4.975942E+01 3 2.185631E+00 9.999889E+01 -2.483063E+00 -88.5468 1.000619E+02 2.122639E+00 4.896962E+01 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 SUBCASE 3 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 5.416572E-06 3.725290E-09 -6.101094E-06 -33.0391 9.384583E-06 -3.964286E-06 6.674435E-06 2 6.623566E-06 8.009374E-08 -2.600532E-05 -41.4146 2.956215E-05 -2.285849E-05 2.621032E-05 3 -8.944236E-05 1.829118E-06 -8.227490E-05 -59.5080 5.027727E-05 -1.378905E-04 9.408389E-05 * * * END OF JOB * * * 1 JOB TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR DATE: 5/17/95 END TIME: 15:20:19 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d02026a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D02026A,NASTRAN APP DISPLACEMENT,SUBS SOL 1,0 TIME 5 DIAG 23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE3 PASSWORD = DEMO SOF(1) = FT18,950 $ DEC VAX SOFPRINT TOC BRECOVER HUB ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 78, 85 2 PARAM //*ADD*/DRY/1 /0 $ 3 LABEL LBSBEG $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 5 * */* */* * $ 6 ALTER 88, 95 7 PARAM //*NOP*/ALWAYS=-1 $ 8 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 9 RCOVR3 ,PG,PS,PO,YS/ULV ,QAS,PGS,PSS,POS,YSS, /1 /*HUB */ 10 $ 11 EQUIV PGS,PG/ALWAYS $ 12 EQUIV PSS,PS/ALWAYS $ 13 EQUIV POS,PO/ALWAYS $ 14 EQUIV YSS,YS/ALWAYS $ 15 COND LBS3 ,OMIT $ 16 FBS LOO,,POS/UOOV/1/1/2 /0 $ 17 LABEL LBS3 $ 18 ALTER 96 19 UMERGE USET,QAS,/QGS/*G*/*A*/*O* $ 20 ADD QG ,QGS/QGT/ (1.0,0.0)/(1.0,0.0) $ 21 EQUIV QGT,QG /ALWAYS $ 22 LABEL LBSEND $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 0 RECOVER HUB, RUN 6, PHASE 3 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 3 LABEL = RECOVER HUB, RUN 6, PHASE 3 4 DISP = ALL 5 STRESS = ALL 6 SPC = 30 7 SUBCASE 1 8 LABEL = ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE 9 SUBCASE 2 10 LABEL = EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL 11 SUBCASE 3 12 LABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5 13 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 57, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 0 RECOVER HUB, RUN 6, PHASE 3 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2C 1 0 .0 .0 .0 .0 .0 1.0 +COR 2- +COR 1.0 .0 .0 3- CQDMEM 1 10 1 4 5 2 4- CQDMEM 3 10 4 7 108 5 5- CQDMEM 5 10 108 7 10 11 6- CQDMEM 7 10 13 14 11 10 7- CQDMEM 9 10 16 17 14 13 8- CQDMEM 11 10 19 20 17 16 9- CQDMEM 13 10 20 19 22 23 10- CQDMEM 15 10 25 26 23 22 11- CQDMEM 17 10 29 26 25 28 12- CQDMEM 19 10 32 29 28 31 13- CQDMEM 21 10 32 31 34 35 14- CQDMEM 23 10 37 38 35 34 15- CQDMEM 25 10 38 37 40 41 16- CQDMEM 27 10 41 40 43 44 17- CQDMEM 29 10 44 43 46 47 18- CQDMEM 31 10 1 2 47 46 19- FORCE1 3 4 1.0 5 4 20- GRDSET 3456 21- GRID 1 -5.0 10.0 22- GRID 2 -5.0 15.0 23- GRID 4 .0 10.0 24- GRID 5 .0 15.0 25- GRID 7 5.0 10.0 26- GRID 10 7.5 7.5 27- GRID 11 10.0 10.0 28- GRID 13 10.0 5.0 29- GRID 14 15.0 5.0 30- GRID 16 10.0 .0 31- GRID 17 15.0 .0 32- GRID 19 10.0 -5.0 33- GRID 20 15.0 -5.0 34- GRID 22 7.5 -7.5 35- GRID 23 10.0 -10.0 36- GRID 25 5.0 -10.0 37- GRID 26 5.0 -15.0 38- GRID 28 .0 -10.0 39- GRID 29 .0 -15.0 40- GRID 31 -5.0 -10.0 41- GRID 32 -5.0 -15.0 42- GRID 34 -7.5 -7.5 43- GRID 35 -10.0 -10.0 44- GRID 37 -10.0 -5.0 45- GRID 38 -15.0 -5.0 46- GRID 40 -10.0 .0 47- GRID 41 -15.0 .0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A RECOVER HUB, RUN 6, PHASE 3 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 43 -10.0 5.0 49- GRID 44 -15.0 5.0 50- GRID 46 -7.5 7.5 51- GRID 47 -10.0 10.0 52- GRID 108 5.0 15.0 1 53- MAT1 50 1.0+7 .25 2.5E-4 1.0E-6 70.0 54- PQDMEM 10 50 .1 55- RFORCE 1 0 0 .1591579.0 .0 1.0 56- SPC1 30 1 13 19 37 43 57- SPC1 30 2 1 7 31 25 ENDDATA 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 0 RECOVER HUB, RUN 6, PHASE 3 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 01 - STATIC ANALYSIS - APR. 1995 $ 2 FILE OPTP2=SAVE/EST1=SAVE $ 3 FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $ 4 SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ 5 PARAM //*MPY*/CARDNO/0/0 $ 6 COMPOFF 1,INTERACT $ 7 PRECHK ALL $ 8 COMPON 1,INTERACT $ 10 COMPOFF LBLINT02,SYS21 $ 11 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 12 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 13 EQUIV MPTA,MPT/ISOP $ 14 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 15 GP2 GEOM2,EQEXIN/ECT $ 16 PARAML PCDB//*PRES*////JUMPPLOT $ 17 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 18 COND P1,JUMPPLOT $ 19 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 20 PRTMSG PLTSETX// $ 21 PARAM //*MPY*/PLTFLG/1/1 $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A RECOVER HUB, RUN 6, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 22 PARAM //*MPY*/PFILE/0/0 $ 23 COND P1,JUMPPLOT $ 24 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 25 PRTMSG PLOTX1// $ 26 LABEL P1 $ 27 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ 28 PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ 29 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 30 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 31 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ 32 COND ERROR4,NOELMT $ 33 PURGE KGGX/NOSIMP $ 34 OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ 35 LABEL LOOPTOP $ 36 COND LBL1,NOSIMP $ 37 PARAM //*ADD*/NOKGGX/1/0 $ 38 EQUIV OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ 39 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 40 COND JMPKGG,NOKGGX $ 41 EMA GPECT,KDICT,KELM/KGGX $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A RECOVER HUB, RUN 6, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 LABEL JMPKGG $ 43 PURGE MGG/NOMGG $ 44 COND JMPMGG,NOMGG $ 45 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 46 PURGE MDICT,MELM/ALWAYS $ 47 LABEL JMPMGG $ 48 COND LBL1,GRDPNT $ 49 COND ERROR2,NOMGG $ 50 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ 51 OFP OGPWG,,,,,//S,N,CARDNO $ 52 LABEL LBL1 $ 53 EQUIV KGGX,KGG/NOGENL $ 54 COND LBL11A,NOGENL $ 55 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 56 LABEL LBL11A $ 57 GPSTGEN KGG,SIL/GPST $ 58 PARAM //*MPY*/NSKIP/0/0 $ 59 LABEL LBL11 $ 60 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 61 OFP OGPST,,,,,//S,N,CARDNO $ 62 COND ERROR3,NOL $ 63 PARAM //*AND*/NOSR/SINGLE/REACT $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A RECOVER HUB, RUN 6, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 64 PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ 65 EQUIV KGG,KNN/MPCF1 $ 66 COND LBL2,MPCF2 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,,,/KNN,,, $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 COND LBL5,OMIT $ 76 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 77 LABEL LBL5 $ 85 PARAM //*ADD*/DRY/1 /0 $ 85 LABEL LBSBEG $ 85 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 86 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ 87 EQUIV PG,PL/NOSET $ 95 PARAM //*NOP*/ALWAYS=-1 $ 0*** USER WARNING MESSAGE 42, POSSIBLE ERROR IN DMAP INSTRUCTION PARAM INSTRUCTION NO. 95 PARAMETER NAMED ALWAYS ALREADY HAD VALUE ASSIGNED PREVIOUSLY 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A RECOVER HUB, RUN 6, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 95 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 95 RCOVR3 ,PG,PS,PO,YS/ULV ,QAS,PGS,PSS,POS,YSS, /1 /*HUB */ $ 95 EQUIV PGS,PG/ALWAYS $ 95 EQUIV PSS,PS/ALWAYS $ 95 EQUIV POS,PO/ALWAYS $ 95 EQUIV YSS,YS/ALWAYS $ 95 COND LBS3 ,OMIT $ 95 FBS LOO,,POS/UOOV/1/1/2 /0 $ 95 LABEL LBS3 $ 96 SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ *STATICS* $ 96 UMERGE USET,QAS,/QGS/*G*/*A*/*O* $ 96 ADD QG ,QGS/QGT/ (1.0,0.0)/(1.0,0.0) $ 96 EQUIV QGT,QG /ALWAYS $ 96 LABEL LBSEND $ 97 COND LBL8,REPEAT $ 98 REPT LBL11,360 $ 99 JUMP ERROR1 $ 100 PARAM //*NOT*/TEST/REPEAT $ 101 COND ERROR5,TEST $ 102 LABEL LBL8 $ 103 GPFDR CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/ *STATICS* $ 104 PURGE KDICT,KELM/REPEAT $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A RECOVER HUB, RUN 6, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 105 OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ 106 COND NOMPCF,GRDEQ $ 107 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ 108 OFP OQM1,,,,,//S,N,CARDNO $ 109 LABEL NOMPCF $ 110 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L, OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ 111 COND LBLSTRS,STRESS $ 112 CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/ V,Y,NINTPTS $ 113 LABEL LBLSTRS $ 114 PURGE OES1M/STRESS $ 115 COND LBLSTRN,STRNFLG $ 116 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/ ,,,OES1A,,,,/*STATICS*//1 $ 117 COND LBLSTRN,STRAIN $ 118 CURV OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/ V,Y,NINTPTS $ 119 LABEL LBLSTRN $ 120 PURGE OES1A/STRNFLG $ 121 COND LBL17,NOSORT2 $ 122 SDR3 OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $ 123 PARAM //*SUB*/PRTSORT2/NOSORT2/1 $ 124 COND LBLSORT1,PRTSORT2 $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A RECOVER HUB, RUN 6, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 125 OFP OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $ 126 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ 127 OFP OESF2,,,,,//S,N,CARDNO $ 128 JUMP LBLXYPLT $ 129 LABEL LBLSORT1 $ 130 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 131 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 132 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 133 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 134 LABEL LBLXYPLT $ 135 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ 136 XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ 137 XYPLOT XYPLTT// $ 138 JUMP DPLOT $ 139 LABEL LBL17 $ 140 PURGE OUGV2/NOSORT2 $ 141 COND LBLOFP,COUNT $ 142 OPTPR2 OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N, CARDNO $ 143 EQUIV EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $ 144 COND LOOPEND,PRINT $ 145 LABEL LBLOFP $ 146 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A RECOVER HUB, RUN 6, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 147 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 148 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $ 149 OFP OESF1X,OESF1Y,,,,//S,N,CARDNO $ 150 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ 151 LABEL DPLOT $ 152 COND P2,JUMPPLOT $ 153 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 154 PRTMSG PLOTX2// $ 155 LABEL P2 $ 156 LABEL LOOPEND $ 157 COND FINIS,COUNT $ 158 REPT LOOPTOP,360 $ 159 JUMP FINIS $ 160 LABEL ERROR1 $ 161 PRTPARM //-1/*STATICS* $ 162 LABEL ERROR2 $ 163 PRTPARM //-2/*STATICS* $ 164 LABEL ERROR3 $ 165 PRTPARM //-3/*STATICS* $ 166 LABEL ERROR4 $ 167 PRTPARM //-4/*STATICS* $ 168 LABEL ERROR5 $ 169 PRTPARM //-5/*STATICS* $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A RECOVER HUB, RUN 6, PHASE 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 170 LABEL FINIS $ 171 PURGE DUMMY/ALWAYS $ 172 LABEL LBLINT02 $ 173 COMPON LBLINT01,SYS21 $ 228 END $ 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSEND NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 0 RECOVER HUB, RUN 6, PHASE 3 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 31 PROFILE 186 MAX WAVEFRONT 7 AVG WAVEFRONT 5.812 RMS WAVEFRONT 5.990 RMS BANDWIDTH 9.823 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 6 PROFILE 164 MAX WAVEFRONT 6 AVG WAVEFRONT 5.125 RMS WAVEFRONT 5.256 RMS BANDWIDTH 5.256 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 31 6 PROFILE (P) 186 164 MAXIMUM WAVEFRONT (C-MAX) 7 6 AVERAGE WAVEFRONT (C-AVG) 5.812 5.125 RMS WAVEFRONT (C-RMS) 5.990 5.256 RMS BANDWITCH (B-RMS) 9.823 5.256 NUMBER OF GRID POINTS (N) 32 NUMBER OF ELEMENTS (NON-RIGID) 16 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 5 MINIMUM NODAL DEGREE 5 NUMBER OF UNIQUE EDGES 80 MATRIX DENSITY, PERCENT 18.750 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 8 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 0 RECOVER HUB, RUN 6, PHASE 3 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 2 4 3 5 4 SEQGP 7 7 10 11 11 12 13 15 SEQGP 14 16 16 19 17 20 19 23 SEQGP 20 24 22 27 23 28 25 31 SEQGP 26 32 28 30 29 29 31 26 SEQGP 32 25 34 22 35 21 37 18 SEQGP 38 17 40 14 41 13 43 10 SEQGP 44 9 46 6 47 5 108 8 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 926 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 0 RECOVER HUB, RUN 6, PHASE 3 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 27 28 3 3 3 3 3 3 3 3 3 3 3 2 ROOT1 B 24 0 0 6 7 3 3 3 3 3 3 3 3 3 VANE1 B 15 0 0 4 5 3 3 3 3 3 3 3 3 3 4 VANE2 B 14 3 0 3 5 3 0 0 3 3 0 0 0 3 5 VANETOP C 16 0 3 7 26 3 3 3 3 3 3 3 3 3 6 ROOT2 B 23 2 0 2 7 3 0 3 3 0 0 0 3 7 ROOTTOP C 25 0 2 10 26 3 3 3 3 3 3 3 3 8 LVANE2 IB 0 3 0 9 10 3 0 0 3 3 0 0 0 0 9 LVANE1 IB 4 3 0 8 10 3 0 0 3 3 0 0 0 0 10 VANELFT C 0 5 9 19 26 3 0 0 3 3 0 0 0 3 11 RVANE2 IB 8 3 0 12 13 3 0 0 3 3 0 0 0 0 12 RVANE1 IB 9 3 0 11 13 3 0 0 3 3 0 0 0 0 3 3 13 VANERGT C 10 5 12 26 27 3 0 0 3 3 0 0 0 3 3 3 14 BVANE2 IB 11 3 0 15 16 3 0 0 3 3 0 0 0 0 15 BVANE1 IB 12 3 0 14 16 3 0 0 3 3 0 0 0 0 16 VANEBOT C 13 5 15 25 26 3 0 0 3 3 0 0 0 3 17 LROOT2 IB 0 2 0 18 19 3 0 3 3 0 0 0 0 18 LROOT1 IB 6 2 0 17 19 3 0 3 3 0 0 0 0 19 ROOTLFT C 0 7 18 16 26 3 0 3 3 0 0 0 3 20 RROOT2 IB 17 2 0 21 22 3 0 3 3 0 0 0 0 21 RROOT1 IB 18 2 0 20 22 3 0 3 3 0 0 0 0 22 ROOTRGT C 19 7 21 5 26 3 0 3 3 0 0 0 3 23 BROOT2 IB 20 2 0 24 25 3 0 3 3 0 0 0 0 24 BROOT1 IB 21 2 0 23 25 3 0 3 3 0 0 0 0 25 ROOTBOT C 22 7 24 22 26 3 0 3 3 0 0 0 3 26 RING C 0 0 5 13 27 3 3 3 3 3 4 3 3 3 27 BLADES C 0 0 26 1 28 3 3 3 3 3 4 3 3 3 3 3 28 WINDMIL C 0 0 1 0 29 3 3 3 3 3 4 3 3 3 3 4 3 3 3 29 SMALLMIL R 0 0 28 0 0 3 3 3 3 3 4 4 4 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 663552 WORDS. OR = 648 BLOCKS. OR = 69 PERCENT. 0*** HIGHEST BLOCK USED = 278 0*** USER INFORMATION MESSAGE 6321, SUBSTRUCTURE PHASE 3 RECOVER FOR FINAL SOLUTION STRUCTURE SMALLMIL AND BASIC SUBSTRUCTURE HUB 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -6.885472E-09 0.0 0.0 0.0 0.0 0.0 2 G 6.815310E-09 1.102501E-07 0.0 0.0 0.0 0.0 4 G -2.260284E-14 4.903196E-08 0.0 0.0 0.0 0.0 5 G -3.257896E-14 6.704929E-08 0.0 0.0 0.0 0.0 7 G 6.885431E-09 0.0 0.0 0.0 0.0 0.0 10 G 3.999435E-09 3.999455E-09 0.0 0.0 0.0 0.0 11 G 6.384132E-09 6.384167E-09 0.0 0.0 0.0 0.0 13 G 0.0 6.885465E-09 0.0 0.0 0.0 0.0 14 G 1.102501E-07 -6.815319E-09 0.0 0.0 0.0 0.0 16 G 4.903196E-08 1.131666E-14 0.0 0.0 0.0 0.0 17 G 6.704929E-08 1.798945E-14 0.0 0.0 0.0 0.0 19 G 0.0 -6.885445E-09 0.0 0.0 0.0 0.0 20 G 1.102501E-07 6.815356E-09 0.0 0.0 0.0 0.0 22 G 3.999454E-09 -3.999445E-09 0.0 0.0 0.0 0.0 23 G 6.384163E-09 -6.384147E-09 0.0 0.0 0.0 0.0 25 G 6.885462E-09 0.0 0.0 0.0 0.0 0.0 26 G -6.815327E-09 -1.102501E-07 0.0 0.0 0.0 0.0 28 G 8.188964E-15 -4.903196E-08 0.0 0.0 0.0 0.0 29 G 1.180331E-14 -6.704929E-08 0.0 0.0 0.0 0.0 31 G -6.885447E-09 0.0 0.0 0.0 0.0 0.0 32 G 6.815351E-09 -1.102501E-07 0.0 0.0 0.0 0.0 34 G -3.999445E-09 -3.999454E-09 0.0 0.0 0.0 0.0 35 G -6.384148E-09 -6.384164E-09 0.0 0.0 0.0 0.0 37 G 0.0 -6.885463E-09 0.0 0.0 0.0 0.0 38 G -1.102501E-07 6.815324E-09 0.0 0.0 0.0 0.0 40 G -4.903196E-08 -9.811720E-15 0.0 0.0 0.0 0.0 41 G -6.704929E-08 -1.471499E-14 0.0 0.0 0.0 0.0 43 G 0.0 6.885445E-09 0.0 0.0 0.0 0.0 44 G -1.102501E-07 -6.815354E-09 0.0 0.0 0.0 0.0 46 G -3.999458E-09 3.999444E-09 0.0 0.0 0.0 0.0 47 G -6.384170E-09 6.384145E-09 0.0 0.0 0.0 0.0 108 G 1.024372E-07 4.132977E-08 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 0 EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.172360E-06 0.0 0.0 0.0 0.0 0.0 2 G 9.928668E-06 7.763517E-07 0.0 0.0 0.0 0.0 4 G 7.811291E-06 -3.324972E-07 0.0 0.0 0.0 0.0 5 G 1.047571E-05 -6.439687E-07 0.0 0.0 0.0 0.0 7 G 8.371261E-06 0.0 0.0 0.0 0.0 0.0 10 G 5.991280E-06 -2.600528E-06 0.0 0.0 0.0 0.0 11 G 1.164498E-05 -7.079488E-06 0.0 0.0 0.0 0.0 13 G 0.0 2.686615E-06 0.0 0.0 0.0 0.0 14 G 4.018371E-05 5.140406E-07 0.0 0.0 0.0 0.0 16 G 1.393543E-05 7.811291E-06 0.0 0.0 0.0 0.0 17 G 2.207221E-05 1.047571E-05 0.0 0.0 0.0 0.0 19 G 0.0 1.185701E-05 0.0 0.0 0.0 0.0 20 G 4.312564E-05 2.097850E-05 0.0 0.0 0.0 0.0 22 G 1.186977E-05 1.186977E-05 0.0 0.0 0.0 0.0 23 G 2.433343E-05 2.433343E-05 0.0 0.0 0.0 0.0 25 G 1.185701E-05 0.0 0.0 0.0 0.0 0.0 26 G 2.097850E-05 4.312564E-05 0.0 0.0 0.0 0.0 28 G 7.811291E-06 1.393543E-05 0.0 0.0 0.0 0.0 29 G 1.047571E-05 2.207221E-05 0.0 0.0 0.0 0.0 31 G 2.686615E-06 0.0 0.0 0.0 0.0 0.0 32 G 5.140405E-07 4.018371E-05 0.0 0.0 0.0 0.0 34 G -2.600528E-06 5.991280E-06 0.0 0.0 0.0 0.0 35 G -7.079488E-06 1.164498E-05 0.0 0.0 0.0 0.0 37 G 0.0 8.371262E-06 0.0 0.0 0.0 0.0 38 G -2.165587E-06 1.156387E-05 0.0 0.0 0.0 0.0 40 G -3.324968E-07 7.811291E-06 0.0 0.0 0.0 0.0 41 G -6.439684E-07 1.047571E-05 0.0 0.0 0.0 0.0 43 G 0.0 6.172360E-06 0.0 0.0 0.0 0.0 44 G 7.763518E-07 9.928668E-06 0.0 0.0 0.0 0.0 46 G 3.277963E-06 3.277963E-06 0.0 0.0 0.0 0.0 47 G 5.608956E-06 5.608956E-06 0.0 0.0 0.0 0.0 108 G 1.602361E-06 -1.165527E-05 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.030348E-07 0.0 0.0 0.0 0.0 0.0 2 G 6.187168E-08 -1.398604E-07 0.0 0.0 0.0 0.0 4 G 5.649104E-14 -1.586544E-06 0.0 0.0 0.0 0.0 5 G 7.715708E-14 -1.218223E-06 0.0 0.0 0.0 0.0 7 G 1.030349E-07 0.0 0.0 0.0 0.0 0.0 10 G 7.883455E-08 3.399462E-09 0.0 0.0 0.0 0.0 11 G 4.464573E-08 -2.663294E-09 0.0 0.0 0.0 0.0 13 G 0.0 5.574307E-10 0.0 0.0 0.0 0.0 14 G 9.545968E-09 -1.067458E-08 0.0 0.0 0.0 0.0 16 G 3.383299E-10 -2.378025E-09 0.0 0.0 0.0 0.0 17 G 9.869841E-10 -8.726363E-09 0.0 0.0 0.0 0.0 19 G 0.0 -3.605775E-09 0.0 0.0 0.0 0.0 20 G -2.253810E-10 -8.167829E-09 0.0 0.0 0.0 0.0 22 G -9.613698E-10 -1.313596E-09 0.0 0.0 0.0 0.0 23 G -1.936940E-09 -2.810916E-09 0.0 0.0 0.0 0.0 25 G -7.297873E-10 0.0 0.0 0.0 0.0 0.0 26 G -9.521191E-10 -8.604193E-10 0.0 0.0 0.0 0.0 28 G -1.644306E-14 -1.626000E-10 0.0 0.0 0.0 0.0 29 G -2.420368E-14 -4.754937E-10 0.0 0.0 0.0 0.0 31 G 7.297578E-10 0.0 0.0 0.0 0.0 0.0 32 G 9.520696E-10 -8.604117E-10 0.0 0.0 0.0 0.0 34 G 9.613531E-10 -1.313576E-09 0.0 0.0 0.0 0.0 35 G 1.936910E-09 -2.810881E-09 0.0 0.0 0.0 0.0 37 G 0.0 -3.605737E-09 0.0 0.0 0.0 0.0 38 G 2.253748E-10 -8.167763E-09 0.0 0.0 0.0 0.0 40 G -3.383293E-10 -2.377982E-09 0.0 0.0 0.0 0.0 41 G -9.869821E-10 -8.726295E-09 0.0 0.0 0.0 0.0 43 G 0.0 5.574692E-10 0.0 0.0 0.0 0.0 44 G -9.545950E-09 -1.067451E-08 0.0 0.0 0.0 0.0 46 G -7.883449E-08 3.399481E-09 0.0 0.0 0.0 0.0 47 G -4.464564E-08 -2.663251E-09 0.0 0.0 0.0 0.0 108 G -1.522487E-07 1.446874E-08 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 0 ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE SUBCASE 1 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 3.427942E-02 1.368372E-01 7.812783E-03 85.6686 1.374290E-01 3.368766E-02 5.187067E-02 3 3.427943E-02 1.368373E-01 -7.812796E-03 -85.6685 1.374290E-01 3.368767E-02 5.187068E-02 5 1.441762E-01 3.029857E-02 -1.102462E-02 -5.4791 1.452337E-01 2.924108E-02 5.799630E-02 7 1.441762E-01 3.029857E-02 1.102461E-02 5.4791 1.452337E-01 2.924109E-02 5.799629E-02 9 1.368372E-01 3.427943E-02 -7.812787E-03 -4.3314 1.374290E-01 3.368767E-02 5.187067E-02 11 1.368373E-01 3.427943E-02 7.812796E-03 4.3314 1.374290E-01 3.368767E-02 5.187068E-02 13 1.441762E-01 3.029858E-02 -1.102462E-02 -5.4791 1.452336E-01 2.924109E-02 5.799628E-02 15 1.441762E-01 3.029857E-02 1.102462E-02 5.4791 1.452337E-01 2.924109E-02 5.799629E-02 17 3.427942E-02 1.368372E-01 7.812788E-03 85.6686 1.374290E-01 3.368766E-02 5.187067E-02 19 3.427943E-02 1.368373E-01 -7.812793E-03 -85.6686 1.374290E-01 3.368767E-02 5.187068E-02 21 1.441762E-01 3.029857E-02 -1.102463E-02 -5.4791 1.452337E-01 2.924109E-02 5.799628E-02 23 1.441762E-01 3.029857E-02 1.102462E-02 5.4791 1.452337E-01 2.924109E-02 5.799629E-02 25 1.368372E-01 3.427943E-02 -7.812787E-03 -4.3314 1.374290E-01 3.368767E-02 5.187067E-02 27 1.368373E-01 3.427943E-02 7.812798E-03 4.3314 1.374290E-01 3.368767E-02 5.187067E-02 29 1.441762E-01 3.029857E-02 -1.102463E-02 -5.4791 1.452337E-01 2.924109E-02 5.799628E-02 31 1.441762E-01 3.029856E-02 1.102463E-02 5.4791 1.452337E-01 2.924107E-02 5.799630E-02 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 0 EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL SUBCASE 2 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 2.455675E+00 1.078799E+00 1.867165E+00 34.8803 3.757275E+00 -2.228009E-01 1.990038E+00 3 1.097456E+00 -2.202694E+00 1.867165E+00 24.2660 1.939178E+00 -3.044416E+00 2.491797E+00 5 -2.966948E+00 4.595438E+00 1.685894E+00 77.9848 4.954252E+00 -3.325761E+00 4.140007E+00 7 4.790092E+01 -8.302165E+00 1.252428E+01 12.0108 5.056550E+01 -1.096675E+01 3.076612E+01 9 4.751884E+01 -3.206642E+00 1.867165E+00 2.1052 4.758747E+01 -3.275278E+00 2.543138E+01 11 5.080033E+01 -1.848424E+00 1.867165E+00 2.0286 5.086646E+01 -1.914558E+00 2.639051E+01 13 5.154383E+01 -1.123453E+01 -1.542390E+01 -13.0842 5.512861E+01 -1.481930E+01 3.497395E+01 15 -5.154385E+01 1.123453E+01 -1.542390E+01 -76.9158 1.481930E+01 -5.512862E+01 3.497396E+01 17 1.848424E+00 -5.080033E+01 -1.867165E+00 -2.0286 1.914558E+00 -5.086646E+01 2.639051E+01 19 3.206641E+00 -4.751884E+01 -1.867166E+00 -2.1052 3.275278E+00 -4.758747E+01 2.543138E+01 21 -4.790091E+01 8.302166E+00 1.252428E+01 77.9892 1.096675E+01 -5.056549E+01 3.076612E+01 23 2.966948E+00 -4.595437E+00 1.685894E+00 12.0152 3.325762E+00 -4.954251E+00 4.140007E+00 25 2.202694E+00 -1.097459E+00 -1.867165E+00 -24.2659 3.044416E+00 -1.939180E+00 2.491798E+00 27 -1.078799E+00 -2.455676E+00 -1.867165E+00 -34.8803 2.228013E-01 -3.757276E+00 1.990039E+00 29 -6.759804E-01 -1.663074E+00 1.213726E+00 33.9357 1.407092E-01 -2.479764E+00 1.310237E+00 31 6.759810E-01 1.663077E+00 1.213726E+00 56.0643 2.479766E+00 -1.407081E-01 1.310237E+00 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A 0 CHECK ON RELEASE FEATURE AT GRID POINT 5 SUBCASE 3 S T R E S S E S I N Q U A D R I L A T E R A L M E M B R A N E S ( C Q D M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 1.048302E-01 2.546678E-01 -9.999999E-01 -47.1423 1.182552E+00 -8.230535E-01 1.002802E+00 3 1.048301E-01 2.546678E-01 1.000000E+00 47.1423 1.182551E+00 -8.230535E-01 1.002802E+00 5 -2.355191E-01 -2.143876E-01 1.006202E-01 47.9972 -1.237799E-01 -3.261268E-01 1.011734E-01 7 -7.956360E-02 -2.691416E-02 3.968607E-02 61.7786 -5.615611E-03 -1.008621E-01 4.762327E-02 9 1.113753E-02 3.771619E-03 -3.743878E-03 -22.7350 1.270631E-02 2.202833E-03 5.251741E-03 11 6.299490E-04 8.267039E-04 -3.743878E-03 -45.7526 4.473497E-03 -3.016844E-03 3.745171E-03 13 -6.842900E-04 -1.567654E-03 -1.847207E-03 -38.2763 7.733057E-04 -3.025250E-03 1.899278E-03 15 6.851682E-04 -2.112600E-03 1.982040E-03 27.3932 1.712260E-03 -3.139691E-03 2.425976E-03 17 -1.481107E-03 8.030364E-04 5.558832E-09 89.9999 8.030364E-04 -1.481107E-03 1.142072E-03 19 -1.481111E-03 8.030277E-04 5.558832E-09 89.9999 8.030276E-04 -1.481111E-03 1.142069E-03 21 6.851617E-04 -2.112601E-03 -1.982029E-03 -27.3931 1.712246E-03 -3.139685E-03 2.425965E-03 23 -6.842817E-04 -1.567642E-03 1.847208E-03 38.2763 7.733169E-04 -3.025240E-03 1.899279E-03 25 6.299561E-04 8.267108E-04 3.743862E-03 45.7526 4.473487E-03 -3.016821E-03 3.745154E-03 27 1.113751E-02 3.771613E-03 3.743861E-03 22.7350 1.270628E-02 2.202837E-03 5.251723E-03 29 -7.956360E-02 -2.691415E-02 -3.968603E-02 -61.7787 -5.615648E-03 -1.008621E-01 4.762323E-02 31 -2.355190E-01 -2.143876E-01 -1.006202E-01 -47.9972 -1.237799E-01 -3.261267E-01 1.011734E-01 * * * END OF JOB * * * 1 JOB TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR DATE: 5/17/95 END TIME: 15:21:25 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d02027a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D02027A,NASTRAN APP DISP,SUBS SOL 3,0 TIME 20 DIAG 23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE2 PASSWORD = DEMO SOF(1) = FT18,950 $ DEC VAX SOFPRINT TOC EQUIV SMALLMIL,SMILLDYN PREFIX = D SOFPRINT TOC SOLVE SMILLDYN RECOVER SMILLDYN PRINT DWINDMIL ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 4 2 PARAM //*ADD*/DRY/1 /0 $ 3 LABEL LBSBEG $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 5 * */* */* * $ 6 SOFUT //DRY/*SMALLMIL*/*EQUI*/32 /*SMILLDYN*/*D */*ITM1*/*ITM2*/ 7 *ITM3*/*ITM4*/*ITM5* $ 8 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 9 * */* */* * $ 10 ALTER 5, 5 11 PARAM //*NOP*/ALWAYS=-1 $ 12 SGEN CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT, 13 BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*SMILLDYN*/S,N,LUSET/ 14 S,N,NOGPDT $ 15 PURGE CSTM $ 16 EQUIV GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/ 17 DYNS,DYNAMICS/ALWAYS $ 18 COND LB5 ,DRY $ 19 ALTER 10, 20 20 ALTER 24, 24 21 COND LBSOL,NOSIMP $ 22 ALTER 32, 32 23 COND LBSOL,NOMGG $ 24 ALTER 39, 43 25 LABEL LBSOL $ 26 SOFI /K1 ,M1 ,,,/DRY/*SMILLDYN*/*KMTX*/*MMTX* $ 27 EQUIV K1 ,KGG/NOSIMP $ 28 EQUIV M1 ,MGG/NOSIMP $ 29 COND LB5 ,NOSIMP $ 30 ADD KGGX,K1 /KGG/(1.0,0.0)/(1.0,0.0) $ 31 ADD MGG,M1 /MGGX/(1.0,0.0)/(1.0,0.0) $ 32 EQUIV MGGX,MGG/ALWAYS $ 33 LABEL LB5 $ 34 CHKPNT MGG $ 35 ALTER 78, 95 36 COND LBSEND,DRY $ 37 FILE U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $ 38 PARAM //*ADD*/ILOOP/0/0 $ 39 LABEL LB6 $ 40 RCOVR CASESS,LAMA ,KGG,MGG, ,PHIG, , , , , /OPHIG1, 41 ,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/6 /*SMILLDYN*/ 42 3 /NEIGV/S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/ 43 S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $ 44 EQUIV OPHIG1,OPHIG/NOSORT2/OQG1,OQG/NOSORT2 $ 45 COND NST26 ,NOSORT2 $ 46 SDR3 OPHIG1, ,OQG1,,,/OPHIG, ,OQG,,, $ 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 47 LABEL NST26 $ 48 OFP OPHIG, ,OQG,,,//S,N,CARDNO $ 49 COND LBB6 ,ILOOP $ 50 REPT LB6 ,100 $ 51 LABEL LBB6 $ 52 SOFO ,U1,U2,U3,U4,U5//-1/*XXXXXXXX* $ 53 LABEL LBSEND $ 54 JUMP FINIS $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A 3 LABEL = NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 4 METHOD = 10 5 MPC = 21 6 VECTOR = ALL 7 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 6, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- EIGR 10 INV .0 .1 1 1 PEIG 2- +EIG MAX 3- MPCS 21 DHUB 108 1 -1.0 +MPC1 4- +MPC1 DROOT1 6 2 .94868336 1 .3162278 5- MPCS 21 DHUB 108 2 -1.0 +MPC2 6- +MPC2 DROOT1 6 1 -.9486836 2 .3162278 ENDDATA 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 4 PARAM //*ADD*/DRY/1 /0 $ 4 LABEL LBSBEG $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 4 SOFUT //DRY/*SMALLMIL*/*EQUI*/32 /*SMILLDYN*/*D */*ITM1*/*ITM2*/ *ITM3*/*ITM4*/*ITM5* $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 5 PARAM //*NOP*/ALWAYS=-1 $ 5 SGEN CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT, BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*SMILLDYN*/S,N,LUSET/ S,N,NOGPDT $ 5 PURGE CSTM $ 5 EQUIV GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/ DYNS,DYNAMICS/ALWAYS $ 5 COND LB5 ,DRY $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND LBSOL,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 LABEL JMPKGG $ 32 COND LBSOL,NOMGG $ 33 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 34 PURGE MDICT,MELM/ALWAYS $ 35 COND LGPWG,GRDPNT $ 36 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 37 OFP OGPWG,,,,,//S,N,CARDNO $ 38 LABEL LGPWG $ 43 LABEL LBSOL $ 43 SOFI /K1 ,M1 ,,,/DRY/*SMILLDYN*/*KMTX*/*MMTX* $ 43 EQUIV K1 ,KGG/NOSIMP $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 43 EQUIV M1 ,MGG/NOSIMP $ 43 COND LB5 ,NOSIMP $ 43 ADD KGGX,K1 /KGG/(1.0,0.0)/(1.0,0.0) $ 43 ADD MGG,M1 /MGGX/(1.0,0.0)/(1.0,0.0) $ 43 EQUIV MGGX,MGG/ALWAYS $ 43 LABEL LB5 $ 43 CHKPNT MGG $ 44 PARAM //*MPY*/NSKIP/0/0 $ 45 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 46 OFP OGPST,,,,,//S,N,CARDNO $ 47 COND ERROR3,NOL $ 48 PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ 49 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 50 COND LBL2,MPCF1 $ 51 MCE1 USET,RG/GM $ 52 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 53 LABEL LBL2 $ 54 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 55 COND LBL3,SINGLE $ 56 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 57 LABEL LBL3 $ 58 EQUIV KFF,KAA/OMIT $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 59 EQUIV MFF,MAA/OMIT $ 60 COND LBL5,OMIT $ 61 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 62 SMP2 USET,GO,MFF/MAA $ 63 LABEL LBL5 $ 64 COND LBL6,REACT $ 65 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 66 RBMG2 KLL/LLL $ 67 RBMG3 LLL,KLR,KRR/DM $ 68 RBMG4 DM,MLL,MLR,MRR/MR $ 69 LABEL LBL6 $ 70 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ 71 COND ERROR2,NOEED $ 72 PARAM //*MPY*/NEIGV/1/-1 $ 73 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ 74 OFP OEIGS,,,,,//S,N,CARDNO $ 75 COND FINIS,NEIGV $ 76 OFP LAMA,,,,,//S,N,CARDNO $ 77 SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ 95 COND LBSEND,DRY $ 95 FILE U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $ 95 PARAM //*ADD*/ILOOP/0/0 $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 95 LABEL LB6 $ 95 RCOVR CASESS,LAMA ,KGG,MGG, ,PHIG, , , , , /OPHIG1, ,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/6 /*SMILLDYN*/ 3 /NEIGV/S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/ S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $ 95 EQUIV OPHIG1,OPHIG/NOSORT2/OQG1,OQG/NOSORT2 $ 95 COND NST26 ,NOSORT2 $ 95 SDR3 OPHIG1, ,OQG1,,,/OPHIG, ,OQG,,, $ 95 LABEL NST26 $ 95 OFP OPHIG, ,OQG,,,//S,N,CARDNO $ 95 COND LBB6 ,ILOOP $ 95 REPT LB6 ,100 $ 95 LABEL LBB6 $ 95 SOFO ,U1,U2,U3,U4,U5//-1/*XXXXXXXX* $ 95 LABEL LBSEND $ 95 JUMP FINIS $ 96 LABEL ERROR2 $ 97 PRTPARM //-2/*MODES* $ 98 LABEL ERROR3 $ 99 PRTPARM //-3/*MODES* $ 100 LABEL ERROR4 $ 101 PRTPARM //-4/*MODES* $ 102 LABEL FINIS $ 103 PURGE DUMMY/ALWAYS $ 104 END $ 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR4 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 0 *** USER POTENTIALLY FATAL MESSAGE 22, POSSIBLE ERROR IN DMAP INSTRUCTION TA1 INSTRUCTION NO. 22 DATA BLOCK NAMED CSTM APPEARS AS INPUT BEFORE BEING DEFINED *** USER POTENTIALLY FATAL MESSAGE 22, POSSIBLE ERROR IN DMAP INSTRUCTION GP4 INSTRUCTION NO. 45 DATA BLOCK NAMED GPST APPEARS AS INPUT BEFORE BEING DEFINED 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 926 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 0 0 0 27 28 3 3 3 3 3 3 3 3 3 3 3 2 ROOT1 B 24 0 0 6 7 3 3 3 3 3 3 3 3 3 VANE1 B 15 0 0 4 5 3 3 3 3 3 3 3 3 3 4 VANE2 B 14 3 0 3 5 3 0 0 3 3 0 0 0 3 5 VANETOP C 16 0 3 7 26 3 3 3 3 3 3 3 3 3 6 ROOT2 B 23 2 0 2 7 3 0 3 3 0 0 0 3 7 ROOTTOP C 25 0 2 10 26 3 3 3 3 3 3 3 3 8 LVANE2 IB 0 3 0 9 10 3 0 0 3 3 0 0 0 0 9 LVANE1 IB 4 3 0 8 10 3 0 0 3 3 0 0 0 0 10 VANELFT C 0 5 9 19 26 3 0 0 3 3 0 0 0 3 11 RVANE2 IB 8 3 0 12 13 3 0 0 3 3 0 0 0 0 12 RVANE1 IB 9 3 0 11 13 3 0 0 3 3 0 0 0 0 3 3 13 VANERGT C 10 5 12 26 27 3 0 0 3 3 0 0 0 3 3 3 14 BVANE2 IB 11 3 0 15 16 3 0 0 3 3 0 0 0 0 15 BVANE1 IB 12 3 0 14 16 3 0 0 3 3 0 0 0 0 16 VANEBOT C 13 5 15 25 26 3 0 0 3 3 0 0 0 3 17 LROOT2 IB 0 2 0 18 19 3 0 3 3 0 0 0 0 18 LROOT1 IB 6 2 0 17 19 3 0 3 3 0 0 0 0 19 ROOTLFT C 0 7 18 16 26 3 0 3 3 0 0 0 3 20 RROOT2 IB 17 2 0 21 22 3 0 3 3 0 0 0 0 21 RROOT1 IB 18 2 0 20 22 3 0 3 3 0 0 0 0 22 ROOTRGT C 19 7 21 5 26 3 0 3 3 0 0 0 3 23 BROOT2 IB 20 2 0 24 25 3 0 3 3 0 0 0 0 24 BROOT1 IB 21 2 0 23 25 3 0 3 3 0 0 0 0 25 ROOTBOT C 22 7 24 22 26 3 0 3 3 0 0 0 3 26 RING C 0 0 5 13 27 3 3 3 3 3 4 3 3 3 27 BLADES C 0 0 26 1 28 3 3 3 3 3 4 3 3 3 3 3 28 WINDMIL C 0 0 1 0 29 3 3 3 3 3 4 3 3 3 3 4 3 3 3 29 SMALLMIL R 0 0 28 0 0 3 3 3 3 3 4 4 4 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 663552 WORDS. OR = 648 BLOCKS. OR = 69 PERCENT. 0*** HIGHEST BLOCK USED = 278 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPST MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 0 S U B S T R U C T U R E E Q U I V A L E N C E O P E R A T I O N SUBSTRUCTURE SMILLDYN HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE SMALLMIL 0 THE PRIMARY SUBSTRUCTURE OF SMILLDYN IS SMALLMIL 0 THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED -- 0 DWINDMIL DHUB DBLADES DRING DVANETOP DVANERGT DVANE1 DROOTTOP 0 DRVANE1 DVANE2 DROOT1 DVANELFT DRVANE2 DROOT2 DLVANE1 DROOTLFT 0 DLVANE2 DLROOT1 DVANEBOT DLROOT2 DBVANE1 DROOTBOT DBVANE2 DBROOT1 0 DROOTRGT DBROOT2 DRROOT1 DRROOT2 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 HUB B 56 0 0 27 28 3 3 3 3 3 3 3 3 3 3 3 2 ROOT1 B 47 0 0 6 7 3 3 3 3 3 3 3 3 3 VANE1 B 51 0 0 4 5 3 3 3 3 3 3 3 3 3 4 VANE2 B 48 3 0 3 5 3 0 0 3 3 0 0 0 3 5 VANETOP C 53 0 3 7 26 3 3 3 3 3 3 3 3 3 6 ROOT2 B 44 2 0 2 7 3 0 3 3 0 0 0 3 7 ROOTTOP C 50 0 2 10 26 3 3 3 3 3 3 3 3 8 LVANE2 IB 41 3 0 9 10 3 0 0 3 3 0 0 0 0 9 LVANE1 IB 43 3 0 8 10 3 0 0 3 3 0 0 0 0 10 VANELFT C 46 5 9 19 26 3 0 0 3 3 0 0 0 3 11 RVANE2 IB 45 3 0 12 13 3 0 0 3 3 0 0 0 0 12 RVANE1 IB 49 3 0 11 13 3 0 0 3 3 0 0 0 0 3 3 13 VANERGT C 52 5 12 26 27 3 0 0 3 3 0 0 0 3 3 3 14 BVANE2 IB 35 3 0 15 16 3 0 0 3 3 0 0 0 0 15 BVANE1 IB 37 3 0 14 16 3 0 0 3 3 0 0 0 0 16 VANEBOT C 39 5 15 25 26 3 0 0 3 3 0 0 0 3 17 LROOT2 IB 38 2 0 18 19 3 0 3 3 0 0 0 0 18 LROOT1 IB 40 2 0 17 19 3 0 3 3 0 0 0 0 19 ROOTLFT C 42 7 18 16 26 3 0 3 3 0 0 0 3 20 RROOT2 IB 30 2 0 21 22 3 0 3 3 0 0 0 0 21 RROOT1 IB 31 2 0 20 22 3 0 3 3 0 0 0 0 22 ROOTRGT C 33 7 21 5 26 3 0 3 3 0 0 0 3 23 BROOT2 IB 32 2 0 24 25 3 0 3 3 0 0 0 0 24 BROOT1 IB 34 2 0 23 25 3 0 3 3 0 0 0 0 25 ROOTBOT C 36 7 24 22 26 3 0 3 3 0 0 0 3 26 RING C 54 0 5 13 27 3 3 3 3 3 4 3 3 3 27 BLADES C 55 0 26 1 28 3 3 3 3 3 4 3 3 3 3 3 28 WINDMIL C 57 0 1 0 29 3 3 3 3 3 4 3 3 3 3 4 3 3 3 29 SMALLMIL R 58 0 28 0 0 3 3 3 3 3 4 4 4 3 3 30 DRROOT2 IB 17 2 0 31 33 3 0 3 3 0 0 0 0 31 DRROOT1 IB 18 2 0 30 33 3 0 3 3 0 0 0 0 32 DBROOT2 IB 20 2 0 34 36 3 0 3 3 0 0 0 0 33 DROOTRGT IC 19 7 31 53 54 3 0 3 3 0 0 0 0 34 DBROOT1 IB 21 2 0 32 36 3 0 3 3 0 0 0 0 35 DBVANE2 IB 11 3 0 37 39 3 0 0 3 3 0 0 0 0 36 DROOTBOT IC 22 7 34 33 54 3 0 3 3 0 0 0 0 37 DBVANE1 IB 12 3 0 35 39 3 0 0 3 3 0 0 0 0 38 DLROOT2 IB 0 2 0 40 42 3 0 3 3 0 0 0 0 39 DVANEBOT IC 13 5 37 36 54 3 0 0 3 3 0 0 0 0 40 DLROOT1 IB 6 2 0 38 42 3 0 3 3 0 0 0 0 41 DLVANE2 IB 0 3 0 43 46 3 0 0 3 3 0 0 0 0 42 DROOTLFT IC 0 7 40 39 54 3 0 3 3 0 0 0 0 43 DLVANE1 IB 4 3 0 41 46 3 0 0 3 3 0 0 0 0 44 DROOT2 IB 23 2 0 47 50 3 0 3 3 0 0 0 0 45 DRVANE2 IB 8 3 0 49 52 3 0 0 3 3 0 0 0 0 46 DVANELFT IC 0 5 43 42 54 3 0 0 3 3 0 0 0 0 47 DROOT1 IB 24 2 0 44 50 3 0 3 3 0 0 0 0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 48 DVANE2 IB 14 3 0 51 53 3 0 0 3 3 0 0 0 0 49 DRVANE1 IB 9 3 0 45 52 3 0 0 3 3 0 0 0 0 50 DROOTTOP IC 25 7 47 46 54 3 0 3 3 0 0 0 0 51 DVANE1 IB 15 3 0 48 53 3 0 0 3 3 0 0 0 0 52 DVANERGT IC 10 5 49 54 55 3 0 0 3 3 0 0 0 0 53 DVANETOP IC 16 5 51 50 54 3 0 0 3 3 0 0 0 0 54 DRING IC 0 26 53 52 55 3 0 0 3 3 0 0 0 0 55 DBLADES IC 0 27 54 56 57 3 0 0 3 3 0 0 0 0 56 DHUB IB 0 1 0 55 57 3 0 0 3 3 0 0 0 0 57 DWINDMIL IC 0 28 56 0 58 3 0 0 3 3 0 0 0 0 0 0 0 58 SMILLDYN R 0 29 57 0 0 3 0 0 3 3 0 0 0 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 573440 WORDS. OR = 560 BLOCKS. OR = 60 PERCENT. 0*** HIGHEST BLOCK USED = 366 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPST MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 1.973921E-01 1 ROOTS BELOW 3.283552E+06 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 1 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 2 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 13 0 REASON FOR TERMINATION . . . . . . . . . . . 7* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 1 OR MORE ROOT OUTSIDE FR.RANGE. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 1 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 1 3.282042E+06 1.811641E+03 2.883316E+02 1.257053E-02 4.125703E+04 0*** USER INFORMATION MESSAGE 6312, LEVEL 1 DISPLACEMENTS FOR SUBSTRUCTURE DWINDMIL HAVE BEEN RECOVERED AND SAVED ON THE SOF. 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DHUB EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -8.856722E-02 0.0 0.0 0.0 0.0 0.0 2 G -1.522623E-01 -3.541324E-02 0.0 0.0 0.0 0.0 4 G -9.645820E-02 4.235715E-08 0.0 0.0 0.0 0.0 5 G 0.0 7.825273E-06 0.0 0.0 0.0 0.0 5 G -1.466363E-01 0.0 0.0 0.0 0.0 0.0 7 G -8.856737E-02 0.0 0.0 0.0 0.0 0.0 10 G -4.981457E-02 4.981417E-02 0.0 0.0 0.0 0.0 11 G -9.071273E-02 9.069184E-02 0.0 0.0 0.0 0.0 13 G 0.0 8.856670E-02 0.0 0.0 0.0 0.0 14 G -3.541860E-02 1.522445E-01 0.0 0.0 0.0 0.0 16 G -2.156543E-08 9.645748E-02 0.0 0.0 0.0 0.0 17 G 0.0 1.465488E-01 0.0 0.0 0.0 0.0 17 G -1.005780E-06 0.0 0.0 0.0 0.0 0.0 19 G 0.0 8.856663E-02 0.0 0.0 0.0 0.0 20 G 3.540997E-02 1.522359E-01 0.0 0.0 0.0 0.0 22 G 4.981398E-02 4.981408E-02 0.0 0.0 0.0 0.0 23 G 9.066205E-02 9.066232E-02 0.0 0.0 0.0 0.0 25 G 8.856636E-02 0.0 0.0 0.0 0.0 0.0 26 G 1.522343E-01 3.540994E-02 0.0 0.0 0.0 0.0 28 G 9.645715E-02 2.330909E-09 0.0 0.0 0.0 0.0 29 G 1.465443E-01 0.0 0.0 0.0 0.0 0.0 29 G 0.0 1.111190E-08 0.0 0.0 0.0 0.0 31 G 8.856634E-02 0.0 0.0 0.0 0.0 0.0 32 G 1.522343E-01 -3.540988E-02 0.0 0.0 0.0 0.0 34 G 4.981396E-02 -4.981401E-02 0.0 0.0 0.0 0.0 35 G 9.066191E-02 -9.066199E-02 0.0 0.0 0.0 0.0 37 G 0.0 -8.856648E-02 0.0 0.0 0.0 0.0 38 G 3.540988E-02 -1.522346E-01 0.0 0.0 0.0 0.0 40 G -1.192220E-08 -9.645732E-02 0.0 0.0 0.0 0.0 41 G 0.0 -1.465449E-01 0.0 0.0 0.0 0.0 41 G -1.414324E-07 0.0 0.0 0.0 0.0 0.0 43 G 0.0 -8.856653E-02 0.0 0.0 0.0 0.0 44 G -3.541097E-02 -1.522356E-01 0.0 0.0 0.0 0.0 46 G -4.981442E-02 -4.981408E-02 0.0 0.0 0.0 0.0 47 G -9.066828E-02 -9.066486E-02 0.0 0.0 0.0 0.0 108 G -1.452955E-02 1.558556E-01 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DVANE1 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 9.997520E-01 -3.238102E-07 0.0 0.0 0.0 0.0 2 G 1.000000E+00 -1.441501E-01 0.0 0.0 0.0 0.0 3 G 7.788594E-01 -9.595670E-07 0.0 0.0 0.0 0.0 4 G 7.801476E-01 -1.415358E-01 0.0 0.0 0.0 0.0 5 G 5.599570E-01 -2.673961E-06 0.0 0.0 0.0 0.0 6 G 5.620782E-01 -1.301922E-01 0.0 0.0 0.0 0.0 7 G -3.626443E-01 8.360030E-06 0.0 0.0 0.0 0.0 8 G -3.659638E-01 1.039001E-01 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DVANE2 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 9.997520E-01 -3.238102E-07 0.0 0.0 0.0 0.0 2 G 1.000000E+00 1.441494E-01 0.0 0.0 0.0 0.0 3 G 7.788594E-01 -9.595670E-07 0.0 0.0 0.0 0.0 4 G 7.801476E-01 1.415352E-01 0.0 0.0 0.0 0.0 5 G 5.599570E-01 -2.673961E-06 0.0 0.0 0.0 0.0 6 G 5.620782E-01 1.301915E-01 0.0 0.0 0.0 0.0 7 G -3.626443E-01 8.360030E-06 0.0 0.0 0.0 0.0 8 G -3.659638E-01 -1.038995E-01 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DROOT1 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.626443E-01 8.360030E-06 0.0 0.0 0.0 0.0 2 G -3.659638E-01 1.039001E-01 0.0 0.0 0.0 0.0 3 G -2.150761E-01 2.763956E-05 0.0 0.0 0.0 0.0 4 G -2.191406E-01 5.852914E-02 0.0 0.0 0.0 0.0 5 G -1.466363E-01 0.0 0.0 0.0 0.0 0.0 5 G 0.0 3.650935E-05 0.0 0.0 0.0 0.0 6 G -1.524523E-01 3.550195E-02 0.0 0.0 0.0 0.0 7 G -1.226156E-01 1.226150E-01 0.0 0.0 0.0 0.0 8 G -9.071273E-02 9.069184E-02 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DROOT2 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.626443E-01 8.360030E-06 0.0 0.0 0.0 0.0 2 G -3.659638E-01 -1.038995E-01 0.0 0.0 0.0 0.0 3 G -2.150761E-01 2.763956E-05 0.0 0.0 0.0 0.0 4 G -2.191405E-01 -5.852871E-02 0.0 0.0 0.0 0.0 5 G -1.466363E-01 0.0 0.0 0.0 0.0 0.0 5 G 0.0 3.650935E-05 0.0 0.0 0.0 0.0 6 G -1.522623E-01 -3.541324E-02 0.0 0.0 0.0 0.0 7 G -1.226152E-01 -1.226148E-01 0.0 0.0 0.0 0.0 8 G -9.066828E-02 -9.066486E-02 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DLVANE1 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 9.997458E-01 -1.117004E-07 0.0 0.0 0.0 0.0 2 G 9.999938E-01 -1.441490E-01 0.0 0.0 0.0 0.0 3 G 7.788545E-01 -1.119511E-07 0.0 0.0 0.0 0.0 4 G 7.801426E-01 -1.415348E-01 0.0 0.0 0.0 0.0 5 G 5.599533E-01 -1.250994E-07 0.0 0.0 0.0 0.0 6 G 5.620747E-01 -1.301912E-01 0.0 0.0 0.0 0.0 7 G -1.607602E-07 -3.626407E-01 0.0 0.0 0.0 0.0 8 G -1.038993E-01 -3.659613E-01 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DLVANE2 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 9.997458E-01 -1.117004E-07 0.0 0.0 0.0 0.0 2 G 9.999938E-01 1.441488E-01 0.0 0.0 0.0 0.0 3 G 7.788545E-01 -1.119511E-07 0.0 0.0 0.0 0.0 4 G 7.801426E-01 1.415346E-01 0.0 0.0 0.0 0.0 5 G 5.599533E-01 -1.250994E-07 0.0 0.0 0.0 0.0 6 G 5.620747E-01 1.301910E-01 0.0 0.0 0.0 0.0 7 G -1.607602E-07 -3.626407E-01 0.0 0.0 0.0 0.0 8 G 1.038991E-01 -3.659613E-01 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DLROOT1 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.607602E-07 -3.626407E-01 0.0 0.0 0.0 0.0 2 G -1.038993E-01 -3.659613E-01 0.0 0.0 0.0 0.0 3 G -2.637443E-07 -2.150589E-01 0.0 0.0 0.0 0.0 4 G -5.852870E-02 -2.191390E-01 0.0 0.0 0.0 0.0 5 G 0.0 -1.465449E-01 0.0 0.0 0.0 0.0 5 G -3.484796E-07 0.0 0.0 0.0 0.0 0.0 6 G -3.541097E-02 -1.522356E-01 0.0 0.0 0.0 0.0 7 G -1.226152E-01 -1.226148E-01 0.0 0.0 0.0 0.0 8 G -9.066828E-02 -9.066486E-02 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DLROOT2 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.607602E-07 -3.626407E-01 0.0 0.0 0.0 0.0 2 G 1.038991E-01 -3.659613E-01 0.0 0.0 0.0 0.0 3 G -2.637443E-07 -2.150589E-01 0.0 0.0 0.0 0.0 4 G 5.852852E-02 -2.191389E-01 0.0 0.0 0.0 0.0 5 G 0.0 -1.465449E-01 0.0 0.0 0.0 0.0 5 G -3.484796E-07 0.0 0.0 0.0 0.0 0.0 6 G 3.540988E-02 -1.522346E-01 0.0 0.0 0.0 0.0 7 G 1.226143E-01 -1.226144E-01 0.0 0.0 0.0 0.0 8 G 9.066191E-02 -9.066199E-02 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DBVANE1 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -9.997436E-01 1.984798E-08 0.0 0.0 0.0 0.0 2 G -9.999917E-01 1.441486E-01 0.0 0.0 0.0 0.0 3 G -7.788528E-01 1.882441E-08 0.0 0.0 0.0 0.0 4 G -7.801409E-01 1.415344E-01 0.0 0.0 0.0 0.0 5 G -5.599520E-01 2.442134E-08 0.0 0.0 0.0 0.0 6 G -5.620733E-01 1.301908E-01 0.0 0.0 0.0 0.0 7 G 3.626399E-01 2.093786E-08 0.0 0.0 0.0 0.0 8 G 3.659605E-01 1.038989E-01 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DBVANE2 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -9.997436E-01 1.984798E-08 0.0 0.0 0.0 0.0 2 G -9.999917E-01 -1.441486E-01 0.0 0.0 0.0 0.0 3 G -7.788528E-01 1.882441E-08 0.0 0.0 0.0 0.0 4 G -7.801409E-01 -1.415344E-01 0.0 0.0 0.0 0.0 5 G -5.599520E-01 2.442134E-08 0.0 0.0 0.0 0.0 6 G -5.620733E-01 -1.301908E-01 0.0 0.0 0.0 0.0 7 G 3.626399E-01 2.093786E-08 0.0 0.0 0.0 0.0 8 G 3.659605E-01 -1.038989E-01 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DBROOT1 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.626399E-01 2.093786E-08 0.0 0.0 0.0 0.0 2 G 3.659605E-01 1.038989E-01 0.0 0.0 0.0 0.0 3 G 2.150584E-01 2.414884E-08 0.0 0.0 0.0 0.0 4 G 2.191385E-01 5.852849E-02 0.0 0.0 0.0 0.0 5 G 0.0 2.615428E-08 0.0 0.0 0.0 0.0 5 G 1.465443E-01 0.0 0.0 0.0 0.0 0.0 6 G 1.522343E-01 3.540994E-02 0.0 0.0 0.0 0.0 7 G 1.226144E-01 1.226146E-01 0.0 0.0 0.0 0.0 8 G 9.066205E-02 9.066232E-02 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DBROOT2 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.626399E-01 2.093786E-08 0.0 0.0 0.0 0.0 2 G 3.659605E-01 -1.038989E-01 0.0 0.0 0.0 0.0 3 G 2.150584E-01 2.414884E-08 0.0 0.0 0.0 0.0 4 G 2.191385E-01 -5.852846E-02 0.0 0.0 0.0 0.0 5 G 0.0 2.615428E-08 0.0 0.0 0.0 0.0 5 G 1.465443E-01 0.0 0.0 0.0 0.0 0.0 6 G 1.522343E-01 -3.540988E-02 0.0 0.0 0.0 0.0 7 G 1.226143E-01 -1.226144E-01 0.0 0.0 0.0 0.0 8 G 9.066191E-02 -9.066199E-02 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DRROOT1 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -6.303531E-07 3.626415E-01 0.0 0.0 0.0 0.0 2 G 1.038992E-01 3.659620E-01 0.0 0.0 0.0 0.0 3 G -1.726059E-06 2.150601E-01 0.0 0.0 0.0 0.0 4 G 5.852860E-02 2.191393E-01 0.0 0.0 0.0 0.0 5 G 0.0 1.465488E-01 0.0 0.0 0.0 0.0 5 G -2.611606E-06 0.0 0.0 0.0 0.0 0.0 6 G 3.540997E-02 1.522359E-01 0.0 0.0 0.0 0.0 7 G 1.226144E-01 1.226146E-01 0.0 0.0 0.0 0.0 8 G 9.066205E-02 9.066232E-02 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DRROOT2 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -6.303531E-07 3.626415E-01 0.0 0.0 0.0 0.0 2 G -1.038995E-01 3.659620E-01 0.0 0.0 0.0 0.0 3 G -1.726059E-06 2.150601E-01 0.0 0.0 0.0 0.0 4 G -5.852887E-02 2.191394E-01 0.0 0.0 0.0 0.0 5 G 0.0 1.465488E-01 0.0 0.0 0.0 0.0 5 G -2.611606E-06 0.0 0.0 0.0 0.0 0.0 6 G -3.541860E-02 1.522445E-01 0.0 0.0 0.0 0.0 7 G -1.226156E-01 1.226150E-01 0.0 0.0 0.0 0.0 8 G -9.071273E-02 9.069184E-02 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DRVANE1 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 9.997478E-01 1.697535E-07 0.0 0.0 0.0 0.0 2 G 9.999957E-01 -1.441490E-01 0.0 0.0 0.0 0.0 3 G 7.788560E-01 2.100089E-07 0.0 0.0 0.0 0.0 4 G 7.801441E-01 -1.415348E-01 0.0 0.0 0.0 0.0 5 G 5.599543E-01 3.029057E-07 0.0 0.0 0.0 0.0 6 G 5.620757E-01 -1.301912E-01 0.0 0.0 0.0 0.0 7 G -6.303531E-07 3.626415E-01 0.0 0.0 0.0 0.0 8 G 1.038992E-01 3.659620E-01 0.0 0.0 0.0 0.0 1 WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A SUBSTRUCTURE DWINDMIL 0 NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 COMPONENT DRVANE2 EIGENVALUE = 0.328204E+07 (CYCLIC FREQUENCY = 2.883316E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 9.997478E-01 1.697535E-07 0.0 0.0 0.0 0.0 2 G 9.999957E-01 1.441493E-01 0.0 0.0 0.0 0.0 3 G 7.788560E-01 2.100089E-07 0.0 0.0 0.0 0.0 4 G 7.801441E-01 1.415351E-01 0.0 0.0 0.0 0.0 5 G 5.599543E-01 3.029057E-07 0.0 0.0 0.0 0.0 6 G 5.620757E-01 1.301915E-01 0.0 0.0 0.0 0.0 7 G -6.303531E-07 3.626415E-01 0.0 0.0 0.0 0.0 8 G -1.038995E-01 3.659620E-01 0.0 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR DATE: 5/17/95 END TIME: 15:22:27 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d02031a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D02031A,NASTRAN APP DISP,SUBS SOL 2,0 TIME 15 DIAG 23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE1 PASSWORD = MDLSYN SOF(1) = FT19,500,NEW $ DEC VAX NAME = ABASIC SOFPRINT TOC ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 4 2 PARAM //*NOP*/ALLWAYS=-1 $ 3 SGEN CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/ 4 S,N,NOGPDT $ 5 EQUIV CASEI,CASECC/ALLWAYS $ 6 ALTER 50, 50 7 PARAM //*ADD*/DRY/1 /0 $ 8 LABEL LBSBEG $ 9 COND LBLIS,DRY $ 10 ALTER 65, 68 11 LABEL LBLIS $ 12 ALTER 70, 97 13 SUBPH1 CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/ 14 *ABASIC */0 /*PVEC* $ 15 COND LBSEND,DRY $ 16 EQUIV PG,PL/NOSET $ 17 COND LBL10,NOSET $ 18 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 19 CHKPNT PO,PS,PL $ 20 LABEL LBL10 $ 21 SOFO ,KAA,MAA,PL, , //S,N,DRY/*ABASIC */*KMTX*/*MMTX*/*PVEC*/ 22 *BMTX*/*K4MX* $ 23 EQUIV CASESS,CASECC/ALWAYS $ 24 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 25 * */* */* * $ 26 LABEL LBSEND $ 27 JUMP FINIS $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A 3 LABEL = SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 4 LOAD = 980 $ 1 G ACCELERATION IN -Y DIRECTION 5 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 59, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CROD 1 1 1 2 2- CROD 2 1 2 3 3- CROD 11 1 11 12 4- CROD 12 1 12 13 5- CROD 21 1 21 22 6- CROD 22 1 22 23 7- CROD 31 1 31 32 8- CROD 32 1 32 33 9- CROD 41 1 41 42 10- CROD 42 1 42 43 11- CROD 51 1 51 52 12- CROD 52 1 52 53 13- CROD 111 1 1 11 14- CROD 112 1 2 12 15- CROD 113 1 3 13 16- CROD 121 1 11 21 17- CROD 122 1 12 22 18- CROD 123 1 13 23 19- CROD 131 1 21 31 20- CROD 132 1 22 32 21- CROD 133 1 23 33 22- CROD 141 1 31 41 23- CROD 142 1 32 42 24- CROD 143 1 33 43 25- CROD 151 1 41 51 26- CROD 152 1 42 52 27- CROD 153 1 43 53 28- CROD 211 1 2 11 29- CROD 212 1 2 13 30- CROD 221 1 12 21 31- CROD 222 1 12 23 32- CROD 231 1 22 31 33- CROD 232 1 22 33 34- CROD 241 1 32 41 35- CROD 242 1 32 43 36- CROD 251 1 42 51 37- CROD 252 1 42 53 38- GRAV 980 980.0 .0 -1.0 .0 39- GRDSET 3456 40- GRID 1 .0 -30.0 .0 41- GRID 2 .0 .0 .0 42- GRID 3 .0 30.0 .0 43- GRID 11 40.0 -30.0 .0 44- GRID 12 40.0 .0 .0 45- GRID 13 40.0 30.0 .0 46- GRID 21 80.0 -30.0 .0 47- GRID 22 80.0 .0 .0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 23 80.0 30.0 .0 49- GRID 31 120.0 -30.0 .0 50- GRID 32 120.0 .0 .0 51- GRID 33 120.0 30.0 .0 52- GRID 41 160.0 -30.0 .0 53- GRID 42 160.0 .0 .0 54- GRID 43 160.0 30.0 .0 55- GRID 51 200.0 -30.0 .0 56- GRID 52 200.0 .0 .0 57- GRID 53 200.0 30.0 .0 58- MAT1 1 10.0+6 .3 2.5-3 59- PROD 1 1 .3 ENDDATA 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1995 $ 2 PRECHK ALL $ 3 FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 4 PARAM //*NOP*/ALLWAYS=-1 $ 4 SGEN CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/ S,N,NOGPDT $ 4 EQUIV CASEI,CASECC/ALLWAYS $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL P1 $ 21 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR6,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 PURGE KDICT,KELM/ALWAYS $ 32 LABEL JMPKGG $ 33 COND ERROR1,NOMGG $ 34 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 35 PURGE MDICT,MELM/ALWAYS $ 36 COND LGPWG,GRDPNT $ 37 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 38 OFP OGPWG,,,,,//S,N,CARDNO $ 39 LABEL LGPWG $ 40 EQUIV KGGX,KGG/NOGENL $ 41 COND LBL11A,NOGENL $ 42 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 43 LABEL LBL11A $ 44 GPSTGEN KGG,SIL/GPST $ 45 PARAM //*MPY*/NSKIP/0/0 $ 46 LABEL LBL11 $ 47 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 48 OFP OGPST,,,,,//S,N,CARDNO $ 49 COND ERROR3,NOL $ 50 PARAM //*ADD*/DRY/1 /0 $ 50 LABEL LBSBEG $ 50 COND LBLIS,DRY $ 51 PURGE GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/ SINGLE $ 52 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 53 COND LBL2,MPCF2 $ 54 MCE1 USET,RG/GM $ 55 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 56 LABEL LBL2 $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 57 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 58 COND LBL3,SINGLE $ 59 SCE1 USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $ 60 LABEL LBL3 $ 61 EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ 62 COND LBL5,OMIT $ 63 SMP1 USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $ 64 LABEL LBL5 $ 68 LABEL LBLIS $ 69 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ 97 SUBPH1 CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/ *ABASIC */0 /*PVEC* $ 97 COND LBSEND,DRY $ 97 EQUIV PG,PL/NOSET $ 97 COND LBL10,NOSET $ 97 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 97 CHKPNT PO,PS,PL $ 97 LABEL LBL10 $ 97 SOFO ,KAA,MAA,PL, , //S,N,DRY/*ABASIC */*KMTX*/*MMTX*/*PVEC*/ *BMTX*/*K4MX* $ 97 EQUIV CASESS,CASECC/ALWAYS $ 97 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 97 LABEL LBSEND $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 97 JUMP FINIS $ 98 LABEL ERROR1 $ 99 PRTPARM //-1/*INERTIA* $ 100 LABEL ERROR2 $ 101 PRTPARM //-2/*INERTIA* $ 102 LABEL ERROR3 $ 103 PRTPARM //-3/*INERTIA* $ 104 LABEL ERROR4 $ 105 PRTPARM //-4/*INERTIA* $ 106 LABEL ERROR5 $ 107 PRTPARM //-5/*INERTIA* $ 108 LABEL ERROR6 $ 109 PRTPARM //-6/*INERTIA* $ 110 LABEL FINIS $ 111 PURGE DUMMY/ALWAYS $ 112 END $ 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR5 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR4 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR2 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0*** USER WARNING MESSAGE 27, LABEL NAMED LBL11 NOT REFERENCED 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 5 PROFILE 70 MAX WAVEFRONT 5 AVG WAVEFRONT 3.889 RMS WAVEFRONT 4.028 RMS BANDWIDTH 4.041 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 5 PROFILE 69 MAX WAVEFRONT 5 AVG WAVEFRONT 3.833 RMS WAVEFRONT 3.965 RMS BANDWIDTH 3.993 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 5 5 PROFILE (P) 70 69 MAXIMUM WAVEFRONT (C-MAX) 5 5 AVERAGE WAVEFRONT (C-AVG) 3.889 3.833 RMS WAVEFRONT (C-RMS) 4.028 3.965 RMS BANDWITCH (B-RMS) 4.041 3.993 NUMBER OF GRID POINTS (N) 18 NUMBER OF ELEMENTS (NON-RIGID) 37 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 6 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 37 MATRIX DENSITY, PERCENT 28.395 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 5 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 4 3 2 11 3 SEQGP 12 7 13 5 21 6 22 10 SEQGP 23 8 31 9 32 13 33 11 SEQGP 41 12 42 16 43 14 51 15 SEQGP 52 18 53 17 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 1 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 488 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE ABASIC SUBCASE 1 IS IDENTIFIED BY EXTERNAL STATIC LOAD SET 980 IN LODS ITEM. REFER TO THIS NUMBER ON LOADC CARDS. 0*** USER INFORMATION MESSAGE 6361, PHASE 1 SUCCESSFULLY EXECUTED FOR SUBSTRUCTURE ABASIC 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A 0 SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 ABASIC B 0 0 0 0 0 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 489472 WORDS. OR = 478 BLOCKS. OR = 97 PERCENT. 0*** HIGHEST BLOCK USED = 10 * * * END OF JOB * * * 1 JOB TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS DATE: 5/17/95 END TIME: 15:23:39 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d02032a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D02032A,NASTRAN APP DISP,SUBS SOL 2,0 TIME 30 DIAG 23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE1 PASSWORD = MDLSYN SOF(1) = FT19,500 $ DEC VAX NAME = BBASIC SOFPRINT TOC ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 4 2 PARAM //*NOP*/ALLWAYS=-1 $ 3 SGEN CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/ 4 S,N,NOGPDT $ 5 EQUIV CASEI,CASECC/ALLWAYS $ 6 ALTER 50, 50 7 PARAM //*ADD*/DRY/1 /0 $ 8 LABEL LBSBEG $ 9 COND LBLIS,DRY $ 10 ALTER 65, 68 11 LABEL LBLIS $ 12 ALTER 70, 97 13 SUBPH1 CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/ 14 *BBASIC */0 /*PVEC* $ 15 COND LBSEND,DRY $ 16 EQUIV PG,PL/NOSET $ 17 COND LBL10,NOSET $ 18 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 19 CHKPNT PO,PS,PL $ 20 LABEL LBL10 $ 21 SOFO ,KAA,MAA,PL, , //S,N,DRY/*BBASIC */*KMTX*/*MMTX*/*PVEC*/ 22 *BMTX*/*K4MX* $ 23 EQUIV CASESS,CASECC/ALWAYS $ 24 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 25 * */* */* * $ 26 LABEL LBSEND $ 27 JUMP FINIS $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A 3 LABEL = SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 4 LOAD = 980 $ 1 G ACCELERATION IN -Y DIRECTION 5 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 49, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CROD 1 1 1 2 2- CROD 2 1 2 3 3- CROD 11 1 11 12 4- CROD 12 1 12 13 5- CROD 21 1 21 22 6- CROD 22 1 22 23 7- CROD 31 1 31 32 8- CROD 32 1 32 33 9- CROD 41 1 41 42 10- CROD 42 1 42 43 11- CROD 111 1 1 11 12- CROD 112 1 2 12 13- CROD 113 1 3 13 14- CROD 121 1 11 21 15- CROD 122 1 12 22 16- CROD 123 1 13 23 17- CROD 131 1 21 31 18- CROD 132 1 22 32 19- CROD 133 1 23 33 20- CROD 141 1 31 41 21- CROD 142 1 32 42 22- CROD 143 1 33 43 23- CROD 211 1 2 11 24- CROD 212 1 2 13 25- CROD 221 1 12 21 26- CROD 222 1 12 23 27- CROD 231 1 22 31 28- CROD 232 1 22 33 29- CROD 241 1 32 41 30- CROD 242 1 32 43 31- GRAV 980 980.0 .0 -1.0 .0 32- GRDSET 3456 33- GRID 1 30.0 0.0 0.0 34- GRID 2 0.0 0.0 0.0 35- GRID 3 -30.0 0.0 0.0 36- GRID 11 30.0 40.0 0.0 37- GRID 12 0.0 40.0 0.0 38- GRID 13 -30.0 40.0 0.0 39- GRID 21 30.0 80.0 0.0 40- GRID 22 0.0 80.0 0.0 41- GRID 23 -30.0 80.0 0.0 42- GRID 31 30.0 120.0 0.0 43- GRID 32 0.0 120.0 0.0 44- GRID 33 -30.0 120.0 0.0 45- GRID 41 30.0 160.0 0.0 46- GRID 42 0.0 160.0 0.0 47- GRID 43 -30.0 160.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- MAT1 1 10.0+6 .3 2.5-3 49- PROD 1 1 .3 ENDDATA 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1995 $ 2 PRECHK ALL $ 3 FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 4 PARAM //*NOP*/ALLWAYS=-1 $ 4 SGEN CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/ S,N,NOGPDT $ 4 EQUIV CASEI,CASECC/ALLWAYS $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL P1 $ 21 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR6,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 PURGE KDICT,KELM/ALWAYS $ 32 LABEL JMPKGG $ 33 COND ERROR1,NOMGG $ 34 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 35 PURGE MDICT,MELM/ALWAYS $ 36 COND LGPWG,GRDPNT $ 37 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 38 OFP OGPWG,,,,,//S,N,CARDNO $ 39 LABEL LGPWG $ 40 EQUIV KGGX,KGG/NOGENL $ 41 COND LBL11A,NOGENL $ 42 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 43 LABEL LBL11A $ 44 GPSTGEN KGG,SIL/GPST $ 45 PARAM //*MPY*/NSKIP/0/0 $ 46 LABEL LBL11 $ 47 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 48 OFP OGPST,,,,,//S,N,CARDNO $ 49 COND ERROR3,NOL $ 50 PARAM //*ADD*/DRY/1 /0 $ 50 LABEL LBSBEG $ 50 COND LBLIS,DRY $ 51 PURGE GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/ SINGLE $ 52 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 53 COND LBL2,MPCF2 $ 54 MCE1 USET,RG/GM $ 55 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 56 LABEL LBL2 $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 57 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 58 COND LBL3,SINGLE $ 59 SCE1 USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $ 60 LABEL LBL3 $ 61 EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ 62 COND LBL5,OMIT $ 63 SMP1 USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $ 64 LABEL LBL5 $ 68 LABEL LBLIS $ 69 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ 97 SUBPH1 CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/ *BBASIC */0 /*PVEC* $ 97 COND LBSEND,DRY $ 97 EQUIV PG,PL/NOSET $ 97 COND LBL10,NOSET $ 97 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ 97 CHKPNT PO,PS,PL $ 97 LABEL LBL10 $ 97 SOFO ,KAA,MAA,PL, , //S,N,DRY/*BBASIC */*KMTX*/*MMTX*/*PVEC*/ *BMTX*/*K4MX* $ 97 EQUIV CASESS,CASECC/ALWAYS $ 97 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 97 LABEL LBSEND $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 97 JUMP FINIS $ 98 LABEL ERROR1 $ 99 PRTPARM //-1/*INERTIA* $ 100 LABEL ERROR2 $ 101 PRTPARM //-2/*INERTIA* $ 102 LABEL ERROR3 $ 103 PRTPARM //-3/*INERTIA* $ 104 LABEL ERROR4 $ 105 PRTPARM //-4/*INERTIA* $ 106 LABEL ERROR5 $ 107 PRTPARM //-5/*INERTIA* $ 108 LABEL ERROR6 $ 109 PRTPARM //-6/*INERTIA* $ 110 LABEL FINIS $ 111 PURGE DUMMY/ALWAYS $ 112 END $ 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR5 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR4 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR2 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0*** USER WARNING MESSAGE 27, LABEL NAMED LBL11 NOT REFERENCED 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 5 PROFILE 57 MAX WAVEFRONT 5 AVG WAVEFRONT 3.800 RMS WAVEFRONT 3.958 RMS BANDWIDTH 3.975 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 5 PROFILE 56 MAX WAVEFRONT 5 AVG WAVEFRONT 3.733 RMS WAVEFRONT 3.882 RMS BANDWIDTH 3.916 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 5 5 PROFILE (P) 57 56 MAXIMUM WAVEFRONT (C-MAX) 5 5 AVERAGE WAVEFRONT (C-AVG) 3.800 3.733 RMS WAVEFRONT (C-RMS) 3.958 3.882 RMS BANDWITCH (B-RMS) 3.975 3.916 NUMBER OF GRID POINTS (N) 15 NUMBER OF ELEMENTS (NON-RIGID) 30 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 6 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 30 MATRIX DENSITY, PERCENT 33.333 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 4 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 4 3 2 11 3 SEQGP 12 7 13 5 21 6 22 10 SEQGP 23 8 31 9 32 13 33 11 SEQGP 41 12 42 15 43 14 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 1 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 488 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE BBASIC SUBCASE 1 IS IDENTIFIED BY EXTERNAL STATIC LOAD SET 980 IN LODS ITEM. REFER TO THIS NUMBER ON LOADC CARDS. 0*** USER INFORMATION MESSAGE 6361, PHASE 1 SUCCESSFULLY EXECUTED FOR SUBSTRUCTURE BBASIC 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A 0 SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 ABASIC B 0 0 0 0 0 3 3 3 3 3 3 2 BBASIC B 0 0 0 0 0 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 483328 WORDS. OR = 472 BLOCKS. OR = 96 PERCENT. 0*** HIGHEST BLOCK USED = 16 * * * END OF JOB * * * 1 JOB TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS DATE: 5/17/95 END TIME: 15:24:50 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d02033a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D02033A,NASTRAN APP DISP,SUBS SOL 3,0 TIME 25 DIAG 23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE2 PASSWORD = MDLSYN SOF(1) = FT19,500 $ DEC VAX OPTIONS K,M,P SOFPRINT TOC MREDUCE ABASIC NAME MA BOUNDARY 5 FIXED 5 METHOD 9 OUTPUT 1,5,6,9,10 SOFPRINT TOC MREDUCE BBASIC NAME MB BOUNDARY 4 FIXED 4 METHOD 9 OUTPUT 1,5,6,9,10 SOFPRINT TOC COMBINE MA,MB NAME MCOMB TOLERANCE 0.001 OUTPUT 2,7,12 COMPONENT MB TRANSFORM 40 SOFPRINT TOC MREDUCE MCOMB NAME RTRUSS BOUNDARY 42 FIXED 9 METHOD 90 NMAX 18 OUTPUT 1,5,6,9,10 SOFPRINT TOC ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 4 2 PARAM //*ADD*/DRY/1 /0 $ 3 LABEL LBSBEG $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 5 * */* */* * $ 6 MRED1 CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*ABASIC */ 7 S,N,DRY/3 /S,N,NOFIX/S,N,SKIPM/*REAL* $ 8 COND LBM33 ,DRY $ 9 SOFI /K2 ,M2 ,P2 , , /S,N,DRY/*ABASIC */*KMTX*/*MMTX*/ 10 *PVEC*/*BMTX*/*K4MX* $ 11 COND LBM23 ,SKIPM $ 12 EQUIV K2 ,KFFX/NOFIX $ 13 EQUIV M2 ,MFFX/NOFIX $ 14 COND LBM13 ,NOFIX $ 15 SCE1 USETR,K2 ,M2 , , /KFFX,KFSX,KSSX,MFFX, , $ 16 LABEL LBM13 $ 17 READ KFFX,MFFX, , ,EEDR,USETR,/LAMAR,PHIR,MIR,OEIGR/*MODES*/ 18 NEIGVS $ 19 OFP LAMAR,OEIGR,,,,// $ 20 EQUIV PHIR,PHIS/NOFIX $ 21 COND LBM23 ,NOFIX $ 22 UMERGE USETR,PHIR,/PHIS/*N*/*F*/*S* $ 23 LABEL LBM23 $ 24 MRED2 CASECC,LAMAR,PHIS,EQST,USETR,K2 ,M2 , , ,P2 ,DMR, 25 QSM/K1 ,M1 , , ,P1 ,PO1 /3 /S,N,DRY/*PVEC* $ 26 LABEL LBM33 $ 27 COND FINIS,DRY $ 28 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 29 * */* */* * $ 30 MRED1 CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*BBASIC */ 31 S,N,DRY/5 /S,N,NOFIX/S,N,SKIPM/*REAL* $ 32 COND LBM35 ,DRY $ 33 SOFI /K4 ,M4 ,P4 , , /S,N,DRY/*BBASIC */*KMTX*/*MMTX*/ 34 *PVEC*/*BMTX*/*K4MX* $ 35 COND LBM25 ,SKIPM $ 36 EQUIV K4 ,KFFX/NOFIX $ 37 EQUIV M4 ,MFFX/NOFIX $ 38 COND LBM15 ,NOFIX $ 39 SCE1 USETR,K4 ,M4 , , /KFFX,KFSX,KSSX,MFFX, , $ 40 LABEL LBM15 $ 41 READ KFFX,MFFX, , ,EEDR,USETR,/LAMAR,PHIR,MIR,OEIGR/*MODES*/ 42 NEIGVS $ 43 OFP LAMAR,OEIGR,,,,// $ 44 EQUIV PHIR,PHIS/NOFIX $ 45 COND LBM25 ,NOFIX $ 46 UMERGE USETR,PHIR,/PHIS/*N*/*F*/*S* $ 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 47 LABEL LBM25 $ 48 MRED2 CASECC,LAMAR,PHIS,EQST,USETR,K4 ,M4 , , ,P4 ,DMR, 49 QSM/K3 ,M3 , , ,P3 ,PO3 /5 /S,N,DRY/*PVEC* $ 50 LABEL LBM35 $ 51 COND FINIS,DRY $ 52 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 53 * */* */* * $ 54 COMB1 CASECC,GEOM4//7 /S,N,DRY/*PVEC* $ 55 COND LB7 ,DRY $ 56 COMB2 ,K1 ,K3 , , , , , /K5 /S,N,DRY/*K*/* */ 57 *MA */*MB */* */* */* */ 58 * */* * $ 59 SOFO ,K5 ,,,,//S,N,DRY/*MCOMB */*KMTX* $ 60 COMB2 ,M1 ,M3 , , , , , /M5 /S,N,DRY/*M*/* */ 61 *MA */*MB */* */* */* */ 62 * */* * $ 63 SOFO ,M5 ,,,,//S,N,DRY/*MCOMB */*MMTX* $ 64 COMB2 ,P1 ,P3 , , , , , /P5 /S,N,DRY/*P*/*PVEC*/ 65 *MA */*MB */* */* */* */ 66 * */* * $ 67 SOFO ,P5 ,,,,//S,N,DRY/*MCOMB */*PVEC* $ 68 LABEL LB7 $ 69 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 70 * */* */* * $ 71 MRED1 CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*MCOMB */ 72 S,N,DRY/9 /S,N,NOFIX/S,N,SKIPM/*REAL* $ 73 COND LBM39 ,DRY $ 74 SOFI / , , , , /S,N,DRY/*MCOMB */*KMTX*/*MMTX*/ 75 *PVEC*/*BMTX*/*K4MX* $ 76 COND LBM29 ,SKIPM $ 77 EQUIV K5 ,KFFX/NOFIX $ 78 EQUIV M5 ,MFFX/NOFIX $ 79 COND LBM19 ,NOFIX $ 80 SCE1 USETR,K5 ,M5 , , /KFFX,KFSX,KSSX,MFFX, , $ 81 LABEL LBM19 $ 82 READ KFFX,MFFX, , ,EEDR,USETR,/LAMAR,PHIR,MIR,OEIGR/*MODES*/ 83 NEIGVS $ 84 OFP LAMAR,OEIGR,,,,// $ 85 EQUIV PHIR,PHIS/NOFIX $ 86 COND LBM29 ,NOFIX $ 87 UMERGE USETR,PHIR,/PHIS/*N*/*F*/*S* $ 88 LABEL LBM29 $ 89 MRED2 CASECC,LAMAR,PHIS,EQST,USETR,K5 ,M5 , , ,P5 ,DMR, 90 QSM/K6 ,M6 , , ,P6 ,PO6 /9 /S,N,DRY/*PVEC* $ 91 LABEL LBM39 $ 92 COND FINIS,DRY $ 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 93 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 94 * */* */* * $ 95 LABEL LBSEND $ 96 JUMP FINIS $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 3 LABEL = MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 4 $ USE 7 MODES PER COMPONENT AND 18 MODES OF COMBINATION 5 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 13, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BDYC 4 BBASIC 2 2- BDYC 5 ABASIC 1 3- BDYC 9 ABASIC 2 4- BDYC 42 ABASIC 2 BBASIC 42 5- BDYS1 1 12 1 2 3 51 52 53 6- BDYS1 2 12 1 2 3 7- BDYS1 42 2 2 8- EIGR 9 GIV .0 10000.0 7 +E1 9- +E1 MAX 10- EIGR 90 GIV .0 10000.0 20 +E2 11- +E2 MAX 12- TRANS 40 200.0 .0 .0 200.0 .0 1.0 +T1 13- +T1 200.0 -100.0 .0 ENDDATA 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 4 PARAM //*ADD*/DRY/1 /0 $ 4 LABEL LBSBEG $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 4 MRED1 CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*ABASIC */ S,N,DRY/3 /S,N,NOFIX/S,N,SKIPM/*REAL* $ 4 COND LBM33 ,DRY $ 4 SOFI /K2 ,M2 ,P2 , , /S,N,DRY/*ABASIC */*KMTX*/*MMTX*/ *PVEC*/*BMTX*/*K4MX* $ 4 COND LBM23 ,SKIPM $ 4 EQUIV K2 ,KFFX/NOFIX $ 4 EQUIV M2 ,MFFX/NOFIX $ 4 COND LBM13 ,NOFIX $ 4 SCE1 USETR,K2 ,M2 , , /KFFX,KFSX,KSSX,MFFX, , $ 4 LABEL LBM13 $ 4 READ KFFX,MFFX, , ,EEDR,USETR,/LAMAR,PHIR,MIR,OEIGR/*MODES*/ NEIGVS $ 4 OFP LAMAR,OEIGR,,,,// $ 4 EQUIV PHIR,PHIS/NOFIX $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 4 COND LBM23 ,NOFIX $ 4 UMERGE USETR,PHIR,/PHIS/*N*/*F*/*S* $ 4 LABEL LBM23 $ 4 MRED2 CASECC,LAMAR,PHIS,EQST,USETR,K2 ,M2 , , ,P2 ,DMR, QSM/K1 ,M1 , , ,P1 ,PO1 /3 /S,N,DRY/*PVEC* $ 4 LABEL LBM33 $ 4 COND FINIS,DRY $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 4 MRED1 CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*BBASIC */ S,N,DRY/5 /S,N,NOFIX/S,N,SKIPM/*REAL* $ 4 COND LBM35 ,DRY $ 4 SOFI /K4 ,M4 ,P4 , , /S,N,DRY/*BBASIC */*KMTX*/*MMTX*/ *PVEC*/*BMTX*/*K4MX* $ 4 COND LBM25 ,SKIPM $ 4 EQUIV K4 ,KFFX/NOFIX $ 4 EQUIV M4 ,MFFX/NOFIX $ 4 COND LBM15 ,NOFIX $ 4 SCE1 USETR,K4 ,M4 , , /KFFX,KFSX,KSSX,MFFX, , $ 4 LABEL LBM15 $ 4 READ KFFX,MFFX, , ,EEDR,USETR,/LAMAR,PHIR,MIR,OEIGR/*MODES*/ NEIGVS $ 4 OFP LAMAR,OEIGR,,,,// $ 4 EQUIV PHIR,PHIS/NOFIX $ 4 COND LBM25 ,NOFIX $ 4 UMERGE USETR,PHIR,/PHIS/*N*/*F*/*S* $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 4 LABEL LBM25 $ 4 MRED2 CASECC,LAMAR,PHIS,EQST,USETR,K4 ,M4 , , ,P4 ,DMR, QSM/K3 ,M3 , , ,P3 ,PO3 /5 /S,N,DRY/*PVEC* $ 4 LABEL LBM35 $ 4 COND FINIS,DRY $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 4 COMB1 CASECC,GEOM4//7 /S,N,DRY/*PVEC* $ 4 COND LB7 ,DRY $ 4 COMB2 ,K1 ,K3 , , , , , /K5 /S,N,DRY/*K*/* */ *MA */*MB */* */* */* */ * */* * $ 4 SOFO ,K5 ,,,,//S,N,DRY/*MCOMB */*KMTX* $ 4 COMB2 ,M1 ,M3 , , , , , /M5 /S,N,DRY/*M*/* */ *MA */*MB */* */* */* */ * */* * $ 4 SOFO ,M5 ,,,,//S,N,DRY/*MCOMB */*MMTX* $ 4 COMB2 ,P1 ,P3 , , , , , /P5 /S,N,DRY/*P*/*PVEC*/ *MA */*MB */* */* */* */ * */* * $ 4 SOFO ,P5 ,,,,//S,N,DRY/*MCOMB */*PVEC* $ 4 LABEL LB7 $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 4 MRED1 CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*MCOMB */ S,N,DRY/9 /S,N,NOFIX/S,N,SKIPM/*REAL* $ 4 COND LBM39 ,DRY $ 4 SOFI / , , , , /S,N,DRY/*MCOMB */*KMTX*/*MMTX*/ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING *PVEC*/*BMTX*/*K4MX* $ 4 COND LBM29 ,SKIPM $ 4 EQUIV K5 ,KFFX/NOFIX $ 4 EQUIV M5 ,MFFX/NOFIX $ 4 COND LBM19 ,NOFIX $ 4 SCE1 USETR,K5 ,M5 , , /KFFX,KFSX,KSSX,MFFX, , $ 4 LABEL LBM19 $ 4 READ KFFX,MFFX, , ,EEDR,USETR,/LAMAR,PHIR,MIR,OEIGR/*MODES*/ NEIGVS $ 4 OFP LAMAR,OEIGR,,,,// $ 4 EQUIV PHIR,PHIS/NOFIX $ 4 COND LBM29 ,NOFIX $ 4 UMERGE USETR,PHIR,/PHIS/*N*/*F*/*S* $ 4 LABEL LBM29 $ 4 MRED2 CASECC,LAMAR,PHIS,EQST,USETR,K5 ,M5 , , ,P5 ,DMR, QSM/K6 ,M6 , , ,P6 ,PO6 /9 /S,N,DRY/*PVEC* $ 4 LABEL LBM39 $ 4 COND FINIS,DRY $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 4 LABEL LBSEND $ 4 JUMP FINIS $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1//$ 20 LABEL P1 $ 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR4,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 LABEL JMPKGG $ 32 COND ERROR1,NOMGG $ 33 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 34 PURGE MDICT,MELM/ALWAYS $ 35 COND LGPWG,GRDPNT $ 36 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 37 OFP OGPWG,,,,,//S,N,CARDNO $ 38 LABEL LGPWG $ 39 EQUIV KGGX,KGG/NOGENL $ 40 COND LBL11,NOGENL $ 41 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 42 LABEL LBL11 $ 43 GPSTGEN KGG,SIL/GPST $ 44 PARAM //*MPY*/NSKIP/0/0 $ 45 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 46 OFP OGPST,,,,,//S,N,CARDNO $ 47 COND ERROR3,NOL $ 48 PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ 49 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 50 COND LBL2,MPCF1 $ 51 MCE1 USET,RG/GM $ 52 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 53 LABEL LBL2 $ 54 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 55 COND LBL3,SINGLE $ 56 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 57 LABEL LBL3 $ 58 EQUIV KFF,KAA/OMIT $ 59 EQUIV MFF,MAA/OMIT $ 60 COND LBL5,OMIT $ 61 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 62 SMP2 USET,GO,MFF/MAA $ 63 LABEL LBL5 $ 64 COND LBL6,REACT $ 65 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 66 RBMG2 KLL/LLL $ 67 RBMG3 LLL,KLR,KRR/DM $ 68 RBMG4 DM,MLL,MLR,MRR/MR $ 69 LABEL LBL6 $ 70 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ 71 COND ERROR2,NOEED $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 72 PARAM //*MPY*/NEIGV/1/-1 $ 73 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ 74 OFP OEIGS,,,,,//S,N,CARDNO $ 75 COND FINIS,NEIGV $ 76 OFP LAMA,,,,,//S,N,CARDNO $ 77 SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ 78 COND NOMPCF,GRDEQ $ 79 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ 80 OFP OQM1,,,,,//S,N,CARDNO $ 81 LABEL NOMPCF $ 82 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ *REIG*////COMPS $ 83 OFP OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $ 84 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 85 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 86 GPFDR CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ 87 OFP ONRGY1,,,,,//S,N,CARDNO $ 88 PURGE KDICT,KELM/ALWAYS $ 89 COND P2,JUMPPLOT $ 90 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 91 PRTMSG PLOTX2// $ 92 LABEL P2 $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 93 JUMP FINIS $ 94 LABEL ERROR1 $ 95 PRTPARM //-1/*MODES* $ 96 LABEL ERROR2 $ 97 PRTPARM //-2/*MODES* $ 98 LABEL ERROR3 $ 99 PRTPARM //-3/*MODES* $ 100 LABEL ERROR4 $ 101 PRTPARM //-4/*MODES* $ 102 LABEL FINIS $ 103 PURGE DUMMY/ALWAYS $ 104 END $ 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSEND NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MRED1 INSTRUCTION NO. 4 DATA BLOCK NAMED USETR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MRED1 INSTRUCTION NO. 4 DATA BLOCK NAMED EEDR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MRED1 INSTRUCTION NO. 4 DATA BLOCK NAMED EQST ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MRED1 INSTRUCTION NO. 4 DATA BLOCK NAMED DMR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 4 DATA BLOCK NAMED KFFX ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 4 DATA BLOCK NAMED KFSX ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 4 DATA BLOCK NAMED KSSX ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 4 DATA BLOCK NAMED MFFX ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION READ INSTRUCTION NO. 4 DATA BLOCK NAMED LAMAR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION READ INSTRUCTION NO. 4 DATA BLOCK NAMED PHIR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION READ INSTRUCTION NO. 4 DATA BLOCK NAMED MIR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION READ INSTRUCTION NO. 4 DATA BLOCK NAMED OEIGR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION UMERGE INSTRUCTION NO. 4 DATA BLOCK NAMED PHIS ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MRED1 INSTRUCTION NO. 4 DATA BLOCK NAMED USETR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MRED1 INSTRUCTION NO. 4 DATA BLOCK NAMED EEDR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MRED1 INSTRUCTION NO. 4 DATA BLOCK NAMED EQST ALREADY APPEARED AS OUTPUT 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MRED1 INSTRUCTION NO. 4 DATA BLOCK NAMED DMR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 4 DATA BLOCK NAMED KFFX ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 4 DATA BLOCK NAMED KFSX ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 4 DATA BLOCK NAMED KSSX ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 4 DATA BLOCK NAMED MFFX ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION READ INSTRUCTION NO. 4 DATA BLOCK NAMED LAMAR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION READ INSTRUCTION NO. 4 DATA BLOCK NAMED PHIR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION READ INSTRUCTION NO. 4 DATA BLOCK NAMED MIR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION READ INSTRUCTION NO. 4 DATA BLOCK NAMED OEIGR ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION UMERGE INSTRUCTION NO. 4 DATA BLOCK NAMED PHIS ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 22, POSSIBLE ERROR IN DMAP INSTRUCTION MRED1 INSTRUCTION NO. 4 DATA BLOCK NAMED CSTM APPEARS AS INPUT BEFORE BEING DEFINED *** USER POTENTIALLY FATAL MESSAGE 22, POSSIBLE ERROR IN DMAP INSTRUCTION MRED2 INSTRUCTION NO. 4 DATA BLOCK NAMED QSM APPEARS AS INPUT BEFORE BEING DEFINED 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 488 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 ABASIC B 0 0 0 0 0 3 3 3 3 3 3 2 BBASIC B 0 0 0 0 0 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 483328 WORDS. OR = 472 BLOCKS. OR = 96 PERCENT. 0*** HIGHEST BLOCK USED = 16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK QSM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK QSM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK QSM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 S U M M A R Y O F C U R R E N T P R O B L E M NAME OF PSEUDOSTRUCTURE TO BE REDUCED . . . . ABASIC NAME GIVEN TO RESULTANT PSEUDOSTRUCTURE MA BOUNDARY SET IDENTIFICATION NUMBER . . . . . 5 FIXED SET IDENTIFICATION NUMBER . . . . 5 RIGID BODY GRID POINT IDENTIFICATION NUMBER . RIGID BODY SUBSTRUCTURE NAME . . . . . OLDBOUND FLAG SET . . . . . . . . . . . . . . NO OLDMODES FLAG SET . . . . . . . . . . . NO FREE BODY MODES TO BE CALCULATED . . . . . . NO USER MODES FLAG SET . . . . . . . . . . NO SAVE REDUCTION PRODUCTS . . . . . . . . . . . NO EIGENVALUE EXTRACTION METHOD . . . . . 9 MAXIMUM NUMBER OF FREQUENCIES TO BE USED . . ALL GPARAM VALUE . . . . . . . . . . . . . 0.000000E+00 NAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN ABASIC RANGE OF FREQUENCIES TO BE USED . . . . ALL ABASIC 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 24, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 24 5.601143E+04 2.366673E+02 3.766677E+01 5.284617E-01 2.959989E+04 2 23 2.024636E+05 4.499596E+02 7.161329E+01 5.549427E-01 1.123557E+05 3 22 4.303660E+05 6.560228E+02 1.044093E+02 5.309593E-01 2.285068E+05 4 21 4.775556E+05 6.910540E+02 1.099846E+02 4.262653E-01 2.035654E+05 5 20 6.303828E+05 7.939665E+02 1.263637E+02 5.512223E-01 3.474810E+05 6 19 1.015982E+06 1.007959E+03 1.604217E+02 3.549629E-01 3.606358E+05 7 18 1.160696E+06 1.077356E+03 1.714665E+02 4.927448E-01 5.719267E+05 8 17 1.535740E+06 1.239250E+03 1.972327E+02 0.0 0.0 9 16 1.688206E+06 1.299310E+03 2.067916E+02 0.0 0.0 10 15 1.835441E+06 1.354784E+03 2.156206E+02 0.0 0.0 11 14 1.993628E+06 1.411959E+03 2.247202E+02 0.0 0.0 12 13 2.272924E+06 1.507622E+03 2.399455E+02 0.0 0.0 13 12 2.490456E+06 1.578118E+03 2.511653E+02 0.0 0.0 14 11 2.689588E+06 1.639996E+03 2.610135E+02 0.0 0.0 15 10 3.382310E+06 1.839106E+03 2.927027E+02 0.0 0.0 16 9 3.528508E+06 1.878432E+03 2.989618E+02 0.0 0.0 17 8 3.680405E+06 1.918438E+03 3.053289E+02 0.0 0.0 18 7 4.072884E+06 2.018139E+03 3.211967E+02 0.0 0.0 19 6 4.314360E+06 2.077104E+03 3.305813E+02 0.0 0.0 20 5 4.401530E+06 2.097982E+03 3.339043E+02 0.0 0.0 21 4 4.693424E+06 2.166431E+03 3.447982E+02 0.0 0.0 22 3 4.794578E+06 2.189652E+03 3.484940E+02 0.0 0.0 23 2 5.311776E+06 2.304729E+03 3.668090E+02 0.0 0.0 24 1 5.563008E+06 2.358603E+03 3.753833E+02 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 24 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 7 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 0 ROOTS BELOW 1.000000E-10 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 EQSS ITEM FOR SUBSTRUCTURE MA COMPONENT ABASIC GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 1 12 2 3 12 3 2 12 51 4 12 52 6 12 53 5 12 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 EQSS ITEM FOR SUBSTRUCTURE MA COMPONENT MA GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 101 7 1 102 8 1 103 9 1 104 10 1 105 11 1 106 12 1 107 13 1 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE MA INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT POINT ID SIL ID DOF POINT ID SIL ID DOF POINT ID SIL ID DOF 1 1 12 2 3 12 3 5 12 4 7 12 5 9 12 6 11 12 7 13 1 8 14 1 9 15 1 10 16 1 11 17 1 12 18 1 13 19 1 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 BGSS ITEM FOR SUBSTRUCTURE MA INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 1 0 0.000000E+00 -0.300000E+02 0.000000E+00 2 0 0.000000E+00 0.300000E+02 0.000000E+00 3 0 0.000000E+00 0.000000E+00 0.000000E+00 4 0 0.200000E+03 -0.300000E+02 0.000000E+00 5 0 0.200000E+03 0.300000E+02 0.000000E+00 6 0 0.200000E+03 0.000000E+00 0.000000E+00 7 -1 0.000000E+00 0.000000E+00 0.000000E+00 8 -1 0.000000E+00 0.000000E+00 0.000000E+00 9 -1 0.000000E+00 0.000000E+00 0.000000E+00 10 -1 0.000000E+00 0.000000E+00 0.000000E+00 11 -1 0.000000E+00 0.000000E+00 0.000000E+00 12 -1 0.000000E+00 0.000000E+00 0.000000E+00 13 -1 0.000000E+00 0.000000E+00 0.000000E+00 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 LODS ITEM FOR SUBSTRUCTURE MA COMPONENT NUMBER OF NAME LOAD SETS L O A D S E T I D E N T I F I C A T I O N N U M B E R S ABASIC 1 980 MA NO LOAD SETS FOR THIS COMPONENT. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 MODAL DOF SUMMARY FOR REDUCED SUBSTRUCTURE MA USAGE CODES ARE 0 - RIGID BODY POINT 1 - INCLUDED IN MODAL SET 2 - EXCLUDED FROM MODAL SET BECAUSE OF NON-PARTICIPATION 3 - EXCLUDED FROM MODAL SET BECAUSE OF RANGE OR NMAX MODE USAGE GRID NUMBER CYCLES CODE POINT ID SIL 1 3.766677E+01 1 101 13 2 7.161329E+01 1 102 14 3 1.044093E+02 1 103 15 4 1.099846E+02 1 104 16 5 1.263637E+02 1 105 17 6 1.604217E+02 1 106 18 7 1.714665E+02 1 107 19 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 ABASIC B 0 0 0 0 3 3 3 3 3 3 3 3 3 3 3 3 3 2 BBASIC B 0 0 0 0 0 3 3 3 3 3 3 3 MA M 0 0 1 0 0 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 470016 WORDS. OR = 459 BLOCKS. OR = 94 PERCENT. 0*** HIGHEST BLOCK USED = 29 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 S U M M A R Y O F C U R R E N T P R O B L E M NAME OF PSEUDOSTRUCTURE TO BE REDUCED . . . . BBASIC NAME GIVEN TO RESULTANT PSEUDOSTRUCTURE MB BOUNDARY SET IDENTIFICATION NUMBER . . . . . 4 FIXED SET IDENTIFICATION NUMBER . . . . 4 RIGID BODY GRID POINT IDENTIFICATION NUMBER . RIGID BODY SUBSTRUCTURE NAME . . . . . OLDBOUND FLAG SET . . . . . . . . . . . . . . NO OLDMODES FLAG SET . . . . . . . . . . . NO FREE BODY MODES TO BE CALCULATED . . . . . . NO USER MODES FLAG SET . . . . . . . . . . NO SAVE REDUCTION PRODUCTS . . . . . . . . . . . NO EIGENVALUE EXTRACTION METHOD . . . . . 9 MAXIMUM NUMBER OF FREQUENCIES TO BE USED . . ALL GPARAM VALUE . . . . . . . . . . . . . 0.000000E+00 NAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN BBASIC RANGE OF FREQUENCIES TO BE USED . . . . ALL BBASIC 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 24, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 24 7.501747E+03 8.661263E+01 1.378483E+01 3.013400E-01 2.260576E+03 2 23 1.074225E+05 3.277537E+02 5.216362E+01 5.153695E-01 5.536227E+04 3 22 1.643713E+05 4.054273E+02 6.452576E+01 3.315326E-01 5.449444E+04 4 21 3.705308E+05 6.087123E+02 9.687958E+01 4.161166E-01 1.541840E+05 5 20 6.012425E+05 7.753983E+02 1.234085E+02 4.258454E-01 2.560364E+05 6 19 8.654981E+05 9.303215E+02 1.480653E+02 3.684948E-01 3.189315E+05 7 18 9.059270E+05 9.518020E+02 1.514840E+02 1.382124E-01 1.252103E+05 8 17 1.353059E+06 1.163210E+03 1.851307E+02 0.0 0.0 9 16 1.612736E+06 1.269935E+03 2.021165E+02 0.0 0.0 10 15 1.836006E+06 1.354993E+03 2.156538E+02 0.0 0.0 11 14 2.027653E+06 1.423957E+03 2.266298E+02 0.0 0.0 12 13 2.029488E+06 1.424601E+03 2.267323E+02 0.0 0.0 13 12 2.484966E+06 1.576378E+03 2.508883E+02 0.0 0.0 14 11 2.751798E+06 1.658855E+03 2.640149E+02 0.0 0.0 15 10 3.458823E+06 1.859791E+03 2.959949E+02 0.0 0.0 16 9 3.562177E+06 1.887373E+03 3.003848E+02 0.0 0.0 17 8 3.621002E+06 1.902893E+03 3.028548E+02 0.0 0.0 18 7 4.262820E+06 2.064660E+03 3.286008E+02 0.0 0.0 19 6 4.466222E+06 2.113344E+03 3.363491E+02 0.0 0.0 20 5 4.511780E+06 2.124095E+03 3.380602E+02 0.0 0.0 21 4 4.771722E+06 2.184427E+03 3.476624E+02 0.0 0.0 22 3 5.303790E+06 2.302996E+03 3.665332E+02 0.0 0.0 23 2 5.612925E+06 2.369161E+03 3.770637E+02 0.0 0.0 24 1 7.754982E+06 2.784777E+03 4.432110E+02 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 24 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 7 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 0 ROOTS BELOW 1.000000E-10 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 EQSS ITEM FOR SUBSTRUCTURE MB COMPONENT BBASIC GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 1 12 2 3 12 3 2 12 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 EQSS ITEM FOR SUBSTRUCTURE MB COMPONENT MB GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 101 4 1 102 5 1 103 6 1 104 7 1 105 8 1 106 9 1 107 10 1 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE MB INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT POINT ID SIL ID DOF POINT ID SIL ID DOF POINT ID SIL ID DOF 1 1 12 2 3 12 3 5 12 4 7 1 5 8 1 6 9 1 7 10 1 8 11 1 9 12 1 10 13 1 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 BGSS ITEM FOR SUBSTRUCTURE MB INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 1 0 0.300000E+02 0.000000E+00 0.000000E+00 2 0 -0.300000E+02 0.000000E+00 0.000000E+00 3 0 0.000000E+00 0.000000E+00 0.000000E+00 4 -1 0.000000E+00 0.000000E+00 0.000000E+00 5 -1 0.000000E+00 0.000000E+00 0.000000E+00 6 -1 0.000000E+00 0.000000E+00 0.000000E+00 7 -1 0.000000E+00 0.000000E+00 0.000000E+00 8 -1 0.000000E+00 0.000000E+00 0.000000E+00 9 -1 0.000000E+00 0.000000E+00 0.000000E+00 10 -1 0.000000E+00 0.000000E+00 0.000000E+00 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 LODS ITEM FOR SUBSTRUCTURE MB COMPONENT NUMBER OF NAME LOAD SETS L O A D S E T I D E N T I F I C A T I O N N U M B E R S BBASIC 1 980 MB NO LOAD SETS FOR THIS COMPONENT. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 MODAL DOF SUMMARY FOR REDUCED SUBSTRUCTURE MB USAGE CODES ARE 0 - RIGID BODY POINT 1 - INCLUDED IN MODAL SET 2 - EXCLUDED FROM MODAL SET BECAUSE OF NON-PARTICIPATION 3 - EXCLUDED FROM MODAL SET BECAUSE OF RANGE OR NMAX MODE USAGE GRID NUMBER CYCLES CODE POINT ID SIL 1 1.378483E+01 1 101 7 2 5.216362E+01 1 102 8 3 6.452576E+01 1 103 9 4 9.687958E+01 1 104 10 5 1.234085E+02 1 105 11 6 1.480653E+02 1 106 12 7 1.514840E+02 1 107 13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 ABASIC B 0 0 0 0 3 3 3 3 3 3 3 3 3 3 3 3 3 2 BBASIC B 0 0 0 0 4 3 3 3 3 3 3 3 3 3 3 3 3 3 MA M 0 0 1 0 0 3 3 3 3 3 3 4 MB M 0 0 2 0 0 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 457728 WORDS. OR = 447 BLOCKS. OR = 91 PERCENT. 0*** HIGHEST BLOCK USED = 41 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 SUMMARY OF CASE CONTROL FOR COMBINE OPERATION THIS JOB STEP WILL COMBINE 2 PSEUDOSTRUCTURES CONNECTIONS ARE GENERATED AUTOMATICALLY. THE RESULTANT PSEUDOSTRUCTURE NAME IS MCOMB THE TOLERANCE ON CONNECTIONS IS 0.100000E-02 THE PRINT CONTROL OPTIONS ARE 2 7 12 COMPONENT SUBSTRUCTURE NO. 1 NAME = MA COMPONENT SUBSTRUCTURE NO. 2 NAME = MB TRANS SET ID = 40 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 P S E U D O S T R U C T U R E T A B L E O F C O N T E N T S PSEUDO- NO. OF STRUCTURE COMPONENTS ---------- COMPONENT NAMES ----------- MA 2 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 + ABASIC MA MB 2 + BBASIC MB 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 SUMMARY OF PROCESSED TRANS BULK DATA TRANS SET IDENTIFICATION NUMBER = 40 COORDINATES OF ORIGIN IN BASIC SYSTEM 0.200000E+03 0.000000E+00 0.000000E+00 TRANSFORMATION MATRIX ***** ***** * * * 0.000000E+00 0.100000E+01 0.000000E+00 * * * * -0.100000E+01 0.000000E+00 0.000000E+00 * * * * 0.000000E+00 0.000000E+00 0.100000E+01 * * * ***** ***** NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL GRID NUMBERS 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM MA MB 1 1 12 ABASIC 1 --------------------------------------------------------------------------------------------------------------- 2 3 12 ABASIC 3 --------------------------------------------------------------------------------------------------------------- 3 5 12 ABASIC 2 --------------------------------------------------------------------------------------------------------------- 4 7 1 MA 101 --------------------------------------------------------------------------------------------------------------- 5 8 1 MA 102 --------------------------------------------------------------------------------------------------------------- 6 9 1 MA 103 --------------------------------------------------------------------------------------------------------------- 7 10 1 MA 104 --------------------------------------------------------------------------------------------------------------- 8 11 1 MA 105 --------------------------------------------------------------------------------------------------------------- 9 12 1 MA 106 --------------------------------------------------------------------------------------------------------------- 10 13 1 MA 107 --------------------------------------------------------------------------------------------------------------- 11 14 12 ABASIC BBASIC 53 3 --------------------------------------------------------------------------------------------------------------- 12 16 12 ABASIC BBASIC 52 2 --------------------------------------------------------------------------------------------------------------- 13 18 12 ABASIC BBASIC 51 1 --------------------------------------------------------------------------------------------------------------- 14 20 1 MB 102 --------------------------------------------------------------------------------------------------------------- 15 21 1 MB 101 --------------------------------------------------------------------------------------------------------------- 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF ********************** P S E U D O S T R U C T U R E N A M E S ************* POINT NO DOF NO FREEDOM MA MB 16 22 1 MB 106 --------------------------------------------------------------------------------------------------------------- 17 23 1 MB 107 --------------------------------------------------------------------------------------------------------------- 18 24 1 MB 103 --------------------------------------------------------------------------------------------------------------- 19 25 1 MB 104 --------------------------------------------------------------------------------------------------------------- 20 26 1 MB 105 --------------------------------------------------------------------------------------------------------------- 0*** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 ABASIC B 0 0 0 0 3 3 3 3 3 3 3 3 3 3 3 3 3 2 BBASIC B 0 0 0 0 4 3 3 3 3 3 3 3 3 3 3 3 3 3 MA M 0 0 1 4 5 3 3 3 3 3 3 3 4 MB M 0 0 2 3 5 3 3 3 3 3 3 3 5 MCOMB C 0 0 3 0 0 3 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 447488 WORDS. OR = 437 BLOCKS. OR = 89 PERCENT. 0*** HIGHEST BLOCK USED = 51 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 S U M M A R Y O F C U R R E N T P R O B L E M NAME OF PSEUDOSTRUCTURE TO BE REDUCED . . . . MCOMB NAME GIVEN TO RESULTANT PSEUDOSTRUCTURE RTRUSS BOUNDARY SET IDENTIFICATION NUMBER . . . . . 42 FIXED SET IDENTIFICATION NUMBER . . . . 9 RIGID BODY GRID POINT IDENTIFICATION NUMBER . RIGID BODY SUBSTRUCTURE NAME . . . . . OLDBOUND FLAG SET . . . . . . . . . . . . . . NO OLDMODES FLAG SET . . . . . . . . . . . NO FREE BODY MODES TO BE CALCULATED . . . . . . NO USER MODES FLAG SET . . . . . . . . . . NO SAVE REDUCTION PRODUCTS . . . . . . . . . . . NO EIGENVALUE EXTRACTION METHOD . . . . . 90 MAXIMUM NUMBER OF FREQUENCIES TO BE USED . . 18 GPARAM VALUE . . . . . . . . . . . . . 0.000000E+00 NAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN MCOMB RANGE OF FREQUENCIES TO BE USED . . . . ALL ABASIC MA BBASIC MB 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 20, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 19 5.104395E+02 2.259291E+01 3.595773E+00 2.719603E+00 1.388193E+03 2 18 1.217818E+04 1.103548E+02 1.756351E+01 5.551619E-01 6.760863E+03 3 20 3.204877E+04 1.790217E+02 2.849219E+01 1.430428E+00 4.584346E+04 4 17 6.161780E+04 2.482293E+02 3.950692E+01 1.785353E-01 1.100095E+04 5 15 1.473744E+05 3.838937E+02 6.109858E+01 6.981911E-01 1.028955E+05 6 14 2.544345E+05 5.044150E+02 8.028014E+01 1.349923E-01 3.434668E+04 7 16 2.815767E+05 5.306380E+02 8.445366E+01 3.569186E-01 1.005000E+05 8 13 3.861274E+05 6.213915E+02 9.889752E+01 7.388127E-01 2.852758E+05 9 12 4.931355E+05 7.022361E+02 1.117643E+02 4.163700E-01 2.053268E+05 10 11 6.006571E+05 7.750208E+02 1.233484E+02 5.564590E-02 3.342411E+04 11 10 6.423382E+05 8.014600E+02 1.275563E+02 3.634932E-02 2.334855E+04 12 9 6.708717E+05 8.190676E+02 1.303586E+02 1.083267E+00 7.267331E+05 13 8 7.186602E+05 8.477383E+02 1.349217E+02 4.451531E-01 3.199138E+05 14 7 9.314798E+05 9.651320E+02 1.536055E+02 3.435716E-01 3.200300E+05 15 6 1.036319E+06 1.017997E+03 1.620193E+02 3.128464E-01 3.242086E+05 16 5 1.283678E+06 1.132995E+03 1.803218E+02 4.245862E-01 5.450322E+05 17 4 1.590236E+06 1.261046E+03 2.007017E+02 3.175385E-01 5.049613E+05 18 3 1.717214E+06 1.310425E+03 2.085606E+02 9.566334E-03 1.642744E+04 19 2 2.963560E+06 1.721500E+03 2.739851E+02 1.537367E-01 4.556081E+05 20 1 6.596654E+06 2.568395E+03 4.087728E+02 5.232833E-02 3.451919E+05 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 20 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 20 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 0 ROOTS BELOW 1.000000E-10 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 EQSS ITEM FOR SUBSTRUCTURE RTRUSS COMPONENT ABASIC GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 1 1 12 2 3 12 3 2 12 52 4 2 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 EQSS ITEM FOR SUBSTRUCTURE RTRUSS COMPONENT MA GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF ALL DEGREES OF FREEDOM FOR THIS COMPONENT HAVE BEEN REDUCED OUT. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 EQSS ITEM FOR SUBSTRUCTURE RTRUSS COMPONENT BBASIC GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 2 4 2 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 EQSS ITEM FOR SUBSTRUCTURE RTRUSS COMPONENT MB GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF ALL DEGREES OF FREEDOM FOR THIS COMPONENT HAVE BEEN REDUCED OUT. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 EQSS ITEM FOR SUBSTRUCTURE RTRUSS COMPONENT RTRUSS GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT GRID POINT INTERNAL COMPONENT ID POINT ID DOF ID POINT ID DOF ID POINT ID DOF 101 5 1 102 6 1 103 7 1 104 8 1 105 9 1 106 10 1 107 11 1 108 12 1 109 13 1 110 14 1 111 15 1 112 16 1 113 17 1 114 18 1 115 19 1 116 20 1 117 21 1 118 22 1 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE RTRUSS INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT INTERNAL INTERNAL COMPONENT POINT ID SIL ID DOF POINT ID SIL ID DOF POINT ID SIL ID DOF 1 1 12 2 3 12 3 5 12 4 7 2 5 8 1 6 9 1 7 10 1 8 11 1 9 12 1 10 13 1 11 14 1 12 15 1 13 16 1 14 17 1 15 18 1 16 19 1 17 20 1 18 21 1 19 22 1 20 23 1 21 24 1 22 25 1 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 BGSS ITEM FOR SUBSTRUCTURE RTRUSS INTERNAL CSTM ID C O O R D I N A T E S POINT ID NO. X1 X2 X3 1 0 0.000000E+00 -0.300000E+02 0.000000E+00 2 0 0.000000E+00 0.300000E+02 0.000000E+00 3 0 0.000000E+00 0.000000E+00 0.000000E+00 4 0 0.200000E+03 0.000000E+00 0.000000E+00 5 -1 0.000000E+00 0.000000E+00 0.000000E+00 6 -1 0.000000E+00 0.000000E+00 0.000000E+00 7 -1 0.000000E+00 0.000000E+00 0.000000E+00 8 -1 0.000000E+00 0.000000E+00 0.000000E+00 9 -1 0.000000E+00 0.000000E+00 0.000000E+00 10 -1 0.000000E+00 0.000000E+00 0.000000E+00 11 -1 0.000000E+00 0.000000E+00 0.000000E+00 12 -1 0.000000E+00 0.000000E+00 0.000000E+00 13 -1 0.000000E+00 0.000000E+00 0.000000E+00 14 -1 0.000000E+00 0.000000E+00 0.000000E+00 15 -1 0.000000E+00 0.000000E+00 0.000000E+00 16 -1 0.000000E+00 0.000000E+00 0.000000E+00 17 -1 0.000000E+00 0.000000E+00 0.000000E+00 18 -1 0.000000E+00 0.000000E+00 0.000000E+00 19 -1 0.000000E+00 0.000000E+00 0.000000E+00 20 -1 0.000000E+00 0.000000E+00 0.000000E+00 21 -1 0.000000E+00 0.000000E+00 0.000000E+00 22 -1 0.000000E+00 0.000000E+00 0.000000E+00 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 LODS ITEM FOR SUBSTRUCTURE RTRUSS COMPONENT NUMBER OF NAME LOAD SETS L O A D S E T I D E N T I F I C A T I O N N U M B E R S ABASIC 1 980 MA NO LOAD SETS FOR THIS COMPONENT. BBASIC 1 980 MB NO LOAD SETS FOR THIS COMPONENT. RTRUSS NO LOAD SETS FOR THIS COMPONENT. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 0 MODAL DOF SUMMARY FOR REDUCED SUBSTRUCTURE RTRUSS USAGE CODES ARE 0 - RIGID BODY POINT 1 - INCLUDED IN MODAL SET 2 - EXCLUDED FROM MODAL SET BECAUSE OF NON-PARTICIPATION 3 - EXCLUDED FROM MODAL SET BECAUSE OF RANGE OR NMAX MODE USAGE GRID NUMBER CYCLES CODE POINT ID SIL 1 3.595773E+00 1 101 8 2 1.756351E+01 1 102 9 3 2.849219E+01 1 103 10 4 3.950692E+01 1 104 11 5 6.109858E+01 1 105 12 6 8.028014E+01 1 106 13 7 8.445366E+01 1 107 14 8 9.889752E+01 1 108 15 9 1.117643E+02 1 109 16 10 1.233484E+02 1 110 17 11 1.275563E+02 1 111 18 12 1.303586E+02 1 112 19 13 1.349217E+02 1 113 20 14 1.536055E+02 1 114 21 15 1.620193E+02 1 115 22 16 1.803218E+02 1 116 23 17 2.007017E+02 1 117 24 18 2.085606E+02 1 118 25 19 2.739851E+02 3 20 4.087728E+02 3 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A 0 MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 ABASIC B 0 0 0 0 3 3 3 3 3 3 3 3 3 3 3 3 3 2 BBASIC B 0 0 0 0 4 3 3 3 3 3 3 3 3 3 3 3 3 3 MA M 0 0 1 4 5 3 3 3 3 3 3 3 4 MB M 0 0 2 3 5 3 3 3 3 3 3 3 5 MCOMB C 0 0 3 0 6 3 3 3 3 3 3 3 3 3 3 3 3 3 6 RTRUSS M 0 0 5 0 0 3 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 433152 WORDS. OR = 423 BLOCKS. OR = 86 PERCENT. 0*** HIGHEST BLOCK USED = 65 * * * END OF JOB * * * 1 JOB TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS DATE: 5/17/95 END TIME: 15:25:35 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d02034a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D02034A,NASTRAN APP DISP,SUBS SOL 9,0 TIME 40 DIAG 23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE2 PASSWORD = MDLSYN SOF(1) = FT19,500 $ DEC VAX OPTIONS K,M,P SOFPRINT TOC SOLVE RTRUSS RECOVER RTRUSS PRINT RTRUSS OLOAD = ALL PRINT ABASIC UIMPROVE YES RANGE 0.0,0.41 ENERGY ALL PRINT MA PRINT BBASIC UIMPROVE YES RANGE 0.0,0.41 ENERGY ALL PRINT MB SOFPRINT TOC ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 4 2 PARAM //*ADD*/DRY/1 /0 $ 3 LABEL LBSBEG $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 5 * */* */* * $ 6 ALTER 5, 5 7 PARAM //*NOP*/ALWAYS=-1 $ 8 SGEN CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT, 9 BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*RTRUSS */S,N,LUSET/ 10 S,N,NOGPDT $ 11 PURGE CSTM $ 12 EQUIV GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/ 13 DYNS,DYNAMICS/ALWAYS $ 14 COND LB3 ,DRY $ 15 ALTER 12, 22 16 ALTER 26, 27 17 ALTER 49, 60 18 SOFI /K1 ,M1 , , ,/DRY/*RTRUSS */*KMTX*/*MMTX*/*BMTX*/ 19 *K4MX* $ 20 EQUIV K1 ,KGG/NOKGGX $ 21 COND LB2K,NOKGGX $ 22 ADD KGGX,K1 /KGG/(1.0,0.0)/(1.0,0.0) $ 23 LABEL LB2K $ 24 EQUIV M1 ,MGG/NOMGG $ 25 COND LB2M,NOMGG $ 26 ADD MGG,M1 /MGGX/(1.0,0.0)/(1.0,0.0) $ 27 EQUIV MGGX,MGG/ALWAYS $ 28 LABEL LB2M $ 29 LABEL LB3 $ 30 CHKPNT MGG,BGG,K4GG $ 31 ALTER 110,111 32 PARAM //*AND*/MDEMA/NOUE/NOM2PP $ 33 PARAM //*ADD*/KDEK2/1/0 $ 34 PARAM //*ADD*/NOMGG/1/0 $ 35 ALTER 117,117 36 EQUIV K2DD,KDD/KDEK2 $ 37 EQUIV M2DD,MDD/NOMGG $ 38 EQUIV B2DD,BDD/NOBGG $ 39 ALTER 136,150 40 EQUIV UDVT,UPVC/NOA $ 41 COND LBL19,NOA $ 42 SDR1 USETD,,UDVT,,,GOD,GMD,,,,/UPVC,,/1/DYNAMICS $ 43 LABEL LBL19 $ 44 CHKPNT UPVC $ 45 EQUIV UPVC,UGV/NOUE $ 46 COND LBUE,NOUE $ 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 47 UPARTN USET,UPVC/UGV,UEV,,/*P*/*G*/*E* $ 48 LABEL LBUE $ 49 FILE U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $ 50 PARAM //*ADD*/ILOOP/0/0 $ 51 LABEL LB4 $ 52 RCOVR CASESS,GEOM4,KGG,MGG,PPT,UGV ,DIT,DLT, , ,TOL/OUGV1 , 53 OPG1,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/4 /*RTRUSS */ 54 9 / /S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/ 55 S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $ 56 EQUIV OUGV1 ,OUGV /NOSORT2/OQG1,OQG/NOSORT2 $ 57 EQUIV OPG1,OPG/NOSORT2 $ 58 COND NST24 ,NOSORT2 $ 59 SDR3 OUGV1 ,OPG1,OQG1,,,/OUGV ,OPG,OQG,,, $ 60 LABEL NST24 $ 61 OFP OUGV ,OPG,OQG,,,//S,N,CARDNO $ 62 COND LBB4 ,ILOOP $ 63 REPT LB4 ,100 $ 64 LABEL LBB4 $ 65 SOFO ,U1,U2,U3,U4,U5//-1/*XXXXXXXX* $ 66 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 67 * */* */* * $ 68 LABEL LBSEND $ 69 JUMP FINIS $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 3 LABEL = SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 4 SET 1 = 7 THRU 13 5 SPC = 123 6 DLOAD = 101 7 IC = 522 8 TSTEP = 40 9 OLOAD = ALL 10 DISP = ALL 11 SDISP(SORT2) = 1 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 8, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- DAREAS 980 BBASIC 2 2 1.0+3 2- LOADC 980 1.0 ABASIC 980 1.0 3- PARAM G .05 4- PARAM W3 .01 5- SPCS1 123 ABASIC 12 1 2 3 6- TICS 522 BBASIC 2 2 .1 7- TLOAD2 101 980 .39 12.0 8- TSTEP 40 40 2.0-2 1 ENDDATA 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE UDVT=APPEND/TOL=APPEND/RLODDISP=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 4 PARAM //*ADD*/DRY/1 /0 $ 4 LABEL LBSBEG $ 4 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 5 PARAM //*NOP*/ALWAYS=-1 $ 5 SGEN CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT, BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*RTRUSS */S,N,LUSET/ S,N,NOGPDT $ 5 PURGE CSTM $ 5 EQUIV GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/ DYNS,DYNAMICS/ALWAYS $ 5 COND LB3 ,DRY $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ 10 COND LBL5,NOGPDT $ 11 GP2 GEOM2,EQEXIN/ECT $ 23 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 24 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/ S,N,COMPS 25 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 28 PARAM //*ADD*/NOKGGX/1/0 $ 29 PARAM //*ADD*/NOMGG/1/0 $ 30 PARAM //*ADD*/NOBGG=-1/1/0 $ 31 PARAM //*ADD*/NOK4GG/1/0 $ 32 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 33 PURGE KGGX/NOKGGX/MGG/NOMGG $ 34 COND LBLKGGX,NOKGGX $ 35 EMA GPECT,KDICT,KELM/KGGX $ 36 LABEL LBLKGGX $ 37 COND LBLMGG,NOMGG $ 38 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 39 PURGE MDICT,MELM/ALWAYS $ 40 LABEL LBLMGG $ 41 COND LBLBGG,NOBGG $ 42 EMA GPECT,BDICT,BELM/BGG $ 43 PURGE BDICT,BELM/ALWAYS $ 44 LABEL LBLBGG $ 45 COND LBLK4GG,NOK4GG $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 46 EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ 47 LABEL LBLK4GG $ 48 PURGE KDICT,KELM/ALWAYS $ 60 SOFI /K1 ,M1 , , ,/DRY/*RTRUSS */*KMTX*/*MMTX*/*BMTX*/ *K4MX* $ 60 EQUIV K1 ,KGG/NOKGGX $ 60 COND LB2K,NOKGGX $ 60 ADD KGGX,K1 /KGG/(1.0,0.0)/(1.0,0.0) $ 60 LABEL LB2K $ 60 EQUIV M1 ,MGG/NOMGG $ 60 COND LB2M,NOMGG $ 60 ADD MGG,M1 /MGGX/(1.0,0.0)/(1.0,0.0) $ 60 EQUIV MGGX,MGG/ALWAYS $ 60 LABEL LB2M $ 60 LABEL LB3 $ 60 CHKPNT MGG,BGG,K4GG $ 61 PARAM //*MPY*/NSKIP/0/0 $ 62 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 63 OFP OGPST,,,,,//S,N,CARDNO $ 64 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $ 65 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ 66 COND LBL2,MPCF1 $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS, ,MFF,BFF,K4FF $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 EQUIV MFF,MAA/OMIT $ 76 EQUIV BFF,BAA/OMIT $ 77 EQUIV K4FF,K4AA/OMIT $ 78 COND LBL5,OMIT $ 79 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 80 COND LBLM,NOMGG $ 81 SMP2 USET,GO,MFF/MAA $ 82 LABEL LBLM $ 83 COND LBLB,NOBGG $ 84 SMP2 USET,GO,BFF/BAA $ 85 LABEL LBLB $ 86 COND LBL5,NOK4GG $ 87 SMP2 USET,GO,K4FF/K4AA $ 88 LABEL LBL5 $ 89 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,, 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/ NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $ 90 COND ERROR1,NOTRL $ 91 PURGE PNLD/NONLFT$ 92 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 93 BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ 94 PARAM //*AND*/NOFL/NOABFL/NOKBFL $ 95 PURGE KBFL/NOKBFL/ ABFL/NOABFL $ 96 COND LBLFL3,NOFL $ 97 MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ 98 LABEL LBLFL3 $ 99 MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ 100 PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ 101 PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ 102 EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ 103 COND LBLFL2,NOFL $ 104 ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ 105 COND LBLFL2,NOABFL $ 106 TRNSP ABFL/ABFLT $ 107 ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ 108 LABEL LBLFL2 $ 109 PARAM //*AND*/KDEKA/NOUE/NOK2PP $ 111 PARAM //*AND*/MDEMA/NOUE/NOM2PP $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 111 PARAM //*ADD*/KDEK2/1/0 $ 111 PARAM //*ADD*/NOMGG/1/0 $ 112 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 113 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ 114 COND LBL16,NOGPDT $ 115 GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/ C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ 116 LABEL LBL16 $ 117 EQUIV K2DD,KDD/KDEK2 $ 117 EQUIV M2DD,MDD/NOMGG $ 117 EQUIV B2DD,BDD/NOBGG $ 118 PARAM //*ADD*/NEVER/1/0 $ 119 PARAM //*MPY*/REPEATT/1/-1 $ 120 LABEL LBL13 $ 121 PURGE PNLD,OUDV1,OPNL1,OUDV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1, OEF1,OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT/NEVER $ 122 CASE CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $ 123 PARAM //*MPY*/NCOL/0/1 $ 124 TRLG CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG, MPT/PPT,PST,PDT,PD,,TOL/S,N,NOSET/NCOL $ 125 EQUIV PPT,PDT/NOSET $ 126 TRD CASEXX,TRL,NLFT,DIT,KDD,BDD,MDD,PD/UDVT,PNLD,RLODDISP/*DIRECT*/ NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 127 VDR CASEXX,EQDYN,USETD,UDVT,TOL,XYCDB,PNLD/OUDV1,OPNL1/ *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $ 128 COND LBL15,NOD $ 129 SDR3 OUDV1,OPNL1,,,,/OUDV2,OPNL2,,,, $ 130 OFP OUDV2,OPNL2,,,,//S,N,CARDNO $ 131 XYTRAN XYCDB,OUDV2,OPNL2,,,/XYPLTTA/*TRAN*/*DSET*/S,N,PFILE/ S,N,CARDNO $ 132 XYPLOT XYPLTTA// $ 133 LABEL LBL15 $ 134 PARAM //*AND*/PJUMP/NOP/JUMPPLOT $ 135 COND LBL18,PJUMP $ 150 EQUIV UDVT,UPVC/NOA $ 150 COND LBL19,NOA $ 150 SDR1 USETD,,UDVT,,,GOD,GMD,,,,/UPVC,,/1/DYNAMICS $ 150 LABEL LBL19 $ 150 CHKPNT UPVC $ 150 EQUIV UPVC,UGV/NOUE $ 150 COND LBUE,NOUE $ 150 UPARTN USET,UPVC/UGV,UEV,,/*P*/*G*/*E* $ 150 LABEL LBUE $ 150 FILE U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $ 150 PARAM //*ADD*/ILOOP/0/0 $ 150 LABEL LB4 $ 150 RCOVR CASESS,GEOM4,KGG,MGG,PPT,UGV ,DIT,DLT, , ,TOL/OUGV1 , 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING OPG1,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/4 /*RTRUSS */ 9 / /S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/ S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $ 150 EQUIV OUGV1 ,OUGV /NOSORT2/OQG1,OQG/NOSORT2 $ 150 EQUIV OPG1,OPG/NOSORT2 $ 150 COND NST24 ,NOSORT2 $ 150 SDR3 OUGV1 ,OPG1,OQG1,,,/OUGV ,OPG,OQG,,, $ 150 LABEL NST24 $ 150 OFP OUGV ,OPG,OQG,,,//S,N,CARDNO $ 150 COND LBB4 ,ILOOP $ 150 REPT LB4 ,100 $ 150 LABEL LBB4 $ 150 SOFO ,U1,U2,U3,U4,U5//-1/*XXXXXXXX* $ 150 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 150 LABEL LBSEND $ 150 JUMP FINIS $ 151 LABEL LBL18 $ 152 COND FINIS,REPEATT $ 153 REPT LBL13,100 $ 154 PRTPARM //-2/*DIRTRD* $ 155 JUMP FINIS $ 156 LABEL ERROR1 $ 157 PRTPARM //-1/*DIRTRD* $ 158 LABEL ERROR3 $ 159 PRTPARM //-3/*DIRTRD* $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 160 LABEL FINIS $ 161 PURGE DUMMY/ALWAYS $ 162 END $ 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR3 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSEND NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 0 *** USER POTENTIALLY FATAL MESSAGE 22, POSSIBLE ERROR IN DMAP INSTRUCTION TA1 INSTRUCTION NO. 24 DATA BLOCK NAMED CSTM APPEARS AS INPUT BEFORE BEING DEFINED *** USER POTENTIALLY FATAL MESSAGE 22, POSSIBLE ERROR IN DMAP INSTRUCTION GP4 INSTRUCTION NO. 62 DATA BLOCK NAMED GPST APPEARS AS INPUT BEFORE BEING DEFINED 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 488 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 ABASIC B 0 0 0 0 3 3 3 3 3 3 3 3 3 3 3 3 3 2 BBASIC B 0 0 0 0 4 3 3 3 3 3 3 3 3 3 3 3 3 3 MA M 0 0 1 4 5 3 3 3 3 3 3 3 4 MB M 0 0 2 3 5 3 3 3 3 3 3 3 5 MCOMB C 0 0 3 0 6 3 3 3 3 3 3 3 3 3 3 3 3 3 6 RTRUSS M 0 0 5 0 0 3 3 3 3 3 3 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 433152 WORDS. OR = 423 BLOCKS. OR = 86 PERCENT. 0*** HIGHEST BLOCK USED = 65 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPST MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPST MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPST MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 POINT-ID = 7 D I S P L A C E M E N T V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 1.000000E-01 2.000000E-02 S 8.815945E-02 4.000000E-02 S 6.656072E-02 6.000000E-02 S 3.653554E-02 8.000000E-02 S 4.480211E-03 9.999999E-02 S -3.194106E-02 1.200000E-01 S -6.737154E-02 1.400000E-01 S -8.747876E-02 1.600000E-01 S -8.548176E-02 1.800000E-01 S -6.843473E-02 2.000000E-01 S -4.407183E-02 2.200000E-01 S -1.103443E-02 2.400000E-01 S 3.025798E-02 2.600000E-01 S 6.635091E-02 2.800000E-01 S 8.341487E-02 3.000000E-01 S 8.328048E-02 3.200000E-01 S 7.347896E-02 3.400000E-01 S 5.150254E-02 3.600000E-01 S 1.380486E-02 3.800000E-01 S -2.907512E-02 4.000000E-01 S -1.245541E-02 4.200000E-01 S 5.247950E-02 4.400001E-01 S 1.738018E-01 4.600001E-01 S 3.338889E-01 4.800001E-01 S 5.253527E-01 5.000001E-01 S 7.059575E-01 5.200000E-01 S 8.252974E-01 5.400000E-01 S 8.613840E-01 5.600000E-01 S 8.171533E-01 5.800000E-01 S 7.085238E-01 6.000000E-01 S 5.485846E-01 6.199999E-01 S 3.519410E-01 6.399999E-01 S 1.657290E-01 6.599999E-01 S 4.705777E-02 6.799999E-01 S 5.316249E-03 6.999999E-01 S 2.580528E-02 7.199998E-01 S 1.205863E-01 7.399998E-01 S 2.918324E-01 7.599998E-01 S 4.913020E-01 7.799998E-01 S 6.643022E-01 7.999998E-01 S 7.893048E-01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 POINT-ID = 8 D I S P L A C E M E N T V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 2.000000E-02 S -1.523045E-02 4.000000E-02 S -1.237081E-02 6.000000E-02 S -7.042690E-03 8.000000E-02 S -4.196157E-04 9.999999E-02 S 6.231257E-03 1.200000E-01 S 1.179453E-02 1.400000E-01 S 1.505227E-02 1.600000E-01 S 1.537959E-02 1.800000E-01 S 1.287046E-02 2.000000E-01 S 7.850649E-03 2.200000E-01 S 1.276599E-03 2.400000E-01 S -5.437912E-03 2.600000E-01 S -1.116264E-02 2.800000E-01 S -1.480745E-02 3.000000E-01 S -1.551803E-02 3.200000E-01 S -1.331131E-02 3.400000E-01 S -8.614450E-03 3.600000E-01 S -2.167254E-03 3.800000E-01 S 4.645561E-03 4.000000E-01 S 1.381419E-01 4.200000E-01 S 1.297451E-01 4.400001E-01 S 1.072717E-01 4.600001E-01 S 7.626966E-02 4.800001E-01 S 4.283313E-02 5.000001E-01 S 1.193522E-02 5.200000E-01 S -9.271138E-03 5.400000E-01 S -1.655531E-02 5.600000E-01 S -9.947259E-03 5.800000E-01 S 1.053067E-02 6.000000E-01 S 4.114959E-02 6.199999E-01 S 7.463019E-02 6.399999E-01 S 1.058075E-01 6.599999E-01 S 1.289165E-01 6.799999E-01 S 1.381097E-01 6.999999E-01 S 1.328598E-01 7.199998E-01 S 1.143742E-01 7.399998E-01 S 8.475357E-02 7.599998E-01 S 5.088473E-02 7.799998E-01 S 1.945516E-02 7.999998E-01 S -4.963427E-03 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 POINT-ID = 9 D I S P L A C E M E N T V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 2.000000E-02 S 4.369505E-03 4.000000E-02 S -3.728039E-03 6.000000E-02 S -4.933822E-03 8.000000E-02 S 3.035272E-03 9.999999E-02 S 5.384113E-03 1.200000E-01 S -2.292921E-03 1.400000E-01 S -5.698332E-03 1.600000E-01 S 1.490979E-03 1.800000E-01 S 5.882416E-03 2.000000E-01 S -6.330216E-04 2.200000E-01 S -5.957850E-03 2.400000E-01 S -2.510403E-04 2.600000E-01 S 5.936128E-03 2.800000E-01 S 1.117760E-03 3.000000E-01 S -5.805555E-03 3.200000E-01 S -1.936145E-03 3.400000E-01 S 5.543554E-03 3.600000E-01 S 2.701374E-03 3.800000E-01 S -5.142214E-03 4.000000E-01 S -8.726780E-02 4.200000E-01 S -6.869928E-02 4.400001E-01 S -6.734984E-02 4.600001E-01 S -8.608397E-02 4.800001E-01 S -9.016794E-02 5.000001E-01 S -7.161241E-02 5.200000E-01 S -6.522517E-02 5.400000E-01 S -8.291548E-02 5.600000E-01 S -9.143139E-02 5.800000E-01 S -7.531825E-02 6.000000E-01 S -6.454504E-02 6.199999E-01 S -7.870421E-02 6.399999E-01 S -9.186224E-02 6.599999E-01 S -7.964581E-02 6.799999E-01 S -6.432583E-02 6.999999E-01 S -7.469823E-02 7.199998E-01 S -9.156410E-02 7.399998E-01 S -8.319910E-02 7.599998E-01 S -6.548493E-02 7.799998E-01 S -7.137086E-02 7.999998E-01 S -8.951692E-02 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 POINT-ID = 10 D I S P L A C E M E N T V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 2.000000E-02 S -1.694718E-12 4.000000E-02 S -1.409229E-12 6.000000E-02 S -8.143664E-13 8.000000E-02 S -3.340990E-14 9.999999E-02 S 7.247197E-13 1.200000E-01 S 1.317135E-12 1.400000E-01 S 1.669599E-12 1.600000E-01 S 1.737536E-12 1.800000E-01 S 1.473986E-12 2.000000E-01 S 8.811805E-13 2.200000E-01 S 1.177510E-13 2.400000E-01 S -6.137056E-13 2.600000E-01 S -1.230186E-12 2.800000E-01 S -1.661180E-12 3.000000E-01 S -1.772566E-12 3.200000E-01 S -1.506977E-12 3.400000E-01 S -9.445705E-13 3.600000E-01 S -2.322239E-13 3.800000E-01 S 4.997236E-13 4.000000E-01 S 1.517892E-11 4.200000E-01 S 1.432760E-11 4.400001E-01 S 1.179518E-11 4.600001E-01 S 8.217086E-12 4.800001E-01 S 4.448860E-12 5.000001E-01 S 1.050695E-12 5.200000E-01 S -1.319877E-12 5.400000E-01 S -2.207586E-12 5.600000E-01 S -1.495822E-12 5.800000E-01 S 8.661392E-13 6.000000E-01 S 4.363312E-12 6.199999E-01 S 8.081033E-12 6.399999E-01 S 1.152080E-11 6.599999E-01 S 1.417122E-11 6.799999E-01 S 1.528793E-11 6.999999E-01 S 1.464593E-11 7.199998E-01 S 1.247990E-11 7.399998E-01 S 9.196089E-12 7.599998E-01 S 5.464461E-12 7.799998E-01 S 1.885828E-12 7.999998E-01 S -9.344306E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 POINT-ID = 11 D I S P L A C E M E N T V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 2.000000E-02 S 2.978844E-04 4.000000E-02 S -4.977832E-04 6.000000E-02 S 3.582857E-05 8.000000E-02 S 4.746224E-04 9.999999E-02 S -3.549214E-04 1.200000E-01 S -2.372653E-04 1.400000E-01 S 5.159435E-04 1.600000E-01 S -1.096871E-04 1.800000E-01 S -4.439891E-04 2.000000E-01 S 4.101275E-04 2.200000E-01 S 1.684166E-04 2.400000E-01 S -5.257452E-04 2.600000E-01 S 1.871553E-04 2.800000E-01 S 4.005707E-04 3.000000E-01 S -4.593534E-04 3.200000E-01 S -8.978851E-05 3.400000E-01 S 5.209791E-04 3.600000E-01 S -2.636208E-04 3.800000E-01 S -3.422228E-04 4.000000E-01 S 1.516309E-02 4.200000E-01 S 2.670142E-02 4.400001E-01 S 1.810911E-02 4.600001E-01 S 1.234154E-02 4.800001E-01 S 2.482062E-02 5.000001E-01 S 2.219919E-02 5.200000E-01 S 1.146381E-02 5.400000E-01 S 2.132246E-02 5.600000E-01 S 2.543631E-02 5.800000E-01 S 1.277873E-02 6.000000E-01 S 1.719839E-02 6.199999E-01 S 2.690294E-02 6.399999E-01 S 1.591370E-02 6.599999E-01 S 1.361724E-02 6.799999E-01 S 2.618333E-02 6.999999E-01 S 1.998030E-02 7.199998E-01 S 1.159397E-02 7.399998E-01 S 2.348134E-02 7.599998E-01 S 2.382607E-02 7.799998E-01 S 1.170202E-02 7.999998E-01 S 1.956268E-02 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 POINT-ID = 12 D I S P L A C E M E N T V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 2.000000E-02 S -2.980998E-05 4.000000E-02 S 5.518763E-05 6.000000E-02 S -1.715727E-05 8.000000E-02 S -4.062347E-05 9.999999E-02 S 5.177641E-05 1.200000E-01 S -3.428138E-06 1.400000E-01 S -4.894579E-05 1.600000E-01 S 4.515951E-05 1.800000E-01 S 1.054977E-05 2.000000E-01 S -5.427506E-05 2.200000E-01 S 3.573561E-05 2.400000E-01 S 2.393382E-05 2.600000E-01 S -5.628973E-05 2.800000E-01 S 2.407253E-05 3.000000E-01 S 3.591715E-05 3.200000E-01 S -5.486801E-05 3.400000E-01 S 1.087300E-05 3.600000E-01 S 4.577730E-05 3.800000E-01 S -5.009510E-05 4.000000E-01 S 1.036290E-05 4.200000E-01 S -6.575337E-04 4.400001E-01 S -1.364656E-04 4.600001E-01 S 8.851314E-05 4.800001E-01 S -6.245209E-04 5.000001E-01 S -2.428315E-04 5.200000E-01 S 1.464040E-04 5.400000E-01 S -5.676272E-04 5.600000E-01 S -3.493494E-04 5.800000E-01 S 1.805439E-04 6.000000E-01 S -4.902811E-04 6.199999E-01 S -4.495974E-04 6.399999E-01 S 1.888724E-04 6.599999E-01 S -3.971435E-04 6.799999E-01 S -5.375313E-04 6.999999E-01 S 1.708841E-04 7.199998E-01 S -2.938264E-04 7.399998E-01 S -6.078489E-04 7.599998E-01 S 1.276595E-04 7.799998E-01 S -1.865556E-04 7.999998E-01 S -6.563094E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 POINT-ID = 13 D I S P L A C E M E N T V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 2.000000E-02 S 3.146629E-05 4.000000E-02 S -6.012245E-05 6.000000E-02 S 2.327763E-05 8.000000E-02 S 3.895046E-05 9.999999E-02 S -5.877398E-05 1.200000E-01 S 1.456084E-05 1.400000E-01 S 4.556892E-05 1.600000E-01 S -5.610604E-05 1.800000E-01 S 5.503623E-06 2.000000E-01 S 5.117908E-05 2.200000E-01 S -5.217599E-05 2.400000E-01 S -3.698973E-06 2.600000E-01 S 5.566003E-05 2.800000E-01 S -4.706835E-05 3.000000E-01 S -1.284879E-05 3.200000E-01 S 5.891513E-05 3.400000E-01 S -4.089295E-05 3.600000E-01 S -2.174879E-05 3.800000E-01 S 6.087411E-05 4.000000E-01 S -1.576408E-03 4.200000E-01 S -9.391787E-04 4.400001E-01 S -1.424090E-03 4.600001E-01 S -1.620648E-03 4.800001E-01 S -9.564092E-04 5.000001E-01 S -1.364101E-03 5.200000E-01 S -1.658243E-03 5.400000E-01 S -9.820409E-04 5.600000E-01 S -1.303077E-03 5.800000E-01 S -1.688383E-03 6.000000E-01 S -1.015522E-03 6.199999E-01 S -1.242332E-03 6.399999E-01 S -1.710419E-03 6.599999E-01 S -1.056133E-03 6.799999E-01 S -1.183176E-03 6.999999E-01 S -1.723872E-03 7.199998E-01 S -1.103000E-03 7.399998E-01 S -1.126883E-03 7.599998E-01 S -1.728453E-03 7.799998E-01 S -1.155114E-03 7.999998E-01 S -1.074666E-03 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 0.000000E+00 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 1.000000E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 0.000000E+00 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 1.000000E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 0.000000E+00 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 0.0 0.0 0.0 0.0 0.0 0.0 107 M 0.0 0.0 0.0 0.0 0.0 0.0 113 M 0.0 0.0 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 8.815945E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 8.815945E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 2.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.523045E-02 4.369505E-03 -1.694718E-12 2.978844E-04 -2.980998E-05 3.146629E-05 107 M -2.928291E-11 2.344582E-06 4.527486E-06 2.360650E-06 1.630445E-06 -1.233203E-06 113 M -2.437502E-11 -1.828217E-07 2.098408E-11 1.724543E-11 -2.687163E-11 -6.321027E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 6.656072E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 6.656072E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 4.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.237081E-02 -3.728039E-03 -1.409229E-12 -4.977832E-04 5.518763E-05 -6.012245E-05 107 M -2.431540E-11 -4.547157E-06 -8.836069E-06 -4.625920E-06 -3.198882E-06 2.421302E-06 113 M -2.024057E-11 3.606397E-07 1.741882E-11 1.432375E-11 -2.230718E-11 1.253806E-06 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 3.653554E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 3.653554E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.042690E-03 -4.933822E-03 -8.143664E-13 3.582857E-05 -1.715727E-05 2.327763E-05 107 M -1.404030E-11 1.926709E-06 3.880667E-06 2.078067E-06 1.446588E-06 -1.099401E-06 113 M -1.168751E-11 -1.679327E-07 1.005634E-11 8.272073E-12 -1.287903E-11 -6.010465E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 8.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 4.480211E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 8.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 4.480211E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 8.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -4.196157E-04 3.035272E-03 -3.340990E-14 4.746224E-04 -4.062347E-05 3.895046E-05 107 M -5.918261E-13 2.738487E-06 5.145078E-06 2.632696E-06 1.807878E-06 -1.362523E-06 113 M -4.924323E-13 -1.973476E-07 4.264425E-13 3.469367E-13 -5.456217E-13 -6.627317E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 9.999999E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 -3.194106E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 9.999999E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 -3.194106E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 9.999999E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 6.231257E-03 5.384113E-03 7.247197E-13 -3.549214E-04 5.177641E-05 -5.877398E-05 107 M 1.249149E-11 -4.500593E-06 -8.778929E-06 -4.605236E-06 -3.186259E-06 2.412489E-06 113 M 1.039826E-11 3.599222E-07 -8.946538E-12 -7.359906E-12 1.145789E-11 1.252957E-06 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 1.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 -6.737154E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 1.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 -6.737154E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 1.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.179453E-02 -2.292921E-03 1.317135E-12 -2.372653E-04 -3.428138E-06 1.456084E-05 107 M 2.275422E-11 1.488901E-06 3.208504E-06 1.786103E-06 1.256970E-06 -9.615605E-07 113 M 1.894064E-11 -1.527065E-07 -1.630489E-11 -1.340102E-11 2.087969E-11 -5.695801E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 1.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 -8.747876E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 1.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 -8.747876E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 1.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.505227E-02 -5.698332E-03 1.669599E-12 5.159435E-04 -4.894579E-05 4.556892E-05 107 M 2.885206E-11 3.104623E-06 5.729733E-06 2.893092E-06 1.978252E-06 -1.486937E-06 113 M 2.401639E-11 -2.114849E-07 -2.067576E-11 -1.699137E-11 2.647658E-11 -6.929170E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 1.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 -8.548176E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 1.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 -8.548176E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 1.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.537959E-02 1.490979E-03 1.737536E-12 -1.096871E-04 4.515951E-05 -5.610604E-05 107 M 2.999569E-11 -4.407912E-06 -8.664989E-06 -4.563953E-06 -3.161059E-06 2.394892E-06 113 M 2.496868E-11 3.584883E-07 -2.149059E-11 -1.766815E-11 2.752129E-11 1.251260E-06 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 1.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 -6.843473E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 1.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 -6.843473E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 1.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.287046E-02 5.882416E-03 1.473986E-12 -4.439891E-04 1.054977E-05 5.503623E-06 107 M 2.542785E-11 1.035383E-06 2.515032E-06 1.485953E-06 1.062269E-06 -8.201349E-07 113 M 2.116663E-11 -1.371698E-07 -1.821504E-11 -1.497959E-11 2.332712E-11 -5.377204E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 -4.407183E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 -4.407183E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 2.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 7.850649E-03 -6.330216E-04 8.811805E-13 4.101275E-04 -5.427506E-05 5.117908E-05 107 M 1.521699E-11 3.439454E-06 6.277940E-06 3.140772E-06 2.140954E-06 -1.606032E-06 113 M 1.266673E-11 -2.252092E-07 -1.090301E-11 -8.962651E-12 1.396231E-11 -7.226421E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 -1.103443E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 -1.103443E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 2.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.276599E-03 -5.957850E-03 1.177510E-13 1.684166E-04 3.573561E-05 -5.217599E-05 107 M 2.057816E-12 -4.270005E-06 -8.494930E-06 -4.502238E-06 -3.123371E-06 2.368569E-06 113 M 1.712604E-12 3.563406E-07 -1.478336E-12 -1.209350E-12 1.892346E-12 1.248716E-06 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 3.025798E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 3.025798E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 2.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -5.437912E-03 -2.510403E-04 -6.137056E-13 -5.257452E-04 2.393382E-05 -3.698973E-06 107 M -1.059373E-11 5.705289E-07 1.804412E-06 1.178843E-06 8.631845E-07 -6.755906E-07 113 M -8.818333E-12 -1.213494E-07 7.589782E-12 6.240054E-12 -9.719631E-12 -5.054849E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 6.635091E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 6.635091E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 2.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.116264E-02 5.936128E-03 -1.230186E-12 1.871553E-04 -5.628973E-05 5.566003E-05 107 M -2.126756E-11 3.739748E-06 6.786405E-06 3.374722E-06 2.295400E-06 -1.719415E-06 113 M -1.770292E-11 -2.384963E-07 1.524209E-11 1.252376E-11 -1.951824E-11 -7.518908E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 8.341487E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 8.341487E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 2.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.480745E-02 1.117760E-03 -1.661180E-12 4.005707E-04 2.407253E-05 -4.706835E-05 107 M -2.869085E-11 -4.088199E-06 -8.269767E-06 -4.420342E-06 -3.073329E-06 2.333605E-06 113 M -2.388239E-11 3.534828E-07 2.055775E-11 1.689815E-11 -2.632603E-11 1.245326E-06 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 8.328048E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 8.328048E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 3.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.551803E-02 -5.805555E-03 -1.772566E-12 -4.593534E-04 3.591715E-05 -1.284879E-05 107 M -3.058035E-11 9.882410E-08 1.080908E-06 8.660281E-07 6.604310E-07 -5.284041E-07 113 M -2.545564E-11 -1.052730E-07 2.190625E-11 1.801475E-11 -2.805422E-11 -4.728910E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 7.347896E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 7.347896E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 3.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.331131E-02 -1.936145E-03 -1.506977E-12 -8.978851E-05 -5.486801E-05 5.891513E-05 107 M -2.601139E-11 4.002601E-06 7.252070E-06 3.593983E-06 2.441034E-06 -1.826712E-06 113 M -2.165216E-11 -2.513231E-07 1.863536E-11 1.532176E-11 -2.386497E-11 -7.806471E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 5.150254E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.150254E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 3.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -8.614450E-03 5.543554E-03 -9.445705E-13 5.209791E-04 1.087300E-05 -4.089295E-05 107 M -1.633662E-11 -3.864242E-06 -7.990845E-06 -4.318596E-06 -3.011111E-06 2.290115E-06 113 M -1.359840E-11 3.499196E-07 1.170918E-11 9.619374E-12 -1.499380E-11 1.241092E-06 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 1.380486E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 1.380486E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 3.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.167254E-03 2.701374E-03 -2.322239E-13 -2.636208E-04 4.577730E-05 -2.174879E-05 107 M -4.021242E-12 -3.751815E-07 3.488622E-07 5.487879E-07 4.547354E-07 -3.790607E-07 113 M -3.347168E-12 -8.896867E-08 2.882981E-12 2.367263E-12 -3.691533E-12 -4.399562E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 -2.907512E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 -2.907512E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 3.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 4.645561E-03 -5.142214E-03 4.997236E-13 -3.422228E-04 -5.009510E-05 6.087411E-05 107 M 8.653624E-12 4.225473E-06 7.672134E-06 3.797657E-06 2.577332E-06 -1.927569E-06 113 M 7.203044E-12 -2.636672E-07 -6.204116E-12 -5.094283E-12 7.944039E-12 -8.088955E-07 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 -1.245541E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 -1.245541E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 4.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.381419E-01 -8.726780E-02 1.517892E-11 1.516309E-02 1.036290E-05 -1.576408E-03 107 M 2.624461E-10 -4.847360E-04 2.287346E-04 -4.100681E-04 -5.552236E-04 4.295633E-05 113 M 2.184575E-10 6.453387E-05 -1.880970E-10 -1.545421E-10 2.408669E-10 -3.909441E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 5.247950E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.247950E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 4.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.297451E-01 -6.869928E-02 1.432760E-11 2.670142E-02 -6.575337E-04 -9.391787E-04 107 M 2.476190E-10 -4.523971E-04 3.568699E-04 -3.631795E-04 -5.314630E-04 1.181363E-05 113 M 2.061172E-10 6.120236E-05 -1.774525E-10 -1.458231E-10 2.272389E-10 -4.130939E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.400001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 1.738018E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 96 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.400001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 1.738018E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 97 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 4.400001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.072717E-01 -6.734984E-02 1.179518E-11 1.810911E-02 -1.364656E-04 -1.424090E-03 107 M 2.039197E-10 -4.748439E-04 2.502460E-04 -4.001190E-04 -5.487351E-04 3.764301E-05 113 M 1.697410E-10 6.382773E-05 -1.461475E-10 -1.200810E-10 1.871495E-10 -3.933367E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 98 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.600001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 3.338889E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 99 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.600001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 3.338889E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 100 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 4.600001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 7.626966E-02 -8.608397E-02 8.217086E-12 1.234154E-02 8.851314E-05 -1.620648E-03 107 M 1.422433E-10 -4.862118E-04 2.235705E-04 -4.116288E-04 -5.559556E-04 4.391438E-05 113 M 1.183996E-10 6.461181E-05 -1.019743E-10 -8.374175E-11 1.305776E-10 -3.906344E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 101 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.800001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 5.253527E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 102 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.800001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.253527E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 103 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 4.800001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 4.283313E-02 -9.016794E-02 4.448860E-12 2.482062E-02 -6.245209E-04 -9.564092E-04 107 M 7.714390E-11 -4.530727E-04 3.556212E-04 -3.636313E-04 -5.317309E-04 1.203521E-05 113 M 6.421128E-11 6.122316E-05 -5.532526E-11 -4.540215E-11 7.083847E-11 -4.130517E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 104 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.000001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 7.059575E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 105 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.000001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 7.059575E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 106 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 5.000001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.193522E-02 -7.161241E-02 1.050695E-12 2.219919E-02 -2.428315E-04 -1.364101E-03 107 M 1.839305E-11 -4.727312E-04 2.566025E-04 -3.981233E-04 -5.477445E-04 3.647077E-05 113 M 1.530737E-11 6.372949E-05 -1.321956E-11 -1.080590E-11 1.692119E-11 -3.936880E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 107 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 8.252974E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 108 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 8.252974E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 109 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 5.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -9.271138E-03 -6.522517E-02 -1.319877E-12 1.146381E-02 1.464040E-04 -1.658243E-03 107 M -2.251964E-11 -4.875274E-04 2.187498E-04 -4.130981E-04 -5.566435E-04 4.482576E-05 113 M -1.874905E-11 6.468682E-05 1.609025E-11 1.329406E-11 -2.061321E-11 -3.903300E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 110 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 8.613840E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 111 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 8.613840E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 112 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 5.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.655531E-02 -8.291548E-02 -2.207586E-12 2.132246E-02 -5.676272E-04 -9.820409E-04 107 M -3.780831E-11 -4.539457E-04 3.538675E-04 -3.642127E-04 -5.320580E-04 1.232664E-05 113 M -3.147557E-11 6.124822E-05 2.703890E-11 2.230313E-11 -3.463686E-11 -4.130006E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 113 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 8.171533E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 114 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 8.171533E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 115 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 5.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -9.947259E-03 -9.143139E-02 -1.495822E-12 2.543631E-02 -3.493494E-04 -1.303077E-03 107 M -2.550643E-11 -4.705927E-04 2.630979E-04 -3.960942E-04 -5.467410E-04 3.527767E-05 113 M -2.123574E-11 6.363002E-05 1.822271E-11 1.505869E-11 -2.334669E-11 -3.940428E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 116 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 7.085238E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 117 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 7.085238E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 118 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 5.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.053067E-02 -7.531825E-02 8.661392E-13 1.277873E-02 1.805439E-04 -1.688383E-03 107 M 1.526294E-11 -4.886700E-04 2.143015E-04 -4.144699E-04 -5.572847E-04 4.568747E-05 113 M 1.270096E-11 6.475879E-05 -1.098625E-11 -8.955918E-12 1.405977E-11 -3.900312E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 119 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 5.485846E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 120 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.485846E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 121 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 4.114959E-02 -6.454504E-02 4.363312E-12 1.719839E-02 -4.902811E-04 -1.015522E-03 107 M 7.559205E-11 -4.550076E-04 3.516192E-04 -3.649213E-04 -5.324429E-04 1.268695E-05 113 M 6.292040E-11 6.127750E-05 -5.420178E-11 -4.449620E-11 6.940271E-11 -4.129405E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 122 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.199999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 3.519410E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 123 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.199999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 3.519410E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 124 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.199999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 7.463019E-02 -7.870421E-02 8.081033E-12 2.690294E-02 -4.495974E-04 -1.242332E-03 107 M 1.397973E-10 -4.684491E-04 2.696933E-04 -3.940400E-04 -5.457282E-04 3.406766E-05 113 M 1.163650E-10 6.352949E-05 -1.002059E-10 -8.231184E-11 1.283157E-10 -3.944008E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 125 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.399999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 1.657290E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 126 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.399999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 1.657290E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 127 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.399999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.058075E-01 -9.186224E-02 1.152080E-11 1.591370E-02 1.888724E-04 -1.710419E-03 107 M 1.992935E-10 -4.896285E-04 2.102523E-04 -4.157387E-04 -5.578770E-04 4.649665E-05 113 M 1.658885E-10 6.482758E-05 -1.428507E-10 -1.173438E-10 1.829240E-10 -3.897381E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 128 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.599999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 4.705777E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 129 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.599999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 4.705777E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 130 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.599999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.289165E-01 -7.964581E-02 1.417122E-11 1.361724E-02 -3.971435E-04 -1.056133E-03 107 M 2.450285E-10 -4.562482E-04 3.488898E-04 -3.657543E-04 -5.328844E-04 1.311497E-05 113 M 2.039594E-10 6.131094E-05 -1.756142E-10 -1.442853E-10 2.248812E-10 -4.128716E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 131 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.799999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 5.316249E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 132 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.799999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.316249E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 133 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.799999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.381097E-01 -6.432583E-02 1.528793E-11 2.618333E-02 -5.375313E-04 -1.183176E-03 107 M 2.641827E-10 -4.663209E-04 2.763490E-04 -3.919692E-04 -5.447098E-04 3.284471E-05 113 M 2.199051E-10 6.342806E-05 -1.893177E-10 -1.555810E-10 2.424348E-10 -3.947620E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 134 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.999999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 2.580528E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 135 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.999999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 2.580528E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 136 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.999999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.328598E-01 -7.469823E-02 1.464593E-11 1.998030E-02 1.708841E-04 -1.723872E-03 107 M 2.531601E-10 -4.903935E-04 2.066265E-04 -4.168992E-04 -5.584181E-04 4.725062E-05 113 M 2.107287E-10 6.489307E-05 -1.814305E-10 -1.490817E-10 2.323328E-10 -3.894508E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 137 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.199998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 1.205863E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 138 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.199998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 1.205863E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 139 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 7.199998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.143742E-01 -9.156410E-02 1.247990E-11 1.159397E-02 -2.938264E-04 -1.103000E-03 107 M 2.158844E-10 -4.576556E-04 3.456956E-04 -3.667082E-04 -5.333808E-04 1.360929E-05 113 M 1.796989E-10 6.134850E-05 -1.547422E-10 -1.271128E-10 1.981503E-10 -4.127939E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 140 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.399998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 2.918324E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 141 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.399998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 2.918324E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 142 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 7.399998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 8.475357E-02 -8.319910E-02 9.196089E-12 2.348134E-02 -6.078489E-04 -1.126883E-03 107 M 1.590919E-10 -4.642290E-04 2.830252E-04 -3.898901E-04 -5.436895E-04 3.161288E-05 113 M 1.324255E-10 6.332593E-05 -1.140368E-10 -9.367186E-11 1.460261E-10 -3.951260E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 143 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.599998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 4.913020E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 144 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.599998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 4.913020E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 145 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 7.599998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 5.088473E-02 -6.548493E-02 5.464461E-12 2.382607E-02 1.276595E-04 -1.728453E-03 107 M 9.456363E-11 -4.909578E-04 2.034460E-04 -4.179466E-04 -5.589061E-04 4.794688E-05 113 M 7.871268E-11 6.495515E-05 -6.778846E-11 -5.567487E-11 8.680438E-11 -3.891695E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 146 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.799998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 6.643022E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 147 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.799998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 6.643022E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 148 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 7.799998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.945516E-02 -7.137086E-02 1.885828E-12 1.170202E-02 -1.865556E-04 -1.155114E-03 107 M 3.286460E-11 -4.592162E-04 3.420558E-04 -3.677793E-04 -5.339305E-04 1.416830E-05 113 M 2.735308E-11 6.139009E-05 -2.359627E-11 -1.932411E-11 3.020746E-11 -4.127073E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 149 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.999998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 52 G 0.0 7.893048E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 150 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.999998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 7.893048E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 151 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 7.999998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -4.963427E-03 -8.951692E-02 -9.344306E-13 1.956268E-02 -6.563094E-04 -1.074666E-03 107 M -1.578381E-11 -4.621935E-04 2.896817E-04 -3.878114E-04 -5.426710E-04 3.037620E-05 113 M -1.314287E-11 6.322325E-05 1.125187E-11 9.335250E-12 -1.442092E-11 -3.954927E-04 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 152 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.000000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 153 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.000000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 154 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 4.000000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 155 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.200000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 156 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.200000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 157 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 4.200000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 158 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.400001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 159 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.400001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 160 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 4.400001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 161 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.600001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 162 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.600001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 163 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 4.600001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 164 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.800001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 165 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.800001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 166 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 4.800001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 167 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.000001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 168 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.000001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 169 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 5.000001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 170 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.200000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 171 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.200000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 172 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 5.200000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 173 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.400000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 174 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.400000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 175 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 5.400000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 176 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.600000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 177 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.600000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 178 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 5.600000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 179 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.800000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 180 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.800000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 181 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 5.800000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 182 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.000000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 183 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.000000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 184 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.000000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 185 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.199999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 186 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.199999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 187 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.199999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 188 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.399999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 189 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.399999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 190 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.399999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 191 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.599999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 192 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.599999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 193 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.599999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 194 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.799999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 195 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.799999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 196 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.799999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 197 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.999999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 198 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.999999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 199 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 6.999999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 200 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.199998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 201 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.199998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 202 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 7.199998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 203 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.399998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 204 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.399998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 205 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 7.399998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 206 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.599998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 207 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.599998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 208 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 7.599998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 209 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.799998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 210 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.799998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 211 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 7.799998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 212 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.999998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 5.684342E-14 -5.642316E+02 0.0 0.0 0.0 0.0 3 G 2.637719E+02 -2.572500E+01 0.0 0.0 0.0 0.0 52 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 213 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.999998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 2 G 0.0 5.425815E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 214 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE RTRUSS 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT RTRUSS TIME = 7.999998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.625083E+01 -2.296825E+02 -1.658350E-09 3.280166E+02 -2.737125E+02 1.053664E+02 107 M -4.199933E-09 8.907005E+00 3.146779E+02 1.396415E+01 1.310456E+00 -3.242243E+02 113 M -3.791101E-09 -1.255007E+01 2.888001E-09 2.937213E-09 -5.160359E-09 -1.896136E+01 0*** USER INFORMATION MESSAGE 6312, LEVEL 3 DISPLACEMENTS FOR SUBSTRUCTURE MCOMB HAVE BEEN RECOVERED AND SAVED ON THE SOF. 0*** USER INFORMATION MESSAGE 6312, LEVEL 2 DISPLACEMENTS FOR SUBSTRUCTURE MA HAVE BEEN RECOVERED AND SAVED ON THE SOF. 0*** USER INFORMATION MESSAGE 6312, LEVEL 1 DISPLACEMENTS FOR SUBSTRUCTURE ABASIC HAVE BEEN RECOVERED AND SAVED ON THE SOF. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 215 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 0.000000E+00 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 0.000000E+00 0.0000 2.156534E-03 0.0002 102 IN-MODE 2 7.161329E+01 0.000000E+00 0.0000 2.332727E-04 0.0000 103 IN-MODE 3 1.044093E+02 0.000000E+00 0.0000 3.167901E-05 0.0000 104 IN-MODE 4 1.099846E+02 0.000000E+00 0.0000 3.068890E-21 0.0000 105 IN-MODE 5 1.263637E+02 0.000000E+00 0.0000 4.397174E-06 0.0000 106 IN-MODE 6 1.604217E+02 0.000000E+00 0.0000 1.596397E-08 0.0000 107 IN-MODE 7 1.714665E+02 0.000000E+00 0.0000 2.657608E-21 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 0.000000E+00 0.0000 1.265861E+01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 216 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 2.000000E-02 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 -1.927588E-04 -0.0008 2.328981E-03 0.0002 102 IN-MODE 2 7.161329E+01 4.763729E-05 0.0002 1.916110E-04 0.0000 103 IN-MODE 3 1.044093E+02 8.850170E-06 0.0000 2.399004E-05 0.0000 104 IN-MODE 4 1.099846E+02 6.270948E-19 0.0000 4.198343E-21 0.0000 105 IN-MODE 5 1.263637E+02 1.125234E-06 0.0000 3.417515E-06 0.0000 106 IN-MODE 6 1.604217E+02 -1.572511E-08 0.0000 9.101183E-08 0.0000 107 IN-MODE 7 1.714665E+02 5.430543E-19 0.0000 3.635706E-21 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 2.544067E-01 1.0000 9.952621E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 217 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 4.000000E-02 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 1.214657E-02 0.0211 2.481734E-04 0.0000 102 IN-MODE 2 7.161329E+01 1.014192E-03 0.0018 8.105479E-05 0.0000 103 IN-MODE 3 1.044093E+02 1.280299E-04 0.0002 1.297933E-05 0.0000 104 IN-MODE 4 1.099846E+02 2.464196E-19 0.0000 1.008249E-22 0.0000 105 IN-MODE 5 1.263637E+02 1.729905E-05 0.0000 2.207644E-06 0.0000 106 IN-MODE 6 1.604217E+02 -6.900622E-07 0.0000 8.225488E-07 0.0000 107 IN-MODE 7 1.714665E+02 2.133957E-19 0.0000 8.731283E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 5.757867E-01 1.0000 5.890381E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 218 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 6.000000E-02 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 -1.378440E-03 -0.0019 3.891957E-04 0.0002 102 IN-MODE 2 7.161329E+01 -4.704164E-04 -0.0007 2.257556E-07 0.0000 103 IN-MODE 3 1.044093E+02 -7.105589E-05 -0.0001 2.854922E-07 0.0000 104 IN-MODE 4 1.099846E+02 5.969424E-19 0.0000 3.604586E-23 0.0000 105 IN-MODE 5 1.263637E+02 -1.001394E-05 0.0000 1.109850E-07 0.0000 106 IN-MODE 6 1.604217E+02 1.357041E-06 0.0000 7.462406E-07 0.0000 107 IN-MODE 7 1.714665E+02 5.169427E-19 0.0000 3.121488E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 7.084989E-01 1.0000 1.823476E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 219 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 8.000000E-02 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 -1.237225E-02 -0.0150 6.560743E-04 0.0229 102 IN-MODE 2 7.161329E+01 -6.182963E-04 -0.0007 4.724892E-05 0.0017 103 IN-MODE 3 1.044093E+02 -5.617111E-05 -0.0001 5.452010E-06 0.0002 104 IN-MODE 4 1.099846E+02 7.466337E-19 0.0000 4.775740E-25 0.0000 105 IN-MODE 5 1.263637E+02 -5.582583E-06 0.0000 6.745113E-07 0.0000 106 IN-MODE 6 1.604217E+02 3.589805E-06 0.0000 8.194502E-08 0.0000 107 IN-MODE 7 1.714665E+02 6.465730E-19 0.0000 4.135359E-25 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 8.254064E-01 1.0000 2.861793E-02 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 220 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 9.999999E-02 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 7.756279E-03 0.0075 8.793742E-04 0.0006 102 IN-MODE 2 7.161329E+01 1.205713E-03 0.0012 9.321590E-07 0.0000 103 IN-MODE 3 1.044093E+02 1.584265E-04 0.0002 8.021350E-10 0.0000 104 IN-MODE 4 1.099846E+02 5.780826E-19 0.0000 2.847818E-23 0.0000 105 IN-MODE 5 1.263637E+02 2.224301E-05 0.0000 2.218742E-08 0.0000 106 IN-MODE 6 1.604217E+02 -2.758271E-07 0.0000 8.252727E-07 0.0000 107 IN-MODE 7 1.714665E+02 5.006106E-19 0.0000 2.466136E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 1.039199E+00 1.0000 1.412358E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 221 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 1.200000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 2.213546E-02 0.0322 3.977907E-03 0.0007 102 IN-MODE 2 7.161329E+01 1.064053E-03 0.0015 4.156048E-04 0.0001 103 IN-MODE 3 1.044093E+02 1.169393E-04 0.0002 5.462785E-05 0.0000 104 IN-MODE 4 1.099846E+02 2.838916E-19 0.0000 6.207576E-23 0.0000 105 IN-MODE 5 1.263637E+02 1.464856E-05 0.0000 7.786127E-06 0.0000 106 IN-MODE 6 1.604217E+02 -1.116882E-06 0.0000 6.836697E-08 0.0000 107 IN-MODE 7 1.714665E+02 2.458459E-19 0.0000 5.375742E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 6.873424E-01 1.0000 5.894301E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 222 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 1.400000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 -9.988131E-04 -0.0178 1.284499E-02 0.0013 102 IN-MODE 2 7.161329E+01 -9.815955E-05 -0.0017 9.084219E-04 0.0001 103 IN-MODE 3 1.044093E+02 -8.059602E-06 -0.0001 1.172782E-04 0.0000 104 IN-MODE 4 1.099846E+02 5.562013E-20 0.0000 8.783040E-23 0.0000 105 IN-MODE 5 1.263637E+02 -8.158712E-07 0.0000 1.624027E-05 0.0000 106 IN-MODE 6 1.604217E+02 3.018328E-07 0.0000 2.993443E-09 0.0000 107 IN-MODE 7 1.714665E+02 4.816615E-20 0.0000 7.606140E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 5.621399E-02 1.0000 9.879665E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 223 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 1.600000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 9.621757E-03 0.0892 1.814071E-03 0.0002 102 IN-MODE 2 7.161329E+01 3.115840E-04 0.0029 3.361340E-04 0.0000 103 IN-MODE 3 1.044093E+02 3.559563E-05 0.0003 4.836026E-05 0.0000 104 IN-MODE 4 1.099846E+02 1.243464E-20 0.0000 1.167493E-22 0.0000 105 IN-MODE 5 1.263637E+02 4.379355E-06 0.0000 7.391447E-06 0.0000 106 IN-MODE 6 1.604217E+02 2.667615E-07 0.0000 6.918337E-07 0.0000 107 IN-MODE 7 1.714665E+02 1.076822E-20 0.0000 1.011036E-22 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 1.079144E-01 1.0000 9.604983E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 224 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 1.800000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 -2.602013E-03 -0.0082 1.097630E-04 0.0000 102 IN-MODE 2 7.161329E+01 6.116966E-05 0.0002 4.814482E-05 0.0000 103 IN-MODE 3 1.044093E+02 2.290421E-05 0.0001 8.652672E-06 0.0000 104 IN-MODE 4 1.099846E+02 2.316558E-19 0.0000 1.139751E-22 0.0000 105 IN-MODE 5 1.263637E+02 4.136044E-06 0.0000 1.651060E-06 0.0000 106 IN-MODE 6 1.604217E+02 6.297170E-07 0.0000 1.579003E-06 0.0000 107 IN-MODE 7 1.714665E+02 2.006103E-19 0.0000 9.870033E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 3.182617E-01 1.0000 6.286573E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 225 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 2.000000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 -1.161732E-02 -0.0207 1.499230E-03 0.0006 102 IN-MODE 2 7.161329E+01 -5.237174E-04 -0.0009 1.230907E-04 0.0000 103 IN-MODE 3 1.044093E+02 -7.384459E-05 -0.0001 1.671727E-05 0.0000 104 IN-MODE 4 1.099846E+02 5.792872E-19 0.0000 3.110827E-23 0.0000 105 IN-MODE 5 1.263637E+02 -9.731406E-06 0.0000 2.441049E-06 0.0000 106 IN-MODE 6 1.604217E+02 3.797383E-06 0.0000 5.105700E-08 0.0000 107 IN-MODE 7 1.714665E+02 5.016536E-19 0.0000 2.693960E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 5.605181E-01 1.0000 2.533922E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 226 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 2.200000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 9.551435E-03 0.0088 3.775874E-03 0.0229 102 IN-MODE 2 7.161329E+01 1.803073E-04 0.0002 1.638170E-04 0.0010 103 IN-MODE 3 1.044093E+02 1.819974E-05 0.0000 1.935689E-05 0.0001 104 IN-MODE 4 1.099846E+02 7.065900E-19 0.0000 9.231314E-25 0.0000 105 IN-MODE 5 1.263637E+02 2.642471E-06 0.0000 2.376898E-06 0.0000 106 IN-MODE 6 1.604217E+02 -1.948087E-07 0.0000 4.103043E-07 0.0000 107 IN-MODE 7 1.714665E+02 6.118961E-19 0.0000 7.993188E-25 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 1.085670E+00 1.0000 1.651387E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 227 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 2.400000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 2.444975E-02 0.0192 5.117859E-04 0.0004 102 IN-MODE 2 7.161329E+01 1.862768E-03 0.0015 3.890317E-05 0.0000 103 IN-MODE 3 1.044093E+02 2.632151E-04 0.0002 5.720892E-06 0.0000 104 IN-MODE 4 1.099846E+02 5.770549E-19 0.0000 1.399852E-23 0.0000 105 IN-MODE 5 1.263637E+02 3.674014E-05 0.0000 8.661473E-07 0.0000 106 IN-MODE 6 1.604217E+02 -1.533439E-06 0.0000 4.532721E-08 0.0000 107 IN-MODE 7 1.714665E+02 4.997207E-19 0.0000 1.212263E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 1.275915E+00 1.0000 1.200791E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 228 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 2.600000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 5.054723E-05 0.0001 8.993681E-03 0.0016 102 IN-MODE 2 7.161329E+01 6.084013E-04 0.0011 7.050208E-04 0.0001 103 IN-MODE 3 1.044093E+02 6.870276E-05 0.0001 8.979024E-05 0.0000 104 IN-MODE 4 1.099846E+02 3.473632E-19 0.0000 3.780841E-23 0.0000 105 IN-MODE 5 1.263637E+02 9.315475E-06 0.0000 1.223070E-05 0.0000 106 IN-MODE 6 1.604217E+02 3.969712E-07 0.0000 3.480096E-08 0.0000 107 IN-MODE 7 1.714665E+02 3.008112E-19 0.0000 3.274239E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 5.492100E-01 1.0000 5.659803E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 229 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 2.800000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 -1.465505E-03 -0.0371 3.845735E-03 0.0004 102 IN-MODE 2 7.161329E+01 -2.885039E-04 -0.0073 4.991299E-04 0.0001 103 IN-MODE 3 1.044093E+02 -4.097919E-05 -0.0010 6.659880E-05 0.0000 104 IN-MODE 4 1.099846E+02 9.199153E-20 0.0000 1.095906E-22 0.0000 105 IN-MODE 5 1.263637E+02 -5.841773E-06 -0.0001 9.723543E-06 0.0000 106 IN-MODE 6 1.604217E+02 1.329064E-06 0.0000 2.898639E-07 0.0000 107 IN-MODE 7 1.714665E+02 7.966318E-20 0.0000 9.490463E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 3.952582E-02 1.0000 9.077735E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 230 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 3.000000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 5.742689E-04 0.0255 6.768019E-05 0.0000 102 IN-MODE 2 7.161329E+01 8.319945E-05 0.0037 9.086121E-05 0.0000 103 IN-MODE 3 1.044093E+02 6.203431E-06 0.0003 1.600435E-05 0.0000 104 IN-MODE 4 1.099846E+02 7.614359E-21 0.0000 1.492939E-22 0.0000 105 IN-MODE 5 1.263637E+02 6.811300E-07 0.0000 2.875355E-06 0.0000 106 IN-MODE 6 1.604217E+02 -1.609313E-08 0.0000 1.638953E-06 0.0000 107 IN-MODE 7 1.714665E+02 6.593923E-21 0.0000 1.292862E-22 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 2.252015E-02 1.0000 9.259020E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 231 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 3.200000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 -3.527624E-03 -0.0217 1.039173E-03 0.0001 102 IN-MODE 2 7.161329E+01 -5.954747E-04 -0.0037 2.118120E-04 0.0000 103 IN-MODE 3 1.044093E+02 -7.067830E-05 -0.0004 3.114697E-05 0.0000 104 IN-MODE 4 1.099846E+02 2.151938E-19 0.0000 9.330269E-23 0.0000 105 IN-MODE 5 1.263637E+02 -9.282441E-06 -0.0001 4.830063E-06 0.0000 106 IN-MODE 6 1.604217E+02 1.600587E-06 0.0000 6.031003E-07 0.0000 107 IN-MODE 7 1.714665E+02 1.863544E-19 0.0000 8.079902E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 1.623753E-01 1.0000 7.114374E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 232 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 3.400000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 -4.606588E-03 -0.0070 6.219068E-03 0.0018 102 IN-MODE 2 7.161329E+01 1.688745E-06 0.0000 5.016046E-04 0.0001 103 IN-MODE 3 1.044093E+02 2.027401E-05 0.0000 6.176671E-05 0.0000 104 IN-MODE 4 1.099846E+02 5.128942E-19 0.0000 2.494901E-23 0.0000 105 IN-MODE 5 1.263637E+02 3.863219E-06 0.0000 8.333248E-06 0.0000 106 IN-MODE 6 1.604217E+02 1.398408E-06 0.0000 4.777230E-08 0.0000 107 IN-MODE 7 1.714665E+02 4.441582E-19 0.0000 2.160605E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 6.559741E-01 1.0000 3.401698E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 233 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 3.600000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 1.974100E-02 0.0146 1.275663E-03 0.0052 102 IN-MODE 2 7.161329E+01 2.213308E-03 0.0016 5.534341E-05 0.0002 103 IN-MODE 3 1.044093E+02 2.454164E-04 0.0002 6.870472E-06 0.0000 104 IN-MODE 4 1.099846E+02 6.623691E-19 0.0000 4.621382E-25 0.0000 105 IN-MODE 5 1.263637E+02 3.228920E-05 0.0000 8.955043E-07 0.0000 106 IN-MODE 6 1.604217E+02 -1.084236E-06 0.0000 5.661675E-08 0.0000 107 IN-MODE 7 1.714665E+02 5.736015E-19 0.0000 4.002495E-25 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 1.356732E+00 1.0000 2.429947E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 234 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 3.800000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 2.684307E-01 0.5103 4.784529E-03 0.0027 102 IN-MODE 2 7.161329E+01 2.478504E-03 0.0047 5.325537E-03 0.0030 103 IN-MODE 3 1.044093E+02 1.768897E-03 0.0034 6.327015E-04 0.0004 104 IN-MODE 4 1.099846E+02 7.530988E-17 0.0000 2.080698E-19 0.0000 105 IN-MODE 5 1.263637E+02 3.465082E-05 0.0001 1.083611E-04 0.0001 106 IN-MODE 6 1.604217E+02 -1.125598E-05 0.0000 1.626308E-06 0.0000 107 IN-MODE 7 1.714665E+02 6.521722E-17 0.0000 1.801853E-19 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 5.260489E-01 1.0000 1.804439E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 235 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC TIME = 4.000000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 3.766677E+01 -1.335109E-01 -0.1480 1.569587E+01 0.9321 102 IN-MODE 2 7.161329E+01 -2.901798E-05 0.0000 1.573711E-02 0.0009 103 IN-MODE 3 1.044093E+02 -3.338470E-03 -0.0037 1.641918E-01 0.0098 104 IN-MODE 4 1.099846E+02 6.056690E-17 0.0000 2.582306E-19 0.0000 105 IN-MODE 5 1.263637E+02 3.840468E-05 0.0000 4.259802E-05 0.0000 106 IN-MODE 6 1.604217E+02 2.110600E-05 0.0000 3.431527E-03 0.0002 107 IN-MODE 7 1.714665E+02 5.245001E-17 0.0000 2.236272E-19 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 9.018827E-01 1.0000 1.683984E+01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 236 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 0.000000E+00 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G 5.631593E-03 1.037242E-02 0.0 0.0 0.0 0.0 12 G -1.561076E-13 1.098885E-02 0.0 0.0 0.0 0.0 13 G -5.631593E-03 1.037242E-02 0.0 0.0 0.0 0.0 21 G 1.016226E-02 2.738440E-02 0.0 0.0 0.0 0.0 22 G -1.747010E-13 2.799373E-02 0.0 0.0 0.0 0.0 23 G -1.016226E-02 2.738440E-02 0.0 0.0 0.0 0.0 31 G 1.359793E-02 4.892589E-02 0.0 0.0 0.0 0.0 32 G 3.350016E-14 4.952173E-02 0.0 0.0 0.0 0.0 33 G -1.359793E-02 4.892589E-02 0.0 0.0 0.0 0.0 41 G 1.595519E-02 7.352058E-02 0.0 0.0 0.0 0.0 42 G 3.736526E-13 7.409571E-02 0.0 0.0 0.0 0.0 43 G -1.595519E-02 7.352058E-02 0.0 0.0 0.0 0.0 51 G 1.726345E-02 9.972804E-02 0.0 0.0 0.0 0.0 52 G -1.394654E-13 1.000000E-01 0.0 0.0 0.0 0.0 53 G -1.726345E-02 9.972804E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 237 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G 4.908958E-03 8.794166E-03 0.0 0.0 0.0 0.0 12 G 1.825963E-13 9.277374E-03 0.0 0.0 0.0 0.0 13 G -4.908958E-03 8.794166E-03 0.0 0.0 0.0 0.0 21 G 8.952830E-03 2.344197E-02 0.0 0.0 0.0 0.0 22 G 2.043520E-13 2.391697E-02 0.0 0.0 0.0 0.0 23 G -8.952830E-03 2.344197E-02 0.0 0.0 0.0 0.0 31 G 1.213886E-02 4.227938E-02 0.0 0.0 0.0 0.0 32 G -3.915468E-14 4.273989E-02 0.0 0.0 0.0 0.0 33 G -1.213886E-02 4.227938E-02 0.0 0.0 0.0 0.0 41 G 1.448586E-02 6.415234E-02 0.0 0.0 0.0 0.0 42 G -4.369919E-13 6.459268E-02 0.0 0.0 0.0 0.0 43 G -1.448586E-02 6.415234E-02 0.0 0.0 0.0 0.0 51 G 1.602409E-02 8.795284E-02 0.0 0.0 0.0 0.0 52 G 1.631682E-13 8.815945E-02 0.0 0.0 0.0 0.0 53 G -1.602409E-02 8.795284E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 238 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G 3.621516E-03 6.162351E-03 0.0 0.0 0.0 0.0 12 G 2.829931E-14 6.450227E-03 0.0 0.0 0.0 0.0 13 G -3.621516E-03 6.162351E-03 0.0 0.0 0.0 0.0 21 G 6.730240E-03 1.675634E-02 0.0 0.0 0.0 0.0 22 G 3.167355E-14 1.704301E-02 0.0 0.0 0.0 0.0 23 G -6.730240E-03 1.675634E-02 0.0 0.0 0.0 0.0 31 G 9.325725E-03 3.080090E-02 0.0 0.0 0.0 0.0 32 G -6.058385E-15 3.108357E-02 0.0 0.0 0.0 0.0 33 G -9.325725E-03 3.080090E-02 0.0 0.0 0.0 0.0 41 G 1.141020E-02 4.759507E-02 0.0 0.0 0.0 0.0 42 G -6.770633E-14 4.786857E-02 0.0 0.0 0.0 0.0 43 G -1.141020E-02 4.759507E-02 0.0 0.0 0.0 0.0 51 G 1.299208E-02 6.643399E-02 0.0 0.0 0.0 0.0 52 G 2.530089E-14 6.656072E-02 0.0 0.0 0.0 0.0 53 G -1.299208E-02 6.643399E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 239 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G 1.946977E-03 3.187361E-03 0.0 0.0 0.0 0.0 12 G 1.692028E-14 3.317096E-03 0.0 0.0 0.0 0.0 13 G -1.946977E-03 3.187361E-03 0.0 0.0 0.0 0.0 21 G 3.667284E-03 8.815456E-03 0.0 0.0 0.0 0.0 22 G 1.893711E-14 8.950645E-03 0.0 0.0 0.0 0.0 23 G -3.667284E-03 8.815456E-03 0.0 0.0 0.0 0.0 31 G 5.153907E-03 1.646217E-02 0.0 0.0 0.0 0.0 32 G -3.623603E-15 1.660419E-02 0.0 0.0 0.0 0.0 33 G -5.153907E-03 1.646217E-02 0.0 0.0 0.0 0.0 41 G 6.393834E-03 2.580062E-02 0.0 0.0 0.0 0.0 42 G -4.048508E-14 2.594730E-02 0.0 0.0 0.0 0.0 43 G -6.393834E-03 2.580062E-02 0.0 0.0 0.0 0.0 51 G 7.373300E-03 3.646334E-02 0.0 0.0 0.0 0.0 52 G 1.512666E-14 3.653554E-02 0.0 0.0 0.0 0.0 53 G -7.373300E-03 3.646334E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 240 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 8.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G 2.844003E-04 6.122256E-04 0.0 0.0 0.0 0.0 12 G -1.947259E-15 6.611919E-04 0.0 0.0 0.0 0.0 13 G -2.844003E-04 6.122256E-04 0.0 0.0 0.0 0.0 21 G 4.786474E-04 1.520790E-03 0.0 0.0 0.0 0.0 22 G -2.179186E-15 1.565344E-03 0.0 0.0 0.0 0.0 23 G -4.786474E-04 1.520790E-03 0.0 0.0 0.0 0.0 31 G 5.868888E-04 2.542180E-03 0.0 0.0 0.0 0.0 32 G 4.179416E-16 2.578982E-03 0.0 0.0 0.0 0.0 33 G -5.868888E-04 2.542180E-03 0.0 0.0 0.0 0.0 41 G 6.196008E-04 3.556943E-03 0.0 0.0 0.0 0.0 42 G 4.660914E-15 3.583236E-03 0.0 0.0 0.0 0.0 43 G -6.196008E-04 3.556943E-03 0.0 0.0 0.0 0.0 51 G 5.936068E-04 4.473437E-03 0.0 0.0 0.0 0.0 52 G -1.739595E-15 4.480211E-03 0.0 0.0 0.0 0.0 53 G -5.936068E-04 4.473437E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 241 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 9.999999E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G -1.685479E-03 -2.707815E-03 0.0 0.0 0.0 0.0 12 G -1.503985E-14 -2.810060E-03 0.0 0.0 0.0 0.0 13 G 1.685479E-03 -2.707815E-03 0.0 0.0 0.0 0.0 21 G -3.194852E-03 -7.554261E-03 0.0 0.0 0.0 0.0 22 G -1.683277E-14 -7.664181E-03 0.0 0.0 0.0 0.0 23 G 3.194852E-03 -7.554261E-03 0.0 0.0 0.0 0.0 31 G -4.518616E-03 -1.421727E-02 0.0 0.0 0.0 0.0 32 G 3.220262E-15 -1.433717E-02 0.0 0.0 0.0 0.0 33 G 4.518616E-03 -1.421727E-02 0.0 0.0 0.0 0.0 41 G -5.638699E-03 -2.243110E-02 0.0 0.0 0.0 0.0 42 G 3.598454E-14 -2.255898E-02 0.0 0.0 0.0 0.0 43 G 5.638699E-03 -2.243110E-02 0.0 0.0 0.0 0.0 51 G -6.535134E-03 -3.187666E-02 0.0 0.0 0.0 0.0 52 G -1.344566E-14 -3.194106E-02 0.0 0.0 0.0 0.0 53 G 6.535134E-03 -3.187666E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 242 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 1.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G -3.741983E-03 -6.607444E-03 0.0 0.0 0.0 0.0 12 G -2.220538E-14 -6.954021E-03 0.0 0.0 0.0 0.0 13 G 3.741983E-03 -6.607444E-03 0.0 0.0 0.0 0.0 21 G -6.860708E-03 -1.769517E-02 0.0 0.0 0.0 0.0 22 G -2.485311E-14 -1.803190E-02 0.0 0.0 0.0 0.0 23 G 6.860708E-03 -1.769517E-02 0.0 0.0 0.0 0.0 31 G -9.364264E-03 -3.204988E-02 0.0 0.0 0.0 0.0 32 G 4.753470E-15 -3.236811E-02 0.0 0.0 0.0 0.0 33 G 9.364264E-03 -3.204988E-02 0.0 0.0 0.0 0.0 41 G -1.127535E-02 -4.883029E-02 0.0 0.0 0.0 0.0 42 G 5.312708E-14 -4.912072E-02 0.0 0.0 0.0 0.0 43 G 1.127535E-02 -4.883029E-02 0.0 0.0 0.0 0.0 51 G -1.263359E-02 -6.724679E-02 0.0 0.0 0.0 0.0 52 G -1.985424E-14 -6.737154E-02 0.0 0.0 0.0 0.0 53 G 1.263359E-02 -6.724679E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 243 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 1.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G -4.901436E-03 -8.781357E-03 0.0 0.0 0.0 0.0 12 G -2.641362E-14 -9.260096E-03 0.0 0.0 0.0 0.0 13 G 4.901436E-03 -8.781357E-03 0.0 0.0 0.0 0.0 21 G -8.936998E-03 -2.336806E-02 0.0 0.0 0.0 0.0 22 G -2.956252E-14 -2.382671E-02 0.0 0.0 0.0 0.0 23 G 8.936998E-03 -2.336806E-02 0.0 0.0 0.0 0.0 31 G -1.212569E-02 -4.206458E-02 0.0 0.0 0.0 0.0 32 G 5.654649E-15 -4.248909E-02 0.0 0.0 0.0 0.0 33 G 1.212569E-02 -4.206458E-02 0.0 0.0 0.0 0.0 41 G -1.451381E-02 -6.372645E-02 0.0 0.0 0.0 0.0 42 G 6.319490E-14 -6.410488E-02 0.0 0.0 0.0 0.0 43 G 1.451381E-02 -6.372645E-02 0.0 0.0 0.0 0.0 51 G -1.617281E-02 -8.732010E-02 0.0 0.0 0.0 0.0 52 G -2.361819E-14 -8.747876E-02 0.0 0.0 0.0 0.0 53 G 1.617281E-02 -8.732010E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 244 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 1.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G -4.690329E-03 -8.106585E-03 0.0 0.0 0.0 0.0 12 G -3.045292E-14 -8.505498E-03 0.0 0.0 0.0 0.0 13 G 4.690329E-03 -8.106585E-03 0.0 0.0 0.0 0.0 21 G -8.667776E-03 -2.190490E-02 0.0 0.0 0.0 0.0 22 G -3.408365E-14 -2.229873E-02 0.0 0.0 0.0 0.0 23 G 8.667776E-03 -2.190490E-02 0.0 0.0 0.0 0.0 31 G -1.193489E-02 -4.002081E-02 0.0 0.0 0.0 0.0 32 G 6.518249E-15 -4.040287E-02 0.0 0.0 0.0 0.0 33 G 1.193489E-02 -4.002081E-02 0.0 0.0 0.0 0.0 41 G -1.450305E-02 -6.147873E-02 0.0 0.0 0.0 0.0 42 G 7.285681E-14 -6.183933E-02 0.0 0.0 0.0 0.0 43 G 1.450305E-02 -6.147873E-02 0.0 0.0 0.0 0.0 51 G -1.639792E-02 -8.532047E-02 0.0 0.0 0.0 0.0 52 G -2.722721E-14 -8.548176E-02 0.0 0.0 0.0 0.0 53 G 1.639792E-02 -8.532047E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 245 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 1.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G -3.689060E-03 -6.174149E-03 0.0 0.0 0.0 0.0 12 G -3.008821E-14 -6.447479E-03 0.0 0.0 0.0 0.0 13 G 3.689060E-03 -6.174149E-03 0.0 0.0 0.0 0.0 21 G -6.896150E-03 -1.691665E-02 0.0 0.0 0.0 0.0 22 G -3.367570E-14 -1.719525E-02 0.0 0.0 0.0 0.0 23 G 6.896150E-03 -1.691665E-02 0.0 0.0 0.0 0.0 31 G -9.613048E-03 -3.131510E-02 0.0 0.0 0.0 0.0 32 G 6.441165E-15 -3.159829E-02 0.0 0.0 0.0 0.0 33 G 9.613048E-03 -3.131510E-02 0.0 0.0 0.0 0.0 41 G -1.182712E-02 -4.868564E-02 0.0 0.0 0.0 0.0 42 G 7.198581E-14 -4.896737E-02 0.0 0.0 0.0 0.0 43 G 1.182712E-02 -4.868564E-02 0.0 0.0 0.0 0.0 51 G -1.353013E-02 -6.830145E-02 0.0 0.0 0.0 0.0 52 G -2.689852E-14 -6.843473E-02 0.0 0.0 0.0 0.0 53 G 1.353013E-02 -6.830145E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 246 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G -2.440331E-03 -4.283931E-03 0.0 0.0 0.0 0.0 12 G -1.571946E-14 -4.504343E-03 0.0 0.0 0.0 0.0 13 G 2.440331E-03 -4.283931E-03 0.0 0.0 0.0 0.0 21 G -4.483869E-03 -1.149539E-02 0.0 0.0 0.0 0.0 22 G -1.759362E-14 -1.170916E-02 0.0 0.0 0.0 0.0 23 G 4.483869E-03 -1.149539E-02 0.0 0.0 0.0 0.0 31 G -6.136622E-03 -2.086353E-02 0.0 0.0 0.0 0.0 32 G 3.365553E-15 -2.106578E-02 0.0 0.0 0.0 0.0 33 G 6.136622E-03 -2.086353E-02 0.0 0.0 0.0 0.0 41 G -7.413696E-03 -3.186005E-02 0.0 0.0 0.0 0.0 42 G 3.760924E-14 -3.204612E-02 0.0 0.0 0.0 0.0 43 G 7.413696E-03 -3.186005E-02 0.0 0.0 0.0 0.0 51 G -8.339021E-03 -4.399038E-02 0.0 0.0 0.0 0.0 52 G -1.405417E-14 -4.407183E-02 0.0 0.0 0.0 0.0 53 G 8.339021E-03 -4.399038E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 247 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G -6.896530E-04 -1.450755E-03 0.0 0.0 0.0 0.0 12 G 2.706900E-15 -1.561472E-03 0.0 0.0 0.0 0.0 13 G 6.896530E-04 -1.450755E-03 0.0 0.0 0.0 0.0 21 G -1.173616E-03 -3.623266E-03 0.0 0.0 0.0 0.0 22 G 3.029179E-15 -3.721891E-03 0.0 0.0 0.0 0.0 23 G 1.173616E-03 -3.623266E-03 0.0 0.0 0.0 0.0 31 G -1.464540E-03 -6.099639E-03 0.0 0.0 0.0 0.0 32 G -5.815588E-16 -6.179233E-03 0.0 0.0 0.0 0.0 33 G 1.464540E-03 -6.099639E-03 0.0 0.0 0.0 0.0 41 G -1.590601E-03 -8.625297E-03 0.0 0.0 0.0 0.0 42 G -6.480486E-15 -8.681952E-03 0.0 0.0 0.0 0.0 43 G 1.590601E-03 -8.625297E-03 0.0 0.0 0.0 0.0 51 G -1.591423E-03 -1.101861E-02 0.0 0.0 0.0 0.0 52 G 2.417095E-15 -1.103443E-02 0.0 0.0 0.0 0.0 53 G 1.591423E-03 -1.101861E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 248 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G 1.668146E-03 2.905397E-03 0.0 0.0 0.0 0.0 12 G 1.054475E-14 3.051224E-03 0.0 0.0 0.0 0.0 13 G -1.668146E-03 2.905397E-03 0.0 0.0 0.0 0.0 21 G 3.073967E-03 7.820067E-03 0.0 0.0 0.0 0.0 22 G 1.180171E-14 7.961875E-03 0.0 0.0 0.0 0.0 23 G -3.073967E-03 7.820067E-03 0.0 0.0 0.0 0.0 31 G 4.221240E-03 1.423630E-02 0.0 0.0 0.0 0.0 32 G -2.257770E-15 1.437139E-02 0.0 0.0 0.0 0.0 33 G -4.221240E-03 1.423630E-02 0.0 0.0 0.0 0.0 41 G 5.118966E-03 2.180660E-02 0.0 0.0 0.0 0.0 42 G -2.522872E-14 2.193239E-02 0.0 0.0 0.0 0.0 43 G -5.118966E-03 2.180660E-02 0.0 0.0 0.0 0.0 51 G 5.780797E-03 3.020194E-02 0.0 0.0 0.0 0.0 52 G 9.428185E-15 3.025798E-02 0.0 0.0 0.0 0.0 53 G -5.780797E-03 3.020194E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 249 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G 3.735191E-03 6.747272E-03 0.0 0.0 0.0 0.0 12 G 1.733071E-14 7.123861E-03 0.0 0.0 0.0 0.0 13 G -3.735191E-03 6.747272E-03 0.0 0.0 0.0 0.0 21 G 6.789100E-03 1.790011E-02 0.0 0.0 0.0 0.0 22 G 1.939737E-14 1.826047E-02 0.0 0.0 0.0 0.0 23 G -6.789100E-03 1.790011E-02 0.0 0.0 0.0 0.0 31 G 9.176662E-03 3.212099E-02 0.0 0.0 0.0 0.0 32 G -3.708059E-15 3.245294E-02 0.0 0.0 0.0 0.0 33 G -9.176662E-03 3.212099E-02 0.0 0.0 0.0 0.0 41 G 1.093554E-02 4.850315E-02 0.0 0.0 0.0 0.0 42 G -4.145951E-14 4.879569E-02 0.0 0.0 0.0 0.0 43 G -1.093554E-02 4.850315E-02 0.0 0.0 0.0 0.0 51 G 1.212600E-02 6.623100E-02 0.0 0.0 0.0 0.0 52 G 1.549803E-14 6.635091E-02 0.0 0.0 0.0 0.0 53 G -1.212600E-02 6.623100E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 250 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G 4.609108E-03 8.065981E-03 0.0 0.0 0.0 0.0 12 G 2.950444E-14 8.478304E-03 0.0 0.0 0.0 0.0 13 G -4.609108E-03 8.065981E-03 0.0 0.0 0.0 0.0 21 G 8.478838E-03 2.168314E-02 0.0 0.0 0.0 0.0 22 G 3.302155E-14 2.208661E-02 0.0 0.0 0.0 0.0 23 G -8.478838E-03 2.168314E-02 0.0 0.0 0.0 0.0 31 G 1.161557E-02 3.941752E-02 0.0 0.0 0.0 0.0 32 G -6.316439E-15 3.980311E-02 0.0 0.0 0.0 0.0 33 G -1.161557E-02 3.941752E-02 0.0 0.0 0.0 0.0 41 G 1.403966E-02 6.026343E-02 0.0 0.0 0.0 0.0 42 G -7.059129E-14 6.062034E-02 0.0 0.0 0.0 0.0 43 G -1.403966E-02 6.026343E-02 0.0 0.0 0.0 0.0 51 G 1.578978E-02 8.325891E-02 0.0 0.0 0.0 0.0 52 G 2.637916E-14 8.341487E-02 0.0 0.0 0.0 0.0 53 G -1.578978E-02 8.325891E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 251 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G 4.515137E-03 7.633998E-03 0.0 0.0 0.0 0.0 12 G 3.443605E-14 7.983186E-03 0.0 0.0 0.0 0.0 13 G -4.515137E-03 7.633998E-03 0.0 0.0 0.0 0.0 21 G 8.410054E-03 2.081614E-02 0.0 0.0 0.0 0.0 22 G 3.854147E-14 2.116630E-02 0.0 0.0 0.0 0.0 23 G -8.410054E-03 2.081614E-02 0.0 0.0 0.0 0.0 31 G 1.168146E-02 3.836470E-02 0.0 0.0 0.0 0.0 32 G -7.372144E-15 3.871357E-02 0.0 0.0 0.0 0.0 33 G -1.168146E-02 3.836470E-02 0.0 0.0 0.0 0.0 41 G 1.432633E-02 5.942502E-02 0.0 0.0 0.0 0.0 42 G -8.238973E-14 5.976627E-02 0.0 0.0 0.0 0.0 43 G -1.432633E-02 5.942502E-02 0.0 0.0 0.0 0.0 51 G 1.634764E-02 8.312082E-02 0.0 0.0 0.0 0.0 52 G 3.078598E-14 8.328048E-02 0.0 0.0 0.0 0.0 53 G -1.634764E-02 8.312082E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 252 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G 4.024066E-03 6.930633E-03 0.0 0.0 0.0 0.0 12 G 2.722332E-14 7.267827E-03 0.0 0.0 0.0 0.0 13 G -4.024066E-03 6.930633E-03 0.0 0.0 0.0 0.0 21 G 7.445995E-03 1.875394E-02 0.0 0.0 0.0 0.0 22 G 3.046950E-14 1.908750E-02 0.0 0.0 0.0 0.0 23 G -7.445995E-03 1.875394E-02 0.0 0.0 0.0 0.0 31 G 1.026731E-02 3.431115E-02 0.0 0.0 0.0 0.0 32 G -5.827174E-15 3.463592E-02 0.0 0.0 0.0 0.0 33 G -1.026731E-02 3.431115E-02 0.0 0.0 0.0 0.0 41 G 1.249602E-02 5.277796E-02 0.0 0.0 0.0 0.0 42 G -6.513063E-14 5.308610E-02 0.0 0.0 0.0 0.0 43 G -1.249602E-02 5.277796E-02 0.0 0.0 0.0 0.0 51 G 1.415126E-02 7.334013E-02 0.0 0.0 0.0 0.0 52 G 2.433973E-14 7.347896E-02 0.0 0.0 0.0 0.0 53 G -1.415126E-02 7.334013E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 253 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G 2.909017E-03 5.285067E-03 0.0 0.0 0.0 0.0 12 G 1.407827E-14 5.584730E-03 0.0 0.0 0.0 0.0 13 G -2.909017E-03 5.285067E-03 0.0 0.0 0.0 0.0 21 G 5.275733E-03 1.399068E-02 0.0 0.0 0.0 0.0 22 G 1.575696E-14 1.427702E-02 0.0 0.0 0.0 0.0 23 G -5.275733E-03 1.399068E-02 0.0 0.0 0.0 0.0 31 G 7.112190E-03 2.504977E-02 0.0 0.0 0.0 0.0 32 G -3.011899E-15 2.531246E-02 0.0 0.0 0.0 0.0 33 G -7.112190E-03 2.504977E-02 0.0 0.0 0.0 0.0 41 G 8.449481E-03 3.773823E-02 0.0 0.0 0.0 0.0 42 G -3.367910E-14 3.796796E-02 0.0 0.0 0.0 0.0 43 G -8.449481E-03 3.773823E-02 0.0 0.0 0.0 0.0 51 G 9.338117E-03 5.140954E-02 0.0 0.0 0.0 0.0 52 G 1.258884E-14 5.150254E-02 0.0 0.0 0.0 0.0 53 G -9.338117E-03 5.140954E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 254 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G 7.993529E-04 1.509602E-03 0.0 0.0 0.0 0.0 12 G 1.916367E-15 1.603089E-03 0.0 0.0 0.0 0.0 13 G -7.993529E-04 1.509602E-03 0.0 0.0 0.0 0.0 21 G 1.427255E-03 3.929755E-03 0.0 0.0 0.0 0.0 22 G 2.145051E-15 4.016162E-03 0.0 0.0 0.0 0.0 23 G -1.427255E-03 3.929755E-03 0.0 0.0 0.0 0.0 31 G 1.891102E-03 6.919311E-03 0.0 0.0 0.0 0.0 32 G -4.092533E-16 6.994677E-03 0.0 0.0 0.0 0.0 33 G -1.891102E-03 6.919311E-03 0.0 0.0 0.0 0.0 41 G 2.207250E-03 1.026173E-02 0.0 0.0 0.0 0.0 42 G -4.583055E-15 1.032379E-02 0.0 0.0 0.0 0.0 43 G -2.207250E-03 1.026173E-02 0.0 0.0 0.0 0.0 51 G 2.398395E-03 1.378143E-02 0.0 0.0 0.0 0.0 52 G 1.714604E-15 1.380486E-02 0.0 0.0 0.0 0.0 53 G -2.398395E-03 1.378143E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 255 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G -1.470531E-03 -1.820819E-03 0.0 0.0 0.0 0.0 12 G 1.285430E-12 -1.797703E-03 0.0 0.0 0.0 0.0 13 G 1.470531E-03 -1.820819E-03 0.0 0.0 0.0 0.0 21 G -2.993480E-03 -5.710204E-03 0.0 0.0 0.0 0.0 22 G 1.438561E-12 -5.696026E-03 0.0 0.0 0.0 0.0 23 G 2.993480E-03 -5.710204E-03 0.0 0.0 0.0 0.0 31 G -4.539596E-03 -1.169167E-02 0.0 0.0 0.0 0.0 32 G -2.757322E-13 -1.166335E-02 0.0 0.0 0.0 0.0 33 G 4.539596E-03 -1.169167E-02 0.0 0.0 0.0 0.0 41 G -6.093839E-03 -1.959555E-02 0.0 0.0 0.0 0.0 42 G -3.076504E-12 -1.950656E-02 0.0 0.0 0.0 0.0 43 G 6.093839E-03 -1.959555E-02 0.0 0.0 0.0 0.0 51 G -7.703990E-03 -2.919014E-02 0.0 0.0 0.0 0.0 52 G 1.148530E-12 -2.907512E-02 0.0 0.0 0.0 0.0 53 G 7.703990E-03 -2.919014E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 256 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 11 G -4.008558E-03 -1.544985E-02 0.0 0.0 0.0 0.0 12 G -1.432048E-12 -1.702108E-02 0.0 0.0 0.0 0.0 13 G 4.008558E-03 -1.544985E-02 0.0 0.0 0.0 0.0 21 G -4.126058E-03 -2.766617E-02 0.0 0.0 0.0 0.0 22 G -1.602650E-12 -2.814164E-02 0.0 0.0 0.0 0.0 23 G 4.126058E-03 -2.766617E-02 0.0 0.0 0.0 0.0 31 G -2.253707E-03 -3.113773E-02 0.0 0.0 0.0 0.0 32 G 3.071694E-13 -3.048220E-02 0.0 0.0 0.0 0.0 33 G 2.253707E-03 -3.113773E-02 0.0 0.0 0.0 0.0 41 G -3.698659E-04 -2.567201E-02 0.0 0.0 0.0 0.0 42 G 3.427390E-12 -2.386333E-02 0.0 0.0 0.0 0.0 43 G 3.698659E-04 -2.567201E-02 0.0 0.0 0.0 0.0 51 G -5.085935E-04 -1.387250E-02 0.0 0.0 0.0 0.0 52 G -1.279549E-12 -1.245541E-02 0.0 0.0 0.0 0.0 53 G 5.085935E-04 -1.387250E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 257 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE ABASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.000000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -2.572500E+01 0.0 0.0 0.0 0.0 2 G 0.0 -7.350000E+01 0.0 0.0 0.0 0.0 3 G 0.0 -2.572500E+01 0.0 0.0 0.0 0.0 11 G 0.0 -5.880000E+01 0.0 0.0 0.0 0.0 12 G 0.0 -8.820000E+01 0.0 0.0 0.0 0.0 13 G 0.0 -5.880000E+01 0.0 0.0 0.0 0.0 21 G 0.0 -5.880000E+01 0.0 0.0 0.0 0.0 22 G 0.0 -8.820000E+01 0.0 0.0 0.0 0.0 23 G 0.0 -5.880000E+01 0.0 0.0 0.0 0.0 31 G 0.0 -5.880000E+01 0.0 0.0 0.0 0.0 32 G 0.0 -8.820000E+01 0.0 0.0 0.0 0.0 33 G 0.0 -5.880000E+01 0.0 0.0 0.0 0.0 41 G 0.0 -5.880000E+01 0.0 0.0 0.0 0.0 42 G 0.0 -8.820000E+01 0.0 0.0 0.0 0.0 43 G 0.0 -5.880000E+01 0.0 0.0 0.0 0.0 51 G 0.0 -4.410000E+01 0.0 0.0 0.0 0.0 52 G 0.0 -3.675000E+01 0.0 0.0 0.0 0.0 53 G 0.0 -4.410000E+01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 258 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 0.000000E+00 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.726345E-02 9.972804E-02 0.0 0.0 0.0 0.0 52 G -1.394654E-13 1.000000E-01 0.0 0.0 0.0 0.0 53 G -1.726345E-02 9.972804E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 259 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 0.000000E+00 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 2.699188E-04 4.556532E-05 1.177433E-05 -1.227833E-13 3.557307E-06 -2.103953E-07 107 M -6.816724E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 260 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.602409E-02 8.795284E-02 0.0 0.0 0.0 0.0 52 G 1.631682E-13 8.815945E-02 0.0 0.0 0.0 0.0 53 G -1.602409E-02 8.795284E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 261 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 2.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 2.805033E-04 4.129644E-05 1.024627E-05 1.436106E-13 3.136099E-06 5.023593E-07 107 M 7.973037E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 262 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.299208E-02 6.643399E-02 0.0 0.0 0.0 0.0 52 G 2.530089E-14 6.656072E-02 0.0 0.0 0.0 0.0 53 G -1.299208E-02 6.643399E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 263 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 4.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 9.156565E-05 2.685912E-05 7.536619E-06 2.225516E-14 2.520571E-06 1.510242E-06 107 M 1.235572E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 264 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 7.373300E-03 3.646334E-02 0.0 0.0 0.0 0.0 52 G 1.512666E-14 3.653554E-02 0.0 0.0 0.0 0.0 53 G -7.373300E-03 3.646334E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 265 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.146671E-04 1.417496E-06 1.117757E-06 1.330696E-14 5.651538E-07 1.438484E-06 107 M 7.387759E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 266 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 8.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 5.936068E-04 4.473437E-03 0.0 0.0 0.0 0.0 52 G -1.739595E-15 4.480211E-03 0.0 0.0 0.0 0.0 53 G -5.936068E-04 4.473437E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 267 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 8.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.488783E-04 2.050682E-05 4.884597E-06 -1.531798E-15 1.393250E-06 -4.766799E-07 107 M -8.503679E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 268 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 9.999999E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G -6.535134E-03 -3.187666E-02 0.0 0.0 0.0 0.0 52 G -1.344566E-14 -3.194106E-02 0.0 0.0 0.0 0.0 53 G 6.535134E-03 -3.187666E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 269 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 9.999999E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.723621E-04 2.880364E-06 -5.924807E-08 -1.182795E-14 -2.526899E-07 -1.512740E-06 107 M -6.566618E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 270 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 1.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G -1.263359E-02 -6.724679E-02 0.0 0.0 0.0 0.0 52 G -1.985424E-14 -6.737154E-02 0.0 0.0 0.0 0.0 53 G 1.263359E-02 -6.724679E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 271 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 1.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -3.665914E-04 -6.081948E-05 -1.546171E-05 -1.746232E-14 -4.733640E-06 -4.354003E-07 107 M -9.694932E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 272 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 1.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G -1.617281E-02 -8.732010E-02 0.0 0.0 0.0 0.0 52 G -2.361819E-14 -8.747876E-02 0.0 0.0 0.0 0.0 53 G 1.617281E-02 -8.732010E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 273 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 1.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.587518E-04 -8.991792E-05 -2.265474E-05 -2.077111E-14 -6.836458E-06 9.110685E-08 107 M -1.153202E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 274 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 1.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G -1.639792E-02 -8.532047E-02 0.0 0.0 0.0 0.0 52 G -2.722721E-14 -8.548176E-02 0.0 0.0 0.0 0.0 53 G 1.639792E-02 -8.532047E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 275 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 1.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.475609E-04 -5.469639E-05 -1.454771E-05 -2.394814E-14 -4.612105E-06 -1.385053E-06 107 M -1.329570E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 276 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 1.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G -1.353013E-02 -6.830145E-02 0.0 0.0 0.0 0.0 52 G -2.689852E-14 -6.843473E-02 0.0 0.0 0.0 0.0 53 G 1.353013E-02 -6.830145E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 277 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 1.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 6.089519E-05 -2.070033E-05 -6.153547E-06 -2.366215E-14 -2.179796E-06 -2.092459E-06 107 M -1.313681E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 278 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G -8.339021E-03 -4.399038E-02 0.0 0.0 0.0 0.0 52 G -1.405417E-14 -4.407183E-02 0.0 0.0 0.0 0.0 53 G 8.339021E-03 -4.399038E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 279 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 2.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.250552E-04 -3.309901E-05 -8.553288E-06 -1.236175E-14 -2.650469E-06 -3.762645E-07 107 M -6.863120E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 280 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G -1.591423E-03 -1.101861E-02 0.0 0.0 0.0 0.0 52 G 2.417095E-15 -1.103443E-02 0.0 0.0 0.0 0.0 53 G 1.591423E-03 -1.101861E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 281 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 2.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -3.571607E-04 -3.818405E-05 -9.203823E-06 2.129795E-15 -2.615410E-06 1.066642E-06 107 M 1.182296E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 282 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 5.780797E-03 3.020194E-02 0.0 0.0 0.0 0.0 52 G 9.428185E-15 3.025798E-02 0.0 0.0 0.0 0.0 53 G -5.780797E-03 3.020194E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 283 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 2.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.314919E-04 1.860780E-05 5.003597E-06 8.292468E-15 1.578812E-06 3.545235E-07 107 M 4.603889E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 284 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.212600E-02 6.623100E-02 0.0 0.0 0.0 0.0 52 G 1.549803E-14 6.635091E-02 0.0 0.0 0.0 0.0 53 G -1.212600E-02 6.623100E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 285 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 2.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 5.512183E-04 7.921427E-05 1.982280E-05 1.362789E-14 5.932806E-06 -3.106427E-07 107 M 7.566179E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 286 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 2.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.578978E-02 8.325891E-02 0.0 0.0 0.0 0.0 52 G 2.637916E-14 8.341487E-02 0.0 0.0 0.0 0.0 53 G -1.578978E-02 8.325891E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 287 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 2.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 3.604496E-04 6.665140E-05 1.707197E-05 2.320221E-14 5.289891E-06 8.965255E-07 107 M 1.288162E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 288 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.634764E-02 8.312082E-02 0.0 0.0 0.0 0.0 52 G 3.078598E-14 8.328048E-02 0.0 0.0 0.0 0.0 53 G -1.634764E-02 8.312082E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 289 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 3.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 4.781737E-05 2.843752E-05 8.368921E-06 2.708125E-14 2.876605E-06 2.131811E-06 107 M 1.503508E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 290 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.415126E-02 7.334013E-02 0.0 0.0 0.0 0.0 52 G 2.433973E-14 7.347896E-02 0.0 0.0 0.0 0.0 53 G -1.415126E-02 7.334013E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 291 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 3.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.873695E-04 4.341879E-05 1.167504E-05 2.140880E-14 3.728300E-06 1.293184E-06 107 M 1.188588E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 292 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 9.338117E-03 5.140954E-02 0.0 0.0 0.0 0.0 52 G 1.258884E-14 5.150254E-02 0.0 0.0 0.0 0.0 53 G -9.338117E-03 5.140954E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 293 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 3.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 4.583715E-04 6.681642E-05 1.644098E-05 1.107033E-14 4.897130E-06 -3.639600E-07 107 M 6.146232E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 294 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 2.398395E-03 1.378143E-02 0.0 0.0 0.0 0.0 52 G 1.714604E-15 1.380486E-02 0.0 0.0 0.0 0.0 53 G -2.398395E-03 1.378143E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 295 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 3.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 2.075979E-04 2.219399E-05 5.483322E-06 1.506560E-15 1.605345E-06 -3.962215E-07 107 M 8.364987E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 296 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 3.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G -7.703990E-03 -2.919014E-02 0.0 0.0 0.0 0.0 52 G 1.148530E-12 -2.907512E-02 0.0 0.0 0.0 0.0 53 G 7.703990E-03 -2.919014E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 297 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 3.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -4.020449E-04 -2.177129E-04 -5.261988E-05 1.011004E-12 -1.765921E-05 -2.123572E-06 107 M 5.612928E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 298 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G -5.085935E-04 -1.387250E-02 0.0 0.0 0.0 0.0 52 G -1.279549E-12 -1.245541E-02 0.0 0.0 0.0 0.0 53 G 5.085935E-04 -1.387250E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 299 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 4.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.302754E-02 -3.742527E-04 -8.476688E-04 -1.126275E-12 -1.107208E-05 9.754596E-05 107 M -6.252983E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 300 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 7.639633E-03 5.077145E-02 0.0 0.0 0.0 0.0 52 G -1.375377E-13 5.247950E-02 0.0 0.0 0.0 0.0 53 G -7.639633E-03 5.077145E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 301 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 4.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.244771E-02 -3.627806E-04 -8.454521E-04 -1.210218E-13 -1.239400E-05 9.358773E-05 107 M -6.719748E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 302 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.400001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 3.065482E-02 1.718806E-01 0.0 0.0 0.0 0.0 52 G -8.560768E-14 1.738018E-01 0.0 0.0 0.0 0.0 53 G -3.065482E-02 1.718806E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 303 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 4.400001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.147292E-02 -2.993684E-04 -8.278981E-04 -7.534068E-14 -7.170408E-06 9.367342E-05 107 M -4.183574E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 304 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.600001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 6.272717E-02 3.316626E-01 0.0 0.0 0.0 0.0 52 G -1.623141E-14 3.338889E-01 0.0 0.0 0.0 0.0 53 G -6.272717E-02 3.316626E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 305 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 4.600001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.152422E-02 -2.980940E-04 -8.242958E-04 -1.431170E-14 -5.256086E-06 9.856067E-05 107 M -7.953544E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 306 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.800001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 9.949066E-02 5.227460E-01 0.0 0.0 0.0 0.0 52 G 3.035843E-14 5.253527E-01 0.0 0.0 0.0 0.0 53 G -9.949066E-02 5.227460E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 307 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 4.800001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.162896E-02 -1.375743E-04 -7.833760E-04 2.666084E-14 7.946519E-06 1.035262E-04 107 M 1.479373E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 308 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.000001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.323348E-01 7.030305E-01 0.0 0.0 0.0 0.0 52 G 8.512096E-14 7.059575E-01 0.0 0.0 0.0 0.0 53 G -1.323348E-01 7.030305E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 309 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 5.000001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.984096E-02 7.435976E-05 -7.303368E-04 7.483021E-14 2.354043E-05 1.018367E-04 107 M 4.153728E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 310 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.545146E-01 8.221683E-01 0.0 0.0 0.0 0.0 52 G 1.222438E-13 8.252974E-01 0.0 0.0 0.0 0.0 53 G -1.545146E-01 8.221683E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 311 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 5.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.850395E-02 1.584261E-04 -7.080962E-04 1.074744E-13 3.015749E-05 1.005273E-04 107 M 5.966125E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 312 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.628486E-01 8.581591E-01 0.0 0.0 0.0 0.0 52 G 1.316255E-13 8.613840E-01 0.0 0.0 0.0 0.0 53 G -1.628486E-01 8.581591E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 313 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 5.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.977992E-02 1.308091E-04 -7.139982E-04 1.157252E-13 2.930629E-05 1.058278E-04 107 M 6.424141E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 314 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.551891E-01 8.139981E-01 0.0 0.0 0.0 0.0 52 G 1.357955E-13 8.171533E-01 0.0 0.0 0.0 0.0 53 G -1.551891E-01 8.139981E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 315 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 5.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.059572E-02 6.374329E-05 -7.306837E-04 1.194030E-13 2.431354E-05 1.076252E-04 107 M 6.628305E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 316 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.331416E-01 7.056035E-01 0.0 0.0 0.0 0.0 52 G 9.333018E-14 7.085238E-01 0.0 0.0 0.0 0.0 53 G -1.331416E-01 7.056035E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 317 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 5.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.953929E-02 2.599254E-05 -7.412850E-04 8.204972E-14 2.022724E-05 1.012414E-04 107 M 4.554552E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 318 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.017326E-01 5.459657E-01 0.0 0.0 0.0 0.0 52 G 1.858520E-14 5.485846E-01 0.0 0.0 0.0 0.0 53 G -1.017326E-01 5.459657E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 319 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.983656E-02 -1.294416E-05 -7.536268E-04 1.628844E-14 1.609574E-05 9.764438E-05 107 M 9.035782E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 320 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.199999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 6.553696E-02 3.496642E-01 0.0 0.0 0.0 0.0 52 G -2.236176E-14 3.519410E-01 0.0 0.0 0.0 0.0 53 G -6.553696E-02 3.496642E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 321 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.199999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.181662E-02 -2.004725E-04 -8.017087E-04 -1.970644E-14 1.553555E-06 9.944232E-05 107 M -1.094869E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 322 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.399999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 3.120855E-02 1.638073E-01 0.0 0.0 0.0 0.0 52 G -6.552142E-14 1.657290E-01 0.0 0.0 0.0 0.0 53 G -3.120855E-02 1.638073E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 323 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.399999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.264599E-02 -4.404410E-04 -8.608871E-04 -5.765787E-14 -1.643126E-05 9.811229E-05 107 M -3.201895E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 324 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.599999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 7.528332E-03 4.537180E-02 0.0 0.0 0.0 0.0 52 G -1.266143E-13 4.705777E-02 0.0 0.0 0.0 0.0 53 G -7.528332E-03 4.537180E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 325 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.599999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.237257E-02 -4.618977E-04 -8.680270E-04 -1.114110E-13 -1.902335E-05 9.376630E-05 107 M -6.186173E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 326 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.799999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G -1.679823E-03 3.700558E-03 0.0 0.0 0.0 0.0 52 G -1.437578E-13 5.316249E-03 0.0 0.0 0.0 0.0 53 G 1.679823E-03 3.700558E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 327 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.799999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.238472E-02 -3.770088E-04 -8.498601E-04 -1.264937E-13 -1.413932E-05 9.210961E-05 107 M -7.023544E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 328 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.999999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 3.115468E-03 2.415224E-02 0.0 0.0 0.0 0.0 52 G -1.250651E-13 2.580528E-02 0.0 0.0 0.0 0.0 53 G -3.115468E-03 2.415224E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 329 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.999999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.250642E-02 -4.422990E-04 -8.643540E-04 -1.100406E-13 -1.825057E-05 9.355444E-05 107 M -6.110094E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 330 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.199998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 2.253920E-02 1.187567E-01 0.0 0.0 0.0 0.0 52 G -9.294520E-14 1.205863E-01 0.0 0.0 0.0 0.0 53 G -2.253920E-02 1.187567E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 331 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 7.199998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.259743E-02 -4.770431E-04 -8.698740E-04 -8.178884E-14 -1.907804E-05 9.675877E-05 107 M -4.541603E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 332 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.399998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 5.446753E-02 2.896703E-01 0.0 0.0 0.0 0.0 52 G -3.678723E-14 2.918324E-01 0.0 0.0 0.0 0.0 53 G -5.446753E-02 2.896703E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 333 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 7.399998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.211616E-02 -2.731628E-04 -8.198178E-04 -3.239513E-14 -3.939279E-06 9.905140E-05 107 M -1.799338E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 334 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.599998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 9.096155E-02 4.887786E-01 0.0 0.0 0.0 0.0 52 G 1.357767E-14 4.913020E-01 0.0 0.0 0.0 0.0 53 G -9.096155E-02 4.887786E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 335 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 7.599998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.042413E-02 -4.922881E-05 -7.636963E-04 1.189656E-14 1.282842E-05 9.818151E-05 107 M 6.597263E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 336 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.799998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.243436E-01 6.614697E-01 0.0 0.0 0.0 0.0 52 G 6.231484E-14 6.643022E-01 0.0 0.0 0.0 0.0 53 G -1.243436E-01 6.614697E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 337 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 7.799998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.945639E-02 1.525322E-05 -7.442310E-04 5.475791E-14 1.933930E-05 9.966925E-05 107 M 3.039364E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 338 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.999998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 51 G 1.497113E-01 7.862128E-01 0.0 0.0 0.0 0.0 52 G 1.268578E-13 7.893048E-01 0.0 0.0 0.0 0.0 53 G -1.497113E-01 7.862128E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 339 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 7.999998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.032409E-02 4.271936E-05 -7.361125E-04 1.115468E-13 2.248614E-05 1.060028E-04 107 M 6.192147E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 340 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.000000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 341 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 4.000000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 342 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.200000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 343 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 4.200000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 344 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.400001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 345 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 4.400001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 346 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.600001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 347 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 4.600001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 348 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 4.800001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 349 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 4.800001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 350 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.000001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 351 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 5.000001E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 352 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.200000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 353 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 5.200000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 354 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.400000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 355 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 5.400000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 356 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.600000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 357 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 5.600000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 358 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 5.800000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 359 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 5.800000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 360 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.000000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 361 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.000000E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 362 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.199999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 363 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.199999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 364 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.399999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 365 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.399999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 366 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.599999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 367 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.599999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 368 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.799999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 369 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.799999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 370 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 6.999999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 371 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 6.999999E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 372 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.199998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 373 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 7.199998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 374 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.399998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 375 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 7.399998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 376 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.599998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 377 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 7.599998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 378 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.799998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 379 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 7.799998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 380 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT ABASIC TIME = 7.999998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 2 G -1.812983E-14 -4.382913E+02 0.0 0.0 0.0 0.0 3 G 2.119883E+02 -2.572500E+01 0.0 0.0 0.0 0.0 51 G 3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 52 G -8.659740E-15 -3.675000E+01 0.0 0.0 0.0 0.0 53 G -3.680175E+02 -2.733044E+02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 381 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MA 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MA TIME = 7.999998E-01 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.243901E+02 -1.869011E+01 -1.809501E+02 6.623826E-13 1.605692E+00 3.575760E+01 107 M 3.744889E-13 0*** USER INFORMATION MESSAGE 6312, LEVEL 2 DISPLACEMENTS FOR SUBSTRUCTURE MB HAVE BEEN RECOVERED AND SAVED ON THE SOF. 0*** USER INFORMATION MESSAGE 6312, LEVEL 1 DISPLACEMENTS FOR SUBSTRUCTURE BBASIC HAVE BEEN RECOVERED AND SAVED ON THE SOF. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 382 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 0.000000E+00 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 0.000000E+00 0.0000 2.772843E-02 0.6347 102 IN-MODE 2 5.216362E+01 0.000000E+00 0.0000 1.103058E-03 0.0252 103 IN-MODE 3 6.452576E+01 0.000000E+00 0.0000 3.022328E-22 0.0000 104 IN-MODE 4 9.687958E+01 0.000000E+00 0.0000 5.292991E-05 0.0012 105 IN-MODE 5 1.234085E+02 0.000000E+00 0.0000 8.914975E-06 0.0002 106 IN-MODE 6 1.480653E+02 0.000000E+00 0.0000 5.541882E-07 0.0000 107 IN-MODE 7 1.514840E+02 0.000000E+00 0.0000 9.591797E-25 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 0.000000E+00 0.0000 4.368633E-02 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 383 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 2.000000E-02 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 -1.517375E-01 -0.2298 1.859646E-01 0.9499 102 IN-MODE 2 5.216362E+01 -1.249615E-04 -0.0002 1.215037E-03 0.0062 103 IN-MODE 3 6.452576E+01 6.174958E-20 0.0000 4.132761E-22 0.0000 104 IN-MODE 4 9.687958E+01 7.720994E-06 0.0000 4.614436E-05 0.0002 105 IN-MODE 5 1.234085E+02 3.208312E-06 0.0000 6.148544E-06 0.0000 106 IN-MODE 6 1.480653E+02 6.522276E-07 0.0000 5.857243E-08 0.0000 107 IN-MODE 7 1.514840E+02 1.959343E-22 0.0000 1.310929E-24 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 6.602179E-01 1.0000 1.957691E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 384 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 4.000000E-02 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 -3.009797E-02 -0.0099 3.842273E-01 0.9898 102 IN-MODE 2 5.216362E+01 5.090903E-03 0.0017 6.904577E-04 0.0018 103 IN-MODE 3 6.452576E+01 2.426172E-20 0.0000 9.902300E-24 0.0000 104 IN-MODE 4 9.687958E+01 2.064246E-04 0.0001 3.608721E-05 0.0001 105 IN-MODE 5 1.234085E+02 3.437552E-05 0.0000 3.574504E-06 0.0000 106 IN-MODE 6 1.480653E+02 1.636150E-06 0.0000 1.633577E-07 0.0000 107 IN-MODE 7 1.514840E+02 7.699757E-23 0.0000 3.129906E-26 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 3.025424E+00 1.0000 3.881695E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 385 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 6.000000E-02 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 6.702170E-01 0.0979 1.625974E-01 0.9934 102 IN-MODE 2 5.216362E+01 -1.657042E-03 -0.0002 3.665392E-05 0.0002 103 IN-MODE 3 6.452576E+01 5.877282E-20 0.0000 3.539827E-24 0.0000 104 IN-MODE 4 9.687958E+01 -1.170422E-04 0.0000 3.825281E-06 0.0000 105 IN-MODE 5 1.234085E+02 -2.141435E-05 0.0000 9.033698E-08 0.0000 106 IN-MODE 6 1.480653E+02 -3.321454E-07 0.0000 4.889650E-07 0.0000 107 IN-MODE 7 1.514840E+02 1.865103E-22 0.0000 1.118182E-26 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 6.845239E+00 1.0000 1.636810E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 386 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 8.000000E-02 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 8.780258E-01 0.1012 1.468203E-03 0.8692 102 IN-MODE 2 5.216362E+01 -2.970083E-03 -0.0003 2.028819E-04 0.1201 103 IN-MODE 3 6.452576E+01 7.351084E-20 0.0000 4.699084E-26 0.0000 104 IN-MODE 4 9.687958E+01 -3.574908E-05 0.0000 7.141561E-06 0.0042 105 IN-MODE 5 1.234085E+02 -1.220825E-05 0.0000 1.447882E-06 0.0009 106 IN-MODE 6 1.480653E+02 -2.715137E-07 0.0000 2.529356E-07 0.0001 107 IN-MODE 7 1.514840E+02 2.332787E-22 0.0000 1.480892E-28 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 8.675114E+00 1.0000 1.689105E-03 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 387 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 9.999999E-02 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 2.031315E-01 0.0294 1.399451E-01 0.9940 102 IN-MODE 2 5.216362E+01 6.582342E-03 0.0010 8.783445E-06 0.0001 103 IN-MODE 3 6.452576E+01 5.691616E-20 0.0000 2.796431E-24 0.0000 104 IN-MODE 4 9.687958E+01 2.902770E-04 0.0000 1.893492E-06 0.0000 105 IN-MODE 5 1.234085E+02 4.279241E-05 0.0000 1.525269E-09 0.0000 106 IN-MODE 6 1.480653E+02 9.448538E-07 0.0000 6.302567E-07 0.0000 107 IN-MODE 7 1.514840E+02 1.806254E-22 0.0000 8.831118E-27 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 6.918139E+00 1.0000 1.407859E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 388 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 1.200000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 -2.768693E-02 -0.0080 2.320740E-01 0.9763 102 IN-MODE 2 5.216362E+01 5.611720E-03 0.0016 2.405146E-03 0.0101 103 IN-MODE 3 6.452576E+01 2.795109E-20 0.0000 6.095273E-24 0.0000 104 IN-MODE 4 9.687958E+01 1.566979E-04 0.0000 1.015594E-04 0.0004 105 IN-MODE 5 1.234085E+02 2.898223E-05 0.0000 1.472730E-05 0.0001 106 IN-MODE 6 1.480653E+02 2.166861E-06 0.0000 3.254605E-07 0.0000 107 IN-MODE 7 1.514840E+02 8.870649E-23 0.0000 1.927686E-26 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 3.447527E+00 1.0000 2.377083E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 389 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 1.400000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 7.758329E-02 0.1185 3.237921E-01 0.9700 102 IN-MODE 2 5.216362E+01 -6.633886E-04 -0.0010 4.755341E-03 0.0142 103 IN-MODE 3 6.452576E+01 5.476128E-21 0.0000 8.623482E-24 0.0000 104 IN-MODE 4 9.687958E+01 -9.877876E-06 0.0000 1.983907E-04 0.0006 105 IN-MODE 5 1.234085E+02 -1.458590E-06 0.0000 3.156451E-05 0.0001 106 IN-MODE 6 1.480653E+02 1.300033E-09 0.0000 1.495708E-06 0.0000 107 IN-MODE 7 1.514840E+02 1.737775E-23 0.0000 2.727835E-26 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 6.544658E-01 1.0000 3.338138E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 390 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 1.600000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 -3.940531E-02 -0.2052 5.070419E-01 0.9855 102 IN-MODE 2 5.216362E+01 1.319875E-03 0.0069 2.162839E-03 0.0042 103 IN-MODE 3 6.452576E+01 1.224283E-21 0.0000 1.146293E-23 0.0000 104 IN-MODE 4 9.687958E+01 3.958989E-05 0.0002 1.067081E-04 0.0002 105 IN-MODE 5 1.234085E+02 9.405599E-06 0.0000 1.318304E-05 0.0000 106 IN-MODE 6 1.480653E+02 1.650724E-06 0.0000 5.953198E-10 0.0000 107 IN-MODE 7 1.514840E+02 3.886199E-24 0.0000 3.623067E-26 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 1.920667E-01 1.0000 5.145276E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 391 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 1.800000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 1.898107E-01 0.0691 4.579072E-01 0.9910 102 IN-MODE 2 5.216362E+01 -7.340532E-05 0.0000 5.882253E-04 0.0013 103 IN-MODE 3 6.452576E+01 2.280797E-20 0.0000 1.119350E-23 0.0000 104 IN-MODE 4 9.687958E+01 6.150925E-05 0.0000 3.248476E-05 0.0001 105 IN-MODE 5 1.234085E+02 8.011699E-06 0.0000 2.411164E-06 0.0000 106 IN-MODE 6 1.480653E+02 -5.628722E-08 0.0000 6.163116E-07 0.0000 107 IN-MODE 7 1.514840E+02 7.237999E-23 0.0000 3.537403E-26 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 2.747805E+00 1.0000 4.620837E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 392 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 2.000000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 7.629452E-01 0.1159 1.153927E-01 0.9821 102 IN-MODE 2 5.216362E+01 -1.320254E-03 -0.0002 7.405076E-04 0.0063 103 IN-MODE 3 6.452576E+01 5.703460E-20 0.0000 3.054893E-24 0.0000 104 IN-MODE 4 9.687958E+01 -7.847249E-05 0.0000 3.205203E-05 0.0003 105 IN-MODE 5 1.234085E+02 -2.184880E-05 0.0000 4.532028E-06 0.0000 106 IN-MODE 6 1.480653E+02 6.507583E-08 0.0000 6.078191E-08 0.0000 107 IN-MODE 7 1.514840E+02 1.809914E-22 0.0000 9.659751E-27 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 6.580954E+00 1.0000 1.174964E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 393 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 2.200000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 5.128819E-01 0.0617 2.426998E-03 0.7816 102 IN-MODE 2 5.216362E+01 1.791561E-03 0.0002 5.984065E-04 0.1927 103 IN-MODE 3 6.452576E+01 6.956847E-20 0.0000 9.089602E-26 0.0000 104 IN-MODE 4 9.687958E+01 2.232195E-05 0.0000 2.336004E-05 0.0075 105 IN-MODE 5 1.234085E+02 4.629277E-06 0.0000 5.152477E-06 0.0017 106 IN-MODE 6 1.480653E+02 1.450495E-07 0.0000 1.080139E-06 0.0003 107 IN-MODE 7 1.514840E+02 2.207744E-22 0.0000 2.862742E-28 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 8.318852E+00 1.0000 3.105027E-03 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 394 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 2.400000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 1.132132E-02 0.0016 6.245929E-02 0.9863 102 IN-MODE 2 5.216362E+01 7.594724E-03 0.0011 2.282126E-04 0.0036 103 IN-MODE 3 6.452576E+01 5.681487E-20 0.0000 1.374447E-24 0.0000 104 IN-MODE 4 9.687958E+01 4.285097E-04 0.0001 1.166689E-05 0.0002 105 IN-MODE 5 1.234085E+02 7.420292E-05 0.0000 1.568705E-06 0.0000 106 IN-MODE 6 1.480653E+02 3.292544E-06 0.0000 5.650729E-09 0.0000 107 IN-MODE 7 1.514840E+02 1.803078E-22 0.0000 4.343931E-27 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 7.090398E+00 1.0000 6.332895E-02 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 395 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 2.600000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 1.825694E-01 0.0448 1.511681E-01 0.9585 102 IN-MODE 2 5.216362E+01 3.976915E-03 0.0010 3.491084E-03 0.0221 103 IN-MODE 3 6.452576E+01 3.420023E-20 0.0000 3.711093E-24 0.0000 104 IN-MODE 4 9.687958E+01 1.410285E-04 0.0000 1.479592E-04 0.0009 105 IN-MODE 5 1.234085E+02 1.641844E-05 0.0000 2.409673E-05 0.0002 106 IN-MODE 6 1.480653E+02 5.549020E-08 0.0000 1.413598E-06 0.0000 107 IN-MODE 7 1.514840E+02 1.085342E-22 0.0000 1.174100E-26 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 4.073345E+00 1.0000 1.577087E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 396 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 2.800000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 2.266644E-01 0.2227 4.042657E-01 0.9802 102 IN-MODE 2 5.216362E+01 -1.291478E-03 -0.0013 3.135407E-03 0.0076 103 IN-MODE 3 6.452576E+01 9.057145E-21 0.0000 1.076154E-23 0.0000 104 IN-MODE 4 9.687958E+01 -7.530899E-05 -0.0001 1.321106E-04 0.0003 105 IN-MODE 5 1.234085E+02 -1.117456E-05 0.0000 1.799296E-05 0.0000 106 IN-MODE 6 1.480653E+02 8.611581E-07 0.0000 1.685761E-07 0.0000 107 IN-MODE 7 1.514840E+02 2.874001E-23 0.0000 3.403038E-26 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 1.018029E+00 1.0000 4.124159E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 397 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 3.000000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 -6.790148E-03 -0.0745 6.383693E-01 0.9906 102 IN-MODE 2 5.216362E+01 6.962948E-04 0.0076 8.765006E-04 0.0014 103 IN-MODE 3 6.452576E+01 7.496960E-22 0.0000 1.466095E-23 0.0000 104 IN-MODE 4 9.687958E+01 9.908739E-06 0.0001 5.003243E-05 0.0001 105 IN-MODE 5 1.234085E+02 1.165949E-06 0.0000 4.474465E-06 0.0000 106 IN-MODE 6 1.480653E+02 6.280111E-08 0.0000 4.704230E-07 0.0000 107 IN-MODE 7 1.514840E+02 2.379319E-24 0.0000 4.632772E-26 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 9.108514E-02 1.0000 6.443991E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 398 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 3.200000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 3.956260E-01 0.1608 3.950624E-01 0.9868 102 IN-MODE 2 5.216362E+01 -3.092420E-03 -0.0013 1.348726E-03 0.0034 103 IN-MODE 3 6.452576E+01 2.118718E-20 0.0000 9.161491E-24 0.0000 104 IN-MODE 4 9.687958E+01 -1.205707E-04 0.0000 7.125931E-05 0.0002 105 IN-MODE 5 1.234085E+02 -1.773166E-05 0.0000 8.485657E-06 0.0000 106 IN-MODE 6 1.480653E+02 4.147678E-07 0.0000 5.970946E-09 0.0000 107 IN-MODE 7 1.514840E+02 6.723337E-23 0.0000 2.895635E-26 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 2.461011E+00 1.0000 4.003456E-01 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 399 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 3.400000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 4.849974E-01 0.0812 7.799850E-02 0.9455 102 IN-MODE 2 5.216362E+01 -1.222735E-03 -0.0002 2.648596E-03 0.0321 103 IN-MODE 3 6.452576E+01 5.049766E-20 0.0000 2.449457E-24 0.0000 104 IN-MODE 4 9.687958E+01 7.085810E-05 0.0000 1.001688E-04 0.0012 105 IN-MODE 5 1.234085E+02 6.214452E-06 0.0000 1.651916E-05 0.0002 106 IN-MODE 6 1.480653E+02 -2.101397E-07 0.0000 1.083343E-06 0.0000 107 IN-MODE 7 1.514840E+02 1.602507E-22 0.0000 7.753733E-27 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 5.969221E+00 1.0000 8.249500E-02 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 400 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 3.600000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 6.601623E-02 0.0083 2.451827E-03 0.8637 102 IN-MODE 2 5.216362E+01 1.354230E-02 0.0017 2.656480E-04 0.0936 103 IN-MODE 3 6.452576E+01 6.521475E-20 0.0000 4.530816E-26 0.0000 104 IN-MODE 4 9.687958E+01 4.150793E-04 0.0001 9.445139E-06 0.0033 105 IN-MODE 5 1.234085E+02 6.161861E-05 0.0000 1.857120E-06 0.0007 106 IN-MODE 6 1.480653E+02 2.182137E-06 0.0000 2.461580E-07 0.0001 107 IN-MODE 7 1.514840E+02 2.069641E-22 0.0000 1.435707E-28 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 7.968864E+00 1.0000 2.838838E-03 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 401 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 3.800000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 1.522801E+00 0.4731 1.004314E+00 0.9656 102 IN-MODE 2 5.216362E+01 1.170994E-02 0.0036 3.146549E-02 0.0303 103 IN-MODE 3 6.452576E+01 7.415481E-18 0.0000 2.049037E-20 0.0000 104 IN-MODE 4 9.687958E+01 4.897253E-04 0.0002 1.466827E-03 0.0014 105 IN-MODE 5 1.234085E+02 6.952795E-05 0.0000 2.156869E-04 0.0002 106 IN-MODE 6 1.480653E+02 8.193809E-07 0.0000 4.590455E-06 0.0000 107 IN-MODE 7 1.514840E+02 2.353131E-20 0.0000 6.502787E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 3.218880E+00 1.0000 1.040112E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 402 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC TIME = 4.000000E-01 GRID TYPE MODE FREQUENCY KINETIC KE/TOTAL POTENTIAL PE/TOTAL 101 IN-MODE 1 1.378483E+01 -1.410520E+00 -0.5156 5.627069E+00 0.9287 102 IN-MODE 2 5.216362E+01 9.766283E-03 0.0036 2.887713E-02 0.0048 103 IN-MODE 3 6.452576E+01 5.963856E-18 0.0000 2.542299E-20 0.0000 104 IN-MODE 4 9.687958E+01 3.859189E-04 0.0001 1.104127E-03 0.0002 105 IN-MODE 5 1.234085E+02 6.884718E-05 0.0000 1.517379E-04 0.0000 106 IN-MODE 6 1.480653E+02 3.929138E-06 0.0000 2.314277E-06 0.0000 107 IN-MODE 7 1.514840E+02 1.892460E-20 0.0000 8.065179E-23 0.0000 -------------- -------- -------------- -------- TOTAL ENERGY FOR THIS VECTOR 2.735660E+00 1.0000 6.058838E+00 1.0000 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 403 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 0.000000E+00 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -9.972804E-02 1.726345E-02 0.0 0.0 0.0 0.0 2 G -1.000000E-01 -1.394654E-13 0.0 0.0 0.0 0.0 3 G -9.972804E-02 -1.726345E-02 0.0 0.0 0.0 0.0 11 G -1.237933E-01 1.756579E-02 0.0 0.0 0.0 0.0 12 G -1.238578E-01 -1.308536E-13 0.0 0.0 0.0 0.0 13 G -1.237933E-01 -1.756579E-02 0.0 0.0 0.0 0.0 21 G -1.477356E-01 1.772534E-02 0.0 0.0 0.0 0.0 22 G -1.477749E-01 -4.259249E-14 0.0 0.0 0.0 0.0 23 G -1.477356E-01 -1.772534E-02 0.0 0.0 0.0 0.0 31 G -1.716337E-01 1.779227E-02 0.0 0.0 0.0 0.0 32 G -1.716518E-01 2.739462E-14 0.0 0.0 0.0 0.0 33 G -1.716337E-01 -1.779227E-02 0.0 0.0 0.0 0.0 41 G -1.954422E-01 1.780857E-02 0.0 0.0 0.0 0.0 42 G -1.954451E-01 5.117084E-14 0.0 0.0 0.0 0.0 43 G -1.954422E-01 -1.780857E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 404 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -8.795284E-02 1.602409E-02 0.0 0.0 0.0 0.0 2 G -8.815945E-02 1.631682E-13 0.0 0.0 0.0 0.0 3 G -8.795284E-02 -1.602409E-02 0.0 0.0 0.0 0.0 11 G -1.113268E-01 1.679232E-02 0.0 0.0 0.0 0.0 12 G -1.114743E-01 1.530982E-13 0.0 0.0 0.0 0.0 13 G -1.113268E-01 -1.679232E-02 0.0 0.0 0.0 0.0 21 G -1.350963E-01 1.725773E-02 0.0 0.0 0.0 0.0 22 G -1.352029E-01 4.987542E-14 0.0 0.0 0.0 0.0 23 G -1.350963E-01 -1.725773E-02 0.0 0.0 0.0 0.0 31 G -1.589202E-01 1.748394E-02 0.0 0.0 0.0 0.0 32 G -1.589781E-01 -3.198065E-14 0.0 0.0 0.0 0.0 33 G -1.589202E-01 -1.748394E-02 0.0 0.0 0.0 0.0 41 G -1.825437E-01 1.755037E-02 0.0 0.0 0.0 0.0 42 G -1.825542E-01 -5.978331E-14 0.0 0.0 0.0 0.0 43 G -1.825437E-01 -1.755037E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 405 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -6.643399E-02 1.299208E-02 0.0 0.0 0.0 0.0 2 G -6.656072E-02 2.530089E-14 0.0 0.0 0.0 0.0 3 G -6.643399E-02 -1.299208E-02 0.0 0.0 0.0 0.0 11 G -8.638323E-02 1.408971E-02 0.0 0.0 0.0 0.0 12 G -8.658586E-02 2.374118E-14 0.0 0.0 0.0 0.0 13 G -8.638323E-02 -1.408971E-02 0.0 0.0 0.0 0.0 21 G -1.071586E-01 1.478170E-02 0.0 0.0 0.0 0.0 22 G -1.073136E-01 7.747490E-15 0.0 0.0 0.0 0.0 23 G -1.071586E-01 -1.478170E-02 0.0 0.0 0.0 0.0 31 G -1.280980E-01 1.513290E-02 0.0 0.0 0.0 0.0 32 G -1.281866E-01 -4.936209E-15 0.0 0.0 0.0 0.0 33 G -1.280980E-01 -1.513290E-02 0.0 0.0 0.0 0.0 41 G -1.487699E-01 1.524107E-02 0.0 0.0 0.0 0.0 42 G -1.487866E-01 -9.242727E-15 0.0 0.0 0.0 0.0 43 G -1.487699E-01 -1.524107E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 406 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.646334E-02 7.373300E-03 0.0 0.0 0.0 0.0 2 G -3.653554E-02 1.512666E-14 0.0 0.0 0.0 0.0 3 G -3.646334E-02 -7.373300E-03 0.0 0.0 0.0 0.0 11 G -4.795023E-02 8.084430E-03 0.0 0.0 0.0 0.0 12 G -4.807768E-02 1.419389E-14 0.0 0.0 0.0 0.0 13 G -4.795023E-02 -8.084430E-03 0.0 0.0 0.0 0.0 21 G -6.002694E-02 8.545420E-03 0.0 0.0 0.0 0.0 22 G -6.012856E-02 4.631093E-15 0.0 0.0 0.0 0.0 23 G -6.002694E-02 -8.545420E-03 0.0 0.0 0.0 0.0 31 G -7.224899E-02 8.785705E-03 0.0 0.0 0.0 0.0 32 G -7.230903E-02 -2.952544E-15 0.0 0.0 0.0 0.0 33 G -7.224899E-02 -8.785705E-03 0.0 0.0 0.0 0.0 41 G -8.430611E-02 8.861772E-03 0.0 0.0 0.0 0.0 42 G -8.431764E-02 -5.527593E-15 0.0 0.0 0.0 0.0 43 G -8.430611E-02 -8.861772E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 407 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 8.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -4.473437E-03 5.936068E-04 0.0 0.0 0.0 0.0 2 G -4.480211E-03 -1.739595E-15 0.0 0.0 0.0 0.0 3 G -4.473437E-03 -5.936068E-04 0.0 0.0 0.0 0.0 11 G -5.178940E-03 5.303015E-04 0.0 0.0 0.0 0.0 12 G -5.172579E-03 -1.632200E-15 0.0 0.0 0.0 0.0 13 G -5.178940E-03 -5.303015E-04 0.0 0.0 0.0 0.0 21 G -5.756794E-03 4.718296E-04 0.0 0.0 0.0 0.0 22 G -5.745894E-03 -5.311615E-16 0.0 0.0 0.0 0.0 23 G -5.756794E-03 -4.718296E-04 0.0 0.0 0.0 0.0 31 G -6.269299E-03 4.331676E-04 0.0 0.0 0.0 0.0 32 G -6.260313E-03 3.417929E-16 0.0 0.0 0.0 0.0 33 G -6.269299E-03 -4.331676E-04 0.0 0.0 0.0 0.0 41 G -6.786382E-03 4.184372E-04 0.0 0.0 0.0 0.0 42 G -6.784355E-03 6.384404E-16 0.0 0.0 0.0 0.0 43 G -6.786382E-03 -4.184372E-04 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 408 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 9.999999E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.187666E-02 -6.535134E-03 0.0 0.0 0.0 0.0 2 G 3.194106E-02 -1.344566E-14 0.0 0.0 0.0 0.0 3 G 3.187666E-02 6.535134E-03 0.0 0.0 0.0 0.0 11 G 4.211361E-02 -7.194262E-03 0.0 0.0 0.0 0.0 12 G 4.223077E-02 -1.261663E-14 0.0 0.0 0.0 0.0 13 G 4.211361E-02 7.194262E-03 0.0 0.0 0.0 0.0 21 G 5.291033E-02 -7.624533E-03 0.0 0.0 0.0 0.0 22 G 5.300477E-02 -4.116968E-15 0.0 0.0 0.0 0.0 23 G 5.291033E-02 7.624533E-03 0.0 0.0 0.0 0.0 31 G 6.385115E-02 -7.850283E-03 0.0 0.0 0.0 0.0 32 G 6.390741E-02 2.624021E-15 0.0 0.0 0.0 0.0 33 G 6.385115E-02 7.850283E-03 0.0 0.0 0.0 0.0 41 G 7.464130E-02 -7.922236E-03 0.0 0.0 0.0 0.0 42 G 7.465217E-02 4.912730E-15 0.0 0.0 0.0 0.0 43 G 7.464130E-02 7.922236E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 409 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 1.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.724679E-02 -1.263359E-02 0.0 0.0 0.0 0.0 2 G 6.737154E-02 -1.985424E-14 0.0 0.0 0.0 0.0 3 G 6.724679E-02 1.263359E-02 0.0 0.0 0.0 0.0 11 G 8.627026E-02 -1.349478E-02 0.0 0.0 0.0 0.0 12 G 8.643888E-02 -1.863048E-14 0.0 0.0 0.0 0.0 13 G 8.627026E-02 1.349478E-02 0.0 0.0 0.0 0.0 21 G 1.057982E-01 -1.400431E-02 0.0 0.0 0.0 0.0 22 G 1.059164E-01 -6.081900E-15 0.0 0.0 0.0 0.0 23 G 1.057982E-01 1.400431E-02 0.0 0.0 0.0 0.0 31 G 1.253539E-01 -1.424664E-02 0.0 0.0 0.0 0.0 32 G 1.254164E-01 3.870877E-15 0.0 0.0 0.0 0.0 33 G 1.253539E-01 1.424664E-02 0.0 0.0 0.0 0.0 41 G 1.446799E-01 -1.431614E-02 0.0 0.0 0.0 0.0 42 G 1.446910E-01 7.249446E-15 0.0 0.0 0.0 0.0 43 G 1.446799E-01 1.431614E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 410 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 1.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 8.732010E-02 -1.617281E-02 0.0 0.0 0.0 0.0 2 G 8.747876E-02 -2.361819E-14 0.0 0.0 0.0 0.0 3 G 8.732010E-02 1.617281E-02 0.0 0.0 0.0 0.0 11 G 1.115118E-01 -1.719277E-02 0.0 0.0 0.0 0.0 12 G 1.117154E-01 -2.216190E-14 0.0 0.0 0.0 0.0 13 G 1.115118E-01 1.719277E-02 0.0 0.0 0.0 0.0 21 G 1.362442E-01 -1.778360E-02 0.0 0.0 0.0 0.0 22 G 1.363829E-01 -7.235705E-15 0.0 0.0 0.0 0.0 23 G 1.362442E-01 1.778360E-02 0.0 0.0 0.0 0.0 31 G 1.609718E-01 -1.805826E-02 0.0 0.0 0.0 0.0 32 G 1.610434E-01 4.602974E-15 0.0 0.0 0.0 0.0 33 G 1.609718E-01 1.805826E-02 0.0 0.0 0.0 0.0 41 G 1.854197E-01 -1.813487E-02 0.0 0.0 0.0 0.0 42 G 1.854322E-01 8.621402E-15 0.0 0.0 0.0 0.0 43 G 1.854197E-01 1.813487E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 411 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 1.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 8.532047E-02 -1.639792E-02 0.0 0.0 0.0 0.0 2 G 8.548176E-02 -2.722721E-14 0.0 0.0 0.0 0.0 3 G 8.532047E-02 1.639792E-02 0.0 0.0 0.0 0.0 11 G 1.102817E-01 -1.766360E-02 0.0 0.0 0.0 0.0 12 G 1.105207E-01 -2.554939E-14 0.0 0.0 0.0 0.0 13 G 1.102817E-01 1.766360E-02 0.0 0.0 0.0 0.0 21 G 1.361104E-01 -1.844217E-02 0.0 0.0 0.0 0.0 22 G 1.362870E-01 -8.340132E-15 0.0 0.0 0.0 0.0 23 G 1.361104E-01 1.844217E-02 0.0 0.0 0.0 0.0 31 G 1.620717E-01 -1.882836E-02 0.0 0.0 0.0 0.0 32 G 1.621700E-01 5.308913E-15 0.0 0.0 0.0 0.0 33 G 1.620717E-01 1.882836E-02 0.0 0.0 0.0 0.0 41 G 1.877147E-01 -1.894458E-02 0.0 0.0 0.0 0.0 42 G 1.877328E-01 9.942494E-15 0.0 0.0 0.0 0.0 43 G 1.877147E-01 1.894458E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 412 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 1.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.830145E-02 -1.353013E-02 0.0 0.0 0.0 0.0 2 G 6.843473E-02 -2.689852E-14 0.0 0.0 0.0 0.0 3 G 6.830145E-02 1.353013E-02 0.0 0.0 0.0 0.0 11 G 8.918646E-02 -1.472755E-02 0.0 0.0 0.0 0.0 12 G 8.940586E-02 -2.524088E-14 0.0 0.0 0.0 0.0 13 G 8.918646E-02 1.472755E-02 0.0 0.0 0.0 0.0 21 G 1.109962E-01 -1.548744E-02 0.0 0.0 0.0 0.0 22 G 1.111656E-01 -8.236548E-15 0.0 0.0 0.0 0.0 23 G 1.109962E-01 1.548744E-02 0.0 0.0 0.0 0.0 31 G 1.329997E-01 -1.587540E-02 0.0 0.0 0.0 0.0 32 G 1.330972E-01 5.248948E-15 0.0 0.0 0.0 0.0 33 G 1.329997E-01 1.587540E-02 0.0 0.0 0.0 0.0 41 G 1.547148E-01 -1.599568E-02 0.0 0.0 0.0 0.0 42 G 1.547332E-01 9.828128E-15 0.0 0.0 0.0 0.0 43 G 1.547148E-01 1.599568E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 413 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.399038E-02 -8.339021E-03 0.0 0.0 0.0 0.0 2 G 4.407183E-02 -1.405417E-14 0.0 0.0 0.0 0.0 3 G 4.399038E-02 8.339021E-03 0.0 0.0 0.0 0.0 11 G 5.661008E-02 -8.944025E-03 0.0 0.0 0.0 0.0 12 G 5.672615E-02 -1.318797E-14 0.0 0.0 0.0 0.0 13 G 5.661008E-02 8.944025E-03 0.0 0.0 0.0 0.0 21 G 6.962090E-02 -9.310609E-03 0.0 0.0 0.0 0.0 22 G 6.970486E-02 -4.304766E-15 0.0 0.0 0.0 0.0 23 G 6.962090E-02 9.310609E-03 0.0 0.0 0.0 0.0 31 G 8.267704E-02 -9.489391E-03 0.0 0.0 0.0 0.0 32 G 8.272278E-02 2.740836E-15 0.0 0.0 0.0 0.0 33 G 8.267704E-02 9.489391E-03 0.0 0.0 0.0 0.0 41 G 9.557650E-02 -9.542124E-03 0.0 0.0 0.0 0.0 42 G 9.558482E-02 5.132756E-15 0.0 0.0 0.0 0.0 43 G 9.557650E-02 9.542124E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 414 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.101861E-02 -1.591423E-03 0.0 0.0 0.0 0.0 2 G 1.103443E-02 2.417095E-15 0.0 0.0 0.0 0.0 3 G 1.101861E-02 1.591423E-03 0.0 0.0 0.0 0.0 11 G 1.306175E-02 -1.511429E-03 0.0 0.0 0.0 0.0 12 G 1.305600E-02 2.267720E-15 0.0 0.0 0.0 0.0 13 G 1.306175E-02 1.511429E-03 0.0 0.0 0.0 0.0 21 G 1.490774E-02 -1.429944E-03 0.0 0.0 0.0 0.0 22 G 1.489325E-02 7.366598E-16 0.0 0.0 0.0 0.0 23 G 1.490774E-02 1.429944E-03 0.0 0.0 0.0 0.0 31 G 1.664969E-02 -1.373967E-03 0.0 0.0 0.0 0.0 32 G 1.663692E-02 -4.770123E-16 0.0 0.0 0.0 0.0 33 G 1.664969E-02 1.373967E-03 0.0 0.0 0.0 0.0 41 G 1.839340E-02 -1.352133E-03 0.0 0.0 0.0 0.0 42 G 1.839045E-02 -8.895125E-16 0.0 0.0 0.0 0.0 43 G 1.839340E-02 1.352133E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 415 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.020194E-02 5.780797E-03 0.0 0.0 0.0 0.0 2 G -3.025798E-02 9.428185E-15 0.0 0.0 0.0 0.0 3 G -3.020194E-02 -5.780797E-03 0.0 0.0 0.0 0.0 11 G -3.899157E-02 6.224465E-03 0.0 0.0 0.0 0.0 12 G -3.907504E-02 8.847045E-15 0.0 0.0 0.0 0.0 13 G -3.899157E-02 -6.224465E-03 0.0 0.0 0.0 0.0 21 G -4.809060E-02 6.498874E-03 0.0 0.0 0.0 0.0 22 G -4.815273E-02 2.887744E-15 0.0 0.0 0.0 0.0 23 G -4.809060E-02 -6.498874E-03 0.0 0.0 0.0 0.0 31 G -5.724084E-02 6.635814E-03 0.0 0.0 0.0 0.0 32 G -5.727564E-02 -1.838535E-15 0.0 0.0 0.0 0.0 33 G -5.724084E-02 -6.635814E-03 0.0 0.0 0.0 0.0 41 G -6.628016E-02 6.677263E-03 0.0 0.0 0.0 0.0 42 G -6.628661E-02 -3.442979E-15 0.0 0.0 0.0 0.0 43 G -6.628016E-02 -6.677263E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 416 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -6.623100E-02 1.212600E-02 0.0 0.0 0.0 0.0 2 G -6.635091E-02 1.549803E-14 0.0 0.0 0.0 0.0 3 G -6.623100E-02 -1.212600E-02 0.0 0.0 0.0 0.0 11 G -8.425346E-02 1.282643E-02 0.0 0.0 0.0 0.0 12 G -8.439713E-02 1.454327E-14 0.0 0.0 0.0 0.0 13 G -8.425346E-02 -1.282643E-02 0.0 0.0 0.0 0.0 21 G -1.025854E-01 1.321812E-02 0.0 0.0 0.0 0.0 22 G -1.026791E-01 4.750418E-15 0.0 0.0 0.0 0.0 23 G -1.025854E-01 -1.321812E-02 0.0 0.0 0.0 0.0 31 G -1.208733E-01 1.339316E-02 0.0 0.0 0.0 0.0 32 G -1.209196E-01 -3.016995E-15 0.0 0.0 0.0 0.0 33 G -1.208733E-01 -1.339316E-02 0.0 0.0 0.0 0.0 41 G -1.389619E-01 1.343963E-02 0.0 0.0 0.0 0.0 42 G -1.389697E-01 -5.652906E-15 0.0 0.0 0.0 0.0 43 G -1.389619E-01 -1.343963E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 417 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -8.325891E-02 1.578978E-02 0.0 0.0 0.0 0.0 2 G -8.341487E-02 2.637916E-14 0.0 0.0 0.0 0.0 3 G -8.325891E-02 -1.578978E-02 0.0 0.0 0.0 0.0 11 G -1.071443E-01 1.692403E-02 0.0 0.0 0.0 0.0 12 G -1.073635E-01 2.475326E-14 0.0 0.0 0.0 0.0 13 G -1.071443E-01 -1.692403E-02 0.0 0.0 0.0 0.0 21 G -1.317395E-01 1.760529E-02 0.0 0.0 0.0 0.0 22 G -1.318961E-01 8.079899E-15 0.0 0.0 0.0 0.0 23 G -1.317395E-01 -1.760529E-02 0.0 0.0 0.0 0.0 31 G -1.564009E-01 1.793431E-02 0.0 0.0 0.0 0.0 32 G -1.564853E-01 -5.143926E-15 0.0 0.0 0.0 0.0 33 G -1.564009E-01 -1.793431E-02 0.0 0.0 0.0 0.0 41 G -1.807654E-01 1.803035E-02 0.0 0.0 0.0 0.0 42 G -1.807806E-01 -9.633371E-15 0.0 0.0 0.0 0.0 43 G -1.807654E-01 -1.803035E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 418 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -8.312082E-02 1.634764E-02 0.0 0.0 0.0 0.0 2 G -8.328048E-02 3.078598E-14 0.0 0.0 0.0 0.0 3 G -8.312082E-02 -1.634764E-02 0.0 0.0 0.0 0.0 11 G -1.082833E-01 1.776134E-02 0.0 0.0 0.0 0.0 12 G -1.085427E-01 2.888862E-14 0.0 0.0 0.0 0.0 13 G -1.082833E-01 -1.776134E-02 0.0 0.0 0.0 0.0 21 G -1.345299E-01 1.865741E-02 0.0 0.0 0.0 0.0 22 G -1.347300E-01 9.427463E-15 0.0 0.0 0.0 0.0 23 G -1.345299E-01 -1.865741E-02 0.0 0.0 0.0 0.0 31 G -1.610032E-01 1.911473E-02 0.0 0.0 0.0 0.0 32 G -1.611184E-01 -6.007422E-15 0.0 0.0 0.0 0.0 33 G -1.610032E-01 -1.911473E-02 0.0 0.0 0.0 0.0 41 G -1.871356E-01 1.925642E-02 0.0 0.0 0.0 0.0 42 G -1.871573E-01 -1.124757E-14 0.0 0.0 0.0 0.0 43 G -1.871356E-01 -1.925642E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 419 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -7.334013E-02 1.415126E-02 0.0 0.0 0.0 0.0 2 G -7.347896E-02 2.433973E-14 0.0 0.0 0.0 0.0 3 G -7.334013E-02 -1.415126E-02 0.0 0.0 0.0 0.0 11 G -9.492256E-02 1.526721E-02 0.0 0.0 0.0 0.0 12 G -9.513187E-02 2.283980E-14 0.0 0.0 0.0 0.0 13 G -9.492256E-02 -1.526721E-02 0.0 0.0 0.0 0.0 21 G -1.172900E-01 1.595861E-02 0.0 0.0 0.0 0.0 22 G -1.174462E-01 7.455251E-15 0.0 0.0 0.0 0.0 23 G -1.172900E-01 -1.595861E-02 0.0 0.0 0.0 0.0 31 G -1.397903E-01 1.630425E-02 0.0 0.0 0.0 0.0 32 G -1.398779E-01 -4.746694E-15 0.0 0.0 0.0 0.0 33 G -1.397903E-01 -1.630425E-02 0.0 0.0 0.0 0.0 41 G -1.620132E-01 1.640915E-02 0.0 0.0 0.0 0.0 42 G -1.620294E-01 -8.889507E-15 0.0 0.0 0.0 0.0 43 G -1.620132E-01 -1.640915E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 420 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -5.140954E-02 9.338117E-03 0.0 0.0 0.0 0.0 2 G -5.150254E-02 1.258884E-14 0.0 0.0 0.0 0.0 3 G -5.140954E-02 -9.338117E-03 0.0 0.0 0.0 0.0 11 G -6.523303E-02 9.843878E-03 0.0 0.0 0.0 0.0 12 G -6.533979E-02 1.181332E-14 0.0 0.0 0.0 0.0 13 G -6.523303E-02 -9.843878E-03 0.0 0.0 0.0 0.0 21 G -7.924006E-02 1.011666E-02 0.0 0.0 0.0 0.0 22 G -7.930674E-02 3.858233E-15 0.0 0.0 0.0 0.0 23 G -7.924006E-02 -1.011666E-02 0.0 0.0 0.0 0.0 31 G -9.318225E-02 1.023239E-02 0.0 0.0 0.0 0.0 32 G -9.321337E-02 -2.451492E-15 0.0 0.0 0.0 0.0 33 G -9.318225E-02 -1.023239E-02 0.0 0.0 0.0 0.0 41 G -1.069730E-01 1.026082E-02 0.0 0.0 0.0 0.0 42 G -1.069779E-01 -4.593217E-15 0.0 0.0 0.0 0.0 43 G -1.069730E-01 -1.026082E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 421 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.378143E-02 2.398395E-03 0.0 0.0 0.0 0.0 2 G -1.380486E-02 1.714604E-15 0.0 0.0 0.0 0.0 3 G -1.378143E-02 -2.398395E-03 0.0 0.0 0.0 0.0 11 G -1.725734E-02 2.489902E-03 0.0 0.0 0.0 0.0 12 G -1.727912E-02 1.609001E-15 0.0 0.0 0.0 0.0 13 G -1.725734E-02 -2.489902E-03 0.0 0.0 0.0 0.0 21 G -2.073115E-02 2.531190E-03 0.0 0.0 0.0 0.0 22 G -2.074246E-02 5.265589E-16 0.0 0.0 0.0 0.0 23 G -2.073115E-02 -2.531190E-03 0.0 0.0 0.0 0.0 31 G -2.416860E-02 2.544072E-03 0.0 0.0 0.0 0.0 32 G -2.417258E-02 -3.322197E-16 0.0 0.0 0.0 0.0 33 G -2.416860E-02 -2.544072E-03 0.0 0.0 0.0 0.0 41 G -2.757334E-02 2.545432E-03 0.0 0.0 0.0 0.0 42 G -2.757377E-02 -6.235357E-16 0.0 0.0 0.0 0.0 43 G -2.757334E-02 -2.545432E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 422 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.919014E-02 -7.703990E-03 0.0 0.0 0.0 0.0 2 G 2.907512E-02 1.148530E-12 0.0 0.0 0.0 0.0 3 G 2.919014E-02 7.703990E-03 0.0 0.0 0.0 0.0 11 G 4.392191E-02 -9.520222E-03 0.0 0.0 0.0 0.0 12 G 4.430058E-02 1.077630E-12 0.0 0.0 0.0 0.0 13 G 4.392191E-02 9.520222E-03 0.0 0.0 0.0 0.0 21 G 5.976448E-02 -1.050402E-02 0.0 0.0 0.0 0.0 22 G 6.000220E-02 3.509206E-13 0.0 0.0 0.0 0.0 23 G 5.976448E-02 1.050402E-02 0.0 0.0 0.0 0.0 31 G 7.540994E-02 -1.092880E-02 0.0 0.0 0.0 0.0 32 G 7.552312E-02 -2.253498E-13 0.0 0.0 0.0 0.0 33 G 7.540994E-02 1.092880E-02 0.0 0.0 0.0 0.0 41 G 9.053128E-02 -1.103695E-02 0.0 0.0 0.0 0.0 42 G 9.054982E-02 -4.210989E-13 0.0 0.0 0.0 0.0 43 G 9.053128E-02 1.103695E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 423 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE BBASIC 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.387250E-02 -5.085935E-04 0.0 0.0 0.0 0.0 2 G 1.245541E-02 -1.279549E-12 0.0 0.0 0.0 0.0 3 G 1.387250E-02 5.085935E-04 0.0 0.0 0.0 0.0 11 G 2.296061E-02 -4.726507E-03 0.0 0.0 0.0 0.0 12 G 2.376428E-02 -1.200563E-12 0.0 0.0 0.0 0.0 13 G 2.296061E-02 4.726507E-03 0.0 0.0 0.0 0.0 21 G 3.686199E-02 -7.307916E-03 0.0 0.0 0.0 0.0 22 G 3.745103E-02 -3.909690E-13 0.0 0.0 0.0 0.0 23 G 3.686199E-02 7.307916E-03 0.0 0.0 0.0 0.0 31 G 5.114086E-02 -8.576256E-03 0.0 0.0 0.0 0.0 32 G 5.146459E-02 2.510254E-13 0.0 0.0 0.0 0.0 33 G 5.114086E-02 8.576256E-03 0.0 0.0 0.0 0.0 41 G 6.433301E-02 -8.953019E-03 0.0 0.0 0.0 0.0 42 G 6.439216E-02 4.690989E-13 0.0 0.0 0.0 0.0 43 G 6.433301E-02 8.953019E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 424 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 0.000000E+00 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -9.972804E-02 1.726345E-02 0.0 0.0 0.0 0.0 2 G -1.000000E-01 -1.394654E-13 0.0 0.0 0.0 0.0 3 G -9.972804E-02 -1.726345E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 425 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 0.000000E+00 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -3.502298E-03 1.411544E-04 7.447808E-14 -1.852810E-05 5.900777E-06 -1.318195E-06 107 M -2.768213E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 426 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -8.795284E-02 1.602409E-02 0.0 0.0 0.0 0.0 2 G -8.815945E-02 1.631682E-13 0.0 0.0 0.0 0.0 3 G -8.795284E-02 -1.602409E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 427 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 2.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -9.069964E-03 1.481460E-04 -8.707308E-14 -1.729974E-05 4.900442E-06 -4.285462E-07 107 M 3.234609E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 428 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -6.643399E-02 1.299208E-02 0.0 0.0 0.0 0.0 2 G -6.656072E-02 2.530089E-14 0.0 0.0 0.0 0.0 3 G -6.643399E-02 -1.299208E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 429 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 4.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.303721E-02 1.116770E-04 -1.346410E-14 -1.529879E-05 3.736431E-06 7.156833E-07 107 M 4.984140E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 430 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.646334E-02 7.373300E-03 0.0 0.0 0.0 0.0 2 G -3.653554E-02 1.512666E-14 0.0 0.0 0.0 0.0 3 G -3.646334E-02 -7.373300E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 431 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 6.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -8.481004E-03 2.573092E-05 -8.049877E-15 -4.980948E-06 5.939938E-07 1.238197E-06 107 M 2.978374E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 432 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 8.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -4.473437E-03 5.936068E-04 0.0 0.0 0.0 0.0 2 G -4.480211E-03 -1.739595E-15 0.0 0.0 0.0 0.0 3 G -4.473437E-03 -5.936068E-04 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 433 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 8.000000E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 8.059044E-04 6.053644E-05 9.285304E-16 -6.805765E-06 2.378021E-06 -8.905452E-07 107 M -3.430763E-17 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 434 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 9.999999E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.187666E-02 -6.535134E-03 0.0 0.0 0.0 0.0 2 G 3.194106E-02 -1.344566E-14 0.0 0.0 0.0 0.0 3 G 3.187666E-02 6.535134E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 435 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 9.999999E-02 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 7.868089E-03 -1.259585E-05 7.154619E-15 3.504387E-06 -7.718312E-08 -1.405755E-06 107 M -2.646512E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 436 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 1.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.724679E-02 -1.263359E-02 0.0 0.0 0.0 0.0 2 G 6.737154E-02 -1.985424E-14 0.0 0.0 0.0 0.0 3 G 6.724679E-02 1.263359E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 437 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 1.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.013220E-02 -2.084327E-04 1.056192E-14 2.566495E-05 -7.584217E-06 1.010183E-06 107 M -3.911367E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 438 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 1.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 8.732010E-02 -1.617281E-02 0.0 0.0 0.0 0.0 2 G 8.747876E-02 -2.361819E-14 0.0 0.0 0.0 0.0 3 G 8.732010E-02 1.617281E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 439 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 1.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.196805E-02 -2.930799E-04 1.256233E-14 3.587080E-05 -1.110321E-05 2.165581E-06 107 M -4.652797E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 440 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 1.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 8.532047E-02 -1.639792E-02 0.0 0.0 0.0 0.0 2 G 8.548176E-02 -2.722721E-14 0.0 0.0 0.0 0.0 3 G 8.532047E-02 1.639792E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 441 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 1.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.497657E-02 -1.976548E-04 1.448419E-14 2.630747E-05 -7.175579E-06 4.320422E-08 107 M -5.361175E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 442 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 1.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.830145E-02 -1.353013E-02 0.0 0.0 0.0 0.0 2 G 6.843473E-02 -2.689852E-14 0.0 0.0 0.0 0.0 3 G 6.830145E-02 1.353013E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 443 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 1.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.423243E-02 -1.030783E-04 1.431483E-14 1.451511E-05 -3.068757E-06 -1.390116E-06 107 M -5.298329E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 444 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.399038E-02 -8.339021E-03 0.0 0.0 0.0 0.0 2 G 4.407183E-02 -1.405417E-14 0.0 0.0 0.0 0.0 3 G 4.399038E-02 8.339021E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 445 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 2.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 7.144628E-03 -1.156538E-04 7.477759E-15 1.441810E-05 -4.207222E-06 4.365542E-07 107 M -2.768886E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 446 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.101861E-02 -1.591423E-03 0.0 0.0 0.0 0.0 2 G 1.103443E-02 2.417095E-15 0.0 0.0 0.0 0.0 3 G 1.101861E-02 1.591423E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 447 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 2.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.036156E-03 -1.039665E-04 -1.291762E-15 1.230884E-05 -4.485978E-06 1.840309E-06 107 M 4.772062E-17 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 448 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.020194E-02 5.780797E-03 0.0 0.0 0.0 0.0 2 G -3.025798E-02 9.428185E-15 0.0 0.0 0.0 0.0 3 G -3.020194E-02 -5.780797E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 449 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 2.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -5.256406E-03 6.420443E-05 -5.015437E-15 -8.698770E-06 2.475254E-06 -1.331077E-07 107 M 1.856257E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 450 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -6.623100E-02 1.212600E-02 0.0 0.0 0.0 0.0 2 G -6.635091E-02 1.549803E-14 0.0 0.0 0.0 0.0 3 G -6.623100E-02 -1.212600E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 451 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 2.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -8.177500E-03 2.511166E-04 -8.239837E-15 -3.097786E-05 9.701261E-06 -2.105300E-06 107 M 3.052015E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 452 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 2.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -8.325891E-02 1.578978E-02 0.0 0.0 0.0 0.0 2 G -8.341487E-02 2.637916E-14 0.0 0.0 0.0 0.0 3 G -8.325891E-02 -1.578978E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 453 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 2.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.337285E-02 2.379809E-04 -1.403470E-14 -2.927179E-05 8.383018E-06 -7.270245E-07 107 M 5.197100E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 454 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -8.312082E-02 1.634764E-02 0.0 0.0 0.0 0.0 2 G -8.328048E-02 3.078598E-14 0.0 0.0 0.0 0.0 3 G -8.312082E-02 -1.634764E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 455 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 3.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.680453E-02 1.258263E-04 -1.638198E-14 -1.801383E-05 4.180418E-06 1.214494E-06 107 M 6.062724E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 456 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -7.334013E-02 1.415126E-02 0.0 0.0 0.0 0.0 2 G -7.347896E-02 2.433973E-14 0.0 0.0 0.0 0.0 3 G -7.334013E-02 -1.415126E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 457 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 3.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.321975E-02 1.560835E-04 -1.294927E-14 -2.149815E-05 5.756942E-06 1.368272E-07 107 M 4.793078E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 458 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -5.140954E-02 9.338117E-03 0.0 0.0 0.0 0.0 2 G -5.150254E-02 1.258884E-14 0.0 0.0 0.0 0.0 3 G -5.140954E-02 -9.338117E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 459 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 3.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -5.873995E-03 2.187273E-04 -6.694912E-15 -2.548863E-05 8.032360E-06 -1.843037E-06 107 M 2.481127E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 460 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.378143E-02 2.398395E-03 0.0 0.0 0.0 0.0 2 G -1.380486E-02 1.714604E-15 0.0 0.0 0.0 0.0 3 G -1.378143E-02 -2.398395E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 461 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 3.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.041443E-03 6.927052E-05 -9.097367E-16 -7.826805E-06 2.693203E-06 -8.785328E-07 107 M 3.372258E-17 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 462 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 3.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.919014E-02 -7.703990E-03 0.0 0.0 0.0 0.0 2 G 2.907512E-02 1.148530E-12 0.0 0.0 0.0 0.0 3 G 2.919014E-02 7.703990E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 463 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 3.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 2.107779E-02 -7.538978E-04 -6.132289E-13 9.753711E-05 -2.902425E-05 3.793839E-06 107 M 2.279183E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 464 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.387250E-02 -5.085935E-04 0.0 0.0 0.0 0.0 2 G 1.245541E-02 -1.279549E-12 0.0 0.0 0.0 0.0 3 G 1.387250E-02 5.085935E-04 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 465 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 4.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 4.989208E-02 -7.222245E-04 6.829608E-13 8.462327E-05 -2.434424E-05 2.693758E-06 107 M -2.537367E-14 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 466 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -5.077145E-02 7.639633E-03 0.0 0.0 0.0 0.0 2 G -5.247950E-02 -1.375377E-13 0.0 0.0 0.0 0.0 3 G -5.077145E-02 -7.639633E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 467 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 4.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 6.880993E-02 -6.963460E-04 7.324331E-14 9.614136E-05 -2.618213E-05 -3.130738E-07 107 M -2.711757E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 468 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.400001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.718806E-01 3.065482E-02 0.0 0.0 0.0 0.0 2 G -1.738018E-01 -8.560768E-14 0.0 0.0 0.0 0.0 3 G -1.718806E-01 -3.065482E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 469 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 4.400001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 4.760624E-02 -5.209033E-04 4.559160E-14 7.004914E-05 -1.792651E-05 -1.779158E-06 107 M -1.687333E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 470 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.600001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.316626E-01 6.272717E-02 0.0 0.0 0.0 0.0 2 G -3.338889E-01 -1.623141E-14 0.0 0.0 0.0 0.0 3 G -3.316626E-01 -6.272717E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 471 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 4.600001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.083902E-02 -4.758819E-04 8.666306E-15 5.433203E-05 -1.603273E-05 2.435841E-06 107 M -3.208959E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 472 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 4.800001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -5.227460E-01 9.949066E-02 0.0 0.0 0.0 0.0 2 G -5.253527E-01 3.035843E-14 0.0 0.0 0.0 0.0 3 G -5.227460E-01 -9.949066E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 473 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 4.800001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -2.095175E-02 1.802666E-04 -1.609164E-14 -2.469380E-05 4.541595E-06 3.254605E-06 107 M 5.948923E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 474 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.000001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -7.030305E-01 1.323348E-01 0.0 0.0 0.0 0.0 2 G -7.059575E-01 8.512096E-14 0.0 0.0 0.0 0.0 3 G -7.030305E-01 -1.323348E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 475 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 5.000001E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -4.283190E-02 8.591897E-04 -4.523932E-14 -1.043028E-04 3.012764E-05 -3.105788E-06 107 M 1.675388E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 476 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -8.221683E-01 1.545146E-01 0.0 0.0 0.0 0.0 2 G -8.252974E-01 1.222438E-13 0.0 0.0 0.0 0.0 3 G -8.221683E-01 -1.545146E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 477 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 5.200000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.139826E-02 1.048341E-03 -6.498982E-14 -1.352736E-04 4.096862E-05 -6.390911E-06 107 M 2.406627E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 478 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -8.581591E-01 1.628486E-01 0.0 0.0 0.0 0.0 2 G -8.613840E-01 1.316255E-13 0.0 0.0 0.0 0.0 3 G -8.581591E-01 -1.628486E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 479 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 5.400000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.417373E-02 1.067025E-03 -6.996147E-14 -1.400385E-04 3.861932E-05 -9.723457E-07 107 M 2.589389E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 480 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -8.139981E-01 1.551891E-01 0.0 0.0 0.0 0.0 2 G -8.171533E-01 1.357955E-13 0.0 0.0 0.0 0.0 3 G -8.139981E-01 -1.551891E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 481 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 5.600000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -7.051826E-02 9.343317E-04 -7.220449E-14 -1.170609E-04 3.012759E-05 2.332487E-06 107 M 2.673166E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 482 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 5.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -7.056035E-01 1.331416E-01 0.0 0.0 0.0 0.0 2 G -7.085238E-01 9.333018E-14 0.0 0.0 0.0 0.0 3 G -7.056035E-01 -1.331416E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 483 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 5.800000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -4.656343E-02 6.419860E-04 -4.961513E-14 -8.401654E-05 2.471687E-05 -2.677927E-06 107 M 1.837162E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 484 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -5.459657E-01 1.017326E-01 0.0 0.0 0.0 0.0 2 G -5.485846E-01 1.858520E-14 0.0 0.0 0.0 0.0 3 G -5.459657E-01 -1.017326E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 485 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 6.000000E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -1.359513E-02 4.370983E-04 -9.812457E-15 -5.811921E-05 1.896575E-05 -4.979580E-06 107 M 3.630052E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 486 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.199999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.496642E-01 6.553696E-02 0.0 0.0 0.0 0.0 2 G -3.519410E-01 -2.236176E-14 0.0 0.0 0.0 0.0 3 G -3.496642E-01 -6.553696E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 487 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 6.199999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 1.368358E-02 -5.453932E-05 1.194270E-14 1.415039E-05 -4.927067E-06 1.223339E-06 107 M -4.417263E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 488 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.399999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.638073E-01 3.120855E-02 0.0 0.0 0.0 0.0 2 G -1.657290E-01 -6.552142E-14 0.0 0.0 0.0 0.0 3 G -1.638073E-01 -3.120855E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 489 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 6.399999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 3.667696E-02 -9.033277E-04 3.488309E-14 1.134082E-04 -3.400336E-05 5.382436E-06 107 M -1.291549E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 490 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.599999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -4.537180E-02 7.528332E-03 0.0 0.0 0.0 0.0 2 G -4.705777E-02 -1.266143E-13 0.0 0.0 0.0 0.0 3 G -4.537180E-02 -7.528332E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 491 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 6.599999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 6.243106E-02 -1.119353E-03 6.741869E-14 1.335028E-04 -3.719988E-05 1.885575E-06 107 M -2.496785E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 492 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.799999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.700558E-03 -1.679823E-03 0.0 0.0 0.0 0.0 2 G -5.316249E-03 -1.437578E-13 0.0 0.0 0.0 0.0 3 G -3.700558E-03 1.679823E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 493 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 6.799999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 7.852356E-02 -7.632566E-04 7.653881E-14 1.072532E-04 -2.874502E-05 -1.195425E-06 107 M -2.832800E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 494 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 6.999999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.415224E-02 3.115468E-03 0.0 0.0 0.0 0.0 2 G -2.580528E-02 -1.250651E-13 0.0 0.0 0.0 0.0 3 G -2.415224E-02 -3.115468E-03 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 495 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 6.999999E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 6.898953E-02 -9.418462E-04 6.657629E-14 1.285673E-04 -3.585582E-05 1.461633E-06 107 M -2.464275E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 496 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.199998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.187567E-01 2.253920E-02 0.0 0.0 0.0 0.0 2 G -1.205863E-01 -9.294520E-14 0.0 0.0 0.0 0.0 3 G -1.187567E-01 -2.253920E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 497 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 7.199998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 4.404890E-02 -1.131060E-03 4.949526E-14 1.301134E-04 -3.799698E-05 4.834679E-06 107 M -1.833624E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 498 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.399998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -2.896703E-01 5.446753E-02 0.0 0.0 0.0 0.0 2 G -2.918324E-01 -3.678723E-14 0.0 0.0 0.0 0.0 3 G -2.896703E-01 -5.446753E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 499 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 7.399998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M 2.108377E-02 -3.501006E-04 1.961404E-14 4.419318E-05 -1.381283E-05 2.518928E-06 107 M -7.259709E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 500 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.599998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -4.887786E-01 9.096155E-02 0.0 0.0 0.0 0.0 2 G -4.913020E-01 1.357767E-14 0.0 0.0 0.0 0.0 3 G -4.887786E-01 -9.096155E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 501 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 7.599998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -3.830981E-03 4.507588E-04 -7.171281E-15 -4.275948E-05 1.358872E-05 -3.444022E-06 107 M 2.663723E-16 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 502 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.799998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -6.614697E-01 1.243436E-01 0.0 0.0 0.0 0.0 2 G -6.643022E-01 6.231484E-14 0.0 0.0 0.0 0.0 3 G -6.614697E-01 -1.243436E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 503 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 7.799998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -3.711847E-02 5.408580E-04 -3.308820E-14 -7.678050E-05 2.368623E-05 -3.983683E-06 107 M 1.224406E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 504 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT BBASIC TIME = 7.999998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -7.862128E-01 1.497113E-01 0.0 0.0 0.0 0.0 2 G -7.893048E-01 1.268578E-13 0.0 0.0 0.0 0.0 3 G -7.862128E-01 -1.497113E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 505 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A SUBSTRUCTURE MB 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 COMPONENT MB TIME = 7.999998E-01 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 M -6.574744E-02 7.486821E-04 -6.745541E-14 -1.043594E-04 2.742406E-05 1.316383E-06 107 M 2.497234E-15 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 506 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A 0 SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 ABASIC B 0 0 0 0 3 3 3 3 3 3 3 3 3 3 4 3 3 3 3 2 BBASIC B 0 0 0 0 4 3 3 3 3 3 3 3 3 3 4 3 3 3 3 3 MA M 0 0 1 4 5 3 3 3 3 3 3 3 4 3 4 MB M 0 0 2 3 5 3 3 3 3 3 3 3 4 3 5 MCOMB C 0 0 3 0 6 3 3 3 3 3 3 3 3 3 3 4 3 3 3 3 6 RTRUSS M 0 0 5 0 0 3 3 3 3 3 3 3 4 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 386048 WORDS. OR = 377 BLOCKS. OR = 77 PERCENT. 0*** HIGHEST BLOCK USED = 111 * * * END OF JOB * * * 1 JOB TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS DATE: 5/17/95 END TIME: 15:26:55 TOTAL WALL CLOCK TIME 4 SEC. ================================================ FILE: demoout/d02035a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 $ NASTRAN FILES=INP1 ID D02035A,NASTRAN APP DISP,SUBS SOL 9,0 TIME 40 DIAG 14,23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE3 PASSWORD = MDLSYN SOF(1) = FT19,500 $ DEC VAX BRECOVER ABASIC SOFPRINT TOC ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 88 2 PARAM //*ADD*/DRY/1 /0 $ 3 LABEL LBSBEG $ 4 ALTER 93,137 5 PARAM //*NOP*/ALWAYS=-1 $ 6 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,/PG,,,,/ 7 LUSET/NSKIP $ 8 SSG2 USET,GM, ,KFS,GO,,PG/QR,PO,PS,PL $ 9 RCOVR3 ,PG,PS, , /UDVT,QAS,PPT,PST, , ,TOL /9 /*ABASIC */ 10 NOUE $ 11 ALTER 139 12 UMERGE USET,QAS,/QGS/*G*/*A*/*O* $ 13 ADD QP ,QGS/QGT/ (1.0,0.0)/(1.0,0.0) $ 14 EQUIV QGT,QP /ALWAYS $ 15 EQUIV CASECC,CASEXX/ALWAYS $ 16 ALTER 152,154 17 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 18 * */* */* * $ 19 LABEL LBSEND $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 3 LABEL = RECOVER ABASIC , RUN 5, PHASE 3, RF 9 4 MAXLINES = 100000 5 IC = 521 6 TSTEP= 40 7 LOAD = 980 8 DISP = ALL 9 ELFO = ALL 10 STRE = ALL 11 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 62, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CROD 1 1 1 2 2- CROD 2 1 2 3 3- CROD 11 1 11 12 4- CROD 12 1 12 13 5- CROD 21 1 21 22 6- CROD 22 1 22 23 7- CROD 31 1 31 32 8- CROD 32 1 32 33 9- CROD 41 1 41 42 10- CROD 42 1 42 43 11- CROD 51 1 51 52 12- CROD 52 1 52 53 13- CROD 111 1 1 11 14- CROD 112 1 2 12 15- CROD 113 1 3 13 16- CROD 121 1 11 21 17- CROD 122 1 12 22 18- CROD 123 1 13 23 19- CROD 131 1 21 31 20- CROD 132 1 22 32 21- CROD 133 1 23 33 22- CROD 141 1 31 41 23- CROD 142 1 32 42 24- CROD 143 1 33 43 25- CROD 151 1 41 51 26- CROD 152 1 42 52 27- CROD 153 1 43 53 28- CROD 211 1 2 11 29- CROD 212 1 2 13 30- CROD 221 1 12 21 31- CROD 222 1 12 23 32- CROD 231 1 22 31 33- CROD 232 1 22 33 34- CROD 241 1 32 41 35- CROD 242 1 32 43 36- CROD 251 1 42 51 37- CROD 252 1 42 53 38- GRAV 980 980.0 .0 -1.0 .0 39- GRDSET 3456 40- GRID 1 .0 -30.0 .0 41- GRID 2 .0 .0 .0 42- GRID 3 .0 30.0 .0 43- GRID 11 40.0 -30.0 .0 44- GRID 12 40.0 .0 .0 45- GRID 13 40.0 30.0 .0 46- GRID 21 80.0 -30.0 .0 47- GRID 22 80.0 .0 .0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A RECOVER ABASIC , RUN 5, PHASE 3, RF 9 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 23 80.0 30.0 .0 49- GRID 31 120.0 -30.0 .0 50- GRID 32 120.0 .0 .0 51- GRID 33 120.0 30.0 .0 52- GRID 41 160.0 -30.0 .0 53- GRID 42 160.0 .0 .0 54- GRID 43 160.0 30.0 .0 55- GRID 51 200.0 -30.0 .0 56- GRID 52 200.0 .0 .0 57- GRID 53 200.0 30.0 .0 58- MAT1 1 10.0+6 .3 2.5-3 59- PARAM GRDPNT 0 60- PROD 1 1 .3 61- TIC 521 42 2 .1 62- TSTEP 40 40 2.0-2 1 ENDDATA 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE UDVT=APPEND/TOL=APPEND/RLODDISP=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ 10 COND LBL5,NOGPDT $ 11 GP2 GEOM2,EQEXIN/ECT $ 12 PARAML PCDB//*PRES*////JUMPPLOT $ 13 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 14 COND P1,JUMPPLOT $ 15 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 16 PRTMSG PLTSETX// $ 17 PARAM //*MPY*/PLTFLG/1/1 $ 18 PARAM //*MPY*/PFILE/0/0 $ 19 COND P1,JUMPPLOT $ 20 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 21 PRTMSG PLOTX1// $ 22 LABEL P1 $ 23 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ 24 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/ S,N,COMPS 25 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 26 PURGE K4GG,MGG,BGG, K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,KGGX/NOSIMP $ 27 COND LBL1,NOSIMP $ 28 PARAM //*ADD*/NOKGGX/1/0 $ 29 PARAM //*ADD*/NOMGG/1/0 $ 30 PARAM //*ADD*/NOBGG=-1/1/0 $ 31 PARAM //*ADD*/NOK4GG/1/0 $ 32 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 33 PURGE KGGX/NOKGGX/MGG/NOMGG $ 34 COND LBLKGGX,NOKGGX $ 35 EMA GPECT,KDICT,KELM/KGGX $ 36 LABEL LBLKGGX $ 37 COND LBLMGG,NOMGG $ 38 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 39 PURGE MDICT,MELM/ALWAYS $ 40 LABEL LBLMGG $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A RECOVER ABASIC , RUN 5, PHASE 3, RF 9 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 41 COND LBLBGG,NOBGG $ 42 EMA GPECT,BDICT,BELM/BGG $ 43 PURGE BDICT,BELM/ALWAYS $ 44 LABEL LBLBGG $ 45 COND LBLK4GG,NOK4GG $ 46 EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ 47 LABEL LBLK4GG $ 48 PURGE KDICT,KELM/ALWAYS $ 49 PURGE MNN,MFF,MAA/NOMGG $ 50 PURGE BNN,BFF,BAA/NOBGG $ 51 COND LBL1,GRDPNT $ 52 COND ERROR3,NOMGG $ 53 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 54 OFP OGPWG,,,,,//S,N,CARDNO $ 55 LABEL LBL1 $ 56 EQUIV KGGX,KGG/NOGENL $ 57 COND LBL11,NOGENL $ 58 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 59 LABEL LBL11 $ 60 GPSTGEN KGG,SIL/GPST $ 61 PARAM //*MPY*/NSKIP/0/0 $ 62 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING C,Y,ASETOUT/C,Y,AUTOSPC $ 63 OFP OGPST,,,,,//S,N,CARDNO $ 64 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $ 65 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ 66 COND LBL2,MPCF1 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS, ,MFF,BFF,K4FF $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 EQUIV MFF,MAA/OMIT $ 76 EQUIV BFF,BAA/OMIT $ 77 EQUIV K4FF,K4AA/OMIT $ 78 COND LBL5,OMIT $ 79 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 80 COND LBLM,NOMGG $ 81 SMP2 USET,GO,MFF/MAA $ 82 LABEL LBLM $ 83 COND LBLB,NOBGG $ 84 SMP2 USET,GO,BFF/BAA $ 85 LABEL LBLB $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A RECOVER ABASIC , RUN 5, PHASE 3, RF 9 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 86 COND LBL5,NOK4GG $ 87 SMP2 USET,GO,K4FF/K4AA $ 88 LABEL LBL5 $ 88 PARAM //*ADD*/DRY/1 /0 $ 88 LABEL LBSBEG $ 89 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,, EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/ NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $ 90 COND ERROR1,NOTRL $ 91 PURGE PNLD/NONLFT$ 92 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 137 PARAM //*NOP*/ALWAYS=-1 $ 0*** USER WARNING MESSAGE 42, POSSIBLE ERROR IN DMAP INSTRUCTION PARAM INSTRUCTION NO. 137 PARAMETER NAMED ALWAYS ALREADY HAD VALUE ASSIGNED PREVIOUSLY 137 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,/PG,,,,/ LUSET/NSKIP $ 137 SSG2 USET,GM, ,KFS,GO,,PG/QR,PO,PS,PL $ 137 RCOVR3 ,PG,PS, , /UDVT,QAS,PPT,PST, , ,TOL /9 /*ABASIC */ NOUE $ 138 SDR1 USETD,,UDVT,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $ 139 LABEL LBL17 $ 139 UMERGE USET,QAS,/QGS/*G*/*A*/*O* $ 139 ADD QP ,QGS/QGT/ (1.0,0.0)/(1.0,0.0) $ 139 EQUIV QGT,QP /ALWAYS $ 139 EQUIV CASECC,CASEXX/ALWAYS $ 140 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB, 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $ 141 SDR3 OPP1,OQP1,OUPV1,OES1,OEF1,/ OPP2,OQP2,OUPV2,OES2,OEF2, $ 142 OFP OPP2,OQP2,OUPV2,OEF2,OES2,//S,N,CARDNO $ 143 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ 144 OFP OESF2,,,,,//S,N,CARDNO $ 145 COND P2,JUMPPLOT $ 146 PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,GPECT,OES1, ,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 147 PRTMSG PLOTX2// $ 148 LABEL P2 $ 149 XYTRAN XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/ S,N,PFILE/S,N,CARDNO $ 150 XYPLOT XYPLTT// $ 151 LABEL LBL18 $ 154 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 154 LABEL LBSEND $ 155 JUMP FINIS $ 156 LABEL ERROR1 $ 157 PRTPARM //-1/*DIRTRD* $ 158 LABEL ERROR3 $ 159 PRTPARM //-3/*DIRTRD* $ 160 LABEL FINIS $ 161 PURGE DUMMY/ALWAYS $ 162 END $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSEND NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBL18 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBL17 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 5 PROFILE 70 MAX WAVEFRONT 5 AVG WAVEFRONT 3.889 RMS WAVEFRONT 4.028 RMS BANDWIDTH 4.041 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 5 PROFILE 69 MAX WAVEFRONT 5 AVG WAVEFRONT 3.833 RMS WAVEFRONT 3.965 RMS BANDWIDTH 3.993 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 5 5 PROFILE (P) 70 69 MAXIMUM WAVEFRONT (C-MAX) 5 5 AVERAGE WAVEFRONT (C-AVG) 3.889 3.833 RMS WAVEFRONT (C-RMS) 4.028 3.965 RMS BANDWITCH (B-RMS) 4.041 3.993 NUMBER OF GRID POINTS (N) 18 NUMBER OF ELEMENTS (NON-RIGID) 37 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 6 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 37 MATRIX DENSITY, PERCENT 28.395 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 5 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 4 3 2 11 3 SEQGP 12 7 13 5 21 6 22 10 SEQGP 23 8 31 9 32 13 33 11 SEQGP 41 12 42 16 43 14 51 15 SEQGP 52 18 53 17 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 1 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 1.09500001D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.09500001D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 1.09500001D+02 * * 0.00000000D+00 0.00000000D+00 1.09500001D+00 0.00000000D+00 -1.09500001D+02 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 0.00000000D+00 5.60250005D+02 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 -1.09500001D+02 0.00000000D+00 1.51800001D+04 0.00000000D+00 * * 0.00000000D+00 1.09500001D+02 0.00000000D+00 0.00000000D+00 0.00000000D+00 1.57402501D+04 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 1.095000010D+00 0.000000000D+00 0.000000000D+00 0.000000000D+00 Y 1.095000010D+00 1.000000000D+02 0.000000000D+00 0.000000000D+00 Z 1.095000010D+00 1.000000000D+02 0.000000000D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 5.602500049D+02 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 4.230000037D+03 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 4.790250042D+03 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 5.602500049D+02 * * 4.230000037D+03 * * 4.790250042D+03 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 488 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 0*** USER INFORMATION MESSAGE 6321, SUBSTRUCTURE PHASE 3 RECOVER FOR FINAL SOLUTION STRUCTURE RTRUSS AND BASIC SUBSTRUCTURE ABASIC 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 1 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 2.000000E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 6.000000E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 8.000000E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 9.999999E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 1.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 1.400000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 1.600000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 1.800000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.000000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.400000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.600000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.800000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.000000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.400000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.600000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.800000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.400001E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.600001E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.800001E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000001E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.400000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.600000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.800000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.000000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.199999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.399999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.599999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.799999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.999999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.199998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.399998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.599998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.799998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.999998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 2 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 2.000000E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 6.000000E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 8.000000E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 9.999999E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 1.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 1.400000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 1.600000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 1.800000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.000000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.400000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.600000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.800000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.000000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.400000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.600000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.800000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.400001E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.600001E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.800001E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000001E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.400000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.600000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.800000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.000000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.199999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.399999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.599999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.799999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.999999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.199998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.399998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.599998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.799998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.999998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 3 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 2.000000E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 6.000000E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 8.000000E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 9.999999E-02 G 0.0 0.0 0.0 0.0 0.0 0.0 1.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 1.400000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 1.600000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 1.800000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.000000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.400000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.600000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 2.800000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.000000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.400000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.600000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 3.800000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.400001E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.600001E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 4.800001E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000001E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.200000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.400000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.600000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 5.800000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.000000E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.199999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.399999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.599999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.799999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 6.999999E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.199998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.399998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.599998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.799998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 7.999998E-01 G 0.0 0.0 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 11 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 5.631593E-03 1.037242E-02 0.0 0.0 0.0 0.0 2.000000E-02 G 4.908958E-03 8.794166E-03 0.0 0.0 0.0 0.0 4.000000E-02 G 3.621516E-03 6.162351E-03 0.0 0.0 0.0 0.0 6.000000E-02 G 1.946977E-03 3.187361E-03 0.0 0.0 0.0 0.0 8.000000E-02 G 2.844003E-04 6.122256E-04 0.0 0.0 0.0 0.0 9.999999E-02 G -1.685479E-03 -2.707815E-03 0.0 0.0 0.0 0.0 1.200000E-01 G -3.741983E-03 -6.607444E-03 0.0 0.0 0.0 0.0 1.400000E-01 G -4.901436E-03 -8.781357E-03 0.0 0.0 0.0 0.0 1.600000E-01 G -4.690329E-03 -8.106585E-03 0.0 0.0 0.0 0.0 1.800000E-01 G -3.689060E-03 -6.174149E-03 0.0 0.0 0.0 0.0 2.000000E-01 G -2.440331E-03 -4.283931E-03 0.0 0.0 0.0 0.0 2.200000E-01 G -6.896530E-04 -1.450755E-03 0.0 0.0 0.0 0.0 2.400000E-01 G 1.668146E-03 2.905397E-03 0.0 0.0 0.0 0.0 2.600000E-01 G 3.735191E-03 6.747272E-03 0.0 0.0 0.0 0.0 2.800000E-01 G 4.609108E-03 8.065981E-03 0.0 0.0 0.0 0.0 3.000000E-01 G 4.515137E-03 7.633998E-03 0.0 0.0 0.0 0.0 3.200000E-01 G 4.024066E-03 6.930633E-03 0.0 0.0 0.0 0.0 3.400000E-01 G 2.909017E-03 5.285067E-03 0.0 0.0 0.0 0.0 3.600000E-01 G 7.993529E-04 1.509602E-03 0.0 0.0 0.0 0.0 3.800000E-01 G -1.470531E-03 -1.820819E-03 0.0 0.0 0.0 0.0 4.000000E-01 G -4.008558E-03 -1.544985E-02 0.0 0.0 0.0 0.0 4.200000E-01 G -6.127259E-05 -7.060617E-03 0.0 0.0 0.0 0.0 4.400001E-01 G 6.702155E-03 4.921682E-03 0.0 0.0 0.0 0.0 4.600001E-01 G 1.531378E-02 1.925131E-02 0.0 0.0 0.0 0.0 4.800001E-01 G 2.572401E-02 3.699915E-02 0.0 0.0 0.0 0.0 5.000001E-01 G 3.594344E-02 5.560306E-02 0.0 0.0 0.0 0.0 5.200000E-01 G 4.268313E-02 6.779885E-02 0.0 0.0 0.0 0.0 5.400000E-01 G 4.436568E-02 6.983038E-02 0.0 0.0 0.0 0.0 5.600000E-01 G 4.178168E-02 6.489538E-02 0.0 0.0 0.0 0.0 5.800000E-01 G 3.610261E-02 5.589796E-02 0.0 0.0 0.0 0.0 6.000000E-01 G 2.740342E-02 4.111835E-02 0.0 0.0 0.0 0.0 6.199999E-01 G 1.630362E-02 2.101647E-02 0.0 0.0 0.0 0.0 6.399999E-01 G 5.943683E-03 2.630476E-03 0.0 0.0 0.0 0.0 6.599999E-01 G -4.140216E-04 -7.890887E-03 0.0 0.0 0.0 0.0 6.799999E-01 G -2.601202E-03 -1.130648E-02 0.0 0.0 0.0 0.0 6.999999E-01 G -1.565543E-03 -9.813153E-03 0.0 0.0 0.0 0.0 7.199998E-01 G 3.492591E-03 -1.540674E-03 0.0 0.0 0.0 0.0 7.399998E-01 G 1.295395E-02 1.505509E-02 0.0 0.0 0.0 0.0 7.599998E-01 G 2.418533E-02 3.534962E-02 0.0 0.0 0.0 0.0 7.799998E-01 G 3.372900E-02 5.195667E-02 0.0 0.0 0.0 0.0 7.999998E-01 G 4.031284E-02 6.251577E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 12 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.561076E-13 1.098885E-02 0.0 0.0 0.0 0.0 2.000000E-02 G 1.825963E-13 9.277374E-03 0.0 0.0 0.0 0.0 4.000000E-02 G 2.829931E-14 6.450227E-03 0.0 0.0 0.0 0.0 6.000000E-02 G 1.692028E-14 3.317096E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -1.947259E-15 6.611919E-04 0.0 0.0 0.0 0.0 9.999999E-02 G -1.503985E-14 -2.810060E-03 0.0 0.0 0.0 0.0 1.200000E-01 G -2.220538E-14 -6.954021E-03 0.0 0.0 0.0 0.0 1.400000E-01 G -2.641362E-14 -9.260096E-03 0.0 0.0 0.0 0.0 1.600000E-01 G -3.045292E-14 -8.505498E-03 0.0 0.0 0.0 0.0 1.800000E-01 G -3.008821E-14 -6.447479E-03 0.0 0.0 0.0 0.0 2.000000E-01 G -1.571946E-14 -4.504343E-03 0.0 0.0 0.0 0.0 2.200000E-01 G 2.706900E-15 -1.561472E-03 0.0 0.0 0.0 0.0 2.400000E-01 G 1.054475E-14 3.051224E-03 0.0 0.0 0.0 0.0 2.600000E-01 G 1.733071E-14 7.123861E-03 0.0 0.0 0.0 0.0 2.800000E-01 G 2.950444E-14 8.478304E-03 0.0 0.0 0.0 0.0 3.000000E-01 G 3.443605E-14 7.983186E-03 0.0 0.0 0.0 0.0 3.200000E-01 G 2.722332E-14 7.267827E-03 0.0 0.0 0.0 0.0 3.400000E-01 G 1.407827E-14 5.584730E-03 0.0 0.0 0.0 0.0 3.600000E-01 G 1.916367E-15 1.603089E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 1.285430E-12 -1.797703E-03 0.0 0.0 0.0 0.0 4.000000E-01 G -1.432048E-12 -1.702108E-02 0.0 0.0 0.0 0.0 4.200000E-01 G -1.539258E-13 -7.966571E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -9.583802E-14 4.641781E-03 0.0 0.0 0.0 0.0 4.600001E-01 G -1.823098E-14 1.958666E-02 0.0 0.0 0.0 0.0 4.800001E-01 G 3.386780E-14 3.818172E-02 0.0 0.0 0.0 0.0 5.000001E-01 G 9.512276E-14 5.784149E-02 0.0 0.0 0.0 0.0 5.200000E-01 G 1.366342E-13 7.071113E-02 0.0 0.0 0.0 0.0 5.400000E-01 G 1.471251E-13 7.271824E-02 0.0 0.0 0.0 0.0 5.600000E-01 G 1.517917E-13 6.747206E-02 0.0 0.0 0.0 0.0 5.800000E-01 G 1.043079E-13 5.814543E-02 0.0 0.0 0.0 0.0 6.000000E-01 G 2.068849E-14 4.268248E-02 0.0 0.0 0.0 0.0 6.199999E-01 G -2.509456E-14 2.145990E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -7.335715E-14 2.086085E-03 0.0 0.0 0.0 0.0 6.599999E-01 G -1.417045E-13 -8.882683E-03 0.0 0.0 0.0 0.0 6.799999E-01 G -1.608831E-13 -1.239993E-02 0.0 0.0 0.0 0.0 6.999999E-01 G -1.399635E-13 -1.088464E-02 0.0 0.0 0.0 0.0 7.199998E-01 G -1.040393E-13 -2.283246E-03 0.0 0.0 0.0 0.0 7.399998E-01 G -4.123118E-14 1.517647E-02 0.0 0.0 0.0 0.0 7.599998E-01 G 1.509339E-14 3.660311E-02 0.0 0.0 0.0 0.0 7.799998E-01 G 6.959889E-14 5.403440E-02 0.0 0.0 0.0 0.0 7.999998E-01 G 1.418121E-13 6.499526E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 13 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -5.631593E-03 1.037242E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -4.908958E-03 8.794166E-03 0.0 0.0 0.0 0.0 4.000000E-02 G -3.621516E-03 6.162351E-03 0.0 0.0 0.0 0.0 6.000000E-02 G -1.946977E-03 3.187361E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -2.844003E-04 6.122256E-04 0.0 0.0 0.0 0.0 9.999999E-02 G 1.685479E-03 -2.707815E-03 0.0 0.0 0.0 0.0 1.200000E-01 G 3.741983E-03 -6.607444E-03 0.0 0.0 0.0 0.0 1.400000E-01 G 4.901436E-03 -8.781357E-03 0.0 0.0 0.0 0.0 1.600000E-01 G 4.690329E-03 -8.106585E-03 0.0 0.0 0.0 0.0 1.800000E-01 G 3.689060E-03 -6.174149E-03 0.0 0.0 0.0 0.0 2.000000E-01 G 2.440331E-03 -4.283931E-03 0.0 0.0 0.0 0.0 2.200000E-01 G 6.896530E-04 -1.450755E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -1.668146E-03 2.905397E-03 0.0 0.0 0.0 0.0 2.600000E-01 G -3.735191E-03 6.747272E-03 0.0 0.0 0.0 0.0 2.800000E-01 G -4.609108E-03 8.065981E-03 0.0 0.0 0.0 0.0 3.000000E-01 G -4.515137E-03 7.633998E-03 0.0 0.0 0.0 0.0 3.200000E-01 G -4.024066E-03 6.930633E-03 0.0 0.0 0.0 0.0 3.400000E-01 G -2.909017E-03 5.285067E-03 0.0 0.0 0.0 0.0 3.600000E-01 G -7.993529E-04 1.509602E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 1.470531E-03 -1.820819E-03 0.0 0.0 0.0 0.0 4.000000E-01 G 4.008558E-03 -1.544985E-02 0.0 0.0 0.0 0.0 4.200000E-01 G 6.127259E-05 -7.060617E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -6.702155E-03 4.921682E-03 0.0 0.0 0.0 0.0 4.600001E-01 G -1.531378E-02 1.925131E-02 0.0 0.0 0.0 0.0 4.800001E-01 G -2.572401E-02 3.699915E-02 0.0 0.0 0.0 0.0 5.000001E-01 G -3.594344E-02 5.560306E-02 0.0 0.0 0.0 0.0 5.200000E-01 G -4.268313E-02 6.779885E-02 0.0 0.0 0.0 0.0 5.400000E-01 G -4.436568E-02 6.983038E-02 0.0 0.0 0.0 0.0 5.600000E-01 G -4.178168E-02 6.489538E-02 0.0 0.0 0.0 0.0 5.800000E-01 G -3.610261E-02 5.589796E-02 0.0 0.0 0.0 0.0 6.000000E-01 G -2.740342E-02 4.111835E-02 0.0 0.0 0.0 0.0 6.199999E-01 G -1.630362E-02 2.101647E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -5.943683E-03 2.630476E-03 0.0 0.0 0.0 0.0 6.599999E-01 G 4.140216E-04 -7.890887E-03 0.0 0.0 0.0 0.0 6.799999E-01 G 2.601202E-03 -1.130648E-02 0.0 0.0 0.0 0.0 6.999999E-01 G 1.565543E-03 -9.813153E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -3.492591E-03 -1.540674E-03 0.0 0.0 0.0 0.0 7.399998E-01 G -1.295395E-02 1.505509E-02 0.0 0.0 0.0 0.0 7.599998E-01 G -2.418533E-02 3.534962E-02 0.0 0.0 0.0 0.0 7.799998E-01 G -3.372900E-02 5.195667E-02 0.0 0.0 0.0 0.0 7.999998E-01 G -4.031284E-02 6.251577E-02 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 21 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 1.016226E-02 2.738440E-02 0.0 0.0 0.0 0.0 2.000000E-02 G 8.952830E-03 2.344197E-02 0.0 0.0 0.0 0.0 4.000000E-02 G 6.730240E-03 1.675634E-02 0.0 0.0 0.0 0.0 6.000000E-02 G 3.667284E-03 8.815456E-03 0.0 0.0 0.0 0.0 8.000000E-02 G 4.786474E-04 1.520790E-03 0.0 0.0 0.0 0.0 9.999999E-02 G -3.194852E-03 -7.554261E-03 0.0 0.0 0.0 0.0 1.200000E-01 G -6.860708E-03 -1.769517E-02 0.0 0.0 0.0 0.0 1.400000E-01 G -8.936998E-03 -2.336806E-02 0.0 0.0 0.0 0.0 1.600000E-01 G -8.667776E-03 -2.190490E-02 0.0 0.0 0.0 0.0 1.800000E-01 G -6.896150E-03 -1.691665E-02 0.0 0.0 0.0 0.0 2.000000E-01 G -4.483869E-03 -1.149539E-02 0.0 0.0 0.0 0.0 2.200000E-01 G -1.173616E-03 -3.623266E-03 0.0 0.0 0.0 0.0 2.400000E-01 G 3.073967E-03 7.820067E-03 0.0 0.0 0.0 0.0 2.600000E-01 G 6.789100E-03 1.790011E-02 0.0 0.0 0.0 0.0 2.800000E-01 G 8.478838E-03 2.168314E-02 0.0 0.0 0.0 0.0 3.000000E-01 G 8.410054E-03 2.081614E-02 0.0 0.0 0.0 0.0 3.200000E-01 G 7.445995E-03 1.875394E-02 0.0 0.0 0.0 0.0 3.400000E-01 G 5.275733E-03 1.399068E-02 0.0 0.0 0.0 0.0 3.600000E-01 G 1.427255E-03 3.929755E-03 0.0 0.0 0.0 0.0 3.800000E-01 G -2.993480E-03 -5.710204E-03 0.0 0.0 0.0 0.0 4.000000E-01 G -4.126058E-03 -2.766617E-02 0.0 0.0 0.0 0.0 4.200000E-01 G 2.565336E-03 -6.648772E-03 0.0 0.0 0.0 0.0 4.400001E-01 G 1.494834E-02 2.531403E-02 0.0 0.0 0.0 0.0 4.600001E-01 G 3.107754E-02 6.461477E-02 0.0 0.0 0.0 0.0 4.800001E-01 G 5.041363E-02 1.129609E-01 0.0 0.0 0.0 0.0 5.000001E-01 G 6.893186E-02 1.621257E-01 0.0 0.0 0.0 0.0 5.200000E-01 G 8.117147E-02 1.943597E-01 0.0 0.0 0.0 0.0 5.400000E-01 G 8.462448E-02 2.009411E-01 0.0 0.0 0.0 0.0 5.600000E-01 G 8.003264E-02 1.881728E-01 0.0 0.0 0.0 0.0 5.800000E-01 G 6.921639E-02 1.628166E-01 0.0 0.0 0.0 0.0 6.000000E-01 G 5.304166E-02 1.226369E-01 0.0 0.0 0.0 0.0 6.199999E-01 G 3.288848E-02 6.944938E-02 0.0 0.0 0.0 0.0 6.399999E-01 G 1.392818E-02 2.022021E-02 0.0 0.0 0.0 0.0 6.599999E-01 G 1.996869E-03 -8.751792E-03 0.0 0.0 0.0 0.0 6.799999E-01 G -2.184753E-03 -1.829125E-02 0.0 0.0 0.0 0.0 6.999999E-01 G -1.566112E-04 -1.397900E-02 0.0 0.0 0.0 0.0 7.199998E-01 G 9.372471E-03 8.846566E-03 0.0 0.0 0.0 0.0 7.399998E-01 G 2.676468E-02 5.351291E-02 0.0 0.0 0.0 0.0 7.599998E-01 G 4.717622E-02 1.073319E-01 0.0 0.0 0.0 0.0 7.799998E-01 G 6.476707E-02 1.519790E-01 0.0 0.0 0.0 0.0 7.999998E-01 G 7.725521E-02 1.815183E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 22 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.747010E-13 2.799373E-02 0.0 0.0 0.0 0.0 2.000000E-02 G 2.043520E-13 2.391697E-02 0.0 0.0 0.0 0.0 4.000000E-02 G 3.167355E-14 1.704301E-02 0.0 0.0 0.0 0.0 6.000000E-02 G 1.893711E-14 8.950645E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -2.179186E-15 1.565344E-03 0.0 0.0 0.0 0.0 9.999999E-02 G -1.683277E-14 -7.664181E-03 0.0 0.0 0.0 0.0 1.200000E-01 G -2.485311E-14 -1.803190E-02 0.0 0.0 0.0 0.0 1.400000E-01 G -2.956252E-14 -2.382671E-02 0.0 0.0 0.0 0.0 1.600000E-01 G -3.408365E-14 -2.229873E-02 0.0 0.0 0.0 0.0 1.800000E-01 G -3.367570E-14 -1.719525E-02 0.0 0.0 0.0 0.0 2.000000E-01 G -1.759362E-14 -1.170916E-02 0.0 0.0 0.0 0.0 2.200000E-01 G 3.029179E-15 -3.721891E-03 0.0 0.0 0.0 0.0 2.400000E-01 G 1.180171E-14 7.961875E-03 0.0 0.0 0.0 0.0 2.600000E-01 G 1.939737E-14 1.826047E-02 0.0 0.0 0.0 0.0 2.800000E-01 G 3.302155E-14 2.208661E-02 0.0 0.0 0.0 0.0 3.000000E-01 G 3.854147E-14 2.116630E-02 0.0 0.0 0.0 0.0 3.200000E-01 G 3.046950E-14 1.908750E-02 0.0 0.0 0.0 0.0 3.400000E-01 G 1.575696E-14 1.427702E-02 0.0 0.0 0.0 0.0 3.600000E-01 G 2.145051E-15 4.016162E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 1.438561E-12 -5.696026E-03 0.0 0.0 0.0 0.0 4.000000E-01 G -1.602650E-12 -2.814164E-02 0.0 0.0 0.0 0.0 4.200000E-01 G -1.722648E-13 -6.484670E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -1.072518E-13 2.606504E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -2.039284E-14 6.598255E-02 0.0 0.0 0.0 0.0 4.800001E-01 G 3.791707E-14 1.152014E-01 0.0 0.0 0.0 0.0 5.000001E-01 G 1.064813E-13 1.653636E-01 0.0 0.0 0.0 0.0 5.200000E-01 G 1.529381E-13 1.982177E-01 0.0 0.0 0.0 0.0 5.400000E-01 G 1.646748E-13 2.048320E-01 0.0 0.0 0.0 0.0 5.600000E-01 G 1.699040E-13 1.917831E-01 0.0 0.0 0.0 0.0 5.800000E-01 G 1.167592E-13 1.660424E-01 0.0 0.0 0.0 0.0 6.000000E-01 G 2.316994E-14 1.251895E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -2.807387E-14 7.095253E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -8.209409E-14 2.074408E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -1.585886E-13 -8.690657E-03 0.0 0.0 0.0 0.0 6.799999E-01 G -1.800512E-13 -1.831923E-02 0.0 0.0 0.0 0.0 6.999999E-01 G -1.566400E-13 -1.398820E-02 0.0 0.0 0.0 0.0 7.199998E-01 G -1.164324E-13 9.165158E-03 0.0 0.0 0.0 0.0 7.399998E-01 G -4.613497E-14 5.469895E-02 0.0 0.0 0.0 0.0 7.599998E-01 G 1.690725E-14 1.095976E-01 0.0 0.0 0.0 0.0 7.799998E-01 G 7.790953E-14 1.550299E-01 0.0 0.0 0.0 0.0 7.999998E-01 G 1.587308E-13 1.850157E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 23 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.016226E-02 2.738440E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -8.952830E-03 2.344197E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -6.730240E-03 1.675634E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -3.667284E-03 8.815456E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -4.786474E-04 1.520790E-03 0.0 0.0 0.0 0.0 9.999999E-02 G 3.194852E-03 -7.554261E-03 0.0 0.0 0.0 0.0 1.200000E-01 G 6.860708E-03 -1.769517E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 8.936998E-03 -2.336806E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 8.667776E-03 -2.190490E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 6.896150E-03 -1.691665E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 4.483869E-03 -1.149539E-02 0.0 0.0 0.0 0.0 2.200000E-01 G 1.173616E-03 -3.623266E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -3.073967E-03 7.820067E-03 0.0 0.0 0.0 0.0 2.600000E-01 G -6.789100E-03 1.790011E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -8.478838E-03 2.168314E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -8.410054E-03 2.081614E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -7.445995E-03 1.875394E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -5.275733E-03 1.399068E-02 0.0 0.0 0.0 0.0 3.600000E-01 G -1.427255E-03 3.929755E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 2.993480E-03 -5.710204E-03 0.0 0.0 0.0 0.0 4.000000E-01 G 4.126058E-03 -2.766617E-02 0.0 0.0 0.0 0.0 4.200000E-01 G -2.565336E-03 -6.648772E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -1.494834E-02 2.531403E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -3.107754E-02 6.461477E-02 0.0 0.0 0.0 0.0 4.800001E-01 G -5.041363E-02 1.129609E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -6.893186E-02 1.621257E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -8.117147E-02 1.943597E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -8.462448E-02 2.009411E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -8.003264E-02 1.881728E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -6.921639E-02 1.628166E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -5.304166E-02 1.226369E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -3.288848E-02 6.944938E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -1.392818E-02 2.022021E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -1.996869E-03 -8.751792E-03 0.0 0.0 0.0 0.0 6.799999E-01 G 2.184753E-03 -1.829125E-02 0.0 0.0 0.0 0.0 6.999999E-01 G 1.566112E-04 -1.397900E-02 0.0 0.0 0.0 0.0 7.199998E-01 G -9.372471E-03 8.846566E-03 0.0 0.0 0.0 0.0 7.399998E-01 G -2.676468E-02 5.351291E-02 0.0 0.0 0.0 0.0 7.599998E-01 G -4.717622E-02 1.073319E-01 0.0 0.0 0.0 0.0 7.799998E-01 G -6.476707E-02 1.519790E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -7.725521E-02 1.815183E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 31 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 1.359793E-02 4.892589E-02 0.0 0.0 0.0 0.0 2.000000E-02 G 1.213886E-02 4.227938E-02 0.0 0.0 0.0 0.0 4.000000E-02 G 9.325725E-03 3.080090E-02 0.0 0.0 0.0 0.0 6.000000E-02 G 5.153907E-03 1.646217E-02 0.0 0.0 0.0 0.0 8.000000E-02 G 5.868888E-04 2.542180E-03 0.0 0.0 0.0 0.0 9.999999E-02 G -4.518616E-03 -1.421727E-02 0.0 0.0 0.0 0.0 1.200000E-01 G -9.364264E-03 -3.204988E-02 0.0 0.0 0.0 0.0 1.400000E-01 G -1.212569E-02 -4.206458E-02 0.0 0.0 0.0 0.0 1.600000E-01 G -1.193489E-02 -4.002081E-02 0.0 0.0 0.0 0.0 1.800000E-01 G -9.613048E-03 -3.131510E-02 0.0 0.0 0.0 0.0 2.000000E-01 G -6.136622E-03 -2.086353E-02 0.0 0.0 0.0 0.0 2.200000E-01 G -1.464540E-03 -6.099639E-03 0.0 0.0 0.0 0.0 2.400000E-01 G 4.221240E-03 1.423630E-02 0.0 0.0 0.0 0.0 2.600000E-01 G 9.176662E-03 3.212099E-02 0.0 0.0 0.0 0.0 2.800000E-01 G 1.161557E-02 3.941752E-02 0.0 0.0 0.0 0.0 3.000000E-01 G 1.168146E-02 3.836470E-02 0.0 0.0 0.0 0.0 3.200000E-01 G 1.026731E-02 3.431115E-02 0.0 0.0 0.0 0.0 3.400000E-01 G 7.112190E-03 2.504977E-02 0.0 0.0 0.0 0.0 3.600000E-01 G 1.891102E-03 6.919311E-03 0.0 0.0 0.0 0.0 3.800000E-01 G -4.539596E-03 -1.169167E-02 0.0 0.0 0.0 0.0 4.000000E-01 G -2.253707E-03 -3.113773E-02 0.0 0.0 0.0 0.0 4.200000E-01 G 6.012399E-03 4.438911E-03 0.0 0.0 0.0 0.0 4.400001E-01 G 2.291652E-02 6.214796E-02 0.0 0.0 0.0 0.0 4.600001E-01 G 4.546713E-02 1.349948E-01 0.0 0.0 0.0 0.0 4.800001E-01 G 7.220051E-02 2.239531E-01 0.0 0.0 0.0 0.0 5.000001E-01 G 9.715608E-02 3.118545E-01 0.0 0.0 0.0 0.0 5.200000E-01 G 1.137181E-01 3.695284E-01 0.0 0.0 0.0 0.0 5.400000E-01 G 1.189584E-01 3.834237E-01 0.0 0.0 0.0 0.0 5.600000E-01 G 1.129011E-01 3.610767E-01 0.0 0.0 0.0 0.0 5.800000E-01 G 9.756254E-02 3.129714E-01 0.0 0.0 0.0 0.0 6.000000E-01 G 7.512573E-02 2.391099E-01 0.0 0.0 0.0 0.0 6.199999E-01 G 4.788870E-02 1.438801E-01 0.0 0.0 0.0 0.0 6.399999E-01 G 2.209414E-02 5.477858E-02 0.0 0.0 0.0 0.0 6.599999E-01 G 5.394237E-03 8.971611E-04 0.0 0.0 0.0 0.0 6.799999E-01 G -6.110947E-04 -1.712716E-02 0.0 0.0 0.0 0.0 6.999999E-01 G 2.375170E-03 -8.730472E-03 0.0 0.0 0.0 0.0 7.199998E-01 G 1.579188E-02 3.383072E-02 0.0 0.0 0.0 0.0 7.399998E-01 G 3.956523E-02 1.150761E-01 0.0 0.0 0.0 0.0 7.599998E-01 G 6.715612E-02 2.116233E-01 0.0 0.0 0.0 0.0 7.799998E-01 G 9.134280E-02 2.928430E-01 0.0 0.0 0.0 0.0 7.999998E-01 G 1.089968E-01 3.485434E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 32 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 3.350016E-14 4.952173E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -3.915468E-14 4.273989E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -6.058385E-15 3.108357E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -3.623603E-15 1.660419E-02 0.0 0.0 0.0 0.0 8.000000E-02 G 4.179416E-16 2.578982E-03 0.0 0.0 0.0 0.0 9.999999E-02 G 3.220262E-15 -1.433717E-02 0.0 0.0 0.0 0.0 1.200000E-01 G 4.753470E-15 -3.236811E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 5.654649E-15 -4.248909E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 6.518249E-15 -4.040287E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 6.441165E-15 -3.159829E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 3.365553E-15 -2.106578E-02 0.0 0.0 0.0 0.0 2.200000E-01 G -5.815588E-16 -6.179233E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -2.257770E-15 1.437139E-02 0.0 0.0 0.0 0.0 2.600000E-01 G -3.708059E-15 3.245294E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -6.316439E-15 3.980311E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -7.372144E-15 3.871357E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -5.827174E-15 3.463592E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -3.011899E-15 2.531246E-02 0.0 0.0 0.0 0.0 3.600000E-01 G -4.092533E-16 6.994677E-03 0.0 0.0 0.0 0.0 3.800000E-01 G -2.757322E-13 -1.166335E-02 0.0 0.0 0.0 0.0 4.000000E-01 G 3.071694E-13 -3.048220E-02 0.0 0.0 0.0 0.0 4.200000E-01 G 3.301268E-14 5.700920E-03 0.0 0.0 0.0 0.0 4.400001E-01 G 2.057122E-14 6.394360E-02 0.0 0.0 0.0 0.0 4.600001E-01 G 3.962084E-15 1.374108E-01 0.0 0.0 0.0 0.0 4.800001E-01 G -7.189494E-15 2.272550E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -2.030234E-14 3.160597E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -2.919847E-14 3.742802E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -3.145014E-14 3.882812E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -3.244208E-14 3.656978E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -2.225864E-14 3.171452E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -4.348023E-15 2.426254E-01 0.0 0.0 0.0 0.0 6.199999E-01 G 5.428863E-15 1.464522E-01 0.0 0.0 0.0 0.0 6.399999E-01 G 1.575081E-14 5.640914E-02 0.0 0.0 0.0 0.0 6.599999E-01 G 3.039471E-14 2.047993E-03 0.0 0.0 0.0 0.0 6.799999E-01 G 3.450328E-14 -1.606167E-02 0.0 0.0 0.0 0.0 6.999999E-01 G 3.001578E-14 -7.641680E-03 0.0 0.0 0.0 0.0 7.199998E-01 G 2.232730E-14 3.525170E-02 0.0 0.0 0.0 0.0 7.399998E-01 G 8.879916E-15 1.173454E-01 0.0 0.0 0.0 0.0 7.599998E-01 G -3.181343E-15 2.148842E-01 0.0 0.0 0.0 0.0 7.799998E-01 G -1.483516E-14 2.968365E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -3.028698E-14 3.530350E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 33 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.359793E-02 4.892589E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -1.213886E-02 4.227938E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -9.325725E-03 3.080090E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -5.153907E-03 1.646217E-02 0.0 0.0 0.0 0.0 8.000000E-02 G -5.868888E-04 2.542180E-03 0.0 0.0 0.0 0.0 9.999999E-02 G 4.518616E-03 -1.421727E-02 0.0 0.0 0.0 0.0 1.200000E-01 G 9.364264E-03 -3.204988E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 1.212569E-02 -4.206458E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 1.193489E-02 -4.002081E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 9.613048E-03 -3.131510E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 6.136622E-03 -2.086353E-02 0.0 0.0 0.0 0.0 2.200000E-01 G 1.464540E-03 -6.099639E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -4.221240E-03 1.423630E-02 0.0 0.0 0.0 0.0 2.600000E-01 G -9.176662E-03 3.212099E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -1.161557E-02 3.941752E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -1.168146E-02 3.836470E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -1.026731E-02 3.431115E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -7.112190E-03 2.504977E-02 0.0 0.0 0.0 0.0 3.600000E-01 G -1.891102E-03 6.919311E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 4.539596E-03 -1.169167E-02 0.0 0.0 0.0 0.0 4.000000E-01 G 2.253707E-03 -3.113773E-02 0.0 0.0 0.0 0.0 4.200000E-01 G -6.012399E-03 4.438911E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -2.291652E-02 6.214796E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -4.546713E-02 1.349948E-01 0.0 0.0 0.0 0.0 4.800001E-01 G -7.220051E-02 2.239531E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -9.715608E-02 3.118545E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -1.137181E-01 3.695284E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -1.189584E-01 3.834237E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -1.129011E-01 3.610767E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -9.756254E-02 3.129714E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -7.512573E-02 2.391099E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -4.788870E-02 1.438801E-01 0.0 0.0 0.0 0.0 6.399999E-01 G -2.209414E-02 5.477858E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -5.394237E-03 8.971611E-04 0.0 0.0 0.0 0.0 6.799999E-01 G 6.110947E-04 -1.712716E-02 0.0 0.0 0.0 0.0 6.999999E-01 G -2.375170E-03 -8.730472E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -1.579188E-02 3.383072E-02 0.0 0.0 0.0 0.0 7.399998E-01 G -3.956523E-02 1.150761E-01 0.0 0.0 0.0 0.0 7.599998E-01 G -6.715612E-02 2.116233E-01 0.0 0.0 0.0 0.0 7.799998E-01 G -9.134280E-02 2.928430E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -1.089968E-01 3.485434E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 41 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 1.595519E-02 7.352058E-02 0.0 0.0 0.0 0.0 2.000000E-02 G 1.448586E-02 6.415234E-02 0.0 0.0 0.0 0.0 4.000000E-02 G 1.141020E-02 4.759507E-02 0.0 0.0 0.0 0.0 6.000000E-02 G 6.393834E-03 2.580062E-02 0.0 0.0 0.0 0.0 8.000000E-02 G 6.196008E-04 3.556943E-03 0.0 0.0 0.0 0.0 9.999999E-02 G -5.638699E-03 -2.243110E-02 0.0 0.0 0.0 0.0 1.200000E-01 G -1.127535E-02 -4.883029E-02 0.0 0.0 0.0 0.0 1.400000E-01 G -1.451381E-02 -6.372645E-02 0.0 0.0 0.0 0.0 1.600000E-01 G -1.450305E-02 -6.147873E-02 0.0 0.0 0.0 0.0 1.800000E-01 G -1.182712E-02 -4.868564E-02 0.0 0.0 0.0 0.0 2.000000E-01 G -7.413696E-03 -3.186005E-02 0.0 0.0 0.0 0.0 2.200000E-01 G -1.590601E-03 -8.625297E-03 0.0 0.0 0.0 0.0 2.400000E-01 G 5.118966E-03 2.180660E-02 0.0 0.0 0.0 0.0 2.600000E-01 G 1.093554E-02 4.850315E-02 0.0 0.0 0.0 0.0 2.800000E-01 G 1.403966E-02 6.026343E-02 0.0 0.0 0.0 0.0 3.000000E-01 G 1.432633E-02 5.942502E-02 0.0 0.0 0.0 0.0 3.200000E-01 G 1.249602E-02 5.277796E-02 0.0 0.0 0.0 0.0 3.400000E-01 G 8.449481E-03 3.773823E-02 0.0 0.0 0.0 0.0 3.600000E-01 G 2.207250E-03 1.026173E-02 0.0 0.0 0.0 0.0 3.800000E-01 G -6.093839E-03 -1.959555E-02 0.0 0.0 0.0 0.0 4.000000E-01 G -3.698659E-04 -2.567201E-02 0.0 0.0 0.0 0.0 4.200000E-01 G 8.359761E-03 2.488956E-02 0.0 0.0 0.0 0.0 4.400001E-01 G 2.877406E-02 1.127114E-01 0.0 0.0 0.0 0.0 4.600001E-01 G 5.664327E-02 2.262209E-01 0.0 0.0 0.0 0.0 4.800001E-01 G 8.918907E-02 3.635613E-01 0.0 0.0 0.0 0.0 5.000001E-01 G 1.188551E-01 4.958876E-01 0.0 0.0 0.0 0.0 5.200000E-01 G 1.386834E-01 5.829241E-01 0.0 0.0 0.0 0.0 5.400000E-01 G 1.455969E-01 6.067778E-01 0.0 0.0 0.0 0.0 5.600000E-01 G 1.385465E-01 5.737948E-01 0.0 0.0 0.0 0.0 5.800000E-01 G 1.194261E-01 4.975612E-01 0.0 0.0 0.0 0.0 6.000000E-01 G 9.192014E-02 3.833514E-01 0.0 0.0 0.0 0.0 6.199999E-01 G 5.940625E-02 2.396909E-01 0.0 0.0 0.0 0.0 6.399999E-01 G 2.852052E-02 1.042196E-01 0.0 0.0 0.0 0.0 6.599999E-01 G 7.893471E-03 2.010317E-02 0.0 0.0 0.0 0.0 6.799999E-01 G 2.103796E-04 -8.656058E-03 0.0 0.0 0.0 0.0 6.999999E-01 G 4.125057E-03 5.112983E-03 0.0 0.0 0.0 0.0 7.199998E-01 G 2.084562E-02 7.185638E-02 0.0 0.0 0.0 0.0 7.399998E-01 G 4.944540E-02 1.959394E-01 0.0 0.0 0.0 0.0 7.599998E-01 G 8.233573E-02 3.417183E-01 0.0 0.0 0.0 0.0 7.799998E-01 G 1.117536E-01 4.661794E-01 0.0 0.0 0.0 0.0 7.999998E-01 G 1.337325E-01 5.540848E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 42 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 3.736526E-13 7.409571E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -4.369919E-13 6.459268E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -6.770633E-14 4.786857E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -4.048508E-14 2.594730E-02 0.0 0.0 0.0 0.0 8.000000E-02 G 4.660914E-15 3.583236E-03 0.0 0.0 0.0 0.0 9.999999E-02 G 3.598454E-14 -2.255898E-02 0.0 0.0 0.0 0.0 1.200000E-01 G 5.312708E-14 -4.912072E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 6.319490E-14 -6.410488E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 7.285681E-14 -6.183933E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 7.198581E-14 -4.896737E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 3.760924E-14 -3.204612E-02 0.0 0.0 0.0 0.0 2.200000E-01 G -6.480486E-15 -8.681952E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -2.522872E-14 2.193239E-02 0.0 0.0 0.0 0.0 2.600000E-01 G -4.145951E-14 4.879569E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -7.059129E-14 6.062034E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -8.238973E-14 5.976627E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -6.513063E-14 5.308610E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -3.367910E-14 3.796796E-02 0.0 0.0 0.0 0.0 3.600000E-01 G -4.583055E-15 1.032379E-02 0.0 0.0 0.0 0.0 3.800000E-01 G -3.076504E-12 -1.950656E-02 0.0 0.0 0.0 0.0 4.000000E-01 G 3.427390E-12 -2.386333E-02 0.0 0.0 0.0 0.0 4.200000E-01 G 3.683901E-13 2.727703E-02 0.0 0.0 0.0 0.0 4.400001E-01 G 2.294064E-13 1.155786E-01 0.0 0.0 0.0 0.0 4.600001E-01 G 4.375614E-14 2.297109E-01 0.0 0.0 0.0 0.0 4.800001E-01 G -8.090081E-14 3.679093E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -2.274497E-13 5.010201E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -3.267876E-13 5.885298E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -3.518723E-13 6.125490E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -3.630600E-13 5.793778E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -2.494194E-13 5.026595E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -4.932693E-14 3.878116E-01 0.0 0.0 0.0 0.0 6.199999E-01 G 6.014752E-14 2.433293E-01 0.0 0.0 0.0 0.0 6.399999E-01 G 1.756016E-13 1.070003E-01 0.0 0.0 0.0 0.0 6.599999E-01 G 3.391470E-13 2.239667E-02 0.0 0.0 0.0 0.0 6.799999E-01 G 3.850376E-13 -6.465027E-03 0.0 0.0 0.0 0.0 6.999999E-01 G 3.349717E-13 7.345996E-03 0.0 0.0 0.0 0.0 7.199998E-01 G 2.490236E-13 7.443289E-02 0.0 0.0 0.0 0.0 7.399998E-01 G 9.875453E-14 1.993024E-01 0.0 0.0 0.0 0.0 7.599998E-01 G -3.600793E-14 3.459559E-01 0.0 0.0 0.0 0.0 7.799998E-01 G -1.664021E-13 4.710961E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -3.391345E-13 5.595309E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 43 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.595519E-02 7.352058E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -1.448586E-02 6.415234E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -1.141020E-02 4.759507E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -6.393834E-03 2.580062E-02 0.0 0.0 0.0 0.0 8.000000E-02 G -6.196008E-04 3.556943E-03 0.0 0.0 0.0 0.0 9.999999E-02 G 5.638699E-03 -2.243110E-02 0.0 0.0 0.0 0.0 1.200000E-01 G 1.127535E-02 -4.883029E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 1.451381E-02 -6.372645E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 1.450305E-02 -6.147873E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 1.182712E-02 -4.868564E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 7.413696E-03 -3.186005E-02 0.0 0.0 0.0 0.0 2.200000E-01 G 1.590601E-03 -8.625297E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -5.118966E-03 2.180660E-02 0.0 0.0 0.0 0.0 2.600000E-01 G -1.093554E-02 4.850315E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -1.403966E-02 6.026343E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -1.432633E-02 5.942502E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -1.249602E-02 5.277796E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -8.449481E-03 3.773823E-02 0.0 0.0 0.0 0.0 3.600000E-01 G -2.207250E-03 1.026173E-02 0.0 0.0 0.0 0.0 3.800000E-01 G 6.093839E-03 -1.959555E-02 0.0 0.0 0.0 0.0 4.000000E-01 G 3.698659E-04 -2.567201E-02 0.0 0.0 0.0 0.0 4.200000E-01 G -8.359761E-03 2.488956E-02 0.0 0.0 0.0 0.0 4.400001E-01 G -2.877406E-02 1.127114E-01 0.0 0.0 0.0 0.0 4.600001E-01 G -5.664327E-02 2.262209E-01 0.0 0.0 0.0 0.0 4.800001E-01 G -8.918907E-02 3.635613E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -1.188551E-01 4.958876E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -1.386834E-01 5.829241E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -1.455969E-01 6.067778E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -1.385465E-01 5.737948E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -1.194261E-01 4.975612E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -9.192014E-02 3.833514E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -5.940625E-02 2.396909E-01 0.0 0.0 0.0 0.0 6.399999E-01 G -2.852052E-02 1.042196E-01 0.0 0.0 0.0 0.0 6.599999E-01 G -7.893471E-03 2.010317E-02 0.0 0.0 0.0 0.0 6.799999E-01 G -2.103796E-04 -8.656058E-03 0.0 0.0 0.0 0.0 6.999999E-01 G -4.125057E-03 5.112983E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -2.084562E-02 7.185638E-02 0.0 0.0 0.0 0.0 7.399998E-01 G -4.944540E-02 1.959394E-01 0.0 0.0 0.0 0.0 7.599998E-01 G -8.233573E-02 3.417183E-01 0.0 0.0 0.0 0.0 7.799998E-01 G -1.117536E-01 4.661794E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -1.337325E-01 5.540848E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 51 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 1.726345E-02 9.972804E-02 0.0 0.0 0.0 0.0 2.000000E-02 G 1.602409E-02 8.795284E-02 0.0 0.0 0.0 0.0 4.000000E-02 G 1.299208E-02 6.643399E-02 0.0 0.0 0.0 0.0 6.000000E-02 G 7.373300E-03 3.646334E-02 0.0 0.0 0.0 0.0 8.000000E-02 G 5.936068E-04 4.473437E-03 0.0 0.0 0.0 0.0 9.999999E-02 G -6.535134E-03 -3.187666E-02 0.0 0.0 0.0 0.0 1.200000E-01 G -1.263359E-02 -6.724679E-02 0.0 0.0 0.0 0.0 1.400000E-01 G -1.617281E-02 -8.732010E-02 0.0 0.0 0.0 0.0 1.600000E-01 G -1.639792E-02 -8.532047E-02 0.0 0.0 0.0 0.0 1.800000E-01 G -1.353013E-02 -6.830145E-02 0.0 0.0 0.0 0.0 2.000000E-01 G -8.339021E-03 -4.399038E-02 0.0 0.0 0.0 0.0 2.200000E-01 G -1.591423E-03 -1.101861E-02 0.0 0.0 0.0 0.0 2.400000E-01 G 5.780797E-03 3.020194E-02 0.0 0.0 0.0 0.0 2.600000E-01 G 1.212600E-02 6.623100E-02 0.0 0.0 0.0 0.0 2.800000E-01 G 1.578978E-02 8.325891E-02 0.0 0.0 0.0 0.0 3.000000E-01 G 1.634764E-02 8.312082E-02 0.0 0.0 0.0 0.0 3.200000E-01 G 1.415126E-02 7.334013E-02 0.0 0.0 0.0 0.0 3.400000E-01 G 9.338117E-03 5.140954E-02 0.0 0.0 0.0 0.0 3.600000E-01 G 2.398395E-03 1.378143E-02 0.0 0.0 0.0 0.0 3.800000E-01 G -7.703990E-03 -2.919014E-02 0.0 0.0 0.0 0.0 4.000000E-01 G -5.085935E-04 -1.387250E-02 0.0 0.0 0.0 0.0 4.200000E-01 G 7.639633E-03 5.077145E-02 0.0 0.0 0.0 0.0 4.400001E-01 G 3.065482E-02 1.718806E-01 0.0 0.0 0.0 0.0 4.600001E-01 G 6.272717E-02 3.316626E-01 0.0 0.0 0.0 0.0 4.800001E-01 G 9.949066E-02 5.227460E-01 0.0 0.0 0.0 0.0 5.000001E-01 G 1.323348E-01 7.030305E-01 0.0 0.0 0.0 0.0 5.200000E-01 G 1.545146E-01 8.221683E-01 0.0 0.0 0.0 0.0 5.400000E-01 G 1.628486E-01 8.581591E-01 0.0 0.0 0.0 0.0 5.600000E-01 G 1.551891E-01 8.139981E-01 0.0 0.0 0.0 0.0 5.800000E-01 G 1.331416E-01 7.056035E-01 0.0 0.0 0.0 0.0 6.000000E-01 G 1.017326E-01 5.459657E-01 0.0 0.0 0.0 0.0 6.199999E-01 G 6.553696E-02 3.496642E-01 0.0 0.0 0.0 0.0 6.399999E-01 G 3.120855E-02 1.638073E-01 0.0 0.0 0.0 0.0 6.599999E-01 G 7.528332E-03 4.537180E-02 0.0 0.0 0.0 0.0 6.799999E-01 G -1.679823E-03 3.700558E-03 0.0 0.0 0.0 0.0 6.999999E-01 G 3.115468E-03 2.415224E-02 0.0 0.0 0.0 0.0 7.199998E-01 G 2.253920E-02 1.187567E-01 0.0 0.0 0.0 0.0 7.399998E-01 G 5.446753E-02 2.896703E-01 0.0 0.0 0.0 0.0 7.599998E-01 G 9.096155E-02 4.887786E-01 0.0 0.0 0.0 0.0 7.799998E-01 G 1.243436E-01 6.614697E-01 0.0 0.0 0.0 0.0 7.999998E-01 G 1.497113E-01 7.862128E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 52 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.394654E-13 1.000000E-01 0.0 0.0 0.0 0.0 2.000000E-02 G 1.631682E-13 8.815945E-02 0.0 0.0 0.0 0.0 4.000000E-02 G 2.530089E-14 6.656072E-02 0.0 0.0 0.0 0.0 6.000000E-02 G 1.512666E-14 3.653554E-02 0.0 0.0 0.0 0.0 8.000000E-02 G -1.739595E-15 4.480211E-03 0.0 0.0 0.0 0.0 9.999999E-02 G -1.344566E-14 -3.194106E-02 0.0 0.0 0.0 0.0 1.200000E-01 G -1.985424E-14 -6.737154E-02 0.0 0.0 0.0 0.0 1.400000E-01 G -2.361819E-14 -8.747876E-02 0.0 0.0 0.0 0.0 1.600000E-01 G -2.722721E-14 -8.548176E-02 0.0 0.0 0.0 0.0 1.800000E-01 G -2.689852E-14 -6.843473E-02 0.0 0.0 0.0 0.0 2.000000E-01 G -1.405417E-14 -4.407183E-02 0.0 0.0 0.0 0.0 2.200000E-01 G 2.417095E-15 -1.103443E-02 0.0 0.0 0.0 0.0 2.400000E-01 G 9.428185E-15 3.025798E-02 0.0 0.0 0.0 0.0 2.600000E-01 G 1.549803E-14 6.635091E-02 0.0 0.0 0.0 0.0 2.800000E-01 G 2.637916E-14 8.341487E-02 0.0 0.0 0.0 0.0 3.000000E-01 G 3.078598E-14 8.328048E-02 0.0 0.0 0.0 0.0 3.200000E-01 G 2.433973E-14 7.347896E-02 0.0 0.0 0.0 0.0 3.400000E-01 G 1.258884E-14 5.150254E-02 0.0 0.0 0.0 0.0 3.600000E-01 G 1.714604E-15 1.380486E-02 0.0 0.0 0.0 0.0 3.800000E-01 G 1.148530E-12 -2.907512E-02 0.0 0.0 0.0 0.0 4.000000E-01 G -1.279549E-12 -1.245541E-02 0.0 0.0 0.0 0.0 4.200000E-01 G -1.375377E-13 5.247950E-02 0.0 0.0 0.0 0.0 4.400001E-01 G -8.560768E-14 1.738018E-01 0.0 0.0 0.0 0.0 4.600001E-01 G -1.623141E-14 3.338889E-01 0.0 0.0 0.0 0.0 4.800001E-01 G 3.035843E-14 5.253527E-01 0.0 0.0 0.0 0.0 5.000001E-01 G 8.512096E-14 7.059575E-01 0.0 0.0 0.0 0.0 5.200000E-01 G 1.222438E-13 8.252974E-01 0.0 0.0 0.0 0.0 5.400000E-01 G 1.316255E-13 8.613840E-01 0.0 0.0 0.0 0.0 5.600000E-01 G 1.357955E-13 8.171533E-01 0.0 0.0 0.0 0.0 5.800000E-01 G 9.333018E-14 7.085238E-01 0.0 0.0 0.0 0.0 6.000000E-01 G 1.858520E-14 5.485846E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -2.236176E-14 3.519410E-01 0.0 0.0 0.0 0.0 6.399999E-01 G -6.552142E-14 1.657290E-01 0.0 0.0 0.0 0.0 6.599999E-01 G -1.266143E-13 4.705777E-02 0.0 0.0 0.0 0.0 6.799999E-01 G -1.437578E-13 5.316249E-03 0.0 0.0 0.0 0.0 6.999999E-01 G -1.250651E-13 2.580528E-02 0.0 0.0 0.0 0.0 7.199998E-01 G -9.294520E-14 1.205863E-01 0.0 0.0 0.0 0.0 7.399998E-01 G -3.678723E-14 2.918324E-01 0.0 0.0 0.0 0.0 7.599998E-01 G 1.357767E-14 4.913020E-01 0.0 0.0 0.0 0.0 7.799998E-01 G 6.231484E-14 6.643022E-01 0.0 0.0 0.0 0.0 7.999998E-01 G 1.268578E-13 7.893048E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 POINT-ID = 53 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.726345E-02 9.972804E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -1.602409E-02 8.795284E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -1.299208E-02 6.643399E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -7.373300E-03 3.646334E-02 0.0 0.0 0.0 0.0 8.000000E-02 G -5.936068E-04 4.473437E-03 0.0 0.0 0.0 0.0 9.999999E-02 G 6.535134E-03 -3.187666E-02 0.0 0.0 0.0 0.0 1.200000E-01 G 1.263359E-02 -6.724679E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 1.617281E-02 -8.732010E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 1.639792E-02 -8.532047E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 1.353013E-02 -6.830145E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 8.339021E-03 -4.399038E-02 0.0 0.0 0.0 0.0 2.200000E-01 G 1.591423E-03 -1.101861E-02 0.0 0.0 0.0 0.0 2.400000E-01 G -5.780797E-03 3.020194E-02 0.0 0.0 0.0 0.0 2.600000E-01 G -1.212600E-02 6.623100E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -1.578978E-02 8.325891E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -1.634764E-02 8.312082E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -1.415126E-02 7.334013E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -9.338117E-03 5.140954E-02 0.0 0.0 0.0 0.0 3.600000E-01 G -2.398395E-03 1.378143E-02 0.0 0.0 0.0 0.0 3.800000E-01 G 7.703990E-03 -2.919014E-02 0.0 0.0 0.0 0.0 4.000000E-01 G 5.085935E-04 -1.387250E-02 0.0 0.0 0.0 0.0 4.200000E-01 G -7.639633E-03 5.077145E-02 0.0 0.0 0.0 0.0 4.400001E-01 G -3.065482E-02 1.718806E-01 0.0 0.0 0.0 0.0 4.600001E-01 G -6.272717E-02 3.316626E-01 0.0 0.0 0.0 0.0 4.800001E-01 G -9.949066E-02 5.227460E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -1.323348E-01 7.030305E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -1.545146E-01 8.221683E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -1.628486E-01 8.581591E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -1.551891E-01 8.139981E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -1.331416E-01 7.056035E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -1.017326E-01 5.459657E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -6.553696E-02 3.496642E-01 0.0 0.0 0.0 0.0 6.399999E-01 G -3.120855E-02 1.638073E-01 0.0 0.0 0.0 0.0 6.599999E-01 G -7.528332E-03 4.537180E-02 0.0 0.0 0.0 0.0 6.799999E-01 G 1.679823E-03 3.700558E-03 0.0 0.0 0.0 0.0 6.999999E-01 G -3.115468E-03 2.415224E-02 0.0 0.0 0.0 0.0 7.199998E-01 G -2.253920E-02 1.187567E-01 0.0 0.0 0.0 0.0 7.399998E-01 G -5.446753E-02 2.896703E-01 0.0 0.0 0.0 0.0 7.599998E-01 G -9.096155E-02 4.887786E-01 0.0 0.0 0.0 0.0 7.799998E-01 G -1.243436E-01 6.614697E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -1.497113E-01 7.862128E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 1 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 0.0 0.0 2.000000E-02 0.0 0.0 4.000000E-02 0.0 0.0 6.000000E-02 0.0 0.0 8.000000E-02 0.0 0.0 9.999999E-02 0.0 0.0 1.200000E-01 0.0 0.0 1.400000E-01 0.0 0.0 1.600000E-01 0.0 0.0 1.800000E-01 0.0 0.0 2.000000E-01 0.0 0.0 2.200000E-01 0.0 0.0 2.400000E-01 0.0 0.0 2.600000E-01 0.0 0.0 2.800000E-01 0.0 0.0 3.000000E-01 0.0 0.0 3.200000E-01 0.0 0.0 3.400000E-01 0.0 0.0 3.600000E-01 0.0 0.0 3.800000E-01 0.0 0.0 4.000000E-01 0.0 0.0 4.200000E-01 0.0 0.0 4.400001E-01 0.0 0.0 4.600001E-01 0.0 0.0 4.800001E-01 0.0 0.0 5.000001E-01 0.0 0.0 5.200000E-01 0.0 0.0 5.400000E-01 0.0 0.0 5.600000E-01 0.0 0.0 5.800000E-01 0.0 0.0 6.000000E-01 0.0 0.0 6.199999E-01 0.0 0.0 6.399999E-01 0.0 0.0 6.599999E-01 0.0 0.0 6.799999E-01 0.0 0.0 6.999999E-01 0.0 0.0 7.199998E-01 0.0 0.0 7.399998E-01 0.0 0.0 7.599998E-01 0.0 0.0 7.799998E-01 0.0 0.0 7.999998E-01 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 2 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 0.0 0.0 2.000000E-02 0.0 0.0 4.000000E-02 0.0 0.0 6.000000E-02 0.0 0.0 8.000000E-02 0.0 0.0 9.999999E-02 0.0 0.0 1.200000E-01 0.0 0.0 1.400000E-01 0.0 0.0 1.600000E-01 0.0 0.0 1.800000E-01 0.0 0.0 2.000000E-01 0.0 0.0 2.200000E-01 0.0 0.0 2.400000E-01 0.0 0.0 2.600000E-01 0.0 0.0 2.800000E-01 0.0 0.0 3.000000E-01 0.0 0.0 3.200000E-01 0.0 0.0 3.400000E-01 0.0 0.0 3.600000E-01 0.0 0.0 3.800000E-01 0.0 0.0 4.000000E-01 0.0 0.0 4.200000E-01 0.0 0.0 4.400001E-01 0.0 0.0 4.600001E-01 0.0 0.0 4.800001E-01 0.0 0.0 5.000001E-01 0.0 0.0 5.200000E-01 0.0 0.0 5.400000E-01 0.0 0.0 5.600000E-01 0.0 0.0 5.800000E-01 0.0 0.0 6.000000E-01 0.0 0.0 6.199999E-01 0.0 0.0 6.399999E-01 0.0 0.0 6.599999E-01 0.0 0.0 6.799999E-01 0.0 0.0 6.999999E-01 0.0 0.0 7.199998E-01 0.0 0.0 7.399998E-01 0.0 0.0 7.599998E-01 0.0 0.0 7.799998E-01 0.0 0.0 7.999998E-01 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 11 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 6.164326E+01 0.0 2.000000E-02 4.832073E+01 0.0 4.000000E-02 2.878770E+01 0.0 6.000000E-02 1.297350E+01 0.0 8.000000E-02 4.896625E+00 0.0 9.999999E-02 -1.022456E+01 0.0 1.200000E-01 -3.465776E+01 0.0 1.400000E-01 -4.787395E+01 0.0 1.600000E-01 -3.989128E+01 0.0 1.800000E-01 -2.733296E+01 0.0 2.000000E-01 -2.204128E+01 0.0 2.200000E-01 -1.107164E+01 0.0 2.400000E-01 1.458267E+01 0.0 2.600000E-01 3.765894E+01 0.0 2.800000E-01 4.123235E+01 0.0 3.000000E-01 3.491887E+01 0.0 3.200000E-01 3.371931E+01 0.0 3.400000E-01 2.996627E+01 0.0 3.600000E-01 9.348688E+00 0.0 3.800000E-01 2.311597E+00 0.0 4.000000E-01 -1.571222E+02 0.0 4.200000E-01 -9.059539E+01 0.0 4.400001E-01 -2.799009E+01 0.0 4.600001E-01 3.353467E+01 0.0 4.800001E-01 1.182565E+02 0.0 5.000001E-01 2.238434E+02 0.0 5.200000E-01 2.912285E+02 0.0 5.400000E-01 2.887858E+02 0.0 5.600000E-01 2.576678E+02 0.0 5.800000E-01 2.247475E+02 0.0 6.000000E-01 1.564131E+02 0.0 6.199999E-01 4.434346E+01 0.0 6.399999E-01 -5.443916E+01 0.0 6.599999E-01 -9.917960E+01 0.0 6.799999E-01 -1.093448E+02 0.0 6.999999E-01 -1.071489E+02 0.0 7.199998E-01 -7.425726E+01 0.0 7.399998E-01 1.213755E+01 0.0 7.599998E-01 1.253484E+02 0.0 7.799998E-01 2.077729E+02 0.0 7.999998E-01 2.479488E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 12 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -6.164326E+01 0.0 2.000000E-02 -4.832073E+01 0.0 4.000000E-02 -2.878770E+01 0.0 6.000000E-02 -1.297350E+01 0.0 8.000000E-02 -4.896625E+00 0.0 9.999999E-02 1.022456E+01 0.0 1.200000E-01 3.465776E+01 0.0 1.400000E-01 4.787395E+01 0.0 1.600000E-01 3.989128E+01 0.0 1.800000E-01 2.733296E+01 0.0 2.000000E-01 2.204128E+01 0.0 2.200000E-01 1.107164E+01 0.0 2.400000E-01 -1.458267E+01 0.0 2.600000E-01 -3.765894E+01 0.0 2.800000E-01 -4.123235E+01 0.0 3.000000E-01 -3.491887E+01 0.0 3.200000E-01 -3.371931E+01 0.0 3.400000E-01 -2.996627E+01 0.0 3.600000E-01 -9.348688E+00 0.0 3.800000E-01 -2.311597E+00 0.0 4.000000E-01 1.571222E+02 0.0 4.200000E-01 9.059539E+01 0.0 4.400001E-01 2.799009E+01 0.0 4.600001E-01 -3.353467E+01 0.0 4.800001E-01 -1.182565E+02 0.0 5.000001E-01 -2.238434E+02 0.0 5.200000E-01 -2.912285E+02 0.0 5.400000E-01 -2.887858E+02 0.0 5.600000E-01 -2.576678E+02 0.0 5.800000E-01 -2.247475E+02 0.0 6.000000E-01 -1.564131E+02 0.0 6.199999E-01 -4.434346E+01 0.0 6.399999E-01 5.443916E+01 0.0 6.599999E-01 9.917960E+01 0.0 6.799999E-01 1.093448E+02 0.0 6.999999E-01 1.071489E+02 0.0 7.199998E-01 7.425726E+01 0.0 7.399998E-01 -1.213755E+01 0.0 7.599998E-01 -1.253484E+02 0.0 7.799998E-01 -2.077729E+02 0.0 7.999998E-01 -2.479488E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 21 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 6.093340E+01 0.0 2.000000E-02 4.750005E+01 0.0 4.000000E-02 2.866670E+01 0.0 6.000000E-02 1.351882E+01 0.0 8.000000E-02 4.455332E+00 0.0 9.999999E-02 -1.099212E+01 0.0 1.200000E-01 -3.367368E+01 0.0 1.400000E-01 -4.586485E+01 0.0 1.600000E-01 -3.938291E+01 0.0 1.800000E-01 -2.786074E+01 0.0 2.000000E-01 -2.137778E+01 0.0 2.200000E-01 -9.862500E+00 0.0 2.400000E-01 1.418079E+01 0.0 2.600000E-01 3.603589E+01 0.0 2.800000E-01 4.034707E+01 0.0 3.000000E-01 3.501665E+01 0.0 3.200000E-01 3.335581E+01 0.0 3.400000E-01 2.863418E+01 0.0 3.600000E-01 8.640747E+00 0.0 3.800000E-01 1.417786E+00 0.0 4.000000E-01 -4.754707E+01 0.0 4.200000E-01 1.641021E+01 0.0 4.400001E-01 7.510049E+01 0.0 4.600001E-01 1.367783E+02 0.0 4.800001E-01 2.240531E+02 0.0 5.000001E-01 3.237914E+02 0.0 5.200000E-01 3.857965E+02 0.0 5.400000E-01 3.890977E+02 0.0 5.600000E-01 3.610312E+02 0.0 5.800000E-01 3.225809E+02 0.0 6.000000E-01 2.552567E+02 0.0 6.199999E-01 1.503152E+02 0.0 6.399999E-01 5.238706E+01 0.0 6.599999E-01 6.113526E+00 0.0 6.799999E-01 -2.797852E+00 0.0 6.999999E-01 -9.208008E-01 0.0 7.199998E-01 3.185918E+01 0.0 7.399998E-01 1.186037E+02 0.0 7.599998E-01 2.265762E+02 0.0 7.799998E-01 3.050836E+02 0.0 7.999998E-01 3.497356E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 22 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -6.093340E+01 0.0 2.000000E-02 -4.750005E+01 0.0 4.000000E-02 -2.866670E+01 0.0 6.000000E-02 -1.351882E+01 0.0 8.000000E-02 -4.455332E+00 0.0 9.999999E-02 1.099212E+01 0.0 1.200000E-01 3.367368E+01 0.0 1.400000E-01 4.586485E+01 0.0 1.600000E-01 3.938291E+01 0.0 1.800000E-01 2.786074E+01 0.0 2.000000E-01 2.137778E+01 0.0 2.200000E-01 9.862500E+00 0.0 2.400000E-01 -1.418079E+01 0.0 2.600000E-01 -3.603589E+01 0.0 2.800000E-01 -4.034707E+01 0.0 3.000000E-01 -3.501665E+01 0.0 3.200000E-01 -3.335581E+01 0.0 3.400000E-01 -2.863418E+01 0.0 3.600000E-01 -8.640747E+00 0.0 3.800000E-01 -1.417786E+00 0.0 4.000000E-01 4.754707E+01 0.0 4.200000E-01 -1.641021E+01 0.0 4.400001E-01 -7.510049E+01 0.0 4.600001E-01 -1.367783E+02 0.0 4.800001E-01 -2.240531E+02 0.0 5.000001E-01 -3.237914E+02 0.0 5.200000E-01 -3.857965E+02 0.0 5.400000E-01 -3.890977E+02 0.0 5.600000E-01 -3.610312E+02 0.0 5.800000E-01 -3.225809E+02 0.0 6.000000E-01 -2.552567E+02 0.0 6.199999E-01 -1.503152E+02 0.0 6.399999E-01 -5.238706E+01 0.0 6.599999E-01 -6.113526E+00 0.0 6.799999E-01 2.797852E+00 0.0 6.999999E-01 9.208008E-01 0.0 7.199998E-01 -3.185918E+01 0.0 7.399998E-01 -1.186037E+02 0.0 7.599998E-01 -2.265762E+02 0.0 7.799998E-01 -3.050836E+02 0.0 7.999998E-01 -3.497356E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 31 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 5.958399E+01 0.0 2.000000E-02 4.605117E+01 0.0 4.000000E-02 2.826738E+01 0.0 6.000000E-02 1.420151E+01 0.0 8.000000E-02 3.680127E+00 0.0 9.999999E-02 -1.199019E+01 0.0 1.200000E-01 -3.182344E+01 0.0 1.400000E-01 -4.245088E+01 0.0 1.600000E-01 -3.820605E+01 0.0 1.800000E-01 -2.831895E+01 0.0 2.000000E-01 -2.022495E+01 0.0 2.200000E-01 -7.959339E+00 0.0 2.400000E-01 1.350850E+01 0.0 2.600000E-01 3.319512E+01 0.0 2.800000E-01 3.855908E+01 0.0 3.000000E-01 3.488614E+01 0.0 3.200000E-01 3.247676E+01 0.0 3.400000E-01 2.626875E+01 0.0 3.600000E-01 7.536622E+00 0.0 3.800000E-01 2.832275E+00 0.0 4.000000E-01 6.555235E+01 0.0 4.200000E-01 1.262009E+02 0.0 4.400001E-01 1.795641E+02 0.0 4.600001E-01 2.415996E+02 0.0 4.800001E-01 3.301898E+02 0.0 5.000001E-01 4.205180E+02 0.0 5.200000E-01 4.751836E+02 0.0 5.400000E-01 4.857539E+02 0.0 5.600000E-01 4.621078E+02 0.0 5.800000E-01 4.173727E+02 0.0 6.000000E-01 3.515531E+02 0.0 6.199999E-01 2.572148E+02 0.0 6.399999E-01 1.630553E+02 0.0 6.599999E-01 1.150832E+02 0.0 6.799999E-01 1.065491E+02 0.0 6.999999E-01 1.088793E+02 0.0 7.199998E-01 1.420981E+02 0.0 7.399998E-01 2.269219E+02 0.0 7.599998E-01 3.260883E+02 0.0 7.799998E-01 3.993492E+02 0.0 7.999998E-01 4.491539E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 32 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -5.958399E+01 0.0 2.000000E-02 -4.605117E+01 0.0 4.000000E-02 -2.826738E+01 0.0 6.000000E-02 -1.420151E+01 0.0 8.000000E-02 -3.680127E+00 0.0 9.999999E-02 1.199019E+01 0.0 1.200000E-01 3.182344E+01 0.0 1.400000E-01 4.245088E+01 0.0 1.600000E-01 3.820605E+01 0.0 1.800000E-01 2.831895E+01 0.0 2.000000E-01 2.022495E+01 0.0 2.200000E-01 7.959339E+00 0.0 2.400000E-01 -1.350850E+01 0.0 2.600000E-01 -3.319512E+01 0.0 2.800000E-01 -3.855908E+01 0.0 3.000000E-01 -3.488614E+01 0.0 3.200000E-01 -3.247676E+01 0.0 3.400000E-01 -2.626875E+01 0.0 3.600000E-01 -7.536622E+00 0.0 3.800000E-01 -2.832275E+00 0.0 4.000000E-01 -6.555235E+01 0.0 4.200000E-01 -1.262009E+02 0.0 4.400001E-01 -1.795641E+02 0.0 4.600001E-01 -2.415996E+02 0.0 4.800001E-01 -3.301898E+02 0.0 5.000001E-01 -4.205180E+02 0.0 5.200000E-01 -4.751836E+02 0.0 5.400000E-01 -4.857539E+02 0.0 5.600000E-01 -4.621078E+02 0.0 5.800000E-01 -4.173727E+02 0.0 6.000000E-01 -3.515531E+02 0.0 6.199999E-01 -2.572148E+02 0.0 6.399999E-01 -1.630553E+02 0.0 6.599999E-01 -1.150832E+02 0.0 6.799999E-01 -1.065491E+02 0.0 6.999999E-01 -1.088793E+02 0.0 7.199998E-01 -1.420981E+02 0.0 7.399998E-01 -2.269219E+02 0.0 7.599998E-01 -3.260883E+02 0.0 7.799998E-01 -3.993492E+02 0.0 7.999998E-01 -4.491539E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 41 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 5.751328E+01 0.0 2.000000E-02 4.403438E+01 0.0 4.000000E-02 2.735010E+01 0.0 6.000000E-02 1.466865E+01 0.0 8.000000E-02 2.629248E+00 0.0 9.999999E-02 -1.278779E+01 0.0 1.200000E-01 -2.904317E+01 0.0 1.400000E-01 -3.784277E+01 0.0 1.600000E-01 -3.605977E+01 0.0 1.800000E-01 -2.817275E+01 0.0 2.000000E-01 -1.860732E+01 0.0 2.200000E-01 -5.665503E+00 0.0 2.400000E-01 1.257905E+01 0.0 2.600000E-01 2.925410E+01 0.0 2.800000E-01 3.569063E+01 0.0 3.000000E-01 3.412500E+01 0.0 3.200000E-01 3.081328E+01 0.0 3.400000E-01 2.297256E+01 0.0 3.600000E-01 6.206543E+00 0.0 3.800000E-01 8.899952E+00 0.0 4.000000E-01 1.808678E+02 0.0 4.200000E-01 2.387467E+02 0.0 4.400001E-01 2.867191E+02 0.0 4.600001E-01 3.490008E+02 0.0 4.800001E-01 4.347938E+02 0.0 5.000001E-01 5.132485E+02 0.0 5.200000E-01 5.605688E+02 0.0 5.400000E-01 5.771250E+02 0.0 5.600000E-01 5.582906E+02 0.0 5.800000E-01 5.098266E+02 0.0 6.000000E-01 4.460180E+02 0.0 6.199999E-01 3.638438E+02 0.0 6.399999E-01 2.780754E+02 0.0 6.599999E-01 2.293493E+02 0.0 6.799999E-01 2.191032E+02 0.0 6.999999E-01 2.233013E+02 0.0 7.199998E-01 2.576508E+02 0.0 7.399998E-01 3.362953E+02 0.0 7.599998E-01 4.237641E+02 0.0 7.799998E-01 4.916672E+02 0.0 7.999998E-01 5.446078E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 42 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -5.751328E+01 0.0 2.000000E-02 -4.403438E+01 0.0 4.000000E-02 -2.735010E+01 0.0 6.000000E-02 -1.466865E+01 0.0 8.000000E-02 -2.629248E+00 0.0 9.999999E-02 1.278779E+01 0.0 1.200000E-01 2.904317E+01 0.0 1.400000E-01 3.784277E+01 0.0 1.600000E-01 3.605977E+01 0.0 1.800000E-01 2.817275E+01 0.0 2.000000E-01 1.860732E+01 0.0 2.200000E-01 5.665503E+00 0.0 2.400000E-01 -1.257905E+01 0.0 2.600000E-01 -2.925410E+01 0.0 2.800000E-01 -3.569063E+01 0.0 3.000000E-01 -3.412500E+01 0.0 3.200000E-01 -3.081328E+01 0.0 3.400000E-01 -2.297256E+01 0.0 3.600000E-01 -6.206543E+00 0.0 3.800000E-01 -8.899952E+00 0.0 4.000000E-01 -1.808678E+02 0.0 4.200000E-01 -2.387467E+02 0.0 4.400001E-01 -2.867191E+02 0.0 4.600001E-01 -3.490008E+02 0.0 4.800001E-01 -4.347938E+02 0.0 5.000001E-01 -5.132485E+02 0.0 5.200000E-01 -5.605688E+02 0.0 5.400000E-01 -5.771250E+02 0.0 5.600000E-01 -5.582906E+02 0.0 5.800000E-01 -5.098266E+02 0.0 6.000000E-01 -4.460180E+02 0.0 6.199999E-01 -3.638438E+02 0.0 6.399999E-01 -2.780754E+02 0.0 6.599999E-01 -2.293493E+02 0.0 6.799999E-01 -2.191032E+02 0.0 6.999999E-01 -2.233013E+02 0.0 7.199998E-01 -2.576508E+02 0.0 7.399998E-01 -3.362953E+02 0.0 7.599998E-01 -4.237641E+02 0.0 7.799998E-01 -4.916672E+02 0.0 7.999998E-01 -5.446078E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 51 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 2.719688E+01 0.0 2.000000E-02 2.066074E+01 0.0 4.000000E-02 1.267266E+01 0.0 6.000000E-02 7.220215E+00 0.0 8.000000E-02 6.773804E-01 0.0 9.999999E-02 -6.440332E+00 0.0 1.200000E-01 -1.247520E+01 0.0 1.400000E-01 -1.586719E+01 0.0 1.600000E-01 -1.612910E+01 0.0 1.800000E-01 -1.332832E+01 0.0 2.000000E-01 -8.144238E+00 0.0 2.200000E-01 -1.581592E+00 0.0 2.400000E-01 5.604492E+00 0.0 2.600000E-01 1.199180E+01 0.0 2.800000E-01 1.559590E+01 0.0 3.000000E-01 1.596621E+01 0.0 3.200000E-01 1.388262E+01 0.0 3.400000E-01 9.301172E+00 0.0 3.600000E-01 2.343164E+00 0.0 3.800000E-01 1.150166E+01 0.0 4.000000E-01 1.417096E+02 0.0 4.200000E-01 1.708049E+02 0.0 4.400001E-01 1.921207E+02 0.0 4.600001E-01 2.226352E+02 0.0 4.800001E-01 2.606766E+02 0.0 5.000001E-01 2.927016E+02 0.0 5.200000E-01 3.129094E+02 0.0 5.400000E-01 3.224813E+02 0.0 5.600000E-01 3.155250E+02 0.0 5.800000E-01 2.920312E+02 0.0 6.000000E-01 2.618906E+02 0.0 6.199999E-01 2.276813E+02 0.0 6.399999E-01 1.921699E+02 0.0 6.599999E-01 1.685974E+02 0.0 6.799999E-01 1.615692E+02 0.0 6.999999E-01 1.653038E+02 0.0 7.199998E-01 1.829660E+02 0.0 7.399998E-01 2.162110E+02 0.0 7.599998E-01 2.523469E+02 0.0 7.799998E-01 2.832469E+02 0.0 7.999998E-01 3.091969E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 52 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -2.719688E+01 0.0 2.000000E-02 -2.066074E+01 0.0 4.000000E-02 -1.267266E+01 0.0 6.000000E-02 -7.220215E+00 0.0 8.000000E-02 -6.773804E-01 0.0 9.999999E-02 6.440332E+00 0.0 1.200000E-01 1.247520E+01 0.0 1.400000E-01 1.586719E+01 0.0 1.600000E-01 1.612910E+01 0.0 1.800000E-01 1.332832E+01 0.0 2.000000E-01 8.144238E+00 0.0 2.200000E-01 1.581592E+00 0.0 2.400000E-01 -5.604492E+00 0.0 2.600000E-01 -1.199180E+01 0.0 2.800000E-01 -1.559590E+01 0.0 3.000000E-01 -1.596621E+01 0.0 3.200000E-01 -1.388262E+01 0.0 3.400000E-01 -9.301172E+00 0.0 3.600000E-01 -2.343164E+00 0.0 3.800000E-01 -1.150166E+01 0.0 4.000000E-01 -1.417096E+02 0.0 4.200000E-01 -1.708049E+02 0.0 4.400001E-01 -1.921207E+02 0.0 4.600001E-01 -2.226352E+02 0.0 4.800001E-01 -2.606766E+02 0.0 5.000001E-01 -2.927016E+02 0.0 5.200000E-01 -3.129094E+02 0.0 5.400000E-01 -3.224813E+02 0.0 5.600000E-01 -3.155250E+02 0.0 5.800000E-01 -2.920312E+02 0.0 6.000000E-01 -2.618906E+02 0.0 6.199999E-01 -2.276813E+02 0.0 6.399999E-01 -1.921699E+02 0.0 6.599999E-01 -1.685974E+02 0.0 6.799999E-01 -1.615692E+02 0.0 6.999999E-01 -1.653038E+02 0.0 7.199998E-01 -1.829660E+02 0.0 7.399998E-01 -2.162110E+02 0.0 7.599998E-01 -2.523469E+02 0.0 7.799998E-01 -2.832469E+02 0.0 7.999998E-01 -3.091969E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 111 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 4.223695E+02 0.0 2.000000E-02 3.681719E+02 0.0 4.000000E-02 2.716137E+02 0.0 6.000000E-02 1.460233E+02 0.0 8.000000E-02 2.133002E+01 0.0 9.999999E-02 -1.264109E+02 0.0 1.200000E-01 -2.806487E+02 0.0 1.400000E-01 -3.676077E+02 0.0 1.600000E-01 -3.517747E+02 0.0 1.800000E-01 -2.766795E+02 0.0 2.000000E-01 -1.830248E+02 0.0 2.200000E-01 -5.172398E+01 0.0 2.400000E-01 1.251109E+02 0.0 2.600000E-01 2.801393E+02 0.0 2.800000E-01 3.456831E+02 0.0 3.000000E-01 3.386353E+02 0.0 3.200000E-01 3.018050E+02 0.0 3.400000E-01 2.181763E+02 0.0 3.600000E-01 5.995147E+01 0.0 3.800000E-01 -1.102898E+02 0.0 4.000000E-01 -3.006419E+02 0.0 4.200000E-01 -4.595445E+00 0.0 4.400001E-01 5.026616E+02 0.0 4.600001E-01 1.148534E+03 0.0 4.800001E-01 1.929301E+03 0.0 5.000001E-01 2.695758E+03 0.0 5.200000E-01 3.201235E+03 0.0 5.400000E-01 3.327427E+03 0.0 5.600000E-01 3.133626E+03 0.0 5.800000E-01 2.707696E+03 0.0 6.000000E-01 2.055257E+03 0.0 6.199999E-01 1.222772E+03 0.0 6.399999E-01 4.457762E+02 0.0 6.599999E-01 -3.105162E+01 0.0 6.799999E-01 -1.950902E+02 0.0 6.999999E-01 -1.174157E+02 0.0 7.199998E-01 2.619443E+02 0.0 7.399998E-01 9.715467E+02 0.0 7.599998E-01 1.813900E+03 0.0 7.799998E-01 2.529675E+03 0.0 7.999998E-01 3.023463E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 112 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -1.170807E-08 0.0 2.000000E-02 1.369472E-08 0.0 4.000000E-02 2.122448E-09 0.0 6.000000E-02 1.269021E-09 0.0 8.000000E-02 -1.460445E-10 0.0 9.999999E-02 -1.127989E-09 0.0 1.200000E-01 -1.665404E-09 0.0 1.400000E-01 -1.981022E-09 0.0 1.600000E-01 -2.283969E-09 0.0 1.800000E-01 -2.256616E-09 0.0 2.000000E-01 -1.178960E-09 0.0 2.200000E-01 2.030175E-10 0.0 2.400000E-01 7.908564E-10 0.0 2.600000E-01 1.299803E-09 0.0 2.800000E-01 2.212833E-09 0.0 3.000000E-01 2.582703E-09 0.0 3.200000E-01 2.041749E-09 0.0 3.400000E-01 1.055870E-09 0.0 3.600000E-01 1.437276E-10 0.0 3.800000E-01 9.640727E-08 0.0 4.000000E-01 -1.074036E-07 0.0 4.200000E-01 -1.154444E-08 0.0 4.400001E-01 -7.187852E-09 0.0 4.600001E-01 -1.367324E-09 0.0 4.800001E-01 2.540085E-09 0.0 5.000001E-01 7.134207E-09 0.0 5.200000E-01 1.024756E-08 0.0 5.400000E-01 1.103438E-08 0.0 5.600000E-01 1.138437E-08 0.0 5.800000E-01 7.823094E-09 0.0 6.000000E-01 1.551637E-09 0.0 6.199999E-01 -1.882092E-09 0.0 6.399999E-01 -5.501786E-09 0.0 6.599999E-01 -1.062783E-08 0.0 6.799999E-01 -1.206623E-08 0.0 6.999999E-01 -1.049726E-08 0.0 7.199998E-01 -7.802948E-09 0.0 7.399998E-01 -3.092339E-09 0.0 7.599998E-01 1.132004E-09 0.0 7.799998E-01 5.219917E-09 0.0 7.999998E-01 1.063591E-08 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 113 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -4.223695E+02 0.0 2.000000E-02 -3.681719E+02 0.0 4.000000E-02 -2.716137E+02 0.0 6.000000E-02 -1.460233E+02 0.0 8.000000E-02 -2.133002E+01 0.0 9.999999E-02 1.264109E+02 0.0 1.200000E-01 2.806487E+02 0.0 1.400000E-01 3.676077E+02 0.0 1.600000E-01 3.517747E+02 0.0 1.800000E-01 2.766795E+02 0.0 2.000000E-01 1.830248E+02 0.0 2.200000E-01 5.172398E+01 0.0 2.400000E-01 -1.251109E+02 0.0 2.600000E-01 -2.801393E+02 0.0 2.800000E-01 -3.456831E+02 0.0 3.000000E-01 -3.386353E+02 0.0 3.200000E-01 -3.018050E+02 0.0 3.400000E-01 -2.181763E+02 0.0 3.600000E-01 -5.995147E+01 0.0 3.800000E-01 1.102898E+02 0.0 4.000000E-01 3.006419E+02 0.0 4.200000E-01 4.595445E+00 0.0 4.400001E-01 -5.026616E+02 0.0 4.600001E-01 -1.148534E+03 0.0 4.800001E-01 -1.929301E+03 0.0 5.000001E-01 -2.695758E+03 0.0 5.200000E-01 -3.201235E+03 0.0 5.400000E-01 -3.327427E+03 0.0 5.600000E-01 -3.133626E+03 0.0 5.800000E-01 -2.707696E+03 0.0 6.000000E-01 -2.055257E+03 0.0 6.199999E-01 -1.222772E+03 0.0 6.399999E-01 -4.457762E+02 0.0 6.599999E-01 3.105162E+01 0.0 6.799999E-01 1.950902E+02 0.0 6.999999E-01 1.174157E+02 0.0 7.199998E-01 -2.619443E+02 0.0 7.399998E-01 -9.715467E+02 0.0 7.599998E-01 -1.813900E+03 0.0 7.799998E-01 -2.529675E+03 0.0 7.999998E-01 -3.023463E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 121 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 3.398000E+02 0.0 2.000000E-02 3.032904E+02 0.0 4.000000E-02 2.331543E+02 0.0 6.000000E-02 1.290230E+02 0.0 8.000000E-02 1.456854E+01 0.0 9.999999E-02 -1.132030E+02 0.0 1.200000E-01 -2.339044E+02 0.0 1.400000E-01 -3.026671E+02 0.0 1.600000E-01 -2.983086E+02 0.0 1.800000E-01 -2.405318E+02 0.0 2.000000E-01 -1.532653E+02 0.0 2.200000E-01 -3.629723E+01 0.0 2.400000E-01 1.054366E+02 0.0 2.600000E-01 2.290432E+02 0.0 2.800000E-01 2.902297E+02 0.0 3.000000E-01 2.921189E+02 0.0 3.200000E-01 2.566447E+02 0.0 3.400000E-01 1.775037E+02 0.0 3.600000E-01 4.709263E+01 0.0 3.800000E-01 -1.142212E+02 0.0 4.000000E-01 -8.812500E+00 0.0 4.200000E-01 1.969957E+02 0.0 4.400001E-01 6.184639E+02 0.0 4.600001E-01 1.182282E+03 0.0 4.800001E-01 1.851722E+03 0.0 5.000001E-01 2.474131E+03 0.0 5.200000E-01 2.886625E+03 0.0 5.400000E-01 3.019410E+03 0.0 5.600000E-01 2.868823E+03 0.0 5.800000E-01 2.483533E+03 0.0 6.000000E-01 1.922868E+03 0.0 6.199999E-01 1.243865E+03 0.0 6.399999E-01 5.988370E+02 0.0 6.599999E-01 1.808168E+02 0.0 6.799999E-01 3.123369E+01 0.0 6.999999E-01 1.056699E+02 0.0 7.199998E-01 4.409910E+02 0.0 7.399998E-01 1.035805E+03 0.0 7.599998E-01 1.724316E+03 0.0 7.799998E-01 2.327855E+03 0.0 7.999998E-01 2.770678E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 122 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -1.394508E-09 0.0 2.000000E-02 1.631678E-09 0.0 4.000000E-02 2.530684E-10 0.0 6.000000E-02 1.512625E-10 0.0 8.000000E-02 -1.739450E-11 0.0 9.999999E-02 -1.344688E-10 0.0 1.200000E-01 -1.985793E-10 0.0 1.400000E-01 -2.361674E-10 0.0 1.600000E-01 -2.723046E-10 0.0 1.800000E-01 -2.690624E-10 0.0 2.000000E-01 -1.405618E-10 0.0 2.200000E-01 2.417090E-11 0.0 2.400000E-01 9.427219E-11 0.0 2.600000E-01 1.549993E-10 0.0 2.800000E-01 2.637831E-10 0.0 3.000000E-01 3.079065E-10 0.0 3.200000E-01 2.434634E-10 0.0 3.400000E-01 1.259015E-10 0.0 3.600000E-01 1.715128E-11 0.0 3.800000E-01 1.148483E-08 0.0 4.000000E-01 -1.279516E-08 0.0 4.200000E-01 -1.375426E-09 0.0 4.400001E-01 -8.560374E-10 0.0 4.600001E-01 -1.621392E-10 0.0 4.800001E-01 3.036955E-10 0.0 5.000001E-01 8.518877E-10 0.0 5.200000E-01 1.222797E-09 0.0 5.400000E-01 1.316228E-09 0.0 5.600000E-01 1.358426E-09 0.0 5.800000E-01 9.338499E-10 0.0 6.000000E-01 1.861090E-10 0.0 6.199999E-01 -2.234486E-10 0.0 6.399999E-01 -6.552716E-10 0.0 6.599999E-01 -1.266314E-09 0.0 6.799999E-01 -1.437610E-09 0.0 6.999999E-01 -1.250740E-09 0.0 7.199998E-01 -9.294859E-10 0.0 7.399998E-01 -3.677847E-10 0.0 7.599998E-01 1.360398E-10 0.0 7.799998E-01 6.232982E-10 0.0 7.999998E-01 1.268903E-09 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 123 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -3.398000E+02 0.0 2.000000E-02 -3.032904E+02 0.0 4.000000E-02 -2.331543E+02 0.0 6.000000E-02 -1.290230E+02 0.0 8.000000E-02 -1.456854E+01 0.0 9.999999E-02 1.132030E+02 0.0 1.200000E-01 2.339044E+02 0.0 1.400000E-01 3.026671E+02 0.0 1.600000E-01 2.983086E+02 0.0 1.800000E-01 2.405318E+02 0.0 2.000000E-01 1.532653E+02 0.0 2.200000E-01 3.629723E+01 0.0 2.400000E-01 -1.054366E+02 0.0 2.600000E-01 -2.290432E+02 0.0 2.800000E-01 -2.902297E+02 0.0 3.000000E-01 -2.921189E+02 0.0 3.200000E-01 -2.566447E+02 0.0 3.400000E-01 -1.775037E+02 0.0 3.600000E-01 -4.709263E+01 0.0 3.800000E-01 1.142212E+02 0.0 4.000000E-01 8.812500E+00 0.0 4.200000E-01 -1.969957E+02 0.0 4.400001E-01 -6.184639E+02 0.0 4.600001E-01 -1.182282E+03 0.0 4.800001E-01 -1.851722E+03 0.0 5.000001E-01 -2.474131E+03 0.0 5.200000E-01 -2.886625E+03 0.0 5.400000E-01 -3.019410E+03 0.0 5.600000E-01 -2.868823E+03 0.0 5.800000E-01 -2.483533E+03 0.0 6.000000E-01 -1.922868E+03 0.0 6.199999E-01 -1.243865E+03 0.0 6.399999E-01 -5.988370E+02 0.0 6.599999E-01 -1.808168E+02 0.0 6.799999E-01 -3.123369E+01 0.0 6.999999E-01 -1.056699E+02 0.0 7.199998E-01 -4.409910E+02 0.0 7.399998E-01 -1.035805E+03 0.0 7.599998E-01 -1.724316E+03 0.0 7.799998E-01 -2.327855E+03 0.0 7.999998E-01 -2.770678E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 131 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 2.576757E+02 0.0 2.000000E-02 2.389526E+02 0.0 4.000000E-02 1.946614E+02 0.0 6.000000E-02 1.114967E+02 0.0 8.000000E-02 8.118103E+00 0.0 9.999999E-02 -9.928233E+01 0.0 1.200000E-01 -1.877666E+02 0.0 1.400000E-01 -2.391519E+02 0.0 1.600000E-01 -2.450336E+02 0.0 1.800000E-01 -2.037673E+02 0.0 2.000000E-01 -1.239565E+02 0.0 2.200000E-01 -2.181927E+01 0.0 2.400000E-01 8.604547E+01 0.0 2.600000E-01 1.790671E+02 0.0 2.800000E-01 2.352549E+02 0.0 3.000000E-01 2.453558E+02 0.0 3.200000E-01 2.115986E+02 0.0 3.400000E-01 1.377343E+02 0.0 3.600000E-01 3.478857E+01 0.0 3.800000E-01 -1.159587E+02 0.0 4.000000E-01 1.404263E+02 0.0 4.200000E-01 2.585297E+02 0.0 4.400001E-01 5.976136E+02 0.0 4.600001E-01 1.079219E+03 0.0 4.800001E-01 1.634016E+03 0.0 5.000001E-01 2.116817E+03 0.0 5.200000E-01 2.440999E+03 0.0 5.400000E-01 2.575041E+03 0.0 5.600000E-01 2.465134E+03 0.0 5.800000E-01 2.125962E+03 0.0 6.000000E-01 1.656306E+03 0.0 6.199999E-01 1.125016E+03 0.0 6.399999E-01 6.124471E+02 0.0 6.599999E-01 2.548027E+02 0.0 6.799999E-01 1.180244E+02 0.0 6.999999E-01 1.898836E+02 0.0 7.199998E-01 4.814554E+02 0.0 7.399998E-01 9.600409E+02 0.0 7.599998E-01 1.498493E+03 0.0 7.799998E-01 1.993180E+03 0.0 7.999998E-01 2.380618E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 132 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 1.561509E-08 0.0 2.000000E-02 -1.826301E-08 0.0 4.000000E-02 -2.829895E-09 0.0 6.000000E-02 -1.692053E-09 0.0 8.000000E-02 1.947846E-10 0.0 9.999999E-02 1.503977E-09 0.0 1.200000E-01 2.220493E-09 0.0 1.400000E-01 2.641288E-09 0.0 1.600000E-01 3.045143E-09 0.0 1.800000E-01 3.008765E-09 0.0 2.000000E-01 1.571938E-09 0.0 2.200000E-01 -2.708054E-10 0.0 2.400000E-01 -1.054461E-09 0.0 2.600000E-01 -1.732907E-09 0.0 2.800000E-01 -2.950350E-09 0.0 3.000000E-01 -3.443521E-09 0.0 3.200000E-01 -2.722250E-09 0.0 3.400000E-01 -1.407664E-09 0.0 3.600000E-01 -1.915728E-10 0.0 3.800000E-01 -1.285720E-07 0.0 4.000000E-01 1.432364E-07 0.0 4.200000E-01 1.539581E-08 0.0 4.400001E-01 9.586731E-09 0.0 4.600001E-01 1.826619E-09 0.0 4.800001E-01 -3.382993E-09 0.0 5.000001E-01 -9.508771E-09 0.0 5.200000E-01 -1.366025E-08 0.0 5.400000E-01 -1.470937E-08 0.0 5.600000E-01 -1.517596E-08 0.0 5.800000E-01 -1.042634E-08 0.0 6.000000E-01 -2.063848E-09 0.0 6.199999E-01 2.512705E-09 0.0 6.399999E-01 7.338368E-09 0.0 6.599999E-01 1.417375E-08 0.0 6.799999E-01 1.609159E-08 0.0 6.999999E-01 1.399918E-08 0.0 7.199998E-01 1.040698E-08 0.0 7.399998E-01 4.126117E-09 0.0 7.599998E-01 -1.506645E-09 0.0 7.799998E-01 -6.955853E-09 0.0 7.999998E-01 -1.417633E-08 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 133 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -2.576757E+02 0.0 2.000000E-02 -2.389526E+02 0.0 4.000000E-02 -1.946614E+02 0.0 6.000000E-02 -1.114967E+02 0.0 8.000000E-02 -8.118103E+00 0.0 9.999999E-02 9.928233E+01 0.0 1.200000E-01 1.877666E+02 0.0 1.400000E-01 2.391519E+02 0.0 1.600000E-01 2.450336E+02 0.0 1.800000E-01 2.037673E+02 0.0 2.000000E-01 1.239565E+02 0.0 2.200000E-01 2.181927E+01 0.0 2.400000E-01 -8.604547E+01 0.0 2.600000E-01 -1.790671E+02 0.0 2.800000E-01 -2.352549E+02 0.0 3.000000E-01 -2.453558E+02 0.0 3.200000E-01 -2.115986E+02 0.0 3.400000E-01 -1.377343E+02 0.0 3.600000E-01 -3.478857E+01 0.0 3.800000E-01 1.159587E+02 0.0 4.000000E-01 -1.404263E+02 0.0 4.200000E-01 -2.585297E+02 0.0 4.400001E-01 -5.976136E+02 0.0 4.600001E-01 -1.079219E+03 0.0 4.800001E-01 -1.634016E+03 0.0 5.000001E-01 -2.116817E+03 0.0 5.200000E-01 -2.440999E+03 0.0 5.400000E-01 -2.575041E+03 0.0 5.600000E-01 -2.465134E+03 0.0 5.800000E-01 -2.125962E+03 0.0 6.000000E-01 -1.656306E+03 0.0 6.199999E-01 -1.125016E+03 0.0 6.399999E-01 -6.124471E+02 0.0 6.599999E-01 -2.548027E+02 0.0 6.799999E-01 -1.180244E+02 0.0 6.999999E-01 -1.898836E+02 0.0 7.199998E-01 -4.814554E+02 0.0 7.399998E-01 -9.600409E+02 0.0 7.599998E-01 -1.498493E+03 0.0 7.799998E-01 -1.993180E+03 0.0 7.999998E-01 -2.380618E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 141 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 1.767943E+02 0.0 2.000000E-02 1.760250E+02 0.0 4.000000E-02 1.563360E+02 0.0 6.000000E-02 9.299451E+01 0.0 8.000000E-02 2.453403E+00 0.0 9.999999E-02 -8.400620E+01 0.0 1.200000E-01 -1.433318E+02 0.0 1.400000E-01 -1.791094E+02 0.0 1.600000E-01 -1.926121E+02 0.0 1.800000E-01 -1.660551E+02 0.0 2.000000E-01 -9.578057E+01 0.0 2.200000E-01 -9.454624E+00 0.0 2.400000E-01 6.732946E+01 0.0 2.600000E-01 1.319158E+02 0.0 2.800000E-01 1.818071E+02 0.0 3.000000E-01 1.983650E+02 0.0 3.200000E-01 1.671532E+02 0.0 3.400000E-01 1.002968E+02 0.0 3.600000E-01 2.371107E+01 0.0 3.800000E-01 -1.165682E+02 0.0 4.000000E-01 1.412881E+02 0.0 4.200000E-01 1.760521E+02 0.0 4.400001E-01 4.393153E+02 0.0 4.600001E-01 8.382103E+02 0.0 4.800001E-01 1.274142E+03 0.0 5.000001E-01 1.627424E+03 0.0 5.200000E-01 1.872397E+03 0.0 5.400000E-01 1.997888E+03 0.0 5.600000E-01 1.923403E+03 0.0 5.800000E-01 1.639764E+03 0.0 6.000000E-01 1.259581E+03 0.0 6.199999E-01 8.638157E+02 0.0 6.399999E-01 4.819789E+02 0.0 6.599999E-01 1.874426E+02 0.0 6.799999E-01 6.161058E+01 0.0 6.999999E-01 1.312415E+02 0.0 7.199998E-01 3.790310E+02 0.0 7.399998E-01 7.410129E+02 0.0 7.599998E-01 1.138471E+03 0.0 7.799998E-01 1.530812E+03 0.0 7.999998E-01 1.855175E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 142 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 2.551143E-08 0.0 2.000000E-02 -2.983779E-08 0.0 4.000000E-02 -4.623596E-09 0.0 6.000000E-02 -2.764611E-09 0.0 8.000000E-02 3.182229E-10 0.0 9.999999E-02 2.457321E-09 0.0 1.200000E-01 3.628021E-09 0.0 1.400000E-01 4.315519E-09 0.0 1.600000E-01 4.975392E-09 0.0 1.800000E-01 4.915849E-09 0.0 2.000000E-01 2.568277E-09 0.0 2.200000E-01 -4.424195E-10 0.0 2.400000E-01 -1.722821E-09 0.0 2.600000E-01 -2.831359E-09 0.0 2.800000E-01 -4.820614E-09 0.0 3.000000E-01 -5.626319E-09 0.0 3.200000E-01 -4.447759E-09 0.0 3.400000E-01 -2.300040E-09 0.0 3.600000E-01 -3.130352E-10 0.0 3.800000E-01 -2.100579E-07 0.0 4.000000E-01 2.340166E-07 0.0 4.200000E-01 2.515331E-08 0.0 4.400001E-01 1.566264E-08 0.0 4.600001E-01 2.984554E-09 0.0 4.800001E-01 -5.528349E-09 0.0 5.000001E-01 -1.553605E-08 0.0 5.200000E-01 -2.231918E-08 0.0 5.400000E-01 -2.403167E-08 0.0 5.600000E-01 -2.479634E-08 0.0 5.800000E-01 -1.703705E-08 0.0 6.000000E-01 -3.373418E-09 0.0 6.199999E-01 4.103899E-09 0.0 6.399999E-01 1.198881E-08 0.0 6.599999E-01 2.315642E-08 0.0 6.799999E-01 2.629008E-08 0.0 6.999999E-01 2.287169E-08 0.0 7.199998E-01 1.700223E-08 0.0 7.399998E-01 6.740597E-09 0.0 7.599998E-01 -2.461994E-09 0.0 7.799998E-01 -1.136752E-08 0.0 7.999998E-01 -2.316357E-08 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 143 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -1.767943E+02 0.0 2.000000E-02 -1.760250E+02 0.0 4.000000E-02 -1.563360E+02 0.0 6.000000E-02 -9.299451E+01 0.0 8.000000E-02 -2.453403E+00 0.0 9.999999E-02 8.400620E+01 0.0 1.200000E-01 1.433318E+02 0.0 1.400000E-01 1.791094E+02 0.0 1.600000E-01 1.926121E+02 0.0 1.800000E-01 1.660551E+02 0.0 2.000000E-01 9.578057E+01 0.0 2.200000E-01 9.454624E+00 0.0 2.400000E-01 -6.732946E+01 0.0 2.600000E-01 -1.319158E+02 0.0 2.800000E-01 -1.818071E+02 0.0 3.000000E-01 -1.983650E+02 0.0 3.200000E-01 -1.671532E+02 0.0 3.400000E-01 -1.002968E+02 0.0 3.600000E-01 -2.371107E+01 0.0 3.800000E-01 1.165682E+02 0.0 4.000000E-01 -1.412881E+02 0.0 4.200000E-01 -1.760521E+02 0.0 4.400001E-01 -4.393153E+02 0.0 4.600001E-01 -8.382103E+02 0.0 4.800001E-01 -1.274142E+03 0.0 5.000001E-01 -1.627424E+03 0.0 5.200000E-01 -1.872397E+03 0.0 5.400000E-01 -1.997888E+03 0.0 5.600000E-01 -1.923403E+03 0.0 5.800000E-01 -1.639764E+03 0.0 6.000000E-01 -1.259581E+03 0.0 6.199999E-01 -8.638157E+02 0.0 6.399999E-01 -4.819789E+02 0.0 6.599999E-01 -1.874426E+02 0.0 6.799999E-01 -6.161058E+01 0.0 6.999999E-01 -1.312415E+02 0.0 7.199998E-01 -3.790310E+02 0.0 7.399998E-01 -7.410129E+02 0.0 7.599998E-01 -1.138471E+03 0.0 7.799998E-01 -1.530812E+03 0.0 7.999998E-01 -1.855175E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 151 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 9.811905E+01 0.0 2.000000E-02 1.153671E+02 0.0 4.000000E-02 1.186405E+02 0.0 6.000000E-02 7.346001E+01 0.0 8.000000E-02 -1.949551E+00 0.0 9.999999E-02 -6.723264E+01 0.0 1.200000E-01 -1.018674E+02 0.0 1.400000E-01 -1.244247E+02 0.0 1.600000E-01 -1.421151E+02 0.0 1.800000E-01 -1.277257E+02 0.0 2.000000E-01 -6.939939E+01 0.0 2.200000E-01 -6.161499E-02 0.0 2.400000E-01 4.963726E+01 0.0 2.600000E-01 8.928472E+01 0.0 2.800000E-01 1.312585E+02 0.0 3.000000E-01 1.515979E+02 0.0 3.200000E-01 1.241432E+02 0.0 3.400000E-01 6.664776E+01 0.0 3.600000E-01 1.433590E+01 0.0 3.800000E-01 -1.207614E+02 0.0 4.000000E-01 -1.040457E+01 0.0 4.200000E-01 -5.400963E+01 0.0 4.400001E-01 1.410570E+02 0.0 4.600001E-01 4.562924E+02 0.0 4.800001E-01 7.726196E+02 0.0 5.000001E-01 1.010977E+03 0.0 5.200000E-01 1.187337E+03 0.0 5.400000E-01 1.293878E+03 0.0 5.600000E-01 1.248200E+03 0.0 5.800000E-01 1.028664E+03 0.0 6.000000E-01 7.359363E+02 0.0 6.199999E-01 4.598036E+02 0.0 6.399999E-01 2.016025E+02 0.0 6.599999E-01 -2.738544E+01 0.0 6.799999E-01 -1.417652E+02 0.0 6.999999E-01 -7.571917E+01 0.0 7.199998E-01 1.270181E+02 0.0 7.399998E-01 3.766594E+02 0.0 7.599998E-01 6.469360E+02 0.0 7.799998E-01 9.442483E+02 0.0 7.999998E-01 1.198417E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 152 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -3.848385E-08 0.0 2.000000E-02 4.501200E-08 0.0 4.000000E-02 6.975542E-09 0.0 6.000000E-02 4.170881E-09 0.0 8.000000E-02 -4.800382E-10 0.0 9.999999E-02 -3.707265E-09 0.0 1.200000E-01 -5.473599E-09 0.0 1.400000E-01 -6.510982E-09 0.0 1.600000E-01 -7.506301E-09 0.0 1.800000E-01 -7.416325E-09 0.0 2.000000E-01 -3.874756E-09 0.0 2.200000E-01 6.673186E-10 0.0 2.400000E-01 2.599268E-09 0.0 2.600000E-01 4.271816E-09 0.0 2.800000E-01 7.272784E-09 0.0 3.000000E-01 8.488179E-09 0.0 3.200000E-01 6.710277E-09 0.0 3.400000E-01 3.470096E-09 0.0 3.600000E-01 4.723245E-10 0.0 3.800000E-01 3.168776E-07 0.0 4.000000E-01 -3.530204E-07 0.0 4.200000E-01 -3.794459E-08 0.0 4.400001E-01 -2.362605E-08 0.0 4.600001E-01 -4.499066E-09 0.0 4.800001E-01 8.344443E-09 0.0 5.000001E-01 2.344280E-08 0.0 5.200000E-01 3.367735E-08 0.0 5.400000E-01 3.626234E-08 0.0 5.600000E-01 3.741416E-08 0.0 5.800000E-01 2.570622E-08 0.0 6.000000E-01 5.093410E-09 0.0 6.199999E-01 -6.188196E-09 0.0 6.399999E-01 -1.808423E-08 0.0 6.599999E-01 -3.493210E-08 0.0 6.799999E-01 -3.965966E-08 0.0 6.999999E-01 -3.450276E-08 0.0 7.199998E-01 -2.564766E-08 0.0 7.399998E-01 -1.016563E-08 0.0 7.599998E-01 3.718920E-09 0.0 7.799998E-01 1.715377E-08 0.0 7.999998E-01 3.494943E-08 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 153 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -9.811905E+01 0.0 2.000000E-02 -1.153671E+02 0.0 4.000000E-02 -1.186405E+02 0.0 6.000000E-02 -7.346001E+01 0.0 8.000000E-02 1.949551E+00 0.0 9.999999E-02 6.723264E+01 0.0 1.200000E-01 1.018674E+02 0.0 1.400000E-01 1.244247E+02 0.0 1.600000E-01 1.421151E+02 0.0 1.800000E-01 1.277257E+02 0.0 2.000000E-01 6.939939E+01 0.0 2.200000E-01 6.161499E-02 0.0 2.400000E-01 -4.963726E+01 0.0 2.600000E-01 -8.928472E+01 0.0 2.800000E-01 -1.312585E+02 0.0 3.000000E-01 -1.515979E+02 0.0 3.200000E-01 -1.241432E+02 0.0 3.400000E-01 -6.664776E+01 0.0 3.600000E-01 -1.433590E+01 0.0 3.800000E-01 1.207614E+02 0.0 4.000000E-01 1.040457E+01 0.0 4.200000E-01 5.400963E+01 0.0 4.400001E-01 -1.410570E+02 0.0 4.600001E-01 -4.562924E+02 0.0 4.800001E-01 -7.726196E+02 0.0 5.000001E-01 -1.010977E+03 0.0 5.200000E-01 -1.187337E+03 0.0 5.400000E-01 -1.293878E+03 0.0 5.600000E-01 -1.248200E+03 0.0 5.800000E-01 -1.028664E+03 0.0 6.000000E-01 -7.359363E+02 0.0 6.199999E-01 -4.598036E+02 0.0 6.399999E-01 -2.016025E+02 0.0 6.599999E-01 2.738544E+01 0.0 6.799999E-01 1.417652E+02 0.0 6.999999E-01 7.571917E+01 0.0 7.199998E-01 -1.270181E+02 0.0 7.399998E-01 -3.766594E+02 0.0 7.599998E-01 -6.469360E+02 0.0 7.799998E-01 -9.442483E+02 0.0 7.999998E-01 -1.198417E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 211 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -1.030906E+02 0.0 2.000000E-02 -8.096002E+01 0.0 4.000000E-02 -4.801187E+01 0.0 6.000000E-02 -2.129011E+01 0.0 8.000000E-02 -8.388911E+00 0.0 9.999999E-02 1.657836E+01 0.0 1.200000E-01 5.825280E+01 0.0 1.400000E-01 8.085995E+01 0.0 1.600000E-01 6.670127E+01 0.0 1.800000E-01 4.519450E+01 0.0 2.000000E-01 3.708562E+01 0.0 2.200000E-01 1.912384E+01 0.0 2.400000E-01 -2.452332E+01 0.0 2.600000E-01 -6.361264E+01 0.0 2.800000E-01 -6.913813E+01 0.0 3.000000E-01 -5.809738E+01 0.0 3.200000E-01 -5.634765E+01 0.0 3.400000E-01 -5.062959E+01 0.0 3.600000E-01 -1.597675E+01 0.0 3.800000E-01 -5.035979E+00 0.0 4.000000E-01 3.637840E+02 0.0 4.200000E-01 2.512412E+02 0.0 4.400001E-01 1.445229E+02 0.0 4.600001E-01 4.201448E+01 0.0 4.800001E-01 -9.721734E+01 0.0 5.000001E-01 -2.764254E+02 0.0 5.200000E-01 -3.919685E+02 0.0 5.400000E-01 -3.843412E+02 0.0 5.600000E-01 -3.307136E+02 0.0 5.800000E-01 -2.794014E+02 0.0 6.000000E-01 -1.648965E+02 0.0 6.199999E-01 2.598097E+01 0.0 6.399999E-01 1.905996E+02 0.0 6.599999E-01 2.641989E+02 0.0 6.799999E-01 2.821755E+02 0.0 6.999999E-01 2.781275E+02 0.0 7.199998E-01 2.231086E+02 0.0 7.399998E-01 7.980641E+01 0.0 7.599998E-01 -1.116907E+02 0.0 7.799998E-01 -2.514482E+02 0.0 7.999998E-01 -3.155516E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 212 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 1.030906E+02 0.0 2.000000E-02 8.096002E+01 0.0 4.000000E-02 4.801187E+01 0.0 6.000000E-02 2.129011E+01 0.0 8.000000E-02 8.388911E+00 0.0 9.999999E-02 -1.657836E+01 0.0 1.200000E-01 -5.825280E+01 0.0 1.400000E-01 -8.085995E+01 0.0 1.600000E-01 -6.670127E+01 0.0 1.800000E-01 -4.519450E+01 0.0 2.000000E-01 -3.708562E+01 0.0 2.200000E-01 -1.912384E+01 0.0 2.400000E-01 2.452332E+01 0.0 2.600000E-01 6.361264E+01 0.0 2.800000E-01 6.913813E+01 0.0 3.000000E-01 5.809738E+01 0.0 3.200000E-01 5.634765E+01 0.0 3.400000E-01 5.062959E+01 0.0 3.600000E-01 1.597675E+01 0.0 3.800000E-01 5.035979E+00 0.0 4.000000E-01 -3.637840E+02 0.0 4.200000E-01 -2.512412E+02 0.0 4.400001E-01 -1.445229E+02 0.0 4.600001E-01 -4.201448E+01 0.0 4.800001E-01 9.721734E+01 0.0 5.000001E-01 2.764254E+02 0.0 5.200000E-01 3.919685E+02 0.0 5.400000E-01 3.843412E+02 0.0 5.600000E-01 3.307136E+02 0.0 5.800000E-01 2.794014E+02 0.0 6.000000E-01 1.648965E+02 0.0 6.199999E-01 -2.598097E+01 0.0 6.399999E-01 -1.905996E+02 0.0 6.599999E-01 -2.641989E+02 0.0 6.799999E-01 -2.821755E+02 0.0 6.999999E-01 -2.781275E+02 0.0 7.199998E-01 -2.231086E+02 0.0 7.399998E-01 -7.980641E+01 0.0 7.599998E-01 1.116907E+02 0.0 7.799998E-01 2.514482E+02 0.0 7.999998E-01 3.155516E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 221 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -1.024514E+02 0.0 2.000000E-02 -8.018969E+01 0.0 4.000000E-02 -4.796860E+01 0.0 6.000000E-02 -2.191134E+01 0.0 8.000000E-02 -7.970471E+00 0.0 9.999999E-02 1.743832E+01 0.0 1.200000E-01 5.736731E+01 0.0 1.400000E-01 7.891095E+01 0.0 1.600000E-01 6.632533E+01 0.0 1.800000E-01 4.587482E+01 0.0 2.000000E-01 3.645183E+01 0.0 2.200000E-01 1.789102E+01 0.0 2.400000E-01 -2.412794E+01 0.0 2.600000E-01 -6.206814E+01 0.0 2.800000E-01 -6.838982E+01 0.0 3.000000E-01 -5.830368E+01 0.0 3.200000E-01 -5.609227E+01 0.0 3.400000E-01 -4.937906E+01 0.0 3.600000E-01 -1.525174E+01 0.0 3.800000E-01 -2.836990E+00 0.0 4.000000E-01 1.851727E+02 0.0 4.200000E-01 7.569540E+01 0.0 4.400001E-01 -2.668081E+01 0.0 4.600001E-01 -1.292900E+02 0.0 4.800001E-01 -2.721946E+02 0.0 5.000001E-01 -4.455018E+02 0.0 5.200000E-01 -5.551196E+02 0.0 5.400000E-01 -5.540467E+02 0.0 5.600000E-01 -5.036597E+02 0.0 5.800000E-01 -4.457753E+02 0.0 6.000000E-01 -3.323596E+02 0.0 6.199999E-01 -1.489741E+02 0.0 6.399999E-01 1.572380E+01 0.0 6.599999E-01 9.113763E+01 0.0 6.799999E-01 1.072195E+02 0.0 6.999999E-01 1.038794E+02 0.0 7.199998E-01 4.920533E+01 0.0 7.399998E-01 -9.540722E+01 0.0 7.599998E-01 -2.817773E+02 0.0 7.799998E-01 -4.171881E+02 0.0 7.999998E-01 -4.865807E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 222 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 1.024514E+02 0.0 2.000000E-02 8.018969E+01 0.0 4.000000E-02 4.796860E+01 0.0 6.000000E-02 2.191134E+01 0.0 8.000000E-02 7.970471E+00 0.0 9.999999E-02 -1.743832E+01 0.0 1.200000E-01 -5.736731E+01 0.0 1.400000E-01 -7.891095E+01 0.0 1.600000E-01 -6.632533E+01 0.0 1.800000E-01 -4.587482E+01 0.0 2.000000E-01 -3.645183E+01 0.0 2.200000E-01 -1.789102E+01 0.0 2.400000E-01 2.412794E+01 0.0 2.600000E-01 6.206814E+01 0.0 2.800000E-01 6.838982E+01 0.0 3.000000E-01 5.830368E+01 0.0 3.200000E-01 5.609227E+01 0.0 3.400000E-01 4.937906E+01 0.0 3.600000E-01 1.525174E+01 0.0 3.800000E-01 2.836990E+00 0.0 4.000000E-01 -1.851727E+02 0.0 4.200000E-01 -7.569540E+01 0.0 4.400001E-01 2.668081E+01 0.0 4.600001E-01 1.292900E+02 0.0 4.800001E-01 2.721946E+02 0.0 5.000001E-01 4.455018E+02 0.0 5.200000E-01 5.551196E+02 0.0 5.400000E-01 5.540467E+02 0.0 5.600000E-01 5.036597E+02 0.0 5.800000E-01 4.457753E+02 0.0 6.000000E-01 3.323596E+02 0.0 6.199999E-01 1.489741E+02 0.0 6.399999E-01 -1.572380E+01 0.0 6.599999E-01 -9.113763E+01 0.0 6.799999E-01 -1.072195E+02 0.0 6.999999E-01 -1.038794E+02 0.0 7.199998E-01 -4.920533E+01 0.0 7.399998E-01 9.540722E+01 0.0 7.599998E-01 2.817773E+02 0.0 7.799998E-01 4.171881E+02 0.0 7.999998E-01 4.865807E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 231 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -1.008569E+02 0.0 2.000000E-02 -7.838138E+01 0.0 4.000000E-02 -4.764935E+01 0.0 6.000000E-02 -2.302745E+01 0.0 8.000000E-02 -6.995462E+00 0.0 9.999999E-02 1.901770E+01 0.0 1.200000E-01 5.516236E+01 0.0 1.400000E-01 7.453045E+01 0.0 1.600000E-01 6.512007E+01 0.0 1.800000E-01 4.688818E+01 0.0 2.000000E-01 3.499940E+01 0.0 2.200000E-01 1.530106E+01 0.0 2.400000E-01 -2.325996E+01 0.0 2.600000E-01 -5.849898E+01 0.0 2.800000E-01 -6.636563E+01 0.0 3.000000E-01 -5.843218E+01 0.0 3.200000E-01 -5.522066E+01 0.0 3.400000E-01 -4.643383E+01 0.0 3.600000E-01 -1.374045E+01 0.0 3.800000E-01 -2.057373E+00 0.0 4.000000E-01 -3.189697E-01 0.0 4.200000E-01 -1.046538E+02 0.0 4.400001E-01 -1.989923E+02 0.0 4.600001E-01 -3.020205E+02 0.0 4.800001E-01 -4.494363E+02 0.0 5.000001E-01 -6.101824E+02 0.0 5.200000E-01 -7.087148E+02 0.0 5.400000E-01 -7.192986E+02 0.0 5.600000E-01 -6.753176E+02 0.0 5.800000E-01 -6.064430E+02 0.0 6.000000E-01 -4.950999E+02 0.0 6.199999E-01 -3.267331E+02 0.0 6.399999E-01 -1.647234E+02 0.0 6.599999E-01 -8.623810E+01 0.0 6.799999E-01 -7.224690E+01 0.0 6.999999E-01 -7.527012E+01 0.0 7.199998E-01 -1.299501E+02 0.0 7.399998E-01 -2.744482E+02 0.0 7.599998E-01 -4.494299E+02 0.0 7.799998E-01 -5.768192E+02 0.0 7.999998E-01 -6.551531E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 232 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 1.008569E+02 0.0 2.000000E-02 7.838138E+01 0.0 4.000000E-02 4.764935E+01 0.0 6.000000E-02 2.302745E+01 0.0 8.000000E-02 6.995462E+00 0.0 9.999999E-02 -1.901770E+01 0.0 1.200000E-01 -5.516236E+01 0.0 1.400000E-01 -7.453045E+01 0.0 1.600000E-01 -6.512007E+01 0.0 1.800000E-01 -4.688818E+01 0.0 2.000000E-01 -3.499940E+01 0.0 2.200000E-01 -1.530106E+01 0.0 2.400000E-01 2.325996E+01 0.0 2.600000E-01 5.849898E+01 0.0 2.800000E-01 6.636563E+01 0.0 3.000000E-01 5.843218E+01 0.0 3.200000E-01 5.522066E+01 0.0 3.400000E-01 4.643383E+01 0.0 3.600000E-01 1.374045E+01 0.0 3.800000E-01 2.057373E+00 0.0 4.000000E-01 3.189697E-01 0.0 4.200000E-01 1.046538E+02 0.0 4.400001E-01 1.989923E+02 0.0 4.600001E-01 3.020205E+02 0.0 4.800001E-01 4.494363E+02 0.0 5.000001E-01 6.101824E+02 0.0 5.200000E-01 7.087148E+02 0.0 5.400000E-01 7.192986E+02 0.0 5.600000E-01 6.753176E+02 0.0 5.800000E-01 6.064430E+02 0.0 6.000000E-01 4.950999E+02 0.0 6.199999E-01 3.267331E+02 0.0 6.399999E-01 1.647234E+02 0.0 6.599999E-01 8.623810E+01 0.0 6.799999E-01 7.224690E+01 0.0 6.999999E-01 7.527012E+01 0.0 7.199998E-01 1.299501E+02 0.0 7.399998E-01 2.744482E+02 0.0 7.599998E-01 4.494299E+02 0.0 7.799998E-01 5.768192E+02 0.0 7.999998E-01 6.551531E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 241 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -9.810938E+01 0.0 2.000000E-02 -7.552661E+01 0.0 4.000000E-02 -4.672398E+01 0.0 6.000000E-02 -2.416754E+01 0.0 8.000000E-02 -5.465790E+00 0.0 9.999999E-02 2.072377E+01 0.0 1.200000E-01 5.142151E+01 0.0 1.400000E-01 6.788203E+01 0.0 1.600000E-01 6.258472E+01 0.0 1.800000E-01 4.744329E+01 0.0 2.000000E-01 3.273633E+01 0.0 2.200000E-01 1.170945E+01 0.0 2.400000E-01 -2.195720E+01 0.0 2.600000E-01 -5.290188E+01 0.0 2.800000E-01 -6.266748E+01 0.0 3.000000E-01 -5.794820E+01 0.0 3.200000E-01 -5.330494E+01 0.0 3.400000E-01 -4.175281E+01 0.0 3.600000E-01 -1.166587E+01 0.0 3.800000E-01 -6.944825E+00 0.0 4.000000E-01 -1.909205E+02 0.0 4.200000E-01 -2.895226E+02 0.0 4.400001E-01 -3.744857E+02 0.0 4.600001E-01 -4.782838E+02 0.0 4.800001E-01 -6.259541E+02 0.0 5.000001E-01 -7.687606E+02 0.0 5.200000E-01 -8.543777E+02 0.0 5.400000E-01 -8.772281E+02 0.0 5.600000E-01 -8.412657E+02 0.0 5.800000E-01 -7.625286E+02 0.0 6.000000E-01 -6.539707E+02 0.0 6.199999E-01 -5.050922E+02 0.0 6.399999E-01 -3.521902E+02 0.0 6.599999E-01 -2.710999E+02 0.0 6.799999E-01 -2.565039E+02 0.0 6.999999E-01 -2.611652E+02 0.0 7.199998E-01 -3.171787E+02 0.0 7.399998E-01 -4.560079E+02 0.0 7.599998E-01 -6.139131E+02 0.0 7.799998E-01 -7.321699E+02 0.0 7.999998E-01 -8.186379E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 242 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 9.810938E+01 0.0 2.000000E-02 7.552661E+01 0.0 4.000000E-02 4.672398E+01 0.0 6.000000E-02 2.416754E+01 0.0 8.000000E-02 5.465790E+00 0.0 9.999999E-02 -2.072377E+01 0.0 1.200000E-01 -5.142151E+01 0.0 1.400000E-01 -6.788203E+01 0.0 1.600000E-01 -6.258472E+01 0.0 1.800000E-01 -4.744329E+01 0.0 2.000000E-01 -3.273633E+01 0.0 2.200000E-01 -1.170945E+01 0.0 2.400000E-01 2.195720E+01 0.0 2.600000E-01 5.290188E+01 0.0 2.800000E-01 6.266748E+01 0.0 3.000000E-01 5.794820E+01 0.0 3.200000E-01 5.330494E+01 0.0 3.400000E-01 4.175281E+01 0.0 3.600000E-01 1.166587E+01 0.0 3.800000E-01 6.944825E+00 0.0 4.000000E-01 1.909205E+02 0.0 4.200000E-01 2.895226E+02 0.0 4.400001E-01 3.744857E+02 0.0 4.600001E-01 4.782838E+02 0.0 4.800001E-01 6.259541E+02 0.0 5.000001E-01 7.687606E+02 0.0 5.200000E-01 8.543777E+02 0.0 5.400000E-01 8.772281E+02 0.0 5.600000E-01 8.412657E+02 0.0 5.800000E-01 7.625286E+02 0.0 6.000000E-01 6.539707E+02 0.0 6.199999E-01 5.050922E+02 0.0 6.399999E-01 3.521902E+02 0.0 6.599999E-01 2.710999E+02 0.0 6.799999E-01 2.565039E+02 0.0 6.999999E-01 2.611652E+02 0.0 7.199998E-01 3.171787E+02 0.0 7.399998E-01 4.560079E+02 0.0 7.599998E-01 6.139131E+02 0.0 7.799998E-01 7.321699E+02 0.0 7.999998E-01 8.186379E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 251 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -9.411826E+01 0.0 2.000000E-02 -7.180943E+01 0.0 4.000000E-02 -4.473545E+01 0.0 6.000000E-02 -2.465882E+01 0.0 8.000000E-02 -3.554114E+00 0.0 9.999999E-02 2.175000E+01 0.0 1.200000E-01 4.612632E+01 0.0 1.400000E-01 5.945274E+01 0.0 1.600000E-01 5.822110E+01 0.0 1.800000E-01 4.658072E+01 0.0 2.000000E-01 2.972051E+01 0.0 2.200000E-01 7.731482E+00 0.0 2.400000E-01 -2.022561E+01 0.0 2.600000E-01 -4.562300E+01 0.0 2.800000E-01 -5.707940E+01 0.0 3.000000E-01 -5.607744E+01 0.0 3.200000E-01 -4.988482E+01 0.0 3.400000E-01 -3.566704E+01 0.0 3.600000E-01 -9.351819E+00 0.0 3.800000E-01 -2.118259E+01 0.0 4.000000E-01 -3.840824E+02 0.0 4.200000E-01 -4.790969E+02 0.0 4.400001E-01 -5.554415E+02 0.0 4.600001E-01 -6.593590E+02 0.0 4.800001E-01 -7.985696E+02 0.0 5.000001E-01 -9.203074E+02 0.0 5.200000E-01 -9.942844E+02 0.0 5.400000E-01 -1.025234E+03 0.0 5.600000E-01 -9.972540E+02 0.0 5.800000E-01 -9.151876E+02 0.0 6.000000E-01 -8.103821E+02 0.0 6.199999E-01 -6.822803E+02 0.0 6.399999E-01 -5.470427E+02 0.0 6.599999E-01 -4.657450E+02 0.0 6.799999E-01 -4.465926E+02 0.0 6.999999E-01 -4.554824E+02 0.0 7.199998E-01 -5.137747E+02 0.0 7.399998E-01 -6.388043E+02 0.0 7.599998E-01 -7.754602E+02 0.0 7.799998E-01 -8.849578E+02 0.0 7.999998E-01 -9.744047E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 252 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 9.411826E+01 0.0 2.000000E-02 7.180943E+01 0.0 4.000000E-02 4.473545E+01 0.0 6.000000E-02 2.465882E+01 0.0 8.000000E-02 3.554114E+00 0.0 9.999999E-02 -2.175000E+01 0.0 1.200000E-01 -4.612632E+01 0.0 1.400000E-01 -5.945274E+01 0.0 1.600000E-01 -5.822110E+01 0.0 1.800000E-01 -4.658072E+01 0.0 2.000000E-01 -2.972051E+01 0.0 2.200000E-01 -7.731482E+00 0.0 2.400000E-01 2.022561E+01 0.0 2.600000E-01 4.562300E+01 0.0 2.800000E-01 5.707940E+01 0.0 3.000000E-01 5.607744E+01 0.0 3.200000E-01 4.988482E+01 0.0 3.400000E-01 3.566704E+01 0.0 3.600000E-01 9.351819E+00 0.0 3.800000E-01 2.118259E+01 0.0 4.000000E-01 3.840824E+02 0.0 4.200000E-01 4.790969E+02 0.0 4.400001E-01 5.554415E+02 0.0 4.600001E-01 6.593590E+02 0.0 4.800001E-01 7.985696E+02 0.0 5.000001E-01 9.203074E+02 0.0 5.200000E-01 9.942844E+02 0.0 5.400000E-01 1.025234E+03 0.0 5.600000E-01 9.972540E+02 0.0 5.800000E-01 9.151876E+02 0.0 6.000000E-01 8.103821E+02 0.0 6.199999E-01 6.822803E+02 0.0 6.399999E-01 5.470427E+02 0.0 6.599999E-01 4.657450E+02 0.0 6.799999E-01 4.465926E+02 0.0 6.999999E-01 4.554824E+02 0.0 7.199998E-01 5.137747E+02 0.0 7.399998E-01 6.388043E+02 0.0 7.599998E-01 7.754602E+02 0.0 7.799998E-01 8.849578E+02 0.0 7.999998E-01 9.744047E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 1 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 0.0 0.0 2.000000E-02 0.0 0.0 4.000000E-02 0.0 0.0 6.000000E-02 0.0 0.0 8.000000E-02 0.0 0.0 9.999999E-02 0.0 0.0 1.200000E-01 0.0 0.0 1.400000E-01 0.0 0.0 1.600000E-01 0.0 0.0 1.800000E-01 0.0 0.0 2.000000E-01 0.0 0.0 2.200000E-01 0.0 0.0 2.400000E-01 0.0 0.0 2.600000E-01 0.0 0.0 2.800000E-01 0.0 0.0 3.000000E-01 0.0 0.0 3.200000E-01 0.0 0.0 3.400000E-01 0.0 0.0 3.600000E-01 0.0 0.0 3.800000E-01 0.0 0.0 4.000000E-01 0.0 0.0 4.200000E-01 0.0 0.0 4.400001E-01 0.0 0.0 4.600001E-01 0.0 0.0 4.800001E-01 0.0 0.0 5.000001E-01 0.0 0.0 5.200000E-01 0.0 0.0 5.400000E-01 0.0 0.0 5.600000E-01 0.0 0.0 5.800000E-01 0.0 0.0 6.000000E-01 0.0 0.0 6.199999E-01 0.0 0.0 6.399999E-01 0.0 0.0 6.599999E-01 0.0 0.0 6.799999E-01 0.0 0.0 6.999999E-01 0.0 0.0 7.199998E-01 0.0 0.0 7.399998E-01 0.0 0.0 7.599998E-01 0.0 0.0 7.799998E-01 0.0 0.0 7.999998E-01 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 2 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 0.0 0.0 2.000000E-02 0.0 0.0 4.000000E-02 0.0 0.0 6.000000E-02 0.0 0.0 8.000000E-02 0.0 0.0 9.999999E-02 0.0 0.0 1.200000E-01 0.0 0.0 1.400000E-01 0.0 0.0 1.600000E-01 0.0 0.0 1.800000E-01 0.0 0.0 2.000000E-01 0.0 0.0 2.200000E-01 0.0 0.0 2.400000E-01 0.0 0.0 2.600000E-01 0.0 0.0 2.800000E-01 0.0 0.0 3.000000E-01 0.0 0.0 3.200000E-01 0.0 0.0 3.400000E-01 0.0 0.0 3.600000E-01 0.0 0.0 3.800000E-01 0.0 0.0 4.000000E-01 0.0 0.0 4.200000E-01 0.0 0.0 4.400001E-01 0.0 0.0 4.600001E-01 0.0 0.0 4.800001E-01 0.0 0.0 5.000001E-01 0.0 0.0 5.200000E-01 0.0 0.0 5.400000E-01 0.0 0.0 5.600000E-01 0.0 0.0 5.800000E-01 0.0 0.0 6.000000E-01 0.0 0.0 6.199999E-01 0.0 0.0 6.399999E-01 0.0 0.0 6.599999E-01 0.0 0.0 6.799999E-01 0.0 0.0 6.999999E-01 0.0 0.0 7.199998E-01 0.0 0.0 7.399998E-01 0.0 0.0 7.599998E-01 0.0 0.0 7.799998E-01 0.0 0.0 7.999998E-01 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 11 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 2.054775E+02 0.0 2.000000E-02 1.610691E+02 0.0 4.000000E-02 9.595898E+01 0.0 6.000000E-02 4.324500E+01 0.0 8.000000E-02 1.632208E+01 0.0 9.999999E-02 -3.408185E+01 0.0 1.200000E-01 -1.155259E+02 0.0 1.400000E-01 -1.595798E+02 0.0 1.600000E-01 -1.329709E+02 0.0 1.800000E-01 -9.110986E+01 0.0 2.000000E-01 -7.347095E+01 0.0 2.200000E-01 -3.690546E+01 0.0 2.400000E-01 4.860889E+01 0.0 2.600000E-01 1.255298E+02 0.0 2.800000E-01 1.374412E+02 0.0 3.000000E-01 1.163962E+02 0.0 3.200000E-01 1.123977E+02 0.0 3.400000E-01 9.988757E+01 0.0 3.600000E-01 3.116229E+01 0.0 3.800000E-01 7.705322E+00 0.0 4.000000E-01 -5.237407E+02 0.0 4.200000E-01 -3.019846E+02 0.0 4.400001E-01 -9.330029E+01 0.0 4.600001E-01 1.117822E+02 0.0 4.800001E-01 3.941885E+02 0.0 5.000001E-01 7.461445E+02 0.0 5.200000E-01 9.707617E+02 0.0 5.400000E-01 9.626191E+02 0.0 5.600000E-01 8.588926E+02 0.0 5.800000E-01 7.491582E+02 0.0 6.000000E-01 5.213770E+02 0.0 6.199999E-01 1.478115E+02 0.0 6.399999E-01 -1.814639E+02 0.0 6.599999E-01 -3.305986E+02 0.0 6.799999E-01 -3.644827E+02 0.0 6.999999E-01 -3.571631E+02 0.0 7.199998E-01 -2.475242E+02 0.0 7.399998E-01 4.045850E+01 0.0 7.599998E-01 4.178281E+02 0.0 7.799998E-01 6.925762E+02 0.0 7.999998E-01 8.264961E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 12 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -2.054775E+02 0.0 2.000000E-02 -1.610691E+02 0.0 4.000000E-02 -9.595898E+01 0.0 6.000000E-02 -4.324500E+01 0.0 8.000000E-02 -1.632208E+01 0.0 9.999999E-02 3.408185E+01 0.0 1.200000E-01 1.155259E+02 0.0 1.400000E-01 1.595798E+02 0.0 1.600000E-01 1.329709E+02 0.0 1.800000E-01 9.110986E+01 0.0 2.000000E-01 7.347095E+01 0.0 2.200000E-01 3.690546E+01 0.0 2.400000E-01 -4.860889E+01 0.0 2.600000E-01 -1.255298E+02 0.0 2.800000E-01 -1.374412E+02 0.0 3.000000E-01 -1.163962E+02 0.0 3.200000E-01 -1.123977E+02 0.0 3.400000E-01 -9.988757E+01 0.0 3.600000E-01 -3.116229E+01 0.0 3.800000E-01 -7.705322E+00 0.0 4.000000E-01 5.237407E+02 0.0 4.200000E-01 3.019846E+02 0.0 4.400001E-01 9.330029E+01 0.0 4.600001E-01 -1.117822E+02 0.0 4.800001E-01 -3.941885E+02 0.0 5.000001E-01 -7.461445E+02 0.0 5.200000E-01 -9.707617E+02 0.0 5.400000E-01 -9.626191E+02 0.0 5.600000E-01 -8.588926E+02 0.0 5.800000E-01 -7.491582E+02 0.0 6.000000E-01 -5.213770E+02 0.0 6.199999E-01 -1.478115E+02 0.0 6.399999E-01 1.814639E+02 0.0 6.599999E-01 3.305986E+02 0.0 6.799999E-01 3.644827E+02 0.0 6.999999E-01 3.571631E+02 0.0 7.199998E-01 2.475242E+02 0.0 7.399998E-01 -4.045850E+01 0.0 7.599998E-01 -4.178281E+02 0.0 7.799998E-01 -6.925762E+02 0.0 7.999998E-01 -8.264961E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 21 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 2.031113E+02 0.0 2.000000E-02 1.583335E+02 0.0 4.000000E-02 9.555566E+01 0.0 6.000000E-02 4.506274E+01 0.0 8.000000E-02 1.485110E+01 0.0 9.999999E-02 -3.664038E+01 0.0 1.200000E-01 -1.122456E+02 0.0 1.400000E-01 -1.528828E+02 0.0 1.600000E-01 -1.312764E+02 0.0 1.800000E-01 -9.286914E+01 0.0 2.000000E-01 -7.125928E+01 0.0 2.200000E-01 -3.287500E+01 0.0 2.400000E-01 4.726929E+01 0.0 2.600000E-01 1.201196E+02 0.0 2.800000E-01 1.344902E+02 0.0 3.000000E-01 1.167222E+02 0.0 3.200000E-01 1.111860E+02 0.0 3.400000E-01 9.544727E+01 0.0 3.600000E-01 2.880249E+01 0.0 3.800000E-01 4.725952E+00 0.0 4.000000E-01 -1.584902E+02 0.0 4.200000E-01 5.470068E+01 0.0 4.400001E-01 2.503350E+02 0.0 4.600001E-01 4.559277E+02 0.0 4.800001E-01 7.468438E+02 0.0 5.000001E-01 1.079305E+03 0.0 5.200000E-01 1.285988E+03 0.0 5.400000E-01 1.296992E+03 0.0 5.600000E-01 1.203438E+03 0.0 5.800000E-01 1.075270E+03 0.0 6.000000E-01 8.508555E+02 0.0 6.199999E-01 5.010508E+02 0.0 6.399999E-01 1.746235E+02 0.0 6.599999E-01 2.037842E+01 0.0 6.799999E-01 -9.326172E+00 0.0 6.999999E-01 -3.069336E+00 0.0 7.199998E-01 1.061973E+02 0.0 7.399998E-01 3.953457E+02 0.0 7.599998E-01 7.552539E+02 0.0 7.799998E-01 1.016945E+03 0.0 7.999998E-01 1.165785E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 22 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -2.031113E+02 0.0 2.000000E-02 -1.583335E+02 0.0 4.000000E-02 -9.555566E+01 0.0 6.000000E-02 -4.506274E+01 0.0 8.000000E-02 -1.485110E+01 0.0 9.999999E-02 3.664038E+01 0.0 1.200000E-01 1.122456E+02 0.0 1.400000E-01 1.528828E+02 0.0 1.600000E-01 1.312764E+02 0.0 1.800000E-01 9.286914E+01 0.0 2.000000E-01 7.125928E+01 0.0 2.200000E-01 3.287500E+01 0.0 2.400000E-01 -4.726929E+01 0.0 2.600000E-01 -1.201196E+02 0.0 2.800000E-01 -1.344902E+02 0.0 3.000000E-01 -1.167222E+02 0.0 3.200000E-01 -1.111860E+02 0.0 3.400000E-01 -9.544727E+01 0.0 3.600000E-01 -2.880249E+01 0.0 3.800000E-01 -4.725952E+00 0.0 4.000000E-01 1.584902E+02 0.0 4.200000E-01 -5.470068E+01 0.0 4.400001E-01 -2.503350E+02 0.0 4.600001E-01 -4.559277E+02 0.0 4.800001E-01 -7.468438E+02 0.0 5.000001E-01 -1.079305E+03 0.0 5.200000E-01 -1.285988E+03 0.0 5.400000E-01 -1.296992E+03 0.0 5.600000E-01 -1.203438E+03 0.0 5.800000E-01 -1.075270E+03 0.0 6.000000E-01 -8.508555E+02 0.0 6.199999E-01 -5.010508E+02 0.0 6.399999E-01 -1.746235E+02 0.0 6.599999E-01 -2.037842E+01 0.0 6.799999E-01 9.326172E+00 0.0 6.999999E-01 3.069336E+00 0.0 7.199998E-01 -1.061973E+02 0.0 7.399998E-01 -3.953457E+02 0.0 7.599998E-01 -7.552539E+02 0.0 7.799998E-01 -1.016945E+03 0.0 7.999998E-01 -1.165785E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 31 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 1.986133E+02 0.0 2.000000E-02 1.535039E+02 0.0 4.000000E-02 9.422461E+01 0.0 6.000000E-02 4.733838E+01 0.0 8.000000E-02 1.226709E+01 0.0 9.999999E-02 -3.996729E+01 0.0 1.200000E-01 -1.060781E+02 0.0 1.400000E-01 -1.415029E+02 0.0 1.600000E-01 -1.273535E+02 0.0 1.800000E-01 -9.439648E+01 0.0 2.000000E-01 -6.741650E+01 0.0 2.200000E-01 -2.653113E+01 0.0 2.400000E-01 4.502832E+01 0.0 2.600000E-01 1.106504E+02 0.0 2.800000E-01 1.285303E+02 0.0 3.000000E-01 1.162871E+02 0.0 3.200000E-01 1.082559E+02 0.0 3.400000E-01 8.756250E+01 0.0 3.600000E-01 2.512207E+01 0.0 3.800000E-01 9.440918E+00 0.0 4.000000E-01 2.185078E+02 0.0 4.200000E-01 4.206697E+02 0.0 4.400001E-01 5.985469E+02 0.0 4.600001E-01 8.053320E+02 0.0 4.800001E-01 1.100633E+03 0.0 5.000001E-01 1.401727E+03 0.0 5.200000E-01 1.583945E+03 0.0 5.400000E-01 1.619180E+03 0.0 5.600000E-01 1.540359E+03 0.0 5.800000E-01 1.391242E+03 0.0 6.000000E-01 1.171844E+03 0.0 6.199999E-01 8.573828E+02 0.0 6.399999E-01 5.435176E+02 0.0 6.599999E-01 3.836106E+02 0.0 6.799999E-01 3.551636E+02 0.0 6.999999E-01 3.629309E+02 0.0 7.199998E-01 4.736602E+02 0.0 7.399998E-01 7.564062E+02 0.0 7.599998E-01 1.086961E+03 0.0 7.799998E-01 1.331164E+03 0.0 7.999998E-01 1.497180E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 32 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -1.986133E+02 0.0 2.000000E-02 -1.535039E+02 0.0 4.000000E-02 -9.422461E+01 0.0 6.000000E-02 -4.733838E+01 0.0 8.000000E-02 -1.226709E+01 0.0 9.999999E-02 3.996729E+01 0.0 1.200000E-01 1.060781E+02 0.0 1.400000E-01 1.415029E+02 0.0 1.600000E-01 1.273535E+02 0.0 1.800000E-01 9.439648E+01 0.0 2.000000E-01 6.741650E+01 0.0 2.200000E-01 2.653113E+01 0.0 2.400000E-01 -4.502832E+01 0.0 2.600000E-01 -1.106504E+02 0.0 2.800000E-01 -1.285303E+02 0.0 3.000000E-01 -1.162871E+02 0.0 3.200000E-01 -1.082559E+02 0.0 3.400000E-01 -8.756250E+01 0.0 3.600000E-01 -2.512207E+01 0.0 3.800000E-01 -9.440918E+00 0.0 4.000000E-01 -2.185078E+02 0.0 4.200000E-01 -4.206697E+02 0.0 4.400001E-01 -5.985469E+02 0.0 4.600001E-01 -8.053320E+02 0.0 4.800001E-01 -1.100633E+03 0.0 5.000001E-01 -1.401727E+03 0.0 5.200000E-01 -1.583945E+03 0.0 5.400000E-01 -1.619180E+03 0.0 5.600000E-01 -1.540359E+03 0.0 5.800000E-01 -1.391242E+03 0.0 6.000000E-01 -1.171844E+03 0.0 6.199999E-01 -8.573828E+02 0.0 6.399999E-01 -5.435176E+02 0.0 6.599999E-01 -3.836106E+02 0.0 6.799999E-01 -3.551636E+02 0.0 6.999999E-01 -3.629309E+02 0.0 7.199998E-01 -4.736602E+02 0.0 7.399998E-01 -7.564062E+02 0.0 7.599998E-01 -1.086961E+03 0.0 7.799998E-01 -1.331164E+03 0.0 7.999998E-01 -1.497180E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 41 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 1.917109E+02 0.0 2.000000E-02 1.467812E+02 0.0 4.000000E-02 9.116699E+01 0.0 6.000000E-02 4.889551E+01 0.0 8.000000E-02 8.764160E+00 0.0 9.999999E-02 -4.262598E+01 0.0 1.200000E-01 -9.681055E+01 0.0 1.400000E-01 -1.261426E+02 0.0 1.600000E-01 -1.201992E+02 0.0 1.800000E-01 -9.390918E+01 0.0 2.000000E-01 -6.202441E+01 0.0 2.200000E-01 -1.888501E+01 0.0 2.400000E-01 4.193018E+01 0.0 2.600000E-01 9.751367E+01 0.0 2.800000E-01 1.189688E+02 0.0 3.000000E-01 1.137500E+02 0.0 3.200000E-01 1.027109E+02 0.0 3.400000E-01 7.657520E+01 0.0 3.600000E-01 2.068848E+01 0.0 3.800000E-01 2.966650E+01 0.0 4.000000E-01 6.028926E+02 0.0 4.200000E-01 7.958223E+02 0.0 4.400001E-01 9.557305E+02 0.0 4.600001E-01 1.163336E+03 0.0 4.800001E-01 1.449312E+03 0.0 5.000001E-01 1.710828E+03 0.0 5.200000E-01 1.868562E+03 0.0 5.400000E-01 1.923750E+03 0.0 5.600000E-01 1.860969E+03 0.0 5.800000E-01 1.699422E+03 0.0 6.000000E-01 1.486727E+03 0.0 6.199999E-01 1.212812E+03 0.0 6.399999E-01 9.269180E+02 0.0 6.599999E-01 7.644976E+02 0.0 6.799999E-01 7.303440E+02 0.0 6.999999E-01 7.443378E+02 0.0 7.199998E-01 8.588359E+02 0.0 7.399998E-01 1.120984E+03 0.0 7.599998E-01 1.412547E+03 0.0 7.799998E-01 1.638891E+03 0.0 7.999998E-01 1.815359E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 42 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -1.917109E+02 0.0 2.000000E-02 -1.467812E+02 0.0 4.000000E-02 -9.116699E+01 0.0 6.000000E-02 -4.889551E+01 0.0 8.000000E-02 -8.764160E+00 0.0 9.999999E-02 4.262598E+01 0.0 1.200000E-01 9.681055E+01 0.0 1.400000E-01 1.261426E+02 0.0 1.600000E-01 1.201992E+02 0.0 1.800000E-01 9.390918E+01 0.0 2.000000E-01 6.202441E+01 0.0 2.200000E-01 1.888501E+01 0.0 2.400000E-01 -4.193018E+01 0.0 2.600000E-01 -9.751367E+01 0.0 2.800000E-01 -1.189688E+02 0.0 3.000000E-01 -1.137500E+02 0.0 3.200000E-01 -1.027109E+02 0.0 3.400000E-01 -7.657520E+01 0.0 3.600000E-01 -2.068848E+01 0.0 3.800000E-01 -2.966650E+01 0.0 4.000000E-01 -6.028926E+02 0.0 4.200000E-01 -7.958223E+02 0.0 4.400001E-01 -9.557305E+02 0.0 4.600001E-01 -1.163336E+03 0.0 4.800001E-01 -1.449312E+03 0.0 5.000001E-01 -1.710828E+03 0.0 5.200000E-01 -1.868562E+03 0.0 5.400000E-01 -1.923750E+03 0.0 5.600000E-01 -1.860969E+03 0.0 5.800000E-01 -1.699422E+03 0.0 6.000000E-01 -1.486727E+03 0.0 6.199999E-01 -1.212812E+03 0.0 6.399999E-01 -9.269180E+02 0.0 6.599999E-01 -7.644976E+02 0.0 6.799999E-01 -7.303440E+02 0.0 6.999999E-01 -7.443378E+02 0.0 7.199998E-01 -8.588359E+02 0.0 7.399998E-01 -1.120984E+03 0.0 7.599998E-01 -1.412547E+03 0.0 7.799998E-01 -1.638891E+03 0.0 7.999998E-01 -1.815359E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 51 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 9.065625E+01 0.0 2.000000E-02 6.886914E+01 0.0 4.000000E-02 4.224219E+01 0.0 6.000000E-02 2.406738E+01 0.0 8.000000E-02 2.257935E+00 0.0 9.999999E-02 -2.146777E+01 0.0 1.200000E-01 -4.158398E+01 0.0 1.400000E-01 -5.289062E+01 0.0 1.600000E-01 -5.376367E+01 0.0 1.800000E-01 -4.442773E+01 0.0 2.000000E-01 -2.714746E+01 0.0 2.200000E-01 -5.271973E+00 0.0 2.400000E-01 1.868164E+01 0.0 2.600000E-01 3.997266E+01 0.0 2.800000E-01 5.198633E+01 0.0 3.000000E-01 5.322070E+01 0.0 3.200000E-01 4.627539E+01 0.0 3.400000E-01 3.100391E+01 0.0 3.600000E-01 7.810547E+00 0.0 3.800000E-01 3.833887E+01 0.0 4.000000E-01 4.723652E+02 0.0 4.200000E-01 5.693496E+02 0.0 4.400001E-01 6.404023E+02 0.0 4.600001E-01 7.421172E+02 0.0 4.800001E-01 8.689219E+02 0.0 5.000001E-01 9.756719E+02 0.0 5.200000E-01 1.043031E+03 0.0 5.400000E-01 1.074938E+03 0.0 5.600000E-01 1.051750E+03 0.0 5.800000E-01 9.734375E+02 0.0 6.000000E-01 8.729688E+02 0.0 6.199999E-01 7.589375E+02 0.0 6.399999E-01 6.405664E+02 0.0 6.599999E-01 5.619912E+02 0.0 6.799999E-01 5.385638E+02 0.0 6.999999E-01 5.510127E+02 0.0 7.199998E-01 6.098867E+02 0.0 7.399998E-01 7.207031E+02 0.0 7.599998E-01 8.411562E+02 0.0 7.799998E-01 9.441562E+02 0.0 7.999998E-01 1.030656E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 52 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -9.065625E+01 0.0 2.000000E-02 -6.886914E+01 0.0 4.000000E-02 -4.224219E+01 0.0 6.000000E-02 -2.406738E+01 0.0 8.000000E-02 -2.257935E+00 0.0 9.999999E-02 2.146777E+01 0.0 1.200000E-01 4.158398E+01 0.0 1.400000E-01 5.289062E+01 0.0 1.600000E-01 5.376367E+01 0.0 1.800000E-01 4.442773E+01 0.0 2.000000E-01 2.714746E+01 0.0 2.200000E-01 5.271973E+00 0.0 2.400000E-01 -1.868164E+01 0.0 2.600000E-01 -3.997266E+01 0.0 2.800000E-01 -5.198633E+01 0.0 3.000000E-01 -5.322070E+01 0.0 3.200000E-01 -4.627539E+01 0.0 3.400000E-01 -3.100391E+01 0.0 3.600000E-01 -7.810547E+00 0.0 3.800000E-01 -3.833887E+01 0.0 4.000000E-01 -4.723652E+02 0.0 4.200000E-01 -5.693496E+02 0.0 4.400001E-01 -6.404023E+02 0.0 4.600001E-01 -7.421172E+02 0.0 4.800001E-01 -8.689219E+02 0.0 5.000001E-01 -9.756719E+02 0.0 5.200000E-01 -1.043031E+03 0.0 5.400000E-01 -1.074938E+03 0.0 5.600000E-01 -1.051750E+03 0.0 5.800000E-01 -9.734375E+02 0.0 6.000000E-01 -8.729688E+02 0.0 6.199999E-01 -7.589375E+02 0.0 6.399999E-01 -6.405664E+02 0.0 6.599999E-01 -5.619912E+02 0.0 6.799999E-01 -5.385638E+02 0.0 6.999999E-01 -5.510127E+02 0.0 7.199998E-01 -6.098867E+02 0.0 7.399998E-01 -7.207031E+02 0.0 7.599998E-01 -8.411562E+02 0.0 7.799998E-01 -9.441562E+02 0.0 7.999998E-01 -1.030656E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 111 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 1.407898E+03 0.0 2.000000E-02 1.227240E+03 0.0 4.000000E-02 9.053790E+02 0.0 6.000000E-02 4.867442E+02 0.0 8.000000E-02 7.110007E+01 0.0 9.999999E-02 -4.213697E+02 0.0 1.200000E-01 -9.354958E+02 0.0 1.400000E-01 -1.225359E+03 0.0 1.600000E-01 -1.172582E+03 0.0 1.800000E-01 -9.222651E+02 0.0 2.000000E-01 -6.100828E+02 0.0 2.200000E-01 -1.724133E+02 0.0 2.400000E-01 4.170364E+02 0.0 2.600000E-01 9.337977E+02 0.0 2.800000E-01 1.152277E+03 0.0 3.000000E-01 1.128784E+03 0.0 3.200000E-01 1.006016E+03 0.0 3.400000E-01 7.272544E+02 0.0 3.600000E-01 1.998382E+02 0.0 3.800000E-01 -3.676327E+02 0.0 4.000000E-01 -1.002140E+03 0.0 4.200000E-01 -1.531815E+01 0.0 4.400001E-01 1.675539E+03 0.0 4.600001E-01 3.828446E+03 0.0 4.800001E-01 6.431001E+03 0.0 5.000001E-01 8.985859E+03 0.0 5.200000E-01 1.067078E+04 0.0 5.400000E-01 1.109142E+04 0.0 5.600000E-01 1.044542E+04 0.0 5.800000E-01 9.025653E+03 0.0 6.000000E-01 6.850855E+03 0.0 6.199999E-01 4.075906E+03 0.0 6.399999E-01 1.485921E+03 0.0 6.599999E-01 -1.035054E+02 0.0 6.799999E-01 -6.503006E+02 0.0 6.999999E-01 -3.913857E+02 0.0 7.199998E-01 8.731476E+02 0.0 7.399998E-01 3.238489E+03 0.0 7.599998E-01 6.046333E+03 0.0 7.799998E-01 8.432250E+03 0.0 7.999998E-01 1.007821E+04 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 112 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -3.902689E-08 0.0 2.000000E-02 4.564908E-08 0.0 4.000000E-02 7.074827E-09 0.0 6.000000E-02 4.230069E-09 0.0 8.000000E-02 -4.868148E-10 0.0 9.999999E-02 -3.759963E-09 0.0 1.200000E-01 -5.551346E-09 0.0 1.400000E-01 -6.603405E-09 0.0 1.600000E-01 -7.613231E-09 0.0 1.800000E-01 -7.522051E-09 0.0 2.000000E-01 -3.929865E-09 0.0 2.200000E-01 6.767251E-10 0.0 2.400000E-01 2.636188E-09 0.0 2.600000E-01 4.332677E-09 0.0 2.800000E-01 7.376111E-09 0.0 3.000000E-01 8.609011E-09 0.0 3.200000E-01 6.805830E-09 0.0 3.400000E-01 3.519568E-09 0.0 3.600000E-01 4.790918E-10 0.0 3.800000E-01 3.213576E-07 0.0 4.000000E-01 -3.580119E-07 0.0 4.200000E-01 -3.848146E-08 0.0 4.400001E-01 -2.395950E-08 0.0 4.600001E-01 -4.557746E-09 0.0 4.800001E-01 8.466950E-09 0.0 5.000001E-01 2.378069E-08 0.0 5.200000E-01 3.415855E-08 0.0 5.400000E-01 3.678128E-08 0.0 5.600000E-01 3.794791E-08 0.0 5.800000E-01 2.607698E-08 0.0 6.000000E-01 5.172122E-09 0.0 6.199999E-01 -6.273639E-09 0.0 6.399999E-01 -1.833929E-08 0.0 6.599999E-01 -3.542611E-08 0.0 6.799999E-01 -4.022078E-08 0.0 6.999999E-01 -3.499086E-08 0.0 7.199998E-01 -2.600983E-08 0.0 7.399998E-01 -1.030779E-08 0.0 7.599998E-01 3.773347E-09 0.0 7.799998E-01 1.739972E-08 0.0 7.999998E-01 3.545302E-08 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 113 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -1.407898E+03 0.0 2.000000E-02 -1.227240E+03 0.0 4.000000E-02 -9.053790E+02 0.0 6.000000E-02 -4.867442E+02 0.0 8.000000E-02 -7.110007E+01 0.0 9.999999E-02 4.213697E+02 0.0 1.200000E-01 9.354958E+02 0.0 1.400000E-01 1.225359E+03 0.0 1.600000E-01 1.172582E+03 0.0 1.800000E-01 9.222651E+02 0.0 2.000000E-01 6.100828E+02 0.0 2.200000E-01 1.724133E+02 0.0 2.400000E-01 -4.170364E+02 0.0 2.600000E-01 -9.337977E+02 0.0 2.800000E-01 -1.152277E+03 0.0 3.000000E-01 -1.128784E+03 0.0 3.200000E-01 -1.006016E+03 0.0 3.400000E-01 -7.272544E+02 0.0 3.600000E-01 -1.998382E+02 0.0 3.800000E-01 3.676327E+02 0.0 4.000000E-01 1.002140E+03 0.0 4.200000E-01 1.531815E+01 0.0 4.400001E-01 -1.675539E+03 0.0 4.600001E-01 -3.828446E+03 0.0 4.800001E-01 -6.431001E+03 0.0 5.000001E-01 -8.985859E+03 0.0 5.200000E-01 -1.067078E+04 0.0 5.400000E-01 -1.109142E+04 0.0 5.600000E-01 -1.044542E+04 0.0 5.800000E-01 -9.025653E+03 0.0 6.000000E-01 -6.850855E+03 0.0 6.199999E-01 -4.075906E+03 0.0 6.399999E-01 -1.485921E+03 0.0 6.599999E-01 1.035054E+02 0.0 6.799999E-01 6.503006E+02 0.0 6.999999E-01 3.913857E+02 0.0 7.199998E-01 -8.731476E+02 0.0 7.399998E-01 -3.238489E+03 0.0 7.599998E-01 -6.046333E+03 0.0 7.799998E-01 -8.432250E+03 0.0 7.999998E-01 -1.007821E+04 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 121 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 1.132667E+03 0.0 2.000000E-02 1.010968E+03 0.0 4.000000E-02 7.771809E+02 0.0 6.000000E-02 4.300768E+02 0.0 8.000000E-02 4.856179E+01 0.0 9.999999E-02 -3.773434E+02 0.0 1.200000E-01 -7.796813E+02 0.0 1.400000E-01 -1.008890E+03 0.0 1.600000E-01 -9.943618E+02 0.0 1.800000E-01 -8.017725E+02 0.0 2.000000E-01 -5.108844E+02 0.0 2.200000E-01 -1.209908E+02 0.0 2.400000E-01 3.514554E+02 0.0 2.600000E-01 7.634774E+02 0.0 2.800000E-01 9.674324E+02 0.0 3.000000E-01 9.737295E+02 0.0 3.200000E-01 8.554823E+02 0.0 3.400000E-01 5.916790E+02 0.0 3.600000E-01 1.569754E+02 0.0 3.800000E-01 -3.807372E+02 0.0 4.000000E-01 -2.937500E+01 0.0 4.200000E-01 6.566522E+02 0.0 4.400001E-01 2.061546E+03 0.0 4.600001E-01 3.940939E+03 0.0 4.800001E-01 6.172407E+03 0.0 5.000001E-01 8.247104E+03 0.0 5.200000E-01 9.622085E+03 0.0 5.400000E-01 1.006470E+04 0.0 5.600000E-01 9.562741E+03 0.0 5.800000E-01 8.278444E+03 0.0 6.000000E-01 6.409559E+03 0.0 6.199999E-01 4.146215E+03 0.0 6.399999E-01 1.996123E+03 0.0 6.599999E-01 6.027225E+02 0.0 6.799999E-01 1.041123E+02 0.0 6.999999E-01 3.522328E+02 0.0 7.199998E-01 1.469970E+03 0.0 7.399998E-01 3.452682E+03 0.0 7.599998E-01 5.747721E+03 0.0 7.799998E-01 7.759518E+03 0.0 7.999998E-01 9.235593E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 122 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -4.648360E-09 0.0 2.000000E-02 5.438928E-09 0.0 4.000000E-02 8.435612E-10 0.0 6.000000E-02 5.042082E-10 0.0 8.000000E-02 -5.798168E-11 0.0 9.999999E-02 -4.482295E-10 0.0 1.200000E-01 -6.619310E-10 0.0 1.400000E-01 -7.872245E-10 0.0 1.600000E-01 -9.076819E-10 0.0 1.800000E-01 -8.968746E-10 0.0 2.000000E-01 -4.685394E-10 0.0 2.200000E-01 8.056966E-11 0.0 2.400000E-01 3.142406E-10 0.0 2.600000E-01 5.166645E-10 0.0 2.800000E-01 8.792771E-10 0.0 3.000000E-01 1.026355E-09 0.0 3.200000E-01 8.115446E-10 0.0 3.400000E-01 4.196716E-10 0.0 3.600000E-01 5.717093E-11 0.0 3.800000E-01 3.828276E-08 0.0 4.000000E-01 -4.265053E-08 0.0 4.200000E-01 -4.584752E-09 0.0 4.400001E-01 -2.853458E-09 0.0 4.600001E-01 -5.404641E-10 0.0 4.800001E-01 1.012318E-09 0.0 5.000001E-01 2.839625E-09 0.0 5.200000E-01 4.075989E-09 0.0 5.400000E-01 4.387427E-09 0.0 5.600000E-01 4.528086E-09 0.0 5.800000E-01 3.112833E-09 0.0 6.000000E-01 6.203633E-10 0.0 6.199999E-01 -7.448286E-10 0.0 6.399999E-01 -2.184239E-09 0.0 6.599999E-01 -4.221047E-09 0.0 6.799999E-01 -4.792032E-09 0.0 6.999999E-01 -4.169134E-09 0.0 7.199998E-01 -3.098286E-09 0.0 7.399998E-01 -1.225949E-09 0.0 7.599998E-01 4.534662E-10 0.0 7.799998E-01 2.077661E-09 0.0 7.999998E-01 4.229676E-09 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 123 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -1.132667E+03 0.0 2.000000E-02 -1.010968E+03 0.0 4.000000E-02 -7.771809E+02 0.0 6.000000E-02 -4.300768E+02 0.0 8.000000E-02 -4.856179E+01 0.0 9.999999E-02 3.773434E+02 0.0 1.200000E-01 7.796813E+02 0.0 1.400000E-01 1.008890E+03 0.0 1.600000E-01 9.943618E+02 0.0 1.800000E-01 8.017725E+02 0.0 2.000000E-01 5.108844E+02 0.0 2.200000E-01 1.209908E+02 0.0 2.400000E-01 -3.514554E+02 0.0 2.600000E-01 -7.634774E+02 0.0 2.800000E-01 -9.674324E+02 0.0 3.000000E-01 -9.737295E+02 0.0 3.200000E-01 -8.554823E+02 0.0 3.400000E-01 -5.916790E+02 0.0 3.600000E-01 -1.569754E+02 0.0 3.800000E-01 3.807372E+02 0.0 4.000000E-01 2.937500E+01 0.0 4.200000E-01 -6.566522E+02 0.0 4.400001E-01 -2.061546E+03 0.0 4.600001E-01 -3.940939E+03 0.0 4.800001E-01 -6.172407E+03 0.0 5.000001E-01 -8.247104E+03 0.0 5.200000E-01 -9.622085E+03 0.0 5.400000E-01 -1.006470E+04 0.0 5.600000E-01 -9.562741E+03 0.0 5.800000E-01 -8.278444E+03 0.0 6.000000E-01 -6.409559E+03 0.0 6.199999E-01 -4.146215E+03 0.0 6.399999E-01 -1.996123E+03 0.0 6.599999E-01 -6.027225E+02 0.0 6.799999E-01 -1.041123E+02 0.0 6.999999E-01 -3.522328E+02 0.0 7.199998E-01 -1.469970E+03 0.0 7.399998E-01 -3.452682E+03 0.0 7.599998E-01 -5.747721E+03 0.0 7.799998E-01 -7.759518E+03 0.0 7.999998E-01 -9.235593E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 131 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 8.589189E+02 0.0 2.000000E-02 7.965085E+02 0.0 4.000000E-02 6.488712E+02 0.0 6.000000E-02 3.716557E+02 0.0 8.000000E-02 2.706034E+01 0.0 9.999999E-02 -3.309411E+02 0.0 1.200000E-01 -6.258888E+02 0.0 1.400000E-01 -7.971729E+02 0.0 1.600000E-01 -8.167786E+02 0.0 1.800000E-01 -6.792244E+02 0.0 2.000000E-01 -4.131884E+02 0.0 2.200000E-01 -7.273090E+01 0.0 2.400000E-01 2.868182E+02 0.0 2.600000E-01 5.968904E+02 0.0 2.800000E-01 7.841829E+02 0.0 3.000000E-01 8.178525E+02 0.0 3.200000E-01 7.053286E+02 0.0 3.400000E-01 4.591141E+02 0.0 3.600000E-01 1.159619E+02 0.0 3.800000E-01 -3.865291E+02 0.0 4.000000E-01 4.680878E+02 0.0 4.200000E-01 8.617657E+02 0.0 4.400001E-01 1.992045E+03 0.0 4.600001E-01 3.597398E+03 0.0 4.800001E-01 5.446721E+03 0.0 5.000001E-01 7.056057E+03 0.0 5.200000E-01 8.136662E+03 0.0 5.400000E-01 8.583469E+03 0.0 5.600000E-01 8.217111E+03 0.0 5.800000E-01 7.086539E+03 0.0 6.000000E-01 5.521020E+03 0.0 6.199999E-01 3.750055E+03 0.0 6.399999E-01 2.041490E+03 0.0 6.599999E-01 8.493422E+02 0.0 6.799999E-01 3.934146E+02 0.0 6.999999E-01 6.329454E+02 0.0 7.199998E-01 1.604851E+03 0.0 7.399998E-01 3.200136E+03 0.0 7.599998E-01 4.994978E+03 0.0 7.799998E-01 6.643932E+03 0.0 7.999998E-01 7.935395E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 132 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 5.205029E-08 0.0 2.000000E-02 -6.087668E-08 0.0 4.000000E-02 -9.432984E-09 0.0 6.000000E-02 -5.640178E-09 0.0 8.000000E-02 6.492819E-10 0.0 9.999999E-02 5.013258E-09 0.0 1.200000E-01 7.401644E-09 0.0 1.400000E-01 8.804292E-09 0.0 1.600000E-01 1.015048E-08 0.0 1.800000E-01 1.002922E-08 0.0 2.000000E-01 5.239793E-09 0.0 2.200000E-01 -9.026845E-10 0.0 2.400000E-01 -3.514871E-09 0.0 2.600000E-01 -5.776356E-09 0.0 2.800000E-01 -9.834498E-09 0.0 3.000000E-01 -1.147840E-08 0.0 3.200000E-01 -9.074168E-09 0.0 3.400000E-01 -4.692214E-09 0.0 3.600000E-01 -6.385761E-10 0.0 3.800000E-01 -4.285734E-07 0.0 4.000000E-01 4.774548E-07 0.0 4.200000E-01 5.131938E-08 0.0 4.400001E-01 3.195577E-08 0.0 4.600001E-01 6.088731E-09 0.0 4.800001E-01 -1.127664E-08 0.0 5.000001E-01 -3.169590E-08 0.0 5.200000E-01 -4.553415E-08 0.0 5.400000E-01 -4.903124E-08 0.0 5.600000E-01 -5.058652E-08 0.0 5.800000E-01 -3.475447E-08 0.0 6.000000E-01 -6.879492E-09 0.0 6.199999E-01 8.375683E-09 0.0 6.399999E-01 2.446123E-08 0.0 6.599999E-01 4.724583E-08 0.0 6.799999E-01 5.363863E-08 0.0 6.999999E-01 4.666394E-08 0.0 7.199998E-01 3.468994E-08 0.0 7.399998E-01 1.375372E-08 0.0 7.599998E-01 -5.022148E-09 0.0 7.799998E-01 -2.318617E-08 0.0 7.999998E-01 -4.725445E-08 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 133 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -8.589189E+02 0.0 2.000000E-02 -7.965085E+02 0.0 4.000000E-02 -6.488712E+02 0.0 6.000000E-02 -3.716557E+02 0.0 8.000000E-02 -2.706034E+01 0.0 9.999999E-02 3.309411E+02 0.0 1.200000E-01 6.258888E+02 0.0 1.400000E-01 7.971729E+02 0.0 1.600000E-01 8.167786E+02 0.0 1.800000E-01 6.792244E+02 0.0 2.000000E-01 4.131884E+02 0.0 2.200000E-01 7.273090E+01 0.0 2.400000E-01 -2.868182E+02 0.0 2.600000E-01 -5.968904E+02 0.0 2.800000E-01 -7.841829E+02 0.0 3.000000E-01 -8.178525E+02 0.0 3.200000E-01 -7.053286E+02 0.0 3.400000E-01 -4.591141E+02 0.0 3.600000E-01 -1.159619E+02 0.0 3.800000E-01 3.865291E+02 0.0 4.000000E-01 -4.680878E+02 0.0 4.200000E-01 -8.617657E+02 0.0 4.400001E-01 -1.992045E+03 0.0 4.600001E-01 -3.597398E+03 0.0 4.800001E-01 -5.446721E+03 0.0 5.000001E-01 -7.056057E+03 0.0 5.200000E-01 -8.136662E+03 0.0 5.400000E-01 -8.583469E+03 0.0 5.600000E-01 -8.217111E+03 0.0 5.800000E-01 -7.086539E+03 0.0 6.000000E-01 -5.521020E+03 0.0 6.199999E-01 -3.750055E+03 0.0 6.399999E-01 -2.041490E+03 0.0 6.599999E-01 -8.493422E+02 0.0 6.799999E-01 -3.934146E+02 0.0 6.999999E-01 -6.329454E+02 0.0 7.199998E-01 -1.604851E+03 0.0 7.399998E-01 -3.200136E+03 0.0 7.599998E-01 -4.994978E+03 0.0 7.799998E-01 -6.643932E+03 0.0 7.999998E-01 -7.935395E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 96 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 141 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 5.893142E+02 0.0 2.000000E-02 5.867500E+02 0.0 4.000000E-02 5.211201E+02 0.0 6.000000E-02 3.099817E+02 0.0 8.000000E-02 8.178009E+00 0.0 9.999999E-02 -2.800206E+02 0.0 1.200000E-01 -4.777727E+02 0.0 1.400000E-01 -5.970312E+02 0.0 1.600000E-01 -6.420403E+02 0.0 1.800000E-01 -5.535171E+02 0.0 2.000000E-01 -3.192686E+02 0.0 2.200000E-01 -3.151541E+01 0.0 2.400000E-01 2.244315E+02 0.0 2.600000E-01 4.397195E+02 0.0 2.800000E-01 6.060237E+02 0.0 3.000000E-01 6.612166E+02 0.0 3.200000E-01 5.571772E+02 0.0 3.400000E-01 3.343226E+02 0.0 3.600000E-01 7.903690E+01 0.0 3.800000E-01 -3.885608E+02 0.0 4.000000E-01 4.709603E+02 0.0 4.200000E-01 5.868405E+02 0.0 4.400001E-01 1.464384E+03 0.0 4.600001E-01 2.794034E+03 0.0 4.800001E-01 4.247139E+03 0.0 5.000001E-01 5.424748E+03 0.0 5.200000E-01 6.241322E+03 0.0 5.400000E-01 6.659627E+03 0.0 5.600000E-01 6.411342E+03 0.0 5.800000E-01 5.465881E+03 0.0 6.000000E-01 4.198604E+03 0.0 6.199999E-01 2.879386E+03 0.0 6.399999E-01 1.606596E+03 0.0 6.599999E-01 6.248085E+02 0.0 6.799999E-01 2.053686E+02 0.0 6.999999E-01 4.374716E+02 0.0 7.199998E-01 1.263437E+03 0.0 7.399998E-01 2.470043E+03 0.0 7.599998E-01 3.794902E+03 0.0 7.799998E-01 5.102707E+03 0.0 7.999998E-01 6.183916E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 97 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 142 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 8.503810E-08 0.0 2.000000E-02 -9.945930E-08 0.0 4.000000E-02 -1.541199E-08 0.0 6.000000E-02 -9.215370E-09 0.0 8.000000E-02 1.060743E-09 0.0 9.999999E-02 8.191070E-09 0.0 1.200000E-01 1.209340E-08 0.0 1.400000E-01 1.438506E-08 0.0 1.600000E-01 1.658464E-08 0.0 1.800000E-01 1.638616E-08 0.0 2.000000E-01 8.560922E-09 0.0 2.200000E-01 -1.474732E-09 0.0 2.400000E-01 -5.742738E-09 0.0 2.600000E-01 -9.437863E-09 0.0 2.800000E-01 -1.606871E-08 0.0 3.000000E-01 -1.875440E-08 0.0 3.200000E-01 -1.482586E-08 0.0 3.400000E-01 -7.666800E-09 0.0 3.600000E-01 -1.043450E-09 0.0 3.800000E-01 -7.001930E-07 0.0 4.000000E-01 7.800551E-07 0.0 4.200000E-01 8.384436E-08 0.0 4.400001E-01 5.220879E-08 0.0 4.600001E-01 9.948514E-09 0.0 4.800001E-01 -1.842783E-08 0.0 5.000001E-01 -5.178683E-08 0.0 5.200000E-01 -7.439728E-08 0.0 5.400000E-01 -8.010555E-08 0.0 5.600000E-01 -8.265447E-08 0.0 5.800000E-01 -5.679018E-08 0.0 6.000000E-01 -1.124473E-08 0.0 6.199999E-01 1.367966E-08 0.0 6.399999E-01 3.996270E-08 0.0 6.599999E-01 7.718807E-08 0.0 6.799999E-01 8.763359E-08 0.0 6.999999E-01 7.623898E-08 0.0 7.199998E-01 5.667408E-08 0.0 7.399998E-01 2.246865E-08 0.0 7.599998E-01 -8.206647E-09 0.0 7.799998E-01 -3.789173E-08 0.0 7.999998E-01 -7.721189E-08 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 98 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 143 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -5.893142E+02 0.0 2.000000E-02 -5.867500E+02 0.0 4.000000E-02 -5.211201E+02 0.0 6.000000E-02 -3.099817E+02 0.0 8.000000E-02 -8.178009E+00 0.0 9.999999E-02 2.800206E+02 0.0 1.200000E-01 4.777727E+02 0.0 1.400000E-01 5.970312E+02 0.0 1.600000E-01 6.420403E+02 0.0 1.800000E-01 5.535171E+02 0.0 2.000000E-01 3.192686E+02 0.0 2.200000E-01 3.151541E+01 0.0 2.400000E-01 -2.244315E+02 0.0 2.600000E-01 -4.397195E+02 0.0 2.800000E-01 -6.060237E+02 0.0 3.000000E-01 -6.612166E+02 0.0 3.200000E-01 -5.571772E+02 0.0 3.400000E-01 -3.343226E+02 0.0 3.600000E-01 -7.903690E+01 0.0 3.800000E-01 3.885608E+02 0.0 4.000000E-01 -4.709603E+02 0.0 4.200000E-01 -5.868405E+02 0.0 4.400001E-01 -1.464384E+03 0.0 4.600001E-01 -2.794034E+03 0.0 4.800001E-01 -4.247139E+03 0.0 5.000001E-01 -5.424748E+03 0.0 5.200000E-01 -6.241322E+03 0.0 5.400000E-01 -6.659627E+03 0.0 5.600000E-01 -6.411342E+03 0.0 5.800000E-01 -5.465881E+03 0.0 6.000000E-01 -4.198604E+03 0.0 6.199999E-01 -2.879386E+03 0.0 6.399999E-01 -1.606596E+03 0.0 6.599999E-01 -6.248085E+02 0.0 6.799999E-01 -2.053686E+02 0.0 6.999999E-01 -4.374716E+02 0.0 7.199998E-01 -1.263437E+03 0.0 7.399998E-01 -2.470043E+03 0.0 7.599998E-01 -3.794902E+03 0.0 7.799998E-01 -5.102707E+03 0.0 7.999998E-01 -6.183916E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 99 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 151 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 3.270635E+02 0.0 2.000000E-02 3.845569E+02 0.0 4.000000E-02 3.954683E+02 0.0 6.000000E-02 2.448667E+02 0.0 8.000000E-02 -6.498505E+00 0.0 9.999999E-02 -2.241088E+02 0.0 1.200000E-01 -3.395581E+02 0.0 1.400000E-01 -4.147490E+02 0.0 1.600000E-01 -4.737170E+02 0.0 1.800000E-01 -4.257524E+02 0.0 2.000000E-01 -2.313313E+02 0.0 2.200000E-01 -2.053833E-01 0.0 2.400000E-01 1.654575E+02 0.0 2.600000E-01 2.976157E+02 0.0 2.800000E-01 4.375283E+02 0.0 3.000000E-01 5.053262E+02 0.0 3.200000E-01 4.138105E+02 0.0 3.400000E-01 2.221592E+02 0.0 3.600000E-01 4.778632E+01 0.0 3.800000E-01 -4.025378E+02 0.0 4.000000E-01 -3.468189E+01 0.0 4.200000E-01 -1.800321E+02 0.0 4.400001E-01 4.701899E+02 0.0 4.600001E-01 1.520975E+03 0.0 4.800001E-01 2.575398E+03 0.0 5.000001E-01 3.369924E+03 0.0 5.200000E-01 3.957789E+03 0.0 5.400000E-01 4.312926E+03 0.0 5.600000E-01 4.160668E+03 0.0 5.800000E-01 3.428881E+03 0.0 6.000000E-01 2.453121E+03 0.0 6.199999E-01 1.532679E+03 0.0 6.399999E-01 6.720083E+02 0.0 6.599999E-01 -9.128479E+01 0.0 6.799999E-01 -4.725506E+02 0.0 6.999999E-01 -2.523972E+02 0.0 7.199998E-01 4.233936E+02 0.0 7.399998E-01 1.255531E+03 0.0 7.599998E-01 2.156453E+03 0.0 7.799998E-01 3.147494E+03 0.0 7.999998E-01 3.994723E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 100 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 152 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -1.282795E-07 0.0 2.000000E-02 1.500400E-07 0.0 4.000000E-02 2.325181E-08 0.0 6.000000E-02 1.390294E-08 0.0 8.000000E-02 -1.600127E-09 0.0 9.999999E-02 -1.235755E-08 0.0 1.200000E-01 -1.824533E-08 0.0 1.400000E-01 -2.170327E-08 0.0 1.600000E-01 -2.502100E-08 0.0 1.800000E-01 -2.472108E-08 0.0 2.000000E-01 -1.291585E-08 0.0 2.200000E-01 2.224395E-09 0.0 2.400000E-01 8.664227E-09 0.0 2.600000E-01 1.423939E-08 0.0 2.800000E-01 2.424261E-08 0.0 3.000000E-01 2.829393E-08 0.0 3.200000E-01 2.236759E-08 0.0 3.400000E-01 1.156699E-08 0.0 3.600000E-01 1.574415E-09 0.0 3.800000E-01 1.056258E-06 0.0 4.000000E-01 -1.176735E-06 0.0 4.200000E-01 -1.264820E-07 0.0 4.400001E-01 -7.875351E-08 0.0 4.600001E-01 -1.499689E-08 0.0 4.800001E-01 2.781481E-08 0.0 5.000001E-01 7.814266E-08 0.0 5.200000E-01 1.122578E-07 0.0 5.400000E-01 1.208745E-07 0.0 5.600000E-01 1.247139E-07 0.0 5.800000E-01 8.568738E-08 0.0 6.000000E-01 1.697803E-08 0.0 6.199999E-01 -2.062732E-08 0.0 6.399999E-01 -6.028075E-08 0.0 6.599999E-01 -1.164403E-07 0.0 6.799999E-01 -1.321989E-07 0.0 6.999999E-01 -1.150092E-07 0.0 7.199998E-01 -8.549220E-08 0.0 7.399998E-01 -3.388544E-08 0.0 7.599998E-01 1.239640E-08 0.0 7.799998E-01 5.717924E-08 0.0 7.999998E-01 1.164981E-07 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 101 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 153 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -3.270635E+02 0.0 2.000000E-02 -3.845569E+02 0.0 4.000000E-02 -3.954683E+02 0.0 6.000000E-02 -2.448667E+02 0.0 8.000000E-02 6.498505E+00 0.0 9.999999E-02 2.241088E+02 0.0 1.200000E-01 3.395581E+02 0.0 1.400000E-01 4.147490E+02 0.0 1.600000E-01 4.737170E+02 0.0 1.800000E-01 4.257524E+02 0.0 2.000000E-01 2.313313E+02 0.0 2.200000E-01 2.053833E-01 0.0 2.400000E-01 -1.654575E+02 0.0 2.600000E-01 -2.976157E+02 0.0 2.800000E-01 -4.375283E+02 0.0 3.000000E-01 -5.053262E+02 0.0 3.200000E-01 -4.138105E+02 0.0 3.400000E-01 -2.221592E+02 0.0 3.600000E-01 -4.778632E+01 0.0 3.800000E-01 4.025378E+02 0.0 4.000000E-01 3.468189E+01 0.0 4.200000E-01 1.800321E+02 0.0 4.400001E-01 -4.701899E+02 0.0 4.600001E-01 -1.520975E+03 0.0 4.800001E-01 -2.575398E+03 0.0 5.000001E-01 -3.369924E+03 0.0 5.200000E-01 -3.957789E+03 0.0 5.400000E-01 -4.312926E+03 0.0 5.600000E-01 -4.160668E+03 0.0 5.800000E-01 -3.428881E+03 0.0 6.000000E-01 -2.453121E+03 0.0 6.199999E-01 -1.532679E+03 0.0 6.399999E-01 -6.720083E+02 0.0 6.599999E-01 9.128479E+01 0.0 6.799999E-01 4.725506E+02 0.0 6.999999E-01 2.523972E+02 0.0 7.199998E-01 -4.233936E+02 0.0 7.399998E-01 -1.255531E+03 0.0 7.599998E-01 -2.156453E+03 0.0 7.799998E-01 -3.147494E+03 0.0 7.999998E-01 -3.994723E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 102 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 211 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -3.436353E+02 0.0 2.000000E-02 -2.698667E+02 0.0 4.000000E-02 -1.600396E+02 0.0 6.000000E-02 -7.096704E+01 0.0 8.000000E-02 -2.796304E+01 0.0 9.999999E-02 5.526119E+01 0.0 1.200000E-01 1.941760E+02 0.0 1.400000E-01 2.695332E+02 0.0 1.600000E-01 2.223376E+02 0.0 1.800000E-01 1.506483E+02 0.0 2.000000E-01 1.236187E+02 0.0 2.200000E-01 6.374614E+01 0.0 2.400000E-01 -8.174438E+01 0.0 2.600000E-01 -2.120421E+02 0.0 2.800000E-01 -2.304604E+02 0.0 3.000000E-01 -1.936579E+02 0.0 3.200000E-01 -1.878255E+02 0.0 3.400000E-01 -1.687653E+02 0.0 3.600000E-01 -5.325583E+01 0.0 3.800000E-01 -1.678660E+01 0.0 4.000000E-01 1.212613E+03 0.0 4.200000E-01 8.374705E+02 0.0 4.400001E-01 4.817430E+02 0.0 4.600001E-01 1.400483E+02 0.0 4.800001E-01 -3.240578E+02 0.0 5.000001E-01 -9.214178E+02 0.0 5.200000E-01 -1.306562E+03 0.0 5.400000E-01 -1.281137E+03 0.0 5.600000E-01 -1.102379E+03 0.0 5.800000E-01 -9.313381E+02 0.0 6.000000E-01 -5.496548E+02 0.0 6.199999E-01 8.660323E+01 0.0 6.399999E-01 6.353321E+02 0.0 6.599999E-01 8.806630E+02 0.0 6.799999E-01 9.405850E+02 0.0 6.999999E-01 9.270916E+02 0.0 7.199998E-01 7.436954E+02 0.0 7.399998E-01 2.660214E+02 0.0 7.599998E-01 -3.723022E+02 0.0 7.799998E-01 -8.381608E+02 0.0 7.999998E-01 -1.051839E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 103 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 212 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 3.436353E+02 0.0 2.000000E-02 2.698667E+02 0.0 4.000000E-02 1.600396E+02 0.0 6.000000E-02 7.096704E+01 0.0 8.000000E-02 2.796304E+01 0.0 9.999999E-02 -5.526119E+01 0.0 1.200000E-01 -1.941760E+02 0.0 1.400000E-01 -2.695332E+02 0.0 1.600000E-01 -2.223376E+02 0.0 1.800000E-01 -1.506483E+02 0.0 2.000000E-01 -1.236187E+02 0.0 2.200000E-01 -6.374614E+01 0.0 2.400000E-01 8.174438E+01 0.0 2.600000E-01 2.120421E+02 0.0 2.800000E-01 2.304604E+02 0.0 3.000000E-01 1.936579E+02 0.0 3.200000E-01 1.878255E+02 0.0 3.400000E-01 1.687653E+02 0.0 3.600000E-01 5.325583E+01 0.0 3.800000E-01 1.678660E+01 0.0 4.000000E-01 -1.212613E+03 0.0 4.200000E-01 -8.374705E+02 0.0 4.400001E-01 -4.817430E+02 0.0 4.600001E-01 -1.400483E+02 0.0 4.800001E-01 3.240578E+02 0.0 5.000001E-01 9.214178E+02 0.0 5.200000E-01 1.306562E+03 0.0 5.400000E-01 1.281137E+03 0.0 5.600000E-01 1.102379E+03 0.0 5.800000E-01 9.313381E+02 0.0 6.000000E-01 5.496548E+02 0.0 6.199999E-01 -8.660323E+01 0.0 6.399999E-01 -6.353321E+02 0.0 6.599999E-01 -8.806630E+02 0.0 6.799999E-01 -9.405850E+02 0.0 6.999999E-01 -9.270916E+02 0.0 7.199998E-01 -7.436954E+02 0.0 7.399998E-01 -2.660214E+02 0.0 7.599998E-01 3.723022E+02 0.0 7.799998E-01 8.381608E+02 0.0 7.999998E-01 1.051839E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 104 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 221 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -3.415045E+02 0.0 2.000000E-02 -2.672990E+02 0.0 4.000000E-02 -1.598953E+02 0.0 6.000000E-02 -7.303781E+01 0.0 8.000000E-02 -2.656824E+01 0.0 9.999999E-02 5.812775E+01 0.0 1.200000E-01 1.912244E+02 0.0 1.400000E-01 2.630365E+02 0.0 1.600000E-01 2.210844E+02 0.0 1.800000E-01 1.529161E+02 0.0 2.000000E-01 1.215061E+02 0.0 2.200000E-01 5.963672E+01 0.0 2.400000E-01 -8.042645E+01 0.0 2.600000E-01 -2.068938E+02 0.0 2.800000E-01 -2.279661E+02 0.0 3.000000E-01 -1.943456E+02 0.0 3.200000E-01 -1.869742E+02 0.0 3.400000E-01 -1.645969E+02 0.0 3.600000E-01 -5.083914E+01 0.0 3.800000E-01 -9.456635E+00 0.0 4.000000E-01 6.172422E+02 0.0 4.200000E-01 2.523180E+02 0.0 4.400001E-01 -8.893604E+01 0.0 4.600001E-01 -4.309668E+02 0.0 4.800001E-01 -9.073154E+02 0.0 5.000001E-01 -1.485006E+03 0.0 5.200000E-01 -1.850398E+03 0.0 5.400000E-01 -1.846822E+03 0.0 5.600000E-01 -1.678866E+03 0.0 5.800000E-01 -1.485917E+03 0.0 6.000000E-01 -1.107865E+03 0.0 6.199999E-01 -4.965803E+02 0.0 6.399999E-01 5.241266E+01 0.0 6.599999E-01 3.037921E+02 0.0 6.799999E-01 3.573984E+02 0.0 6.999999E-01 3.462645E+02 0.0 7.199998E-01 1.640178E+02 0.0 7.399998E-01 -3.180240E+02 0.0 7.599998E-01 -9.392578E+02 0.0 7.799998E-01 -1.390627E+03 0.0 7.999998E-01 -1.621936E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 105 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 222 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 3.415045E+02 0.0 2.000000E-02 2.672990E+02 0.0 4.000000E-02 1.598953E+02 0.0 6.000000E-02 7.303781E+01 0.0 8.000000E-02 2.656824E+01 0.0 9.999999E-02 -5.812775E+01 0.0 1.200000E-01 -1.912244E+02 0.0 1.400000E-01 -2.630365E+02 0.0 1.600000E-01 -2.210844E+02 0.0 1.800000E-01 -1.529161E+02 0.0 2.000000E-01 -1.215061E+02 0.0 2.200000E-01 -5.963672E+01 0.0 2.400000E-01 8.042645E+01 0.0 2.600000E-01 2.068938E+02 0.0 2.800000E-01 2.279661E+02 0.0 3.000000E-01 1.943456E+02 0.0 3.200000E-01 1.869742E+02 0.0 3.400000E-01 1.645969E+02 0.0 3.600000E-01 5.083914E+01 0.0 3.800000E-01 9.456635E+00 0.0 4.000000E-01 -6.172422E+02 0.0 4.200000E-01 -2.523180E+02 0.0 4.400001E-01 8.893604E+01 0.0 4.600001E-01 4.309668E+02 0.0 4.800001E-01 9.073154E+02 0.0 5.000001E-01 1.485006E+03 0.0 5.200000E-01 1.850398E+03 0.0 5.400000E-01 1.846822E+03 0.0 5.600000E-01 1.678866E+03 0.0 5.800000E-01 1.485917E+03 0.0 6.000000E-01 1.107865E+03 0.0 6.199999E-01 4.965803E+02 0.0 6.399999E-01 -5.241266E+01 0.0 6.599999E-01 -3.037921E+02 0.0 6.799999E-01 -3.573984E+02 0.0 6.999999E-01 -3.462645E+02 0.0 7.199998E-01 -1.640178E+02 0.0 7.399998E-01 3.180240E+02 0.0 7.599998E-01 9.392578E+02 0.0 7.799998E-01 1.390627E+03 0.0 7.999998E-01 1.621936E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 106 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 231 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -3.361897E+02 0.0 2.000000E-02 -2.612712E+02 0.0 4.000000E-02 -1.588312E+02 0.0 6.000000E-02 -7.675818E+01 0.0 8.000000E-02 -2.331821E+01 0.0 9.999999E-02 6.339233E+01 0.0 1.200000E-01 1.838745E+02 0.0 1.400000E-01 2.484348E+02 0.0 1.600000E-01 2.170669E+02 0.0 1.800000E-01 1.562939E+02 0.0 2.000000E-01 1.166647E+02 0.0 2.200000E-01 5.100354E+01 0.0 2.400000E-01 -7.753320E+01 0.0 2.600000E-01 -1.949966E+02 0.0 2.800000E-01 -2.212188E+02 0.0 3.000000E-01 -1.947739E+02 0.0 3.200000E-01 -1.840688E+02 0.0 3.400000E-01 -1.547794E+02 0.0 3.600000E-01 -4.580151E+01 0.0 3.800000E-01 -6.857910E+00 0.0 4.000000E-01 -1.063232E+00 0.0 4.200000E-01 -3.488460E+02 0.0 4.400001E-01 -6.633076E+02 0.0 4.600001E-01 -1.006735E+03 0.0 4.800001E-01 -1.498121E+03 0.0 5.000001E-01 -2.033941E+03 0.0 5.200000E-01 -2.362383E+03 0.0 5.400000E-01 -2.397662E+03 0.0 5.600000E-01 -2.251059E+03 0.0 5.800000E-01 -2.021477E+03 0.0 6.000000E-01 -1.650333E+03 0.0 6.199999E-01 -1.089110E+03 0.0 6.399999E-01 -5.490779E+02 0.0 6.599999E-01 -2.874603E+02 0.0 6.799999E-01 -2.408230E+02 0.0 6.999999E-01 -2.509004E+02 0.0 7.199998E-01 -4.331671E+02 0.0 7.399998E-01 -9.148271E+02 0.0 7.599998E-01 -1.498100E+03 0.0 7.799998E-01 -1.922730E+03 0.0 7.999998E-01 -2.183844E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 107 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 232 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 3.361897E+02 0.0 2.000000E-02 2.612712E+02 0.0 4.000000E-02 1.588312E+02 0.0 6.000000E-02 7.675818E+01 0.0 8.000000E-02 2.331821E+01 0.0 9.999999E-02 -6.339233E+01 0.0 1.200000E-01 -1.838745E+02 0.0 1.400000E-01 -2.484348E+02 0.0 1.600000E-01 -2.170669E+02 0.0 1.800000E-01 -1.562939E+02 0.0 2.000000E-01 -1.166647E+02 0.0 2.200000E-01 -5.100354E+01 0.0 2.400000E-01 7.753320E+01 0.0 2.600000E-01 1.949966E+02 0.0 2.800000E-01 2.212188E+02 0.0 3.000000E-01 1.947739E+02 0.0 3.200000E-01 1.840688E+02 0.0 3.400000E-01 1.547794E+02 0.0 3.600000E-01 4.580151E+01 0.0 3.800000E-01 6.857910E+00 0.0 4.000000E-01 1.063232E+00 0.0 4.200000E-01 3.488460E+02 0.0 4.400001E-01 6.633076E+02 0.0 4.600001E-01 1.006735E+03 0.0 4.800001E-01 1.498121E+03 0.0 5.000001E-01 2.033941E+03 0.0 5.200000E-01 2.362383E+03 0.0 5.400000E-01 2.397662E+03 0.0 5.600000E-01 2.251059E+03 0.0 5.800000E-01 2.021477E+03 0.0 6.000000E-01 1.650333E+03 0.0 6.199999E-01 1.089110E+03 0.0 6.399999E-01 5.490779E+02 0.0 6.599999E-01 2.874603E+02 0.0 6.799999E-01 2.408230E+02 0.0 6.999999E-01 2.509004E+02 0.0 7.199998E-01 4.331671E+02 0.0 7.399998E-01 9.148271E+02 0.0 7.599998E-01 1.498100E+03 0.0 7.799998E-01 1.922730E+03 0.0 7.999998E-01 2.183844E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 108 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 241 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -3.270312E+02 0.0 2.000000E-02 -2.517554E+02 0.0 4.000000E-02 -1.557466E+02 0.0 6.000000E-02 -8.055847E+01 0.0 8.000000E-02 -1.821930E+01 0.0 9.999999E-02 6.907922E+01 0.0 1.200000E-01 1.714050E+02 0.0 1.400000E-01 2.262734E+02 0.0 1.600000E-01 2.086157E+02 0.0 1.800000E-01 1.581443E+02 0.0 2.000000E-01 1.091211E+02 0.0 2.200000E-01 3.903149E+01 0.0 2.400000E-01 -7.319067E+01 0.0 2.600000E-01 -1.763396E+02 0.0 2.800000E-01 -2.088916E+02 0.0 3.000000E-01 -1.931606E+02 0.0 3.200000E-01 -1.776831E+02 0.0 3.400000E-01 -1.391760E+02 0.0 3.600000E-01 -3.888623E+01 0.0 3.800000E-01 -2.314941E+01 0.0 4.000000E-01 -6.364016E+02 0.0 4.200000E-01 -9.650754E+02 0.0 4.400001E-01 -1.248286E+03 0.0 4.600001E-01 -1.594279E+03 0.0 4.800001E-01 -2.086514E+03 0.0 5.000001E-01 -2.562535E+03 0.0 5.200000E-01 -2.847926E+03 0.0 5.400000E-01 -2.924094E+03 0.0 5.600000E-01 -2.804219E+03 0.0 5.800000E-01 -2.541762E+03 0.0 6.000000E-01 -2.179902E+03 0.0 6.199999E-01 -1.683641E+03 0.0 6.399999E-01 -1.173967E+03 0.0 6.599999E-01 -9.036664E+02 0.0 6.799999E-01 -8.550131E+02 0.0 6.999999E-01 -8.705505E+02 0.0 7.199998E-01 -1.057262E+03 0.0 7.399998E-01 -1.520026E+03 0.0 7.599998E-01 -2.046377E+03 0.0 7.799998E-01 -2.440566E+03 0.0 7.999998E-01 -2.728793E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 109 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 242 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 3.270312E+02 0.0 2.000000E-02 2.517554E+02 0.0 4.000000E-02 1.557466E+02 0.0 6.000000E-02 8.055847E+01 0.0 8.000000E-02 1.821930E+01 0.0 9.999999E-02 -6.907922E+01 0.0 1.200000E-01 -1.714050E+02 0.0 1.400000E-01 -2.262734E+02 0.0 1.600000E-01 -2.086157E+02 0.0 1.800000E-01 -1.581443E+02 0.0 2.000000E-01 -1.091211E+02 0.0 2.200000E-01 -3.903149E+01 0.0 2.400000E-01 7.319067E+01 0.0 2.600000E-01 1.763396E+02 0.0 2.800000E-01 2.088916E+02 0.0 3.000000E-01 1.931606E+02 0.0 3.200000E-01 1.776831E+02 0.0 3.400000E-01 1.391760E+02 0.0 3.600000E-01 3.888623E+01 0.0 3.800000E-01 2.314941E+01 0.0 4.000000E-01 6.364016E+02 0.0 4.200000E-01 9.650754E+02 0.0 4.400001E-01 1.248286E+03 0.0 4.600001E-01 1.594279E+03 0.0 4.800001E-01 2.086514E+03 0.0 5.000001E-01 2.562535E+03 0.0 5.200000E-01 2.847926E+03 0.0 5.400000E-01 2.924094E+03 0.0 5.600000E-01 2.804219E+03 0.0 5.800000E-01 2.541762E+03 0.0 6.000000E-01 2.179902E+03 0.0 6.199999E-01 1.683641E+03 0.0 6.399999E-01 1.173967E+03 0.0 6.599999E-01 9.036664E+02 0.0 6.799999E-01 8.550131E+02 0.0 6.999999E-01 8.705505E+02 0.0 7.199998E-01 1.057262E+03 0.0 7.399998E-01 1.520026E+03 0.0 7.599998E-01 2.046377E+03 0.0 7.799998E-01 2.440566E+03 0.0 7.999998E-01 2.728793E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 110 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 251 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -3.137275E+02 0.0 2.000000E-02 -2.393647E+02 0.0 4.000000E-02 -1.491182E+02 0.0 6.000000E-02 -8.219604E+01 0.0 8.000000E-02 -1.184705E+01 0.0 9.999999E-02 7.250000E+01 0.0 1.200000E-01 1.537544E+02 0.0 1.400000E-01 1.981758E+02 0.0 1.600000E-01 1.940703E+02 0.0 1.800000E-01 1.552690E+02 0.0 2.000000E-01 9.906836E+01 0.0 2.200000E-01 2.577161E+01 0.0 2.400000E-01 -6.741870E+01 0.0 2.600000E-01 -1.520767E+02 0.0 2.800000E-01 -1.902646E+02 0.0 3.000000E-01 -1.869248E+02 0.0 3.200000E-01 -1.662827E+02 0.0 3.400000E-01 -1.188901E+02 0.0 3.600000E-01 -3.117273E+01 0.0 3.800000E-01 -7.060864E+01 0.0 4.000000E-01 -1.280275E+03 0.0 4.200000E-01 -1.596990E+03 0.0 4.400001E-01 -1.851472E+03 0.0 4.600001E-01 -2.197863E+03 0.0 4.800001E-01 -2.661898E+03 0.0 5.000001E-01 -3.067691E+03 0.0 5.200000E-01 -3.314281E+03 0.0 5.400000E-01 -3.417445E+03 0.0 5.600000E-01 -3.324180E+03 0.0 5.800000E-01 -3.050625E+03 0.0 6.000000E-01 -2.701273E+03 0.0 6.199999E-01 -2.274268E+03 0.0 6.399999E-01 -1.823476E+03 0.0 6.599999E-01 -1.552483E+03 0.0 6.799999E-01 -1.488642E+03 0.0 6.999999E-01 -1.518275E+03 0.0 7.199998E-01 -1.712582E+03 0.0 7.399998E-01 -2.129348E+03 0.0 7.599998E-01 -2.584867E+03 0.0 7.799998E-01 -2.949859E+03 0.0 7.999998E-01 -3.248016E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 111 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 ELEMENT-ID = 252 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 3.137275E+02 0.0 2.000000E-02 2.393647E+02 0.0 4.000000E-02 1.491182E+02 0.0 6.000000E-02 8.219604E+01 0.0 8.000000E-02 1.184705E+01 0.0 9.999999E-02 -7.250000E+01 0.0 1.200000E-01 -1.537544E+02 0.0 1.400000E-01 -1.981758E+02 0.0 1.600000E-01 -1.940703E+02 0.0 1.800000E-01 -1.552690E+02 0.0 2.000000E-01 -9.906836E+01 0.0 2.200000E-01 -2.577161E+01 0.0 2.400000E-01 6.741870E+01 0.0 2.600000E-01 1.520767E+02 0.0 2.800000E-01 1.902646E+02 0.0 3.000000E-01 1.869248E+02 0.0 3.200000E-01 1.662827E+02 0.0 3.400000E-01 1.188901E+02 0.0 3.600000E-01 3.117273E+01 0.0 3.800000E-01 7.060864E+01 0.0 4.000000E-01 1.280275E+03 0.0 4.200000E-01 1.596990E+03 0.0 4.400001E-01 1.851472E+03 0.0 4.600001E-01 2.197863E+03 0.0 4.800001E-01 2.661898E+03 0.0 5.000001E-01 3.067691E+03 0.0 5.200000E-01 3.314281E+03 0.0 5.400000E-01 3.417445E+03 0.0 5.600000E-01 3.324180E+03 0.0 5.800000E-01 3.050625E+03 0.0 6.000000E-01 2.701273E+03 0.0 6.199999E-01 2.274268E+03 0.0 6.399999E-01 1.823476E+03 0.0 6.599999E-01 1.552483E+03 0.0 6.799999E-01 1.488642E+03 0.0 6.999999E-01 1.518275E+03 0.0 7.199998E-01 1.712582E+03 0.0 7.399998E-01 2.129348E+03 0.0 7.599998E-01 2.584867E+03 0.0 7.799998E-01 2.949859E+03 0.0 7.999998E-01 3.248016E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 112 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A 0 RECOVER ABASIC , RUN 5, PHASE 3, RF 9 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 ABASIC B 0 0 0 0 3 3 3 3 3 3 3 3 3 3 4 3 3 3 3 2 BBASIC B 0 0 0 0 4 3 3 3 3 3 3 3 3 3 4 3 3 3 3 3 MA M 0 0 1 4 5 3 3 3 3 3 3 3 4 3 4 MB M 0 0 2 3 5 3 3 3 3 3 3 3 4 3 5 MCOMB C 0 0 3 0 6 3 3 3 3 3 3 3 3 3 3 4 3 3 3 3 6 RTRUSS M 0 0 5 0 0 3 3 3 3 3 3 3 4 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 386048 WORDS. OR = 377 BLOCKS. OR = 77 PERCENT. 0*** HIGHEST BLOCK USED = 111 * * * END OF JOB * * * 1 JOB TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS DATE: 5/17/95 END TIME: 15:28:16 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d02036a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 $ NASTRAN FILES=INP1 ID D02036A,NASTRAN APP DISP,SUBS SOL 9,0 TIME 40 DIAG 14,23 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 SUBSTRUCTURE PHASE3 PASSWORD = MDLSYN SOF(1) = FT19,500 $ DEC VAX BRECOVER BBASIC SOFPRINT TOC ENDSUBS 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N S U B S T R U C T U R E D E C K E C H O 0 ALTER DECK ECHO 1 ALTER 88 2 PARAM //*ADD*/DRY/1 /0 $ 3 LABEL LBSBEG $ 4 ALTER 93,137 5 PARAM //*NOP*/ALWAYS=-1 $ 6 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,/PG,,,,/ 7 LUSET/NSKIP $ 8 SSG2 USET,GM, ,KFS,GO,,PG/QR,PO,PS,PL $ 9 RCOVR3 ,PG,PS, , /UDVT,QAS,PPT,PST, , ,TOL /9 /*BBASIC */ 10 NOUE $ 11 ALTER 139 12 UMERGE USET,QAS,/QGS/*G*/*A*/*O* $ 13 ADD QP ,QGS/QGT/ (1.0,0.0)/(1.0,0.0) $ 14 EQUIV QGT,QP /ALWAYS $ 15 EQUIV CASECC,CASEXX/ALWAYS $ 16 ALTER 152,154 17 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ 18 * */* */* * $ 19 LABEL LBSEND $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 3 LABEL = RECOVER BBASIC , RUN 6, PHASE 3, RF 9 4 MAXLINES = 100000 5 IC = 522 6 TSTEP = 40 7 LOAD = 980 8 DISP = ALL 9 ELFO = ALL 10 STRE = ALL 11 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 52, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CROD 1 1 1 2 2- CROD 2 1 2 3 3- CROD 11 1 11 12 4- CROD 12 1 12 13 5- CROD 21 1 21 22 6- CROD 22 1 22 23 7- CROD 31 1 31 32 8- CROD 32 1 32 33 9- CROD 41 1 41 42 10- CROD 42 1 42 43 11- CROD 111 1 1 11 12- CROD 112 1 2 12 13- CROD 113 1 3 13 14- CROD 121 1 11 21 15- CROD 122 1 12 22 16- CROD 123 1 13 23 17- CROD 131 1 21 31 18- CROD 132 1 22 32 19- CROD 133 1 23 33 20- CROD 141 1 31 41 21- CROD 142 1 32 42 22- CROD 143 1 33 43 23- CROD 211 1 2 11 24- CROD 212 1 2 13 25- CROD 221 1 12 21 26- CROD 222 1 12 23 27- CROD 231 1 22 31 28- CROD 232 1 22 33 29- CROD 241 1 32 41 30- CROD 242 1 32 43 31- GRAV 980 980.0 .0 -1.0 .0 32- GRDSET 3456 33- GRID 1 30.0 0.0 0.0 34- GRID 2 0.0 0.0 0.0 35- GRID 3 -30.0 0.0 0.0 36- GRID 11 30.0 40.0 0.0 37- GRID 12 0.0 40.0 0.0 38- GRID 13 -30.0 40.0 0.0 39- GRID 21 30.0 80.0 0.0 40- GRID 22 0.0 80.0 0.0 41- GRID 23 -30.0 80.0 0.0 42- GRID 31 30.0 120.0 0.0 43- GRID 32 0.0 120.0 0.0 44- GRID 33 -30.0 120.0 0.0 45- GRID 41 30.0 160.0 0.0 46- GRID 42 0.0 160.0 0.0 47- GRID 43 -30.0 160.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A RECOVER BBASIC , RUN 6, PHASE 3, RF 9 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- MAT1 1 10.0+6 .3 2.5-3 49- PARAM GRDPNT 0 50- PROD 1 1 .3 51- TIC 522 2 2 .1 52- TSTEP 40 40 2.0-2 1 ENDDATA 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE UDVT=APPEND/TOL=APPEND/RLODDISP=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ 10 COND LBL5,NOGPDT $ 11 GP2 GEOM2,EQEXIN/ECT $ 12 PARAML PCDB//*PRES*////JUMPPLOT $ 13 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 14 COND P1,JUMPPLOT $ 15 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 16 PRTMSG PLTSETX// $ 17 PARAM //*MPY*/PLTFLG/1/1 $ 18 PARAM //*MPY*/PFILE/0/0 $ 19 COND P1,JUMPPLOT $ 20 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 21 PRTMSG PLOTX1// $ 22 LABEL P1 $ 23 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ 24 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/ S,N,COMPS 25 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 26 PURGE K4GG,MGG,BGG, K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,KGGX/NOSIMP $ 27 COND LBL1,NOSIMP $ 28 PARAM //*ADD*/NOKGGX/1/0 $ 29 PARAM //*ADD*/NOMGG/1/0 $ 30 PARAM //*ADD*/NOBGG=-1/1/0 $ 31 PARAM //*ADD*/NOK4GG/1/0 $ 32 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 33 PURGE KGGX/NOKGGX/MGG/NOMGG $ 34 COND LBLKGGX,NOKGGX $ 35 EMA GPECT,KDICT,KELM/KGGX $ 36 LABEL LBLKGGX $ 37 COND LBLMGG,NOMGG $ 38 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 39 PURGE MDICT,MELM/ALWAYS $ 40 LABEL LBLMGG $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A RECOVER BBASIC , RUN 6, PHASE 3, RF 9 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 41 COND LBLBGG,NOBGG $ 42 EMA GPECT,BDICT,BELM/BGG $ 43 PURGE BDICT,BELM/ALWAYS $ 44 LABEL LBLBGG $ 45 COND LBLK4GG,NOK4GG $ 46 EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ 47 LABEL LBLK4GG $ 48 PURGE KDICT,KELM/ALWAYS $ 49 PURGE MNN,MFF,MAA/NOMGG $ 50 PURGE BNN,BFF,BAA/NOBGG $ 51 COND LBL1,GRDPNT $ 52 COND ERROR3,NOMGG $ 53 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 54 OFP OGPWG,,,,,//S,N,CARDNO $ 55 LABEL LBL1 $ 56 EQUIV KGGX,KGG/NOGENL $ 57 COND LBL11,NOGENL $ 58 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 59 LABEL LBL11 $ 60 GPSTGEN KGG,SIL/GPST $ 61 PARAM //*MPY*/NSKIP/0/0 $ 62 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING C,Y,ASETOUT/C,Y,AUTOSPC $ 63 OFP OGPST,,,,,//S,N,CARDNO $ 64 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $ 65 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ 66 COND LBL2,MPCF1 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS, ,MFF,BFF,K4FF $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 EQUIV MFF,MAA/OMIT $ 76 EQUIV BFF,BAA/OMIT $ 77 EQUIV K4FF,K4AA/OMIT $ 78 COND LBL5,OMIT $ 79 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 80 COND LBLM,NOMGG $ 81 SMP2 USET,GO,MFF/MAA $ 82 LABEL LBLM $ 83 COND LBLB,NOBGG $ 84 SMP2 USET,GO,BFF/BAA $ 85 LABEL LBLB $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A RECOVER BBASIC , RUN 6, PHASE 3, RF 9 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 86 COND LBL5,NOK4GG $ 87 SMP2 USET,GO,K4FF/K4AA $ 88 LABEL LBL5 $ 88 PARAM //*ADD*/DRY/1 /0 $ 88 LABEL LBSBEG $ 89 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,, EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/ NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $ 90 COND ERROR1,NOTRL $ 91 PURGE PNLD/NONLFT$ 92 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 137 PARAM //*NOP*/ALWAYS=-1 $ 0*** USER WARNING MESSAGE 42, POSSIBLE ERROR IN DMAP INSTRUCTION PARAM INSTRUCTION NO. 137 PARAMETER NAMED ALWAYS ALREADY HAD VALUE ASSIGNED PREVIOUSLY 137 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,/PG,,,,/ LUSET/NSKIP $ 137 SSG2 USET,GM, ,KFS,GO,,PG/QR,PO,PS,PL $ 137 RCOVR3 ,PG,PS, , /UDVT,QAS,PPT,PST, , ,TOL /9 /*BBASIC */ NOUE $ 138 SDR1 USETD,,UDVT,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $ 139 LABEL LBL17 $ 139 UMERGE USET,QAS,/QGS/*G*/*A*/*O* $ 139 ADD QP ,QGS/QGT/ (1.0,0.0)/(1.0,0.0) $ 139 EQUIV QGT,QP /ALWAYS $ 139 EQUIV CASECC,CASEXX/ALWAYS $ 140 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB, 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $ 141 SDR3 OPP1,OQP1,OUPV1,OES1,OEF1,/ OPP2,OQP2,OUPV2,OES2,OEF2, $ 142 OFP OPP2,OQP2,OUPV2,OEF2,OES2,//S,N,CARDNO $ 143 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ 144 OFP OESF2,,,,,//S,N,CARDNO $ 145 COND P2,JUMPPLOT $ 146 PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,GPECT,OES1, ,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 147 PRTMSG PLOTX2// $ 148 LABEL P2 $ 149 XYTRAN XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/ S,N,PFILE/S,N,CARDNO $ 150 XYPLOT XYPLTT// $ 151 LABEL LBL18 $ 154 SOFUT //DRY/*TOC */*SOFP*/0 /* */* */* */* */ * */* */* * $ 154 LABEL LBSEND $ 155 JUMP FINIS $ 156 LABEL ERROR1 $ 157 PRTPARM //-1/*DIRTRD* $ 158 LABEL ERROR3 $ 159 PRTPARM //-3/*DIRTRD* $ 160 LABEL FINIS $ 161 PURGE DUMMY/ALWAYS $ 162 END $ 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSEND NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBL18 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBL17 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED LBSBEG NOT REFERENCED 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 5 PROFILE 57 MAX WAVEFRONT 5 AVG WAVEFRONT 3.800 RMS WAVEFRONT 3.958 RMS BANDWIDTH 3.975 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 5 PROFILE 56 MAX WAVEFRONT 5 AVG WAVEFRONT 3.733 RMS WAVEFRONT 3.882 RMS BANDWIDTH 3.916 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 5 5 PROFILE (P) 57 56 MAXIMUM WAVEFRONT (C-MAX) 5 5 AVERAGE WAVEFRONT (C-AVG) 3.800 3.733 RMS WAVEFRONT (C-RMS) 3.958 3.882 RMS BANDWITCH (B-RMS) 3.975 3.916 NUMBER OF GRID POINTS (N) 15 NUMBER OF ELEMENTS (NON-RIGID) 30 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 6 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 30 MATRIX DENSITY, PERCENT 33.333 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 4 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 4 3 2 11 3 SEQGP 12 7 13 5 21 6 22 10 SEQGP 23 8 31 9 32 13 33 11 SEQGP 41 12 42 15 43 14 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 1 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 8.85000008D-01 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 -7.08000006D+01 * * 0.00000000D+00 8.85000008D-01 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 8.85000008D-01 7.08000006D+01 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 7.08000006D+01 7.96800007D+03 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 4.52250004D+02 0.00000000D+00 * * -7.08000006D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 8.42025007D+03 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 8.850000077D-01 0.000000000D+00 8.000000000D+01 0.000000000D+00 Y 8.850000077D-01 0.000000000D+00 0.000000000D+00 0.000000000D+00 Z 8.850000077D-01 0.000000000D+00 8.000000000D+01 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 2.304000020D+03 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 4.522500039D+02 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 2.756250024D+03 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 2.304000020D+03 * * 4.522500039D+02 * * 2.756250024D+03 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 0*** SYSTEM INFORMATION MESSAGE 6201, 1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE -- SIZE OF FILE 1 = 488 BLOCKS AND WHERE A BLOCK CONTAINS 1024 WORDS 0*** USER INFORMATION MESSAGE 6321, SUBSTRUCTURE PHASE 3 RECOVER FOR FINAL SOLUTION STRUCTURE RTRUSS AND BASIC SUBSTRUCTURE BBASIC 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 1 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -9.972804E-02 1.726345E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -8.795284E-02 1.602409E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -6.643399E-02 1.299208E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -3.646334E-02 7.373300E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -4.473437E-03 5.936068E-04 0.0 0.0 0.0 0.0 9.999999E-02 G 3.187666E-02 -6.535134E-03 0.0 0.0 0.0 0.0 1.200000E-01 G 6.724679E-02 -1.263359E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 8.732010E-02 -1.617281E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 8.532047E-02 -1.639792E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 6.830145E-02 -1.353013E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 4.399038E-02 -8.339021E-03 0.0 0.0 0.0 0.0 2.200000E-01 G 1.101861E-02 -1.591423E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -3.020194E-02 5.780797E-03 0.0 0.0 0.0 0.0 2.600000E-01 G -6.623100E-02 1.212600E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -8.325891E-02 1.578978E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -8.312082E-02 1.634764E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -7.334013E-02 1.415126E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -5.140954E-02 9.338117E-03 0.0 0.0 0.0 0.0 3.600000E-01 G -1.378143E-02 2.398395E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 2.919014E-02 -7.703990E-03 0.0 0.0 0.0 0.0 4.000000E-01 G 1.387250E-02 -5.085935E-04 0.0 0.0 0.0 0.0 4.200000E-01 G -5.077145E-02 7.639633E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -1.718806E-01 3.065482E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -3.316626E-01 6.272717E-02 0.0 0.0 0.0 0.0 4.800001E-01 G -5.227460E-01 9.949066E-02 0.0 0.0 0.0 0.0 5.000001E-01 G -7.030305E-01 1.323348E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -8.221683E-01 1.545146E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -8.581591E-01 1.628486E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -8.139981E-01 1.551891E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -7.056035E-01 1.331416E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -5.459657E-01 1.017326E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -3.496642E-01 6.553696E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -1.638073E-01 3.120855E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -4.537180E-02 7.528332E-03 0.0 0.0 0.0 0.0 6.799999E-01 G -3.700558E-03 -1.679823E-03 0.0 0.0 0.0 0.0 6.999999E-01 G -2.415224E-02 3.115468E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -1.187567E-01 2.253920E-02 0.0 0.0 0.0 0.0 7.399998E-01 G -2.896703E-01 5.446753E-02 0.0 0.0 0.0 0.0 7.599998E-01 G -4.887786E-01 9.096155E-02 0.0 0.0 0.0 0.0 7.799998E-01 G -6.614697E-01 1.243436E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -7.862128E-01 1.497113E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 2 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.000000E-01 -1.394654E-13 0.0 0.0 0.0 0.0 2.000000E-02 G -8.815945E-02 1.631682E-13 0.0 0.0 0.0 0.0 4.000000E-02 G -6.656072E-02 2.530089E-14 0.0 0.0 0.0 0.0 6.000000E-02 G -3.653554E-02 1.512666E-14 0.0 0.0 0.0 0.0 8.000000E-02 G -4.480211E-03 -1.739595E-15 0.0 0.0 0.0 0.0 9.999999E-02 G 3.194106E-02 -1.344566E-14 0.0 0.0 0.0 0.0 1.200000E-01 G 6.737154E-02 -1.985424E-14 0.0 0.0 0.0 0.0 1.400000E-01 G 8.747876E-02 -2.361819E-14 0.0 0.0 0.0 0.0 1.600000E-01 G 8.548176E-02 -2.722721E-14 0.0 0.0 0.0 0.0 1.800000E-01 G 6.843473E-02 -2.689852E-14 0.0 0.0 0.0 0.0 2.000000E-01 G 4.407183E-02 -1.405417E-14 0.0 0.0 0.0 0.0 2.200000E-01 G 1.103443E-02 2.417095E-15 0.0 0.0 0.0 0.0 2.400000E-01 G -3.025798E-02 9.428185E-15 0.0 0.0 0.0 0.0 2.600000E-01 G -6.635091E-02 1.549803E-14 0.0 0.0 0.0 0.0 2.800000E-01 G -8.341487E-02 2.637916E-14 0.0 0.0 0.0 0.0 3.000000E-01 G -8.328048E-02 3.078598E-14 0.0 0.0 0.0 0.0 3.200000E-01 G -7.347896E-02 2.433973E-14 0.0 0.0 0.0 0.0 3.400000E-01 G -5.150254E-02 1.258884E-14 0.0 0.0 0.0 0.0 3.600000E-01 G -1.380486E-02 1.714604E-15 0.0 0.0 0.0 0.0 3.800000E-01 G 2.907512E-02 1.148530E-12 0.0 0.0 0.0 0.0 4.000000E-01 G 1.245541E-02 -1.279549E-12 0.0 0.0 0.0 0.0 4.200000E-01 G -5.247950E-02 -1.375377E-13 0.0 0.0 0.0 0.0 4.400001E-01 G -1.738018E-01 -8.560768E-14 0.0 0.0 0.0 0.0 4.600001E-01 G -3.338889E-01 -1.623141E-14 0.0 0.0 0.0 0.0 4.800001E-01 G -5.253527E-01 3.035843E-14 0.0 0.0 0.0 0.0 5.000001E-01 G -7.059575E-01 8.512096E-14 0.0 0.0 0.0 0.0 5.200000E-01 G -8.252974E-01 1.222438E-13 0.0 0.0 0.0 0.0 5.400000E-01 G -8.613840E-01 1.316255E-13 0.0 0.0 0.0 0.0 5.600000E-01 G -8.171533E-01 1.357955E-13 0.0 0.0 0.0 0.0 5.800000E-01 G -7.085238E-01 9.333018E-14 0.0 0.0 0.0 0.0 6.000000E-01 G -5.485846E-01 1.858520E-14 0.0 0.0 0.0 0.0 6.199999E-01 G -3.519410E-01 -2.236176E-14 0.0 0.0 0.0 0.0 6.399999E-01 G -1.657290E-01 -6.552142E-14 0.0 0.0 0.0 0.0 6.599999E-01 G -4.705777E-02 -1.266143E-13 0.0 0.0 0.0 0.0 6.799999E-01 G -5.316249E-03 -1.437578E-13 0.0 0.0 0.0 0.0 6.999999E-01 G -2.580528E-02 -1.250651E-13 0.0 0.0 0.0 0.0 7.199998E-01 G -1.205863E-01 -9.294520E-14 0.0 0.0 0.0 0.0 7.399998E-01 G -2.918324E-01 -3.678723E-14 0.0 0.0 0.0 0.0 7.599998E-01 G -4.913020E-01 1.357767E-14 0.0 0.0 0.0 0.0 7.799998E-01 G -6.643022E-01 6.231484E-14 0.0 0.0 0.0 0.0 7.999998E-01 G -7.893048E-01 1.268578E-13 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 3 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -9.972804E-02 -1.726345E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -8.795284E-02 -1.602409E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -6.643399E-02 -1.299208E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -3.646334E-02 -7.373300E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -4.473437E-03 -5.936068E-04 0.0 0.0 0.0 0.0 9.999999E-02 G 3.187666E-02 6.535134E-03 0.0 0.0 0.0 0.0 1.200000E-01 G 6.724679E-02 1.263359E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 8.732010E-02 1.617281E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 8.532047E-02 1.639792E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 6.830145E-02 1.353013E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 4.399038E-02 8.339021E-03 0.0 0.0 0.0 0.0 2.200000E-01 G 1.101861E-02 1.591423E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -3.020194E-02 -5.780797E-03 0.0 0.0 0.0 0.0 2.600000E-01 G -6.623100E-02 -1.212600E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -8.325891E-02 -1.578978E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -8.312082E-02 -1.634764E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -7.334013E-02 -1.415126E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -5.140954E-02 -9.338117E-03 0.0 0.0 0.0 0.0 3.600000E-01 G -1.378143E-02 -2.398395E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 2.919014E-02 7.703990E-03 0.0 0.0 0.0 0.0 4.000000E-01 G 1.387250E-02 5.085935E-04 0.0 0.0 0.0 0.0 4.200000E-01 G -5.077145E-02 -7.639633E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -1.718806E-01 -3.065482E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -3.316626E-01 -6.272717E-02 0.0 0.0 0.0 0.0 4.800001E-01 G -5.227460E-01 -9.949066E-02 0.0 0.0 0.0 0.0 5.000001E-01 G -7.030305E-01 -1.323348E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -8.221683E-01 -1.545146E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -8.581591E-01 -1.628486E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -8.139981E-01 -1.551891E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -7.056035E-01 -1.331416E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -5.459657E-01 -1.017326E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -3.496642E-01 -6.553696E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -1.638073E-01 -3.120855E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -4.537180E-02 -7.528332E-03 0.0 0.0 0.0 0.0 6.799999E-01 G -3.700558E-03 1.679823E-03 0.0 0.0 0.0 0.0 6.999999E-01 G -2.415224E-02 -3.115468E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -1.187567E-01 -2.253920E-02 0.0 0.0 0.0 0.0 7.399998E-01 G -2.896703E-01 -5.446753E-02 0.0 0.0 0.0 0.0 7.599998E-01 G -4.887786E-01 -9.096155E-02 0.0 0.0 0.0 0.0 7.799998E-01 G -6.614697E-01 -1.243436E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -7.862128E-01 -1.497113E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 11 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.237933E-01 1.756579E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -1.113268E-01 1.679232E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -8.638323E-02 1.408971E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -4.795023E-02 8.084430E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -5.178940E-03 5.303015E-04 0.0 0.0 0.0 0.0 9.999999E-02 G 4.211361E-02 -7.194262E-03 0.0 0.0 0.0 0.0 1.200000E-01 G 8.627026E-02 -1.349478E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 1.115118E-01 -1.719277E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 1.102817E-01 -1.766360E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 8.918646E-02 -1.472755E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 5.661008E-02 -8.944025E-03 0.0 0.0 0.0 0.0 2.200000E-01 G 1.306175E-02 -1.511429E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -3.899157E-02 6.224465E-03 0.0 0.0 0.0 0.0 2.600000E-01 G -8.425346E-02 1.282643E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -1.071443E-01 1.692403E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -1.082833E-01 1.776134E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -9.492256E-02 1.526721E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -6.523303E-02 9.843878E-03 0.0 0.0 0.0 0.0 3.600000E-01 G -1.725734E-02 2.489902E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 4.392191E-02 -9.520222E-03 0.0 0.0 0.0 0.0 4.000000E-01 G 2.296061E-02 -4.726507E-03 0.0 0.0 0.0 0.0 4.200000E-01 G -4.937012E-02 1.841250E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -2.054420E-01 2.663831E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -4.150992E-01 6.178701E-02 0.0 0.0 0.0 0.0 4.800001E-01 G -6.620246E-01 1.012571E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -8.910643E-01 1.359746E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -1.043572E+00 1.597157E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -1.093137E+00 1.691233E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -1.037891E+00 1.611511E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -8.951988E-01 1.370759E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -6.871352E-01 1.028975E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -4.367505E-01 6.439175E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -1.997652E-01 2.808063E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -4.459813E-02 2.231114E-03 0.0 0.0 0.0 0.0 6.799999E-01 G 1.206854E-02 -8.295247E-03 0.0 0.0 0.0 0.0 6.999999E-01 G -1.640109E-02 -2.716396E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -1.415123E-01 1.877814E-02 0.0 0.0 0.0 0.0 7.399998E-01 G -3.602576E-01 5.268280E-02 0.0 0.0 0.0 0.0 7.599998E-01 G -6.136897E-01 9.131303E-02 0.0 0.0 0.0 0.0 7.799998E-01 G -8.374245E-01 1.274808E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -1.001703E+00 1.552600E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 12 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.238578E-01 -1.308536E-13 0.0 0.0 0.0 0.0 2.000000E-02 G -1.114743E-01 1.530982E-13 0.0 0.0 0.0 0.0 4.000000E-02 G -8.658586E-02 2.374118E-14 0.0 0.0 0.0 0.0 6.000000E-02 G -4.807768E-02 1.419389E-14 0.0 0.0 0.0 0.0 8.000000E-02 G -5.172579E-03 -1.632200E-15 0.0 0.0 0.0 0.0 9.999999E-02 G 4.223077E-02 -1.261663E-14 0.0 0.0 0.0 0.0 1.200000E-01 G 8.643888E-02 -1.863048E-14 0.0 0.0 0.0 0.0 1.400000E-01 G 1.117154E-01 -2.216190E-14 0.0 0.0 0.0 0.0 1.600000E-01 G 1.105207E-01 -2.554939E-14 0.0 0.0 0.0 0.0 1.800000E-01 G 8.940586E-02 -2.524088E-14 0.0 0.0 0.0 0.0 2.000000E-01 G 5.672615E-02 -1.318797E-14 0.0 0.0 0.0 0.0 2.200000E-01 G 1.305600E-02 2.267720E-15 0.0 0.0 0.0 0.0 2.400000E-01 G -3.907504E-02 8.847045E-15 0.0 0.0 0.0 0.0 2.600000E-01 G -8.439713E-02 1.454327E-14 0.0 0.0 0.0 0.0 2.800000E-01 G -1.073635E-01 2.475326E-14 0.0 0.0 0.0 0.0 3.000000E-01 G -1.085427E-01 2.888862E-14 0.0 0.0 0.0 0.0 3.200000E-01 G -9.513187E-02 2.283980E-14 0.0 0.0 0.0 0.0 3.400000E-01 G -6.533979E-02 1.181332E-14 0.0 0.0 0.0 0.0 3.600000E-01 G -1.727912E-02 1.609001E-15 0.0 0.0 0.0 0.0 3.800000E-01 G 4.430058E-02 1.077630E-12 0.0 0.0 0.0 0.0 4.000000E-01 G 2.376428E-02 -1.200563E-12 0.0 0.0 0.0 0.0 4.200000E-01 G -4.829058E-02 -1.290486E-13 0.0 0.0 0.0 0.0 4.400001E-01 G -2.046920E-01 -8.032071E-14 0.0 0.0 0.0 0.0 4.600001E-01 G -4.148960E-01 -1.521787E-14 0.0 0.0 0.0 0.0 4.800001E-01 G -6.623498E-01 2.849798E-14 0.0 0.0 0.0 0.0 5.000001E-01 G -8.917751E-01 7.988965E-14 0.0 0.0 0.0 0.0 5.200000E-01 G -1.044575E+00 1.147208E-13 0.0 0.0 0.0 0.0 5.400000E-01 G -1.094329E+00 1.235266E-13 0.0 0.0 0.0 0.0 5.600000E-01 G -1.039017E+00 1.274275E-13 0.0 0.0 0.0 0.0 5.800000E-01 G -8.959451E-01 8.759335E-14 0.0 0.0 0.0 0.0 6.000000E-01 G -6.873758E-01 1.745250E-14 0.0 0.0 0.0 0.0 6.199999E-01 G -4.365433E-01 -2.097257E-14 0.0 0.0 0.0 0.0 6.399999E-01 G -1.991415E-01 -6.147498E-14 0.0 0.0 0.0 0.0 6.599999E-01 G -4.357431E-02 -1.187991E-13 0.0 0.0 0.0 0.0 6.799999E-01 G 1.329738E-02 -1.348864E-13 0.0 0.0 0.0 0.0 6.999999E-01 G -1.529713E-02 -1.173460E-13 0.0 0.0 0.0 0.0 7.199998E-01 G -1.407587E-01 -8.720651E-14 0.0 0.0 0.0 0.0 7.399998E-01 G -3.599140E-01 -3.451045E-14 0.0 0.0 0.0 0.0 7.599998E-01 G -6.137878E-01 1.275072E-14 0.0 0.0 0.0 0.0 7.799998E-01 G -8.380220E-01 5.848335E-14 0.0 0.0 0.0 0.0 7.999998E-01 G -1.002741E+00 1.190558E-13 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 13 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.237933E-01 -1.756579E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -1.113268E-01 -1.679232E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -8.638323E-02 -1.408971E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -4.795023E-02 -8.084430E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -5.178940E-03 -5.303015E-04 0.0 0.0 0.0 0.0 9.999999E-02 G 4.211361E-02 7.194262E-03 0.0 0.0 0.0 0.0 1.200000E-01 G 8.627026E-02 1.349478E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 1.115118E-01 1.719277E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 1.102817E-01 1.766360E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 8.918646E-02 1.472755E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 5.661008E-02 8.944025E-03 0.0 0.0 0.0 0.0 2.200000E-01 G 1.306175E-02 1.511429E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -3.899157E-02 -6.224465E-03 0.0 0.0 0.0 0.0 2.600000E-01 G -8.425346E-02 -1.282643E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -1.071443E-01 -1.692403E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -1.082833E-01 -1.776134E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -9.492256E-02 -1.526721E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -6.523303E-02 -9.843878E-03 0.0 0.0 0.0 0.0 3.600000E-01 G -1.725734E-02 -2.489902E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 4.392191E-02 9.520222E-03 0.0 0.0 0.0 0.0 4.000000E-01 G 2.296061E-02 4.726507E-03 0.0 0.0 0.0 0.0 4.200000E-01 G -4.937012E-02 -1.841250E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -2.054420E-01 -2.663831E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -4.150992E-01 -6.178701E-02 0.0 0.0 0.0 0.0 4.800001E-01 G -6.620246E-01 -1.012571E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -8.910643E-01 -1.359746E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -1.043572E+00 -1.597157E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -1.093137E+00 -1.691233E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -1.037891E+00 -1.611511E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -8.951988E-01 -1.370759E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -6.871352E-01 -1.028975E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -4.367505E-01 -6.439175E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -1.997652E-01 -2.808063E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -4.459813E-02 -2.231114E-03 0.0 0.0 0.0 0.0 6.799999E-01 G 1.206854E-02 8.295247E-03 0.0 0.0 0.0 0.0 6.999999E-01 G -1.640109E-02 2.716396E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -1.415123E-01 -1.877814E-02 0.0 0.0 0.0 0.0 7.399998E-01 G -3.602576E-01 -5.268280E-02 0.0 0.0 0.0 0.0 7.599998E-01 G -6.136897E-01 -9.131303E-02 0.0 0.0 0.0 0.0 7.799998E-01 G -8.374245E-01 -1.274808E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -1.001703E+00 -1.552600E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 21 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.477356E-01 1.772534E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -1.350963E-01 1.725773E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -1.071586E-01 1.478170E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -6.002694E-02 8.545420E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -5.756794E-03 4.718296E-04 0.0 0.0 0.0 0.0 9.999999E-02 G 5.291033E-02 -7.624533E-03 0.0 0.0 0.0 0.0 1.200000E-01 G 1.057982E-01 -1.400431E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 1.362442E-01 -1.778360E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 1.361104E-01 -1.844217E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 1.109962E-01 -1.548744E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 6.962090E-02 -9.310609E-03 0.0 0.0 0.0 0.0 2.200000E-01 G 1.490774E-02 -1.429944E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -4.809060E-02 6.498874E-03 0.0 0.0 0.0 0.0 2.600000E-01 G -1.025854E-01 1.321812E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -1.317395E-01 1.760529E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -1.345299E-01 1.865741E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -1.172900E-01 1.595861E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -7.924006E-02 1.011666E-02 0.0 0.0 0.0 0.0 3.600000E-01 G -2.073115E-02 2.531190E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 5.976448E-02 -1.050402E-02 0.0 0.0 0.0 0.0 4.000000E-01 G 3.686199E-02 -7.307916E-03 0.0 0.0 0.0 0.0 4.200000E-01 G -4.134053E-02 -1.784908E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -2.337094E-01 2.413802E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -4.958609E-01 6.129985E-02 0.0 0.0 0.0 0.0 4.800001E-01 G -8.002291E-01 1.023694E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -1.078857E+00 1.381343E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -1.265842E+00 1.628515E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -1.329905E+00 1.729590E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -1.263492E+00 1.648187E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -1.085047E+00 1.394900E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -8.263684E-01 1.035426E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -5.205198E-01 6.365287E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -2.316694E-01 2.627176E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -3.809187E-02 -9.488731E-04 0.0 0.0 0.0 0.0 6.799999E-01 G 3.509406E-02 -1.244033E-02 0.0 0.0 0.0 0.0 6.999999E-01 G -2.297738E-03 -6.294358E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -1.598870E-01 1.661282E-02 0.0 0.0 0.0 0.0 7.399998E-01 G -4.272994E-01 5.160346E-02 0.0 0.0 0.0 0.0 7.599998E-01 G -7.360014E-01 9.142213E-02 0.0 0.0 0.0 0.0 7.799998E-01 G -1.013031E+00 1.293964E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -1.218720E+00 1.587049E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 22 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.477749E-01 -4.259249E-14 0.0 0.0 0.0 0.0 2.000000E-02 G -1.352029E-01 4.987542E-14 0.0 0.0 0.0 0.0 4.000000E-02 G -1.073136E-01 7.747490E-15 0.0 0.0 0.0 0.0 6.000000E-02 G -6.012856E-02 4.631093E-15 0.0 0.0 0.0 0.0 8.000000E-02 G -5.745894E-03 -5.311615E-16 0.0 0.0 0.0 0.0 9.999999E-02 G 5.300477E-02 -4.116968E-15 0.0 0.0 0.0 0.0 1.200000E-01 G 1.059164E-01 -6.081900E-15 0.0 0.0 0.0 0.0 1.400000E-01 G 1.363829E-01 -7.235705E-15 0.0 0.0 0.0 0.0 1.600000E-01 G 1.362870E-01 -8.340132E-15 0.0 0.0 0.0 0.0 1.800000E-01 G 1.111656E-01 -8.236548E-15 0.0 0.0 0.0 0.0 2.000000E-01 G 6.970486E-02 -4.304766E-15 0.0 0.0 0.0 0.0 2.200000E-01 G 1.489325E-02 7.366598E-16 0.0 0.0 0.0 0.0 2.400000E-01 G -4.815273E-02 2.887744E-15 0.0 0.0 0.0 0.0 2.600000E-01 G -1.026791E-01 4.750418E-15 0.0 0.0 0.0 0.0 2.800000E-01 G -1.318961E-01 8.079899E-15 0.0 0.0 0.0 0.0 3.000000E-01 G -1.347300E-01 9.427463E-15 0.0 0.0 0.0 0.0 3.200000E-01 G -1.174462E-01 7.455251E-15 0.0 0.0 0.0 0.0 3.400000E-01 G -7.930674E-02 3.858233E-15 0.0 0.0 0.0 0.0 3.600000E-01 G -2.074246E-02 5.265589E-16 0.0 0.0 0.0 0.0 3.800000E-01 G 6.000220E-02 3.509206E-13 0.0 0.0 0.0 0.0 4.000000E-01 G 3.745103E-02 -3.909690E-13 0.0 0.0 0.0 0.0 4.200000E-01 G -4.052431E-02 -4.202856E-14 0.0 0.0 0.0 0.0 4.400001E-01 G -2.331460E-01 -2.612971E-14 0.0 0.0 0.0 0.0 4.600001E-01 G -4.957398E-01 -4.886444E-15 0.0 0.0 0.0 0.0 4.800001E-01 G -8.004775E-01 9.392930E-15 0.0 0.0 0.0 0.0 5.000001E-01 G -1.079356E+00 2.616312E-14 0.0 0.0 0.0 0.0 5.200000E-01 G -1.266563E+00 3.753663E-14 0.0 0.0 0.0 0.0 5.400000E-01 G -1.330778E+00 4.041672E-14 0.0 0.0 0.0 0.0 5.600000E-01 G -1.264323E+00 4.167157E-14 0.0 0.0 0.0 0.0 5.800000E-01 G -1.085597E+00 2.867901E-14 0.0 0.0 0.0 0.0 6.000000E-01 G -8.265235E-01 5.800463E-15 0.0 0.0 0.0 0.0 6.199999E-01 G -5.203557E-01 -6.762163E-15 0.0 0.0 0.0 0.0 6.399999E-01 G -2.312453E-01 -1.999385E-14 0.0 0.0 0.0 0.0 6.599999E-01 G -3.736070E-02 -3.868622E-14 0.0 0.0 0.0 0.0 6.799999E-01 G 3.602582E-02 -4.393581E-14 0.0 0.0 0.0 0.0 6.999999E-01 G -1.485185E-03 -3.821927E-14 0.0 0.0 0.0 0.0 7.199998E-01 G -1.593775E-01 -2.838405E-14 0.0 0.0 0.0 0.0 7.399998E-01 G -4.270515E-01 -1.118056E-14 0.0 0.0 0.0 0.0 7.599998E-01 G -7.360396E-01 4.248533E-15 0.0 0.0 0.0 0.0 7.799998E-01 G -1.013468E+00 1.918243E-14 0.0 0.0 0.0 0.0 7.999998E-01 G -1.219498E+00 3.894516E-14 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 23 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.477356E-01 -1.772534E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -1.350963E-01 -1.725773E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -1.071586E-01 -1.478170E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -6.002694E-02 -8.545420E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -5.756794E-03 -4.718296E-04 0.0 0.0 0.0 0.0 9.999999E-02 G 5.291033E-02 7.624533E-03 0.0 0.0 0.0 0.0 1.200000E-01 G 1.057982E-01 1.400431E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 1.362442E-01 1.778360E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 1.361104E-01 1.844217E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 1.109962E-01 1.548744E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 6.962090E-02 9.310609E-03 0.0 0.0 0.0 0.0 2.200000E-01 G 1.490774E-02 1.429944E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -4.809060E-02 -6.498874E-03 0.0 0.0 0.0 0.0 2.600000E-01 G -1.025854E-01 -1.321812E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -1.317395E-01 -1.760529E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -1.345299E-01 -1.865741E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -1.172900E-01 -1.595861E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -7.924006E-02 -1.011666E-02 0.0 0.0 0.0 0.0 3.600000E-01 G -2.073115E-02 -2.531190E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 5.976448E-02 1.050402E-02 0.0 0.0 0.0 0.0 4.000000E-01 G 3.686199E-02 7.307916E-03 0.0 0.0 0.0 0.0 4.200000E-01 G -4.134053E-02 1.784908E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -2.337094E-01 -2.413802E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -4.958609E-01 -6.129985E-02 0.0 0.0 0.0 0.0 4.800001E-01 G -8.002291E-01 -1.023694E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -1.078857E+00 -1.381343E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -1.265842E+00 -1.628515E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -1.329905E+00 -1.729590E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -1.263492E+00 -1.648187E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -1.085047E+00 -1.394900E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -8.263684E-01 -1.035426E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -5.205198E-01 -6.365287E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -2.316694E-01 -2.627176E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -3.809187E-02 9.488731E-04 0.0 0.0 0.0 0.0 6.799999E-01 G 3.509406E-02 1.244033E-02 0.0 0.0 0.0 0.0 6.999999E-01 G -2.297738E-03 6.294358E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -1.598870E-01 -1.661282E-02 0.0 0.0 0.0 0.0 7.399998E-01 G -4.272994E-01 -5.160346E-02 0.0 0.0 0.0 0.0 7.599998E-01 G -7.360014E-01 -9.142213E-02 0.0 0.0 0.0 0.0 7.799998E-01 G -1.013031E+00 -1.293964E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -1.218720E+00 -1.587049E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 31 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.716337E-01 1.779227E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -1.589202E-01 1.748394E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -1.280980E-01 1.513290E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -7.224899E-02 8.785705E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -6.269299E-03 4.331676E-04 0.0 0.0 0.0 0.0 9.999999E-02 G 6.385115E-02 -7.850283E-03 0.0 0.0 0.0 0.0 1.200000E-01 G 1.253539E-01 -1.424664E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 1.609718E-01 -1.805826E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 1.620717E-01 -1.882836E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 1.329997E-01 -1.587540E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 8.267704E-02 -9.489391E-03 0.0 0.0 0.0 0.0 2.200000E-01 G 1.664969E-02 -1.373967E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -5.724084E-02 6.635814E-03 0.0 0.0 0.0 0.0 2.600000E-01 G -1.208733E-01 1.339316E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -1.564009E-01 1.793431E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -1.610032E-01 1.911473E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -1.397903E-01 1.630425E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -9.318225E-02 1.023239E-02 0.0 0.0 0.0 0.0 3.600000E-01 G -2.416860E-02 2.544072E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 7.540994E-02 -1.092880E-02 0.0 0.0 0.0 0.0 4.000000E-01 G 5.114086E-02 -8.576256E-03 0.0 0.0 0.0 0.0 4.200000E-01 G -3.252499E-02 -3.613343E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -2.614698E-01 2.288397E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -5.768059E-01 6.110552E-02 0.0 0.0 0.0 0.0 4.800001E-01 G -9.386930E-01 1.029327E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -1.266781E+00 1.391634E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -1.488467E+00 1.643764E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -1.567257E+00 1.748493E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -1.489700E+00 1.666333E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -1.275288E+00 1.406845E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -9.655202E-01 1.038303E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -6.040537E-01 6.326596E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -2.635910E-01 2.543118E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -3.129115E-02 -2.481070E-03 0.0 0.0 0.0 0.0 6.799999E-01 G 5.904322E-02 -1.453489E-02 0.0 0.0 0.0 0.0 6.999999E-01 G 1.239728E-02 -8.066815E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -1.783390E-01 1.561873E-02 0.0 0.0 0.0 0.0 7.399998E-01 G -4.942116E-01 5.107743E-02 0.0 0.0 0.0 0.0 7.599998E-01 G -8.580038E-01 9.141712E-02 0.0 0.0 0.0 0.0 7.799998E-01 G -1.188937E+00 1.303436E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -1.436420E+00 1.604309E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 32 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.716518E-01 2.739462E-14 0.0 0.0 0.0 0.0 2.000000E-02 G -1.589781E-01 -3.198065E-14 0.0 0.0 0.0 0.0 4.000000E-02 G -1.281866E-01 -4.936209E-15 0.0 0.0 0.0 0.0 6.000000E-02 G -7.230903E-02 -2.952544E-15 0.0 0.0 0.0 0.0 8.000000E-02 G -6.260313E-03 3.417929E-16 0.0 0.0 0.0 0.0 9.999999E-02 G 6.390741E-02 2.624021E-15 0.0 0.0 0.0 0.0 1.200000E-01 G 1.254164E-01 3.870877E-15 0.0 0.0 0.0 0.0 1.400000E-01 G 1.610434E-01 4.602974E-15 0.0 0.0 0.0 0.0 1.600000E-01 G 1.621700E-01 5.308913E-15 0.0 0.0 0.0 0.0 1.800000E-01 G 1.330972E-01 5.248948E-15 0.0 0.0 0.0 0.0 2.000000E-01 G 8.272278E-02 2.740836E-15 0.0 0.0 0.0 0.0 2.200000E-01 G 1.663692E-02 -4.770123E-16 0.0 0.0 0.0 0.0 2.400000E-01 G -5.727564E-02 -1.838535E-15 0.0 0.0 0.0 0.0 2.600000E-01 G -1.209196E-01 -3.016995E-15 0.0 0.0 0.0 0.0 2.800000E-01 G -1.564853E-01 -5.143926E-15 0.0 0.0 0.0 0.0 3.000000E-01 G -1.611184E-01 -6.007422E-15 0.0 0.0 0.0 0.0 3.200000E-01 G -1.398779E-01 -4.746694E-15 0.0 0.0 0.0 0.0 3.400000E-01 G -9.321337E-02 -2.451492E-15 0.0 0.0 0.0 0.0 3.600000E-01 G -2.417258E-02 -3.322197E-16 0.0 0.0 0.0 0.0 3.800000E-01 G 7.552312E-02 -2.253498E-13 0.0 0.0 0.0 0.0 4.000000E-01 G 5.146459E-02 2.510254E-13 0.0 0.0 0.0 0.0 4.200000E-01 G -3.206210E-02 2.697506E-14 0.0 0.0 0.0 0.0 4.400001E-01 G -2.611523E-01 1.683568E-14 0.0 0.0 0.0 0.0 4.600001E-01 G -5.767529E-01 3.297865E-15 0.0 0.0 0.0 0.0 4.800001E-01 G -9.388347E-01 -5.773531E-15 0.0 0.0 0.0 0.0 5.000001E-01 G -1.267046E+00 -1.645542E-14 0.0 0.0 0.0 0.0 5.200000E-01 G -1.488858E+00 -2.368759E-14 0.0 0.0 0.0 0.0 5.400000E-01 G -1.567739E+00 -2.551457E-14 0.0 0.0 0.0 0.0 5.600000E-01 G -1.490161E+00 -2.635105E-14 0.0 0.0 0.0 0.0 5.800000E-01 G -1.275593E+00 -1.805473E-14 0.0 0.0 0.0 0.0 6.000000E-01 G -9.655967E-01 -3.455591E-15 0.0 0.0 0.0 0.0 6.199999E-01 G -6.039563E-01 4.499383E-15 0.0 0.0 0.0 0.0 6.399999E-01 G -2.633722E-01 1.289508E-14 0.0 0.0 0.0 0.0 6.599999E-01 G -3.089836E-02 2.483860E-14 0.0 0.0 0.0 0.0 6.799999E-01 G 5.957304E-02 2.818544E-14 0.0 0.0 0.0 0.0 6.999999E-01 G 1.284857E-02 2.452584E-14 0.0 0.0 0.0 0.0 7.199998E-01 G -1.780801E-01 1.825864E-14 0.0 0.0 0.0 0.0 7.399998E-01 G -4.940767E-01 7.310148E-15 0.0 0.0 0.0 0.0 7.599998E-01 G -8.580070E-01 -2.502547E-15 0.0 0.0 0.0 0.0 7.799998E-01 G -1.189179E+00 -1.199751E-14 0.0 0.0 0.0 0.0 7.999998E-01 G -1.436858E+00 -2.460445E-14 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 33 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.716337E-01 -1.779227E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -1.589202E-01 -1.748394E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -1.280980E-01 -1.513290E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -7.224899E-02 -8.785705E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -6.269299E-03 -4.331676E-04 0.0 0.0 0.0 0.0 9.999999E-02 G 6.385115E-02 7.850283E-03 0.0 0.0 0.0 0.0 1.200000E-01 G 1.253539E-01 1.424664E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 1.609718E-01 1.805826E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 1.620717E-01 1.882836E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 1.329997E-01 1.587540E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 8.267704E-02 9.489391E-03 0.0 0.0 0.0 0.0 2.200000E-01 G 1.664969E-02 1.373967E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -5.724084E-02 -6.635814E-03 0.0 0.0 0.0 0.0 2.600000E-01 G -1.208733E-01 -1.339316E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -1.564009E-01 -1.793431E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -1.610032E-01 -1.911473E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -1.397903E-01 -1.630425E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -9.318225E-02 -1.023239E-02 0.0 0.0 0.0 0.0 3.600000E-01 G -2.416860E-02 -2.544072E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 7.540994E-02 1.092880E-02 0.0 0.0 0.0 0.0 4.000000E-01 G 5.114086E-02 8.576256E-03 0.0 0.0 0.0 0.0 4.200000E-01 G -3.252499E-02 3.613343E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -2.614698E-01 -2.288397E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -5.768059E-01 -6.110552E-02 0.0 0.0 0.0 0.0 4.800001E-01 G -9.386930E-01 -1.029327E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -1.266781E+00 -1.391634E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -1.488467E+00 -1.643764E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -1.567257E+00 -1.748493E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -1.489700E+00 -1.666333E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -1.275288E+00 -1.406845E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -9.655202E-01 -1.038303E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -6.040537E-01 -6.326596E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -2.635910E-01 -2.543118E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -3.129115E-02 2.481070E-03 0.0 0.0 0.0 0.0 6.799999E-01 G 5.904322E-02 1.453489E-02 0.0 0.0 0.0 0.0 6.999999E-01 G 1.239728E-02 8.066815E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -1.783390E-01 -1.561873E-02 0.0 0.0 0.0 0.0 7.399998E-01 G -4.942116E-01 -5.107743E-02 0.0 0.0 0.0 0.0 7.599998E-01 G -8.580038E-01 -9.141712E-02 0.0 0.0 0.0 0.0 7.799998E-01 G -1.188937E+00 -1.303436E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -1.436420E+00 -1.604309E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 41 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.954422E-01 1.780857E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -1.825437E-01 1.755037E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -1.487699E-01 1.524107E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -8.430611E-02 8.861772E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -6.786382E-03 4.184372E-04 0.0 0.0 0.0 0.0 9.999999E-02 G 7.464130E-02 -7.922236E-03 0.0 0.0 0.0 0.0 1.200000E-01 G 1.446799E-01 -1.431614E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 1.854197E-01 -1.813487E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 1.877147E-01 -1.894458E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 1.547148E-01 -1.599568E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 9.557650E-02 -9.542124E-03 0.0 0.0 0.0 0.0 2.200000E-01 G 1.839340E-02 -1.352133E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -6.628016E-02 6.677263E-03 0.0 0.0 0.0 0.0 2.600000E-01 G -1.389619E-01 1.343963E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -1.807654E-01 1.803035E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -1.871356E-01 1.925642E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -1.620132E-01 1.640915E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -1.069730E-01 1.026082E-02 0.0 0.0 0.0 0.0 3.600000E-01 G -2.757334E-02 2.545432E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 9.053128E-02 -1.103695E-02 0.0 0.0 0.0 0.0 4.000000E-01 G 6.433301E-02 -8.953019E-03 0.0 0.0 0.0 0.0 4.200000E-01 G -2.513706E-02 -4.172781E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -2.902248E-01 2.250220E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -6.580434E-01 6.106228E-02 0.0 0.0 0.0 0.0 4.800001E-01 G -1.076729E+00 1.031061E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -1.453735E+00 1.394592E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -1.709742E+00 1.648249E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -1.803016E+00 1.754142E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -1.714400E+00 1.671775E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -1.464532E+00 1.410426E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -1.104342E+00 1.039068E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -6.878518E-01 6.314293E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -2.963656E-01 2.519632E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -2.588316E-02 -2.926911E-03 0.0 0.0 0.0 0.0 6.799999E-01 G 8.137053E-02 -1.517730E-02 0.0 0.0 0.0 0.0 6.999999E-01 G 2.562467E-02 -8.599741E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -1.978382E-01 1.534600E-02 0.0 0.0 0.0 0.0 7.399998E-01 G -5.615879E-01 5.092253E-02 0.0 0.0 0.0 0.0 7.599998E-01 G -9.798407E-01 9.139580E-02 0.0 0.0 0.0 0.0 7.799998E-01 G -1.364051E+00 1.306277E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -1.652748E+00 1.609561E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 42 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.954451E-01 5.117084E-14 0.0 0.0 0.0 0.0 2.000000E-02 G -1.825542E-01 -5.978331E-14 0.0 0.0 0.0 0.0 4.000000E-02 G -1.487866E-01 -9.242727E-15 0.0 0.0 0.0 0.0 6.000000E-02 G -8.431764E-02 -5.527593E-15 0.0 0.0 0.0 0.0 8.000000E-02 G -6.784355E-03 6.384404E-16 0.0 0.0 0.0 0.0 9.999999E-02 G 7.465217E-02 4.912730E-15 0.0 0.0 0.0 0.0 1.200000E-01 G 1.446910E-01 7.249446E-15 0.0 0.0 0.0 0.0 1.400000E-01 G 1.854322E-01 8.621402E-15 0.0 0.0 0.0 0.0 1.600000E-01 G 1.877328E-01 9.942494E-15 0.0 0.0 0.0 0.0 1.800000E-01 G 1.547332E-01 9.828128E-15 0.0 0.0 0.0 0.0 2.000000E-01 G 9.558482E-02 5.132756E-15 0.0 0.0 0.0 0.0 2.200000E-01 G 1.839045E-02 -8.895125E-16 0.0 0.0 0.0 0.0 2.400000E-01 G -6.628661E-02 -3.442979E-15 0.0 0.0 0.0 0.0 2.600000E-01 G -1.389697E-01 -5.652906E-15 0.0 0.0 0.0 0.0 2.800000E-01 G -1.807806E-01 -9.633371E-15 0.0 0.0 0.0 0.0 3.000000E-01 G -1.871573E-01 -1.124757E-14 0.0 0.0 0.0 0.0 3.200000E-01 G -1.620294E-01 -8.889507E-15 0.0 0.0 0.0 0.0 3.400000E-01 G -1.069779E-01 -4.593217E-15 0.0 0.0 0.0 0.0 3.600000E-01 G -2.757377E-02 -6.235357E-16 0.0 0.0 0.0 0.0 3.800000E-01 G 9.054982E-02 -4.210989E-13 0.0 0.0 0.0 0.0 4.000000E-01 G 6.439216E-02 4.690989E-13 0.0 0.0 0.0 0.0 4.200000E-01 G -2.505053E-02 5.041493E-14 0.0 0.0 0.0 0.0 4.400001E-01 G -2.901657E-01 3.143622E-14 0.0 0.0 0.0 0.0 4.600001E-01 G -6.580355E-01 6.088648E-15 0.0 0.0 0.0 0.0 4.800001E-01 G -1.076755E+00 -1.090888E-14 0.0 0.0 0.0 0.0 5.000001E-01 G -1.453783E+00 -3.091569E-14 0.0 0.0 0.0 0.0 5.200000E-01 G -1.709813E+00 -4.446291E-14 0.0 0.0 0.0 0.0 5.400000E-01 G -1.803105E+00 -4.787696E-14 0.0 0.0 0.0 0.0 5.600000E-01 G -1.714485E+00 -4.943621E-14 0.0 0.0 0.0 0.0 5.800000E-01 G -1.464588E+00 -3.390991E-14 0.0 0.0 0.0 0.0 6.000000E-01 G -1.104355E+00 -6.583248E-15 0.0 0.0 0.0 0.0 6.199999E-01 G -6.878331E-01 8.332771E-15 0.0 0.0 0.0 0.0 6.399999E-01 G -2.963274E-01 2.407247E-14 0.0 0.0 0.0 0.0 6.599999E-01 G -2.581250E-02 4.641857E-14 0.0 0.0 0.0 0.0 6.799999E-01 G 8.146975E-02 5.268550E-14 0.0 0.0 0.0 0.0 6.999999E-01 G 2.570790E-02 4.583615E-14 0.0 0.0 0.0 0.0 7.199998E-01 G -1.977936E-01 3.410747E-14 0.0 0.0 0.0 0.0 7.399998E-01 G -5.615634E-01 1.359933E-14 0.0 0.0 0.0 0.0 7.599998E-01 G -9.798389E-01 -4.782545E-15 0.0 0.0 0.0 0.0 7.799998E-01 G -1.364096E+00 -2.256886E-14 0.0 0.0 0.0 0.0 7.999998E-01 G -1.652829E+00 -4.616713E-14 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 POINT-ID = 43 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G -1.954422E-01 -1.780857E-02 0.0 0.0 0.0 0.0 2.000000E-02 G -1.825437E-01 -1.755037E-02 0.0 0.0 0.0 0.0 4.000000E-02 G -1.487699E-01 -1.524107E-02 0.0 0.0 0.0 0.0 6.000000E-02 G -8.430611E-02 -8.861772E-03 0.0 0.0 0.0 0.0 8.000000E-02 G -6.786382E-03 -4.184372E-04 0.0 0.0 0.0 0.0 9.999999E-02 G 7.464130E-02 7.922236E-03 0.0 0.0 0.0 0.0 1.200000E-01 G 1.446799E-01 1.431614E-02 0.0 0.0 0.0 0.0 1.400000E-01 G 1.854197E-01 1.813487E-02 0.0 0.0 0.0 0.0 1.600000E-01 G 1.877147E-01 1.894458E-02 0.0 0.0 0.0 0.0 1.800000E-01 G 1.547148E-01 1.599568E-02 0.0 0.0 0.0 0.0 2.000000E-01 G 9.557650E-02 9.542124E-03 0.0 0.0 0.0 0.0 2.200000E-01 G 1.839340E-02 1.352133E-03 0.0 0.0 0.0 0.0 2.400000E-01 G -6.628016E-02 -6.677263E-03 0.0 0.0 0.0 0.0 2.600000E-01 G -1.389619E-01 -1.343963E-02 0.0 0.0 0.0 0.0 2.800000E-01 G -1.807654E-01 -1.803035E-02 0.0 0.0 0.0 0.0 3.000000E-01 G -1.871356E-01 -1.925642E-02 0.0 0.0 0.0 0.0 3.200000E-01 G -1.620132E-01 -1.640915E-02 0.0 0.0 0.0 0.0 3.400000E-01 G -1.069730E-01 -1.026082E-02 0.0 0.0 0.0 0.0 3.600000E-01 G -2.757334E-02 -2.545432E-03 0.0 0.0 0.0 0.0 3.800000E-01 G 9.053128E-02 1.103695E-02 0.0 0.0 0.0 0.0 4.000000E-01 G 6.433301E-02 8.953019E-03 0.0 0.0 0.0 0.0 4.200000E-01 G -2.513706E-02 4.172781E-03 0.0 0.0 0.0 0.0 4.400001E-01 G -2.902248E-01 -2.250220E-02 0.0 0.0 0.0 0.0 4.600001E-01 G -6.580434E-01 -6.106228E-02 0.0 0.0 0.0 0.0 4.800001E-01 G -1.076729E+00 -1.031061E-01 0.0 0.0 0.0 0.0 5.000001E-01 G -1.453735E+00 -1.394592E-01 0.0 0.0 0.0 0.0 5.200000E-01 G -1.709742E+00 -1.648249E-01 0.0 0.0 0.0 0.0 5.400000E-01 G -1.803016E+00 -1.754142E-01 0.0 0.0 0.0 0.0 5.600000E-01 G -1.714400E+00 -1.671775E-01 0.0 0.0 0.0 0.0 5.800000E-01 G -1.464532E+00 -1.410426E-01 0.0 0.0 0.0 0.0 6.000000E-01 G -1.104342E+00 -1.039068E-01 0.0 0.0 0.0 0.0 6.199999E-01 G -6.878518E-01 -6.314293E-02 0.0 0.0 0.0 0.0 6.399999E-01 G -2.963656E-01 -2.519632E-02 0.0 0.0 0.0 0.0 6.599999E-01 G -2.588316E-02 2.926911E-03 0.0 0.0 0.0 0.0 6.799999E-01 G 8.137053E-02 1.517730E-02 0.0 0.0 0.0 0.0 6.999999E-01 G 2.562467E-02 8.599741E-03 0.0 0.0 0.0 0.0 7.199998E-01 G -1.978382E-01 -1.534600E-02 0.0 0.0 0.0 0.0 7.399998E-01 G -5.615879E-01 -5.092253E-02 0.0 0.0 0.0 0.0 7.599998E-01 G -9.798407E-01 -9.139580E-02 0.0 0.0 0.0 0.0 7.799998E-01 G -1.364051E+00 -1.306277E-01 0.0 0.0 0.0 0.0 7.999998E-01 G -1.652748E+00 -1.609561E-01 0.0 0.0 0.0 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 1 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 2.719688E+01 0.0 2.000000E-02 2.066074E+01 0.0 4.000000E-02 1.267266E+01 0.0 6.000000E-02 7.220215E+00 0.0 8.000000E-02 6.773804E-01 0.0 9.999999E-02 -6.440332E+00 0.0 1.200000E-01 -1.247520E+01 0.0 1.400000E-01 -1.586719E+01 0.0 1.600000E-01 -1.612910E+01 0.0 1.800000E-01 -1.332832E+01 0.0 2.000000E-01 -8.144238E+00 0.0 2.200000E-01 -1.581592E+00 0.0 2.400000E-01 5.604492E+00 0.0 2.600000E-01 1.199180E+01 0.0 2.800000E-01 1.559590E+01 0.0 3.000000E-01 1.596621E+01 0.0 3.200000E-01 1.388262E+01 0.0 3.400000E-01 9.301172E+00 0.0 3.600000E-01 2.343164E+00 0.0 3.800000E-01 1.150166E+01 0.0 4.000000E-01 1.417096E+02 0.0 4.200000E-01 1.708049E+02 0.0 4.400001E-01 1.921207E+02 0.0 4.600001E-01 2.226352E+02 0.0 4.800001E-01 2.606766E+02 0.0 5.000001E-01 2.927016E+02 0.0 5.200000E-01 3.129094E+02 0.0 5.400000E-01 3.224813E+02 0.0 5.600000E-01 3.155250E+02 0.0 5.800000E-01 2.920312E+02 0.0 6.000000E-01 2.618906E+02 0.0 6.199999E-01 2.276813E+02 0.0 6.399999E-01 1.921699E+02 0.0 6.599999E-01 1.685974E+02 0.0 6.799999E-01 1.615692E+02 0.0 6.999999E-01 1.653038E+02 0.0 7.199998E-01 1.829660E+02 0.0 7.399998E-01 2.162110E+02 0.0 7.599998E-01 2.523469E+02 0.0 7.799998E-01 2.832469E+02 0.0 7.999998E-01 3.091969E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 2 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -2.719688E+01 0.0 2.000000E-02 -2.066074E+01 0.0 4.000000E-02 -1.267266E+01 0.0 6.000000E-02 -7.220215E+00 0.0 8.000000E-02 -6.773804E-01 0.0 9.999999E-02 6.440332E+00 0.0 1.200000E-01 1.247520E+01 0.0 1.400000E-01 1.586719E+01 0.0 1.600000E-01 1.612910E+01 0.0 1.800000E-01 1.332832E+01 0.0 2.000000E-01 8.144238E+00 0.0 2.200000E-01 1.581592E+00 0.0 2.400000E-01 -5.604492E+00 0.0 2.600000E-01 -1.199180E+01 0.0 2.800000E-01 -1.559590E+01 0.0 3.000000E-01 -1.596621E+01 0.0 3.200000E-01 -1.388262E+01 0.0 3.400000E-01 -9.301172E+00 0.0 3.600000E-01 -2.343164E+00 0.0 3.800000E-01 -1.150166E+01 0.0 4.000000E-01 -1.417096E+02 0.0 4.200000E-01 -1.708049E+02 0.0 4.400001E-01 -1.921207E+02 0.0 4.600001E-01 -2.226352E+02 0.0 4.800001E-01 -2.606766E+02 0.0 5.000001E-01 -2.927016E+02 0.0 5.200000E-01 -3.129094E+02 0.0 5.400000E-01 -3.224813E+02 0.0 5.600000E-01 -3.155250E+02 0.0 5.800000E-01 -2.920312E+02 0.0 6.000000E-01 -2.618906E+02 0.0 6.199999E-01 -2.276813E+02 0.0 6.399999E-01 -1.921699E+02 0.0 6.599999E-01 -1.685974E+02 0.0 6.799999E-01 -1.615692E+02 0.0 6.999999E-01 -1.653038E+02 0.0 7.199998E-01 -1.829660E+02 0.0 7.399998E-01 -2.162110E+02 0.0 7.599998E-01 -2.523469E+02 0.0 7.799998E-01 -2.832469E+02 0.0 7.999998E-01 -3.091969E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 11 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 6.446485E+00 0.0 2.000000E-02 1.475508E+01 0.0 4.000000E-02 2.026289E+01 0.0 6.000000E-02 1.274443E+01 0.0 8.000000E-02 -6.362183E-01 0.0 9.999999E-02 -1.171611E+01 0.0 1.200000E-01 -1.686211E+01 0.0 1.400000E-01 -2.035430E+01 0.0 1.600000E-01 -2.390508E+01 0.0 1.800000E-01 -2.193984E+01 0.0 2.000000E-01 -1.160742E+01 0.0 2.200000E-01 5.743653E-01 0.0 2.400000E-01 8.346973E+00 0.0 2.600000E-01 1.436660E+01 0.0 2.800000E-01 2.191641E+01 0.0 3.000000E-01 2.594766E+01 0.0 3.200000E-01 2.093086E+01 0.0 3.400000E-01 1.067578E+01 0.0 3.600000E-01 2.177197E+00 0.0 3.800000E-01 -3.786680E+01 0.0 4.000000E-01 -8.036690E+01 0.0 4.200000E-01 -1.079543E+02 0.0 4.400001E-01 -7.500000E+01 0.0 4.600001E-01 -2.031563E+01 0.0 4.800001E-01 3.252188E+01 0.0 5.000001E-01 7.107188E+01 0.0 5.200000E-01 1.002563E+02 0.0 5.400000E-01 1.191844E+02 0.0 5.600000E-01 1.125844E+02 0.0 5.800000E-01 7.463438E+01 0.0 6.000000E-01 2.406094E+01 0.0 6.199999E-01 -2.072344E+01 0.0 6.399999E-01 -6.236719E+01 0.0 6.599999E-01 -1.023826E+02 0.0 6.799999E-01 -1.228841E+02 0.0 6.999999E-01 -1.103953E+02 0.0 7.199998E-01 -7.536563E+01 0.0 7.399998E-01 -3.435469E+01 0.0 7.599998E-01 9.810938E+00 0.0 7.799998E-01 5.975625E+01 0.0 7.999998E-01 1.038375E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 12 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -6.446485E+00 0.0 2.000000E-02 -1.475508E+01 0.0 4.000000E-02 -2.026289E+01 0.0 6.000000E-02 -1.274443E+01 0.0 8.000000E-02 6.362183E-01 0.0 9.999999E-02 1.171611E+01 0.0 1.200000E-01 1.686211E+01 0.0 1.400000E-01 2.035430E+01 0.0 1.600000E-01 2.390508E+01 0.0 1.800000E-01 2.193984E+01 0.0 2.000000E-01 1.160742E+01 0.0 2.200000E-01 -5.743653E-01 0.0 2.400000E-01 -8.346973E+00 0.0 2.600000E-01 -1.436660E+01 0.0 2.800000E-01 -2.191641E+01 0.0 3.000000E-01 -2.594766E+01 0.0 3.200000E-01 -2.093086E+01 0.0 3.400000E-01 -1.067578E+01 0.0 3.600000E-01 -2.177197E+00 0.0 3.800000E-01 3.786680E+01 0.0 4.000000E-01 8.036690E+01 0.0 4.200000E-01 1.079543E+02 0.0 4.400001E-01 7.500000E+01 0.0 4.600001E-01 2.031563E+01 0.0 4.800001E-01 -3.252188E+01 0.0 5.000001E-01 -7.107188E+01 0.0 5.200000E-01 -1.002563E+02 0.0 5.400000E-01 -1.191844E+02 0.0 5.600000E-01 -1.125844E+02 0.0 5.800000E-01 -7.463438E+01 0.0 6.000000E-01 -2.406094E+01 0.0 6.199999E-01 2.072344E+01 0.0 6.399999E-01 6.236719E+01 0.0 6.599999E-01 1.023826E+02 0.0 6.799999E-01 1.228841E+02 0.0 6.999999E-01 1.103953E+02 0.0 7.199998E-01 7.536563E+01 0.0 7.399998E-01 3.435469E+01 0.0 7.599998E-01 -9.810938E+00 0.0 7.799998E-01 -5.975625E+01 0.0 7.999998E-01 -1.038375E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 21 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 3.928125E+00 0.0 2.000000E-02 1.066641E+01 0.0 4.000000E-02 1.549922E+01 0.0 6.000000E-02 1.016309E+01 0.0 8.000000E-02 -1.089990E+00 0.0 9.999999E-02 -9.443555E+00 0.0 1.200000E-01 -1.181250E+01 0.0 1.400000E-01 -1.387148E+01 0.0 1.600000E-01 -1.765781E+01 0.0 1.800000E-01 -1.694531E+01 0.0 2.000000E-01 -8.396484E+00 0.0 2.200000E-01 1.448584E+00 0.0 2.400000E-01 6.212988E+00 0.0 2.600000E-01 9.369141E+00 0.0 2.800000E-01 1.566328E+01 0.0 3.000000E-01 2.000859E+01 0.0 3.200000E-01 1.561875E+01 0.0 3.400000E-01 6.667383E+00 0.0 3.600000E-01 1.131152E+00 0.0 3.800000E-01 -2.377148E+01 0.0 4.000000E-01 -5.890401E+01 0.0 4.200000E-01 -8.162227E+01 0.0 4.400001E-01 -5.634141E+01 0.0 4.600001E-01 -1.211250E+01 0.0 4.800001E-01 2.483438E+01 0.0 5.000001E-01 4.997813E+01 0.0 5.200000E-01 7.203751E+01 0.0 5.400000E-01 8.729063E+01 0.0 5.600000E-01 8.315625E+01 0.0 5.800000E-01 5.492813E+01 0.0 6.000000E-01 1.551563E+01 0.0 6.199999E-01 -1.641094E+01 0.0 6.399999E-01 -4.241484E+01 0.0 6.599999E-01 -7.311710E+01 0.0 6.799999E-01 -9.317578E+01 0.0 6.999999E-01 -8.125529E+01 0.0 7.199998E-01 -5.094375E+01 0.0 7.399998E-01 -2.478750E+01 0.0 7.599998E-01 3.825000E+00 0.0 7.799998E-01 4.368750E+01 0.0 7.999998E-01 7.770938E+01 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 22 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -3.928125E+00 0.0 2.000000E-02 -1.066641E+01 0.0 4.000000E-02 -1.549922E+01 0.0 6.000000E-02 -1.016309E+01 0.0 8.000000E-02 1.089990E+00 0.0 9.999999E-02 9.443555E+00 0.0 1.200000E-01 1.181250E+01 0.0 1.400000E-01 1.387148E+01 0.0 1.600000E-01 1.765781E+01 0.0 1.800000E-01 1.694531E+01 0.0 2.000000E-01 8.396484E+00 0.0 2.200000E-01 -1.448584E+00 0.0 2.400000E-01 -6.212988E+00 0.0 2.600000E-01 -9.369141E+00 0.0 2.800000E-01 -1.566328E+01 0.0 3.000000E-01 -2.000859E+01 0.0 3.200000E-01 -1.561875E+01 0.0 3.400000E-01 -6.667383E+00 0.0 3.600000E-01 -1.131152E+00 0.0 3.800000E-01 2.377148E+01 0.0 4.000000E-01 5.890401E+01 0.0 4.200000E-01 8.162227E+01 0.0 4.400001E-01 5.634141E+01 0.0 4.600001E-01 1.211250E+01 0.0 4.800001E-01 -2.483438E+01 0.0 5.000001E-01 -4.997813E+01 0.0 5.200000E-01 -7.203751E+01 0.0 5.400000E-01 -8.729063E+01 0.0 5.600000E-01 -8.315625E+01 0.0 5.800000E-01 -5.492813E+01 0.0 6.000000E-01 -1.551563E+01 0.0 6.199999E-01 1.641094E+01 0.0 6.399999E-01 4.241484E+01 0.0 6.599999E-01 7.311710E+01 0.0 6.799999E-01 9.317578E+01 0.0 6.999999E-01 8.125529E+01 0.0 7.199998E-01 5.094375E+01 0.0 7.399998E-01 2.478750E+01 0.0 7.599998E-01 -3.825000E+00 0.0 7.799998E-01 -4.368750E+01 0.0 7.999998E-01 -7.770938E+01 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 31 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 1.815234E+00 0.0 2.000000E-02 5.789062E+00 0.0 4.000000E-02 8.860547E+00 0.0 6.000000E-02 6.004688E+00 0.0 8.000000E-02 -8.986084E-01 0.0 9.999999E-02 -5.626758E+00 0.0 1.200000E-01 -6.251954E+00 0.0 1.400000E-01 -7.154297E+00 0.0 1.600000E-01 -9.821485E+00 0.0 1.800000E-01 -9.758204E+00 0.0 2.000000E-01 -4.574414E+00 0.0 2.200000E-01 1.276758E+00 0.0 2.400000E-01 3.479883E+00 0.0 2.600000E-01 4.627735E+00 0.0 2.800000E-01 8.438672E+00 0.0 3.000000E-01 1.151484E+01 0.0 3.200000E-01 8.769141E+00 0.0 3.400000E-01 3.111914E+00 0.0 3.600000E-01 3.972656E-01 0.0 3.800000E-01 -1.131797E+01 0.0 4.000000E-01 -3.237246E+01 0.0 4.200000E-01 -4.628877E+01 0.0 4.400001E-01 -3.175313E+01 0.0 4.600001E-01 -5.306250E+00 0.0 4.800001E-01 1.416563E+01 0.0 5.000001E-01 2.650313E+01 0.0 5.200000E-01 3.912188E+01 0.0 5.400000E-01 4.817813E+01 0.0 5.600000E-01 4.609688E+01 0.0 5.800000E-01 3.045938E+01 0.0 6.000000E-01 7.659375E+00 0.0 6.199999E-01 -9.740625E+00 0.0 6.399999E-01 -2.187656E+01 0.0 6.599999E-01 -3.927891E+01 0.0 6.799999E-01 -5.298164E+01 0.0 6.999999E-01 -4.512949E+01 0.0 7.199998E-01 -2.589258E+01 0.0 7.399998E-01 -1.349063E+01 0.0 7.599998E-01 3.187500E-01 0.0 7.799998E-01 2.421563E+01 0.0 7.999998E-01 4.374375E+01 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 32 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -1.815234E+00 0.0 2.000000E-02 -5.789062E+00 0.0 4.000000E-02 -8.860547E+00 0.0 6.000000E-02 -6.004688E+00 0.0 8.000000E-02 8.986084E-01 0.0 9.999999E-02 5.626758E+00 0.0 1.200000E-01 6.251954E+00 0.0 1.400000E-01 7.154297E+00 0.0 1.600000E-01 9.821485E+00 0.0 1.800000E-01 9.758204E+00 0.0 2.000000E-01 4.574414E+00 0.0 2.200000E-01 -1.276758E+00 0.0 2.400000E-01 -3.479883E+00 0.0 2.600000E-01 -4.627735E+00 0.0 2.800000E-01 -8.438672E+00 0.0 3.000000E-01 -1.151484E+01 0.0 3.200000E-01 -8.769141E+00 0.0 3.400000E-01 -3.111914E+00 0.0 3.600000E-01 -3.972656E-01 0.0 3.800000E-01 1.131797E+01 0.0 4.000000E-01 3.237246E+01 0.0 4.200000E-01 4.628877E+01 0.0 4.400001E-01 3.175313E+01 0.0 4.600001E-01 5.306250E+00 0.0 4.800001E-01 -1.416563E+01 0.0 5.000001E-01 -2.650313E+01 0.0 5.200000E-01 -3.912188E+01 0.0 5.400000E-01 -4.817813E+01 0.0 5.600000E-01 -4.609688E+01 0.0 5.800000E-01 -3.045938E+01 0.0 6.000000E-01 -7.659375E+00 0.0 6.199999E-01 9.740625E+00 0.0 6.399999E-01 2.187656E+01 0.0 6.599999E-01 3.927891E+01 0.0 6.799999E-01 5.298164E+01 0.0 6.999999E-01 4.512949E+01 0.0 7.199998E-01 2.589258E+01 0.0 7.399998E-01 1.349063E+01 0.0 7.599998E-01 -3.187500E-01 0.0 7.799998E-01 -2.421563E+01 0.0 7.999998E-01 -4.374375E+01 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 41 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 2.894531E-01 0.0 2.000000E-02 1.048828E+00 0.0 4.000000E-02 1.664063E+00 0.0 6.000000E-02 1.152539E+00 0.0 8.000000E-02 -2.027344E-01 0.0 9.999999E-02 -1.086328E+00 0.0 1.200000E-01 -1.113281E+00 0.0 1.400000E-01 -1.246875E+00 0.0 1.600000E-01 -1.812891E+00 0.0 1.800000E-01 -1.843359E+00 0.0 2.000000E-01 -8.314453E-01 0.0 2.200000E-01 2.950195E-01 0.0 2.400000E-01 6.445312E-01 0.0 2.600000E-01 7.792969E-01 0.0 2.800000E-01 1.522266E+00 0.0 3.000000E-01 2.173828E+00 0.0 3.200000E-01 1.628906E+00 0.0 3.400000E-01 4.968750E-01 0.0 3.600000E-01 4.306641E-02 0.0 3.800000E-01 -1.853320E+00 0.0 4.000000E-01 -5.915039E+00 0.0 4.200000E-01 -8.652246E+00 0.0 4.400001E-01 -5.910938E+00 0.0 4.600001E-01 -8.015625E-01 0.0 4.800001E-01 2.662500E+00 0.0 5.000001E-01 4.715625E+00 0.0 5.200000E-01 7.087500E+00 0.0 5.400000E-01 8.831250E+00 0.0 5.600000E-01 8.493751E+00 0.0 5.800000E-01 5.606250E+00 0.0 6.000000E-01 1.303125E+00 0.0 6.199999E-01 -1.875000E+00 0.0 6.399999E-01 -3.820313E+00 0.0 6.599999E-01 -7.065821E+00 0.0 6.799999E-01 -9.921680E+00 0.0 6.999999E-01 -8.323536E+00 0.0 7.199998E-01 -4.462500E+00 0.0 7.399998E-01 -2.451563E+00 0.0 7.599998E-01 -1.781250E-01 0.0 7.799998E-01 4.453125E+00 0.0 7.999998E-01 8.137501E+00 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 42 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -2.894531E-01 0.0 2.000000E-02 -1.048828E+00 0.0 4.000000E-02 -1.664063E+00 0.0 6.000000E-02 -1.152539E+00 0.0 8.000000E-02 2.027344E-01 0.0 9.999999E-02 1.086328E+00 0.0 1.200000E-01 1.113281E+00 0.0 1.400000E-01 1.246875E+00 0.0 1.600000E-01 1.812891E+00 0.0 1.800000E-01 1.843359E+00 0.0 2.000000E-01 8.314453E-01 0.0 2.200000E-01 -2.950195E-01 0.0 2.400000E-01 -6.445312E-01 0.0 2.600000E-01 -7.792969E-01 0.0 2.800000E-01 -1.522266E+00 0.0 3.000000E-01 -2.173828E+00 0.0 3.200000E-01 -1.628906E+00 0.0 3.400000E-01 -4.968750E-01 0.0 3.600000E-01 -4.306641E-02 0.0 3.800000E-01 1.853320E+00 0.0 4.000000E-01 5.915039E+00 0.0 4.200000E-01 8.652246E+00 0.0 4.400001E-01 5.910938E+00 0.0 4.600001E-01 8.015625E-01 0.0 4.800001E-01 -2.662500E+00 0.0 5.000001E-01 -4.715625E+00 0.0 5.200000E-01 -7.087500E+00 0.0 5.400000E-01 -8.831250E+00 0.0 5.600000E-01 -8.493751E+00 0.0 5.800000E-01 -5.606250E+00 0.0 6.000000E-01 -1.303125E+00 0.0 6.199999E-01 1.875000E+00 0.0 6.399999E-01 3.820313E+00 0.0 6.599999E-01 7.065821E+00 0.0 6.799999E-01 9.921680E+00 0.0 6.999999E-01 8.323536E+00 0.0 7.199998E-01 4.462500E+00 0.0 7.399998E-01 2.451563E+00 0.0 7.599998E-01 1.781250E-01 0.0 7.799998E-01 -4.453125E+00 0.0 7.999998E-01 -8.137501E+00 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 111 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 2.267578E+01 0.0 2.000000E-02 5.761729E+01 0.0 4.000000E-02 8.232275E+01 0.0 6.000000E-02 5.333474E+01 0.0 8.000000E-02 -4.747902E+00 0.0 9.999999E-02 -4.943464E+01 0.0 1.200000E-01 -6.458914E+01 0.0 1.400000E-01 -7.649715E+01 0.0 1.600000E-01 -9.492569E+01 0.0 1.800000E-01 -8.980664E+01 0.0 2.000000E-01 -4.537529E+01 0.0 2.200000E-01 5.999552E+00 0.0 2.400000E-01 3.327517E+01 0.0 2.600000E-01 5.253201E+01 0.0 2.800000E-01 8.506890E+01 0.0 3.000000E-01 1.060280E+02 0.0 3.200000E-01 8.369604E+01 0.0 3.400000E-01 3.793206E+01 0.0 3.600000E-01 6.863050E+00 0.0 3.800000E-01 -1.362174E+02 0.0 4.000000E-01 -3.163435E+02 0.0 4.200000E-01 -4.348787E+02 0.0 4.400001E-01 -3.012384E+02 0.0 4.600001E-01 -7.051231E+01 0.0 4.800001E-01 1.324852E+02 0.0 5.000001E-01 2.729906E+02 0.0 5.200000E-01 3.900867E+02 0.0 5.400000E-01 4.706075E+02 0.0 5.600000E-01 4.471477E+02 0.0 5.800000E-01 2.950746E+02 0.0 6.000000E-01 8.736270E+01 0.0 6.199999E-01 -8.589111E+01 0.0 6.399999E-01 -2.345943E+02 0.0 6.599999E-01 -3.972914E+02 0.0 6.799999E-01 -4.961568E+02 0.0 6.999999E-01 -4.373898E+02 0.0 7.199998E-01 -2.820796E+02 0.0 7.399998E-01 -1.338545E+02 0.0 7.599998E-01 2.636133E+01 0.0 7.799998E-01 2.352914E+02 0.0 7.999998E-01 4.161469E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 112 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 6.458855E-10 0.0 2.000000E-02 -7.552434E-10 0.0 4.000000E-02 -1.169786E-10 0.0 6.000000E-02 -6.995764E-11 0.0 8.000000E-02 8.054632E-12 0.0 9.999999E-02 6.217693E-11 0.0 1.200000E-01 9.178192E-11 0.0 1.400000E-01 1.092217E-10 0.0 1.600000E-01 1.258363E-10 0.0 1.800000E-01 1.243227E-10 0.0 2.000000E-01 6.496503E-11 0.0 2.200000E-01 -1.120314E-11 0.0 2.400000E-01 -4.358547E-11 0.0 2.600000E-01 -7.160739E-11 0.0 2.800000E-01 -1.219423E-10 0.0 3.000000E-01 -1.423019E-10 0.0 3.200000E-01 -1.124947E-10 0.0 3.400000E-01 -5.816461E-11 0.0 3.600000E-01 -7.920240E-12 0.0 3.800000E-01 -5.317492E-09 0.0 4.000000E-01 5.923932E-09 0.0 4.200000E-01 6.366843E-10 0.0 4.400001E-01 3.965228E-10 0.0 4.600001E-01 7.601546E-11 0.0 4.800001E-01 -1.395337E-10 0.0 5.000001E-01 -3.923486E-10 0.0 5.200000E-01 -5.642233E-10 0.0 5.400000E-01 -6.074181E-10 0.0 5.600000E-01 -6.276015E-10 0.0 5.800000E-01 -4.302628E-10 0.0 6.000000E-01 -8.495232E-11 0.0 6.199999E-01 1.041893E-10 0.0 6.399999E-01 3.034831E-10 0.0 6.599999E-01 5.861434E-10 0.0 6.799999E-01 6.653558E-10 0.0 6.999999E-01 5.789358E-10 0.0 7.199998E-01 4.304013E-10 0.0 7.399998E-01 1.707591E-10 0.0 7.599998E-01 -6.202059E-11 0.0 7.799998E-01 -2.873619E-10 0.0 7.999998E-01 -5.851495E-10 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 113 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -2.267578E+01 0.0 2.000000E-02 -5.761729E+01 0.0 4.000000E-02 -8.232275E+01 0.0 6.000000E-02 -5.333474E+01 0.0 8.000000E-02 4.747902E+00 0.0 9.999999E-02 4.943464E+01 0.0 1.200000E-01 6.458914E+01 0.0 1.400000E-01 7.649715E+01 0.0 1.600000E-01 9.492569E+01 0.0 1.800000E-01 8.980664E+01 0.0 2.000000E-01 4.537529E+01 0.0 2.200000E-01 -5.999552E+00 0.0 2.400000E-01 -3.327517E+01 0.0 2.600000E-01 -5.253201E+01 0.0 2.800000E-01 -8.506890E+01 0.0 3.000000E-01 -1.060280E+02 0.0 3.200000E-01 -8.369604E+01 0.0 3.400000E-01 -3.793206E+01 0.0 3.600000E-01 -6.863050E+00 0.0 3.800000E-01 1.362174E+02 0.0 4.000000E-01 3.163435E+02 0.0 4.200000E-01 4.348787E+02 0.0 4.400001E-01 3.012384E+02 0.0 4.600001E-01 7.051231E+01 0.0 4.800001E-01 -1.324852E+02 0.0 5.000001E-01 -2.729906E+02 0.0 5.200000E-01 -3.900867E+02 0.0 5.400000E-01 -4.706075E+02 0.0 5.600000E-01 -4.471477E+02 0.0 5.800000E-01 -2.950746E+02 0.0 6.000000E-01 -8.736270E+01 0.0 6.199999E-01 8.589111E+01 0.0 6.399999E-01 2.345943E+02 0.0 6.599999E-01 3.972914E+02 0.0 6.799999E-01 4.961568E+02 0.0 6.999999E-01 4.373898E+02 0.0 7.199998E-01 2.820796E+02 0.0 7.399998E-01 1.338545E+02 0.0 7.599998E-01 -2.636133E+01 0.0 7.799998E-01 -2.352914E+02 0.0 7.999998E-01 -4.161469E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 121 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 1.196646E+01 0.0 2.000000E-02 3.490532E+01 0.0 4.000000E-02 5.189912E+01 0.0 6.000000E-02 3.457423E+01 0.0 8.000000E-02 -4.385392E+00 0.0 9.999999E-02 -3.227025E+01 0.0 1.200000E-01 -3.821521E+01 0.0 1.400000E-01 -4.431211E+01 0.0 1.600000E-01 -5.839278E+01 0.0 1.800000E-01 -5.699165E+01 0.0 2.000000E-01 -2.749373E+01 0.0 2.200000E-01 6.111347E+00 0.0 2.400000E-01 2.058062E+01 0.0 2.600000E-01 2.937686E+01 0.0 2.800000E-01 5.109463E+01 0.0 3.000000E-01 6.720542E+01 0.0 3.200000E-01 5.185511E+01 0.0 3.400000E-01 2.045903E+01 0.0 3.600000E-01 3.096570E+00 0.0 3.800000E-01 -7.378448E+01 0.0 4.000000E-01 -1.936057E+02 0.0 4.200000E-01 -2.719619E+02 0.0 4.400001E-01 -1.875215E+02 0.0 4.600001E-01 -3.653672E+01 0.0 4.800001E-01 8.341934E+01 0.0 5.000001E-01 1.619777E+02 0.0 5.200000E-01 2.351871E+02 0.0 5.400000E-01 2.876719E+02 0.0 5.600000E-01 2.750707E+02 0.0 5.800000E-01 1.810570E+02 0.0 6.000000E-01 4.838672E+01 0.0 6.199999E-01 -5.541592E+01 0.0 6.399999E-01 -1.356652E+02 0.0 6.599999E-01 -2.384990E+02 0.0 6.799999E-01 -3.108813E+02 0.0 6.999999E-01 -2.683471E+02 0.0 7.199998E-01 -1.623989E+02 0.0 7.399998E-01 -8.095020E+01 0.0 7.599998E-01 8.182617E+00 0.0 7.799998E-01 1.436660E+02 0.0 7.999998E-01 2.583715E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 122 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 6.619580E-09 0.0 2.000000E-02 -7.741712E-09 0.0 4.000000E-02 -1.199526E-09 0.0 6.000000E-02 -7.172099E-10 0.0 8.000000E-02 8.257790E-11 0.0 9.999999E-02 6.374746E-10 0.0 1.200000E-01 9.411437E-10 0.0 1.400000E-01 1.119465E-09 0.0 1.600000E-01 1.290694E-09 0.0 1.800000E-01 1.275325E-09 0.0 2.000000E-01 6.662400E-10 0.0 2.200000E-01 -1.148295E-10 0.0 2.400000E-01 -4.469476E-10 0.0 2.600000E-01 -7.344639E-10 0.0 2.800000E-01 -1.250502E-09 0.0 3.000000E-01 -1.459587E-09 0.0 3.200000E-01 -1.153841E-09 0.0 3.400000E-01 -5.966313E-10 0.0 3.600000E-01 -8.118318E-11 0.0 3.800000E-01 -5.450320E-08 0.0 4.000000E-01 6.071956E-08 0.0 4.200000E-01 6.526503E-09 0.0 4.400001E-01 4.064325E-09 0.0 4.600001E-01 7.748567E-10 0.0 4.800001E-01 -1.432878E-09 0.0 5.000001E-01 -4.029490E-09 0.0 5.200000E-01 -5.788812E-09 0.0 5.400000E-01 -6.233240E-09 0.0 5.600000E-01 -6.431695E-09 0.0 5.800000E-01 -4.418576E-09 0.0 6.000000E-01 -8.739027E-10 0.0 6.199999E-01 1.065780E-09 0.0 6.399999E-01 3.111085E-09 0.0 6.599999E-01 6.008467E-09 0.0 6.799999E-01 6.821297E-09 0.0 6.999999E-01 5.934502E-09 0.0 7.199998E-01 4.411685E-09 0.0 7.399998E-01 1.749741E-09 0.0 7.599998E-01 -6.376644E-10 0.0 7.799998E-01 -2.947569E-09 0.0 7.999998E-01 -6.008301E-09 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 123 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -1.196646E+01 0.0 2.000000E-02 -3.490532E+01 0.0 4.000000E-02 -5.189912E+01 0.0 6.000000E-02 -3.457423E+01 0.0 8.000000E-02 4.385392E+00 0.0 9.999999E-02 3.227025E+01 0.0 1.200000E-01 3.821521E+01 0.0 1.400000E-01 4.431211E+01 0.0 1.600000E-01 5.839278E+01 0.0 1.800000E-01 5.699165E+01 0.0 2.000000E-01 2.749373E+01 0.0 2.200000E-01 -6.111347E+00 0.0 2.400000E-01 -2.058062E+01 0.0 2.600000E-01 -2.937686E+01 0.0 2.800000E-01 -5.109463E+01 0.0 3.000000E-01 -6.720542E+01 0.0 3.200000E-01 -5.185511E+01 0.0 3.400000E-01 -2.045903E+01 0.0 3.600000E-01 -3.096570E+00 0.0 3.800000E-01 7.378448E+01 0.0 4.000000E-01 1.936057E+02 0.0 4.200000E-01 2.719619E+02 0.0 4.400001E-01 1.875215E+02 0.0 4.600001E-01 3.653672E+01 0.0 4.800001E-01 -8.341934E+01 0.0 5.000001E-01 -1.619777E+02 0.0 5.200000E-01 -2.351871E+02 0.0 5.400000E-01 -2.876719E+02 0.0 5.600000E-01 -2.750707E+02 0.0 5.800000E-01 -1.810570E+02 0.0 6.000000E-01 -4.838672E+01 0.0 6.199999E-01 5.541592E+01 0.0 6.399999E-01 1.356652E+02 0.0 6.599999E-01 2.384990E+02 0.0 6.799999E-01 3.108813E+02 0.0 6.999999E-01 2.683471E+02 0.0 7.199998E-01 1.623989E+02 0.0 7.399998E-01 8.095020E+01 0.0 7.599998E-01 -8.182617E+00 0.0 7.799998E-01 -1.436660E+02 0.0 7.999998E-01 -2.583715E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 131 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 5.019287E+00 0.0 2.000000E-02 1.696626E+01 0.0 4.000000E-02 2.633987E+01 0.0 6.000000E-02 1.802139E+01 0.0 8.000000E-02 -2.899647E+00 0.0 9.999999E-02 -1.693125E+01 0.0 1.200000E-01 -1.817476E+01 0.0 1.400000E-01 -2.059981E+01 0.0 1.600000E-01 -2.896465E+01 0.0 1.800000E-01 -2.909722E+01 0.0 2.000000E-01 -1.340867E+01 0.0 2.200000E-01 4.198261E+00 0.0 2.400000E-01 1.027057E+01 0.0 2.600000E-01 1.312778E+01 0.0 2.800000E-01 2.467647E+01 0.0 3.000000E-01 3.429829E+01 0.0 3.200000E-01 2.592268E+01 0.0 3.400000E-01 8.679565E+00 0.0 3.600000E-01 9.661194E-01 0.0 3.800000E-01 -3.185852E+01 0.0 4.000000E-01 -9.512549E+01 0.0 4.200000E-01 -1.371326E+02 0.0 4.400001E-01 -9.405338E+01 0.0 4.600001E-01 -1.457461E+01 0.0 4.800001E-01 4.224785E+01 0.0 5.000001E-01 7.718320E+01 0.0 5.200000E-01 1.143609E+02 0.0 5.400000E-01 1.417723E+02 0.0 5.600000E-01 1.360922E+02 0.0 5.800000E-01 8.958984E+01 0.0 6.000000E-01 2.157832E+01 0.0 6.199999E-01 -2.901826E+01 0.0 6.399999E-01 -6.304395E+01 0.0 6.599999E-01 -1.149148E+02 0.0 6.799999E-01 -1.570923E+02 0.0 6.999999E-01 -1.329344E+02 0.0 7.199998E-01 -7.455652E+01 0.0 7.399998E-01 -3.945264E+01 0.0 7.599998E-01 -3.761719E-01 0.0 7.799998E-01 7.104141E+01 0.0 7.999998E-01 1.294453E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 132 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 5.249033E-09 0.0 2.000000E-02 -6.139206E-09 0.0 4.000000E-02 -9.512774E-10 0.0 6.000000E-02 -5.687728E-10 0.0 8.000000E-02 6.547159E-11 0.0 9.999999E-02 5.055742E-10 0.0 1.200000E-01 7.464583E-10 0.0 1.400000E-01 8.879010E-10 0.0 1.600000E-01 1.023678E-09 0.0 1.800000E-01 1.011412E-09 0.0 2.000000E-01 5.284203E-10 0.0 2.200000E-01 -9.102541E-11 0.0 2.400000E-01 -3.544709E-10 0.0 2.600000E-01 -5.825559E-10 0.0 2.800000E-01 -9.917870E-10 0.0 3.000000E-01 -1.157616E-09 0.0 3.200000E-01 -9.151459E-10 0.0 3.400000E-01 -4.732294E-10 0.0 3.600000E-01 -6.440840E-11 0.0 3.800000E-01 -4.322028E-08 0.0 4.000000E-01 4.814959E-08 0.0 4.200000E-01 5.175272E-09 0.0 4.400001E-01 3.222404E-09 0.0 4.600001E-01 6.138232E-10 0.0 4.800001E-01 -1.137485E-09 0.0 5.000001E-01 -3.196390E-09 0.0 5.200000E-01 -4.591817E-09 0.0 5.400000E-01 -4.944847E-09 0.0 5.600000E-01 -5.101697E-09 0.0 5.800000E-01 -3.505031E-09 0.0 6.000000E-01 -6.942040E-10 0.0 6.199999E-01 8.446160E-10 0.0 6.399999E-01 2.466670E-09 0.0 6.599999E-01 4.764362E-09 0.0 6.799999E-01 5.409094E-09 0.0 6.999999E-01 4.705884E-09 0.0 7.199998E-01 3.498202E-09 0.0 7.399998E-01 1.386803E-09 0.0 7.599998E-01 -5.063311E-10 0.0 7.799998E-01 -2.338495E-09 0.0 7.999998E-01 -4.766221E-09 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 133 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -5.019287E+00 0.0 2.000000E-02 -1.696626E+01 0.0 4.000000E-02 -2.633987E+01 0.0 6.000000E-02 -1.802139E+01 0.0 8.000000E-02 2.899647E+00 0.0 9.999999E-02 1.693125E+01 0.0 1.200000E-01 1.817476E+01 0.0 1.400000E-01 2.059981E+01 0.0 1.600000E-01 2.896465E+01 0.0 1.800000E-01 2.909722E+01 0.0 2.000000E-01 1.340867E+01 0.0 2.200000E-01 -4.198261E+00 0.0 2.400000E-01 -1.027057E+01 0.0 2.600000E-01 -1.312778E+01 0.0 2.800000E-01 -2.467647E+01 0.0 3.000000E-01 -3.429829E+01 0.0 3.200000E-01 -2.592268E+01 0.0 3.400000E-01 -8.679565E+00 0.0 3.600000E-01 -9.661194E-01 0.0 3.800000E-01 3.185852E+01 0.0 4.000000E-01 9.512549E+01 0.0 4.200000E-01 1.371326E+02 0.0 4.400001E-01 9.405338E+01 0.0 4.600001E-01 1.457461E+01 0.0 4.800001E-01 -4.224785E+01 0.0 5.000001E-01 -7.718320E+01 0.0 5.200000E-01 -1.143609E+02 0.0 5.400000E-01 -1.417723E+02 0.0 5.600000E-01 -1.360922E+02 0.0 5.800000E-01 -8.958984E+01 0.0 6.000000E-01 -2.157832E+01 0.0 6.199999E-01 2.901826E+01 0.0 6.399999E-01 6.304395E+01 0.0 6.599999E-01 1.149148E+02 0.0 6.799999E-01 1.570923E+02 0.0 6.999999E-01 1.329344E+02 0.0 7.199998E-01 7.455652E+01 0.0 7.399998E-01 3.945264E+01 0.0 7.599998E-01 3.761719E-01 0.0 7.799998E-01 -7.104141E+01 0.0 7.999998E-01 -1.294453E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 141 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 1.223145E+00 0.0 2.000000E-02 4.981934E+00 0.0 4.000000E-02 8.112671E+00 0.0 6.000000E-02 5.704981E+00 0.0 8.000000E-02 -1.104781E+00 0.0 9.999999E-02 -5.396484E+00 0.0 1.200000E-01 -5.212574E+00 0.0 1.400000E-01 -5.745264E+00 0.0 1.600000E-01 -8.716553E+00 0.0 1.800000E-01 -9.020728E+00 0.0 2.000000E-01 -3.955005E+00 0.0 2.200000E-01 1.637558E+00 0.0 2.400000E-01 3.108655E+00 0.0 2.600000E-01 3.485083E+00 0.0 2.800000E-01 7.202637E+00 0.0 3.000000E-01 1.062686E+01 0.0 3.200000E-01 7.868189E+00 0.0 3.400000E-01 2.131787E+00 0.0 3.600000E-01 1.020264E-01 0.0 3.800000E-01 -8.111206E+00 0.0 4.000000E-01 -2.825728E+01 0.0 4.200000E-01 -4.195787E+01 0.0 4.400001E-01 -2.863301E+01 0.0 4.600001E-01 -3.242578E+00 0.0 4.800001E-01 1.300723E+01 0.0 5.000001E-01 2.218242E+01 0.0 5.200000E-01 3.364219E+01 0.0 5.400000E-01 4.236914E+01 0.0 5.600000E-01 4.081524E+01 0.0 5.800000E-01 2.685703E+01 0.0 6.000000E-01 5.732227E+00 0.0 6.199999E-01 -9.227345E+00 0.0 6.399999E-01 -1.761401E+01 0.0 6.599999E-01 -3.343805E+01 0.0 6.799999E-01 -4.818076E+01 0.0 6.999999E-01 -3.996944E+01 0.0 7.199998E-01 -2.045515E+01 0.0 7.399998E-01 -1.161738E+01 0.0 7.599998E-01 -1.599023E+00 0.0 7.799998E-01 2.131113E+01 0.0 7.999998E-01 3.939141E+01 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 142 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 1.783216E-09 0.0 2.000000E-02 -2.085199E-09 0.0 4.000000E-02 -3.229889E-10 0.0 6.000000E-02 -1.931287E-10 0.0 8.000000E-02 2.224857E-11 0.0 9.999999E-02 1.716532E-10 0.0 1.200000E-01 2.533927E-10 0.0 1.400000E-01 3.013821E-10 0.0 1.600000E-01 3.475186E-10 0.0 1.800000E-01 3.434385E-10 0.0 2.000000E-01 1.793940E-10 0.0 2.200000E-01 -3.093752E-11 0.0 2.400000E-01 -1.203333E-10 0.0 2.600000E-01 -1.976933E-10 0.0 2.800000E-01 -3.367083E-10 0.0 3.000000E-01 -3.930112E-10 0.0 3.200000E-01 -3.107110E-10 0.0 3.400000E-01 -1.606293E-10 0.0 3.600000E-01 -2.184871E-11 0.0 3.800000E-01 -1.468119E-08 0.0 4.000000E-01 1.635551E-08 0.0 4.200000E-01 1.757990E-09 0.0 4.400001E-01 1.095041E-09 0.0 4.600001E-01 2.093087E-10 0.0 4.800001E-01 -3.851514E-10 0.0 5.000001E-01 -1.084520E-09 0.0 5.200000E-01 -1.558149E-09 0.0 5.400000E-01 -1.677179E-09 0.0 5.600000E-01 -1.731387E-09 0.0 5.800000E-01 -1.189138E-09 0.0 6.000000E-01 -2.345743E-10 0.0 6.199999E-01 2.875041E-10 0.0 6.399999E-01 8.383043E-10 0.0 6.599999E-01 1.618497E-09 0.0 6.799999E-01 1.837505E-09 0.0 6.999999E-01 1.598273E-09 0.0 7.199998E-01 1.188662E-09 0.0 7.399998E-01 4.716885E-10 0.0 7.599998E-01 -1.709998E-10 0.0 7.799998E-01 -7.928512E-10 0.0 7.999998E-01 -1.617201E-09 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 143 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -1.223145E+00 0.0 2.000000E-02 -4.981934E+00 0.0 4.000000E-02 -8.112671E+00 0.0 6.000000E-02 -5.704981E+00 0.0 8.000000E-02 1.104781E+00 0.0 9.999999E-02 5.396484E+00 0.0 1.200000E-01 5.212574E+00 0.0 1.400000E-01 5.745264E+00 0.0 1.600000E-01 8.716553E+00 0.0 1.800000E-01 9.020728E+00 0.0 2.000000E-01 3.955005E+00 0.0 2.200000E-01 -1.637558E+00 0.0 2.400000E-01 -3.108655E+00 0.0 2.600000E-01 -3.485083E+00 0.0 2.800000E-01 -7.202637E+00 0.0 3.000000E-01 -1.062686E+01 0.0 3.200000E-01 -7.868189E+00 0.0 3.400000E-01 -2.131787E+00 0.0 3.600000E-01 -1.020264E-01 0.0 3.800000E-01 8.111206E+00 0.0 4.000000E-01 2.825728E+01 0.0 4.200000E-01 4.195787E+01 0.0 4.400001E-01 2.863301E+01 0.0 4.600001E-01 3.242578E+00 0.0 4.800001E-01 -1.300723E+01 0.0 5.000001E-01 -2.218242E+01 0.0 5.200000E-01 -3.364219E+01 0.0 5.400000E-01 -4.236914E+01 0.0 5.600000E-01 -4.081524E+01 0.0 5.800000E-01 -2.685703E+01 0.0 6.000000E-01 -5.732227E+00 0.0 6.199999E-01 9.227345E+00 0.0 6.399999E-01 1.761401E+01 0.0 6.599999E-01 3.343805E+01 0.0 6.799999E-01 4.818076E+01 0.0 6.999999E-01 3.996944E+01 0.0 7.199998E-01 2.045515E+01 0.0 7.399998E-01 1.161738E+01 0.0 7.599998E-01 1.599023E+00 0.0 7.799998E-01 -2.131113E+01 0.0 7.999998E-01 -3.939141E+01 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 211 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -1.340068E+01 0.0 2.000000E-02 -2.799199E+01 0.0 4.000000E-02 -3.730444E+01 0.0 6.000000E-02 -2.287617E+01 0.0 8.000000E-02 3.002197E-01 0.0 9.999999E-02 2.088721E+01 0.0 1.200000E-01 3.260464E+01 0.0 1.400000E-01 3.993721E+01 0.0 1.600000E-01 4.494463E+01 0.0 1.800000E-01 4.013994E+01 0.0 2.000000E-01 2.206377E+01 0.0 2.200000E-01 4.349121E-01 0.0 2.400000E-01 -1.563464E+01 0.0 2.600000E-01 -2.882300E+01 0.0 2.800000E-01 -4.190742E+01 0.0 3.000000E-01 -4.755586E+01 0.0 3.200000E-01 -3.914355E+01 0.0 3.400000E-01 -2.179146E+01 0.0 3.600000E-01 -4.774182E+00 0.0 3.800000E-01 7.751397E+01 0.0 4.000000E-01 1.513151E+02 0.0 4.200000E-01 2.003178E+02 0.0 4.400001E-01 1.395920E+02 0.0 4.600001E-01 4.220742E+01 0.0 4.800001E-01 -5.984531E+01 0.0 5.000001E-01 -1.370648E+02 0.0 5.200000E-01 -1.915406E+02 0.0 5.400000E-01 -2.251828E+02 0.0 5.600000E-01 -2.113055E+02 0.0 5.800000E-01 -1.406555E+02 0.0 6.000000E-01 -4.874063E+01 0.0 6.199999E-01 3.765938E+01 0.0 6.399999E-01 1.225676E+02 0.0 6.599999E-01 1.956406E+02 0.0 6.799999E-01 2.276805E+02 0.0 6.999999E-01 2.081640E+02 0.0 7.199998E-01 1.480146E+02 0.0 7.399998E-01 6.546680E+01 0.0 7.599998E-01 -2.293242E+01 0.0 7.799998E-01 -1.133250E+02 0.0 7.999998E-01 -1.938586E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 212 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 1.340068E+01 0.0 2.000000E-02 2.799199E+01 0.0 4.000000E-02 3.730444E+01 0.0 6.000000E-02 2.287617E+01 0.0 8.000000E-02 -3.002197E-01 0.0 9.999999E-02 -2.088721E+01 0.0 1.200000E-01 -3.260464E+01 0.0 1.400000E-01 -3.993721E+01 0.0 1.600000E-01 -4.494463E+01 0.0 1.800000E-01 -4.013994E+01 0.0 2.000000E-01 -2.206377E+01 0.0 2.200000E-01 -4.349121E-01 0.0 2.400000E-01 1.563464E+01 0.0 2.600000E-01 2.882300E+01 0.0 2.800000E-01 4.190742E+01 0.0 3.000000E-01 4.755586E+01 0.0 3.200000E-01 3.914355E+01 0.0 3.400000E-01 2.179146E+01 0.0 3.600000E-01 4.774182E+00 0.0 3.800000E-01 -7.751397E+01 0.0 4.000000E-01 -1.513151E+02 0.0 4.200000E-01 -2.003178E+02 0.0 4.400001E-01 -1.395920E+02 0.0 4.600001E-01 -4.220742E+01 0.0 4.800001E-01 5.984531E+01 0.0 5.000001E-01 1.370648E+02 0.0 5.200000E-01 1.915406E+02 0.0 5.400000E-01 2.251828E+02 0.0 5.600000E-01 2.113055E+02 0.0 5.800000E-01 1.406555E+02 0.0 6.000000E-01 4.874063E+01 0.0 6.199999E-01 -3.765938E+01 0.0 6.399999E-01 -1.225676E+02 0.0 6.599999E-01 -1.956406E+02 0.0 6.799999E-01 -2.276805E+02 0.0 6.999999E-01 -2.081640E+02 0.0 7.199998E-01 -1.480146E+02 0.0 7.399998E-01 -6.546680E+01 0.0 7.599998E-01 2.293242E+01 0.0 7.799998E-01 1.133250E+02 0.0 7.999998E-01 1.938586E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 221 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -8.787598E+00 0.0 2.000000E-02 -2.201953E+01 0.0 4.000000E-02 -3.109658E+01 0.0 6.000000E-02 -1.999321E+01 0.0 8.000000E-02 1.616071E+00 0.0 9.999999E-02 1.848662E+01 0.0 1.200000E-01 2.472979E+01 0.0 1.400000E-01 2.942461E+01 0.0 1.600000E-01 3.600352E+01 0.0 1.800000E-01 3.385430E+01 0.0 2.000000E-01 1.730171E+01 0.0 2.200000E-01 -1.974976E+00 0.0 2.400000E-01 -1.261436E+01 0.0 2.600000E-01 -2.030859E+01 0.0 2.800000E-01 -3.248174E+01 0.0 3.000000E-01 -3.998145E+01 0.0 3.200000E-01 -3.168135E+01 0.0 3.400000E-01 -1.480986E+01 0.0 3.600000E-01 -2.776099E+00 0.0 3.800000E-01 5.250747E+01 0.0 4.000000E-01 1.207377E+02 0.0 4.200000E-01 1.645260E+02 0.0 4.400001E-01 1.139977E+02 0.0 4.600001E-01 2.765508E+01 0.0 4.800001E-01 -4.992656E+01 0.0 5.000001E-01 -1.044914E+02 0.0 5.200000E-01 -1.487555E+02 0.0 5.400000E-01 -1.787203E+02 0.0 5.600000E-01 -1.697977E+02 0.0 5.800000E-01 -1.121555E+02 0.0 6.000000E-01 -3.368672E+01 0.0 6.199999E-01 3.218438E+01 0.0 6.399999E-01 9.004102E+01 0.0 6.599999E-01 1.518218E+02 0.0 6.799999E-01 1.875447E+02 0.0 6.999999E-01 1.658491E+02 0.0 7.199998E-01 1.087963E+02 0.0 7.399998E-01 5.109258E+01 0.0 7.599998E-01 -1.142578E+01 0.0 7.799998E-01 -8.928516E+01 0.0 7.999998E-01 -1.574062E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 222 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 8.787598E+00 0.0 2.000000E-02 2.201953E+01 0.0 4.000000E-02 3.109658E+01 0.0 6.000000E-02 1.999321E+01 0.0 8.000000E-02 -1.616071E+00 0.0 9.999999E-02 -1.848662E+01 0.0 1.200000E-01 -2.472979E+01 0.0 1.400000E-01 -2.942461E+01 0.0 1.600000E-01 -3.600352E+01 0.0 1.800000E-01 -3.385430E+01 0.0 2.000000E-01 -1.730171E+01 0.0 2.200000E-01 1.974976E+00 0.0 2.400000E-01 1.261436E+01 0.0 2.600000E-01 2.030859E+01 0.0 2.800000E-01 3.248174E+01 0.0 3.000000E-01 3.998145E+01 0.0 3.200000E-01 3.168135E+01 0.0 3.400000E-01 1.480986E+01 0.0 3.600000E-01 2.776099E+00 0.0 3.800000E-01 -5.250747E+01 0.0 4.000000E-01 -1.207377E+02 0.0 4.200000E-01 -1.645260E+02 0.0 4.400001E-01 -1.139977E+02 0.0 4.600001E-01 -2.765508E+01 0.0 4.800001E-01 4.992656E+01 0.0 5.000001E-01 1.044914E+02 0.0 5.200000E-01 1.487555E+02 0.0 5.400000E-01 1.787203E+02 0.0 5.600000E-01 1.697977E+02 0.0 5.800000E-01 1.121555E+02 0.0 6.000000E-01 3.368672E+01 0.0 6.199999E-01 -3.218438E+01 0.0 6.399999E-01 -9.004102E+01 0.0 6.599999E-01 -1.518218E+02 0.0 6.799999E-01 -1.875447E+02 0.0 6.999999E-01 -1.658491E+02 0.0 7.199998E-01 -1.087963E+02 0.0 7.399998E-01 -5.109258E+01 0.0 7.599998E-01 1.142578E+01 0.0 7.799998E-01 8.928516E+01 0.0 7.999998E-01 1.574062E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 231 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -4.885547E+00 0.0 2.000000E-02 -1.459190E+01 0.0 4.000000E-02 -2.185928E+01 0.0 6.000000E-02 -1.462163E+01 0.0 8.000000E-02 1.949487E+00 0.0 9.999999E-02 1.365601E+01 0.0 1.200000E-01 1.591377E+01 0.0 1.400000E-01 1.840459E+01 0.0 1.600000E-01 2.449102E+01 0.0 1.800000E-01 2.400645E+01 0.0 2.000000E-01 1.150752E+01 0.0 2.200000E-01 -2.718530E+00 0.0 2.400000E-01 -8.652979E+00 0.0 2.600000E-01 -1.211865E+01 0.0 2.800000E-01 -2.132607E+01 0.0 3.000000E-01 -2.833037E+01 0.0 3.200000E-01 -2.178106E+01 0.0 3.400000E-01 -8.363965E+00 0.0 3.600000E-01 -1.225708E+00 0.0 3.800000E-01 3.009668E+01 0.0 4.000000E-01 8.117374E+01 0.0 4.200000E-01 1.145350E+02 0.0 4.400001E-01 7.877286E+01 0.0 4.600001E-01 1.468125E+01 0.0 4.800001E-01 -3.498985E+01 0.0 5.000001E-01 -6.742500E+01 0.0 5.200000E-01 -9.849375E+01 0.0 5.400000E-01 -1.204875E+02 0.0 5.600000E-01 -1.151719E+02 0.0 5.800000E-01 -7.604766E+01 0.0 6.000000E-01 -2.002500E+01 0.0 6.199999E-01 2.363789E+01 0.0 6.399999E-01 5.625000E+01 0.0 6.599999E-01 9.941236E+01 0.0 6.799999E-01 1.309516E+02 0.0 6.999999E-01 1.125615E+02 0.0 7.199998E-01 6.708691E+01 0.0 7.399998E-01 3.395274E+01 0.0 7.599998E-01 -2.688281E+00 0.0 7.799998E-01 -6.041484E+01 0.0 7.999998E-01 -1.085438E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 232 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 4.885547E+00 0.0 2.000000E-02 1.459190E+01 0.0 4.000000E-02 2.185928E+01 0.0 6.000000E-02 1.462163E+01 0.0 8.000000E-02 -1.949487E+00 0.0 9.999999E-02 -1.365601E+01 0.0 1.200000E-01 -1.591377E+01 0.0 1.400000E-01 -1.840459E+01 0.0 1.600000E-01 -2.449102E+01 0.0 1.800000E-01 -2.400645E+01 0.0 2.000000E-01 -1.150752E+01 0.0 2.200000E-01 2.718530E+00 0.0 2.400000E-01 8.652979E+00 0.0 2.600000E-01 1.211865E+01 0.0 2.800000E-01 2.132607E+01 0.0 3.000000E-01 2.833037E+01 0.0 3.200000E-01 2.178106E+01 0.0 3.400000E-01 8.363965E+00 0.0 3.600000E-01 1.225708E+00 0.0 3.800000E-01 -3.009668E+01 0.0 4.000000E-01 -8.117374E+01 0.0 4.200000E-01 -1.145350E+02 0.0 4.400001E-01 -7.877286E+01 0.0 4.600001E-01 -1.468125E+01 0.0 4.800001E-01 3.498985E+01 0.0 5.000001E-01 6.742500E+01 0.0 5.200000E-01 9.849375E+01 0.0 5.400000E-01 1.204875E+02 0.0 5.600000E-01 1.151719E+02 0.0 5.800000E-01 7.604766E+01 0.0 6.000000E-01 2.002500E+01 0.0 6.199999E-01 -2.363789E+01 0.0 6.399999E-01 -5.625000E+01 0.0 6.599999E-01 -9.941236E+01 0.0 6.799999E-01 -1.309516E+02 0.0 6.999999E-01 -1.125615E+02 0.0 7.199998E-01 -6.708691E+01 0.0 7.399998E-01 -3.395274E+01 0.0 7.599998E-01 2.688281E+00 0.0 7.799998E-01 6.041484E+01 0.0 7.999998E-01 1.085438E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 241 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 -1.641211E+00 0.0 2.000000E-02 -5.943750E+00 0.0 4.000000E-02 -9.429199E+00 0.0 6.000000E-02 -6.529981E+00 0.0 8.000000E-02 1.146497E+00 0.0 9.999999E-02 6.152637E+00 0.0 1.200000E-01 6.308789E+00 0.0 1.400000E-01 7.075196E+00 0.0 1.600000E-01 1.026914E+01 0.0 1.800000E-01 1.043965E+01 0.0 2.000000E-01 4.712110E+00 0.0 2.200000E-01 -1.669116E+00 0.0 2.400000E-01 -3.654199E+00 0.0 2.600000E-01 -4.422363E+00 0.0 2.800000E-01 -8.625000E+00 0.0 3.000000E-01 -1.231172E+01 0.0 3.200000E-01 -9.227930E+00 0.0 3.400000E-01 -2.825977E+00 0.0 3.600000E-01 -2.468262E-01 0.0 3.800000E-01 1.052051E+01 0.0 4.000000E-01 3.351841E+01 0.0 4.200000E-01 4.900818E+01 0.0 4.400001E-01 3.349570E+01 0.0 4.600001E-01 4.530469E+00 0.0 4.800001E-01 -1.508672E+01 0.0 5.000001E-01 -2.678906E+01 0.0 5.200000E-01 -4.020938E+01 0.0 5.400000E-01 -5.010469E+01 0.0 5.600000E-01 -4.808438E+01 0.0 5.800000E-01 -3.174375E+01 0.0 6.000000E-01 -7.321875E+00 0.0 6.199999E-01 1.061953E+01 0.0 6.399999E-01 2.166211E+01 0.0 6.599999E-01 4.005535E+01 0.0 6.799999E-01 5.619917E+01 0.0 6.999999E-01 4.715186E+01 0.0 7.199998E-01 2.531309E+01 0.0 7.399998E-01 1.387734E+01 0.0 7.599998E-01 9.867188E-01 0.0 7.799998E-01 -2.524688E+01 0.0 7.999998E-01 -4.612969E+01 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 242 F O R C E S I N R O D E L E M E N T S ( C R O D ) AXIAL AXIAL TIME FORCE TORQUE TIME FORCE TORQUE 0.0 1.641211E+00 0.0 2.000000E-02 5.943750E+00 0.0 4.000000E-02 9.429199E+00 0.0 6.000000E-02 6.529981E+00 0.0 8.000000E-02 -1.146497E+00 0.0 9.999999E-02 -6.152637E+00 0.0 1.200000E-01 -6.308789E+00 0.0 1.400000E-01 -7.075196E+00 0.0 1.600000E-01 -1.026914E+01 0.0 1.800000E-01 -1.043965E+01 0.0 2.000000E-01 -4.712110E+00 0.0 2.200000E-01 1.669116E+00 0.0 2.400000E-01 3.654199E+00 0.0 2.600000E-01 4.422363E+00 0.0 2.800000E-01 8.625000E+00 0.0 3.000000E-01 1.231172E+01 0.0 3.200000E-01 9.227930E+00 0.0 3.400000E-01 2.825977E+00 0.0 3.600000E-01 2.468262E-01 0.0 3.800000E-01 -1.052051E+01 0.0 4.000000E-01 -3.351841E+01 0.0 4.200000E-01 -4.900818E+01 0.0 4.400001E-01 -3.349570E+01 0.0 4.600001E-01 -4.530469E+00 0.0 4.800001E-01 1.508672E+01 0.0 5.000001E-01 2.678906E+01 0.0 5.200000E-01 4.020938E+01 0.0 5.400000E-01 5.010469E+01 0.0 5.600000E-01 4.808438E+01 0.0 5.800000E-01 3.174375E+01 0.0 6.000000E-01 7.321875E+00 0.0 6.199999E-01 -1.061953E+01 0.0 6.399999E-01 -2.166211E+01 0.0 6.599999E-01 -4.005535E+01 0.0 6.799999E-01 -5.619917E+01 0.0 6.999999E-01 -4.715186E+01 0.0 7.199998E-01 -2.531309E+01 0.0 7.399998E-01 -1.387734E+01 0.0 7.599998E-01 -9.867188E-01 0.0 7.799998E-01 2.524688E+01 0.0 7.999998E-01 4.612969E+01 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 1 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 9.065625E+01 0.0 2.000000E-02 6.886914E+01 0.0 4.000000E-02 4.224219E+01 0.0 6.000000E-02 2.406738E+01 0.0 8.000000E-02 2.257935E+00 0.0 9.999999E-02 -2.146777E+01 0.0 1.200000E-01 -4.158398E+01 0.0 1.400000E-01 -5.289062E+01 0.0 1.600000E-01 -5.376367E+01 0.0 1.800000E-01 -4.442773E+01 0.0 2.000000E-01 -2.714746E+01 0.0 2.200000E-01 -5.271973E+00 0.0 2.400000E-01 1.868164E+01 0.0 2.600000E-01 3.997266E+01 0.0 2.800000E-01 5.198633E+01 0.0 3.000000E-01 5.322070E+01 0.0 3.200000E-01 4.627539E+01 0.0 3.400000E-01 3.100391E+01 0.0 3.600000E-01 7.810547E+00 0.0 3.800000E-01 3.833887E+01 0.0 4.000000E-01 4.723652E+02 0.0 4.200000E-01 5.693496E+02 0.0 4.400001E-01 6.404023E+02 0.0 4.600001E-01 7.421172E+02 0.0 4.800001E-01 8.689219E+02 0.0 5.000001E-01 9.756719E+02 0.0 5.200000E-01 1.043031E+03 0.0 5.400000E-01 1.074938E+03 0.0 5.600000E-01 1.051750E+03 0.0 5.800000E-01 9.734375E+02 0.0 6.000000E-01 8.729688E+02 0.0 6.199999E-01 7.589375E+02 0.0 6.399999E-01 6.405664E+02 0.0 6.599999E-01 5.619912E+02 0.0 6.799999E-01 5.385638E+02 0.0 6.999999E-01 5.510127E+02 0.0 7.199998E-01 6.098867E+02 0.0 7.399998E-01 7.207031E+02 0.0 7.599998E-01 8.411562E+02 0.0 7.799998E-01 9.441562E+02 0.0 7.999998E-01 1.030656E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 2 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -9.065625E+01 0.0 2.000000E-02 -6.886914E+01 0.0 4.000000E-02 -4.224219E+01 0.0 6.000000E-02 -2.406738E+01 0.0 8.000000E-02 -2.257935E+00 0.0 9.999999E-02 2.146777E+01 0.0 1.200000E-01 4.158398E+01 0.0 1.400000E-01 5.289062E+01 0.0 1.600000E-01 5.376367E+01 0.0 1.800000E-01 4.442773E+01 0.0 2.000000E-01 2.714746E+01 0.0 2.200000E-01 5.271973E+00 0.0 2.400000E-01 -1.868164E+01 0.0 2.600000E-01 -3.997266E+01 0.0 2.800000E-01 -5.198633E+01 0.0 3.000000E-01 -5.322070E+01 0.0 3.200000E-01 -4.627539E+01 0.0 3.400000E-01 -3.100391E+01 0.0 3.600000E-01 -7.810547E+00 0.0 3.800000E-01 -3.833887E+01 0.0 4.000000E-01 -4.723652E+02 0.0 4.200000E-01 -5.693496E+02 0.0 4.400001E-01 -6.404023E+02 0.0 4.600001E-01 -7.421172E+02 0.0 4.800001E-01 -8.689219E+02 0.0 5.000001E-01 -9.756719E+02 0.0 5.200000E-01 -1.043031E+03 0.0 5.400000E-01 -1.074938E+03 0.0 5.600000E-01 -1.051750E+03 0.0 5.800000E-01 -9.734375E+02 0.0 6.000000E-01 -8.729688E+02 0.0 6.199999E-01 -7.589375E+02 0.0 6.399999E-01 -6.405664E+02 0.0 6.599999E-01 -5.619912E+02 0.0 6.799999E-01 -5.385638E+02 0.0 6.999999E-01 -5.510127E+02 0.0 7.199998E-01 -6.098867E+02 0.0 7.399998E-01 -7.207031E+02 0.0 7.599998E-01 -8.411562E+02 0.0 7.799998E-01 -9.441562E+02 0.0 7.999998E-01 -1.030656E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 11 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 2.148828E+01 0.0 2.000000E-02 4.918359E+01 0.0 4.000000E-02 6.754297E+01 0.0 6.000000E-02 4.248145E+01 0.0 8.000000E-02 -2.120728E+00 0.0 9.999999E-02 -3.905371E+01 0.0 1.200000E-01 -5.620703E+01 0.0 1.400000E-01 -6.784766E+01 0.0 1.600000E-01 -7.968359E+01 0.0 1.800000E-01 -7.313281E+01 0.0 2.000000E-01 -3.869141E+01 0.0 2.200000E-01 1.914551E+00 0.0 2.400000E-01 2.782324E+01 0.0 2.600000E-01 4.788867E+01 0.0 2.800000E-01 7.305469E+01 0.0 3.000000E-01 8.649219E+01 0.0 3.200000E-01 6.976953E+01 0.0 3.400000E-01 3.558594E+01 0.0 3.600000E-01 7.257324E+00 0.0 3.800000E-01 -1.262227E+02 0.0 4.000000E-01 -2.678896E+02 0.0 4.200000E-01 -3.598477E+02 0.0 4.400001E-01 -2.500000E+02 0.0 4.600001E-01 -6.771875E+01 0.0 4.800001E-01 1.084062E+02 0.0 5.000001E-01 2.369062E+02 0.0 5.200000E-01 3.341875E+02 0.0 5.400000E-01 3.972812E+02 0.0 5.600000E-01 3.752812E+02 0.0 5.800000E-01 2.487812E+02 0.0 6.000000E-01 8.020312E+01 0.0 6.199999E-01 -6.907812E+01 0.0 6.399999E-01 -2.078906E+02 0.0 6.599999E-01 -3.412754E+02 0.0 6.799999E-01 -4.096135E+02 0.0 6.999999E-01 -3.679844E+02 0.0 7.199998E-01 -2.512188E+02 0.0 7.399998E-01 -1.145156E+02 0.0 7.599998E-01 3.270312E+01 0.0 7.799998E-01 1.991875E+02 0.0 7.999998E-01 3.461250E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 12 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -2.148828E+01 0.0 2.000000E-02 -4.918359E+01 0.0 4.000000E-02 -6.754297E+01 0.0 6.000000E-02 -4.248145E+01 0.0 8.000000E-02 2.120728E+00 0.0 9.999999E-02 3.905371E+01 0.0 1.200000E-01 5.620703E+01 0.0 1.400000E-01 6.784766E+01 0.0 1.600000E-01 7.968359E+01 0.0 1.800000E-01 7.313281E+01 0.0 2.000000E-01 3.869141E+01 0.0 2.200000E-01 -1.914551E+00 0.0 2.400000E-01 -2.782324E+01 0.0 2.600000E-01 -4.788867E+01 0.0 2.800000E-01 -7.305469E+01 0.0 3.000000E-01 -8.649219E+01 0.0 3.200000E-01 -6.976953E+01 0.0 3.400000E-01 -3.558594E+01 0.0 3.600000E-01 -7.257324E+00 0.0 3.800000E-01 1.262227E+02 0.0 4.000000E-01 2.678896E+02 0.0 4.200000E-01 3.598477E+02 0.0 4.400001E-01 2.500000E+02 0.0 4.600001E-01 6.771875E+01 0.0 4.800001E-01 -1.084062E+02 0.0 5.000001E-01 -2.369062E+02 0.0 5.200000E-01 -3.341875E+02 0.0 5.400000E-01 -3.972812E+02 0.0 5.600000E-01 -3.752812E+02 0.0 5.800000E-01 -2.487812E+02 0.0 6.000000E-01 -8.020312E+01 0.0 6.199999E-01 6.907812E+01 0.0 6.399999E-01 2.078906E+02 0.0 6.599999E-01 3.412754E+02 0.0 6.799999E-01 4.096135E+02 0.0 6.999999E-01 3.679844E+02 0.0 7.199998E-01 2.512188E+02 0.0 7.399998E-01 1.145156E+02 0.0 7.599998E-01 -3.270312E+01 0.0 7.799998E-01 -1.991875E+02 0.0 7.999998E-01 -3.461250E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 21 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 1.309375E+01 0.0 2.000000E-02 3.555469E+01 0.0 4.000000E-02 5.166406E+01 0.0 6.000000E-02 3.387695E+01 0.0 8.000000E-02 -3.633301E+00 0.0 9.999999E-02 -3.147852E+01 0.0 1.200000E-01 -3.937500E+01 0.0 1.400000E-01 -4.623828E+01 0.0 1.600000E-01 -5.885938E+01 0.0 1.800000E-01 -5.648438E+01 0.0 2.000000E-01 -2.798828E+01 0.0 2.200000E-01 4.828613E+00 0.0 2.400000E-01 2.070996E+01 0.0 2.600000E-01 3.123047E+01 0.0 2.800000E-01 5.221094E+01 0.0 3.000000E-01 6.669531E+01 0.0 3.200000E-01 5.206250E+01 0.0 3.400000E-01 2.222461E+01 0.0 3.600000E-01 3.770508E+00 0.0 3.800000E-01 -7.923828E+01 0.0 4.000000E-01 -1.963467E+02 0.0 4.200000E-01 -2.720742E+02 0.0 4.400001E-01 -1.878047E+02 0.0 4.600001E-01 -4.037500E+01 0.0 4.800001E-01 8.278125E+01 0.0 5.000001E-01 1.665938E+02 0.0 5.200000E-01 2.401250E+02 0.0 5.400000E-01 2.909688E+02 0.0 5.600000E-01 2.771875E+02 0.0 5.800000E-01 1.830938E+02 0.0 6.000000E-01 5.171875E+01 0.0 6.199999E-01 -5.470312E+01 0.0 6.399999E-01 -1.413828E+02 0.0 6.599999E-01 -2.437236E+02 0.0 6.799999E-01 -3.105859E+02 0.0 6.999999E-01 -2.708510E+02 0.0 7.199998E-01 -1.698125E+02 0.0 7.399998E-01 -8.262500E+01 0.0 7.599998E-01 1.275000E+01 0.0 7.799998E-01 1.456250E+02 0.0 7.999998E-01 2.590312E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 22 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -1.309375E+01 0.0 2.000000E-02 -3.555469E+01 0.0 4.000000E-02 -5.166406E+01 0.0 6.000000E-02 -3.387695E+01 0.0 8.000000E-02 3.633301E+00 0.0 9.999999E-02 3.147852E+01 0.0 1.200000E-01 3.937500E+01 0.0 1.400000E-01 4.623828E+01 0.0 1.600000E-01 5.885938E+01 0.0 1.800000E-01 5.648438E+01 0.0 2.000000E-01 2.798828E+01 0.0 2.200000E-01 -4.828613E+00 0.0 2.400000E-01 -2.070996E+01 0.0 2.600000E-01 -3.123047E+01 0.0 2.800000E-01 -5.221094E+01 0.0 3.000000E-01 -6.669531E+01 0.0 3.200000E-01 -5.206250E+01 0.0 3.400000E-01 -2.222461E+01 0.0 3.600000E-01 -3.770508E+00 0.0 3.800000E-01 7.923828E+01 0.0 4.000000E-01 1.963467E+02 0.0 4.200000E-01 2.720742E+02 0.0 4.400001E-01 1.878047E+02 0.0 4.600001E-01 4.037500E+01 0.0 4.800001E-01 -8.278125E+01 0.0 5.000001E-01 -1.665938E+02 0.0 5.200000E-01 -2.401250E+02 0.0 5.400000E-01 -2.909688E+02 0.0 5.600000E-01 -2.771875E+02 0.0 5.800000E-01 -1.830938E+02 0.0 6.000000E-01 -5.171875E+01 0.0 6.199999E-01 5.470312E+01 0.0 6.399999E-01 1.413828E+02 0.0 6.599999E-01 2.437236E+02 0.0 6.799999E-01 3.105859E+02 0.0 6.999999E-01 2.708510E+02 0.0 7.199998E-01 1.698125E+02 0.0 7.399998E-01 8.262500E+01 0.0 7.599998E-01 -1.275000E+01 0.0 7.799998E-01 -1.456250E+02 0.0 7.999998E-01 -2.590312E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 31 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 6.050781E+00 0.0 2.000000E-02 1.929688E+01 0.0 4.000000E-02 2.953516E+01 0.0 6.000000E-02 2.001562E+01 0.0 8.000000E-02 -2.995361E+00 0.0 9.999999E-02 -1.875586E+01 0.0 1.200000E-01 -2.083984E+01 0.0 1.400000E-01 -2.384766E+01 0.0 1.600000E-01 -3.273828E+01 0.0 1.800000E-01 -3.252734E+01 0.0 2.000000E-01 -1.524805E+01 0.0 2.200000E-01 4.255859E+00 0.0 2.400000E-01 1.159961E+01 0.0 2.600000E-01 1.542578E+01 0.0 2.800000E-01 2.812891E+01 0.0 3.000000E-01 3.838281E+01 0.0 3.200000E-01 2.923047E+01 0.0 3.400000E-01 1.037305E+01 0.0 3.600000E-01 1.324219E+00 0.0 3.800000E-01 -3.772656E+01 0.0 4.000000E-01 -1.079082E+02 0.0 4.200000E-01 -1.542959E+02 0.0 4.400001E-01 -1.058438E+02 0.0 4.600001E-01 -1.768750E+01 0.0 4.800001E-01 4.721875E+01 0.0 5.000001E-01 8.834375E+01 0.0 5.200000E-01 1.304062E+02 0.0 5.400000E-01 1.605938E+02 0.0 5.600000E-01 1.536562E+02 0.0 5.800000E-01 1.015312E+02 0.0 6.000000E-01 2.553125E+01 0.0 6.199999E-01 -3.246875E+01 0.0 6.399999E-01 -7.292188E+01 0.0 6.599999E-01 -1.309297E+02 0.0 6.799999E-01 -1.766055E+02 0.0 6.999999E-01 -1.504316E+02 0.0 7.199998E-01 -8.630859E+01 0.0 7.399998E-01 -4.496875E+01 0.0 7.599998E-01 1.062500E+00 0.0 7.799998E-01 8.071875E+01 0.0 7.999998E-01 1.458125E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 32 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -6.050781E+00 0.0 2.000000E-02 -1.929688E+01 0.0 4.000000E-02 -2.953516E+01 0.0 6.000000E-02 -2.001562E+01 0.0 8.000000E-02 2.995361E+00 0.0 9.999999E-02 1.875586E+01 0.0 1.200000E-01 2.083984E+01 0.0 1.400000E-01 2.384766E+01 0.0 1.600000E-01 3.273828E+01 0.0 1.800000E-01 3.252734E+01 0.0 2.000000E-01 1.524805E+01 0.0 2.200000E-01 -4.255859E+00 0.0 2.400000E-01 -1.159961E+01 0.0 2.600000E-01 -1.542578E+01 0.0 2.800000E-01 -2.812891E+01 0.0 3.000000E-01 -3.838281E+01 0.0 3.200000E-01 -2.923047E+01 0.0 3.400000E-01 -1.037305E+01 0.0 3.600000E-01 -1.324219E+00 0.0 3.800000E-01 3.772656E+01 0.0 4.000000E-01 1.079082E+02 0.0 4.200000E-01 1.542959E+02 0.0 4.400001E-01 1.058438E+02 0.0 4.600001E-01 1.768750E+01 0.0 4.800001E-01 -4.721875E+01 0.0 5.000001E-01 -8.834375E+01 0.0 5.200000E-01 -1.304062E+02 0.0 5.400000E-01 -1.605938E+02 0.0 5.600000E-01 -1.536562E+02 0.0 5.800000E-01 -1.015312E+02 0.0 6.000000E-01 -2.553125E+01 0.0 6.199999E-01 3.246875E+01 0.0 6.399999E-01 7.292188E+01 0.0 6.599999E-01 1.309297E+02 0.0 6.799999E-01 1.766055E+02 0.0 6.999999E-01 1.504316E+02 0.0 7.199998E-01 8.630859E+01 0.0 7.399998E-01 4.496875E+01 0.0 7.599998E-01 -1.062500E+00 0.0 7.799998E-01 -8.071875E+01 0.0 7.999998E-01 -1.458125E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 41 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 9.648438E-01 0.0 2.000000E-02 3.496094E+00 0.0 4.000000E-02 5.546875E+00 0.0 6.000000E-02 3.841797E+00 0.0 8.000000E-02 -6.757812E-01 0.0 9.999999E-02 -3.621094E+00 0.0 1.200000E-01 -3.710938E+00 0.0 1.400000E-01 -4.156250E+00 0.0 1.600000E-01 -6.042969E+00 0.0 1.800000E-01 -6.144531E+00 0.0 2.000000E-01 -2.771484E+00 0.0 2.200000E-01 9.833984E-01 0.0 2.400000E-01 2.148438E+00 0.0 2.600000E-01 2.597656E+00 0.0 2.800000E-01 5.074219E+00 0.0 3.000000E-01 7.246094E+00 0.0 3.200000E-01 5.429688E+00 0.0 3.400000E-01 1.656250E+00 0.0 3.600000E-01 1.435547E-01 0.0 3.800000E-01 -6.177734E+00 0.0 4.000000E-01 -1.971680E+01 0.0 4.200000E-01 -2.884082E+01 0.0 4.400001E-01 -1.970312E+01 0.0 4.600001E-01 -2.671875E+00 0.0 4.800001E-01 8.875000E+00 0.0 5.000001E-01 1.571875E+01 0.0 5.200000E-01 2.362500E+01 0.0 5.400000E-01 2.943750E+01 0.0 5.600000E-01 2.831250E+01 0.0 5.800000E-01 1.868750E+01 0.0 6.000000E-01 4.343750E+00 0.0 6.199999E-01 -6.250000E+00 0.0 6.399999E-01 -1.273438E+01 0.0 6.599999E-01 -2.355273E+01 0.0 6.799999E-01 -3.307227E+01 0.0 6.999999E-01 -2.774512E+01 0.0 7.199998E-01 -1.487500E+01 0.0 7.399998E-01 -8.171875E+00 0.0 7.599998E-01 -5.937500E-01 0.0 7.799998E-01 1.484375E+01 0.0 7.999998E-01 2.712500E+01 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 42 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -9.648438E-01 0.0 2.000000E-02 -3.496094E+00 0.0 4.000000E-02 -5.546875E+00 0.0 6.000000E-02 -3.841797E+00 0.0 8.000000E-02 6.757812E-01 0.0 9.999999E-02 3.621094E+00 0.0 1.200000E-01 3.710938E+00 0.0 1.400000E-01 4.156250E+00 0.0 1.600000E-01 6.042969E+00 0.0 1.800000E-01 6.144531E+00 0.0 2.000000E-01 2.771484E+00 0.0 2.200000E-01 -9.833984E-01 0.0 2.400000E-01 -2.148438E+00 0.0 2.600000E-01 -2.597656E+00 0.0 2.800000E-01 -5.074219E+00 0.0 3.000000E-01 -7.246094E+00 0.0 3.200000E-01 -5.429688E+00 0.0 3.400000E-01 -1.656250E+00 0.0 3.600000E-01 -1.435547E-01 0.0 3.800000E-01 6.177734E+00 0.0 4.000000E-01 1.971680E+01 0.0 4.200000E-01 2.884082E+01 0.0 4.400001E-01 1.970312E+01 0.0 4.600001E-01 2.671875E+00 0.0 4.800001E-01 -8.875000E+00 0.0 5.000001E-01 -1.571875E+01 0.0 5.200000E-01 -2.362500E+01 0.0 5.400000E-01 -2.943750E+01 0.0 5.600000E-01 -2.831250E+01 0.0 5.800000E-01 -1.868750E+01 0.0 6.000000E-01 -4.343750E+00 0.0 6.199999E-01 6.250000E+00 0.0 6.399999E-01 1.273438E+01 0.0 6.599999E-01 2.355273E+01 0.0 6.799999E-01 3.307227E+01 0.0 6.999999E-01 2.774512E+01 0.0 7.199998E-01 1.487500E+01 0.0 7.399998E-01 8.171875E+00 0.0 7.599998E-01 5.937500E-01 0.0 7.799998E-01 -1.484375E+01 0.0 7.999998E-01 -2.712500E+01 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 111 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 7.558594E+01 0.0 2.000000E-02 1.920576E+02 0.0 4.000000E-02 2.744092E+02 0.0 6.000000E-02 1.777825E+02 0.0 8.000000E-02 -1.582634E+01 0.0 9.999999E-02 -1.647821E+02 0.0 1.200000E-01 -2.152971E+02 0.0 1.400000E-01 -2.549905E+02 0.0 1.600000E-01 -3.164189E+02 0.0 1.800000E-01 -2.993555E+02 0.0 2.000000E-01 -1.512510E+02 0.0 2.200000E-01 1.999850E+01 0.0 2.400000E-01 1.109172E+02 0.0 2.600000E-01 1.751067E+02 0.0 2.800000E-01 2.835630E+02 0.0 3.000000E-01 3.534265E+02 0.0 3.200000E-01 2.789868E+02 0.0 3.400000E-01 1.264402E+02 0.0 3.600000E-01 2.287683E+01 0.0 3.800000E-01 -4.540581E+02 0.0 4.000000E-01 -1.054478E+03 0.0 4.200000E-01 -1.449595E+03 0.0 4.400001E-01 -1.004128E+03 0.0 4.600001E-01 -2.350410E+02 0.0 4.800001E-01 4.416172E+02 0.0 5.000001E-01 9.099688E+02 0.0 5.200000E-01 1.300289E+03 0.0 5.400000E-01 1.568691E+03 0.0 5.600000E-01 1.490492E+03 0.0 5.800000E-01 9.835820E+02 0.0 6.000000E-01 2.912090E+02 0.0 6.199999E-01 -2.863037E+02 0.0 6.399999E-01 -7.819810E+02 0.0 6.599999E-01 -1.324305E+03 0.0 6.799999E-01 -1.653856E+03 0.0 6.999999E-01 -1.457966E+03 0.0 7.199998E-01 -9.402651E+02 0.0 7.399998E-01 -4.461816E+02 0.0 7.599998E-01 8.787109E+01 0.0 7.799998E-01 7.843047E+02 0.0 7.999998E-01 1.387156E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 112 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 2.152952E-09 0.0 2.000000E-02 -2.517478E-09 0.0 4.000000E-02 -3.899285E-10 0.0 6.000000E-02 -2.331921E-10 0.0 8.000000E-02 2.684877E-11 0.0 9.999999E-02 2.072564E-10 0.0 1.200000E-01 3.059397E-10 0.0 1.400000E-01 3.640723E-10 0.0 1.600000E-01 4.194542E-10 0.0 1.800000E-01 4.144090E-10 0.0 2.000000E-01 2.165501E-10 0.0 2.200000E-01 -3.734379E-11 0.0 2.400000E-01 -1.452849E-10 0.0 2.600000E-01 -2.386913E-10 0.0 2.800000E-01 -4.064744E-10 0.0 3.000000E-01 -4.743397E-10 0.0 3.200000E-01 -3.749823E-10 0.0 3.400000E-01 -1.938820E-10 0.0 3.600000E-01 -2.640080E-11 0.0 3.800000E-01 -1.772497E-08 0.0 4.000000E-01 1.974644E-08 0.0 4.200000E-01 2.122281E-09 0.0 4.400001E-01 1.321743E-09 0.0 4.600001E-01 2.533849E-10 0.0 4.800001E-01 -4.651124E-10 0.0 5.000001E-01 -1.307829E-09 0.0 5.200000E-01 -1.880744E-09 0.0 5.400000E-01 -2.024727E-09 0.0 5.600000E-01 -2.092005E-09 0.0 5.800000E-01 -1.434209E-09 0.0 6.000000E-01 -2.831744E-10 0.0 6.199999E-01 3.472977E-10 0.0 6.399999E-01 1.011610E-09 0.0 6.599999E-01 1.953811E-09 0.0 6.799999E-01 2.217853E-09 0.0 6.999999E-01 1.929786E-09 0.0 7.199998E-01 1.434671E-09 0.0 7.399998E-01 5.691971E-10 0.0 7.599998E-01 -2.067353E-10 0.0 7.799998E-01 -9.578729E-10 0.0 7.999998E-01 -1.950498E-09 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 113 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -7.558594E+01 0.0 2.000000E-02 -1.920576E+02 0.0 4.000000E-02 -2.744092E+02 0.0 6.000000E-02 -1.777825E+02 0.0 8.000000E-02 1.582634E+01 0.0 9.999999E-02 1.647821E+02 0.0 1.200000E-01 2.152971E+02 0.0 1.400000E-01 2.549905E+02 0.0 1.600000E-01 3.164189E+02 0.0 1.800000E-01 2.993555E+02 0.0 2.000000E-01 1.512510E+02 0.0 2.200000E-01 -1.999850E+01 0.0 2.400000E-01 -1.109172E+02 0.0 2.600000E-01 -1.751067E+02 0.0 2.800000E-01 -2.835630E+02 0.0 3.000000E-01 -3.534265E+02 0.0 3.200000E-01 -2.789868E+02 0.0 3.400000E-01 -1.264402E+02 0.0 3.600000E-01 -2.287683E+01 0.0 3.800000E-01 4.540581E+02 0.0 4.000000E-01 1.054478E+03 0.0 4.200000E-01 1.449595E+03 0.0 4.400001E-01 1.004128E+03 0.0 4.600001E-01 2.350410E+02 0.0 4.800001E-01 -4.416172E+02 0.0 5.000001E-01 -9.099688E+02 0.0 5.200000E-01 -1.300289E+03 0.0 5.400000E-01 -1.568691E+03 0.0 5.600000E-01 -1.490492E+03 0.0 5.800000E-01 -9.835820E+02 0.0 6.000000E-01 -2.912090E+02 0.0 6.199999E-01 2.863037E+02 0.0 6.399999E-01 7.819810E+02 0.0 6.599999E-01 1.324305E+03 0.0 6.799999E-01 1.653856E+03 0.0 6.999999E-01 1.457966E+03 0.0 7.199998E-01 9.402651E+02 0.0 7.399998E-01 4.461816E+02 0.0 7.599998E-01 -8.787109E+01 0.0 7.799998E-01 -7.843047E+02 0.0 7.999998E-01 -1.387156E+03 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 121 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 3.988818E+01 0.0 2.000000E-02 1.163511E+02 0.0 4.000000E-02 1.729971E+02 0.0 6.000000E-02 1.152474E+02 0.0 8.000000E-02 -1.461797E+01 0.0 9.999999E-02 -1.075675E+02 0.0 1.200000E-01 -1.273840E+02 0.0 1.400000E-01 -1.477070E+02 0.0 1.600000E-01 -1.946426E+02 0.0 1.800000E-01 -1.899722E+02 0.0 2.000000E-01 -9.164575E+01 0.0 2.200000E-01 2.037115E+01 0.0 2.400000E-01 6.860205E+01 0.0 2.600000E-01 9.792285E+01 0.0 2.800000E-01 1.703154E+02 0.0 3.000000E-01 2.240181E+02 0.0 3.200000E-01 1.728503E+02 0.0 3.400000E-01 6.819678E+01 0.0 3.600000E-01 1.032190E+01 0.0 3.800000E-01 -2.459482E+02 0.0 4.000000E-01 -6.453523E+02 0.0 4.200000E-01 -9.065397E+02 0.0 4.400001E-01 -6.250718E+02 0.0 4.600001E-01 -1.217891E+02 0.0 4.800001E-01 2.780645E+02 0.0 5.000001E-01 5.399258E+02 0.0 5.200000E-01 7.839570E+02 0.0 5.400000E-01 9.589062E+02 0.0 5.600000E-01 9.169023E+02 0.0 5.800000E-01 6.035234E+02 0.0 6.000000E-01 1.612891E+02 0.0 6.199999E-01 -1.847197E+02 0.0 6.399999E-01 -4.522173E+02 0.0 6.599999E-01 -7.949966E+02 0.0 6.799999E-01 -1.036271E+03 0.0 6.999999E-01 -8.944902E+02 0.0 7.199998E-01 -5.413296E+02 0.0 7.399998E-01 -2.698340E+02 0.0 7.599998E-01 2.727539E+01 0.0 7.799998E-01 4.788867E+02 0.0 7.999998E-01 8.612383E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 122 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 2.206527E-08 0.0 2.000000E-02 -2.580571E-08 0.0 4.000000E-02 -3.998422E-09 0.0 6.000000E-02 -2.390700E-09 0.0 8.000000E-02 2.752596E-10 0.0 9.999999E-02 2.124915E-09 0.0 1.200000E-01 3.137145E-09 0.0 1.400000E-01 3.731549E-09 0.0 1.600000E-01 4.302315E-09 0.0 1.800000E-01 4.251083E-09 0.0 2.000000E-01 2.220800E-09 0.0 2.200000E-01 -3.827651E-10 0.0 2.400000E-01 -1.489825E-09 0.0 2.600000E-01 -2.448213E-09 0.0 2.800000E-01 -4.168341E-09 0.0 3.000000E-01 -4.865290E-09 0.0 3.200000E-01 -3.846137E-09 0.0 3.400000E-01 -1.988771E-09 0.0 3.600000E-01 -2.706106E-10 0.0 3.800000E-01 -1.816773E-07 0.0 4.000000E-01 2.023985E-07 0.0 4.200000E-01 2.175501E-08 0.0 4.400001E-01 1.354775E-08 0.0 4.600001E-01 2.582855E-09 0.0 4.800001E-01 -4.776261E-09 0.0 5.000001E-01 -1.343163E-08 0.0 5.200000E-01 -1.929604E-08 0.0 5.400000E-01 -2.077747E-08 0.0 5.600000E-01 -2.143898E-08 0.0 5.800000E-01 -1.472858E-08 0.0 6.000000E-01 -2.913009E-09 0.0 6.199999E-01 3.552601E-09 0.0 6.399999E-01 1.037028E-08 0.0 6.599999E-01 2.002822E-08 0.0 6.799999E-01 2.273766E-08 0.0 6.999999E-01 1.978167E-08 0.0 7.199998E-01 1.470562E-08 0.0 7.399998E-01 5.832471E-09 0.0 7.599998E-01 -2.125548E-09 0.0 7.799998E-01 -9.825230E-09 0.0 7.999998E-01 -2.002767E-08 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 123 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -3.988818E+01 0.0 2.000000E-02 -1.163511E+02 0.0 4.000000E-02 -1.729971E+02 0.0 6.000000E-02 -1.152474E+02 0.0 8.000000E-02 1.461797E+01 0.0 9.999999E-02 1.075675E+02 0.0 1.200000E-01 1.273840E+02 0.0 1.400000E-01 1.477070E+02 0.0 1.600000E-01 1.946426E+02 0.0 1.800000E-01 1.899722E+02 0.0 2.000000E-01 9.164575E+01 0.0 2.200000E-01 -2.037115E+01 0.0 2.400000E-01 -6.860205E+01 0.0 2.600000E-01 -9.792285E+01 0.0 2.800000E-01 -1.703154E+02 0.0 3.000000E-01 -2.240181E+02 0.0 3.200000E-01 -1.728503E+02 0.0 3.400000E-01 -6.819678E+01 0.0 3.600000E-01 -1.032190E+01 0.0 3.800000E-01 2.459482E+02 0.0 4.000000E-01 6.453523E+02 0.0 4.200000E-01 9.065397E+02 0.0 4.400001E-01 6.250718E+02 0.0 4.600001E-01 1.217891E+02 0.0 4.800001E-01 -2.780645E+02 0.0 5.000001E-01 -5.399258E+02 0.0 5.200000E-01 -7.839570E+02 0.0 5.400000E-01 -9.589062E+02 0.0 5.600000E-01 -9.169023E+02 0.0 5.800000E-01 -6.035234E+02 0.0 6.000000E-01 -1.612891E+02 0.0 6.199999E-01 1.847197E+02 0.0 6.399999E-01 4.522173E+02 0.0 6.599999E-01 7.949966E+02 0.0 6.799999E-01 1.036271E+03 0.0 6.999999E-01 8.944902E+02 0.0 7.199998E-01 5.413296E+02 0.0 7.399998E-01 2.698340E+02 0.0 7.599998E-01 -2.727539E+01 0.0 7.799998E-01 -4.788867E+02 0.0 7.999998E-01 -8.612383E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 131 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 1.673096E+01 0.0 2.000000E-02 5.655420E+01 0.0 4.000000E-02 8.779956E+01 0.0 6.000000E-02 6.007129E+01 0.0 8.000000E-02 -9.665489E+00 0.0 9.999999E-02 -5.643750E+01 0.0 1.200000E-01 -6.058252E+01 0.0 1.400000E-01 -6.866602E+01 0.0 1.600000E-01 -9.654883E+01 0.0 1.800000E-01 -9.699072E+01 0.0 2.000000E-01 -4.469556E+01 0.0 2.200000E-01 1.399420E+01 0.0 2.400000E-01 3.423523E+01 0.0 2.600000E-01 4.375928E+01 0.0 2.800000E-01 8.225488E+01 0.0 3.000000E-01 1.143276E+02 0.0 3.200000E-01 8.640894E+01 0.0 3.400000E-01 2.893188E+01 0.0 3.600000E-01 3.220398E+00 0.0 3.800000E-01 -1.061951E+02 0.0 4.000000E-01 -3.170850E+02 0.0 4.200000E-01 -4.571086E+02 0.0 4.400001E-01 -3.135112E+02 0.0 4.600001E-01 -4.858203E+01 0.0 4.800001E-01 1.408262E+02 0.0 5.000001E-01 2.572773E+02 0.0 5.200000E-01 3.812031E+02 0.0 5.400000E-01 4.725742E+02 0.0 5.600000E-01 4.536406E+02 0.0 5.800000E-01 2.986328E+02 0.0 6.000000E-01 7.192773E+01 0.0 6.199999E-01 -9.672754E+01 0.0 6.399999E-01 -2.101465E+02 0.0 6.599999E-01 -3.830493E+02 0.0 6.799999E-01 -5.236409E+02 0.0 6.999999E-01 -4.431145E+02 0.0 7.199998E-01 -2.485217E+02 0.0 7.399998E-01 -1.315088E+02 0.0 7.599998E-01 -1.253906E+00 0.0 7.799998E-01 2.368047E+02 0.0 7.999998E-01 4.314844E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 132 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 1.749678E-08 0.0 2.000000E-02 -2.046402E-08 0.0 4.000000E-02 -3.170925E-09 0.0 6.000000E-02 -1.895909E-09 0.0 8.000000E-02 2.182386E-10 0.0 9.999999E-02 1.685247E-09 0.0 1.200000E-01 2.488194E-09 0.0 1.400000E-01 2.959670E-09 0.0 1.600000E-01 3.412261E-09 0.0 1.800000E-01 3.371374E-09 0.0 2.000000E-01 1.761401E-09 0.0 2.200000E-01 -3.034180E-10 0.0 2.400000E-01 -1.181570E-09 0.0 2.600000E-01 -1.941853E-09 0.0 2.800000E-01 -3.305956E-09 0.0 3.000000E-01 -3.858721E-09 0.0 3.200000E-01 -3.050486E-09 0.0 3.400000E-01 -1.577431E-09 0.0 3.600000E-01 -2.146947E-10 0.0 3.800000E-01 -1.440676E-07 0.0 4.000000E-01 1.604986E-07 0.0 4.200000E-01 1.725090E-08 0.0 4.400001E-01 1.074135E-08 0.0 4.600001E-01 2.046077E-09 0.0 4.800001E-01 -3.791615E-09 0.0 5.000001E-01 -1.065463E-08 0.0 5.200000E-01 -1.530606E-08 0.0 5.400000E-01 -1.648282E-08 0.0 5.600000E-01 -1.700566E-08 0.0 5.800000E-01 -1.168344E-08 0.0 6.000000E-01 -2.314013E-09 0.0 6.199999E-01 2.815387E-09 0.0 6.399999E-01 8.222232E-09 0.0 6.599999E-01 1.588121E-08 0.0 6.799999E-01 1.803031E-08 0.0 6.999999E-01 1.568628E-08 0.0 7.199998E-01 1.166067E-08 0.0 7.399998E-01 4.622677E-09 0.0 7.599998E-01 -1.687770E-09 0.0 7.799998E-01 -7.794983E-09 0.0 7.999998E-01 -1.588740E-08 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 133 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -1.673096E+01 0.0 2.000000E-02 -5.655420E+01 0.0 4.000000E-02 -8.779956E+01 0.0 6.000000E-02 -6.007129E+01 0.0 8.000000E-02 9.665489E+00 0.0 9.999999E-02 5.643750E+01 0.0 1.200000E-01 6.058252E+01 0.0 1.400000E-01 6.866602E+01 0.0 1.600000E-01 9.654883E+01 0.0 1.800000E-01 9.699072E+01 0.0 2.000000E-01 4.469556E+01 0.0 2.200000E-01 -1.399420E+01 0.0 2.400000E-01 -3.423523E+01 0.0 2.600000E-01 -4.375928E+01 0.0 2.800000E-01 -8.225488E+01 0.0 3.000000E-01 -1.143276E+02 0.0 3.200000E-01 -8.640894E+01 0.0 3.400000E-01 -2.893188E+01 0.0 3.600000E-01 -3.220398E+00 0.0 3.800000E-01 1.061951E+02 0.0 4.000000E-01 3.170850E+02 0.0 4.200000E-01 4.571086E+02 0.0 4.400001E-01 3.135112E+02 0.0 4.600001E-01 4.858203E+01 0.0 4.800001E-01 -1.408262E+02 0.0 5.000001E-01 -2.572773E+02 0.0 5.200000E-01 -3.812031E+02 0.0 5.400000E-01 -4.725742E+02 0.0 5.600000E-01 -4.536406E+02 0.0 5.800000E-01 -2.986328E+02 0.0 6.000000E-01 -7.192773E+01 0.0 6.199999E-01 9.672754E+01 0.0 6.399999E-01 2.101465E+02 0.0 6.599999E-01 3.830493E+02 0.0 6.799999E-01 5.236409E+02 0.0 6.999999E-01 4.431145E+02 0.0 7.199998E-01 2.485217E+02 0.0 7.399998E-01 1.315088E+02 0.0 7.599998E-01 1.253906E+00 0.0 7.799998E-01 -2.368047E+02 0.0 7.999998E-01 -4.314844E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 141 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 4.077148E+00 0.0 2.000000E-02 1.660645E+01 0.0 4.000000E-02 2.704224E+01 0.0 6.000000E-02 1.901660E+01 0.0 8.000000E-02 -3.682602E+00 0.0 9.999999E-02 -1.798828E+01 0.0 1.200000E-01 -1.737524E+01 0.0 1.400000E-01 -1.915088E+01 0.0 1.600000E-01 -2.905518E+01 0.0 1.800000E-01 -3.006909E+01 0.0 2.000000E-01 -1.318335E+01 0.0 2.200000E-01 5.458527E+00 0.0 2.400000E-01 1.036218E+01 0.0 2.600000E-01 1.161694E+01 0.0 2.800000E-01 2.400879E+01 0.0 3.000000E-01 3.542285E+01 0.0 3.200000E-01 2.622729E+01 0.0 3.400000E-01 7.105957E+00 0.0 3.600000E-01 3.400879E-01 0.0 3.800000E-01 -2.703735E+01 0.0 4.000000E-01 -9.419092E+01 0.0 4.200000E-01 -1.398596E+02 0.0 4.400001E-01 -9.544336E+01 0.0 4.600001E-01 -1.080859E+01 0.0 4.800001E-01 4.335742E+01 0.0 5.000001E-01 7.394141E+01 0.0 5.200000E-01 1.121406E+02 0.0 5.400000E-01 1.412305E+02 0.0 5.600000E-01 1.360508E+02 0.0 5.800000E-01 8.952344E+01 0.0 6.000000E-01 1.910742E+01 0.0 6.199999E-01 -3.075781E+01 0.0 6.399999E-01 -5.871338E+01 0.0 6.599999E-01 -1.114601E+02 0.0 6.799999E-01 -1.606025E+02 0.0 6.999999E-01 -1.332314E+02 0.0 7.199998E-01 -6.818384E+01 0.0 7.399998E-01 -3.872461E+01 0.0 7.599998E-01 -5.330078E+00 0.0 7.799998E-01 7.103711E+01 0.0 7.999998E-01 1.313047E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 142 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 5.944054E-09 0.0 2.000000E-02 -6.950664E-09 0.0 4.000000E-02 -1.076629E-09 0.0 6.000000E-02 -6.437623E-10 0.0 8.000000E-02 7.416190E-11 0.0 9.999999E-02 5.721774E-10 0.0 1.200000E-01 8.446422E-10 0.0 1.400000E-01 1.004607E-09 0.0 1.600000E-01 1.158395E-09 0.0 1.800000E-01 1.144795E-09 0.0 2.000000E-01 5.979800E-10 0.0 2.200000E-01 -1.031251E-10 0.0 2.400000E-01 -4.011109E-10 0.0 2.600000E-01 -6.589777E-10 0.0 2.800000E-01 -1.122361E-09 0.0 3.000000E-01 -1.310037E-09 0.0 3.200000E-01 -1.035703E-09 0.0 3.400000E-01 -5.354311E-10 0.0 3.600000E-01 -7.282901E-11 0.0 3.800000E-01 -4.893729E-08 0.0 4.000000E-01 5.451838E-08 0.0 4.200000E-01 5.859968E-09 0.0 4.400001E-01 3.650137E-09 0.0 4.600001E-01 6.976957E-10 0.0 4.800001E-01 -1.283838E-09 0.0 5.000001E-01 -3.615066E-09 0.0 5.200000E-01 -5.193828E-09 0.0 5.400000E-01 -5.590598E-09 0.0 5.600000E-01 -5.771289E-09 0.0 5.800000E-01 -3.963795E-09 0.0 6.000000E-01 -7.819143E-10 0.0 6.199999E-01 9.583471E-10 0.0 6.399999E-01 2.794347E-09 0.0 6.599999E-01 5.394991E-09 0.0 6.799999E-01 6.125016E-09 0.0 6.999999E-01 5.327578E-09 0.0 7.199998E-01 3.962207E-09 0.0 7.399998E-01 1.572295E-09 0.0 7.599998E-01 -5.699994E-10 0.0 7.799998E-01 -2.642837E-09 0.0 7.999998E-01 -5.390670E-09 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 143 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -4.077148E+00 0.0 2.000000E-02 -1.660645E+01 0.0 4.000000E-02 -2.704224E+01 0.0 6.000000E-02 -1.901660E+01 0.0 8.000000E-02 3.682602E+00 0.0 9.999999E-02 1.798828E+01 0.0 1.200000E-01 1.737524E+01 0.0 1.400000E-01 1.915088E+01 0.0 1.600000E-01 2.905518E+01 0.0 1.800000E-01 3.006909E+01 0.0 2.000000E-01 1.318335E+01 0.0 2.200000E-01 -5.458527E+00 0.0 2.400000E-01 -1.036218E+01 0.0 2.600000E-01 -1.161694E+01 0.0 2.800000E-01 -2.400879E+01 0.0 3.000000E-01 -3.542285E+01 0.0 3.200000E-01 -2.622729E+01 0.0 3.400000E-01 -7.105957E+00 0.0 3.600000E-01 -3.400879E-01 0.0 3.800000E-01 2.703735E+01 0.0 4.000000E-01 9.419092E+01 0.0 4.200000E-01 1.398596E+02 0.0 4.400001E-01 9.544336E+01 0.0 4.600001E-01 1.080859E+01 0.0 4.800001E-01 -4.335742E+01 0.0 5.000001E-01 -7.394141E+01 0.0 5.200000E-01 -1.121406E+02 0.0 5.400000E-01 -1.412305E+02 0.0 5.600000E-01 -1.360508E+02 0.0 5.800000E-01 -8.952344E+01 0.0 6.000000E-01 -1.910742E+01 0.0 6.199999E-01 3.075781E+01 0.0 6.399999E-01 5.871338E+01 0.0 6.599999E-01 1.114601E+02 0.0 6.799999E-01 1.606025E+02 0.0 6.999999E-01 1.332314E+02 0.0 7.199998E-01 6.818384E+01 0.0 7.399998E-01 3.872461E+01 0.0 7.599998E-01 5.330078E+00 0.0 7.799998E-01 -7.103711E+01 0.0 7.999998E-01 -1.313047E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 211 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -4.466895E+01 0.0 2.000000E-02 -9.330664E+01 0.0 4.000000E-02 -1.243481E+02 0.0 6.000000E-02 -7.625391E+01 0.0 8.000000E-02 1.000732E+00 0.0 9.999999E-02 6.962402E+01 0.0 1.200000E-01 1.086821E+02 0.0 1.400000E-01 1.331240E+02 0.0 1.600000E-01 1.498154E+02 0.0 1.800000E-01 1.337998E+02 0.0 2.000000E-01 7.354590E+01 0.0 2.200000E-01 1.449707E+00 0.0 2.400000E-01 -5.211548E+01 0.0 2.600000E-01 -9.607666E+01 0.0 2.800000E-01 -1.396914E+02 0.0 3.000000E-01 -1.585195E+02 0.0 3.200000E-01 -1.304785E+02 0.0 3.400000E-01 -7.263818E+01 0.0 3.600000E-01 -1.591394E+01 0.0 3.800000E-01 2.583799E+02 0.0 4.000000E-01 5.043838E+02 0.0 4.200000E-01 6.677261E+02 0.0 4.400001E-01 4.653066E+02 0.0 4.600001E-01 1.406914E+02 0.0 4.800001E-01 -1.994844E+02 0.0 5.000001E-01 -4.568828E+02 0.0 5.200000E-01 -6.384688E+02 0.0 5.400000E-01 -7.506094E+02 0.0 5.600000E-01 -7.043516E+02 0.0 5.800000E-01 -4.688516E+02 0.0 6.000000E-01 -1.624688E+02 0.0 6.199999E-01 1.255312E+02 0.0 6.399999E-01 4.085586E+02 0.0 6.599999E-01 6.521353E+02 0.0 6.799999E-01 7.589351E+02 0.0 6.999999E-01 6.938799E+02 0.0 7.199998E-01 4.933818E+02 0.0 7.399998E-01 2.182227E+02 0.0 7.599998E-01 -7.644141E+01 0.0 7.799998E-01 -3.777500E+02 0.0 7.999998E-01 -6.461953E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 212 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 4.466895E+01 0.0 2.000000E-02 9.330664E+01 0.0 4.000000E-02 1.243481E+02 0.0 6.000000E-02 7.625391E+01 0.0 8.000000E-02 -1.000732E+00 0.0 9.999999E-02 -6.962402E+01 0.0 1.200000E-01 -1.086821E+02 0.0 1.400000E-01 -1.331240E+02 0.0 1.600000E-01 -1.498154E+02 0.0 1.800000E-01 -1.337998E+02 0.0 2.000000E-01 -7.354590E+01 0.0 2.200000E-01 -1.449707E+00 0.0 2.400000E-01 5.211548E+01 0.0 2.600000E-01 9.607666E+01 0.0 2.800000E-01 1.396914E+02 0.0 3.000000E-01 1.585195E+02 0.0 3.200000E-01 1.304785E+02 0.0 3.400000E-01 7.263818E+01 0.0 3.600000E-01 1.591394E+01 0.0 3.800000E-01 -2.583799E+02 0.0 4.000000E-01 -5.043838E+02 0.0 4.200000E-01 -6.677261E+02 0.0 4.400001E-01 -4.653066E+02 0.0 4.600001E-01 -1.406914E+02 0.0 4.800001E-01 1.994844E+02 0.0 5.000001E-01 4.568828E+02 0.0 5.200000E-01 6.384688E+02 0.0 5.400000E-01 7.506094E+02 0.0 5.600000E-01 7.043516E+02 0.0 5.800000E-01 4.688516E+02 0.0 6.000000E-01 1.624688E+02 0.0 6.199999E-01 -1.255312E+02 0.0 6.399999E-01 -4.085586E+02 0.0 6.599999E-01 -6.521353E+02 0.0 6.799999E-01 -7.589351E+02 0.0 6.999999E-01 -6.938799E+02 0.0 7.199998E-01 -4.933818E+02 0.0 7.399998E-01 -2.182227E+02 0.0 7.599998E-01 7.644141E+01 0.0 7.799998E-01 3.777500E+02 0.0 7.999998E-01 6.461953E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 221 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -2.929199E+01 0.0 2.000000E-02 -7.339844E+01 0.0 4.000000E-02 -1.036553E+02 0.0 6.000000E-02 -6.664404E+01 0.0 8.000000E-02 5.386902E+00 0.0 9.999999E-02 6.162207E+01 0.0 1.200000E-01 8.243262E+01 0.0 1.400000E-01 9.808203E+01 0.0 1.600000E-01 1.200117E+02 0.0 1.800000E-01 1.128477E+02 0.0 2.000000E-01 5.767236E+01 0.0 2.200000E-01 -6.583252E+00 0.0 2.400000E-01 -4.204785E+01 0.0 2.600000E-01 -6.769531E+01 0.0 2.800000E-01 -1.082725E+02 0.0 3.000000E-01 -1.332715E+02 0.0 3.200000E-01 -1.056045E+02 0.0 3.400000E-01 -4.936621E+01 0.0 3.600000E-01 -9.253662E+00 0.0 3.800000E-01 1.750249E+02 0.0 4.000000E-01 4.024590E+02 0.0 4.200000E-01 5.484199E+02 0.0 4.400001E-01 3.799922E+02 0.0 4.600001E-01 9.218359E+01 0.0 4.800001E-01 -1.664219E+02 0.0 5.000001E-01 -3.483047E+02 0.0 5.200000E-01 -4.958516E+02 0.0 5.400000E-01 -5.957344E+02 0.0 5.600000E-01 -5.659922E+02 0.0 5.800000E-01 -3.738516E+02 0.0 6.000000E-01 -1.122891E+02 0.0 6.199999E-01 1.072812E+02 0.0 6.399999E-01 3.001367E+02 0.0 6.599999E-01 5.060728E+02 0.0 6.799999E-01 6.251489E+02 0.0 6.999999E-01 5.528302E+02 0.0 7.199998E-01 3.626543E+02 0.0 7.399998E-01 1.703086E+02 0.0 7.599998E-01 -3.808594E+01 0.0 7.799998E-01 -2.976172E+02 0.0 7.999998E-01 -5.246875E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 222 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 2.929199E+01 0.0 2.000000E-02 7.339844E+01 0.0 4.000000E-02 1.036553E+02 0.0 6.000000E-02 6.664404E+01 0.0 8.000000E-02 -5.386902E+00 0.0 9.999999E-02 -6.162207E+01 0.0 1.200000E-01 -8.243262E+01 0.0 1.400000E-01 -9.808203E+01 0.0 1.600000E-01 -1.200117E+02 0.0 1.800000E-01 -1.128477E+02 0.0 2.000000E-01 -5.767236E+01 0.0 2.200000E-01 6.583252E+00 0.0 2.400000E-01 4.204785E+01 0.0 2.600000E-01 6.769531E+01 0.0 2.800000E-01 1.082725E+02 0.0 3.000000E-01 1.332715E+02 0.0 3.200000E-01 1.056045E+02 0.0 3.400000E-01 4.936621E+01 0.0 3.600000E-01 9.253662E+00 0.0 3.800000E-01 -1.750249E+02 0.0 4.000000E-01 -4.024590E+02 0.0 4.200000E-01 -5.484199E+02 0.0 4.400001E-01 -3.799922E+02 0.0 4.600001E-01 -9.218359E+01 0.0 4.800001E-01 1.664219E+02 0.0 5.000001E-01 3.483047E+02 0.0 5.200000E-01 4.958516E+02 0.0 5.400000E-01 5.957344E+02 0.0 5.600000E-01 5.659922E+02 0.0 5.800000E-01 3.738516E+02 0.0 6.000000E-01 1.122891E+02 0.0 6.199999E-01 -1.072812E+02 0.0 6.399999E-01 -3.001367E+02 0.0 6.599999E-01 -5.060728E+02 0.0 6.799999E-01 -6.251489E+02 0.0 6.999999E-01 -5.528302E+02 0.0 7.199998E-01 -3.626543E+02 0.0 7.399998E-01 -1.703086E+02 0.0 7.599998E-01 3.808594E+01 0.0 7.799998E-01 2.976172E+02 0.0 7.999998E-01 5.246875E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 231 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -1.628516E+01 0.0 2.000000E-02 -4.863965E+01 0.0 4.000000E-02 -7.286426E+01 0.0 6.000000E-02 -4.873877E+01 0.0 8.000000E-02 6.498291E+00 0.0 9.999999E-02 4.552002E+01 0.0 1.200000E-01 5.304590E+01 0.0 1.400000E-01 6.134863E+01 0.0 1.600000E-01 8.163672E+01 0.0 1.800000E-01 8.002148E+01 0.0 2.000000E-01 3.835840E+01 0.0 2.200000E-01 -9.061768E+00 0.0 2.400000E-01 -2.884326E+01 0.0 2.600000E-01 -4.039551E+01 0.0 2.800000E-01 -7.108691E+01 0.0 3.000000E-01 -9.443457E+01 0.0 3.200000E-01 -7.260352E+01 0.0 3.400000E-01 -2.787988E+01 0.0 3.600000E-01 -4.085693E+00 0.0 3.800000E-01 1.003223E+02 0.0 4.000000E-01 2.705791E+02 0.0 4.200000E-01 3.817832E+02 0.0 4.400001E-01 2.625762E+02 0.0 4.600001E-01 4.893750E+01 0.0 4.800001E-01 -1.166328E+02 0.0 5.000001E-01 -2.247500E+02 0.0 5.200000E-01 -3.283125E+02 0.0 5.400000E-01 -4.016250E+02 0.0 5.600000E-01 -3.839062E+02 0.0 5.800000E-01 -2.534922E+02 0.0 6.000000E-01 -6.675000E+01 0.0 6.199999E-01 7.879297E+01 0.0 6.399999E-01 1.875000E+02 0.0 6.599999E-01 3.313745E+02 0.0 6.799999E-01 4.365054E+02 0.0 6.999999E-01 3.752050E+02 0.0 7.199998E-01 2.236230E+02 0.0 7.399998E-01 1.131758E+02 0.0 7.599998E-01 -8.960938E+00 0.0 7.799998E-01 -2.013828E+02 0.0 7.999998E-01 -3.618125E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 232 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 1.628516E+01 0.0 2.000000E-02 4.863965E+01 0.0 4.000000E-02 7.286426E+01 0.0 6.000000E-02 4.873877E+01 0.0 8.000000E-02 -6.498291E+00 0.0 9.999999E-02 -4.552002E+01 0.0 1.200000E-01 -5.304590E+01 0.0 1.400000E-01 -6.134863E+01 0.0 1.600000E-01 -8.163672E+01 0.0 1.800000E-01 -8.002148E+01 0.0 2.000000E-01 -3.835840E+01 0.0 2.200000E-01 9.061768E+00 0.0 2.400000E-01 2.884326E+01 0.0 2.600000E-01 4.039551E+01 0.0 2.800000E-01 7.108691E+01 0.0 3.000000E-01 9.443457E+01 0.0 3.200000E-01 7.260352E+01 0.0 3.400000E-01 2.787988E+01 0.0 3.600000E-01 4.085693E+00 0.0 3.800000E-01 -1.003223E+02 0.0 4.000000E-01 -2.705791E+02 0.0 4.200000E-01 -3.817832E+02 0.0 4.400001E-01 -2.625762E+02 0.0 4.600001E-01 -4.893750E+01 0.0 4.800001E-01 1.166328E+02 0.0 5.000001E-01 2.247500E+02 0.0 5.200000E-01 3.283125E+02 0.0 5.400000E-01 4.016250E+02 0.0 5.600000E-01 3.839062E+02 0.0 5.800000E-01 2.534922E+02 0.0 6.000000E-01 6.675000E+01 0.0 6.199999E-01 -7.879297E+01 0.0 6.399999E-01 -1.875000E+02 0.0 6.599999E-01 -3.313745E+02 0.0 6.799999E-01 -4.365054E+02 0.0 6.999999E-01 -3.752050E+02 0.0 7.199998E-01 -2.236230E+02 0.0 7.399998E-01 -1.131758E+02 0.0 7.599998E-01 8.960938E+00 0.0 7.799998E-01 2.013828E+02 0.0 7.999998E-01 3.618125E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 241 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 -5.470703E+00 0.0 2.000000E-02 -1.981250E+01 0.0 4.000000E-02 -3.143066E+01 0.0 6.000000E-02 -2.176660E+01 0.0 8.000000E-02 3.821655E+00 0.0 9.999999E-02 2.050879E+01 0.0 1.200000E-01 2.102930E+01 0.0 1.400000E-01 2.358398E+01 0.0 1.600000E-01 3.423047E+01 0.0 1.800000E-01 3.479883E+01 0.0 2.000000E-01 1.570703E+01 0.0 2.200000E-01 -5.563721E+00 0.0 2.400000E-01 -1.218066E+01 0.0 2.600000E-01 -1.474121E+01 0.0 2.800000E-01 -2.875000E+01 0.0 3.000000E-01 -4.103906E+01 0.0 3.200000E-01 -3.075977E+01 0.0 3.400000E-01 -9.419922E+00 0.0 3.600000E-01 -8.227539E-01 0.0 3.800000E-01 3.506836E+01 0.0 4.000000E-01 1.117280E+02 0.0 4.200000E-01 1.633606E+02 0.0 4.400001E-01 1.116523E+02 0.0 4.600001E-01 1.510156E+01 0.0 4.800001E-01 -5.028906E+01 0.0 5.000001E-01 -8.929688E+01 0.0 5.200000E-01 -1.340312E+02 0.0 5.400000E-01 -1.670156E+02 0.0 5.600000E-01 -1.602812E+02 0.0 5.800000E-01 -1.058125E+02 0.0 6.000000E-01 -2.440625E+01 0.0 6.199999E-01 3.539844E+01 0.0 6.399999E-01 7.220703E+01 0.0 6.599999E-01 1.335178E+02 0.0 6.799999E-01 1.873306E+02 0.0 6.999999E-01 1.571729E+02 0.0 7.199998E-01 8.437695E+01 0.0 7.399998E-01 4.625781E+01 0.0 7.599998E-01 3.289062E+00 0.0 7.799998E-01 -8.415625E+01 0.0 7.999998E-01 -1.537656E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 ELEMENT-ID = 242 S T R E S S E S I N R O D E L E M E N T S ( C R O D ) AXIAL SAFETY TORSIONAL SAFETY AXIAL SAFETY TORSIONAL SAFETY TIME STRESS MARGIN STRESS MARGIN TIME STRESS MARGIN STRESS MARGIN 0.0 5.470703E+00 0.0 2.000000E-02 1.981250E+01 0.0 4.000000E-02 3.143066E+01 0.0 6.000000E-02 2.176660E+01 0.0 8.000000E-02 -3.821655E+00 0.0 9.999999E-02 -2.050879E+01 0.0 1.200000E-01 -2.102930E+01 0.0 1.400000E-01 -2.358398E+01 0.0 1.600000E-01 -3.423047E+01 0.0 1.800000E-01 -3.479883E+01 0.0 2.000000E-01 -1.570703E+01 0.0 2.200000E-01 5.563721E+00 0.0 2.400000E-01 1.218066E+01 0.0 2.600000E-01 1.474121E+01 0.0 2.800000E-01 2.875000E+01 0.0 3.000000E-01 4.103906E+01 0.0 3.200000E-01 3.075977E+01 0.0 3.400000E-01 9.419922E+00 0.0 3.600000E-01 8.227539E-01 0.0 3.800000E-01 -3.506836E+01 0.0 4.000000E-01 -1.117280E+02 0.0 4.200000E-01 -1.633606E+02 0.0 4.400001E-01 -1.116523E+02 0.0 4.600001E-01 -1.510156E+01 0.0 4.800001E-01 5.028906E+01 0.0 5.000001E-01 8.929688E+01 0.0 5.200000E-01 1.340312E+02 0.0 5.400000E-01 1.670156E+02 0.0 5.600000E-01 1.602812E+02 0.0 5.800000E-01 1.058125E+02 0.0 6.000000E-01 2.440625E+01 0.0 6.199999E-01 -3.539844E+01 0.0 6.399999E-01 -7.220703E+01 0.0 6.599999E-01 -1.335178E+02 0.0 6.799999E-01 -1.873306E+02 0.0 6.999999E-01 -1.571729E+02 0.0 7.199998E-01 -8.437695E+01 0.0 7.399998E-01 -4.625781E+01 0.0 7.599998E-01 -3.289062E+00 0.0 7.799998E-01 8.415625E+01 0.0 7.999998E-01 1.537656E+02 0.0 1 TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A 0 RECOVER BBASIC , RUN 6, PHASE 3, RF 9 S U B S T R U C T U R E O P E R A T I N G F I L E T A B L E O F C O N T E N T S E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL -------------------------------------------------------------------------------- 1 ABASIC B 0 0 0 0 3 3 3 3 3 3 3 3 3 3 4 3 3 3 3 2 BBASIC B 0 0 0 0 4 3 3 3 3 3 3 3 3 3 4 3 3 3 3 3 MA M 0 0 1 4 5 3 3 3 3 3 3 3 4 3 4 MB M 0 0 2 3 5 3 3 3 3 3 3 3 4 3 5 MCOMB C 0 0 3 0 6 3 3 3 3 3 3 3 3 3 3 4 3 3 3 3 6 RTRUSS M 0 0 5 0 0 3 3 3 3 3 3 3 4 3 SIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDICATES DATA IS STORED IN PRIMARY) 0*** UNUSED SPACE ON SOF = 386048 WORDS. OR = 377 BLOCKS. OR = 77 PERCENT. 0*** HIGHEST BLOCK USED = 111 * * * END OF JOB * * * 1 JOB TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS DATE: 5/17/95 END TIME: 15:29:45 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d03011a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03011A,NASTRAN APP DISPLACEMENT SOL 3,1 TIME 35 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = VIBRATIONS OF A 10 BY 20 PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 3 $ 4 SPC = 37 5 METHOD = 5 $ ENCLOSE 2 MODES - FINDS 3 ROOTS 6 $ ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL) 7 $ MODE M N FREQ 8 $ 1 1 1 9.068997E-1 9 $ 2 1 2 2.267249 10 $ 5 1 3 4.534498 11 $ 6 3 1 4.534498 12 $ 7 3 2 5.894848 13 $ 9 1 4 7.708647 14 $ 15 OUTPUT 16 SET 1 = 1 THRU 11, 34 THRU 44, 56 THRU 66, 78 THRU 88, 111 THRU 121 17 SET 2 = 1 THRU 12, 22,23,33,34,44,45,55,56,66,67,77,78,88,89, 18 99,100, 110 THRU 121 19 DISPLACEMENTS = 1 20 SPCFORCE = 2 21 $ 22 $ 23 $ 24 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 25 OUTPUT(PLOT) 26 PLOTTER NASTPLT 27 SET 1 INCLUDE PLOTEL 28 SET 2 INCLUDE QUAD1 29 MAXIMUM DEFORMATION 1.0 30 FIND SCALE, ORIGIN 10 31 PTITLE = ALL QUADS IN THE PLATE 32 PLOT ORIGIN 10, SET 2, LABELS 33 PLOT SET 2,SHRINK .6,NOFIND 34 PLOT SET 2,HIDDEN,NOFIND 35 FIND SCALE, ORIGIN 11 36 PTITLE = MODE SHAPES USING PLOTEL ELEMENTS 37 PLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE 38 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 520, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CNGRNT 1 2 THRU 219 2- CQUAD1 1 23 1 2 13 12 .00 3- CQUAD1 2 23 2 3 14 13 .00 4- CQUAD1 3 23 3 4 15 14 .00 5- CQUAD1 4 23 4 5 16 15 .00 6- CQUAD1 5 23 5 6 17 16 .00 7- CQUAD1 6 23 6 7 18 17 .00 8- CQUAD1 7 23 7 8 19 18 .00 9- CQUAD1 8 23 8 9 20 19 .00 10- CQUAD1 9 23 9 10 21 20 .00 11- CQUAD1 10 23 10 11 22 21 .00 12- CQUAD1 12 23 12 13 24 23 .00 13- CQUAD1 13 23 13 14 25 24 .00 14- CQUAD1 14 23 14 15 26 25 .00 15- CQUAD1 15 23 15 16 27 26 .00 16- CQUAD1 16 23 16 17 28 27 .00 17- CQUAD1 17 23 17 18 29 28 .00 18- CQUAD1 18 23 18 19 30 29 .00 19- CQUAD1 19 23 19 20 31 30 .00 20- CQUAD1 20 23 20 21 32 31 .00 21- CQUAD1 21 23 21 22 33 32 .00 22- CQUAD1 23 23 23 24 35 34 .00 23- CQUAD1 24 23 24 25 36 35 .00 24- CQUAD1 25 23 25 26 37 36 .00 25- CQUAD1 26 23 26 27 38 37 .00 26- CQUAD1 27 23 27 28 39 38 .00 27- CQUAD1 28 23 28 29 40 39 .00 28- CQUAD1 29 23 29 30 41 40 .00 29- CQUAD1 30 23 30 31 42 41 .00 30- CQUAD1 31 23 31 32 43 42 .00 31- CQUAD1 32 23 32 33 44 43 .00 32- CQUAD1 34 23 34 35 46 45 .00 33- CQUAD1 35 23 35 36 47 46 .00 34- CQUAD1 36 23 36 37 48 47 .00 35- CQUAD1 37 23 37 38 49 48 .00 36- CQUAD1 38 23 38 39 50 49 .00 37- CQUAD1 39 23 39 40 51 50 .00 38- CQUAD1 40 23 40 41 52 51 .00 39- CQUAD1 41 23 41 42 53 52 .00 40- CQUAD1 42 23 42 43 54 53 .00 41- CQUAD1 43 23 43 44 55 54 .00 42- CQUAD1 45 23 45 46 57 56 .00 43- CQUAD1 46 23 46 47 58 57 .00 44- CQUAD1 47 23 47 48 59 58 .00 45- CQUAD1 48 23 48 49 60 59 .00 46- CQUAD1 49 23 49 50 61 60 .00 47- CQUAD1 50 23 50 51 62 61 .00 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQUAD1 51 23 51 52 63 62 .00 49- CQUAD1 52 23 52 53 64 63 .00 50- CQUAD1 53 23 53 54 65 64 .00 51- CQUAD1 54 23 54 55 66 65 .00 52- CQUAD1 56 23 56 57 68 67 .00 53- CQUAD1 57 23 57 58 69 68 .00 54- CQUAD1 58 23 58 59 70 69 .00 55- CQUAD1 59 23 59 60 71 70 .00 56- CQUAD1 60 23 60 61 72 71 .00 57- CQUAD1 61 23 61 62 73 72 .00 58- CQUAD1 62 23 62 63 74 73 .00 59- CQUAD1 63 23 63 64 75 74 .00 60- CQUAD1 64 23 64 65 76 75 .00 61- CQUAD1 65 23 65 66 77 76 .00 62- CQUAD1 67 23 67 68 79 78 .00 63- CQUAD1 68 23 68 69 80 79 .00 64- CQUAD1 69 23 69 70 81 80 .00 65- CQUAD1 70 23 70 71 82 81 .00 66- CQUAD1 71 23 71 72 83 82 .00 67- CQUAD1 72 23 72 73 84 83 .00 68- CQUAD1 73 23 73 74 85 84 .00 69- CQUAD1 74 23 74 75 86 85 .00 70- CQUAD1 75 23 75 76 87 86 .00 71- CQUAD1 76 23 76 77 88 87 .00 72- CQUAD1 78 23 78 79 90 89 .00 73- CQUAD1 79 23 79 80 91 90 .00 74- CQUAD1 80 23 80 81 92 91 .00 75- CQUAD1 81 23 81 82 93 92 .00 76- CQUAD1 82 23 82 83 94 93 .00 77- CQUAD1 83 23 83 84 95 94 .00 78- CQUAD1 84 23 84 85 96 95 .00 79- CQUAD1 85 23 85 86 97 96 .00 80- CQUAD1 86 23 86 87 98 97 .00 81- CQUAD1 87 23 87 88 99 98 .00 82- CQUAD1 89 23 89 90 101 100 .00 83- CQUAD1 90 23 90 91 102 101 .00 84- CQUAD1 91 23 91 92 103 102 .00 85- CQUAD1 92 23 92 93 104 103 .00 86- CQUAD1 93 23 93 94 105 104 .00 87- CQUAD1 94 23 94 95 106 105 .00 88- CQUAD1 95 23 95 96 107 106 .00 89- CQUAD1 96 23 96 97 108 107 .00 90- CQUAD1 97 23 97 98 109 108 .00 91- CQUAD1 98 23 98 99 110 109 .00 92- CQUAD1 100 23 100 101 112 111 .00 93- CQUAD1 101 23 101 102 113 112 .00 94- CQUAD1 102 23 102 103 114 113 .00 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CQUAD1 103 23 103 104 115 114 .00 96- CQUAD1 104 23 104 105 116 115 .00 97- CQUAD1 105 23 105 106 117 116 .00 98- CQUAD1 106 23 106 107 118 117 .00 99- CQUAD1 107 23 107 108 119 118 .00 100- CQUAD1 108 23 108 109 120 119 .00 101- CQUAD1 109 23 109 110 121 120 .00 102- CQUAD1 111 23 111 112 123 122 .00 103- CQUAD1 112 23 112 113 124 123 .00 104- CQUAD1 113 23 113 114 125 124 .00 105- CQUAD1 114 23 114 115 126 125 .00 106- CQUAD1 115 23 115 116 127 126 .00 107- CQUAD1 116 23 116 117 128 127 .00 108- CQUAD1 117 23 117 118 129 128 .00 109- CQUAD1 118 23 118 119 130 129 .00 110- CQUAD1 119 23 119 120 131 130 .00 111- CQUAD1 120 23 120 121 132 131 .00 112- CQUAD1 122 23 122 123 134 133 .00 113- CQUAD1 123 23 123 124 135 134 .00 114- CQUAD1 124 23 124 125 136 135 .00 115- CQUAD1 125 23 125 126 137 136 .00 116- CQUAD1 126 23 126 127 138 137 .00 117- CQUAD1 127 23 127 128 139 138 .00 118- CQUAD1 128 23 128 129 140 139 .00 119- CQUAD1 129 23 129 130 141 140 .00 120- CQUAD1 130 23 130 131 142 141 .00 121- CQUAD1 131 23 131 132 143 142 .00 122- CQUAD1 133 23 133 134 145 144 .00 123- CQUAD1 134 23 134 135 146 145 .00 124- CQUAD1 135 23 135 136 147 146 .00 125- CQUAD1 136 23 136 137 148 147 .00 126- CQUAD1 137 23 137 138 149 148 .00 127- CQUAD1 138 23 138 139 150 149 .00 128- CQUAD1 139 23 139 140 151 150 .00 129- CQUAD1 140 23 140 141 152 151 .00 130- CQUAD1 141 23 141 142 153 152 .00 131- CQUAD1 142 23 142 143 154 153 .00 132- CQUAD1 144 23 144 145 156 155 .00 133- CQUAD1 145 23 145 146 157 156 .00 134- CQUAD1 146 23 146 147 158 157 .00 135- CQUAD1 147 23 147 148 159 158 .00 136- CQUAD1 148 23 148 149 160 159 .00 137- CQUAD1 149 23 149 150 161 160 .00 138- CQUAD1 150 23 150 151 162 161 .00 139- CQUAD1 151 23 151 152 163 162 .00 140- CQUAD1 152 23 152 153 164 163 .00 141- CQUAD1 153 23 153 154 165 164 .00 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CQUAD1 155 23 155 156 167 166 .00 143- CQUAD1 156 23 156 157 168 167 .00 144- CQUAD1 157 23 157 158 169 168 .00 145- CQUAD1 158 23 158 159 170 169 .00 146- CQUAD1 159 23 159 160 171 170 .00 147- CQUAD1 160 23 160 161 172 171 .00 148- CQUAD1 161 23 161 162 173 172 .00 149- CQUAD1 162 23 162 163 174 173 .00 150- CQUAD1 163 23 163 164 175 174 .00 151- CQUAD1 164 23 164 165 176 175 .00 152- CQUAD1 166 23 166 167 178 177 .00 153- CQUAD1 167 23 167 168 179 178 .00 154- CQUAD1 168 23 168 169 180 179 .00 155- CQUAD1 169 23 169 170 181 180 .00 156- CQUAD1 170 23 170 171 182 181 .00 157- CQUAD1 171 23 171 172 183 182 .00 158- CQUAD1 172 23 172 173 184 183 .00 159- CQUAD1 173 23 173 174 185 184 .00 160- CQUAD1 174 23 174 175 186 185 .00 161- CQUAD1 175 23 175 176 187 186 .00 162- CQUAD1 177 23 177 178 189 188 .00 163- CQUAD1 178 23 178 179 190 189 .00 164- CQUAD1 179 23 179 180 191 190 .00 165- CQUAD1 180 23 180 181 192 191 .00 166- CQUAD1 181 23 181 182 193 192 .00 167- CQUAD1 182 23 182 183 194 193 .00 168- CQUAD1 183 23 183 184 195 194 .00 169- CQUAD1 184 23 184 185 196 195 .00 170- CQUAD1 185 23 185 186 197 196 .00 171- CQUAD1 186 23 186 187 198 197 .00 172- CQUAD1 188 23 188 189 200 199 .00 173- CQUAD1 189 23 189 190 201 200 .00 174- CQUAD1 190 23 190 191 202 201 .00 175- CQUAD1 191 23 191 192 203 202 .00 176- CQUAD1 192 23 192 193 204 203 .00 177- CQUAD1 193 23 193 194 205 204 .00 178- CQUAD1 194 23 194 195 206 205 .00 179- CQUAD1 195 23 195 196 207 206 .00 180- CQUAD1 196 23 196 197 208 207 .00 181- CQUAD1 197 23 197 198 209 208 .00 182- CQUAD1 199 23 199 200 211 210 .00 183- CQUAD1 200 23 200 201 212 211 .00 184- CQUAD1 201 23 201 202 213 212 .00 185- CQUAD1 202 23 202 203 214 213 .00 186- CQUAD1 203 23 203 204 215 214 .00 187- CQUAD1 204 23 204 205 216 215 .00 188- CQUAD1 205 23 205 206 217 216 .00 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CQUAD1 206 23 206 207 218 217 .00 190- CQUAD1 207 23 207 208 219 218 .00 191- CQUAD1 208 23 208 209 220 219 .00 192- CQUAD1 210 23 210 211 222 221 .00 193- CQUAD1 211 23 211 212 223 222 .00 194- CQUAD1 212 23 212 213 224 223 .00 195- CQUAD1 213 23 213 214 225 224 .00 196- CQUAD1 214 23 214 215 226 225 .00 197- CQUAD1 215 23 215 216 227 226 .00 198- CQUAD1 216 23 216 217 228 227 .00 199- CQUAD1 217 23 217 218 229 228 .00 200- CQUAD1 218 23 218 219 230 229 .00 201- CQUAD1 219 23 219 220 231 230 .00 202- EIGR 2 INV .85 .89 1 1 0 CSIMPL-I 203- +SIMPL-IMAX 204- EIGR 3 INV .89 1.0 1 3 0 +EIG3-1 205- +EIG3-1 MAX 206- EIGR 4 DET .89 1.0 1 1 0 +EIG4-1 207- +EIG4-1 MAX 208- EIGR 5 INV .89 2.4 1 3 0 +EIG5-2 209- +EIG5-2 MAX 210- EIGR 6 DET .89 2.4 2 2 0 +EIG6-2 211- +EIG6-2 MAX 212- EIGR 7 INV .89 6.1 5 5 0 +EIG7-5 213- +EIG7-5 MAX 214- EIGR 8 DET .89 6.1 5 5 0 +EIG8-5 215- +EIG8-5 MAX 216- EIGR 9 INV .89 14.5 4 10 0 +EIG9-10 217- +EIG9-10MAX 218- EIGR 10 DET .89 14.5 5 5 0 +EIG1010 219- +EIG1010MAX 220- EIGR 11 INV .89 29.0 20 20 0 +EIG1120 221- +EIG1120MAX 222- EIGR 12 DET .89 29.0 20 20 0 +EIG1220 223- +EIG1220MAX 224- GRDSET 126 225- GRID 1 .00000 .00000 .00000 226- GRID 2 1.00000 .00000 .00000 227- GRID 3 2.00000 .00000 .00000 228- GRID 4 3.00000 .00000 .00000 229- GRID 5 4.00000 .00000 .00000 230- GRID 6 5.00000 .00000 .00000 231- GRID 7 6.00000 .00000 .00000 232- GRID 8 7.00000 .00000 .00000 233- GRID 9 8.00000 .00000 .00000 234- GRID 10 9.00000 .00000 .00000 235- GRID 11 10.00000.00000 .00000 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- GRID 12 .00000 1.00000 .00000 237- GRID 13 1.00000 1.00000 .00000 238- GRID 14 2.00000 1.00000 .00000 239- GRID 15 3.00000 1.00000 .00000 240- GRID 16 4.00000 1.00000 .00000 241- GRID 17 5.00000 1.00000 .00000 242- GRID 18 6.00000 1.00000 .00000 243- GRID 19 7.00000 1.00000 .00000 244- GRID 20 8.00000 1.00000 .00000 245- GRID 21 9.00000 1.00000 .00000 246- GRID 22 10.000001.00000 .00000 247- GRID 23 .00000 2.00000 .00000 248- GRID 24 1.00000 2.00000 .00000 249- GRID 25 2.00000 2.00000 .00000 250- GRID 26 3.00000 2.00000 .00000 251- GRID 27 4.00000 2.00000 .00000 252- GRID 28 5.00000 2.00000 .00000 253- GRID 29 6.00000 2.00000 .00000 254- GRID 30 7.00000 2.00000 .00000 255- GRID 31 8.00000 2.00000 .00000 256- GRID 32 9.00000 2.00000 .00000 257- GRID 33 10.000002.00000 .00000 258- GRID 34 .00000 3.00000 .00000 259- GRID 35 1.00000 3.00000 .00000 260- GRID 36 2.00000 3.00000 .00000 261- GRID 37 3.00000 3.00000 .00000 262- GRID 38 4.00000 3.00000 .00000 263- GRID 39 5.00000 3.00000 .00000 264- GRID 40 6.00000 3.00000 .00000 265- GRID 41 7.00000 3.00000 .00000 266- GRID 42 8.00000 3.00000 .00000 267- GRID 43 9.00000 3.00000 .00000 268- GRID 44 10.000003.00000 .00000 269- GRID 45 .00000 4.00000 .00000 270- GRID 46 1.00000 4.00000 .00000 271- GRID 47 2.00000 4.00000 .00000 272- GRID 48 3.00000 4.00000 .00000 273- GRID 49 4.00000 4.00000 .00000 274- GRID 50 5.00000 4.00000 .00000 275- GRID 51 6.00000 4.00000 .00000 276- GRID 52 7.00000 4.00000 .00000 277- GRID 53 8.00000 4.00000 .00000 278- GRID 54 9.00000 4.00000 .00000 279- GRID 55 10.000004.00000 .00000 280- GRID 56 .00000 5.00000 .00000 281- GRID 57 1.00000 5.00000 .00000 282- GRID 58 2.00000 5.00000 .00000 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- GRID 59 3.00000 5.00000 .00000 284- GRID 60 4.00000 5.00000 .00000 285- GRID 61 5.00000 5.00000 .00000 286- GRID 62 6.00000 5.00000 .00000 287- GRID 63 7.00000 5.00000 .00000 288- GRID 64 8.00000 5.00000 .00000 289- GRID 65 9.00000 5.00000 .00000 290- GRID 66 10.000005.00000 .00000 291- GRID 67 .00000 6.00000 .00000 292- GRID 68 1.00000 6.00000 .00000 293- GRID 69 2.00000 6.00000 .00000 294- GRID 70 3.00000 6.00000 .00000 295- GRID 71 4.00000 6.00000 .00000 296- GRID 72 5.00000 6.00000 .00000 297- GRID 73 6.00000 6.00000 .00000 298- GRID 74 7.00000 6.00000 .00000 299- GRID 75 8.00000 6.00000 .00000 300- GRID 76 9.00000 6.00000 .00000 301- GRID 77 10.000006.00000 .00000 302- GRID 78 .00000 7.00000 .00000 303- GRID 79 1.00000 7.00000 .00000 304- GRID 80 2.00000 7.00000 .00000 305- GRID 81 3.00000 7.00000 .00000 306- GRID 82 4.00000 7.00000 .00000 307- GRID 83 5.00000 7.00000 .00000 308- GRID 84 6.00000 7.00000 .00000 309- GRID 85 7.00000 7.00000 .00000 310- GRID 86 8.00000 7.00000 .00000 311- GRID 87 9.00000 7.00000 .00000 312- GRID 88 10.000007.00000 .00000 313- GRID 89 .00000 8.00000 .00000 314- GRID 90 1.00000 8.00000 .00000 315- GRID 91 2.00000 8.00000 .00000 316- GRID 92 3.00000 8.00000 .00000 317- GRID 93 4.00000 8.00000 .00000 318- GRID 94 5.00000 8.00000 .00000 319- GRID 95 6.00000 8.00000 .00000 320- GRID 96 7.00000 8.00000 .00000 321- GRID 97 8.00000 8.00000 .00000 322- GRID 98 9.00000 8.00000 .00000 323- GRID 99 10.000008.00000 .00000 324- GRID 100 .00000 9.00000 .00000 325- GRID 101 1.00000 9.00000 .00000 326- GRID 102 2.00000 9.00000 .00000 327- GRID 103 3.00000 9.00000 .00000 328- GRID 104 4.00000 9.00000 .00000 329- GRID 105 5.00000 9.00000 .00000 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- GRID 106 6.00000 9.00000 .00000 331- GRID 107 7.00000 9.00000 .00000 332- GRID 108 8.00000 9.00000 .00000 333- GRID 109 9.00000 9.00000 .00000 334- GRID 110 10.000009.00000 .00000 335- GRID 111 .00000 10.00000.00000 336- GRID 112 1.00000 10.00000.00000 337- GRID 113 2.00000 10.00000.00000 338- GRID 114 3.00000 10.00000.00000 339- GRID 115 4.00000 10.00000.00000 340- GRID 116 5.00000 10.00000.00000 341- GRID 117 6.00000 10.00000.00000 342- GRID 118 7.00000 10.00000.00000 343- GRID 119 8.00000 10.00000.00000 344- GRID 120 9.00000 10.00000.00000 345- GRID 121 10.0000010.00000.00000 346- GRID 122 .00000 11.00000.00000 347- GRID 123 1.00000 11.00000.00000 348- GRID 124 2.00000 11.00000.00000 349- GRID 125 3.00000 11.00000.00000 350- GRID 126 4.00000 11.00000.00000 351- GRID 127 5.00000 11.00000.00000 352- GRID 128 6.00000 11.00000.00000 353- GRID 129 7.00000 11.00000.00000 354- GRID 130 8.00000 11.00000.00000 355- GRID 131 9.00000 11.00000.00000 356- GRID 132 10.0000011.00000.00000 357- GRID 133 .00000 12.00000.00000 358- GRID 134 1.00000 12.00000.00000 359- GRID 135 2.00000 12.00000.00000 360- GRID 136 3.00000 12.00000.00000 361- GRID 137 4.00000 12.00000.00000 362- GRID 138 5.00000 12.00000.00000 363- GRID 139 6.00000 12.00000.00000 364- GRID 140 7.00000 12.00000.00000 365- GRID 141 8.00000 12.00000.00000 366- GRID 142 9.00000 12.00000.00000 367- GRID 143 10.0000012.00000.00000 368- GRID 144 .00000 13.00000.00000 369- GRID 145 1.00000 13.00000.00000 370- GRID 146 2.00000 13.00000.00000 371- GRID 147 3.00000 13.00000.00000 372- GRID 148 4.00000 13.00000.00000 373- GRID 149 5.00000 13.00000.00000 374- GRID 150 6.00000 13.00000.00000 375- GRID 151 7.00000 13.00000.00000 376- GRID 152 8.00000 13.00000.00000 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- GRID 153 9.00000 13.00000.00000 378- GRID 154 10.0000013.00000.00000 379- GRID 155 .00000 14.00000.00000 380- GRID 156 1.00000 14.00000.00000 381- GRID 157 2.00000 14.00000.00000 382- GRID 158 3.00000 14.00000.00000 383- GRID 159 4.00000 14.00000.00000 384- GRID 160 5.00000 14.00000.00000 385- GRID 161 6.00000 14.00000.00000 386- GRID 162 7.00000 14.00000.00000 387- GRID 163 8.00000 14.00000.00000 388- GRID 164 9.00000 14.00000.00000 389- GRID 165 10.0000014.00000.00000 390- GRID 166 .00000 15.00000.00000 391- GRID 167 1.00000 15.00000.00000 392- GRID 168 2.00000 15.00000.00000 393- GRID 169 3.00000 15.00000.00000 394- GRID 170 4.00000 15.00000.00000 395- GRID 171 5.00000 15.00000.00000 396- GRID 172 6.00000 15.00000.00000 397- GRID 173 7.00000 15.00000.00000 398- GRID 174 8.00000 15.00000.00000 399- GRID 175 9.00000 15.00000.00000 400- GRID 176 10.0000015.00000.00000 401- GRID 177 .00000 16.00000.00000 402- GRID 178 1.00000 16.00000.00000 403- GRID 179 2.00000 16.00000.00000 404- GRID 180 3.00000 16.00000.00000 405- GRID 181 4.00000 16.00000.00000 406- GRID 182 5.00000 16.00000.00000 407- GRID 183 6.00000 16.00000.00000 408- GRID 184 7.00000 16.00000.00000 409- GRID 185 8.00000 16.00000.00000 410- GRID 186 9.00000 16.00000.00000 411- GRID 187 10.0000016.00000.00000 412- GRID 188 .00000 17.00000.00000 413- GRID 189 1.00000 17.00000.00000 414- GRID 190 2.00000 17.00000.00000 415- GRID 191 3.00000 17.00000.00000 416- GRID 192 4.00000 17.00000.00000 417- GRID 193 5.00000 17.00000.00000 418- GRID 194 6.00000 17.00000.00000 419- GRID 195 7.00000 17.00000.00000 420- GRID 196 8.00000 17.00000.00000 421- GRID 197 9.00000 17.00000.00000 422- GRID 198 10.0000017.00000.00000 423- GRID 199 .00000 18.00000.00000 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- GRID 200 1.00000 18.00000.00000 425- GRID 201 2.00000 18.00000.00000 426- GRID 202 3.00000 18.00000.00000 427- GRID 203 4.00000 18.00000.00000 428- GRID 204 5.00000 18.00000.00000 429- GRID 205 6.00000 18.00000.00000 430- GRID 206 7.00000 18.00000.00000 431- GRID 207 8.00000 18.00000.00000 432- GRID 208 9.00000 18.00000.00000 433- GRID 209 10.0000018.00000.00000 434- GRID 210 .00000 19.00000.00000 435- GRID 211 1.00000 19.00000.00000 436- GRID 212 2.00000 19.00000.00000 437- GRID 213 3.00000 19.00000.00000 438- GRID 214 4.00000 19.00000.00000 439- GRID 215 5.00000 19.00000.00000 440- GRID 216 6.00000 19.00000.00000 441- GRID 217 7.00000 19.00000.00000 442- GRID 218 8.00000 19.00000.00000 443- GRID 219 9.00000 19.00000.00000 444- GRID 220 10.0000019.00000.00000 445- GRID 221 .00000 20.00000.00000 446- GRID 222 1.00000 20.00000.00000 447- GRID 223 2.00000 20.00000.00000 448- GRID 224 3.00000 20.00000.00000 449- GRID 225 4.00000 20.00000.00000 450- GRID 226 5.00000 20.00000.00000 451- GRID 227 6.00000 20.00000.00000 452- GRID 228 7.00000 20.00000.00000 453- GRID 229 8.00000 20.00000.00000 454- GRID 230 9.00000 20.00000.00000 455- GRID 231 10.0000020.00000.00000 456- MAT1 2 3.0+7 .300 200.0 +MAT1 457- +MAT1 30000. 28000. 458- PARAM GRDPNT 111 459- PLOTEL 300 23 1 460- PLOTEL 301 1 11 302 11 231 461- PLOTEL 303 231 221 304 221 199 462- PLOTEL 305 199 201 306 201 203 463- PLOTEL 307 203 205 308 205 207 464- PLOTEL 309 207 209 310 187 185 465- PLOTEL 311 185 183 312 183 181 466- PLOTEL 313 181 179 314 179 177 467- PLOTEL 315 199 177 316 177 155 468- PLOTEL 317 155 157 318 157 159 469- PLOTEL 319 159 161 320 161 163 470- PLOTEL 321 163 165 322 143 141 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- PLOTEL 323 141 139 324 139 137 472- PLOTEL 325 137 135 326 135 133 473- PLOTEL 327 155 133 328 133 111 474- PLOTEL 329 111 113 330 113 115 475- PLOTEL 331 115 117 332 117 119 476- PLOTEL 333 119 121 334 99 97 477- PLOTEL 335 97 95 336 95 93 478- PLOTEL 337 93 91 338 91 89 479- PLOTEL 339 111 89 340 89 67 480- PLOTEL 341 67 69 342 69 71 481- PLOTEL 343 71 73 344 73 75 482- PLOTEL 345 75 77 346 55 53 483- PLOTEL 347 53 51 348 51 49 484- PLOTEL 349 49 47 350 47 45 485- PLOTEL 351 67 45 352 45 23 486- PLOTEL 353 23 25 354 25 27 487- PLOTEL 355 27 29 356 29 31 488- PLOTEL 357 31 33 358 9 31 489- PLOTEL 359 31 53 360 53 75 490- PLOTEL 361 75 97 362 97 119 491- PLOTEL 363 119 141 364 141 163 492- PLOTEL 365 163 185 366 185 207 493- PLOTEL 367 207 229 368 227 205 494- PLOTEL 369 205 183 370 183 161 495- PLOTEL 371 161 139 372 139 117 496- PLOTEL 373 117 95 374 95 73 497- PLOTEL 375 73 51 376 51 29 498- PLOTEL 377 29 7 378 5 27 499- PLOTEL 379 27 49 380 49 71 500- PLOTEL 381 71 93 382 93 115 501- PLOTEL 383 115 137 384 137 159 502- PLOTEL 385 159 181 386 181 203 503- PLOTEL 387 203 225 388 223 201 504- PLOTEL 389 201 179 390 179 157 505- PLOTEL 391 157 135 392 135 113 506- PLOTEL 393 113 91 394 91 69 507- PLOTEL 395 69 47 396 47 36 508- PLOTEL 397 36 25 398 25 3 509- PQUAD1 23 2 1.0 2 .0833333 6.04393 +PQUAD1 510- +PQUAD1 .5 .0 511- SPC1 37 5 1 12 23 34 45 56 +31001H 512- +31001H 67 78 89 100 111 122 133 144 +31002H 513- +31002H 155 166 177 188 199 210 221 514- SPC1 37 34 11 22 33 44 55 66 +11001H 515- +11001H 77 88 99 110 121 132 143 154 +11002H 516- +11002H 165 176 187 198 209 220 231 517- SPC1 37 35 1 2 3 4 5 6 +41001H 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- +41001H 7 8 9 10 11 519- SPC1 37 35 221 222 223 224 225 226 +21001H 520- +21001H 227 228 229 230 231 ENDDATA 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 13 PROFILE 2861 MAX WAVEFRONT 13 AVG WAVEFRONT 12.385 RMS WAVEFRONT 12.536 RMS BANDWIDTH 12.608 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 13 PROFILE 2861 MAX WAVEFRONT 13 AVG WAVEFRONT 12.385 RMS WAVEFRONT 12.536 RMS BANDWIDTH 12.608 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 13 13 PROFILE (P) 2861 2861 MAXIMUM WAVEFRONT (C-MAX) 13 13 AVERAGE WAVEFRONT (C-AVG) 12.385 12.385 RMS WAVEFRONT (C-RMS) 12.536 12.536 RMS BANDWITCH (B-RMS) 12.608 12.608 NUMBER OF GRID POINTS (N) 231 NUMBER OF ELEMENTS (NON-RIGID) 200 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 830 MATRIX DENSITY, PERCENT 3.544 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01 ORIGIN 10 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 10 USED IN THIS PLOT 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01 ORIGIN 10 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 2 UNDEFORMED SHAPE ORIGIN 10 USED IN THIS PLOT 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01 ORIGIN 10 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 3 UNDEFORMED SHAPE ORIGIN 10 USED IN THIS PLOT 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 111 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 4.12087860D+04 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 4.12087860D+04 0.00000000D+00 0.00000000D+00 0.00000000D+00 2.06043930D+05 * * 0.00000000D+00 0.00000000D+00 4.12087860D+04 0.00000000D+00 -2.06043930D+05 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 0.00000000D+00 1.38049433D+06 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 -2.06043930D+05 0.00000000D+00 1.38049433D+06 0.00000000D+00 * * 0.00000000D+00 2.06043930D+05 0.00000000D+00 0.00000000D+00 0.00000000D+00 2.76098866D+06 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 4.120878601D+04 0.000000000D+00 0.000000000D+00 0.000000000D+00 Y 4.120878601D+04 5.000000000D+00 0.000000000D+00 0.000000000D+00 Z 4.120878601D+04 5.000000000D+00 0.000000000D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 1.380494331D+06 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 3.502746811D+05 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.730769012D+06 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 1.380494331D+06 * * 3.502746811D+05 * * 1.730769012D+06 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 ROOTS BELOW 1.293333E+02 2 ROOTS BELOW 2.025893E+02 4 ROOTS BELOW 8.112073E+02 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 3 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 3 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 26 0 REASON FOR TERMINATION . . . . . . . . . . . 4* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 3X EST.ROOTS IN RANGE SPECIFIED. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 4 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 2 3.237408E+01 5.689823E+00 9.055634E-01 1.030220E+04 3.335242E+05 2 1 2.022407E+02 1.422113E+01 2.263364E+00 1.030220E+04 2.083523E+06 3 3 8.111597E+02 2.848087E+01 4.532870E+00 5.601166E+03 4.543440E+06 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 EIGENVALUE = 0.323741E+02 (CYCLIC FREQUENCY = 9.055634E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 1.569410E-01 0.0 0.0 2 G 0.0 0.0 0.0 1.550088E-01 0.0 0.0 3 G 0.0 0.0 0.0 1.492598E-01 0.0 0.0 4 G 0.0 0.0 0.0 1.398354E-01 0.0 0.0 5 G 0.0 0.0 0.0 1.269680E-01 0.0 0.0 6 G 0.0 0.0 0.0 1.109741E-01 0.0 0.0 7 G 0.0 0.0 0.0 9.224761E-02 0.0 0.0 8 G 0.0 0.0 0.0 7.124973E-02 0.0 0.0 9 G 0.0 0.0 0.0 4.849744E-02 0.0 0.0 10 G 0.0 0.0 0.0 2.455098E-02 0.0 0.0 11 G 0.0 0.0 0.0 0.0 0.0 0.0 34 G 0.0 0.0 4.539905E-01 1.398354E-01 0.0 0.0 35 G 0.0 0.0 4.484011E-01 1.381139E-01 1.114591E-02 0.0 36 G 0.0 0.0 4.317706E-01 1.329914E-01 2.201737E-02 0.0 37 G 0.0 0.0 4.045085E-01 1.245943E-01 3.234670E-02 0.0 38 G 0.0 0.0 3.672860E-01 1.131293E-01 4.187954E-02 0.0 39 G 0.0 0.0 3.210197E-01 9.887860E-02 5.038116E-02 0.0 40 G 0.0 0.0 2.668489E-01 8.219323E-02 5.764224E-02 0.0 41 G 0.0 0.0 2.061074E-01 6.348398E-02 6.348398E-02 0.0 42 G 0.0 0.0 1.402908E-01 4.321153E-02 6.776251E-02 0.0 43 G 0.0 0.0 7.101975E-02 2.187509E-02 7.037253E-02 0.0 44 G 0.0 0.0 0.0 0.0 7.124973E-02 0.0 56 G 0.0 0.0 7.071067E-01 1.109741E-01 0.0 0.0 57 G 0.0 0.0 6.984012E-01 1.096078E-01 1.736017E-02 0.0 58 G 0.0 0.0 6.724985E-01 1.055426E-01 3.429287E-02 0.0 59 G 0.0 0.0 6.300367E-01 9.887860E-02 5.038116E-02 0.0 60 G 0.0 0.0 5.720614E-01 8.977990E-02 6.522890E-02 0.0 61 G 0.0 0.0 5.000000E-01 7.847050E-02 7.847050E-02 0.0 62 G 0.0 0.0 4.156269E-01 6.522890E-02 8.977990E-02 0.0 63 G 0.0 0.0 3.210197E-01 5.038116E-02 9.887860E-02 0.0 64 G 0.0 0.0 2.185080E-01 3.429287E-02 1.055426E-01 0.0 65 G 0.0 0.0 1.106159E-01 1.736017E-02 1.096078E-01 0.0 66 G 0.0 0.0 0.0 0.0 1.109741E-01 0.0 78 G 0.0 0.0 8.910065E-01 7.124973E-02 0.0 0.0 79 G 0.0 0.0 8.800368E-01 7.037253E-02 2.187509E-02 0.0 80 G 0.0 0.0 8.473975E-01 6.776251E-02 4.321153E-02 0.0 81 G 0.0 0.0 7.938926E-01 6.348398E-02 6.348398E-02 0.0 82 G 0.0 0.0 7.208394E-01 5.764224E-02 8.219323E-02 0.0 83 G 0.0 0.0 6.300367E-01 5.038116E-02 9.887860E-02 0.0 84 G 0.0 0.0 5.237205E-01 4.187954E-02 1.131293E-01 0.0 85 G 0.0 0.0 4.045085E-01 3.234670E-02 1.245943E-01 0.0 86 G 0.0 0.0 2.753361E-01 2.201737E-02 1.329914E-01 0.0 87 G 0.0 0.0 1.393841E-01 1.114591E-02 1.381139E-01 0.0 88 G 0.0 0.0 0.0 0.0 1.398354E-01 0.0 111 G 0.0 0.0 1.000000E+00 -1.489614E-11 0.0 0.0 112 G 0.0 0.0 9.876884E-01 -1.214225E-11 2.455098E-02 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 EIGENVALUE = 0.323741E+02 (CYCLIC FREQUENCY = 9.055634E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 113 G 0.0 0.0 9.510565E-01 -4.563531E-12 4.849744E-02 0.0 114 G 0.0 0.0 8.910065E-01 5.406898E-12 7.124973E-02 0.0 115 G 0.0 0.0 8.090169E-01 1.506906E-11 9.224761E-02 0.0 116 G 0.0 0.0 7.071067E-01 2.204741E-11 1.109741E-01 0.0 117 G 0.0 0.0 5.877852E-01 2.496322E-11 1.269680E-01 0.0 118 G 0.0 0.0 4.539905E-01 2.347477E-11 1.398354E-01 0.0 119 G 0.0 0.0 3.090170E-01 1.807140E-11 1.492598E-01 0.0 120 G 0.0 0.0 1.564345E-01 9.791383E-12 1.550088E-01 0.0 121 G 0.0 0.0 0.0 0.0 1.569410E-01 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 EIGENVALUE = 0.202241E+03 (CYCLIC FREQUENCY = 2.263364E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 3.145222E-01 0.0 0.0 2 G 0.0 0.0 0.0 3.106499E-01 0.0 0.0 3 G 0.0 0.0 0.0 2.991284E-01 0.0 0.0 4 G 0.0 0.0 0.0 2.802413E-01 0.0 0.0 5 G 0.0 0.0 0.0 2.544538E-01 0.0 0.0 6 G 0.0 0.0 0.0 2.224008E-01 0.0 0.0 7 G 0.0 0.0 0.0 1.848715E-01 0.0 0.0 8 G 0.0 0.0 0.0 1.427901E-01 0.0 0.0 9 G 0.0 0.0 0.0 9.719270E-02 0.0 0.0 10 G 0.0 0.0 0.0 4.920211E-02 0.0 0.0 11 G 0.0 0.0 0.0 0.0 0.0 0.0 34 G 0.0 0.0 8.090169E-01 1.848715E-01 0.0 0.0 35 G 0.0 0.0 7.990566E-01 1.825954E-01 1.977073E-02 0.0 36 G 0.0 0.0 7.694208E-01 1.758233E-01 3.905464E-02 0.0 37 G 0.0 0.0 7.208394E-01 1.647217E-01 5.737691E-02 0.0 38 G 0.0 0.0 6.545085E-01 1.495642E-01 7.428636E-02 0.0 39 G 0.0 0.0 5.720614E-01 1.307239E-01 8.936661E-02 0.0 40 G 0.0 0.0 4.755282E-01 1.086647E-01 1.022464E-01 0.0 41 G 0.0 0.0 3.672860E-01 8.392990E-02 1.126085E-01 0.0 42 G 0.0 0.0 2.500000E-01 5.712844E-02 1.201978E-01 0.0 43 G 0.0 0.0 1.265581E-01 2.892027E-02 1.248275E-01 0.0 44 G 0.0 0.0 0.0 0.0 1.263835E-01 0.0 56 G 0.0 0.0 1.000000E+00 3.752479E-15 0.0 0.0 57 G 0.0 0.0 9.876884E-01 8.362275E-15 2.443797E-02 0.0 58 G 0.0 0.0 9.510565E-01 2.084885E-14 4.827420E-02 0.0 59 G 0.0 0.0 8.910065E-01 3.480149E-14 7.092176E-02 0.0 60 G 0.0 0.0 8.090169E-01 4.721130E-14 9.182297E-02 0.0 61 G 0.0 0.0 7.071067E-01 5.345043E-14 1.104632E-01 0.0 62 G 0.0 0.0 5.877852E-01 5.466399E-14 1.263835E-01 0.0 63 G 0.0 0.0 4.539905E-01 4.922448E-14 1.391918E-01 0.0 64 G 0.0 0.0 3.090170E-01 3.725479E-14 1.485727E-01 0.0 65 G 0.0 0.0 1.564345E-01 2.019245E-14 1.542953E-01 0.0 66 G 0.0 0.0 0.0 0.0 1.562186E-01 0.0 78 G 0.0 0.0 8.090169E-01 -1.848715E-01 0.0 0.0 79 G 0.0 0.0 7.990566E-01 -1.825954E-01 1.977073E-02 0.0 80 G 0.0 0.0 7.694208E-01 -1.758233E-01 3.905464E-02 0.0 81 G 0.0 0.0 7.208394E-01 -1.647217E-01 5.737691E-02 0.0 82 G 0.0 0.0 6.545085E-01 -1.495642E-01 7.428636E-02 0.0 83 G 0.0 0.0 5.720614E-01 -1.307239E-01 8.936661E-02 0.0 84 G 0.0 0.0 4.755282E-01 -1.086647E-01 1.022464E-01 0.0 85 G 0.0 0.0 3.672860E-01 -8.392990E-02 1.126085E-01 0.0 86 G 0.0 0.0 2.500000E-01 -5.712844E-02 1.201978E-01 0.0 87 G 0.0 0.0 1.265581E-01 -2.892027E-02 1.248275E-01 0.0 88 G 0.0 0.0 0.0 0.0 1.263835E-01 0.0 111 G 0.0 0.0 1.052307E-12 -3.145222E-01 0.0 0.0 112 G 0.0 0.0 1.074882E-12 -3.106499E-01 -4.677274E-14 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 EIGENVALUE = 0.202241E+03 (CYCLIC FREQUENCY = 2.263364E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 113 G 0.0 0.0 1.136289E-12 -2.991284E-01 -6.421723E-14 0.0 114 G 0.0 0.0 1.183414E-12 -2.802413E-01 -2.215107E-14 0.0 115 G 0.0 0.0 1.174488E-12 -2.544538E-01 4.091110E-14 0.0 116 G 0.0 0.0 1.107346E-12 -2.224008E-01 9.098555E-14 0.0 117 G 0.0 0.0 9.944418E-13 -1.848715E-01 1.395653E-13 0.0 118 G 0.0 0.0 8.247490E-13 -1.427901E-01 2.024780E-13 0.0 119 G 0.0 0.0 5.926236E-13 -9.719270E-02 2.613617E-13 0.0 120 G 0.0 0.0 3.101129E-13 -4.920211E-02 3.017233E-13 0.0 121 G 0.0 0.0 0.0 0.0 3.159660E-13 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 EIGENVALUE = 0.811160E+03 (CYCLIC FREQUENCY = 4.532870E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -2.520193E-01 0.0 0.0 2 G 0.0 0.0 0.0 -2.541968E-01 0.0 0.0 3 G 0.0 0.0 0.0 -2.595249E-01 0.0 0.0 4 G 0.0 0.0 0.0 -2.646700E-01 0.0 0.0 5 G 0.0 0.0 0.0 -2.649501E-01 0.0 0.0 6 G 0.0 0.0 0.0 -2.554428E-01 0.0 0.0 7 G 0.0 0.0 0.0 -2.321781E-01 0.0 0.0 8 G 0.0 0.0 0.0 -1.931526E-01 0.0 0.0 9 G 0.0 0.0 0.0 -1.389404E-01 0.0 0.0 10 G 0.0 0.0 0.0 -7.276327E-02 0.0 0.0 11 G 0.0 0.0 0.0 0.0 0.0 0.0 34 G 0.0 0.0 -4.799215E-01 6.946530E-04 0.0 0.0 35 G 0.0 0.0 -4.894721E-01 -4.018719E-03 1.884091E-02 0.0 36 G 0.0 0.0 -5.145187E-01 -1.701719E-02 3.057361E-02 0.0 37 G 0.0 0.0 -5.450697E-01 -3.512749E-02 2.971329E-02 0.0 38 G 0.0 0.0 -5.670359E-01 -5.384482E-02 1.366620E-02 0.0 39 G 0.0 0.0 -5.654854E-01 -6.832857E-02 -1.663638E-02 0.0 40 G 0.0 0.0 -5.281482E-01 -7.447623E-02 -5.687805E-02 0.0 41 G 0.0 0.0 -4.484011E-01 -6.984095E-02 -1.002417E-01 0.0 42 G 0.0 0.0 -3.270751E-01 -5.419214E-02 -1.388477E-01 0.0 43 G 0.0 0.0 -1.726819E-01 -2.959640E-02 -1.654323E-01 0.0 44 G 0.0 0.0 0.0 0.0 -1.749033E-01 0.0 56 G 0.0 0.0 -2.090134E-01 2.554428E-01 0.0 0.0 57 G 0.0 0.0 -2.305183E-01 2.485641E-01 4.240787E-02 0.0 58 G 0.0 0.0 -2.892550E-01 2.289113E-01 7.342280E-02 0.0 59 G 0.0 0.0 -3.691750E-01 1.992327E-01 8.418828E-02 0.0 60 G 0.0 0.0 -4.475380E-01 1.634801E-01 7.036638E-02 0.0 61 G 0.0 0.0 -5.000000E-01 1.260096E-01 3.313248E-02 0.0 62 G 0.0 0.0 -5.060984E-01 9.071678E-02 -2.103575E-02 0.0 63 G 0.0 0.0 -4.539354E-01 6.029223E-02 -8.173006E-02 0.0 64 G 0.0 0.0 -3.430314E-01 3.575867E-02 -1.368460E-01 0.0 65 G 0.0 0.0 -1.847212E-01 1.638598E-02 -1.751937E-01 0.0 66 G 0.0 0.0 0.0 0.0 -1.889171E-01 0.0 78 G 0.0 0.0 4.151546E-01 3.276548E-01 0.0 0.0 79 G 0.0 0.0 3.797029E-01 3.212236E-01 6.989671E-02 0.0 80 G 0.0 0.0 2.808347E-01 3.026109E-01 1.250322E-01 0.0 81 G 0.0 0.0 1.393841E-01 2.737288E-01 1.538512E-01 0.0 82 G 0.0 0.0 -1.499114E-02 2.373566E-01 1.505122E-01 0.0 83 G 0.0 0.0 -1.502459E-01 1.966215E-01 1.161495E-01 0.0 84 G 0.0 0.0 -2.388932E-01 1.544351E-01 5.861626E-02 0.0 85 G 0.0 0.0 -2.639473E-01 1.130057E-01 -9.236285E-03 0.0 86 G 0.0 0.0 -2.225684E-01 7.352924E-02 -7.236808E-02 0.0 87 G 0.0 0.0 -1.266173E-01 3.612101E-02 -1.168347E-01 0.0 88 G 0.0 0.0 0.0 0.0 -1.328318E-01 0.0 111 G 0.0 0.0 1.000000E+00 1.367269E-17 0.0 0.0 112 G 0.0 0.0 9.536365E-01 -1.676524E-15 9.140213E-02 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 EIGENVALUE = 0.811160E+03 (CYCLIC FREQUENCY = 4.532870E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 113 G 0.0 0.0 8.231105E-01 -3.325381E-15 1.659184E-01 0.0 114 G 0.0 0.0 6.322864E-01 -4.347521E-15 2.102688E-01 0.0 115 G 0.0 0.0 4.152396E-01 -2.325889E-15 2.176016E-01 0.0 116 G 0.0 0.0 2.090134E-01 2.333879E-16 1.889171E-01 0.0 117 G 0.0 0.0 4.579712E-02 2.310383E-15 1.327858E-01 0.0 118 G 0.0 0.0 -5.377634E-02 3.148243E-15 6.342317E-02 0.0 119 G 0.0 0.0 -8.476044E-02 2.676253E-15 -2.458215E-03 0.0 120 G 0.0 0.0 -5.856040E-02 1.786816E-15 -4.933063E-02 0.0 121 G 0.0 0.0 0.0 0.0 -6.626496E-02 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 EIGENVALUE = 0.323741E+02 (CYCLIC FREQUENCY = 9.055634E-01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -1.433884E+04 0.0 -7.826680E+02 0.0 2 G 0.0 0.0 -2.832498E+04 0.0 9.970744E+01 0.0 3 G 0.0 0.0 -2.727357E+04 0.0 1.969270E+02 0.0 4 G 0.0 0.0 -2.555256E+04 0.0 2.893149E+02 0.0 5 G 0.0 0.0 -2.320054E+04 0.0 3.746189E+02 0.0 6 G 0.0 0.0 -2.027748E+04 0.0 4.506416E+02 0.0 7 G 0.0 0.0 -1.685639E+04 0.0 5.155930E+02 0.0 8 G 0.0 0.0 -1.301857E+04 0.0 5.678295E+02 0.0 9 G 0.0 0.0 -8.861663E+03 0.0 6.060587E+02 0.0 10 G 0.0 0.0 -4.485962E+03 0.0 6.294200E+02 0.0 11 G 0.0 0.0 9.514386E+04 3.186320E+02 3.186320E+02 0.0 12 G 0.0 0.0 0.0 0.0 -1.378127E+04 0.0 22 G 0.0 0.0 -4.485962E+03 6.294200E+02 0.0 0.0 23 G 0.0 0.0 0.0 0.0 -2.722528E+04 0.0 33 G 0.0 0.0 -8.861663E+03 6.060587E+02 0.0 0.0 34 G 0.0 0.0 0.0 0.0 -3.999459E+04 0.0 44 G 0.0 0.0 -1.301856E+04 5.678280E+02 0.0 0.0 45 G 0.0 0.0 0.0 0.0 -5.178103E+04 0.0 55 G 0.0 0.0 -1.685639E+04 5.155919E+02 0.0 0.0 56 G 0.0 0.0 0.0 0.0 -6.229187E+04 0.0 66 G 0.0 0.0 -2.027749E+04 4.506400E+02 0.0 0.0 67 G 0.0 0.0 0.0 0.0 -7.127343E+04 0.0 77 G 0.0 0.0 -2.320054E+04 3.746189E+02 0.0 0.0 78 G 0.0 0.0 0.0 0.0 -7.849399E+04 0.0 88 G 0.0 0.0 -2.555256E+04 2.893149E+02 0.0 0.0 89 G 0.0 0.0 0.0 0.0 -8.378493E+04 0.0 99 G 0.0 0.0 -2.727357E+04 1.969270E+02 0.0 0.0 100 G 0.0 0.0 0.0 0.0 -8.701452E+04 0.0 110 G 0.0 0.0 -2.832498E+04 9.970744E+01 0.0 0.0 111 G 0.0 0.0 0.0 0.0 -8.809728E+04 0.0 121 G 0.0 0.0 -2.867768E+04 5.829002E-06 0.0 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 EIGENVALUE = 0.202241E+03 (CYCLIC FREQUENCY = 2.263364E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -6.034997E+04 0.0 -9.177875E+03 0.0 2 G 0.0 0.0 -1.192102E+05 0.0 7.796655E+02 0.0 3 G 0.0 0.0 -1.147899E+05 0.0 1.539890E+03 0.0 4 G 0.0 0.0 -1.075431E+05 0.0 2.262399E+03 0.0 5 G 0.0 0.0 -9.764775E+04 0.0 2.929282E+03 0.0 6 G 0.0 0.0 -8.534572E+04 0.0 3.523900E+03 0.0 7 G 0.0 0.0 -7.094527E+04 0.0 4.031738E+03 0.0 8 G 0.0 0.0 -5.479538E+04 0.0 4.440331E+03 0.0 9 G 0.0 0.0 -3.729831E+04 0.0 4.739575E+03 0.0 10 G 0.0 0.0 -1.888134E+04 0.0 4.922172E+03 0.0 11 G 0.0 0.0 1.909854E+05 6.566249E+02 2.491764E+03 0.0 12 G 0.0 0.0 0.0 0.0 -4.533337E+04 0.0 22 G 0.0 0.0 -2.544192E+04 1.249022E+03 0.0 0.0 23 G 0.0 0.0 0.0 0.0 -8.622433E+04 0.0 33 G 0.0 0.0 -4.839438E+04 1.062475E+03 0.0 0.0 34 G 0.0 0.0 0.0 0.0 -1.186810E+05 0.0 44 G 0.0 0.0 -6.660855E+04 7.718511E+02 0.0 0.0 45 G 0.0 0.0 0.0 0.0 -1.395158E+05 0.0 55 G 0.0 0.0 -7.830195E+04 4.058154E+02 0.0 0.0 56 G 0.0 0.0 0.0 0.0 -1.466964E+05 0.0 66 G 0.0 0.0 -8.233291E+04 1.295120E-08 0.0 0.0 67 G 0.0 0.0 0.0 0.0 -1.395158E+05 0.0 77 G 0.0 0.0 -7.830195E+04 -4.058154E+02 0.0 0.0 78 G 0.0 0.0 0.0 0.0 -1.186810E+05 0.0 88 G 0.0 0.0 -6.660855E+04 -7.718511E+02 0.0 0.0 89 G 0.0 0.0 0.0 0.0 -8.622433E+04 0.0 99 G 0.0 0.0 -4.839438E+04 -1.062475E+03 0.0 0.0 100 G 0.0 0.0 0.0 0.0 -4.533337E+04 0.0 110 G 0.0 0.0 -2.544192E+04 -1.249022E+03 0.0 0.0 111 G 0.0 0.0 0.0 0.0 5.203232E-06 0.0 121 G 0.0 0.0 -3.849894E-06 -1.313250E+03 0.0 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 EIGENVALUE = 0.811160E+03 (CYCLIC FREQUENCY = 4.532870E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 7.941492E+04 0.0 2.243875E+04 0.0 2 G 0.0 0.0 1.626678E+05 0.0 -1.404194E+03 0.0 3 G 0.0 0.0 1.728195E+05 0.0 -2.830049E+03 0.0 4 G 0.0 0.0 1.855275E+05 0.0 -4.286404E+03 0.0 5 G 0.0 0.0 1.954792E+05 0.0 -5.759770E+03 0.0 6 G 0.0 0.0 1.970363E+05 0.0 -7.209116E+03 0.0 7 G 0.0 0.0 1.855519E+05 0.0 -8.568526E+03 0.0 8 G 0.0 0.0 1.584801E+05 0.0 -9.755316E+03 0.0 9 G 0.0 0.0 1.160637E+05 0.0 -1.068252E+04 0.0 10 G 0.0 0.0 6.141778E+04 0.0 -1.127379E+04 0.0 11 G 0.0 0.0 -2.881166E+05 -3.535219E+03 -5.738536E+03 0.0 12 G 0.0 0.0 0.0 0.0 3.457399E+04 0.0 22 G 0.0 0.0 6.863066E+04 -6.869414E+03 0.0 0.0 23 G 0.0 0.0 0.0 0.0 5.473893E+04 0.0 33 G 0.0 0.0 1.258981E+05 -6.296141E+03 0.0 0.0 34 G 0.0 0.0 0.0 0.0 4.939430E+04 0.0 44 G 0.0 0.0 1.628279E+05 -5.433880E+03 0.0 0.0 45 G 0.0 0.0 0.0 0.0 1.333909E+04 0.0 55 G 0.0 0.0 1.747038E+05 -4.402089E+03 0.0 0.0 56 G 0.0 0.0 0.0 0.0 -5.144681E+04 0.0 66 G 0.0 0.0 1.620123E+05 -3.332382E+03 0.0 0.0 67 G 0.0 0.0 0.0 0.0 -1.360840E+05 0.0 77 G 0.0 0.0 1.302665E+05 -2.341879E+03 0.0 0.0 78 G 0.0 0.0 0.0 0.0 -2.265988E+05 0.0 88 G 0.0 0.0 8.872896E+04 -1.510433E+03 0.0 0.0 89 G 0.0 0.0 0.0 0.0 -3.068642E+05 0.0 99 G 0.0 0.0 4.834000E+04 -8.668965E+02 0.0 0.0 100 G 0.0 0.0 0.0 0.0 -3.620159E+05 0.0 110 G 0.0 0.0 1.928358E+04 -3.864536E+02 0.0 0.0 111 G 0.0 0.0 0.0 0.0 -3.816448E+05 0.0 121 G 0.0 0.0 8.737829E+03 8.585630E-10 0.0 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01 ORIGIN 10 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) ORIGIN 11 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 4 MODAL DEFORM. 1 - SUBCASE 1 - MODE 9.055634E-01 - FREQUENCY PLOT 5 MODAL DEFORM. 1 - SUBCASE 2 - MODE 2.263364E+00 - FREQUENCY PLOT 6 MODAL DEFORM. 1 - SUBCASE 3 - MODE 4.532870E+00 - FREQUENCY ORIGIN 11 USED IN THIS PLOT * * * END OF JOB * * * 1 JOB TITLE = VIBRATIONS OF A 10 BY 20 PLATE DATE: 5/17/95 END TIME: 15:31:30 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d03012a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03012A,NASTRAN APP DISPLACEMENT SOL 3,1 TIME 65 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = VIBRATION OF A 20 X 40 HALF PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 3 $ 4 METHOD = 20 $ FEER - NO MODES 5 SPC = 37 6 $ ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL) 7 $ MODE M N FREQ 8 $ 1 1 1 9.068997E-1 9 $ 2 1 2 2.267249 10 $ 5 1 3 4.534498 11 $ 6 3 1 4.534498 12 $ 7 3 2 5.894848 13 $ 9 1 4 7.708647 14 $ 15 OUTPUT 16 SET 1 = 1 THRU 21, 64 THRU 84, 127 THRU 147, 190 THRU 210, 17 253 THRU 273, 316 THRU 336, 379 THRU 399, 442 THRU 462, 18 505 THRU 525, 568 THRU 588, 631 THRU 651, 694 THRU 714, 19 757 THRU 777, 820 THRU 840, 841 THRU 861 20 DISPLACEMENTS = 1 21 $ 22 $ 23 $ 24 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 25 OUTPUT(PLOT) 26 PLOTTER NASTPLT 27 SET 1 INCLUDE PLOTEL 28 SET 2 INCLUDE QUAD1 29 MAXIMUM DEFORMATION 1.0 30 FIND SCALE, ORIGIN 10 31 PTITLE = ALL QUADS IN THE PLATE 32 PLOT ORIGIN 10, SET 2, LABELS 33 FIND SCALE, ORIGIN 11 34 PTITLE = MODE SHAPES USING PLOTEL ELEMENTS 35 PLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE 36 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 1753, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CNGRNT 1 2 THRU 839 2- CQUAD1 1 101 1 2 23 22 .0 3- CQUAD1 2 101 2 3 24 23 .0 4- CQUAD1 3 101 3 4 25 24 .0 5- CQUAD1 4 101 4 5 26 25 .0 6- CQUAD1 5 101 5 6 27 26 .0 7- CQUAD1 6 101 6 7 28 27 .0 8- CQUAD1 7 101 7 8 29 28 .0 9- CQUAD1 8 101 8 9 30 29 .0 10- CQUAD1 9 101 9 10 31 30 .0 11- CQUAD1 10 101 10 11 32 31 .0 12- CQUAD1 11 101 11 12 33 32 .0 13- CQUAD1 12 101 12 13 34 33 .0 14- CQUAD1 13 101 13 14 35 34 .0 15- CQUAD1 14 101 14 15 36 35 .0 16- CQUAD1 15 101 15 16 37 36 .0 17- CQUAD1 16 101 16 17 38 37 .0 18- CQUAD1 17 101 17 18 39 38 .0 19- CQUAD1 18 101 18 19 40 39 .0 20- CQUAD1 19 101 19 20 41 40 .0 21- CQUAD1 20 101 20 21 42 41 .0 22- CQUAD1 22 101 22 23 44 43 .0 23- CQUAD1 23 101 23 24 45 44 .0 24- CQUAD1 24 101 24 25 46 45 .0 25- CQUAD1 25 101 25 26 47 46 .0 26- CQUAD1 26 101 26 27 48 47 .0 27- CQUAD1 27 101 27 28 49 48 .0 28- CQUAD1 28 101 28 29 50 49 .0 29- CQUAD1 29 101 29 30 51 50 .0 30- CQUAD1 30 101 30 31 52 51 .0 31- CQUAD1 31 101 31 32 53 52 .0 32- CQUAD1 32 101 32 33 54 53 .0 33- CQUAD1 33 101 33 34 55 54 .0 34- CQUAD1 34 101 34 35 56 55 .0 35- CQUAD1 35 101 35 36 57 56 .0 36- CQUAD1 36 101 36 37 58 57 .0 37- CQUAD1 37 101 37 38 59 58 .0 38- CQUAD1 38 101 38 39 60 59 .0 39- CQUAD1 39 101 39 40 61 60 .0 40- CQUAD1 40 101 40 41 62 61 .0 41- CQUAD1 41 101 41 42 63 62 .0 42- CQUAD1 43 101 43 44 65 64 .0 43- CQUAD1 44 101 44 45 66 65 .0 44- CQUAD1 45 101 45 46 67 66 .0 45- CQUAD1 46 101 46 47 68 67 .0 46- CQUAD1 47 101 47 48 69 68 .0 47- CQUAD1 48 101 48 49 70 69 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQUAD1 49 101 49 50 71 70 .0 49- CQUAD1 50 101 50 51 72 71 .0 50- CQUAD1 51 101 51 52 73 72 .0 51- CQUAD1 52 101 52 53 74 73 .0 52- CQUAD1 53 101 53 54 75 74 .0 53- CQUAD1 54 101 54 55 76 75 .0 54- CQUAD1 55 101 55 56 77 76 .0 55- CQUAD1 56 101 56 57 78 77 .0 56- CQUAD1 57 101 57 58 79 78 .0 57- CQUAD1 58 101 58 59 80 79 .0 58- CQUAD1 59 101 59 60 81 80 .0 59- CQUAD1 60 101 60 61 82 81 .0 60- CQUAD1 61 101 61 62 83 82 .0 61- CQUAD1 62 101 62 63 84 83 .0 62- CQUAD1 64 101 64 65 86 85 .0 63- CQUAD1 65 101 65 66 87 86 .0 64- CQUAD1 66 101 66 67 88 87 .0 65- CQUAD1 67 101 67 68 89 88 .0 66- CQUAD1 68 101 68 69 90 89 .0 67- CQUAD1 69 101 69 70 91 90 .0 68- CQUAD1 70 101 70 71 92 91 .0 69- CQUAD1 71 101 71 72 93 92 .0 70- CQUAD1 72 101 72 73 94 93 .0 71- CQUAD1 73 101 73 74 95 94 .0 72- CQUAD1 74 101 74 75 96 95 .0 73- CQUAD1 75 101 75 76 97 96 .0 74- CQUAD1 76 101 76 77 98 97 .0 75- CQUAD1 77 101 77 78 99 98 .0 76- CQUAD1 78 101 78 79 100 99 .0 77- CQUAD1 79 101 79 80 101 100 .0 78- CQUAD1 80 101 80 81 102 101 .0 79- CQUAD1 81 101 81 82 103 102 .0 80- CQUAD1 82 101 82 83 104 103 .0 81- CQUAD1 83 101 83 84 105 104 .0 82- CQUAD1 85 101 85 86 107 106 .0 83- CQUAD1 86 101 86 87 108 107 .0 84- CQUAD1 87 101 87 88 109 108 .0 85- CQUAD1 88 101 88 89 110 109 .0 86- CQUAD1 89 101 89 90 111 110 .0 87- CQUAD1 90 101 90 91 112 111 .0 88- CQUAD1 91 101 91 92 113 112 .0 89- CQUAD1 92 101 92 93 114 113 .0 90- CQUAD1 93 101 93 94 115 114 .0 91- CQUAD1 94 101 94 95 116 115 .0 92- CQUAD1 95 101 95 96 117 116 .0 93- CQUAD1 96 101 96 97 118 117 .0 94- CQUAD1 97 101 97 98 119 118 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CQUAD1 98 101 98 99 120 119 .0 96- CQUAD1 99 101 99 100 121 120 .0 97- CQUAD1 100 101 100 101 122 121 .0 98- CQUAD1 101 101 101 102 123 122 .0 99- CQUAD1 102 101 102 103 124 123 .0 100- CQUAD1 103 101 103 104 125 124 .0 101- CQUAD1 104 101 104 105 126 125 .0 102- CQUAD1 106 101 106 107 128 127 .0 103- CQUAD1 107 101 107 108 129 128 .0 104- CQUAD1 108 101 108 109 130 129 .0 105- CQUAD1 109 101 109 110 131 130 .0 106- CQUAD1 110 101 110 111 132 131 .0 107- CQUAD1 111 101 111 112 133 132 .0 108- CQUAD1 112 101 112 113 134 133 .0 109- CQUAD1 113 101 113 114 135 134 .0 110- CQUAD1 114 101 114 115 136 135 .0 111- CQUAD1 115 101 115 116 137 136 .0 112- CQUAD1 116 101 116 117 138 137 .0 113- CQUAD1 117 101 117 118 139 138 .0 114- CQUAD1 118 101 118 119 140 139 .0 115- CQUAD1 119 101 119 120 141 140 .0 116- CQUAD1 120 101 120 121 142 141 .0 117- CQUAD1 121 101 121 122 143 142 .0 118- CQUAD1 122 101 122 123 144 143 .0 119- CQUAD1 123 101 123 124 145 144 .0 120- CQUAD1 124 101 124 125 146 145 .0 121- CQUAD1 125 101 125 126 147 146 .0 122- CQUAD1 127 101 127 128 149 148 .0 123- CQUAD1 128 101 128 129 150 149 .0 124- CQUAD1 129 101 129 130 151 150 .0 125- CQUAD1 130 101 130 131 152 151 .0 126- CQUAD1 131 101 131 132 153 152 .0 127- CQUAD1 132 101 132 133 154 153 .0 128- CQUAD1 133 101 133 134 155 154 .0 129- CQUAD1 134 101 134 135 156 155 .0 130- CQUAD1 135 101 135 136 157 156 .0 131- CQUAD1 136 101 136 137 158 157 .0 132- CQUAD1 137 101 137 138 159 158 .0 133- CQUAD1 138 101 138 139 160 159 .0 134- CQUAD1 139 101 139 140 161 160 .0 135- CQUAD1 140 101 140 141 162 161 .0 136- CQUAD1 141 101 141 142 163 162 .0 137- CQUAD1 142 101 142 143 164 163 .0 138- CQUAD1 143 101 143 144 165 164 .0 139- CQUAD1 144 101 144 145 166 165 .0 140- CQUAD1 145 101 145 146 167 166 .0 141- CQUAD1 146 101 146 147 168 167 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CQUAD1 148 101 148 149 170 169 .0 143- CQUAD1 149 101 149 150 171 170 .0 144- CQUAD1 150 101 150 151 172 171 .0 145- CQUAD1 151 101 151 152 173 172 .0 146- CQUAD1 152 101 152 153 174 173 .0 147- CQUAD1 153 101 153 154 175 174 .0 148- CQUAD1 154 101 154 155 176 175 .0 149- CQUAD1 155 101 155 156 177 176 .0 150- CQUAD1 156 101 156 157 178 177 .0 151- CQUAD1 157 101 157 158 179 178 .0 152- CQUAD1 158 101 158 159 180 179 .0 153- CQUAD1 159 101 159 160 181 180 .0 154- CQUAD1 160 101 160 161 182 181 .0 155- CQUAD1 161 101 161 162 183 182 .0 156- CQUAD1 162 101 162 163 184 183 .0 157- CQUAD1 163 101 163 164 185 184 .0 158- CQUAD1 164 101 164 165 186 185 .0 159- CQUAD1 165 101 165 166 187 186 .0 160- CQUAD1 166 101 166 167 188 187 .0 161- CQUAD1 167 101 167 168 189 188 .0 162- CQUAD1 169 101 169 170 191 190 .0 163- CQUAD1 170 101 170 171 192 191 .0 164- CQUAD1 171 101 171 172 193 192 .0 165- CQUAD1 172 101 172 173 194 193 .0 166- CQUAD1 173 101 173 174 195 194 .0 167- CQUAD1 174 101 174 175 196 195 .0 168- CQUAD1 175 101 175 176 197 196 .0 169- CQUAD1 176 101 176 177 198 197 .0 170- CQUAD1 177 101 177 178 199 198 .0 171- CQUAD1 178 101 178 179 200 199 .0 172- CQUAD1 179 101 179 180 201 200 .0 173- CQUAD1 180 101 180 181 202 201 .0 174- CQUAD1 181 101 181 182 203 202 .0 175- CQUAD1 182 101 182 183 204 203 .0 176- CQUAD1 183 101 183 184 205 204 .0 177- CQUAD1 184 101 184 185 206 205 .0 178- CQUAD1 185 101 185 186 207 206 .0 179- CQUAD1 186 101 186 187 208 207 .0 180- CQUAD1 187 101 187 188 209 208 .0 181- CQUAD1 188 101 188 189 210 209 .0 182- CQUAD1 190 101 190 191 212 211 .0 183- CQUAD1 191 101 191 192 213 212 .0 184- CQUAD1 192 101 192 193 214 213 .0 185- CQUAD1 193 101 193 194 215 214 .0 186- CQUAD1 194 101 194 195 216 215 .0 187- CQUAD1 195 101 195 196 217 216 .0 188- CQUAD1 196 101 196 197 218 217 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CQUAD1 197 101 197 198 219 218 .0 190- CQUAD1 198 101 198 199 220 219 .0 191- CQUAD1 199 101 199 200 221 220 .0 192- CQUAD1 200 101 200 201 222 221 .0 193- CQUAD1 201 101 201 202 223 222 .0 194- CQUAD1 202 101 202 203 224 223 .0 195- CQUAD1 203 101 203 204 225 224 .0 196- CQUAD1 204 101 204 205 226 225 .0 197- CQUAD1 205 101 205 206 227 226 .0 198- CQUAD1 206 101 206 207 228 227 .0 199- CQUAD1 207 101 207 208 229 228 .0 200- CQUAD1 208 101 208 209 230 229 .0 201- CQUAD1 209 101 209 210 231 230 .0 202- CQUAD1 211 101 211 212 233 232 .0 203- CQUAD1 212 101 212 213 234 233 .0 204- CQUAD1 213 101 213 214 235 234 .0 205- CQUAD1 214 101 214 215 236 235 .0 206- CQUAD1 215 101 215 216 237 236 .0 207- CQUAD1 216 101 216 217 238 237 .0 208- CQUAD1 217 101 217 218 239 238 .0 209- CQUAD1 218 101 218 219 240 239 .0 210- CQUAD1 219 101 219 220 241 240 .0 211- CQUAD1 220 101 220 221 242 241 .0 212- CQUAD1 221 101 221 222 243 242 .0 213- CQUAD1 222 101 222 223 244 243 .0 214- CQUAD1 223 101 223 224 245 244 .0 215- CQUAD1 224 101 224 225 246 245 .0 216- CQUAD1 225 101 225 226 247 246 .0 217- CQUAD1 226 101 226 227 248 247 .0 218- CQUAD1 227 101 227 228 249 248 .0 219- CQUAD1 228 101 228 229 250 249 .0 220- CQUAD1 229 101 229 230 251 250 .0 221- CQUAD1 230 101 230 231 252 251 .0 222- CQUAD1 232 101 232 233 254 253 .0 223- CQUAD1 233 101 233 234 255 254 .0 224- CQUAD1 234 101 234 235 256 255 .0 225- CQUAD1 235 101 235 236 257 256 .0 226- CQUAD1 236 101 236 237 258 257 .0 227- CQUAD1 237 101 237 238 259 258 .0 228- CQUAD1 238 101 238 239 260 259 .0 229- CQUAD1 239 101 239 240 261 260 .0 230- CQUAD1 240 101 240 241 262 261 .0 231- CQUAD1 241 101 241 242 263 262 .0 232- CQUAD1 242 101 242 243 264 263 .0 233- CQUAD1 243 101 243 244 265 264 .0 234- CQUAD1 244 101 244 245 266 265 .0 235- CQUAD1 245 101 245 246 267 266 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- CQUAD1 246 101 246 247 268 267 .0 237- CQUAD1 247 101 247 248 269 268 .0 238- CQUAD1 248 101 248 249 270 269 .0 239- CQUAD1 249 101 249 250 271 270 .0 240- CQUAD1 250 101 250 251 272 271 .0 241- CQUAD1 251 101 251 252 273 272 .0 242- CQUAD1 253 101 253 254 275 274 .0 243- CQUAD1 254 101 254 255 276 275 .0 244- CQUAD1 255 101 255 256 277 276 .0 245- CQUAD1 256 101 256 257 278 277 .0 246- CQUAD1 257 101 257 258 279 278 .0 247- CQUAD1 258 101 258 259 280 279 .0 248- CQUAD1 259 101 259 260 281 280 .0 249- CQUAD1 260 101 260 261 282 281 .0 250- CQUAD1 261 101 261 262 283 282 .0 251- CQUAD1 262 101 262 263 284 283 .0 252- CQUAD1 263 101 263 264 285 284 .0 253- CQUAD1 264 101 264 265 286 285 .0 254- CQUAD1 265 101 265 266 287 286 .0 255- CQUAD1 266 101 266 267 288 287 .0 256- CQUAD1 267 101 267 268 289 288 .0 257- CQUAD1 268 101 268 269 290 289 .0 258- CQUAD1 269 101 269 270 291 290 .0 259- CQUAD1 270 101 270 271 292 291 .0 260- CQUAD1 271 101 271 272 293 292 .0 261- CQUAD1 272 101 272 273 294 293 .0 262- CQUAD1 274 101 274 275 296 295 .0 263- CQUAD1 275 101 275 276 297 296 .0 264- CQUAD1 276 101 276 277 298 297 .0 265- CQUAD1 277 101 277 278 299 298 .0 266- CQUAD1 278 101 278 279 300 299 .0 267- CQUAD1 279 101 279 280 301 300 .0 268- CQUAD1 280 101 280 281 302 301 .0 269- CQUAD1 281 101 281 282 303 302 .0 270- CQUAD1 282 101 282 283 304 303 .0 271- CQUAD1 283 101 283 284 305 304 .0 272- CQUAD1 284 101 284 285 306 305 .0 273- CQUAD1 285 101 285 286 307 306 .0 274- CQUAD1 286 101 286 287 308 307 .0 275- CQUAD1 287 101 287 288 309 308 .0 276- CQUAD1 288 101 288 289 310 309 .0 277- CQUAD1 289 101 289 290 311 310 .0 278- CQUAD1 290 101 290 291 312 311 .0 279- CQUAD1 291 101 291 292 313 312 .0 280- CQUAD1 292 101 292 293 314 313 .0 281- CQUAD1 293 101 293 294 315 314 .0 282- CQUAD1 295 101 295 296 317 316 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- CQUAD1 296 101 296 297 318 317 .0 284- CQUAD1 297 101 297 298 319 318 .0 285- CQUAD1 298 101 298 299 320 319 .0 286- CQUAD1 299 101 299 300 321 320 .0 287- CQUAD1 300 101 300 301 322 321 .0 288- CQUAD1 301 101 301 302 323 322 .0 289- CQUAD1 302 101 302 303 324 323 .0 290- CQUAD1 303 101 303 304 325 324 .0 291- CQUAD1 304 101 304 305 326 325 .0 292- CQUAD1 305 101 305 306 327 326 .0 293- CQUAD1 306 101 306 307 328 327 .0 294- CQUAD1 307 101 307 308 329 328 .0 295- CQUAD1 308 101 308 309 330 329 .0 296- CQUAD1 309 101 309 310 331 330 .0 297- CQUAD1 310 101 310 311 332 331 .0 298- CQUAD1 311 101 311 312 333 332 .0 299- CQUAD1 312 101 312 313 334 333 .0 300- CQUAD1 313 101 313 314 335 334 .0 301- CQUAD1 314 101 314 315 336 335 .0 302- CQUAD1 316 101 316 317 338 337 .0 303- CQUAD1 317 101 317 318 339 338 .0 304- CQUAD1 318 101 318 319 340 339 .0 305- CQUAD1 319 101 319 320 341 340 .0 306- CQUAD1 320 101 320 321 342 341 .0 307- CQUAD1 321 101 321 322 343 342 .0 308- CQUAD1 322 101 322 323 344 343 .0 309- CQUAD1 323 101 323 324 345 344 .0 310- CQUAD1 324 101 324 325 346 345 .0 311- CQUAD1 325 101 325 326 347 346 .0 312- CQUAD1 326 101 326 327 348 347 .0 313- CQUAD1 327 101 327 328 349 348 .0 314- CQUAD1 328 101 328 329 350 349 .0 315- CQUAD1 329 101 329 330 351 350 .0 316- CQUAD1 330 101 330 331 352 351 .0 317- CQUAD1 331 101 331 332 353 352 .0 318- CQUAD1 332 101 332 333 354 353 .0 319- CQUAD1 333 101 333 334 355 354 .0 320- CQUAD1 334 101 334 335 356 355 .0 321- CQUAD1 335 101 335 336 357 356 .0 322- CQUAD1 337 101 337 338 359 358 .0 323- CQUAD1 338 101 338 339 360 359 .0 324- CQUAD1 339 101 339 340 361 360 .0 325- CQUAD1 340 101 340 341 362 361 .0 326- CQUAD1 341 101 341 342 363 362 .0 327- CQUAD1 342 101 342 343 364 363 .0 328- CQUAD1 343 101 343 344 365 364 .0 329- CQUAD1 344 101 344 345 366 365 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- CQUAD1 345 101 345 346 367 366 .0 331- CQUAD1 346 101 346 347 368 367 .0 332- CQUAD1 347 101 347 348 369 368 .0 333- CQUAD1 348 101 348 349 370 369 .0 334- CQUAD1 349 101 349 350 371 370 .0 335- CQUAD1 350 101 350 351 372 371 .0 336- CQUAD1 351 101 351 352 373 372 .0 337- CQUAD1 352 101 352 353 374 373 .0 338- CQUAD1 353 101 353 354 375 374 .0 339- CQUAD1 354 101 354 355 376 375 .0 340- CQUAD1 355 101 355 356 377 376 .0 341- CQUAD1 356 101 356 357 378 377 .0 342- CQUAD1 358 101 358 359 380 379 .0 343- CQUAD1 359 101 359 360 381 380 .0 344- CQUAD1 360 101 360 361 382 381 .0 345- CQUAD1 361 101 361 362 383 382 .0 346- CQUAD1 362 101 362 363 384 383 .0 347- CQUAD1 363 101 363 364 385 384 .0 348- CQUAD1 364 101 364 365 386 385 .0 349- CQUAD1 365 101 365 366 387 386 .0 350- CQUAD1 366 101 366 367 388 387 .0 351- CQUAD1 367 101 367 368 389 388 .0 352- CQUAD1 368 101 368 369 390 389 .0 353- CQUAD1 369 101 369 370 391 390 .0 354- CQUAD1 370 101 370 371 392 391 .0 355- CQUAD1 371 101 371 372 393 392 .0 356- CQUAD1 372 101 372 373 394 393 .0 357- CQUAD1 373 101 373 374 395 394 .0 358- CQUAD1 374 101 374 375 396 395 .0 359- CQUAD1 375 101 375 376 397 396 .0 360- CQUAD1 376 101 376 377 398 397 .0 361- CQUAD1 377 101 377 378 399 398 .0 362- CQUAD1 379 101 379 380 401 400 .0 363- CQUAD1 380 101 380 381 402 401 .0 364- CQUAD1 381 101 381 382 403 402 .0 365- CQUAD1 382 101 382 383 404 403 .0 366- CQUAD1 383 101 383 384 405 404 .0 367- CQUAD1 384 101 384 385 406 405 .0 368- CQUAD1 385 101 385 386 407 406 .0 369- CQUAD1 386 101 386 387 408 407 .0 370- CQUAD1 387 101 387 388 409 408 .0 371- CQUAD1 388 101 388 389 410 409 .0 372- CQUAD1 389 101 389 390 411 410 .0 373- CQUAD1 390 101 390 391 412 411 .0 374- CQUAD1 391 101 391 392 413 412 .0 375- CQUAD1 392 101 392 393 414 413 .0 376- CQUAD1 393 101 393 394 415 414 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- CQUAD1 394 101 394 395 416 415 .0 378- CQUAD1 395 101 395 396 417 416 .0 379- CQUAD1 396 101 396 397 418 417 .0 380- CQUAD1 397 101 397 398 419 418 .0 381- CQUAD1 398 101 398 399 420 419 .0 382- CQUAD1 400 101 400 401 422 421 .0 383- CQUAD1 401 101 401 402 423 422 .0 384- CQUAD1 402 101 402 403 424 423 .0 385- CQUAD1 403 101 403 404 425 424 .0 386- CQUAD1 404 101 404 405 426 425 .0 387- CQUAD1 405 101 405 406 427 426 .0 388- CQUAD1 406 101 406 407 428 427 .0 389- CQUAD1 407 101 407 408 429 428 .0 390- CQUAD1 408 101 408 409 430 429 .0 391- CQUAD1 409 101 409 410 431 430 .0 392- CQUAD1 410 101 410 411 432 431 .0 393- CQUAD1 411 101 411 412 433 432 .0 394- CQUAD1 412 101 412 413 434 433 .0 395- CQUAD1 413 101 413 414 435 434 .0 396- CQUAD1 414 101 414 415 436 435 .0 397- CQUAD1 415 101 415 416 437 436 .0 398- CQUAD1 416 101 416 417 438 437 .0 399- CQUAD1 417 101 417 418 439 438 .0 400- CQUAD1 418 101 418 419 440 439 .0 401- CQUAD1 419 101 419 420 441 440 .0 402- CQUAD1 421 101 421 422 443 442 .0 403- CQUAD1 422 101 422 423 444 443 .0 404- CQUAD1 423 101 423 424 445 444 .0 405- CQUAD1 424 101 424 425 446 445 .0 406- CQUAD1 425 101 425 426 447 446 .0 407- CQUAD1 426 101 426 427 448 447 .0 408- CQUAD1 427 101 427 428 449 448 .0 409- CQUAD1 428 101 428 429 450 449 .0 410- CQUAD1 429 101 429 430 451 450 .0 411- CQUAD1 430 101 430 431 452 451 .0 412- CQUAD1 431 101 431 432 453 452 .0 413- CQUAD1 432 101 432 433 454 453 .0 414- CQUAD1 433 101 433 434 455 454 .0 415- CQUAD1 434 101 434 435 456 455 .0 416- CQUAD1 435 101 435 436 457 456 .0 417- CQUAD1 436 101 436 437 458 457 .0 418- CQUAD1 437 101 437 438 459 458 .0 419- CQUAD1 438 101 438 439 460 459 .0 420- CQUAD1 439 101 439 440 461 460 .0 421- CQUAD1 440 101 440 441 462 461 .0 422- CQUAD1 442 101 442 443 464 463 .0 423- CQUAD1 443 101 443 444 465 464 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- CQUAD1 444 101 444 445 466 465 .0 425- CQUAD1 445 101 445 446 467 466 .0 426- CQUAD1 446 101 446 447 468 467 .0 427- CQUAD1 447 101 447 448 469 468 .0 428- CQUAD1 448 101 448 449 470 469 .0 429- CQUAD1 449 101 449 450 471 470 .0 430- CQUAD1 450 101 450 451 472 471 .0 431- CQUAD1 451 101 451 452 473 472 .0 432- CQUAD1 452 101 452 453 474 473 .0 433- CQUAD1 453 101 453 454 475 474 .0 434- CQUAD1 454 101 454 455 476 475 .0 435- CQUAD1 455 101 455 456 477 476 .0 436- CQUAD1 456 101 456 457 478 477 .0 437- CQUAD1 457 101 457 458 479 478 .0 438- CQUAD1 458 101 458 459 480 479 .0 439- CQUAD1 459 101 459 460 481 480 .0 440- CQUAD1 460 101 460 461 482 481 .0 441- CQUAD1 461 101 461 462 483 482 .0 442- CQUAD1 463 101 463 464 485 484 .0 443- CQUAD1 464 101 464 465 486 485 .0 444- CQUAD1 465 101 465 466 487 486 .0 445- CQUAD1 466 101 466 467 488 487 .0 446- CQUAD1 467 101 467 468 489 488 .0 447- CQUAD1 468 101 468 469 490 489 .0 448- CQUAD1 469 101 469 470 491 490 .0 449- CQUAD1 470 101 470 471 492 491 .0 450- CQUAD1 471 101 471 472 493 492 .0 451- CQUAD1 472 101 472 473 494 493 .0 452- CQUAD1 473 101 473 474 495 494 .0 453- CQUAD1 474 101 474 475 496 495 .0 454- CQUAD1 475 101 475 476 497 496 .0 455- CQUAD1 476 101 476 477 498 497 .0 456- CQUAD1 477 101 477 478 499 498 .0 457- CQUAD1 478 101 478 479 500 499 .0 458- CQUAD1 479 101 479 480 501 500 .0 459- CQUAD1 480 101 480 481 502 501 .0 460- CQUAD1 481 101 481 482 503 502 .0 461- CQUAD1 482 101 482 483 504 503 .0 462- CQUAD1 484 101 484 485 506 505 .0 463- CQUAD1 485 101 485 486 507 506 .0 464- CQUAD1 486 101 486 487 508 507 .0 465- CQUAD1 487 101 487 488 509 508 .0 466- CQUAD1 488 101 488 489 510 509 .0 467- CQUAD1 489 101 489 490 511 510 .0 468- CQUAD1 490 101 490 491 512 511 .0 469- CQUAD1 491 101 491 492 513 512 .0 470- CQUAD1 492 101 492 493 514 513 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- CQUAD1 493 101 493 494 515 514 .0 472- CQUAD1 494 101 494 495 516 515 .0 473- CQUAD1 495 101 495 496 517 516 .0 474- CQUAD1 496 101 496 497 518 517 .0 475- CQUAD1 497 101 497 498 519 518 .0 476- CQUAD1 498 101 498 499 520 519 .0 477- CQUAD1 499 101 499 500 521 520 .0 478- CQUAD1 500 101 500 501 522 521 .0 479- CQUAD1 501 101 501 502 523 522 .0 480- CQUAD1 502 101 502 503 524 523 .0 481- CQUAD1 503 101 503 504 525 524 .0 482- CQUAD1 505 101 505 506 527 526 .0 483- CQUAD1 506 101 506 507 528 527 .0 484- CQUAD1 507 101 507 508 529 528 .0 485- CQUAD1 508 101 508 509 530 529 .0 486- CQUAD1 509 101 509 510 531 530 .0 487- CQUAD1 510 101 510 511 532 531 .0 488- CQUAD1 511 101 511 512 533 532 .0 489- CQUAD1 512 101 512 513 534 533 .0 490- CQUAD1 513 101 513 514 535 534 .0 491- CQUAD1 514 101 514 515 536 535 .0 492- CQUAD1 515 101 515 516 537 536 .0 493- CQUAD1 516 101 516 517 538 537 .0 494- CQUAD1 517 101 517 518 539 538 .0 495- CQUAD1 518 101 518 519 540 539 .0 496- CQUAD1 519 101 519 520 541 540 .0 497- CQUAD1 520 101 520 521 542 541 .0 498- CQUAD1 521 101 521 522 543 542 .0 499- CQUAD1 522 101 522 523 544 543 .0 500- CQUAD1 523 101 523 524 545 544 .0 501- CQUAD1 524 101 524 525 546 545 .0 502- CQUAD1 526 101 526 527 548 547 .0 503- CQUAD1 527 101 527 528 549 548 .0 504- CQUAD1 528 101 528 529 550 549 .0 505- CQUAD1 529 101 529 530 551 550 .0 506- CQUAD1 530 101 530 531 552 551 .0 507- CQUAD1 531 101 531 532 553 552 .0 508- CQUAD1 532 101 532 533 554 553 .0 509- CQUAD1 533 101 533 534 555 554 .0 510- CQUAD1 534 101 534 535 556 555 .0 511- CQUAD1 535 101 535 536 557 556 .0 512- CQUAD1 536 101 536 537 558 557 .0 513- CQUAD1 537 101 537 538 559 558 .0 514- CQUAD1 538 101 538 539 560 559 .0 515- CQUAD1 539 101 539 540 561 560 .0 516- CQUAD1 540 101 540 541 562 561 .0 517- CQUAD1 541 101 541 542 563 562 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- CQUAD1 542 101 542 543 564 563 .0 519- CQUAD1 543 101 543 544 565 564 .0 520- CQUAD1 544 101 544 545 566 565 .0 521- CQUAD1 545 101 545 546 567 566 .0 522- CQUAD1 547 101 547 548 569 568 .0 523- CQUAD1 548 101 548 549 570 569 .0 524- CQUAD1 549 101 549 550 571 570 .0 525- CQUAD1 550 101 550 551 572 571 .0 526- CQUAD1 551 101 551 552 573 572 .0 527- CQUAD1 552 101 552 553 574 573 .0 528- CQUAD1 553 101 553 554 575 574 .0 529- CQUAD1 554 101 554 555 576 575 .0 530- CQUAD1 555 101 555 556 577 576 .0 531- CQUAD1 556 101 556 557 578 577 .0 532- CQUAD1 557 101 557 558 579 578 .0 533- CQUAD1 558 101 558 559 580 579 .0 534- CQUAD1 559 101 559 560 581 580 .0 535- CQUAD1 560 101 560 561 582 581 .0 536- CQUAD1 561 101 561 562 583 582 .0 537- CQUAD1 562 101 562 563 584 583 .0 538- CQUAD1 563 101 563 564 585 584 .0 539- CQUAD1 564 101 564 565 586 585 .0 540- CQUAD1 565 101 565 566 587 586 .0 541- CQUAD1 566 101 566 567 588 587 .0 542- CQUAD1 568 101 568 569 590 589 .0 543- CQUAD1 569 101 569 570 591 590 .0 544- CQUAD1 570 101 570 571 592 591 .0 545- CQUAD1 571 101 571 572 593 592 .0 546- CQUAD1 572 101 572 573 594 593 .0 547- CQUAD1 573 101 573 574 595 594 .0 548- CQUAD1 574 101 574 575 596 595 .0 549- CQUAD1 575 101 575 576 597 596 .0 550- CQUAD1 576 101 576 577 598 597 .0 551- CQUAD1 577 101 577 578 599 598 .0 552- CQUAD1 578 101 578 579 600 599 .0 553- CQUAD1 579 101 579 580 601 600 .0 554- CQUAD1 580 101 580 581 602 601 .0 555- CQUAD1 581 101 581 582 603 602 .0 556- CQUAD1 582 101 582 583 604 603 .0 557- CQUAD1 583 101 583 584 605 604 .0 558- CQUAD1 584 101 584 585 606 605 .0 559- CQUAD1 585 101 585 586 607 606 .0 560- CQUAD1 586 101 586 587 608 607 .0 561- CQUAD1 587 101 587 588 609 608 .0 562- CQUAD1 589 101 589 590 611 610 .0 563- CQUAD1 590 101 590 591 612 611 .0 564- CQUAD1 591 101 591 592 613 612 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 565- CQUAD1 592 101 592 593 614 613 .0 566- CQUAD1 593 101 593 594 615 614 .0 567- CQUAD1 594 101 594 595 616 615 .0 568- CQUAD1 595 101 595 596 617 616 .0 569- CQUAD1 596 101 596 597 618 617 .0 570- CQUAD1 597 101 597 598 619 618 .0 571- CQUAD1 598 101 598 599 620 619 .0 572- CQUAD1 599 101 599 600 621 620 .0 573- CQUAD1 600 101 600 601 622 621 .0 574- CQUAD1 601 101 601 602 623 622 .0 575- CQUAD1 602 101 602 603 624 623 .0 576- CQUAD1 603 101 603 604 625 624 .0 577- CQUAD1 604 101 604 605 626 625 .0 578- CQUAD1 605 101 605 606 627 626 .0 579- CQUAD1 606 101 606 607 628 627 .0 580- CQUAD1 607 101 607 608 629 628 .0 581- CQUAD1 608 101 608 609 630 629 .0 582- CQUAD1 610 101 610 611 632 631 .0 583- CQUAD1 611 101 611 612 633 632 .0 584- CQUAD1 612 101 612 613 634 633 .0 585- CQUAD1 613 101 613 614 635 634 .0 586- CQUAD1 614 101 614 615 636 635 .0 587- CQUAD1 615 101 615 616 637 636 .0 588- CQUAD1 616 101 616 617 638 637 .0 589- CQUAD1 617 101 617 618 639 638 .0 590- CQUAD1 618 101 618 619 640 639 .0 591- CQUAD1 619 101 619 620 641 640 .0 592- CQUAD1 620 101 620 621 642 641 .0 593- CQUAD1 621 101 621 622 643 642 .0 594- CQUAD1 622 101 622 623 644 643 .0 595- CQUAD1 623 101 623 624 645 644 .0 596- CQUAD1 624 101 624 625 646 645 .0 597- CQUAD1 625 101 625 626 647 646 .0 598- CQUAD1 626 101 626 627 648 647 .0 599- CQUAD1 627 101 627 628 649 648 .0 600- CQUAD1 628 101 628 629 650 649 .0 601- CQUAD1 629 101 629 630 651 650 .0 602- CQUAD1 631 101 631 632 653 652 .0 603- CQUAD1 632 101 632 633 654 653 .0 604- CQUAD1 633 101 633 634 655 654 .0 605- CQUAD1 634 101 634 635 656 655 .0 606- CQUAD1 635 101 635 636 657 656 .0 607- CQUAD1 636 101 636 637 658 657 .0 608- CQUAD1 637 101 637 638 659 658 .0 609- CQUAD1 638 101 638 639 660 659 .0 610- CQUAD1 639 101 639 640 661 660 .0 611- CQUAD1 640 101 640 641 662 661 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 612- CQUAD1 641 101 641 642 663 662 .0 613- CQUAD1 642 101 642 643 664 663 .0 614- CQUAD1 643 101 643 644 665 664 .0 615- CQUAD1 644 101 644 645 666 665 .0 616- CQUAD1 645 101 645 646 667 666 .0 617- CQUAD1 646 101 646 647 668 667 .0 618- CQUAD1 647 101 647 648 669 668 .0 619- CQUAD1 648 101 648 649 670 669 .0 620- CQUAD1 649 101 649 650 671 670 .0 621- CQUAD1 650 101 650 651 672 671 .0 622- CQUAD1 652 101 652 653 674 673 .0 623- CQUAD1 653 101 653 654 675 674 .0 624- CQUAD1 654 101 654 655 676 675 .0 625- CQUAD1 655 101 655 656 677 676 .0 626- CQUAD1 656 101 656 657 678 677 .0 627- CQUAD1 657 101 657 658 679 678 .0 628- CQUAD1 658 101 658 659 680 679 .0 629- CQUAD1 659 101 659 660 681 680 .0 630- CQUAD1 660 101 660 661 682 681 .0 631- CQUAD1 661 101 661 662 683 682 .0 632- CQUAD1 662 101 662 663 684 683 .0 633- CQUAD1 663 101 663 664 685 684 .0 634- CQUAD1 664 101 664 665 686 685 .0 635- CQUAD1 665 101 665 666 687 686 .0 636- CQUAD1 666 101 666 667 688 687 .0 637- CQUAD1 667 101 667 668 689 688 .0 638- CQUAD1 668 101 668 669 690 689 .0 639- CQUAD1 669 101 669 670 691 690 .0 640- CQUAD1 670 101 670 671 692 691 .0 641- CQUAD1 671 101 671 672 693 692 .0 642- CQUAD1 673 101 673 674 695 694 .0 643- CQUAD1 674 101 674 675 696 695 .0 644- CQUAD1 675 101 675 676 697 696 .0 645- CQUAD1 676 101 676 677 698 697 .0 646- CQUAD1 677 101 677 678 699 698 .0 647- CQUAD1 678 101 678 679 700 699 .0 648- CQUAD1 679 101 679 680 701 700 .0 649- CQUAD1 680 101 680 681 702 701 .0 650- CQUAD1 681 101 681 682 703 702 .0 651- CQUAD1 682 101 682 683 704 703 .0 652- CQUAD1 683 101 683 684 705 704 .0 653- CQUAD1 684 101 684 685 706 705 .0 654- CQUAD1 685 101 685 686 707 706 .0 655- CQUAD1 686 101 686 687 708 707 .0 656- CQUAD1 687 101 687 688 709 708 .0 657- CQUAD1 688 101 688 689 710 709 .0 658- CQUAD1 689 101 689 690 711 710 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 659- CQUAD1 690 101 690 691 712 711 .0 660- CQUAD1 691 101 691 692 713 712 .0 661- CQUAD1 692 101 692 693 714 713 .0 662- CQUAD1 694 101 694 695 716 715 .0 663- CQUAD1 695 101 695 696 717 716 .0 664- CQUAD1 696 101 696 697 718 717 .0 665- CQUAD1 697 101 697 698 719 718 .0 666- CQUAD1 698 101 698 699 720 719 .0 667- CQUAD1 699 101 699 700 721 720 .0 668- CQUAD1 700 101 700 701 722 721 .0 669- CQUAD1 701 101 701 702 723 722 .0 670- CQUAD1 702 101 702 703 724 723 .0 671- CQUAD1 703 101 703 704 725 724 .0 672- CQUAD1 704 101 704 705 726 725 .0 673- CQUAD1 705 101 705 706 727 726 .0 674- CQUAD1 706 101 706 707 728 727 .0 675- CQUAD1 707 101 707 708 729 728 .0 676- CQUAD1 708 101 708 709 730 729 .0 677- CQUAD1 709 101 709 710 731 730 .0 678- CQUAD1 710 101 710 711 732 731 .0 679- CQUAD1 711 101 711 712 733 732 .0 680- CQUAD1 712 101 712 713 734 733 .0 681- CQUAD1 713 101 713 714 735 734 .0 682- CQUAD1 715 101 715 716 737 736 .0 683- CQUAD1 716 101 716 717 738 737 .0 684- CQUAD1 717 101 717 718 739 738 .0 685- CQUAD1 718 101 718 719 740 739 .0 686- CQUAD1 719 101 719 720 741 740 .0 687- CQUAD1 720 101 720 721 742 741 .0 688- CQUAD1 721 101 721 722 743 742 .0 689- CQUAD1 722 101 722 723 744 743 .0 690- CQUAD1 723 101 723 724 745 744 .0 691- CQUAD1 724 101 724 725 746 745 .0 692- CQUAD1 725 101 725 726 747 746 .0 693- CQUAD1 726 101 726 727 748 747 .0 694- CQUAD1 727 101 727 728 749 748 .0 695- CQUAD1 728 101 728 729 750 749 .0 696- CQUAD1 729 101 729 730 751 750 .0 697- CQUAD1 730 101 730 731 752 751 .0 698- CQUAD1 731 101 731 732 753 752 .0 699- CQUAD1 732 101 732 733 754 753 .0 700- CQUAD1 733 101 733 734 755 754 .0 701- CQUAD1 734 101 734 735 756 755 .0 702- CQUAD1 736 101 736 737 758 757 .0 703- CQUAD1 737 101 737 738 759 758 .0 704- CQUAD1 738 101 738 739 760 759 .0 705- CQUAD1 739 101 739 740 761 760 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 706- CQUAD1 740 101 740 741 762 761 .0 707- CQUAD1 741 101 741 742 763 762 .0 708- CQUAD1 742 101 742 743 764 763 .0 709- CQUAD1 743 101 743 744 765 764 .0 710- CQUAD1 744 101 744 745 766 765 .0 711- CQUAD1 745 101 745 746 767 766 .0 712- CQUAD1 746 101 746 747 768 767 .0 713- CQUAD1 747 101 747 748 769 768 .0 714- CQUAD1 748 101 748 749 770 769 .0 715- CQUAD1 749 101 749 750 771 770 .0 716- CQUAD1 750 101 750 751 772 771 .0 717- CQUAD1 751 101 751 752 773 772 .0 718- CQUAD1 752 101 752 753 774 773 .0 719- CQUAD1 753 101 753 754 775 774 .0 720- CQUAD1 754 101 754 755 776 775 .0 721- CQUAD1 755 101 755 756 777 776 .0 722- CQUAD1 757 101 757 758 779 778 .0 723- CQUAD1 758 101 758 759 780 779 .0 724- CQUAD1 759 101 759 760 781 780 .0 725- CQUAD1 760 101 760 761 782 781 .0 726- CQUAD1 761 101 761 762 783 782 .0 727- CQUAD1 762 101 762 763 784 783 .0 728- CQUAD1 763 101 763 764 785 784 .0 729- CQUAD1 764 101 764 765 786 785 .0 730- CQUAD1 765 101 765 766 787 786 .0 731- CQUAD1 766 101 766 767 788 787 .0 732- CQUAD1 767 101 767 768 789 788 .0 733- CQUAD1 768 101 768 769 790 789 .0 734- CQUAD1 769 101 769 770 791 790 .0 735- CQUAD1 770 101 770 771 792 791 .0 736- CQUAD1 771 101 771 772 793 792 .0 737- CQUAD1 772 101 772 773 794 793 .0 738- CQUAD1 773 101 773 774 795 794 .0 739- CQUAD1 774 101 774 775 796 795 .0 740- CQUAD1 775 101 775 776 797 796 .0 741- CQUAD1 776 101 776 777 798 797 .0 742- CQUAD1 778 101 778 779 800 799 .0 743- CQUAD1 779 101 779 780 801 800 .0 744- CQUAD1 780 101 780 781 802 801 .0 745- CQUAD1 781 101 781 782 803 802 .0 746- CQUAD1 782 101 782 783 804 803 .0 747- CQUAD1 783 101 783 784 805 804 .0 748- CQUAD1 784 101 784 785 806 805 .0 749- CQUAD1 785 101 785 786 807 806 .0 750- CQUAD1 786 101 786 787 808 807 .0 751- CQUAD1 787 101 787 788 809 808 .0 752- CQUAD1 788 101 788 789 810 809 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 753- CQUAD1 789 101 789 790 811 810 .0 754- CQUAD1 790 101 790 791 812 811 .0 755- CQUAD1 791 101 791 792 813 812 .0 756- CQUAD1 792 101 792 793 814 813 .0 757- CQUAD1 793 101 793 794 815 814 .0 758- CQUAD1 794 101 794 795 816 815 .0 759- CQUAD1 795 101 795 796 817 816 .0 760- CQUAD1 796 101 796 797 818 817 .0 761- CQUAD1 797 101 797 798 819 818 .0 762- CQUAD1 799 101 799 800 821 820 .0 763- CQUAD1 800 101 800 801 822 821 .0 764- CQUAD1 801 101 801 802 823 822 .0 765- CQUAD1 802 101 802 803 824 823 .0 766- CQUAD1 803 101 803 804 825 824 .0 767- CQUAD1 804 101 804 805 826 825 .0 768- CQUAD1 805 101 805 806 827 826 .0 769- CQUAD1 806 101 806 807 828 827 .0 770- CQUAD1 807 101 807 808 829 828 .0 771- CQUAD1 808 101 808 809 830 829 .0 772- CQUAD1 809 101 809 810 831 830 .0 773- CQUAD1 810 101 810 811 832 831 .0 774- CQUAD1 811 101 811 812 833 832 .0 775- CQUAD1 812 101 812 813 834 833 .0 776- CQUAD1 813 101 813 814 835 834 .0 777- CQUAD1 814 101 814 815 836 835 .0 778- CQUAD1 815 101 815 816 837 836 .0 779- CQUAD1 816 101 816 817 838 837 .0 780- CQUAD1 817 101 817 818 839 838 .0 781- CQUAD1 818 101 818 819 840 839 .0 782- CQUAD1 820 101 820 821 842 841 .0 783- CQUAD1 821 101 821 822 843 842 .0 784- CQUAD1 822 101 822 823 844 843 .0 785- CQUAD1 823 101 823 824 845 844 .0 786- CQUAD1 824 101 824 825 846 845 .0 787- CQUAD1 825 101 825 826 847 846 .0 788- CQUAD1 826 101 826 827 848 847 .0 789- CQUAD1 827 101 827 828 849 848 .0 790- CQUAD1 828 101 828 829 850 849 .0 791- CQUAD1 829 101 829 830 851 850 .0 792- CQUAD1 830 101 830 831 852 851 .0 793- CQUAD1 831 101 831 832 853 852 .0 794- CQUAD1 832 101 832 833 854 853 .0 795- CQUAD1 833 101 833 834 855 854 .0 796- CQUAD1 834 101 834 835 856 855 .0 797- CQUAD1 835 101 835 836 857 856 .0 798- CQUAD1 836 101 836 837 858 857 .0 799- CQUAD1 837 101 837 838 859 858 .0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 800- CQUAD1 838 101 838 839 860 859 .0 801- CQUAD1 839 101 839 840 861 860 .0 802- EIGR 2 INV .85 .89 1 1 0 CSIMPL-I 803- +SIMPL-IMAX 804- EIGR 3 INV .89 1.0 1 3 0 +EIG3-I 805- +EIG3-I MAX 806- EIGR 4 DET .89 1.0 1 1 0 +EIG4-D 807- +EIG4-D MAX 808- EIGR 5 INV .89 2.4 1 3 0 +EIG5-2 809- +EIG5-2 MAX 810- EIGR 6 DET .89 2.4 2 2 0 +EIG6-2 811- +EIG6-2 MAX 812- EIGR 7 INV .89 6.1 5 5 0 +EIG7-5 813- +EIG7-5 MAX 814- EIGR 9 INV .89 14.5 4 10 0 +EIG9-10 815- +EIG9-10MAX 816- EIGR 11 INV .89 29.0 20 20 0 +EIG1120 817- +EIG1120MAX 818- EIGR 20 FEER .87 1 +FEER 819- +FEER MAX 820- GRDSET 126 821- GRID 1 0 .0 .0 .0 0 126 822- GRID 2 0 .5 .0 .0 0 126 823- GRID 3 0 1.0 .0 .0 0 126 824- GRID 4 0 1.5 .0 .0 0 126 825- GRID 5 0 2.0 .0 .0 0 126 826- GRID 6 0 2.5 .0 .0 0 126 827- GRID 7 0 3.0 .0 .0 0 126 828- GRID 8 0 3.5 .0 .0 0 126 829- GRID 9 0 4.0 .0 .0 0 126 830- GRID 10 0 4.5 .0 .0 0 126 831- GRID 11 0 5.0 .0 .0 0 126 832- GRID 12 0 5.5 .0 .0 0 126 833- GRID 13 0 6.0 .0 .0 0 126 834- GRID 14 0 6.5 .0 .0 0 126 835- GRID 15 0 7.0 .0 .0 0 126 836- GRID 16 0 7.5 .0 .0 0 126 837- GRID 17 0 8.0 .0 .0 0 126 838- GRID 18 0 8.5 .0 .0 0 126 839- GRID 19 0 9.0 .0 .0 0 126 840- GRID 20 0 9.5 .0 .0 0 126 841- GRID 21 0 10.0 .0 .0 0 126 842- GRID 22 0 .0 .5 .0 0 126 843- GRID 23 0 .5 .5 .0 0 126 844- GRID 24 0 1.0 .5 .0 0 126 845- GRID 25 0 1.5 .5 .0 0 126 846- GRID 26 0 2.0 .5 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 847- GRID 27 0 2.5 .5 .0 0 126 848- GRID 28 0 3.0 .5 .0 0 126 849- GRID 29 0 3.5 .5 .0 0 126 850- GRID 30 0 4.0 .5 .0 0 126 851- GRID 31 0 4.5 .5 .0 0 126 852- GRID 32 0 5.0 .5 .0 0 126 853- GRID 33 0 5.5 .5 .0 0 126 854- GRID 34 0 6.0 .5 .0 0 126 855- GRID 35 0 6.5 .5 .0 0 126 856- GRID 36 0 7.0 .5 .0 0 126 857- GRID 37 0 7.5 .5 .0 0 126 858- GRID 38 0 8.0 .5 .0 0 126 859- GRID 39 0 8.5 .5 .0 0 126 860- GRID 40 0 9.0 .5 .0 0 126 861- GRID 41 0 9.5 .5 .0 0 126 862- GRID 42 0 10.0 .5 .0 0 126 863- GRID 43 0 .0 1.0 .0 0 126 864- GRID 44 0 .5 1.0 .0 0 126 865- GRID 45 0 1.0 1.0 .0 0 126 866- GRID 46 0 1.5 1.0 .0 0 126 867- GRID 47 0 2.0 1.0 .0 0 126 868- GRID 48 0 2.5 1.0 .0 0 126 869- GRID 49 0 3.0 1.0 .0 0 126 870- GRID 50 0 3.5 1.0 .0 0 126 871- GRID 51 0 4.0 1.0 .0 0 126 872- GRID 52 0 4.5 1.0 .0 0 126 873- GRID 53 0 5.0 1.0 .0 0 126 874- GRID 54 0 5.5 1.0 .0 0 126 875- GRID 55 0 6.0 1.0 .0 0 126 876- GRID 56 0 6.5 1.0 .0 0 126 877- GRID 57 0 7.0 1.0 .0 0 126 878- GRID 58 0 7.5 1.0 .0 0 126 879- GRID 59 0 8.0 1.0 .0 0 126 880- GRID 60 0 8.5 1.0 .0 0 126 881- GRID 61 0 9.0 1.0 .0 0 126 882- GRID 62 0 9.5 1.0 .0 0 126 883- GRID 63 0 10.0 1.0 .0 0 126 884- GRID 64 0 .0 1.5 .0 0 126 885- GRID 65 0 .5 1.5 .0 0 126 886- GRID 66 0 1.0 1.5 .0 0 126 887- GRID 67 0 1.5 1.5 .0 0 126 888- GRID 68 0 2.0 1.5 .0 0 126 889- GRID 69 0 2.5 1.5 .0 0 126 890- GRID 70 0 3.0 1.5 .0 0 126 891- GRID 71 0 3.5 1.5 .0 0 126 892- GRID 72 0 4.0 1.5 .0 0 126 893- GRID 73 0 4.5 1.5 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 894- GRID 74 0 5.0 1.5 .0 0 126 895- GRID 75 0 5.5 1.5 .0 0 126 896- GRID 76 0 6.0 1.5 .0 0 126 897- GRID 77 0 6.5 1.5 .0 0 126 898- GRID 78 0 7.0 1.5 .0 0 126 899- GRID 79 0 7.5 1.5 .0 0 126 900- GRID 80 0 8.0 1.5 .0 0 126 901- GRID 81 0 8.5 1.5 .0 0 126 902- GRID 82 0 9.0 1.5 .0 0 126 903- GRID 83 0 9.5 1.5 .0 0 126 904- GRID 84 0 10.0 1.5 .0 0 126 905- GRID 85 0 .0 2.0 .0 0 126 906- GRID 86 0 .5 2.0 .0 0 126 907- GRID 87 0 1.0 2.0 .0 0 126 908- GRID 88 0 1.5 2.0 .0 0 126 909- GRID 89 0 2.0 2.0 .0 0 126 910- GRID 90 0 2.5 2.0 .0 0 126 911- GRID 91 0 3.0 2.0 .0 0 126 912- GRID 92 0 3.5 2.0 .0 0 126 913- GRID 93 0 4.0 2.0 .0 0 126 914- GRID 94 0 4.5 2.0 .0 0 126 915- GRID 95 0 5.0 2.0 .0 0 126 916- GRID 96 0 5.5 2.0 .0 0 126 917- GRID 97 0 6.0 2.0 .0 0 126 918- GRID 98 0 6.5 2.0 .0 0 126 919- GRID 99 0 7.0 2.0 .0 0 126 920- GRID 100 0 7.5 2.0 .0 0 126 921- GRID 101 0 8.0 2.0 .0 0 126 922- GRID 102 0 8.5 2.0 .0 0 126 923- GRID 103 0 9.0 2.0 .0 0 126 924- GRID 104 0 9.5 2.0 .0 0 126 925- GRID 105 0 10.0 2.0 .0 0 126 926- GRID 106 0 .0 2.5 .0 0 126 927- GRID 107 0 .5 2.5 .0 0 126 928- GRID 108 0 1.0 2.5 .0 0 126 929- GRID 109 0 1.5 2.5 .0 0 126 930- GRID 110 0 2.0 2.5 .0 0 126 931- GRID 111 0 2.5 2.5 .0 0 126 932- GRID 112 0 3.0 2.5 .0 0 126 933- GRID 113 0 3.5 2.5 .0 0 126 934- GRID 114 0 4.0 2.5 .0 0 126 935- GRID 115 0 4.5 2.5 .0 0 126 936- GRID 116 0 5.0 2.5 .0 0 126 937- GRID 117 0 5.5 2.5 .0 0 126 938- GRID 118 0 6.0 2.5 .0 0 126 939- GRID 119 0 6.5 2.5 .0 0 126 940- GRID 120 0 7.0 2.5 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 941- GRID 121 0 7.5 2.5 .0 0 126 942- GRID 122 0 8.0 2.5 .0 0 126 943- GRID 123 0 8.5 2.5 .0 0 126 944- GRID 124 0 9.0 2.5 .0 0 126 945- GRID 125 0 9.5 2.5 .0 0 126 946- GRID 126 0 10.0 2.5 .0 0 126 947- GRID 127 0 .0 3.0 .0 0 126 948- GRID 128 0 .5 3.0 .0 0 126 949- GRID 129 0 1.0 3.0 .0 0 126 950- GRID 130 0 1.5 3.0 .0 0 126 951- GRID 131 0 2.0 3.0 .0 0 126 952- GRID 132 0 2.5 3.0 .0 0 126 953- GRID 133 0 3.0 3.0 .0 0 126 954- GRID 134 0 3.5 3.0 .0 0 126 955- GRID 135 0 4.0 3.0 .0 0 126 956- GRID 136 0 4.5 3.0 .0 0 126 957- GRID 137 0 5.0 3.0 .0 0 126 958- GRID 138 0 5.5 3.0 .0 0 126 959- GRID 139 0 6.0 3.0 .0 0 126 960- GRID 140 0 6.5 3.0 .0 0 126 961- GRID 141 0 7.0 3.0 .0 0 126 962- GRID 142 0 7.5 3.0 .0 0 126 963- GRID 143 0 8.0 3.0 .0 0 126 964- GRID 144 0 8.5 3.0 .0 0 126 965- GRID 145 0 9.0 3.0 .0 0 126 966- GRID 146 0 9.5 3.0 .0 0 126 967- GRID 147 0 10.0 3.0 .0 0 126 968- GRID 148 0 .0 3.5 .0 0 126 969- GRID 149 0 .5 3.5 .0 0 126 970- GRID 150 0 1.0 3.5 .0 0 126 971- GRID 151 0 1.5 3.5 .0 0 126 972- GRID 152 0 2.0 3.5 .0 0 126 973- GRID 153 0 2.5 3.5 .0 0 126 974- GRID 154 0 3.0 3.5 .0 0 126 975- GRID 155 0 3.5 3.5 .0 0 126 976- GRID 156 0 4.0 3.5 .0 0 126 977- GRID 157 0 4.5 3.5 .0 0 126 978- GRID 158 0 5.0 3.5 .0 0 126 979- GRID 159 0 5.5 3.5 .0 0 126 980- GRID 160 0 6.0 3.5 .0 0 126 981- GRID 161 0 6.5 3.5 .0 0 126 982- GRID 162 0 7.0 3.5 .0 0 126 983- GRID 163 0 7.5 3.5 .0 0 126 984- GRID 164 0 8.0 3.5 .0 0 126 985- GRID 165 0 8.5 3.5 .0 0 126 986- GRID 166 0 9.0 3.5 .0 0 126 987- GRID 167 0 9.5 3.5 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 988- GRID 168 0 10.0 3.5 .0 0 126 989- GRID 169 0 .0 4.0 .0 0 126 990- GRID 170 0 .5 4.0 .0 0 126 991- GRID 171 0 1.0 4.0 .0 0 126 992- GRID 172 0 1.5 4.0 .0 0 126 993- GRID 173 0 2.0 4.0 .0 0 126 994- GRID 174 0 2.5 4.0 .0 0 126 995- GRID 175 0 3.0 4.0 .0 0 126 996- GRID 176 0 3.5 4.0 .0 0 126 997- GRID 177 0 4.0 4.0 .0 0 126 998- GRID 178 0 4.5 4.0 .0 0 126 999- GRID 179 0 5.0 4.0 .0 0 126 1000- GRID 180 0 5.5 4.0 .0 0 126 1001- GRID 181 0 6.0 4.0 .0 0 126 1002- GRID 182 0 6.5 4.0 .0 0 126 1003- GRID 183 0 7.0 4.0 .0 0 126 1004- GRID 184 0 7.5 4.0 .0 0 126 1005- GRID 185 0 8.0 4.0 .0 0 126 1006- GRID 186 0 8.5 4.0 .0 0 126 1007- GRID 187 0 9.0 4.0 .0 0 126 1008- GRID 188 0 9.5 4.0 .0 0 126 1009- GRID 189 0 10.0 4.0 .0 0 126 1010- GRID 190 0 .0 4.5 .0 0 126 1011- GRID 191 0 .5 4.5 .0 0 126 1012- GRID 192 0 1.0 4.5 .0 0 126 1013- GRID 193 0 1.5 4.5 .0 0 126 1014- GRID 194 0 2.0 4.5 .0 0 126 1015- GRID 195 0 2.5 4.5 .0 0 126 1016- GRID 196 0 3.0 4.5 .0 0 126 1017- GRID 197 0 3.5 4.5 .0 0 126 1018- GRID 198 0 4.0 4.5 .0 0 126 1019- GRID 199 0 4.5 4.5 .0 0 126 1020- GRID 200 0 5.0 4.5 .0 0 126 1021- GRID 201 0 5.5 4.5 .0 0 126 1022- GRID 202 0 6.0 4.5 .0 0 126 1023- GRID 203 0 6.5 4.5 .0 0 126 1024- GRID 204 0 7.0 4.5 .0 0 126 1025- GRID 205 0 7.5 4.5 .0 0 126 1026- GRID 206 0 8.0 4.5 .0 0 126 1027- GRID 207 0 8.5 4.5 .0 0 126 1028- GRID 208 0 9.0 4.5 .0 0 126 1029- GRID 209 0 9.5 4.5 .0 0 126 1030- GRID 210 0 10.0 4.5 .0 0 126 1031- GRID 211 0 .0 5.0 .0 0 126 1032- GRID 212 0 .5 5.0 .0 0 126 1033- GRID 213 0 1.0 5.0 .0 0 126 1034- GRID 214 0 1.5 5.0 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1035- GRID 215 0 2.0 5.0 .0 0 126 1036- GRID 216 0 2.5 5.0 .0 0 126 1037- GRID 217 0 3.0 5.0 .0 0 126 1038- GRID 218 0 3.5 5.0 .0 0 126 1039- GRID 219 0 4.0 5.0 .0 0 126 1040- GRID 220 0 4.5 5.0 .0 0 126 1041- GRID 221 0 5.0 5.0 .0 0 126 1042- GRID 222 0 5.5 5.0 .0 0 126 1043- GRID 223 0 6.0 5.0 .0 0 126 1044- GRID 224 0 6.5 5.0 .0 0 126 1045- GRID 225 0 7.0 5.0 .0 0 126 1046- GRID 226 0 7.5 5.0 .0 0 126 1047- GRID 227 0 8.0 5.0 .0 0 126 1048- GRID 228 0 8.5 5.0 .0 0 126 1049- GRID 229 0 9.0 5.0 .0 0 126 1050- GRID 230 0 9.5 5.0 .0 0 126 1051- GRID 231 0 10.0 5.0 .0 0 126 1052- GRID 232 0 .0 5.5 .0 0 126 1053- GRID 233 0 .5 5.5 .0 0 126 1054- GRID 234 0 1.0 5.5 .0 0 126 1055- GRID 235 0 1.5 5.5 .0 0 126 1056- GRID 236 0 2.0 5.5 .0 0 126 1057- GRID 237 0 2.5 5.5 .0 0 126 1058- GRID 238 0 3.0 5.5 .0 0 126 1059- GRID 239 0 3.5 5.5 .0 0 126 1060- GRID 240 0 4.0 5.5 .0 0 126 1061- GRID 241 0 4.5 5.5 .0 0 126 1062- GRID 242 0 5.0 5.5 .0 0 126 1063- GRID 243 0 5.5 5.5 .0 0 126 1064- GRID 244 0 6.0 5.5 .0 0 126 1065- GRID 245 0 6.5 5.5 .0 0 126 1066- GRID 246 0 7.0 5.5 .0 0 126 1067- GRID 247 0 7.5 5.5 .0 0 126 1068- GRID 248 0 8.0 5.5 .0 0 126 1069- GRID 249 0 8.5 5.5 .0 0 126 1070- GRID 250 0 9.0 5.5 .0 0 126 1071- GRID 251 0 9.5 5.5 .0 0 126 1072- GRID 252 0 10.0 5.5 .0 0 126 1073- GRID 253 0 .0 6.0 .0 0 126 1074- GRID 254 0 .5 6.0 .0 0 126 1075- GRID 255 0 1.0 6.0 .0 0 126 1076- GRID 256 0 1.5 6.0 .0 0 126 1077- GRID 257 0 2.0 6.0 .0 0 126 1078- GRID 258 0 2.5 6.0 .0 0 126 1079- GRID 259 0 3.0 6.0 .0 0 126 1080- GRID 260 0 3.5 6.0 .0 0 126 1081- GRID 261 0 4.0 6.0 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1082- GRID 262 0 4.5 6.0 .0 0 126 1083- GRID 263 0 5.0 6.0 .0 0 126 1084- GRID 264 0 5.5 6.0 .0 0 126 1085- GRID 265 0 6.0 6.0 .0 0 126 1086- GRID 266 0 6.5 6.0 .0 0 126 1087- GRID 267 0 7.0 6.0 .0 0 126 1088- GRID 268 0 7.5 6.0 .0 0 126 1089- GRID 269 0 8.0 6.0 .0 0 126 1090- GRID 270 0 8.5 6.0 .0 0 126 1091- GRID 271 0 9.0 6.0 .0 0 126 1092- GRID 272 0 9.5 6.0 .0 0 126 1093- GRID 273 0 10.0 6.0 .0 0 126 1094- GRID 274 0 .0 6.5 .0 0 126 1095- GRID 275 0 .5 6.5 .0 0 126 1096- GRID 276 0 1.0 6.5 .0 0 126 1097- GRID 277 0 1.5 6.5 .0 0 126 1098- GRID 278 0 2.0 6.5 .0 0 126 1099- GRID 279 0 2.5 6.5 .0 0 126 1100- GRID 280 0 3.0 6.5 .0 0 126 1101- GRID 281 0 3.5 6.5 .0 0 126 1102- GRID 282 0 4.0 6.5 .0 0 126 1103- GRID 283 0 4.5 6.5 .0 0 126 1104- GRID 284 0 5.0 6.5 .0 0 126 1105- GRID 285 0 5.5 6.5 .0 0 126 1106- GRID 286 0 6.0 6.5 .0 0 126 1107- GRID 287 0 6.5 6.5 .0 0 126 1108- GRID 288 0 7.0 6.5 .0 0 126 1109- GRID 289 0 7.5 6.5 .0 0 126 1110- GRID 290 0 8.0 6.5 .0 0 126 1111- GRID 291 0 8.5 6.5 .0 0 126 1112- GRID 292 0 9.0 6.5 .0 0 126 1113- GRID 293 0 9.5 6.5 .0 0 126 1114- GRID 294 0 10.0 6.5 .0 0 126 1115- GRID 295 0 .0 7.0 .0 0 126 1116- GRID 296 0 .5 7.0 .0 0 126 1117- GRID 297 0 1.0 7.0 .0 0 126 1118- GRID 298 0 1.5 7.0 .0 0 126 1119- GRID 299 0 2.0 7.0 .0 0 126 1120- GRID 300 0 2.5 7.0 .0 0 126 1121- GRID 301 0 3.0 7.0 .0 0 126 1122- GRID 302 0 3.5 7.0 .0 0 126 1123- GRID 303 0 4.0 7.0 .0 0 126 1124- GRID 304 0 4.5 7.0 .0 0 126 1125- GRID 305 0 5.0 7.0 .0 0 126 1126- GRID 306 0 5.5 7.0 .0 0 126 1127- GRID 307 0 6.0 7.0 .0 0 126 1128- GRID 308 0 6.5 7.0 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1129- GRID 309 0 7.0 7.0 .0 0 126 1130- GRID 310 0 7.5 7.0 .0 0 126 1131- GRID 311 0 8.0 7.0 .0 0 126 1132- GRID 312 0 8.5 7.0 .0 0 126 1133- GRID 313 0 9.0 7.0 .0 0 126 1134- GRID 314 0 9.5 7.0 .0 0 126 1135- GRID 315 0 10.0 7.0 .0 0 126 1136- GRID 316 0 .0 7.5 .0 0 126 1137- GRID 317 0 .5 7.5 .0 0 126 1138- GRID 318 0 1.0 7.5 .0 0 126 1139- GRID 319 0 1.5 7.5 .0 0 126 1140- GRID 320 0 2.0 7.5 .0 0 126 1141- GRID 321 0 2.5 7.5 .0 0 126 1142- GRID 322 0 3.0 7.5 .0 0 126 1143- GRID 323 0 3.5 7.5 .0 0 126 1144- GRID 324 0 4.0 7.5 .0 0 126 1145- GRID 325 0 4.5 7.5 .0 0 126 1146- GRID 326 0 5.0 7.5 .0 0 126 1147- GRID 327 0 5.5 7.5 .0 0 126 1148- GRID 328 0 6.0 7.5 .0 0 126 1149- GRID 329 0 6.5 7.5 .0 0 126 1150- GRID 330 0 7.0 7.5 .0 0 126 1151- GRID 331 0 7.5 7.5 .0 0 126 1152- GRID 332 0 8.0 7.5 .0 0 126 1153- GRID 333 0 8.5 7.5 .0 0 126 1154- GRID 334 0 9.0 7.5 .0 0 126 1155- GRID 335 0 9.5 7.5 .0 0 126 1156- GRID 336 0 10.0 7.5 .0 0 126 1157- GRID 337 0 .0 8.0 .0 0 126 1158- GRID 338 0 .5 8.0 .0 0 126 1159- GRID 339 0 1.0 8.0 .0 0 126 1160- GRID 340 0 1.5 8.0 .0 0 126 1161- GRID 341 0 2.0 8.0 .0 0 126 1162- GRID 342 0 2.5 8.0 .0 0 126 1163- GRID 343 0 3.0 8.0 .0 0 126 1164- GRID 344 0 3.5 8.0 .0 0 126 1165- GRID 345 0 4.0 8.0 .0 0 126 1166- GRID 346 0 4.5 8.0 .0 0 126 1167- GRID 347 0 5.0 8.0 .0 0 126 1168- GRID 348 0 5.5 8.0 .0 0 126 1169- GRID 349 0 6.0 8.0 .0 0 126 1170- GRID 350 0 6.5 8.0 .0 0 126 1171- GRID 351 0 7.0 8.0 .0 0 126 1172- GRID 352 0 7.5 8.0 .0 0 126 1173- GRID 353 0 8.0 8.0 .0 0 126 1174- GRID 354 0 8.5 8.0 .0 0 126 1175- GRID 355 0 9.0 8.0 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1176- GRID 356 0 9.5 8.0 .0 0 126 1177- GRID 357 0 10.0 8.0 .0 0 126 1178- GRID 358 0 .0 8.5 .0 0 126 1179- GRID 359 0 .5 8.5 .0 0 126 1180- GRID 360 0 1.0 8.5 .0 0 126 1181- GRID 361 0 1.5 8.5 .0 0 126 1182- GRID 362 0 2.0 8.5 .0 0 126 1183- GRID 363 0 2.5 8.5 .0 0 126 1184- GRID 364 0 3.0 8.5 .0 0 126 1185- GRID 365 0 3.5 8.5 .0 0 126 1186- GRID 366 0 4.0 8.5 .0 0 126 1187- GRID 367 0 4.5 8.5 .0 0 126 1188- GRID 368 0 5.0 8.5 .0 0 126 1189- GRID 369 0 5.5 8.5 .0 0 126 1190- GRID 370 0 6.0 8.5 .0 0 126 1191- GRID 371 0 6.5 8.5 .0 0 126 1192- GRID 372 0 7.0 8.5 .0 0 126 1193- GRID 373 0 7.5 8.5 .0 0 126 1194- GRID 374 0 8.0 8.5 .0 0 126 1195- GRID 375 0 8.5 8.5 .0 0 126 1196- GRID 376 0 9.0 8.5 .0 0 126 1197- GRID 377 0 9.5 8.5 .0 0 126 1198- GRID 378 0 10.0 8.5 .0 0 126 1199- GRID 379 0 .0 9.0 .0 0 126 1200- GRID 380 0 .5 9.0 .0 0 126 1201- GRID 381 0 1.0 9.0 .0 0 126 1202- GRID 382 0 1.5 9.0 .0 0 126 1203- GRID 383 0 2.0 9.0 .0 0 126 1204- GRID 384 0 2.5 9.0 .0 0 126 1205- GRID 385 0 3.0 9.0 .0 0 126 1206- GRID 386 0 3.5 9.0 .0 0 126 1207- GRID 387 0 4.0 9.0 .0 0 126 1208- GRID 388 0 4.5 9.0 .0 0 126 1209- GRID 389 0 5.0 9.0 .0 0 126 1210- GRID 390 0 5.5 9.0 .0 0 126 1211- GRID 391 0 6.0 9.0 .0 0 126 1212- GRID 392 0 6.5 9.0 .0 0 126 1213- GRID 393 0 7.0 9.0 .0 0 126 1214- GRID 394 0 7.5 9.0 .0 0 126 1215- GRID 395 0 8.0 9.0 .0 0 126 1216- GRID 396 0 8.5 9.0 .0 0 126 1217- GRID 397 0 9.0 9.0 .0 0 126 1218- GRID 398 0 9.5 9.0 .0 0 126 1219- GRID 399 0 10.0 9.0 .0 0 126 1220- GRID 400 0 .0 9.5 .0 0 126 1221- GRID 401 0 .5 9.5 .0 0 126 1222- GRID 402 0 1.0 9.5 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1223- GRID 403 0 1.5 9.5 .0 0 126 1224- GRID 404 0 2.0 9.5 .0 0 126 1225- GRID 405 0 2.5 9.5 .0 0 126 1226- GRID 406 0 3.0 9.5 .0 0 126 1227- GRID 407 0 3.5 9.5 .0 0 126 1228- GRID 408 0 4.0 9.5 .0 0 126 1229- GRID 409 0 4.5 9.5 .0 0 126 1230- GRID 410 0 5.0 9.5 .0 0 126 1231- GRID 411 0 5.5 9.5 .0 0 126 1232- GRID 412 0 6.0 9.5 .0 0 126 1233- GRID 413 0 6.5 9.5 .0 0 126 1234- GRID 414 0 7.0 9.5 .0 0 126 1235- GRID 415 0 7.5 9.5 .0 0 126 1236- GRID 416 0 8.0 9.5 .0 0 126 1237- GRID 417 0 8.5 9.5 .0 0 126 1238- GRID 418 0 9.0 9.5 .0 0 126 1239- GRID 419 0 9.5 9.5 .0 0 126 1240- GRID 420 0 10.0 9.5 .0 0 126 1241- GRID 421 0 .0 10.0 .0 0 126 1242- GRID 422 0 .5 10.0 .0 0 126 1243- GRID 423 0 1.0 10.0 .0 0 126 1244- GRID 424 0 1.5 10.0 .0 0 126 1245- GRID 425 0 2.0 10.0 .0 0 126 1246- GRID 426 0 2.5 10.0 .0 0 126 1247- GRID 427 0 3.0 10.0 .0 0 126 1248- GRID 428 0 3.5 10.0 .0 0 126 1249- GRID 429 0 4.0 10.0 .0 0 126 1250- GRID 430 0 4.5 10.0 .0 0 126 1251- GRID 431 0 5.0 10.0 .0 0 126 1252- GRID 432 0 5.5 10.0 .0 0 126 1253- GRID 433 0 6.0 10.0 .0 0 126 1254- GRID 434 0 6.5 10.0 .0 0 126 1255- GRID 435 0 7.0 10.0 .0 0 126 1256- GRID 436 0 7.5 10.0 .0 0 126 1257- GRID 437 0 8.0 10.0 .0 0 126 1258- GRID 438 0 8.5 10.0 .0 0 126 1259- GRID 439 0 9.0 10.0 .0 0 126 1260- GRID 440 0 9.5 10.0 .0 0 126 1261- GRID 441 0 10.0 10.0 .0 0 126 1262- GRID 442 0 .0 10.5 .0 0 126 1263- GRID 443 0 .5 10.5 .0 0 126 1264- GRID 444 0 1.0 10.5 .0 0 126 1265- GRID 445 0 1.5 10.5 .0 0 126 1266- GRID 446 0 2.0 10.5 .0 0 126 1267- GRID 447 0 2.5 10.5 .0 0 126 1268- GRID 448 0 3.0 10.5 .0 0 126 1269- GRID 449 0 3.5 10.5 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1270- GRID 450 0 4.0 10.5 .0 0 126 1271- GRID 451 0 4.5 10.5 .0 0 126 1272- GRID 452 0 5.0 10.5 .0 0 126 1273- GRID 453 0 5.5 10.5 .0 0 126 1274- GRID 454 0 6.0 10.5 .0 0 126 1275- GRID 455 0 6.5 10.5 .0 0 126 1276- GRID 456 0 7.0 10.5 .0 0 126 1277- GRID 457 0 7.5 10.5 .0 0 126 1278- GRID 458 0 8.0 10.5 .0 0 126 1279- GRID 459 0 8.5 10.5 .0 0 126 1280- GRID 460 0 9.0 10.5 .0 0 126 1281- GRID 461 0 9.5 10.5 .0 0 126 1282- GRID 462 0 10.0 10.5 .0 0 126 1283- GRID 463 0 .0 11.0 .0 0 126 1284- GRID 464 0 .5 11.0 .0 0 126 1285- GRID 465 0 1.0 11.0 .0 0 126 1286- GRID 466 0 1.5 11.0 .0 0 126 1287- GRID 467 0 2.0 11.0 .0 0 126 1288- GRID 468 0 2.5 11.0 .0 0 126 1289- GRID 469 0 3.0 11.0 .0 0 126 1290- GRID 470 0 3.5 11.0 .0 0 126 1291- GRID 471 0 4.0 11.0 .0 0 126 1292- GRID 472 0 4.5 11.0 .0 0 126 1293- GRID 473 0 5.0 11.0 .0 0 126 1294- GRID 474 0 5.5 11.0 .0 0 126 1295- GRID 475 0 6.0 11.0 .0 0 126 1296- GRID 476 0 6.5 11.0 .0 0 126 1297- GRID 477 0 7.0 11.0 .0 0 126 1298- GRID 478 0 7.5 11.0 .0 0 126 1299- GRID 479 0 8.0 11.0 .0 0 126 1300- GRID 480 0 8.5 11.0 .0 0 126 1301- GRID 481 0 9.0 11.0 .0 0 126 1302- GRID 482 0 9.5 11.0 .0 0 126 1303- GRID 483 0 10.0 11.0 .0 0 126 1304- GRID 484 0 .0 11.5 .0 0 126 1305- GRID 485 0 .5 11.5 .0 0 126 1306- GRID 486 0 1.0 11.5 .0 0 126 1307- GRID 487 0 1.5 11.5 .0 0 126 1308- GRID 488 0 2.0 11.5 .0 0 126 1309- GRID 489 0 2.5 11.5 .0 0 126 1310- GRID 490 0 3.0 11.5 .0 0 126 1311- GRID 491 0 3.5 11.5 .0 0 126 1312- GRID 492 0 4.0 11.5 .0 0 126 1313- GRID 493 0 4.5 11.5 .0 0 126 1314- GRID 494 0 5.0 11.5 .0 0 126 1315- GRID 495 0 5.5 11.5 .0 0 126 1316- GRID 496 0 6.0 11.5 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1317- GRID 497 0 6.5 11.5 .0 0 126 1318- GRID 498 0 7.0 11.5 .0 0 126 1319- GRID 499 0 7.5 11.5 .0 0 126 1320- GRID 500 0 8.0 11.5 .0 0 126 1321- GRID 501 0 8.5 11.5 .0 0 126 1322- GRID 502 0 9.0 11.5 .0 0 126 1323- GRID 503 0 9.5 11.5 .0 0 126 1324- GRID 504 0 10.0 11.5 .0 0 126 1325- GRID 505 0 .0 12.0 .0 0 126 1326- GRID 506 0 .5 12.0 .0 0 126 1327- GRID 507 0 1.0 12.0 .0 0 126 1328- GRID 508 0 1.5 12.0 .0 0 126 1329- GRID 509 0 2.0 12.0 .0 0 126 1330- GRID 510 0 2.5 12.0 .0 0 126 1331- GRID 511 0 3.0 12.0 .0 0 126 1332- GRID 512 0 3.5 12.0 .0 0 126 1333- GRID 513 0 4.0 12.0 .0 0 126 1334- GRID 514 0 4.5 12.0 .0 0 126 1335- GRID 515 0 5.0 12.0 .0 0 126 1336- GRID 516 0 5.5 12.0 .0 0 126 1337- GRID 517 0 6.0 12.0 .0 0 126 1338- GRID 518 0 6.5 12.0 .0 0 126 1339- GRID 519 0 7.0 12.0 .0 0 126 1340- GRID 520 0 7.5 12.0 .0 0 126 1341- GRID 521 0 8.0 12.0 .0 0 126 1342- GRID 522 0 8.5 12.0 .0 0 126 1343- GRID 523 0 9.0 12.0 .0 0 126 1344- GRID 524 0 9.5 12.0 .0 0 126 1345- GRID 525 0 10.0 12.0 .0 0 126 1346- GRID 526 0 .0 12.5 .0 0 126 1347- GRID 527 0 .5 12.5 .0 0 126 1348- GRID 528 0 1.0 12.5 .0 0 126 1349- GRID 529 0 1.5 12.5 .0 0 126 1350- GRID 530 0 2.0 12.5 .0 0 126 1351- GRID 531 0 2.5 12.5 .0 0 126 1352- GRID 532 0 3.0 12.5 .0 0 126 1353- GRID 533 0 3.5 12.5 .0 0 126 1354- GRID 534 0 4.0 12.5 .0 0 126 1355- GRID 535 0 4.5 12.5 .0 0 126 1356- GRID 536 0 5.0 12.5 .0 0 126 1357- GRID 537 0 5.5 12.5 .0 0 126 1358- GRID 538 0 6.0 12.5 .0 0 126 1359- GRID 539 0 6.5 12.5 .0 0 126 1360- GRID 540 0 7.0 12.5 .0 0 126 1361- GRID 541 0 7.5 12.5 .0 0 126 1362- GRID 542 0 8.0 12.5 .0 0 126 1363- GRID 543 0 8.5 12.5 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1364- GRID 544 0 9.0 12.5 .0 0 126 1365- GRID 545 0 9.5 12.5 .0 0 126 1366- GRID 546 0 10.0 12.5 .0 0 126 1367- GRID 547 0 .0 13.0 .0 0 126 1368- GRID 548 0 .5 13.0 .0 0 126 1369- GRID 549 0 1.0 13.0 .0 0 126 1370- GRID 550 0 1.5 13.0 .0 0 126 1371- GRID 551 0 2.0 13.0 .0 0 126 1372- GRID 552 0 2.5 13.0 .0 0 126 1373- GRID 553 0 3.0 13.0 .0 0 126 1374- GRID 554 0 3.5 13.0 .0 0 126 1375- GRID 555 0 4.0 13.0 .0 0 126 1376- GRID 556 0 4.5 13.0 .0 0 126 1377- GRID 557 0 5.0 13.0 .0 0 126 1378- GRID 558 0 5.5 13.0 .0 0 126 1379- GRID 559 0 6.0 13.0 .0 0 126 1380- GRID 560 0 6.5 13.0 .0 0 126 1381- GRID 561 0 7.0 13.0 .0 0 126 1382- GRID 562 0 7.5 13.0 .0 0 126 1383- GRID 563 0 8.0 13.0 .0 0 126 1384- GRID 564 0 8.5 13.0 .0 0 126 1385- GRID 565 0 9.0 13.0 .0 0 126 1386- GRID 566 0 9.5 13.0 .0 0 126 1387- GRID 567 0 10.0 13.0 .0 0 126 1388- GRID 568 0 .0 13.5 .0 0 126 1389- GRID 569 0 .5 13.5 .0 0 126 1390- GRID 570 0 1.0 13.5 .0 0 126 1391- GRID 571 0 1.5 13.5 .0 0 126 1392- GRID 572 0 2.0 13.5 .0 0 126 1393- GRID 573 0 2.5 13.5 .0 0 126 1394- GRID 574 0 3.0 13.5 .0 0 126 1395- GRID 575 0 3.5 13.5 .0 0 126 1396- GRID 576 0 4.0 13.5 .0 0 126 1397- GRID 577 0 4.5 13.5 .0 0 126 1398- GRID 578 0 5.0 13.5 .0 0 126 1399- GRID 579 0 5.5 13.5 .0 0 126 1400- GRID 580 0 6.0 13.5 .0 0 126 1401- GRID 581 0 6.5 13.5 .0 0 126 1402- GRID 582 0 7.0 13.5 .0 0 126 1403- GRID 583 0 7.5 13.5 .0 0 126 1404- GRID 584 0 8.0 13.5 .0 0 126 1405- GRID 585 0 8.5 13.5 .0 0 126 1406- GRID 586 0 9.0 13.5 .0 0 126 1407- GRID 587 0 9.5 13.5 .0 0 126 1408- GRID 588 0 10.0 13.5 .0 0 126 1409- GRID 589 0 .0 14.0 .0 0 126 1410- GRID 590 0 .5 14.0 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1411- GRID 591 0 1.0 14.0 .0 0 126 1412- GRID 592 0 1.5 14.0 .0 0 126 1413- GRID 593 0 2.0 14.0 .0 0 126 1414- GRID 594 0 2.5 14.0 .0 0 126 1415- GRID 595 0 3.0 14.0 .0 0 126 1416- GRID 596 0 3.5 14.0 .0 0 126 1417- GRID 597 0 4.0 14.0 .0 0 126 1418- GRID 598 0 4.5 14.0 .0 0 126 1419- GRID 599 0 5.0 14.0 .0 0 126 1420- GRID 600 0 5.5 14.0 .0 0 126 1421- GRID 601 0 6.0 14.0 .0 0 126 1422- GRID 602 0 6.5 14.0 .0 0 126 1423- GRID 603 0 7.0 14.0 .0 0 126 1424- GRID 604 0 7.5 14.0 .0 0 126 1425- GRID 605 0 8.0 14.0 .0 0 126 1426- GRID 606 0 8.5 14.0 .0 0 126 1427- GRID 607 0 9.0 14.0 .0 0 126 1428- GRID 608 0 9.5 14.0 .0 0 126 1429- GRID 609 0 10.0 14.0 .0 0 126 1430- GRID 610 0 .0 14.5 .0 0 126 1431- GRID 611 0 .5 14.5 .0 0 126 1432- GRID 612 0 1.0 14.5 .0 0 126 1433- GRID 613 0 1.5 14.5 .0 0 126 1434- GRID 614 0 2.0 14.5 .0 0 126 1435- GRID 615 0 2.5 14.5 .0 0 126 1436- GRID 616 0 3.0 14.5 .0 0 126 1437- GRID 617 0 3.5 14.5 .0 0 126 1438- GRID 618 0 4.0 14.5 .0 0 126 1439- GRID 619 0 4.5 14.5 .0 0 126 1440- GRID 620 0 5.0 14.5 .0 0 126 1441- GRID 621 0 5.5 14.5 .0 0 126 1442- GRID 622 0 6.0 14.5 .0 0 126 1443- GRID 623 0 6.5 14.5 .0 0 126 1444- GRID 624 0 7.0 14.5 .0 0 126 1445- GRID 625 0 7.5 14.5 .0 0 126 1446- GRID 626 0 8.0 14.5 .0 0 126 1447- GRID 627 0 8.5 14.5 .0 0 126 1448- GRID 628 0 9.0 14.5 .0 0 126 1449- GRID 629 0 9.5 14.5 .0 0 126 1450- GRID 630 0 10.0 14.5 .0 0 126 1451- GRID 631 0 .0 15.0 .0 0 126 1452- GRID 632 0 .5 15.0 .0 0 126 1453- GRID 633 0 1.0 15.0 .0 0 126 1454- GRID 634 0 1.5 15.0 .0 0 126 1455- GRID 635 0 2.0 15.0 .0 0 126 1456- GRID 636 0 2.5 15.0 .0 0 126 1457- GRID 637 0 3.0 15.0 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1458- GRID 638 0 3.5 15.0 .0 0 126 1459- GRID 639 0 4.0 15.0 .0 0 126 1460- GRID 640 0 4.5 15.0 .0 0 126 1461- GRID 641 0 5.0 15.0 .0 0 126 1462- GRID 642 0 5.5 15.0 .0 0 126 1463- GRID 643 0 6.0 15.0 .0 0 126 1464- GRID 644 0 6.5 15.0 .0 0 126 1465- GRID 645 0 7.0 15.0 .0 0 126 1466- GRID 646 0 7.5 15.0 .0 0 126 1467- GRID 647 0 8.0 15.0 .0 0 126 1468- GRID 648 0 8.5 15.0 .0 0 126 1469- GRID 649 0 9.0 15.0 .0 0 126 1470- GRID 650 0 9.5 15.0 .0 0 126 1471- GRID 651 0 10.0 15.0 .0 0 126 1472- GRID 652 0 .0 15.5 .0 0 126 1473- GRID 653 0 .5 15.5 .0 0 126 1474- GRID 654 0 1.0 15.5 .0 0 126 1475- GRID 655 0 1.5 15.5 .0 0 126 1476- GRID 656 0 2.0 15.5 .0 0 126 1477- GRID 657 0 2.5 15.5 .0 0 126 1478- GRID 658 0 3.0 15.5 .0 0 126 1479- GRID 659 0 3.5 15.5 .0 0 126 1480- GRID 660 0 4.0 15.5 .0 0 126 1481- GRID 661 0 4.5 15.5 .0 0 126 1482- GRID 662 0 5.0 15.5 .0 0 126 1483- GRID 663 0 5.5 15.5 .0 0 126 1484- GRID 664 0 6.0 15.5 .0 0 126 1485- GRID 665 0 6.5 15.5 .0 0 126 1486- GRID 666 0 7.0 15.5 .0 0 126 1487- GRID 667 0 7.5 15.5 .0 0 126 1488- GRID 668 0 8.0 15.5 .0 0 126 1489- GRID 669 0 8.5 15.5 .0 0 126 1490- GRID 670 0 9.0 15.5 .0 0 126 1491- GRID 671 0 9.5 15.5 .0 0 126 1492- GRID 672 0 10.0 15.5 .0 0 126 1493- GRID 673 0 .0 16.0 .0 0 126 1494- GRID 674 0 .5 16.0 .0 0 126 1495- GRID 675 0 1.0 16.0 .0 0 126 1496- GRID 676 0 1.5 16.0 .0 0 126 1497- GRID 677 0 2.0 16.0 .0 0 126 1498- GRID 678 0 2.5 16.0 .0 0 126 1499- GRID 679 0 3.0 16.0 .0 0 126 1500- GRID 680 0 3.5 16.0 .0 0 126 1501- GRID 681 0 4.0 16.0 .0 0 126 1502- GRID 682 0 4.5 16.0 .0 0 126 1503- GRID 683 0 5.0 16.0 .0 0 126 1504- GRID 684 0 5.5 16.0 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1505- GRID 685 0 6.0 16.0 .0 0 126 1506- GRID 686 0 6.5 16.0 .0 0 126 1507- GRID 687 0 7.0 16.0 .0 0 126 1508- GRID 688 0 7.5 16.0 .0 0 126 1509- GRID 689 0 8.0 16.0 .0 0 126 1510- GRID 690 0 8.5 16.0 .0 0 126 1511- GRID 691 0 9.0 16.0 .0 0 126 1512- GRID 692 0 9.5 16.0 .0 0 126 1513- GRID 693 0 10.0 16.0 .0 0 126 1514- GRID 694 0 .0 16.5 .0 0 126 1515- GRID 695 0 .5 16.5 .0 0 126 1516- GRID 696 0 1.0 16.5 .0 0 126 1517- GRID 697 0 1.5 16.5 .0 0 126 1518- GRID 698 0 2.0 16.5 .0 0 126 1519- GRID 699 0 2.5 16.5 .0 0 126 1520- GRID 700 0 3.0 16.5 .0 0 126 1521- GRID 701 0 3.5 16.5 .0 0 126 1522- GRID 702 0 4.0 16.5 .0 0 126 1523- GRID 703 0 4.5 16.5 .0 0 126 1524- GRID 704 0 5.0 16.5 .0 0 126 1525- GRID 705 0 5.5 16.5 .0 0 126 1526- GRID 706 0 6.0 16.5 .0 0 126 1527- GRID 707 0 6.5 16.5 .0 0 126 1528- GRID 708 0 7.0 16.5 .0 0 126 1529- GRID 709 0 7.5 16.5 .0 0 126 1530- GRID 710 0 8.0 16.5 .0 0 126 1531- GRID 711 0 8.5 16.5 .0 0 126 1532- GRID 712 0 9.0 16.5 .0 0 126 1533- GRID 713 0 9.5 16.5 .0 0 126 1534- GRID 714 0 10.0 16.5 .0 0 126 1535- GRID 715 0 .0 17.0 .0 0 126 1536- GRID 716 0 .5 17.0 .0 0 126 1537- GRID 717 0 1.0 17.0 .0 0 126 1538- GRID 718 0 1.5 17.0 .0 0 126 1539- GRID 719 0 2.0 17.0 .0 0 126 1540- GRID 720 0 2.5 17.0 .0 0 126 1541- GRID 721 0 3.0 17.0 .0 0 126 1542- GRID 722 0 3.5 17.0 .0 0 126 1543- GRID 723 0 4.0 17.0 .0 0 126 1544- GRID 724 0 4.5 17.0 .0 0 126 1545- GRID 725 0 5.0 17.0 .0 0 126 1546- GRID 726 0 5.5 17.0 .0 0 126 1547- GRID 727 0 6.0 17.0 .0 0 126 1548- GRID 728 0 6.5 17.0 .0 0 126 1549- GRID 729 0 7.0 17.0 .0 0 126 1550- GRID 730 0 7.5 17.0 .0 0 126 1551- GRID 731 0 8.0 17.0 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1552- GRID 732 0 8.5 17.0 .0 0 126 1553- GRID 733 0 9.0 17.0 .0 0 126 1554- GRID 734 0 9.5 17.0 .0 0 126 1555- GRID 735 0 10.0 17.0 .0 0 126 1556- GRID 736 0 .0 17.5 .0 0 126 1557- GRID 737 0 .5 17.5 .0 0 126 1558- GRID 738 0 1.0 17.5 .0 0 126 1559- GRID 739 0 1.5 17.5 .0 0 126 1560- GRID 740 0 2.0 17.5 .0 0 126 1561- GRID 741 0 2.5 17.5 .0 0 126 1562- GRID 742 0 3.0 17.5 .0 0 126 1563- GRID 743 0 3.5 17.5 .0 0 126 1564- GRID 744 0 4.0 17.5 .0 0 126 1565- GRID 745 0 4.5 17.5 .0 0 126 1566- GRID 746 0 5.0 17.5 .0 0 126 1567- GRID 747 0 5.5 17.5 .0 0 126 1568- GRID 748 0 6.0 17.5 .0 0 126 1569- GRID 749 0 6.5 17.5 .0 0 126 1570- GRID 750 0 7.0 17.5 .0 0 126 1571- GRID 751 0 7.5 17.5 .0 0 126 1572- GRID 752 0 8.0 17.5 .0 0 126 1573- GRID 753 0 8.5 17.5 .0 0 126 1574- GRID 754 0 9.0 17.5 .0 0 126 1575- GRID 755 0 9.5 17.5 .0 0 126 1576- GRID 756 0 10.0 17.5 .0 0 126 1577- GRID 757 0 .0 18.0 .0 0 126 1578- GRID 758 0 .5 18.0 .0 0 126 1579- GRID 759 0 1.0 18.0 .0 0 126 1580- GRID 760 0 1.5 18.0 .0 0 126 1581- GRID 761 0 2.0 18.0 .0 0 126 1582- GRID 762 0 2.5 18.0 .0 0 126 1583- GRID 763 0 3.0 18.0 .0 0 126 1584- GRID 764 0 3.5 18.0 .0 0 126 1585- GRID 765 0 4.0 18.0 .0 0 126 1586- GRID 766 0 4.5 18.0 .0 0 126 1587- GRID 767 0 5.0 18.0 .0 0 126 1588- GRID 768 0 5.5 18.0 .0 0 126 1589- GRID 769 0 6.0 18.0 .0 0 126 1590- GRID 770 0 6.5 18.0 .0 0 126 1591- GRID 771 0 7.0 18.0 .0 0 126 1592- GRID 772 0 7.5 18.0 .0 0 126 1593- GRID 773 0 8.0 18.0 .0 0 126 1594- GRID 774 0 8.5 18.0 .0 0 126 1595- GRID 775 0 9.0 18.0 .0 0 126 1596- GRID 776 0 9.5 18.0 .0 0 126 1597- GRID 777 0 10.0 18.0 .0 0 126 1598- GRID 778 0 .0 18.5 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1599- GRID 779 0 .5 18.5 .0 0 126 1600- GRID 780 0 1.0 18.5 .0 0 126 1601- GRID 781 0 1.5 18.5 .0 0 126 1602- GRID 782 0 2.0 18.5 .0 0 126 1603- GRID 783 0 2.5 18.5 .0 0 126 1604- GRID 784 0 3.0 18.5 .0 0 126 1605- GRID 785 0 3.5 18.5 .0 0 126 1606- GRID 786 0 4.0 18.5 .0 0 126 1607- GRID 787 0 4.5 18.5 .0 0 126 1608- GRID 788 0 5.0 18.5 .0 0 126 1609- GRID 789 0 5.5 18.5 .0 0 126 1610- GRID 790 0 6.0 18.5 .0 0 126 1611- GRID 791 0 6.5 18.5 .0 0 126 1612- GRID 792 0 7.0 18.5 .0 0 126 1613- GRID 793 0 7.5 18.5 .0 0 126 1614- GRID 794 0 8.0 18.5 .0 0 126 1615- GRID 795 0 8.5 18.5 .0 0 126 1616- GRID 796 0 9.0 18.5 .0 0 126 1617- GRID 797 0 9.5 18.5 .0 0 126 1618- GRID 798 0 10.0 18.5 .0 0 126 1619- GRID 799 0 .0 19.0 .0 0 126 1620- GRID 800 0 .5 19.0 .0 0 126 1621- GRID 801 0 1.0 19.0 .0 0 126 1622- GRID 802 0 1.5 19.0 .0 0 126 1623- GRID 803 0 2.0 19.0 .0 0 126 1624- GRID 804 0 2.5 19.0 .0 0 126 1625- GRID 805 0 3.0 19.0 .0 0 126 1626- GRID 806 0 3.5 19.0 .0 0 126 1627- GRID 807 0 4.0 19.0 .0 0 126 1628- GRID 808 0 4.5 19.0 .0 0 126 1629- GRID 809 0 5.0 19.0 .0 0 126 1630- GRID 810 0 5.5 19.0 .0 0 126 1631- GRID 811 0 6.0 19.0 .0 0 126 1632- GRID 812 0 6.5 19.0 .0 0 126 1633- GRID 813 0 7.0 19.0 .0 0 126 1634- GRID 814 0 7.5 19.0 .0 0 126 1635- GRID 815 0 8.0 19.0 .0 0 126 1636- GRID 816 0 8.5 19.0 .0 0 126 1637- GRID 817 0 9.0 19.0 .0 0 126 1638- GRID 818 0 9.5 19.0 .0 0 126 1639- GRID 819 0 10.0 19.0 .0 0 126 1640- GRID 820 0 .0 19.5 .0 0 126 1641- GRID 821 0 .5 19.5 .0 0 126 1642- GRID 822 0 1.0 19.5 .0 0 126 1643- GRID 823 0 1.5 19.5 .0 0 126 1644- GRID 824 0 2.0 19.5 .0 0 126 1645- GRID 825 0 2.5 19.5 .0 0 126 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1646- GRID 826 0 3.0 19.5 .0 0 126 1647- GRID 827 0 3.5 19.5 .0 0 126 1648- GRID 828 0 4.0 19.5 .0 0 126 1649- GRID 829 0 4.5 19.5 .0 0 126 1650- GRID 830 0 5.0 19.5 .0 0 126 1651- GRID 831 0 5.5 19.5 .0 0 126 1652- GRID 832 0 6.0 19.5 .0 0 126 1653- GRID 833 0 6.5 19.5 .0 0 126 1654- GRID 834 0 7.0 19.5 .0 0 126 1655- GRID 835 0 7.5 19.5 .0 0 126 1656- GRID 836 0 8.0 19.5 .0 0 126 1657- GRID 837 0 8.5 19.5 .0 0 126 1658- GRID 838 0 9.0 19.5 .0 0 126 1659- GRID 839 0 9.5 19.5 .0 0 126 1660- GRID 840 0 10.0 19.5 .0 0 126 1661- GRID 841 0 .0 20.0 .0 0 126 1662- GRID 842 0 .5 20.0 .0 0 126 1663- GRID 843 0 1.0 20.0 .0 0 126 1664- GRID 844 0 1.5 20.0 .0 0 126 1665- GRID 845 0 2.0 20.0 .0 0 126 1666- GRID 846 0 2.5 20.0 .0 0 126 1667- GRID 847 0 3.0 20.0 .0 0 126 1668- GRID 848 0 3.5 20.0 .0 0 126 1669- GRID 849 0 4.0 20.0 .0 0 126 1670- GRID 850 0 4.5 20.0 .0 0 126 1671- GRID 851 0 5.0 20.0 .0 0 126 1672- GRID 852 0 5.5 20.0 .0 0 126 1673- GRID 853 0 6.0 20.0 .0 0 126 1674- GRID 854 0 6.5 20.0 .0 0 126 1675- GRID 855 0 7.0 20.0 .0 0 126 1676- GRID 856 0 7.5 20.0 .0 0 126 1677- GRID 857 0 8.0 20.0 .0 0 126 1678- GRID 858 0 8.5 20.0 .0 0 126 1679- GRID 859 0 9.0 20.0 .0 0 126 1680- GRID 860 0 9.5 20.0 .0 0 126 1681- GRID 861 0 10.0 20.0 .0 0 126 1682- MAT1 2 3.0+7 .300 200.0 +MAT1 1683- +MAT1 30000. 28000. 1684- PARAM GRDPNT 421 1685- PLOTEL 1000 1 21 1001 21 861 1686- PLOTEL 1002 861 841 1003 841 757 1687- PLOTEL 1004 757 673 1005 673 589 1688- PLOTEL 1006 589 505 1007 505 421 1689- PLOTEL 1008 421 337 1009 337 253 1690- PLOTEL 1010 253 169 1011 169 85 1691- PLOTEL 1012 85 1 1013 5 89 1692- PLOTEL 1014 89 173 1015 173 257 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1693- PLOTEL 1016 257 341 1017 341 425 1694- PLOTEL 1018 425 509 1019 509 593 1695- PLOTEL 1020 593 677 1021 677 761 1696- PLOTEL 1022 761 845 1023 849 765 1697- PLOTEL 1024 765 681 1025 681 597 1698- PLOTEL 1026 597 513 1027 513 429 1699- PLOTEL 1028 429 345 1029 345 261 1700- PLOTEL 1030 261 177 1031 177 93 1701- PLOTEL 1032 93 9 1033 13 97 1702- PLOTEL 1034 97 181 1035 181 265 1703- PLOTEL 1036 265 349 1037 349 433 1704- PLOTEL 1038 433 517 1039 517 601 1705- PLOTEL 1040 601 685 1041 685 769 1706- PLOTEL 1042 769 853 1043 857 773 1707- PLOTEL 1044 773 689 1045 689 605 1708- PLOTEL 1046 605 521 1047 521 437 1709- PLOTEL 1048 437 353 1049 353 269 1710- PLOTEL 1050 269 185 1051 185 101 1711- PLOTEL 1052 101 17 1053 105 101 1712- PLOTEL 1054 101 97 1055 97 93 1713- PLOTEL 1056 93 89 1057 89 85 1714- PLOTEL 1058 169 173 1059 173 177 1715- PLOTEL 1060 177 181 1061 181 185 1716- PLOTEL 1062 185 189 1063 273 269 1717- PLOTEL 1064 269 265 1065 265 261 1718- PLOTEL 1066 261 257 1067 257 253 1719- PLOTEL 1068 337 341 1069 341 345 1720- PLOTEL 1070 345 349 1071 349 353 1721- PLOTEL 1072 353 357 1073 441 437 1722- PLOTEL 1074 437 433 1075 433 429 1723- PLOTEL 1076 429 425 1077 425 421 1724- PLOTEL 1078 505 509 1079 509 513 1725- PLOTEL 1080 513 517 1081 517 521 1726- PLOTEL 1082 521 525 1083 609 605 1727- PLOTEL 1084 605 601 1085 601 597 1728- PLOTEL 1086 597 593 1087 593 589 1729- PLOTEL 1088 673 677 1089 677 681 1730- PLOTEL 1090 681 685 1091 685 689 1731- PLOTEL 1092 689 693 1093 777 773 1732- PLOTEL 1094 773 769 1095 769 765 1733- PLOTEL 1096 765 761 1097 761 757 1734- PQUAD1 101 2 1.0 2 .0833333 6.04393 +PQUAD1 1735- +PQUAD1 .5 .0 1736- SPC1 37 5 1 22 43 64 85 106 +31001H 1737- +31001H 127 148 169 190 211 232 253 274 +31002H 1738- +31002H 295 316 337 358 379 400 421 442 +31003H 1739- +31003H 463 484 505 526 547 568 589 610 +31004H 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1740- +31004H 631 652 673 694 715 736 757 778 +31005H 1741- +31005H 799 820 841 1742- SPC1 37 34 21 42 63 84 105 126 +11001H 1743- +11001H 147 168 189 210 231 252 273 294 +11002H 1744- +11002H 315 336 357 378 399 420 441 462 +11003H 1745- +11003H 483 504 525 546 567 588 609 630 +11004H 1746- +11004H 651 672 693 714 735 756 777 798 +11005H 1747- +11005H 819 840 861 1748- SPC1 37 35 1 2 3 4 5 6 +41001H 1749- +41001H 7 8 9 10 11 12 13 14 +41002H 1750- +41002H 15 16 17 18 19 20 21 1751- SPC1 37 35 841 842 843 844 845 846 +21001H 1752- +21001H 847 848 849 850 851 852 853 854 +21002H 1753- +21002H 855 856 857 858 859 860 861 ENDDATA 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 23 PROFILE 19321 MAX WAVEFRONT 23 AVG WAVEFRONT 22.440 RMS WAVEFRONT 22.596 RMS BANDWIDTH 22.674 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 23 PROFILE 19321 MAX WAVEFRONT 23 AVG WAVEFRONT 22.440 RMS WAVEFRONT 22.596 RMS BANDWIDTH 22.674 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 23 23 PROFILE (P) 19321 19321 MAXIMUM WAVEFRONT (C-MAX) 23 23 AVERAGE WAVEFRONT (C-AVG) 22.440 22.440 RMS WAVEFRONT (C-RMS) 22.596 22.596 RMS BANDWITCH (B-RMS) 22.674 22.674 NUMBER OF GRID POINTS (N) 861 NUMBER OF ELEMENTS (NON-RIGID) 800 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 3260 MATRIX DENSITY, PERCENT 0.996 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01 ORIGIN 10 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 10 USED IN THIS PLOT 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 421 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 4.12087860D+04 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 4.12087860D+04 0.00000000D+00 0.00000000D+00 0.00000000D+00 2.06043930D+05 * * 0.00000000D+00 0.00000000D+00 4.12087860D+04 0.00000000D+00 -2.06043930D+05 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 0.00000000D+00 1.37534323D+06 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 -2.06043930D+05 0.00000000D+00 1.37534323D+06 0.00000000D+00 * * 0.00000000D+00 2.06043930D+05 0.00000000D+00 0.00000000D+00 0.00000000D+00 2.75068647D+06 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 4.120878601D+04 0.000000000D+00 0.000000000D+00 0.000000000D+00 Y 4.120878601D+04 5.000000000D+00 0.000000000D+00 0.000000000D+00 Z 4.120878601D+04 5.000000000D+00 0.000000000D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 1.375343233D+06 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 3.451235828D+05 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.720466816D+06 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 1.375343233D+06 * * 3.451235828D+05 * * 1.720466816D+06 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 0 ROOTS BELOW 2.988121E+01 0*** USER WARNING MESSAGE 2399 ONLY THE FIRST 4 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS. 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0*** USER INFORMATION MESSAGE 2392 11 MORE ACCURATE EIGENSOLUTIONS THAN THE 1 REQUESTED HAVE BEEN FOUND. USE DIAG 16 TO DETERMINE ERROR BOUNDS 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (FEER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 12 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 1 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 11 0 REASON FOR TERMINATION . . . . . . . . . . . 0* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* NORMAL TERMINATION SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 3.244568E+01 5.696111E+00 9.065642E-01 1.030220E+04 3.342617E+05 2 2 2.027587E+02 1.423934E+01 2.266261E+00 1.030220E+04 2.088860E+06 3 3 8.115621E+02 2.848793E+01 4.533995E+00 8.189160E+03 6.646012E+06 4 4 1.366727E+03 3.696928E+01 5.883843E+00 1.030219E+04 1.408029E+07 5 5 2.348062E+03 4.845681E+01 7.712141E+00 1.030036E+04 2.418588E+07 6 6 2.612754E+03 5.111510E+01 8.135221E+00 1.030422E+04 2.692239E+07 7 7 5.204400E+03 7.214153E+01 1.148168E+01 5.735026E+03 2.984737E+07 8 8 5.691458E+03 7.544175E+01 1.200693E+01 4.943446E+03 2.813541E+07 9 9 8.226828E+03 9.070187E+01 1.443565E+01 4.861241E+03 3.999260E+07 10 10 1.356558E+04 1.164714E+02 1.853699E+01 2.892032E+03 3.923209E+07 11 11 2.680833E+04 1.637325E+02 2.605883E+01 1.446632E+03 3.878178E+07 12 12 1.193688E+05 3.454980E+02 5.498771E+01 2.624833E+02 3.133233E+07 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 1.570447E-01 0.0 0.0 2 G 0.0 0.0 0.0 1.565606E-01 0.0 0.0 3 G 0.0 0.0 0.0 1.551112E-01 0.0 0.0 4 G 0.0 0.0 0.0 1.527056E-01 0.0 0.0 5 G 0.0 0.0 0.0 1.493584E-01 0.0 0.0 6 G 0.0 0.0 0.0 1.450904E-01 0.0 0.0 7 G 0.0 0.0 0.0 1.399279E-01 0.0 0.0 8 G 0.0 0.0 0.0 1.339026E-01 0.0 0.0 9 G 0.0 0.0 0.0 1.270518E-01 0.0 0.0 10 G 0.0 0.0 0.0 1.194177E-01 0.0 0.0 11 G 0.0 0.0 0.0 1.110474E-01 0.0 0.0 12 G 0.0 0.0 0.0 1.019924E-01 0.0 0.0 13 G 0.0 0.0 0.0 9.230857E-02 0.0 0.0 14 G 0.0 0.0 0.0 8.205564E-02 0.0 0.0 15 G 0.0 0.0 0.0 7.129681E-02 0.0 0.0 16 G 0.0 0.0 0.0 6.009841E-02 0.0 0.0 17 G 0.0 0.0 0.0 4.852949E-02 0.0 0.0 18 G 0.0 0.0 0.0 3.666136E-02 0.0 0.0 19 G 0.0 0.0 0.0 2.456721E-02 0.0 0.0 20 G 0.0 0.0 0.0 1.232159E-02 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 2.334453E-01 1.527056E-01 0.0 0.0 65 G 0.0 0.0 2.327257E-01 1.522348E-01 2.876417E-03 0.0 66 G 0.0 0.0 2.305713E-01 1.508255E-01 5.735101E-03 0.0 67 G 0.0 0.0 2.269952E-01 1.484863E-01 8.558425E-03 0.0 68 G 0.0 0.0 2.220197E-01 1.452316E-01 1.132898E-02 0.0 69 G 0.0 0.0 2.156754E-01 1.410815E-01 1.402970E-02 0.0 70 G 0.0 0.0 2.080013E-01 1.360617E-01 1.664391E-02 0.0 71 G 0.0 0.0 1.990449E-01 1.302029E-01 1.915551E-02 0.0 72 G 0.0 0.0 1.888613E-01 1.235414E-01 2.154901E-02 0.0 73 G 0.0 0.0 1.775132E-01 1.161182E-01 2.380965E-02 0.0 74 G 0.0 0.0 1.650708E-01 1.079791E-01 2.592350E-02 0.0 75 G 0.0 0.0 1.516106E-01 9.917433E-02 2.787752E-02 0.0 76 G 0.0 0.0 1.372157E-01 8.975808E-02 2.965966E-02 0.0 77 G 0.0 0.0 1.219749E-01 7.978844E-02 3.125895E-02 0.0 78 G 0.0 0.0 1.059820E-01 6.932688E-02 3.266551E-02 0.0 79 G 0.0 0.0 8.933567E-02 5.843789E-02 3.387068E-02 0.0 80 G 0.0 0.0 7.213859E-02 4.718861E-02 3.486703E-02 0.0 81 G 0.0 0.0 5.449674E-02 3.564841E-02 3.564841E-02 0.0 82 G 0.0 0.0 3.651890E-02 2.388841E-02 3.621000E-02 0.0 83 G 0.0 0.0 1.831591E-02 1.198114E-02 3.654835E-02 0.0 84 G 0.0 0.0 0.0 0.0 3.666136E-02 0.0 127 G 0.0 0.0 4.539905E-01 1.399279E-01 0.0 0.0 128 G 0.0 0.0 4.525910E-01 1.394965E-01 5.593883E-03 0.0 129 G 0.0 0.0 4.484011E-01 1.382051E-01 1.115328E-02 0.0 130 G 0.0 0.0 4.414467E-01 1.360617E-01 1.664391E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 4.317706E-01 1.330793E-01 2.203193E-02 0.0 132 G 0.0 0.0 4.194325E-01 1.292765E-01 2.728411E-02 0.0 133 G 0.0 0.0 4.045085E-01 1.246767E-01 3.236808E-02 0.0 134 G 0.0 0.0 3.870905E-01 1.193081E-01 3.725248E-02 0.0 135 G 0.0 0.0 3.672860E-01 1.132040E-01 4.190721E-02 0.0 136 G 0.0 0.0 3.452171E-01 1.064020E-01 4.630358E-02 0.0 137 G 0.0 0.0 3.210197E-01 9.894395E-02 5.041446E-02 0.0 138 G 0.0 0.0 2.948432E-01 9.087589E-02 5.421452E-02 0.0 139 G 0.0 0.0 2.668489E-01 8.224754E-02 5.768033E-02 0.0 140 G 0.0 0.0 2.372094E-01 7.311212E-02 6.079053E-02 0.0 141 G 0.0 0.0 2.061074E-01 6.352592E-02 6.352592E-02 0.0 142 G 0.0 0.0 1.737346E-01 5.354808E-02 6.586967E-02 0.0 143 G 0.0 0.0 1.402908E-01 4.324009E-02 6.780729E-02 0.0 144 G 0.0 0.0 1.059820E-01 3.266551E-02 6.932688E-02 0.0 145 G 0.0 0.0 7.101975E-02 2.188954E-02 7.041903E-02 0.0 146 G 0.0 0.0 3.561968E-02 1.097861E-02 7.107703E-02 0.0 147 G 0.0 0.0 0.0 0.0 7.129681E-02 0.0 190 G 0.0 0.0 6.494480E-01 1.194177E-01 0.0 0.0 191 G 0.0 0.0 6.474460E-01 1.190496E-01 8.002231E-03 0.0 192 G 0.0 0.0 6.414523E-01 1.179475E-01 1.595512E-02 0.0 193 G 0.0 0.0 6.315037E-01 1.161182E-01 2.380965E-02 0.0 194 G 0.0 0.0 6.176618E-01 1.135730E-01 3.151738E-02 0.0 195 G 0.0 0.0 6.000117E-01 1.103276E-01 3.903080E-02 0.0 196 G 0.0 0.0 5.786625E-01 1.064020E-01 4.630358E-02 0.0 197 G 0.0 0.0 5.537454E-01 1.018204E-01 5.329088E-02 0.0 198 G 0.0 0.0 5.254145E-01 9.661099E-02 5.994962E-02 0.0 199 G 0.0 0.0 4.938442E-01 9.080596E-02 6.623876E-02 0.0 200 G 0.0 0.0 4.592291E-01 8.444110E-02 7.211950E-02 0.0 201 G 0.0 0.0 4.217827E-01 7.755562E-02 7.755562E-02 0.0 202 G 0.0 0.0 3.817360E-01 7.019199E-02 8.251358E-02 0.0 203 G 0.0 0.0 3.393357E-01 6.239560E-02 8.696281E-02 0.0 204 G 0.0 0.0 2.948432E-01 5.421452E-02 9.087589E-02 0.0 205 G 0.0 0.0 2.485330E-01 4.569919E-02 9.422868E-02 0.0 206 G 0.0 0.0 2.006905E-01 3.690211E-02 9.700052E-02 0.0 207 G 0.0 0.0 1.516106E-01 2.787752E-02 9.917433E-02 0.0 208 G 0.0 0.0 1.015960E-01 1.868105E-02 1.007367E-01 0.0 209 G 0.0 0.0 5.095510E-02 9.369408E-03 1.016780E-01 0.0 210 G 0.0 0.0 0.0 0.0 1.019924E-01 0.0 253 G 0.0 0.0 8.090169E-01 9.230857E-02 0.0 0.0 254 G 0.0 0.0 8.065231E-01 9.202401E-02 9.968373E-03 0.0 255 G 0.0 0.0 7.990566E-01 9.117210E-02 1.987529E-02 0.0 256 G 0.0 0.0 7.866638E-01 8.975808E-02 2.965966E-02 0.0 257 G 0.0 0.0 7.694209E-01 8.779067E-02 3.926118E-02 0.0 258 G 0.0 0.0 7.474342E-01 8.528200E-02 4.862064E-02 0.0 259 G 0.0 0.0 7.208394E-01 8.224754E-02 5.768033E-02 0.0 260 G 0.0 0.0 6.898004E-01 7.870600E-02 6.638441E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 6.545085E-01 7.467920E-02 7.467920E-02 0.0 262 G 0.0 0.0 6.151813E-01 7.019199E-02 8.251358E-02 0.0 263 G 0.0 0.0 5.720614E-01 6.527202E-02 8.983923E-02 0.0 264 G 0.0 0.0 5.254145E-01 5.994962E-02 9.661099E-02 0.0 265 G 0.0 0.0 4.755282E-01 5.425762E-02 1.027871E-01 0.0 266 G 0.0 0.0 4.227102E-01 4.823110E-02 1.083295E-01 0.0 267 G 0.0 0.0 3.672860E-01 4.190721E-02 1.132040E-01 0.0 268 G 0.0 0.0 3.095974E-01 3.532496E-02 1.173806E-01 0.0 269 G 0.0 0.0 2.500000E-01 2.852492E-02 1.208335E-01 0.0 270 G 0.0 0.0 1.888613E-01 2.154901E-02 1.235414E-01 0.0 271 G 0.0 0.0 1.265581E-01 1.444024E-02 1.254876E-01 0.0 272 G 0.0 0.0 6.347474E-02 7.242447E-03 1.266602E-01 0.0 273 G 0.0 0.0 0.0 0.0 1.270518E-01 0.0 316 G 0.0 0.0 9.238795E-01 6.009841E-02 0.0 0.0 317 G 0.0 0.0 9.210315E-01 5.991315E-02 1.138366E-02 0.0 318 G 0.0 0.0 9.125050E-01 5.935850E-02 2.269714E-02 0.0 319 G 0.0 0.0 8.983526E-01 5.843789E-02 3.387068E-02 0.0 320 G 0.0 0.0 8.786616E-01 5.715698E-02 4.483540E-02 0.0 321 G 0.0 0.0 8.535533E-01 5.552369E-02 5.552369E-02 0.0 322 G 0.0 0.0 8.231826E-01 5.354808E-02 6.586967E-02 0.0 323 G 0.0 0.0 7.877368E-01 5.124233E-02 7.580953E-02 0.0 324 G 0.0 0.0 7.474342E-01 4.862064E-02 8.528200E-02 0.0 325 G 0.0 0.0 7.025235E-01 4.569919E-02 9.422868E-02 0.0 326 G 0.0 0.0 6.532815E-01 4.249600E-02 1.025944E-01 0.0 327 G 0.0 0.0 6.000117E-01 3.903080E-02 1.103276E-01 0.0 328 G 0.0 0.0 5.430427E-01 3.532496E-02 1.173806E-01 0.0 329 G 0.0 0.0 4.827257E-01 3.140134E-02 1.237099E-01 0.0 330 G 0.0 0.0 4.194325E-01 2.728411E-02 1.292765E-01 0.0 331 G 0.0 0.0 3.535534E-01 2.299867E-02 1.340461E-01 0.0 332 G 0.0 0.0 2.854944E-01 1.857143E-02 1.379892E-01 0.0 333 G 0.0 0.0 2.156754E-01 1.402970E-02 1.410815E-01 0.0 334 G 0.0 0.0 1.445266E-01 9.401463E-03 1.433041E-01 0.0 335 G 0.0 0.0 7.248675E-02 4.715267E-03 1.446431E-01 0.0 336 G 0.0 0.0 0.0 0.0 1.450904E-01 0.0 379 G 0.0 0.0 9.876884E-01 2.456721E-02 0.0 0.0 380 G 0.0 0.0 9.846436E-01 2.449147E-02 1.216989E-02 0.0 381 G 0.0 0.0 9.755282E-01 2.426475E-02 2.426475E-02 0.0 382 G 0.0 0.0 9.603984E-01 2.388841E-02 3.621000E-02 0.0 383 G 0.0 0.0 9.393474E-01 2.336480E-02 4.793201E-02 0.0 384 G 0.0 0.0 9.125050E-01 2.269714E-02 5.935850E-02 0.0 385 G 0.0 0.0 8.800368E-01 2.188954E-02 7.041903E-02 0.0 386 G 0.0 0.0 8.421427E-01 2.094699E-02 8.104540E-02 0.0 387 G 0.0 0.0 7.990566E-01 1.987529E-02 9.117210E-02 0.0 388 G 0.0 0.0 7.510441E-01 1.868105E-02 1.007367E-01 0.0 389 G 0.0 0.0 6.984011E-01 1.737164E-02 1.096802E-01 0.0 390 G 0.0 0.0 6.414523E-01 1.595512E-02 1.179475E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 5.805486E-01 1.444024E-02 1.254876E-01 0.0 392 G 0.0 0.0 5.160657E-01 1.283633E-02 1.322541E-01 0.0 393 G 0.0 0.0 4.484011E-01 1.115328E-02 1.382051E-01 0.0 394 G 0.0 0.0 3.779719E-01 9.401463E-03 1.433041E-01 0.0 395 G 0.0 0.0 3.052125E-01 7.591685E-03 1.475196E-01 0.0 396 G 0.0 0.0 2.305713E-01 5.735101E-03 1.508255E-01 0.0 397 G 0.0 0.0 1.545085E-01 3.843158E-03 1.532016E-01 0.0 398 G 0.0 0.0 7.749313E-02 1.927521E-03 1.546331E-01 0.0 399 G 0.0 0.0 0.0 0.0 1.551112E-01 0.0 442 G 0.0 0.0 9.969173E-01 -1.232159E-02 0.0 0.0 443 G 0.0 0.0 9.938442E-01 -1.228360E-02 1.228360E-02 0.0 444 G 0.0 0.0 9.846436E-01 -1.216989E-02 2.449147E-02 0.0 445 G 0.0 0.0 9.693724E-01 -1.198114E-02 3.654835E-02 0.0 446 G 0.0 0.0 9.481246E-01 -1.171853E-02 4.837989E-02 0.0 447 G 0.0 0.0 9.210315E-01 -1.138366E-02 5.991315E-02 0.0 448 G 0.0 0.0 8.882598E-01 -1.097861E-02 7.107703E-02 0.0 449 G 0.0 0.0 8.500117E-01 -1.050588E-02 8.180269E-02 0.0 450 G 0.0 0.0 8.065231E-01 -9.968373E-03 9.202401E-02 0.0 451 G 0.0 0.0 7.580619E-01 -9.369408E-03 1.016780E-01 0.0 452 G 0.0 0.0 7.049270E-01 -8.712677E-03 1.107051E-01 0.0 453 G 0.0 0.0 6.474460E-01 -8.002231E-03 1.190496E-01 0.0 454 G 0.0 0.0 5.859733E-01 -7.242447E-03 1.266602E-01 0.0 455 G 0.0 0.0 5.208879E-01 -6.438011E-03 1.334899E-01 0.0 456 G 0.0 0.0 4.525910E-01 -5.593883E-03 1.394965E-01 0.0 457 G 0.0 0.0 3.815037E-01 -4.715267E-03 1.446431E-01 0.0 458 G 0.0 0.0 3.080644E-01 -3.807580E-03 1.488980E-01 0.0 459 G 0.0 0.0 2.327257E-01 -2.876417E-03 1.522348E-01 0.0 460 G 0.0 0.0 1.559522E-01 -1.927521E-03 1.546331E-01 0.0 461 G 0.0 0.0 7.821723E-02 -9.667405E-04 1.560780E-01 0.0 462 G 0.0 0.0 0.0 0.0 1.565606E-01 0.0 505 G 0.0 0.0 9.510565E-01 -4.852949E-02 0.0 0.0 506 G 0.0 0.0 9.481246E-01 -4.837989E-02 1.171853E-02 0.0 507 G 0.0 0.0 9.393474E-01 -4.793201E-02 2.336480E-02 0.0 508 G 0.0 0.0 9.247788E-01 -4.718861E-02 3.486703E-02 0.0 509 G 0.0 0.0 9.045085E-01 -4.615429E-02 4.615429E-02 0.0 510 G 0.0 0.0 8.786616E-01 -4.483540E-02 5.715698E-02 0.0 511 G 0.0 0.0 8.473975E-01 -4.324009E-02 6.780729E-02 0.0 512 G 0.0 0.0 8.109089E-01 -4.137819E-02 7.803955E-02 0.0 513 G 0.0 0.0 7.694209E-01 -3.926118E-02 8.779067E-02 0.0 514 G 0.0 0.0 7.231890E-01 -3.690211E-02 9.700052E-02 0.0 515 G 0.0 0.0 6.724985E-01 -3.431553E-02 1.056123E-01 0.0 516 G 0.0 0.0 6.176618E-01 -3.151738E-02 1.135730E-01 0.0 517 G 0.0 0.0 5.590169E-01 -2.852492E-02 1.208335E-01 0.0 518 G 0.0 0.0 4.969256E-01 -2.535659E-02 1.273490E-01 0.0 519 G 0.0 0.0 4.317706E-01 -2.203193E-02 1.330793E-01 0.0 520 G 0.0 0.0 3.639536E-01 -1.857143E-02 1.379892E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 2.938926E-01 -1.499644E-02 1.420483E-01 0.0 522 G 0.0 0.0 2.220197E-01 -1.132898E-02 1.452316E-01 0.0 523 G 0.0 0.0 1.487780E-01 -7.591685E-03 1.475196E-01 0.0 524 G 0.0 0.0 7.461903E-02 -3.807580E-03 1.488980E-01 0.0 525 G 0.0 0.0 0.0 0.0 1.493584E-01 0.0 568 G 0.0 0.0 8.526402E-01 -8.205564E-02 0.0 0.0 569 G 0.0 0.0 8.500117E-01 -8.180269E-02 1.050588E-02 0.0 570 G 0.0 0.0 8.421427E-01 -8.104540E-02 2.094699E-02 0.0 571 G 0.0 0.0 8.290817E-01 -7.978844E-02 3.125895E-02 0.0 572 G 0.0 0.0 8.109089E-01 -7.803955E-02 4.137819E-02 0.0 573 G 0.0 0.0 7.877368E-01 -7.580953E-02 5.124233E-02 0.0 574 G 0.0 0.0 7.597079E-01 -7.311212E-02 6.079053E-02 0.0 575 G 0.0 0.0 7.269952E-01 -6.996394E-02 6.996394E-02 0.0 576 G 0.0 0.0 6.898004E-01 -6.638441E-02 7.870600E-02 0.0 577 G 0.0 0.0 6.483527E-01 -6.239560E-02 8.696281E-02 0.0 578 G 0.0 0.0 6.029076E-01 -5.802210E-02 9.468347E-02 0.0 579 G 0.0 0.0 5.537454E-01 -5.329088E-02 1.018204E-01 0.0 580 G 0.0 0.0 5.011693E-01 -4.823110E-02 1.083295E-01 0.0 581 G 0.0 0.0 4.455032E-01 -4.287396E-02 1.141708E-01 0.0 582 G 0.0 0.0 3.870905E-01 -3.725248E-02 1.193081E-01 0.0 583 G 0.0 0.0 3.262913E-01 -3.140134E-02 1.237099E-01 0.0 584 G 0.0 0.0 2.634803E-01 -2.535659E-02 1.273490E-01 0.0 585 G 0.0 0.0 1.990449E-01 -1.915551E-02 1.302029E-01 0.0 586 G 0.0 0.0 1.333823E-01 -1.283633E-02 1.322541E-01 0.0 587 G 0.0 0.0 6.689738E-02 -6.438011E-03 1.334899E-01 0.0 588 G 0.0 0.0 0.0 0.0 1.339026E-01 0.0 631 G 0.0 0.0 7.071067E-01 -1.110474E-01 0.0 0.0 632 G 0.0 0.0 7.049270E-01 -1.107051E-01 8.712677E-03 0.0 633 G 0.0 0.0 6.984011E-01 -1.096802E-01 1.737164E-02 0.0 634 G 0.0 0.0 6.875693E-01 -1.079791E-01 2.592350E-02 0.0 635 G 0.0 0.0 6.724985E-01 -1.056123E-01 3.431553E-02 0.0 636 G 0.0 0.0 6.532815E-01 -1.025944E-01 4.249600E-02 0.0 637 G 0.0 0.0 6.300367E-01 -9.894395E-02 5.041446E-02 0.0 638 G 0.0 0.0 6.029076E-01 -9.468347E-02 5.802210E-02 0.0 639 G 0.0 0.0 5.720614E-01 -8.983923E-02 6.527202E-02 0.0 640 G 0.0 0.0 5.376882E-01 -8.444110E-02 7.211950E-02 0.0 641 G 0.0 0.0 5.000000E-01 -7.852236E-02 7.852236E-02 0.0 642 G 0.0 0.0 4.592291E-01 -7.211950E-02 8.444110E-02 0.0 643 G 0.0 0.0 4.156269E-01 -6.527202E-02 8.983923E-02 0.0 644 G 0.0 0.0 3.694623E-01 -5.802210E-02 9.468347E-02 0.0 645 G 0.0 0.0 3.210197E-01 -5.041446E-02 9.894395E-02 0.0 646 G 0.0 0.0 2.705980E-01 -4.249600E-02 1.025944E-01 0.0 647 G 0.0 0.0 2.185080E-01 -3.431553E-02 1.056123E-01 0.0 648 G 0.0 0.0 1.650708E-01 -2.592350E-02 1.079791E-01 0.0 649 G 0.0 0.0 1.106159E-01 -1.737164E-02 1.096802E-01 0.0 650 G 0.0 0.0 5.547896E-02 -8.712677E-03 1.107051E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 1.110474E-01 0.0 694 G 0.0 0.0 5.224985E-01 -1.339026E-01 0.0 0.0 695 G 0.0 0.0 5.208879E-01 -1.334899E-01 6.438011E-03 0.0 696 G 0.0 0.0 5.160657E-01 -1.322541E-01 1.283633E-02 0.0 697 G 0.0 0.0 5.080619E-01 -1.302029E-01 1.915551E-02 0.0 698 G 0.0 0.0 4.969256E-01 -1.273490E-01 2.535659E-02 0.0 699 G 0.0 0.0 4.827257E-01 -1.237099E-01 3.140134E-02 0.0 700 G 0.0 0.0 4.655496E-01 -1.193081E-01 3.725248E-02 0.0 701 G 0.0 0.0 4.455032E-01 -1.141708E-01 4.287396E-02 0.0 702 G 0.0 0.0 4.227102E-01 -1.083295E-01 4.823110E-02 0.0 703 G 0.0 0.0 3.973110E-01 -1.018204E-01 5.329088E-02 0.0 704 G 0.0 0.0 3.694623E-01 -9.468347E-02 5.802210E-02 0.0 705 G 0.0 0.0 3.393357E-01 -8.696281E-02 6.239560E-02 0.0 706 G 0.0 0.0 3.071170E-01 -7.870600E-02 6.638441E-02 0.0 707 G 0.0 0.0 2.730047E-01 -6.996394E-02 6.996394E-02 0.0 708 G 0.0 0.0 2.372094E-01 -6.079053E-02 7.311212E-02 0.0 709 G 0.0 0.0 1.999515E-01 -5.124233E-02 7.580953E-02 0.0 710 G 0.0 0.0 1.614609E-01 -4.137819E-02 7.803955E-02 0.0 711 G 0.0 0.0 1.219749E-01 -3.125895E-02 7.978844E-02 0.0 712 G 0.0 0.0 8.173678E-02 -2.094699E-02 8.104540E-02 0.0 713 G 0.0 0.0 4.099476E-02 -1.050588E-02 8.180269E-02 0.0 714 G 0.0 0.0 0.0 0.0 8.205564E-02 0.0 757 G 0.0 0.0 3.090170E-01 -1.493584E-01 0.0 0.0 758 G 0.0 0.0 3.080644E-01 -1.488980E-01 3.807580E-03 0.0 759 G 0.0 0.0 3.052125E-01 -1.475196E-01 7.591685E-03 0.0 760 G 0.0 0.0 3.004788E-01 -1.452316E-01 1.132898E-02 0.0 761 G 0.0 0.0 2.938926E-01 -1.420483E-01 1.499644E-02 0.0 762 G 0.0 0.0 2.854944E-01 -1.379892E-01 1.857143E-02 0.0 763 G 0.0 0.0 2.753361E-01 -1.330793E-01 2.203193E-02 0.0 764 G 0.0 0.0 2.634803E-01 -1.273490E-01 2.535659E-02 0.0 765 G 0.0 0.0 2.500000E-01 -1.208335E-01 2.852492E-02 0.0 766 G 0.0 0.0 2.349783E-01 -1.135730E-01 3.151738E-02 0.0 767 G 0.0 0.0 2.185080E-01 -1.056123E-01 3.431553E-02 0.0 768 G 0.0 0.0 2.006905E-01 -9.700052E-02 3.690211E-02 0.0 769 G 0.0 0.0 1.816356E-01 -8.779067E-02 3.926118E-02 0.0 770 G 0.0 0.0 1.614609E-01 -7.803955E-02 4.137819E-02 0.0 771 G 0.0 0.0 1.402908E-01 -6.780729E-02 4.324009E-02 0.0 772 G 0.0 0.0 1.182557E-01 -5.715698E-02 4.483540E-02 0.0 773 G 0.0 0.0 9.549150E-02 -4.615429E-02 4.615429E-02 0.0 774 G 0.0 0.0 7.213859E-02 -3.486703E-02 4.718861E-02 0.0 775 G 0.0 0.0 4.834091E-02 -2.336480E-02 4.793201E-02 0.0 776 G 0.0 0.0 2.424519E-02 -1.171853E-02 4.837989E-02 0.0 777 G 0.0 0.0 0.0 0.0 4.852949E-02 0.0 820 G 0.0 0.0 7.845909E-02 -1.565606E-01 0.0 0.0 821 G 0.0 0.0 7.821723E-02 -1.560780E-01 9.667405E-04 0.0 822 G 0.0 0.0 7.749313E-02 -1.546331E-01 1.927521E-03 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 7.629126E-02 -1.522348E-01 2.876417E-03 0.0 824 G 0.0 0.0 7.461903E-02 -1.488980E-01 3.807580E-03 0.0 825 G 0.0 0.0 7.248675E-02 -1.446431E-01 4.715267E-03 0.0 826 G 0.0 0.0 6.990756E-02 -1.394965E-01 5.593883E-03 0.0 827 G 0.0 0.0 6.689738E-02 -1.334899E-01 6.438011E-03 0.0 828 G 0.0 0.0 6.347474E-02 -1.266602E-01 7.242447E-03 0.0 829 G 0.0 0.0 5.966076E-02 -1.190496E-01 8.002231E-03 0.0 830 G 0.0 0.0 5.547896E-02 -1.107051E-01 8.712677E-03 0.0 831 G 0.0 0.0 5.095510E-02 -1.016780E-01 9.369408E-03 0.0 832 G 0.0 0.0 4.611710E-02 -9.202401E-02 9.968373E-03 0.0 833 G 0.0 0.0 4.099476E-02 -8.180269E-02 1.050588E-02 0.0 834 G 0.0 0.0 3.561968E-02 -7.107703E-02 1.097861E-02 0.0 835 G 0.0 0.0 3.002500E-02 -5.991315E-02 1.138366E-02 0.0 836 G 0.0 0.0 2.424519E-02 -4.837989E-02 1.171853E-02 0.0 837 G 0.0 0.0 1.831591E-02 -3.654835E-02 1.198114E-02 0.0 838 G 0.0 0.0 1.227371E-02 -2.449147E-02 1.216989E-02 0.0 839 G 0.0 0.0 6.155829E-03 -1.228360E-02 1.228360E-02 0.0 840 G 0.0 0.0 0.0 0.0 1.232159E-02 0.0 841 G 0.0 0.0 0.0 -1.570447E-01 0.0 0.0 842 G 0.0 0.0 0.0 -1.565606E-01 0.0 0.0 843 G 0.0 0.0 0.0 -1.551112E-01 0.0 0.0 844 G 0.0 0.0 0.0 -1.527056E-01 0.0 0.0 845 G 0.0 0.0 0.0 -1.493584E-01 0.0 0.0 846 G 0.0 0.0 0.0 -1.450904E-01 0.0 0.0 847 G 0.0 0.0 0.0 -1.399279E-01 0.0 0.0 848 G 0.0 0.0 0.0 -1.339026E-01 0.0 0.0 849 G 0.0 0.0 0.0 -1.270518E-01 0.0 0.0 850 G 0.0 0.0 0.0 -1.194177E-01 0.0 0.0 851 G 0.0 0.0 0.0 -1.110474E-01 0.0 0.0 852 G 0.0 0.0 0.0 -1.019924E-01 0.0 0.0 853 G 0.0 0.0 0.0 -9.230857E-02 0.0 0.0 854 G 0.0 0.0 0.0 -8.205564E-02 0.0 0.0 855 G 0.0 0.0 0.0 -7.129681E-02 0.0 0.0 856 G 0.0 0.0 0.0 -6.009841E-02 0.0 0.0 857 G 0.0 0.0 0.0 -4.852949E-02 0.0 0.0 858 G 0.0 0.0 0.0 -3.666136E-02 0.0 0.0 859 G 0.0 0.0 0.0 -2.456721E-02 0.0 0.0 860 G 0.0 0.0 0.0 -1.232159E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 3.142506E-01 0.0 0.0 2 G 0.0 0.0 0.0 3.132819E-01 0.0 0.0 3 G 0.0 0.0 0.0 3.103817E-01 0.0 0.0 4 G 0.0 0.0 0.0 3.055678E-01 0.0 0.0 5 G 0.0 0.0 0.0 2.988701E-01 0.0 0.0 6 G 0.0 0.0 0.0 2.903297E-01 0.0 0.0 7 G 0.0 0.0 0.0 2.799993E-01 0.0 0.0 8 G 0.0 0.0 0.0 2.679427E-01 0.0 0.0 9 G 0.0 0.0 0.0 2.542341E-01 0.0 0.0 10 G 0.0 0.0 0.0 2.389580E-01 0.0 0.0 11 G 0.0 0.0 0.0 2.222087E-01 0.0 0.0 12 G 0.0 0.0 0.0 2.040894E-01 0.0 0.0 13 G 0.0 0.0 0.0 1.847119E-01 0.0 0.0 14 G 0.0 0.0 0.0 1.641955E-01 0.0 0.0 15 G 0.0 0.0 0.0 1.426668E-01 0.0 0.0 16 G 0.0 0.0 0.0 1.202585E-01 0.0 0.0 17 G 0.0 0.0 0.0 9.710877E-02 0.0 0.0 18 G 0.0 0.0 0.0 7.336034E-02 0.0 0.0 19 G 0.0 0.0 0.0 4.915962E-02 0.0 0.0 20 G 0.0 0.0 0.0 2.465582E-02 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 4.539905E-01 2.799993E-01 0.0 0.0 65 G 0.0 0.0 4.525910E-01 2.791362E-01 5.587314E-03 0.0 66 G 0.0 0.0 4.484011E-01 2.765521E-01 1.114018E-02 0.0 67 G 0.0 0.0 4.414467E-01 2.722629E-01 1.662436E-02 0.0 68 G 0.0 0.0 4.317706E-01 2.662952E-01 2.200605E-02 0.0 69 G 0.0 0.0 4.194325E-01 2.586856E-01 2.725207E-02 0.0 70 G 0.0 0.0 4.045085E-01 2.494812E-01 3.233006E-02 0.0 71 G 0.0 0.0 3.870905E-01 2.387387E-01 3.720873E-02 0.0 72 G 0.0 0.0 3.672860E-01 2.265242E-01 4.185800E-02 0.0 73 G 0.0 0.0 3.452171E-01 2.129132E-01 4.624919E-02 0.0 74 G 0.0 0.0 3.210197E-01 1.979894E-01 5.035525E-02 0.0 75 G 0.0 0.0 2.948432E-01 1.818450E-01 5.415085E-02 0.0 76 G 0.0 0.0 2.668489E-01 1.645795E-01 5.761259E-02 0.0 77 G 0.0 0.0 2.372094E-01 1.462992E-01 6.071913E-02 0.0 78 G 0.0 0.0 2.061074E-01 1.271170E-01 6.345131E-02 0.0 79 G 0.0 0.0 1.737346E-01 1.071511E-01 6.579230E-02 0.0 80 G 0.0 0.0 1.402908E-01 8.652455E-02 6.772766E-02 0.0 81 G 0.0 0.0 1.059820E-01 6.536455E-02 6.924545E-02 0.0 82 G 0.0 0.0 7.101975E-02 4.380155E-02 7.033633E-02 0.0 83 G 0.0 0.0 3.561968E-02 2.196849E-02 7.099355E-02 0.0 84 G 0.0 0.0 0.0 0.0 7.121307E-02 0.0 127 G 0.0 0.0 8.090169E-01 1.847119E-01 0.0 0.0 128 G 0.0 0.0 8.065231E-01 1.841425E-01 9.956665E-03 0.0 129 G 0.0 0.0 7.990566E-01 1.824377E-01 1.985195E-02 0.0 130 G 0.0 0.0 7.866638E-01 1.796083E-01 2.962483E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 7.694209E-01 1.756714E-01 3.921507E-02 0.0 132 G 0.0 0.0 7.474342E-01 1.706515E-01 4.856354E-02 0.0 133 G 0.0 0.0 7.208394E-01 1.645795E-01 5.761259E-02 0.0 134 G 0.0 0.0 6.898004E-01 1.574928E-01 6.630644E-02 0.0 135 G 0.0 0.0 6.545085E-01 1.494350E-01 7.459150E-02 0.0 136 G 0.0 0.0 6.151813E-01 1.404560E-01 8.241667E-02 0.0 137 G 0.0 0.0 5.720614E-01 1.306110E-01 8.973371E-02 0.0 138 G 0.0 0.0 5.254145E-01 1.199608E-01 9.649752E-02 0.0 139 G 0.0 0.0 4.755282E-01 1.085709E-01 1.026664E-01 0.0 140 G 0.0 0.0 4.227102E-01 9.651168E-02 1.082023E-01 0.0 141 G 0.0 0.0 3.672860E-01 8.385743E-02 1.130711E-01 0.0 142 G 0.0 0.0 3.095974E-01 7.068617E-02 1.172428E-01 0.0 143 G 0.0 0.0 2.500000E-01 5.707911E-02 1.206916E-01 0.0 144 G 0.0 0.0 1.888613E-01 4.312013E-02 1.233963E-01 0.0 145 G 0.0 0.0 1.265581E-01 2.889530E-02 1.253402E-01 0.0 146 G 0.0 0.0 6.347474E-02 1.449233E-02 1.265114E-01 0.0 147 G 0.0 0.0 0.0 0.0 1.269026E-01 0.0 190 G 0.0 0.0 9.876884E-01 4.915962E-02 0.0 0.0 191 G 0.0 0.0 9.846436E-01 4.900808E-02 1.215559E-02 0.0 192 G 0.0 0.0 9.755282E-01 4.855439E-02 2.423625E-02 0.0 193 G 0.0 0.0 9.603984E-01 4.780134E-02 3.616747E-02 0.0 194 G 0.0 0.0 9.393474E-01 4.675358E-02 4.787571E-02 0.0 195 G 0.0 0.0 9.125050E-01 4.541757E-02 5.928879E-02 0.0 196 G 0.0 0.0 8.800368E-01 4.380155E-02 7.033633E-02 0.0 197 G 0.0 0.0 8.421427E-01 4.191547E-02 8.095022E-02 0.0 198 G 0.0 0.0 7.990566E-01 3.977097E-02 9.106503E-02 0.0 199 G 0.0 0.0 7.510441E-01 3.738127E-02 1.006184E-01 0.0 200 G 0.0 0.0 6.984011E-01 3.476110E-02 1.095514E-01 0.0 201 G 0.0 0.0 6.414523E-01 3.192662E-02 1.178090E-01 0.0 202 G 0.0 0.0 5.805486E-01 2.889530E-02 1.253402E-01 0.0 203 G 0.0 0.0 5.160657E-01 2.568583E-02 1.320987E-01 0.0 204 G 0.0 0.0 4.484011E-01 2.231800E-02 1.380428E-01 0.0 205 G 0.0 0.0 3.779719E-01 1.881257E-02 1.431358E-01 0.0 206 G 0.0 0.0 3.052125E-01 1.519116E-02 1.473463E-01 0.0 207 G 0.0 0.0 2.305713E-01 1.147609E-02 1.506484E-01 0.0 208 G 0.0 0.0 1.545085E-01 7.690259E-03 1.530216E-01 0.0 209 G 0.0 0.0 7.749313E-02 3.857020E-03 1.544515E-01 0.0 210 G 0.0 0.0 0.0 0.0 1.549291E-01 0.0 253 G 0.0 0.0 9.510565E-01 -9.710877E-02 0.0 0.0 254 G 0.0 0.0 9.481246E-01 -9.680942E-02 1.170476E-02 0.0 255 G 0.0 0.0 9.393474E-01 -9.591320E-02 2.333736E-02 0.0 256 G 0.0 0.0 9.247788E-01 -9.442565E-02 3.482608E-02 0.0 257 G 0.0 0.0 9.045085E-01 -9.235593E-02 4.610008E-02 0.0 258 G 0.0 0.0 8.786616E-01 -8.971681E-02 5.708986E-02 0.0 259 G 0.0 0.0 8.473975E-01 -8.652455E-02 6.772766E-02 0.0 260 G 0.0 0.0 8.109089E-01 -8.279885E-02 7.794790E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 7.694209E-01 -7.856265E-02 8.768757E-02 0.0 262 G 0.0 0.0 7.231890E-01 -7.384209E-02 9.688661E-02 0.0 263 G 0.0 0.0 6.724985E-01 -6.866627E-02 1.054883E-01 0.0 264 G 0.0 0.0 6.176618E-01 -6.306710E-02 1.134396E-01 0.0 265 G 0.0 0.0 5.590169E-01 -5.707911E-02 1.206916E-01 0.0 266 G 0.0 0.0 4.969256E-01 -5.073919E-02 1.271994E-01 0.0 267 G 0.0 0.0 4.317706E-01 -4.408646E-02 1.329230E-01 0.0 268 G 0.0 0.0 3.639536E-01 -3.716192E-02 1.378271E-01 0.0 269 G 0.0 0.0 2.938926E-01 -3.000826E-02 1.418815E-01 0.0 270 G 0.0 0.0 2.220197E-01 -2.266959E-02 1.450610E-01 0.0 271 G 0.0 0.0 1.487780E-01 -1.519116E-02 1.473463E-01 0.0 272 G 0.0 0.0 7.461903E-02 -7.619066E-03 1.487231E-01 0.0 273 G 0.0 0.0 0.0 0.0 1.491830E-01 0.0 316 G 0.0 0.0 7.071067E-01 -2.222087E-01 0.0 0.0 317 G 0.0 0.0 7.049270E-01 -2.215237E-01 8.702445E-03 0.0 318 G 0.0 0.0 6.984011E-01 -2.194730E-01 1.735124E-02 0.0 319 G 0.0 0.0 6.875693E-01 -2.160691E-01 2.589305E-02 0.0 320 G 0.0 0.0 6.724985E-01 -2.113331E-01 3.427523E-02 0.0 321 G 0.0 0.0 6.532815E-01 -2.052941E-01 4.244608E-02 0.0 322 G 0.0 0.0 6.300367E-01 -1.979894E-01 5.035525E-02 0.0 323 G 0.0 0.0 6.029076E-01 -1.894641E-01 5.795396E-02 0.0 324 G 0.0 0.0 5.720614E-01 -1.797706E-01 6.519536E-02 0.0 325 G 0.0 0.0 5.376882E-01 -1.689688E-01 7.203481E-02 0.0 326 G 0.0 0.0 5.000000E-01 -1.571253E-01 7.843014E-02 0.0 327 G 0.0 0.0 4.592291E-01 -1.443130E-01 8.434192E-02 0.0 328 G 0.0 0.0 4.156269E-01 -1.306110E-01 8.973371E-02 0.0 329 G 0.0 0.0 3.694623E-01 -1.161037E-01 9.457226E-02 0.0 330 G 0.0 0.0 3.210197E-01 -1.008807E-01 9.882774E-02 0.0 331 G 0.0 0.0 2.705980E-01 -8.503560E-02 1.024739E-01 0.0 332 G 0.0 0.0 2.185080E-01 -6.866627E-02 1.054883E-01 0.0 333 G 0.0 0.0 1.650708E-01 -5.187359E-02 1.078523E-01 0.0 334 G 0.0 0.0 1.106159E-01 -3.476110E-02 1.095514E-01 0.0 335 G 0.0 0.0 5.547896E-02 -1.743430E-02 1.105751E-01 0.0 336 G 0.0 0.0 0.0 0.0 1.109170E-01 0.0 379 G 0.0 0.0 3.090170E-01 -2.988701E-01 0.0 0.0 380 G 0.0 0.0 3.080644E-01 -2.979488E-01 3.803108E-03 0.0 381 G 0.0 0.0 3.052125E-01 -2.951905E-01 7.582769E-03 0.0 382 G 0.0 0.0 3.004788E-01 -2.906123E-01 1.131568E-02 0.0 383 G 0.0 0.0 2.938926E-01 -2.842423E-01 1.497882E-02 0.0 384 G 0.0 0.0 2.854944E-01 -2.761199E-01 1.854962E-02 0.0 385 G 0.0 0.0 2.753361E-01 -2.662952E-01 2.200605E-02 0.0 386 G 0.0 0.0 2.634803E-01 -2.548286E-01 2.532681E-02 0.0 387 G 0.0 0.0 2.500000E-01 -2.417910E-01 2.849142E-02 0.0 388 G 0.0 0.0 2.349783E-01 -2.272626E-01 3.148036E-02 0.0 389 G 0.0 0.0 2.185080E-01 -2.113331E-01 3.427523E-02 0.0 390 G 0.0 0.0 2.006905E-01 -1.941006E-01 3.685877E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 1.816356E-01 -1.756714E-01 3.921507E-02 0.0 392 G 0.0 0.0 1.614609E-01 -1.561592E-01 4.132959E-02 0.0 393 G 0.0 0.0 1.402908E-01 -1.356842E-01 4.318931E-02 0.0 394 G 0.0 0.0 1.182557E-01 -1.143726E-01 4.478274E-02 0.0 395 G 0.0 0.0 9.549150E-02 -9.235593E-02 4.610008E-02 0.0 396 G 0.0 0.0 7.213859E-02 -6.976984E-02 4.713319E-02 0.0 397 G 0.0 0.0 4.834091E-02 -4.675358E-02 4.787571E-02 0.0 398 G 0.0 0.0 2.424519E-02 -2.344908E-02 4.832307E-02 0.0 399 G 0.0 0.0 0.0 0.0 4.847249E-02 0.0 442 G 0.0 0.0 -1.564345E-01 -3.103817E-01 0.0 0.0 443 G 0.0 0.0 -1.559522E-01 -3.094248E-01 -1.925257E-03 0.0 444 G 0.0 0.0 -1.545085E-01 -3.065603E-01 -3.838644E-03 0.0 445 G 0.0 0.0 -1.521122E-01 -3.018058E-01 -5.728365E-03 0.0 446 G 0.0 0.0 -1.487780E-01 -2.951905E-01 -7.582769E-03 0.0 447 G 0.0 0.0 -1.445266E-01 -2.867553E-01 -9.390421E-03 0.0 448 G 0.0 0.0 -1.393841E-01 -2.765521E-01 -1.114018E-02 0.0 449 G 0.0 0.0 -1.333823E-01 -2.646439E-01 -1.282126E-02 0.0 450 G 0.0 0.0 -1.265581E-01 -2.511040E-01 -1.442328E-02 0.0 451 G 0.0 0.0 -1.189537E-01 -2.360161E-01 -1.593639E-02 0.0 452 G 0.0 0.0 -1.106159E-01 -2.194730E-01 -1.735124E-02 0.0 453 G 0.0 0.0 -1.015960E-01 -2.015767E-01 -1.865911E-02 0.0 454 G 0.0 0.0 -9.194987E-02 -1.824377E-01 -1.985195E-02 0.0 455 G 0.0 0.0 -8.173678E-02 -1.621740E-01 -2.092239E-02 0.0 456 G 0.0 0.0 -7.101975E-02 -1.409103E-01 -2.186383E-02 0.0 457 G 0.0 0.0 -5.986487E-02 -1.187779E-01 -2.267048E-02 0.0 458 G 0.0 0.0 -4.834091E-02 -9.591320E-02 -2.333736E-02 0.0 459 G 0.0 0.0 -3.651890E-02 -7.245716E-02 -2.386036E-02 0.0 460 G 0.0 0.0 -2.447174E-02 -4.855439E-02 -2.423625E-02 0.0 461 G 0.0 0.0 -1.227371E-02 -2.435226E-02 -2.446271E-02 0.0 462 G 0.0 0.0 0.0 0.0 -2.453835E-02 0.0 505 G 0.0 0.0 -5.877852E-01 -2.542341E-01 0.0 0.0 506 G 0.0 0.0 -5.859733E-01 -2.534504E-01 -7.233941E-03 0.0 507 G 0.0 0.0 -5.805486E-01 -2.511040E-01 -1.442328E-02 0.0 508 G 0.0 0.0 -5.715447E-01 -2.472095E-01 -2.152370E-02 0.0 509 G 0.0 0.0 -5.590169E-01 -2.417910E-01 -2.849142E-02 0.0 510 G 0.0 0.0 -5.430427E-01 -2.348817E-01 -3.528347E-02 0.0 511 G 0.0 0.0 -5.237205E-01 -2.265242E-01 -4.185800E-02 0.0 512 G 0.0 0.0 -5.011693E-01 -2.167702E-01 -4.817445E-02 0.0 513 G 0.0 0.0 -4.755282E-01 -2.056797E-01 -5.419389E-02 0.0 514 G 0.0 0.0 -4.469554E-01 -1.933211E-01 -5.987921E-02 0.0 515 G 0.0 0.0 -4.156269E-01 -1.797706E-01 -6.519536E-02 0.0 516 G 0.0 0.0 -3.817360E-01 -1.651118E-01 -7.010955E-02 0.0 517 G 0.0 0.0 -3.454915E-01 -1.494350E-01 -7.459150E-02 0.0 518 G 0.0 0.0 -3.071170E-01 -1.328369E-01 -7.861356E-02 0.0 519 G 0.0 0.0 -2.668489E-01 -1.154198E-01 -8.215094E-02 0.0 520 G 0.0 0.0 -2.249357E-01 -9.729116E-02 -8.518184E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -1.816356E-01 -7.856265E-02 -8.768757E-02 0.0 522 G 0.0 0.0 -1.372157E-01 -5.934976E-02 -8.965266E-02 0.0 523 G 0.0 0.0 -9.194987E-02 -3.977097E-02 -9.106503E-02 0.0 524 G 0.0 0.0 -4.611710E-02 -1.994698E-02 -9.191594E-02 0.0 525 G 0.0 0.0 0.0 0.0 -9.220016E-02 0.0 568 G 0.0 0.0 -8.910065E-01 -1.426668E-01 0.0 0.0 569 G 0.0 0.0 -8.882598E-01 -1.422270E-01 -1.096572E-02 0.0 570 G 0.0 0.0 -8.800368E-01 -1.409103E-01 -2.186383E-02 0.0 571 G 0.0 0.0 -8.663879E-01 -1.387249E-01 -3.262715E-02 0.0 572 G 0.0 0.0 -8.473975E-01 -1.356842E-01 -4.318931E-02 0.0 573 G 0.0 0.0 -8.231826E-01 -1.318069E-01 -5.348519E-02 0.0 574 G 0.0 0.0 -7.938926E-01 -1.271170E-01 -6.345131E-02 0.0 575 G 0.0 0.0 -7.597079E-01 -1.216434E-01 -7.302625E-02 0.0 576 G 0.0 0.0 -7.208394E-01 -1.154198E-01 -8.215094E-02 0.0 577 G 0.0 0.0 -6.775267E-01 -1.084847E-01 -9.076916E-02 0.0 578 G 0.0 0.0 -6.300367E-01 -1.008807E-01 -9.882774E-02 0.0 579 G 0.0 0.0 -5.786625E-01 -9.265467E-02 -1.062770E-01 0.0 580 G 0.0 0.0 -5.237205E-01 -8.385743E-02 -1.130711E-01 0.0 581 G 0.0 0.0 -4.655496E-01 -7.454319E-02 -1.191680E-01 0.0 582 G 0.0 0.0 -4.045085E-01 -6.476936E-02 -1.245302E-01 0.0 583 G 0.0 0.0 -3.409734E-01 -5.459621E-02 -1.291247E-01 0.0 584 G 0.0 0.0 -2.753361E-01 -4.408646E-02 -1.329230E-01 0.0 585 G 0.0 0.0 -2.080013E-01 -3.330490E-02 -1.359019E-01 0.0 586 G 0.0 0.0 -1.393841E-01 -2.231800E-02 -1.380428E-01 0.0 587 G 0.0 0.0 -6.990756E-02 -1.119351E-02 -1.393327E-01 0.0 588 G 0.0 0.0 0.0 0.0 -1.397635E-01 0.0 631 G 0.0 0.0 -1.000000E+00 1.843938E-14 0.0 0.0 632 G 0.0 0.0 -9.969173E-01 2.052142E-14 -1.230712E-02 0.0 633 G 0.0 0.0 -9.876884E-01 2.527322E-14 -2.453835E-02 0.0 634 G 0.0 0.0 -9.723699E-01 3.124802E-14 -3.661830E-02 0.0 635 G 0.0 0.0 -9.510565E-01 3.976731E-14 -4.847249E-02 0.0 636 G 0.0 0.0 -9.238795E-01 4.826675E-14 -6.002783E-02 0.0 637 G 0.0 0.0 -8.910065E-01 5.288602E-14 -7.121307E-02 0.0 638 G 0.0 0.0 -8.526402E-01 5.211622E-14 -8.195927E-02 0.0 639 G 0.0 0.0 -8.090169E-01 5.295549E-14 -9.220016E-02 0.0 640 G 0.0 0.0 -7.604059E-01 5.080515E-14 -1.018726E-01 0.0 641 G 0.0 0.0 -7.071067E-01 4.868904E-14 -1.109170E-01 0.0 642 G 0.0 0.0 -6.494480E-01 4.662493E-14 -1.192775E-01 0.0 643 G 0.0 0.0 -5.877852E-01 4.690209E-14 -1.269026E-01 0.0 644 G 0.0 0.0 -5.224985E-01 4.472932E-14 -1.337454E-01 0.0 645 G 0.0 0.0 -4.539905E-01 3.909042E-14 -1.397635E-01 0.0 646 G 0.0 0.0 -3.826834E-01 3.528258E-14 -1.449200E-01 0.0 647 G 0.0 0.0 -3.090170E-01 2.851992E-14 -1.491830E-01 0.0 648 G 0.0 0.0 -2.334453E-01 2.089121E-14 -1.525262E-01 0.0 649 G 0.0 0.0 -1.564345E-01 1.325569E-14 -1.549291E-01 0.0 650 G 0.0 0.0 -7.845909E-02 6.875288E-15 -1.563767E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 -1.568603E-01 0.0 694 G 0.0 0.0 -8.910065E-01 1.426668E-01 0.0 0.0 695 G 0.0 0.0 -8.882598E-01 1.422270E-01 -1.096572E-02 0.0 696 G 0.0 0.0 -8.800368E-01 1.409103E-01 -2.186383E-02 0.0 697 G 0.0 0.0 -8.663879E-01 1.387249E-01 -3.262715E-02 0.0 698 G 0.0 0.0 -8.473975E-01 1.356842E-01 -4.318931E-02 0.0 699 G 0.0 0.0 -8.231826E-01 1.318069E-01 -5.348519E-02 0.0 700 G 0.0 0.0 -7.938926E-01 1.271170E-01 -6.345131E-02 0.0 701 G 0.0 0.0 -7.597079E-01 1.216434E-01 -7.302625E-02 0.0 702 G 0.0 0.0 -7.208394E-01 1.154198E-01 -8.215094E-02 0.0 703 G 0.0 0.0 -6.775267E-01 1.084847E-01 -9.076916E-02 0.0 704 G 0.0 0.0 -6.300367E-01 1.008807E-01 -9.882774E-02 0.0 705 G 0.0 0.0 -5.786625E-01 9.265467E-02 -1.062770E-01 0.0 706 G 0.0 0.0 -5.237205E-01 8.385743E-02 -1.130711E-01 0.0 707 G 0.0 0.0 -4.655496E-01 7.454319E-02 -1.191680E-01 0.0 708 G 0.0 0.0 -4.045085E-01 6.476936E-02 -1.245302E-01 0.0 709 G 0.0 0.0 -3.409734E-01 5.459621E-02 -1.291247E-01 0.0 710 G 0.0 0.0 -2.753361E-01 4.408646E-02 -1.329230E-01 0.0 711 G 0.0 0.0 -2.080013E-01 3.330490E-02 -1.359019E-01 0.0 712 G 0.0 0.0 -1.393841E-01 2.231800E-02 -1.380428E-01 0.0 713 G 0.0 0.0 -6.990756E-02 1.119351E-02 -1.393327E-01 0.0 714 G 0.0 0.0 0.0 0.0 -1.397635E-01 0.0 757 G 0.0 0.0 -5.877852E-01 2.542341E-01 0.0 0.0 758 G 0.0 0.0 -5.859733E-01 2.534504E-01 -7.233941E-03 0.0 759 G 0.0 0.0 -5.805486E-01 2.511040E-01 -1.442328E-02 0.0 760 G 0.0 0.0 -5.715447E-01 2.472095E-01 -2.152370E-02 0.0 761 G 0.0 0.0 -5.590169E-01 2.417910E-01 -2.849142E-02 0.0 762 G 0.0 0.0 -5.430427E-01 2.348817E-01 -3.528347E-02 0.0 763 G 0.0 0.0 -5.237205E-01 2.265242E-01 -4.185800E-02 0.0 764 G 0.0 0.0 -5.011693E-01 2.167702E-01 -4.817445E-02 0.0 765 G 0.0 0.0 -4.755282E-01 2.056797E-01 -5.419389E-02 0.0 766 G 0.0 0.0 -4.469554E-01 1.933211E-01 -5.987921E-02 0.0 767 G 0.0 0.0 -4.156269E-01 1.797706E-01 -6.519536E-02 0.0 768 G 0.0 0.0 -3.817360E-01 1.651118E-01 -7.010955E-02 0.0 769 G 0.0 0.0 -3.454915E-01 1.494350E-01 -7.459150E-02 0.0 770 G 0.0 0.0 -3.071170E-01 1.328369E-01 -7.861356E-02 0.0 771 G 0.0 0.0 -2.668489E-01 1.154198E-01 -8.215094E-02 0.0 772 G 0.0 0.0 -2.249357E-01 9.729116E-02 -8.518184E-02 0.0 773 G 0.0 0.0 -1.816356E-01 7.856265E-02 -8.768757E-02 0.0 774 G 0.0 0.0 -1.372157E-01 5.934976E-02 -8.965266E-02 0.0 775 G 0.0 0.0 -9.194987E-02 3.977097E-02 -9.106503E-02 0.0 776 G 0.0 0.0 -4.611710E-02 1.994698E-02 -9.191594E-02 0.0 777 G 0.0 0.0 0.0 0.0 -9.220016E-02 0.0 820 G 0.0 0.0 -1.564345E-01 3.103817E-01 0.0 0.0 821 G 0.0 0.0 -1.559522E-01 3.094248E-01 -1.925257E-03 0.0 822 G 0.0 0.0 -1.545085E-01 3.065603E-01 -3.838644E-03 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 -1.521122E-01 3.018058E-01 -5.728365E-03 0.0 824 G 0.0 0.0 -1.487780E-01 2.951905E-01 -7.582769E-03 0.0 825 G 0.0 0.0 -1.445266E-01 2.867553E-01 -9.390421E-03 0.0 826 G 0.0 0.0 -1.393841E-01 2.765521E-01 -1.114018E-02 0.0 827 G 0.0 0.0 -1.333823E-01 2.646439E-01 -1.282126E-02 0.0 828 G 0.0 0.0 -1.265581E-01 2.511040E-01 -1.442328E-02 0.0 829 G 0.0 0.0 -1.189537E-01 2.360161E-01 -1.593639E-02 0.0 830 G 0.0 0.0 -1.106159E-01 2.194730E-01 -1.735124E-02 0.0 831 G 0.0 0.0 -1.015960E-01 2.015767E-01 -1.865911E-02 0.0 832 G 0.0 0.0 -9.194987E-02 1.824377E-01 -1.985195E-02 0.0 833 G 0.0 0.0 -8.173678E-02 1.621740E-01 -2.092239E-02 0.0 834 G 0.0 0.0 -7.101975E-02 1.409103E-01 -2.186383E-02 0.0 835 G 0.0 0.0 -5.986487E-02 1.187779E-01 -2.267048E-02 0.0 836 G 0.0 0.0 -4.834091E-02 9.591320E-02 -2.333736E-02 0.0 837 G 0.0 0.0 -3.651890E-02 7.245716E-02 -2.386036E-02 0.0 838 G 0.0 0.0 -2.447174E-02 4.855439E-02 -2.423625E-02 0.0 839 G 0.0 0.0 -1.227371E-02 2.435226E-02 -2.446271E-02 0.0 840 G 0.0 0.0 0.0 0.0 -2.453835E-02 0.0 841 G 0.0 0.0 0.0 3.142506E-01 0.0 0.0 842 G 0.0 0.0 0.0 3.132819E-01 0.0 0.0 843 G 0.0 0.0 0.0 3.103817E-01 0.0 0.0 844 G 0.0 0.0 0.0 3.055678E-01 0.0 0.0 845 G 0.0 0.0 0.0 2.988701E-01 0.0 0.0 846 G 0.0 0.0 0.0 2.903297E-01 0.0 0.0 847 G 0.0 0.0 0.0 2.799993E-01 0.0 0.0 848 G 0.0 0.0 0.0 2.679427E-01 0.0 0.0 849 G 0.0 0.0 0.0 2.542341E-01 0.0 0.0 850 G 0.0 0.0 0.0 2.389580E-01 0.0 0.0 851 G 0.0 0.0 0.0 2.222087E-01 0.0 0.0 852 G 0.0 0.0 0.0 2.040894E-01 0.0 0.0 853 G 0.0 0.0 0.0 1.847119E-01 0.0 0.0 854 G 0.0 0.0 0.0 1.641955E-01 0.0 0.0 855 G 0.0 0.0 0.0 1.426668E-01 0.0 0.0 856 G 0.0 0.0 0.0 1.202585E-01 0.0 0.0 857 G 0.0 0.0 0.0 9.710877E-02 0.0 0.0 858 G 0.0 0.0 0.0 7.336034E-02 0.0 0.0 859 G 0.0 0.0 0.0 4.915962E-02 0.0 0.0 860 G 0.0 0.0 0.0 2.465582E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -3.434574E-01 0.0 0.0 2 G 0.0 0.0 0.0 -3.395072E-01 0.0 0.0 3 G 0.0 0.0 0.0 -3.278406E-01 0.0 0.0 4 G 0.0 0.0 0.0 -3.090001E-01 0.0 0.0 5 G 0.0 0.0 0.0 -2.838571E-01 0.0 0.0 6 G 0.0 0.0 0.0 -2.535649E-01 0.0 0.0 7 G 0.0 0.0 0.0 -2.194964E-01 0.0 0.0 8 G 0.0 0.0 0.0 -1.831699E-01 0.0 0.0 9 G 0.0 0.0 0.0 -1.461679E-01 0.0 0.0 10 G 0.0 0.0 0.0 -1.100517E-01 0.0 0.0 11 G 0.0 0.0 0.0 -7.627862E-02 0.0 0.0 12 G 0.0 0.0 0.0 -4.612441E-02 0.0 0.0 13 G 0.0 0.0 0.0 -2.061661E-02 0.0 0.0 14 G 0.0 0.0 0.0 -4.816158E-04 0.0 0.0 15 G 0.0 0.0 0.0 1.389122E-02 0.0 0.0 16 G 0.0 0.0 0.0 2.246664E-02 0.0 0.0 17 G 0.0 0.0 0.0 2.556080E-02 0.0 0.0 18 G 0.0 0.0 0.0 2.381886E-02 0.0 0.0 19 G 0.0 0.0 0.0 1.817434E-02 0.0 0.0 20 G 0.0 0.0 0.0 9.792359E-03 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 -4.862939E-01 -2.861346E-01 0.0 0.0 65 G 0.0 0.0 -4.804832E-01 -2.824410E-01 -2.316003E-02 0.0 66 G 0.0 0.0 -4.633254E-01 -2.715382E-01 -4.522758E-02 0.0 67 G 0.0 0.0 -4.356277E-01 -2.539510E-01 -6.516936E-02 0.0 68 G 0.0 0.0 -3.986872E-01 -2.305222E-01 -8.206727E-02 0.0 69 G 0.0 0.0 -3.542200E-01 -2.023670E-01 -9.516796E-02 0.0 70 G 0.0 0.0 -3.042690E-01 -1.708121E-01 -1.039234E-01 0.0 71 G 0.0 0.0 -2.510932E-01 -1.373246E-01 -1.080200E-01 0.0 72 G 0.0 0.0 -1.970459E-01 -1.034315E-01 -1.073950E-01 0.0 73 G 0.0 0.0 -1.444484E-01 -7.063846E-02 -1.022387E-01 0.0 74 G 0.0 0.0 -9.546588E-02 -4.034798E-02 -9.298344E-02 0.0 75 G 0.0 0.0 -5.199227E-02 -1.378493E-02 -8.027823E-02 0.0 76 G 0.0 0.0 -1.555055E-02 8.068576E-03 -6.495246E-02 0.0 77 G 0.0 0.0 1.278596E-02 2.452438E-02 -4.796908E-02 0.0 78 G 0.0 0.0 3.244710E-02 3.522314E-02 -3.037078E-02 0.0 79 G 0.0 0.0 4.339121E-02 4.015079E-02 -1.322164E-02 0.0 80 G 0.0 0.0 4.610107E-02 3.963577E-02 2.452186E-03 0.0 81 G 0.0 0.0 4.155045E-02 3.432714E-02 1.571967E-02 0.0 82 G 0.0 0.0 3.114337E-02 2.515491E-02 2.579675E-02 0.0 83 G 0.0 0.0 1.662946E-02 1.327473E-02 3.209001E-02 0.0 84 G 0.0 0.0 0.0 0.0 3.422963E-02 0.0 127 G 0.0 0.0 -8.140212E-01 -1.402550E-01 0.0 0.0 128 G 0.0 0.0 -8.031271E-01 -1.372463E-01 -4.342261E-02 0.0 129 G 0.0 0.0 -7.709749E-01 -1.283811E-01 -8.473059E-02 0.0 130 G 0.0 0.0 -7.191274E-01 -1.141334E-01 -1.219244E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -6.500945E-01 -9.526397E-02 -1.532283E-01 0.0 132 G 0.0 0.0 -5.671965E-01 -7.277851E-02 -1.771870E-01 0.0 133 G 0.0 0.0 -4.743841E-01 -4.787251E-02 -1.927438E-01 0.0 134 G 0.0 0.0 -3.760235E-01 -2.186531E-02 -1.992982E-01 0.0 135 G 0.0 0.0 -2.766604E-01 3.872430E-03 -1.967366E-01 0.0 136 G 0.0 0.0 -1.807737E-01 2.799403E-02 -1.854377E-01 0.0 137 G 0.0 0.0 -9.253468E-02 4.925080E-02 -1.662498E-01 0.0 138 G 0.0 0.0 -1.558313E-02 6.656043E-02 -1.404426E-01 0.0 139 G 0.0 0.0 4.716593E-02 7.906634E-02 -1.096357E-01 0.0 140 G 0.0 0.0 9.367521E-02 8.618432E-02 -7.570810E-02 0.0 141 G 0.0 0.0 1.228889E-01 8.763418E-02 -4.069296E-02 0.0 142 G 0.0 0.0 1.347817E-01 8.345452E-02 -6.664583E-03 0.0 143 G 0.0 0.0 1.303502E-01 7.399991E-02 2.437725E-02 0.0 144 G 0.0 0.0 1.115481E-01 5.992049E-02 5.061849E-02 0.0 145 G 0.0 0.0 8.116721E-02 4.212525E-02 7.053162E-02 0.0 146 G 0.0 0.0 4.267256E-02 2.173105E-02 8.296064E-02 0.0 147 G 0.0 0.0 0.0 0.0 8.718519E-02 0.0 190 G 0.0 0.0 -8.964841E-01 2.834066E-02 0.0 0.0 191 G 0.0 0.0 -8.817258E-01 3.045199E-02 -5.882554E-02 0.0 192 G 0.0 0.0 -8.382044E-01 3.665147E-02 -1.146463E-01 0.0 193 G 0.0 0.0 -7.681403E-01 4.654309E-02 -1.646221E-01 0.0 194 G 0.0 0.0 -6.750984E-01 5.949156E-02 -2.062327E-01 0.0 195 G 0.0 0.0 -5.637936E-01 7.465797E-02 -2.374154E-01 0.0 196 G 0.0 0.0 -4.398324E-01 9.104690E-02 -2.566782E-01 0.0 197 G 0.0 0.0 -3.094066E-01 1.075624E-01 -2.631800E-01 0.0 198 G 0.0 0.0 -1.789555E-01 1.230697E-01 -2.567764E-01 0.0 199 G 0.0 0.0 -5.481418E-02 1.364594E-01 -2.380258E-01 0.0 200 G 0.0 0.0 5.713046E-02 1.467101E-01 -2.081577E-01 0.0 201 G 0.0 0.0 1.517596E-01 1.529469E-01 -1.690034E-01 0.0 202 G 0.0 0.0 2.249986E-01 1.544914E-01 -1.228935E-01 0.0 203 G 0.0 0.0 2.740348E-01 1.509011E-01 -7.252867E-02 0.0 204 G 0.0 0.0 2.974658E-01 1.419967E-01 -2.082865E-02 0.0 205 G 0.0 0.0 2.953685E-01 1.278736E-01 2.922929E-02 0.0 206 G 0.0 0.0 2.692866E-01 1.088994E-01 7.477590E-02 0.0 207 G 0.0 0.0 2.221365E-01 8.569624E-02 1.132091E-01 0.0 208 G 0.0 0.0 1.580367E-01 5.910886E-02 1.423382E-01 0.0 209 G 0.0 0.0 8.207148E-02 3.016068E-02 1.605055E-01 0.0 210 G 0.0 0.0 0.0 0.0 1.666782E-01 0.0 253 G 0.0 0.0 -7.565104E-01 1.453848E-01 0.0 0.0 254 G 0.0 0.0 -7.392364E-01 1.466362E-01 -6.885403E-02 0.0 255 G 0.0 0.0 -6.883465E-01 1.502888E-01 -1.339923E-01 0.0 256 G 0.0 0.0 -6.065859E-01 1.560434E-01 -1.919039E-01 0.0 257 G 0.0 0.0 -4.983617E-01 1.634207E-01 -2.394760E-01 0.0 258 G 0.0 0.0 -3.694996E-01 1.717884E-01 -2.741657E-01 0.0 259 G 0.0 0.0 -2.269233E-01 1.803978E-01 -2.941398E-01 0.0 260 G 0.0 0.0 -7.827308E-02 1.884266E-01 -2.983755E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 6.851505E-02 1.950272E-01 -2.867164E-01 0.0 262 G 0.0 0.0 2.056461E-01 1.993748E-01 -2.598812E-01 0.0 263 G 0.0 0.0 3.258950E-01 2.007173E-01 -2.194227E-01 0.0 264 G 0.0 0.0 4.230036E-01 1.984187E-01 -1.676422E-01 0.0 265 G 0.0 0.0 4.920239E-01 1.919985E-01 -1.074617E-01 0.0 266 G 0.0 0.0 5.295895E-01 1.811619E-01 -4.226199E-02 0.0 267 G 0.0 0.0 5.340982E-01 1.658196E-01 2.430447E-02 0.0 268 G 0.0 0.0 5.057980E-01 1.460977E-01 8.851557E-02 0.0 269 G 0.0 0.0 4.467703E-01 1.223347E-01 1.467857E-01 0.0 270 G 0.0 0.0 3.608114E-01 9.506755E-02 1.958639E-01 0.0 271 G 0.0 0.0 2.532200E-01 6.500667E-02 2.330139E-01 0.0 272 G 0.0 0.0 1.305004E-01 3.300182E-02 2.561654E-01 0.0 273 G 0.0 0.0 0.0 0.0 2.640286E-01 0.0 316 G 0.0 0.0 -5.120698E-01 1.634112E-01 0.0 0.0 317 G 0.0 0.0 -4.934279E-01 1.640139E-01 -7.430793E-02 0.0 318 G 0.0 0.0 -4.385600E-01 1.657574E-01 -1.443992E-01 0.0 319 G 0.0 0.0 -3.505810E-01 1.684508E-01 -2.062909E-01 0.0 320 G 0.0 0.0 -2.344904E-01 1.717884E-01 -2.564544E-01 0.0 321 G 0.0 0.0 -9.689493E-02 1.753677E-01 -2.920115E-01 0.0 322 G 0.0 0.0 5.435773E-02 1.787126E-01 -3.108936E-01 0.0 323 G 0.0 0.0 2.106139E-01 1.813020E-01 -3.119569E-01 0.0 324 G 0.0 0.0 3.628939E-01 1.825999E-01 -2.950462E-01 0.0 325 G 0.0 0.0 5.023909E-01 1.820882E-01 -2.610044E-01 0.0 326 G 0.0 0.0 6.209592E-01 1.792975E-01 -2.116256E-01 0.0 327 G 0.0 0.0 7.115679E-01 1.738365E-01 -1.495575E-01 0.0 328 G 0.0 0.0 7.686917E-01 1.654169E-01 -7.815501E-02 0.0 329 G 0.0 0.0 7.886197E-01 1.538726E-01 -1.295412E-03 0.0 330 G 0.0 0.0 7.696641E-01 1.391735E-01 7.683538E-02 0.0 331 G 0.0 0.0 7.122566E-01 1.214305E-01 1.519738E-01 0.0 332 G 0.0 0.0 6.189288E-01 1.008943E-01 2.200140E-01 0.0 333 G 0.0 0.0 4.941760E-01 7.794566E-02 2.772343E-01 0.0 334 G 0.0 0.0 3.442129E-01 5.307919E-02 3.205026E-01 0.0 335 G 0.0 0.0 1.766343E-01 2.688077E-02 3.474495E-01 0.0 336 G 0.0 0.0 0.0 0.0 3.565989E-01 0.0 379 G 0.0 0.0 -3.169321E-01 8.402348E-02 0.0 0.0 380 G 0.0 0.0 -2.977132E-01 8.421680E-02 -7.660875E-02 0.0 381 G 0.0 0.0 -2.411831E-01 8.477053E-02 -1.487271E-01 0.0 382 G 0.0 0.0 -1.506587E-01 8.560769E-02 -2.121143E-01 0.0 383 G 0.0 0.0 -3.146302E-02 8.660495E-02 -2.630153E-01 0.0 384 G 0.0 0.0 1.093713E-01 8.760002E-02 -2.983698E-01 0.0 385 G 0.0 0.0 2.634930E-01 8.840118E-02 -3.159827E-01 0.0 386 G 0.0 0.0 4.216975E-01 8.879884E-02 -3.146472E-01 0.0 387 G 0.0 0.0 5.744396E-01 8.857805E-02 -2.942126E-01 0.0 388 G 0.0 0.0 7.123661E-01 8.753160E-02 -2.555944E-01 0.0 389 G 0.0 0.0 8.268377E-01 8.547280E-02 -2.007245E-01 0.0 390 G 0.0 0.0 9.104139E-01 8.224735E-02 -1.324462E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 9.572694E-01 7.774348E-02 -5.435796E-02 0.0 392 G 0.0 0.0 9.635249E-01 7.189991E-02 2.938425E-02 0.0 393 G 0.0 0.0 9.274687E-01 6.471119E-02 1.142958E-01 0.0 394 G 0.0 0.0 8.496597E-01 5.622998E-02 1.958100E-01 0.0 395 G 0.0 0.0 7.329057E-01 4.656632E-02 2.695302E-01 0.0 396 G 0.0 0.0 5.821171E-01 3.588367E-02 3.314716E-01 0.0 397 G 0.0 0.0 4.040452E-01 2.439226E-02 3.782811E-01 0.0 398 G 0.0 0.0 2.069189E-01 1.233976E-02 4.074221E-01 0.0 399 G 0.0 0.0 0.0 0.0 4.173147E-01 0.0 442 G 0.0 0.0 -2.849572E-01 -4.343882E-02 0.0 0.0 443 G 0.0 0.0 -2.656664E-01 -4.353178E-02 -7.689546E-02 0.0 444 G 0.0 0.0 -2.089305E-01 -4.379753E-02 -1.492612E-01 0.0 445 G 0.0 0.0 -1.180955E-01 -4.419754E-02 -2.128195E-01 0.0 446 G 0.0 0.0 1.469372E-03 -4.467006E-02 -2.637827E-01 0.0 447 G 0.0 0.0 1.426702E-01 -4.513387E-02 -2.990646E-01 0.0 448 G 0.0 0.0 2.970836E-01 -4.549306E-02 -3.164521E-01 0.0 449 G 0.0 0.0 4.554260E-01 -4.564273E-02 -3.147295E-01 0.0 450 G 0.0 0.0 6.080713E-01 -4.547542E-02 -2.937469E-01 0.0 451 G 0.0 0.0 7.455882E-01 -4.488751E-02 -2.544305E-01 0.0 452 G 0.0 0.0 8.592675E-01 -4.378579E-02 -1.987325E-01 0.0 453 G 0.0 0.0 9.416101E-01 -4.209329E-02 -1.295247E-01 0.0 454 G 0.0 0.0 9.867492E-01 -3.975440E-02 -5.044097E-02 0.0 455 G 0.0 0.0 9.907823E-01 -3.673889E-02 3.432233E-02 0.0 456 G 0.0 0.0 9.519957E-01 -3.304455E-02 1.202371E-01 0.0 457 G 0.0 0.0 8.709685E-01 -2.869834E-02 2.026928E-01 0.0 458 G 0.0 0.0 7.505499E-01 -2.375600E-02 2.772505E-01 0.0 459 G 0.0 0.0 5.957121E-01 -1.830013E-02 3.398872E-01 0.0 460 G 0.0 0.0 4.132859E-01 -1.243677E-02 3.872178E-01 0.0 461 G 0.0 0.0 2.115934E-01 -6.290736E-03 4.166817E-01 0.0 462 G 0.0 0.0 0.0 0.0 4.266835E-01 0.0 505 G 0.0 0.0 -4.344109E-01 -1.461679E-01 0.0 0.0 506 G 0.0 0.0 -4.155064E-01 -1.466108E-01 -7.535486E-02 0.0 507 G 0.0 0.0 -3.598802E-01 -1.478875E-01 -1.463761E-01 0.0 508 G 0.0 0.0 -2.707337E-01 -1.498447E-01 -2.089704E-01 0.0 509 G 0.0 0.0 -1.532043E-01 -1.522368E-01 -2.595126E-01 0.0 510 G 0.0 0.0 -1.408118E-02 -1.547408E-01 -2.950462E-01 0.0 511 G 0.0 0.0 1.385727E-01 -1.569747E-01 -3.134486E-01 0.0 512 G 0.0 0.0 2.958679E-01 -1.585203E-01 -3.135487E-01 0.0 513 G 0.0 0.0 4.485826E-01 -1.589483E-01 -2.951930E-01 0.0 514 G 0.0 0.0 5.876757E-01 -1.578441E-01 -2.592546E-01 0.0 515 G 0.0 0.0 7.047899E-01 -1.548331E-01 -2.075863E-01 0.0 516 G 0.0 0.0 7.927177E-01 -1.496039E-01 -1.429187E-01 0.0 517 G 0.0 0.0 8.458043E-01 -1.419286E-01 -6.871017E-02 0.0 518 G 0.0 0.0 8.602650E-01 -1.316786E-01 1.104358E-02 0.0 519 G 0.0 0.0 8.343996E-01 -1.188354E-01 9.202961E-02 0.0 520 G 0.0 0.0 7.686917E-01 -1.034944E-01 1.698555E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 6.657881E-01 -8.586435E-02 2.402917E-01 0.0 522 G 0.0 0.0 5.303583E-01 -6.625918E-02 2.995045E-01 0.0 523 G 0.0 0.0 3.688432E-01 -4.508492E-02 3.442680E-01 0.0 524 G 0.0 0.0 1.891051E-01 -2.282140E-02 3.721415E-01 0.0 525 G 0.0 0.0 0.0 0.0 3.816048E-01 0.0 568 G 0.0 0.0 -6.790490E-01 -1.634243E-01 0.0 0.0 569 G 0.0 0.0 -6.612080E-01 -1.644313E-01 -7.111418E-02 0.0 570 G 0.0 0.0 -6.086655E-01 -1.673626E-01 -1.383212E-01 0.0 571 G 0.0 0.0 -5.243078E-01 -1.719543E-01 -1.979297E-01 0.0 572 G 0.0 0.0 -4.127683E-01 -1.777836E-01 -2.466679E-01 0.0 573 G 0.0 0.0 -2.801716E-01 -1.842927E-01 -2.818644E-01 0.0 574 G 0.0 0.0 -1.337948E-01 -1.908220E-01 -3.015953E-01 0.0 575 G 0.0 0.0 1.833391E-02 -1.966474E-01 -3.047911E-01 0.0 576 G 0.0 0.0 1.678784E-01 -2.010234E-01 -2.912947E-01 0.0 577 G 0.0 0.0 3.066554E-01 -2.032263E-01 -2.618709E-01 0.0 578 G 0.0 0.0 4.270854E-01 -2.025975E-01 -2.181634E-01 0.0 579 G 0.0 0.0 5.226118E-01 -1.985830E-01 -1.626041E-01 0.0 580 G 0.0 0.0 5.880620E-01 -1.907678E-01 -9.827862E-02 0.0 581 G 0.0 0.0 6.199328E-01 -1.789028E-01 -2.875563E-02 0.0 582 G 0.0 0.0 6.165833E-01 -1.629225E-01 4.211045E-02 0.0 583 G 0.0 0.0 5.783248E-01 -1.429534E-01 1.103925E-01 0.0 584 G 0.0 0.0 5.074030E-01 -1.193113E-01 1.723077E-01 0.0 585 G 0.0 0.0 4.078725E-01 -9.248912E-02 2.244269E-01 0.0 586 G 0.0 0.0 2.853729E-01 -6.313435E-02 2.638637E-01 0.0 587 G 0.0 0.0 1.468152E-01 -3.201857E-02 2.884344E-01 0.0 588 G 0.0 0.0 0.0 0.0 2.967786E-01 0.0 631 G 0.0 0.0 -8.702528E-01 -7.627862E-02 0.0 0.0 632 G 0.0 0.0 -8.545104E-01 -7.808807E-02 -6.274831E-02 0.0 633 G 0.0 0.0 -8.081018E-01 -8.339225E-02 -1.222331E-01 0.0 634 G 0.0 0.0 -7.334384E-01 -9.182577E-02 -1.753699E-01 0.0 635 G 0.0 0.0 -6.343916E-01 -1.028026E-01 -2.194227E-01 0.0 636 G 0.0 0.0 -5.160810E-01 -1.155491E-01 -2.521535E-01 0.0 637 G 0.0 0.0 -3.845930E-01 -1.291481E-01 -2.719451E-01 0.0 638 G 0.0 0.0 -2.466479E-01 -1.425906E-01 -2.778892E-01 0.0 639 G 0.0 0.0 -1.092314E-01 -1.548331E-01 -2.698354E-01 0.0 640 G 0.0 0.0 2.078713E-02 -1.648574E-01 -2.483985E-01 0.0 641 G 0.0 0.0 1.370301E-01 -1.717287E-01 -2.149234E-01 0.0 642 G 0.0 0.0 2.339590E-01 -1.746498E-01 -1.714099E-01 0.0 643 G 0.0 0.0 3.071749E-01 -1.730075E-01 -1.204011E-01 0.0 644 G 0.0 0.0 3.536558E-01 -1.664095E-01 -6.484207E-02 0.0 645 G 0.0 0.0 3.719174E-01 -1.547090E-01 -7.916442E-03 0.0 646 G 0.0 0.0 3.620881E-01 -1.380158E-01 4.713031E-02 0.0 647 G 0.0 0.0 3.258950E-01 -1.166938E-01 9.717084E-02 0.0 648 G 0.0 0.0 2.665617E-01 -9.134416E-02 1.393693E-01 0.0 649 G 0.0 0.0 1.886216E-01 -6.277564E-02 1.713383E-01 0.0 650 G 0.0 0.0 9.766058E-02 -3.196365E-02 1.912714E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 1.980432E-01 0.0 694 G 0.0 0.0 -8.699807E-01 8.272828E-02 0.0 0.0 695 G 0.0 0.0 -8.576487E-01 8.000787E-02 -4.915369E-02 0.0 696 G 0.0 0.0 -8.212619E-01 7.199964E-02 -9.587871E-02 0.0 697 G 0.0 0.0 -7.626151E-01 5.915415E-02 -1.378788E-01 0.0 698 G 0.0 0.0 -6.845903E-01 4.219455E-02 -1.731153E-01 0.0 699 G 0.0 0.0 -5.910004E-01 2.207658E-02 -1.999181E-01 0.0 700 G 0.0 0.0 -4.863808E-01 -6.443768E-05 -2.170759E-01 0.0 701 G 0.0 0.0 -3.757433E-01 -2.297640E-02 -2.239020E-01 0.0 702 G 0.0 0.0 -2.643036E-01 -4.535984E-02 -2.202703E-01 0.0 703 G 0.0 0.0 -1.571984E-01 -6.593993E-02 -2.066208E-01 0.0 704 G 0.0 0.0 -5.920846E-02 -8.353714E-02 -1.839337E-01 0.0 705 G 0.0 0.0 2.549912E-02 -9.713273E-02 -1.536741E-01 0.0 706 G 0.0 0.0 9.359326E-02 -1.059253E-01 -1.177094E-01 0.0 707 G 0.0 0.0 1.427547E-01 -1.093753E-01 -7.820532E-02 0.0 708 G 0.0 0.0 1.717951E-01 -1.072355E-01 -3.750463E-02 0.0 709 G 0.0 0.0 1.807136E-01 -9.956436E-02 2.002886E-03 0.0 710 G 0.0 0.0 1.706868E-01 -8.672398E-02 3.801354E-02 0.0 711 G 0.0 0.0 1.439933E-01 -6.935982E-02 6.843778E-02 0.0 712 G 0.0 0.0 1.038775E-01 -4.836575E-02 9.151625E-02 0.0 713 G 0.0 0.0 5.435912E-02 -2.483497E-02 1.059174E-01 0.0 714 G 0.0 0.0 0.0 0.0 1.108118E-01 0.0 757 G 0.0 0.0 -6.194803E-01 2.446695E-01 0.0 0.0 758 G 0.0 0.0 -6.118633E-01 2.411653E-01 -3.035975E-02 0.0 759 G 0.0 0.0 -5.893747E-01 2.308263E-01 -5.927518E-02 0.0 760 G 0.0 0.0 -5.530820E-01 2.141637E-01 -8.538034E-02 0.0 761 G 0.0 0.0 -5.046995E-01 1.919985E-01 -1.074617E-01 0.0 762 G 0.0 0.0 -4.464960E-01 1.654169E-01 -1.245239E-01 0.0 763 G 0.0 0.0 -3.811716E-01 1.357106E-01 -1.358431E-01 0.0 764 G 0.0 0.0 -3.117114E-01 1.043073E-01 -1.410059E-01 0.0 765 G 0.0 0.0 -2.412251E-01 7.269240E-02 -1.399307E-01 0.0 766 G 0.0 0.0 -1.727788E-01 4.232891E-02 -1.328713E-01 0.0 767 G 0.0 0.0 -1.092314E-01 1.457814E-02 -1.204011E-01 0.0 768 G 0.0 0.0 -5.308194E-02 -9.373473E-03 -1.033807E-01 0.0 769 G 0.0 0.0 -6.337782E-03 -2.857785E-02 -8.290914E-02 0.0 770 G 0.0 0.0 2.958948E-02 -4.237530E-02 -6.026232E-02 0.0 771 G 0.0 0.0 5.395487E-02 -5.042852E-02 -3.682146E-02 0.0 772 G 0.0 0.0 6.671349E-02 -5.273864E-02 -1.399601E-02 0.0 773 G 0.0 0.0 6.851505E-02 -4.964234E-02 6.854926E-03 0.0 774 G 0.0 0.0 6.065957E-02 -4.179045E-02 2.449828E-02 0.0 775 G 0.0 0.0 4.501688E-02 -3.010900E-02 3.789568E-02 0.0 776 G 0.0 0.0 2.391451E-02 -1.574500E-02 4.626122E-02 0.0 777 G 0.0 0.0 0.0 0.0 4.910517E-02 0.0 820 G 0.0 0.0 -1.706963E-01 3.368591E-01 0.0 0.0 821 G 0.0 0.0 -1.687210E-01 3.329381E-01 -7.873038E-03 0.0 822 G 0.0 0.0 -1.628874E-01 3.213586E-01 -1.537835E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 -1.534673E-01 3.026611E-01 -2.216811E-02 0.0 824 G 0.0 0.0 -1.408972E-01 2.777137E-01 -2.793322E-02 0.0 825 G 0.0 0.0 -1.257549E-01 2.476654E-01 -3.241995E-02 0.0 826 G 0.0 0.0 -1.087282E-01 2.138840E-01 -3.544359E-02 0.0 827 G 0.0 0.0 -9.057786E-02 1.778821E-01 -3.689826E-02 0.0 828 G 0.0 0.0 -7.209643E-02 1.412357E-01 -3.676236E-02 0.0 829 G 0.0 0.0 -5.406607E-02 1.055002E-01 -3.509944E-02 0.0 830 G 0.0 0.0 -3.721666E-02 7.212646E-02 -3.205432E-02 0.0 831 G 0.0 0.0 -2.218712E-02 4.238460E-02 -2.784476E-02 0.0 832 G 0.0 0.0 -9.491874E-03 1.729701E-02 -2.274912E-02 0.0 833 G 0.0 0.0 5.055729E-04 -2.414256E-03 -1.709071E-02 0.0 834 G 0.0 0.0 7.610672E-03 -1.636328E-02 -1.121965E-02 0.0 835 G 0.0 0.0 1.180637E-02 -2.451727E-02 -5.493308E-03 0.0 836 G 0.0 0.0 1.325171E-02 -2.719381E-02 -2.563375E-04 0.0 837 G 0.0 0.0 1.227069E-02 -2.503861E-02 4.178542E-03 0.0 838 G 0.0 0.0 9.331815E-03 -1.898488E-02 7.547966E-03 0.0 839 G 0.0 0.0 5.019663E-03 -1.019680E-02 9.652591E-03 0.0 840 G 0.0 0.0 0.0 0.0 1.036820E-02 0.0 841 G 0.0 0.0 0.0 3.434574E-01 0.0 0.0 842 G 0.0 0.0 0.0 3.395072E-01 0.0 0.0 843 G 0.0 0.0 0.0 3.278406E-01 0.0 0.0 844 G 0.0 0.0 0.0 3.090001E-01 0.0 0.0 845 G 0.0 0.0 0.0 2.838571E-01 0.0 0.0 846 G 0.0 0.0 0.0 2.535649E-01 0.0 0.0 847 G 0.0 0.0 0.0 2.194964E-01 0.0 0.0 848 G 0.0 0.0 0.0 1.831699E-01 0.0 0.0 849 G 0.0 0.0 0.0 1.461679E-01 0.0 0.0 850 G 0.0 0.0 0.0 1.100517E-01 0.0 0.0 851 G 0.0 0.0 0.0 7.627862E-02 0.0 0.0 852 G 0.0 0.0 0.0 4.612441E-02 0.0 0.0 853 G 0.0 0.0 0.0 2.061661E-02 0.0 0.0 854 G 0.0 0.0 0.0 4.816157E-04 0.0 0.0 855 G 0.0 0.0 0.0 -1.389122E-02 0.0 0.0 856 G 0.0 0.0 0.0 -2.246664E-02 0.0 0.0 857 G 0.0 0.0 0.0 -2.556080E-02 0.0 0.0 858 G 0.0 0.0 0.0 -2.381886E-02 0.0 0.0 859 G 0.0 0.0 0.0 -1.817434E-02 0.0 0.0 860 G 0.0 0.0 0.0 -9.792359E-03 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -3.132744E-01 0.0 0.0 2 G 0.0 0.0 0.0 -3.046184E-01 0.0 0.0 3 G 0.0 0.0 0.0 -2.791292E-01 0.0 0.0 4 G 0.0 0.0 0.0 -2.382156E-01 0.0 0.0 5 G 0.0 0.0 0.0 -1.841379E-01 0.0 0.0 6 G 0.0 0.0 0.0 -1.198847E-01 0.0 0.0 7 G 0.0 0.0 0.0 -4.900643E-02 0.0 0.0 8 G 0.0 0.0 0.0 2.457946E-02 0.0 0.0 9 G 0.0 0.0 0.0 9.680727E-02 0.0 0.0 10 G 0.0 0.0 0.0 1.636854E-01 0.0 0.0 11 G 0.0 0.0 0.0 2.215184E-01 0.0 0.0 12 G 0.0 0.0 0.0 2.671102E-01 0.0 0.0 13 G 0.0 0.0 0.0 2.979416E-01 0.0 0.0 14 G 0.0 0.0 0.0 3.123085E-01 0.0 0.0 15 G 0.0 0.0 0.0 3.094172E-01 0.0 0.0 16 G 0.0 0.0 0.0 2.894274E-01 0.0 0.0 17 G 0.0 0.0 0.0 2.534441E-01 0.0 0.0 18 G 0.0 0.0 0.0 2.034553E-01 0.0 0.0 19 G 0.0 0.0 0.0 1.422233E-01 0.0 0.0 20 G 0.0 0.0 0.0 7.313200E-02 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 -4.539906E-01 -2.791293E-01 0.0 0.0 65 G 0.0 0.0 -4.414468E-01 -2.714170E-01 -4.994155E-02 0.0 66 G 0.0 0.0 -4.045085E-01 -2.487061E-01 -9.712297E-02 0.0 67 G 0.0 0.0 -3.452171E-01 -2.122517E-01 -1.389372E-01 0.0 68 G 0.0 0.0 -2.668491E-01 -1.640682E-01 -1.730739E-01 0.0 69 G 0.0 0.0 -1.737349E-01 -1.068183E-01 -1.976470E-01 0.0 70 G 0.0 0.0 -7.101991E-02 -4.366565E-02 -2.112981E-01 0.0 71 G 0.0 0.0 3.561966E-02 2.190002E-02 -2.132723E-01 0.0 72 G 0.0 0.0 1.402909E-01 8.625560E-02 -2.034611E-01 0.0 73 G 0.0 0.0 2.372095E-01 1.458447E-01 -1.824066E-01 0.0 74 G 0.0 0.0 3.210197E-01 1.973742E-01 -1.512723E-01 0.0 75 G 0.0 0.0 3.870904E-01 2.379966E-01 -1.117789E-01 0.0 76 G 0.0 0.0 4.317705E-01 2.654674E-01 -6.610855E-02 0.0 77 G 0.0 0.0 4.525909E-01 2.782687E-01 -1.678492E-02 0.0 78 G 0.0 0.0 4.484011E-01 2.756928E-01 3.346626E-02 0.0 79 G 0.0 0.0 4.194325E-01 2.578820E-01 8.186805E-02 0.0 80 G 0.0 0.0 3.672861E-01 2.258205E-01 1.257457E-01 0.0 81 G 0.0 0.0 2.948434E-01 1.812801E-01 1.626746E-01 0.0 82 G 0.0 0.0 2.061076E-01 1.267222E-01 1.906145E-01 0.0 83 G 0.0 0.0 1.059821E-01 6.516156E-02 2.080209E-01 0.0 84 G 0.0 0.0 0.0 0.0 2.139317E-01 0.0 127 G 0.0 0.0 -8.090169E-01 -1.841380E-01 0.0 0.0 128 G 0.0 0.0 -7.866637E-01 -1.790503E-01 -8.899628E-02 0.0 129 G 0.0 0.0 -7.208393E-01 -1.640683E-01 -1.730741E-01 0.0 130 G 0.0 0.0 -6.151813E-01 -1.400199E-01 -2.475882E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -4.755282E-01 -1.082339E-01 -3.084206E-01 0.0 132 G 0.0 0.0 -3.095974E-01 -7.046665E-02 -3.522096E-01 0.0 133 G 0.0 0.0 -1.265581E-01 -2.880548E-02 -3.765354E-01 0.0 134 G 0.0 0.0 6.347483E-02 1.444741E-02 -3.800538E-01 0.0 135 G 0.0 0.0 2.500002E-01 5.690186E-02 -3.625703E-01 0.0 136 G 0.0 0.0 4.227104E-01 9.621188E-02 -3.250512E-01 0.0 137 G 0.0 0.0 5.720617E-01 1.302053E-01 -2.695693E-01 0.0 138 G 0.0 0.0 6.898004E-01 1.570036E-01 -1.991911E-01 0.0 139 G 0.0 0.0 7.694208E-01 1.751259E-01 -1.178059E-01 0.0 140 G 0.0 0.0 8.065228E-01 1.835705E-01 -2.991080E-02 0.0 141 G 0.0 0.0 7.990564E-01 1.818710E-01 5.963719E-02 0.0 142 G 0.0 0.0 7.474341E-01 1.701214E-01 1.458897E-01 0.0 143 G 0.0 0.0 6.545085E-01 1.489711E-01 2.240806E-01 0.0 144 G 0.0 0.0 5.254145E-01 1.195884E-01 2.898888E-01 0.0 145 G 0.0 0.0 3.672860E-01 8.359702E-02 3.396775E-01 0.0 146 G 0.0 0.0 1.888612E-01 4.298619E-02 3.706955E-01 0.0 147 G 0.0 0.0 0.0 0.0 3.812287E-01 0.0 190 G 0.0 0.0 -9.876884E-01 -4.900643E-02 0.0 0.0 191 G 0.0 0.0 -9.603983E-01 -4.765258E-02 -1.086513E-01 0.0 192 G 0.0 0.0 -8.800366E-01 -4.366535E-02 -2.112977E-01 0.0 193 G 0.0 0.0 -7.510440E-01 -3.726498E-02 -3.022679E-01 0.0 194 G 0.0 0.0 -5.805486E-01 -2.880533E-02 -3.765351E-01 0.0 195 G 0.0 0.0 -3.779720E-01 -1.875394E-02 -4.299951E-01 0.0 196 G 0.0 0.0 -1.545085E-01 -7.666287E-03 -4.596933E-01 0.0 197 G 0.0 0.0 7.749323E-02 3.845133E-03 -4.639887E-01 0.0 198 G 0.0 0.0 3.052126E-01 1.514415E-02 -4.426437E-01 0.0 199 G 0.0 0.0 5.160658E-01 2.560626E-02 -3.968384E-01 0.0 200 G 0.0 0.0 6.984011E-01 3.465313E-02 -3.291037E-01 0.0 201 G 0.0 0.0 8.421426E-01 4.178518E-02 -2.431828E-01 0.0 202 G 0.0 0.0 9.393472E-01 4.660822E-02 -1.438236E-01 0.0 203 G 0.0 0.0 9.846434E-01 4.885574E-02 -3.651665E-02 0.0 204 G 0.0 0.0 9.755279E-01 4.840349E-02 7.280821E-02 0.0 205 G 0.0 0.0 9.125049E-01 4.527638E-02 1.781096E-01 0.0 206 G 0.0 0.0 7.990566E-01 3.964726E-02 2.735686E-01 0.0 207 G 0.0 0.0 6.414523E-01 3.182727E-02 3.539105E-01 0.0 208 G 0.0 0.0 4.484012E-01 2.224856E-02 4.146951E-01 0.0 209 G 0.0 0.0 2.305713E-01 1.144040E-02 4.525637E-01 0.0 210 G 0.0 0.0 0.0 0.0 4.654234E-01 0.0 253 G 0.0 0.0 -9.510565E-01 9.680697E-02 0.0 0.0 254 G 0.0 0.0 -9.247788E-01 9.413227E-02 -1.046213E-01 0.0 255 G 0.0 0.0 -8.473975E-01 8.625571E-02 -2.034610E-01 0.0 256 G 0.0 0.0 -7.231891E-01 7.361265E-02 -2.910575E-01 0.0 257 G 0.0 0.0 -5.590170E-01 5.690177E-02 -3.625702E-01 0.0 258 G 0.0 0.0 -3.639536E-01 3.704648E-02 -4.140472E-01 0.0 259 G 0.0 0.0 -1.487780E-01 1.514399E-02 -4.426438E-01 0.0 260 G 0.0 0.0 7.461906E-02 -7.595419E-03 -4.467799E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 2.938927E-01 -2.991515E-02 -4.262269E-01 0.0 262 G 0.0 0.0 4.969257E-01 -5.058173E-02 -3.821203E-01 0.0 263 G 0.0 0.0 6.724985E-01 -6.845309E-02 -3.168977E-01 0.0 264 G 0.0 0.0 8.109089E-01 -8.254169E-02 -2.341635E-01 0.0 265 G 0.0 0.0 9.045082E-01 -9.206910E-02 -1.384894E-01 0.0 266 G 0.0 0.0 9.481244E-01 -9.650883E-02 -3.516241E-02 0.0 267 G 0.0 0.0 9.393473E-01 -9.561538E-02 7.010765E-02 0.0 268 G 0.0 0.0 8.786616E-01 -8.943813E-02 1.715037E-01 0.0 269 G 0.0 0.0 7.694209E-01 -7.831855E-02 2.634225E-01 0.0 270 G 0.0 0.0 6.176619E-01 -6.287113E-02 3.407846E-01 0.0 271 G 0.0 0.0 4.317707E-01 -4.394946E-02 3.993148E-01 0.0 272 G 0.0 0.0 2.220197E-01 -2.259916E-02 4.357788E-01 0.0 273 G 0.0 0.0 0.0 0.0 4.481615E-01 0.0 316 G 0.0 0.0 -7.071068E-01 2.215183E-01 0.0 0.0 317 G 0.0 0.0 -6.875693E-01 2.153977E-01 -7.778561E-02 0.0 318 G 0.0 0.0 -6.300367E-01 1.973743E-01 -1.512725E-01 0.0 319 G 0.0 0.0 -5.376881E-01 1.684439E-01 -2.164001E-01 0.0 320 G 0.0 0.0 -4.156268E-01 1.302052E-01 -2.695695E-01 0.0 321 G 0.0 0.0 -2.705980E-01 8.477127E-02 -3.078425E-01 0.0 322 G 0.0 0.0 -1.106157E-01 3.465296E-02 -3.291041E-01 0.0 323 G 0.0 0.0 5.547912E-02 -1.738018E-02 -3.321791E-01 0.0 324 G 0.0 0.0 2.185081E-01 -6.845293E-02 -3.168978E-01 0.0 325 G 0.0 0.0 3.694623E-01 -1.157430E-01 -2.841048E-01 0.0 326 G 0.0 0.0 4.999999E-01 -1.566371E-01 -2.356122E-01 0.0 327 G 0.0 0.0 6.029074E-01 -1.888754E-01 -1.740997E-01 0.0 328 G 0.0 0.0 6.724983E-01 -2.106764E-01 -1.029663E-01 0.0 329 G 0.0 0.0 7.049267E-01 -2.208354E-01 -2.614300E-02 0.0 330 G 0.0 0.0 6.984009E-01 -2.187910E-01 5.212483E-02 0.0 331 G 0.0 0.0 6.532813E-01 -2.046562E-01 1.275123E-01 0.0 332 G 0.0 0.0 5.720614E-01 -1.792121E-01 1.958535E-01 0.0 333 G 0.0 0.0 4.592291E-01 -1.438647E-01 2.533719E-01 0.0 334 G 0.0 0.0 3.210198E-01 -1.005671E-01 2.968890E-01 0.0 335 G 0.0 0.0 1.650708E-01 -5.171232E-02 3.239998E-01 0.0 336 G 0.0 0.0 0.0 0.0 3.332062E-01 0.0 379 G 0.0 0.0 -3.090170E-01 2.979415E-01 0.0 0.0 380 G 0.0 0.0 -3.004788E-01 2.897094E-01 -3.399359E-02 0.0 381 G 0.0 0.0 -2.753361E-01 2.654678E-01 -6.610855E-02 0.0 382 G 0.0 0.0 -2.349783E-01 2.265565E-01 -9.457039E-02 0.0 383 G 0.0 0.0 -1.816355E-01 1.751256E-01 -1.178062E-01 0.0 384 G 0.0 0.0 -1.182556E-01 1.140173E-01 -1.345320E-01 0.0 385 G 0.0 0.0 -4.834080E-02 4.660837E-02 -1.438237E-01 0.0 386 G 0.0 0.0 2.424529E-02 -2.337618E-02 -1.451676E-01 0.0 387 G 0.0 0.0 9.549158E-02 -9.206896E-02 -1.384894E-01 0.0 388 G 0.0 0.0 1.614610E-01 -1.556739E-01 -1.241583E-01 0.0 389 G 0.0 0.0 2.185079E-01 -2.106763E-01 -1.029662E-01 0.0 390 G 0.0 0.0 2.634801E-01 -2.540367E-01 -7.608418E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 2.938924E-01 -2.833591E-01 -4.499786E-02 0.0 392 G 0.0 0.0 3.080641E-01 -2.970230E-01 -1.142497E-02 0.0 393 G 0.0 0.0 3.052122E-01 -2.942733E-01 2.277930E-02 0.0 394 G 0.0 0.0 2.854943E-01 -2.752621E-01 5.572488E-02 0.0 395 G 0.0 0.0 2.499999E-01 -2.410397E-01 8.559115E-02 0.0 396 G 0.0 0.0 2.006904E-01 -1.934975E-01 1.107276E-01 0.0 397 G 0.0 0.0 1.402907E-01 -1.352627E-01 1.297451E-01 0.0 398 G 0.0 0.0 7.213856E-02 -6.955313E-02 1.415931E-01 0.0 399 G 0.0 0.0 0.0 0.0 1.456164E-01 0.0 442 G 0.0 0.0 1.564343E-01 3.094173E-01 0.0 0.0 443 G 0.0 0.0 1.521121E-01 3.008682E-01 1.720839E-02 0.0 444 G 0.0 0.0 1.393842E-01 2.756929E-01 3.346626E-02 0.0 445 G 0.0 0.0 1.189537E-01 2.352829E-01 4.787468E-02 0.0 446 G 0.0 0.0 9.194982E-02 1.818709E-01 5.963738E-02 0.0 447 G 0.0 0.0 5.986483E-02 1.184088E-01 6.810445E-02 0.0 448 G 0.0 0.0 2.447175E-02 4.840345E-02 7.280812E-02 0.0 449 G 0.0 0.0 -1.227366E-02 -2.427667E-02 7.348850E-02 0.0 450 G 0.0 0.0 -4.834085E-02 -9.561523E-02 7.010795E-02 0.0 451 G 0.0 0.0 -8.173677E-02 -1.616701E-01 6.285310E-02 0.0 452 G 0.0 0.0 -1.106159E-01 -2.187911E-01 5.212496E-02 0.0 453 G 0.0 0.0 -1.333823E-01 -2.638216E-01 3.851645E-02 0.0 454 G 0.0 0.0 -1.487781E-01 -2.942733E-01 2.277946E-02 0.0 455 G 0.0 0.0 -1.559523E-01 -3.084634E-01 5.783676E-03 0.0 456 G 0.0 0.0 -1.545085E-01 -3.056078E-01 -1.153172E-02 0.0 457 G 0.0 0.0 -1.445266E-01 -2.858643E-01 -2.820992E-02 0.0 458 G 0.0 0.0 -1.265581E-01 -2.503238E-01 -4.332917E-02 0.0 459 G 0.0 0.0 -1.015960E-01 -2.009504E-01 -5.605397E-02 0.0 460 G 0.0 0.0 -7.101966E-02 -1.404724E-01 -6.568120E-02 0.0 461 G 0.0 0.0 -3.651886E-02 -7.223198E-02 -7.167892E-02 0.0 462 G 0.0 0.0 0.0 0.0 -7.371573E-02 0.0 505 G 0.0 0.0 5.877852E-01 2.534442E-01 0.0 0.0 506 G 0.0 0.0 5.715446E-01 2.464415E-01 6.465939E-02 0.0 507 G 0.0 0.0 5.237204E-01 2.258204E-01 1.257458E-01 0.0 508 G 0.0 0.0 4.469554E-01 1.927204E-01 1.798836E-01 0.0 509 G 0.0 0.0 3.454914E-01 1.489707E-01 2.240808E-01 0.0 510 G 0.0 0.0 2.249356E-01 9.698882E-02 2.558952E-01 0.0 511 G 0.0 0.0 9.194979E-02 3.964730E-02 2.735689E-01 0.0 512 G 0.0 0.0 -4.611714E-02 -1.988516E-02 2.761250E-01 0.0 513 G 0.0 0.0 -1.816356E-01 -7.831873E-02 2.634225E-01 0.0 514 G 0.0 0.0 -3.071169E-01 -1.324243E-01 2.361634E-01 0.0 515 G 0.0 0.0 -4.156268E-01 -1.792121E-01 1.958537E-01 0.0 516 G 0.0 0.0 -5.011692E-01 -2.160967E-01 1.447211E-01 0.0 517 G 0.0 0.0 -5.590169E-01 -2.410397E-01 8.559113E-02 0.0 518 G 0.0 0.0 -5.859731E-01 -2.526628E-01 2.173137E-02 0.0 519 G 0.0 0.0 -5.805484E-01 -2.503237E-01 -4.332917E-02 0.0 520 G 0.0 0.0 -5.430424E-01 -2.341517E-01 -1.059953E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -4.755280E-01 -2.050405E-01 -1.628042E-01 0.0 522 G 0.0 0.0 -3.817357E-01 -1.645987E-01 -2.106164E-01 0.0 523 G 0.0 0.0 -2.668487E-01 -1.150611E-01 -2.467899E-01 0.0 524 G 0.0 0.0 -1.372156E-01 -5.916532E-02 -2.693258E-01 0.0 525 G 0.0 0.0 0.0 0.0 -2.769788E-01 0.0 568 G 0.0 0.0 8.910065E-01 1.422236E-01 0.0 0.0 569 G 0.0 0.0 8.663879E-01 1.382939E-01 9.801535E-02 0.0 570 G 0.0 0.0 7.938926E-01 1.267221E-01 1.906145E-01 0.0 571 G 0.0 0.0 6.775266E-01 1.081476E-01 2.726803E-01 0.0 572 G 0.0 0.0 5.237203E-01 8.359689E-02 3.396775E-01 0.0 573 G 0.0 0.0 3.409733E-01 5.442656E-02 3.879041E-01 0.0 574 G 0.0 0.0 1.393840E-01 2.224863E-02 4.146951E-01 0.0 575 G 0.0 0.0 -6.990769E-02 -1.115875E-02 4.185700E-01 0.0 576 G 0.0 0.0 -2.753362E-01 -4.394950E-02 3.993147E-01 0.0 577 G 0.0 0.0 -4.655497E-01 -7.431163E-02 3.579932E-01 0.0 578 G 0.0 0.0 -6.300368E-01 -1.005673E-01 2.968888E-01 0.0 579 G 0.0 0.0 -7.597079E-01 -1.212655E-01 2.193784E-01 0.0 580 G 0.0 0.0 -8.473974E-01 -1.352626E-01 1.297451E-01 0.0 581 G 0.0 0.0 -8.882596E-01 -1.417850E-01 3.294202E-02 0.0 582 G 0.0 0.0 -8.800365E-01 -1.404725E-01 -6.568143E-02 0.0 583 G 0.0 0.0 -8.231823E-01 -1.313974E-01 -1.606753E-01 0.0 584 G 0.0 0.0 -7.208390E-01 -1.150612E-01 -2.467901E-01 0.0 585 G 0.0 0.0 -5.786620E-01 -9.236678E-02 -3.192672E-01 0.0 586 G 0.0 0.0 -4.045082E-01 -6.456810E-02 -3.741016E-01 0.0 587 G 0.0 0.0 -2.080012E-01 -3.320140E-02 -4.082632E-01 0.0 588 G 0.0 0.0 0.0 0.0 -4.198641E-01 0.0 631 G 0.0 0.0 1.000000E+00 6.066520E-08 0.0 0.0 632 G 0.0 0.0 9.723699E-01 7.818923E-08 1.100052E-01 0.0 633 G 0.0 0.0 8.910065E-01 7.099440E-08 2.139317E-01 0.0 634 G 0.0 0.0 7.604059E-01 8.317058E-08 3.060362E-01 0.0 635 G 0.0 0.0 5.877851E-01 1.164290E-07 3.812290E-01 0.0 636 G 0.0 0.0 3.826832E-01 9.670858E-08 4.353551E-01 0.0 637 G 0.0 0.0 1.564342E-01 2.757321E-08 4.654233E-01 0.0 638 G 0.0 0.0 -7.845932E-02 -2.188298E-08 4.697721E-01 0.0 639 G 0.0 0.0 -3.090172E-01 -4.937218E-08 4.481613E-01 0.0 640 G 0.0 0.0 -5.224987E-01 -5.722226E-08 4.017851E-01 0.0 641 G 0.0 0.0 -7.071069E-01 -5.475516E-08 3.332062E-01 0.0 642 G 0.0 0.0 -8.526403E-01 -6.935602E-08 2.462141E-01 0.0 643 G 0.0 0.0 -9.510565E-01 -1.010278E-07 1.456162E-01 0.0 644 G 0.0 0.0 -9.969172E-01 -1.217188E-07 3.697163E-02 0.0 645 G 0.0 0.0 -9.876881E-01 -1.084432E-07 -7.371601E-02 0.0 646 G 0.0 0.0 -9.238792E-01 -8.728736E-08 -1.803301E-01 0.0 647 G 0.0 0.0 -8.090166E-01 -1.004294E-07 -2.769790E-01 0.0 648 G 0.0 0.0 -6.494477E-01 -1.403167E-07 -3.583221E-01 0.0 649 G 0.0 0.0 -4.539902E-01 -1.250680E-07 -4.198642E-01 0.0 650 G 0.0 0.0 -2.334452E-01 -5.703641E-08 -4.582045E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 -4.712245E-01 0.0 694 G 0.0 0.0 8.910066E-01 -1.422235E-01 0.0 0.0 695 G 0.0 0.0 8.663881E-01 -1.382938E-01 9.801540E-02 0.0 696 G 0.0 0.0 7.938927E-01 -1.267220E-01 1.906146E-01 0.0 697 G 0.0 0.0 6.775267E-01 -1.081475E-01 2.726803E-01 0.0 698 G 0.0 0.0 5.237204E-01 -8.359686E-02 3.396776E-01 0.0 699 G 0.0 0.0 3.409733E-01 -5.442657E-02 3.879042E-01 0.0 700 G 0.0 0.0 1.393840E-01 -2.224865E-02 4.146952E-01 0.0 701 G 0.0 0.0 -6.990775E-02 1.115876E-02 4.185701E-01 0.0 702 G 0.0 0.0 -2.753364E-01 4.394950E-02 3.993148E-01 0.0 703 G 0.0 0.0 -4.655498E-01 7.431155E-02 3.579932E-01 0.0 704 G 0.0 0.0 -6.300368E-01 1.005672E-01 2.968889E-01 0.0 705 G 0.0 0.0 -7.597080E-01 1.212655E-01 2.193784E-01 0.0 706 G 0.0 0.0 -8.473975E-01 1.352626E-01 1.297451E-01 0.0 707 G 0.0 0.0 -8.882598E-01 1.417851E-01 3.294203E-02 0.0 708 G 0.0 0.0 -8.800366E-01 1.404725E-01 -6.568144E-02 0.0 709 G 0.0 0.0 -8.231825E-01 1.313973E-01 -1.606753E-01 0.0 710 G 0.0 0.0 -7.208391E-01 1.150612E-01 -2.467901E-01 0.0 711 G 0.0 0.0 -5.786622E-01 9.236675E-02 -3.192673E-01 0.0 712 G 0.0 0.0 -4.045083E-01 6.456812E-02 -3.741017E-01 0.0 713 G 0.0 0.0 -2.080012E-01 3.320142E-02 -4.082633E-01 0.0 714 G 0.0 0.0 0.0 0.0 -4.198642E-01 0.0 757 G 0.0 0.0 5.877855E-01 -2.534442E-01 0.0 0.0 758 G 0.0 0.0 5.715449E-01 -2.464416E-01 6.465944E-02 0.0 759 G 0.0 0.0 5.237207E-01 -2.258205E-01 1.257459E-01 0.0 760 G 0.0 0.0 4.469556E-01 -1.927205E-01 1.798836E-01 0.0 761 G 0.0 0.0 3.454916E-01 -1.489707E-01 2.240809E-01 0.0 762 G 0.0 0.0 2.249357E-01 -9.698882E-02 2.558954E-01 0.0 763 G 0.0 0.0 9.194981E-02 -3.964732E-02 2.735690E-01 0.0 764 G 0.0 0.0 -4.611717E-02 1.988508E-02 2.761251E-01 0.0 765 G 0.0 0.0 -1.816357E-01 7.831864E-02 2.634227E-01 0.0 766 G 0.0 0.0 -3.071170E-01 1.324243E-01 2.361635E-01 0.0 767 G 0.0 0.0 -4.156270E-01 1.792122E-01 1.958537E-01 0.0 768 G 0.0 0.0 -5.011694E-01 2.160968E-01 1.447211E-01 0.0 769 G 0.0 0.0 -5.590171E-01 2.410398E-01 8.559114E-02 0.0 770 G 0.0 0.0 -5.859733E-01 2.526629E-01 2.173142E-02 0.0 771 G 0.0 0.0 -5.805486E-01 2.503239E-01 -4.332914E-02 0.0 772 G 0.0 0.0 -5.430427E-01 2.341519E-01 -1.059953E-01 0.0 773 G 0.0 0.0 -4.755282E-01 2.050406E-01 -1.628042E-01 0.0 774 G 0.0 0.0 -3.817359E-01 1.645988E-01 -2.106165E-01 0.0 775 G 0.0 0.0 -2.668488E-01 1.150612E-01 -2.467900E-01 0.0 776 G 0.0 0.0 -1.372157E-01 5.916532E-02 -2.693259E-01 0.0 777 G 0.0 0.0 0.0 0.0 -2.769789E-01 0.0 820 G 0.0 0.0 1.564345E-01 -3.094175E-01 0.0 0.0 821 G 0.0 0.0 1.521122E-01 -3.008683E-01 1.720857E-02 0.0 822 G 0.0 0.0 1.393842E-01 -2.756930E-01 3.346629E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 1.189538E-01 -2.352829E-01 4.787464E-02 0.0 824 G 0.0 0.0 9.194990E-02 -1.818710E-01 5.963740E-02 0.0 825 G 0.0 0.0 5.986488E-02 -1.184089E-01 6.810457E-02 0.0 826 G 0.0 0.0 2.447172E-02 -4.840351E-02 7.280827E-02 0.0 827 G 0.0 0.0 -1.227374E-02 2.427668E-02 7.348858E-02 0.0 828 G 0.0 0.0 -4.834094E-02 9.561527E-02 7.010788E-02 0.0 829 G 0.0 0.0 -8.173682E-02 1.616702E-01 6.285304E-02 0.0 830 G 0.0 0.0 -1.106159E-01 2.187911E-01 5.212492E-02 0.0 831 G 0.0 0.0 -1.333823E-01 2.638217E-01 3.851641E-02 0.0 832 G 0.0 0.0 -1.487781E-01 2.942734E-01 2.277946E-02 0.0 833 G 0.0 0.0 -1.559523E-01 3.084635E-01 5.783646E-03 0.0 834 G 0.0 0.0 -1.545085E-01 3.056079E-01 -1.153176E-02 0.0 835 G 0.0 0.0 -1.445266E-01 2.858643E-01 -2.820985E-02 0.0 836 G 0.0 0.0 -1.265581E-01 2.503238E-01 -4.332907E-02 0.0 837 G 0.0 0.0 -1.015960E-01 2.009504E-01 -5.605393E-02 0.0 838 G 0.0 0.0 -7.101973E-02 1.404725E-01 -6.568123E-02 0.0 839 G 0.0 0.0 -3.651889E-02 7.223202E-02 -7.167900E-02 0.0 840 G 0.0 0.0 0.0 0.0 -7.371578E-02 0.0 841 G 0.0 0.0 0.0 -3.132744E-01 0.0 0.0 842 G 0.0 0.0 0.0 -3.046186E-01 0.0 0.0 843 G 0.0 0.0 0.0 -2.791296E-01 0.0 0.0 844 G 0.0 0.0 0.0 -2.382157E-01 0.0 0.0 845 G 0.0 0.0 0.0 -1.841381E-01 0.0 0.0 846 G 0.0 0.0 0.0 -1.198849E-01 0.0 0.0 847 G 0.0 0.0 0.0 -4.900685E-02 0.0 0.0 848 G 0.0 0.0 0.0 2.457929E-02 0.0 0.0 849 G 0.0 0.0 0.0 9.680714E-02 0.0 0.0 850 G 0.0 0.0 0.0 1.636854E-01 0.0 0.0 851 G 0.0 0.0 0.0 2.215184E-01 0.0 0.0 852 G 0.0 0.0 0.0 2.671103E-01 0.0 0.0 853 G 0.0 0.0 0.0 2.979416E-01 0.0 0.0 854 G 0.0 0.0 0.0 3.123086E-01 0.0 0.0 855 G 0.0 0.0 0.0 3.094173E-01 0.0 0.0 856 G 0.0 0.0 0.0 2.894276E-01 0.0 0.0 857 G 0.0 0.0 0.0 2.534441E-01 0.0 0.0 858 G 0.0 0.0 0.0 2.034553E-01 0.0 0.0 859 G 0.0 0.0 0.0 1.422235E-01 0.0 0.0 860 G 0.0 0.0 0.0 7.313240E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -6.294363E-01 0.0 0.0 2 G 0.0 0.0 0.0 -6.277367E-01 0.0 0.0 3 G 0.0 0.0 0.0 -6.223019E-01 0.0 0.0 4 G 0.0 0.0 0.0 -6.123889E-01 0.0 0.0 5 G 0.0 0.0 0.0 -5.989821E-01 0.0 0.0 6 G 0.0 0.0 0.0 -5.820484E-01 0.0 0.0 7 G 0.0 0.0 0.0 -5.619046E-01 0.0 0.0 8 G 0.0 0.0 0.0 -5.373752E-01 0.0 0.0 9 G 0.0 0.0 0.0 -5.098630E-01 0.0 0.0 10 G 0.0 0.0 0.0 -4.790339E-01 0.0 0.0 11 G 0.0 0.0 0.0 -4.453901E-01 0.0 0.0 12 G 0.0 0.0 0.0 -4.090217E-01 0.0 0.0 13 G 0.0 0.0 0.0 -3.704227E-01 0.0 0.0 14 G 0.0 0.0 0.0 -3.290935E-01 0.0 0.0 15 G 0.0 0.0 0.0 -2.857206E-01 0.0 0.0 16 G 0.0 0.0 0.0 -2.405574E-01 0.0 0.0 17 G 0.0 0.0 0.0 -1.944825E-01 0.0 0.0 18 G 0.0 0.0 0.0 -1.468671E-01 0.0 0.0 19 G 0.0 0.0 0.0 -9.819738E-02 0.0 0.0 20 G 0.0 0.0 0.0 -4.867781E-02 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 -8.086357E-01 -3.702650E-01 0.0 0.0 65 G 0.0 0.0 -8.062281E-01 -3.690664E-01 -9.521086E-03 0.0 66 G 0.0 0.0 -7.989346E-01 -3.655531E-01 -1.961426E-02 0.0 67 G 0.0 0.0 -7.864724E-01 -3.598218E-01 -2.980503E-02 0.0 68 G 0.0 0.0 -7.690240E-01 -3.519238E-01 -3.959073E-02 0.0 69 G 0.0 0.0 -7.468503E-01 -3.417797E-01 -4.827172E-02 0.0 70 G 0.0 0.0 -7.204963E-01 -3.294532E-01 -5.670271E-02 0.0 71 G 0.0 0.0 -6.897206E-01 -3.152121E-01 -6.552676E-02 0.0 72 G 0.0 0.0 -6.546407E-01 -2.992361E-01 -7.401096E-02 0.0 73 G 0.0 0.0 -6.153241E-01 -2.814332E-01 -8.214156E-02 0.0 74 G 0.0 0.0 -5.721025E-01 -2.615659E-01 -8.964807E-02 0.0 75 G 0.0 0.0 -5.253153E-01 -2.398237E-01 -9.613550E-02 0.0 76 G 0.0 0.0 -4.754935E-01 -2.169246E-01 -1.020664E-01 0.0 77 G 0.0 0.0 -4.227013E-01 -1.930961E-01 -1.076149E-01 0.0 78 G 0.0 0.0 -3.673322E-01 -1.679936E-01 -1.125277E-01 0.0 79 G 0.0 0.0 -3.096233E-01 -1.417831E-01 -1.166784E-01 0.0 80 G 0.0 0.0 -2.501191E-01 -1.145623E-01 -1.198743E-01 0.0 81 G 0.0 0.0 -1.891413E-01 -8.654974E-02 -1.223757E-01 0.0 82 G 0.0 0.0 -1.269856E-01 -5.805868E-02 -1.248777E-01 0.0 83 G 0.0 0.0 -6.366159E-02 -2.922430E-02 -1.265071E-01 0.0 84 G 0.0 0.0 0.0 0.0 -1.265305E-01 0.0 127 G 0.0 0.0 -9.509017E-01 1.947361E-01 0.0 0.0 128 G 0.0 0.0 -9.480651E-01 1.941653E-01 -1.132008E-02 0.0 129 G 0.0 0.0 -9.393355E-01 1.924733E-01 -2.344229E-02 0.0 130 G 0.0 0.0 -9.245981E-01 1.898095E-01 -3.492620E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -9.043115E-01 1.856284E-01 -4.586704E-02 0.0 132 G 0.0 0.0 -8.785005E-01 1.799590E-01 -5.659243E-02 0.0 133 G 0.0 0.0 -8.474072E-01 1.733033E-01 -6.709202E-02 0.0 134 G 0.0 0.0 -8.110402E-01 1.657224E-01 -7.731657E-02 0.0 135 G 0.0 0.0 -7.697248E-01 1.572514E-01 -8.695730E-02 0.0 136 G 0.0 0.0 -7.236441E-01 1.478751E-01 -9.607911E-02 0.0 137 G 0.0 0.0 -6.730399E-01 1.374445E-01 -1.052587E-01 0.0 138 G 0.0 0.0 -6.178931E-01 1.260499E-01 -1.136418E-01 0.0 139 G 0.0 0.0 -5.589764E-01 1.139570E-01 -1.205680E-01 0.0 140 G 0.0 0.0 -4.967145E-01 1.013900E-01 -1.267233E-01 0.0 141 G 0.0 0.0 -4.316226E-01 8.821603E-02 -1.320444E-01 0.0 142 G 0.0 0.0 -3.639819E-01 7.421777E-02 -1.367262E-01 0.0 143 G 0.0 0.0 -2.941125E-01 5.953403E-02 -1.410888E-01 0.0 144 G 0.0 0.0 -2.221730E-01 4.485097E-02 -1.445808E-01 0.0 145 G 0.0 0.0 -1.488509E-01 3.021045E-02 -1.469101E-01 0.0 146 G 0.0 0.0 -7.456653E-02 1.520869E-02 -1.481706E-01 0.0 147 G 0.0 0.0 0.0 0.0 -1.482518E-01 0.0 190 G 0.0 0.0 -3.087128E-01 5.980666E-01 0.0 0.0 191 G 0.0 0.0 -3.079802E-01 5.966146E-01 -3.092365E-03 0.0 192 G 0.0 0.0 -3.053582E-01 5.913190E-01 -7.524762E-03 0.0 193 G 0.0 0.0 -3.004615E-01 5.820718E-01 -1.176754E-02 0.0 194 G 0.0 0.0 -2.936797E-01 5.692344E-01 -1.516533E-02 0.0 195 G 0.0 0.0 -2.852446E-01 5.529827E-01 -1.827643E-02 0.0 196 G 0.0 0.0 -2.752803E-01 5.334817E-01 -2.141315E-02 0.0 197 G 0.0 0.0 -2.636553E-01 5.104772E-01 -2.479494E-02 0.0 198 G 0.0 0.0 -2.502923E-01 4.841849E-01 -2.836950E-02 0.0 199 G 0.0 0.0 -2.351674E-01 4.550079E-01 -3.158534E-02 0.0 200 G 0.0 0.0 -2.185860E-01 4.234485E-01 -3.438905E-02 0.0 201 G 0.0 0.0 -2.006171E-01 3.890959E-01 -3.696205E-02 0.0 202 G 0.0 0.0 -1.814669E-01 3.522298E-01 -3.919117E-02 0.0 203 G 0.0 0.0 -1.612266E-01 3.130853E-01 -4.120704E-02 0.0 204 G 0.0 0.0 -1.400575E-01 2.719990E-01 -4.296134E-02 0.0 205 G 0.0 0.0 -1.180943E-01 2.293547E-01 -4.421183E-02 0.0 206 G 0.0 0.0 -9.557485E-02 1.853479E-01 -4.540210E-02 0.0 207 G 0.0 0.0 -7.238116E-02 1.401096E-01 -4.674583E-02 0.0 208 G 0.0 0.0 -4.861442E-02 9.387664E-02 -4.776092E-02 0.0 209 G 0.0 0.0 -2.440065E-02 4.705184E-02 -4.841700E-02 0.0 210 G 0.0 0.0 0.0 0.0 -4.854326E-02 0.0 253 G 0.0 0.0 5.879519E-01 5.095857E-01 0.0 0.0 254 G 0.0 0.0 5.860741E-01 5.078630E-01 7.426921E-03 0.0 255 G 0.0 0.0 5.805717E-01 5.031832E-01 1.436816E-02 0.0 256 G 0.0 0.0 5.716022E-01 4.953702E-01 2.136112E-02 0.0 257 G 0.0 0.0 5.590583E-01 4.844903E-01 2.843910E-02 0.0 258 G 0.0 0.0 5.430342E-01 4.706154E-01 3.527126E-02 0.0 259 G 0.0 0.0 5.236387E-01 4.538691E-01 4.174291E-02 0.0 260 G 0.0 0.0 5.010511E-01 4.344322E-01 4.812663E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 4.752986E-01 4.123883E-01 5.408889E-02 0.0 262 G 0.0 0.0 4.467475E-01 3.877400E-01 5.942224E-02 0.0 263 G 0.0 0.0 4.155411E-01 3.605527E-01 6.454048E-02 0.0 264 G 0.0 0.0 3.818519E-01 3.310890E-01 6.939778E-02 0.0 265 G 0.0 0.0 3.457662E-01 2.997019E-01 7.399581E-02 0.0 266 G 0.0 0.0 3.074402E-01 2.665747E-01 7.837744E-02 0.0 267 G 0.0 0.0 2.670085E-01 2.316377E-01 8.217667E-02 0.0 268 G 0.0 0.0 2.248987E-01 1.951067E-01 8.520476E-02 0.0 269 G 0.0 0.0 1.814155E-01 1.574496E-01 8.753213E-02 0.0 270 G 0.0 0.0 1.369509E-01 1.188955E-01 8.922958E-02 0.0 271 G 0.0 0.0 9.172512E-02 7.967266E-02 9.046156E-02 0.0 272 G 0.0 0.0 4.601692E-02 3.998489E-02 9.123617E-02 0.0 273 G 0.0 0.0 0.0 0.0 9.162125E-02 0.0 316 G 0.0 0.0 1.000000E+00 -2.154228E-05 0.0 0.0 317 G 0.0 0.0 9.968389E-01 3.793792E-05 1.253209E-02 0.0 318 G 0.0 0.0 9.874922E-01 3.504084E-05 2.454717E-02 0.0 319 G 0.0 0.0 9.721705E-01 -1.660696E-05 3.640511E-02 0.0 320 G 0.0 0.0 9.508757E-01 4.630188E-05 4.820926E-02 0.0 321 G 0.0 0.0 9.236807E-01 2.285335E-04 5.992806E-02 0.0 322 G 0.0 0.0 8.906733E-01 2.436442E-04 7.111781E-02 0.0 323 G 0.0 0.0 8.522571E-01 9.548256E-05 8.159380E-02 0.0 324 G 0.0 0.0 8.086880E-01 1.377794E-05 9.149859E-02 0.0 325 G 0.0 0.0 7.602822E-01 -1.608700E-05 1.009453E-01 0.0 326 G 0.0 0.0 7.071840E-01 -1.033970E-05 1.100386E-01 0.0 327 G 0.0 0.0 6.496657E-01 1.846502E-05 1.185920E-01 0.0 328 G 0.0 0.0 5.880454E-01 9.453443E-06 1.261633E-01 0.0 329 G 0.0 0.0 5.228562E-01 -5.857814E-05 1.330129E-01 0.0 330 G 0.0 0.0 4.543161E-01 -7.361903E-05 1.393129E-01 0.0 331 G 0.0 0.0 3.828865E-01 -1.494660E-05 1.445865E-01 0.0 332 G 0.0 0.0 3.090392E-01 8.570198E-05 1.488221E-01 0.0 333 G 0.0 0.0 2.333433E-01 3.880574E-05 1.520091E-01 0.0 334 G 0.0 0.0 1.562959E-01 -1.208072E-04 1.541214E-01 0.0 335 G 0.0 0.0 7.842028E-02 -1.856650E-04 1.554658E-01 0.0 336 G 0.0 0.0 0.0 0.0 1.561197E-01 0.0 379 G 0.0 0.0 5.877482E-01 -5.095036E-01 0.0 0.0 380 G 0.0 0.0 5.858794E-01 -5.079150E-01 7.385908E-03 0.0 381 G 0.0 0.0 5.803818E-01 -5.031859E-01 1.444989E-02 0.0 382 G 0.0 0.0 5.713402E-01 -4.953452E-01 2.152637E-02 0.0 383 G 0.0 0.0 5.587656E-01 -4.845114E-01 2.837079E-02 0.0 384 G 0.0 0.0 5.428157E-01 -4.707334E-01 3.508354E-02 0.0 385 G 0.0 0.0 5.234847E-01 -4.540223E-01 4.170053E-02 0.0 386 G 0.0 0.0 5.009421E-01 -4.344467E-01 4.791515E-02 0.0 387 G 0.0 0.0 4.753416E-01 -4.122031E-01 5.379180E-02 0.0 388 G 0.0 0.0 4.468773E-01 -3.875194E-01 5.934215E-02 0.0 389 G 0.0 0.0 4.157070E-01 -3.605245E-01 6.449464E-02 0.0 390 G 0.0 0.0 3.820353E-01 -3.311815E-01 6.939943E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 3.459279E-01 -2.996642E-01 7.406206E-02 0.0 392 G 0.0 0.0 3.075930E-01 -2.663160E-01 7.831141E-02 0.0 393 G 0.0 0.0 2.672361E-01 -2.313554E-01 8.201315E-02 0.0 394 G 0.0 0.0 2.252067E-01 -1.949967E-01 8.502594E-02 0.0 395 G 0.0 0.0 1.818091E-01 -1.574521E-01 8.739666E-02 0.0 396 G 0.0 0.0 1.373442E-01 -1.188977E-01 8.938196E-02 0.0 397 G 0.0 0.0 9.198773E-02 -7.959259E-02 9.078503E-02 0.0 398 G 0.0 0.0 4.613131E-02 -3.985922E-02 9.148927E-02 0.0 399 G 0.0 0.0 0.0 0.0 9.181158E-02 0.0 442 G 0.0 0.0 -3.088142E-01 -5.989698E-01 0.0 0.0 443 G 0.0 0.0 -3.079944E-01 -5.971643E-01 -3.393834E-03 0.0 444 G 0.0 0.0 -3.052526E-01 -5.917303E-01 -7.535235E-03 0.0 445 G 0.0 0.0 -3.004481E-01 -5.825107E-01 -1.145926E-02 0.0 446 G 0.0 0.0 -2.937936E-01 -5.695771E-01 -1.500676E-02 0.0 447 G 0.0 0.0 -2.853863E-01 -5.531875E-01 -1.837135E-02 0.0 448 G 0.0 0.0 -2.753153E-01 -5.334568E-01 -2.170788E-02 0.0 449 G 0.0 0.0 -2.635286E-01 -5.105090E-01 -2.512049E-02 0.0 450 G 0.0 0.0 -2.500506E-01 -4.844567E-01 -2.847574E-02 0.0 451 G 0.0 0.0 -2.349549E-01 -4.553885E-01 -3.142937E-02 0.0 452 G 0.0 0.0 -2.184730E-01 -4.234799E-01 -3.414008E-02 0.0 453 G 0.0 0.0 -2.006219E-01 -3.889868E-01 -3.676208E-02 0.0 454 G 0.0 0.0 -1.815496E-01 -3.521624E-01 -3.906662E-02 0.0 455 G 0.0 0.0 -1.613643E-01 -3.131610E-01 -4.111691E-02 0.0 456 G 0.0 0.0 -1.402237E-01 -2.721159E-01 -4.290815E-02 0.0 457 G 0.0 0.0 -1.182505E-01 -2.292918E-01 -4.437034E-02 0.0 458 G 0.0 0.0 -9.561197E-02 -1.851488E-01 -4.567363E-02 0.0 459 G 0.0 0.0 -7.232092E-02 -1.399611E-01 -4.685241E-02 0.0 460 G 0.0 0.0 -4.851909E-02 -9.385026E-02 -4.776803E-02 0.0 461 G 0.0 0.0 -2.432841E-02 -4.709893E-02 -4.831123E-02 0.0 462 G 0.0 0.0 0.0 0.0 -4.838413E-02 0.0 505 G 0.0 0.0 -9.509665E-01 -1.946230E-01 0.0 0.0 506 G 0.0 0.0 -9.480470E-01 -1.939810E-01 -1.154510E-02 0.0 507 G 0.0 0.0 -9.393157E-01 -1.921052E-01 -2.322918E-02 0.0 508 G 0.0 0.0 -9.246843E-01 -1.890716E-01 -3.486489E-02 0.0 509 G 0.0 0.0 -9.043243E-01 -1.849213E-01 -4.606516E-02 0.0 510 G 0.0 0.0 -8.784103E-01 -1.796531E-01 -5.688408E-02 0.0 511 G 0.0 0.0 -8.471528E-01 -1.731905E-01 -6.735621E-02 0.0 512 G 0.0 0.0 -8.107184E-01 -1.656064E-01 -7.740351E-02 0.0 513 G 0.0 0.0 -7.693437E-01 -1.570966E-01 -8.709101E-02 0.0 514 G 0.0 0.0 -7.231756E-01 -1.477769E-01 -9.634310E-02 0.0 515 G 0.0 0.0 -6.725270E-01 -1.375239E-01 -1.049530E-01 0.0 516 G 0.0 0.0 -6.177095E-01 -1.264045E-01 -1.128503E-01 0.0 517 G 0.0 0.0 -5.591329E-01 -1.144748E-01 -1.199450E-01 0.0 518 G 0.0 0.0 -4.971661E-01 -1.018332E-01 -1.262854E-01 0.0 519 G 0.0 0.0 -4.321726E-01 -8.858085E-02 -1.320646E-01 0.0 520 G 0.0 0.0 -3.644283E-01 -7.480221E-02 -1.370969E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -2.944016E-01 -6.050330E-02 -1.412116E-01 0.0 522 G 0.0 0.0 -2.224896E-01 -4.574275E-02 -1.445339E-01 0.0 523 G 0.0 0.0 -1.491425E-01 -3.062907E-02 -1.469669E-01 0.0 524 G 0.0 0.0 -7.480336E-02 -1.535852E-02 -1.484267E-01 0.0 525 G 0.0 0.0 0.0 0.0 -1.488483E-01 0.0 568 G 0.0 0.0 -8.091114E-01 3.700027E-01 0.0 0.0 569 G 0.0 0.0 -8.066324E-01 3.689028E-01 -9.881546E-03 0.0 570 G 0.0 0.0 -7.991300E-01 3.655162E-01 -1.997095E-02 0.0 571 G 0.0 0.0 -7.865810E-01 3.598677E-01 -2.984730E-02 0.0 572 G 0.0 0.0 -7.691821E-01 3.520145E-01 -3.930015E-02 0.0 573 G 0.0 0.0 -7.471075E-01 3.420089E-01 -4.839984E-02 0.0 574 G 0.0 0.0 -7.205074E-01 3.298646E-01 -5.737564E-02 0.0 575 G 0.0 0.0 -6.894377E-01 3.156546E-01 -6.604193E-02 0.0 576 G 0.0 0.0 -6.541556E-01 2.995094E-01 -7.419284E-02 0.0 577 G 0.0 0.0 -6.148645E-01 2.815609E-01 -8.191534E-02 0.0 578 G 0.0 0.0 -5.718343E-01 2.618690E-01 -8.910376E-02 0.0 579 G 0.0 0.0 -5.253184E-01 2.404769E-01 -9.573620E-02 0.0 580 G 0.0 0.0 -4.756032E-01 2.175329E-01 -1.018636E-01 0.0 581 G 0.0 0.0 -4.229411E-01 1.933290E-01 -1.073601E-01 0.0 582 G 0.0 0.0 -3.677031E-01 1.680239E-01 -1.121855E-01 0.0 583 G 0.0 0.0 -3.101784E-01 1.416582E-01 -1.163985E-01 0.0 584 G 0.0 0.0 -2.506999E-01 1.143945E-01 -1.200089E-01 0.0 585 G 0.0 0.0 -1.895415E-01 8.640112E-02 -1.230175E-01 0.0 586 G 0.0 0.0 -1.270666E-01 5.786428E-02 -1.252746E-01 0.0 587 G 0.0 0.0 -6.369858E-02 2.900251E-02 -1.264745E-01 0.0 588 G 0.0 0.0 0.0 0.0 -1.267027E-01 0.0 631 G 0.0 0.0 -3.175539E-04 6.295685E-01 0.0 0.0 632 G 0.0 0.0 -3.082247E-04 6.275974E-01 -5.250762E-05 0.0 633 G 0.0 0.0 -2.388005E-04 6.218022E-01 -2.479798E-04 0.0 634 G 0.0 0.0 -7.828883E-05 6.121401E-01 -3.662140E-04 0.0 635 G 0.0 0.0 1.141451E-04 5.986671E-01 -4.225164E-04 0.0 636 G 0.0 0.0 3.234982E-04 5.815974E-01 -3.524257E-04 0.0 637 G 0.0 0.0 4.523223E-04 5.610299E-01 -1.902716E-04 0.0 638 G 0.0 0.0 5.162340E-04 5.369682E-01 -4.370144E-05 0.0 639 G 0.0 0.0 5.048725E-04 5.095566E-01 5.181916E-05 0.0 640 G 0.0 0.0 4.803786E-04 4.789681E-01 6.526818E-05 0.0 641 G 0.0 0.0 4.383255E-04 4.454077E-01 8.231909E-05 0.0 642 G 0.0 0.0 3.611804E-04 4.091309E-01 2.904535E-04 0.0 643 G 0.0 0.0 1.509805E-04 3.703611E-01 4.862635E-04 0.0 644 G 0.0 0.0 -9.018036E-05 3.292876E-01 4.917306E-04 0.0 645 G 0.0 0.0 -3.351871E-04 2.861228E-01 4.445170E-04 0.0 646 G 0.0 0.0 -5.176615E-04 2.411791E-01 2.959852E-04 0.0 647 G 0.0 0.0 -6.163928E-04 1.948085E-01 8.028701E-05 0.0 648 G 0.0 0.0 -6.035827E-04 1.472839E-01 -1.000748E-04 0.0 649 G 0.0 0.0 -5.118306E-04 9.875299E-02 -3.193226E-04 0.0 650 G 0.0 0.0 -2.849288E-04 4.951934E-02 -5.485459E-04 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 -5.740070E-04 0.0 694 G 0.0 0.0 8.083630E-01 3.701097E-01 0.0 0.0 695 G 0.0 0.0 8.058724E-01 3.688892E-01 9.855942E-03 0.0 696 G 0.0 0.0 7.985080E-01 3.654323E-01 1.938367E-02 0.0 697 G 0.0 0.0 7.863483E-01 3.597761E-01 2.900678E-02 0.0 698 G 0.0 0.0 7.693229E-01 3.519473E-01 3.861960E-02 0.0 699 G 0.0 0.0 7.475346E-01 3.419275E-01 4.798588E-02 0.0 700 G 0.0 0.0 7.210844E-01 3.297527E-01 5.709565E-02 0.0 701 G 0.0 0.0 6.901565E-01 3.155233E-01 6.582543E-02 0.0 702 G 0.0 0.0 6.549324E-01 2.994130E-01 7.414362E-02 0.0 703 G 0.0 0.0 6.156310E-01 2.815108E-01 8.206502E-02 0.0 704 G 0.0 0.0 5.724577E-01 2.618123E-01 8.946114E-02 0.0 705 G 0.0 0.0 5.257296E-01 2.404376E-01 9.625739E-02 0.0 706 G 0.0 0.0 4.757220E-01 2.176117E-01 1.024523E-01 0.0 707 G 0.0 0.0 4.227680E-01 1.934768E-01 1.080108E-01 0.0 708 G 0.0 0.0 3.671709E-01 1.681709E-01 1.129121E-01 0.0 709 G 0.0 0.0 3.093047E-01 1.418230E-01 1.170573E-01 0.0 710 G 0.0 0.0 2.495697E-01 1.145462E-01 1.202727E-01 0.0 711 G 0.0 0.0 1.884372E-01 8.651345E-02 1.227077E-01 0.0 712 G 0.0 0.0 1.262251E-01 5.794383E-02 1.245052E-01 0.0 713 G 0.0 0.0 6.330331E-02 2.905112E-02 1.255745E-01 0.0 714 G 0.0 0.0 0.0 0.0 1.259804E-01 0.0 757 G 0.0 0.0 9.502614E-01 -1.944440E-01 0.0 0.0 758 G 0.0 0.0 9.473261E-01 -1.938021E-01 1.165445E-02 0.0 759 G 0.0 0.0 9.385945E-01 -1.920352E-01 2.300735E-02 0.0 760 G 0.0 0.0 9.241971E-01 -1.891741E-01 3.424695E-02 0.0 761 G 0.0 0.0 9.041484E-01 -1.851295E-01 4.541980E-02 0.0 762 G 0.0 0.0 8.785270E-01 -1.799099E-01 5.643085E-02 0.0 763 G 0.0 0.0 8.474177E-01 -1.735420E-01 6.718011E-02 0.0 764 G 0.0 0.0 8.110127E-01 -1.660814E-01 7.750483E-02 0.0 765 G 0.0 0.0 7.695585E-01 -1.576153E-01 8.718021E-02 0.0 766 G 0.0 0.0 7.233987E-01 -1.481938E-01 9.630367E-02 0.0 767 G 0.0 0.0 6.727505E-01 -1.378291E-01 1.049547E-01 0.0 768 G 0.0 0.0 6.179237E-01 -1.265548E-01 1.129527E-01 0.0 769 G 0.0 0.0 5.592327E-01 -1.144778E-01 1.202675E-01 0.0 770 G 0.0 0.0 4.970588E-01 -1.017418E-01 1.268164E-01 0.0 771 G 0.0 0.0 4.318019E-01 -8.842219E-02 1.324837E-01 0.0 772 G 0.0 0.0 3.639198E-01 -7.449687E-02 1.373189E-01 0.0 773 G 0.0 0.0 2.937970E-01 -6.005781E-02 1.413214E-01 0.0 774 G 0.0 0.0 2.218968E-01 -4.529633E-02 1.444235E-01 0.0 775 G 0.0 0.0 1.486544E-01 -3.030450E-02 1.466108E-01 0.0 776 G 0.0 0.0 7.455165E-02 -1.517429E-02 1.478922E-01 0.0 777 G 0.0 0.0 0.0 0.0 1.483635E-01 0.0 820 G 0.0 0.0 3.088197E-01 -5.984936E-01 0.0 0.0 821 G 0.0 0.0 3.078399E-01 -5.966397E-01 3.854264E-03 0.0 822 G 0.0 0.0 3.049800E-01 -5.911349E-01 7.503768E-03 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 3.002940E-01 -5.820613E-01 1.114208E-02 0.0 824 G 0.0 0.0 2.937704E-01 -5.693939E-01 1.476728E-02 0.0 825 G 0.0 0.0 2.854452E-01 -5.532465E-01 1.833731E-02 0.0 826 G 0.0 0.0 2.753416E-01 -5.336744E-01 2.179920E-02 0.0 827 G 0.0 0.0 2.635348E-01 -5.108074E-01 2.514830E-02 0.0 828 G 0.0 0.0 2.500685E-01 -4.846707E-01 2.833740E-02 0.0 829 G 0.0 0.0 2.350560E-01 -4.555603E-01 3.134392E-02 0.0 830 G 0.0 0.0 2.185709E-01 -4.236345E-01 3.413581E-02 0.0 831 G 0.0 0.0 2.007586E-01 -3.891122E-01 3.666418E-02 0.0 832 G 0.0 0.0 1.817197E-01 -3.521722E-01 3.898075E-02 0.0 833 G 0.0 0.0 1.615587E-01 -3.130531E-01 4.119474E-02 0.0 834 G 0.0 0.0 1.403271E-01 -2.719479E-01 4.312299E-02 0.0 835 G 0.0 0.0 1.182448E-01 -2.291774E-01 4.464511E-02 0.0 836 G 0.0 0.0 9.545171E-02 -1.850041E-01 4.591664E-02 0.0 837 G 0.0 0.0 7.209560E-02 -1.397554E-01 4.691760E-02 0.0 838 G 0.0 0.0 4.830142E-02 -9.364296E-02 4.762100E-02 0.0 839 G 0.0 0.0 2.423254E-02 -4.697351E-02 4.805168E-02 0.0 840 G 0.0 0.0 0.0 0.0 4.823845E-02 0.0 841 G 0.0 0.0 0.0 -6.294256E-01 0.0 0.0 842 G 0.0 0.0 0.0 -6.274009E-01 0.0 0.0 843 G 0.0 0.0 0.0 -6.215567E-01 0.0 0.0 844 G 0.0 0.0 0.0 -6.120045E-01 0.0 0.0 845 G 0.0 0.0 0.0 -5.987083E-01 0.0 0.0 846 G 0.0 0.0 0.0 -5.817544E-01 0.0 0.0 847 G 0.0 0.0 0.0 -5.611457E-01 0.0 0.0 848 G 0.0 0.0 0.0 -5.370864E-01 0.0 0.0 849 G 0.0 0.0 0.0 -5.096481E-01 0.0 0.0 850 G 0.0 0.0 0.0 -4.790741E-01 0.0 0.0 851 G 0.0 0.0 0.0 -4.454552E-01 0.0 0.0 852 G 0.0 0.0 0.0 -4.091642E-01 0.0 0.0 853 G 0.0 0.0 0.0 -3.703644E-01 0.0 0.0 854 G 0.0 0.0 0.0 -3.293150E-01 0.0 0.0 855 G 0.0 0.0 0.0 -2.860068E-01 0.0 0.0 856 G 0.0 0.0 0.0 -2.410022E-01 0.0 0.0 857 G 0.0 0.0 0.0 -1.945338E-01 0.0 0.0 858 G 0.0 0.0 0.0 -1.469302E-01 0.0 0.0 859 G 0.0 0.0 0.0 -9.842319E-02 0.0 0.0 860 G 0.0 0.0 0.0 -4.938527E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -4.707368E-01 0.0 0.0 2 G 0.0 0.0 0.0 -4.574368E-01 0.0 0.0 3 G 0.0 0.0 0.0 -4.186919E-01 0.0 0.0 4 G 0.0 0.0 0.0 -3.575946E-01 0.0 0.0 5 G 0.0 0.0 0.0 -2.763787E-01 0.0 0.0 6 G 0.0 0.0 0.0 -1.796765E-01 0.0 0.0 7 G 0.0 0.0 0.0 -7.255396E-02 0.0 0.0 8 G 0.0 0.0 0.0 3.747166E-02 0.0 0.0 9 G 0.0 0.0 0.0 1.458689E-01 0.0 0.0 10 G 0.0 0.0 0.0 2.460123E-01 0.0 0.0 11 G 0.0 0.0 0.0 3.327466E-01 0.0 0.0 12 G 0.0 0.0 0.0 4.011268E-01 0.0 0.0 13 G 0.0 0.0 0.0 4.477092E-01 0.0 0.0 14 G 0.0 0.0 0.0 4.690082E-01 0.0 0.0 15 G 0.0 0.0 0.0 4.643754E-01 0.0 0.0 16 G 0.0 0.0 0.0 4.340352E-01 0.0 0.0 17 G 0.0 0.0 0.0 3.804015E-01 0.0 0.0 18 G 0.0 0.0 0.0 3.053112E-01 0.0 0.0 19 G 0.0 0.0 0.0 2.131538E-01 0.0 0.0 20 G 0.0 0.0 0.0 1.088914E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 -6.499213E-01 -3.575210E-01 0.0 0.0 65 G 0.0 0.0 -6.318663E-01 -3.477106E-01 -7.180278E-02 0.0 66 G 0.0 0.0 -5.788013E-01 -3.187308E-01 -1.388696E-01 0.0 67 G 0.0 0.0 -4.940598E-01 -2.720947E-01 -1.979970E-01 0.0 68 G 0.0 0.0 -3.821960E-01 -2.103633E-01 -2.464414E-01 0.0 69 G 0.0 0.0 -2.492118E-01 -1.371092E-01 -2.823133E-01 0.0 70 G 0.0 0.0 -1.019550E-01 -5.638435E-02 -3.025285E-01 0.0 71 G 0.0 0.0 5.094434E-02 2.758151E-02 -3.051325E-01 0.0 72 G 0.0 0.0 2.009621E-01 1.102610E-01 -2.908225E-01 0.0 73 G 0.0 0.0 3.396339E-01 1.868566E-01 -2.603267E-01 0.0 74 G 0.0 0.0 4.594099E-01 2.527112E-01 -2.155862E-01 0.0 75 G 0.0 0.0 5.537558E-01 3.042615E-01 -1.594978E-01 0.0 76 G 0.0 0.0 6.177545E-01 3.393674E-01 -9.454498E-02 0.0 77 G 0.0 0.0 6.475680E-01 3.561930E-01 -2.406538E-02 0.0 78 G 0.0 0.0 6.416357E-01 3.532121E-01 4.777397E-02 0.0 79 G 0.0 0.0 6.001576E-01 3.306193E-01 1.168870E-01 0.0 80 G 0.0 0.0 5.256610E-01 2.895939E-01 1.792449E-01 0.0 81 G 0.0 0.0 4.222110E-01 2.324696E-01 2.317385E-01 0.0 82 G 0.0 0.0 2.954330E-01 1.625768E-01 2.723475E-01 0.0 83 G 0.0 0.0 1.518725E-01 8.372784E-02 2.977854E-01 0.0 84 G 0.0 0.0 0.0 0.0 3.057666E-01 0.0 127 G 0.0 0.0 -9.879019E-01 -7.375669E-02 0.0 0.0 128 G 0.0 0.0 -9.604890E-01 -7.176004E-02 -1.088697E-01 0.0 129 G 0.0 0.0 -8.800576E-01 -6.590366E-02 -2.106489E-01 0.0 130 G 0.0 0.0 -7.512607E-01 -5.669199E-02 -3.013942E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -5.807648E-01 -4.394825E-02 -3.758796E-01 0.0 132 G 0.0 0.0 -3.781186E-01 -2.837857E-02 -4.295101E-01 0.0 133 G 0.0 0.0 -1.544140E-01 -1.140644E-02 -4.592650E-01 0.0 134 G 0.0 0.0 7.776684E-02 6.021157E-03 -4.634856E-01 0.0 135 G 0.0 0.0 3.057279E-01 2.296246E-02 -4.422440E-01 0.0 136 G 0.0 0.0 5.167917E-01 3.856529E-02 -3.965617E-01 0.0 137 G 0.0 0.0 6.992509E-01 5.222173E-02 -3.281711E-01 0.0 138 G 0.0 0.0 8.426129E-01 6.314839E-02 -2.418155E-01 0.0 139 G 0.0 0.0 9.394794E-01 7.050673E-02 -1.430024E-01 0.0 140 G 0.0 0.0 9.845582E-01 7.370806E-02 -3.629513E-02 0.0 141 G 0.0 0.0 9.755125E-01 7.283144E-02 7.235883E-02 0.0 142 G 0.0 0.0 9.126951E-01 6.829017E-02 1.772184E-01 0.0 143 G 0.0 0.0 7.994654E-01 6.027682E-02 2.729154E-01 0.0 144 G 0.0 0.0 6.417500E-01 4.850781E-02 3.535230E-01 0.0 145 G 0.0 0.0 4.485658E-01 3.369312E-02 4.142671E-01 0.0 146 G 0.0 0.0 2.305429E-01 1.725036E-02 4.519297E-01 0.0 147 G 0.0 0.0 0.0 0.0 4.642937E-01 0.0 190 G 0.0 0.0 -8.530899E-01 2.468235E-01 0.0 0.0 191 G 0.0 0.0 -8.292521E-01 2.395379E-01 -9.449603E-02 0.0 192 G 0.0 0.0 -7.595809E-01 2.192500E-01 -1.821064E-01 0.0 193 G 0.0 0.0 -6.484163E-01 1.872432E-01 -2.598344E-01 0.0 194 G 0.0 0.0 -5.014601E-01 1.449086E-01 -3.241424E-01 0.0 195 G 0.0 0.0 -3.266070E-01 9.446843E-02 -3.707646E-01 0.0 196 G 0.0 0.0 -1.334312E-01 3.862712E-02 -3.967355E-01 0.0 197 G 0.0 0.0 6.716124E-02 -1.907107E-02 -4.003385E-01 0.0 198 G 0.0 0.0 2.639126E-01 -7.552855E-02 -3.814097E-01 0.0 199 G 0.0 0.0 4.458238E-01 -1.279178E-01 -3.416341E-01 0.0 200 G 0.0 0.0 6.031026E-01 -1.737446E-01 -2.832378E-01 0.0 201 G 0.0 0.0 7.270094E-01 -2.097388E-01 -2.091974E-01 0.0 202 G 0.0 0.0 8.108081E-01 -2.340074E-01 -1.237265E-01 0.0 203 G 0.0 0.0 8.498288E-01 -2.452234E-01 -3.137376E-02 0.0 204 G 0.0 0.0 8.419572E-01 -2.428835E-01 6.270753E-02 0.0 205 G 0.0 0.0 7.876331E-01 -2.272776E-01 1.530226E-01 0.0 206 G 0.0 0.0 6.899913E-01 -1.991874E-01 2.351271E-01 0.0 207 G 0.0 0.0 5.541194E-01 -1.599956E-01 3.047537E-01 0.0 208 G 0.0 0.0 3.874826E-01 -1.118169E-01 3.574790E-01 0.0 209 G 0.0 0.0 1.992652E-01 -5.745437E-02 3.903756E-01 0.0 210 G 0.0 0.0 0.0 0.0 4.014289E-01 0.0 253 G 0.0 0.0 -3.093202E-01 4.471922E-01 0.0 0.0 254 G 0.0 0.0 -3.006981E-01 4.350228E-01 -3.421701E-02 0.0 255 G 0.0 0.0 -2.754542E-01 3.985969E-01 -6.600463E-02 0.0 256 G 0.0 0.0 -2.351339E-01 3.401832E-01 -9.432127E-02 0.0 257 G 0.0 0.0 -1.817636E-01 2.629876E-01 -1.176935E-01 0.0 258 G 0.0 0.0 -1.183128E-01 1.712708E-01 -1.344779E-01 0.0 259 G 0.0 0.0 -4.829744E-02 7.005540E-02 -1.436602E-01 0.0 260 G 0.0 0.0 2.434226E-02 -3.516291E-02 -1.451209E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 9.573547E-02 -1.385309E-01 -1.384162E-01 0.0 262 G 0.0 0.0 1.616831E-01 -2.341802E-01 -1.237012E-01 0.0 263 G 0.0 0.0 2.185814E-01 -3.167233E-01 -1.023304E-01 0.0 264 G 0.0 0.0 2.633041E-01 -3.817164E-01 -7.545655E-02 0.0 265 G 0.0 0.0 2.935207E-01 -4.257775E-01 -4.460222E-02 0.0 266 G 0.0 0.0 3.076355E-01 -4.464606E-01 -1.156976E-02 0.0 267 G 0.0 0.0 3.049936E-01 -4.422873E-01 2.221845E-02 0.0 268 G 0.0 0.0 2.855269E-01 -4.134865E-01 5.508630E-02 0.0 269 G 0.0 0.0 2.502670E-01 -3.619420E-01 8.510524E-02 0.0 270 G 0.0 0.0 2.010173E-01 -2.904904E-01 1.105196E-01 0.0 271 G 0.0 0.0 1.405700E-01 -2.030650E-01 1.297209E-01 0.0 272 G 0.0 0.0 7.226314E-02 -1.044498E-01 1.416383E-01 0.0 273 G 0.0 0.0 0.0 0.0 1.455262E-01 0.0 316 G 0.0 0.0 3.826295E-01 4.345918E-01 0.0 0.0 317 G 0.0 0.0 3.721535E-01 4.225100E-01 4.166627E-02 0.0 318 G 0.0 0.0 3.411617E-01 3.871558E-01 8.156501E-02 0.0 319 G 0.0 0.0 2.911821E-01 3.304660E-01 1.169566E-01 0.0 320 G 0.0 0.0 2.250926E-01 2.553718E-01 1.456739E-01 0.0 321 G 0.0 0.0 1.466174E-01 1.660128E-01 1.660780E-01 0.0 322 G 0.0 0.0 6.019425E-02 6.767391E-02 1.774943E-01 0.0 323 G 0.0 0.0 -2.964399E-02 -3.421630E-02 1.794336E-01 0.0 324 G 0.0 0.0 -1.179537E-01 -1.343055E-01 1.715418E-01 0.0 325 G 0.0 0.0 -1.999176E-01 -2.270386E-01 1.540533E-01 0.0 326 G 0.0 0.0 -2.708249E-01 -3.072689E-01 1.277410E-01 0.0 327 G 0.0 0.0 -3.266995E-01 -3.705474E-01 9.421688E-02 0.0 328 G 0.0 0.0 -3.644161E-01 -4.133030E-01 5.580809E-02 0.0 329 G 0.0 0.0 -3.820845E-01 -4.331461E-01 1.425343E-02 0.0 330 G 0.0 0.0 -3.785032E-01 -4.291160E-01 -2.842178E-02 0.0 331 G 0.0 0.0 -3.539168E-01 -4.014606E-01 -6.932799E-02 0.0 332 G 0.0 0.0 -3.097159E-01 -3.516722E-01 -1.062395E-01 0.0 333 G 0.0 0.0 -2.484748E-01 -2.822713E-01 -1.371357E-01 0.0 334 G 0.0 0.0 -1.736082E-01 -1.971333E-01 -1.602932E-01 0.0 335 G 0.0 0.0 -8.931088E-02 -1.012123E-01 -1.748172E-01 0.0 336 G 0.0 0.0 0.0 0.0 -1.800073E-01 0.0 379 G 0.0 0.0 8.910991E-01 2.135947E-01 0.0 0.0 380 G 0.0 0.0 8.665490E-01 2.076717E-01 9.760470E-02 0.0 381 G 0.0 0.0 7.941368E-01 1.902629E-01 1.901514E-01 0.0 382 G 0.0 0.0 6.778047E-01 1.623283E-01 2.720571E-01 0.0 383 G 0.0 0.0 5.240393E-01 1.254976E-01 3.390473E-01 0.0 384 G 0.0 0.0 3.412403E-01 8.178541E-02 3.872467E-01 0.0 385 G 0.0 0.0 1.396385E-01 3.351891E-02 4.138977E-01 0.0 386 G 0.0 0.0 -6.968839E-02 -1.667552E-02 4.178566E-01 0.0 387 G 0.0 0.0 -2.751916E-01 -6.593062E-02 3.987801E-01 0.0 388 G 0.0 0.0 -4.655628E-01 -1.114118E-01 3.576689E-01 0.0 389 G 0.0 0.0 -6.302662E-01 -1.506301E-01 2.968482E-01 0.0 390 G 0.0 0.0 -7.602251E-01 -1.816640E-01 2.194592E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 -8.480927E-01 -2.028058E-01 1.297328E-01 0.0 392 G 0.0 0.0 -8.890039E-01 -2.127064E-01 3.279408E-02 0.0 393 G 0.0 0.0 -8.806616E-01 -2.108083E-01 -6.587889E-02 0.0 394 G 0.0 0.0 -8.236475E-01 -1.972215E-01 -1.606956E-01 0.0 395 G 0.0 0.0 -7.211625E-01 -1.727140E-01 -2.464983E-01 0.0 396 G 0.0 0.0 -5.789057E-01 -1.387102E-01 -3.188789E-01 0.0 397 G 0.0 0.0 -4.046121E-01 -9.706588E-02 -3.736083E-01 0.0 398 G 0.0 0.0 -2.080476E-01 -4.998581E-02 -4.075270E-01 0.0 399 G 0.0 0.0 0.0 0.0 -4.191557E-01 0.0 442 G 0.0 0.0 9.722588E-01 -1.097283E-01 0.0 0.0 443 G 0.0 0.0 9.455553E-01 -1.066434E-01 1.062813E-01 0.0 444 G 0.0 0.0 8.665680E-01 -9.759264E-02 2.076299E-01 0.0 445 G 0.0 0.0 7.394707E-01 -8.330946E-02 2.972891E-01 0.0 446 G 0.0 0.0 5.715124E-01 -6.456706E-02 3.701474E-01 0.0 447 G 0.0 0.0 3.720415E-01 -4.218755E-02 4.224430E-01 0.0 448 G 0.0 0.0 1.521273E-01 -1.739673E-02 4.514950E-01 0.0 449 G 0.0 0.0 -7.621551E-02 8.435761E-03 4.558484E-01 0.0 450 G 0.0 0.0 -3.004247E-01 3.384856E-02 4.351282E-01 0.0 451 G 0.0 0.0 -5.081223E-01 5.735113E-02 3.900861E-01 0.0 452 G 0.0 0.0 -6.876614E-01 7.764291E-02 3.234319E-01 0.0 453 G 0.0 0.0 -8.292280E-01 9.367730E-02 2.390596E-01 0.0 454 G 0.0 0.0 -9.249538E-01 1.046213E-01 1.413680E-01 0.0 455 G 0.0 0.0 -9.695622E-01 1.097849E-01 3.585069E-02 0.0 456 G 0.0 0.0 -9.605477E-01 1.087543E-01 -7.165456E-02 0.0 457 G 0.0 0.0 -8.984170E-01 1.015996E-01 -1.752846E-01 0.0 458 G 0.0 0.0 -7.865607E-01 8.895513E-02 -2.690958E-01 0.0 459 G 0.0 0.0 -6.313115E-01 7.152070E-02 -3.478519E-01 0.0 460 G 0.0 0.0 -4.412476E-01 5.006702E-02 -4.073572E-01 0.0 461 G 0.0 0.0 -2.269031E-01 2.577843E-02 -4.444435E-01 0.0 462 G 0.0 0.0 0.0 0.0 -4.571745E-01 0.0 505 G 0.0 0.0 5.878385E-01 -3.804987E-01 0.0 0.0 506 G 0.0 0.0 5.716102E-01 -3.700379E-01 6.441392E-02 0.0 507 G 0.0 0.0 5.238349E-01 -3.391781E-01 1.255251E-01 0.0 508 G 0.0 0.0 4.469773E-01 -2.895482E-01 1.798176E-01 0.0 509 G 0.0 0.0 3.453836E-01 -2.238660E-01 2.239073E-01 0.0 510 G 0.0 0.0 2.247247E-01 -1.457943E-01 2.555110E-01 0.0 511 G 0.0 0.0 9.172839E-02 -5.978263E-02 2.730021E-01 0.0 512 G 0.0 0.0 -4.628759E-02 2.945352E-02 2.753907E-01 0.0 513 G 0.0 0.0 -1.816777E-01 1.171631E-01 2.626968E-01 0.0 514 G 0.0 0.0 -3.070895E-01 1.985777E-01 2.356023E-01 0.0 515 G 0.0 0.0 -4.155534E-01 2.689797E-01 1.954229E-01 0.0 516 G 0.0 0.0 -5.010746E-01 3.244902E-01 1.443605E-01 0.0 517 G 0.0 0.0 -5.588367E-01 3.620324E-01 8.518466E-02 0.0 518 G 0.0 0.0 -5.856349E-01 3.795666E-01 2.127384E-02 0.0 519 G 0.0 0.0 -5.800056E-01 3.761566E-01 -4.355707E-02 0.0 520 G 0.0 0.0 -5.424078E-01 3.519990E-01 -1.059090E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -4.748521E-01 3.083355E-01 -1.625028E-01 0.0 522 G 0.0 0.0 -3.811140E-01 2.475440E-01 -2.100184E-01 0.0 523 G 0.0 0.0 -2.663676E-01 1.730026E-01 -2.459172E-01 0.0 524 G 0.0 0.0 -1.369717E-01 8.895218E-02 -2.682931E-01 0.0 525 G 0.0 0.0 0.0 0.0 -2.759750E-01 0.0 568 G 0.0 0.0 -7.825139E-02 -4.687254E-01 0.0 0.0 569 G 0.0 0.0 -7.606673E-02 -4.558217E-01 -8.643044E-03 0.0 570 G 0.0 0.0 -6.973389E-02 -4.177083E-01 -1.647378E-02 0.0 571 G 0.0 0.0 -5.969130E-02 -3.564981E-01 -2.349589E-02 0.0 572 G 0.0 0.0 -4.635295E-02 -2.756029E-01 -2.950048E-02 0.0 573 G 0.0 0.0 -3.038001E-02 -1.794997E-01 -3.400017E-02 0.0 574 G 0.0 0.0 -1.264179E-02 -7.344209E-02 -3.640035E-02 0.0 575 G 0.0 0.0 5.746331E-03 3.671021E-02 -3.673326E-02 0.0 576 G 0.0 0.0 2.384919E-02 1.448169E-01 -3.517026E-02 0.0 577 G 0.0 0.0 4.064970E-02 2.448636E-01 -3.163049E-02 0.0 578 G 0.0 0.0 5.525579E-02 3.313824E-01 -2.638557E-02 0.0 579 G 0.0 0.0 6.685031E-02 3.996882E-01 -1.970218E-02 0.0 580 G 0.0 0.0 7.479863E-02 4.459887E-01 -1.183982E-02 0.0 581 G 0.0 0.0 7.860286E-02 4.675437E-01 -3.343679E-03 0.0 582 G 0.0 0.0 7.811881E-02 4.631521E-01 5.307741E-03 0.0 583 G 0.0 0.0 7.331837E-02 4.331982E-01 1.374608E-02 0.0 584 G 0.0 0.0 6.444854E-02 3.793356E-01 2.155279E-02 0.0 585 G 0.0 0.0 5.188941E-02 3.045398E-01 2.833509E-02 0.0 586 G 0.0 0.0 3.631622E-02 2.129286E-01 3.357168E-02 0.0 587 G 0.0 0.0 1.862749E-02 1.095130E-01 3.662561E-02 0.0 588 G 0.0 0.0 0.0 0.0 3.744583E-02 0.0 631 G 0.0 0.0 -7.067467E-01 -3.323807E-01 0.0 0.0 632 G 0.0 0.0 -6.872219E-01 -3.231540E-01 -7.756542E-02 0.0 633 G 0.0 0.0 -6.297791E-01 -2.961153E-01 -1.506626E-01 0.0 634 G 0.0 0.0 -5.376353E-01 -2.526611E-01 -2.155160E-01 0.0 635 G 0.0 0.0 -4.158181E-01 -1.951872E-01 -2.685151E-01 0.0 636 G 0.0 0.0 -2.710520E-01 -1.270312E-01 -3.068084E-01 0.0 637 G 0.0 0.0 -1.112277E-01 -5.195390E-02 -3.282413E-01 0.0 638 G 0.0 0.0 5.479555E-02 2.604219E-02 -3.315049E-01 0.0 639 G 0.0 0.0 2.178528E-01 1.026460E-01 -3.163835E-01 0.0 640 G 0.0 0.0 3.688565E-01 1.736158E-01 -2.836794E-01 0.0 641 G 0.0 0.0 4.994692E-01 2.350077E-01 -2.353074E-01 0.0 642 G 0.0 0.0 6.024976E-01 2.833681E-01 -1.741760E-01 0.0 643 G 0.0 0.0 6.723755E-01 3.160225E-01 -1.034217E-01 0.0 644 G 0.0 0.0 7.051264E-01 3.312255E-01 -2.674405E-02 0.0 645 G 0.0 0.0 6.989217E-01 3.281859E-01 5.144658E-02 0.0 646 G 0.0 0.0 6.540364E-01 3.070148E-01 1.268932E-01 0.0 647 G 0.0 0.0 5.729359E-01 2.687905E-01 1.953931E-01 0.0 648 G 0.0 0.0 4.600734E-01 2.156407E-01 2.530460E-01 0.0 649 G 0.0 0.0 3.217257E-01 1.506809E-01 2.967702E-01 0.0 650 G 0.0 0.0 1.654620E-01 7.749747E-02 3.241270E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 3.333513E-01 0.0 694 G 0.0 0.0 -9.962265E-01 -3.685114E-02 0.0 0.0 695 G 0.0 0.0 -9.686863E-01 -3.573159E-02 -1.093839E-01 0.0 696 G 0.0 0.0 -8.877025E-01 -3.267774E-02 -2.123852E-01 0.0 697 G 0.0 0.0 -7.577978E-01 -2.787544E-02 -3.038987E-01 0.0 698 G 0.0 0.0 -5.859812E-01 -2.158106E-02 -3.788033E-01 0.0 699 G 0.0 0.0 -3.817566E-01 -1.406243E-02 -4.327420E-01 0.0 700 G 0.0 0.0 -1.563785E-01 -5.705391E-03 -4.627976E-01 0.0 701 G 0.0 0.0 7.766469E-02 2.996569E-03 -4.672304E-01 0.0 702 G 0.0 0.0 3.074450E-01 1.145646E-02 -4.458274E-01 0.0 703 G 0.0 0.0 5.202591E-01 1.921735E-02 -3.998577E-01 0.0 704 G 0.0 0.0 7.043912E-01 2.598893E-02 -3.317688E-01 0.0 705 G 0.0 0.0 8.496057E-01 3.139672E-02 -2.452932E-01 0.0 706 G 0.0 0.0 9.478977E-01 3.502724E-02 -1.452634E-01 0.0 707 G 0.0 0.0 9.938113E-01 3.667830E-02 -3.721448E-02 0.0 708 G 0.0 0.0 9.848456E-01 3.627047E-02 7.286320E-02 0.0 709 G 0.0 0.0 9.214666E-01 3.385724E-02 1.789692E-01 0.0 710 G 0.0 0.0 8.071324E-01 2.963125E-02 2.754253E-01 0.0 711 G 0.0 0.0 6.480401E-01 2.382084E-02 3.567014E-01 0.0 712 G 0.0 0.0 4.530554E-01 1.669257E-02 4.181223E-01 0.0 713 G 0.0 0.0 2.329657E-01 8.596987E-03 4.564013E-01 0.0 714 G 0.0 0.0 0.0 0.0 4.693387E-01 0.0 757 G 0.0 0.0 -8.081465E-01 2.762674E-01 0.0 0.0 758 G 0.0 0.0 -7.857888E-01 2.685765E-01 -8.882818E-02 0.0 759 G 0.0 0.0 -7.200222E-01 2.461211E-01 -1.724603E-01 0.0 760 G 0.0 0.0 -6.145790E-01 2.101681E-01 -2.465857E-01 0.0 761 G 0.0 0.0 -4.752026E-01 1.625773E-01 -3.072422E-01 0.0 762 G 0.0 0.0 -3.095511E-01 1.059641E-01 -3.510421E-01 0.0 763 G 0.0 0.0 -1.266994E-01 4.345362E-02 -3.755291E-01 0.0 764 G 0.0 0.0 6.323877E-02 -2.147758E-02 -3.792384E-01 0.0 765 G 0.0 0.0 2.497354E-01 -8.518964E-02 -3.617714E-01 0.0 766 G 0.0 0.0 4.223723E-01 -1.441632E-01 -3.242888E-01 0.0 767 G 0.0 0.0 5.716897E-01 -1.951943E-01 -2.690297E-01 0.0 768 G 0.0 0.0 6.894369E-01 -2.355007E-01 -1.988931E-01 0.0 769 G 0.0 0.0 7.691355E-01 -2.628111E-01 -1.177834E-01 0.0 770 G 0.0 0.0 8.063595E-01 -2.755337E-01 -3.014145E-02 0.0 771 G 0.0 0.0 7.990354E-01 -2.729711E-01 5.927996E-02 0.0 772 G 0.0 0.0 7.475045E-01 -2.553945E-01 1.454347E-01 0.0 773 G 0.0 0.0 6.546604E-01 -2.237704E-01 2.235276E-01 0.0 774 G 0.0 0.0 5.255991E-01 -1.797243E-01 2.892984E-01 0.0 775 G 0.0 0.0 3.674646E-01 -1.256922E-01 3.391100E-01 0.0 776 G 0.0 0.0 1.889586E-01 -6.466107E-02 3.701861E-01 0.0 777 G 0.0 0.0 0.0 0.0 3.806841E-01 0.0 820 G 0.0 0.0 -2.332367E-01 4.568155E-01 0.0 0.0 821 G 0.0 0.0 -2.267524E-01 4.441704E-01 -2.571671E-02 0.0 822 G 0.0 0.0 -2.077485E-01 4.069902E-01 -4.978951E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 -1.773202E-01 3.473912E-01 -7.115261E-02 0.0 824 G 0.0 0.0 -1.371009E-01 2.685710E-01 -8.864663E-02 0.0 825 G 0.0 0.0 -8.931134E-02 1.749356E-01 -1.012789E-01 0.0 826 G 0.0 0.0 -3.656138E-02 7.161114E-02 -1.083133E-01 0.0 827 G 0.0 0.0 1.821462E-02 -3.567435E-02 -1.093834E-01 0.0 828 G 0.0 0.0 7.202370E-02 -1.411311E-01 -1.043993E-01 0.0 829 G 0.0 0.0 1.218533E-01 -2.387629E-01 -9.363480E-02 0.0 830 G 0.0 0.0 1.649730E-01 -3.232009E-01 -7.766975E-02 0.0 831 G 0.0 0.0 1.989463E-01 -3.897515E-01 -5.734703E-02 0.0 832 G 0.0 0.0 2.219068E-01 -4.347788E-01 -3.387149E-02 0.0 833 G 0.0 0.0 2.326007E-01 -4.557811E-01 -8.693589E-03 0.0 834 G 0.0 0.0 2.305276E-01 -4.516589E-01 1.700142E-02 0.0 835 G 0.0 0.0 2.156940E-01 -4.225599E-01 4.192498E-02 0.0 836 G 0.0 0.0 1.889177E-01 -3.700972E-01 6.449658E-02 0.0 837 G 0.0 0.0 1.516711E-01 -2.971038E-01 8.348637E-02 0.0 838 G 0.0 0.0 1.060367E-01 -2.076974E-01 9.787256E-02 0.0 839 G 0.0 0.0 5.451548E-02 -1.067900E-01 1.068256E-01 0.0 840 G 0.0 0.0 0.0 0.0 1.098120E-01 0.0 841 G 0.0 0.0 0.0 4.699495E-01 0.0 0.0 842 G 0.0 0.0 0.0 4.568501E-01 0.0 0.0 843 G 0.0 0.0 0.0 4.185437E-01 0.0 0.0 844 G 0.0 0.0 0.0 3.572395E-01 0.0 0.0 845 G 0.0 0.0 0.0 2.762113E-01 0.0 0.0 846 G 0.0 0.0 0.0 1.799499E-01 0.0 0.0 847 G 0.0 0.0 0.0 7.365596E-02 0.0 0.0 848 G 0.0 0.0 0.0 -3.669424E-02 0.0 0.0 849 G 0.0 0.0 0.0 -1.450931E-01 0.0 0.0 850 G 0.0 0.0 0.0 -2.454558E-01 0.0 0.0 851 G 0.0 0.0 0.0 -3.323560E-01 0.0 0.0 852 G 0.0 0.0 0.0 -4.007872E-01 0.0 0.0 853 G 0.0 0.0 0.0 -4.470423E-01 0.0 0.0 854 G 0.0 0.0 0.0 -4.685377E-01 0.0 0.0 855 G 0.0 0.0 0.0 -4.644106E-01 0.0 0.0 856 G 0.0 0.0 0.0 -4.345281E-01 0.0 0.0 857 G 0.0 0.0 0.0 -3.806037E-01 0.0 0.0 858 G 0.0 0.0 0.0 -3.055690E-01 0.0 0.0 859 G 0.0 0.0 0.0 -2.136489E-01 0.0 0.0 860 G 0.0 0.0 0.0 -1.098318E-01 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 4.527765E-01 0.0 0.0 2 G 0.0 0.0 0.0 4.845231E-01 0.0 0.0 3 G 0.0 0.0 0.0 5.146841E-01 0.0 0.0 4 G 0.0 0.0 0.0 3.985029E-01 0.0 0.0 5 G 0.0 0.0 0.0 3.154158E-01 0.0 0.0 6 G 0.0 0.0 0.0 2.492074E-01 0.0 0.0 7 G 0.0 0.0 0.0 2.461495E-01 0.0 0.0 8 G 0.0 0.0 0.0 6.592649E-02 0.0 0.0 9 G 0.0 0.0 0.0 -4.793906E-02 0.0 0.0 10 G 0.0 0.0 0.0 -1.850065E-01 0.0 0.0 11 G 0.0 0.0 0.0 -2.807752E-01 0.0 0.0 12 G 0.0 0.0 0.0 -3.531848E-01 0.0 0.0 13 G 0.0 0.0 0.0 -3.483678E-01 0.0 0.0 14 G 0.0 0.0 0.0 -4.048007E-01 0.0 0.0 15 G 0.0 0.0 0.0 -4.404873E-01 0.0 0.0 16 G 0.0 0.0 0.0 -4.589790E-01 0.0 0.0 17 G 0.0 0.0 0.0 -3.488607E-01 0.0 0.0 18 G 0.0 0.0 0.0 -2.866853E-01 0.0 0.0 19 G 0.0 0.0 0.0 -2.399426E-01 0.0 0.0 20 G 0.0 0.0 0.0 -2.306159E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 5.948777E-01 3.215638E-01 0.0 0.0 65 G 0.0 0.0 5.927671E-01 3.017612E-01 -5.690660E-04 0.0 66 G 0.0 0.0 5.713000E-01 2.573175E-01 1.139949E-01 0.0 67 G 0.0 0.0 4.717889E-01 2.044920E-01 2.605722E-01 0.0 68 G 0.0 0.0 3.202071E-01 1.493269E-01 3.511686E-01 0.0 69 G 0.0 0.0 1.534367E-01 7.133383E-02 2.618705E-01 0.0 70 G 0.0 0.0 5.741364E-02 -2.491802E-02 1.645474E-01 0.0 71 G 0.0 0.0 -3.607767E-02 -9.865721E-02 1.919723E-01 0.0 72 G 0.0 0.0 -1.330008E-01 -1.285674E-01 2.166995E-01 0.0 73 G 0.0 0.0 -2.544112E-01 -1.475303E-01 2.472924E-01 0.0 74 G 0.0 0.0 -3.768889E-01 -2.187791E-01 2.437195E-01 0.0 75 G 0.0 0.0 -4.813615E-01 -3.272774E-01 1.426251E-01 0.0 76 G 0.0 0.0 -5.181417E-01 -3.605902E-01 4.309331E-02 0.0 77 G 0.0 0.0 -5.316878E-01 -3.017735E-01 -1.084138E-02 0.0 78 G 0.0 0.0 -5.094262E-01 -2.448193E-01 -5.703802E-02 0.0 79 G 0.0 0.0 -4.731700E-01 -1.893061E-01 -1.106009E-01 0.0 80 G 0.0 0.0 -3.905445E-01 -1.495128E-01 -2.007174E-01 0.0 81 G 0.0 0.0 -2.747032E-01 -1.179751E-01 -2.724914E-01 0.0 82 G 0.0 0.0 -1.460354E-01 -7.021932E-02 -1.904925E-01 0.0 83 G 0.0 0.0 -8.063018E-02 -1.606095E-02 -1.177995E-01 0.0 84 G 0.0 0.0 0.0 0.0 -1.920764E-01 0.0 127 G 0.0 0.0 7.598825E-01 -1.745203E-01 0.0 0.0 128 G 0.0 0.0 7.542871E-01 -1.776357E-01 3.097615E-02 0.0 129 G 0.0 0.0 6.942222E-01 -1.901861E-01 2.204408E-01 0.0 130 G 0.0 0.0 5.529193E-01 -2.382680E-01 3.025596E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 4.084012E-01 -2.150578E-01 3.033522E-01 0.0 132 G 0.0 0.0 2.520719E-01 -1.212818E-01 2.948773E-01 0.0 133 G 0.0 0.0 1.109122E-01 -4.628312E-02 2.872200E-01 0.0 134 G 0.0 0.0 -3.876885E-02 5.028433E-03 2.845332E-01 0.0 135 G 0.0 0.0 -1.676046E-01 3.354732E-02 2.425755E-01 0.0 136 G 0.0 0.0 -2.804809E-01 5.072011E-02 1.880945E-01 0.0 137 G 0.0 0.0 -3.783680E-01 9.398667E-02 2.446511E-01 0.0 138 G 0.0 0.0 -5.187301E-01 1.562640E-01 2.646722E-01 0.0 139 G 0.0 0.0 -6.163197E-01 1.980991E-01 1.370198E-01 0.0 140 G 0.0 0.0 -6.585162E-01 1.890359E-01 4.900124E-03 0.0 141 G 0.0 0.0 -6.220984E-01 1.674889E-01 -1.313595E-01 0.0 142 G 0.0 0.0 -5.338045E-01 1.890133E-01 -2.246223E-01 0.0 143 G 0.0 0.0 -4.175483E-01 2.430368E-01 -2.066590E-01 0.0 144 G 0.0 0.0 -3.309240E-01 2.167501E-01 -1.770876E-01 0.0 145 G 0.0 0.0 -2.332869E-01 1.207664E-01 -1.884786E-01 0.0 146 G 0.0 0.0 -1.355506E-01 5.134929E-02 -2.217110E-01 0.0 147 G 0.0 0.0 0.0 0.0 -2.969959E-01 0.0 190 G 0.0 0.0 2.381407E-01 -2.818998E-01 0.0 0.0 191 G 0.0 0.0 2.666031E-01 -3.463943E-01 -7.894704E-02 0.0 192 G 0.0 0.0 2.719615E-01 -3.602471E-01 9.473303E-02 0.0 193 G 0.0 0.0 1.820112E-01 -2.977483E-01 2.305007E-01 0.0 194 G 0.0 0.0 7.148554E-02 -2.186883E-01 2.045735E-01 0.0 195 G 0.0 0.0 -1.549682E-02 -1.442987E-01 1.253952E-01 0.0 196 G 0.0 0.0 -5.723343E-02 -9.027751E-02 5.727683E-02 0.0 197 G 0.0 0.0 -8.347302E-02 1.037704E-02 4.845735E-02 0.0 198 G 0.0 0.0 -1.171544E-01 1.390544E-01 9.633068E-02 0.0 199 G 0.0 0.0 -1.748694E-01 2.449010E-01 1.039879E-01 0.0 200 G 0.0 0.0 -2.146206E-01 2.616522E-01 6.888808E-02 0.0 201 G 0.0 0.0 -2.429512E-01 2.993978E-01 3.276850E-02 0.0 202 G 0.0 0.0 -2.439749E-01 3.409907E-01 -1.903249E-02 0.0 203 G 0.0 0.0 -2.267303E-01 3.811757E-01 -5.610778E-02 0.0 204 G 0.0 0.0 -1.894470E-01 3.991777E-01 -8.347747E-02 0.0 205 G 0.0 0.0 -1.369814E-01 3.690089E-01 -1.449111E-01 0.0 206 G 0.0 0.0 -5.512484E-02 3.040814E-01 -1.566707E-01 0.0 207 G 0.0 0.0 3.628080E-03 2.334993E-01 -8.068164E-02 0.0 208 G 0.0 0.0 2.979517E-02 1.691621E-01 -1.191500E-02 0.0 209 G 0.0 0.0 2.052233E-02 9.403726E-02 4.006727E-02 0.0 210 G 0.0 0.0 0.0 0.0 4.022207E-02 0.0 253 G 0.0 0.0 -3.816219E-01 -3.554326E-01 0.0 0.0 254 G 0.0 0.0 -3.674310E-01 -3.187128E-01 -4.960091E-02 0.0 255 G 0.0 0.0 -3.467273E-01 -2.994018E-01 -1.901291E-02 0.0 256 G 0.0 0.0 -3.405978E-01 -2.595101E-01 -2.117899E-02 0.0 257 G 0.0 0.0 -3.146749E-01 -2.038884E-01 -7.215372E-02 0.0 258 G 0.0 0.0 -2.684689E-01 -1.355396E-01 -1.167595E-01 0.0 259 G 0.0 0.0 -2.010323E-01 -6.429936E-02 -1.384621E-01 0.0 260 G 0.0 0.0 -1.226861E-01 -7.935326E-03 -1.923039E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 -1.337432E-02 3.699972E-02 -2.175794E-01 0.0 262 G 0.0 0.0 8.379560E-02 9.200818E-02 -1.770764E-01 0.0 263 G 0.0 0.0 1.690790E-01 1.693259E-01 -1.513426E-01 0.0 264 G 0.0 0.0 2.384313E-01 2.464521E-01 -1.344753E-01 0.0 265 G 0.0 0.0 3.057817E-01 2.866167E-01 -1.305016E-01 0.0 266 G 0.0 0.0 3.739918E-01 2.882570E-01 -1.526064E-01 0.0 267 G 0.0 0.0 4.530742E-01 3.008308E-01 -1.384133E-01 0.0 268 G 0.0 0.0 5.015129E-01 3.230140E-01 -6.127683E-02 0.0 269 G 0.0 0.0 5.062362E-01 3.089214E-01 5.439286E-02 0.0 270 G 0.0 0.0 4.434082E-01 2.608199E-01 1.829850E-01 0.0 271 G 0.0 0.0 3.278819E-01 1.839345E-01 2.814277E-01 0.0 272 G 0.0 0.0 1.689570E-01 9.022918E-02 3.381711E-01 0.0 273 G 0.0 0.0 0.0 0.0 3.338228E-01 0.0 316 G 0.0 0.0 -5.657523E-01 7.979377E-02 0.0 0.0 317 G 0.0 0.0 -5.445532E-01 6.599781E-02 -7.834408E-02 0.0 318 G 0.0 0.0 -5.024529E-01 5.927652E-02 -7.650695E-02 0.0 319 G 0.0 0.0 -4.660878E-01 5.800986E-02 -7.956720E-02 0.0 320 G 0.0 0.0 -4.145972E-01 3.271690E-02 -1.222788E-01 0.0 321 G 0.0 0.0 -3.335433E-01 -1.575103E-02 -2.111328E-01 0.0 322 G 0.0 0.0 -2.057726E-01 -3.134058E-02 -2.718097E-01 0.0 323 G 0.0 0.0 -6.957021E-02 -1.317845E-02 -2.768380E-01 0.0 324 G 0.0 0.0 6.811376E-02 -3.646143E-03 -2.593377E-01 0.0 325 G 0.0 0.0 1.918571E-01 4.839647E-04 -2.461591E-01 0.0 326 G 0.0 0.0 3.214858E-01 2.070377E-03 -2.625051E-01 0.0 327 G 0.0 0.0 4.555628E-01 2.630946E-03 -2.792127E-01 0.0 328 G 0.0 0.0 5.873534E-01 1.229180E-02 -2.203137E-01 0.0 329 G 0.0 0.0 6.739594E-01 3.334741E-02 -1.450042E-01 0.0 330 G 0.0 0.0 7.377194E-01 4.288889E-02 -9.837945E-02 0.0 331 G 0.0 0.0 7.618183E-01 3.562745E-02 -5.119103E-03 0.0 332 G 0.0 0.0 7.354692E-01 1.674305E-02 1.201294E-01 0.0 333 G 0.0 0.0 6.381693E-01 2.186840E-02 2.617965E-01 0.0 334 G 0.0 0.0 4.716446E-01 4.472414E-02 4.080910E-01 0.0 335 G 0.0 0.0 2.404049E-01 4.684559E-02 4.872451E-01 0.0 336 G 0.0 0.0 0.0 0.0 4.756863E-01 0.0 379 G 0.0 0.0 -1.457179E-01 4.334917E-01 0.0 0.0 380 G 0.0 0.0 -1.406525E-01 4.175569E-01 -1.247164E-02 0.0 381 G 0.0 0.0 -1.420566E-01 3.758257E-01 2.019833E-02 0.0 382 G 0.0 0.0 -1.543704E-01 3.109978E-01 2.014314E-02 0.0 383 G 0.0 0.0 -1.613555E-01 2.406063E-01 2.160110E-02 0.0 384 G 0.0 0.0 -1.693479E-01 1.665605E-01 -2.957579E-03 0.0 385 G 0.0 0.0 -1.503911E-01 8.073569E-02 -6.509155E-02 0.0 386 G 0.0 0.0 -1.081761E-01 -1.734280E-02 -1.082092E-01 0.0 387 G 0.0 0.0 -4.326462E-02 -1.075552E-01 -1.435714E-01 0.0 388 G 0.0 0.0 3.532337E-02 -1.677967E-01 -1.712209E-01 0.0 389 G 0.0 0.0 1.243795E-01 -1.988124E-01 -1.754432E-01 0.0 390 G 0.0 0.0 2.110050E-01 -2.368230E-01 -1.836582E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 96 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 3.086851E-01 -2.818998E-01 -1.981290E-01 0.0 392 G 0.0 0.0 4.052537E-01 -3.055593E-01 -1.907931E-01 0.0 393 G 0.0 0.0 4.921924E-01 -3.060420E-01 -1.442036E-01 0.0 394 G 0.0 0.0 5.386860E-01 -2.850708E-01 -4.325037E-02 0.0 395 G 0.0 0.0 5.289930E-01 -2.470134E-01 8.866687E-02 0.0 396 G 0.0 0.0 4.557785E-01 -2.048330E-01 1.869693E-01 0.0 397 G 0.0 0.0 3.433012E-01 -1.571364E-01 2.733997E-01 0.0 398 G 0.0 0.0 1.821879E-01 -9.149776E-02 3.570678E-01 0.0 399 G 0.0 0.0 0.0 0.0 3.693891E-01 0.0 442 G 0.0 0.0 5.156363E-01 4.425480E-01 0.0 0.0 443 G 0.0 0.0 5.139745E-01 4.365648E-01 3.209266E-02 0.0 444 G 0.0 0.0 4.577983E-01 4.141146E-01 1.967215E-01 0.0 445 G 0.0 0.0 3.268727E-01 3.418795E-01 3.038136E-01 0.0 446 G 0.0 0.0 1.707309E-01 2.272426E-01 3.192316E-01 0.0 447 G 0.0 0.0 1.791115E-02 1.099232E-01 2.804787E-01 0.0 448 G 0.0 0.0 -1.063586E-01 -7.765651E-04 2.228891E-01 0.0 449 G 0.0 0.0 -2.077743E-01 -9.775409E-02 1.767562E-01 0.0 450 G 0.0 0.0 -2.836938E-01 -1.801844E-01 1.307539E-01 0.0 451 G 0.0 0.0 -3.296814E-01 -2.563620E-01 3.555055E-02 0.0 452 G 0.0 0.0 -3.194545E-01 -3.225942E-01 -6.271624E-02 0.0 453 G 0.0 0.0 -2.751178E-01 -3.645749E-01 -1.202147E-01 0.0 454 G 0.0 0.0 -2.005334E-01 -3.729070E-01 -1.687091E-01 0.0 455 G 0.0 0.0 -1.118156E-01 -3.610242E-01 -1.890607E-01 0.0 456 G 0.0 0.0 -1.807818E-02 -3.499728E-01 -1.800541E-01 0.0 457 G 0.0 0.0 6.514607E-02 -3.391214E-01 -1.578407E-01 0.0 458 G 0.0 0.0 1.332904E-01 -2.934752E-01 -9.742488E-02 0.0 459 G 0.0 0.0 1.569755E-01 -2.154566E-01 -2.453721E-03 0.0 460 G 0.0 0.0 1.365665E-01 -1.381634E-01 8.966821E-02 0.0 461 G 0.0 0.0 7.402887E-02 -6.544403E-02 1.483210E-01 0.0 462 G 0.0 0.0 0.0 0.0 1.481996E-01 0.0 505 G 0.0 0.0 9.758644E-01 1.074777E-01 0.0 0.0 506 G 0.0 0.0 9.363583E-01 9.456564E-02 1.457364E-01 0.0 507 G 0.0 0.0 8.241476E-01 6.508118E-02 3.134233E-01 0.0 508 G 0.0 0.0 6.252720E-01 3.263392E-02 4.652624E-01 0.0 509 G 0.0 0.0 3.752095E-01 3.411601E-03 5.297817E-01 0.0 510 G 0.0 0.0 1.076447E-01 -2.524807E-02 5.247158E-01 0.0 511 G 0.0 0.0 -1.422672E-01 -7.140662E-02 4.703087E-01 0.0 512 G 0.0 0.0 -3.559935E-01 -1.261732E-01 3.711225E-01 0.0 513 G 0.0 0.0 -5.125470E-01 -1.588376E-01 2.630365E-01 0.0 514 G 0.0 0.0 -6.204671E-01 -1.555466E-01 1.576451E-01 0.0 515 G 0.0 0.0 -6.698881E-01 -1.495080E-01 4.200939E-02 0.0 516 G 0.0 0.0 -6.640303E-01 -1.396407E-01 -7.275753E-02 0.0 517 G 0.0 0.0 -5.988918E-01 -1.284202E-01 -1.829108E-01 0.0 518 G 0.0 0.0 -4.873455E-01 -1.117269E-01 -2.637152E-01 0.0 519 G 0.0 0.0 -3.496836E-01 -8.607997E-02 -2.692269E-01 0.0 520 G 0.0 0.0 -2.258259E-01 -5.211807E-02 -2.314810E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 97 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -1.194690E-01 -2.602191E-02 -1.852094E-01 0.0 522 G 0.0 0.0 -4.558096E-02 -1.444437E-02 -1.131220E-01 0.0 523 G 0.0 0.0 -5.339085E-03 -1.485255E-02 -4.186428E-02 0.0 524 G 0.0 0.0 2.823182E-03 -8.285612E-03 4.697385E-03 0.0 525 G 0.0 0.0 0.0 0.0 8.613319E-03 0.0 568 G 0.0 0.0 8.599129E-01 -2.550915E-01 0.0 0.0 569 G 0.0 0.0 8.228088E-01 -2.556711E-01 1.527476E-01 0.0 570 G 0.0 0.0 7.007446E-01 -2.400004E-01 3.382485E-01 0.0 571 G 0.0 0.0 4.938181E-01 -2.099142E-01 4.724491E-01 0.0 572 G 0.0 0.0 2.448062E-01 -1.715128E-01 5.155123E-01 0.0 573 G 0.0 0.0 -9.167851E-03 -1.279070E-01 4.866827E-01 0.0 574 G 0.0 0.0 -2.401743E-01 -7.286264E-02 4.416560E-01 0.0 575 G 0.0 0.0 -4.457658E-01 -9.266121E-03 3.633217E-01 0.0 576 G 0.0 0.0 -5.955839E-01 5.136506E-02 2.351030E-01 0.0 577 G 0.0 0.0 -6.813018E-01 9.962150E-02 9.834344E-02 0.0 578 G 0.0 0.0 -6.947220E-01 1.420826E-01 -4.174631E-02 0.0 579 G 0.0 0.0 -6.429155E-01 1.909175E-01 -1.660364E-01 0.0 580 G 0.0 0.0 -5.375182E-01 2.408083E-01 -2.455988E-01 0.0 581 G 0.0 0.0 -4.048407E-01 2.616463E-01 -2.904759E-01 0.0 582 G 0.0 0.0 -2.541252E-01 2.508562E-01 -3.009332E-01 0.0 583 G 0.0 0.0 -1.122450E-01 2.305104E-01 -2.647836E-01 0.0 584 G 0.0 0.0 3.159415E-03 2.015543E-01 -1.846974E-01 0.0 585 G 0.0 0.0 6.649981E-02 1.656101E-01 -6.895881E-02 0.0 586 G 0.0 0.0 7.379157E-02 1.223640E-01 4.397774E-02 0.0 587 G 0.0 0.0 3.739103E-02 6.649689E-02 8.688784E-02 0.0 588 G 0.0 0.0 0.0 0.0 6.943654E-02 0.0 631 G 0.0 0.0 3.155307E-01 -3.972939E-01 0.0 0.0 632 G 0.0 0.0 2.907413E-01 -3.778876E-01 1.011590E-01 0.0 633 G 0.0 0.0 2.120481E-01 -3.407551E-01 2.154293E-01 0.0 634 G 0.0 0.0 8.363371E-02 -2.737280E-01 2.892078E-01 0.0 635 G 0.0 0.0 -6.821727E-02 -1.805058E-01 3.173699E-01 0.0 636 G 0.0 0.0 -2.228495E-01 -9.156756E-02 2.849398E-01 0.0 637 G 0.0 0.0 -3.440380E-01 -1.194178E-02 2.013194E-01 0.0 638 G 0.0 0.0 -4.197208E-01 7.520216E-02 9.491093E-02 0.0 639 G 0.0 0.0 -4.379300E-01 1.643396E-01 -1.576738E-02 0.0 640 G 0.0 0.0 -4.068791E-01 2.489570E-01 -1.110456E-01 0.0 641 G 0.0 0.0 -3.291489E-01 3.211074E-01 -1.933271E-01 0.0 642 G 0.0 0.0 -2.113208E-01 3.679741E-01 -2.862027E-01 0.0 643 G 0.0 0.0 -4.984359E-02 3.873748E-01 -3.429061E-01 0.0 644 G 0.0 0.0 1.180409E-01 3.879782E-01 -3.264237E-01 0.0 645 G 0.0 0.0 2.690142E-01 3.779887E-01 -2.650970E-01 0.0 646 G 0.0 0.0 3.748428E-01 3.501277E-01 -1.574066E-01 0.0 647 G 0.0 0.0 4.208099E-01 2.925734E-01 -2.181914E-02 0.0 648 G 0.0 0.0 3.976461E-01 2.109641E-01 1.077583E-01 0.0 649 G 0.0 0.0 3.149019E-01 1.364610E-01 2.306119E-01 0.0 650 G 0.0 0.0 1.722557E-01 7.202934E-02 3.285619E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 98 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 3.525772E-01 0.0 694 G 0.0 0.0 -1.796965E-01 -2.480054E-01 0.0 0.0 695 G 0.0 0.0 -1.839169E-01 -2.223606E-01 2.446092E-02 0.0 696 G 0.0 0.0 -2.118702E-01 -1.838559E-01 9.148522E-02 0.0 697 G 0.0 0.0 -2.640817E-01 -1.382613E-01 1.028049E-01 0.0 698 G 0.0 0.0 -3.044142E-01 -8.830086E-02 6.331491E-02 0.0 699 G 0.0 0.0 -3.229547E-01 -2.650612E-02 6.688237E-03 0.0 700 G 0.0 0.0 -3.049986E-01 4.629669E-02 -7.196634E-02 0.0 701 G 0.0 0.0 -2.490803E-01 1.196593E-01 -1.523116E-01 0.0 702 G 0.0 0.0 -1.524422E-01 1.723585E-01 -2.287266E-01 0.0 703 G 0.0 0.0 -1.949428E-02 2.025678E-01 -3.030539E-01 0.0 704 G 0.0 0.0 1.473636E-01 2.297264E-01 -3.502234E-01 0.0 705 G 0.0 0.0 3.247322E-01 2.531635E-01 -3.570881E-01 0.0 706 G 0.0 0.0 4.982671E-01 2.556896E-01 -3.272813E-01 0.0 707 G 0.0 0.0 6.456497E-01 2.386246E-01 -2.618441E-01 0.0 708 G 0.0 0.0 7.550175E-01 2.064510E-01 -1.684503E-01 0.0 709 G 0.0 0.0 8.079048E-01 1.671321E-01 -4.358773E-02 0.0 710 G 0.0 0.0 7.892155E-01 1.327771E-01 1.278119E-01 0.0 711 G 0.0 0.0 6.795428E-01 1.047660E-01 2.987819E-01 0.0 712 G 0.0 0.0 4.977604E-01 7.589971E-02 4.246591E-01 0.0 713 G 0.0 0.0 2.609174E-01 3.998490E-02 5.082230E-01 0.0 714 G 0.0 0.0 0.0 0.0 5.277991E-01 0.0 757 G 0.0 0.0 -2.991401E-01 3.809987E-02 0.0 0.0 758 G 0.0 0.0 -2.925365E-01 3.176709E-02 -2.418576E-02 0.0 759 G 0.0 0.0 -2.826328E-01 4.157759E-02 -8.052646E-03 0.0 760 G 0.0 0.0 -2.816221E-01 6.949490E-02 -3.218064E-03 0.0 761 G 0.0 0.0 -2.721885E-01 9.262398E-02 -3.278367E-02 0.0 762 G 0.0 0.0 -2.425298E-01 1.049089E-01 -9.059940E-02 0.0 763 G 0.0 0.0 -1.767132E-01 1.026376E-01 -1.669784E-01 0.0 764 G 0.0 0.0 -7.509126E-02 8.713911E-02 -2.381439E-01 0.0 765 G 0.0 0.0 5.490436E-02 6.564796E-02 -2.671287E-01 0.0 766 G 0.0 0.0 1.901050E-01 3.860410E-02 -2.774025E-01 0.0 767 G 0.0 0.0 3.338687E-01 -3.408760E-04 -2.893795E-01 0.0 768 G 0.0 0.0 4.750501E-01 -5.332866E-02 -2.753634E-01 0.0 769 G 0.0 0.0 6.052728E-01 -1.086545E-01 -2.378476E-01 0.0 770 G 0.0 0.0 7.082080E-01 -1.482598E-01 -1.716056E-01 0.0 771 G 0.0 0.0 7.698159E-01 -1.682094E-01 -6.736707E-02 0.0 772 G 0.0 0.0 7.719504E-01 -1.847636E-01 5.094643E-02 0.0 773 G 0.0 0.0 7.178863E-01 -1.947371E-01 1.678985E-01 0.0 774 G 0.0 0.0 6.038629E-01 -1.785709E-01 2.808038E-01 0.0 775 G 0.0 0.0 4.388445E-01 -1.379332E-01 3.783803E-01 0.0 776 G 0.0 0.0 2.293813E-01 -7.671046E-02 4.476456E-01 0.0 777 G 0.0 0.0 0.0 0.0 4.631972E-01 0.0 820 G 0.0 0.0 -1.139963E-01 2.043701E-01 0.0 0.0 821 G 0.0 0.0 -1.061780E-01 1.979165E-01 -2.355918E-02 0.0 822 G 0.0 0.0 -9.652528E-02 1.868756E-01 -1.333833E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 99 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 -9.157091E-02 1.795475E-01 -1.078000E-02 0.0 824 G 0.0 0.0 -8.309548E-02 1.594344E-01 -1.991034E-02 0.0 825 G 0.0 0.0 -6.980627E-02 1.323105E-01 -3.654023E-02 0.0 826 G 0.0 0.0 -4.629529E-02 8.953051E-02 -5.376557E-02 0.0 827 G 0.0 0.0 -1.556657E-02 3.380271E-02 -7.325684E-02 0.0 828 G 0.0 0.0 2.658372E-02 -5.426179E-02 -8.825085E-02 0.0 829 G 0.0 0.0 7.214565E-02 -1.447949E-01 -9.652904E-02 0.0 830 G 0.0 0.0 1.217542E-01 -2.360442E-01 -9.421692E-02 0.0 831 G 0.0 0.0 1.636482E-01 -3.170929E-01 -7.457509E-02 0.0 832 G 0.0 0.0 1.959010E-01 -3.872012E-01 -5.037510E-02 0.0 833 G 0.0 0.0 2.174725E-01 -4.374642E-01 -4.577809E-02 0.0 834 G 0.0 0.0 2.392580E-01 -4.712594E-01 -3.011088E-02 0.0 835 G 0.0 0.0 2.423949E-01 -4.719293E-01 1.496962E-02 0.0 836 G 0.0 0.0 2.254599E-01 -4.383324E-01 5.534539E-02 0.0 837 G 0.0 0.0 1.878636E-01 -3.615251E-01 9.021574E-02 0.0 838 G 0.0 0.0 1.355486E-01 -2.588262E-01 1.205999E-01 0.0 839 G 0.0 0.0 6.901411E-02 -1.330947E-01 1.385747E-01 0.0 840 G 0.0 0.0 0.0 0.0 1.366237E-01 0.0 841 G 0.0 0.0 0.0 2.414977E-01 0.0 0.0 842 G 0.0 0.0 0.0 2.201813E-01 0.0 0.0 843 G 0.0 0.0 0.0 1.972373E-01 0.0 0.0 844 G 0.0 0.0 0.0 1.862559E-01 0.0 0.0 845 G 0.0 0.0 0.0 1.682119E-01 0.0 0.0 846 G 0.0 0.0 0.0 1.431339E-01 0.0 0.0 847 G 0.0 0.0 0.0 9.157395E-02 0.0 0.0 848 G 0.0 0.0 0.0 2.941835E-02 0.0 0.0 849 G 0.0 0.0 0.0 -5.507758E-02 0.0 0.0 850 G 0.0 0.0 0.0 -1.433816E-01 0.0 0.0 851 G 0.0 0.0 0.0 -2.479546E-01 0.0 0.0 852 G 0.0 0.0 0.0 -3.304095E-01 0.0 0.0 853 G 0.0 0.0 0.0 -3.948571E-01 0.0 0.0 854 G 0.0 0.0 0.0 -4.305553E-01 0.0 0.0 855 G 0.0 0.0 0.0 -4.814348E-01 0.0 0.0 856 G 0.0 0.0 0.0 -4.875450E-01 0.0 0.0 857 G 0.0 0.0 0.0 -4.559911E-01 0.0 0.0 858 G 0.0 0.0 0.0 -3.803999E-01 0.0 0.0 859 G 0.0 0.0 0.0 -2.771497E-01 0.0 0.0 860 G 0.0 0.0 0.0 -1.397233E-01 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 100 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 1.397587E-01 0.0 0.0 2 G 0.0 0.0 0.0 7.729933E-02 0.0 0.0 3 G 0.0 0.0 0.0 -2.800046E-02 0.0 0.0 4 G 0.0 0.0 0.0 8.038577E-03 0.0 0.0 5 G 0.0 0.0 0.0 -2.271178E-02 0.0 0.0 6 G 0.0 0.0 0.0 -8.699399E-02 0.0 0.0 7 G 0.0 0.0 0.0 -2.271701E-01 0.0 0.0 8 G 0.0 0.0 0.0 -1.365056E-01 0.0 0.0 9 G 0.0 0.0 0.0 -1.019847E-01 0.0 0.0 10 G 0.0 0.0 0.0 -7.454637E-03 0.0 0.0 11 G 0.0 0.0 0.0 7.066049E-02 0.0 0.0 12 G 0.0 0.0 0.0 1.523725E-01 0.0 0.0 13 G 0.0 0.0 0.0 1.663858E-01 0.0 0.0 14 G 0.0 0.0 0.0 2.739400E-01 0.0 0.0 15 G 0.0 0.0 0.0 3.658626E-01 0.0 0.0 16 G 0.0 0.0 0.0 4.379161E-01 0.0 0.0 17 G 0.0 0.0 0.0 3.471570E-01 0.0 0.0 18 G 0.0 0.0 0.0 3.051177E-01 0.0 0.0 19 G 0.0 0.0 0.0 2.709591E-01 0.0 0.0 20 G 0.0 0.0 0.0 2.732781E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 1.837977E-01 4.759255E-02 0.0 0.0 65 G 0.0 0.0 1.532257E-01 5.305983E-02 1.320686E-01 0.0 66 G 0.0 0.0 8.371036E-02 5.341918E-02 1.087885E-01 0.0 67 G 0.0 0.0 5.755448E-02 3.521908E-02 1.907531E-02 0.0 68 G 0.0 0.0 5.907938E-02 7.907707E-04 -3.854670E-02 0.0 69 G 0.0 0.0 6.263065E-02 -1.315238E-02 8.298620E-02 0.0 70 G 0.0 0.0 -1.647780E-02 -1.212155E-04 1.744745E-01 0.0 71 G 0.0 0.0 -7.623853E-02 9.528949E-04 7.943017E-02 0.0 72 G 0.0 0.0 -9.461862E-02 -2.766042E-02 -3.661635E-02 0.0 73 G 0.0 0.0 -3.676880E-02 -4.105286E-02 -1.716873E-01 0.0 74 G 0.0 0.0 7.136843E-02 3.870771E-02 -2.637397E-01 0.0 75 G 0.0 0.0 2.028526E-01 1.899932E-01 -2.235204E-01 0.0 76 G 0.0 0.0 2.881094E-01 2.689704E-01 -1.631917E-01 0.0 77 G 0.0 0.0 3.691186E-01 2.464609E-01 -1.317021E-01 0.0 78 G 0.0 0.0 4.168673E-01 2.282584E-01 -8.242729E-02 0.0 79 G 0.0 0.0 4.452392E-01 2.056753E-01 -8.015884E-04 0.0 80 G 0.0 0.0 4.047300E-01 1.900486E-01 1.415733E-01 0.0 81 G 0.0 0.0 3.056214E-01 1.690512E-01 2.683921E-01 0.0 82 G 0.0 0.0 1.717748E-01 1.128360E-01 2.046606E-01 0.0 83 G 0.0 0.0 9.957087E-02 3.652987E-02 1.414251E-01 0.0 84 G 0.0 0.0 0.0 0.0 2.413460E-01 0.0 127 G 0.0 0.0 2.620242E-01 1.391385E-01 0.0 0.0 128 G 0.0 0.0 2.154011E-01 1.351685E-01 1.740175E-01 0.0 129 G 0.0 0.0 1.349933E-01 1.287151E-01 1.283146E-01 0.0 130 G 0.0 0.0 7.231366E-02 1.560111E-01 1.653102E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 101 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -3.956866E-02 9.298961E-02 2.375834E-01 0.0 132 G 0.0 0.0 -1.560760E-01 -5.196670E-02 2.501973E-01 0.0 133 G 0.0 0.0 -2.750302E-01 -1.623905E-01 1.935244E-01 0.0 134 G 0.0 0.0 -3.360025E-01 -2.264082E-01 7.429148E-02 0.0 135 G 0.0 0.0 -3.511778E-01 -2.417417E-01 -3.435917E-02 0.0 136 G 0.0 0.0 -3.016343E-01 -2.221681E-01 -1.416403E-01 0.0 137 G 0.0 0.0 -1.852847E-01 -2.165325E-01 -3.742118E-01 0.0 138 G 0.0 0.0 5.741655E-02 -2.222345E-01 -5.302730E-01 0.0 139 G 0.0 0.0 3.023066E-01 -1.992842E-01 -4.584888E-01 0.0 140 G 0.0 0.0 5.081480E-01 -1.197076E-01 -3.263769E-01 0.0 141 G 0.0 0.0 6.192498E-01 -3.934305E-02 -1.358057E-01 0.0 142 G 0.0 0.0 6.437830E-01 -3.329629E-02 4.592048E-02 0.0 143 G 0.0 0.0 5.929725E-01 -9.309661E-02 1.194003E-01 0.0 144 G 0.0 0.0 5.281769E-01 -8.189698E-02 1.867609E-01 0.0 145 G 0.0 0.0 4.006986E-01 -9.992760E-03 2.923062E-01 0.0 146 G 0.0 0.0 2.341636E-01 1.100052E-02 3.955950E-01 0.0 147 G 0.0 0.0 0.0 0.0 5.098188E-01 0.0 190 G 0.0 0.0 5.149546E-01 -2.795574E-02 0.0 0.0 191 G 0.0 0.0 4.222712E-01 5.186056E-02 3.259500E-01 0.0 192 G 0.0 0.0 2.503726E-01 7.269472E-02 3.100739E-01 0.0 193 G 0.0 0.0 1.113137E-01 5.499882E-03 2.792329E-01 0.0 194 G 0.0 0.0 -5.050144E-02 -7.329109E-02 3.656953E-01 0.0 195 G 0.0 0.0 -2.466742E-01 -1.341216E-01 4.297961E-01 0.0 196 G 0.0 0.0 -4.610329E-01 -1.548588E-01 3.986305E-01 0.0 197 G 0.0 0.0 -6.204473E-01 -2.158992E-01 2.309995E-01 0.0 198 G 0.0 0.0 -6.714355E-01 -2.951786E-01 -4.274448E-02 0.0 199 G 0.0 0.0 -5.833120E-01 -3.337116E-01 -2.717756E-01 0.0 200 G 0.0 0.0 -4.133997E-01 -2.561322E-01 -4.203210E-01 0.0 201 G 0.0 0.0 -1.750052E-01 -2.045273E-01 -5.114638E-01 0.0 202 G 0.0 0.0 7.934143E-02 -1.667134E-01 -5.083479E-01 0.0 203 G 0.0 0.0 3.209715E-01 -1.451360E-01 -4.409525E-01 0.0 204 G 0.0 0.0 5.076072E-01 -1.222350E-01 -3.087064E-01 0.0 205 G 0.0 0.0 6.108277E-01 -7.196645E-02 -7.539816E-02 0.0 206 G 0.0 0.0 5.898747E-01 -1.344584E-02 1.305275E-01 0.0 207 G 0.0 0.0 4.998693E-01 1.855670E-02 2.316789E-01 0.0 208 G 0.0 0.0 3.589543E-01 1.391216E-02 3.132461E-01 0.0 209 G 0.0 0.0 1.915424E-01 1.068539E-03 3.607910E-01 0.0 210 G 0.0 0.0 0.0 0.0 3.996646E-01 0.0 253 G 0.0 0.0 7.793490E-01 2.179830E-01 0.0 0.0 254 G 0.0 0.0 7.073013E-01 1.750642E-01 2.774232E-01 0.0 255 G 0.0 0.0 5.272287E-01 1.578110E-01 4.198197E-01 0.0 256 G 0.0 0.0 2.914556E-01 1.212297E-01 5.340259E-01 0.0 257 G 0.0 0.0 -2.451017E-03 7.322033E-02 6.193026E-01 0.0 258 G 0.0 0.0 -3.087958E-01 1.947196E-02 6.018798E-01 0.0 259 G 0.0 0.0 -5.830498E-01 -2.653168E-02 4.703335E-01 0.0 260 G 0.0 0.0 -7.748693E-01 -4.274078E-02 3.146502E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 102 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 -8.851699E-01 -3.457057E-02 9.399660E-02 0.0 262 G 0.0 0.0 -8.559129E-01 -3.121587E-02 -1.982412E-01 0.0 263 G 0.0 0.0 -7.015201E-01 -5.217263E-02 -4.252948E-01 0.0 264 G 0.0 0.0 -4.488854E-01 -7.576653E-02 -5.624992E-01 0.0 265 G 0.0 0.0 -1.600424E-01 -6.358027E-02 -5.845746E-01 0.0 266 G 0.0 0.0 1.099510E-01 -2.015891E-02 -4.698308E-01 0.0 267 G 0.0 0.0 2.984623E-01 -1.150853E-02 -3.046438E-01 0.0 268 G 0.0 0.0 4.145536E-01 -3.993864E-02 -1.460309E-01 0.0 269 G 0.0 0.0 4.475815E-01 -5.104690E-02 6.750988E-04 0.0 270 G 0.0 0.0 4.191850E-01 -4.664211E-02 1.260887E-01 0.0 271 G 0.0 0.0 3.241456E-01 -2.950032E-02 2.426137E-01 0.0 272 G 0.0 0.0 1.827197E-01 -8.270524E-03 3.304906E-01 0.0 273 G 0.0 0.0 0.0 0.0 3.908430E-01 0.0 316 G 0.0 0.0 9.743458E-01 8.359519E-02 0.0 0.0 317 G 0.0 0.0 8.928778E-01 9.686083E-02 3.159442E-01 0.0 318 G 0.0 0.0 6.848331E-01 9.479697E-02 4.939234E-01 0.0 319 G 0.0 0.0 4.113975E-01 8.078873E-02 6.043793E-01 0.0 320 G 0.0 0.0 8.962902E-02 9.295925E-02 6.681700E-01 0.0 321 G 0.0 0.0 -2.485563E-01 1.327392E-01 6.870337E-01 0.0 322 G 0.0 0.0 -5.756229E-01 1.341025E-01 5.805871E-01 0.0 323 G 0.0 0.0 -8.054101E-01 9.805854E-02 3.409475E-01 0.0 324 G 0.0 0.0 -9.058961E-01 7.777439E-02 4.573884E-02 0.0 325 G 0.0 0.0 -8.549247E-01 6.979367E-02 -2.292861E-01 0.0 326 G 0.0 0.0 -6.948541E-01 7.013185E-02 -4.112744E-01 0.0 327 G 0.0 0.0 -4.614027E-01 7.554374E-02 -5.012826E-01 0.0 328 G 0.0 0.0 -1.979872E-01 7.159068E-02 -5.705244E-01 0.0 329 G 0.0 0.0 8.942316E-02 5.304620E-02 -5.415862E-01 0.0 330 G 0.0 0.0 3.170203E-01 4.548042E-02 -3.718413E-01 0.0 331 G 0.0 0.0 4.591482E-01 5.330335E-02 -1.817262E-01 0.0 332 G 0.0 0.0 5.001317E-01 6.882571E-02 6.332760E-03 0.0 333 G 0.0 0.0 4.580439E-01 4.807772E-02 1.649705E-01 0.0 334 G 0.0 0.0 3.470397E-01 -6.882819E-04 2.628726E-01 0.0 335 G 0.0 0.0 1.991006E-01 -2.895538E-02 3.492902E-01 0.0 336 G 0.0 0.0 0.0 0.0 4.274434E-01 0.0 379 G 0.0 0.0 9.439685E-01 -1.235406E-01 0.0 0.0 380 G 0.0 0.0 8.724757E-01 -1.126864E-01 2.740603E-01 0.0 381 G 0.0 0.0 6.891168E-01 -8.708192E-02 4.500164E-01 0.0 382 G 0.0 0.0 4.301181E-01 -4.866858E-02 5.868328E-01 0.0 383 G 0.0 0.0 1.215457E-01 -1.668337E-02 6.189849E-01 0.0 384 G 0.0 0.0 -1.750904E-01 9.435327E-03 5.726278E-01 0.0 385 G 0.0 0.0 -4.408163E-01 4.305171E-02 4.719018E-01 0.0 386 G 0.0 0.0 -6.271117E-01 8.852690E-02 2.737879E-01 0.0 387 G 0.0 0.0 -7.055373E-01 1.251998E-01 3.036273E-02 0.0 388 G 0.0 0.0 -6.582618E-01 1.299149E-01 -2.136474E-01 0.0 389 G 0.0 0.0 -4.969641E-01 1.071544E-01 -4.332968E-01 0.0 390 G 0.0 0.0 -2.418995E-01 1.042571E-01 -5.583263E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 103 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 3.920920E-02 1.237272E-01 -5.623534E-01 0.0 392 G 0.0 0.0 3.023221E-01 1.323749E-01 -4.729331E-01 0.0 393 G 0.0 0.0 5.001026E-01 1.287742E-01 -3.226950E-01 0.0 394 G 0.0 0.0 6.223184E-01 1.148471E-01 -1.578761E-01 0.0 395 G 0.0 0.0 6.574679E-01 9.486325E-02 9.939399E-03 0.0 396 G 0.0 0.0 6.056818E-01 8.277683E-02 2.130024E-01 0.0 397 G 0.0 0.0 4.519273E-01 7.429536E-02 3.785143E-01 0.0 398 G 0.0 0.0 2.437601E-01 5.109717E-02 4.563605E-01 0.0 399 G 0.0 0.0 0.0 0.0 5.043639E-01 0.0 442 G 0.0 0.0 6.771307E-01 -2.836755E-01 0.0 0.0 443 G 0.0 0.0 6.013056E-01 -2.830797E-01 2.693660E-01 0.0 444 G 0.0 0.0 4.476852E-01 -2.756925E-01 3.319759E-01 0.0 445 G 0.0 0.0 2.732136E-01 -2.204754E-01 3.820065E-01 0.0 446 G 0.0 0.0 6.565172E-02 -1.257875E-01 4.355606E-01 0.0 447 G 0.0 0.0 -1.527524E-01 -3.901980E-02 4.373934E-01 0.0 448 G 0.0 0.0 -3.553784E-01 3.023760E-02 3.524700E-01 0.0 449 G 0.0 0.0 -4.860449E-01 7.585147E-02 1.682315E-01 0.0 450 G 0.0 0.0 -5.142722E-01 1.001694E-01 -6.444385E-02 0.0 451 G 0.0 0.0 -4.322094E-01 1.174167E-01 -2.413263E-01 0.0 452 G 0.0 0.0 -2.809297E-01 1.277124E-01 -3.746275E-01 0.0 453 G 0.0 0.0 -6.302746E-02 1.184496E-01 -4.802605E-01 0.0 454 G 0.0 0.0 1.807006E-01 8.287033E-02 -4.939710E-01 0.0 455 G 0.0 0.0 4.156144E-01 4.151259E-02 -4.296642E-01 0.0 456 G 0.0 0.0 5.981030E-01 2.316506E-02 -2.966383E-01 0.0 457 G 0.0 0.0 7.003675E-01 2.869353E-02 -9.893557E-02 0.0 458 G 0.0 0.0 6.962879E-01 1.527829E-02 9.693295E-02 0.0 459 G 0.0 0.0 6.098738E-01 -1.598939E-02 2.528573E-01 0.0 460 G 0.0 0.0 4.502821E-01 -2.827563E-02 3.719344E-01 0.0 461 G 0.0 0.0 2.445762E-01 -2.197773E-02 4.554422E-01 0.0 462 G 0.0 0.0 0.0 0.0 5.101406E-01 0.0 505 G 0.0 0.0 2.363326E-01 -2.353498E-01 0.0 0.0 506 G 0.0 0.0 2.030032E-01 -2.170362E-01 1.453602E-01 0.0 507 G 0.0 0.0 1.062381E-01 -1.740391E-01 2.205892E-01 0.0 508 G 0.0 0.0 -5.717078E-03 -1.247865E-01 2.348684E-01 0.0 509 G 0.0 0.0 -1.292774E-01 -7.946217E-02 2.501268E-01 0.0 510 G 0.0 0.0 -2.496802E-01 -3.778055E-02 2.344585E-01 0.0 511 G 0.0 0.0 -3.529499E-01 1.956508E-02 1.693749E-01 0.0 512 G 0.0 0.0 -4.118385E-01 7.970064E-02 7.095057E-02 0.0 513 G 0.0 0.0 -4.160581E-01 1.042899E-01 -7.095408E-02 0.0 514 G 0.0 0.0 -3.379914E-01 7.706496E-02 -2.299024E-01 0.0 515 G 0.0 0.0 -1.931852E-01 4.076999E-02 -3.487313E-01 0.0 516 G 0.0 0.0 -6.920130E-04 -2.433792E-03 -4.051149E-01 0.0 517 G 0.0 0.0 1.962052E-01 -4.516277E-02 -3.784600E-01 0.0 518 G 0.0 0.0 3.657466E-01 -8.779278E-02 -2.881122E-01 0.0 519 G 0.0 0.0 4.836897E-01 -1.302702E-01 -1.949368E-01 0.0 520 G 0.0 0.0 5.558228E-01 -1.684887E-01 -7.904656E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 104 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 5.562256E-01 -1.808601E-01 7.151479E-02 0.0 522 G 0.0 0.0 4.897038E-01 -1.592756E-01 1.988864E-01 0.0 523 G 0.0 0.0 3.628501E-01 -1.087666E-01 2.984922E-01 0.0 524 G 0.0 0.0 1.962569E-01 -5.616134E-02 3.678328E-01 0.0 525 G 0.0 0.0 0.0 0.0 4.076125E-01 0.0 568 G 0.0 0.0 -3.822313E-03 -5.536036E-02 0.0 0.0 569 G 0.0 0.0 -2.783631E-02 -4.139053E-02 8.825713E-02 0.0 570 G 0.0 0.0 -7.738858E-02 -2.216334E-02 9.942615E-02 0.0 571 G 0.0 0.0 -1.259025E-01 5.083040E-04 1.045224E-01 0.0 572 G 0.0 0.0 -1.854683E-01 2.790565E-02 1.304701E-01 0.0 573 G 0.0 0.0 -2.535690E-01 5.632450E-02 1.449790E-01 0.0 574 G 0.0 0.0 -3.155889E-01 7.025437E-02 8.535585E-02 0.0 575 G 0.0 0.0 -3.318128E-01 6.590211E-02 -8.929344E-03 0.0 576 G 0.0 0.0 -3.085974E-01 5.144057E-02 -8.873133E-02 0.0 577 G 0.0 0.0 -2.414492E-01 3.450566E-02 -1.697693E-01 0.0 578 G 0.0 0.0 -1.434296E-01 5.556891E-03 -2.229911E-01 0.0 579 G 0.0 0.0 -2.563727E-02 -4.943521E-02 -2.410209E-01 0.0 580 G 0.0 0.0 9.320924E-02 -1.211361E-01 -2.376370E-01 0.0 581 G 0.0 0.0 2.045263E-01 -1.685331E-01 -1.912399E-01 0.0 582 G 0.0 0.0 2.775447E-01 -1.836301E-01 -1.055520E-01 0.0 583 G 0.0 0.0 3.082174E-01 -1.887208E-01 -1.195489E-02 0.0 584 G 0.0 0.0 2.919640E-01 -1.811624E-01 6.671122E-02 0.0 585 G 0.0 0.0 2.484307E-01 -1.605138E-01 1.091210E-01 0.0 586 G 0.0 0.0 1.868160E-01 -1.255791E-01 1.304878E-01 0.0 587 G 0.0 0.0 1.111985E-01 -7.060609E-02 1.858540E-01 0.0 588 G 0.0 0.0 0.0 0.0 2.452372E-01 0.0 631 G 0.0 0.0 7.219657E-02 1.118855E-01 0.0 0.0 632 G 0.0 0.0 5.790259E-02 1.063730E-01 5.313951E-02 0.0 633 G 0.0 0.0 2.715142E-02 1.137781E-01 6.312025E-02 0.0 634 G 0.0 0.0 -5.675691E-03 1.140020E-01 7.244445E-02 0.0 635 G 0.0 0.0 -4.353238E-02 1.035555E-01 7.202978E-02 0.0 636 G 0.0 0.0 -7.726584E-02 1.098494E-01 7.478369E-02 0.0 637 G 0.0 0.0 -1.167435E-01 1.285312E-01 7.460402E-02 0.0 638 G 0.0 0.0 -1.475447E-01 1.290624E-01 5.215367E-02 0.0 639 G 0.0 0.0 -1.648176E-01 1.098106E-01 7.836308E-03 0.0 640 G 0.0 0.0 -1.517202E-01 7.276174E-02 -5.519557E-02 0.0 641 G 0.0 0.0 -1.120052E-01 2.451277E-02 -1.068303E-01 0.0 642 G 0.0 0.0 -5.719452E-02 -1.948777E-02 -9.525263E-02 0.0 643 G 0.0 0.0 -2.084665E-02 -5.422145E-02 -6.230453E-02 0.0 644 G 0.0 0.0 8.128864E-03 -8.600681E-02 -4.792700E-02 0.0 645 G 0.0 0.0 2.386958E-02 -1.195113E-01 -2.299611E-02 0.0 646 G 0.0 0.0 3.179306E-02 -1.403027E-01 -4.777689E-03 0.0 647 G 0.0 0.0 3.047994E-02 -1.290352E-01 6.338637E-03 0.0 648 G 0.0 0.0 2.445260E-02 -8.894598E-02 2.478602E-02 0.0 649 G 0.0 0.0 8.843838E-03 -5.601837E-02 2.450388E-02 0.0 650 G 0.0 0.0 3.387646E-03 -3.333531E-02 4.914406E-03 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 105 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 1.071265E-02 0.0 694 G 0.0 0.0 2.336484E-01 1.051717E-01 0.0 0.0 695 G 0.0 0.0 2.198629E-01 8.833448E-02 4.522938E-02 0.0 696 G 0.0 0.0 2.013329E-01 8.309876E-02 2.203224E-02 0.0 697 G 0.0 0.0 1.904196E-01 9.171043E-02 3.685334E-02 0.0 698 G 0.0 0.0 1.602651E-01 1.101912E-01 7.522447E-02 0.0 699 G 0.0 0.0 1.186616E-01 1.205729E-01 9.413835E-02 0.0 700 G 0.0 0.0 6.669726E-02 1.146363E-01 1.048123E-01 0.0 701 G 0.0 0.0 1.735646E-02 9.670086E-02 9.412067E-02 0.0 702 G 0.0 0.0 -2.507421E-02 8.605134E-02 7.170233E-02 0.0 703 G 0.0 0.0 -5.645288E-02 8.081020E-02 5.858775E-02 0.0 704 G 0.0 0.0 -8.439966E-02 5.601108E-02 4.226501E-02 0.0 705 G 0.0 0.0 -9.912167E-02 1.408973E-02 2.123197E-02 0.0 706 G 0.0 0.0 -1.077289E-01 -1.996454E-02 8.524075E-03 0.0 707 G 0.0 0.0 -1.100339E-01 -4.218303E-02 6.509195E-03 0.0 708 G 0.0 0.0 -1.171798E-01 -5.183384E-02 1.774814E-02 0.0 709 G 0.0 0.0 -1.270061E-01 -5.280056E-02 2.401019E-02 0.0 710 G 0.0 0.0 -1.331083E-01 -5.525508E-02 -1.231358E-02 0.0 711 G 0.0 0.0 -1.134751E-01 -5.809561E-02 -5.563900E-02 0.0 712 G 0.0 0.0 -8.198377E-02 -5.185139E-02 -7.273656E-02 0.0 713 G 0.0 0.0 -4.039542E-02 -3.030048E-02 -8.486828E-02 0.0 714 G 0.0 0.0 0.0 0.0 -7.741397E-02 0.0 757 G 0.0 0.0 2.320774E-01 -5.144219E-02 0.0 0.0 758 G 0.0 0.0 2.206617E-01 -3.781077E-02 4.284566E-02 0.0 759 G 0.0 0.0 2.004685E-01 -3.331979E-02 2.870332E-02 0.0 760 G 0.0 0.0 1.918534E-01 -4.378350E-02 1.445107E-02 0.0 761 G 0.0 0.0 1.815370E-01 -4.628006E-02 2.490470E-02 0.0 762 G 0.0 0.0 1.638037E-01 -3.925052E-02 5.267225E-02 0.0 763 G 0.0 0.0 1.268878E-01 -2.380117E-02 8.977697E-02 0.0 764 G 0.0 0.0 7.613279E-02 -6.011785E-03 1.143639E-01 0.0 765 G 0.0 0.0 2.130933E-02 2.835076E-03 9.081884E-02 0.0 766 G 0.0 0.0 -1.363609E-02 2.293437E-03 5.828658E-02 0.0 767 G 0.0 0.0 -4.225613E-02 2.871509E-03 5.141938E-02 0.0 768 G 0.0 0.0 -6.467735E-02 1.230282E-02 4.368468E-02 0.0 769 G 0.0 0.0 -8.714876E-02 2.309983E-02 4.169007E-02 0.0 770 G 0.0 0.0 -1.068532E-01 2.075988E-02 3.806714E-02 0.0 771 G 0.0 0.0 -1.220913E-01 7.694304E-03 1.582284E-02 0.0 772 G 0.0 0.0 -1.222445E-01 9.573271E-03 -5.618628E-03 0.0 773 G 0.0 0.0 -1.171695E-01 2.600379E-02 -2.017133E-02 0.0 774 G 0.0 0.0 -1.013449E-01 3.371276E-02 -3.867456E-02 0.0 775 G 0.0 0.0 -7.779995E-02 3.232881E-02 -6.095205E-02 0.0 776 G 0.0 0.0 -4.033800E-02 2.143409E-02 -8.242602E-02 0.0 777 G 0.0 0.0 0.0 0.0 -7.950916E-02 0.0 820 G 0.0 0.0 8.860560E-02 -1.526812E-01 0.0 0.0 821 G 0.0 0.0 7.930569E-02 -1.450671E-01 2.779186E-02 0.0 822 G 0.0 0.0 6.869441E-02 -1.332453E-01 1.262601E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 106 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 6.593478E-02 -1.297346E-01 3.824010E-03 0.0 824 G 0.0 0.0 6.265743E-02 -1.177550E-01 5.666342E-03 0.0 825 G 0.0 0.0 5.906377E-02 -1.079722E-01 1.324175E-02 0.0 826 G 0.0 0.0 4.999958E-02 -9.280272E-02 1.920925E-02 0.0 827 G 0.0 0.0 3.983987E-02 -7.706241E-02 2.748030E-02 0.0 828 G 0.0 0.0 2.307791E-02 -3.644432E-02 3.218810E-02 0.0 829 G 0.0 0.0 7.877227E-03 -4.337030E-03 3.318911E-02 0.0 830 G 0.0 0.0 -9.394296E-03 2.267341E-02 2.807644E-02 0.0 831 G 0.0 0.0 -1.823459E-02 3.881899E-02 1.029454E-02 0.0 832 G 0.0 0.0 -2.075583E-02 5.197006E-02 -3.855207E-03 0.0 833 G 0.0 0.0 -2.020871E-02 6.015144E-02 1.466481E-02 0.0 834 G 0.0 0.0 -3.387889E-02 7.533851E-02 2.669818E-02 0.0 835 G 0.0 0.0 -4.158491E-02 8.285807E-02 7.112588E-03 0.0 836 G 0.0 0.0 -4.289408E-02 8.393854E-02 -5.858739E-03 0.0 837 G 0.0 0.0 -3.657426E-02 6.669930E-02 -1.499835E-02 0.0 838 G 0.0 0.0 -2.751640E-02 4.768774E-02 -2.515307E-02 0.0 839 G 0.0 0.0 -1.230205E-02 2.251767E-02 -2.961963E-02 0.0 840 G 0.0 0.0 0.0 0.0 -2.117658E-02 0.0 841 G 0.0 0.0 0.0 -1.910719E-01 0.0 0.0 842 G 0.0 0.0 0.0 -1.657682E-01 0.0 0.0 843 G 0.0 0.0 0.0 -1.407838E-01 0.0 0.0 844 G 0.0 0.0 0.0 -1.350229E-01 0.0 0.0 845 G 0.0 0.0 0.0 -1.284889E-01 0.0 0.0 846 G 0.0 0.0 0.0 -1.246567E-01 0.0 0.0 847 G 0.0 0.0 0.0 -1.025405E-01 0.0 0.0 848 G 0.0 0.0 0.0 -8.282925E-02 0.0 0.0 849 G 0.0 0.0 0.0 -5.031929E-02 0.0 0.0 850 G 0.0 0.0 0.0 -2.431987E-02 0.0 0.0 851 G 0.0 0.0 0.0 1.615963E-02 0.0 0.0 852 G 0.0 0.0 0.0 3.197506E-02 0.0 0.0 853 G 0.0 0.0 0.0 3.706942E-02 0.0 0.0 854 G 0.0 0.0 0.0 2.732697E-02 0.0 0.0 855 G 0.0 0.0 0.0 6.431609E-02 0.0 0.0 856 G 0.0 0.0 0.0 8.046076E-02 0.0 0.0 857 G 0.0 0.0 0.0 8.699314E-02 0.0 0.0 858 G 0.0 0.0 0.0 7.505074E-02 0.0 0.0 859 G 0.0 0.0 0.0 5.986437E-02 0.0 0.0 860 G 0.0 0.0 0.0 2.538710E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 107 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 4.042747E-01 0.0 0.0 2 G 0.0 0.0 0.0 4.842463E-01 0.0 0.0 3 G 0.0 0.0 0.0 5.670075E-01 0.0 0.0 4 G 0.0 0.0 0.0 3.044425E-01 0.0 0.0 5 G 0.0 0.0 0.0 1.418283E-01 0.0 0.0 6 G 0.0 0.0 0.0 4.805021E-02 0.0 0.0 7 G 0.0 0.0 0.0 1.422559E-01 0.0 0.0 8 G 0.0 0.0 0.0 -1.592629E-01 0.0 0.0 9 G 0.0 0.0 0.0 -2.651491E-01 0.0 0.0 10 G 0.0 0.0 0.0 -4.012691E-01 0.0 0.0 11 G 0.0 0.0 0.0 -4.225115E-01 0.0 0.0 12 G 0.0 0.0 0.0 -3.887874E-01 0.0 0.0 13 G 0.0 0.0 0.0 -1.877174E-01 0.0 0.0 14 G 0.0 0.0 0.0 -1.765452E-01 0.0 0.0 15 G 0.0 0.0 0.0 -1.726436E-01 0.0 0.0 16 G 0.0 0.0 0.0 -1.975144E-01 0.0 0.0 17 G 0.0 0.0 0.0 1.380915E-02 0.0 0.0 18 G 0.0 0.0 0.0 3.155410E-02 0.0 0.0 19 G 0.0 0.0 0.0 -5.582844E-02 0.0 0.0 20 G 0.0 0.0 0.0 -2.845031E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 5.860909E-01 4.363194E-01 0.0 0.0 65 G 0.0 0.0 5.822015E-01 3.861369E-01 -6.655831E-03 0.0 66 G 0.0 0.0 5.361294E-01 2.737790E-01 2.574225E-01 0.0 67 G 0.0 0.0 3.121267E-01 1.436189E-01 5.803732E-01 0.0 68 G 0.0 0.0 -1.532008E-02 1.709452E-02 7.420735E-01 0.0 69 G 0.0 0.0 -3.439257E-01 -1.483823E-01 4.413955E-01 0.0 70 G 0.0 0.0 -4.541512E-01 -3.351501E-01 1.057013E-01 0.0 71 G 0.0 0.0 -5.078349E-01 -4.398703E-01 7.188802E-02 0.0 72 G 0.0 0.0 -5.220928E-01 -4.106562E-01 4.393829E-02 0.0 73 G 0.0 0.0 -5.581302E-01 -3.321955E-01 5.685678E-02 0.0 74 G 0.0 0.0 -5.752957E-01 -3.671503E-01 2.512174E-02 0.0 75 G 0.0 0.0 -5.488944E-01 -4.902112E-01 -1.965447E-01 0.0 76 G 0.0 0.0 -3.832296E-01 -4.403646E-01 -3.613743E-01 0.0 77 G 0.0 0.0 -2.133008E-01 -1.903071E-01 -3.629095E-01 0.0 78 G 0.0 0.0 -3.277031E-02 1.726910E-02 -3.015153E-01 0.0 79 G 0.0 0.0 8.656362E-02 1.724979E-01 -2.285973E-01 0.0 80 G 0.0 0.0 2.137028E-01 2.343773E-01 -2.350572E-01 0.0 81 G 0.0 0.0 3.173476E-01 2.210915E-01 -2.097490E-01 0.0 82 G 0.0 0.0 3.601225E-01 1.987531E-01 1.544430E-01 0.0 83 G 0.0 0.0 1.798541E-01 1.556240E-01 4.394357E-01 0.0 84 G 0.0 0.0 0.0 0.0 2.957835E-01 0.0 127 G 0.0 0.0 1.000000E+00 -6.023595E-02 0.0 0.0 128 G 0.0 0.0 9.786716E-01 -7.743386E-02 1.054992E-01 0.0 129 G 0.0 0.0 8.137289E-01 -1.360475E-01 5.792421E-01 0.0 130 G 0.0 0.0 4.531710E-01 -2.971416E-01 7.569846E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 108 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 1.069575E-01 -2.960576E-01 6.930881E-01 0.0 132 G 0.0 0.0 -2.241212E-01 -1.296685E-01 5.642270E-01 0.0 133 G 0.0 0.0 -4.555209E-01 -1.092767E-02 4.058399E-01 0.0 134 G 0.0 0.0 -6.336942E-01 5.289724E-02 2.464854E-01 0.0 135 G 0.0 0.0 -6.860852E-01 6.835220E-02 7.888738E-04 0.0 136 G 0.0 0.0 -6.352239E-01 6.696538E-02 -2.428103E-01 0.0 137 G 0.0 0.0 -5.052079E-01 1.422580E-01 -1.623050E-01 0.0 138 G 0.0 0.0 -4.669998E-01 2.773468E-01 -1.021963E-01 0.0 139 G 0.0 0.0 -3.495379E-01 3.748854E-01 -3.250341E-01 0.0 140 G 0.0 0.0 -1.611117E-01 3.585440E-01 -4.812025E-01 0.0 141 G 0.0 0.0 1.179910E-01 3.193181E-01 -5.790064E-01 0.0 142 G 0.0 0.0 3.928021E-01 3.895305E-01 -5.228840E-01 0.0 143 G 0.0 0.0 5.874098E-01 5.400783E-01 -1.753825E-01 0.0 144 G 0.0 0.0 5.600300E-01 4.931271E-01 1.852712E-01 0.0 145 G 0.0 0.0 4.265018E-01 2.732348E-01 3.949746E-01 0.0 146 G 0.0 0.0 1.937288E-01 1.153701E-01 4.699190E-01 0.0 147 G 0.0 0.0 0.0 0.0 3.406564E-01 0.0 190 G 0.0 0.0 6.522342E-01 7.845217E-02 0.0 0.0 191 G 0.0 0.0 6.972383E-01 -8.980186E-02 -9.616335E-02 0.0 192 G 0.0 0.0 6.418758E-01 -1.568908E-01 4.045884E-01 0.0 193 G 0.0 0.0 3.242364E-01 -6.137509E-02 7.758731E-01 0.0 194 G 0.0 0.0 -5.164369E-02 4.916134E-02 7.039984E-01 0.0 195 G 0.0 0.0 -3.528991E-01 1.218412E-01 4.515838E-01 0.0 196 G 0.0 0.0 -5.029602E-01 1.190556E-01 1.835270E-01 0.0 197 G 0.0 0.0 -5.566562E-01 2.073243E-01 3.260628E-02 0.0 198 G 0.0 0.0 -5.608389E-01 3.471200E-01 1.133881E-02 0.0 199 G 0.0 0.0 -5.567203E-01 4.230356E-01 -9.643939E-02 0.0 200 G 0.0 0.0 -4.527000E-01 2.846718E-01 -2.771613E-01 0.0 201 G 0.0 0.0 -2.848889E-01 2.134341E-01 -4.119093E-01 0.0 202 G 0.0 0.0 -4.207473E-02 1.806664E-01 -5.244561E-01 0.0 203 G 0.0 0.0 2.219006E-01 1.852936E-01 -5.357531E-01 0.0 204 G 0.0 0.0 4.792370E-01 1.857353E-01 -4.617897E-01 0.0 205 G 0.0 0.0 6.902335E-01 1.241900E-01 -4.224640E-01 0.0 206 G 0.0 0.0 8.705409E-01 3.476710E-02 -2.355522E-01 0.0 207 G 0.0 0.0 8.859161E-01 -1.496249E-02 1.632545E-01 0.0 208 G 0.0 0.0 7.220228E-01 -4.369032E-03 5.116362E-01 0.0 209 G 0.0 0.0 3.953794E-01 1.239664E-02 7.591195E-01 0.0 210 G 0.0 0.0 0.0 0.0 8.018831E-01 0.0 253 G 0.0 0.0 1.382276E-01 -4.202958E-01 0.0 0.0 254 G 0.0 0.0 1.398271E-01 -3.290083E-01 9.631108E-03 0.0 255 G 0.0 0.0 9.411194E-02 -2.790669E-01 2.036078E-01 0.0 256 G 0.0 0.0 -4.194682E-02 -1.844763E-01 2.956985E-01 0.0 257 G 0.0 0.0 -1.712239E-01 -6.661118E-02 2.382632E-01 0.0 258 G 0.0 0.0 -2.759430E-01 5.674589E-02 1.614604E-01 0.0 259 G 0.0 0.0 -3.360469E-01 1.527144E-01 1.052751E-01 0.0 260 G 0.0 0.0 -3.595946E-01 1.730624E-01 -6.173683E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 109 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 -2.825659E-01 1.270314E-01 -1.864891E-01 0.0 262 G 0.0 0.0 -1.979485E-01 7.421366E-02 -1.715628E-01 0.0 263 G 0.0 0.0 -9.670125E-02 5.745932E-02 -2.053357E-01 0.0 264 G 0.0 0.0 1.534223E-02 3.957671E-02 -2.640314E-01 0.0 265 G 0.0 0.0 1.712300E-01 -4.856469E-02 -3.472737E-01 0.0 266 G 0.0 0.0 3.719643E-01 -1.897120E-01 -4.774371E-01 0.0 267 G 0.0 0.0 6.315935E-01 -2.444191E-01 -4.949529E-01 0.0 268 G 0.0 0.0 8.358435E-01 -2.020987E-01 -3.318833E-01 0.0 269 G 0.0 0.0 9.397321E-01 -1.680166E-01 -5.040284E-02 0.0 270 G 0.0 0.0 8.746589E-01 -1.383383E-01 2.794134E-01 0.0 271 G 0.0 0.0 6.710110E-01 -1.104569E-01 5.419835E-01 0.0 272 G 0.0 0.0 3.509917E-01 -7.295435E-02 6.987284E-01 0.0 273 G 0.0 0.0 0.0 0.0 6.950918E-01 0.0 316 G 0.0 0.0 -2.326199E-01 -1.806409E-01 0.0 0.0 317 G 0.0 0.0 -1.943268E-01 -1.895938E-01 -1.379019E-01 0.0 318 G 0.0 0.0 -1.340434E-01 -1.359770E-01 -7.174683E-02 0.0 319 G 0.0 0.0 -1.224273E-01 -3.537398E-02 -3.559100E-03 0.0 320 G 0.0 0.0 -1.159444E-01 2.294829E-02 -1.690696E-02 0.0 321 G 0.0 0.0 -8.621050E-02 2.088017E-02 -1.307594E-01 0.0 322 G 0.0 0.0 4.501309E-03 7.537083E-02 -1.716277E-01 0.0 323 G 0.0 0.0 6.380501E-02 1.722455E-01 -8.503048E-02 0.0 324 G 0.0 0.0 8.290862E-02 1.978431E-01 3.235584E-02 0.0 325 G 0.0 0.0 4.049834E-02 1.575196E-01 9.882040E-02 0.0 326 G 0.0 0.0 8.608014E-03 6.411529E-02 3.991303E-02 0.0 327 G 0.0 0.0 1.239429E-02 -6.519964E-02 -7.995335E-02 0.0 328 G 0.0 0.0 6.546042E-02 -1.866638E-01 -7.433142E-02 0.0 329 G 0.0 0.0 9.060521E-02 -2.728340E-01 -7.847277E-02 0.0 330 G 0.0 0.0 1.633967E-01 -3.580378E-01 -1.864610E-01 0.0 331 G 0.0 0.0 2.547587E-01 -4.370103E-01 -1.942712E-01 0.0 332 G 0.0 0.0 3.397001E-01 -4.851494E-01 -1.159853E-01 0.0 333 G 0.0 0.0 3.590348E-01 -4.118598E-01 3.043888E-02 0.0 334 G 0.0 0.0 2.986132E-01 -2.378896E-01 2.326920E-01 0.0 335 G 0.0 0.0 1.439309E-01 -7.093174E-02 3.278479E-01 0.0 336 G 0.0 0.0 0.0 0.0 2.661192E-01 0.0 379 G 0.0 0.0 -3.542575E-01 -1.111026E-02 0.0 0.0 380 G 0.0 0.0 -3.022396E-01 -6.657037E-03 -1.874246E-01 0.0 381 G 0.0 0.0 -1.956599E-01 1.677606E-02 -2.292090E-01 0.0 382 G 0.0 0.0 -7.062344E-02 5.219435E-02 -2.863125E-01 0.0 383 G 0.0 0.0 7.547290E-02 1.216350E-01 -2.577142E-01 0.0 384 G 0.0 0.0 1.849236E-01 2.044865E-01 -2.072278E-01 0.0 385 G 0.0 0.0 2.857912E-01 2.544029E-01 -1.748587E-01 0.0 386 G 0.0 0.0 3.384428E-01 2.458269E-01 -4.836289E-02 0.0 387 G 0.0 0.0 3.265078E-01 2.083866E-01 1.086364E-01 0.0 388 G 0.0 0.0 2.324349E-01 1.835046E-01 2.552379E-01 0.0 389 G 0.0 0.0 7.288297E-02 1.648504E-01 3.912460E-01 0.0 390 G 0.0 0.0 -1.419166E-01 6.758177E-02 4.202532E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 110 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 -3.260654E-01 -9.796677E-02 3.214528E-01 0.0 392 G 0.0 0.0 -4.527664E-01 -2.468257E-01 1.648197E-01 0.0 393 G 0.0 0.0 -4.912603E-01 -3.569774E-01 1.077616E-02 0.0 394 G 0.0 0.0 -4.775765E-01 -4.156565E-01 -7.260884E-02 0.0 395 G 0.0 0.0 -4.289244E-01 -4.199120E-01 -1.026223E-01 0.0 396 G 0.0 0.0 -3.628418E-01 -3.929626E-01 -1.939594E-01 0.0 397 G 0.0 0.0 -2.407875E-01 -3.290997E-01 -2.532883E-01 0.0 398 G 0.0 0.0 -1.246754E-01 -2.017034E-01 -2.256032E-01 0.0 399 G 0.0 0.0 0.0 0.0 -2.568091E-01 0.0 442 G 0.0 0.0 -4.577757E-01 2.749262E-03 0.0 0.0 443 G 0.0 0.0 -3.552137E-01 2.934112E-02 -3.439342E-01 0.0 444 G 0.0 0.0 -1.880462E-01 9.437750E-02 -3.026740E-01 0.0 445 G 0.0 0.0 -4.999863E-02 1.058353E-01 -2.880789E-01 0.0 446 G 0.0 0.0 1.136790E-01 6.527445E-02 -3.490750E-01 0.0 447 G 0.0 0.0 2.946666E-01 4.926219E-02 -3.814979E-01 0.0 448 G 0.0 0.0 4.761206E-01 5.838639E-02 -3.101875E-01 0.0 449 G 0.0 0.0 5.770177E-01 8.823336E-02 -9.480276E-02 0.0 450 G 0.0 0.0 5.580593E-01 1.215772E-01 1.858533E-01 0.0 451 G 0.0 0.0 4.125896E-01 1.232871E-01 3.508087E-01 0.0 452 G 0.0 0.0 2.177782E-01 9.301298E-02 4.523350E-01 0.0 453 G 0.0 0.0 -3.928850E-02 6.213992E-02 5.470253E-01 0.0 454 G 0.0 0.0 -3.060712E-01 5.545678E-02 5.246650E-01 0.0 455 G 0.0 0.0 -5.489815E-01 4.646928E-02 4.213910E-01 0.0 456 G 0.0 0.0 -7.179221E-01 -6.840206E-03 2.528713E-01 0.0 457 G 0.0 0.0 -7.900800E-01 -9.216911E-02 1.302886E-02 0.0 458 G 0.0 0.0 -7.364942E-01 -1.136351E-01 -1.890201E-01 0.0 459 G 0.0 0.0 -6.148078E-01 -6.830133E-02 -3.070391E-01 0.0 460 G 0.0 0.0 -4.376161E-01 -3.057924E-02 -3.784666E-01 0.0 461 G 0.0 0.0 -2.385052E-01 -6.161967E-03 -4.330756E-01 0.0 462 G 0.0 0.0 0.0 0.0 -5.027428E-01 0.0 505 G 0.0 0.0 -4.793432E-01 -8.786678E-02 0.0 0.0 506 G 0.0 0.0 -4.247811E-01 -1.050113E-01 -2.423099E-01 0.0 507 G 0.0 0.0 -2.650587E-01 -1.348655E-01 -3.545314E-01 0.0 508 G 0.0 0.0 -8.932000E-02 -1.471882E-01 -3.637926E-01 0.0 509 G 0.0 0.0 1.061477E-01 -1.317040E-01 -3.996191E-01 0.0 510 G 0.0 0.0 3.046059E-01 -1.011697E-01 -3.997860E-01 0.0 511 G 0.0 0.0 4.904085E-01 -1.067048E-01 -3.240690E-01 0.0 512 G 0.0 0.0 6.187260E-01 -1.338279E-01 -1.971994E-01 0.0 513 G 0.0 0.0 6.741960E-01 -1.144394E-01 1.113117E-02 0.0 514 G 0.0 0.0 6.015138E-01 -2.079486E-02 2.594106E-01 0.0 515 G 0.0 0.0 4.259352E-01 6.117859E-02 4.446522E-01 0.0 516 G 0.0 0.0 1.744897E-01 1.306258E-01 5.320469E-01 0.0 517 G 0.0 0.0 -8.163510E-02 1.796972E-01 4.874915E-01 0.0 518 G 0.0 0.0 -2.967461E-01 2.182548E-01 3.524972E-01 0.0 519 G 0.0 0.0 -4.403314E-01 2.559539E-01 2.462795E-01 0.0 520 G 0.0 0.0 -5.392919E-01 2.933970E-01 1.212919E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 111 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -5.520658E-01 2.940237E-01 -5.905185E-02 0.0 522 G 0.0 0.0 -4.912319E-01 2.450380E-01 -1.951310E-01 0.0 523 G 0.0 0.0 -3.647598E-01 1.563012E-01 -2.944295E-01 0.0 524 G 0.0 0.0 -2.007105E-01 7.772642E-02 -3.665154E-01 0.0 525 G 0.0 0.0 0.0 0.0 -4.226559E-01 0.0 568 G 0.0 0.0 -5.436936E-01 5.801774E-04 0.0 0.0 569 G 0.0 0.0 -4.892953E-01 -2.272565E-02 -2.014224E-01 0.0 570 G 0.0 0.0 -3.708574E-01 -4.818552E-02 -2.495951E-01 0.0 571 G 0.0 0.0 -2.409804E-01 -7.453423E-02 -2.869705E-01 0.0 572 G 0.0 0.0 -7.486869E-02 -1.078469E-01 -3.674335E-01 0.0 573 G 0.0 0.0 1.228870E-01 -1.448110E-01 -4.255031E-01 0.0 574 G 0.0 0.0 3.227549E-01 -1.584515E-01 -3.340006E-01 0.0 575 G 0.0 0.0 4.439684E-01 -1.444445E-01 -1.692594E-01 0.0 576 G 0.0 0.0 4.964999E-01 -1.210032E-01 -2.689859E-02 0.0 577 G 0.0 0.0 4.674664E-01 -1.034901E-01 1.268502E-01 0.0 578 G 0.0 0.0 3.778855E-01 -7.111296E-02 2.362383E-01 0.0 579 G 0.0 0.0 2.438256E-01 7.507493E-03 2.884941E-01 0.0 580 G 0.0 0.0 9.575514E-02 1.182498E-01 3.124242E-01 0.0 581 G 0.0 0.0 -5.644473E-02 1.842992E-01 2.650544E-01 0.0 582 G 0.0 0.0 -1.582732E-01 1.946491E-01 1.523274E-01 0.0 583 G 0.0 0.0 -2.073231E-01 1.979438E-01 3.334781E-02 0.0 584 G 0.0 0.0 -1.978047E-01 1.915259E-01 -5.204671E-02 0.0 585 G 0.0 0.0 -1.689562E-01 1.750880E-01 -6.880077E-02 0.0 586 G 0.0 0.0 -1.352107E-01 1.446106E-01 -5.546556E-02 0.0 587 G 0.0 0.0 -9.687562E-02 8.500077E-02 -1.291838E-01 0.0 588 G 0.0 0.0 0.0 0.0 -2.349110E-01 0.0 631 G 0.0 0.0 -4.468543E-01 1.799284E-01 0.0 0.0 632 G 0.0 0.0 -4.148105E-01 1.837160E-01 -1.197755E-01 0.0 633 G 0.0 0.0 -3.431083E-01 1.475344E-01 -1.526025E-01 0.0 634 G 0.0 0.0 -2.610034E-01 1.122332E-01 -1.828431E-01 0.0 635 G 0.0 0.0 -1.633407E-01 8.597916E-02 -1.920908E-01 0.0 636 G 0.0 0.0 -6.928315E-02 1.575280E-02 -2.057796E-01 0.0 637 G 0.0 0.0 3.978362E-02 -8.748908E-02 -2.113207E-01 0.0 638 G 0.0 0.0 1.338266E-01 -1.599520E-01 -1.698907E-01 0.0 639 G 0.0 0.0 2.019117E-01 -1.951056E-01 -8.250909E-02 0.0 640 G 0.0 0.0 2.093792E-01 -1.933774E-01 4.399246E-02 0.0 641 G 0.0 0.0 1.629578E-01 -1.642697E-01 1.490235E-01 0.0 642 G 0.0 0.0 8.502644E-02 -1.349354E-01 1.291766E-01 0.0 643 G 0.0 0.0 4.177245E-02 -1.118570E-01 6.869247E-02 0.0 644 G 0.0 0.0 9.798635E-03 -7.934441E-02 4.837141E-02 0.0 645 G 0.0 0.0 -9.378409E-04 -2.582595E-02 1.087595E-02 0.0 646 G 0.0 0.0 -3.198859E-03 2.105147E-02 -9.359439E-03 0.0 647 G 0.0 0.0 4.191358E-03 2.258207E-02 -1.271916E-02 0.0 648 G 0.0 0.0 1.139868E-02 -1.617866E-02 -3.023378E-02 0.0 649 G 0.0 0.0 2.860811E-02 -2.614954E-02 -1.274821E-02 0.0 650 G 0.0 0.0 1.835564E-02 -5.189273E-03 3.797143E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 112 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 3.053315E-02 0.0 694 G 0.0 0.0 -5.499322E-02 2.344313E-01 0.0 0.0 695 G 0.0 0.0 -3.676941E-02 2.603128E-01 -5.341882E-02 0.0 696 G 0.0 0.0 -2.726738E-02 2.479839E-01 2.813162E-02 0.0 697 G 0.0 0.0 -4.986345E-02 1.941997E-01 3.022395E-02 0.0 698 G 0.0 0.0 -4.867539E-02 1.089821E-01 -2.010208E-02 0.0 699 G 0.0 0.0 -3.619334E-02 3.092020E-02 -3.830420E-02 0.0 700 G 0.0 0.0 -1.098879E-02 -2.049636E-02 -4.764012E-02 0.0 701 G 0.0 0.0 5.006404E-03 -5.066904E-02 -2.258988E-02 0.0 702 G 0.0 0.0 7.542187E-03 -9.488797E-02 1.702365E-02 0.0 703 G 0.0 0.0 -7.111171E-03 -1.463348E-01 2.893008E-02 0.0 704 G 0.0 0.0 -1.920850E-02 -1.523818E-01 3.843501E-02 0.0 705 G 0.0 0.0 -4.413471E-02 -1.155393E-01 4.969924E-02 0.0 706 G 0.0 0.0 -6.434721E-02 -8.385335E-02 3.878111E-02 0.0 707 G 0.0 0.0 -7.811817E-02 -6.391198E-02 3.827147E-03 0.0 708 G 0.0 0.0 -6.265065E-02 -5.633700E-02 -5.705181E-02 0.0 709 G 0.0 0.0 -2.327713E-02 -5.310816E-02 -1.044878E-01 0.0 710 G 0.0 0.0 2.488657E-02 -3.436749E-02 -6.124636E-02 0.0 711 G 0.0 0.0 3.475885E-02 -3.581921E-03 2.694170E-03 0.0 712 G 0.0 0.0 3.060630E-02 1.829856E-02 2.112765E-02 0.0 713 G 0.0 0.0 1.257356E-02 1.617857E-02 3.616003E-02 0.0 714 G 0.0 0.0 0.0 0.0 1.826298E-02 0.0 757 G 0.0 0.0 2.846684E-01 5.198960E-02 0.0 0.0 758 G 0.0 0.0 2.928858E-01 2.634933E-02 -2.784297E-02 0.0 759 G 0.0 0.0 2.901869E-01 2.205413E-02 5.524834E-02 0.0 760 G 0.0 0.0 2.381370E-01 5.052300E-02 1.326347E-01 0.0 761 G 0.0 0.0 1.669837E-01 6.562036E-02 1.518515E-01 0.0 762 G 0.0 0.0 9.316169E-02 6.373044E-02 1.255335E-01 0.0 763 G 0.0 0.0 4.601068E-02 4.651316E-02 6.841379E-02 0.0 764 G 0.0 0.0 2.112916E-02 2.550112E-02 2.364299E-02 0.0 765 G 0.0 0.0 5.398083E-03 2.247717E-02 6.226846E-02 0.0 766 G 0.0 0.0 -4.266035E-02 3.741071E-02 1.064485E-01 0.0 767 G 0.0 0.0 -8.995582E-02 4.831919E-02 8.788268E-02 0.0 768 G 0.0 0.0 -1.308477E-01 3.884532E-02 6.126923E-02 0.0 769 G 0.0 0.0 -1.485838E-01 2.322717E-02 1.607052E-02 0.0 770 G 0.0 0.0 -1.460258E-01 2.998089E-02 -2.966512E-02 0.0 771 G 0.0 0.0 -1.255638E-01 5.415108E-02 -3.842811E-02 0.0 772 G 0.0 0.0 -1.091511E-01 4.466826E-02 -4.561730E-02 0.0 773 G 0.0 0.0 -7.944617E-02 2.813169E-03 -6.051191E-02 0.0 774 G 0.0 0.0 -5.107703E-02 -2.422693E-02 -5.931645E-02 0.0 775 G 0.0 0.0 -2.248980E-02 -3.492029E-02 -4.103160E-02 0.0 776 G 0.0 0.0 -1.105775E-02 -2.772492E-02 -1.409546E-02 0.0 777 G 0.0 0.0 0.0 0.0 -2.526140E-02 0.0 820 G 0.0 0.0 9.527367E-02 -2.148875E-01 0.0 0.0 821 G 0.0 0.0 1.087135E-01 -2.202671E-01 -3.519155E-02 0.0 822 G 0.0 0.0 1.147690E-01 -2.148890E-01 1.437424E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 113 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 9.592371E-02 -1.752608E-01 4.914569E-02 0.0 824 G 0.0 0.0 7.020526E-02 -1.374053E-01 5.954192E-02 0.0 825 G 0.0 0.0 3.899029E-02 -8.342820E-02 5.460050E-02 0.0 826 G 0.0 0.0 1.465226E-02 -3.244672E-02 4.852159E-02 0.0 827 G 0.0 0.0 -9.301861E-03 2.087248E-02 3.333855E-02 0.0 828 G 0.0 0.0 -1.962521E-02 2.369636E-02 2.084970E-02 0.0 829 G 0.0 0.0 -3.044562E-02 3.850846E-02 1.158546E-02 0.0 830 G 0.0 0.0 -3.250144E-02 5.461495E-02 1.072152E-02 0.0 831 G 0.0 0.0 -4.497763E-02 8.009281E-02 3.190975E-02 0.0 832 G 0.0 0.0 -6.222693E-02 9.647626E-02 4.342543E-02 0.0 833 G 0.0 0.0 -7.680434E-02 1.058907E-01 -1.161106E-02 0.0 834 G 0.0 0.0 -5.384384E-02 8.375063E-02 -5.378910E-02 0.0 835 G 0.0 0.0 -3.388551E-02 5.982845E-02 -3.177061E-02 0.0 836 G 0.0 0.0 -1.857912E-02 3.315959E-02 -2.094876E-02 0.0 837 G 0.0 0.0 -1.157236E-02 2.973773E-02 -1.507994E-02 0.0 838 G 0.0 0.0 -4.590746E-03 1.940155E-02 -3.987321E-03 0.0 839 G 0.0 0.0 -6.155929E-03 1.417681E-02 -7.174003E-04 0.0 840 G 0.0 0.0 0.0 0.0 -1.947791E-02 0.0 841 G 0.0 0.0 0.0 -1.764376E-01 0.0 0.0 842 G 0.0 0.0 0.0 -2.164793E-01 0.0 0.0 843 G 0.0 0.0 0.0 -2.354492E-01 0.0 0.0 844 G 0.0 0.0 0.0 -1.971934E-01 0.0 0.0 845 G 0.0 0.0 0.0 -1.443277E-01 0.0 0.0 846 G 0.0 0.0 0.0 -7.354677E-02 0.0 0.0 847 G 0.0 0.0 0.0 -3.099935E-02 0.0 0.0 848 G 0.0 0.0 0.0 2.003148E-02 0.0 0.0 849 G 0.0 0.0 0.0 4.458428E-02 0.0 0.0 850 G 0.0 0.0 0.0 7.677451E-02 0.0 0.0 851 G 0.0 0.0 0.0 7.060616E-02 0.0 0.0 852 G 0.0 0.0 0.0 1.006034E-01 0.0 0.0 853 G 0.0 0.0 0.0 1.360321E-01 0.0 0.0 854 G 0.0 0.0 0.0 1.831550E-01 0.0 0.0 855 G 0.0 0.0 0.0 1.183283E-01 0.0 0.0 856 G 0.0 0.0 0.0 7.695549E-02 0.0 0.0 857 G 0.0 0.0 0.0 3.821828E-02 0.0 0.0 858 G 0.0 0.0 0.0 2.222170E-02 0.0 0.0 859 G 0.0 0.0 0.0 1.591417E-03 0.0 0.0 860 G 0.0 0.0 0.0 1.181923E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 114 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -3.033993E-01 0.0 0.0 2 G 0.0 0.0 0.0 -9.149635E-02 0.0 0.0 3 G 0.0 0.0 0.0 2.631092E-01 0.0 0.0 4 G 0.0 0.0 0.0 1.324356E-01 0.0 0.0 5 G 0.0 0.0 0.0 2.383060E-01 0.0 0.0 6 G 0.0 0.0 0.0 4.769390E-01 0.0 0.0 7 G 0.0 0.0 0.0 1.000000E+00 0.0 0.0 8 G 0.0 0.0 0.0 7.571203E-01 0.0 0.0 9 G 0.0 0.0 0.0 7.292596E-01 0.0 0.0 10 G 0.0 0.0 0.0 5.134698E-01 0.0 0.0 11 G 0.0 0.0 0.0 3.654410E-01 0.0 0.0 12 G 0.0 0.0 0.0 2.079766E-01 0.0 0.0 13 G 0.0 0.0 0.0 2.728376E-01 0.0 0.0 14 G 0.0 0.0 0.0 -8.164774E-03 0.0 0.0 15 G 0.0 0.0 0.0 -2.759948E-01 0.0 0.0 16 G 0.0 0.0 0.0 -5.295600E-01 0.0 0.0 17 G 0.0 0.0 0.0 -2.898070E-01 0.0 0.0 18 G 0.0 0.0 0.0 -2.876347E-01 0.0 0.0 19 G 0.0 0.0 0.0 -3.796651E-01 0.0 0.0 20 G 0.0 0.0 0.0 -6.485093E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 -3.735661E-01 3.501430E-03 0.0 0.0 65 G 0.0 0.0 -2.799316E-01 -3.150164E-02 -4.074890E-01 0.0 66 G 0.0 0.0 -7.282994E-02 -7.824039E-02 -2.923418E-01 0.0 67 G 0.0 0.0 -2.614582E-02 -8.143874E-02 2.672203E-02 0.0 68 G 0.0 0.0 -7.113268E-02 -3.594918E-02 1.999009E-01 0.0 69 G 0.0 0.0 -1.013603E-01 -5.230075E-02 -2.778118E-01 0.0 70 G 0.0 0.0 1.889686E-01 -1.374251E-01 -6.770402E-01 0.0 71 G 0.0 0.0 4.578550E-01 -1.460184E-01 -4.437104E-01 0.0 72 G 0.0 0.0 6.292642E-01 -1.189622E-02 -1.309050E-01 0.0 73 G 0.0 0.0 5.775515E-01 1.097424E-01 2.634064E-01 0.0 74 G 0.0 0.0 3.818978E-01 -5.473542E-02 5.327736E-01 0.0 75 G 0.0 0.0 1.214684E-01 -4.409021E-01 3.796550E-01 0.0 76 G 0.0 0.0 1.646182E-02 -5.683716E-01 2.002643E-01 0.0 77 G 0.0 0.0 -1.008327E-01 -3.541752E-01 1.718346E-01 0.0 78 G 0.0 0.0 -1.576737E-01 -1.822464E-01 1.365419E-01 0.0 79 G 0.0 0.0 -2.271373E-01 -4.449060E-02 3.756985E-02 0.0 80 G 0.0 0.0 -1.591771E-01 3.691694E-03 -2.390176E-01 0.0 81 G 0.0 0.0 1.855574E-03 -2.330565E-03 -4.570954E-01 0.0 82 G 0.0 0.0 1.794247E-01 4.395765E-02 -4.889033E-02 0.0 83 G 0.0 0.0 6.497017E-02 1.052230E-01 2.975121E-01 0.0 84 G 0.0 0.0 0.0 0.0 8.626007E-04 0.0 127 G 0.0 0.0 -3.191112E-01 -1.750492E-01 0.0 0.0 128 G 0.0 0.0 -2.144348E-01 -2.029581E-01 -3.769778E-01 0.0 129 G 0.0 0.0 -9.498627E-02 -3.001987E-01 -3.828423E-02 0.0 130 G 0.0 0.0 -1.091184E-01 -5.748335E-01 -5.813741E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 115 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 1.690543E-02 -5.761943E-01 -2.991713E-01 0.0 132 G 0.0 0.0 1.818012E-01 -3.034631E-01 -4.396552E-01 0.0 133 G 0.0 0.0 4.263289E-01 -1.269147E-01 -4.302952E-01 0.0 134 G 0.0 0.0 5.798909E-01 -6.149344E-02 -2.645474E-01 0.0 135 G 0.0 0.0 7.044953E-01 -9.443462E-02 -1.582735E-01 0.0 136 G 0.0 0.0 7.378891E-01 -1.659480E-01 -4.436607E-02 0.0 137 G 0.0 0.0 6.581892E-01 -1.073192E-01 5.448022E-01 0.0 138 G 0.0 0.0 2.308685E-01 6.093127E-02 9.470503E-01 0.0 139 G 0.0 0.0 -1.627562E-01 1.797682E-01 6.701279E-01 0.0 140 G 0.0 0.0 -4.377708E-01 1.255827E-01 3.100339E-01 0.0 141 G 0.0 0.0 -4.678023E-01 6.006165E-02 -1.174758E-01 0.0 142 G 0.0 0.0 -3.449014E-01 2.121900E-01 -3.940684E-01 0.0 143 G 0.0 0.0 -1.586419E-01 5.294552E-01 -2.189851E-01 0.0 144 G 0.0 0.0 -1.440859E-01 5.293700E-01 -6.621376E-03 0.0 145 G 0.0 0.0 -1.239110E-01 2.483775E-01 1.717892E-02 0.0 146 G 0.0 0.0 -1.332117E-01 8.484718E-02 -7.535271E-02 0.0 147 G 0.0 0.0 0.0 0.0 -3.744943E-01 0.0 190 G 0.0 0.0 -4.192234E-01 8.285846E-01 0.0 0.0 191 G 0.0 0.0 -2.318875E-01 5.002220E-01 -5.997599E-01 0.0 192 G 0.0 0.0 -1.568532E-02 2.716462E-01 -1.006222E-01 0.0 193 G 0.0 0.0 -1.002822E-01 2.614577E-01 3.056844E-01 0.0 194 G 0.0 0.0 -2.092383E-01 2.353503E-01 1.142601E-01 0.0 195 G 0.0 0.0 -1.999247E-01 1.265065E-01 -2.116378E-01 0.0 196 G 0.0 0.0 -2.637701E-02 -1.032018E-01 -4.017869E-01 0.0 197 G 0.0 0.0 1.452357E-01 -1.424654E-01 -2.693026E-01 0.0 198 G 0.0 0.0 1.894384E-01 -3.880709E-02 1.415739E-01 0.0 199 G 0.0 0.0 2.697040E-02 2.215300E-02 3.815430E-01 0.0 200 G 0.0 0.0 -1.549342E-01 -2.140245E-01 4.007505E-01 0.0 201 G 0.0 0.0 -3.562496E-01 -2.693086E-01 3.496776E-01 0.0 202 G 0.0 0.0 -4.756789E-01 -2.071764E-01 1.621506E-01 0.0 203 G 0.0 0.0 -5.189180E-01 -5.107690E-02 -1.947633E-02 0.0 204 G 0.0 0.0 -4.574905E-01 1.025869E-01 -1.879636E-01 0.0 205 G 0.0 0.0 -3.056455E-01 1.312163E-01 -4.961479E-01 0.0 206 G 0.0 0.0 -1.107324E-02 7.609426E-02 -5.719414E-01 0.0 207 G 0.0 0.0 1.925124E-01 4.416591E-02 -2.511433E-01 0.0 208 G 0.0 0.0 2.531907E-01 7.050510E-02 5.772905E-02 0.0 209 G 0.0 0.0 1.541747E-01 7.062644E-02 2.972822E-01 0.0 210 G 0.0 0.0 0.0 0.0 3.068930E-01 0.0 253 G 0.0 0.0 -1.005597E-02 1.619268E-01 0.0 0.0 254 G 0.0 0.0 3.319659E-02 2.720338E-01 -1.436191E-01 0.0 255 G 0.0 0.0 6.674622E-02 2.243063E-01 6.648717E-02 0.0 256 G 0.0 0.0 -9.062574E-03 1.850278E-01 1.660893E-01 0.0 257 G 0.0 0.0 -6.359862E-02 1.455684E-01 8.764774E-02 0.0 258 G 0.0 0.0 -1.063296E-01 1.088584E-01 5.565008E-02 0.0 259 G 0.0 0.0 -1.396384E-01 5.293964E-02 1.249820E-01 0.0 260 G 0.0 0.0 -2.035713E-01 -7.386143E-02 4.163066E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 116 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 -1.975304E-01 -2.323214E-01 3.009242E-02 0.0 262 G 0.0 0.0 -2.704546E-01 -3.088948E-01 2.166741E-01 0.0 263 G 0.0 0.0 -3.770101E-01 -2.336851E-01 2.437602E-01 0.0 264 G 0.0 0.0 -4.840816E-01 -8.891685E-02 1.339014E-01 0.0 265 G 0.0 0.0 -4.877237E-01 -2.318334E-02 -1.100266E-01 0.0 266 G 0.0 0.0 -3.450941E-01 -4.307058E-02 -5.049033E-01 0.0 267 G 0.0 0.0 -5.123283E-03 5.409309E-02 -7.428194E-01 0.0 268 G 0.0 0.0 3.452135E-01 2.544641E-01 -6.717444E-01 0.0 269 G 0.0 0.0 6.220113E-01 3.549563E-01 -3.709766E-01 0.0 270 G 0.0 0.0 6.900949E-01 3.534766E-01 5.428362E-02 0.0 271 G 0.0 0.0 5.797325E-01 2.611185E-01 4.088901E-01 0.0 272 G 0.0 0.0 3.073613E-01 1.181798E-01 6.230736E-01 0.0 273 G 0.0 0.0 0.0 0.0 5.990073E-01 0.0 316 G 0.0 0.0 3.229775E-01 3.131059E-04 0.0 0.0 317 G 0.0 0.0 3.710110E-01 -4.294474E-02 -1.667252E-01 0.0 318 G 0.0 0.0 4.209197E-01 -2.936829E-02 1.842915E-02 0.0 319 G 0.0 0.0 3.513219E-01 2.863669E-02 2.054513E-01 0.0 320 G 0.0 0.0 2.395696E-01 -9.779882E-04 2.439655E-01 0.0 321 G 0.0 0.0 1.407137E-01 -1.240340E-01 9.381530E-02 0.0 322 G 0.0 0.0 1.296019E-01 -1.143760E-01 4.541473E-02 0.0 323 G 0.0 0.0 6.156388E-02 2.426101E-02 1.840024E-01 0.0 324 G 0.0 0.0 -6.045903E-02 1.086975E-01 3.360162E-01 0.0 325 G 0.0 0.0 -2.524955E-01 1.493980E-01 3.590190E-01 0.0 326 G 0.0 0.0 -3.716034E-01 1.583568E-01 1.327585E-01 0.0 327 G 0.0 0.0 -3.620269E-01 1.446272E-01 -2.133175E-01 0.0 328 G 0.0 0.0 -1.995526E-01 1.550532E-01 -3.319842E-01 0.0 329 G 0.0 0.0 -3.005865E-02 2.045802E-01 -4.269395E-01 0.0 330 G 0.0 0.0 2.499151E-01 2.034668E-01 -6.371219E-01 0.0 331 G 0.0 0.0 5.559049E-01 1.365666E-01 -6.026160E-01 0.0 332 G 0.0 0.0 8.101755E-01 3.215477E-02 -3.562813E-01 0.0 333 G 0.0 0.0 8.852732E-01 4.370372E-02 4.427370E-02 0.0 334 G 0.0 0.0 7.477111E-01 1.452410E-01 5.394048E-01 0.0 335 G 0.0 0.0 3.832479E-01 1.720344E-01 8.101301E-01 0.0 336 G 0.0 0.0 0.0 0.0 7.431253E-01 0.0 379 G 0.0 0.0 6.237490E-02 -3.253011E-01 0.0 0.0 380 G 0.0 0.0 1.087322E-01 -3.244389E-01 -1.517795E-01 0.0 381 G 0.0 0.0 1.681224E-01 -3.022802E-01 -7.451192E-02 0.0 382 G 0.0 0.0 1.944024E-01 -2.644120E-01 -6.543953E-02 0.0 383 G 0.0 0.0 2.176394E-01 -1.638164E-01 3.139453E-02 0.0 384 G 0.0 0.0 1.714765E-01 -2.597443E-02 9.575917E-02 0.0 385 G 0.0 0.0 1.399790E-01 7.843068E-02 5.722638E-02 0.0 386 G 0.0 0.0 8.948055E-02 1.118734E-01 1.160806E-01 0.0 387 G 0.0 0.0 2.023734E-02 1.273773E-01 1.793696E-01 0.0 388 G 0.0 0.0 -7.988223E-02 1.928190E-01 2.016888E-01 0.0 389 G 0.0 0.0 -1.786904E-01 2.885614E-01 2.150540E-01 0.0 390 G 0.0 0.0 -2.725317E-01 2.559449E-01 9.087624E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 117 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 -2.464167E-01 9.791445E-02 -1.699742E-01 0.0 392 G 0.0 0.0 -1.034302E-01 -5.392523E-02 -4.187430E-01 0.0 393 G 0.0 0.0 1.497817E-01 -1.738041E-01 -5.397286E-01 0.0 394 G 0.0 0.0 3.915280E-01 -2.482004E-01 -4.269065E-01 0.0 395 G 0.0 0.0 5.440356E-01 -2.757556E-01 -1.450657E-01 0.0 396 G 0.0 0.0 5.516689E-01 -2.947634E-01 5.445025E-02 0.0 397 G 0.0 0.0 4.848887E-01 -2.886726E-01 2.688765E-01 0.0 398 G 0.0 0.0 2.725129E-01 -2.009891E-01 5.340341E-01 0.0 399 G 0.0 0.0 0.0 0.0 5.579460E-01 0.0 442 G 0.0 0.0 -5.838303E-01 -1.861126E-01 0.0 0.0 443 G 0.0 0.0 -4.529309E-01 -1.386595E-01 -4.112414E-01 0.0 444 G 0.0 0.0 -2.950985E-01 -2.202017E-02 -1.869145E-01 0.0 445 G 0.0 0.0 -2.517115E-01 4.858491E-03 -6.039508E-02 0.0 446 G 0.0 0.0 -1.972345E-01 -5.629781E-02 -1.362987E-01 0.0 447 G 0.0 0.0 -1.068179E-01 -7.492230E-02 -2.452909E-01 0.0 448 G 0.0 0.0 3.144806E-02 -5.127245E-02 -2.556922E-01 0.0 449 G 0.0 0.0 1.151283E-01 5.234032E-03 -8.462619E-02 0.0 450 G 0.0 0.0 1.042253E-01 6.292249E-02 1.554939E-01 0.0 451 G 0.0 0.0 1.246392E-03 5.993139E-02 1.849330E-01 0.0 452 G 0.0 0.0 -6.460966E-02 -4.495642E-03 1.309449E-01 0.0 453 G 0.0 0.0 -1.383397E-01 -7.507033E-02 1.303535E-01 0.0 454 G 0.0 0.0 -1.714925E-01 -1.065110E-01 2.913509E-02 0.0 455 G 0.0 0.0 -1.630828E-01 -1.404201E-01 -8.701656E-02 0.0 456 G 0.0 0.0 -9.117139E-02 -2.441006E-01 -1.858073E-01 0.0 457 G 0.0 0.0 2.220174E-02 -3.912039E-01 -2.946283E-01 0.0 458 G 0.0 0.0 1.797433E-01 -4.126883E-01 -2.654869E-01 0.0 459 G 0.0 0.0 2.598645E-01 -3.014482E-01 -7.629646E-02 0.0 460 G 0.0 0.0 2.494053E-01 -1.863186E-01 1.433843E-01 0.0 461 G 0.0 0.0 1.308544E-01 -8.100608E-02 2.827501E-01 0.0 462 G 0.0 0.0 0.0 0.0 2.457196E-01 0.0 505 G 0.0 0.0 -5.275576E-01 1.409420E-01 0.0 0.0 506 G 0.0 0.0 -4.750285E-01 1.152826E-01 -2.527366E-01 0.0 507 G 0.0 0.0 -3.190899E-01 7.396127E-02 -3.027437E-01 0.0 508 G 0.0 0.0 -1.972933E-01 6.469110E-02 -2.171620E-01 0.0 509 G 0.0 0.0 -7.821462E-02 9.833694E-02 -2.353182E-01 0.0 510 G 0.0 0.0 4.102452E-02 1.448374E-01 -2.593453E-01 0.0 511 G 0.0 0.0 1.672975E-01 1.086874E-01 -2.196476E-01 0.0 512 G 0.0 0.0 2.548274E-01 9.316892E-03 -1.492409E-01 0.0 513 G 0.0 0.0 3.017481E-01 -3.825991E-02 2.093871E-02 0.0 514 G 0.0 0.0 2.275333E-01 1.560883E-02 2.425638E-01 0.0 515 G 0.0 0.0 7.729895E-02 2.948538E-02 3.664493E-01 0.0 516 G 0.0 0.0 -1.154063E-01 1.215687E-02 3.632256E-01 0.0 517 G 0.0 0.0 -2.561845E-01 -3.613728E-02 2.032064E-01 0.0 518 G 0.0 0.0 -3.071916E-01 -8.293073E-02 -2.082663E-02 0.0 519 G 0.0 0.0 -2.641833E-01 -9.667880E-02 -9.621621E-02 0.0 520 G 0.0 0.0 -2.210353E-01 -6.442253E-02 -1.146933E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 118 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -1.443503E-01 -4.186819E-02 -1.674768E-01 0.0 522 G 0.0 0.0 -7.576681E-02 -4.986944E-02 -1.260649E-01 0.0 523 G 0.0 0.0 -2.582098E-02 -7.695015E-02 -5.238426E-02 0.0 524 G 0.0 0.0 -1.559975E-02 -4.928097E-02 -8.328402E-03 0.0 525 G 0.0 0.0 0.0 0.0 -4.501642E-02 0.0 568 G 0.0 0.0 -1.617392E-01 2.128079E-01 0.0 0.0 569 G 0.0 0.0 -9.887477E-02 1.839415E-01 -2.245702E-01 0.0 570 G 0.0 0.0 1.514308E-02 1.714727E-01 -1.952561E-01 0.0 571 G 0.0 0.0 9.722839E-02 1.711382E-01 -1.671393E-01 0.0 572 G 0.0 0.0 2.023522E-01 1.627914E-01 -2.425012E-01 0.0 573 G 0.0 0.0 3.391587E-01 1.407273E-01 -3.154986E-01 0.0 574 G 0.0 0.0 4.758605E-01 1.399539E-01 -1.708161E-01 0.0 575 G 0.0 0.0 4.935025E-01 1.584151E-01 6.027656E-02 0.0 576 G 0.0 0.0 4.282631E-01 1.590157E-01 2.167255E-01 0.0 577 G 0.0 0.0 2.743971E-01 1.146382E-01 3.642576E-01 0.0 578 G 0.0 0.0 7.917917E-02 6.577788E-02 4.202099E-01 0.0 579 G 0.0 0.0 -1.263947E-01 7.609201E-02 3.805211E-01 0.0 580 G 0.0 0.0 -2.962212E-01 1.347697E-01 3.148321E-01 0.0 581 G 0.0 0.0 -4.293246E-01 1.253574E-01 1.677626E-01 0.0 582 G 0.0 0.0 -4.559201E-01 4.459484E-02 -3.813844E-02 0.0 583 G 0.0 0.0 -3.994568E-01 -1.042402E-02 -1.991199E-01 0.0 584 G 0.0 0.0 -2.756500E-01 -3.523815E-02 -2.569144E-01 0.0 585 G 0.0 0.0 -1.695942E-01 -2.775873E-02 -1.727035E-01 0.0 586 G 0.0 0.0 -1.112925E-01 6.107565E-04 -4.064799E-02 0.0 587 G 0.0 0.0 -9.247438E-02 1.297021E-02 -8.911037E-02 0.0 588 G 0.0 0.0 0.0 0.0 -2.424491E-01 0.0 631 G 0.0 0.0 -1.455455E-01 -1.197271E-01 0.0 0.0 632 G 0.0 0.0 -9.726883E-02 -9.400710E-02 -1.785334E-01 0.0 633 G 0.0 0.0 4.523929E-03 -1.005588E-01 -2.036324E-01 0.0 634 G 0.0 0.0 1.070091E-01 -7.523063E-02 -2.185194E-01 0.0 635 G 0.0 0.0 2.163579E-01 -1.334709E-02 -1.928256E-01 0.0 636 G 0.0 0.0 2.981831E-01 -1.756160E-02 -1.737038E-01 0.0 637 G 0.0 0.0 3.851460E-01 -8.129085E-02 -1.446460E-01 0.0 638 G 0.0 0.0 4.292925E-01 -1.063337E-01 -4.551795E-02 0.0 639 G 0.0 0.0 4.189852E-01 -9.083072E-02 1.146068E-01 0.0 640 G 0.0 0.0 3.052941E-01 -4.194824E-02 3.179087E-01 0.0 641 G 0.0 0.0 1.125465E-01 2.132250E-02 4.580789E-01 0.0 642 G 0.0 0.0 -1.083396E-01 5.401055E-02 3.612246E-01 0.0 643 G 0.0 0.0 -2.346394E-01 5.089909E-02 1.819164E-01 0.0 644 G 0.0 0.0 -3.034560E-01 4.802442E-02 7.246937E-02 0.0 645 G 0.0 0.0 -3.014183E-01 7.577721E-02 -5.247695E-02 0.0 646 G 0.0 0.0 -2.597736E-01 9.685843E-02 -1.249267E-01 0.0 647 G 0.0 0.0 -1.886620E-01 5.308553E-02 -1.433671E-01 0.0 648 G 0.0 0.0 -1.164858E-01 -4.170230E-02 -1.658342E-01 0.0 649 G 0.0 0.0 -3.360683E-02 -6.778502E-02 -1.176718E-01 0.0 650 G 0.0 0.0 -6.811716E-03 -2.481986E-02 -1.348794E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 119 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 -1.942654E-02 0.0 694 G 0.0 0.0 -3.934350E-01 -2.518732E-01 0.0 0.0 695 G 0.0 0.0 -3.415173E-01 -1.929837E-01 -1.728462E-01 0.0 696 G 0.0 0.0 -2.668128E-01 -1.718491E-01 -1.003811E-01 0.0 697 G 0.0 0.0 -2.188376E-01 -1.968145E-01 -1.411136E-01 0.0 698 G 0.0 0.0 -1.148022E-01 -2.547270E-01 -2.431023E-01 0.0 699 G 0.0 0.0 8.877994E-03 -2.846530E-01 -2.596497E-01 0.0 700 G 0.0 0.0 1.400700E-01 -2.597790E-01 -2.338547E-01 0.0 701 G 0.0 0.0 2.293509E-01 -1.969828E-01 -1.299522E-01 0.0 702 G 0.0 0.0 2.627120E-01 -1.646626E-01 6.191692E-03 0.0 703 G 0.0 0.0 2.333520E-01 -1.581808E-01 8.905698E-02 0.0 704 G 0.0 0.0 1.808287E-01 -9.279738E-02 1.512853E-01 0.0 705 G 0.0 0.0 8.872411E-02 2.338668E-02 1.937262E-01 0.0 706 G 0.0 0.0 -1.089817E-03 1.063218E-01 1.747769E-01 0.0 707 G 0.0 0.0 -7.506227E-02 1.457401E-01 9.634106E-02 0.0 708 G 0.0 0.0 -8.695214E-02 1.440784E-01 -3.624821E-02 0.0 709 G 0.0 0.0 -4.333155E-02 1.202890E-01 -1.463209E-01 0.0 710 G 0.0 0.0 2.840805E-02 1.140469E-01 -9.463704E-02 0.0 711 G 0.0 0.0 4.367658E-02 1.241162E-01 1.082126E-03 0.0 712 G 0.0 0.0 4.011889E-02 1.177372E-01 2.595492E-02 0.0 713 G 0.0 0.0 1.501717E-02 7.060818E-02 4.940661E-02 0.0 714 G 0.0 0.0 0.0 0.0 1.820032E-02 0.0 757 G 0.0 0.0 -3.999300E-01 5.970553E-02 0.0 0.0 758 G 0.0 0.0 -3.563675E-01 1.175439E-02 -1.639216E-01 0.0 759 G 0.0 0.0 -2.762533E-01 -6.463238E-03 -1.232746E-01 0.0 760 G 0.0 0.0 -2.354132E-01 2.698263E-02 -6.793580E-02 0.0 761 G 0.0 0.0 -1.958968E-01 3.597672E-02 -8.170427E-02 0.0 762 G 0.0 0.0 -1.457958E-01 1.783989E-02 -1.399113E-01 0.0 763 G 0.0 0.0 -5.167289E-02 -2.108000E-02 -2.178245E-01 0.0 764 G 0.0 0.0 6.325705E-02 -5.824007E-02 -2.459951E-01 0.0 765 G 0.0 0.0 1.641682E-01 -5.507614E-02 -1.111531E-01 0.0 766 G 0.0 0.0 1.726937E-01 -1.253323E-02 4.144648E-02 0.0 767 G 0.0 0.0 1.444567E-01 2.901823E-02 8.284745E-02 0.0 768 G 0.0 0.0 9.317696E-02 3.797539E-02 9.811290E-02 0.0 769 G 0.0 0.0 5.503972E-02 3.519847E-02 6.466747E-02 0.0 770 G 0.0 0.0 3.367268E-02 6.661630E-02 1.349330E-02 0.0 771 G 0.0 0.0 3.267923E-02 1.216251E-01 1.219144E-02 0.0 772 G 0.0 0.0 2.009371E-02 1.116834E-01 4.537452E-03 0.0 773 G 0.0 0.0 2.912683E-02 3.954122E-02 -2.086672E-02 0.0 774 G 0.0 0.0 3.607300E-02 -1.219167E-02 -1.979946E-02 0.0 775 G 0.0 0.0 4.377748E-02 -3.903386E-02 1.097086E-02 0.0 776 G 0.0 0.0 2.219416E-02 -3.681702E-02 5.705647E-02 0.0 777 G 0.0 0.0 0.0 0.0 3.786653E-02 0.0 820 G 0.0 0.0 -1.863762E-01 2.925081E-01 0.0 0.0 821 G 0.0 0.0 -1.530904E-01 2.637910E-01 -1.006670E-01 0.0 822 G 0.0 0.0 -1.132447E-01 2.167950E-01 -5.123955E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 120 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 -1.000800E-01 1.978883E-01 -1.936704E-02 0.0 824 G 0.0 0.0 -8.712696E-02 1.538508E-01 -1.946429E-02 0.0 825 G 0.0 0.0 -7.728124E-02 1.255593E-01 -3.499243E-02 0.0 826 G 0.0 0.0 -5.479449E-02 9.078842E-02 -4.164992E-02 0.0 827 G 0.0 0.0 -3.598638E-02 6.863327E-02 -5.434053E-02 0.0 828 G 0.0 0.0 -2.404804E-03 -2.341917E-02 -5.505338E-02 0.0 829 G 0.0 0.0 1.874446E-02 -7.252050E-02 -4.601772E-02 0.0 830 G 0.0 0.0 4.212274E-02 -9.481747E-02 -2.190542E-02 0.0 831 G 0.0 0.0 3.525418E-02 -7.752922E-02 3.757276E-02 0.0 832 G 0.0 0.0 9.639482E-03 -5.594339E-02 7.586823E-02 0.0 833 G 0.0 0.0 -1.945216E-02 -3.117010E-02 -5.262505E-03 0.0 834 G 0.0 0.0 1.027295E-02 -5.004850E-02 -6.868175E-02 0.0 835 G 0.0 0.0 3.108524E-02 -6.511184E-02 -2.501165E-02 0.0 836 G 0.0 0.0 4.148344E-02 -8.062539E-02 -2.742910E-03 0.0 837 G 0.0 0.0 3.612356E-02 -5.367566E-02 9.555558E-03 0.0 838 G 0.0 0.0 2.983038E-02 -3.713643E-02 2.986677E-02 0.0 839 G 0.0 0.0 8.382446E-03 -1.104044E-02 3.608936E-02 0.0 840 G 0.0 0.0 0.0 0.0 4.039577E-03 0.0 841 G 0.0 0.0 0.0 4.172850E-01 0.0 0.0 842 G 0.0 0.0 0.0 3.277452E-01 0.0 0.0 843 G 0.0 0.0 0.0 2.352167E-01 0.0 0.0 844 G 0.0 0.0 0.0 2.081719E-01 0.0 0.0 845 G 0.0 0.0 0.0 1.824938E-01 0.0 0.0 846 G 0.0 0.0 0.0 1.745037E-01 0.0 0.0 847 G 0.0 0.0 0.0 1.160915E-01 0.0 0.0 848 G 0.0 0.0 0.0 8.079020E-02 0.0 0.0 849 G 0.0 0.0 0.0 1.729268E-02 0.0 0.0 850 G 0.0 0.0 0.0 -9.769827E-03 0.0 0.0 851 G 0.0 0.0 0.0 -7.672577E-02 0.0 0.0 852 G 0.0 0.0 0.0 -5.636932E-02 0.0 0.0 853 G 0.0 0.0 0.0 -4.968728E-03 0.0 0.0 854 G 0.0 0.0 0.0 8.326959E-02 0.0 0.0 855 G 0.0 0.0 0.0 -8.872455E-03 0.0 0.0 856 G 0.0 0.0 0.0 -5.270158E-02 0.0 0.0 857 G 0.0 0.0 0.0 -8.669163E-02 0.0 0.0 858 G 0.0 0.0 0.0 -7.825927E-02 0.0 0.0 859 G 0.0 0.0 0.0 -7.575990E-02 0.0 0.0 860 G 0.0 0.0 0.0 -1.917250E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 121 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 6.688575E-02 0.0 0.0 2 G 0.0 0.0 0.0 1.770604E-01 0.0 0.0 3 G 0.0 0.0 0.0 2.983970E-01 0.0 0.0 4 G 0.0 0.0 0.0 -2.670683E-02 0.0 0.0 5 G 0.0 0.0 0.0 -1.715152E-01 0.0 0.0 6 G 0.0 0.0 0.0 -1.599859E-01 0.0 0.0 7 G 0.0 0.0 0.0 1.673490E-01 0.0 0.0 8 G 0.0 0.0 0.0 -7.259754E-03 0.0 0.0 9 G 0.0 0.0 0.0 7.589117E-02 0.0 0.0 10 G 0.0 0.0 0.0 6.550609E-02 0.0 0.0 11 G 0.0 0.0 0.0 1.235376E-01 0.0 0.0 12 G 0.0 0.0 0.0 1.526787E-01 0.0 0.0 13 G 0.0 0.0 0.0 3.099521E-01 0.0 0.0 14 G 0.0 0.0 0.0 1.364190E-01 0.0 0.0 15 G 0.0 0.0 0.0 -7.707044E-02 0.0 0.0 16 G 0.0 0.0 0.0 -3.105491E-01 0.0 0.0 17 G 0.0 0.0 0.0 -1.646405E-01 0.0 0.0 18 G 0.0 0.0 0.0 -2.006666E-01 0.0 0.0 19 G 0.0 0.0 0.0 -2.969777E-01 0.0 0.0 20 G 0.0 0.0 0.0 -5.165389E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 2.113265E-01 3.640473E-01 0.0 0.0 65 G 0.0 0.0 2.057700E-01 2.942643E-01 -9.397997E-03 0.0 66 G 0.0 0.0 1.500303E-01 1.423326E-01 3.177446E-01 0.0 67 G 0.0 0.0 -1.176678E-01 -1.733578E-02 6.673677E-01 0.0 68 G 0.0 0.0 -4.653643E-01 -1.398912E-01 7.358930E-01 0.0 69 G 0.0 0.0 -7.300047E-01 -2.728964E-01 1.477303E-01 0.0 70 G 0.0 0.0 -6.144975E-01 -3.936724E-01 -4.532015E-01 0.0 71 G 0.0 0.0 -3.726842E-01 -3.792440E-01 -5.444058E-01 0.0 72 G 0.0 0.0 -8.806431E-02 -1.914460E-01 -4.926470E-01 0.0 73 G 0.0 0.0 8.991364E-02 1.703306E-02 -2.607203E-01 0.0 74 G 0.0 0.0 1.652933E-01 -4.539560E-03 -1.393505E-02 0.0 75 G 0.0 0.0 1.506662E-01 -2.322314E-01 -1.739653E-02 0.0 76 G 0.0 0.0 1.887063E-01 -2.991622E-01 -1.608240E-03 0.0 77 G 0.0 0.0 1.383397E-01 -1.385559E-01 1.274452E-01 0.0 78 G 0.0 0.0 6.967685E-02 -4.287613E-02 2.076299E-01 0.0 79 G 0.0 0.0 -4.801972E-02 1.059433E-02 1.756068E-01 0.0 80 G 0.0 0.0 -6.550051E-02 -3.701993E-03 -5.530832E-02 0.0 81 G 0.0 0.0 6.844204E-03 -4.218804E-02 -2.781661E-01 0.0 82 G 0.0 0.0 1.208606E-01 -1.276059E-02 -1.743761E-02 0.0 83 G 0.0 0.0 3.229164E-02 5.258008E-02 2.072128E-01 0.0 84 G 0.0 0.0 0.0 0.0 -4.575356E-02 0.0 127 G 0.0 0.0 7.023150E-01 1.357125E-02 0.0 0.0 128 G 0.0 0.0 6.689451E-01 -1.256779E-02 1.578173E-01 0.0 129 G 0.0 0.0 4.457734E-01 -9.934239E-02 7.598756E-01 0.0 130 G 0.0 0.0 9.946114E-04 -3.245789E-01 8.645669E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 122 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -3.318463E-01 -3.222414E-01 5.494680E-01 0.0 132 G 0.0 0.0 -5.192025E-01 -8.525654E-02 1.142729E-01 0.0 133 G 0.0 0.0 -4.537967E-01 9.234822E-02 -2.976394E-01 0.0 134 G 0.0 0.0 -2.541673E-01 1.898342E-01 -5.552123E-01 0.0 135 G 0.0 0.0 8.583276E-02 2.046284E-01 -7.238680E-01 0.0 136 G 0.0 0.0 4.336812E-01 1.710546E-01 -6.962846E-01 0.0 137 G 0.0 0.0 6.768866E-01 2.115040E-01 -1.109542E-01 0.0 138 G 0.0 0.0 5.528641E-01 3.031593E-01 4.479972E-01 0.0 139 G 0.0 0.0 3.234579E-01 3.219497E-01 5.049593E-01 0.0 140 G 0.0 0.0 5.924223E-02 1.820700E-01 4.499826E-01 0.0 141 G 0.0 0.0 -1.026717E-01 3.024942E-02 2.426675E-01 0.0 142 G 0.0 0.0 -1.801016E-01 6.725106E-02 3.830884E-02 0.0 143 G 0.0 0.0 -1.885253E-01 2.663222E-01 8.886629E-02 0.0 144 G 0.0 0.0 -2.712679E-01 2.536124E-01 1.037150E-01 0.0 145 G 0.0 0.0 -2.680257E-01 5.829270E-02 -4.468844E-02 0.0 146 G 0.0 0.0 -2.127584E-01 -1.143478E-02 -2.458969E-01 0.0 147 G 0.0 0.0 0.0 0.0 -5.300774E-01 0.0 190 G 0.0 0.0 4.918592E-01 3.384261E-01 0.0 0.0 191 G 0.0 0.0 5.419418E-01 1.024902E-01 -8.921149E-02 0.0 192 G 0.0 0.0 4.475052E-01 -1.099283E-02 5.765750E-01 0.0 193 G 0.0 0.0 2.793376E-02 8.094657E-02 9.680468E-01 0.0 194 G 0.0 0.0 -3.889477E-01 1.756075E-01 6.601110E-01 0.0 195 G 0.0 0.0 -5.878743E-01 2.006125E-01 7.241336E-02 0.0 196 G 0.0 0.0 -4.729224E-01 1.086282E-01 -4.681544E-01 0.0 197 G 0.0 0.0 -1.776246E-01 1.329685E-01 -6.859816E-01 0.0 198 G 0.0 0.0 1.392670E-01 2.290732E-01 -5.195615E-01 0.0 199 G 0.0 0.0 3.217006E-01 2.495364E-01 -2.866137E-01 0.0 200 G 0.0 0.0 4.214642E-01 7.079600E-05 -5.221602E-02 0.0 201 G 0.0 0.0 3.682898E-01 -1.289380E-01 2.272456E-01 0.0 202 G 0.0 0.0 2.164402E-01 -1.725347E-01 4.001546E-01 0.0 203 G 0.0 0.0 -1.565620E-02 -1.357253E-01 4.875931E-01 0.0 204 G 0.0 0.0 -2.447337E-01 -8.393277E-02 4.376372E-01 0.0 205 G 0.0 0.0 -4.036963E-01 -1.056223E-01 1.178342E-01 0.0 206 G 0.0 0.0 -3.781534E-01 -1.621001E-01 -1.463819E-01 0.0 207 G 0.0 0.0 -3.032026E-01 -1.669830E-01 -1.647952E-01 0.0 208 G 0.0 0.0 -2.041060E-01 -9.648228E-02 -1.878775E-01 0.0 209 G 0.0 0.0 -1.139407E-01 -2.566085E-02 -1.926493E-01 0.0 210 G 0.0 0.0 0.0 0.0 -2.559115E-01 0.0 253 G 0.0 0.0 1.914124E-01 -2.690054E-01 0.0 0.0 254 G 0.0 0.0 1.667968E-01 -1.581463E-01 1.170850E-01 0.0 255 G 0.0 0.0 3.882772E-02 -1.295104E-01 4.273680E-01 0.0 256 G 0.0 0.0 -2.118789E-01 -6.660553E-02 5.035902E-01 0.0 257 G 0.0 0.0 -4.046712E-01 3.096464E-03 2.826642E-01 0.0 258 G 0.0 0.0 -4.797956E-01 6.017851E-02 -8.035578E-03 0.0 259 G 0.0 0.0 -4.082423E-01 7.039658E-02 -2.334264E-01 0.0 260 G 0.0 0.0 -2.393986E-01 -1.425751E-02 -4.952911E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 123 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 4.510049E-02 -1.588062E-01 -5.454416E-01 0.0 262 G 0.0 0.0 2.436739E-01 -2.614619E-01 -2.652456E-01 0.0 263 G 0.0 0.0 3.130935E-01 -2.521028E-01 2.511873E-02 0.0 264 G 0.0 0.0 2.304137E-01 -1.823230E-01 2.645234E-01 0.0 265 G 0.0 0.0 7.250568E-02 -1.601893E-01 3.622743E-01 0.0 266 G 0.0 0.0 -8.840895E-02 -1.863862E-01 2.268431E-01 0.0 267 G 0.0 0.0 -1.430112E-01 -1.011763E-01 5.862954E-02 0.0 268 G 0.0 0.0 -1.591149E-01 7.965586E-02 -2.318283E-02 0.0 269 G 0.0 0.0 -1.323320E-01 1.882354E-01 -4.455144E-02 0.0 270 G 0.0 0.0 -1.241363E-01 2.159869E-01 -2.538164E-02 0.0 271 G 0.0 0.0 -1.001905E-01 1.678374E-01 -4.567450E-02 0.0 272 G 0.0 0.0 -7.343173E-02 7.535841E-02 -9.105915E-02 0.0 273 G 0.0 0.0 0.0 0.0 -1.879228E-01 0.0 316 G 0.0 0.0 1.684065E-01 4.894756E-02 0.0 0.0 317 G 0.0 0.0 1.700820E-01 1.915626E-02 1.060709E-02 0.0 318 G 0.0 0.0 1.161076E-01 4.054397E-02 2.383010E-01 0.0 319 G 0.0 0.0 -4.766628E-02 9.638347E-02 3.641663E-01 0.0 320 G 0.0 0.0 -2.060828E-01 7.346923E-02 2.643341E-01 0.0 321 G 0.0 0.0 -2.703933E-01 -3.932299E-02 -5.288098E-02 0.0 322 G 0.0 0.0 -1.647447E-01 -6.446461E-02 -2.868775E-01 0.0 323 G 0.0 0.0 -2.361324E-02 -2.823012E-04 -2.972967E-01 0.0 324 G 0.0 0.0 1.045194E-01 1.766304E-02 -1.741181E-01 0.0 325 G 0.0 0.0 1.426717E-01 9.262841E-03 -2.324350E-02 0.0 326 G 0.0 0.0 1.465088E-01 -4.927482E-03 2.632203E-02 0.0 327 G 0.0 0.0 1.274195E-01 -1.081157E-02 1.461277E-02 0.0 328 G 0.0 0.0 1.057958E-01 2.865664E-02 1.444684E-01 0.0 329 G 0.0 0.0 1.232566E-03 1.178884E-01 1.944930E-01 0.0 330 G 0.0 0.0 -4.610125E-02 1.737488E-01 2.237881E-02 0.0 331 G 0.0 0.0 -3.700558E-02 1.712160E-01 -8.471370E-02 0.0 332 G 0.0 0.0 2.347525E-02 1.219289E-01 -1.187281E-01 0.0 333 G 0.0 0.0 6.874119E-02 1.405036E-01 -7.159999E-02 0.0 334 G 0.0 0.0 7.767881E-02 2.045858E-01 6.924324E-02 0.0 335 G 0.0 0.0 1.567038E-02 1.874210E-01 1.060224E-01 0.0 336 G 0.0 0.0 0.0 0.0 -1.098499E-02 0.0 379 G 0.0 0.0 2.786767E-01 3.509685E-02 0.0 0.0 380 G 0.0 0.0 2.735596E-01 2.650905E-02 4.394487E-02 0.0 381 G 0.0 0.0 2.093947E-01 1.656898E-02 2.131366E-01 0.0 382 G 0.0 0.0 8.798515E-02 2.322631E-03 2.338310E-01 0.0 383 G 0.0 0.0 -1.683303E-02 2.377489E-02 2.220289E-01 0.0 384 G 0.0 0.0 -1.130426E-01 6.537259E-02 1.123126E-01 0.0 385 G 0.0 0.0 -1.116959E-01 7.835905E-02 -9.479300E-02 0.0 386 G 0.0 0.0 -4.691784E-02 4.281405E-02 -1.794029E-01 0.0 387 G 0.0 0.0 4.684161E-02 1.103762E-02 -1.703965E-01 0.0 388 G 0.0 0.0 1.107852E-01 4.476724E-02 -9.076617E-02 0.0 389 G 0.0 0.0 1.232653E-01 1.317121E-01 6.369136E-02 0.0 390 G 0.0 0.0 5.725655E-02 1.440012E-01 1.455765E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 124 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 -9.335953E-04 7.654794E-02 1.018692E-01 0.0 392 G 0.0 0.0 -3.321170E-02 2.253713E-02 5.066951E-03 0.0 393 G 0.0 0.0 -6.566999E-03 -1.023960E-02 -7.875121E-02 0.0 394 G 0.0 0.0 2.778794E-02 -2.351112E-02 -6.704468E-02 0.0 395 G 0.0 0.0 4.832625E-02 -2.597235E-02 9.580523E-03 0.0 396 G 0.0 0.0 3.674315E-02 -5.262722E-02 -1.155705E-02 0.0 397 G 0.0 0.0 5.446748E-02 -8.889289E-02 -1.112616E-02 0.0 398 G 0.0 0.0 3.033492E-02 -8.317499E-02 7.845499E-02 0.0 399 G 0.0 0.0 0.0 0.0 5.409649E-02 0.0 442 G 0.0 0.0 9.591893E-02 -4.818303E-02 0.0 0.0 443 G 0.0 0.0 1.443861E-01 -1.668825E-02 -1.088064E-01 0.0 444 G 0.0 0.0 1.188304E-01 5.759758E-02 2.266355E-01 0.0 445 G 0.0 0.0 -5.165764E-02 5.020717E-02 3.819616E-01 0.0 446 G 0.0 0.0 -2.116649E-01 -3.438111E-02 2.598816E-01 0.0 447 G 0.0 0.0 -2.877470E-01 -8.771501E-02 1.844697E-02 0.0 448 G 0.0 0.0 -2.365825E-01 -1.035934E-01 -1.851185E-01 0.0 449 G 0.0 0.0 -1.344672E-01 -8.351418E-02 -2.239456E-01 0.0 450 G 0.0 0.0 -3.633194E-02 -4.806457E-02 -1.386567E-01 0.0 451 G 0.0 0.0 1.883272E-02 -4.356234E-02 -1.286004E-01 0.0 452 G 0.0 0.0 8.857299E-02 -7.019044E-02 -1.006513E-01 0.0 453 G 0.0 0.0 1.025674E-01 -8.680850E-02 2.264444E-02 0.0 454 G 0.0 0.0 8.289442E-02 -6.357139E-02 7.720865E-02 0.0 455 G 0.0 0.0 3.524187E-02 -4.159423E-02 9.032501E-02 0.0 456 G 0.0 0.0 -1.076555E-03 -8.257233E-02 6.058725E-02 0.0 457 G 0.0 0.0 -1.278333E-02 -1.724393E-01 -4.107792E-02 0.0 458 G 0.0 0.0 3.184495E-02 -1.816797E-01 -8.647703E-02 0.0 459 G 0.0 0.0 5.743615E-02 -1.061007E-01 -3.465037E-02 0.0 460 G 0.0 0.0 6.116021E-02 -4.637267E-02 4.030602E-02 0.0 461 G 0.0 0.0 2.285809E-02 -9.411819E-03 7.779451E-02 0.0 462 G 0.0 0.0 0.0 0.0 2.186547E-02 0.0 505 G 0.0 0.0 8.726405E-02 -3.306651E-02 0.0 0.0 506 G 0.0 0.0 7.231595E-02 -4.922601E-02 2.236070E-02 0.0 507 G 0.0 0.0 4.086947E-02 -6.996427E-02 1.467478E-01 0.0 508 G 0.0 0.0 -7.494374E-02 -5.917854E-02 2.758412E-01 0.0 509 G 0.0 0.0 -1.942093E-01 -1.138714E-02 2.051826E-01 0.0 510 G 0.0 0.0 -2.598311E-01 4.593273E-02 3.276110E-02 0.0 511 G 0.0 0.0 -2.295127E-01 3.453205E-02 -1.369986E-01 0.0 512 G 0.0 0.0 -1.305165E-01 -3.098715E-02 -2.700918E-01 0.0 513 G 0.0 0.0 1.638776E-02 -5.862402E-02 -2.616794E-01 0.0 514 G 0.0 0.0 1.090535E-01 -7.488266E-03 -1.245317E-01 0.0 515 G 0.0 0.0 1.391306E-01 1.186663E-02 2.002892E-02 0.0 516 G 0.0 0.0 9.681452E-02 6.938466E-03 1.227006E-01 0.0 517 G 0.0 0.0 3.657605E-02 -2.185758E-02 1.226059E-01 0.0 518 G 0.0 0.0 -1.298666E-02 -4.911632E-02 5.660804E-02 0.0 519 G 0.0 0.0 -3.404191E-02 -5.098673E-02 6.666902E-02 0.0 520 G 0.0 0.0 -7.692406E-02 -1.915702E-02 6.938412E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 125 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -8.989993E-02 5.375036E-04 -2.558528E-03 0.0 522 G 0.0 0.0 -8.607368E-02 -9.036327E-03 -3.053024E-02 0.0 523 G 0.0 0.0 -6.428280E-02 -3.812345E-02 -4.016275E-02 0.0 524 G 0.0 0.0 -4.337438E-02 -2.691886E-02 -5.751916E-02 0.0 525 G 0.0 0.0 0.0 0.0 -1.060056E-01 0.0 568 G 0.0 0.0 1.247131E-01 1.929076E-02 0.0 0.0 569 G 0.0 0.0 1.288192E-01 5.013267E-03 1.855409E-03 0.0 570 G 0.0 0.0 9.520199E-02 1.919373E-02 1.530004E-01 0.0 571 G 0.0 0.0 -6.048204E-03 5.401740E-02 2.139049E-01 0.0 572 G 0.0 0.0 -8.310775E-02 8.717109E-02 9.242175E-02 0.0 573 G 0.0 0.0 -8.317596E-02 1.074216E-01 -1.068906E-01 0.0 574 G 0.0 0.0 -2.350004E-03 1.366970E-01 -1.688727E-01 0.0 575 G 0.0 0.0 6.960997E-02 1.695166E-01 -1.451280E-01 0.0 576 G 0.0 0.0 1.415368E-01 1.753845E-01 -1.208375E-01 0.0 577 G 0.0 0.0 1.732824E-01 1.345836E-01 -2.340845E-02 0.0 578 G 0.0 0.0 1.624393E-01 8.281568E-02 7.774428E-02 0.0 579 G 0.0 0.0 1.011340E-01 7.459636E-02 1.548582E-01 0.0 580 G 0.0 0.0 8.711516E-03 1.047855E-01 2.275295E-01 0.0 581 G 0.0 0.0 -1.132099E-01 8.357687E-02 2.171626E-01 0.0 582 G 0.0 0.0 -1.936759E-01 9.832165E-03 1.174470E-01 0.0 583 G 0.0 0.0 -2.271968E-01 -3.875155E-02 1.936878E-03 0.0 584 G 0.0 0.0 -2.017944E-01 -5.833719E-02 -7.691958E-02 0.0 585 G 0.0 0.0 -1.662787E-01 -4.794853E-02 -7.150794E-02 0.0 586 G 0.0 0.0 -1.357871E-01 -1.803577E-02 -3.447790E-02 0.0 587 G 0.0 0.0 -1.061143E-01 7.274098E-04 -1.247060E-01 0.0 588 G 0.0 0.0 0.0 0.0 -2.654008E-01 0.0 631 G 0.0 0.0 3.401689E-02 -6.773479E-02 0.0 0.0 632 G 0.0 0.0 3.634715E-02 -4.416558E-02 -5.192817E-05 0.0 633 G 0.0 0.0 2.018624E-02 -4.066202E-02 7.832038E-02 0.0 634 G 0.0 0.0 -2.659979E-02 -9.593438E-03 9.108953E-02 0.0 635 G 0.0 0.0 -5.948272E-02 4.852978E-02 5.376660E-02 0.0 636 G 0.0 0.0 -6.836507E-02 4.856477E-02 -5.290244E-02 0.0 637 G 0.0 0.0 -4.648894E-03 -6.555434E-03 -1.772449E-01 0.0 638 G 0.0 0.0 9.514376E-02 -3.898313E-02 -2.264919E-01 0.0 639 G 0.0 0.0 2.024553E-01 -4.495925E-02 -1.718901E-01 0.0 640 G 0.0 0.0 2.461706E-01 -2.697852E-02 -1.170832E-02 0.0 641 G 0.0 0.0 2.108849E-01 3.119826E-03 1.631095E-01 0.0 642 G 0.0 0.0 1.103372E-01 1.257906E-02 1.908146E-01 0.0 643 G 0.0 0.0 2.936285E-02 -5.865020E-04 1.615621E-01 0.0 644 G 0.0 0.0 -5.774204E-02 -6.986323E-03 1.657629E-01 0.0 645 G 0.0 0.0 -1.240408E-01 1.665721E-02 1.153893E-01 0.0 646 G 0.0 0.0 -1.708245E-01 3.895038E-02 5.702837E-02 0.0 647 G 0.0 0.0 -1.826649E-01 1.180619E-02 -1.428667E-03 0.0 648 G 0.0 0.0 -1.647139E-01 -5.523616E-02 -8.835766E-02 0.0 649 G 0.0 0.0 -1.023483E-01 -6.813756E-02 -1.220623E-01 0.0 650 G 0.0 0.0 -5.250824E-02 -2.677295E-02 -9.282242E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 126 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 -1.169977E-01 0.0 694 G 0.0 0.0 -1.107958E-02 -5.943400E-02 0.0 0.0 695 G 0.0 0.0 -4.831485E-03 -1.319696E-02 2.814100E-04 0.0 696 G 0.0 0.0 -4.080714E-02 1.421440E-03 1.575040E-01 0.0 697 G 0.0 0.0 -1.322469E-01 -2.503291E-02 1.603495E-01 0.0 698 G 0.0 0.0 -1.783465E-01 -8.478411E-02 4.095351E-02 0.0 699 G 0.0 0.0 -1.739786E-01 -1.310429E-01 -6.999849E-02 0.0 700 G 0.0 0.0 -1.069967E-01 -1.422426E-01 -1.740114E-01 0.0 701 G 0.0 0.0 -1.273951E-02 -1.292924E-01 -2.047808E-01 0.0 702 G 0.0 0.0 8.386698E-02 -1.418428E-01 -1.676969E-01 0.0 703 G 0.0 0.0 1.519774E-01 -1.706406E-01 -1.152889E-01 0.0 704 G 0.0 0.0 1.944364E-01 -1.434862E-01 -2.511878E-02 0.0 705 G 0.0 0.0 1.755656E-01 -6.363189E-02 8.469433E-02 0.0 706 G 0.0 0.0 1.173787E-01 2.695572E-03 1.545669E-01 0.0 707 G 0.0 0.0 3.284083E-02 4.499153E-02 1.605639E-01 0.0 708 G 0.0 0.0 -2.848102E-02 6.132875E-02 8.983186E-02 0.0 709 G 0.0 0.0 -5.310800E-02 6.238091E-02 -2.311029E-03 0.0 710 G 0.0 0.0 -4.427894E-02 7.539991E-02 3.583928E-05 0.0 711 G 0.0 0.0 -5.541842E-02 9.610947E-02 1.756134E-02 0.0 712 G 0.0 0.0 -5.131685E-02 9.701242E-02 -2.295421E-02 0.0 713 G 0.0 0.0 -3.747483E-02 5.957399E-02 -4.932171E-02 0.0 714 G 0.0 0.0 0.0 0.0 -9.055878E-02 0.0 757 G 0.0 0.0 9.712509E-02 1.235839E-02 0.0 0.0 758 G 0.0 0.0 1.015107E-01 -1.752840E-02 -1.137584E-02 0.0 759 G 0.0 0.0 8.133692E-02 -1.028651E-02 1.125794E-01 0.0 760 G 0.0 0.0 -4.476230E-03 4.473427E-02 2.002138E-01 0.0 761 G 0.0 0.0 -9.908585E-02 7.819094E-02 1.758742E-01 0.0 762 G 0.0 0.0 -1.657565E-01 7.945354E-02 6.690779E-02 0.0 763 G 0.0 0.0 -1.585100E-01 4.879151E-02 -8.480350E-02 0.0 764 G 0.0 0.0 -8.907551E-02 4.356219E-03 -1.961567E-01 0.0 765 G 0.0 0.0 8.259339E-03 -1.869787E-02 -1.537162E-01 0.0 766 G 0.0 0.0 5.559142E-02 -1.410036E-02 -5.987839E-02 0.0 767 G 0.0 0.0 7.801147E-02 -6.422515E-03 -1.738453E-02 0.0 768 G 0.0 0.0 7.062849E-02 -1.473386E-02 2.993470E-02 0.0 769 G 0.0 0.0 5.320580E-02 -1.958671E-02 4.819261E-02 0.0 770 G 0.0 0.0 2.790844E-02 1.456178E-02 4.604749E-02 0.0 771 G 0.0 0.0 3.803998E-03 7.517955E-02 6.534404E-02 0.0 772 G 0.0 0.0 -3.392896E-02 8.632218E-02 5.670007E-02 0.0 773 G 0.0 0.0 -4.799797E-02 4.453328E-02 1.357403E-02 0.0 774 G 0.0 0.0 -4.884860E-02 1.143810E-02 -2.075558E-02 0.0 775 G 0.0 0.0 -3.088870E-02 -1.053127E-02 -3.281995E-02 0.0 776 G 0.0 0.0 -1.992114E-02 -1.684141E-02 -2.349863E-02 0.0 777 G 0.0 0.0 0.0 0.0 -4.865733E-02 0.0 820 G 0.0 0.0 2.716408E-03 -5.340583E-02 0.0 0.0 821 G 0.0 0.0 1.970067E-02 -5.817655E-02 -4.288293E-02 0.0 822 G 0.0 0.0 2.507508E-02 -4.517126E-02 2.550618E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 127 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 -2.117890E-03 1.187407E-02 6.637880E-02 0.0 824 G 0.0 0.0 -3.320197E-02 5.592199E-02 6.520471E-02 0.0 825 G 0.0 0.0 -6.231111E-02 1.036056E-01 3.672869E-02 0.0 826 G 0.0 0.0 -7.077322E-02 1.254897E-01 5.933871E-03 0.0 827 G 0.0 0.0 -6.872001E-02 1.315090E-01 -3.109521E-02 0.0 828 G 0.0 0.0 -4.271794E-02 5.886645E-02 -5.277816E-02 0.0 829 G 0.0 0.0 -1.840376E-02 4.764536E-03 -5.650385E-02 0.0 830 G 0.0 0.0 1.046679E-02 -3.328571E-02 -3.777853E-02 0.0 831 G 0.0 0.0 1.364249E-02 -3.639155E-02 1.638607E-02 0.0 832 G 0.0 0.0 -2.416818E-03 -2.737787E-02 5.666650E-02 0.0 833 G 0.0 0.0 -2.597106E-02 -6.388906E-03 1.235249E-03 0.0 834 G 0.0 0.0 -6.442539E-03 -1.305808E-02 -4.414719E-02 0.0 835 G 0.0 0.0 4.931061E-03 -1.442611E-02 -9.937318E-03 0.0 836 G 0.0 0.0 9.440578E-03 -1.892798E-02 2.523256E-03 0.0 837 G 0.0 0.0 4.958942E-03 3.167755E-03 3.759847E-03 0.0 838 G 0.0 0.0 4.240338E-03 8.119310E-03 1.058566E-02 0.0 839 G 0.0 0.0 -4.288692E-03 1.244676E-02 8.400129E-03 0.0 840 G 0.0 0.0 0.0 0.0 -1.958590E-02 0.0 841 G 0.0 0.0 0.0 2.370685E-02 0.0 0.0 842 G 0.0 0.0 0.0 -2.833896E-02 0.0 0.0 843 G 0.0 0.0 0.0 -4.898937E-02 0.0 0.0 844 G 0.0 0.0 0.0 5.318664E-03 0.0 0.0 845 G 0.0 0.0 0.0 6.845889E-02 0.0 0.0 846 G 0.0 0.0 0.0 1.370470E-01 0.0 0.0 847 G 0.0 0.0 0.0 1.447739E-01 0.0 0.0 848 G 0.0 0.0 0.0 1.440369E-01 0.0 0.0 849 G 0.0 0.0 0.0 9.636144E-02 0.0 0.0 850 G 0.0 0.0 0.0 6.088192E-02 0.0 0.0 851 G 0.0 0.0 0.0 -1.212359E-02 0.0 0.0 852 G 0.0 0.0 0.0 -1.299242E-02 0.0 0.0 853 G 0.0 0.0 0.0 1.915624E-02 0.0 0.0 854 G 0.0 0.0 0.0 8.956579E-02 0.0 0.0 855 G 0.0 0.0 0.0 2.401160E-02 0.0 0.0 856 G 0.0 0.0 0.0 -1.235575E-03 0.0 0.0 857 G 0.0 0.0 0.0 -2.130590E-02 0.0 0.0 858 G 0.0 0.0 0.0 -1.455853E-02 0.0 0.0 859 G 0.0 0.0 0.0 -2.126706E-02 0.0 0.0 860 G 0.0 0.0 0.0 6.596629E-03 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 128 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 3.218621E-01 0.0 0.0 2 G 0.0 0.0 0.0 1.179727E-01 0.0 0.0 3 G 0.0 0.0 0.0 -2.368950E-01 0.0 0.0 4 G 0.0 0.0 0.0 -1.861497E-01 0.0 0.0 5 G 0.0 0.0 0.0 -2.288439E-01 0.0 0.0 6 G 0.0 0.0 0.0 -3.028369E-01 0.0 0.0 7 G 0.0 0.0 0.0 -5.665961E-01 0.0 0.0 8 G 0.0 0.0 0.0 -2.766977E-01 0.0 0.0 9 G 0.0 0.0 0.0 -2.121406E-01 0.0 0.0 10 G 0.0 0.0 0.0 -9.320007E-02 0.0 0.0 11 G 0.0 0.0 0.0 -1.104854E-01 0.0 0.0 12 G 0.0 0.0 0.0 -1.724405E-01 0.0 0.0 13 G 0.0 0.0 0.0 -3.888453E-01 0.0 0.0 14 G 0.0 0.0 0.0 -2.693110E-01 0.0 0.0 15 G 0.0 0.0 0.0 -6.660937E-02 0.0 0.0 16 G 0.0 0.0 0.0 1.905944E-01 0.0 0.0 17 G 0.0 0.0 0.0 9.976437E-02 0.0 0.0 18 G 0.0 0.0 0.0 1.800015E-01 0.0 0.0 19 G 0.0 0.0 0.0 3.041067E-01 0.0 0.0 20 G 0.0 0.0 0.0 5.176609E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 3.321509E-01 -6.220927E-02 0.0 0.0 65 G 0.0 0.0 2.075957E-01 -5.792980E-02 5.077345E-01 0.0 66 G 0.0 0.0 -5.778584E-02 -6.960487E-02 4.266159E-01 0.0 67 G 0.0 0.0 -1.488013E-01 -9.315864E-02 -2.136753E-02 0.0 68 G 0.0 0.0 -4.466524E-02 -8.861709E-02 -4.227395E-01 0.0 69 G 0.0 0.0 1.607812E-01 3.512918E-02 -2.249877E-01 0.0 70 G 0.0 0.0 1.604534E-01 2.431322E-01 9.474511E-02 0.0 71 G 0.0 0.0 1.271618E-01 3.655194E-01 8.655393E-02 0.0 72 G 0.0 0.0 6.309150E-02 3.136237E-01 8.939431E-02 0.0 73 G 0.0 0.0 4.718240E-02 2.033533E-01 2.442756E-02 0.0 74 G 0.0 0.0 3.819955E-02 2.671623E-01 -1.147715E-02 0.0 75 G 0.0 0.0 2.029040E-02 4.825063E-01 1.605841E-01 0.0 76 G 0.0 0.0 -1.093601E-01 5.000758E-01 2.156970E-01 0.0 77 G 0.0 0.0 -1.607849E-01 2.684491E-01 5.048053E-02 0.0 78 G 0.0 0.0 -1.555151E-01 9.600800E-02 -1.309493E-01 0.0 79 G 0.0 0.0 -5.027736E-02 -8.627278E-03 -1.999144E-01 0.0 80 G 0.0 0.0 -3.008916E-03 -1.080315E-02 -2.798889E-02 0.0 81 G 0.0 0.0 -3.184063E-02 3.283525E-02 1.906983E-01 0.0 82 G 0.0 0.0 -1.122330E-01 1.247108E-02 -2.056936E-02 0.0 83 G 0.0 0.0 -2.052316E-02 -4.882314E-02 -1.901087E-01 0.0 84 G 0.0 0.0 0.0 0.0 7.251798E-02 0.0 127 G 0.0 0.0 2.713925E-01 2.174290E-01 0.0 0.0 128 G 0.0 0.0 1.125171E-01 2.248971E-01 5.843154E-01 0.0 129 G 0.0 0.0 -1.475317E-01 2.668702E-01 3.692986E-01 0.0 130 G 0.0 0.0 -2.506364E-01 4.358495E-01 1.302200E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 129 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -2.938529E-01 3.930482E-01 -6.921415E-02 0.0 132 G 0.0 0.0 -1.930890E-01 1.406792E-01 -2.486680E-01 0.0 133 G 0.0 0.0 -6.826511E-02 -3.055045E-02 -2.941256E-01 0.0 134 G 0.0 0.0 7.792928E-02 -1.010849E-01 -1.986576E-01 0.0 135 G 0.0 0.0 9.348734E-02 -8.739245E-02 9.102784E-02 0.0 136 G 0.0 0.0 -8.667805E-03 -5.003208E-02 3.578371E-01 0.0 137 G 0.0 0.0 -1.668854E-01 -1.200668E-01 1.139736E-01 0.0 138 G 0.0 0.0 -1.149654E-01 -2.630383E-01 -1.805179E-01 0.0 139 G 0.0 0.0 -5.329130E-02 -3.373835E-01 -1.132748E-01 0.0 140 G 0.0 0.0 1.175300E-02 -2.506586E-01 -6.424459E-02 0.0 141 G 0.0 0.0 8.110886E-03 -1.457410E-01 2.344545E-02 0.0 142 G 0.0 0.0 -4.330070E-03 -2.159081E-01 4.762679E-02 0.0 143 G 0.0 0.0 2.536790E-03 -4.245348E-01 -1.591630E-01 0.0 144 G 0.0 0.0 1.402476E-01 -4.001994E-01 -2.462374E-01 0.0 145 G 0.0 0.0 2.061185E-01 -1.714921E-01 -7.561891E-02 0.0 146 G 0.0 0.0 1.936080E-01 -4.808606E-02 1.911732E-01 0.0 147 G 0.0 0.0 0.0 0.0 5.004990E-01 0.0 190 G 0.0 0.0 3.904264E-01 -6.811358E-01 0.0 0.0 191 G 0.0 0.0 1.643546E-01 -4.189925E-01 7.699481E-01 0.0 192 G 0.0 0.0 -1.807405E-01 -2.188892E-01 4.452091E-01 0.0 193 G 0.0 0.0 -2.501796E-01 -1.973731E-01 -9.223527E-02 0.0 194 G 0.0 0.0 -1.546878E-01 -1.919732E-01 -2.747117E-01 0.0 195 G 0.0 0.0 -7.051078E-03 -1.564940E-01 -2.482203E-01 0.0 196 G 0.0 0.0 7.482544E-02 -5.785841E-02 -1.136813E-01 0.0 197 G 0.0 0.0 1.117868E-01 -1.143529E-01 -2.692037E-02 0.0 198 G 0.0 0.0 1.224931E-01 -2.609207E-01 -4.662246E-02 0.0 199 G 0.0 0.0 1.450413E-01 -3.263198E-01 4.334155E-02 0.0 200 G 0.0 0.0 7.727458E-02 -1.081358E-01 1.647942E-01 0.0 201 G 0.0 0.0 3.173405E-03 1.776966E-02 1.481619E-01 0.0 202 G 0.0 0.0 -6.381807E-02 7.438798E-02 7.773821E-02 0.0 203 G 0.0 0.0 -6.350068E-02 6.271767E-02 -5.907204E-02 0.0 204 G 0.0 0.0 -1.291878E-02 4.637239E-02 -1.619200E-01 0.0 205 G 0.0 0.0 5.608937E-02 1.053890E-01 -3.946796E-02 0.0 206 G 0.0 0.0 3.575084E-02 1.884329E-01 5.491195E-02 0.0 207 G 0.0 0.0 3.169033E-02 2.011356E-01 -1.897083E-02 0.0 208 G 0.0 0.0 3.118301E-02 1.240761E-01 -1.095472E-02 0.0 209 G 0.0 0.0 3.392055E-02 4.023237E-02 2.477338E-02 0.0 210 G 0.0 0.0 0.0 0.0 1.050590E-01 0.0 253 G 0.0 0.0 1.815648E-01 7.525547E-02 0.0 0.0 254 G 0.0 0.0 9.189657E-02 6.095224E-03 3.249144E-01 0.0 255 G 0.0 0.0 -6.120475E-02 7.059397E-02 2.208760E-01 0.0 256 G 0.0 0.0 -1.122009E-01 1.133149E-01 2.027170E-02 0.0 257 G 0.0 0.0 -9.623454E-02 1.139512E-01 -1.103969E-01 0.0 258 G 0.0 0.0 -9.289674E-03 6.802115E-02 -2.029902E-01 0.0 259 G 0.0 0.0 9.312463E-02 1.487693E-02 -2.252809E-01 0.0 260 G 0.0 0.0 1.702326E-01 2.460375E-02 -6.979495E-03 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 130 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 1.061380E-01 8.924570E-02 1.862075E-01 0.0 262 G 0.0 0.0 2.687800E-02 1.325411E-01 1.493468E-01 0.0 263 G 0.0 0.0 -4.344796E-02 1.041741E-01 8.944749E-02 0.0 264 G 0.0 0.0 -5.803147E-02 6.207379E-02 -3.192986E-03 0.0 265 G 0.0 0.0 -4.234519E-02 1.047212E-01 -6.608019E-02 0.0 266 G 0.0 0.0 -1.497403E-02 2.127941E-01 -3.754962E-04 0.0 267 G 0.0 0.0 -4.092994E-02 2.067967E-01 3.545923E-02 0.0 268 G 0.0 0.0 -3.692970E-02 8.267249E-02 -2.160262E-02 0.0 269 G 0.0 0.0 -1.589995E-02 -4.085075E-03 -9.145177E-02 0.0 270 G 0.0 0.0 4.891810E-02 -4.172290E-02 -1.216944E-01 0.0 271 G 0.0 0.0 8.572288E-02 -3.121803E-02 -4.200594E-02 0.0 272 G 0.0 0.0 8.158571E-02 -9.236899E-05 8.546218E-02 0.0 273 G 0.0 0.0 0.0 0.0 2.172651E-01 0.0 316 G 0.0 0.0 1.326873E-01 -3.744940E-03 0.0 0.0 317 G 0.0 0.0 5.964965E-02 4.218713E-02 2.650822E-01 0.0 318 G 0.0 0.0 -6.020822E-02 6.394631E-02 1.603897E-01 0.0 319 G 0.0 0.0 -7.976267E-02 5.547331E-02 -4.947994E-02 0.0 320 G 0.0 0.0 -2.671750E-02 1.040842E-01 -1.618876E-01 0.0 321 G 0.0 0.0 4.226741E-02 2.060065E-01 -6.397785E-02 0.0 322 G 0.0 0.0 3.082682E-02 1.885533E-01 4.113025E-02 0.0 323 G 0.0 0.0 1.564618E-02 6.316213E-02 4.833618E-02 0.0 324 G 0.0 0.0 -1.094471E-02 -1.671995E-02 2.474885E-02 0.0 325 G 0.0 0.0 -1.091561E-02 -4.943116E-02 1.716013E-02 0.0 326 G 0.0 0.0 -4.218198E-02 -4.769352E-02 8.356438E-02 0.0 327 G 0.0 0.0 -9.126045E-02 -3.130206E-02 1.366757E-01 0.0 328 G 0.0 0.0 -1.376216E-01 -4.661257E-02 -2.736153E-02 0.0 329 G 0.0 0.0 -7.060803E-02 -1.051587E-01 -1.649649E-01 0.0 330 G 0.0 0.0 -1.150057E-02 -1.323695E-01 -9.178698E-02 0.0 331 G 0.0 0.0 3.081185E-02 -1.113642E-01 -4.452905E-02 0.0 332 G 0.0 0.0 3.762310E-02 -6.062618E-02 -1.153090E-02 0.0 333 G 0.0 0.0 4.377101E-02 -9.106917E-02 1.229435E-03 0.0 334 G 0.0 0.0 4.479336E-02 -1.729982E-01 -3.563181E-02 0.0 335 G 0.0 0.0 6.299712E-02 -1.723887E-01 2.737902E-02 0.0 336 G 0.0 0.0 0.0 0.0 1.817165E-01 0.0 379 G 0.0 0.0 6.724192E-02 -3.554140E-02 0.0 0.0 380 G 0.0 0.0 1.165028E-02 -2.960634E-02 1.915961E-01 0.0 381 G 0.0 0.0 -7.419382E-02 -2.727323E-02 1.329091E-01 0.0 382 G 0.0 0.0 -1.139905E-01 -2.674638E-02 4.700058E-02 0.0 383 G 0.0 0.0 -1.071608E-01 -6.421247E-02 -1.146399E-01 0.0 384 G 0.0 0.0 -1.871976E-02 -1.167743E-01 -1.850977E-01 0.0 385 G 0.0 0.0 4.597687E-02 -1.293668E-01 -8.440110E-02 0.0 386 G 0.0 0.0 7.287657E-02 -8.205401E-02 4.311675E-04 0.0 387 G 0.0 0.0 5.027235E-02 -3.081088E-02 6.928695E-02 0.0 388 G 0.0 0.0 1.050841E-02 -4.190294E-02 9.206300E-02 0.0 389 G 0.0 0.0 -2.388654E-02 -1.071638E-01 1.788945E-02 0.0 390 G 0.0 0.0 -7.904485E-03 -1.053359E-01 -3.525894E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 131 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 6.780180E-04 -3.449432E-02 -1.746622E-02 0.0 392 G 0.0 0.0 5.612530E-03 1.125890E-02 1.669889E-02 0.0 393 G 0.0 0.0 -1.369812E-02 2.287238E-02 3.019253E-02 0.0 394 G 0.0 0.0 -1.152265E-02 8.241523E-03 -2.666861E-02 0.0 395 G 0.0 0.0 1.619075E-02 -1.253390E-02 -1.011859E-01 0.0 396 G 0.0 0.0 6.240765E-02 3.910487E-03 -3.212238E-02 0.0 397 G 0.0 0.0 4.762659E-02 4.523307E-02 4.637158E-02 0.0 398 G 0.0 0.0 3.386172E-02 5.717383E-02 3.260583E-02 0.0 399 G 0.0 0.0 0.0 0.0 8.474816E-02 0.0 442 G 0.0 0.0 2.079998E-01 9.272512E-04 0.0 0.0 443 G 0.0 0.0 9.060875E-02 -3.612558E-02 3.768366E-01 0.0 444 G 0.0 0.0 -5.732456E-02 -1.228741E-01 1.757268E-01 0.0 445 G 0.0 0.0 -7.796562E-02 -1.303569E-01 -4.303323E-02 0.0 446 G 0.0 0.0 -4.098587E-02 -5.619501E-02 -1.145796E-01 0.0 447 G 0.0 0.0 1.634033E-02 -3.823539E-03 -8.641412E-02 0.0 448 G 0.0 0.0 3.862235E-02 1.861860E-02 -2.832166E-02 0.0 449 G 0.0 0.0 5.588854E-02 1.259806E-02 -2.780776E-02 0.0 450 G 0.0 0.0 7.210134E-02 -5.508143E-04 -5.543177E-02 0.0 451 G 0.0 0.0 8.814884E-02 2.170028E-02 4.027461E-02 0.0 452 G 0.0 0.0 3.613374E-02 7.137747E-02 1.184300E-01 0.0 453 G 0.0 0.0 -5.697669E-03 1.001430E-01 6.407545E-02 0.0 454 G 0.0 0.0 -3.346967E-02 7.717635E-02 2.107939E-02 0.0 455 G 0.0 0.0 -2.829923E-02 4.655423E-02 -2.299211E-02 0.0 456 G 0.0 0.0 -1.386404E-02 7.390463E-02 -4.041418E-02 0.0 457 G 0.0 0.0 -1.880268E-03 1.488054E-01 1.948231E-02 0.0 458 G 0.0 0.0 -2.998540E-02 1.474210E-01 4.544260E-02 0.0 459 G 0.0 0.0 -3.707456E-02 6.781424E-02 2.523530E-03 0.0 460 G 0.0 0.0 -3.187647E-02 1.143730E-02 -4.125169E-02 0.0 461 G 0.0 0.0 -2.261573E-03 -1.165633E-02 -4.379686E-02 0.0 462 G 0.0 0.0 0.0 0.0 2.461841E-02 0.0 505 G 0.0 0.0 1.658654E-01 1.164972E-02 0.0 0.0 506 G 0.0 0.0 1.130681E-01 3.911482E-02 2.365226E-01 0.0 507 G 0.0 0.0 -2.074492E-02 8.794341E-02 2.340875E-01 0.0 508 G 0.0 0.0 -8.583283E-02 1.085067E-01 4.378499E-02 0.0 509 G 0.0 0.0 -8.115701E-02 8.436600E-02 -7.545225E-02 0.0 510 G 0.0 0.0 -2.765173E-02 3.894273E-02 -1.114883E-01 0.0 511 G 0.0 0.0 1.894106E-02 4.906512E-02 -7.973085E-02 0.0 512 G 0.0 0.0 3.975353E-02 1.020623E-01 1.904412E-02 0.0 513 G 0.0 0.0 6.864179E-03 1.094696E-01 6.736633E-02 0.0 514 G 0.0 0.0 -1.469543E-02 3.432801E-02 3.737881E-02 0.0 515 G 0.0 0.0 -2.874812E-02 -1.174166E-02 3.480692E-03 0.0 516 G 0.0 0.0 -1.899790E-02 -3.022003E-02 -2.052749E-02 0.0 517 G 0.0 0.0 -1.752870E-02 -2.050480E-02 5.702027E-03 0.0 518 G 0.0 0.0 -2.721736E-02 -9.269326E-03 4.653288E-02 0.0 519 G 0.0 0.0 -4.429078E-02 -2.017788E-02 -1.776732E-02 0.0 520 G 0.0 0.0 -1.104453E-02 -5.726459E-02 -8.001296E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 132 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 1.891052E-02 -7.203011E-02 -5.019605E-02 0.0 522 G 0.0 0.0 4.420489E-02 -4.829087E-02 -3.010884E-02 0.0 523 G 0.0 0.0 4.847075E-02 -5.126846E-04 -5.867754E-04 0.0 524 G 0.0 0.0 4.055433E-02 8.428220E-03 4.472458E-02 0.0 525 G 0.0 0.0 0.0 0.0 1.044199E-01 0.0 568 G 0.0 0.0 6.468166E-02 -7.501521E-02 0.0 0.0 569 G 0.0 0.0 1.742860E-02 -4.693441E-02 1.648938E-01 0.0 570 G 0.0 0.0 -5.382033E-02 -2.297029E-02 8.651882E-02 0.0 571 G 0.0 0.0 -6.113809E-02 -9.234696E-03 -3.239204E-02 0.0 572 G 0.0 0.0 -3.981895E-02 7.247941E-04 -5.453825E-02 0.0 573 G 0.0 0.0 -2.057316E-02 6.232468E-03 -4.483461E-03 0.0 574 G 0.0 0.0 -2.174878E-02 -1.747118E-02 -2.773711E-02 0.0 575 G 0.0 0.0 5.733163E-03 -6.022822E-02 -4.801910E-02 0.0 576 G 0.0 0.0 1.245791E-02 -8.452525E-02 6.437645E-03 0.0 577 G 0.0 0.0 7.858985E-03 -6.627791E-02 2.884615E-02 0.0 578 G 0.0 0.0 -1.300814E-02 -3.866814E-02 3.928913E-02 0.0 579 G 0.0 0.0 -2.888496E-02 -5.396308E-02 2.840766E-02 0.0 580 G 0.0 0.0 -3.191414E-02 -1.047585E-01 -3.562332E-02 0.0 581 G 0.0 0.0 3.021809E-03 -1.008781E-01 -6.752072E-02 0.0 582 G 0.0 0.0 2.653070E-02 -3.959499E-02 -4.038449E-02 0.0 583 G 0.0 0.0 4.105347E-02 2.286793E-03 -3.113615E-03 0.0 584 G 0.0 0.0 3.280951E-02 1.800965E-02 1.335203E-02 0.0 585 G 0.0 0.0 3.777560E-02 7.115260E-03 -2.307248E-02 0.0 586 G 0.0 0.0 5.542864E-02 -1.656623E-02 -5.847809E-02 0.0 587 G 0.0 0.0 6.848705E-02 -2.082714E-02 4.676135E-02 0.0 588 G 0.0 0.0 0.0 0.0 1.925937E-01 0.0 631 G 0.0 0.0 7.915213E-02 2.744387E-02 0.0 0.0 632 G 0.0 0.0 4.354043E-02 3.353220E-03 1.282805E-01 0.0 633 G 0.0 0.0 -1.896272E-02 -4.855567E-03 9.717739E-02 0.0 634 G 0.0 0.0 -4.640964E-02 -4.188585E-02 2.021210E-02 0.0 635 G 0.0 0.0 -3.650090E-02 -1.040605E-01 -7.380731E-02 0.0 636 G 0.0 0.0 1.533449E-02 -1.050814E-01 -9.372568E-02 0.0 637 G 0.0 0.0 4.370130E-02 -4.545393E-02 -3.334664E-02 0.0 638 G 0.0 0.0 4.652968E-02 -1.611804E-03 3.475929E-02 0.0 639 G 0.0 0.0 1.513461E-02 1.953167E-02 6.558467E-02 0.0 640 G 0.0 0.0 -4.960902E-03 1.931878E-02 2.272440E-02 0.0 641 G 0.0 0.0 -3.527547E-03 1.001712E-02 -4.204604E-02 0.0 642 G 0.0 0.0 1.721318E-02 2.235956E-02 -1.284833E-03 0.0 643 G 0.0 0.0 -1.815904E-03 5.374471E-02 4.245743E-02 0.0 644 G 0.0 0.0 -9.720253E-03 7.078455E-02 2.571165E-03 0.0 645 G 0.0 0.0 -1.020584E-02 5.002877E-02 -1.921277E-02 0.0 646 G 0.0 0.0 8.243179E-03 2.450208E-02 -4.005304E-02 0.0 647 G 0.0 0.0 2.783249E-02 4.380697E-02 -4.290781E-02 0.0 648 G 0.0 0.0 4.117139E-02 9.936351E-02 1.020262E-02 0.0 649 G 0.0 0.0 2.089049E-02 9.951933E-02 3.586112E-02 0.0 650 G 0.0 0.0 1.280621E-02 4.382661E-02 1.242278E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 133 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 3.888233E-02 0.0 694 G 0.0 0.0 1.082761E-01 8.448748E-02 0.0 0.0 695 G 0.0 0.0 6.088950E-02 3.309309E-02 1.586633E-01 0.0 696 G 0.0 0.0 -4.069490E-03 6.451030E-04 7.349866E-02 0.0 697 G 0.0 0.0 -1.825179E-02 2.386271E-03 1.649083E-02 0.0 698 G 0.0 0.0 -2.736064E-02 3.424305E-02 -1.312631E-03 0.0 699 G 0.0 0.0 -1.435513E-02 5.359359E-02 -3.668708E-02 0.0 700 G 0.0 0.0 -1.262178E-03 4.414841E-02 -2.975922E-02 0.0 701 G 0.0 0.0 1.316470E-02 2.237212E-02 -1.590077E-02 0.0 702 G 0.0 0.0 1.487726E-02 3.971677E-02 3.864699E-03 0.0 703 G 0.0 0.0 5.119560E-03 8.589385E-02 4.841968E-02 0.0 704 G 0.0 0.0 -2.854466E-02 8.602057E-02 5.650944E-02 0.0 705 G 0.0 0.0 -4.392423E-02 3.762463E-02 1.609360E-02 0.0 706 G 0.0 0.0 -4.389063E-02 1.094734E-03 -2.668860E-02 0.0 707 G 0.0 0.0 -2.126338E-02 -1.555679E-02 -4.512823E-02 0.0 708 G 0.0 0.0 -8.038774E-03 -1.392103E-02 -1.448568E-02 0.0 709 G 0.0 0.0 -8.813659E-03 -8.178906E-03 2.745230E-02 0.0 710 G 0.0 0.0 -1.952599E-02 -2.532710E-02 -1.517398E-02 0.0 711 G 0.0 0.0 4.811001E-03 -5.712051E-02 -5.421036E-02 0.0 712 G 0.0 0.0 2.037979E-02 -7.133348E-02 -1.656252E-02 0.0 713 G 0.0 0.0 2.379654E-02 -4.711678E-02 1.915973E-02 0.0 714 G 0.0 0.0 0.0 0.0 6.467170E-02 0.0 757 G 0.0 0.0 9.446631E-02 5.503758E-02 0.0 0.0 758 G 0.0 0.0 4.503411E-02 8.943980E-02 1.844080E-01 0.0 759 G 0.0 0.0 -4.677380E-02 9.457158E-02 1.465920E-01 0.0 760 G 0.0 0.0 -8.600071E-02 4.962989E-02 2.427490E-02 0.0 761 G 0.0 0.0 -7.613179E-02 1.359749E-02 -6.861635E-02 0.0 762 G 0.0 0.0 -2.981624E-02 -4.971784E-03 -9.266998E-02 0.0 763 G 0.0 0.0 1.496615E-03 -4.039973E-03 -3.699716E-02 0.0 764 G 0.0 0.0 3.747664E-03 3.899089E-03 3.799189E-02 0.0 765 G 0.0 0.0 -1.783736E-02 -7.354615E-03 1.627568E-02 0.0 766 G 0.0 0.0 -9.390172E-03 -3.481909E-02 -2.326865E-02 0.0 767 G 0.0 0.0 -5.284843E-03 -4.922725E-02 -3.642969E-03 0.0 768 G 0.0 0.0 -1.040667E-03 -3.393031E-02 1.831083E-03 0.0 769 G 0.0 0.0 -7.054626E-03 -1.488162E-02 1.159612E-02 0.0 770 G 0.0 0.0 -1.224289E-02 -3.386410E-02 1.298682E-02 0.0 771 G 0.0 0.0 -1.264858E-02 -8.215667E-02 -2.690415E-02 0.0 772 G 0.0 0.0 1.256346E-02 -8.596280E-02 -4.564043E-02 0.0 773 G 0.0 0.0 2.698531E-02 -4.051819E-02 -2.382051E-02 0.0 774 G 0.0 0.0 3.521469E-02 -5.289694E-03 2.349752E-03 0.0 775 G 0.0 0.0 2.577044E-02 1.628401E-02 1.866261E-02 0.0 776 G 0.0 0.0 1.910402E-02 2.001872E-02 1.939523E-02 0.0 777 G 0.0 0.0 0.0 0.0 4.824808E-02 0.0 820 G 0.0 0.0 1.093977E-01 -1.431112E-01 0.0 0.0 821 G 0.0 0.0 7.646863E-02 -1.079777E-01 1.048758E-01 0.0 822 G 0.0 0.0 2.981248E-02 -4.419446E-02 7.126358E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 134 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 8.862031E-03 -1.231865E-02 2.238381E-02 0.0 824 G 0.0 0.0 4.246425E-03 8.640050E-03 -1.446145E-02 0.0 825 G 0.0 0.0 1.895249E-02 -1.336670E-02 -3.094893E-02 0.0 826 G 0.0 0.0 3.301906E-02 -4.656610E-02 -3.187767E-02 0.0 827 G 0.0 0.0 4.707285E-02 -8.386029E-02 -6.024608E-03 0.0 828 G 0.0 0.0 3.870611E-02 -4.764397E-02 2.124365E-02 0.0 829 G 0.0 0.0 2.670034E-02 -1.971781E-02 3.801727E-02 0.0 830 G 0.0 0.0 3.646889E-03 5.832942E-03 3.327829E-02 0.0 831 G 0.0 0.0 -7.353892E-04 1.025910E-02 -8.080496E-03 0.0 832 G 0.0 0.0 8.896368E-03 1.253353E-02 -3.922147E-02 0.0 833 G 0.0 0.0 2.300061E-02 8.413283E-03 1.663211E-02 0.0 834 G 0.0 0.0 -3.816368E-03 2.942756E-02 5.574040E-02 0.0 835 G 0.0 0.0 -1.909981E-02 3.784440E-02 1.282768E-02 0.0 836 G 0.0 0.0 -2.245013E-02 3.984972E-02 -9.053246E-03 0.0 837 G 0.0 0.0 -1.353193E-02 1.054465E-02 -1.432888E-02 0.0 838 G 0.0 0.0 -7.799463E-03 -2.627933E-03 -1.846340E-02 0.0 839 G 0.0 0.0 3.304897E-03 -1.127949E-02 -1.112285E-02 0.0 840 G 0.0 0.0 0.0 0.0 1.826628E-02 0.0 841 G 0.0 0.0 0.0 -2.592994E-01 0.0 0.0 842 G 0.0 0.0 0.0 -1.758991E-01 0.0 0.0 843 G 0.0 0.0 0.0 -7.237992E-02 0.0 0.0 844 G 0.0 0.0 0.0 -2.915641E-02 0.0 0.0 845 G 0.0 0.0 0.0 -1.906524E-02 0.0 0.0 846 G 0.0 0.0 0.0 -5.635077E-02 0.0 0.0 847 G 0.0 0.0 0.0 -7.384542E-02 0.0 0.0 848 G 0.0 0.0 0.0 -1.036263E-01 0.0 0.0 849 G 0.0 0.0 0.0 -8.968437E-02 0.0 0.0 850 G 0.0 0.0 0.0 -7.699323E-02 0.0 0.0 851 G 0.0 0.0 0.0 -1.533966E-02 0.0 0.0 852 G 0.0 0.0 0.0 -1.130912E-02 0.0 0.0 853 G 0.0 0.0 0.0 -3.069705E-02 0.0 0.0 854 G 0.0 0.0 0.0 -8.118921E-02 0.0 0.0 855 G 0.0 0.0 0.0 -1.800381E-03 0.0 0.0 856 G 0.0 0.0 0.0 3.198010E-02 0.0 0.0 857 G 0.0 0.0 0.0 4.972568E-02 0.0 0.0 858 G 0.0 0.0 0.0 3.393507E-02 0.0 0.0 859 G 0.0 0.0 0.0 2.965915E-02 0.0 0.0 860 G 0.0 0.0 0.0 -3.744016E-03 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 135 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01 ORIGIN 10 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) ORIGIN 11 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 2 MODAL DEFORM. 1 - SUBCASE 1 - MODE 9.065642E-01 - FREQUENCY PLOT 3 MODAL DEFORM. 1 - SUBCASE 2 - MODE 2.266261E+00 - FREQUENCY PLOT 4 MODAL DEFORM. 1 - SUBCASE 3 - MODE 4.533995E+00 - FREQUENCY PLOT 5 MODAL DEFORM. 1 - SUBCASE 4 - MODE 5.883843E+00 - FREQUENCY PLOT 6 MODAL DEFORM. 1 - SUBCASE 5 - MODE 7.712141E+00 - FREQUENCY PLOT 7 MODAL DEFORM. 1 - SUBCASE 6 - MODE 8.135221E+00 - FREQUENCY PLOT 8 MODAL DEFORM. 1 - SUBCASE 7 - MODE 1.148168E+01 - FREQUENCY PLOT 9 MODAL DEFORM. 1 - SUBCASE 8 - MODE 1.200693E+01 - FREQUENCY PLOT 10 MODAL DEFORM. 1 - SUBCASE 9 - MODE 1.443565E+01 - FREQUENCY PLOT 11 MODAL DEFORM. 1 - SUBCASE 10 - MODE 1.853699E+01 - FREQUENCY PLOT 12 MODAL DEFORM. 1 - SUBCASE 11 - MODE 2.605883E+01 - FREQUENCY PLOT 13 MODAL DEFORM. 1 - SUBCASE 12 - MODE 5.498771E+01 - FREQUENCY ORIGIN 11 USED IN THIS PLOT * * * END OF JOB * * * 1 JOB TITLE = VIBRATION OF A 20 X 40 HALF PLATE DATE: 5/17/95 END TIME: 15:34:41 TOTAL WALL CLOCK TIME 5 SEC. ================================================ FILE: demoout/d03013a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03013A,NASTRAN ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,GEOM2,,,/G1,G2,,G4,/C,N,3/C,N,1 $ EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER $ APP DISPLACEMENT SOL 3,1 DIAG 14 TIME 35 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = VIBRATIONS OF A 10 BY 20 PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 3 $ 4 SPC = 10020 5 METHOD = 5 $ ENCLOSE 2 MODES - FINDS 3 ROOTS 6 $ ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL) 7 $ MODE M N FREQ 8 $ 1 1 1 9.068997E-1 9 $ 2 1 2 2.267249 10 $ 5 1 3 4.534498 11 $ 6 3 1 4.534498 12 $ 7 3 2 5.894848 13 $ 9 1 4 7.708647 14 $ 15 OUTPUT 16 SET 1 = 1 THRU 11, 34 THRU 44, 56 THRU 66, 78 THRU 88, 111 THRU 121 17 SET 2 = 1 THRU 12, 22,23,33,34,44,45,55,56,66,67,77,78,88,89, 18 99,100, 110 THRU 121 19 DISPLACEMENTS = 1 20 SPCFORCE = 2 21 $ 22 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 23 OUTPUT(PLOT) 24 PLOTTER NASTPLT 25 SET 1 INCLUDE PLOTEL 26 SET 2 INCLUDE QUAD1 27 MAXIMUM DEFORMATION 1.0 28 FIND SCALE, ORIGIN 10 29 PTITLE = ALL QUADS IN THE PLATE 30 PLOT ORIGIN 10, SET 2, LABELS 31 FIND SCALE, ORIGIN 11 32 PTITLE = MODE SHAPES USING PLOTEL ELEMENTS 33 PLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE 34 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 77, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- EIGR 2 INV .85 .89 1 1 0 CSIMPL-I 2- +SIMPL-IMAX 3- EIGR 3 INV .89 1.0 1 3 0 +EIG3-1 4- +EIG3-1 MAX 5- EIGR 4 DET .89 1.0 1 1 0 +EIG4-1 6- +EIG4-1 MAX 7- EIGR 5 INV .89 2.4 1 3 0 +EIG5-2 8- +EIG5-2 MAX 9- EIGR 6 DET .89 2.4 2 2 0 +EIG6-2 10- +EIG6-2 MAX 11- EIGR 7 INV .89 6.1 5 5 0 +EIG7-5 12- +EIG7-5 MAX 13- EIGR 8 DET .89 6.1 5 5 0 +EIG8-5 14- +EIG8-5 MAX 15- EIGR 9 INV .89 14.5 4 10 0 +EIG9-10 16- +EIG9-10MAX 17- EIGR 10 DET .89 14.5 5 5 0 +EIG1010 18- +EIG1010MAX 19- EIGR 11 INV .89 29.0 20 20 0 +EIG1120 20- +EIG1120MAX 21- EIGR 12 DET .89 29.0 20 20 0 +EIG1220 22- +EIG1220MAX 23- MAT1 2 3.0+7 .300 200.0 +MAT1 24- +MAT1 30000. 28000. 25- PARAM GRDPNT 111 26- PLOTEL 300 23 1 27- PLOTEL 301 1 11 302 11 231 28- PLOTEL 303 231 221 304 221 199 29- PLOTEL 305 199 201 306 201 203 30- PLOTEL 307 203 205 308 205 207 31- PLOTEL 309 207 209 310 187 185 32- PLOTEL 311 185 183 312 183 181 33- PLOTEL 313 181 179 314 179 177 34- PLOTEL 315 199 177 316 177 155 35- PLOTEL 317 155 157 318 157 159 36- PLOTEL 319 159 161 320 161 163 37- PLOTEL 321 163 165 322 143 141 38- PLOTEL 323 141 139 324 139 137 39- PLOTEL 325 137 135 326 135 133 40- PLOTEL 327 155 133 328 133 111 41- PLOTEL 329 111 113 330 113 115 42- PLOTEL 331 115 117 332 117 119 43- PLOTEL 333 119 121 334 99 97 44- PLOTEL 335 97 95 336 95 93 45- PLOTEL 337 93 91 338 91 89 46- PLOTEL 339 111 89 340 89 67 47- PLOTEL 341 67 69 342 69 71 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- PLOTEL 343 71 73 344 73 75 49- PLOTEL 345 75 77 346 55 53 50- PLOTEL 347 53 51 348 51 49 51- PLOTEL 349 49 47 350 47 45 52- PLOTEL 351 67 45 352 45 23 53- PLOTEL 353 23 25 354 25 27 54- PLOTEL 355 27 29 356 29 31 55- PLOTEL 357 31 33 358 9 31 56- PLOTEL 359 31 53 360 53 75 57- PLOTEL 361 75 97 362 97 119 58- PLOTEL 363 119 141 364 141 163 59- PLOTEL 365 163 185 366 185 207 60- PLOTEL 367 207 229 368 227 205 61- PLOTEL 369 205 183 370 183 161 62- PLOTEL 371 161 139 372 139 117 63- PLOTEL 373 117 95 374 95 73 64- PLOTEL 375 73 51 376 51 29 65- PLOTEL 377 29 7 378 5 27 66- PLOTEL 379 27 49 380 49 71 67- PLOTEL 381 71 93 382 93 115 68- PLOTEL 383 115 137 384 137 159 69- PLOTEL 385 159 181 386 181 203 70- PLOTEL 387 203 225 388 223 201 71- PLOTEL 389 201 179 390 179 157 72- PLOTEL 391 157 135 392 135 113 73- PLOTEL 393 113 91 394 91 69 74- PLOTEL 395 69 47 396 47 36 75- PLOTEL 397 36 25 398 25 3 76- PQUAD1 101 2 1.0 2 .0833333 6.04393 +PQUAD1 77- +PQUAD1 .5 .0 ENDDATA 0*** USER INFORMATION MESSAGE, THE FOLLOWING PROPERTY IDS ARE PRESENT BUT NOT USED - 101 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $ 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ 1 INPUT, ,GEOM2,,,/G1,G2,,G4,/C,N,3/C,N,1 $ 1 EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1//$ 20 LABEL P1 $ 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR4,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 LABEL JMPKGG $ 32 COND ERROR1,NOMGG $ 33 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 34 PURGE MDICT,MELM/ALWAYS $ 35 COND LGPWG,GRDPNT $ 36 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 37 OFP OGPWG,,,,,//S,N,CARDNO $ 38 LABEL LGPWG $ 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 39 EQUIV KGGX,KGG/NOGENL $ 40 COND LBL11,NOGENL $ 41 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 42 LABEL LBL11 $ 43 GPSTGEN KGG,SIL/GPST $ 44 PARAM //*MPY*/NSKIP/0/0 $ 45 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 46 OFP OGPST,,,,,//S,N,CARDNO $ 47 COND ERROR3,NOL $ 48 PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ 49 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 50 COND LBL2,MPCF1 $ 51 MCE1 USET,RG/GM $ 52 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 53 LABEL LBL2 $ 54 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 55 COND LBL3,SINGLE $ 56 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 57 LABEL LBL3 $ 58 EQUIV KFF,KAA/OMIT $ 59 EQUIV MFF,MAA/OMIT $ 60 COND LBL5,OMIT $ 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 61 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 62 SMP2 USET,GO,MFF/MAA $ 63 LABEL LBL5 $ 64 COND LBL6,REACT $ 65 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 66 RBMG2 KLL/LLL $ 67 RBMG3 LLL,KLR,KRR/DM $ 68 RBMG4 DM,MLL,MLR,MRR/MR $ 69 LABEL LBL6 $ 70 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ 71 COND ERROR2,NOEED $ 72 PARAM //*MPY*/NEIGV/1/-1 $ 73 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ 74 OFP OEIGS,,,,,//S,N,CARDNO $ 75 COND FINIS,NEIGV $ 76 OFP LAMA,,,,,//S,N,CARDNO $ 77 SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ 78 COND NOMPCF,GRDEQ $ 79 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ 80 OFP OQM1,,,,,//S,N,CARDNO $ 81 LABEL NOMPCF $ 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 82 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ *REIG*////COMPS $ 83 OFP OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $ 84 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 85 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 86 GPFDR CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ 87 OFP ONRGY1,,,,,//S,N,CARDNO $ 88 PURGE KDICT,KELM/ALWAYS $ 89 COND P2,JUMPPLOT $ 90 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 91 PRTMSG PLOTX2// $ 92 LABEL P2 $ 93 JUMP FINIS $ 94 LABEL ERROR1 $ 95 PRTPARM //-1/*MODES* $ 96 LABEL ERROR2 $ 97 PRTPARM //-2/*MODES* $ 98 LABEL ERROR3 $ 99 PRTPARM //-3/*MODES* $ 100 LABEL ERROR4 $ 101 PRTPARM //-4/*MODES* $ 102 LABEL FINIS $ 103 PURGE DUMMY/ALWAYS $ 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 104 END $ 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 * U T I L I T Y M O D U L E I N P U T * INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST) * 1 ** 2 ** 3 ** 4 ** 5 ** 6 ** 7 ** 8 ** 9 ** 10 * 10 20 1.0E+00 1.0E+00 126 0.0E+00 0.0E+00 35 5 35 34 0 0 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01 ORIGIN 10 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 10 USED IN THIS PLOT 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 111 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 4.12087860D+04 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 4.12087860D+04 0.00000000D+00 0.00000000D+00 0.00000000D+00 2.06043930D+05 * * 0.00000000D+00 0.00000000D+00 4.12087860D+04 0.00000000D+00 -2.06043930D+05 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 0.00000000D+00 1.38049433D+06 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 -2.06043930D+05 0.00000000D+00 1.38049433D+06 0.00000000D+00 * * 0.00000000D+00 2.06043930D+05 0.00000000D+00 0.00000000D+00 0.00000000D+00 2.76098866D+06 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 4.120878601D+04 0.000000000D+00 0.000000000D+00 0.000000000D+00 Y 4.120878601D+04 5.000000000D+00 0.000000000D+00 0.000000000D+00 Z 4.120878601D+04 5.000000000D+00 0.000000000D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 1.380494331D+06 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 3.502746811D+05 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.730769012D+06 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 1.380494331D+06 * * 3.502746811D+05 * * 1.730769012D+06 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 ROOTS BELOW 1.293333E+02 2 ROOTS BELOW 2.025893E+02 4 ROOTS BELOW 8.112073E+02 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 3 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 3 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 26 0 REASON FOR TERMINATION . . . . . . . . . . . 4* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 3X EST.ROOTS IN RANGE SPECIFIED. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 4 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 2 3.237408E+01 5.689823E+00 9.055634E-01 1.030220E+04 3.335242E+05 2 1 2.022407E+02 1.422113E+01 2.263364E+00 1.030220E+04 2.083523E+06 3 3 8.111597E+02 2.848087E+01 4.532870E+00 5.601166E+03 4.543440E+06 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 EIGENVALUE = 0.323741E+02 (CYCLIC FREQUENCY = 9.055634E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 1.569410E-01 0.0 0.0 2 G 0.0 0.0 0.0 1.550088E-01 0.0 0.0 3 G 0.0 0.0 0.0 1.492598E-01 0.0 0.0 4 G 0.0 0.0 0.0 1.398354E-01 0.0 0.0 5 G 0.0 0.0 0.0 1.269680E-01 0.0 0.0 6 G 0.0 0.0 0.0 1.109741E-01 0.0 0.0 7 G 0.0 0.0 0.0 9.224761E-02 0.0 0.0 8 G 0.0 0.0 0.0 7.124973E-02 0.0 0.0 9 G 0.0 0.0 0.0 4.849744E-02 0.0 0.0 10 G 0.0 0.0 0.0 2.455098E-02 0.0 0.0 11 G 0.0 0.0 0.0 0.0 0.0 0.0 34 G 0.0 0.0 4.539905E-01 1.398354E-01 0.0 0.0 35 G 0.0 0.0 4.484011E-01 1.381139E-01 1.114591E-02 0.0 36 G 0.0 0.0 4.317706E-01 1.329914E-01 2.201737E-02 0.0 37 G 0.0 0.0 4.045085E-01 1.245943E-01 3.234670E-02 0.0 38 G 0.0 0.0 3.672860E-01 1.131293E-01 4.187954E-02 0.0 39 G 0.0 0.0 3.210197E-01 9.887860E-02 5.038116E-02 0.0 40 G 0.0 0.0 2.668489E-01 8.219323E-02 5.764224E-02 0.0 41 G 0.0 0.0 2.061074E-01 6.348398E-02 6.348398E-02 0.0 42 G 0.0 0.0 1.402908E-01 4.321153E-02 6.776251E-02 0.0 43 G 0.0 0.0 7.101975E-02 2.187509E-02 7.037253E-02 0.0 44 G 0.0 0.0 0.0 0.0 7.124973E-02 0.0 56 G 0.0 0.0 7.071067E-01 1.109741E-01 0.0 0.0 57 G 0.0 0.0 6.984012E-01 1.096078E-01 1.736017E-02 0.0 58 G 0.0 0.0 6.724985E-01 1.055426E-01 3.429287E-02 0.0 59 G 0.0 0.0 6.300367E-01 9.887860E-02 5.038116E-02 0.0 60 G 0.0 0.0 5.720614E-01 8.977990E-02 6.522890E-02 0.0 61 G 0.0 0.0 5.000000E-01 7.847050E-02 7.847050E-02 0.0 62 G 0.0 0.0 4.156269E-01 6.522890E-02 8.977990E-02 0.0 63 G 0.0 0.0 3.210197E-01 5.038116E-02 9.887860E-02 0.0 64 G 0.0 0.0 2.185080E-01 3.429287E-02 1.055426E-01 0.0 65 G 0.0 0.0 1.106159E-01 1.736017E-02 1.096078E-01 0.0 66 G 0.0 0.0 0.0 0.0 1.109741E-01 0.0 78 G 0.0 0.0 8.910065E-01 7.124973E-02 0.0 0.0 79 G 0.0 0.0 8.800368E-01 7.037253E-02 2.187509E-02 0.0 80 G 0.0 0.0 8.473975E-01 6.776251E-02 4.321153E-02 0.0 81 G 0.0 0.0 7.938926E-01 6.348398E-02 6.348398E-02 0.0 82 G 0.0 0.0 7.208394E-01 5.764224E-02 8.219323E-02 0.0 83 G 0.0 0.0 6.300367E-01 5.038116E-02 9.887860E-02 0.0 84 G 0.0 0.0 5.237205E-01 4.187954E-02 1.131293E-01 0.0 85 G 0.0 0.0 4.045085E-01 3.234670E-02 1.245943E-01 0.0 86 G 0.0 0.0 2.753361E-01 2.201737E-02 1.329914E-01 0.0 87 G 0.0 0.0 1.393841E-01 1.114591E-02 1.381139E-01 0.0 88 G 0.0 0.0 0.0 0.0 1.398354E-01 0.0 111 G 0.0 0.0 1.000000E+00 -1.489614E-11 0.0 0.0 112 G 0.0 0.0 9.876884E-01 -1.214225E-11 2.455098E-02 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 EIGENVALUE = 0.323741E+02 (CYCLIC FREQUENCY = 9.055634E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 113 G 0.0 0.0 9.510565E-01 -4.563531E-12 4.849744E-02 0.0 114 G 0.0 0.0 8.910065E-01 5.406898E-12 7.124973E-02 0.0 115 G 0.0 0.0 8.090169E-01 1.506906E-11 9.224761E-02 0.0 116 G 0.0 0.0 7.071067E-01 2.204741E-11 1.109741E-01 0.0 117 G 0.0 0.0 5.877852E-01 2.496322E-11 1.269680E-01 0.0 118 G 0.0 0.0 4.539905E-01 2.347477E-11 1.398354E-01 0.0 119 G 0.0 0.0 3.090170E-01 1.807140E-11 1.492598E-01 0.0 120 G 0.0 0.0 1.564345E-01 9.791383E-12 1.550088E-01 0.0 121 G 0.0 0.0 0.0 0.0 1.569410E-01 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 EIGENVALUE = 0.202241E+03 (CYCLIC FREQUENCY = 2.263364E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 3.145222E-01 0.0 0.0 2 G 0.0 0.0 0.0 3.106499E-01 0.0 0.0 3 G 0.0 0.0 0.0 2.991284E-01 0.0 0.0 4 G 0.0 0.0 0.0 2.802413E-01 0.0 0.0 5 G 0.0 0.0 0.0 2.544538E-01 0.0 0.0 6 G 0.0 0.0 0.0 2.224008E-01 0.0 0.0 7 G 0.0 0.0 0.0 1.848715E-01 0.0 0.0 8 G 0.0 0.0 0.0 1.427901E-01 0.0 0.0 9 G 0.0 0.0 0.0 9.719270E-02 0.0 0.0 10 G 0.0 0.0 0.0 4.920211E-02 0.0 0.0 11 G 0.0 0.0 0.0 0.0 0.0 0.0 34 G 0.0 0.0 8.090169E-01 1.848715E-01 0.0 0.0 35 G 0.0 0.0 7.990566E-01 1.825954E-01 1.977073E-02 0.0 36 G 0.0 0.0 7.694208E-01 1.758233E-01 3.905464E-02 0.0 37 G 0.0 0.0 7.208394E-01 1.647217E-01 5.737691E-02 0.0 38 G 0.0 0.0 6.545085E-01 1.495642E-01 7.428636E-02 0.0 39 G 0.0 0.0 5.720614E-01 1.307239E-01 8.936661E-02 0.0 40 G 0.0 0.0 4.755282E-01 1.086647E-01 1.022464E-01 0.0 41 G 0.0 0.0 3.672860E-01 8.392990E-02 1.126085E-01 0.0 42 G 0.0 0.0 2.500000E-01 5.712844E-02 1.201978E-01 0.0 43 G 0.0 0.0 1.265581E-01 2.892027E-02 1.248275E-01 0.0 44 G 0.0 0.0 0.0 0.0 1.263835E-01 0.0 56 G 0.0 0.0 1.000000E+00 3.752479E-15 0.0 0.0 57 G 0.0 0.0 9.876884E-01 8.362275E-15 2.443797E-02 0.0 58 G 0.0 0.0 9.510565E-01 2.084885E-14 4.827420E-02 0.0 59 G 0.0 0.0 8.910065E-01 3.480149E-14 7.092176E-02 0.0 60 G 0.0 0.0 8.090169E-01 4.721130E-14 9.182297E-02 0.0 61 G 0.0 0.0 7.071067E-01 5.345043E-14 1.104632E-01 0.0 62 G 0.0 0.0 5.877852E-01 5.466399E-14 1.263835E-01 0.0 63 G 0.0 0.0 4.539905E-01 4.922448E-14 1.391918E-01 0.0 64 G 0.0 0.0 3.090170E-01 3.725479E-14 1.485727E-01 0.0 65 G 0.0 0.0 1.564345E-01 2.019245E-14 1.542953E-01 0.0 66 G 0.0 0.0 0.0 0.0 1.562186E-01 0.0 78 G 0.0 0.0 8.090169E-01 -1.848715E-01 0.0 0.0 79 G 0.0 0.0 7.990566E-01 -1.825954E-01 1.977073E-02 0.0 80 G 0.0 0.0 7.694208E-01 -1.758233E-01 3.905464E-02 0.0 81 G 0.0 0.0 7.208394E-01 -1.647217E-01 5.737691E-02 0.0 82 G 0.0 0.0 6.545085E-01 -1.495642E-01 7.428636E-02 0.0 83 G 0.0 0.0 5.720614E-01 -1.307239E-01 8.936661E-02 0.0 84 G 0.0 0.0 4.755282E-01 -1.086647E-01 1.022464E-01 0.0 85 G 0.0 0.0 3.672860E-01 -8.392990E-02 1.126085E-01 0.0 86 G 0.0 0.0 2.500000E-01 -5.712844E-02 1.201978E-01 0.0 87 G 0.0 0.0 1.265581E-01 -2.892027E-02 1.248275E-01 0.0 88 G 0.0 0.0 0.0 0.0 1.263835E-01 0.0 111 G 0.0 0.0 1.052307E-12 -3.145222E-01 0.0 0.0 112 G 0.0 0.0 1.074882E-12 -3.106499E-01 -4.677274E-14 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 EIGENVALUE = 0.202241E+03 (CYCLIC FREQUENCY = 2.263364E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 113 G 0.0 0.0 1.136289E-12 -2.991284E-01 -6.421723E-14 0.0 114 G 0.0 0.0 1.183414E-12 -2.802413E-01 -2.215107E-14 0.0 115 G 0.0 0.0 1.174488E-12 -2.544538E-01 4.091110E-14 0.0 116 G 0.0 0.0 1.107346E-12 -2.224008E-01 9.098555E-14 0.0 117 G 0.0 0.0 9.944418E-13 -1.848715E-01 1.395653E-13 0.0 118 G 0.0 0.0 8.247490E-13 -1.427901E-01 2.024780E-13 0.0 119 G 0.0 0.0 5.926236E-13 -9.719270E-02 2.613617E-13 0.0 120 G 0.0 0.0 3.101129E-13 -4.920211E-02 3.017233E-13 0.0 121 G 0.0 0.0 0.0 0.0 3.159660E-13 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 EIGENVALUE = 0.811160E+03 (CYCLIC FREQUENCY = 4.532870E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -2.520193E-01 0.0 0.0 2 G 0.0 0.0 0.0 -2.541968E-01 0.0 0.0 3 G 0.0 0.0 0.0 -2.595249E-01 0.0 0.0 4 G 0.0 0.0 0.0 -2.646700E-01 0.0 0.0 5 G 0.0 0.0 0.0 -2.649501E-01 0.0 0.0 6 G 0.0 0.0 0.0 -2.554428E-01 0.0 0.0 7 G 0.0 0.0 0.0 -2.321781E-01 0.0 0.0 8 G 0.0 0.0 0.0 -1.931526E-01 0.0 0.0 9 G 0.0 0.0 0.0 -1.389404E-01 0.0 0.0 10 G 0.0 0.0 0.0 -7.276327E-02 0.0 0.0 11 G 0.0 0.0 0.0 0.0 0.0 0.0 34 G 0.0 0.0 -4.799215E-01 6.946530E-04 0.0 0.0 35 G 0.0 0.0 -4.894721E-01 -4.018719E-03 1.884091E-02 0.0 36 G 0.0 0.0 -5.145187E-01 -1.701719E-02 3.057361E-02 0.0 37 G 0.0 0.0 -5.450697E-01 -3.512749E-02 2.971329E-02 0.0 38 G 0.0 0.0 -5.670359E-01 -5.384482E-02 1.366620E-02 0.0 39 G 0.0 0.0 -5.654854E-01 -6.832857E-02 -1.663638E-02 0.0 40 G 0.0 0.0 -5.281482E-01 -7.447623E-02 -5.687805E-02 0.0 41 G 0.0 0.0 -4.484011E-01 -6.984095E-02 -1.002417E-01 0.0 42 G 0.0 0.0 -3.270751E-01 -5.419214E-02 -1.388477E-01 0.0 43 G 0.0 0.0 -1.726819E-01 -2.959640E-02 -1.654323E-01 0.0 44 G 0.0 0.0 0.0 0.0 -1.749033E-01 0.0 56 G 0.0 0.0 -2.090134E-01 2.554428E-01 0.0 0.0 57 G 0.0 0.0 -2.305183E-01 2.485641E-01 4.240787E-02 0.0 58 G 0.0 0.0 -2.892550E-01 2.289113E-01 7.342280E-02 0.0 59 G 0.0 0.0 -3.691750E-01 1.992327E-01 8.418828E-02 0.0 60 G 0.0 0.0 -4.475380E-01 1.634801E-01 7.036638E-02 0.0 61 G 0.0 0.0 -5.000000E-01 1.260096E-01 3.313248E-02 0.0 62 G 0.0 0.0 -5.060984E-01 9.071678E-02 -2.103575E-02 0.0 63 G 0.0 0.0 -4.539354E-01 6.029223E-02 -8.173006E-02 0.0 64 G 0.0 0.0 -3.430314E-01 3.575867E-02 -1.368460E-01 0.0 65 G 0.0 0.0 -1.847212E-01 1.638598E-02 -1.751937E-01 0.0 66 G 0.0 0.0 0.0 0.0 -1.889171E-01 0.0 78 G 0.0 0.0 4.151546E-01 3.276548E-01 0.0 0.0 79 G 0.0 0.0 3.797029E-01 3.212236E-01 6.989671E-02 0.0 80 G 0.0 0.0 2.808347E-01 3.026109E-01 1.250322E-01 0.0 81 G 0.0 0.0 1.393841E-01 2.737288E-01 1.538512E-01 0.0 82 G 0.0 0.0 -1.499114E-02 2.373566E-01 1.505122E-01 0.0 83 G 0.0 0.0 -1.502459E-01 1.966215E-01 1.161495E-01 0.0 84 G 0.0 0.0 -2.388932E-01 1.544351E-01 5.861626E-02 0.0 85 G 0.0 0.0 -2.639473E-01 1.130057E-01 -9.236285E-03 0.0 86 G 0.0 0.0 -2.225684E-01 7.352924E-02 -7.236808E-02 0.0 87 G 0.0 0.0 -1.266173E-01 3.612101E-02 -1.168347E-01 0.0 88 G 0.0 0.0 0.0 0.0 -1.328318E-01 0.0 111 G 0.0 0.0 1.000000E+00 1.367269E-17 0.0 0.0 112 G 0.0 0.0 9.536365E-01 -1.676524E-15 9.140213E-02 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 EIGENVALUE = 0.811160E+03 (CYCLIC FREQUENCY = 4.532870E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 113 G 0.0 0.0 8.231105E-01 -3.325381E-15 1.659184E-01 0.0 114 G 0.0 0.0 6.322864E-01 -4.347521E-15 2.102688E-01 0.0 115 G 0.0 0.0 4.152396E-01 -2.325889E-15 2.176016E-01 0.0 116 G 0.0 0.0 2.090134E-01 2.333879E-16 1.889171E-01 0.0 117 G 0.0 0.0 4.579712E-02 2.310383E-15 1.327858E-01 0.0 118 G 0.0 0.0 -5.377634E-02 3.148243E-15 6.342317E-02 0.0 119 G 0.0 0.0 -8.476044E-02 2.676253E-15 -2.458215E-03 0.0 120 G 0.0 0.0 -5.856040E-02 1.786816E-15 -4.933063E-02 0.0 121 G 0.0 0.0 0.0 0.0 -6.626496E-02 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 EIGENVALUE = 0.323741E+02 (CYCLIC FREQUENCY = 9.055634E-01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -1.433884E+04 0.0 -7.826680E+02 0.0 2 G 0.0 0.0 -2.832498E+04 0.0 9.970744E+01 0.0 3 G 0.0 0.0 -2.727357E+04 0.0 1.969270E+02 0.0 4 G 0.0 0.0 -2.555256E+04 0.0 2.893149E+02 0.0 5 G 0.0 0.0 -2.320054E+04 0.0 3.746189E+02 0.0 6 G 0.0 0.0 -2.027748E+04 0.0 4.506416E+02 0.0 7 G 0.0 0.0 -1.685639E+04 0.0 5.155930E+02 0.0 8 G 0.0 0.0 -1.301857E+04 0.0 5.678295E+02 0.0 9 G 0.0 0.0 -8.861663E+03 0.0 6.060587E+02 0.0 10 G 0.0 0.0 -4.485962E+03 0.0 6.294200E+02 0.0 11 G 0.0 0.0 9.514386E+04 3.186320E+02 3.186320E+02 0.0 12 G 0.0 0.0 0.0 0.0 -1.378127E+04 0.0 22 G 0.0 0.0 -4.485962E+03 6.294200E+02 0.0 0.0 23 G 0.0 0.0 0.0 0.0 -2.722528E+04 0.0 33 G 0.0 0.0 -8.861663E+03 6.060587E+02 0.0 0.0 34 G 0.0 0.0 0.0 0.0 -3.999459E+04 0.0 44 G 0.0 0.0 -1.301856E+04 5.678280E+02 0.0 0.0 45 G 0.0 0.0 0.0 0.0 -5.178103E+04 0.0 55 G 0.0 0.0 -1.685639E+04 5.155919E+02 0.0 0.0 56 G 0.0 0.0 0.0 0.0 -6.229187E+04 0.0 66 G 0.0 0.0 -2.027749E+04 4.506400E+02 0.0 0.0 67 G 0.0 0.0 0.0 0.0 -7.127343E+04 0.0 77 G 0.0 0.0 -2.320054E+04 3.746189E+02 0.0 0.0 78 G 0.0 0.0 0.0 0.0 -7.849399E+04 0.0 88 G 0.0 0.0 -2.555256E+04 2.893149E+02 0.0 0.0 89 G 0.0 0.0 0.0 0.0 -8.378493E+04 0.0 99 G 0.0 0.0 -2.727357E+04 1.969270E+02 0.0 0.0 100 G 0.0 0.0 0.0 0.0 -8.701452E+04 0.0 110 G 0.0 0.0 -2.832498E+04 9.970744E+01 0.0 0.0 111 G 0.0 0.0 0.0 0.0 -8.809728E+04 0.0 121 G 0.0 0.0 -2.867768E+04 5.829002E-06 0.0 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 EIGENVALUE = 0.202241E+03 (CYCLIC FREQUENCY = 2.263364E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -6.034997E+04 0.0 -9.177875E+03 0.0 2 G 0.0 0.0 -1.192102E+05 0.0 7.796655E+02 0.0 3 G 0.0 0.0 -1.147899E+05 0.0 1.539890E+03 0.0 4 G 0.0 0.0 -1.075431E+05 0.0 2.262399E+03 0.0 5 G 0.0 0.0 -9.764775E+04 0.0 2.929282E+03 0.0 6 G 0.0 0.0 -8.534572E+04 0.0 3.523900E+03 0.0 7 G 0.0 0.0 -7.094527E+04 0.0 4.031738E+03 0.0 8 G 0.0 0.0 -5.479538E+04 0.0 4.440331E+03 0.0 9 G 0.0 0.0 -3.729831E+04 0.0 4.739575E+03 0.0 10 G 0.0 0.0 -1.888134E+04 0.0 4.922172E+03 0.0 11 G 0.0 0.0 1.909854E+05 6.566249E+02 2.491764E+03 0.0 12 G 0.0 0.0 0.0 0.0 -4.533337E+04 0.0 22 G 0.0 0.0 -2.544192E+04 1.249022E+03 0.0 0.0 23 G 0.0 0.0 0.0 0.0 -8.622433E+04 0.0 33 G 0.0 0.0 -4.839438E+04 1.062475E+03 0.0 0.0 34 G 0.0 0.0 0.0 0.0 -1.186810E+05 0.0 44 G 0.0 0.0 -6.660855E+04 7.718511E+02 0.0 0.0 45 G 0.0 0.0 0.0 0.0 -1.395158E+05 0.0 55 G 0.0 0.0 -7.830195E+04 4.058154E+02 0.0 0.0 56 G 0.0 0.0 0.0 0.0 -1.466964E+05 0.0 66 G 0.0 0.0 -8.233291E+04 1.295120E-08 0.0 0.0 67 G 0.0 0.0 0.0 0.0 -1.395158E+05 0.0 77 G 0.0 0.0 -7.830195E+04 -4.058154E+02 0.0 0.0 78 G 0.0 0.0 0.0 0.0 -1.186810E+05 0.0 88 G 0.0 0.0 -6.660855E+04 -7.718511E+02 0.0 0.0 89 G 0.0 0.0 0.0 0.0 -8.622433E+04 0.0 99 G 0.0 0.0 -4.839438E+04 -1.062475E+03 0.0 0.0 100 G 0.0 0.0 0.0 0.0 -4.533337E+04 0.0 110 G 0.0 0.0 -2.544192E+04 -1.249022E+03 0.0 0.0 111 G 0.0 0.0 0.0 0.0 5.203232E-06 0.0 121 G 0.0 0.0 -3.849894E-06 -1.313250E+03 0.0 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 EIGENVALUE = 0.811160E+03 (CYCLIC FREQUENCY = 4.532870E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 7.941492E+04 0.0 2.243875E+04 0.0 2 G 0.0 0.0 1.626678E+05 0.0 -1.404194E+03 0.0 3 G 0.0 0.0 1.728195E+05 0.0 -2.830049E+03 0.0 4 G 0.0 0.0 1.855275E+05 0.0 -4.286404E+03 0.0 5 G 0.0 0.0 1.954792E+05 0.0 -5.759770E+03 0.0 6 G 0.0 0.0 1.970363E+05 0.0 -7.209116E+03 0.0 7 G 0.0 0.0 1.855519E+05 0.0 -8.568526E+03 0.0 8 G 0.0 0.0 1.584801E+05 0.0 -9.755316E+03 0.0 9 G 0.0 0.0 1.160637E+05 0.0 -1.068252E+04 0.0 10 G 0.0 0.0 6.141778E+04 0.0 -1.127379E+04 0.0 11 G 0.0 0.0 -2.881166E+05 -3.535219E+03 -5.738536E+03 0.0 12 G 0.0 0.0 0.0 0.0 3.457399E+04 0.0 22 G 0.0 0.0 6.863066E+04 -6.869414E+03 0.0 0.0 23 G 0.0 0.0 0.0 0.0 5.473893E+04 0.0 33 G 0.0 0.0 1.258981E+05 -6.296141E+03 0.0 0.0 34 G 0.0 0.0 0.0 0.0 4.939430E+04 0.0 44 G 0.0 0.0 1.628279E+05 -5.433880E+03 0.0 0.0 45 G 0.0 0.0 0.0 0.0 1.333909E+04 0.0 55 G 0.0 0.0 1.747038E+05 -4.402089E+03 0.0 0.0 56 G 0.0 0.0 0.0 0.0 -5.144681E+04 0.0 66 G 0.0 0.0 1.620123E+05 -3.332382E+03 0.0 0.0 67 G 0.0 0.0 0.0 0.0 -1.360840E+05 0.0 77 G 0.0 0.0 1.302665E+05 -2.341879E+03 0.0 0.0 78 G 0.0 0.0 0.0 0.0 -2.265988E+05 0.0 88 G 0.0 0.0 8.872896E+04 -1.510433E+03 0.0 0.0 89 G 0.0 0.0 0.0 0.0 -3.068642E+05 0.0 99 G 0.0 0.0 4.834000E+04 -8.668965E+02 0.0 0.0 100 G 0.0 0.0 0.0 0.0 -3.620159E+05 0.0 110 G 0.0 0.0 1.928358E+04 -3.864536E+02 0.0 0.0 111 G 0.0 0.0 0.0 0.0 -3.816448E+05 0.0 121 G 0.0 0.0 8.737829E+03 8.585630E-10 0.0 0.0 1 VIBRATIONS OF A 10 BY 20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01 ORIGIN 10 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) ORIGIN 11 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 2 MODAL DEFORM. 1 - SUBCASE 1 - MODE 9.055634E-01 - FREQUENCY PLOT 3 MODAL DEFORM. 1 - SUBCASE 2 - MODE 2.263364E+00 - FREQUENCY PLOT 4 MODAL DEFORM. 1 - SUBCASE 3 - MODE 4.532870E+00 - FREQUENCY ORIGIN 11 USED IN THIS PLOT * * * END OF JOB * * * 1 JOB TITLE = VIBRATIONS OF A 10 BY 20 PLATE DATE: 5/17/95 END TIME: 15:35:39 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d03014a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03014A,NASTRAN ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,GEOM2,,,/G1,G2,,G4,/C,N,3/C,N,1 $ EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER $ APP DISPLACEMENT SOL 3,1 DIAG 14 TIME 65 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = VIBRATION OF A 20 X 40 HALF PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 3 $ 4 METHOD = 20 $ FEER - NO MODES 5 SPC = 20040 $ INPUT VERSION 6 $ ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL) 7 $ MODE M N FREQ 8 $ 1 1 1 9.068997E-1 9 $ 2 1 2 2.267249 10 $ 5 1 3 4.534498 11 $ 6 3 1 4.534498 12 $ 7 3 2 5.894848 13 $ 9 1 4 7.708647 14 $ 15 OUTPUT 16 SET 1 = 1 THRU 21, 64 THRU 84, 127 THRU 147, 190 THRU 210, 17 253 THRU 273, 316 THRU 336, 379 THRU 399, 442 THRU 462, 18 505 THRU 525, 568 THRU 588, 631 THRU 651, 694 THRU 714, 19 757 THRU 777, 820 THRU 840, 841 THRU 861 20 DISPLACEMENTS = 1 21 $ 22 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 23 OUTPUT(PLOT) 24 PLOTTER NASTPLT 25 SET 1 INCLUDE PLOTEL 26 SET 2 INCLUDE QUAD1 27 MAXIMUM DEFORMATION 1.0 28 FIND SCALE, ORIGIN 10 29 PTITLE = ALL QUADS IN THE PLATE 30 PLOT ORIGIN 10, SET 2, LABELS 31 FIND SCALE, ORIGIN 11 32 PTITLE = MODE SHAPES USING PLOTEL ELEMENTS 33 PLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE 34 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 72, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- EIGR 2 INV .85 .89 1 1 0 CSIMPL-I 2- +SIMPL-IMAX 3- EIGR 3 INV .89 1.0 1 3 0 +EIG3-I 4- +EIG3-I MAX 5- EIGR 4 DET .89 1.0 1 1 0 +EIG4-D 6- +EIG4-D MAX 7- EIGR 5 INV .89 2.4 1 3 0 +EIG5-2 8- +EIG5-2 MAX 9- EIGR 6 DET .89 2.4 2 2 0 +EIG6-2 10- +EIG6-2 MAX 11- EIGR 7 INV .89 6.1 5 5 0 +EIG7-5 12- +EIG7-5 MAX 13- EIGR 9 INV .89 14.5 4 10 0 +EIG9-10 14- +EIG9-10MAX 15- EIGR 11 INV .89 29.0 20 20 0 +EIG1120 16- +EIG1120MAX 17- EIGR 20 FEER .87 1 +FEER 18- +FEER MAX 19- MAT1 2 3.0+7 .300 200.0 +MAT1 20- +MAT1 30000. 28000. 21- PARAM GRDPNT 421 22- PLOTEL 1000 1 21 1001 21 861 23- PLOTEL 1002 861 841 1003 841 757 24- PLOTEL 1004 757 673 1005 673 589 25- PLOTEL 1006 589 505 1007 505 421 26- PLOTEL 1008 421 337 1009 337 253 27- PLOTEL 1010 253 169 1011 169 85 28- PLOTEL 1012 85 1 1013 5 89 29- PLOTEL 1014 89 173 1015 173 257 30- PLOTEL 1016 257 341 1017 341 425 31- PLOTEL 1018 425 509 1019 509 593 32- PLOTEL 1020 593 677 1021 677 761 33- PLOTEL 1022 761 845 1023 849 765 34- PLOTEL 1024 765 681 1025 681 597 35- PLOTEL 1026 597 513 1027 513 429 36- PLOTEL 1028 429 345 1029 345 261 37- PLOTEL 1030 261 177 1031 177 93 38- PLOTEL 1032 93 9 1033 13 97 39- PLOTEL 1034 97 181 1035 181 265 40- PLOTEL 1036 265 349 1037 349 433 41- PLOTEL 1038 433 517 1039 517 601 42- PLOTEL 1040 601 685 1041 685 769 43- PLOTEL 1042 769 853 1043 857 773 44- PLOTEL 1044 773 689 1045 689 605 45- PLOTEL 1046 605 521 1047 521 437 46- PLOTEL 1048 437 353 1049 353 269 47- PLOTEL 1050 269 185 1051 185 101 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- PLOTEL 1052 101 17 1053 105 101 49- PLOTEL 1054 101 97 1055 97 93 50- PLOTEL 1056 93 89 1057 89 85 51- PLOTEL 1058 169 173 1059 173 177 52- PLOTEL 1060 177 181 1061 181 185 53- PLOTEL 1062 185 189 1063 273 269 54- PLOTEL 1064 269 265 1065 265 261 55- PLOTEL 1066 261 257 1067 257 253 56- PLOTEL 1068 337 341 1069 341 345 57- PLOTEL 1070 345 349 1071 349 353 58- PLOTEL 1072 353 357 1073 441 437 59- PLOTEL 1074 437 433 1075 433 429 60- PLOTEL 1076 429 425 1077 425 421 61- PLOTEL 1078 505 509 1079 509 513 62- PLOTEL 1080 513 517 1081 517 521 63- PLOTEL 1082 521 525 1083 609 605 64- PLOTEL 1084 605 601 1085 601 597 65- PLOTEL 1086 597 593 1087 593 589 66- PLOTEL 1088 673 677 1089 677 681 67- PLOTEL 1090 681 685 1091 685 689 68- PLOTEL 1092 689 693 1093 777 773 69- PLOTEL 1094 773 769 1095 769 765 70- PLOTEL 1096 765 761 1097 761 757 71- PQUAD1 101 2 1.0 2 .0833333 6.04393 +PQUAD1 72- +PQUAD1 .5 .0 ENDDATA 0*** USER INFORMATION MESSAGE, THE FOLLOWING PROPERTY IDS ARE PRESENT BUT NOT USED - 101 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $ 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ 1 INPUT, ,GEOM2,,,/G1,G2,,G4,/C,N,3/C,N,1 $ 1 EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1//$ 20 LABEL P1 $ 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR4,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 LABEL JMPKGG $ 32 COND ERROR1,NOMGG $ 33 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 34 PURGE MDICT,MELM/ALWAYS $ 35 COND LGPWG,GRDPNT $ 36 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 37 OFP OGPWG,,,,,//S,N,CARDNO $ 38 LABEL LGPWG $ 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 39 EQUIV KGGX,KGG/NOGENL $ 40 COND LBL11,NOGENL $ 41 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 42 LABEL LBL11 $ 43 GPSTGEN KGG,SIL/GPST $ 44 PARAM //*MPY*/NSKIP/0/0 $ 45 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 46 OFP OGPST,,,,,//S,N,CARDNO $ 47 COND ERROR3,NOL $ 48 PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ 49 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 50 COND LBL2,MPCF1 $ 51 MCE1 USET,RG/GM $ 52 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 53 LABEL LBL2 $ 54 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 55 COND LBL3,SINGLE $ 56 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 57 LABEL LBL3 $ 58 EQUIV KFF,KAA/OMIT $ 59 EQUIV MFF,MAA/OMIT $ 60 COND LBL5,OMIT $ 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 61 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 62 SMP2 USET,GO,MFF/MAA $ 63 LABEL LBL5 $ 64 COND LBL6,REACT $ 65 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 66 RBMG2 KLL/LLL $ 67 RBMG3 LLL,KLR,KRR/DM $ 68 RBMG4 DM,MLL,MLR,MRR/MR $ 69 LABEL LBL6 $ 70 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ 71 COND ERROR2,NOEED $ 72 PARAM //*MPY*/NEIGV/1/-1 $ 73 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ 74 OFP OEIGS,,,,,//S,N,CARDNO $ 75 COND FINIS,NEIGV $ 76 OFP LAMA,,,,,//S,N,CARDNO $ 77 SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ 78 COND NOMPCF,GRDEQ $ 79 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ 80 OFP OQM1,,,,,//S,N,CARDNO $ 81 LABEL NOMPCF $ 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 82 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ *REIG*////COMPS $ 83 OFP OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $ 84 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 85 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 86 GPFDR CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ 87 OFP ONRGY1,,,,,//S,N,CARDNO $ 88 PURGE KDICT,KELM/ALWAYS $ 89 COND P2,JUMPPLOT $ 90 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 91 PRTMSG PLOTX2// $ 92 LABEL P2 $ 93 JUMP FINIS $ 94 LABEL ERROR1 $ 95 PRTPARM //-1/*MODES* $ 96 LABEL ERROR2 $ 97 PRTPARM //-2/*MODES* $ 98 LABEL ERROR3 $ 99 PRTPARM //-3/*MODES* $ 100 LABEL ERROR4 $ 101 PRTPARM //-4/*MODES* $ 102 LABEL FINIS $ 103 PURGE DUMMY/ALWAYS $ 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 104 END $ 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 * U T I L I T Y M O D U L E I N P U T * INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST) * 1 ** 2 ** 3 ** 4 ** 5 ** 6 ** 7 ** 8 ** 9 ** 10 * 20 40 5.0E-01 5.0E-01 126 0.0E+00 0.0E+00 35 5 35 34 0 0 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01 ORIGIN 10 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 10 USED IN THIS PLOT 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 421 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 4.12087860D+04 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 4.12087860D+04 0.00000000D+00 0.00000000D+00 0.00000000D+00 2.06043930D+05 * * 0.00000000D+00 0.00000000D+00 4.12087860D+04 0.00000000D+00 -2.06043930D+05 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 0.00000000D+00 1.37534323D+06 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 -2.06043930D+05 0.00000000D+00 1.37534323D+06 0.00000000D+00 * * 0.00000000D+00 2.06043930D+05 0.00000000D+00 0.00000000D+00 0.00000000D+00 2.75068647D+06 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 4.120878601D+04 0.000000000D+00 0.000000000D+00 0.000000000D+00 Y 4.120878601D+04 5.000000000D+00 0.000000000D+00 0.000000000D+00 Z 4.120878601D+04 5.000000000D+00 0.000000000D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 1.375343233D+06 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 3.451235828D+05 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.720466816D+06 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 1.375343233D+06 * * 3.451235828D+05 * * 1.720466816D+06 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 0 ROOTS BELOW 2.988121E+01 0*** USER WARNING MESSAGE 2399 ONLY THE FIRST 4 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS. 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0*** USER INFORMATION MESSAGE 2392 11 MORE ACCURATE EIGENSOLUTIONS THAN THE 1 REQUESTED HAVE BEEN FOUND. USE DIAG 16 TO DETERMINE ERROR BOUNDS 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (FEER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 12 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 1 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 11 0 REASON FOR TERMINATION . . . . . . . . . . . 0* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* NORMAL TERMINATION SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 3.244568E+01 5.696111E+00 9.065642E-01 1.030220E+04 3.342617E+05 2 2 2.027587E+02 1.423934E+01 2.266261E+00 1.030220E+04 2.088860E+06 3 3 8.115621E+02 2.848793E+01 4.533995E+00 8.189160E+03 6.646012E+06 4 4 1.366727E+03 3.696928E+01 5.883843E+00 1.030219E+04 1.408029E+07 5 5 2.348062E+03 4.845681E+01 7.712141E+00 1.030036E+04 2.418588E+07 6 6 2.612754E+03 5.111510E+01 8.135221E+00 1.030422E+04 2.692239E+07 7 7 5.204400E+03 7.214153E+01 1.148168E+01 5.735026E+03 2.984737E+07 8 8 5.691458E+03 7.544175E+01 1.200693E+01 4.943446E+03 2.813541E+07 9 9 8.226828E+03 9.070187E+01 1.443565E+01 4.861241E+03 3.999260E+07 10 10 1.356558E+04 1.164714E+02 1.853699E+01 2.892032E+03 3.923209E+07 11 11 2.680833E+04 1.637325E+02 2.605883E+01 1.446632E+03 3.878178E+07 12 12 1.193688E+05 3.454980E+02 5.498771E+01 2.624833E+02 3.133233E+07 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 1.570447E-01 0.0 0.0 2 G 0.0 0.0 0.0 1.565606E-01 0.0 0.0 3 G 0.0 0.0 0.0 1.551112E-01 0.0 0.0 4 G 0.0 0.0 0.0 1.527056E-01 0.0 0.0 5 G 0.0 0.0 0.0 1.493584E-01 0.0 0.0 6 G 0.0 0.0 0.0 1.450904E-01 0.0 0.0 7 G 0.0 0.0 0.0 1.399279E-01 0.0 0.0 8 G 0.0 0.0 0.0 1.339026E-01 0.0 0.0 9 G 0.0 0.0 0.0 1.270518E-01 0.0 0.0 10 G 0.0 0.0 0.0 1.194177E-01 0.0 0.0 11 G 0.0 0.0 0.0 1.110474E-01 0.0 0.0 12 G 0.0 0.0 0.0 1.019924E-01 0.0 0.0 13 G 0.0 0.0 0.0 9.230857E-02 0.0 0.0 14 G 0.0 0.0 0.0 8.205564E-02 0.0 0.0 15 G 0.0 0.0 0.0 7.129681E-02 0.0 0.0 16 G 0.0 0.0 0.0 6.009841E-02 0.0 0.0 17 G 0.0 0.0 0.0 4.852949E-02 0.0 0.0 18 G 0.0 0.0 0.0 3.666136E-02 0.0 0.0 19 G 0.0 0.0 0.0 2.456721E-02 0.0 0.0 20 G 0.0 0.0 0.0 1.232159E-02 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 2.334453E-01 1.527056E-01 0.0 0.0 65 G 0.0 0.0 2.327257E-01 1.522348E-01 2.876417E-03 0.0 66 G 0.0 0.0 2.305713E-01 1.508255E-01 5.735101E-03 0.0 67 G 0.0 0.0 2.269952E-01 1.484863E-01 8.558425E-03 0.0 68 G 0.0 0.0 2.220197E-01 1.452316E-01 1.132898E-02 0.0 69 G 0.0 0.0 2.156754E-01 1.410815E-01 1.402970E-02 0.0 70 G 0.0 0.0 2.080013E-01 1.360617E-01 1.664391E-02 0.0 71 G 0.0 0.0 1.990449E-01 1.302029E-01 1.915551E-02 0.0 72 G 0.0 0.0 1.888613E-01 1.235414E-01 2.154901E-02 0.0 73 G 0.0 0.0 1.775132E-01 1.161182E-01 2.380965E-02 0.0 74 G 0.0 0.0 1.650708E-01 1.079791E-01 2.592350E-02 0.0 75 G 0.0 0.0 1.516106E-01 9.917433E-02 2.787752E-02 0.0 76 G 0.0 0.0 1.372157E-01 8.975808E-02 2.965966E-02 0.0 77 G 0.0 0.0 1.219749E-01 7.978844E-02 3.125895E-02 0.0 78 G 0.0 0.0 1.059820E-01 6.932688E-02 3.266551E-02 0.0 79 G 0.0 0.0 8.933567E-02 5.843789E-02 3.387068E-02 0.0 80 G 0.0 0.0 7.213859E-02 4.718861E-02 3.486703E-02 0.0 81 G 0.0 0.0 5.449674E-02 3.564841E-02 3.564841E-02 0.0 82 G 0.0 0.0 3.651890E-02 2.388841E-02 3.621000E-02 0.0 83 G 0.0 0.0 1.831591E-02 1.198114E-02 3.654835E-02 0.0 84 G 0.0 0.0 0.0 0.0 3.666136E-02 0.0 127 G 0.0 0.0 4.539905E-01 1.399279E-01 0.0 0.0 128 G 0.0 0.0 4.525910E-01 1.394965E-01 5.593883E-03 0.0 129 G 0.0 0.0 4.484011E-01 1.382051E-01 1.115328E-02 0.0 130 G 0.0 0.0 4.414467E-01 1.360617E-01 1.664391E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 4.317706E-01 1.330793E-01 2.203193E-02 0.0 132 G 0.0 0.0 4.194325E-01 1.292765E-01 2.728411E-02 0.0 133 G 0.0 0.0 4.045085E-01 1.246767E-01 3.236808E-02 0.0 134 G 0.0 0.0 3.870905E-01 1.193081E-01 3.725248E-02 0.0 135 G 0.0 0.0 3.672860E-01 1.132040E-01 4.190721E-02 0.0 136 G 0.0 0.0 3.452171E-01 1.064020E-01 4.630358E-02 0.0 137 G 0.0 0.0 3.210197E-01 9.894395E-02 5.041446E-02 0.0 138 G 0.0 0.0 2.948432E-01 9.087589E-02 5.421452E-02 0.0 139 G 0.0 0.0 2.668489E-01 8.224754E-02 5.768033E-02 0.0 140 G 0.0 0.0 2.372094E-01 7.311212E-02 6.079053E-02 0.0 141 G 0.0 0.0 2.061074E-01 6.352592E-02 6.352592E-02 0.0 142 G 0.0 0.0 1.737346E-01 5.354808E-02 6.586967E-02 0.0 143 G 0.0 0.0 1.402908E-01 4.324009E-02 6.780729E-02 0.0 144 G 0.0 0.0 1.059820E-01 3.266551E-02 6.932688E-02 0.0 145 G 0.0 0.0 7.101975E-02 2.188954E-02 7.041903E-02 0.0 146 G 0.0 0.0 3.561968E-02 1.097861E-02 7.107703E-02 0.0 147 G 0.0 0.0 0.0 0.0 7.129681E-02 0.0 190 G 0.0 0.0 6.494480E-01 1.194177E-01 0.0 0.0 191 G 0.0 0.0 6.474460E-01 1.190496E-01 8.002231E-03 0.0 192 G 0.0 0.0 6.414523E-01 1.179475E-01 1.595512E-02 0.0 193 G 0.0 0.0 6.315037E-01 1.161182E-01 2.380965E-02 0.0 194 G 0.0 0.0 6.176618E-01 1.135730E-01 3.151738E-02 0.0 195 G 0.0 0.0 6.000117E-01 1.103276E-01 3.903080E-02 0.0 196 G 0.0 0.0 5.786625E-01 1.064020E-01 4.630358E-02 0.0 197 G 0.0 0.0 5.537454E-01 1.018204E-01 5.329088E-02 0.0 198 G 0.0 0.0 5.254145E-01 9.661099E-02 5.994962E-02 0.0 199 G 0.0 0.0 4.938442E-01 9.080596E-02 6.623876E-02 0.0 200 G 0.0 0.0 4.592291E-01 8.444110E-02 7.211950E-02 0.0 201 G 0.0 0.0 4.217827E-01 7.755562E-02 7.755562E-02 0.0 202 G 0.0 0.0 3.817360E-01 7.019199E-02 8.251358E-02 0.0 203 G 0.0 0.0 3.393357E-01 6.239560E-02 8.696281E-02 0.0 204 G 0.0 0.0 2.948432E-01 5.421452E-02 9.087589E-02 0.0 205 G 0.0 0.0 2.485330E-01 4.569919E-02 9.422868E-02 0.0 206 G 0.0 0.0 2.006905E-01 3.690211E-02 9.700052E-02 0.0 207 G 0.0 0.0 1.516106E-01 2.787752E-02 9.917433E-02 0.0 208 G 0.0 0.0 1.015960E-01 1.868105E-02 1.007367E-01 0.0 209 G 0.0 0.0 5.095510E-02 9.369408E-03 1.016780E-01 0.0 210 G 0.0 0.0 0.0 0.0 1.019924E-01 0.0 253 G 0.0 0.0 8.090169E-01 9.230857E-02 0.0 0.0 254 G 0.0 0.0 8.065231E-01 9.202401E-02 9.968373E-03 0.0 255 G 0.0 0.0 7.990566E-01 9.117210E-02 1.987529E-02 0.0 256 G 0.0 0.0 7.866638E-01 8.975808E-02 2.965966E-02 0.0 257 G 0.0 0.0 7.694209E-01 8.779067E-02 3.926118E-02 0.0 258 G 0.0 0.0 7.474342E-01 8.528200E-02 4.862064E-02 0.0 259 G 0.0 0.0 7.208394E-01 8.224754E-02 5.768033E-02 0.0 260 G 0.0 0.0 6.898004E-01 7.870600E-02 6.638441E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 6.545085E-01 7.467920E-02 7.467920E-02 0.0 262 G 0.0 0.0 6.151813E-01 7.019199E-02 8.251358E-02 0.0 263 G 0.0 0.0 5.720614E-01 6.527202E-02 8.983923E-02 0.0 264 G 0.0 0.0 5.254145E-01 5.994962E-02 9.661099E-02 0.0 265 G 0.0 0.0 4.755282E-01 5.425762E-02 1.027871E-01 0.0 266 G 0.0 0.0 4.227102E-01 4.823110E-02 1.083295E-01 0.0 267 G 0.0 0.0 3.672860E-01 4.190721E-02 1.132040E-01 0.0 268 G 0.0 0.0 3.095974E-01 3.532496E-02 1.173806E-01 0.0 269 G 0.0 0.0 2.500000E-01 2.852492E-02 1.208335E-01 0.0 270 G 0.0 0.0 1.888613E-01 2.154901E-02 1.235414E-01 0.0 271 G 0.0 0.0 1.265581E-01 1.444024E-02 1.254876E-01 0.0 272 G 0.0 0.0 6.347474E-02 7.242447E-03 1.266602E-01 0.0 273 G 0.0 0.0 0.0 0.0 1.270518E-01 0.0 316 G 0.0 0.0 9.238795E-01 6.009841E-02 0.0 0.0 317 G 0.0 0.0 9.210315E-01 5.991315E-02 1.138366E-02 0.0 318 G 0.0 0.0 9.125050E-01 5.935850E-02 2.269714E-02 0.0 319 G 0.0 0.0 8.983526E-01 5.843789E-02 3.387068E-02 0.0 320 G 0.0 0.0 8.786616E-01 5.715698E-02 4.483540E-02 0.0 321 G 0.0 0.0 8.535533E-01 5.552369E-02 5.552369E-02 0.0 322 G 0.0 0.0 8.231826E-01 5.354808E-02 6.586967E-02 0.0 323 G 0.0 0.0 7.877368E-01 5.124233E-02 7.580953E-02 0.0 324 G 0.0 0.0 7.474342E-01 4.862064E-02 8.528200E-02 0.0 325 G 0.0 0.0 7.025235E-01 4.569919E-02 9.422868E-02 0.0 326 G 0.0 0.0 6.532815E-01 4.249600E-02 1.025944E-01 0.0 327 G 0.0 0.0 6.000117E-01 3.903080E-02 1.103276E-01 0.0 328 G 0.0 0.0 5.430427E-01 3.532496E-02 1.173806E-01 0.0 329 G 0.0 0.0 4.827257E-01 3.140134E-02 1.237099E-01 0.0 330 G 0.0 0.0 4.194325E-01 2.728411E-02 1.292765E-01 0.0 331 G 0.0 0.0 3.535534E-01 2.299867E-02 1.340461E-01 0.0 332 G 0.0 0.0 2.854944E-01 1.857143E-02 1.379892E-01 0.0 333 G 0.0 0.0 2.156754E-01 1.402970E-02 1.410815E-01 0.0 334 G 0.0 0.0 1.445266E-01 9.401463E-03 1.433041E-01 0.0 335 G 0.0 0.0 7.248675E-02 4.715267E-03 1.446431E-01 0.0 336 G 0.0 0.0 0.0 0.0 1.450904E-01 0.0 379 G 0.0 0.0 9.876884E-01 2.456721E-02 0.0 0.0 380 G 0.0 0.0 9.846436E-01 2.449147E-02 1.216989E-02 0.0 381 G 0.0 0.0 9.755282E-01 2.426475E-02 2.426475E-02 0.0 382 G 0.0 0.0 9.603984E-01 2.388841E-02 3.621000E-02 0.0 383 G 0.0 0.0 9.393474E-01 2.336480E-02 4.793201E-02 0.0 384 G 0.0 0.0 9.125050E-01 2.269714E-02 5.935850E-02 0.0 385 G 0.0 0.0 8.800368E-01 2.188954E-02 7.041903E-02 0.0 386 G 0.0 0.0 8.421427E-01 2.094699E-02 8.104540E-02 0.0 387 G 0.0 0.0 7.990566E-01 1.987529E-02 9.117210E-02 0.0 388 G 0.0 0.0 7.510441E-01 1.868105E-02 1.007367E-01 0.0 389 G 0.0 0.0 6.984011E-01 1.737164E-02 1.096802E-01 0.0 390 G 0.0 0.0 6.414523E-01 1.595512E-02 1.179475E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 5.805486E-01 1.444024E-02 1.254876E-01 0.0 392 G 0.0 0.0 5.160657E-01 1.283633E-02 1.322541E-01 0.0 393 G 0.0 0.0 4.484011E-01 1.115328E-02 1.382051E-01 0.0 394 G 0.0 0.0 3.779719E-01 9.401463E-03 1.433041E-01 0.0 395 G 0.0 0.0 3.052125E-01 7.591685E-03 1.475196E-01 0.0 396 G 0.0 0.0 2.305713E-01 5.735101E-03 1.508255E-01 0.0 397 G 0.0 0.0 1.545085E-01 3.843158E-03 1.532016E-01 0.0 398 G 0.0 0.0 7.749313E-02 1.927521E-03 1.546331E-01 0.0 399 G 0.0 0.0 0.0 0.0 1.551112E-01 0.0 442 G 0.0 0.0 9.969173E-01 -1.232159E-02 0.0 0.0 443 G 0.0 0.0 9.938442E-01 -1.228360E-02 1.228360E-02 0.0 444 G 0.0 0.0 9.846436E-01 -1.216989E-02 2.449147E-02 0.0 445 G 0.0 0.0 9.693724E-01 -1.198114E-02 3.654835E-02 0.0 446 G 0.0 0.0 9.481246E-01 -1.171853E-02 4.837989E-02 0.0 447 G 0.0 0.0 9.210315E-01 -1.138366E-02 5.991315E-02 0.0 448 G 0.0 0.0 8.882598E-01 -1.097861E-02 7.107703E-02 0.0 449 G 0.0 0.0 8.500117E-01 -1.050588E-02 8.180269E-02 0.0 450 G 0.0 0.0 8.065231E-01 -9.968373E-03 9.202401E-02 0.0 451 G 0.0 0.0 7.580619E-01 -9.369408E-03 1.016780E-01 0.0 452 G 0.0 0.0 7.049270E-01 -8.712677E-03 1.107051E-01 0.0 453 G 0.0 0.0 6.474460E-01 -8.002231E-03 1.190496E-01 0.0 454 G 0.0 0.0 5.859733E-01 -7.242447E-03 1.266602E-01 0.0 455 G 0.0 0.0 5.208879E-01 -6.438011E-03 1.334899E-01 0.0 456 G 0.0 0.0 4.525910E-01 -5.593883E-03 1.394965E-01 0.0 457 G 0.0 0.0 3.815037E-01 -4.715267E-03 1.446431E-01 0.0 458 G 0.0 0.0 3.080644E-01 -3.807580E-03 1.488980E-01 0.0 459 G 0.0 0.0 2.327257E-01 -2.876417E-03 1.522348E-01 0.0 460 G 0.0 0.0 1.559522E-01 -1.927521E-03 1.546331E-01 0.0 461 G 0.0 0.0 7.821723E-02 -9.667405E-04 1.560780E-01 0.0 462 G 0.0 0.0 0.0 0.0 1.565606E-01 0.0 505 G 0.0 0.0 9.510565E-01 -4.852949E-02 0.0 0.0 506 G 0.0 0.0 9.481246E-01 -4.837989E-02 1.171853E-02 0.0 507 G 0.0 0.0 9.393474E-01 -4.793201E-02 2.336480E-02 0.0 508 G 0.0 0.0 9.247788E-01 -4.718861E-02 3.486703E-02 0.0 509 G 0.0 0.0 9.045085E-01 -4.615429E-02 4.615429E-02 0.0 510 G 0.0 0.0 8.786616E-01 -4.483540E-02 5.715698E-02 0.0 511 G 0.0 0.0 8.473975E-01 -4.324009E-02 6.780729E-02 0.0 512 G 0.0 0.0 8.109089E-01 -4.137819E-02 7.803955E-02 0.0 513 G 0.0 0.0 7.694209E-01 -3.926118E-02 8.779067E-02 0.0 514 G 0.0 0.0 7.231890E-01 -3.690211E-02 9.700052E-02 0.0 515 G 0.0 0.0 6.724985E-01 -3.431553E-02 1.056123E-01 0.0 516 G 0.0 0.0 6.176618E-01 -3.151738E-02 1.135730E-01 0.0 517 G 0.0 0.0 5.590169E-01 -2.852492E-02 1.208335E-01 0.0 518 G 0.0 0.0 4.969256E-01 -2.535659E-02 1.273490E-01 0.0 519 G 0.0 0.0 4.317706E-01 -2.203193E-02 1.330793E-01 0.0 520 G 0.0 0.0 3.639536E-01 -1.857143E-02 1.379892E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 2.938926E-01 -1.499644E-02 1.420483E-01 0.0 522 G 0.0 0.0 2.220197E-01 -1.132898E-02 1.452316E-01 0.0 523 G 0.0 0.0 1.487780E-01 -7.591685E-03 1.475196E-01 0.0 524 G 0.0 0.0 7.461903E-02 -3.807580E-03 1.488980E-01 0.0 525 G 0.0 0.0 0.0 0.0 1.493584E-01 0.0 568 G 0.0 0.0 8.526402E-01 -8.205564E-02 0.0 0.0 569 G 0.0 0.0 8.500117E-01 -8.180269E-02 1.050588E-02 0.0 570 G 0.0 0.0 8.421427E-01 -8.104540E-02 2.094699E-02 0.0 571 G 0.0 0.0 8.290817E-01 -7.978844E-02 3.125895E-02 0.0 572 G 0.0 0.0 8.109089E-01 -7.803955E-02 4.137819E-02 0.0 573 G 0.0 0.0 7.877368E-01 -7.580953E-02 5.124233E-02 0.0 574 G 0.0 0.0 7.597079E-01 -7.311212E-02 6.079053E-02 0.0 575 G 0.0 0.0 7.269952E-01 -6.996394E-02 6.996394E-02 0.0 576 G 0.0 0.0 6.898004E-01 -6.638441E-02 7.870600E-02 0.0 577 G 0.0 0.0 6.483527E-01 -6.239560E-02 8.696281E-02 0.0 578 G 0.0 0.0 6.029076E-01 -5.802210E-02 9.468347E-02 0.0 579 G 0.0 0.0 5.537454E-01 -5.329088E-02 1.018204E-01 0.0 580 G 0.0 0.0 5.011693E-01 -4.823110E-02 1.083295E-01 0.0 581 G 0.0 0.0 4.455032E-01 -4.287396E-02 1.141708E-01 0.0 582 G 0.0 0.0 3.870905E-01 -3.725248E-02 1.193081E-01 0.0 583 G 0.0 0.0 3.262913E-01 -3.140134E-02 1.237099E-01 0.0 584 G 0.0 0.0 2.634803E-01 -2.535659E-02 1.273490E-01 0.0 585 G 0.0 0.0 1.990449E-01 -1.915551E-02 1.302029E-01 0.0 586 G 0.0 0.0 1.333823E-01 -1.283633E-02 1.322541E-01 0.0 587 G 0.0 0.0 6.689738E-02 -6.438011E-03 1.334899E-01 0.0 588 G 0.0 0.0 0.0 0.0 1.339026E-01 0.0 631 G 0.0 0.0 7.071067E-01 -1.110474E-01 0.0 0.0 632 G 0.0 0.0 7.049270E-01 -1.107051E-01 8.712677E-03 0.0 633 G 0.0 0.0 6.984011E-01 -1.096802E-01 1.737164E-02 0.0 634 G 0.0 0.0 6.875693E-01 -1.079791E-01 2.592350E-02 0.0 635 G 0.0 0.0 6.724985E-01 -1.056123E-01 3.431553E-02 0.0 636 G 0.0 0.0 6.532815E-01 -1.025944E-01 4.249600E-02 0.0 637 G 0.0 0.0 6.300367E-01 -9.894395E-02 5.041446E-02 0.0 638 G 0.0 0.0 6.029076E-01 -9.468347E-02 5.802210E-02 0.0 639 G 0.0 0.0 5.720614E-01 -8.983923E-02 6.527202E-02 0.0 640 G 0.0 0.0 5.376882E-01 -8.444110E-02 7.211950E-02 0.0 641 G 0.0 0.0 5.000000E-01 -7.852236E-02 7.852236E-02 0.0 642 G 0.0 0.0 4.592291E-01 -7.211950E-02 8.444110E-02 0.0 643 G 0.0 0.0 4.156269E-01 -6.527202E-02 8.983923E-02 0.0 644 G 0.0 0.0 3.694623E-01 -5.802210E-02 9.468347E-02 0.0 645 G 0.0 0.0 3.210197E-01 -5.041446E-02 9.894395E-02 0.0 646 G 0.0 0.0 2.705980E-01 -4.249600E-02 1.025944E-01 0.0 647 G 0.0 0.0 2.185080E-01 -3.431553E-02 1.056123E-01 0.0 648 G 0.0 0.0 1.650708E-01 -2.592350E-02 1.079791E-01 0.0 649 G 0.0 0.0 1.106159E-01 -1.737164E-02 1.096802E-01 0.0 650 G 0.0 0.0 5.547896E-02 -8.712677E-03 1.107051E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 1.110474E-01 0.0 694 G 0.0 0.0 5.224985E-01 -1.339026E-01 0.0 0.0 695 G 0.0 0.0 5.208879E-01 -1.334899E-01 6.438011E-03 0.0 696 G 0.0 0.0 5.160657E-01 -1.322541E-01 1.283633E-02 0.0 697 G 0.0 0.0 5.080619E-01 -1.302029E-01 1.915551E-02 0.0 698 G 0.0 0.0 4.969256E-01 -1.273490E-01 2.535659E-02 0.0 699 G 0.0 0.0 4.827257E-01 -1.237099E-01 3.140134E-02 0.0 700 G 0.0 0.0 4.655496E-01 -1.193081E-01 3.725248E-02 0.0 701 G 0.0 0.0 4.455032E-01 -1.141708E-01 4.287396E-02 0.0 702 G 0.0 0.0 4.227102E-01 -1.083295E-01 4.823110E-02 0.0 703 G 0.0 0.0 3.973110E-01 -1.018204E-01 5.329088E-02 0.0 704 G 0.0 0.0 3.694623E-01 -9.468347E-02 5.802210E-02 0.0 705 G 0.0 0.0 3.393357E-01 -8.696281E-02 6.239560E-02 0.0 706 G 0.0 0.0 3.071170E-01 -7.870600E-02 6.638441E-02 0.0 707 G 0.0 0.0 2.730047E-01 -6.996394E-02 6.996394E-02 0.0 708 G 0.0 0.0 2.372094E-01 -6.079053E-02 7.311212E-02 0.0 709 G 0.0 0.0 1.999515E-01 -5.124233E-02 7.580953E-02 0.0 710 G 0.0 0.0 1.614609E-01 -4.137819E-02 7.803955E-02 0.0 711 G 0.0 0.0 1.219749E-01 -3.125895E-02 7.978844E-02 0.0 712 G 0.0 0.0 8.173678E-02 -2.094699E-02 8.104540E-02 0.0 713 G 0.0 0.0 4.099476E-02 -1.050588E-02 8.180269E-02 0.0 714 G 0.0 0.0 0.0 0.0 8.205564E-02 0.0 757 G 0.0 0.0 3.090170E-01 -1.493584E-01 0.0 0.0 758 G 0.0 0.0 3.080644E-01 -1.488980E-01 3.807580E-03 0.0 759 G 0.0 0.0 3.052125E-01 -1.475196E-01 7.591685E-03 0.0 760 G 0.0 0.0 3.004788E-01 -1.452316E-01 1.132898E-02 0.0 761 G 0.0 0.0 2.938926E-01 -1.420483E-01 1.499644E-02 0.0 762 G 0.0 0.0 2.854944E-01 -1.379892E-01 1.857143E-02 0.0 763 G 0.0 0.0 2.753361E-01 -1.330793E-01 2.203193E-02 0.0 764 G 0.0 0.0 2.634803E-01 -1.273490E-01 2.535659E-02 0.0 765 G 0.0 0.0 2.500000E-01 -1.208335E-01 2.852492E-02 0.0 766 G 0.0 0.0 2.349783E-01 -1.135730E-01 3.151738E-02 0.0 767 G 0.0 0.0 2.185080E-01 -1.056123E-01 3.431553E-02 0.0 768 G 0.0 0.0 2.006905E-01 -9.700052E-02 3.690211E-02 0.0 769 G 0.0 0.0 1.816356E-01 -8.779067E-02 3.926118E-02 0.0 770 G 0.0 0.0 1.614609E-01 -7.803955E-02 4.137819E-02 0.0 771 G 0.0 0.0 1.402908E-01 -6.780729E-02 4.324009E-02 0.0 772 G 0.0 0.0 1.182557E-01 -5.715698E-02 4.483540E-02 0.0 773 G 0.0 0.0 9.549150E-02 -4.615429E-02 4.615429E-02 0.0 774 G 0.0 0.0 7.213859E-02 -3.486703E-02 4.718861E-02 0.0 775 G 0.0 0.0 4.834091E-02 -2.336480E-02 4.793201E-02 0.0 776 G 0.0 0.0 2.424519E-02 -1.171853E-02 4.837989E-02 0.0 777 G 0.0 0.0 0.0 0.0 4.852949E-02 0.0 820 G 0.0 0.0 7.845909E-02 -1.565606E-01 0.0 0.0 821 G 0.0 0.0 7.821723E-02 -1.560780E-01 9.667405E-04 0.0 822 G 0.0 0.0 7.749313E-02 -1.546331E-01 1.927521E-03 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.324457E+02 (CYCLIC FREQUENCY = 9.065642E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 7.629126E-02 -1.522348E-01 2.876417E-03 0.0 824 G 0.0 0.0 7.461903E-02 -1.488980E-01 3.807580E-03 0.0 825 G 0.0 0.0 7.248675E-02 -1.446431E-01 4.715267E-03 0.0 826 G 0.0 0.0 6.990756E-02 -1.394965E-01 5.593883E-03 0.0 827 G 0.0 0.0 6.689738E-02 -1.334899E-01 6.438011E-03 0.0 828 G 0.0 0.0 6.347474E-02 -1.266602E-01 7.242447E-03 0.0 829 G 0.0 0.0 5.966076E-02 -1.190496E-01 8.002231E-03 0.0 830 G 0.0 0.0 5.547896E-02 -1.107051E-01 8.712677E-03 0.0 831 G 0.0 0.0 5.095510E-02 -1.016780E-01 9.369408E-03 0.0 832 G 0.0 0.0 4.611710E-02 -9.202401E-02 9.968373E-03 0.0 833 G 0.0 0.0 4.099476E-02 -8.180269E-02 1.050588E-02 0.0 834 G 0.0 0.0 3.561968E-02 -7.107703E-02 1.097861E-02 0.0 835 G 0.0 0.0 3.002500E-02 -5.991315E-02 1.138366E-02 0.0 836 G 0.0 0.0 2.424519E-02 -4.837989E-02 1.171853E-02 0.0 837 G 0.0 0.0 1.831591E-02 -3.654835E-02 1.198114E-02 0.0 838 G 0.0 0.0 1.227371E-02 -2.449147E-02 1.216989E-02 0.0 839 G 0.0 0.0 6.155829E-03 -1.228360E-02 1.228360E-02 0.0 840 G 0.0 0.0 0.0 0.0 1.232159E-02 0.0 841 G 0.0 0.0 0.0 -1.570447E-01 0.0 0.0 842 G 0.0 0.0 0.0 -1.565606E-01 0.0 0.0 843 G 0.0 0.0 0.0 -1.551112E-01 0.0 0.0 844 G 0.0 0.0 0.0 -1.527056E-01 0.0 0.0 845 G 0.0 0.0 0.0 -1.493584E-01 0.0 0.0 846 G 0.0 0.0 0.0 -1.450904E-01 0.0 0.0 847 G 0.0 0.0 0.0 -1.399279E-01 0.0 0.0 848 G 0.0 0.0 0.0 -1.339026E-01 0.0 0.0 849 G 0.0 0.0 0.0 -1.270518E-01 0.0 0.0 850 G 0.0 0.0 0.0 -1.194177E-01 0.0 0.0 851 G 0.0 0.0 0.0 -1.110474E-01 0.0 0.0 852 G 0.0 0.0 0.0 -1.019924E-01 0.0 0.0 853 G 0.0 0.0 0.0 -9.230857E-02 0.0 0.0 854 G 0.0 0.0 0.0 -8.205564E-02 0.0 0.0 855 G 0.0 0.0 0.0 -7.129681E-02 0.0 0.0 856 G 0.0 0.0 0.0 -6.009841E-02 0.0 0.0 857 G 0.0 0.0 0.0 -4.852949E-02 0.0 0.0 858 G 0.0 0.0 0.0 -3.666136E-02 0.0 0.0 859 G 0.0 0.0 0.0 -2.456721E-02 0.0 0.0 860 G 0.0 0.0 0.0 -1.232159E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 3.142506E-01 0.0 0.0 2 G 0.0 0.0 0.0 3.132819E-01 0.0 0.0 3 G 0.0 0.0 0.0 3.103817E-01 0.0 0.0 4 G 0.0 0.0 0.0 3.055678E-01 0.0 0.0 5 G 0.0 0.0 0.0 2.988701E-01 0.0 0.0 6 G 0.0 0.0 0.0 2.903297E-01 0.0 0.0 7 G 0.0 0.0 0.0 2.799993E-01 0.0 0.0 8 G 0.0 0.0 0.0 2.679427E-01 0.0 0.0 9 G 0.0 0.0 0.0 2.542341E-01 0.0 0.0 10 G 0.0 0.0 0.0 2.389580E-01 0.0 0.0 11 G 0.0 0.0 0.0 2.222087E-01 0.0 0.0 12 G 0.0 0.0 0.0 2.040894E-01 0.0 0.0 13 G 0.0 0.0 0.0 1.847119E-01 0.0 0.0 14 G 0.0 0.0 0.0 1.641955E-01 0.0 0.0 15 G 0.0 0.0 0.0 1.426668E-01 0.0 0.0 16 G 0.0 0.0 0.0 1.202585E-01 0.0 0.0 17 G 0.0 0.0 0.0 9.710877E-02 0.0 0.0 18 G 0.0 0.0 0.0 7.336034E-02 0.0 0.0 19 G 0.0 0.0 0.0 4.915962E-02 0.0 0.0 20 G 0.0 0.0 0.0 2.465582E-02 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 4.539905E-01 2.799993E-01 0.0 0.0 65 G 0.0 0.0 4.525910E-01 2.791362E-01 5.587314E-03 0.0 66 G 0.0 0.0 4.484011E-01 2.765521E-01 1.114018E-02 0.0 67 G 0.0 0.0 4.414467E-01 2.722629E-01 1.662436E-02 0.0 68 G 0.0 0.0 4.317706E-01 2.662952E-01 2.200605E-02 0.0 69 G 0.0 0.0 4.194325E-01 2.586856E-01 2.725207E-02 0.0 70 G 0.0 0.0 4.045085E-01 2.494812E-01 3.233006E-02 0.0 71 G 0.0 0.0 3.870905E-01 2.387387E-01 3.720873E-02 0.0 72 G 0.0 0.0 3.672860E-01 2.265242E-01 4.185800E-02 0.0 73 G 0.0 0.0 3.452171E-01 2.129132E-01 4.624919E-02 0.0 74 G 0.0 0.0 3.210197E-01 1.979894E-01 5.035525E-02 0.0 75 G 0.0 0.0 2.948432E-01 1.818450E-01 5.415085E-02 0.0 76 G 0.0 0.0 2.668489E-01 1.645795E-01 5.761259E-02 0.0 77 G 0.0 0.0 2.372094E-01 1.462992E-01 6.071913E-02 0.0 78 G 0.0 0.0 2.061074E-01 1.271170E-01 6.345131E-02 0.0 79 G 0.0 0.0 1.737346E-01 1.071511E-01 6.579230E-02 0.0 80 G 0.0 0.0 1.402908E-01 8.652455E-02 6.772766E-02 0.0 81 G 0.0 0.0 1.059820E-01 6.536455E-02 6.924545E-02 0.0 82 G 0.0 0.0 7.101975E-02 4.380155E-02 7.033633E-02 0.0 83 G 0.0 0.0 3.561968E-02 2.196849E-02 7.099355E-02 0.0 84 G 0.0 0.0 0.0 0.0 7.121307E-02 0.0 127 G 0.0 0.0 8.090169E-01 1.847119E-01 0.0 0.0 128 G 0.0 0.0 8.065231E-01 1.841425E-01 9.956665E-03 0.0 129 G 0.0 0.0 7.990566E-01 1.824377E-01 1.985195E-02 0.0 130 G 0.0 0.0 7.866638E-01 1.796083E-01 2.962483E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 7.694209E-01 1.756714E-01 3.921507E-02 0.0 132 G 0.0 0.0 7.474342E-01 1.706515E-01 4.856354E-02 0.0 133 G 0.0 0.0 7.208394E-01 1.645795E-01 5.761259E-02 0.0 134 G 0.0 0.0 6.898004E-01 1.574928E-01 6.630644E-02 0.0 135 G 0.0 0.0 6.545085E-01 1.494350E-01 7.459150E-02 0.0 136 G 0.0 0.0 6.151813E-01 1.404560E-01 8.241667E-02 0.0 137 G 0.0 0.0 5.720614E-01 1.306110E-01 8.973371E-02 0.0 138 G 0.0 0.0 5.254145E-01 1.199608E-01 9.649752E-02 0.0 139 G 0.0 0.0 4.755282E-01 1.085709E-01 1.026664E-01 0.0 140 G 0.0 0.0 4.227102E-01 9.651168E-02 1.082023E-01 0.0 141 G 0.0 0.0 3.672860E-01 8.385743E-02 1.130711E-01 0.0 142 G 0.0 0.0 3.095974E-01 7.068617E-02 1.172428E-01 0.0 143 G 0.0 0.0 2.500000E-01 5.707911E-02 1.206916E-01 0.0 144 G 0.0 0.0 1.888613E-01 4.312013E-02 1.233963E-01 0.0 145 G 0.0 0.0 1.265581E-01 2.889530E-02 1.253402E-01 0.0 146 G 0.0 0.0 6.347474E-02 1.449233E-02 1.265114E-01 0.0 147 G 0.0 0.0 0.0 0.0 1.269026E-01 0.0 190 G 0.0 0.0 9.876884E-01 4.915962E-02 0.0 0.0 191 G 0.0 0.0 9.846436E-01 4.900808E-02 1.215559E-02 0.0 192 G 0.0 0.0 9.755282E-01 4.855439E-02 2.423625E-02 0.0 193 G 0.0 0.0 9.603984E-01 4.780134E-02 3.616747E-02 0.0 194 G 0.0 0.0 9.393474E-01 4.675358E-02 4.787571E-02 0.0 195 G 0.0 0.0 9.125050E-01 4.541757E-02 5.928879E-02 0.0 196 G 0.0 0.0 8.800368E-01 4.380155E-02 7.033633E-02 0.0 197 G 0.0 0.0 8.421427E-01 4.191547E-02 8.095022E-02 0.0 198 G 0.0 0.0 7.990566E-01 3.977097E-02 9.106503E-02 0.0 199 G 0.0 0.0 7.510441E-01 3.738127E-02 1.006184E-01 0.0 200 G 0.0 0.0 6.984011E-01 3.476110E-02 1.095514E-01 0.0 201 G 0.0 0.0 6.414523E-01 3.192662E-02 1.178090E-01 0.0 202 G 0.0 0.0 5.805486E-01 2.889530E-02 1.253402E-01 0.0 203 G 0.0 0.0 5.160657E-01 2.568583E-02 1.320987E-01 0.0 204 G 0.0 0.0 4.484011E-01 2.231800E-02 1.380428E-01 0.0 205 G 0.0 0.0 3.779719E-01 1.881257E-02 1.431358E-01 0.0 206 G 0.0 0.0 3.052125E-01 1.519116E-02 1.473463E-01 0.0 207 G 0.0 0.0 2.305713E-01 1.147609E-02 1.506484E-01 0.0 208 G 0.0 0.0 1.545085E-01 7.690259E-03 1.530216E-01 0.0 209 G 0.0 0.0 7.749313E-02 3.857020E-03 1.544515E-01 0.0 210 G 0.0 0.0 0.0 0.0 1.549291E-01 0.0 253 G 0.0 0.0 9.510565E-01 -9.710877E-02 0.0 0.0 254 G 0.0 0.0 9.481246E-01 -9.680942E-02 1.170476E-02 0.0 255 G 0.0 0.0 9.393474E-01 -9.591320E-02 2.333736E-02 0.0 256 G 0.0 0.0 9.247788E-01 -9.442565E-02 3.482608E-02 0.0 257 G 0.0 0.0 9.045085E-01 -9.235593E-02 4.610008E-02 0.0 258 G 0.0 0.0 8.786616E-01 -8.971681E-02 5.708986E-02 0.0 259 G 0.0 0.0 8.473975E-01 -8.652455E-02 6.772766E-02 0.0 260 G 0.0 0.0 8.109089E-01 -8.279885E-02 7.794790E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 7.694209E-01 -7.856265E-02 8.768757E-02 0.0 262 G 0.0 0.0 7.231890E-01 -7.384209E-02 9.688661E-02 0.0 263 G 0.0 0.0 6.724985E-01 -6.866627E-02 1.054883E-01 0.0 264 G 0.0 0.0 6.176618E-01 -6.306710E-02 1.134396E-01 0.0 265 G 0.0 0.0 5.590169E-01 -5.707911E-02 1.206916E-01 0.0 266 G 0.0 0.0 4.969256E-01 -5.073919E-02 1.271994E-01 0.0 267 G 0.0 0.0 4.317706E-01 -4.408646E-02 1.329230E-01 0.0 268 G 0.0 0.0 3.639536E-01 -3.716192E-02 1.378271E-01 0.0 269 G 0.0 0.0 2.938926E-01 -3.000826E-02 1.418815E-01 0.0 270 G 0.0 0.0 2.220197E-01 -2.266959E-02 1.450610E-01 0.0 271 G 0.0 0.0 1.487780E-01 -1.519116E-02 1.473463E-01 0.0 272 G 0.0 0.0 7.461903E-02 -7.619066E-03 1.487231E-01 0.0 273 G 0.0 0.0 0.0 0.0 1.491830E-01 0.0 316 G 0.0 0.0 7.071067E-01 -2.222087E-01 0.0 0.0 317 G 0.0 0.0 7.049270E-01 -2.215237E-01 8.702445E-03 0.0 318 G 0.0 0.0 6.984011E-01 -2.194730E-01 1.735124E-02 0.0 319 G 0.0 0.0 6.875693E-01 -2.160691E-01 2.589305E-02 0.0 320 G 0.0 0.0 6.724985E-01 -2.113331E-01 3.427523E-02 0.0 321 G 0.0 0.0 6.532815E-01 -2.052941E-01 4.244608E-02 0.0 322 G 0.0 0.0 6.300367E-01 -1.979894E-01 5.035525E-02 0.0 323 G 0.0 0.0 6.029076E-01 -1.894641E-01 5.795396E-02 0.0 324 G 0.0 0.0 5.720614E-01 -1.797706E-01 6.519536E-02 0.0 325 G 0.0 0.0 5.376882E-01 -1.689688E-01 7.203481E-02 0.0 326 G 0.0 0.0 5.000000E-01 -1.571253E-01 7.843014E-02 0.0 327 G 0.0 0.0 4.592291E-01 -1.443130E-01 8.434192E-02 0.0 328 G 0.0 0.0 4.156269E-01 -1.306110E-01 8.973371E-02 0.0 329 G 0.0 0.0 3.694623E-01 -1.161037E-01 9.457226E-02 0.0 330 G 0.0 0.0 3.210197E-01 -1.008807E-01 9.882774E-02 0.0 331 G 0.0 0.0 2.705980E-01 -8.503560E-02 1.024739E-01 0.0 332 G 0.0 0.0 2.185080E-01 -6.866627E-02 1.054883E-01 0.0 333 G 0.0 0.0 1.650708E-01 -5.187359E-02 1.078523E-01 0.0 334 G 0.0 0.0 1.106159E-01 -3.476110E-02 1.095514E-01 0.0 335 G 0.0 0.0 5.547896E-02 -1.743430E-02 1.105751E-01 0.0 336 G 0.0 0.0 0.0 0.0 1.109170E-01 0.0 379 G 0.0 0.0 3.090170E-01 -2.988701E-01 0.0 0.0 380 G 0.0 0.0 3.080644E-01 -2.979488E-01 3.803108E-03 0.0 381 G 0.0 0.0 3.052125E-01 -2.951905E-01 7.582769E-03 0.0 382 G 0.0 0.0 3.004788E-01 -2.906123E-01 1.131568E-02 0.0 383 G 0.0 0.0 2.938926E-01 -2.842423E-01 1.497882E-02 0.0 384 G 0.0 0.0 2.854944E-01 -2.761199E-01 1.854962E-02 0.0 385 G 0.0 0.0 2.753361E-01 -2.662952E-01 2.200605E-02 0.0 386 G 0.0 0.0 2.634803E-01 -2.548286E-01 2.532681E-02 0.0 387 G 0.0 0.0 2.500000E-01 -2.417910E-01 2.849142E-02 0.0 388 G 0.0 0.0 2.349783E-01 -2.272626E-01 3.148036E-02 0.0 389 G 0.0 0.0 2.185080E-01 -2.113331E-01 3.427523E-02 0.0 390 G 0.0 0.0 2.006905E-01 -1.941006E-01 3.685877E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 1.816356E-01 -1.756714E-01 3.921507E-02 0.0 392 G 0.0 0.0 1.614609E-01 -1.561592E-01 4.132959E-02 0.0 393 G 0.0 0.0 1.402908E-01 -1.356842E-01 4.318931E-02 0.0 394 G 0.0 0.0 1.182557E-01 -1.143726E-01 4.478274E-02 0.0 395 G 0.0 0.0 9.549150E-02 -9.235593E-02 4.610008E-02 0.0 396 G 0.0 0.0 7.213859E-02 -6.976984E-02 4.713319E-02 0.0 397 G 0.0 0.0 4.834091E-02 -4.675358E-02 4.787571E-02 0.0 398 G 0.0 0.0 2.424519E-02 -2.344908E-02 4.832307E-02 0.0 399 G 0.0 0.0 0.0 0.0 4.847249E-02 0.0 442 G 0.0 0.0 -1.564345E-01 -3.103817E-01 0.0 0.0 443 G 0.0 0.0 -1.559522E-01 -3.094248E-01 -1.925257E-03 0.0 444 G 0.0 0.0 -1.545085E-01 -3.065603E-01 -3.838644E-03 0.0 445 G 0.0 0.0 -1.521122E-01 -3.018058E-01 -5.728365E-03 0.0 446 G 0.0 0.0 -1.487780E-01 -2.951905E-01 -7.582769E-03 0.0 447 G 0.0 0.0 -1.445266E-01 -2.867553E-01 -9.390421E-03 0.0 448 G 0.0 0.0 -1.393841E-01 -2.765521E-01 -1.114018E-02 0.0 449 G 0.0 0.0 -1.333823E-01 -2.646439E-01 -1.282126E-02 0.0 450 G 0.0 0.0 -1.265581E-01 -2.511040E-01 -1.442328E-02 0.0 451 G 0.0 0.0 -1.189537E-01 -2.360161E-01 -1.593639E-02 0.0 452 G 0.0 0.0 -1.106159E-01 -2.194730E-01 -1.735124E-02 0.0 453 G 0.0 0.0 -1.015960E-01 -2.015767E-01 -1.865911E-02 0.0 454 G 0.0 0.0 -9.194987E-02 -1.824377E-01 -1.985195E-02 0.0 455 G 0.0 0.0 -8.173678E-02 -1.621740E-01 -2.092239E-02 0.0 456 G 0.0 0.0 -7.101975E-02 -1.409103E-01 -2.186383E-02 0.0 457 G 0.0 0.0 -5.986487E-02 -1.187779E-01 -2.267048E-02 0.0 458 G 0.0 0.0 -4.834091E-02 -9.591320E-02 -2.333736E-02 0.0 459 G 0.0 0.0 -3.651890E-02 -7.245716E-02 -2.386036E-02 0.0 460 G 0.0 0.0 -2.447174E-02 -4.855439E-02 -2.423625E-02 0.0 461 G 0.0 0.0 -1.227371E-02 -2.435226E-02 -2.446271E-02 0.0 462 G 0.0 0.0 0.0 0.0 -2.453835E-02 0.0 505 G 0.0 0.0 -5.877852E-01 -2.542341E-01 0.0 0.0 506 G 0.0 0.0 -5.859733E-01 -2.534504E-01 -7.233941E-03 0.0 507 G 0.0 0.0 -5.805486E-01 -2.511040E-01 -1.442328E-02 0.0 508 G 0.0 0.0 -5.715447E-01 -2.472095E-01 -2.152370E-02 0.0 509 G 0.0 0.0 -5.590169E-01 -2.417910E-01 -2.849142E-02 0.0 510 G 0.0 0.0 -5.430427E-01 -2.348817E-01 -3.528347E-02 0.0 511 G 0.0 0.0 -5.237205E-01 -2.265242E-01 -4.185800E-02 0.0 512 G 0.0 0.0 -5.011693E-01 -2.167702E-01 -4.817445E-02 0.0 513 G 0.0 0.0 -4.755282E-01 -2.056797E-01 -5.419389E-02 0.0 514 G 0.0 0.0 -4.469554E-01 -1.933211E-01 -5.987921E-02 0.0 515 G 0.0 0.0 -4.156269E-01 -1.797706E-01 -6.519536E-02 0.0 516 G 0.0 0.0 -3.817360E-01 -1.651118E-01 -7.010955E-02 0.0 517 G 0.0 0.0 -3.454915E-01 -1.494350E-01 -7.459150E-02 0.0 518 G 0.0 0.0 -3.071170E-01 -1.328369E-01 -7.861356E-02 0.0 519 G 0.0 0.0 -2.668489E-01 -1.154198E-01 -8.215094E-02 0.0 520 G 0.0 0.0 -2.249357E-01 -9.729116E-02 -8.518184E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -1.816356E-01 -7.856265E-02 -8.768757E-02 0.0 522 G 0.0 0.0 -1.372157E-01 -5.934976E-02 -8.965266E-02 0.0 523 G 0.0 0.0 -9.194987E-02 -3.977097E-02 -9.106503E-02 0.0 524 G 0.0 0.0 -4.611710E-02 -1.994698E-02 -9.191594E-02 0.0 525 G 0.0 0.0 0.0 0.0 -9.220016E-02 0.0 568 G 0.0 0.0 -8.910065E-01 -1.426668E-01 0.0 0.0 569 G 0.0 0.0 -8.882598E-01 -1.422270E-01 -1.096572E-02 0.0 570 G 0.0 0.0 -8.800368E-01 -1.409103E-01 -2.186383E-02 0.0 571 G 0.0 0.0 -8.663879E-01 -1.387249E-01 -3.262715E-02 0.0 572 G 0.0 0.0 -8.473975E-01 -1.356842E-01 -4.318931E-02 0.0 573 G 0.0 0.0 -8.231826E-01 -1.318069E-01 -5.348519E-02 0.0 574 G 0.0 0.0 -7.938926E-01 -1.271170E-01 -6.345131E-02 0.0 575 G 0.0 0.0 -7.597079E-01 -1.216434E-01 -7.302625E-02 0.0 576 G 0.0 0.0 -7.208394E-01 -1.154198E-01 -8.215094E-02 0.0 577 G 0.0 0.0 -6.775267E-01 -1.084847E-01 -9.076916E-02 0.0 578 G 0.0 0.0 -6.300367E-01 -1.008807E-01 -9.882774E-02 0.0 579 G 0.0 0.0 -5.786625E-01 -9.265467E-02 -1.062770E-01 0.0 580 G 0.0 0.0 -5.237205E-01 -8.385743E-02 -1.130711E-01 0.0 581 G 0.0 0.0 -4.655496E-01 -7.454319E-02 -1.191680E-01 0.0 582 G 0.0 0.0 -4.045085E-01 -6.476936E-02 -1.245302E-01 0.0 583 G 0.0 0.0 -3.409734E-01 -5.459621E-02 -1.291247E-01 0.0 584 G 0.0 0.0 -2.753361E-01 -4.408646E-02 -1.329230E-01 0.0 585 G 0.0 0.0 -2.080013E-01 -3.330490E-02 -1.359019E-01 0.0 586 G 0.0 0.0 -1.393841E-01 -2.231800E-02 -1.380428E-01 0.0 587 G 0.0 0.0 -6.990756E-02 -1.119351E-02 -1.393327E-01 0.0 588 G 0.0 0.0 0.0 0.0 -1.397635E-01 0.0 631 G 0.0 0.0 -1.000000E+00 1.843938E-14 0.0 0.0 632 G 0.0 0.0 -9.969173E-01 2.052142E-14 -1.230712E-02 0.0 633 G 0.0 0.0 -9.876884E-01 2.527322E-14 -2.453835E-02 0.0 634 G 0.0 0.0 -9.723699E-01 3.124802E-14 -3.661830E-02 0.0 635 G 0.0 0.0 -9.510565E-01 3.976731E-14 -4.847249E-02 0.0 636 G 0.0 0.0 -9.238795E-01 4.826675E-14 -6.002783E-02 0.0 637 G 0.0 0.0 -8.910065E-01 5.288602E-14 -7.121307E-02 0.0 638 G 0.0 0.0 -8.526402E-01 5.211622E-14 -8.195927E-02 0.0 639 G 0.0 0.0 -8.090169E-01 5.295549E-14 -9.220016E-02 0.0 640 G 0.0 0.0 -7.604059E-01 5.080515E-14 -1.018726E-01 0.0 641 G 0.0 0.0 -7.071067E-01 4.868904E-14 -1.109170E-01 0.0 642 G 0.0 0.0 -6.494480E-01 4.662493E-14 -1.192775E-01 0.0 643 G 0.0 0.0 -5.877852E-01 4.690209E-14 -1.269026E-01 0.0 644 G 0.0 0.0 -5.224985E-01 4.472932E-14 -1.337454E-01 0.0 645 G 0.0 0.0 -4.539905E-01 3.909042E-14 -1.397635E-01 0.0 646 G 0.0 0.0 -3.826834E-01 3.528258E-14 -1.449200E-01 0.0 647 G 0.0 0.0 -3.090170E-01 2.851992E-14 -1.491830E-01 0.0 648 G 0.0 0.0 -2.334453E-01 2.089121E-14 -1.525262E-01 0.0 649 G 0.0 0.0 -1.564345E-01 1.325569E-14 -1.549291E-01 0.0 650 G 0.0 0.0 -7.845909E-02 6.875288E-15 -1.563767E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 -1.568603E-01 0.0 694 G 0.0 0.0 -8.910065E-01 1.426668E-01 0.0 0.0 695 G 0.0 0.0 -8.882598E-01 1.422270E-01 -1.096572E-02 0.0 696 G 0.0 0.0 -8.800368E-01 1.409103E-01 -2.186383E-02 0.0 697 G 0.0 0.0 -8.663879E-01 1.387249E-01 -3.262715E-02 0.0 698 G 0.0 0.0 -8.473975E-01 1.356842E-01 -4.318931E-02 0.0 699 G 0.0 0.0 -8.231826E-01 1.318069E-01 -5.348519E-02 0.0 700 G 0.0 0.0 -7.938926E-01 1.271170E-01 -6.345131E-02 0.0 701 G 0.0 0.0 -7.597079E-01 1.216434E-01 -7.302625E-02 0.0 702 G 0.0 0.0 -7.208394E-01 1.154198E-01 -8.215094E-02 0.0 703 G 0.0 0.0 -6.775267E-01 1.084847E-01 -9.076916E-02 0.0 704 G 0.0 0.0 -6.300367E-01 1.008807E-01 -9.882774E-02 0.0 705 G 0.0 0.0 -5.786625E-01 9.265467E-02 -1.062770E-01 0.0 706 G 0.0 0.0 -5.237205E-01 8.385743E-02 -1.130711E-01 0.0 707 G 0.0 0.0 -4.655496E-01 7.454319E-02 -1.191680E-01 0.0 708 G 0.0 0.0 -4.045085E-01 6.476936E-02 -1.245302E-01 0.0 709 G 0.0 0.0 -3.409734E-01 5.459621E-02 -1.291247E-01 0.0 710 G 0.0 0.0 -2.753361E-01 4.408646E-02 -1.329230E-01 0.0 711 G 0.0 0.0 -2.080013E-01 3.330490E-02 -1.359019E-01 0.0 712 G 0.0 0.0 -1.393841E-01 2.231800E-02 -1.380428E-01 0.0 713 G 0.0 0.0 -6.990756E-02 1.119351E-02 -1.393327E-01 0.0 714 G 0.0 0.0 0.0 0.0 -1.397635E-01 0.0 757 G 0.0 0.0 -5.877852E-01 2.542341E-01 0.0 0.0 758 G 0.0 0.0 -5.859733E-01 2.534504E-01 -7.233941E-03 0.0 759 G 0.0 0.0 -5.805486E-01 2.511040E-01 -1.442328E-02 0.0 760 G 0.0 0.0 -5.715447E-01 2.472095E-01 -2.152370E-02 0.0 761 G 0.0 0.0 -5.590169E-01 2.417910E-01 -2.849142E-02 0.0 762 G 0.0 0.0 -5.430427E-01 2.348817E-01 -3.528347E-02 0.0 763 G 0.0 0.0 -5.237205E-01 2.265242E-01 -4.185800E-02 0.0 764 G 0.0 0.0 -5.011693E-01 2.167702E-01 -4.817445E-02 0.0 765 G 0.0 0.0 -4.755282E-01 2.056797E-01 -5.419389E-02 0.0 766 G 0.0 0.0 -4.469554E-01 1.933211E-01 -5.987921E-02 0.0 767 G 0.0 0.0 -4.156269E-01 1.797706E-01 -6.519536E-02 0.0 768 G 0.0 0.0 -3.817360E-01 1.651118E-01 -7.010955E-02 0.0 769 G 0.0 0.0 -3.454915E-01 1.494350E-01 -7.459150E-02 0.0 770 G 0.0 0.0 -3.071170E-01 1.328369E-01 -7.861356E-02 0.0 771 G 0.0 0.0 -2.668489E-01 1.154198E-01 -8.215094E-02 0.0 772 G 0.0 0.0 -2.249357E-01 9.729116E-02 -8.518184E-02 0.0 773 G 0.0 0.0 -1.816356E-01 7.856265E-02 -8.768757E-02 0.0 774 G 0.0 0.0 -1.372157E-01 5.934976E-02 -8.965266E-02 0.0 775 G 0.0 0.0 -9.194987E-02 3.977097E-02 -9.106503E-02 0.0 776 G 0.0 0.0 -4.611710E-02 1.994698E-02 -9.191594E-02 0.0 777 G 0.0 0.0 0.0 0.0 -9.220016E-02 0.0 820 G 0.0 0.0 -1.564345E-01 3.103817E-01 0.0 0.0 821 G 0.0 0.0 -1.559522E-01 3.094248E-01 -1.925257E-03 0.0 822 G 0.0 0.0 -1.545085E-01 3.065603E-01 -3.838644E-03 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.202759E+03 (CYCLIC FREQUENCY = 2.266261E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 -1.521122E-01 3.018058E-01 -5.728365E-03 0.0 824 G 0.0 0.0 -1.487780E-01 2.951905E-01 -7.582769E-03 0.0 825 G 0.0 0.0 -1.445266E-01 2.867553E-01 -9.390421E-03 0.0 826 G 0.0 0.0 -1.393841E-01 2.765521E-01 -1.114018E-02 0.0 827 G 0.0 0.0 -1.333823E-01 2.646439E-01 -1.282126E-02 0.0 828 G 0.0 0.0 -1.265581E-01 2.511040E-01 -1.442328E-02 0.0 829 G 0.0 0.0 -1.189537E-01 2.360161E-01 -1.593639E-02 0.0 830 G 0.0 0.0 -1.106159E-01 2.194730E-01 -1.735124E-02 0.0 831 G 0.0 0.0 -1.015960E-01 2.015767E-01 -1.865911E-02 0.0 832 G 0.0 0.0 -9.194987E-02 1.824377E-01 -1.985195E-02 0.0 833 G 0.0 0.0 -8.173678E-02 1.621740E-01 -2.092239E-02 0.0 834 G 0.0 0.0 -7.101975E-02 1.409103E-01 -2.186383E-02 0.0 835 G 0.0 0.0 -5.986487E-02 1.187779E-01 -2.267048E-02 0.0 836 G 0.0 0.0 -4.834091E-02 9.591320E-02 -2.333736E-02 0.0 837 G 0.0 0.0 -3.651890E-02 7.245716E-02 -2.386036E-02 0.0 838 G 0.0 0.0 -2.447174E-02 4.855439E-02 -2.423625E-02 0.0 839 G 0.0 0.0 -1.227371E-02 2.435226E-02 -2.446271E-02 0.0 840 G 0.0 0.0 0.0 0.0 -2.453835E-02 0.0 841 G 0.0 0.0 0.0 3.142506E-01 0.0 0.0 842 G 0.0 0.0 0.0 3.132819E-01 0.0 0.0 843 G 0.0 0.0 0.0 3.103817E-01 0.0 0.0 844 G 0.0 0.0 0.0 3.055678E-01 0.0 0.0 845 G 0.0 0.0 0.0 2.988701E-01 0.0 0.0 846 G 0.0 0.0 0.0 2.903297E-01 0.0 0.0 847 G 0.0 0.0 0.0 2.799993E-01 0.0 0.0 848 G 0.0 0.0 0.0 2.679427E-01 0.0 0.0 849 G 0.0 0.0 0.0 2.542341E-01 0.0 0.0 850 G 0.0 0.0 0.0 2.389580E-01 0.0 0.0 851 G 0.0 0.0 0.0 2.222087E-01 0.0 0.0 852 G 0.0 0.0 0.0 2.040894E-01 0.0 0.0 853 G 0.0 0.0 0.0 1.847119E-01 0.0 0.0 854 G 0.0 0.0 0.0 1.641955E-01 0.0 0.0 855 G 0.0 0.0 0.0 1.426668E-01 0.0 0.0 856 G 0.0 0.0 0.0 1.202585E-01 0.0 0.0 857 G 0.0 0.0 0.0 9.710877E-02 0.0 0.0 858 G 0.0 0.0 0.0 7.336034E-02 0.0 0.0 859 G 0.0 0.0 0.0 4.915962E-02 0.0 0.0 860 G 0.0 0.0 0.0 2.465582E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -3.434574E-01 0.0 0.0 2 G 0.0 0.0 0.0 -3.395072E-01 0.0 0.0 3 G 0.0 0.0 0.0 -3.278406E-01 0.0 0.0 4 G 0.0 0.0 0.0 -3.090001E-01 0.0 0.0 5 G 0.0 0.0 0.0 -2.838571E-01 0.0 0.0 6 G 0.0 0.0 0.0 -2.535649E-01 0.0 0.0 7 G 0.0 0.0 0.0 -2.194964E-01 0.0 0.0 8 G 0.0 0.0 0.0 -1.831699E-01 0.0 0.0 9 G 0.0 0.0 0.0 -1.461679E-01 0.0 0.0 10 G 0.0 0.0 0.0 -1.100517E-01 0.0 0.0 11 G 0.0 0.0 0.0 -7.627862E-02 0.0 0.0 12 G 0.0 0.0 0.0 -4.612441E-02 0.0 0.0 13 G 0.0 0.0 0.0 -2.061661E-02 0.0 0.0 14 G 0.0 0.0 0.0 -4.816158E-04 0.0 0.0 15 G 0.0 0.0 0.0 1.389122E-02 0.0 0.0 16 G 0.0 0.0 0.0 2.246664E-02 0.0 0.0 17 G 0.0 0.0 0.0 2.556080E-02 0.0 0.0 18 G 0.0 0.0 0.0 2.381886E-02 0.0 0.0 19 G 0.0 0.0 0.0 1.817434E-02 0.0 0.0 20 G 0.0 0.0 0.0 9.792359E-03 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 -4.862939E-01 -2.861346E-01 0.0 0.0 65 G 0.0 0.0 -4.804832E-01 -2.824410E-01 -2.316003E-02 0.0 66 G 0.0 0.0 -4.633254E-01 -2.715382E-01 -4.522758E-02 0.0 67 G 0.0 0.0 -4.356277E-01 -2.539510E-01 -6.516936E-02 0.0 68 G 0.0 0.0 -3.986872E-01 -2.305222E-01 -8.206727E-02 0.0 69 G 0.0 0.0 -3.542200E-01 -2.023670E-01 -9.516796E-02 0.0 70 G 0.0 0.0 -3.042690E-01 -1.708121E-01 -1.039234E-01 0.0 71 G 0.0 0.0 -2.510932E-01 -1.373246E-01 -1.080200E-01 0.0 72 G 0.0 0.0 -1.970459E-01 -1.034315E-01 -1.073950E-01 0.0 73 G 0.0 0.0 -1.444484E-01 -7.063846E-02 -1.022387E-01 0.0 74 G 0.0 0.0 -9.546588E-02 -4.034798E-02 -9.298344E-02 0.0 75 G 0.0 0.0 -5.199227E-02 -1.378493E-02 -8.027823E-02 0.0 76 G 0.0 0.0 -1.555055E-02 8.068576E-03 -6.495246E-02 0.0 77 G 0.0 0.0 1.278596E-02 2.452438E-02 -4.796908E-02 0.0 78 G 0.0 0.0 3.244710E-02 3.522314E-02 -3.037078E-02 0.0 79 G 0.0 0.0 4.339121E-02 4.015079E-02 -1.322164E-02 0.0 80 G 0.0 0.0 4.610107E-02 3.963577E-02 2.452186E-03 0.0 81 G 0.0 0.0 4.155045E-02 3.432714E-02 1.571967E-02 0.0 82 G 0.0 0.0 3.114337E-02 2.515491E-02 2.579675E-02 0.0 83 G 0.0 0.0 1.662946E-02 1.327473E-02 3.209001E-02 0.0 84 G 0.0 0.0 0.0 0.0 3.422963E-02 0.0 127 G 0.0 0.0 -8.140212E-01 -1.402550E-01 0.0 0.0 128 G 0.0 0.0 -8.031271E-01 -1.372463E-01 -4.342261E-02 0.0 129 G 0.0 0.0 -7.709749E-01 -1.283811E-01 -8.473059E-02 0.0 130 G 0.0 0.0 -7.191274E-01 -1.141334E-01 -1.219244E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -6.500945E-01 -9.526397E-02 -1.532283E-01 0.0 132 G 0.0 0.0 -5.671965E-01 -7.277851E-02 -1.771870E-01 0.0 133 G 0.0 0.0 -4.743841E-01 -4.787251E-02 -1.927438E-01 0.0 134 G 0.0 0.0 -3.760235E-01 -2.186531E-02 -1.992982E-01 0.0 135 G 0.0 0.0 -2.766604E-01 3.872430E-03 -1.967366E-01 0.0 136 G 0.0 0.0 -1.807737E-01 2.799403E-02 -1.854377E-01 0.0 137 G 0.0 0.0 -9.253468E-02 4.925080E-02 -1.662498E-01 0.0 138 G 0.0 0.0 -1.558313E-02 6.656043E-02 -1.404426E-01 0.0 139 G 0.0 0.0 4.716593E-02 7.906634E-02 -1.096357E-01 0.0 140 G 0.0 0.0 9.367521E-02 8.618432E-02 -7.570810E-02 0.0 141 G 0.0 0.0 1.228889E-01 8.763418E-02 -4.069296E-02 0.0 142 G 0.0 0.0 1.347817E-01 8.345452E-02 -6.664583E-03 0.0 143 G 0.0 0.0 1.303502E-01 7.399991E-02 2.437725E-02 0.0 144 G 0.0 0.0 1.115481E-01 5.992049E-02 5.061849E-02 0.0 145 G 0.0 0.0 8.116721E-02 4.212525E-02 7.053162E-02 0.0 146 G 0.0 0.0 4.267256E-02 2.173105E-02 8.296064E-02 0.0 147 G 0.0 0.0 0.0 0.0 8.718519E-02 0.0 190 G 0.0 0.0 -8.964841E-01 2.834066E-02 0.0 0.0 191 G 0.0 0.0 -8.817258E-01 3.045199E-02 -5.882554E-02 0.0 192 G 0.0 0.0 -8.382044E-01 3.665147E-02 -1.146463E-01 0.0 193 G 0.0 0.0 -7.681403E-01 4.654309E-02 -1.646221E-01 0.0 194 G 0.0 0.0 -6.750984E-01 5.949156E-02 -2.062327E-01 0.0 195 G 0.0 0.0 -5.637936E-01 7.465797E-02 -2.374154E-01 0.0 196 G 0.0 0.0 -4.398324E-01 9.104690E-02 -2.566782E-01 0.0 197 G 0.0 0.0 -3.094066E-01 1.075624E-01 -2.631800E-01 0.0 198 G 0.0 0.0 -1.789555E-01 1.230697E-01 -2.567764E-01 0.0 199 G 0.0 0.0 -5.481418E-02 1.364594E-01 -2.380258E-01 0.0 200 G 0.0 0.0 5.713046E-02 1.467101E-01 -2.081577E-01 0.0 201 G 0.0 0.0 1.517596E-01 1.529469E-01 -1.690034E-01 0.0 202 G 0.0 0.0 2.249986E-01 1.544914E-01 -1.228935E-01 0.0 203 G 0.0 0.0 2.740348E-01 1.509011E-01 -7.252867E-02 0.0 204 G 0.0 0.0 2.974658E-01 1.419967E-01 -2.082865E-02 0.0 205 G 0.0 0.0 2.953685E-01 1.278736E-01 2.922929E-02 0.0 206 G 0.0 0.0 2.692866E-01 1.088994E-01 7.477590E-02 0.0 207 G 0.0 0.0 2.221365E-01 8.569624E-02 1.132091E-01 0.0 208 G 0.0 0.0 1.580367E-01 5.910886E-02 1.423382E-01 0.0 209 G 0.0 0.0 8.207148E-02 3.016068E-02 1.605055E-01 0.0 210 G 0.0 0.0 0.0 0.0 1.666782E-01 0.0 253 G 0.0 0.0 -7.565104E-01 1.453848E-01 0.0 0.0 254 G 0.0 0.0 -7.392364E-01 1.466362E-01 -6.885403E-02 0.0 255 G 0.0 0.0 -6.883465E-01 1.502888E-01 -1.339923E-01 0.0 256 G 0.0 0.0 -6.065859E-01 1.560434E-01 -1.919039E-01 0.0 257 G 0.0 0.0 -4.983617E-01 1.634207E-01 -2.394760E-01 0.0 258 G 0.0 0.0 -3.694996E-01 1.717884E-01 -2.741657E-01 0.0 259 G 0.0 0.0 -2.269233E-01 1.803978E-01 -2.941398E-01 0.0 260 G 0.0 0.0 -7.827308E-02 1.884266E-01 -2.983755E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 6.851505E-02 1.950272E-01 -2.867164E-01 0.0 262 G 0.0 0.0 2.056461E-01 1.993748E-01 -2.598812E-01 0.0 263 G 0.0 0.0 3.258950E-01 2.007173E-01 -2.194227E-01 0.0 264 G 0.0 0.0 4.230036E-01 1.984187E-01 -1.676422E-01 0.0 265 G 0.0 0.0 4.920239E-01 1.919985E-01 -1.074617E-01 0.0 266 G 0.0 0.0 5.295895E-01 1.811619E-01 -4.226199E-02 0.0 267 G 0.0 0.0 5.340982E-01 1.658196E-01 2.430447E-02 0.0 268 G 0.0 0.0 5.057980E-01 1.460977E-01 8.851557E-02 0.0 269 G 0.0 0.0 4.467703E-01 1.223347E-01 1.467857E-01 0.0 270 G 0.0 0.0 3.608114E-01 9.506755E-02 1.958639E-01 0.0 271 G 0.0 0.0 2.532200E-01 6.500667E-02 2.330139E-01 0.0 272 G 0.0 0.0 1.305004E-01 3.300182E-02 2.561654E-01 0.0 273 G 0.0 0.0 0.0 0.0 2.640286E-01 0.0 316 G 0.0 0.0 -5.120698E-01 1.634112E-01 0.0 0.0 317 G 0.0 0.0 -4.934279E-01 1.640139E-01 -7.430793E-02 0.0 318 G 0.0 0.0 -4.385600E-01 1.657574E-01 -1.443992E-01 0.0 319 G 0.0 0.0 -3.505810E-01 1.684508E-01 -2.062909E-01 0.0 320 G 0.0 0.0 -2.344904E-01 1.717884E-01 -2.564544E-01 0.0 321 G 0.0 0.0 -9.689493E-02 1.753677E-01 -2.920115E-01 0.0 322 G 0.0 0.0 5.435773E-02 1.787126E-01 -3.108936E-01 0.0 323 G 0.0 0.0 2.106139E-01 1.813020E-01 -3.119569E-01 0.0 324 G 0.0 0.0 3.628939E-01 1.825999E-01 -2.950462E-01 0.0 325 G 0.0 0.0 5.023909E-01 1.820882E-01 -2.610044E-01 0.0 326 G 0.0 0.0 6.209592E-01 1.792975E-01 -2.116256E-01 0.0 327 G 0.0 0.0 7.115679E-01 1.738365E-01 -1.495575E-01 0.0 328 G 0.0 0.0 7.686917E-01 1.654169E-01 -7.815501E-02 0.0 329 G 0.0 0.0 7.886197E-01 1.538726E-01 -1.295412E-03 0.0 330 G 0.0 0.0 7.696641E-01 1.391735E-01 7.683538E-02 0.0 331 G 0.0 0.0 7.122566E-01 1.214305E-01 1.519738E-01 0.0 332 G 0.0 0.0 6.189288E-01 1.008943E-01 2.200140E-01 0.0 333 G 0.0 0.0 4.941760E-01 7.794566E-02 2.772343E-01 0.0 334 G 0.0 0.0 3.442129E-01 5.307919E-02 3.205026E-01 0.0 335 G 0.0 0.0 1.766343E-01 2.688077E-02 3.474495E-01 0.0 336 G 0.0 0.0 0.0 0.0 3.565989E-01 0.0 379 G 0.0 0.0 -3.169321E-01 8.402348E-02 0.0 0.0 380 G 0.0 0.0 -2.977132E-01 8.421680E-02 -7.660875E-02 0.0 381 G 0.0 0.0 -2.411831E-01 8.477053E-02 -1.487271E-01 0.0 382 G 0.0 0.0 -1.506587E-01 8.560769E-02 -2.121143E-01 0.0 383 G 0.0 0.0 -3.146302E-02 8.660495E-02 -2.630153E-01 0.0 384 G 0.0 0.0 1.093713E-01 8.760002E-02 -2.983698E-01 0.0 385 G 0.0 0.0 2.634930E-01 8.840118E-02 -3.159827E-01 0.0 386 G 0.0 0.0 4.216975E-01 8.879884E-02 -3.146472E-01 0.0 387 G 0.0 0.0 5.744396E-01 8.857805E-02 -2.942126E-01 0.0 388 G 0.0 0.0 7.123661E-01 8.753160E-02 -2.555944E-01 0.0 389 G 0.0 0.0 8.268377E-01 8.547280E-02 -2.007245E-01 0.0 390 G 0.0 0.0 9.104139E-01 8.224735E-02 -1.324462E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 9.572694E-01 7.774348E-02 -5.435796E-02 0.0 392 G 0.0 0.0 9.635249E-01 7.189991E-02 2.938425E-02 0.0 393 G 0.0 0.0 9.274687E-01 6.471119E-02 1.142958E-01 0.0 394 G 0.0 0.0 8.496597E-01 5.622998E-02 1.958100E-01 0.0 395 G 0.0 0.0 7.329057E-01 4.656632E-02 2.695302E-01 0.0 396 G 0.0 0.0 5.821171E-01 3.588367E-02 3.314716E-01 0.0 397 G 0.0 0.0 4.040452E-01 2.439226E-02 3.782811E-01 0.0 398 G 0.0 0.0 2.069189E-01 1.233976E-02 4.074221E-01 0.0 399 G 0.0 0.0 0.0 0.0 4.173147E-01 0.0 442 G 0.0 0.0 -2.849572E-01 -4.343882E-02 0.0 0.0 443 G 0.0 0.0 -2.656664E-01 -4.353178E-02 -7.689546E-02 0.0 444 G 0.0 0.0 -2.089305E-01 -4.379753E-02 -1.492612E-01 0.0 445 G 0.0 0.0 -1.180955E-01 -4.419754E-02 -2.128195E-01 0.0 446 G 0.0 0.0 1.469372E-03 -4.467006E-02 -2.637827E-01 0.0 447 G 0.0 0.0 1.426702E-01 -4.513387E-02 -2.990646E-01 0.0 448 G 0.0 0.0 2.970836E-01 -4.549306E-02 -3.164521E-01 0.0 449 G 0.0 0.0 4.554260E-01 -4.564273E-02 -3.147295E-01 0.0 450 G 0.0 0.0 6.080713E-01 -4.547542E-02 -2.937469E-01 0.0 451 G 0.0 0.0 7.455882E-01 -4.488751E-02 -2.544305E-01 0.0 452 G 0.0 0.0 8.592675E-01 -4.378579E-02 -1.987325E-01 0.0 453 G 0.0 0.0 9.416101E-01 -4.209329E-02 -1.295247E-01 0.0 454 G 0.0 0.0 9.867492E-01 -3.975440E-02 -5.044097E-02 0.0 455 G 0.0 0.0 9.907823E-01 -3.673889E-02 3.432233E-02 0.0 456 G 0.0 0.0 9.519957E-01 -3.304455E-02 1.202371E-01 0.0 457 G 0.0 0.0 8.709685E-01 -2.869834E-02 2.026928E-01 0.0 458 G 0.0 0.0 7.505499E-01 -2.375600E-02 2.772505E-01 0.0 459 G 0.0 0.0 5.957121E-01 -1.830013E-02 3.398872E-01 0.0 460 G 0.0 0.0 4.132859E-01 -1.243677E-02 3.872178E-01 0.0 461 G 0.0 0.0 2.115934E-01 -6.290736E-03 4.166817E-01 0.0 462 G 0.0 0.0 0.0 0.0 4.266835E-01 0.0 505 G 0.0 0.0 -4.344109E-01 -1.461679E-01 0.0 0.0 506 G 0.0 0.0 -4.155064E-01 -1.466108E-01 -7.535486E-02 0.0 507 G 0.0 0.0 -3.598802E-01 -1.478875E-01 -1.463761E-01 0.0 508 G 0.0 0.0 -2.707337E-01 -1.498447E-01 -2.089704E-01 0.0 509 G 0.0 0.0 -1.532043E-01 -1.522368E-01 -2.595126E-01 0.0 510 G 0.0 0.0 -1.408118E-02 -1.547408E-01 -2.950462E-01 0.0 511 G 0.0 0.0 1.385727E-01 -1.569747E-01 -3.134486E-01 0.0 512 G 0.0 0.0 2.958679E-01 -1.585203E-01 -3.135487E-01 0.0 513 G 0.0 0.0 4.485826E-01 -1.589483E-01 -2.951930E-01 0.0 514 G 0.0 0.0 5.876757E-01 -1.578441E-01 -2.592546E-01 0.0 515 G 0.0 0.0 7.047899E-01 -1.548331E-01 -2.075863E-01 0.0 516 G 0.0 0.0 7.927177E-01 -1.496039E-01 -1.429187E-01 0.0 517 G 0.0 0.0 8.458043E-01 -1.419286E-01 -6.871017E-02 0.0 518 G 0.0 0.0 8.602650E-01 -1.316786E-01 1.104358E-02 0.0 519 G 0.0 0.0 8.343996E-01 -1.188354E-01 9.202961E-02 0.0 520 G 0.0 0.0 7.686917E-01 -1.034944E-01 1.698555E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 6.657881E-01 -8.586435E-02 2.402917E-01 0.0 522 G 0.0 0.0 5.303583E-01 -6.625918E-02 2.995045E-01 0.0 523 G 0.0 0.0 3.688432E-01 -4.508492E-02 3.442680E-01 0.0 524 G 0.0 0.0 1.891051E-01 -2.282140E-02 3.721415E-01 0.0 525 G 0.0 0.0 0.0 0.0 3.816048E-01 0.0 568 G 0.0 0.0 -6.790490E-01 -1.634243E-01 0.0 0.0 569 G 0.0 0.0 -6.612080E-01 -1.644313E-01 -7.111418E-02 0.0 570 G 0.0 0.0 -6.086655E-01 -1.673626E-01 -1.383212E-01 0.0 571 G 0.0 0.0 -5.243078E-01 -1.719543E-01 -1.979297E-01 0.0 572 G 0.0 0.0 -4.127683E-01 -1.777836E-01 -2.466679E-01 0.0 573 G 0.0 0.0 -2.801716E-01 -1.842927E-01 -2.818644E-01 0.0 574 G 0.0 0.0 -1.337948E-01 -1.908220E-01 -3.015953E-01 0.0 575 G 0.0 0.0 1.833391E-02 -1.966474E-01 -3.047911E-01 0.0 576 G 0.0 0.0 1.678784E-01 -2.010234E-01 -2.912947E-01 0.0 577 G 0.0 0.0 3.066554E-01 -2.032263E-01 -2.618709E-01 0.0 578 G 0.0 0.0 4.270854E-01 -2.025975E-01 -2.181634E-01 0.0 579 G 0.0 0.0 5.226118E-01 -1.985830E-01 -1.626041E-01 0.0 580 G 0.0 0.0 5.880620E-01 -1.907678E-01 -9.827862E-02 0.0 581 G 0.0 0.0 6.199328E-01 -1.789028E-01 -2.875563E-02 0.0 582 G 0.0 0.0 6.165833E-01 -1.629225E-01 4.211045E-02 0.0 583 G 0.0 0.0 5.783248E-01 -1.429534E-01 1.103925E-01 0.0 584 G 0.0 0.0 5.074030E-01 -1.193113E-01 1.723077E-01 0.0 585 G 0.0 0.0 4.078725E-01 -9.248912E-02 2.244269E-01 0.0 586 G 0.0 0.0 2.853729E-01 -6.313435E-02 2.638637E-01 0.0 587 G 0.0 0.0 1.468152E-01 -3.201857E-02 2.884344E-01 0.0 588 G 0.0 0.0 0.0 0.0 2.967786E-01 0.0 631 G 0.0 0.0 -8.702528E-01 -7.627862E-02 0.0 0.0 632 G 0.0 0.0 -8.545104E-01 -7.808807E-02 -6.274831E-02 0.0 633 G 0.0 0.0 -8.081018E-01 -8.339225E-02 -1.222331E-01 0.0 634 G 0.0 0.0 -7.334384E-01 -9.182577E-02 -1.753699E-01 0.0 635 G 0.0 0.0 -6.343916E-01 -1.028026E-01 -2.194227E-01 0.0 636 G 0.0 0.0 -5.160810E-01 -1.155491E-01 -2.521535E-01 0.0 637 G 0.0 0.0 -3.845930E-01 -1.291481E-01 -2.719451E-01 0.0 638 G 0.0 0.0 -2.466479E-01 -1.425906E-01 -2.778892E-01 0.0 639 G 0.0 0.0 -1.092314E-01 -1.548331E-01 -2.698354E-01 0.0 640 G 0.0 0.0 2.078713E-02 -1.648574E-01 -2.483985E-01 0.0 641 G 0.0 0.0 1.370301E-01 -1.717287E-01 -2.149234E-01 0.0 642 G 0.0 0.0 2.339590E-01 -1.746498E-01 -1.714099E-01 0.0 643 G 0.0 0.0 3.071749E-01 -1.730075E-01 -1.204011E-01 0.0 644 G 0.0 0.0 3.536558E-01 -1.664095E-01 -6.484207E-02 0.0 645 G 0.0 0.0 3.719174E-01 -1.547090E-01 -7.916442E-03 0.0 646 G 0.0 0.0 3.620881E-01 -1.380158E-01 4.713031E-02 0.0 647 G 0.0 0.0 3.258950E-01 -1.166938E-01 9.717084E-02 0.0 648 G 0.0 0.0 2.665617E-01 -9.134416E-02 1.393693E-01 0.0 649 G 0.0 0.0 1.886216E-01 -6.277564E-02 1.713383E-01 0.0 650 G 0.0 0.0 9.766058E-02 -3.196365E-02 1.912714E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 1.980432E-01 0.0 694 G 0.0 0.0 -8.699807E-01 8.272828E-02 0.0 0.0 695 G 0.0 0.0 -8.576487E-01 8.000787E-02 -4.915369E-02 0.0 696 G 0.0 0.0 -8.212619E-01 7.199964E-02 -9.587871E-02 0.0 697 G 0.0 0.0 -7.626151E-01 5.915415E-02 -1.378788E-01 0.0 698 G 0.0 0.0 -6.845903E-01 4.219455E-02 -1.731153E-01 0.0 699 G 0.0 0.0 -5.910004E-01 2.207658E-02 -1.999181E-01 0.0 700 G 0.0 0.0 -4.863808E-01 -6.443768E-05 -2.170759E-01 0.0 701 G 0.0 0.0 -3.757433E-01 -2.297640E-02 -2.239020E-01 0.0 702 G 0.0 0.0 -2.643036E-01 -4.535984E-02 -2.202703E-01 0.0 703 G 0.0 0.0 -1.571984E-01 -6.593993E-02 -2.066208E-01 0.0 704 G 0.0 0.0 -5.920846E-02 -8.353714E-02 -1.839337E-01 0.0 705 G 0.0 0.0 2.549912E-02 -9.713273E-02 -1.536741E-01 0.0 706 G 0.0 0.0 9.359326E-02 -1.059253E-01 -1.177094E-01 0.0 707 G 0.0 0.0 1.427547E-01 -1.093753E-01 -7.820532E-02 0.0 708 G 0.0 0.0 1.717951E-01 -1.072355E-01 -3.750463E-02 0.0 709 G 0.0 0.0 1.807136E-01 -9.956436E-02 2.002886E-03 0.0 710 G 0.0 0.0 1.706868E-01 -8.672398E-02 3.801354E-02 0.0 711 G 0.0 0.0 1.439933E-01 -6.935982E-02 6.843778E-02 0.0 712 G 0.0 0.0 1.038775E-01 -4.836575E-02 9.151625E-02 0.0 713 G 0.0 0.0 5.435912E-02 -2.483497E-02 1.059174E-01 0.0 714 G 0.0 0.0 0.0 0.0 1.108118E-01 0.0 757 G 0.0 0.0 -6.194803E-01 2.446695E-01 0.0 0.0 758 G 0.0 0.0 -6.118633E-01 2.411653E-01 -3.035975E-02 0.0 759 G 0.0 0.0 -5.893747E-01 2.308263E-01 -5.927518E-02 0.0 760 G 0.0 0.0 -5.530820E-01 2.141637E-01 -8.538034E-02 0.0 761 G 0.0 0.0 -5.046995E-01 1.919985E-01 -1.074617E-01 0.0 762 G 0.0 0.0 -4.464960E-01 1.654169E-01 -1.245239E-01 0.0 763 G 0.0 0.0 -3.811716E-01 1.357106E-01 -1.358431E-01 0.0 764 G 0.0 0.0 -3.117114E-01 1.043073E-01 -1.410059E-01 0.0 765 G 0.0 0.0 -2.412251E-01 7.269240E-02 -1.399307E-01 0.0 766 G 0.0 0.0 -1.727788E-01 4.232891E-02 -1.328713E-01 0.0 767 G 0.0 0.0 -1.092314E-01 1.457814E-02 -1.204011E-01 0.0 768 G 0.0 0.0 -5.308194E-02 -9.373473E-03 -1.033807E-01 0.0 769 G 0.0 0.0 -6.337782E-03 -2.857785E-02 -8.290914E-02 0.0 770 G 0.0 0.0 2.958948E-02 -4.237530E-02 -6.026232E-02 0.0 771 G 0.0 0.0 5.395487E-02 -5.042852E-02 -3.682146E-02 0.0 772 G 0.0 0.0 6.671349E-02 -5.273864E-02 -1.399601E-02 0.0 773 G 0.0 0.0 6.851505E-02 -4.964234E-02 6.854926E-03 0.0 774 G 0.0 0.0 6.065957E-02 -4.179045E-02 2.449828E-02 0.0 775 G 0.0 0.0 4.501688E-02 -3.010900E-02 3.789568E-02 0.0 776 G 0.0 0.0 2.391451E-02 -1.574500E-02 4.626122E-02 0.0 777 G 0.0 0.0 0.0 0.0 4.910517E-02 0.0 820 G 0.0 0.0 -1.706963E-01 3.368591E-01 0.0 0.0 821 G 0.0 0.0 -1.687210E-01 3.329381E-01 -7.873038E-03 0.0 822 G 0.0 0.0 -1.628874E-01 3.213586E-01 -1.537835E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.811562E+03 (CYCLIC FREQUENCY = 4.533995E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 -1.534673E-01 3.026611E-01 -2.216811E-02 0.0 824 G 0.0 0.0 -1.408972E-01 2.777137E-01 -2.793322E-02 0.0 825 G 0.0 0.0 -1.257549E-01 2.476654E-01 -3.241995E-02 0.0 826 G 0.0 0.0 -1.087282E-01 2.138840E-01 -3.544359E-02 0.0 827 G 0.0 0.0 -9.057786E-02 1.778821E-01 -3.689826E-02 0.0 828 G 0.0 0.0 -7.209643E-02 1.412357E-01 -3.676236E-02 0.0 829 G 0.0 0.0 -5.406607E-02 1.055002E-01 -3.509944E-02 0.0 830 G 0.0 0.0 -3.721666E-02 7.212646E-02 -3.205432E-02 0.0 831 G 0.0 0.0 -2.218712E-02 4.238460E-02 -2.784476E-02 0.0 832 G 0.0 0.0 -9.491874E-03 1.729701E-02 -2.274912E-02 0.0 833 G 0.0 0.0 5.055729E-04 -2.414256E-03 -1.709071E-02 0.0 834 G 0.0 0.0 7.610672E-03 -1.636328E-02 -1.121965E-02 0.0 835 G 0.0 0.0 1.180637E-02 -2.451727E-02 -5.493308E-03 0.0 836 G 0.0 0.0 1.325171E-02 -2.719381E-02 -2.563375E-04 0.0 837 G 0.0 0.0 1.227069E-02 -2.503861E-02 4.178542E-03 0.0 838 G 0.0 0.0 9.331815E-03 -1.898488E-02 7.547966E-03 0.0 839 G 0.0 0.0 5.019663E-03 -1.019680E-02 9.652591E-03 0.0 840 G 0.0 0.0 0.0 0.0 1.036820E-02 0.0 841 G 0.0 0.0 0.0 3.434574E-01 0.0 0.0 842 G 0.0 0.0 0.0 3.395072E-01 0.0 0.0 843 G 0.0 0.0 0.0 3.278406E-01 0.0 0.0 844 G 0.0 0.0 0.0 3.090001E-01 0.0 0.0 845 G 0.0 0.0 0.0 2.838571E-01 0.0 0.0 846 G 0.0 0.0 0.0 2.535649E-01 0.0 0.0 847 G 0.0 0.0 0.0 2.194964E-01 0.0 0.0 848 G 0.0 0.0 0.0 1.831699E-01 0.0 0.0 849 G 0.0 0.0 0.0 1.461679E-01 0.0 0.0 850 G 0.0 0.0 0.0 1.100517E-01 0.0 0.0 851 G 0.0 0.0 0.0 7.627862E-02 0.0 0.0 852 G 0.0 0.0 0.0 4.612441E-02 0.0 0.0 853 G 0.0 0.0 0.0 2.061661E-02 0.0 0.0 854 G 0.0 0.0 0.0 4.816157E-04 0.0 0.0 855 G 0.0 0.0 0.0 -1.389122E-02 0.0 0.0 856 G 0.0 0.0 0.0 -2.246664E-02 0.0 0.0 857 G 0.0 0.0 0.0 -2.556080E-02 0.0 0.0 858 G 0.0 0.0 0.0 -2.381886E-02 0.0 0.0 859 G 0.0 0.0 0.0 -1.817434E-02 0.0 0.0 860 G 0.0 0.0 0.0 -9.792359E-03 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -3.132744E-01 0.0 0.0 2 G 0.0 0.0 0.0 -3.046184E-01 0.0 0.0 3 G 0.0 0.0 0.0 -2.791292E-01 0.0 0.0 4 G 0.0 0.0 0.0 -2.382156E-01 0.0 0.0 5 G 0.0 0.0 0.0 -1.841379E-01 0.0 0.0 6 G 0.0 0.0 0.0 -1.198847E-01 0.0 0.0 7 G 0.0 0.0 0.0 -4.900643E-02 0.0 0.0 8 G 0.0 0.0 0.0 2.457946E-02 0.0 0.0 9 G 0.0 0.0 0.0 9.680727E-02 0.0 0.0 10 G 0.0 0.0 0.0 1.636854E-01 0.0 0.0 11 G 0.0 0.0 0.0 2.215184E-01 0.0 0.0 12 G 0.0 0.0 0.0 2.671102E-01 0.0 0.0 13 G 0.0 0.0 0.0 2.979416E-01 0.0 0.0 14 G 0.0 0.0 0.0 3.123085E-01 0.0 0.0 15 G 0.0 0.0 0.0 3.094172E-01 0.0 0.0 16 G 0.0 0.0 0.0 2.894274E-01 0.0 0.0 17 G 0.0 0.0 0.0 2.534441E-01 0.0 0.0 18 G 0.0 0.0 0.0 2.034553E-01 0.0 0.0 19 G 0.0 0.0 0.0 1.422233E-01 0.0 0.0 20 G 0.0 0.0 0.0 7.313200E-02 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 -4.539906E-01 -2.791293E-01 0.0 0.0 65 G 0.0 0.0 -4.414468E-01 -2.714170E-01 -4.994155E-02 0.0 66 G 0.0 0.0 -4.045085E-01 -2.487061E-01 -9.712297E-02 0.0 67 G 0.0 0.0 -3.452171E-01 -2.122517E-01 -1.389372E-01 0.0 68 G 0.0 0.0 -2.668491E-01 -1.640682E-01 -1.730739E-01 0.0 69 G 0.0 0.0 -1.737349E-01 -1.068183E-01 -1.976470E-01 0.0 70 G 0.0 0.0 -7.101991E-02 -4.366565E-02 -2.112981E-01 0.0 71 G 0.0 0.0 3.561966E-02 2.190002E-02 -2.132723E-01 0.0 72 G 0.0 0.0 1.402909E-01 8.625560E-02 -2.034611E-01 0.0 73 G 0.0 0.0 2.372095E-01 1.458447E-01 -1.824066E-01 0.0 74 G 0.0 0.0 3.210197E-01 1.973742E-01 -1.512723E-01 0.0 75 G 0.0 0.0 3.870904E-01 2.379966E-01 -1.117789E-01 0.0 76 G 0.0 0.0 4.317705E-01 2.654674E-01 -6.610855E-02 0.0 77 G 0.0 0.0 4.525909E-01 2.782687E-01 -1.678492E-02 0.0 78 G 0.0 0.0 4.484011E-01 2.756928E-01 3.346626E-02 0.0 79 G 0.0 0.0 4.194325E-01 2.578820E-01 8.186805E-02 0.0 80 G 0.0 0.0 3.672861E-01 2.258205E-01 1.257457E-01 0.0 81 G 0.0 0.0 2.948434E-01 1.812801E-01 1.626746E-01 0.0 82 G 0.0 0.0 2.061076E-01 1.267222E-01 1.906145E-01 0.0 83 G 0.0 0.0 1.059821E-01 6.516156E-02 2.080209E-01 0.0 84 G 0.0 0.0 0.0 0.0 2.139317E-01 0.0 127 G 0.0 0.0 -8.090169E-01 -1.841380E-01 0.0 0.0 128 G 0.0 0.0 -7.866637E-01 -1.790503E-01 -8.899628E-02 0.0 129 G 0.0 0.0 -7.208393E-01 -1.640683E-01 -1.730741E-01 0.0 130 G 0.0 0.0 -6.151813E-01 -1.400199E-01 -2.475882E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -4.755282E-01 -1.082339E-01 -3.084206E-01 0.0 132 G 0.0 0.0 -3.095974E-01 -7.046665E-02 -3.522096E-01 0.0 133 G 0.0 0.0 -1.265581E-01 -2.880548E-02 -3.765354E-01 0.0 134 G 0.0 0.0 6.347483E-02 1.444741E-02 -3.800538E-01 0.0 135 G 0.0 0.0 2.500002E-01 5.690186E-02 -3.625703E-01 0.0 136 G 0.0 0.0 4.227104E-01 9.621188E-02 -3.250512E-01 0.0 137 G 0.0 0.0 5.720617E-01 1.302053E-01 -2.695693E-01 0.0 138 G 0.0 0.0 6.898004E-01 1.570036E-01 -1.991911E-01 0.0 139 G 0.0 0.0 7.694208E-01 1.751259E-01 -1.178059E-01 0.0 140 G 0.0 0.0 8.065228E-01 1.835705E-01 -2.991080E-02 0.0 141 G 0.0 0.0 7.990564E-01 1.818710E-01 5.963719E-02 0.0 142 G 0.0 0.0 7.474341E-01 1.701214E-01 1.458897E-01 0.0 143 G 0.0 0.0 6.545085E-01 1.489711E-01 2.240806E-01 0.0 144 G 0.0 0.0 5.254145E-01 1.195884E-01 2.898888E-01 0.0 145 G 0.0 0.0 3.672860E-01 8.359702E-02 3.396775E-01 0.0 146 G 0.0 0.0 1.888612E-01 4.298619E-02 3.706955E-01 0.0 147 G 0.0 0.0 0.0 0.0 3.812287E-01 0.0 190 G 0.0 0.0 -9.876884E-01 -4.900643E-02 0.0 0.0 191 G 0.0 0.0 -9.603983E-01 -4.765258E-02 -1.086513E-01 0.0 192 G 0.0 0.0 -8.800366E-01 -4.366535E-02 -2.112977E-01 0.0 193 G 0.0 0.0 -7.510440E-01 -3.726498E-02 -3.022679E-01 0.0 194 G 0.0 0.0 -5.805486E-01 -2.880533E-02 -3.765351E-01 0.0 195 G 0.0 0.0 -3.779720E-01 -1.875394E-02 -4.299951E-01 0.0 196 G 0.0 0.0 -1.545085E-01 -7.666287E-03 -4.596933E-01 0.0 197 G 0.0 0.0 7.749323E-02 3.845133E-03 -4.639887E-01 0.0 198 G 0.0 0.0 3.052126E-01 1.514415E-02 -4.426437E-01 0.0 199 G 0.0 0.0 5.160658E-01 2.560626E-02 -3.968384E-01 0.0 200 G 0.0 0.0 6.984011E-01 3.465313E-02 -3.291037E-01 0.0 201 G 0.0 0.0 8.421426E-01 4.178518E-02 -2.431828E-01 0.0 202 G 0.0 0.0 9.393472E-01 4.660822E-02 -1.438236E-01 0.0 203 G 0.0 0.0 9.846434E-01 4.885574E-02 -3.651665E-02 0.0 204 G 0.0 0.0 9.755279E-01 4.840349E-02 7.280821E-02 0.0 205 G 0.0 0.0 9.125049E-01 4.527638E-02 1.781096E-01 0.0 206 G 0.0 0.0 7.990566E-01 3.964726E-02 2.735686E-01 0.0 207 G 0.0 0.0 6.414523E-01 3.182727E-02 3.539105E-01 0.0 208 G 0.0 0.0 4.484012E-01 2.224856E-02 4.146951E-01 0.0 209 G 0.0 0.0 2.305713E-01 1.144040E-02 4.525637E-01 0.0 210 G 0.0 0.0 0.0 0.0 4.654234E-01 0.0 253 G 0.0 0.0 -9.510565E-01 9.680697E-02 0.0 0.0 254 G 0.0 0.0 -9.247788E-01 9.413227E-02 -1.046213E-01 0.0 255 G 0.0 0.0 -8.473975E-01 8.625571E-02 -2.034610E-01 0.0 256 G 0.0 0.0 -7.231891E-01 7.361265E-02 -2.910575E-01 0.0 257 G 0.0 0.0 -5.590170E-01 5.690177E-02 -3.625702E-01 0.0 258 G 0.0 0.0 -3.639536E-01 3.704648E-02 -4.140472E-01 0.0 259 G 0.0 0.0 -1.487780E-01 1.514399E-02 -4.426438E-01 0.0 260 G 0.0 0.0 7.461906E-02 -7.595419E-03 -4.467799E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 2.938927E-01 -2.991515E-02 -4.262269E-01 0.0 262 G 0.0 0.0 4.969257E-01 -5.058173E-02 -3.821203E-01 0.0 263 G 0.0 0.0 6.724985E-01 -6.845309E-02 -3.168977E-01 0.0 264 G 0.0 0.0 8.109089E-01 -8.254169E-02 -2.341635E-01 0.0 265 G 0.0 0.0 9.045082E-01 -9.206910E-02 -1.384894E-01 0.0 266 G 0.0 0.0 9.481244E-01 -9.650883E-02 -3.516241E-02 0.0 267 G 0.0 0.0 9.393473E-01 -9.561538E-02 7.010765E-02 0.0 268 G 0.0 0.0 8.786616E-01 -8.943813E-02 1.715037E-01 0.0 269 G 0.0 0.0 7.694209E-01 -7.831855E-02 2.634225E-01 0.0 270 G 0.0 0.0 6.176619E-01 -6.287113E-02 3.407846E-01 0.0 271 G 0.0 0.0 4.317707E-01 -4.394946E-02 3.993148E-01 0.0 272 G 0.0 0.0 2.220197E-01 -2.259916E-02 4.357788E-01 0.0 273 G 0.0 0.0 0.0 0.0 4.481615E-01 0.0 316 G 0.0 0.0 -7.071068E-01 2.215183E-01 0.0 0.0 317 G 0.0 0.0 -6.875693E-01 2.153977E-01 -7.778561E-02 0.0 318 G 0.0 0.0 -6.300367E-01 1.973743E-01 -1.512725E-01 0.0 319 G 0.0 0.0 -5.376881E-01 1.684439E-01 -2.164001E-01 0.0 320 G 0.0 0.0 -4.156268E-01 1.302052E-01 -2.695695E-01 0.0 321 G 0.0 0.0 -2.705980E-01 8.477127E-02 -3.078425E-01 0.0 322 G 0.0 0.0 -1.106157E-01 3.465296E-02 -3.291041E-01 0.0 323 G 0.0 0.0 5.547912E-02 -1.738018E-02 -3.321791E-01 0.0 324 G 0.0 0.0 2.185081E-01 -6.845293E-02 -3.168978E-01 0.0 325 G 0.0 0.0 3.694623E-01 -1.157430E-01 -2.841048E-01 0.0 326 G 0.0 0.0 4.999999E-01 -1.566371E-01 -2.356122E-01 0.0 327 G 0.0 0.0 6.029074E-01 -1.888754E-01 -1.740997E-01 0.0 328 G 0.0 0.0 6.724983E-01 -2.106764E-01 -1.029663E-01 0.0 329 G 0.0 0.0 7.049267E-01 -2.208354E-01 -2.614300E-02 0.0 330 G 0.0 0.0 6.984009E-01 -2.187910E-01 5.212483E-02 0.0 331 G 0.0 0.0 6.532813E-01 -2.046562E-01 1.275123E-01 0.0 332 G 0.0 0.0 5.720614E-01 -1.792121E-01 1.958535E-01 0.0 333 G 0.0 0.0 4.592291E-01 -1.438647E-01 2.533719E-01 0.0 334 G 0.0 0.0 3.210198E-01 -1.005671E-01 2.968890E-01 0.0 335 G 0.0 0.0 1.650708E-01 -5.171232E-02 3.239998E-01 0.0 336 G 0.0 0.0 0.0 0.0 3.332062E-01 0.0 379 G 0.0 0.0 -3.090170E-01 2.979415E-01 0.0 0.0 380 G 0.0 0.0 -3.004788E-01 2.897094E-01 -3.399359E-02 0.0 381 G 0.0 0.0 -2.753361E-01 2.654678E-01 -6.610855E-02 0.0 382 G 0.0 0.0 -2.349783E-01 2.265565E-01 -9.457039E-02 0.0 383 G 0.0 0.0 -1.816355E-01 1.751256E-01 -1.178062E-01 0.0 384 G 0.0 0.0 -1.182556E-01 1.140173E-01 -1.345320E-01 0.0 385 G 0.0 0.0 -4.834080E-02 4.660837E-02 -1.438237E-01 0.0 386 G 0.0 0.0 2.424529E-02 -2.337618E-02 -1.451676E-01 0.0 387 G 0.0 0.0 9.549158E-02 -9.206896E-02 -1.384894E-01 0.0 388 G 0.0 0.0 1.614610E-01 -1.556739E-01 -1.241583E-01 0.0 389 G 0.0 0.0 2.185079E-01 -2.106763E-01 -1.029662E-01 0.0 390 G 0.0 0.0 2.634801E-01 -2.540367E-01 -7.608418E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 2.938924E-01 -2.833591E-01 -4.499786E-02 0.0 392 G 0.0 0.0 3.080641E-01 -2.970230E-01 -1.142497E-02 0.0 393 G 0.0 0.0 3.052122E-01 -2.942733E-01 2.277930E-02 0.0 394 G 0.0 0.0 2.854943E-01 -2.752621E-01 5.572488E-02 0.0 395 G 0.0 0.0 2.499999E-01 -2.410397E-01 8.559115E-02 0.0 396 G 0.0 0.0 2.006904E-01 -1.934975E-01 1.107276E-01 0.0 397 G 0.0 0.0 1.402907E-01 -1.352627E-01 1.297451E-01 0.0 398 G 0.0 0.0 7.213856E-02 -6.955313E-02 1.415931E-01 0.0 399 G 0.0 0.0 0.0 0.0 1.456164E-01 0.0 442 G 0.0 0.0 1.564343E-01 3.094173E-01 0.0 0.0 443 G 0.0 0.0 1.521121E-01 3.008682E-01 1.720839E-02 0.0 444 G 0.0 0.0 1.393842E-01 2.756929E-01 3.346626E-02 0.0 445 G 0.0 0.0 1.189537E-01 2.352829E-01 4.787468E-02 0.0 446 G 0.0 0.0 9.194982E-02 1.818709E-01 5.963738E-02 0.0 447 G 0.0 0.0 5.986483E-02 1.184088E-01 6.810445E-02 0.0 448 G 0.0 0.0 2.447175E-02 4.840345E-02 7.280812E-02 0.0 449 G 0.0 0.0 -1.227366E-02 -2.427667E-02 7.348850E-02 0.0 450 G 0.0 0.0 -4.834085E-02 -9.561523E-02 7.010795E-02 0.0 451 G 0.0 0.0 -8.173677E-02 -1.616701E-01 6.285310E-02 0.0 452 G 0.0 0.0 -1.106159E-01 -2.187911E-01 5.212496E-02 0.0 453 G 0.0 0.0 -1.333823E-01 -2.638216E-01 3.851645E-02 0.0 454 G 0.0 0.0 -1.487781E-01 -2.942733E-01 2.277946E-02 0.0 455 G 0.0 0.0 -1.559523E-01 -3.084634E-01 5.783676E-03 0.0 456 G 0.0 0.0 -1.545085E-01 -3.056078E-01 -1.153172E-02 0.0 457 G 0.0 0.0 -1.445266E-01 -2.858643E-01 -2.820992E-02 0.0 458 G 0.0 0.0 -1.265581E-01 -2.503238E-01 -4.332917E-02 0.0 459 G 0.0 0.0 -1.015960E-01 -2.009504E-01 -5.605397E-02 0.0 460 G 0.0 0.0 -7.101966E-02 -1.404724E-01 -6.568120E-02 0.0 461 G 0.0 0.0 -3.651886E-02 -7.223198E-02 -7.167892E-02 0.0 462 G 0.0 0.0 0.0 0.0 -7.371573E-02 0.0 505 G 0.0 0.0 5.877852E-01 2.534442E-01 0.0 0.0 506 G 0.0 0.0 5.715446E-01 2.464415E-01 6.465939E-02 0.0 507 G 0.0 0.0 5.237204E-01 2.258204E-01 1.257458E-01 0.0 508 G 0.0 0.0 4.469554E-01 1.927204E-01 1.798836E-01 0.0 509 G 0.0 0.0 3.454914E-01 1.489707E-01 2.240808E-01 0.0 510 G 0.0 0.0 2.249356E-01 9.698882E-02 2.558952E-01 0.0 511 G 0.0 0.0 9.194979E-02 3.964730E-02 2.735689E-01 0.0 512 G 0.0 0.0 -4.611714E-02 -1.988516E-02 2.761250E-01 0.0 513 G 0.0 0.0 -1.816356E-01 -7.831873E-02 2.634225E-01 0.0 514 G 0.0 0.0 -3.071169E-01 -1.324243E-01 2.361634E-01 0.0 515 G 0.0 0.0 -4.156268E-01 -1.792121E-01 1.958537E-01 0.0 516 G 0.0 0.0 -5.011692E-01 -2.160967E-01 1.447211E-01 0.0 517 G 0.0 0.0 -5.590169E-01 -2.410397E-01 8.559113E-02 0.0 518 G 0.0 0.0 -5.859731E-01 -2.526628E-01 2.173137E-02 0.0 519 G 0.0 0.0 -5.805484E-01 -2.503237E-01 -4.332917E-02 0.0 520 G 0.0 0.0 -5.430424E-01 -2.341517E-01 -1.059953E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -4.755280E-01 -2.050405E-01 -1.628042E-01 0.0 522 G 0.0 0.0 -3.817357E-01 -1.645987E-01 -2.106164E-01 0.0 523 G 0.0 0.0 -2.668487E-01 -1.150611E-01 -2.467899E-01 0.0 524 G 0.0 0.0 -1.372156E-01 -5.916532E-02 -2.693258E-01 0.0 525 G 0.0 0.0 0.0 0.0 -2.769788E-01 0.0 568 G 0.0 0.0 8.910065E-01 1.422236E-01 0.0 0.0 569 G 0.0 0.0 8.663879E-01 1.382939E-01 9.801535E-02 0.0 570 G 0.0 0.0 7.938926E-01 1.267221E-01 1.906145E-01 0.0 571 G 0.0 0.0 6.775266E-01 1.081476E-01 2.726803E-01 0.0 572 G 0.0 0.0 5.237203E-01 8.359689E-02 3.396775E-01 0.0 573 G 0.0 0.0 3.409733E-01 5.442656E-02 3.879041E-01 0.0 574 G 0.0 0.0 1.393840E-01 2.224863E-02 4.146951E-01 0.0 575 G 0.0 0.0 -6.990769E-02 -1.115875E-02 4.185700E-01 0.0 576 G 0.0 0.0 -2.753362E-01 -4.394950E-02 3.993147E-01 0.0 577 G 0.0 0.0 -4.655497E-01 -7.431163E-02 3.579932E-01 0.0 578 G 0.0 0.0 -6.300368E-01 -1.005673E-01 2.968888E-01 0.0 579 G 0.0 0.0 -7.597079E-01 -1.212655E-01 2.193784E-01 0.0 580 G 0.0 0.0 -8.473974E-01 -1.352626E-01 1.297451E-01 0.0 581 G 0.0 0.0 -8.882596E-01 -1.417850E-01 3.294202E-02 0.0 582 G 0.0 0.0 -8.800365E-01 -1.404725E-01 -6.568143E-02 0.0 583 G 0.0 0.0 -8.231823E-01 -1.313974E-01 -1.606753E-01 0.0 584 G 0.0 0.0 -7.208390E-01 -1.150612E-01 -2.467901E-01 0.0 585 G 0.0 0.0 -5.786620E-01 -9.236678E-02 -3.192672E-01 0.0 586 G 0.0 0.0 -4.045082E-01 -6.456810E-02 -3.741016E-01 0.0 587 G 0.0 0.0 -2.080012E-01 -3.320140E-02 -4.082632E-01 0.0 588 G 0.0 0.0 0.0 0.0 -4.198641E-01 0.0 631 G 0.0 0.0 1.000000E+00 6.066520E-08 0.0 0.0 632 G 0.0 0.0 9.723699E-01 7.818923E-08 1.100052E-01 0.0 633 G 0.0 0.0 8.910065E-01 7.099440E-08 2.139317E-01 0.0 634 G 0.0 0.0 7.604059E-01 8.317058E-08 3.060362E-01 0.0 635 G 0.0 0.0 5.877851E-01 1.164290E-07 3.812290E-01 0.0 636 G 0.0 0.0 3.826832E-01 9.670858E-08 4.353551E-01 0.0 637 G 0.0 0.0 1.564342E-01 2.757321E-08 4.654233E-01 0.0 638 G 0.0 0.0 -7.845932E-02 -2.188298E-08 4.697721E-01 0.0 639 G 0.0 0.0 -3.090172E-01 -4.937218E-08 4.481613E-01 0.0 640 G 0.0 0.0 -5.224987E-01 -5.722226E-08 4.017851E-01 0.0 641 G 0.0 0.0 -7.071069E-01 -5.475516E-08 3.332062E-01 0.0 642 G 0.0 0.0 -8.526403E-01 -6.935602E-08 2.462141E-01 0.0 643 G 0.0 0.0 -9.510565E-01 -1.010278E-07 1.456162E-01 0.0 644 G 0.0 0.0 -9.969172E-01 -1.217188E-07 3.697163E-02 0.0 645 G 0.0 0.0 -9.876881E-01 -1.084432E-07 -7.371601E-02 0.0 646 G 0.0 0.0 -9.238792E-01 -8.728736E-08 -1.803301E-01 0.0 647 G 0.0 0.0 -8.090166E-01 -1.004294E-07 -2.769790E-01 0.0 648 G 0.0 0.0 -6.494477E-01 -1.403167E-07 -3.583221E-01 0.0 649 G 0.0 0.0 -4.539902E-01 -1.250680E-07 -4.198642E-01 0.0 650 G 0.0 0.0 -2.334452E-01 -5.703641E-08 -4.582045E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 -4.712245E-01 0.0 694 G 0.0 0.0 8.910066E-01 -1.422235E-01 0.0 0.0 695 G 0.0 0.0 8.663881E-01 -1.382938E-01 9.801540E-02 0.0 696 G 0.0 0.0 7.938927E-01 -1.267220E-01 1.906146E-01 0.0 697 G 0.0 0.0 6.775267E-01 -1.081475E-01 2.726803E-01 0.0 698 G 0.0 0.0 5.237204E-01 -8.359686E-02 3.396776E-01 0.0 699 G 0.0 0.0 3.409733E-01 -5.442657E-02 3.879042E-01 0.0 700 G 0.0 0.0 1.393840E-01 -2.224865E-02 4.146952E-01 0.0 701 G 0.0 0.0 -6.990775E-02 1.115876E-02 4.185701E-01 0.0 702 G 0.0 0.0 -2.753364E-01 4.394950E-02 3.993148E-01 0.0 703 G 0.0 0.0 -4.655498E-01 7.431155E-02 3.579932E-01 0.0 704 G 0.0 0.0 -6.300368E-01 1.005672E-01 2.968889E-01 0.0 705 G 0.0 0.0 -7.597080E-01 1.212655E-01 2.193784E-01 0.0 706 G 0.0 0.0 -8.473975E-01 1.352626E-01 1.297451E-01 0.0 707 G 0.0 0.0 -8.882598E-01 1.417851E-01 3.294203E-02 0.0 708 G 0.0 0.0 -8.800366E-01 1.404725E-01 -6.568144E-02 0.0 709 G 0.0 0.0 -8.231825E-01 1.313973E-01 -1.606753E-01 0.0 710 G 0.0 0.0 -7.208391E-01 1.150612E-01 -2.467901E-01 0.0 711 G 0.0 0.0 -5.786622E-01 9.236675E-02 -3.192673E-01 0.0 712 G 0.0 0.0 -4.045083E-01 6.456812E-02 -3.741017E-01 0.0 713 G 0.0 0.0 -2.080012E-01 3.320142E-02 -4.082633E-01 0.0 714 G 0.0 0.0 0.0 0.0 -4.198642E-01 0.0 757 G 0.0 0.0 5.877855E-01 -2.534442E-01 0.0 0.0 758 G 0.0 0.0 5.715449E-01 -2.464416E-01 6.465944E-02 0.0 759 G 0.0 0.0 5.237207E-01 -2.258205E-01 1.257459E-01 0.0 760 G 0.0 0.0 4.469556E-01 -1.927205E-01 1.798836E-01 0.0 761 G 0.0 0.0 3.454916E-01 -1.489707E-01 2.240809E-01 0.0 762 G 0.0 0.0 2.249357E-01 -9.698882E-02 2.558954E-01 0.0 763 G 0.0 0.0 9.194981E-02 -3.964732E-02 2.735690E-01 0.0 764 G 0.0 0.0 -4.611717E-02 1.988508E-02 2.761251E-01 0.0 765 G 0.0 0.0 -1.816357E-01 7.831864E-02 2.634227E-01 0.0 766 G 0.0 0.0 -3.071170E-01 1.324243E-01 2.361635E-01 0.0 767 G 0.0 0.0 -4.156270E-01 1.792122E-01 1.958537E-01 0.0 768 G 0.0 0.0 -5.011694E-01 2.160968E-01 1.447211E-01 0.0 769 G 0.0 0.0 -5.590171E-01 2.410398E-01 8.559114E-02 0.0 770 G 0.0 0.0 -5.859733E-01 2.526629E-01 2.173142E-02 0.0 771 G 0.0 0.0 -5.805486E-01 2.503239E-01 -4.332914E-02 0.0 772 G 0.0 0.0 -5.430427E-01 2.341519E-01 -1.059953E-01 0.0 773 G 0.0 0.0 -4.755282E-01 2.050406E-01 -1.628042E-01 0.0 774 G 0.0 0.0 -3.817359E-01 1.645988E-01 -2.106165E-01 0.0 775 G 0.0 0.0 -2.668488E-01 1.150612E-01 -2.467900E-01 0.0 776 G 0.0 0.0 -1.372157E-01 5.916532E-02 -2.693259E-01 0.0 777 G 0.0 0.0 0.0 0.0 -2.769789E-01 0.0 820 G 0.0 0.0 1.564345E-01 -3.094175E-01 0.0 0.0 821 G 0.0 0.0 1.521122E-01 -3.008683E-01 1.720857E-02 0.0 822 G 0.0 0.0 1.393842E-01 -2.756930E-01 3.346629E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.136673E+04 (CYCLIC FREQUENCY = 5.883843E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 1.189538E-01 -2.352829E-01 4.787464E-02 0.0 824 G 0.0 0.0 9.194990E-02 -1.818710E-01 5.963740E-02 0.0 825 G 0.0 0.0 5.986488E-02 -1.184089E-01 6.810457E-02 0.0 826 G 0.0 0.0 2.447172E-02 -4.840351E-02 7.280827E-02 0.0 827 G 0.0 0.0 -1.227374E-02 2.427668E-02 7.348858E-02 0.0 828 G 0.0 0.0 -4.834094E-02 9.561527E-02 7.010788E-02 0.0 829 G 0.0 0.0 -8.173682E-02 1.616702E-01 6.285304E-02 0.0 830 G 0.0 0.0 -1.106159E-01 2.187911E-01 5.212492E-02 0.0 831 G 0.0 0.0 -1.333823E-01 2.638217E-01 3.851641E-02 0.0 832 G 0.0 0.0 -1.487781E-01 2.942734E-01 2.277946E-02 0.0 833 G 0.0 0.0 -1.559523E-01 3.084635E-01 5.783646E-03 0.0 834 G 0.0 0.0 -1.545085E-01 3.056079E-01 -1.153176E-02 0.0 835 G 0.0 0.0 -1.445266E-01 2.858643E-01 -2.820985E-02 0.0 836 G 0.0 0.0 -1.265581E-01 2.503238E-01 -4.332907E-02 0.0 837 G 0.0 0.0 -1.015960E-01 2.009504E-01 -5.605393E-02 0.0 838 G 0.0 0.0 -7.101973E-02 1.404725E-01 -6.568123E-02 0.0 839 G 0.0 0.0 -3.651889E-02 7.223202E-02 -7.167900E-02 0.0 840 G 0.0 0.0 0.0 0.0 -7.371578E-02 0.0 841 G 0.0 0.0 0.0 -3.132744E-01 0.0 0.0 842 G 0.0 0.0 0.0 -3.046186E-01 0.0 0.0 843 G 0.0 0.0 0.0 -2.791296E-01 0.0 0.0 844 G 0.0 0.0 0.0 -2.382157E-01 0.0 0.0 845 G 0.0 0.0 0.0 -1.841381E-01 0.0 0.0 846 G 0.0 0.0 0.0 -1.198849E-01 0.0 0.0 847 G 0.0 0.0 0.0 -4.900685E-02 0.0 0.0 848 G 0.0 0.0 0.0 2.457929E-02 0.0 0.0 849 G 0.0 0.0 0.0 9.680714E-02 0.0 0.0 850 G 0.0 0.0 0.0 1.636854E-01 0.0 0.0 851 G 0.0 0.0 0.0 2.215184E-01 0.0 0.0 852 G 0.0 0.0 0.0 2.671103E-01 0.0 0.0 853 G 0.0 0.0 0.0 2.979416E-01 0.0 0.0 854 G 0.0 0.0 0.0 3.123086E-01 0.0 0.0 855 G 0.0 0.0 0.0 3.094173E-01 0.0 0.0 856 G 0.0 0.0 0.0 2.894276E-01 0.0 0.0 857 G 0.0 0.0 0.0 2.534441E-01 0.0 0.0 858 G 0.0 0.0 0.0 2.034553E-01 0.0 0.0 859 G 0.0 0.0 0.0 1.422235E-01 0.0 0.0 860 G 0.0 0.0 0.0 7.313240E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -6.294363E-01 0.0 0.0 2 G 0.0 0.0 0.0 -6.277367E-01 0.0 0.0 3 G 0.0 0.0 0.0 -6.223019E-01 0.0 0.0 4 G 0.0 0.0 0.0 -6.123889E-01 0.0 0.0 5 G 0.0 0.0 0.0 -5.989821E-01 0.0 0.0 6 G 0.0 0.0 0.0 -5.820484E-01 0.0 0.0 7 G 0.0 0.0 0.0 -5.619046E-01 0.0 0.0 8 G 0.0 0.0 0.0 -5.373752E-01 0.0 0.0 9 G 0.0 0.0 0.0 -5.098630E-01 0.0 0.0 10 G 0.0 0.0 0.0 -4.790339E-01 0.0 0.0 11 G 0.0 0.0 0.0 -4.453901E-01 0.0 0.0 12 G 0.0 0.0 0.0 -4.090217E-01 0.0 0.0 13 G 0.0 0.0 0.0 -3.704227E-01 0.0 0.0 14 G 0.0 0.0 0.0 -3.290935E-01 0.0 0.0 15 G 0.0 0.0 0.0 -2.857206E-01 0.0 0.0 16 G 0.0 0.0 0.0 -2.405574E-01 0.0 0.0 17 G 0.0 0.0 0.0 -1.944825E-01 0.0 0.0 18 G 0.0 0.0 0.0 -1.468671E-01 0.0 0.0 19 G 0.0 0.0 0.0 -9.819738E-02 0.0 0.0 20 G 0.0 0.0 0.0 -4.867781E-02 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 -8.086357E-01 -3.702650E-01 0.0 0.0 65 G 0.0 0.0 -8.062281E-01 -3.690664E-01 -9.521086E-03 0.0 66 G 0.0 0.0 -7.989346E-01 -3.655531E-01 -1.961426E-02 0.0 67 G 0.0 0.0 -7.864724E-01 -3.598218E-01 -2.980503E-02 0.0 68 G 0.0 0.0 -7.690240E-01 -3.519238E-01 -3.959073E-02 0.0 69 G 0.0 0.0 -7.468503E-01 -3.417797E-01 -4.827172E-02 0.0 70 G 0.0 0.0 -7.204963E-01 -3.294532E-01 -5.670271E-02 0.0 71 G 0.0 0.0 -6.897206E-01 -3.152121E-01 -6.552676E-02 0.0 72 G 0.0 0.0 -6.546407E-01 -2.992361E-01 -7.401096E-02 0.0 73 G 0.0 0.0 -6.153241E-01 -2.814332E-01 -8.214156E-02 0.0 74 G 0.0 0.0 -5.721025E-01 -2.615659E-01 -8.964807E-02 0.0 75 G 0.0 0.0 -5.253153E-01 -2.398237E-01 -9.613550E-02 0.0 76 G 0.0 0.0 -4.754935E-01 -2.169246E-01 -1.020664E-01 0.0 77 G 0.0 0.0 -4.227013E-01 -1.930961E-01 -1.076149E-01 0.0 78 G 0.0 0.0 -3.673322E-01 -1.679936E-01 -1.125277E-01 0.0 79 G 0.0 0.0 -3.096233E-01 -1.417831E-01 -1.166784E-01 0.0 80 G 0.0 0.0 -2.501191E-01 -1.145623E-01 -1.198743E-01 0.0 81 G 0.0 0.0 -1.891413E-01 -8.654974E-02 -1.223757E-01 0.0 82 G 0.0 0.0 -1.269856E-01 -5.805868E-02 -1.248777E-01 0.0 83 G 0.0 0.0 -6.366159E-02 -2.922430E-02 -1.265071E-01 0.0 84 G 0.0 0.0 0.0 0.0 -1.265305E-01 0.0 127 G 0.0 0.0 -9.509017E-01 1.947361E-01 0.0 0.0 128 G 0.0 0.0 -9.480651E-01 1.941653E-01 -1.132008E-02 0.0 129 G 0.0 0.0 -9.393355E-01 1.924733E-01 -2.344229E-02 0.0 130 G 0.0 0.0 -9.245981E-01 1.898095E-01 -3.492620E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -9.043115E-01 1.856284E-01 -4.586704E-02 0.0 132 G 0.0 0.0 -8.785005E-01 1.799590E-01 -5.659243E-02 0.0 133 G 0.0 0.0 -8.474072E-01 1.733033E-01 -6.709202E-02 0.0 134 G 0.0 0.0 -8.110402E-01 1.657224E-01 -7.731657E-02 0.0 135 G 0.0 0.0 -7.697248E-01 1.572514E-01 -8.695730E-02 0.0 136 G 0.0 0.0 -7.236441E-01 1.478751E-01 -9.607911E-02 0.0 137 G 0.0 0.0 -6.730399E-01 1.374445E-01 -1.052587E-01 0.0 138 G 0.0 0.0 -6.178931E-01 1.260499E-01 -1.136418E-01 0.0 139 G 0.0 0.0 -5.589764E-01 1.139570E-01 -1.205680E-01 0.0 140 G 0.0 0.0 -4.967145E-01 1.013900E-01 -1.267233E-01 0.0 141 G 0.0 0.0 -4.316226E-01 8.821603E-02 -1.320444E-01 0.0 142 G 0.0 0.0 -3.639819E-01 7.421777E-02 -1.367262E-01 0.0 143 G 0.0 0.0 -2.941125E-01 5.953403E-02 -1.410888E-01 0.0 144 G 0.0 0.0 -2.221730E-01 4.485097E-02 -1.445808E-01 0.0 145 G 0.0 0.0 -1.488509E-01 3.021045E-02 -1.469101E-01 0.0 146 G 0.0 0.0 -7.456653E-02 1.520869E-02 -1.481706E-01 0.0 147 G 0.0 0.0 0.0 0.0 -1.482518E-01 0.0 190 G 0.0 0.0 -3.087128E-01 5.980666E-01 0.0 0.0 191 G 0.0 0.0 -3.079802E-01 5.966146E-01 -3.092365E-03 0.0 192 G 0.0 0.0 -3.053582E-01 5.913190E-01 -7.524762E-03 0.0 193 G 0.0 0.0 -3.004615E-01 5.820718E-01 -1.176754E-02 0.0 194 G 0.0 0.0 -2.936797E-01 5.692344E-01 -1.516533E-02 0.0 195 G 0.0 0.0 -2.852446E-01 5.529827E-01 -1.827643E-02 0.0 196 G 0.0 0.0 -2.752803E-01 5.334817E-01 -2.141315E-02 0.0 197 G 0.0 0.0 -2.636553E-01 5.104772E-01 -2.479494E-02 0.0 198 G 0.0 0.0 -2.502923E-01 4.841849E-01 -2.836950E-02 0.0 199 G 0.0 0.0 -2.351674E-01 4.550079E-01 -3.158534E-02 0.0 200 G 0.0 0.0 -2.185860E-01 4.234485E-01 -3.438905E-02 0.0 201 G 0.0 0.0 -2.006171E-01 3.890959E-01 -3.696205E-02 0.0 202 G 0.0 0.0 -1.814669E-01 3.522298E-01 -3.919117E-02 0.0 203 G 0.0 0.0 -1.612266E-01 3.130853E-01 -4.120704E-02 0.0 204 G 0.0 0.0 -1.400575E-01 2.719990E-01 -4.296134E-02 0.0 205 G 0.0 0.0 -1.180943E-01 2.293547E-01 -4.421183E-02 0.0 206 G 0.0 0.0 -9.557485E-02 1.853479E-01 -4.540210E-02 0.0 207 G 0.0 0.0 -7.238116E-02 1.401096E-01 -4.674583E-02 0.0 208 G 0.0 0.0 -4.861442E-02 9.387664E-02 -4.776092E-02 0.0 209 G 0.0 0.0 -2.440065E-02 4.705184E-02 -4.841700E-02 0.0 210 G 0.0 0.0 0.0 0.0 -4.854326E-02 0.0 253 G 0.0 0.0 5.879519E-01 5.095857E-01 0.0 0.0 254 G 0.0 0.0 5.860741E-01 5.078630E-01 7.426921E-03 0.0 255 G 0.0 0.0 5.805717E-01 5.031832E-01 1.436816E-02 0.0 256 G 0.0 0.0 5.716022E-01 4.953702E-01 2.136112E-02 0.0 257 G 0.0 0.0 5.590583E-01 4.844903E-01 2.843910E-02 0.0 258 G 0.0 0.0 5.430342E-01 4.706154E-01 3.527126E-02 0.0 259 G 0.0 0.0 5.236387E-01 4.538691E-01 4.174291E-02 0.0 260 G 0.0 0.0 5.010511E-01 4.344322E-01 4.812663E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 4.752986E-01 4.123883E-01 5.408889E-02 0.0 262 G 0.0 0.0 4.467475E-01 3.877400E-01 5.942224E-02 0.0 263 G 0.0 0.0 4.155411E-01 3.605527E-01 6.454048E-02 0.0 264 G 0.0 0.0 3.818519E-01 3.310890E-01 6.939778E-02 0.0 265 G 0.0 0.0 3.457662E-01 2.997019E-01 7.399581E-02 0.0 266 G 0.0 0.0 3.074402E-01 2.665747E-01 7.837744E-02 0.0 267 G 0.0 0.0 2.670085E-01 2.316377E-01 8.217667E-02 0.0 268 G 0.0 0.0 2.248987E-01 1.951067E-01 8.520476E-02 0.0 269 G 0.0 0.0 1.814155E-01 1.574496E-01 8.753213E-02 0.0 270 G 0.0 0.0 1.369509E-01 1.188955E-01 8.922958E-02 0.0 271 G 0.0 0.0 9.172512E-02 7.967266E-02 9.046156E-02 0.0 272 G 0.0 0.0 4.601692E-02 3.998489E-02 9.123617E-02 0.0 273 G 0.0 0.0 0.0 0.0 9.162125E-02 0.0 316 G 0.0 0.0 1.000000E+00 -2.154228E-05 0.0 0.0 317 G 0.0 0.0 9.968389E-01 3.793792E-05 1.253209E-02 0.0 318 G 0.0 0.0 9.874922E-01 3.504084E-05 2.454717E-02 0.0 319 G 0.0 0.0 9.721705E-01 -1.660696E-05 3.640511E-02 0.0 320 G 0.0 0.0 9.508757E-01 4.630188E-05 4.820926E-02 0.0 321 G 0.0 0.0 9.236807E-01 2.285335E-04 5.992806E-02 0.0 322 G 0.0 0.0 8.906733E-01 2.436442E-04 7.111781E-02 0.0 323 G 0.0 0.0 8.522571E-01 9.548256E-05 8.159380E-02 0.0 324 G 0.0 0.0 8.086880E-01 1.377794E-05 9.149859E-02 0.0 325 G 0.0 0.0 7.602822E-01 -1.608700E-05 1.009453E-01 0.0 326 G 0.0 0.0 7.071840E-01 -1.033970E-05 1.100386E-01 0.0 327 G 0.0 0.0 6.496657E-01 1.846502E-05 1.185920E-01 0.0 328 G 0.0 0.0 5.880454E-01 9.453443E-06 1.261633E-01 0.0 329 G 0.0 0.0 5.228562E-01 -5.857814E-05 1.330129E-01 0.0 330 G 0.0 0.0 4.543161E-01 -7.361903E-05 1.393129E-01 0.0 331 G 0.0 0.0 3.828865E-01 -1.494660E-05 1.445865E-01 0.0 332 G 0.0 0.0 3.090392E-01 8.570198E-05 1.488221E-01 0.0 333 G 0.0 0.0 2.333433E-01 3.880574E-05 1.520091E-01 0.0 334 G 0.0 0.0 1.562959E-01 -1.208072E-04 1.541214E-01 0.0 335 G 0.0 0.0 7.842028E-02 -1.856650E-04 1.554658E-01 0.0 336 G 0.0 0.0 0.0 0.0 1.561197E-01 0.0 379 G 0.0 0.0 5.877482E-01 -5.095036E-01 0.0 0.0 380 G 0.0 0.0 5.858794E-01 -5.079150E-01 7.385908E-03 0.0 381 G 0.0 0.0 5.803818E-01 -5.031859E-01 1.444989E-02 0.0 382 G 0.0 0.0 5.713402E-01 -4.953452E-01 2.152637E-02 0.0 383 G 0.0 0.0 5.587656E-01 -4.845114E-01 2.837079E-02 0.0 384 G 0.0 0.0 5.428157E-01 -4.707334E-01 3.508354E-02 0.0 385 G 0.0 0.0 5.234847E-01 -4.540223E-01 4.170053E-02 0.0 386 G 0.0 0.0 5.009421E-01 -4.344467E-01 4.791515E-02 0.0 387 G 0.0 0.0 4.753416E-01 -4.122031E-01 5.379180E-02 0.0 388 G 0.0 0.0 4.468773E-01 -3.875194E-01 5.934215E-02 0.0 389 G 0.0 0.0 4.157070E-01 -3.605245E-01 6.449464E-02 0.0 390 G 0.0 0.0 3.820353E-01 -3.311815E-01 6.939943E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 3.459279E-01 -2.996642E-01 7.406206E-02 0.0 392 G 0.0 0.0 3.075930E-01 -2.663160E-01 7.831141E-02 0.0 393 G 0.0 0.0 2.672361E-01 -2.313554E-01 8.201315E-02 0.0 394 G 0.0 0.0 2.252067E-01 -1.949967E-01 8.502594E-02 0.0 395 G 0.0 0.0 1.818091E-01 -1.574521E-01 8.739666E-02 0.0 396 G 0.0 0.0 1.373442E-01 -1.188977E-01 8.938196E-02 0.0 397 G 0.0 0.0 9.198773E-02 -7.959259E-02 9.078503E-02 0.0 398 G 0.0 0.0 4.613131E-02 -3.985922E-02 9.148927E-02 0.0 399 G 0.0 0.0 0.0 0.0 9.181158E-02 0.0 442 G 0.0 0.0 -3.088142E-01 -5.989698E-01 0.0 0.0 443 G 0.0 0.0 -3.079944E-01 -5.971643E-01 -3.393834E-03 0.0 444 G 0.0 0.0 -3.052526E-01 -5.917303E-01 -7.535235E-03 0.0 445 G 0.0 0.0 -3.004481E-01 -5.825107E-01 -1.145926E-02 0.0 446 G 0.0 0.0 -2.937936E-01 -5.695771E-01 -1.500676E-02 0.0 447 G 0.0 0.0 -2.853863E-01 -5.531875E-01 -1.837135E-02 0.0 448 G 0.0 0.0 -2.753153E-01 -5.334568E-01 -2.170788E-02 0.0 449 G 0.0 0.0 -2.635286E-01 -5.105090E-01 -2.512049E-02 0.0 450 G 0.0 0.0 -2.500506E-01 -4.844567E-01 -2.847574E-02 0.0 451 G 0.0 0.0 -2.349549E-01 -4.553885E-01 -3.142937E-02 0.0 452 G 0.0 0.0 -2.184730E-01 -4.234799E-01 -3.414008E-02 0.0 453 G 0.0 0.0 -2.006219E-01 -3.889868E-01 -3.676208E-02 0.0 454 G 0.0 0.0 -1.815496E-01 -3.521624E-01 -3.906662E-02 0.0 455 G 0.0 0.0 -1.613643E-01 -3.131610E-01 -4.111691E-02 0.0 456 G 0.0 0.0 -1.402237E-01 -2.721159E-01 -4.290815E-02 0.0 457 G 0.0 0.0 -1.182505E-01 -2.292918E-01 -4.437034E-02 0.0 458 G 0.0 0.0 -9.561197E-02 -1.851488E-01 -4.567363E-02 0.0 459 G 0.0 0.0 -7.232092E-02 -1.399611E-01 -4.685241E-02 0.0 460 G 0.0 0.0 -4.851909E-02 -9.385026E-02 -4.776803E-02 0.0 461 G 0.0 0.0 -2.432841E-02 -4.709893E-02 -4.831123E-02 0.0 462 G 0.0 0.0 0.0 0.0 -4.838413E-02 0.0 505 G 0.0 0.0 -9.509665E-01 -1.946230E-01 0.0 0.0 506 G 0.0 0.0 -9.480470E-01 -1.939810E-01 -1.154510E-02 0.0 507 G 0.0 0.0 -9.393157E-01 -1.921052E-01 -2.322918E-02 0.0 508 G 0.0 0.0 -9.246843E-01 -1.890716E-01 -3.486489E-02 0.0 509 G 0.0 0.0 -9.043243E-01 -1.849213E-01 -4.606516E-02 0.0 510 G 0.0 0.0 -8.784103E-01 -1.796531E-01 -5.688408E-02 0.0 511 G 0.0 0.0 -8.471528E-01 -1.731905E-01 -6.735621E-02 0.0 512 G 0.0 0.0 -8.107184E-01 -1.656064E-01 -7.740351E-02 0.0 513 G 0.0 0.0 -7.693437E-01 -1.570966E-01 -8.709101E-02 0.0 514 G 0.0 0.0 -7.231756E-01 -1.477769E-01 -9.634310E-02 0.0 515 G 0.0 0.0 -6.725270E-01 -1.375239E-01 -1.049530E-01 0.0 516 G 0.0 0.0 -6.177095E-01 -1.264045E-01 -1.128503E-01 0.0 517 G 0.0 0.0 -5.591329E-01 -1.144748E-01 -1.199450E-01 0.0 518 G 0.0 0.0 -4.971661E-01 -1.018332E-01 -1.262854E-01 0.0 519 G 0.0 0.0 -4.321726E-01 -8.858085E-02 -1.320646E-01 0.0 520 G 0.0 0.0 -3.644283E-01 -7.480221E-02 -1.370969E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -2.944016E-01 -6.050330E-02 -1.412116E-01 0.0 522 G 0.0 0.0 -2.224896E-01 -4.574275E-02 -1.445339E-01 0.0 523 G 0.0 0.0 -1.491425E-01 -3.062907E-02 -1.469669E-01 0.0 524 G 0.0 0.0 -7.480336E-02 -1.535852E-02 -1.484267E-01 0.0 525 G 0.0 0.0 0.0 0.0 -1.488483E-01 0.0 568 G 0.0 0.0 -8.091114E-01 3.700027E-01 0.0 0.0 569 G 0.0 0.0 -8.066324E-01 3.689028E-01 -9.881546E-03 0.0 570 G 0.0 0.0 -7.991300E-01 3.655162E-01 -1.997095E-02 0.0 571 G 0.0 0.0 -7.865810E-01 3.598677E-01 -2.984730E-02 0.0 572 G 0.0 0.0 -7.691821E-01 3.520145E-01 -3.930015E-02 0.0 573 G 0.0 0.0 -7.471075E-01 3.420089E-01 -4.839984E-02 0.0 574 G 0.0 0.0 -7.205074E-01 3.298646E-01 -5.737564E-02 0.0 575 G 0.0 0.0 -6.894377E-01 3.156546E-01 -6.604193E-02 0.0 576 G 0.0 0.0 -6.541556E-01 2.995094E-01 -7.419284E-02 0.0 577 G 0.0 0.0 -6.148645E-01 2.815609E-01 -8.191534E-02 0.0 578 G 0.0 0.0 -5.718343E-01 2.618690E-01 -8.910376E-02 0.0 579 G 0.0 0.0 -5.253184E-01 2.404769E-01 -9.573620E-02 0.0 580 G 0.0 0.0 -4.756032E-01 2.175329E-01 -1.018636E-01 0.0 581 G 0.0 0.0 -4.229411E-01 1.933290E-01 -1.073601E-01 0.0 582 G 0.0 0.0 -3.677031E-01 1.680239E-01 -1.121855E-01 0.0 583 G 0.0 0.0 -3.101784E-01 1.416582E-01 -1.163985E-01 0.0 584 G 0.0 0.0 -2.506999E-01 1.143945E-01 -1.200089E-01 0.0 585 G 0.0 0.0 -1.895415E-01 8.640112E-02 -1.230175E-01 0.0 586 G 0.0 0.0 -1.270666E-01 5.786428E-02 -1.252746E-01 0.0 587 G 0.0 0.0 -6.369858E-02 2.900251E-02 -1.264745E-01 0.0 588 G 0.0 0.0 0.0 0.0 -1.267027E-01 0.0 631 G 0.0 0.0 -3.175539E-04 6.295685E-01 0.0 0.0 632 G 0.0 0.0 -3.082247E-04 6.275974E-01 -5.250762E-05 0.0 633 G 0.0 0.0 -2.388005E-04 6.218022E-01 -2.479798E-04 0.0 634 G 0.0 0.0 -7.828883E-05 6.121401E-01 -3.662140E-04 0.0 635 G 0.0 0.0 1.141451E-04 5.986671E-01 -4.225164E-04 0.0 636 G 0.0 0.0 3.234982E-04 5.815974E-01 -3.524257E-04 0.0 637 G 0.0 0.0 4.523223E-04 5.610299E-01 -1.902716E-04 0.0 638 G 0.0 0.0 5.162340E-04 5.369682E-01 -4.370144E-05 0.0 639 G 0.0 0.0 5.048725E-04 5.095566E-01 5.181916E-05 0.0 640 G 0.0 0.0 4.803786E-04 4.789681E-01 6.526818E-05 0.0 641 G 0.0 0.0 4.383255E-04 4.454077E-01 8.231909E-05 0.0 642 G 0.0 0.0 3.611804E-04 4.091309E-01 2.904535E-04 0.0 643 G 0.0 0.0 1.509805E-04 3.703611E-01 4.862635E-04 0.0 644 G 0.0 0.0 -9.018036E-05 3.292876E-01 4.917306E-04 0.0 645 G 0.0 0.0 -3.351871E-04 2.861228E-01 4.445170E-04 0.0 646 G 0.0 0.0 -5.176615E-04 2.411791E-01 2.959852E-04 0.0 647 G 0.0 0.0 -6.163928E-04 1.948085E-01 8.028701E-05 0.0 648 G 0.0 0.0 -6.035827E-04 1.472839E-01 -1.000748E-04 0.0 649 G 0.0 0.0 -5.118306E-04 9.875299E-02 -3.193226E-04 0.0 650 G 0.0 0.0 -2.849288E-04 4.951934E-02 -5.485459E-04 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 -5.740070E-04 0.0 694 G 0.0 0.0 8.083630E-01 3.701097E-01 0.0 0.0 695 G 0.0 0.0 8.058724E-01 3.688892E-01 9.855942E-03 0.0 696 G 0.0 0.0 7.985080E-01 3.654323E-01 1.938367E-02 0.0 697 G 0.0 0.0 7.863483E-01 3.597761E-01 2.900678E-02 0.0 698 G 0.0 0.0 7.693229E-01 3.519473E-01 3.861960E-02 0.0 699 G 0.0 0.0 7.475346E-01 3.419275E-01 4.798588E-02 0.0 700 G 0.0 0.0 7.210844E-01 3.297527E-01 5.709565E-02 0.0 701 G 0.0 0.0 6.901565E-01 3.155233E-01 6.582543E-02 0.0 702 G 0.0 0.0 6.549324E-01 2.994130E-01 7.414362E-02 0.0 703 G 0.0 0.0 6.156310E-01 2.815108E-01 8.206502E-02 0.0 704 G 0.0 0.0 5.724577E-01 2.618123E-01 8.946114E-02 0.0 705 G 0.0 0.0 5.257296E-01 2.404376E-01 9.625739E-02 0.0 706 G 0.0 0.0 4.757220E-01 2.176117E-01 1.024523E-01 0.0 707 G 0.0 0.0 4.227680E-01 1.934768E-01 1.080108E-01 0.0 708 G 0.0 0.0 3.671709E-01 1.681709E-01 1.129121E-01 0.0 709 G 0.0 0.0 3.093047E-01 1.418230E-01 1.170573E-01 0.0 710 G 0.0 0.0 2.495697E-01 1.145462E-01 1.202727E-01 0.0 711 G 0.0 0.0 1.884372E-01 8.651345E-02 1.227077E-01 0.0 712 G 0.0 0.0 1.262251E-01 5.794383E-02 1.245052E-01 0.0 713 G 0.0 0.0 6.330331E-02 2.905112E-02 1.255745E-01 0.0 714 G 0.0 0.0 0.0 0.0 1.259804E-01 0.0 757 G 0.0 0.0 9.502614E-01 -1.944440E-01 0.0 0.0 758 G 0.0 0.0 9.473261E-01 -1.938021E-01 1.165445E-02 0.0 759 G 0.0 0.0 9.385945E-01 -1.920352E-01 2.300735E-02 0.0 760 G 0.0 0.0 9.241971E-01 -1.891741E-01 3.424695E-02 0.0 761 G 0.0 0.0 9.041484E-01 -1.851295E-01 4.541980E-02 0.0 762 G 0.0 0.0 8.785270E-01 -1.799099E-01 5.643085E-02 0.0 763 G 0.0 0.0 8.474177E-01 -1.735420E-01 6.718011E-02 0.0 764 G 0.0 0.0 8.110127E-01 -1.660814E-01 7.750483E-02 0.0 765 G 0.0 0.0 7.695585E-01 -1.576153E-01 8.718021E-02 0.0 766 G 0.0 0.0 7.233987E-01 -1.481938E-01 9.630367E-02 0.0 767 G 0.0 0.0 6.727505E-01 -1.378291E-01 1.049547E-01 0.0 768 G 0.0 0.0 6.179237E-01 -1.265548E-01 1.129527E-01 0.0 769 G 0.0 0.0 5.592327E-01 -1.144778E-01 1.202675E-01 0.0 770 G 0.0 0.0 4.970588E-01 -1.017418E-01 1.268164E-01 0.0 771 G 0.0 0.0 4.318019E-01 -8.842219E-02 1.324837E-01 0.0 772 G 0.0 0.0 3.639198E-01 -7.449687E-02 1.373189E-01 0.0 773 G 0.0 0.0 2.937970E-01 -6.005781E-02 1.413214E-01 0.0 774 G 0.0 0.0 2.218968E-01 -4.529633E-02 1.444235E-01 0.0 775 G 0.0 0.0 1.486544E-01 -3.030450E-02 1.466108E-01 0.0 776 G 0.0 0.0 7.455165E-02 -1.517429E-02 1.478922E-01 0.0 777 G 0.0 0.0 0.0 0.0 1.483635E-01 0.0 820 G 0.0 0.0 3.088197E-01 -5.984936E-01 0.0 0.0 821 G 0.0 0.0 3.078399E-01 -5.966397E-01 3.854264E-03 0.0 822 G 0.0 0.0 3.049800E-01 -5.911349E-01 7.503768E-03 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.234806E+04 (CYCLIC FREQUENCY = 7.712141E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 3.002940E-01 -5.820613E-01 1.114208E-02 0.0 824 G 0.0 0.0 2.937704E-01 -5.693939E-01 1.476728E-02 0.0 825 G 0.0 0.0 2.854452E-01 -5.532465E-01 1.833731E-02 0.0 826 G 0.0 0.0 2.753416E-01 -5.336744E-01 2.179920E-02 0.0 827 G 0.0 0.0 2.635348E-01 -5.108074E-01 2.514830E-02 0.0 828 G 0.0 0.0 2.500685E-01 -4.846707E-01 2.833740E-02 0.0 829 G 0.0 0.0 2.350560E-01 -4.555603E-01 3.134392E-02 0.0 830 G 0.0 0.0 2.185709E-01 -4.236345E-01 3.413581E-02 0.0 831 G 0.0 0.0 2.007586E-01 -3.891122E-01 3.666418E-02 0.0 832 G 0.0 0.0 1.817197E-01 -3.521722E-01 3.898075E-02 0.0 833 G 0.0 0.0 1.615587E-01 -3.130531E-01 4.119474E-02 0.0 834 G 0.0 0.0 1.403271E-01 -2.719479E-01 4.312299E-02 0.0 835 G 0.0 0.0 1.182448E-01 -2.291774E-01 4.464511E-02 0.0 836 G 0.0 0.0 9.545171E-02 -1.850041E-01 4.591664E-02 0.0 837 G 0.0 0.0 7.209560E-02 -1.397554E-01 4.691760E-02 0.0 838 G 0.0 0.0 4.830142E-02 -9.364296E-02 4.762100E-02 0.0 839 G 0.0 0.0 2.423254E-02 -4.697351E-02 4.805168E-02 0.0 840 G 0.0 0.0 0.0 0.0 4.823845E-02 0.0 841 G 0.0 0.0 0.0 -6.294256E-01 0.0 0.0 842 G 0.0 0.0 0.0 -6.274009E-01 0.0 0.0 843 G 0.0 0.0 0.0 -6.215567E-01 0.0 0.0 844 G 0.0 0.0 0.0 -6.120045E-01 0.0 0.0 845 G 0.0 0.0 0.0 -5.987083E-01 0.0 0.0 846 G 0.0 0.0 0.0 -5.817544E-01 0.0 0.0 847 G 0.0 0.0 0.0 -5.611457E-01 0.0 0.0 848 G 0.0 0.0 0.0 -5.370864E-01 0.0 0.0 849 G 0.0 0.0 0.0 -5.096481E-01 0.0 0.0 850 G 0.0 0.0 0.0 -4.790741E-01 0.0 0.0 851 G 0.0 0.0 0.0 -4.454552E-01 0.0 0.0 852 G 0.0 0.0 0.0 -4.091642E-01 0.0 0.0 853 G 0.0 0.0 0.0 -3.703644E-01 0.0 0.0 854 G 0.0 0.0 0.0 -3.293150E-01 0.0 0.0 855 G 0.0 0.0 0.0 -2.860068E-01 0.0 0.0 856 G 0.0 0.0 0.0 -2.410022E-01 0.0 0.0 857 G 0.0 0.0 0.0 -1.945338E-01 0.0 0.0 858 G 0.0 0.0 0.0 -1.469302E-01 0.0 0.0 859 G 0.0 0.0 0.0 -9.842319E-02 0.0 0.0 860 G 0.0 0.0 0.0 -4.938527E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -4.707368E-01 0.0 0.0 2 G 0.0 0.0 0.0 -4.574368E-01 0.0 0.0 3 G 0.0 0.0 0.0 -4.186919E-01 0.0 0.0 4 G 0.0 0.0 0.0 -3.575946E-01 0.0 0.0 5 G 0.0 0.0 0.0 -2.763787E-01 0.0 0.0 6 G 0.0 0.0 0.0 -1.796765E-01 0.0 0.0 7 G 0.0 0.0 0.0 -7.255396E-02 0.0 0.0 8 G 0.0 0.0 0.0 3.747166E-02 0.0 0.0 9 G 0.0 0.0 0.0 1.458689E-01 0.0 0.0 10 G 0.0 0.0 0.0 2.460123E-01 0.0 0.0 11 G 0.0 0.0 0.0 3.327466E-01 0.0 0.0 12 G 0.0 0.0 0.0 4.011268E-01 0.0 0.0 13 G 0.0 0.0 0.0 4.477092E-01 0.0 0.0 14 G 0.0 0.0 0.0 4.690082E-01 0.0 0.0 15 G 0.0 0.0 0.0 4.643754E-01 0.0 0.0 16 G 0.0 0.0 0.0 4.340352E-01 0.0 0.0 17 G 0.0 0.0 0.0 3.804015E-01 0.0 0.0 18 G 0.0 0.0 0.0 3.053112E-01 0.0 0.0 19 G 0.0 0.0 0.0 2.131538E-01 0.0 0.0 20 G 0.0 0.0 0.0 1.088914E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 -6.499213E-01 -3.575210E-01 0.0 0.0 65 G 0.0 0.0 -6.318663E-01 -3.477106E-01 -7.180278E-02 0.0 66 G 0.0 0.0 -5.788013E-01 -3.187308E-01 -1.388696E-01 0.0 67 G 0.0 0.0 -4.940598E-01 -2.720947E-01 -1.979970E-01 0.0 68 G 0.0 0.0 -3.821960E-01 -2.103633E-01 -2.464414E-01 0.0 69 G 0.0 0.0 -2.492118E-01 -1.371092E-01 -2.823133E-01 0.0 70 G 0.0 0.0 -1.019550E-01 -5.638435E-02 -3.025285E-01 0.0 71 G 0.0 0.0 5.094434E-02 2.758151E-02 -3.051325E-01 0.0 72 G 0.0 0.0 2.009621E-01 1.102610E-01 -2.908225E-01 0.0 73 G 0.0 0.0 3.396339E-01 1.868566E-01 -2.603267E-01 0.0 74 G 0.0 0.0 4.594099E-01 2.527112E-01 -2.155862E-01 0.0 75 G 0.0 0.0 5.537558E-01 3.042615E-01 -1.594978E-01 0.0 76 G 0.0 0.0 6.177545E-01 3.393674E-01 -9.454498E-02 0.0 77 G 0.0 0.0 6.475680E-01 3.561930E-01 -2.406538E-02 0.0 78 G 0.0 0.0 6.416357E-01 3.532121E-01 4.777397E-02 0.0 79 G 0.0 0.0 6.001576E-01 3.306193E-01 1.168870E-01 0.0 80 G 0.0 0.0 5.256610E-01 2.895939E-01 1.792449E-01 0.0 81 G 0.0 0.0 4.222110E-01 2.324696E-01 2.317385E-01 0.0 82 G 0.0 0.0 2.954330E-01 1.625768E-01 2.723475E-01 0.0 83 G 0.0 0.0 1.518725E-01 8.372784E-02 2.977854E-01 0.0 84 G 0.0 0.0 0.0 0.0 3.057666E-01 0.0 127 G 0.0 0.0 -9.879019E-01 -7.375669E-02 0.0 0.0 128 G 0.0 0.0 -9.604890E-01 -7.176004E-02 -1.088697E-01 0.0 129 G 0.0 0.0 -8.800576E-01 -6.590366E-02 -2.106489E-01 0.0 130 G 0.0 0.0 -7.512607E-01 -5.669199E-02 -3.013942E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -5.807648E-01 -4.394825E-02 -3.758796E-01 0.0 132 G 0.0 0.0 -3.781186E-01 -2.837857E-02 -4.295101E-01 0.0 133 G 0.0 0.0 -1.544140E-01 -1.140644E-02 -4.592650E-01 0.0 134 G 0.0 0.0 7.776684E-02 6.021157E-03 -4.634856E-01 0.0 135 G 0.0 0.0 3.057279E-01 2.296246E-02 -4.422440E-01 0.0 136 G 0.0 0.0 5.167917E-01 3.856529E-02 -3.965617E-01 0.0 137 G 0.0 0.0 6.992509E-01 5.222173E-02 -3.281711E-01 0.0 138 G 0.0 0.0 8.426129E-01 6.314839E-02 -2.418155E-01 0.0 139 G 0.0 0.0 9.394794E-01 7.050673E-02 -1.430024E-01 0.0 140 G 0.0 0.0 9.845582E-01 7.370806E-02 -3.629513E-02 0.0 141 G 0.0 0.0 9.755125E-01 7.283144E-02 7.235883E-02 0.0 142 G 0.0 0.0 9.126951E-01 6.829017E-02 1.772184E-01 0.0 143 G 0.0 0.0 7.994654E-01 6.027682E-02 2.729154E-01 0.0 144 G 0.0 0.0 6.417500E-01 4.850781E-02 3.535230E-01 0.0 145 G 0.0 0.0 4.485658E-01 3.369312E-02 4.142671E-01 0.0 146 G 0.0 0.0 2.305429E-01 1.725036E-02 4.519297E-01 0.0 147 G 0.0 0.0 0.0 0.0 4.642937E-01 0.0 190 G 0.0 0.0 -8.530899E-01 2.468235E-01 0.0 0.0 191 G 0.0 0.0 -8.292521E-01 2.395379E-01 -9.449603E-02 0.0 192 G 0.0 0.0 -7.595809E-01 2.192500E-01 -1.821064E-01 0.0 193 G 0.0 0.0 -6.484163E-01 1.872432E-01 -2.598344E-01 0.0 194 G 0.0 0.0 -5.014601E-01 1.449086E-01 -3.241424E-01 0.0 195 G 0.0 0.0 -3.266070E-01 9.446843E-02 -3.707646E-01 0.0 196 G 0.0 0.0 -1.334312E-01 3.862712E-02 -3.967355E-01 0.0 197 G 0.0 0.0 6.716124E-02 -1.907107E-02 -4.003385E-01 0.0 198 G 0.0 0.0 2.639126E-01 -7.552855E-02 -3.814097E-01 0.0 199 G 0.0 0.0 4.458238E-01 -1.279178E-01 -3.416341E-01 0.0 200 G 0.0 0.0 6.031026E-01 -1.737446E-01 -2.832378E-01 0.0 201 G 0.0 0.0 7.270094E-01 -2.097388E-01 -2.091974E-01 0.0 202 G 0.0 0.0 8.108081E-01 -2.340074E-01 -1.237265E-01 0.0 203 G 0.0 0.0 8.498288E-01 -2.452234E-01 -3.137376E-02 0.0 204 G 0.0 0.0 8.419572E-01 -2.428835E-01 6.270753E-02 0.0 205 G 0.0 0.0 7.876331E-01 -2.272776E-01 1.530226E-01 0.0 206 G 0.0 0.0 6.899913E-01 -1.991874E-01 2.351271E-01 0.0 207 G 0.0 0.0 5.541194E-01 -1.599956E-01 3.047537E-01 0.0 208 G 0.0 0.0 3.874826E-01 -1.118169E-01 3.574790E-01 0.0 209 G 0.0 0.0 1.992652E-01 -5.745437E-02 3.903756E-01 0.0 210 G 0.0 0.0 0.0 0.0 4.014289E-01 0.0 253 G 0.0 0.0 -3.093202E-01 4.471922E-01 0.0 0.0 254 G 0.0 0.0 -3.006981E-01 4.350228E-01 -3.421701E-02 0.0 255 G 0.0 0.0 -2.754542E-01 3.985969E-01 -6.600463E-02 0.0 256 G 0.0 0.0 -2.351339E-01 3.401832E-01 -9.432127E-02 0.0 257 G 0.0 0.0 -1.817636E-01 2.629876E-01 -1.176935E-01 0.0 258 G 0.0 0.0 -1.183128E-01 1.712708E-01 -1.344779E-01 0.0 259 G 0.0 0.0 -4.829744E-02 7.005540E-02 -1.436602E-01 0.0 260 G 0.0 0.0 2.434226E-02 -3.516291E-02 -1.451209E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 9.573547E-02 -1.385309E-01 -1.384162E-01 0.0 262 G 0.0 0.0 1.616831E-01 -2.341802E-01 -1.237012E-01 0.0 263 G 0.0 0.0 2.185814E-01 -3.167233E-01 -1.023304E-01 0.0 264 G 0.0 0.0 2.633041E-01 -3.817164E-01 -7.545655E-02 0.0 265 G 0.0 0.0 2.935207E-01 -4.257775E-01 -4.460222E-02 0.0 266 G 0.0 0.0 3.076355E-01 -4.464606E-01 -1.156976E-02 0.0 267 G 0.0 0.0 3.049936E-01 -4.422873E-01 2.221845E-02 0.0 268 G 0.0 0.0 2.855269E-01 -4.134865E-01 5.508630E-02 0.0 269 G 0.0 0.0 2.502670E-01 -3.619420E-01 8.510524E-02 0.0 270 G 0.0 0.0 2.010173E-01 -2.904904E-01 1.105196E-01 0.0 271 G 0.0 0.0 1.405700E-01 -2.030650E-01 1.297209E-01 0.0 272 G 0.0 0.0 7.226314E-02 -1.044498E-01 1.416383E-01 0.0 273 G 0.0 0.0 0.0 0.0 1.455262E-01 0.0 316 G 0.0 0.0 3.826295E-01 4.345918E-01 0.0 0.0 317 G 0.0 0.0 3.721535E-01 4.225100E-01 4.166627E-02 0.0 318 G 0.0 0.0 3.411617E-01 3.871558E-01 8.156501E-02 0.0 319 G 0.0 0.0 2.911821E-01 3.304660E-01 1.169566E-01 0.0 320 G 0.0 0.0 2.250926E-01 2.553718E-01 1.456739E-01 0.0 321 G 0.0 0.0 1.466174E-01 1.660128E-01 1.660780E-01 0.0 322 G 0.0 0.0 6.019425E-02 6.767391E-02 1.774943E-01 0.0 323 G 0.0 0.0 -2.964399E-02 -3.421630E-02 1.794336E-01 0.0 324 G 0.0 0.0 -1.179537E-01 -1.343055E-01 1.715418E-01 0.0 325 G 0.0 0.0 -1.999176E-01 -2.270386E-01 1.540533E-01 0.0 326 G 0.0 0.0 -2.708249E-01 -3.072689E-01 1.277410E-01 0.0 327 G 0.0 0.0 -3.266995E-01 -3.705474E-01 9.421688E-02 0.0 328 G 0.0 0.0 -3.644161E-01 -4.133030E-01 5.580809E-02 0.0 329 G 0.0 0.0 -3.820845E-01 -4.331461E-01 1.425343E-02 0.0 330 G 0.0 0.0 -3.785032E-01 -4.291160E-01 -2.842178E-02 0.0 331 G 0.0 0.0 -3.539168E-01 -4.014606E-01 -6.932799E-02 0.0 332 G 0.0 0.0 -3.097159E-01 -3.516722E-01 -1.062395E-01 0.0 333 G 0.0 0.0 -2.484748E-01 -2.822713E-01 -1.371357E-01 0.0 334 G 0.0 0.0 -1.736082E-01 -1.971333E-01 -1.602932E-01 0.0 335 G 0.0 0.0 -8.931088E-02 -1.012123E-01 -1.748172E-01 0.0 336 G 0.0 0.0 0.0 0.0 -1.800073E-01 0.0 379 G 0.0 0.0 8.910991E-01 2.135947E-01 0.0 0.0 380 G 0.0 0.0 8.665490E-01 2.076717E-01 9.760470E-02 0.0 381 G 0.0 0.0 7.941368E-01 1.902629E-01 1.901514E-01 0.0 382 G 0.0 0.0 6.778047E-01 1.623283E-01 2.720571E-01 0.0 383 G 0.0 0.0 5.240393E-01 1.254976E-01 3.390473E-01 0.0 384 G 0.0 0.0 3.412403E-01 8.178541E-02 3.872467E-01 0.0 385 G 0.0 0.0 1.396385E-01 3.351891E-02 4.138977E-01 0.0 386 G 0.0 0.0 -6.968839E-02 -1.667552E-02 4.178566E-01 0.0 387 G 0.0 0.0 -2.751916E-01 -6.593062E-02 3.987801E-01 0.0 388 G 0.0 0.0 -4.655628E-01 -1.114118E-01 3.576689E-01 0.0 389 G 0.0 0.0 -6.302662E-01 -1.506301E-01 2.968482E-01 0.0 390 G 0.0 0.0 -7.602251E-01 -1.816640E-01 2.194592E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 -8.480927E-01 -2.028058E-01 1.297328E-01 0.0 392 G 0.0 0.0 -8.890039E-01 -2.127064E-01 3.279408E-02 0.0 393 G 0.0 0.0 -8.806616E-01 -2.108083E-01 -6.587889E-02 0.0 394 G 0.0 0.0 -8.236475E-01 -1.972215E-01 -1.606956E-01 0.0 395 G 0.0 0.0 -7.211625E-01 -1.727140E-01 -2.464983E-01 0.0 396 G 0.0 0.0 -5.789057E-01 -1.387102E-01 -3.188789E-01 0.0 397 G 0.0 0.0 -4.046121E-01 -9.706588E-02 -3.736083E-01 0.0 398 G 0.0 0.0 -2.080476E-01 -4.998581E-02 -4.075270E-01 0.0 399 G 0.0 0.0 0.0 0.0 -4.191557E-01 0.0 442 G 0.0 0.0 9.722588E-01 -1.097283E-01 0.0 0.0 443 G 0.0 0.0 9.455553E-01 -1.066434E-01 1.062813E-01 0.0 444 G 0.0 0.0 8.665680E-01 -9.759264E-02 2.076299E-01 0.0 445 G 0.0 0.0 7.394707E-01 -8.330946E-02 2.972891E-01 0.0 446 G 0.0 0.0 5.715124E-01 -6.456706E-02 3.701474E-01 0.0 447 G 0.0 0.0 3.720415E-01 -4.218755E-02 4.224430E-01 0.0 448 G 0.0 0.0 1.521273E-01 -1.739673E-02 4.514950E-01 0.0 449 G 0.0 0.0 -7.621551E-02 8.435761E-03 4.558484E-01 0.0 450 G 0.0 0.0 -3.004247E-01 3.384856E-02 4.351282E-01 0.0 451 G 0.0 0.0 -5.081223E-01 5.735113E-02 3.900861E-01 0.0 452 G 0.0 0.0 -6.876614E-01 7.764291E-02 3.234319E-01 0.0 453 G 0.0 0.0 -8.292280E-01 9.367730E-02 2.390596E-01 0.0 454 G 0.0 0.0 -9.249538E-01 1.046213E-01 1.413680E-01 0.0 455 G 0.0 0.0 -9.695622E-01 1.097849E-01 3.585069E-02 0.0 456 G 0.0 0.0 -9.605477E-01 1.087543E-01 -7.165456E-02 0.0 457 G 0.0 0.0 -8.984170E-01 1.015996E-01 -1.752846E-01 0.0 458 G 0.0 0.0 -7.865607E-01 8.895513E-02 -2.690958E-01 0.0 459 G 0.0 0.0 -6.313115E-01 7.152070E-02 -3.478519E-01 0.0 460 G 0.0 0.0 -4.412476E-01 5.006702E-02 -4.073572E-01 0.0 461 G 0.0 0.0 -2.269031E-01 2.577843E-02 -4.444435E-01 0.0 462 G 0.0 0.0 0.0 0.0 -4.571745E-01 0.0 505 G 0.0 0.0 5.878385E-01 -3.804987E-01 0.0 0.0 506 G 0.0 0.0 5.716102E-01 -3.700379E-01 6.441392E-02 0.0 507 G 0.0 0.0 5.238349E-01 -3.391781E-01 1.255251E-01 0.0 508 G 0.0 0.0 4.469773E-01 -2.895482E-01 1.798176E-01 0.0 509 G 0.0 0.0 3.453836E-01 -2.238660E-01 2.239073E-01 0.0 510 G 0.0 0.0 2.247247E-01 -1.457943E-01 2.555110E-01 0.0 511 G 0.0 0.0 9.172839E-02 -5.978263E-02 2.730021E-01 0.0 512 G 0.0 0.0 -4.628759E-02 2.945352E-02 2.753907E-01 0.0 513 G 0.0 0.0 -1.816777E-01 1.171631E-01 2.626968E-01 0.0 514 G 0.0 0.0 -3.070895E-01 1.985777E-01 2.356023E-01 0.0 515 G 0.0 0.0 -4.155534E-01 2.689797E-01 1.954229E-01 0.0 516 G 0.0 0.0 -5.010746E-01 3.244902E-01 1.443605E-01 0.0 517 G 0.0 0.0 -5.588367E-01 3.620324E-01 8.518466E-02 0.0 518 G 0.0 0.0 -5.856349E-01 3.795666E-01 2.127384E-02 0.0 519 G 0.0 0.0 -5.800056E-01 3.761566E-01 -4.355707E-02 0.0 520 G 0.0 0.0 -5.424078E-01 3.519990E-01 -1.059090E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -4.748521E-01 3.083355E-01 -1.625028E-01 0.0 522 G 0.0 0.0 -3.811140E-01 2.475440E-01 -2.100184E-01 0.0 523 G 0.0 0.0 -2.663676E-01 1.730026E-01 -2.459172E-01 0.0 524 G 0.0 0.0 -1.369717E-01 8.895218E-02 -2.682931E-01 0.0 525 G 0.0 0.0 0.0 0.0 -2.759750E-01 0.0 568 G 0.0 0.0 -7.825139E-02 -4.687254E-01 0.0 0.0 569 G 0.0 0.0 -7.606673E-02 -4.558217E-01 -8.643044E-03 0.0 570 G 0.0 0.0 -6.973389E-02 -4.177083E-01 -1.647378E-02 0.0 571 G 0.0 0.0 -5.969130E-02 -3.564981E-01 -2.349589E-02 0.0 572 G 0.0 0.0 -4.635295E-02 -2.756029E-01 -2.950048E-02 0.0 573 G 0.0 0.0 -3.038001E-02 -1.794997E-01 -3.400017E-02 0.0 574 G 0.0 0.0 -1.264179E-02 -7.344209E-02 -3.640035E-02 0.0 575 G 0.0 0.0 5.746331E-03 3.671021E-02 -3.673326E-02 0.0 576 G 0.0 0.0 2.384919E-02 1.448169E-01 -3.517026E-02 0.0 577 G 0.0 0.0 4.064970E-02 2.448636E-01 -3.163049E-02 0.0 578 G 0.0 0.0 5.525579E-02 3.313824E-01 -2.638557E-02 0.0 579 G 0.0 0.0 6.685031E-02 3.996882E-01 -1.970218E-02 0.0 580 G 0.0 0.0 7.479863E-02 4.459887E-01 -1.183982E-02 0.0 581 G 0.0 0.0 7.860286E-02 4.675437E-01 -3.343679E-03 0.0 582 G 0.0 0.0 7.811881E-02 4.631521E-01 5.307741E-03 0.0 583 G 0.0 0.0 7.331837E-02 4.331982E-01 1.374608E-02 0.0 584 G 0.0 0.0 6.444854E-02 3.793356E-01 2.155279E-02 0.0 585 G 0.0 0.0 5.188941E-02 3.045398E-01 2.833509E-02 0.0 586 G 0.0 0.0 3.631622E-02 2.129286E-01 3.357168E-02 0.0 587 G 0.0 0.0 1.862749E-02 1.095130E-01 3.662561E-02 0.0 588 G 0.0 0.0 0.0 0.0 3.744583E-02 0.0 631 G 0.0 0.0 -7.067467E-01 -3.323807E-01 0.0 0.0 632 G 0.0 0.0 -6.872219E-01 -3.231540E-01 -7.756542E-02 0.0 633 G 0.0 0.0 -6.297791E-01 -2.961153E-01 -1.506626E-01 0.0 634 G 0.0 0.0 -5.376353E-01 -2.526611E-01 -2.155160E-01 0.0 635 G 0.0 0.0 -4.158181E-01 -1.951872E-01 -2.685151E-01 0.0 636 G 0.0 0.0 -2.710520E-01 -1.270312E-01 -3.068084E-01 0.0 637 G 0.0 0.0 -1.112277E-01 -5.195390E-02 -3.282413E-01 0.0 638 G 0.0 0.0 5.479555E-02 2.604219E-02 -3.315049E-01 0.0 639 G 0.0 0.0 2.178528E-01 1.026460E-01 -3.163835E-01 0.0 640 G 0.0 0.0 3.688565E-01 1.736158E-01 -2.836794E-01 0.0 641 G 0.0 0.0 4.994692E-01 2.350077E-01 -2.353074E-01 0.0 642 G 0.0 0.0 6.024976E-01 2.833681E-01 -1.741760E-01 0.0 643 G 0.0 0.0 6.723755E-01 3.160225E-01 -1.034217E-01 0.0 644 G 0.0 0.0 7.051264E-01 3.312255E-01 -2.674405E-02 0.0 645 G 0.0 0.0 6.989217E-01 3.281859E-01 5.144658E-02 0.0 646 G 0.0 0.0 6.540364E-01 3.070148E-01 1.268932E-01 0.0 647 G 0.0 0.0 5.729359E-01 2.687905E-01 1.953931E-01 0.0 648 G 0.0 0.0 4.600734E-01 2.156407E-01 2.530460E-01 0.0 649 G 0.0 0.0 3.217257E-01 1.506809E-01 2.967702E-01 0.0 650 G 0.0 0.0 1.654620E-01 7.749747E-02 3.241270E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 3.333513E-01 0.0 694 G 0.0 0.0 -9.962265E-01 -3.685114E-02 0.0 0.0 695 G 0.0 0.0 -9.686863E-01 -3.573159E-02 -1.093839E-01 0.0 696 G 0.0 0.0 -8.877025E-01 -3.267774E-02 -2.123852E-01 0.0 697 G 0.0 0.0 -7.577978E-01 -2.787544E-02 -3.038987E-01 0.0 698 G 0.0 0.0 -5.859812E-01 -2.158106E-02 -3.788033E-01 0.0 699 G 0.0 0.0 -3.817566E-01 -1.406243E-02 -4.327420E-01 0.0 700 G 0.0 0.0 -1.563785E-01 -5.705391E-03 -4.627976E-01 0.0 701 G 0.0 0.0 7.766469E-02 2.996569E-03 -4.672304E-01 0.0 702 G 0.0 0.0 3.074450E-01 1.145646E-02 -4.458274E-01 0.0 703 G 0.0 0.0 5.202591E-01 1.921735E-02 -3.998577E-01 0.0 704 G 0.0 0.0 7.043912E-01 2.598893E-02 -3.317688E-01 0.0 705 G 0.0 0.0 8.496057E-01 3.139672E-02 -2.452932E-01 0.0 706 G 0.0 0.0 9.478977E-01 3.502724E-02 -1.452634E-01 0.0 707 G 0.0 0.0 9.938113E-01 3.667830E-02 -3.721448E-02 0.0 708 G 0.0 0.0 9.848456E-01 3.627047E-02 7.286320E-02 0.0 709 G 0.0 0.0 9.214666E-01 3.385724E-02 1.789692E-01 0.0 710 G 0.0 0.0 8.071324E-01 2.963125E-02 2.754253E-01 0.0 711 G 0.0 0.0 6.480401E-01 2.382084E-02 3.567014E-01 0.0 712 G 0.0 0.0 4.530554E-01 1.669257E-02 4.181223E-01 0.0 713 G 0.0 0.0 2.329657E-01 8.596987E-03 4.564013E-01 0.0 714 G 0.0 0.0 0.0 0.0 4.693387E-01 0.0 757 G 0.0 0.0 -8.081465E-01 2.762674E-01 0.0 0.0 758 G 0.0 0.0 -7.857888E-01 2.685765E-01 -8.882818E-02 0.0 759 G 0.0 0.0 -7.200222E-01 2.461211E-01 -1.724603E-01 0.0 760 G 0.0 0.0 -6.145790E-01 2.101681E-01 -2.465857E-01 0.0 761 G 0.0 0.0 -4.752026E-01 1.625773E-01 -3.072422E-01 0.0 762 G 0.0 0.0 -3.095511E-01 1.059641E-01 -3.510421E-01 0.0 763 G 0.0 0.0 -1.266994E-01 4.345362E-02 -3.755291E-01 0.0 764 G 0.0 0.0 6.323877E-02 -2.147758E-02 -3.792384E-01 0.0 765 G 0.0 0.0 2.497354E-01 -8.518964E-02 -3.617714E-01 0.0 766 G 0.0 0.0 4.223723E-01 -1.441632E-01 -3.242888E-01 0.0 767 G 0.0 0.0 5.716897E-01 -1.951943E-01 -2.690297E-01 0.0 768 G 0.0 0.0 6.894369E-01 -2.355007E-01 -1.988931E-01 0.0 769 G 0.0 0.0 7.691355E-01 -2.628111E-01 -1.177834E-01 0.0 770 G 0.0 0.0 8.063595E-01 -2.755337E-01 -3.014145E-02 0.0 771 G 0.0 0.0 7.990354E-01 -2.729711E-01 5.927996E-02 0.0 772 G 0.0 0.0 7.475045E-01 -2.553945E-01 1.454347E-01 0.0 773 G 0.0 0.0 6.546604E-01 -2.237704E-01 2.235276E-01 0.0 774 G 0.0 0.0 5.255991E-01 -1.797243E-01 2.892984E-01 0.0 775 G 0.0 0.0 3.674646E-01 -1.256922E-01 3.391100E-01 0.0 776 G 0.0 0.0 1.889586E-01 -6.466107E-02 3.701861E-01 0.0 777 G 0.0 0.0 0.0 0.0 3.806841E-01 0.0 820 G 0.0 0.0 -2.332367E-01 4.568155E-01 0.0 0.0 821 G 0.0 0.0 -2.267524E-01 4.441704E-01 -2.571671E-02 0.0 822 G 0.0 0.0 -2.077485E-01 4.069902E-01 -4.978951E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.261275E+04 (CYCLIC FREQUENCY = 8.135221E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 -1.773202E-01 3.473912E-01 -7.115261E-02 0.0 824 G 0.0 0.0 -1.371009E-01 2.685710E-01 -8.864663E-02 0.0 825 G 0.0 0.0 -8.931134E-02 1.749356E-01 -1.012789E-01 0.0 826 G 0.0 0.0 -3.656138E-02 7.161114E-02 -1.083133E-01 0.0 827 G 0.0 0.0 1.821462E-02 -3.567435E-02 -1.093834E-01 0.0 828 G 0.0 0.0 7.202370E-02 -1.411311E-01 -1.043993E-01 0.0 829 G 0.0 0.0 1.218533E-01 -2.387629E-01 -9.363480E-02 0.0 830 G 0.0 0.0 1.649730E-01 -3.232009E-01 -7.766975E-02 0.0 831 G 0.0 0.0 1.989463E-01 -3.897515E-01 -5.734703E-02 0.0 832 G 0.0 0.0 2.219068E-01 -4.347788E-01 -3.387149E-02 0.0 833 G 0.0 0.0 2.326007E-01 -4.557811E-01 -8.693589E-03 0.0 834 G 0.0 0.0 2.305276E-01 -4.516589E-01 1.700142E-02 0.0 835 G 0.0 0.0 2.156940E-01 -4.225599E-01 4.192498E-02 0.0 836 G 0.0 0.0 1.889177E-01 -3.700972E-01 6.449658E-02 0.0 837 G 0.0 0.0 1.516711E-01 -2.971038E-01 8.348637E-02 0.0 838 G 0.0 0.0 1.060367E-01 -2.076974E-01 9.787256E-02 0.0 839 G 0.0 0.0 5.451548E-02 -1.067900E-01 1.068256E-01 0.0 840 G 0.0 0.0 0.0 0.0 1.098120E-01 0.0 841 G 0.0 0.0 0.0 4.699495E-01 0.0 0.0 842 G 0.0 0.0 0.0 4.568501E-01 0.0 0.0 843 G 0.0 0.0 0.0 4.185437E-01 0.0 0.0 844 G 0.0 0.0 0.0 3.572395E-01 0.0 0.0 845 G 0.0 0.0 0.0 2.762113E-01 0.0 0.0 846 G 0.0 0.0 0.0 1.799499E-01 0.0 0.0 847 G 0.0 0.0 0.0 7.365596E-02 0.0 0.0 848 G 0.0 0.0 0.0 -3.669424E-02 0.0 0.0 849 G 0.0 0.0 0.0 -1.450931E-01 0.0 0.0 850 G 0.0 0.0 0.0 -2.454558E-01 0.0 0.0 851 G 0.0 0.0 0.0 -3.323560E-01 0.0 0.0 852 G 0.0 0.0 0.0 -4.007872E-01 0.0 0.0 853 G 0.0 0.0 0.0 -4.470423E-01 0.0 0.0 854 G 0.0 0.0 0.0 -4.685377E-01 0.0 0.0 855 G 0.0 0.0 0.0 -4.644106E-01 0.0 0.0 856 G 0.0 0.0 0.0 -4.345281E-01 0.0 0.0 857 G 0.0 0.0 0.0 -3.806037E-01 0.0 0.0 858 G 0.0 0.0 0.0 -3.055690E-01 0.0 0.0 859 G 0.0 0.0 0.0 -2.136489E-01 0.0 0.0 860 G 0.0 0.0 0.0 -1.098318E-01 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 4.527765E-01 0.0 0.0 2 G 0.0 0.0 0.0 4.845231E-01 0.0 0.0 3 G 0.0 0.0 0.0 5.146841E-01 0.0 0.0 4 G 0.0 0.0 0.0 3.985029E-01 0.0 0.0 5 G 0.0 0.0 0.0 3.154158E-01 0.0 0.0 6 G 0.0 0.0 0.0 2.492074E-01 0.0 0.0 7 G 0.0 0.0 0.0 2.461495E-01 0.0 0.0 8 G 0.0 0.0 0.0 6.592649E-02 0.0 0.0 9 G 0.0 0.0 0.0 -4.793906E-02 0.0 0.0 10 G 0.0 0.0 0.0 -1.850065E-01 0.0 0.0 11 G 0.0 0.0 0.0 -2.807752E-01 0.0 0.0 12 G 0.0 0.0 0.0 -3.531848E-01 0.0 0.0 13 G 0.0 0.0 0.0 -3.483678E-01 0.0 0.0 14 G 0.0 0.0 0.0 -4.048007E-01 0.0 0.0 15 G 0.0 0.0 0.0 -4.404873E-01 0.0 0.0 16 G 0.0 0.0 0.0 -4.589790E-01 0.0 0.0 17 G 0.0 0.0 0.0 -3.488607E-01 0.0 0.0 18 G 0.0 0.0 0.0 -2.866853E-01 0.0 0.0 19 G 0.0 0.0 0.0 -2.399426E-01 0.0 0.0 20 G 0.0 0.0 0.0 -2.306159E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 5.948777E-01 3.215638E-01 0.0 0.0 65 G 0.0 0.0 5.927671E-01 3.017612E-01 -5.690660E-04 0.0 66 G 0.0 0.0 5.713000E-01 2.573175E-01 1.139949E-01 0.0 67 G 0.0 0.0 4.717889E-01 2.044920E-01 2.605722E-01 0.0 68 G 0.0 0.0 3.202071E-01 1.493269E-01 3.511686E-01 0.0 69 G 0.0 0.0 1.534367E-01 7.133383E-02 2.618705E-01 0.0 70 G 0.0 0.0 5.741364E-02 -2.491802E-02 1.645474E-01 0.0 71 G 0.0 0.0 -3.607767E-02 -9.865721E-02 1.919723E-01 0.0 72 G 0.0 0.0 -1.330008E-01 -1.285674E-01 2.166995E-01 0.0 73 G 0.0 0.0 -2.544112E-01 -1.475303E-01 2.472924E-01 0.0 74 G 0.0 0.0 -3.768889E-01 -2.187791E-01 2.437195E-01 0.0 75 G 0.0 0.0 -4.813615E-01 -3.272774E-01 1.426251E-01 0.0 76 G 0.0 0.0 -5.181417E-01 -3.605902E-01 4.309331E-02 0.0 77 G 0.0 0.0 -5.316878E-01 -3.017735E-01 -1.084138E-02 0.0 78 G 0.0 0.0 -5.094262E-01 -2.448193E-01 -5.703802E-02 0.0 79 G 0.0 0.0 -4.731700E-01 -1.893061E-01 -1.106009E-01 0.0 80 G 0.0 0.0 -3.905445E-01 -1.495128E-01 -2.007174E-01 0.0 81 G 0.0 0.0 -2.747032E-01 -1.179751E-01 -2.724914E-01 0.0 82 G 0.0 0.0 -1.460354E-01 -7.021932E-02 -1.904925E-01 0.0 83 G 0.0 0.0 -8.063018E-02 -1.606095E-02 -1.177995E-01 0.0 84 G 0.0 0.0 0.0 0.0 -1.920764E-01 0.0 127 G 0.0 0.0 7.598825E-01 -1.745203E-01 0.0 0.0 128 G 0.0 0.0 7.542871E-01 -1.776357E-01 3.097615E-02 0.0 129 G 0.0 0.0 6.942222E-01 -1.901861E-01 2.204408E-01 0.0 130 G 0.0 0.0 5.529193E-01 -2.382680E-01 3.025596E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 4.084012E-01 -2.150578E-01 3.033522E-01 0.0 132 G 0.0 0.0 2.520719E-01 -1.212818E-01 2.948773E-01 0.0 133 G 0.0 0.0 1.109122E-01 -4.628312E-02 2.872200E-01 0.0 134 G 0.0 0.0 -3.876885E-02 5.028433E-03 2.845332E-01 0.0 135 G 0.0 0.0 -1.676046E-01 3.354732E-02 2.425755E-01 0.0 136 G 0.0 0.0 -2.804809E-01 5.072011E-02 1.880945E-01 0.0 137 G 0.0 0.0 -3.783680E-01 9.398667E-02 2.446511E-01 0.0 138 G 0.0 0.0 -5.187301E-01 1.562640E-01 2.646722E-01 0.0 139 G 0.0 0.0 -6.163197E-01 1.980991E-01 1.370198E-01 0.0 140 G 0.0 0.0 -6.585162E-01 1.890359E-01 4.900124E-03 0.0 141 G 0.0 0.0 -6.220984E-01 1.674889E-01 -1.313595E-01 0.0 142 G 0.0 0.0 -5.338045E-01 1.890133E-01 -2.246223E-01 0.0 143 G 0.0 0.0 -4.175483E-01 2.430368E-01 -2.066590E-01 0.0 144 G 0.0 0.0 -3.309240E-01 2.167501E-01 -1.770876E-01 0.0 145 G 0.0 0.0 -2.332869E-01 1.207664E-01 -1.884786E-01 0.0 146 G 0.0 0.0 -1.355506E-01 5.134929E-02 -2.217110E-01 0.0 147 G 0.0 0.0 0.0 0.0 -2.969959E-01 0.0 190 G 0.0 0.0 2.381407E-01 -2.818998E-01 0.0 0.0 191 G 0.0 0.0 2.666031E-01 -3.463943E-01 -7.894704E-02 0.0 192 G 0.0 0.0 2.719615E-01 -3.602471E-01 9.473303E-02 0.0 193 G 0.0 0.0 1.820112E-01 -2.977483E-01 2.305007E-01 0.0 194 G 0.0 0.0 7.148554E-02 -2.186883E-01 2.045735E-01 0.0 195 G 0.0 0.0 -1.549682E-02 -1.442987E-01 1.253952E-01 0.0 196 G 0.0 0.0 -5.723343E-02 -9.027751E-02 5.727683E-02 0.0 197 G 0.0 0.0 -8.347302E-02 1.037704E-02 4.845735E-02 0.0 198 G 0.0 0.0 -1.171544E-01 1.390544E-01 9.633068E-02 0.0 199 G 0.0 0.0 -1.748694E-01 2.449010E-01 1.039879E-01 0.0 200 G 0.0 0.0 -2.146206E-01 2.616522E-01 6.888808E-02 0.0 201 G 0.0 0.0 -2.429512E-01 2.993978E-01 3.276850E-02 0.0 202 G 0.0 0.0 -2.439749E-01 3.409907E-01 -1.903249E-02 0.0 203 G 0.0 0.0 -2.267303E-01 3.811757E-01 -5.610778E-02 0.0 204 G 0.0 0.0 -1.894470E-01 3.991777E-01 -8.347747E-02 0.0 205 G 0.0 0.0 -1.369814E-01 3.690089E-01 -1.449111E-01 0.0 206 G 0.0 0.0 -5.512484E-02 3.040814E-01 -1.566707E-01 0.0 207 G 0.0 0.0 3.628080E-03 2.334993E-01 -8.068164E-02 0.0 208 G 0.0 0.0 2.979517E-02 1.691621E-01 -1.191500E-02 0.0 209 G 0.0 0.0 2.052233E-02 9.403726E-02 4.006727E-02 0.0 210 G 0.0 0.0 0.0 0.0 4.022207E-02 0.0 253 G 0.0 0.0 -3.816219E-01 -3.554326E-01 0.0 0.0 254 G 0.0 0.0 -3.674310E-01 -3.187128E-01 -4.960091E-02 0.0 255 G 0.0 0.0 -3.467273E-01 -2.994018E-01 -1.901291E-02 0.0 256 G 0.0 0.0 -3.405978E-01 -2.595101E-01 -2.117899E-02 0.0 257 G 0.0 0.0 -3.146749E-01 -2.038884E-01 -7.215372E-02 0.0 258 G 0.0 0.0 -2.684689E-01 -1.355396E-01 -1.167595E-01 0.0 259 G 0.0 0.0 -2.010323E-01 -6.429936E-02 -1.384621E-01 0.0 260 G 0.0 0.0 -1.226861E-01 -7.935326E-03 -1.923039E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 -1.337432E-02 3.699972E-02 -2.175794E-01 0.0 262 G 0.0 0.0 8.379560E-02 9.200818E-02 -1.770764E-01 0.0 263 G 0.0 0.0 1.690790E-01 1.693259E-01 -1.513426E-01 0.0 264 G 0.0 0.0 2.384313E-01 2.464521E-01 -1.344753E-01 0.0 265 G 0.0 0.0 3.057817E-01 2.866167E-01 -1.305016E-01 0.0 266 G 0.0 0.0 3.739918E-01 2.882570E-01 -1.526064E-01 0.0 267 G 0.0 0.0 4.530742E-01 3.008308E-01 -1.384133E-01 0.0 268 G 0.0 0.0 5.015129E-01 3.230140E-01 -6.127683E-02 0.0 269 G 0.0 0.0 5.062362E-01 3.089214E-01 5.439286E-02 0.0 270 G 0.0 0.0 4.434082E-01 2.608199E-01 1.829850E-01 0.0 271 G 0.0 0.0 3.278819E-01 1.839345E-01 2.814277E-01 0.0 272 G 0.0 0.0 1.689570E-01 9.022918E-02 3.381711E-01 0.0 273 G 0.0 0.0 0.0 0.0 3.338228E-01 0.0 316 G 0.0 0.0 -5.657523E-01 7.979377E-02 0.0 0.0 317 G 0.0 0.0 -5.445532E-01 6.599781E-02 -7.834408E-02 0.0 318 G 0.0 0.0 -5.024529E-01 5.927652E-02 -7.650695E-02 0.0 319 G 0.0 0.0 -4.660878E-01 5.800986E-02 -7.956720E-02 0.0 320 G 0.0 0.0 -4.145972E-01 3.271690E-02 -1.222788E-01 0.0 321 G 0.0 0.0 -3.335433E-01 -1.575103E-02 -2.111328E-01 0.0 322 G 0.0 0.0 -2.057726E-01 -3.134058E-02 -2.718097E-01 0.0 323 G 0.0 0.0 -6.957021E-02 -1.317845E-02 -2.768380E-01 0.0 324 G 0.0 0.0 6.811376E-02 -3.646143E-03 -2.593377E-01 0.0 325 G 0.0 0.0 1.918571E-01 4.839647E-04 -2.461591E-01 0.0 326 G 0.0 0.0 3.214858E-01 2.070377E-03 -2.625051E-01 0.0 327 G 0.0 0.0 4.555628E-01 2.630946E-03 -2.792127E-01 0.0 328 G 0.0 0.0 5.873534E-01 1.229180E-02 -2.203137E-01 0.0 329 G 0.0 0.0 6.739594E-01 3.334741E-02 -1.450042E-01 0.0 330 G 0.0 0.0 7.377194E-01 4.288889E-02 -9.837945E-02 0.0 331 G 0.0 0.0 7.618183E-01 3.562745E-02 -5.119103E-03 0.0 332 G 0.0 0.0 7.354692E-01 1.674305E-02 1.201294E-01 0.0 333 G 0.0 0.0 6.381693E-01 2.186840E-02 2.617965E-01 0.0 334 G 0.0 0.0 4.716446E-01 4.472414E-02 4.080910E-01 0.0 335 G 0.0 0.0 2.404049E-01 4.684559E-02 4.872451E-01 0.0 336 G 0.0 0.0 0.0 0.0 4.756863E-01 0.0 379 G 0.0 0.0 -1.457179E-01 4.334917E-01 0.0 0.0 380 G 0.0 0.0 -1.406525E-01 4.175569E-01 -1.247164E-02 0.0 381 G 0.0 0.0 -1.420566E-01 3.758257E-01 2.019833E-02 0.0 382 G 0.0 0.0 -1.543704E-01 3.109978E-01 2.014314E-02 0.0 383 G 0.0 0.0 -1.613555E-01 2.406063E-01 2.160110E-02 0.0 384 G 0.0 0.0 -1.693479E-01 1.665605E-01 -2.957579E-03 0.0 385 G 0.0 0.0 -1.503911E-01 8.073569E-02 -6.509155E-02 0.0 386 G 0.0 0.0 -1.081761E-01 -1.734280E-02 -1.082092E-01 0.0 387 G 0.0 0.0 -4.326462E-02 -1.075552E-01 -1.435714E-01 0.0 388 G 0.0 0.0 3.532337E-02 -1.677967E-01 -1.712209E-01 0.0 389 G 0.0 0.0 1.243795E-01 -1.988124E-01 -1.754432E-01 0.0 390 G 0.0 0.0 2.110050E-01 -2.368230E-01 -1.836582E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 3.086851E-01 -2.818998E-01 -1.981290E-01 0.0 392 G 0.0 0.0 4.052537E-01 -3.055593E-01 -1.907931E-01 0.0 393 G 0.0 0.0 4.921924E-01 -3.060420E-01 -1.442036E-01 0.0 394 G 0.0 0.0 5.386860E-01 -2.850708E-01 -4.325037E-02 0.0 395 G 0.0 0.0 5.289930E-01 -2.470134E-01 8.866687E-02 0.0 396 G 0.0 0.0 4.557785E-01 -2.048330E-01 1.869693E-01 0.0 397 G 0.0 0.0 3.433012E-01 -1.571364E-01 2.733997E-01 0.0 398 G 0.0 0.0 1.821879E-01 -9.149776E-02 3.570678E-01 0.0 399 G 0.0 0.0 0.0 0.0 3.693891E-01 0.0 442 G 0.0 0.0 5.156363E-01 4.425480E-01 0.0 0.0 443 G 0.0 0.0 5.139745E-01 4.365648E-01 3.209266E-02 0.0 444 G 0.0 0.0 4.577983E-01 4.141146E-01 1.967215E-01 0.0 445 G 0.0 0.0 3.268727E-01 3.418795E-01 3.038136E-01 0.0 446 G 0.0 0.0 1.707309E-01 2.272426E-01 3.192316E-01 0.0 447 G 0.0 0.0 1.791115E-02 1.099232E-01 2.804787E-01 0.0 448 G 0.0 0.0 -1.063586E-01 -7.765651E-04 2.228891E-01 0.0 449 G 0.0 0.0 -2.077743E-01 -9.775409E-02 1.767562E-01 0.0 450 G 0.0 0.0 -2.836938E-01 -1.801844E-01 1.307539E-01 0.0 451 G 0.0 0.0 -3.296814E-01 -2.563620E-01 3.555055E-02 0.0 452 G 0.0 0.0 -3.194545E-01 -3.225942E-01 -6.271624E-02 0.0 453 G 0.0 0.0 -2.751178E-01 -3.645749E-01 -1.202147E-01 0.0 454 G 0.0 0.0 -2.005334E-01 -3.729070E-01 -1.687091E-01 0.0 455 G 0.0 0.0 -1.118156E-01 -3.610242E-01 -1.890607E-01 0.0 456 G 0.0 0.0 -1.807818E-02 -3.499728E-01 -1.800541E-01 0.0 457 G 0.0 0.0 6.514607E-02 -3.391214E-01 -1.578407E-01 0.0 458 G 0.0 0.0 1.332904E-01 -2.934752E-01 -9.742488E-02 0.0 459 G 0.0 0.0 1.569755E-01 -2.154566E-01 -2.453721E-03 0.0 460 G 0.0 0.0 1.365665E-01 -1.381634E-01 8.966821E-02 0.0 461 G 0.0 0.0 7.402887E-02 -6.544403E-02 1.483210E-01 0.0 462 G 0.0 0.0 0.0 0.0 1.481996E-01 0.0 505 G 0.0 0.0 9.758644E-01 1.074777E-01 0.0 0.0 506 G 0.0 0.0 9.363583E-01 9.456564E-02 1.457364E-01 0.0 507 G 0.0 0.0 8.241476E-01 6.508118E-02 3.134233E-01 0.0 508 G 0.0 0.0 6.252720E-01 3.263392E-02 4.652624E-01 0.0 509 G 0.0 0.0 3.752095E-01 3.411601E-03 5.297817E-01 0.0 510 G 0.0 0.0 1.076447E-01 -2.524807E-02 5.247158E-01 0.0 511 G 0.0 0.0 -1.422672E-01 -7.140662E-02 4.703087E-01 0.0 512 G 0.0 0.0 -3.559935E-01 -1.261732E-01 3.711225E-01 0.0 513 G 0.0 0.0 -5.125470E-01 -1.588376E-01 2.630365E-01 0.0 514 G 0.0 0.0 -6.204671E-01 -1.555466E-01 1.576451E-01 0.0 515 G 0.0 0.0 -6.698881E-01 -1.495080E-01 4.200939E-02 0.0 516 G 0.0 0.0 -6.640303E-01 -1.396407E-01 -7.275753E-02 0.0 517 G 0.0 0.0 -5.988918E-01 -1.284202E-01 -1.829108E-01 0.0 518 G 0.0 0.0 -4.873455E-01 -1.117269E-01 -2.637152E-01 0.0 519 G 0.0 0.0 -3.496836E-01 -8.607997E-02 -2.692269E-01 0.0 520 G 0.0 0.0 -2.258259E-01 -5.211807E-02 -2.314810E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -1.194690E-01 -2.602191E-02 -1.852094E-01 0.0 522 G 0.0 0.0 -4.558096E-02 -1.444437E-02 -1.131220E-01 0.0 523 G 0.0 0.0 -5.339085E-03 -1.485255E-02 -4.186428E-02 0.0 524 G 0.0 0.0 2.823182E-03 -8.285612E-03 4.697385E-03 0.0 525 G 0.0 0.0 0.0 0.0 8.613319E-03 0.0 568 G 0.0 0.0 8.599129E-01 -2.550915E-01 0.0 0.0 569 G 0.0 0.0 8.228088E-01 -2.556711E-01 1.527476E-01 0.0 570 G 0.0 0.0 7.007446E-01 -2.400004E-01 3.382485E-01 0.0 571 G 0.0 0.0 4.938181E-01 -2.099142E-01 4.724491E-01 0.0 572 G 0.0 0.0 2.448062E-01 -1.715128E-01 5.155123E-01 0.0 573 G 0.0 0.0 -9.167851E-03 -1.279070E-01 4.866827E-01 0.0 574 G 0.0 0.0 -2.401743E-01 -7.286264E-02 4.416560E-01 0.0 575 G 0.0 0.0 -4.457658E-01 -9.266121E-03 3.633217E-01 0.0 576 G 0.0 0.0 -5.955839E-01 5.136506E-02 2.351030E-01 0.0 577 G 0.0 0.0 -6.813018E-01 9.962150E-02 9.834344E-02 0.0 578 G 0.0 0.0 -6.947220E-01 1.420826E-01 -4.174631E-02 0.0 579 G 0.0 0.0 -6.429155E-01 1.909175E-01 -1.660364E-01 0.0 580 G 0.0 0.0 -5.375182E-01 2.408083E-01 -2.455988E-01 0.0 581 G 0.0 0.0 -4.048407E-01 2.616463E-01 -2.904759E-01 0.0 582 G 0.0 0.0 -2.541252E-01 2.508562E-01 -3.009332E-01 0.0 583 G 0.0 0.0 -1.122450E-01 2.305104E-01 -2.647836E-01 0.0 584 G 0.0 0.0 3.159415E-03 2.015543E-01 -1.846974E-01 0.0 585 G 0.0 0.0 6.649981E-02 1.656101E-01 -6.895881E-02 0.0 586 G 0.0 0.0 7.379157E-02 1.223640E-01 4.397774E-02 0.0 587 G 0.0 0.0 3.739103E-02 6.649689E-02 8.688784E-02 0.0 588 G 0.0 0.0 0.0 0.0 6.943654E-02 0.0 631 G 0.0 0.0 3.155307E-01 -3.972939E-01 0.0 0.0 632 G 0.0 0.0 2.907413E-01 -3.778876E-01 1.011590E-01 0.0 633 G 0.0 0.0 2.120481E-01 -3.407551E-01 2.154293E-01 0.0 634 G 0.0 0.0 8.363371E-02 -2.737280E-01 2.892078E-01 0.0 635 G 0.0 0.0 -6.821727E-02 -1.805058E-01 3.173699E-01 0.0 636 G 0.0 0.0 -2.228495E-01 -9.156756E-02 2.849398E-01 0.0 637 G 0.0 0.0 -3.440380E-01 -1.194178E-02 2.013194E-01 0.0 638 G 0.0 0.0 -4.197208E-01 7.520216E-02 9.491093E-02 0.0 639 G 0.0 0.0 -4.379300E-01 1.643396E-01 -1.576738E-02 0.0 640 G 0.0 0.0 -4.068791E-01 2.489570E-01 -1.110456E-01 0.0 641 G 0.0 0.0 -3.291489E-01 3.211074E-01 -1.933271E-01 0.0 642 G 0.0 0.0 -2.113208E-01 3.679741E-01 -2.862027E-01 0.0 643 G 0.0 0.0 -4.984359E-02 3.873748E-01 -3.429061E-01 0.0 644 G 0.0 0.0 1.180409E-01 3.879782E-01 -3.264237E-01 0.0 645 G 0.0 0.0 2.690142E-01 3.779887E-01 -2.650970E-01 0.0 646 G 0.0 0.0 3.748428E-01 3.501277E-01 -1.574066E-01 0.0 647 G 0.0 0.0 4.208099E-01 2.925734E-01 -2.181914E-02 0.0 648 G 0.0 0.0 3.976461E-01 2.109641E-01 1.077583E-01 0.0 649 G 0.0 0.0 3.149019E-01 1.364610E-01 2.306119E-01 0.0 650 G 0.0 0.0 1.722557E-01 7.202934E-02 3.285619E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 3.525772E-01 0.0 694 G 0.0 0.0 -1.796965E-01 -2.480054E-01 0.0 0.0 695 G 0.0 0.0 -1.839169E-01 -2.223606E-01 2.446092E-02 0.0 696 G 0.0 0.0 -2.118702E-01 -1.838559E-01 9.148522E-02 0.0 697 G 0.0 0.0 -2.640817E-01 -1.382613E-01 1.028049E-01 0.0 698 G 0.0 0.0 -3.044142E-01 -8.830086E-02 6.331491E-02 0.0 699 G 0.0 0.0 -3.229547E-01 -2.650612E-02 6.688237E-03 0.0 700 G 0.0 0.0 -3.049986E-01 4.629669E-02 -7.196634E-02 0.0 701 G 0.0 0.0 -2.490803E-01 1.196593E-01 -1.523116E-01 0.0 702 G 0.0 0.0 -1.524422E-01 1.723585E-01 -2.287266E-01 0.0 703 G 0.0 0.0 -1.949428E-02 2.025678E-01 -3.030539E-01 0.0 704 G 0.0 0.0 1.473636E-01 2.297264E-01 -3.502234E-01 0.0 705 G 0.0 0.0 3.247322E-01 2.531635E-01 -3.570881E-01 0.0 706 G 0.0 0.0 4.982671E-01 2.556896E-01 -3.272813E-01 0.0 707 G 0.0 0.0 6.456497E-01 2.386246E-01 -2.618441E-01 0.0 708 G 0.0 0.0 7.550175E-01 2.064510E-01 -1.684503E-01 0.0 709 G 0.0 0.0 8.079048E-01 1.671321E-01 -4.358773E-02 0.0 710 G 0.0 0.0 7.892155E-01 1.327771E-01 1.278119E-01 0.0 711 G 0.0 0.0 6.795428E-01 1.047660E-01 2.987819E-01 0.0 712 G 0.0 0.0 4.977604E-01 7.589971E-02 4.246591E-01 0.0 713 G 0.0 0.0 2.609174E-01 3.998490E-02 5.082230E-01 0.0 714 G 0.0 0.0 0.0 0.0 5.277991E-01 0.0 757 G 0.0 0.0 -2.991401E-01 3.809987E-02 0.0 0.0 758 G 0.0 0.0 -2.925365E-01 3.176709E-02 -2.418576E-02 0.0 759 G 0.0 0.0 -2.826328E-01 4.157759E-02 -8.052646E-03 0.0 760 G 0.0 0.0 -2.816221E-01 6.949490E-02 -3.218064E-03 0.0 761 G 0.0 0.0 -2.721885E-01 9.262398E-02 -3.278367E-02 0.0 762 G 0.0 0.0 -2.425298E-01 1.049089E-01 -9.059940E-02 0.0 763 G 0.0 0.0 -1.767132E-01 1.026376E-01 -1.669784E-01 0.0 764 G 0.0 0.0 -7.509126E-02 8.713911E-02 -2.381439E-01 0.0 765 G 0.0 0.0 5.490436E-02 6.564796E-02 -2.671287E-01 0.0 766 G 0.0 0.0 1.901050E-01 3.860410E-02 -2.774025E-01 0.0 767 G 0.0 0.0 3.338687E-01 -3.408760E-04 -2.893795E-01 0.0 768 G 0.0 0.0 4.750501E-01 -5.332866E-02 -2.753634E-01 0.0 769 G 0.0 0.0 6.052728E-01 -1.086545E-01 -2.378476E-01 0.0 770 G 0.0 0.0 7.082080E-01 -1.482598E-01 -1.716056E-01 0.0 771 G 0.0 0.0 7.698159E-01 -1.682094E-01 -6.736707E-02 0.0 772 G 0.0 0.0 7.719504E-01 -1.847636E-01 5.094643E-02 0.0 773 G 0.0 0.0 7.178863E-01 -1.947371E-01 1.678985E-01 0.0 774 G 0.0 0.0 6.038629E-01 -1.785709E-01 2.808038E-01 0.0 775 G 0.0 0.0 4.388445E-01 -1.379332E-01 3.783803E-01 0.0 776 G 0.0 0.0 2.293813E-01 -7.671046E-02 4.476456E-01 0.0 777 G 0.0 0.0 0.0 0.0 4.631972E-01 0.0 820 G 0.0 0.0 -1.139963E-01 2.043701E-01 0.0 0.0 821 G 0.0 0.0 -1.061780E-01 1.979165E-01 -2.355918E-02 0.0 822 G 0.0 0.0 -9.652528E-02 1.868756E-01 -1.333833E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.520440E+04 (CYCLIC FREQUENCY = 1.148168E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 -9.157091E-02 1.795475E-01 -1.078000E-02 0.0 824 G 0.0 0.0 -8.309548E-02 1.594344E-01 -1.991034E-02 0.0 825 G 0.0 0.0 -6.980627E-02 1.323105E-01 -3.654023E-02 0.0 826 G 0.0 0.0 -4.629529E-02 8.953051E-02 -5.376557E-02 0.0 827 G 0.0 0.0 -1.556657E-02 3.380271E-02 -7.325684E-02 0.0 828 G 0.0 0.0 2.658372E-02 -5.426179E-02 -8.825085E-02 0.0 829 G 0.0 0.0 7.214565E-02 -1.447949E-01 -9.652904E-02 0.0 830 G 0.0 0.0 1.217542E-01 -2.360442E-01 -9.421692E-02 0.0 831 G 0.0 0.0 1.636482E-01 -3.170929E-01 -7.457509E-02 0.0 832 G 0.0 0.0 1.959010E-01 -3.872012E-01 -5.037510E-02 0.0 833 G 0.0 0.0 2.174725E-01 -4.374642E-01 -4.577809E-02 0.0 834 G 0.0 0.0 2.392580E-01 -4.712594E-01 -3.011088E-02 0.0 835 G 0.0 0.0 2.423949E-01 -4.719293E-01 1.496962E-02 0.0 836 G 0.0 0.0 2.254599E-01 -4.383324E-01 5.534539E-02 0.0 837 G 0.0 0.0 1.878636E-01 -3.615251E-01 9.021574E-02 0.0 838 G 0.0 0.0 1.355486E-01 -2.588262E-01 1.205999E-01 0.0 839 G 0.0 0.0 6.901411E-02 -1.330947E-01 1.385747E-01 0.0 840 G 0.0 0.0 0.0 0.0 1.366237E-01 0.0 841 G 0.0 0.0 0.0 2.414977E-01 0.0 0.0 842 G 0.0 0.0 0.0 2.201813E-01 0.0 0.0 843 G 0.0 0.0 0.0 1.972373E-01 0.0 0.0 844 G 0.0 0.0 0.0 1.862559E-01 0.0 0.0 845 G 0.0 0.0 0.0 1.682119E-01 0.0 0.0 846 G 0.0 0.0 0.0 1.431339E-01 0.0 0.0 847 G 0.0 0.0 0.0 9.157395E-02 0.0 0.0 848 G 0.0 0.0 0.0 2.941835E-02 0.0 0.0 849 G 0.0 0.0 0.0 -5.507758E-02 0.0 0.0 850 G 0.0 0.0 0.0 -1.433816E-01 0.0 0.0 851 G 0.0 0.0 0.0 -2.479546E-01 0.0 0.0 852 G 0.0 0.0 0.0 -3.304095E-01 0.0 0.0 853 G 0.0 0.0 0.0 -3.948571E-01 0.0 0.0 854 G 0.0 0.0 0.0 -4.305553E-01 0.0 0.0 855 G 0.0 0.0 0.0 -4.814348E-01 0.0 0.0 856 G 0.0 0.0 0.0 -4.875450E-01 0.0 0.0 857 G 0.0 0.0 0.0 -4.559911E-01 0.0 0.0 858 G 0.0 0.0 0.0 -3.803999E-01 0.0 0.0 859 G 0.0 0.0 0.0 -2.771497E-01 0.0 0.0 860 G 0.0 0.0 0.0 -1.397233E-01 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 1.397587E-01 0.0 0.0 2 G 0.0 0.0 0.0 7.729933E-02 0.0 0.0 3 G 0.0 0.0 0.0 -2.800046E-02 0.0 0.0 4 G 0.0 0.0 0.0 8.038577E-03 0.0 0.0 5 G 0.0 0.0 0.0 -2.271178E-02 0.0 0.0 6 G 0.0 0.0 0.0 -8.699399E-02 0.0 0.0 7 G 0.0 0.0 0.0 -2.271701E-01 0.0 0.0 8 G 0.0 0.0 0.0 -1.365056E-01 0.0 0.0 9 G 0.0 0.0 0.0 -1.019847E-01 0.0 0.0 10 G 0.0 0.0 0.0 -7.454637E-03 0.0 0.0 11 G 0.0 0.0 0.0 7.066049E-02 0.0 0.0 12 G 0.0 0.0 0.0 1.523725E-01 0.0 0.0 13 G 0.0 0.0 0.0 1.663858E-01 0.0 0.0 14 G 0.0 0.0 0.0 2.739400E-01 0.0 0.0 15 G 0.0 0.0 0.0 3.658626E-01 0.0 0.0 16 G 0.0 0.0 0.0 4.379161E-01 0.0 0.0 17 G 0.0 0.0 0.0 3.471570E-01 0.0 0.0 18 G 0.0 0.0 0.0 3.051177E-01 0.0 0.0 19 G 0.0 0.0 0.0 2.709591E-01 0.0 0.0 20 G 0.0 0.0 0.0 2.732781E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 1.837977E-01 4.759255E-02 0.0 0.0 65 G 0.0 0.0 1.532257E-01 5.305983E-02 1.320686E-01 0.0 66 G 0.0 0.0 8.371036E-02 5.341918E-02 1.087885E-01 0.0 67 G 0.0 0.0 5.755448E-02 3.521908E-02 1.907531E-02 0.0 68 G 0.0 0.0 5.907938E-02 7.907707E-04 -3.854670E-02 0.0 69 G 0.0 0.0 6.263065E-02 -1.315238E-02 8.298620E-02 0.0 70 G 0.0 0.0 -1.647780E-02 -1.212155E-04 1.744745E-01 0.0 71 G 0.0 0.0 -7.623853E-02 9.528949E-04 7.943017E-02 0.0 72 G 0.0 0.0 -9.461862E-02 -2.766042E-02 -3.661635E-02 0.0 73 G 0.0 0.0 -3.676880E-02 -4.105286E-02 -1.716873E-01 0.0 74 G 0.0 0.0 7.136843E-02 3.870771E-02 -2.637397E-01 0.0 75 G 0.0 0.0 2.028526E-01 1.899932E-01 -2.235204E-01 0.0 76 G 0.0 0.0 2.881094E-01 2.689704E-01 -1.631917E-01 0.0 77 G 0.0 0.0 3.691186E-01 2.464609E-01 -1.317021E-01 0.0 78 G 0.0 0.0 4.168673E-01 2.282584E-01 -8.242729E-02 0.0 79 G 0.0 0.0 4.452392E-01 2.056753E-01 -8.015884E-04 0.0 80 G 0.0 0.0 4.047300E-01 1.900486E-01 1.415733E-01 0.0 81 G 0.0 0.0 3.056214E-01 1.690512E-01 2.683921E-01 0.0 82 G 0.0 0.0 1.717748E-01 1.128360E-01 2.046606E-01 0.0 83 G 0.0 0.0 9.957087E-02 3.652987E-02 1.414251E-01 0.0 84 G 0.0 0.0 0.0 0.0 2.413460E-01 0.0 127 G 0.0 0.0 2.620242E-01 1.391385E-01 0.0 0.0 128 G 0.0 0.0 2.154011E-01 1.351685E-01 1.740175E-01 0.0 129 G 0.0 0.0 1.349933E-01 1.287151E-01 1.283146E-01 0.0 130 G 0.0 0.0 7.231366E-02 1.560111E-01 1.653102E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -3.956866E-02 9.298961E-02 2.375834E-01 0.0 132 G 0.0 0.0 -1.560760E-01 -5.196670E-02 2.501973E-01 0.0 133 G 0.0 0.0 -2.750302E-01 -1.623905E-01 1.935244E-01 0.0 134 G 0.0 0.0 -3.360025E-01 -2.264082E-01 7.429148E-02 0.0 135 G 0.0 0.0 -3.511778E-01 -2.417417E-01 -3.435917E-02 0.0 136 G 0.0 0.0 -3.016343E-01 -2.221681E-01 -1.416403E-01 0.0 137 G 0.0 0.0 -1.852847E-01 -2.165325E-01 -3.742118E-01 0.0 138 G 0.0 0.0 5.741655E-02 -2.222345E-01 -5.302730E-01 0.0 139 G 0.0 0.0 3.023066E-01 -1.992842E-01 -4.584888E-01 0.0 140 G 0.0 0.0 5.081480E-01 -1.197076E-01 -3.263769E-01 0.0 141 G 0.0 0.0 6.192498E-01 -3.934305E-02 -1.358057E-01 0.0 142 G 0.0 0.0 6.437830E-01 -3.329629E-02 4.592048E-02 0.0 143 G 0.0 0.0 5.929725E-01 -9.309661E-02 1.194003E-01 0.0 144 G 0.0 0.0 5.281769E-01 -8.189698E-02 1.867609E-01 0.0 145 G 0.0 0.0 4.006986E-01 -9.992760E-03 2.923062E-01 0.0 146 G 0.0 0.0 2.341636E-01 1.100052E-02 3.955950E-01 0.0 147 G 0.0 0.0 0.0 0.0 5.098188E-01 0.0 190 G 0.0 0.0 5.149546E-01 -2.795574E-02 0.0 0.0 191 G 0.0 0.0 4.222712E-01 5.186056E-02 3.259500E-01 0.0 192 G 0.0 0.0 2.503726E-01 7.269472E-02 3.100739E-01 0.0 193 G 0.0 0.0 1.113137E-01 5.499882E-03 2.792329E-01 0.0 194 G 0.0 0.0 -5.050144E-02 -7.329109E-02 3.656953E-01 0.0 195 G 0.0 0.0 -2.466742E-01 -1.341216E-01 4.297961E-01 0.0 196 G 0.0 0.0 -4.610329E-01 -1.548588E-01 3.986305E-01 0.0 197 G 0.0 0.0 -6.204473E-01 -2.158992E-01 2.309995E-01 0.0 198 G 0.0 0.0 -6.714355E-01 -2.951786E-01 -4.274448E-02 0.0 199 G 0.0 0.0 -5.833120E-01 -3.337116E-01 -2.717756E-01 0.0 200 G 0.0 0.0 -4.133997E-01 -2.561322E-01 -4.203210E-01 0.0 201 G 0.0 0.0 -1.750052E-01 -2.045273E-01 -5.114638E-01 0.0 202 G 0.0 0.0 7.934143E-02 -1.667134E-01 -5.083479E-01 0.0 203 G 0.0 0.0 3.209715E-01 -1.451360E-01 -4.409525E-01 0.0 204 G 0.0 0.0 5.076072E-01 -1.222350E-01 -3.087064E-01 0.0 205 G 0.0 0.0 6.108277E-01 -7.196645E-02 -7.539816E-02 0.0 206 G 0.0 0.0 5.898747E-01 -1.344584E-02 1.305275E-01 0.0 207 G 0.0 0.0 4.998693E-01 1.855670E-02 2.316789E-01 0.0 208 G 0.0 0.0 3.589543E-01 1.391216E-02 3.132461E-01 0.0 209 G 0.0 0.0 1.915424E-01 1.068539E-03 3.607910E-01 0.0 210 G 0.0 0.0 0.0 0.0 3.996646E-01 0.0 253 G 0.0 0.0 7.793490E-01 2.179830E-01 0.0 0.0 254 G 0.0 0.0 7.073013E-01 1.750642E-01 2.774232E-01 0.0 255 G 0.0 0.0 5.272287E-01 1.578110E-01 4.198197E-01 0.0 256 G 0.0 0.0 2.914556E-01 1.212297E-01 5.340259E-01 0.0 257 G 0.0 0.0 -2.451017E-03 7.322033E-02 6.193026E-01 0.0 258 G 0.0 0.0 -3.087958E-01 1.947196E-02 6.018798E-01 0.0 259 G 0.0 0.0 -5.830498E-01 -2.653168E-02 4.703335E-01 0.0 260 G 0.0 0.0 -7.748693E-01 -4.274078E-02 3.146502E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 -8.851699E-01 -3.457057E-02 9.399660E-02 0.0 262 G 0.0 0.0 -8.559129E-01 -3.121587E-02 -1.982412E-01 0.0 263 G 0.0 0.0 -7.015201E-01 -5.217263E-02 -4.252948E-01 0.0 264 G 0.0 0.0 -4.488854E-01 -7.576653E-02 -5.624992E-01 0.0 265 G 0.0 0.0 -1.600424E-01 -6.358027E-02 -5.845746E-01 0.0 266 G 0.0 0.0 1.099510E-01 -2.015891E-02 -4.698308E-01 0.0 267 G 0.0 0.0 2.984623E-01 -1.150853E-02 -3.046438E-01 0.0 268 G 0.0 0.0 4.145536E-01 -3.993864E-02 -1.460309E-01 0.0 269 G 0.0 0.0 4.475815E-01 -5.104690E-02 6.750988E-04 0.0 270 G 0.0 0.0 4.191850E-01 -4.664211E-02 1.260887E-01 0.0 271 G 0.0 0.0 3.241456E-01 -2.950032E-02 2.426137E-01 0.0 272 G 0.0 0.0 1.827197E-01 -8.270524E-03 3.304906E-01 0.0 273 G 0.0 0.0 0.0 0.0 3.908430E-01 0.0 316 G 0.0 0.0 9.743458E-01 8.359519E-02 0.0 0.0 317 G 0.0 0.0 8.928778E-01 9.686083E-02 3.159442E-01 0.0 318 G 0.0 0.0 6.848331E-01 9.479697E-02 4.939234E-01 0.0 319 G 0.0 0.0 4.113975E-01 8.078873E-02 6.043793E-01 0.0 320 G 0.0 0.0 8.962902E-02 9.295925E-02 6.681700E-01 0.0 321 G 0.0 0.0 -2.485563E-01 1.327392E-01 6.870337E-01 0.0 322 G 0.0 0.0 -5.756229E-01 1.341025E-01 5.805871E-01 0.0 323 G 0.0 0.0 -8.054101E-01 9.805854E-02 3.409475E-01 0.0 324 G 0.0 0.0 -9.058961E-01 7.777439E-02 4.573884E-02 0.0 325 G 0.0 0.0 -8.549247E-01 6.979367E-02 -2.292861E-01 0.0 326 G 0.0 0.0 -6.948541E-01 7.013185E-02 -4.112744E-01 0.0 327 G 0.0 0.0 -4.614027E-01 7.554374E-02 -5.012826E-01 0.0 328 G 0.0 0.0 -1.979872E-01 7.159068E-02 -5.705244E-01 0.0 329 G 0.0 0.0 8.942316E-02 5.304620E-02 -5.415862E-01 0.0 330 G 0.0 0.0 3.170203E-01 4.548042E-02 -3.718413E-01 0.0 331 G 0.0 0.0 4.591482E-01 5.330335E-02 -1.817262E-01 0.0 332 G 0.0 0.0 5.001317E-01 6.882571E-02 6.332760E-03 0.0 333 G 0.0 0.0 4.580439E-01 4.807772E-02 1.649705E-01 0.0 334 G 0.0 0.0 3.470397E-01 -6.882819E-04 2.628726E-01 0.0 335 G 0.0 0.0 1.991006E-01 -2.895538E-02 3.492902E-01 0.0 336 G 0.0 0.0 0.0 0.0 4.274434E-01 0.0 379 G 0.0 0.0 9.439685E-01 -1.235406E-01 0.0 0.0 380 G 0.0 0.0 8.724757E-01 -1.126864E-01 2.740603E-01 0.0 381 G 0.0 0.0 6.891168E-01 -8.708192E-02 4.500164E-01 0.0 382 G 0.0 0.0 4.301181E-01 -4.866858E-02 5.868328E-01 0.0 383 G 0.0 0.0 1.215457E-01 -1.668337E-02 6.189849E-01 0.0 384 G 0.0 0.0 -1.750904E-01 9.435327E-03 5.726278E-01 0.0 385 G 0.0 0.0 -4.408163E-01 4.305171E-02 4.719018E-01 0.0 386 G 0.0 0.0 -6.271117E-01 8.852690E-02 2.737879E-01 0.0 387 G 0.0 0.0 -7.055373E-01 1.251998E-01 3.036273E-02 0.0 388 G 0.0 0.0 -6.582618E-01 1.299149E-01 -2.136474E-01 0.0 389 G 0.0 0.0 -4.969641E-01 1.071544E-01 -4.332968E-01 0.0 390 G 0.0 0.0 -2.418995E-01 1.042571E-01 -5.583263E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 3.920920E-02 1.237272E-01 -5.623534E-01 0.0 392 G 0.0 0.0 3.023221E-01 1.323749E-01 -4.729331E-01 0.0 393 G 0.0 0.0 5.001026E-01 1.287742E-01 -3.226950E-01 0.0 394 G 0.0 0.0 6.223184E-01 1.148471E-01 -1.578761E-01 0.0 395 G 0.0 0.0 6.574679E-01 9.486325E-02 9.939399E-03 0.0 396 G 0.0 0.0 6.056818E-01 8.277683E-02 2.130024E-01 0.0 397 G 0.0 0.0 4.519273E-01 7.429536E-02 3.785143E-01 0.0 398 G 0.0 0.0 2.437601E-01 5.109717E-02 4.563605E-01 0.0 399 G 0.0 0.0 0.0 0.0 5.043639E-01 0.0 442 G 0.0 0.0 6.771307E-01 -2.836755E-01 0.0 0.0 443 G 0.0 0.0 6.013056E-01 -2.830797E-01 2.693660E-01 0.0 444 G 0.0 0.0 4.476852E-01 -2.756925E-01 3.319759E-01 0.0 445 G 0.0 0.0 2.732136E-01 -2.204754E-01 3.820065E-01 0.0 446 G 0.0 0.0 6.565172E-02 -1.257875E-01 4.355606E-01 0.0 447 G 0.0 0.0 -1.527524E-01 -3.901980E-02 4.373934E-01 0.0 448 G 0.0 0.0 -3.553784E-01 3.023760E-02 3.524700E-01 0.0 449 G 0.0 0.0 -4.860449E-01 7.585147E-02 1.682315E-01 0.0 450 G 0.0 0.0 -5.142722E-01 1.001694E-01 -6.444385E-02 0.0 451 G 0.0 0.0 -4.322094E-01 1.174167E-01 -2.413263E-01 0.0 452 G 0.0 0.0 -2.809297E-01 1.277124E-01 -3.746275E-01 0.0 453 G 0.0 0.0 -6.302746E-02 1.184496E-01 -4.802605E-01 0.0 454 G 0.0 0.0 1.807006E-01 8.287033E-02 -4.939710E-01 0.0 455 G 0.0 0.0 4.156144E-01 4.151259E-02 -4.296642E-01 0.0 456 G 0.0 0.0 5.981030E-01 2.316506E-02 -2.966383E-01 0.0 457 G 0.0 0.0 7.003675E-01 2.869353E-02 -9.893557E-02 0.0 458 G 0.0 0.0 6.962879E-01 1.527829E-02 9.693295E-02 0.0 459 G 0.0 0.0 6.098738E-01 -1.598939E-02 2.528573E-01 0.0 460 G 0.0 0.0 4.502821E-01 -2.827563E-02 3.719344E-01 0.0 461 G 0.0 0.0 2.445762E-01 -2.197773E-02 4.554422E-01 0.0 462 G 0.0 0.0 0.0 0.0 5.101406E-01 0.0 505 G 0.0 0.0 2.363326E-01 -2.353498E-01 0.0 0.0 506 G 0.0 0.0 2.030032E-01 -2.170362E-01 1.453602E-01 0.0 507 G 0.0 0.0 1.062381E-01 -1.740391E-01 2.205892E-01 0.0 508 G 0.0 0.0 -5.717078E-03 -1.247865E-01 2.348684E-01 0.0 509 G 0.0 0.0 -1.292774E-01 -7.946217E-02 2.501268E-01 0.0 510 G 0.0 0.0 -2.496802E-01 -3.778055E-02 2.344585E-01 0.0 511 G 0.0 0.0 -3.529499E-01 1.956508E-02 1.693749E-01 0.0 512 G 0.0 0.0 -4.118385E-01 7.970064E-02 7.095057E-02 0.0 513 G 0.0 0.0 -4.160581E-01 1.042899E-01 -7.095408E-02 0.0 514 G 0.0 0.0 -3.379914E-01 7.706496E-02 -2.299024E-01 0.0 515 G 0.0 0.0 -1.931852E-01 4.076999E-02 -3.487313E-01 0.0 516 G 0.0 0.0 -6.920130E-04 -2.433792E-03 -4.051149E-01 0.0 517 G 0.0 0.0 1.962052E-01 -4.516277E-02 -3.784600E-01 0.0 518 G 0.0 0.0 3.657466E-01 -8.779278E-02 -2.881122E-01 0.0 519 G 0.0 0.0 4.836897E-01 -1.302702E-01 -1.949368E-01 0.0 520 G 0.0 0.0 5.558228E-01 -1.684887E-01 -7.904656E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 5.562256E-01 -1.808601E-01 7.151479E-02 0.0 522 G 0.0 0.0 4.897038E-01 -1.592756E-01 1.988864E-01 0.0 523 G 0.0 0.0 3.628501E-01 -1.087666E-01 2.984922E-01 0.0 524 G 0.0 0.0 1.962569E-01 -5.616134E-02 3.678328E-01 0.0 525 G 0.0 0.0 0.0 0.0 4.076125E-01 0.0 568 G 0.0 0.0 -3.822313E-03 -5.536036E-02 0.0 0.0 569 G 0.0 0.0 -2.783631E-02 -4.139053E-02 8.825713E-02 0.0 570 G 0.0 0.0 -7.738858E-02 -2.216334E-02 9.942615E-02 0.0 571 G 0.0 0.0 -1.259025E-01 5.083040E-04 1.045224E-01 0.0 572 G 0.0 0.0 -1.854683E-01 2.790565E-02 1.304701E-01 0.0 573 G 0.0 0.0 -2.535690E-01 5.632450E-02 1.449790E-01 0.0 574 G 0.0 0.0 -3.155889E-01 7.025437E-02 8.535585E-02 0.0 575 G 0.0 0.0 -3.318128E-01 6.590211E-02 -8.929344E-03 0.0 576 G 0.0 0.0 -3.085974E-01 5.144057E-02 -8.873133E-02 0.0 577 G 0.0 0.0 -2.414492E-01 3.450566E-02 -1.697693E-01 0.0 578 G 0.0 0.0 -1.434296E-01 5.556891E-03 -2.229911E-01 0.0 579 G 0.0 0.0 -2.563727E-02 -4.943521E-02 -2.410209E-01 0.0 580 G 0.0 0.0 9.320924E-02 -1.211361E-01 -2.376370E-01 0.0 581 G 0.0 0.0 2.045263E-01 -1.685331E-01 -1.912399E-01 0.0 582 G 0.0 0.0 2.775447E-01 -1.836301E-01 -1.055520E-01 0.0 583 G 0.0 0.0 3.082174E-01 -1.887208E-01 -1.195489E-02 0.0 584 G 0.0 0.0 2.919640E-01 -1.811624E-01 6.671122E-02 0.0 585 G 0.0 0.0 2.484307E-01 -1.605138E-01 1.091210E-01 0.0 586 G 0.0 0.0 1.868160E-01 -1.255791E-01 1.304878E-01 0.0 587 G 0.0 0.0 1.111985E-01 -7.060609E-02 1.858540E-01 0.0 588 G 0.0 0.0 0.0 0.0 2.452372E-01 0.0 631 G 0.0 0.0 7.219657E-02 1.118855E-01 0.0 0.0 632 G 0.0 0.0 5.790259E-02 1.063730E-01 5.313951E-02 0.0 633 G 0.0 0.0 2.715142E-02 1.137781E-01 6.312025E-02 0.0 634 G 0.0 0.0 -5.675691E-03 1.140020E-01 7.244445E-02 0.0 635 G 0.0 0.0 -4.353238E-02 1.035555E-01 7.202978E-02 0.0 636 G 0.0 0.0 -7.726584E-02 1.098494E-01 7.478369E-02 0.0 637 G 0.0 0.0 -1.167435E-01 1.285312E-01 7.460402E-02 0.0 638 G 0.0 0.0 -1.475447E-01 1.290624E-01 5.215367E-02 0.0 639 G 0.0 0.0 -1.648176E-01 1.098106E-01 7.836308E-03 0.0 640 G 0.0 0.0 -1.517202E-01 7.276174E-02 -5.519557E-02 0.0 641 G 0.0 0.0 -1.120052E-01 2.451277E-02 -1.068303E-01 0.0 642 G 0.0 0.0 -5.719452E-02 -1.948777E-02 -9.525263E-02 0.0 643 G 0.0 0.0 -2.084665E-02 -5.422145E-02 -6.230453E-02 0.0 644 G 0.0 0.0 8.128864E-03 -8.600681E-02 -4.792700E-02 0.0 645 G 0.0 0.0 2.386958E-02 -1.195113E-01 -2.299611E-02 0.0 646 G 0.0 0.0 3.179306E-02 -1.403027E-01 -4.777689E-03 0.0 647 G 0.0 0.0 3.047994E-02 -1.290352E-01 6.338637E-03 0.0 648 G 0.0 0.0 2.445260E-02 -8.894598E-02 2.478602E-02 0.0 649 G 0.0 0.0 8.843838E-03 -5.601837E-02 2.450388E-02 0.0 650 G 0.0 0.0 3.387646E-03 -3.333531E-02 4.914406E-03 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 1.071265E-02 0.0 694 G 0.0 0.0 2.336484E-01 1.051717E-01 0.0 0.0 695 G 0.0 0.0 2.198629E-01 8.833448E-02 4.522938E-02 0.0 696 G 0.0 0.0 2.013329E-01 8.309876E-02 2.203224E-02 0.0 697 G 0.0 0.0 1.904196E-01 9.171043E-02 3.685334E-02 0.0 698 G 0.0 0.0 1.602651E-01 1.101912E-01 7.522447E-02 0.0 699 G 0.0 0.0 1.186616E-01 1.205729E-01 9.413835E-02 0.0 700 G 0.0 0.0 6.669726E-02 1.146363E-01 1.048123E-01 0.0 701 G 0.0 0.0 1.735646E-02 9.670086E-02 9.412067E-02 0.0 702 G 0.0 0.0 -2.507421E-02 8.605134E-02 7.170233E-02 0.0 703 G 0.0 0.0 -5.645288E-02 8.081020E-02 5.858775E-02 0.0 704 G 0.0 0.0 -8.439966E-02 5.601108E-02 4.226501E-02 0.0 705 G 0.0 0.0 -9.912167E-02 1.408973E-02 2.123197E-02 0.0 706 G 0.0 0.0 -1.077289E-01 -1.996454E-02 8.524075E-03 0.0 707 G 0.0 0.0 -1.100339E-01 -4.218303E-02 6.509195E-03 0.0 708 G 0.0 0.0 -1.171798E-01 -5.183384E-02 1.774814E-02 0.0 709 G 0.0 0.0 -1.270061E-01 -5.280056E-02 2.401019E-02 0.0 710 G 0.0 0.0 -1.331083E-01 -5.525508E-02 -1.231358E-02 0.0 711 G 0.0 0.0 -1.134751E-01 -5.809561E-02 -5.563900E-02 0.0 712 G 0.0 0.0 -8.198377E-02 -5.185139E-02 -7.273656E-02 0.0 713 G 0.0 0.0 -4.039542E-02 -3.030048E-02 -8.486828E-02 0.0 714 G 0.0 0.0 0.0 0.0 -7.741397E-02 0.0 757 G 0.0 0.0 2.320774E-01 -5.144219E-02 0.0 0.0 758 G 0.0 0.0 2.206617E-01 -3.781077E-02 4.284566E-02 0.0 759 G 0.0 0.0 2.004685E-01 -3.331979E-02 2.870332E-02 0.0 760 G 0.0 0.0 1.918534E-01 -4.378350E-02 1.445107E-02 0.0 761 G 0.0 0.0 1.815370E-01 -4.628006E-02 2.490470E-02 0.0 762 G 0.0 0.0 1.638037E-01 -3.925052E-02 5.267225E-02 0.0 763 G 0.0 0.0 1.268878E-01 -2.380117E-02 8.977697E-02 0.0 764 G 0.0 0.0 7.613279E-02 -6.011785E-03 1.143639E-01 0.0 765 G 0.0 0.0 2.130933E-02 2.835076E-03 9.081884E-02 0.0 766 G 0.0 0.0 -1.363609E-02 2.293437E-03 5.828658E-02 0.0 767 G 0.0 0.0 -4.225613E-02 2.871509E-03 5.141938E-02 0.0 768 G 0.0 0.0 -6.467735E-02 1.230282E-02 4.368468E-02 0.0 769 G 0.0 0.0 -8.714876E-02 2.309983E-02 4.169007E-02 0.0 770 G 0.0 0.0 -1.068532E-01 2.075988E-02 3.806714E-02 0.0 771 G 0.0 0.0 -1.220913E-01 7.694304E-03 1.582284E-02 0.0 772 G 0.0 0.0 -1.222445E-01 9.573271E-03 -5.618628E-03 0.0 773 G 0.0 0.0 -1.171695E-01 2.600379E-02 -2.017133E-02 0.0 774 G 0.0 0.0 -1.013449E-01 3.371276E-02 -3.867456E-02 0.0 775 G 0.0 0.0 -7.779995E-02 3.232881E-02 -6.095205E-02 0.0 776 G 0.0 0.0 -4.033800E-02 2.143409E-02 -8.242602E-02 0.0 777 G 0.0 0.0 0.0 0.0 -7.950916E-02 0.0 820 G 0.0 0.0 8.860560E-02 -1.526812E-01 0.0 0.0 821 G 0.0 0.0 7.930569E-02 -1.450671E-01 2.779186E-02 0.0 822 G 0.0 0.0 6.869441E-02 -1.332453E-01 1.262601E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.569146E+04 (CYCLIC FREQUENCY = 1.200693E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 6.593478E-02 -1.297346E-01 3.824010E-03 0.0 824 G 0.0 0.0 6.265743E-02 -1.177550E-01 5.666342E-03 0.0 825 G 0.0 0.0 5.906377E-02 -1.079722E-01 1.324175E-02 0.0 826 G 0.0 0.0 4.999958E-02 -9.280272E-02 1.920925E-02 0.0 827 G 0.0 0.0 3.983987E-02 -7.706241E-02 2.748030E-02 0.0 828 G 0.0 0.0 2.307791E-02 -3.644432E-02 3.218810E-02 0.0 829 G 0.0 0.0 7.877227E-03 -4.337030E-03 3.318911E-02 0.0 830 G 0.0 0.0 -9.394296E-03 2.267341E-02 2.807644E-02 0.0 831 G 0.0 0.0 -1.823459E-02 3.881899E-02 1.029454E-02 0.0 832 G 0.0 0.0 -2.075583E-02 5.197006E-02 -3.855207E-03 0.0 833 G 0.0 0.0 -2.020871E-02 6.015144E-02 1.466481E-02 0.0 834 G 0.0 0.0 -3.387889E-02 7.533851E-02 2.669818E-02 0.0 835 G 0.0 0.0 -4.158491E-02 8.285807E-02 7.112588E-03 0.0 836 G 0.0 0.0 -4.289408E-02 8.393854E-02 -5.858739E-03 0.0 837 G 0.0 0.0 -3.657426E-02 6.669930E-02 -1.499835E-02 0.0 838 G 0.0 0.0 -2.751640E-02 4.768774E-02 -2.515307E-02 0.0 839 G 0.0 0.0 -1.230205E-02 2.251767E-02 -2.961963E-02 0.0 840 G 0.0 0.0 0.0 0.0 -2.117658E-02 0.0 841 G 0.0 0.0 0.0 -1.910719E-01 0.0 0.0 842 G 0.0 0.0 0.0 -1.657682E-01 0.0 0.0 843 G 0.0 0.0 0.0 -1.407838E-01 0.0 0.0 844 G 0.0 0.0 0.0 -1.350229E-01 0.0 0.0 845 G 0.0 0.0 0.0 -1.284889E-01 0.0 0.0 846 G 0.0 0.0 0.0 -1.246567E-01 0.0 0.0 847 G 0.0 0.0 0.0 -1.025405E-01 0.0 0.0 848 G 0.0 0.0 0.0 -8.282925E-02 0.0 0.0 849 G 0.0 0.0 0.0 -5.031929E-02 0.0 0.0 850 G 0.0 0.0 0.0 -2.431987E-02 0.0 0.0 851 G 0.0 0.0 0.0 1.615963E-02 0.0 0.0 852 G 0.0 0.0 0.0 3.197506E-02 0.0 0.0 853 G 0.0 0.0 0.0 3.706942E-02 0.0 0.0 854 G 0.0 0.0 0.0 2.732697E-02 0.0 0.0 855 G 0.0 0.0 0.0 6.431609E-02 0.0 0.0 856 G 0.0 0.0 0.0 8.046076E-02 0.0 0.0 857 G 0.0 0.0 0.0 8.699314E-02 0.0 0.0 858 G 0.0 0.0 0.0 7.505074E-02 0.0 0.0 859 G 0.0 0.0 0.0 5.986437E-02 0.0 0.0 860 G 0.0 0.0 0.0 2.538710E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 4.042747E-01 0.0 0.0 2 G 0.0 0.0 0.0 4.842463E-01 0.0 0.0 3 G 0.0 0.0 0.0 5.670075E-01 0.0 0.0 4 G 0.0 0.0 0.0 3.044425E-01 0.0 0.0 5 G 0.0 0.0 0.0 1.418283E-01 0.0 0.0 6 G 0.0 0.0 0.0 4.805021E-02 0.0 0.0 7 G 0.0 0.0 0.0 1.422559E-01 0.0 0.0 8 G 0.0 0.0 0.0 -1.592629E-01 0.0 0.0 9 G 0.0 0.0 0.0 -2.651491E-01 0.0 0.0 10 G 0.0 0.0 0.0 -4.012691E-01 0.0 0.0 11 G 0.0 0.0 0.0 -4.225115E-01 0.0 0.0 12 G 0.0 0.0 0.0 -3.887874E-01 0.0 0.0 13 G 0.0 0.0 0.0 -1.877174E-01 0.0 0.0 14 G 0.0 0.0 0.0 -1.765452E-01 0.0 0.0 15 G 0.0 0.0 0.0 -1.726436E-01 0.0 0.0 16 G 0.0 0.0 0.0 -1.975144E-01 0.0 0.0 17 G 0.0 0.0 0.0 1.380915E-02 0.0 0.0 18 G 0.0 0.0 0.0 3.155410E-02 0.0 0.0 19 G 0.0 0.0 0.0 -5.582844E-02 0.0 0.0 20 G 0.0 0.0 0.0 -2.845031E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 5.860909E-01 4.363194E-01 0.0 0.0 65 G 0.0 0.0 5.822015E-01 3.861369E-01 -6.655831E-03 0.0 66 G 0.0 0.0 5.361294E-01 2.737790E-01 2.574225E-01 0.0 67 G 0.0 0.0 3.121267E-01 1.436189E-01 5.803732E-01 0.0 68 G 0.0 0.0 -1.532008E-02 1.709452E-02 7.420735E-01 0.0 69 G 0.0 0.0 -3.439257E-01 -1.483823E-01 4.413955E-01 0.0 70 G 0.0 0.0 -4.541512E-01 -3.351501E-01 1.057013E-01 0.0 71 G 0.0 0.0 -5.078349E-01 -4.398703E-01 7.188802E-02 0.0 72 G 0.0 0.0 -5.220928E-01 -4.106562E-01 4.393829E-02 0.0 73 G 0.0 0.0 -5.581302E-01 -3.321955E-01 5.685678E-02 0.0 74 G 0.0 0.0 -5.752957E-01 -3.671503E-01 2.512174E-02 0.0 75 G 0.0 0.0 -5.488944E-01 -4.902112E-01 -1.965447E-01 0.0 76 G 0.0 0.0 -3.832296E-01 -4.403646E-01 -3.613743E-01 0.0 77 G 0.0 0.0 -2.133008E-01 -1.903071E-01 -3.629095E-01 0.0 78 G 0.0 0.0 -3.277031E-02 1.726910E-02 -3.015153E-01 0.0 79 G 0.0 0.0 8.656362E-02 1.724979E-01 -2.285973E-01 0.0 80 G 0.0 0.0 2.137028E-01 2.343773E-01 -2.350572E-01 0.0 81 G 0.0 0.0 3.173476E-01 2.210915E-01 -2.097490E-01 0.0 82 G 0.0 0.0 3.601225E-01 1.987531E-01 1.544430E-01 0.0 83 G 0.0 0.0 1.798541E-01 1.556240E-01 4.394357E-01 0.0 84 G 0.0 0.0 0.0 0.0 2.957835E-01 0.0 127 G 0.0 0.0 1.000000E+00 -6.023595E-02 0.0 0.0 128 G 0.0 0.0 9.786716E-01 -7.743386E-02 1.054992E-01 0.0 129 G 0.0 0.0 8.137289E-01 -1.360475E-01 5.792421E-01 0.0 130 G 0.0 0.0 4.531710E-01 -2.971416E-01 7.569846E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 1.069575E-01 -2.960576E-01 6.930881E-01 0.0 132 G 0.0 0.0 -2.241212E-01 -1.296685E-01 5.642270E-01 0.0 133 G 0.0 0.0 -4.555209E-01 -1.092767E-02 4.058399E-01 0.0 134 G 0.0 0.0 -6.336942E-01 5.289724E-02 2.464854E-01 0.0 135 G 0.0 0.0 -6.860852E-01 6.835220E-02 7.888738E-04 0.0 136 G 0.0 0.0 -6.352239E-01 6.696538E-02 -2.428103E-01 0.0 137 G 0.0 0.0 -5.052079E-01 1.422580E-01 -1.623050E-01 0.0 138 G 0.0 0.0 -4.669998E-01 2.773468E-01 -1.021963E-01 0.0 139 G 0.0 0.0 -3.495379E-01 3.748854E-01 -3.250341E-01 0.0 140 G 0.0 0.0 -1.611117E-01 3.585440E-01 -4.812025E-01 0.0 141 G 0.0 0.0 1.179910E-01 3.193181E-01 -5.790064E-01 0.0 142 G 0.0 0.0 3.928021E-01 3.895305E-01 -5.228840E-01 0.0 143 G 0.0 0.0 5.874098E-01 5.400783E-01 -1.753825E-01 0.0 144 G 0.0 0.0 5.600300E-01 4.931271E-01 1.852712E-01 0.0 145 G 0.0 0.0 4.265018E-01 2.732348E-01 3.949746E-01 0.0 146 G 0.0 0.0 1.937288E-01 1.153701E-01 4.699190E-01 0.0 147 G 0.0 0.0 0.0 0.0 3.406564E-01 0.0 190 G 0.0 0.0 6.522342E-01 7.845217E-02 0.0 0.0 191 G 0.0 0.0 6.972383E-01 -8.980186E-02 -9.616335E-02 0.0 192 G 0.0 0.0 6.418758E-01 -1.568908E-01 4.045884E-01 0.0 193 G 0.0 0.0 3.242364E-01 -6.137509E-02 7.758731E-01 0.0 194 G 0.0 0.0 -5.164369E-02 4.916134E-02 7.039984E-01 0.0 195 G 0.0 0.0 -3.528991E-01 1.218412E-01 4.515838E-01 0.0 196 G 0.0 0.0 -5.029602E-01 1.190556E-01 1.835270E-01 0.0 197 G 0.0 0.0 -5.566562E-01 2.073243E-01 3.260628E-02 0.0 198 G 0.0 0.0 -5.608389E-01 3.471200E-01 1.133881E-02 0.0 199 G 0.0 0.0 -5.567203E-01 4.230356E-01 -9.643939E-02 0.0 200 G 0.0 0.0 -4.527000E-01 2.846718E-01 -2.771613E-01 0.0 201 G 0.0 0.0 -2.848889E-01 2.134341E-01 -4.119093E-01 0.0 202 G 0.0 0.0 -4.207473E-02 1.806664E-01 -5.244561E-01 0.0 203 G 0.0 0.0 2.219006E-01 1.852936E-01 -5.357531E-01 0.0 204 G 0.0 0.0 4.792370E-01 1.857353E-01 -4.617897E-01 0.0 205 G 0.0 0.0 6.902335E-01 1.241900E-01 -4.224640E-01 0.0 206 G 0.0 0.0 8.705409E-01 3.476710E-02 -2.355522E-01 0.0 207 G 0.0 0.0 8.859161E-01 -1.496249E-02 1.632545E-01 0.0 208 G 0.0 0.0 7.220228E-01 -4.369032E-03 5.116362E-01 0.0 209 G 0.0 0.0 3.953794E-01 1.239664E-02 7.591195E-01 0.0 210 G 0.0 0.0 0.0 0.0 8.018831E-01 0.0 253 G 0.0 0.0 1.382276E-01 -4.202958E-01 0.0 0.0 254 G 0.0 0.0 1.398271E-01 -3.290083E-01 9.631108E-03 0.0 255 G 0.0 0.0 9.411194E-02 -2.790669E-01 2.036078E-01 0.0 256 G 0.0 0.0 -4.194682E-02 -1.844763E-01 2.956985E-01 0.0 257 G 0.0 0.0 -1.712239E-01 -6.661118E-02 2.382632E-01 0.0 258 G 0.0 0.0 -2.759430E-01 5.674589E-02 1.614604E-01 0.0 259 G 0.0 0.0 -3.360469E-01 1.527144E-01 1.052751E-01 0.0 260 G 0.0 0.0 -3.595946E-01 1.730624E-01 -6.173683E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 -2.825659E-01 1.270314E-01 -1.864891E-01 0.0 262 G 0.0 0.0 -1.979485E-01 7.421366E-02 -1.715628E-01 0.0 263 G 0.0 0.0 -9.670125E-02 5.745932E-02 -2.053357E-01 0.0 264 G 0.0 0.0 1.534223E-02 3.957671E-02 -2.640314E-01 0.0 265 G 0.0 0.0 1.712300E-01 -4.856469E-02 -3.472737E-01 0.0 266 G 0.0 0.0 3.719643E-01 -1.897120E-01 -4.774371E-01 0.0 267 G 0.0 0.0 6.315935E-01 -2.444191E-01 -4.949529E-01 0.0 268 G 0.0 0.0 8.358435E-01 -2.020987E-01 -3.318833E-01 0.0 269 G 0.0 0.0 9.397321E-01 -1.680166E-01 -5.040284E-02 0.0 270 G 0.0 0.0 8.746589E-01 -1.383383E-01 2.794134E-01 0.0 271 G 0.0 0.0 6.710110E-01 -1.104569E-01 5.419835E-01 0.0 272 G 0.0 0.0 3.509917E-01 -7.295435E-02 6.987284E-01 0.0 273 G 0.0 0.0 0.0 0.0 6.950918E-01 0.0 316 G 0.0 0.0 -2.326199E-01 -1.806409E-01 0.0 0.0 317 G 0.0 0.0 -1.943268E-01 -1.895938E-01 -1.379019E-01 0.0 318 G 0.0 0.0 -1.340434E-01 -1.359770E-01 -7.174683E-02 0.0 319 G 0.0 0.0 -1.224273E-01 -3.537398E-02 -3.559100E-03 0.0 320 G 0.0 0.0 -1.159444E-01 2.294829E-02 -1.690696E-02 0.0 321 G 0.0 0.0 -8.621050E-02 2.088017E-02 -1.307594E-01 0.0 322 G 0.0 0.0 4.501309E-03 7.537083E-02 -1.716277E-01 0.0 323 G 0.0 0.0 6.380501E-02 1.722455E-01 -8.503048E-02 0.0 324 G 0.0 0.0 8.290862E-02 1.978431E-01 3.235584E-02 0.0 325 G 0.0 0.0 4.049834E-02 1.575196E-01 9.882040E-02 0.0 326 G 0.0 0.0 8.608014E-03 6.411529E-02 3.991303E-02 0.0 327 G 0.0 0.0 1.239429E-02 -6.519964E-02 -7.995335E-02 0.0 328 G 0.0 0.0 6.546042E-02 -1.866638E-01 -7.433142E-02 0.0 329 G 0.0 0.0 9.060521E-02 -2.728340E-01 -7.847277E-02 0.0 330 G 0.0 0.0 1.633967E-01 -3.580378E-01 -1.864610E-01 0.0 331 G 0.0 0.0 2.547587E-01 -4.370103E-01 -1.942712E-01 0.0 332 G 0.0 0.0 3.397001E-01 -4.851494E-01 -1.159853E-01 0.0 333 G 0.0 0.0 3.590348E-01 -4.118598E-01 3.043888E-02 0.0 334 G 0.0 0.0 2.986132E-01 -2.378896E-01 2.326920E-01 0.0 335 G 0.0 0.0 1.439309E-01 -7.093174E-02 3.278479E-01 0.0 336 G 0.0 0.0 0.0 0.0 2.661192E-01 0.0 379 G 0.0 0.0 -3.542575E-01 -1.111026E-02 0.0 0.0 380 G 0.0 0.0 -3.022396E-01 -6.657037E-03 -1.874246E-01 0.0 381 G 0.0 0.0 -1.956599E-01 1.677606E-02 -2.292090E-01 0.0 382 G 0.0 0.0 -7.062344E-02 5.219435E-02 -2.863125E-01 0.0 383 G 0.0 0.0 7.547290E-02 1.216350E-01 -2.577142E-01 0.0 384 G 0.0 0.0 1.849236E-01 2.044865E-01 -2.072278E-01 0.0 385 G 0.0 0.0 2.857912E-01 2.544029E-01 -1.748587E-01 0.0 386 G 0.0 0.0 3.384428E-01 2.458269E-01 -4.836289E-02 0.0 387 G 0.0 0.0 3.265078E-01 2.083866E-01 1.086364E-01 0.0 388 G 0.0 0.0 2.324349E-01 1.835046E-01 2.552379E-01 0.0 389 G 0.0 0.0 7.288297E-02 1.648504E-01 3.912460E-01 0.0 390 G 0.0 0.0 -1.419166E-01 6.758177E-02 4.202532E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 -3.260654E-01 -9.796677E-02 3.214528E-01 0.0 392 G 0.0 0.0 -4.527664E-01 -2.468257E-01 1.648197E-01 0.0 393 G 0.0 0.0 -4.912603E-01 -3.569774E-01 1.077616E-02 0.0 394 G 0.0 0.0 -4.775765E-01 -4.156565E-01 -7.260884E-02 0.0 395 G 0.0 0.0 -4.289244E-01 -4.199120E-01 -1.026223E-01 0.0 396 G 0.0 0.0 -3.628418E-01 -3.929626E-01 -1.939594E-01 0.0 397 G 0.0 0.0 -2.407875E-01 -3.290997E-01 -2.532883E-01 0.0 398 G 0.0 0.0 -1.246754E-01 -2.017034E-01 -2.256032E-01 0.0 399 G 0.0 0.0 0.0 0.0 -2.568091E-01 0.0 442 G 0.0 0.0 -4.577757E-01 2.749262E-03 0.0 0.0 443 G 0.0 0.0 -3.552137E-01 2.934112E-02 -3.439342E-01 0.0 444 G 0.0 0.0 -1.880462E-01 9.437750E-02 -3.026740E-01 0.0 445 G 0.0 0.0 -4.999863E-02 1.058353E-01 -2.880789E-01 0.0 446 G 0.0 0.0 1.136790E-01 6.527445E-02 -3.490750E-01 0.0 447 G 0.0 0.0 2.946666E-01 4.926219E-02 -3.814979E-01 0.0 448 G 0.0 0.0 4.761206E-01 5.838639E-02 -3.101875E-01 0.0 449 G 0.0 0.0 5.770177E-01 8.823336E-02 -9.480276E-02 0.0 450 G 0.0 0.0 5.580593E-01 1.215772E-01 1.858533E-01 0.0 451 G 0.0 0.0 4.125896E-01 1.232871E-01 3.508087E-01 0.0 452 G 0.0 0.0 2.177782E-01 9.301298E-02 4.523350E-01 0.0 453 G 0.0 0.0 -3.928850E-02 6.213992E-02 5.470253E-01 0.0 454 G 0.0 0.0 -3.060712E-01 5.545678E-02 5.246650E-01 0.0 455 G 0.0 0.0 -5.489815E-01 4.646928E-02 4.213910E-01 0.0 456 G 0.0 0.0 -7.179221E-01 -6.840206E-03 2.528713E-01 0.0 457 G 0.0 0.0 -7.900800E-01 -9.216911E-02 1.302886E-02 0.0 458 G 0.0 0.0 -7.364942E-01 -1.136351E-01 -1.890201E-01 0.0 459 G 0.0 0.0 -6.148078E-01 -6.830133E-02 -3.070391E-01 0.0 460 G 0.0 0.0 -4.376161E-01 -3.057924E-02 -3.784666E-01 0.0 461 G 0.0 0.0 -2.385052E-01 -6.161967E-03 -4.330756E-01 0.0 462 G 0.0 0.0 0.0 0.0 -5.027428E-01 0.0 505 G 0.0 0.0 -4.793432E-01 -8.786678E-02 0.0 0.0 506 G 0.0 0.0 -4.247811E-01 -1.050113E-01 -2.423099E-01 0.0 507 G 0.0 0.0 -2.650587E-01 -1.348655E-01 -3.545314E-01 0.0 508 G 0.0 0.0 -8.932000E-02 -1.471882E-01 -3.637926E-01 0.0 509 G 0.0 0.0 1.061477E-01 -1.317040E-01 -3.996191E-01 0.0 510 G 0.0 0.0 3.046059E-01 -1.011697E-01 -3.997860E-01 0.0 511 G 0.0 0.0 4.904085E-01 -1.067048E-01 -3.240690E-01 0.0 512 G 0.0 0.0 6.187260E-01 -1.338279E-01 -1.971994E-01 0.0 513 G 0.0 0.0 6.741960E-01 -1.144394E-01 1.113117E-02 0.0 514 G 0.0 0.0 6.015138E-01 -2.079486E-02 2.594106E-01 0.0 515 G 0.0 0.0 4.259352E-01 6.117859E-02 4.446522E-01 0.0 516 G 0.0 0.0 1.744897E-01 1.306258E-01 5.320469E-01 0.0 517 G 0.0 0.0 -8.163510E-02 1.796972E-01 4.874915E-01 0.0 518 G 0.0 0.0 -2.967461E-01 2.182548E-01 3.524972E-01 0.0 519 G 0.0 0.0 -4.403314E-01 2.559539E-01 2.462795E-01 0.0 520 G 0.0 0.0 -5.392919E-01 2.933970E-01 1.212919E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -5.520658E-01 2.940237E-01 -5.905185E-02 0.0 522 G 0.0 0.0 -4.912319E-01 2.450380E-01 -1.951310E-01 0.0 523 G 0.0 0.0 -3.647598E-01 1.563012E-01 -2.944295E-01 0.0 524 G 0.0 0.0 -2.007105E-01 7.772642E-02 -3.665154E-01 0.0 525 G 0.0 0.0 0.0 0.0 -4.226559E-01 0.0 568 G 0.0 0.0 -5.436936E-01 5.801774E-04 0.0 0.0 569 G 0.0 0.0 -4.892953E-01 -2.272565E-02 -2.014224E-01 0.0 570 G 0.0 0.0 -3.708574E-01 -4.818552E-02 -2.495951E-01 0.0 571 G 0.0 0.0 -2.409804E-01 -7.453423E-02 -2.869705E-01 0.0 572 G 0.0 0.0 -7.486869E-02 -1.078469E-01 -3.674335E-01 0.0 573 G 0.0 0.0 1.228870E-01 -1.448110E-01 -4.255031E-01 0.0 574 G 0.0 0.0 3.227549E-01 -1.584515E-01 -3.340006E-01 0.0 575 G 0.0 0.0 4.439684E-01 -1.444445E-01 -1.692594E-01 0.0 576 G 0.0 0.0 4.964999E-01 -1.210032E-01 -2.689859E-02 0.0 577 G 0.0 0.0 4.674664E-01 -1.034901E-01 1.268502E-01 0.0 578 G 0.0 0.0 3.778855E-01 -7.111296E-02 2.362383E-01 0.0 579 G 0.0 0.0 2.438256E-01 7.507493E-03 2.884941E-01 0.0 580 G 0.0 0.0 9.575514E-02 1.182498E-01 3.124242E-01 0.0 581 G 0.0 0.0 -5.644473E-02 1.842992E-01 2.650544E-01 0.0 582 G 0.0 0.0 -1.582732E-01 1.946491E-01 1.523274E-01 0.0 583 G 0.0 0.0 -2.073231E-01 1.979438E-01 3.334781E-02 0.0 584 G 0.0 0.0 -1.978047E-01 1.915259E-01 -5.204671E-02 0.0 585 G 0.0 0.0 -1.689562E-01 1.750880E-01 -6.880077E-02 0.0 586 G 0.0 0.0 -1.352107E-01 1.446106E-01 -5.546556E-02 0.0 587 G 0.0 0.0 -9.687562E-02 8.500077E-02 -1.291838E-01 0.0 588 G 0.0 0.0 0.0 0.0 -2.349110E-01 0.0 631 G 0.0 0.0 -4.468543E-01 1.799284E-01 0.0 0.0 632 G 0.0 0.0 -4.148105E-01 1.837160E-01 -1.197755E-01 0.0 633 G 0.0 0.0 -3.431083E-01 1.475344E-01 -1.526025E-01 0.0 634 G 0.0 0.0 -2.610034E-01 1.122332E-01 -1.828431E-01 0.0 635 G 0.0 0.0 -1.633407E-01 8.597916E-02 -1.920908E-01 0.0 636 G 0.0 0.0 -6.928315E-02 1.575280E-02 -2.057796E-01 0.0 637 G 0.0 0.0 3.978362E-02 -8.748908E-02 -2.113207E-01 0.0 638 G 0.0 0.0 1.338266E-01 -1.599520E-01 -1.698907E-01 0.0 639 G 0.0 0.0 2.019117E-01 -1.951056E-01 -8.250909E-02 0.0 640 G 0.0 0.0 2.093792E-01 -1.933774E-01 4.399246E-02 0.0 641 G 0.0 0.0 1.629578E-01 -1.642697E-01 1.490235E-01 0.0 642 G 0.0 0.0 8.502644E-02 -1.349354E-01 1.291766E-01 0.0 643 G 0.0 0.0 4.177245E-02 -1.118570E-01 6.869247E-02 0.0 644 G 0.0 0.0 9.798635E-03 -7.934441E-02 4.837141E-02 0.0 645 G 0.0 0.0 -9.378409E-04 -2.582595E-02 1.087595E-02 0.0 646 G 0.0 0.0 -3.198859E-03 2.105147E-02 -9.359439E-03 0.0 647 G 0.0 0.0 4.191358E-03 2.258207E-02 -1.271916E-02 0.0 648 G 0.0 0.0 1.139868E-02 -1.617866E-02 -3.023378E-02 0.0 649 G 0.0 0.0 2.860811E-02 -2.614954E-02 -1.274821E-02 0.0 650 G 0.0 0.0 1.835564E-02 -5.189273E-03 3.797143E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 3.053315E-02 0.0 694 G 0.0 0.0 -5.499322E-02 2.344313E-01 0.0 0.0 695 G 0.0 0.0 -3.676941E-02 2.603128E-01 -5.341882E-02 0.0 696 G 0.0 0.0 -2.726738E-02 2.479839E-01 2.813162E-02 0.0 697 G 0.0 0.0 -4.986345E-02 1.941997E-01 3.022395E-02 0.0 698 G 0.0 0.0 -4.867539E-02 1.089821E-01 -2.010208E-02 0.0 699 G 0.0 0.0 -3.619334E-02 3.092020E-02 -3.830420E-02 0.0 700 G 0.0 0.0 -1.098879E-02 -2.049636E-02 -4.764012E-02 0.0 701 G 0.0 0.0 5.006404E-03 -5.066904E-02 -2.258988E-02 0.0 702 G 0.0 0.0 7.542187E-03 -9.488797E-02 1.702365E-02 0.0 703 G 0.0 0.0 -7.111171E-03 -1.463348E-01 2.893008E-02 0.0 704 G 0.0 0.0 -1.920850E-02 -1.523818E-01 3.843501E-02 0.0 705 G 0.0 0.0 -4.413471E-02 -1.155393E-01 4.969924E-02 0.0 706 G 0.0 0.0 -6.434721E-02 -8.385335E-02 3.878111E-02 0.0 707 G 0.0 0.0 -7.811817E-02 -6.391198E-02 3.827147E-03 0.0 708 G 0.0 0.0 -6.265065E-02 -5.633700E-02 -5.705181E-02 0.0 709 G 0.0 0.0 -2.327713E-02 -5.310816E-02 -1.044878E-01 0.0 710 G 0.0 0.0 2.488657E-02 -3.436749E-02 -6.124636E-02 0.0 711 G 0.0 0.0 3.475885E-02 -3.581921E-03 2.694170E-03 0.0 712 G 0.0 0.0 3.060630E-02 1.829856E-02 2.112765E-02 0.0 713 G 0.0 0.0 1.257356E-02 1.617857E-02 3.616003E-02 0.0 714 G 0.0 0.0 0.0 0.0 1.826298E-02 0.0 757 G 0.0 0.0 2.846684E-01 5.198960E-02 0.0 0.0 758 G 0.0 0.0 2.928858E-01 2.634933E-02 -2.784297E-02 0.0 759 G 0.0 0.0 2.901869E-01 2.205413E-02 5.524834E-02 0.0 760 G 0.0 0.0 2.381370E-01 5.052300E-02 1.326347E-01 0.0 761 G 0.0 0.0 1.669837E-01 6.562036E-02 1.518515E-01 0.0 762 G 0.0 0.0 9.316169E-02 6.373044E-02 1.255335E-01 0.0 763 G 0.0 0.0 4.601068E-02 4.651316E-02 6.841379E-02 0.0 764 G 0.0 0.0 2.112916E-02 2.550112E-02 2.364299E-02 0.0 765 G 0.0 0.0 5.398083E-03 2.247717E-02 6.226846E-02 0.0 766 G 0.0 0.0 -4.266035E-02 3.741071E-02 1.064485E-01 0.0 767 G 0.0 0.0 -8.995582E-02 4.831919E-02 8.788268E-02 0.0 768 G 0.0 0.0 -1.308477E-01 3.884532E-02 6.126923E-02 0.0 769 G 0.0 0.0 -1.485838E-01 2.322717E-02 1.607052E-02 0.0 770 G 0.0 0.0 -1.460258E-01 2.998089E-02 -2.966512E-02 0.0 771 G 0.0 0.0 -1.255638E-01 5.415108E-02 -3.842811E-02 0.0 772 G 0.0 0.0 -1.091511E-01 4.466826E-02 -4.561730E-02 0.0 773 G 0.0 0.0 -7.944617E-02 2.813169E-03 -6.051191E-02 0.0 774 G 0.0 0.0 -5.107703E-02 -2.422693E-02 -5.931645E-02 0.0 775 G 0.0 0.0 -2.248980E-02 -3.492029E-02 -4.103160E-02 0.0 776 G 0.0 0.0 -1.105775E-02 -2.772492E-02 -1.409546E-02 0.0 777 G 0.0 0.0 0.0 0.0 -2.526140E-02 0.0 820 G 0.0 0.0 9.527367E-02 -2.148875E-01 0.0 0.0 821 G 0.0 0.0 1.087135E-01 -2.202671E-01 -3.519155E-02 0.0 822 G 0.0 0.0 1.147690E-01 -2.148890E-01 1.437424E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.822683E+04 (CYCLIC FREQUENCY = 1.443565E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 9.592371E-02 -1.752608E-01 4.914569E-02 0.0 824 G 0.0 0.0 7.020526E-02 -1.374053E-01 5.954192E-02 0.0 825 G 0.0 0.0 3.899029E-02 -8.342820E-02 5.460050E-02 0.0 826 G 0.0 0.0 1.465226E-02 -3.244672E-02 4.852159E-02 0.0 827 G 0.0 0.0 -9.301861E-03 2.087248E-02 3.333855E-02 0.0 828 G 0.0 0.0 -1.962521E-02 2.369636E-02 2.084970E-02 0.0 829 G 0.0 0.0 -3.044562E-02 3.850846E-02 1.158546E-02 0.0 830 G 0.0 0.0 -3.250144E-02 5.461495E-02 1.072152E-02 0.0 831 G 0.0 0.0 -4.497763E-02 8.009281E-02 3.190975E-02 0.0 832 G 0.0 0.0 -6.222693E-02 9.647626E-02 4.342543E-02 0.0 833 G 0.0 0.0 -7.680434E-02 1.058907E-01 -1.161106E-02 0.0 834 G 0.0 0.0 -5.384384E-02 8.375063E-02 -5.378910E-02 0.0 835 G 0.0 0.0 -3.388551E-02 5.982845E-02 -3.177061E-02 0.0 836 G 0.0 0.0 -1.857912E-02 3.315959E-02 -2.094876E-02 0.0 837 G 0.0 0.0 -1.157236E-02 2.973773E-02 -1.507994E-02 0.0 838 G 0.0 0.0 -4.590746E-03 1.940155E-02 -3.987321E-03 0.0 839 G 0.0 0.0 -6.155929E-03 1.417681E-02 -7.174003E-04 0.0 840 G 0.0 0.0 0.0 0.0 -1.947791E-02 0.0 841 G 0.0 0.0 0.0 -1.764376E-01 0.0 0.0 842 G 0.0 0.0 0.0 -2.164793E-01 0.0 0.0 843 G 0.0 0.0 0.0 -2.354492E-01 0.0 0.0 844 G 0.0 0.0 0.0 -1.971934E-01 0.0 0.0 845 G 0.0 0.0 0.0 -1.443277E-01 0.0 0.0 846 G 0.0 0.0 0.0 -7.354677E-02 0.0 0.0 847 G 0.0 0.0 0.0 -3.099935E-02 0.0 0.0 848 G 0.0 0.0 0.0 2.003148E-02 0.0 0.0 849 G 0.0 0.0 0.0 4.458428E-02 0.0 0.0 850 G 0.0 0.0 0.0 7.677451E-02 0.0 0.0 851 G 0.0 0.0 0.0 7.060616E-02 0.0 0.0 852 G 0.0 0.0 0.0 1.006034E-01 0.0 0.0 853 G 0.0 0.0 0.0 1.360321E-01 0.0 0.0 854 G 0.0 0.0 0.0 1.831550E-01 0.0 0.0 855 G 0.0 0.0 0.0 1.183283E-01 0.0 0.0 856 G 0.0 0.0 0.0 7.695549E-02 0.0 0.0 857 G 0.0 0.0 0.0 3.821828E-02 0.0 0.0 858 G 0.0 0.0 0.0 2.222170E-02 0.0 0.0 859 G 0.0 0.0 0.0 1.591417E-03 0.0 0.0 860 G 0.0 0.0 0.0 1.181923E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 -3.033993E-01 0.0 0.0 2 G 0.0 0.0 0.0 -9.149635E-02 0.0 0.0 3 G 0.0 0.0 0.0 2.631092E-01 0.0 0.0 4 G 0.0 0.0 0.0 1.324356E-01 0.0 0.0 5 G 0.0 0.0 0.0 2.383060E-01 0.0 0.0 6 G 0.0 0.0 0.0 4.769390E-01 0.0 0.0 7 G 0.0 0.0 0.0 1.000000E+00 0.0 0.0 8 G 0.0 0.0 0.0 7.571203E-01 0.0 0.0 9 G 0.0 0.0 0.0 7.292596E-01 0.0 0.0 10 G 0.0 0.0 0.0 5.134698E-01 0.0 0.0 11 G 0.0 0.0 0.0 3.654410E-01 0.0 0.0 12 G 0.0 0.0 0.0 2.079766E-01 0.0 0.0 13 G 0.0 0.0 0.0 2.728376E-01 0.0 0.0 14 G 0.0 0.0 0.0 -8.164774E-03 0.0 0.0 15 G 0.0 0.0 0.0 -2.759948E-01 0.0 0.0 16 G 0.0 0.0 0.0 -5.295600E-01 0.0 0.0 17 G 0.0 0.0 0.0 -2.898070E-01 0.0 0.0 18 G 0.0 0.0 0.0 -2.876347E-01 0.0 0.0 19 G 0.0 0.0 0.0 -3.796651E-01 0.0 0.0 20 G 0.0 0.0 0.0 -6.485093E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 -3.735661E-01 3.501430E-03 0.0 0.0 65 G 0.0 0.0 -2.799316E-01 -3.150164E-02 -4.074890E-01 0.0 66 G 0.0 0.0 -7.282994E-02 -7.824039E-02 -2.923418E-01 0.0 67 G 0.0 0.0 -2.614582E-02 -8.143874E-02 2.672203E-02 0.0 68 G 0.0 0.0 -7.113268E-02 -3.594918E-02 1.999009E-01 0.0 69 G 0.0 0.0 -1.013603E-01 -5.230075E-02 -2.778118E-01 0.0 70 G 0.0 0.0 1.889686E-01 -1.374251E-01 -6.770402E-01 0.0 71 G 0.0 0.0 4.578550E-01 -1.460184E-01 -4.437104E-01 0.0 72 G 0.0 0.0 6.292642E-01 -1.189622E-02 -1.309050E-01 0.0 73 G 0.0 0.0 5.775515E-01 1.097424E-01 2.634064E-01 0.0 74 G 0.0 0.0 3.818978E-01 -5.473542E-02 5.327736E-01 0.0 75 G 0.0 0.0 1.214684E-01 -4.409021E-01 3.796550E-01 0.0 76 G 0.0 0.0 1.646182E-02 -5.683716E-01 2.002643E-01 0.0 77 G 0.0 0.0 -1.008327E-01 -3.541752E-01 1.718346E-01 0.0 78 G 0.0 0.0 -1.576737E-01 -1.822464E-01 1.365419E-01 0.0 79 G 0.0 0.0 -2.271373E-01 -4.449060E-02 3.756985E-02 0.0 80 G 0.0 0.0 -1.591771E-01 3.691694E-03 -2.390176E-01 0.0 81 G 0.0 0.0 1.855574E-03 -2.330565E-03 -4.570954E-01 0.0 82 G 0.0 0.0 1.794247E-01 4.395765E-02 -4.889033E-02 0.0 83 G 0.0 0.0 6.497017E-02 1.052230E-01 2.975121E-01 0.0 84 G 0.0 0.0 0.0 0.0 8.626007E-04 0.0 127 G 0.0 0.0 -3.191112E-01 -1.750492E-01 0.0 0.0 128 G 0.0 0.0 -2.144348E-01 -2.029581E-01 -3.769778E-01 0.0 129 G 0.0 0.0 -9.498627E-02 -3.001987E-01 -3.828423E-02 0.0 130 G 0.0 0.0 -1.091184E-01 -5.748335E-01 -5.813741E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 1.690543E-02 -5.761943E-01 -2.991713E-01 0.0 132 G 0.0 0.0 1.818012E-01 -3.034631E-01 -4.396552E-01 0.0 133 G 0.0 0.0 4.263289E-01 -1.269147E-01 -4.302952E-01 0.0 134 G 0.0 0.0 5.798909E-01 -6.149344E-02 -2.645474E-01 0.0 135 G 0.0 0.0 7.044953E-01 -9.443462E-02 -1.582735E-01 0.0 136 G 0.0 0.0 7.378891E-01 -1.659480E-01 -4.436607E-02 0.0 137 G 0.0 0.0 6.581892E-01 -1.073192E-01 5.448022E-01 0.0 138 G 0.0 0.0 2.308685E-01 6.093127E-02 9.470503E-01 0.0 139 G 0.0 0.0 -1.627562E-01 1.797682E-01 6.701279E-01 0.0 140 G 0.0 0.0 -4.377708E-01 1.255827E-01 3.100339E-01 0.0 141 G 0.0 0.0 -4.678023E-01 6.006165E-02 -1.174758E-01 0.0 142 G 0.0 0.0 -3.449014E-01 2.121900E-01 -3.940684E-01 0.0 143 G 0.0 0.0 -1.586419E-01 5.294552E-01 -2.189851E-01 0.0 144 G 0.0 0.0 -1.440859E-01 5.293700E-01 -6.621376E-03 0.0 145 G 0.0 0.0 -1.239110E-01 2.483775E-01 1.717892E-02 0.0 146 G 0.0 0.0 -1.332117E-01 8.484718E-02 -7.535271E-02 0.0 147 G 0.0 0.0 0.0 0.0 -3.744943E-01 0.0 190 G 0.0 0.0 -4.192234E-01 8.285846E-01 0.0 0.0 191 G 0.0 0.0 -2.318875E-01 5.002220E-01 -5.997599E-01 0.0 192 G 0.0 0.0 -1.568532E-02 2.716462E-01 -1.006222E-01 0.0 193 G 0.0 0.0 -1.002822E-01 2.614577E-01 3.056844E-01 0.0 194 G 0.0 0.0 -2.092383E-01 2.353503E-01 1.142601E-01 0.0 195 G 0.0 0.0 -1.999247E-01 1.265065E-01 -2.116378E-01 0.0 196 G 0.0 0.0 -2.637701E-02 -1.032018E-01 -4.017869E-01 0.0 197 G 0.0 0.0 1.452357E-01 -1.424654E-01 -2.693026E-01 0.0 198 G 0.0 0.0 1.894384E-01 -3.880709E-02 1.415739E-01 0.0 199 G 0.0 0.0 2.697040E-02 2.215300E-02 3.815430E-01 0.0 200 G 0.0 0.0 -1.549342E-01 -2.140245E-01 4.007505E-01 0.0 201 G 0.0 0.0 -3.562496E-01 -2.693086E-01 3.496776E-01 0.0 202 G 0.0 0.0 -4.756789E-01 -2.071764E-01 1.621506E-01 0.0 203 G 0.0 0.0 -5.189180E-01 -5.107690E-02 -1.947633E-02 0.0 204 G 0.0 0.0 -4.574905E-01 1.025869E-01 -1.879636E-01 0.0 205 G 0.0 0.0 -3.056455E-01 1.312163E-01 -4.961479E-01 0.0 206 G 0.0 0.0 -1.107324E-02 7.609426E-02 -5.719414E-01 0.0 207 G 0.0 0.0 1.925124E-01 4.416591E-02 -2.511433E-01 0.0 208 G 0.0 0.0 2.531907E-01 7.050510E-02 5.772905E-02 0.0 209 G 0.0 0.0 1.541747E-01 7.062644E-02 2.972822E-01 0.0 210 G 0.0 0.0 0.0 0.0 3.068930E-01 0.0 253 G 0.0 0.0 -1.005597E-02 1.619268E-01 0.0 0.0 254 G 0.0 0.0 3.319659E-02 2.720338E-01 -1.436191E-01 0.0 255 G 0.0 0.0 6.674622E-02 2.243063E-01 6.648717E-02 0.0 256 G 0.0 0.0 -9.062574E-03 1.850278E-01 1.660893E-01 0.0 257 G 0.0 0.0 -6.359862E-02 1.455684E-01 8.764774E-02 0.0 258 G 0.0 0.0 -1.063296E-01 1.088584E-01 5.565008E-02 0.0 259 G 0.0 0.0 -1.396384E-01 5.293964E-02 1.249820E-01 0.0 260 G 0.0 0.0 -2.035713E-01 -7.386143E-02 4.163066E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 -1.975304E-01 -2.323214E-01 3.009242E-02 0.0 262 G 0.0 0.0 -2.704546E-01 -3.088948E-01 2.166741E-01 0.0 263 G 0.0 0.0 -3.770101E-01 -2.336851E-01 2.437602E-01 0.0 264 G 0.0 0.0 -4.840816E-01 -8.891685E-02 1.339014E-01 0.0 265 G 0.0 0.0 -4.877237E-01 -2.318334E-02 -1.100266E-01 0.0 266 G 0.0 0.0 -3.450941E-01 -4.307058E-02 -5.049033E-01 0.0 267 G 0.0 0.0 -5.123283E-03 5.409309E-02 -7.428194E-01 0.0 268 G 0.0 0.0 3.452135E-01 2.544641E-01 -6.717444E-01 0.0 269 G 0.0 0.0 6.220113E-01 3.549563E-01 -3.709766E-01 0.0 270 G 0.0 0.0 6.900949E-01 3.534766E-01 5.428362E-02 0.0 271 G 0.0 0.0 5.797325E-01 2.611185E-01 4.088901E-01 0.0 272 G 0.0 0.0 3.073613E-01 1.181798E-01 6.230736E-01 0.0 273 G 0.0 0.0 0.0 0.0 5.990073E-01 0.0 316 G 0.0 0.0 3.229775E-01 3.131059E-04 0.0 0.0 317 G 0.0 0.0 3.710110E-01 -4.294474E-02 -1.667252E-01 0.0 318 G 0.0 0.0 4.209197E-01 -2.936829E-02 1.842915E-02 0.0 319 G 0.0 0.0 3.513219E-01 2.863669E-02 2.054513E-01 0.0 320 G 0.0 0.0 2.395696E-01 -9.779882E-04 2.439655E-01 0.0 321 G 0.0 0.0 1.407137E-01 -1.240340E-01 9.381530E-02 0.0 322 G 0.0 0.0 1.296019E-01 -1.143760E-01 4.541473E-02 0.0 323 G 0.0 0.0 6.156388E-02 2.426101E-02 1.840024E-01 0.0 324 G 0.0 0.0 -6.045903E-02 1.086975E-01 3.360162E-01 0.0 325 G 0.0 0.0 -2.524955E-01 1.493980E-01 3.590190E-01 0.0 326 G 0.0 0.0 -3.716034E-01 1.583568E-01 1.327585E-01 0.0 327 G 0.0 0.0 -3.620269E-01 1.446272E-01 -2.133175E-01 0.0 328 G 0.0 0.0 -1.995526E-01 1.550532E-01 -3.319842E-01 0.0 329 G 0.0 0.0 -3.005865E-02 2.045802E-01 -4.269395E-01 0.0 330 G 0.0 0.0 2.499151E-01 2.034668E-01 -6.371219E-01 0.0 331 G 0.0 0.0 5.559049E-01 1.365666E-01 -6.026160E-01 0.0 332 G 0.0 0.0 8.101755E-01 3.215477E-02 -3.562813E-01 0.0 333 G 0.0 0.0 8.852732E-01 4.370372E-02 4.427370E-02 0.0 334 G 0.0 0.0 7.477111E-01 1.452410E-01 5.394048E-01 0.0 335 G 0.0 0.0 3.832479E-01 1.720344E-01 8.101301E-01 0.0 336 G 0.0 0.0 0.0 0.0 7.431253E-01 0.0 379 G 0.0 0.0 6.237490E-02 -3.253011E-01 0.0 0.0 380 G 0.0 0.0 1.087322E-01 -3.244389E-01 -1.517795E-01 0.0 381 G 0.0 0.0 1.681224E-01 -3.022802E-01 -7.451192E-02 0.0 382 G 0.0 0.0 1.944024E-01 -2.644120E-01 -6.543953E-02 0.0 383 G 0.0 0.0 2.176394E-01 -1.638164E-01 3.139453E-02 0.0 384 G 0.0 0.0 1.714765E-01 -2.597443E-02 9.575917E-02 0.0 385 G 0.0 0.0 1.399790E-01 7.843068E-02 5.722638E-02 0.0 386 G 0.0 0.0 8.948055E-02 1.118734E-01 1.160806E-01 0.0 387 G 0.0 0.0 2.023734E-02 1.273773E-01 1.793696E-01 0.0 388 G 0.0 0.0 -7.988223E-02 1.928190E-01 2.016888E-01 0.0 389 G 0.0 0.0 -1.786904E-01 2.885614E-01 2.150540E-01 0.0 390 G 0.0 0.0 -2.725317E-01 2.559449E-01 9.087624E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 -2.464167E-01 9.791445E-02 -1.699742E-01 0.0 392 G 0.0 0.0 -1.034302E-01 -5.392523E-02 -4.187430E-01 0.0 393 G 0.0 0.0 1.497817E-01 -1.738041E-01 -5.397286E-01 0.0 394 G 0.0 0.0 3.915280E-01 -2.482004E-01 -4.269065E-01 0.0 395 G 0.0 0.0 5.440356E-01 -2.757556E-01 -1.450657E-01 0.0 396 G 0.0 0.0 5.516689E-01 -2.947634E-01 5.445025E-02 0.0 397 G 0.0 0.0 4.848887E-01 -2.886726E-01 2.688765E-01 0.0 398 G 0.0 0.0 2.725129E-01 -2.009891E-01 5.340341E-01 0.0 399 G 0.0 0.0 0.0 0.0 5.579460E-01 0.0 442 G 0.0 0.0 -5.838303E-01 -1.861126E-01 0.0 0.0 443 G 0.0 0.0 -4.529309E-01 -1.386595E-01 -4.112414E-01 0.0 444 G 0.0 0.0 -2.950985E-01 -2.202017E-02 -1.869145E-01 0.0 445 G 0.0 0.0 -2.517115E-01 4.858491E-03 -6.039508E-02 0.0 446 G 0.0 0.0 -1.972345E-01 -5.629781E-02 -1.362987E-01 0.0 447 G 0.0 0.0 -1.068179E-01 -7.492230E-02 -2.452909E-01 0.0 448 G 0.0 0.0 3.144806E-02 -5.127245E-02 -2.556922E-01 0.0 449 G 0.0 0.0 1.151283E-01 5.234032E-03 -8.462619E-02 0.0 450 G 0.0 0.0 1.042253E-01 6.292249E-02 1.554939E-01 0.0 451 G 0.0 0.0 1.246392E-03 5.993139E-02 1.849330E-01 0.0 452 G 0.0 0.0 -6.460966E-02 -4.495642E-03 1.309449E-01 0.0 453 G 0.0 0.0 -1.383397E-01 -7.507033E-02 1.303535E-01 0.0 454 G 0.0 0.0 -1.714925E-01 -1.065110E-01 2.913509E-02 0.0 455 G 0.0 0.0 -1.630828E-01 -1.404201E-01 -8.701656E-02 0.0 456 G 0.0 0.0 -9.117139E-02 -2.441006E-01 -1.858073E-01 0.0 457 G 0.0 0.0 2.220174E-02 -3.912039E-01 -2.946283E-01 0.0 458 G 0.0 0.0 1.797433E-01 -4.126883E-01 -2.654869E-01 0.0 459 G 0.0 0.0 2.598645E-01 -3.014482E-01 -7.629646E-02 0.0 460 G 0.0 0.0 2.494053E-01 -1.863186E-01 1.433843E-01 0.0 461 G 0.0 0.0 1.308544E-01 -8.100608E-02 2.827501E-01 0.0 462 G 0.0 0.0 0.0 0.0 2.457196E-01 0.0 505 G 0.0 0.0 -5.275576E-01 1.409420E-01 0.0 0.0 506 G 0.0 0.0 -4.750285E-01 1.152826E-01 -2.527366E-01 0.0 507 G 0.0 0.0 -3.190899E-01 7.396127E-02 -3.027437E-01 0.0 508 G 0.0 0.0 -1.972933E-01 6.469110E-02 -2.171620E-01 0.0 509 G 0.0 0.0 -7.821462E-02 9.833694E-02 -2.353182E-01 0.0 510 G 0.0 0.0 4.102452E-02 1.448374E-01 -2.593453E-01 0.0 511 G 0.0 0.0 1.672975E-01 1.086874E-01 -2.196476E-01 0.0 512 G 0.0 0.0 2.548274E-01 9.316892E-03 -1.492409E-01 0.0 513 G 0.0 0.0 3.017481E-01 -3.825991E-02 2.093871E-02 0.0 514 G 0.0 0.0 2.275333E-01 1.560883E-02 2.425638E-01 0.0 515 G 0.0 0.0 7.729895E-02 2.948538E-02 3.664493E-01 0.0 516 G 0.0 0.0 -1.154063E-01 1.215687E-02 3.632256E-01 0.0 517 G 0.0 0.0 -2.561845E-01 -3.613728E-02 2.032064E-01 0.0 518 G 0.0 0.0 -3.071916E-01 -8.293073E-02 -2.082663E-02 0.0 519 G 0.0 0.0 -2.641833E-01 -9.667880E-02 -9.621621E-02 0.0 520 G 0.0 0.0 -2.210353E-01 -6.442253E-02 -1.146933E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -1.443503E-01 -4.186819E-02 -1.674768E-01 0.0 522 G 0.0 0.0 -7.576681E-02 -4.986944E-02 -1.260649E-01 0.0 523 G 0.0 0.0 -2.582098E-02 -7.695015E-02 -5.238426E-02 0.0 524 G 0.0 0.0 -1.559975E-02 -4.928097E-02 -8.328402E-03 0.0 525 G 0.0 0.0 0.0 0.0 -4.501642E-02 0.0 568 G 0.0 0.0 -1.617392E-01 2.128079E-01 0.0 0.0 569 G 0.0 0.0 -9.887477E-02 1.839415E-01 -2.245702E-01 0.0 570 G 0.0 0.0 1.514308E-02 1.714727E-01 -1.952561E-01 0.0 571 G 0.0 0.0 9.722839E-02 1.711382E-01 -1.671393E-01 0.0 572 G 0.0 0.0 2.023522E-01 1.627914E-01 -2.425012E-01 0.0 573 G 0.0 0.0 3.391587E-01 1.407273E-01 -3.154986E-01 0.0 574 G 0.0 0.0 4.758605E-01 1.399539E-01 -1.708161E-01 0.0 575 G 0.0 0.0 4.935025E-01 1.584151E-01 6.027656E-02 0.0 576 G 0.0 0.0 4.282631E-01 1.590157E-01 2.167255E-01 0.0 577 G 0.0 0.0 2.743971E-01 1.146382E-01 3.642576E-01 0.0 578 G 0.0 0.0 7.917917E-02 6.577788E-02 4.202099E-01 0.0 579 G 0.0 0.0 -1.263947E-01 7.609201E-02 3.805211E-01 0.0 580 G 0.0 0.0 -2.962212E-01 1.347697E-01 3.148321E-01 0.0 581 G 0.0 0.0 -4.293246E-01 1.253574E-01 1.677626E-01 0.0 582 G 0.0 0.0 -4.559201E-01 4.459484E-02 -3.813844E-02 0.0 583 G 0.0 0.0 -3.994568E-01 -1.042402E-02 -1.991199E-01 0.0 584 G 0.0 0.0 -2.756500E-01 -3.523815E-02 -2.569144E-01 0.0 585 G 0.0 0.0 -1.695942E-01 -2.775873E-02 -1.727035E-01 0.0 586 G 0.0 0.0 -1.112925E-01 6.107565E-04 -4.064799E-02 0.0 587 G 0.0 0.0 -9.247438E-02 1.297021E-02 -8.911037E-02 0.0 588 G 0.0 0.0 0.0 0.0 -2.424491E-01 0.0 631 G 0.0 0.0 -1.455455E-01 -1.197271E-01 0.0 0.0 632 G 0.0 0.0 -9.726883E-02 -9.400710E-02 -1.785334E-01 0.0 633 G 0.0 0.0 4.523929E-03 -1.005588E-01 -2.036324E-01 0.0 634 G 0.0 0.0 1.070091E-01 -7.523063E-02 -2.185194E-01 0.0 635 G 0.0 0.0 2.163579E-01 -1.334709E-02 -1.928256E-01 0.0 636 G 0.0 0.0 2.981831E-01 -1.756160E-02 -1.737038E-01 0.0 637 G 0.0 0.0 3.851460E-01 -8.129085E-02 -1.446460E-01 0.0 638 G 0.0 0.0 4.292925E-01 -1.063337E-01 -4.551795E-02 0.0 639 G 0.0 0.0 4.189852E-01 -9.083072E-02 1.146068E-01 0.0 640 G 0.0 0.0 3.052941E-01 -4.194824E-02 3.179087E-01 0.0 641 G 0.0 0.0 1.125465E-01 2.132250E-02 4.580789E-01 0.0 642 G 0.0 0.0 -1.083396E-01 5.401055E-02 3.612246E-01 0.0 643 G 0.0 0.0 -2.346394E-01 5.089909E-02 1.819164E-01 0.0 644 G 0.0 0.0 -3.034560E-01 4.802442E-02 7.246937E-02 0.0 645 G 0.0 0.0 -3.014183E-01 7.577721E-02 -5.247695E-02 0.0 646 G 0.0 0.0 -2.597736E-01 9.685843E-02 -1.249267E-01 0.0 647 G 0.0 0.0 -1.886620E-01 5.308553E-02 -1.433671E-01 0.0 648 G 0.0 0.0 -1.164858E-01 -4.170230E-02 -1.658342E-01 0.0 649 G 0.0 0.0 -3.360683E-02 -6.778502E-02 -1.176718E-01 0.0 650 G 0.0 0.0 -6.811716E-03 -2.481986E-02 -1.348794E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 -1.942654E-02 0.0 694 G 0.0 0.0 -3.934350E-01 -2.518732E-01 0.0 0.0 695 G 0.0 0.0 -3.415173E-01 -1.929837E-01 -1.728462E-01 0.0 696 G 0.0 0.0 -2.668128E-01 -1.718491E-01 -1.003811E-01 0.0 697 G 0.0 0.0 -2.188376E-01 -1.968145E-01 -1.411136E-01 0.0 698 G 0.0 0.0 -1.148022E-01 -2.547270E-01 -2.431023E-01 0.0 699 G 0.0 0.0 8.877994E-03 -2.846530E-01 -2.596497E-01 0.0 700 G 0.0 0.0 1.400700E-01 -2.597790E-01 -2.338547E-01 0.0 701 G 0.0 0.0 2.293509E-01 -1.969828E-01 -1.299522E-01 0.0 702 G 0.0 0.0 2.627120E-01 -1.646626E-01 6.191692E-03 0.0 703 G 0.0 0.0 2.333520E-01 -1.581808E-01 8.905698E-02 0.0 704 G 0.0 0.0 1.808287E-01 -9.279738E-02 1.512853E-01 0.0 705 G 0.0 0.0 8.872411E-02 2.338668E-02 1.937262E-01 0.0 706 G 0.0 0.0 -1.089817E-03 1.063218E-01 1.747769E-01 0.0 707 G 0.0 0.0 -7.506227E-02 1.457401E-01 9.634106E-02 0.0 708 G 0.0 0.0 -8.695214E-02 1.440784E-01 -3.624821E-02 0.0 709 G 0.0 0.0 -4.333155E-02 1.202890E-01 -1.463209E-01 0.0 710 G 0.0 0.0 2.840805E-02 1.140469E-01 -9.463704E-02 0.0 711 G 0.0 0.0 4.367658E-02 1.241162E-01 1.082126E-03 0.0 712 G 0.0 0.0 4.011889E-02 1.177372E-01 2.595492E-02 0.0 713 G 0.0 0.0 1.501717E-02 7.060818E-02 4.940661E-02 0.0 714 G 0.0 0.0 0.0 0.0 1.820032E-02 0.0 757 G 0.0 0.0 -3.999300E-01 5.970553E-02 0.0 0.0 758 G 0.0 0.0 -3.563675E-01 1.175439E-02 -1.639216E-01 0.0 759 G 0.0 0.0 -2.762533E-01 -6.463238E-03 -1.232746E-01 0.0 760 G 0.0 0.0 -2.354132E-01 2.698263E-02 -6.793580E-02 0.0 761 G 0.0 0.0 -1.958968E-01 3.597672E-02 -8.170427E-02 0.0 762 G 0.0 0.0 -1.457958E-01 1.783989E-02 -1.399113E-01 0.0 763 G 0.0 0.0 -5.167289E-02 -2.108000E-02 -2.178245E-01 0.0 764 G 0.0 0.0 6.325705E-02 -5.824007E-02 -2.459951E-01 0.0 765 G 0.0 0.0 1.641682E-01 -5.507614E-02 -1.111531E-01 0.0 766 G 0.0 0.0 1.726937E-01 -1.253323E-02 4.144648E-02 0.0 767 G 0.0 0.0 1.444567E-01 2.901823E-02 8.284745E-02 0.0 768 G 0.0 0.0 9.317696E-02 3.797539E-02 9.811290E-02 0.0 769 G 0.0 0.0 5.503972E-02 3.519847E-02 6.466747E-02 0.0 770 G 0.0 0.0 3.367268E-02 6.661630E-02 1.349330E-02 0.0 771 G 0.0 0.0 3.267923E-02 1.216251E-01 1.219144E-02 0.0 772 G 0.0 0.0 2.009371E-02 1.116834E-01 4.537452E-03 0.0 773 G 0.0 0.0 2.912683E-02 3.954122E-02 -2.086672E-02 0.0 774 G 0.0 0.0 3.607300E-02 -1.219167E-02 -1.979946E-02 0.0 775 G 0.0 0.0 4.377748E-02 -3.903386E-02 1.097086E-02 0.0 776 G 0.0 0.0 2.219416E-02 -3.681702E-02 5.705647E-02 0.0 777 G 0.0 0.0 0.0 0.0 3.786653E-02 0.0 820 G 0.0 0.0 -1.863762E-01 2.925081E-01 0.0 0.0 821 G 0.0 0.0 -1.530904E-01 2.637910E-01 -1.006670E-01 0.0 822 G 0.0 0.0 -1.132447E-01 2.167950E-01 -5.123955E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.135656E+05 (CYCLIC FREQUENCY = 1.853699E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 -1.000800E-01 1.978883E-01 -1.936704E-02 0.0 824 G 0.0 0.0 -8.712696E-02 1.538508E-01 -1.946429E-02 0.0 825 G 0.0 0.0 -7.728124E-02 1.255593E-01 -3.499243E-02 0.0 826 G 0.0 0.0 -5.479449E-02 9.078842E-02 -4.164992E-02 0.0 827 G 0.0 0.0 -3.598638E-02 6.863327E-02 -5.434053E-02 0.0 828 G 0.0 0.0 -2.404804E-03 -2.341917E-02 -5.505338E-02 0.0 829 G 0.0 0.0 1.874446E-02 -7.252050E-02 -4.601772E-02 0.0 830 G 0.0 0.0 4.212274E-02 -9.481747E-02 -2.190542E-02 0.0 831 G 0.0 0.0 3.525418E-02 -7.752922E-02 3.757276E-02 0.0 832 G 0.0 0.0 9.639482E-03 -5.594339E-02 7.586823E-02 0.0 833 G 0.0 0.0 -1.945216E-02 -3.117010E-02 -5.262505E-03 0.0 834 G 0.0 0.0 1.027295E-02 -5.004850E-02 -6.868175E-02 0.0 835 G 0.0 0.0 3.108524E-02 -6.511184E-02 -2.501165E-02 0.0 836 G 0.0 0.0 4.148344E-02 -8.062539E-02 -2.742910E-03 0.0 837 G 0.0 0.0 3.612356E-02 -5.367566E-02 9.555558E-03 0.0 838 G 0.0 0.0 2.983038E-02 -3.713643E-02 2.986677E-02 0.0 839 G 0.0 0.0 8.382446E-03 -1.104044E-02 3.608936E-02 0.0 840 G 0.0 0.0 0.0 0.0 4.039577E-03 0.0 841 G 0.0 0.0 0.0 4.172850E-01 0.0 0.0 842 G 0.0 0.0 0.0 3.277452E-01 0.0 0.0 843 G 0.0 0.0 0.0 2.352167E-01 0.0 0.0 844 G 0.0 0.0 0.0 2.081719E-01 0.0 0.0 845 G 0.0 0.0 0.0 1.824938E-01 0.0 0.0 846 G 0.0 0.0 0.0 1.745037E-01 0.0 0.0 847 G 0.0 0.0 0.0 1.160915E-01 0.0 0.0 848 G 0.0 0.0 0.0 8.079020E-02 0.0 0.0 849 G 0.0 0.0 0.0 1.729268E-02 0.0 0.0 850 G 0.0 0.0 0.0 -9.769827E-03 0.0 0.0 851 G 0.0 0.0 0.0 -7.672577E-02 0.0 0.0 852 G 0.0 0.0 0.0 -5.636932E-02 0.0 0.0 853 G 0.0 0.0 0.0 -4.968728E-03 0.0 0.0 854 G 0.0 0.0 0.0 8.326959E-02 0.0 0.0 855 G 0.0 0.0 0.0 -8.872455E-03 0.0 0.0 856 G 0.0 0.0 0.0 -5.270158E-02 0.0 0.0 857 G 0.0 0.0 0.0 -8.669163E-02 0.0 0.0 858 G 0.0 0.0 0.0 -7.825927E-02 0.0 0.0 859 G 0.0 0.0 0.0 -7.575990E-02 0.0 0.0 860 G 0.0 0.0 0.0 -1.917250E-02 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 6.688575E-02 0.0 0.0 2 G 0.0 0.0 0.0 1.770604E-01 0.0 0.0 3 G 0.0 0.0 0.0 2.983970E-01 0.0 0.0 4 G 0.0 0.0 0.0 -2.670683E-02 0.0 0.0 5 G 0.0 0.0 0.0 -1.715152E-01 0.0 0.0 6 G 0.0 0.0 0.0 -1.599859E-01 0.0 0.0 7 G 0.0 0.0 0.0 1.673490E-01 0.0 0.0 8 G 0.0 0.0 0.0 -7.259754E-03 0.0 0.0 9 G 0.0 0.0 0.0 7.589117E-02 0.0 0.0 10 G 0.0 0.0 0.0 6.550609E-02 0.0 0.0 11 G 0.0 0.0 0.0 1.235376E-01 0.0 0.0 12 G 0.0 0.0 0.0 1.526787E-01 0.0 0.0 13 G 0.0 0.0 0.0 3.099521E-01 0.0 0.0 14 G 0.0 0.0 0.0 1.364190E-01 0.0 0.0 15 G 0.0 0.0 0.0 -7.707044E-02 0.0 0.0 16 G 0.0 0.0 0.0 -3.105491E-01 0.0 0.0 17 G 0.0 0.0 0.0 -1.646405E-01 0.0 0.0 18 G 0.0 0.0 0.0 -2.006666E-01 0.0 0.0 19 G 0.0 0.0 0.0 -2.969777E-01 0.0 0.0 20 G 0.0 0.0 0.0 -5.165389E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 2.113265E-01 3.640473E-01 0.0 0.0 65 G 0.0 0.0 2.057700E-01 2.942643E-01 -9.397997E-03 0.0 66 G 0.0 0.0 1.500303E-01 1.423326E-01 3.177446E-01 0.0 67 G 0.0 0.0 -1.176678E-01 -1.733578E-02 6.673677E-01 0.0 68 G 0.0 0.0 -4.653643E-01 -1.398912E-01 7.358930E-01 0.0 69 G 0.0 0.0 -7.300047E-01 -2.728964E-01 1.477303E-01 0.0 70 G 0.0 0.0 -6.144975E-01 -3.936724E-01 -4.532015E-01 0.0 71 G 0.0 0.0 -3.726842E-01 -3.792440E-01 -5.444058E-01 0.0 72 G 0.0 0.0 -8.806431E-02 -1.914460E-01 -4.926470E-01 0.0 73 G 0.0 0.0 8.991364E-02 1.703306E-02 -2.607203E-01 0.0 74 G 0.0 0.0 1.652933E-01 -4.539560E-03 -1.393505E-02 0.0 75 G 0.0 0.0 1.506662E-01 -2.322314E-01 -1.739653E-02 0.0 76 G 0.0 0.0 1.887063E-01 -2.991622E-01 -1.608240E-03 0.0 77 G 0.0 0.0 1.383397E-01 -1.385559E-01 1.274452E-01 0.0 78 G 0.0 0.0 6.967685E-02 -4.287613E-02 2.076299E-01 0.0 79 G 0.0 0.0 -4.801972E-02 1.059433E-02 1.756068E-01 0.0 80 G 0.0 0.0 -6.550051E-02 -3.701993E-03 -5.530832E-02 0.0 81 G 0.0 0.0 6.844204E-03 -4.218804E-02 -2.781661E-01 0.0 82 G 0.0 0.0 1.208606E-01 -1.276059E-02 -1.743761E-02 0.0 83 G 0.0 0.0 3.229164E-02 5.258008E-02 2.072128E-01 0.0 84 G 0.0 0.0 0.0 0.0 -4.575356E-02 0.0 127 G 0.0 0.0 7.023150E-01 1.357125E-02 0.0 0.0 128 G 0.0 0.0 6.689451E-01 -1.256779E-02 1.578173E-01 0.0 129 G 0.0 0.0 4.457734E-01 -9.934239E-02 7.598756E-01 0.0 130 G 0.0 0.0 9.946114E-04 -3.245789E-01 8.645669E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -3.318463E-01 -3.222414E-01 5.494680E-01 0.0 132 G 0.0 0.0 -5.192025E-01 -8.525654E-02 1.142729E-01 0.0 133 G 0.0 0.0 -4.537967E-01 9.234822E-02 -2.976394E-01 0.0 134 G 0.0 0.0 -2.541673E-01 1.898342E-01 -5.552123E-01 0.0 135 G 0.0 0.0 8.583276E-02 2.046284E-01 -7.238680E-01 0.0 136 G 0.0 0.0 4.336812E-01 1.710546E-01 -6.962846E-01 0.0 137 G 0.0 0.0 6.768866E-01 2.115040E-01 -1.109542E-01 0.0 138 G 0.0 0.0 5.528641E-01 3.031593E-01 4.479972E-01 0.0 139 G 0.0 0.0 3.234579E-01 3.219497E-01 5.049593E-01 0.0 140 G 0.0 0.0 5.924223E-02 1.820700E-01 4.499826E-01 0.0 141 G 0.0 0.0 -1.026717E-01 3.024942E-02 2.426675E-01 0.0 142 G 0.0 0.0 -1.801016E-01 6.725106E-02 3.830884E-02 0.0 143 G 0.0 0.0 -1.885253E-01 2.663222E-01 8.886629E-02 0.0 144 G 0.0 0.0 -2.712679E-01 2.536124E-01 1.037150E-01 0.0 145 G 0.0 0.0 -2.680257E-01 5.829270E-02 -4.468844E-02 0.0 146 G 0.0 0.0 -2.127584E-01 -1.143478E-02 -2.458969E-01 0.0 147 G 0.0 0.0 0.0 0.0 -5.300774E-01 0.0 190 G 0.0 0.0 4.918592E-01 3.384261E-01 0.0 0.0 191 G 0.0 0.0 5.419418E-01 1.024902E-01 -8.921149E-02 0.0 192 G 0.0 0.0 4.475052E-01 -1.099283E-02 5.765750E-01 0.0 193 G 0.0 0.0 2.793376E-02 8.094657E-02 9.680468E-01 0.0 194 G 0.0 0.0 -3.889477E-01 1.756075E-01 6.601110E-01 0.0 195 G 0.0 0.0 -5.878743E-01 2.006125E-01 7.241336E-02 0.0 196 G 0.0 0.0 -4.729224E-01 1.086282E-01 -4.681544E-01 0.0 197 G 0.0 0.0 -1.776246E-01 1.329685E-01 -6.859816E-01 0.0 198 G 0.0 0.0 1.392670E-01 2.290732E-01 -5.195615E-01 0.0 199 G 0.0 0.0 3.217006E-01 2.495364E-01 -2.866137E-01 0.0 200 G 0.0 0.0 4.214642E-01 7.079600E-05 -5.221602E-02 0.0 201 G 0.0 0.0 3.682898E-01 -1.289380E-01 2.272456E-01 0.0 202 G 0.0 0.0 2.164402E-01 -1.725347E-01 4.001546E-01 0.0 203 G 0.0 0.0 -1.565620E-02 -1.357253E-01 4.875931E-01 0.0 204 G 0.0 0.0 -2.447337E-01 -8.393277E-02 4.376372E-01 0.0 205 G 0.0 0.0 -4.036963E-01 -1.056223E-01 1.178342E-01 0.0 206 G 0.0 0.0 -3.781534E-01 -1.621001E-01 -1.463819E-01 0.0 207 G 0.0 0.0 -3.032026E-01 -1.669830E-01 -1.647952E-01 0.0 208 G 0.0 0.0 -2.041060E-01 -9.648228E-02 -1.878775E-01 0.0 209 G 0.0 0.0 -1.139407E-01 -2.566085E-02 -1.926493E-01 0.0 210 G 0.0 0.0 0.0 0.0 -2.559115E-01 0.0 253 G 0.0 0.0 1.914124E-01 -2.690054E-01 0.0 0.0 254 G 0.0 0.0 1.667968E-01 -1.581463E-01 1.170850E-01 0.0 255 G 0.0 0.0 3.882772E-02 -1.295104E-01 4.273680E-01 0.0 256 G 0.0 0.0 -2.118789E-01 -6.660553E-02 5.035902E-01 0.0 257 G 0.0 0.0 -4.046712E-01 3.096464E-03 2.826642E-01 0.0 258 G 0.0 0.0 -4.797956E-01 6.017851E-02 -8.035578E-03 0.0 259 G 0.0 0.0 -4.082423E-01 7.039658E-02 -2.334264E-01 0.0 260 G 0.0 0.0 -2.393986E-01 -1.425751E-02 -4.952911E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 4.510049E-02 -1.588062E-01 -5.454416E-01 0.0 262 G 0.0 0.0 2.436739E-01 -2.614619E-01 -2.652456E-01 0.0 263 G 0.0 0.0 3.130935E-01 -2.521028E-01 2.511873E-02 0.0 264 G 0.0 0.0 2.304137E-01 -1.823230E-01 2.645234E-01 0.0 265 G 0.0 0.0 7.250568E-02 -1.601893E-01 3.622743E-01 0.0 266 G 0.0 0.0 -8.840895E-02 -1.863862E-01 2.268431E-01 0.0 267 G 0.0 0.0 -1.430112E-01 -1.011763E-01 5.862954E-02 0.0 268 G 0.0 0.0 -1.591149E-01 7.965586E-02 -2.318283E-02 0.0 269 G 0.0 0.0 -1.323320E-01 1.882354E-01 -4.455144E-02 0.0 270 G 0.0 0.0 -1.241363E-01 2.159869E-01 -2.538164E-02 0.0 271 G 0.0 0.0 -1.001905E-01 1.678374E-01 -4.567450E-02 0.0 272 G 0.0 0.0 -7.343173E-02 7.535841E-02 -9.105915E-02 0.0 273 G 0.0 0.0 0.0 0.0 -1.879228E-01 0.0 316 G 0.0 0.0 1.684065E-01 4.894756E-02 0.0 0.0 317 G 0.0 0.0 1.700820E-01 1.915626E-02 1.060709E-02 0.0 318 G 0.0 0.0 1.161076E-01 4.054397E-02 2.383010E-01 0.0 319 G 0.0 0.0 -4.766628E-02 9.638347E-02 3.641663E-01 0.0 320 G 0.0 0.0 -2.060828E-01 7.346923E-02 2.643341E-01 0.0 321 G 0.0 0.0 -2.703933E-01 -3.932299E-02 -5.288098E-02 0.0 322 G 0.0 0.0 -1.647447E-01 -6.446461E-02 -2.868775E-01 0.0 323 G 0.0 0.0 -2.361324E-02 -2.823012E-04 -2.972967E-01 0.0 324 G 0.0 0.0 1.045194E-01 1.766304E-02 -1.741181E-01 0.0 325 G 0.0 0.0 1.426717E-01 9.262841E-03 -2.324350E-02 0.0 326 G 0.0 0.0 1.465088E-01 -4.927482E-03 2.632203E-02 0.0 327 G 0.0 0.0 1.274195E-01 -1.081157E-02 1.461277E-02 0.0 328 G 0.0 0.0 1.057958E-01 2.865664E-02 1.444684E-01 0.0 329 G 0.0 0.0 1.232566E-03 1.178884E-01 1.944930E-01 0.0 330 G 0.0 0.0 -4.610125E-02 1.737488E-01 2.237881E-02 0.0 331 G 0.0 0.0 -3.700558E-02 1.712160E-01 -8.471370E-02 0.0 332 G 0.0 0.0 2.347525E-02 1.219289E-01 -1.187281E-01 0.0 333 G 0.0 0.0 6.874119E-02 1.405036E-01 -7.159999E-02 0.0 334 G 0.0 0.0 7.767881E-02 2.045858E-01 6.924324E-02 0.0 335 G 0.0 0.0 1.567038E-02 1.874210E-01 1.060224E-01 0.0 336 G 0.0 0.0 0.0 0.0 -1.098499E-02 0.0 379 G 0.0 0.0 2.786767E-01 3.509685E-02 0.0 0.0 380 G 0.0 0.0 2.735596E-01 2.650905E-02 4.394487E-02 0.0 381 G 0.0 0.0 2.093947E-01 1.656898E-02 2.131366E-01 0.0 382 G 0.0 0.0 8.798515E-02 2.322631E-03 2.338310E-01 0.0 383 G 0.0 0.0 -1.683303E-02 2.377489E-02 2.220289E-01 0.0 384 G 0.0 0.0 -1.130426E-01 6.537259E-02 1.123126E-01 0.0 385 G 0.0 0.0 -1.116959E-01 7.835905E-02 -9.479300E-02 0.0 386 G 0.0 0.0 -4.691784E-02 4.281405E-02 -1.794029E-01 0.0 387 G 0.0 0.0 4.684161E-02 1.103762E-02 -1.703965E-01 0.0 388 G 0.0 0.0 1.107852E-01 4.476724E-02 -9.076617E-02 0.0 389 G 0.0 0.0 1.232653E-01 1.317121E-01 6.369136E-02 0.0 390 G 0.0 0.0 5.725655E-02 1.440012E-01 1.455765E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 -9.335953E-04 7.654794E-02 1.018692E-01 0.0 392 G 0.0 0.0 -3.321170E-02 2.253713E-02 5.066951E-03 0.0 393 G 0.0 0.0 -6.566999E-03 -1.023960E-02 -7.875121E-02 0.0 394 G 0.0 0.0 2.778794E-02 -2.351112E-02 -6.704468E-02 0.0 395 G 0.0 0.0 4.832625E-02 -2.597235E-02 9.580523E-03 0.0 396 G 0.0 0.0 3.674315E-02 -5.262722E-02 -1.155705E-02 0.0 397 G 0.0 0.0 5.446748E-02 -8.889289E-02 -1.112616E-02 0.0 398 G 0.0 0.0 3.033492E-02 -8.317499E-02 7.845499E-02 0.0 399 G 0.0 0.0 0.0 0.0 5.409649E-02 0.0 442 G 0.0 0.0 9.591893E-02 -4.818303E-02 0.0 0.0 443 G 0.0 0.0 1.443861E-01 -1.668825E-02 -1.088064E-01 0.0 444 G 0.0 0.0 1.188304E-01 5.759758E-02 2.266355E-01 0.0 445 G 0.0 0.0 -5.165764E-02 5.020717E-02 3.819616E-01 0.0 446 G 0.0 0.0 -2.116649E-01 -3.438111E-02 2.598816E-01 0.0 447 G 0.0 0.0 -2.877470E-01 -8.771501E-02 1.844697E-02 0.0 448 G 0.0 0.0 -2.365825E-01 -1.035934E-01 -1.851185E-01 0.0 449 G 0.0 0.0 -1.344672E-01 -8.351418E-02 -2.239456E-01 0.0 450 G 0.0 0.0 -3.633194E-02 -4.806457E-02 -1.386567E-01 0.0 451 G 0.0 0.0 1.883272E-02 -4.356234E-02 -1.286004E-01 0.0 452 G 0.0 0.0 8.857299E-02 -7.019044E-02 -1.006513E-01 0.0 453 G 0.0 0.0 1.025674E-01 -8.680850E-02 2.264444E-02 0.0 454 G 0.0 0.0 8.289442E-02 -6.357139E-02 7.720865E-02 0.0 455 G 0.0 0.0 3.524187E-02 -4.159423E-02 9.032501E-02 0.0 456 G 0.0 0.0 -1.076555E-03 -8.257233E-02 6.058725E-02 0.0 457 G 0.0 0.0 -1.278333E-02 -1.724393E-01 -4.107792E-02 0.0 458 G 0.0 0.0 3.184495E-02 -1.816797E-01 -8.647703E-02 0.0 459 G 0.0 0.0 5.743615E-02 -1.061007E-01 -3.465037E-02 0.0 460 G 0.0 0.0 6.116021E-02 -4.637267E-02 4.030602E-02 0.0 461 G 0.0 0.0 2.285809E-02 -9.411819E-03 7.779451E-02 0.0 462 G 0.0 0.0 0.0 0.0 2.186547E-02 0.0 505 G 0.0 0.0 8.726405E-02 -3.306651E-02 0.0 0.0 506 G 0.0 0.0 7.231595E-02 -4.922601E-02 2.236070E-02 0.0 507 G 0.0 0.0 4.086947E-02 -6.996427E-02 1.467478E-01 0.0 508 G 0.0 0.0 -7.494374E-02 -5.917854E-02 2.758412E-01 0.0 509 G 0.0 0.0 -1.942093E-01 -1.138714E-02 2.051826E-01 0.0 510 G 0.0 0.0 -2.598311E-01 4.593273E-02 3.276110E-02 0.0 511 G 0.0 0.0 -2.295127E-01 3.453205E-02 -1.369986E-01 0.0 512 G 0.0 0.0 -1.305165E-01 -3.098715E-02 -2.700918E-01 0.0 513 G 0.0 0.0 1.638776E-02 -5.862402E-02 -2.616794E-01 0.0 514 G 0.0 0.0 1.090535E-01 -7.488266E-03 -1.245317E-01 0.0 515 G 0.0 0.0 1.391306E-01 1.186663E-02 2.002892E-02 0.0 516 G 0.0 0.0 9.681452E-02 6.938466E-03 1.227006E-01 0.0 517 G 0.0 0.0 3.657605E-02 -2.185758E-02 1.226059E-01 0.0 518 G 0.0 0.0 -1.298666E-02 -4.911632E-02 5.660804E-02 0.0 519 G 0.0 0.0 -3.404191E-02 -5.098673E-02 6.666902E-02 0.0 520 G 0.0 0.0 -7.692406E-02 -1.915702E-02 6.938412E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 -8.989993E-02 5.375036E-04 -2.558528E-03 0.0 522 G 0.0 0.0 -8.607368E-02 -9.036327E-03 -3.053024E-02 0.0 523 G 0.0 0.0 -6.428280E-02 -3.812345E-02 -4.016275E-02 0.0 524 G 0.0 0.0 -4.337438E-02 -2.691886E-02 -5.751916E-02 0.0 525 G 0.0 0.0 0.0 0.0 -1.060056E-01 0.0 568 G 0.0 0.0 1.247131E-01 1.929076E-02 0.0 0.0 569 G 0.0 0.0 1.288192E-01 5.013267E-03 1.855409E-03 0.0 570 G 0.0 0.0 9.520199E-02 1.919373E-02 1.530004E-01 0.0 571 G 0.0 0.0 -6.048204E-03 5.401740E-02 2.139049E-01 0.0 572 G 0.0 0.0 -8.310775E-02 8.717109E-02 9.242175E-02 0.0 573 G 0.0 0.0 -8.317596E-02 1.074216E-01 -1.068906E-01 0.0 574 G 0.0 0.0 -2.350004E-03 1.366970E-01 -1.688727E-01 0.0 575 G 0.0 0.0 6.960997E-02 1.695166E-01 -1.451280E-01 0.0 576 G 0.0 0.0 1.415368E-01 1.753845E-01 -1.208375E-01 0.0 577 G 0.0 0.0 1.732824E-01 1.345836E-01 -2.340845E-02 0.0 578 G 0.0 0.0 1.624393E-01 8.281568E-02 7.774428E-02 0.0 579 G 0.0 0.0 1.011340E-01 7.459636E-02 1.548582E-01 0.0 580 G 0.0 0.0 8.711516E-03 1.047855E-01 2.275295E-01 0.0 581 G 0.0 0.0 -1.132099E-01 8.357687E-02 2.171626E-01 0.0 582 G 0.0 0.0 -1.936759E-01 9.832165E-03 1.174470E-01 0.0 583 G 0.0 0.0 -2.271968E-01 -3.875155E-02 1.936878E-03 0.0 584 G 0.0 0.0 -2.017944E-01 -5.833719E-02 -7.691958E-02 0.0 585 G 0.0 0.0 -1.662787E-01 -4.794853E-02 -7.150794E-02 0.0 586 G 0.0 0.0 -1.357871E-01 -1.803577E-02 -3.447790E-02 0.0 587 G 0.0 0.0 -1.061143E-01 7.274098E-04 -1.247060E-01 0.0 588 G 0.0 0.0 0.0 0.0 -2.654008E-01 0.0 631 G 0.0 0.0 3.401689E-02 -6.773479E-02 0.0 0.0 632 G 0.0 0.0 3.634715E-02 -4.416558E-02 -5.192817E-05 0.0 633 G 0.0 0.0 2.018624E-02 -4.066202E-02 7.832038E-02 0.0 634 G 0.0 0.0 -2.659979E-02 -9.593438E-03 9.108953E-02 0.0 635 G 0.0 0.0 -5.948272E-02 4.852978E-02 5.376660E-02 0.0 636 G 0.0 0.0 -6.836507E-02 4.856477E-02 -5.290244E-02 0.0 637 G 0.0 0.0 -4.648894E-03 -6.555434E-03 -1.772449E-01 0.0 638 G 0.0 0.0 9.514376E-02 -3.898313E-02 -2.264919E-01 0.0 639 G 0.0 0.0 2.024553E-01 -4.495925E-02 -1.718901E-01 0.0 640 G 0.0 0.0 2.461706E-01 -2.697852E-02 -1.170832E-02 0.0 641 G 0.0 0.0 2.108849E-01 3.119826E-03 1.631095E-01 0.0 642 G 0.0 0.0 1.103372E-01 1.257906E-02 1.908146E-01 0.0 643 G 0.0 0.0 2.936285E-02 -5.865020E-04 1.615621E-01 0.0 644 G 0.0 0.0 -5.774204E-02 -6.986323E-03 1.657629E-01 0.0 645 G 0.0 0.0 -1.240408E-01 1.665721E-02 1.153893E-01 0.0 646 G 0.0 0.0 -1.708245E-01 3.895038E-02 5.702837E-02 0.0 647 G 0.0 0.0 -1.826649E-01 1.180619E-02 -1.428667E-03 0.0 648 G 0.0 0.0 -1.647139E-01 -5.523616E-02 -8.835766E-02 0.0 649 G 0.0 0.0 -1.023483E-01 -6.813756E-02 -1.220623E-01 0.0 650 G 0.0 0.0 -5.250824E-02 -2.677295E-02 -9.282242E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 96 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 -1.169977E-01 0.0 694 G 0.0 0.0 -1.107958E-02 -5.943400E-02 0.0 0.0 695 G 0.0 0.0 -4.831485E-03 -1.319696E-02 2.814100E-04 0.0 696 G 0.0 0.0 -4.080714E-02 1.421440E-03 1.575040E-01 0.0 697 G 0.0 0.0 -1.322469E-01 -2.503291E-02 1.603495E-01 0.0 698 G 0.0 0.0 -1.783465E-01 -8.478411E-02 4.095351E-02 0.0 699 G 0.0 0.0 -1.739786E-01 -1.310429E-01 -6.999849E-02 0.0 700 G 0.0 0.0 -1.069967E-01 -1.422426E-01 -1.740114E-01 0.0 701 G 0.0 0.0 -1.273951E-02 -1.292924E-01 -2.047808E-01 0.0 702 G 0.0 0.0 8.386698E-02 -1.418428E-01 -1.676969E-01 0.0 703 G 0.0 0.0 1.519774E-01 -1.706406E-01 -1.152889E-01 0.0 704 G 0.0 0.0 1.944364E-01 -1.434862E-01 -2.511878E-02 0.0 705 G 0.0 0.0 1.755656E-01 -6.363189E-02 8.469433E-02 0.0 706 G 0.0 0.0 1.173787E-01 2.695572E-03 1.545669E-01 0.0 707 G 0.0 0.0 3.284083E-02 4.499153E-02 1.605639E-01 0.0 708 G 0.0 0.0 -2.848102E-02 6.132875E-02 8.983186E-02 0.0 709 G 0.0 0.0 -5.310800E-02 6.238091E-02 -2.311029E-03 0.0 710 G 0.0 0.0 -4.427894E-02 7.539991E-02 3.583928E-05 0.0 711 G 0.0 0.0 -5.541842E-02 9.610947E-02 1.756134E-02 0.0 712 G 0.0 0.0 -5.131685E-02 9.701242E-02 -2.295421E-02 0.0 713 G 0.0 0.0 -3.747483E-02 5.957399E-02 -4.932171E-02 0.0 714 G 0.0 0.0 0.0 0.0 -9.055878E-02 0.0 757 G 0.0 0.0 9.712509E-02 1.235839E-02 0.0 0.0 758 G 0.0 0.0 1.015107E-01 -1.752840E-02 -1.137584E-02 0.0 759 G 0.0 0.0 8.133692E-02 -1.028651E-02 1.125794E-01 0.0 760 G 0.0 0.0 -4.476230E-03 4.473427E-02 2.002138E-01 0.0 761 G 0.0 0.0 -9.908585E-02 7.819094E-02 1.758742E-01 0.0 762 G 0.0 0.0 -1.657565E-01 7.945354E-02 6.690779E-02 0.0 763 G 0.0 0.0 -1.585100E-01 4.879151E-02 -8.480350E-02 0.0 764 G 0.0 0.0 -8.907551E-02 4.356219E-03 -1.961567E-01 0.0 765 G 0.0 0.0 8.259339E-03 -1.869787E-02 -1.537162E-01 0.0 766 G 0.0 0.0 5.559142E-02 -1.410036E-02 -5.987839E-02 0.0 767 G 0.0 0.0 7.801147E-02 -6.422515E-03 -1.738453E-02 0.0 768 G 0.0 0.0 7.062849E-02 -1.473386E-02 2.993470E-02 0.0 769 G 0.0 0.0 5.320580E-02 -1.958671E-02 4.819261E-02 0.0 770 G 0.0 0.0 2.790844E-02 1.456178E-02 4.604749E-02 0.0 771 G 0.0 0.0 3.803998E-03 7.517955E-02 6.534404E-02 0.0 772 G 0.0 0.0 -3.392896E-02 8.632218E-02 5.670007E-02 0.0 773 G 0.0 0.0 -4.799797E-02 4.453328E-02 1.357403E-02 0.0 774 G 0.0 0.0 -4.884860E-02 1.143810E-02 -2.075558E-02 0.0 775 G 0.0 0.0 -3.088870E-02 -1.053127E-02 -3.281995E-02 0.0 776 G 0.0 0.0 -1.992114E-02 -1.684141E-02 -2.349863E-02 0.0 777 G 0.0 0.0 0.0 0.0 -4.865733E-02 0.0 820 G 0.0 0.0 2.716408E-03 -5.340583E-02 0.0 0.0 821 G 0.0 0.0 1.970067E-02 -5.817655E-02 -4.288293E-02 0.0 822 G 0.0 0.0 2.507508E-02 -4.517126E-02 2.550618E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 97 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.268083E+05 (CYCLIC FREQUENCY = 2.605883E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 -2.117890E-03 1.187407E-02 6.637880E-02 0.0 824 G 0.0 0.0 -3.320197E-02 5.592199E-02 6.520471E-02 0.0 825 G 0.0 0.0 -6.231111E-02 1.036056E-01 3.672869E-02 0.0 826 G 0.0 0.0 -7.077322E-02 1.254897E-01 5.933871E-03 0.0 827 G 0.0 0.0 -6.872001E-02 1.315090E-01 -3.109521E-02 0.0 828 G 0.0 0.0 -4.271794E-02 5.886645E-02 -5.277816E-02 0.0 829 G 0.0 0.0 -1.840376E-02 4.764536E-03 -5.650385E-02 0.0 830 G 0.0 0.0 1.046679E-02 -3.328571E-02 -3.777853E-02 0.0 831 G 0.0 0.0 1.364249E-02 -3.639155E-02 1.638607E-02 0.0 832 G 0.0 0.0 -2.416818E-03 -2.737787E-02 5.666650E-02 0.0 833 G 0.0 0.0 -2.597106E-02 -6.388906E-03 1.235249E-03 0.0 834 G 0.0 0.0 -6.442539E-03 -1.305808E-02 -4.414719E-02 0.0 835 G 0.0 0.0 4.931061E-03 -1.442611E-02 -9.937318E-03 0.0 836 G 0.0 0.0 9.440578E-03 -1.892798E-02 2.523256E-03 0.0 837 G 0.0 0.0 4.958942E-03 3.167755E-03 3.759847E-03 0.0 838 G 0.0 0.0 4.240338E-03 8.119310E-03 1.058566E-02 0.0 839 G 0.0 0.0 -4.288692E-03 1.244676E-02 8.400129E-03 0.0 840 G 0.0 0.0 0.0 0.0 -1.958590E-02 0.0 841 G 0.0 0.0 0.0 2.370685E-02 0.0 0.0 842 G 0.0 0.0 0.0 -2.833896E-02 0.0 0.0 843 G 0.0 0.0 0.0 -4.898937E-02 0.0 0.0 844 G 0.0 0.0 0.0 5.318664E-03 0.0 0.0 845 G 0.0 0.0 0.0 6.845889E-02 0.0 0.0 846 G 0.0 0.0 0.0 1.370470E-01 0.0 0.0 847 G 0.0 0.0 0.0 1.447739E-01 0.0 0.0 848 G 0.0 0.0 0.0 1.440369E-01 0.0 0.0 849 G 0.0 0.0 0.0 9.636144E-02 0.0 0.0 850 G 0.0 0.0 0.0 6.088192E-02 0.0 0.0 851 G 0.0 0.0 0.0 -1.212359E-02 0.0 0.0 852 G 0.0 0.0 0.0 -1.299242E-02 0.0 0.0 853 G 0.0 0.0 0.0 1.915624E-02 0.0 0.0 854 G 0.0 0.0 0.0 8.956579E-02 0.0 0.0 855 G 0.0 0.0 0.0 2.401160E-02 0.0 0.0 856 G 0.0 0.0 0.0 -1.235575E-03 0.0 0.0 857 G 0.0 0.0 0.0 -2.130590E-02 0.0 0.0 858 G 0.0 0.0 0.0 -1.455853E-02 0.0 0.0 859 G 0.0 0.0 0.0 -2.126706E-02 0.0 0.0 860 G 0.0 0.0 0.0 6.596629E-03 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 98 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 3.218621E-01 0.0 0.0 2 G 0.0 0.0 0.0 1.179727E-01 0.0 0.0 3 G 0.0 0.0 0.0 -2.368950E-01 0.0 0.0 4 G 0.0 0.0 0.0 -1.861497E-01 0.0 0.0 5 G 0.0 0.0 0.0 -2.288439E-01 0.0 0.0 6 G 0.0 0.0 0.0 -3.028369E-01 0.0 0.0 7 G 0.0 0.0 0.0 -5.665961E-01 0.0 0.0 8 G 0.0 0.0 0.0 -2.766977E-01 0.0 0.0 9 G 0.0 0.0 0.0 -2.121406E-01 0.0 0.0 10 G 0.0 0.0 0.0 -9.320007E-02 0.0 0.0 11 G 0.0 0.0 0.0 -1.104854E-01 0.0 0.0 12 G 0.0 0.0 0.0 -1.724405E-01 0.0 0.0 13 G 0.0 0.0 0.0 -3.888453E-01 0.0 0.0 14 G 0.0 0.0 0.0 -2.693110E-01 0.0 0.0 15 G 0.0 0.0 0.0 -6.660937E-02 0.0 0.0 16 G 0.0 0.0 0.0 1.905944E-01 0.0 0.0 17 G 0.0 0.0 0.0 9.976437E-02 0.0 0.0 18 G 0.0 0.0 0.0 1.800015E-01 0.0 0.0 19 G 0.0 0.0 0.0 3.041067E-01 0.0 0.0 20 G 0.0 0.0 0.0 5.176609E-01 0.0 0.0 21 G 0.0 0.0 0.0 0.0 0.0 0.0 64 G 0.0 0.0 3.321509E-01 -6.220927E-02 0.0 0.0 65 G 0.0 0.0 2.075957E-01 -5.792980E-02 5.077345E-01 0.0 66 G 0.0 0.0 -5.778584E-02 -6.960487E-02 4.266159E-01 0.0 67 G 0.0 0.0 -1.488013E-01 -9.315864E-02 -2.136753E-02 0.0 68 G 0.0 0.0 -4.466524E-02 -8.861709E-02 -4.227395E-01 0.0 69 G 0.0 0.0 1.607812E-01 3.512918E-02 -2.249877E-01 0.0 70 G 0.0 0.0 1.604534E-01 2.431322E-01 9.474511E-02 0.0 71 G 0.0 0.0 1.271618E-01 3.655194E-01 8.655393E-02 0.0 72 G 0.0 0.0 6.309150E-02 3.136237E-01 8.939431E-02 0.0 73 G 0.0 0.0 4.718240E-02 2.033533E-01 2.442756E-02 0.0 74 G 0.0 0.0 3.819955E-02 2.671623E-01 -1.147715E-02 0.0 75 G 0.0 0.0 2.029040E-02 4.825063E-01 1.605841E-01 0.0 76 G 0.0 0.0 -1.093601E-01 5.000758E-01 2.156970E-01 0.0 77 G 0.0 0.0 -1.607849E-01 2.684491E-01 5.048053E-02 0.0 78 G 0.0 0.0 -1.555151E-01 9.600800E-02 -1.309493E-01 0.0 79 G 0.0 0.0 -5.027736E-02 -8.627278E-03 -1.999144E-01 0.0 80 G 0.0 0.0 -3.008916E-03 -1.080315E-02 -2.798889E-02 0.0 81 G 0.0 0.0 -3.184063E-02 3.283525E-02 1.906983E-01 0.0 82 G 0.0 0.0 -1.122330E-01 1.247108E-02 -2.056936E-02 0.0 83 G 0.0 0.0 -2.052316E-02 -4.882314E-02 -1.901087E-01 0.0 84 G 0.0 0.0 0.0 0.0 7.251798E-02 0.0 127 G 0.0 0.0 2.713925E-01 2.174290E-01 0.0 0.0 128 G 0.0 0.0 1.125171E-01 2.248971E-01 5.843154E-01 0.0 129 G 0.0 0.0 -1.475317E-01 2.668702E-01 3.692986E-01 0.0 130 G 0.0 0.0 -2.506364E-01 4.358495E-01 1.302200E-01 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 99 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 131 G 0.0 0.0 -2.938529E-01 3.930482E-01 -6.921415E-02 0.0 132 G 0.0 0.0 -1.930890E-01 1.406792E-01 -2.486680E-01 0.0 133 G 0.0 0.0 -6.826511E-02 -3.055045E-02 -2.941256E-01 0.0 134 G 0.0 0.0 7.792928E-02 -1.010849E-01 -1.986576E-01 0.0 135 G 0.0 0.0 9.348734E-02 -8.739245E-02 9.102784E-02 0.0 136 G 0.0 0.0 -8.667805E-03 -5.003208E-02 3.578371E-01 0.0 137 G 0.0 0.0 -1.668854E-01 -1.200668E-01 1.139736E-01 0.0 138 G 0.0 0.0 -1.149654E-01 -2.630383E-01 -1.805179E-01 0.0 139 G 0.0 0.0 -5.329130E-02 -3.373835E-01 -1.132748E-01 0.0 140 G 0.0 0.0 1.175300E-02 -2.506586E-01 -6.424459E-02 0.0 141 G 0.0 0.0 8.110886E-03 -1.457410E-01 2.344545E-02 0.0 142 G 0.0 0.0 -4.330070E-03 -2.159081E-01 4.762679E-02 0.0 143 G 0.0 0.0 2.536790E-03 -4.245348E-01 -1.591630E-01 0.0 144 G 0.0 0.0 1.402476E-01 -4.001994E-01 -2.462374E-01 0.0 145 G 0.0 0.0 2.061185E-01 -1.714921E-01 -7.561891E-02 0.0 146 G 0.0 0.0 1.936080E-01 -4.808606E-02 1.911732E-01 0.0 147 G 0.0 0.0 0.0 0.0 5.004990E-01 0.0 190 G 0.0 0.0 3.904264E-01 -6.811358E-01 0.0 0.0 191 G 0.0 0.0 1.643546E-01 -4.189925E-01 7.699481E-01 0.0 192 G 0.0 0.0 -1.807405E-01 -2.188892E-01 4.452091E-01 0.0 193 G 0.0 0.0 -2.501796E-01 -1.973731E-01 -9.223527E-02 0.0 194 G 0.0 0.0 -1.546878E-01 -1.919732E-01 -2.747117E-01 0.0 195 G 0.0 0.0 -7.051078E-03 -1.564940E-01 -2.482203E-01 0.0 196 G 0.0 0.0 7.482544E-02 -5.785841E-02 -1.136813E-01 0.0 197 G 0.0 0.0 1.117868E-01 -1.143529E-01 -2.692037E-02 0.0 198 G 0.0 0.0 1.224931E-01 -2.609207E-01 -4.662246E-02 0.0 199 G 0.0 0.0 1.450413E-01 -3.263198E-01 4.334155E-02 0.0 200 G 0.0 0.0 7.727458E-02 -1.081358E-01 1.647942E-01 0.0 201 G 0.0 0.0 3.173405E-03 1.776966E-02 1.481619E-01 0.0 202 G 0.0 0.0 -6.381807E-02 7.438798E-02 7.773821E-02 0.0 203 G 0.0 0.0 -6.350068E-02 6.271767E-02 -5.907204E-02 0.0 204 G 0.0 0.0 -1.291878E-02 4.637239E-02 -1.619200E-01 0.0 205 G 0.0 0.0 5.608937E-02 1.053890E-01 -3.946796E-02 0.0 206 G 0.0 0.0 3.575084E-02 1.884329E-01 5.491195E-02 0.0 207 G 0.0 0.0 3.169033E-02 2.011356E-01 -1.897083E-02 0.0 208 G 0.0 0.0 3.118301E-02 1.240761E-01 -1.095472E-02 0.0 209 G 0.0 0.0 3.392055E-02 4.023237E-02 2.477338E-02 0.0 210 G 0.0 0.0 0.0 0.0 1.050590E-01 0.0 253 G 0.0 0.0 1.815648E-01 7.525547E-02 0.0 0.0 254 G 0.0 0.0 9.189657E-02 6.095224E-03 3.249144E-01 0.0 255 G 0.0 0.0 -6.120475E-02 7.059397E-02 2.208760E-01 0.0 256 G 0.0 0.0 -1.122009E-01 1.133149E-01 2.027170E-02 0.0 257 G 0.0 0.0 -9.623454E-02 1.139512E-01 -1.103969E-01 0.0 258 G 0.0 0.0 -9.289674E-03 6.802115E-02 -2.029902E-01 0.0 259 G 0.0 0.0 9.312463E-02 1.487693E-02 -2.252809E-01 0.0 260 G 0.0 0.0 1.702326E-01 2.460375E-02 -6.979495E-03 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 100 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 261 G 0.0 0.0 1.061380E-01 8.924570E-02 1.862075E-01 0.0 262 G 0.0 0.0 2.687800E-02 1.325411E-01 1.493468E-01 0.0 263 G 0.0 0.0 -4.344796E-02 1.041741E-01 8.944749E-02 0.0 264 G 0.0 0.0 -5.803147E-02 6.207379E-02 -3.192986E-03 0.0 265 G 0.0 0.0 -4.234519E-02 1.047212E-01 -6.608019E-02 0.0 266 G 0.0 0.0 -1.497403E-02 2.127941E-01 -3.754962E-04 0.0 267 G 0.0 0.0 -4.092994E-02 2.067967E-01 3.545923E-02 0.0 268 G 0.0 0.0 -3.692970E-02 8.267249E-02 -2.160262E-02 0.0 269 G 0.0 0.0 -1.589995E-02 -4.085075E-03 -9.145177E-02 0.0 270 G 0.0 0.0 4.891810E-02 -4.172290E-02 -1.216944E-01 0.0 271 G 0.0 0.0 8.572288E-02 -3.121803E-02 -4.200594E-02 0.0 272 G 0.0 0.0 8.158571E-02 -9.236899E-05 8.546218E-02 0.0 273 G 0.0 0.0 0.0 0.0 2.172651E-01 0.0 316 G 0.0 0.0 1.326873E-01 -3.744940E-03 0.0 0.0 317 G 0.0 0.0 5.964965E-02 4.218713E-02 2.650822E-01 0.0 318 G 0.0 0.0 -6.020822E-02 6.394631E-02 1.603897E-01 0.0 319 G 0.0 0.0 -7.976267E-02 5.547331E-02 -4.947994E-02 0.0 320 G 0.0 0.0 -2.671750E-02 1.040842E-01 -1.618876E-01 0.0 321 G 0.0 0.0 4.226741E-02 2.060065E-01 -6.397785E-02 0.0 322 G 0.0 0.0 3.082682E-02 1.885533E-01 4.113025E-02 0.0 323 G 0.0 0.0 1.564618E-02 6.316213E-02 4.833618E-02 0.0 324 G 0.0 0.0 -1.094471E-02 -1.671995E-02 2.474885E-02 0.0 325 G 0.0 0.0 -1.091561E-02 -4.943116E-02 1.716013E-02 0.0 326 G 0.0 0.0 -4.218198E-02 -4.769352E-02 8.356438E-02 0.0 327 G 0.0 0.0 -9.126045E-02 -3.130206E-02 1.366757E-01 0.0 328 G 0.0 0.0 -1.376216E-01 -4.661257E-02 -2.736153E-02 0.0 329 G 0.0 0.0 -7.060803E-02 -1.051587E-01 -1.649649E-01 0.0 330 G 0.0 0.0 -1.150057E-02 -1.323695E-01 -9.178698E-02 0.0 331 G 0.0 0.0 3.081185E-02 -1.113642E-01 -4.452905E-02 0.0 332 G 0.0 0.0 3.762310E-02 -6.062618E-02 -1.153090E-02 0.0 333 G 0.0 0.0 4.377101E-02 -9.106917E-02 1.229435E-03 0.0 334 G 0.0 0.0 4.479336E-02 -1.729982E-01 -3.563181E-02 0.0 335 G 0.0 0.0 6.299712E-02 -1.723887E-01 2.737902E-02 0.0 336 G 0.0 0.0 0.0 0.0 1.817165E-01 0.0 379 G 0.0 0.0 6.724192E-02 -3.554140E-02 0.0 0.0 380 G 0.0 0.0 1.165028E-02 -2.960634E-02 1.915961E-01 0.0 381 G 0.0 0.0 -7.419382E-02 -2.727323E-02 1.329091E-01 0.0 382 G 0.0 0.0 -1.139905E-01 -2.674638E-02 4.700058E-02 0.0 383 G 0.0 0.0 -1.071608E-01 -6.421247E-02 -1.146399E-01 0.0 384 G 0.0 0.0 -1.871976E-02 -1.167743E-01 -1.850977E-01 0.0 385 G 0.0 0.0 4.597687E-02 -1.293668E-01 -8.440110E-02 0.0 386 G 0.0 0.0 7.287657E-02 -8.205401E-02 4.311675E-04 0.0 387 G 0.0 0.0 5.027235E-02 -3.081088E-02 6.928695E-02 0.0 388 G 0.0 0.0 1.050841E-02 -4.190294E-02 9.206300E-02 0.0 389 G 0.0 0.0 -2.388654E-02 -1.071638E-01 1.788945E-02 0.0 390 G 0.0 0.0 -7.904485E-03 -1.053359E-01 -3.525894E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 101 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 391 G 0.0 0.0 6.780180E-04 -3.449432E-02 -1.746622E-02 0.0 392 G 0.0 0.0 5.612530E-03 1.125890E-02 1.669889E-02 0.0 393 G 0.0 0.0 -1.369812E-02 2.287238E-02 3.019253E-02 0.0 394 G 0.0 0.0 -1.152265E-02 8.241523E-03 -2.666861E-02 0.0 395 G 0.0 0.0 1.619075E-02 -1.253390E-02 -1.011859E-01 0.0 396 G 0.0 0.0 6.240765E-02 3.910487E-03 -3.212238E-02 0.0 397 G 0.0 0.0 4.762659E-02 4.523307E-02 4.637158E-02 0.0 398 G 0.0 0.0 3.386172E-02 5.717383E-02 3.260583E-02 0.0 399 G 0.0 0.0 0.0 0.0 8.474816E-02 0.0 442 G 0.0 0.0 2.079998E-01 9.272512E-04 0.0 0.0 443 G 0.0 0.0 9.060875E-02 -3.612558E-02 3.768366E-01 0.0 444 G 0.0 0.0 -5.732456E-02 -1.228741E-01 1.757268E-01 0.0 445 G 0.0 0.0 -7.796562E-02 -1.303569E-01 -4.303323E-02 0.0 446 G 0.0 0.0 -4.098587E-02 -5.619501E-02 -1.145796E-01 0.0 447 G 0.0 0.0 1.634033E-02 -3.823539E-03 -8.641412E-02 0.0 448 G 0.0 0.0 3.862235E-02 1.861860E-02 -2.832166E-02 0.0 449 G 0.0 0.0 5.588854E-02 1.259806E-02 -2.780776E-02 0.0 450 G 0.0 0.0 7.210134E-02 -5.508143E-04 -5.543177E-02 0.0 451 G 0.0 0.0 8.814884E-02 2.170028E-02 4.027461E-02 0.0 452 G 0.0 0.0 3.613374E-02 7.137747E-02 1.184300E-01 0.0 453 G 0.0 0.0 -5.697669E-03 1.001430E-01 6.407545E-02 0.0 454 G 0.0 0.0 -3.346967E-02 7.717635E-02 2.107939E-02 0.0 455 G 0.0 0.0 -2.829923E-02 4.655423E-02 -2.299211E-02 0.0 456 G 0.0 0.0 -1.386404E-02 7.390463E-02 -4.041418E-02 0.0 457 G 0.0 0.0 -1.880268E-03 1.488054E-01 1.948231E-02 0.0 458 G 0.0 0.0 -2.998540E-02 1.474210E-01 4.544260E-02 0.0 459 G 0.0 0.0 -3.707456E-02 6.781424E-02 2.523530E-03 0.0 460 G 0.0 0.0 -3.187647E-02 1.143730E-02 -4.125169E-02 0.0 461 G 0.0 0.0 -2.261573E-03 -1.165633E-02 -4.379686E-02 0.0 462 G 0.0 0.0 0.0 0.0 2.461841E-02 0.0 505 G 0.0 0.0 1.658654E-01 1.164972E-02 0.0 0.0 506 G 0.0 0.0 1.130681E-01 3.911482E-02 2.365226E-01 0.0 507 G 0.0 0.0 -2.074492E-02 8.794341E-02 2.340875E-01 0.0 508 G 0.0 0.0 -8.583283E-02 1.085067E-01 4.378499E-02 0.0 509 G 0.0 0.0 -8.115701E-02 8.436600E-02 -7.545225E-02 0.0 510 G 0.0 0.0 -2.765173E-02 3.894273E-02 -1.114883E-01 0.0 511 G 0.0 0.0 1.894106E-02 4.906512E-02 -7.973085E-02 0.0 512 G 0.0 0.0 3.975353E-02 1.020623E-01 1.904412E-02 0.0 513 G 0.0 0.0 6.864179E-03 1.094696E-01 6.736633E-02 0.0 514 G 0.0 0.0 -1.469543E-02 3.432801E-02 3.737881E-02 0.0 515 G 0.0 0.0 -2.874812E-02 -1.174166E-02 3.480692E-03 0.0 516 G 0.0 0.0 -1.899790E-02 -3.022003E-02 -2.052749E-02 0.0 517 G 0.0 0.0 -1.752870E-02 -2.050480E-02 5.702027E-03 0.0 518 G 0.0 0.0 -2.721736E-02 -9.269326E-03 4.653288E-02 0.0 519 G 0.0 0.0 -4.429078E-02 -2.017788E-02 -1.776732E-02 0.0 520 G 0.0 0.0 -1.104453E-02 -5.726459E-02 -8.001296E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 102 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 521 G 0.0 0.0 1.891052E-02 -7.203011E-02 -5.019605E-02 0.0 522 G 0.0 0.0 4.420489E-02 -4.829087E-02 -3.010884E-02 0.0 523 G 0.0 0.0 4.847075E-02 -5.126846E-04 -5.867754E-04 0.0 524 G 0.0 0.0 4.055433E-02 8.428220E-03 4.472458E-02 0.0 525 G 0.0 0.0 0.0 0.0 1.044199E-01 0.0 568 G 0.0 0.0 6.468166E-02 -7.501521E-02 0.0 0.0 569 G 0.0 0.0 1.742860E-02 -4.693441E-02 1.648938E-01 0.0 570 G 0.0 0.0 -5.382033E-02 -2.297029E-02 8.651882E-02 0.0 571 G 0.0 0.0 -6.113809E-02 -9.234696E-03 -3.239204E-02 0.0 572 G 0.0 0.0 -3.981895E-02 7.247941E-04 -5.453825E-02 0.0 573 G 0.0 0.0 -2.057316E-02 6.232468E-03 -4.483461E-03 0.0 574 G 0.0 0.0 -2.174878E-02 -1.747118E-02 -2.773711E-02 0.0 575 G 0.0 0.0 5.733163E-03 -6.022822E-02 -4.801910E-02 0.0 576 G 0.0 0.0 1.245791E-02 -8.452525E-02 6.437645E-03 0.0 577 G 0.0 0.0 7.858985E-03 -6.627791E-02 2.884615E-02 0.0 578 G 0.0 0.0 -1.300814E-02 -3.866814E-02 3.928913E-02 0.0 579 G 0.0 0.0 -2.888496E-02 -5.396308E-02 2.840766E-02 0.0 580 G 0.0 0.0 -3.191414E-02 -1.047585E-01 -3.562332E-02 0.0 581 G 0.0 0.0 3.021809E-03 -1.008781E-01 -6.752072E-02 0.0 582 G 0.0 0.0 2.653070E-02 -3.959499E-02 -4.038449E-02 0.0 583 G 0.0 0.0 4.105347E-02 2.286793E-03 -3.113615E-03 0.0 584 G 0.0 0.0 3.280951E-02 1.800965E-02 1.335203E-02 0.0 585 G 0.0 0.0 3.777560E-02 7.115260E-03 -2.307248E-02 0.0 586 G 0.0 0.0 5.542864E-02 -1.656623E-02 -5.847809E-02 0.0 587 G 0.0 0.0 6.848705E-02 -2.082714E-02 4.676135E-02 0.0 588 G 0.0 0.0 0.0 0.0 1.925937E-01 0.0 631 G 0.0 0.0 7.915213E-02 2.744387E-02 0.0 0.0 632 G 0.0 0.0 4.354043E-02 3.353220E-03 1.282805E-01 0.0 633 G 0.0 0.0 -1.896272E-02 -4.855567E-03 9.717739E-02 0.0 634 G 0.0 0.0 -4.640964E-02 -4.188585E-02 2.021210E-02 0.0 635 G 0.0 0.0 -3.650090E-02 -1.040605E-01 -7.380731E-02 0.0 636 G 0.0 0.0 1.533449E-02 -1.050814E-01 -9.372568E-02 0.0 637 G 0.0 0.0 4.370130E-02 -4.545393E-02 -3.334664E-02 0.0 638 G 0.0 0.0 4.652968E-02 -1.611804E-03 3.475929E-02 0.0 639 G 0.0 0.0 1.513461E-02 1.953167E-02 6.558467E-02 0.0 640 G 0.0 0.0 -4.960902E-03 1.931878E-02 2.272440E-02 0.0 641 G 0.0 0.0 -3.527547E-03 1.001712E-02 -4.204604E-02 0.0 642 G 0.0 0.0 1.721318E-02 2.235956E-02 -1.284833E-03 0.0 643 G 0.0 0.0 -1.815904E-03 5.374471E-02 4.245743E-02 0.0 644 G 0.0 0.0 -9.720253E-03 7.078455E-02 2.571165E-03 0.0 645 G 0.0 0.0 -1.020584E-02 5.002877E-02 -1.921277E-02 0.0 646 G 0.0 0.0 8.243179E-03 2.450208E-02 -4.005304E-02 0.0 647 G 0.0 0.0 2.783249E-02 4.380697E-02 -4.290781E-02 0.0 648 G 0.0 0.0 4.117139E-02 9.936351E-02 1.020262E-02 0.0 649 G 0.0 0.0 2.089049E-02 9.951933E-02 3.586112E-02 0.0 650 G 0.0 0.0 1.280621E-02 4.382661E-02 1.242278E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 103 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 651 G 0.0 0.0 0.0 0.0 3.888233E-02 0.0 694 G 0.0 0.0 1.082761E-01 8.448748E-02 0.0 0.0 695 G 0.0 0.0 6.088950E-02 3.309309E-02 1.586633E-01 0.0 696 G 0.0 0.0 -4.069490E-03 6.451030E-04 7.349866E-02 0.0 697 G 0.0 0.0 -1.825179E-02 2.386271E-03 1.649083E-02 0.0 698 G 0.0 0.0 -2.736064E-02 3.424305E-02 -1.312631E-03 0.0 699 G 0.0 0.0 -1.435513E-02 5.359359E-02 -3.668708E-02 0.0 700 G 0.0 0.0 -1.262178E-03 4.414841E-02 -2.975922E-02 0.0 701 G 0.0 0.0 1.316470E-02 2.237212E-02 -1.590077E-02 0.0 702 G 0.0 0.0 1.487726E-02 3.971677E-02 3.864699E-03 0.0 703 G 0.0 0.0 5.119560E-03 8.589385E-02 4.841968E-02 0.0 704 G 0.0 0.0 -2.854466E-02 8.602057E-02 5.650944E-02 0.0 705 G 0.0 0.0 -4.392423E-02 3.762463E-02 1.609360E-02 0.0 706 G 0.0 0.0 -4.389063E-02 1.094734E-03 -2.668860E-02 0.0 707 G 0.0 0.0 -2.126338E-02 -1.555679E-02 -4.512823E-02 0.0 708 G 0.0 0.0 -8.038774E-03 -1.392103E-02 -1.448568E-02 0.0 709 G 0.0 0.0 -8.813659E-03 -8.178906E-03 2.745230E-02 0.0 710 G 0.0 0.0 -1.952599E-02 -2.532710E-02 -1.517398E-02 0.0 711 G 0.0 0.0 4.811001E-03 -5.712051E-02 -5.421036E-02 0.0 712 G 0.0 0.0 2.037979E-02 -7.133348E-02 -1.656252E-02 0.0 713 G 0.0 0.0 2.379654E-02 -4.711678E-02 1.915973E-02 0.0 714 G 0.0 0.0 0.0 0.0 6.467170E-02 0.0 757 G 0.0 0.0 9.446631E-02 5.503758E-02 0.0 0.0 758 G 0.0 0.0 4.503411E-02 8.943980E-02 1.844080E-01 0.0 759 G 0.0 0.0 -4.677380E-02 9.457158E-02 1.465920E-01 0.0 760 G 0.0 0.0 -8.600071E-02 4.962989E-02 2.427490E-02 0.0 761 G 0.0 0.0 -7.613179E-02 1.359749E-02 -6.861635E-02 0.0 762 G 0.0 0.0 -2.981624E-02 -4.971784E-03 -9.266998E-02 0.0 763 G 0.0 0.0 1.496615E-03 -4.039973E-03 -3.699716E-02 0.0 764 G 0.0 0.0 3.747664E-03 3.899089E-03 3.799189E-02 0.0 765 G 0.0 0.0 -1.783736E-02 -7.354615E-03 1.627568E-02 0.0 766 G 0.0 0.0 -9.390172E-03 -3.481909E-02 -2.326865E-02 0.0 767 G 0.0 0.0 -5.284843E-03 -4.922725E-02 -3.642969E-03 0.0 768 G 0.0 0.0 -1.040667E-03 -3.393031E-02 1.831083E-03 0.0 769 G 0.0 0.0 -7.054626E-03 -1.488162E-02 1.159612E-02 0.0 770 G 0.0 0.0 -1.224289E-02 -3.386410E-02 1.298682E-02 0.0 771 G 0.0 0.0 -1.264858E-02 -8.215667E-02 -2.690415E-02 0.0 772 G 0.0 0.0 1.256346E-02 -8.596280E-02 -4.564043E-02 0.0 773 G 0.0 0.0 2.698531E-02 -4.051819E-02 -2.382051E-02 0.0 774 G 0.0 0.0 3.521469E-02 -5.289694E-03 2.349752E-03 0.0 775 G 0.0 0.0 2.577044E-02 1.628401E-02 1.866261E-02 0.0 776 G 0.0 0.0 1.910402E-02 2.001872E-02 1.939523E-02 0.0 777 G 0.0 0.0 0.0 0.0 4.824808E-02 0.0 820 G 0.0 0.0 1.093977E-01 -1.431112E-01 0.0 0.0 821 G 0.0 0.0 7.646863E-02 -1.079777E-01 1.048758E-01 0.0 822 G 0.0 0.0 2.981248E-02 -4.419446E-02 7.126358E-02 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 104 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 EIGENVALUE = 0.119369E+06 (CYCLIC FREQUENCY = 5.498771E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 823 G 0.0 0.0 8.862031E-03 -1.231865E-02 2.238381E-02 0.0 824 G 0.0 0.0 4.246425E-03 8.640050E-03 -1.446145E-02 0.0 825 G 0.0 0.0 1.895249E-02 -1.336670E-02 -3.094893E-02 0.0 826 G 0.0 0.0 3.301906E-02 -4.656610E-02 -3.187767E-02 0.0 827 G 0.0 0.0 4.707285E-02 -8.386029E-02 -6.024608E-03 0.0 828 G 0.0 0.0 3.870611E-02 -4.764397E-02 2.124365E-02 0.0 829 G 0.0 0.0 2.670034E-02 -1.971781E-02 3.801727E-02 0.0 830 G 0.0 0.0 3.646889E-03 5.832942E-03 3.327829E-02 0.0 831 G 0.0 0.0 -7.353892E-04 1.025910E-02 -8.080496E-03 0.0 832 G 0.0 0.0 8.896368E-03 1.253353E-02 -3.922147E-02 0.0 833 G 0.0 0.0 2.300061E-02 8.413283E-03 1.663211E-02 0.0 834 G 0.0 0.0 -3.816368E-03 2.942756E-02 5.574040E-02 0.0 835 G 0.0 0.0 -1.909981E-02 3.784440E-02 1.282768E-02 0.0 836 G 0.0 0.0 -2.245013E-02 3.984972E-02 -9.053246E-03 0.0 837 G 0.0 0.0 -1.353193E-02 1.054465E-02 -1.432888E-02 0.0 838 G 0.0 0.0 -7.799463E-03 -2.627933E-03 -1.846340E-02 0.0 839 G 0.0 0.0 3.304897E-03 -1.127949E-02 -1.112285E-02 0.0 840 G 0.0 0.0 0.0 0.0 1.826628E-02 0.0 841 G 0.0 0.0 0.0 -2.592994E-01 0.0 0.0 842 G 0.0 0.0 0.0 -1.758991E-01 0.0 0.0 843 G 0.0 0.0 0.0 -7.237992E-02 0.0 0.0 844 G 0.0 0.0 0.0 -2.915641E-02 0.0 0.0 845 G 0.0 0.0 0.0 -1.906524E-02 0.0 0.0 846 G 0.0 0.0 0.0 -5.635077E-02 0.0 0.0 847 G 0.0 0.0 0.0 -7.384542E-02 0.0 0.0 848 G 0.0 0.0 0.0 -1.036263E-01 0.0 0.0 849 G 0.0 0.0 0.0 -8.968437E-02 0.0 0.0 850 G 0.0 0.0 0.0 -7.699323E-02 0.0 0.0 851 G 0.0 0.0 0.0 -1.533966E-02 0.0 0.0 852 G 0.0 0.0 0.0 -1.130912E-02 0.0 0.0 853 G 0.0 0.0 0.0 -3.069705E-02 0.0 0.0 854 G 0.0 0.0 0.0 -8.118921E-02 0.0 0.0 855 G 0.0 0.0 0.0 -1.800381E-03 0.0 0.0 856 G 0.0 0.0 0.0 3.198010E-02 0.0 0.0 857 G 0.0 0.0 0.0 4.972568E-02 0.0 0.0 858 G 0.0 0.0 0.0 3.393507E-02 0.0 0.0 859 G 0.0 0.0 0.0 2.965915E-02 0.0 0.0 860 G 0.0 0.0 0.0 -3.744016E-03 0.0 0.0 861 G 0.0 0.0 0.0 0.0 0.0 0.0 1 VIBRATION OF A 20 X 40 HALF PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 105 NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01 ORIGIN 10 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) ORIGIN 11 - X0 = -4.398808E-01, Y0 = -0.345970E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 2 MODAL DEFORM. 1 - SUBCASE 1 - MODE 9.065642E-01 - FREQUENCY PLOT 3 MODAL DEFORM. 1 - SUBCASE 2 - MODE 2.266261E+00 - FREQUENCY PLOT 4 MODAL DEFORM. 1 - SUBCASE 3 - MODE 4.533995E+00 - FREQUENCY PLOT 5 MODAL DEFORM. 1 - SUBCASE 4 - MODE 5.883843E+00 - FREQUENCY PLOT 6 MODAL DEFORM. 1 - SUBCASE 5 - MODE 7.712141E+00 - FREQUENCY PLOT 7 MODAL DEFORM. 1 - SUBCASE 6 - MODE 8.135221E+00 - FREQUENCY PLOT 8 MODAL DEFORM. 1 - SUBCASE 7 - MODE 1.148168E+01 - FREQUENCY PLOT 9 MODAL DEFORM. 1 - SUBCASE 8 - MODE 1.200693E+01 - FREQUENCY PLOT 10 MODAL DEFORM. 1 - SUBCASE 9 - MODE 1.443565E+01 - FREQUENCY PLOT 11 MODAL DEFORM. 1 - SUBCASE 10 - MODE 1.853699E+01 - FREQUENCY PLOT 12 MODAL DEFORM. 1 - SUBCASE 11 - MODE 2.605883E+01 - FREQUENCY PLOT 13 MODAL DEFORM. 1 - SUBCASE 12 - MODE 5.498771E+01 - FREQUENCY ORIGIN 11 USED IN THIS PLOT * * * END OF JOB * * * 1 JOB TITLE = VIBRATION OF A 20 X 40 HALF PLATE DATE: 5/17/95 END TIME: 15:38:31 TOTAL WALL CLOCK TIME 4 SEC. ================================================ FILE: demoout/d03021a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03021A,NASTRAN APP DISPLACEMENT SOL 3,3 TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A 3 METHOD = 1 4 AXISYMMETRIC = FLUID 5 OUTPUT 6 HARMONICS = ALL 7 SET 1 = 1000 THRU 2030, 2090,2150,3022,3090,3157,4018,4090, 8 4162,5015,5090,5165,6012,6089,6167,7011,7090,7168, 9 8010,8090,8170,9009,9090,9171,10000 THRU 10180 10 PRESSURE = 1 11 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 289, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AXIF 100 .001 1.0+3 NO +AXIF 2- +AXIF 0 THRU 2 3- CFLUID2 1 1090 1045 4- CFLUID2 2 1135 1090 5- CFLUID2 3 1045 2030 6- CFLUID2 10 2150 1135 7- CFLUID2 11 2030 3022 8- CFLUID2 22 3157 2150 9- CFLUID2 23 3022 4018 10- CFLUID2 38 4162 3157 11- CFLUID2 39 4018 5015 12- CFLUID2 58 5165 4162 13- CFLUID2 59 5015 6012 14- CFLUID2 82 6167 5165 15- CFLUID2 83 6012 7011 16- CFLUID2 110 7168 6167 17- CFLUID2 111 7011 8010 18- CFLUID2 142 8170 7168 19- CFLUID2 143 8010 9009 20- CFLUID2 178 9171 8170 21- CFLUID2 179 9009 10008 22- CFLUID2 218 10171 9171 23- CFLUID3 4 2060 2030 1045 24- CFLUID3 5 1045 1090 2060 25- CFLUID3 6 2090 2060 1090 26- CFLUID3 7 2120 2090 1090 27- CFLUID3 8 1090 1135 2120 28- CFLUID3 9 2150 2120 1135 29- CFLUID3 12 3045 3022 2030 30- CFLUID3 13 2030 2060 3045 31- CFLUID3 14 3067 3045 2060 32- CFLUID3 15 2060 2090 3067 33- CFLUID3 16 3090 3067 2090 34- CFLUID3 17 3112 3090 2090 35- CFLUID3 18 2090 2120 3112 36- CFLUID3 19 3135 3112 2120 37- CFLUID3 20 2120 2150 3135 38- CFLUID3 21 3157 3135 2150 39- CFLUID3 24 4036 4018 3022 40- CFLUID3 25 3022 3045 4036 41- CFLUID3 26 4054 4036 3045 42- CFLUID3 27 3045 3067 4054 43- CFLUID3 28 4072 4054 3067 44- CFLUID3 29 3067 3090 4072 45- CFLUID3 30 4090 4072 3090 46- CFLUID3 31 4108 4090 3090 47- CFLUID3 32 3090 3112 4108 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CFLUID3 33 4126 4108 3112 49- CFLUID3 34 3112 3135 4126 50- CFLUID3 35 4144 4126 3135 51- CFLUID3 36 3135 3157 4144 52- CFLUID3 37 4162 4144 3157 53- CFLUID3 40 5030 5015 4018 54- CFLUID3 41 4018 4036 5030 55- CFLUID3 42 5045 5030 4036 56- CFLUID3 43 4036 4054 5045 57- CFLUID3 44 5060 5045 4054 58- CFLUID3 45 4054 4072 5060 59- CFLUID3 46 5075 5060 4072 60- CFLUID3 47 4072 4090 5075 61- CFLUID3 48 5090 5075 4090 62- CFLUID3 49 5105 5090 4090 63- CFLUID3 50 4090 4108 5105 64- CFLUID3 51 5120 5105 4108 65- CFLUID3 52 4108 4126 5120 66- CFLUID3 53 5135 5120 4126 67- CFLUID3 54 4126 4144 5135 68- CFLUID3 55 5150 5135 4144 69- CFLUID3 56 4144 4162 5150 70- CFLUID3 57 5165 5150 4162 71- CFLUID3 60 6025 6012 5015 72- CFLUID3 61 5015 5030 6025 73- CFLUID3 62 6038 6025 5030 74- CFLUID3 63 5030 5045 6038 75- CFLUID3 64 6051 6038 5045 76- CFLUID3 65 5045 5060 6051 77- CFLUID3 66 6064 6051 5060 78- CFLUID3 67 5060 5075 6064 79- CFLUID3 68 6077 6064 5075 80- CFLUID3 69 5075 5090 6077 81- CFLUID3 70 6089 6077 5090 82- CFLUID3 71 6102 6089 5090 83- CFLUID3 72 5090 5105 6102 84- CFLUID3 73 6115 6102 5105 85- CFLUID3 74 5105 5120 6115 86- CFLUID3 75 6128 6115 5120 87- CFLUID3 76 5120 5135 6128 88- CFLUID3 77 6141 6128 5135 89- CFLUID3 78 5135 5150 6141 90- CFLUID3 79 6154 6141 5150 91- CFLUID3 80 5150 5165 6154 92- CFLUID3 81 6167 6154 5165 93- CFLUID3 84 7022 7011 6012 94- CFLUID3 85 6012 6025 7022 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CFLUID3 86 7033 7022 6025 96- CFLUID3 87 6025 6038 7033 97- CFLUID3 88 7045 7033 6038 98- CFLUID3 89 6038 6051 7045 99- CFLUID3 90 7056 7045 6051 100- CFLUID3 91 6051 6064 7056 101- CFLUID3 92 7067 7056 6064 102- CFLUID3 93 6064 6077 7067 103- CFLUID3 94 7078 7067 6077 104- CFLUID3 95 6077 6089 7078 105- CFLUID3 96 7090 7078 6089 106- CFLUID3 97 7101 7090 6089 107- CFLUID3 98 6089 6102 7101 108- CFLUID3 99 7112 7101 6102 109- CFLUID3 100 6102 6115 7112 110- CFLUID3 101 7123 7112 6115 111- CFLUID3 102 6115 6128 7123 112- CFLUID3 103 7135 7123 6128 113- CFLUID3 104 6128 6141 7135 114- CFLUID3 105 7146 7135 6141 115- CFLUID3 106 6141 6154 7146 116- CFLUID3 107 7157 7146 6154 117- CFLUID3 108 6154 6167 7157 118- CFLUID3 109 7168 7157 6167 119- CFLUID3 112 8020 8010 7011 120- CFLUID3 113 7011 7022 8020 121- CFLUID3 114 8030 8020 7022 122- CFLUID3 115 7022 7033 8030 123- CFLUID3 116 8040 8030 7033 124- CFLUID3 117 7033 7045 8040 125- CFLUID3 118 8050 8040 7045 126- CFLUID3 119 7045 7056 8050 127- CFLUID3 120 8060 8050 7056 128- CFLUID3 121 7056 7067 8060 129- CFLUID3 122 8070 8060 7067 130- CFLUID3 123 7067 7078 8070 131- CFLUID3 124 8080 8070 7078 132- CFLUID3 125 7078 7090 8080 133- CFLUID3 126 8090 8080 7090 134- CFLUID3 127 8100 8090 7090 135- CFLUID3 128 7090 7101 8100 136- CFLUID3 129 8110 8100 7101 137- CFLUID3 130 7101 7112 8110 138- CFLUID3 131 8120 8110 7112 139- CFLUID3 132 7112 7123 8120 140- CFLUID3 133 8130 8120 7123 141- CFLUID3 134 7123 7135 8130 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CFLUID3 135 8140 8130 7135 143- CFLUID3 136 7135 7146 8140 144- CFLUID3 137 8150 8140 7146 145- CFLUID3 138 7146 7157 8150 146- CFLUID3 139 8160 8150 7157 147- CFLUID3 140 7157 7168 8160 148- CFLUID3 141 8170 8160 7168 149- CFLUID3 144 9018 9009 8010 150- CFLUID3 145 8010 8020 9018 151- CFLUID3 146 9027 9018 8020 152- CFLUID3 147 8020 8030 9027 153- CFLUID3 148 9036 9027 8030 154- CFLUID3 149 8030 8040 9036 155- CFLUID3 150 9045 9036 8040 156- CFLUID3 151 8040 8050 9045 157- CFLUID3 152 9054 9045 8050 158- CFLUID3 153 8050 8060 9054 159- CFLUID3 154 9063 9054 8060 160- CFLUID3 155 8060 8070 9063 161- CFLUID3 156 9072 9063 8070 162- CFLUID3 157 8070 8080 9072 163- CFLUID3 158 9081 9072 8080 164- CFLUID3 159 8080 8090 9081 165- CFLUID3 160 9090 9081 8090 166- CFLUID3 161 9099 9090 8090 167- CFLUID3 162 8090 8100 9099 168- CFLUID3 163 9108 9099 8100 169- CFLUID3 164 8100 8110 9108 170- CFLUID3 165 9117 9108 8110 171- CFLUID3 166 8110 8120 9117 172- CFLUID3 167 9126 9117 8120 173- CFLUID3 168 8120 8130 9126 174- CFLUID3 169 9135 9126 8130 175- CFLUID3 170 8130 8140 9135 176- CFLUID3 171 9144 9135 8140 177- CFLUID3 172 8140 8150 9144 178- CFLUID3 173 9153 9144 8150 179- CFLUID3 174 8150 8160 9153 180- CFLUID3 175 9162 9153 8160 181- CFLUID3 176 8160 8170 9162 182- CFLUID3 177 9171 9162 8170 183- CFLUID3 180 10016 10008 9009 184- CFLUID3 181 9009 9018 10016 185- CFLUID3 182 10024 10016 9018 186- CFLUID3 183 9018 9027 10024 187- CFLUID3 184 10032 10024 9027 188- CFLUID3 185 9027 9036 10032 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CFLUID3 186 10040 10032 9036 190- CFLUID3 187 9036 9045 10040 191- CFLUID3 188 10049 10040 9045 192- CFLUID3 189 9045 9054 10049 193- CFLUID3 190 10057 10049 9054 194- CFLUID3 191 9054 9063 10057 195- CFLUID3 192 10065 10057 9063 196- CFLUID3 193 9063 9072 10065 197- CFLUID3 194 10073 10065 9072 198- CFLUID3 195 9072 9081 10073 199- CFLUID3 196 10081 10073 9081 200- CFLUID3 197 9081 9090 10081 201- CFLUID3 198 10089 10081 9090 202- CFLUID3 199 10098 10089 9090 203- CFLUID3 200 9090 9099 10098 204- CFLUID3 201 10106 10098 9099 205- CFLUID3 202 9099 9108 10106 206- CFLUID3 203 10114 10106 9108 207- CFLUID3 204 9108 9117 10114 208- CFLUID3 205 10122 10114 9117 209- CFLUID3 206 9117 9126 10122 210- CFLUID3 207 10130 10122 9126 211- CFLUID3 208 9126 9135 10130 212- CFLUID3 209 10139 10130 9135 213- CFLUID3 210 9135 9144 10139 214- CFLUID3 211 10147 10139 9144 215- CFLUID3 212 9144 9153 10147 216- CFLUID3 213 10155 10147 9153 217- CFLUID3 214 9153 9162 10155 218- CFLUID3 215 10163 10155 9162 219- CFLUID3 216 9162 9171 10163 220- CFLUID3 217 10171 10163 9171 221- CORD2S 100 0 .0 .0 10.0 .0 .0 20.0 +CORD2S 222- +CORD2S .0 1.0 .0 223- EIGR 1 INV 14.0 60.0 2 7 1.0-6 +EIGR-1 224- +EIGR-1 MAX 225- RINGFL 1045 1.00000 45.0000 1090 1.00000 90.0000 226- RINGFL 1135 1.00000 135.000 227- RINGFL 2030 2.00000 30.0000 2060 2.00000 60.0000 228- RINGFL 2090 2.00000 90.0000 2120 2.00000 120.000 229- RINGFL 2150 2.00000 150.000 230- RINGFL 3022 3.00000 22.5000 3045 3.00000 45.0000 231- RINGFL 3067 3.00000 67.5000 3090 3.00000 90.0000 232- RINGFL 3112 3.00000 112.500 3135 3.00000 135.000 233- RINGFL 3157 3.00000 157.500 234- RINGFL 4018 4.00000 18.0000 4036 4.00000 36.0000 235- RINGFL 4054 4.00000 54.0000 4072 4.00000 72.0000 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- RINGFL 4090 4.00000 90.0000 4108 4.00000 108.000 237- RINGFL 4126 4.00000 126.000 4144 4.00000 144.000 238- RINGFL 4162 4.00000 162.000 239- RINGFL 5015 5.00000 15.0000 5030 5.00000 30.0000 240- RINGFL 5045 5.00000 45.0000 5060 5.00000 60.0000 241- RINGFL 5075 5.00000 75.0000 5090 5.00000 90.0000 242- RINGFL 5105 5.00000 105.000 5120 5.00000 120.000 243- RINGFL 5135 5.00000 135.000 5150 5.00000 150.000 244- RINGFL 5165 5.00000 165.000 245- RINGFL 6012 6.00000 12.8571 6025 6.00000 25.7143 246- RINGFL 6038 6.00000 38.5714 6051 6.00000 51.4286 247- RINGFL 6064 6.00000 64.2857 6077 6.00000 77.1429 248- RINGFL 6089 6.00000 90.0000 6102 6.00000 102.857 249- RINGFL 6115 6.00000 115.714 6128 6.00000 128.571 250- RINGFL 6141 6.00000 141.429 6154 6.00000 154.286 251- RINGFL 6167 6.00000 167.143 252- RINGFL 7011 7.00000 11.2500 7022 7.00000 22.5000 253- RINGFL 7033 7.00000 33.7500 7045 7.00000 45.0000 254- RINGFL 7056 7.00000 56.2500 7067 7.00000 67.5000 255- RINGFL 7078 7.00000 78.7500 7090 7.00000 90.0000 256- RINGFL 7101 7.00000 101.250 7112 7.00000 112.500 257- RINGFL 7123 7.00000 123.750 7135 7.00000 135.000 258- RINGFL 7146 7.00000 146.250 7157 7.00000 157.500 259- RINGFL 7168 7.00000 168.750 260- RINGFL 8010 8.00000 10.0000 8020 8.00000 20.0000 261- RINGFL 8030 8.00000 30.0000 8040 8.00000 40.0000 262- RINGFL 8050 8.00000 50.0000 8060 8.00000 60.0000 263- RINGFL 8070 8.00000 70.0000 8080 8.00000 80.0000 264- RINGFL 8090 8.00000 90.0000 8100 8.00000 100.000 265- RINGFL 8110 8.00000 110.000 8120 8.00000 120.000 266- RINGFL 8130 8.00000 130.000 8140 8.00000 140.000 267- RINGFL 8150 8.00000 150.000 8160 8.00000 160.000 268- RINGFL 8170 8.00000 170.000 269- RINGFL 9009 9.00000 9.00000 9018 9.00000 18.0000 270- RINGFL 9027 9.00000 27.0000 9036 9.00000 36.0000 271- RINGFL 9045 9.00000 45.0000 9054 9.00000 54.0000 272- RINGFL 9063 9.00000 63.0000 9072 9.00000 72.0000 273- RINGFL 9081 9.00000 81.0000 9090 9.00000 90.0000 274- RINGFL 9099 9.00000 99.0000 9108 9.00000 108.000 275- RINGFL 9117 9.00000 117.000 9126 9.00000 126.000 276- RINGFL 9135 9.00000 135.000 9144 9.00000 144.000 277- RINGFL 9153 9.00000 153.000 9162 9.00000 162.000 278- RINGFL 9171 9.00000 171.000 279- RINGFL 10008 10.0000 8.18182 10016 10.0000 16.3636 280- RINGFL 10024 10.0000 24.5455 10032 10.0000 32.7273 281- RINGFL 10040 10.0000 40.9091 10049 10.0000 49.0909 282- RINGFL 10057 10.0000 57.2727 10065 10.0000 65.4545 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- RINGFL 10073 10.0000 73.6364 10081 10.0000 81.8182 284- RINGFL 10089 10.0000 90.0000 10098 10.0000 98.1818 285- RINGFL 10106 10.0000 106.364 10114 10.0000 114.545 286- RINGFL 10122 10.0000 122.727 10130 10.0000 130.909 287- RINGFL 10139 10.0000 139.091 10147 10.0000 147.273 288- RINGFL 10155 10.0000 155.455 10163 10.0000 163.636 289- RINGFL 10171 10.0000 171.818 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF AXISYMMETRIC FLUID DATA 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLUID2 ELEMENTS (ELEMENT TYPE 43) STARTING WITH ID 1002 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLUID3 ELEMENTS (ELEMENT TYPE 44) STARTING WITH ID 4002 3 ROOTS BELOW 7.493005E+04 1 ROOTS BELOW 4.301296E+04 2 ROOTS BELOW 4.353066E+04 1 ROOTS BELOW 4.199647E+04 2 ROOTS BELOW 4.361502E+04 4 ROOTS BELOW 1.123079E+05 5 ROOTS BELOW 1.128807E+05 6 ROOTS BELOW 1.130724E+05 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 6 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 9 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 63 0 REASON FOR TERMINATION . . . . . . . . . . . 4* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.11E-07 0 . . . 6 MODE PAIR . . . . . . . . . . . . . 3 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 3X EST.ROOTS IN RANGE SPECIFIED. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 6 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 6 -9.941588E-07 9.970751E-04 1.586894E-04 4.167041E+00 -4.142700E-06 2 1 4.353046E+04 2.086395E+02 3.320601E+01 1.124695E+00 4.895847E+04 3 2 4.361502E+04 2.088421E+02 3.323825E+01 1.141329E+00 4.977908E+04 4 3 1.123020E+05 3.351149E+02 5.333519E+01 7.769185E-01 8.724948E+04 5 5 1.125953E+05 3.355523E+02 5.340480E+01 7.691594E-01 8.660377E+04 6 4 1.130695E+05 3.362581E+02 5.351714E+01 6.095798E-01 6.892491E+04 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A 0 EIGENVALUE = -0.994159E-06 (CYCLIC FREQUENCY = 1.586894E-04 HZ) R E A L E I G E N V E C T O R N O . 1 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 0 1045 1.000000E+00 1090 1.000000E+00 1135 1.000000E+00 2030 1.000000E+00 2090 1.000000E+00 0 2150 1.000000E+00 3022 1.000000E+00 3090 1.000000E+00 3157 1.000000E+00 4018 1.000000E+00 0 4090 1.000000E+00 4162 1.000000E+00 5015 1.000000E+00 5090 1.000000E+00 5165 1.000000E+00 0 6012 1.000000E+00 6089 1.000000E+00 6167 1.000000E+00 7011 1.000000E+00 7090 1.000000E+00 0 7168 1.000000E+00 8010 1.000000E+00 8090 1.000000E+00 8170 1.000000E+00 9009 1.000000E+00 0 9090 1.000000E+00 9171 1.000000E+00 10008 1.000000E+00 10016 1.000000E+00 10024 1.000000E+00 0 10032 1.000000E+00 10040 1.000000E+00 10049 1.000000E+00 10057 1.000000E+00 10065 1.000000E+00 0 10073 1.000000E+00 10081 1.000000E+00 10089 1.000000E+00 10098 1.000000E+00 10106 1.000000E+00 0 10114 1.000000E+00 10122 1.000000E+00 10130 1.000000E+00 10139 1.000000E+00 10147 1.000000E+00 0 10155 1.000000E+00 10163 1.000000E+00 10171 1.000000E+00 1 1045 -3.653751E-09 1090 -3.540433E-15 1135 3.653725E-09 2030 -1.277524E-08 2090 1.955348E-14 1 2150 1.277512E-08 3022 -2.272239E-08 3090 9.625901E-14 3157 2.272207E-08 4018 -3.186292E-08 1 4090 2.378945E-13 4162 3.186234E-08 5015 -3.944346E-08 5090 4.403702E-13 5165 3.944260E-08 1 6012 -4.502592E-08 6089 6.741148E-13 6167 4.502439E-08 7011 -4.836513E-08 7090 9.229295E-13 1 7168 4.836373E-08 8010 -4.936317E-08 8090 1.139151E-12 8170 4.936168E-08 9009 -4.802225E-08 1 9090 1.281022E-12 9171 4.802072E-08 10008 -4.432538E-08 10016 -8.512284E-08 10024 -1.189447E-07 1 10032 -1.430077E-07 10040 -1.554446E-07 10049 -1.553174E-07 10057 -1.426613E-07 10065 -1.184814E-07 1 10073 -8.469764E-08 10081 -4.404997E-08 10089 1.310011E-12 10098 4.405229E-08 10106 8.470116E-08 1 10114 1.184799E-07 10122 1.426596E-07 10130 1.553150E-07 10139 1.554413E-07 10147 1.430034E-07 1 10155 1.189395E-07 10163 8.512209E-08 10171 4.432493E-08 2 1045 -1.205501E-15 1090 -7.619798E-18 1135 1.152390E-15 2030 -7.479918E-15 2090 6.527036E-17 2 2150 6.966643E-15 3022 -1.558781E-14 3090 7.151159E-16 3157 1.406919E-14 4018 -2.349885E-14 2 4090 2.518874E-15 4162 2.054454E-14 5015 -3.008151E-14 5090 5.856665E-15 5165 2.551782E-14 2 6012 -3.462894E-14 6089 1.066709E-14 6167 2.858179E-14 7011 -3.674640E-14 7090 1.634069E-14 2 7168 2.962382E-14 8010 -3.630254E-14 8090 2.179055E-14 8170 2.872264E-14 9009 -3.333526E-14 2 9090 2.567681E-14 9171 2.604411E-14 10008 -2.767009E-14 10016 -1.116832E-13 10024 -2.323951E-13 2 10032 -3.611595E-13 10040 -4.688630E-13 10049 -5.305632E-13 10057 -5.298421E-13 10065 -4.615526E-13 2 10073 -3.326305E-13 10081 -1.610116E-13 10089 2.668502E-14 10098 2.076726E-13 10106 3.565302E-13 2 10114 4.540413E-13 10122 4.912864E-13 10130 4.695992E-13 10139 3.994467E-13 10147 2.981793E-13 2 10155 1.870944E-13 10163 8.819979E-14 10171 2.153377E-14 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A 0 EIGENVALUE = 0.435305E+05 (CYCLIC FREQUENCY = 3.320601E+01 HZ) R E A L E I G E N V E C T O R N O . 2 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 0 1045 -7.503082E-11 1090 4.516317E-18 1135 7.503082E-11 2030 -1.817122E-10 2090 8.652946E-18 0 2150 1.817122E-10 3022 -2.848692E-10 3090 1.222971E-17 3157 2.848692E-10 4018 -3.794896E-10 0 4090 1.498396E-17 4162 3.794896E-10 5015 -4.631611E-10 5090 1.632069E-17 5165 4.631611E-10 0 6012 -5.340182E-10 6089 3.616319E-17 6167 5.340184E-10 7011 -5.905459E-10 7090 3.432387E-17 0 7168 5.905459E-10 8010 -6.315894E-10 8090 3.705749E-17 8170 6.315894E-10 9009 -6.563555E-10 0 9090 3.659512E-17 9171 6.563555E-10 10008 -6.643496E-10 10016 -6.453745E-10 10024 -6.122522E-10 0 10032 -5.663993E-10 10040 -5.089481E-10 10049 -4.411320E-10 10057 -3.643342E-10 10065 -2.800886E-10 0 10073 -1.900684E-10 10081 -9.607495E-11 10089 2.225831E-17 10098 9.607484E-11 10106 1.900732E-10 0 10114 2.800831E-10 10122 3.643311E-10 10130 4.411310E-10 10139 5.089489E-10 10147 5.664011E-10 0 10155 6.122548E-10 10163 6.453731E-10 10171 6.643492E-10 1 1045 1.081122E-01 1090 1.602669E-01 1135 1.081122E-01 2030 1.581246E-01 2090 3.154834E-01 1 2150 1.581246E-01 3022 1.779600E-01 3090 4.627793E-01 3157 1.779600E-01 4018 1.858444E-01 1 4090 5.979627E-01 4162 1.858444E-01 5015 1.869842E-01 5090 7.176726E-01 5165 1.869842E-01 1 6012 1.836022E-01 6089 8.189964E-01 6167 1.836007E-01 7011 1.768773E-01 7090 8.995367E-01 1 7168 1.768773E-01 8010 1.675098E-01 8090 9.574427E-01 8170 1.675099E-01 9009 1.558782E-01 1 9090 9.913404E-01 9171 1.558783E-01 10008 1.418859E-01 10016 2.823497E-01 10024 4.171494E-01 1 10032 5.432471E-01 10040 6.581464E-01 10049 7.595927E-01 10057 8.455684E-01 10065 9.142971E-01 1 10073 9.642134E-01 10081 9.937338E-01 10089 1.000000E+00 10098 9.937338E-01 10106 9.642115E-01 1 10114 9.143009E-01 10122 8.455713E-01 10130 7.595940E-01 10139 6.581451E-01 10147 5.432428E-01 1 10155 4.171412E-01 10163 2.823568E-01 10171 1.418893E-01 2 1045 -2.412837E-28 1090 -6.502677E-28 1135 -2.412837E-28 2030 -6.195159E-28 2090 -2.671918E-27 2 2150 -6.195161E-28 3022 -7.906310E-28 3090 -5.856119E-27 3157 -7.906311E-28 4018 -8.674287E-28 2 4090 -9.866251E-27 4162 -8.674290E-28 5015 -8.842254E-28 5090 -1.431115E-26 5165 -8.842278E-28 2 6012 -8.592982E-28 6089 -1.875868E-26 6167 -8.592808E-28 7011 -8.041078E-28 7090 -2.277217E-26 2 7168 -8.041080E-28 8010 -7.265484E-28 8090 -2.594682E-26 8170 -7.265489E-28 9009 -6.313835E-28 2 9090 -2.793836E-26 9171 -6.313812E-28 10008 -5.157671E-28 10016 -2.194439E-27 10024 -4.895238E-27 2 10032 -8.364663E-27 10040 -1.231326E-26 10049 -1.642054E-26 10057 -2.035634E-26 10065 -2.380267E-26 2 10073 -2.647293E-26 10081 -2.811828E-26 10089 -2.847128E-26 10098 -2.811827E-26 10106 -2.647282E-26 2 10114 -2.380287E-26 10122 -2.035647E-26 10130 -1.642059E-26 10139 -1.231321E-26 10147 -8.364523E-27 2 10155 -4.895045E-27 10163 -2.194556E-27 10171 -5.157964E-28 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A 0 EIGENVALUE = 0.436150E+05 (CYCLIC FREQUENCY = 3.323825E+01 HZ) R E A L E I G E N V E C T O R N O . 3 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 0 1045 1.129387E-01 1090 -6.794975E-09 1135 -1.129387E-01 2030 2.735190E-01 2090 -1.302178E-08 0 2150 -2.735190E-01 3022 4.287940E-01 3090 -1.840591E-08 3157 -4.287941E-01 4018 5.712197E-01 0 4090 -2.255191E-08 4162 -5.712197E-01 5015 6.971647E-01 5090 -2.456421E-08 5165 -6.971647E-01 0 6012 8.038210E-01 6089 -5.443193E-08 6167 -8.038214E-01 7011 8.889084E-01 7090 -5.166337E-08 0 7168 -8.889084E-01 8010 9.506882E-01 8090 -5.577805E-08 8170 -9.506882E-01 9009 9.879670E-01 0 9090 -5.508199E-08 9171 -9.879670E-01 10008 1.000000E+00 10016 9.714382E-01 10024 9.215813E-01 0 10032 8.525621E-01 10040 7.660847E-01 10049 6.640058E-01 10057 5.484073E-01 10065 4.215983E-01 0 10073 2.860970E-01 10081 1.446151E-01 10089 -3.350176E-08 10098 -1.446149E-01 10106 -2.861042E-01 0 10114 -4.215899E-01 10122 -5.484027E-01 10130 -6.640043E-01 10139 -7.660858E-01 10147 -8.525649E-01 0 10155 -9.215852E-01 10163 -9.714361E-01 10171 -9.999995E-01 1 1045 7.288661E-11 1090 1.080480E-10 1135 7.288661E-11 2030 1.066037E-10 2090 2.126911E-10 1 2150 1.066037E-10 3022 1.199762E-10 3090 3.119944E-10 3157 1.199763E-10 4018 1.252917E-10 1 4090 4.031317E-10 4162 1.252917E-10 5015 1.260601E-10 5090 4.838372E-10 5165 1.260601E-10 1 6012 1.237801E-10 6089 5.521472E-10 6167 1.237791E-10 7011 1.192463E-10 7090 6.064454E-10 1 7168 1.192463E-10 8010 1.129310E-10 8090 6.454843E-10 8170 1.129310E-10 9009 1.050892E-10 1 9090 6.683372E-10 9171 1.050893E-10 10008 9.565596E-11 10016 1.903532E-10 10024 2.812318E-10 1 10032 3.662438E-10 10040 4.437061E-10 10049 5.120987E-10 10057 5.700614E-10 10065 6.163965E-10 1 10073 6.500490E-10 10081 6.699508E-10 10089 6.741754E-10 10098 6.699508E-10 10106 6.500476E-10 1 10114 6.163992E-10 10122 5.700633E-10 10130 5.120995E-10 10139 4.437052E-10 10147 3.662409E-10 1 10155 2.812263E-10 10163 1.903580E-10 10171 9.565825E-11 2 1045 2.010157E-30 1090 5.417442E-30 1135 2.010157E-30 2030 5.161244E-30 2090 2.226001E-29 2 2150 5.161247E-30 3022 6.586820E-30 3090 4.878788E-29 3157 6.586823E-30 4018 7.226629E-30 2 4090 8.219667E-29 4162 7.226633E-30 5015 7.366563E-30 5090 1.192275E-28 5165 7.366586E-30 2 6012 7.158893E-30 6089 1.562804E-28 6167 7.158751E-30 7011 6.699095E-30 7090 1.897171E-28 2 7168 6.699101E-30 8010 6.052941E-30 8090 2.161654E-28 8170 6.052948E-30 9009 5.260114E-30 2 9090 2.327571E-28 9171 5.260097E-30 10008 4.296903E-30 10016 1.828208E-29 10024 4.078268E-29 2 10032 6.968678E-29 10040 1.025829E-28 10049 1.368010E-28 10057 1.695906E-28 10065 1.983022E-28 2 10073 2.205485E-28 10081 2.342560E-28 10089 2.371969E-28 10098 2.342560E-28 10106 2.205475E-28 2 10114 1.983039E-28 10122 1.695917E-28 10130 1.368015E-28 10139 1.025825E-28 10147 6.968565E-29 2 10155 4.078109E-29 10163 1.828306E-29 10171 4.297150E-30 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A 0 EIGENVALUE = 0.112302E+06 (CYCLIC FREQUENCY = 5.333519E+01 HZ) R E A L E I G E N V E C T O R N O . 4 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 0 1045 3.107230E-14 1090 -1.992457E-14 1135 3.107230E-14 2030 1.721223E-13 2090 -1.186894E-13 0 2150 1.721223E-13 3022 4.327658E-13 3090 -2.665629E-13 3157 4.327658E-13 4018 7.817540E-13 0 4090 -4.515453E-13 4162 7.817541E-13 5015 1.180750E-12 5090 -6.563953E-13 5165 1.180750E-12 0 6012 1.588300E-12 6089 -8.615034E-13 6167 1.588303E-12 7011 1.962800E-12 7090 -1.046785E-12 0 7168 1.962801E-12 8010 2.265711E-12 8090 -1.193377E-12 8170 2.265711E-12 9009 2.464481E-12 0 9090 -1.284847E-12 9171 2.464481E-12 10008 2.534484E-12 10016 2.313257E-12 10024 1.947028E-12 0 10032 1.473422E-12 10040 9.327953E-13 10049 3.693156E-13 10057 -1.715398E-13 10065 -6.459514E-13 0 10073 -1.014628E-12 10081 -1.244706E-12 10089 -1.307108E-12 10098 -1.244706E-12 10106 -1.014612E-12 0 10114 -6.459787E-13 10122 -1.715595E-13 10130 3.693078E-13 10139 9.328023E-13 10147 1.473441E-12 0 10155 1.947056E-12 10163 2.313241E-12 10171 2.534480E-12 1 1045 5.310666E-12 1090 1.713602E-19 1135 -5.310665E-12 2030 1.856857E-11 2090 -1.375775E-18 1 2150 -1.856857E-11 3022 3.302649E-11 3090 -5.065784E-18 3157 -3.302649E-11 4018 4.631195E-11 1 4090 -1.109302E-17 4162 -4.631195E-11 5015 5.732996E-11 5090 -1.967400E-17 5165 -5.732999E-11 1 6012 6.544380E-11 6089 -1.637133E-17 6167 -6.544327E-11 7011 7.029713E-11 7090 -2.406947E-17 1 7168 -7.029713E-11 8010 7.174767E-11 8090 -2.991237E-17 8170 -7.174773E-11 9009 6.979864E-11 1 9090 -3.053565E-17 9171 -6.979869E-11 10008 6.442535E-11 10016 1.237231E-10 10024 1.728823E-10 1 10032 2.078574E-10 10040 2.259346E-10 10049 2.257503E-10 10057 2.073557E-10 10065 1.722116E-10 1 10073 1.231082E-10 10081 6.402782E-11 10089 -2.133715E-17 10098 -6.402776E-11 10106 -1.231110E-10 1 10114 -1.722088E-10 10122 -2.073547E-10 10130 -2.257502E-10 10139 -2.259344E-10 10147 -2.078564E-10 1 10155 -1.728796E-10 10163 -1.237259E-10 10171 -6.442683E-11 2 1045 8.474633E-03 1090 2.283943E-02 1135 8.474633E-03 2030 2.175933E-02 2090 9.384611E-02 2 2150 2.175933E-02 3022 2.776942E-02 3090 2.056852E-01 3157 2.776943E-02 4018 3.046679E-02 2 4090 3.465335E-01 4162 3.046681E-02 5015 3.105674E-02 5090 5.026521E-01 5165 3.105684E-02 2 6012 3.018122E-02 6089 6.588634E-01 6167 3.018062E-02 7011 2.824276E-02 7090 7.998295E-01 2 7168 2.824278E-02 8010 2.551864E-02 8090 9.113330E-01 8170 2.551866E-02 9009 2.217615E-02 2 9090 9.812821E-01 9171 2.217608E-02 10008 1.811534E-02 10016 7.707553E-02 10024 1.719359E-01 2 10032 2.937930E-01 10040 4.324801E-01 10049 5.767404E-01 10057 7.149779E-01 10065 8.360236E-01 2 10073 9.298117E-01 10081 9.876014E-01 10089 1.000000E+00 10098 9.876013E-01 10106 9.298078E-01 2 10114 8.360308E-01 10122 7.149829E-01 10130 5.767422E-01 10139 4.324783E-01 10147 2.937882E-01 2 10155 1.719293E-01 10163 7.707966E-02 10171 1.811638E-02 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A 0 EIGENVALUE = 0.112595E+06 (CYCLIC FREQUENCY = 5.340480E+01 HZ) R E A L E I G E N V E C T O R N O . 5 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 0 1045 2.867420E-08 1090 2.867896E-08 1135 2.867463E-08 2030 2.866235E-08 2090 2.868956E-08 0 2150 2.866339E-08 3022 2.864039E-08 3090 2.870549E-08 3157 2.864208E-08 4018 2.861103E-08 0 4090 2.872545E-08 4162 2.861345E-08 5015 2.857757E-08 5090 2.874758E-08 5165 2.858079E-08 0 6012 2.854351E-08 6089 2.876974E-08 6167 2.854762E-08 7011 2.851228E-08 7090 2.878975E-08 0 7168 2.851733E-08 8010 2.848705E-08 8090 2.880555E-08 8170 2.849297E-08 9009 2.847047E-08 0 9090 2.881537E-08 9171 2.847704E-08 10008 2.846459E-08 10016 2.848400E-08 10024 2.851633E-08 0 10032 2.855866E-08 10040 2.860774E-08 10049 2.865977E-08 10057 2.871052E-08 10065 2.875562E-08 0 10073 2.879086E-08 10081 2.881262E-08 10089 2.881778E-08 10098 2.881082E-08 10106 2.878765E-08 0 10114 2.875177E-08 10122 2.870692E-08 10130 2.865725E-08 10139 2.860697E-08 10147 2.856003E-08 0 10155 2.851992E-08 10163 2.848954E-08 10171 2.847144E-08 1 1045 2.350533E-02 1090 7.959166E-10 1135 -2.350532E-02 2030 8.218563E-02 2090 -6.029243E-09 1 2150 -8.218562E-02 3022 1.461772E-01 3090 -2.230979E-08 3157 -1.461772E-01 4018 2.049795E-01 1 4090 -4.885820E-08 4162 -2.049795E-01 5015 2.537459E-01 5090 -8.665619E-08 5165 -2.537460E-01 1 6012 2.896582E-01 6089 -7.182760E-08 6167 -2.896558E-01 7011 3.111393E-01 7090 -1.056234E-07 1 7168 -3.111393E-01 8010 3.175595E-01 8090 -1.311970E-07 8170 -3.175598E-01 9009 3.089330E-01 1 9090 -1.337586E-07 9171 -3.089332E-01 10008 2.851505E-01 10016 5.476059E-01 10024 7.651873E-01 1 10032 9.199893E-01 10040 1.000000E+00 10049 9.991844E-01 10057 9.177691E-01 10065 7.622187E-01 1 10073 5.448841E-01 10081 2.833910E-01 10089 -9.298151E-08 10098 -2.833907E-01 10106 -5.448967E-01 1 10114 -7.622067E-01 10122 -9.177644E-01 10130 -9.991838E-01 10139 -9.999993E-01 10147 -9.199851E-01 1 10155 -7.651756E-01 10163 -5.476183E-01 10171 -2.851571E-01 2 1045 -1.894755E-12 1090 -5.108678E-12 1135 -1.896425E-12 2030 -4.861979E-12 2090 -2.099131E-11 2 2150 -4.872210E-12 3022 -6.200944E-12 3090 -4.600722E-11 3157 -6.221941E-12 4018 -6.799230E-12 2 4090 -7.751184E-11 4162 -6.830406E-12 5015 -6.927140E-12 5090 -1.124320E-10 5165 -6.966500E-12 2 6012 -6.728652E-12 6089 -1.473729E-10 6167 -6.773228E-12 7011 -6.293975E-12 7090 -1.789037E-10 2 7168 -6.340909E-12 8010 -5.685139E-12 8090 -2.038444E-10 8170 -5.731111E-12 9009 -4.939492E-12 2 9090 -2.194903E-10 9171 -4.981442E-12 10008 -4.034751E-12 10016 -1.716997E-11 10024 -3.831097E-11 2 10032 -6.548322E-11 10040 -9.643061E-11 10049 -1.286515E-10 10057 -1.595642E-10 10065 -1.866760E-10 2 10073 -2.077339E-10 10081 -2.207732E-10 10089 -2.236770E-10 10098 -2.210346E-10 10106 -2.082215E-10 2 10114 -1.873264E-10 10122 -1.602885E-10 10130 -1.293600E-10 10139 -9.704466E-11 10147 -6.594853E-11 2 10155 -3.860609E-11 10163 -1.731218E-11 10171 -4.069755E-12 1 VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A 0 EIGENVALUE = 0.113070E+06 (CYCLIC FREQUENCY = 5.351714E+01 HZ) R E A L E I G E N V E C T O R N O . 6 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 0 1045 1.225981E-02 1090 -7.861394E-03 1135 1.225981E-02 2030 6.791216E-02 2090 -4.682980E-02 0 2150 6.791217E-02 3022 1.707511E-01 3090 -1.051744E-01 3157 1.707511E-01 4018 3.084470E-01 0 4090 -1.781606E-01 4162 3.084470E-01 5015 4.658738E-01 5090 -2.589858E-01 5165 4.658739E-01 0 6012 6.266761E-01 6089 -3.399128E-01 6167 6.266771E-01 7011 7.744378E-01 7090 -4.130169E-01 0 7168 7.744380E-01 8010 8.939535E-01 8090 -4.708562E-01 8170 8.939535E-01 9009 9.723797E-01 0 9090 -5.069464E-01 9171 9.723797E-01 10008 1.000000E+00 10016 9.127131E-01 10024 7.682149E-01 0 10032 5.813501E-01 10040 3.680416E-01 10049 1.457163E-01 10057 -6.768236E-02 10065 -2.548651E-01 0 10073 -4.003292E-01 10081 -4.911083E-01 10089 -5.157294E-01 10098 -4.911083E-01 10106 -4.003231E-01 0 10114 -2.548758E-01 10122 -6.769010E-02 10130 1.457132E-01 10139 3.680443E-01 10147 5.813575E-01 0 10155 7.682257E-01 10163 9.127070E-01 10171 9.999986E-01 1 1045 4.339818E-12 1090 -6.164450E-20 1135 -4.339818E-12 2030 1.517404E-11 2090 -1.521245E-18 1 2150 -1.517404E-11 3022 2.698889E-11 3090 -4.721988E-18 3157 -2.698889E-11 4018 3.784563E-11 1 4090 -9.817484E-18 4162 -3.784562E-11 5015 4.684941E-11 5090 -1.698054E-17 5165 -4.684944E-11 1 6012 5.347996E-11 6089 -1.440933E-17 6167 -5.347952E-11 7011 5.744605E-11 7090 -2.080171E-17 1 7168 -5.744604E-11 8010 5.863141E-11 8090 -2.564949E-17 8170 -5.863145E-11 9009 5.703868E-11 1 9090 -2.620141E-17 9171 -5.703872E-11 10008 5.264769E-11 10016 1.011052E-10 10024 1.412775E-10 1 10032 1.698588E-10 10040 1.846313E-10 10049 1.844807E-10 10057 1.694488E-10 10065 1.407294E-10 1 10073 1.006026E-10 10081 5.232283E-11 10089 -1.869533E-17 10098 -5.232279E-11 10106 -1.006050E-10 1 10114 -1.407272E-10 10122 -1.694480E-10 10130 -1.844805E-10 10139 -1.846311E-10 10147 -1.698580E-10 1 10155 -1.412753E-10 10163 -1.011074E-10 10171 -5.264890E-11 2 1045 -1.685255E-14 1090 -4.541819E-14 1135 -1.685255E-14 2030 -4.327031E-14 2090 -1.866212E-13 2 2150 -4.327034E-14 3022 -5.522191E-14 3090 -4.090228E-13 3157 -5.522194E-14 4018 -6.058587E-14 2 4090 -6.891121E-13 4162 -6.058592E-14 5015 -6.175904E-14 5090 -9.995676E-13 5165 -6.175923E-14 2 6012 -6.001800E-14 6089 -1.310207E-12 6167 -6.001680E-14 7011 -5.616319E-14 7090 -1.590531E-12 2 7168 -5.616324E-14 8010 -5.074604E-14 8090 -1.812265E-12 8170 -5.074609E-14 9009 -4.409921E-14 2 9090 -1.951365E-12 9171 -4.409906E-14 10008 -3.602394E-14 10016 -1.532714E-13 10024 -3.419096E-13 2 10032 -5.842330E-13 10040 -8.600245E-13 10049 -1.146899E-12 10057 -1.421796E-12 10065 -1.662506E-12 2 10073 -1.849012E-12 10081 -1.963932E-12 10089 -1.988587E-12 10098 -1.963931E-12 10106 -1.849004E-12 2 10114 -1.662520E-12 10122 -1.421806E-12 10130 -1.146902E-12 10139 -8.600208E-13 10147 -5.842234E-13 2 10155 -3.418963E-13 10163 -1.532796E-13 10171 -3.602600E-14 * * * END OF JOB * * * 1 JOB TITLE = VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. DATE: 5/17/95 END TIME: 15:39:57 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d03031a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03031A,NASTRAN APP DISPLACEMENT SOL 3,3 TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 3 METHOD = 1 4 AXISYMMETRIC = FLUID 5 OUTPUT 6 HARMONICS = ALL 7 SET 1 = 1 THRU 1000,1090,2090,3090,4090,5090,6089,7090,8090, 8 9090,10089,11090,12089,13089,14090,15090,16089,17090, 9 18089,19090,20089 10 PRESSURE = 1 11 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 552, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AXIF 100 10.0 1.255014.0 YES +AXIF 2- +AXIF 1 3- CFLUID2 1 1135 1090 4- CFLUID2 5 2150 1135 5- CFLUID2 11 3157 2150 6- CFLUID2 19 4162 3157 7- CFLUID2 29 5165 4162 8- CFLUID2 41 6167 5165 9- CFLUID2 55 7168 6167 10- CFLUID2 71 8170 7168 11- CFLUID2 89 9171 8170 12- CFLUID2 109 10171 9171 13- CFLUID2 131 11172 10171 14- CFLUID2 155 12173 11172 15- CFLUID2 181 13173 12173 16- CFLUID2 209 14174 13173 17- CFLUID2 239 15174 14174 18- CFLUID2 271 16174 15174 19- CFLUID2 305 17175 16174 20- CFLUID2 341 18175 17175 21- CFLUID2 379 19175 18175 22- CFLUID2 419 20175 19175 23- CFLUID3 2 2120 2090 1090 24- CFLUID3 3 1090 1135 2120 25- CFLUID3 4 2150 2120 1135 26- CFLUID3 6 3112 3090 2090 27- CFLUID3 7 2090 2120 3112 28- CFLUID3 8 3135 3112 2120 29- CFLUID3 9 2120 2150 3135 30- CFLUID3 10 3157 3135 2150 31- CFLUID3 12 4108 4090 3090 32- CFLUID3 13 3090 3112 4108 33- CFLUID3 14 4126 4108 3112 34- CFLUID3 15 3112 3135 4126 35- CFLUID3 16 4144 4126 3135 36- CFLUID3 17 3135 3157 4144 37- CFLUID3 18 4162 4144 3157 38- CFLUID3 20 5105 5090 4090 39- CFLUID3 21 4090 4108 5105 40- CFLUID3 22 5120 5105 4108 41- CFLUID3 23 4108 4126 5120 42- CFLUID3 24 5135 5120 4126 43- CFLUID3 25 4126 4144 5135 44- CFLUID3 26 5150 5135 4144 45- CFLUID3 27 4144 4162 5150 46- CFLUID3 28 5165 5150 4162 47- CFLUID3 30 6102 6089 5090 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CFLUID3 31 5090 5105 6102 49- CFLUID3 32 6115 6102 5105 50- CFLUID3 33 5105 5120 6115 51- CFLUID3 34 6128 6115 5120 52- CFLUID3 35 5120 5135 6128 53- CFLUID3 36 6141 6128 5135 54- CFLUID3 37 5135 5150 6141 55- CFLUID3 38 6154 6141 5150 56- CFLUID3 39 5150 5165 6154 57- CFLUID3 40 6167 6154 5165 58- CFLUID3 42 7101 7090 6089 59- CFLUID3 43 6089 6102 7101 60- CFLUID3 44 7112 7101 6102 61- CFLUID3 45 6102 6115 7112 62- CFLUID3 46 7123 7112 6115 63- CFLUID3 47 6115 6128 7123 64- CFLUID3 48 7135 7123 6128 65- CFLUID3 49 6128 6141 7135 66- CFLUID3 50 7146 7135 6141 67- CFLUID3 51 6141 6154 7146 68- CFLUID3 52 7157 7146 6154 69- CFLUID3 53 6154 6167 7157 70- CFLUID3 54 7168 7157 6167 71- CFLUID3 56 8100 8090 7090 72- CFLUID3 57 7090 7101 8100 73- CFLUID3 58 8110 8100 7101 74- CFLUID3 59 7101 7112 8110 75- CFLUID3 60 8120 8110 7112 76- CFLUID3 61 7112 7123 8120 77- CFLUID3 62 8130 8120 7123 78- CFLUID3 63 7123 7135 8130 79- CFLUID3 64 8140 8130 7135 80- CFLUID3 65 7135 7146 8140 81- CFLUID3 66 8150 8140 7146 82- CFLUID3 67 7146 7157 8150 83- CFLUID3 68 8160 8150 7157 84- CFLUID3 69 7157 7168 8160 85- CFLUID3 70 8170 8160 7168 86- CFLUID3 72 9099 9090 8090 87- CFLUID3 73 8090 8100 9099 88- CFLUID3 74 9108 9099 8100 89- CFLUID3 75 8100 8110 9108 90- CFLUID3 76 9117 9108 8110 91- CFLUID3 77 8110 8120 9117 92- CFLUID3 78 9126 9117 8120 93- CFLUID3 79 8120 8130 9126 94- CFLUID3 80 9135 9126 8130 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CFLUID3 81 8130 8140 9135 96- CFLUID3 82 9144 9135 8140 97- CFLUID3 83 8140 8150 9144 98- CFLUID3 84 9153 9144 8150 99- CFLUID3 85 8150 8160 9153 100- CFLUID3 86 9162 9153 8160 101- CFLUID3 87 8160 8170 9162 102- CFLUID3 88 9171 9162 8170 103- CFLUID3 90 10098 10089 9090 104- CFLUID3 91 9090 9099 10098 105- CFLUID3 92 10106 10098 9099 106- CFLUID3 93 9099 9108 10106 107- CFLUID3 94 10114 10106 9108 108- CFLUID3 95 9108 9117 10114 109- CFLUID3 96 10122 10114 9117 110- CFLUID3 97 9117 9126 10122 111- CFLUID3 98 10130 10122 9126 112- CFLUID3 99 9126 9135 10130 113- CFLUID3 100 10139 10130 9135 114- CFLUID3 101 9135 9144 10139 115- CFLUID3 102 10147 10139 9144 116- CFLUID3 103 9144 9153 10147 117- CFLUID3 104 10155 10147 9153 118- CFLUID3 105 9153 9162 10155 119- CFLUID3 106 10163 10155 9162 120- CFLUID3 107 9162 9171 10163 121- CFLUID3 108 10171 10163 9171 122- CFLUID3 110 11097 11090 10089 123- CFLUID3 111 10089 10098 11097 124- CFLUID3 112 11105 11097 10098 125- CFLUID3 113 10098 10106 11105 126- CFLUID3 114 11112 11105 10106 127- CFLUID3 115 10106 10114 11112 128- CFLUID3 116 11120 11112 10114 129- CFLUID3 117 10114 10122 11120 130- CFLUID3 118 11127 11120 10122 131- CFLUID3 119 10122 10130 11127 132- CFLUID3 120 11135 11127 10130 133- CFLUID3 121 10130 10139 11135 134- CFLUID3 122 11142 11135 10139 135- CFLUID3 123 10139 10147 11142 136- CFLUID3 124 11150 11142 10147 137- CFLUID3 125 10147 10155 11150 138- CFLUID3 126 11157 11150 10155 139- CFLUID3 127 10155 10163 11157 140- CFLUID3 128 11165 11157 10163 141- CFLUID3 129 10163 10171 11165 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CFLUID3 130 11172 11165 10171 143- CFLUID3 132 12096 12089 11090 144- CFLUID3 133 11090 11097 12096 145- CFLUID3 134 12103 12096 11097 146- CFLUID3 135 11097 11105 12103 147- CFLUID3 136 12110 12103 11105 148- CFLUID3 137 11105 11112 12110 149- CFLUID3 138 12117 12110 11112 150- CFLUID3 139 11112 11120 12117 151- CFLUID3 140 12124 12117 11120 152- CFLUID3 141 11120 11127 12124 153- CFLUID3 142 12131 12124 11127 154- CFLUID3 143 11127 11135 12131 155- CFLUID3 144 12138 12131 11135 156- CFLUID3 145 11135 11142 12138 157- CFLUID3 146 12145 12138 11142 158- CFLUID3 147 11142 11150 12145 159- CFLUID3 148 12152 12145 11150 160- CFLUID3 149 11150 11157 12152 161- CFLUID3 150 12159 12152 11157 162- CFLUID3 151 11157 11165 12159 163- CFLUID3 152 12166 12159 11165 164- CFLUID3 153 11165 11172 12166 165- CFLUID3 154 12173 12166 11172 166- CFLUID3 156 13096 13089 12089 167- CFLUID3 157 12089 12096 13096 168- CFLUID3 158 13102 13096 12096 169- CFLUID3 159 12096 12103 13102 170- CFLUID3 160 13109 13102 12103 171- CFLUID3 161 12103 12110 13109 172- CFLUID3 162 13115 13109 12110 173- CFLUID3 163 12110 12117 13115 174- CFLUID3 164 13122 13115 12117 175- CFLUID3 165 12117 12124 13122 176- CFLUID3 166 13128 13122 12124 177- CFLUID3 167 12124 12131 13128 178- CFLUID3 168 13134 13128 12131 179- CFLUID3 169 12131 12138 13134 180- CFLUID3 170 13141 13134 12138 181- CFLUID3 171 12138 12145 13141 182- CFLUID3 172 13147 13141 12145 183- CFLUID3 173 12145 12152 13147 184- CFLUID3 174 13154 13147 12152 185- CFLUID3 175 12152 12159 13154 186- CFLUID3 176 13160 13154 12159 187- CFLUID3 177 12159 12166 13160 188- CFLUID3 178 13167 13160 12166 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CFLUID3 179 12166 12173 13167 190- CFLUID3 180 13173 13167 12173 191- CFLUID3 182 14096 14090 13089 192- CFLUID3 183 13089 13096 14096 193- CFLUID3 184 14102 14096 13096 194- CFLUID3 185 13096 13102 14102 195- CFLUID3 186 14108 14102 13102 196- CFLUID3 187 13102 13109 14108 197- CFLUID3 188 14114 14108 13109 198- CFLUID3 189 13109 13115 14114 199- CFLUID3 190 14120 14114 13115 200- CFLUID3 191 13115 13122 14120 201- CFLUID3 192 14126 14120 13122 202- CFLUID3 193 13122 13128 14126 203- CFLUID3 194 14132 14126 13128 204- CFLUID3 195 13128 13134 14132 205- CFLUID3 196 14138 14132 13134 206- CFLUID3 197 13134 13141 14138 207- CFLUID3 198 14144 14138 13141 208- CFLUID3 199 13141 13147 14144 209- CFLUID3 200 14150 14144 13147 210- CFLUID3 201 13147 13154 14150 211- CFLUID3 202 14156 14150 13154 212- CFLUID3 203 13154 13160 14156 213- CFLUID3 204 14162 14156 13160 214- CFLUID3 205 13160 13167 14162 215- CFLUID3 206 14168 14162 13167 216- CFLUID3 207 13167 13173 14168 217- CFLUID3 208 14174 14168 13173 218- CFLUID3 210 15095 15090 14090 219- CFLUID3 211 14090 14096 15095 220- CFLUID3 212 15101 15095 14096 221- CFLUID3 213 14096 14102 15101 222- CFLUID3 214 15106 15101 14102 223- CFLUID3 215 14102 14108 15106 224- CFLUID3 216 15112 15106 14108 225- CFLUID3 217 14108 14114 15112 226- CFLUID3 218 15118 15112 14114 227- CFLUID3 219 14114 14120 15118 228- CFLUID3 220 15123 15118 14120 229- CFLUID3 221 14120 14126 15123 230- CFLUID3 222 15129 15123 14126 231- CFLUID3 223 14126 14132 15129 232- CFLUID3 224 15135 15129 14132 233- CFLUID3 225 14132 14138 15135 234- CFLUID3 226 15140 15135 14138 235- CFLUID3 227 14138 14144 15140 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- CFLUID3 228 15146 15140 14144 237- CFLUID3 229 14144 14150 15146 238- CFLUID3 230 15151 15146 14150 239- CFLUID3 231 14150 14156 15151 240- CFLUID3 232 15157 15151 14156 241- CFLUID3 233 14156 14162 15157 242- CFLUID3 234 15163 15157 14162 243- CFLUID3 235 14162 14168 15163 244- CFLUID3 236 15168 15163 14168 245- CFLUID3 237 14168 14174 15168 246- CFLUID3 238 15174 15168 14174 247- CFLUID3 240 16095 16089 15090 248- CFLUID3 241 15090 15095 16095 249- CFLUID3 242 16100 16095 15095 250- CFLUID3 243 15095 15101 16100 251- CFLUID3 244 16105 16100 15101 252- CFLUID3 245 15101 15106 16105 253- CFLUID3 246 16111 16105 15106 254- CFLUID3 247 15106 15112 16111 255- CFLUID3 248 16116 16111 15112 256- CFLUID3 249 15112 15118 16116 257- CFLUID3 250 16121 16116 15118 258- CFLUID3 251 15118 15123 16121 259- CFLUID3 252 16127 16121 15123 260- CFLUID3 253 15123 15129 16127 261- CFLUID3 254 16132 16127 15129 262- CFLUID3 255 15129 15135 16132 263- CFLUID3 256 16137 16132 15135 264- CFLUID3 257 15135 15140 16137 265- CFLUID3 258 16142 16137 15140 266- CFLUID3 259 15140 15146 16142 267- CFLUID3 260 16148 16142 15146 268- CFLUID3 261 15146 15151 16148 269- CFLUID3 262 16153 16148 15151 270- CFLUID3 263 15151 15157 16153 271- CFLUID3 264 16158 16153 15157 272- CFLUID3 265 15157 15163 16158 273- CFLUID3 266 16164 16158 15163 274- CFLUID3 267 15163 15168 16164 275- CFLUID3 268 16169 16164 15168 276- CFLUID3 269 15168 15174 16169 277- CFLUID3 270 16174 16169 15174 278- CFLUID3 272 17095 17090 16089 279- CFLUID3 273 16089 16095 17095 280- CFLUID3 274 17100 17095 16095 281- CFLUID3 275 16095 16100 17100 282- CFLUID3 276 17105 17100 16100 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- CFLUID3 277 16100 16105 17105 284- CFLUID3 278 17110 17105 16105 285- CFLUID3 279 16105 16111 17110 286- CFLUID3 280 17115 17110 16111 287- CFLUID3 281 16111 16116 17115 288- CFLUID3 282 17120 17115 16116 289- CFLUID3 283 16116 16121 17120 290- CFLUID3 284 17125 17120 16121 291- CFLUID3 285 16121 16127 17125 292- CFLUID3 286 17130 17125 16127 293- CFLUID3 287 16127 16132 17130 294- CFLUID3 288 17135 17130 16132 295- CFLUID3 289 16132 16137 17135 296- CFLUID3 290 17140 17135 16137 297- CFLUID3 291 16137 16142 17140 298- CFLUID3 292 17145 17140 16142 299- CFLUID3 293 16142 16148 17145 300- CFLUID3 294 17150 17145 16148 301- CFLUID3 295 16148 16153 17150 302- CFLUID3 296 17155 17150 16153 303- CFLUID3 297 16153 16158 17155 304- CFLUID3 298 17160 17155 16158 305- CFLUID3 299 16158 16164 17160 306- CFLUID3 300 17165 17160 16164 307- CFLUID3 301 16164 16169 17165 308- CFLUID3 302 17170 17165 16169 309- CFLUID3 303 16169 16174 17170 310- CFLUID3 304 17175 17170 16174 311- CFLUID3 306 18094 18089 17090 312- CFLUID3 307 17090 17095 18094 313- CFLUID3 308 18099 18094 17095 314- CFLUID3 309 17095 17100 18099 315- CFLUID3 310 18104 18099 17100 316- CFLUID3 311 17100 17105 18104 317- CFLUID3 312 18108 18104 17105 318- CFLUID3 313 17105 17110 18108 319- CFLUID3 314 18113 18108 17110 320- CFLUID3 315 17110 17115 18113 321- CFLUID3 316 18118 18113 17115 322- CFLUID3 317 17115 17120 18118 323- CFLUID3 318 18123 18118 17120 324- CFLUID3 319 17120 17125 18123 325- CFLUID3 320 18127 18123 17125 326- CFLUID3 321 17125 17130 18127 327- CFLUID3 322 18132 18127 17130 328- CFLUID3 323 17130 17135 18132 329- CFLUID3 324 18137 18132 17135 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- CFLUID3 325 17135 17140 18137 331- CFLUID3 326 18142 18137 17140 332- CFLUID3 327 17140 17145 18142 333- CFLUID3 328 18146 18142 17145 334- CFLUID3 329 17145 17150 18146 335- CFLUID3 330 18151 18146 17150 336- CFLUID3 331 17150 17155 18151 337- CFLUID3 332 18156 18151 17155 338- CFLUID3 333 17155 17160 18156 339- CFLUID3 334 18161 18156 17160 340- CFLUID3 335 17160 17165 18161 341- CFLUID3 336 18165 18161 17165 342- CFLUID3 337 17165 17170 18165 343- CFLUID3 338 18170 18165 17170 344- CFLUID3 339 17170 17175 18170 345- CFLUID3 340 18175 18170 17175 346- CFLUID3 342 19094 19090 18089 347- CFLUID3 343 18089 18094 19094 348- CFLUID3 344 19099 19094 18094 349- CFLUID3 345 18094 18099 19099 350- CFLUID3 346 19103 19099 18099 351- CFLUID3 347 18099 18104 19103 352- CFLUID3 348 19108 19103 18104 353- CFLUID3 349 18104 18108 19108 354- CFLUID3 350 19112 19108 18108 355- CFLUID3 351 18108 18113 19112 356- CFLUID3 352 19117 19112 18113 357- CFLUID3 353 18113 18118 19117 358- CFLUID3 354 19121 19117 18118 359- CFLUID3 355 18118 18123 19121 360- CFLUID3 356 19126 19121 18123 361- CFLUID3 357 18123 18127 19126 362- CFLUID3 358 19130 19126 18127 363- CFLUID3 359 18127 18132 19130 364- CFLUID3 360 19135 19130 18132 365- CFLUID3 361 18132 18137 19135 366- CFLUID3 362 19139 19135 18137 367- CFLUID3 363 18137 18142 19139 368- CFLUID3 364 19144 19139 18142 369- CFLUID3 365 18142 18146 19144 370- CFLUID3 366 19148 19144 18146 371- CFLUID3 367 18146 18151 19148 372- CFLUID3 368 19153 19148 18151 373- CFLUID3 369 18151 18156 19153 374- CFLUID3 370 19157 19153 18156 375- CFLUID3 371 18156 18161 19157 376- CFLUID3 372 19162 19157 18161 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- CFLUID3 373 18161 18165 19162 378- CFLUID3 374 19166 19162 18165 379- CFLUID3 375 18165 18170 19166 380- CFLUID3 376 19171 19166 18170 381- CFLUID3 377 18170 18175 19171 382- CFLUID3 378 19175 19171 18175 383- CFLUID3 380 20094 20089 19090 384- CFLUID3 381 19090 19094 20094 385- CFLUID3 382 20098 20094 19094 386- CFLUID3 383 19094 19099 20098 387- CFLUID3 384 20102 20098 19099 388- CFLUID3 385 19099 19103 20102 389- CFLUID3 386 20107 20102 19103 390- CFLUID3 387 19103 19108 20107 391- CFLUID3 388 20111 20107 19108 392- CFLUID3 389 19108 19112 20111 393- CFLUID3 390 20115 20111 19112 394- CFLUID3 391 19112 19117 20115 395- CFLUID3 392 20119 20115 19117 396- CFLUID3 393 19117 19121 20119 397- CFLUID3 394 20124 20119 19121 398- CFLUID3 395 19121 19126 20124 399- CFLUID3 396 20128 20124 19126 400- CFLUID3 397 19126 19130 20128 401- CFLUID3 398 20132 20128 19130 402- CFLUID3 399 19130 19135 20132 403- CFLUID3 400 20137 20132 19135 404- CFLUID3 401 19135 19139 20137 405- CFLUID3 402 20141 20137 19139 406- CFLUID3 403 19139 19144 20141 407- CFLUID3 404 20145 20141 19144 408- CFLUID3 405 19144 19148 20145 409- CFLUID3 406 20149 20145 19148 410- CFLUID3 407 19148 19153 20149 411- CFLUID3 408 20154 20149 19153 412- CFLUID3 409 19153 19157 20154 413- CFLUID3 410 20158 20154 19157 414- CFLUID3 411 19157 19162 20158 415- CFLUID3 412 20162 20158 19162 416- CFLUID3 413 19162 19166 20162 417- CFLUID3 414 20167 20162 19166 418- CFLUID3 415 19166 19171 20167 419- CFLUID3 416 20171 20167 19171 420- CFLUID3 417 19171 19175 20171 421- CFLUID3 418 20175 20171 19175 422- CORD2S 100 0 .0 .0 10.0 .0 .0 20.0 +CORD2S 423- +CORD2S .0 1.0 .0 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- EIGR 1 INV .1 .5 6 7 1.0-5 +EIGR-1 425- +EIGR-1 MAX 426- FREEPT 4090 109 90.0 118 180.0 127 270.0 427- FREEPT 8090 209 90.0 218 180.0 227 270.0 428- FREEPT 12089 309 90.0 318 180.0 327 270.0 429- FREEPT 16089 409 90.0 418 180.0 427 270.0 430- FSLIST AXIS 1090 2090 3090 4090 5090 6089 +1-FSL 431- +1-FSL 7090 8090 9090 10089 11090 12089 13089 14090 +2-FSL 432- +2-FSL 15090 16089 17090 18089 19090 20089 433- RINGFL 1090 .50000 90.0000 1135 .50000 135.000 434- RINGFL 2090 1.00000 90.0000 2120 1.00000 120.000 435- RINGFL 2150 1.00000 150.000 436- RINGFL 3090 1.50000 90.0000 3112 1.50000 112.500 437- RINGFL 3135 1.50000 135.000 3157 1.50000 157.500 438- RINGFL 4090 2.00000 90.0000 4108 2.00000 108.000 439- RINGFL 4126 2.00000 126.000 4144 2.00000 144.000 440- RINGFL 4162 2.00000 162.000 441- RINGFL 5090 2.50000 90.0000 5105 2.50000 105.000 442- RINGFL 5120 2.50000 120.000 5135 2.50000 135.000 443- RINGFL 5150 2.50000 150.000 5165 2.50000 165.000 444- RINGFL 6089 3.00000 90.0000 6102 3.00000 102.857 445- RINGFL 6115 3.00000 115.714 6128 3.00000 128.571 446- RINGFL 6141 3.00000 141.429 6154 3.00000 154.286 447- RINGFL 6167 3.00000 167.143 448- RINGFL 7090 3.50000 90.0000 7101 3.50000 101.250 449- RINGFL 7112 3.50000 112.500 7123 3.50000 123.750 450- RINGFL 7135 3.50000 135.000 7146 3.50000 146.250 451- RINGFL 7157 3.50000 157.500 7168 3.50000 168.750 452- RINGFL 8090 4.00000 90.0000 8100 4.00000 100.000 453- RINGFL 8110 4.00000 110.000 8120 4.00000 120.000 454- RINGFL 8130 4.00000 130.000 8140 4.00000 140.000 455- RINGFL 8150 4.00000 150.000 8160 4.00000 160.000 456- RINGFL 8170 4.00000 170.000 457- RINGFL 9090 4.50000 90.0000 9099 4.50000 99.0000 458- RINGFL 9108 4.50000 108.000 9117 4.50000 117.000 459- RINGFL 9126 4.50000 126.000 9135 4.50000 135.000 460- RINGFL 9144 4.50000 144.000 9153 4.50000 153.000 461- RINGFL 9162 4.50000 162.000 9171 4.50000 171.000 462- RINGFL 10089 5.00000 90.0000 10098 5.00000 98.1818 463- RINGFL 10106 5.00000 106.364 10114 5.00000 114.545 464- RINGFL 10122 5.00000 122.727 10130 5.00000 130.909 465- RINGFL 10139 5.00000 139.091 10147 5.00000 147.273 466- RINGFL 10155 5.00000 155.455 10163 5.00000 163.636 467- RINGFL 10171 5.00000 171.818 468- RINGFL 11090 5.50000 90.0000 11097 5.50000 97.5000 469- RINGFL 11105 5.50000 105.000 11112 5.50000 112.500 470- RINGFL 11120 5.50000 120.000 11127 5.50000 127.500 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- RINGFL 11135 5.50000 135.000 11142 5.50000 142.500 472- RINGFL 11150 5.50000 150.000 11157 5.50000 157.500 473- RINGFL 11165 5.50000 165.000 11172 5.50000 172.500 474- RINGFL 12089 6.00000 90.0000 12096 6.00000 96.9231 475- RINGFL 12103 6.00000 103.846 12110 6.00000 110.769 476- RINGFL 12117 6.00000 117.692 12124 6.00000 124.615 477- RINGFL 12131 6.00000 131.538 12138 6.00000 138.462 478- RINGFL 12145 6.00000 145.385 12152 6.00000 152.308 479- RINGFL 12159 6.00000 159.231 12166 6.00000 166.154 480- RINGFL 12173 6.00000 173.077 481- RINGFL 13089 6.50000 90.0000 13096 6.50000 96.4286 482- RINGFL 13102 6.50000 102.857 13109 6.50000 109.286 483- RINGFL 13115 6.50000 115.714 13122 6.50000 122.143 484- RINGFL 13128 6.50000 128.571 13134 6.50000 135.000 485- RINGFL 13141 6.50000 141.429 13147 6.50000 147.857 486- RINGFL 13154 6.50000 154.286 13160 6.50000 160.714 487- RINGFL 13167 6.50000 167.143 13173 6.50000 173.571 488- RINGFL 14090 7.00000 90.0000 14096 7.00000 96.0000 489- RINGFL 14102 7.00000 102.000 14108 7.00000 108.000 490- RINGFL 14114 7.00000 114.000 14120 7.00000 120.000 491- RINGFL 14126 7.00000 126.000 14132 7.00000 132.000 492- RINGFL 14138 7.00000 138.000 14144 7.00000 144.000 493- RINGFL 14150 7.00000 150.000 14156 7.00000 156.000 494- RINGFL 14162 7.00000 162.000 14168 7.00000 168.000 495- RINGFL 14174 7.00000 174.000 496- RINGFL 15090 7.50000 90.0000 15095 7.50000 95.6250 497- RINGFL 15101 7.50000 101.250 15106 7.50000 106.875 498- RINGFL 15112 7.50000 112.500 15118 7.50000 118.125 499- RINGFL 15123 7.50000 123.750 15129 7.50000 129.375 500- RINGFL 15135 7.50000 135.000 15140 7.50000 140.625 501- RINGFL 15146 7.50000 146.250 15151 7.50000 151.875 502- RINGFL 15157 7.50000 157.500 15163 7.50000 163.125 503- RINGFL 15168 7.50000 168.750 15174 7.50000 174.375 504- RINGFL 16089 8.00000 90.0000 16095 8.00000 95.2941 505- RINGFL 16100 8.00000 100.588 16105 8.00000 105.882 506- RINGFL 16111 8.00000 111.176 16116 8.00000 116.471 507- RINGFL 16121 8.00000 121.765 16127 8.00000 127.059 508- RINGFL 16132 8.00000 132.353 16137 8.00000 137.647 509- RINGFL 16142 8.00000 142.941 16148 8.00000 148.235 510- RINGFL 16153 8.00000 153.529 16158 8.00000 158.824 511- RINGFL 16164 8.00000 164.118 16169 8.00000 169.412 512- RINGFL 16174 8.00000 174.706 513- RINGFL 17090 8.50000 90.0000 17095 8.50000 95.0000 514- RINGFL 17100 8.50000 100.000 17105 8.50000 105.000 515- RINGFL 17110 8.50000 110.000 17115 8.50000 115.000 516- RINGFL 17120 8.50000 120.000 17125 8.50000 125.000 517- RINGFL 17130 8.50000 130.000 17135 8.50000 135.000 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- RINGFL 17140 8.50000 140.000 17145 8.50000 145.000 519- RINGFL 17150 8.50000 150.000 17155 8.50000 155.000 520- RINGFL 17160 8.50000 160.000 17165 8.50000 165.000 521- RINGFL 17170 8.50000 170.000 17175 8.50000 175.000 522- RINGFL 18089 9.00000 90.0000 18094 9.00000 94.7368 523- RINGFL 18099 9.00000 99.4737 18104 9.00000 104.211 524- RINGFL 18108 9.00000 108.947 18113 9.00000 113.684 525- RINGFL 18118 9.00000 118.421 18123 9.00000 123.158 526- RINGFL 18127 9.00000 127.895 18132 9.00000 132.632 527- RINGFL 18137 9.00000 137.368 18142 9.00000 142.105 528- RINGFL 18146 9.00000 146.842 18151 9.00000 151.579 529- RINGFL 18156 9.00000 156.316 18161 9.00000 161.053 530- RINGFL 18165 9.00000 165.789 18170 9.00000 170.526 531- RINGFL 18175 9.00000 175.263 532- RINGFL 19090 9.50000 90.0000 19094 9.50000 94.5000 533- RINGFL 19099 9.50000 99.0000 19103 9.50000 103.500 534- RINGFL 19108 9.50000 108.000 19112 9.50000 112.500 535- RINGFL 19117 9.50000 117.000 19121 9.50000 121.500 536- RINGFL 19126 9.50000 126.000 19130 9.50000 130.500 537- RINGFL 19135 9.50000 135.000 19139 9.50000 139.500 538- RINGFL 19144 9.50000 144.000 19148 9.50000 148.500 539- RINGFL 19153 9.50000 153.000 19157 9.50000 157.500 540- RINGFL 19162 9.50000 162.000 19166 9.50000 166.500 541- RINGFL 19171 9.50000 171.000 19175 9.50000 175.500 542- RINGFL 20089 10.0000 90.0000 20094 10.0000 94.2857 543- RINGFL 20098 10.0000 98.5714 20102 10.0000 102.857 544- RINGFL 20107 10.0000 107.143 20111 10.0000 111.429 545- RINGFL 20115 10.0000 115.714 20119 10.0000 120.000 546- RINGFL 20124 10.0000 124.286 20128 10.0000 128.571 547- RINGFL 20132 10.0000 132.857 20137 10.0000 137.143 548- RINGFL 20141 10.0000 141.429 20145 10.0000 145.714 549- RINGFL 20149 10.0000 150.000 20154 10.0000 154.286 550- RINGFL 20158 10.0000 158.571 20162 10.0000 162.857 551- RINGFL 20167 10.0000 167.143 20171 10.0000 171.429 552- RINGFL 20175 10.0000 175.714 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF AXISYMMETRIC FLUID DATA 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 109 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 118 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 127 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 209 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 218 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 227 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 309 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 318 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 327 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 409 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 418 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 427 NOT CONNECTED 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLUID2 ELEMENTS (ELEMENT TYPE 43) STARTING WITH ID 1003 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLUID3 ELEMENTS (ELEMENT TYPE 44) STARTING WITH ID 2003 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLMASS ELEMENTS (ELEMENT TYPE 46) STARTING WITH ID 1000003 2 ROOTS BELOW 5.132194E+00 4 ROOTS BELOW 5.377697E+00 4 ROOTS BELOW 5.377697E+00 0 ROOTS BELOW 1.555683E+00 6 ROOTS BELOW 8.973466E+00 0 ROOTS BELOW 1.557665E+00 6 ROOTS BELOW 8.976109E+00 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 7 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 7 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 54 0 REASON FOR TERMINATION . . . . . . . . . . . 7* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.16E-07 0 . . . 7 MODE PAIR . . . . . . . . . . . . . 2 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 1 OR MORE ROOT OUTSIDE FR.RANGE. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 2 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 3 1.560435E+00 1.249174E+00 1.988121E-01 1.233787E+01 1.925244E+01 2 5 1.560435E+00 1.249174E+00 1.988121E-01 1.233787E+01 1.925244E+01 3 1 5.377697E+00 2.318986E+00 3.690781E-01 6.774343E+00 3.643036E+01 4 2 5.377697E+00 2.318986E+00 3.690781E-01 6.774343E+00 3.643036E+01 5 4 8.973466E+00 2.995574E+00 4.767605E-01 4.047668E+00 3.632161E+01 6 6 8.973466E+00 2.995574E+00 4.767605E-01 4.047668E+00 3.632161E+01 7 7 1.294017E+01 3.597245E+00 5.725194E-01 3.198689E+00 4.139159E+01 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.156043E+01 (CYCLIC FREQUENCY = 1.988121E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 109 S 1.589668E-02 118 S -2.334529E-02 127 S -1.589668E-02 209 S 3.036201E-02 218 S -4.458854E-02 227 S -3.036201E-02 309 S 4.231367E-02 318 S -6.214031E-02 327 S -4.231367E-02 409 S 5.065786E-02 418 S -7.439428E-02 427 S -5.065786E-02 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.156043E+01 (CYCLIC FREQUENCY = 1.988121E-01 HZ) R E A L E I G E N V E C T O R N O . 1 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 1* 1090 5.125281E-02 2090 1.013905E-01 3090 1.508833E-01 4090 1.995056E-01 5090 2.470584E-01 1* 6089 2.933193E-01 7090 3.380589E-01 8090 3.810475E-01 9090 4.220590E-01 10089 4.608718E-01 1* 11090 4.972700E-01 12089 5.310425E-01 13089 5.619829E-01 14090 5.898870E-01 15090 6.145507E-01 1* 16089 6.357632E-01 17090 6.532989E-01 18089 6.669012E-01 19090 6.762550E-01 20089 6.809376E-01 1 1090 7.526801E-02 2090 1.488984E-01 3090 2.215816E-01 4090 2.929866E-01 5090 3.628209E-01 1 6089 4.307581E-01 7090 4.964609E-01 8090 5.595924E-01 9090 6.198204E-01 10089 6.768195E-01 1 11090 7.302725E-01 12089 7.798696E-01 13089 8.253074E-01 14090 8.662866E-01 15090 9.025066E-01 1 16089 9.336585E-01 17090 9.594108E-01 18089 9.793867E-01 19090 9.931232E-01 20089 1.000000E+00 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.156043E+01 (CYCLIC FREQUENCY = 1.988121E-01 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 109 S 2.334528E-02 118 S 1.589668E-02 127 S -2.334528E-02 209 S 4.458854E-02 218 S 3.036201E-02 227 S -4.458854E-02 309 S 6.214031E-02 318 S 4.231367E-02 327 S -6.214031E-02 409 S 7.439427E-02 418 S 5.065785E-02 427 S -7.439427E-02 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.156043E+01 (CYCLIC FREQUENCY = 1.988121E-01 HZ) R E A L E I G E N V E C T O R N O . 2 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 1* 1090 7.526801E-02 2090 1.488984E-01 3090 2.215816E-01 4090 2.929866E-01 5090 3.628209E-01 1* 6089 4.307581E-01 7090 4.964609E-01 8090 5.595924E-01 9090 6.198204E-01 10089 6.768195E-01 1* 11090 7.302725E-01 12089 7.798696E-01 13089 8.253074E-01 14090 8.662866E-01 15090 9.025066E-01 1* 16089 9.336585E-01 17090 9.594108E-01 18089 9.793867E-01 19090 9.931232E-01 20089 1.000000E+00 1 1090 -5.125281E-02 2090 -1.013905E-01 3090 -1.508833E-01 4090 -1.995056E-01 5090 -2.470584E-01 1 6089 -2.933193E-01 7090 -3.380589E-01 8090 -3.810475E-01 9090 -4.220590E-01 10089 -4.608718E-01 1 11090 -4.972700E-01 12089 -5.310425E-01 13089 -5.619829E-01 14090 -5.898870E-01 15090 -6.145507E-01 1 16089 -6.357632E-01 17090 -6.532989E-01 18089 -6.669012E-01 19090 -6.762550E-01 20089 -6.809376E-01 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.537770E+01 (CYCLIC FREQUENCY = 3.690781E-01 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 109 S 4.974199E-02 118 S -6.400827E-02 127 S -4.974199E-02 209 S 6.003302E-02 218 S -7.725082E-02 227 S -6.003302E-02 309 S 2.830808E-02 318 S -3.642700E-02 327 S -2.830808E-02 409 S -1.615319E-02 418 S 2.078602E-02 427 S 1.615320E-02 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.537770E+01 (CYCLIC FREQUENCY = 3.690781E-01 HZ) R E A L E I G E N V E C T O R N O . 3 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 1* 1090 1.883588E-01 2090 3.573058E-01 3090 5.044234E-01 4090 6.242689E-01 5090 7.117764E-01 1* 6089 7.633172E-01 7090 7.771183E-01 8090 7.534228E-01 9090 6.944861E-01 10089 6.044371E-01 1* 11090 4.890248E-01 12089 3.552704E-01 13089 2.110474E-01 14090 6.461761E-02 15090 -7.584647E-02 1* 16089 -2.027249E-01 17090 -3.093650E-01 18089 -3.904220E-01 19090 -4.420857E-01 20089 -4.621605E-01 1 1090 2.423812E-01 2090 4.597830E-01 3090 6.490948E-01 4090 8.033126E-01 5090 9.159176E-01 1 6089 9.822407E-01 7090 1.000000E+00 8090 9.695085E-01 9090 8.936684E-01 10089 7.777928E-01 1 11090 6.292797E-01 12089 4.571639E-01 13089 2.715769E-01 14090 8.315028E-02 15090 -9.759963E-02 1 16089 -2.608674E-01 17090 -3.980926E-01 18089 -5.023971E-01 19090 -5.688782E-01 20089 -5.947106E-01 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.537770E+01 (CYCLIC FREQUENCY = 3.690781E-01 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 109 S 6.400827E-02 118 S 4.974198E-02 127 S -6.400826E-02 209 S 7.725082E-02 218 S 6.003302E-02 227 S -7.725082E-02 309 S 3.642699E-02 318 S 2.830808E-02 327 S -3.642699E-02 409 S -2.078602E-02 418 S -1.615319E-02 427 S 2.078602E-02 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.537770E+01 (CYCLIC FREQUENCY = 3.690781E-01 HZ) R E A L E I G E N V E C T O R N O . 4 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 1* 1090 2.423812E-01 2090 4.597830E-01 3090 6.490948E-01 4090 8.033126E-01 5090 9.159176E-01 1* 6089 9.822407E-01 7090 1.000000E+00 8090 9.695085E-01 9090 8.936684E-01 10089 7.777928E-01 1* 11090 6.292797E-01 12089 4.571639E-01 13089 2.715769E-01 14090 8.315028E-02 15090 -9.759963E-02 1* 16089 -2.608674E-01 17090 -3.980926E-01 18089 -5.023971E-01 19090 -5.688782E-01 20089 -5.947106E-01 1 1090 -1.883588E-01 2090 -3.573058E-01 3090 -5.044234E-01 4090 -6.242689E-01 5090 -7.117764E-01 1 6089 -7.633172E-01 7090 -7.771183E-01 8090 -7.534228E-01 9090 -6.944861E-01 10089 -6.044371E-01 1 11090 -4.890248E-01 12089 -3.552704E-01 13089 -2.110474E-01 14090 -6.461761E-02 15090 7.584647E-02 1 16089 2.027249E-01 17090 3.093650E-01 18089 3.904220E-01 19090 4.420857E-01 20089 4.621605E-01 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.897347E+01 (CYCLIC FREQUENCY = 4.767605E-01 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 109 S -6.135512E-02 118 S -7.968038E-02 127 S 6.135511E-02 209 S -1.652395E-02 218 S -2.145924E-02 227 S 1.652394E-02 309 S 3.474438E-02 318 S 4.512167E-02 327 S -3.474438E-02 409 S 5.793199E-03 418 S 7.523486E-03 427 S -5.793199E-03 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.897347E+01 (CYCLIC FREQUENCY = 4.767605E-01 HZ) R E A L E I G E N V E C T O R N O . 5 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 1* 1090 -3.064950E-01 2090 -5.473943E-01 3090 -7.059278E-01 4090 -7.700152E-01 5090 -7.370769E-01 1* 6089 -6.168988E-01 7090 -4.305745E-01 8090 -2.073778E-01 9090 1.962719E-02 10089 2.184766E-01 1* 11090 3.629191E-01 12089 4.360468E-01 13089 4.324118E-01 14090 3.583437E-01 15090 2.304676E-01 1* 16089 7.270546E-02 17090 -8.772898E-02 18089 -2.246875E-01 19090 -3.170863E-01 20089 -3.519157E-01 1 1090 3.980377E-01 2090 7.108877E-01 3090 9.167713E-01 4090 1.000000E+00 5090 9.572240E-01 1 6089 8.011515E-01 7090 5.591767E-01 8090 2.693165E-01 9090 -2.548937E-02 10089 -2.837302E-01 1 11090 -4.713142E-01 12089 -5.662833E-01 13089 -5.615628E-01 14090 -4.653722E-01 15090 -2.993027E-01 1 16089 -9.442081E-02 17090 1.139315E-01 18089 2.917963E-01 19090 4.117923E-01 20089 4.570244E-01 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.897347E+01 (CYCLIC FREQUENCY = 4.767605E-01 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 109 S 7.968039E-02 118 S -6.135512E-02 127 S -7.968039E-02 209 S 2.145924E-02 218 S -1.652395E-02 227 S -2.145925E-02 309 S -4.512168E-02 318 S 3.474438E-02 327 S 4.512168E-02 409 S -7.523486E-03 418 S 5.793200E-03 427 S 7.523486E-03 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.897347E+01 (CYCLIC FREQUENCY = 4.767605E-01 HZ) R E A L E I G E N V E C T O R N O . 6 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 1* 1090 3.980377E-01 2090 7.108877E-01 3090 9.167713E-01 4090 1.000000E+00 5090 9.572240E-01 1* 6089 8.011515E-01 7090 5.591767E-01 8090 2.693165E-01 9090 -2.548937E-02 10089 -2.837302E-01 1* 11090 -4.713142E-01 12089 -5.662833E-01 13089 -5.615628E-01 14090 -4.653722E-01 15090 -2.993027E-01 1* 16089 -9.442081E-02 17090 1.139315E-01 18089 2.917963E-01 19090 4.117923E-01 20089 4.570244E-01 1 1090 3.064950E-01 2090 5.473943E-01 3090 7.059278E-01 4090 7.700152E-01 5090 7.370769E-01 1 6089 6.168988E-01 7090 4.305745E-01 8090 2.073778E-01 9090 -1.962719E-02 10089 -2.184766E-01 1 11090 -3.629191E-01 12089 -4.360468E-01 13089 -4.324118E-01 14090 -3.583437E-01 15090 -2.304676E-01 1 16089 -7.270546E-02 17090 8.772898E-02 18089 2.246875E-01 19090 3.170863E-01 20089 3.519157E-01 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.129402E+02 (CYCLIC FREQUENCY = 5.725194E-01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 109 S 6.377520E-02 118 S -6.919532E-02 127 S -6.377520E-02 209 S -3.548566E-02 218 S 3.850154E-02 227 S 3.548566E-02 309 S 2.354290E-03 318 S -2.554432E-03 327 S -2.354290E-03 409 S 2.182782E-02 418 S -2.368284E-02 427 S -2.182782E-02 1 VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A 0 EIGENVALUE = 0.129402E+02 (CYCLIC FREQUENCY = 5.725194E-01 HZ) R E A L E I G E N V E C T O R N O . 7 HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 1* 1090 5.019624E-01 2090 8.240456E-01 3090 9.216686E-01 4090 8.003877E-01 5090 5.111621E-01 1* 6089 1.418436E-01 7090 -2.062296E-01 8090 -4.453500E-01 9090 -5.239123E-01 10089 -4.380154E-01 1* 11090 -2.293369E-01 12089 2.954667E-02 13089 2.576922E-01 14090 3.894098E-01 15090 3.921722E-01 1* 16089 2.739421E-01 17090 7.831539E-02 18089 -1.305122E-01 19090 -2.880350E-01 20089 -3.487471E-01 1 1090 5.446239E-01 2090 8.940805E-01 3090 1.000000E+00 4090 8.684109E-01 5090 5.546042E-01 1 6089 1.538976E-01 7090 -2.237575E-01 8090 -4.831997E-01 9090 -5.684381E-01 10089 -4.752405E-01 1 11090 -2.488268E-01 12089 3.205848E-02 13089 2.795930E-01 14090 4.225042E-01 15090 4.255010E-01 1 16089 2.972229E-01 17090 8.497076E-02 18089 -1.416039E-01 19090 -3.125136E-01 20089 -3.783854E-01 * * * END OF JOB * * * 1 JOB TITLE = VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. DATE: 5/17/95 END TIME: 15:40:59 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d03041a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03041A,NASTRAN APP DISPLACEMENT SOL 3,0 TIME 30 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = ACOUSTIC CAVITY ANALYSIS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 3 SET 1 = 1 THRU 210 4 SET 2 = 101 THRU 131, 200 THRU 230, 300 THRU 321, 401 THRU 430, 5 523 THRU 530, 624 THRU 630, 725 THRU 730, 825 THRU 830, 6 926 THRU 930, 1026 THRU 1030 7 METHOD = 1 8 PRESSURE = 1 9 STRESS = 2 10 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 11 OUTPUT(PLOT) 12 PLOTTER NASTPLT 13 SET 1 INCLUDE PLOTEL 14 MAXIMUM DEFORMATION 5.0 15 AXES MZ,Y,X 16 VIEW -20.0, 45.0, 0.0 17 FIND SCALE, ORIGIN 1, SET 1 18 PTITLE = ROCKET MOTOR CAVITY USING PLOTEL ELEMENTS 19 PLOT SET 1, ORIGIN 1, LABEL GRID POINTS 20 PTITLE = MODE SHAPES OF MOTOR CAVITY USING PLOTEL ELEMENTS 21 PLOT MODAL DEFORMATION, SET 1, ORIGIN 1, VECTOR R 22 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 276, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AXSLOT .1143-6 20.58 0 4. 6 2- CAXIF2 101 11 12 3- CAXIF2 102 12 19 4- CAXIF2 103 19 26 5- CAXIF2 104 26 32 6- CAXIF2 107 32 37 7- CAXIF2 108 37 41 8- CAXIF2 109 41 45 9- CAXIF2 110 45 49 10- CAXIF2 111 49 53 11- CAXIF2 112 53 57 12- CAXIF2 113 57 61 13- CAXIF2 114 61 65 14- CAXIF2 115 65 69 15- CAXIF2 116 69 73 16- CAXIF2 117 73 77 17- CAXIF2 119 77 81 18- CAXIF2 120 81 85 19- CAXIF2 121 85 91 20- CAXIF2 123 91 97 21- CAXIF2 124 97 104 22- CAXIF2 125 104 112 23- CAXIF2 126 112 122 24- CAXIF2 127 122 142 25- CAXIF2 128 142 162 26- CAXIF2 129 162 182 27- CAXIF2 130 182 202 28- CAXIF2 131 202 201 29- CAXIF3 200 12 19 13 30- CAXIF3 201 13 19 20 31- CAXIF3 202 19 26 20 32- CAXIF3 203 20 26 27 33- CAXIF3 204 26 32 27 34- CAXIF3 205 27 32 33 35- CAXIF3 218 77 82 78 36- CAXIF3 219 77 81 82 37- CAXIF3 221 85 91 86 38- CAXIF3 222 86 91 92 39- CAXIF3 300 13 20 14 40- CAXIF3 301 14 20 21 41- CAXIF3 302 20 27 21 42- CAXIF3 303 21 27 28 43- CAXIF3 304 27 33 28 44- CAXIF3 305 28 33 34 45- CAXIF3 306 33 38 34 46- CAXIF3 307 34 38 39 47- CAXIF3 318 78 83 79 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CAXIF3 319 78 82 83 49- CAXIF3 321 86 92 87 50- CAXIF3 401 1 2 3 51- CAXIF3 408 28 34 29 52- CAXIF3 410 34 39 35 53- CAXIF4 207 32 37 38 33 54- CAXIF4 208 37 41 42 38 55- CAXIF4 209 41 45 46 42 56- CAXIF4 210 45 49 50 46 57- CAXIF4 211 49 53 54 50 58- CAXIF4 212 53 57 58 54 59- CAXIF4 213 57 61 62 58 60- CAXIF4 214 61 65 66 62 61- CAXIF4 215 65 69 70 66 62- CAXIF4 216 69 73 74 70 63- CAXIF4 217 73 77 78 74 64- CAXIF4 220 81 85 86 82 65- CAXIF4 223 91 97 98 92 66- CAXIF4 224 97 104 105 98 67- CAXIF4 225 104 112 113 105 68- CAXIF4 226 112 122 123 113 69- CAXIF4 227 122 142 143 123 70- CAXIF4 228 142 162 163 143 71- CAXIF4 229 162 182 183 163 72- CAXIF4 230 182 202 203 183 73- CAXIF4 308 38 42 43 39 74- CAXIF4 309 42 46 47 43 75- CAXIF4 310 46 50 51 47 76- CAXIF4 311 50 54 55 51 77- CAXIF4 312 54 58 59 55 78- CAXIF4 313 58 62 63 59 79- CAXIF4 314 62 66 67 63 80- CAXIF4 315 66 70 71 67 81- CAXIF4 316 70 74 75 71 82- CAXIF4 317 74 78 79 75 83- CAXIF4 320 82 86 87 83 84- CAXIF4 402 2 4 5 3 85- CAXIF4 403 4 6 7 5 86- CAXIF4 404 6 8 9 7 87- CAXIF4 405 8 16 17 9 88- CAXIF4 406 16 23 24 17 89- CAXIF4 407 23 29 30 24 90- CAXIF4 409 29 34 35 30 91- CSLOT3 422 89 94 95 92- CSLOT3 523 95 101 102 93- CSLOT3 624 102 109 110 94- CSLOT3 725 110 118 119 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CSLOT3 825 119 129 120 96- CSLOT3 826 120 129 130 97- CSLOT3 926 120 130 131 98- CSLOT3 930 190 210 191 99- CSLOT3 1026 131 151 132 100- CSLOT3 1027 132 151 152 101- CSLOT3 1029 171 192 172 102- CSLOT3 1030 171 191 192 103- CSLOT4 423 94 100 101 95 104- CSLOT4 424 100 107 108 101 105- CSLOT4 425 107 115 116 108 106- CSLOT4 426 115 125 126 116 107- CSLOT4 427 125 145 146 126 108- CSLOT4 428 145 165 166 146 109- CSLOT4 429 165 185 186 166 110- CSLOT4 430 185 205 206 186 111- CSLOT4 524 101 108 109 102 112- CSLOT4 525 108 116 117 109 113- CSLOT4 526 116 126 127 117 114- CSLOT4 527 126 146 147 127 115- CSLOT4 528 146 166 167 147 116- CSLOT4 529 166 186 187 167 117- CSLOT4 530 186 206 207 187 118- CSLOT4 625 109 117 118 110 119- CSLOT4 626 117 127 128 118 120- CSLOT4 627 127 147 148 128 121- CSLOT4 628 147 167 168 148 122- CSLOT4 629 167 187 188 168 123- CSLOT4 630 187 207 208 188 124- CSLOT4 726 118 128 129 119 125- CSLOT4 727 128 148 149 129 126- CSLOT4 728 148 168 169 149 127- CSLOT4 729 168 188 189 169 128- CSLOT4 730 188 208 209 189 129- CSLOT4 827 129 149 150 130 130- CSLOT4 828 149 169 170 150 131- CSLOT4 829 169 189 190 170 132- CSLOT4 830 189 209 210 190 133- CSLOT4 927 130 150 151 131 134- CSLOT4 928 150 170 171 151 135- CSLOT4 929 170 190 191 171 136- CSLOT4 1028 151 171 172 152 137- EIGR 1 INV 100.0 500.0 6 7 +EIG1 138- +EIG1 MAX 139- GRID 500 .0 65.25 123456 140- GRID 501 .0 11.4 123456 141- GRIDF 1 10. 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRIDF 2 9.15 1.8 143- GRIDF 3 10.6 2.6 144- GRIDF 4 8.1 4. 145- GRIDF 5 9.85 4.65 146- GRIDF 6 7.3 6.2 147- GRIDF 7 9. 6.8 148- GRIDF 8 6.55 8.6 149- GRIDF 9 8.6 8.9 150- GRIDF 11 .7 11.4 151- GRIDF 12 .7 12. 152- GRIDF 13 1.8 12. 153- GRIDF 14 3.3 12.1 154- GRIDF 16 5.9 10.8 155- GRIDF 17 8.3 10.6 156- GRIDF 19 1. 13.3 157- GRIDF 20 2.5 13.3 158- GRIDF 21 3.6 13.9 159- GRIDF 23 6.07 13. 160- GRIDF 24 8.3 13. 161- GRIDF 26 1.3 15. 162- GRIDF 27 2.8 15. 163- GRIDF 28 4.8 15. 164- GRIDF 29 6. 14.8 165- GRIDF 30 8.3 15.25 166- GRIDF 32 1.6 16.7 167- GRIDF 33 4. 16.7 168- GRIDF 34 5.5 17.2 169- GRIDF 35 6.9 17.7 170- GRIDF 37 2. 18.82 171- GRIDF 38 4.4 18.82 172- GRIDF 39 6.89 18.82 173- GRIDF 41 2. 21. 174- GRIDF 42 4.4 21. 175- GRIDF 43 6.875 21. 176- GRIDF 45 2. 23.2 177- GRIDF 46 4.4 23.2 178- GRIDF 47 6.85 23.2 179- GRIDF 49 2. 25.4 180- GRIDF 50 4.4 25.4 181- GRIDF 51 6.825 25.4 182- GRIDF 53 2. 27.6 183- GRIDF 54 4.4 27.6 184- GRIDF 55 6.8 27.6 185- GRIDF 57 2. 29.8 186- GRIDF 58 4.4 29.8 187- GRIDF 59 6.775 29.8 188- GRIDF 61 2. 32. 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- GRIDF 62 4.4 32. 190- GRIDF 63 6.75 32. 191- GRIDF 65 2. 34.2 192- GRIDF 66 4.4 34.2 193- GRIDF 67 6.725 34.2 194- GRIDF 69 2. 36.4 195- GRIDF 70 4.4 36.4 196- GRIDF 71 6.7 36.4 197- GRIDF 73 2. 38.6 198- GRIDF 74 4.4 38.6 199- GRIDF 75 6.675 38.6 200- GRIDF 77 2. 40.3 201- GRIDF 78 4.4 40.3 202- GRIDF 79 6.55 40.3 203- GRIDF 81 2. 41.85 204- GRIDF 82 3.4 41.85 205- GRIDF 83 4.6 41.85 206- GRIDF 85 2. 43.85 207- GRIDF 86 3.4 43.85 208- GRIDF 91 2. 46.25 209- GRIDF 97 2. 48.5 210- GRIDF 104 2. 50.8 211- GRIDF 112 2. 52.8 212- GRIDF 122 2. 55. 213- GRIDF 142 2. 57.2 214- GRIDF 162 2. 59.4 215- GRIDF 182 2. 61.6 216- GRIDF 201 2.5 65.25 217- GRIDF 202 2.5 63.7 218- GRIDS 89 4.6 43.85 87 219- GRIDS 94 4.3 46.25 92 220- GRIDS 95 6.9 46.25 221- GRIDS 100 4.3 48.5 98 222- GRIDS 101 6.5 48.5 223- GRIDS 102 9.04 48.5 224- GRIDS 107 4.3 50.8 3.541 105 225- GRIDS 108 6.5 50.8 3.528 226- GRIDS 109 8.7 50.8 3.514 227- GRIDS 110 11.25 50.8 3.497 228- GRIDS 115 4.3 52.8 2.991 113 229- GRIDS 116 6.5 52.8 2.961 230- GRIDS 117 8.7 52.8 2.93 231- GRIDS 118 10.9 52.8 2.9 232- GRIDS 119 13.6 52.8 2.863 233- GRIDS 120 15.3 53.9 2.84 234- GRIDS 125 4.3 55. 2.991 123 235- GRIDS 126 6.5 55. 2.961 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- GRIDS 127 8.7 55. 2.93 237- GRIDS 128 10.9 55. 2.9 238- GRIDS 129 13.1 55. 2.87 239- GRIDS 130 15.3 55. 2.84 240- GRIDS 131 17.5 55.05 2.81 241- GRIDS 132 18.65 56. 2.794 242- GRIDS 145 4.3 57.2 2.991 143 243- GRIDS 146 6.5 57.2 2.961 244- GRIDS 147 8.7 57.2 2.93 245- GRIDS 148 10.9 57.2 2.9 246- GRIDS 149 13.1 57.2 2.87 247- GRIDS 150 15.3 57.2 2.84 248- GRIDS 151 17.5 57.2 2.81 249- GRIDS 152 19.35 57.2 2.784 250- GRIDS 165 4.3 59.4 2.991 163 251- GRIDS 166 6.5 59.4 2.961 252- GRIDS 167 8.7 59.4 2.93 253- GRIDS 168 10.9 59.4 2.9 254- GRIDS 169 13.1 59.4 2.87 255- GRIDS 170 15.3 59.4 2.84 256- GRIDS 171 17.5 59.4 2.81 257- GRIDS 172 19.35 59.4 2.784 258- GRIDS 185 4.3 61.6 2.991 183 259- GRIDS 186 6.5 61.6 2.961 260- GRIDS 187 8.7 61.6 2.93 261- GRIDS 188 10.9 61.6 2.9 262- GRIDS 189 13.1 61.6 2.87 263- GRIDS 190 15.3 61.6 2.84 264- GRIDS 191 17.5 61.5 2.81 265- GRIDS 192 18.5 60.65 2.795 266- GRIDS 205 4.3 63.65 2.991 203 267- GRIDS 206 6.5 63.6 2.961 268- GRIDS 207 8.7 63.55 2.93 269- GRIDS 208 10.9 63.5 2.9 270- GRIDS 209 13.1 63.3 2.87 271- GRIDS 210 15.3 62.63 2.84 272- PLOTEL 1 201 500 2 500 501 273- PLOTEL 3 501 11 274- SLBDY 89 94 100 107 115 125 +BDY 275- +BDY 145 165 185 205 276- SUPORT 1 1 ENDDATA 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 13 PROFILE 1009 MAX WAVEFRONT 12 AVG WAVEFRONT 7.156 RMS WAVEFRONT 7.796 RMS BANDWIDTH 7.934 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 14 PROFILE 1002 MAX WAVEFRONT 13 AVG WAVEFRONT 7.106 RMS WAVEFRONT 7.727 RMS BANDWIDTH 7.919 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 13 14 PROFILE (P) 1009 1002 MAXIMUM WAVEFRONT (C-MAX) 12 13 AVERAGE WAVEFRONT (C-AVG) 7.156 7.106 RMS WAVEFRONT (C-RMS) 7.796 7.727 RMS BANDWITCH (B-RMS) 7.934 7.919 NUMBER OF GRID POINTS (N) 143 NUMBER OF ELEMENTS (NON-RIGID) 145 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 1 NUMBER OF UNIQUE EDGES 401 MATRIX DENSITY, PERCENT 4.743 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF NON-ACTIVE GRID POINTS 2 NO. OF SEQGP CARDS GENERATED 36 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 141 2 139 3 140 4 137 SEQGP 5 138 6 135 7 136 8 133 SEQGP 9 134 11 132 12 127 13 128 SEQGP 14 129 16 130 17 131 19 122 SEQGP 20 123 21 124 23 125 24 126 SEQGP 26 117 27 118 28 119 29 121 SEQGP 30 120 32 113 33 114 34 115 SEQGP 35 116 37 110 38 111 39 112 SEQGP 41 107 42 108 43 109 45 104 SEQGP 46 105 47 106 49 101 50 102 SEQGP 51 103 53 98 54 99 55 100 SEQGP 57 95 58 96 59 97 61 92 SEQGP 62 93 63 94 65 89 66 90 SEQGP 67 91 69 86 70 87 71 88 SEQGP 73 83 74 84 75 85 77 80 SEQGP 78 81 79 82 81 77 82 78 SEQGP 83 79 85 74 86 75 87 76 SEQGP 89 73 91 71 92 72 94 69 SEQGP 95 70 97 67 98 68 100 64 SEQGP 101 65 102 66 104 62 105 63 SEQGP 107 58 108 59 109 60 110 61 SEQGP 112 56 113 57 115 51 116 52 SEQGP 117 53 118 54 119 55 120 48 SEQGP 122 49 123 50 125 43 126 44 SEQGP 127 45 128 46 129 47 130 40 SEQGP 131 39 132 30 142 41 143 42 SEQGP 145 33 146 34 147 35 148 36 SEQGP 149 37 150 38 151 29 152 19 SEQGP 162 31 163 32 165 22 166 23 SEQGP 167 24 168 25 169 26 170 27 SEQGP 171 28 172 18 182 20 183 21 SEQGP 185 10 186 11 187 12 188 13 SEQGP 189 14 190 15 191 16 192 17 SEQGP 201 1 202 8 203 9 205 2 SEQGP 206 3 207 4 208 5 209 6 SEQGP 210 7 500 142 501 143 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = -20.00, BETA = 45.00, ALPHA = 0.00, AXES = -Z,+Y,+X, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 8.275312E-02 ORIGIN 1 - X0 = -7.166634E-01, Y0 = -0.396984E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 1 USED IN THIS PLOT 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 500 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 501 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION AXIF2 ELEMENTS (ELEMENT TYPE 47) STARTING WITH ID 101 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION AXIF3 ELEMENTS (ELEMENT TYPE 48) STARTING WITH ID 200 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION AXIF4 ELEMENTS (ELEMENT TYPE 49) STARTING WITH ID 207 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS2 ELEMENTS (ELEMENT TYPE 12) STARTING WITH ID 10000001 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION SLOT3 ELEMENTS (ELEMENT TYPE 50) STARTING WITH ID 422 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION SLOT4 ELEMENTS (ELEMENT TYPE 51) STARTING WITH ID 423 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 0, EPSILON SUB E = 7.8045319E-15 4 ROOTS BELOW 5.132194E+06 5 ROOTS BELOW 5.948582E+06 3 ROOTS BELOW 3.804033E+06 6 ROOTS BELOW 7.966939E+06 2 ROOTS BELOW 1.569941E+06 1 ROOTS BELOW 3.199454E+05 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 7 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 6 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 38 0 REASON FOR TERMINATION . . . . . . . . . . . 7* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 1 OR MORE ROOT OUTSIDE FR.RANGE. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 1 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 1 0.0 0.0 0.0 4.935291E+02 0.0 2 6 3.202684E+05 5.659226E+02 9.006937E+01 2.270001E+02 7.270096E+07 3 5 1.570861E+06 1.253340E+03 1.994752E+02 9.914820E+01 1.557480E+08 4 3 3.804042E+06 1.950395E+03 3.104150E+02 1.100886E+02 4.187818E+08 5 2 5.943163E+06 2.437860E+03 3.879975E+02 8.700966E+01 5.171126E+08 6 4 7.963367E+06 2.821944E+03 4.491263E+02 3.788091E+01 3.016596E+08 7 7 1.038296E+07 3.222259E+03 5.128385E+02 1.447133E+02 1.502552E+09 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7 S 1.000000E+00 1.000000E+00 1.000000E+00 11 S 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 16 S 1.000000E+00 1.000000E+00 19 S 1.000000E+00 1.000000E+00 1.000000E+00 23 S 1.000000E+00 1.000000E+00 26 S 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 32 S 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 37 S 1.000000E+00 1.000000E+00 1.000000E+00 41 S 1.000000E+00 1.000000E+00 1.000000E+00 45 S 1.000000E+00 1.000000E+00 1.000000E+00 49 S 1.000000E+00 1.000000E+00 1.000000E+00 53 S 1.000000E+00 1.000000E+00 1.000000E+00 57 S 1.000000E+00 1.000000E+00 1.000000E+00 61 S 1.000000E+00 1.000000E+00 1.000000E+00 65 S 1.000000E+00 1.000000E+00 1.000000E+00 69 S 1.000000E+00 1.000000E+00 1.000000E+00 73 S 1.000000E+00 1.000000E+00 1.000000E+00 77 S 1.000000E+00 1.000000E+00 1.000000E+00 81 S 1.000000E+00 1.000000E+00 1.000000E+00 85 S 1.000000E+00 1.000000E+00 1.000000E+00 89 S 1.000000E+00 91 S 1.000000E+00 1.000000E+00 94 S 1.000000E+00 1.000000E+00 97 S 1.000000E+00 1.000000E+00 100 S 1.000000E+00 1.000000E+00 1.000000E+00 104 S 1.000000E+00 1.000000E+00 107 S 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 112 S 1.000000E+00 1.000000E+00 115 S 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 122 S 1.000000E+00 1.000000E+00 125 S 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 131 S 1.000000E+00 1.000000E+00 142 S 1.000000E+00 1.000000E+00 145 S 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 151 S 1.000000E+00 1.000000E+00 162 S 1.000000E+00 1.000000E+00 165 S 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 171 S 1.000000E+00 1.000000E+00 182 S 1.000000E+00 1.000000E+00 185 S 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 191 S 1.000000E+00 1.000000E+00 201 S 1.000000E+00 1.000000E+00 1.000000E+00 205 S 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.320268E+06 (CYCLIC FREQUENCY = 9.006937E+01 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 1.000000E+00 9.975941E-01 9.967453E-01 9.884522E-01 9.884430E-01 9.699124E-01 7 S 9.689181E-01 9.395770E-01 9.415587E-01 11 S 7.876819E-01 7.874297E-01 7.877946E-01 7.880729E-01 16 S 9.068894E-01 9.142652E-01 19 S 7.857642E-01 7.869968E-01 7.868734E-01 23 S 8.666415E-01 8.703047E-01 26 S 7.784884E-01 7.816929E-01 7.954486E-01 8.217325E-01 8.295709E-01 32 S 7.618984E-01 7.703706E-01 7.721107E-01 7.705994E-01 37 S 7.264259E-01 7.325559E-01 7.391633E-01 41 S 6.761388E-01 6.787086E-01 6.810538E-01 45 S 6.165234E-01 6.177194E-01 6.189237E-01 49 S 5.501673E-01 5.508948E-01 5.517957E-01 53 S 4.782053E-01 4.788270E-01 4.796825E-01 57 S 4.013835E-01 4.021067E-01 4.030329E-01 61 S 3.202401E-01 3.213666E-01 3.225299E-01 65 S 2.349868E-01 2.372744E-01 2.391844E-01 69 S 1.449575E-01 1.504174E-01 1.549289E-01 73 S 4.710434E-02 6.051802E-02 7.498813E-02 77 S -3.990197E-02 -1.548793E-02 2.484022E-02 81 S -1.342677E-01 -1.208564E-01 -9.617007E-02 85 S -2.788503E-01 -2.894892E-01 -3.082668E-01 89 S -3.117526E-01 91 S -4.222920E-01 -4.447383E-01 94 S -4.455524E-01 -5.141683E-01 97 S -5.221623E-01 -5.370502E-01 100 S -5.374208E-01 -5.702099E-01 -6.164784E-01 104 S -5.988024E-01 -6.071663E-01 107 S -6.076176E-01 -6.272755E-01 -6.559125E-01 -6.935366E-01 112 S -6.513859E-01 -6.569210E-01 115 S -6.575661E-01 -6.716077E-01 -6.926700E-01 -7.178277E-01 -7.504547E-01 -7.763857E-01 122 S -6.971076E-01 -7.013860E-01 125 S -7.019932E-01 -7.126028E-01 -7.278574E-01 -7.459795E-01 -7.652700E-01 -7.817789E-01 131 S -7.937099E-01 -7.990791E-01 142 S -7.313625E-01 -7.345904E-01 145 S -7.350470E-01 -7.429599E-01 -7.540933E-01 -7.671297E-01 -7.804158E-01 -7.917681E-01 151 S -7.995550E-01 -8.019209E-01 162 S -7.552004E-01 -7.575614E-01 165 S -7.579006E-01 -7.638075E-01 -7.720690E-01 -7.815714E-01 -7.909154E-01 -7.986076E-01 171 S -8.034217E-01 -8.046135E-01 182 S -7.695252E-01 -7.710483E-01 185 S -7.712984E-01 -7.758071E-01 -7.822587E-01 -7.895499E-01 -7.963565E-01 -8.015710E-01 191 S -8.045366E-01 -8.046646E-01 201 S -7.768496E-01 -7.751908E-01 -7.754630E-01 205 S -7.756174E-01 -7.792987E-01 -7.850344E-01 -7.914826E-01 -7.971526E-01 -8.014495E-01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.157086E+07 (CYCLIC FREQUENCY = 1.994752E+02 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 1.000000E+00 9.882658E-01 9.841478E-01 9.440876E-01 9.440718E-01 8.561423E-01 7 S 8.515909E-01 7.167795E-01 7.257561E-01 11 S 7.271417E-02 7.260004E-02 7.490163E-02 7.688450E-02 16 S 5.732117E-01 6.051642E-01 19 S 6.987406E-02 7.649949E-02 8.330506E-02 23 S 4.066502E-01 4.207875E-01 26 S 5.441731E-02 6.933504E-02 1.309097E-01 2.324457E-01 2.613986E-01 32 S 1.238475E-02 4.761748E-02 6.088098E-02 5.992212E-02 37 S -7.941604E-02 -5.612956E-02 -3.330351E-02 41 S -2.013546E-01 -1.920103E-01 -1.842808E-01 45 S -3.272263E-01 -3.233868E-01 -3.201148E-01 49 S -4.440147E-01 -4.422756E-01 -4.405158E-01 53 S -5.442857E-01 -5.434176E-01 -5.423146E-01 57 S -6.227831E-01 -6.224241E-01 -6.217663E-01 61 S -6.756005E-01 -6.758255E-01 -6.756700E-01 65 S -6.998181E-01 -7.011971E-01 -7.019414E-01 69 S -6.930268E-01 -6.971817E-01 -7.003117E-01 73 S -6.521596E-01 -6.629374E-01 -6.743008E-01 77 S -5.927836E-01 -6.126257E-01 -6.453890E-01 81 S -5.129853E-01 -5.243545E-01 -5.452221E-01 85 S -3.757259E-01 -3.640160E-01 -3.438029E-01 89 S -3.402276E-01 91 S -2.257957E-01 -1.992895E-01 94 S -1.983497E-01 -1.199372E-01 97 S -1.106124E-01 -9.194913E-02 100 S -9.148090E-02 -5.051503E-02 1.058399E-02 104 S -1.370847E-02 -2.316523E-03 107 S -1.688395E-03 2.537355E-02 6.624850E-02 1.224473E-01 112 S 5.824428E-02 6.646018E-02 115 S 6.743953E-02 8.847223E-02 1.206946E-01 1.603431E-01 2.136930E-01 2.577728E-01 122 S 1.249221E-01 1.318185E-01 125 S 1.328078E-01 1.500200E-01 1.750678E-01 2.053818E-01 2.382510E-01 2.671078E-01 131 S 2.882732E-01 2.978645E-01 142 S 1.775346E-01 1.831192E-01 145 S 1.839159E-01 1.976574E-01 2.171210E-01 2.401444E-01 2.638685E-01 2.844168E-01 151 S 2.986285E-01 3.029754E-01 162 S 2.155546E-01 2.199216E-01 165 S 2.205516E-01 2.314547E-01 2.467303E-01 2.643772E-01 2.818299E-01 2.963062E-01 171 S 3.054354E-01 3.077291E-01 182 S 2.389471E-01 2.420269E-01 185 S 2.425209E-01 2.513080E-01 2.637931E-01 2.778996E-01 2.911175E-01 3.013239E-01 191 S 3.072275E-01 3.076733E-01 201 S 2.509212E-01 2.483006E-01 2.492990E-01 205 S 2.496411E-01 2.571159E-01 2.684484E-01 2.811320E-01 2.923500E-01 3.009762E-01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.380404E+07 (CYCLIC FREQUENCY = 3.104150E+02 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 1.000000E+00 9.718665E-01 9.620848E-01 8.676675E-01 8.677458E-01 6.670718E-01 7 S 6.573660E-01 3.674768E-01 3.863133E-01 11 S -8.019146E-01 -7.988689E-01 -7.921307E-01 -7.857994E-01 16 S 8.472287E-02 1.460630E-01 19 S -7.891417E-01 -7.724756E-01 -7.358532E-01 23 S -2.045231E-01 -1.836188E-01 26 S -7.657560E-01 -7.345030E-01 -6.137285E-01 -4.643404E-01 -4.266365E-01 32 S -7.499855E-01 -6.894535E-01 -6.478565E-01 -6.336191E-01 37 S -7.364252E-01 -7.033836E-01 -6.788484E-01 41 S -6.984039E-01 -6.864101E-01 -6.790750E-01 45 S -6.046492E-01 -6.009099E-01 -5.995447E-01 49 S -4.546567E-01 -4.541165E-01 -4.550204E-01 53 S -2.596222E-01 -2.603494E-01 -2.621938E-01 57 S -3.761505E-02 -3.884308E-02 -4.104473E-02 61 S 1.896548E-01 1.882372E-01 1.859984E-01 65 S 3.995707E-01 3.980118E-01 3.958816E-01 69 S 5.712031E-01 5.692080E-01 5.669767E-01 73 S 6.878281E-01 6.844872E-01 6.807010E-01 77 S 7.336639E-01 7.285418E-01 7.215962E-01 81 S 7.393234E-01 7.377341E-01 7.356259E-01 85 S 6.987415E-01 6.894072E-01 6.746840E-01 89 S 6.726593E-01 91 S 6.044268E-01 5.750744E-01 94 S 5.741155E-01 4.956309E-01 97 S 4.878994E-01 4.615935E-01 100 S 4.609163E-01 4.030248E-01 3.018455E-01 104 S 3.522973E-01 3.309574E-01 107 S 3.297107E-01 2.778197E-01 1.933006E-01 6.535210E-02 112 S 2.266706E-01 2.071996E-01 115 S 2.047649E-01 1.544731E-01 7.498329E-02 -2.798412E-02 -1.761654E-01 -3.078703E-01 122 S 9.095626E-02 7.128565E-02 125 S 6.842279E-02 1.908387E-02 -5.366949E-02 -1.440170E-01 -2.444803E-01 -3.365883E-01 131 S -4.057882E-01 -4.372320E-01 142 S -2.871030E-02 -4.722096E-02 145 S -4.988781E-02 -9.543253E-02 -1.601767E-01 -2.374903E-01 -3.180837E-01 -3.891887E-01 151 S -4.388566E-01 -4.541493E-01 162 S -1.217815E-01 -1.383952E-01 165 S -1.407924E-01 -1.817182E-01 -2.387434E-01 -3.046099E-01 -3.699876E-01 -4.247070E-01 171 S -4.596662E-01 -4.687643E-01 182 S -1.813311E-01 -1.953092E-01 185 S -1.974339E-01 -2.341337E-01 -2.850996E-01 -3.422675E-01 -3.959773E-01 -4.380205E-01 191 S -4.632516E-01 -4.669815E-01 201 S -2.106860E-01 -2.053838E-01 -2.138754E-01 205 S -2.156737E-01 -2.494381E-01 -2.975882E-01 -3.506837E-01 -3.980443E-01 -4.355462E-01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.594316E+07 (CYCLIC FREQUENCY = 3.879975E+02 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 4.597690E-01 4.397505E-01 4.328503E-01 3.667569E-01 3.668858E-01 2.307298E-01 7 S 2.245899E-01 3.930112E-02 5.107524E-02 11 S -5.670202E-01 -5.636580E-01 -5.588022E-01 -5.540548E-01 16 S -1.250080E-01 -9.028909E-02 19 S -5.505982E-01 -5.395920E-01 -5.078469E-01 23 S -2.687389E-01 -2.605903E-01 26 S -5.107183E-01 -4.926746E-01 -4.272033E-01 -3.707257E-01 -3.598869E-01 32 S -4.543183E-01 -4.260131E-01 -3.966550E-01 -3.821175E-01 37 S -3.593988E-01 -3.477256E-01 -3.441314E-01 41 S -2.267714E-01 -2.232909E-01 -2.228132E-01 45 S -6.210935E-02 -6.156319E-02 -6.255819E-02 49 S 1.115362E-01 1.111529E-01 1.097572E-01 53 S 2.682847E-01 2.678486E-01 2.666467E-01 57 S 3.838158E-01 3.839095E-01 3.833324E-01 61 S 4.395128E-01 4.409260E-01 4.414834E-01 65 S 4.251052E-01 4.295823E-01 4.324180E-01 69 S 3.391042E-01 3.509637E-01 3.598351E-01 73 S 1.859097E-01 2.149210E-01 2.442231E-01 77 S 2.195409E-02 7.379762E-02 1.541644E-01 81 S -1.626626E-01 -1.333061E-01 -8.292859E-02 85 S -4.317459E-01 -4.453935E-01 -4.713134E-01 89 S -4.768261E-01 91 S -6.526873E-01 -6.609582E-01 94 S -6.614812E-01 -7.036682E-01 97 S -7.358099E-01 -7.205048E-01 100 S -7.200755E-01 -6.871809E-01 -5.963704E-01 104 S -7.183293E-01 -6.847181E-01 107 S -6.825656E-01 -6.032678E-01 -4.698427E-01 -2.492409E-01 112 S -6.416647E-01 -5.968345E-01 115 S -5.909670E-01 -4.799859E-01 -3.087397E-01 -8.427965E-02 2.536726E-01 5.757540E-01 122 S -5.172925E-01 -4.615465E-01 125 S -4.534687E-01 -3.165702E-01 -1.188390E-01 1.247276E-01 3.933759E-01 6.467326E-01 131 S 8.394188E-01 9.241267E-01 142 S -3.838676E-01 -3.218173E-01 145 S -3.129101E-01 -1.629847E-01 4.602590E-02 2.916372E-01 5.444165E-01 7.674378E-01 151 S 9.224117E-01 9.696705E-01 162 S -2.702412E-01 -2.053525E-01 165 S -1.961155E-01 -4.126257E-02 1.694862E-01 4.085334E-01 6.429462E-01 8.387682E-01 171 S 9.652733E-01 1.000000E+00 182 S -1.977431E-01 -1.320924E-01 185 S -1.227559E-01 3.287300E-02 2.406092E-01 4.689297E-01 6.822425E-01 8.512798E-01 191 S 9.576989E-01 9.836243E-01 201 S -1.780051E-01 -1.710391E-01 -1.123764E-01 205 S -1.028740E-01 5.237589E-02 2.572194E-01 4.771282E-01 6.741242E-01 8.354638E-01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.796337E+07 (CYCLIC FREQUENCY = 4.491263E+02 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 1.990148E-01 1.875060E-01 1.835708E-01 1.461544E-01 1.462653E-01 7.145403E-02 7 S 6.831270E-02 -2.764780E-02 -2.167186E-02 11 S -2.666916E-01 -2.645741E-01 -2.621017E-01 -2.596196E-01 16 S -1.044039E-01 -8.862508E-02 19 S -2.558460E-01 -2.506084E-01 -2.327139E-01 23 S -1.590984E-01 -1.571769E-01 26 S -2.277882E-01 -2.202152E-01 -1.945677E-01 -1.832355E-01 -1.833932E-01 32 S -1.844876E-01 -1.756016E-01 -1.614260E-01 -1.530972E-01 37 S -1.109416E-01 -1.092490E-01 -1.121390E-01 41 S -1.736399E-02 -1.737789E-02 -1.867104E-02 45 S 8.058468E-02 8.020844E-02 7.924504E-02 49 S 1.623330E-01 1.620198E-01 1.613667E-01 53 S 2.109161E-01 2.108596E-01 2.106280E-01 57 S 2.159852E-01 2.163353E-01 2.166178E-01 61 S 1.759990E-01 1.769968E-01 1.778927E-01 65 S 9.843062E-02 1.006845E-01 1.025112E-01 69 S -2.226422E-03 2.885434E-03 6.968603E-03 73 S -1.086614E-01 -9.703124E-02 -8.523434E-02 77 S -1.862652E-01 -1.662343E-01 -1.359082E-01 81 S -2.491039E-01 -2.389929E-01 -2.214310E-01 85 S -3.111946E-01 -3.127563E-01 -3.142711E-01 89 S -3.150242E-01 91 S -3.177262E-01 -3.192779E-01 94 S -3.192241E-01 -3.176132E-01 97 S -2.494649E-01 -2.609856E-01 100 S -2.612278E-01 -2.731074E-01 -2.698643E-01 104 S -1.082520E-01 -1.350785E-01 107 S -1.367416E-01 -1.813082E-01 -2.207357E-01 -2.512905E-01 112 S 6.637768E-02 2.834731E-02 115 S 2.345720E-02 -5.395395E-02 -1.440410E-01 -2.308834E-01 -3.341266E-01 -4.308777E-01 122 S 2.908159E-01 2.408436E-01 125 S 2.339505E-01 1.213237E-01 -2.256696E-02 -1.767059E-01 -3.204872E-01 -4.477458E-01 131 S -5.386451E-01 -5.676855E-01 142 S 5.192956E-01 4.558183E-01 145 S 4.469566E-01 3.014140E-01 1.122018E-01 -9.283274E-02 -2.866273E-01 -4.472717E-01 151 S -5.521457E-01 -5.817155E-01 162 S 7.219124E-01 6.450413E-01 165 S 6.344358E-01 4.610999E-01 2.375142E-01 -3.100537E-03 -2.284596E-01 -4.116952E-01 171 S -5.309082E-01 -5.668943E-01 182 S 8.740138E-01 7.813457E-01 185 S 7.691159E-01 5.736255E-01 3.283080E-01 6.958596E-02 -1.672966E-01 -3.568463E-01 191 S -4.843662E-01 -5.323002E-01 201 S 1.000000E+00 9.477956E-01 8.404732E-01 205 S 8.258254E-01 6.145235E-01 3.612440E-01 1.011769E-01 -1.311220E-01 -3.291927E-01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.103830E+08 (CYCLIC FREQUENCY = 5.128385E+02 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -8.582404E-01 -7.942002E-01 -7.725077E-01 -5.681064E-01 -5.689493E-01 -1.748352E-01 7 S -1.597595E-01 3.092761E-01 2.807380E-01 11 S 9.855146E-01 9.753203E-01 9.659809E-01 9.562557E-01 16 S 6.331626E-01 5.691135E-01 19 S 9.311547E-01 9.133291E-01 8.364111E-01 23 S 7.865050E-01 7.892044E-01 26 S 7.839332E-01 7.640590E-01 7.068763E-01 7.517920E-01 7.827020E-01 32 S 5.447519E-01 5.415008E-01 4.936724E-01 4.587702E-01 37 S 1.437918E-01 1.608469E-01 1.968310E-01 41 S -3.202749E-01 -3.101726E-01 -2.971523E-01 45 S -7.154590E-01 -7.104109E-01 -7.046738E-01 49 S -9.260628E-01 -9.242308E-01 -9.224558E-01 53 S -8.920256E-01 -8.923403E-01 -8.935038E-01 57 S -6.198143E-01 -6.213408E-01 -6.245396E-01 61 S -1.805334E-01 -1.819580E-01 -1.858247E-01 65 S 3.085696E-01 3.094962E-01 3.071128E-01 69 S 7.142175E-01 7.217813E-01 7.250002E-01 73 S 9.201484E-01 9.426214E-01 9.630175E-01 77 S 8.920716E-01 9.342791E-01 1.000000E+00 81 S 7.102628E-01 7.386503E-01 7.879344E-01 85 S 3.024258E-01 2.605917E-01 1.940526E-01 89 S 1.827195E-01 91 S -1.605876E-01 -2.438613E-01 94 S -2.466878E-01 -4.717907E-01 97 S -4.376628E-01 -4.934106E-01 100 S -4.947047E-01 -5.928365E-01 -6.769260E-01 104 S -5.174980E-01 -5.532391E-01 107 S -5.551496E-01 -6.117913E-01 -6.427578E-01 -6.025700E-01 112 S -4.229466E-01 -4.499171E-01 115 S -4.530013E-01 -4.968328E-01 -5.193442E-01 -4.890593E-01 -3.678713E-01 -2.104283E-01 122 S -1.789799E-01 -2.031283E-01 125 S -2.060649E-01 -2.502060E-01 -2.841824E-01 -2.848594E-01 -2.379340E-01 -1.653145E-01 131 S -9.377376E-02 -4.455557E-02 142 S 1.438320E-01 1.146793E-01 145 S 1.109250E-01 5.258253E-02 -6.769481E-03 -4.710660E-02 -5.818987E-02 -4.656993E-02 151 S -2.554793E-02 -1.477304E-02 162 S 4.658157E-01 4.263004E-01 165 S 4.212038E-01 3.417188E-01 2.528604E-01 1.735885E-01 1.143711E-01 7.514305E-02 171 S 5.014382E-02 3.895626E-02 182 S 7.144651E-01 6.574143E-01 185 S 6.505953E-01 5.481522E-01 4.345237E-01 3.271597E-01 2.359196E-01 1.626606E-01 191 S 1.056876E-01 6.859437E-02 201 S 8.923695E-01 8.319489E-01 7.498686E-01 205 S 7.401642E-01 6.182309E-01 4.929956E-01 3.767664E-01 2.755093E-01 1.829332E-01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 2 - S T R E S S ) ELEMENT CENTER EDGE ID. R ----------------------- Z S ---------------------- PHI 101 0.0 0.0 0.0 0.0 102 0.0 0.0 0.0 0.0 103 0.0 0.0 0.0 0.0 104 0.0 0.0 0.0 0.0 107 0.0 0.0 0.0 0.0 108 0.0 0.0 0.0 0.0 109 0.0 0.0 0.0 0.0 110 0.0 0.0 0.0 0.0 111 0.0 0.0 0.0 0.0 112 0.0 0.0 0.0 0.0 113 0.0 0.0 0.0 0.0 114 0.0 0.0 0.0 0.0 115 0.0 0.0 0.0 0.0 116 0.0 0.0 0.0 0.0 117 0.0 0.0 0.0 0.0 119 0.0 0.0 0.0 0.0 120 0.0 0.0 0.0 0.0 121 0.0 0.0 0.0 0.0 123 0.0 0.0 0.0 0.0 124 0.0 0.0 0.0 0.0 125 0.0 0.0 0.0 0.0 126 0.0 0.0 0.0 0.0 127 0.0 0.0 0.0 0.0 128 0.0 0.0 0.0 0.0 129 0.0 0.0 0.0 0.0 130 0.0 0.0 0.0 0.0 131 0.0 0.0 0.0 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R --------- PHI --------- Z S --------- PHI S --------- PHI S --------- PHI 200 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 201 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 202 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 203 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 204 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 205 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 218 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 219 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 221 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 222 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 300 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 301 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 302 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 303 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 304 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 305 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 306 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 307 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 318 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 319 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 321 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 401 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 408 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 410 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R ------- PHI ------ Z S ------- PHI S ------- PHI S ------- PHI S ------- PHI 207 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 208 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 209 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 210 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 211 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 212 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 213 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 214 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 215 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 216 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 217 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 220 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 223 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 224 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 225 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 226 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 227 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 228 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 229 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 230 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 308 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 309 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 310 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 311 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 312 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 313 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 314 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 315 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 316 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 317 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 320 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 402 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 403 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 404 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 405 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 406 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 407 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 409 0.0 0.00 0.0 0.0 0.00 0.0 0.00 0.0 0.00 0.0 0.00 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R ------------------- Z S S S 422 0.0 0.0 0.0 0.0 0.0 523 0.0 0.0 0.0 0.0 0.0 624 0.0 0.0 0.0 0.0 0.0 725 0.0 0.0 0.0 0.0 0.0 825 0.0 0.0 0.0 0.0 0.0 826 0.0 0.0 0.0 0.0 0.0 926 0.0 0.0 0.0 0.0 0.0 930 0.0 0.0 0.0 0.0 0.0 1026 0.0 0.0 0.0 0.0 0.0 1027 0.0 0.0 0.0 0.0 0.0 1029 0.0 0.0 0.0 0.0 0.0 1030 0.0 0.0 0.0 0.0 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R --------------- Z S S S S 423 0.0 0.0 0.0 0.0 0.0 0.0 424 0.0 0.0 0.0 0.0 0.0 0.0 425 0.0 0.0 0.0 0.0 0.0 0.0 426 0.0 0.0 0.0 0.0 0.0 0.0 427 0.0 0.0 0.0 0.0 0.0 0.0 428 0.0 0.0 0.0 0.0 0.0 0.0 429 0.0 0.0 0.0 0.0 0.0 0.0 430 0.0 0.0 0.0 0.0 0.0 0.0 524 0.0 0.0 0.0 0.0 0.0 0.0 525 0.0 0.0 0.0 0.0 0.0 0.0 526 0.0 0.0 0.0 0.0 0.0 0.0 527 0.0 0.0 0.0 0.0 0.0 0.0 528 0.0 0.0 0.0 0.0 0.0 0.0 529 0.0 0.0 0.0 0.0 0.0 0.0 530 0.0 0.0 0.0 0.0 0.0 0.0 625 0.0 0.0 0.0 0.0 0.0 0.0 626 0.0 0.0 0.0 0.0 0.0 0.0 627 0.0 0.0 0.0 0.0 0.0 0.0 628 0.0 0.0 0.0 0.0 0.0 0.0 629 0.0 0.0 0.0 0.0 0.0 0.0 630 0.0 0.0 0.0 0.0 0.0 0.0 726 0.0 0.0 0.0 0.0 0.0 0.0 727 0.0 0.0 0.0 0.0 0.0 0.0 728 0.0 0.0 0.0 0.0 0.0 0.0 729 0.0 0.0 0.0 0.0 0.0 0.0 730 0.0 0.0 0.0 0.0 0.0 0.0 827 0.0 0.0 0.0 0.0 0.0 0.0 828 0.0 0.0 0.0 0.0 0.0 0.0 829 0.0 0.0 0.0 0.0 0.0 0.0 830 0.0 0.0 0.0 0.0 0.0 0.0 927 0.0 0.0 0.0 0.0 0.0 0.0 928 0.0 0.0 0.0 0.0 0.0 0.0 929 0.0 0.0 0.0 0.0 0.0 0.0 1028 0.0 0.0 0.0 0.0 0.0 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.320268E+06 (CYCLIC FREQUENCY = 9.006937E+01 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 2 - S T R E S S ) ELEMENT CENTER EDGE ID. R ----------------------- Z S ---------------------- PHI 101 0.0 6.498047E+00 -6.498047E+00 0.0 102 0.0 1.980664E+01 -1.929883E+01 0.0 103 0.0 6.616455E+01 -6.515820E+01 0.0 104 0.0 1.508667E+02 -1.485713E+02 0.0 107 0.0 2.586743E+02 -2.541885E+02 0.0 108 0.0 3.566133E+02 -3.566133E+02 0.0 109 0.0 4.189209E+02 -4.189204E+02 0.0 110 0.0 4.662891E+02 -4.662891E+02 0.0 111 0.0 5.056816E+02 -5.056814E+02 0.0 112 0.0 5.398318E+02 -5.398318E+02 0.0 113 0.0 5.701997E+02 -5.702000E+02 0.0 114 0.0 5.990806E+02 -5.990804E+02 0.0 115 0.0 6.326420E+02 -6.326420E+02 0.0 116 0.0 6.876215E+02 -6.876215E+02 0.0 117 0.0 7.912220E+02 -7.912220E+02 0.0 119 0.0 9.411949E+02 -9.411949E+02 0.0 120 0.0 1.117591E+03 -1.117591E+03 0.0 121 0.0 9.239752E+02 -9.239752E+02 0.0 123 0.0 6.861997E+02 -6.861997E+02 0.0 124 0.0 5.151399E+02 -5.151401E+02 0.0 125 0.0 4.064580E+02 -4.064580E+02 0.0 126 0.0 3.212891E+02 -3.212891E+02 0.0 127 0.0 2.407119E+02 -2.407114E+02 0.0 128 0.0 1.675103E+02 -1.675103E+02 0.0 129 0.0 1.006611E+02 -1.006611E+02 0.0 130 0.0 4.170898E+01 -4.057520E+01 0.0 131 0.0 1.654395E+01 -1.654395E+01 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.320268E+06 (CYCLIC FREQUENCY = 9.006937E+01 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R --------- PHI --------- Z S --------- PHI S --------- PHI S --------- PHI 200 -5.12891E+00 0.0 2.09897E+01 -1.92988E+01 0.0 2.05640E+01 0.0 -5.12793E+00 0.0 201 -1.27036E+01 0.0 1.63286E+01 -2.05640E+01 0.0 1.27041E+01 0.0 8.35352E+00 0.0 202 -1.27036E+01 0.0 6.84061E+01 -6.51582E+01 0.0 6.32124E+01 0.0 -1.27041E+01 0.0 203 -3.30269E+01 0.0 5.40620E+01 -6.32124E+01 0.0 3.30269E+01 0.0 4.74990E+01 0.0 204 -3.30269E+01 0.0 1.56695E+02 -1.48571E+02 0.0 1.47061E+02 0.0 -3.30269E+01 0.0 205 -5.45737E+01 0.0 1.41486E+02 -1.47061E+02 0.0 5.45732E+01 0.0 8.41177E+01 0.0 218 -1.57262E+02 0.0 9.49475E+02 -5.99197E+02 0.0 8.83097E+02 0.0 -1.57263E+02 0.0 219 -1.48095E+02 0.0 9.41195E+02 -9.41195E+02 0.0 1.48095E+02 0.0 5.99197E+02 0.0 221 1.17479E+02 0.0 9.23975E+02 -9.23975E+02 0.0 7.38916E+02 0.0 1.17479E+02 0.0 222 1.50874E+02 0.0 9.43455E+02 -7.38916E+02 0.0 -1.50874E+02 0.0 9.36360E+02 0.0 300 -3.63086E+00 0.0 1.14414E+01 -8.35352E+00 0.0 1.15352E+01 0.0 -2.86133E+00 0.0 301 -4.27246E+00 0.0 1.10146E+01 -1.15352E+01 0.0 -1.52246E+00 0.0 1.01616E+01 0.0 302 -2.71934E+01 0.0 5.30317E+01 -4.74990E+01 0.0 5.88828E+01 0.0 1.52246E+00 0.0 303 -1.06329E+02 0.0 -4.52197E+00 -5.88828E+01 0.0 1.06329E+02 0.0 -8.14360E+01 0.0 304 -1.06329E+02 0.0 1.78019E+02 -8.41177E+01 0.0 2.06349E+02 0.0 -1.06329E+02 0.0 305 -8.12124E+01 0.0 1.89837E+02 -2.06349E+02 0.0 1.70137E+01 0.0 1.56276E+02 0.0 306 -1.17225E+02 0.0 2.97872E+02 -2.70973E+02 0.0 3.12282E+02 0.0 -1.70137E+01 0.0 307 -4.10225E+01 0.0 3.49614E+02 -3.12282E+02 0.0 4.10220E+01 0.0 2.38618E+02 0.0 318 -2.89979E+02 0.0 8.42133E+02 -7.98099E+02 0.0 7.51014E+02 0.0 -2.89979E+02 0.0 319 -3.18033E+02 0.0 8.45752E+02 -8.83097E+02 0.0 3.18033E+02 0.0 7.98099E+02 0.0 321 2.41912E+02 0.0 9.09316E+02 -9.36360E+02 0.0 8.72289E+02 0.0 2.41912E+02 0.0 401 -1.86523E+00 0.0 1.97832E+01 -1.86855E+01 0.0 -7.92285E+00 0.0 1.88569E+01 0.0 408 -2.95605E+02 0.0 2.58053E+02 -1.56276E+02 0.0 3.12919E+02 0.0 -3.34007E+02 0.0 410 -1.37843E+02 0.0 4.32688E+02 -2.38618E+02 0.0 4.33902E+02 0.0 1.57163E+01 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.320268E+06 (CYCLIC FREQUENCY = 9.006937E+01 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R ------- PHI ------ Z S ------- PHI S ------- PHI S ------- PHI S ------- PHI 207 -4.70300E+01 0.00 2.76087E+02 -2.54189E+02 0.00 3.94858E+01 0.00 2.70973E+02 0.00 -5.45732E+01 0.00 208 -2.80200E+01 0.00 3.69237E+02 -3.56613E+02 0.00 1.65537E+01 0.00 3.81860E+02 0.00 -3.94858E+01 0.00 209 -1.21289E+01 0.00 4.23748E+02 -4.18921E+02 0.00 7.70386E+00 0.00 4.28575E+02 0.00 -1.65537E+01 0.00 210 -6.19482E+00 0.00 4.67935E+02 -4.66289E+02 0.00 4.68604E+00 0.00 4.69582E+02 0.00 -7.70386E+00 0.00 211 -4.34534E+00 0.00 5.06053E+02 -5.05682E+02 0.00 4.00439E+00 0.00 5.06425E+02 0.00 -4.68604E+00 0.00 212 -4.33130E+00 0.00 5.39476E+02 -5.39832E+02 0.00 4.65820E+00 0.00 5.39119E+02 0.00 -4.00439E+00 0.00 213 -5.95703E+00 0.00 5.68783E+02 -5.70200E+02 0.00 7.25610E+00 0.00 5.67366E+02 0.00 -4.65820E+00 0.00 214 -1.09955E+01 0.00 5.95001E+02 -5.99081E+02 0.00 1.47351E+01 0.00 5.90921E+02 0.00 -7.25610E+00 0.00 215 -2.49526E+01 0.00 6.21496E+02 -6.32642E+02 0.00 3.51698E+01 0.00 6.10350E+02 0.00 -1.47351E+01 0.00 216 -6.07869E+01 0.00 6.59675E+02 -6.87621E+02 0.00 8.64039E+01 0.00 6.31730E+02 0.00 -3.51698E+01 0.00 217 -1.21833E+02 0.00 7.41204E+02 -7.91222E+02 0.00 1.57263E+02 0.00 6.91186E+02 0.00 -8.64039E+01 0.00 220 -1.53077E+01 0.00 1.21054E+03 -1.11759E+03 0.00 -1.17479E+02 0.00 1.30349E+03 0.00 -1.48095E+02 0.00 223 1.25472E+02 0.00 6.60233E+02 -6.86200E+02 0.00 -1.00070E+02 0.00 6.34267E+02 0.00 1.50874E+02 0.00 224 7.81438E+01 0.00 4.93214E+02 -5.15140E+02 0.00 -5.62183E+01 0.00 4.71288E+02 0.00 1.00070E+02 0.00 225 4.67109E+01 0.00 3.95525E+02 -4.06458E+02 0.00 -3.72041E+01 0.00 3.84592E+02 0.00 5.62183E+01 0.00 226 3.29805E+01 0.00 3.16874E+02 -3.21289E+02 0.00 -2.87573E+01 0.00 3.12459E+02 0.00 3.72041E+01 0.00 227 2.52271E+01 0.00 2.37020E+02 -2.40712E+02 0.00 -2.16963E+01 0.00 2.33329E+02 0.00 2.87573E+01 0.00 228 1.87832E+01 0.00 1.64464E+02 -1.67510E+02 0.00 -1.58696E+01 0.00 1.61418E+02 0.00 2.16963E+01 0.00 229 1.30535E+01 0.00 9.77175E+01 -1.00661E+02 0.00 -1.02373E+01 0.00 9.47739E+01 0.00 1.58696E+01 0.00 230 6.80273E+00 0.00 3.66843E+01 -4.05752E+01 0.00 -2.33691E+00 0.00 3.32925E+01 0.00 1.02373E+01 0.00 308 -2.78354E+01 0.00 3.96877E+02 -3.81860E+02 0.00 1.46489E+01 0.00 4.12075E+02 0.00 -4.10220E+01 0.00 309 -1.11238E+01 0.00 4.32521E+02 -4.28575E+02 0.00 7.59863E+00 0.00 4.36564E+02 0.00 -1.46489E+01 0.00 310 -6.67090E+00 0.00 4.70609E+02 -4.69582E+02 0.00 5.74292E+00 0.00 4.71683E+02 0.00 -7.59863E+00 0.00 311 -5.62695E+00 0.00 5.06552E+02 -5.06425E+02 0.00 5.51099E+00 0.00 5.06711E+02 0.00 -5.74292E+00 0.00 312 -5.77014E+00 0.00 5.38838E+02 -5.39119E+02 0.00 6.02905E+00 0.00 5.38587E+02 0.00 -5.51099E+00 0.00 313 -6.84094E+00 0.00 5.66494E+02 -5.67366E+02 0.00 7.65308E+00 0.00 5.65663E+02 0.00 -6.02905E+00 0.00 314 -1.01766E+01 0.00 5.88240E+02 -5.90921E+02 0.00 1.27004E+01 0.00 5.85636E+02 0.00 -7.65308E+00 0.00 315 -2.15124E+01 0.00 6.01087E+02 -6.10350E+02 0.00 3.03242E+01 0.00 5.92031E+02 0.00 -1.27004E+01 0.00 316 -6.43272E+01 0.00 5.96374E+02 -6.31730E+02 0.00 9.83303E+01 0.00 5.61713E+02 0.00 -3.03242E+01 0.00 317 -1.94155E+02 0.00 5.66474E+02 -6.91186E+02 0.00 2.89979E+02 0.00 4.54810E+02 0.00 -9.83303E+01 0.00 320 -3.80605E+01 0.00 1.47148E+03 -1.30349E+03 0.00 -2.41912E+02 0.00 1.63946E+03 0.00 -3.18033E+02 0.00 402 -2.06753E+01 0.00 5.47167E+01 -5.79761E+01 0.00 -7.56836E-02 0.00 5.87983E+01 0.00 7.92285E+00 0.00 403 -3.90615E+01 0.00 1.20491E+02 -1.22437E+02 0.00 -8.52539E+00 0.00 1.30560E+02 0.00 7.56836E-02 0.00 404 -4.92407E+01 0.00 1.86112E+02 -1.86510E+02 0.00 1.47876E+01 0.00 1.97854E+02 0.00 8.52539E+00 0.00 405 -3.82092E+01 0.00 2.29958E+02 -2.20284E+02 0.00 4.73467E+01 0.00 2.44427E+02 0.00 -1.47876E+01 0.00 406 -2.46235E+01 0.00 2.83948E+02 -2.81984E+02 0.00 2.53955E+01 0.00 2.83170E+02 0.00 -4.73467E+01 0.00 407 -7.13550E+01 0.00 3.31309E+02 -3.85415E+02 0.00 5.17061E+01 0.00 2.79878E+02 0.00 -2.53955E+01 0.00 409 -1.02703E+02 0.00 3.05472E+02 -3.12919E+02 0.00 -1.57163E+01 0.00 3.23083E+02 0.00 -5.17061E+01 0.00 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.320268E+06 (CYCLIC FREQUENCY = 9.006937E+01 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R ------------------- Z S S S 422 4.079888E+02 9.128671E+02 8.552128E+02 4.079888E+02 -9.413685E+02 523 2.816106E+02 4.351204E+02 3.791123E+02 2.816104E+02 -5.093655E+02 624 2.280986E+02 2.987773E+02 2.622090E+02 2.280981E+02 -3.734805E+02 725 1.868135E+02 2.204575E+02 1.849541E+02 1.868135E+02 -2.851484E+02 825 1.468530E+02 1.374836E+02 1.015195E+02 6.986426E+01 -1.979819E+02 826 1.160088E+02 7.579492E+01 -6.986426E+01 1.160093E+02 -7.579590E+01 926 8.211719E+01 7.579492E+01 7.579590E+01 8.381836E+01 -1.078867E+02 930 2.075635E+01 -1.824219E+00 -1.824219E+00 1.929688E+01 -2.081787E+01 1026 3.745801E+01 4.202979E+01 4.202930E+01 -4.427246E+00 -5.564648E+01 1027 1.977051E+01 2.507812E+01 4.427246E+00 1.977051E+01 -3.162500E+01 1029 9.958496E+00 7.404785E+00 1.200342E+01 -5.234375E-01 -9.958984E+00 1030 8.955078E+00 8.207520E+00 8.207520E+00 1.506836E+00 -1.200342E+01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.320268E+06 (CYCLIC FREQUENCY = 9.006937E+01 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R --------------- Z S S S S 423 3.191998E+02 5.365114E+02 6.312192E+02 2.304109E+02 -3.791123E+02 -4.079888E+02 424 1.842744E+02 4.277000E+02 4.718303E+02 1.381377E+02 -3.835688E+02 -2.304109E+02 425 1.184045E+02 3.643848E+02 3.860913E+02 9.867139E+01 -3.426787E+02 -1.381377E+02 426 8.661279E+01 3.001335E+02 3.121919E+02 7.455420E+01 -2.880752E+02 -9.867139E+01 427 6.507935E+01 2.227964E+02 2.322720E+02 5.560449E+01 -2.133208E+02 -7.455420E+01 428 4.855640E+01 1.535454E+02 1.605928E+02 4.150879E+01 -1.464980E+02 -5.560449E+01 429 3.659521E+01 8.923462E+01 9.414746E+01 3.168262E+01 -8.432178E+01 -4.150879E+01 430 2.911499E+01 2.977979E+01 3.257031E+01 2.586230E+01 -2.698975E+01 -3.168262E+01 524 2.414225E+02 3.421581E+02 3.835688E+02 2.012344E+02 -2.622090E+02 -2.816104E+02 525 1.746199E+02 3.134031E+02 3.426787E+02 1.480059E+02 -2.841265E+02 -2.012344E+02 526 1.276003E+02 2.676692E+02 2.880752E+02 1.071948E+02 -2.472637E+02 -1.480059E+02 527 9.271509E+01 1.988416E+02 2.133208E+02 7.823486E+01 -1.843618E+02 -1.071948E+02 528 6.814453E+01 1.364072E+02 1.464980E+02 5.805371E+01 -1.263169E+02 -7.823486E+01 529 5.169556E+01 7.796289E+01 8.432178E+01 4.533643E+01 -7.160352E+01 -5.805371E+01 530 4.309912E+01 2.449707E+01 2.698975E+01 4.029443E+01 -2.200488E+01 -4.533643E+01 625 2.024419E+02 2.536597E+02 2.841265E+02 1.767852E+02 -1.849541E+02 -2.280981E+02 626 1.520654E+02 2.225442E+02 2.472637E+02 1.273462E+02 -1.978247E+02 -1.767852E+02 627 1.094771E+02 1.664927E+02 1.843618E+02 9.160791E+01 -1.486235E+02 -1.273462E+02 628 7.919067E+01 1.138997E+02 1.263169E+02 6.677393E+01 -1.014829E+02 -9.160791E+01 629 5.900464E+01 6.383472E+01 7.160352E+01 5.123584E+01 -5.606543E+01 -6.677393E+01 630 4.848804E+01 1.886475E+01 2.200488E+01 4.530029E+01 -1.572510E+01 -5.123584E+01 726 1.611848E+02 1.692832E+02 1.978247E+02 1.355552E+02 -1.015195E+02 -1.868135E+02 727 1.144587E+02 1.275273E+02 1.486235E+02 9.336230E+01 -1.064307E+02 -1.355552E+02 728 7.951221E+01 8.763208E+01 1.014829E+02 6.566064E+01 -7.378125E+01 -9.336230E+01 729 5.674536E+01 4.714990E+01 5.606543E+01 4.783008E+01 -3.823486E+01 -6.566064E+01 730 4.435938E+01 1.148291E+01 1.572510E+01 3.968018E+01 -7.239746E+00 -4.783008E+01 827 9.789087E+01 8.831299E+01 1.064307E+02 7.977295E+01 -7.019482E+01 -1.160093E+02 828 6.691333E+01 6.092188E+01 7.378125E+01 5.405371E+01 -4.806201E+01 -7.977295E+01 829 4.534814E+01 2.952954E+01 3.823486E+01 3.664307E+01 -2.082324E+01 -5.405371E+01 830 3.383081E+01 2.708008E+00 7.239746E+00 2.888428E+01 1.824219E+00 -3.664307E+01 927 6.864258E+01 5.611206E+01 7.019482E+01 5.471875E+01 -4.202930E+01 -8.381836E+01 928 4.427393E+01 3.761694E+01 4.806201E+01 3.382910E+01 -2.717139E+01 -5.471875E+01 929 2.766455E+01 1.451562E+01 2.082324E+01 2.081787E+01 -8.207520E+00 -3.382910E+01 1028 1.486426E+01 2.304663E+01 2.717139E+01 9.958984E+00 -1.892139E+01 -1.977051E+01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.157086E+07 (CYCLIC FREQUENCY = 1.994752E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 2 - S T R E S S ) ELEMENT CENTER EDGE ID. R ----------------------- Z S ---------------------- PHI 101 0.0 1.327759E+00 -1.327881E+00 0.0 102 0.0 1.463745E+01 -1.426257E+01 0.0 103 0.0 6.346791E+01 -6.250214E+01 0.0 104 0.0 1.725924E+02 -1.699661E+02 0.0 107 0.0 3.022704E+02 -2.970296E+02 0.0 108 0.0 3.904536E+02 -3.904536E+02 0.0 109 0.0 3.993835E+02 -3.993835E+02 0.0 110 0.0 3.705630E+02 -3.705630E+02 0.0 111 0.0 3.181542E+02 -3.181541E+02 0.0 112 0.0 2.490677E+02 -2.490677E+02 0.0 113 0.0 1.675864E+02 -1.675867E+02 0.0 114 0.0 7.684131E+01 -7.684106E+01 0.0 115 0.0 -2.154858E+01 2.154834E+01 0.0 116 0.0 -1.296694E+02 1.296694E+02 0.0 117 0.0 -2.438076E+02 2.438076E+02 0.0 119 0.0 -3.593740E+02 3.593740E+02 0.0 120 0.0 -4.790679E+02 4.790679E+02 0.0 121 0.0 -4.360765E+02 4.360765E+02 0.0 123 0.0 -3.573484E+02 3.573484E+02 0.0 124 0.0 -2.941024E+02 2.941023E+02 0.0 125 0.0 -2.511321E+02 2.511321E+02 0.0 126 0.0 -2.115649E+02 2.115649E+02 0.0 127 0.0 -1.669363E+02 1.669363E+02 0.0 128 0.0 -1.206354E+02 1.206353E+02 0.0 129 0.0 -7.422296E+01 7.422296E+01 0.0 130 0.0 -3.109143E+01 3.024591E+01 0.0 131 0.0 -1.180188E+01 1.180188E+01 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.157086E+07 (CYCLIC FREQUENCY = 1.994752E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R --------- PHI --------- Z S --------- PHI S --------- PHI S --------- PHI 200 -1.46056E+01 0.0 1.80080E+01 -1.42626E+01 0.0 2.29914E+01 0.0 -1.46056E+01 0.0 201 -3.08325E+01 0.0 8.02226E+00 -2.29914E+01 0.0 3.08325E+01 0.0 -7.55432E+00 0.0 202 -3.08325E+01 0.0 6.89089E+01 -6.25021E+01 0.0 7.40769E+01 0.0 -3.08325E+01 0.0 203 -6.94219E+01 0.0 4.16694E+01 -7.40769E+01 0.0 6.94219E+01 0.0 2.89707E+01 0.0 204 -6.94219E+01 0.0 1.84843E+02 -1.69966E+02 0.0 1.91045E+02 0.0 -6.94219E+01 0.0 205 -1.02475E+02 0.0 1.61511E+02 -1.91045E+02 0.0 1.02475E+02 0.0 7.28538E+01 0.0 218 5.77114E+01 0.0 -3.60299E+02 2.28696E+02 0.0 -3.34045E+02 0.0 5.77117E+01 0.0 219 5.66870E+01 0.0 -3.59374E+02 3.59374E+02 0.0 -5.66868E+01 0.0 -2.28696E+02 0.0 221 -5.83862E+01 0.0 -4.36076E+02 4.36077E+02 0.0 -3.47255E+02 0.0 -5.83862E+01 0.0 222 -8.04459E+01 0.0 -4.48945E+02 3.47255E+02 0.0 8.04459E+01 0.0 -4.48606E+02 0.0 300 -8.97781E+00 0.0 -3.74565E+00 7.55432E+00 0.0 1.86346E+00 0.0 -9.20712E+00 0.0 301 -3.25666E+01 0.0 -1.94714E+01 -1.86346E+00 0.0 3.79140E+01 0.0 -2.45604E+01 0.0 302 -6.55427E+01 0.0 4.09847E+01 -2.89707E+01 0.0 7.16961E+01 0.0 -3.79140E+01 0.0 303 -2.14910E+02 0.0 -6.76460E+01 -7.16961E+01 0.0 2.14910E+02 0.0 -2.04132E+02 0.0 304 -2.14910E+02 0.0 2.40877E+02 -7.28538E+01 0.0 3.09458E+02 0.0 -2.14910E+02 0.0 305 -1.51900E+02 0.0 2.70529E+02 -3.09458E+02 0.0 5.85562E+01 0.0 2.11737E+02 0.0 306 -1.87377E+02 0.0 3.76960E+02 -3.35683E+02 0.0 4.17120E+02 0.0 -5.85562E+01 0.0 307 -6.39906E+01 0.0 4.60741E+02 -4.17120E+02 0.0 6.39906E+01 0.0 3.07999E+02 0.0 318 1.06374E+02 0.0 -3.17280E+02 3.01059E+02 0.0 -2.80697E+02 0.0 1.06374E+02 0.0 319 1.21388E+02 0.0 -3.19218E+02 3.34045E+02 0.0 -1.21388E+02 0.0 -3.01059E+02 0.0 321 -1.17581E+02 0.0 -4.35019E+02 4.48606E+02 0.0 -4.17076E+02 0.0 -1.17581E+02 0.0 401 -4.19043E+00 0.0 4.35269E+01 -4.11484E+01 0.0 -1.73579E+01 0.0 4.14700E+01 0.0 408 -5.25729E+02 0.0 3.89474E+02 -2.11737E+02 0.0 4.88513E+02 0.0 -5.82605E+02 0.0 410 -2.02087E+02 0.0 5.79231E+02 -3.07999E+02 0.0 5.81012E+02 0.0 4.50244E+00 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.157086E+07 (CYCLIC FREQUENCY = 1.994752E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R ------- PHI ------ Z S ------- PHI S ------- PHI S ------- PHI S ------- PHI 207 -8.51024E+01 0.00 3.37995E+02 -2.97030E+02 0.00 6.77294E+01 0.00 3.35683E+02 0.00 -1.02475E+02 0.00 208 -4.74537E+01 0.00 4.12775E+02 -3.90454E+02 0.00 2.71782E+01 0.00 4.35097E+02 0.00 -6.77294E+01 0.00 209 -1.91726E+01 0.00 4.08117E+02 -3.99383E+02 0.00 1.11671E+01 0.00 4.16850E+02 0.00 -2.71782E+01 0.00 210 -8.11273E+00 0.00 3.73895E+02 -3.70563E+02 0.00 5.05823E+00 0.00 3.77228E+02 0.00 -1.11671E+01 0.00 211 -3.79150E+00 0.00 3.19536E+02 -3.18154E+02 0.00 2.52490E+00 0.00 3.20917E+02 0.00 -5.05823E+00 0.00 212 -1.78436E+00 0.00 2.49875E+02 -2.49068E+02 0.00 1.04419E+00 0.00 2.50683E+02 0.00 -2.52490E+00 0.00 213 -1.94580E-01 0.00 1.68513E+02 -1.67586E+02 0.00 -6.54541E-01 0.00 1.69440E+02 0.00 -1.04419E+00 0.00 214 2.33270E+00 0.00 7.86716E+01 -7.68413E+01 0.00 -4.01062E+00 0.00 8.05024E+01 0.00 6.54541E-01 0.00 215 8.04767E+00 0.00 -1.71444E+01 2.15486E+01 0.00 -1.20847E+01 0.00 -1.27405E+01 0.00 4.01062E+00 0.00 216 2.17161E+01 0.00 -1.19162E+02 1.29669E+02 0.00 -3.13474E+01 0.00 -1.08656E+02 0.00 1.20847E+01 0.00 217 4.45294E+01 0.00 -2.25198E+02 2.43808E+02 0.00 -5.77117E+01 0.00 -2.06588E+02 0.00 3.13474E+01 0.00 220 -8.49731E-01 0.00 -5.19344E+02 4.79068E+02 0.00 5.83862E+01 0.00 -5.59619E+02 0.00 5.66868E+01 0.00 223 -6.85443E+01 0.00 -3.45182E+02 3.57348E+02 0.00 5.66427E+01 0.00 -3.33016E+02 0.00 -8.04459E+01 0.00 224 -4.56086E+01 0.00 -2.83068E+02 2.94102E+02 0.00 3.45744E+01 0.00 -2.72034E+02 0.00 -5.66427E+01 0.00 225 -2.97548E+01 0.00 -2.45590E+02 2.51132E+02 0.00 2.49352E+01 0.00 -2.40047E+02 0.00 -3.45744E+01 0.00 226 -2.29329E+01 0.00 -2.09472E+02 2.11565E+02 0.00 2.09306E+01 0.00 -2.07378E+02 0.00 -2.49352E+01 0.00 227 -1.89399E+01 0.00 -1.64855E+02 1.66936E+02 0.00 1.69492E+01 0.00 -1.62774E+02 0.00 -2.09306E+01 0.00 228 -1.51014E+01 0.00 -1.18704E+02 1.20635E+02 0.00 1.32536E+01 0.00 -1.16772E+02 0.00 -1.69492E+01 0.00 229 -1.13004E+01 0.00 -7.21810E+01 7.42230E+01 0.00 9.34723E+00 0.00 -7.01391E+01 0.00 -1.32536E+01 0.00 230 -6.98962E+00 0.00 -2.70905E+01 3.02458E+01 0.00 3.87042E+00 0.00 -2.47624E+01 0.00 -9.34723E+00 0.00 308 -4.28954E+01 0.00 4.59120E+02 -4.35097E+02 0.00 2.18002E+01 0.00 4.83426E+02 0.00 -6.39906E+01 0.00 309 -1.55614E+01 0.00 4.23833E+02 -4.16850E+02 0.00 9.32269E+00 0.00 4.30965E+02 0.00 -2.18002E+01 0.00 310 -7.19427E+00 0.00 3.79586E+02 -3.77228E+02 0.00 5.06555E+00 0.00 3.82001E+02 0.00 -9.32269E+00 0.00 311 -4.13696E+00 0.00 3.21936E+02 -3.20917E+02 0.00 3.20813E+00 0.00 3.22981E+02 0.00 -5.06555E+00 0.00 312 -2.57068E+00 0.00 2.51375E+02 -2.50683E+02 0.00 1.93323E+00 0.00 2.52080E+02 0.00 -3.20813E+00 0.00 313 -1.19757E+00 0.00 1.70230E+02 -1.69440E+02 0.00 4.62158E-01 0.00 1.71022E+02 0.00 -1.93323E+00 0.00 314 8.86414E-01 0.00 8.19352E+01 -8.05024E+01 0.00 -2.23462E+00 0.00 8.33523E+01 0.00 -4.62158E-01 0.00 315 5.86707E+00 0.00 -8.92236E+00 1.27405E+01 0.00 -9.49927E+00 0.00 -5.17065E+00 0.00 2.23462E+00 0.00 316 2.21830E+01 0.00 -9.54672E+01 1.08656E+02 0.00 -3.48668E+01 0.00 -8.25259E+01 0.00 9.49927E+00 0.00 317 7.06201E+01 0.00 -1.60056E+02 2.06588E+02 0.00 -1.06374E+02 0.00 -1.18397E+02 0.00 3.48668E+01 0.00 320 1.90344E+00 0.00 -6.31310E+02 5.59619E+02 0.00 1.17581E+02 0.00 -7.03001E+02 0.00 1.21388E+02 0.00 402 -4.51033E+01 0.00 1.19320E+02 -1.26505E+02 0.00 -5.95703E-02 0.00 1.28156E+02 0.00 1.73579E+01 0.00 403 -8.39414E+01 0.00 2.57751E+02 -2.62245E+02 0.00 -1.76230E+01 0.00 2.79230E+02 0.00 5.95703E-02 0.00 404 -1.02020E+02 0.00 3.86339E+02 -3.86890E+02 0.00 3.02441E+01 0.00 4.10892E+02 0.00 1.76230E+01 0.00 405 -7.56099E+01 0.00 4.57559E+02 -4.36864E+02 0.00 9.26139E+01 0.00 4.87635E+02 0.00 -3.02441E+01 0.00 406 -4.63336E+01 0.00 5.34171E+02 -5.26920E+02 0.00 4.42534E+01 0.00 5.36266E+02 0.00 -9.26139E+01 0.00 407 -1.22879E+02 0.00 5.82479E+02 -6.75062E+02 0.00 8.62364E+01 0.00 4.94494E+02 0.00 -4.42534E+01 0.00 409 -1.71502E+02 0.00 4.69352E+02 -4.88513E+02 0.00 -4.50244E+00 0.00 4.98407E+02 0.00 -8.62364E+01 0.00 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.157086E+07 (CYCLIC FREQUENCY = 1.994752E+02 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R ------------------- Z S S S 422 -2.105217E+02 -4.389711E+02 -4.094694E+02 -2.105217E+02 4.625930E+02 523 -1.679134E+02 -2.452290E+02 -2.120528E+02 -1.679135E+02 2.934135E+02 624 -1.538410E+02 -1.916829E+02 -1.671250E+02 -1.538410E+02 2.448076E+02 725 -1.379289E+02 -1.564026E+02 -1.302850E+02 -1.379289E+02 2.064057E+02 825 -1.138383E+02 -1.037934E+02 -7.598334E+01 -5.540240E+01 1.519611E+02 826 -9.156104E+01 -5.923853E+01 5.540240E+01 -9.156097E+01 5.923853E+01 926 -6.581018E+01 -5.923853E+01 -5.923853E+01 -6.713910E+01 8.576520E+01 930 -1.862476E+01 2.356079E+00 2.356201E+00 -1.764374E+01 1.871259E+01 1026 -3.044531E+01 -3.362122E+01 -3.362103E+01 3.208862E+00 4.488477E+01 1027 -1.640186E+01 -2.016296E+01 -3.208862E+00 -1.640198E+01 2.568066E+01 1029 -8.654663E+00 -5.573730E+00 -9.758911E+00 -2.576904E-01 8.654907E+00 1030 -8.175293E+00 -5.957214E+00 -5.957214E+00 -2.370972E+00 9.758911E+00 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.157086E+07 (CYCLIC FREQUENCY = 1.994752E+02 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R --------------- Z S S S S 423 -1.702519E+02 -2.885989E+02 -3.315532E+02 -1.299824E+02 2.120528E+02 2.105217E+02 424 -1.079242E+02 -2.514202E+02 -2.725193E+02 -8.586600E+01 2.303210E+02 1.299824E+02 425 -7.630079E+01 -2.307511E+02 -2.412728E+02 -6.673558E+01 2.202294E+02 8.586600E+01 426 -6.067445E+01 -2.013486E+02 -2.074097E+02 -5.461331E+01 1.952874E+02 6.673558E+01 427 -4.910719E+01 -1.566569E+02 -1.621631E+02 -4.360101E+01 1.511508E+02 5.461331E+01 428 -3.909802E+01 -1.117398E+02 -1.162429E+02 -3.459491E+01 1.072368E+02 4.360101E+01 429 -3.123807E+01 -6.635052E+01 -6.970740E+01 -2.788104E+01 6.299359E+01 3.459491E+01 430 -2.605206E+01 -2.225784E+01 -2.424493E+01 -2.371106E+01 2.027075E+01 2.788104E+01 524 -1.488037E+02 -2.106297E+02 -2.303210E+02 -1.296939E+02 1.671250E+02 1.679135E+02 525 -1.159669E+02 -2.051296E+02 -2.202294E+02 -1.022398E+02 1.900299E+02 1.296939E+02 526 -9.085748E+01 -1.839051E+02 -1.952874E+02 -7.947513E+01 1.725228E+02 1.022398E+02 527 -7.061597E+01 -1.422916E+02 -1.511508E+02 -6.175684E+01 1.334324E+02 7.947513E+01 528 -5.511264E+01 -1.005927E+02 -1.072368E+02 -4.846857E+01 9.394855E+01 6.175684E+01 529 -4.404141E+01 -5.856644E+01 -6.299359E+01 -3.961438E+01 5.413928E+01 4.846857E+01 530 -3.799576E+01 -1.846780E+01 -2.027075E+01 -3.594818E+01 1.666486E+01 3.961438E+01 625 -1.398216E+02 -1.733819E+02 -1.900299E+02 -1.258022E+02 1.302850E+02 1.538410E+02 626 -1.109934E+02 -1.577141E+02 -1.725228E+02 -9.618469E+01 1.429053E+02 1.258022E+02 627 -8.461838E+01 -1.218662E+02 -1.334324E+02 -7.305212E+01 1.102999E+02 9.618469E+01 628 -6.452237E+01 -8.541876E+01 -9.394855E+01 -5.599255E+01 7.688910E+01 7.305212E+01 629 -5.037601E+01 -4.852261E+01 -5.413928E+01 -4.475922E+01 4.290594E+01 5.599255E+01 630 -4.266385E+01 -1.427014E+01 -1.666486E+01 -4.023376E+01 1.187549E+01 4.475922E+01 726 -1.211104E+02 -1.241757E+02 -1.429053E+02 -1.042921E+02 7.598334E+01 1.379289E+02 727 -8.978351E+01 -9.579135E+01 -1.102999E+02 -7.527496E+01 8.128278E+01 1.042921E+02 728 -6.532574E+01 -6.693976E+01 -7.688910E+01 -5.537640E+01 5.699054E+01 7.527496E+01 729 -4.865817E+01 -3.618756E+01 -4.290594E+01 -4.193976E+01 2.946924E+01 5.537640E+01 730 -3.915186E+01 -8.467957E+00 -1.187549E+01 -3.544800E+01 5.060425E+00 4.193976E+01 827 -7.837976E+01 -6.810168E+01 -8.128278E+01 -6.519861E+01 5.492041E+01 9.156097E+01 828 -5.556555E+01 -4.735751E+01 -5.699054E+01 -4.593256E+01 3.772461E+01 6.519861E+01 829 -3.915842E+01 -2.269504E+01 -2.946924E+01 -3.238416E+01 1.592072E+01 4.593256E+01 830 -3.008328E+01 -1.352234E+00 -5.060425E+00 -2.618335E+01 -2.356201E+00 3.238416E+01 927 -5.562177E+01 -4.427075E+01 -5.492041E+01 -4.509308E+01 3.362103E+01 6.713910E+01 928 -3.702963E+01 -2.966110E+01 -3.772461E+01 -2.896631E+01 2.159772E+01 4.509308E+01 929 -2.409769E+01 -1.093900E+01 -1.592072E+01 -1.871259E+01 5.957214E+00 2.896631E+01 1028 -1.252838E+01 -1.834036E+01 -2.159772E+01 -8.654907E+00 1.508301E+01 1.640198E+01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.380404E+07 (CYCLIC FREQUENCY = 3.104150E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 2 - S T R E S S ) ELEMENT CENTER EDGE ID. R ----------------------- Z S ---------------------- PHI 101 0.0 -2.277100E+01 2.277051E+01 0.0 102 0.0 -3.356421E+01 3.270435E+01 0.0 103 0.0 -6.170679E+01 6.076794E+01 0.0 104 0.0 -4.161279E+01 4.097974E+01 0.0 107 0.0 -2.869226E+01 2.819470E+01 0.0 108 0.0 -7.823486E+01 7.823499E+01 0.0 109 0.0 -1.911619E+02 1.911617E+02 0.0 110 0.0 -3.058287E+02 3.058287E+02 0.0 111 0.0 -3.976672E+02 3.976671E+02 0.0 112 0.0 -4.526637E+02 4.526637E+02 0.0 113 0.0 -4.633937E+02 4.633937E+02 0.0 114 0.0 -4.280098E+02 4.280097E+02 0.0 115 0.0 -3.499510E+02 3.499511E+02 0.0 116 0.0 -2.377938E+02 2.377938E+02 0.0 117 0.0 -1.209447E+02 1.209447E+02 0.0 119 0.0 -1.637891E+01 1.637891E+01 0.0 120 0.0 9.101953E+01 -9.101953E+01 0.0 121 0.0 1.762783E+02 -1.762783E+02 0.0 123 0.0 2.323147E+02 -2.323147E+02 0.0 124 0.0 2.644660E+02 -2.644660E+02 0.0 125 0.0 2.817625E+02 -2.817625E+02 0.0 126 0.0 2.767158E+02 -2.767158E+02 0.0 127 0.0 2.439951E+02 -2.439951E+02 0.0 128 0.0 1.897683E+02 -1.897683E+02 0.0 129 0.0 1.214194E+02 -1.214194E+02 0.0 130 0.0 5.137772E+01 -4.998056E+01 0.0 131 0.0 1.534467E+01 -1.534467E+01 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.380404E+07 (CYCLIC FREQUENCY = 3.104150E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R --------- PHI --------- Z S --------- PHI S --------- PHI S --------- PHI 200 -2.74778E+01 0.0 -2.72231E+01 3.27046E+01 0.0 -8.78345E+00 0.0 -2.74778E+01 0.0 201 -4.98394E+01 0.0 -4.09844E+01 8.78345E+00 0.0 4.98396E+01 0.0 -5.97144E+01 0.0 202 -4.98394E+01 0.0 -5.29116E+01 6.07678E+01 0.0 -1.44855E+01 0.0 -4.98396E+01 0.0 203 -9.34609E+01 0.0 -8.37035E+01 1.44855E+01 0.0 9.34609E+01 0.0 -9.86719E+01 0.0 204 -9.34609E+01 0.0 -2.51197E+01 4.09797E+01 0.0 3.33755E+01 0.0 -9.34609E+01 0.0 205 -1.13137E+02 0.0 -3.90085E+01 -3.33755E+01 0.0 1.13137E+02 0.0 -9.71127E+01 0.0 218 9.57349E+00 0.0 -2.04264E+01 8.74146E+00 0.0 -2.23540E+01 0.0 9.57349E+00 0.0 219 5.09253E+00 0.0 -1.63789E+01 1.63789E+01 0.0 -5.09229E+00 0.0 -8.74146E+00 0.0 221 2.99080E+01 0.0 1.76278E+02 -1.76278E+02 0.0 1.37196E+02 0.0 2.99080E+01 0.0 222 5.72463E+01 0.0 1.92226E+02 -1.37196E+02 0.0 -5.72462E+01 0.0 2.00087E+02 0.0 300 -1.49492E+01 0.0 -5.97715E+01 5.97144E+01 0.0 -4.14409E+01 0.0 -1.88918E+01 0.0 301 -8.95962E+01 0.0 -1.09536E+02 4.14409E+01 0.0 1.31108E+02 0.0 -1.22776E+02 0.0 302 -1.04776E+02 0.0 -8.17065E+01 9.86719E+01 0.0 -4.45288E+00 0.0 -1.31108E+02 0.0 303 -2.70880E+02 0.0 -2.02509E+02 4.45288E+00 0.0 2.70880E+02 0.0 -3.36521E+02 0.0 304 -2.70880E+02 0.0 7.23392E+01 9.71127E+01 0.0 1.80794E+02 0.0 -2.70880E+02 0.0 305 -1.65101E+02 0.0 1.22117E+02 -1.80794E+02 0.0 1.18011E+02 0.0 6.63098E+01 0.0 306 -1.43228E+02 0.0 5.64989E+01 -2.89637E+01 0.0 1.27200E+02 0.0 -1.18011E+02 0.0 307 -4.42001E+01 0.0 1.23740E+02 -1.27200E+02 0.0 4.41998E+01 0.0 6.51274E+01 0.0 318 1.44911E+01 0.0 -2.23712E+01 2.03328E+01 0.0 -2.52643E+01 0.0 1.44911E+01 0.0 319 7.88086E+00 0.0 -2.15181E+01 2.23540E+01 0.0 -7.88086E+00 0.0 -2.03328E+01 0.0 321 5.50366E+01 0.0 1.93054E+02 -2.00087E+02 0.0 1.84737E+02 0.0 5.50361E+01 0.0 401 -6.68018E+00 0.0 6.69557E+01 -6.33970E+01 0.0 -2.64954E+01 0.0 6.37389E+01 0.0 408 -5.19291E+02 0.0 2.34814E+02 -6.63098E+01 0.0 3.35790E+02 0.0 -5.50828E+02 0.0 410 -1.09963E+02 0.0 1.80166E+02 -6.51274E+01 0.0 1.81141E+02 0.0 -4.29600E+01 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.380404E+07 (CYCLIC FREQUENCY = 3.104150E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R ------- PHI ------ Z S ------- PHI S ------- PHI S ------- PHI S ------- PHI 207 -8.74465E+01 0.00 1.68906E+01 2.81948E+01 0.00 6.17562E+01 0.00 2.89637E+01 0.00 -1.13137E+02 0.00 208 -4.20865E+01 0.00 -5.65803E+01 7.82349E+01 0.00 2.24169E+01 0.00 -3.49257E+01 0.00 -6.17562E+01 0.00 209 -1.47029E+01 0.00 -1.82747E+02 1.91162E+02 0.00 6.98901E+00 0.00 -1.74332E+02 0.00 -2.24169E+01 0.00 210 -3.99933E+00 0.00 -3.02567E+02 3.05829E+02 0.00 1.00964E+00 0.00 -2.99306E+02 0.00 -6.98901E+00 0.00 211 1.74683E-01 0.00 -3.96375E+02 3.97667E+02 0.00 -1.35904E+00 0.00 -3.95083E+02 0.00 -1.00964E+00 0.00 212 1.82715E+00 0.00 -4.52153E+02 4.52664E+02 0.00 -2.29527E+00 0.00 -4.51642E+02 0.00 1.35904E+00 0.00 213 2.47245E+00 0.00 -4.63200E+02 4.63394E+02 0.00 -2.64963E+00 0.00 -4.63007E+02 0.00 2.29527E+00 0.00 214 2.78163E+00 0.00 -4.27866E+02 4.28010E+02 0.00 -2.91370E+00 0.00 -4.27722E+02 0.00 2.64963E+00 0.00 215 3.32132E+00 0.00 -3.49506E+02 3.49951E+02 0.00 -3.72900E+00 0.00 -3.49062E+02 0.00 2.91370E+00 0.00 216 4.98663E+00 0.00 -2.36422E+02 2.37794E+02 0.00 -6.24414E+00 0.00 -2.35050E+02 0.00 3.72900E+00 0.00 217 7.90887E+00 0.00 -1.18595E+02 1.20945E+02 0.00 -9.57349E+00 0.00 -1.16245E+02 0.00 6.24414E+00 0.00 220 1.75002E+01 0.00 9.97048E+01 -9.10195E+01 0.00 -2.99080E+01 0.00 1.08390E+02 0.00 5.09229E+00 0.00 223 5.42755E+01 0.00 2.29278E+02 -2.32315E+02 0.00 -5.13046E+01 0.00 2.26241E+02 0.00 5.72462E+01 0.00 224 4.64620E+01 0.00 2.59623E+02 -2.64466E+02 0.00 -4.16194E+01 0.00 2.54781E+02 0.00 5.13046E+01 0.00 225 3.97969E+01 0.00 2.79667E+02 -2.81763E+02 0.00 -3.79745E+01 0.00 2.77571E+02 0.00 4.16194E+01 0.00 226 3.81691E+01 0.00 2.76919E+02 -2.76716E+02 0.00 -3.83638E+01 0.00 2.77123E+02 0.00 3.79745E+01 0.00 227 3.72326E+01 0.00 2.42813E+02 -2.43995E+02 0.00 -3.61015E+01 0.00 2.41630E+02 0.00 3.83638E+01 0.00 228 3.42516E+01 0.00 1.87834E+02 -1.89768E+02 0.00 -3.24018E+01 0.00 1.85900E+02 0.00 3.61015E+01 0.00 229 2.98316E+01 0.00 1.18732E+02 -1.21419E+02 0.00 -2.72615E+01 0.00 1.16045E+02 0.00 3.24018E+01 0.00 230 2.48133E+01 0.00 4.30433E+01 -4.99806E+01 0.00 -2.11534E+01 0.00 4.06257E+01 0.00 2.72615E+01 0.00 308 -2.87470E+01 0.00 -1.73286E+01 3.49257E+01 0.00 1.32942E+01 0.00 4.66187E-01 0.00 -4.41998E+01 0.00 309 -7.89679E+00 0.00 -1.68290E+02 1.74332E+02 0.00 2.49951E+00 0.00 -1.62148E+02 0.00 -1.32942E+01 0.00 310 -4.13696E-01 0.00 -2.96995E+02 2.99306E+02 0.00 -1.67206E+00 0.00 -2.94660E+02 0.00 -2.49951E+00 0.00 311 2.55972E+00 0.00 -3.94110E+02 3.95083E+02 0.00 -3.44730E+00 0.00 -3.93140E+02 0.00 1.67206E+00 0.00 312 3.80280E+00 0.00 -4.51257E+02 4.51642E+02 0.00 -4.15830E+00 0.00 -4.50885E+02 0.00 3.44730E+00 0.00 313 4.21585E+00 0.00 -4.62945E+02 4.63007E+02 0.00 -4.27341E+00 0.00 -4.62902E+02 0.00 4.15830E+00 0.00 314 4.19168E+00 0.00 -4.27808E+02 4.27722E+02 0.00 -4.10992E+00 0.00 -4.27915E+02 0.00 4.27341E+00 0.00 315 4.23083E+00 0.00 -3.48935E+02 3.49062E+02 0.00 -4.35168E+00 0.00 -3.48833E+02 0.00 4.10992E+00 0.00 316 5.90863E+00 0.00 -2.33431E+02 2.35050E+02 0.00 -7.46545E+00 0.00 -2.31865E+02 0.00 4.35168E+00 0.00 317 1.09783E+01 0.00 -1.11673E+02 1.16245E+02 0.00 -1.44911E+01 0.00 -1.07618E+02 0.00 7.46545E+00 0.00 320 3.14587E+01 0.00 1.22537E+02 -1.08390E+02 0.00 -5.50361E+01 0.00 1.36684E+02 0.00 7.88086E+00 0.00 402 -6.83236E+01 0.00 1.80657E+02 -1.91739E+02 0.00 1.88232E-01 0.00 1.93861E+02 0.00 2.64954E+01 0.00 403 -1.23765E+02 0.00 3.76935E+02 -3.84381E+02 0.00 -2.41504E+01 0.00 4.08189E+02 0.00 -1.88232E-01 0.00 404 -1.40679E+02 0.00 5.34354E+02 -5.34467E+02 0.00 4.07827E+01 0.00 5.68757E+02 0.00 2.41504E+01 0.00 405 -9.55060E+01 0.00 5.82764E+02 -5.52896E+02 0.00 1.14252E+02 0.00 6.24290E+02 0.00 -4.07827E+01 0.00 406 -5.31199E+01 0.00 6.05045E+02 -5.88008E+02 0.00 4.20497E+01 0.00 6.16190E+02 0.00 -1.14252E+02 0.00 407 -1.12782E+02 0.00 5.63646E+02 -6.46991E+02 0.00 7.21660E+01 0.00 4.84492E+02 0.00 -4.20497E+01 0.00 409 -1.43682E+02 0.00 3.05349E+02 -3.35790E+02 0.00 4.29600E+01 0.00 3.29034E+02 0.00 -7.21660E+01 0.00 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.380404E+07 (CYCLIC FREQUENCY = 3.104150E+02 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R ------------------- Z S S S 422 1.354073E+02 2.011088E+02 1.827604E+02 1.354073E+02 -2.388871E+02 523 1.786855E+02 2.163902E+02 1.817738E+02 1.786855E+02 -2.799409E+02 624 2.250744E+02 2.449678E+02 2.094202E+02 2.250744E+02 -3.325846E+02 725 2.461845E+02 2.524219E+02 2.062058E+02 2.461845E+02 -3.510785E+02 825 2.243944E+02 1.902898E+02 1.358273E+02 1.156044E+02 -2.917700E+02 826 1.878044E+02 1.171100E+02 -1.156044E+02 1.878045E+02 -1.171099E+02 926 1.384341E+02 1.171100E+02 1.171099E+02 1.410593E+02 -1.769355E+02 930 5.095538E+01 -1.077551E+01 -1.077551E+01 5.024933E+01 -5.139221E+01 1026 6.565613E+01 6.899323E+01 6.899323E+01 -4.384521E+00 -9.455884E+01 1027 3.708020E+01 4.160809E+01 4.384521E+00 3.708020E+01 -5.462378E+01 1029 2.206018E+01 8.603088E+00 2.049890E+01 5.290405E+00 -2.206018E+01 1030 2.324097E+01 7.658569E+00 7.658569E+00 1.274817E+01 -2.049890E+01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.380404E+07 (CYCLIC FREQUENCY = 3.104150E+02 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R --------------- Z S S S S 423 1.267229E+02 2.164158E+02 2.256793E+02 1.180385E+02 -1.817738E+02 -1.354073E+02 424 1.119210E+02 2.500401E+02 2.558916E+02 1.058036E+02 -2.441887E+02 -1.180385E+02 425 1.041732E+02 2.784418E+02 2.802351E+02 1.025429E+02 -2.766484E+02 -1.058036E+02 426 1.015715E+02 2.770245E+02 2.779960E+02 1.006001E+02 -2.760530E+02 -1.025429E+02 427 9.673192E+01 2.373622E+02 2.412304E+02 9.286382E+01 -2.334941E+02 -1.006001E+02 428 8.815494E+01 1.806418E+02 1.853507E+02 8.344608E+01 -1.759329E+02 -9.286382E+01 429 7.913779E+01 1.111814E+02 1.154897E+02 7.482944E+01 -1.068731E+02 -8.344608E+01 430 7.225868E+01 3.711859E+01 3.991150E+01 6.882645E+01 -3.432568E+01 -7.482944E+01 524 1.755082E+02 2.409147E+02 2.441887E+02 1.723309E+02 -2.094202E+02 -1.786855E+02 525 1.672037E+02 2.710085E+02 2.766484E+02 1.620765E+02 -2.653686E+02 -1.723309E+02 526 1.552088E+02 2.691853E+02 2.760530E+02 1.483411E+02 -2.623176E+02 -1.620765E+02 527 1.401759E+02 2.253289E+02 2.334941E+02 1.320108E+02 -2.171638E+02 -1.483411E+02 528 1.241414E+02 1.680636E+02 1.759329E+02 1.162720E+02 -1.601942E+02 -1.320108E+02 529 1.100947E+02 1.006958E+02 1.068731E+02 1.039173E+02 -9.451840E+01 -1.162720E+02 530 1.014050E+02 3.152707E+01 3.432568E+01 9.815073E+01 -2.872845E+01 -1.039173E+02 625 2.175104E+02 2.563863E+02 2.653686E+02 2.099464E+02 -2.062058E+02 -2.250744E+02 626 1.970807E+02 2.494520E+02 2.623176E+02 1.842149E+02 -2.365862E+02 -2.099464E+02 627 1.709271E+02 2.038760E+02 2.171638E+02 1.576393E+02 -1.905882E+02 -1.842149E+02 628 1.459692E+02 1.485241E+02 1.601942E+02 1.342991E+02 -1.368540E+02 -1.576393E+02 629 1.254311E+02 8.565033E+01 9.451840E+01 1.165630E+02 -7.678229E+01 -1.342991E+02 630 1.126873E+02 2.429916E+01 2.872845E+01 1.082315E+02 -1.986987E+01 -1.165630E+02 726 2.255124E+02 2.135650E+02 2.365862E+02 2.048404E+02 -1.358273E+02 -2.461845E+02 727 1.845834E+02 1.703312E+02 1.905882E+02 1.643265E+02 -1.500743E+02 -2.048404E+02 728 1.488144E+02 1.213420E+02 1.368540E+02 1.333024E+02 -1.058299E+02 -1.643265E+02 729 1.214073E+02 6.488712E+01 7.678229E+01 1.095121E+02 -5.299207E+01 -1.333024E+02 730 1.036147E+02 1.266193E+01 1.986987E+01 9.616962E+01 -5.453979E+00 -1.095121E+02 827 1.663923E+02 1.286622E+02 1.500743E+02 1.449801E+02 -1.072500E+02 -1.878045E+02 828 1.282754E+02 8.912509E+01 1.058299E+02 1.115706E+02 -7.242029E+01 -1.449801E+02 829 9.864743E+01 4.006888E+01 5.299207E+01 8.572424E+01 -2.714569E+01 -1.115706E+02 830 8.068942E+01 -2.660828E+00 5.453979E+00 7.314807E+01 1.077551E+01 -8.572424E+01 927 1.201819E+02 8.812155E+01 1.072500E+02 1.012709E+02 -6.899323E+01 -1.410593E+02 928 8.627563E+01 5.742508E+01 7.242029E+01 7.128046E+01 -4.242993E+01 -1.012709E+02 929 6.175839E+01 1.740216E+01 2.714569E+01 5.139221E+01 -7.658569E+00 -7.128046E+01 1028 2.957025E+01 3.611472E+01 4.242993E+01 2.206018E+01 -2.979950E+01 -3.708020E+01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.594316E+07 (CYCLIC FREQUENCY = 3.879975E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 2 - S T R E S S ) ELEMENT CENTER EDGE ID. R ----------------------- Z S ---------------------- PHI 101 0.0 -2.011035E+01 2.011035E+01 0.0 102 0.0 -3.605273E+01 3.512939E+01 0.0 103 0.0 -8.418787E+01 8.290686E+01 0.0 104 0.0 -1.190627E+02 1.172510E+02 0.0 107 0.0 -1.606810E+02 1.578951E+02 0.0 108 0.0 -2.183340E+02 2.183340E+02 0.0 109 0.0 -2.686060E+02 2.686060E+02 0.0 110 0.0 -2.832606E+02 2.832606E+02 0.0 111 0.0 -2.556969E+02 2.556969E+02 0.0 112 0.0 -1.884610E+02 1.884610E+02 0.0 113 0.0 -9.085602E+01 9.085596E+01 0.0 114 0.0 2.350250E+01 -2.350250E+01 0.0 115 0.0 1.402896E+02 -1.402896E+02 0.0 116 0.0 2.498998E+02 -2.498998E+02 0.0 117 0.0 3.461163E+02 -3.461163E+02 0.0 119 0.0 4.274490E+02 -4.274490E+02 0.0 120 0.0 4.828384E+02 -4.828384E+02 0.0 121 0.0 3.303774E+02 -3.303774E+02 0.0 123 0.0 1.325812E+02 -1.325812E+02 0.0 124 0.0 -2.727563E+01 2.727563E+01 0.0 125 0.0 -1.375656E+02 1.375656E+02 0.0 126 0.0 -2.028828E+02 2.028828E+02 0.0 127 0.0 -2.176501E+02 2.176501E+02 0.0 128 0.0 -1.853538E+02 1.853538E+02 0.0 129 0.0 -1.182633E+02 1.182633E+02 0.0 130 0.0 -4.563522E+01 4.439423E+01 0.0 131 0.0 1.612851E+01 -1.612854E+01 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.594316E+07 (CYCLIC FREQUENCY = 3.879975E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R --------- PHI --------- Z S --------- PHI S --------- PHI S --------- PHI 200 -1.58419E+01 0.0 -3.23969E+01 3.51295E+01 0.0 -1.92885E+01 0.0 -1.58420E+01 0.0 201 -2.63324E+01 0.0 -3.88525E+01 1.92885E+01 0.0 2.63324E+01 0.0 -4.66927E+01 0.0 202 -2.63324E+01 0.0 -7.95409E+01 8.29069E+01 0.0 -4.97971E+01 0.0 -2.63324E+01 0.0 203 -4.31699E+01 0.0 -9.14263E+01 4.97971E+01 0.0 4.31699E+01 0.0 -9.75374E+01 0.0 204 -4.31699E+01 0.0 -1.11445E+02 1.17251E+02 0.0 -6.61512E+01 0.0 -4.31699E+01 0.0 205 -4.23252E+01 0.0 -1.10848E+02 6.61512E+01 0.0 4.23252E+01 0.0 -1.14968E+02 0.0 218 -7.75226E+01 0.0 4.29499E+02 -2.66770E+02 0.0 4.02934E+02 0.0 -7.75226E+01 0.0 219 -7.52526E+01 0.0 4.27449E+02 -4.27449E+02 0.0 7.52526E+01 0.0 2.66770E+02 0.0 221 3.49843E+01 0.0 3.30377E+02 -3.30377E+02 0.0 2.67745E+02 0.0 3.49844E+01 0.0 222 1.29054E+01 0.0 3.17498E+02 -2.67745E+02 0.0 -1.29053E+01 0.0 3.01814E+02 0.0 300 -8.11414E+00 0.0 -4.86623E+01 4.66927E+01 0.0 -3.59885E+01 0.0 -1.13330E+01 0.0 301 -5.86494E+01 0.0 -8.23525E+01 3.59885E+01 0.0 9.09229E+01 0.0 -9.08739E+01 0.0 302 -5.48215E+01 0.0 -8.93701E+01 9.75374E+01 0.0 -4.00323E+01 0.0 -9.09229E+01 0.0 303 -1.17480E+02 0.0 -1.34940E+02 4.00323E+01 0.0 1.17480E+02 0.0 -1.77784E+02 0.0 304 -1.17480E+02 0.0 -5.77975E+01 1.14968E+02 0.0 -2.27350E+00 0.0 -1.17480E+02 0.0 305 -5.99918E+01 0.0 -3.07440E+01 2.27350E+00 0.0 6.66352E+01 0.0 -4.74864E+01 0.0 306 -2.78135E+01 0.0 -1.27278E+02 1.30228E+02 0.0 -8.96739E+01 0.0 -6.66352E+01 0.0 307 -5.18033E+00 0.0 -1.11910E+02 8.96739E+01 0.0 5.18027E+00 0.0 -8.83047E+01 0.0 318 -1.34148E+02 0.0 3.80183E+02 -3.59890E+02 0.0 3.41580E+02 0.0 -1.34148E+02 0.0 319 -1.50661E+02 0.0 3.82313E+02 -4.02934E+02 0.0 1.50661E+02 0.0 3.59890E+02 0.0 321 7.75170E+01 0.0 2.93269E+02 -3.01814E+02 0.0 2.81389E+02 0.0 7.75170E+01 0.0 401 -3.92096E+00 0.0 3.80605E+01 -3.60905E+01 0.0 -1.49532E+01 0.0 3.62042E+01 0.0 408 -1.68285E+02 0.0 3.71317E+00 4.74864E+01 0.0 3.79576E+01 0.0 -1.66606E+02 0.0 410 6.18530E+00 0.0 -1.21662E+02 8.83047E+01 0.0 -1.21713E+02 0.0 -3.50944E+01 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.594316E+07 (CYCLIC FREQUENCY = 3.879975E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R ------- PHI ------ Z S ------- PHI S ------- PHI S ------- PHI S ------- PHI 207 -2.98901E+01 0.00 -1.40964E+02 1.57895E+02 0.00 1.74551E+01 0.00 -1.30228E+02 0.00 -4.23252E+01 0.00 208 -1.13298E+01 0.00 -2.11591E+02 2.18334E+02 0.00 5.20450E+00 0.00 -2.04847E+02 0.00 -1.74551E+01 0.00 209 -3.01060E+00 0.00 -2.66213E+02 2.68606E+02 0.00 8.16696E-01 0.00 -2.63819E+02 0.00 -5.20450E+00 0.00 210 -1.21792E-01 0.00 -2.82503E+02 2.83261E+02 0.00 -5.73105E-01 0.00 -2.81744E+02 0.00 -8.16696E-01 0.00 211 6.12625E-01 0.00 -2.55654E+02 2.55697E+02 0.00 -6.52161E-01 0.00 -2.55611E+02 0.00 5.73105E-01 0.00 212 2.56073E-01 0.00 -1.88893E+02 1.88461E+02 0.00 1.40076E-01 0.00 -1.89325E+02 0.00 6.52161E-01 0.00 213 -1.12662E+00 0.00 -9.19323E+01 9.08560E+01 0.00 2.11322E+00 0.00 -9.30085E+01 0.00 -1.40076E-01 0.00 214 -4.40396E+00 0.00 2.10035E+01 -2.35025E+01 0.00 6.69476E+00 0.00 1.85045E+01 0.00 -2.11322E+00 0.00 215 -1.22142E+01 0.00 1.34268E+02 -1.40290E+02 0.00 1.77337E+01 0.00 1.28247E+02 0.00 -6.69476E+00 0.00 216 -3.05574E+01 0.00 2.35910E+02 -2.49900E+02 0.00 4.33811E+01 0.00 2.21921E+02 0.00 -1.77337E+01 0.00 217 -6.04518E+01 0.00 3.22016E+02 -3.46116E+02 0.00 7.75226E+01 0.00 2.97917E+02 0.00 -4.33811E+01 0.00 220 -2.01342E+01 0.00 5.21421E+02 -4.82838E+02 0.00 -3.49844E+01 0.00 5.60004E+02 0.00 -7.52526E+01 0.00 223 -5.48785E+00 0.00 1.13779E+02 -1.32581E+02 0.00 2.38811E+01 0.00 9.49773E+01 0.00 1.29053E+01 0.00 224 -3.81628E+01 0.00 -4.15574E+01 2.72756E+01 0.00 5.24446E+01 0.00 -5.58392E+01 0.00 -2.38811E+01 0.00 225 -6.11973E+01 0.00 -1.47631E+02 1.37566E+02 0.00 6.99500E+01 0.00 -1.57697E+02 0.00 -5.24446E+01 0.00 226 -7.84662E+01 0.00 -2.11786E+02 2.02883E+02 0.00 8.69823E+01 0.00 -2.20689E+02 0.00 -6.99500E+01 0.00 227 -9.19007E+01 0.00 -2.22792E+02 2.17650E+02 0.00 9.68191E+01 0.00 -2.27934E+02 0.00 -8.69823E+01 0.00 228 -9.90335E+01 0.00 -1.87669E+02 1.85354E+02 0.00 1.01248E+02 0.00 -1.89984E+02 0.00 -9.68191E+01 0.00 229 -1.01842E+02 0.00 -1.18885E+02 1.18263E+02 0.00 1.02437E+02 0.00 -1.19506E+02 0.00 -1.01248E+02 0.00 230 -1.10060E+02 0.00 -2.69867E+01 4.43942E+01 0.00 1.16914E+02 0.00 -3.45152E+01 0.00 -1.02437E+02 0.00 308 -2.93643E+00 0.00 -2.02292E+02 2.04847E+02 0.00 6.92627E-01 0.00 -1.99712E+02 0.00 -5.18027E+00 0.00 309 3.82416E-01 0.00 -2.62616E+02 2.63819E+02 0.00 -1.45747E+00 0.00 -2.61400E+02 0.00 -6.92627E-01 0.00 310 1.76152E+00 0.00 -2.81408E+02 2.81744E+02 0.00 -2.06557E+00 0.00 -2.81073E+02 0.00 1.45747E+00 0.00 311 1.93139E+00 0.00 -2.55758E+02 2.55611E+02 0.00 -1.79724E+00 0.00 -2.55910E+02 0.00 2.06557E+00 0.00 312 1.33464E+00 0.00 -1.89827E+02 1.89325E+02 0.00 -8.72009E-01 0.00 -1.90332E+02 0.00 1.79724E+00 0.00 313 1.03760E-02 0.00 -9.39337E+01 9.30085E+01 0.00 8.51135E-01 0.00 -9.48530E+01 0.00 8.72009E-01 0.00 314 -2.61414E+00 0.00 1.66314E+01 -1.85045E+01 0.00 4.37714E+00 0.00 1.47870E+01 0.00 -8.51135E-01 0.00 315 -9.10974E+00 0.00 1.23272E+02 -1.28247E+02 0.00 1.38423E+01 0.00 1.18394E+02 0.00 -4.37714E+00 0.00 316 -3.00329E+01 0.00 2.05086E+02 -2.21921E+02 0.00 4.62235E+01 0.00 1.88581E+02 0.00 -1.38423E+01 0.00 317 -9.01856E+01 0.00 2.40701E+02 -2.97917E+02 0.00 1.34148E+02 0.00 1.89605E+02 0.00 -4.62235E+01 0.00 320 -3.65719E+01 0.00 6.28457E+02 -5.60004E+02 0.00 -7.75170E+01 0.00 6.96911E+02 0.00 -1.50661E+02 0.00 402 -3.82675E+01 0.00 1.01150E+02 -1.07460E+02 0.00 2.47925E-01 0.00 1.08449E+02 0.00 1.49532E+01 0.00 403 -6.75279E+01 0.00 2.04047E+02 -2.08535E+02 0.00 -1.22227E+01 0.00 2.20884E+02 0.00 -2.47925E-01 0.00 404 -7.18188E+01 0.00 2.73463E+02 -2.73217E+02 0.00 2.03947E+01 0.00 2.91288E+02 0.00 1.22227E+01 0.00 405 -4.44497E+01 0.00 2.72776E+02 -2.57046E+02 0.00 5.17365E+01 0.00 2.93884E+02 0.00 -2.03947E+01 0.00 406 -2.22730E+01 0.00 2.45433E+02 -2.33765E+02 0.00 1.31135E+01 0.00 2.54655E+02 0.00 -5.17365E+01 0.00 407 -3.25984E+01 0.00 1.80183E+02 -2.03183E+02 0.00 1.65975E+01 0.00 1.58379E+02 0.00 -1.31135E+01 0.00 409 -3.31655E+01 0.00 2.31714E+01 -3.79576E+01 0.00 3.50944E+01 0.00 2.82730E+01 0.00 -1.65975E+01 0.00 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.594316E+07 (CYCLIC FREQUENCY = 3.879975E+02 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R ------------------- Z S S S 422 5.823047E+01 2.833968E+02 2.739858E+02 5.823047E+01 -2.448990E+02 523 -1.283060E+02 -4.910736E+01 -2.589136E+01 -1.283061E+02 1.240080E+02 624 -3.104657E+02 -2.433202E+02 -1.953029E+02 -3.104658E+02 3.905607E+02 725 -4.491965E+02 -3.746130E+02 -2.915725E+02 -4.491965E+02 5.848745E+02 825 -4.642014E+02 -3.333923E+02 -2.222248E+02 -2.660972E+02 5.708454E+02 826 -4.132898E+02 -2.315687E+02 2.660972E+02 -4.132898E+02 2.315687E+02 926 -3.090579E+02 -2.315687E+02 -2.315687E+02 -3.142395E+02 3.811700E+02 930 -1.710920E+02 5.510669E+01 5.510669E+01 -1.773682E+02 1.734180E+02 1026 -1.499062E+02 -1.385311E+02 -1.385310E+02 -3.703003E+00 2.037999E+02 1027 -9.167590E+01 -8.272705E+01 3.703003E+00 -9.167615E+01 1.176509E+02 1029 -6.736548E+01 1.206299E+00 -4.114062E+01 -3.887769E+01 6.736523E+01 1030 -8.203784E+01 1.294409E+01 1.294409E+01 -7.089111E+01 4.114062E+01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.594316E+07 (CYCLIC FREQUENCY = 3.879975E+02 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R --------------- Z S S S S 423 2.285461E+00 3.378369E+01 9.345825E+01 -5.365955E+01 2.589136E+01 -5.823047E+01 424 -9.150726E+01 -9.473007E+01 -5.852783E+01 -1.293550E+02 1.309324E+02 5.365955E+01 425 -1.551969E+02 -1.927889E+02 -1.643630E+02 -1.810386E+02 2.212148E+02 1.293550E+02 426 -2.021777E+02 -2.454338E+02 -2.242948E+02 -2.233167E+02 2.665728E+02 1.810386E+02 427 -2.339417E+02 -2.399122E+02 -2.292871E+02 -2.445667E+02 2.505372E+02 2.233167E+02 428 -2.485858E+02 -1.945409E+02 -1.905218E+02 -2.526049E+02 1.985600E+02 2.445667E+02 429 -2.532378E+02 -1.203015E+02 -1.196686E+02 -2.538707E+02 1.209343E+02 2.526049E+02 430 -2.539582E+02 -3.490055E+01 -3.480545E+01 -2.531871E+02 3.499566E+01 2.538707E+02 524 -1.729783E+02 -1.769641E+02 -1.309324E+02 -2.176506E+02 1.953029E+02 1.283061E+02 525 -2.484986E+02 -2.551477E+02 -2.212148E+02 -2.793466E+02 2.890805E+02 2.176506E+02 526 -3.009484E+02 -2.881747E+02 -2.665728E+02 -3.225504E+02 3.097767E+02 2.793466E+02 527 -3.317501E+02 -2.597369E+02 -2.505372E+02 -3.409500E+02 2.689368E+02 3.225504E+02 528 -3.423676E+02 -1.999776E+02 -1.985600E+02 -3.437853E+02 2.013953E+02 3.409500E+02 529 -3.413282E+02 -1.184772E+02 -1.209343E+02 -3.388712E+02 1.160201E+02 3.437853E+02 530 -3.368842E+02 -3.278244E+01 -3.499566E+01 -3.340661E+02 3.056921E+01 3.388712E+02 625 -3.383088E+02 -3.221441E+02 -2.890805E+02 -3.661519E+02 2.915725E+02 3.104658E+02 626 -3.817358E+02 -3.253605E+02 -3.097767E+02 -3.973195E+02 3.409443E+02 3.661519E+02 627 -3.989873E+02 -2.706046E+02 -2.689368E+02 -4.006550E+02 2.722722E+02 3.973195E+02 628 -3.953013E+02 -1.960415E+02 -2.013953E+02 -3.899474E+02 1.906877E+02 4.006550E+02 629 -3.811984E+02 -1.072711E+02 -1.160201E+02 -3.724493E+02 9.852203E+01 3.899474E+02 630 -3.658501E+02 -2.302734E+01 -3.056921E+01 -3.586351E+02 1.548553E+01 3.724493E+02 726 -4.437153E+02 -3.348403E+02 -3.409443E+02 -4.382342E+02 2.222248E+02 4.491965E+02 727 -4.252910E+02 -2.593290E+02 -2.722722E+02 -4.123479E+02 2.463860E+02 4.382342E+02 728 -3.973676E+02 -1.757075E+02 -1.906877E+02 -3.823873E+02 1.607271E+02 4.123479E+02 729 -3.651775E+02 -8.131213E+01 -9.852203E+01 -3.479677E+02 6.410229E+01 3.823873E+02 730 -3.346219E+02 8.262329E-01 -1.548553E+01 -3.200312E+02 -1.713782E+01 3.479677E+02 827 -3.885474E+02 -2.216434E+02 -2.463860E+02 -3.638049E+02 1.969010E+02 4.132898E+02 828 -3.416204E+02 -1.385428E+02 -1.607271E+02 -3.194360E+02 1.163582E+02 3.638049E+02 829 -2.975896E+02 -4.225598E+01 -6.410229E+01 -2.757433E+02 2.040967E+01 3.194360E+02 830 -2.639644E+02 3.612219E+01 1.713782E+01 -2.517695E+02 -5.510669E+01 2.757433E+02 927 -2.816556E+02 -1.677160E+02 -1.969010E+02 -2.528022E+02 1.385310E+02 3.142395E+02 928 -2.295822E+02 -9.313806E+01 -1.163582E+02 -2.063623E+02 6.991821E+01 2.528022E+02 929 -1.900646E+02 -3.732727E+00 -2.040967E+01 -1.734180E+02 -1.294409E+01 2.063623E+02 1028 -7.952075E+01 -5.969666E+01 -6.991821E+01 -6.736523E+01 4.947522E+01 9.167615E+01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.796337E+07 (CYCLIC FREQUENCY = 4.491263E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 2 - S T R E S S ) ELEMENT CENTER EDGE ID. R ----------------------- Z S ---------------------- PHI 101 0.0 -1.094165E+01 1.094153E+01 0.0 102 0.0 -2.081531E+01 2.028229E+01 0.0 103 0.0 -5.116934E+01 5.039072E+01 0.0 104 0.0 -7.896786E+01 7.776624E+01 0.0 107 0.0 -1.075545E+02 1.056897E+02 0.0 108 0.0 -1.330825E+02 1.330825E+02 0.0 109 0.0 -1.380324E+02 1.380324E+02 0.0 110 0.0 -1.152024E+02 1.152024E+02 0.0 111 0.0 -6.846497E+01 6.846498E+01 0.0 112 0.0 -7.143433E+00 7.143433E+00 0.0 113 0.0 5.634973E+01 -5.634975E+01 0.0 114 0.0 1.093119E+02 -1.093119E+02 0.0 115 0.0 1.418491E+02 -1.418491E+02 0.0 116 0.0 1.499918E+02 -1.499918E+02 0.0 117 0.0 1.415271E+02 -1.415271E+02 0.0 119 0.0 1.256901E+02 -1.256901E+02 0.0 120 0.0 9.625027E+01 -9.625027E+01 0.0 121 0.0 8.437500E+00 -8.437500E+00 0.0 123 0.0 -9.405832E+01 9.405832E+01 0.0 124 0.0 -1.903497E+02 1.903497E+02 0.0 125 0.0 -2.707032E+02 2.707032E+02 0.0 126 0.0 -3.162856E+02 3.162856E+02 0.0 127 0.0 -3.219808E+02 3.219808E+02 0.0 128 0.0 -2.855341E+02 2.855342E+02 0.0 129 0.0 -2.143466E+02 2.143466E+02 0.0 130 0.0 -1.089268E+02 1.059647E+02 0.0 131 0.0 -1.044193E+02 1.044196E+02 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.796337E+07 (CYCLIC FREQUENCY = 4.491263E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R --------- PHI --------- Z S --------- PHI S --------- PHI S --------- PHI 200 -6.96826E+00 0.0 -1.92073E+01 2.02822E+01 0.0 -1.27059E+01 0.0 -6.96826E+00 0.0 201 -1.08254E+01 0.0 -2.15809E+01 1.27059E+01 0.0 1.08254E+01 0.0 -2.41335E+01 0.0 202 -1.08254E+01 0.0 -4.92589E+01 5.03907E+01 0.0 -3.40002E+01 0.0 -1.08254E+01 0.0 203 -1.56524E+01 0.0 -5.26663E+01 3.40002E+01 0.0 1.56524E+01 0.0 -5.45851E+01 0.0 204 -1.56524E+01 0.0 -7.62057E+01 7.77662E+01 0.0 -5.32311E+01 0.0 -1.56524E+01 0.0 205 -1.14788E+01 0.0 -7.32596E+01 5.32311E+01 0.0 1.14788E+01 0.0 -6.64704E+01 0.0 218 -2.58759E+01 0.0 1.28838E+02 -7.82666E+01 0.0 1.22290E+02 0.0 -2.58759E+01 0.0 219 -2.23909E+01 0.0 1.25690E+02 -1.25690E+02 0.0 2.23909E+01 0.0 7.82666E+01 0.0 221 3.45825E+00 0.0 8.43750E+00 -8.43750E+00 0.0 5.54559E+00 0.0 3.45825E+00 0.0 222 2.09155E+00 0.0 7.64021E+00 -5.54559E+00 0.0 -2.09152E+00 0.0 7.88812E+00 0.0 300 -3.42590E+00 0.0 -2.55651E+01 2.41335E+01 0.0 -1.93712E+01 0.0 -5.11884E+00 0.0 301 -2.76732E+01 0.0 -4.17300E+01 1.93712E+01 0.0 4.42766E+01 0.0 -4.57117E+01 0.0 302 -2.23528E+01 0.0 -5.14838E+01 5.45851E+01 0.0 -2.84895E+01 0.0 -4.42766E+01 0.0 303 -3.97576E+01 0.0 -6.41418E+01 2.84895E+01 0.0 3.97576E+01 0.0 -7.26497E+01 0.0 304 -3.97576E+01 0.0 -5.32981E+01 6.64704E+01 0.0 -3.12964E+01 0.0 -3.97576E+01 0.0 305 -1.53604E+01 0.0 -4.18171E+01 3.12964E+01 0.0 2.77958E+01 0.0 -4.45059E+01 0.0 306 3.25003E+00 0.0 -9.76481E+01 9.53525E+01 0.0 -8.26106E+01 0.0 -2.77958E+01 0.0 307 3.59830E+00 0.0 -9.74116E+01 8.26106E+01 0.0 -3.59830E+00 0.0 -7.15850E+01 0.0 318 -4.37303E+01 0.0 1.16047E+02 -1.09497E+02 0.0 1.06443E+02 0.0 -4.37303E+01 0.0 319 -4.53729E+01 0.0 1.16259E+02 -1.22290E+02 0.0 4.53729E+01 0.0 1.09497E+02 0.0 321 3.91364E+00 0.0 6.95697E+00 -7.88812E+00 0.0 6.41785E+00 0.0 3.91364E+00 0.0 401 -2.00122E+00 0.0 1.88777E+01 -1.79247E+01 0.0 -7.36719E+00 0.0 1.79443E+01 0.0 408 -3.51955E+01 0.0 -3.55059E+01 4.45059E+01 0.0 -2.75813E+01 0.0 -2.88795E+01 0.0 410 2.19780E+01 0.0 -1.13182E+02 7.15850E+01 0.0 -1.13374E+02 0.0 -1.73695E+01 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.796337E+07 (CYCLIC FREQUENCY = 4.491263E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R ------- PHI ------ Z S ------- PHI S ------- PHI S ------- PHI S ------- PHI 207 -6.83266E+00 0.00 -1.01006E+02 1.05690E+02 0.00 2.18652E+00 0.00 -9.53525E+01 0.00 -1.14788E+01 0.00 208 -1.08428E+00 0.00 -1.31869E+02 1.33082E+02 0.00 -1.79501E-02 0.00 -1.30656E+02 0.00 -2.18652E+00 0.00 209 2.51992E-01 0.00 -1.37777E+02 1.38032E+02 0.00 -4.86031E-01 0.00 -1.37522E+02 0.00 1.79501E-02 0.00 210 4.45271E-01 0.00 -1.15247E+02 1.15202E+02 0.00 -4.04510E-01 0.00 -1.15291E+02 0.00 4.86031E-01 0.00 211 2.38762E-01 0.00 -6.86458E+01 6.84650E+01 0.00 -7.29980E-02 0.00 -6.88266E+01 0.00 4.04510E-01 0.00 212 -1.89606E-01 0.00 -7.42995E+00 7.14343E+00 0.00 4.52209E-01 0.00 -7.71643E+00 0.00 7.29980E-02 0.00 213 -8.70590E-01 0.00 5.58934E+01 -5.63497E+01 0.00 1.28894E+00 0.00 5.54370E+01 0.00 -4.52209E-01 0.00 214 -2.10025E+00 0.00 1.08427E+02 -1.09312E+02 0.00 2.91154E+00 0.00 1.07542E+02 0.00 -1.28894E+00 0.00 215 -4.75751E+00 0.00 1.39835E+02 -1.41849E+02 0.00 6.60348E+00 0.00 1.37822E+02 0.00 -2.91154E+00 0.00 216 -1.08136E+01 0.00 1.45399E+02 -1.49992E+02 0.00 1.50238E+01 0.00 1.40806E+02 0.00 -6.60348E+00 0.00 217 -2.04498E+01 0.00 1.33867E+02 -1.41527E+02 0.00 2.58759E+01 0.00 1.26206E+02 0.00 -1.50238E+01 0.00 220 -9.46631E+00 0.00 1.05297E+02 -9.62503E+01 0.00 -3.45825E+00 0.00 1.14345E+02 0.00 -2.23909E+01 0.00 223 8.81052E+00 0.00 -8.71901E+01 9.40583E+01 0.00 -1.55295E+01 0.00 -8.03218E+01 0.00 2.09152E+00 0.00 224 2.58453E+01 0.00 -1.80034E+02 1.90350E+02 0.00 -3.61611E+01 0.00 -1.69718E+02 0.00 1.55295E+01 0.00 225 4.37123E+01 0.00 -2.62019E+02 2.70703E+02 0.00 -5.12635E+01 0.00 -2.53335E+02 0.00 3.61611E+01 0.00 226 5.93122E+01 0.00 -3.07871E+02 3.16286E+02 0.00 -6.73608E+01 0.00 -2.99457E+02 0.00 5.12635E+01 0.00 227 7.64629E+01 0.00 -3.12465E+02 3.21981E+02 0.00 -8.55649E+01 0.00 -3.02949E+02 0.00 6.73608E+01 0.00 228 9.45921E+01 0.00 -2.76097E+02 2.85534E+02 0.00 -1.03619E+02 0.00 -2.66659E+02 0.00 8.55649E+01 0.00 229 1.14266E+02 0.00 -2.03216E+02 2.14347E+02 0.00 -1.24913E+02 0.00 -1.92085E+02 0.00 1.03619E+02 0.00 230 1.53206E+02 0.00 -1.17361E+02 1.05965E+02 0.00 -1.84780E+02 0.00 -8.94214E+01 0.00 1.24913E+02 0.00 308 2.60908E+00 0.00 -1.31782E+02 1.30656E+02 0.00 -1.61987E+00 0.00 -1.32923E+02 0.00 3.59830E+00 0.00 309 1.41948E+00 0.00 -1.37746E+02 1.37522E+02 0.00 -1.21910E+00 0.00 -1.37978E+02 0.00 1.61987E+00 0.00 310 1.02706E+00 0.00 -1.15504E+02 1.15291E+02 0.00 -8.34991E-01 0.00 -1.15721E+02 0.00 1.21910E+00 0.00 311 5.67123E-01 0.00 -6.91203E+01 6.88266E+01 0.00 -2.99255E-01 0.00 -6.94160E+01 0.00 8.34991E-01 0.00 312 -3.48206E-02 0.00 -8.07899E+00 7.71643E+00 0.00 3.68866E-01 0.00 -8.44055E+00 0.00 2.99255E-01 0.00 313 -7.75345E-01 0.00 5.50005E+01 -5.54370E+01 0.00 1.18185E+00 0.00 5.45692E+01 0.00 -3.68866E-01 0.00 314 -1.80883E+00 0.00 1.06876E+02 -1.07542E+02 0.00 2.43584E+00 0.00 1.06223E+02 0.00 -1.18185E+00 0.00 315 -3.96990E+00 0.00 1.36209E+02 -1.37822E+02 0.00 5.50396E+00 0.00 1.34633E+02 0.00 -2.43584E+00 0.00 316 -1.07902E+01 0.00 1.35309E+02 -1.40806E+02 0.00 1.60765E+01 0.00 1.29927E+02 0.00 -5.50396E+00 0.00 317 -2.99034E+01 0.00 1.08211E+02 -1.26206E+02 0.00 4.37303E+01 0.00 9.21658E+01 0.00 -1.60765E+01 0.00 320 -2.07296E+01 0.00 1.29131E+02 -1.14345E+02 0.00 -3.91364E+00 0.00 1.43917E+02 0.00 -4.53729E+01 0.00 402 -1.87156E+01 0.00 4.94592E+01 -5.25913E+01 0.00 1.84326E-01 0.00 5.29842E+01 0.00 7.36719E+00 0.00 403 -3.22092E+01 0.00 9.66005E+01 -9.89322E+01 0.00 -5.40230E+00 0.00 1.04535E+02 0.00 -1.84326E-01 0.00 404 -3.20913E+01 0.00 1.22427E+02 -1.22192E+02 0.00 8.94246E+00 0.00 1.30501E+02 0.00 5.40230E+00 0.00 405 -1.80204E+01 0.00 1.10899E+02 -1.03734E+02 0.00 2.03126E+01 0.00 1.20245E+02 0.00 -8.94246E+00 0.00 406 -8.05422E+00 0.00 8.31357E+01 -7.68481E+01 0.00 2.67139E+00 0.00 8.85550E+01 0.00 -2.03126E+01 0.00 407 -5.01486E+00 0.00 3.87464E+01 -4.15422E+01 0.00 -2.08633E-01 0.00 3.61239E+01 0.00 -2.67139E+00 0.00 409 1.72485E-01 0.00 -3.29480E+01 2.75813E+01 0.00 1.73695E+01 0.00 -3.32863E+01 0.00 2.08633E-01 0.00 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.796337E+07 (CYCLIC FREQUENCY = 4.491263E+02 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R ------------------- Z S S S 422 -1.920776E+00 5.185364E+00 5.383514E+00 -1.920776E+00 -2.414734E+00 523 -3.958618E+00 -6.202903E+01 -6.037857E+01 -3.958588E+00 4.767422E+01 624 3.714874E+01 -6.073180E+01 -6.551147E+01 3.714877E+01 1.805333E+01 725 1.185504E+02 -1.088788E+01 -3.116068E+01 1.185504E+02 -8.322421E+01 825 1.646677E+02 1.820345E+01 -1.874307E+01 1.391425E+02 -1.481390E+02 826 1.793369E+02 4.754211E+01 -1.391425E+02 1.793369E+02 -4.754199E+01 926 1.270179E+02 4.754211E+01 4.754199E+01 1.280653E+02 -1.345905E+02 930 1.759218E+02 -8.323737E+01 -8.323737E+01 1.945168E+02 -1.795198E+02 1026 6.220862E+01 1.946783E+01 1.946802E+01 2.898682E+01 -6.035913E+01 1027 4.955432E+01 7.340881E+00 -2.898682E+01 4.955432E+01 -3.130994E+01 1029 6.030719E+01 -4.479327E+01 2.695923E+00 7.095190E+01 -6.030707E+01 1030 9.020532E+01 -6.871185E+01 -6.871185E+01 1.132322E+02 -2.695923E+00 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.796337E+07 (CYCLIC FREQUENCY = 4.491263E+02 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R --------------- Z S S S S 423 7.410141E+00 -6.996095E+01 -7.991397E+01 1.674112E+01 6.037857E+01 1.920776E+00 424 3.977292E+01 -1.457723E+02 -1.678027E+02 6.280473E+01 1.237418E+02 -1.674112E+01 425 8.594754E+01 -2.228761E+02 -2.483332E+02 1.090903E+02 1.974190E+02 -6.280473E+01 426 1.339039E+02 -2.718205E+02 -2.966340E+02 1.587174E+02 2.470069E+02 -1.090903E+02 427 1.819104E+02 -2.769820E+02 -3.001750E+02 2.051034E+02 2.537890E+02 -1.587174E+02 428 2.246870E+02 -2.446181E+02 -2.642018E+02 2.442707E+02 2.250345E+02 -2.051034E+02 429 2.598811E+02 -1.741854E+02 -1.897958E+02 2.754915E+02 1.585750E+02 -2.442707E+02 430 2.857849E+02 -7.458139E+01 -8.576440E+01 2.976966E+02 6.339832E+01 -2.754915E+02 524 2.580194E+01 -9.307553E+01 -1.237418E+02 5.556252E+01 6.551147E+01 3.958588E+00 525 9.125809E+01 -1.581539E+02 -1.974190E+02 1.269537E+02 1.188887E+02 -5.556252E+01 526 1.648645E+02 -2.090960E+02 -2.470069E+02 2.027755E+02 1.711852E+02 -1.269537E+02 527 2.347097E+02 -2.218547E+02 -2.537890E+02 2.666440E+02 1.899205E+02 -2.027755E+02 528 2.908641E+02 -2.008143E+02 -2.250345E+02 3.150843E+02 1.765942E+02 -2.666440E+02 529 3.303969E+02 -1.432625E+02 -1.585750E+02 3.457094E+02 1.279499E+02 -3.150843E+02 530 3.506619E+02 -5.788165E+01 -6.339832E+01 3.568376E+02 5.236499E+01 -3.457094E+02 625 7.976494E+01 -6.828208E+01 -1.188887E+02 1.223811E+02 3.116068E+01 -3.714877E+01 626 1.697994E+02 -1.237669E+02 -1.711852E+02 2.172176E+02 7.634868E+01 -1.223811E+02 627 2.530796E+02 -1.540586E+02 -1.899205E+02 2.889414E+02 1.181967E+02 -2.172176E+02 628 3.140118E+02 -1.515239E+02 -1.765942E+02 3.390822E+02 1.264535E+02 -2.889414E+02 629 3.518410E+02 -1.151911E+02 -1.279499E+02 3.645997E+02 1.024323E+02 -3.390822E+02 630 3.649569E+02 -5.195664E+01 -5.236499E+01 3.664005E+02 5.154830E+01 -3.645997E+02 726 1.605858E+02 -2.953644E+01 -7.634868E+01 2.026213E+02 1.874307E+01 -1.185504E+02 727 2.378614E+02 -8.295663E+01 -1.181967E+02 2.731015E+02 4.771658E+01 -2.026213E+02 728 2.953423E+02 -1.042126E+02 -1.264535E+02 3.175832E+02 8.197180E+01 -2.731015E+02 729 3.257027E+02 -9.431264E+01 -1.024323E+02 3.338224E+02 8.619301E+01 -3.175832E+02 730 3.279220E+02 -5.876014E+01 -5.154830E+01 3.260187E+02 6.597194E+01 -3.338224E+02 827 2.028612E+02 -2.419229E+01 -4.771658E+01 2.263855E+02 6.680298E-01 -1.793369E+02 828 2.423036E+02 -6.605370E+01 -8.197180E+01 2.582217E+02 5.013562E+01 -2.263855E+02 829 2.626708E+02 -8.174402E+01 -8.619301E+01 2.671197E+02 7.729504E+01 -2.582217E+02 830 2.617635E+02 -7.460468E+01 -6.597194E+01 2.670195E+02 8.323737E+01 -2.671197E+02 927 1.378383E+02 9.399933E+00 -6.680298E-01 1.477919E+02 -1.946802E+01 -1.280653E+02 928 1.578952E+02 -4.003210E+01 -5.013562E+01 1.679988E+02 2.992865E+01 -1.477919E+02 929 1.721929E+02 -7.300345E+01 -7.729504E+01 1.795198E+02 6.871185E+01 -1.679988E+02 1028 5.493079E+01 -2.540756E+01 -2.992865E+01 6.030707E+01 2.088641E+01 -4.955432E+01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.103830E+08 (CYCLIC FREQUENCY = 5.128385E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 2 - S T R E S S ) ELEMENT CENTER EDGE ID. R ----------------------- Z S ---------------------- PHI 101 0.0 4.613184E+01 -4.613232E+01 0.0 102 0.0 9.224316E+01 -8.988086E+01 0.0 103 0.0 2.351342E+02 -2.315562E+02 0.0 104 0.0 3.820069E+02 -3.761942E+02 0.0 107 0.0 5.135218E+02 -5.046182E+02 0.0 108 0.0 5.779857E+02 -5.779857E+02 0.0 109 0.0 4.877192E+02 -4.877191E+02 0.0 110 0.0 2.599183E+02 -2.599183E+02 0.0 111 0.0 -4.200708E+01 4.200720E+01 0.0 112 0.0 -3.359517E+02 3.359517E+02 0.0 113 0.0 -5.421417E+02 5.421416E+02 0.0 114 0.0 -6.036300E+02 6.036299E+02 0.0 115 0.0 -5.006332E+02 5.006331E+02 0.0 116 0.0 -2.541516E+02 2.541516E+02 0.0 117 0.0 4.484265E+01 -4.484265E+01 0.0 119 0.0 3.184760E+02 -3.184760E+02 0.0 120 0.0 5.536686E+02 -5.536686E+02 0.0 121 0.0 5.238119E+02 -5.238119E+02 0.0 123 0.0 3.343555E+02 -3.343555E+02 0.0 124 0.0 9.424536E+01 -9.424536E+01 0.0 125 0.0 -1.283605E+02 1.283605E+02 0.0 126 0.0 -3.010932E+02 3.010931E+02 0.0 127 0.0 -3.984006E+02 3.984006E+02 0.0 128 0.0 -3.973784E+02 3.973784E+02 0.0 129 0.0 -3.068730E+02 3.068730E+02 0.0 130 0.0 -1.518978E+02 1.477672E+02 0.0 131 0.0 -1.058392E+02 1.058392E+02 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.103830E+08 (CYCLIC FREQUENCY = 5.128385E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R --------- PHI --------- Z S --------- PHI S --------- PHI S --------- PHI 200 2.30525E+01 0.0 8.69235E+01 -8.98809E+01 0.0 6.19474E+01 0.0 2.30522E+01 0.0 201 3.22660E+01 0.0 9.25934E+01 -6.19474E+01 0.0 -3.22660E+01 0.0 9.68231E+01 0.0 202 3.22660E+01 0.0 2.29440E+02 -2.31556E+02 0.0 1.68838E+02 0.0 3.22660E+01 0.0 203 3.59741E+01 0.0 2.32058E+02 -1.68838E+02 0.0 -3.59741E+01 0.0 2.34778E+02 0.0 204 3.59741E+01 0.0 3.75659E+02 -3.76194E+02 0.0 2.86155E+02 0.0 3.59741E+01 0.0 205 3.67804E+00 0.0 3.52861E+02 -2.86155E+02 0.0 -3.67810E+00 0.0 2.90398E+02 0.0 218 -4.77498E+01 0.0 3.11878E+02 -1.99440E+02 0.0 2.87957E+02 0.0 -4.77498E+01 0.0 219 -5.50542E+01 0.0 3.18476E+02 -3.18476E+02 0.0 5.50543E+01 0.0 1.99440E+02 0.0 221 8.11328E+01 0.0 5.23812E+02 -5.23812E+02 0.0 4.11577E+02 0.0 8.11328E+01 0.0 222 9.83046E+01 0.0 5.33829E+02 -4.11577E+02 0.0 -9.83046E+01 0.0 5.34356E+02 0.0 300 1.06548E+01 0.0 1.04230E+02 -9.68231E+01 0.0 8.08143E+01 0.0 1.75647E+01 0.0 301 1.00379E+02 0.0 1.64046E+02 -8.08143E+01 0.0 -1.66675E+02 0.0 1.78316E+02 0.0 302 6.61895E+01 0.0 2.26725E+02 -2.34778E+02 0.0 1.44430E+02 0.0 1.66675E+02 0.0 303 7.76297E+01 0.0 2.35046E+02 -1.44430E+02 0.0 -7.76297E+01 0.0 2.16051E+02 0.0 304 7.76297E+01 0.0 3.00660E+02 -2.90398E+02 0.0 2.38988E+02 0.0 7.76297E+01 0.0 305 -1.26947E+00 0.0 2.63531E+02 -2.38988E+02 0.0 -8.21315E+01 0.0 2.50741E+02 0.0 306 -8.10270E+01 0.0 5.02803E+02 -4.79062E+02 0.0 4.61489E+02 0.0 8.21315E+01 0.0 307 -3.92377E+01 0.0 5.31178E+02 -4.61489E+02 0.0 3.92377E+01 0.0 3.77574E+02 0.0 318 -8.29963E+01 0.0 2.67062E+02 -2.54245E+02 0.0 2.31149E+02 0.0 -8.29963E+01 0.0 319 -1.11511E+02 0.0 2.70742E+02 -2.87957E+02 0.0 1.11511E+02 0.0 2.54245E+02 0.0 321 1.50553E+02 0.0 5.14236E+02 -5.34356E+02 0.0 4.91591E+02 0.0 1.50553E+02 0.0 401 1.00564E+01 0.0 -9.18502E+01 8.73495E+01 0.0 3.55656E+01 0.0 -8.72368E+01 0.0 408 -5.48634E+01 0.0 2.80584E+02 -2.50741E+02 0.0 2.85875E+02 0.0 -1.00244E+02 0.0 410 -1.58592E+02 0.0 6.33588E+02 -3.77574E+02 0.0 6.34978E+02 0.0 6.37455E+01 0.0 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.103830E+08 (CYCLIC FREQUENCY = 5.128385E+02 HZ) V E L O C I T I E S I N A X I S Y M M E T R I C F L U I D E L E M E N T S ( C A X I F 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R ------- PHI ------ Z S ------- PHI S ------- PHI S ------- PHI S ------- PHI 207 -7.80835E+00 0.00 5.01992E+02 -5.04618E+02 0.00 1.92947E+01 0.00 4.79062E+02 0.00 3.67810E+00 0.00 208 -1.53618E+01 0.00 5.82315E+02 -5.77986E+02 0.00 1.14289E+01 0.00 5.86645E+02 0.00 -1.92947E+01 0.00 209 -8.56993E+00 0.00 4.90838E+02 -4.87719E+02 0.00 5.71100E+00 0.00 4.93957E+02 0.00 -1.14289E+01 0.00 210 -3.89166E+00 0.00 2.61903E+02 -2.59918E+02 0.00 2.07251E+00 0.00 2.63888E+02 0.00 -5.71100E+00 0.00 211 -8.58154E-01 0.00 -4.06825E+01 4.20071E+01 0.00 -3.56018E-01 0.00 -3.93579E+01 0.00 -2.07251E+00 0.00 212 1.04150E+00 0.00 -3.35204E+02 3.35952E+02 0.00 -1.72687E+00 0.00 -3.34456E+02 0.00 3.56018E-01 0.00 213 1.66925E+00 0.00 -5.42204E+02 5.42142E+02 0.00 -1.61160E+00 0.00 -5.42268E+02 0.00 1.72687E+00 0.00 214 2.81670E-01 0.00 -6.05081E+02 6.03630E+02 0.00 1.04825E+00 0.00 -6.06532E+02 0.00 1.61160E+00 0.00 215 -4.80263E+00 0.00 -5.04729E+02 5.00633E+02 0.00 8.55695E+00 0.00 -5.08824E+02 0.00 -1.04825E+00 0.00 216 -1.69904E+01 0.00 -2.63352E+02 2.54152E+02 0.00 2.54238E+01 0.00 -2.72552E+02 0.00 -8.55695E+00 0.00 217 -3.65868E+01 0.00 2.90833E+01 -4.48427E+01 0.00 4.77498E+01 0.00 1.33239E+01 0.00 -2.54238E+01 0.00 220 1.30393E+01 0.00 6.01334E+02 -5.53669E+02 0.00 -8.11328E+01 0.00 6.49000E+02 0.00 -5.50543E+01 0.00 223 8.20574E+01 0.00 3.17747E+02 -3.34355E+02 0.00 -6.58102E+01 0.00 3.01139E+02 0.00 9.83046E+01 0.00 224 5.40013E+01 0.00 8.24364E+01 -9.42454E+01 0.00 -4.21923E+01 0.00 7.06274E+01 0.00 6.58102E+01 0.00 225 3.70155E+01 0.00 -1.34314E+02 1.28360E+02 0.00 -3.18387E+01 0.00 -1.40267E+02 0.00 4.21923E+01 0.00 226 3.01729E+01 0.00 -3.02835E+02 3.01093E+02 0.00 -2.85071E+01 0.00 -3.04576E+02 0.00 3.18387E+01 0.00 227 3.14609E+01 0.00 -3.95313E+02 3.98401E+02 0.00 -3.44147E+01 0.00 -3.92224E+02 0.00 2.85071E+01 0.00 228 4.05312E+01 0.00 -3.90984E+02 3.97378E+02 0.00 -4.66478E+01 0.00 -3.84589E+02 0.00 3.44147E+01 0.00 229 5.69981E+01 0.00 -2.96052E+02 3.06873E+02 0.00 -6.73484E+01 0.00 -2.85231E+02 0.00 4.66478E+01 0.00 230 9.34781E+01 0.00 -1.48255E+02 1.47767E+02 0.00 -1.23763E+02 0.00 -1.22452E+02 0.00 6.73484E+01 0.00 308 -2.67607E+01 0.00 6.00854E+02 -5.86645E+02 0.00 1.42836E+01 0.00 6.15232E+02 0.00 -3.92377E+01 0.00 309 -1.03208E+01 0.00 4.98393E+02 -4.93957E+02 0.00 6.35797E+00 0.00 5.02913E+02 0.00 -1.42836E+01 0.00 310 -4.17276E+00 0.00 2.66309E+02 -2.63888E+02 0.00 1.98743E+00 0.00 2.68760E+02 0.00 -6.35797E+00 0.00 311 -3.35571E-01 0.00 -3.75465E+01 3.93579E+01 0.00 -1.31635E+00 0.00 -3.57289E+01 0.00 -1.98743E+00 0.00 312 2.48666E+00 0.00 -3.33186E+02 3.34456E+02 0.00 -3.65692E+00 0.00 -3.31923E+02 0.00 1.31635E+00 0.00 313 4.06223E+00 0.00 -5.41832E+02 5.42268E+02 0.00 -4.46753E+00 0.00 -5.41408E+02 0.00 3.65692E+00 0.00 314 3.62549E+00 0.00 -6.07426E+02 6.06532E+02 0.00 -2.78345E+00 0.00 -6.08323E+02 0.00 4.46753E+00 0.00 315 -5.08224E-01 0.00 -5.12284E+02 5.08824E+02 0.00 3.79999E+00 0.00 -5.15705E+02 0.00 2.78345E+00 0.00 316 -1.40711E+01 0.00 -2.83232E+02 2.72552E+02 0.00 2.43422E+01 0.00 -2.93732E+02 0.00 -3.79999E+00 0.00 317 -5.36693E+01 0.00 -2.48444E+01 -1.33239E+01 0.00 8.29963E+01 0.00 -5.89072E+01 0.00 -2.43422E+01 0.00 320 1.95208E+01 0.00 7.27619E+02 -6.49000E+02 0.00 -1.50553E+02 0.00 8.06238E+02 0.00 -1.11511E+02 0.00 402 8.95334E+01 0.00 -2.36582E+02 2.51824E+02 0.00 -1.22601E+00 0.00 -2.53193E+02 0.00 -3.55656E+01 0.00 403 1.49469E+02 0.00 -4.44264E+02 4.56137E+02 0.00 2.27054E+01 0.00 -4.80556E+02 0.00 1.22601E+00 0.00 404 1.37211E+02 0.00 -5.24380E+02 5.22750E+02 0.00 -3.73992E+01 0.00 -5.59473E+02 0.00 -2.27054E+01 0.00 405 6.73944E+01 0.00 -4.14319E+02 3.83345E+02 0.00 -7.22092E+01 0.00 -4.53569E+02 0.00 3.73992E+01 0.00 406 2.53658E+01 0.00 -2.20145E+02 1.88686E+02 0.00 3.28662E+00 0.00 -2.48991E+02 0.00 7.22092E+01 0.00 407 -2.27447E+01 0.00 2.96213E+01 -5.23221E+01 0.00 3.58104E+01 0.00 7.84656E+00 0.00 -3.28662E+00 0.00 409 -6.75699E+01 0.00 2.98148E+02 -2.85875E+02 0.00 -6.37455E+01 0.00 3.11689E+02 0.00 -3.58104E+01 0.00 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.103830E+08 (CYCLIC FREQUENCY = 5.128385E+02 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 3 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 ID. R ------------------- Z S S S 422 2.350721E+02 5.151769E+02 4.820416E+02 2.350721E+02 -5.345992E+02 523 8.988800E+01 1.620499E+02 1.438148E+02 8.988794E+01 -1.793692E+02 624 -4.279047E+01 -4.666111E+01 -3.990198E+01 -4.279047E+01 6.329382E+01 725 -1.218678E+02 -1.754260E+02 -1.517923E+02 -1.218678E+02 2.065039E+02 825 -1.287596E+02 -1.896266E+02 -1.563753E+02 -3.036259E+01 2.111176E+02 826 -8.962390E+01 -1.113551E+02 3.036259E+01 -8.962392E+01 1.113551E+02 926 -8.576186E+01 -1.113551E+02 -1.113551E+02 -8.826981E+01 1.275900E+02 930 6.788463E+01 -5.343973E+01 -5.343967E+01 8.480105E+01 -7.024117E+01 1026 -4.502869E+01 -8.615958E+01 -8.615953E+01 3.105063E+01 8.958882E+01 1027 -1.581372E+01 -5.816190E+01 -3.105063E+01 -1.581372E+01 5.820709E+01 1029 1.641938E+01 -5.321228E+01 -3.129469E+01 5.323541E+01 -1.641938E+01 1030 3.967171E+01 -7.181416E+01 -7.181416E+01 7.673775E+01 3.129469E+01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 EIGENVALUE = 0.103830E+08 (CYCLIC FREQUENCY = 5.128385E+02 HZ) V E L O C I T I E S I N S L O T E L E M E N T S ( C S L O T 4 - S T R E S S ) ELEMENT CENTER EDGE 1 EDGE 2 EDGE 3 EDGE 4 ID. R --------------- Z S S S S 423 1.780911E+02 2.385102E+02 2.992899E+02 1.211101E+02 -1.438148E+02 -2.350721E+02 424 9.550742E+01 4.686560E+01 7.135510E+01 6.990485E+01 -2.237610E+01 -1.211101E+02 425 6.200000E+01 -1.473691E+02 -1.386738E+02 5.409509E+01 1.560644E+02 -6.990485E+01 426 5.428601E+01 -3.045673E+02 -3.047583E+02 5.447701E+01 3.043763E+02 -5.409509E+01 427 6.324039E+01 -3.824519E+02 -3.912153E+02 7.200379E+01 3.736885E+02 -5.447701E+01 428 8.505042E+01 -3.698862E+02 -3.829328E+02 9.809711E+01 3.568396E+02 -7.200379E+01 429 1.122641E+02 -2.689387E+02 -2.831056E+02 1.264309E+02 2.547717E+02 -9.809711E+01 430 1.372433E+02 -1.068836E+02 -1.186303E+02 1.504460E+02 9.513696E+01 -1.264309E+02 524 6.405276E+01 -4.245361E+00 2.237610E+01 3.821747E+01 3.990198E+01 -8.988794E+01 525 3.300000E+01 -1.618037E+02 -1.560644E+02 2.778253E+01 1.675430E+02 -3.821747E+01 526 3.485739E+01 -2.973015E+02 -3.043763E+02 4.193225E+01 2.902267E+02 -2.778253E+01 527 5.759097E+01 -3.580297E+02 -3.736885E+02 7.324974E+01 3.423711E+02 -4.193225E+01 528 9.145747E+01 -3.386317E+02 -3.568396E+02 1.096653E+02 3.204240E+02 -7.324974E+01 529 1.249504E+02 -2.394866E+02 -2.547717E+02 1.402356E+02 2.242014E+02 -1.096653E+02 530 1.463947E+02 -8.827612E+01 -9.513696E+01 1.545201E+02 8.141528E+01 -1.402356E+02 625 -4.008340E+01 -1.643284E+02 -1.675430E+02 -3.737640E+01 1.517923E+02 4.279047E+01 626 -1.827048E+01 -2.711207E+02 -2.902267E+02 8.354797E-01 2.520147E+02 3.737640E+01 627 2.530894E+01 -3.178977E+02 -3.423711E+02 4.978236E+01 2.934243E+02 -8.354797E-01 628 7.380819E+01 -2.963983E+02 -3.204240E+02 9.783401E+01 2.723724E+02 -4.978236E+01 629 1.151690E+02 -2.068664E+02 -2.242014E+02 1.325040E+02 1.895313E+02 -9.783401E+01 630 1.371093E+02 -7.615219E+01 -8.141528E+01 1.434081E+02 7.088910E+01 -1.325040E+02 726 -8.989047E+01 -2.164037E+02 -2.520147E+02 -5.791321E+01 1.563753E+02 1.218678E+02 727 -2.211736E+01 -2.576284E+02 -2.934243E+02 1.367849E+01 2.218326E+02 5.791321E+01 728 4.338102E+01 -2.426699E+02 -2.723724E+02 7.308354E+01 2.129674E+02 -1.367849E+01 729 9.284408E+01 -1.697707E+02 -1.895313E+02 1.126046E+02 1.500101E+02 -7.308354E+01 730 1.157378E+02 -6.705980E+01 -7.088910E+01 1.244540E+02 6.323047E+01 -1.126046E+02 827 -5.198239E+01 -1.841911E+02 -2.218326E+02 -1.434083E+01 1.465495E+02 8.962392E+01 828 1.703640E+01 -1.815902E+02 -2.129674E+02 4.841363E+01 1.502129E+02 1.434083E+01 829 6.941338E+01 -1.290104E+02 -1.500101E+02 9.041310E+01 1.080106E+02 -4.841363E+01 830 9.345047E+01 -5.833511E+01 -6.323047E+01 1.092973E+02 5.343967E+01 -9.041310E+01 927 -5.579632E+01 -1.163545E+02 -1.465495E+02 -2.594447E+01 8.615953E+01 8.826981E+01 928 2.454268E+00 -1.218142E+02 -1.502129E+02 3.085300E+01 9.341550E+01 2.594447E+01 929 4.853991E+01 -8.991241E+01 -1.080106E+02 7.024117E+01 7.181416E+01 -3.085300E+01 1028 3.028297E-01 -7.986300E+01 -9.341550E+01 1.641938E+01 6.631039E+01 1.581372E+01 1 ACOUSTIC CAVITY ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = -20.00, BETA = 45.00, ALPHA = 0.00, AXES = -Z,+Y,+X, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 8.275312E-02 ORIGIN 1 - X0 = -7.166634E-01, Y0 = -0.396984E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 2 MODAL DEFORM. 1 - SUBCASE 1 - MODE 0.000000E+00 - FREQUENCY PLOT 3 MODAL DEFORM. 1 - SUBCASE 2 - MODE 9.006937E+01 - FREQUENCY PLOT 4 MODAL DEFORM. 1 - SUBCASE 3 - MODE 1.994752E+02 - FREQUENCY PLOT 5 MODAL DEFORM. 1 - SUBCASE 4 - MODE 3.104150E+02 - FREQUENCY PLOT 6 MODAL DEFORM. 1 - SUBCASE 5 - MODE 3.879975E+02 - FREQUENCY PLOT 7 MODAL DEFORM. 1 - SUBCASE 6 - MODE 4.491263E+02 - FREQUENCY PLOT 8 MODAL DEFORM. 1 - SUBCASE 7 - MODE 5.128385E+02 - FREQUENCY ORIGIN 1 USED IN THIS PLOT * * * END OF JOB * * * 1 JOB TITLE = ACOUSTIC CAVITY ANALYSIS DATE: 5/17/95 END TIME: 15:42: 5 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d03051a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03051A,NASTRAN APP HEAT DIAG 18 SOL 3,1 TIME 10 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 3 OLOAD = ALL 4 SPCFORCE = ALL 5 THERMAL(PRINT,PUNCH) = ALL 6 ELFORCE = ALL 7 TEMPERATURE(MATERIAL) = 201 8 SPC = 350 9 LOAD = 252 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 25, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CBAR 1 101 1 2 .0 1.0 .0 1 2- CHBDY 5 105 POINT 1 +HBDY5 3- +HBDY5 -1.0 .0 .0 4- CONROD 3 2 3 200 3.14159 5- CROD 2 102 3 4 6- CTUBE 4 103 4 5 7- GRID 1 .0 .0 .0 8- GRID 2 1.0 .0 .0 9- GRID 3 2.0 .0 .0 10- GRID 4 3.0 .0 .0 11- GRID 5 4.0 .0 .0 12- MAT4 200 1.0 13- MATT4 200 200 14- PARAM EPSHT .001 HEAT 15- PARAM IRES 1 16- PARAM MAXIT 30 HEAT 17- PBAR 101 200 3.14159 18- PHBDY 105 3.14159 19- PROD 102 200 3.14159 20- PTUBE 103 200 2.0 .0 21- QVOL 252 12.5 1 THRU 4 22- SPC 350 5 .0 23- TABLEM3 200 .0 1.0 +T200 24- +T200 .0 1.0 100.0 2.0 ENDT 25- TEMPD 201 .0 ENDDATA 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING *** USER POTENTIALLY FATAL MESSAGE 10, POSSIBLE ERROR IN DMAP INSTRUCTION PLTSET INSTRUCTION NO. 73 DEFAULT OPTION FOR INPUT DATA BLOCKS - MAKE SURE MISSING BLOCKS ARE NOT REQUIRED. 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HBDY ELEMENTS (ELEMENT TYPE 52) STARTING WITH ID 5 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONROD ELEMENTS (ELEMENT TYPE 10) STARTING WITH ID 3 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 2 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TUBE ELEMENTS (ELEMENT TYPE 3) STARTING WITH ID 4 1D I A G 1 8 O U T P U T F R O M S S G H T ITERATION EPSILON-P LAMBDA-1 EPSILON-T ============================================================ 1 1.000000E+00 2 6.585351E-01 3.192800E+00 2.079706E-01 3 6.299834E-01 1.489739E+00 6.463923E-01 4 4.832392E-01 1.749551E+00 2.119281E-01 5 3.915366E-01 1.454908E+00 3.041978E-01 6 2.979599E-01 1.564117E+00 1.272904E-01 7 2.344898E-01 1.438207E+00 1.421456E-01 8 1.780509E-01 1.490380E+00 7.118138E-02 9 1.370210E-01 1.429408E+00 6.702822E-02 10 1.032997E-01 1.454308E+00 3.822901E-02 11 7.840265E-02 1.422585E+00 3.227841E-02 12 5.889187E-02 1.433990E+00 2.008985E-02 13 4.444201E-02 1.416476E+00 1.586762E-02 14 3.337733E-02 1.421287E+00 1.044161E-02 15 2.515225E-02 1.411121E+00 7.925143E-03 16 1.891298E-02 1.412784E+00 5.398339E-03 17 1.425180E-02 1.406512E+00 4.004070E-03 18 1.072626E-02 1.406675E+00 2.786384E-03 19 8.080334E-03 1.402646E+00 2.039429E-03 20 6.081851E-03 1.402095E+00 1.438285E-03 21 4.578402E-03 1.399533E+00 1.044450E-03 22 3.442797E-03 1.398797E+00 7.424342E-04 0*** USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON NUMBER 1 ( NORMAL CONVERGENCE ) 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 0 HRULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1- S). 1 S 1.96349E+01 2 S 3.92699E+01 3 S 3.92699E+01 4 S 3.92699E+01 0COLUMN 2 ( 2- S). 1 S -1.90214E+01 2 S -3.06796E+01 3 S -8.59027E+00 4 S 2.82252E+01 0COLUMN 3 ( 3- S). 1 S 1.87151E+01 2 S 2.65366E+01 3 S -3.12429E+00 4 S -3.04123E+01 0COLUMN 4 ( 4- S). 1 S -1.60118E+01 2 S -1.91177E+01 3 S 9.49944E+00 4 S 2.14074E+01 0COLUMN 5 ( 5- H). 1 S 1.42884E+01 2 S 1.41609E+01 3 S -1.23302E+01 4 S -1.45467E+01 0COLUMN 6 ( 6- H). 1 S -1.17292E+01 2 S -9.50749E+00 3 S 1.16736E+01 4 S 8.98419E+00 0COLUMN 7 ( 7- H). 1 S 9.86324E+00 2 S 6.27757E+00 3 S -1.04189E+01 4 S -5.50787E+00 0COLUMN 8 ( 8- H). 1 S -7.89212E+00 2 S -3.87889E+00 3 S 8.41557E+00 4 S 3.27641E+00 0COLUMN 9 ( 9- H). 1 S 6.38913E+00 2 S 2.24918E+00 3 S -6.66665E+00 4 S -1.94247E+00 0COLUMN 10 ( 10- H). 1 S -5.02248E+00 2 S -1.18323E+00 3 S 5.05543E+00 4 S 1.13950E+00 0COLUMN 11 ( 11- H). 1 S 3.96622E+00 2 S 4.97742E-01 3 S -3.79263E+00 4 S -6.67389E-01 0COLUMN 12 ( 12- H). 1 S -3.07744E+00 2 S -9.73969E-02 3 S 2.78403E+00 4 S 3.89328E-01 0COLUMN 13 ( 13- H). 1 S 2.38991E+00 2 S -1.33118E-01 3 S -2.02930E+00 4 S -2.26959E-01 0COLUMN 14 ( 14- H). 1 S -1.83594E+00 2 S 2.41852E-01 3 S 1.46181E+00 4 S 1.32095E-01 0COLUMN 15 ( 15- H). 1 S 1.40919E+00 2 S -2.84363E-01 3 S -1.04790E+00 4 S -7.68738E-02 0COLUMN 16 ( 16- H). 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 0 HRULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 1 S -1.07416E+00 2 S 2.83340E-01 3 S 7.46101E-01 4 S 4.46930E-02 0COLUMN 17 ( 17- H). 1 S 8.17505E-01 2 S -2.62115E-01 3 S -5.29427E-01 4 S -2.59705E-02 0COLUMN 18 ( 18- H). 1 S -6.19293E-01 2 S 2.30103E-01 3 S 3.74077E-01 4 S 1.51062E-02 0COLUMN 19 ( 19- H). 1 S 4.68277E-01 2 S -1.95786E-01 3 S -2.63710E-01 4 S -8.81958E-03 0COLUMN 20 ( 20- H). 1 S -3.52966E-01 2 S 1.62445E-01 3 S 1.85432E-01 4 S 5.09644E-03 0COLUMN 21 ( 21- H). 1 S 2.65610E-01 2 S -1.32492E-01 3 S -1.30180E-01 4 S -2.94495E-03 0COLUMN 22 ( 22- H). 1 S -1.99371E-01 2 S 1.06476E-01 3 S 9.11942E-02 4 S 1.70898E-03 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 7.316550E+01 6.954588E+01 5.811366E+01 3.693061E+01 0.0 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 1.963494E+01 3.926987E+01 3.926987E+01 3.926989E+01 1.963495E+01 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 5 S -1.570795E+02 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 1 BAR -3.619629E+00 3.619629E+00 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 H E A T F L O W I N T O H B D Y E L E M E N T S (CHBDY) ELEMENT-ID APPLIED-LOAD CONVECTION RADIATION TOTAL 5 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 3 CONROD -1.143221E+01 1.143221E+01 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 2 ROD -2.118305E+01 2.118305E+01 1 NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A 0 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 4 TUBE -3.693061E+01 3.693061E+01 * * * END OF JOB * * * 1 JOB TITLE = NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB DATE: 5/17/95 END TIME: 15:42:39 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d03061a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03061A,NASTRAN TIME 15 APP HEAT SOL 3,1 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A 3 LOAD = 102 4 TEMP(MATERIAL) = 201 5 OUTPUT 6 THERMAL = ALL 7 OLOAD = ALL 8 ELFORCE = ALL 9 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 143, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CHBDY 21 101 LINE 20 1 +B1 2- +B1 1.0 3- CHBDY 22 101 LINE 1 2 +B2 4- +B2 1.0 5- CHBDY 23 101 LINE 2 3 +B3 6- +B3 1.0 7- CHBDY 24 101 LINE 3 4 +B4 8- +B4 1.0 9- CHBDY 25 101 LINE 4 5 +B5 10- +B5 1.0 11- CHBDY 26 101 LINE 5 6 +B6 12- +B6 -1.0 13- CHBDY 27 101 LINE 6 7 +B7 14- +B7 -1.0 15- CHBDY 28 101 LINE 7 8 +B8 16- +B8 -1.0 17- CHBDY 29 101 LINE 8 9 +B9 18- +B9 -1.0 19- CHBDY 30 101 LINE 9 10 +B10 20- +B10 -1.0 21- CHBDY 31 101 LINE 10 11 +B11 22- +B11 -1.0 23- CHBDY 32 101 LINE 11 12 +B12 24- +B12 -1.0 25- CHBDY 33 101 LINE 12 13 +B13 26- +B13 -1.0 27- CHBDY 34 101 LINE 13 14 +B14 28- +B14 -1.0 29- CHBDY 35 101 LINE 14 15 +B15 30- +B15 -1.0 31- CHBDY 36 101 LINE 15 16 +B16 32- +B16 1.0 33- CHBDY 37 101 LINE 16 17 +B17 34- +B17 1.0 35- CHBDY 38 101 LINE 17 18 +B18 36- +B18 1.0 37- CHBDY 39 101 LINE 18 19 +B19 38- +B19 1.0 39- CHBDY 40 101 LINE 19 20 +B20 40- +B20 1.0 41- CHBDY 41 101 LINE 20 1 42- CHBDY 42 101 LINE 1 2 43- CHBDY 43 101 LINE 2 3 44- CHBDY 44 101 LINE 3 4 45- CHBDY 45 101 LINE 4 5 46- CHBDY 46 101 LINE 5 6 47- CHBDY 47 101 LINE 6 7 1 NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CHBDY 48 101 LINE 7 8 49- CHBDY 49 101 LINE 8 9 50- CHBDY 50 101 LINE 9 10 51- CHBDY 51 101 LINE 10 11 52- CHBDY 52 101 LINE 11 12 53- CHBDY 53 101 LINE 12 13 54- CHBDY 54 101 LINE 13 14 55- CHBDY 55 101 LINE 14 15 56- CHBDY 56 101 LINE 15 16 57- CHBDY 57 101 LINE 16 17 58- CHBDY 58 101 LINE 17 18 59- CHBDY 59 101 LINE 18 19 60- CHBDY 60 101 LINE 19 20 61- CORD2C 1 1.0 +CORD1 62- +CORD1 1.0 63- CROD 1 100 20 1 2 100 1 2 64- CROD 3 100 2 3 4 100 3 4 65- CROD 5 100 4 5 6 100 5 6 66- CROD 7 100 6 7 8 100 7 8 67- CROD 9 100 8 9 10 100 9 10 68- CROD 11 100 10 11 12 100 11 12 69- CROD 13 100 12 13 14 100 13 14 70- CROD 15 100 14 15 16 100 15 16 71- CROD 17 100 16 17 18 100 17 18 72- CROD 19 100 18 19 20 100 19 20 73- GRDSET 1 74- GRID 1 2.0 18. 75- GRID 2 2.0 36. 76- GRID 3 2.0 54. 77- GRID 4 2.0 72. 78- GRID 5 2.0 90. 79- GRID 6 2.0 108. 80- GRID 7 2.0 126. 81- GRID 8 2.0 144. 82- GRID 9 2.0 162. 83- GRID 10 2.0 180. 84- GRID 11 2.0 198. 85- GRID 12 2.0 216. 86- GRID 13 2.0 234. 87- GRID 14 2.0 252. 88- GRID 15 2.0 270. 89- GRID 16 2.0 288. 90- GRID 17 2.0 306. 91- GRID 18 2.0 324. 92- GRID 19 2.0 342. 93- GRID 20 2.0 .0 94- MAT4 100 94.5 36.7 1 NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- PARAM EPSHT .001 HEAT 96- PARAM MAXIT 20 HEAT 97- PARAM SIGMA .174-8 HEAT 98- PARAM TABS 460. HEAT 99- PHBDY 101 20.306 .1 100- PROD 100 100 .020306 101- QVECT 102 425. -1. .0 .0 21 22 23 +Q102 102- +Q102 24 25 26 27 28 29 30 31 +Q102A 103- +Q102A 32 33 34 35 36 37 38 39 +Q102B 104- +Q102B 40 105- RADLST 21 THRU 40 41 THRU 60 106- RADMTX 21 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R21 107- +R21 .89101 .95106 .98769 1.0 .98769 .95106 .89101 .80902 +R21A 108- +R21A .70711 .58779 .45399 .30902 .15643 109- RADMTX 22 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R22 110- +R22 .89101 .95106 .98769 1.0 .98769 .95106 .89101 .80902 +R22A 111- +R22A .70711 .58779 .45399 .30902 112- RADMTX 23 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R23 113- +R23 .89101 .95106 .98769 1.0 .98769 .95106 .89101 .80902 +R23A 114- +R23A .70711 .58779 .45399 115- RADMTX 24 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R24 116- +R24 .89101 .95106 .98769 1.0 .98769 .95106 .89101 .80902 +R24A 117- +R24A .70711 .58779 118- RADMTX 25 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R25 119- +R25 .89101 .95106 .98769 1.0 .98769 .95106 .89101 .80902 +R25A 120- +R25A .70711 121- RADMTX 26 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R26 122- +R26 .89101 .95106 .98769 1.0 .98769 .95106 .89101 .80902 123- RADMTX 27 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R27 124- +R27 .89101 .95106 .98769 1.0 .98769 .95106 .89101 125- RADMTX 28 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R28 126- +R28 .89101 .95106 .98769 1.0 .98769 .95106 127- RADMTX 29 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R29 128- +R29 .89101 .95106 .98769 1.0 .98769 129- RADMTX 30 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R30 130- +R30 .89101 .95106 .98769 1.0 131- RADMTX 31 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R31 132- +R31 .89101 .95106 .98769 133- RADMTX 32 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R32 134- +R32 .89101 .95106 135- RADMTX 33 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R33 136- +R33 .89101 137- RADMTX 34 .0 .15643 .30902 .45399 .58779 .70711 .80902 138- RADMTX 35 .0 .15643 .30902 .45399 .58779 .70711 139- RADMTX 36 .0 .15643 .30902 .45399 .58779 140- RADMTX 37 .0 .15643 .30902 .45399 141- RADMTX 38 .0 .15643 .30902 1 NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- RADMTX 39 .0 .15643 143- TEMPD 201 200.0 ENDDATA 1 NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING *** USER POTENTIALLY FATAL MESSAGE 10, POSSIBLE ERROR IN DMAP INSTRUCTION PLTSET INSTRUCTION NO. 73 DEFAULT OPTION FOR INPUT DATA BLOCKS - MAKE SURE MISSING BLOCKS ARE NOT REQUIRED. 1 NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 20 PROFILE 57 MAX WAVEFRONT 3 AVG WAVEFRONT 2.850 RMS WAVEFRONT 2.890 RMS BANDWIDTH 4.863 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 3 PROFILE 57 MAX WAVEFRONT 3 AVG WAVEFRONT 2.850 RMS WAVEFRONT 2.890 RMS BANDWIDTH 2.890 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 20 20 PROFILE (P) 57 57 MAXIMUM WAVEFRONT (C-MAX) 3 3 AVERAGE WAVEFRONT (C-AVG) 2.850 2.850 RMS WAVEFRONT (C-RMS) 2.890 2.890 RMS BANDWITCH (B-RMS) 4.863 4.863 NUMBER OF GRID POINTS (N) 20 NUMBER OF ELEMENTS (NON-RIGID) 20 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 2 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 20 MATRIX DENSITY, PERCENT 15.000 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HBDY ELEMENTS (ELEMENT TYPE 52) STARTING WITH ID 21 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 2361, 20 ELEMENTS HAVE A TOTAL VIEW FACTOR (FA/A) LESS THAN 0.99 , ENERGY MAY BE LOST TO SPACE. 0*** USER INFORMATION MESSAGE 3028 B = 20 BBAR = 3 C = 21 CBAR = 36 R = 22 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC REAL DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 40) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 10 BBAR = 3 C = 11 CBAR = 16 R = 12 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC REAL DECOMPOSITION OF DATA BLOCK HKFF (N = 20) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON NUMBER 1 ( NORMAL CONVERGENCE ) 1 NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A 0 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 1.590522E+02 1.395644E+02 1.073669E+02 6.610048E+01 2.803627E+01 5.140508E+00 7 S -4.874969E+00 -9.272478E+00 -1.108667E+01 -1.157623E+01 -1.108665E+01 -9.272463E+00 13 S -4.874965E+00 5.140494E+00 2.803628E+01 6.610052E+01 1.073668E+02 1.395643E+02 19 S 1.590522E+02 1.654979E+02 1 NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A 0 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 5.072616E+02 4.315025E+02 3.135049E+02 1.648192E+02 4.223842E+01 15 S 4.223851E+01 1.648192E+02 3.135048E+02 4.315026E+02 5.072617E+02 5.333665E+02 1 NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A 0 H E A T F L O W I N T O H B D Y E L E M E N T S (CHBDY) ELEMENT-ID APPLIED-LOAD CONVECTION RADIATION TOTAL 21 5.333665E+02 0.000000E+00 -3.315627E+02 2.018038E+02 22 4.811568E+02 0.000000E+00 -3.051971E+02 1.759596E+02 23 3.818482E+02 0.000000E+00 -2.573989E+02 1.244493E+02 24 2.451616E+02 0.000000E+00 -1.992350E+02 4.592661E+01 25 8.447684E+01 0.000000E+00 -1.473970E+02 -6.292012E+01 26 0.000000E+00 0.000000E+00 -1.144566E+02 -1.144566E+02 27 0.000000E+00 0.000000E+00 -9.917615E+01 -9.917615E+01 28 0.000000E+00 0.000000E+00 -9.305458E+01 -9.305458E+01 29 0.000000E+00 0.000000E+00 -9.051762E+01 -9.051762E+01 30 0.000000E+00 0.000000E+00 -8.959206E+01 -8.959206E+01 31 0.000000E+00 0.000000E+00 -8.959200E+01 -8.959200E+01 32 0.000000E+00 0.000000E+00 -9.051765E+01 -9.051765E+01 33 0.000000E+00 0.000000E+00 -9.305452E+01 -9.305452E+01 34 0.000000E+00 0.000000E+00 -9.917619E+01 -9.917619E+01 35 0.000000E+00 0.000000E+00 -1.144567E+02 -1.144567E+02 36 8.447701E+01 0.000000E+00 -1.473970E+02 -6.292004E+01 37 2.451614E+02 0.000000E+00 -1.992348E+02 4.592654E+01 38 3.818483E+02 0.000000E+00 -2.573989E+02 1.244493E+02 39 4.811570E+02 0.000000E+00 -3.051972E+02 1.759598E+02 40 5.333663E+02 0.000000E+00 -3.315626E+02 2.018037E+02 41 0.000000E+00 0.000000E+00 -1.621102E+02 -1.621102E+02 42 0.000000E+00 0.000000E+00 -1.353455E+02 -1.353455E+02 43 0.000000E+00 0.000000E+00 -8.681474E+01 -8.681474E+01 44 0.000000E+00 0.000000E+00 -2.770469E+01 -2.770469E+01 45 0.000000E+00 0.000000E+00 2.514783E+01 2.514783E+01 46 0.000000E+00 0.000000E+00 5.904066E+01 5.904066E+01 47 0.000000E+00 0.000000E+00 7.512827E+01 7.512827E+01 48 0.000000E+00 0.000000E+00 8.187199E+01 8.187199E+01 49 0.000000E+00 0.000000E+00 8.482950E+01 8.482950E+01 50 0.000000E+00 0.000000E+00 8.596673E+01 8.596673E+01 51 0.000000E+00 0.000000E+00 8.596679E+01 8.596679E+01 52 0.000000E+00 0.000000E+00 8.482946E+01 8.482946E+01 53 0.000000E+00 0.000000E+00 8.187205E+01 8.187205E+01 54 0.000000E+00 0.000000E+00 7.512822E+01 7.512822E+01 55 0.000000E+00 0.000000E+00 5.904061E+01 5.904061E+01 56 0.000000E+00 0.000000E+00 2.514773E+01 2.514773E+01 57 0.000000E+00 0.000000E+00 -2.770446E+01 -2.770446E+01 58 0.000000E+00 0.000000E+00 -8.681480E+01 -8.681480E+01 59 0.000000E+00 0.000000E+00 -1.353455E+02 -1.353455E+02 60 0.000000E+00 0.000000E+00 -1.621101E+02 -1.621101E+02 1 NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A 0 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 1 ROD -1.030096E+01 9.734412E+02 2 ROD -3.114381E+01 2.943090E+03 3 ROD -5.145529E+01 4.862525E+03 4 ROD -6.594833E+01 6.232117E+03 5 ROD -6.083092E+01 5.748521E+03 6 ROD -3.659003E+01 3.457758E+03 7 ROD -1.600587E+01 1.512554E+03 8 ROD -7.027716E+00 6.641191E+02 9 ROD -2.899282E+00 2.739821E+02 10 ROD -7.823830E-01 7.393519E+01 11 ROD 7.824135E-01 -7.393807E+01 12 ROD 2.899276E+00 -2.739816E+02 13 ROD 7.027702E+00 -6.641178E+02 14 ROD 1.600583E+01 -1.512551E+03 15 ROD 3.659004E+01 -3.457759E+03 16 ROD 6.083096E+01 -5.748525E+03 17 ROD 6.594830E+01 -6.232114E+03 18 ROD 5.145525E+01 -4.862521E+03 19 ROD 3.114383E+01 -2.943092E+03 20 ROD 1.030101E+01 -9.734454E+02 * * * END OF JOB * * * 1 JOB TITLE = NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER DATE: 5/17/95 END TIME: 15:43:25 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d03071a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03071A,NASTRAN APP DISPLACEMENT SOL 3,0 TIME 60 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A 3 METHOD = 3 4 SPC = 2 5 OUTPUT 6 VECTOR = ALL 7 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 115, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CTRPLT1 1 6 13 8 3 2 1 9 +TR1 2- +TR1 3- CTRPLT1 2 7 1 10 11 12 13 9 +TR2 4- +TR2 5- CTRPLT1 3 8 23 18 13 12 11 19 +TR3 6- +TR3 7- CTRPLT1 4 9 11 20 21 22 23 19 +TR4 8- +TR4 9- CTRPLT1 5 10 33 28 23 22 21 29 +TR5 10- +TR5 11- CTRPLT1 6 11 21 30 31 32 33 29 +TR6 12- +TR6 13- CTRPLT1 7 12 43 38 33 32 31 39 +TR7 14- +TR7 15- CTRPLT1 8 13 31 40 41 42 43 39 +TR8 16- +TR8 17- CTRPLT1 9 14 15 6 5 4 3 7 +TR9 18- +TR9 19- CTRPLT1 10 15 3 8 13 14 15 7 +TR10 20- +TR10 21- CTRPLT1 11 16 25 16 15 14 13 17 +TR11 22- +TR11 23- CTRPLT1 12 17 13 18 23 24 25 17 +TR12 24- +TR12 25- CTRPLT1 13 18 35 26 25 24 23 27 +TR13 26- +TR13 27- CTRPLT1 14 19 23 28 33 34 35 27 +TR14 28- +TR14 29- CTRPLT1 15 20 45 36 35 34 33 37 +TR15 30- +TR15 31- CTRPLT1 16 21 33 38 43 44 45 37 +TR16 32- +TR16 33- EIGR 3 INV .0001 4000.0 8 8 0 +ABC 34- +ABC MAX 35- GRDSET 126 36- GRID 1 0.0 0.0 0.0 37- GRID 2 0.0 .625 0.0 38- GRID 3 0.0 1.25 0.0 39- GRID 4 0.0 1.875 0.0 40- GRID 5 0.0 2.5 0.0 41- GRID 6 .625 2.5 0.0 42- GRID 7 .625 1.875 0.0 43- GRID 8 .625 1.25 0.0 44- GRID 9 .625 .625 0.0 45- GRID 10 .625 0.0 0.0 46- GRID 11 1.25 0.0 0.0 47- GRID 12 1.25 .625 0.0 1 VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 13 1.25 1.25 0.0 49- GRID 14 1.25 1.875 0.0 50- GRID 15 1.25 2.5 0.0 51- GRID 16 1.875 2.5 0.0 52- GRID 17 1.875 1.875 0.0 53- GRID 18 1.875 1.25 0.0 54- GRID 19 1.875 .625 0.0 55- GRID 20 1.875 0.0 0.0 56- GRID 21 2.5 0.0 0.0 57- GRID 22 2.5 .625 0.0 58- GRID 23 2.5 1.25 0.0 59- GRID 24 2.5 1.875 0.0 60- GRID 25 2.5 2.5 0.0 61- GRID 26 3.125 2.5 0.0 62- GRID 27 3.125 1.875 0.0 63- GRID 28 3.125 1.25 0.0 64- GRID 29 3.125 .625 0.0 65- GRID 30 3.125 0.0 0.0 66- GRID 31 3.75 0.0 0.0 67- GRID 32 3.75 .625 0.0 68- GRID 33 3.75 1.25 0.0 69- GRID 34 3.75 1.875 0.0 70- GRID 35 3.75 2.5 0.0 71- GRID 36 4.375 2.5 0.0 72- GRID 37 4.375 1.875 0.0 73- GRID 38 4.315 1.25 0.0 74- GRID 39 4.375 .625 0.0 75- GRID 40 4.375 0.0 0.0 76- GRID 41 5.0 0.0 0.0 77- GRID 42 5.0 .625 0.0 78- GRID 43 5.0 1.25 0.0 79- GRID 44 5.0 1.875 0.0 80- GRID 45 5.0 2.5 0.0 81- MAT1 4 3.0+7 .3 7.3698-4 82- PARAM COUPMASS1 83- PTRPLT1 6 4 4.3877-5 1.0E-10 +TP2 84- +TP2 85- PTRPLT1 7 4 1.0E-10 4.3877-5 +TP3 86- +TP3 87- PTRPLT1 8 4 4.3877-5 1.0E-10 +TP4 88- +TP4 89- PTRPLT1 9 4 1.0E-10 4.3877-5 +TP5 90- +TP5 91- PTRPLT1 10 4 4.3877-5 1.0E-10 +TP6 92- +TP6 93- PTRPLT1 11 4 1.0E-10 4.3877-5 +TP7 94- +TP7 1 VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- PTRPLT1 12 4 4.3877-5 1.0E-10 +TP8 96- +TP8 97- PTRPLT1 13 4 1.0E-10 4.3877-5 +TP9 98- +TP9 99- PTRPLT1 14 4 3.5101-4 4.3877-5 +TP10 100- +TP10 101- PTRPLT1 15 4 4.3877-5 3.5101-4 +TP11 102- +TP11 103- PTRPLT1 16 4 3.5101-4 4.3877-5 +TP12 104- +TP12 105- PTRPLT1 17 4 4.3877-5 3.5101-4 +TP13 106- +TP13 107- PTRPLT1 18 4 3.5101-4 4.3877-5 +TP14 108- +TP14 109- PTRPLT1 19 4 4.3877-5 3.5101-4 +TP15 110- +TP15 111- PTRPLT1 20 4 3.5101-4 4.3877-5 +TP16 112- +TP16 113- PTRPLT1 21 4 4.3877-5 3.5101-4 +TP17 114- +TP17 115- SPC1 2 345 1 2 3 4 5 ENDDATA 1 VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 13 PROFILE 399 MAX WAVEFRONT 13 AVG WAVEFRONT 8.867 RMS WAVEFRONT 9.332 RMS BANDWIDTH 9.614 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 13 PROFILE 344 MAX WAVEFRONT 13 AVG WAVEFRONT 7.644 RMS WAVEFRONT 8.066 RMS BANDWIDTH 8.130 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 13 13 PROFILE (P) 399 344 MAXIMUM WAVEFRONT (C-MAX) 13 13 AVERAGE WAVEFRONT (C-AVG) 8.867 7.644 RMS WAVEFRONT (C-RMS) 9.332 8.066 RMS BANDWITCH (B-RMS) 9.614 8.130 NUMBER OF GRID POINTS (N) 45 NUMBER OF ELEMENTS (NON-RIGID) 16 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 18 MINIMUM NODAL DEGREE 5 NUMBER OF UNIQUE EDGES 186 MATRIX DENSITY, PERCENT 20.593 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 12 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 34 2 39 3 42 4 45 SEQGP 5 44 6 43 7 41 8 40 SEQGP 9 35 10 30 11 25 12 29 SEQGP 13 33 14 37 15 38 16 36 SEQGP 17 32 18 28 19 24 20 20 SEQGP 21 13 22 18 23 23 24 27 SEQGP 25 31 26 26 27 21 28 17 SEQGP 29 12 30 9 31 5 32 8 SEQGP 33 11 34 19 35 22 36 16 SEQGP 37 15 38 7 39 4 40 1 SEQGP 41 2 42 3 43 6 44 10 SEQGP 45 14 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRPLT1 ELEMENTS (ELEMENT TYPE 74) STARTING WITH ID 1 0 ROOTS BELOW 1.579137E+08 1 ROOTS BELOW 2.960192E+09 1 VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 1 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 2 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 14 0 REASON FOR TERMINATION . . . . . . . . . . . 7* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 1 OR MORE ROOT OUTSIDE FR.RANGE. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 1 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 1 2.957193E+09 5.438008E+04 8.654858E+03 1.943292E-09 5.746690E+00 1 VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A 0 EIGENVALUE = 0.295719E+10 (CYCLIC FREQUENCY = 8.654858E+03 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 4 G 0.0 0.0 0.0 0.0 0.0 0.0 5 G 0.0 0.0 0.0 0.0 0.0 0.0 6 G 0.0 0.0 -2.367597E-04 6.207179E-04 8.764167E-04 0.0 7 G 0.0 0.0 -5.472823E-04 4.627575E-04 1.575365E-03 0.0 8 G 0.0 0.0 -7.078947E-04 1.616370E-04 2.296494E-03 0.0 9 G 0.0 0.0 -7.660137E-04 1.968803E-04 2.388769E-03 0.0 10 G 0.0 0.0 -6.404227E-04 -3.320629E-04 3.082140E-03 0.0 11 G 0.0 0.0 -3.451006E-03 6.581811E-04 5.256683E-03 0.0 12 G 0.0 0.0 -3.146443E-03 6.410062E-04 4.870544E-03 0.0 13 G 0.0 0.0 -2.689518E-03 6.112823E-04 4.043003E-03 0.0 14 G 0.0 0.0 -2.060640E-03 1.301469E-03 3.190235E-03 0.0 15 G 0.0 0.0 -1.191785E-03 1.374496E-03 2.439661E-03 0.0 16 G 0.0 0.0 -3.087104E-03 2.265441E-03 3.587943E-03 0.0 17 G 0.0 0.0 -4.420016E-03 2.084067E-03 4.258297E-03 0.0 18 G 0.0 0.0 -5.570282E-03 1.682298E-03 5.250180E-03 0.0 19 G 0.0 0.0 -6.587490E-03 1.676956E-03 6.029991E-03 0.0 20 G 0.0 0.0 -7.674930E-03 3.195101E-03 7.951039E-03 0.0 21 G 0.0 0.0 -1.332390E-02 7.178554E-03 1.038664E-02 0.0 22 G 0.0 0.0 -1.086381E-02 2.681606E-03 7.462550E-03 0.0 23 G 0.0 0.0 -9.198150E-03 2.491323E-03 6.390381E-03 0.0 24 G 0.0 0.0 -7.485257E-03 2.934663E-03 5.456801E-03 0.0 25 G 0.0 0.0 -5.613262E-03 2.970474E-03 4.711364E-03 0.0 26 G 0.0 0.0 -8.806698E-03 3.778720E-03 5.467258E-03 0.0 27 G 0.0 0.0 -1.112815E-02 3.722506E-03 6.118124E-03 0.0 28 G 0.0 0.0 -1.339321E-02 3.586684E-03 7.064400E-03 0.0 29 G 0.0 0.0 -1.566167E-02 3.854951E-03 7.762971E-03 0.0 30 G 0.0 0.0 -1.756047E-02 -4.043966E-03 9.219343E-03 0.0 31 G 0.0 0.0 -1.856032E-02 -2.619900E-02 -1.536125E-02 0.0 32 G 0.0 0.0 -2.112206E-02 4.823306E-03 8.992752E-03 0.0 33 G 0.0 0.0 -1.806839E-02 4.793380E-03 7.990171E-03 0.0 34 G 0.0 0.0 -1.518092E-02 4.518526E-03 6.748182E-03 0.0 35 G 0.0 0.0 -1.238757E-02 4.402501E-03 6.126663E-03 0.0 36 G 0.0 0.0 -1.633725E-02 4.959926E-03 6.487089E-03 0.0 37 G 0.0 0.0 -1.945641E-02 5.139407E-03 6.914446E-03 0.0 38 G 0.0 0.0 -2.303207E-02 6.570884E-03 7.652429E-03 0.0 39 G 0.0 0.0 -2.929381E-02 1.457551E-02 1.492443E-02 0.0 40 G 0.0 0.0 -9.875836E-02 5.192699E-01 2.123086E-01 0.0 41 G 0.0 0.0 -2.008132E-01 1.000000E+00 4.841382E-02 0.0 42 G 0.0 0.0 -3.140337E-02 6.793135E-03 8.069154E-04 0.0 43 G 0.0 0.0 -2.760707E-02 7.523733E-03 7.236272E-03 0.0 44 G 0.0 0.0 -2.369626E-02 5.461853E-03 6.658241E-03 0.0 45 G 0.0 0.0 -2.043810E-02 5.114045E-03 6.606174E-03 0.0 * * * END OF JOB * * * 1 JOB TITLE = VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE DATE: 5/17/95 END TIME: 15:43:56 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d03081a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03081A,NASTRAN APP DISPLACEMENT SOL 3,0 TIME 14 DIAG 21, 22 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 3 LABEL = NORMAL MODES ANALYSIS USING RIGID ELEMENTS 4 METHOD = 1000 5 OUTPUT 6 ECHO = BOTH 7 VECTOR = ALL 8 MPCFORCE = ALL 9 BEGIN BULK 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ CBAR 3530251 353025 200070 200078 1.0 .0 .0 1 MR G/B CBAR 4500050 450007 200079 200086 1.0 .0 .0 1 MRBRG1 +MRBRG1 56 CBAR 4500070 450007 200086 200095 1.0 .0 .0 1 MR MAST CBAR 4500071 450007 200095 200101 1.0 .0 .0 1 MR MAST CBAR 4500072 450007 200101 200106 1.0 .0 .0 1 MR MAST CBAR 4500073 450007 200106 200114 1.0 .0 .0 1 MR MAST CBAR 4500074 450007 200114 200121 1.0 .0 .0 1 MR MAST CBAR 4500075 450007 200121 200129 1.0 .0 .0 1 MR MAST CBAR 4500076 450007 200129 200137 1.0 .0 .0 1 MR MAST CBAR 4500077 450007 200137 200145 1.0 .0 .0 1 MR MAST CBAR 4500078 450007 200145 200153 1.0 .0 .0 1 MR MAST CBAR 4500079 450007 200153 200155 1.0 .0 .0 1 MR MAST CELAS2 189831 28125. 189073 1 18983 1 FWD R X CELAS2 189832 28125. 189073 2 18983 2 FWD R Y CELAS2 189833 4500. 189073 3 18983 3 FWD R Z CELAS2 189871 28125. 189077 1 18987 1 FWD L X CELAS2 189872 28125. 189077 2 18987 2 FWD L Y CELAS2 189873 4500. 189077 3 18987 3 FWD L Z CELAS2 211831 28125. 211073 1 21183 1 AFT R X CELAS2 211832 28125. 211073 2 21183 2 AFT R Y CELAS2 211833 4500. 211073 3 21183 3 AFT R Z CELAS2 211871 28125. 211077 1 21187 1 AFT L X CELAS2 211872 28125. 211077 2 21187 2 AFT L Y CELAS2 211873 4500. 211077 3 21187 3 AFT L Z CELAS2 214853 20000. 214075 3 21485 3 AFT C Z CONM2 209 209 0 7297.399 BASICWT +BASICWT4.7561+6 5.3412+7 5.3697+7 CONM2 109765 19765 12.896 CONM2 290070 200070 34.465 CONM2 290078 200078 22.740 CONM2 290079 200079 51.048 CONM2 290086 200086 60.052 CONM2 290087 200087 60.052 CONM2 290095 200095 64.933 CONM2 290096 200096 64.933 CONM2 290101 200101 57.277 CONM2 290106 200106 47.013 CONM2 290114 200114 66.626 CONM2 290121 200121 54.350 CONM2 290129 200129 13.810 CONM2 290137 200137 9.253 CONM2 290145 200145 12.065 CONM2 290153 200153 5.852 CONM2 290155 200155 6.124 CONM2 390153 200153 458.000 MR BLADE CONM2 490153 200153 489.500 MR HUB 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) NORMAL MODES ANALYSIS USING RIGID ELEMENTS I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ CONM2 9200070 200070 26.100 BASIC CRIGD1 200078 200078 189073 189077 211073 CRIGD1 353252 200078 200079 CRIGD1 353253 200079 200087 CRIGD1 353254 200087 200096 CRIGD2 2091 209 19765 1236 CRIGD2 2092 209 18983 12356 18987 12356 CRIGD2 2093 209 21183 12356 21187 12356 CRIGD2 2094 209 21485 234 CRIGD2 353255 200096 200101 123 CRIGD3 200078 200078 456 189073 1 189077 2 +CRG31 +CRG31 211073 3 +CRG32 +CRG32 MSET 211077 123456 214075 123456 CRIGDR 357000 19765 200078 3 EIGR 1000 GIV 15 +EIGR +EIGR MAX GRID 209 0 191.7117.001757 56.030010 GRID 18983 0 189.94 12.375 77.57 0 4 GRID 18987 0 189.94 -12.375 77.57 0 4 GRID 19765 0 196.90 .0 64.63 0 45 GRID 21183 0 211.72 12.375 77.57 0 4 GRID 21187 0 211.72 -12.375 77.57 0 4 GRID 21485 0 214.50 .0 77.57 0 156 GRID 189073 0 189.94 12.375 77.57 0 0 GRID 189077 0 189.94 -12.375 77.57 0 0 GRID 200070 0 200.00 .0 70.00 0 0 GRID 200078 0 200.00 .0 77.57 0 0 GRID 200079 0 200.00 .0 79.05 0 0 GRID 200086 0 200.00 .0 86.25 0 0 GRID 200087 0 200.00 .0 86.25 0 0 GRID 200095 0 200.00 .0 95.00 0 0 GRID 200096 0 200.00 .0 95.00 0 0 GRID 200101 0 200.00 .0 100.675 0 0 GRID 200106 0 200.00 .0 106.00 0 0 GRID 200114 0 200.00 .0 114.00 0 0 GRID 200121 0 200.00 .0 121.00 0 0 GRID 200129 0 200.00 .0 129.00 0 0 GRID 200137 0 200.00 .0 137.00 0 0 GRID 200145 0 200.00 .0 145.00 0 0 GRID 200153 0 200.00 .0 152.76 0 0 GRID 200155 0 200.00 .0 154.97 0 0 GRID 211073 0 211.72 12.375 77.57 0 0 GRID 211077 0 211.72 -12.375 77.57 0 0 GRID 214075 0 214.50 .0 77.57 0 0 MAT1 1 1.0+6 1.0+6 MAT1 10 1.0 1.0 MAT1 57 3.2+6 .8+6 .32 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) NORMAL MODES ANALYSIS USING RIGID ELEMENTS I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ MAT1 76 3.2+6 .8+6 .32 MAT1 2014 10.5+6 4.0+6 MAT1 2024 10.5+6 4.0+6 MAT1 4130 29.0+6 11.0+6 MAT1 4340 29.0+6 11.0+6 MAT1 4620 29.0+6 11.0+6 MAT1 7075 10.3+6 3.9+6 MAT1 9046 17.5+6 6.5+6 OMIT 200070 456 OMIT 200078 456 OMIT 200086 456 OMIT 200095 456 OMIT 200101 456 OMIT 200106 456 OMIT 200114 456 OMIT 200121 456 OMIT 200129 456 OMIT 200137 456 OMIT 200145 456 OMIT 200153 456 OMIT 200155 456 PARAM GRDEQ 0 PARAM GRDPNT 0 PARAM WTMASS .00259 PBAR 353025 1 100. 1950. 1950. 1480. PBAR 450007 1 100. 120.07 120.07 91.088 SUPORT 209 123456 ENDDATA TOTAL COUNT= 121 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CBAR 3530251 353025 200070 200078 1.0 .0 .0 1 MR G/B 2- CBAR 4500050 450007 200079 200086 1.0 .0 .0 1 MRBRG1 3- +MRBRG1 56 4- CBAR 4500070 450007 200086 200095 1.0 .0 .0 1 MR MAST 5- CBAR 4500071 450007 200095 200101 1.0 .0 .0 1 MR MAST 6- CBAR 4500072 450007 200101 200106 1.0 .0 .0 1 MR MAST 7- CBAR 4500073 450007 200106 200114 1.0 .0 .0 1 MR MAST 8- CBAR 4500074 450007 200114 200121 1.0 .0 .0 1 MR MAST 9- CBAR 4500075 450007 200121 200129 1.0 .0 .0 1 MR MAST 10- CBAR 4500076 450007 200129 200137 1.0 .0 .0 1 MR MAST 11- CBAR 4500077 450007 200137 200145 1.0 .0 .0 1 MR MAST 12- CBAR 4500078 450007 200145 200153 1.0 .0 .0 1 MR MAST 13- CBAR 4500079 450007 200153 200155 1.0 .0 .0 1 MR MAST 14- CELAS2 189831 28125. 189073 1 18983 1 FWD R X 15- CELAS2 189832 28125. 189073 2 18983 2 FWD R Y 16- CELAS2 189833 4500. 189073 3 18983 3 FWD R Z 17- CELAS2 189871 28125. 189077 1 18987 1 FWD L X 18- CELAS2 189872 28125. 189077 2 18987 2 FWD L Y 19- CELAS2 189873 4500. 189077 3 18987 3 FWD L Z 20- CELAS2 211831 28125. 211073 1 21183 1 AFT R X 21- CELAS2 211832 28125. 211073 2 21183 2 AFT R Y 22- CELAS2 211833 4500. 211073 3 21183 3 AFT R Z 23- CELAS2 211871 28125. 211077 1 21187 1 AFT L X 24- CELAS2 211872 28125. 211077 2 21187 2 AFT L Y 25- CELAS2 211873 4500. 211077 3 21187 3 AFT L Z 26- CELAS2 214853 20000. 214075 3 21485 3 AFT C Z 27- CONM2 209 209 0 7297.399 BASICWT 28- +BASICWT4.7561+6 5.3412+7 5.3697+7 29- CONM2 109765 19765 12.896 30- CONM2 290070 200070 34.465 31- CONM2 290078 200078 22.740 32- CONM2 290079 200079 51.048 33- CONM2 290086 200086 60.052 34- CONM2 290087 200087 60.052 35- CONM2 290095 200095 64.933 36- CONM2 290096 200096 64.933 37- CONM2 290101 200101 57.277 38- CONM2 290106 200106 47.013 39- CONM2 290114 200114 66.626 40- CONM2 290121 200121 54.350 41- CONM2 290129 200129 13.810 42- CONM2 290137 200137 9.253 43- CONM2 290145 200145 12.065 44- CONM2 290153 200153 5.852 45- CONM2 290155 200155 6.124 46- CONM2 390153 200153 458.000 MR BLADE 47- CONM2 490153 200153 489.500 MR HUB 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) NORMAL MODES ANALYSIS USING RIGID ELEMENTS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CONM2 9200070 200070 26.100 BASIC 49- CRIGD1 200078 200078 189073 189077 211073 50- CRIGD1 353252 200078 200079 51- CRIGD1 353253 200079 200087 52- CRIGD1 353254 200087 200096 53- CRIGD2 2091 209 19765 1236 54- CRIGD2 2092 209 18983 12356 18987 12356 55- CRIGD2 2093 209 21183 12356 21187 12356 56- CRIGD2 2094 209 21485 234 57- CRIGD2 353255 200096 200101 123 58- CRIGD3 200078 200078 456 189073 1 189077 2 +CRG31 59- +CRG31 211073 3 +CRG32 60- +CRG32 MSET 211077 123456 214075 123456 61- CRIGDR 357000 19765 200078 3 62- EIGR 1000 GIV 15 +EIGR 63- +EIGR MAX 64- GRID 209 0 191.7117.001757 56.030010 65- GRID 18983 0 189.94 12.375 77.57 0 4 66- GRID 18987 0 189.94 -12.375 77.57 0 4 67- GRID 19765 0 196.90 .0 64.63 0 45 68- GRID 21183 0 211.72 12.375 77.57 0 4 69- GRID 21187 0 211.72 -12.375 77.57 0 4 70- GRID 21485 0 214.50 .0 77.57 0 156 71- GRID 189073 0 189.94 12.375 77.57 0 0 72- GRID 189077 0 189.94 -12.375 77.57 0 0 73- GRID 200070 0 200.00 .0 70.00 0 0 74- GRID 200078 0 200.00 .0 77.57 0 0 75- GRID 200079 0 200.00 .0 79.05 0 0 76- GRID 200086 0 200.00 .0 86.25 0 0 77- GRID 200087 0 200.00 .0 86.25 0 0 78- GRID 200095 0 200.00 .0 95.00 0 0 79- GRID 200096 0 200.00 .0 95.00 0 0 80- GRID 200101 0 200.00 .0 100.675 0 0 81- GRID 200106 0 200.00 .0 106.00 0 0 82- GRID 200114 0 200.00 .0 114.00 0 0 83- GRID 200121 0 200.00 .0 121.00 0 0 84- GRID 200129 0 200.00 .0 129.00 0 0 85- GRID 200137 0 200.00 .0 137.00 0 0 86- GRID 200145 0 200.00 .0 145.00 0 0 87- GRID 200153 0 200.00 .0 152.76 0 0 88- GRID 200155 0 200.00 .0 154.97 0 0 89- GRID 211073 0 211.72 12.375 77.57 0 0 90- GRID 211077 0 211.72 -12.375 77.57 0 0 91- GRID 214075 0 214.50 .0 77.57 0 0 92- MAT1 1 1.0+6 1.0+6 93- MAT1 10 1.0 1.0 94- MAT1 57 3.2+6 .8+6 .32 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) NORMAL MODES ANALYSIS USING RIGID ELEMENTS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- MAT1 76 3.2+6 .8+6 .32 96- MAT1 2014 10.5+6 4.0+6 97- MAT1 2024 10.5+6 4.0+6 98- MAT1 4130 29.0+6 11.0+6 99- MAT1 4340 29.0+6 11.0+6 100- MAT1 4620 29.0+6 11.0+6 101- MAT1 7075 10.3+6 3.9+6 102- MAT1 9046 17.5+6 6.5+6 103- OMIT 200070 456 104- OMIT 200078 456 105- OMIT 200086 456 106- OMIT 200095 456 107- OMIT 200101 456 108- OMIT 200106 456 109- OMIT 200114 456 110- OMIT 200121 456 111- OMIT 200129 456 112- OMIT 200137 456 113- OMIT 200145 456 114- OMIT 200153 456 115- OMIT 200155 456 116- PARAM GRDEQ 0 117- PARAM GRDPNT 0 118- PARAM WTMASS .00259 119- PBAR 353025 1 100. 1950. 1950. 1480. 120- PBAR 450007 1 100. 120.07 120.07 91.088 121- SUPORT 209 123456 ENDDATA 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 22 PROFILE 117 MAX WAVEFRONT 6 AVG WAVEFRONT 4.179 RMS WAVEFRONT 4.379 RMS BANDWIDTH 7.604 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 2 PROFILE 45 MAX WAVEFRONT 2 AVG WAVEFRONT 1.607 RMS WAVEFRONT 1.680 RMS BANDWIDTH 1.680 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 22 2 PROFILE (P) 117 45 MAXIMUM WAVEFRONT (C-MAX) 6 2 AVERAGE WAVEFRONT (C-AVG) 4.179 1.607 RMS WAVEFRONT (C-RMS) 4.379 1.680 RMS BANDWITCH (B-RMS) 7.604 1.680 NUMBER OF GRID POINTS (N) 28 NUMBER OF ELEMENTS (NON-RIGID) 46 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 11 MAXIMUM NODAL DEGREE 2 MINIMUM NODAL DEGREE 0 NUMBER OF UNIQUE EDGES 17 MATRIX DENSITY, PERCENT 7.908 NUMBER OF POINTS OF ZERO DEGREE 4 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 7 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 209 28 18983 2 18987 4 19765 27 SEQGP 21183 6 21187 8 21485 10 189073 1 SEQGP 189077 3 200070 11 200078 12 200079 13 SEQGP 200086 14 200087 26 200095 15 200096 25 SEQGP 200101 16 200106 17 200114 18 200121 19 SEQGP 200129 20 200137 21 200145 22 200153 23 SEQGP 200155 24 211073 5 211077 7 214075 9 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 3530251 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS2 ELEMENTS (ELEMENT TYPE 12) STARTING WITH ID 189831 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONM2 ELEMENTS (ELEMENT TYPE 30) STARTING WITH ID 209 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 8.91448792D+03 0.00000000D+00 0.00000000D+00 0.00000000D+00 6.18744993D+05 -1.28215298D+01 * * 0.00000000D+00 8.91448792D+03 0.00000000D+00 -6.18744993D+05 0.00000000D+00 1.72237458D+06 * * 0.00000000D+00 0.00000000D+00 8.91448792D+03 1.28215298D+01 -1.72237458D+06 0.00000000D+00 * * 0.00000000D+00 -6.18744993D+05 1.28215298D+01 5.63588906D+07 -2.45803729D+03 -1.20357550D+08 * * 6.18744993D+05 0.00000000D+00 -1.72237458D+06 -2.45803729D+03 4.37886530D+08 -7.18390448D+02 * * -1.28215298D+01 1.72237458D+06 0.00000000D+00 -1.20357550D+08 -7.18390448D+02 3.86568740D+08 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 8.914487919D+03 0.000000000D+00 1.438280018D-03 6.940892162D+01 Y 8.914487919D+03 1.932107142D+02 0.000000000D+00 6.940892162D+01 Z 8.914487919D+03 1.932107142D+02 1.438280018D-03 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 1.341246786D+07 -1.921965004D+01 8.093881273D+05 * * -1.921965004D+01 6.215888526D+07 -1.715381118D+02 * * 8.093881273D+05 -1.715381118D+02 5.378751741D+07 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 1.339624878D+07 * * 6.215888526D+07 * * 5.380373649D+07 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 9.997992859D-01 0.000000000D+00 2.003466836D-02 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * -2.003466836D-02 0.000000000D+00 9.997992859D-01 * *** *** 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGE 3113, RIGID ELEMENTS ARE BEING PROCESSED IN GP4 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGE 2118, SUBROUTINE GP4PRT - DIAG 21 SET-DOF VS. DISP SETS FOLLOWS. 0 (SIL) INT DOF EXT GP. DOF SAUTO SB SG L A F N G R O S M ----------------------------------------------------------------------------------------------------------------------------------- 1 189073 - 1 1 1 2 189073 - 2 2 2 3 189073 - 3 3 3 4 189073 - 4 4 4 5 189073 - 5 5 5 6 189073 - 6 6 6 7 18983 - 1 7 7 8 18983 - 2 8 8 9 18983 - 3 9 9 10 18983 - 4 1 1 10 1 11 18983 - 5 11 10 12 18983 - 6 12 11 13 189077 - 1 13 12 14 189077 - 2 14 13 15 189077 - 3 15 14 16 189077 - 4 16 15 17 189077 - 5 17 16 18 189077 - 6 18 17 19 18987 - 1 19 18 20 18987 - 2 20 19 21 18987 - 3 21 20 22 18987 - 4 2 2 22 2 23 18987 - 5 23 21 24 18987 - 6 24 22 25 211073 - 1 25 23 26 211073 - 2 26 24 27 211073 - 3 27 25 28 211073 - 4 28 26 29 211073 - 5 29 27 30 211073 - 6 30 28 31 21183 - 1 31 29 32 21183 - 2 32 30 33 21183 - 3 33 31 34 21183 - 4 3 3 34 3 35 21183 - 5 35 32 36 21183 - 6 36 33 37 211077 - 1 37 34 38 211077 - 2 38 35 39 211077 - 3 39 36 40 211077 - 4 40 37 41 211077 - 5 41 38 42 211077 - 6 42 39 43 21187 - 1 43 40 44 21187 - 2 44 41 45 21187 - 3 45 42 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 (SIL) INT DOF EXT GP. DOF SAUTO SB SG L A F N G R O S M ----------------------------------------------------------------------------------------------------------------------------------- 46 21187 - 4 4 4 46 4 47 21187 - 5 47 43 48 21187 - 6 48 44 49 214075 - 1 49 45 50 214075 - 2 50 46 51 214075 - 3 51 47 52 214075 - 4 52 48 53 214075 - 5 53 49 54 214075 - 6 54 50 55 21485 - 1 5 5 55 5 56 21485 - 2 56 51 57 21485 - 3 57 52 58 21485 - 4 58 53 59 21485 - 5 6 6 59 6 60 21485 - 6 7 7 60 7 61 200070 - 1 1 1 1 8 61 62 200070 - 2 2 2 2 9 62 63 200070 - 3 3 3 3 10 63 64 200070 - 4 4 11 64 1 65 200070 - 5 5 12 65 2 66 200070 - 6 6 13 66 3 67 200078 - 1 4 4 7 14 67 68 200078 - 2 5 5 8 15 68 69 200078 - 3 69 54 70 200078 - 4 9 16 70 4 71 200078 - 5 10 17 71 5 72 200078 - 6 11 18 72 6 73 200079 - 1 73 55 74 200079 - 2 74 56 75 200079 - 3 75 57 76 200079 - 4 76 58 77 200079 - 5 77 59 78 200079 - 6 78 60 79 200086 - 1 6 6 12 19 79 80 200086 - 2 7 7 13 20 80 81 200086 - 3 8 8 14 21 81 82 200086 - 4 15 22 82 7 83 200086 - 5 16 23 83 8 84 200086 - 6 17 24 84 9 85 200095 - 1 9 9 18 25 85 86 200095 - 2 10 10 19 26 86 87 200095 - 3 11 11 20 27 87 88 200095 - 4 21 28 88 10 89 200095 - 5 22 29 89 11 90 200095 - 6 23 30 90 12 91 200101 - 1 91 61 92 200101 - 2 92 62 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 (SIL) INT DOF EXT GP. DOF SAUTO SB SG L A F N G R O S M ----------------------------------------------------------------------------------------------------------------------------------- 93 200101 - 3 93 63 94 200101 - 4 24 31 94 13 95 200101 - 5 25 32 95 14 96 200101 - 6 26 33 96 15 97 200106 - 1 12 12 27 34 97 98 200106 - 2 13 13 28 35 98 99 200106 - 3 14 14 29 36 99 100 200106 - 4 30 37 100 16 101 200106 - 5 31 38 101 17 102 200106 - 6 32 39 102 18 103 200114 - 1 15 15 33 40 103 104 200114 - 2 16 16 34 41 104 105 200114 - 3 17 17 35 42 105 106 200114 - 4 36 43 106 19 107 200114 - 5 37 44 107 20 108 200114 - 6 38 45 108 21 109 200121 - 1 18 18 39 46 109 110 200121 - 2 19 19 40 47 110 111 200121 - 3 20 20 41 48 111 112 200121 - 4 42 49 112 22 113 200121 - 5 43 50 113 23 114 200121 - 6 44 51 114 24 115 200129 - 1 21 21 45 52 115 116 200129 - 2 22 22 46 53 116 117 200129 - 3 23 23 47 54 117 118 200129 - 4 48 55 118 25 119 200129 - 5 49 56 119 26 120 200129 - 6 50 57 120 27 121 200137 - 1 24 24 51 58 121 122 200137 - 2 25 25 52 59 122 123 200137 - 3 26 26 53 60 123 124 200137 - 4 54 61 124 28 125 200137 - 5 55 62 125 29 126 200137 - 6 56 63 126 30 127 200145 - 1 27 27 57 64 127 128 200145 - 2 28 28 58 65 128 129 200145 - 3 29 29 59 66 129 130 200145 - 4 60 67 130 31 131 200145 - 5 61 68 131 32 132 200145 - 6 62 69 132 33 133 200153 - 1 30 30 63 70 133 134 200153 - 2 31 31 64 71 134 135 200153 - 3 32 32 65 72 135 136 200153 - 4 66 73 136 34 137 200153 - 5 67 74 137 35 138 200153 - 6 68 75 138 36 139 200155 - 1 33 33 69 76 139 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 (SIL) INT DOF EXT GP. DOF SAUTO SB SG L A F N G R O S M ----------------------------------------------------------------------------------------------------------------------------------- 140 200155 - 2 34 34 70 77 140 141 200155 - 3 35 35 71 78 141 142 200155 - 4 72 79 142 37 143 200155 - 5 73 80 143 38 144 200155 - 6 74 81 144 39 145 200096 - 1 145 64 146 200096 - 2 146 65 147 200096 - 3 147 66 148 200096 - 4 148 67 149 200096 - 5 149 68 150 200096 - 6 150 69 151 200087 - 1 151 70 152 200087 - 2 152 71 153 200087 - 3 153 72 154 200087 - 4 154 73 155 200087 - 5 155 74 156 200087 - 6 156 75 157 19765 - 1 157 76 158 19765 - 2 158 77 159 19765 - 3 159 78 160 19765 - 4 8 82 160 8 161 19765 - 5 9 83 161 9 162 19765 - 6 162 79 163 209 - 1 36 75 84 163 1 164 209 - 2 37 76 85 164 2 165 209 - 3 38 77 86 165 3 166 209 - 4 39 78 87 166 4 167 209 - 5 40 79 88 167 5 168 209 - 6 41 80 89 168 6 0--- C O L U M N T O T A L S --- 0 0 9 35 41 80 89 168 6 39 9 79 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGE 2119, SUBROUTINE GP4PRT - DIAG 22 SET DISP SETS VS. DOF FOLLOWS 0 MPC DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 189073-1 189073-2 189073-3 189073-4 189073-5 189073-6 18983-1 18983-2 18983-3 18983-5 11= 18983-6 189077-1 189077-2 189077-3 189077-4 189077-5 189077-6 18987-1 18987-2 18987-3 21= 18987-5 18987-6 211073-1 211073-2 211073-3 211073-4 211073-5 211073-6 21183-1 21183-2 31= 21183-3 21183-5 21183-6 211077-1 211077-2 211077-3 211077-4 211077-5 211077-6 21187-1 41= 21187-2 21187-3 21187-5 21187-6 214075-1 214075-2 214075-3 214075-4 214075-5 214075-6 51= 21485-2 21485-3 21485-4 200078-3 200079-1 200079-2 200079-3 200079-4 200079-5 200079-6 61= 200101-1 200101-2 200101-3 200096-1 200096-2 200096-3 200096-4 200096-5 200096-6 200087-1 71= 200087-2 200087-3 200087-4 200087-5 200087-6 19765-1 19765-2 19765-3 19765-6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 SPC DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 18983-4 18987-4 21183-4 21187-4 21485-1 21485-5 21485-6 19765-4 19765-5 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 OMIT DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 200070-4 200070-5 200070-6 200078-4 200078-5 200078-6 200086-4 200086-5 200086-6 200095-4 11= 200095-5 200095-6 200101-4 200101-5 200101-6 200106-4 200106-5 200106-6 200114-4 200114-5 21= 200114-6 200121-4 200121-5 200121-6 200129-4 200129-5 200129-6 200137-4 200137-5 200137-6 31= 200145-4 200145-5 200145-6 200153-4 200153-5 200153-6 200155-4 200155-5 200155-6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 ANALYSIS DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 200070-1 200070-2 200070-3 200078-1 200078-2 200086-1 200086-2 200086-3 200095-1 200095-2 11= 200095-3 200106-1 200106-2 200106-3 200114-1 200114-2 200114-3 200121-1 200121-2 200121-3 21= 200129-1 200129-2 200129-3 200137-1 200137-2 200137-3 200145-1 200145-2 200145-3 200153-1 31= 200153-2 200153-3 200155-1 200155-2 200155-3 209-1 209-2 209-3 209-4 209-5 41= 209-6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 SUPORT DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 209-1 209-2 209-3 209-4 209-5 209-6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 PERM SPC DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 18983-4 18987-4 21183-4 21187-4 21485-1 21485-5 21485-6 19765-4 19765-5 0*** USER WARNING MESSAGE 3017 0 ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS. (USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION VIA A 'PARAM AUTOSPC' BULK DATA CARD) 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS G R I D P O I N T S I N G U L A R I T Y T A B L E SPC 0 MPC 0 POINT SINGULARITY LIST OF COORDINATE COMBINATIONS THAT WILL REMOVE SINGULARITY ID. TYPE ORDER STRONGEST COMBINATION WEAKER COMBINATION WEAKEST COMBINATION 209 G 3 1 2 3 209 G 3 4 5 6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGE 3028 B = 8 BBAR = 3 C = 7 CBAR = 9 R = 10 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC REAL DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 79) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 0, EPSILON SUB E = 3.5812325E-13 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 41, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 41 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 15 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 37 0.0 0.0 0.0 2.308852E+01 0.0 2 38 0.0 0.0 0.0 2.308852E+01 0.0 3 39 0.0 0.0 0.0 2.308852E+01 0.0 4 40 0.0 0.0 0.0 4.745215E+00 0.0 5 41 0.0 0.0 0.0 2.199128E+01 0.0 6 36 0.0 0.0 0.0 3.051504E+03 0.0 7 35 3.523143E+02 1.877004E+01 2.987344E+00 3.058785E+00 1.077654E+03 8 34 4.491364E+02 2.119284E+01 3.372945E+00 6.502028E+00 2.920298E+03 9 33 2.364993E+04 1.537853E+02 2.447569E+01 8.486223E-01 2.006985E+04 10 32 2.840193E+04 1.685287E+02 2.682218E+01 8.414580E-01 2.389903E+04 11 31 1.495553E+05 3.867238E+02 6.154901E+01 5.886284E-01 8.803251E+04 12 30 1.953452E+05 4.419787E+02 7.034309E+01 4.855810E-01 9.485592E+04 13 29 5.072981E+05 7.122486E+02 1.133579E+02 3.867738E-01 1.962096E+05 14 28 5.446138E+05 7.379795E+02 1.174531E+02 3.940395E-01 2.145993E+05 15 27 1.069645E+06 1.034236E+03 1.646038E+02 1.257546E+00 1.345127E+06 16 26 3.326742E+06 1.823936E+03 2.902884E+02 0.0 0.0 17 25 3.333666E+06 1.825833E+03 2.905904E+02 0.0 0.0 18 24 8.023708E+06 2.832615E+03 4.508247E+02 0.0 0.0 19 23 8.048828E+06 2.837046E+03 4.515298E+02 0.0 0.0 20 22 1.904542E+07 4.364106E+03 6.945691E+02 0.0 0.0 21 21 1.908568E+07 4.368716E+03 6.953028E+02 0.0 0.0 22 20 2.978056E+07 5.457157E+03 8.685334E+02 0.0 0.0 23 18 3.754954E+07 6.127768E+03 9.752645E+02 0.0 0.0 24 19 3.754995E+07 6.127802E+03 9.752699E+02 0.0 0.0 25 17 7.120777E+07 8.438470E+03 1.343024E+03 0.0 0.0 26 16 7.133043E+07 8.445734E+03 1.344180E+03 0.0 0.0 27 15 8.488149E+07 9.213115E+03 1.466313E+03 0.0 0.0 28 14 9.721060E+07 9.859544E+03 1.569195E+03 0.0 0.0 29 12 1.444611E+08 1.201920E+04 1.912915E+03 0.0 0.0 30 13 1.452864E+08 1.205348E+04 1.918371E+03 0.0 0.0 31 11 1.620432E+08 1.272962E+04 2.025981E+03 0.0 0.0 32 9 2.362997E+08 1.537204E+04 2.446537E+03 0.0 0.0 33 10 2.363582E+08 1.537395E+04 2.446839E+03 0.0 0.0 34 8 2.386800E+08 1.544927E+04 2.458828E+03 0.0 0.0 35 7 2.969673E+08 1.723274E+04 2.742675E+03 0.0 0.0 36 6 3.486627E+08 1.867251E+04 2.971823E+03 0.0 0.0 37 4 6.061834E+08 2.462079E+04 3.918521E+03 0.0 0.0 38 5 6.061843E+08 2.462081E+04 3.918523E+03 0.0 0.0 39 3 7.824220E+08 2.797181E+04 4.451851E+03 0.0 0.0 40 2 1.548007E+09 3.934471E+04 6.261906E+03 0.0 0.0 41 1 2.871167E+09 5.358327E+04 8.528042E+03 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 E Q U I L I B R I U M C H E C K L O A D S 0 RESULTANT LOADS AT POINT 0 IN BASIC COORDINATE SYSTEM 0 SUBCASE 1, MODE 1, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 1.323489E-23 0.000000E+00 0.000000E+00 1.033976E-25 3.841455E-14 2.584939E-26 ---TOTAL 1.323489E-23 0.000000E+00 0.000000E+00 1.033976E-25 3.841455E-14 2.584939E-26 0 SUBCASE 1, MODE 2, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 2.646978E-23 0.000000E+00 0.000000E+00 ---TOTAL 0.000000E+00 0.000000E+00 0.000000E+00 2.646978E-23 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 3, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 -1.388562E-17 -1.105679E-14 -2.818896E-16 ---TOTAL 0.000000E+00 0.000000E+00 0.000000E+00 -1.388562E-17 -1.105679E-14 -2.818896E-16 0 SUBCASE 1, MODE 4, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 2.293550E-11 8.240058E-12 -5.267936E-12 ---TOTAL 0.000000E+00 0.000000E+00 0.000000E+00 2.293550E-11 8.240058E-12 -5.267936E-12 0 SUBCASE 1, MODE 5, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 1.804274E-12 -2.933340E-08 2.413113E-10 ---TOTAL 0.000000E+00 0.000000E+00 0.000000E+00 1.804274E-12 -2.933340E-08 2.413113E-10 0 SUBCASE 1, MODE 6, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 1.355253E-20 0.000000E+00 0.000000E+00 4.922538E-11 4.114644E-11 -1.708888E-11 ---TOTAL 1.355253E-20 0.000000E+00 0.000000E+00 4.922538E-11 4.114644E-11 -1.708888E-11 0 SUBCASE 1, MODE 7, FREQUENCY 2.987344E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 -2.168404E-19 0.000000E+00 -5.220482E-05 -3.014457E-04 -3.262815E-05 ---TOTAL 0.000000E+00 -2.168404E-19 0.000000E+00 -5.220482E-05 -3.014457E-04 -3.262815E-05 0 SUBCASE 1, MODE 8, FREQUENCY 3.372945E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE -7.105427E-15 0.000000E+00 0.000000E+00 -3.492460E-10 4.683021E-10 -3.771675E-09 ---TOTAL -7.105427E-15 0.000000E+00 0.000000E+00 -3.492460E-10 4.683021E-10 -3.771675E-09 0 SUBCASE 1, MODE 9, FREQUENCY 2.447569E+01 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 1.387779E-17 0.000000E+00 0.000000E+00 -1.222361E-09 1.679503E-08 -2.734305E-08 ---TOTAL 1.387779E-17 0.000000E+00 0.000000E+00 -1.222361E-09 1.679503E-08 -2.734305E-08 0 SUBCASE 1, MODE 10, FREQUENCY 2.682218E+01 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 -3.988580E-04 -7.718182E-04 -6.255479E-03 ---TOTAL 0.000000E+00 0.000000E+00 0.000000E+00 -3.988580E-04 -7.718182E-04 -6.255479E-03 0 SUBCASE 1, MODE 11, FREQUENCY 6.154901E+01 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE -1.455192E-11 0.000000E+00 0.000000E+00 -9.657501E-04 9.130112E-03 -2.926317E-02 ---TOTAL -1.455192E-11 0.000000E+00 0.000000E+00 -9.657501E-04 9.130112E-03 -2.926317E-02 0 SUBCASE 1, MODE 12, FREQUENCY 7.034309E+01 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 5.684342E-14 0.000000E+00 0.000000E+00 7.916242E-09 5.304981E-09 2.083834E-07 ---TOTAL 5.684342E-14 0.000000E+00 0.000000E+00 7.916242E-09 5.304981E-09 2.083834E-07 0 SUBCASE 1, MODE 13, FREQUENCY 1.133579E+02 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 1.455192E-11 -1.387779E-17 0.000000E+00 -1.479894E-04 1.561460E-02 -7.868833E-03 ---TOTAL 1.455192E-11 -1.387779E-17 0.000000E+00 -1.479894E-04 1.561460E-02 -7.868833E-03 0 SUBCASE 1, MODE 14, FREQUENCY 1.174531E+02 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE -1.705719E-13 -7.275958E-12 0.000000E+00 1.396984E-09 -9.642578E-09 3.929017E-08 ---TOTAL -1.705719E-13 -7.275958E-12 0.000000E+00 1.396984E-09 -9.642578E-09 3.929017E-08 0 SUBCASE 1, MODE 15, FREQUENCY 1.646038E+02 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 -8.181558E-04 -1.340751E-01 -2.643341E-02 ---TOTAL 0.000000E+00 0.000000E+00 0.000000E+00 -8.181558E-04 -1.340751E-01 -2.643341E-02 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -9.633720E-08 0.0 -4.021333E-07 7.065482E-10 1.257982E-06 -1.692645E-10 18983 G 0.0 0.0 -6.245005E-13 0.0 0.0 0.0 18987 G 0.0 0.0 -6.245005E-13 0.0 0.0 0.0 21183 G 0.0 0.0 6.245005E-13 0.0 0.0 0.0 21187 G 0.0 0.0 6.245005E-13 0.0 0.0 0.0 21485 G 0.0 0.0 3.885781E-12 0.0 0.0 0.0 189073 G 0.0 0.0 6.245005E-13 0.0 0.0 0.0 189077 G 0.0 0.0 6.245005E-13 0.0 0.0 0.0 200078 G 9.590743E-08 0.0 8.359672E-08 0.0 -1.200456E-08 0.0 200079 G -9.207447E-11 0.0 8.807942E-08 0.0 0.0 0.0 200101 G 5.218474E-10 0.0 2.304572E-07 0.0 0.0 0.0 211073 G 0.0 0.0 -6.245005E-13 0.0 0.0 0.0 211077 G 0.0 0.0 -6.245005E-13 0.0 0.0 0.0 214075 G 0.0 0.0 -3.885781E-12 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 0.0 0.0 0.0 -2.101853E-11 0.0 0.0 18983 G 0.0 0.0 4.246167E-13 0.0 0.0 0.0 18987 G 0.0 0.0 -4.246167E-13 0.0 0.0 0.0 21183 G 0.0 0.0 4.246167E-13 0.0 0.0 0.0 21187 G 0.0 0.0 -4.246167E-13 0.0 0.0 0.0 189073 G 0.0 0.0 -4.246167E-13 0.0 0.0 0.0 189077 G 0.0 0.0 4.246167E-13 0.0 0.0 0.0 200078 G 0.0 -1.342849E-09 0.0 3.298063E-08 0.0 0.0 200079 G 0.0 -8.939063E-11 0.0 0.0 0.0 0.0 200101 G 0.0 1.432240E-09 0.0 0.0 0.0 0.0 211073 G 0.0 0.0 -4.246167E-13 0.0 0.0 0.0 211077 G 0.0 0.0 4.246167E-13 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 2.857787E-08 0.0 1.154840E-07 -2.029054E-10 -3.370324E-07 5.021103E-11 18983 G -2.123302E-10 0.0 -2.091838E-11 0.0 0.0 0.0 18987 G -2.123302E-10 0.0 -2.091838E-11 0.0 0.0 0.0 21183 G -2.123302E-10 0.0 4.183676E-11 0.0 0.0 0.0 21187 G -2.123302E-10 0.0 4.183676E-11 0.0 0.0 0.0 21485 G 0.0 0.0 2.182787E-10 0.0 0.0 0.0 189073 G 2.123302E-10 0.0 2.091838E-11 0.0 0.0 0.0 189077 G 2.123302E-10 0.0 2.091838E-11 0.0 0.0 0.0 200078 G -2.843314E-08 0.0 -2.421439E-08 0.0 2.607519E-11 0.0 200079 G 5.774033E-11 0.0 -2.421439E-08 0.0 0.0 0.0 200101 G -2.024715E-10 0.0 -6.705523E-08 0.0 0.0 0.0 211073 G 2.123302E-10 0.0 -4.183676E-11 0.0 0.0 0.0 211077 G 2.123302E-10 0.0 -4.183676E-11 0.0 0.0 0.0 214075 G 0.0 0.0 -2.182787E-10 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -4.792809E-06 -8.913342E-04 -2.000607E-05 1.901989E-02 6.257930E-05 -7.387653E-03 18983 G 4.454960E-06 2.302457E-04 -1.401777E-05 0.0 0.0 0.0 18987 G -1.239089E-05 2.302457E-04 -2.126909E-05 0.0 0.0 0.0 21183 G 4.454960E-06 2.154214E-04 -1.328259E-05 0.0 0.0 0.0 21187 G -1.239089E-05 2.154214E-04 -2.053391E-05 0.0 0.0 0.0 21485 G 0.0 0.0 2.851290E-06 0.0 0.0 0.0 189073 G -4.454960E-06 -2.302457E-04 1.401777E-05 0.0 0.0 0.0 189077 G 1.239089E-05 -2.302457E-04 2.126909E-05 0.0 0.0 0.0 200078 G 4.792807E-06 2.458370E-02 4.161944E-06 -4.493844E-01 -2.460596E-11 1.379097E-12 200079 G 1.304736E-12 -4.524775E-03 4.375824E-06 0.0 0.0 -2.743273E-12 200101 G 9.647674E-13 -1.916759E-02 1.146831E-05 0.0 0.0 0.0 211073 G -4.454960E-06 -2.154214E-04 1.328259E-05 0.0 0.0 0.0 211077 G 1.239089E-05 -2.154214E-04 2.053391E-05 0.0 0.0 0.0 214075 G 0.0 0.0 -2.851290E-06 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 7.283613E-02 -4.742772E-11 3.070352E-01 -5.394585E-04 -9.750485E-01 1.279729E-04 18983 G 1.817650E-04 1.225133E-11 -9.021242E-06 0.0 0.0 0.0 18987 G 1.817650E-04 1.225133E-11 -9.021192E-06 0.0 0.0 0.0 21183 G 1.817650E-04 1.146253E-11 6.303094E-06 0.0 0.0 0.0 21187 G 1.817650E-04 1.146253E-11 6.303144E-06 0.0 0.0 0.0 21485 G 0.0 0.0 3.670730E-05 0.0 0.0 0.0 189073 G -1.817650E-04 -1.225133E-11 9.021242E-06 0.0 0.0 0.0 189077 G -1.817650E-04 -1.225133E-11 9.021192E-06 0.0 0.0 0.0 200078 G -4.699313E-02 -2.720109E-08 -6.387376E-02 3.478584E-07 6.718232E-01 1.093001E-11 200079 G 3.495119E-03 1.297109E-08 -6.715619E-02 0.0 0.0 -2.616189E-18 200101 G -2.933813E-02 1.427743E-08 -1.760052E-01 0.0 0.0 0.0 211073 G -1.817650E-04 -1.146253E-11 -6.303094E-06 0.0 0.0 0.0 211077 G -1.817650E-04 -1.146253E-11 -6.303144E-06 0.0 0.0 0.0 214075 G 0.0 0.0 -3.670730E-05 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -5.170027E-05 3.125151E-04 -2.093978E-04 -6.942764E-03 6.196592E-04 2.590130E-03 18983 G -1.582519E-05 -8.072759E-05 -5.988371E-05 0.0 0.0 0.0 18987 G -9.918818E-06 -8.072759E-05 -6.843156E-05 0.0 0.0 0.0 21183 G -1.582519E-05 -7.552998E-05 -5.723190E-06 0.0 0.0 0.0 21187 G -9.918818E-06 -7.552998E-05 -1.427104E-05 0.0 0.0 0.0 21485 G 0.0 0.0 -7.301986E-05 0.0 0.0 0.0 189073 G 1.582519E-05 8.072759E-05 5.988371E-05 0.0 0.0 0.0 189077 G 9.918818E-06 8.072759E-05 6.843156E-05 0.0 0.0 0.0 200078 G 1.305221E-04 -8.291303E-02 4.356186E-05 1.685142E+00 1.838103E-03 -1.124128E-09 200079 G 6.777021E-07 1.033780E-02 4.580047E-05 0.0 0.0 -4.656613E-10 200101 G -7.949955E-05 7.226271E-02 1.200354E-04 0.0 0.0 0.0 211073 G 1.582519E-05 7.552998E-05 5.723190E-06 0.0 0.0 0.0 211077 G 9.918818E-06 7.552998E-05 1.427104E-05 0.0 0.0 0.0 214075 G 0.0 0.0 7.301986E-05 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.352314E+03 (CYCLIC FREQUENCY = 2.987344E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 8.542817E+02 -1.148010E-03 1.408421E+01 8.875536E-02 8.362155E+04 1.491425E+00 18983 G -2.457677E+01 2.965492E-04 -4.642505E+02 0.0 0.0 0.0 18987 G -2.457680E+01 2.965492E-04 -4.642469E+02 0.0 0.0 0.0 21183 G -2.457677E+01 2.774559E-04 5.428923E+02 0.0 0.0 0.0 21187 G -2.457680E+01 2.774559E-04 5.428959E+02 0.0 0.0 0.0 21485 G 0.0 0.0 2.984203E+03 0.0 0.0 0.0 189073 G 2.457677E+01 -2.965492E-04 4.642505E+02 0.0 0.0 0.0 189077 G 2.457680E+01 -2.965492E-04 4.642469E+02 0.0 0.0 0.0 200078 G 2.684400E+01 1.565766E-04 -6.260682E-01 -8.247953E-03 -9.118691E+01 -4.274636E-11 200079 G 2.075721E+03 -2.666838E-03 -5.903737E-01 0.0 0.0 1.110223E-16 200101 G -2.956847E+03 3.658272E-03 -1.286777E+01 0.0 0.0 0.0 211073 G 2.457677E+01 -2.774559E-04 -5.428923E+02 0.0 0.0 0.0 211077 G 2.457680E+01 -2.774559E-04 -5.428959E+02 0.0 0.0 0.0 214075 G 0.0 0.0 -2.984203E+03 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.449136E+03 (CYCLIC FREQUENCY = 3.372945E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 1.027537E-02 8.816226E+02 -1.500520E-02 -9.825212E+04 5.417212E-01 7.307152E+03 18983 G -8.334016E+00 -2.277371E+02 1.601251E+03 0.0 0.0 0.0 18987 G 8.328288E+00 -2.277371E+02 -1.601253E+03 0.0 0.0 0.0 21183 G -8.334016E+00 -2.130742E+02 1.601254E+03 0.0 0.0 0.0 21187 G 8.328288E+00 -2.130742E+02 -1.601250E+03 0.0 0.0 0.0 21485 G 0.0 0.0 9.093590E-03 0.0 0.0 0.0 189073 G 8.334016E+00 2.277371E+02 -1.601251E+03 0.0 0.0 0.0 189077 G -8.328288E+00 2.277371E+02 1.601253E+03 0.0 0.0 0.0 200078 G -3.524382E-03 1.070830E+02 -7.575724E-02 1.628531E+02 -2.799110E-04 1.432454E-11 200079 G 1.838636E-03 2.601391E+03 2.864007E-02 0.0 0.0 3.410605E-12 200101 G -8.589627E-03 -3.590097E+03 6.212237E-02 0.0 0.0 0.0 211073 G 8.334016E+00 2.130742E+02 -1.601254E+03 0.0 0.0 0.0 211077 G -8.328288E+00 2.130742E+02 1.601250E+03 0.0 0.0 0.0 214075 G 0.0 0.0 -9.093590E-03 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.236499E+05 (CYCLIC FREQUENCY = 2.447569E+01 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 4.076890E-02 1.529217E+04 -1.941184E-01 -4.280362E+05 2.781596E+00 1.267460E+05 18983 G -1.445285E+02 -3.950208E+03 1.992789E+03 0.0 0.0 0.0 18987 G 1.444871E+02 -3.950208E+03 -1.992791E+03 0.0 0.0 0.0 21183 G -1.445285E+02 -3.695875E+03 1.992792E+03 0.0 0.0 0.0 21187 G 1.444871E+02 -3.695875E+03 -1.992787E+03 0.0 0.0 0.0 21485 G 0.0 0.0 1.451893E-02 0.0 0.0 0.0 189073 G 1.445285E+02 3.950208E+03 -1.992789E+03 0.0 0.0 0.0 189077 G -1.444871E+02 3.950208E+03 1.992791E+03 0.0 0.0 0.0 200078 G -1.676536E-02 -2.157355E+03 2.048323E-02 2.305789E+04 -2.368291E-02 0.0 200079 G -1.312193E-02 -1.053848E+04 4.104262E-03 0.0 0.0 0.0 200101 G -1.088161E-02 -2.596330E+03 1.695309E-01 0.0 0.0 0.0 211073 G 1.445285E+02 3.695875E+03 -1.992792E+03 0.0 0.0 0.0 211077 G -1.444871E+02 3.695875E+03 1.992787E+03 0.0 0.0 0.0 214075 G 0.0 0.0 -1.451893E-02 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.284019E+05 (CYCLIC FREQUENCY = 2.682218E+01 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 2.078306E+04 -2.736260E-02 -3.228644E+03 6.523232E+00 6.904508E+05 3.628280E+01 18983 G -4.711869E+03 7.068193E-03 -1.271735E+03 0.0 0.0 0.0 18987 G -4.711869E+03 7.068193E-03 -1.271724E+03 0.0 0.0 0.0 21183 G -4.711869E+03 6.613108E-03 1.872595E+03 0.0 0.0 0.0 21187 G -4.711869E+03 6.613108E-03 1.872605E+03 0.0 0.0 0.0 21485 G 0.0 0.0 1.010641E+04 0.0 0.0 0.0 189073 G 4.711869E+03 -7.068193E-03 1.271735E+03 0.0 0.0 0.0 189077 G 4.711869E+03 -7.068193E-03 1.271724E+03 0.0 0.0 0.0 200078 G -3.463880E+03 2.731989E-04 1.406916E+02 -2.405403E-02 -2.556608E+04 1.455187E-11 200079 G -9.697204E+03 1.796259E-02 1.326390E+02 0.0 0.0 4.163336E-17 200101 G -7.621981E+03 9.126816E-03 2.955313E+03 0.0 0.0 0.0 211073 G 4.711869E+03 -6.613108E-03 -1.872595E+03 0.0 0.0 0.0 211077 G 4.711869E+03 -6.613108E-03 -1.872605E+03 0.0 0.0 0.0 214075 G 0.0 0.0 -1.010641E+04 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.149555E+06 (CYCLIC FREQUENCY = 6.154901E+01 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 6.527185E+04 5.748166E-01 -9.312070E+04 1.522860E+02 2.035270E+06 1.194176E+02 18983 G -2.204216E+04 -1.484842E-01 2.268464E+03 0.0 0.0 0.0 18987 G -2.204215E+04 -1.484842E-01 2.268507E+03 0.0 0.0 0.0 21183 G -2.204216E+04 -1.389241E-01 -8.136258E+02 0.0 0.0 0.0 21187 G -2.204215E+04 -1.389241E-01 -8.135831E+02 0.0 0.0 0.0 21485 G 0.0 0.0 -5.364455E+03 0.0 0.0 0.0 189073 G 2.204216E+04 1.484842E-01 -2.268464E+03 0.0 0.0 0.0 189077 G 2.204215E+04 1.484842E-01 -2.268507E+03 0.0 0.0 0.0 200078 G -5.684745E+04 -4.891713E-01 3.497656E+03 -1.286699E+00 1.463483E+05 0.0 200079 G -8.822879E+03 -8.081222E-02 3.296792E+03 0.0 0.0 0.0 200101 G 3.984850E+02 -4.833087E-03 8.632626E+04 0.0 0.0 0.0 211073 G 2.204216E+04 1.389241E-01 8.136258E+02 0.0 0.0 0.0 211077 G 2.204215E+04 1.389241E-01 8.135831E+02 0.0 0.0 0.0 214075 G 0.0 0.0 5.364455E+03 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.195345E+06 (CYCLIC FREQUENCY = 7.034309E+01 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -6.505733E-01 9.222319E+04 -6.685863E-02 -1.909049E+06 -1.256305E+01 7.643734E+05 18983 G -8.713308E+02 -2.382271E+04 -1.564401E+03 0.0 0.0 0.0 18987 G 8.716495E+02 -2.382271E+04 1.564370E+03 0.0 0.0 0.0 21183 G -8.713308E+02 -2.228888E+04 -1.564381E+03 0.0 0.0 0.0 21187 G 8.716495E+02 -2.228888E+04 1.564390E+03 0.0 0.0 0.0 21485 G 0.0 0.0 3.266480E-02 0.0 0.0 0.0 189073 G 8.713308E+02 2.382271E+04 1.564401E+03 0.0 0.0 0.0 189077 G -8.716495E+02 2.382271E+04 -1.564370E+03 0.0 0.0 0.0 200078 G 5.160499E-01 -7.252590E+04 1.292283E-01 -1.767067E+05 -1.263762E+00 0.0 200079 G 1.267308E-01 -1.645486E+04 -4.382817E-02 0.0 0.0 0.0 200101 G 7.792643E-03 -3.242429E+03 -1.854148E-02 0.0 0.0 0.0 211073 G 8.713308E+02 2.228888E+04 1.564381E+03 0.0 0.0 0.0 211077 G -8.716495E+02 2.228888E+04 -1.564390E+03 0.0 0.0 0.0 214075 G 0.0 0.0 -3.266480E-02 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.507298E+06 (CYCLIC FREQUENCY = 1.133579E+02 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -1.545032E+04 -3.474046E-02 -1.559267E+05 2.751115E+02 7.781604E+05 -2.744202E+01 18983 G -5.927110E+03 8.974010E-03 1.629758E+03 0.0 0.0 0.0 18987 G -5.927110E+03 8.974010E-03 1.629774E+03 0.0 0.0 0.0 21183 G -5.927110E+03 8.396219E-03 -1.406831E+03 0.0 0.0 0.0 21187 G -5.927110E+03 8.396219E-03 -1.406815E+03 0.0 0.0 0.0 21485 G 0.0 0.0 -7.975171E+03 0.0 0.0 0.0 189073 G 5.927110E+03 -8.974010E-03 -1.629758E+03 0.0 0.0 0.0 189077 G 5.927110E+03 -8.974010E-03 -1.629774E+03 0.0 0.0 0.0 200078 G -3.589540E+04 -1.152645E-01 2.642076E+03 -1.489095E+00 4.628788E+05 5.820767E-11 200079 G 6.787584E+04 2.106249E-01 2.489022E+03 0.0 0.0 -1.387779E-17 200101 G -1.653012E+04 -6.061989E-02 1.507956E+05 0.0 0.0 0.0 211073 G 5.927110E+03 -8.396219E-03 1.406831E+03 0.0 0.0 0.0 211077 G 5.927110E+03 -8.396219E-03 1.406815E+03 0.0 0.0 0.0 214075 G 0.0 0.0 7.975171E+03 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.544614E+06 (CYCLIC FREQUENCY = 1.174531E+02 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -9.784778E-02 4.669009E+04 7.696017E-02 -8.968731E+05 -2.121522E+00 3.869815E+05 18983 G -4.411813E+02 -1.206079E+04 -2.198613E+03 0.0 0.0 0.0 18987 G 4.412423E+02 -1.206079E+04 2.198601E+03 0.0 0.0 0.0 21183 G -4.411813E+02 -1.128426E+04 -2.198603E+03 0.0 0.0 0.0 21187 G 4.412423E+02 -1.128426E+04 2.198612E+03 0.0 0.0 0.0 21485 G 0.0 0.0 2.690862E-02 0.0 0.0 0.0 189073 G 4.411813E+02 1.206079E+04 2.198613E+03 0.0 0.0 0.0 189077 G -4.412423E+02 1.206079E+04 -2.198601E+03 0.0 0.0 0.0 200078 G 2.246275E-01 -8.555726E+04 5.193660E-02 -6.429478E+05 -1.793763E+00 -2.910383E-11 200079 G -1.895501E-01 6.622625E+04 -2.058280E-02 0.0 0.0 0.0 200101 G 6.277040E-02 -2.735909E+04 -1.083140E-01 0.0 0.0 0.0 211073 G 4.411813E+02 1.128426E+04 2.198603E+03 0.0 0.0 0.0 211077 G -4.412423E+02 1.128426E+04 -2.198612E+03 0.0 0.0 0.0 214075 G 0.0 0.0 -2.690862E-02 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.106964E+07 (CYCLIC FREQUENCY = 1.646038E+02 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 4.158803E+05 5.067949E-01 1.409070E+06 -2.486980E+03 -2.918888E+06 7.348758E+02 18983 G -1.991067E+04 -1.309131E-01 2.544004E+03 0.0 0.0 0.0 18987 G -1.991066E+04 -1.309131E-01 2.543991E+03 0.0 0.0 0.0 21183 G -1.991067E+04 -1.224843E-01 -1.311458E+03 0.0 0.0 0.0 21187 G -1.991066E+04 -1.224843E-01 -1.311471E+03 0.0 0.0 0.0 21485 G 0.0 0.0 -8.015892E+03 0.0 0.0 0.0 189073 G 1.991067E+04 1.309131E-01 -2.544004E+03 0.0 0.0 0.0 189077 G 1.991066E+04 1.309131E-01 -2.543991E+03 0.0 0.0 0.0 200078 G -3.694023E+05 -4.195791E-01 3.929329E+04 -1.539915E+00 1.291299E+06 -5.820772E-11 200079 G 8.909943E+02 -6.808867E-03 3.698691E+04 0.0 0.0 5.551115E-17 200101 G -4.736901E+04 -8.040691E-02 -1.485350E+06 0.0 0.0 0.0 211073 G 1.991067E+04 1.224843E-01 1.311458E+03 0.0 0.0 0.0 211077 G 1.991066E+04 1.224843E-01 1.311471E+03 0.0 0.0 0.0 214075 G 0.0 0.0 8.015892E+03 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 18983 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 18987 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 19765 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 21183 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 21187 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 21485 G 0.0 0.0 0.0 0.0 0.0 0.0 189073 G 1.000000E+00 0.0 1.387779E-16 0.0 1.273768E-17 0.0 189077 G 1.000000E+00 0.0 1.387779E-16 0.0 1.273768E-17 0.0 200070 G 1.000000E+00 0.0 -6.328272E-15 0.0 -1.330773E-17 0.0 200078 G 1.000000E+00 0.0 0.0 0.0 1.273768E-17 0.0 200079 G 1.000000E+00 0.0 0.0 0.0 1.273768E-17 0.0 200086 G 1.000000E+00 0.0 -6.341715E-15 0.0 -1.325098E-17 0.0 200087 G 1.000000E+00 0.0 0.0 0.0 1.273768E-17 0.0 200095 G 1.000000E+00 0.0 -6.336078E-15 0.0 2.670525E-17 0.0 200096 G 1.000000E+00 0.0 0.0 0.0 1.273768E-17 0.0 200101 G 1.000000E+00 0.0 0.0 0.0 2.012381E-17 0.0 200106 G 1.000000E+00 0.0 -6.326537E-15 0.0 -5.277354E-17 0.0 200114 G 1.000000E+00 0.0 -6.315478E-15 0.0 1.250390E-17 0.0 200121 G 1.000000E+00 0.0 -6.313527E-15 0.0 7.692753E-18 0.0 200129 G 1.000000E+00 0.0 -6.311791E-15 0.0 3.785390E-18 0.0 200137 G 1.000000E+00 0.0 -6.309189E-15 0.0 7.740611E-18 0.0 200145 G 1.000000E+00 0.0 -6.308160E-15 0.0 -1.479871E-17 0.0 200153 G 1.000000E+00 0.0 -6.309340E-15 0.0 4.655832E-17 0.0 200155 G 1.000000E+00 0.0 -6.309340E-15 0.0 3.223199E-17 0.0 211073 G 1.000000E+00 0.0 -1.387779E-16 0.0 1.273768E-17 0.0 211077 G 1.000000E+00 0.0 -1.387779E-16 0.0 1.273768E-17 0.0 214075 G 1.000000E+00 0.0 -1.942890E-16 0.0 1.273768E-17 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 18983 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 18987 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 19765 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 21183 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 21187 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 21485 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 189073 G 0.0 1.000000E+00 -9.435926E-17 -7.624991E-18 0.0 0.0 189077 G 0.0 1.000000E+00 9.435926E-17 -7.624991E-18 0.0 0.0 200070 G 0.0 1.000000E+00 0.0 -1.700419E-17 0.0 0.0 200078 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 200079 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 200086 G 0.0 1.000000E+00 0.0 1.286474E-17 0.0 0.0 200087 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 200095 G 0.0 1.000000E+00 0.0 -4.880604E-17 0.0 0.0 200096 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 200101 G 0.0 1.000000E+00 0.0 -1.331875E-17 0.0 0.0 200106 G 0.0 1.000000E+00 0.0 1.694066E-17 0.0 0.0 200114 G 0.0 1.000000E+00 0.0 -5.204170E-18 0.0 0.0 200121 G 0.0 1.000000E+00 0.0 1.127570E-17 0.0 0.0 200129 G 0.0 1.000000E+00 0.0 1.474515E-17 0.0 0.0 200137 G 0.0 1.000000E+00 0.0 1.040834E-17 0.0 0.0 200145 G 0.0 1.000000E+00 0.0 1.387779E-17 0.0 0.0 200153 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 200155 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 211073 G 0.0 1.000000E+00 -9.435926E-17 -7.624991E-18 0.0 0.0 211077 G 0.0 1.000000E+00 9.435926E-17 -7.624991E-18 0.0 0.0 214075 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 18983 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 18987 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 19765 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 21183 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 21187 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 21485 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 189073 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 189077 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200070 G -4.862983E-15 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200078 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200079 G 8.945737E-16 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200086 G 5.282075E-15 0.0 1.000000E+00 0.0 6.176852E-16 0.0 200087 G 5.475168E-15 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200095 G 1.083319E-14 0.0 1.000000E+00 0.0 6.527213E-16 0.0 200096 G 1.104186E-14 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200101 G 1.465227E-14 0.0 1.000000E+00 0.0 7.005520E-16 0.0 200106 G 1.854924E-14 0.0 1.000000E+00 0.0 7.615981E-16 0.0 200114 G 2.493302E-14 0.0 1.000000E+00 0.0 8.282532E-16 0.0 200121 G 3.087272E-14 0.0 1.000000E+00 0.0 8.679134E-16 0.0 200129 G 3.795039E-14 0.0 1.000000E+00 0.0 8.971601E-16 0.0 200137 G 4.518072E-14 0.0 1.000000E+00 0.0 9.089458E-16 0.0 200145 G 5.248737E-14 0.0 1.000000E+00 0.0 9.184258E-16 0.0 200153 G 5.964137E-14 0.0 1.000000E+00 0.0 9.232443E-16 0.0 200155 G 6.168141E-14 0.0 1.000000E+00 0.0 9.230140E-16 0.0 211073 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 211077 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 214075 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -9.657564E-11 -1.563668E-01 -3.725052E-06 -1.168756E-02 0.0 0.0 18983 G -9.657564E-11 9.538307E-02 -1.446167E-01 0.0 0.0 0.0 18987 G -9.657564E-11 9.538307E-02 1.446503E-01 0.0 0.0 0.0 19765 G -9.657564E-11 -5.585395E-02 1.680999E-05 0.0 0.0 0.0 21183 G -9.657564E-11 9.538307E-02 -1.446167E-01 0.0 0.0 0.0 21187 G -9.657564E-11 9.538307E-02 1.446503E-01 0.0 0.0 0.0 21485 G 0.0 9.538307E-02 1.680999E-05 -1.168756E-02 0.0 0.0 189073 G -2.549742E-10 9.538306E-02 -1.446167E-01 -1.168756E-02 7.501072E-12 2.420055E-11 189077 G 3.439893E-10 9.538306E-02 1.446503E-01 -1.168756E-02 7.501072E-12 2.420055E-11 200070 G -1.227557E-11 6.908262E-03 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200078 G 4.450754E-11 9.538306E-02 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200079 G 5.560915E-11 1.126807E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200086 G 1.096168E-10 1.968311E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200087 G 1.096168E-10 1.968311E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200095 G 1.752512E-10 2.990972E-01 1.680995E-05 -1.168756E-02 7.501071E-12 2.420055E-11 200096 G 1.752512E-10 2.990972E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200101 G 2.178198E-10 3.654241E-01 1.680995E-05 -1.168756E-02 7.501071E-12 2.420055E-11 200106 G 2.577630E-10 4.276603E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200114 G 3.177716E-10 5.211608E-01 1.680995E-05 -1.168756E-02 7.501071E-12 2.420055E-11 200121 G 3.702791E-10 6.029737E-01 1.680995E-05 -1.168756E-02 7.501071E-12 2.420055E-11 200129 G 4.302876E-10 6.964741E-01 1.680995E-05 -1.168756E-02 7.501073E-12 2.420055E-11 200137 G 4.902962E-10 7.899746E-01 1.680995E-05 -1.168756E-02 7.501070E-12 2.420055E-11 200145 G 5.503048E-10 8.834750E-01 1.680995E-05 -1.168756E-02 7.501080E-12 2.420055E-11 200153 G 6.085131E-10 9.741704E-01 1.680995E-05 -1.168755E-02 7.501055E-12 2.420055E-11 200155 G 6.250905E-10 1.000000E+00 1.680995E-05 -1.168755E-02 7.501045E-12 2.420055E-11 211073 G -2.549742E-10 9.538306E-02 -1.446167E-01 -1.168756E-02 7.501072E-12 2.420055E-11 211077 G 3.439893E-10 9.538306E-02 1.446503E-01 -1.168756E-02 7.501072E-12 2.420055E-11 214075 G 4.450754E-11 9.538306E-02 1.680984E-05 -1.168756E-02 7.501072E-12 2.420055E-11 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -1.563668E-01 -2.240056E-07 1.751981E-02 -1.674319E-08 1.168756E-02 0.0 18983 G 9.538307E-02 1.366425E-07 3.822643E-02 0.0 1.168756E-02 0.0 18987 G 9.538307E-02 1.366425E-07 3.822684E-02 0.0 1.168756E-02 0.0 19765 G -5.585395E-02 -8.001442E-08 -4.311867E-02 0.0 0.0 0.0 21183 G 9.538307E-02 1.366425E-07 -2.163286E-01 0.0 1.168756E-02 0.0 21187 G 9.538307E-02 1.366425E-07 -2.163281E-01 0.0 1.168756E-02 0.0 21485 G 0.0 1.366425E-07 -2.488198E-01 -1.674319E-08 0.0 0.0 189073 G 9.538306E-02 1.366425E-07 3.822643E-02 -1.674319E-08 1.168756E-02 1.287707E-18 189077 G 9.538306E-02 1.366425E-07 3.822684E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200070 G 6.908263E-03 9.896536E-09 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200078 G 9.538306E-02 1.366425E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200079 G 1.126807E-01 1.614224E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200086 G 1.968311E-01 2.819733E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200087 G 1.968311E-01 2.819733E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200095 G 2.990972E-01 4.284762E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200096 G 2.990972E-01 4.284762E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200101 G 3.654241E-01 5.234938E-07 -7.935017E-02 -1.674318E-08 1.168756E-02 1.287707E-18 200106 G 4.276603E-01 6.126513E-07 -7.935017E-02 -1.674318E-08 1.168755E-02 1.287707E-18 200114 G 5.211608E-01 7.465968E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200121 G 6.029737E-01 8.637991E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200129 G 6.964741E-01 9.977446E-07 -7.935017E-02 -1.674319E-08 1.168755E-02 1.287707E-18 200137 G 7.899746E-01 1.131690E-06 -7.935017E-02 -1.674319E-08 1.168755E-02 1.287707E-18 200145 G 8.834750E-01 1.265636E-06 -7.935017E-02 -1.674318E-08 1.168756E-02 1.287707E-18 200153 G 9.741704E-01 1.395563E-06 -7.935017E-02 -1.674321E-08 1.168756E-02 1.287707E-18 200155 G 1.000000E+00 1.432565E-06 -7.935017E-02 -1.674322E-08 1.168755E-02 1.287707E-18 211073 G 9.538306E-02 1.366425E-07 -2.163286E-01 -1.674319E-08 1.168756E-02 1.287707E-18 211077 G 9.538306E-02 1.366425E-07 -2.163282E-01 -1.674319E-08 1.168756E-02 1.287707E-18 214075 G 9.538306E-02 1.366425E-07 -2.488198E-01 -1.674319E-08 1.168756E-02 1.287707E-18 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -4.168538E-05 -1.024119E-01 2.229137E-06 8.935354E-03 -4.113639E-07 1.480688E-01 18983 G -1.832142E+00 -5.572125E-01 1.105608E-01 0.0 -4.113639E-07 1.480688E-01 18987 G 1.832561E+00 -5.572125E-01 -1.105892E-01 0.0 -4.113639E-07 1.480688E-01 19765 G 2.149338E-04 5.889686E-01 -1.133600E-05 0.0 0.0 1.480688E-01 21183 G -1.832142E+00 2.667726E+00 1.105698E-01 0.0 -4.113639E-07 1.480688E-01 21187 G 1.832561E+00 2.667726E+00 -1.105802E-01 0.0 -4.113639E-07 1.480688E-01 21485 G 0.0 3.079357E+00 -4.095996E-06 8.935354E-03 0.0 0.0 189073 G -1.832142E+00 -5.572125E-01 1.105608E-01 8.935354E-03 -4.108113E-07 1.480688E-01 189077 G 1.832561E+00 -5.572125E-01 -1.105892E-01 8.935354E-03 -4.108113E-07 1.480688E-01 200070 G 2.126719E-04 1.000000E+00 -1.004911E-05 8.935350E-03 -4.108148E-07 1.480688E-01 200078 G 2.095621E-04 9.323594E-01 -1.004911E-05 8.935354E-03 -4.108113E-07 1.480688E-01 200079 G 2.089541E-04 9.191350E-01 -1.004911E-05 8.935354E-03 -4.108113E-07 1.480688E-01 200086 G 2.059962E-04 8.548005E-01 -1.004911E-05 8.935357E-03 -4.108099E-07 1.480688E-01 200087 G 2.059962E-04 8.548005E-01 -1.004911E-05 8.935354E-03 -4.108113E-07 1.480688E-01 200095 G 2.024016E-04 7.766162E-01 -1.004911E-05 8.935349E-03 -4.108132E-07 1.480688E-01 200096 G 2.024016E-04 7.766162E-01 -1.004911E-05 8.935354E-03 -4.108113E-07 1.480688E-01 200101 G 2.000703E-04 7.259080E-01 -1.004911E-05 8.935351E-03 -4.108117E-07 1.480688E-01 200106 G 1.978827E-04 6.783273E-01 -1.004911E-05 8.935357E-03 -4.108088E-07 1.480688E-01 200114 G 1.945962E-04 6.068444E-01 -1.004911E-05 8.935351E-03 -4.108119E-07 1.480688E-01 200121 G 1.917206E-04 5.442970E-01 -1.004911E-05 8.935351E-03 -4.108113E-07 1.480688E-01 200129 G 1.884341E-04 4.728141E-01 -1.004911E-05 8.935357E-03 -4.108108E-07 1.480688E-01 200137 G 1.851476E-04 4.013313E-01 -1.004911E-05 8.935355E-03 -4.108109E-07 1.480688E-01 200145 G 1.818611E-04 3.298485E-01 -1.004911E-05 8.935349E-03 -4.108112E-07 1.480688E-01 200153 G 1.786732E-04 2.605102E-01 -1.004911E-05 8.935357E-03 -4.108096E-07 1.480688E-01 200155 G 1.777653E-04 2.407630E-01 -1.004911E-05 8.935359E-03 -4.108083E-07 1.480688E-01 211073 G -1.832142E+00 2.667726E+00 1.105698E-01 8.935354E-03 -4.108113E-07 1.480688E-01 211077 G 1.832561E+00 2.667726E+00 -1.105802E-01 8.935354E-03 -4.108113E-07 1.480688E-01 214075 G 2.095621E-04 3.079357E+00 -4.092345E-06 8.935354E-03 -4.108113E-07 1.480688E-01 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.352314E+03 (CYCLIC FREQUENCY = 2.987344E+00 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -1.281382E-01 1.691115E-07 -2.534163E-03 -1.922461E-08 -1.715252E-03 -3.040498E-08 18983 G -1.650843E-01 6.370777E-07 -5.573309E-03 0.0 -1.715252E-03 -3.040498E-08 18987 G -1.650851E-01 6.370777E-07 -5.572834E-03 0.0 -1.715252E-03 -3.040498E-08 19765 G -1.428893E-01 1.766929E-07 6.365067E-03 0.0 0.0 -3.040498E-08 21183 G -1.650843E-01 -2.514270E-08 3.178487E-02 0.0 -1.715252E-03 -3.040498E-08 21187 G -1.650851E-01 -2.514270E-08 3.178535E-02 0.0 -1.715252E-03 -3.040498E-08 21485 G 0.0 -1.096685E-07 3.655351E-02 -1.922461E-08 0.0 0.0 189073 G -1.642105E-01 6.265337E-07 9.759346E-02 1.299901E-08 8.560667E-03 -3.037381E-08 189077 G -1.642112E-01 6.265337E-07 9.759314E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200070 G -2.290160E-01 4.194566E-07 1.147306E-02 1.301502E-08 8.560844E-03 -3.037381E-08 200078 G -1.642108E-01 3.209733E-07 1.147301E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200079 G -1.515410E-01 3.017347E-07 1.147301E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200086 G -9.852263E-02 2.197933E-07 1.147306E-02 1.176456E-08 7.662398E-03 -3.037381E-08 200087 G -8.990425E-02 2.081419E-07 1.147301E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200095 G -2.478640E-02 1.078383E-07 1.147305E-02 1.415583E-08 9.411636E-03 -3.037381E-08 200096 G -1.499841E-02 9.440056E-08 1.147301E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200101 G 3.358340E-02 2.063114E-08 1.147301E-02 1.669187E-08 1.125167E-02 -3.037381E-08 200106 G 9.860229E-02 -7.520995E-08 1.147366E-02 1.926111E-08 1.313361E-02 -3.037381E-08 200114 G 2.137211E-01 -2.430559E-07 1.147460E-02 2.258852E-08 1.556749E-02 -3.037381E-08 200121 G 3.290100E-01 -4.097938E-07 1.147537E-02 2.497315E-08 1.731289E-02 -3.037381E-08 200129 G 4.740710E-01 -6.185717E-07 1.147620E-02 2.711603E-08 1.887638E-02 -3.037381E-08 200137 G 6.298204E-01 -8.419798E-07 1.147702E-02 2.863244E-08 1.998549E-02 -3.037381E-08 200145 G 7.926352E-01 -1.075047E-06 1.147784E-02 2.953232E-08 2.064322E-02 -3.037381E-08 200153 G 9.539133E-01 -1.305709E-06 1.147862E-02 2.982079E-08 2.085354E-02 -3.037381E-08 200155 G 1.000000E+00 -1.371613E-06 1.147862E-02 2.982090E-08 2.085367E-02 -3.037381E-08 211073 G -1.642105E-01 -3.500780E-08 -8.885785E-02 1.299901E-08 8.560667E-03 -3.037381E-08 211077 G -1.642112E-01 -3.500780E-08 -8.885817E-02 1.299901E-08 8.560667E-03 -3.037381E-08 214075 G -1.642108E-01 -1.194470E-07 -1.126567E-01 1.299901E-08 8.560667E-03 -3.037381E-08 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.449136E+03 (CYCLIC FREQUENCY = 3.372945E+00 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -2.860438E-07 -1.034032E-01 5.648798E-06 1.775269E-02 -1.037556E-08 -1.166620E-04 18983 G 1.442978E-03 -4.855892E-01 2.196639E-01 0.0 -1.037556E-08 -1.166620E-04 18987 G -1.444407E-03 -4.855892E-01 -2.197150E-01 0.0 -1.037556E-08 -1.166620E-04 19765 G -5.802487E-07 -2.566814E-01 -2.548884E-05 0.0 0.0 -1.166620E-04 21183 G 1.442978E-03 -4.881301E-01 2.196642E-01 0.0 -1.037556E-08 -1.166620E-04 21187 G -1.444407E-03 -4.881301E-01 -2.197148E-01 0.0 -1.037556E-08 -1.166620E-04 21485 G 0.0 -4.884544E-01 -2.530623E-05 1.775269E-02 0.0 0.0 189073 G 1.739299E-03 -4.774919E-01 -1.361696E-01 -1.100156E-02 1.929874E-08 -1.405989E-04 189077 G -1.740524E-03 -4.774919E-01 1.361191E-01 -1.100156E-02 1.929874E-08 -1.405989E-04 200070 G -7.587439E-07 -5.621898E-01 -2.547534E-05 -1.100188E-02 1.929929E-08 -1.405989E-04 200078 G -6.126497E-07 -4.789063E-01 -2.548108E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 200079 G -5.840874E-07 -4.626240E-01 -2.548108E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 200086 G -4.678302E-07 -3.941894E-01 -2.548314E-05 -9.879191E-03 1.641146E-08 -1.405989E-04 200087 G -4.451366E-07 -3.834127E-01 -2.548108E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 200095 G -3.075142E-07 -2.993758E-01 -2.548273E-05 -1.206665E-02 2.166020E-08 -1.405989E-04 200096 G -2.762726E-07 -2.871491E-01 -2.548108E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 200101 G -1.667521E-07 -2.247152E-01 -2.548108E-05 -1.435877E-02 2.799988E-08 -1.405989E-04 200106 G -2.977248E-09 -1.419004E-01 -2.548284E-05 -1.670387E-02 3.321984E-08 -1.405989E-04 200114 G 2.903915E-07 4.300541E-03 -2.548548E-05 -1.974964E-02 4.031057E-08 -1.405989E-04 200121 G 5.935073E-07 1.504727E-01 -2.548766E-05 -2.194033E-02 4.593636E-08 -1.405989E-04 200129 G 9.803830E-07 3.342393E-01 -2.549002E-05 -2.390597E-02 5.060391E-08 -1.405989E-04 200137 G 1.399793E-06 5.314468E-01 -2.549235E-05 -2.530109E-02 5.400505E-08 -1.405989E-04 200145 G 1.840719E-06 7.375434E-01 -2.549465E-05 -2.612874E-02 5.600181E-08 -1.405989E-04 200153 G 2.278612E-06 9.416702E-01 -2.549686E-05 -2.639342E-02 5.664344E-08 -1.405989E-04 200155 G 2.403794E-06 1.000000E+00 -2.549686E-05 -2.639357E-02 5.664348E-08 -1.405989E-04 211073 G 1.739299E-03 -4.805541E-01 -1.361700E-01 -1.100156E-02 1.929874E-08 -1.405989E-04 211077 G -1.740524E-03 -4.805541E-01 1.361186E-01 -1.100156E-02 1.929874E-08 -1.405989E-04 214075 G -6.126497E-07 -4.809450E-01 -2.576091E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.236499E+05 (CYCLIC FREQUENCY = 2.447569E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -7.435972E-08 -3.412846E-02 5.072368E-07 1.468387E-03 -8.822445E-10 -3.847645E-05 18983 G 4.759851E-04 -6.568932E-02 1.816921E-02 0.0 -8.822445E-10 -3.847645E-05 18987 G -4.763070E-04 -6.568932E-02 -1.817336E-02 0.0 -8.822445E-10 -3.847645E-05 19765 G -1.495501E-07 -4.695619E-02 -2.068141E-06 0.0 0.0 -3.847645E-05 21183 G 4.759851E-04 -6.652734E-02 1.816923E-02 0.0 -8.822445E-10 -3.847645E-05 21187 G -4.763070E-04 -6.652734E-02 -1.817334E-02 0.0 -8.822445E-10 -3.847645E-05 21485 G 0.0 -6.663430E-02 -2.052613E-06 1.468387E-03 0.0 0.0 189073 G 5.614778E-03 7.476252E-02 -4.246728E-01 -3.431684E-02 3.700858E-08 -4.536729E-04 189077 G -5.613626E-03 7.476252E-02 4.246690E-01 -3.431684E-02 3.700858E-08 -4.536729E-04 200070 G 2.955142E-07 -1.898057E-01 -2.243486E-06 -3.436159E-02 3.705455E-08 -4.536729E-04 200078 G 5.759011E-07 7.019858E-02 -2.241936E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 200079 G 6.306740E-07 1.209876E-01 -2.241936E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 200086 G 9.504164E-07 4.103552E-01 -2.242231E-06 -3.867330E-02 4.252023E-08 -4.536729E-04 200087 G 8.971356E-07 3.680688E-01 -2.241936E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 200095 G 1.280280E-06 7.154400E-01 -2.242212E-06 -3.001861E-02 3.149801E-08 -4.536729E-04 200096 G 1.220961E-06 6.683411E-01 -2.241936E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 200101 G 1.430985E-06 8.630893E-01 -2.241936E-06 -2.183529E-02 2.158771E-08 -4.536729E-04 200106 G 1.518581E-06 9.561676E-01 -2.250704E-06 -1.286215E-02 1.086131E-08 -4.536729E-04 200114 G 1.530922E-06 1.000000E+00 -2.263341E-06 1.957220E-03 -8.020608E-09 -4.536729E-04 200121 G 1.416088E-06 9.416006E-01 -2.273752E-06 1.456062E-02 -2.459173E-08 -4.536729E-04 200129 G 1.151721E-06 7.739921E-01 -2.285045E-06 2.681751E-02 -4.082344E-08 -4.536729E-04 200137 G 7.744326E-07 5.213209E-01 -2.296183E-06 3.577421E-02 -5.273528E-08 -4.536729E-04 200145 G 3.204811E-07 2.110446E-01 -2.307216E-06 4.119091E-02 -5.995029E-08 -4.536729E-04 200153 G -1.568169E-07 -1.176563E-01 -2.317787E-06 4.294504E-02 -6.229005E-08 -4.536729E-04 200155 G -2.944816E-07 -2.125676E-01 -2.317806E-06 4.294669E-02 -6.229229E-08 -4.536729E-04 211073 G 5.614778E-03 6.488153E-02 -4.246736E-01 -3.431684E-02 3.700858E-08 -4.536729E-04 211077 G -5.613626E-03 6.488153E-02 4.246682E-01 -3.431684E-02 3.700858E-08 -4.536729E-04 214075 G 5.759011E-07 6.362032E-02 -2.778560E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.284019E+05 (CYCLIC FREQUENCY = 2.682218E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -3.838427E-02 5.098872E-08 7.107995E-03 -2.159953E-08 -1.761671E-04 -9.106066E-09 18983 G -4.217879E-02 5.323756E-07 6.795612E-03 0.0 -1.761671E-04 -9.106066E-09 18987 G -4.217901E-02 5.323756E-07 6.796147E-03 0.0 -1.761671E-04 -9.106066E-09 19765 G -3.989930E-02 1.894995E-07 8.022001E-03 0.0 0.0 -9.106066E-09 21183 G -4.217879E-02 3.340455E-07 1.063253E-02 0.0 -1.761671E-04 -9.106066E-09 21187 G -4.217901E-02 3.340455E-07 1.063307E-02 0.0 -1.761671E-04 -9.106066E-09 21485 G 0.0 3.087307E-07 1.112254E-02 -2.159953E-08 0.0 0.0 189073 G 1.253543E-01 2.810621E-07 2.894033E-01 7.327110E-08 3.190555E-02 -8.363147E-09 189077 G 1.253541E-01 2.810621E-07 2.894015E-01 7.327110E-08 3.190555E-02 -8.363147E-09 200070 G -1.164212E-01 7.518266E-07 -3.157805E-02 7.331779E-08 3.195518E-02 -8.363147E-09 200078 G 1.253542E-01 1.969289E-07 -3.156740E-02 7.327110E-08 3.190555E-02 -8.363147E-09 200079 G 1.725745E-01 8.848742E-08 -3.156740E-02 7.327110E-08 3.190555E-02 -8.363147E-09 200086 G 4.406096E-01 -5.177437E-07 -3.157695E-02 8.161371E-08 3.583152E-02 -8.363147E-09 200087 G 4.022944E-01 -4.390642E-07 -3.156740E-02 7.327110E-08 3.190555E-02 -8.363147E-09 200095 G 7.237899E-01 -1.170314E-06 -3.157635E-02 6.522352E-08 2.797138E-02 -8.363147E-09 200096 G 6.814680E-01 -1.080186E-06 -3.156740E-02 7.327110E-08 3.190555E-02 -8.363147E-09 200101 G 8.625321E-01 -1.496000E-06 -3.156740E-02 4.929531E-08 2.084899E-02 -8.363147E-09 200106 G 9.532413E-01 -1.713621E-06 -3.171637E-02 3.185222E-08 1.285371E-02 -8.363147E-09 200114 G 1.000000E+00 -1.850967E-06 -3.193140E-02 2.228491E-09 -1.341127E-03 -8.363147E-09 200121 G 9.463068E-01 -1.775468E-06 -3.210861E-02 -2.351752E-08 -1.388646E-02 -8.363147E-09 200129 G 7.835510E-01 -1.482026E-06 -3.230085E-02 -4.877711E-08 -2.628601E-02 -8.363147E-09 200137 G 5.345000E-01 -1.013042E-06 -3.249047E-02 -6.728381E-08 -3.539703E-02 -8.363147E-09 200145 G 2.267487E-01 -4.249182E-07 -3.267832E-02 -7.850303E-08 -4.092677E-02 -8.363147E-09 200153 G -1.001117E-01 2.030789E-07 -3.285829E-02 -8.214549E-08 -4.272163E-02 -8.363147E-09 200155 G -1.945294E-01 3.846258E-07 -3.285862E-02 -8.214876E-08 -4.272344E-02 -8.363147E-09 211073 G 1.253543E-01 9.891279E-08 -4.054996E-01 7.327110E-08 3.190555E-02 -8.363147E-09 211077 G 1.253541E-01 9.891279E-08 -4.055014E-01 7.327110E-08 3.190555E-02 -8.363147E-09 214075 G 1.253542E-01 7.566326E-08 -4.941979E-01 7.327110E-08 3.190555E-02 -8.363147E-09 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.149555E+06 (CYCLIC FREQUENCY = 6.154901E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -2.180174E-02 -2.043694E-07 3.809752E-02 -9.654200E-08 -1.005259E-04 -5.434067E-09 18983 G -2.396700E-02 1.884772E-06 3.791822E-02 0.0 -1.005259E-04 -5.434067E-09 18987 G -2.396714E-02 1.884772E-06 3.792061E-02 0.0 -1.005259E-04 -5.434067E-09 19765 G -2.266626E-02 5.976970E-07 3.861908E-02 0.0 0.0 -5.434067E-09 21183 G -2.396700E-02 1.766418E-06 4.010768E-02 0.0 -1.005259E-04 -5.434067E-09 21187 G -2.396714E-02 1.766418E-06 4.011007E-02 0.0 -1.005259E-04 -5.434067E-09 21485 G 0.0 1.751311E-06 4.038833E-02 -9.654200E-08 0.0 0.0 189073 G 7.597543E-01 7.164211E-06 -4.661849E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 189077 G 7.597538E-01 7.164211E-06 -4.661919E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200070 G 1.000000E+00 9.132744E-06 -1.490883E-01 2.888383E-07 -3.183128E-02 -2.104087E-08 200078 G 7.597540E-01 6.952539E-06 -1.488235E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200079 G 7.130640E-01 6.528754E-06 -1.488235E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200086 G 5.071975E-01 4.657975E-06 -1.490609E-01 2.714607E-07 -2.986233E-02 -2.104087E-08 200087 G 4.859242E-01 4.467101E-06 -1.488235E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200095 G 2.271481E-01 2.113667E-06 -1.490459E-01 3.082117E-07 -3.397761E-02 -2.104087E-08 200096 G 2.098861E-01 1.961619E-06 -1.488235E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200101 G 3.085553E-02 3.366340E-07 -1.488235E-01 3.128914E-07 -3.464390E-02 -2.104087E-08 200106 G -1.484246E-01 -1.279305E-06 -1.532117E-01 2.896782E-07 -3.218580E-02 -2.104087E-08 200114 G -3.706879E-01 -3.278265E-06 -1.595810E-01 1.975074E-07 -2.196303E-02 -2.104087E-08 200121 G -4.779176E-01 -4.244007E-06 -1.648659E-01 7.567699E-08 -8.361754E-03 -2.104087E-08 200129 G -4.818658E-01 -4.286429E-06 -1.706281E-01 -6.112806E-08 6.935453E-03 -2.104087E-08 200137 G -3.758964E-01 -3.346121E-06 -1.763172E-01 -1.678719E-07 1.887787E-02 -2.104087E-08 200145 G -1.916187E-01 -1.705973E-06 -1.819559E-01 -2.350554E-07 2.639577E-02 -2.104087E-08 200153 G 2.612408E-02 2.334521E-07 -1.873593E-01 -2.574280E-07 2.889914E-02 -2.104087E-08 200155 G 8.999769E-02 8.024258E-07 -1.873692E-01 -2.574660E-07 2.890343E-02 -2.104087E-08 211073 G 7.597543E-01 6.705940E-06 2.209134E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 211077 G 7.597538E-01 6.705940E-06 2.209063E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 214075 G 7.597540E-01 6.647447E-06 3.086111E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.195345E+06 (CYCLIC FREQUENCY = 7.034309E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 1.735424E-07 -2.492234E-02 1.040353E-08 7.926864E-04 4.673263E-10 -2.809567E-05 18983 G 3.478182E-04 -4.194702E-02 9.808113E-03 0.0 4.673263E-10 -2.809567E-05 18987 G -3.475497E-04 -4.194702E-02 -9.810875E-03 0.0 4.673263E-10 -2.809567E-05 19765 G 1.281973E-07 -3.188520E-02 -1.384771E-06 0.0 0.0 -2.809567E-05 21183 G 3.478182E-04 -4.255894E-02 9.808103E-03 0.0 4.673263E-10 -2.809567E-05 21187 G -3.475497E-04 -4.255894E-02 -9.810885E-03 0.0 4.673263E-10 -2.809567E-05 21485 G 0.0 -4.263705E-02 -1.392996E-06 7.926864E-04 0.0 0.0 189073 G 3.132847E-02 8.050826E-01 3.574528E-01 2.888491E-02 2.066946E-07 -2.532040E-03 189077 G -3.133953E-02 8.050826E-01 -3.574487E-01 2.888491E-02 2.066946E-07 -2.532040E-03 200070 G -7.107416E-06 1.000000E+00 -3.894656E-08 2.922790E-02 2.091476E-07 -2.532040E-03 200078 G -5.530359E-06 7.796103E-01 -2.916398E-08 2.888491E-02 2.066946E-07 -2.532040E-03 200079 G -5.224450E-06 7.368605E-01 -2.916398E-08 2.888491E-02 2.066946E-07 -2.532040E-03 200086 G -4.078107E-06 5.747414E-01 -2.600835E-08 2.488468E-02 1.774530E-07 -2.532040E-03 200087 G -3.736249E-06 5.288893E-01 -2.916398E-08 2.888491E-02 2.066946E-07 -2.532040E-03 200095 G -2.233911E-06 3.179230E-01 -2.667839E-08 3.396574E-02 2.441423E-07 -2.532040E-03 200096 G -1.927672E-06 2.761463E-01 -2.916398E-08 2.888491E-02 2.066946E-07 -2.532040E-03 200101 G -7.546790E-07 1.122244E-01 -2.916398E-08 3.771792E-02 2.719983E-07 -2.532040E-03 200106 G 7.018957E-07 -8.881804E-02 -3.050894E-08 3.720617E-02 2.708233E-07 -2.532040E-03 200114 G 2.657974E-06 -3.564891E-01 -3.227697E-08 2.766672E-02 2.023405E-07 -2.532040E-03 200121 G 3.692977E-06 -4.984264E-01 -3.374735E-08 1.235423E-02 8.966356E-08 -2.532040E-03 200129 G 3.869313E-06 -5.234711E-01 -3.535395E-08 -5.653708E-03 -4.245230E-08 -2.532040E-03 200137 G 3.084930E-06 -4.177485E-01 -3.694082E-08 -1.999360E-02 -1.478720E-07 -2.532040E-03 200145 G 1.605452E-06 -2.174560E-01 -3.851387E-08 -2.912757E-02 -2.150078E-07 -2.532040E-03 200153 G -1.792351E-07 2.437993E-02 -4.002149E-08 -3.219331E-02 -2.375506E-07 -2.532040E-03 200155 G -7.042873E-07 9.553611E-02 -4.002423E-08 -3.219925E-02 -2.375939E-07 -2.532040E-03 211073 G 3.132847E-02 7.499348E-01 3.574483E-01 2.888491E-02 2.066946E-07 -2.532040E-03 211077 G -3.133953E-02 7.499348E-01 -3.574532E-01 2.888491E-02 2.066946E-07 -2.532040E-03 214075 G -5.530359E-06 7.428957E-01 -3.026236E-06 2.888491E-02 2.066946E-07 -2.532040E-03 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.507298E+06 (CYCLIC FREQUENCY = 1.133579E+02 HZ) R E A L E I G E N V E C T O R N O . 13 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 1.887539E-03 2.892167E-09 1.738968E-02 -4.705357E-08 -1.153718E-05 4.543725E-10 18983 G 1.639022E-03 1.015621E-06 1.736866E-02 0.0 -1.153718E-05 4.543725E-10 18987 G 1.639034E-03 1.015621E-06 1.736983E-02 0.0 -1.153718E-05 4.543725E-10 19765 G 1.788319E-03 4.099097E-07 1.744954E-02 0.0 0.0 4.543725E-10 21183 G 1.639022E-03 1.025517E-06 1.761994E-02 0.0 -1.153718E-05 4.543725E-10 21187 G 1.639034E-03 1.025517E-06 1.762110E-02 0.0 -1.153718E-05 4.543725E-10 21485 G 0.0 1.026780E-06 1.765260E-02 -4.705357E-08 0.0 0.0 189073 G 2.123807E-01 6.965446E-07 -3.447998E-01 9.812811E-08 -3.099398E-02 1.397608E-09 189077 G 2.123807E-01 6.965446E-07 -3.448022E-01 9.812811E-08 -3.099398E-02 1.397608E-09 200070 G 4.515394E-01 1.468021E-06 -3.320159E-02 1.010185E-07 -3.189244E-02 1.397608E-09 200078 G 2.123807E-01 7.106045E-07 -3.300159E-02 9.812811E-08 -3.099398E-02 1.397608E-09 200079 G 1.665095E-01 5.653746E-07 -3.300159E-02 9.812811E-08 -3.099398E-02 1.397608E-09 200086 G -3.094360E-01 -9.272165E-07 -3.318080E-02 1.769921E-07 -5.633516E-02 1.397608E-09 200087 G -5.664707E-02 -1.411475E-07 -3.300159E-02 9.812811E-08 -3.099398E-02 1.397608E-09 200095 G -5.984007E-01 -1.842108E-06 -3.316951E-02 1.494952E-08 -4.210300E-03 1.397608E-09 200096 G -3.278444E-01 -9.997685E-07 -3.300159E-02 9.812811E-08 -3.099398E-02 1.397608E-09 200101 G -5.037354E-01 -1.556646E-06 -3.300159E-02 -1.115457E-07 3.620632E-02 1.397608E-09 200106 G -2.300736E-01 -7.081690E-07 -4.087389E-02 -2.012172E-07 6.472401E-02 1.397608E-09 200114 G 3.568954E-01 1.119059E-06 -5.249882E-02 -2.287449E-07 7.342049E-02 1.397608E-09 200121 G 7.924918E-01 2.476549E-06 -6.234895E-02 -1.474822E-07 4.732299E-02 1.397608E-09 200129 G 1.000000E+00 3.122780E-06 -7.325004E-02 -1.374018E-08 4.446925E-03 1.397608E-09 200137 G 8.753517E-01 2.732892E-06 -8.404481E-02 1.063144E-07 -3.403820E-02 1.397608E-09 200145 G 4.879429E-01 1.523273E-06 -9.475782E-02 1.882977E-07 -6.031556E-02 1.397608E-09 200153 G -2.749754E-02 -8.579283E-08 -1.050329E-01 2.170430E-07 -6.952798E-02 1.397608E-09 200155 G -1.811982E-01 -5.655943E-07 -1.050516E-01 2.171346E-07 -6.955738E-02 1.397608E-09 211073 G 2.123807E-01 7.269845E-07 3.302492E-01 9.812811E-08 -3.099398E-02 1.397608E-09 211077 G 2.123807E-01 7.269845E-07 3.302467E-01 9.812811E-08 -3.099398E-02 1.397608E-09 214075 G 2.123807E-01 7.308699E-07 4.164112E-01 9.812811E-08 -3.099398E-02 1.397608E-09 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.544614E+06 (CYCLIC FREQUENCY = 1.174531E+02 HZ) R E A L E I G E N V E C T O R N O . 14 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 8.975282E-09 -4.525877E-03 -9.227976E-09 1.334588E-04 2.870489E-11 -5.102084E-06 18983 G 6.313893E-05 -7.391538E-03 1.651309E-03 0.0 2.870489E-11 -5.102084E-06 18987 G -6.313766E-05 -7.391538E-03 -1.651796E-03 0.0 2.870489E-11 -5.102084E-06 19765 G 2.577811E-10 -5.700092E-03 -2.438640E-07 0.0 0.0 -5.102084E-06 21183 G 6.313893E-05 -7.502662E-03 1.651308E-03 0.0 2.870489E-11 -5.102084E-06 21187 G -6.313766E-05 -7.502662E-03 -1.651797E-03 0.0 2.870489E-11 -5.102084E-06 21485 G 0.0 -7.516846E-03 -2.443692E-07 1.334588E-04 0.0 0.0 189073 G 1.574958E-02 4.214365E-01 4.902321E-01 3.961462E-02 1.107352E-07 -1.272781E-03 189077 G -1.575175E-02 4.214365E-01 -4.902298E-01 3.961462E-02 1.107352E-07 -1.272781E-03 200070 G -1.939716E-06 7.148132E-01 1.192869E-08 4.086260E-02 1.142169E-07 -1.272781E-03 200078 G -1.083880E-06 4.086324E-01 1.586029E-08 3.961462E-02 1.107352E-07 -1.272781E-03 200079 G -9.199912E-07 3.500026E-01 1.586029E-08 3.961462E-02 1.107352E-07 -1.272781E-03 200086 G 6.151079E-07 -1.919622E-01 1.734225E-08 6.574191E-02 1.859290E-07 -1.272781E-03 200087 G -1.226982E-07 6.477744E-02 1.586029E-08 3.961462E-02 1.107352E-07 -1.272781E-03 200095 G 1.650014E-06 -5.613870E-01 1.698107E-08 1.255035E-02 3.269479E-08 -1.272781E-03 200096 G 8.462347E-07 -2.818505E-01 1.586029E-08 3.961462E-02 1.107352E-07 -1.272781E-03 200101 G 1.474657E-06 -5.066636E-01 1.586029E-08 -3.079928E-02 -9.095775E-08 -1.272781E-03 200106 G 7.376322E-07 -2.527241E-01 2.057635E-08 -6.258737E-02 -1.802748E-07 -1.272781E-03 200114 G -9.382632E-07 3.314245E-01 2.763127E-08 -7.448651E-02 -2.134033E-07 -1.272781E-03 200121 G -2.219921E-06 7.786500E-01 3.362275E-08 -4.925349E-02 -1.411821E-07 -1.272781E-03 200129 G -2.854900E-06 1.000000E+00 4.026377E-08 -5.841684E-03 -1.691221E-08 -1.272781E-03 200137 G -2.520768E-06 8.825837E-01 4.684204E-08 3.364510E-02 9.601315E-08 -1.272781E-03 200145 G -1.412675E-06 4.945413E-01 5.337138E-08 6.080829E-02 1.736938E-07 -1.272781E-03 200153 G 7.584792E-08 -2.652459E-02 5.963437E-08 7.037315E-02 2.010428E-07 -1.272781E-03 200155 G 5.202876E-07 -1.820965E-01 5.964575E-08 7.040489E-02 2.011336E-07 -1.272781E-03 211073 G 1.574958E-02 3.937154E-01 4.902296E-01 3.961462E-02 1.107352E-07 -1.272781E-03 211077 G -1.575175E-02 3.937154E-01 -4.902322E-01 3.961462E-02 1.107352E-07 -1.272781E-03 214075 G -1.083880E-06 3.901770E-01 -1.589800E-06 3.961462E-02 1.107352E-07 -1.272781E-03 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.106964E+07 (CYCLIC FREQUENCY = 1.646038E+02 HZ) R E A L E I G E N V E C T O R N O . 15 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -1.859502E-02 -2.245320E-08 -6.147731E-02 1.665499E-07 1.622162E-05 -4.466250E-09 18983 G -1.824555E-02 -3.602023E-06 -6.144651E-02 0.0 1.622162E-05 -4.466250E-09 18987 G -1.824567E-02 -3.602023E-06 -6.145063E-02 0.0 1.622162E-05 -4.466250E-09 19765 G -1.845552E-02 -1.477952E-06 -6.156147E-02 0.0 0.0 -4.466250E-09 21183 G -1.824555E-02 -3.699298E-06 -6.179982E-02 0.0 1.622162E-05 -4.466250E-09 21187 G -1.824567E-02 -3.699298E-06 -6.180394E-02 0.0 1.622162E-05 -4.466250E-09 21485 G 0.0 -3.711714E-06 -6.184697E-02 1.665499E-07 0.0 0.0 189073 G 6.896894E-01 1.052667E-06 -6.267808E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 189077 G 6.896890E-01 1.052667E-06 -6.267820E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200070 G 1.000000E+00 1.244522E-06 -2.341845E-01 5.056185E-08 -4.182766E-02 -1.822620E-08 200078 G 6.896892E-01 8.693111E-07 -2.312101E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200079 G 6.314937E-01 7.989032E-07 -2.312101E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200086 G 2.804552E-01 3.935889E-07 -2.338731E-01 5.727357E-08 -4.862713E-02 -1.822620E-08 200087 G 3.483810E-01 4.563789E-07 -2.312101E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200095 G -9.791286E-02 -6.779847E-08 -2.337049E-01 4.185654E-08 -3.270569E-02 -1.822620E-08 200096 G 4.320337E-03 4.011659E-08 -2.312101E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200101 G -2.188277E-01 -2.298594E-07 -2.312101E-01 1.311544E-08 -8.682907E-03 -1.822620E-08 200106 G -2.000576E-01 -2.186519E-07 -1.497742E-01 -1.604596E-08 1.494644E-02 -1.822620E-08 200114 G 1.182839E-02 2.032457E-08 -2.586863E-02 -3.850097E-08 3.358650E-02 -1.822620E-08 200121 G 2.410693E-01 2.844891E-07 8.288299E-02 -3.320865E-08 2.874365E-02 -1.822620E-08 200129 G 3.978926E-01 4.654701E-07 2.061722E-01 -1.093071E-08 9.518354E-03 -1.822620E-08 200137 G 3.891389E-01 4.543243E-07 3.288303E-01 1.324328E-08 -1.129094E-02 -1.822620E-08 200145 G 2.309646E-01 2.694710E-07 4.508141E-01 3.145723E-08 -2.695258E-02 -1.822620E-08 200153 G -7.949214E-03 -9.245327E-09 5.679691E-01 3.820413E-08 -3.275419E-02 -1.822620E-08 200155 G -8.037701E-02 -9.372467E-08 5.681821E-01 3.823668E-08 -3.278189E-02 -1.822620E-08 211073 G 6.896894E-01 6.557001E-07 2.296353E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 211077 G 6.896890E-01 6.557001E-07 2.296341E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 214075 G 6.896892E-01 6.050312E-07 3.389476E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 * * * END OF JOB * * * 1 JOB TITLE = HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE DATE: 5/17/95 END TIME: 15:44:40 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d03082a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03082A,NASTRAN APP DISPLACEMENT SOL 3,0 TIME 14 DIAG 21,22 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 3 LABEL = NORMAL MODES ANALYSIS USING RIGID ELEMENTS 4 METHOD = 1000 5 OUTPUT 6 ECHO = BOTH 7 VECTOR = ALL 8 MPCFORCE = ALL 9 BEGIN BULK 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ CBAR 3530251 353025 200070 200078 1.0 .0 .0 1 MR G/B CBAR 4500050 450007 200079 200086 1.0 .0 .0 1 MRBRG1 +MRBRG1 56 CBAR 4500070 450007 200086 200095 1.0 .0 .0 1 MR MAST CBAR 4500071 450007 200095 200101 1.0 .0 .0 1 MR MAST CBAR 4500072 450007 200101 200106 1.0 .0 .0 1 MR MAST CBAR 4500073 450007 200106 200114 1.0 .0 .0 1 MR MAST CBAR 4500074 450007 200114 200121 1.0 .0 .0 1 MR MAST CBAR 4500075 450007 200121 200129 1.0 .0 .0 1 MR MAST CBAR 4500076 450007 200129 200137 1.0 .0 .0 1 MR MAST CBAR 4500077 450007 200137 200145 1.0 .0 .0 1 MR MAST CBAR 4500078 450007 200145 200153 1.0 .0 .0 1 MR MAST CBAR 4500079 450007 200153 200155 1.0 .0 .0 1 MR MAST CELAS2 189831 28125. 189073 1 18983 1 FWD R X CELAS2 189832 28125. 189073 2 18983 2 FWD R Y CELAS2 189833 4500. 189073 3 18983 3 FWD R Z CELAS2 189871 28125. 189077 1 18987 1 FWD L X CELAS2 189872 28125. 189077 2 18987 2 FWD L Y CELAS2 189873 4500. 189077 3 18987 3 FWD L Z CELAS2 211831 28125. 211073 1 21183 1 AFT R X CELAS2 211832 28125. 211073 2 21183 2 AFT R Y CELAS2 211833 4500. 211073 3 21183 3 AFT R Z CELAS2 211871 28125. 211077 1 21187 1 AFT L X CELAS2 211872 28125. 211077 2 21187 2 AFT L Y CELAS2 211873 4500. 211077 3 21187 3 AFT L Z CELAS2 214853 20000. 214075 3 21485 3 AFT C Z CONM2 209 209 0 7297.399 BASICWT +BASICWT4.7561+6 5.3412+7 5.3697+7 CONM2 109765 19765 12.896 CONM2 290070 200070 34.465 CONM2 290078 200078 22.740 CONM2 290079 200079 51.048 CONM2 290086 200086 60.052 CONM2 290087 200087 60.052 CONM2 290095 200095 64.933 CONM2 290096 200096 64.933 CONM2 290101 200101 57.277 CONM2 290106 200106 47.013 CONM2 290114 200114 66.626 CONM2 290121 200121 54.350 CONM2 290129 200129 13.810 CONM2 290137 200137 9.253 CONM2 290145 200145 12.065 CONM2 290153 200153 5.852 CONM2 290155 200155 6.124 CONM2 390153 200153 458.000 MR BLADE CONM2 490153 200153 489.500 MR HUB 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ CONM2 9200070 200070 26.100 BASIC CRIGD1 200078 200078 189073 189077 211073 CRIGD1 353252 200078 200079 CRIGD1 353253 200079 200087 CRIGD1 353254 200087 200096 CRIGD2 2091 209 19765 1236 CRIGD2 2092 209 18983 12356 18987 12356 CRIGD2 2093 209 21183 12356 21187 12356 CRIGD2 2094 209 21485 234 CRIGD2 353255 200096 200101 123 CRIGD3 200078 200078 456 189073 1 189077 2 +CRG31 +CRG31 211073 3 +CRG32 +CRG32 MSET 211077 123456 214075 123456 CRIGDR 357000 19765 200078 3 EIGR 1000 GIV 15 +EIGR +EIGR MAX GRID 209 0 191.7117.001757 56.030010 GRID 18983 0 189.94 12.375 77.57 0 4 GRID 18987 0 189.94 -12.375 77.57 0 4 GRID 19765 0 196.90 .0 64.63 0 45 GRID 21183 0 211.72 12.375 77.57 0 4 GRID 21187 0 211.72 -12.375 77.57 0 4 GRID 21485 0 214.50 .0 77.57 0 156 GRID 189073 0 189.94 12.375 77.57 0 0 GRID 189077 0 189.94 -12.375 77.57 0 0 GRID 200070 0 200.00 .0 70.00 0 0 GRID 200078 0 200.00 .0 77.57 0 0 GRID 200079 0 200.00 .0 79.05 0 0 GRID 200086 0 200.00 .0 86.25 0 0 GRID 200087 0 200.00 .0 86.25 0 0 GRID 200095 0 200.00 .0 95.00 0 0 GRID 200096 0 200.00 .0 95.00 0 0 GRID 200101 0 200.00 .0 100.675 0 0 GRID 200106 0 200.00 .0 106.00 0 0 GRID 200114 0 200.00 .0 114.00 0 0 GRID 200121 0 200.00 .0 121.00 0 0 GRID 200129 0 200.00 .0 129.00 0 0 GRID 200137 0 200.00 .0 137.00 0 0 GRID 200145 0 200.00 .0 145.00 0 0 GRID 200153 0 200.00 .0 152.76 0 0 GRID 200155 0 200.00 .0 154.97 0 0 GRID 211073 0 211.72 12.375 77.57 0 0 GRID 211077 0 211.72 -12.375 77.57 0 0 GRID 214075 0 214.50 .0 77.57 0 0 MAT1 1 1.0+6 1.0+6 MAT1 10 1.0 1.0 MAT1 57 3.2+6 .8+6 .32 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ MAT1 76 3.2+6 .8+6 .32 MAT1 2014 10.5+6 4.0+6 MAT1 2024 10.5+6 4.0+6 MAT1 4130 29.0+6 11.0+6 MAT1 4340 29.0+6 11.0+6 MAT1 4620 29.0+6 11.0+6 MAT1 7075 10.3+6 3.9+6 MAT1 9046 17.5+6 6.5+6 OMIT 200070 456 OMIT 200078 456 OMIT 200086 456 OMIT 200095 456 OMIT 200101 456 OMIT 200106 456 OMIT 200114 456 OMIT 200121 456 OMIT 200129 456 OMIT 200137 456 OMIT 200145 456 OMIT 200153 456 OMIT 200155 456 PARAM GRDEQ 0 PARAM GRDPNT 0 PARAM OPT 1 PARAM WTMASS .00259 PBAR 353025 1 100. 1950. 1950. 1480. PBAR 450007 1 100. 120.07 120.07 91.088 SUPORT 209 123456 ENDDATA TOTAL COUNT= 122 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CBAR 3530251 353025 200070 200078 1.0 .0 .0 1 MR G/B 2- CBAR 4500050 450007 200079 200086 1.0 .0 .0 1 MRBRG1 3- +MRBRG1 56 4- CBAR 4500070 450007 200086 200095 1.0 .0 .0 1 MR MAST 5- CBAR 4500071 450007 200095 200101 1.0 .0 .0 1 MR MAST 6- CBAR 4500072 450007 200101 200106 1.0 .0 .0 1 MR MAST 7- CBAR 4500073 450007 200106 200114 1.0 .0 .0 1 MR MAST 8- CBAR 4500074 450007 200114 200121 1.0 .0 .0 1 MR MAST 9- CBAR 4500075 450007 200121 200129 1.0 .0 .0 1 MR MAST 10- CBAR 4500076 450007 200129 200137 1.0 .0 .0 1 MR MAST 11- CBAR 4500077 450007 200137 200145 1.0 .0 .0 1 MR MAST 12- CBAR 4500078 450007 200145 200153 1.0 .0 .0 1 MR MAST 13- CBAR 4500079 450007 200153 200155 1.0 .0 .0 1 MR MAST 14- CELAS2 189831 28125. 189073 1 18983 1 FWD R X 15- CELAS2 189832 28125. 189073 2 18983 2 FWD R Y 16- CELAS2 189833 4500. 189073 3 18983 3 FWD R Z 17- CELAS2 189871 28125. 189077 1 18987 1 FWD L X 18- CELAS2 189872 28125. 189077 2 18987 2 FWD L Y 19- CELAS2 189873 4500. 189077 3 18987 3 FWD L Z 20- CELAS2 211831 28125. 211073 1 21183 1 AFT R X 21- CELAS2 211832 28125. 211073 2 21183 2 AFT R Y 22- CELAS2 211833 4500. 211073 3 21183 3 AFT R Z 23- CELAS2 211871 28125. 211077 1 21187 1 AFT L X 24- CELAS2 211872 28125. 211077 2 21187 2 AFT L Y 25- CELAS2 211873 4500. 211077 3 21187 3 AFT L Z 26- CELAS2 214853 20000. 214075 3 21485 3 AFT C Z 27- CONM2 209 209 0 7297.399 BASICWT 28- +BASICWT4.7561+6 5.3412+7 5.3697+7 29- CONM2 109765 19765 12.896 30- CONM2 290070 200070 34.465 31- CONM2 290078 200078 22.740 32- CONM2 290079 200079 51.048 33- CONM2 290086 200086 60.052 34- CONM2 290087 200087 60.052 35- CONM2 290095 200095 64.933 36- CONM2 290096 200096 64.933 37- CONM2 290101 200101 57.277 38- CONM2 290106 200106 47.013 39- CONM2 290114 200114 66.626 40- CONM2 290121 200121 54.350 41- CONM2 290129 200129 13.810 42- CONM2 290137 200137 9.253 43- CONM2 290145 200145 12.065 44- CONM2 290153 200153 5.852 45- CONM2 290155 200155 6.124 46- CONM2 390153 200153 458.000 MR BLADE 47- CONM2 490153 200153 489.500 MR HUB 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CONM2 9200070 200070 26.100 BASIC 49- CRIGD1 200078 200078 189073 189077 211073 50- CRIGD1 353252 200078 200079 51- CRIGD1 353253 200079 200087 52- CRIGD1 353254 200087 200096 53- CRIGD2 2091 209 19765 1236 54- CRIGD2 2092 209 18983 12356 18987 12356 55- CRIGD2 2093 209 21183 12356 21187 12356 56- CRIGD2 2094 209 21485 234 57- CRIGD2 353255 200096 200101 123 58- CRIGD3 200078 200078 456 189073 1 189077 2 +CRG31 59- +CRG31 211073 3 +CRG32 60- +CRG32 MSET 211077 123456 214075 123456 61- CRIGDR 357000 19765 200078 3 62- EIGR 1000 GIV 15 +EIGR 63- +EIGR MAX 64- GRID 209 0 191.7117.001757 56.030010 65- GRID 18983 0 189.94 12.375 77.57 0 4 66- GRID 18987 0 189.94 -12.375 77.57 0 4 67- GRID 19765 0 196.90 .0 64.63 0 45 68- GRID 21183 0 211.72 12.375 77.57 0 4 69- GRID 21187 0 211.72 -12.375 77.57 0 4 70- GRID 21485 0 214.50 .0 77.57 0 156 71- GRID 189073 0 189.94 12.375 77.57 0 0 72- GRID 189077 0 189.94 -12.375 77.57 0 0 73- GRID 200070 0 200.00 .0 70.00 0 0 74- GRID 200078 0 200.00 .0 77.57 0 0 75- GRID 200079 0 200.00 .0 79.05 0 0 76- GRID 200086 0 200.00 .0 86.25 0 0 77- GRID 200087 0 200.00 .0 86.25 0 0 78- GRID 200095 0 200.00 .0 95.00 0 0 79- GRID 200096 0 200.00 .0 95.00 0 0 80- GRID 200101 0 200.00 .0 100.675 0 0 81- GRID 200106 0 200.00 .0 106.00 0 0 82- GRID 200114 0 200.00 .0 114.00 0 0 83- GRID 200121 0 200.00 .0 121.00 0 0 84- GRID 200129 0 200.00 .0 129.00 0 0 85- GRID 200137 0 200.00 .0 137.00 0 0 86- GRID 200145 0 200.00 .0 145.00 0 0 87- GRID 200153 0 200.00 .0 152.76 0 0 88- GRID 200155 0 200.00 .0 154.97 0 0 89- GRID 211073 0 211.72 12.375 77.57 0 0 90- GRID 211077 0 211.72 -12.375 77.57 0 0 91- GRID 214075 0 214.50 .0 77.57 0 0 92- MAT1 1 1.0+6 1.0+6 93- MAT1 10 1.0 1.0 94- MAT1 57 3.2+6 .8+6 .32 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- MAT1 76 3.2+6 .8+6 .32 96- MAT1 2014 10.5+6 4.0+6 97- MAT1 2024 10.5+6 4.0+6 98- MAT1 4130 29.0+6 11.0+6 99- MAT1 4340 29.0+6 11.0+6 100- MAT1 4620 29.0+6 11.0+6 101- MAT1 7075 10.3+6 3.9+6 102- MAT1 9046 17.5+6 6.5+6 103- OMIT 200070 456 104- OMIT 200078 456 105- OMIT 200086 456 106- OMIT 200095 456 107- OMIT 200101 456 108- OMIT 200106 456 109- OMIT 200114 456 110- OMIT 200121 456 111- OMIT 200129 456 112- OMIT 200137 456 113- OMIT 200145 456 114- OMIT 200153 456 115- OMIT 200155 456 116- PARAM GRDEQ 0 117- PARAM GRDPNT 0 118- PARAM OPT 1 119- PARAM WTMASS .00259 120- PBAR 353025 1 100. 1950. 1950. 1480. 121- PBAR 450007 1 100. 120.07 120.07 91.088 122- SUPORT 209 123456 ENDDATA 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 22 PROFILE 117 MAX WAVEFRONT 6 AVG WAVEFRONT 4.179 RMS WAVEFRONT 4.379 RMS BANDWIDTH 7.604 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 2 PROFILE 45 MAX WAVEFRONT 2 AVG WAVEFRONT 1.607 RMS WAVEFRONT 1.680 RMS BANDWIDTH 1.680 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 22 2 PROFILE (P) 117 45 MAXIMUM WAVEFRONT (C-MAX) 6 2 AVERAGE WAVEFRONT (C-AVG) 4.179 1.607 RMS WAVEFRONT (C-RMS) 4.379 1.680 RMS BANDWITCH (B-RMS) 7.604 1.680 NUMBER OF GRID POINTS (N) 28 NUMBER OF ELEMENTS (NON-RIGID) 46 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 11 MAXIMUM NODAL DEGREE 2 MINIMUM NODAL DEGREE 0 NUMBER OF UNIQUE EDGES 17 MATRIX DENSITY, PERCENT 7.908 NUMBER OF POINTS OF ZERO DEGREE 4 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 7 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 209 28 18983 2 18987 4 19765 27 SEQGP 21183 6 21187 8 21485 10 189073 1 SEQGP 189077 3 200070 11 200078 12 200079 13 SEQGP 200086 14 200087 26 200095 15 200096 25 SEQGP 200101 16 200106 17 200114 18 200121 19 SEQGP 200129 20 200137 21 200145 22 200153 23 SEQGP 200155 24 211073 5 211077 7 214075 9 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 3530251 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS2 ELEMENTS (ELEMENT TYPE 12) STARTING WITH ID 189831 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONM2 ELEMENTS (ELEMENT TYPE 30) STARTING WITH ID 209 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 8.91448792D+03 0.00000000D+00 0.00000000D+00 0.00000000D+00 6.18744993D+05 -1.28215298D+01 * * 0.00000000D+00 8.91448792D+03 0.00000000D+00 -6.18744993D+05 0.00000000D+00 1.72237458D+06 * * 0.00000000D+00 0.00000000D+00 8.91448792D+03 1.28215298D+01 -1.72237458D+06 0.00000000D+00 * * 0.00000000D+00 -6.18744993D+05 1.28215298D+01 5.63588906D+07 -2.45803729D+03 -1.20357550D+08 * * 6.18744993D+05 0.00000000D+00 -1.72237458D+06 -2.45803729D+03 4.37886530D+08 -7.18390448D+02 * * -1.28215298D+01 1.72237458D+06 0.00000000D+00 -1.20357550D+08 -7.18390448D+02 3.86568740D+08 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 8.914487919D+03 0.000000000D+00 1.438280018D-03 6.940892162D+01 Y 8.914487919D+03 1.932107142D+02 0.000000000D+00 6.940892162D+01 Z 8.914487919D+03 1.932107142D+02 1.438280018D-03 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 1.341246786D+07 -1.921965004D+01 8.093881273D+05 * * -1.921965004D+01 6.215888526D+07 -1.715381118D+02 * * 8.093881273D+05 -1.715381118D+02 5.378751741D+07 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 1.339624878D+07 * * 6.215888526D+07 * * 5.380373649D+07 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 9.997992859D-01 0.000000000D+00 2.003466836D-02 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * -2.003466836D-02 0.000000000D+00 9.997992859D-01 * *** *** 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGE 3113, RIGID ELEMENTS ARE BEING PROCESSED IN GP4 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGE 2118, SUBROUTINE GP4PRT - DIAG 21 SET-DOF VS. DISP SETS FOLLOWS. 0 (SIL) INT DOF EXT GP. DOF SAUTO SB SG L A F N G R O S M ----------------------------------------------------------------------------------------------------------------------------------- 1 189073 - 1 1 1 2 189073 - 2 2 2 3 189073 - 3 3 3 4 189073 - 4 4 4 5 189073 - 5 5 5 6 189073 - 6 6 6 7 18983 - 1 7 7 8 18983 - 2 8 8 9 18983 - 3 9 9 10 18983 - 4 1 1 10 1 11 18983 - 5 11 10 12 18983 - 6 12 11 13 189077 - 1 13 12 14 189077 - 2 14 13 15 189077 - 3 15 14 16 189077 - 4 16 15 17 189077 - 5 17 16 18 189077 - 6 18 17 19 18987 - 1 19 18 20 18987 - 2 20 19 21 18987 - 3 21 20 22 18987 - 4 2 2 22 2 23 18987 - 5 23 21 24 18987 - 6 24 22 25 211073 - 1 25 23 26 211073 - 2 26 24 27 211073 - 3 27 25 28 211073 - 4 28 26 29 211073 - 5 29 27 30 211073 - 6 30 28 31 21183 - 1 31 29 32 21183 - 2 32 30 33 21183 - 3 33 31 34 21183 - 4 3 3 34 3 35 21183 - 5 35 32 36 21183 - 6 36 33 37 211077 - 1 37 34 38 211077 - 2 38 35 39 211077 - 3 39 36 40 211077 - 4 40 37 41 211077 - 5 41 38 42 211077 - 6 42 39 43 21187 - 1 43 40 44 21187 - 2 44 41 45 21187 - 3 45 42 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 (SIL) INT DOF EXT GP. DOF SAUTO SB SG L A F N G R O S M ----------------------------------------------------------------------------------------------------------------------------------- 46 21187 - 4 4 4 46 4 47 21187 - 5 47 43 48 21187 - 6 48 44 49 214075 - 1 49 45 50 214075 - 2 50 46 51 214075 - 3 51 47 52 214075 - 4 52 48 53 214075 - 5 53 49 54 214075 - 6 54 50 55 21485 - 1 5 5 55 5 56 21485 - 2 56 51 57 21485 - 3 57 52 58 21485 - 4 58 53 59 21485 - 5 6 6 59 6 60 21485 - 6 7 7 60 7 61 200070 - 1 1 1 1 8 61 62 200070 - 2 2 2 2 9 62 63 200070 - 3 3 3 3 10 63 64 200070 - 4 4 11 64 1 65 200070 - 5 5 12 65 2 66 200070 - 6 6 13 66 3 67 200078 - 1 4 4 7 14 67 68 200078 - 2 5 5 8 15 68 69 200078 - 3 69 54 70 200078 - 4 9 16 70 4 71 200078 - 5 10 17 71 5 72 200078 - 6 11 18 72 6 73 200079 - 1 73 55 74 200079 - 2 74 56 75 200079 - 3 75 57 76 200079 - 4 76 58 77 200079 - 5 77 59 78 200079 - 6 78 60 79 200086 - 1 6 6 12 19 79 80 200086 - 2 7 7 13 20 80 81 200086 - 3 8 8 14 21 81 82 200086 - 4 15 22 82 7 83 200086 - 5 16 23 83 8 84 200086 - 6 17 24 84 9 85 200095 - 1 9 9 18 25 85 86 200095 - 2 10 10 19 26 86 87 200095 - 3 11 11 20 27 87 88 200095 - 4 21 28 88 10 89 200095 - 5 22 29 89 11 90 200095 - 6 23 30 90 12 91 200101 - 1 91 61 92 200101 - 2 92 62 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 (SIL) INT DOF EXT GP. DOF SAUTO SB SG L A F N G R O S M ----------------------------------------------------------------------------------------------------------------------------------- 93 200101 - 3 93 63 94 200101 - 4 24 31 94 13 95 200101 - 5 25 32 95 14 96 200101 - 6 26 33 96 15 97 200106 - 1 12 12 27 34 97 98 200106 - 2 13 13 28 35 98 99 200106 - 3 14 14 29 36 99 100 200106 - 4 30 37 100 16 101 200106 - 5 31 38 101 17 102 200106 - 6 32 39 102 18 103 200114 - 1 15 15 33 40 103 104 200114 - 2 16 16 34 41 104 105 200114 - 3 17 17 35 42 105 106 200114 - 4 36 43 106 19 107 200114 - 5 37 44 107 20 108 200114 - 6 38 45 108 21 109 200121 - 1 18 18 39 46 109 110 200121 - 2 19 19 40 47 110 111 200121 - 3 20 20 41 48 111 112 200121 - 4 42 49 112 22 113 200121 - 5 43 50 113 23 114 200121 - 6 44 51 114 24 115 200129 - 1 21 21 45 52 115 116 200129 - 2 22 22 46 53 116 117 200129 - 3 23 23 47 54 117 118 200129 - 4 48 55 118 25 119 200129 - 5 49 56 119 26 120 200129 - 6 50 57 120 27 121 200137 - 1 24 24 51 58 121 122 200137 - 2 25 25 52 59 122 123 200137 - 3 26 26 53 60 123 124 200137 - 4 54 61 124 28 125 200137 - 5 55 62 125 29 126 200137 - 6 56 63 126 30 127 200145 - 1 27 27 57 64 127 128 200145 - 2 28 28 58 65 128 129 200145 - 3 29 29 59 66 129 130 200145 - 4 60 67 130 31 131 200145 - 5 61 68 131 32 132 200145 - 6 62 69 132 33 133 200153 - 1 30 30 63 70 133 134 200153 - 2 31 31 64 71 134 135 200153 - 3 32 32 65 72 135 136 200153 - 4 66 73 136 34 137 200153 - 5 67 74 137 35 138 200153 - 6 68 75 138 36 139 200155 - 1 33 33 69 76 139 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 (SIL) INT DOF EXT GP. DOF SAUTO SB SG L A F N G R O S M ----------------------------------------------------------------------------------------------------------------------------------- 140 200155 - 2 34 34 70 77 140 141 200155 - 3 35 35 71 78 141 142 200155 - 4 72 79 142 37 143 200155 - 5 73 80 143 38 144 200155 - 6 74 81 144 39 145 200096 - 1 145 64 146 200096 - 2 146 65 147 200096 - 3 147 66 148 200096 - 4 148 67 149 200096 - 5 149 68 150 200096 - 6 150 69 151 200087 - 1 151 70 152 200087 - 2 152 71 153 200087 - 3 153 72 154 200087 - 4 154 73 155 200087 - 5 155 74 156 200087 - 6 156 75 157 19765 - 1 157 76 158 19765 - 2 158 77 159 19765 - 3 159 78 160 19765 - 4 8 82 160 8 161 19765 - 5 9 83 161 9 162 19765 - 6 162 79 163 209 - 1 36 75 84 163 1 164 209 - 2 37 76 85 164 2 165 209 - 3 38 77 86 165 3 166 209 - 4 39 78 87 166 4 167 209 - 5 40 79 88 167 5 168 209 - 6 41 80 89 168 6 0--- C O L U M N T O T A L S --- 0 0 9 35 41 80 89 168 6 39 9 79 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGE 2119, SUBROUTINE GP4PRT - DIAG 22 SET DISP SETS VS. DOF FOLLOWS 0 MPC DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 189073-1 189073-2 189073-3 189073-4 189073-5 189073-6 18983-1 18983-2 18983-3 18983-5 11= 18983-6 189077-1 189077-2 189077-3 189077-4 189077-5 189077-6 18987-1 18987-2 18987-3 21= 18987-5 18987-6 211073-1 211073-2 211073-3 211073-4 211073-5 211073-6 21183-1 21183-2 31= 21183-3 21183-5 21183-6 211077-1 211077-2 211077-3 211077-4 211077-5 211077-6 21187-1 41= 21187-2 21187-3 21187-5 21187-6 214075-1 214075-2 214075-3 214075-4 214075-5 214075-6 51= 21485-2 21485-3 21485-4 200078-3 200079-1 200079-2 200079-3 200079-4 200079-5 200079-6 61= 200101-1 200101-2 200101-3 200096-1 200096-2 200096-3 200096-4 200096-5 200096-6 200087-1 71= 200087-2 200087-3 200087-4 200087-5 200087-6 19765-1 19765-2 19765-3 19765-6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 SPC DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 18983-4 18987-4 21183-4 21187-4 21485-1 21485-5 21485-6 19765-4 19765-5 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 OMIT DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 200070-4 200070-5 200070-6 200078-4 200078-5 200078-6 200086-4 200086-5 200086-6 200095-4 11= 200095-5 200095-6 200101-4 200101-5 200101-6 200106-4 200106-5 200106-6 200114-4 200114-5 21= 200114-6 200121-4 200121-5 200121-6 200129-4 200129-5 200129-6 200137-4 200137-5 200137-6 31= 200145-4 200145-5 200145-6 200153-4 200153-5 200153-6 200155-4 200155-5 200155-6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 ANALYSIS DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 200070-1 200070-2 200070-3 200078-1 200078-2 200086-1 200086-2 200086-3 200095-1 200095-2 11= 200095-3 200106-1 200106-2 200106-3 200114-1 200114-2 200114-3 200121-1 200121-2 200121-3 21= 200129-1 200129-2 200129-3 200137-1 200137-2 200137-3 200145-1 200145-2 200145-3 200153-1 31= 200153-2 200153-3 200155-1 200155-2 200155-3 209-1 209-2 209-3 209-4 209-5 41= 209-6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 SUPORT DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 209-1 209-2 209-3 209-4 209-5 209-6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 PERM SPC DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 18983-4 18987-4 21183-4 21187-4 21485-1 21485-5 21485-6 19765-4 19765-5 0*** USER WARNING MESSAGE 3017 0 ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS. (USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION VIA A 'PARAM AUTOSPC' BULK DATA CARD) 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS G R I D P O I N T S I N G U L A R I T Y T A B L E SPC 0 MPC 0 POINT SINGULARITY LIST OF COORDINATE COMBINATIONS THAT WILL REMOVE SINGULARITY ID. TYPE ORDER STRONGEST COMBINATION WEAKER COMBINATION WEAKEST COMBINATION 209 G 3 1 2 3 209 G 3 4 5 6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGE 3028 B = 8 BBAR = 3 C = 7 CBAR = 9 R = 10 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC REAL DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 79) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 0, EPSILON SUB E = 3.5812325E-13 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 41, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 41 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 15 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 37 0.0 0.0 0.0 2.308852E+01 0.0 2 38 0.0 0.0 0.0 2.308852E+01 0.0 3 39 0.0 0.0 0.0 2.308852E+01 0.0 4 40 0.0 0.0 0.0 4.745215E+00 0.0 5 41 0.0 0.0 0.0 2.199128E+01 0.0 6 36 0.0 0.0 0.0 3.051504E+03 0.0 7 35 3.523143E+02 1.877004E+01 2.987344E+00 3.058785E+00 1.077654E+03 8 34 4.491364E+02 2.119284E+01 3.372945E+00 6.502028E+00 2.920298E+03 9 33 2.364993E+04 1.537853E+02 2.447569E+01 8.486223E-01 2.006985E+04 10 32 2.840193E+04 1.685287E+02 2.682218E+01 8.414580E-01 2.389903E+04 11 31 1.495553E+05 3.867238E+02 6.154901E+01 5.886284E-01 8.803251E+04 12 30 1.953452E+05 4.419787E+02 7.034309E+01 4.855810E-01 9.485592E+04 13 29 5.072981E+05 7.122486E+02 1.133579E+02 3.867738E-01 1.962096E+05 14 28 5.446138E+05 7.379795E+02 1.174531E+02 3.940395E-01 2.145993E+05 15 27 1.069645E+06 1.034236E+03 1.646038E+02 1.257546E+00 1.345127E+06 16 26 3.326742E+06 1.823936E+03 2.902884E+02 0.0 0.0 17 25 3.333666E+06 1.825833E+03 2.905904E+02 0.0 0.0 18 24 8.023708E+06 2.832615E+03 4.508247E+02 0.0 0.0 19 23 8.048828E+06 2.837046E+03 4.515298E+02 0.0 0.0 20 22 1.904542E+07 4.364106E+03 6.945691E+02 0.0 0.0 21 21 1.908568E+07 4.368716E+03 6.953028E+02 0.0 0.0 22 20 2.978056E+07 5.457157E+03 8.685334E+02 0.0 0.0 23 18 3.754954E+07 6.127768E+03 9.752645E+02 0.0 0.0 24 19 3.754995E+07 6.127802E+03 9.752699E+02 0.0 0.0 25 17 7.120777E+07 8.438470E+03 1.343024E+03 0.0 0.0 26 16 7.133043E+07 8.445734E+03 1.344180E+03 0.0 0.0 27 15 8.488149E+07 9.213115E+03 1.466313E+03 0.0 0.0 28 14 9.721060E+07 9.859544E+03 1.569195E+03 0.0 0.0 29 12 1.444611E+08 1.201920E+04 1.912915E+03 0.0 0.0 30 13 1.452864E+08 1.205348E+04 1.918371E+03 0.0 0.0 31 11 1.620432E+08 1.272962E+04 2.025981E+03 0.0 0.0 32 9 2.362997E+08 1.537204E+04 2.446537E+03 0.0 0.0 33 10 2.363582E+08 1.537395E+04 2.446839E+03 0.0 0.0 34 8 2.386800E+08 1.544927E+04 2.458828E+03 0.0 0.0 35 7 2.969673E+08 1.723274E+04 2.742675E+03 0.0 0.0 36 6 3.486627E+08 1.867251E+04 2.971823E+03 0.0 0.0 37 4 6.061834E+08 2.462079E+04 3.918521E+03 0.0 0.0 38 5 6.061843E+08 2.462081E+04 3.918523E+03 0.0 0.0 39 3 7.824220E+08 2.797181E+04 4.451851E+03 0.0 0.0 40 2 1.548007E+09 3.934471E+04 6.261906E+03 0.0 0.0 41 1 2.871167E+09 5.358327E+04 8.528042E+03 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 E Q U I L I B R I U M C H E C K L O A D S 0 RESULTANT LOADS AT POINT 0 IN BASIC COORDINATE SYSTEM 0 SUBCASE 1, MODE 1, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 1.323489E-23 0.000000E+00 0.000000E+00 1.033976E-25 3.841455E-14 2.584939E-26 ---TOTAL 1.323489E-23 0.000000E+00 0.000000E+00 1.033976E-25 3.841455E-14 2.584939E-26 0 SUBCASE 1, MODE 2, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 2.646978E-23 0.000000E+00 0.000000E+00 ---TOTAL 0.000000E+00 0.000000E+00 0.000000E+00 2.646978E-23 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 3, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 -1.388562E-17 -1.105679E-14 -2.818896E-16 ---TOTAL 0.000000E+00 0.000000E+00 0.000000E+00 -1.388562E-17 -1.105679E-14 -2.818896E-16 0 SUBCASE 1, MODE 4, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 2.293550E-11 8.240058E-12 -5.267936E-12 ---TOTAL 0.000000E+00 0.000000E+00 0.000000E+00 2.293550E-11 8.240058E-12 -5.267936E-12 0 SUBCASE 1, MODE 5, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 1.804274E-12 -2.933340E-08 2.413113E-10 ---TOTAL 0.000000E+00 0.000000E+00 0.000000E+00 1.804274E-12 -2.933340E-08 2.413113E-10 0 SUBCASE 1, MODE 6, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 1.355253E-20 0.000000E+00 0.000000E+00 4.922538E-11 4.114644E-11 -1.708888E-11 ---TOTAL 1.355253E-20 0.000000E+00 0.000000E+00 4.922538E-11 4.114644E-11 -1.708888E-11 0 SUBCASE 1, MODE 7, FREQUENCY 2.987344E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 -2.168404E-19 0.000000E+00 -5.220482E-05 -3.014457E-04 -3.262815E-05 ---TOTAL 0.000000E+00 -2.168404E-19 0.000000E+00 -5.220482E-05 -3.014457E-04 -3.262815E-05 0 SUBCASE 1, MODE 8, FREQUENCY 3.372945E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE -7.105427E-15 0.000000E+00 0.000000E+00 -3.492460E-10 4.683021E-10 -3.771675E-09 ---TOTAL -7.105427E-15 0.000000E+00 0.000000E+00 -3.492460E-10 4.683021E-10 -3.771675E-09 0 SUBCASE 1, MODE 9, FREQUENCY 2.447569E+01 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 1.387779E-17 0.000000E+00 0.000000E+00 -1.222361E-09 1.679503E-08 -2.734305E-08 ---TOTAL 1.387779E-17 0.000000E+00 0.000000E+00 -1.222361E-09 1.679503E-08 -2.734305E-08 0 SUBCASE 1, MODE 10, FREQUENCY 2.682218E+01 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 -3.988580E-04 -7.718182E-04 -6.255479E-03 ---TOTAL 0.000000E+00 0.000000E+00 0.000000E+00 -3.988580E-04 -7.718182E-04 -6.255479E-03 0 SUBCASE 1, MODE 11, FREQUENCY 6.154901E+01 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE -1.455192E-11 0.000000E+00 0.000000E+00 -9.657501E-04 9.130112E-03 -2.926317E-02 ---TOTAL -1.455192E-11 0.000000E+00 0.000000E+00 -9.657501E-04 9.130112E-03 -2.926317E-02 0 SUBCASE 1, MODE 12, FREQUENCY 7.034309E+01 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 5.684342E-14 0.000000E+00 0.000000E+00 7.916242E-09 5.304981E-09 2.083834E-07 ---TOTAL 5.684342E-14 0.000000E+00 0.000000E+00 7.916242E-09 5.304981E-09 2.083834E-07 0 SUBCASE 1, MODE 13, FREQUENCY 1.133579E+02 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 1.455192E-11 -1.387779E-17 0.000000E+00 -1.479894E-04 1.561460E-02 -7.868833E-03 ---TOTAL 1.455192E-11 -1.387779E-17 0.000000E+00 -1.479894E-04 1.561460E-02 -7.868833E-03 0 SUBCASE 1, MODE 14, FREQUENCY 1.174531E+02 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE -1.705719E-13 -7.275958E-12 0.000000E+00 1.396984E-09 -9.642578E-09 3.929017E-08 ---TOTAL -1.705719E-13 -7.275958E-12 0.000000E+00 1.396984E-09 -9.642578E-09 3.929017E-08 0 SUBCASE 1, MODE 15, FREQUENCY 1.646038E+02 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 -8.181558E-04 -1.340751E-01 -2.643341E-02 ---TOTAL 0.000000E+00 0.000000E+00 0.000000E+00 -8.181558E-04 -1.340751E-01 -2.643341E-02 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -9.633720E-08 0.0 -4.021333E-07 7.065482E-10 1.257982E-06 -1.692645E-10 18983 G 0.0 0.0 -6.245005E-13 0.0 0.0 0.0 18987 G 0.0 0.0 -6.245005E-13 0.0 0.0 0.0 21183 G 0.0 0.0 6.245005E-13 0.0 0.0 0.0 21187 G 0.0 0.0 6.245005E-13 0.0 0.0 0.0 21485 G 0.0 0.0 3.885781E-12 0.0 0.0 0.0 189073 G 0.0 0.0 6.245005E-13 0.0 0.0 0.0 189077 G 0.0 0.0 6.245005E-13 0.0 0.0 0.0 200078 G 9.590743E-08 0.0 8.359672E-08 0.0 -1.200456E-08 0.0 200079 G -9.207447E-11 0.0 8.807942E-08 0.0 0.0 0.0 200101 G 5.218474E-10 0.0 2.304572E-07 0.0 0.0 0.0 211073 G 0.0 0.0 -6.245005E-13 0.0 0.0 0.0 211077 G 0.0 0.0 -6.245005E-13 0.0 0.0 0.0 214075 G 0.0 0.0 -3.885781E-12 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 0.0 0.0 0.0 -2.101853E-11 0.0 0.0 18983 G 0.0 0.0 4.246167E-13 0.0 0.0 0.0 18987 G 0.0 0.0 -4.246167E-13 0.0 0.0 0.0 21183 G 0.0 0.0 4.246167E-13 0.0 0.0 0.0 21187 G 0.0 0.0 -4.246167E-13 0.0 0.0 0.0 189073 G 0.0 0.0 -4.246167E-13 0.0 0.0 0.0 189077 G 0.0 0.0 4.246167E-13 0.0 0.0 0.0 200078 G 0.0 -1.342849E-09 0.0 3.298063E-08 0.0 0.0 200079 G 0.0 -8.939063E-11 0.0 0.0 0.0 0.0 200101 G 0.0 1.432240E-09 0.0 0.0 0.0 0.0 211073 G 0.0 0.0 -4.246167E-13 0.0 0.0 0.0 211077 G 0.0 0.0 4.246167E-13 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 2.857787E-08 0.0 1.154840E-07 -2.029054E-10 -3.370324E-07 5.021103E-11 18983 G -2.123302E-10 0.0 -2.091838E-11 0.0 0.0 0.0 18987 G -2.123302E-10 0.0 -2.091838E-11 0.0 0.0 0.0 21183 G -2.123302E-10 0.0 4.183676E-11 0.0 0.0 0.0 21187 G -2.123302E-10 0.0 4.183676E-11 0.0 0.0 0.0 21485 G 0.0 0.0 2.182787E-10 0.0 0.0 0.0 189073 G 2.123302E-10 0.0 2.091838E-11 0.0 0.0 0.0 189077 G 2.123302E-10 0.0 2.091838E-11 0.0 0.0 0.0 200078 G -2.843314E-08 0.0 -2.421439E-08 0.0 2.607519E-11 0.0 200079 G 5.774033E-11 0.0 -2.421439E-08 0.0 0.0 0.0 200101 G -2.024715E-10 0.0 -6.705523E-08 0.0 0.0 0.0 211073 G 2.123302E-10 0.0 -4.183676E-11 0.0 0.0 0.0 211077 G 2.123302E-10 0.0 -4.183676E-11 0.0 0.0 0.0 214075 G 0.0 0.0 -2.182787E-10 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -4.792809E-06 -8.913342E-04 -2.000607E-05 1.901989E-02 6.257930E-05 -7.387653E-03 18983 G 4.454960E-06 2.302457E-04 -1.401777E-05 0.0 0.0 0.0 18987 G -1.239089E-05 2.302457E-04 -2.126909E-05 0.0 0.0 0.0 21183 G 4.454960E-06 2.154214E-04 -1.328259E-05 0.0 0.0 0.0 21187 G -1.239089E-05 2.154214E-04 -2.053391E-05 0.0 0.0 0.0 21485 G 0.0 0.0 2.851290E-06 0.0 0.0 0.0 189073 G -4.454960E-06 -2.302457E-04 1.401777E-05 0.0 0.0 0.0 189077 G 1.239089E-05 -2.302457E-04 2.126909E-05 0.0 0.0 0.0 200078 G 4.792807E-06 2.458370E-02 4.161944E-06 -4.493844E-01 -2.460596E-11 1.379097E-12 200079 G 1.304736E-12 -4.524775E-03 4.375824E-06 0.0 0.0 -2.743273E-12 200101 G 9.647674E-13 -1.916759E-02 1.146831E-05 0.0 0.0 0.0 211073 G -4.454960E-06 -2.154214E-04 1.328259E-05 0.0 0.0 0.0 211077 G 1.239089E-05 -2.154214E-04 2.053391E-05 0.0 0.0 0.0 214075 G 0.0 0.0 -2.851290E-06 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 7.283613E-02 -4.742772E-11 3.070352E-01 -5.394585E-04 -9.750485E-01 1.279729E-04 18983 G 1.817650E-04 1.225133E-11 -9.021242E-06 0.0 0.0 0.0 18987 G 1.817650E-04 1.225133E-11 -9.021192E-06 0.0 0.0 0.0 21183 G 1.817650E-04 1.146253E-11 6.303094E-06 0.0 0.0 0.0 21187 G 1.817650E-04 1.146253E-11 6.303144E-06 0.0 0.0 0.0 21485 G 0.0 0.0 3.670730E-05 0.0 0.0 0.0 189073 G -1.817650E-04 -1.225133E-11 9.021242E-06 0.0 0.0 0.0 189077 G -1.817650E-04 -1.225133E-11 9.021192E-06 0.0 0.0 0.0 200078 G -4.699313E-02 -2.720109E-08 -6.387376E-02 3.478584E-07 6.718232E-01 1.093001E-11 200079 G 3.495119E-03 1.297109E-08 -6.715619E-02 0.0 0.0 -2.616189E-18 200101 G -2.933813E-02 1.427743E-08 -1.760052E-01 0.0 0.0 0.0 211073 G -1.817650E-04 -1.146253E-11 -6.303094E-06 0.0 0.0 0.0 211077 G -1.817650E-04 -1.146253E-11 -6.303144E-06 0.0 0.0 0.0 214075 G 0.0 0.0 -3.670730E-05 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -5.170027E-05 3.125151E-04 -2.093978E-04 -6.942764E-03 6.196592E-04 2.590130E-03 18983 G -1.582519E-05 -8.072759E-05 -5.988371E-05 0.0 0.0 0.0 18987 G -9.918818E-06 -8.072759E-05 -6.843156E-05 0.0 0.0 0.0 21183 G -1.582519E-05 -7.552998E-05 -5.723190E-06 0.0 0.0 0.0 21187 G -9.918818E-06 -7.552998E-05 -1.427104E-05 0.0 0.0 0.0 21485 G 0.0 0.0 -7.301986E-05 0.0 0.0 0.0 189073 G 1.582519E-05 8.072759E-05 5.988371E-05 0.0 0.0 0.0 189077 G 9.918818E-06 8.072759E-05 6.843156E-05 0.0 0.0 0.0 200078 G 1.305221E-04 -8.291303E-02 4.356186E-05 1.685142E+00 1.838103E-03 -1.124128E-09 200079 G 6.777021E-07 1.033780E-02 4.580047E-05 0.0 0.0 -4.656613E-10 200101 G -7.949955E-05 7.226271E-02 1.200354E-04 0.0 0.0 0.0 211073 G 1.582519E-05 7.552998E-05 5.723190E-06 0.0 0.0 0.0 211077 G 9.918818E-06 7.552998E-05 1.427104E-05 0.0 0.0 0.0 214075 G 0.0 0.0 7.301986E-05 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.352314E+03 (CYCLIC FREQUENCY = 2.987344E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 8.542817E+02 -1.148010E-03 1.408421E+01 8.875536E-02 8.362155E+04 1.491425E+00 18983 G -2.457677E+01 2.965492E-04 -4.642505E+02 0.0 0.0 0.0 18987 G -2.457680E+01 2.965492E-04 -4.642469E+02 0.0 0.0 0.0 21183 G -2.457677E+01 2.774559E-04 5.428923E+02 0.0 0.0 0.0 21187 G -2.457680E+01 2.774559E-04 5.428959E+02 0.0 0.0 0.0 21485 G 0.0 0.0 2.984203E+03 0.0 0.0 0.0 189073 G 2.457677E+01 -2.965492E-04 4.642505E+02 0.0 0.0 0.0 189077 G 2.457680E+01 -2.965492E-04 4.642469E+02 0.0 0.0 0.0 200078 G 2.684400E+01 1.565766E-04 -6.260682E-01 -8.247953E-03 -9.118691E+01 -4.274636E-11 200079 G 2.075721E+03 -2.666838E-03 -5.903737E-01 0.0 0.0 1.110223E-16 200101 G -2.956847E+03 3.658272E-03 -1.286777E+01 0.0 0.0 0.0 211073 G 2.457677E+01 -2.774559E-04 -5.428923E+02 0.0 0.0 0.0 211077 G 2.457680E+01 -2.774559E-04 -5.428959E+02 0.0 0.0 0.0 214075 G 0.0 0.0 -2.984203E+03 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.449136E+03 (CYCLIC FREQUENCY = 3.372945E+00 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 1.027537E-02 8.816226E+02 -1.500520E-02 -9.825212E+04 5.417212E-01 7.307152E+03 18983 G -8.334016E+00 -2.277371E+02 1.601251E+03 0.0 0.0 0.0 18987 G 8.328288E+00 -2.277371E+02 -1.601253E+03 0.0 0.0 0.0 21183 G -8.334016E+00 -2.130742E+02 1.601254E+03 0.0 0.0 0.0 21187 G 8.328288E+00 -2.130742E+02 -1.601250E+03 0.0 0.0 0.0 21485 G 0.0 0.0 9.093590E-03 0.0 0.0 0.0 189073 G 8.334016E+00 2.277371E+02 -1.601251E+03 0.0 0.0 0.0 189077 G -8.328288E+00 2.277371E+02 1.601253E+03 0.0 0.0 0.0 200078 G -3.524382E-03 1.070830E+02 -7.575724E-02 1.628531E+02 -2.799110E-04 1.432454E-11 200079 G 1.838636E-03 2.601391E+03 2.864007E-02 0.0 0.0 3.410605E-12 200101 G -8.589627E-03 -3.590097E+03 6.212237E-02 0.0 0.0 0.0 211073 G 8.334016E+00 2.130742E+02 -1.601254E+03 0.0 0.0 0.0 211077 G -8.328288E+00 2.130742E+02 1.601250E+03 0.0 0.0 0.0 214075 G 0.0 0.0 -9.093590E-03 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.236499E+05 (CYCLIC FREQUENCY = 2.447569E+01 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 4.076890E-02 1.529217E+04 -1.941184E-01 -4.280362E+05 2.781596E+00 1.267460E+05 18983 G -1.445285E+02 -3.950208E+03 1.992789E+03 0.0 0.0 0.0 18987 G 1.444871E+02 -3.950208E+03 -1.992791E+03 0.0 0.0 0.0 21183 G -1.445285E+02 -3.695875E+03 1.992792E+03 0.0 0.0 0.0 21187 G 1.444871E+02 -3.695875E+03 -1.992787E+03 0.0 0.0 0.0 21485 G 0.0 0.0 1.451893E-02 0.0 0.0 0.0 189073 G 1.445285E+02 3.950208E+03 -1.992789E+03 0.0 0.0 0.0 189077 G -1.444871E+02 3.950208E+03 1.992791E+03 0.0 0.0 0.0 200078 G -1.676536E-02 -2.157355E+03 2.048323E-02 2.305789E+04 -2.368291E-02 0.0 200079 G -1.312193E-02 -1.053848E+04 4.104262E-03 0.0 0.0 0.0 200101 G -1.088161E-02 -2.596330E+03 1.695309E-01 0.0 0.0 0.0 211073 G 1.445285E+02 3.695875E+03 -1.992792E+03 0.0 0.0 0.0 211077 G -1.444871E+02 3.695875E+03 1.992787E+03 0.0 0.0 0.0 214075 G 0.0 0.0 -1.451893E-02 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.284019E+05 (CYCLIC FREQUENCY = 2.682218E+01 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 2.078306E+04 -2.736260E-02 -3.228644E+03 6.523232E+00 6.904508E+05 3.628280E+01 18983 G -4.711869E+03 7.068193E-03 -1.271735E+03 0.0 0.0 0.0 18987 G -4.711869E+03 7.068193E-03 -1.271724E+03 0.0 0.0 0.0 21183 G -4.711869E+03 6.613108E-03 1.872595E+03 0.0 0.0 0.0 21187 G -4.711869E+03 6.613108E-03 1.872605E+03 0.0 0.0 0.0 21485 G 0.0 0.0 1.010641E+04 0.0 0.0 0.0 189073 G 4.711869E+03 -7.068193E-03 1.271735E+03 0.0 0.0 0.0 189077 G 4.711869E+03 -7.068193E-03 1.271724E+03 0.0 0.0 0.0 200078 G -3.463880E+03 2.731989E-04 1.406916E+02 -2.405403E-02 -2.556608E+04 1.455187E-11 200079 G -9.697204E+03 1.796259E-02 1.326390E+02 0.0 0.0 4.163336E-17 200101 G -7.621981E+03 9.126816E-03 2.955313E+03 0.0 0.0 0.0 211073 G 4.711869E+03 -6.613108E-03 -1.872595E+03 0.0 0.0 0.0 211077 G 4.711869E+03 -6.613108E-03 -1.872605E+03 0.0 0.0 0.0 214075 G 0.0 0.0 -1.010641E+04 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.149555E+06 (CYCLIC FREQUENCY = 6.154901E+01 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 6.527185E+04 5.748166E-01 -9.312070E+04 1.522860E+02 2.035270E+06 1.194176E+02 18983 G -2.204216E+04 -1.484842E-01 2.268464E+03 0.0 0.0 0.0 18987 G -2.204215E+04 -1.484842E-01 2.268507E+03 0.0 0.0 0.0 21183 G -2.204216E+04 -1.389241E-01 -8.136258E+02 0.0 0.0 0.0 21187 G -2.204215E+04 -1.389241E-01 -8.135831E+02 0.0 0.0 0.0 21485 G 0.0 0.0 -5.364455E+03 0.0 0.0 0.0 189073 G 2.204216E+04 1.484842E-01 -2.268464E+03 0.0 0.0 0.0 189077 G 2.204215E+04 1.484842E-01 -2.268507E+03 0.0 0.0 0.0 200078 G -5.684745E+04 -4.891713E-01 3.497656E+03 -1.286699E+00 1.463483E+05 0.0 200079 G -8.822879E+03 -8.081222E-02 3.296792E+03 0.0 0.0 0.0 200101 G 3.984850E+02 -4.833087E-03 8.632626E+04 0.0 0.0 0.0 211073 G 2.204216E+04 1.389241E-01 8.136258E+02 0.0 0.0 0.0 211077 G 2.204215E+04 1.389241E-01 8.135831E+02 0.0 0.0 0.0 214075 G 0.0 0.0 5.364455E+03 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.195345E+06 (CYCLIC FREQUENCY = 7.034309E+01 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -6.505733E-01 9.222319E+04 -6.685863E-02 -1.909049E+06 -1.256305E+01 7.643734E+05 18983 G -8.713308E+02 -2.382271E+04 -1.564401E+03 0.0 0.0 0.0 18987 G 8.716495E+02 -2.382271E+04 1.564370E+03 0.0 0.0 0.0 21183 G -8.713308E+02 -2.228888E+04 -1.564381E+03 0.0 0.0 0.0 21187 G 8.716495E+02 -2.228888E+04 1.564390E+03 0.0 0.0 0.0 21485 G 0.0 0.0 3.266480E-02 0.0 0.0 0.0 189073 G 8.713308E+02 2.382271E+04 1.564401E+03 0.0 0.0 0.0 189077 G -8.716495E+02 2.382271E+04 -1.564370E+03 0.0 0.0 0.0 200078 G 5.160499E-01 -7.252590E+04 1.292283E-01 -1.767067E+05 -1.263762E+00 0.0 200079 G 1.267308E-01 -1.645486E+04 -4.382817E-02 0.0 0.0 0.0 200101 G 7.792643E-03 -3.242429E+03 -1.854148E-02 0.0 0.0 0.0 211073 G 8.713308E+02 2.228888E+04 1.564381E+03 0.0 0.0 0.0 211077 G -8.716495E+02 2.228888E+04 -1.564390E+03 0.0 0.0 0.0 214075 G 0.0 0.0 -3.266480E-02 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.507298E+06 (CYCLIC FREQUENCY = 1.133579E+02 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -1.545032E+04 -3.474046E-02 -1.559267E+05 2.751115E+02 7.781604E+05 -2.744202E+01 18983 G -5.927110E+03 8.974010E-03 1.629758E+03 0.0 0.0 0.0 18987 G -5.927110E+03 8.974010E-03 1.629774E+03 0.0 0.0 0.0 21183 G -5.927110E+03 8.396219E-03 -1.406831E+03 0.0 0.0 0.0 21187 G -5.927110E+03 8.396219E-03 -1.406815E+03 0.0 0.0 0.0 21485 G 0.0 0.0 -7.975171E+03 0.0 0.0 0.0 189073 G 5.927110E+03 -8.974010E-03 -1.629758E+03 0.0 0.0 0.0 189077 G 5.927110E+03 -8.974010E-03 -1.629774E+03 0.0 0.0 0.0 200078 G -3.589540E+04 -1.152645E-01 2.642076E+03 -1.489095E+00 4.628788E+05 5.820767E-11 200079 G 6.787584E+04 2.106249E-01 2.489022E+03 0.0 0.0 -1.387779E-17 200101 G -1.653012E+04 -6.061989E-02 1.507956E+05 0.0 0.0 0.0 211073 G 5.927110E+03 -8.396219E-03 1.406831E+03 0.0 0.0 0.0 211077 G 5.927110E+03 -8.396219E-03 1.406815E+03 0.0 0.0 0.0 214075 G 0.0 0.0 7.975171E+03 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.544614E+06 (CYCLIC FREQUENCY = 1.174531E+02 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -9.784778E-02 4.669009E+04 7.696017E-02 -8.968731E+05 -2.121522E+00 3.869815E+05 18983 G -4.411813E+02 -1.206079E+04 -2.198613E+03 0.0 0.0 0.0 18987 G 4.412423E+02 -1.206079E+04 2.198601E+03 0.0 0.0 0.0 21183 G -4.411813E+02 -1.128426E+04 -2.198603E+03 0.0 0.0 0.0 21187 G 4.412423E+02 -1.128426E+04 2.198612E+03 0.0 0.0 0.0 21485 G 0.0 0.0 2.690862E-02 0.0 0.0 0.0 189073 G 4.411813E+02 1.206079E+04 2.198613E+03 0.0 0.0 0.0 189077 G -4.412423E+02 1.206079E+04 -2.198601E+03 0.0 0.0 0.0 200078 G 2.246275E-01 -8.555726E+04 5.193660E-02 -6.429478E+05 -1.793763E+00 -2.910383E-11 200079 G -1.895501E-01 6.622625E+04 -2.058280E-02 0.0 0.0 0.0 200101 G 6.277040E-02 -2.735909E+04 -1.083140E-01 0.0 0.0 0.0 211073 G 4.411813E+02 1.128426E+04 2.198603E+03 0.0 0.0 0.0 211077 G -4.412423E+02 1.128426E+04 -2.198612E+03 0.0 0.0 0.0 214075 G 0.0 0.0 -2.690862E-02 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.106964E+07 (CYCLIC FREQUENCY = 1.646038E+02 HZ) F O R C E S O F M U L T I - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 4.158803E+05 5.067949E-01 1.409070E+06 -2.486980E+03 -2.918888E+06 7.348758E+02 18983 G -1.991067E+04 -1.309131E-01 2.544004E+03 0.0 0.0 0.0 18987 G -1.991066E+04 -1.309131E-01 2.543991E+03 0.0 0.0 0.0 21183 G -1.991067E+04 -1.224843E-01 -1.311458E+03 0.0 0.0 0.0 21187 G -1.991066E+04 -1.224843E-01 -1.311471E+03 0.0 0.0 0.0 21485 G 0.0 0.0 -8.015892E+03 0.0 0.0 0.0 189073 G 1.991067E+04 1.309131E-01 -2.544004E+03 0.0 0.0 0.0 189077 G 1.991066E+04 1.309131E-01 -2.543991E+03 0.0 0.0 0.0 200078 G -3.694023E+05 -4.195791E-01 3.929329E+04 -1.539915E+00 1.291299E+06 -5.820772E-11 200079 G 8.909943E+02 -6.808867E-03 3.698691E+04 0.0 0.0 5.551115E-17 200101 G -4.736901E+04 -8.040691E-02 -1.485350E+06 0.0 0.0 0.0 211073 G 1.991067E+04 1.224843E-01 1.311458E+03 0.0 0.0 0.0 211077 G 1.991066E+04 1.224843E-01 1.311471E+03 0.0 0.0 0.0 214075 G 0.0 0.0 8.015892E+03 0.0 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 18983 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 18987 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 19765 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 21183 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 21187 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 21485 G 0.0 0.0 0.0 0.0 0.0 0.0 189073 G 1.000000E+00 0.0 1.387779E-16 0.0 1.273768E-17 0.0 189077 G 1.000000E+00 0.0 1.387779E-16 0.0 1.273768E-17 0.0 200070 G 1.000000E+00 0.0 -6.328272E-15 0.0 -1.330773E-17 0.0 200078 G 1.000000E+00 0.0 0.0 0.0 1.273768E-17 0.0 200079 G 1.000000E+00 0.0 0.0 0.0 1.273768E-17 0.0 200086 G 1.000000E+00 0.0 -6.341715E-15 0.0 -1.325098E-17 0.0 200087 G 1.000000E+00 0.0 0.0 0.0 1.273768E-17 0.0 200095 G 1.000000E+00 0.0 -6.336078E-15 0.0 2.670525E-17 0.0 200096 G 1.000000E+00 0.0 0.0 0.0 1.273768E-17 0.0 200101 G 1.000000E+00 0.0 0.0 0.0 2.012381E-17 0.0 200106 G 1.000000E+00 0.0 -6.326537E-15 0.0 -5.277354E-17 0.0 200114 G 1.000000E+00 0.0 -6.315478E-15 0.0 1.250390E-17 0.0 200121 G 1.000000E+00 0.0 -6.313527E-15 0.0 7.692753E-18 0.0 200129 G 1.000000E+00 0.0 -6.311791E-15 0.0 3.785390E-18 0.0 200137 G 1.000000E+00 0.0 -6.309189E-15 0.0 7.740611E-18 0.0 200145 G 1.000000E+00 0.0 -6.308160E-15 0.0 -1.479871E-17 0.0 200153 G 1.000000E+00 0.0 -6.309340E-15 0.0 4.655832E-17 0.0 200155 G 1.000000E+00 0.0 -6.309340E-15 0.0 3.223199E-17 0.0 211073 G 1.000000E+00 0.0 -1.387779E-16 0.0 1.273768E-17 0.0 211077 G 1.000000E+00 0.0 -1.387779E-16 0.0 1.273768E-17 0.0 214075 G 1.000000E+00 0.0 -1.942890E-16 0.0 1.273768E-17 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 18983 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 18987 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 19765 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 21183 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 21187 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 21485 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 189073 G 0.0 1.000000E+00 -9.435926E-17 -7.624991E-18 0.0 0.0 189077 G 0.0 1.000000E+00 9.435926E-17 -7.624991E-18 0.0 0.0 200070 G 0.0 1.000000E+00 0.0 -1.700419E-17 0.0 0.0 200078 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 200079 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 200086 G 0.0 1.000000E+00 0.0 1.286474E-17 0.0 0.0 200087 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 200095 G 0.0 1.000000E+00 0.0 -4.880604E-17 0.0 0.0 200096 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 200101 G 0.0 1.000000E+00 0.0 -1.331875E-17 0.0 0.0 200106 G 0.0 1.000000E+00 0.0 1.694066E-17 0.0 0.0 200114 G 0.0 1.000000E+00 0.0 -5.204170E-18 0.0 0.0 200121 G 0.0 1.000000E+00 0.0 1.127570E-17 0.0 0.0 200129 G 0.0 1.000000E+00 0.0 1.474515E-17 0.0 0.0 200137 G 0.0 1.000000E+00 0.0 1.040834E-17 0.0 0.0 200145 G 0.0 1.000000E+00 0.0 1.387779E-17 0.0 0.0 200153 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 200155 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 211073 G 0.0 1.000000E+00 -9.435926E-17 -7.624991E-18 0.0 0.0 211077 G 0.0 1.000000E+00 9.435926E-17 -7.624991E-18 0.0 0.0 214075 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 18983 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 18987 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 19765 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 21183 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 21187 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 21485 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 189073 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 189077 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200070 G -4.862983E-15 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200078 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200079 G 8.945737E-16 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200086 G 5.282075E-15 0.0 1.000000E+00 0.0 6.176852E-16 0.0 200087 G 5.475168E-15 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200095 G 1.083319E-14 0.0 1.000000E+00 0.0 6.527213E-16 0.0 200096 G 1.104186E-14 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200101 G 1.465227E-14 0.0 1.000000E+00 0.0 7.005520E-16 0.0 200106 G 1.854924E-14 0.0 1.000000E+00 0.0 7.615981E-16 0.0 200114 G 2.493302E-14 0.0 1.000000E+00 0.0 8.282532E-16 0.0 200121 G 3.087272E-14 0.0 1.000000E+00 0.0 8.679134E-16 0.0 200129 G 3.795039E-14 0.0 1.000000E+00 0.0 8.971601E-16 0.0 200137 G 4.518072E-14 0.0 1.000000E+00 0.0 9.089458E-16 0.0 200145 G 5.248737E-14 0.0 1.000000E+00 0.0 9.184258E-16 0.0 200153 G 5.964137E-14 0.0 1.000000E+00 0.0 9.232443E-16 0.0 200155 G 6.168141E-14 0.0 1.000000E+00 0.0 9.230140E-16 0.0 211073 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 211077 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 214075 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -9.657564E-11 -1.563668E-01 -3.725052E-06 -1.168756E-02 0.0 0.0 18983 G -9.657564E-11 9.538307E-02 -1.446167E-01 0.0 0.0 0.0 18987 G -9.657564E-11 9.538307E-02 1.446503E-01 0.0 0.0 0.0 19765 G -9.657564E-11 -5.585395E-02 1.680999E-05 0.0 0.0 0.0 21183 G -9.657564E-11 9.538307E-02 -1.446167E-01 0.0 0.0 0.0 21187 G -9.657564E-11 9.538307E-02 1.446503E-01 0.0 0.0 0.0 21485 G 0.0 9.538307E-02 1.680999E-05 -1.168756E-02 0.0 0.0 189073 G -2.549742E-10 9.538306E-02 -1.446167E-01 -1.168756E-02 7.501072E-12 2.420055E-11 189077 G 3.439893E-10 9.538306E-02 1.446503E-01 -1.168756E-02 7.501072E-12 2.420055E-11 200070 G -1.227557E-11 6.908262E-03 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200078 G 4.450754E-11 9.538306E-02 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200079 G 5.560915E-11 1.126807E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200086 G 1.096168E-10 1.968311E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200087 G 1.096168E-10 1.968311E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200095 G 1.752512E-10 2.990972E-01 1.680995E-05 -1.168756E-02 7.501071E-12 2.420055E-11 200096 G 1.752512E-10 2.990972E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200101 G 2.178198E-10 3.654241E-01 1.680995E-05 -1.168756E-02 7.501071E-12 2.420055E-11 200106 G 2.577630E-10 4.276603E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200114 G 3.177716E-10 5.211608E-01 1.680995E-05 -1.168756E-02 7.501071E-12 2.420055E-11 200121 G 3.702791E-10 6.029737E-01 1.680995E-05 -1.168756E-02 7.501071E-12 2.420055E-11 200129 G 4.302876E-10 6.964741E-01 1.680995E-05 -1.168756E-02 7.501073E-12 2.420055E-11 200137 G 4.902962E-10 7.899746E-01 1.680995E-05 -1.168756E-02 7.501070E-12 2.420055E-11 200145 G 5.503048E-10 8.834750E-01 1.680995E-05 -1.168756E-02 7.501080E-12 2.420055E-11 200153 G 6.085131E-10 9.741704E-01 1.680995E-05 -1.168755E-02 7.501055E-12 2.420055E-11 200155 G 6.250905E-10 1.000000E+00 1.680995E-05 -1.168755E-02 7.501045E-12 2.420055E-11 211073 G -2.549742E-10 9.538306E-02 -1.446167E-01 -1.168756E-02 7.501072E-12 2.420055E-11 211077 G 3.439893E-10 9.538306E-02 1.446503E-01 -1.168756E-02 7.501072E-12 2.420055E-11 214075 G 4.450754E-11 9.538306E-02 1.680984E-05 -1.168756E-02 7.501072E-12 2.420055E-11 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -1.563668E-01 -2.240056E-07 1.751981E-02 -1.674319E-08 1.168756E-02 0.0 18983 G 9.538307E-02 1.366425E-07 3.822643E-02 0.0 1.168756E-02 0.0 18987 G 9.538307E-02 1.366425E-07 3.822684E-02 0.0 1.168756E-02 0.0 19765 G -5.585395E-02 -8.001442E-08 -4.311867E-02 0.0 0.0 0.0 21183 G 9.538307E-02 1.366425E-07 -2.163286E-01 0.0 1.168756E-02 0.0 21187 G 9.538307E-02 1.366425E-07 -2.163281E-01 0.0 1.168756E-02 0.0 21485 G 0.0 1.366425E-07 -2.488198E-01 -1.674319E-08 0.0 0.0 189073 G 9.538306E-02 1.366425E-07 3.822643E-02 -1.674319E-08 1.168756E-02 1.287707E-18 189077 G 9.538306E-02 1.366425E-07 3.822684E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200070 G 6.908263E-03 9.896536E-09 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200078 G 9.538306E-02 1.366425E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200079 G 1.126807E-01 1.614224E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200086 G 1.968311E-01 2.819733E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200087 G 1.968311E-01 2.819733E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200095 G 2.990972E-01 4.284762E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200096 G 2.990972E-01 4.284762E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200101 G 3.654241E-01 5.234938E-07 -7.935017E-02 -1.674318E-08 1.168756E-02 1.287707E-18 200106 G 4.276603E-01 6.126513E-07 -7.935017E-02 -1.674318E-08 1.168755E-02 1.287707E-18 200114 G 5.211608E-01 7.465968E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200121 G 6.029737E-01 8.637991E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200129 G 6.964741E-01 9.977446E-07 -7.935017E-02 -1.674319E-08 1.168755E-02 1.287707E-18 200137 G 7.899746E-01 1.131690E-06 -7.935017E-02 -1.674319E-08 1.168755E-02 1.287707E-18 200145 G 8.834750E-01 1.265636E-06 -7.935017E-02 -1.674318E-08 1.168756E-02 1.287707E-18 200153 G 9.741704E-01 1.395563E-06 -7.935017E-02 -1.674321E-08 1.168756E-02 1.287707E-18 200155 G 1.000000E+00 1.432565E-06 -7.935017E-02 -1.674322E-08 1.168755E-02 1.287707E-18 211073 G 9.538306E-02 1.366425E-07 -2.163286E-01 -1.674319E-08 1.168756E-02 1.287707E-18 211077 G 9.538306E-02 1.366425E-07 -2.163282E-01 -1.674319E-08 1.168756E-02 1.287707E-18 214075 G 9.538306E-02 1.366425E-07 -2.488198E-01 -1.674319E-08 1.168756E-02 1.287707E-18 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -4.168538E-05 -1.024119E-01 2.229137E-06 8.935354E-03 -4.113639E-07 1.480688E-01 18983 G -1.832142E+00 -5.572125E-01 1.105608E-01 0.0 -4.113639E-07 1.480688E-01 18987 G 1.832561E+00 -5.572125E-01 -1.105892E-01 0.0 -4.113639E-07 1.480688E-01 19765 G 2.149338E-04 5.889686E-01 -1.133600E-05 0.0 0.0 1.480688E-01 21183 G -1.832142E+00 2.667726E+00 1.105698E-01 0.0 -4.113639E-07 1.480688E-01 21187 G 1.832561E+00 2.667726E+00 -1.105802E-01 0.0 -4.113639E-07 1.480688E-01 21485 G 0.0 3.079357E+00 -4.095996E-06 8.935354E-03 0.0 0.0 189073 G -1.832142E+00 -5.572125E-01 1.105608E-01 8.935354E-03 -4.108113E-07 1.480688E-01 189077 G 1.832561E+00 -5.572125E-01 -1.105892E-01 8.935354E-03 -4.108113E-07 1.480688E-01 200070 G 2.126719E-04 1.000000E+00 -1.004911E-05 8.935350E-03 -4.108148E-07 1.480688E-01 200078 G 2.095621E-04 9.323594E-01 -1.004911E-05 8.935354E-03 -4.108113E-07 1.480688E-01 200079 G 2.089541E-04 9.191350E-01 -1.004911E-05 8.935354E-03 -4.108113E-07 1.480688E-01 200086 G 2.059962E-04 8.548005E-01 -1.004911E-05 8.935357E-03 -4.108099E-07 1.480688E-01 200087 G 2.059962E-04 8.548005E-01 -1.004911E-05 8.935354E-03 -4.108113E-07 1.480688E-01 200095 G 2.024016E-04 7.766162E-01 -1.004911E-05 8.935349E-03 -4.108132E-07 1.480688E-01 200096 G 2.024016E-04 7.766162E-01 -1.004911E-05 8.935354E-03 -4.108113E-07 1.480688E-01 200101 G 2.000703E-04 7.259080E-01 -1.004911E-05 8.935351E-03 -4.108117E-07 1.480688E-01 200106 G 1.978827E-04 6.783273E-01 -1.004911E-05 8.935357E-03 -4.108088E-07 1.480688E-01 200114 G 1.945962E-04 6.068444E-01 -1.004911E-05 8.935351E-03 -4.108119E-07 1.480688E-01 200121 G 1.917206E-04 5.442970E-01 -1.004911E-05 8.935351E-03 -4.108113E-07 1.480688E-01 200129 G 1.884341E-04 4.728141E-01 -1.004911E-05 8.935357E-03 -4.108108E-07 1.480688E-01 200137 G 1.851476E-04 4.013313E-01 -1.004911E-05 8.935355E-03 -4.108109E-07 1.480688E-01 200145 G 1.818611E-04 3.298485E-01 -1.004911E-05 8.935349E-03 -4.108112E-07 1.480688E-01 200153 G 1.786732E-04 2.605102E-01 -1.004911E-05 8.935357E-03 -4.108096E-07 1.480688E-01 200155 G 1.777653E-04 2.407630E-01 -1.004911E-05 8.935359E-03 -4.108083E-07 1.480688E-01 211073 G -1.832142E+00 2.667726E+00 1.105698E-01 8.935354E-03 -4.108113E-07 1.480688E-01 211077 G 1.832561E+00 2.667726E+00 -1.105802E-01 8.935354E-03 -4.108113E-07 1.480688E-01 214075 G 2.095621E-04 3.079357E+00 -4.092345E-06 8.935354E-03 -4.108113E-07 1.480688E-01 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.352314E+03 (CYCLIC FREQUENCY = 2.987344E+00 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -1.281382E-01 1.691115E-07 -2.534163E-03 -1.922461E-08 -1.715252E-03 -3.040498E-08 18983 G -1.650843E-01 6.370777E-07 -5.573309E-03 0.0 -1.715252E-03 -3.040498E-08 18987 G -1.650851E-01 6.370777E-07 -5.572834E-03 0.0 -1.715252E-03 -3.040498E-08 19765 G -1.428893E-01 1.766929E-07 6.365067E-03 0.0 0.0 -3.040498E-08 21183 G -1.650843E-01 -2.514270E-08 3.178487E-02 0.0 -1.715252E-03 -3.040498E-08 21187 G -1.650851E-01 -2.514270E-08 3.178535E-02 0.0 -1.715252E-03 -3.040498E-08 21485 G 0.0 -1.096685E-07 3.655351E-02 -1.922461E-08 0.0 0.0 189073 G -1.642105E-01 6.265337E-07 9.759346E-02 1.299901E-08 8.560667E-03 -3.037381E-08 189077 G -1.642112E-01 6.265337E-07 9.759314E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200070 G -2.290160E-01 4.194566E-07 1.147306E-02 1.301502E-08 8.560844E-03 -3.037381E-08 200078 G -1.642108E-01 3.209733E-07 1.147301E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200079 G -1.515410E-01 3.017347E-07 1.147301E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200086 G -9.852263E-02 2.197933E-07 1.147306E-02 1.176456E-08 7.662398E-03 -3.037381E-08 200087 G -8.990425E-02 2.081419E-07 1.147301E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200095 G -2.478640E-02 1.078383E-07 1.147305E-02 1.415583E-08 9.411636E-03 -3.037381E-08 200096 G -1.499841E-02 9.440056E-08 1.147301E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200101 G 3.358340E-02 2.063114E-08 1.147301E-02 1.669187E-08 1.125167E-02 -3.037381E-08 200106 G 9.860229E-02 -7.520995E-08 1.147366E-02 1.926111E-08 1.313361E-02 -3.037381E-08 200114 G 2.137211E-01 -2.430559E-07 1.147460E-02 2.258852E-08 1.556749E-02 -3.037381E-08 200121 G 3.290100E-01 -4.097938E-07 1.147537E-02 2.497315E-08 1.731289E-02 -3.037381E-08 200129 G 4.740710E-01 -6.185717E-07 1.147620E-02 2.711603E-08 1.887638E-02 -3.037381E-08 200137 G 6.298204E-01 -8.419798E-07 1.147702E-02 2.863244E-08 1.998549E-02 -3.037381E-08 200145 G 7.926352E-01 -1.075047E-06 1.147784E-02 2.953232E-08 2.064322E-02 -3.037381E-08 200153 G 9.539133E-01 -1.305709E-06 1.147862E-02 2.982079E-08 2.085354E-02 -3.037381E-08 200155 G 1.000000E+00 -1.371613E-06 1.147862E-02 2.982090E-08 2.085367E-02 -3.037381E-08 211073 G -1.642105E-01 -3.500780E-08 -8.885785E-02 1.299901E-08 8.560667E-03 -3.037381E-08 211077 G -1.642112E-01 -3.500780E-08 -8.885817E-02 1.299901E-08 8.560667E-03 -3.037381E-08 214075 G -1.642108E-01 -1.194470E-07 -1.126567E-01 1.299901E-08 8.560667E-03 -3.037381E-08 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.449136E+03 (CYCLIC FREQUENCY = 3.372945E+00 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -2.860438E-07 -1.034032E-01 5.648798E-06 1.775269E-02 -1.037556E-08 -1.166620E-04 18983 G 1.442978E-03 -4.855892E-01 2.196639E-01 0.0 -1.037556E-08 -1.166620E-04 18987 G -1.444407E-03 -4.855892E-01 -2.197150E-01 0.0 -1.037556E-08 -1.166620E-04 19765 G -5.802487E-07 -2.566814E-01 -2.548884E-05 0.0 0.0 -1.166620E-04 21183 G 1.442978E-03 -4.881301E-01 2.196642E-01 0.0 -1.037556E-08 -1.166620E-04 21187 G -1.444407E-03 -4.881301E-01 -2.197148E-01 0.0 -1.037556E-08 -1.166620E-04 21485 G 0.0 -4.884544E-01 -2.530623E-05 1.775269E-02 0.0 0.0 189073 G 1.739299E-03 -4.774919E-01 -1.361696E-01 -1.100156E-02 1.929874E-08 -1.405989E-04 189077 G -1.740524E-03 -4.774919E-01 1.361191E-01 -1.100156E-02 1.929874E-08 -1.405989E-04 200070 G -7.587439E-07 -5.621898E-01 -2.547534E-05 -1.100188E-02 1.929929E-08 -1.405989E-04 200078 G -6.126497E-07 -4.789063E-01 -2.548108E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 200079 G -5.840874E-07 -4.626240E-01 -2.548108E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 200086 G -4.678302E-07 -3.941894E-01 -2.548314E-05 -9.879191E-03 1.641146E-08 -1.405989E-04 200087 G -4.451366E-07 -3.834127E-01 -2.548108E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 200095 G -3.075142E-07 -2.993758E-01 -2.548273E-05 -1.206665E-02 2.166020E-08 -1.405989E-04 200096 G -2.762726E-07 -2.871491E-01 -2.548108E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 200101 G -1.667521E-07 -2.247152E-01 -2.548108E-05 -1.435877E-02 2.799988E-08 -1.405989E-04 200106 G -2.977248E-09 -1.419004E-01 -2.548284E-05 -1.670387E-02 3.321984E-08 -1.405989E-04 200114 G 2.903915E-07 4.300541E-03 -2.548548E-05 -1.974964E-02 4.031057E-08 -1.405989E-04 200121 G 5.935073E-07 1.504727E-01 -2.548766E-05 -2.194033E-02 4.593636E-08 -1.405989E-04 200129 G 9.803830E-07 3.342393E-01 -2.549002E-05 -2.390597E-02 5.060391E-08 -1.405989E-04 200137 G 1.399793E-06 5.314468E-01 -2.549235E-05 -2.530109E-02 5.400505E-08 -1.405989E-04 200145 G 1.840719E-06 7.375434E-01 -2.549465E-05 -2.612874E-02 5.600181E-08 -1.405989E-04 200153 G 2.278612E-06 9.416702E-01 -2.549686E-05 -2.639342E-02 5.664344E-08 -1.405989E-04 200155 G 2.403794E-06 1.000000E+00 -2.549686E-05 -2.639357E-02 5.664348E-08 -1.405989E-04 211073 G 1.739299E-03 -4.805541E-01 -1.361700E-01 -1.100156E-02 1.929874E-08 -1.405989E-04 211077 G -1.740524E-03 -4.805541E-01 1.361186E-01 -1.100156E-02 1.929874E-08 -1.405989E-04 214075 G -6.126497E-07 -4.809450E-01 -2.576091E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.236499E+05 (CYCLIC FREQUENCY = 2.447569E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -7.435972E-08 -3.412846E-02 5.072368E-07 1.468387E-03 -8.822445E-10 -3.847645E-05 18983 G 4.759851E-04 -6.568932E-02 1.816921E-02 0.0 -8.822445E-10 -3.847645E-05 18987 G -4.763070E-04 -6.568932E-02 -1.817336E-02 0.0 -8.822445E-10 -3.847645E-05 19765 G -1.495501E-07 -4.695619E-02 -2.068141E-06 0.0 0.0 -3.847645E-05 21183 G 4.759851E-04 -6.652734E-02 1.816923E-02 0.0 -8.822445E-10 -3.847645E-05 21187 G -4.763070E-04 -6.652734E-02 -1.817334E-02 0.0 -8.822445E-10 -3.847645E-05 21485 G 0.0 -6.663430E-02 -2.052613E-06 1.468387E-03 0.0 0.0 189073 G 5.614778E-03 7.476252E-02 -4.246728E-01 -3.431684E-02 3.700858E-08 -4.536729E-04 189077 G -5.613626E-03 7.476252E-02 4.246690E-01 -3.431684E-02 3.700858E-08 -4.536729E-04 200070 G 2.955142E-07 -1.898057E-01 -2.243486E-06 -3.436159E-02 3.705455E-08 -4.536729E-04 200078 G 5.759011E-07 7.019858E-02 -2.241936E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 200079 G 6.306740E-07 1.209876E-01 -2.241936E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 200086 G 9.504164E-07 4.103552E-01 -2.242231E-06 -3.867330E-02 4.252023E-08 -4.536729E-04 200087 G 8.971356E-07 3.680688E-01 -2.241936E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 200095 G 1.280280E-06 7.154400E-01 -2.242212E-06 -3.001861E-02 3.149801E-08 -4.536729E-04 200096 G 1.220961E-06 6.683411E-01 -2.241936E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 200101 G 1.430985E-06 8.630893E-01 -2.241936E-06 -2.183529E-02 2.158771E-08 -4.536729E-04 200106 G 1.518581E-06 9.561676E-01 -2.250704E-06 -1.286215E-02 1.086131E-08 -4.536729E-04 200114 G 1.530922E-06 1.000000E+00 -2.263341E-06 1.957220E-03 -8.020608E-09 -4.536729E-04 200121 G 1.416088E-06 9.416006E-01 -2.273752E-06 1.456062E-02 -2.459173E-08 -4.536729E-04 200129 G 1.151721E-06 7.739921E-01 -2.285045E-06 2.681751E-02 -4.082344E-08 -4.536729E-04 200137 G 7.744326E-07 5.213209E-01 -2.296183E-06 3.577421E-02 -5.273528E-08 -4.536729E-04 200145 G 3.204811E-07 2.110446E-01 -2.307216E-06 4.119091E-02 -5.995029E-08 -4.536729E-04 200153 G -1.568169E-07 -1.176563E-01 -2.317787E-06 4.294504E-02 -6.229005E-08 -4.536729E-04 200155 G -2.944816E-07 -2.125676E-01 -2.317806E-06 4.294669E-02 -6.229229E-08 -4.536729E-04 211073 G 5.614778E-03 6.488153E-02 -4.246736E-01 -3.431684E-02 3.700858E-08 -4.536729E-04 211077 G -5.613626E-03 6.488153E-02 4.246682E-01 -3.431684E-02 3.700858E-08 -4.536729E-04 214075 G 5.759011E-07 6.362032E-02 -2.778560E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.284019E+05 (CYCLIC FREQUENCY = 2.682218E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -3.838427E-02 5.098872E-08 7.107995E-03 -2.159953E-08 -1.761671E-04 -9.106066E-09 18983 G -4.217879E-02 5.323756E-07 6.795612E-03 0.0 -1.761671E-04 -9.106066E-09 18987 G -4.217901E-02 5.323756E-07 6.796147E-03 0.0 -1.761671E-04 -9.106066E-09 19765 G -3.989930E-02 1.894995E-07 8.022001E-03 0.0 0.0 -9.106066E-09 21183 G -4.217879E-02 3.340455E-07 1.063253E-02 0.0 -1.761671E-04 -9.106066E-09 21187 G -4.217901E-02 3.340455E-07 1.063307E-02 0.0 -1.761671E-04 -9.106066E-09 21485 G 0.0 3.087307E-07 1.112254E-02 -2.159953E-08 0.0 0.0 189073 G 1.253543E-01 2.810621E-07 2.894033E-01 7.327110E-08 3.190555E-02 -8.363147E-09 189077 G 1.253541E-01 2.810621E-07 2.894015E-01 7.327110E-08 3.190555E-02 -8.363147E-09 200070 G -1.164212E-01 7.518266E-07 -3.157805E-02 7.331779E-08 3.195518E-02 -8.363147E-09 200078 G 1.253542E-01 1.969289E-07 -3.156740E-02 7.327110E-08 3.190555E-02 -8.363147E-09 200079 G 1.725745E-01 8.848742E-08 -3.156740E-02 7.327110E-08 3.190555E-02 -8.363147E-09 200086 G 4.406096E-01 -5.177437E-07 -3.157695E-02 8.161371E-08 3.583152E-02 -8.363147E-09 200087 G 4.022944E-01 -4.390642E-07 -3.156740E-02 7.327110E-08 3.190555E-02 -8.363147E-09 200095 G 7.237899E-01 -1.170314E-06 -3.157635E-02 6.522352E-08 2.797138E-02 -8.363147E-09 200096 G 6.814680E-01 -1.080186E-06 -3.156740E-02 7.327110E-08 3.190555E-02 -8.363147E-09 200101 G 8.625321E-01 -1.496000E-06 -3.156740E-02 4.929531E-08 2.084899E-02 -8.363147E-09 200106 G 9.532413E-01 -1.713621E-06 -3.171637E-02 3.185222E-08 1.285371E-02 -8.363147E-09 200114 G 1.000000E+00 -1.850967E-06 -3.193140E-02 2.228491E-09 -1.341127E-03 -8.363147E-09 200121 G 9.463068E-01 -1.775468E-06 -3.210861E-02 -2.351752E-08 -1.388646E-02 -8.363147E-09 200129 G 7.835510E-01 -1.482026E-06 -3.230085E-02 -4.877711E-08 -2.628601E-02 -8.363147E-09 200137 G 5.345000E-01 -1.013042E-06 -3.249047E-02 -6.728381E-08 -3.539703E-02 -8.363147E-09 200145 G 2.267487E-01 -4.249182E-07 -3.267832E-02 -7.850303E-08 -4.092677E-02 -8.363147E-09 200153 G -1.001117E-01 2.030789E-07 -3.285829E-02 -8.214549E-08 -4.272163E-02 -8.363147E-09 200155 G -1.945294E-01 3.846258E-07 -3.285862E-02 -8.214876E-08 -4.272344E-02 -8.363147E-09 211073 G 1.253543E-01 9.891279E-08 -4.054996E-01 7.327110E-08 3.190555E-02 -8.363147E-09 211077 G 1.253541E-01 9.891279E-08 -4.055014E-01 7.327110E-08 3.190555E-02 -8.363147E-09 214075 G 1.253542E-01 7.566326E-08 -4.941979E-01 7.327110E-08 3.190555E-02 -8.363147E-09 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.149555E+06 (CYCLIC FREQUENCY = 6.154901E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -2.180174E-02 -2.043694E-07 3.809752E-02 -9.654200E-08 -1.005259E-04 -5.434067E-09 18983 G -2.396700E-02 1.884772E-06 3.791822E-02 0.0 -1.005259E-04 -5.434067E-09 18987 G -2.396714E-02 1.884772E-06 3.792061E-02 0.0 -1.005259E-04 -5.434067E-09 19765 G -2.266626E-02 5.976970E-07 3.861908E-02 0.0 0.0 -5.434067E-09 21183 G -2.396700E-02 1.766418E-06 4.010768E-02 0.0 -1.005259E-04 -5.434067E-09 21187 G -2.396714E-02 1.766418E-06 4.011007E-02 0.0 -1.005259E-04 -5.434067E-09 21485 G 0.0 1.751311E-06 4.038833E-02 -9.654200E-08 0.0 0.0 189073 G 7.597543E-01 7.164211E-06 -4.661849E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 189077 G 7.597538E-01 7.164211E-06 -4.661919E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200070 G 1.000000E+00 9.132744E-06 -1.490883E-01 2.888383E-07 -3.183128E-02 -2.104087E-08 200078 G 7.597540E-01 6.952539E-06 -1.488235E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200079 G 7.130640E-01 6.528754E-06 -1.488235E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200086 G 5.071975E-01 4.657975E-06 -1.490609E-01 2.714607E-07 -2.986233E-02 -2.104087E-08 200087 G 4.859242E-01 4.467101E-06 -1.488235E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200095 G 2.271481E-01 2.113667E-06 -1.490459E-01 3.082117E-07 -3.397761E-02 -2.104087E-08 200096 G 2.098861E-01 1.961619E-06 -1.488235E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200101 G 3.085553E-02 3.366340E-07 -1.488235E-01 3.128914E-07 -3.464390E-02 -2.104087E-08 200106 G -1.484246E-01 -1.279305E-06 -1.532117E-01 2.896782E-07 -3.218580E-02 -2.104087E-08 200114 G -3.706879E-01 -3.278265E-06 -1.595810E-01 1.975074E-07 -2.196303E-02 -2.104087E-08 200121 G -4.779176E-01 -4.244007E-06 -1.648659E-01 7.567699E-08 -8.361754E-03 -2.104087E-08 200129 G -4.818658E-01 -4.286429E-06 -1.706281E-01 -6.112806E-08 6.935453E-03 -2.104087E-08 200137 G -3.758964E-01 -3.346121E-06 -1.763172E-01 -1.678719E-07 1.887787E-02 -2.104087E-08 200145 G -1.916187E-01 -1.705973E-06 -1.819559E-01 -2.350554E-07 2.639577E-02 -2.104087E-08 200153 G 2.612408E-02 2.334521E-07 -1.873593E-01 -2.574280E-07 2.889914E-02 -2.104087E-08 200155 G 8.999769E-02 8.024258E-07 -1.873692E-01 -2.574660E-07 2.890343E-02 -2.104087E-08 211073 G 7.597543E-01 6.705940E-06 2.209134E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 211077 G 7.597538E-01 6.705940E-06 2.209063E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 214075 G 7.597540E-01 6.647447E-06 3.086111E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.195345E+06 (CYCLIC FREQUENCY = 7.034309E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 1.735424E-07 -2.492234E-02 1.040353E-08 7.926864E-04 4.673263E-10 -2.809567E-05 18983 G 3.478182E-04 -4.194702E-02 9.808113E-03 0.0 4.673263E-10 -2.809567E-05 18987 G -3.475497E-04 -4.194702E-02 -9.810875E-03 0.0 4.673263E-10 -2.809567E-05 19765 G 1.281973E-07 -3.188520E-02 -1.384771E-06 0.0 0.0 -2.809567E-05 21183 G 3.478182E-04 -4.255894E-02 9.808103E-03 0.0 4.673263E-10 -2.809567E-05 21187 G -3.475497E-04 -4.255894E-02 -9.810885E-03 0.0 4.673263E-10 -2.809567E-05 21485 G 0.0 -4.263705E-02 -1.392996E-06 7.926864E-04 0.0 0.0 189073 G 3.132847E-02 8.050826E-01 3.574528E-01 2.888491E-02 2.066946E-07 -2.532040E-03 189077 G -3.133953E-02 8.050826E-01 -3.574487E-01 2.888491E-02 2.066946E-07 -2.532040E-03 200070 G -7.107416E-06 1.000000E+00 -3.894656E-08 2.922790E-02 2.091476E-07 -2.532040E-03 200078 G -5.530359E-06 7.796103E-01 -2.916398E-08 2.888491E-02 2.066946E-07 -2.532040E-03 200079 G -5.224450E-06 7.368605E-01 -2.916398E-08 2.888491E-02 2.066946E-07 -2.532040E-03 200086 G -4.078107E-06 5.747414E-01 -2.600835E-08 2.488468E-02 1.774530E-07 -2.532040E-03 200087 G -3.736249E-06 5.288893E-01 -2.916398E-08 2.888491E-02 2.066946E-07 -2.532040E-03 200095 G -2.233911E-06 3.179230E-01 -2.667839E-08 3.396574E-02 2.441423E-07 -2.532040E-03 200096 G -1.927672E-06 2.761463E-01 -2.916398E-08 2.888491E-02 2.066946E-07 -2.532040E-03 200101 G -7.546790E-07 1.122244E-01 -2.916398E-08 3.771792E-02 2.719983E-07 -2.532040E-03 200106 G 7.018957E-07 -8.881804E-02 -3.050894E-08 3.720617E-02 2.708233E-07 -2.532040E-03 200114 G 2.657974E-06 -3.564891E-01 -3.227697E-08 2.766672E-02 2.023405E-07 -2.532040E-03 200121 G 3.692977E-06 -4.984264E-01 -3.374735E-08 1.235423E-02 8.966356E-08 -2.532040E-03 200129 G 3.869313E-06 -5.234711E-01 -3.535395E-08 -5.653708E-03 -4.245230E-08 -2.532040E-03 200137 G 3.084930E-06 -4.177485E-01 -3.694082E-08 -1.999360E-02 -1.478720E-07 -2.532040E-03 200145 G 1.605452E-06 -2.174560E-01 -3.851387E-08 -2.912757E-02 -2.150078E-07 -2.532040E-03 200153 G -1.792351E-07 2.437993E-02 -4.002149E-08 -3.219331E-02 -2.375506E-07 -2.532040E-03 200155 G -7.042873E-07 9.553611E-02 -4.002423E-08 -3.219925E-02 -2.375939E-07 -2.532040E-03 211073 G 3.132847E-02 7.499348E-01 3.574483E-01 2.888491E-02 2.066946E-07 -2.532040E-03 211077 G -3.133953E-02 7.499348E-01 -3.574532E-01 2.888491E-02 2.066946E-07 -2.532040E-03 214075 G -5.530359E-06 7.428957E-01 -3.026236E-06 2.888491E-02 2.066946E-07 -2.532040E-03 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.507298E+06 (CYCLIC FREQUENCY = 1.133579E+02 HZ) R E A L E I G E N V E C T O R N O . 13 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 1.887539E-03 2.892167E-09 1.738968E-02 -4.705357E-08 -1.153718E-05 4.543725E-10 18983 G 1.639022E-03 1.015621E-06 1.736866E-02 0.0 -1.153718E-05 4.543725E-10 18987 G 1.639034E-03 1.015621E-06 1.736983E-02 0.0 -1.153718E-05 4.543725E-10 19765 G 1.788319E-03 4.099097E-07 1.744954E-02 0.0 0.0 4.543725E-10 21183 G 1.639022E-03 1.025517E-06 1.761994E-02 0.0 -1.153718E-05 4.543725E-10 21187 G 1.639034E-03 1.025517E-06 1.762110E-02 0.0 -1.153718E-05 4.543725E-10 21485 G 0.0 1.026780E-06 1.765260E-02 -4.705357E-08 0.0 0.0 189073 G 2.123807E-01 6.965446E-07 -3.447998E-01 9.812811E-08 -3.099398E-02 1.397608E-09 189077 G 2.123807E-01 6.965446E-07 -3.448022E-01 9.812811E-08 -3.099398E-02 1.397608E-09 200070 G 4.515394E-01 1.468021E-06 -3.320159E-02 1.010185E-07 -3.189244E-02 1.397608E-09 200078 G 2.123807E-01 7.106045E-07 -3.300159E-02 9.812811E-08 -3.099398E-02 1.397608E-09 200079 G 1.665095E-01 5.653746E-07 -3.300159E-02 9.812811E-08 -3.099398E-02 1.397608E-09 200086 G -3.094360E-01 -9.272165E-07 -3.318080E-02 1.769921E-07 -5.633516E-02 1.397608E-09 200087 G -5.664707E-02 -1.411475E-07 -3.300159E-02 9.812811E-08 -3.099398E-02 1.397608E-09 200095 G -5.984007E-01 -1.842108E-06 -3.316951E-02 1.494952E-08 -4.210300E-03 1.397608E-09 200096 G -3.278444E-01 -9.997685E-07 -3.300159E-02 9.812811E-08 -3.099398E-02 1.397608E-09 200101 G -5.037354E-01 -1.556646E-06 -3.300159E-02 -1.115457E-07 3.620632E-02 1.397608E-09 200106 G -2.300736E-01 -7.081690E-07 -4.087389E-02 -2.012172E-07 6.472401E-02 1.397608E-09 200114 G 3.568954E-01 1.119059E-06 -5.249882E-02 -2.287449E-07 7.342049E-02 1.397608E-09 200121 G 7.924918E-01 2.476549E-06 -6.234895E-02 -1.474822E-07 4.732299E-02 1.397608E-09 200129 G 1.000000E+00 3.122780E-06 -7.325004E-02 -1.374018E-08 4.446925E-03 1.397608E-09 200137 G 8.753517E-01 2.732892E-06 -8.404481E-02 1.063144E-07 -3.403820E-02 1.397608E-09 200145 G 4.879429E-01 1.523273E-06 -9.475782E-02 1.882977E-07 -6.031556E-02 1.397608E-09 200153 G -2.749754E-02 -8.579283E-08 -1.050329E-01 2.170430E-07 -6.952798E-02 1.397608E-09 200155 G -1.811982E-01 -5.655943E-07 -1.050516E-01 2.171346E-07 -6.955738E-02 1.397608E-09 211073 G 2.123807E-01 7.269845E-07 3.302492E-01 9.812811E-08 -3.099398E-02 1.397608E-09 211077 G 2.123807E-01 7.269845E-07 3.302467E-01 9.812811E-08 -3.099398E-02 1.397608E-09 214075 G 2.123807E-01 7.308699E-07 4.164112E-01 9.812811E-08 -3.099398E-02 1.397608E-09 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.544614E+06 (CYCLIC FREQUENCY = 1.174531E+02 HZ) R E A L E I G E N V E C T O R N O . 14 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 8.975282E-09 -4.525877E-03 -9.227976E-09 1.334588E-04 2.870489E-11 -5.102084E-06 18983 G 6.313893E-05 -7.391538E-03 1.651309E-03 0.0 2.870489E-11 -5.102084E-06 18987 G -6.313766E-05 -7.391538E-03 -1.651796E-03 0.0 2.870489E-11 -5.102084E-06 19765 G 2.577811E-10 -5.700092E-03 -2.438640E-07 0.0 0.0 -5.102084E-06 21183 G 6.313893E-05 -7.502662E-03 1.651308E-03 0.0 2.870489E-11 -5.102084E-06 21187 G -6.313766E-05 -7.502662E-03 -1.651797E-03 0.0 2.870489E-11 -5.102084E-06 21485 G 0.0 -7.516846E-03 -2.443692E-07 1.334588E-04 0.0 0.0 189073 G 1.574958E-02 4.214365E-01 4.902321E-01 3.961462E-02 1.107352E-07 -1.272781E-03 189077 G -1.575175E-02 4.214365E-01 -4.902298E-01 3.961462E-02 1.107352E-07 -1.272781E-03 200070 G -1.939716E-06 7.148132E-01 1.192869E-08 4.086260E-02 1.142169E-07 -1.272781E-03 200078 G -1.083880E-06 4.086324E-01 1.586029E-08 3.961462E-02 1.107352E-07 -1.272781E-03 200079 G -9.199912E-07 3.500026E-01 1.586029E-08 3.961462E-02 1.107352E-07 -1.272781E-03 200086 G 6.151079E-07 -1.919622E-01 1.734225E-08 6.574191E-02 1.859290E-07 -1.272781E-03 200087 G -1.226982E-07 6.477744E-02 1.586029E-08 3.961462E-02 1.107352E-07 -1.272781E-03 200095 G 1.650014E-06 -5.613870E-01 1.698107E-08 1.255035E-02 3.269479E-08 -1.272781E-03 200096 G 8.462347E-07 -2.818505E-01 1.586029E-08 3.961462E-02 1.107352E-07 -1.272781E-03 200101 G 1.474657E-06 -5.066636E-01 1.586029E-08 -3.079928E-02 -9.095775E-08 -1.272781E-03 200106 G 7.376322E-07 -2.527241E-01 2.057635E-08 -6.258737E-02 -1.802748E-07 -1.272781E-03 200114 G -9.382632E-07 3.314245E-01 2.763127E-08 -7.448651E-02 -2.134033E-07 -1.272781E-03 200121 G -2.219921E-06 7.786500E-01 3.362275E-08 -4.925349E-02 -1.411821E-07 -1.272781E-03 200129 G -2.854900E-06 1.000000E+00 4.026377E-08 -5.841684E-03 -1.691221E-08 -1.272781E-03 200137 G -2.520768E-06 8.825837E-01 4.684204E-08 3.364510E-02 9.601315E-08 -1.272781E-03 200145 G -1.412675E-06 4.945413E-01 5.337138E-08 6.080829E-02 1.736938E-07 -1.272781E-03 200153 G 7.584792E-08 -2.652459E-02 5.963437E-08 7.037315E-02 2.010428E-07 -1.272781E-03 200155 G 5.202876E-07 -1.820965E-01 5.964575E-08 7.040489E-02 2.011336E-07 -1.272781E-03 211073 G 1.574958E-02 3.937154E-01 4.902296E-01 3.961462E-02 1.107352E-07 -1.272781E-03 211077 G -1.575175E-02 3.937154E-01 -4.902322E-01 3.961462E-02 1.107352E-07 -1.272781E-03 214075 G -1.083880E-06 3.901770E-01 -1.589800E-06 3.961462E-02 1.107352E-07 -1.272781E-03 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.106964E+07 (CYCLIC FREQUENCY = 1.646038E+02 HZ) R E A L E I G E N V E C T O R N O . 15 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -1.859502E-02 -2.245320E-08 -6.147731E-02 1.665499E-07 1.622162E-05 -4.466250E-09 18983 G -1.824555E-02 -3.602023E-06 -6.144651E-02 0.0 1.622162E-05 -4.466250E-09 18987 G -1.824567E-02 -3.602023E-06 -6.145063E-02 0.0 1.622162E-05 -4.466250E-09 19765 G -1.845552E-02 -1.477952E-06 -6.156147E-02 0.0 0.0 -4.466250E-09 21183 G -1.824555E-02 -3.699298E-06 -6.179982E-02 0.0 1.622162E-05 -4.466250E-09 21187 G -1.824567E-02 -3.699298E-06 -6.180394E-02 0.0 1.622162E-05 -4.466250E-09 21485 G 0.0 -3.711714E-06 -6.184697E-02 1.665499E-07 0.0 0.0 189073 G 6.896894E-01 1.052667E-06 -6.267808E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 189077 G 6.896890E-01 1.052667E-06 -6.267820E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200070 G 1.000000E+00 1.244522E-06 -2.341845E-01 5.056185E-08 -4.182766E-02 -1.822620E-08 200078 G 6.896892E-01 8.693111E-07 -2.312101E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200079 G 6.314937E-01 7.989032E-07 -2.312101E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200086 G 2.804552E-01 3.935889E-07 -2.338731E-01 5.727357E-08 -4.862713E-02 -1.822620E-08 200087 G 3.483810E-01 4.563789E-07 -2.312101E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200095 G -9.791286E-02 -6.779847E-08 -2.337049E-01 4.185654E-08 -3.270569E-02 -1.822620E-08 200096 G 4.320337E-03 4.011659E-08 -2.312101E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200101 G -2.188277E-01 -2.298594E-07 -2.312101E-01 1.311544E-08 -8.682907E-03 -1.822620E-08 200106 G -2.000576E-01 -2.186519E-07 -1.497742E-01 -1.604596E-08 1.494644E-02 -1.822620E-08 200114 G 1.182839E-02 2.032457E-08 -2.586863E-02 -3.850097E-08 3.358650E-02 -1.822620E-08 200121 G 2.410693E-01 2.844891E-07 8.288299E-02 -3.320865E-08 2.874365E-02 -1.822620E-08 200129 G 3.978926E-01 4.654701E-07 2.061722E-01 -1.093071E-08 9.518354E-03 -1.822620E-08 200137 G 3.891389E-01 4.543243E-07 3.288303E-01 1.324328E-08 -1.129094E-02 -1.822620E-08 200145 G 2.309646E-01 2.694710E-07 4.508141E-01 3.145723E-08 -2.695258E-02 -1.822620E-08 200153 G -7.949214E-03 -9.245327E-09 5.679691E-01 3.820413E-08 -3.275419E-02 -1.822620E-08 200155 G -8.037701E-02 -9.372467E-08 5.681821E-01 3.823668E-08 -3.278189E-02 -1.822620E-08 211073 G 6.896894E-01 6.557001E-07 2.296353E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 211077 G 6.896890E-01 6.557001E-07 2.296341E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 214075 G 6.896892E-01 6.050312E-07 3.389476E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 * * * END OF JOB * * * 1 JOB TITLE = HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE DATE: 5/17/95 END TIME: 15:45:26 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d03083a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D03083A,NASTRAN APP DISPLACEMENT SOL 3,0 TIME 14 DIAG 21,22 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 3 LABEL = NORMAL MODES ANALYSIS USING RIGID ELEMENTS 4 METHOD = 1000 5 OUTPUT 6 ECHO = BOTH 7 VECTOR = ALL 8 MPCFORCE = ALL 9 BEGIN BULK 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ CBAR 3530251 353025 200070 200078 1.0 .0 .0 1 MR G/B CBAR 4500050 450007 200079 200086 1.0 .0 .0 1 MRBRG1 +MRBRG1 56 CBAR 4500070 450007 200086 200095 1.0 .0 .0 1 MR MAST CBAR 4500071 450007 200095 200101 1.0 .0 .0 1 MR MAST CBAR 4500072 450007 200101 200106 1.0 .0 .0 1 MR MAST CBAR 4500073 450007 200106 200114 1.0 .0 .0 1 MR MAST CBAR 4500074 450007 200114 200121 1.0 .0 .0 1 MR MAST CBAR 4500075 450007 200121 200129 1.0 .0 .0 1 MR MAST CBAR 4500076 450007 200129 200137 1.0 .0 .0 1 MR MAST CBAR 4500077 450007 200137 200145 1.0 .0 .0 1 MR MAST CBAR 4500078 450007 200145 200153 1.0 .0 .0 1 MR MAST CBAR 4500079 450007 200153 200155 1.0 .0 .0 1 MR MAST CELAS2 189831 28125. 189073 1 18983 1 FWD R X CELAS2 189832 28125. 189073 2 18983 2 FWD R Y CELAS2 189833 4500. 189073 3 18983 3 FWD R Z CELAS2 189871 28125. 189077 1 18987 1 FWD L X CELAS2 189872 28125. 189077 2 18987 2 FWD L Y CELAS2 189873 4500. 189077 3 18987 3 FWD L Z CELAS2 211831 28125. 211073 1 21183 1 AFT R X CELAS2 211832 28125. 211073 2 21183 2 AFT R Y CELAS2 211833 4500. 211073 3 21183 3 AFT R Z CELAS2 211871 28125. 211077 1 21187 1 AFT L X CELAS2 211872 28125. 211077 2 21187 2 AFT L Y CELAS2 211873 4500. 211077 3 21187 3 AFT L Z CELAS2 214853 20000. 214075 3 21485 3 AFT C Z CONM2 209 209 0 7297.399 BASICWT +BASICWT4.7561+6 5.3412+7 5.3697+7 CONM2 109765 19765 12.896 CONM2 290070 200070 34.465 CONM2 290078 200078 22.740 CONM2 290079 200079 51.048 CONM2 290086 200086 60.052 CONM2 290087 200087 60.052 CONM2 290095 200095 64.933 CONM2 290096 200096 64.933 CONM2 290101 200101 57.277 CONM2 290106 200106 47.013 CONM2 290114 200114 66.626 CONM2 290121 200121 54.350 CONM2 290129 200129 13.810 CONM2 290137 200137 9.253 CONM2 290145 200145 12.065 CONM2 290153 200153 5.852 CONM2 290155 200155 6.124 CONM2 390153 200153 458.000 MR BLADE CONM2 490153 200153 489.500 MR HUB 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ CONM2 9200070 200070 26.100 BASIC CRIGD1 200078 200078 189073 189077 211073 CRIGD1 353252 200078 200079 CRIGD1 353253 200079 200087 CRIGD1 353254 200087 200096 CRIGD2 2091 209 19765 1236 CRIGD2 2092 209 18983 12356 18987 12356 CRIGD2 2093 209 21183 12356 21187 12356 CRIGD2 2094 209 21485 234 CRIGD2 353255 200096 200101 123 CRIGD3 200078 200078 456 189073 1 189077 2 +CRG31 +CRG31 211073 3 +CRG32 +CRG32 MSET 211077 123456 214075 123456 CRIGDR 357000 19765 200078 3 EIGR 1000 GIV 15 +EIGR +EIGR MAX GRID 209 0 191.7117.001757 56.030010 GRID 18983 0 189.94 12.375 77.57 0 4 GRID 18987 0 189.94 -12.375 77.57 0 4 GRID 19765 0 196.90 .0 64.63 0 45 GRID 21183 0 211.72 12.375 77.57 0 4 GRID 21187 0 211.72 -12.375 77.57 0 4 GRID 21485 0 214.50 .0 77.57 0 156 GRID 189073 0 189.94 12.375 77.57 0 0 GRID 189077 0 189.94 -12.375 77.57 0 0 GRID 200070 0 200.00 .0 70.00 0 0 GRID 200078 0 200.00 .0 77.57 0 0 GRID 200079 0 200.00 .0 79.05 0 0 GRID 200086 0 200.00 .0 86.25 0 0 GRID 200087 0 200.00 .0 86.25 0 0 GRID 200095 0 200.00 .0 95.00 0 0 GRID 200096 0 200.00 .0 95.00 0 0 GRID 200101 0 200.00 .0 100.675 0 0 GRID 200106 0 200.00 .0 106.00 0 0 GRID 200114 0 200.00 .0 114.00 0 0 GRID 200121 0 200.00 .0 121.00 0 0 GRID 200129 0 200.00 .0 129.00 0 0 GRID 200137 0 200.00 .0 137.00 0 0 GRID 200145 0 200.00 .0 145.00 0 0 GRID 200153 0 200.00 .0 152.76 0 0 GRID 200155 0 200.00 .0 154.97 0 0 GRID 211073 0 211.72 12.375 77.57 0 0 GRID 211077 0 211.72 -12.375 77.57 0 0 GRID 214075 0 214.50 .0 77.57 0 0 MAT1 1 1.0+6 1.0+6 MAT1 10 1.0 1.0 MAT1 57 3.2+6 .8+6 .32 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ MAT1 76 3.2+6 .8+6 .32 MAT1 2014 10.5+6 4.0+6 MAT1 2024 10.5+6 4.0+6 MAT1 4130 29.0+6 11.0+6 MAT1 4340 29.0+6 11.0+6 MAT1 4620 29.0+6 11.0+6 MAT1 7075 10.3+6 3.9+6 MAT1 9046 17.5+6 6.5+6 OMIT 200070 456 OMIT 200078 456 OMIT 200086 456 OMIT 200095 456 OMIT 200101 456 OMIT 200106 456 OMIT 200114 456 OMIT 200121 456 OMIT 200129 456 OMIT 200137 456 OMIT 200145 456 OMIT 200153 456 OMIT 200155 456 PARAM GRDEQ 0 PARAM GRDPNT 0 PARAM OPT -1 PARAM WTMASS .00259 PBAR 353025 1 100. 1950. 1950. 1480. PBAR 450007 1 100. 120.07 120.07 91.088 SUPORT 209 123456 ENDDATA TOTAL COUNT= 122 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CBAR 3530251 353025 200070 200078 1.0 .0 .0 1 MR G/B 2- CBAR 4500050 450007 200079 200086 1.0 .0 .0 1 MRBRG1 3- +MRBRG1 56 4- CBAR 4500070 450007 200086 200095 1.0 .0 .0 1 MR MAST 5- CBAR 4500071 450007 200095 200101 1.0 .0 .0 1 MR MAST 6- CBAR 4500072 450007 200101 200106 1.0 .0 .0 1 MR MAST 7- CBAR 4500073 450007 200106 200114 1.0 .0 .0 1 MR MAST 8- CBAR 4500074 450007 200114 200121 1.0 .0 .0 1 MR MAST 9- CBAR 4500075 450007 200121 200129 1.0 .0 .0 1 MR MAST 10- CBAR 4500076 450007 200129 200137 1.0 .0 .0 1 MR MAST 11- CBAR 4500077 450007 200137 200145 1.0 .0 .0 1 MR MAST 12- CBAR 4500078 450007 200145 200153 1.0 .0 .0 1 MR MAST 13- CBAR 4500079 450007 200153 200155 1.0 .0 .0 1 MR MAST 14- CELAS2 189831 28125. 189073 1 18983 1 FWD R X 15- CELAS2 189832 28125. 189073 2 18983 2 FWD R Y 16- CELAS2 189833 4500. 189073 3 18983 3 FWD R Z 17- CELAS2 189871 28125. 189077 1 18987 1 FWD L X 18- CELAS2 189872 28125. 189077 2 18987 2 FWD L Y 19- CELAS2 189873 4500. 189077 3 18987 3 FWD L Z 20- CELAS2 211831 28125. 211073 1 21183 1 AFT R X 21- CELAS2 211832 28125. 211073 2 21183 2 AFT R Y 22- CELAS2 211833 4500. 211073 3 21183 3 AFT R Z 23- CELAS2 211871 28125. 211077 1 21187 1 AFT L X 24- CELAS2 211872 28125. 211077 2 21187 2 AFT L Y 25- CELAS2 211873 4500. 211077 3 21187 3 AFT L Z 26- CELAS2 214853 20000. 214075 3 21485 3 AFT C Z 27- CONM2 209 209 0 7297.399 BASICWT 28- +BASICWT4.7561+6 5.3412+7 5.3697+7 29- CONM2 109765 19765 12.896 30- CONM2 290070 200070 34.465 31- CONM2 290078 200078 22.740 32- CONM2 290079 200079 51.048 33- CONM2 290086 200086 60.052 34- CONM2 290087 200087 60.052 35- CONM2 290095 200095 64.933 36- CONM2 290096 200096 64.933 37- CONM2 290101 200101 57.277 38- CONM2 290106 200106 47.013 39- CONM2 290114 200114 66.626 40- CONM2 290121 200121 54.350 41- CONM2 290129 200129 13.810 42- CONM2 290137 200137 9.253 43- CONM2 290145 200145 12.065 44- CONM2 290153 200153 5.852 45- CONM2 290155 200155 6.124 46- CONM2 390153 200153 458.000 MR BLADE 47- CONM2 490153 200153 489.500 MR HUB 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CONM2 9200070 200070 26.100 BASIC 49- CRIGD1 200078 200078 189073 189077 211073 50- CRIGD1 353252 200078 200079 51- CRIGD1 353253 200079 200087 52- CRIGD1 353254 200087 200096 53- CRIGD2 2091 209 19765 1236 54- CRIGD2 2092 209 18983 12356 18987 12356 55- CRIGD2 2093 209 21183 12356 21187 12356 56- CRIGD2 2094 209 21485 234 57- CRIGD2 353255 200096 200101 123 58- CRIGD3 200078 200078 456 189073 1 189077 2 +CRG31 59- +CRG31 211073 3 +CRG32 60- +CRG32 MSET 211077 123456 214075 123456 61- CRIGDR 357000 19765 200078 3 62- EIGR 1000 GIV 15 +EIGR 63- +EIGR MAX 64- GRID 209 0 191.7117.001757 56.030010 65- GRID 18983 0 189.94 12.375 77.57 0 4 66- GRID 18987 0 189.94 -12.375 77.57 0 4 67- GRID 19765 0 196.90 .0 64.63 0 45 68- GRID 21183 0 211.72 12.375 77.57 0 4 69- GRID 21187 0 211.72 -12.375 77.57 0 4 70- GRID 21485 0 214.50 .0 77.57 0 156 71- GRID 189073 0 189.94 12.375 77.57 0 0 72- GRID 189077 0 189.94 -12.375 77.57 0 0 73- GRID 200070 0 200.00 .0 70.00 0 0 74- GRID 200078 0 200.00 .0 77.57 0 0 75- GRID 200079 0 200.00 .0 79.05 0 0 76- GRID 200086 0 200.00 .0 86.25 0 0 77- GRID 200087 0 200.00 .0 86.25 0 0 78- GRID 200095 0 200.00 .0 95.00 0 0 79- GRID 200096 0 200.00 .0 95.00 0 0 80- GRID 200101 0 200.00 .0 100.675 0 0 81- GRID 200106 0 200.00 .0 106.00 0 0 82- GRID 200114 0 200.00 .0 114.00 0 0 83- GRID 200121 0 200.00 .0 121.00 0 0 84- GRID 200129 0 200.00 .0 129.00 0 0 85- GRID 200137 0 200.00 .0 137.00 0 0 86- GRID 200145 0 200.00 .0 145.00 0 0 87- GRID 200153 0 200.00 .0 152.76 0 0 88- GRID 200155 0 200.00 .0 154.97 0 0 89- GRID 211073 0 211.72 12.375 77.57 0 0 90- GRID 211077 0 211.72 -12.375 77.57 0 0 91- GRID 214075 0 214.50 .0 77.57 0 0 92- MAT1 1 1.0+6 1.0+6 93- MAT1 10 1.0 1.0 94- MAT1 57 3.2+6 .8+6 .32 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- MAT1 76 3.2+6 .8+6 .32 96- MAT1 2014 10.5+6 4.0+6 97- MAT1 2024 10.5+6 4.0+6 98- MAT1 4130 29.0+6 11.0+6 99- MAT1 4340 29.0+6 11.0+6 100- MAT1 4620 29.0+6 11.0+6 101- MAT1 7075 10.3+6 3.9+6 102- MAT1 9046 17.5+6 6.5+6 103- OMIT 200070 456 104- OMIT 200078 456 105- OMIT 200086 456 106- OMIT 200095 456 107- OMIT 200101 456 108- OMIT 200106 456 109- OMIT 200114 456 110- OMIT 200121 456 111- OMIT 200129 456 112- OMIT 200137 456 113- OMIT 200145 456 114- OMIT 200153 456 115- OMIT 200155 456 116- PARAM GRDEQ 0 117- PARAM GRDPNT 0 118- PARAM OPT -1 119- PARAM WTMASS .00259 120- PBAR 353025 1 100. 1950. 1950. 1480. 121- PBAR 450007 1 100. 120.07 120.07 91.088 122- SUPORT 209 123456 ENDDATA 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 22 PROFILE 117 MAX WAVEFRONT 6 AVG WAVEFRONT 4.179 RMS WAVEFRONT 4.379 RMS BANDWIDTH 7.604 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 2 PROFILE 45 MAX WAVEFRONT 2 AVG WAVEFRONT 1.607 RMS WAVEFRONT 1.680 RMS BANDWIDTH 1.680 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 22 2 PROFILE (P) 117 45 MAXIMUM WAVEFRONT (C-MAX) 6 2 AVERAGE WAVEFRONT (C-AVG) 4.179 1.607 RMS WAVEFRONT (C-RMS) 4.379 1.680 RMS BANDWITCH (B-RMS) 7.604 1.680 NUMBER OF GRID POINTS (N) 28 NUMBER OF ELEMENTS (NON-RIGID) 46 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 11 MAXIMUM NODAL DEGREE 2 MINIMUM NODAL DEGREE 0 NUMBER OF UNIQUE EDGES 17 MATRIX DENSITY, PERCENT 7.908 NUMBER OF POINTS OF ZERO DEGREE 4 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 7 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 209 28 18983 2 18987 4 19765 27 SEQGP 21183 6 21187 8 21485 10 189073 1 SEQGP 189077 3 200070 11 200078 12 200079 13 SEQGP 200086 14 200087 26 200095 15 200096 25 SEQGP 200101 16 200106 17 200114 18 200121 19 SEQGP 200129 20 200137 21 200145 22 200153 23 SEQGP 200155 24 211073 5 211077 7 214075 9 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 3530251 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS2 ELEMENTS (ELEMENT TYPE 12) STARTING WITH ID 189831 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONM2 ELEMENTS (ELEMENT TYPE 30) STARTING WITH ID 209 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 8.91448792D+03 0.00000000D+00 0.00000000D+00 0.00000000D+00 6.18744993D+05 -1.28215298D+01 * * 0.00000000D+00 8.91448792D+03 0.00000000D+00 -6.18744993D+05 0.00000000D+00 1.72237458D+06 * * 0.00000000D+00 0.00000000D+00 8.91448792D+03 1.28215298D+01 -1.72237458D+06 0.00000000D+00 * * 0.00000000D+00 -6.18744993D+05 1.28215298D+01 5.63588906D+07 -2.45803729D+03 -1.20357550D+08 * * 6.18744993D+05 0.00000000D+00 -1.72237458D+06 -2.45803729D+03 4.37886530D+08 -7.18390448D+02 * * -1.28215298D+01 1.72237458D+06 0.00000000D+00 -1.20357550D+08 -7.18390448D+02 3.86568740D+08 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 8.914487919D+03 0.000000000D+00 1.438280018D-03 6.940892162D+01 Y 8.914487919D+03 1.932107142D+02 0.000000000D+00 6.940892162D+01 Z 8.914487919D+03 1.932107142D+02 1.438280018D-03 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 1.341246786D+07 -1.921965004D+01 8.093881273D+05 * * -1.921965004D+01 6.215888526D+07 -1.715381118D+02 * * 8.093881273D+05 -1.715381118D+02 5.378751741D+07 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 1.339624878D+07 * * 6.215888526D+07 * * 5.380373649D+07 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 9.997992859D-01 0.000000000D+00 2.003466836D-02 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * -2.003466836D-02 0.000000000D+00 9.997992859D-01 * *** *** 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGE 3113, RIGID ELEMENTS ARE BEING PROCESSED IN GP4 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGE 2118, SUBROUTINE GP4PRT - DIAG 21 SET-DOF VS. DISP SETS FOLLOWS. 0 (SIL) INT DOF EXT GP. DOF SAUTO SB SG L A F N G R O S M ----------------------------------------------------------------------------------------------------------------------------------- 1 189073 - 1 1 1 2 189073 - 2 2 2 3 189073 - 3 3 3 4 189073 - 4 4 4 5 189073 - 5 5 5 6 189073 - 6 6 6 7 18983 - 1 7 7 8 18983 - 2 8 8 9 18983 - 3 9 9 10 18983 - 4 1 1 10 1 11 18983 - 5 11 10 12 18983 - 6 12 11 13 189077 - 1 13 12 14 189077 - 2 14 13 15 189077 - 3 15 14 16 189077 - 4 16 15 17 189077 - 5 17 16 18 189077 - 6 18 17 19 18987 - 1 19 18 20 18987 - 2 20 19 21 18987 - 3 21 20 22 18987 - 4 2 2 22 2 23 18987 - 5 23 21 24 18987 - 6 24 22 25 211073 - 1 25 23 26 211073 - 2 26 24 27 211073 - 3 27 25 28 211073 - 4 28 26 29 211073 - 5 29 27 30 211073 - 6 30 28 31 21183 - 1 31 29 32 21183 - 2 32 30 33 21183 - 3 33 31 34 21183 - 4 3 3 34 3 35 21183 - 5 35 32 36 21183 - 6 36 33 37 211077 - 1 37 34 38 211077 - 2 38 35 39 211077 - 3 39 36 40 211077 - 4 40 37 41 211077 - 5 41 38 42 211077 - 6 42 39 43 21187 - 1 43 40 44 21187 - 2 44 41 45 21187 - 3 45 42 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 (SIL) INT DOF EXT GP. DOF SAUTO SB SG L A F N G R O S M ----------------------------------------------------------------------------------------------------------------------------------- 46 21187 - 4 4 4 46 4 47 21187 - 5 47 43 48 21187 - 6 48 44 49 214075 - 1 49 45 50 214075 - 2 50 46 51 214075 - 3 51 47 52 214075 - 4 52 48 53 214075 - 5 53 49 54 214075 - 6 54 50 55 21485 - 1 5 5 55 5 56 21485 - 2 56 51 57 21485 - 3 57 52 58 21485 - 4 58 53 59 21485 - 5 6 6 59 6 60 21485 - 6 7 7 60 7 61 200070 - 1 1 1 1 8 61 62 200070 - 2 2 2 2 9 62 63 200070 - 3 3 3 3 10 63 64 200070 - 4 4 11 64 1 65 200070 - 5 5 12 65 2 66 200070 - 6 6 13 66 3 67 200078 - 1 4 4 7 14 67 68 200078 - 2 5 5 8 15 68 69 200078 - 3 69 54 70 200078 - 4 9 16 70 4 71 200078 - 5 10 17 71 5 72 200078 - 6 11 18 72 6 73 200079 - 1 73 55 74 200079 - 2 74 56 75 200079 - 3 75 57 76 200079 - 4 76 58 77 200079 - 5 77 59 78 200079 - 6 78 60 79 200086 - 1 6 6 12 19 79 80 200086 - 2 7 7 13 20 80 81 200086 - 3 8 8 14 21 81 82 200086 - 4 15 22 82 7 83 200086 - 5 16 23 83 8 84 200086 - 6 17 24 84 9 85 200095 - 1 9 9 18 25 85 86 200095 - 2 10 10 19 26 86 87 200095 - 3 11 11 20 27 87 88 200095 - 4 21 28 88 10 89 200095 - 5 22 29 89 11 90 200095 - 6 23 30 90 12 91 200101 - 1 91 61 92 200101 - 2 92 62 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 (SIL) INT DOF EXT GP. DOF SAUTO SB SG L A F N G R O S M ----------------------------------------------------------------------------------------------------------------------------------- 93 200101 - 3 93 63 94 200101 - 4 24 31 94 13 95 200101 - 5 25 32 95 14 96 200101 - 6 26 33 96 15 97 200106 - 1 12 12 27 34 97 98 200106 - 2 13 13 28 35 98 99 200106 - 3 14 14 29 36 99 100 200106 - 4 30 37 100 16 101 200106 - 5 31 38 101 17 102 200106 - 6 32 39 102 18 103 200114 - 1 15 15 33 40 103 104 200114 - 2 16 16 34 41 104 105 200114 - 3 17 17 35 42 105 106 200114 - 4 36 43 106 19 107 200114 - 5 37 44 107 20 108 200114 - 6 38 45 108 21 109 200121 - 1 18 18 39 46 109 110 200121 - 2 19 19 40 47 110 111 200121 - 3 20 20 41 48 111 112 200121 - 4 42 49 112 22 113 200121 - 5 43 50 113 23 114 200121 - 6 44 51 114 24 115 200129 - 1 21 21 45 52 115 116 200129 - 2 22 22 46 53 116 117 200129 - 3 23 23 47 54 117 118 200129 - 4 48 55 118 25 119 200129 - 5 49 56 119 26 120 200129 - 6 50 57 120 27 121 200137 - 1 24 24 51 58 121 122 200137 - 2 25 25 52 59 122 123 200137 - 3 26 26 53 60 123 124 200137 - 4 54 61 124 28 125 200137 - 5 55 62 125 29 126 200137 - 6 56 63 126 30 127 200145 - 1 27 27 57 64 127 128 200145 - 2 28 28 58 65 128 129 200145 - 3 29 29 59 66 129 130 200145 - 4 60 67 130 31 131 200145 - 5 61 68 131 32 132 200145 - 6 62 69 132 33 133 200153 - 1 30 30 63 70 133 134 200153 - 2 31 31 64 71 134 135 200153 - 3 32 32 65 72 135 136 200153 - 4 66 73 136 34 137 200153 - 5 67 74 137 35 138 200153 - 6 68 75 138 36 139 200155 - 1 33 33 69 76 139 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 (SIL) INT DOF EXT GP. DOF SAUTO SB SG L A F N G R O S M ----------------------------------------------------------------------------------------------------------------------------------- 140 200155 - 2 34 34 70 77 140 141 200155 - 3 35 35 71 78 141 142 200155 - 4 72 79 142 37 143 200155 - 5 73 80 143 38 144 200155 - 6 74 81 144 39 145 200096 - 1 145 64 146 200096 - 2 146 65 147 200096 - 3 147 66 148 200096 - 4 148 67 149 200096 - 5 149 68 150 200096 - 6 150 69 151 200087 - 1 151 70 152 200087 - 2 152 71 153 200087 - 3 153 72 154 200087 - 4 154 73 155 200087 - 5 155 74 156 200087 - 6 156 75 157 19765 - 1 157 76 158 19765 - 2 158 77 159 19765 - 3 159 78 160 19765 - 4 8 82 160 8 161 19765 - 5 9 83 161 9 162 19765 - 6 162 79 163 209 - 1 36 75 84 163 1 164 209 - 2 37 76 85 164 2 165 209 - 3 38 77 86 165 3 166 209 - 4 39 78 87 166 4 167 209 - 5 40 79 88 167 5 168 209 - 6 41 80 89 168 6 0--- C O L U M N T O T A L S --- 0 0 9 35 41 80 89 168 6 39 9 79 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGE 2119, SUBROUTINE GP4PRT - DIAG 22 SET DISP SETS VS. DOF FOLLOWS 0 MPC DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 189073-1 189073-2 189073-3 189073-4 189073-5 189073-6 18983-1 18983-2 18983-3 18983-5 11= 18983-6 189077-1 189077-2 189077-3 189077-4 189077-5 189077-6 18987-1 18987-2 18987-3 21= 18987-5 18987-6 211073-1 211073-2 211073-3 211073-4 211073-5 211073-6 21183-1 21183-2 31= 21183-3 21183-5 21183-6 211077-1 211077-2 211077-3 211077-4 211077-5 211077-6 21187-1 41= 21187-2 21187-3 21187-5 21187-6 214075-1 214075-2 214075-3 214075-4 214075-5 214075-6 51= 21485-2 21485-3 21485-4 200078-3 200079-1 200079-2 200079-3 200079-4 200079-5 200079-6 61= 200101-1 200101-2 200101-3 200096-1 200096-2 200096-3 200096-4 200096-5 200096-6 200087-1 71= 200087-2 200087-3 200087-4 200087-5 200087-6 19765-1 19765-2 19765-3 19765-6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 SPC DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 18983-4 18987-4 21183-4 21187-4 21485-1 21485-5 21485-6 19765-4 19765-5 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 OMIT DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 200070-4 200070-5 200070-6 200078-4 200078-5 200078-6 200086-4 200086-5 200086-6 200095-4 11= 200095-5 200095-6 200101-4 200101-5 200101-6 200106-4 200106-5 200106-6 200114-4 200114-5 21= 200114-6 200121-4 200121-5 200121-6 200129-4 200129-5 200129-6 200137-4 200137-5 200137-6 31= 200145-4 200145-5 200145-6 200153-4 200153-5 200153-6 200155-4 200155-5 200155-6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 ANALYSIS DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 200070-1 200070-2 200070-3 200078-1 200078-2 200086-1 200086-2 200086-3 200095-1 200095-2 11= 200095-3 200106-1 200106-2 200106-3 200114-1 200114-2 200114-3 200121-1 200121-2 200121-3 21= 200129-1 200129-2 200129-3 200137-1 200137-2 200137-3 200145-1 200145-2 200145-3 200153-1 31= 200153-2 200153-3 200155-1 200155-2 200155-3 209-1 209-2 209-3 209-4 209-5 41= 209-6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 SUPORT DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 209-1 209-2 209-3 209-4 209-5 209-6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 PERM SPC DISPLACEMENT SET 0 -1- -2- -3- -4- -5- -6- -7- -8- -9- -10- 1= 18983-4 18987-4 21183-4 21187-4 21485-1 21485-5 21485-6 19765-4 19765-5 0*** USER WARNING MESSAGE 3017 0 ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS. (USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION VIA A 'PARAM AUTOSPC' BULK DATA CARD) 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS G R I D P O I N T S I N G U L A R I T Y T A B L E SPC 0 MPC 0 POINT SINGULARITY LIST OF COORDINATE COMBINATIONS THAT WILL REMOVE SINGULARITY ID. TYPE ORDER STRONGEST COMBINATION WEAKER COMBINATION WEAKEST COMBINATION 209 G 3 1 2 3 209 G 3 4 5 6 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER INFORMATION MESSAGE 3028 B = 7 BBAR = 3 C = 8 CBAR = 9 R = 9 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC REAL DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 79) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 0, EPSILON SUB E = 3.5812325E-13 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 41, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 41 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 15 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 37 0.0 0.0 0.0 2.308852E+01 0.0 2 38 0.0 0.0 0.0 2.308852E+01 0.0 3 39 0.0 0.0 0.0 2.308852E+01 0.0 4 40 0.0 0.0 0.0 4.745215E+00 0.0 5 41 0.0 0.0 0.0 2.199128E+01 0.0 6 36 0.0 0.0 0.0 3.051504E+03 0.0 7 35 3.523143E+02 1.877004E+01 2.987344E+00 3.058785E+00 1.077654E+03 8 34 4.491364E+02 2.119284E+01 3.372945E+00 6.502028E+00 2.920298E+03 9 33 2.364993E+04 1.537853E+02 2.447569E+01 8.486223E-01 2.006985E+04 10 32 2.840193E+04 1.685287E+02 2.682218E+01 8.414580E-01 2.389903E+04 11 31 1.495553E+05 3.867238E+02 6.154901E+01 5.886284E-01 8.803251E+04 12 30 1.953452E+05 4.419787E+02 7.034309E+01 4.855810E-01 9.485592E+04 13 29 5.072981E+05 7.122486E+02 1.133579E+02 3.867738E-01 1.962096E+05 14 28 5.446138E+05 7.379795E+02 1.174531E+02 3.940395E-01 2.145993E+05 15 27 1.069645E+06 1.034236E+03 1.646038E+02 1.257546E+00 1.345127E+06 16 26 3.326742E+06 1.823936E+03 2.902884E+02 0.0 0.0 17 25 3.333666E+06 1.825833E+03 2.905904E+02 0.0 0.0 18 24 8.023708E+06 2.832615E+03 4.508247E+02 0.0 0.0 19 23 8.048828E+06 2.837046E+03 4.515298E+02 0.0 0.0 20 22 1.904542E+07 4.364106E+03 6.945691E+02 0.0 0.0 21 21 1.908568E+07 4.368716E+03 6.953028E+02 0.0 0.0 22 20 2.978056E+07 5.457157E+03 8.685334E+02 0.0 0.0 23 18 3.754954E+07 6.127768E+03 9.752645E+02 0.0 0.0 24 19 3.754995E+07 6.127802E+03 9.752699E+02 0.0 0.0 25 17 7.120777E+07 8.438470E+03 1.343024E+03 0.0 0.0 26 16 7.133043E+07 8.445734E+03 1.344180E+03 0.0 0.0 27 15 8.488149E+07 9.213115E+03 1.466313E+03 0.0 0.0 28 14 9.721060E+07 9.859544E+03 1.569195E+03 0.0 0.0 29 12 1.444611E+08 1.201920E+04 1.912915E+03 0.0 0.0 30 13 1.452864E+08 1.205348E+04 1.918371E+03 0.0 0.0 31 11 1.620432E+08 1.272962E+04 2.025981E+03 0.0 0.0 32 9 2.362997E+08 1.537204E+04 2.446537E+03 0.0 0.0 33 10 2.363582E+08 1.537395E+04 2.446839E+03 0.0 0.0 34 8 2.386800E+08 1.544927E+04 2.458828E+03 0.0 0.0 35 7 2.969673E+08 1.723274E+04 2.742675E+03 0.0 0.0 36 6 3.486627E+08 1.867251E+04 2.971823E+03 0.0 0.0 37 4 6.061834E+08 2.462079E+04 3.918521E+03 0.0 0.0 38 5 6.061843E+08 2.462081E+04 3.918523E+03 0.0 0.0 39 3 7.824220E+08 2.797181E+04 4.451851E+03 0.0 0.0 40 2 1.548007E+09 3.934471E+04 6.261906E+03 0.0 0.0 41 1 2.871167E+09 5.358327E+04 8.528042E+03 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0 E Q U I L I B R I U M C H E C K L O A D S 0 RESULTANT LOADS AT POINT 0 IN BASIC COORDINATE SYSTEM 0 SUBCASE 1, MODE 1, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 2, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 3, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 4, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 5, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 6, FREQUENCY 0.000000E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 7, FREQUENCY 2.987344E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 8, FREQUENCY 3.372945E+00 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 9, FREQUENCY 2.447569E+01 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 10, FREQUENCY 2.682218E+01 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 11, FREQUENCY 6.154901E+01 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 12, FREQUENCY 7.034309E+01 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 13, FREQUENCY 1.133579E+02 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 14, FREQUENCY 1.174531E+02 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 SUBCASE 1, MODE 15, FREQUENCY 1.646038E+02 0 -TYPE- T1 T2 T3 R1 R2 R3 SPCFORCE 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) NORMAL MODES ANALYSIS USING RIGID ELEMENTS 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 18983 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 18987 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 19765 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 21183 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 21187 G 1.000000E+00 0.0 0.0 0.0 0.0 0.0 21485 G 0.0 0.0 0.0 0.0 0.0 0.0 189073 G 1.000000E+00 0.0 1.387779E-16 0.0 1.273768E-17 0.0 189077 G 1.000000E+00 0.0 1.387779E-16 0.0 1.273768E-17 0.0 200070 G 1.000000E+00 0.0 -6.328272E-15 0.0 -1.330773E-17 0.0 200078 G 1.000000E+00 0.0 0.0 0.0 1.273768E-17 0.0 200079 G 1.000000E+00 0.0 0.0 0.0 1.273768E-17 0.0 200086 G 1.000000E+00 0.0 -6.341715E-15 0.0 -1.325098E-17 0.0 200087 G 1.000000E+00 0.0 0.0 0.0 1.273768E-17 0.0 200095 G 1.000000E+00 0.0 -6.336078E-15 0.0 2.670525E-17 0.0 200096 G 1.000000E+00 0.0 0.0 0.0 1.273768E-17 0.0 200101 G 1.000000E+00 0.0 0.0 0.0 2.012381E-17 0.0 200106 G 1.000000E+00 0.0 -6.326537E-15 0.0 -5.277354E-17 0.0 200114 G 1.000000E+00 0.0 -6.315478E-15 0.0 1.250390E-17 0.0 200121 G 1.000000E+00 0.0 -6.313527E-15 0.0 7.692753E-18 0.0 200129 G 1.000000E+00 0.0 -6.311791E-15 0.0 3.785390E-18 0.0 200137 G 1.000000E+00 0.0 -6.309189E-15 0.0 7.740611E-18 0.0 200145 G 1.000000E+00 0.0 -6.308160E-15 0.0 -1.479871E-17 0.0 200153 G 1.000000E+00 0.0 -6.309340E-15 0.0 4.655832E-17 0.0 200155 G 1.000000E+00 0.0 -6.309340E-15 0.0 3.223199E-17 0.0 211073 G 1.000000E+00 0.0 -1.387779E-16 0.0 1.273768E-17 0.0 211077 G 1.000000E+00 0.0 -1.387779E-16 0.0 1.273768E-17 0.0 214075 G 1.000000E+00 0.0 -1.942890E-16 0.0 1.273768E-17 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 18983 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 18987 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 19765 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 21183 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 21187 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 21485 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 189073 G 0.0 1.000000E+00 -9.435926E-17 -7.624991E-18 0.0 0.0 189077 G 0.0 1.000000E+00 9.435926E-17 -7.624991E-18 0.0 0.0 200070 G 0.0 1.000000E+00 0.0 -1.700419E-17 0.0 0.0 200078 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 200079 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 200086 G 0.0 1.000000E+00 0.0 1.286474E-17 0.0 0.0 200087 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 200095 G 0.0 1.000000E+00 0.0 -4.880604E-17 0.0 0.0 200096 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 200101 G 0.0 1.000000E+00 0.0 -1.331875E-17 0.0 0.0 200106 G 0.0 1.000000E+00 0.0 1.694066E-17 0.0 0.0 200114 G 0.0 1.000000E+00 0.0 -5.204170E-18 0.0 0.0 200121 G 0.0 1.000000E+00 0.0 1.127570E-17 0.0 0.0 200129 G 0.0 1.000000E+00 0.0 1.474515E-17 0.0 0.0 200137 G 0.0 1.000000E+00 0.0 1.040834E-17 0.0 0.0 200145 G 0.0 1.000000E+00 0.0 1.387779E-17 0.0 0.0 200153 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 200155 G 0.0 1.000000E+00 0.0 0.0 0.0 0.0 211073 G 0.0 1.000000E+00 -9.435926E-17 -7.624991E-18 0.0 0.0 211077 G 0.0 1.000000E+00 9.435926E-17 -7.624991E-18 0.0 0.0 214075 G 0.0 1.000000E+00 0.0 -7.624991E-18 0.0 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 18983 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 18987 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 19765 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 21183 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 21187 G -7.596512E-15 0.0 1.000000E+00 0.0 0.0 0.0 21485 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 189073 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 189077 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200070 G -4.862983E-15 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200078 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200079 G 8.945737E-16 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200086 G 5.282075E-15 0.0 1.000000E+00 0.0 6.176852E-16 0.0 200087 G 5.475168E-15 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200095 G 1.083319E-14 0.0 1.000000E+00 0.0 6.527213E-16 0.0 200096 G 1.104186E-14 0.0 1.000000E+00 0.0 6.361939E-16 0.0 200101 G 1.465227E-14 0.0 1.000000E+00 0.0 7.005520E-16 0.0 200106 G 1.854924E-14 0.0 1.000000E+00 0.0 7.615981E-16 0.0 200114 G 2.493302E-14 0.0 1.000000E+00 0.0 8.282532E-16 0.0 200121 G 3.087272E-14 0.0 1.000000E+00 0.0 8.679134E-16 0.0 200129 G 3.795039E-14 0.0 1.000000E+00 0.0 8.971601E-16 0.0 200137 G 4.518072E-14 0.0 1.000000E+00 0.0 9.089458E-16 0.0 200145 G 5.248737E-14 0.0 1.000000E+00 0.0 9.184258E-16 0.0 200153 G 5.964137E-14 0.0 1.000000E+00 0.0 9.232443E-16 0.0 200155 G 6.168141E-14 0.0 1.000000E+00 0.0 9.230140E-16 0.0 211073 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 211077 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 214075 G -4.699533E-17 0.0 1.000000E+00 0.0 6.361939E-16 0.0 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -9.657564E-11 -1.563668E-01 -3.725052E-06 -1.168756E-02 0.0 0.0 18983 G -9.657564E-11 9.538307E-02 -1.446167E-01 0.0 0.0 0.0 18987 G -9.657564E-11 9.538307E-02 1.446503E-01 0.0 0.0 0.0 19765 G -9.657564E-11 -5.585395E-02 1.680999E-05 0.0 0.0 0.0 21183 G -9.657564E-11 9.538307E-02 -1.446167E-01 0.0 0.0 0.0 21187 G -9.657564E-11 9.538307E-02 1.446503E-01 0.0 0.0 0.0 21485 G 0.0 9.538307E-02 1.680999E-05 -1.168756E-02 0.0 0.0 189073 G -2.549742E-10 9.538306E-02 -1.446167E-01 -1.168756E-02 7.501072E-12 2.420055E-11 189077 G 3.439893E-10 9.538306E-02 1.446503E-01 -1.168756E-02 7.501072E-12 2.420055E-11 200070 G -1.227557E-11 6.908262E-03 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200078 G 4.450754E-11 9.538306E-02 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200079 G 5.560915E-11 1.126807E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200086 G 1.096168E-10 1.968311E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200087 G 1.096168E-10 1.968311E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200095 G 1.752512E-10 2.990972E-01 1.680995E-05 -1.168756E-02 7.501071E-12 2.420055E-11 200096 G 1.752512E-10 2.990972E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200101 G 2.178198E-10 3.654241E-01 1.680995E-05 -1.168756E-02 7.501071E-12 2.420055E-11 200106 G 2.577630E-10 4.276603E-01 1.680995E-05 -1.168756E-02 7.501072E-12 2.420055E-11 200114 G 3.177716E-10 5.211608E-01 1.680995E-05 -1.168756E-02 7.501071E-12 2.420055E-11 200121 G 3.702791E-10 6.029737E-01 1.680995E-05 -1.168756E-02 7.501071E-12 2.420055E-11 200129 G 4.302876E-10 6.964741E-01 1.680995E-05 -1.168756E-02 7.501073E-12 2.420055E-11 200137 G 4.902962E-10 7.899746E-01 1.680995E-05 -1.168756E-02 7.501070E-12 2.420055E-11 200145 G 5.503048E-10 8.834750E-01 1.680995E-05 -1.168756E-02 7.501080E-12 2.420055E-11 200153 G 6.085131E-10 9.741704E-01 1.680995E-05 -1.168755E-02 7.501055E-12 2.420055E-11 200155 G 6.250905E-10 1.000000E+00 1.680995E-05 -1.168755E-02 7.501045E-12 2.420055E-11 211073 G -2.549742E-10 9.538306E-02 -1.446167E-01 -1.168756E-02 7.501072E-12 2.420055E-11 211077 G 3.439893E-10 9.538306E-02 1.446503E-01 -1.168756E-02 7.501072E-12 2.420055E-11 214075 G 4.450754E-11 9.538306E-02 1.680984E-05 -1.168756E-02 7.501072E-12 2.420055E-11 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -1.563668E-01 -2.240056E-07 1.751981E-02 -1.674319E-08 1.168756E-02 0.0 18983 G 9.538307E-02 1.366425E-07 3.822643E-02 0.0 1.168756E-02 0.0 18987 G 9.538307E-02 1.366425E-07 3.822684E-02 0.0 1.168756E-02 0.0 19765 G -5.585395E-02 -8.001442E-08 -4.311867E-02 0.0 0.0 0.0 21183 G 9.538307E-02 1.366425E-07 -2.163286E-01 0.0 1.168756E-02 0.0 21187 G 9.538307E-02 1.366425E-07 -2.163281E-01 0.0 1.168756E-02 0.0 21485 G 0.0 1.366425E-07 -2.488198E-01 -1.674319E-08 0.0 0.0 189073 G 9.538306E-02 1.366425E-07 3.822643E-02 -1.674319E-08 1.168756E-02 1.287707E-18 189077 G 9.538306E-02 1.366425E-07 3.822684E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200070 G 6.908263E-03 9.896536E-09 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200078 G 9.538306E-02 1.366425E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200079 G 1.126807E-01 1.614224E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200086 G 1.968311E-01 2.819733E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200087 G 1.968311E-01 2.819733E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200095 G 2.990972E-01 4.284762E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200096 G 2.990972E-01 4.284762E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200101 G 3.654241E-01 5.234938E-07 -7.935017E-02 -1.674318E-08 1.168756E-02 1.287707E-18 200106 G 4.276603E-01 6.126513E-07 -7.935017E-02 -1.674318E-08 1.168755E-02 1.287707E-18 200114 G 5.211608E-01 7.465968E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200121 G 6.029737E-01 8.637991E-07 -7.935017E-02 -1.674319E-08 1.168756E-02 1.287707E-18 200129 G 6.964741E-01 9.977446E-07 -7.935017E-02 -1.674319E-08 1.168755E-02 1.287707E-18 200137 G 7.899746E-01 1.131690E-06 -7.935017E-02 -1.674319E-08 1.168755E-02 1.287707E-18 200145 G 8.834750E-01 1.265636E-06 -7.935017E-02 -1.674318E-08 1.168756E-02 1.287707E-18 200153 G 9.741704E-01 1.395563E-06 -7.935017E-02 -1.674321E-08 1.168756E-02 1.287707E-18 200155 G 1.000000E+00 1.432565E-06 -7.935017E-02 -1.674322E-08 1.168755E-02 1.287707E-18 211073 G 9.538306E-02 1.366425E-07 -2.163286E-01 -1.674319E-08 1.168756E-02 1.287707E-18 211077 G 9.538306E-02 1.366425E-07 -2.163282E-01 -1.674319E-08 1.168756E-02 1.287707E-18 214075 G 9.538306E-02 1.366425E-07 -2.488198E-01 -1.674319E-08 1.168756E-02 1.287707E-18 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.000000E+00 (CYCLIC FREQUENCY = 0.000000E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -4.168538E-05 -1.024119E-01 2.229137E-06 8.935354E-03 -4.113639E-07 1.480688E-01 18983 G -1.832142E+00 -5.572125E-01 1.105608E-01 0.0 -4.113639E-07 1.480688E-01 18987 G 1.832561E+00 -5.572125E-01 -1.105892E-01 0.0 -4.113639E-07 1.480688E-01 19765 G 2.149338E-04 5.889686E-01 -1.133600E-05 0.0 0.0 1.480688E-01 21183 G -1.832142E+00 2.667726E+00 1.105698E-01 0.0 -4.113639E-07 1.480688E-01 21187 G 1.832561E+00 2.667726E+00 -1.105802E-01 0.0 -4.113639E-07 1.480688E-01 21485 G 0.0 3.079357E+00 -4.095996E-06 8.935354E-03 0.0 0.0 189073 G -1.832142E+00 -5.572125E-01 1.105608E-01 8.935354E-03 -4.108113E-07 1.480688E-01 189077 G 1.832561E+00 -5.572125E-01 -1.105892E-01 8.935354E-03 -4.108113E-07 1.480688E-01 200070 G 2.126719E-04 1.000000E+00 -1.004911E-05 8.935350E-03 -4.108148E-07 1.480688E-01 200078 G 2.095621E-04 9.323594E-01 -1.004911E-05 8.935354E-03 -4.108113E-07 1.480688E-01 200079 G 2.089541E-04 9.191350E-01 -1.004911E-05 8.935354E-03 -4.108113E-07 1.480688E-01 200086 G 2.059962E-04 8.548005E-01 -1.004911E-05 8.935357E-03 -4.108099E-07 1.480688E-01 200087 G 2.059962E-04 8.548005E-01 -1.004911E-05 8.935354E-03 -4.108113E-07 1.480688E-01 200095 G 2.024016E-04 7.766162E-01 -1.004911E-05 8.935349E-03 -4.108132E-07 1.480688E-01 200096 G 2.024016E-04 7.766162E-01 -1.004911E-05 8.935354E-03 -4.108113E-07 1.480688E-01 200101 G 2.000703E-04 7.259080E-01 -1.004911E-05 8.935351E-03 -4.108117E-07 1.480688E-01 200106 G 1.978827E-04 6.783273E-01 -1.004911E-05 8.935357E-03 -4.108088E-07 1.480688E-01 200114 G 1.945962E-04 6.068444E-01 -1.004911E-05 8.935351E-03 -4.108119E-07 1.480688E-01 200121 G 1.917206E-04 5.442970E-01 -1.004911E-05 8.935351E-03 -4.108113E-07 1.480688E-01 200129 G 1.884341E-04 4.728141E-01 -1.004911E-05 8.935357E-03 -4.108108E-07 1.480688E-01 200137 G 1.851476E-04 4.013313E-01 -1.004911E-05 8.935355E-03 -4.108109E-07 1.480688E-01 200145 G 1.818611E-04 3.298485E-01 -1.004911E-05 8.935349E-03 -4.108112E-07 1.480688E-01 200153 G 1.786732E-04 2.605102E-01 -1.004911E-05 8.935357E-03 -4.108096E-07 1.480688E-01 200155 G 1.777653E-04 2.407630E-01 -1.004911E-05 8.935359E-03 -4.108083E-07 1.480688E-01 211073 G -1.832142E+00 2.667726E+00 1.105698E-01 8.935354E-03 -4.108113E-07 1.480688E-01 211077 G 1.832561E+00 2.667726E+00 -1.105802E-01 8.935354E-03 -4.108113E-07 1.480688E-01 214075 G 2.095621E-04 3.079357E+00 -4.092345E-06 8.935354E-03 -4.108113E-07 1.480688E-01 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.352314E+03 (CYCLIC FREQUENCY = 2.987344E+00 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -1.281382E-01 1.691115E-07 -2.534163E-03 -1.922461E-08 -1.715252E-03 -3.040498E-08 18983 G -1.650843E-01 6.370777E-07 -5.573309E-03 0.0 -1.715252E-03 -3.040498E-08 18987 G -1.650851E-01 6.370777E-07 -5.572834E-03 0.0 -1.715252E-03 -3.040498E-08 19765 G -1.428893E-01 1.766929E-07 6.365067E-03 0.0 0.0 -3.040498E-08 21183 G -1.650843E-01 -2.514270E-08 3.178487E-02 0.0 -1.715252E-03 -3.040498E-08 21187 G -1.650851E-01 -2.514270E-08 3.178535E-02 0.0 -1.715252E-03 -3.040498E-08 21485 G 0.0 -1.096685E-07 3.655351E-02 -1.922461E-08 0.0 0.0 189073 G -1.642105E-01 6.265337E-07 9.759346E-02 1.299901E-08 8.560667E-03 -3.037381E-08 189077 G -1.642112E-01 6.265337E-07 9.759314E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200070 G -2.290160E-01 4.194566E-07 1.147306E-02 1.301502E-08 8.560844E-03 -3.037381E-08 200078 G -1.642108E-01 3.209733E-07 1.147301E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200079 G -1.515410E-01 3.017347E-07 1.147301E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200086 G -9.852263E-02 2.197933E-07 1.147306E-02 1.176456E-08 7.662398E-03 -3.037381E-08 200087 G -8.990425E-02 2.081419E-07 1.147301E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200095 G -2.478640E-02 1.078383E-07 1.147305E-02 1.415583E-08 9.411636E-03 -3.037381E-08 200096 G -1.499841E-02 9.440056E-08 1.147301E-02 1.299901E-08 8.560667E-03 -3.037381E-08 200101 G 3.358340E-02 2.063114E-08 1.147301E-02 1.669187E-08 1.125167E-02 -3.037381E-08 200106 G 9.860229E-02 -7.520995E-08 1.147366E-02 1.926111E-08 1.313361E-02 -3.037381E-08 200114 G 2.137211E-01 -2.430559E-07 1.147460E-02 2.258852E-08 1.556749E-02 -3.037381E-08 200121 G 3.290100E-01 -4.097938E-07 1.147537E-02 2.497315E-08 1.731289E-02 -3.037381E-08 200129 G 4.740710E-01 -6.185717E-07 1.147620E-02 2.711603E-08 1.887638E-02 -3.037381E-08 200137 G 6.298204E-01 -8.419798E-07 1.147702E-02 2.863244E-08 1.998549E-02 -3.037381E-08 200145 G 7.926352E-01 -1.075047E-06 1.147784E-02 2.953232E-08 2.064322E-02 -3.037381E-08 200153 G 9.539133E-01 -1.305709E-06 1.147862E-02 2.982079E-08 2.085354E-02 -3.037381E-08 200155 G 1.000000E+00 -1.371613E-06 1.147862E-02 2.982090E-08 2.085367E-02 -3.037381E-08 211073 G -1.642105E-01 -3.500780E-08 -8.885785E-02 1.299901E-08 8.560667E-03 -3.037381E-08 211077 G -1.642112E-01 -3.500780E-08 -8.885817E-02 1.299901E-08 8.560667E-03 -3.037381E-08 214075 G -1.642108E-01 -1.194470E-07 -1.126567E-01 1.299901E-08 8.560667E-03 -3.037381E-08 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.449136E+03 (CYCLIC FREQUENCY = 3.372945E+00 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -2.860438E-07 -1.034032E-01 5.648798E-06 1.775269E-02 -1.037556E-08 -1.166620E-04 18983 G 1.442978E-03 -4.855892E-01 2.196639E-01 0.0 -1.037556E-08 -1.166620E-04 18987 G -1.444407E-03 -4.855892E-01 -2.197150E-01 0.0 -1.037556E-08 -1.166620E-04 19765 G -5.802487E-07 -2.566814E-01 -2.548884E-05 0.0 0.0 -1.166620E-04 21183 G 1.442978E-03 -4.881301E-01 2.196642E-01 0.0 -1.037556E-08 -1.166620E-04 21187 G -1.444407E-03 -4.881301E-01 -2.197148E-01 0.0 -1.037556E-08 -1.166620E-04 21485 G 0.0 -4.884544E-01 -2.530623E-05 1.775269E-02 0.0 0.0 189073 G 1.739299E-03 -4.774919E-01 -1.361696E-01 -1.100156E-02 1.929874E-08 -1.405989E-04 189077 G -1.740524E-03 -4.774919E-01 1.361191E-01 -1.100156E-02 1.929874E-08 -1.405989E-04 200070 G -7.587439E-07 -5.621898E-01 -2.547534E-05 -1.100188E-02 1.929929E-08 -1.405989E-04 200078 G -6.126497E-07 -4.789063E-01 -2.548108E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 200079 G -5.840874E-07 -4.626240E-01 -2.548108E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 200086 G -4.678302E-07 -3.941894E-01 -2.548314E-05 -9.879191E-03 1.641146E-08 -1.405989E-04 200087 G -4.451366E-07 -3.834127E-01 -2.548108E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 200095 G -3.075142E-07 -2.993758E-01 -2.548273E-05 -1.206665E-02 2.166020E-08 -1.405989E-04 200096 G -2.762726E-07 -2.871491E-01 -2.548108E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 200101 G -1.667521E-07 -2.247152E-01 -2.548108E-05 -1.435877E-02 2.799988E-08 -1.405989E-04 200106 G -2.977248E-09 -1.419004E-01 -2.548284E-05 -1.670387E-02 3.321984E-08 -1.405989E-04 200114 G 2.903915E-07 4.300541E-03 -2.548548E-05 -1.974964E-02 4.031057E-08 -1.405989E-04 200121 G 5.935073E-07 1.504727E-01 -2.548766E-05 -2.194033E-02 4.593636E-08 -1.405989E-04 200129 G 9.803830E-07 3.342393E-01 -2.549002E-05 -2.390597E-02 5.060391E-08 -1.405989E-04 200137 G 1.399793E-06 5.314468E-01 -2.549235E-05 -2.530109E-02 5.400505E-08 -1.405989E-04 200145 G 1.840719E-06 7.375434E-01 -2.549465E-05 -2.612874E-02 5.600181E-08 -1.405989E-04 200153 G 2.278612E-06 9.416702E-01 -2.549686E-05 -2.639342E-02 5.664344E-08 -1.405989E-04 200155 G 2.403794E-06 1.000000E+00 -2.549686E-05 -2.639357E-02 5.664348E-08 -1.405989E-04 211073 G 1.739299E-03 -4.805541E-01 -1.361700E-01 -1.100156E-02 1.929874E-08 -1.405989E-04 211077 G -1.740524E-03 -4.805541E-01 1.361186E-01 -1.100156E-02 1.929874E-08 -1.405989E-04 214075 G -6.126497E-07 -4.809450E-01 -2.576091E-05 -1.100156E-02 1.929874E-08 -1.405989E-04 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.236499E+05 (CYCLIC FREQUENCY = 2.447569E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -7.435972E-08 -3.412846E-02 5.072368E-07 1.468387E-03 -8.822445E-10 -3.847645E-05 18983 G 4.759851E-04 -6.568932E-02 1.816921E-02 0.0 -8.822445E-10 -3.847645E-05 18987 G -4.763070E-04 -6.568932E-02 -1.817336E-02 0.0 -8.822445E-10 -3.847645E-05 19765 G -1.495501E-07 -4.695619E-02 -2.068141E-06 0.0 0.0 -3.847645E-05 21183 G 4.759851E-04 -6.652734E-02 1.816923E-02 0.0 -8.822445E-10 -3.847645E-05 21187 G -4.763070E-04 -6.652734E-02 -1.817334E-02 0.0 -8.822445E-10 -3.847645E-05 21485 G 0.0 -6.663430E-02 -2.052613E-06 1.468387E-03 0.0 0.0 189073 G 5.614778E-03 7.476252E-02 -4.246728E-01 -3.431684E-02 3.700858E-08 -4.536729E-04 189077 G -5.613626E-03 7.476252E-02 4.246690E-01 -3.431684E-02 3.700858E-08 -4.536729E-04 200070 G 2.955142E-07 -1.898057E-01 -2.243486E-06 -3.436159E-02 3.705455E-08 -4.536729E-04 200078 G 5.759011E-07 7.019858E-02 -2.241936E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 200079 G 6.306740E-07 1.209876E-01 -2.241936E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 200086 G 9.504164E-07 4.103552E-01 -2.242231E-06 -3.867330E-02 4.252023E-08 -4.536729E-04 200087 G 8.971356E-07 3.680688E-01 -2.241936E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 200095 G 1.280280E-06 7.154400E-01 -2.242212E-06 -3.001861E-02 3.149801E-08 -4.536729E-04 200096 G 1.220961E-06 6.683411E-01 -2.241936E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 200101 G 1.430985E-06 8.630893E-01 -2.241936E-06 -2.183529E-02 2.158771E-08 -4.536729E-04 200106 G 1.518581E-06 9.561676E-01 -2.250704E-06 -1.286215E-02 1.086131E-08 -4.536729E-04 200114 G 1.530922E-06 1.000000E+00 -2.263341E-06 1.957220E-03 -8.020608E-09 -4.536729E-04 200121 G 1.416088E-06 9.416006E-01 -2.273752E-06 1.456062E-02 -2.459173E-08 -4.536729E-04 200129 G 1.151721E-06 7.739921E-01 -2.285045E-06 2.681751E-02 -4.082344E-08 -4.536729E-04 200137 G 7.744326E-07 5.213209E-01 -2.296183E-06 3.577421E-02 -5.273528E-08 -4.536729E-04 200145 G 3.204811E-07 2.110446E-01 -2.307216E-06 4.119091E-02 -5.995029E-08 -4.536729E-04 200153 G -1.568169E-07 -1.176563E-01 -2.317787E-06 4.294504E-02 -6.229005E-08 -4.536729E-04 200155 G -2.944816E-07 -2.125676E-01 -2.317806E-06 4.294669E-02 -6.229229E-08 -4.536729E-04 211073 G 5.614778E-03 6.488153E-02 -4.246736E-01 -3.431684E-02 3.700858E-08 -4.536729E-04 211077 G -5.613626E-03 6.488153E-02 4.246682E-01 -3.431684E-02 3.700858E-08 -4.536729E-04 214075 G 5.759011E-07 6.362032E-02 -2.778560E-06 -3.431684E-02 3.700858E-08 -4.536729E-04 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.284019E+05 (CYCLIC FREQUENCY = 2.682218E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -3.838427E-02 5.098872E-08 7.107995E-03 -2.159953E-08 -1.761671E-04 -9.106066E-09 18983 G -4.217879E-02 5.323756E-07 6.795612E-03 0.0 -1.761671E-04 -9.106066E-09 18987 G -4.217901E-02 5.323756E-07 6.796147E-03 0.0 -1.761671E-04 -9.106066E-09 19765 G -3.989930E-02 1.894995E-07 8.022001E-03 0.0 0.0 -9.106066E-09 21183 G -4.217879E-02 3.340455E-07 1.063253E-02 0.0 -1.761671E-04 -9.106066E-09 21187 G -4.217901E-02 3.340455E-07 1.063307E-02 0.0 -1.761671E-04 -9.106066E-09 21485 G 0.0 3.087307E-07 1.112254E-02 -2.159953E-08 0.0 0.0 189073 G 1.253543E-01 2.810621E-07 2.894033E-01 7.327110E-08 3.190555E-02 -8.363147E-09 189077 G 1.253541E-01 2.810621E-07 2.894015E-01 7.327110E-08 3.190555E-02 -8.363147E-09 200070 G -1.164212E-01 7.518266E-07 -3.157805E-02 7.331779E-08 3.195518E-02 -8.363147E-09 200078 G 1.253542E-01 1.969289E-07 -3.156740E-02 7.327110E-08 3.190555E-02 -8.363147E-09 200079 G 1.725745E-01 8.848742E-08 -3.156740E-02 7.327110E-08 3.190555E-02 -8.363147E-09 200086 G 4.406096E-01 -5.177437E-07 -3.157695E-02 8.161371E-08 3.583152E-02 -8.363147E-09 200087 G 4.022944E-01 -4.390642E-07 -3.156740E-02 7.327110E-08 3.190555E-02 -8.363147E-09 200095 G 7.237899E-01 -1.170314E-06 -3.157635E-02 6.522352E-08 2.797138E-02 -8.363147E-09 200096 G 6.814680E-01 -1.080186E-06 -3.156740E-02 7.327110E-08 3.190555E-02 -8.363147E-09 200101 G 8.625321E-01 -1.496000E-06 -3.156740E-02 4.929531E-08 2.084899E-02 -8.363147E-09 200106 G 9.532413E-01 -1.713621E-06 -3.171637E-02 3.185222E-08 1.285371E-02 -8.363147E-09 200114 G 1.000000E+00 -1.850967E-06 -3.193140E-02 2.228491E-09 -1.341127E-03 -8.363147E-09 200121 G 9.463068E-01 -1.775468E-06 -3.210861E-02 -2.351752E-08 -1.388646E-02 -8.363147E-09 200129 G 7.835510E-01 -1.482026E-06 -3.230085E-02 -4.877711E-08 -2.628601E-02 -8.363147E-09 200137 G 5.345000E-01 -1.013042E-06 -3.249047E-02 -6.728381E-08 -3.539703E-02 -8.363147E-09 200145 G 2.267487E-01 -4.249182E-07 -3.267832E-02 -7.850303E-08 -4.092677E-02 -8.363147E-09 200153 G -1.001117E-01 2.030789E-07 -3.285829E-02 -8.214549E-08 -4.272163E-02 -8.363147E-09 200155 G -1.945294E-01 3.846258E-07 -3.285862E-02 -8.214876E-08 -4.272344E-02 -8.363147E-09 211073 G 1.253543E-01 9.891279E-08 -4.054996E-01 7.327110E-08 3.190555E-02 -8.363147E-09 211077 G 1.253541E-01 9.891279E-08 -4.055014E-01 7.327110E-08 3.190555E-02 -8.363147E-09 214075 G 1.253542E-01 7.566326E-08 -4.941979E-01 7.327110E-08 3.190555E-02 -8.363147E-09 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.149555E+06 (CYCLIC FREQUENCY = 6.154901E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -2.180174E-02 -2.043694E-07 3.809752E-02 -9.654200E-08 -1.005259E-04 -5.434067E-09 18983 G -2.396700E-02 1.884772E-06 3.791822E-02 0.0 -1.005259E-04 -5.434067E-09 18987 G -2.396714E-02 1.884772E-06 3.792061E-02 0.0 -1.005259E-04 -5.434067E-09 19765 G -2.266626E-02 5.976970E-07 3.861908E-02 0.0 0.0 -5.434067E-09 21183 G -2.396700E-02 1.766418E-06 4.010768E-02 0.0 -1.005259E-04 -5.434067E-09 21187 G -2.396714E-02 1.766418E-06 4.011007E-02 0.0 -1.005259E-04 -5.434067E-09 21485 G 0.0 1.751311E-06 4.038833E-02 -9.654200E-08 0.0 0.0 189073 G 7.597543E-01 7.164211E-06 -4.661849E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 189077 G 7.597538E-01 7.164211E-06 -4.661919E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200070 G 1.000000E+00 9.132744E-06 -1.490883E-01 2.888383E-07 -3.183128E-02 -2.104087E-08 200078 G 7.597540E-01 6.952539E-06 -1.488235E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200079 G 7.130640E-01 6.528754E-06 -1.488235E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200086 G 5.071975E-01 4.657975E-06 -1.490609E-01 2.714607E-07 -2.986233E-02 -2.104087E-08 200087 G 4.859242E-01 4.467101E-06 -1.488235E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200095 G 2.271481E-01 2.113667E-06 -1.490459E-01 3.082117E-07 -3.397761E-02 -2.104087E-08 200096 G 2.098861E-01 1.961619E-06 -1.488235E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 200101 G 3.085553E-02 3.366340E-07 -1.488235E-01 3.128914E-07 -3.464390E-02 -2.104087E-08 200106 G -1.484246E-01 -1.279305E-06 -1.532117E-01 2.896782E-07 -3.218580E-02 -2.104087E-08 200114 G -3.706879E-01 -3.278265E-06 -1.595810E-01 1.975074E-07 -2.196303E-02 -2.104087E-08 200121 G -4.779176E-01 -4.244007E-06 -1.648659E-01 7.567699E-08 -8.361754E-03 -2.104087E-08 200129 G -4.818658E-01 -4.286429E-06 -1.706281E-01 -6.112806E-08 6.935453E-03 -2.104087E-08 200137 G -3.758964E-01 -3.346121E-06 -1.763172E-01 -1.678719E-07 1.887787E-02 -2.104087E-08 200145 G -1.916187E-01 -1.705973E-06 -1.819559E-01 -2.350554E-07 2.639577E-02 -2.104087E-08 200153 G 2.612408E-02 2.334521E-07 -1.873593E-01 -2.574280E-07 2.889914E-02 -2.104087E-08 200155 G 8.999769E-02 8.024258E-07 -1.873692E-01 -2.574660E-07 2.890343E-02 -2.104087E-08 211073 G 7.597543E-01 6.705940E-06 2.209134E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 211077 G 7.597538E-01 6.705940E-06 2.209063E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 214075 G 7.597540E-01 6.647447E-06 3.086111E-01 2.863408E-07 -3.154721E-02 -2.104087E-08 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.195345E+06 (CYCLIC FREQUENCY = 7.034309E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 1.735424E-07 -2.492234E-02 1.040353E-08 7.926864E-04 4.673263E-10 -2.809567E-05 18983 G 3.478182E-04 -4.194702E-02 9.808113E-03 0.0 4.673263E-10 -2.809567E-05 18987 G -3.475497E-04 -4.194702E-02 -9.810875E-03 0.0 4.673263E-10 -2.809567E-05 19765 G 1.281973E-07 -3.188520E-02 -1.384771E-06 0.0 0.0 -2.809567E-05 21183 G 3.478182E-04 -4.255894E-02 9.808103E-03 0.0 4.673263E-10 -2.809567E-05 21187 G -3.475497E-04 -4.255894E-02 -9.810885E-03 0.0 4.673263E-10 -2.809567E-05 21485 G 0.0 -4.263705E-02 -1.392996E-06 7.926864E-04 0.0 0.0 189073 G 3.132847E-02 8.050826E-01 3.574528E-01 2.888491E-02 2.066946E-07 -2.532040E-03 189077 G -3.133953E-02 8.050826E-01 -3.574487E-01 2.888491E-02 2.066946E-07 -2.532040E-03 200070 G -7.107416E-06 1.000000E+00 -3.894656E-08 2.922790E-02 2.091476E-07 -2.532040E-03 200078 G -5.530359E-06 7.796103E-01 -2.916398E-08 2.888491E-02 2.066946E-07 -2.532040E-03 200079 G -5.224450E-06 7.368605E-01 -2.916398E-08 2.888491E-02 2.066946E-07 -2.532040E-03 200086 G -4.078107E-06 5.747414E-01 -2.600835E-08 2.488468E-02 1.774530E-07 -2.532040E-03 200087 G -3.736249E-06 5.288893E-01 -2.916398E-08 2.888491E-02 2.066946E-07 -2.532040E-03 200095 G -2.233911E-06 3.179230E-01 -2.667839E-08 3.396574E-02 2.441423E-07 -2.532040E-03 200096 G -1.927672E-06 2.761463E-01 -2.916398E-08 2.888491E-02 2.066946E-07 -2.532040E-03 200101 G -7.546790E-07 1.122244E-01 -2.916398E-08 3.771792E-02 2.719983E-07 -2.532040E-03 200106 G 7.018957E-07 -8.881804E-02 -3.050894E-08 3.720617E-02 2.708233E-07 -2.532040E-03 200114 G 2.657974E-06 -3.564891E-01 -3.227697E-08 2.766672E-02 2.023405E-07 -2.532040E-03 200121 G 3.692977E-06 -4.984264E-01 -3.374735E-08 1.235423E-02 8.966356E-08 -2.532040E-03 200129 G 3.869313E-06 -5.234711E-01 -3.535395E-08 -5.653708E-03 -4.245230E-08 -2.532040E-03 200137 G 3.084930E-06 -4.177485E-01 -3.694082E-08 -1.999360E-02 -1.478720E-07 -2.532040E-03 200145 G 1.605452E-06 -2.174560E-01 -3.851387E-08 -2.912757E-02 -2.150078E-07 -2.532040E-03 200153 G -1.792351E-07 2.437993E-02 -4.002149E-08 -3.219331E-02 -2.375506E-07 -2.532040E-03 200155 G -7.042873E-07 9.553611E-02 -4.002423E-08 -3.219925E-02 -2.375939E-07 -2.532040E-03 211073 G 3.132847E-02 7.499348E-01 3.574483E-01 2.888491E-02 2.066946E-07 -2.532040E-03 211077 G -3.133953E-02 7.499348E-01 -3.574532E-01 2.888491E-02 2.066946E-07 -2.532040E-03 214075 G -5.530359E-06 7.428957E-01 -3.026236E-06 2.888491E-02 2.066946E-07 -2.532040E-03 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.507298E+06 (CYCLIC FREQUENCY = 1.133579E+02 HZ) R E A L E I G E N V E C T O R N O . 13 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 1.887539E-03 2.892167E-09 1.738968E-02 -4.705357E-08 -1.153718E-05 4.543725E-10 18983 G 1.639022E-03 1.015621E-06 1.736866E-02 0.0 -1.153718E-05 4.543725E-10 18987 G 1.639034E-03 1.015621E-06 1.736983E-02 0.0 -1.153718E-05 4.543725E-10 19765 G 1.788319E-03 4.099097E-07 1.744954E-02 0.0 0.0 4.543725E-10 21183 G 1.639022E-03 1.025517E-06 1.761994E-02 0.0 -1.153718E-05 4.543725E-10 21187 G 1.639034E-03 1.025517E-06 1.762110E-02 0.0 -1.153718E-05 4.543725E-10 21485 G 0.0 1.026780E-06 1.765260E-02 -4.705357E-08 0.0 0.0 189073 G 2.123807E-01 6.965446E-07 -3.447998E-01 9.812811E-08 -3.099398E-02 1.397608E-09 189077 G 2.123807E-01 6.965446E-07 -3.448022E-01 9.812811E-08 -3.099398E-02 1.397608E-09 200070 G 4.515394E-01 1.468021E-06 -3.320159E-02 1.010185E-07 -3.189244E-02 1.397608E-09 200078 G 2.123807E-01 7.106045E-07 -3.300159E-02 9.812811E-08 -3.099398E-02 1.397608E-09 200079 G 1.665095E-01 5.653746E-07 -3.300159E-02 9.812811E-08 -3.099398E-02 1.397608E-09 200086 G -3.094360E-01 -9.272165E-07 -3.318080E-02 1.769921E-07 -5.633516E-02 1.397608E-09 200087 G -5.664707E-02 -1.411475E-07 -3.300159E-02 9.812811E-08 -3.099398E-02 1.397608E-09 200095 G -5.984007E-01 -1.842108E-06 -3.316951E-02 1.494952E-08 -4.210300E-03 1.397608E-09 200096 G -3.278444E-01 -9.997685E-07 -3.300159E-02 9.812811E-08 -3.099398E-02 1.397608E-09 200101 G -5.037354E-01 -1.556646E-06 -3.300159E-02 -1.115457E-07 3.620632E-02 1.397608E-09 200106 G -2.300736E-01 -7.081690E-07 -4.087389E-02 -2.012172E-07 6.472401E-02 1.397608E-09 200114 G 3.568954E-01 1.119059E-06 -5.249882E-02 -2.287449E-07 7.342049E-02 1.397608E-09 200121 G 7.924918E-01 2.476549E-06 -6.234895E-02 -1.474822E-07 4.732299E-02 1.397608E-09 200129 G 1.000000E+00 3.122780E-06 -7.325004E-02 -1.374018E-08 4.446925E-03 1.397608E-09 200137 G 8.753517E-01 2.732892E-06 -8.404481E-02 1.063144E-07 -3.403820E-02 1.397608E-09 200145 G 4.879429E-01 1.523273E-06 -9.475782E-02 1.882977E-07 -6.031556E-02 1.397608E-09 200153 G -2.749754E-02 -8.579283E-08 -1.050329E-01 2.170430E-07 -6.952798E-02 1.397608E-09 200155 G -1.811982E-01 -5.655943E-07 -1.050516E-01 2.171346E-07 -6.955738E-02 1.397608E-09 211073 G 2.123807E-01 7.269845E-07 3.302492E-01 9.812811E-08 -3.099398E-02 1.397608E-09 211077 G 2.123807E-01 7.269845E-07 3.302467E-01 9.812811E-08 -3.099398E-02 1.397608E-09 214075 G 2.123807E-01 7.308699E-07 4.164112E-01 9.812811E-08 -3.099398E-02 1.397608E-09 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.544614E+06 (CYCLIC FREQUENCY = 1.174531E+02 HZ) R E A L E I G E N V E C T O R N O . 14 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G 8.975282E-09 -4.525877E-03 -9.227976E-09 1.334588E-04 2.870489E-11 -5.102084E-06 18983 G 6.313893E-05 -7.391538E-03 1.651309E-03 0.0 2.870489E-11 -5.102084E-06 18987 G -6.313766E-05 -7.391538E-03 -1.651796E-03 0.0 2.870489E-11 -5.102084E-06 19765 G 2.577811E-10 -5.700092E-03 -2.438640E-07 0.0 0.0 -5.102084E-06 21183 G 6.313893E-05 -7.502662E-03 1.651308E-03 0.0 2.870489E-11 -5.102084E-06 21187 G -6.313766E-05 -7.502662E-03 -1.651797E-03 0.0 2.870489E-11 -5.102084E-06 21485 G 0.0 -7.516846E-03 -2.443692E-07 1.334588E-04 0.0 0.0 189073 G 1.574958E-02 4.214365E-01 4.902321E-01 3.961462E-02 1.107352E-07 -1.272781E-03 189077 G -1.575175E-02 4.214365E-01 -4.902298E-01 3.961462E-02 1.107352E-07 -1.272781E-03 200070 G -1.939716E-06 7.148132E-01 1.192869E-08 4.086260E-02 1.142169E-07 -1.272781E-03 200078 G -1.083880E-06 4.086324E-01 1.586029E-08 3.961462E-02 1.107352E-07 -1.272781E-03 200079 G -9.199912E-07 3.500026E-01 1.586029E-08 3.961462E-02 1.107352E-07 -1.272781E-03 200086 G 6.151079E-07 -1.919622E-01 1.734225E-08 6.574191E-02 1.859290E-07 -1.272781E-03 200087 G -1.226982E-07 6.477744E-02 1.586029E-08 3.961462E-02 1.107352E-07 -1.272781E-03 200095 G 1.650014E-06 -5.613870E-01 1.698107E-08 1.255035E-02 3.269479E-08 -1.272781E-03 200096 G 8.462347E-07 -2.818505E-01 1.586029E-08 3.961462E-02 1.107352E-07 -1.272781E-03 200101 G 1.474657E-06 -5.066636E-01 1.586029E-08 -3.079928E-02 -9.095775E-08 -1.272781E-03 200106 G 7.376322E-07 -2.527241E-01 2.057635E-08 -6.258737E-02 -1.802748E-07 -1.272781E-03 200114 G -9.382632E-07 3.314245E-01 2.763127E-08 -7.448651E-02 -2.134033E-07 -1.272781E-03 200121 G -2.219921E-06 7.786500E-01 3.362275E-08 -4.925349E-02 -1.411821E-07 -1.272781E-03 200129 G -2.854900E-06 1.000000E+00 4.026377E-08 -5.841684E-03 -1.691221E-08 -1.272781E-03 200137 G -2.520768E-06 8.825837E-01 4.684204E-08 3.364510E-02 9.601315E-08 -1.272781E-03 200145 G -1.412675E-06 4.945413E-01 5.337138E-08 6.080829E-02 1.736938E-07 -1.272781E-03 200153 G 7.584792E-08 -2.652459E-02 5.963437E-08 7.037315E-02 2.010428E-07 -1.272781E-03 200155 G 5.202876E-07 -1.820965E-01 5.964575E-08 7.040489E-02 2.011336E-07 -1.272781E-03 211073 G 1.574958E-02 3.937154E-01 4.902296E-01 3.961462E-02 1.107352E-07 -1.272781E-03 211077 G -1.575175E-02 3.937154E-01 -4.902322E-01 3.961462E-02 1.107352E-07 -1.272781E-03 214075 G -1.083880E-06 3.901770E-01 -1.589800E-06 3.961462E-02 1.107352E-07 -1.272781E-03 1 HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) 0 NORMAL MODES ANALYSIS USING RIGID ELEMENTS EIGENVALUE = 0.106964E+07 (CYCLIC FREQUENCY = 1.646038E+02 HZ) R E A L E I G E N V E C T O R N O . 15 POINT ID. TYPE T1 T2 T3 R1 R2 R3 209 G -1.859502E-02 -2.245320E-08 -6.147731E-02 1.665499E-07 1.622162E-05 -4.466250E-09 18983 G -1.824555E-02 -3.602023E-06 -6.144651E-02 0.0 1.622162E-05 -4.466250E-09 18987 G -1.824567E-02 -3.602023E-06 -6.145063E-02 0.0 1.622162E-05 -4.466250E-09 19765 G -1.845552E-02 -1.477952E-06 -6.156147E-02 0.0 0.0 -4.466250E-09 21183 G -1.824555E-02 -3.699298E-06 -6.179982E-02 0.0 1.622162E-05 -4.466250E-09 21187 G -1.824567E-02 -3.699298E-06 -6.180394E-02 0.0 1.622162E-05 -4.466250E-09 21485 G 0.0 -3.711714E-06 -6.184697E-02 1.665499E-07 0.0 0.0 189073 G 6.896894E-01 1.052667E-06 -6.267808E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 189077 G 6.896890E-01 1.052667E-06 -6.267820E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200070 G 1.000000E+00 1.244522E-06 -2.341845E-01 5.056185E-08 -4.182766E-02 -1.822620E-08 200078 G 6.896892E-01 8.693111E-07 -2.312101E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200079 G 6.314937E-01 7.989032E-07 -2.312101E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200086 G 2.804552E-01 3.935889E-07 -2.338731E-01 5.727357E-08 -4.862713E-02 -1.822620E-08 200087 G 3.483810E-01 4.563789E-07 -2.312101E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200095 G -9.791286E-02 -6.779847E-08 -2.337049E-01 4.185654E-08 -3.270569E-02 -1.822620E-08 200096 G 4.320337E-03 4.011659E-08 -2.312101E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 200101 G -2.188277E-01 -2.298594E-07 -2.312101E-01 1.311544E-08 -8.682907E-03 -1.822620E-08 200106 G -2.000576E-01 -2.186519E-07 -1.497742E-01 -1.604596E-08 1.494644E-02 -1.822620E-08 200114 G 1.182839E-02 2.032457E-08 -2.586863E-02 -3.850097E-08 3.358650E-02 -1.822620E-08 200121 G 2.410693E-01 2.844891E-07 8.288299E-02 -3.320865E-08 2.874365E-02 -1.822620E-08 200129 G 3.978926E-01 4.654701E-07 2.061722E-01 -1.093071E-08 9.518354E-03 -1.822620E-08 200137 G 3.891389E-01 4.543243E-07 3.288303E-01 1.324328E-08 -1.129094E-02 -1.822620E-08 200145 G 2.309646E-01 2.694710E-07 4.508141E-01 3.145723E-08 -2.695258E-02 -1.822620E-08 200153 G -7.949214E-03 -9.245327E-09 5.679691E-01 3.820413E-08 -3.275419E-02 -1.822620E-08 200155 G -8.037701E-02 -9.372467E-08 5.681821E-01 3.823668E-08 -3.278189E-02 -1.822620E-08 211073 G 6.896894E-01 6.557001E-07 2.296353E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 211077 G 6.896890E-01 6.557001E-07 2.296341E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 214075 G 6.896892E-01 6.050312E-07 3.389476E-01 4.757284E-08 -3.932122E-02 -1.822620E-08 * * * END OF JOB * * * 1 JOB TITLE = HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE DATE: 5/17/95 END TIME: 15:46:19 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d04011a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D04011A,NASTRAN APP DISP SOL 4,0 TIME 10 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 3 LABEL = INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY 4 DISP = ALL 5 SPCF = ALL 6 LOAD = 32 7 SPC = 2 8 STRESS = ALL 9 FORCE = ALL 10 SUBCASE 1 11 OLOAD = ALL 12 LABEL = LINEAR SOLUTION 13 SUBCASE 2 14 LABEL = NONLINEAR SOLUTION 15 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 30, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BAROR -1.2 1.0 0.0 1 2- CBAR 10 10 10 11 3- CBAR 11 10 11 12 4- CBAR 12 10 12 13 5- CBAR 13 10 13 14 6- CBAR 14 10 14 15 7- CBAR 15 10 15 16 8- CBAR 16 10 16 17 9- CBAR 17 10 17 18 10- CBAR 18 10 18 19 11- CORD2C 10 0 .0 .0 .0 .0 .0 1.0 +CS1 12- +CS1 1.0 .0 .0 13- GRAV 32 0 32.2 0.0 1.0 .0 14- GRDSET 10 0 345 15- GRID 10 10.0 .0 16- GRID 11 10.0 10.0 17- GRID 12 10.0 20.0 18- GRID 13 10.0 30.0 19- GRID 14 10.0 40.0 20- GRID 15 10.0 50.0 21- GRID 16 10.0 60.0 22- GRID 17 10.0 70.0 23- GRID 18 10.0 80.0 24- GRID 19 10.0 90.0 25- MAT1 1 5.5+5 .3 .4 26- PARAM BETAD 8 DIFFSTIF 27- PARAM EPSIO 1.0-5 DIFFSTIF 28- PARAM NT 18 DIFFSTIF 29- PBAR 10 1 .1 1.0-6 1.0-6 30- SPC 2 10 12 .0 19 1 .0 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 10 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 2.4963145E-10 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 LINEAR SOLUTION SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 0.0 1.089276E+02 11 G -1.800632E+02 -1.575284E+01 0.0 0.0 0.0 9.322742E+01 12 G -3.063097E+02 -4.957994E+01 0.0 0.0 0.0 5.418734E+01 13 G -3.542910E+02 -7.195342E+01 0.0 0.0 0.0 6.080114E+00 14 G -3.289772E+02 -5.422792E+01 0.0 0.0 0.0 -4.057841E+01 15 G -2.541684E+02 2.058130E+01 0.0 0.0 0.0 -7.903272E+01 16 G -1.606223E+02 1.541796E+02 0.0 0.0 0.0 -1.060638E+02 17 G -7.611330E+01 3.354106E+02 0.0 0.0 0.0 -1.215579E+02 18 G -1.956326E+01 5.464589E+02 0.0 0.0 0.0 -1.278975E+02 19 G 0.0 7.700712E+02 0.0 0.0 0.0 -1.292109E+02 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 LINEAR SOLUTION SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 1.122566E+00 0.0 0.0 0.0 0.0 11 G 0.0 2.245132E+00 0.0 0.0 0.0 0.0 12 G 0.0 2.245132E+00 0.0 0.0 0.0 0.0 13 G 0.0 2.245132E+00 0.0 0.0 0.0 0.0 14 G 0.0 2.245131E+00 0.0 0.0 0.0 0.0 15 G 0.0 2.245133E+00 0.0 0.0 0.0 0.0 16 G 0.0 2.245132E+00 0.0 0.0 0.0 0.0 17 G 0.0 2.245131E+00 0.0 0.0 0.0 0.0 18 G 0.0 2.245132E+00 0.0 0.0 0.0 0.0 19 G 0.0 1.122567E+00 0.0 0.0 0.0 0.0 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 LINEAR SOLUTION SUBCASE 1 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 7.375201E+00 -2.020619E+01 0.0 0.0 0.0 0.0 19 G -7.375201E+00 0.0 0.0 0.0 0.0 0.0 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 LINEAR SOLUTION SUBCASE 1 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 10 1.525879E-05 0.0 -9.907660E+00 0.0 5.683891E+00 0.0 1.965850E+01 0.0 11 -9.907684E+00 0.0 -1.472875E+01 0.0 2.765778E+00 0.0 1.818750E+01 0.0 12 -1.472876E+01 0.0 -1.562957E+01 0.0 5.167847E-01 0.0 1.625000E+01 0.0 13 -1.562955E+01 0.0 -1.381457E+01 0.0 -1.041229E+00 0.0 1.400000E+01 0.0 14 -1.381456E+01 0.0 -1.045222E+01 0.0 -1.928925E+00 0.0 1.200000E+01 0.0 15 1.045224E+01 0.0 6.605832E+00 0.0 2.206627E+00 0.0 1.100000E+01 0.0 16 6.605835E+00 0.0 3.171765E+00 0.0 1.970078E+00 0.0 9.000000E+00 0.0 17 3.171783E+00 0.0 8.288348E-01 0.0 1.344116E+00 0.0 7.500000E+00 0.0 18 8.288574E-01 0.0 -3.755093E-05 0.0 4.755249E-01 0.0 7.250000E+00 0.0 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 LINEAR SOLUTION SUBCASE 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 10 0.0 0.0 0.0 0.0 1.965850E+02 1.965850E+02 1.965850E+02 0.0 0.0 0.0 0.0 1.965850E+02 1.965850E+02 0 11 0.0 0.0 0.0 0.0 1.818750E+02 1.818750E+02 1.818750E+02 0.0 0.0 0.0 0.0 1.818750E+02 1.818750E+02 0 12 0.0 0.0 0.0 0.0 1.625000E+02 1.625000E+02 1.625000E+02 0.0 0.0 0.0 0.0 1.625000E+02 1.625000E+02 0 13 0.0 0.0 0.0 0.0 1.400000E+02 1.400000E+02 1.400000E+02 0.0 0.0 0.0 0.0 1.400000E+02 1.400000E+02 0 14 0.0 0.0 0.0 0.0 1.200000E+02 1.200000E+02 1.200000E+02 0.0 0.0 0.0 0.0 1.200000E+02 1.200000E+02 0 15 0.0 0.0 0.0 0.0 1.100000E+02 1.100000E+02 1.100000E+02 0.0 0.0 0.0 0.0 1.100000E+02 1.100000E+02 0 16 0.0 0.0 0.0 0.0 9.000000E+01 9.000000E+01 9.000000E+01 0.0 0.0 0.0 0.0 9.000000E+01 9.000000E+01 0 17 0.0 0.0 0.0 0.0 7.500000E+01 7.500000E+01 7.500000E+01 0.0 0.0 0.0 0.0 7.500000E+01 7.500000E+01 0 18 0.0 0.0 0.0 0.0 7.250000E+01 7.250000E+01 7.250000E+01 0.0 0.0 0.0 0.0 7.250000E+01 7.250000E+01 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = ADD (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) 3RD PARM = 0.000000E+00 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) DSEPSI = 0.000000E+00 (OUTPUT) 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY 0 C O N T E N T S O F P A R A M E T E R T A B L E DET 9.633987E+00 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY 0 C O N T E N T S O F P A R A M E T E R T A B L E POWER 56 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 2.4710022E-13 0*** USER INFORMATION MESSAGE 7019, MODULE DSCHK IS EXITING FOR REASON 0 ON ITERATION NUMBER 1. PARAMETER VALUES ARE AS FOLLOWS DONE = 1 SHIFT = 1 DSEPSI = 8.1451759E-03 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -5.1778184E-13 0*** USER INFORMATION MESSAGE 7019, MODULE DSCHK IS EXITING FOR REASON 1 ON ITERATION NUMBER 2. PARAMETER VALUES ARE AS FOLLOWS DONE = -1 SHIFT = 1 DSEPSI = 3.1374153E-16 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 NONLINEAR SOLUTION SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 0.0 2.681644E-01 11 G -4.753219E-01 -4.096023E-02 0.0 0.0 0.0 2.104201E-01 12 G -7.246509E-01 -1.071724E-01 0.0 0.0 0.0 9.086203E-02 13 G -7.689427E-01 -1.272561E-01 0.0 0.0 0.0 -1.988418E-02 14 G -6.598762E-01 -5.033421E-02 0.0 0.0 0.0 -1.168238E-01 15 G -4.565086E-01 1.535839E-01 0.0 0.0 0.0 -1.867011E-01 16 G -2.463144E-01 4.543505E-01 0.0 0.0 0.0 -2.131993E-01 17 G -8.790284E-02 7.947373E-01 0.0 0.0 0.0 -1.951161E-01 18 G -1.141128E-02 1.081174E+00 0.0 0.0 0.0 -1.235671E-01 19 G 0.0 1.214275E+00 0.0 0.0 0.0 -7.343145E-02 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 NONLINEAR SOLUTION SUBCASE 2 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 7.270632E+00 -2.020619E+01 0.0 0.0 0.0 0.0 19 G -7.270632E+00 0.0 0.0 0.0 0.0 0.0 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 NONLINEAR SOLUTION SUBCASE 2 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 10 4.691142E-02 0.0 -8.335111E-02 0.0 7.472974E-02 0.0 1.964468E+01 0.0 11 -4.273540E-02 0.0 -3.271228E-02 0.0 -5.750120E-03 0.0 1.814648E+01 0.0 12 -4.931396E-02 0.0 -2.057293E-02 0.0 -1.648831E-02 0.0 1.629834E+01 0.0 13 -4.613298E-02 0.0 -1.504118E-02 0.0 -1.783693E-02 0.0 1.428516E+01 0.0 14 -4.752234E-02 0.0 3.425945E-03 0.0 -2.922830E-02 0.0 1.228418E+01 0.0 15 2.834442E-02 0.0 -1.162256E-02 0.0 2.292847E-02 0.0 1.046387E+01 0.0 16 1.555175E-02 0.0 -2.696329E-02 0.0 2.439028E-02 0.0 8.961914E+00 0.0 17 -2.240539E-03 0.0 -4.291068E-02 0.0 2.333188E-02 0.0 7.894531E+00 0.0 18 -5.720568E-02 0.0 2.556762E-02 0.0 -4.748583E-02 0.0 7.340820E+00 0.0 1 DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A 0 NONLINEAR SOLUTION SUBCASE 2 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 10 0.0 0.0 0.0 0.0 1.964468E+02 1.964468E+02 1.964468E+02 0.0 0.0 0.0 0.0 1.964468E+02 1.964468E+02 0 11 0.0 0.0 0.0 0.0 1.814648E+02 1.814648E+02 1.814648E+02 0.0 0.0 0.0 0.0 1.814648E+02 1.814648E+02 0 12 0.0 0.0 0.0 0.0 1.629834E+02 1.629834E+02 1.629834E+02 0.0 0.0 0.0 0.0 1.629834E+02 1.629834E+02 0 13 0.0 0.0 0.0 0.0 1.428516E+02 1.428516E+02 1.428516E+02 0.0 0.0 0.0 0.0 1.428516E+02 1.428516E+02 0 14 0.0 0.0 0.0 0.0 1.228418E+02 1.228418E+02 1.228418E+02 0.0 0.0 0.0 0.0 1.228418E+02 1.228418E+02 0 15 0.0 0.0 0.0 0.0 1.046387E+02 1.046387E+02 1.046387E+02 0.0 0.0 0.0 0.0 1.046387E+02 1.046387E+02 0 16 0.0 0.0 0.0 0.0 8.961914E+01 8.961914E+01 8.961914E+01 0.0 0.0 0.0 0.0 8.961914E+01 8.961914E+01 0 17 0.0 0.0 0.0 0.0 7.894531E+01 7.894531E+01 7.894531E+01 0.0 0.0 0.0 0.0 7.894531E+01 7.894531E+01 0 18 0.0 0.0 0.0 0.0 7.340820E+01 7.340820E+01 7.340820E+01 0.0 0.0 0.0 0.0 7.340820E+01 7.340820E+01 * * * END OF JOB * * * 1 JOB TITLE = DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE DATE: 5/17/95 END TIME: 15:46:56 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/d05011a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D05011A,NASTRAN APP DISPLACEMENT SOL 5,1 TIME 26 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = SYMMETRIC BUCKLING OF A CYLINDER 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 3 SPC = 1 4 OUTPUT 5 SET 1 = 1 THRU 33 6 SET 2 = 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62,66,70, 7 74,78 8 DISPLACEMENTS = 1 9 SPCFORCE = ALL 10 ELFORCE = 2 11 ELSTRESS = 2 12 $ 13 SUBCASE 1 14 LABEL = STATIC SOLUTION 15 LOAD = 100 16 OUTPUT 17 OLOAD = ALL 18 $ 19 SUBCASE 2 20 LABEL = BUCKLING SOLUTION 21 METHOD = 300 22 $ 23 $ 24 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 25 OUTPUT(PLOT) 26 PLOTTER NASTPLT 27 SET 1 INCLUDE TRIA1 28 $ 29 PERSPECTIVE PROJECTION 30 AXES Y, X, MZ 31 MAXIMUM DEFORMATION 3.0 32 FIND SCALE,ORIGIN 1, VANTAGE POINT 33 PTITLE = PERSPECTIVE VIEW OF MODEL 34 PLOT LABELS,SYMBOLS 6,5 35 $ 36 ORTHOGRAPHIC PROJECTION 37 MAXIMUM DEFORMATION 3.0 38 FIND SCALE, ORIGIN 2 39 PTITLE = STATIC LOAD UNDERLAY OF CYLINDRICAL SURFACE 40 PLOT STATIC DEFORMATION 0,1, ORIGIN 2, LABELS, SHAPE 41 PTITLE = MODE SHAPES OF CYLINDRICAL SURFACE WITH VECTORS 42 PLOT MODAL DEFORMATION 2, RANGE 0.5, 3.0, 43 ORIGIN 2, VECTOR R, SYMBOLS 5,6 44 VIEW 0.0, 0.0, 0.0 45 FIND SCALE, ORIGIN 1 46 PTITLE = LONGITUDINAL EDGE VIEW SHOWING BUCKLING MODES 47 PLOT MODAL DEFORMATION 0,2, RANGE 0.0, 200.0, ORIGIN 1, SHAPE 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 48 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 169, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CNGRNT 1 5 9 13 17 21 25 29 +CNG11 2- +CNG11 33 37 41 45 49 53 57 61 +CNG12 3- +CNG12 65 69 73 77 4- CNGRNT 2 6 10 14 18 22 26 30 +CNG21 5- +CNG21 34 38 42 46 50 54 58 62 +CNG22 6- +CNG22 66 70 74 78 7- CNGRNT 3 7 11 15 19 23 27 31 +CNG31 8- +CNG31 35 39 43 47 51 55 59 63 +CNG32 9- +CNG32 67 71 75 79 10- CNGRNT 4 8 12 16 20 24 28 32 +CNG41 11- +CNG41 36 40 44 48 52 56 60 64 +CNG42 12- +CNG42 68 72 76 80 13- CORD2C 100 0 25.0 .0 80.0 50.0 .0 80.0 +CORD100 14- +CORD10025.0 .0 .0 15- CTRIA1 1 200 1 2 51 .0 16- CTRIA1 2 200 1 4 51 .0 17- CTRIA1 3 200 4 5 51 .0 18- CTRIA1 4 200 5 2 51 .0 19- CTRIA1 5 200 2 3 52 .0 20- CTRIA1 6 200 2 5 52 .0 21- CTRIA1 7 200 5 6 52 .0 22- CTRIA1 8 200 6 3 52 .0 23- CTRIA1 9 200 4 5 54 .0 24- CTRIA1 10 200 4 7 54 .0 25- CTRIA1 11 200 7 8 54 .0 26- CTRIA1 12 200 8 5 54 .0 27- CTRIA1 13 200 5 6 55 .0 28- CTRIA1 14 200 5 8 55 .0 29- CTRIA1 15 200 8 9 55 .0 30- CTRIA1 16 200 9 6 55 .0 31- CTRIA1 17 200 7 8 57 .0 32- CTRIA1 18 200 7 10 57 .0 33- CTRIA1 19 200 10 11 57 .0 34- CTRIA1 20 200 11 8 57 .0 35- CTRIA1 21 200 8 9 58 .0 36- CTRIA1 22 200 8 11 58 .0 37- CTRIA1 23 200 11 12 58 .0 38- CTRIA1 24 200 12 9 58 .0 39- CTRIA1 25 200 10 11 60 .0 40- CTRIA1 26 200 10 13 60 .0 41- CTRIA1 27 200 13 14 60 .0 42- CTRIA1 28 200 14 11 60 .0 43- CTRIA1 29 200 11 12 61 .0 44- CTRIA1 30 200 11 14 61 .0 45- CTRIA1 31 200 14 15 61 .0 46- CTRIA1 32 200 15 12 61 .0 47- CTRIA1 33 200 13 14 63 .0 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CTRIA1 34 200 13 16 63 .0 49- CTRIA1 35 200 16 17 63 .0 50- CTRIA1 36 200 17 14 63 .0 51- CTRIA1 37 200 14 15 64 .0 52- CTRIA1 38 200 14 17 64 .0 53- CTRIA1 39 200 17 18 64 .0 54- CTRIA1 40 200 18 15 64 .0 55- CTRIA1 41 200 16 17 66 .0 56- CTRIA1 42 200 16 19 66 .0 57- CTRIA1 43 200 19 20 66 .0 58- CTRIA1 44 200 20 17 66 .0 59- CTRIA1 45 200 17 18 67 .0 60- CTRIA1 46 200 17 20 67 .0 61- CTRIA1 47 200 20 21 67 .0 62- CTRIA1 48 200 21 18 67 .0 63- CTRIA1 49 200 19 20 69 .0 64- CTRIA1 50 200 19 22 69 .0 65- CTRIA1 51 200 22 23 69 .0 66- CTRIA1 52 200 23 20 69 .0 67- CTRIA1 53 200 20 21 70 .0 68- CTRIA1 54 200 20 23 70 .0 69- CTRIA1 55 200 23 24 70 .0 70- CTRIA1 56 200 24 21 70 .0 71- CTRIA1 57 200 22 23 72 .0 72- CTRIA1 58 200 22 25 72 .0 73- CTRIA1 59 200 25 26 72 .0 74- CTRIA1 60 200 26 23 72 .0 75- CTRIA1 61 200 23 24 73 .0 76- CTRIA1 62 200 23 26 73 .0 77- CTRIA1 63 200 26 27 73 .0 78- CTRIA1 64 200 27 24 73 .0 79- CTRIA1 65 200 25 26 75 .0 80- CTRIA1 66 200 25 28 75 .0 81- CTRIA1 67 200 28 29 75 .0 82- CTRIA1 68 200 29 26 75 .0 83- CTRIA1 69 200 26 27 76 .0 84- CTRIA1 70 200 26 29 76 .0 85- CTRIA1 71 200 29 30 76 .0 86- CTRIA1 72 200 30 27 76 .0 87- CTRIA1 73 200 28 29 78 .0 88- CTRIA1 74 200 28 31 78 .0 89- CTRIA1 75 200 31 32 78 .0 90- CTRIA1 76 200 32 29 78 .0 91- CTRIA1 77 200 29 30 79 .0 92- CTRIA1 78 200 29 32 79 .0 93- CTRIA1 79 200 32 33 79 .0 94- CTRIA1 80 200 33 30 79 .0 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- EIGB 300 UDET .10 2.5 4 4 0 1.5E-05 +EIGB300 96- +EIGB300MAX 97- FORCE 1 1 100 1.0+3 .0 .0 .5 98- FORCE 1 2 100 1.0+3 .0 .0 1.0 99- FORCE 1 3 100 1.0+3 .0 .0 .5 100- FORCE 1 31 100 1.0+3 .0 .0 -0.5 101- FORCE 1 32 100 1.0+3 .0 .0 -1.0 102- FORCE 1 33 100 1.0+3 .0 .0 -0.5 103- GRDSET 462 104- GRID 1 100 80.0 -3.0 -25.0 100 105- GRID 2 100 80.0 .0 -25.0 100 106- GRID 3 100 80.0 3.0 -25.0 100 107- GRID 4 100 80.0 -3.0 -20.0 100 108- GRID 5 100 80.0 .0 -20.0 100 109- GRID 6 100 80.0 3.0 -20.0 100 110- GRID 7 100 80.0 -3.0 -15.0 100 111- GRID 8 100 80.0 .0 -15.0 100 112- GRID 9 100 80.0 3.0 -15.0 100 113- GRID 10 100 80.0 -3.0 -10.0 100 114- GRID 11 100 80.0 .0 -10.0 100 115- GRID 12 100 80.0 3.0 -10.0 100 116- GRID 13 100 80.0 -3.0 -05.0 100 117- GRID 14 100 80.0 .0 -05.0 100 118- GRID 15 100 80.0 3.0 -05.0 100 119- GRID 16 100 80.0 -3.0 +0.0 100 120- GRID 17 100 80.0 .0 +0.0 100 121- GRID 18 100 80.0 3.0 +0.0 100 122- GRID 19 100 80.0 -3.0 +5.0 100 123- GRID 20 100 80.0 .0 +5.0 100 124- GRID 21 100 80.0 3.0 +5.0 100 125- GRID 22 100 80.0 -3.0 10.0 100 126- GRID 23 100 80.0 .0 10.0 100 127- GRID 24 100 80.0 3.0 10.0 100 128- GRID 25 100 80.0 -3.0 15.0 100 129- GRID 26 100 80.0 .0 15.0 100 130- GRID 27 100 80.0 3.0 15.0 100 131- GRID 28 100 80.0 -3.0 20.0 100 132- GRID 29 100 80.0 .0 20.0 100 133- GRID 30 100 80.0 3.0 20.0 100 134- GRID 31 100 80.0 -3.0 25.0 100 135- GRID 32 100 80.0 .0 25.0 100 136- GRID 33 100 80.0 3.0 25.0 100 137- GRID 51 100 80.0 -1.5 -22.5 100 138- GRID 52 100 80.0 1.5 -22.5 100 139- GRID 54 100 80.0 -1.5 -17.5 100 140- GRID 55 100 80.0 1.5 -17.5 100 141- GRID 57 100 80.0 -1.5 -12.5 100 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 58 100 80.0 1.5 -12.5 100 143- GRID 60 100 80.0 -1.5 -07.5 100 144- GRID 61 100 80.0 1.5 -07.5 100 145- GRID 63 100 80.0 -1.5 -02.5 100 146- GRID 64 100 80.0 1.5 -02.5 100 147- GRID 66 100 80.0 -1.5 2.5 100 148- GRID 67 100 80.0 1.5 2.5 100 149- GRID 69 100 80.0 -1.5 7.5 100 150- GRID 70 100 80.0 1.5 7.5 100 151- GRID 72 100 80.0 -1.5 12.5 100 152- GRID 73 100 80.0 1.5 12.5 100 153- GRID 75 100 80.0 -1.5 17.5 100 154- GRID 76 100 80.0 1.5 17.5 100 155- GRID 78 100 80.0 -1.5 22.5 100 156- GRID 79 100 80.0 1.5 22.5 100 157- LOAD 100 1.0 1.89745 1 158- MAT1 400 10000.00 .0 159- PARAM IRES 1 160- PTRIA1 200 400 2.5 400 1.30208 +PTRIA1* 161- +PTRIA1*1.51022 0.00 162- SEQGP 51 2.5 52 3.5 54 5.5 55 6.5 163- SEQGP 57 8.5 58 9.5 60 11.5 61 12.5 164- SEQGP 63 14.5 64 15.5 66 17.5 67 18.5 165- SEQGP 69 20.5 70 21.5 72 23.5 73 24.5 166- SEQGP 75 26.5 76 27.5 78 29.5 79 30.5 167- SPC 50038 17 3 .0 168- SPC1 50037 1 1 2 3 31 32 33 169- SPCADD 1 50037 50038 ENDDATA 0*** USER WARNING MESSAGE 2251, TWO OF THE E, G AND NU ON MAT1 CARD 400 ARE ZEROS OR BLANKS. POTENTIAL ERROR MAY OCCUR LATER 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF SEQGP CARDS 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A PERSPECTIVE PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 0.00, ALPHA = 0.00, AXES = +Y,+X,-Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 1.439311E-01 VANTAGE POINT (INCHES) - RO = 1.016716E+02, S0 = 0.206598E+02, T0 = 0.578196E+02 PROJECTION PLANE SEPARATION (INCHES) = 8.681171E+01 ORIGIN 1 - X0 = -5.099206E-01, Y0 = -0.168773E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 1 USED IN THIS PLOT 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIA1 ELEMENTS (ELEMENT TYPE 6) STARTING WITH ID 1 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK MGG MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK MGG MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 2.4399934E-15 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 0 RULV POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1-T3). 1 T3 -1.25056E-12 1 R2 -6.75016E-13 2 T3 1.59162E-12 2 R2 -6.92779E-13 51 T1 9.09495E-13 51 T3 -1.46783E-12 51 R2 1.34470E-12 3 T3 -3.41061E-13 3 R2 -8.17124E-14 52 T1 9.37916E-13 52 T3 -3.47369E-12 52 R2 1.40510E-12 4 T1 -1.13509E-12 4 T3 2.89901E-12 4 R2 -9.27258E-13 5 T1 -1.44063E-12 5 T3 -1.93268E-12 5 R2 -1.38911E-12 54 T1 6.18172E-13 54 T3 -3.96147E-12 54 R2 1.33848E-12 6 T1 -4.80505E-13 6 T3 1.64846E-12 6 R2 -5.03597E-13 55 T1 1.08535E-12 55 T3 6.17961E-12 55 R2 1.33493E-12 7 T1 -9.27258E-13 7 T3 2.27374E-13 7 R2 -8.38440E-13 8 T1 -1.50280E-12 8 T3 -2.72848E-12 8 R2 -1.06937E-12 57 T1 3.90799E-13 57 T3 6.13051E-13 57 R2 1.02496E-12 9 T1 -5.71987E-13 9 T3 1.30740E-12 9 R2 -2.75335E-13 58 T1 2.91323E-13 58 T3 3.32896E-12 58 R2 1.15641E-12 10 T1 -7.95808E-13 10 T3 5.40012E-13 10 R2 -3.62377E-13 11 T1 -9.29035E-13 11 T3 2.67164E-12 11 R2 -6.09290E-13 60 T1 1.03029E-13 60 T3 1.87475E-12 60 R2 6.31495E-13 12 T1 -4.28990E-13 12 T3 -1.98952E-13 12 R2 -6.21725E-14 61 T1 1.49214E-13 61 T3 5.50199E-13 61 R2 6.59028E-13 13 T1 -4.59450E-13 13 T3 -6.39717E-13 13 R2 -4.40105E-13 14 T1 -8.77386E-13 14 T3 3.51025E-13 14 R2 -6.81933E-13 63 T1 1.00638E-13 63 T3 2.92459E-13 63 R2 3.91196E-13 15 T1 -3.50291E-13 15 T3 2.42012E-13 15 R2 -2.36708E-13 64 T1 8.80350E-14 64 T3 -1.74630E-13 64 R2 5.08644E-13 16 T1 -6.95444E-13 16 T3 3.12639E-13 16 R2 -4.48530E-13 17 T1 -1.24878E-12 17 R2 -6.99885E-13 66 T1 -1.49214E-13 66 T3 3.47944E-13 66 R2 3.63265E-13 18 T1 -4.28102E-13 18 T3 7.38964E-13 18 R2 -1.87406E-13 67 T1 6.75016E-14 67 T3 -3.77504E-13 67 R2 3.44613E-13 19 T1 -1.04095E-12 19 T3 -3.41061E-13 19 R2 -7.22977E-13 20 T1 -1.80833E-12 20 T3 -1.47793E-12 20 R2 -9.13047E-13 69 T1 -8.17124E-14 69 T3 -1.33561E-12 69 R2 4.40536E-13 21 T1 -6.98108E-13 21 T3 1.70530E-13 21 R2 -2.61124E-13 70 T1 -1.91847E-13 70 T3 -2.69226E-12 70 R2 3.96128E-13 22 T1 -1.56763E-12 22 R2 -8.19789E-13 23 T1 -2.51177E-12 23 T3 -7.95808E-13 23 R2 -1.59872E-12 72 T1 3.73035E-14 72 T3 1.34607E-12 72 R2 3.07310E-13 24 T1 -9.55680E-13 24 T3 4.54747E-13 24 R2 -4.96492E-13 73 T1 -2.41585E-13 73 T3 -1.52477E-12 73 R2 6.91003E-13 25 T1 -1.61116E-12 25 T3 -2.27374E-12 25 R2 -7.78044E-13 26 T1 -2.84217E-12 26 T3 2.27374E-13 26 R2 -1.18661E-12 75 T1 -5.11591E-13 75 T3 2.93129E-12 75 R2 3.10862E-13 27 T1 -1.20615E-12 27 T3 -5.68434E-13 27 R2 -5.56000E-13 76 T1 -5.32907E-13 76 T3 -3.25304E-12 76 R2 1.97176E-13 28 T1 -9.02389E-13 28 T3 -3.86535E-12 28 R2 -2.06057E-13 29 T1 -1.70530E-12 29 T3 -1.81899E-12 29 R2 -5.54223E-13 78 T1 -1.22213E-12 78 T3 -6.25078E-12 78 R2 -7.53175E-13 30 T1 -9.87654E-13 30 T3 1.36424E-12 30 R2 -4.05009E-13 79 T1 -1.30740E-12 79 T3 2.03171E-12 79 R2 -6.39488E-13 31 T3 -1.27226E-12 31 R2 2.13163E-14 32 T3 -3.40988E-12 32 R2 7.46070E-14 33 T3 -8.96061E-13 33 R2 -5.68434E-14 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 STATIC SOLUTION SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 4.530113E-01 0.0 1.493624E-03 0.0 2 G 0.0 0.0 4.530113E-01 0.0 1.493624E-03 0.0 3 G 0.0 0.0 4.530113E-01 0.0 1.493624E-03 0.0 4 G 4.521807E-03 0.0 3.624025E-01 0.0 3.945479E-04 0.0 5 G 4.521807E-03 0.0 3.624025E-01 0.0 3.945479E-04 0.0 6 G 4.521808E-03 0.0 3.624025E-01 0.0 3.945480E-04 0.0 7 G 5.020969E-03 0.0 2.717983E-01 0.0 -1.351363E-04 0.0 8 G 5.020970E-03 0.0 2.717983E-01 0.0 -1.351364E-04 0.0 9 G 5.020970E-03 0.0 2.717983E-01 0.0 -1.351364E-04 0.0 10 G 3.910930E-03 0.0 1.811974E-01 0.0 -2.719970E-04 0.0 11 G 3.910930E-03 0.0 1.811974E-01 0.0 -2.719970E-04 0.0 12 G 3.910930E-03 0.0 1.811974E-01 0.0 -2.719970E-04 0.0 13 G 2.723196E-03 0.0 9.059831E-02 0.0 -1.845057E-04 0.0 14 G 2.723196E-03 0.0 9.059831E-02 0.0 -1.845058E-04 0.0 15 G 2.723196E-03 0.0 9.059831E-02 0.0 -1.845058E-04 0.0 16 G 2.248194E-03 0.0 -1.942890E-16 0.0 -8.166753E-16 0.0 17 G 2.248194E-03 0.0 0.0 0.0 -8.202532E-16 0.0 18 G 2.248194E-03 0.0 -1.873501E-16 0.0 -8.243189E-16 0.0 19 G 2.723196E-03 0.0 -9.059831E-02 0.0 1.845057E-04 0.0 20 G 2.723196E-03 0.0 -9.059831E-02 0.0 1.845058E-04 0.0 21 G 2.723196E-03 0.0 -9.059831E-02 0.0 1.845058E-04 0.0 22 G 3.910930E-03 0.0 -1.811974E-01 0.0 2.719970E-04 0.0 23 G 3.910930E-03 0.0 -1.811974E-01 0.0 2.719970E-04 0.0 24 G 3.910930E-03 0.0 -1.811974E-01 0.0 2.719970E-04 0.0 25 G 5.020969E-03 0.0 -2.717983E-01 0.0 1.351363E-04 0.0 26 G 5.020970E-03 0.0 -2.717983E-01 0.0 1.351364E-04 0.0 27 G 5.020970E-03 0.0 -2.717983E-01 0.0 1.351364E-04 0.0 28 G 4.521807E-03 0.0 -3.624025E-01 0.0 -3.945479E-04 0.0 29 G 4.521807E-03 0.0 -3.624025E-01 0.0 -3.945479E-04 0.0 30 G 4.521808E-03 0.0 -3.624025E-01 0.0 -3.945480E-04 0.0 31 G 0.0 0.0 -4.530113E-01 0.0 -1.493624E-03 0.0 32 G 0.0 0.0 -4.530113E-01 0.0 -1.493624E-03 0.0 33 G 0.0 0.0 -4.530113E-01 0.0 -1.493624E-03 0.0 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 STATIC SOLUTION SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 9.487250E+02 0.0 0.0 0.0 2 G 0.0 0.0 1.897450E+03 0.0 0.0 0.0 3 G 0.0 0.0 9.487250E+02 0.0 0.0 0.0 31 G 0.0 0.0 -9.487250E+02 0.0 0.0 0.0 32 G 0.0 0.0 -1.897450E+03 0.0 0.0 0.0 33 G 0.0 0.0 -9.487250E+02 0.0 0.0 0.0 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 STATIC SOLUTION SUBCASE 1 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 7.285580E-01 -8.469142E-01 0.0 1.805507E-01 0.0 3.701859E+00 2 G 1.457114E+00 -4.317856E-05 0.0 -1.378303E-07 0.0 -6.490509E-06 3 G 7.285564E-01 8.468710E-01 0.0 -1.805507E-01 0.0 -3.701865E+00 4 G 0.0 -6.711637E+00 0.0 4.115828E-03 0.0 7.852575E+00 5 G 0.0 -2.765656E-06 0.0 -9.521974E-08 0.0 -1.973346E-05 6 G 0.0 6.711634E+00 0.0 -4.115792E-03 0.0 -7.852594E+00 7 G 0.0 -7.765545E+00 0.0 2.459845E-03 0.0 7.849104E+00 8 G 0.0 -1.598993E-06 0.0 1.685123E-08 0.0 -2.277023E-05 9 G 0.0 7.765544E+00 0.0 -2.459849E-03 0.0 -7.849126E+00 10 G 0.0 -6.203201E+00 0.0 1.223298E-03 0.0 7.847950E+00 11 G 0.0 4.572253E-06 0.0 5.369029E-08 0.0 -1.924447E-05 12 G 0.0 6.203206E+00 0.0 -1.223316E-03 0.0 -7.847970E+00 13 G 0.0 -4.435428E+00 0.0 4.666350E-04 0.0 7.847808E+00 14 G 0.0 8.949936E-06 0.0 3.802452E-08 0.0 -1.487808E-05 15 G 0.0 4.435437E+00 0.0 -4.666480E-04 0.0 -7.847823E+00 16 G 0.0 -3.719525E+00 0.0 -7.924217E-15 0.0 7.847852E+00 17 G 0.0 1.042426E-05 1.318767E-11 1.367782E-14 0.0 -1.307713E-05 18 G 0.0 3.719536E+00 0.0 1.609823E-15 0.0 -7.847865E+00 19 G 0.0 -4.435428E+00 0.0 -4.666350E-04 0.0 7.847808E+00 20 G 0.0 8.949936E-06 0.0 -3.802450E-08 0.0 -1.487808E-05 21 G 0.0 4.435437E+00 0.0 4.666480E-04 0.0 -7.847823E+00 22 G 0.0 -6.203201E+00 0.0 -1.223298E-03 0.0 7.847950E+00 23 G 0.0 4.572252E-06 0.0 -5.369026E-08 0.0 -1.924447E-05 24 G 0.0 6.203206E+00 0.0 1.223316E-03 0.0 -7.847970E+00 25 G 0.0 -7.765545E+00 0.0 -2.459845E-03 0.0 7.849104E+00 26 G 0.0 -1.598994E-06 0.0 -1.685119E-08 0.0 -2.277023E-05 27 G 0.0 7.765544E+00 0.0 2.459849E-03 0.0 -7.849126E+00 28 G 0.0 -6.711637E+00 0.0 -4.115828E-03 0.0 7.852575E+00 29 G 0.0 -2.765657E-06 0.0 9.521976E-08 0.0 -1.973347E-05 30 G 0.0 6.711634E+00 0.0 4.115792E-03 0.0 -7.852594E+00 31 G 7.285580E-01 -8.469142E-01 0.0 -1.805507E-01 0.0 3.701859E+00 32 G 1.457114E+00 -4.317856E-05 0.0 1.378303E-07 0.0 -6.490509E-06 33 G 7.285564E-01 8.468710E-01 0.0 1.805507E-01 0.0 -3.701865E+00 51 G 0.0 4.635235E-05 0.0 -2.691410E-09 0.0 -6.284938E-06 52 G 0.0 4.635235E-05 0.0 -2.691406E-09 0.0 -6.284938E-06 54 G 0.0 1.099298E-05 0.0 3.089063E-09 0.0 -1.343793E-05 55 G 0.0 1.099298E-05 0.0 3.089064E-09 0.0 -1.343793E-05 57 G 0.0 -4.342870E-06 0.0 3.315397E-09 0.0 -1.237747E-05 58 G 0.0 -4.342869E-06 0.0 3.315396E-09 0.0 -1.237747E-05 60 G 0.0 -1.119993E-05 0.0 2.168778E-09 0.0 -8.559026E-06 61 G 0.0 -1.119993E-05 0.0 2.168778E-09 0.0 -8.559026E-06 63 G 0.0 -1.378621E-05 0.0 7.340255E-10 0.0 -5.811686E-06 64 G 0.0 -1.378621E-05 0.0 7.340253E-10 0.0 -5.811686E-06 66 G 0.0 -1.378621E-05 0.0 -7.340264E-10 0.0 -5.811685E-06 67 G 0.0 -1.378621E-05 0.0 -7.340257E-10 0.0 -5.811686E-06 69 G 0.0 -1.119993E-05 0.0 -2.168780E-09 0.0 -8.559026E-06 70 G 0.0 -1.119993E-05 0.0 -2.168778E-09 0.0 -8.559026E-06 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 STATIC SOLUTION SUBCASE 1 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 72 G 0.0 -4.342870E-06 0.0 -3.315399E-09 0.0 -1.237747E-05 73 G 0.0 -4.342869E-06 0.0 -3.315398E-09 0.0 -1.237747E-05 75 G 0.0 1.099298E-05 0.0 -3.089066E-09 0.0 -1.343793E-05 76 G 0.0 1.099298E-05 0.0 -3.089067E-09 0.0 -1.343793E-05 78 G 0.0 4.635234E-05 0.0 2.691408E-09 0.0 -6.284939E-06 79 G 0.0 4.635235E-05 0.0 2.691405E-09 0.0 -6.284939E-06 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 STATIC SOLUTION SUBCASE 1 F O R C E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 2 2.861937E+00 -6.261730E-01 1.466327E-01 3.596048E-01 1.992508E+00 6 2.861936E+00 -6.261711E-01 1.466317E-01 3.596053E-01 1.992493E+00 10 1.379271E+00 -6.287727E-01 1.092793E-01 2.706900E-01 2.000748E+00 14 1.379271E+00 -6.287689E-01 1.092807E-01 2.706891E-01 2.000702E+00 18 3.563799E-01 -6.280365E-01 6.697607E-02 1.672290E-01 1.998413E+00 22 3.563799E-01 -6.280403E-01 6.697607E-02 1.672280E-01 1.998398E+00 26 -2.278202E-01 -6.264133E-01 3.354645E-02 8.434850E-02 1.993263E+00 30 -2.278202E-01 -6.264095E-01 3.354645E-02 8.434850E-02 1.993248E+00 34 -4.804402E-01 -6.252975E-01 9.875119E-03 2.493440E-02 1.989723E+00 38 -4.804402E-01 -6.252937E-01 9.875119E-03 2.493487E-02 1.989708E+00 42 -4.804392E-01 -6.252956E-01 -9.868264E-03 -2.496348E-02 1.989719E+00 46 -4.804391E-01 -6.252937E-01 -9.868026E-03 -2.496301E-02 1.989708E+00 50 -2.278176E-01 -6.264114E-01 -3.353739E-02 -8.438629E-02 1.993256E+00 54 -2.278175E-01 -6.264076E-01 -3.353691E-02 -8.438772E-02 1.993233E+00 58 3.563823E-01 -6.280365E-01 -6.696260E-02 -1.672817E-01 1.998413E+00 62 3.563822E-01 -6.280365E-01 -6.696355E-02 -1.672817E-01 1.998398E+00 66 1.379270E+00 -6.287766E-01 -1.092653E-01 -2.707480E-01 2.000748E+00 70 1.379270E+00 -6.287689E-01 -1.092657E-01 -2.707470E-01 2.000717E+00 74 2.861925E+00 -6.261806E-01 -1.466241E-01 -3.596336E-01 1.992546E+00 78 2.861925E+00 -6.261806E-01 -1.466231E-01 -3.596340E-01 1.992523E+00 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 STATIC SOLUTION SUBCASE 1 S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 2 1.510220E+00 -1.845371E+02 1.046941E+00 -2.400795E-01 -89.9259 1.047249E+00 -1.845374E+02 9.279232E+01 0.0 -1.812177E+02 3.206729E-01 -7.000732E-02 -89.9779 3.207016E-01 -1.812177E+02 9.076919E+01 0 6 1.510220E+00 -1.845371E+02 1.046932E+00 -2.400784E-01 -89.9259 1.047249E+00 -1.845374E+02 9.279232E+01 0.0 -1.812177E+02 3.206662E-01 -7.000732E-02 -89.9779 3.206940E-01 -1.812177E+02 9.076919E+01 0 10 1.510220E+00 -1.828081E+02 1.341500E+00 -1.349875E-01 -89.9580 1.341606E+00 -1.828082E+02 9.207488E+01 0.0 -1.812083E+02 6.122163E-01 -8.239746E-03 -89.9974 6.122131E-01 -1.812083E+02 9.091026E+01 0 14 1.510220E+00 -1.828081E+02 1.341492E+00 -1.349892E-01 -89.9580 1.341591E+00 -1.828082E+02 9.207487E+01 0.0 -1.812083E+02 6.122134E-01 -8.239746E-03 -89.9974 6.122131E-01 -1.812083E+02 9.091026E+01 0 18 1.510220E+00 -1.816152E+02 1.287123E+00 -6.114180E-02 -89.9808 1.287148E+00 -1.816152E+02 9.145118E+01 0.0 -1.812018E+02 5.586939E-01 1.654053E-02 89.9948 5.587006E-01 -1.812018E+02 9.088027E+01 0 22 1.510220E+00 -1.816152E+02 1.287127E+00 -6.114180E-02 -89.9808 1.287148E+00 -1.816152E+02 9.145118E+01 0.0 -1.812018E+02 5.586938E-01 1.654053E-02 89.9948 5.587006E-01 -1.812018E+02 9.088027E+01 0 26 1.510220E+00 -1.809340E+02 1.132877E+00 -2.096457E-02 -89.9934 1.132874E+00 -1.809340E+02 9.103343E+01 0.0 -1.811982E+02 4.063300E-01 1.794434E-02 89.9943 4.063263E-01 -1.811982E+02 9.080228E+01 0 30 1.510220E+00 -1.809340E+02 1.132874E+00 -2.096457E-02 -89.9934 1.132874E+00 -1.809340E+02 9.103343E+01 0.0 -1.811982E+02 4.063314E-01 1.794434E-02 89.9943 4.063263E-01 -1.811982E+02 9.080228E+01 0 34 1.510220E+00 -1.806394E+02 1.023880E+00 -4.251527E-03 -89.9987 1.023880E+00 -1.806394E+02 9.083163E+01 0.0 -1.811966E+02 2.986272E-01 7.202148E-03 89.9977 2.986298E-01 -1.811966E+02 9.074762E+01 0 38 1.510220E+00 -1.806394E+02 1.023877E+00 -4.251527E-03 -89.9987 1.023880E+00 -1.806394E+02 9.083163E+01 0.0 -1.811966E+02 2.986292E-01 7.202148E-03 89.9977 2.986298E-01 -1.811966E+02 9.074762E+01 0 42 1.510220E+00 -1.806394E+02 1.023878E+00 4.251206E-03 89.9987 1.023880E+00 -1.806394E+02 9.083163E+01 0.0 -1.811966E+02 2.986272E-01 -7.194519E-03 -89.9977 2.986298E-01 -1.811966E+02 9.074762E+01 0 46 1.510220E+00 -1.806394E+02 1.023877E+00 4.250930E-03 89.9987 1.023880E+00 -1.806394E+02 9.083163E+01 0.0 -1.811966E+02 2.986293E-01 -7.194519E-03 -89.9977 2.986298E-01 -1.811966E+02 9.074762E+01 0 50 1.510220E+00 -1.809340E+02 1.132874E+00 2.095407E-02 89.9934 1.132874E+00 -1.809340E+02 9.103343E+01 0.0 -1.811982E+02 4.063300E-01 -1.794434E-02 -89.9943 4.063263E-01 -1.811982E+02 9.080228E+01 0 54 1.510220E+00 -1.809340E+02 1.132872E+00 2.095351E-02 89.9934 1.132874E+00 -1.809340E+02 9.103343E+01 0.0 -1.811982E+02 4.063314E-01 -1.794434E-02 -89.9943 4.063263E-01 -1.811982E+02 9.080228E+01 0 58 1.510220E+00 -1.816152E+02 1.287123E+00 6.112617E-02 89.9809 1.287148E+00 -1.816152E+02 9.145118E+01 0.0 -1.812018E+02 5.586940E-01 -1.654053E-02 -89.9948 5.587006E-01 -1.812018E+02 9.088027E+01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 STATIC SOLUTION SUBCASE 1 S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 62 1.510220E+00 -1.816152E+02 1.287123E+00 6.112728E-02 89.9809 1.287148E+00 -1.816152E+02 9.145118E+01 0.0 -1.812018E+02 5.586938E-01 -1.654053E-02 -89.9948 5.587006E-01 -1.812018E+02 9.088027E+01 0 66 1.510220E+00 -1.828081E+02 1.341504E+00 1.350323E-01 89.9580 1.341606E+00 -1.828082E+02 9.207488E+01 0.0 -1.812083E+02 6.122162E-01 8.300781E-03 89.9974 6.122131E-01 -1.812083E+02 9.091026E+01 0 70 1.510220E+00 -1.828081E+02 1.341492E+00 1.349718E-01 89.9580 1.341591E+00 -1.828082E+02 9.207487E+01 0.0 -1.812083E+02 6.122134E-01 8.239746E-03 89.9974 6.122131E-01 -1.812083E+02 9.091026E+01 0 74 1.510220E+00 -1.845371E+02 1.046950E+00 2.400696E-01 89.9259 1.047264E+00 -1.845374E+02 9.279232E+01 0.0 -1.812177E+02 3.206729E-01 7.000732E-02 89.9779 3.207016E-01 -1.812177E+02 9.076919E+01 0 78 1.510220E+00 -1.845371E+02 1.046943E+00 2.401295E-01 89.9259 1.047249E+00 -1.845374E+02 9.279231E+01 0.0 -1.812177E+02 3.206661E-01 7.006836E-02 89.9779 3.206940E-01 -1.812177E+02 9.076919E+01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +Y,+X,-Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 1.153226E-01 ORIGIN 2 - X0 = -8.711188E-01, Y0 = -0.298235E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 2 STATIC DEFORM. 1 - SUBCASE 100 - LOAD ORIGIN 2 USED IN THIS PLOT 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0*** USER INFORMATION MESSAGE 3028 B = 10 BBAR = 17 C = 9 CBAR = 0 R = 26 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC REAL DECOMPOSITION OF DATA BLOCK SCRATCH6 (N = 152) TIME ESTIMATE = 0 SECONDS 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (DETERMINANT METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 4 0 NUMBER OF PASSES THROUGH STARTING POINTS . . 0 0 NUMBER OF CRITERIA CHANGES . . . . . . . . . 0 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 38 0 NUMBER OF FAILURES TO ITERATE TO A ROOT . . 0 0 REASON FOR TERMINATION . . . . . . . . . . . 1* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* NO. OF ROOTS DESIRED WERE FOUND. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (DETERMINANT METHOD) 0 S W E P T D E T E R M I N A N T F U N C T I O N STARTING POINT LAMBDA RADIAN FREQUENCY CYCLIC FREQUENCY DETERMINANT SCALE FACTOR -1 1.000000E-01 3.162278E-01 5.032921E-02 1.485674E+00 731 2 2.250000E-01 4.743416E-01 7.549381E-02 1.223334E+00 731 3 4.000000E-01 6.324555E-01 1.006584E-01 9.258196E+00 730 4 6.250000E-01 7.905694E-01 1.258230E-01 6.389823E+00 730 5 9.000000E-01 9.486833E-01 1.509876E-01 3.973502E+00 730 6 1.225000E+00 1.106797E+00 1.761522E-01 2.183683E+00 730 7 1.600000E+00 1.264911E+00 2.013168E-01 1.025934E+00 730 8 2.025000E+00 1.423025E+00 2.264814E-01 3.855352E+00 729 9 2.500000E+00 1.581139E+00 2.516460E-01 9.731239E+00 728 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.942567E-01 9.971243E-01 1.586972E-01 0.0 0.0 2 2 1.274364E+00 1.128877E+00 1.796664E-01 0.0 0.0 3 3 2.006962E+00 1.416673E+00 2.254705E-01 0.0 0.0 4 4 2.288906E+00 1.512913E+00 2.407876E-01 0.0 0.0 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.994257E+00 (CYCLIC FREQUENCY = 1.586972E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 2.103514E-03 0.0 1.268178E-01 0.0 2 G 0.0 0.0 2.103012E-03 0.0 1.268178E-01 0.0 3 G 0.0 0.0 2.102520E-03 0.0 1.268178E-01 0.0 4 G 5.877410E-01 0.0 1.902699E-03 0.0 1.026051E-01 0.0 5 G 5.877410E-01 0.0 1.902293E-03 0.0 1.026052E-01 0.0 6 G 5.877410E-01 0.0 1.901895E-03 0.0 1.026052E-01 0.0 7 G 9.510040E-01 0.0 1.376679E-03 0.0 3.919343E-02 0.0 8 G 9.510040E-01 0.0 1.376523E-03 0.0 3.919343E-02 0.0 9 G 9.510040E-01 0.0 1.376371E-03 0.0 3.919344E-02 0.0 10 G 9.510117E-01 0.0 7.264555E-04 0.0 -3.919051E-02 0.0 11 G 9.510117E-01 0.0 7.266107E-04 0.0 -3.919052E-02 0.0 12 G 9.510117E-01 0.0 7.267627E-04 0.0 -3.919052E-02 0.0 13 G 5.877590E-01 0.0 2.004222E-04 0.0 -1.026042E-01 0.0 14 G 5.877590E-01 0.0 2.008281E-04 0.0 -1.026042E-01 0.0 15 G 5.877590E-01 0.0 2.012260E-04 0.0 -1.026042E-01 0.0 16 G -2.063401E-08 0.0 -5.019139E-07 0.0 -1.268259E-01 0.0 17 G -2.079521E-08 0.0 0.0 0.0 -1.268259E-01 0.0 18 G -2.102140E-08 0.0 4.918746E-07 0.0 -1.268260E-01 0.0 19 G -5.877590E-01 0.0 2.004222E-04 0.0 -1.026042E-01 0.0 20 G -5.877590E-01 0.0 2.008284E-04 0.0 -1.026042E-01 0.0 21 G -5.877591E-01 0.0 2.012264E-04 0.0 -1.026042E-01 0.0 22 G -9.510117E-01 0.0 7.264562E-04 0.0 -3.919051E-02 0.0 23 G -9.510117E-01 0.0 7.266111E-04 0.0 -3.919051E-02 0.0 24 G -9.510117E-01 0.0 7.267630E-04 0.0 -3.919052E-02 0.0 25 G -9.510040E-01 0.0 1.376679E-03 0.0 3.919343E-02 0.0 26 G -9.510040E-01 0.0 1.376524E-03 0.0 3.919343E-02 0.0 27 G -9.510040E-01 0.0 1.376372E-03 0.0 3.919344E-02 0.0 28 G -5.877410E-01 0.0 1.902700E-03 0.0 1.026052E-01 0.0 29 G -5.877410E-01 0.0 1.902294E-03 0.0 1.026052E-01 0.0 30 G -5.877410E-01 0.0 1.901896E-03 0.0 1.026052E-01 0.0 31 G 0.0 0.0 2.103515E-03 0.0 1.268178E-01 0.0 32 G 0.0 0.0 2.103013E-03 0.0 1.268178E-01 0.0 33 G 0.0 0.0 2.102521E-03 0.0 1.268178E-01 0.0 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.127436E+01 (CYCLIC FREQUENCY = 1.796664E-01 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -1.607036E-03 0.0 -1.924138E-01 0.0 2 G 0.0 0.0 -1.606392E-03 0.0 -1.924138E-01 0.0 3 G 0.0 0.0 -1.605806E-03 0.0 -1.924138E-01 0.0 4 G -8.089851E-01 0.0 -9.447820E-04 0.0 -1.131079E-01 0.0 5 G -8.089851E-01 0.0 -9.444001E-04 0.0 -1.131079E-01 0.0 6 G -8.089852E-01 0.0 -9.440504E-04 0.0 -1.131080E-01 0.0 7 G -9.510354E-01 0.0 4.963701E-04 0.0 5.946127E-02 0.0 8 G -9.510355E-01 0.0 4.961950E-04 0.0 5.946129E-02 0.0 9 G -9.510355E-01 0.0 4.960029E-04 0.0 5.946127E-02 0.0 10 G -3.090069E-01 0.0 1.528134E-03 0.0 1.830085E-01 0.0 11 G -3.090069E-01 0.0 1.527561E-03 0.0 1.830085E-01 0.0 12 G -3.090069E-01 0.0 1.526980E-03 0.0 1.830085E-01 0.0 13 G 5.877873E-01 0.0 1.299906E-03 0.0 1.556763E-01 0.0 14 G 5.877873E-01 0.0 1.299428E-03 0.0 1.556763E-01 0.0 15 G 5.877873E-01 0.0 1.298925E-03 0.0 1.556763E-01 0.0 16 G 1.000000E+00 0.0 -1.481932E-07 0.0 6.436784E-07 0.0 17 G 1.000000E+00 0.0 0.0 0.0 6.604184E-07 0.0 18 G 1.000000E+00 0.0 -1.459890E-07 0.0 6.430514E-07 0.0 19 G 5.877943E-01 0.0 -1.300261E-03 0.0 -1.556748E-01 0.0 20 G 5.877943E-01 0.0 -1.299734E-03 0.0 -1.556748E-01 0.0 21 G 5.877944E-01 0.0 -1.299265E-03 0.0 -1.556748E-01 0.0 22 G -3.089919E-01 0.0 -1.528616E-03 0.0 -1.830070E-01 0.0 23 G -3.089920E-01 0.0 -1.528000E-03 0.0 -1.830070E-01 0.0 24 G -3.089920E-01 0.0 -1.527440E-03 0.0 -1.830070E-01 0.0 25 G -9.510153E-01 0.0 -4.969612E-04 0.0 -5.946098E-02 0.0 26 G -9.510153E-01 0.0 -4.967392E-04 0.0 -5.946095E-02 0.0 27 G -9.510153E-01 0.0 -4.965668E-04 0.0 -5.946099E-02 0.0 28 G -8.089694E-01 0.0 9.440959E-04 0.0 1.131057E-01 0.0 29 G -8.089695E-01 0.0 9.437736E-04 0.0 1.131057E-01 0.0 30 G -8.089695E-01 0.0 9.434088E-04 0.0 1.131057E-01 0.0 31 G 0.0 0.0 1.606256E-03 0.0 1.924100E-01 0.0 32 G 0.0 0.0 1.605737E-03 0.0 1.924100E-01 0.0 33 G 0.0 0.0 1.605133E-03 0.0 1.924100E-01 0.0 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.200696E+01 (CYCLIC FREQUENCY = 2.254705E-01 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -1.467975E-06 0.0 -2.737300E-01 0.0 2 G 0.0 0.0 -1.031808E-06 0.0 -2.737291E-01 0.0 3 G 0.0 0.0 8.542280E-07 0.0 -2.737292E-01 0.0 4 G -9.978074E-01 0.0 1.598962E-03 0.0 -8.460298E-02 0.0 5 G -9.978067E-01 0.0 1.598134E-03 0.0 -8.460262E-02 0.0 6 G -9.978057E-01 0.0 1.598105E-03 0.0 -8.460285E-02 0.0 7 G -6.166910E-01 0.0 4.185312E-03 0.0 2.214729E-01 0.0 8 G -6.166904E-01 0.0 4.185861E-03 0.0 2.214731E-01 0.0 9 G -6.166896E-01 0.0 4.185587E-03 0.0 2.214737E-01 0.0 10 G 6.167768E-01 0.0 4.187398E-03 0.0 2.214959E-01 0.0 11 G 6.167747E-01 0.0 4.185664E-03 0.0 2.214960E-01 0.0 12 G 6.167711E-01 0.0 4.184884E-03 0.0 2.214956E-01 0.0 13 G 9.980589E-01 0.0 1.597021E-03 0.0 -8.456618E-02 0.0 14 G 9.980611E-01 0.0 1.598786E-03 0.0 -8.456624E-02 0.0 15 G 9.980653E-01 0.0 1.599383E-03 0.0 -8.456688E-02 0.0 16 G 3.399757E-04 0.0 -1.418346E-06 0.0 -2.737325E-01 0.0 17 G 3.400775E-04 0.0 0.0 0.0 -2.737317E-01 0.0 18 G 3.406673E-04 0.0 -5.202645E-07 0.0 -2.737309E-01 0.0 19 G -9.974011E-01 0.0 1.596157E-03 0.0 -8.457701E-02 0.0 20 G -9.974040E-01 0.0 1.594875E-03 0.0 -8.457707E-02 0.0 21 G -9.974084E-01 0.0 1.594560E-03 0.0 -8.457735E-02 0.0 22 G -6.162247E-01 0.0 4.178107E-03 0.0 2.214667E-01 0.0 23 G -6.162219E-01 0.0 4.179458E-03 0.0 2.214662E-01 0.0 24 G -6.162161E-01 0.0 4.179474E-03 0.0 2.214668E-01 0.0 25 G 6.171162E-01 0.0 4.178337E-03 0.0 2.214530E-01 0.0 26 G 6.171145E-01 0.0 4.175818E-03 0.0 2.214529E-01 0.0 27 G 6.171076E-01 0.0 4.174941E-03 0.0 2.214532E-01 0.0 28 G 9.980825E-01 0.0 1.581858E-03 0.0 -8.464672E-02 0.0 29 G 9.980856E-01 0.0 1.585879E-03 0.0 -8.464789E-02 0.0 30 G 9.980934E-01 0.0 1.587645E-03 0.0 -8.464823E-02 0.0 31 G 0.0 0.0 -2.032984E-05 0.0 -2.737884E-01 0.0 32 G 0.0 0.0 -1.518969E-05 0.0 -2.737905E-01 0.0 33 G 0.0 0.0 -1.454676E-05 0.0 -2.737876E-01 0.0 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.228891E+01 (CYCLIC FREQUENCY = 2.407876E-01 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 5.270305E-04 0.0 6.298809E-02 0.0 2 G 0.0 0.0 5.267697E-04 0.0 6.298809E-02 0.0 3 G 0.0 0.0 5.264718E-04 0.0 6.298810E-02 0.0 4 G 3.090051E-01 0.0 5.014364E-04 0.0 5.992024E-02 0.0 5 G 3.090051E-01 0.0 5.011834E-04 0.0 5.992026E-02 0.0 6 G 3.090051E-01 0.0 5.009151E-04 0.0 5.992026E-02 0.0 7 G 5.878126E-01 0.0 4.265758E-04 0.0 5.097474E-02 0.0 8 G 5.878126E-01 0.0 4.263650E-04 0.0 5.097477E-02 0.0 9 G 5.878126E-01 0.0 4.261355E-04 0.0 5.097475E-02 0.0 10 G 8.090619E-01 0.0 3.098185E-04 0.0 3.702737E-02 0.0 11 G 8.090619E-01 0.0 3.096733E-04 0.0 3.702739E-02 0.0 12 G 8.090619E-01 0.0 3.095030E-04 0.0 3.702736E-02 0.0 13 G 9.510751E-01 0.0 1.627541E-04 0.0 1.946030E-02 0.0 14 G 9.510752E-01 0.0 1.626991E-04 0.0 1.946032E-02 0.0 15 G 9.510753E-01 0.0 1.625937E-04 0.0 1.946030E-02 0.0 16 G 9.999999E-01 0.0 -2.423859E-07 0.0 6.862381E-07 0.0 17 G 1.000000E+00 0.0 0.0 0.0 7.083275E-07 0.0 18 G 1.000000E+00 0.0 -2.409613E-07 0.0 6.906267E-07 0.0 19 G 9.510815E-01 0.0 -1.633495E-04 0.0 -1.945928E-02 0.0 20 G 9.510815E-01 0.0 -1.632268E-04 0.0 -1.945926E-02 0.0 21 G 9.510816E-01 0.0 -1.631730E-04 0.0 -1.945929E-02 0.0 22 G 8.090719E-01 0.0 -3.106513E-04 0.0 -3.702703E-02 0.0 23 G 8.090720E-01 0.0 -3.104477E-04 0.0 -3.702701E-02 0.0 24 G 8.090720E-01 0.0 -3.103102E-04 0.0 -3.702705E-02 0.0 25 G 5.878226E-01 0.0 -4.275977E-04 0.0 -5.097522E-02 0.0 26 G 5.878225E-01 0.0 -4.273202E-04 0.0 -5.097518E-02 0.0 27 G 5.878226E-01 0.0 -4.271231E-04 0.0 -5.097523E-02 0.0 28 G 3.090113E-01 0.0 -5.025998E-04 0.0 -5.992134E-02 0.0 29 G 3.090113E-01 0.0 -5.022539E-04 0.0 -5.992129E-02 0.0 30 G 3.090113E-01 0.0 -5.020134E-04 0.0 -5.992138E-02 0.0 31 G 0.0 0.0 -5.283404E-04 0.0 -6.298957E-02 0.0 32 G 0.0 0.0 -5.278593E-04 0.0 -6.298949E-02 0.0 33 G 0.0 0.0 -5.275884E-04 0.0 -6.298959E-02 0.0 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.994257E+00 (CYCLIC FREQUENCY = 1.586972E-01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -5.151739E+01 -9.512089E+01 0.0 -2.152923E-01 0.0 1.709819E+01 2 G -1.030352E+02 -1.681432E-03 0.0 -2.546583E-05 0.0 -1.458016E-03 3 G -5.151759E+01 9.511919E+01 0.0 2.153099E-01 0.0 -1.709900E+01 4 G 0.0 -8.923259E+02 0.0 -3.513033E-01 0.0 3.410562E+00 5 G 0.0 -1.004825E-03 0.0 8.013524E-05 0.0 -6.947672E-04 6 G 0.0 8.923250E+02 0.0 3.512334E-01 0.0 -3.418499E+00 7 G 0.0 -1.443839E+03 0.0 -1.339381E-01 0.0 5.517437E+00 8 G 0.0 -1.674777E-03 0.0 -1.843812E-05 0.0 1.036898E-03 9 G 0.0 1.443837E+03 0.0 1.339743E-01 0.0 -5.527729E+00 10 G 0.0 -1.443850E+03 0.0 1.339640E-01 0.0 5.514638E+00 11 G 0.0 -1.673729E-03 0.0 1.837776E-05 0.0 1.038515E-03 12 G 0.0 1.443848E+03 0.0 -1.340001E-01 0.0 -5.524932E+00 13 G 0.0 -8.923505E+02 0.0 3.503241E-01 0.0 3.406302E+00 14 G 0.0 -1.006998E-03 0.0 -8.005178E-05 0.0 -6.950067E-04 15 G 0.0 8.923497E+02 0.0 -3.502543E-01 0.0 -3.414252E+00 16 G 0.0 2.804257E-05 0.0 4.329243E-01 0.0 -2.610510E-04 17 G 0.0 4.276452E-05 -1.573016E+00 -2.741954E-06 0.0 -2.446164E-03 18 G 0.0 -5.339286E-05 0.0 -4.329326E-01 0.0 6.799196E-04 19 G 0.0 8.923506E+02 0.0 3.502126E-01 0.0 -3.412596E+00 20 G 0.0 9.631536E-04 0.0 1.141504E-04 0.0 3.430370E-03 21 G 0.0 -8.923497E+02 0.0 -3.503367E-01 0.0 3.411569E+00 22 G 0.0 1.443850E+03 0.0 1.340715E-01 0.0 -5.520417E+00 23 G 0.0 1.576579E-03 0.0 -1.055878E-04 0.0 4.340428E-03 24 G 0.0 -1.443848E+03 0.0 -1.339573E-01 0.0 5.523345E+00 25 G 0.0 1.443839E+03 0.0 -1.339349E-01 0.0 -5.517201E+00 26 G 0.0 1.674688E-03 0.0 -1.855813E-05 0.0 -1.033317E-03 27 G 0.0 -1.443837E+03 0.0 1.339751E-01 0.0 5.527812E+00 28 G 0.0 8.923259E+02 0.0 -3.513280E-01 0.0 -3.410562E+00 29 G 0.0 1.012306E-03 0.0 8.215639E-05 0.0 4.516013E-04 30 G 0.0 -8.923251E+02 0.0 3.512419E-01 0.0 3.418742E+00 31 G 5.151764E+01 9.512089E+01 0.0 -2.152885E-01 0.0 -1.709851E+01 32 G 1.030350E+02 1.673224E-03 0.0 -3.391531E-05 0.0 1.701188E-03 33 G 5.151734E+01 -9.511918E+01 0.0 2.153184E-01 0.0 1.709876E+01 51 G 0.0 8.151658E-04 0.0 1.946836E-06 0.0 -2.516478E-03 52 G 0.0 8.194625E-04 0.0 1.946933E-06 0.0 -1.941667E-03 54 G 0.0 2.065063E-03 0.0 2.626915E-06 0.0 -1.648181E-03 55 G 0.0 2.167285E-03 0.0 1.199145E-06 0.0 -6.301333E-03 57 G 0.0 2.505668E-03 0.0 -3.087557E-09 0.0 5.868427E-04 58 G 0.0 2.674341E-03 0.0 -3.168942E-09 0.0 -7.569350E-03 60 G 0.0 2.072071E-03 0.0 -2.635500E-06 0.0 -2.223229E-03 61 G 0.0 2.159695E-03 0.0 -1.180900E-06 0.0 -5.726505E-03 63 G 0.0 8.086774E-04 0.0 -1.940441E-06 0.0 -1.952688E-03 64 G 0.0 8.285433E-04 0.0 -1.915145E-06 0.0 -2.532208E-03 66 G 0.0 -8.175825E-04 0.0 -1.920625E-06 0.0 2.505590E-03 67 G 0.0 -7.569175E-04 0.0 -3.350004E-06 0.0 -2.151549E-03 69 G 0.0 -2.060980E-03 0.0 -2.621436E-06 0.0 1.648252E-03 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.994257E+00 (CYCLIC FREQUENCY = 1.586972E-01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 70 G 0.0 -2.101803E-03 0.0 2.353162E-07 0.0 2.223556E-03 72 G 0.0 -2.509669E-03 0.0 -2.297012E-09 0.0 -5.867988E-04 73 G 0.0 -2.675431E-03 0.0 -2.352241E-09 0.0 7.569362E-03 75 G 0.0 -2.068043E-03 0.0 2.640701E-06 0.0 2.223071E-03 76 G 0.0 -2.165102E-03 0.0 1.199233E-06 0.0 6.301309E-03 78 G 0.0 -8.085474E-04 0.0 1.961059E-06 0.0 1.941548E-03 79 G 0.0 -8.209177E-04 0.0 1.948887E-06 0.0 1.941683E-03 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.127436E+01 (CYCLIC FREQUENCY = 1.796664E-01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.724807E+02 1.383872E+02 0.0 9.200034E-01 0.0 -6.160670E+01 2 G 3.449598E+02 4.669885E-03 0.0 -2.888818E-05 0.0 1.230469E-04 3 G 1.724791E+02 -1.383825E+02 0.0 -9.200504E-01 0.0 6.160488E+01 4 G 0.0 1.184418E+03 0.0 1.086015E+00 0.0 -1.228124E+01 5 G 0.0 2.135554E-03 0.0 -3.592284E-05 0.0 -1.270461E-03 6 G 0.0 -1.184416E+03 0.0 -1.086040E+00 0.0 1.227709E+01 7 G 0.0 1.392387E+03 0.0 -5.702494E-01 0.0 -1.443193E+01 8 G 0.0 2.494141E-03 0.0 -4.384040E-05 0.0 -1.115506E-03 9 G 0.0 -1.392385E+03 0.0 5.703600E-01 0.0 1.443618E+01 10 G 0.0 4.524082E+02 0.0 -1.754524E+00 0.0 -4.687024E+00 11 G 0.0 7.871221E-04 0.0 1.077142E-04 0.0 7.383497E-04 12 G 0.0 -4.524075E+02 0.0 1.754549E+00 0.0 4.690809E+00 13 G 0.0 -8.605668E+02 0.0 -1.491880E+00 0.0 8.918591E+00 14 G 0.0 -1.473726E-03 0.0 -8.549919E-05 0.0 -2.707567E-03 15 G 0.0 8.605654E+02 0.0 1.492008E+00 0.0 -8.918765E+00 16 G 0.0 -1.464078E+03 0.0 -6.136116E-05 0.0 1.516661E+01 17 G 0.0 -2.480147E-03 8.696128E-03 1.330978E-04 0.0 -4.870709E-03 18 G 0.0 1.464075E+03 0.0 -7.294287E-05 0.0 -1.517400E+01 19 G 0.0 -8.605775E+02 0.0 1.492062E+00 0.0 8.913568E+00 20 G 0.0 -1.565820E-03 0.0 -7.501164E-05 0.0 2.253971E-04 21 G 0.0 8.605761E+02 0.0 -1.492068E+00 0.0 -8.919708E+00 22 G 0.0 4.523852E+02 0.0 1.754520E+00 0.0 -4.690655E+00 23 G 0.0 7.665810E-04 0.0 4.408584E-05 0.0 1.913961E-03 24 G 0.0 -4.523844E+02 0.0 -1.754664E+00 0.0 4.686411E+00 25 G 0.0 1.392357E+03 0.0 5.703768E-01 0.0 -1.443394E+01 26 G 0.0 2.232684E-03 0.0 -6.160218E-06 0.0 1.039407E-02 27 G 0.0 -1.392354E+03 0.0 -5.703666E-01 0.0 1.443389E+01 28 G 0.0 1.184395E+03 0.0 -1.085884E+00 0.0 -1.227909E+01 29 G 0.0 1.879568E-03 0.0 -6.925801E-05 0.0 4.930902E-03 30 G 0.0 -1.184393E+03 0.0 1.085978E+00 0.0 1.228139E+01 31 G 1.724773E+02 1.383853E+02 0.0 -9.199414E-01 0.0 -6.160427E+01 32 G 3.449522E+02 5.285613E-03 0.0 4.175208E-05 0.0 -3.651533E-04 33 G 1.724783E+02 -1.383801E+02 0.0 9.199511E-01 0.0 6.160582E+01 51 G 0.0 -2.842694E-03 0.0 -1.216082E-05 0.0 -1.546403E-03 52 G 0.0 -2.984679E-03 0.0 -1.355202E-05 0.0 -2.172872E-03 54 G 0.0 -6.287269E-03 0.0 -1.948820E-06 0.0 -1.870427E-03 55 G 0.0 -6.411961E-03 0.0 1.059668E-06 0.0 4.303707E-04 57 G 0.0 -4.527387E-03 0.0 9.767738E-06 0.0 -6.797924E-05 58 G 0.0 -4.649915E-03 0.0 8.519682E-06 0.0 4.010537E-03 60 G 0.0 9.662696E-04 0.0 1.167418E-05 0.0 -1.184640E-04 61 G 0.0 1.017027E-03 0.0 1.326481E-05 0.0 2.808435E-03 63 G 0.0 5.017204E-03 0.0 5.222425E-06 0.0 -6.209748E-03 64 G 0.0 6.638744E-03 0.0 4.145451E-06 0.0 -1.818210E-03 66 G 0.0 6.561042E-03 0.0 -5.598053E-06 0.0 -5.942941E-03 67 G 0.0 5.030558E-03 0.0 -3.787279E-06 0.0 -2.181135E-03 69 G 0.0 1.049502E-03 0.0 -1.259526E-05 0.0 -3.307767E-03 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.127436E+01 (CYCLIC FREQUENCY = 1.796664E-01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 70 G 0.0 9.844563E-04 0.0 -1.452181E-05 0.0 -1.187534E-04 72 G 0.0 -4.580532E-03 0.0 -7.862283E-06 0.0 1.683613E-03 73 G 0.0 -4.606392E-03 0.0 -6.870033E-06 0.0 1.082454E-03 75 G 0.0 -6.441772E-03 0.0 2.810605E-07 0.0 3.070567E-03 76 G 0.0 -6.547184E-03 0.0 2.004308E-06 0.0 6.861465E-03 78 G 0.0 -3.244878E-03 0.0 1.187208E-05 0.0 -2.116924E-03 79 G 0.0 -3.071576E-03 0.0 1.080584E-05 0.0 4.257780E-03 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.200696E+01 (CYCLIC FREQUENCY = 2.254705E-01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.168904E+02 1.853410E+02 0.0 2.971540E+00 0.0 -1.668986E+02 2 G 8.338587E+02 1.479795E-02 0.0 -3.209854E-04 0.0 1.314251E-02 3 G 4.169630E+02 -1.853430E+02 0.0 -2.969919E+00 0.0 1.669733E+02 4 G 0.0 1.387318E+03 0.0 1.842751E+00 0.0 -3.337969E+01 5 G 0.0 -1.137435E-02 0.0 -2.247771E-05 0.0 1.403733E-01 6 G 0.0 -1.387305E+03 0.0 -1.842795E+00 0.0 3.348648E+01 7 G 0.0 8.574156E+02 0.0 -4.815344E+00 0.0 -2.064734E+01 8 G 0.0 5.727150E-03 0.0 -1.388849E-03 0.0 5.487861E-02 9 G 0.0 -8.574184E+02 0.0 4.815372E+00 0.0 2.063581E+01 10 G 0.0 -8.575703E+02 0.0 -4.814983E+00 0.0 2.061589E+01 11 G 0.0 -4.703111E-03 0.0 1.503313E-03 0.0 -1.260118E-01 12 G 0.0 8.575733E+02 0.0 4.815355E+00 0.0 -2.076429E+01 13 G 0.0 -1.387700E+03 0.0 1.839861E+00 0.0 3.347725E+01 14 G 0.0 -2.649190E-03 0.0 1.139363E-03 0.0 2.066029E-01 15 G 0.0 1.387690E+03 0.0 -1.840345E+00 0.0 -3.327956E+01 16 G 0.0 -5.215437E-01 0.0 5.950342E+00 0.0 -1.384961E-02 17 G 0.0 1.983902E-03 -7.178716E+00 -2.108075E-03 0.0 4.850268E-02 18 G 0.0 5.316386E-01 0.0 -5.950997E+00 0.0 -1.010795E-02 19 G 0.0 1.386675E+03 0.0 1.838534E+00 0.0 -3.349755E+01 20 G 0.0 -1.416982E-03 0.0 1.230698E-03 0.0 -1.722870E-01 21 G 0.0 -1.386673E+03 0.0 -1.837918E+00 0.0 3.329222E+01 22 G 0.0 8.567114E+02 0.0 -4.812680E+00 0.0 -2.059933E+01 23 G 0.0 5.249341E-03 0.0 -1.865519E-04 0.0 1.843509E-01 24 G 0.0 -8.567170E+02 0.0 4.812961E+00 0.0 2.077206E+01 25 G 0.0 -8.580859E+02 0.0 -4.817292E+00 0.0 2.071118E+01 26 G 0.0 -1.290868E-02 0.0 1.963044E-03 0.0 -8.275748E-02 27 G 0.0 8.580893E+02 0.0 4.817623E+00 0.0 -2.081314E+01 28 G 0.0 -1.387735E+03 0.0 1.843941E+00 0.0 3.358559E+01 29 G 0.0 -1.007438E-02 0.0 1.328236E-03 0.0 4.445985E-01 30 G 0.0 1.387710E+03 0.0 -1.844952E+00 0.0 -3.322711E+01 31 G -4.170731E+02 -1.853687E+02 0.0 2.967347E+00 0.0 1.670393E+02 32 G -8.339760E+02 1.060557E-02 0.0 -2.128851E-03 0.0 1.137156E-01 33 G -4.169543E+02 1.853952E+02 0.0 -2.968699E+00 0.0 -1.668886E+02 51 G 0.0 -4.042408E-03 0.0 -2.640697E-05 0.0 8.836566E-02 52 G 0.0 -1.157413E-04 0.0 -1.683100E-05 0.0 9.324049E-02 54 G 0.0 -2.756771E-02 0.0 1.225725E-05 0.0 1.117314E-01 55 G 0.0 -1.696023E-02 0.0 8.133161E-06 0.0 6.667987E-02 57 G 0.0 1.570274E-02 0.0 -1.107086E-05 0.0 -8.997647E-02 58 G 0.0 5.239275E-03 0.0 -5.425399E-05 0.0 -1.164315E-01 60 G 0.0 -4.886926E-03 0.0 1.188874E-04 0.0 1.877348E-02 61 G 0.0 7.910040E-03 0.0 2.054431E-04 0.0 4.994138E-02 63 G 0.0 1.123046E-02 0.0 -9.735100E-05 0.0 8.788392E-02 64 G 0.0 1.400476E-02 0.0 -1.280467E-04 0.0 2.085885E-01 66 G 0.0 8.363220E-03 0.0 -1.170544E-04 0.0 -1.231026E-01 67 G 0.0 -8.959696E-03 0.0 -1.620770E-04 0.0 -1.724387E-01 69 G 0.0 -3.402015E-02 0.0 1.556109E-04 0.0 2.711485E-02 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.200696E+01 (CYCLIC FREQUENCY = 2.254705E-01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 70 G 0.0 -2.010484E-02 0.0 2.617985E-04 0.0 3.702072E-02 72 G 0.0 2.339388E-02 0.0 -5.544891E-05 0.0 4.438609E-02 73 G 0.0 6.341243E-03 0.0 -2.544868E-04 0.0 -4.294167E-02 75 G 0.0 -2.604860E-02 0.0 1.329270E-04 0.0 1.694770E-01 76 G 0.0 -7.083613E-04 0.0 3.661375E-04 0.0 9.979094E-02 78 G 0.0 -5.659467E-04 0.0 -1.170169E-04 0.0 2.824205E-01 79 G 0.0 1.256758E-02 0.0 -2.343780E-04 0.0 2.760761E-01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.228891E+01 (CYCLIC FREQUENCY = 2.407876E-01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -5.935836E+00 -4.834173E+01 0.0 -2.379603E-02 0.0 2.091895E+00 2 G -1.187304E+01 -3.455385E-04 0.0 -1.003417E-05 0.0 -6.054394E-04 3 G -5.936314E+00 4.834141E+01 0.0 2.379492E-02 0.0 -2.092748E+00 4 G 0.0 -4.793761E+02 0.0 -4.960643E-02 0.0 1.043530E+00 5 G 0.0 -1.572519E-04 0.0 -2.833289E-05 0.0 -3.261122E-03 6 G 0.0 4.793759E+02 0.0 4.962762E-02 0.0 -1.046372E+00 7 G 0.0 -9.118909E+02 0.0 -4.167990E-02 0.0 1.986483E+00 8 G 0.0 -3.589398E-04 0.0 9.540900E-05 0.0 -8.313623E-04 9 G 0.0 9.118906E+02 0.0 4.159953E-02 0.0 -1.994615E+00 10 G 0.0 -1.255120E+03 0.0 -2.974683E-02 0.0 2.735067E+00 11 G 0.0 -5.529624E-04 0.0 -1.884354E-05 0.0 2.077497E-03 12 G 0.0 1.255119E+03 0.0 2.978536E-02 0.0 -2.743035E+00 13 G 0.0 -1.475436E+03 0.0 -1.527792E-02 0.0 3.216247E+00 14 G 0.0 -5.255133E-04 0.0 -1.234321E-04 0.0 -3.939587E-03 15 G 0.0 1.475435E+03 0.0 1.539849E-02 0.0 -3.215534E+00 16 G 0.0 -1.551338E+03 0.0 1.381954E-05 0.0 3.382920E+00 17 G 0.0 -3.796456E-04 1.459014E-02 8.208985E-08 0.0 -1.147663E-02 18 G 0.0 1.551338E+03 0.0 -3.094425E-05 0.0 -3.379137E+00 19 G 0.0 -1.475445E+03 0.0 1.545610E-02 0.0 3.216586E+00 20 G 0.0 -4.660234E-04 0.0 -2.139458E-06 0.0 -9.523172E-03 21 G 0.0 1.475444E+03 0.0 -1.544771E-02 0.0 -3.215160E+00 22 G 0.0 -1.255135E+03 0.0 2.979660E-02 0.0 2.738287E+00 23 G 0.0 -3.986416E-04 0.0 3.527781E-05 0.0 -8.506608E-03 24 G 0.0 1.255134E+03 0.0 -2.986903E-02 0.0 -2.737899E+00 25 G 0.0 -9.119060E+02 0.0 4.177605E-02 0.0 1.984397E+00 26 G 0.0 -3.854358E-04 0.0 8.900100E-05 0.0 -3.160443E-03 27 G 0.0 9.119057E+02 0.0 -4.185188E-02 0.0 -1.990361E+00 28 G 0.0 -4.793858E+02 0.0 4.974852E-02 0.0 1.042770E+00 29 G 0.0 -4.499409E-04 0.0 -3.791756E-06 0.0 -9.445386E-04 30 G 0.0 4.793854E+02 0.0 -4.977160E-02 0.0 -1.047446E+00 31 G -5.934807E+00 -4.834152E+01 0.0 2.389179E-02 0.0 2.091500E+00 32 G -1.187212E+01 7.143278E-04 0.0 1.112124E-05 0.0 -5.906069E-04 33 G -5.935585E+00 4.834216E+01 0.0 -2.388966E-02 0.0 -2.092856E+00 51 G 0.0 1.562650E-04 0.0 3.761853E-07 0.0 -2.428897E-03 52 G 0.0 -5.859256E-06 0.0 4.622574E-07 0.0 -4.151185E-04 54 G 0.0 2.981425E-04 0.0 2.855491E-07 0.0 -4.285875E-03 55 G 0.0 2.973891E-04 0.0 4.462568E-07 0.0 -2.561293E-03 57 G 0.0 4.507956E-04 0.0 1.853114E-07 0.0 -5.492727E-03 58 G 0.0 4.200319E-04 0.0 1.837554E-06 0.0 -8.403626E-04 60 G 0.0 4.613803E-04 0.0 1.491296E-06 0.0 -3.204935E-03 61 G 0.0 5.624488E-04 0.0 3.054936E-07 0.0 2.962702E-04 63 G 0.0 -7.841988E-04 0.0 -2.267871E-07 0.0 4.042108E-04 64 G 0.0 1.993825E-03 0.0 -1.099233E-06 0.0 -4.369928E-03 66 G 0.0 1.890915E-03 0.0 -1.789273E-06 0.0 -4.030226E-03 67 G 0.0 -7.102739E-04 0.0 1.654755E-06 0.0 -3.191480E-03 69 G 0.0 5.232886E-04 0.0 1.090840E-06 0.0 -3.493113E-03 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.228891E+01 (CYCLIC FREQUENCY = 2.407876E-01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 70 G 0.0 4.853662E-04 0.0 -1.452566E-06 0.0 -1.911838E-03 72 G 0.0 4.100215E-04 0.0 -3.353915E-06 0.0 -6.354652E-03 73 G 0.0 4.320548E-04 0.0 1.315033E-06 0.0 -1.990293E-03 75 G 0.0 1.705022E-04 0.0 1.502320E-06 0.0 -6.610559E-03 76 G 0.0 2.109913E-04 0.0 -2.290887E-06 0.0 1.490172E-03 78 G 0.0 -6.501492E-04 0.0 -1.614463E-06 0.0 -2.106073E-03 79 G 0.0 1.058083E-05 0.0 6.213126E-07 0.0 -1.591625E-03 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.994257E+00 (CYCLIC FREQUENCY = 1.586972E-01 HZ) F O R C E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 2 6.304925E+01 5.615234E-03 -1.025696E+01 -2.574223E+01 -2.343750E-02 6 6.304922E+01 5.859375E-03 -1.025708E+01 -2.574207E+01 -2.539062E-02 10 1.651215E+02 1.416016E-02 -6.338440E+00 -1.591414E+01 -5.859375E-02 14 1.651215E+02 1.513672E-02 -6.338562E+00 -1.591402E+01 -6.445312E-02 18 2.041080E+02 1.708984E-02 1.296369E-03 -6.567741E-03 -7.226562E-02 22 2.041080E+02 1.757812E-02 1.296185E-03 -6.323548E-03 -7.812500E-02 26 1.651258E+02 1.318359E-02 6.340149E+00 1.590364E+01 -5.664062E-02 30 1.651258E+02 1.416016E-02 6.340149E+00 1.590376E+01 -6.250000E-02 34 6.307152E+01 4.882812E-03 1.025714E+01 2.573897E+01 -2.050781E-02 38 6.307152E+01 5.126953E-03 1.025720E+01 2.573880E+01 -2.246094E-02 42 -6.307287E+01 -5.615234E-03 1.025629E+01 2.574243E+01 2.392578E-02 46 -6.307287E+01 -6.347656E-03 1.025641E+01 2.574225E+01 2.636719E-02 50 -1.651266E+02 -1.464844E-02 6.337830E+00 1.591304E+01 6.054688E-02 54 -1.651266E+02 -1.513672E-02 6.337830E+00 1.591292E+01 6.445312E-02 58 -2.041080E+02 -1.708984E-02 -1.631315E-03 5.080510E-03 7.226562E-02 62 -2.041080E+02 -1.806641E-02 -1.632300E-03 5.080792E-03 7.812500E-02 66 -1.651207E+02 -1.367188E-02 -6.340820E+00 -1.590486E+01 5.664062E-02 70 -1.651207E+02 -1.464844E-02 -6.340820E+00 -1.590486E+01 6.250000E-02 74 -6.304784E+01 -4.882812E-03 -1.025781E+01 -2.573865E+01 2.001953E-02 78 -6.304787E+01 -4.882812E-03 -1.025800E+01 -2.573846E+01 2.197266E-02 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.127436E+01 (CYCLIC FREQUENCY = 1.796664E-01 HZ) F O R C E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 2 -2.065090E+02 -1.069092E+00 3.312170E+01 8.186938E+01 3.410156E+00 6 -2.065089E+02 -1.069336E+00 3.312195E+01 8.186932E+01 3.413086E+00 10 -4.493609E+02 -2.325195E+00 5.814804E+00 1.438107E+01 7.416016E+00 14 -4.493609E+02 -2.325684E+00 5.814621E+00 1.438137E+01 7.419922E+00 18 -3.217094E+02 -1.663574E+00 -2.628503E+01 -6.496356E+01 5.306641E+00 22 -3.217095E+02 -1.664551E+00 -2.628522E+01 -6.496341E+01 5.310547E+00 26 7.117250E+01 3.688965E-01 -3.671387E+01 -9.074976E+01 -1.177002E+00 30 7.117253E+01 3.691406E-01 -3.671411E+01 -9.074924E+01 -1.177734E+00 34 4.053713E+02 2.097168E+00 -1.687415E+01 -4.171762E+01 -6.691406E+00 38 4.053713E+02 2.098145E+00 -1.687415E+01 -4.171765E+01 -6.695312E+00 42 4.053699E+02 2.096191E+00 1.687677E+01 4.170784E+01 -6.687500E+00 46 4.053698E+02 2.097656E+00 1.687683E+01 4.170786E+01 -6.693359E+00 50 7.117046E+01 3.673096E-01 3.671411E+01 9.074719E+01 -1.171143E+00 54 7.117043E+01 3.675537E-01 3.671436E+01 9.074716E+01 -1.172363E+00 58 -3.217077E+02 -1.665039E+00 2.628271E+01 6.497021E+01 5.310547E+00 62 -3.217077E+02 -1.665527E+00 2.628271E+01 6.497028E+01 5.314453E+00 66 -4.493540E+02 -2.324707E+00 -5.817825E+00 -1.437110E+01 7.416016E+00 70 -4.493539E+02 -2.325195E+00 -5.817856E+00 -1.437064E+01 7.419922E+00 74 -2.065031E+02 -1.067627E+00 -3.312256E+01 -8.186362E+01 3.406250E+00 78 -2.065031E+02 -1.067871E+00 -3.312268E+01 -8.186325E+01 3.408203E+00 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.200696E+01 (CYCLIC FREQUENCY = 2.254705E-01 HZ) F O R C E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 2 -4.924769E+02 -5.381836E+00 7.555859E+01 1.845532E+02 1.713672E+01 6 -4.924756E+02 -5.383301E+00 7.555481E+01 1.845584E+02 1.714355E+01 10 -7.970036E+02 -8.709473E+00 -2.885260E+01 -7.047070E+01 2.773242E+01 14 -7.970030E+02 -8.710449E+00 -2.885028E+01 -7.046831E+01 2.773828E+01 18 -5.879307E-02 -1.830846E-03 -9.338611E+01 -2.281143E+02 5.148053E-03 22 -5.848790E-02 -8.072257E-04 -9.337915E+01 -2.281097E+02 2.380610E-03 26 7.969686E+02 8.712402E+00 -2.886676E+01 -7.050827E+01 -2.774219E+01 30 7.969689E+02 8.714844E+00 -2.887720E+01 -7.051401E+01 -2.775195E+01 34 4.925773E+02 5.386719E+00 7.555579E+01 1.845420E+02 -1.715332E+01 38 4.925748E+02 5.390137E+00 7.556201E+01 1.845487E+02 -1.716504E+01 42 -4.925512E+02 -5.390137E+00 7.554932E+01 1.845399E+02 1.716211E+01 46 -4.925487E+02 -5.389160E+00 7.555945E+01 1.845470E+02 1.716211E+01 50 -7.969199E+02 -8.711914E+00 -2.886792E+01 -7.048735E+01 2.774023E+01 54 -7.969187E+02 -8.712891E+00 -2.888019E+01 -7.049837E+01 2.774609E+01 58 3.685002E-02 2.978563E-03 -9.338135E+01 -2.281075E+02 -9.958267E-03 62 3.593449E-02 2.722740E-04 -9.336475E+01 -2.281058E+02 -1.303673E-03 66 7.970667E+02 8.717285E+00 -2.886243E+01 -7.049504E+01 -2.775781E+01 70 7.970693E+02 8.718262E+00 -2.888306E+01 -7.050549E+01 -2.776172E+01 74 4.925131E+02 5.393555E+00 7.557166E+01 1.845831E+02 -1.717383E+01 78 4.925155E+02 5.392578E+00 7.558496E+01 1.845690E+02 -1.717188E+01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.228891E+01 (CYCLIC FREQUENCY = 2.407876E-01 HZ) F O R C E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 2 7.989005E+00 -7.861328E-02 -1.190491E+00 -3.166077E+00 2.468262E-01 6 7.988959E+00 -7.824707E-02 -1.190521E+00 -3.165939E+00 2.456055E-01 10 2.329432E+01 -2.268066E-01 -1.077332E+00 -2.868240E+00 7.138672E-01 14 2.329429E+01 -2.265625E-01 -1.077423E+00 -2.868004E+00 7.109375E-01 18 3.631908E+01 -3.530273E-01 -8.527527E-01 -2.274696E+00 1.109375E+00 22 3.631908E+01 -3.515625E-01 -8.529053E-01 -2.274323E+00 1.105469E+00 26 4.574463E+01 -4.453125E-01 -5.433960E-01 -1.454681E+00 1.398438E+00 30 4.574462E+01 -4.438477E-01 -5.433502E-01 -1.454418E+00 1.392578E+00 34 5.067267E+01 -4.936523E-01 -1.851959E-01 -5.029430E-01 1.554688E+00 38 5.067267E+01 -4.931641E-01 -1.850586E-01 -5.027390E-01 1.548828E+00 42 5.067350E+01 -4.941406E-01 1.880035E-01 4.904156E-01 1.552734E+00 46 5.067349E+01 -4.936523E-01 1.877899E-01 4.909306E-01 1.548828E+00 50 4.574605E+01 -4.448242E-01 5.457611E-01 1.443790E+00 1.400391E+00 54 4.574603E+01 -4.443359E-01 5.458832E-01 1.443790E+00 1.394531E+00 58 3.632067E+01 -3.535156E-01 8.549500E-01 2.265755E+00 1.111328E+00 62 3.632063E+01 -3.525391E-01 8.548279E-01 2.266365E+00 1.107422E+00 66 2.329527E+01 -2.272949E-01 1.078644E+00 2.862503E+00 7.158203E-01 70 2.329524E+01 -2.265625E-01 1.078857E+00 2.862617E+00 7.109375E-01 74 7.989283E+00 -7.910156E-02 1.191132E+00 3.163757E+00 2.487793E-01 78 7.989176E+00 -7.885742E-02 1.191010E+00 3.164490E+00 2.478027E-01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.994257E+00 (CYCLIC FREQUENCY = 1.586972E-01 HZ) S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 2 1.510220E+00 -7.352942E+01 3.767338E+01 2.927164E+00 88.4932 3.775038E+01 -7.360641E+01 5.567840E+01 0.0 -4.016304E-01 3.767989E+01 -8.969388E+00 -77.3883 3.968671E+01 -2.408447E+00 2.104758E+01 0 6 1.510220E+00 -7.352920E+01 3.767292E+01 2.925975E+00 88.4938 3.774986E+01 -7.360613E+01 5.567799E+01 0.0 -4.014385E-01 3.767972E+01 -8.970719E+00 -77.3866 3.968712E+01 -2.408840E+00 2.104798E+01 0 10 1.510220E+00 -1.925685E+02 9.863287E+01 1.807975E+00 89.6443 9.864410E+01 -1.925798E+02 1.456119E+02 0.0 -1.052040E+00 9.864929E+01 -5.543677E+00 -86.8272 9.895659E+01 -1.359337E+00 5.015796E+01 0 14 1.510220E+00 -1.925681E+02 9.863128E+01 1.807294E+00 89.6444 9.864250E+01 -1.925793E+02 1.456109E+02 0.0 -1.051539E+00 9.864883E+01 -5.544499E+00 -86.8267 9.895622E+01 -1.358929E+00 5.015758E+01 0 18 1.510220E+00 -2.380355E+02 1.219189E+02 -1.578937E-03 -89.9997 1.219189E+02 -2.380355E+02 1.799772E+02 0.0 -1.300447E+00 1.219387E+02 -7.534027E-05 -90.0000 1.219387E+02 -1.300446E+00 6.161958E+01 0 22 1.510220E+00 -2.380349E+02 1.219178E+02 -1.578723E-03 -89.9997 1.219178E+02 -2.380349E+02 1.799763E+02 0.0 -1.299825E+00 1.219382E+02 -7.534027E-05 -90.0000 1.219382E+02 -1.299828E+00 6.161900E+01 0 26 1.510220E+00 -1.925735E+02 9.863568E+01 -1.810102E+00 -89.6439 9.864693E+01 -1.925848E+02 1.456159E+02 0.0 -1.052066E+00 9.865097E+01 5.543531E+00 86.8274 9.895825E+01 -1.359341E+00 5.015879E+01 0 30 1.510220E+00 -1.925730E+02 9.863409E+01 -1.809279E+00 -89.6440 9.864535E+01 -1.925843E+02 1.456148E+02 0.0 -1.051565E+00 9.865052E+01 5.544355E+00 86.8269 9.895789E+01 -1.358936E+00 5.015841E+01 0 34 1.510220E+00 -7.355547E+01 3.767570E+01 -2.927142E+00 -88.4936 3.775268E+01 -7.363245E+01 5.569256E+01 0.0 -4.018483E-01 3.768137E+01 8.969623E+00 77.3885 3.968820E+01 -2.408684E+00 2.104844E+01 0 38 1.510220E+00 -7.355527E+01 3.767524E+01 -2.925882E+00 -88.4942 3.775215E+01 -7.363219E+01 5.569217E+01 0.0 -4.016563E-01 3.768119E+01 8.970953E+00 77.3868 3.968861E+01 -2.409077E+00 2.104884E+01 0 42 1.510220E+00 7.355704E+01 -3.767486E+01 -2.926151E+00 -1.5059 7.363396E+01 -3.775179E+01 5.569287E+01 0.0 4.018483E-01 -3.768137E+01 8.969623E+00 12.6115 2.408684E+00 -3.968821E+01 2.104845E+01 0 46 1.510220E+00 7.355685E+01 -3.767384E+01 -2.924962E+00 -1.5053 7.363371E+01 -3.775070E+01 5.569220E+01 0.0 4.016569E-01 -3.768120E+01 8.970953E+00 12.6132 2.409077E+00 -3.968862E+01 2.104885E+01 0 50 1.510220E+00 1.925745E+02 -9.863398E+01 -1.807412E+00 -0.3556 1.925857E+02 -9.864519E+01 1.456155E+02 0.0 1.052068E+00 -9.865097E+01 5.543531E+00 3.1726 1.359344E+00 -9.895824E+01 5.015879E+01 0 54 1.510220E+00 1.925740E+02 -9.863297E+01 -1.806589E+00 -0.3554 1.925852E+02 -9.864416E+01 1.456147E+02 0.0 1.051565E+00 -9.865052E+01 5.544355E+00 3.1731 1.358936E+00 -9.895789E+01 5.015841E+01 0 58 1.510220E+00 2.380355E+02 -1.219189E+02 1.816267E-03 0.0003 2.380355E+02 -1.219189E+02 1.799772E+02 0.0 1.300446E+00 -1.219387E+02 -7.581711E-05 0.0000 1.300446E+00 -1.219387E+02 6.161958E+01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.994257E+00 (CYCLIC FREQUENCY = 1.586972E-01 HZ) S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 62 1.510220E+00 2.380349E+02 -1.219172E+02 1.817409E-03 0.0003 2.380349E+02 -1.219172E+02 1.799760E+02 0.0 1.299826E+00 -1.219382E+02 -7.581711E-05 0.0000 1.299828E+00 -1.219382E+02 6.161900E+01 0 66 1.510220E+00 1.925676E+02 -9.863344E+01 1.810736E+00 0.3563 1.925788E+02 -9.864469E+01 1.456118E+02 0.0 1.052042E+00 -9.864929E+01 -5.543676E+00 -3.1728 1.359337E+00 -9.895659E+01 5.015796E+01 0 70 1.510220E+00 1.925670E+02 -9.863184E+01 1.809913E+00 0.3561 1.925783E+02 -9.864308E+01 1.456107E+02 0.0 1.051539E+00 -9.864883E+01 -5.544499E+00 -3.1733 1.358929E+00 -9.895622E+01 5.015758E+01 0 74 1.510220E+00 7.352779E+01 -3.767422E+01 2.928155E+00 1.5073 7.360484E+01 -3.775127E+01 5.567805E+01 0.0 4.016304E-01 -3.767989E+01 -8.969388E+00 -12.6117 2.408447E+00 -3.968670E+01 2.104757E+01 0 78 1.510220E+00 7.352763E+01 -3.767405E+01 2.927037E+00 1.5067 7.360461E+01 -3.775104E+01 5.567783E+01 0.0 4.014387E-01 -3.767971E+01 -8.970718E+00 -12.6134 2.408840E+00 -3.968711E+01 2.104798E+01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.127436E+01 (CYCLIC FREQUENCY = 1.796664E-01 HZ) S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 2 1.510220E+00 2.408443E+02 -5.242852E+01 -2.616189E+01 -5.0579 2.431599E+02 -5.474406E+01 1.489520E+02 0.0 1.324507E+00 -5.366851E+01 1.225438E+01 12.0106 3.931618E+00 -5.627562E+01 3.010362E+01 0 6 1.510220E+00 2.408438E+02 -5.242769E+01 -2.616038E+01 -5.0577 2.431590E+02 -5.474297E+01 1.489510E+02 0.0 1.323984E+00 -5.366796E+01 1.225618E+01 12.0123 3.931870E+00 -5.627585E+01 3.010386E+01 0 10 1.510220E+00 5.240744E+02 -1.140651E+02 -4.592525E+00 -0.4123 5.241075E+02 -1.140982E+02 3.191028E+02 0.0 2.882304E+00 -1.167620E+02 2.151787E+00 1.0300 2.920990E+00 -1.168007E+02 5.986083E+01 0 14 1.510220E+00 5.240732E+02 -1.140633E+02 -4.592011E+00 -0.4123 5.241063E+02 -1.140964E+02 3.191013E+02 0.0 2.881190E+00 -1.167608E+02 2.152087E+00 1.0302 2.919888E+00 -1.167995E+02 5.985968E+01 0 18 1.510220E+00 3.751989E+02 -8.166332E+01 2.076144E+01 2.5966 3.761404E+02 -8.260486E+01 2.293726E+02 0.0 2.063527E+00 -8.359282E+01 -9.725304E+00 -6.3968 3.153851E+00 -8.468314E+01 4.391850E+01 0 22 1.510220E+00 3.751981E+02 -8.166133E+01 2.076018E+01 2.5964 3.761395E+02 -8.260277E+01 2.293711E+02 0.0 2.062731E+00 -8.359196E+01 -9.726779E+00 -6.3979 3.153397E+00 -8.468263E+01 4.391801E+01 0 26 1.510220E+00 -8.300601E+01 1.806669E+01 2.899829E+01 75.0762 2.579546E+01 -9.073477E+01 5.826512E+01 0.0 -4.564548E-01 1.849456E+01 -1.358436E+01 -62.4485 2.558166E+01 -7.543559E+00 1.656261E+01 0 30 1.510220E+00 -8.300587E+01 1.806622E+01 2.899651E+01 75.0769 2.579414E+01 -9.073378E+01 5.826396E+01 0.0 -4.562657E-01 1.849437E+01 -1.358642E+01 -62.4462 2.558324E+01 -7.545140E+00 1.656419E+01 0 34 1.510220E+00 -4.727708E+02 1.029032E+02 1.332755E+01 88.6745 1.032115E+02 -4.730792E+02 2.881454E+02 0.0 -2.600109E+00 1.053356E+02 -6.243957E+00 -86.7002 1.056956E+02 -2.960110E+00 5.432784E+01 0 38 1.510220E+00 -4.727695E+02 1.029009E+02 1.332643E+01 88.6746 1.032092E+02 -4.730778E+02 2.881435E+02 0.0 -2.598855E+00 1.053345E+02 -6.245080E+00 -86.6995 1.056946E+02 -2.958996E+00 5.432681E+01 0 42 1.510220E+00 -4.727692E+02 1.029047E+02 -1.333051E+01 -88.6742 1.032133E+02 -4.730778E+02 2.881455E+02 0.0 -2.600226E+00 1.053360E+02 6.244043E+00 86.7001 1.056960E+02 -2.960239E+00 5.432812E+01 0 46 1.510220E+00 -4.727684E+02 1.029019E+02 -1.332985E+01 -88.6742 1.032104E+02 -4.730769E+02 2.881437E+02 0.0 -2.599468E+00 1.053349E+02 6.244773E+00 86.6997 1.056950E+02 -2.959568E+00 5.432729E+01 0 50 1.510220E+00 -8.300390E+01 1.806990E+01 -2.899864E+01 -75.0762 2.579877E+01 -9.073277E+01 5.826577E+01 0.0 -4.567096E-01 1.849593E+01 1.358429E+01 62.4497 2.558263E+01 -7.543410E+00 1.656302E+01 0 54 1.510220E+00 -8.300369E+01 1.806943E+01 -2.899694E+01 -75.0768 2.579749E+01 -9.073175E+01 5.826462E+01 0.0 -4.565325E-01 1.849574E+01 1.358628E+01 62.4475 2.558414E+01 -7.544939E+00 1.656454E+01 0 58 1.510220E+00 3.751966E+02 -8.165939E+01 -2.075877E+01 -2.5963 3.761379E+02 -8.260069E+01 2.293693E+02 0.0 2.063310E+00 -8.359058E+01 9.725282E+00 6.3970 3.153652E+00 -8.468092E+01 4.391729E+01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.127436E+01 (CYCLIC FREQUENCY = 1.796664E-01 HZ) S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 62 1.510220E+00 3.751958E+02 -8.165796E+01 -2.075737E+01 -2.5961 3.761370E+02 -8.259914E+01 2.293681E+02 0.0 2.062522E+00 -8.358972E+01 9.726688E+00 6.3980 3.153202E+00 -8.468040E+01 4.391680E+01 0 66 1.510220E+00 5.240662E+02 -1.140633E+02 4.596162E+00 0.4126 5.240993E+02 -1.140964E+02 3.190979E+02 0.0 2.882114E+00 -1.167596E+02 -2.151654E+00 -1.0300 2.920795E+00 -1.167983E+02 5.985956E+01 0 70 1.510220E+00 5.240651E+02 -1.140616E+02 4.595827E+00 0.4126 5.240981E+02 -1.140947E+02 3.190964E+02 0.0 2.881026E+00 -1.167584E+02 -2.152024E+00 -1.0302 2.919724E+00 -1.167971E+02 5.985843E+01 0 74 1.510220E+00 2.408374E+02 -5.242918E+01 2.616324E+01 5.0583 2.431532E+02 -5.474501E+01 1.489491E+02 0.0 1.324320E+00 -5.366747E+01 -1.225402E+01 -12.0105 3.931335E+00 -5.627448E+01 3.010291E+01 0 78 1.510220E+00 2.408370E+02 -5.242835E+01 2.616147E+01 5.0580 2.431525E+02 -5.474386E+01 1.489482E+02 0.0 1.323927E+00 -5.366692E+01 -1.225594E+01 -12.0123 3.931761E+00 -5.627476E+01 3.010326E+01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.200696E+01 (CYCLIC FREQUENCY = 2.254705E-01 HZ) S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 2 1.510220E+00 5.744011E+02 -6.355228E+01 -7.265877E+01 -6.4161 5.825718E+02 -7.172301E+01 3.271474E+02 0.0 3.200860E+00 -6.979442E+01 1.497801E+01 11.1562 6.154690E+00 -7.274825E+01 3.945147E+01 0 6 1.510220E+00 5.743970E+02 -6.354922E+01 -7.265378E+01 -6.4158 5.825667E+02 -7.171889E+01 3.271428E+02 0.0 3.198331E+00 -6.979305E+01 1.497862E+01 11.1572 6.152542E+00 -7.274726E+01 3.944990E+01 0 10 1.510220E+00 9.295789E+02 -1.028312E+02 2.774491E+01 1.5383 9.303240E+02 -1.035763E+02 5.169501E+02 0.0 5.172700E+00 -1.129329E+02 -5.719831E+00 -2.7662 5.449062E+00 -1.132093E+02 5.932918E+01 0 14 1.510220E+00 9.295809E+02 -1.028279E+02 2.774231E+01 1.5381 9.303259E+02 -1.035728E+02 5.169493E+02 0.0 5.175455E+00 -1.129307E+02 -5.719744E+00 -2.7661 5.451809E+00 -1.132071E+02 5.932944E+01 0 18 1.510220E+00 7.236263E-02 6.567471E-03 8.979911E+01 44.9895 8.983858E+01 -8.975965E+01 8.979912E+01 0.0 4.171371E-03 4.443960E-03 -1.851495E+01 -45.0002 1.851925E+01 -1.851064E+01 1.851495E+01 0 22 1.510220E+00 6.744439E-02 5.298337E-03 8.978728E+01 44.9901 8.982365E+01 -8.975092E+01 8.978728E+01 0.0 -3.929138E-04 4.362075E-03 -1.851870E+01 -45.0037 1.852069E+01 -1.851672E+01 1.851870E+01 0 26 1.510220E+00 -9.295463E+02 1.028484E+02 2.775923E+01 88.4609 1.035943E+02 -9.302922E+02 5.169432E+02 0.0 -5.180753E+00 1.129535E+02 -5.721934E+00 -87.2335 1.132300E+02 -5.457256E+00 5.934363E+01 0 30 1.510220E+00 -9.295396E+02 1.028435E+02 2.777145E+01 88.4602 1.035900E+02 -9.302861E+02 5.169380E+02 0.0 -5.173757E+00 1.129514E+02 -5.721819E+00 -87.2333 1.132279E+02 -5.450272E+00 5.933909E+01 0 34 1.510220E+00 -5.745136E+02 6.358517E+01 -7.265750E+01 -83.5854 7.175377E+01 -5.826822E+02 3.272180E+02 0.0 -3.196878E+00 6.983296E+01 1.497602E+01 78.8499 7.278474E+01 -6.148659E+00 3.946670E+01 0 38 1.510220E+00 -5.745114E+02 6.358002E+01 -7.266557E+01 -83.5846 7.175052E+01 -5.826819E+02 3.272162E+02 0.0 -3.197573E+00 6.983179E+01 1.497517E+01 78.8504 7.278326E+01 -6.149052E+00 3.946616E+01 0 42 1.510220E+00 5.744816E+02 -6.349718E+01 -7.265248E+01 -6.4154 5.826506E+02 -7.166620E+01 3.271584E+02 0.0 3.195150E+00 -6.974895E+01 1.497354E+01 11.1603 6.149204E+00 -7.270300E+01 3.942610E+01 0 46 1.510220E+00 5.744733E+02 -6.349714E+01 -7.266260E+01 -6.4163 5.826447E+02 -7.166849E+01 3.271566E+02 0.0 3.189751E+00 -6.974776E+01 1.497517E+01 11.1623 6.144669E+00 -7.270268E+01 3.942368E+01 0 50 1.510220E+00 9.294730E+02 -1.027726E+02 2.776242E+01 1.5395 9.302191E+02 -1.035188E+02 5.168690E+02 0.0 5.163900E+00 -1.128772E+02 -5.720089E+00 -2.7678 5.440441E+00 -1.131537E+02 5.929707E+01 0 54 1.510220E+00 9.294769E+02 -1.027694E+02 2.777699E+01 1.5403 9.302238E+02 -1.035163E+02 5.168701E+02 0.0 5.169165E+00 -1.128750E+02 -5.719757E+00 -2.7676 5.445667E+00 -1.131515E+02 5.929860E+01 0 58 1.510220E+00 -4.228090E-02 5.281875E-02 8.979506E+01 45.0152 8.980035E+01 -8.978980E+01 8.979507E+01 0.0 4.596710E-04 5.627344E-02 -1.851348E+01 -45.0432 1.854186E+01 -1.848513E+01 1.851350E+01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.200696E+01 (CYCLIC FREQUENCY = 2.254705E-01 HZ) S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 62 1.510220E+00 -4.895809E-02 5.598685E-02 8.977144E+01 45.0167 8.977497E+01 -8.976794E+01 8.977145E+01 0.0 -7.279396E-03 5.630264E-02 -1.851784E+01 -45.0492 1.854237E+01 -1.849335E+01 1.851786E+01 0 66 1.510220E+00 -9.296722E+02 1.028669E+02 2.776058E+01 88.4610 1.036128E+02 -9.304180E+02 5.170154E+02 0.0 -5.192958E+00 1.129777E+02 -5.715561E+00 -87.2374 1.132535E+02 -5.468758E+00 5.936113E+01 0 70 1.510220E+00 -9.296622E+02 1.028638E+02 2.778544E+01 88.4596 1.036110E+02 -9.304094E+02 5.170102E+02 0.0 -5.179877E+00 1.129757E+02 -5.714626E+00 -87.2375 1.132514E+02 -5.455624E+00 5.935353E+01 0 74 1.510220E+00 -5.744465E+02 6.355655E+01 -7.266763E+01 -83.5836 7.172862E+01 -5.826186E+02 3.271736E+02 0.0 -3.204375E+00 6.981228E+01 1.498430E+01 78.8425 7.276770E+01 -6.159794E+00 3.946375E+01 0 78 1.510220E+00 -5.744471E+02 6.355659E+01 -7.268759E+01 -83.5819 7.173306E+01 -5.826237E+02 3.271783E+02 0.0 -3.202138E+00 6.981119E+01 1.497977E+01 78.8451 7.276501E+01 -6.155964E+00 3.946049E+01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.228891E+01 (CYCLIC FREQUENCY = 2.407876E-01 HZ) S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 2 1.510220E+00 -9.317251E+00 1.952325E+01 -3.391389E+00 -83.3828 1.991668E+01 -9.710682E+00 1.481368E+01 0.0 -5.118811E-02 1.943207E+01 -4.772182E+00 -76.9505 2.053817E+01 -1.157280E+00 1.084772E+01 0 6 1.510220E+00 -9.317182E+00 1.952280E+01 -3.392085E+00 -83.3814 1.991640E+01 -9.710777E+00 1.481359E+01 0.0 -5.117261E-02 1.943205E+01 -4.772913E+00 -76.9487 2.053846E+01 -1.157588E+00 1.084803E+01 0 10 1.510220E+00 -2.716768E+01 5.666193E+01 -3.056252E+00 -87.9148 5.677320E+01 -2.727896E+01 4.202608E+01 0.0 -1.497213E-01 5.639886E+01 -4.305798E+00 -85.6706 5.672485E+01 -4.757023E-01 2.860027E+01 0 14 1.510220E+00 -2.716756E+01 5.666157E+01 -3.056796E+00 -87.9144 5.677288E+01 -2.727888E+01 4.202588E+01 0.0 -1.496368E-01 5.639879E+01 -4.306448E+00 -85.6699 5.672486E+01 -4.757118E-01 2.860029E+01 0 18 1.510220E+00 -4.235827E+01 8.825633E+01 -2.427737E+00 -88.9355 8.830145E+01 -4.240339E+01 6.535242E+01 0.0 -2.335147E-01 8.784687E+01 -3.416803E+00 -87.7818 8.797922E+01 -3.658600E-01 4.417254E+01 0 22 1.510220E+00 -4.235814E+01 8.825452E+01 -2.428083E+00 -88.9354 8.829964E+01 -4.240326E+01 6.535145E+01 0.0 -2.333834E-01 8.784676E+01 -3.417327E+00 -87.7815 8.797914E+01 -3.657684E-01 4.417245E+01 0 26 1.510220E+00 -5.335112E+01 1.112080E+02 -1.562831E+00 -89.4559 1.112228E+02 -5.336596E+01 8.229440E+01 0.0 -2.941287E-01 1.106915E+02 -2.193089E+00 -88.8684 1.107348E+02 -3.374481E-01 5.553613E+01 0 30 1.510220E+00 -5.335094E+01 1.112062E+02 -1.563245E+00 -89.4558 1.112210E+02 -5.336578E+01 8.229340E+01 0.0 -2.939483E-01 1.106914E+02 -2.193451E+00 -88.8682 1.107347E+02 -3.372803E-01 5.553599E+01 0 34 1.510220E+00 -5.909879E+01 1.232713E+02 -5.405791E-01 -89.8302 1.232729E+02 -5.910039E+01 9.118662E+01 0.0 -3.259930E-01 1.226987E+02 -7.553790E-01 -89.6482 1.227033E+02 -3.306351E-01 6.151698E+01 0 38 1.510220E+00 -5.909819E+01 1.232705E+02 -5.411600E-01 -89.8300 1.232721E+02 -5.909979E+01 9.118597E+01 0.0 -3.253983E-01 1.226985E+02 -7.558006E-01 -89.6480 1.227032E+02 -3.300438E-01 6.151661E+01 0 42 1.510220E+00 -5.909996E+01 1.232722E+02 5.375404E-01 89.8311 1.232738E+02 -5.910155E+01 9.118768E+01 0.0 -3.262142E-01 1.226991E+02 7.555966E-01 89.6481 1.227037E+02 -3.308601E-01 6.151730E+01 0 46 1.510220E+00 -5.910020E+01 1.232715E+02 5.375702E-01 89.8311 1.232731E+02 -5.910178E+01 9.118744E+01 0.0 -3.264537E-01 1.226989E+02 7.553787E-01 89.6482 1.227036E+02 -3.310928E-01 6.151734E+01 0 50 1.510220E+00 -5.335324E+01 1.112085E+02 1.560103E+00 89.4569 1.112233E+02 -5.336803E+01 8.229565E+01 0.0 -2.946036E-01 1.106926E+02 2.193105E+00 88.8684 1.107359E+02 -3.379211E-01 5.553690E+01 0 54 1.510220E+00 -5.335307E+01 1.112078E+02 1.560209E+00 89.4568 1.112226E+02 -5.336786E+01 8.229521E+01 0.0 -2.944418E-01 1.106924E+02 2.193352E+00 88.8683 1.107357E+02 -3.377686E-01 5.553675E+01 0 58 1.510220E+00 -4.236049E+01 8.825817E+01 2.425261E+00 88.9367 8.830318E+01 -4.240550E+01 6.535434E+01 0.0 -2.338928E-01 8.784814E+01 3.416876E+00 87.7818 8.798050E+01 -3.662453E-01 4.417337E+01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.228891E+01 (CYCLIC FREQUENCY = 2.407876E-01 HZ) S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 1 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 62 1.510220E+00 -4.236030E+01 8.825693E+01 2.425831E+00 88.9364 8.830196E+01 -4.240533E+01 6.535365E+01 0.0 -2.337449E-01 8.784804E+01 3.417305E+00 87.7815 8.798042E+01 -3.661232E-01 4.417327E+01 0 66 1.510220E+00 -2.716907E+01 5.666352E+01 3.054881E+00 87.9158 5.677470E+01 -2.728024E+01 4.202747E+01 0.0 -1.500043E-01 5.639989E+01 4.305948E+00 85.6705 5.672589E+01 -4.759998E-01 2.860094E+01 0 70 1.510220E+00 -2.716890E+01 5.666261E+01 3.055169E+00 87.9156 5.677380E+01 -2.728009E+01 4.202694E+01 0.0 -1.498675E-01 5.639983E+01 4.306484E+00 85.6700 5.672590E+01 -4.759445E-01 2.860092E+01 0 74 1.510220E+00 -9.317866E+00 1.952422E+01 3.390936E+00 83.3840 1.991753E+01 -9.711172E+00 1.481435E+01 0.0 -5.148113E-02 1.943248E+01 4.772472E+00 76.9502 2.053866E+01 -1.157665E+00 1.084816E+01 0 78 1.510220E+00 -9.317472E+00 1.952392E+01 3.391609E+00 83.3826 1.991739E+01 -9.710941E+00 1.481416E+01 0.0 -5.121076E-02 1.943245E+01 4.773004E+00 76.9487 2.053889E+01 -1.157644E+00 1.084827E+01 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +Y,+X,-Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 1.153226E-01 ORIGIN 2 - X0 = -8.711188E-01, Y0 = -0.298235E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 3 MODAL DEFORM. 2 - SUBCASE 1 - MODE 9.942567E-01 - EIGENVALUE PLOT 4 MODAL DEFORM. 2 - SUBCASE 2 - MODE 1.274364E+00 - EIGENVALUE PLOT 5 MODAL DEFORM. 2 - SUBCASE 3 - MODE 2.006962E+00 - EIGENVALUE PLOT 6 MODAL DEFORM. 2 - SUBCASE 4 - MODE 2.288906E+00 - EIGENVALUE ORIGIN 2 USED IN THIS PLOT 1 SYMMETRIC BUCKLING OF A CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Y,+X,-Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 1.077510E-01 ORIGIN 2 - X0 = -8.711188E-01, Y0 = -0.298235E+01 (INCHES) ORIGIN 1 - X0 = -5.598906E-01, Y0 = -0.361539E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 7 MODAL DEFORM. 2 - SUBCASE 1 - MODE 9.942567E-01 - EIGENVALUE PLOT 8 MODAL DEFORM. 2 - SUBCASE 2 - MODE 1.274364E+00 - EIGENVALUE PLOT 9 MODAL DEFORM. 2 - SUBCASE 3 - MODE 2.006962E+00 - EIGENVALUE PLOT 10 MODAL DEFORM. 2 - SUBCASE 4 - MODE 2.288906E+00 - EIGENVALUE ORIGIN 1 USED IN THIS PLOT * * * END OF JOB * * * 1 JOB TITLE = SYMMETRIC BUCKLING OF A CYLINDER DATE: 5/17/95 END TIME: 15:48:29 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d05021a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D05021A,NASTRAN APP DISPLACEMENT SOL 5,0 TIME 10 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A 0 CONCENTRATED LOAD AT THE CENTER ALONG Y-AXIS 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A 3 LABEL = CONCENTRATED LOAD AT THE CENTER ALONG Y-AXIS 4 OUTPUT 5 DISP = ALL 6 ELSTRESS = ALL 7 SPC = 2 8 SUBCASE 1 9 LABEL = STATIC SOLUTION 10 LOAD = 3 11 OLOAD = ALL 12 SUBCASE 2 13 LABEL = BUCKLING SOLUTION 14 METHOD= 4 15 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 44, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A 0 CONCENTRATED LOAD AT THE CENTER ALONG Y-AXIS 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CTRSHL 1 6 1 2 3 5 7 4 +TR1 2- +TR1 3- CTRSHL 2 7 9 8 7 5 3 6 +TR2 4- +TR2 5- CTRSHL 3 8 7 8 9 11 13 10 +TR3 6- +TR3 7- CTRSHL 4 9 15 14 13 11 9 12 +TR4 8- +TR4 9- EIGB 4 INV .0 10.0 1 1 0 +ABC 10- +ABC MAX 11- FORCE 3 13 1.6666+2 -1.0 12- FORCE 3 14 6.6666+2 -1.0 13- FORCE 3 15 1.6666+2 -1.0 14- GRDSET 56 15- GRID 1 .0 .0 .0 16- GRID 2 17- GRID 3 1.495349.0 .0 18- GRID 4 19- GRID 5 20- GRID 6 21- GRID 7 .0 1.5 .0 22- GRID 8 23- GRID 9 1.2476741.5 .0 24- GRID 10 25- GRID 11 26- GRID 12 27- GRID 13 .0 3.0 .0 28- GRID 14 29- GRID 15 1.0 3.0 .0 30- MAT1 5 3.0+7 1.5+7 31- PTRSHL 6 5 2.990698 2.4953485 2.229135 +PT1 32- +PT1 1.294828 +PT2 33- +PT2 34- PTRSHL 7 5 2.495348 2.9906985 1.294828 +PT3 35- +PT3 2.229135 +PT4 36- +PT4 37- PTRSHL 8 5 2.495348 2.0 5 1.294828 +PT5 38- +PT5 .666667 +PT6 39- +PT6 40- PTRSHL 9 5 2.0 2.4953485 .666667 +PT7 41- +PT7 1.294828 +PT8 42- +PT8 43- SPC1 2 1 4 7 10 13 44- SPC1 2 1234 1 2 3 ENDDATA 1 BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A 0 CONCENTRATED LOAD AT THE CENTER ALONG Y-AXIS 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 7 PROFILE 72 MAX WAVEFRONT 7 AVG WAVEFRONT 4.800 RMS WAVEFRONT 5.086 RMS BANDWIDTH 5.138 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 7 PROFILE 69 MAX WAVEFRONT 7 AVG WAVEFRONT 4.600 RMS WAVEFRONT 4.865 RMS BANDWIDTH 4.892 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 7 7 PROFILE (P) 72 69 MAXIMUM WAVEFRONT (C-MAX) 7 7 AVERAGE WAVEFRONT (C-AVG) 4.800 4.600 RMS WAVEFRONT (C-RMS) 5.086 4.865 RMS BANDWITCH (B-RMS) 5.138 4.892 NUMBER OF GRID POINTS (N) 15 NUMBER OF ELEMENTS (NON-RIGID) 4 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 11 MINIMUM NODAL DEGREE 5 NUMBER OF UNIQUE EDGES 51 MATRIX DENSITY, PERCENT 52.000 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 4 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A 0 CONCENTRATED LOAD AT THE CENTER ALONG Y-AXIS S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 2 3 4 4 3 SEQGP 5 5 6 7 7 6 8 8 SEQGP 9 10 10 9 11 11 12 15 SEQGP 13 12 14 14 15 13 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRSHL ELEMENTS (ELEMENT TYPE 75) STARTING WITH ID 1 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK MGG MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK MGG MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 9.3527906E-16 1 BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A 0 STATIC SOLUTION SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 4 G 0.0 -5.992832E-06 0.0 0.0 0.0 0.0 5 G 3.807299E-07 -5.575588E-06 0.0 0.0 0.0 0.0 6 G 7.487714E-07 -5.337256E-06 0.0 0.0 0.0 0.0 7 G 0.0 -1.312869E-05 0.0 0.0 0.0 0.0 8 G 2.120722E-07 -1.226996E-05 0.0 0.0 0.0 0.0 9 G -2.428727E-08 -1.007003E-05 0.0 0.0 0.0 0.0 10 G 0.0 -2.223141E-05 0.0 0.0 0.0 0.0 11 G -7.072856E-08 -2.034450E-05 0.0 0.0 0.0 0.0 12 G -1.304273E-07 -1.810257E-05 0.0 0.0 0.0 0.0 13 G 0.0 -3.487301E-05 0.0 0.0 0.0 0.0 14 G -2.971972E-06 -3.098459E-05 0.0 0.0 0.0 0.0 15 G -5.150994E-06 -2.503208E-05 0.0 0.0 0.0 0.0 1 BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A 0 STATIC SOLUTION SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 13 G 0.0 -1.666600E+02 0.0 0.0 0.0 0.0 14 G 0.0 -6.666600E+02 0.0 0.0 0.0 0.0 15 G 0.0 -1.666600E+02 0.0 0.0 0.0 0.0 1 BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A 0 STATIC SOLUTION SUBCASE 1 S T R E S S E S I N T R I A N G U L A R T H I N S H E L L E L E M E N T S ( C T R S H L ) 0 ELEMENT POINT FIBER STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. NO. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 1 0.0 0.0 -2.168527E+02 0.0 0.0 0.0 -2.168527E+02 1.084263E+02 0.0 0.0 -2.168527E+02 0.0 0.0 0.0 -2.168527E+02 1.084263E+02 3 0.0 0.0 -1.834732E+02 1.522919E+01 4.712855E+00 1.255508E+00 -1.847287E+02 9.299212E+01 0.0 0.0 -1.834732E+02 1.522919E+01 4.712855E+00 1.255508E+00 -1.847287E+02 9.299212E+01 5 0.0 3.055312E+01 -3.082949E+02 1.674164E+01 2.821681E+00 3.137828E+01 -3.091201E+02 1.702492E+02 0.0 3.055312E+01 -3.082949E+02 1.674164E+01 2.821681E+00 3.137828E+01 -3.091201E+02 1.702492E+02 C 1.412791E+00 1.018437E+01 -2.362070E+02 1.065694E+01 2.472009E+00 1.064445E+01 -2.366671E+02 1.236557E+02 -1.412791E+00 1.018437E+01 -2.362070E+02 1.065694E+01 2.472009E+00 1.064445E+01 -2.366671E+02 1.236557E+02 0 2 1 0.0 -2.214884E+01 -1.544285E+02 3.651297E+01 1.445061E+01 -1.273951E+01 -1.638378E+02 7.554916E+01 0.0 -2.214884E+01 -1.544285E+02 3.651297E+01 1.445061E+01 -1.273951E+01 -1.638378E+02 7.554916E+01 3 0.0 2.098088E+01 -3.326553E+02 -2.478417E-01 -4.015503E-02 2.098103E+01 -3.326555E+02 1.768183E+02 0.0 2.098088E+01 -3.326553E+02 -2.478417E-01 -4.015503E-02 2.098103E+01 -3.326555E+02 1.768183E+02 5 0.0 3.598183E+01 -2.339383E+02 7.853348E+00 1.665147E+00 3.621014E+01 -2.341666E+02 1.351884E+02 0.0 3.598183E+01 -2.339383E+02 7.853348E+00 1.665147E+00 3.621014E+01 -2.341666E+02 1.351884E+02 C 1.330232E+00 1.160462E+01 -2.403408E+02 1.470619E+01 3.329316E+00 1.246014E+01 -2.411963E+02 1.268282E+02 -1.330232E+00 1.160462E+01 -2.403408E+02 1.470619E+01 3.329316E+00 1.246014E+01 -2.411963E+02 1.268282E+02 0 3 1 0.0 2.098087E+01 -2.933313E+02 4.523544E+00 8.243666E-01 2.104596E+01 -2.933964E+02 1.572212E+02 0.0 2.098087E+01 -2.933313E+02 4.523544E+00 8.243666E-01 2.104596E+01 -2.933964E+02 1.572212E+02 3 0.0 -2.214883E+01 -2.110770E+02 5.770906E+01 1.571059E+01 -5.916039E+00 -2.273098E+02 1.106969E+02 0.0 -2.214883E+01 -2.110770E+02 5.770906E+01 1.571059E+01 -5.916039E+00 -2.273098E+02 1.106969E+02 5 0.0 -6.218619E+00 -5.764418E+02 5.396814E+01 5.359289E+00 -1.155823E+00 -5.815046E+02 2.901744E+02 0.0 -6.218619E+00 -5.764418E+02 5.396814E+01 5.359289E+00 -1.155823E+00 -5.815046E+02 2.901744E+02 C 1.165116E+00 -2.462194E+00 -3.602833E+02 3.873361E+01 6.107920E+00 1.682663E+00 -3.644282E+02 1.830554E+02 -1.165116E+00 -2.462194E+00 -3.602833E+02 3.873361E+01 6.107920E+00 1.682663E+00 -3.644282E+02 1.830554E+02 0 4 1 0.0 -1.069529E+02 -1.859252E+02 5.115073E+01 2.616670E+01 -8.182048E+01 -2.110575E+02 6.461853E+01 0.0 -1.069529E+02 -1.859252E+02 5.115073E+01 2.616670E+01 -8.182048E+01 -2.110575E+02 6.461853E+01 3 0.0 -2.021068E+02 -5.236680E+02 4.223232E+00 7.523227E-01 -2.020514E+02 -5.237234E+02 1.608360E+02 0.0 -2.021068E+02 -5.236680E+02 4.223232E+00 7.523227E-01 -2.020514E+02 -5.237234E+02 1.608360E+02 5 0.0 1.473660E+02 -3.476870E+02 4.608984E+01 5.273887E+00 1.516205E+02 -3.519415E+02 2.517810E+02 0.0 1.473660E+02 -3.476870E+02 4.608984E+01 5.273887E+00 1.516205E+02 -3.519415E+02 2.517810E+02 C 1.082558E+00 -5.389786E+01 -3.524266E+02 3.382141E+01 6.383460E+00 -5.011406E+01 -3.562104E+02 1.530482E+02 -1.082558E+00 -5.389786E+01 -3.524266E+02 3.382141E+01 6.383460E+00 -5.011406E+01 -3.562104E+02 1.530482E+02 0 ROOTS BELOW 5.000000E+00 0 ROOTS BELOW 1.714400E+04 1 BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A 0 CONCENTRATED LOAD AT THE CENTER ALONG Y-AXIS E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 1 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 2 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 12 0 REASON FOR TERMINATION . . . . . . . . . . . 7* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 1 OR MORE ROOT OUTSIDE FR.RANGE. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A 0 CONCENTRATED LOAD AT THE CENTER ALONG Y-AXIS R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3308, LOWEST EIGENVALUE FOUND * * AS INDICATED BY THE STURM'S SEQUENCE OF THE DYNAMIC MATRIX * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 1 1.714425E+04 1.309360E+02 2.083912E+01 0.0 0.0 1 BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.171442E+05 (CYCLIC FREQUENCY = 2.083912E+01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 4 G 0.0 3.300937E-15 5.489956E-02 1.487820E-01 0.0 0.0 5 G -2.809953E-15 -1.879220E-16 5.599702E-02 1.489336E-01 0.0 0.0 6 G -4.282085E-15 -1.694891E-15 5.622306E-02 1.539915E-01 0.0 0.0 7 G 0.0 1.064478E-14 2.308899E-01 3.299996E-01 0.0 0.0 8 G -4.639889E-15 1.652585E-15 2.311183E-01 3.248821E-01 0.0 0.0 9 G -8.322388E-15 -4.812174E-15 2.310203E-01 3.040076E-01 0.0 0.0 10 G 0.0 1.690316E-14 5.543922E-01 5.289490E-01 0.0 0.0 11 G 5.476993E-15 6.433272E-15 5.553837E-01 5.377403E-01 0.0 0.0 12 G 1.093953E-14 -1.604526E-14 5.563720E-01 5.331293E-01 0.0 0.0 13 G 0.0 2.000533E-14 1.000000E+00 6.190717E-01 0.0 0.0 14 G 1.317487E-14 7.085228E-15 9.983684E-01 6.228292E-01 0.0 0.0 15 G 2.264062E-14 -1.258609E-14 9.993376E-01 6.217160E-01 0.0 0.0 1 BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.171442E+05 (CYCLIC FREQUENCY = 2.083912E+01 HZ) S T R E S S E S I N T R I A N G U L A R T H I N S H E L L E L E M E N T S ( C T R S H L ) 0 ELEMENT POINT FIBER STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. NO. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 1 0.0 0.0 5.117947E-08 0.0 9.000000E+01 5.117947E-08 0.0 2.558973E-08 0.0 0.0 5.117947E-08 0.0 9.000000E+01 5.117947E-08 0.0 2.558973E-08 3 0.0 0.0 -2.279293E-07 -1.123981E-07 -2.230175E+01 4.610182E-08 -2.740311E-07 1.600664E-07 0.0 0.0 -2.279293E-07 -1.123981E-07 -2.230175E+01 4.610182E-08 -2.740311E-07 1.600664E-07 5 0.0 -2.254954E-07 3.746116E-07 -1.399884E-07 -7.749442E+01 4.056606E-07 -2.565444E-07 3.311025E-07 0.0 -2.254954E-07 3.746116E-07 -1.399884E-07 -7.749442E+01 4.056606E-07 -2.565444E-07 3.311025E-07 C 1.412791E+00 1.141763E+04 -8.502552E+06 -1.238360E+05 -8.331341E-01 1.321850E+04 -8.504352E+06 4.258786E+06 -1.412791E+00 -1.141763E+04 8.502552E+06 1.238360E+05 8.916686E+01 8.504352E+06 -1.321850E+04 4.258786E+06 0 2 1 0.0 -1.540691E-07 -1.944373E-07 -2.161656E-07 -4.233279E+01 4.285266E-08 -3.913592E-07 2.171059E-07 0.0 -1.540691E-07 -1.944373E-07 -2.161656E-07 -4.233279E+01 4.285266E-08 -3.913592E-07 2.171059E-07 3 0.0 -2.461501E-07 1.620482E-07 -2.568959E-07 -6.423325E+01 2.860527E-07 -3.701545E-07 3.281036E-07 0.0 -2.461501E-07 1.620482E-07 -2.568959E-07 -6.423325E+01 2.860527E-07 -3.701545E-07 3.281036E-07 5 0.0 5.852144E-08 -1.912653E-09 3.013164E-08 2.245946E+01 7.097740E-08 -1.436862E-08 4.267301E-08 0.0 5.852144E-08 -1.912653E-09 3.013164E-08 2.245946E+01 7.097740E-08 -1.436862E-08 4.267301E-08 C 1.330232E+00 -2.427988E+05 -9.202873E+06 -3.868189E+05 -2.467419E+00 -2.261305E+05 -9.219542E+06 4.496706E+06 -1.330232E+00 2.427988E+05 9.202873E+06 3.868189E+05 8.753259E+01 9.219542E+06 2.261305E+05 4.496706E+06 0 3 1 0.0 -2.461501E-07 3.134599E-07 -2.466006E-07 -6.930465E+01 4.066196E-07 -3.393099E-07 3.729648E-07 0.0 -2.461501E-07 3.134599E-07 -2.466006E-07 -6.930465E+01 4.066196E-07 -3.393099E-07 3.729648E-07 3 0.0 -1.540692E-07 1.952440E-07 2.796175E-07 6.099500E+01 3.502703E-07 -3.090956E-07 3.296830E-07 0.0 -1.540692E-07 1.952440E-07 2.796175E-07 6.099500E+01 3.502703E-07 -3.090956E-07 3.296830E-07 5 0.0 7.268812E-07 6.096218E-08 -3.176625E-07 -2.182657E+01 8.541081E-07 -6.626465E-08 4.601864E-07 0.0 7.268812E-07 6.096218E-08 -3.176625E-07 -2.182657E+01 8.541081E-07 -6.626465E-08 4.601864E-07 C 1.165116E+00 2.815825E+05 -9.590976E+06 -1.433773E+05 -8.318617E-01 2.836645E+05 -9.593058E+06 4.938361E+06 -1.165116E+00 -2.815825E+05 9.590976E+06 1.433773E+05 8.916814E+01 9.593058E+06 -2.836645E+05 4.938361E+06 0 4 1 0.0 4.566724E-07 2.038867E-07 -4.952920E-07 -3.784215E+01 8.414442E-07 -1.808851E-07 5.111647E-07 0.0 4.566724E-07 2.038867E-07 -4.952920E-07 -3.784215E+01 8.414442E-07 -1.808851E-07 5.111647E-07 3 0.0 9.017651E-07 1.130778E-07 -2.136017E-07 -1.422140E+01 9.558996E-07 5.894339E-08 4.484781E-07 0.0 9.017651E-07 1.130778E-07 -2.136017E-07 -1.422140E+01 9.558996E-07 5.894339E-08 4.484781E-07 5 0.0 -2.371428E-08 -1.027116E-06 -4.009517E-07 -1.931566E+01 1.168200E-07 -1.167650E-06 6.422351E-07 0.0 -2.371428E-08 -1.027116E-06 -4.009517E-07 -1.931566E+01 1.168200E-07 -1.167650E-06 6.422351E-07 C 1.082558E+00 -3.133684E+05 -4.851619E+06 -2.431370E+04 -3.069506E-01 -3.132382E+05 -4.851749E+06 2.269256E+06 -1.082558E+00 3.133684E+05 4.851619E+06 2.431370E+04 8.969305E+01 4.851749E+06 3.132382E+05 2.269256E+06 * * * END OF JOB * * * 1 JOB TITLE = BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE DATE: 5/17/95 END TIME: 15:49:16 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d06011a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D06011A,NASTRAN APP DISPLACEMENT TIME 100 SOL 6,1 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 3 MAXLINES = 50000 4 $ ECHO = NONE 5 SPC = 10 6 LOAD = 600 7 PLCOEFFICIENT = 23 8 OUTPUT 9 $ 10 SET 1 = 1 THRU 26,42,43,50,77,107,137,167,195,222,249,272,293,341,347, 11 348 12 SET 2 = 1 THRU 36, 196, 200 13 $ 14 DISPLACEMENT = 2 15 OLOAD = ALL 16 SPCFORCE = ALL 17 STRESS = 1 18 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 670, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CTRMEM 1 1 7 8 9 2- CTRMEM 2 1 8 12 9 3- CTRMEM 3 1 9 10 12 4- CTRMEM 4 1 10 11 12 5- CTRMEM 5 1 12 13 11 6- CTRMEM 6 1 13 14 11 7- CTRMEM 7 1 15 16 1 8- CTRMEM 8 1 1 2 16 9- CTRMEM 9 1 16 17 2 10- CTRMEM 10 1 2 3 17 11- CTRMEM 11 1 17 18 3 12- CTRMEM 12 1 3 4 18 13- CTRMEM 13 1 18 19 4 14- CTRMEM 14 1 19 20 4 15- CTRMEM 15 1 4 5 20 16- CTRMEM 16 1 5 6 20 17- CTRMEM 17 1 20 21 6 18- CTRMEM 18 1 21 22 6 19- CTRMEM 19 1 6 7 22 20- CTRMEM 20 1 7 22 9 90.0 21- CTRMEM 21 1 22 23 9 22- CTRMEM 22 1 9 10 23 23- CTRMEM 23 1 10 11 23 24- CTRMEM 24 1 23 24 11 25- CTRMEM 25 1 14 24 11 90.0 26- CTRMEM 26 1 14 26 24 27- CTRMEM 27 1 24 25 26 28- CTRMEM 28 1 15 16 27 29- CTRMEM 29 1 27 28 16 30- CTRMEM 30 1 16 17 28 31- CTRMEM 31 1 28 29 17 32- CTRMEM 32 1 17 18 29 33- CTRMEM 33 1 29 30 18 34- CTRMEM 34 1 18 19 30 35- CTRMEM 35 1 19 20 30 36- CTRMEM 36 1 30 31 20 37- CTRMEM 37 1 31 32 20 38- CTRMEM 38 1 20 21 32 39- CTRMEM 39 1 21 22 32 40- CTRMEM 40 1 32 33 22 41- CTRMEM 41 1 33 34 22 42- CTRMEM 42 1 22 23 34 43- CTRMEM 43 1 23 24 34 44- CTRMEM 44 1 34 35 24 45- CTRMEM 45 1 35 36 24 46- CTRMEM 46 1 24 25 36 47- CTRMEM 47 1 25 38 36 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CTRMEM 48 1 36 37 38 49- CTRMEM 49 1 25 38 26 50- CTRMEM 50 1 26 39 38 51- CTRMEM 51 1 40 41 27 52- CTRMEM 52 1 27 28 41 53- CTRMEM 53 1 41 42 28 54- CTRMEM 54 1 28 29 42 55- CTRMEM 55 1 42 43 29 56- CTRMEM 56 1 29 30 43 57- CTRMEM 57 1 43 44 30 58- CTRMEM 58 1 44 45 30 59- CTRMEM 59 1 30 31 45 60- CTRMEM 60 1 31 32 45 61- CTRMEM 61 1 45 46 32 62- CTRMEM 62 1 46 47 32 63- CTRMEM 63 1 32 33 47 64- CTRMEM 64 1 33 34 47 65- CTRMEM 65 1 47 48 34 66- CTRMEM 66 1 48 49 34 67- CTRMEM 67 1 34 35 49 68- CTRMEM 68 1 35 36 49 69- CTRMEM 69 1 49 50 36 70- CTRMEM 70 1 50 51 36 71- CTRMEM 71 1 36 37 51 72- CTRMEM 72 1 37 53 51 73- CTRMEM 73 1 51 52 53 74- CTRMEM 74 1 37 53 38 75- CTRMEM 75 1 38 54 53 76- CTRMEM 76 1 38 54 55 77- CTRMEM 77 1 39 55 38 78- CTRMEM 78 1 40 41 56 79- CTRMEM 79 1 56 57 41 80- CTRMEM 80 1 41 42 57 81- CTRMEM 81 1 57 58 42 82- CTRMEM 82 1 42 43 58 83- CTRMEM 83 1 58 59 43 84- CTRMEM 84 1 43 44 59 85- CTRMEM 85 1 44 45 59 86- CTRMEM 86 1 59 60 45 87- CTRMEM 87 1 60 61 45 88- CTRMEM 88 1 45 46 61 89- CTRMEM 89 1 46 47 61 90- CTRMEM 90 1 61 62 47 91- CTRMEM 91 1 62 63 47 92- CTRMEM 92 1 47 48 63 93- CTRMEM 93 1 48 49 63 94- CTRMEM 94 1 63 64 49 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CTRMEM 95 1 64 65 49 96- CTRMEM 96 1 49 50 65 97- CTRMEM 97 1 50 51 65 98- CTRMEM 98 1 65 66 51 99- CTRMEM 99 1 66 67 51 100- CTRMEM 100 1 51 52 67 101- CTRMEM 101 1 52 69 67 102- CTRMEM 102 1 67 68 69 103- CTRMEM 103 1 52 69 53 104- CTRMEM 104 1 70 69 53 90.0 105- CTRMEM 105 1 54 70 53 106- CTRMEM 106 1 54 70 55 107- CTRMEM 107 1 55 71 70 108- CTRMEM 108 1 72 73 56 109- CTRMEM 109 1 56 57 73 110- CTRMEM 110 1 73 74 57 111- CTRMEM 111 1 57 58 74 112- CTRMEM 112 1 74 75 58 113- CTRMEM 113 1 58 59 75 114- CTRMEM 114 1 75 76 59 115- CTRMEM 115 1 59 60 76 116- CTRMEM 116 1 60 61 76 117- CTRMEM 117 1 76 77 61 118- CTRMEM 118 1 77 78 61 119- CTRMEM 119 1 61 62 78 120- CTRMEM 120 1 62 63 78 121- CTRMEM 121 1 78 79 63 122- CTRMEM 122 1 79 80 63 123- CTRMEM 123 1 63 64 80 124- CTRMEM 124 1 64 65 80 125- CTRMEM 125 1 80 81 65 126- CTRMEM 126 1 81 82 65 127- CTRMEM 127 1 65 66 82 128- CTRMEM 128 1 66 67 82 129- CTRMEM 129 1 82 83 67 130- CTRMEM 130 1 83 84 67 131- CTRMEM 131 1 67 68 84 132- CTRMEM 132 1 68 85 84 133- CTRMEM 133 1 68 85 69 134- CTRMEM 134 1 86 85 69 90.0 135- CTRMEM 135 1 70 69 86 90.0 136- CTRMEM 136 1 87 86 70 90.0 137- CTRMEM 137 1 71 87 70 138- CTRMEM 138 1 72 73 88 139- CTRMEM 139 1 88 89 73 140- CTRMEM 140 1 73 74 89 141- CTRMEM 141 1 89 90 74 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CTRMEM 142 1 74 75 90 143- CTRMEM 143 1 90 91 75 144- CTRMEM 144 1 75 76 91 145- CTRMEM 145 1 91 92 76 146- CTRMEM 146 1 76 77 92 147- CTRMEM 147 1 77 78 92 148- CTRMEM 148 1 92 93 78 149- CTRMEM 149 1 93 94 78 150- CTRMEM 150 1 78 79 94 151- CTRMEM 151 1 79 80 94 152- CTRMEM 152 1 94 95 80 153- CTRMEM 153 1 95 96 80 154- CTRMEM 154 1 80 81 96 155- CTRMEM 155 1 81 82 96 156- CTRMEM 156 1 96 97 82 157- CTRMEM 157 1 97 98 82 158- CTRMEM 158 1 82 83 98 159- CTRMEM 159 1 83 84 98 160- CTRMEM 160 1 98 99 84 161- CTRMEM 161 1 85 99 84 90.0 162- CTRMEM 162 1 85 99 100 90.0 163- CTRMEM 163 1 101 100 85 90.0 164- CTRMEM 164 1 86 85 101 90.0 165- CTRMEM 165 1 102 101 86 90.0 166- CTRMEM 166 1 86 87 102 90.0 167- CTRMEM 167 1 87 103 102 168- CTRMEM 168 1 104 105 88 169- CTRMEM 169 1 88 89 105 170- CTRMEM 170 1 105 106 89 171- CTRMEM 171 1 89 90 106 172- CTRMEM 172 1 106 107 90 173- CTRMEM 173 1 90 91 107 174- CTRMEM 174 1 107 108 91 175- CTRMEM 175 1 91 92 108 176- CTRMEM 176 1 108 109 92 177- CTRMEM 177 1 92 93 109 178- CTRMEM 178 1 93 94 109 179- CTRMEM 179 1 109 110 94 180- CTRMEM 180 1 94 95 110 181- CTRMEM 181 1 95 96 110 182- CTRMEM 182 1 110 111 96 183- CTRMEM 183 1 96 97 111 184- CTRMEM 184 1 97 98 111 185- CTRMEM 185 1 111 112 98 186- CTRMEM 186 1 98 99 112 187- CTRMEM 187 1 112 113 99 188- CTRMEM 188 1 100 113 99 90.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CTRMEM 189 1 100 113 114 90.0 190- CTRMEM 190 1 115 114 100 90.0 191- CTRMEM 191 1 101 100 115 90.0 192- CTRMEM 192 1 116 115 101 90.0 193- CTRMEM 193 1 102 101 116 90.0 194- CTRMEM 194 1 116 117 102 90.0 195- CTRMEM 195 1 103 117 102 196- CTRMEM 196 1 104 105 118 197- CTRMEM 197 1 118 119 105 198- CTRMEM 198 1 105 106 119 199- CTRMEM 199 1 119 120 106 200- CTRMEM 200 1 106 107 120 201- CTRMEM 201 1 120 121 107 202- CTRMEM 202 1 107 108 121 203- CTRMEM 203 1 121 122 108 204- CTRMEM 204 1 108 109 122 205- CTRMEM 205 1 122 123 109 206- CTRMEM 206 1 109 110 123 207- CTRMEM 207 1 123 124 110 208- CTRMEM 208 1 110 111 124 209- CTRMEM 209 1 124 125 111 210- CTRMEM 210 1 111 112 125 211- CTRMEM 211 1 125 126 112 212- CTRMEM 212 1 112 113 126 213- CTRMEM 213 1 126 127 113 214- CTRMEM 214 1 114 127 113 90.0 215- CTRMEM 215 1 114 129 127 216- CTRMEM 216 1 127 128 129 217- CTRMEM 217 1 114 129 115 218- CTRMEM 218 1 115 130 129 219- CTRMEM 219 1 115 130 131 220- CTRMEM 220 1 116 131 115 221- CTRMEM 221 1 116 131 117 222- CTRMEM 222 1 117 132 131 223- CTRMEM 223 1 118 119 133 224- CTRMEM 224 1 133 134 119 225- CTRMEM 225 1 134 135 119 226- CTRMEM 226 1 119 120 135 227- CTRMEM 227 1 120 121 135 228- CTRMEM 228 1 135 136 121 229- CTRMEM 229 1 136 137 121 230- CTRMEM 230 1 121 122 137 231- CTRMEM 231 1 122 123 137 232- CTRMEM 232 1 137 138 123 233- CTRMEM 233 1 138 139 123 234- CTRMEM 234 1 123 124 139 235- CTRMEM 235 1 124 125 139 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- CTRMEM 236 1 139 140 125 237- CTRMEM 237 1 140 141 125 238- CTRMEM 238 1 125 126 141 239- CTRMEM 239 1 126 127 141 240- CTRMEM 240 1 141 142 127 241- CTRMEM 241 1 142 143 127 242- CTRMEM 242 1 127 128 143 243- CTRMEM 243 1 128 144 143 244- CTRMEM 244 1 128 144 129 245- CTRMEM 245 1 145 144 129 90.0 246- CTRMEM 246 1 130 145 129 247- CTRMEM 247 1 130 145 131 248- CTRMEM 248 1 146 145 131 90.0 249- CTRMEM 249 1 132 146 131 250- CTRMEM 250 1 147 148 133 251- CTRMEM 251 1 133 134 148 252- CTRMEM 252 1 134 135 148 253- CTRMEM 253 1 148 149 135 254- CTRMEM 254 1 135 136 149 255- CTRMEM 255 1 136 137 149 256- CTRMEM 256 1 149 150 137 257- CTRMEM 257 1 137 138 150 258- CTRMEM 258 1 138 139 150 259- CTRMEM 259 1 150 151 139 260- CTRMEM 260 1 139 140 151 261- CTRMEM 261 1 140 141 151 262- CTRMEM 262 1 151 152 141 263- CTRMEM 263 1 141 142 152 264- CTRMEM 264 1 142 143 152 265- CTRMEM 265 1 152 153 143 266- CTRMEM 266 1 144 153 143 90.0 267- CTRMEM 267 1 153 154 144 268- CTRMEM 268 1 144 155 154 269- CTRMEM 269 1 144 155 156 270- CTRMEM 270 1 145 156 144 271- CTRMEM 271 1 145 156 146 272- CTRMEM 272 1 146 157 156 273- CTRMEM 273 1 147 148 158 274- CTRMEM 274 1 158 159 148 275- CTRMEM 275 1 148 149 159 276- CTRMEM 276 1 159 160 149 277- CTRMEM 277 1 149 150 160 278- CTRMEM 278 1 160 161 150 279- CTRMEM 279 1 150 151 161 280- CTRMEM 280 1 161 162 151 281- CTRMEM 281 1 151 152 162 282- CTRMEM 282 1 162 163 152 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- CTRMEM 283 1 152 153 163 284- CTRMEM 284 1 163 164 153 285- CTRMEM 285 1 153 154 164 286- CTRMEM 286 1 164 165 154 287- CTRMEM 287 1 154 166 165 288- CTRMEM 288 1 154 166 167 289- CTRMEM 289 1 155 167 154 290- CTRMEM 290 1 155 167 156 291- CTRMEM 291 1 156 168 167 292- CTRMEM 292 1 156 168 169 293- CTRMEM 293 1 157 169 156 294- CTRMEM 294 1 170 171 158 295- CTRMEM 295 1 158 159 171 296- CTRMEM 296 1 159 160 171 297- CTRMEM 297 1 171 172 160 298- CTRMEM 298 1 172 173 160 299- CTRMEM 299 1 160 161 173 300- CTRMEM 300 1 161 162 173 301- CTRMEM 301 1 173 174 162 302- CTRMEM 302 1 174 175 162 303- CTRMEM 303 1 162 163 175 304- CTRMEM 304 1 163 164 175 305- CTRMEM 305 1 175 176 164 306- CTRMEM 306 1 176 177 164 307- CTRMEM 307 1 164 165 177 308- CTRMEM 308 1 170 171 178 309- CTRMEM 309 1 178 179 171 310- CTRMEM 310 1 171 172 179 311- CTRMEM 311 1 179 180 172 312- CTRMEM 312 1 172 173 180 313- CTRMEM 313 1 173 174 180 314- CTRMEM 314 1 180 181 174 315- CTRMEM 315 1 174 175 181 316- CTRMEM 316 1 181 182 175 317- CTRMEM 317 1 175 176 182 318- CTRMEM 318 1 182 183 176 319- CTRMEM 319 1 176 177 183 320- CTRMEM 320 1 184 185 178 321- CTRMEM 321 1 178 179 185 322- CTRMEM 322 1 179 180 185 323- CTRMEM 323 1 185 186 180 324- CTRMEM 324 1 186 187 180 325- CTRMEM 325 1 180 181 187 326- CTRMEM 326 1 181 182 187 327- CTRMEM 327 1 187 188 182 328- CTRMEM 328 1 188 189 182 329- CTRMEM 329 1 182 183 189 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- CTRMEM 330 1 184 185 190 331- CTRMEM 331 1 190 191 185 332- CTRMEM 332 1 191 192 185 333- CTRMEM 333 1 185 186 192 334- CTRMEM 334 1 186 187 192 335- CTRMEM 335 1 192 193 187 336- CTRMEM 336 1 193 194 187 337- CTRMEM 337 1 187 188 194 338- CTRMEM 338 1 188 189 194 339- CTRMEM 339 1 194 195 189 340- CTRMEM 340 1 190 191 196 341- CTRMEM 341 1 196 197 191 342- CTRMEM 342 1 191 192 197 343- CTRMEM 343 1 197 198 192 344- CTRMEM 344 1 192 193 198 345- CTRMEM 345 1 198 199 193 346- CTRMEM 346 1 193 194 199 347- CTRMEM 347 1 199 200 194 348- CTRMEM 348 1 194 195 200 349- FORCE 600 196 100. 0.0 .375 350- FORCE 600 197 100. 0.0 .75 351- FORCE 600 198 100. 0.0 .75 352- FORCE 600 199 100. 0.0 .75 353- FORCE 600 200 100. 0.0 .375 354- GRDSET 3456 355- GRID 1 0.0 0.0 356- GRID 2 .2 .0 357- GRID 3 .4 .0 358- GRID 4 .6 .0 359- GRID 5 .7 .0 360- GRID 6 .8 .0 361- GRID 7 .9 .0 362- GRID 8 .95 .0 363- GRID 9 .95 .05 364- GRID 10 1.0 .05 365- GRID 11 1.05 .05 366- GRID 12 1.0 .0 367- GRID 13 1.05 .0 368- GRID 14 1.1 .0 369- GRID 15 .0 .1 370- GRID 16 .1 .1 371- GRID 17 .3 .1 372- GRID 18 .5 .1 373- GRID 19 .6 .1 374- GRID 20 .7 .1 375- GRID 21 .8 .1 376- GRID 22 .9 .1 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- GRID 23 1.0 .1 378- GRID 24 1.1 .1 379- GRID 25 1.2 .1 380- GRID 26 1.2 .0 381- GRID 27 .0 .2 382- GRID 28 .2 .2 383- GRID 29 .4 .2 384- GRID 30 .6 .2 385- GRID 31 .7 .2 386- GRID 32 .8 .2 387- GRID 33 .9 .2 388- GRID 34 1.0 .2 389- GRID 35 1.1 .2 390- GRID 36 1.2 .2 391- GRID 37 1.3 .2 392- GRID 38 1.3 .1 393- GRID 39 1.3 .0 394- GRID 40 .0 .3 395- GRID 41 .1 .3 396- GRID 42 .3 .3 397- GRID 43 .5 .3 398- GRID 44 .6 .3 399- GRID 45 .7 .3 400- GRID 46 .8 .3 401- GRID 47 .9 .3 402- GRID 48 1.0 .3 403- GRID 49 1.1 .3 404- GRID 50 1.2 .3 405- GRID 51 1.3 .3 406- GRID 52 1.4 .3 407- GRID 53 1.4 .2 408- GRID 54 1.4 .1 409- GRID 55 1.4 .0 410- GRID 56 .0 .4 411- GRID 57 .2 .4 412- GRID 58 .4 .4 413- GRID 59 .6 .4 414- GRID 60 .7 .4 415- GRID 61 .8 .4 416- GRID 62 .9 .4 417- GRID 63 1.0 .4 418- GRID 64 1.1 .4 419- GRID 65 1.2 .4 420- GRID 66 1.3 .4 421- GRID 67 1.4 .4 422- GRID 68 1.5 .4 423- GRID 69 1.5 .3 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- GRID 70 1.5 .1 425- GRID 71 1.5 .0 426- GRID 72 .0 .5 427- GRID 73 .1 .5 428- GRID 74 .3 .5 429- GRID 75 .5 .5 430- GRID 76 .7 .5 431- GRID 77 .8 .5 432- GRID 78 .9 .5 433- GRID 79 1.0 .5 434- GRID 80 1.1 .5 435- GRID 81 1.2 .5 436- GRID 82 1.3 .5 437- GRID 83 1.4 .5 438- GRID 84 1.5 .5 439- GRID 85 1.6 .4 440- GRID 86 1.6 .2 441- GRID 87 1.6 .0 442- GRID 88 .0 .6 443- GRID 89 .2 .6 444- GRID 90 .4 .6 445- GRID 91 .6 .6 446- GRID 92 .8 .6 447- GRID 93 .9 .6 448- GRID 94 1.0 .6 449- GRID 95 1.1 .6 450- GRID 96 1.2 .6 451- GRID 97 1.3 .6 452- GRID 98 1.4 .6 453- GRID 99 1.6 .6 454- GRID 100 1.7 .5 455- GRID 101 1.7 .3 456- GRID 102 1.7 .1 457- GRID 103 1.7 .0 458- GRID 104 .0 .7 459- GRID 105 .1 .7 460- GRID 106 .3 .7 461- GRID 107 .5 .7 462- GRID 108 .7 .7 463- GRID 109 .9 .7 464- GRID 110 1.1 .7 465- GRID 111 1.3 .7 466- GRID 112 1.5 .7 467- GRID 113 1.7 .7 468- GRID 114 1.8 .6 469- GRID 115 1.8 .4 470- GRID 116 1.8 .2 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- GRID 117 1.8 .0 472- GRID 118 .0 .8 473- GRID 119 .2 .8 474- GRID 120 .4 .8 475- GRID 121 .6 .8 476- GRID 122 .8 .8 477- GRID 123 1.0 .8 478- GRID 124 1.2 .8 479- GRID 125 1.4 .8 480- GRID 126 1.6 .8 481- GRID 127 1.8 .8 482- GRID 128 2.0 .8 483- GRID 129 2.0 .6 484- GRID 130 2.0 .4 485- GRID 131 2.0 .2 486- GRID 132 2.0 .0 487- GRID 133 .0 1.0 488- GRID 134 .2 1.0 489- GRID 135 .4 1.0 490- GRID 136 .6 1.0 491- GRID 137 .8 1.0 492- GRID 138 1.0 1.0 493- GRID 139 1.2 1.0 494- GRID 140 1.4 1.0 495- GRID 141 1.6 1.0 496- GRID 142 1.8 1.0 497- GRID 143 2.0 1.0 498- GRID 144 2.2 .8 499- GRID 145 2.2 .4 500- GRID 146 2.2 .0 501- GRID 147 .0 1.2 502- GRID 148 .2 1.2 503- GRID 149 .6 1.2 504- GRID 150 1.0 1.2 505- GRID 151 1.4 1.2 506- GRID 152 1.8 1.2 507- GRID 153 2.2 1.2 508- GRID 154 2.6 1.2 509- GRID 155 2.6 .8 510- GRID 156 2.6 .4 511- GRID 157 2.6 .0 512- GRID 158 .0 1.6 513- GRID 159 .4 1.6 514- GRID 160 .8 1.6 515- GRID 161 1.2 1.6 516- GRID 162 1.6 1.6 517- GRID 163 2.0 1.6 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- GRID 164 2.5 1.6 519- GRID 165 3.0 1.6 520- GRID 166 3.0 1.2 521- GRID 167 3.0 .8 522- GRID 168 3.0 .4 523- GRID 169 3.0 .0 524- GRID 170 .0 2.1 525- GRID 171 .4 2.1 526- GRID 172 .8 2.1 527- GRID 173 1.2 2.1 528- GRID 174 1.6 2.1 529- GRID 175 2.0 2.1 530- GRID 176 2.5 2.1 531- GRID 177 3.0 2.1 532- GRID 178 .0 2.6 533- GRID 179 .6 2.6 534- GRID 180 1.2 2.6 535- GRID 181 1.8 2.6 536- GRID 182 2.4 2.6 537- GRID 183 3.0 2.6 538- GRID 184 .0 3.2 539- GRID 185 .6 3.2 540- GRID 186 1.2 3.2 541- GRID 187 1.8 3.2 542- GRID 188 2.4 3.2 543- GRID 189 3.0 3.2 544- GRID 190 .0 3.8 545- GRID 191 .6 3.8 546- GRID 192 1.2 3.8 547- GRID 193 1.8 3.8 548- GRID 194 2.4 3.8 549- GRID 195 3.0 3.8 550- GRID 196 .0 4.5 551- GRID 197 .75 4.5 552- GRID 198 1.5 4.5 553- GRID 199 2.25 4.5 554- GRID 200 3.0 4.5 555- LOAD 2300 23. 1.0 600 556- MAT1 60 10.8+6 .3333 +M1 557- +M1 11.5+3 11.5+3 558- MATS1 60 101 559- PLFACT 23 23. 25. 28. 31. 34. 37. 40. +A-PLF 560- +A-PLF 44. 48. 52. 56. 60. 65. 70. 75. +B-PLF 561- +B-PLF 80. 85. 90. 95. 100. 105. 110. 115. +C-PLF 562- +C-PLF 120. 125. 130. 563- PTRMEM 1 60 1.0 564- SPC1 10 1 1 15 27 40 56 72 + SPC1-1 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 565- + SPC1-188 104 118 133 147 158 170 178 + SPC2-1 566- + SPC2-1184 190 196 567- SPC1 10 2 12 13 14 26 39 55 + SPC1-2 568- + SPC1-271 87 103 117 132 146 157 169 569- TABLES1 101 *TAB100 570- *TAB100 -8.4495168E-02 -3.4765000E04 -8.2418240E-02 -3.453E04 *TAB101 571- *TAB101 -8.0372998E-02 -3.4295000E04 -7.8359272E-02 -3.406E04 *TAB102 572- *TAB102 -7.6376893E-02 -3.3825000E04 -7.4425689E-02 -3.359E04 *TAB103 573- *TAB103 -7.2505489E-02 -3.3355000E04 -7.0616119E-02 -3.312E04 *TAB104 574- *TAB104 -6.8757406E-02 -3.2885000E04 -6.6929175E-02 -3.265E04 *TAB105 575- *TAB105 -6.5131251E-02 -3.2415000E04 -6.3363456E-02 -3.218E04 *TAB106 576- *TAB106 -6.1625615E-02 -3.1945000E04 -5.9917548E-02 -3.171E04 *TAB107 577- *TAB107 -5.8239075E-02 -3.1475000E04 -5.65918E-02 -3.124E04 *TAB108 578- *TAB108 -5.497193E-02 -3.1005000E04 -5.3379419E-02 -3.077E04 *TAB109 579- *TAB109 -5.1817513E-02 -3.0535000E04 -5.0284289E-02 -3.030E04 *TAB110 580- *TAB110 -4.8779562E-02 -3.0065000E04 -4.7303146E-02 -2.983E04 *TAB111 581- *TAB111 -4.5854852E-02 -2.9595000E04 -4.4434491E-02 -2.936E04 *TAB112 582- *TAB112 -4.3041873E-02 -2.9125000E04 -4.1676807E-02 -2.889E04 *TAB113 583- *TAB113 -4.0339100E-02 -2.8655000E04 -3.9028558E-02 -2.842E04 *TAB114 584- *TAB114 -3.7744987E-02 -2.8185000E04 -3.6488188E-02 -2.795E04 *TAB115 585- *TAB115 -3.5257966E-02 -2.7715000E04 -3.4054121E-02 -2.748E04 *TAB116 586- *TAB116 -3.2876451E-02 -2.7245000E04 -3.1724757E-02 -2.701E04 *TAB117 587- *TAB117 -3.0598832E-02 -2.6775000E04 -2.9498474E-02 -2.654E04 *TAB118 588- *TAB118 -2.8423475E-02 -2.6305000E04 -2.7373628E-02 -2.607E04 *TAB119 589- *TAB119 -2.6348724E-02 -2.5835000E04 -2.5348551E-02 -2.560E04 *TAB120 590- *TAB120 -2.4372896E-02 -2.5365000E04 -2.3421545E-02 -2.513E04 *TAB121 591- *TAB121 -2.2494282E-02 -2.4895000E04 -2.159888E-02 -2.466E04 *TAB122 592- *TAB122 -2.0711145E-02 -2.4425000E04 -1.9854830E-02 -2.419E04 *TAB123 593- *TAB123 -1.9021719E-02 -2.3955000E04 -1.8211588E-02 -2.372E04 *TAB124 594- *TAB124 -1.7424207E-02 -2.3485000E04 -1.6659349E-02 -2.325E04 *TAB125 595- *TAB125 -1.5916779E-02 -2.3015000E04 -1.5196266E-02 -2.278E04 *TAB126 596- *TAB126 -1.4497571E-02 -2.2545000E04 -1.382457E-02 -2.231E04 *TAB127 597- *TAB127 -1.3164682E-02 -2.2075000E04 -1.2532E-02 -2.184E04 *TAB128 598- *TAB128 -1.1916171E-02 -2.1605000E04 -1.1322939E-02 -2.137E04 *TAB129 599- *TAB129 -1.07556E-02 -2.1135000E04 -1.0197266E-02 -2.090E04 *TAB130 600- *TAB130 -9.6643119E-03 -2.0665000E04 -9.1509324E-03 -2.043E04 *TAB131 601- *TAB131 -8.6568637E-03 -2.0195000E04 -8.1818386E-03 -1.996E04 *TAB132 602- *TAB132 -7.7255861E-03 -1.9725000E04 -7.2878319E-03 -1.949E04 *TAB133 603- *TAB133 -6.8682978E-03 -1.9255000E04 -6.4667017E-03 -1.902E04 *TAB134 604- *TAB134 -6.0827573E-03 -1.8785000E04 -5.7161741E-03 -1.855E04 *TAB135 605- *TAB135 -5.3666571E-03 -1.8315000E04 -5.0339064E-03 -1.808E04 *TAB136 606- *TAB136 -4.7176173E-03 -1.7845000E04 -4.4174798E-03 -1.761E04 *TAB137 607- *TAB137 -4.1331784E-03 -1.7375000E04 -3.8643916E-03 -1.714E04 *TAB138 608- *TAB138 -3.6107919E-03 -1.6905000E04 -3.372451E-03 -1.667E04 *TAB139 609- *TAB139 -3.1478101E-03 -1.6435000E04 -2.9377381E-03 -1.620E04 *TAB140 610- *TAB140 -2.7414724E-03 -1.5965000E04 -2.5586479E-03 -1.573E04 *TAB141 611- *TAB141 -2.3888897E-03 -1.5495000E04 -2.2318132E-03 -1.526E04 *TAB142 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 612- *TAB142 -2.087227E-03 -1.5025000E04 -1.9541106E-03 -1.479E04 *TAB143 613- *TAB143 -1.8326559E-03 -1.4555000E04 -1.7222231E-03 -1.432E04 *TAB144 614- *TAB144 -1.6223604E-03 -1.4085000E04 -1.5325975E-03 -1.385E04 *TAB145 615- *TAB145 -1.4524432E-03 -1.3615000E04 -1.3813823E-03 -1.338E04 *TAB146 616- *TAB146 -1.3188712E-03 -1.3145000E04 -1.2643326E-03 -1.291E04 *TAB147 617- *TAB147 -1.2171483E-03 -1.2675000E04 -1.1766480E-03 -1.244E04 *TAB148 618- *TAB148 -1.142932E-03 -1.2205000E04 -1.1126483E-03 -1.197E04 *TAB149 619- *TAB149 -1.0873249E-03 -1.1735000E04 -1.0648148E-03 -1.150E04 *TAB150 620- *TAB150 0. 0. 1.0648148E-03 1.150E04 *TAB151 621- *TAB151 1.0873249E-03 1.1735000E04 1.1126483E-03 1.197E04 *TAB152 622- *TAB152 1.142932E-03 1.2205000E04 1.1766480E-03 1.244E04 *TAB153 623- *TAB153 1.2171483E-03 1.2675000E04 1.2643326E-03 1.291E04 *TAB154 624- *TAB154 1.3188712E-03 1.3145000E04 1.3813823E-03 1.338E04 *TAB155 625- *TAB155 1.4524432E-03 1.3615000E04 1.5325975E-03 1.385E04 *TAB156 626- *TAB156 1.6223604E-03 1.4085000E04 1.7222231E-03 1.432E04 *TAB157 627- *TAB157 1.8326559E-03 1.4555000E04 1.9541106E-03 1.479E04 *TAB158 628- *TAB158 2.087227E-03 1.5025000E04 2.2318132E-03 1.526E04 *TAB159 629- *TAB159 2.3888897E-03 1.5495000E04 2.5586479E-03 1.573E04 *TAB160 630- *TAB160 2.7414724E-03 1.5965000E04 2.9377381E-03 1.620E04 *TAB161 631- *TAB161 3.1478101E-03 1.6435000E04 3.372451E-03 1.667E04 *TAB162 632- *TAB162 3.6107919E-03 1.6905000E04 3.8643916E-03 1.714E04 *TAB163 633- *TAB163 4.1331784E-03 1.7375000E04 4.4174798E-03 1.761E04 *TAB164 634- *TAB164 4.7176173E-03 1.7845000E04 5.0339064E-03 1.808E04 *TAB165 635- *TAB165 5.3666571E-03 1.8315000E04 5.7161741E-03 1.855E04 *TAB166 636- *TAB166 6.0827573E-03 1.8785000E04 6.4667017E-03 1.902E04 *TAB167 637- *TAB167 6.8682978E-03 1.9255000E04 7.2878319E-03 1.949E04 *TAB168 638- *TAB168 7.7255861E-03 1.9725000E04 8.1818386E-03 1.996E04 *TAB169 639- *TAB169 8.6568637E-03 2.0195000E04 9.1509324E-03 2.043E04 *TAB170 640- *TAB170 9.6643119E-03 2.0665000E04 1.0197266E-02 2.090E04 *TAB171 641- *TAB171 1.07556E-02 2.1135000E04 1.1322939E-02 2.137E04 *TAB172 642- *TAB172 1.1916171E-02 2.1605000E04 1.2532E-02 2.184E04 *TAB173 643- *TAB173 1.3164682E-02 2.2075000E04 1.382457E-02 2.231E04 *TAB174 644- *TAB174 1.4497571E-02 2.2545000E04 1.5196266E-02 2.278E04 *TAB175 645- *TAB175 1.5916779E-02 2.3015000E04 1.6659349E-02 2.325E04 *TAB176 646- *TAB176 1.7424207E-02 2.3485000E04 1.8211588E-02 2.372E04 *TAB177 647- *TAB177 1.9021719E-02 2.3955000E04 1.9854830E-02 2.419E04 *TAB178 648- *TAB178 2.0711145E-02 2.4425000E04 2.159888E-02 2.466E04 *TAB179 649- *TAB179 2.2494282E-02 2.4895000E04 2.3421545E-02 2.513E04 *TAB180 650- *TAB180 2.4372896E-02 2.5365000E04 2.5348551E-02 2.560E04 *TAB181 651- *TAB181 2.6348724E-02 2.5835000E04 2.7373628E-02 2.607E04 *TAB182 652- *TAB182 2.8423475E-02 2.6305000E04 2.9498474E-02 2.654E04 *TAB183 653- *TAB183 3.0598832E-02 2.6775000E04 3.1724757E-02 2.701E04 *TAB184 654- *TAB184 3.2876451E-02 2.7245000E04 3.4054121E-02 2.748E04 *TAB185 655- *TAB185 3.5257966E-02 2.7715000E04 3.6488188E-02 2.795E04 *TAB186 656- *TAB186 3.7744987E-02 2.8185000E04 3.9028558E-02 2.842E04 *TAB187 657- *TAB187 4.0339100E-02 2.8655000E04 4.1676807E-02 2.889E04 *TAB188 658- *TAB188 4.3041873E-02 2.9125000E04 4.4434491E-02 2.936E04 *TAB189 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 659- *TAB189 4.5854852E-02 2.9595000E04 4.7303146E-02 2.983E04 *TAB190 660- *TAB190 4.8779562E-02 3.0065000E04 5.0284289E-02 3.030E04 *TAB191 661- *TAB191 5.1817513E-02 3.0535000E04 5.3379419E-02 3.077E04 *TAB192 662- *TAB192 5.497193E-02 3.1005000E04 5.65918E-02 3.124E04 *TAB193 663- *TAB193 5.8239075E-02 3.1475000E04 5.9917548E-02 3.171E04 *TAB194 664- *TAB194 6.1625615E-02 3.1945000E04 6.3363456E-02 3.218E04 *TAB195 665- *TAB195 6.5131251E-02 3.2415000E04 6.6929175E-02 3.265E04 *TAB196 666- *TAB196 6.8757406E-02 3.2885000E04 7.0616119E-02 3.312E04 *TAB197 667- *TAB197 7.2505489E-02 3.3355000E04 7.4425689E-02 3.359E04 *TAB198 668- *TAB198 7.6376893E-02 3.3825000E04 7.8359272E-02 3.406E04 *TAB199 669- *TAB199 8.0372998E-02 3.4295000E04 8.2418240E-02 3.453E04 *TAB200 670- *TAB200 8.4495168E-02 3.4765000E04 ENDT ENDDATA 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 18 PROFILE 2664 MAX WAVEFRONT 18 AVG WAVEFRONT 13.320 RMS WAVEFRONT 13.824 RMS BANDWIDTH 14.116 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 20 PROFILE 2731 MAX WAVEFRONT 20 AVG WAVEFRONT 13.655 RMS WAVEFRONT 14.308 RMS BANDWIDTH 14.578 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 18 18 PROFILE (P) 2664 2664 MAXIMUM WAVEFRONT (C-MAX) 18 18 AVERAGE WAVEFRONT (C-AVG) 13.320 13.320 RMS WAVEFRONT (C-RMS) 13.824 13.824 RMS BANDWITCH (B-RMS) 14.116 14.116 NUMBER OF GRID POINTS (N) 200 NUMBER OF ELEMENTS (NON-RIGID) 348 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 547 MATRIX DENSITY, PERCENT 3.235 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -3.5371095E-16 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 1 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -2.110844E+03 9.926816E+02 -8.339707E+02 -75.8724 1.202587E+03 -2.320749E+03 1.761668E+03 2 3.368844E+03 2.819061E+03 -4.645718E+03 -43.3069 7.747796E+03 -1.559892E+03 4.653844E+03 3 1.702391E+03 1.156698E+04 2.875220E+03 74.8802 1.234384E+04 9.255332E+02 5.709151E+03 4 2.313574E+03 1.177069E+04 -7.912041E+02 -85.2505 1.183642E+04 2.247837E+03 4.794293E+03 5 5.452864E+03 8.041355E+03 9.387305E+02 72.0231 8.345948E+03 5.148271E+03 1.598839E+03 6 3.575399E+03 7.415596E+03 9.387305E+02 76.9731 7.632784E+03 3.358211E+03 2.137286E+03 7 -2.011592E+03 -8.791406E+01 1.009668E+02 87.0037 -8.262921E+01 -2.016877E+03 9.671237E+02 8 -2.457252E+03 1.325898E+02 -4.467175E+01 -89.0121 1.333602E+02 -2.458022E+03 1.295691E+03 9 -2.000892E+03 -1.872812E+02 1.054626E+01 89.6668 -1.872199E+02 -2.000953E+03 9.068665E+02 10 -2.373406E+03 2.153789E+02 -1.808179E+01 -89.5998 2.155052E+02 -2.373533E+03 1.294519E+03 11 -1.867499E+03 -2.162266E+02 -4.958496E-01 -89.9828 -2.162264E+02 -1.867499E+03 8.256364E+02 12 -2.394116E+03 1.611836E+02 3.780078E+01 89.1527 1.617427E+02 -2.394675E+03 1.278209E+03 13 -1.623542E+03 -1.356484E+02 -1.562432E+02 -84.0696 -1.194184E+02 -1.639772E+03 7.601768E+02 14 -1.352038E+03 -4.516016E+01 1.689521E+02 82.7516 -2.367151E+01 -1.373527E+03 6.749276E+02 15 -2.419209E+03 1.165430E+02 5.743115E+01 88.7032 1.178430E+02 -2.420509E+03 1.269176E+03 16 -2.241884E+03 1.756445E+02 -2.347534E+02 -84.5047 1.982291E+02 -2.264468E+03 1.231349E+03 17 -9.471055E+02 -5.647070E+01 -3.093115E+01 -88.0133 -5.539777E+01 -9.481784E+02 4.463903E+02 18 -9.249414E+01 2.283730E+02 7.522290E+02 51.0198 8.370867E+02 -7.012078E+02 7.691472E+02 19 -1.520587E+03 2.742539E+02 -4.066519E+02 -77.8116 3.620894E+02 -1.608422E+03 9.852559E+02 20 1.376915E+03 1.787730E+03 -1.904756E+03 -48.0775 3.498122E+03 -3.334766E+02 1.915799E+03 21 -5.722109E+02 3.181932E+03 2.043496E+03 66.2847 4.079617E+03 -1.469896E+03 2.774756E+03 22 4.803701E+02 7.900552E+03 -3.486403E+03 -68.3902 9.281608E+03 -9.006865E+02 5.091147E+03 23 1.091554E+03 8.104261E+03 1.800186E+02 88.5305 8.108879E+03 1.086936E+03 3.510972E+03 24 6.914993E+02 8.004172E+03 -5.497168E+01 -89.5693 8.004586E+03 6.910862E+02 3.656750E+03 25 5.489620E+03 2.586328E+03 -2.099131E+02 -4.1141 5.504719E+03 2.571229E+03 1.466745E+03 26 2.167361E+03 5.349979E+03 8.085464E+02 76.5324 5.543610E+03 1.973730E+03 1.784940E+03 42 1.394253E+02 5.317053E+03 -2.466880E+03 -68.1908 6.304194E+03 -8.477163E+02 3.575955E+03 43 -2.470522E+02 5.188241E+03 -4.259531E+02 -85.5461 5.221420E+03 -2.802307E+02 2.750825E+03 50 1.568395E+03 3.866182E+03 2.445918E+02 83.9908 3.891930E+03 1.542648E+03 1.174641E+03 77 1.079212E+03 3.703137E+03 2.445918E+02 84.7197 3.725742E+03 1.056607E+03 1.334568E+03 107 8.197924E+02 3.297656E+03 1.198398E+02 87.2375 3.303438E+03 8.140098E+02 1.244714E+03 137 5.801146E+02 3.217770E+03 1.198389E+02 87.4040 3.223204E+03 5.746809E+02 1.324261E+03 167 5.956633E+02 3.055296E+03 9.054834E+01 87.8945 3.058625E+03 5.923344E+02 1.233146E+03 195 4.145696E+02 2.994938E+03 9.054785E+01 87.9927 2.998111E+03 4.113961E+02 1.293357E+03 222 3.187869E+02 2.834319E+03 7.267188E+01 88.3466 2.836416E+03 3.166892E+02 1.259864E+03 249 1.734451E+02 2.785876E+03 7.267139E+01 88.4078 2.787896E+03 1.714250E+02 1.308236E+03 272 1.186440E+02 2.584610E+03 5.286182E+01 88.7725 2.585742E+03 1.175114E+02 1.234115E+03 293 1.292084E+01 2.549372E+03 5.286182E+01 88.8066 2.550473E+03 1.181970E+01 1.269327E+03 341 3.081870E+02 2.287555E+03 1.730324E+01 89.4992 2.287706E+03 3.080358E+02 9.898351E+02 347 1.521875E+01 2.319389E+03 1.703375E+01 89.5765 2.319515E+03 1.509290E+01 1.152211E+03 348 3.280762E+00 2.315025E+03 -1.349622E+01 -89.6655 2.315104E+03 3.202026E+00 1.155951E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = -1.1010932E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 2 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -2.298424E+03 1.090362E+03 -9.047258E+02 -75.9500 1.316776E+03 -2.524837E+03 1.920807E+03 2 3.686546E+03 3.085152E+03 -5.080246E+03 -43.3063 8.474986E+03 -1.703288E+03 5.089137E+03 3 1.867471E+03 1.231457E+04 3.040838E+03 74.8973 1.313521E+04 1.046836E+03 6.044185E+03 4 2.548232E+03 1.286891E+04 -8.204644E+02 -85.4830 1.293373E+04 2.483415E+03 5.225158E+03 5 5.906925E+03 8.767659E+03 1.013482E+03 72.3403 9.090316E+03 5.584267E+03 1.753025E+03 6 3.879957E+03 8.092070E+03 1.013482E+03 77.1510 8.323238E+03 3.648788E+03 2.337225E+03 7 -2.186566E+03 -9.553125E+01 1.097244E+02 87.0044 -8.978943E+01 -2.192308E+03 1.051259E+03 8 -2.670836E+03 1.440903E+02 -4.855567E+01 -89.0121 1.449276E+02 -2.671673E+03 1.408300E+03 9 -2.174935E+03 -2.035049E+02 1.147572E+01 89.6665 -2.034380E+02 -2.175002E+03 9.857819E+02 10 -2.579644E+03 2.340459E+02 -1.968552E+01 -89.5992 2.341836E+02 -2.579781E+03 1.406982E+03 11 -2.029984E+03 -2.349243E+02 -4.892883E-01 -89.9844 -2.349242E+02 -2.029984E+03 8.975299E+02 12 -2.601881E+03 1.751643E+02 4.094476E+01 89.1555 1.757679E+02 -2.602484E+03 1.389126E+03 13 -1.764973E+03 -1.473052E+02 -1.695619E+02 -84.0801 -1.297230E+02 -1.782555E+03 8.264159E+02 14 -1.470158E+03 -4.904810E+01 1.836460E+02 82.7544 -2.569965E+01 -1.493507E+03 7.339035E+02 15 -2.628742E+03 1.264705E+02 6.213815E+01 88.7087 1.278711E+02 -2.630143E+03 1.379007E+03 16 -2.435756E+03 1.907915E+02 -2.551208E+02 -84.5032 2.153423E+02 -2.460307E+03 1.337825E+03 17 -1.030437E+03 -6.138037E+01 -3.318671E+01 -88.0409 -6.024518E+01 -1.031572E+03 4.856633E+02 18 -1.030190E+02 2.477297E+02 8.166064E+02 51.0604 9.075813E+02 -7.628705E+02 8.352259E+02 19 -1.652338E+03 2.965929E+02 -4.414664E+02 -77.8139 3.919290E+02 -1.747674E+03 1.069802E+03 20 1.494915E+03 1.942991E+03 -2.066308E+03 -48.0940 3.797371E+03 -3.594652E+02 2.078418E+03 21 -6.299410E+02 3.434172E+03 2.224737E+03 66.2042 4.415205E+03 -1.610974E+03 3.013089E+03 22 4.830080E+02 8.560197E+03 -3.784596E+03 -68.4298 1.005635E+04 -1.013144E+03 5.534746E+03 23 1.182387E+03 8.793302E+03 1.840790E+02 88.6153 8.797751E+03 1.177938E+03 3.809906E+03 24 7.520250E+02 8.711074E+03 -5.592029E+01 -89.5975 8.711467E+03 7.516323E+02 3.979917E+03 25 5.979705E+03 2.822877E+03 -2.210607E+02 -3.9863 5.995110E+03 2.807472E+03 1.593819E+03 26 2.359795E+03 5.825361E+03 8.810909E+02 76.5237 6.036506E+03 2.148650E+03 1.943928E+03 42 1.489076E+02 5.770950E+03 -2.680081E+03 -68.1830 6.843829E+03 -9.239707E+02 3.883900E+03 43 -2.750119E+02 5.629659E+03 -4.716503E+02 -85.4617 5.667096E+03 -3.124487E+02 2.989772E+03 50 1.708071E+03 4.204824E+03 2.665269E+02 83.9742 4.232959E+03 1.679937E+03 1.276511E+03 77 1.175018E+03 4.027157E+03 2.665269E+02 84.7069 4.051849E+03 1.150325E+03 1.450762E+03 107 8.924372E+02 3.585498E+03 1.305016E+02 87.2322 3.591807E+03 8.861281E+02 1.352839E+03 137 6.314365E+02 3.498506E+03 1.305005E+02 87.3992 3.504434E+03 6.255088E+02 1.439462E+03 167 6.482867E+02 3.321683E+03 9.855981E+01 87.8915 3.325312E+03 6.446582E+02 1.340327E+03 195 4.511702E+02 3.255984E+03 9.855927E+01 87.9900 3.259443E+03 4.477112E+02 1.405866E+03 222 3.468970E+02 3.081231E+03 7.907980E+01 88.3448 3.083516E+03 3.446118E+02 1.369452E+03 249 1.887395E+02 3.028517E+03 7.907928E+01 88.4061 3.030718E+03 1.865391E+02 1.422089E+03 272 1.290908E+02 2.809570E+03 5.751456E+01 88.7714 2.810804E+03 1.278573E+02 1.341473E+03 293 1.406216E+01 2.771231E+03 5.751456E+01 88.8055 2.772430E+03 1.286304E+01 1.379783E+03 341 3.351897E+02 2.486465E+03 1.881826E+01 89.4989 2.486629E+03 3.350250E+02 1.075802E+03 347 1.655319E+01 2.521088E+03 1.852719E+01 89.5762 2.521225E+03 1.641614E+01 1.252404E+03 348 3.568237E+00 2.516343E+03 -1.467972E+01 -89.6653 2.516429E+03 3.482544E+00 1.256473E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 3, EPSILON SUB E = -1.2735752E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 3 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -2.611442E+03 1.267077E+03 -9.983611E+02 -76.3799 1.508976E+03 -2.853341E+03 2.181158E+03 2 4.184539E+03 3.532177E+03 -5.797621E+03 -43.3899 9.665148E+03 -1.948432E+03 5.806790E+03 3 2.179864E+03 1.323016E+04 3.133792E+03 75.2193 1.405701E+04 1.353011E+03 6.352001E+03 4 2.979676E+03 1.415931E+04 -7.340194E+02 -86.2595 1.420730E+04 2.931688E+03 5.637805E+03 5 6.584316E+03 9.962083E+03 1.120194E+03 73.2223 1.029981E+04 6.246586E+03 2.026613E+03 6 4.343926E+03 9.215360E+03 1.120193E+03 77.6511 9.460604E+03 4.098682E+03 2.680961E+03 7 -2.449237E+03 -1.068750E+02 1.227918E+02 87.0074 -1.004556E+02 -2.455656E+03 1.177600E+03 8 -2.991013E+03 1.612505E+02 -5.437203E+01 -89.0121 1.621880E+02 -2.991950E+03 1.577069E+03 9 -2.436218E+03 -2.276577E+02 1.289644E+01 89.6654 -2.275824E+02 -2.436293E+03 1.104356E+03 10 -2.888698E+03 2.618403E+02 -2.215039E+01 -89.5972 2.619961E+02 -2.888854E+03 1.575425E+03 11 -2.274073E+03 -2.626670E+02 -3.814392E-01 -89.9891 -2.626669E+02 -2.274073E+03 1.005703E+03 12 -2.912698E+03 1.959468E+02 4.538797E+01 89.1637 1.966093E+02 -2.913361E+03 1.554985E+03 13 -1.977921E+03 -1.645132E+02 -1.889757E+02 -84.1135 -1.450293E+02 -1.997405E+03 9.261877E+02 14 -1.648928E+03 -5.486426E+01 2.054430E+02 82.7730 -2.881250E+01 -1.674980E+03 8.230839E+02 15 -2.941620E+03 1.408403E+02 6.882343E+01 88.7216 1.423762E+02 -2.943156E+03 1.542766E+03 16 -2.725580E+03 2.128457E+02 -2.848603E+02 -84.5136 2.402062E+02 -2.752940E+03 1.496573E+03 17 -1.157848E+03 -6.965723E+01 -3.646942E+01 -88.0827 -6.843634E+01 -1.159069E+03 5.453164E+02 18 -1.241946E+02 2.748613E+02 9.098990E+02 51.1842 1.006852E+03 -8.561856E+02 9.315190E+02 19 -1.852152E+03 3.235840E+02 -4.900610E+02 -77.8747 4.288700E+02 -1.957438E+03 1.193154E+03 20 1.669344E+03 2.185535E+03 -2.298273E+03 -48.2037 4.240159E+03 -3.852802E+02 2.312720E+03 21 -7.318291E+02 3.767885E+03 2.502993E+03 65.9757 4.883563E+03 -1.847508E+03 3.365536E+03 22 4.012054E+02 9.441055E+03 -4.199259E+03 -68.5531 1.109069E+04 -1.248432E+03 6.169562E+03 23 1.266597E+03 9.747058E+03 1.342812E+02 89.0931 9.749184E+03 1.264472E+03 4.242356E+03 24 8.444509E+02 9.804937E+03 -4.320581E+01 -89.7237 9.805145E+03 8.442432E+02 4.480451E+03 25 6.750392E+03 3.200130E+03 -2.179339E+02 -3.4996 6.763720E+03 3.186802E+03 1.788459E+03 26 2.663705E+03 6.571602E+03 9.993550E+02 76.4562 6.812334E+03 2.422973E+03 2.194681E+03 42 1.531638E+02 6.423127E+03 -2.992361E+03 -68.1667 7.622004E+03 -1.045713E+03 4.333859E+03 43 -3.371783E+02 6.259698E+03 -5.678211E+02 -85.1162 6.308216E+03 -3.856960E+02 3.346956E+03 50 1.929062E+03 4.720398E+03 3.018759E+02 83.8976 4.752672E+03 1.896789E+03 1.427942E+03 77 1.325311E+03 4.519167E+03 3.018759E+02 84.6477 4.547449E+03 1.297029E+03 1.625210E+03 107 1.005778E+03 4.020524E+03 1.472906E+02 87.2096 4.027703E+03 9.985992E+02 1.514552E+03 137 7.111997E+02 3.922341E+03 1.472895E+02 87.3793 3.929083E+03 7.044580E+02 1.612312E+03 167 7.297770E+02 3.723369E+03 1.110062E+02 87.8793 3.727479E+03 7.256665E+02 1.500906E+03 195 5.077682E+02 3.649373E+03 1.110056E+02 87.9789 3.653291E+03 5.038507E+02 1.574720E+03 222 3.902487E+02 3.452935E+03 8.896179E+01 88.3376 3.455517E+03 3.876669E+02 1.533925E+03 249 2.123276E+02 3.393634E+03 8.896124E+01 88.3995 3.396119E+03 2.098419E+02 1.593139E+03 272 1.451532E+02 3.147639E+03 6.466251E+01 88.7668 3.149031E+03 1.437614E+02 1.502635E+03 293 1.582846E+01 3.104535E+03 6.466251E+01 88.8012 3.105888E+03 1.447522E+01 1.545706E+03 341 3.762971E+02 2.784807E+03 2.112127E+01 89.4976 2.784993E+03 3.761119E+02 1.204440E+03 347 1.858789E+01 2.823675E+03 2.080344E+01 89.5751 2.823830E+03 1.843359E+01 1.402698E+03 348 4.006348E+00 2.818351E+03 -1.648434E+01 -89.6644 2.818448E+03 3.909790E+00 1.407269E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 4, EPSILON SUB E = -1.9546727E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 4 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -2.956177E+03 1.470670E+03 -1.077306E+03 -77.0236 1.718919E+03 -3.204426E+03 2.461672E+03 2 4.671755E+03 4.002645E+03 -6.550627E+03 -43.5382 1.089636E+04 -2.221965E+03 6.559165E+03 3 2.530040E+03 1.399828E+04 3.154240E+03 75.5928 1.480858E+04 1.719747E+03 6.544416E+03 4 3.428887E+03 1.504646E+04 -5.690099E+02 -87.2027 1.507427E+04 3.401084E+03 5.836591E+03 5 7.256990E+03 1.125860E+04 1.222097E+03 74.2917 1.160231E+04 6.913282E+03 2.344514E+03 6 4.812792E+03 1.044395E+04 1.222097E+03 78.2684 1.069774E+04 4.559006E+03 3.069367E+03 7 -2.712112E+03 -1.181260E+02 1.357859E+02 87.0117 -1.110375E+02 -2.719200E+03 1.304081E+03 8 -3.310930E+03 1.783140E+02 -6.018372E+01 -89.0121 1.793517E+02 -3.311968E+03 1.745660E+03 9 -2.697707E+03 -2.516104E+02 1.435452E+01 89.6638 -2.515261E+02 -2.697791E+03 1.223132E+03 10 -3.197330E+03 2.894277E+02 -2.470746E+01 -89.5940 2.896028E+02 -3.197505E+03 1.743554E+03 11 -2.518504E+03 -2.900708E+02 -1.273499E-01 -89.9967 -2.900708E+02 -2.518504E+03 1.114217E+03 12 -3.222292E+03 2.165845E+02 4.941440E+01 89.1769 2.172944E+02 -3.223002E+03 1.720148E+03 13 -2.191704E+03 -1.813154E+02 -2.075958E+02 -84.1656 -1.601027E+02 -2.212917E+03 1.026407E+03 14 -1.829451E+03 -6.058057E+01 2.271745E+02 82.7973 -3.187073E+01 -1.858161E+03 9.131451E+02 15 -3.252128E+03 1.545630E+02 7.473077E+01 88.7439 1.562015E+02 -3.253767E+03 1.704984E+03 16 -3.012645E+03 2.343823E+02 -3.142113E+02 -84.5233 2.645087E+02 -3.042771E+03 1.653640E+03 17 -1.288236E+03 -7.838086E+01 -3.872498E+01 -88.1686 -7.714264E+01 -1.289474E+03 6.061659E+02 18 -1.526279E+02 3.001191E+02 1.000082E+03 51.3771 1.099128E+03 -9.516368E+02 1.025382E+03 19 -2.051289E+03 3.423638E+02 -5.359457E+02 -77.9384 4.568845E+02 -2.165810E+03 1.311347E+03 20 1.841366E+03 2.446169E+03 -2.520678E+03 -48.4205 4.682520E+03 -3.949849E+02 2.538752E+03 21 -8.604601E+02 4.043526E+03 2.796814E+03 65.6207 5.311001E+03 -2.127934E+03 3.719468E+03 22 3.279845E+02 1.006983E+04 -4.500843E+03 -68.6307 1.183091E+04 -1.433096E+03 6.632004E+03 23 1.312380E+03 1.071844E+04 3.237231E+01 89.8028 1.071855E+04 1.312269E+03 4.703143E+03 24 9.541332E+02 1.095774E+04 -2.631714E+00 -89.9849 1.095774E+04 9.541323E+02 5.001806E+03 25 7.555459E+03 3.590103E+03 -1.942232E+02 -2.7974 7.564950E+03 3.580613E+03 1.992168E+03 26 2.979727E+03 7.352021E+03 1.124609E+03 76.3888 7.624325E+03 2.707423E+03 2.458451E+03 42 1.380501E+02 7.039353E+03 -3.293759E+03 -68.1663 8.359010E+03 -1.181607E+03 4.770308E+03 43 -4.130932E+02 6.855658E+03 -6.937224E+02 -84.5967 6.921274E+03 -4.787092E+02 3.699992E+03 50 2.160455E+03 5.244336E+03 3.393235E+02 83.7946 5.281230E+03 2.123560E+03 1.578835E+03 77 1.481808E+03 5.018143E+03 3.393235E+02 84.5683 5.050408E+03 1.449544E+03 1.800432E+03 107 1.123488E+03 4.459263E+03 1.648508E+02 87.1777 4.467390E+03 1.115361E+03 1.676014E+03 137 7.937897E+02 4.349374E+03 1.648495E+02 87.3511 4.357000E+03 7.861631E+02 1.785418E+03 167 8.139551E+02 4.127451E+03 1.239000E+02 87.8615 4.132077E+03 8.093286E+02 1.661374E+03 195 5.661587E+02 4.044860E+03 1.238993E+02 87.9628 4.049267E+03 5.617516E+02 1.743758E+03 222 4.348758E+02 3.826153E+03 9.913428E+01 88.3270 3.829048E+03 4.319803E+02 1.698534E+03 249 2.366098E+02 3.760071E+03 9.913367E+01 88.3897 3.762857E+03 2.338229E+02 1.764517E+03 272 1.616433E+02 3.486424E+03 7.199530E+01 88.7601 3.487982E+03 1.600851E+02 1.663949E+03 293 1.765321E+01 3.438432E+03 7.199530E+01 88.7948 3.439946E+03 1.613879E+01 1.711904E+03 341 4.180813E+02 3.083125E+03 2.345873E+01 89.4957 3.083332E+03 4.178749E+02 1.332728E+03 347 2.065936E+01 3.126306E+03 2.312005E+01 89.5735 3.126478E+03 2.048730E+01 1.552995E+03 348 4.451904E+00 3.120396E+03 -1.832186E+01 -89.6631 3.120504E+03 4.344116E+00 1.558080E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 5, EPSILON SUB E = -1.9107916E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 5 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -3.261072E+03 1.643077E+03 -1.157585E+03 -77.3644 1.902584E+03 -3.520579E+03 2.711581E+03 2 4.958138E+03 4.260957E+03 -7.061625E+03 -43.5870 1.167977E+04 -2.460677E+03 7.070224E+03 3 2.955638E+03 1.465932E+04 3.226483E+03 75.5647 1.548986E+04 2.125097E+03 6.682384E+03 4 3.888430E+03 1.578405E+04 -3.295228E+02 -88.4145 1.579318E+04 3.879309E+03 5.956933E+03 5 7.855103E+03 1.263174E+04 1.301622E+03 75.7049 1.296340E+04 7.523442E+03 2.719977E+03 6 5.251854E+03 1.176408E+04 1.301622E+03 79.1055 1.201460E+04 5.001332E+03 3.506633E+03 7 -2.975535E+03 -1.292856E+02 1.486962E+02 87.0175 -1.215383E+02 -2.983282E+03 1.430872E+03 8 -3.630913E+03 1.952739E+02 -6.598356E+01 -89.0123 1.964115E+02 -3.632051E+03 1.914231E+03 9 -2.959766E+03 -2.753545E+02 1.584886E+01 89.6617 -2.752609E+02 -2.959860E+03 1.342299E+03 10 -3.505868E+03 3.168125E+02 -2.736435E+01 -89.5899 3.170083E+02 -3.506064E+03 1.911536E+03 11 -2.763751E+03 -3.171299E+02 3.178101E-01 89.9926 -3.171298E+02 -2.763751E+03 1.223311E+03 12 -3.530697E+03 2.372461E+02 5.282898E+01 89.1969 2.379867E+02 -3.531438E+03 1.884712E+03 13 -2.407111E+03 -1.974326E+02 -2.250660E+02 -84.2429 -1.747416E+02 -2.429802E+03 1.127530E+03 14 -2.013014E+03 -6.608496E+01 2.491205E+02 82.8227 -3.471411E+01 -2.044385E+03 1.004835E+03 15 -3.559474E+03 1.675586E+02 7.910724E+01 88.7846 1.692369E+02 -3.561152E+03 1.865194E+03 16 -3.294131E+03 2.559976E+02 -3.444465E+02 -84.5092 2.891083E+02 -3.327242E+03 1.808175E+03 17 -1.424300E+03 -8.538184E+01 -3.769354E+01 -88.3887 -8.432153E+01 -1.425360E+03 6.705192E+02 18 -1.952443E+02 3.242632E+02 1.086711E+03 51.7215 1.181833E+03 -1.052814E+03 1.117324E+03 19 -2.245115E+03 3.607236E+02 -5.833230E+02 -77.9409 4.853423E+02 -2.369733E+03 1.427538E+03 20 1.997395E+03 2.665392E+03 -2.727902E+03 -48.4902 5.079667E+03 -4.168799E+02 2.748273E+03 21 -1.020761E+03 4.203475E+03 3.097946E+03 65.0684 5.643570E+03 -2.460856E+03 4.052213E+03 22 3.518188E+02 1.050744E+04 -4.732227E+03 -68.5088 1.237067E+04 -1.511417E+03 6.941045E+03 23 1.359601E+03 1.175300E+04 -1.053054E+02 -89.4196 1.175407E+04 1.358535E+03 5.197768E+03 24 1.086522E+03 1.216438E+04 6.988098E+01 89.6386 1.216482E+04 1.086082E+03 5.539370E+03 25 8.396792E+03 3.995523E+03 -1.456312E+02 -1.8931 8.401605E+03 3.990709E+03 2.205448E+03 26 3.299511E+03 8.164811E+03 1.251362E+03 76.3893 8.467795E+03 2.996528E+03 2.735634E+03 42 1.208466E+02 7.628638E+03 -3.594144E+03 -68.1227 9.071819E+03 -1.322334E+03 5.197077E+03 43 -4.954246E+02 7.423238E+03 -8.459073E+02 -83.9701 7.512593E+03 -5.847795E+02 4.048686E+03 50 2.398292E+03 5.776847E+03 3.779167E+02 83.6949 5.818604E+03 2.356535E+03 1.731034E+03 77 1.642458E+03 5.524927E+03 3.779167E+02 84.4918 5.561371E+03 1.606014E+03 1.977678E+03 107 1.244551E+03 4.902084E+03 1.829742E+02 87.1432 4.911215E+03 1.235420E+03 1.837898E+03 137 8.786064E+02 4.780114E+03 1.829729E+02 87.3208 4.788677E+03 8.700442E+02 1.959316E+03 167 9.003918E+02 4.534188E+03 1.371678E+02 87.8413 4.539358E+03 8.952213E+02 1.822068E+03 195 6.260604E+02 4.442751E+03 1.371669E+02 87.9444 4.447675E+03 6.211373E+02 1.913269E+03 222 4.806281E+02 4.201057E+03 1.095658E+02 88.3146 4.204281E+03 4.774041E+02 1.863438E+03 249 2.614991E+02 4.128021E+03 1.095652E+02 88.3782 4.131123E+03 2.583969E+02 1.936363E+03 272 1.785295E+02 3.826049E+03 7.950116E+01 88.7520 3.827781E+03 1.767975E+02 1.825492E+03 293 1.952770E+01 3.773053E+03 7.950116E+01 88.7872 3.774736E+03 1.784448E+01 1.878446E+03 341 4.605841E+02 3.381415E+03 2.583372E+01 89.4933 3.381643E+03 4.603555E+02 1.460644E+03 347 2.276849E+01 3.428983E+03 2.547825E+01 89.5715 3.429173E+03 2.257800E+01 1.703298E+03 348 4.906250E+00 3.422478E+03 -2.019289E+01 -89.6615 3.422597E+03 4.786987E+00 1.708905E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 6, EPSILON SUB E = -1.7487273E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 6 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -3.564249E+03 1.804975E+03 -1.229694E+03 -77.6949 2.073208E+03 -3.832481E+03 2.952845E+03 2 5.089233E+03 4.389109E+03 -7.423787E+03 -43.6501 1.217121E+04 -2.692865E+03 7.432036E+03 3 3.410426E+03 1.525147E+04 3.313938E+03 75.3813 1.611584E+04 2.546055E+03 6.784893E+03 4 4.356136E+03 1.643279E+04 -3.833740E+01 -89.8181 1.643291E+04 4.356015E+03 6.038448E+03 5 8.364840E+03 1.385343E+04 1.340907E+03 76.9796 1.416351E+04 8.054764E+03 3.054373E+03 6 5.660298E+03 1.308692E+04 1.363629E+03 79.9177 1.332938E+04 5.417834E+03 3.955776E+03 7 -3.239441E+03 -1.403408E+02 1.615112E+02 87.0247 -1.319463E+02 -3.247835E+03 1.557945E+03 8 -3.950844E+03 2.121104E+02 -7.176479E+01 -89.0127 2.133468E+02 -3.952081E+03 2.082714E+03 9 -3.222330E+03 -2.988589E+02 1.737309E+01 89.6595 -2.987556E+02 -3.222433E+03 1.461839E+03 10 -3.814242E+03 3.439292E+02 -3.009140E+01 -89.5854 3.441470E+02 -3.814460E+03 2.079303E+03 11 -3.009734E+03 -3.437979E+02 8.932495E-01 89.9808 -3.437976E+02 -3.009734E+03 1.332968E+03 12 -3.838219E+03 2.577129E+02 5.585489E+01 89.2189 2.584744E+02 -3.838980E+03 2.048727E+03 13 -2.623918E+03 -2.131147E+02 -2.417339E+02 -84.3301 -1.891147E+02 -2.647918E+03 1.229402E+03 14 -2.199120E+03 -7.153516E+01 2.708309E+02 82.8583 -3.760095E+01 -2.233054E+03 1.097727E+03 15 -3.864979E+03 1.799028E+02 8.279962E+01 88.8278 1.815970E+02 -3.866673E+03 2.024135E+03 16 -3.573681E+03 2.769927E+02 -3.740940E+02 -84.5022 3.129993E+02 -3.609687E+03 1.961343E+03 17 -1.564415E+03 -9.261963E+01 -3.584827E+01 -88.6056 -9.174695E+01 -1.565288E+03 7.367704E+02 18 -2.469165E+02 3.465034E+02 1.169074E+03 52.1205 1.255932E+03 -1.156345E+03 1.206139E+03 19 -2.440457E+03 3.757874E+02 -6.279717E+02 -77.9824 5.094681E+02 -2.574138E+03 1.541803E+03 20 2.142193E+03 2.859294E+03 -2.920016E+03 -48.5002 5.442690E+03 -4.412029E+02 2.941947E+03 21 -1.193291E+03 4.294911E+03 3.395017E+03 64.4738 5.916154E+03 -2.814534E+03 4.365344E+03 22 4.447048E+02 1.089090E+04 -4.921816E+03 -68.3505 1.284450E+04 -1.508897E+03 7.176699E+03 23 1.442633E+03 1.281668E+04 -2.974182E+02 -88.5031 1.282445E+04 1.434861E+03 5.694795E+03 24 1.302327E+03 1.323246E+04 1.693020E+02 89.1871 1.323486E+04 1.299925E+03 5.967468E+03 25 9.307219E+03 4.420958E+03 -1.081738E+02 -1.2676 9.309612E+03 4.418564E+03 2.445524E+03 26 3.614660E+03 9.038479E+03 1.371882E+03 76.5832 9.365732E+03 3.287406E+03 3.039164E+03 42 1.051674E+02 8.190674E+03 -3.891182E+03 -68.0472 9.759083E+03 -1.463242E+03 5.611163E+03 43 -6.155259E+02 7.950470E+03 -1.027713E+03 -83.2534 8.072045E+03 -7.371011E+02 4.404573E+03 50 2.644584E+03 6.320811E+03 4.177935E+02 83.5973 6.367694E+03 2.597701E+03 1.884997E+03 77 1.808998E+03 6.042309E+03 4.177935E+02 84.4171 6.083148E+03 1.768159E+03 2.157495E+03 107 1.370563E+03 5.349915E+03 2.019410E+02 87.1023 5.360137E+03 1.360341E+03 1.999898E+03 137 9.666851E+02 5.215302E+03 2.019396E+02 87.2849 5.224878E+03 9.571084E+02 2.133885E+03 167 9.900959E+02 4.944104E+03 1.509834E+02 87.8164 4.949860E+03 9.843389E+02 1.982761E+03 195 6.881337E+02 4.843458E+03 1.509825E+02 87.9218 4.848937E+03 6.826550E+02 2.083141E+03 222 5.279409E+02 4.577944E+03 1.203547E+02 88.2993 4.581518E+03 5.243674E+02 2.028575E+03 249 2.872342E+02 4.497715E+03 1.203541E+02 88.3640 4.501153E+03 2.837969E+02 2.108678E+03 272 1.959426E+02 4.166625E+03 8.723489E+01 88.7420 4.168541E+03 1.940269E+02 1.987257E+03 293 2.147314E+01 4.108475E+03 8.723489E+01 88.7778 4.110336E+03 1.961194E+01 2.045362E+03 341 5.039310E+02 3.679672E+03 2.825187E+01 89.4903 3.679923E+03 5.036796E+02 1.588122E+03 347 2.492297E+01 3.731714E+03 2.788638E+01 89.5690 3.731924E+03 2.471301E+01 1.853606E+03 348 5.370422E+00 3.724605E+03 -2.210445E+01 -89.6595 3.724736E+03 5.239014E+00 1.859749E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 7, EPSILON SUB E = -6.7620530E-16 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 7 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -3.913787E+03 1.983367E+03 -1.279736E+03 -78.2691 2.249107E+03 -4.179526E+03 3.214316E+03 2 5.100250E+03 4.471184E+03 -7.734297E+03 -43.8356 1.252641E+04 -2.954974E+03 7.740690E+03 3 3.843618E+03 1.578384E+04 3.410088E+03 75.1326 1.668912E+04 2.938343E+03 6.875387E+03 4 4.794911E+03 1.700131E+04 2.180378E+02 88.9770 1.700520E+04 4.791017E+03 6.107094E+03 5 8.728380E+03 1.472655E+04 1.320312E+03 78.1195 1.500431E+04 8.450616E+03 3.276849E+03 6 6.025636E+03 1.420124E+04 1.382427E+03 80.6577 1.442867E+04 5.798206E+03 4.315230E+03 7 -3.503880E+03 -1.512495E+02 1.741954E+02 87.0337 -1.422230E+02 -3.512906E+03 1.685342E+03 8 -4.270572E+03 2.287754E+02 -7.751943E+01 -89.0132 2.301106E+02 -4.271907E+03 2.251009E+03 9 -3.485444E+03 -3.220327E+02 1.893352E+01 89.6571 -3.219194E+02 -3.485558E+03 1.581819E+03 10 -4.122292E+03 3.706602E+02 -3.289413E+01 -89.5806 3.709011E+02 -4.122533E+03 2.246717E+03 11 -3.256521E+03 -3.699346E+02 1.597046E+00 89.9683 -3.699337E+02 -3.256521E+03 1.443294E+03 12 -4.144738E+03 2.777729E+02 5.853503E+01 89.2418 2.785476E+02 -4.145513E+03 2.212030E+03 13 -2.842213E+03 -2.284253E+02 -2.576282E+02 -84.4241 -2.032742E+02 -2.867365E+03 1.332045E+03 14 -2.387870E+03 -7.699902E+01 2.919750E+02 82.9092 -4.067932E+01 -2.424189E+03 1.191755E+03 15 -4.168928E+03 1.914961E+02 8.619287E+01 88.8680 1.931992E+02 -4.170631E+03 2.181915E+03 16 -3.853031E+03 2.967847E+02 -4.020865E+02 -84.5164 3.353848E+02 -3.891631E+03 2.113508E+03 17 -1.708301E+03 -1.015059E+02 -3.455389E+01 -88.7686 -1.007631E+02 -1.709043E+03 8.041401E+02 18 -3.059772E+02 3.658887E+02 1.246402E+03 52.5420 1.320835E+03 -1.260923E+03 1.290879E+03 19 -2.641185E+03 3.815059E+02 -6.664630E+02 -78.1019 5.219285E+02 -2.781607E+03 1.651768E+03 20 2.282834E+03 3.063375E+03 -3.099035E+03 -48.5888 5.796617E+03 -4.504070E+02 3.123512E+03 21 -1.370508E+03 4.370482E+03 3.685636E+03 63.9563 6.171566E+03 -3.171593E+03 4.671580E+03 22 6.403608E+02 1.134788E+04 -5.074376E+03 -68.2673 1.337057E+04 -1.382331E+03 7.376451E+03 23 1.640575E+03 1.367609E+04 -5.052516E+02 -87.6003 1.369726E+04 1.619402E+03 6.038931E+03 24 1.627288E+03 1.403199E+04 3.029561E+02 88.6018 1.403938E+04 1.619894E+03 6.209743E+03 25 1.033321E+04 4.872071E+03 -7.026181E+01 -0.7370 1.033411E+04 4.871167E+03 2.731472E+03 26 3.927042E+03 1.001823E+04 1.486682E+03 76.9905 1.036171E+04 3.583555E+03 3.389080E+03 42 7.177893E+01 8.697774E+03 -4.167684E+03 -67.9908 1.038240E+04 -1.612851E+03 5.997627E+03 43 -7.891252E+02 8.410838E+03 -1.254422E+03 -82.3731 8.578812E+03 -9.570996E+02 4.767956E+03 50 2.907346E+03 6.883026E+03 4.605849E+02 83.4773 6.935688E+03 2.854685E+03 2.040501E+03 77 1.986177E+03 6.576000E+03 4.605850E+02 84.3258 6.621763E+03 1.940414E+03 2.340675E+03 107 1.504945E+03 5.805239E+03 2.223895E+02 87.0474 5.816709E+03 1.493475E+03 2.161617E+03 137 1.060171E+03 5.656994E+03 2.223879E+02 87.2367 5.667728E+03 1.049437E+03 2.309146E+03 167 1.085034E+03 5.358682E+03 1.656854E+02 87.7831 5.365096E+03 1.078621E+03 2.143238E+03 195 7.536687E+02 5.248236E+03 1.656845E+02 87.8917 5.254336E+03 7.475696E+02 2.253383E+03 222 5.776975E+02 4.957708E+03 1.317022E+02 88.2793 4.961664E+03 5.737412E+02 2.193961E+03 249 3.142959E+02 4.869915E+03 1.317015E+02 88.3454 4.873719E+03 3.104915E+02 2.281614E+03 272 2.141653E+02 4.508555E+03 9.531738E+01 88.7291 4.510669E+03 2.120510E+02 2.149309E+03 293 2.353094E+01 4.445016E+03 9.531738E+01 88.7656 4.447070E+03 2.147681E+01 2.212797E+03 341 5.484943E+02 3.977884E+03 3.073146E+01 89.4866 3.978159E+03 5.482190E+02 1.714970E+03 347 2.714380E+01 4.034524E+03 3.036708E+01 89.5659 4.034754E+03 2.691370E+01 2.003920E+03 348 5.848694E+00 4.026796E+03 -2.407517E+01 -89.6570 4.026940E+03 5.704468E+00 2.010618E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 8, EPSILON SUB E = -2.4551402E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 8 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -4.416239E+03 2.237582E+03 -1.333556E+03 -79.0786 2.494901E+03 -4.673559E+03 3.584230E+03 2 5.018742E+03 4.530272E+03 -8.101422E+03 -44.1366 1.287961E+04 -3.330596E+03 8.105103E+03 3 4.401063E+03 1.642387E+04 3.546094E+03 74.7319 1.739185E+04 3.433087E+03 6.979382E+03 4 5.348163E+03 1.767580E+04 4.705171E+02 87.8174 1.769373E+04 5.330229E+03 6.181751E+03 5 9.035358E+03 1.562709E+04 1.252577E+03 79.5955 1.585708E+04 8.805365E+03 3.525859E+03 6 6.450292E+03 1.523249E+04 1.332484E+03 81.5598 1.543021E+04 6.252571E+03 4.588819E+03 7 -3.857032E+03 -1.656143E+02 1.909573E+02 87.0466 -1.557623E+02 -3.866884E+03 1.855561E+03 8 -4.696528E+03 2.507949E+02 -8.517555E+01 -89.0140 2.522610E+02 -4.697994E+03 2.475127E+03 9 -3.836830E+03 -3.525312E+02 2.107617E+01 89.6534 -3.524038E+02 -3.836957E+03 1.742277E+03 10 -4.532424E+03 4.058652E+02 -3.677631E+01 -89.5733 4.061392E+02 -4.532698E+03 2.469418E+03 11 -3.586364E+03 -4.041113E+02 2.752197E+00 89.9504 -4.041089E+02 -3.586366E+03 1.591129E+03 12 -4.551694E+03 3.040205E+02 6.155273E+01 89.2738 3.048005E+02 -4.552475E+03 2.428637E+03 13 -3.134751E+03 -2.483379E+02 -2.777112E+02 -84.5540 -2.218612E+02 -3.161228E+03 1.469683E+03 14 -2.642239E+03 -8.419043E+01 3.197038E+02 82.9830 -4.483936E+01 -2.681590E+03 1.318375E+03 15 -4.571257E+03 2.058574E+02 9.006812E+01 88.9202 2.075549E+02 -4.572954E+03 2.390255E+03 16 -4.223905E+03 3.216304E+02 -4.374163E+02 -84.5530 3.633401E+02 -4.265615E+03 2.314478E+03 17 -1.903602E+03 -1.151270E+02 -3.350317E+01 -88.9272 -1.144996E+02 -1.904229E+03 8.948647E+02 18 -3.914629E+02 3.888682E+02 1.342748E+03 53.1012 1.396988E+03 -1.399583E+03 1.398285E+03 19 -2.914663E+03 3.858628E+02 -7.111512E+02 -78.3436 5.325706E+02 -3.061370E+03 1.796970E+03 20 2.470653E+03 3.340336E+03 -3.331122E+03 -48.7186 6.264878E+03 -4.538892E+02 3.359384E+03 21 -1.627129E+03 4.446365E+03 4.079116E+03 63.3331 6.494991E+03 -3.675754E+03 5.085373E+03 22 1.002852E+03 1.197656E+04 -5.241005E+03 -68.1564 1.407744E+04 -1.098027E+03 7.587735E+03 23 2.019380E+03 1.454575E+04 -7.392285E+02 -86.6343 1.458922E+04 1.975906E+03 6.306656E+03 24 2.099324E+03 1.485658E+04 5.124375E+02 87.7035 1.487713E+04 2.078774E+03 6.399176E+03 25 1.182690E+04 5.488742E+03 3.166150E+01 0.2862 1.182706E+04 5.488584E+03 3.169238E+03 26 4.345679E+03 1.144592E+04 1.639669E+03 77.6048 1.180628E+04 3.985317E+03 3.910481E+03 42 1.608545E+01 9.263035E+03 -4.483791E+03 -67.9394 1.108013E+04 -1.801006E+03 6.440567E+03 43 -1.046102E+03 8.985597E+03 -1.603142E+03 -81.1377 9.235562E+03 -1.296068E+03 5.265815E+03 50 3.277205E+03 7.654867E+03 5.214141E+02 83.3005 7.716114E+03 3.215958E+03 2.250078E+03 77 2.234377E+03 7.307292E+03 5.214142E+02 84.1918 7.360330E+03 2.181338E+03 2.589496E+03 107 1.693416E+03 6.421491E+03 2.513107E+02 86.9660 6.434811E+03 1.680095E+03 2.377358E+03 137 1.190798E+03 6.253967E+03 2.513090E+02 87.1654 6.266410E+03 1.178355E+03 2.544027E+03 167 1.217398E+03 5.917110E+03 1.862635E+02 87.7339 5.924481E+03 1.210028E+03 2.357227E+03 195 8.448763E+02 5.792947E+03 1.862626E+02 87.8473 5.799949E+03 8.378750E+02 2.481037E+03 222 6.467876E+02 5.467545E+03 1.474619E+02 88.2496 5.472052E+03 6.422810E+02 2.414885E+03 249 3.518670E+02 5.369247E+03 1.474611E+02 88.3180 5.373577E+03 3.475371E+02 2.513020E+03 272 2.393903E+02 4.966116E+03 1.064954E+02 88.7100 4.968515E+03 2.369919E+02 2.365761E+03 293 2.640010E+01 4.895126E+03 1.064954E+02 88.7476 4.897455E+03 2.407153E+01 2.436692E+03 341 6.093685E+02 4.375444E+03 3.411167E+01 89.4811 4.375753E+03 6.090596E+02 1.883347E+03 347 3.018372E+01 4.438364E+03 3.376132E+01 89.5612 4.438623E+03 2.992505E+01 2.204349E+03 348 6.503418E+00 4.429796E+03 -2.677307E+01 -89.6532 4.429958E+03 6.341309E+00 2.211808E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 9, EPSILON SUB E = -1.9905101E-16 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 9 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -4.928631E+03 2.493911E+03 -1.396472E+03 -79.6899 2.747948E+03 -5.182668E+03 3.965308E+03 2 4.893380E+03 4.535138E+03 -8.425535E+03 -44.3911 1.314170E+04 -3.713180E+03 8.427439E+03 3 4.924994E+03 1.698732E+04 3.687189E+03 74.2801 1.802512E+04 3.887191E+03 7.068967E+03 4 5.864738E+03 1.827094E+04 6.679475E+02 86.9270 1.830680E+04 5.828880E+03 6.238958E+03 5 9.248522E+03 1.633209E+04 1.171837E+03 80.8463 1.652092E+04 9.059699E+03 3.730609E+03 6 6.822689E+03 1.598490E+04 1.253991E+03 82.3457 1.615343E+04 6.654161E+03 4.749636E+03 7 -4.210181E+03 -1.797783E+02 2.075845E+02 87.0594 -1.691150E+02 -4.220845E+03 2.025865E+03 8 -5.121520E+03 2.726230E+02 -9.283946E+01 -89.0143 2.742205E+02 -5.123117E+03 2.698669E+03 9 -4.188169E+03 -3.826191E+02 2.330545E+01 89.6491 -3.824764E+02 -4.188312E+03 1.902918E+03 10 -4.941213E+03 4.406289E+02 -4.085593E+01 -89.5651 4.409390E+02 -4.941523E+03 2.691231E+03 11 -3.916201E+03 -4.375498E+02 4.144165E+00 89.9317 -4.375449E+02 -3.916206E+03 1.739331E+03 12 -4.956144E+03 3.295293E+02 6.407709E+01 89.3055 3.303059E+02 -4.956921E+03 2.643613E+03 13 -3.427546E+03 -2.679966E+02 -2.968583E+02 -84.6788 -2.403469E+02 -3.455196E+03 1.607424E+03 14 -2.897496E+03 -9.133887E+01 3.467653E+02 83.0589 -4.912317E+01 -2.939712E+03 1.445294E+03 15 -4.970317E+03 2.189971E+02 9.388806E+01 88.9638 2.206951E+02 -4.972016E+03 2.596355E+03 16 -4.595008E+03 3.440879E+02 -4.691939E+02 -84.6212 3.882642E+02 -4.639184E+03 2.513724E+03 17 -2.098253E+03 -1.320752E+02 -3.598865E+01 -88.9517 -1.314167E+02 -2.098912E+03 9.837476E+02 18 -4.743464E+02 4.091724E+02 1.429573E+03 53.5860 1.463685E+03 -1.528859E+03 1.496272E+03 19 -3.201425E+03 4.032891E+02 -7.462831E+02 -78.7538 5.516830E+02 -3.349819E+03 1.950751E+03 20 2.665811E+03 3.586823E+03 -3.568479E+03 -48.6766 6.724387E+03 -4.717527E+02 3.598070E+03 21 -1.913471E+03 4.485875E+03 4.488604E+03 62.7415 6.798504E+03 -4.226101E+03 5.512302E+03 22 1.403843E+03 1.254450E+04 -5.392447E+03 -67.9648 1.472705E+04 -7.787017E+02 7.752875E+03 23 2.442912E+03 1.524355E+04 -9.414955E+02 -85.8159 1.531243E+04 2.374035E+03 6.469198E+03 24 2.552542E+03 1.552176E+04 7.291196E+02 86.7924 1.556262E+04 2.511681E+03 6.525471E+03 25 1.338126E+04 6.095860E+03 1.679865E+02 1.3202 1.338514E+04 6.091989E+03 3.646573E+03 26 4.755975E+03 1.292873E+04 1.787293E+03 78.1882 1.330249E+04 4.382207E+03 4.460144E+03 42 -2.872070E+00 9.684149E+03 -4.716012E+03 -67.8821 1.160084E+04 -1.919566E+03 6.760205E+03 43 -1.306162E+03 9.607479E+03 -1.989540E+03 -79.9842 9.958855E+03 -1.657539E+03 5.808197E+03 50 3.651007E+03 8.448043E+03 5.821073E+02 83.1792 8.517670E+03 3.581381E+03 2.468144E+03 77 2.486792E+03 8.060009E+03 5.821074E+02 84.1004 8.120159E+03 2.426641E+03 2.846759E+03 107 1.887672E+03 7.047158E+03 2.810200E+02 86.8915 7.062419E+03 1.872410E+03 2.595004E+03 137 1.325636E+03 6.859830E+03 2.810181E+02 87.1005 6.874062E+03 1.311403E+03 2.781330E+03 167 1.354648E+03 6.481173E+03 2.076179E+02 87.6846 6.489568E+03 1.346253E+03 2.571657E+03 195 9.394167E+02 6.342776E+03 2.076168E+02 87.8028 6.350741E+03 9.314509E+02 2.709645E+03 222 7.184393E+02 5.980768E+03 1.638042E+02 88.2188 5.985862E+03 7.133455E+02 2.636258E+03 249 3.908343E+02 5.871576E+03 1.638033E+02 88.2896 5.876468E+03 3.859431E+02 2.745262E+03 272 2.655162E+02 5.425238E+03 1.180642E+02 88.6899 5.427938E+03 2.628159E+02 2.582561E+03 293 2.938843E+01 5.346536E+03 1.180642E+02 88.7286 5.349156E+03 2.676782E+01 2.661194E+03 341 6.716622E+02 4.772954E+03 3.756295E+01 89.4753 4.773298E+03 6.713181E+02 2.050990E+03 347 3.330170E+01 4.842296E+03 3.724109E+01 89.5563 4.842584E+03 3.301343E+01 2.404785E+03 348 7.173950E+00 4.832873E+03 -2.954062E+01 -89.6493 4.833053E+03 6.993164E+00 2.413030E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 10, EPSILON SUB E = -3.7727411E-16 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 10 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -5.484552E+03 2.764717E+03 -1.463337E+03 -80.2332 3.016606E+03 -5.736441E+03 4.376524E+03 2 4.711204E+03 4.504348E+03 -8.732415E+03 -44.6607 1.334080E+04 -4.125251E+03 8.733027E+03 3 5.389910E+03 1.750725E+04 3.822690E+03 73.8752 1.861241E+04 4.284752E+03 7.163828E+03 4 6.304544E+03 1.881293E+04 8.467888E+02 86.1447 1.886999E+04 6.247479E+03 6.311256E+03 5 9.380688E+03 1.694149E+04 1.084452E+03 81.9969 1.709396E+04 9.228220E+03 3.932870E+03 6 7.132716E+03 1.661986E+04 1.163515E+03 83.1092 1.676047E+04 6.992105E+03 4.884182E+03 7 -4.563356E+03 -1.936504E+02 2.239635E+02 87.0736 -1.822014E+02 -4.574806E+03 2.196302E+03 8 -5.545125E+03 2.941025E+02 -1.004482E+02 -89.0148 2.958301E+02 -5.546853E+03 2.921341E+03 9 -4.539526E+03 -4.120537E+02 2.557999E+01 89.6449 -4.118953E+02 -4.539685E+03 2.063895E+03 10 -5.348550E+03 4.745186E+02 -4.496649E+01 -89.5576 4.748657E+02 -5.348897E+03 2.911881E+03 11 -4.246346E+03 -4.699990E+02 5.541199E+00 89.9159 -4.699908E+02 -4.246354E+03 1.888182E+03 12 -5.359253E+03 3.537510E+02 6.675415E+01 89.3306 3.545308E+02 -5.360033E+03 2.857282E+03 13 -3.721354E+03 -2.878076E+02 -3.158541E+02 -84.7876 -2.589938E+02 -3.750168E+03 1.745587E+03 14 -3.154945E+03 -9.903125E+01 3.714196E+02 83.1687 -5.453638E+01 -3.199440E+03 1.572452E+03 15 -5.370445E+03 2.315371E+02 9.984808E+01 88.9792 2.333162E+02 -5.372225E+03 2.802770E+03 16 -4.975398E+03 3.632065E+02 -4.948911E+02 -84.7483 4.086956E+02 -5.020888E+03 2.714792E+03 17 -2.294124E+03 -1.543887E+02 -4.606641E+01 -88.7672 -1.533973E+02 -2.295115E+03 1.070859E+03 18 -5.567502E+02 4.246768E+02 1.503001E+03 54.0406 1.515043E+03 -1.647116E+03 1.581079E+03 19 -3.518466E+03 4.352886E+02 -7.651716E+02 -79.4203 5.782063E+02 -3.661384E+03 2.119795E+03 20 2.869566E+03 3.785105E+03 -3.807144E+03 -48.4282 7.161902E+03 -5.072305E+02 3.834566E+03 21 -2.234958E+03 4.496920E+03 4.905402E+03 62.2284 7.080142E+03 -4.818180E+03 5.949161E+03 22 1.795342E+03 1.309221E+04 -5.516348E+03 -67.8389 1.533902E+04 -4.514702E+02 7.895244E+03 23 2.844457E+03 1.585259E+04 -1.116875E+03 -85.1281 1.594779E+04 2.749259E+03 6.599265E+03 24 3.009754E+03 1.611460E+04 9.228296E+02 85.9917 1.617926E+04 2.945088E+03 6.617087E+03 25 1.499251E+04 6.621315E+03 3.157554E+02 2.1571 1.500441E+04 6.609423E+03 4.197491E+03 26 5.153738E+03 1.405590E+04 1.881156E+03 78.5448 1.443709E+04 4.772546E+03 4.832274E+03 42 1.029138E+01 1.003812E+04 -4.872511E+03 -67.9097 1.201567E+04 -1.967268E+03 6.991471E+03 43 -1.549824E+03 1.029670E+04 -2.420459E+03 -78.8866 1.077216E+04 -2.025286E+03 6.398721E+03 50 4.022133E+03 9.289697E+03 6.396980E+02 83.1741 9.366270E+03 3.945560E+03 2.710355E+03 77 2.742737E+03 8.863274E+03 6.396981E+02 84.0966 8.929419E+03 2.676593E+03 3.126413E+03 107 2.092563E+03 7.692984E+03 3.119120E+02 86.8220 7.710303E+03 2.075245E+03 2.817529E+03 137 1.468744E+03 7.485064E+03 3.119099E+02 87.0401 7.501191E+03 1.452617E+03 3.024287E+03 167 1.502364E+03 7.056468E+03 2.306134E+02 87.6264 7.066026E+03 1.492805E+03 2.786611E+03 195 1.041143E+03 6.902742E+03 2.306122E+02 87.7505 6.911801E+03 1.032084E+03 2.939858E+03 222 7.956306E+02 6.500415E+03 1.813989E+02 88.1806 6.506177E+03 7.898682E+02 2.858154E+03 249 4.328362E+02 6.379496E+03 1.813979E+02 88.2544 6.385024E+03 4.273076E+02 2.978858E+03 272 2.935461E+02 5.887151E+03 1.304516E+02 88.6647 5.890191E+03 2.905056E+02 2.799843E+03 293 3.264375E+01 5.800191E+03 1.304516E+02 88.7050 5.803140E+03 2.969458E+01 2.886723E+03 341 7.365284E+02 5.170372E+03 4.113902E+01 89.4685 5.170753E+03 7.361467E+02 2.217303E+03 347 3.656653E+01 5.246393E+03 4.088007E+01 89.5505 5.246714E+03 3.624561E+01 2.605234E+03 348 7.873047E+00 5.236094E+03 -3.243977E+01 -89.6445 5.236295E+03 7.671631E+00 2.614312E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 11, EPSILON SUB E = -5.5137551E-16 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 11 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -6.088538E+03 3.047835E+03 -1.537060E+03 -80.7017 3.299491E+03 -6.340193E+03 4.819842E+03 2 4.474349E+03 4.440910E+03 -9.025821E+03 -44.9469 1.348347E+04 -4.568208E+03 9.025837E+03 3 5.768511E+03 1.797816E+04 3.960979E+03 73.5117 1.915057E+04 4.596095E+03 7.277240E+03 4 6.621860E+03 1.929961E+04 1.027715E+03 85.3954 1.938238E+04 6.539089E+03 6.421646E+03 5 9.463048E+03 1.747082E+04 9.882173E+02 83.0678 1.759097E+04 9.342898E+03 4.124036E+03 6 7.413708E+03 1.716688E+04 1.061116E+03 83.8621 1.728098E+04 7.299597E+03 4.990694E+03 7 -4.915379E+03 -2.071475E+02 2.400914E+02 87.0883 -1.949358E+02 -4.927591E+03 2.366327E+03 8 -5.965856E+03 3.151992E+02 -1.080468E+02 -89.0148 3.170574E+02 -5.967714E+03 3.142386E+03 9 -4.889609E+03 -4.407236E+02 2.795764E+01 89.6400 -4.405481E+02 -4.889785E+03 2.224618E+03 10 -5.752662E+03 5.074268E+02 -4.923120E+01 -89.5495 5.078140E+02 -5.753049E+03 3.130432E+03 11 -4.575095E+03 -5.012402E+02 7.001648E+00 89.9015 -5.012283E+02 -4.575106E+03 2.036939E+03 12 -5.759074E+03 3.761660E+02 6.964813E+01 89.3497 3.769565E+02 -5.759864E+03 3.068410E+03 13 -4.013650E+03 -3.081826E+02 -3.349329E+02 -84.8764 -2.781519E+02 -4.043681E+03 1.882765E+03 14 -3.410934E+03 -1.073066E+02 3.932556E+02 83.3043 -6.113965E+01 -3.457101E+03 1.697981E+03 15 -5.770403E+03 2.433853E+02 1.089755E+02 88.9622 2.453594E+02 -5.772377E+03 3.008868E+03 16 -5.367191E+03 3.777764E+02 -5.121833E+02 -84.9450 4.230818E+02 -5.412497E+03 2.917789E+03 17 -2.484392E+03 -1.849814E+02 -6.786694E+01 -88.3109 -1.829801E+02 -2.486393E+03 1.151707E+03 18 -6.235940E+02 4.352207E+02 1.561749E+03 54.3629 1.554853E+03 -1.743226E+03 1.649039E+03 19 -3.873310E+03 4.878311E+02 -7.624144E+02 -80.3642 6.172743E+02 -4.002753E+03 2.310014E+03 20 3.083093E+03 3.913262E+03 -4.046517E+03 -47.9284 7.565928E+03 -5.695735E+02 4.067751E+03 21 -2.582911E+03 4.481818E+03 5.320974E+03 61.7892 7.336187E+03 -5.437279E+03 6.386733E+03 22 2.137065E+03 1.361730E+04 -5.606918E+03 -67.8363 1.590130E+04 -1.469360E+02 8.024120E+03 23 3.158526E+03 1.637686E+04 -1.256583E+03 -84.6175 1.649525E+04 3.040131E+03 6.727561E+03 24 3.399070E+03 1.664716E+04 1.063827E+03 85.4381 1.673204E+04 3.314188E+03 6.708928E+03 25 1.663066E+04 6.978689E+03 4.704653E+02 2.7840 1.665354E+04 6.955812E+03 4.848865E+03 26 5.521266E+03 1.480000E+04 1.910166E+03 78.8108 1.517785E+04 5.143417E+03 5.017217E+03 42 1.035437E+02 1.044812E+04 -4.988124E+03 -68.0192 1.246151E+04 -1.909844E+03 7.185678E+03 43 -1.704493E+03 1.081572E+04 -2.818982E+03 -77.8788 1.142115E+04 -2.309923E+03 6.865538E+03 50 4.381431E+03 1.018024E+04 6.916086E+02 83.2918 1.026159E+04 4.300086E+03 2.980750E+03 77 2.998215E+03 9.719215E+03 6.916086E+02 84.1853 9.789645E+03 2.927785E+03 3.430930E+03 107 2.306578E+03 8.360979E+03 3.434508E+02 86.7636 8.380399E+03 2.287157E+03 3.046621E+03 137 1.619682E+03 8.132034E+03 3.434485E+02 86.9895 8.150097E+03 1.601619E+03 3.274239E+03 167 1.660854E+03 7.644353E+03 2.552207E+02 87.5620 7.655219E+03 1.649987E+03 3.002616E+03 195 1.150419E+03 7.474224E+03 2.552194E+02 87.6926 7.484507E+03 1.140135E+03 3.172186E+03 222 8.788705E+02 7.027250E+03 2.003537E+02 88.1356 7.033772E+03 8.723486E+02 3.080712E+03 249 4.781666E+02 6.893697E+03 2.003526E+02 88.2130 6.899948E+03 4.719158E+02 3.214016E+03 272 3.237125E+02 6.352122E+03 1.437603E+02 88.6347 6.355548E+03 3.202861E+02 3.017631E+03 293 3.619266E+01 6.256290E+03 1.437603E+02 88.6767 6.259611E+03 3.287207E+01 3.113369E+03 341 8.043326E+02 5.567688E+03 4.485546E+01 89.4605 5.568111E+03 8.039102E+02 2.382100E+03 347 4.000110E+01 5.650681E+03 4.470291E+01 89.5435 5.651037E+03 3.964478E+01 2.805696E+03 348 8.603516E+00 5.639482E+03 -3.549104E+01 -89.6389 5.639706E+03 8.379883E+00 2.815663E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 12, EPSILON SUB E = -1.7538386E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 12 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -6.729025E+03 3.334059E+03 -1.624672E+03 -81.0524 3.589857E+03 -6.984824E+03 5.287341E+03 2 4.199537E+03 4.345137E+03 -9.303884E+03 -45.2242 1.357651E+04 -5.031832E+03 9.304169E+03 3 6.066865E+03 1.839430E+04 4.110676E+03 73.1500 1.963930E+04 4.821867E+03 7.408718E+03 4 6.843639E+03 1.973466E+04 1.216365E+03 84.6566 1.984843E+04 6.729870E+03 6.559278E+03 5 9.526582E+03 1.791741E+04 9.035271E+02 83.9232 1.801360E+04 9.430393E+03 4.291604E+03 6 7.653393E+03 1.762655E+04 9.696553E+02 84.4980 1.771995E+04 7.559991E+03 5.079980E+03 7 -5.264881E+03 -2.202695E+02 2.559956E+02 87.1024 -2.073120E+02 -5.277838E+03 2.535263E+03 8 -6.382394E+03 3.359297E+02 -1.156548E+02 -89.0141 3.379202E+02 -6.384384E+03 3.361152E+03 9 -5.236989E+03 -4.686592E+02 3.044208E+01 89.6342 -4.684648E+02 -5.237184E+03 2.384359E+03 10 -6.152208E+03 5.393711E+02 -5.364432E+01 -89.5407 5.398010E+02 -6.152639E+03 3.346220E+03 11 -4.900795E+03 -5.313799E+02 8.474304E+00 89.8889 -5.313635E+02 -4.900812E+03 2.184724E+03 12 -6.154532E+03 3.968184E+02 7.291748E+01 89.3624 3.976299E+02 -6.155344E+03 3.276487E+03 13 -4.302472E+03 -3.292959E+02 -3.544209E+02 -84.9422 -2.979280E+02 -4.333840E+03 2.017956E+03 14 -3.663052E+03 -1.161875E+02 4.122977E+02 83.4560 -6.889148E+01 -3.710348E+03 1.820728E+03 15 -6.169577E+03 2.549541E+02 1.215875E+02 88.9162 2.572544E+02 -6.171877E+03 3.214566E+03 16 -5.769495E+03 3.883027E+02 -5.216650E+02 -85.1918 4.321836E+02 -5.813376E+03 3.122780E+03 17 -2.666537E+03 -2.230391E+02 -1.012816E+02 -87.6305 -2.188481E+02 -2.670728E+03 1.225940E+03 18 -6.716221E+02 4.418633E+02 1.607781E+03 54.5500 1.586568E+03 -1.816327E+03 1.701447E+03 19 -4.262996E+03 5.642891E+02 -7.404808E+02 -81.4723 6.753213E+02 -4.374028E+03 2.524675E+03 20 3.311941E+03 3.980794E+03 -4.296802E+03 -47.2252 7.956164E+03 -6.634287E+02 4.309796E+03 21 -2.950078E+03 4.439423E+03 5.735066E+03 61.3956 7.566854E+03 -6.077509E+03 6.822182E+03 22 2.436285E+03 1.410360E+04 -5.682548E+03 -67.8759 1.641383E+04 1.260552E+02 8.143889E+03 23 3.402802E+03 1.683627E+04 -1.387780E+03 -84.1630 1.697814E+04 3.260932E+03 6.858605E+03 24 3.670417E+03 1.710536E+04 1.201581E+03 84.9293 1.721198E+04 3.563798E+03 6.824093E+03 25 1.822661E+04 7.261395E+03 6.354561E+02 3.3057 1.826332E+04 7.224691E+03 5.519312E+03 26 5.860538E+03 1.535895E+04 1.914586E+03 79.0219 1.573035E+04 5.489138E+03 5.120605E+03 42 2.763657E+02 1.091950E+04 -5.070417E+03 -68.1922 1.294832E+04 -1.752457E+03 7.350388E+03 43 -1.795359E+03 1.115726E+04 -3.171595E+03 -76.9540 1.189216E+04 -2.530263E+03 7.211212E+03 50 4.718398E+03 1.110961E+04 7.372446E+02 83.5044 1.119355E+04 4.634458E+03 3.279544E+03 77 3.243911E+03 1.061816E+04 7.372444E+02 84.3464 1.069114E+04 3.170927E+03 3.760107E+03 107 2.521467E+03 9.052981E+03 3.736118E+02 86.7368 9.074283E+03 2.500165E+03 3.287059E+03 137 1.774249E+03 8.803932E+03 3.736094E+02 86.9663 8.823732E+03 1.754448E+03 3.534642E+03 167 1.827329E+03 8.245774E+03 2.806919E+02 87.5007 8.258026E+03 1.815077E+03 3.221475E+03 195 1.265952E+03 8.058666E+03 2.806904E+02 87.6378 8.070245E+03 1.254373E+03 3.407936E+03 222 9.681086E+02 7.561391E+03 2.206281E+02 88.0856 7.568766E+03 9.607341E+02 3.304016E+03 249 5.268563E+02 7.414324E+03 2.206269E+02 88.1671 7.421384E+03 5.197964E+02 3.450794E+03 272 3.561596E+02 6.819923E+03 1.580542E+02 88.6001 6.823786E+03 3.522971E+02 3.235744E+03 293 4.005176E+01 6.714563E+03 1.580542E+02 88.6442 6.718304E+03 3.631104E+01 3.340997E+03 341 8.750923E+02 5.964911E+03 4.870738E+01 89.4518 5.965377E+03 8.746262E+02 2.545375E+03 347 4.361444E+01 6.055158E+03 4.871738E+01 89.5357 6.055553E+03 4.321948E+01 3.006167E+03 348 9.363281E+00 6.043047E+03 -3.870280E+01 -89.6325 6.043295E+03 9.114990E+00 3.017090E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 13, EPSILON SUB E = -5.7001897E-16 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 13 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -7.608748E+03 3.693543E+03 -1.765975E+03 -81.3230 3.963049E+03 -7.878254E+03 5.920651E+03 2 3.797606E+03 4.180839E+03 -9.640374E+03 -45.5693 1.363150E+04 -5.653056E+03 9.642278E+03 3 6.318799E+03 1.885853E+04 4.309584E+03 72.7487 2.019679E+04 4.980529E+03 7.608133E+03 4 7.022766E+03 2.023555E+04 1.444313E+03 83.8339 2.039159E+04 6.866728E+03 6.762431E+03 5 9.551508E+03 1.841303E+04 8.257966E+02 84.7212 1.848933E+04 9.475209E+03 4.507058E+03 6 7.842202E+03 1.812611E+04 8.835029E+02 85.1253 1.820146E+04 7.766852E+03 5.217306E+03 7 -5.696249E+03 -2.359951E+02 2.754178E+02 87.1197 -2.221379E+02 -5.710105E+03 2.743984E+03 8 -6.894564E+03 3.610977E+02 -1.250984E+02 -89.0125 3.632539E+02 -6.896720E+03 3.629987E+03 9 -5.665423E+03 -5.022373E+02 3.363739E+01 89.6267 -5.020183E+02 -5.665642E+03 2.581812E+03 10 -6.643045E+03 5.774121E+02 -5.914383E+01 -89.5307 5.778965E+02 -6.643530E+03 3.610713E+03 11 -5.301823E+03 -5.673633E+02 1.002771E+01 89.8786 -5.673420E+02 -5.301845E+03 2.367251E+03 12 -6.642054E+03 4.199521E+02 7.820892E+01 89.3656 4.208184E+02 -6.642920E+03 3.531869E+03 13 -4.657521E+03 -3.568438E+02 -3.801616E+02 -84.9871 -3.234976E+02 -4.690867E+03 2.183685E+03 14 -3.972409E+03 -1.285068E+02 4.310159E+02 83.6800 -8.077014E+01 -4.020146E+03 1.969688E+03 15 -6.669413E+03 2.701465E+02 1.436140E+02 88.8149 2.731174E+02 -6.672384E+03 3.472751E+03 16 -6.289833E+03 3.966621E+02 -5.231901E+02 -85.5529 4.373518E+02 -6.330522E+03 3.383937E+03 17 -2.885869E+03 -2.780391E+02 -1.591719E+02 -86.5201 -2.683597E+02 -2.895548E+03 1.313594E+03 18 -7.139219E+02 4.458682E+02 1.648755E+03 54.6888 1.613735E+03 -1.881789E+03 1.747762E+03 19 -4.800250E+03 7.014980E+02 -6.910104E+02 -82.9496 7.869602E+02 -4.885713E+03 2.836336E+03 20 3.656573E+03 4.065873E+03 -4.675610E+03 -46.2531 8.541310E+03 -8.188633E+02 4.680086E+03 21 -3.372349E+03 4.308120E+03 6.169791E+03 60.9496 7.735190E+03 -6.799420E+03 7.267305E+03 22 2.746168E+03 1.466392E+04 -5.783457E+03 -67.9279 1.700906E+04 4.010342E+02 8.304012E+03 23 3.648254E+03 1.735791E+04 -1.576491E+03 -83.5241 1.753686E+04 3.469307E+03 7.033776E+03 24 3.905518E+03 1.760784E+04 1.413308E+03 84.1721 1.775210E+04 3.761262E+03 6.995417E+03 25 2.023504E+04 7.603470E+03 8.486755E+02 3.8266 2.029180E+04 7.546706E+03 6.372549E+03 26 6.236249E+03 1.593405E+04 1.910928E+03 79.2454 1.629701E+04 5.873289E+03 5.211859E+03 42 5.372246E+02 1.155061E+04 -5.128494E+03 -68.5183 1.356889E+04 -1.481048E+03 7.524967E+03 43 -1.874616E+03 1.148166E+04 -3.570124E+03 -75.9356 1.237606E+04 -2.769014E+03 7.572538E+03 50 5.121384E+03 1.239840E+04 7.894167E+02 83.8794 1.248305E+04 5.036731E+03 3.723159E+03 77 3.542552E+03 1.187217E+04 7.894166E+02 84.6336 1.194633E+04 3.468397E+03 4.238964E+03 107 2.801015E+03 9.982146E+03 4.106464E+02 86.7378 1.000555E+04 2.777608E+03 3.613972E+03 137 1.979731E+03 9.708411E+03 4.106437E+02 86.9671 9.730168E+03 1.957973E+03 3.886097E+03 167 2.055006E+03 9.032356E+03 3.147285E+02 87.4225 9.046524E+03 2.040838E+03 3.502843E+03 195 1.425557E+03 8.822560E+03 3.147266E+02 87.5680 8.835926E+03 1.412190E+03 3.711868E+03 222 1.094407E+03 8.246880E+03 2.492102E+02 88.0069 8.255553E+03 1.085735E+03 3.584909E+03 249 5.959907E+02 8.080760E+03 2.492090E+02 88.0951 8.089048E+03 5.877021E+02 3.750673E+03 272 4.023602E+02 7.411196E+03 1.783495E+02 88.5433 7.415731E+03 3.978247E+02 3.508953E+03 293 4.566211E+01 7.292307E+03 1.783495E+02 88.5910 7.296693E+03 4.127539E+01 3.627709E+03 341 9.700508E+02 6.461240E+03 5.380917E+01 89.4386 6.461767E+03 9.695234E+02 2.746122E+03 347 4.853723E+01 6.561178E+03 5.416869E+01 89.5235 6.561629E+03 4.808667E+01 3.256771E+03 348 1.037781E+01 6.547902E+03 -4.308302E+01 -89.6224 6.548186E+03 1.009399E+01 3.269046E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 14, EPSILON SUB E = 5.0038826E-16 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 14 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -8.577302E+03 4.054899E+03 -1.948083E+03 -81.4293 4.348500E+03 -8.870902E+03 6.609702E+03 2 3.339680E+03 3.965893E+03 -9.968896E+03 -45.8995 1.362660E+04 -6.321025E+03 9.973812E+03 3 6.461196E+03 1.927830E+04 4.518782E+03 72.4058 2.071123E+04 5.028259E+03 7.841488E+03 4 7.131350E+03 2.070951E+04 1.647996E+03 83.1779 2.090667E+04 6.934193E+03 6.986238E+03 5 9.506463E+03 1.885452E+04 7.886372E+02 85.2114 1.892059E+04 9.440397E+03 4.740096E+03 6 7.878707E+03 1.856060E+04 8.391125E+02 85.5356 1.862611E+04 7.813193E+03 5.406459E+03 7 -6.120475E+03 -2.509590E+02 2.941446E+02 87.1382 -2.362551E+02 -6.135179E+03 2.949462E+03 8 -7.396192E+03 3.852031E+02 -1.342407E+02 -89.0120 3.875183E+02 -7.398507E+03 3.893013E+03 9 -6.086611E+03 -5.341963E+02 3.668512E+01 89.6215 -5.339539E+02 -6.086854E+03 2.776450E+03 10 -7.124627E+03 6.128916E+02 -6.395248E+01 -89.5265 6.134202E+02 -7.125155E+03 3.869288E+03 11 -5.696271E+03 -6.017793E+02 1.052606E+01 89.8816 -6.017576E+02 -5.696293E+03 2.547268E+03 12 -7.126019E+03 4.403096E+02 8.639709E+01 89.3459 4.412959E+02 -7.127005E+03 3.784151E+03 13 -5.007810E+03 -3.859346E+02 -4.094077E+02 -84.9768 -3.499492E+02 -5.043795E+03 2.346923E+03 14 -4.278605E+03 -1.429023E+02 4.425396E+02 83.9602 -9.607886E+01 -4.325429E+03 2.114675E+03 15 -7.179289E+03 2.880693E+02 1.749342E+02 88.6587 2.921653E+02 -7.183385E+03 3.737775E+03 16 -6.839899E+03 4.011895E+02 -5.143199E+02 -85.9574 4.375381E+02 -6.876248E+03 3.656893E+03 17 -3.104329E+03 -3.374678E+02 -2.349592E+02 -85.1805 -3.176571E+02 -3.124140E+03 1.403241E+03 18 -7.510205E+02 4.468867E+02 1.676406E+03 54.8305 1.628124E+03 -1.932258E+03 1.780191E+03 19 -5.398452E+03 8.839297E+02 -6.237319E+02 -84.3846 9.452568E+02 -5.459779E+03 3.202518E+03 20 4.072184E+03 4.167278E+03 -5.139421E+03 -45.2650 9.259373E+03 -1.019910E+03 5.139641E+03 21 -3.751975E+03 4.083878E+03 6.514519E+03 60.5117 7.767866E+03 -7.435962E+03 7.601914E+03 22 2.985409E+03 1.516249E+04 -5.906984E+03 -67.9336 1.755704E+04 5.908604E+02 8.483087E+03 23 3.844285E+03 1.783638E+04 -1.788826E+03 -82.8286 1.806145E+04 3.619212E+03 7.221118E+03 24 4.051274E+03 1.804891E+04 1.668064E+03 83.2972 1.824494E+04 3.855241E+03 7.194851E+03 25 2.226846E+04 7.969760E+03 1.059761E+03 4.2158 2.234658E+04 7.891642E+03 7.227471E+03 26 6.534339E+03 1.641053E+04 1.919777E+03 79.3777 1.677058E+04 6.174291E+03 5.298145E+03 42 8.104863E+02 1.218840E+04 -5.153182E+03 -68.9145 1.417535E+04 -1.176462E+03 7.675904E+03 43 -1.946269E+03 1.173189E+04 -3.930886E+03 -75.0555 1.278109E+04 -2.995463E+03 7.888275E+03 50 5.483698E+03 1.360373E+04 8.293296E+02 84.2276 1.368756E+04 5.399862E+03 4.143851E+03 77 3.822429E+03 1.307864E+04 8.319409E+02 84.9047 1.315282E+04 3.748250E+03 4.702283E+03 107 3.051979E+03 1.099704E+04 4.371453E+02 86.8602 1.102101E+04 3.027999E+03 3.996508E+03 137 2.177698E+03 1.070563E+04 4.371423E+02 87.0732 1.072798E+04 2.155348E+03 4.286318E+03 167 2.291370E+03 9.875464E+03 3.479656E+02 87.3786 9.891396E+03 2.275438E+03 3.807979E+03 195 1.595447E+03 9.643513E+03 3.479634E+02 87.5289 9.658529E+03 1.580431E+03 4.039049E+03 222 1.237258E+03 8.961100E+03 2.812782E+02 87.9171 8.971329E+03 1.227028E+03 3.872151E+03 249 6.747054E+02 8.773604E+03 2.812769E+02 88.0133 8.783361E+03 6.649482E+02 4.059207E+03 272 4.564900E+02 8.012407E+03 2.021091E+02 88.4689 8.017810E+03 4.510881E+02 3.783361E+03 293 5.227310E+01 7.877680E+03 2.021091E+02 88.5215 7.882896E+03 4.705640E+01 3.917920E+03 341 1.074484E+03 6.957294E+03 5.931097E+01 89.4224 6.957892E+03 1.073886E+03 2.942003E+03 347 5.407129E+01 7.067815E+03 6.026776E+01 89.5077 7.068333E+03 5.355347E+01 3.507390E+03 348 1.148425E+01 7.053358E+03 -4.801460E+01 -89.6094 7.053686E+03 1.115723E+01 3.521264E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 15, EPSILON SUB E = 3.0775343E-16 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 15 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -9.500917E+03 4.296981E+03 -2.111538E+03 -81.4912 4.612884E+03 -9.816820E+03 7.214852E+03 2 2.886645E+03 3.867479E+03 -1.027602E+04 -46.3662 1.366478E+04 -6.910654E+03 1.028772E+04 3 6.513462E+03 1.967764E+04 4.728253E+03 72.1542 2.119988E+04 4.991213E+03 8.104335E+03 4 7.191699E+03 2.117815E+04 1.814832E+03 82.7260 2.140980E+04 6.960050E+03 7.224876E+03 5 9.429733E+03 1.925888E+04 7.972114E+02 85.3931 1.932312E+04 9.365493E+03 4.978812E+03 6 7.790668E+03 1.894212E+04 8.418481E+02 85.7070 1.900531E+04 7.727473E+03 5.638919E+03 7 -6.537625E+03 -2.652568E+02 3.119868E+02 87.1595 -2.497769E+02 -6.553104E+03 3.151664E+03 8 -7.887657E+03 4.080479E+02 -1.427886E+02 -89.0142 4.105051E+02 -7.890114E+03 4.150310E+03 9 -6.500970E+03 -5.645889E+02 3.926514E+01 89.6210 -5.643291E+02 -6.501230E+03 2.968450E+03 10 -7.599030E+03 6.456357E+02 -6.730560E+01 -89.5323 6.461851E+02 -7.599580E+03 4.122882E+03 11 -6.086011E+03 -6.351992E+02 9.254211E+00 89.9027 -6.351836E+02 -6.086027E+03 2.725422E+03 12 -7.612002E+03 4.586631E+02 9.878705E+01 89.2988 4.598721E+02 -7.613211E+03 4.036542E+03 13 -5.357332E+03 -4.163877E+02 -4.437124E+02 -84.9089 -3.768572E+02 -5.396862E+03 2.510003E+03 14 -4.587433E+03 -1.597930E+02 4.463834E+02 84.3000 -1.152380E+02 -4.631987E+03 2.258375E+03 15 -7.708124E+03 3.102979E+02 2.163154E+02 88.4558 3.161292E+02 -7.713955E+03 4.015042E+03 16 -7.426187E+03 4.042695E+02 -4.982480E+02 -86.3738 4.358455E+02 -7.457763E+03 3.946804E+03 17 -3.333695E+03 -3.959736E+02 -3.248702E+02 -83.7643 -3.604764E+02 -3.369192E+03 1.504358E+03 18 -8.036333E+02 4.472920E+02 1.698420E+03 55.1084 1.631756E+03 -1.988097E+03 1.809926E+03 19 -6.052637E+03 1.101187E+03 -5.495586E+02 -85.6327 1.143158E+03 -6.094608E+03 3.618883E+03 20 4.519929E+03 4.204631E+03 -5.709877E+03 -44.2092 1.007433E+04 -1.349773E+03 5.712053E+03 21 -4.142841E+03 3.763940E+03 6.821986E+03 60.0463 7.695269E+03 -8.074169E+03 7.884719E+03 22 3.152203E+03 1.561170E+04 -6.054880E+03 -67.9078 1.806937E+04 6.945264E+02 8.687423E+03 23 4.000966E+03 1.829099E+04 -2.015208E+03 -82.1246 1.856974E+04 3.722215E+03 7.423764E+03 24 4.117565E+03 1.844669E+04 1.953938E+03 82.3726 1.870835E+04 3.855901E+03 7.426225E+03 25 2.434947E+04 8.369805E+03 1.261214E+03 4.4851 2.444840E+04 8.270875E+03 8.088764E+03 26 6.761793E+03 1.682600E+04 1.949053E+03 79.4137 1.719027E+04 6.397521E+03 5.396374E+03 42 1.075239E+03 1.281916E+04 -5.155648E+03 -69.3582 1.476133E+04 -8.669321E+02 7.814129E+03 43 -2.051177E+03 1.191896E+04 -4.271147E+03 -74.2778 1.312132E+04 -3.253530E+03 8.187423E+03 50 5.761742E+03 1.443890E+04 8.362449E+02 84.5451 1.451875E+04 5.681885E+03 4.418434E+03 77 4.080319E+03 1.397307E+04 8.451790E+02 85.1518 1.404476E+04 4.008631E+03 5.018062E+03 107 3.283158E+03 1.207766E+04 4.595850E+02 87.0167 1.210161E+04 3.259207E+03 4.421201E+03 137 2.363998E+03 1.177130E+04 4.595818E+02 87.2097 1.179370E+04 2.341599E+03 4.726049E+03 167 2.510149E+03 1.079812E+04 3.756865E+02 87.4099 1.081512E+04 2.493155E+03 4.160981E+03 195 1.758784E+03 1.054769E+04 3.756841E+02 87.5568 1.056372E+04 1.742755E+03 4.410483E+03 222 1.389515E+03 9.721570E+03 3.149696E+02 87.8382 9.733460E+03 1.377626E+03 4.177917E+03 249 7.595806E+02 9.511617E+03 3.149681E+02 87.9416 9.522938E+03 7.482598E+02 4.387339E+03 272 5.200823E+02 8.628944E+03 2.301810E+02 88.3753 8.635473E+03 5.135532E+02 4.060960E+03 293 5.972157E+01 8.475503E+03 2.301810E+02 88.4345 8.481794E+03 5.343066E+01 4.214182E+03 341 1.191844E+03 7.453006E+03 6.532078E+01 89.4023 7.453688E+03 1.191163E+03 3.131262E+03 347 6.048364E+01 7.575301E+03 6.728847E+01 89.4870 7.575903E+03 5.988086E+01 3.758011E+03 348 1.271570E+01 7.559678E+03 -5.374034E+01 -89.5920 7.560061E+03 1.233301E+01 3.773864E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 16, EPSILON SUB E = -3.3749909E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 16 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.027222E+04 4.337271E+03 -2.218849E+03 -81.5518 4.666830E+03 -1.060178E+04 7.634306E+03 2 2.500248E+03 3.997475E+03 -1.055362E+04 -47.0287 1.382900E+04 -7.331276E+03 1.058014E+04 3 6.486030E+03 2.006660E+04 4.934631E+03 71.9967 2.167027E+04 4.882354E+03 8.393958E+03 4 7.218002E+03 2.165428E+04 1.937235E+03 82.4884 2.190972E+04 6.962560E+03 7.473579E+03 5 9.372118E+03 1.963597E+04 8.525444E+02 85.2839 1.970630E+04 9.301785E+03 5.202258E+03 6 7.625918E+03 1.928841E+04 8.936514E+02 85.6435 1.935649E+04 7.557838E+03 5.899328E+03 7 -6.948601E+03 -2.790391E+02 3.288437E+02 87.1841 -2.628645E+02 -6.964775E+03 3.350955E+03 8 -8.370379E+03 4.295742E+02 -1.505352E+02 -89.0203 4.321484E+02 -8.372953E+03 4.402551E+03 9 -6.909687E+03 -5.936172E+02 4.114932E+01 89.6267 -5.933491E+02 -6.909955E+03 3.158303E+03 10 -8.068806E+03 6.758486E+02 -6.873544E+01 -89.5497 6.763884E+02 -8.069346E+03 4.372867E+03 11 -6.473207E+03 -6.681602E+02 5.832092E+00 89.9424 -6.681543E+02 -6.473212E+03 2.902529E+03 12 -8.104419E+03 4.757148E+02 1.160118E+02 89.2255 4.772832E+02 -8.105987E+03 4.291635E+03 13 -5.709130E+03 -4.481143E+02 -4.838981E+02 -84.7883 -4.039766E+02 -5.753268E+03 2.674646E+03 14 -4.902534E+03 -1.792910E+02 4.427523E+02 84.6908 -1.381462E+02 -4.943679E+03 2.402766E+03 15 -8.261580E+03 3.381182E+02 2.677094E+02 88.2187 3.464438E+02 -8.269906E+03 4.308175E+03 16 -8.050364E+03 4.085176E+02 -4.789209E+02 -86.7698 4.355464E+02 -8.077393E+03 4.256470E+03 17 -3.580435E+03 -4.494619E+02 -4.241282E+02 -82.4205 -3.930259E+02 -3.636871E+03 1.621923E+03 18 -8.846892E+02 4.490254E+02 1.721199E+03 55.5891 1.628035E+03 -2.063699E+03 1.845867E+03 19 -6.753295E+03 1.347086E+03 -4.784723E+02 -86.6313 1.375250E+03 -6.781459E+03 4.078355E+03 20 4.979400E+03 4.134237E+03 -6.411664E+03 -43.1146 1.098239E+04 -1.868755E+03 6.425574E+03 21 -4.567543E+03 3.339740E+03 7.116703E+03 59.5271 7.527274E+03 -8.755077E+03 8.141176E+03 22 3.243367E+03 1.601206E+04 -6.233391E+03 -67.8427 1.855044E+04 7.049873E+02 8.922728E+03 23 4.126369E+03 1.873147E+04 -2.253454E+03 -81.4253 1.907125E+04 3.786583E+03 7.642334E+03 24 4.125768E+03 1.881546E+04 2.259203E+03 81.4513 1.915506E+04 3.786164E+03 7.684447E+03 25 2.649018E+04 8.804491E+03 1.448613E+03 4.6517 2.660805E+04 8.686623E+03 8.960713E+03 26 6.945002E+03 1.719574E+04 1.994511E+03 79.3684 1.757014E+04 6.570600E+03 5.499771E+03 42 1.311440E+03 1.342281E+04 -5.156980E+03 -69.7913 1.532110E+04 -5.868521E+02 7.953978E+03 43 -2.205797E+03 1.204463E+04 -4.603815E+03 -73.5661 1.340256E+04 -3.563730E+03 8.483146E+03 50 5.962041E+03 1.505993E+04 8.242161E+02 84.8650 1.513400E+04 5.887975E+03 4.623012E+03 77 4.301269E+03 1.462935E+04 8.365569E+02 85.3991 1.469667E+04 4.233948E+03 5.231360E+03 107 3.513552E+03 1.318123E+04 4.837136E+02 87.1428 1.320538E+04 3.489411E+03 4.857983E+03 137 2.545934E+03 1.286256E+04 4.839126E+02 87.3203 1.288521E+04 2.523285E+03 5.180964E+03 167 2.710807E+03 1.179614E+04 4.017559E+02 87.4729 1.181387E+04 2.693077E+03 4.560395E+03 195 1.907304E+03 1.152833E+04 4.017532E+02 87.6130 1.154507E+04 1.890557E+03 4.827259E+03 222 1.536002E+03 1.054586E+04 3.471031E+02 87.7970 1.055921E+04 1.522649E+03 4.518282E+03 249 8.418004E+02 1.031449E+04 3.471016E+02 87.9043 1.032719E+04 8.290991E+02 4.749045E+03 272 5.916113E+02 9.267640E+03 2.623352E+02 88.2697 9.275564E+03 5.836865E+02 4.345939E+03 293 6.694276E+01 9.092766E+03 2.623352E+02 88.3366 9.100385E+03 5.932373E+01 4.520530E+03 341 1.325487E+03 7.948339E+03 7.191428E+01 89.3780 7.949120E+03 1.324706E+03 3.312207E+03 347 6.807214E+01 8.083863E+03 7.553029E+01 89.4602 8.084575E+03 6.736060E+01 4.008607E+03 348 1.410083E+01 8.067152E+03 -6.053316E+01 -89.5694 8.067607E+03 1.364600E+01 4.026980E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 17, EPSILON SUB E = 1.1001674E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 17 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.109057E+04 4.135338E+03 -2.428774E+03 -81.1528 4.513380E+03 -1.146861E+04 7.990994E+03 2 2.150233E+03 4.247883E+03 -1.081202E+04 -47.7703 1.406183E+04 -7.663715E+03 1.086277E+04 3 6.398135E+03 2.044183E+04 5.142312E+03 71.8918 2.212341E+04 4.716551E+03 8.703432E+03 4 7.216066E+03 2.213400E+04 2.029794E+03 82.3884 2.240525E+04 6.944816E+03 7.730216E+03 5 9.322344E+03 1.999110E+04 9.442925E+02 84.9807 2.007404E+04 9.239409E+03 5.417313E+03 6 7.394429E+03 1.959556E+04 9.836211E+02 85.4204 1.967435E+04 7.315641E+03 6.179353E+03 7 -7.354734E+03 -2.925938E+02 3.447587E+02 87.2118 -2.758032E+02 -7.371524E+03 3.547861E+03 8 -8.846768E+03 4.499629E+02 -1.573720E+02 -89.0305 4.526260E+02 -8.849431E+03 4.651028E+03 9 -7.314383E+03 -6.218203E+02 4.221158E+01 89.6386 -6.215540E+02 -7.314649E+03 3.346548E+03 10 -8.536779E+03 7.044844E+02 -6.818759E+01 -89.5773 7.049873E+02 -8.537282E+03 4.621135E+03 11 -6.860261E+03 -7.013652E+02 5.141602E-01 89.9952 -7.013652E+02 -6.860261E+03 3.079448E+03 12 -8.604501E+03 4.931152E+02 1.369360E+02 89.1379 4.951763E+02 -8.606562E+03 4.550869E+03 13 -6.066128E+03 -4.798105E+02 -5.283206E+02 -84.6446 -4.302842E+02 -6.115654E+03 2.842685E+03 14 -5.227303E+03 -2.002461E+02 4.353191E+02 85.0872 -1.628281E+02 -5.264721E+03 2.550947E+03 15 -8.834441E+03 3.702930E+02 3.238860E+02 87.9873 3.816753E+02 -8.845824E+03 4.613750E+03 16 -8.695225E+03 4.166963E+02 -4.630983E+02 -87.0980 4.401719E+02 -8.718700E+03 4.579436E+03 17 -3.849930E+03 -4.947695E+02 -5.204258E+02 -81.3824 -4.158993E+02 -3.928800E+03 1.756451E+03 18 -1.007484E+03 4.526123E+02 1.756081E+03 56.2870 1.624351E+03 -2.179222E+03 1.901786E+03 19 -7.459571E+03 1.564485E+03 -4.209310E+02 -87.3351 1.584077E+03 -7.479163E+03 4.531620E+03 20 5.494542E+03 4.049877E+03 -7.036596E+03 -42.0695 1.184578E+04 -2.301365E+03 7.073574E+03 21 -4.956271E+03 2.946857E+03 7.403837E+03 59.0448 7.387650E+03 -9.397064E+03 8.392357E+03 22 3.268480E+03 1.636674E+04 -6.441332E+03 -67.7377 1.900357E+04 6.316504E+02 9.185960E+03 23 4.222736E+03 1.915819E+04 -2.502965E+03 -80.7352 1.956649E+04 3.814438E+03 7.876027E+03 24 4.092846E+03 1.915633E+04 2.584896E+03 80.5289 1.958755E+04 3.661622E+03 7.962964E+03 25 2.867153E+04 9.268257E+03 1.629381E+03 4.7669 2.880740E+04 9.132381E+03 9.837510E+03 26 7.098092E+03 1.753634E+04 2.047943E+03 79.2877 1.792376E+04 6.710672E+03 5.606542E+03 42 1.517215E+03 1.398612E+04 -5.179461E+03 -70.1404 1.585692E+04 -3.535918E+02 8.105257E+03 43 -2.379432E+03 1.215396E+04 -4.914965E+03 -72.9634 1.366005E+04 -3.885520E+03 8.772786E+03 50 6.099999E+03 1.558190E+04 8.021770E+02 85.1982 1.564929E+04 6.032612E+03 4.808338E+03 77 4.481777E+03 1.516992E+04 8.160454E+02 85.6590 1.523187E+04 4.419831E+03 5.406017E+03 107 3.701141E+03 1.410182E+04 4.932791E+02 87.2907 1.412517E+04 3.677798E+03 5.223684E+03 137 2.713860E+03 1.378248E+04 4.940107E+02 87.4496 1.380449E+04 2.691854E+03 5.556316E+03 167 2.900147E+03 1.282089E+04 4.281982E+02 87.5331 1.283933E+04 2.881699E+03 4.978817E+03 195 2.043763E+03 1.253529E+04 4.281907E+02 87.6668 1.255274E+04 2.026317E+03 5.263209E+03 222 1.663336E+03 1.143323E+04 3.765634E+02 87.7960 1.144773E+04 1.648844E+03 4.899441E+03 249 9.102152E+02 1.118222E+04 3.765615E+02 87.9034 1.119601E+04 8.964287E+02 5.149791E+03 272 6.629561E+02 9.935332E+03 2.959462E+02 88.1738 9.944768E+03 6.535200E+02 4.645624E+03 293 7.106584E+01 9.738053E+03 2.959462E+02 88.2481 9.747104E+03 6.201367E+01 4.842545E+03 341 1.478078E+03 8.443359E+03 7.906072E+01 89.3498 8.444257E+03 1.477181E+03 3.483538E+03 347 7.720349E+01 8.593693E+03 8.534070E+01 89.4259 8.594549E+03 7.634766E+01 4.259101E+03 348 1.564929E+01 8.576141E+03 -6.873344E+01 -89.5400 8.576692E+03 1.509766E+01 4.280797E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 18, EPSILON SUB E = -4.2926630E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 18 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.200020E+04 3.662535E+03 -2.789450E+03 -80.1973 4.144492E+03 -1.248216E+04 8.313326E+03 2 1.845780E+03 4.604516E+03 -1.105653E+04 -48.5556 1.436738E+04 -7.917089E+03 1.114224E+04 3 6.259549E+03 2.081295E+04 5.353242E+03 71.8296 2.256994E+04 4.502559E+03 9.033688E+03 4 7.196985E+03 2.263016E+04 2.090387E+03 82.4213 2.290829E+04 6.918859E+03 7.994713E+03 5 9.289411E+03 2.032980E+04 1.077502E+03 84.4776 2.043397E+04 9.185233E+03 5.624370E+03 6 7.094314E+03 1.987145E+04 1.117595E+03 85.0386 1.996847E+04 6.997297E+03 6.485587E+03 7 -7.760621E+03 -3.063672E+02 3.598018E+02 87.2430 -2.890405E+02 -7.777947E+03 3.744453E+03 8 -9.323236E+03 4.694473E+02 -1.630833E+02 -89.0462 4.721621E+02 -9.325951E+03 4.899057E+03 9 -7.720090E+03 -6.499180E+02 4.212726E+01 89.6586 -6.496667E+02 -7.720341E+03 3.535337E+03 10 -9.010935E+03 7.322559E+02 -6.495813E+01 -89.6180 7.326890E+02 -9.011367E+03 4.872028E+03 11 -7.253072E+03 -7.360742E+02 -7.431885E+00 -89.9347 -7.360657E+02 -7.253081E+03 3.258508E+03 12 -9.124111E+03 5.116582E+02 1.632702E+02 89.0295 5.144238E+02 -9.126877E+03 4.820650E+03 13 -6.433942E+03 -5.123652E+02 -5.798313E+02 -84.4598 -4.561233E+02 -6.490185E+03 3.017031E+03 14 -5.565264E+03 -2.228496E+02 4.245074E+02 85.4850 -1.893286E+02 -5.598785E+03 2.704728E+03 15 -9.442708E+03 4.094551E+02 3.868361E+02 87.7549 4.246206E+02 -9.457873E+03 4.941247E+03 16 -9.374850E+03 4.320762E+02 -4.546903E+02 -87.3511 4.531123E+02 -9.395886E+03 4.924499E+03 17 -4.147196E+03 -5.260703E+02 -6.127595E+02 -80.6512 -4.251907E+02 -4.248075E+03 1.911442E+03 18 -1.167955E+03 4.669043E+02 1.826713E+03 57.0539 1.650742E+03 -2.351793E+03 2.001268E+03 19 -8.160898E+03 1.735439E+03 -3.955100E+02 -87.7150 1.751221E+03 -8.176680E+03 4.963951E+03 20 6.037518E+03 3.979389E+03 -7.509964E+03 -41.0988 1.258859E+04 -2.571688E+03 7.580141E+03 21 -5.304841E+03 2.643697E+03 7.685249E+03 58.6724 7.321472E+03 -9.982615E+03 8.652044E+03 22 3.223729E+03 1.667296E+04 -6.686995E+03 -67.5804 1.943183E+04 4.648672E+02 9.483479E+03 23 4.289758E+03 1.958038E+04 -2.760099E+03 -80.0747 2.006335E+04 3.806790E+03 8.128281E+03 24 4.013293E+03 1.947761E+04 2.922614E+03 79.6472 2.001153E+04 3.479379E+03 8.266073E+03 25 3.092574E+04 9.763536E+03 1.802235E+03 4.8331 3.107813E+04 9.611149E+03 1.073349E+04 26 7.222175E+03 1.785919E+04 2.107869E+03 79.1901 1.826167E+04 6.819701E+03 5.720982E+03 42 1.663085E+03 1.448169E+04 -5.251468E+03 -70.3352 1.635835E+04 -2.135688E+02 8.285957E+03 43 -2.570996E+03 1.227384E+04 -5.200996E+03 -72.4902 1.391468E+04 -4.211837E+03 9.063257E+03 50 6.172957E+03 1.605750E+04 7.720310E+02 85.5608 1.611744E+04 6.113020E+03 5.002208E+03 77 4.614275E+03 1.566002E+04 7.866516E+02 85.9468 1.571577E+04 4.558534E+03 5.578617E+03 107 3.812043E+03 1.480824E+04 4.972568E+02 87.4161 1.483068E+04 3.789603E+03 5.520539E+03 137 2.816381E+03 1.448412E+04 4.984114E+02 87.5584 1.450537E+04 2.795130E+03 5.855122E+03 167 3.025087E+03 1.369628E+04 4.390383E+02 87.6480 1.371431E+04 3.007054E+03 5.353627E+03 195 2.147095E+03 1.339853E+04 4.389585E+02 87.7692 1.341562E+04 2.129997E+03 5.642814E+03 222 1.774144E+03 1.235710E+04 4.064458E+02 87.8038 1.237269E+04 1.758557E+03 5.307066E+03 249 9.613436E+02 1.208403E+04 4.063588E+02 87.9105 1.209886E+04 9.465176E+02 5.576171E+03 272 7.232245E+02 1.065817E+04 3.277399E+02 88.1126 1.066897E+04 7.124248E+02 4.978273E+03 293 6.774716E+01 1.043970E+04 3.277399E+02 88.1919 1.045004E+04 5.740137E+01 5.196321E+03 341 1.655662E+03 8.938229E+03 8.667628E+01 89.3182 8.939260E+03 1.654630E+03 3.642315E+03 347 8.876843E+01 9.105217E+03 9.755265E+01 89.3802 9.106271E+03 8.771338E+01 4.509279E+03 348 1.741724E+01 9.087506E+03 -7.917289E+01 -89.4999 9.088197E+03 1.672607E+01 4.535735E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 19, EPSILON SUB E = 5.3295927E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 19 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.295221E+04 3.014789E+03 -3.237241E+03 -78.9639 3.646160E+03 -1.358358E+04 8.614872E+03 2 1.586449E+03 5.049352E+03 -1.130141E+04 -49.3552 1.475117E+04 -8.115373E+03 1.143327E+04 3 6.115001E+03 2.120956E+04 5.572134E+03 71.7808 2.304365E+04 4.280912E+03 9.381371E+03 4 7.195793E+03 2.317079E+04 2.130883E+03 82.5313 2.345014E+04 6.916442E+03 8.266852E+03 5 9.289469E+03 2.067533E+04 1.252735E+03 83.7949 2.081153E+04 9.153266E+03 5.829134E+03 6 6.740376E+03 2.013131E+04 1.296357E+03 84.5211 2.025566E+04 6.616031E+03 6.819812E+03 7 -8.175213E+03 -3.211738E+02 3.743293E+02 87.2775 -3.033735E+02 -8.193014E+03 3.944820E+03 8 -9.812298E+03 4.886719E+02 -1.675017E+02 -89.0686 4.913945E+02 -9.815021E+03 5.153208E+03 9 -8.136332E+03 -6.793047E+02 4.049359E+01 89.6889 -6.790850E+02 -8.136552E+03 3.728733E+03 10 -9.505693E+03 7.605332E+02 -5.811020E+01 -89.6757 7.608618E+02 -9.506021E+03 5.133442E+03 11 -7.662256E+03 -7.744258E+02 -1.901581E+01 -89.8418 -7.743733E+02 -7.662309E+03 3.443968E+03 12 -9.683037E+03 5.327812E+02 1.974223E+02 88.8933 5.365952E+02 -9.686852E+03 5.111723E+03 13 -6.823150E+03 -5.473145E+02 -6.423958E+02 -84.2151 -4.822336E+02 -6.888230E+03 3.202999E+03 14 -5.925503E+03 -2.481465E+02 4.101776E+02 85.8889 -2.186650E+02 -5.954984E+03 2.868160E+03 15 -1.011268E+04 4.581367E+02 4.601113E+02 87.5124 4.781260E+02 -1.013267E+04 5.305399E+03 16 -1.011859E+04 4.561719E+02 -4.541979E+02 -87.5451 4.756440E+02 -1.013806E+04 5.306854E+03 17 -4.477712E+03 -5.441484E+02 -7.060211E+02 -80.1266 -4.212659E+02 -4.600595E+03 2.089664E+03 18 -1.359127E+03 4.952656E+02 1.939463E+03 57.7755 1.717770E+03 -2.581631E+03 2.149700E+03 19 -8.885150E+03 1.885080E+03 -4.053018E+02 -87.8479 1.900311E+03 -8.900381E+03 5.400346E+03 20 6.584114E+03 3.920136E+03 -7.927628E+03 -40.2312 1.329087E+04 -2.786624E+03 8.038749E+03 21 -5.644844E+03 2.377361E+03 7.974889E+03 58.3504 7.293062E+03 -1.056054E+04 8.926803E+03 22 3.136375E+03 1.695950E+04 -6.973666E+03 -67.3719 1.986638E+04 2.295000E+02 9.818438E+03 23 4.347310E+03 2.002701E+04 -3.021078E+03 -79.4629 2.058896E+04 3.785365E+03 8.401795E+03 24 3.906947E+03 1.980692E+04 3.268161E+03 78.8265 2.045247E+04 3.261402E+03 8.595532E+03 25 3.336034E+04 1.031426E+04 1.979588E+03 4.8740 3.352914E+04 1.014545E+04 1.169184E+04 26 7.338853E+03 1.817949E+04 2.178261E+03 79.0531 1.860080E+04 6.917539E+03 5.841632E+03 42 1.752980E+03 1.492602E+04 -5.377879E+03 -70.3842 1.684267E+04 -1.636641E+02 8.503166E+03 43 -2.783564E+03 1.240849E+04 -5.480370E+03 -72.0952 1.417911E+04 -4.554185E+03 9.366646E+03 50 6.193472E+03 1.652275E+04 7.367354E+02 85.9408 1.657504E+04 6.141190E+03 5.216922E+03 77 4.704901E+03 1.614092E+04 7.518362E+02 86.2547 1.619013E+04 4.655685E+03 5.767223E+03 107 3.839334E+03 1.542348E+04 5.270239E+02 87.4005 1.544741E+04 3.815407E+03 5.816001E+03 137 2.783768E+03 1.507270E+04 5.285498E+02 87.5417 1.509539E+04 2.761077E+03 6.167155E+03 167 2.992911E+03 1.436555E+04 4.329229E+02 87.8231 1.438201E+04 2.976455E+03 5.702777E+03 195 2.127186E+03 1.406248E+04 4.328086E+02 87.9259 1.407816E+04 2.111511E+03 5.983322E+03 222 1.870991E+03 1.314558E+04 4.351763E+02 87.7929 1.316235E+04 1.854219E+03 5.654066E+03 249 1.001605E+03 1.282918E+04 4.342148E+02 87.9003 1.284510E+04 9.856860E+02 5.929708E+03 272 7.650774E+02 1.148128E+04 3.555577E+02 88.1017 1.149306E+04 7.532930E+02 5.369885E+03 293 5.396411E+01 1.124426E+04 3.555577E+02 88.1819 1.125555E+04 4.267773E+01 5.606435E+03 341 1.860196E+03 9.433384E+03 9.437815E+01 89.2861 9.434561E+03 1.859020E+03 3.787770E+03 347 1.037505E+02 9.618537E+03 1.129951E+02 89.3197 9.619879E+03 1.024082E+02 4.758735E+03 348 1.944250E+01 9.602191E+03 -9.279123E+01 -89.4453 9.603090E+03 1.854395E+01 4.792273E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 20, EPSILON SUB E = -6.7865533E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 20 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.395977E+04 2.241090E+03 -3.751230E+03 -77.5758 3.067512E+03 -1.478620E+04 8.926854E+03 2 1.362509E+03 5.578695E+03 -1.157104E+04 -50.1627 1.523211E+04 -8.290902E+03 1.176150E+04 3 6.002372E+03 2.168670E+04 5.813439E+03 71.7251 2.360648E+04 4.082588E+03 9.761946E+03 4 7.245725E+03 2.380613E+04 2.162108E+03 82.6829 2.408376E+04 6.968097E+03 8.557832E+03 5 9.338059E+03 2.105517E+04 1.476798E+03 82.9259 2.123844E+04 9.154793E+03 6.041822E+03 6 6.333319E+03 2.039514E+04 1.527944E+03 83.8696 2.055925E+04 6.169208E+03 7.195019E+03 7 -8.615894E+03 -3.385801E+02 3.891477E+02 87.3142 -3.203252E+02 -8.634148E+03 4.156912E+03 8 -1.033828E+04 5.090059E+02 -1.704301E+02 -89.1001 5.116831E+02 -1.034096E+04 5.426321E+03 9 -8.581490E+03 -7.127207E+02 3.665256E+01 89.7331 -7.125500E+02 -8.581661E+03 3.934555E+03 10 -1.004842E+04 7.921074E+02 -4.612604E+01 -89.7562 7.923037E+02 -1.004861E+04 5.420458E+03 11 -8.108113E+03 -8.204238E+02 -3.582324E+01 -89.7184 -8.202478E+02 -8.108289E+03 3.644021E+03 12 -1.031701E+04 5.595293E+02 2.430756E+02 88.7204 5.649590E+02 -1.032244E+04 5.443701E+03 13 -7.254320E+03 -5.870020E+02 -7.221426E+02 -83.8887 -5.096826E+02 -7.331640E+03 3.410979E+03 14 -6.327083E+03 -2.779707E+02 3.925586E+02 86.3024 -2.526021E+02 -6.352452E+03 3.049925E+03 15 -1.088967E+04 5.205527E+02 5.485294E+02 87.2540 5.468618E+02 -1.091598E+04 5.731423E+03 16 -1.097359E+04 4.925879E+02 -4.646112E+02 -87.6834 5.113833E+02 -1.099238E+04 5.751884E+03 17 -4.857922E+03 -5.490840E+02 -8.039757E+02 -79.7678 -4.039600E+02 -5.003046E+03 2.299543E+03 18 -1.587359E+03 5.409824E+02 2.106249E+03 58.4025 1.836630E+03 -2.883007E+03 2.359819E+03 19 -9.671316E+03 2.026412E+03 -4.564987E+02 -87.7686 2.044200E+03 -9.689104E+03 5.866652E+03 20 7.136788E+03 3.881496E+03 -8.351371E+03 -39.4858 1.401765E+04 -2.999362E+03 8.508504E+03 21 -5.988776E+03 2.121762E+03 8.298451E+03 58.0219 7.302807E+03 -1.116982E+04 9.236314E+03 22 3.035229E+03 1.727261E+04 -7.312999E+03 -67.1143 2.035959E+04 -5.175098E+01 1.020567E+04 23 4.421176E+03 2.054773E+04 -3.291846E+03 -78.8961 2.119379E+04 3.775108E+03 8.709343E+03 24 3.795857E+03 2.018506E+04 3.637005E+03 78.0335 2.095591E+04 3.025009E+03 8.965452E+03 25 3.618729E+04 1.097283E+04 2.186896E+03 4.9204 3.637556E+04 1.078456E+04 1.279550E+04 26 7.477283E+03 1.852639E+04 2.269239E+03 78.8347 1.897428E+04 7.029388E+03 5.972447E+03 42 1.803810E+03 1.535875E+04 -5.568623E+03 -70.2961 1.735303E+04 -1.904746E+02 8.771752E+03 43 -3.013907E+03 1.258160E+04 -5.776127E+03 -71.7355 1.448790E+04 -4.920205E+03 9.704051E+03 50 6.172108E+03 1.702362E+04 6.964932E+02 86.3425 1.706814E+04 6.127586E+03 5.470275E+03 77 4.764149E+03 1.665401E+04 7.114692E+02 86.5878 1.669644E+04 4.721727E+03 5.987354E+03 107 3.772608E+03 1.601988E+04 6.038379E+02 87.1842 1.604958E+04 3.742909E+03 6.153337E+03 137 2.563101E+03 1.560391E+04 6.056743E+02 87.3465 1.563198E+04 2.535032E+03 6.548475E+03 167 2.742369E+03 1.491381E+04 4.254160E+02 88.0006 1.492867E+04 2.727518E+03 6.100574E+03 195 1.891801E+03 1.459894E+04 4.251567E+02 88.0859 1.461315E+04 1.877591E+03 6.367780E+03 222 1.913999E+03 1.379861E+04 4.869871E+02 87.6575 1.381854E+04 1.894077E+03 5.962229E+03 249 9.416351E+02 1.342492E+04 4.853828E+02 87.7767 1.344376E+04 9.227905E+02 6.260485E+03 272 7.936323E+02 1.231755E+04 3.777712E+02 88.1245 1.232992E+04 7.812622E+02 5.774331E+03 293 3.881366E+01 1.204531E+04 3.770493E+02 88.2031 1.205714E+04 2.698438E+01 6.015080E+03 341 2.063397E+03 9.929419E+03 1.012776E+02 89.2625 9.930723E+03 2.062094E+03 3.934314E+03 347 1.198596E+02 1.013192E+04 1.294089E+02 89.2596 1.013359E+04 1.181870E+02 5.007700E+03 348 2.117395E+01 1.011800E+04 -1.074817E+02 -89.3902 1.011914E+04 2.002979E+01 5.049555E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 21, EPSILON SUB E = -1.8153488E-14 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 21 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.501053E+04 1.430594E+03 -4.304283E+03 -76.1817 2.489282E+03 -1.606922E+04 9.279252E+03 2 1.183449E+03 6.154777E+03 -1.188968E+04 -50.9041 1.581585E+04 -8.477619E+03 1.214673E+04 3 5.951786E+03 2.228539E+04 6.083159E+03 71.6594 2.430198E+04 3.935196E+03 1.018339E+04 4 7.373085E+03 2.457818E+04 2.195270E+03 82.8422 2.485387E+04 7.097399E+03 8.878235E+03 5 9.461880E+03 2.149231E+04 1.766233E+03 81.8182 2.174625E+04 9.207933E+03 6.269161E+03 6 5.864430E+03 2.067190E+04 1.831221E+03 83.0537 2.089500E+04 5.641327E+03 7.626838E+03 7 -9.106430E+03 -3.602188E+02 4.053569E+02 87.3521 -3.414722E+02 -9.125176E+03 4.391852E+03 8 -1.093235E+04 5.321719E+02 -1.719550E+02 -89.1409 5.347505E+02 -1.093493E+04 5.734840E+03 9 -9.080124E+03 -7.531562E+02 3.021719E+01 89.7921 -7.530464E+02 -9.080234E+03 4.163594E+03 10 -1.067179E+04 8.303164E+02 -2.816376E+01 -89.8597 8.303853E+02 -1.067186E+04 5.751123E+03 11 -8.616672E+03 -8.781406E+02 -5.850909E+01 -89.5668 -8.776985E+02 -8.617114E+03 3.869708E+03 12 -1.106172E+04 5.967148E+02 3.010773E+02 88.5217 6.044849E+02 -1.106949E+04 5.836990E+03 13 -7.755888E+03 -6.323320E+02 -8.203021E+02 -83.5153 -5.390920E+02 -7.849129E+03 3.655018E+03 14 -6.802417E+03 -3.145625E+02 3.764551E+02 86.6902 -2.927920E+02 -6.824188E+03 3.265698E+03 15 -1.180665E+04 6.072891E+02 6.512791E+02 87.0050 6.413638E+02 -1.184073E+04 6.241046E+03 16 -1.197097E+04 5.309492E+02 -4.869630E+02 -87.7728 5.498882E+02 -1.198991E+04 6.269897E+03 17 -5.323326E+03 -5.375430E+02 -9.207866E+02 -79.4766 -3.664966E+02 -5.494372E+03 2.563938E+03 18 -1.857354E+03 6.176484E+02 2.354589E+03 58.8625 2.040128E+03 -3.279834E+03 2.659981E+03 19 -1.053716E+04 2.153773E+03 -5.670553E+02 -87.4467 2.179060E+03 -1.056245E+04 6.370755E+03 20 7.671609E+03 3.879285E+03 -8.808986E+03 -38.9261 1.478620E+04 -3.235306E+03 9.010753E+03 21 -6.358609E+03 1.881305E+03 8.665022E+03 57.7148 7.355964E+03 -1.183327E+04 9.594616E+03 22 2.942834E+03 1.765582E+04 -7.712006E+03 -66.8242 2.095733E+04 -3.586758E+02 1.065800E+04 23 4.530945E+03 2.118368E+04 -3.575831E+03 -78.3792 2.191904E+04 3.795582E+03 9.061731E+03 24 3.667264E+03 2.063855E+04 4.035937E+03 77.2817 2.154944E+04 2.756369E+03 9.396536E+03 25 3.958526E+04 1.178668E+04 2.442001E+03 4.9824 3.979815E+04 1.157379E+04 1.411218E+04 26 7.657571E+03 1.891741E+04 2.388986E+03 78.5033 1.940331E+04 7.171672E+03 6.115818E+03 42 1.807621E+03 1.579432E+04 -5.842253E+03 -70.0623 1.791354E+04 -3.115957E+02 9.112567E+03 43 -3.262620E+03 1.282338E+04 -6.094840E+03 -71.4229 1.487181E+04 -5.311049E+03 1.009143E+04 50 6.111766E+03 1.758129E+04 6.493306E+02 86.7700 1.761793E+04 6.075122E+03 5.771404E+03 77 4.798992E+03 1.722133E+04 6.634492E+02 86.9515 1.725666E+04 4.763659E+03 6.246501E+03 107 3.610209E+03 1.662413E+04 7.403701E+02 86.7544 1.666611E+04 3.568224E+03 6.548944E+03 137 2.127479E+03 1.608894E+04 7.423652E+02 86.9649 1.612830E+04 2.088116E+03 7.020092E+03 167 2.242066E+03 1.536230E+04 4.241768E+02 88.1502 1.537600E+04 2.228367E+03 6.573814E+03 195 1.394300E+03 1.502231E+04 4.235972E+02 88.2214 1.503547E+04 1.381145E+03 6.827161E+03 222 1.893347E+03 1.436915E+04 5.808159E+02 87.3402 1.439613E+04 1.866365E+03 6.264881E+03 249 7.340257E+02 1.390408E+04 5.785110E+02 87.4897 1.392945E+04 7.086626E+02 6.610391E+03 272 8.186877E+02 1.297997E+04 3.979585E+02 88.1278 1.299297E+04 8.056787E+02 6.093648E+03 293 2.444662E+01 1.266391E+04 3.962837E+02 88.2060 1.267633E+04 1.203369E+01 6.332146E+03 341 2.229595E+03 1.042646E+04 1.067485E+02 89.2540 1.042785E+04 2.228205E+03 4.099824E+03 347 1.338098E+02 1.064256E+04 1.434023E+02 89.2183 1.064451E+04 1.318530E+02 5.256330E+03 348 2.250562E+01 1.063166E+04 -1.202583E+02 -89.3506 1.063303E+04 2.114258E+01 5.305941E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 22, EPSILON SUB E = -3.5187739E-15 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 22 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.593667E+04 8.921758E+02 -4.798680E+03 -75.1521 2.164333E+03 -1.720883E+04 9.686581E+03 2 1.150373E+03 6.597457E+03 -1.228835E+04 -51.2484 1.646046E+04 -8.712632E+03 1.258655E+04 3 6.044083E+03 2.303238E+04 6.366415E+03 71.5741 2.515339E+04 3.923062E+03 1.061517E+04 4 7.619409E+03 2.547958E+04 2.250440E+03 82.9278 2.575878E+04 7.340212E+03 9.209284E+03 5 9.767227E+03 2.197036E+04 2.119388E+03 80.4226 2.232796E+04 9.409620E+03 6.459173E+03 6 5.438753E+03 2.095828E+04 2.209097E+03 82.0545 2.126660E+04 5.130429E+03 8.068086E+03 7 -9.664840E+03 -3.850977E+02 4.242447E+02 87.3879 -3.657427E+02 -9.684195E+03 4.659226E+03 8 -1.159467E+04 5.587188E+02 -1.736270E+02 -89.1817 5.611992E+02 -1.159715E+04 6.079173E+03 9 -9.648681E+03 -8.000508E+02 2.345288E+01 89.8481 -7.999888E+02 -9.648742E+03 4.424377E+03 10 -1.135972E+04 8.821367E+02 -1.441071E+01 -89.9326 8.821538E+02 -1.135973E+04 6.120944E+03 11 -9.212283E+03 -9.398711E+02 -6.871301E+01 -89.5241 -9.393003E+02 -9.212854E+03 4.136777E+03 12 -1.182167E+04 6.442578E+02 3.389370E+02 88.4437 6.534668E+02 -1.183088E+04 6.242174E+03 13 -8.381709E+03 -6.701875E+02 -8.900254E+02 -83.5010 -5.687983E+02 -8.483098E+03 3.957150E+03 14 -7.452146E+03 -3.603945E+02 3.986438E+02 86.7927 -3.380562E+02 -7.474485E+03 3.568214E+03 15 -1.265199E+04 6.849219E+02 7.252930E+02 86.8963 7.242490E+02 -1.269132E+04 6.707785E+03 16 -1.289838E+04 5.192617E+02 -4.788988E+02 -87.9585 5.363325E+02 -1.291546E+04 6.725894E+03 17 -5.975071E+03 -5.208086E+02 -1.111297E+03 -78.9146 -3.030757E+02 -6.192804E+03 2.944864E+03 18 -2.185284E+03 7.423047E+02 2.684749E+03 59.3002 2.336381E+03 -3.779360E+03 3.057871E+03 19 -1.132493E+04 2.213168E+03 -7.003820E+02 -87.0464 2.249305E+03 -1.136107E+04 6.805186E+03 20 8.269609E+03 3.985598E+03 -9.298037E+03 -38.5135 1.566918E+04 -3.413974E+03 9.541577E+03 21 -6.820121E+03 1.698652E+03 9.035254E+03 57.6200 7.428169E+03 -1.254964E+04 9.988903E+03 22 2.910557E+03 1.815165E+04 -8.137268E+03 -66.5609 2.167955E+04 -6.173428E+02 1.114845E+04 23 4.690082E+03 2.194148E+04 -3.834437E+03 -78.0166 2.275536E+04 3.876206E+03 9.439577E+03 24 3.475212E+03 2.116679E+04 4.410085E+03 76.7507 2.220517E+04 2.436831E+03 9.884169E+03 25 4.343108E+04 1.272908E+04 2.744918E+03 5.0690 4.367456E+04 1.248559E+04 1.559448E+04 26 7.903114E+03 1.932342E+04 2.553261E+03 77.9542 1.986827E+04 7.358271E+03 6.254999E+03 42 1.728257E+03 1.619997E+04 -6.202465E+03 -69.6987 1.849450E+04 -5.662686E+02 9.530384E+03 43 -3.521721E+03 1.316800E+04 -6.403745E+03 -71.2489 1.534191E+04 -5.695637E+03 1.051877E+04 50 6.025346E+03 1.816912E+04 6.002134E+02 87.1773 1.819871E+04 5.995752E+03 6.101480E+03 77 4.812314E+03 1.781741E+04 6.128286E+02 87.3081 1.784622E+04 4.783500E+03 6.531360E+03 107 3.367669E+03 1.720904E+04 9.309292E+02 86.1694 1.727137E+04 3.305338E+03 6.983018E+03 137 1.504025E+03 1.649609E+04 9.327192E+02 86.4536 1.655390E+04 1.446220E+03 7.553838E+03 167 1.516679E+03 1.568528E+04 4.314570E+02 88.2574 1.569840E+04 1.503552E+03 7.097426E+03 195 6.548473E+02 1.530652E+04 4.303857E+02 88.3189 1.531915E+04 6.422163E+02 7.338469E+03 222 1.815103E+03 1.486847E+04 7.146328E+02 86.8757 1.490748E+04 1.776096E+03 6.565691E+03 249 3.892258E+02 1.427339E+04 7.112495E+02 87.0751 1.430973E+04 3.528853E+02 6.978422E+03 272 8.400362E+02 1.351294E+04 4.245793E+02 88.0833 1.352715E+04 8.258271E+02 6.350663E+03 293 -6.872009E+00 1.315615E+04 4.223313E+02 88.1642 1.316969E+04 -2.040869E+01 6.595048E+03 341 2.352946E+03 1.092352E+04 1.113401E+02 89.2558 1.092496E+04 2.351499E+03 4.286732E+03 347 1.439670E+02 1.114983E+04 1.535202E+02 89.2010 1.115197E+04 1.418257E+02 5.505071E+03 348 2.301392E+01 1.114165E+04 -1.295790E+02 -89.3324 1.114316E+04 2.150391E+01 5.560828E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 23, EPSILON SUB E = -1.9014023E-14 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 23 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.672293E+04 6.805312E+02 -5.221559E+03 -74.5169 2.126942E+03 -1.816934E+04 1.014814E+04 2 1.265430E+03 6.864664E+03 -1.276678E+04 -51.1843 1.713519E+04 -9.005097E+03 1.307014E+04 3 6.274346E+03 2.390810E+04 6.650889E+03 71.4857 2.613530E+04 4.047145E+03 1.104408E+04 4 7.966530E+03 2.647658E+04 2.333142E+03 82.9254 2.676614E+04 7.676975E+03 9.544582E+03 5 1.024946E+04 2.246798E+04 2.514619E+03 78.8138 2.296526E+04 9.752182E+03 6.606542E+03 6 5.091620E+03 2.124559E+04 2.643230E+03 80.9395 2.166710E+04 4.670113E+03 8.498493E+03 7 -1.032218E+04 -3.986250E+02 4.419767E+02 87.4549 -3.789790E+02 -1.034182E+04 4.981422E+03 8 -1.217101E+04 5.709375E+02 -1.723104E+02 -89.2254 5.732671E+02 -1.217334E+04 6.373303E+03 9 -1.031634E+04 -8.303828E+02 1.775769E+01 89.8927 -8.303496E+02 -1.031638E+04 4.743013E+03 10 -1.195897E+04 9.216797E+02 -4.200317E+00 -89.9813 9.216807E+02 -1.195897E+04 6.440327E+03 11 -9.929940E+03 -9.803281E+02 -6.776990E+01 -89.5662 -9.798149E+02 -9.930453E+03 4.475319E+03 12 -1.245615E+04 6.689531E+02 3.658336E+02 88.4047 6.791421E+02 -1.246634E+04 6.572743E+03 13 -9.168393E+03 -6.951523E+02 -9.602542E+02 -83.6147 -5.876919E+02 -9.275854E+03 4.344081E+03 14 -8.278879E+03 -3.987148E+02 4.356392E+02 86.8453 -3.747046E+02 -8.302889E+03 3.964092E+03 15 -1.334661E+04 7.642617E+02 7.907920E+02 86.8024 8.084404E+02 -1.339078E+04 7.099612E+03 16 -1.372189E+04 4.420352E+02 -4.155071E+02 -88.3211 4.542139E+02 -1.373407E+04 7.094140E+03 17 -6.754174E+03 -4.483828E+02 -1.459409E+03 -77.5808 -1.269978E+02 -7.075559E+03 3.474281E+03 18 -2.670852E+03 9.125625E+02 3.155837E+03 59.7927 2.749839E+03 -4.508128E+03 3.628983E+03 19 -1.202545E+04 2.139430E+03 -8.796759E+02 -86.4599 2.193851E+03 -1.207987E+04 7.136861E+03 20 8.987536E+03 4.235551E+03 -9.804192E+03 -38.1887 1.669953E+04 -3.476446E+03 1.008799E+04 21 -7.428773E+03 1.573422E+03 9.374271E+03 57.8241 7.471211E+03 -1.332656E+04 1.039889E+04 22 2.956906E+03 1.876572E+04 -8.559067E+03 -66.3614 2.251195E+04 -7.893223E+02 1.165063E+04 23 4.895615E+03 2.279797E+04 -4.055840E+03 -77.8122 2.367397E+04 4.019615E+03 9.827177E+03 24 3.189374E+03 2.174636E+04 4.741655E+03 76.4656 2.288774E+04 2.047994E+03 1.041987E+04 25 4.754240E+04 1.375165E+04 3.084079E+03 5.1724 4.782158E+04 1.347247E+04 1.717455E+04 26 8.199894E+03 1.971841E+04 2.763783E+03 77.1822 2.034723E+04 7.571072E+03 6.388080E+03 42 1.566806E+03 1.658382E+04 -6.617384E+03 -69.3048 1.908368E+04 -9.330557E+02 1.000837E+04 43 -3.805705E+03 1.360880E+04 -6.684592E+03 -71.2432 1.587880E+04 -6.075702E+03 1.097725E+04 50 5.921225E+03 1.876376E+04 5.540801E+02 87.5341 1.878762E+04 5.897364E+03 6.445126E+03 77 4.802328E+03 1.842093E+04 5.648252E+02 87.6291 1.844432E+04 4.778942E+03 6.832688E+03 107 3.072332E+03 1.775932E+04 1.153742E+03 85.5356 1.784940E+04 2.982252E+03 7.433574E+03 137 7.639473E+02 1.681918E+04 1.154653E+03 85.9075 1.690179E+04 6.813325E+02 8.110231E+03 167 6.339521E+02 1.588534E+04 4.493047E+02 88.3140 1.589857E+04 6.207271E+02 7.638921E+03 195 -2.628934E+02 1.545353E+04 4.475479E+02 88.3702 1.546627E+04 -2.756279E+02 7.870948E+03 222 1.693927E+03 1.531059E+04 8.785498E+02 86.3236 1.536704E+04 1.637478E+03 6.864782E+03 249 -5.803003E+01 1.455042E+04 8.734180E+02 86.5906 1.460245E+04 -1.100654E+02 7.356258E+03 272 8.651749E+02 1.398230E+04 4.568613E+02 88.0076 1.399820E+04 8.492817E+02 6.574457E+03 293 -4.607959E+01 1.358845E+04 4.543970E+02 88.0933 1.360357E+04 -6.120703E+01 6.832391E+03 341 2.428966E+03 1.141984E+04 1.153526E+02 89.2651 1.142132E+04 2.427486E+03 4.496919E+03 347 1.531877E+02 1.164779E+04 1.622573E+02 89.1914 1.165008E+04 1.508975E+02 5.749590E+03 348 4.148682E+00 1.165235E+04 -1.381518E+02 -89.3206 1.165399E+04 2.510254E+00 5.825741E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 24, EPSILON SUB E = -1.8031199E-14 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 24 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.748610E+04 5.556719E+02 -5.617982E+03 -74.0432 2.162020E+03 -1.909245E+04 1.062723E+04 2 1.416850E+03 7.111266E+03 -1.328495E+04 -51.0483 1.785069E+04 -9.322570E+03 1.358663E+04 3 6.584275E+03 2.485825E+04 6.958923E+03 71.3532 2.720652E+04 4.236005E+03 1.148526E+04 4 8.377617E+03 2.754522E+04 2.437410E+03 82.8654 2.785031E+04 8.072526E+03 9.888892E+03 5 1.081318E+04 2.297599E+04 2.914795E+03 77.1959 2.363843E+04 1.015074E+04 6.743848E+03 6 4.801824E+03 2.153360E+04 3.096576E+03 79.8442 2.208829E+04 4.247125E+03 8.920585E+03 7 -1.111143E+04 -3.991875E+02 4.586951E+02 87.5526 -3.795820E+02 -1.113104E+04 5.375727E+03 8 -1.266227E+04 5.675469E+02 -1.683464E+02 -89.2711 5.696890E+02 -1.266441E+04 6.617050E+03 9 -1.111907E+04 -8.415781E+02 1.459460E+01 89.9186 -8.415571E+02 -1.111910E+04 5.138769E+03 10 -1.247063E+04 9.413125E+02 5.902527E+00 89.9748 9.413149E+02 -1.247063E+04 6.705975E+03 11 -1.080316E+04 -9.996953E+02 -6.474670E+01 -89.6216 -9.992676E+02 -1.080358E+04 4.902158E+03 12 -1.299903E+04 6.709922E+02 3.929922E+02 88.3546 6.822808E+02 -1.301032E+04 6.846298E+03 13 -1.013696E+04 -7.110703E+02 -1.048676E+03 -83.7277 -5.958096E+02 -1.025222E+04 4.828205E+03 14 -9.286404E+03 -4.276328E+02 4.782502E+02 86.9188 -4.018887E+02 -9.312148E+03 4.455130E+03 15 -1.396245E+04 8.546016E+02 8.607495E+02 86.6864 9.044365E+02 -1.401228E+04 7.458360E+03 16 -1.451400E+04 3.153672E+02 -3.092003E+02 -88.8060 3.218110E+02 -1.452044E+04 7.421127E+03 17 -7.654683E+03 -3.342031E+02 -1.979500E+03 -75.7975 1.667803E+02 -8.155666E+03 4.161223E+03 18 -3.295990E+03 1.118523E+03 3.785768E+03 60.1220 3.293505E+03 -5.470972E+03 4.382239E+03 19 -1.270773E+04 1.953422E+03 -1.093502E+03 -85.7579 2.034532E+03 -1.278884E+04 7.411686E+03 20 9.846307E+03 4.579820E+03 -1.032219E+04 -37.8444 1.786583E+04 -3.439707E+03 1.065277E+04 21 -8.119051E+03 1.490648E+03 9.693684E+03 58.1831 7.504952E+03 -1.413335E+04 1.081915E+04 22 3.059750E+03 1.943630E+04 -8.999731E+03 -66.1485 2.341532E+04 -9.192686E+02 1.216729E+04 23 5.138859E+03 2.371496E+04 -4.269044E+03 -77.6576 2.464907E+04 4.204747E+03 1.022216E+04 24 2.871012E+03 2.235923E+04 5.062980E+03 76.2719 2.359608E+04 1.634163E+03 1.098096E+04 25 5.181893E+04 1.482690E+04 3.457683E+03 5.2944 5.213934E+04 1.450648E+04 1.881643E+04 26 8.530810E+03 2.009549E+04 3.012394E+03 76.2410 2.083312E+04 7.793183E+03 6.519967E+03 42 1.368371E+03 1.696801E+04 -7.065489E+03 -68.9140 1.969237E+04 -1.355987E+03 1.052418E+04 43 -4.124621E+03 1.410096E+04 -6.949261E+03 -71.3357 1.644833E+04 -6.471986E+03 1.146016E+04 50 5.819197E+03 1.935879E+04 5.195791E+02 87.8056 1.937870E+04 5.799288E+03 6.789707E+03 77 4.771296E+03 1.902094E+04 5.283271E+02 87.8796 1.904050E+04 4.751735E+03 7.144384E+03 107 2.753933E+03 1.827346E+04 1.391141E+03 84.9181 1.839717E+04 2.630220E+03 7.883475E+03 137 -2.740796E+01 1.707085E+04 1.390223E+03 85.3818 1.718315E+04 -1.397070E+02 8.661428E+03 167 -3.554539E+02 1.596765E+04 4.803184E+02 88.3160 1.598177E+04 -3.695757E+02 8.175674E+03 195 -1.313383E+03 1.546620E+04 4.776211E+02 88.3709 1.547979E+04 -1.326967E+03 8.403376E+03 222 1.531549E+03 1.570148E+04 1.064693E+03 85.7269 1.578103E+04 1.451998E+03 7.164518E+03 249 -5.897609E+02 1.474165E+04 1.056628E+03 86.0760 1.481413E+04 -6.622397E+02 7.738185E+03 272 8.948616E+02 1.441988E+04 4.913975E+02 87.9220 1.443771E+04 8.770312E+02 6.780339E+03 293 -8.529987E+01 1.398679E+04 4.887690E+02 88.0131 1.400374E+04 -1.022559E+02 7.052999E+03 341 2.448001E+03 1.191496E+04 1.190523E+02 89.2796 1.191646E+04 2.446504E+03 4.734979E+03 347 1.657773E+02 1.212313E+04 1.643959E+02 89.2125 1.212539E+04 1.635176E+02 5.980937E+03 348 -4.127686E+01 1.216101E+04 -1.523051E+02 -89.2850 1.216291E+04 -4.317676E+01 6.103045E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 25, EPSILON SUB E = 2.1353777E-14 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 25 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.826500E+04 4.192031E+02 -6.007087E+03 -73.6292 2.183854E+03 -2.002965E+04 1.110675E+04 2 1.564867E+03 7.396398E+03 -1.382274E+04 -50.9557 1.860755E+04 -9.646288E+03 1.412692E+04 3 6.923719E+03 2.586449E+04 7.277896E+03 71.2290 2.833797E+04 4.450236E+03 1.194387E+04 4 8.813396E+03 2.867339E+04 2.541154E+03 82.8228 2.899338E+04 8.493402E+03 1.024999E+04 5 1.138390E+04 2.348703E+04 3.306713E+03 75.6734 2.433153E+04 1.053940E+04 6.896067E+03 6 4.525465E+03 2.181315E+04 3.551744E+03 78.8312 2.251441E+04 3.824207E+03 9.345102E+03 7 -1.204743E+04 -3.897500E+02 4.751836E+02 87.6697 -3.704126E+02 -1.206677E+04 5.848176E+03 8 -1.310843E+04 5.529453E+02 -1.631902E+02 -89.3157 5.548945E+02 -1.311038E+04 6.832639E+03 9 -1.207363E+04 -8.386719E+02 1.355847E+01 89.9309 -8.386558E+02 -1.207364E+04 5.617495E+03 10 -1.293351E+04 9.457578E+02 1.539758E+01 89.9364 9.457749E+02 -1.293353E+04 6.939650E+03 11 -1.183667E+04 -1.006031E+03 -6.161511E+01 -89.6741 -1.005681E+03 -1.183702E+04 5.415668E+03 12 -1.349507E+04 6.587812E+02 4.229277E+02 88.2900 6.714077E+02 -1.350770E+04 7.089552E+03 13 -1.128531E+04 -7.240156E+02 -1.159817E+03 -83.8063 -5.981470E+02 -1.141118E+04 5.406515E+03 14 -1.046907E+04 -4.520156E+02 5.330229E+02 86.9626 -4.237324E+02 -1.049735E+04 5.036809E+03 15 -1.454479E+04 9.638672E+02 9.402202E+02 86.5433 1.020661E+03 -1.460159E+04 7.811124E+03 16 -1.527246E+04 1.889453E+02 -2.125598E+02 -89.2125 1.918667E+02 -1.527539E+04 7.733626E+03 17 -8.800016E+03 -2.550312E+02 -2.595860E+03 -74.3591 4.717441E+02 -9.526791E+03 4.999268E+03 18 -4.042770E+03 1.330523E+03 4.511158E+03 60.3881 3.894459E+03 -6.606706E+03 5.250583E+03 19 -1.335716E+04 1.718641E+03 -1.288011E+03 -85.1517 1.827891E+03 -1.346641E+04 7.647151E+03 20 1.083717E+04 4.970102E+03 -1.084341E+04 -37.4309 1.913686E+04 -3.329583E+03 1.123322E+04 21 -8.844910E+03 1.426195E+03 1.000551E+04 58.5851 7.537159E+03 -1.495587E+04 1.124652E+04 22 3.197598E+03 2.015575E+04 -9.445620E+03 -65.9567 2.436976E+04 -1.016414E+03 1.269309E+04 23 5.410400E+03 2.467563E+04 -4.475880E+03 -77.5388 2.566473E+04 4.421303E+03 1.062171E+04 24 2.546684E+03 2.299562E+04 5.384626E+03 76.1134 2.432685E+04 1.215463E+03 1.155569E+04 25 5.616836E+04 1.592575E+04 3.854069E+03 5.4216 5.653415E+04 1.555996E+04 2.048709E+04 26 8.865934E+03 2.045060E+04 3.286705E+03 75.2142 2.131811E+04 7.998420E+03 6.659844E+03 42 1.161713E+03 1.739073E+04 -7.508410E+03 -68.6108 2.033160E+04 -1.779161E+03 1.105538E+04 43 -4.477994E+03 1.462050E+04 -7.203489E+03 -71.4854 1.703279E+04 -6.890285E+03 1.196154E+04 50 5.717616E+03 1.994835E+04 4.989023E+02 87.9946 1.996582E+04 5.700146E+03 7.132838E+03 77 4.712893E+03 1.961027E+04 5.058242E+02 88.0576 1.962743E+04 4.695738E+03 7.465845E+03 107 2.434782E+03 1.875592E+04 1.629387E+03 84.3542 1.891700E+04 2.273705E+03 8.321646E+03 137 -8.201016E+02 1.727220E+04 1.625526E+03 84.9065 1.741709E+04 -9.649893E+02 9.191038E+03 167 -1.411852E+03 1.594408E+04 5.293496E+02 88.2547 1.596021E+04 -1.427981E+03 8.694096E+03 195 -2.466419E+03 1.534790E+04 5.252305E+02 88.3127 1.536337E+04 -2.481891E+03 8.922630E+03 222 1.318128E+03 1.604096E+04 1.268518E+03 85.1114 1.614946E+04 1.209631E+03 7.469912E+03 249 -1.206263E+03 1.484862E+04 1.255888E+03 85.5541 1.494627E+04 -1.303910E+03 8.125090E+03 272 9.235496E+02 1.483848E+04 5.252505E+02 87.8413 1.485828E+04 9.037515E+02 6.977265E+03 293 -1.242105E+02 1.436635E+04 5.225151E+02 87.9375 1.438516E+04 -1.430278E+02 7.264096E+03 341 2.398142E+03 1.241254E+04 1.226330E+02 89.2985 1.241404E+04 2.396641E+03 5.008701E+03 347 1.838286E+02 1.259587E+04 1.593670E+02 89.2645 1.259792E+04 1.817822E+02 6.208067E+03 348 -1.040923E+02 1.266196E+04 -1.746213E+02 -89.2165 1.266435E+04 -1.064800E+02 6.385415E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 26, EPSILON SUB E = -2.7624929E-14 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 26 S T R E S S E S I N T R I A N G U L A R M E M B R A N E S ( C T R M E M ) ELEMENT STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL PRINCIPAL STRESSES MAX ID. NORMAL-X NORMAL-Y SHEAR-XY STRESS ANGLE MAJOR MINOR SHEAR 1 -1.905495E+04 2.874922E+02 -6.391353E+03 -73.2704 2.208592E+03 -2.097605E+04 1.159232E+04 2 1.715633E+03 7.700266E+03 -1.437920E+04 -50.8777 1.939520E+04 -9.979298E+03 1.468725E+04 3 7.301122E+03 2.693710E+04 7.586008E+03 71.1540 2.952638E+04 4.711839E+03 1.240727E+04 4 9.282664E+03 2.985047E+04 2.633811E+03 82.8174 3.018238E+04 8.950748E+03 1.061582E+04 5 1.193545E+04 2.401091E+04 3.680496E+03 74.3171 2.504426E+04 1.090210E+04 7.071082E+03 6 4.261963E+03 2.209298E+04 3.992996E+03 77.9369 2.294632E+04 3.408628E+03 9.768845E+03 7 -1.286042E+04 -3.910312E+02 4.766358E+02 87.8141 -3.728389E+02 -1.287861E+04 6.252885E+03 8 -1.354160E+04 5.481953E+02 -1.571636E+02 -89.3610 5.499478E+02 -1.354335E+04 7.046651E+03 9 -1.296903E+04 -8.392109E+02 1.417383E+01 89.9330 -8.391943E+02 -1.296904E+04 6.064925E+03 10 -1.338009E+04 9.489688E+02 2.401782E+01 89.9040 9.490088E+02 -1.338013E+04 7.164571E+03 11 -1.290762E+04 -1.006938E+03 -5.812427E+01 -89.7202 -1.006653E+03 -1.290791E+04 5.950627E+03 12 -1.397562E+04 6.336719E+02 4.552629E+02 88.2168 6.478452E+02 -1.398979E+04 7.318820E+03 13 -1.248789E+04 -7.712578E+02 -1.285191E+03 -83.8133 -6.319429E+02 -1.262721E+04 5.997633E+03 14 -1.173874E+04 -4.597031E+02 6.100000E+02 86.9133 -4.268086E+02 -1.177164E+04 5.672414E+03 15 -1.510608E+04 1.099031E+03 1.052597E+03 86.2991 1.167116E+03 -1.517416E+04 8.170640E+03 16 -1.597331E+04 1.389844E+02 -1.853857E+02 -89.3409 1.411172E+02 -1.597545E+04 8.058281E+03 17 -1.035663E+04 -2.861094E+02 -3.195858E+03 -73.7984 6.424673E+02 -1.128521E+04 5.963838E+03 18 -4.921805E+03 1.525281E+03 5.234525E+03 60.8129 4.449216E+03 -7.845739E+03 6.147478E+03 19 -1.393463E+04 1.510555E+03 -1.424491E+03 -84.7744 1.640835E+03 -1.406491E+04 7.852874E+03 20 1.189110E+04 5.404516E+03 -1.136987E+04 -37.0395 2.047121E+04 -3.175590E+03 1.182340E+04 21 -9.581156E+03 1.357945E+03 1.031550E+04 58.9669 7.564248E+03 -1.578746E+04 1.167585E+04 22 3.368283E+03 2.093782E+04 -9.881724E+03 -65.8184 2.537503E+04 -1.068923E+03 1.322197E+04 23 5.711260E+03 2.567838E+04 -4.662566E+03 -77.4831 2.671348E+04 4.676153E+03 1.101866E+04 24 2.252242E+03 2.366701E+04 5.697152E+03 75.9918 2.508834E+04 8.309160E+02 1.212871E+04 25 6.054399E+04 1.703085E+04 4.263271E+03 5.5434 6.095776E+04 1.661708E+04 2.217034E+04 26 9.197650E+03 2.078331E+04 3.580394E+03 74.1404 2.180048E+04 8.180480E+03 6.809999E+03 42 9.668184E+02 1.789389E+04 -7.917072E+03 -68.4554 2.101964E+04 -2.158928E+03 1.158928E+04 43 -4.856059E+03 1.515563E+04 -7.455208E+03 -71.6554 1.762765E+04 -7.328077E+03 1.247786E+04 50 5.633398E+03 2.053400E+04 4.957930E+02 88.0964 2.055048E+04 5.616920E+03 7.466780E+03 77 4.636298E+03 2.018828E+04 5.013066E+02 88.1557 2.020442E+04 4.620155E+03 7.792132E+03 107 2.136227E+03 1.921470E+04 1.856342E+03 83.8677 1.941415E+04 1.936780E+03 8.738685E+03 137 -1.568388E+03 1.744804E+04 1.848314E+03 84.4997 1.762602E+04 -1.746370E+03 9.686195E+03 167 -2.496134E+03 1.582996E+04 6.010352E+02 88.1236 1.584965E+04 -2.515824E+03 9.182739E+03 195 -3.691850E+03 1.510535E+04 5.946992E+02 88.1897 1.512415E+04 -3.710645E+03 9.417396E+03 222 1.047217E+03 1.632654E+04 1.487138E+03 84.4923 1.646994E+04 9.038193E+02 7.783059E+03 249 -1.907489E+03 1.486786E+04 1.467581E+03 85.0378 1.499528E+04 -2.034912E+03 8.515097E+03 272 9.457738E+02 1.524183E+04 5.559590E+02 87.7763 1.526342E+04 9.241851E+02 7.169615E+03 293 -1.634848E+02 1.473588E+04 5.533062E+02 87.8762 1.475640E+04 -1.840039E+02 7.470203E+03 341 2.278297E+03 1.294697E+04 1.194044E+02 89.3589 1.294831E+04 2.276960E+03 5.335674E+03 347 2.061387E+02 1.306905E+04 1.435672E+02 89.3606 1.307065E+04 2.045366E+02 6.433059E+03 348 -1.704590E+02 1.315023E+04 -2.045999E+02 -89.1202 1.315337E+04 -1.736006E+02 6.663487E+03 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ESTL MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER WARNING MESSAGE 2079, SDR2 FINDS THE -EDT-, -EST-, OR -GPTT- PURGED OR INADEQUATE AND IS THUS NOT PROCESSING ANY REQUESTS FOR STRESSES OR FORCES. 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 4.437253E-04 0.0 0.0 0.0 0.0 2 G -4.632304E-05 4.319053E-04 0.0 0.0 0.0 0.0 3 G -9.160436E-05 4.015893E-04 0.0 0.0 0.0 0.0 4 G -1.369347E-04 3.499186E-04 0.0 0.0 0.0 0.0 5 G -1.596944E-04 3.061367E-04 0.0 0.0 0.0 0.0 6 G -1.809947E-04 2.551406E-04 0.0 0.0 0.0 0.0 7 G -1.959206E-04 1.738305E-04 0.0 0.0 0.0 0.0 8 G -2.072247E-04 1.104440E-04 0.0 0.0 0.0 0.0 9 G -1.541339E-04 1.182969E-04 0.0 0.0 0.0 0.0 10 G -1.641010E-04 5.092394E-05 0.0 0.0 0.0 0.0 11 G -1.715528E-04 2.881442E-05 0.0 0.0 0.0 0.0 12 G -1.959782E-04 0.0 0.0 0.0 0.0 0.0 13 G -1.831417E-04 0.0 0.0 0.0 0.0 0.0 14 G -1.780316E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 4.491192E-04 0.0 0.0 0.0 0.0 16 G -1.835453E-05 4.466263E-04 0.0 0.0 0.0 0.0 17 G -5.425214E-05 4.260661E-04 0.0 0.0 0.0 0.0 18 G -8.750086E-05 3.846349E-04 0.0 0.0 0.0 0.0 19 G -1.021150E-04 3.536730E-04 0.0 0.0 0.0 0.0 20 G -1.144945E-04 3.146818E-04 0.0 0.0 0.0 0.0 21 G -1.230898E-04 2.575406E-04 0.0 0.0 0.0 0.0 22 G -1.246510E-04 1.810626E-04 0.0 0.0 0.0 0.0 23 G -1.397690E-04 8.675934E-05 0.0 0.0 0.0 0.0 24 G -1.580680E-04 4.284813E-05 0.0 0.0 0.0 0.0 25 G -1.611345E-04 3.707331E-05 0.0 0.0 0.0 0.0 26 G -1.744741E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 4.561752E-04 0.0 0.0 0.0 0.0 28 G -2.767431E-05 4.441231E-04 0.0 0.0 0.0 0.0 29 G -5.343026E-05 4.131817E-04 0.0 0.0 0.0 0.0 30 G -7.399905E-05 3.601039E-04 0.0 0.0 0.0 0.0 31 G -8.170740E-05 3.186863E-04 0.0 0.0 0.0 0.0 32 G -8.628595E-05 2.663865E-04 0.0 0.0 0.0 0.0 33 G -9.691533E-05 2.034875E-04 0.0 0.0 0.0 0.0 34 G -1.063749E-04 1.355610E-04 0.0 0.0 0.0 0.0 35 G -1.265434E-04 9.416053E-05 0.0 0.0 0.0 0.0 36 G -1.428651E-04 7.426023E-05 0.0 0.0 0.0 0.0 196 G 0.0 1.100686E-03 0.0 0.0 0.0 0.0 200 G -1.692889E-04 1.035016E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 4.824684E-04 0.0 0.0 0.0 0.0 2 G -5.034928E-05 4.696237E-04 0.0 0.0 0.0 0.0 3 G -9.956503E-05 4.366805E-04 0.0 0.0 0.0 0.0 4 G -1.488292E-04 3.805361E-04 0.0 0.0 0.0 0.0 5 G -1.735597E-04 3.329737E-04 0.0 0.0 0.0 0.0 6 G -1.967018E-04 2.775778E-04 0.0 0.0 0.0 0.0 7 G -2.129165E-04 1.892941E-04 0.0 0.0 0.0 0.0 8 G -2.252398E-04 1.204212E-04 0.0 0.0 0.0 0.0 9 G -1.675362E-04 1.290158E-04 0.0 0.0 0.0 0.0 10 G -1.785089E-04 5.574863E-05 0.0 0.0 0.0 0.0 11 G -1.866034E-04 3.147629E-05 0.0 0.0 0.0 0.0 12 G -2.129331E-04 0.0 0.0 0.0 0.0 0.0 13 G -1.991152E-04 0.0 0.0 0.0 0.0 0.0 14 G -1.936389E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 4.883318E-04 0.0 0.0 0.0 0.0 16 G -1.995115E-05 4.856227E-04 0.0 0.0 0.0 0.0 17 G -5.897166E-05 4.632802E-04 0.0 0.0 0.0 0.0 18 G -9.511395E-05 4.182599E-04 0.0 0.0 0.0 0.0 19 G -1.110017E-04 3.846191E-04 0.0 0.0 0.0 0.0 20 G -1.244629E-04 3.422573E-04 0.0 0.0 0.0 0.0 21 G -1.338146E-04 2.801895E-04 0.0 0.0 0.0 0.0 22 G -1.355330E-04 1.971397E-04 0.0 0.0 0.0 0.0 23 G -1.519640E-04 9.463387E-05 0.0 0.0 0.0 0.0 24 G -1.718841E-04 4.665594E-05 0.0 0.0 0.0 0.0 25 G -1.752241E-04 4.033215E-05 0.0 0.0 0.0 0.0 26 G -1.897667E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 4.960014E-04 0.0 0.0 0.0 0.0 28 G -3.008486E-05 4.829045E-04 0.0 0.0 0.0 0.0 29 G -5.808600E-05 4.492819E-04 0.0 0.0 0.0 0.0 30 G -8.045345E-05 3.916092E-04 0.0 0.0 0.0 0.0 31 G -8.883888E-05 3.466101E-04 0.0 0.0 0.0 0.0 32 G -9.382609E-05 2.897955E-04 0.0 0.0 0.0 0.0 33 G -1.053673E-04 2.214576E-04 0.0 0.0 0.0 0.0 34 G -1.156315E-04 1.476091E-04 0.0 0.0 0.0 0.0 35 G -1.375752E-04 1.024718E-04 0.0 0.0 0.0 0.0 36 G -1.553327E-04 8.077969E-05 0.0 0.0 0.0 0.0 196 G 0.0 1.196499E-03 0.0 0.0 0.0 0.0 200 G -1.839802E-04 1.125074E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 5.410534E-04 0.0 0.0 0.0 0.0 2 G -5.638440E-05 5.266806E-04 0.0 0.0 0.0 0.0 3 G -1.114949E-04 4.898240E-04 0.0 0.0 0.0 0.0 4 G -1.666432E-04 4.270262E-04 0.0 0.0 0.0 0.0 5 G -1.943151E-04 3.738649E-04 0.0 0.0 0.0 0.0 6 G -2.202088E-04 3.119708E-04 0.0 0.0 0.0 0.0 7 G -2.383570E-04 2.134724E-04 0.0 0.0 0.0 0.0 8 G -2.524021E-04 1.363605E-04 0.0 0.0 0.0 0.0 9 G -1.876154E-04 1.462562E-04 0.0 0.0 0.0 0.0 10 G -2.003632E-04 6.430339E-05 0.0 0.0 0.0 0.0 11 G -2.095395E-04 3.596078E-05 0.0 0.0 0.0 0.0 12 G -2.384796E-04 0.0 0.0 0.0 0.0 0.0 13 G -2.233687E-04 0.0 0.0 0.0 0.0 0.0 14 G -2.174778E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 5.476224E-04 0.0 0.0 0.0 0.0 16 G -2.234828E-05 5.445906E-04 0.0 0.0 0.0 0.0 17 G -6.605828E-05 5.195916E-04 0.0 0.0 0.0 0.0 18 G -1.065495E-04 4.692283E-04 0.0 0.0 0.0 0.0 19 G -1.243559E-04 4.316070E-04 0.0 0.0 0.0 0.0 20 G -1.394545E-04 3.842471E-04 0.0 0.0 0.0 0.0 21 G -1.499603E-04 3.148991E-04 0.0 0.0 0.0 0.0 22 G -1.519585E-04 2.221845E-04 0.0 0.0 0.0 0.0 23 G -1.703628E-04 1.074742E-04 0.0 0.0 0.0 0.0 24 G -1.928029E-04 5.262768E-05 0.0 0.0 0.0 0.0 25 G -1.965883E-04 4.532966E-05 0.0 0.0 0.0 0.0 26 G -2.130945E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 5.562127E-04 0.0 0.0 0.0 0.0 28 G -3.371329E-05 5.415580E-04 0.0 0.0 0.0 0.0 29 G -6.509878E-05 5.039411E-04 0.0 0.0 0.0 0.0 30 G -9.019169E-05 4.394341E-04 0.0 0.0 0.0 0.0 31 G -9.960899E-05 3.891181E-04 0.0 0.0 0.0 0.0 32 G -1.052336E-04 3.256166E-04 0.0 0.0 0.0 0.0 33 G -1.181109E-04 2.492052E-04 0.0 0.0 0.0 0.0 34 G -1.295362E-04 1.664750E-04 0.0 0.0 0.0 0.0 35 G -1.542024E-04 1.153186E-04 0.0 0.0 0.0 0.0 36 G -1.741623E-04 9.075186E-05 0.0 0.0 0.0 0.0 196 G 0.0 1.340520E-03 0.0 0.0 0.0 0.0 200 G -2.059299E-04 1.260331E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 4 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 6.001653E-04 0.0 0.0 0.0 0.0 2 G -6.241411E-05 5.842744E-04 0.0 0.0 0.0 0.0 3 G -1.234103E-04 5.435341E-04 0.0 0.0 0.0 0.0 4 G -1.844192E-04 4.741461E-04 0.0 0.0 0.0 0.0 5 G -2.150085E-04 4.154700E-04 0.0 0.0 0.0 0.0 6 G -2.436267E-04 3.471904E-04 0.0 0.0 0.0 0.0 7 G -2.636767E-04 2.387937E-04 0.0 0.0 0.0 0.0 8 G -2.796320E-04 1.534731E-04 0.0 0.0 0.0 0.0 9 G -2.076112E-04 1.648433E-04 0.0 0.0 0.0 0.0 10 G -2.223238E-04 7.389058E-05 0.0 0.0 0.0 0.0 11 G -2.327871E-04 4.092522E-05 0.0 0.0 0.0 0.0 12 G -2.640988E-04 0.0 0.0 0.0 0.0 0.0 13 G -2.478743E-04 0.0 0.0 0.0 0.0 0.0 14 G -2.417084E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 6.074415E-04 0.0 0.0 0.0 0.0 16 G -2.474758E-05 6.040888E-04 0.0 0.0 0.0 0.0 17 G -7.315211E-05 5.764514E-04 0.0 0.0 0.0 0.0 18 G -1.180007E-04 5.207899E-04 0.0 0.0 0.0 0.0 19 G -1.377347E-04 4.792311E-04 0.0 0.0 0.0 0.0 20 G -1.544871E-04 4.269375E-04 0.0 0.0 0.0 0.0 21 G -1.661734E-04 3.504403E-04 0.0 0.0 0.0 0.0 22 G -1.685127E-04 2.482942E-04 0.0 0.0 0.0 0.0 23 G -1.889587E-04 1.214879E-04 0.0 0.0 0.0 0.0 24 G -2.139410E-04 5.887850E-05 0.0 0.0 0.0 0.0 25 G -2.181997E-04 5.044760E-05 0.0 0.0 0.0 0.0 26 G -2.368076E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 6.169527E-04 0.0 0.0 0.0 0.0 28 G -3.735554E-05 6.007506E-04 0.0 0.0 0.0 0.0 29 G -7.214383E-05 5.591699E-04 0.0 0.0 0.0 0.0 30 G -9.999456E-05 4.878945E-04 0.0 0.0 0.0 0.0 31 G -1.104649E-04 4.323260E-04 0.0 0.0 0.0 0.0 32 G -1.167591E-04 3.622403E-04 0.0 0.0 0.0 0.0 33 G -1.309392E-04 2.778567E-04 0.0 0.0 0.0 0.0 34 G -1.434779E-04 1.862411E-04 0.0 0.0 0.0 0.0 35 G -1.709253E-04 1.285863E-04 0.0 0.0 0.0 0.0 36 G -1.931380E-04 1.009370E-04 0.0 0.0 0.0 0.0 196 G 0.0 1.484880E-03 0.0 0.0 0.0 0.0 200 G -2.277817E-04 1.395779E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 5 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 6.598615E-04 0.0 0.0 0.0 0.0 2 G -6.844442E-05 6.424632E-04 0.0 0.0 0.0 0.0 3 G -1.353233E-04 5.978705E-04 0.0 0.0 0.0 0.0 4 G -2.021709E-04 5.219577E-04 0.0 0.0 0.0 0.0 5 G -2.356461E-04 4.578651E-04 0.0 0.0 0.0 0.0 6 G -2.669374E-04 3.833145E-04 0.0 0.0 0.0 0.0 7 G -2.888387E-04 2.654064E-04 0.0 0.0 0.0 0.0 8 G -3.064716E-04 1.724722E-04 0.0 0.0 0.0 0.0 9 G -2.278283E-04 1.851111E-04 0.0 0.0 0.0 0.0 10 G -2.444018E-04 8.430413E-05 0.0 0.0 0.0 0.0 11 G -2.562429E-04 4.635940E-05 0.0 0.0 0.0 0.0 12 G -2.891866E-04 0.0 0.0 0.0 0.0 0.0 13 G -2.723119E-04 0.0 0.0 0.0 0.0 0.0 14 G -2.661503E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 6.678472E-04 0.0 0.0 0.0 0.0 16 G -2.715225E-05 6.641758E-04 0.0 0.0 0.0 0.0 17 G -8.026318E-05 6.339197E-04 0.0 0.0 0.0 0.0 18 G -1.294864E-04 5.730070E-04 0.0 0.0 0.0 0.0 19 G -1.511651E-04 5.275583E-04 0.0 0.0 0.0 0.0 20 G -1.696002E-04 4.704015E-04 0.0 0.0 0.0 0.0 21 G -1.825247E-04 3.869195E-04 0.0 0.0 0.0 0.0 22 G -1.853332E-04 2.756751E-04 0.0 0.0 0.0 0.0 23 G -2.077571E-04 1.366182E-04 0.0 0.0 0.0 0.0 24 G -2.352533E-04 6.541745E-05 0.0 0.0 0.0 0.0 25 G -2.400062E-04 5.569240E-05 0.0 0.0 0.0 0.0 26 G -2.607968E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 6.782807E-04 0.0 0.0 0.0 0.0 28 G -4.101812E-05 6.605424E-04 0.0 0.0 0.0 0.0 29 G -7.923547E-05 6.150308E-04 0.0 0.0 0.0 0.0 30 G -1.098899E-04 5.370616E-04 0.0 0.0 0.0 0.0 31 G -1.214459E-04 4.763144E-04 0.0 0.0 0.0 0.0 32 G -1.284584E-04 3.997791E-04 0.0 0.0 0.0 0.0 33 G -1.438843E-04 3.075255E-04 0.0 0.0 0.0 0.0 34 G -1.574424E-04 2.068809E-04 0.0 0.0 0.0 0.0 35 G -1.877214E-04 1.422786E-04 0.0 0.0 0.0 0.0 36 G -2.122309E-04 1.113446E-04 0.0 0.0 0.0 0.0 196 G 0.0 1.629604E-03 0.0 0.0 0.0 0.0 200 G -2.495303E-04 1.531438E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 6 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 7.202274E-04 0.0 0.0 0.0 0.0 2 G -7.447298E-05 7.013339E-04 0.0 0.0 0.0 0.0 3 G -1.472299E-04 6.529248E-04 0.0 0.0 0.0 0.0 4 G -2.198987E-04 5.705618E-04 0.0 0.0 0.0 0.0 5 G -2.562407E-04 5.011486E-04 0.0 0.0 0.0 0.0 6 G -2.901852E-04 4.204541E-04 0.0 0.0 0.0 0.0 7 G -3.139417E-04 2.933455E-04 0.0 0.0 0.0 0.0 8 G -3.332280E-04 1.931443E-04 0.0 0.0 0.0 0.0 9 G -2.482080E-04 2.070005E-04 0.0 0.0 0.0 0.0 10 G -2.666471E-04 9.555749E-05 0.0 0.0 0.0 0.0 11 G -2.799192E-04 5.186816E-05 0.0 0.0 0.0 0.0 12 G -3.142226E-04 0.0 0.0 0.0 0.0 0.0 13 G -2.967601E-04 0.0 0.0 0.0 0.0 0.0 14 G -2.907498E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 7.289252E-04 0.0 0.0 0.0 0.0 16 G -2.956170E-05 7.249374E-04 0.0 0.0 0.0 0.0 17 G -8.738985E-05 6.920851E-04 0.0 0.0 0.0 0.0 18 G -1.410037E-04 6.259747E-04 0.0 0.0 0.0 0.0 19 G -1.646415E-04 5.766862E-04 0.0 0.0 0.0 0.0 20 G -1.847830E-04 5.147420E-04 0.0 0.0 0.0 0.0 21 G -1.989825E-04 4.244245E-04 0.0 0.0 0.0 0.0 22 G -2.023381E-04 3.043565E-04 0.0 0.0 0.0 0.0 23 G -2.266417E-04 1.530949E-04 0.0 0.0 0.0 0.0 24 G -2.568770E-04 7.253439E-05 0.0 0.0 0.0 0.0 25 G -2.621136E-04 6.113598E-05 0.0 0.0 0.0 0.0 26 G -2.851745E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 7.402817E-04 0.0 0.0 0.0 0.0 28 G -4.470094E-05 7.210202E-04 0.0 0.0 0.0 0.0 29 G -8.637313E-05 6.716144E-04 0.0 0.0 0.0 0.0 30 G -1.198730E-04 5.870293E-04 0.0 0.0 0.0 0.0 31 G -1.325407E-04 5.211777E-04 0.0 0.0 0.0 0.0 32 G -1.403099E-04 4.383122E-04 0.0 0.0 0.0 0.0 33 G -1.569408E-04 3.383024E-04 0.0 0.0 0.0 0.0 34 G -1.714562E-04 2.286099E-04 0.0 0.0 0.0 0.0 35 G -2.046286E-04 1.566036E-04 0.0 0.0 0.0 0.0 36 G -2.314677E-04 1.220630E-04 0.0 0.0 0.0 0.0 196 G 0.0 1.774756E-03 0.0 0.0 0.0 0.0 200 G -2.711570E-04 1.667344E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 7 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 7.815418E-04 0.0 0.0 0.0 0.0 2 G -8.049673E-05 7.611701E-04 0.0 0.0 0.0 0.0 3 G -1.591233E-04 7.089940E-04 0.0 0.0 0.0 0.0 4 G -2.375921E-04 6.202827E-04 0.0 0.0 0.0 0.0 5 G -2.767843E-04 5.456676E-04 0.0 0.0 0.0 0.0 6 G -3.133765E-04 4.589963E-04 0.0 0.0 0.0 0.0 7 G -3.390092E-04 3.230392E-04 0.0 0.0 0.0 0.0 8 G -3.601890E-04 2.156500E-04 0.0 0.0 0.0 0.0 9 G -2.685986E-04 2.308714E-04 0.0 0.0 0.0 0.0 10 G -2.890537E-04 1.076371E-04 0.0 0.0 0.0 0.0 11 G -3.039135E-04 5.780730E-05 0.0 0.0 0.0 0.0 12 G -3.396863E-04 0.0 0.0 0.0 0.0 0.0 13 G -3.215225E-04 0.0 0.0 0.0 0.0 0.0 14 G -3.156560E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 7.909547E-04 0.0 0.0 0.0 0.0 16 G -3.197655E-05 7.866537E-04 0.0 0.0 0.0 0.0 17 G -9.453415E-05 7.512359E-04 0.0 0.0 0.0 0.0 18 G -1.525568E-04 6.800015E-04 0.0 0.0 0.0 0.0 19 G -1.781686E-04 6.269391E-04 0.0 0.0 0.0 0.0 20 G -2.000409E-04 5.603064E-04 0.0 0.0 0.0 0.0 21 G -2.155453E-04 4.633284E-04 0.0 0.0 0.0 0.0 22 G -2.195075E-04 3.347227E-04 0.0 0.0 0.0 0.0 23 G -2.456852E-04 1.717171E-04 0.0 0.0 0.0 0.0 24 G -2.789487E-04 8.064210E-05 0.0 0.0 0.0 0.0 25 G -2.846820E-04 6.690581E-05 0.0 0.0 0.0 0.0 26 G -3.102119E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 8.032349E-04 0.0 0.0 0.0 0.0 28 G -4.840924E-05 7.824677E-04 0.0 0.0 0.0 0.0 29 G -9.356840E-05 7.292179E-04 0.0 0.0 0.0 0.0 30 G -1.299632E-04 6.381189E-04 0.0 0.0 0.0 0.0 31 G -1.437714E-04 5.672583E-04 0.0 0.0 0.0 0.0 32 G -1.523386E-04 4.782037E-04 0.0 0.0 0.0 0.0 33 G -1.701480E-04 3.706054E-04 0.0 0.0 0.0 0.0 34 G -1.855829E-04 2.520305E-04 0.0 0.0 0.0 0.0 35 G -2.217124E-04 1.719474E-04 0.0 0.0 0.0 0.0 36 G -2.509133E-04 1.332817E-04 0.0 0.0 0.0 0.0 196 G 0.0 1.920526E-03 0.0 0.0 0.0 0.0 200 G -2.926076E-04 1.803603E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 8 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 8.644324E-04 0.0 0.0 0.0 0.0 2 G -8.852072E-05 8.421098E-04 0.0 0.0 0.0 0.0 3 G -1.749596E-04 7.849707E-04 0.0 0.0 0.0 0.0 4 G -2.611267E-04 6.879210E-04 0.0 0.0 0.0 0.0 5 G -3.040884E-04 6.065195E-04 0.0 0.0 0.0 0.0 6 G -3.441913E-04 5.120938E-04 0.0 0.0 0.0 0.0 7 G -3.723697E-04 3.647236E-04 0.0 0.0 0.0 0.0 8 G -3.962679E-04 2.478042E-04 0.0 0.0 0.0 0.0 9 G -2.958119E-04 2.649779E-04 0.0 0.0 0.0 0.0 10 G -3.190592E-04 1.247562E-04 0.0 0.0 0.0 0.0 11 G -3.361666E-04 6.691796E-05 0.0 0.0 0.0 0.0 12 G -3.739180E-04 0.0 0.0 0.0 0.0 0.0 13 G -3.550093E-04 0.0 0.0 0.0 0.0 0.0 14 G -3.492477E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 8.748021E-04 0.0 0.0 0.0 0.0 16 G -3.520215E-05 8.700872E-04 0.0 0.0 0.0 0.0 17 G -1.040786E-04 8.312858E-04 0.0 0.0 0.0 0.0 18 G -1.679985E-04 7.533079E-04 0.0 0.0 0.0 0.0 19 G -1.962576E-04 6.952958E-04 0.0 0.0 0.0 0.0 20 G -2.204630E-04 6.225329E-04 0.0 0.0 0.0 0.0 21 G -2.377336E-04 5.169025E-04 0.0 0.0 0.0 0.0 22 G -2.425584E-04 3.772914E-04 0.0 0.0 0.0 0.0 23 G -2.713463E-04 1.988560E-04 0.0 0.0 0.0 0.0 24 G -3.087630E-04 9.256948E-05 0.0 0.0 0.0 0.0 25 G -3.152401E-04 7.498352E-05 0.0 0.0 0.0 0.0 26 G -3.443333E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 8.883152E-04 0.0 0.0 0.0 0.0 28 G -5.338391E-05 8.655610E-04 0.0 0.0 0.0 0.0 29 G -1.032312E-04 8.072464E-04 0.0 0.0 0.0 0.0 30 G -1.435491E-04 7.075876E-04 0.0 0.0 0.0 0.0 31 G -1.589187E-04 6.301693E-04 0.0 0.0 0.0 0.0 32 G -1.686119E-04 5.330387E-04 0.0 0.0 0.0 0.0 33 G -1.879779E-04 4.155421E-04 0.0 0.0 0.0 0.0 34 G -2.046427E-04 2.852843E-04 0.0 0.0 0.0 0.0 35 G -2.447160E-04 1.935875E-04 0.0 0.0 0.0 0.0 36 G -2.770836E-04 1.488447E-04 0.0 0.0 0.0 0.0 196 G 0.0 2.115629E-03 0.0 0.0 0.0 0.0 200 G -3.209980E-04 1.985710E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 9 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 9.484031E-04 0.0 0.0 0.0 0.0 2 G -9.652567E-05 9.241494E-04 0.0 0.0 0.0 0.0 3 G -1.907493E-04 8.621077E-04 0.0 0.0 0.0 0.0 4 G -2.845637E-04 7.568529E-04 0.0 0.0 0.0 0.0 5 G -3.312609E-04 6.688135E-04 0.0 0.0 0.0 0.0 6 G -3.748693E-04 5.668710E-04 0.0 0.0 0.0 0.0 7 G -4.057566E-04 4.082669E-04 0.0 0.0 0.0 0.0 8 G -4.324226E-04 2.817798E-04 0.0 0.0 0.0 0.0 9 G -3.231756E-04 3.009308E-04 0.0 0.0 0.0 0.0 10 G -3.491890E-04 1.426885E-04 0.0 0.0 0.0 0.0 11 G -3.685392E-04 7.669715E-05 0.0 0.0 0.0 0.0 12 G -4.082606E-04 0.0 0.0 0.0 0.0 0.0 13 G -3.887001E-04 0.0 0.0 0.0 0.0 0.0 14 G -3.830426E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 9.597315E-04 0.0 0.0 0.0 0.0 16 G -3.842833E-05 9.546061E-04 0.0 0.0 0.0 0.0 17 G -1.136254E-04 9.124576E-04 0.0 0.0 0.0 0.0 18 G -1.834470E-04 8.278267E-04 0.0 0.0 0.0 0.0 19 G -2.143565E-04 7.649493E-04 0.0 0.0 0.0 0.0 20 G -2.409033E-04 6.861801E-04 0.0 0.0 0.0 0.0 21 G -2.599239E-04 5.721235E-04 0.0 0.0 0.0 0.0 22 G -2.655788E-04 4.218809E-04 0.0 0.0 0.0 0.0 23 G -2.971400E-04 2.274217E-04 0.0 0.0 0.0 0.0 24 G -3.388838E-04 1.050879E-04 0.0 0.0 0.0 0.0 25 G -3.462058E-04 8.338042E-05 0.0 0.0 0.0 0.0 26 G -3.789134E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 9.744770E-04 0.0 0.0 0.0 0.0 28 G -5.837997E-05 9.497562E-04 0.0 0.0 0.0 0.0 29 G -1.129447E-04 8.864374E-04 0.0 0.0 0.0 0.0 30 G -1.572366E-04 7.783430E-04 0.0 0.0 0.0 0.0 31 G -1.742001E-04 6.944877E-04 0.0 0.0 0.0 0.0 32 G -1.850742E-04 5.894385E-04 0.0 0.0 0.0 0.0 33 G -2.059870E-04 4.622690E-04 0.0 0.0 0.0 0.0 34 G -2.239295E-04 3.204107E-04 0.0 0.0 0.0 0.0 35 G -2.680673E-04 2.164382E-04 0.0 0.0 0.0 0.0 36 G -3.036618E-04 1.650000E-04 0.0 0.0 0.0 0.0 196 G 0.0 2.311450E-03 0.0 0.0 0.0 0.0 200 G -3.491827E-04 2.168223E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 10 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.034284E-03 0.0 0.0 0.0 0.0 2 G -1.045028E-04 1.008132E-03 0.0 0.0 0.0 0.0 3 G -2.064789E-04 9.412849E-04 0.0 0.0 0.0 0.0 4 G -3.079078E-04 8.280201E-04 0.0 0.0 0.0 0.0 5 G -3.583486E-04 7.335253E-04 0.0 0.0 0.0 0.0 6 G -4.055381E-04 6.243457E-04 0.0 0.0 0.0 0.0 7 G -4.394597E-04 4.546129E-04 0.0 0.0 0.0 0.0 8 G -4.691173E-04 3.183740E-04 0.0 0.0 0.0 0.0 9 G -3.509439E-04 3.396366E-04 0.0 0.0 0.0 0.0 10 G -3.799432E-04 1.620259E-04 0.0 0.0 0.0 0.0 11 G -4.018266E-04 8.728378E-05 0.0 0.0 0.0 0.0 12 G -4.432705E-04 0.0 0.0 0.0 0.0 0.0 13 G -4.233017E-04 0.0 0.0 0.0 0.0 0.0 14 G -4.179445E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 1.046574E-03 0.0 0.0 0.0 0.0 16 G -4.165566E-05 1.041044E-03 0.0 0.0 0.0 0.0 17 G -1.231776E-04 9.956083E-04 0.0 0.0 0.0 0.0 18 G -1.989127E-04 9.044672E-04 0.0 0.0 0.0 0.0 19 G -2.324816E-04 8.368398E-04 0.0 0.0 0.0 0.0 20 G -2.613884E-04 7.522429E-04 0.0 0.0 0.0 0.0 21 G -2.821538E-04 6.299961E-04 0.0 0.0 0.0 0.0 22 G -2.886195E-04 4.695017E-04 0.0 0.0 0.0 0.0 23 G -3.231915E-04 2.583068E-04 0.0 0.0 0.0 0.0 24 G -3.694269E-04 1.183140E-04 0.0 0.0 0.0 0.0 25 G -3.779358E-04 9.246350E-05 0.0 0.0 0.0 0.0 26 G -4.142614E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 1.062550E-03 0.0 0.0 0.0 0.0 28 G -6.340670E-05 1.035896E-03 0.0 0.0 0.0 0.0 29 G -1.227270E-04 9.676673E-04 0.0 0.0 0.0 0.0 30 G -1.710405E-04 8.513160E-04 0.0 0.0 0.0 0.0 31 G -1.896057E-04 7.611769E-04 0.0 0.0 0.0 0.0 32 G -2.016667E-04 6.483963E-04 0.0 0.0 0.0 0.0 33 G -2.240214E-04 5.118091E-04 0.0 0.0 0.0 0.0 34 G -2.430676E-04 3.586116E-04 0.0 0.0 0.0 0.0 35 G -2.919485E-04 2.422506E-04 0.0 0.0 0.0 0.0 36 G -3.312629E-04 1.825969E-04 0.0 0.0 0.0 0.0 196 G 0.0 2.508589E-03 0.0 0.0 0.0 0.0 200 G -3.769922E-04 2.351483E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 11 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.122279E-03 0.0 0.0 0.0 0.0 2 G -1.124243E-04 1.094266E-03 0.0 0.0 0.0 0.0 3 G -2.220871E-04 1.022727E-03 0.0 0.0 0.0 0.0 4 G -3.310584E-04 9.016839E-04 0.0 0.0 0.0 0.0 5 G -3.852391E-04 8.009312E-04 0.0 0.0 0.0 0.0 6 G -4.361013E-04 6.848414E-04 0.0 0.0 0.0 0.0 7 G -4.734707E-04 5.038918E-04 0.0 0.0 0.0 0.0 8 G -5.063614E-04 3.576033E-04 0.0 0.0 0.0 0.0 9 G -3.790486E-04 3.811086E-04 0.0 0.0 0.0 0.0 10 G -4.113502E-04 1.826822E-04 0.0 0.0 0.0 0.0 11 G -4.362576E-04 9.829058E-05 0.0 0.0 0.0 0.0 12 G -4.790289E-04 0.0 0.0 0.0 0.0 0.0 13 G -4.588505E-04 0.0 0.0 0.0 0.0 0.0 14 G -4.538400E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 1.135531E-03 0.0 0.0 0.0 0.0 16 G -4.487348E-05 1.129602E-03 0.0 0.0 0.0 0.0 17 G -1.327015E-04 1.080948E-03 0.0 0.0 0.0 0.0 18 G -2.143317E-04 9.834614E-04 0.0 0.0 0.0 0.0 19 G -2.505441E-04 9.112170E-04 0.0 0.0 0.0 0.0 20 G -2.817957E-04 8.209927E-04 0.0 0.0 0.0 0.0 21 G -3.042284E-04 6.907957E-04 0.0 0.0 0.0 0.0 22 G -3.113456E-04 5.203621E-04 0.0 0.0 0.0 0.0 23 G -3.490928E-04 2.913245E-04 0.0 0.0 0.0 0.0 24 G -4.006493E-04 1.321177E-04 0.0 0.0 0.0 0.0 25 G -4.106036E-04 1.021933E-04 0.0 0.0 0.0 0.0 26 G -4.503642E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 1.152734E-03 0.0 0.0 0.0 0.0 28 G -6.845059E-05 1.124183E-03 0.0 0.0 0.0 0.0 29 G -1.325499E-04 1.051152E-03 0.0 0.0 0.0 0.0 30 G -1.849114E-04 9.267433E-04 0.0 0.0 0.0 0.0 31 G -2.050691E-04 8.304953E-04 0.0 0.0 0.0 0.0 32 G -2.183002E-04 7.101628E-04 0.0 0.0 0.0 0.0 33 G -2.420273E-04 5.645215E-04 0.0 0.0 0.0 0.0 34 G -2.620743E-04 4.006930E-04 0.0 0.0 0.0 0.0 35 G -3.164864E-04 2.705967E-04 0.0 0.0 0.0 0.0 36 G -3.601077E-04 2.015629E-04 0.0 0.0 0.0 0.0 196 G 0.0 2.707219E-03 0.0 0.0 0.0 0.0 200 G -4.043725E-04 2.535573E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 12 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.212288E-03 0.0 0.0 0.0 0.0 2 G -1.202660E-04 1.182449E-03 0.0 0.0 0.0 0.0 3 G -2.375249E-04 1.106324E-03 0.0 0.0 0.0 0.0 4 G -3.539470E-04 9.777201E-04 0.0 0.0 0.0 0.0 5 G -4.118595E-04 8.708762E-04 0.0 0.0 0.0 0.0 6 G -4.664791E-04 7.481498E-04 0.0 0.0 0.0 0.0 7 G -5.076927E-04 5.557718E-04 0.0 0.0 0.0 0.0 8 G -5.439902E-04 3.990503E-04 0.0 0.0 0.0 0.0 9 G -4.073262E-04 4.248691E-04 0.0 0.0 0.0 0.0 10 G -4.431748E-04 2.042368E-04 0.0 0.0 0.0 0.0 11 G -4.714922E-04 1.091392E-04 0.0 0.0 0.0 0.0 12 G -5.153964E-04 0.0 0.0 0.0 0.0 0.0 13 G -4.951059E-04 0.0 0.0 0.0 0.0 0.0 14 G -4.904849E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 1.226497E-03 0.0 0.0 0.0 0.0 16 G -4.806912E-05 1.220176E-03 0.0 0.0 0.0 0.0 17 G -1.421577E-04 1.168367E-03 0.0 0.0 0.0 0.0 18 G -2.296334E-04 1.064690E-03 0.0 0.0 0.0 0.0 19 G -2.684549E-04 9.879490E-04 0.0 0.0 0.0 0.0 20 G -3.020134E-04 8.922768E-04 0.0 0.0 0.0 0.0 21 G -3.260153E-04 7.543138E-04 0.0 0.0 0.0 0.0 22 G -3.335976E-04 5.741527E-04 0.0 0.0 0.0 0.0 23 G -3.747031E-04 3.259024E-04 0.0 0.0 0.0 0.0 24 G -4.327280E-04 1.456103E-04 0.0 0.0 0.0 0.0 25 G -4.442503E-04 1.121826E-04 0.0 0.0 0.0 0.0 26 G -4.870540E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 1.244919E-03 0.0 0.0 0.0 0.0 28 G -7.348588E-05 1.214506E-03 0.0 0.0 0.0 0.0 29 G -1.423577E-04 1.136772E-03 0.0 0.0 0.0 0.0 30 G -1.987505E-04 1.004488E-03 0.0 0.0 0.0 0.0 31 G -2.204627E-04 9.022841E-04 0.0 0.0 0.0 0.0 32 G -2.348075E-04 7.745445E-04 0.0 0.0 0.0 0.0 33 G -2.598230E-04 6.201455E-04 0.0 0.0 0.0 0.0 34 G -2.807431E-04 4.462158E-04 0.0 0.0 0.0 0.0 35 G -3.415528E-04 3.002693E-04 0.0 0.0 0.0 0.0 36 G -3.904724E-04 2.209596E-04 0.0 0.0 0.0 0.0 196 G 0.0 2.907341E-03 0.0 0.0 0.0 0.0 200 G -4.313180E-04 2.720471E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 13 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.329150E-03 0.0 0.0 0.0 0.0 2 G -1.299059E-04 1.297096E-03 0.0 0.0 0.0 0.0 3 G -2.564892E-04 1.215440E-03 0.0 0.0 0.0 0.0 4 G -3.820823E-04 1.077751E-03 0.0 0.0 0.0 0.0 5 G -4.446697E-04 9.635461E-04 0.0 0.0 0.0 0.0 6 G -5.041332E-04 8.328772E-04 0.0 0.0 0.0 0.0 7 G -5.507448E-04 6.258393E-04 0.0 0.0 0.0 0.0 8 G -5.916698E-04 4.549432E-04 0.0 0.0 0.0 0.0 9 G -4.425754E-04 4.837837E-04 0.0 0.0 0.0 0.0 10 G -4.834623E-04 2.329294E-04 0.0 0.0 0.0 0.0 11 G -5.166631E-04 1.229116E-04 0.0 0.0 0.0 0.0 12 G -5.618286E-04 0.0 0.0 0.0 0.0 0.0 13 G -5.416903E-04 0.0 0.0 0.0 0.0 0.0 14 G -5.379537E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 1.344544E-03 0.0 0.0 0.0 0.0 16 G -5.201473E-05 1.337744E-03 0.0 0.0 0.0 0.0 17 G -1.538300E-04 1.282116E-03 0.0 0.0 0.0 0.0 18 G -2.485100E-04 1.170982E-03 0.0 0.0 0.0 0.0 19 G -2.905340E-04 1.088820E-03 0.0 0.0 0.0 0.0 20 G -3.269189E-04 9.866300E-04 0.0 0.0 0.0 0.0 21 G -3.527819E-04 8.392089E-04 0.0 0.0 0.0 0.0 22 G -3.607683E-04 6.471487E-04 0.0 0.0 0.0 0.0 23 G -4.067290E-04 3.723680E-04 0.0 0.0 0.0 0.0 24 G -4.743566E-04 1.626087E-04 0.0 0.0 0.0 0.0 25 G -4.883179E-04 1.260311E-04 0.0 0.0 0.0 0.0 26 G -5.346970E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 1.364472E-03 0.0 0.0 0.0 0.0 28 G -7.974481E-05 1.331796E-03 0.0 0.0 0.0 0.0 29 G -1.545437E-04 1.248369E-03 0.0 0.0 0.0 0.0 30 G -2.159016E-04 1.106566E-03 0.0 0.0 0.0 0.0 31 G -2.394609E-04 9.971606E-04 0.0 0.0 0.0 0.0 32 G -2.550578E-04 8.604210E-04 0.0 0.0 0.0 0.0 33 G -2.815310E-04 6.953757E-04 0.0 0.0 0.0 0.0 34 G -3.032935E-04 5.087917E-04 0.0 0.0 0.0 0.0 35 G -3.736116E-04 3.403980E-04 0.0 0.0 0.0 0.0 36 G -4.308714E-04 2.473314E-04 0.0 0.0 0.0 0.0 196 G 0.0 3.160855E-03 0.0 0.0 0.0 0.0 200 G -4.640354E-04 2.953433E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 14 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.452278E-03 0.0 0.0 0.0 0.0 2 G -1.393441E-04 1.418098E-03 0.0 0.0 0.0 0.0 3 G -2.750646E-04 1.331160E-03 0.0 0.0 0.0 0.0 4 G -4.097456E-04 1.184789E-03 0.0 0.0 0.0 0.0 5 G -4.771095E-04 1.063439E-03 0.0 0.0 0.0 0.0 6 G -5.416801E-04 9.250701E-04 0.0 0.0 0.0 0.0 7 G -5.943936E-04 7.027516E-04 0.0 0.0 0.0 0.0 8 G -6.403703E-04 5.162506E-04 0.0 0.0 0.0 0.0 9 G -4.779251E-04 5.482666E-04 0.0 0.0 0.0 0.0 10 G -5.246049E-04 2.639488E-04 0.0 0.0 0.0 0.0 11 G -5.633997E-04 1.371501E-04 0.0 0.0 0.0 0.0 12 G -6.097261E-04 0.0 0.0 0.0 0.0 0.0 13 G -5.901708E-04 0.0 0.0 0.0 0.0 0.0 14 G -5.879914E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 1.468843E-03 0.0 0.0 0.0 0.0 16 G -5.589657E-05 1.461580E-03 0.0 0.0 0.0 0.0 17 G -1.653144E-04 1.402291E-03 0.0 0.0 0.0 0.0 18 G -2.670866E-04 1.284043E-03 0.0 0.0 0.0 0.0 19 G -3.122642E-04 1.196670E-03 0.0 0.0 0.0 0.0 20 G -3.514398E-04 1.088262E-03 0.0 0.0 0.0 0.0 21 G -3.791421E-04 9.315257E-04 0.0 0.0 0.0 0.0 22 G -3.874752E-04 7.275962E-04 0.0 0.0 0.0 0.0 23 G -4.391302E-04 4.230961E-04 0.0 0.0 0.0 0.0 24 G -5.180041E-04 1.798976E-04 0.0 0.0 0.0 0.0 25 G -5.350981E-04 1.406038E-04 0.0 0.0 0.0 0.0 26 G -5.853082E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 1.490249E-03 0.0 0.0 0.0 0.0 28 G -8.594333E-05 1.455395E-03 0.0 0.0 0.0 0.0 29 G -1.665976E-04 1.366504E-03 0.0 0.0 0.0 0.0 30 G -2.327873E-04 1.215563E-03 0.0 0.0 0.0 0.0 31 G -2.580572E-04 1.099192E-03 0.0 0.0 0.0 0.0 32 G -2.747094E-04 9.537131E-04 0.0 0.0 0.0 0.0 33 G -3.025311E-04 7.780950E-04 0.0 0.0 0.0 0.0 34 G -3.249607E-04 5.780567E-04 0.0 0.0 0.0 0.0 35 G -4.064579E-04 3.842090E-04 0.0 0.0 0.0 0.0 36 G -4.736589E-04 2.763821E-04 0.0 0.0 0.0 0.0 196 G 0.0 3.419352E-03 0.0 0.0 0.0 0.0 200 G -4.953396E-04 3.189130E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 15 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.583958E-03 0.0 0.0 0.0 0.0 2 G -1.485863E-04 1.547750E-03 0.0 0.0 0.0 0.0 3 G -2.932941E-04 1.455783E-03 0.0 0.0 0.0 0.0 4 G -4.370881E-04 1.301083E-03 0.0 0.0 0.0 0.0 5 G -5.094172E-04 1.172711E-03 0.0 0.0 0.0 0.0 6 G -5.794259E-04 1.026697E-03 0.0 0.0 0.0 0.0 7 G -6.388671E-04 7.884324E-04 0.0 0.0 0.0 0.0 8 G -6.913561E-04 5.840043E-04 0.0 0.0 0.0 0.0 9 G -5.140281E-04 6.200317E-04 0.0 0.0 0.0 0.0 10 G -5.674779E-04 2.980135E-04 0.0 0.0 0.0 0.0 11 G -6.127309E-04 1.520986E-04 0.0 0.0 0.0 0.0 12 G -6.604308E-04 0.0 0.0 0.0 0.0 0.0 13 G -6.417820E-04 0.0 0.0 0.0 0.0 0.0 14 G -6.418495E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 1.601678E-03 0.0 0.0 0.0 0.0 16 G -5.971495E-05 1.593974E-03 0.0 0.0 0.0 0.0 17 G -1.766185E-04 1.531196E-03 0.0 0.0 0.0 0.0 18 G -2.854018E-04 1.406171E-03 0.0 0.0 0.0 0.0 19 G -3.337217E-04 1.313760E-03 0.0 0.0 0.0 0.0 20 G -3.757048E-04 1.199372E-03 0.0 0.0 0.0 0.0 21 G -4.053503E-04 1.033318E-03 0.0 0.0 0.0 0.0 22 G -4.141718E-04 8.173076E-04 0.0 0.0 0.0 0.0 23 G -4.725376E-04 4.793547E-04 0.0 0.0 0.0 0.0 24 G -5.646793E-04 1.977849E-04 0.0 0.0 0.0 0.0 25 G -5.856022E-04 1.556922E-04 0.0 0.0 0.0 0.0 26 G -6.402166E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 1.624533E-03 0.0 0.0 0.0 0.0 28 G -9.207038E-05 1.587596E-03 0.0 0.0 0.0 0.0 29 G -1.784933E-04 1.493479E-03 0.0 0.0 0.0 0.0 30 G -2.493648E-04 1.333764E-03 0.0 0.0 0.0 0.0 31 G -2.762180E-04 1.210605E-03 0.0 0.0 0.0 0.0 32 G -2.937441E-04 1.056593E-03 0.0 0.0 0.0 0.0 33 G -3.229027E-04 8.702202E-04 0.0 0.0 0.0 0.0 34 G -3.460883E-04 6.554301E-04 0.0 0.0 0.0 0.0 35 G -4.405740E-04 4.322510E-04 0.0 0.0 0.0 0.0 36 G -5.193229E-04 3.078502E-04 0.0 0.0 0.0 0.0 196 G 0.0 3.684929E-03 0.0 0.0 0.0 0.0 200 G -5.246932E-04 3.428785E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 16 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.726517E-03 0.0 0.0 0.0 0.0 2 G -1.576585E-04 1.688381E-03 0.0 0.0 0.0 0.0 3 G -3.112524E-04 1.591618E-03 0.0 0.0 0.0 0.0 4 G -4.642704E-04 1.428866E-03 0.0 0.0 0.0 0.0 5 G -5.418099E-04 1.293507E-03 0.0 0.0 0.0 0.0 6 G -6.176112E-04 1.139713E-03 0.0 0.0 0.0 0.0 7 G -6.842989E-04 8.847839E-04 0.0 0.0 0.0 0.0 8 G -7.457147E-04 6.590704E-04 0.0 0.0 0.0 0.0 9 G -5.513048E-04 7.005861E-04 0.0 0.0 0.0 0.0 10 G -6.127353E-04 3.356750E-04 0.0 0.0 0.0 0.0 11 G -6.654604E-04 1.678525E-04 0.0 0.0 0.0 0.0 12 G -7.150925E-04 0.0 0.0 0.0 0.0 0.0 13 G -6.974834E-04 0.0 0.0 0.0 0.0 0.0 14 G -7.004000E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 1.745378E-03 0.0 0.0 0.0 0.0 16 G -6.347775E-05 1.737259E-03 0.0 0.0 0.0 0.0 17 G -1.877709E-04 1.671158E-03 0.0 0.0 0.0 0.0 18 G -3.035211E-04 1.539658E-03 0.0 0.0 0.0 0.0 19 G -3.550005E-04 1.442336E-03 0.0 0.0 0.0 0.0 20 G -3.998410E-04 1.322134E-03 0.0 0.0 0.0 0.0 21 G -4.316061E-04 1.146601E-03 0.0 0.0 0.0 0.0 22 G -4.411834E-04 9.180983E-04 0.0 0.0 0.0 0.0 23 G -5.074930E-04 5.422088E-04 0.0 0.0 0.0 0.0 24 G -6.152269E-04 2.164644E-04 0.0 0.0 0.0 0.0 25 G -6.407207E-04 1.717408E-04 0.0 0.0 0.0 0.0 26 G -7.001548E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 1.769652E-03 0.0 0.0 0.0 0.0 28 G -9.812775E-05 1.730728E-03 0.0 0.0 0.0 0.0 29 G -1.902356E-04 1.631613E-03 0.0 0.0 0.0 0.0 30 G -2.656461E-04 1.463432E-03 0.0 0.0 0.0 0.0 31 G -2.939633E-04 1.333598E-03 0.0 0.0 0.0 0.0 32 G -3.121613E-04 1.171146E-03 0.0 0.0 0.0 0.0 33 G -3.426454E-04 9.737166E-04 0.0 0.0 0.0 0.0 34 G -3.671128E-04 7.421803E-04 0.0 0.0 0.0 0.0 35 G -4.767444E-04 4.852792E-04 0.0 0.0 0.0 0.0 36 G -5.689861E-04 3.421684E-04 0.0 0.0 0.0 0.0 196 G 0.0 3.959826E-03 0.0 0.0 0.0 0.0 200 G -5.515559E-04 3.673743E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 17 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.881845E-03 0.0 0.0 0.0 0.0 2 G -1.666063E-04 1.841860E-03 0.0 0.0 0.0 0.0 3 G -3.290432E-04 1.740463E-03 0.0 0.0 0.0 0.0 4 G -4.914294E-04 1.569798E-03 0.0 0.0 0.0 0.0 5 G -5.743724E-04 1.427416E-03 0.0 0.0 0.0 0.0 6 G -6.561699E-04 1.265602E-03 0.0 0.0 0.0 0.0 7 G -7.300681E-04 9.939799E-04 0.0 0.0 0.0 0.0 8 G -8.036261E-04 7.417664E-04 0.0 0.0 0.0 0.0 9 G -5.899442E-04 7.902082E-04 0.0 0.0 0.0 0.0 10 G -6.606788E-04 3.769982E-04 0.0 0.0 0.0 0.0 11 G -7.219731E-04 1.844200E-04 0.0 0.0 0.0 0.0 12 G -7.740567E-04 0.0 0.0 0.0 0.0 0.0 13 G -7.576687E-04 0.0 0.0 0.0 0.0 0.0 14 G -7.640597E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 1.901834E-03 0.0 0.0 0.0 0.0 16 G -6.719642E-05 1.893321E-03 0.0 0.0 0.0 0.0 17 G -1.988099E-04 1.824030E-03 0.0 0.0 0.0 0.0 18 G -3.215228E-04 1.686251E-03 0.0 0.0 0.0 0.0 19 G -3.762099E-04 1.584077E-03 0.0 0.0 0.0 0.0 20 G -4.239929E-04 1.458109E-03 0.0 0.0 0.0 0.0 21 G -4.581134E-04 1.272902E-03 0.0 0.0 0.0 0.0 22 G -4.688388E-04 1.031487E-03 0.0 0.0 0.0 0.0 23 G -5.445440E-04 6.119452E-04 0.0 0.0 0.0 0.0 24 G -6.702699E-04 2.358821E-04 0.0 0.0 0.0 0.0 25 G -7.009897E-04 1.889350E-04 0.0 0.0 0.0 0.0 26 G -7.654639E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 1.927497E-03 0.0 0.0 0.0 0.0 28 G -1.041145E-04 1.886668E-03 0.0 0.0 0.0 0.0 29 G -2.018329E-04 1.782728E-03 0.0 0.0 0.0 0.0 30 G -2.817017E-04 1.606286E-03 0.0 0.0 0.0 0.0 31 G -3.114484E-04 1.469815E-03 0.0 0.0 0.0 0.0 32 G -3.302394E-04 1.298939E-03 0.0 0.0 0.0 0.0 33 G -3.621321E-04 1.089946E-03 0.0 0.0 0.0 0.0 34 G -3.884634E-04 8.391060E-04 0.0 0.0 0.0 0.0 35 G -5.155617E-04 5.436509E-04 0.0 0.0 0.0 0.0 36 G -6.233929E-04 3.794867E-04 0.0 0.0 0.0 0.0 196 G 0.0 4.246175E-03 0.0 0.0 0.0 0.0 200 G -5.754399E-04 3.925265E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 18 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 2.056082E-03 0.0 0.0 0.0 0.0 2 G -1.755501E-04 2.014303E-03 0.0 0.0 0.0 0.0 3 G -3.469390E-04 1.908337E-03 0.0 0.0 0.0 0.0 4 G -5.190620E-04 1.729675E-03 0.0 0.0 0.0 0.0 5 G -6.077581E-04 1.579941E-03 0.0 0.0 0.0 0.0 6 G -6.958959E-04 1.409429E-03 0.0 0.0 0.0 0.0 7 G -7.768153E-04 1.120353E-03 0.0 0.0 0.0 0.0 8 G -8.667468E-04 8.342932E-04 0.0 0.0 0.0 0.0 9 G -6.308098E-04 8.914343E-04 0.0 0.0 0.0 0.0 10 G -7.125311E-04 4.230093E-04 0.0 0.0 0.0 0.0 11 G -7.837599E-04 2.021504E-04 0.0 0.0 0.0 0.0 12 G -8.390827E-04 0.0 0.0 0.0 0.0 0.0 13 G -8.240773E-04 0.0 0.0 0.0 0.0 0.0 14 G -8.347007E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 2.077196E-03 0.0 0.0 0.0 0.0 16 G -7.091212E-05 2.068312E-03 0.0 0.0 0.0 0.0 17 G -2.098653E-04 1.995909E-03 0.0 0.0 0.0 0.0 18 G -3.396382E-04 1.851901E-03 0.0 0.0 0.0 0.0 19 G -3.976306E-04 1.744787E-03 0.0 0.0 0.0 0.0 20 G -4.484730E-04 1.612873E-03 0.0 0.0 0.0 0.0 21 G -4.852494E-04 1.417357E-03 0.0 0.0 0.0 0.0 22 G -4.975047E-04 1.161608E-03 0.0 0.0 0.0 0.0 23 G -5.847386E-04 6.903387E-04 0.0 0.0 0.0 0.0 24 G -7.315282E-04 2.564813E-04 0.0 0.0 0.0 0.0 25 G -7.683582E-04 2.079109E-04 0.0 0.0 0.0 0.0 26 G -8.381007E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 2.104232E-03 0.0 0.0 0.0 0.0 28 G -1.100717E-04 2.061555E-03 0.0 0.0 0.0 0.0 29 G -2.133670E-04 1.952876E-03 0.0 0.0 0.0 0.0 30 G -2.976474E-04 1.768164E-03 0.0 0.0 0.0 0.0 31 G -3.288280E-04 1.624903E-03 0.0 0.0 0.0 0.0 32 G -3.481631E-04 1.445363E-03 0.0 0.0 0.0 0.0 33 G -3.818765E-04 1.223451E-03 0.0 0.0 0.0 0.0 34 G -4.109155E-04 9.490550E-04 0.0 0.0 0.0 0.0 35 G -5.584310E-04 6.091835E-04 0.0 0.0 0.0 0.0 36 G -6.844992E-04 4.211792E-04 0.0 0.0 0.0 0.0 196 G 0.0 4.550510E-03 0.0 0.0 0.0 0.0 200 G -5.952129E-04 4.187992E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 19 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 2.259663E-03 0.0 0.0 0.0 0.0 2 G -1.847255E-04 2.216077E-03 0.0 0.0 0.0 0.0 3 G -3.654511E-04 2.105401E-03 0.0 0.0 0.0 0.0 4 G -5.480550E-04 1.918241E-03 0.0 0.0 0.0 0.0 5 G -6.431048E-04 1.760385E-03 0.0 0.0 0.0 0.0 6 G -7.382034E-04 1.579952E-03 0.0 0.0 0.0 0.0 7 G -8.262908E-04 1.271436E-03 0.0 0.0 0.0 0.0 8 G -9.377820E-04 9.422433E-04 0.0 0.0 0.0 0.0 9 G -6.752234E-04 1.010535E-03 0.0 0.0 0.0 0.0 10 G -7.702809E-04 4.764730E-04 0.0 0.0 0.0 0.0 11 G -8.533759E-04 2.220726E-04 0.0 0.0 0.0 0.0 12 G -9.130825E-04 0.0 0.0 0.0 0.0 0.0 13 G -8.996328E-04 0.0 0.0 0.0 0.0 0.0 14 G -9.154589E-04 0.0 0.0 0.0 0.0 0.0 15 G 0.0 2.281919E-03 0.0 0.0 0.0 0.0 16 G -7.470525E-05 2.272676E-03 0.0 0.0 0.0 0.0 17 G -2.211852E-04 2.197116E-03 0.0 0.0 0.0 0.0 18 G -3.582989E-04 2.046637E-03 0.0 0.0 0.0 0.0 19 G -4.197872E-04 1.934231E-03 0.0 0.0 0.0 0.0 20 G -4.738871E-04 1.795835E-03 0.0 0.0 0.0 0.0 21 G -5.136681E-04 1.588732E-03 0.0 0.0 0.0 0.0 22 G -5.277810E-04 1.316310E-03 0.0 0.0 0.0 0.0 23 G -6.293957E-04 7.820556E-04 0.0 0.0 0.0 0.0 24 G -8.015656E-04 2.793265E-04 0.0 0.0 0.0 0.0 25 G -8.456878E-04 2.298865E-04 0.0 0.0 0.0 0.0 26 G -9.211925E-04 0.0 0.0 0.0 0.0 0.0 27 G 0.0 2.310337E-03 0.0 0.0 0.0 0.0 28 G -1.160807E-04 2.265805E-03 0.0 0.0 0.0 0.0 29 G -2.249938E-04 2.152274E-03 0.0 0.0 0.0 0.0 30 G -3.136830E-04 1.958883E-03 0.0 0.0 0.0 0.0 31 G -3.463169E-04 1.808292E-03 0.0 0.0 0.0 0.0 32 G -3.661334E-04 1.619287E-03 0.0 0.0 0.0 0.0 33 G -4.021207E-04 1.382284E-03 0.0 0.0 0.0 0.0 34 G -4.348045E-04 1.078483E-03 0.0 0.0 0.0 0.0 35 G -6.069099E-04 6.856634E-04 0.0 0.0 0.0 0.0 36 G -7.549258E-04 4.697194E-04 0.0 0.0 0.0 0.0 196 G 0.0 4.884312E-03 0.0 0.0 0.0 0.0 200 G -6.102215E-04 4.472370E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 20 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 2.514856E-03 0.0 0.0 0.0 0.0 2 G -1.945914E-04 2.469312E-03 0.0 0.0 0.0 0.0 3 G -3.855623E-04 2.353379E-03 0.0 0.0 0.0 0.0 4 G -5.800716E-04 2.156420E-03 0.0 0.0 0.0 0.0 5 G -6.825084E-04 1.988875E-03 0.0 0.0 0.0 0.0 6 G -7.856361E-04 1.796315E-03 0.0 0.0 0.0 0.0 7 G -8.814389E-04 1.464679E-03 0.0 0.0 0.0 0.0 8 G -1.022516E-03 1.077648E-03 0.0 0.0 0.0 0.0 9 G -7.260037E-04 1.161054E-03 0.0 0.0 0.0 0.0 10 G -8.382645E-04 5.433239E-04 0.0 0.0 0.0 0.0 11 G -9.364591E-04 2.463206E-04 0.0 0.0 0.0 0.0 12 G -1.002385E-03 0.0 0.0 0.0 0.0 0.0 13 G -9.907720E-04 0.0 0.0 0.0 0.0 0.0 14 G -1.013333E-03 0.0 0.0 0.0 0.0 0.0 15 G 0.0 2.538310E-03 0.0 0.0 0.0 0.0 16 G -7.873191E-05 2.528702E-03 0.0 0.0 0.0 0.0 17 G -2.332493E-04 2.449690E-03 0.0 0.0 0.0 0.0 18 G -3.783357E-04 2.291920E-03 0.0 0.0 0.0 0.0 19 G -4.436939E-04 2.173372E-03 0.0 0.0 0.0 0.0 20 G -5.014201E-04 2.027302E-03 0.0 0.0 0.0 0.0 21 G -5.447062E-04 1.806223E-03 0.0 0.0 0.0 0.0 22 G -5.610735E-04 1.513288E-03 0.0 0.0 0.0 0.0 23 G -6.815328E-04 8.973253E-04 0.0 0.0 0.0 0.0 24 G -8.861824E-04 3.065616E-04 0.0 0.0 0.0 0.0 25 G -9.395155E-04 2.572271E-04 0.0 0.0 0.0 0.0 26 G -1.021806E-03 0.0 0.0 0.0 0.0 0.0 27 G 0.0 2.568171E-03 0.0 0.0 0.0 0.0 28 G -1.223004E-04 2.521645E-03 0.0 0.0 0.0 0.0 29 G -2.370177E-04 2.402756E-03 0.0 0.0 0.0 0.0 30 G -3.302104E-04 2.199499E-03 0.0 0.0 0.0 0.0 31 G -3.643389E-04 2.040319E-03 0.0 0.0 0.0 0.0 32 G -3.845296E-04 1.840084E-03 0.0 0.0 0.0 0.0 33 G -4.232690E-04 1.584326E-03 0.0 0.0 0.0 0.0 34 G -4.607447E-04 1.241842E-03 0.0 0.0 0.0 0.0 35 G -6.644144E-04 7.814756E-04 0.0 0.0 0.0 0.0 36 G -8.405521E-04 5.305659E-04 0.0 0.0 0.0 0.0 196 G 0.0 5.271541E-03 0.0 0.0 0.0 0.0 200 G -6.248947E-04 4.809162E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 21 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 2.851079E-03 0.0 0.0 0.0 0.0 2 G -2.057357E-04 2.803266E-03 0.0 0.0 0.0 0.0 3 G -4.084865E-04 2.681070E-03 0.0 0.0 0.0 0.0 4 G -6.170163E-04 2.472149E-03 0.0 0.0 0.0 0.0 5 G -7.287606E-04 2.292284E-03 0.0 0.0 0.0 0.0 6 G -8.421681E-04 2.084119E-03 0.0 0.0 0.0 0.0 7 G -9.464566E-04 1.723120E-03 0.0 0.0 0.0 0.0 8 G -1.129146E-03 1.255604E-03 0.0 0.0 0.0 0.0 9 G -7.873330E-04 1.360114E-03 0.0 0.0 0.0 0.0 10 G -9.226828E-04 6.308238E-04 0.0 0.0 0.0 0.0 11 G -1.040890E-03 2.771557E-04 0.0 0.0 0.0 0.0 12 G -1.116024E-03 0.0 0.0 0.0 0.0 0.0 13 G -1.106618E-03 0.0 0.0 0.0 0.0 0.0 14 G -1.138244E-03 0.0 0.0 0.0 0.0 0.0 15 G 0.0 2.875847E-03 0.0 0.0 0.0 0.0 16 G -8.320713E-05 2.865838E-03 0.0 0.0 0.0 0.0 17 G -2.467089E-04 2.782790E-03 0.0 0.0 0.0 0.0 18 G -4.008569E-04 2.616273E-03 0.0 0.0 0.0 0.0 19 G -4.707193E-04 2.490230E-03 0.0 0.0 0.0 0.0 20 G -5.327339E-04 2.334638E-03 0.0 0.0 0.0 0.0 21 G -5.803648E-04 2.095569E-03 0.0 0.0 0.0 0.0 22 G -5.994687E-04 1.775630E-03 0.0 0.0 0.0 0.0 23 G -7.457627E-04 1.048821E-03 0.0 0.0 0.0 0.0 24 G -9.939870E-04 3.403605E-04 0.0 0.0 0.0 0.0 25 G -1.059386E-03 2.928366E-04 0.0 0.0 0.0 0.0 26 G -1.149966E-03 0.0 0.0 0.0 0.0 0.0 27 G 0.0 2.907287E-03 0.0 0.0 0.0 0.0 28 G -1.290004E-04 2.858469E-03 0.0 0.0 0.0 0.0 29 G -2.499638E-04 2.733272E-03 0.0 0.0 0.0 0.0 30 G -3.479644E-04 2.518160E-03 0.0 0.0 0.0 0.0 31 G -3.836872E-04 2.348346E-03 0.0 0.0 0.0 0.0 32 G -4.041395E-04 2.133979E-03 0.0 0.0 0.0 0.0 33 G -4.466818E-04 1.853341E-03 0.0 0.0 0.0 0.0 34 G -4.906188E-04 1.457705E-03 0.0 0.0 0.0 0.0 35 G -7.365601E-04 9.069982E-04 0.0 0.0 0.0 0.0 36 G -9.503025E-04 6.102344E-04 0.0 0.0 0.0 0.0 196 G 0.0 5.743139E-03 0.0 0.0 0.0 0.0 200 G -6.451036E-04 5.239259E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 22 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 3.287335E-03 0.0 0.0 0.0 0.0 2 G -2.185607E-04 3.236783E-03 0.0 0.0 0.0 0.0 3 G -4.345702E-04 3.107023E-03 0.0 0.0 0.0 0.0 4 G -6.592664E-04 2.883744E-03 0.0 0.0 0.0 0.0 5 G -7.854881E-04 2.687548E-03 0.0 0.0 0.0 0.0 6 G -9.149957E-04 2.459487E-03 0.0 0.0 0.0 0.0 7 G -1.029951E-03 2.058277E-03 0.0 0.0 0.0 0.0 8 G -1.266662E-03 1.483800E-03 0.0 0.0 0.0 0.0 9 G -8.655117E-04 1.615978E-03 0.0 0.0 0.0 0.0 10 G -1.030598E-03 7.420566E-04 0.0 0.0 0.0 0.0 11 G -1.174337E-03 3.146965E-04 0.0 0.0 0.0 0.0 12 G -1.263081E-03 0.0 0.0 0.0 0.0 0.0 13 G -1.255742E-03 0.0 0.0 0.0 0.0 0.0 14 G -1.298743E-03 0.0 0.0 0.0 0.0 0.0 15 G 0.0 3.313596E-03 0.0 0.0 0.0 0.0 16 G -8.830082E-05 3.303121E-03 0.0 0.0 0.0 0.0 17 G -2.620420E-04 3.215184E-03 0.0 0.0 0.0 0.0 18 G -4.268387E-04 3.038318E-03 0.0 0.0 0.0 0.0 19 G -5.023790E-04 2.903406E-03 0.0 0.0 0.0 0.0 20 G -5.702681E-04 2.736676E-03 0.0 0.0 0.0 0.0 21 G -6.239854E-04 2.473104E-03 0.0 0.0 0.0 0.0 22 G -6.465103E-04 2.115806E-03 0.0 0.0 0.0 0.0 23 G -8.276033E-04 1.241661E-03 0.0 0.0 0.0 0.0 24 G -1.132997E-03 3.800649E-04 0.0 0.0 0.0 0.0 25 G -1.213531E-03 3.371322E-04 0.0 0.0 0.0 0.0 26 G -1.313826E-03 0.0 0.0 0.0 0.0 0.0 27 G 0.0 3.346840E-03 0.0 0.0 0.0 0.0 28 G -1.365002E-04 3.295295E-03 0.0 0.0 0.0 0.0 29 G -2.646178E-04 3.162673E-03 0.0 0.0 0.0 0.0 30 G -3.684434E-04 2.933674E-03 0.0 0.0 0.0 0.0 31 G -4.061165E-04 2.750781E-03 0.0 0.0 0.0 0.0 32 G -4.269198E-04 2.517923E-03 0.0 0.0 0.0 0.0 33 G -4.756159E-04 2.203092E-03 0.0 0.0 0.0 0.0 34 G -5.284568E-04 1.734780E-03 0.0 0.0 0.0 0.0 35 G -8.295793E-04 1.065969E-03 0.0 0.0 0.0 0.0 36 G -1.092324E-03 7.103420E-04 0.0 0.0 0.0 0.0 196 G 0.0 6.318441E-03 0.0 0.0 0.0 0.0 200 G -6.722758E-04 5.785450E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 96 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 23 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 3.839112E-03 0.0 0.0 0.0 0.0 2 G -2.337499E-04 3.785332E-03 0.0 0.0 0.0 0.0 3 G -4.654133E-04 3.646471E-03 0.0 0.0 0.0 0.0 4 G -7.105274E-04 3.405653E-03 0.0 0.0 0.0 0.0 5 G -8.573242E-04 3.187570E-03 0.0 0.0 0.0 0.0 6 G -1.010364E-03 2.933481E-03 0.0 0.0 0.0 0.0 7 G -1.139742E-03 2.475138E-03 0.0 0.0 0.0 0.0 8 G -1.442023E-03 1.765749E-03 0.0 0.0 0.0 0.0 9 G -9.658865E-04 1.931831E-03 0.0 0.0 0.0 0.0 10 G -1.167429E-03 8.780249E-04 0.0 0.0 0.0 0.0 11 G -1.342264E-03 3.584280E-04 0.0 0.0 0.0 0.0 12 G -1.450038E-03 0.0 0.0 0.0 0.0 0.0 13 G -1.444240E-03 0.0 0.0 0.0 0.0 0.0 14 G -1.500861E-03 0.0 0.0 0.0 0.0 0.0 15 G 0.0 3.867277E-03 0.0 0.0 0.0 0.0 16 G -9.434552E-05 3.856364E-03 0.0 0.0 0.0 0.0 17 G -2.802636E-04 3.762596E-03 0.0 0.0 0.0 0.0 18 G -4.581006E-04 3.573481E-03 0.0 0.0 0.0 0.0 19 G -5.408479E-04 3.427511E-03 0.0 0.0 0.0 0.0 20 G -6.162737E-04 3.247075E-03 0.0 0.0 0.0 0.0 21 G -6.774285E-04 2.950173E-03 0.0 0.0 0.0 0.0 22 G -7.049749E-04 2.539318E-03 0.0 0.0 0.0 0.0 23 G -9.312053E-04 1.477144E-03 0.0 0.0 0.0 0.0 24 G -1.309151E-03 4.244807E-04 0.0 0.0 0.0 0.0 25 G -1.408008E-03 3.898783E-04 0.0 0.0 0.0 0.0 26 G -1.519183E-03 0.0 0.0 0.0 0.0 0.0 27 G 0.0 3.902717E-03 0.0 0.0 0.0 0.0 28 G -1.453675E-04 3.848005E-03 0.0 0.0 0.0 0.0 29 G -2.821046E-04 3.706653E-03 0.0 0.0 0.0 0.0 30 G -3.931313E-04 3.460858E-03 0.0 0.0 0.0 0.0 31 G -4.334801E-04 3.261564E-03 0.0 0.0 0.0 0.0 32 G -4.551614E-04 3.003802E-03 0.0 0.0 0.0 0.0 33 G -5.132652E-04 2.640806E-03 0.0 0.0 0.0 0.0 34 G -5.782645E-04 2.076506E-03 0.0 0.0 0.0 0.0 35 G -9.487110E-04 1.259248E-03 0.0 0.0 0.0 0.0 36 G -1.272901E-03 8.309792E-04 0.0 0.0 0.0 0.0 196 G 0.0 7.013422E-03 0.0 0.0 0.0 0.0 200 G -7.068147E-04 6.466685E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 97 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 24 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 4.519287E-03 0.0 0.0 0.0 0.0 2 G -2.520267E-04 4.461656E-03 0.0 0.0 0.0 0.0 3 G -5.029795E-04 4.311647E-03 0.0 0.0 0.0 0.0 4 G -7.737161E-04 4.049057E-03 0.0 0.0 0.0 0.0 5 G -9.472809E-04 3.802649E-03 0.0 0.0 0.0 0.0 6 G -1.131562E-03 3.515369E-03 0.0 0.0 0.0 0.0 7 G -1.279640E-03 2.980664E-03 0.0 0.0 0.0 0.0 8 G -1.660071E-03 2.105795E-03 0.0 0.0 0.0 0.0 9 G -1.092028E-03 2.312120E-03 0.0 0.0 0.0 0.0 10 G -1.336929E-03 1.040397E-03 0.0 0.0 0.0 0.0 11 G -1.548554E-03 4.084238E-04 0.0 0.0 0.0 0.0 12 G -1.681443E-03 0.0 0.0 0.0 0.0 0.0 13 G -1.676573E-03 0.0 0.0 0.0 0.0 0.0 14 G -1.749242E-03 0.0 0.0 0.0 0.0 0.0 15 G 0.0 4.549883E-03 0.0 0.0 0.0 0.0 16 G -1.016517E-04 4.538557E-03 0.0 0.0 0.0 0.0 17 G -3.023661E-04 4.437800E-03 0.0 0.0 0.0 0.0 18 G -4.962542E-04 4.233659E-03 0.0 0.0 0.0 0.0 19 G -5.879205E-04 4.073757E-03 0.0 0.0 0.0 0.0 20 G -6.725861E-04 3.876152E-03 0.0 0.0 0.0 0.0 21 G -7.424313E-04 3.535897E-03 0.0 0.0 0.0 0.0 22 G -7.764017E-04 3.053293E-03 0.0 0.0 0.0 0.0 23 G -1.059254E-03 1.757605E-03 0.0 0.0 0.0 0.0 24 G -1.526869E-03 4.731469E-04 0.0 0.0 0.0 0.0 25 G -1.647337E-03 4.511401E-04 0.0 0.0 0.0 0.0 26 G -1.770571E-03 0.0 0.0 0.0 0.0 0.0 27 G 0.0 4.588028E-03 0.0 0.0 0.0 0.0 28 G -1.560750E-04 4.529600E-03 0.0 0.0 0.0 0.0 29 G -3.032821E-04 4.377677E-03 0.0 0.0 0.0 0.0 30 G -4.231261E-04 4.111023E-03 0.0 0.0 0.0 0.0 31 G -4.669313E-04 3.891151E-03 0.0 0.0 0.0 0.0 32 G -4.899520E-04 3.600877E-03 0.0 0.0 0.0 0.0 33 G -5.612138E-04 3.173940E-03 0.0 0.0 0.0 0.0 34 G -6.420832E-04 2.487065E-03 0.0 0.0 0.0 0.0 35 G -1.097252E-03 1.488206E-03 0.0 0.0 0.0 0.0 36 G -1.496366E-03 9.724506E-04 0.0 0.0 0.0 0.0 196 G 0.0 7.842475E-03 0.0 0.0 0.0 0.0 200 G -7.514886E-04 7.304844E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 98 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 25 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 5.339699E-03 0.0 0.0 0.0 0.0 2 G -2.738980E-04 5.277482E-03 0.0 0.0 0.0 0.0 3 G -5.481207E-04 5.113932E-03 0.0 0.0 0.0 0.0 4 G -8.498915E-04 4.824625E-03 0.0 0.0 0.0 0.0 5 G -1.057611E-03 4.542011E-03 0.0 0.0 0.0 0.0 6 G -1.281691E-03 4.211749E-03 0.0 0.0 0.0 0.0 7 G -1.452365E-03 3.580845E-03 0.0 0.0 0.0 0.0 8 G -1.924719E-03 2.507408E-03 0.0 0.0 0.0 0.0 9 G -1.246905E-03 2.760644E-03 0.0 0.0 0.0 0.0 10 G -1.542190E-03 1.230506E-03 0.0 0.0 0.0 0.0 11 G -1.796400E-03 4.647119E-04 0.0 0.0 0.0 0.0 12 G -1.961151E-03 0.0 0.0 0.0 0.0 0.0 13 G -1.956532E-03 0.0 0.0 0.0 0.0 0.0 14 G -2.047925E-03 0.0 0.0 0.0 0.0 0.0 15 G 0.0 5.373311E-03 0.0 0.0 0.0 0.0 16 G -1.104344E-04 5.361567E-03 0.0 0.0 0.0 0.0 17 G -3.288577E-04 5.252394E-03 0.0 0.0 0.0 0.0 18 G -5.418457E-04 5.029899E-03 0.0 0.0 0.0 0.0 19 G -6.441050E-04 4.852749E-03 0.0 0.0 0.0 0.0 20 G -7.396459E-04 4.633802E-03 0.0 0.0 0.0 0.0 21 G -8.203403E-04 4.236545E-03 0.0 0.0 0.0 0.0 22 G -8.618795E-04 3.663811E-03 0.0 0.0 0.0 0.0 23 G -1.213993E-03 2.085060E-03 0.0 0.0 0.0 0.0 24 G -1.790046E-03 5.257317E-04 0.0 0.0 0.0 0.0 25 G -1.935645E-03 5.212105E-04 0.0 0.0 0.0 0.0 26 G -2.072070E-03 0.0 0.0 0.0 0.0 0.0 27 G 0.0 5.414790E-03 0.0 0.0 0.0 0.0 28 G -1.688567E-04 5.351912E-03 0.0 0.0 0.0 0.0 29 G -3.284731E-04 5.187106E-03 0.0 0.0 0.0 0.0 30 G -4.584724E-04 4.894805E-03 0.0 0.0 0.0 0.0 31 G -5.062880E-04 4.649545E-03 0.0 0.0 0.0 0.0 32 G -5.312733E-04 4.315902E-03 0.0 0.0 0.0 0.0 33 G -6.201816E-04 3.808822E-03 0.0 0.0 0.0 0.0 34 G -7.214295E-04 2.970210E-03 0.0 0.0 0.0 0.0 35 G -1.278118E-03 1.754237E-03 0.0 0.0 0.0 0.0 36 G -1.766753E-03 1.135507E-03 0.0 0.0 0.0 0.0 196 G 0.0 8.820200E-03 0.0 0.0 0.0 0.0 200 G -8.138594E-04 8.324232E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 99 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 26 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 6.313093E-03 0.0 0.0 0.0 0.0 2 G -3.011654E-04 6.245582E-03 0.0 0.0 0.0 0.0 3 G -6.041674E-04 6.065681E-03 0.0 0.0 0.0 0.0 4 G -9.434450E-04 5.744233E-03 0.0 0.0 0.0 0.0 5 G -1.194367E-03 5.415299E-03 0.0 0.0 0.0 0.0 6 G -1.467760E-03 5.027776E-03 0.0 0.0 0.0 0.0 7 G -1.663497E-03 4.280501E-03 0.0 0.0 0.0 0.0 8 G -2.242392E-03 2.973333E-03 0.0 0.0 0.0 0.0 9 G -1.436147E-03 3.280476E-03 0.0 0.0 0.0 0.0 10 G -1.788921E-03 1.449577E-03 0.0 0.0 0.0 0.0 11 G -2.091561E-03 5.275808E-04 0.0 0.0 0.0 0.0 12 G -2.295604E-03 0.0 0.0 0.0 0.0 0.0 13 G -2.290478E-03 0.0 0.0 0.0 0.0 0.0 14 G -2.403487E-03 0.0 0.0 0.0 0.0 0.0 15 G 0.0 6.350945E-03 0.0 0.0 0.0 0.0 16 G -1.216248E-04 6.338724E-03 0.0 0.0 0.0 0.0 17 G -3.620912E-04 6.219390E-03 0.0 0.0 0.0 0.0 18 G -5.984569E-04 5.974532E-03 0.0 0.0 0.0 0.0 19 G -7.129787E-04 5.776204E-03 0.0 0.0 0.0 0.0 20 G -8.202521E-04 5.530676E-03 0.0 0.0 0.0 0.0 21 G -9.152637E-04 5.057088E-03 0.0 0.0 0.0 0.0 22 G -9.655431E-04 4.375346E-03 0.0 0.0 0.0 0.0 23 G -1.400402E-03 2.461419E-03 0.0 0.0 0.0 0.0 24 G -2.104860E-03 5.822023E-04 0.0 0.0 0.0 0.0 25 G -2.279218E-03 6.002701E-04 0.0 0.0 0.0 0.0 26 G -2.430205E-03 0.0 0.0 0.0 0.0 0.0 27 G 0.0 6.396993E-03 0.0 0.0 0.0 0.0 28 G -1.848908E-04 6.328728E-03 0.0 0.0 0.0 0.0 29 G -3.597069E-04 6.148241E-03 0.0 0.0 0.0 0.0 30 G -5.011510E-04 5.823979E-03 0.0 0.0 0.0 0.0 31 G -5.527865E-04 5.547673E-03 0.0 0.0 0.0 0.0 32 G -5.821152E-04 5.155725E-03 0.0 0.0 0.0 0.0 33 G -6.934781E-04 4.550612E-03 0.0 0.0 0.0 0.0 34 G -8.201170E-04 3.528967E-03 0.0 0.0 0.0 0.0 35 G -1.496206E-03 2.058547E-03 0.0 0.0 0.0 0.0 36 G -2.089841E-03 1.320596E-03 0.0 0.0 0.0 0.0 196 G 0.0 9.967404E-03 0.0 0.0 0.0 0.0 200 G -9.032273E-04 9.549099E-03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 100 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 8.625000E+02 0.0 0.0 0.0 0.0 197 G 0.0 1.725000E+03 0.0 0.0 0.0 0.0 198 G 0.0 1.725000E+03 0.0 0.0 0.0 0.0 199 G 0.0 1.725000E+03 0.0 0.0 0.0 0.0 200 G 0.0 8.625000E+02 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 101 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 2 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 9.375000E+02 0.0 0.0 0.0 0.0 197 G 0.0 1.875000E+03 0.0 0.0 0.0 0.0 198 G 0.0 1.875000E+03 0.0 0.0 0.0 0.0 199 G 0.0 1.875000E+03 0.0 0.0 0.0 0.0 200 G 0.0 9.375000E+02 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 102 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 3 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 1.050000E+03 0.0 0.0 0.0 0.0 197 G 0.0 2.100000E+03 0.0 0.0 0.0 0.0 198 G 0.0 2.100000E+03 0.0 0.0 0.0 0.0 199 G 0.0 2.100000E+03 0.0 0.0 0.0 0.0 200 G 0.0 1.050000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 103 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 4 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 1.162500E+03 0.0 0.0 0.0 0.0 197 G 0.0 2.325000E+03 0.0 0.0 0.0 0.0 198 G 0.0 2.325000E+03 0.0 0.0 0.0 0.0 199 G 0.0 2.325000E+03 0.0 0.0 0.0 0.0 200 G 0.0 1.162500E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 104 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 5 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 1.275000E+03 0.0 0.0 0.0 0.0 197 G 0.0 2.550000E+03 0.0 0.0 0.0 0.0 198 G 0.0 2.550000E+03 0.0 0.0 0.0 0.0 199 G 0.0 2.550000E+03 0.0 0.0 0.0 0.0 200 G 0.0 1.275000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 105 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 6 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 1.387500E+03 0.0 0.0 0.0 0.0 197 G 0.0 2.775000E+03 0.0 0.0 0.0 0.0 198 G 0.0 2.775000E+03 0.0 0.0 0.0 0.0 199 G 0.0 2.775000E+03 0.0 0.0 0.0 0.0 200 G 0.0 1.387500E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 106 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 7 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 1.500000E+03 0.0 0.0 0.0 0.0 197 G 0.0 3.000000E+03 0.0 0.0 0.0 0.0 198 G 0.0 3.000000E+03 0.0 0.0 0.0 0.0 199 G 0.0 3.000000E+03 0.0 0.0 0.0 0.0 200 G 0.0 1.500000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 107 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 8 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 1.650000E+03 0.0 0.0 0.0 0.0 197 G 0.0 3.300000E+03 0.0 0.0 0.0 0.0 198 G 0.0 3.300000E+03 0.0 0.0 0.0 0.0 199 G 0.0 3.300000E+03 0.0 0.0 0.0 0.0 200 G 0.0 1.650000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 108 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 9 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 1.800000E+03 0.0 0.0 0.0 0.0 197 G 0.0 3.600000E+03 0.0 0.0 0.0 0.0 198 G 0.0 3.600000E+03 0.0 0.0 0.0 0.0 199 G 0.0 3.600000E+03 0.0 0.0 0.0 0.0 200 G 0.0 1.800000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 109 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 10 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 1.950000E+03 0.0 0.0 0.0 0.0 197 G 0.0 3.900000E+03 0.0 0.0 0.0 0.0 198 G 0.0 3.900000E+03 0.0 0.0 0.0 0.0 199 G 0.0 3.900000E+03 0.0 0.0 0.0 0.0 200 G 0.0 1.950000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 110 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 11 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 2.100000E+03 0.0 0.0 0.0 0.0 197 G 0.0 4.200000E+03 0.0 0.0 0.0 0.0 198 G 0.0 4.200000E+03 0.0 0.0 0.0 0.0 199 G 0.0 4.200000E+03 0.0 0.0 0.0 0.0 200 G 0.0 2.100000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 111 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 12 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 2.250000E+03 0.0 0.0 0.0 0.0 197 G 0.0 4.500000E+03 0.0 0.0 0.0 0.0 198 G 0.0 4.500000E+03 0.0 0.0 0.0 0.0 199 G 0.0 4.500000E+03 0.0 0.0 0.0 0.0 200 G 0.0 2.250000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 112 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 13 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 2.437500E+03 0.0 0.0 0.0 0.0 197 G 0.0 4.875000E+03 0.0 0.0 0.0 0.0 198 G 0.0 4.875000E+03 0.0 0.0 0.0 0.0 199 G 0.0 4.875000E+03 0.0 0.0 0.0 0.0 200 G 0.0 2.437500E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 113 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 14 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 2.625000E+03 0.0 0.0 0.0 0.0 197 G 0.0 5.250000E+03 0.0 0.0 0.0 0.0 198 G 0.0 5.250000E+03 0.0 0.0 0.0 0.0 199 G 0.0 5.250000E+03 0.0 0.0 0.0 0.0 200 G 0.0 2.625000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 114 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 15 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 2.812500E+03 0.0 0.0 0.0 0.0 197 G 0.0 5.625000E+03 0.0 0.0 0.0 0.0 198 G 0.0 5.625000E+03 0.0 0.0 0.0 0.0 199 G 0.0 5.625000E+03 0.0 0.0 0.0 0.0 200 G 0.0 2.812500E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 115 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 16 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 3.000000E+03 0.0 0.0 0.0 0.0 197 G 0.0 6.000000E+03 0.0 0.0 0.0 0.0 198 G 0.0 6.000000E+03 0.0 0.0 0.0 0.0 199 G 0.0 6.000000E+03 0.0 0.0 0.0 0.0 200 G 0.0 3.000000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 116 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 17 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 3.187500E+03 0.0 0.0 0.0 0.0 197 G 0.0 6.375000E+03 0.0 0.0 0.0 0.0 198 G 0.0 6.375000E+03 0.0 0.0 0.0 0.0 199 G 0.0 6.375000E+03 0.0 0.0 0.0 0.0 200 G 0.0 3.187500E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 117 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 18 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 3.375000E+03 0.0 0.0 0.0 0.0 197 G 0.0 6.750000E+03 0.0 0.0 0.0 0.0 198 G 0.0 6.750000E+03 0.0 0.0 0.0 0.0 199 G 0.0 6.750000E+03 0.0 0.0 0.0 0.0 200 G 0.0 3.375000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 118 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 19 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 3.562500E+03 0.0 0.0 0.0 0.0 197 G 0.0 7.125000E+03 0.0 0.0 0.0 0.0 198 G 0.0 7.125000E+03 0.0 0.0 0.0 0.0 199 G 0.0 7.125000E+03 0.0 0.0 0.0 0.0 200 G 0.0 3.562500E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 119 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 20 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 3.750000E+03 0.0 0.0 0.0 0.0 197 G 0.0 7.500000E+03 0.0 0.0 0.0 0.0 198 G 0.0 7.500000E+03 0.0 0.0 0.0 0.0 199 G 0.0 7.500000E+03 0.0 0.0 0.0 0.0 200 G 0.0 3.750000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 120 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 21 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 3.937500E+03 0.0 0.0 0.0 0.0 197 G 0.0 7.875000E+03 0.0 0.0 0.0 0.0 198 G 0.0 7.875000E+03 0.0 0.0 0.0 0.0 199 G 0.0 7.875000E+03 0.0 0.0 0.0 0.0 200 G 0.0 3.937500E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 121 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 22 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 4.125000E+03 0.0 0.0 0.0 0.0 197 G 0.0 8.250000E+03 0.0 0.0 0.0 0.0 198 G 0.0 8.250000E+03 0.0 0.0 0.0 0.0 199 G 0.0 8.250000E+03 0.0 0.0 0.0 0.0 200 G 0.0 4.125000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 122 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 23 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 4.312500E+03 0.0 0.0 0.0 0.0 197 G 0.0 8.625000E+03 0.0 0.0 0.0 0.0 198 G 0.0 8.625000E+03 0.0 0.0 0.0 0.0 199 G 0.0 8.625000E+03 0.0 0.0 0.0 0.0 200 G 0.0 4.312500E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 123 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 24 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 4.500000E+03 0.0 0.0 0.0 0.0 197 G 0.0 9.000000E+03 0.0 0.0 0.0 0.0 198 G 0.0 9.000000E+03 0.0 0.0 0.0 0.0 199 G 0.0 9.000000E+03 0.0 0.0 0.0 0.0 200 G 0.0 4.500000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 124 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 25 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 4.687500E+03 0.0 0.0 0.0 0.0 197 G 0.0 9.375000E+03 0.0 0.0 0.0 0.0 198 G 0.0 9.375000E+03 0.0 0.0 0.0 0.0 199 G 0.0 9.375000E+03 0.0 0.0 0.0 0.0 200 G 0.0 4.687500E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 125 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 26 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 196 G 0.0 4.875000E+03 0.0 0.0 0.0 0.0 197 G 0.0 9.750000E+03 0.0 0.0 0.0 0.0 198 G 0.0 9.750000E+03 0.0 0.0 0.0 0.0 199 G 0.0 9.750000E+03 0.0 0.0 0.0 0.0 200 G 0.0 4.875000E+03 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 126 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 1 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.301445E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -7.230526E+02 0.0 0.0 0.0 0.0 13 G 0.0 -3.864238E+02 0.0 0.0 0.0 0.0 14 G 0.0 -4.164509E+02 0.0 0.0 0.0 0.0 15 G 1.977940E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -4.064867E+02 0.0 0.0 0.0 0.0 27 G 1.515721E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -3.784658E+02 0.0 0.0 0.0 0.0 40 G 1.083805E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -3.420300E+02 0.0 0.0 0.0 0.0 56 G 7.580692E+01 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -3.257713E+02 0.0 0.0 0.0 0.0 72 G 4.714183E+01 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -3.120133E+02 0.0 0.0 0.0 0.0 88 G 2.617237E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -3.025116E+02 0.0 0.0 0.0 0.0 104 G 1.068254E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -4.389857E+02 0.0 0.0 0.0 0.0 118 G 2.747067E+00 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -5.620196E+02 0.0 0.0 0.0 0.0 133 G -3.028189E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -8.124249E+02 0.0 0.0 0.0 0.0 147 G -6.419218E+01 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -1.026796E+03 0.0 0.0 0.0 0.0 158 G -8.976216E+01 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -4.665675E+02 0.0 0.0 0.0 0.0 170 G -9.831983E+01 0.0 0.0 0.0 0.0 0.0 178 G -1.041294E+02 0.0 0.0 0.0 0.0 0.0 184 G -1.064404E+02 0.0 0.0 0.0 0.0 0.0 190 G -1.374231E+02 0.0 0.0 0.0 0.0 0.0 196 G -1.198928E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 127 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 2 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.414557E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -7.819300E+02 0.0 0.0 0.0 0.0 13 G 0.0 -4.214933E+02 0.0 0.0 0.0 0.0 14 G 0.0 -4.539519E+02 0.0 0.0 0.0 0.0 15 G 2.149995E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -4.421599E+02 0.0 0.0 0.0 0.0 27 G 1.647722E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -4.115989E+02 0.0 0.0 0.0 0.0 40 G 1.178369E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -3.718921E+02 0.0 0.0 0.0 0.0 56 G 8.243638E+01 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -3.542003E+02 0.0 0.0 0.0 0.0 72 G 5.128170E+01 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -3.392203E+02 0.0 0.0 0.0 0.0 88 G 2.848736E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -3.288832E+02 0.0 0.0 0.0 0.0 104 G 1.164703E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -4.772376E+02 0.0 0.0 0.0 0.0 118 G 3.033861E+00 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -6.109749E+02 0.0 0.0 0.0 0.0 133 G -3.287612E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -8.831650E+02 0.0 0.0 0.0 0.0 147 G -6.974761E+01 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -1.116160E+03 0.0 0.0 0.0 0.0 158 G -9.756877E+01 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -5.071325E+02 0.0 0.0 0.0 0.0 170 G -1.069052E+02 0.0 0.0 0.0 0.0 0.0 178 G -1.132340E+02 0.0 0.0 0.0 0.0 0.0 184 G -1.157606E+02 0.0 0.0 0.0 0.0 0.0 190 G -1.494611E+02 0.0 0.0 0.0 0.0 0.0 196 G -1.303973E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 128 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 3 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.584088E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -8.576818E+02 0.0 0.0 0.0 0.0 13 G 0.0 -4.794361E+02 0.0 0.0 0.0 0.0 14 G 0.0 -5.138547E+02 0.0 0.0 0.0 0.0 15 G 2.408310E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -4.965433E+02 0.0 0.0 0.0 0.0 27 G 1.846347E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -4.619781E+02 0.0 0.0 0.0 0.0 40 G 1.321174E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -4.170204E+02 0.0 0.0 0.0 0.0 56 G 9.249125E+01 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -3.971433E+02 0.0 0.0 0.0 0.0 72 G 5.760979E+01 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -3.802500E+02 0.0 0.0 0.0 0.0 88 G 3.207364E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -3.686370E+02 0.0 0.0 0.0 0.0 104 G 1.319679E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -5.348489E+02 0.0 0.0 0.0 0.0 118 G 3.602777E+00 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -6.846570E+02 0.0 0.0 0.0 0.0 133 G -3.665454E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -9.895543E+02 0.0 0.0 0.0 0.0 147 G -7.800349E+01 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -1.250435E+03 0.0 0.0 0.0 0.0 158 G -1.092824E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -5.679604E+02 0.0 0.0 0.0 0.0 170 G -1.198890E+02 0.0 0.0 0.0 0.0 0.0 178 G -1.270384E+02 0.0 0.0 0.0 0.0 0.0 184 G -1.299319E+02 0.0 0.0 0.0 0.0 0.0 190 G -1.677789E+02 0.0 0.0 0.0 0.0 0.0 196 G -1.463877E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 129 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 4 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.753449E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -9.204364E+02 0.0 0.0 0.0 0.0 13 G 0.0 -5.425640E+02 0.0 0.0 0.0 0.0 14 G 0.0 -5.773103E+02 0.0 0.0 0.0 0.0 15 G 2.666854E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -5.520571E+02 0.0 0.0 0.0 0.0 27 G 2.045651E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -5.131237E+02 0.0 0.0 0.0 0.0 40 G 1.465049E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -4.625671E+02 0.0 0.0 0.0 0.0 56 G 1.026708E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -4.404319E+02 0.0 0.0 0.0 0.0 72 G 6.407220E+01 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -4.215377E+02 0.0 0.0 0.0 0.0 88 G 3.578936E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -4.086154E+02 0.0 0.0 0.0 0.0 104 G 1.486416E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -5.927289E+02 0.0 0.0 0.0 0.0 118 G 4.330154E+00 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -7.586226E+02 0.0 0.0 0.0 0.0 133 G -4.030408E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -1.096263E+03 0.0 0.0 0.0 0.0 147 G -8.617168E+01 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -1.384971E+03 0.0 0.0 0.0 0.0 158 G -1.210009E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -6.287711E+02 0.0 0.0 0.0 0.0 170 G -1.329929E+02 0.0 0.0 0.0 0.0 0.0 178 G -1.410094E+02 0.0 0.0 0.0 0.0 0.0 184 G -1.443181E+02 0.0 0.0 0.0 0.0 0.0 190 G -1.863897E+02 0.0 0.0 0.0 0.0 0.0 196 G -1.626403E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 130 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 5 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.922796E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -9.701652E+02 0.0 0.0 0.0 0.0 13 G 0.0 -6.098953E+02 0.0 0.0 0.0 0.0 14 G 0.0 -6.445475E+02 0.0 0.0 0.0 0.0 15 G 2.925975E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -6.090123E+02 0.0 0.0 0.0 0.0 27 G 2.245976E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -5.650884E+02 0.0 0.0 0.0 0.0 40 G 1.610320E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -5.086288E+02 0.0 0.0 0.0 0.0 56 G 1.130025E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -4.841100E+02 0.0 0.0 0.0 0.0 72 G 7.069039E+01 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -4.631268E+02 0.0 0.0 0.0 0.0 88 G 3.964995E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -4.488467E+02 0.0 0.0 0.0 0.0 104 G 1.665824E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -6.509175E+02 0.0 0.0 0.0 0.0 118 G 5.223314E+00 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -8.329080E+02 0.0 0.0 0.0 0.0 133 G -4.383163E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -1.203339E+03 0.0 0.0 0.0 0.0 147 G -9.427670E+01 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -1.519821E+03 0.0 0.0 0.0 0.0 158 G -1.327611E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -6.895942E+02 0.0 0.0 0.0 0.0 170 G -1.462520E+02 0.0 0.0 0.0 0.0 0.0 178 G -1.551776E+02 0.0 0.0 0.0 0.0 0.0 184 G -1.589432E+02 0.0 0.0 0.0 0.0 0.0 190 G -2.053173E+02 0.0 0.0 0.0 0.0 0.0 196 G -1.791713E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 131 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 6 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.092059E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.011223E+03 0.0 0.0 0.0 0.0 13 G 0.0 -6.740769E+02 0.0 0.0 0.0 0.0 14 G 0.0 -7.164039E+02 0.0 0.0 0.0 0.0 15 G 3.185610E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -6.687539E+02 0.0 0.0 0.0 0.0 27 G 2.447319E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -6.181558E+02 0.0 0.0 0.0 0.0 40 G 1.757033E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -5.553790E+02 0.0 0.0 0.0 0.0 56 G 1.234955E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -5.282609E+02 0.0 0.0 0.0 0.0 72 G 7.747731E+01 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -5.050742E+02 0.0 0.0 0.0 0.0 88 G 4.367066E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -4.893778E+02 0.0 0.0 0.0 0.0 104 G 1.859560E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -7.094636E+02 0.0 0.0 0.0 0.0 118 G 6.307818E+00 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -9.075662E+02 0.0 0.0 0.0 0.0 133 G -4.720751E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -1.310836E+03 0.0 0.0 0.0 0.0 147 G -1.022840E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -1.655020E+03 0.0 0.0 0.0 0.0 158 G -1.445407E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -7.504088E+02 0.0 0.0 0.0 0.0 170 G -1.596711E+02 0.0 0.0 0.0 0.0 0.0 178 G -1.695616E+02 0.0 0.0 0.0 0.0 0.0 184 G -1.738415E+02 0.0 0.0 0.0 0.0 0.0 190 G -2.246133E+02 0.0 0.0 0.0 0.0 0.0 196 G -1.960293E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 132 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 7 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.261143E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.045994E+03 0.0 0.0 0.0 0.0 13 G 0.0 -7.247476E+02 0.0 0.0 0.0 0.0 14 G 0.0 -7.972590E+02 0.0 0.0 0.0 0.0 15 G 3.445822E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -7.328027E+02 0.0 0.0 0.0 0.0 27 G 2.649943E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -6.729510E+02 0.0 0.0 0.0 0.0 40 G 1.905633E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -6.031227E+02 0.0 0.0 0.0 0.0 56 G 1.342046E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -5.731118E+02 0.0 0.0 0.0 0.0 72 G 8.449463E+01 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -5.475370E+02 0.0 0.0 0.0 0.0 88 G 4.791360E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -5.303456E+02 0.0 0.0 0.0 0.0 104 G 2.073562E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -7.685243E+02 0.0 0.0 0.0 0.0 118 G 7.666992E+00 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -9.827625E+02 0.0 0.0 0.0 0.0 133 G -5.035502E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -1.418934E+03 0.0 0.0 0.0 0.0 147 G -1.101274E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -1.790714E+03 0.0 0.0 0.0 0.0 158 G -1.563209E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -8.111945E+02 0.0 0.0 0.0 0.0 170 G -1.733012E+02 0.0 0.0 0.0 0.0 0.0 178 G -1.842428E+02 0.0 0.0 0.0 0.0 0.0 184 G -1.891271E+02 0.0 0.0 0.0 0.0 0.0 190 G -2.444368E+02 0.0 0.0 0.0 0.0 0.0 196 G -2.133582E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 133 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 8 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.486330E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.086341E+03 0.0 0.0 0.0 0.0 13 G 0.0 -7.734872E+02 0.0 0.0 0.0 0.0 14 G 0.0 -9.174319E+02 0.0 0.0 0.0 0.0 15 G 3.793387E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -8.227679E+02 0.0 0.0 0.0 0.0 27 G 2.921613E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -7.481077E+02 0.0 0.0 0.0 0.0 40 G 2.106049E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -6.679473E+02 0.0 0.0 0.0 0.0 56 G 1.487473E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -6.337730E+02 0.0 0.0 0.0 0.0 72 G 9.413437E+01 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -6.047851E+02 0.0 0.0 0.0 0.0 88 G 5.384414E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -5.855026E+02 0.0 0.0 0.0 0.0 104 G 2.383835E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -8.479044E+02 0.0 0.0 0.0 0.0 118 G 9.816633E+00 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -1.083679E+03 0.0 0.0 0.0 0.0 133 G -5.427374E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -1.563800E+03 0.0 0.0 0.0 0.0 147 G -1.203898E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -1.972249E+03 0.0 0.0 0.0 0.0 158 G -1.720359E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -8.922239E+02 0.0 0.0 0.0 0.0 170 G -1.917352E+02 0.0 0.0 0.0 0.0 0.0 178 G -2.041798E+02 0.0 0.0 0.0 0.0 0.0 184 G -2.099752E+02 0.0 0.0 0.0 0.0 0.0 190 G -2.715016E+02 0.0 0.0 0.0 0.0 0.0 196 G -2.370274E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 134 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 9 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.710971E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.121390E+03 0.0 0.0 0.0 0.0 13 G 0.0 -8.099789E+02 0.0 0.0 0.0 0.0 14 G 0.0 -1.043183E+03 0.0 0.0 0.0 0.0 15 G 4.140994E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -9.164982E+02 0.0 0.0 0.0 0.0 27 G 3.194301E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -8.254023E+02 0.0 0.0 0.0 0.0 40 G 2.308357E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -7.341577E+02 0.0 0.0 0.0 0.0 56 G 1.635255E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -6.953495E+02 0.0 0.0 0.0 0.0 72 G 1.040399E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -6.627291E+02 0.0 0.0 0.0 0.0 88 G 6.003841E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -6.411971E+02 0.0 0.0 0.0 0.0 104 G 2.718855E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -9.279247E+02 0.0 0.0 0.0 0.0 118 G 1.230719E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -1.185235E+03 0.0 0.0 0.0 0.0 133 G -5.789637E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -1.709379E+03 0.0 0.0 0.0 0.0 147 G -1.304213E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -2.154355E+03 0.0 0.0 0.0 0.0 158 G -1.877146E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -9.732209E+02 0.0 0.0 0.0 0.0 170 G -2.103923E+02 0.0 0.0 0.0 0.0 0.0 178 G -2.244473E+02 0.0 0.0 0.0 0.0 0.0 184 G -2.312666E+02 0.0 0.0 0.0 0.0 0.0 190 G -2.991771E+02 0.0 0.0 0.0 0.0 0.0 196 G -2.612464E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 135 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 10 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.934768E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.153426E+03 0.0 0.0 0.0 0.0 13 G 0.0 -8.410103E+02 0.0 0.0 0.0 0.0 14 G 0.0 -1.150472E+03 0.0 0.0 0.0 0.0 15 G 4.488710E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.019890E+03 0.0 0.0 0.0 0.0 27 G 3.468500E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -9.076483E+02 0.0 0.0 0.0 0.0 40 G 2.513426E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -8.035657E+02 0.0 0.0 0.0 0.0 56 G 1.786545E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -7.589026E+02 0.0 0.0 0.0 0.0 72 G 1.143475E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -7.221430E+02 0.0 0.0 0.0 0.0 88 G 6.664453E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -6.979601E+02 0.0 0.0 0.0 0.0 104 G 3.093785E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -1.009183E+03 0.0 0.0 0.0 0.0 118 G 1.536408E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -1.287991E+03 0.0 0.0 0.0 0.0 133 G -6.097782E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -1.856262E+03 0.0 0.0 0.0 0.0 147 G -1.399548E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -2.337469E+03 0.0 0.0 0.0 0.0 158 G -2.032099E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -1.054077E+03 0.0 0.0 0.0 0.0 170 G -2.293589E+02 0.0 0.0 0.0 0.0 0.0 178 G -2.452479E+02 0.0 0.0 0.0 0.0 0.0 184 G -2.533333E+02 0.0 0.0 0.0 0.0 0.0 190 G -3.279455E+02 0.0 0.0 0.0 0.0 0.0 196 G -2.864609E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 136 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 11 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.156997E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.182295E+03 0.0 0.0 0.0 0.0 13 G 0.0 -8.677649E+02 0.0 0.0 0.0 0.0 14 G 0.0 -1.236510E+03 0.0 0.0 0.0 0.0 15 G 4.835358E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.133135E+03 0.0 0.0 0.0 0.0 27 G 3.743445E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -9.949726E+02 0.0 0.0 0.0 0.0 40 G 2.720922E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -8.765272E+02 0.0 0.0 0.0 0.0 56 G 1.941381E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -8.246508E+02 0.0 0.0 0.0 0.0 72 G 1.250951E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -7.832340E+02 0.0 0.0 0.0 0.0 88 G 7.371925E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -7.559285E+02 0.0 0.0 0.0 0.0 104 G 3.515791E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -1.091852E+03 0.0 0.0 0.0 0.0 118 G 1.910229E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -1.392095E+03 0.0 0.0 0.0 0.0 133 G -6.338036E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -2.004607E+03 0.0 0.0 0.0 0.0 147 G -1.488303E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -2.521683E+03 0.0 0.0 0.0 0.0 158 G -2.184081E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -1.134748E+03 0.0 0.0 0.0 0.0 170 G -2.486226E+02 0.0 0.0 0.0 0.0 0.0 178 G -2.666170E+02 0.0 0.0 0.0 0.0 0.0 184 G -2.762635E+02 0.0 0.0 0.0 0.0 0.0 190 G -3.579500E+02 0.0 0.0 0.0 0.0 0.0 196 G -3.128129E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 137 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 12 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.377022E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.208409E+03 0.0 0.0 0.0 0.0 13 G 0.0 -8.902523E+02 0.0 0.0 0.0 0.0 14 G 0.0 -1.310988E+03 0.0 0.0 0.0 0.0 15 G 5.179559E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.246681E+03 0.0 0.0 0.0 0.0 27 G 4.017776E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.086388E+03 0.0 0.0 0.0 0.0 40 G 2.929553E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -9.528789E+02 0.0 0.0 0.0 0.0 56 G 2.098682E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -8.928459E+02 0.0 0.0 0.0 0.0 72 G 1.361995E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -8.462499E+02 0.0 0.0 0.0 0.0 88 G 8.120735E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -8.152217E+02 0.0 0.0 0.0 0.0 104 G 3.982244E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -1.176082E+03 0.0 0.0 0.0 0.0 118 G 2.351142E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -1.497572E+03 0.0 0.0 0.0 0.0 133 G -6.504084E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -2.154407E+03 0.0 0.0 0.0 0.0 147 G -1.568921E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -2.706898E+03 0.0 0.0 0.0 0.0 158 G -2.331084E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -1.215127E+03 0.0 0.0 0.0 0.0 170 G -2.680298E+02 0.0 0.0 0.0 0.0 0.0 178 G -2.884459E+02 0.0 0.0 0.0 0.0 0.0 184 G -3.000059E+02 0.0 0.0 0.0 0.0 0.0 190 G -3.891680E+02 0.0 0.0 0.0 0.0 0.0 196 G -3.403089E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 138 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 13 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.647540E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.239006E+03 0.0 0.0 0.0 0.0 13 G 0.0 -9.149213E+02 0.0 0.0 0.0 0.0 14 G 0.0 -1.397255E+03 0.0 0.0 0.0 0.0 15 G 5.604453E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.352070E+03 0.0 0.0 0.0 0.0 27 G 4.358628E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.213528E+03 0.0 0.0 0.0 0.0 40 G 3.191428E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.057408E+03 0.0 0.0 0.0 0.0 56 G 2.299062E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -9.845281E+02 0.0 0.0 0.0 0.0 72 G 1.506866E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -9.298251E+02 0.0 0.0 0.0 0.0 88 G 9.132317E+01 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -8.927454E+02 0.0 0.0 0.0 0.0 104 G 4.651106E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -1.285307E+03 0.0 0.0 0.0 0.0 118 G 3.036561E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -1.632764E+03 0.0 0.0 0.0 0.0 133 G -6.548965E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -2.345121E+03 0.0 0.0 0.0 0.0 147 G -1.650095E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -2.940701E+03 0.0 0.0 0.0 0.0 158 G -2.501101E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -1.314820E+03 0.0 0.0 0.0 0.0 170 G -2.923710E+02 0.0 0.0 0.0 0.0 0.0 178 G -3.165847E+02 0.0 0.0 0.0 0.0 0.0 184 G -3.314059E+02 0.0 0.0 0.0 0.0 0.0 190 G -4.308306E+02 0.0 0.0 0.0 0.0 0.0 196 G -3.771959E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 139 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 14 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 3.912289E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.268633E+03 0.0 0.0 0.0 0.0 13 G 0.0 -9.366401E+02 0.0 0.0 0.0 0.0 14 G 0.0 -1.478744E+03 0.0 0.0 0.0 0.0 15 G 6.022437E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.420934E+03 0.0 0.0 0.0 0.0 27 G 4.696207E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.334249E+03 0.0 0.0 0.0 0.0 40 G 3.453441E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.170567E+03 0.0 0.0 0.0 0.0 56 G 2.502803E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.085134E+03 0.0 0.0 0.0 0.0 72 G 1.657978E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -1.021302E+03 0.0 0.0 0.0 0.0 88 G 1.022951E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -9.759484E+02 0.0 0.0 0.0 0.0 104 G 5.423207E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -1.401429E+03 0.0 0.0 0.0 0.0 118 G 3.890594E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -1.773471E+03 0.0 0.0 0.0 0.0 133 G -6.366891E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -2.541561E+03 0.0 0.0 0.0 0.0 147 G -1.701308E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -3.178018E+03 0.0 0.0 0.0 0.0 158 G -2.647453E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -1.413372E+03 0.0 0.0 0.0 0.0 170 G -3.164767E+02 0.0 0.0 0.0 0.0 0.0 178 G -3.457124E+02 0.0 0.0 0.0 0.0 0.0 184 G -3.651939E+02 0.0 0.0 0.0 0.0 0.0 190 G -4.762766E+02 0.0 0.0 0.0 0.0 0.0 196 G -4.177440E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 140 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 15 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.171216E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.298225E+03 0.0 0.0 0.0 0.0 13 G 0.0 -9.561409E+02 0.0 0.0 0.0 0.0 14 G 0.0 -1.557974E+03 0.0 0.0 0.0 0.0 15 G 6.433641E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.471406E+03 0.0 0.0 0.0 0.0 27 G 5.030128E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.421045E+03 0.0 0.0 0.0 0.0 40 G 3.714606E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.283379E+03 0.0 0.0 0.0 0.0 56 G 2.708703E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.192448E+03 0.0 0.0 0.0 0.0 72 G 1.814020E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -1.120984E+03 0.0 0.0 0.0 0.0 88 G 1.140475E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -1.067290E+03 0.0 0.0 0.0 0.0 104 G 6.296896E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -1.528584E+03 0.0 0.0 0.0 0.0 118 G 4.920283E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -1.923319E+03 0.0 0.0 0.0 0.0 133 G -5.910577E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -2.747730E+03 0.0 0.0 0.0 0.0 147 G -1.711947E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -3.420889E+03 0.0 0.0 0.0 0.0 158 G -2.756677E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -1.510587E+03 0.0 0.0 0.0 0.0 170 G -3.396489E+02 0.0 0.0 0.0 0.0 0.0 178 G -3.757455E+02 0.0 0.0 0.0 0.0 0.0 184 G -4.020277E+02 0.0 0.0 0.0 0.0 0.0 190 G -5.267817E+02 0.0 0.0 0.0 0.0 0.0 196 G -4.632784E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 141 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 16 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.424879E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.328175E+03 0.0 0.0 0.0 0.0 13 G 0.0 -9.741373E+02 0.0 0.0 0.0 0.0 14 G 0.0 -1.635642E+03 0.0 0.0 0.0 0.0 15 G 6.838998E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.511777E+03 0.0 0.0 0.0 0.0 27 G 5.360626E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.485081E+03 0.0 0.0 0.0 0.0 40 G 3.974417E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.368759E+03 0.0 0.0 0.0 0.0 56 G 2.915664E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.302200E+03 0.0 0.0 0.0 0.0 72 G 1.973378E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -1.226296E+03 0.0 0.0 0.0 0.0 88 G 1.264244E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -1.166223E+03 0.0 0.0 0.0 0.0 104 G 7.258030E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -1.668228E+03 0.0 0.0 0.0 0.0 118 G 6.110379E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -2.086035E+03 0.0 0.0 0.0 0.0 133 G -5.162188E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -2.968558E+03 0.0 0.0 0.0 0.0 147 G -1.674807E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -3.672081E+03 0.0 0.0 0.0 0.0 158 G -2.815249E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -1.606808E+03 0.0 0.0 0.0 0.0 170 G -3.609305E+02 0.0 0.0 0.0 0.0 0.0 178 G -4.063638E+02 0.0 0.0 0.0 0.0 0.0 184 G -4.423914E+02 0.0 0.0 0.0 0.0 0.0 190 G -5.835099E+02 0.0 0.0 0.0 0.0 0.0 196 G -5.150813E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 142 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 17 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.674449E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.358303E+03 0.0 0.0 0.0 0.0 13 G 0.0 -9.906497E+02 0.0 0.0 0.0 0.0 14 G 0.0 -1.712147E+03 0.0 0.0 0.0 0.0 15 G 7.239827E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.545943E+03 0.0 0.0 0.0 0.0 27 G 5.687733E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.538284E+03 0.0 0.0 0.0 0.0 40 G 4.231615E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.433991E+03 0.0 0.0 0.0 0.0 56 G 3.121182E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.394252E+03 0.0 0.0 0.0 0.0 72 G 2.132429E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -1.337205E+03 0.0 0.0 0.0 0.0 88 G 1.390141E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -1.267808E+03 0.0 0.0 0.0 0.0 104 G 8.262375E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -1.814772E+03 0.0 0.0 0.0 0.0 118 G 7.397107E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -2.261546E+03 0.0 0.0 0.0 0.0 133 G -4.165302E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -3.207217E+03 0.0 0.0 0.0 0.0 147 G -1.590096E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -3.934677E+03 0.0 0.0 0.0 0.0 158 G -2.809566E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -1.703205E+03 0.0 0.0 0.0 0.0 170 G -3.787112E+02 0.0 0.0 0.0 0.0 0.0 178 G -4.365552E+02 0.0 0.0 0.0 0.0 0.0 184 G -4.861594E+02 0.0 0.0 0.0 0.0 0.0 190 G -6.471315E+02 0.0 0.0 0.0 0.0 0.0 196 G -5.741554E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 143 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 18 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.923060E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.389428E+03 0.0 0.0 0.0 0.0 13 G 0.0 -1.006034E+03 0.0 0.0 0.0 0.0 14 G 0.0 -1.788614E+03 0.0 0.0 0.0 0.0 15 G 7.640700E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.576823E+03 0.0 0.0 0.0 0.0 27 G 6.013866E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.586607E+03 0.0 0.0 0.0 0.0 40 G 4.486519E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.490772E+03 0.0 0.0 0.0 0.0 56 G 3.323725E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.464677E+03 0.0 0.0 0.0 0.0 72 G 2.287958E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -1.455040E+03 0.0 0.0 0.0 0.0 88 G 1.513825E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -1.354736E+03 0.0 0.0 0.0 0.0 104 G 9.257328E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -1.952289E+03 0.0 0.0 0.0 0.0 118 G 8.697503E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -2.444105E+03 0.0 0.0 0.0 0.0 133 G -3.002706E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -3.467208E+03 0.0 0.0 0.0 0.0 147 G -1.463185E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -4.219574E+03 0.0 0.0 0.0 0.0 158 G -2.720844E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -1.804094E+03 0.0 0.0 0.0 0.0 170 G -3.902049E+02 0.0 0.0 0.0 0.0 0.0 178 G -4.645435E+02 0.0 0.0 0.0 0.0 0.0 184 G -5.332743E+02 0.0 0.0 0.0 0.0 0.0 190 G -7.193038E+02 0.0 0.0 0.0 0.0 0.0 196 G -6.427570E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 144 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 19 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 5.177064E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.423362E+03 0.0 0.0 0.0 0.0 13 G 0.0 -1.021257E+03 0.0 0.0 0.0 0.0 14 G 0.0 -1.868978E+03 0.0 0.0 0.0 0.0 15 G 8.050450E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.606495E+03 0.0 0.0 0.0 0.0 27 G 6.343781E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.633938E+03 0.0 0.0 0.0 0.0 40 G 4.739947E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.546619E+03 0.0 0.0 0.0 0.0 56 G 3.520944E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.524886E+03 0.0 0.0 0.0 0.0 72 G 2.434839E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -1.586139E+03 0.0 0.0 0.0 0.0 88 G 1.628355E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -1.421396E+03 0.0 0.0 0.0 0.0 104 G 1.016001E+02 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -2.076957E+03 0.0 0.0 0.0 0.0 118 G 9.878837E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -2.597381E+03 0.0 0.0 0.0 0.0 133 G -1.840950E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -3.730019E+03 0.0 0.0 0.0 0.0 147 G -1.313686E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -4.545108E+03 0.0 0.0 0.0 0.0 158 G -2.549095E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -1.917467E+03 0.0 0.0 0.0 0.0 170 G -3.931794E+02 0.0 0.0 0.0 0.0 0.0 178 G -4.881037E+02 0.0 0.0 0.0 0.0 0.0 184 G -5.824626E+02 0.0 0.0 0.0 0.0 0.0 190 G -7.999645E+02 0.0 0.0 0.0 0.0 0.0 196 G -7.215286E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 145 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 20 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 5.448929E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.463516E+03 0.0 0.0 0.0 0.0 13 G 0.0 -1.037536E+03 0.0 0.0 0.0 0.0 14 G 0.0 -1.960939E+03 0.0 0.0 0.0 0.0 15 G 8.486193E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.638139E+03 0.0 0.0 0.0 0.0 27 G 6.686653E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.684630E+03 0.0 0.0 0.0 0.0 40 G 4.993370E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.608340E+03 0.0 0.0 0.0 0.0 56 G 3.708014E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.581282E+03 0.0 0.0 0.0 0.0 72 G 2.562657E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -1.743753E+03 0.0 0.0 0.0 0.0 88 G 1.719431E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -1.475625E+03 0.0 0.0 0.0 0.0 104 G 1.079867E+02 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -2.209605E+03 0.0 0.0 0.0 0.0 118 G 1.066017E+02 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -2.722193E+03 0.0 0.0 0.0 0.0 133 G -1.102125E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -3.960495E+03 0.0 0.0 0.0 0.0 147 G -1.206572E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -4.872429E+03 0.0 0.0 0.0 0.0 158 G -2.382827E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -2.041518E+03 0.0 0.0 0.0 0.0 170 G -3.922204E+02 0.0 0.0 0.0 0.0 0.0 178 G -5.070069E+02 0.0 0.0 0.0 0.0 0.0 184 G -6.279510E+02 0.0 0.0 0.0 0.0 0.0 190 G -8.783326E+02 0.0 0.0 0.0 0.0 0.0 196 G -7.996410E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 146 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 21 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 5.754831E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.512987E+03 0.0 0.0 0.0 0.0 13 G 0.0 -1.055730E+03 0.0 0.0 0.0 0.0 14 G 0.0 -2.070222E+03 0.0 0.0 0.0 0.0 15 G 8.971326E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.673011E+03 0.0 0.0 0.0 0.0 27 G 7.057571E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.740837E+03 0.0 0.0 0.0 0.0 40 G 5.253911E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.679780E+03 0.0 0.0 0.0 0.0 56 G 3.885565E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.635754E+03 0.0 0.0 0.0 0.0 72 G 2.666278E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -1.939996E+03 0.0 0.0 0.0 0.0 88 G 1.777414E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -1.519201E+03 0.0 0.0 0.0 0.0 104 G 1.104258E+02 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -2.362487E+03 0.0 0.0 0.0 0.0 118 G 1.081279E+02 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -2.827093E+03 0.0 0.0 0.0 0.0 133 G -1.181807E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -4.182794E+03 0.0 0.0 0.0 0.0 147 G -1.205771E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -5.128441E+03 0.0 0.0 0.0 0.0 158 G -2.322471E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -2.171669E+03 0.0 0.0 0.0 0.0 170 G -3.951434E+02 0.0 0.0 0.0 0.0 0.0 178 G -5.242407E+02 0.0 0.0 0.0 0.0 0.0 184 G -6.652778E+02 0.0 0.0 0.0 0.0 0.0 190 G -9.424542E+02 0.0 0.0 0.0 0.0 0.0 196 G -8.634852E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 147 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 22 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.096268E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.572992E+03 0.0 0.0 0.0 0.0 13 G 0.0 -1.075459E+03 0.0 0.0 0.0 0.0 14 G 0.0 -2.193009E+03 0.0 0.0 0.0 0.0 15 G 9.523441E+02 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.708641E+03 0.0 0.0 0.0 0.0 27 G 7.472814E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.799957E+03 0.0 0.0 0.0 0.0 40 G 5.536160E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.757756E+03 0.0 0.0 0.0 0.0 56 G 4.065787E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.685347E+03 0.0 0.0 0.0 0.0 72 G 2.756308E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -2.172520E+03 0.0 0.0 0.0 0.0 88 G 1.809927E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -1.549536E+03 0.0 0.0 0.0 0.0 104 G 1.094269E+02 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -2.533330E+03 0.0 0.0 0.0 0.0 118 G 1.037987E+02 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -2.913848E+03 0.0 0.0 0.0 0.0 133 G -2.131274E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -4.409594E+03 0.0 0.0 0.0 0.0 147 G -1.321255E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -5.333371E+03 0.0 0.0 0.0 0.0 158 G -2.377966E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -2.294644E+03 0.0 0.0 0.0 0.0 170 G -4.043834E+02 0.0 0.0 0.0 0.0 0.0 178 G -5.432723E+02 0.0 0.0 0.0 0.0 0.0 184 G -6.971454E+02 0.0 0.0 0.0 0.0 0.0 190 G -9.923931E+02 0.0 0.0 0.0 0.0 0.0 196 G -9.108669E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 148 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 23 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.392648E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.641651E+03 0.0 0.0 0.0 0.0 13 G 0.0 -1.096055E+03 0.0 0.0 0.0 0.0 14 G 0.0 -2.323693E+03 0.0 0.0 0.0 0.0 15 G 1.017487E+03 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.743027E+03 0.0 0.0 0.0 0.0 27 G 7.965348E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.859771E+03 0.0 0.0 0.0 0.0 40 G 5.865812E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.838460E+03 0.0 0.0 0.0 0.0 56 G 4.270098E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.728971E+03 0.0 0.0 0.0 0.0 72 G 2.849596E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -2.436782E+03 0.0 0.0 0.0 0.0 88 G 1.830777E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -1.566856E+03 0.0 0.0 0.0 0.0 104 G 1.060925E+02 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -2.717621E+03 0.0 0.0 0.0 0.0 118 G 9.505948E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -2.985589E+03 0.0 0.0 0.0 0.0 133 G -3.811583E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -4.648826E+03 0.0 0.0 0.0 0.0 147 G -1.532634E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -5.513658E+03 0.0 0.0 0.0 0.0 158 G -2.544700E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -2.399042E+03 0.0 0.0 0.0 0.0 170 G -4.227341E+02 0.0 0.0 0.0 0.0 0.0 178 G -5.692641E+02 0.0 0.0 0.0 0.0 0.0 184 G -7.284389E+02 0.0 0.0 0.0 0.0 0.0 190 G -1.029854E+03 0.0 0.0 0.0 0.0 0.0 196 G -9.399268E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 149 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 24 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.644657E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.715080E+03 0.0 0.0 0.0 0.0 13 G 0.0 -1.117284E+03 0.0 0.0 0.0 0.0 14 G 0.0 -2.459897E+03 0.0 0.0 0.0 0.0 15 G 1.095855E+03 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.775992E+03 0.0 0.0 0.0 0.0 27 G 8.561036E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.919424E+03 0.0 0.0 0.0 0.0 40 G 6.260306E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.919037E+03 0.0 0.0 0.0 0.0 56 G 4.509545E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.767170E+03 0.0 0.0 0.0 0.0 72 G 2.951412E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -2.727461E+03 0.0 0.0 0.0 0.0 88 G 1.842447E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -1.571558E+03 0.0 0.0 0.0 0.0 104 G 1.004884E+02 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -2.911619E+03 0.0 0.0 0.0 0.0 118 G 8.196846E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -3.043508E+03 0.0 0.0 0.0 0.0 133 G -6.126877E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -4.904898E+03 0.0 0.0 0.0 0.0 147 G -1.819145E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -5.680808E+03 0.0 0.0 0.0 0.0 158 G -2.845096E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -2.486266E+03 0.0 0.0 0.0 0.0 170 G -4.532112E+02 0.0 0.0 0.0 0.0 0.0 178 G -6.081337E+02 0.0 0.0 0.0 0.0 0.0 184 G -7.630699E+02 0.0 0.0 0.0 0.0 0.0 190 G -1.056379E+03 0.0 0.0 0.0 0.0 0.0 196 G -9.467655E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 150 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 25 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 6.873404E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.791682E+03 0.0 0.0 0.0 0.0 13 G 0.0 -1.138630E+03 0.0 0.0 0.0 0.0 14 G 0.0 -2.598635E+03 0.0 0.0 0.0 0.0 15 G 1.187548E+03 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.808042E+03 0.0 0.0 0.0 0.0 27 G 9.274359E+02 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -1.978277E+03 0.0 0.0 0.0 0.0 40 G 6.728282E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -1.997600E+03 0.0 0.0 0.0 0.0 56 G 4.790727E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.801214E+03 0.0 0.0 0.0 0.0 72 G 3.067199E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -3.039701E+03 0.0 0.0 0.0 0.0 88 G 1.849543E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -1.564393E+03 0.0 0.0 0.0 0.0 104 G 9.310640E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -3.111246E+03 0.0 0.0 0.0 0.0 118 G 6.521801E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -3.087696E+03 0.0 0.0 0.0 0.0 133 G -9.027861E+01 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -5.179782E+03 0.0 0.0 0.0 0.0 147 G -2.186662E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -5.840419E+03 0.0 0.0 0.0 0.0 158 G -3.270160E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -2.562684E+03 0.0 0.0 0.0 0.0 170 G -4.960377E+02 0.0 0.0 0.0 0.0 0.0 178 G -6.616006E+02 0.0 0.0 0.0 0.0 0.0 184 G -8.070538E+02 0.0 0.0 0.0 0.0 0.0 190 G -1.077268E+03 0.0 0.0 0.0 0.0 0.0 196 G -9.263033E+02 0.0 0.0 0.0 0.0 0.0 1 PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 151 NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A 0 LOAD FACTOR 26 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 7.087701E+02 0.0 0.0 0.0 0.0 0.0 12 G 0.0 -1.871181E+03 0.0 0.0 0.0 0.0 13 G 0.0 -1.160410E+03 0.0 0.0 0.0 0.0 14 G 0.0 -2.738544E+03 0.0 0.0 0.0 0.0 15 G 1.265886E+03 0.0 0.0 0.0 0.0 0.0 26 G 0.0 -1.839818E+03 0.0 0.0 0.0 0.0 27 G 1.017402E+03 0.0 0.0 0.0 0.0 0.0 39 G 0.0 -2.036389E+03 0.0 0.0 0.0 0.0 40 G 7.318008E+02 0.0 0.0 0.0 0.0 0.0 55 G 0.0 -2.072548E+03 0.0 0.0 0.0 0.0 56 G 5.151075E+02 0.0 0.0 0.0 0.0 0.0 71 G 0.0 -1.832737E+03 0.0 0.0 0.0 0.0 72 G 3.226018E+02 0.0 0.0 0.0 0.0 0.0 87 G 0.0 -3.369070E+03 0.0 0.0 0.0 0.0 88 G 1.876572E+02 0.0 0.0 0.0 0.0 0.0 103 G 0.0 -1.546449E+03 0.0 0.0 0.0 0.0 104 G 8.610998E+01 0.0 0.0 0.0 0.0 0.0 117 G 0.0 -3.312552E+03 0.0 0.0 0.0 0.0 118 G 4.782116E+01 0.0 0.0 0.0 0.0 0.0 132 G 0.0 -3.117485E+03 0.0 0.0 0.0 0.0 133 G -1.231636E+02 0.0 0.0 0.0 0.0 0.0 146 G 0.0 -5.473612E+03 0.0 0.0 0.0 0.0 147 G -2.633490E+02 0.0 0.0 0.0 0.0 0.0 157 G 0.0 -5.995012E+03 0.0 0.0 0.0 0.0 158 G -3.772632E+02 0.0 0.0 0.0 0.0 0.0 169 G 0.0 -2.634194E+03 0.0 0.0 0.0 0.0 170 G -5.469943E+02 0.0 0.0 0.0 0.0 0.0 178 G -7.285244E+02 0.0 0.0 0.0 0.0 0.0 184 G -8.665781E+02 0.0 0.0 0.0 0.0 0.0 190 G -1.102904E+03 0.0 0.0 0.0 0.0 0.0 196 G -8.743794E+02 0.0 0.0 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL DATE: 5/17/95 END TIME: 15:52:37 TOTAL WALL CLOCK TIME 4 SEC. ================================================ FILE: demoout/d07011a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D07011A,NASTRAN TIME 15 APP DISP SOL 7,1 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = COMPLEX EIGENVALUES OF A 500 CELL STRING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A 3 CMETHOD = 1 $ FEER 4 OUTPUT 5 SET 1 = 1,51,101,151,201,251,301,351,401,451,501 6 DISP = 1 7 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 758, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CDAMP3 60002 401 2 0 2- CDAMP3 60003 401 3 0 60004 401 4 0 3- CDAMP3 60005 401 5 0 60006 401 6 0 4- CDAMP3 60007 401 7 0 60008 401 8 0 5- CDAMP3 60009 401 9 0 60010 401 10 0 6- CDAMP3 60011 401 11 0 60012 401 12 0 7- CDAMP3 60013 401 13 0 60014 401 14 0 8- CDAMP3 60015 401 15 0 60016 401 16 0 9- CDAMP3 60017 401 17 0 60018 401 18 0 10- CDAMP3 60019 401 19 0 60020 401 20 0 11- CDAMP3 60021 401 21 0 60022 401 22 0 12- CDAMP3 60023 401 23 0 60024 401 24 0 13- CDAMP3 60025 401 25 0 60026 401 26 0 14- CDAMP3 60027 401 27 0 60028 401 28 0 15- CDAMP3 60029 401 29 0 60030 401 30 0 16- CDAMP3 60031 401 31 0 60032 401 32 0 17- CDAMP3 60033 401 33 0 60034 401 34 0 18- CDAMP3 60035 401 35 0 60036 401 36 0 19- CDAMP3 60037 401 37 0 60038 401 38 0 20- CDAMP3 60039 401 39 0 60040 401 40 0 21- CDAMP3 60041 401 41 0 60042 401 42 0 22- CDAMP3 60043 401 43 0 60044 401 44 0 23- CDAMP3 60045 401 45 0 60046 401 46 0 24- CDAMP3 60047 401 47 0 60048 401 48 0 25- CDAMP3 60049 401 49 0 60050 401 50 0 26- CDAMP3 60051 401 51 0 60052 401 52 0 27- CDAMP3 60053 401 53 0 60054 401 54 0 28- CDAMP3 60055 401 55 0 60056 401 56 0 29- CDAMP3 60057 401 57 0 60058 401 58 0 30- CDAMP3 60059 401 59 0 60060 401 60 0 31- CDAMP3 60061 401 61 0 60062 401 62 0 32- CDAMP3 60063 401 63 0 60064 401 64 0 33- CDAMP3 60065 401 65 0 60066 401 66 0 34- CDAMP3 60067 401 67 0 60068 401 68 0 35- CDAMP3 60069 401 69 0 60070 401 70 0 36- CDAMP3 60071 401 71 0 60072 401 72 0 37- CDAMP3 60073 401 73 0 60074 401 74 0 38- CDAMP3 60075 401 75 0 60076 401 76 0 39- CDAMP3 60077 401 77 0 60078 401 78 0 40- CDAMP3 60079 401 79 0 60080 401 80 0 41- CDAMP3 60081 401 81 0 60082 401 82 0 42- CDAMP3 60083 401 83 0 60084 401 84 0 43- CDAMP3 60085 401 85 0 60086 401 86 0 44- CDAMP3 60087 401 87 0 60088 401 88 0 45- CDAMP3 60089 401 89 0 60090 401 90 0 46- CDAMP3 60091 401 91 0 60092 401 92 0 47- CDAMP3 60093 401 93 0 60094 401 94 0 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CDAMP3 60095 401 95 0 60096 401 96 0 49- CDAMP3 60097 401 97 0 60098 401 98 0 50- CDAMP3 60099 401 99 0 60100 401 100 0 51- CDAMP3 60101 401 101 0 60102 401 102 0 52- CDAMP3 60103 401 103 0 60104 401 104 0 53- CDAMP3 60105 401 105 0 60106 401 106 0 54- CDAMP3 60107 401 107 0 60108 401 108 0 55- CDAMP3 60109 401 109 0 60110 401 110 0 56- CDAMP3 60111 401 111 0 60112 401 112 0 57- CDAMP3 60113 401 113 0 60114 401 114 0 58- CDAMP3 60115 401 115 0 60116 401 116 0 59- CDAMP3 60117 401 117 0 60118 401 118 0 60- CDAMP3 60119 401 119 0 60120 401 120 0 61- CDAMP3 60121 401 121 0 60122 401 122 0 62- CDAMP3 60123 401 123 0 60124 401 124 0 63- CDAMP3 60125 401 125 0 60126 401 126 0 64- CDAMP3 60127 401 127 0 60128 401 128 0 65- CDAMP3 60129 401 129 0 60130 401 130 0 66- CDAMP3 60131 401 131 0 60132 401 132 0 67- CDAMP3 60133 401 133 0 60134 401 134 0 68- CDAMP3 60135 401 135 0 60136 401 136 0 69- CDAMP3 60137 401 137 0 60138 401 138 0 70- CDAMP3 60139 401 139 0 60140 401 140 0 71- CDAMP3 60141 401 141 0 60142 401 142 0 72- CDAMP3 60143 401 143 0 60144 401 144 0 73- CDAMP3 60145 401 145 0 60146 401 146 0 74- CDAMP3 60147 401 147 0 60148 401 148 0 75- CDAMP3 60149 401 149 0 60150 401 150 0 76- CDAMP3 60151 401 151 0 60152 401 152 0 77- CDAMP3 60153 401 153 0 60154 401 154 0 78- CDAMP3 60155 401 155 0 60156 401 156 0 79- CDAMP3 60157 401 157 0 60158 401 158 0 80- CDAMP3 60159 401 159 0 60160 401 160 0 81- CDAMP3 60161 401 161 0 60162 401 162 0 82- CDAMP3 60163 401 163 0 60164 401 164 0 83- CDAMP3 60165 401 165 0 60166 401 166 0 84- CDAMP3 60167 401 167 0 60168 401 168 0 85- CDAMP3 60169 401 169 0 60170 401 170 0 86- CDAMP3 60171 401 171 0 60172 401 172 0 87- CDAMP3 60173 401 173 0 60174 401 174 0 88- CDAMP3 60175 401 175 0 60176 401 176 0 89- CDAMP3 60177 401 177 0 60178 401 178 0 90- CDAMP3 60179 401 179 0 60180 401 180 0 91- CDAMP3 60181 401 181 0 60182 401 182 0 92- CDAMP3 60183 401 183 0 60184 401 184 0 93- CDAMP3 60185 401 185 0 60186 401 186 0 94- CDAMP3 60187 401 187 0 60188 401 188 0 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CDAMP3 60189 401 189 0 60190 401 190 0 96- CDAMP3 60191 401 191 0 60192 401 192 0 97- CDAMP3 60193 401 193 0 60194 401 194 0 98- CDAMP3 60195 401 195 0 60196 401 196 0 99- CDAMP3 60197 401 197 0 60198 401 198 0 100- CDAMP3 60199 401 199 0 60200 401 200 0 101- CDAMP3 60201 401 201 0 60202 401 202 0 102- CDAMP3 60203 401 203 0 60204 401 204 0 103- CDAMP3 60205 401 205 0 60206 401 206 0 104- CDAMP3 60207 401 207 0 60208 401 208 0 105- CDAMP3 60209 401 209 0 60210 401 210 0 106- CDAMP3 60211 401 211 0 60212 401 212 0 107- CDAMP3 60213 401 213 0 60214 401 214 0 108- CDAMP3 60215 401 215 0 60216 401 216 0 109- CDAMP3 60217 401 217 0 60218 401 218 0 110- CDAMP3 60219 401 219 0 60220 401 220 0 111- CDAMP3 60221 401 221 0 60222 401 222 0 112- CDAMP3 60223 401 223 0 60224 401 224 0 113- CDAMP3 60225 401 225 0 60226 401 226 0 114- CDAMP3 60227 401 227 0 60228 401 228 0 115- CDAMP3 60229 401 229 0 60230 401 230 0 116- CDAMP3 60231 401 231 0 60232 401 232 0 117- CDAMP3 60233 401 233 0 60234 401 234 0 118- CDAMP3 60235 401 235 0 60236 401 236 0 119- CDAMP3 60237 401 237 0 60238 401 238 0 120- CDAMP3 60239 401 239 0 60240 401 240 0 121- CDAMP3 60241 401 241 0 60242 401 242 0 122- CDAMP3 60243 401 243 0 60244 401 244 0 123- CDAMP3 60245 401 245 0 60246 401 246 0 124- CDAMP3 60247 401 247 0 60248 401 248 0 125- CDAMP3 60249 401 249 0 60250 401 250 0 126- CDAMP3 60251 401 251 0 60252 401 252 0 127- CDAMP3 60253 401 253 0 60254 401 254 0 128- CDAMP3 60255 401 255 0 60256 401 256 0 129- CDAMP3 60257 401 257 0 60258 401 258 0 130- CDAMP3 60259 401 259 0 60260 401 260 0 131- CDAMP3 60261 401 261 0 60262 401 262 0 132- CDAMP3 60263 401 263 0 60264 401 264 0 133- CDAMP3 60265 401 265 0 60266 401 266 0 134- CDAMP3 60267 401 267 0 60268 401 268 0 135- CDAMP3 60269 401 269 0 60270 401 270 0 136- CDAMP3 60271 401 271 0 60272 401 272 0 137- CDAMP3 60273 401 273 0 60274 401 274 0 138- CDAMP3 60275 401 275 0 60276 401 276 0 139- CDAMP3 60277 401 277 0 60278 401 278 0 140- CDAMP3 60279 401 279 0 60280 401 280 0 141- CDAMP3 60281 401 281 0 60282 401 282 0 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CDAMP3 60283 401 283 0 60284 401 284 0 143- CDAMP3 60285 401 285 0 60286 401 286 0 144- CDAMP3 60287 401 287 0 60288 401 288 0 145- CDAMP3 60289 401 289 0 60290 401 290 0 146- CDAMP3 60291 401 291 0 60292 401 292 0 147- CDAMP3 60293 401 293 0 60294 401 294 0 148- CDAMP3 60295 401 295 0 60296 401 296 0 149- CDAMP3 60297 401 297 0 60298 401 298 0 150- CDAMP3 60299 401 299 0 60300 401 300 0 151- CDAMP3 60301 401 301 0 60302 401 302 0 152- CDAMP3 60303 401 303 0 60304 401 304 0 153- CDAMP3 60305 401 305 0 60306 401 306 0 154- CDAMP3 60307 401 307 0 60308 401 308 0 155- CDAMP3 60309 401 309 0 60310 401 310 0 156- CDAMP3 60311 401 311 0 60312 401 312 0 157- CDAMP3 60313 401 313 0 60314 401 314 0 158- CDAMP3 60315 401 315 0 60316 401 316 0 159- CDAMP3 60317 401 317 0 60318 401 318 0 160- CDAMP3 60319 401 319 0 60320 401 320 0 161- CDAMP3 60321 401 321 0 60322 401 322 0 162- CDAMP3 60323 401 323 0 60324 401 324 0 163- CDAMP3 60325 401 325 0 60326 401 326 0 164- CDAMP3 60327 401 327 0 60328 401 328 0 165- CDAMP3 60329 401 329 0 60330 401 330 0 166- CDAMP3 60331 401 331 0 60332 401 332 0 167- CDAMP3 60333 401 333 0 60334 401 334 0 168- CDAMP3 60335 401 335 0 60336 401 336 0 169- CDAMP3 60337 401 337 0 60338 401 338 0 170- CDAMP3 60339 401 339 0 60340 401 340 0 171- CDAMP3 60341 401 341 0 60342 401 342 0 172- CDAMP3 60343 401 343 0 60344 401 344 0 173- CDAMP3 60345 401 345 0 60346 401 346 0 174- CDAMP3 60347 401 347 0 60348 401 348 0 175- CDAMP3 60349 401 349 0 60350 401 350 0 176- CDAMP3 60351 401 351 0 60352 401 352 0 177- CDAMP3 60353 401 353 0 60354 401 354 0 178- CDAMP3 60355 401 355 0 60356 401 356 0 179- CDAMP3 60357 401 357 0 60358 401 358 0 180- CDAMP3 60359 401 359 0 60360 401 360 0 181- CDAMP3 60361 401 361 0 60362 401 362 0 182- CDAMP3 60363 401 363 0 60364 401 364 0 183- CDAMP3 60365 401 365 0 60366 401 366 0 184- CDAMP3 60367 401 367 0 60368 401 368 0 185- CDAMP3 60369 401 369 0 60370 401 370 0 186- CDAMP3 60371 401 371 0 60372 401 372 0 187- CDAMP3 60373 401 373 0 60374 401 374 0 188- CDAMP3 60375 401 375 0 60376 401 376 0 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CDAMP3 60377 401 377 0 60378 401 378 0 190- CDAMP3 60379 401 379 0 60380 401 380 0 191- CDAMP3 60381 401 381 0 60382 401 382 0 192- CDAMP3 60383 401 383 0 60384 401 384 0 193- CDAMP3 60385 401 385 0 60386 401 386 0 194- CDAMP3 60387 401 387 0 60388 401 388 0 195- CDAMP3 60389 401 389 0 60390 401 390 0 196- CDAMP3 60391 401 391 0 60392 401 392 0 197- CDAMP3 60393 401 393 0 60394 401 394 0 198- CDAMP3 60395 401 395 0 60396 401 396 0 199- CDAMP3 60397 401 397 0 60398 401 398 0 200- CDAMP3 60399 401 399 0 60400 401 400 0 201- CDAMP3 60401 401 401 0 60402 401 402 0 202- CDAMP3 60403 401 403 0 60404 401 404 0 203- CDAMP3 60405 401 405 0 60406 401 406 0 204- CDAMP3 60407 401 407 0 60408 401 408 0 205- CDAMP3 60409 401 409 0 60410 401 410 0 206- CDAMP3 60411 401 411 0 60412 401 412 0 207- CDAMP3 60413 401 413 0 60414 401 414 0 208- CDAMP3 60415 401 415 0 60416 401 416 0 209- CDAMP3 60417 401 417 0 60418 401 418 0 210- CDAMP3 60419 401 419 0 60420 401 420 0 211- CDAMP3 60421 401 421 0 60422 401 422 0 212- CDAMP3 60423 401 423 0 60424 401 424 0 213- CDAMP3 60425 401 425 0 60426 401 426 0 214- CDAMP3 60427 401 427 0 60428 401 428 0 215- CDAMP3 60429 401 429 0 60430 401 430 0 216- CDAMP3 60431 401 431 0 60432 401 432 0 217- CDAMP3 60433 401 433 0 60434 401 434 0 218- CDAMP3 60435 401 435 0 60436 401 436 0 219- CDAMP3 60437 401 437 0 60438 401 438 0 220- CDAMP3 60439 401 439 0 60440 401 440 0 221- CDAMP3 60441 401 441 0 60442 401 442 0 222- CDAMP3 60443 401 443 0 60444 401 444 0 223- CDAMP3 60445 401 445 0 60446 401 446 0 224- CDAMP3 60447 401 447 0 60448 401 448 0 225- CDAMP3 60449 401 449 0 60450 401 450 0 226- CDAMP3 60451 401 451 0 60452 401 452 0 227- CDAMP3 60453 401 453 0 60454 401 454 0 228- CDAMP3 60455 401 455 0 60456 401 456 0 229- CDAMP3 60457 401 457 0 60458 401 458 0 230- CDAMP3 60459 401 459 0 60460 401 460 0 231- CDAMP3 60461 401 461 0 60462 401 462 0 232- CDAMP3 60463 401 463 0 60464 401 464 0 233- CDAMP3 60465 401 465 0 60466 401 466 0 234- CDAMP3 60467 401 467 0 60468 401 468 0 235- CDAMP3 60469 401 469 0 60470 401 470 0 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- CDAMP3 60471 401 471 0 60472 401 472 0 237- CDAMP3 60473 401 473 0 60474 401 474 0 238- CDAMP3 60475 401 475 0 60476 401 476 0 239- CDAMP3 60477 401 477 0 60478 401 478 0 240- CDAMP3 60479 401 479 0 60480 401 480 0 241- CDAMP3 60481 401 481 0 60482 401 482 0 242- CDAMP3 60483 401 483 0 60484 401 484 0 243- CDAMP3 60485 401 485 0 60486 401 486 0 244- CDAMP3 60487 401 487 0 60488 401 488 0 245- CDAMP3 60489 401 489 0 60490 401 490 0 246- CDAMP3 60491 401 491 0 60492 401 492 0 247- CDAMP3 60493 401 493 0 60494 401 494 0 248- CDAMP3 60495 401 495 0 60496 401 496 0 249- CDAMP3 60497 401 497 0 60498 401 498 0 250- CDAMP3 60499 401 499 0 60500 401 500 0 251- CELAS3 1 101 0 2 2 101 2 3 252- CELAS3 3 101 3 4 4 101 4 5 253- CELAS3 5 101 5 6 6 101 6 7 254- CELAS3 7 101 7 8 8 101 8 9 255- CELAS3 9 101 9 10 10 101 10 11 256- CELAS3 11 101 11 12 12 101 12 13 257- CELAS3 13 101 13 14 14 101 14 15 258- CELAS3 15 101 15 16 16 101 16 17 259- CELAS3 17 101 17 18 18 101 18 19 260- CELAS3 19 101 19 20 20 101 20 21 261- CELAS3 21 101 21 22 22 101 22 23 262- CELAS3 23 101 23 24 24 101 24 25 263- CELAS3 25 101 25 26 26 101 26 27 264- CELAS3 27 101 27 28 28 101 28 29 265- CELAS3 29 101 29 30 30 101 30 31 266- CELAS3 31 101 31 32 32 101 32 33 267- CELAS3 33 101 33 34 34 101 34 35 268- CELAS3 35 101 35 36 36 101 36 37 269- CELAS3 37 101 37 38 38 101 38 39 270- CELAS3 39 101 39 40 40 101 40 41 271- CELAS3 41 101 41 42 42 101 42 43 272- CELAS3 43 101 43 44 44 101 44 45 273- CELAS3 45 101 45 46 46 101 46 47 274- CELAS3 47 101 47 48 48 101 48 49 275- CELAS3 49 101 49 50 50 101 50 51 276- CELAS3 51 101 51 52 52 101 52 53 277- CELAS3 53 101 53 54 54 101 54 55 278- CELAS3 55 101 55 56 56 101 56 57 279- CELAS3 57 101 57 58 58 101 58 59 280- CELAS3 59 101 59 60 60 101 60 61 281- CELAS3 61 101 61 62 62 101 62 63 282- CELAS3 63 101 63 64 64 101 64 65 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- CELAS3 65 101 65 66 66 101 66 67 284- CELAS3 67 101 67 68 68 101 68 69 285- CELAS3 69 101 69 70 70 101 70 71 286- CELAS3 71 101 71 72 72 101 72 73 287- CELAS3 73 101 73 74 74 101 74 75 288- CELAS3 75 101 75 76 76 101 76 77 289- CELAS3 77 101 77 78 78 101 78 79 290- CELAS3 79 101 79 80 80 101 80 81 291- CELAS3 81 101 81 82 82 101 82 83 292- CELAS3 83 101 83 84 84 101 84 85 293- CELAS3 85 101 85 86 86 101 86 87 294- CELAS3 87 101 87 88 88 101 88 89 295- CELAS3 89 101 89 90 90 101 90 91 296- CELAS3 91 101 91 92 92 101 92 93 297- CELAS3 93 101 93 94 94 101 94 95 298- CELAS3 95 101 95 96 96 101 96 97 299- CELAS3 97 101 97 98 98 101 98 99 300- CELAS3 99 101 99 100 100 101 100 101 301- CELAS3 101 101 101 102 102 101 102 103 302- CELAS3 103 101 103 104 104 101 104 105 303- CELAS3 105 101 105 106 106 101 106 107 304- CELAS3 107 101 107 108 108 101 108 109 305- CELAS3 109 101 109 110 110 101 110 111 306- CELAS3 111 101 111 112 112 101 112 113 307- CELAS3 113 101 113 114 114 101 114 115 308- CELAS3 115 101 115 116 116 101 116 117 309- CELAS3 117 101 117 118 118 101 118 119 310- CELAS3 119 101 119 120 120 101 120 121 311- CELAS3 121 101 121 122 122 101 122 123 312- CELAS3 123 101 123 124 124 101 124 125 313- CELAS3 125 101 125 126 126 101 126 127 314- CELAS3 127 101 127 128 128 101 128 129 315- CELAS3 129 101 129 130 130 101 130 131 316- CELAS3 131 101 131 132 132 101 132 133 317- CELAS3 133 101 133 134 134 101 134 135 318- CELAS3 135 101 135 136 136 101 136 137 319- CELAS3 137 101 137 138 138 101 138 139 320- CELAS3 139 101 139 140 140 101 140 141 321- CELAS3 141 101 141 142 142 101 142 143 322- CELAS3 143 101 143 144 144 101 144 145 323- CELAS3 145 101 145 146 146 101 146 147 324- CELAS3 147 101 147 148 148 101 148 149 325- CELAS3 149 101 149 150 150 101 150 151 326- CELAS3 151 101 151 152 152 101 152 153 327- CELAS3 153 101 153 154 154 101 154 155 328- CELAS3 155 101 155 156 156 101 156 157 329- CELAS3 157 101 157 158 158 101 158 159 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- CELAS3 159 101 159 160 160 101 160 161 331- CELAS3 161 101 161 162 162 101 162 163 332- CELAS3 163 101 163 164 164 101 164 165 333- CELAS3 165 101 165 166 166 101 166 167 334- CELAS3 167 101 167 168 168 101 168 169 335- CELAS3 169 101 169 170 170 101 170 171 336- CELAS3 171 101 171 172 172 101 172 173 337- CELAS3 173 101 173 174 174 101 174 175 338- CELAS3 175 101 175 176 176 101 176 177 339- CELAS3 177 101 177 178 178 101 178 179 340- CELAS3 179 101 179 180 180 101 180 181 341- CELAS3 181 101 181 182 182 101 182 183 342- CELAS3 183 101 183 184 184 101 184 185 343- CELAS3 185 101 185 186 186 101 186 187 344- CELAS3 187 101 187 188 188 101 188 189 345- CELAS3 189 101 189 190 190 101 190 191 346- CELAS3 191 101 191 192 192 101 192 193 347- CELAS3 193 101 193 194 194 101 194 195 348- CELAS3 195 101 195 196 196 101 196 197 349- CELAS3 197 101 197 198 198 101 198 199 350- CELAS3 199 101 199 200 200 101 200 201 351- CELAS3 201 101 201 202 202 101 202 203 352- CELAS3 203 101 203 204 204 101 204 205 353- CELAS3 205 101 205 206 206 101 206 207 354- CELAS3 207 101 207 208 208 101 208 209 355- CELAS3 209 101 209 210 210 101 210 211 356- CELAS3 211 101 211 212 212 101 212 213 357- CELAS3 213 101 213 214 214 101 214 215 358- CELAS3 215 101 215 216 216 101 216 217 359- CELAS3 217 101 217 218 218 101 218 219 360- CELAS3 219 101 219 220 220 101 220 221 361- CELAS3 221 101 221 222 222 101 222 223 362- CELAS3 223 101 223 224 224 101 224 225 363- CELAS3 225 101 225 226 226 101 226 227 364- CELAS3 227 101 227 228 228 101 228 229 365- CELAS3 229 101 229 230 230 101 230 231 366- CELAS3 231 101 231 232 232 101 232 233 367- CELAS3 233 101 233 234 234 101 234 235 368- CELAS3 235 101 235 236 236 101 236 237 369- CELAS3 237 101 237 238 238 101 238 239 370- CELAS3 239 101 239 240 240 101 240 241 371- CELAS3 241 101 241 242 242 101 242 243 372- CELAS3 243 101 243 244 244 101 244 245 373- CELAS3 245 101 245 246 246 101 246 247 374- CELAS3 247 101 247 248 248 101 248 249 375- CELAS3 249 101 249 250 250 101 250 251 376- CELAS3 251 101 251 252 252 101 252 253 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- CELAS3 253 101 253 254 254 101 254 255 378- CELAS3 255 101 255 256 256 101 256 257 379- CELAS3 257 101 257 258 258 101 258 259 380- CELAS3 259 101 259 260 260 101 260 261 381- CELAS3 261 101 261 262 262 101 262 263 382- CELAS3 263 101 263 264 264 101 264 265 383- CELAS3 265 101 265 266 266 101 266 267 384- CELAS3 267 101 267 268 268 101 268 269 385- CELAS3 269 101 269 270 270 101 270 271 386- CELAS3 271 101 271 272 272 101 272 273 387- CELAS3 273 101 273 274 274 101 274 275 388- CELAS3 275 101 275 276 276 101 276 277 389- CELAS3 277 101 277 278 278 101 278 279 390- CELAS3 279 101 279 280 280 101 280 281 391- CELAS3 281 101 281 282 282 101 282 283 392- CELAS3 283 101 283 284 284 101 284 285 393- CELAS3 285 101 285 286 286 101 286 287 394- CELAS3 287 101 287 288 288 101 288 289 395- CELAS3 289 101 289 290 290 101 290 291 396- CELAS3 291 101 291 292 292 101 292 293 397- CELAS3 293 101 293 294 294 101 294 295 398- CELAS3 295 101 295 296 296 101 296 297 399- CELAS3 297 101 297 298 298 101 298 299 400- CELAS3 299 101 299 300 300 101 300 301 401- CELAS3 301 101 301 302 302 101 302 303 402- CELAS3 303 101 303 304 304 101 304 305 403- CELAS3 305 101 305 306 306 101 306 307 404- CELAS3 307 101 307 308 308 101 308 309 405- CELAS3 309 101 309 310 310 101 310 311 406- CELAS3 311 101 311 312 312 101 312 313 407- CELAS3 313 101 313 314 314 101 314 315 408- CELAS3 315 101 315 316 316 101 316 317 409- CELAS3 317 101 317 318 318 101 318 319 410- CELAS3 319 101 319 320 320 101 320 321 411- CELAS3 321 101 321 322 322 101 322 323 412- CELAS3 323 101 323 324 324 101 324 325 413- CELAS3 325 101 325 326 326 101 326 327 414- CELAS3 327 101 327 328 328 101 328 329 415- CELAS3 329 101 329 330 330 101 330 331 416- CELAS3 331 101 331 332 332 101 332 333 417- CELAS3 333 101 333 334 334 101 334 335 418- CELAS3 335 101 335 336 336 101 336 337 419- CELAS3 337 101 337 338 338 101 338 339 420- CELAS3 339 101 339 340 340 101 340 341 421- CELAS3 341 101 341 342 342 101 342 343 422- CELAS3 343 101 343 344 344 101 344 345 423- CELAS3 345 101 345 346 346 101 346 347 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- CELAS3 347 101 347 348 348 101 348 349 425- CELAS3 349 101 349 350 350 101 350 351 426- CELAS3 351 101 351 352 352 101 352 353 427- CELAS3 353 101 353 354 354 101 354 355 428- CELAS3 355 101 355 356 356 101 356 357 429- CELAS3 357 101 357 358 358 101 358 359 430- CELAS3 359 101 359 360 360 101 360 361 431- CELAS3 361 101 361 362 362 101 362 363 432- CELAS3 363 101 363 364 364 101 364 365 433- CELAS3 365 101 365 366 366 101 366 367 434- CELAS3 367 101 367 368 368 101 368 369 435- CELAS3 369 101 369 370 370 101 370 371 436- CELAS3 371 101 371 372 372 101 372 373 437- CELAS3 373 101 373 374 374 101 374 375 438- CELAS3 375 101 375 376 376 101 376 377 439- CELAS3 377 101 377 378 378 101 378 379 440- CELAS3 379 101 379 380 380 101 380 381 441- CELAS3 381 101 381 382 382 101 382 383 442- CELAS3 383 101 383 384 384 101 384 385 443- CELAS3 385 101 385 386 386 101 386 387 444- CELAS3 387 101 387 388 388 101 388 389 445- CELAS3 389 101 389 390 390 101 390 391 446- CELAS3 391 101 391 392 392 101 392 393 447- CELAS3 393 101 393 394 394 101 394 395 448- CELAS3 395 101 395 396 396 101 396 397 449- CELAS3 397 101 397 398 398 101 398 399 450- CELAS3 399 101 399 400 400 101 400 401 451- CELAS3 401 101 401 402 402 101 402 403 452- CELAS3 403 101 403 404 404 101 404 405 453- CELAS3 405 101 405 406 406 101 406 407 454- CELAS3 407 101 407 408 408 101 408 409 455- CELAS3 409 101 409 410 410 101 410 411 456- CELAS3 411 101 411 412 412 101 412 413 457- CELAS3 413 101 413 414 414 101 414 415 458- CELAS3 415 101 415 416 416 101 416 417 459- CELAS3 417 101 417 418 418 101 418 419 460- CELAS3 419 101 419 420 420 101 420 421 461- CELAS3 421 101 421 422 422 101 422 423 462- CELAS3 423 101 423 424 424 101 424 425 463- CELAS3 425 101 425 426 426 101 426 427 464- CELAS3 427 101 427 428 428 101 428 429 465- CELAS3 429 101 429 430 430 101 430 431 466- CELAS3 431 101 431 432 432 101 432 433 467- CELAS3 433 101 433 434 434 101 434 435 468- CELAS3 435 101 435 436 436 101 436 437 469- CELAS3 437 101 437 438 438 101 438 439 470- CELAS3 439 101 439 440 440 101 440 441 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- CELAS3 441 101 441 442 442 101 442 443 472- CELAS3 443 101 443 444 444 101 444 445 473- CELAS3 445 101 445 446 446 101 446 447 474- CELAS3 447 101 447 448 448 101 448 449 475- CELAS3 449 101 449 450 450 101 450 451 476- CELAS3 451 101 451 452 452 101 452 453 477- CELAS3 453 101 453 454 454 101 454 455 478- CELAS3 455 101 455 456 456 101 456 457 479- CELAS3 457 101 457 458 458 101 458 459 480- CELAS3 459 101 459 460 460 101 460 461 481- CELAS3 461 101 461 462 462 101 462 463 482- CELAS3 463 101 463 464 464 101 464 465 483- CELAS3 465 101 465 466 466 101 466 467 484- CELAS3 467 101 467 468 468 101 468 469 485- CELAS3 469 101 469 470 470 101 470 471 486- CELAS3 471 101 471 472 472 101 472 473 487- CELAS3 473 101 473 474 474 101 474 475 488- CELAS3 475 101 475 476 476 101 476 477 489- CELAS3 477 101 477 478 478 101 478 479 490- CELAS3 479 101 479 480 480 101 480 481 491- CELAS3 481 101 481 482 482 101 482 483 492- CELAS3 483 101 483 484 484 101 484 485 493- CELAS3 485 101 485 486 486 101 486 487 494- CELAS3 487 101 487 488 488 101 488 489 495- CELAS3 489 101 489 490 490 101 490 491 496- CELAS3 491 101 491 492 492 101 492 493 497- CELAS3 493 101 493 494 494 101 494 495 498- CELAS3 495 101 495 496 496 101 496 497 499- CELAS3 497 101 497 498 498 101 498 499 500- CELAS3 499 101 499 500 500 101 500 0 501- CMASS3 40002 301 2 0 502- CMASS3 40003 301 3 0 40004 301 4 0 503- CMASS3 40005 301 5 0 40006 301 6 0 504- CMASS3 40007 301 7 0 40008 301 8 0 505- CMASS3 40009 301 9 0 40010 301 10 0 506- CMASS3 40011 301 11 0 40012 301 12 0 507- CMASS3 40013 301 13 0 40014 301 14 0 508- CMASS3 40015 301 15 0 40016 301 16 0 509- CMASS3 40017 301 17 0 40018 301 18 0 510- CMASS3 40019 301 19 0 40020 301 20 0 511- CMASS3 40021 301 21 0 40022 301 22 0 512- CMASS3 40023 301 23 0 40024 301 24 0 513- CMASS3 40025 301 25 0 40026 301 26 0 514- CMASS3 40027 301 27 0 40028 301 28 0 515- CMASS3 40029 301 29 0 40030 301 30 0 516- CMASS3 40031 301 31 0 40032 301 32 0 517- CMASS3 40033 301 33 0 40034 301 34 0 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- CMASS3 40035 301 35 0 40036 301 36 0 519- CMASS3 40037 301 37 0 40038 301 38 0 520- CMASS3 40039 301 39 0 40040 301 40 0 521- CMASS3 40041 301 41 0 40042 301 42 0 522- CMASS3 40043 301 43 0 40044 301 44 0 523- CMASS3 40045 301 45 0 40046 301 46 0 524- CMASS3 40047 301 47 0 40048 301 48 0 525- CMASS3 40049 301 49 0 40050 301 50 0 526- CMASS3 40051 301 51 0 40052 301 52 0 527- CMASS3 40053 301 53 0 40054 301 54 0 528- CMASS3 40055 301 55 0 40056 301 56 0 529- CMASS3 40057 301 57 0 40058 301 58 0 530- CMASS3 40059 301 59 0 40060 301 60 0 531- CMASS3 40061 301 61 0 40062 301 62 0 532- CMASS3 40063 301 63 0 40064 301 64 0 533- CMASS3 40065 301 65 0 40066 301 66 0 534- CMASS3 40067 301 67 0 40068 301 68 0 535- CMASS3 40069 301 69 0 40070 301 70 0 536- CMASS3 40071 301 71 0 40072 301 72 0 537- CMASS3 40073 301 73 0 40074 301 74 0 538- CMASS3 40075 301 75 0 40076 301 76 0 539- CMASS3 40077 301 77 0 40078 301 78 0 540- CMASS3 40079 301 79 0 40080 301 80 0 541- CMASS3 40081 301 81 0 40082 301 82 0 542- CMASS3 40083 301 83 0 40084 301 84 0 543- CMASS3 40085 301 85 0 40086 301 86 0 544- CMASS3 40087 301 87 0 40088 301 88 0 545- CMASS3 40089 301 89 0 40090 301 90 0 546- CMASS3 40091 301 91 0 40092 301 92 0 547- CMASS3 40093 301 93 0 40094 301 94 0 548- CMASS3 40095 301 95 0 40096 301 96 0 549- CMASS3 40097 301 97 0 40098 301 98 0 550- CMASS3 40099 301 99 0 40100 301 100 0 551- CMASS3 40101 301 101 0 40102 301 102 0 552- CMASS3 40103 301 103 0 40104 301 104 0 553- CMASS3 40105 301 105 0 40106 301 106 0 554- CMASS3 40107 301 107 0 40108 301 108 0 555- CMASS3 40109 301 109 0 40110 301 110 0 556- CMASS3 40111 301 111 0 40112 301 112 0 557- CMASS3 40113 301 113 0 40114 301 114 0 558- CMASS3 40115 301 115 0 40116 301 116 0 559- CMASS3 40117 301 117 0 40118 301 118 0 560- CMASS3 40119 301 119 0 40120 301 120 0 561- CMASS3 40121 301 121 0 40122 301 122 0 562- CMASS3 40123 301 123 0 40124 301 124 0 563- CMASS3 40125 301 125 0 40126 301 126 0 564- CMASS3 40127 301 127 0 40128 301 128 0 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 565- CMASS3 40129 301 129 0 40130 301 130 0 566- CMASS3 40131 301 131 0 40132 301 132 0 567- CMASS3 40133 301 133 0 40134 301 134 0 568- CMASS3 40135 301 135 0 40136 301 136 0 569- CMASS3 40137 301 137 0 40138 301 138 0 570- CMASS3 40139 301 139 0 40140 301 140 0 571- CMASS3 40141 301 141 0 40142 301 142 0 572- CMASS3 40143 301 143 0 40144 301 144 0 573- CMASS3 40145 301 145 0 40146 301 146 0 574- CMASS3 40147 301 147 0 40148 301 148 0 575- CMASS3 40149 301 149 0 40150 301 150 0 576- CMASS3 40151 301 151 0 40152 301 152 0 577- CMASS3 40153 301 153 0 40154 301 154 0 578- CMASS3 40155 301 155 0 40156 301 156 0 579- CMASS3 40157 301 157 0 40158 301 158 0 580- CMASS3 40159 301 159 0 40160 301 160 0 581- CMASS3 40161 301 161 0 40162 301 162 0 582- CMASS3 40163 301 163 0 40164 301 164 0 583- CMASS3 40165 301 165 0 40166 301 166 0 584- CMASS3 40167 301 167 0 40168 301 168 0 585- CMASS3 40169 301 169 0 40170 301 170 0 586- CMASS3 40171 301 171 0 40172 301 172 0 587- CMASS3 40173 301 173 0 40174 301 174 0 588- CMASS3 40175 301 175 0 40176 301 176 0 589- CMASS3 40177 301 177 0 40178 301 178 0 590- CMASS3 40179 301 179 0 40180 301 180 0 591- CMASS3 40181 301 181 0 40182 301 182 0 592- CMASS3 40183 301 183 0 40184 301 184 0 593- CMASS3 40185 301 185 0 40186 301 186 0 594- CMASS3 40187 301 187 0 40188 301 188 0 595- CMASS3 40189 301 189 0 40190 301 190 0 596- CMASS3 40191 301 191 0 40192 301 192 0 597- CMASS3 40193 301 193 0 40194 301 194 0 598- CMASS3 40195 301 195 0 40196 301 196 0 599- CMASS3 40197 301 197 0 40198 301 198 0 600- CMASS3 40199 301 199 0 40200 301 200 0 601- CMASS3 40201 301 201 0 40202 301 202 0 602- CMASS3 40203 301 203 0 40204 301 204 0 603- CMASS3 40205 301 205 0 40206 301 206 0 604- CMASS3 40207 301 207 0 40208 301 208 0 605- CMASS3 40209 301 209 0 40210 301 210 0 606- CMASS3 40211 301 211 0 40212 301 212 0 607- CMASS3 40213 301 213 0 40214 301 214 0 608- CMASS3 40215 301 215 0 40216 301 216 0 609- CMASS3 40217 301 217 0 40218 301 218 0 610- CMASS3 40219 301 219 0 40220 301 220 0 611- CMASS3 40221 301 221 0 40222 301 222 0 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 612- CMASS3 40223 301 223 0 40224 301 224 0 613- CMASS3 40225 301 225 0 40226 301 226 0 614- CMASS3 40227 301 227 0 40228 301 228 0 615- CMASS3 40229 301 229 0 40230 301 230 0 616- CMASS3 40231 301 231 0 40232 301 232 0 617- CMASS3 40233 301 233 0 40234 301 234 0 618- CMASS3 40235 301 235 0 40236 301 236 0 619- CMASS3 40237 301 237 0 40238 301 238 0 620- CMASS3 40239 301 239 0 40240 301 240 0 621- CMASS3 40241 301 241 0 40242 301 242 0 622- CMASS3 40243 301 243 0 40244 301 244 0 623- CMASS3 40245 301 245 0 40246 301 246 0 624- CMASS3 40247 301 247 0 40248 301 248 0 625- CMASS3 40249 301 249 0 40250 301 250 0 626- CMASS3 40251 301 251 0 40252 301 252 0 627- CMASS3 40253 301 253 0 40254 301 254 0 628- CMASS3 40255 301 255 0 40256 301 256 0 629- CMASS3 40257 301 257 0 40258 301 258 0 630- CMASS3 40259 301 259 0 40260 301 260 0 631- CMASS3 40261 301 261 0 40262 301 262 0 632- CMASS3 40263 301 263 0 40264 301 264 0 633- CMASS3 40265 301 265 0 40266 301 266 0 634- CMASS3 40267 301 267 0 40268 301 268 0 635- CMASS3 40269 301 269 0 40270 301 270 0 636- CMASS3 40271 301 271 0 40272 301 272 0 637- CMASS3 40273 301 273 0 40274 301 274 0 638- CMASS3 40275 301 275 0 40276 301 276 0 639- CMASS3 40277 301 277 0 40278 301 278 0 640- CMASS3 40279 301 279 0 40280 301 280 0 641- CMASS3 40281 301 281 0 40282 301 282 0 642- CMASS3 40283 301 283 0 40284 301 284 0 643- CMASS3 40285 301 285 0 40286 301 286 0 644- CMASS3 40287 301 287 0 40288 301 288 0 645- CMASS3 40289 301 289 0 40290 301 290 0 646- CMASS3 40291 301 291 0 40292 301 292 0 647- CMASS3 40293 301 293 0 40294 301 294 0 648- CMASS3 40295 301 295 0 40296 301 296 0 649- CMASS3 40297 301 297 0 40298 301 298 0 650- CMASS3 40299 301 299 0 40300 301 300 0 651- CMASS3 40301 301 301 0 40302 301 302 0 652- CMASS3 40303 301 303 0 40304 301 304 0 653- CMASS3 40305 301 305 0 40306 301 306 0 654- CMASS3 40307 301 307 0 40308 301 308 0 655- CMASS3 40309 301 309 0 40310 301 310 0 656- CMASS3 40311 301 311 0 40312 301 312 0 657- CMASS3 40313 301 313 0 40314 301 314 0 658- CMASS3 40315 301 315 0 40316 301 316 0 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 659- CMASS3 40317 301 317 0 40318 301 318 0 660- CMASS3 40319 301 319 0 40320 301 320 0 661- CMASS3 40321 301 321 0 40322 301 322 0 662- CMASS3 40323 301 323 0 40324 301 324 0 663- CMASS3 40325 301 325 0 40326 301 326 0 664- CMASS3 40327 301 327 0 40328 301 328 0 665- CMASS3 40329 301 329 0 40330 301 330 0 666- CMASS3 40331 301 331 0 40332 301 332 0 667- CMASS3 40333 301 333 0 40334 301 334 0 668- CMASS3 40335 301 335 0 40336 301 336 0 669- CMASS3 40337 301 337 0 40338 301 338 0 670- CMASS3 40339 301 339 0 40340 301 340 0 671- CMASS3 40341 301 341 0 40342 301 342 0 672- CMASS3 40343 301 343 0 40344 301 344 0 673- CMASS3 40345 301 345 0 40346 301 346 0 674- CMASS3 40347 301 347 0 40348 301 348 0 675- CMASS3 40349 301 349 0 40350 301 350 0 676- CMASS3 40351 301 351 0 40352 301 352 0 677- CMASS3 40353 301 353 0 40354 301 354 0 678- CMASS3 40355 301 355 0 40356 301 356 0 679- CMASS3 40357 301 357 0 40358 301 358 0 680- CMASS3 40359 301 359 0 40360 301 360 0 681- CMASS3 40361 301 361 0 40362 301 362 0 682- CMASS3 40363 301 363 0 40364 301 364 0 683- CMASS3 40365 301 365 0 40366 301 366 0 684- CMASS3 40367 301 367 0 40368 301 368 0 685- CMASS3 40369 301 369 0 40370 301 370 0 686- CMASS3 40371 301 371 0 40372 301 372 0 687- CMASS3 40373 301 373 0 40374 301 374 0 688- CMASS3 40375 301 375 0 40376 301 376 0 689- CMASS3 40377 301 377 0 40378 301 378 0 690- CMASS3 40379 301 379 0 40380 301 380 0 691- CMASS3 40381 301 381 0 40382 301 382 0 692- CMASS3 40383 301 383 0 40384 301 384 0 693- CMASS3 40385 301 385 0 40386 301 386 0 694- CMASS3 40387 301 387 0 40388 301 388 0 695- CMASS3 40389 301 389 0 40390 301 390 0 696- CMASS3 40391 301 391 0 40392 301 392 0 697- CMASS3 40393 301 393 0 40394 301 394 0 698- CMASS3 40395 301 395 0 40396 301 396 0 699- CMASS3 40397 301 397 0 40398 301 398 0 700- CMASS3 40399 301 399 0 40400 301 400 0 701- CMASS3 40401 301 401 0 40402 301 402 0 702- CMASS3 40403 301 403 0 40404 301 404 0 703- CMASS3 40405 301 405 0 40406 301 406 0 704- CMASS3 40407 301 407 0 40408 301 408 0 705- CMASS3 40409 301 409 0 40410 301 410 0 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 706- CMASS3 40411 301 411 0 40412 301 412 0 707- CMASS3 40413 301 413 0 40414 301 414 0 708- CMASS3 40415 301 415 0 40416 301 416 0 709- CMASS3 40417 301 417 0 40418 301 418 0 710- CMASS3 40419 301 419 0 40420 301 420 0 711- CMASS3 40421 301 421 0 40422 301 422 0 712- CMASS3 40423 301 423 0 40424 301 424 0 713- CMASS3 40425 301 425 0 40426 301 426 0 714- CMASS3 40427 301 427 0 40428 301 428 0 715- CMASS3 40429 301 429 0 40430 301 430 0 716- CMASS3 40431 301 431 0 40432 301 432 0 717- CMASS3 40433 301 433 0 40434 301 434 0 718- CMASS3 40435 301 435 0 40436 301 436 0 719- CMASS3 40437 301 437 0 40438 301 438 0 720- CMASS3 40439 301 439 0 40440 301 440 0 721- CMASS3 40441 301 441 0 40442 301 442 0 722- CMASS3 40443 301 443 0 40444 301 444 0 723- CMASS3 40445 301 445 0 40446 301 446 0 724- CMASS3 40447 301 447 0 40448 301 448 0 725- CMASS3 40449 301 449 0 40450 301 450 0 726- CMASS3 40451 301 451 0 40452 301 452 0 727- CMASS3 40453 301 453 0 40454 301 454 0 728- CMASS3 40455 301 455 0 40456 301 456 0 729- CMASS3 40457 301 457 0 40458 301 458 0 730- CMASS3 40459 301 459 0 40460 301 460 0 731- CMASS3 40461 301 461 0 40462 301 462 0 732- CMASS3 40463 301 463 0 40464 301 464 0 733- CMASS3 40465 301 465 0 40466 301 466 0 734- CMASS3 40467 301 467 0 40468 301 468 0 735- CMASS3 40469 301 469 0 40470 301 470 0 736- CMASS3 40471 301 471 0 40472 301 472 0 737- CMASS3 40473 301 473 0 40474 301 474 0 738- CMASS3 40475 301 475 0 40476 301 476 0 739- CMASS3 40477 301 477 0 40478 301 478 0 740- CMASS3 40479 301 479 0 40480 301 480 0 741- CMASS3 40481 301 481 0 40482 301 482 0 742- CMASS3 40483 301 483 0 40484 301 484 0 743- CMASS3 40485 301 485 0 40486 301 486 0 744- CMASS3 40487 301 487 0 40488 301 488 0 745- CMASS3 40489 301 489 0 40490 301 490 0 746- CMASS3 40491 301 491 0 40492 301 492 0 747- CMASS3 40493 301 493 0 40494 301 494 0 748- CMASS3 40495 301 495 0 40496 301 496 0 749- CMASS3 40497 301 497 0 40498 301 498 0 750- CMASS3 40499 301 499 0 40500 301 500 0 751- EIGC 1 FEER MAX +CFEER 752- +CFEER -1.0 12.0 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 753- EIGC 7 DET MAX 1.0-5 +EIGC7 754- +EIGC7 -.5 5.0 -.9 16.0 10.0 2 2 755- PARAM G .05 756- PDAMP 401 6.283185 757- PELAS 101 1.0+07 .05 10.0 758- PMASS 301 10.0 ENDDATA 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION DAMP3 ELEMENTS (ELEMENT TYPE 22) STARTING WITH ID 60002 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS3 ELEMENTS (ELEMENT TYPE 13) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION MASS3 ELEMENTS (ELEMENT TYPE 27) STARTING WITH ID 40002 0*** USER WARNING MESSAGE 3150 DESIRED NUMBER OF EIGENVALUES 0 INVALID. SET = 1. 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 0 CBAR = 0 R = 3 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH1 (N = 499) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3165 3 SOLUTIONS HAVE BEEN ACCEPTED AND 9 SOLUTIONS HAVE BEEN REJECTED. 0*** USER INFORMATION MESSAGE 3166 2 MORE ACCURATE EIGENSOLUTIONS THAN THE 1 REQUESTED HAVE BEEN FOUND FOR NEIGHBORHOOD 1 OF 1 CENTERED AT -1.00000000D+00 1.20000000D+01. USE DIAG 12 TO DETERMINE ERROR ESTIMATES. 0*** USER INFORMATION MESSAGE 3160 MINIMUM OPEN CORE NOT USED BY FEER 1956994 WORDS ( 7827K BYTES). 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A 0 C O M P L E X E I G E N V A L U E A N A L Y S I S S U M M A R Y (FEER METHOD) 0 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . . . . 3 0 NUMBER OF STARTING POINTS USED . . . . . . . . . . 1 0 NUMBER OF STARTING POINT OR SHIFT POINT MOVES . . 0 0 TOTAL NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 1 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . . . . 11 0 0 REASON FOR TERMINATION . . . . . . . . . . . . . . 0* 0 (* NORMAL TERMINATION SEE NASTRAN U.M. VOL II, SECTION 2.7.3) 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A 0 C O M P L E X E I G E N V A L U E S U M M A R Y 0 ROOT EXTRACTION EIGENVALUE FREQUENCY DAMPING NO. ORDER (REAL) (IMAG) (CYCLES) COEFFICIENT 1 2 -6.283178E-01 6.283177E+00 9.999987E-01 2.000000E-01 2 1 -9.418869E-01 1.257803E+01 2.001856E+00 1.497670E-01 3 3 -1.255580E+00 1.887015E+01 3.003278E+00 1.330758E-01 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK QPC MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A 0 COMPLEX EIGENVALUE = -6.283178E-01, 6.283177E+00 (CYCLIC FREQUENCY = 9.999987E-01HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 51 S 3.090176E-01 -3.698150E-07 0 101 S 5.877853E-01 8.813436E-08 0 151 S 8.090159E-01 1.944262E-07 0 201 S 9.510561E-01 4.378122E-08 0 251 S 1.000000E+00 0.0 0 301 S 9.510566E-01 -2.280782E-07 0 351 S 8.090177E-01 -4.654652E-07 0 401 S 5.877855E-01 -1.366458E-07 0 451 S 3.090166E-01 2.995830E-07 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A 0 COMPLEX EIGENVALUE = -9.418869E-01, 1.257803E+01 (CYCLIC FREQUENCY = 2.001856E+00HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 51 S 5.877852E-01 4.561104E-08 0 101 S 9.510566E-01 6.643128E-08 0 151 S 9.510565E-01 4.098018E-08 0 201 S 5.877852E-01 -1.095674E-08 0 251 S -5.732428E-10 -1.768000E-09 0 301 S -5.877852E-01 -2.015995E-08 0 351 S -9.510565E-01 -1.552909E-08 0 401 S -9.510565E-01 -4.664578E-08 0 451 S -5.877853E-01 1.662234E-08 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A 0 COMPLEX EIGENVALUE = -1.255580E+00, 1.887015E+01 (CYCLIC FREQUENCY = 3.003278E+00HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 51 S -8.090212E-01 3.180331E-06 0 101 S -9.510600E-01 1.012757E-06 0 151 S -3.090076E-01 -3.094987E-06 0 201 S 5.877863E-01 3.051199E-07 0 251 S 1.000000E+00 0.0 0 301 S 5.877882E-01 5.469935E-07 0 351 S -3.090219E-01 5.589221E-06 0 401 S -9.510580E-01 1.454733E-06 0 451 S -8.090148E-01 -3.636868E-06 * * * END OF JOB * * * 1 JOB TITLE = COMPLEX EIGENVALUES OF A 500 CELL STRING DATE: 5/17/95 END TIME: 15:53:26 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d07012a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D07012A,NASTRAN TIME 15 APP DISP SOL 7,1 DIAG 14 ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/,G2,,,/C,N,5 $ EQUIV G2,GEOM2/TRUE $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = COMPLEX EIGENVALUES OF A 500 CELL STRING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A 3 CMETHOD = 1 $ FEER 4 OUTPUT 5 SET 1 = 1,51,101,151,201,251,301,351,401,451,501 6 DISP = 1 7 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 5, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- EIGC 1 FEER MAX +CFEER 2- +CFEER -1.0 12.0 3- EIGC 7 DET MAX 1.0-5 +EIGC7 4- +EIGC7 -.5 5.0 -.9 16.0 10.0 2 2 5- PARAM G .10 ENDDATA 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 07 - DIRECT COMPLEX EIGENVALUE ANALYSIS - APR. 1995 $ 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ 1 INPUT, ,,,,/,G2,,,/C,N,5 $ 1 EQUIV G2,GEOM2/TRUE $ 2 PRECHK ALL $ 3 FILE GOD=SAVE/GMD=SAVE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,EST,ECT,PLTSETX,PLTPAR,GPSETS, ELSETS/NOGPDT $ 10 COND LBL5,NOGPDT $ 11 GP2 GEOM2,EQEXIN/ECT $ 12 PARAML PCDB//*PRES*////JUMPPLOT $ 13 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 14 COND P1,JUMPPLOT $ 15 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 16 PRTMSG PLTSETX// $ 17 PARAM //*MPY*/PLTFLG/1/1 $ 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PARAM //*MPY*/PFILE/0/0 $ 19 COND P1,JUMPPLOT $ 20 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $ 21 PRTMSG PLOTX1// $ 22 LABEL P1 $ 23 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 24 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/ S,N,COMPS $ 25 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 26 PURGE K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA, KGGX/NOSIMP $ 27 COND LBL1,NOSIMP $ 28 PARAM //*ADD*/NOKGGX/1/0 $ 29 PARAM //*ADD*/NOMGG/1/0 $ 30 PARAM //*ADD*/NOBGG=-1/1/0 $ 31 PARAM //*ADD*/NOK4GG/1/0 $ 32 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/S,N, NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 33 PURGE KGGX/NOKGGX/MGG/NOMGG $ 34 COND LBLKGGX,NOKGGX $ 35 EMA GPECT,KDICT,KELM/KGGX $ 36 LABEL LBLKGGX $ 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 37 COND LBLMGG,NOMGG $ 38 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 39 PURGE MDICT,MELM/MINUS1 $ 40 LABEL LBLMGG $ 41 COND LBLBGG,NOBGG $ 42 EMA GPECT,BDICT,BELM/BGG $ 43 PURGE BDICT,BELM/MINUS1 $ 44 LABEL LBLBGG $ 45 COND LBLK4GG,NOK4GG $ 46 EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ 47 LABEL LBLK4GG $ 48 PURGE KDICT,KELM/MINUS1 $ 49 PURGE MNN,MFF,MAA/NOMGG $ 50 PURGE BNN,BFF,BAA/NOBGG $ 51 COND LBL1,GRDPNT $ 52 COND ERROR3,NOMGG $ 53 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ 54 OFP OGPWG,,,,,//S,N,CARDNO $ 55 LABEL LBL1 $ 56 EQUIV KGGX,KGG/NOGENL $ 57 COND LBL11,NOGENL $ 58 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 59 LABEL LBL11 $ 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 60 GPSTGEN KGG,SIL/GPST $ 61 PARAM //*MPY*/NSKIP/0/0 $ 62 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 63 OFP OGPST,,,,,//S,N,CARDNO $ 64 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $ 65 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ 66 COND LBL2,MPCF1 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT/BFF,BAA/OMIT/K4FF,K4AA/OMIT $ 75 COND LBL5,OMIT $ 76 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 77 COND LBLM,NOMGG $ 78 SMP2 USET,GO,MFF/MAA $ 79 LABEL LBLM $ 80 COND LBLB,NOBGG $ 81 SMP2 USET,GO,BFF/BAA $ 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 82 LABEL LBLB $ 83 COND LBL5,NOK4GG $ 84 SMP2 USET,GO,K4FF/K4AA $ 85 LABEL LBL5 $ 86 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $ 87 COND ERROR1,NOEED $ 88 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 89 PARAM //*ADD*/NEVER/1/0 $ 90 PARAM //*MPY*/REPEATE/1/-1 $ 91 BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ 92 PARAM //*AND*/NOFL/NOABFL/NOKBFL $ 93 PURGE KBFL/NOKBFL/ ABFL/NOABFL $ 94 COND LBL13,NOFL $ 95 MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ 96 LABEL LBL13 $ 97 PURGE PHID,CLAMA,OPHID,OQPC1,OCPHIP,OESC1,OEFC1,CPHIP,QPC, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ 98 CASE CASECC,/CASEXX/*CEIGN*/S,N,REPEATE/S,N,NOLOOP $ 99 MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ 100 PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ 101 PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 102 EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ 103 COND LBLFL2,NOFL $ 104 ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ 105 COND LBLFL2,NOABFL $ 106 TRNSP ABFL/ABFLT $ 107 ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ 108 LABEL LBLFL2 $ 109 PARAM //*AND*/BDEBA/NOUE/NOB2PP $ 110 PARAM //*AND*/MDEMA/NOUE/NOM2PP $ 111 PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ 112 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 113 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ MAA,MDD/MDEMA/BAA,BDD/BDEBA $ 114 COND LBL18,NOGPDT $ 115 GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*CMPLEV*/*DISP*/*DIRECT*/C,Y,G=0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ 116 LABEL LBL18 $ 117 EQUIV B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $ 118 CEAD KDD,BDD,MDD,EED,CASEXX/PHID,CLAMA,OCEIGS,/S,N,EIGVS $ 119 OFP OCEIGS,CLAMA,,,,//S,N,CARDNO $ 120 COND LBL16,EIGVS $ 121 VDR CASEXX,EQDYN,USETD,PHID,CLAMA,,/OPHID,/*CEIGN*/*DIRECT*/ 0/S,N,NOD/S,N,NOP/0 $ 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 122 COND LBL15,NOD $ 123 OFP OPHID,,,,,//S,N,CARDNO $ 124 LABEL LBL15 $ 125 COND LBL16,NOP $ 126 EQUIV PHID,CPHIP/NOA $ 127 COND LBL17,NOA $ 128 SDR1 USETD,, PHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $ 129 LABEL LBL17 $ 130 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,CLAMA,QPC,CPHIP,EST,,,/ ,OQPC1,OCPHIP,OESC1,OEFC1,,,/*CEIG* $ 131 OFP OCPHIP,OQPC1,OEFC1,OESC1,,//S,N,CARDNO $ 132 LABEL LBL16 $ 136 JUMP FINIS $ 137 LABEL ERROR1 $ 138 PRTPARM //-1/*DIRCEAD* $ 139 LABEL ERROR3 $ 140 PRTPARM //-3/*DIRCEAD* $ 141 LABEL FINIS $ 142 PURGE DUMMY/MINUS1 $ 143 END $ 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A 0 * U T I L I T Y M O D U L E I N P U T * INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST) * 1 ** 2 ** 3 ** 4 ** 5 ** 6 ** 7 ** 8 ** 9 ** 10 * 500 1.0E+07 0.0E+00 1.0E+01 6.3E+00 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION DAMP4 ELEMENTS (ELEMENT TYPE 23) STARTING WITH ID 2000002 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS4 ELEMENTS (ELEMENT TYPE 14) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION MASS4 ELEMENTS (ELEMENT TYPE 28) STARTING WITH ID 1000002 0*** USER WARNING MESSAGE 3150 DESIRED NUMBER OF EIGENVALUES 0 INVALID. SET = 1. 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 0 CBAR = 0 R = 3 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH1 (N = 499) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3165 3 SOLUTIONS HAVE BEEN ACCEPTED AND 9 SOLUTIONS HAVE BEEN REJECTED. 0*** USER INFORMATION MESSAGE 3166 2 MORE ACCURATE EIGENSOLUTIONS THAN THE 1 REQUESTED HAVE BEEN FOUND FOR NEIGHBORHOOD 1 OF 1 CENTERED AT -1.00000000D+00 1.20000000D+01. USE DIAG 12 TO DETERMINE ERROR ESTIMATES. 0*** USER INFORMATION MESSAGE 3160 MINIMUM OPEN CORE NOT USED BY FEER 1956994 WORDS ( 7827K BYTES). 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A 0 C O M P L E X E I G E N V A L U E A N A L Y S I S S U M M A R Y (FEER METHOD) 0 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . . . . 3 0 NUMBER OF STARTING POINTS USED . . . . . . . . . . 1 0 NUMBER OF STARTING POINT OR SHIFT POINT MOVES . . 0 0 TOTAL NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 1 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . . . . 11 0 0 REASON FOR TERMINATION . . . . . . . . . . . . . . 0* 0 (* NORMAL TERMINATION SEE NASTRAN U.M. VOL II, SECTION 2.7.3) 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A 0 C O M P L E X E I G E N V A L U E S U M M A R Y 0 ROOT EXTRACTION EIGENVALUE FREQUENCY DAMPING NO. ORDER (REAL) (IMAG) (CYCLES) COEFFICIENT 1 2 -6.291610E-01 6.283138E+00 9.999925E-01 2.002697E-01 2 1 -9.427287E-01 1.257801E+01 2.001853E+00 1.499010E-01 3 3 -1.256423E+00 1.887015E+01 3.003278E+00 1.331652E-01 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A 0 COMPLEX EIGENVALUE = -6.291610E-01, 6.283138E+00 (CYCLIC FREQUENCY = 9.999925E-01HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 51 S 3.090178E-01 -2.708081E-07 0 101 S 5.877855E-01 1.741698E-07 0 151 S 8.090159E-01 2.492660E-07 0 201 S 9.510562E-01 4.779254E-08 0 251 S 1.000000E+00 0.0 0 301 S 9.510567E-01 -1.930243E-07 0 351 S 8.090178E-01 -3.785461E-07 0 401 S 5.877855E-01 -5.418331E-08 0 451 S 3.090166E-01 3.527991E-07 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A 0 COMPLEX EIGENVALUE = -9.427287E-01, 1.257801E+01 (CYCLIC FREQUENCY = 2.001853E+00HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 51 S -5.877852E-01 1.598926E-08 0 101 S -9.510565E-01 -6.663403E-08 0 151 S -9.510565E-01 -1.006823E-08 0 201 S -5.877852E-01 -1.512422E-08 0 251 S 4.733862E-09 -2.046830E-09 0 301 S 5.877852E-01 1.512422E-08 0 351 S 9.510565E-01 4.118171E-08 0 401 S 9.510565E-01 4.118171E-08 0 451 S 5.877852E-01 9.463058E-09 1 COMPLEX EIGENVALUES OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A 0 COMPLEX EIGENVALUE = -1.256423E+00, 1.887015E+01 (CYCLIC FREQUENCY = 3.003278E+00HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 51 S -8.090213E-01 3.231901E-06 0 101 S -9.510603E-01 1.040824E-06 0 151 S -3.090079E-01 -3.091190E-06 0 201 S 5.877863E-01 2.610405E-07 0 251 S 1.000000E+00 0.0 0 301 S 5.877883E-01 5.838824E-07 0 351 S -3.090220E-01 5.590288E-06 0 401 S -9.510583E-01 1.446354E-06 0 451 S -8.090150E-01 -3.641407E-06 * * * END OF JOB * * * 1 JOB TITLE = COMPLEX EIGENVALUES OF A 500 CELL STRING DATE: 5/17/95 END TIME: 15:54:14 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d07021a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D07021A,NASTRAN APP DISPLACEMENT SOL 7,3 TIME 100 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A 0 HARMONIC 3 USING 1/12 SYMMETRY. 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A 3 LABEL = HARMONIC 3 USING 1/12 SYMMETRY. 4 CMETHOD = 1 5 SPC = 3 6 AXISYMMETRIC = FLUID 7 OUTPUT 8 HARMONICS = 3 9 SET 100 = 10,11, 26,27, 42,43, 58,59, 74,75, 81 THRU 96, 10 106,107, 122,123, 138,139, 154,155, 170,171 11 DISPLACEMENT = 100 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 293, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A 0 HARMONIC 3 USING 1/12 SYMMETRY. 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AXIF 1 .0 1.8-2 2.88+3 NO +AXIF 2- +AXIF 3 3- BDYLIST 10 26 42 58 74 90 106 +BDY-1 4- +BDY-1 122 138 154 170 5- CFLUID2 1001 17 1 6- CFLUID2 2001 33 17 7- CFLUID2 3001 49 33 8- CFLUID2 4001 65 49 9- CFLUID2 5001 81 65 10- CFLUID2 6001 97 81 11- CFLUID2 7001 113 97 12- CFLUID2 8001 129 113 13- CFLUID2 9001 145 129 14- CFLUID2 10001 161 145 15- CFLUID4 1002 18 2 1 17 16- CFLUID4 1003 19 3 2 18 17- CFLUID4 1004 20 4 3 19 18- CFLUID4 1005 21 5 4 20 19- CFLUID4 1006 22 6 5 21 20- CFLUID4 1007 23 7 6 22 21- CFLUID4 1008 24 8 7 23 22- CFLUID4 1009 25 9 8 24 23- CFLUID4 1010 26 10 9 25 24- CFLUID4 2002 34 18 17 33 25- CFLUID4 2003 35 19 18 34 26- CFLUID4 2004 36 20 19 35 27- CFLUID4 2005 37 21 20 36 28- CFLUID4 2006 38 22 21 37 29- CFLUID4 2007 39 23 22 38 30- CFLUID4 2008 40 24 23 39 31- CFLUID4 2009 41 25 24 40 32- CFLUID4 2010 42 26 25 41 33- CFLUID4 3002 50 34 33 49 34- CFLUID4 3003 51 35 34 50 35- CFLUID4 3004 52 36 35 51 36- CFLUID4 3005 53 37 36 52 37- CFLUID4 3006 54 38 37 53 38- CFLUID4 3007 55 39 38 54 39- CFLUID4 3008 56 40 39 55 40- CFLUID4 3009 57 41 40 56 41- CFLUID4 3010 58 42 41 57 42- CFLUID4 4002 66 50 49 65 43- CFLUID4 4003 67 51 50 66 44- CFLUID4 4004 68 52 51 67 45- CFLUID4 4005 69 53 52 68 46- CFLUID4 4006 70 54 53 69 47- CFLUID4 4007 71 55 54 70 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A HARMONIC 3 USING 1/12 SYMMETRY. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CFLUID4 4008 72 56 55 71 49- CFLUID4 4009 73 57 56 72 50- CFLUID4 4010 74 58 57 73 51- CFLUID4 5002 82 66 65 81 52- CFLUID4 5003 83 67 66 82 53- CFLUID4 5004 84 68 67 83 54- CFLUID4 5005 85 69 68 84 55- CFLUID4 5006 86 70 69 85 56- CFLUID4 5007 87 71 70 86 57- CFLUID4 5008 88 72 71 87 58- CFLUID4 5009 89 73 72 88 59- CFLUID4 5010 90 74 73 89 60- CFLUID4 6002 98 82 81 97 61- CFLUID4 6003 99 83 82 98 62- CFLUID4 6004 100 84 83 99 63- CFLUID4 6005 101 85 84 100 64- CFLUID4 6006 102 86 85 101 65- CFLUID4 6007 103 87 86 102 66- CFLUID4 6008 104 88 87 103 67- CFLUID4 6009 105 89 88 104 68- CFLUID4 6010 106 90 89 105 69- CFLUID4 7002 114 98 97 113 70- CFLUID4 7003 115 99 98 114 71- CFLUID4 7004 116 100 99 115 72- CFLUID4 7005 117 101 100 116 73- CFLUID4 7006 118 102 101 117 74- CFLUID4 7007 119 103 102 118 75- CFLUID4 7008 120 104 103 119 76- CFLUID4 7009 121 105 104 120 77- CFLUID4 7010 122 106 105 121 78- CFLUID4 8002 130 114 113 129 79- CFLUID4 8003 131 115 114 130 80- CFLUID4 8004 132 116 115 131 81- CFLUID4 8005 133 117 116 132 82- CFLUID4 8006 134 118 117 133 83- CFLUID4 8007 135 119 118 134 84- CFLUID4 8008 136 120 119 135 85- CFLUID4 8009 137 121 120 136 86- CFLUID4 8010 138 122 121 137 87- CFLUID4 9002 146 130 129 145 88- CFLUID4 9003 147 131 130 146 89- CFLUID4 9004 148 132 131 147 90- CFLUID4 9005 149 133 132 148 91- CFLUID4 9006 150 134 133 149 92- CFLUID4 9007 151 135 134 150 93- CFLUID4 9008 152 136 135 151 94- CFLUID4 9009 153 137 136 152 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A HARMONIC 3 USING 1/12 SYMMETRY. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CFLUID4 9010 154 138 137 153 96- CFLUID4 10002 162 146 145 161 97- CFLUID4 10003 163 147 146 162 98- CFLUID4 10004 164 148 147 163 99- CFLUID4 10005 165 149 148 164 100- CFLUID4 10006 166 150 149 165 101- CFLUID4 10007 167 151 150 166 102- CFLUID4 10008 168 152 151 167 103- CFLUID4 10009 169 153 152 168 104- CFLUID4 10010 170 154 153 169 105- CORD2C 1 .0 .0 .0 .0 .0 1.0 +CORD2C 106- +CORD2C 1.0 .0 .0 107- CQUAD1 1011 1 27 28 12 11 108- CQUAD1 1012 1 28 29 13 12 109- CQUAD1 1013 1 29 30 14 13 110- CQUAD1 1014 1 30 31 15 14 111- CQUAD1 1015 1 31 32 16 15 112- CQUAD1 2011 1 43 44 28 27 113- CQUAD1 2012 1 44 45 29 28 114- CQUAD1 2013 1 45 46 30 29 115- CQUAD1 2014 1 46 47 31 30 116- CQUAD1 2015 1 47 48 32 31 117- CQUAD1 3011 1 59 60 44 43 118- CQUAD1 3012 1 60 61 45 44 119- CQUAD1 3013 1 61 62 46 45 120- CQUAD1 3014 1 62 63 47 46 121- CQUAD1 3015 1 63 64 48 47 122- CQUAD1 4011 1 75 76 60 59 123- CQUAD1 4012 1 76 77 61 60 124- CQUAD1 4013 1 77 78 62 61 125- CQUAD1 4014 1 78 79 63 62 126- CQUAD1 4015 1 79 80 64 63 127- CQUAD1 5011 1 91 92 76 75 128- CQUAD1 5012 1 92 93 77 76 129- CQUAD1 5013 1 93 94 78 77 130- CQUAD1 5014 1 94 95 79 78 131- CQUAD1 5015 1 95 96 80 79 132- CQUAD1 6011 1 107 108 92 91 133- CQUAD1 6012 1 108 109 93 92 134- CQUAD1 6013 1 109 110 94 93 135- CQUAD1 6014 1 110 111 95 94 136- CQUAD1 6015 1 111 112 96 95 137- CQUAD1 7011 1 123 124 108 107 138- CQUAD1 7012 1 124 125 109 108 139- CQUAD1 7013 1 125 126 110 109 140- CQUAD1 7014 1 126 127 111 110 141- CQUAD1 7015 1 127 128 112 111 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A HARMONIC 3 USING 1/12 SYMMETRY. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CQUAD1 8011 1 139 140 124 123 143- CQUAD1 8012 1 140 141 125 124 144- CQUAD1 8013 1 141 142 126 125 145- CQUAD1 8014 1 142 143 127 126 146- CQUAD1 8015 1 143 144 128 127 147- CQUAD1 9011 1 155 156 140 139 148- CQUAD1 9012 1 156 157 141 140 149- CQUAD1 9013 1 157 158 142 141 150- CQUAD1 9014 1 158 159 143 142 151- CQUAD1 9015 1 159 160 144 143 152- CQUAD1 10011 1 171 172 156 155 153- CQUAD1 10012 1 172 173 157 156 154- CQUAD1 10013 1 173 174 158 157 155- CQUAD1 10014 1 174 175 159 158 156- CQUAD1 10015 1 175 176 160 159 157- EIGC 1 DET MAX +EIGC 158- +EIGC .1 9.8 .1 10.8 1.0 1 1 159- FLSYM 12 S A 160- FSLIST AXIS 1 2 3 4 5 6 +FSL-2 161- +FSL-2 7 8 9 10 162- FSLIST 170 169 168 167 166 165 164 +FSL-1 163- +FSL-1 163 162 161 AXIS 164- GRIDB 11 .00 1 10 165- GRIDB 12 6.00000 1 10 166- GRIDB 13 12.0000 1 10 167- GRIDB 14 18.0000 1 10 168- GRIDB 15 24.0000 1 10 169- GRIDB 16 30.0000 1 10 170- GRIDB 27 .00 1 26 171- GRIDB 28 6.00000 1 26 172- GRIDB 29 12.0000 1 26 173- GRIDB 30 18.0000 1 26 174- GRIDB 31 24.0000 1 26 175- GRIDB 32 30.0000 1 26 176- GRIDB 43 .00 1 42 177- GRIDB 44 6.00000 1 42 178- GRIDB 45 12.0000 1 42 179- GRIDB 46 18.0000 1 42 180- GRIDB 47 24.0000 1 42 181- GRIDB 48 30.0000 1 42 182- GRIDB 59 .00 1 58 183- GRIDB 60 6.00000 1 58 184- GRIDB 61 12.0000 1 58 185- GRIDB 62 18.0000 1 58 186- GRIDB 63 24.0000 1 58 187- GRIDB 64 30.0000 1 58 188- GRIDB 75 .00 1 74 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A HARMONIC 3 USING 1/12 SYMMETRY. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- GRIDB 76 6.00000 1 74 190- GRIDB 77 12.0000 1 74 191- GRIDB 78 18.0000 1 74 192- GRIDB 79 24.0000 1 74 193- GRIDB 80 30.0000 1 74 194- GRIDB 91 .00 1 90 195- GRIDB 92 6.00000 1 90 196- GRIDB 93 12.0000 1 90 197- GRIDB 94 18.0000 1 90 198- GRIDB 95 24.0000 1 90 199- GRIDB 96 30.0000 1 90 200- GRIDB 107 .00 1 106 201- GRIDB 108 6.00000 1 106 202- GRIDB 109 12.0000 1 106 203- GRIDB 110 18.0000 1 106 204- GRIDB 111 24.0000 1 106 205- GRIDB 112 30.0000 1 106 206- GRIDB 123 .00 1 122 207- GRIDB 124 6.00000 1 122 208- GRIDB 125 12.0000 1 122 209- GRIDB 126 18.0000 1 122 210- GRIDB 127 24.0000 1 122 211- GRIDB 128 30.0000 1 122 212- GRIDB 139 .00 1 138 213- GRIDB 140 6.00000 1 138 214- GRIDB 141 12.0000 1 138 215- GRIDB 142 18.0000 1 138 216- GRIDB 143 24.0000 1 138 217- GRIDB 144 30.0000 1 138 218- GRIDB 155 .00 1 154 219- GRIDB 156 6.00000 1 154 220- GRIDB 157 12.0000 1 154 221- GRIDB 158 18.0000 1 154 222- GRIDB 159 24.0000 1 154 223- GRIDB 160 30.0000 1 154 224- GRIDB 171 .00 1 170 225- GRIDB 172 6.00000 1 170 226- GRIDB 173 12.0000 1 170 227- GRIDB 174 18.0000 1 170 228- GRIDB 175 24.0000 1 170 229- GRIDB 176 30.0000 1 170 230- MAT1 2 1.6+5 6.0+4 6.0-2 231- PQUAD1 1 2 .01 2 8.3333-8 +PQUAD1 232- +PQUAD1 .0 .005 233- RINGFL 1 1.00000 10.0000 2 2.00000 10.0000 234- RINGFL 3 3.00000 10.0000 4 4.00000 10.0000 235- RINGFL 5 5.00000 10.0000 6 6.00000 10.0000 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A HARMONIC 3 USING 1/12 SYMMETRY. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- RINGFL 7 7.00000 10.0000 8 8.00000 10.0000 237- RINGFL 9 9.00000 10.0000 10 10.0000 10.0000 238- RINGFL 17 1.00000 9.00000 18 2.00000 9.00000 239- RINGFL 19 3.00000 9.00000 20 4.00000 9.00000 240- RINGFL 21 5.00000 9.00000 22 6.00000 9.00000 241- RINGFL 23 7.00000 9.00000 24 8.00000 9.00000 242- RINGFL 25 9.00000 9.00000 26 10.0000 9.00000 243- RINGFL 33 1.00000 8.00000 34 2.00000 8.00000 244- RINGFL 35 3.00000 8.00000 36 4.00000 8.00000 245- RINGFL 37 5.00000 8.00000 38 6.00000 8.00000 246- RINGFL 39 7.00000 8.00000 40 8.00000 8.00000 247- RINGFL 41 9.00000 8.00000 42 10.0000 8.00000 248- RINGFL 49 1.00000 7.00000 50 2.00000 7.00000 249- RINGFL 51 3.00000 7.00000 52 4.00000 7.00000 250- RINGFL 53 5.00000 7.00000 54 6.00000 7.00000 251- RINGFL 55 7.00000 7.00000 56 8.00000 7.00000 252- RINGFL 57 9.00000 7.00000 58 10.0000 7.00000 253- RINGFL 65 1.00000 6.00000 66 2.00000 6.00000 254- RINGFL 67 3.00000 6.00000 68 4.00000 6.00000 255- RINGFL 69 5.00000 6.00000 70 6.00000 6.00000 256- RINGFL 71 7.00000 6.00000 72 8.00000 6.00000 257- RINGFL 73 9.00000 6.00000 74 10.0000 6.00000 258- RINGFL 81 1.00000 5.00000 82 2.00000 5.00000 259- RINGFL 83 3.00000 5.00000 84 4.00000 5.00000 260- RINGFL 85 5.00000 5.00000 86 6.00000 5.00000 261- RINGFL 87 7.00000 5.00000 88 8.00000 5.00000 262- RINGFL 89 9.00000 5.00000 90 10.0000 5.00000 263- RINGFL 97 1.00000 4.00000 98 2.00000 4.00000 264- RINGFL 99 3.00000 4.00000 100 4.00000 4.00000 265- RINGFL 101 5.00000 4.00000 102 6.00000 4.00000 266- RINGFL 103 7.00000 4.00000 104 8.00000 4.00000 267- RINGFL 105 9.00000 4.00000 106 10.0000 4.00000 268- RINGFL 113 1.00000 3.00000 114 2.00000 3.00000 269- RINGFL 115 3.00000 3.00000 116 4.00000 3.00000 270- RINGFL 117 5.00000 3.00000 118 6.00000 3.00000 271- RINGFL 119 7.00000 3.00000 120 8.00000 3.00000 272- RINGFL 121 9.00000 3.00000 122 10.0000 3.00000 273- RINGFL 129 1.00000 2.00000 130 2.00000 2.00000 274- RINGFL 131 3.00000 2.00000 132 4.00000 2.00000 275- RINGFL 133 5.00000 2.00000 134 6.00000 2.00000 276- RINGFL 135 7.00000 2.00000 136 8.00000 2.00000 277- RINGFL 137 9.00000 2.00000 138 10.0000 2.00000 278- RINGFL 145 1.00000 1.00000 146 2.00000 1.00000 279- RINGFL 147 3.00000 1.00000 148 4.00000 1.00000 280- RINGFL 149 5.00000 1.00000 150 6.00000 1.00000 281- RINGFL 151 7.00000 1.00000 152 8.00000 1.00000 282- RINGFL 153 9.00000 1.00000 154 10.0000 1.00000 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A HARMONIC 3 USING 1/12 SYMMETRY. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- RINGFL 161 1.00000 .00 162 2.00000 .00 284- RINGFL 163 3.00000 .00 164 4.00000 .00 285- RINGFL 165 5.00000 .00 166 6.00000 .00 286- RINGFL 167 7.00000 .00 168 8.00000 .00 287- RINGFL 169 9.00000 .00 170 10.0000 .00 288- SPC1 3 126 11 12 13 14 15 16 H=3 289- SPC1 3 126 171 172 173 174 175 176 H=3 290- SPC1 3 135 16 32 48 64 80 96 H=3 291- SPC1 3 135 112 128 144 160 176 H=3 292- SPC1 3 246 11 27 43 59 75 91 H=3 293- SPC1 3 246 107 123 139 155 171 H=3 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF AXISYMMETRIC FLUID DATA 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A HARMONIC 3 USING 1/12 SYMMETRY. 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLUID2 ELEMENTS (ELEMENT TYPE 43) STARTING WITH ID 1001008 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLUID4 ELEMENTS (ELEMENT TYPE 45) STARTING WITH ID 1002008 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLMASS ELEMENTS (ELEMENT TYPE 46) STARTING WITH ID 1000008 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1011 0*** USER INFORMATION MESSAGE 3028 B = 26 BBAR = 41 C = 25 CBAR = 9 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 390) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 26 BBAR = 41 C = 25 CBAR = 9 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 390) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 26 BBAR = 41 C = 25 CBAR = 9 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 390) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 26 BBAR = 41 C = 25 CBAR = 9 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 390) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 26 BBAR = 41 C = 25 CBAR = 9 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 390) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 26 BBAR = 41 C = 25 CBAR = 9 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 390) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 26 BBAR = 41 C = 25 CBAR = 9 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 390) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 26 BBAR = 41 C = 25 CBAR = 9 R = 66 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A HARMONIC 3 USING 1/12 SYMMETRY. 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 390) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 26 BBAR = 41 C = 25 CBAR = 9 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 390) TIME ESTIMATE = 0 SECONDS 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A 0 HARMONIC 3 USING 1/12 SYMMETRY. C O M P L E X E I G E N V A L U E A N A L Y S I S S U M M A R Y (DETERMINANT METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 1 0 NUMBER OF PASSES THROUGH STARTING POINTS . . 1 0 NUMBER OF CRITERIA CHANGES . . . . . . . . . 0 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 9 0 NUMBER OF FAILURES TO ITERATE TO A ROOT . . 0 0 NUMBER OF PREDICTIONS OUTSIDE REGION . . . . 0 0 0 REASON FOR TERMINATION . . . . . . . . . . . 1* 0 (* NO. OF ROOTS DESIRED WERE FOUND. SEE NASTRAN U.M. VOL II, SECTION 2.7.3) 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A 0 HARMONIC 3 USING 1/12 SYMMETRY. C O M P L E X E I G E N V A L U E A N A L Y S I S S U M M A R Y (DETERMINANT METHOD) 0 S W E P T D E T E R M I N A N T F U N C T I O N - P - - DET(P) - STARTING POINT REAL IMAG MAGNITUDE PHASE SCALE FACTOR 1 1.000000E-01 9.925000E+00 8.967416E+00 3.2910 394 2 1.000000E-01 1.017500E+01 7.744371E+00 3.4323 394 3 1.000000E-01 1.042500E+01 6.645852E+00 3.5820 394 4 1.000000E-01 1.067500E+01 0.0 0.0 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A 0 HARMONIC 3 USING 1/12 SYMMETRY. C O M P L E X E I G E N V A L U E S U M M A R Y 0 ROOT EXTRACTION EIGENVALUE FREQUENCY DAMPING NO. ORDER (REAL) (IMAG) (CYCLES) COEFFICIENT 1 1 4.592091E-15 1.002093E+01 1.594880E+00 -9.165003E-16 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A 0 HARMONIC 3 USING 1/12 SYMMETRY. COMPLEX EIGENVALUE = 4.592091E-15, 1.002093E+01 (CYCLIC FREQUENCY = 1.594880E+00HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 11 G 0.0 0.0 1.161377E-02 0.0 -7.186808E-02 0.0 0.0 0.0 -2.326366E-15 0.0 4.117336E-12 0.0 0 27 G 7.085057E-02 0.0 1.104535E-02 0.0 -6.835061E-02 0.0 -1.178238E-13 0.0 -1.570706E-15 0.0 -1.461604E-12 0.0 0 43 G 1.347658E-01 0.0 9.395737E-03 0.0 -5.814250E-02 0.0 -5.890827E-14 0.0 -6.915944E-16 0.0 1.317430E-12 0.0 0 59 G 1.854892E-01 0.0 6.826403E-03 0.0 -4.224300E-02 0.0 -8.502950E-14 0.0 -6.911596E-16 0.0 -1.307094E-12 0.0 0 75 G 2.180556E-01 0.0 3.588852E-03 0.0 -2.220846E-02 0.0 -1.139714E-13 0.0 -5.256428E-16 0.0 -7.959817E-13 0.0 0 91 G 2.292773E-01 0.0 -1.895204E-15 0.0 -5.027729E-11 0.0 -1.294711E-13 0.0 2.571127E-17 0.0 9.520798E-13 0.0 0 92 G 2.180656E-01 -1.896995E-02 -1.016390E-14 -4.119590E-09 -1.708484E-11 1.924441E-02 3.937864E-14 4.823519E-15 1.915965E-16 7.800572E-11 3.229827E-13 -4.773225E-13 0 93 G 1.855030E-01 -3.608377E-02 7.751169E-15 1.471785E-09 7.660970E-12 3.666915E-02 6.911968E-14 -6.575531E-16 -9.938799E-17 -2.973011E-11 -1.529058E-13 -1.010091E-12 0 94 G 1.347438E-01 -4.966391E-02 5.752503E-15 -7.501391E-09 2.911956E-11 5.044576E-02 2.582273E-14 -5.289248E-15 -1.705267E-16 1.430719E-10 -5.821752E-13 -2.232975E-13 0 95 G 7.084744E-02 -5.838190E-02 -1.872563E-14 -3.217726E-09 -9.124673E-12 5.926369E-02 -1.073888E-13 -7.344981E-16 3.723785E-16 5.997366E-11 1.038686E-13 5.958968E-13 0 96 G 0.0 -6.138620E-02 0.0 -3.030095E-08 0.0 6.235021E-02 0.0 5.050047E-15 0.0 5.735971E-10 0.0 -1.545998E-13 0 107 G 2.180556E-01 0.0 -3.588852E-03 0.0 2.220846E-02 0.0 -1.272063E-13 0.0 5.313474E-16 0.0 -2.316317E-13 0.0 0 123 G 1.854892E-01 0.0 -6.826403E-03 0.0 4.224300E-02 0.0 -1.138986E-13 0.0 1.092284E-15 0.0 -3.855338E-13 0.0 0 139 G 1.347658E-01 0.0 -9.395737E-03 0.0 5.814250E-02 0.0 -6.469016E-14 0.0 1.256983E-15 0.0 3.338869E-15 0.0 0 155 G 7.085057E-02 0.0 -1.104535E-02 0.0 6.835061E-02 0.0 -4.955990E-14 0.0 1.287111E-15 0.0 -7.176929E-13 0.0 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A 0 HARMONIC 3 USING 1/12 SYMMETRY. COMPLEX EIGENVALUE = 4.592091E-15, 1.002093E+01 (CYCLIC FREQUENCY = 1.594880E+00HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 171 G 0.0 0.0 -1.161377E-02 0.0 7.186808E-02 0.0 0.0 0.0 1.528548E-15 0.0 2.717848E-13 0.0 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A 0 HARMONIC 3 USING 1/12 SYMMETRY. COMPLEX EIGENVALUE = 4.592091E-15, 1.002093E+01 (CYCLIC FREQUENCY = 1.594880E+00HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 0 3 10 0.0 26 3.090170E-01 42 5.877852E-01 58 8.090170E-01 74 9.510565E-01 0.0 -3.379288E-17 -3.180506E-17 -3.180506E-17 1.855295E-16 0 3 81 2.992692E-04 82 4.144787E-03 83 1.562802E-02 84 3.948979E-02 85 8.193990E-02 2.087725E-17 2.206269E-17 2.766378E-17 3.694025E-17 5.168322E-17 0 3 86 1.513172E-01 87 2.590021E-01 88 4.206335E-01 89 6.577473E-01 90 1.000000E+00 7.487441E-17 1.060169E-16 1.431228E-16 1.537244E-16 0.0 0 3 106 9.510565E-01 122 8.090170E-01 138 5.877852E-01 154 3.090170E-01 170 0.0 6.891096E-16 7.050122E-16 7.566953E-16 7.182642E-16 0.0 * * * END OF JOB * * * 1 JOB TITLE = COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER DATE: 5/17/95 END TIME: 15:57: 1 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d07022a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D07022A,NASTRAN APP DISPLACEMENT SOL 7,3 TIME 40 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A 0 HARMONIC 5 USING 1/20 SYMMETRY. 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A 3 LABEL = HARMONIC 5 USING 1/20 SYMMETRY. 4 CMETHOD = 1 5 SPC = 3 6 AXISYMMETRIC = FLUID 7 OUTPUT 8 HARMONICS = 5 9 SET 100 = 10,11, 26,27, 42,43, 58,59, 74,75, 81 THRU 96, 10 106,107, 122,123, 138,139, 154,155, 170,171 11 DISPLACEMENT = 100 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 251, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A 0 HARMONIC 5 USING 1/20 SYMMETRY. 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AXIF 1 .0 1.8-2 2.88+3 NO +AXIF 2- +AXIF 5 3- BDYLIST 10 26 42 58 74 90 106 +BDY-1 4- +BDY-1 122 138 154 170 5- CFLUID2 1001 17 1 6- CFLUID2 2001 33 17 7- CFLUID2 3001 49 33 8- CFLUID2 4001 65 49 9- CFLUID2 5001 81 65 10- CFLUID2 6001 97 81 11- CFLUID2 7001 113 97 12- CFLUID2 8001 129 113 13- CFLUID2 9001 145 129 14- CFLUID2 10001 161 145 15- CFLUID4 1002 18 2 1 17 16- CFLUID4 1003 19 3 2 18 17- CFLUID4 1004 20 4 3 19 18- CFLUID4 1005 21 5 4 20 19- CFLUID4 1006 22 6 5 21 20- CFLUID4 1007 23 7 6 22 21- CFLUID4 1008 24 8 7 23 22- CFLUID4 1009 25 9 8 24 23- CFLUID4 1010 26 10 9 25 24- CFLUID4 2002 34 18 17 33 25- CFLUID4 2003 35 19 18 34 26- CFLUID4 2004 36 20 19 35 27- CFLUID4 2005 37 21 20 36 28- CFLUID4 2006 38 22 21 37 29- CFLUID4 2007 39 23 22 38 30- CFLUID4 2008 40 24 23 39 31- CFLUID4 2009 41 25 24 40 32- CFLUID4 2010 42 26 25 41 33- CFLUID4 3002 50 34 33 49 34- CFLUID4 3003 51 35 34 50 35- CFLUID4 3004 52 36 35 51 36- CFLUID4 3005 53 37 36 52 37- CFLUID4 3006 54 38 37 53 38- CFLUID4 3007 55 39 38 54 39- CFLUID4 3008 56 40 39 55 40- CFLUID4 3009 57 41 40 56 41- CFLUID4 3010 58 42 41 57 42- CFLUID4 4002 66 50 49 65 43- CFLUID4 4003 67 51 50 66 44- CFLUID4 4004 68 52 51 67 45- CFLUID4 4005 69 53 52 68 46- CFLUID4 4006 70 54 53 69 47- CFLUID4 4007 71 55 54 70 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A HARMONIC 5 USING 1/20 SYMMETRY. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CFLUID4 4008 72 56 55 71 49- CFLUID4 4009 73 57 56 72 50- CFLUID4 4010 74 58 57 73 51- CFLUID4 5002 82 66 65 81 52- CFLUID4 5003 83 67 66 82 53- CFLUID4 5004 84 68 67 83 54- CFLUID4 5005 85 69 68 84 55- CFLUID4 5006 86 70 69 85 56- CFLUID4 5007 87 71 70 86 57- CFLUID4 5008 88 72 71 87 58- CFLUID4 5009 89 73 72 88 59- CFLUID4 5010 90 74 73 89 60- CFLUID4 6002 98 82 81 97 61- CFLUID4 6003 99 83 82 98 62- CFLUID4 6004 100 84 83 99 63- CFLUID4 6005 101 85 84 100 64- CFLUID4 6006 102 86 85 101 65- CFLUID4 6007 103 87 86 102 66- CFLUID4 6008 104 88 87 103 67- CFLUID4 6009 105 89 88 104 68- CFLUID4 6010 106 90 89 105 69- CFLUID4 7002 114 98 97 113 70- CFLUID4 7003 115 99 98 114 71- CFLUID4 7004 116 100 99 115 72- CFLUID4 7005 117 101 100 116 73- CFLUID4 7006 118 102 101 117 74- CFLUID4 7007 119 103 102 118 75- CFLUID4 7008 120 104 103 119 76- CFLUID4 7009 121 105 104 120 77- CFLUID4 7010 122 106 105 121 78- CFLUID4 8002 130 114 113 129 79- CFLUID4 8003 131 115 114 130 80- CFLUID4 8004 132 116 115 131 81- CFLUID4 8005 133 117 116 132 82- CFLUID4 8006 134 118 117 133 83- CFLUID4 8007 135 119 118 134 84- CFLUID4 8008 136 120 119 135 85- CFLUID4 8009 137 121 120 136 86- CFLUID4 8010 138 122 121 137 87- CFLUID4 9002 146 130 129 145 88- CFLUID4 9003 147 131 130 146 89- CFLUID4 9004 148 132 131 147 90- CFLUID4 9005 149 133 132 148 91- CFLUID4 9006 150 134 133 149 92- CFLUID4 9007 151 135 134 150 93- CFLUID4 9008 152 136 135 151 94- CFLUID4 9009 153 137 136 152 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A HARMONIC 5 USING 1/20 SYMMETRY. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CFLUID4 9010 154 138 137 153 96- CFLUID4 10002 162 146 145 161 97- CFLUID4 10003 163 147 146 162 98- CFLUID4 10004 164 148 147 163 99- CFLUID4 10005 165 149 148 164 100- CFLUID4 10006 166 150 149 165 101- CFLUID4 10007 167 151 150 166 102- CFLUID4 10008 168 152 151 167 103- CFLUID4 10009 169 153 152 168 104- CFLUID4 10010 170 154 153 169 105- CORD2C 1 .0 .0 .0 .0 .0 1.0 +CORD2C 106- +CORD2C 1.0 .0 .0 107- CQUAD1 1011 1 27 28 12 11 108- CQUAD1 1012 1 28 29 13 12 109- CQUAD1 1013 1 29 30 14 13 110- CQUAD1 2011 1 43 44 28 27 111- CQUAD1 2012 1 44 45 29 28 112- CQUAD1 2013 1 45 46 30 29 113- CQUAD1 3011 1 59 60 44 43 114- CQUAD1 3012 1 60 61 45 44 115- CQUAD1 3013 1 61 62 46 45 116- CQUAD1 4011 1 75 76 60 59 117- CQUAD1 4012 1 76 77 61 60 118- CQUAD1 4013 1 77 78 62 61 119- CQUAD1 5011 1 91 92 76 75 120- CQUAD1 5012 1 92 93 77 76 121- CQUAD1 5013 1 93 94 78 77 122- CQUAD1 6011 1 107 108 92 91 123- CQUAD1 6012 1 108 109 93 92 124- CQUAD1 6013 1 109 110 94 93 125- CQUAD1 7011 1 123 124 108 107 126- CQUAD1 7012 1 124 125 109 108 127- CQUAD1 7013 1 125 126 110 109 128- CQUAD1 8011 1 139 140 124 123 129- CQUAD1 8012 1 140 141 125 124 130- CQUAD1 8013 1 141 142 126 125 131- CQUAD1 9011 1 155 156 140 139 132- CQUAD1 9012 1 156 157 141 140 133- CQUAD1 9013 1 157 158 142 141 134- CQUAD1 10011 1 171 172 156 155 135- CQUAD1 10012 1 172 173 157 156 136- CQUAD1 10013 1 173 174 158 157 137- EIGC 1 DET MAX +EIGC 138- +EIGC 1.0 .0 1.0 20.0 20.0 1 1 139- FLSYM 20 S A 140- FSLIST AXIS 1 2 3 4 5 6 +FSL-2 141- +FSL-2 7 8 9 10 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A HARMONIC 5 USING 1/20 SYMMETRY. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- FSLIST 170 169 168 167 166 165 164 +FSL-1 143- +FSL-1 163 162 161 AXIS 144- GRIDB 11 .00 1 10 145- GRIDB 12 6.00000 1 10 146- GRIDB 13 12.0000 1 10 147- GRIDB 14 18.0000 1 10 148- GRIDB 27 .00 1 26 149- GRIDB 28 6.00000 1 26 150- GRIDB 29 12.0000 1 26 151- GRIDB 30 18.0000 1 26 152- GRIDB 43 .00 1 42 153- GRIDB 44 6.00000 1 42 154- GRIDB 45 12.0000 1 42 155- GRIDB 46 18.0000 1 42 156- GRIDB 59 .00 1 58 157- GRIDB 60 6.00000 1 58 158- GRIDB 61 12.0000 1 58 159- GRIDB 62 18.0000 1 58 160- GRIDB 75 .00 1 74 161- GRIDB 76 6.00000 1 74 162- GRIDB 77 12.0000 1 74 163- GRIDB 78 18.0000 1 74 164- GRIDB 91 .00 1 90 165- GRIDB 92 6.00000 1 90 166- GRIDB 93 12.0000 1 90 167- GRIDB 94 18.0000 1 90 168- GRIDB 107 .00 1 106 169- GRIDB 108 6.00000 1 106 170- GRIDB 109 12.0000 1 106 171- GRIDB 110 18.0000 1 106 172- GRIDB 123 .00 1 122 173- GRIDB 124 6.00000 1 122 174- GRIDB 125 12.0000 1 122 175- GRIDB 126 18.0000 1 122 176- GRIDB 139 .00 1 138 177- GRIDB 140 6.00000 1 138 178- GRIDB 141 12.0000 1 138 179- GRIDB 142 18.0000 1 138 180- GRIDB 155 .00 1 154 181- GRIDB 156 6.00000 1 154 182- GRIDB 157 12.0000 1 154 183- GRIDB 158 18.0000 1 154 184- GRIDB 171 .00 1 170 185- GRIDB 172 6.00000 1 170 186- GRIDB 173 12.0000 1 170 187- GRIDB 174 18.0000 1 170 188- MAT1 2 1.6+5 6.0+4 6.0-2 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A HARMONIC 5 USING 1/20 SYMMETRY. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- PQUAD1 1 2 .01 2 8.3333-8 +PQUAD1 190- +PQUAD1 .0 .005 191- RINGFL 1 1.00000 10.0000 2 2.00000 10.0000 192- RINGFL 3 3.00000 10.0000 4 4.00000 10.0000 193- RINGFL 5 5.00000 10.0000 6 6.00000 10.0000 194- RINGFL 7 7.00000 10.0000 8 8.00000 10.0000 195- RINGFL 9 9.00000 10.0000 10 10.0000 10.0000 196- RINGFL 17 1.00000 9.00000 18 2.00000 9.00000 197- RINGFL 19 3.00000 9.00000 20 4.00000 9.00000 198- RINGFL 21 5.00000 9.00000 22 6.00000 9.00000 199- RINGFL 23 7.00000 9.00000 24 8.00000 9.00000 200- RINGFL 25 9.00000 9.00000 26 10.0000 9.00000 201- RINGFL 33 1.00000 8.00000 34 2.00000 8.00000 202- RINGFL 35 3.00000 8.00000 36 4.00000 8.00000 203- RINGFL 37 5.00000 8.00000 38 6.00000 8.00000 204- RINGFL 39 7.00000 8.00000 40 8.00000 8.00000 205- RINGFL 41 9.00000 8.00000 42 10.0000 8.00000 206- RINGFL 49 1.00000 7.00000 50 2.00000 7.00000 207- RINGFL 51 3.00000 7.00000 52 4.00000 7.00000 208- RINGFL 53 5.00000 7.00000 54 6.00000 7.00000 209- RINGFL 55 7.00000 7.00000 56 8.00000 7.00000 210- RINGFL 57 9.00000 7.00000 58 10.0000 7.00000 211- RINGFL 65 1.00000 6.00000 66 2.00000 6.00000 212- RINGFL 67 3.00000 6.00000 68 4.00000 6.00000 213- RINGFL 69 5.00000 6.00000 70 6.00000 6.00000 214- RINGFL 71 7.00000 6.00000 72 8.00000 6.00000 215- RINGFL 73 9.00000 6.00000 74 10.0000 6.00000 216- RINGFL 81 1.00000 5.00000 82 2.00000 5.00000 217- RINGFL 83 3.00000 5.00000 84 4.00000 5.00000 218- RINGFL 85 5.00000 5.00000 86 6.00000 5.00000 219- RINGFL 87 7.00000 5.00000 88 8.00000 5.00000 220- RINGFL 89 9.00000 5.00000 90 10.0000 5.00000 221- RINGFL 97 1.00000 4.00000 98 2.00000 4.00000 222- RINGFL 99 3.00000 4.00000 100 4.00000 4.00000 223- RINGFL 101 5.00000 4.00000 102 6.00000 4.00000 224- RINGFL 103 7.00000 4.00000 104 8.00000 4.00000 225- RINGFL 105 9.00000 4.00000 106 10.0000 4.00000 226- RINGFL 113 1.00000 3.00000 114 2.00000 3.00000 227- RINGFL 115 3.00000 3.00000 116 4.00000 3.00000 228- RINGFL 117 5.00000 3.00000 118 6.00000 3.00000 229- RINGFL 119 7.00000 3.00000 120 8.00000 3.00000 230- RINGFL 121 9.00000 3.00000 122 10.0000 3.00000 231- RINGFL 129 1.00000 2.00000 130 2.00000 2.00000 232- RINGFL 131 3.00000 2.00000 132 4.00000 2.00000 233- RINGFL 133 5.00000 2.00000 134 6.00000 2.00000 234- RINGFL 135 7.00000 2.00000 136 8.00000 2.00000 235- RINGFL 137 9.00000 2.00000 138 10.0000 2.00000 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A HARMONIC 5 USING 1/20 SYMMETRY. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- RINGFL 145 1.00000 1.00000 146 2.00000 1.00000 237- RINGFL 147 3.00000 1.00000 148 4.00000 1.00000 238- RINGFL 149 5.00000 1.00000 150 6.00000 1.00000 239- RINGFL 151 7.00000 1.00000 152 8.00000 1.00000 240- RINGFL 153 9.00000 1.00000 154 10.0000 1.00000 241- RINGFL 161 1.00000 .00 162 2.00000 .00 242- RINGFL 163 3.00000 .00 164 4.00000 .00 243- RINGFL 165 5.00000 .00 166 6.00000 .00 244- RINGFL 167 7.00000 .00 168 8.00000 .00 245- RINGFL 169 9.00000 .00 170 10.0000 .00 246- SPC1 3 126 11 12 13 14 H=5 247- SPC1 3 126 171 172 173 174 H=5 248- SPC1 3 135 14 30 46 62 78 94 H=5 249- SPC1 3 135 110 126 142 158 174 H=5 250- SPC1 3 246 11 27 43 59 75 91 H=5 251- SPC1 3 246 107 123 139 155 171 H=5 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF AXISYMMETRIC FLUID DATA 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A HARMONIC 5 USING 1/20 SYMMETRY. 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLUID2 ELEMENTS (ELEMENT TYPE 43) STARTING WITH ID 1001012 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLUID4 ELEMENTS (ELEMENT TYPE 45) STARTING WITH ID 1002012 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLMASS ELEMENTS (ELEMENT TYPE 46) STARTING WITH ID 1000012 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1011 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 29 C = 18 CBAR = 9 R = 49 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 270) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 29 C = 18 CBAR = 9 R = 49 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 270) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 29 C = 18 CBAR = 9 R = 49 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 270) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 29 C = 18 CBAR = 9 R = 49 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 270) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 29 C = 18 CBAR = 9 R = 49 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 270) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 29 C = 18 CBAR = 9 R = 49 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 270) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 29 C = 18 CBAR = 9 R = 49 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 270) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 29 C = 18 CBAR = 9 R = 49 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A HARMONIC 5 USING 1/20 SYMMETRY. 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 270) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 29 C = 18 CBAR = 9 R = 49 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 270) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 29 C = 18 CBAR = 9 R = 49 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 270) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 29 C = 18 CBAR = 9 R = 49 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 270) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 29 C = 18 CBAR = 9 R = 49 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 270) TIME ESTIMATE = 0 SECONDS 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A 0 HARMONIC 5 USING 1/20 SYMMETRY. C O M P L E X E I G E N V A L U E A N A L Y S I S S U M M A R Y (DETERMINANT METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 1 0 NUMBER OF PASSES THROUGH STARTING POINTS . . 1 0 NUMBER OF CRITERIA CHANGES . . . . . . . . . 0 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 12 0 NUMBER OF FAILURES TO ITERATE TO A ROOT . . 0 0 NUMBER OF PREDICTIONS OUTSIDE REGION . . . . 0 0 0 REASON FOR TERMINATION . . . . . . . . . . . 1* 0 (* NO. OF ROOTS DESIRED WERE FOUND. SEE NASTRAN U.M. VOL II, SECTION 2.7.3) 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A 0 HARMONIC 5 USING 1/20 SYMMETRY. C O M P L E X E I G E N V A L U E A N A L Y S I S S U M M A R Y (DETERMINANT METHOD) 0 S W E P T D E T E R M I N A N T F U N C T I O N - P - - DET(P) - STARTING POINT REAL IMAG MAGNITUDE PHASE SCALE FACTOR 1 1.000000E+00 2.500000E+00 2.306401E+00 5.1657 361 2 1.000000E+00 7.500000E+00 8.867628E+00 17.7315 360 3 1.000000E+00 1.250000E+01 7.329873E+00 47.8212 359 4 1.000000E+00 1.750000E+01 0.0 0.0 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A 0 HARMONIC 5 USING 1/20 SYMMETRY. C O M P L E X E I G E N V A L U E S U M M A R Y 0 ROOT EXTRACTION EIGENVALUE FREQUENCY DAMPING NO. ORDER (REAL) (IMAG) (CYCLES) COEFFICIENT 1 1 9.915575E-18 6.590021E+00 1.048834E+00 -3.009270E-18 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A 0 HARMONIC 5 USING 1/20 SYMMETRY. COMPLEX EIGENVALUE = 9.915575E-18, 6.590021E+00 (CYCLIC FREQUENCY = 1.048834E+00HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 11 G 0.0 0.0 4.210155E-02 0.0 -2.351226E-01 0.0 0.0 0.0 2.112055E-17 0.0 -7.624402E-14 0.0 0 27 G 2.337823E-01 0.0 4.004095E-02 0.0 -2.236149E-01 0.0 1.239072E-15 0.0 1.714491E-17 0.0 3.722252E-14 0.0 0 43 G 4.446804E-01 0.0 3.406087E-02 0.0 -1.902182E-01 0.0 1.881799E-16 0.0 1.615101E-17 0.0 -1.067689E-14 0.0 0 59 G 6.120501E-01 0.0 2.474667E-02 0.0 -1.382016E-01 0.0 6.493533E-16 0.0 2.397803E-17 0.0 1.484236E-15 0.0 0 75 G 7.195080E-01 0.0 1.301009E-02 0.0 -7.265688E-02 0.0 2.193224E-15 0.0 1.855295E-17 0.0 -1.547797E-14 0.0 0 91 G 7.565355E-01 0.0 5.190891E-16 0.0 -1.580193E-13 0.0 2.863780E-15 0.0 -8.748766E-18 0.0 2.809148E-14 0.0 0 92 G 6.551837E-01 -7.276373E-02 -4.498130E-16 -5.535026E-11 -2.824077E-13 1.818829E-01 -7.831996E-16 -1.036977E-16 3.881394E-18 3.691389E-12 -4.633658E-15 -7.246916E-15 0 93 G 3.782857E-01 -1.260315E-01 6.860676E-16 -2.224554E-11 -7.291080E-13 3.150529E-01 -1.435866E-15 7.619962E-18 2.253856E-18 3.578926E-13 5.541024E-18 -1.479664E-14 0 94 G 0.0 -1.455292E-01 0.0 3.865656E-11 0.0 3.638218E-01 0.0 8.150046E-17 0.0 1.843810E-12 0.0 3.078929E-14 0 107 G 7.195080E-01 0.0 -1.301009E-02 0.0 7.265688E-02 0.0 1.027038E-15 0.0 -2.936170E-17 0.0 9.989274E-15 0.0 0 123 G 6.120501E-01 0.0 -2.474667E-02 0.0 1.382016E-01 0.0 -7.328416E-16 0.0 -1.747622E-17 0.0 4.727027E-15 0.0 0 139 G 4.446804E-01 0.0 -3.406087E-02 0.0 1.902182E-01 0.0 2.981724E-16 0.0 -5.549320E-18 0.0 -1.462701E-14 0.0 0 155 G 2.337823E-01 0.0 -4.004095E-02 0.0 2.236149E-01 0.0 2.259484E-16 0.0 -8.282568E-18 0.0 1.393360E-14 0.0 0 171 G 0.0 0.0 -4.210155E-02 0.0 2.351226E-01 0.0 0.0 0.0 -8.613870E-18 0.0 -6.765201E-16 0.0 1 COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A 0 HARMONIC 5 USING 1/20 SYMMETRY. COMPLEX EIGENVALUE = 9.915575E-18, 6.590021E+00 (CYCLIC FREQUENCY = 1.048834E+00HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) HARMONIC POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 POINT-ID T1 0 5 10 0.0 26 3.090170E-01 42 5.877852E-01 58 8.090170E-01 74 9.510565E-01 0.0 -2.650422E-18 -1.325211E-18 -1.325211E-18 0.0 0 5 81 -8.609773E-06 82 8.941122E-05 83 1.300925E-03 84 6.568529E-03 85 2.205637E-02 2.299140E-20 2.329472E-20 3.105963E-20 4.141284E-20 8.282568E-20 0 5 86 5.895907E-02 87 1.360715E-01 88 2.834775E-01 89 5.478450E-01 90 1.000000E+00 0.0 3.313027E-19 0.0 1.325211E-18 0.0 0 5 106 9.510565E-01 122 8.090170E-01 138 5.877852E-01 154 3.090170E-01 170 0.0 5.300843E-18 3.975632E-18 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER DATE: 5/17/95 END TIME: 15:58:27 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d08011a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D08011A,NASTRAN APP DISPLACEMENT SOL 8,1 TIME 12 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FREQUENCY RESPONSE OF A 10X10 PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 3 SPC = 37 4 DLOAD = 8 5 FREQUENCY= 8 6 OUTPUT 7 SET 1 = 1,4,7,11 45,55, 78,88, 111,114,117,121 8 DISPLACEMENT(SORT2,PHASE) = 1 9 SPCFORCE(SORT2,PHASE) = 1 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 337, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CNGRNT 1 2 THRU 109 2- CQUAD1 1 23 1 2 13 12 .00 3- CQUAD1 2 23 2 3 14 13 .00 4- CQUAD1 3 23 3 4 15 14 .00 5- CQUAD1 4 23 4 5 16 15 .00 6- CQUAD1 5 23 5 6 17 16 .00 7- CQUAD1 6 23 6 7 18 17 .00 8- CQUAD1 7 23 7 8 19 18 .00 9- CQUAD1 8 23 8 9 20 19 .00 10- CQUAD1 9 23 9 10 21 20 .00 11- CQUAD1 10 23 10 11 22 21 .00 12- CQUAD1 12 23 12 13 24 23 .00 13- CQUAD1 13 23 13 14 25 24 .00 14- CQUAD1 14 23 14 15 26 25 .00 15- CQUAD1 15 23 15 16 27 26 .00 16- CQUAD1 16 23 16 17 28 27 .00 17- CQUAD1 17 23 17 18 29 28 .00 18- CQUAD1 18 23 18 19 30 29 .00 19- CQUAD1 19 23 19 20 31 30 .00 20- CQUAD1 20 23 20 21 32 31 .00 21- CQUAD1 21 23 21 22 33 32 .00 22- CQUAD1 23 23 23 24 35 34 .00 23- CQUAD1 24 23 24 25 36 35 .00 24- CQUAD1 25 23 25 26 37 36 .00 25- CQUAD1 26 23 26 27 38 37 .00 26- CQUAD1 27 23 27 28 39 38 .00 27- CQUAD1 28 23 28 29 40 39 .00 28- CQUAD1 29 23 29 30 41 40 .00 29- CQUAD1 30 23 30 31 42 41 .00 30- CQUAD1 31 23 31 32 43 42 .00 31- CQUAD1 32 23 32 33 44 43 .00 32- CQUAD1 34 23 34 35 46 45 .00 33- CQUAD1 35 23 35 36 47 46 .00 34- CQUAD1 36 23 36 37 48 47 .00 35- CQUAD1 37 23 37 38 49 48 .00 36- CQUAD1 38 23 38 39 50 49 .00 37- CQUAD1 39 23 39 40 51 50 .00 38- CQUAD1 40 23 40 41 52 51 .00 39- CQUAD1 41 23 41 42 53 52 .00 40- CQUAD1 42 23 42 43 54 53 .00 41- CQUAD1 43 23 43 44 55 54 .00 42- CQUAD1 45 23 45 46 57 56 .00 43- CQUAD1 46 23 46 47 58 57 .00 44- CQUAD1 47 23 47 48 59 58 .00 45- CQUAD1 48 23 48 49 60 59 .00 46- CQUAD1 49 23 49 50 61 60 .00 47- CQUAD1 50 23 50 51 62 61 .00 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQUAD1 51 23 51 52 63 62 .00 49- CQUAD1 52 23 52 53 64 63 .00 50- CQUAD1 53 23 53 54 65 64 .00 51- CQUAD1 54 23 54 55 66 65 .00 52- CQUAD1 56 23 56 57 68 67 .00 53- CQUAD1 57 23 57 58 69 68 .00 54- CQUAD1 58 23 58 59 70 69 .00 55- CQUAD1 59 23 59 60 71 70 .00 56- CQUAD1 60 23 60 61 72 71 .00 57- CQUAD1 61 23 61 62 73 72 .00 58- CQUAD1 62 23 62 63 74 73 .00 59- CQUAD1 63 23 63 64 75 74 .00 60- CQUAD1 64 23 64 65 76 75 .00 61- CQUAD1 65 23 65 66 77 76 .00 62- CQUAD1 67 23 67 68 79 78 .00 63- CQUAD1 68 23 68 69 80 79 .00 64- CQUAD1 69 23 69 70 81 80 .00 65- CQUAD1 70 23 70 71 82 81 .00 66- CQUAD1 71 23 71 72 83 82 .00 67- CQUAD1 72 23 72 73 84 83 .00 68- CQUAD1 73 23 73 74 85 84 .00 69- CQUAD1 74 23 74 75 86 85 .00 70- CQUAD1 75 23 75 76 87 86 .00 71- CQUAD1 76 23 76 77 88 87 .00 72- CQUAD1 78 23 78 79 90 89 .00 73- CQUAD1 79 23 79 80 91 90 .00 74- CQUAD1 80 23 80 81 92 91 .00 75- CQUAD1 81 23 81 82 93 92 .00 76- CQUAD1 82 23 82 83 94 93 .00 77- CQUAD1 83 23 83 84 95 94 .00 78- CQUAD1 84 23 84 85 96 95 .00 79- CQUAD1 85 23 85 86 97 96 .00 80- CQUAD1 86 23 86 87 98 97 .00 81- CQUAD1 87 23 87 88 99 98 .00 82- CQUAD1 89 23 89 90 101 100 .00 83- CQUAD1 90 23 90 91 102 101 .00 84- CQUAD1 91 23 91 92 103 102 .00 85- CQUAD1 92 23 92 93 104 103 .00 86- CQUAD1 93 23 93 94 105 104 .00 87- CQUAD1 94 23 94 95 106 105 .00 88- CQUAD1 95 23 95 96 107 106 .00 89- CQUAD1 96 23 96 97 108 107 .00 90- CQUAD1 97 23 97 98 109 108 .00 91- CQUAD1 98 23 98 99 110 109 .00 92- CQUAD1 100 23 100 101 112 111 .00 93- CQUAD1 101 23 101 102 113 112 .00 94- CQUAD1 102 23 102 103 114 113 .00 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CQUAD1 103 23 103 104 115 114 .00 96- CQUAD1 104 23 104 105 116 115 .00 97- CQUAD1 105 23 105 106 117 116 .00 98- CQUAD1 106 23 106 107 118 117 .00 99- CQUAD1 107 23 107 108 119 118 .00 100- CQUAD1 108 23 108 109 120 119 .00 101- CQUAD1 109 23 109 110 121 120 .00 102- DAREA *37 1 3 2.5000000E-01 103- DAREA *37 2 3 4.9384417E-01 104- DAREA *37 3 3 4.7552826E-01 105- DAREA *37 4 3 4.4550326E-01 106- DAREA *37 5 3 4.0450850E-01 107- DAREA *37 6 3 3.5355339E-01 108- DAREA *37 7 3 2.9389263E-01 109- DAREA *37 8 3 2.2699525E-01 110- DAREA *37 9 3 1.5450850E-01 111- DAREA *37 10 3 7.8217242E-02 112- DAREA *37 12 3 4.9384417E-01 113- DAREA *37 13 3 9.7552826E-01 114- DAREA *37 14 3 9.3934743E-01 115- DAREA *37 15 3 8.8003676E-01 116- DAREA *37 16 3 7.9905665E-01 117- DAREA *37 17 3 6.9840112E-01 118- DAREA *37 18 3 5.8054864E-01 119- DAREA *37 19 3 4.4840113E-01 120- DAREA *37 20 3 3.0521249E-01 121- DAREA *37 21 3 1.5450851E-01 122- DAREA *37 23 3 4.7552826E-01 123- DAREA *37 24 3 9.3934743E-01 124- DAREA *37 25 3 9.0450849E-01 125- DAREA *37 26 3 8.4739757E-01 126- DAREA *37 27 3 7.6942088E-01 127- DAREA *37 28 3 6.7249851E-01 128- DAREA *37 29 3 5.5901700E-01 129- DAREA *37 30 3 4.3177063E-01 130- DAREA *37 31 3 2.9389264E-01 131- DAREA *37 32 3 1.4877803E-01 132- DAREA *37 34 3 4.4550326E-01 133- DAREA *37 35 3 8.8003676E-01 134- DAREA *37 36 3 8.4739757E-01 135- DAREA *37 37 3 7.9389263E-01 136- DAREA *37 38 3 7.2083942E-01 137- DAREA *37 39 3 6.3003676E-01 138- DAREA *37 40 3 5.2372050E-01 139- DAREA *37 41 3 4.0450851E-01 140- DAREA *37 42 3 2.7533617E-01 141- DAREA *37 43 3 1.3938414E-01 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- DAREA *37 45 3 4.0450850E-01 143- DAREA *37 46 3 7.9905665E-01 144- DAREA *37 47 3 7.6942088E-01 145- DAREA *37 48 3 7.2083942E-01 146- DAREA *37 49 3 6.5450849E-01 147- DAREA *37 50 3 5.7206140E-01 148- DAREA *37 51 3 4.7552826E-01 149- DAREA *37 52 3 3.6728603E-01 150- DAREA *37 53 3 2.5000001E-01 151- DAREA *37 54 3 1.2655815E-01 152- DAREA *37 56 3 3.5355339E-01 153- DAREA *37 57 3 6.9840112E-01 154- DAREA *37 58 3 6.7249851E-01 155- DAREA *37 59 3 6.3003676E-01 156- DAREA *37 60 3 5.7206140E-01 157- DAREA *37 61 3 5.0000000E-01 158- DAREA *37 62 3 4.1562694E-01 159- DAREA *37 63 3 3.2101976E-01 160- DAREA *37 64 3 2.1850802E-01 161- DAREA *37 65 3 1.1061588E-01 162- DAREA *37 67 3 2.9389263E-01 163- DAREA *37 68 3 5.8054864E-01 164- DAREA *37 69 3 5.5901700E-01 165- DAREA *37 70 3 5.2372050E-01 166- DAREA *37 71 3 4.7552826E-01 167- DAREA *37 72 3 4.1562694E-01 168- DAREA *37 73 3 3.4549151E-01 169- DAREA *37 74 3 2.6684893E-01 170- DAREA *37 75 3 1.8163564E-01 171- DAREA *37 76 3 9.1949883E-02 172- DAREA *37 78 3 2.2699525E-01 173- DAREA *37 79 3 4.4840113E-01 174- DAREA *37 80 3 4.3177063E-01 175- DAREA *37 81 3 4.0450851E-01 176- DAREA *37 82 3 3.6728603E-01 177- DAREA *37 83 3 3.2101976E-01 178- DAREA *37 84 3 2.6684893E-01 179- DAREA *37 85 3 2.0610738E-01 180- DAREA *37 86 3 1.4029079E-01 181- DAREA *37 87 3 7.1019771E-02 182- DAREA *37 89 3 1.5450850E-01 183- DAREA *37 90 3 3.0521249E-01 184- DAREA *37 91 3 2.9389264E-01 185- DAREA *37 92 3 2.7533617E-01 186- DAREA *37 93 3 2.5000001E-01 187- DAREA *37 94 3 2.1850802E-01 188- DAREA *37 95 3 1.8163564E-01 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- DAREA *37 96 3 1.4029079E-01 190- DAREA *37 97 3 9.5491510E-02 191- DAREA *37 98 3 4.8340916E-02 192- DAREA *37 100 3 7.8217242E-02 193- DAREA *37 101 3 1.5450851E-01 194- DAREA *37 102 3 1.4877803E-01 195- DAREA *37 103 3 1.3938414E-01 196- DAREA *37 104 3 1.2655815E-01 197- DAREA *37 105 3 1.1061588E-01 198- DAREA *37 106 3 9.1949883E-02 199- DAREA *37 107 3 7.1019771E-02 200- DAREA *37 108 3 4.8340916E-02 201- DAREA *37 109 3 2.4471748E-02 202- FREQ 8 .0 8.0 9.0 10.0 11.0 203- GRDSET 126 204- GRID 1 .0 .0 .0 205- GRID 2 1.0 .0 .0 206- GRID 3 2.0 .0 .0 207- GRID 4 3.0 .0 .0 208- GRID 5 4.0 .0 .0 209- GRID 6 5.0 .0 .0 210- GRID 7 6.0 .0 .0 211- GRID 8 7.0 .0 .0 212- GRID 9 8.0 .0 .0 213- GRID 10 9.0 .0 .0 214- GRID 11 10.0 .0 .0 215- GRID 12 .0 1.0 .0 216- GRID 13 1.0 1.0 .0 217- GRID 14 2.0 1.0 .0 218- GRID 15 3.0 1.0 .0 219- GRID 16 4.0 1.0 .0 220- GRID 17 5.0 1.0 .0 221- GRID 18 6.0 1.0 .0 222- GRID 19 7.0 1.0 .0 223- GRID 20 8.0 1.0 .0 224- GRID 21 9.0 1.0 .0 225- GRID 22 10.0 1.0 .0 226- GRID 23 .0 2.0 .0 227- GRID 24 1.0 2.0 .0 228- GRID 25 2.0 2.0 .0 229- GRID 26 3.0 2.0 .0 230- GRID 27 4.0 2.0 .0 231- GRID 28 5.0 2.0 .0 232- GRID 29 6.0 2.0 .0 233- GRID 30 7.0 2.0 .0 234- GRID 31 8.0 2.0 .0 235- GRID 32 9.0 2.0 .0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- GRID 33 10.0 2.0 .0 237- GRID 34 .0 3.0 .0 238- GRID 35 1.0 3.0 .0 239- GRID 36 2.0 3.0 .0 240- GRID 37 3.0 3.0 .0 241- GRID 38 4.0 3.0 .0 242- GRID 39 5.0 3.0 .0 243- GRID 40 6.0 3.0 .0 244- GRID 41 7.0 3.0 .0 245- GRID 42 8.0 3.0 .0 246- GRID 43 9.0 3.0 .0 247- GRID 44 10.0 3.0 .0 248- GRID 45 .0 4.0 .0 249- GRID 46 1.0 4.0 .0 250- GRID 47 2.0 4.0 .0 251- GRID 48 3.0 4.0 .0 252- GRID 49 4.0 4.0 .0 253- GRID 50 5.0 4.0 .0 254- GRID 51 6.0 4.0 .0 255- GRID 52 7.0 4.0 .0 256- GRID 53 8.0 4.0 .0 257- GRID 54 9.0 4.0 .0 258- GRID 55 10.0 4.0 .0 259- GRID 56 .0 5.0 .0 260- GRID 57 1.0 5.0 .0 261- GRID 58 2.0 5.0 .0 262- GRID 59 3.0 5.0 .0 263- GRID 60 4.0 5.0 .0 264- GRID 61 5.0 5.0 .0 265- GRID 62 6.0 5.0 .0 266- GRID 63 7.0 5.0 .0 267- GRID 64 8.0 5.0 .0 268- GRID 65 9.0 5.0 .0 269- GRID 66 10.0 5.0 .0 270- GRID 67 .0 6.0 .0 271- GRID 68 1.0 6.0 .0 272- GRID 69 2.0 6.0 .0 273- GRID 70 3.0 6.0 .0 274- GRID 71 4.0 6.0 .0 275- GRID 72 5.0 6.0 .0 276- GRID 73 6.0 6.0 .0 277- GRID 74 7.0 6.0 .0 278- GRID 75 8.0 6.0 .0 279- GRID 76 9.0 6.0 .0 280- GRID 77 10.0 6.0 .0 281- GRID 78 .0 7.0 .0 282- GRID 79 1.0 7.0 .0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- GRID 80 2.0 7.0 .0 284- GRID 81 3.0 7.0 .0 285- GRID 82 4.0 7.0 .0 286- GRID 83 5.0 7.0 .0 287- GRID 84 6.0 7.0 .0 288- GRID 85 7.0 7.0 .0 289- GRID 86 8.0 7.0 .0 290- GRID 87 9.0 7.0 .0 291- GRID 88 10.0 7.0 .0 292- GRID 89 .0 8.0 .0 293- GRID 90 1.0 8.0 .0 294- GRID 91 2.0 8.0 .0 295- GRID 92 3.0 8.0 .0 296- GRID 93 4.0 8.0 .0 297- GRID 94 5.0 8.0 .0 298- GRID 95 6.0 8.0 .0 299- GRID 96 7.0 8.0 .0 300- GRID 97 8.0 8.0 .0 301- GRID 98 9.0 8.0 .0 302- GRID 99 10.0 8.0 .0 303- GRID 100 .0 9.0 .0 304- GRID 101 1.0 9.0 .0 305- GRID 102 2.0 9.0 .0 306- GRID 103 3.0 9.0 .0 307- GRID 104 4.0 9.0 .0 308- GRID 105 5.0 9.0 .0 309- GRID 106 6.0 9.0 .0 310- GRID 107 7.0 9.0 .0 311- GRID 108 8.0 9.0 .0 312- GRID 109 9.0 9.0 .0 313- GRID 110 10.0 9.0 .0 314- GRID 111 .0 10.0 .0 315- GRID 112 1.0 10.0 .0 316- GRID 113 2.0 10.0 .0 317- GRID 114 3.0 10.0 .0 318- GRID 115 4.0 10.0 .0 319- GRID 116 5.0 10.0 .0 320- GRID 117 6.0 10.0 .0 321- GRID 118 7.0 10.0 .0 322- GRID 119 8.0 10.0 .0 323- GRID 120 9.0 10.0 .0 324- GRID 121 10.0 10.0 .0 325- MAT1 8 3.0+7 .300 326- PQUAD1 23 8 .6666667 13.55715 327- RLOAD1 8 37 1 328- SPC1 37 4 1 2 3 4 5 6 +41001H 329- +41001H 7 8 9 10 11 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- SPC1 37 5 1 12 23 34 45 56 +31001H 331- +31001H 67 78 89 100 111 332- SPC1 37 34 11 22 33 44 55 66 +11001H 333- +11001H 77 88 99 110 121 334- SPC1 37 35 111 112 113 114 115 116 +21001H 335- +21001H 117 118 119 120 121 336- TABLED1 1 +T1 337- +T1 .0 10.0 100.0 40.0 ENDT ENDDATA 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 13 PROFILE 1441 MAX WAVEFRONT 13 AVG WAVEFRONT 11.909 RMS WAVEFRONT 12.184 RMS BANDWIDTH 12.325 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 19 PROFILE 1476 MAX WAVEFRONT 17 AVG WAVEFRONT 12.198 RMS WAVEFRONT 12.609 RMS BANDWIDTH 13.093 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 13 13 PROFILE (P) 1441 1441 MAXIMUM WAVEFRONT (C-MAX) 13 13 AVERAGE WAVEFRONT (C-AVG) 11.909 11.909 RMS WAVEFRONT (C-RMS) 12.184 12.184 RMS BANDWITCH (B-RMS) 12.325 12.325 NUMBER OF GRID POINTS (N) 121 NUMBER OF ELEMENTS (NON-RIGID) 100 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 420 MATRIX DENSITY, PERCENT 6.564 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK B2PP MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 1 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 6.603571E+01 6.603571E+01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 0.0 2.286568E+02 2.286568E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 0.0 4.470245E+02 4.470245E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 0.0 2.906904E+04 2.906904E+04 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 4.112285E+02 4.112285E+02 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 4 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 1.176765E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 4.074694E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 7.966035E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 5.180141E+04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 7.328146E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 7 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 7.762963E+01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 2.688022E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 5.255088E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 3.417271E+04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 4.834281E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 11 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 2.149553E+01 1.173293E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 7.443094E+01 4.062674E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.455126E+02 7.942535E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 9.462373E+03 5.164860E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 1.338605E+02 7.306528E+00 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 45 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 1.068480E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 3.699745E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 7.233008E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 4.703470E+04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 6.653818E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 55 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 3.478050E+01 5.615477E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 1.204318E+02 1.944428E+00 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 2.354444E+02 3.801361E+00 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.531044E+04 2.471943E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 2.165909E+02 3.496963E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 78 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 5.995917E+01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 2.076160E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 4.058897E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 2.639414E+04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 3.733877E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 88 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.951753E+01 8.512338E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 6.758187E+01 2.947502E+00 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.321227E+02 5.762372E+00 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 8.591655E+03 3.747147E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 1.215428E+02 5.300944E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 111 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 2.149553E+01 0.0 1.173293E+00 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 7.443094E+01 0.0 4.062674E+00 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 1.455126E+02 0.0 7.942535E+00 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 9.462373E+03 0.0 5.164860E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 1.338605E+02 0.0 7.306528E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 114 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 3.830532E+01 0.0 4.337253E-01 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 1.326369E+02 0.0 1.501827E+00 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 2.593054E+02 0.0 2.936075E+00 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.686207E+04 0.0 1.909267E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 2.385412E+02 0.0 2.700966E+00 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 117 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 2.526951E+01 0.0 7.729041E-01 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 8.749881E+01 0.0 2.676276E+00 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.710604E+02 0.0 5.232125E+00 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.112369E+04 0.0 3.402338E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 1.573625E+02 0.0 4.813157E+00 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 121 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.426342E+02 4.776810E-01 4.776810E-01 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 4.938884E+02 1.654029E+00 1.654029E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 9.655529E+02 3.233631E+00 3.233631E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 6.278782E+04 2.102761E+02 2.102761E+02 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 8.882352E+02 2.974694E+00 2.974694E+00 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.873926E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 6.488702E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.268542E-03 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 8.249059E-02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 1.166963E-03 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 4 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.669681E-04 0.0 1.335168E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 5.781475E-04 0.0 4.623182E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.130280E-03 0.0 9.038331E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 7.349966E-02 0.0 5.877432E-03 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 1.039771E-03 0.0 8.314577E-05 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 7 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.101466E-04 0.0 2.379286E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 3.813963E-04 0.0 8.238571E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 7.456306E-04 0.0 1.610642E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 4.848675E-02 0.0 1.047366E-02 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 6.859234E-04 0.0 1.481668E-04 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 2.940959E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 1.018343E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 1.990864E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 1.294616E-02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 1.831443E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 45 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.516038E-04 1.728652E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 5.249470E-04 5.985672E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.026272E-03 1.170200E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 6.673629E-02 7.609560E-03 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 9.440926E-04 1.076495E-04 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 55 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 2.379286E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 8.238571E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 1.610642E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 1.047366E-02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 1.481668E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 78 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.507448E-05 2.620414E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 2.945809E-04 9.073506E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 5.759062E-04 1.773872E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 3.744994E-02 1.153511E-02 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 5.297899E-04 1.631828E-04 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 88 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 1.335168E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 4.623182E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 9.038331E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 5.877432E-03 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 8.314577E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 111 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 2.940959E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 1.018343E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 1.990864E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 1.294616E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 1.831443E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 114 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 2.620414E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 9.073506E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 1.773872E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 1.153511E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 1.631828E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 117 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 1.728652E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 5.985672E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 1.170200E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 7.609560E-03 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 1.076495E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A 0 POINT-ID = 121 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = FREQUENCY RESPONSE OF A 10X10 PLATE DATE: 5/17/95 END TIME: 15:59:52 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d08012a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D08012A,NASTRAN APP DISPLACEMENT SOL 8,1 TIME 30 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FREQUENCY RESPONSE OF A 20X20 PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 3 SPC = 37 4 DLOAD = 8 5 FREQUENCY= 8 6 OUTPUT 7 SET 1 = 1,7,13,21, 169,189, 295,315, 421,427,433,441 8 DISPLACEMENT(SORT2,PHASE) = 1 9 SPCFORCE(SORT2,PHASE) = 1 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 1261, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CNGRNT 1 2 THRU 419 2- CQUAD1 1 23 1 2 23 22 .00 3- CQUAD1 2 23 2 3 24 23 .00 4- CQUAD1 3 23 3 4 25 24 .00 5- CQUAD1 4 23 4 5 26 25 .00 6- CQUAD1 5 23 5 6 27 26 .00 7- CQUAD1 6 23 6 7 28 27 .00 8- CQUAD1 7 23 7 8 29 28 .00 9- CQUAD1 8 23 8 9 30 29 .00 10- CQUAD1 9 23 9 10 31 30 .00 11- CQUAD1 10 23 10 11 32 31 .00 12- CQUAD1 11 23 11 12 33 32 .00 13- CQUAD1 12 23 12 13 34 33 .00 14- CQUAD1 13 23 13 14 35 34 .00 15- CQUAD1 14 23 14 15 36 35 .00 16- CQUAD1 15 23 15 16 37 36 .00 17- CQUAD1 16 23 16 17 38 37 .00 18- CQUAD1 17 23 17 18 39 38 .00 19- CQUAD1 18 23 18 19 40 39 .00 20- CQUAD1 19 23 19 20 41 40 .00 21- CQUAD1 20 23 20 21 42 41 .00 22- CQUAD1 22 23 22 23 44 43 .00 23- CQUAD1 23 23 23 24 45 44 .00 24- CQUAD1 24 23 24 25 46 45 .00 25- CQUAD1 25 23 25 26 47 46 .00 26- CQUAD1 26 23 26 27 48 47 .00 27- CQUAD1 27 23 27 28 49 48 .00 28- CQUAD1 28 23 28 29 50 49 .00 29- CQUAD1 29 23 29 30 51 50 .00 30- CQUAD1 30 23 30 31 52 51 .00 31- CQUAD1 31 23 31 32 53 52 .00 32- CQUAD1 32 23 32 33 54 53 .00 33- CQUAD1 33 23 33 34 55 54 .00 34- CQUAD1 34 23 34 35 56 55 .00 35- CQUAD1 35 23 35 36 57 56 .00 36- CQUAD1 36 23 36 37 58 57 .00 37- CQUAD1 37 23 37 38 59 58 .00 38- CQUAD1 38 23 38 39 60 59 .00 39- CQUAD1 39 23 39 40 61 60 .00 40- CQUAD1 40 23 40 41 62 61 .00 41- CQUAD1 41 23 41 42 63 62 .00 42- CQUAD1 43 23 43 44 65 64 .00 43- CQUAD1 44 23 44 45 66 65 .00 44- CQUAD1 45 23 45 46 67 66 .00 45- CQUAD1 46 23 46 47 68 67 .00 46- CQUAD1 47 23 47 48 69 68 .00 47- CQUAD1 48 23 48 49 70 69 .00 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQUAD1 49 23 49 50 71 70 .00 49- CQUAD1 50 23 50 51 72 71 .00 50- CQUAD1 51 23 51 52 73 72 .00 51- CQUAD1 52 23 52 53 74 73 .00 52- CQUAD1 53 23 53 54 75 74 .00 53- CQUAD1 54 23 54 55 76 75 .00 54- CQUAD1 55 23 55 56 77 76 .00 55- CQUAD1 56 23 56 57 78 77 .00 56- CQUAD1 57 23 57 58 79 78 .00 57- CQUAD1 58 23 58 59 80 79 .00 58- CQUAD1 59 23 59 60 81 80 .00 59- CQUAD1 60 23 60 61 82 81 .00 60- CQUAD1 61 23 61 62 83 82 .00 61- CQUAD1 62 23 62 63 84 83 .00 62- CQUAD1 64 23 64 65 86 85 .00 63- CQUAD1 65 23 65 66 87 86 .00 64- CQUAD1 66 23 66 67 88 87 .00 65- CQUAD1 67 23 67 68 89 88 .00 66- CQUAD1 68 23 68 69 90 89 .00 67- CQUAD1 69 23 69 70 91 90 .00 68- CQUAD1 70 23 70 71 92 91 .00 69- CQUAD1 71 23 71 72 93 92 .00 70- CQUAD1 72 23 72 73 94 93 .00 71- CQUAD1 73 23 73 74 95 94 .00 72- CQUAD1 74 23 74 75 96 95 .00 73- CQUAD1 75 23 75 76 97 96 .00 74- CQUAD1 76 23 76 77 98 97 .00 75- CQUAD1 77 23 77 78 99 98 .00 76- CQUAD1 78 23 78 79 100 99 .00 77- CQUAD1 79 23 79 80 101 100 .00 78- CQUAD1 80 23 80 81 102 101 .00 79- CQUAD1 81 23 81 82 103 102 .00 80- CQUAD1 82 23 82 83 104 103 .00 81- CQUAD1 83 23 83 84 105 104 .00 82- CQUAD1 85 23 85 86 107 106 .00 83- CQUAD1 86 23 86 87 108 107 .00 84- CQUAD1 87 23 87 88 109 108 .00 85- CQUAD1 88 23 88 89 110 109 .00 86- CQUAD1 89 23 89 90 111 110 .00 87- CQUAD1 90 23 90 91 112 111 .00 88- CQUAD1 91 23 91 92 113 112 .00 89- CQUAD1 92 23 92 93 114 113 .00 90- CQUAD1 93 23 93 94 115 114 .00 91- CQUAD1 94 23 94 95 116 115 .00 92- CQUAD1 95 23 95 96 117 116 .00 93- CQUAD1 96 23 96 97 118 117 .00 94- CQUAD1 97 23 97 98 119 118 .00 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CQUAD1 98 23 98 99 120 119 .00 96- CQUAD1 99 23 99 100 121 120 .00 97- CQUAD1 100 23 100 101 122 121 .00 98- CQUAD1 101 23 101 102 123 122 .00 99- CQUAD1 102 23 102 103 124 123 .00 100- CQUAD1 103 23 103 104 125 124 .00 101- CQUAD1 104 23 104 105 126 125 .00 102- CQUAD1 106 23 106 107 128 127 .00 103- CQUAD1 107 23 107 108 129 128 .00 104- CQUAD1 108 23 108 109 130 129 .00 105- CQUAD1 109 23 109 110 131 130 .00 106- CQUAD1 110 23 110 111 132 131 .00 107- CQUAD1 111 23 111 112 133 132 .00 108- CQUAD1 112 23 112 113 134 133 .00 109- CQUAD1 113 23 113 114 135 134 .00 110- CQUAD1 114 23 114 115 136 135 .00 111- CQUAD1 115 23 115 116 137 136 .00 112- CQUAD1 116 23 116 117 138 137 .00 113- CQUAD1 117 23 117 118 139 138 .00 114- CQUAD1 118 23 118 119 140 139 .00 115- CQUAD1 119 23 119 120 141 140 .00 116- CQUAD1 120 23 120 121 142 141 .00 117- CQUAD1 121 23 121 122 143 142 .00 118- CQUAD1 122 23 122 123 144 143 .00 119- CQUAD1 123 23 123 124 145 144 .00 120- CQUAD1 124 23 124 125 146 145 .00 121- CQUAD1 125 23 125 126 147 146 .00 122- CQUAD1 127 23 127 128 149 148 .00 123- CQUAD1 128 23 128 129 150 149 .00 124- CQUAD1 129 23 129 130 151 150 .00 125- CQUAD1 130 23 130 131 152 151 .00 126- CQUAD1 131 23 131 132 153 152 .00 127- CQUAD1 132 23 132 133 154 153 .00 128- CQUAD1 133 23 133 134 155 154 .00 129- CQUAD1 134 23 134 135 156 155 .00 130- CQUAD1 135 23 135 136 157 156 .00 131- CQUAD1 136 23 136 137 158 157 .00 132- CQUAD1 137 23 137 138 159 158 .00 133- CQUAD1 138 23 138 139 160 159 .00 134- CQUAD1 139 23 139 140 161 160 .00 135- CQUAD1 140 23 140 141 162 161 .00 136- CQUAD1 141 23 141 142 163 162 .00 137- CQUAD1 142 23 142 143 164 163 .00 138- CQUAD1 143 23 143 144 165 164 .00 139- CQUAD1 144 23 144 145 166 165 .00 140- CQUAD1 145 23 145 146 167 166 .00 141- CQUAD1 146 23 146 147 168 167 .00 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CQUAD1 148 23 148 149 170 169 .00 143- CQUAD1 149 23 149 150 171 170 .00 144- CQUAD1 150 23 150 151 172 171 .00 145- CQUAD1 151 23 151 152 173 172 .00 146- CQUAD1 152 23 152 153 174 173 .00 147- CQUAD1 153 23 153 154 175 174 .00 148- CQUAD1 154 23 154 155 176 175 .00 149- CQUAD1 155 23 155 156 177 176 .00 150- CQUAD1 156 23 156 157 178 177 .00 151- CQUAD1 157 23 157 158 179 178 .00 152- CQUAD1 158 23 158 159 180 179 .00 153- CQUAD1 159 23 159 160 181 180 .00 154- CQUAD1 160 23 160 161 182 181 .00 155- CQUAD1 161 23 161 162 183 182 .00 156- CQUAD1 162 23 162 163 184 183 .00 157- CQUAD1 163 23 163 164 185 184 .00 158- CQUAD1 164 23 164 165 186 185 .00 159- CQUAD1 165 23 165 166 187 186 .00 160- CQUAD1 166 23 166 167 188 187 .00 161- CQUAD1 167 23 167 168 189 188 .00 162- CQUAD1 169 23 169 170 191 190 .00 163- CQUAD1 170 23 170 171 192 191 .00 164- CQUAD1 171 23 171 172 193 192 .00 165- CQUAD1 172 23 172 173 194 193 .00 166- CQUAD1 173 23 173 174 195 194 .00 167- CQUAD1 174 23 174 175 196 195 .00 168- CQUAD1 175 23 175 176 197 196 .00 169- CQUAD1 176 23 176 177 198 197 .00 170- CQUAD1 177 23 177 178 199 198 .00 171- CQUAD1 178 23 178 179 200 199 .00 172- CQUAD1 179 23 179 180 201 200 .00 173- CQUAD1 180 23 180 181 202 201 .00 174- CQUAD1 181 23 181 182 203 202 .00 175- CQUAD1 182 23 182 183 204 203 .00 176- CQUAD1 183 23 183 184 205 204 .00 177- CQUAD1 184 23 184 185 206 205 .00 178- CQUAD1 185 23 185 186 207 206 .00 179- CQUAD1 186 23 186 187 208 207 .00 180- CQUAD1 187 23 187 188 209 208 .00 181- CQUAD1 188 23 188 189 210 209 .00 182- CQUAD1 190 23 190 191 212 211 .00 183- CQUAD1 191 23 191 192 213 212 .00 184- CQUAD1 192 23 192 193 214 213 .00 185- CQUAD1 193 23 193 194 215 214 .00 186- CQUAD1 194 23 194 195 216 215 .00 187- CQUAD1 195 23 195 196 217 216 .00 188- CQUAD1 196 23 196 197 218 217 .00 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CQUAD1 197 23 197 198 219 218 .00 190- CQUAD1 198 23 198 199 220 219 .00 191- CQUAD1 199 23 199 200 221 220 .00 192- CQUAD1 200 23 200 201 222 221 .00 193- CQUAD1 201 23 201 202 223 222 .00 194- CQUAD1 202 23 202 203 224 223 .00 195- CQUAD1 203 23 203 204 225 224 .00 196- CQUAD1 204 23 204 205 226 225 .00 197- CQUAD1 205 23 205 206 227 226 .00 198- CQUAD1 206 23 206 207 228 227 .00 199- CQUAD1 207 23 207 208 229 228 .00 200- CQUAD1 208 23 208 209 230 229 .00 201- CQUAD1 209 23 209 210 231 230 .00 202- CQUAD1 211 23 211 212 233 232 .00 203- CQUAD1 212 23 212 213 234 233 .00 204- CQUAD1 213 23 213 214 235 234 .00 205- CQUAD1 214 23 214 215 236 235 .00 206- CQUAD1 215 23 215 216 237 236 .00 207- CQUAD1 216 23 216 217 238 237 .00 208- CQUAD1 217 23 217 218 239 238 .00 209- CQUAD1 218 23 218 219 240 239 .00 210- CQUAD1 219 23 219 220 241 240 .00 211- CQUAD1 220 23 220 221 242 241 .00 212- CQUAD1 221 23 221 222 243 242 .00 213- CQUAD1 222 23 222 223 244 243 .00 214- CQUAD1 223 23 223 224 245 244 .00 215- CQUAD1 224 23 224 225 246 245 .00 216- CQUAD1 225 23 225 226 247 246 .00 217- CQUAD1 226 23 226 227 248 247 .00 218- CQUAD1 227 23 227 228 249 248 .00 219- CQUAD1 228 23 228 229 250 249 .00 220- CQUAD1 229 23 229 230 251 250 .00 221- CQUAD1 230 23 230 231 252 251 .00 222- CQUAD1 232 23 232 233 254 253 .00 223- CQUAD1 233 23 233 234 255 254 .00 224- CQUAD1 234 23 234 235 256 255 .00 225- CQUAD1 235 23 235 236 257 256 .00 226- CQUAD1 236 23 236 237 258 257 .00 227- CQUAD1 237 23 237 238 259 258 .00 228- CQUAD1 238 23 238 239 260 259 .00 229- CQUAD1 239 23 239 240 261 260 .00 230- CQUAD1 240 23 240 241 262 261 .00 231- CQUAD1 241 23 241 242 263 262 .00 232- CQUAD1 242 23 242 243 264 263 .00 233- CQUAD1 243 23 243 244 265 264 .00 234- CQUAD1 244 23 244 245 266 265 .00 235- CQUAD1 245 23 245 246 267 266 .00 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- CQUAD1 246 23 246 247 268 267 .00 237- CQUAD1 247 23 247 248 269 268 .00 238- CQUAD1 248 23 248 249 270 269 .00 239- CQUAD1 249 23 249 250 271 270 .00 240- CQUAD1 250 23 250 251 272 271 .00 241- CQUAD1 251 23 251 252 273 272 .00 242- CQUAD1 253 23 253 254 275 274 .00 243- CQUAD1 254 23 254 255 276 275 .00 244- CQUAD1 255 23 255 256 277 276 .00 245- CQUAD1 256 23 256 257 278 277 .00 246- CQUAD1 257 23 257 258 279 278 .00 247- CQUAD1 258 23 258 259 280 279 .00 248- CQUAD1 259 23 259 260 281 280 .00 249- CQUAD1 260 23 260 261 282 281 .00 250- CQUAD1 261 23 261 262 283 282 .00 251- CQUAD1 262 23 262 263 284 283 .00 252- CQUAD1 263 23 263 264 285 284 .00 253- CQUAD1 264 23 264 265 286 285 .00 254- CQUAD1 265 23 265 266 287 286 .00 255- CQUAD1 266 23 266 267 288 287 .00 256- CQUAD1 267 23 267 268 289 288 .00 257- CQUAD1 268 23 268 269 290 289 .00 258- CQUAD1 269 23 269 270 291 290 .00 259- CQUAD1 270 23 270 271 292 291 .00 260- CQUAD1 271 23 271 272 293 292 .00 261- CQUAD1 272 23 272 273 294 293 .00 262- CQUAD1 274 23 274 275 296 295 .00 263- CQUAD1 275 23 275 276 297 296 .00 264- CQUAD1 276 23 276 277 298 297 .00 265- CQUAD1 277 23 277 278 299 298 .00 266- CQUAD1 278 23 278 279 300 299 .00 267- CQUAD1 279 23 279 280 301 300 .00 268- CQUAD1 280 23 280 281 302 301 .00 269- CQUAD1 281 23 281 282 303 302 .00 270- CQUAD1 282 23 282 283 304 303 .00 271- CQUAD1 283 23 283 284 305 304 .00 272- CQUAD1 284 23 284 285 306 305 .00 273- CQUAD1 285 23 285 286 307 306 .00 274- CQUAD1 286 23 286 287 308 307 .00 275- CQUAD1 287 23 287 288 309 308 .00 276- CQUAD1 288 23 288 289 310 309 .00 277- CQUAD1 289 23 289 290 311 310 .00 278- CQUAD1 290 23 290 291 312 311 .00 279- CQUAD1 291 23 291 292 313 312 .00 280- CQUAD1 292 23 292 293 314 313 .00 281- CQUAD1 293 23 293 294 315 314 .00 282- CQUAD1 295 23 295 296 317 316 .00 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- CQUAD1 296 23 296 297 318 317 .00 284- CQUAD1 297 23 297 298 319 318 .00 285- CQUAD1 298 23 298 299 320 319 .00 286- CQUAD1 299 23 299 300 321 320 .00 287- CQUAD1 300 23 300 301 322 321 .00 288- CQUAD1 301 23 301 302 323 322 .00 289- CQUAD1 302 23 302 303 324 323 .00 290- CQUAD1 303 23 303 304 325 324 .00 291- CQUAD1 304 23 304 305 326 325 .00 292- CQUAD1 305 23 305 306 327 326 .00 293- CQUAD1 306 23 306 307 328 327 .00 294- CQUAD1 307 23 307 308 329 328 .00 295- CQUAD1 308 23 308 309 330 329 .00 296- CQUAD1 309 23 309 310 331 330 .00 297- CQUAD1 310 23 310 311 332 331 .00 298- CQUAD1 311 23 311 312 333 332 .00 299- CQUAD1 312 23 312 313 334 333 .00 300- CQUAD1 313 23 313 314 335 334 .00 301- CQUAD1 314 23 314 315 336 335 .00 302- CQUAD1 316 23 316 317 338 337 .00 303- CQUAD1 317 23 317 318 339 338 .00 304- CQUAD1 318 23 318 319 340 339 .00 305- CQUAD1 319 23 319 320 341 340 .00 306- CQUAD1 320 23 320 321 342 341 .00 307- CQUAD1 321 23 321 322 343 342 .00 308- CQUAD1 322 23 322 323 344 343 .00 309- CQUAD1 323 23 323 324 345 344 .00 310- CQUAD1 324 23 324 325 346 345 .00 311- CQUAD1 325 23 325 326 347 346 .00 312- CQUAD1 326 23 326 327 348 347 .00 313- CQUAD1 327 23 327 328 349 348 .00 314- CQUAD1 328 23 328 329 350 349 .00 315- CQUAD1 329 23 329 330 351 350 .00 316- CQUAD1 330 23 330 331 352 351 .00 317- CQUAD1 331 23 331 332 353 352 .00 318- CQUAD1 332 23 332 333 354 353 .00 319- CQUAD1 333 23 333 334 355 354 .00 320- CQUAD1 334 23 334 335 356 355 .00 321- CQUAD1 335 23 335 336 357 356 .00 322- CQUAD1 337 23 337 338 359 358 .00 323- CQUAD1 338 23 338 339 360 359 .00 324- CQUAD1 339 23 339 340 361 360 .00 325- CQUAD1 340 23 340 341 362 361 .00 326- CQUAD1 341 23 341 342 363 362 .00 327- CQUAD1 342 23 342 343 364 363 .00 328- CQUAD1 343 23 343 344 365 364 .00 329- CQUAD1 344 23 344 345 366 365 .00 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- CQUAD1 345 23 345 346 367 366 .00 331- CQUAD1 346 23 346 347 368 367 .00 332- CQUAD1 347 23 347 348 369 368 .00 333- CQUAD1 348 23 348 349 370 369 .00 334- CQUAD1 349 23 349 350 371 370 .00 335- CQUAD1 350 23 350 351 372 371 .00 336- CQUAD1 351 23 351 352 373 372 .00 337- CQUAD1 352 23 352 353 374 373 .00 338- CQUAD1 353 23 353 354 375 374 .00 339- CQUAD1 354 23 354 355 376 375 .00 340- CQUAD1 355 23 355 356 377 376 .00 341- CQUAD1 356 23 356 357 378 377 .00 342- CQUAD1 358 23 358 359 380 379 .00 343- CQUAD1 359 23 359 360 381 380 .00 344- CQUAD1 360 23 360 361 382 381 .00 345- CQUAD1 361 23 361 362 383 382 .00 346- CQUAD1 362 23 362 363 384 383 .00 347- CQUAD1 363 23 363 364 385 384 .00 348- CQUAD1 364 23 364 365 386 385 .00 349- CQUAD1 365 23 365 366 387 386 .00 350- CQUAD1 366 23 366 367 388 387 .00 351- CQUAD1 367 23 367 368 389 388 .00 352- CQUAD1 368 23 368 369 390 389 .00 353- CQUAD1 369 23 369 370 391 390 .00 354- CQUAD1 370 23 370 371 392 391 .00 355- CQUAD1 371 23 371 372 393 392 .00 356- CQUAD1 372 23 372 373 394 393 .00 357- CQUAD1 373 23 373 374 395 394 .00 358- CQUAD1 374 23 374 375 396 395 .00 359- CQUAD1 375 23 375 376 397 396 .00 360- CQUAD1 376 23 376 377 398 397 .00 361- CQUAD1 377 23 377 378 399 398 .00 362- CQUAD1 379 23 379 380 401 400 .00 363- CQUAD1 380 23 380 381 402 401 .00 364- CQUAD1 381 23 381 382 403 402 .00 365- CQUAD1 382 23 382 383 404 403 .00 366- CQUAD1 383 23 383 384 405 404 .00 367- CQUAD1 384 23 384 385 406 405 .00 368- CQUAD1 385 23 385 386 407 406 .00 369- CQUAD1 386 23 386 387 408 407 .00 370- CQUAD1 387 23 387 388 409 408 .00 371- CQUAD1 388 23 388 389 410 409 .00 372- CQUAD1 389 23 389 390 411 410 .00 373- CQUAD1 390 23 390 391 412 411 .00 374- CQUAD1 391 23 391 392 413 412 .00 375- CQUAD1 392 23 392 393 414 413 .00 376- CQUAD1 393 23 393 394 415 414 .00 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- CQUAD1 394 23 394 395 416 415 .00 378- CQUAD1 395 23 395 396 417 416 .00 379- CQUAD1 396 23 396 397 418 417 .00 380- CQUAD1 397 23 397 398 419 418 .00 381- CQUAD1 398 23 398 399 420 419 .00 382- CQUAD1 400 23 400 401 422 421 .00 383- CQUAD1 401 23 401 402 423 422 .00 384- CQUAD1 402 23 402 403 424 423 .00 385- CQUAD1 403 23 403 404 425 424 .00 386- CQUAD1 404 23 404 405 426 425 .00 387- CQUAD1 405 23 405 406 427 426 .00 388- CQUAD1 406 23 406 407 428 427 .00 389- CQUAD1 407 23 407 408 429 428 .00 390- CQUAD1 408 23 408 409 430 429 .00 391- CQUAD1 409 23 409 410 431 430 .00 392- CQUAD1 410 23 410 411 432 431 .00 393- CQUAD1 411 23 411 412 433 432 .00 394- CQUAD1 412 23 412 413 434 433 .00 395- CQUAD1 413 23 413 414 435 434 .00 396- CQUAD1 414 23 414 415 436 435 .00 397- CQUAD1 415 23 415 416 437 436 .00 398- CQUAD1 416 23 416 417 438 437 .00 399- CQUAD1 417 23 417 418 439 438 .00 400- CQUAD1 418 23 418 419 440 439 .00 401- CQUAD1 419 23 419 420 441 440 .00 402- DAREA *37 1 3 2.5000000E-01 403- DAREA *37 2 3 4.9845867E-01 404- DAREA *37 3 3 4.9384417E-01 405- DAREA *37 4 3 4.8618496E-01 406- DAREA *37 5 3 4.7552826E-01 407- DAREA *37 6 3 4.6193977E-01 408- DAREA *37 7 3 4.4550326E-01 409- DAREA *37 8 3 4.2632008E-01 410- DAREA *37 9 3 4.0450850E-01 411- DAREA *37 10 3 3.8020299E-01 412- DAREA *37 11 3 3.5355339E-01 413- DAREA *37 12 3 3.2472403E-01 414- DAREA *37 13 3 2.9389263E-01 415- DAREA *37 14 3 2.6124929E-01 416- DAREA *37 15 3 2.2699525E-01 417- DAREA *37 16 3 1.9134172E-01 418- DAREA *37 17 3 1.5450850E-01 419- DAREA *37 18 3 1.1672269E-01 420- DAREA *37 19 3 7.8217242E-02 421- DAREA *37 20 3 3.9229557E-02 422- DAREA *37 22 3 4.9845867E-01 423- DAREA *37 23 3 9.9384417E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- DAREA *37 24 3 9.8464362E-01 425- DAREA *37 25 3 9.6937243E-01 426- DAREA *37 26 3 9.4812473E-01 427- DAREA *37 27 3 9.2103152E-01 428- DAREA *37 28 3 8.8825985E-01 429- DAREA *37 29 3 8.5001176E-01 430- DAREA *37 30 3 8.0652306E-01 431- DAREA *37 31 3 7.5806189E-01 432- DAREA *37 32 3 7.0492700E-01 433- DAREA *37 33 3 6.4744603E-01 434- DAREA *37 34 3 5.8597331E-01 435- DAREA *37 35 3 5.2088789E-01 436- DAREA *37 36 3 4.5259101E-01 437- DAREA *37 37 3 3.8150376E-01 438- DAREA *37 38 3 3.0806441E-01 439- DAREA *37 39 3 2.3272575E-01 440- DAREA *37 40 3 1.5595225E-01 441- DAREA *37 41 3 7.8217250E-02 442- DAREA *37 43 3 4.9384417E-01 443- DAREA *37 44 3 9.8464362E-01 444- DAREA *37 45 3 9.7552826E-01 445- DAREA *37 46 3 9.6039844E-01 446- DAREA *37 47 3 9.3934743E-01 447- DAREA *37 48 3 9.1250504E-01 448- DAREA *37 49 3 8.8003676E-01 449- DAREA *37 50 3 8.4214275E-01 450- DAREA *37 51 3 7.9905665E-01 451- DAREA *37 52 3 7.5104411E-01 452- DAREA *37 53 3 6.9840112E-01 453- DAREA *37 54 3 6.4145228E-01 454- DAREA *37 55 3 5.8054864E-01 455- DAREA *37 56 3 5.1606575E-01 456- DAREA *37 57 3 4.4840113E-01 457- DAREA *37 58 3 3.7797197E-01 458- DAREA *37 59 3 3.0521249E-01 459- DAREA *37 60 3 2.3057128E-01 460- DAREA *37 61 3 1.5450851E-01 461- DAREA *37 62 3 7.7493152E-02 462- DAREA *37 64 3 4.8618496E-01 463- DAREA *37 65 3 9.6937243E-01 464- DAREA *37 66 3 9.6039844E-01 465- DAREA *37 67 3 9.4550326E-01 466- DAREA *37 68 3 9.2477875E-01 467- DAREA *37 69 3 8.9835267E-01 468- DAREA *37 70 3 8.6638795E-01 469- DAREA *37 71 3 8.2908165E-01 470- DAREA *37 72 3 7.8666379E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- DAREA *37 73 3 7.3939589E-01 472- DAREA *37 74 3 6.8756936E-01 473- DAREA *37 75 3 6.3150375E-01 474- DAREA *37 76 3 5.7154471E-01 475- DAREA *37 77 3 5.0806190E-01 476- DAREA *37 78 3 4.4144671E-01 477- DAREA *37 79 3 3.7210987E-01 478- DAREA *37 80 3 3.0047884E-01 479- DAREA *37 81 3 2.2699527E-01 480- DAREA *37 82 3 1.5211219E-01 481- DAREA *37 83 3 7.6291282E-02 482- DAREA *37 85 3 4.7552826E-01 483- DAREA *37 86 3 9.4812473E-01 484- DAREA *37 87 3 9.3934743E-01 485- DAREA *37 88 3 9.2477875E-01 486- DAREA *37 89 3 9.0450849E-01 487- DAREA *37 90 3 8.7866165E-01 488- DAREA *37 91 3 8.4739757E-01 489- DAREA *37 92 3 8.1090898E-01 490- DAREA *37 93 3 7.6942088E-01 491- DAREA *37 94 3 7.2318906E-01 492- DAREA *37 95 3 6.7249851E-01 493- DAREA *37 96 3 6.1766180E-01 494- DAREA *37 97 3 5.5901700E-01 495- DAREA *37 98 3 4.9692567E-01 496- DAREA *37 99 3 4.3177063E-01 497- DAREA *37 100 3 3.6395358E-01 498- DAREA *37 101 3 2.9389264E-01 499- DAREA *37 102 3 2.2201975E-01 500- DAREA *37 103 3 1.4877803E-01 501- DAREA *37 104 3 7.4619051E-02 502- DAREA *37 106 3 4.6193977E-01 503- DAREA *37 107 3 9.2103152E-01 504- DAREA *37 108 3 9.1250504E-01 505- DAREA *37 109 3 8.9835267E-01 506- DAREA *37 110 3 8.7866165E-01 507- DAREA *37 111 3 8.5355339E-01 508- DAREA *37 112 3 8.2318269E-01 509- DAREA *37 113 3 7.8773680E-01 510- DAREA *37 114 3 7.4743424E-01 511- DAREA *37 115 3 7.0252351E-01 512- DAREA *37 116 3 6.5328148E-01 513- DAREA *37 117 3 6.0001177E-01 514- DAREA *37 118 3 5.4304276E-01 515- DAREA *37 119 3 4.8272574E-01 516- DAREA *37 120 3 4.1943254E-01 517- DAREA *37 121 3 3.5355340E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- DAREA *37 122 3 2.8549449E-01 519- DAREA *37 123 3 2.1567541E-01 520- DAREA *37 124 3 1.4452662E-01 521- DAREA *37 125 3 7.2486769E-02 522- DAREA *37 127 3 4.4550326E-01 523- DAREA *37 128 3 8.8825985E-01 524- DAREA *37 129 3 8.8003676E-01 525- DAREA *37 130 3 8.6638795E-01 526- DAREA *37 131 3 8.4739757E-01 527- DAREA *37 132 3 8.2318269E-01 528- DAREA *37 133 3 7.9389263E-01 529- DAREA *37 134 3 7.5970795E-01 530- DAREA *37 135 3 7.2083942E-01 531- DAREA *37 136 3 6.7752668E-01 532- DAREA *37 137 3 6.3003676E-01 533- DAREA *37 138 3 5.7866246E-01 534- DAREA *37 139 3 5.2372050E-01 535- DAREA *37 140 3 4.6554964E-01 536- DAREA *37 141 3 4.0450851E-01 537- DAREA *37 142 3 3.4097344E-01 538- DAREA *37 143 3 2.7533617E-01 539- DAREA *37 144 3 2.0800136E-01 540- DAREA *37 145 3 1.3938414E-01 541- DAREA *37 146 3 6.9907582E-02 542- DAREA *37 148 3 4.2632008E-01 543- DAREA *37 149 3 8.5001176E-01 544- DAREA *37 150 3 8.4214275E-01 545- DAREA *37 151 3 8.2908165E-01 546- DAREA *37 152 3 8.1090898E-01 547- DAREA *37 153 3 7.8773680E-01 548- DAREA *37 154 3 7.5970795E-01 549- DAREA *37 155 3 7.2699525E-01 550- DAREA *37 156 3 6.8980038E-01 551- DAREA *37 157 3 6.4835268E-01 552- DAREA *37 158 3 6.0290764E-01 553- DAREA *37 159 3 5.5374550E-01 554- DAREA *37 160 3 5.0116932E-01 555- DAREA *37 161 3 4.4550327E-01 556- DAREA *37 162 3 3.8709054E-01 557- DAREA *37 163 3 3.2629127E-01 558- DAREA *37 164 3 2.6348031E-01 559- DAREA *37 165 3 1.9904491E-01 560- DAREA *37 166 3 1.3338232E-01 561- DAREA *37 167 3 6.6897391E-02 562- DAREA *37 169 3 4.0450850E-01 563- DAREA *37 170 3 8.0652306E-01 564- DAREA *37 171 3 7.9905665E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 565- DAREA *37 172 3 7.8666379E-01 566- DAREA *37 173 3 7.6942088E-01 567- DAREA *37 174 3 7.4743424E-01 568- DAREA *37 175 3 7.2083942E-01 569- DAREA *37 176 3 6.8980038E-01 570- DAREA *37 177 3 6.5450849E-01 571- DAREA *37 178 3 6.1518135E-01 572- DAREA *37 179 3 5.7206140E-01 573- DAREA *37 180 3 5.2541451E-01 574- DAREA *37 181 3 4.7552826E-01 575- DAREA *37 182 3 4.2271023E-01 576- DAREA *37 183 3 3.6728603E-01 577- DAREA *37 184 3 3.0959741E-01 578- DAREA *37 185 3 2.5000001E-01 579- DAREA *37 186 3 1.8886128E-01 580- DAREA *37 187 3 1.2655815E-01 581- DAREA *37 188 3 6.3474756E-02 582- DAREA *37 190 3 3.8020299E-01 583- DAREA *37 191 3 7.5806189E-01 584- DAREA *37 192 3 7.5104411E-01 585- DAREA *37 193 3 7.3939589E-01 586- DAREA *37 194 3 7.2318906E-01 587- DAREA *37 195 3 7.0252351E-01 588- DAREA *37 196 3 6.7752668E-01 589- DAREA *37 197 3 6.4835268E-01 590- DAREA *37 198 3 6.1518135E-01 591- DAREA *37 199 3 5.7821724E-01 592- DAREA *37 200 3 5.3768822E-01 593- DAREA *37 201 3 4.9384418E-01 594- DAREA *37 202 3 4.4695542E-01 595- DAREA *37 203 3 3.9731104E-01 596- DAREA *37 204 3 3.4521709E-01 597- DAREA *37 205 3 2.9099477E-01 598- DAREA *37 206 3 2.3497838E-01 599- DAREA *37 207 3 1.7751326E-01 600- DAREA *37 208 3 1.1895372E-01 601- DAREA *37 209 3 5.9660778E-02 602- DAREA *37 211 3 3.5355339E-01 603- DAREA *37 212 3 7.0492700E-01 604- DAREA *37 213 3 6.9840112E-01 605- DAREA *37 214 3 6.8756936E-01 606- DAREA *37 215 3 6.7249851E-01 607- DAREA *37 216 3 6.5328148E-01 608- DAREA *37 217 3 6.3003676E-01 609- DAREA *37 218 3 6.0290764E-01 610- DAREA *37 219 3 5.7206140E-01 611- DAREA *37 220 3 5.3768822E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 612- DAREA *37 221 3 5.0000000E-01 613- DAREA *37 222 3 4.5922913E-01 614- DAREA *37 223 3 4.1562694E-01 615- DAREA *37 224 3 3.6946229E-01 616- DAREA *37 225 3 3.2101976E-01 617- DAREA *37 226 3 2.7059806E-01 618- DAREA *37 227 3 2.1850802E-01 619- DAREA *37 228 3 1.6507082E-01 620- DAREA *37 229 3 1.1061588E-01 621- DAREA *37 230 3 5.5478971E-02 622- DAREA *37 232 3 3.2472403E-01 623- DAREA *37 233 3 6.4744603E-01 624- DAREA *37 234 3 6.4145228E-01 625- DAREA *37 235 3 6.3150375E-01 626- DAREA *37 236 3 6.1766180E-01 627- DAREA *37 237 3 6.0001177E-01 628- DAREA *37 238 3 5.7866246E-01 629- DAREA *37 239 3 5.5374550E-01 630- DAREA *37 240 3 5.2541451E-01 631- DAREA *37 241 3 4.9384418E-01 632- DAREA *37 242 3 4.5922913E-01 633- DAREA *37 243 3 4.2178278E-01 634- DAREA *37 244 3 3.8173600E-01 635- DAREA *37 245 3 3.3933569E-01 636- DAREA *37 246 3 2.9484325E-01 637- DAREA *37 247 3 2.4853302E-01 638- DAREA *37 248 3 2.0069049E-01 639- DAREA *37 249 3 1.5161065E-01 640- DAREA *37 250 3 1.0159607E-01 641- DAREA *37 251 3 5.0955119E-02 642- DAREA *37 253 3 2.9389263E-01 643- DAREA *37 254 3 5.8597331E-01 644- DAREA *37 255 3 5.8054864E-01 645- DAREA *37 256 3 5.7154471E-01 646- DAREA *37 257 3 5.5901700E-01 647- DAREA *37 258 3 5.4304276E-01 648- DAREA *37 259 3 5.2372050E-01 649- DAREA *37 260 3 5.0116932E-01 650- DAREA *37 261 3 4.7552826E-01 651- DAREA *37 262 3 4.4695542E-01 652- DAREA *37 263 3 4.1562694E-01 653- DAREA *37 264 3 3.8173600E-01 654- DAREA *37 265 3 3.4549151E-01 655- DAREA *37 266 3 3.0711696E-01 656- DAREA *37 267 3 2.6684893E-01 657- DAREA *37 268 3 2.2493569E-01 658- DAREA *37 269 3 1.8163564E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 659- DAREA *37 270 3 1.3721576E-01 660- DAREA *37 271 3 9.1949883E-02 661- DAREA *37 272 3 4.6117110E-02 662- DAREA *37 274 3 2.6124929E-01 663- DAREA *37 275 3 5.2088789E-01 664- DAREA *37 276 3 5.1606575E-01 665- DAREA *37 277 3 5.0806190E-01 666- DAREA *37 278 3 4.9692567E-01 667- DAREA *37 279 3 4.8272574E-01 668- DAREA *37 280 3 4.6554964E-01 669- DAREA *37 281 3 4.4550327E-01 670- DAREA *37 282 3 4.2271023E-01 671- DAREA *37 283 3 3.9731104E-01 672- DAREA *37 284 3 3.6946229E-01 673- DAREA *37 285 3 3.3933569E-01 674- DAREA *37 286 3 3.0711696E-01 675- DAREA *37 287 3 2.7300476E-01 676- DAREA *37 288 3 2.3720939E-01 677- DAREA *37 289 3 1.9995156E-01 678- DAREA *37 290 3 1.6146095E-01 679- DAREA *37 291 3 1.2197488E-01 680- DAREA *37 292 3 8.1736795E-02 681- DAREA *37 293 3 4.0994775E-02 682- DAREA *37 295 3 2.2699525E-01 683- DAREA *37 296 3 4.5259101E-01 684- DAREA *37 297 3 4.4840113E-01 685- DAREA *37 298 3 4.4144671E-01 686- DAREA *37 299 3 4.3177063E-01 687- DAREA *37 300 3 4.1943254E-01 688- DAREA *37 301 3 4.0450851E-01 689- DAREA *37 302 3 3.8709054E-01 690- DAREA *37 303 3 3.6728603E-01 691- DAREA *37 304 3 3.4521709E-01 692- DAREA *37 305 3 3.2101976E-01 693- DAREA *37 306 3 2.9484325E-01 694- DAREA *37 307 3 2.6684893E-01 695- DAREA *37 308 3 2.3720939E-01 696- DAREA *37 309 3 2.0610738E-01 697- DAREA *37 310 3 1.7373465E-01 698- DAREA *37 311 3 1.4029079E-01 699- DAREA *37 312 3 1.0598199E-01 700- DAREA *37 313 3 7.1019771E-02 701- DAREA *37 314 3 3.5619693E-02 702- DAREA *37 316 3 1.9134172E-01 703- DAREA *37 317 3 3.8150376E-01 704- DAREA *37 318 3 3.7797197E-01 705- DAREA *37 319 3 3.7210987E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 706- DAREA *37 320 3 3.6395358E-01 707- DAREA *37 321 3 3.5355340E-01 708- DAREA *37 322 3 3.4097344E-01 709- DAREA *37 323 3 3.2629127E-01 710- DAREA *37 324 3 3.0959741E-01 711- DAREA *37 325 3 2.9099477E-01 712- DAREA *37 326 3 2.7059806E-01 713- DAREA *37 327 3 2.4853302E-01 714- DAREA *37 328 3 2.2493569E-01 715- DAREA *37 329 3 1.9995156E-01 716- DAREA *37 330 3 1.7373465E-01 717- DAREA *37 331 3 1.4644662E-01 718- DAREA *37 332 3 1.1825569E-01 719- DAREA *37 333 3 8.9335684E-02 720- DAREA *37 334 3 5.9864887E-02 721- DAREA *37 335 3 3.0025004E-02 722- DAREA *37 337 3 1.5450850E-01 723- DAREA *37 338 3 3.0806441E-01 724- DAREA *37 339 3 3.0521249E-01 725- DAREA *37 340 3 3.0047884E-01 726- DAREA *37 341 3 2.9389264E-01 727- DAREA *37 342 3 2.8549449E-01 728- DAREA *37 343 3 2.7533617E-01 729- DAREA *37 344 3 2.6348031E-01 730- DAREA *37 345 3 2.5000001E-01 731- DAREA *37 346 3 2.3497838E-01 732- DAREA *37 347 3 2.1850802E-01 733- DAREA *37 348 3 2.0069049E-01 734- DAREA *37 349 3 1.8163564E-01 735- DAREA *37 350 3 1.6146095E-01 736- DAREA *37 351 3 1.4029079E-01 737- DAREA *37 352 3 1.1825569E-01 738- DAREA *37 353 3 9.5491510E-02 739- DAREA *37 354 3 7.2138594E-02 740- DAREA *37 355 3 4.8340916E-02 741- DAREA *37 356 3 2.4245200E-02 742- DAREA *37 358 3 1.1672269E-01 743- DAREA *37 359 3 2.3272575E-01 744- DAREA *37 360 3 2.3057128E-01 745- DAREA *37 361 3 2.2699527E-01 746- DAREA *37 362 3 2.2201975E-01 747- DAREA *37 363 3 2.1567541E-01 748- DAREA *37 364 3 2.0800136E-01 749- DAREA *37 365 3 1.9904491E-01 750- DAREA *37 366 3 1.8886128E-01 751- DAREA *37 367 3 1.7751326E-01 752- DAREA *37 368 3 1.6507082E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 753- DAREA *37 369 3 1.5161065E-01 754- DAREA *37 370 3 1.3721576E-01 755- DAREA *37 371 3 1.2197488E-01 756- DAREA *37 372 3 1.0598199E-01 757- DAREA *37 373 3 8.9335684E-02 758- DAREA *37 374 3 7.2138594E-02 759- DAREA *37 375 3 5.4496748E-02 760- DAREA *37 376 3 3.6518908E-02 761- DAREA *37 377 3 1.8315918E-02 762- DAREA *37 379 3 7.8217242E-02 763- DAREA *37 380 3 1.5595225E-01 764- DAREA *37 381 3 1.5450851E-01 765- DAREA *37 382 3 1.5211219E-01 766- DAREA *37 383 3 1.4877803E-01 767- DAREA *37 384 3 1.4452662E-01 768- DAREA *37 385 3 1.3938414E-01 769- DAREA *37 386 3 1.3338232E-01 770- DAREA *37 387 3 1.2655815E-01 771- DAREA *37 388 3 1.1895372E-01 772- DAREA *37 389 3 1.1061588E-01 773- DAREA *37 390 3 1.0159607E-01 774- DAREA *37 391 3 9.1949883E-02 775- DAREA *37 392 3 8.1736795E-02 776- DAREA *37 393 3 7.1019771E-02 777- DAREA *37 394 3 5.9864887E-02 778- DAREA *37 395 3 4.8340916E-02 779- DAREA *37 396 3 3.6518908E-02 780- DAREA *37 397 3 2.4471748E-02 781- DAREA *37 398 3 1.2273711E-02 782- DAREA *37 400 3 3.9229557E-02 783- DAREA *37 401 3 7.8217250E-02 784- DAREA *37 402 3 7.7493152E-02 785- DAREA *37 403 3 7.6291282E-02 786- DAREA *37 404 3 7.4619051E-02 787- DAREA *37 405 3 7.2486769E-02 788- DAREA *37 406 3 6.9907582E-02 789- DAREA *37 407 3 6.6897391E-02 790- DAREA *37 408 3 6.3474756E-02 791- DAREA *37 409 3 5.9660778E-02 792- DAREA *37 410 3 5.5478971E-02 793- DAREA *37 411 3 5.0955119E-02 794- DAREA *37 412 3 4.6117110E-02 795- DAREA *37 413 3 4.0994775E-02 796- DAREA *37 414 3 3.5619693E-02 797- DAREA *37 415 3 3.0025004E-02 798- DAREA *37 416 3 2.4245200E-02 799- DAREA *37 417 3 1.8315918E-02 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 800- DAREA *37 418 3 1.2273711E-02 801- DAREA *37 419 3 6.1558325E-03 802- FREQ 8 .0 8.0 9.0 10.0 11.0 803- GRDSET 126 804- GRID 1 .0 .0 .0 805- GRID 2 .5 .0 .0 806- GRID 3 1.0 .0 .0 807- GRID 4 1.5 .0 .0 808- GRID 5 2.0 .0 .0 809- GRID 6 2.5 .0 .0 810- GRID 7 3.0 .0 .0 811- GRID 8 3.5 .0 .0 812- GRID 9 4.0 .0 .0 813- GRID 10 4.5 .0 .0 814- GRID 11 5.0 .0 .0 815- GRID 12 5.5 .0 .0 816- GRID 13 6.0 .0 .0 817- GRID 14 6.5 .0 .0 818- GRID 15 7.0 .0 .0 819- GRID 16 7.5 .0 .0 820- GRID 17 8.0 .0 .0 821- GRID 18 8.5 .0 .0 822- GRID 19 9.0 .0 .0 823- GRID 20 9.5 .0 .0 824- GRID 21 10.0 .0 .0 825- GRID 22 .0 .5 .0 826- GRID 23 .5 .5 .0 827- GRID 24 1.0 .5 .0 828- GRID 25 1.5 .5 .0 829- GRID 26 2.0 .5 .0 830- GRID 27 2.5 .5 .0 831- GRID 28 3.0 .5 .0 832- GRID 29 3.5 .5 .0 833- GRID 30 4.0 .5 .0 834- GRID 31 4.5 .5 .0 835- GRID 32 5.0 .5 .0 836- GRID 33 5.5 .5 .0 837- GRID 34 6.0 .5 .0 838- GRID 35 6.5 .5 .0 839- GRID 36 7.0 .5 .0 840- GRID 37 7.5 .5 .0 841- GRID 38 8.0 .5 .0 842- GRID 39 8.5 .5 .0 843- GRID 40 9.0 .5 .0 844- GRID 41 9.5 .5 .0 845- GRID 42 10.0 .5 .0 846- GRID 43 .0 1.0 .0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 847- GRID 44 .5 1.0 .0 848- GRID 45 1.0 1.0 .0 849- GRID 46 1.5 1.0 .0 850- GRID 47 2.0 1.0 .0 851- GRID 48 2.5 1.0 .0 852- GRID 49 3.0 1.0 .0 853- GRID 50 3.5 1.0 .0 854- GRID 51 4.0 1.0 .0 855- GRID 52 4.5 1.0 .0 856- GRID 53 5.0 1.0 .0 857- GRID 54 5.5 1.0 .0 858- GRID 55 6.0 1.0 .0 859- GRID 56 6.5 1.0 .0 860- GRID 57 7.0 1.0 .0 861- GRID 58 7.5 1.0 .0 862- GRID 59 8.0 1.0 .0 863- GRID 60 8.5 1.0 .0 864- GRID 61 9.0 1.0 .0 865- GRID 62 9.5 1.0 .0 866- GRID 63 10.0 1.0 .0 867- GRID 64 .0 1.5 .0 868- GRID 65 .5 1.5 .0 869- GRID 66 1.0 1.5 .0 870- GRID 67 1.5 1.5 .0 871- GRID 68 2.0 1.5 .0 872- GRID 69 2.5 1.5 .0 873- GRID 70 3.0 1.5 .0 874- GRID 71 3.5 1.5 .0 875- GRID 72 4.0 1.5 .0 876- GRID 73 4.5 1.5 .0 877- GRID 74 5.0 1.5 .0 878- GRID 75 5.5 1.5 .0 879- GRID 76 6.0 1.5 .0 880- GRID 77 6.5 1.5 .0 881- GRID 78 7.0 1.5 .0 882- GRID 79 7.5 1.5 .0 883- GRID 80 8.0 1.5 .0 884- GRID 81 8.5 1.5 .0 885- GRID 82 9.0 1.5 .0 886- GRID 83 9.5 1.5 .0 887- GRID 84 10.0 1.5 .0 888- GRID 85 .0 2.0 .0 889- GRID 86 .5 2.0 .0 890- GRID 87 1.0 2.0 .0 891- GRID 88 1.5 2.0 .0 892- GRID 89 2.0 2.0 .0 893- GRID 90 2.5 2.0 .0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 894- GRID 91 3.0 2.0 .0 895- GRID 92 3.5 2.0 .0 896- GRID 93 4.0 2.0 .0 897- GRID 94 4.5 2.0 .0 898- GRID 95 5.0 2.0 .0 899- GRID 96 5.5 2.0 .0 900- GRID 97 6.0 2.0 .0 901- GRID 98 6.5 2.0 .0 902- GRID 99 7.0 2.0 .0 903- GRID 100 7.5 2.0 .0 904- GRID 101 8.0 2.0 .0 905- GRID 102 8.5 2.0 .0 906- GRID 103 9.0 2.0 .0 907- GRID 104 9.5 2.0 .0 908- GRID 105 10.0 2.0 .0 909- GRID 106 .0 2.5 .0 910- GRID 107 .5 2.5 .0 911- GRID 108 1.0 2.5 .0 912- GRID 109 1.5 2.5 .0 913- GRID 110 2.0 2.5 .0 914- GRID 111 2.5 2.5 .0 915- GRID 112 3.0 2.5 .0 916- GRID 113 3.5 2.5 .0 917- GRID 114 4.0 2.5 .0 918- GRID 115 4.5 2.5 .0 919- GRID 116 5.0 2.5 .0 920- GRID 117 5.5 2.5 .0 921- GRID 118 6.0 2.5 .0 922- GRID 119 6.5 2.5 .0 923- GRID 120 7.0 2.5 .0 924- GRID 121 7.5 2.5 .0 925- GRID 122 8.0 2.5 .0 926- GRID 123 8.5 2.5 .0 927- GRID 124 9.0 2.5 .0 928- GRID 125 9.5 2.5 .0 929- GRID 126 10.0 2.5 .0 930- GRID 127 .0 3.0 .0 931- GRID 128 .5 3.0 .0 932- GRID 129 1.0 3.0 .0 933- GRID 130 1.5 3.0 .0 934- GRID 131 2.0 3.0 .0 935- GRID 132 2.5 3.0 .0 936- GRID 133 3.0 3.0 .0 937- GRID 134 3.5 3.0 .0 938- GRID 135 4.0 3.0 .0 939- GRID 136 4.5 3.0 .0 940- GRID 137 5.0 3.0 .0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 941- GRID 138 5.5 3.0 .0 942- GRID 139 6.0 3.0 .0 943- GRID 140 6.5 3.0 .0 944- GRID 141 7.0 3.0 .0 945- GRID 142 7.5 3.0 .0 946- GRID 143 8.0 3.0 .0 947- GRID 144 8.5 3.0 .0 948- GRID 145 9.0 3.0 .0 949- GRID 146 9.5 3.0 .0 950- GRID 147 10.0 3.0 .0 951- GRID 148 .0 3.5 .0 952- GRID 149 .5 3.5 .0 953- GRID 150 1.0 3.5 .0 954- GRID 151 1.5 3.5 .0 955- GRID 152 2.0 3.5 .0 956- GRID 153 2.5 3.5 .0 957- GRID 154 3.0 3.5 .0 958- GRID 155 3.5 3.5 .0 959- GRID 156 4.0 3.5 .0 960- GRID 157 4.5 3.5 .0 961- GRID 158 5.0 3.5 .0 962- GRID 159 5.5 3.5 .0 963- GRID 160 6.0 3.5 .0 964- GRID 161 6.5 3.5 .0 965- GRID 162 7.0 3.5 .0 966- GRID 163 7.5 3.5 .0 967- GRID 164 8.0 3.5 .0 968- GRID 165 8.5 3.5 .0 969- GRID 166 9.0 3.5 .0 970- GRID 167 9.5 3.5 .0 971- GRID 168 10.0 3.5 .0 972- GRID 169 .0 4.0 .0 973- GRID 170 .5 4.0 .0 974- GRID 171 1.0 4.0 .0 975- GRID 172 1.5 4.0 .0 976- GRID 173 2.0 4.0 .0 977- GRID 174 2.5 4.0 .0 978- GRID 175 3.0 4.0 .0 979- GRID 176 3.5 4.0 .0 980- GRID 177 4.0 4.0 .0 981- GRID 178 4.5 4.0 .0 982- GRID 179 5.0 4.0 .0 983- GRID 180 5.5 4.0 .0 984- GRID 181 6.0 4.0 .0 985- GRID 182 6.5 4.0 .0 986- GRID 183 7.0 4.0 .0 987- GRID 184 7.5 4.0 .0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 988- GRID 185 8.0 4.0 .0 989- GRID 186 8.5 4.0 .0 990- GRID 187 9.0 4.0 .0 991- GRID 188 9.5 4.0 .0 992- GRID 189 10.0 4.0 .0 993- GRID 190 .0 4.5 .0 994- GRID 191 .5 4.5 .0 995- GRID 192 1.0 4.5 .0 996- GRID 193 1.5 4.5 .0 997- GRID 194 2.0 4.5 .0 998- GRID 195 2.5 4.5 .0 999- GRID 196 3.0 4.5 .0 1000- GRID 197 3.5 4.5 .0 1001- GRID 198 4.0 4.5 .0 1002- GRID 199 4.5 4.5 .0 1003- GRID 200 5.0 4.5 .0 1004- GRID 201 5.5 4.5 .0 1005- GRID 202 6.0 4.5 .0 1006- GRID 203 6.5 4.5 .0 1007- GRID 204 7.0 4.5 .0 1008- GRID 205 7.5 4.5 .0 1009- GRID 206 8.0 4.5 .0 1010- GRID 207 8.5 4.5 .0 1011- GRID 208 9.0 4.5 .0 1012- GRID 209 9.5 4.5 .0 1013- GRID 210 10.0 4.5 .0 1014- GRID 211 .0 5.0 .0 1015- GRID 212 .5 5.0 .0 1016- GRID 213 1.0 5.0 .0 1017- GRID 214 1.5 5.0 .0 1018- GRID 215 2.0 5.0 .0 1019- GRID 216 2.5 5.0 .0 1020- GRID 217 3.0 5.0 .0 1021- GRID 218 3.5 5.0 .0 1022- GRID 219 4.0 5.0 .0 1023- GRID 220 4.5 5.0 .0 1024- GRID 221 5.0 5.0 .0 1025- GRID 222 5.5 5.0 .0 1026- GRID 223 6.0 5.0 .0 1027- GRID 224 6.5 5.0 .0 1028- GRID 225 7.0 5.0 .0 1029- GRID 226 7.5 5.0 .0 1030- GRID 227 8.0 5.0 .0 1031- GRID 228 8.5 5.0 .0 1032- GRID 229 9.0 5.0 .0 1033- GRID 230 9.5 5.0 .0 1034- GRID 231 10.0 5.0 .0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1035- GRID 232 .0 5.5 .0 1036- GRID 233 .5 5.5 .0 1037- GRID 234 1.0 5.5 .0 1038- GRID 235 1.5 5.5 .0 1039- GRID 236 2.0 5.5 .0 1040- GRID 237 2.5 5.5 .0 1041- GRID 238 3.0 5.5 .0 1042- GRID 239 3.5 5.5 .0 1043- GRID 240 4.0 5.5 .0 1044- GRID 241 4.5 5.5 .0 1045- GRID 242 5.0 5.5 .0 1046- GRID 243 5.5 5.5 .0 1047- GRID 244 6.0 5.5 .0 1048- GRID 245 6.5 5.5 .0 1049- GRID 246 7.0 5.5 .0 1050- GRID 247 7.5 5.5 .0 1051- GRID 248 8.0 5.5 .0 1052- GRID 249 8.5 5.5 .0 1053- GRID 250 9.0 5.5 .0 1054- GRID 251 9.5 5.5 .0 1055- GRID 252 10.0 5.5 .0 1056- GRID 253 .0 6.0 .0 1057- GRID 254 .5 6.0 .0 1058- GRID 255 1.0 6.0 .0 1059- GRID 256 1.5 6.0 .0 1060- GRID 257 2.0 6.0 .0 1061- GRID 258 2.5 6.0 .0 1062- GRID 259 3.0 6.0 .0 1063- GRID 260 3.5 6.0 .0 1064- GRID 261 4.0 6.0 .0 1065- GRID 262 4.5 6.0 .0 1066- GRID 263 5.0 6.0 .0 1067- GRID 264 5.5 6.0 .0 1068- GRID 265 6.0 6.0 .0 1069- GRID 266 6.5 6.0 .0 1070- GRID 267 7.0 6.0 .0 1071- GRID 268 7.5 6.0 .0 1072- GRID 269 8.0 6.0 .0 1073- GRID 270 8.5 6.0 .0 1074- GRID 271 9.0 6.0 .0 1075- GRID 272 9.5 6.0 .0 1076- GRID 273 10.0 6.0 .0 1077- GRID 274 .0 6.5 .0 1078- GRID 275 .5 6.5 .0 1079- GRID 276 1.0 6.5 .0 1080- GRID 277 1.5 6.5 .0 1081- GRID 278 2.0 6.5 .0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1082- GRID 279 2.5 6.5 .0 1083- GRID 280 3.0 6.5 .0 1084- GRID 281 3.5 6.5 .0 1085- GRID 282 4.0 6.5 .0 1086- GRID 283 4.5 6.5 .0 1087- GRID 284 5.0 6.5 .0 1088- GRID 285 5.5 6.5 .0 1089- GRID 286 6.0 6.5 .0 1090- GRID 287 6.5 6.5 .0 1091- GRID 288 7.0 6.5 .0 1092- GRID 289 7.5 6.5 .0 1093- GRID 290 8.0 6.5 .0 1094- GRID 291 8.5 6.5 .0 1095- GRID 292 9.0 6.5 .0 1096- GRID 293 9.5 6.5 .0 1097- GRID 294 10.0 6.5 .0 1098- GRID 295 .0 7.0 .0 1099- GRID 296 .5 7.0 .0 1100- GRID 297 1.0 7.0 .0 1101- GRID 298 1.5 7.0 .0 1102- GRID 299 2.0 7.0 .0 1103- GRID 300 2.5 7.0 .0 1104- GRID 301 3.0 7.0 .0 1105- GRID 302 3.5 7.0 .0 1106- GRID 303 4.0 7.0 .0 1107- GRID 304 4.5 7.0 .0 1108- GRID 305 5.0 7.0 .0 1109- GRID 306 5.5 7.0 .0 1110- GRID 307 6.0 7.0 .0 1111- GRID 308 6.5 7.0 .0 1112- GRID 309 7.0 7.0 .0 1113- GRID 310 7.5 7.0 .0 1114- GRID 311 8.0 7.0 .0 1115- GRID 312 8.5 7.0 .0 1116- GRID 313 9.0 7.0 .0 1117- GRID 314 9.5 7.0 .0 1118- GRID 315 10.0 7.0 .0 1119- GRID 316 .0 7.5 .0 1120- GRID 317 .5 7.5 .0 1121- GRID 318 1.0 7.5 .0 1122- GRID 319 1.5 7.5 .0 1123- GRID 320 2.0 7.5 .0 1124- GRID 321 2.5 7.5 .0 1125- GRID 322 3.0 7.5 .0 1126- GRID 323 3.5 7.5 .0 1127- GRID 324 4.0 7.5 .0 1128- GRID 325 4.5 7.5 .0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1129- GRID 326 5.0 7.5 .0 1130- GRID 327 5.5 7.5 .0 1131- GRID 328 6.0 7.5 .0 1132- GRID 329 6.5 7.5 .0 1133- GRID 330 7.0 7.5 .0 1134- GRID 331 7.5 7.5 .0 1135- GRID 332 8.0 7.5 .0 1136- GRID 333 8.5 7.5 .0 1137- GRID 334 9.0 7.5 .0 1138- GRID 335 9.5 7.5 .0 1139- GRID 336 10.0 7.5 .0 1140- GRID 337 .0 8.0 .0 1141- GRID 338 .5 8.0 .0 1142- GRID 339 1.0 8.0 .0 1143- GRID 340 1.5 8.0 .0 1144- GRID 341 2.0 8.0 .0 1145- GRID 342 2.5 8.0 .0 1146- GRID 343 3.0 8.0 .0 1147- GRID 344 3.5 8.0 .0 1148- GRID 345 4.0 8.0 .0 1149- GRID 346 4.5 8.0 .0 1150- GRID 347 5.0 8.0 .0 1151- GRID 348 5.5 8.0 .0 1152- GRID 349 6.0 8.0 .0 1153- GRID 350 6.5 8.0 .0 1154- GRID 351 7.0 8.0 .0 1155- GRID 352 7.5 8.0 .0 1156- GRID 353 8.0 8.0 .0 1157- GRID 354 8.5 8.0 .0 1158- GRID 355 9.0 8.0 .0 1159- GRID 356 9.5 8.0 .0 1160- GRID 357 10.0 8.0 .0 1161- GRID 358 .0 8.5 .0 1162- GRID 359 .5 8.5 .0 1163- GRID 360 1.0 8.5 .0 1164- GRID 361 1.5 8.5 .0 1165- GRID 362 2.0 8.5 .0 1166- GRID 363 2.5 8.5 .0 1167- GRID 364 3.0 8.5 .0 1168- GRID 365 3.5 8.5 .0 1169- GRID 366 4.0 8.5 .0 1170- GRID 367 4.5 8.5 .0 1171- GRID 368 5.0 8.5 .0 1172- GRID 369 5.5 8.5 .0 1173- GRID 370 6.0 8.5 .0 1174- GRID 371 6.5 8.5 .0 1175- GRID 372 7.0 8.5 .0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1176- GRID 373 7.5 8.5 .0 1177- GRID 374 8.0 8.5 .0 1178- GRID 375 8.5 8.5 .0 1179- GRID 376 9.0 8.5 .0 1180- GRID 377 9.5 8.5 .0 1181- GRID 378 10.0 8.5 .0 1182- GRID 379 .0 9.0 .0 1183- GRID 380 .5 9.0 .0 1184- GRID 381 1.0 9.0 .0 1185- GRID 382 1.5 9.0 .0 1186- GRID 383 2.0 9.0 .0 1187- GRID 384 2.5 9.0 .0 1188- GRID 385 3.0 9.0 .0 1189- GRID 386 3.5 9.0 .0 1190- GRID 387 4.0 9.0 .0 1191- GRID 388 4.5 9.0 .0 1192- GRID 389 5.0 9.0 .0 1193- GRID 390 5.5 9.0 .0 1194- GRID 391 6.0 9.0 .0 1195- GRID 392 6.5 9.0 .0 1196- GRID 393 7.0 9.0 .0 1197- GRID 394 7.5 9.0 .0 1198- GRID 395 8.0 9.0 .0 1199- GRID 396 8.5 9.0 .0 1200- GRID 397 9.0 9.0 .0 1201- GRID 398 9.5 9.0 .0 1202- GRID 399 10.0 9.0 .0 1203- GRID 400 .0 9.5 .0 1204- GRID 401 .5 9.5 .0 1205- GRID 402 1.0 9.5 .0 1206- GRID 403 1.5 9.5 .0 1207- GRID 404 2.0 9.5 .0 1208- GRID 405 2.5 9.5 .0 1209- GRID 406 3.0 9.5 .0 1210- GRID 407 3.5 9.5 .0 1211- GRID 408 4.0 9.5 .0 1212- GRID 409 4.5 9.5 .0 1213- GRID 410 5.0 9.5 .0 1214- GRID 411 5.5 9.5 .0 1215- GRID 412 6.0 9.5 .0 1216- GRID 413 6.5 9.5 .0 1217- GRID 414 7.0 9.5 .0 1218- GRID 415 7.5 9.5 .0 1219- GRID 416 8.0 9.5 .0 1220- GRID 417 8.5 9.5 .0 1221- GRID 418 9.0 9.5 .0 1222- GRID 419 9.5 9.5 .0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1223- GRID 420 10.0 9.5 .0 1224- GRID 421 .0 10.0 .0 1225- GRID 422 .5 10.0 .0 1226- GRID 423 1.0 10.0 .0 1227- GRID 424 1.5 10.0 .0 1228- GRID 425 2.0 10.0 .0 1229- GRID 426 2.5 10.0 .0 1230- GRID 427 3.0 10.0 .0 1231- GRID 428 3.5 10.0 .0 1232- GRID 429 4.0 10.0 .0 1233- GRID 430 4.5 10.0 .0 1234- GRID 431 5.0 10.0 .0 1235- GRID 432 5.5 10.0 .0 1236- GRID 433 6.0 10.0 .0 1237- GRID 434 6.5 10.0 .0 1238- GRID 435 7.0 10.0 .0 1239- GRID 436 7.5 10.0 .0 1240- GRID 437 8.0 10.0 .0 1241- GRID 438 8.5 10.0 .0 1242- GRID 439 9.0 10.0 .0 1243- GRID 440 9.5 10.0 .0 1244- GRID 441 10.0 10.0 .0 1245- MAT1 8 3.0+7 .300 1246- PQUAD1 23 8 .6666667 13.55715 1247- RLOAD1 8 37 1 1248- SPC1 37 4 1 2 3 4 5 6 +41001H 1249- +41001H 7 8 9 10 11 12 13 14 +41002H 1250- +41002H 15 16 17 18 19 20 21 1251- SPC1 37 5 1 22 43 64 85 106 +31001H 1252- +31001H 127 148 169 190 211 232 253 274 +31002H 1253- +31002H 295 316 337 358 379 400 421 1254- SPC1 37 34 21 42 63 84 105 126 +11001H 1255- +11001H 147 168 189 210 231 252 273 294 +11002H 1256- +11002H 315 336 357 378 399 420 441 1257- SPC1 37 35 421 422 423 424 425 426 +21001H 1258- +21001H 427 428 429 430 431 432 433 434 +21002H 1259- +21002H 435 436 437 438 439 440 441 1260- TABLED1 1 +T1 1261- +T1 .0 2.5 100.0 10.0 ENDT ENDDATA 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 23 PROFILE 9681 MAX WAVEFRONT 23 AVG WAVEFRONT 21.952 RMS WAVEFRONT 22.250 RMS BANDWIDTH 22.404 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 35 PROFILE 10110 MAX WAVEFRONT 33 AVG WAVEFRONT 22.925 RMS WAVEFRONT 23.639 RMS BANDWIDTH 24.188 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 23 23 PROFILE (P) 9681 9681 MAXIMUM WAVEFRONT (C-MAX) 23 23 AVERAGE WAVEFRONT (C-AVG) 21.952 21.952 RMS WAVEFRONT (C-RMS) 22.250 22.250 RMS BANDWITCH (B-RMS) 22.404 22.404 NUMBER OF GRID POINTS (N) 441 NUMBER OF ELEMENTS (NON-RIGID) 400 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 1640 MATRIX DENSITY, PERCENT 1.913 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK B2PP MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 1 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 3.295143E+01 3.295143E+01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 0.0 1.136489E+02 1.136489E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 0.0 2.209514E+02 2.209514E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 0.0 5.788203E+04 5.788203E+04 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 2.078062E+02 2.078062E+02 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 7 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 5.871988E+01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 2.025238E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 3.937383E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 1.031465E+05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 3.703134E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 13 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 3.873673E+01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 1.336023E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 2.597439E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 6.804441E+04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 2.442908E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 21 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.074419E+01 3.016930E-01 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 3.705651E+01 1.040534E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 7.204370E+01 2.022961E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.887309E+04 5.299496E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 6.775757E+01 1.902608E+00 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 169 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 5.331654E+01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 1.838878E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 3.575069E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 9.365509E+04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 3.362375E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 189 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.738446E+01 7.052916E-02 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 5.995869E+01 2.432538E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.165692E+02 4.729238E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 3.053730E+04 1.238905E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 1.096340E+02 4.447879E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 295 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 2.991928E+01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 1.031910E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 2.006197E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 5.255578E+04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 1.886841E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 315 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 9.755518E+00 1.069131E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 3.364661E+01 3.687414E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 6.541431E+01 7.168914E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.713641E+04 1.878021E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 6.152258E+01 6.742409E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 421 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.074419E+01 0.0 3.016930E-01 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 3.705651E+01 0.0 1.040534E+00 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 7.204370E+01 0.0 2.022961E+00 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 1.887309E+04 0.0 5.299496E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 6.775757E+01 0.0 1.902608E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 427 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.914628E+01 0.0 5.447495E-02 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 6.603519E+01 0.0 1.878831E-01 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.283828E+02 0.0 3.652744E-01 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 3.363209E+04 0.0 9.568993E+01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 1.207449E+02 0.0 3.435429E-01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 433 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.263055E+01 0.0 9.707507E-02 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 4.356254E+01 0.0 3.348102E-01 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 8.469245E+01 0.0 6.509238E-01 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 2.218665E+04 0.0 1.705207E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 7.965379E+01 0.0 6.121980E-01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 441 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.420475E+02 5.999569E-02 5.999569E-02 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 4.899194E+02 2.069241E-01 2.069241E-01 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 9.524806E+02 4.022930E-01 4.022930E-01 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 2.495187E+05 1.053876E+02 1.053876E+02 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 8.958141E+02 3.783592E-01 3.783592E-01 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.869791E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 6.448877E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.253763E-03 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 3.284450E-01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 1.179173E-03 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 7 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.665996E-04 0.0 1.333102E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 5.745991E-04 0.0 4.597844E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.117111E-03 0.0 8.938934E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 2.926466E-01 0.0 2.341708E-02 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 1.050650E-03 0.0 8.407125E-05 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 13 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.099036E-04 0.0 2.375605E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 3.790555E-04 0.0 8.193418E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 7.369437E-04 0.0 1.592930E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.930551E-01 0.0 4.172954E-02 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 6.931003E-04 0.0 1.498161E-04 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 21 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 2.936409E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 1.012762E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 1.968969E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 5.158055E-02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 1.851828E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 169 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.512693E-04 1.725978E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 5.217251E-04 5.952867E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.014316E-03 1.157331E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 2.657176E-01 3.031829E-02 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 9.539707E-04 1.088477E-04 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 189 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 2.375605E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 8.193418E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 1.592930E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 4.172954E-02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 1.498161E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 295 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.488676E-05 2.616359E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 2.927729E-04 9.023777E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 5.691967E-04 1.754364E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.491109E-01 4.595860E-02 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 5.353331E-04 1.649991E-04 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 315 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 1.333102E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 4.597844E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 8.938934E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 2.341708E-02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 8.407125E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 421 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 2.936409E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 1.012762E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 1.968969E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 5.158055E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 1.851828E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 427 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 2.616359E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 9.023777E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 1.754364E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 4.595860E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 1.649991E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 433 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 1.725978E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 5.952867E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 1.157331E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 3.031829E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 1.088477E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A 0 POINT-ID = 441 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = FREQUENCY RESPONSE OF A 20X20 PLATE DATE: 5/17/95 END TIME: 16: 1:45 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d08013a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D08013A,NASTRAN APP DISPLACEMENT SOL 8,1 DIAG 14 TIME 12 ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FREQUENCY RESPONSE OF A 10X10 PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 3 SPC = 10010 4 DLOAD = 8 5 FREQUENCY= 8 6 OUTPUT 7 SET 1 = 1,4,7,11 45,55, 78,88, 111,114,117,121 8 DISPLACEMENT(SORT2,PHASE) = 1 9 SPCFORCE(SORT2,PHASE) = 1 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 106, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- DAREA *37 1 3 2.5000000E-01 2- DAREA *37 2 3 4.9384417E-01 3- DAREA *37 3 3 4.7552826E-01 4- DAREA *37 4 3 4.4550326E-01 5- DAREA *37 5 3 4.0450850E-01 6- DAREA *37 6 3 3.5355339E-01 7- DAREA *37 7 3 2.9389263E-01 8- DAREA *37 8 3 2.2699525E-01 9- DAREA *37 9 3 1.5450850E-01 10- DAREA *37 10 3 7.8217242E-02 11- DAREA *37 12 3 4.9384417E-01 12- DAREA *37 13 3 9.7552826E-01 13- DAREA *37 14 3 9.3934743E-01 14- DAREA *37 15 3 8.8003676E-01 15- DAREA *37 16 3 7.9905665E-01 16- DAREA *37 17 3 6.9840112E-01 17- DAREA *37 18 3 5.8054864E-01 18- DAREA *37 19 3 4.4840113E-01 19- DAREA *37 20 3 3.0521249E-01 20- DAREA *37 21 3 1.5450851E-01 21- DAREA *37 23 3 4.7552826E-01 22- DAREA *37 24 3 9.3934743E-01 23- DAREA *37 25 3 9.0450849E-01 24- DAREA *37 26 3 8.4739757E-01 25- DAREA *37 27 3 7.6942088E-01 26- DAREA *37 28 3 6.7249851E-01 27- DAREA *37 29 3 5.5901700E-01 28- DAREA *37 30 3 4.3177063E-01 29- DAREA *37 31 3 2.9389264E-01 30- DAREA *37 32 3 1.4877803E-01 31- DAREA *37 34 3 4.4550326E-01 32- DAREA *37 35 3 8.8003676E-01 33- DAREA *37 36 3 8.4739757E-01 34- DAREA *37 37 3 7.9389263E-01 35- DAREA *37 38 3 7.2083942E-01 36- DAREA *37 39 3 6.3003676E-01 37- DAREA *37 40 3 5.2372050E-01 38- DAREA *37 41 3 4.0450851E-01 39- DAREA *37 42 3 2.7533617E-01 40- DAREA *37 43 3 1.3938414E-01 41- DAREA *37 45 3 4.0450850E-01 42- DAREA *37 46 3 7.9905665E-01 43- DAREA *37 47 3 7.6942088E-01 44- DAREA *37 48 3 7.2083942E-01 45- DAREA *37 49 3 6.5450849E-01 46- DAREA *37 50 3 5.7206140E-01 47- DAREA *37 51 3 4.7552826E-01 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- DAREA *37 52 3 3.6728603E-01 49- DAREA *37 53 3 2.5000001E-01 50- DAREA *37 54 3 1.2655815E-01 51- DAREA *37 56 3 3.5355339E-01 52- DAREA *37 57 3 6.9840112E-01 53- DAREA *37 58 3 6.7249851E-01 54- DAREA *37 59 3 6.3003676E-01 55- DAREA *37 60 3 5.7206140E-01 56- DAREA *37 61 3 5.0000000E-01 57- DAREA *37 62 3 4.1562694E-01 58- DAREA *37 63 3 3.2101976E-01 59- DAREA *37 64 3 2.1850802E-01 60- DAREA *37 65 3 1.1061588E-01 61- DAREA *37 67 3 2.9389263E-01 62- DAREA *37 68 3 5.8054864E-01 63- DAREA *37 69 3 5.5901700E-01 64- DAREA *37 70 3 5.2372050E-01 65- DAREA *37 71 3 4.7552826E-01 66- DAREA *37 72 3 4.1562694E-01 67- DAREA *37 73 3 3.4549151E-01 68- DAREA *37 74 3 2.6684893E-01 69- DAREA *37 75 3 1.8163564E-01 70- DAREA *37 76 3 9.1949883E-02 71- DAREA *37 78 3 2.2699525E-01 72- DAREA *37 79 3 4.4840113E-01 73- DAREA *37 80 3 4.3177063E-01 74- DAREA *37 81 3 4.0450851E-01 75- DAREA *37 82 3 3.6728603E-01 76- DAREA *37 83 3 3.2101976E-01 77- DAREA *37 84 3 2.6684893E-01 78- DAREA *37 85 3 2.0610738E-01 79- DAREA *37 86 3 1.4029079E-01 80- DAREA *37 87 3 7.1019771E-02 81- DAREA *37 89 3 1.5450850E-01 82- DAREA *37 90 3 3.0521249E-01 83- DAREA *37 91 3 2.9389264E-01 84- DAREA *37 92 3 2.7533617E-01 85- DAREA *37 93 3 2.5000001E-01 86- DAREA *37 94 3 2.1850802E-01 87- DAREA *37 95 3 1.8163564E-01 88- DAREA *37 96 3 1.4029079E-01 89- DAREA *37 97 3 9.5491510E-02 90- DAREA *37 98 3 4.8340916E-02 91- DAREA *37 100 3 7.8217242E-02 92- DAREA *37 101 3 1.5450851E-01 93- DAREA *37 102 3 1.4877803E-01 94- DAREA *37 103 3 1.3938414E-01 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- DAREA *37 104 3 1.2655815E-01 96- DAREA *37 105 3 1.1061588E-01 97- DAREA *37 106 3 9.1949883E-02 98- DAREA *37 107 3 7.1019771E-02 99- DAREA *37 108 3 4.8340916E-02 100- DAREA *37 109 3 2.4471748E-02 101- FREQ 8 .0 8.0 9.0 10.0 11.0 102- MAT1 8 3.0+7 .300 103- PQUAD1 101 8 .6666667 13.55715 104- RLOAD1 8 37 1 105- TABLED1 1 +T1 106- +T1 .0 10.0 100.0 40.0 ENDT ENDDATA 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $ 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ 1 INPUT, ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ 1 EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ 2 PRECHK ALL $ 3 FILE KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ 10 COND LBL5,NOGPDT $ 11 GP2 GEOM2,EQEXIN/ECT $ 12 PARAML PCDB//*PRES*////JUMPPLOT $ 13 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 14 COND P1,JUMPPLOT $ 15 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 16 PRTMSG PLTSETX// $ 17 PARAM //*MPY*/PLTFLG/1/1 $ 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PARAM //*MPY*/PFILE/0/0 $ 19 COND P1,JUMPPLOT $ 20 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 21 PRTMSG PLOTX1//$ 22 LABEL P1 $ 23 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 24 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 25 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 26 PURGE K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA, KGGX/NOSIMP $ 27 COND LBL1,NOSIMP $ 28 PARAM //*ADD*/NOKGGX/1/0 $ 29 PARAM //*ADD*/NOMGG/1/0 $ 30 PARAM //*ADD*/NOBGG=-1/1/0 $ 31 PARAM //*ADD*/NOK4GG/1/0 $ 32 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 33 PURGE KGGX/NOKGGX/MGG/NOMGG $ 34 COND LBLKGGX,NOKGGX $ 35 EMA GPECT,KDICT,KELM/KGGX $ 36 LABEL LBLKGGX $ 37 COND LBLMGG,NOMGG $ 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 38 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 39 PURGE MDICT,MELM/ALWAYS $ 40 LABEL LBLMGG $ 41 COND LBLBGG,NOBGG $ 42 EMA GPECT,BDICT,BELM/BGG $ 43 PURGE BDICT,BELM/ALWAYS $ 44 LABEL LBLBGG $ 45 COND LBLK4GG,NOK4GG $ 46 EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ 47 LABEL LBLK4GG $ 48 PURGE KDICT,KELM/ALWAYS $ 49 PURGE MNN,MFF,MAA/NOMGG $ 50 PURGE BNN,BFF,BAA/NOBGG $ 51 COND LBL1,GRDPNT $ 52 COND ERROR4,NOMGG $ 53 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 54 OFP OGPWG,,,,,//S,N,CARDNO $ 55 LABEL LBL1 $ 56 EQUIV KGGX,KGG/NOGENL $ 57 COND LBL11,NOGENL $ 58 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 59 LABEL LBL11 $ 60 GPSTGEN KGG,SIL/GPST $ 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 61 PARAM //*MPY*/NSKIP/0/0 $ 62 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 63 OFP OGPST,,,,,//S,N,CARDNO $ 64 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ 65 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ 66 COND LBL2,MPCF1 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 EQUIV MFF,MAA/OMIT $ 76 EQUIV BFF,BAA/OMIT $ 77 EQUIV K4FF,K4AA/OMIT $ 78 COND LBL5,OMIT $ 79 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 80 COND LBLM,NOMGG $ 81 SMP2 USET,GO,MFF/MAA $ 82 LABEL LBLM $ 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 83 COND LBLB,NOBGG $ 84 SMP2 USET,GO,BFF/BAA $ 85 LABEL LBLB $ 86 COND LBL5,NOK4GG $ 87 SMP2 USET,GO,K4FF/K4AA $ 88 LABEL LBL5 $ 89 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,, EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/S,N, NOFRL/NONLFT/NOTRL/NOEED//S,N,NOUE $ 90 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 91 PARAM //*ADD*/NEVER/1/0 $ 92 PARAM //*MPY*/REPEATF/-1/1 $ 93 BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ 94 PARAM //*AND*/NOFL/NOABFL/NOKBFL $ 95 PURGE KBFL/NOKBFL/ ABFL/NOABFL $ 96 COND LBL13,NOFL $ 97 MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ 98 LABEL LBL13 $ 99 PURGE OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ 100 CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ 101 MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ 102 PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 103 PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ 104 EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ 105 COND LBLFL2,NOFL $ 106 ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ 107 COND LBLFL2,NOABFL $ 108 TRNSP ABFL/ABFLT $ 109 ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ 110 LABEL LBLFL2 $ 111 PARAM //*AND*/BDEBA/NOUE/NOB2PP $ 112 PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ 113 PARAM //*AND*/MDEMA/NOUE/NOM2PP $ 114 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 115 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ MAA,MDD/MDEMA/BAA,BDD/BDEBA $ 116 COND LBL18,NOGPDT $ 117 GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ 118 LABEL LBL18 $ 119 EQUIV B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $ 120 COND ERROR1,NOFRL $ 121 COND ERROR2,NODLT $ 122 FRRD CASEXX,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,,DIT/UDVF,PSF,PDF,PPF/ *DISP*/*DIRECT*/LUSETD/MPCF1/SINGLE/OMIT/ 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NONCUP/FRQSET $ 123 EQUIV PPF,PDF/NOSET $ 124 VDR CASEXX,EQDYN,USETD,UDVF,PPF,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $ 125 COND LBL15,NOD $ 126 COND LBL15A,NOSORT2 $ 127 SDR3 OUDVC1,,,,,/OUDVC2,,,,, $ 128 OFP OUDVC2,,,,,//S,N,CARDNO $ 129 XYTRAN XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/ S,N,CARDNO $ 130 XYPLOT XYPLTFA// $ 131 JUMP LBL15 $ 132 LABEL LBL15A $ 133 OFP OUDVC1,,,,,//S,N,CARDNO $ 134 LABEL LBL15 $ 135 COND LBL20,NOP $ 136 EQUIV UDVF,UPVC/NOA $ 137 COND LBL19,NOA $ 138 SDR1 USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ 139 LABEL LBL19 $ 140 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ 141 COND LBL17,NOSORT2 $ 142 SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2, OEFC2, $ 143 OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $ 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 144 XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ 145 XYPLOT XYPLTF// $ 146 COND LBL16,NOPSDL $ 147 RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ 148 COND LBL16,NORD $ 149 XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ 150 XYPLOT XYPLTR// $ 151 JUMP LBL16 $ 152 LABEL LBL17 $ 153 PURGE PSDF/NOSORT2 $ 154 OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $ 155 LABEL LBL16 $ 156 PURGE PSDF/NOPSDL $ 157 COND LBL20,JUMPPLOT $ 158 PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1, GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ 159 PRTMSG PLOTX2// $ 160 LABEL LBL20 $ 164 JUMP FINIS $ 165 LABEL ERROR2 $ 166 PRTPARM //-2/*DIRFRRD* $ 167 LABEL ERROR1 $ 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 168 PRTPARM //-1/*DIRFRRD* $ 169 LABEL ERROR4 $ 170 PRTPARM //-4/*DIRFRRD* $ 171 LABEL FINIS $ 172 PURGE DUMMY/ALWAYS $ 173 END $ 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 * U T I L I T Y M O D U L E I N P U T * INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST) * 1 ** 2 ** 3 ** 4 ** 5 ** 6 ** 7 ** 8 ** 9 ** 10 * 10 10 1.0E+00 1.0E+00 126 0.0E+00 0.0E+00 4 5 35 34 0 0 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 1 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 6.603571E+01 6.603571E+01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 0.0 2.286568E+02 2.286568E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 0.0 4.470245E+02 4.470245E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 0.0 2.906904E+04 2.906904E+04 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 4.112285E+02 4.112285E+02 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 4 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 1.176765E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 4.074694E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 7.966035E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 5.180141E+04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 7.328146E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 7 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 7.762963E+01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 2.688022E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 5.255088E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 3.417271E+04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 4.834281E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 11 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 2.149553E+01 1.173293E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 7.443094E+01 4.062674E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.455126E+02 7.942535E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 9.462373E+03 5.164860E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 1.338605E+02 7.306528E+00 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 45 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 1.068480E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 3.699745E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 7.233008E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 4.703470E+04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 6.653818E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 55 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 3.478050E+01 5.615477E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 1.204318E+02 1.944428E+00 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 2.354444E+02 3.801361E+00 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.531044E+04 2.471943E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 2.165909E+02 3.496963E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 78 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 5.995917E+01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 2.076160E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 4.058897E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 2.639414E+04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 3.733877E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 88 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.951753E+01 8.512338E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 6.758187E+01 2.947502E+00 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.321227E+02 5.762372E+00 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 8.591655E+03 3.747147E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 1.215428E+02 5.300944E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 111 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 2.149553E+01 0.0 1.173293E+00 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 7.443094E+01 0.0 4.062674E+00 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 1.455126E+02 0.0 7.942535E+00 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 9.462373E+03 0.0 5.164860E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 1.338605E+02 0.0 7.306528E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 114 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 3.830532E+01 0.0 4.337253E-01 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 1.326369E+02 0.0 1.501827E+00 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 2.593054E+02 0.0 2.936075E+00 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.686207E+04 0.0 1.909267E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 2.385412E+02 0.0 2.700966E+00 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 117 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 2.526951E+01 0.0 7.729041E-01 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 8.749881E+01 0.0 2.676276E+00 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.710604E+02 0.0 5.232125E+00 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.112369E+04 0.0 3.402338E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 1.573625E+02 0.0 4.813157E+00 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 121 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.426342E+02 4.776810E-01 4.776810E-01 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 4.938884E+02 1.654029E+00 1.654029E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 9.655529E+02 3.233631E+00 3.233631E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 6.278782E+04 2.102761E+02 2.102761E+02 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 8.882352E+02 2.974694E+00 2.974694E+00 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.873926E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 6.488702E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.268542E-03 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 8.249059E-02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 1.166963E-03 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 4 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.669681E-04 0.0 1.335168E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 5.781475E-04 0.0 4.623182E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.130280E-03 0.0 9.038331E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 7.349966E-02 0.0 5.877432E-03 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 1.039771E-03 0.0 8.314577E-05 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 7 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.101466E-04 0.0 2.379286E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 3.813963E-04 0.0 8.238571E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 7.456306E-04 0.0 1.610642E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 4.848675E-02 0.0 1.047366E-02 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 6.859234E-04 0.0 1.481668E-04 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 2.940959E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 1.018343E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 1.990864E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 1.294616E-02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 1.831443E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 45 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.516038E-04 1.728652E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 5.249470E-04 5.985672E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.026272E-03 1.170200E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 6.673629E-02 7.609560E-03 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 9.440926E-04 1.076495E-04 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 55 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 2.379286E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 8.238571E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 1.610642E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 1.047366E-02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 1.481668E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 78 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.507448E-05 2.620414E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 2.945809E-04 9.073506E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 5.759062E-04 1.773872E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 3.744994E-02 1.153511E-02 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 5.297899E-04 1.631828E-04 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 88 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 1.335168E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 4.623182E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 9.038331E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 5.877432E-03 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 8.314577E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 111 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 2.940959E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 1.018343E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 1.990864E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 1.294616E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 1.831443E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 114 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 2.620414E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 9.073506E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 1.773872E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 1.153511E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 1.631828E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 117 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 1.728652E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 5.985672E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 1.170200E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 7.609560E-03 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 1.076495E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 10X10 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A 0 POINT-ID = 121 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = FREQUENCY RESPONSE OF A 10X10 PLATE DATE: 5/17/95 END TIME: 16: 3: 5 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d08014a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D08014A,NASTRAN APP DISPLACEMENT SOL 8,1 DIAG 14 TIME 30 ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FREQUENCY RESPONSE OF A 20X20 PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 3 SPC = 20020 4 DLOAD = 8 5 FREQUENCY= 8 6 OUTPUT 7 SET 1 = 1,7,13,21, 169,189, 295,315, 421,427,433,441 8 DISPLACEMENT(SORT2,PHASE) = 1 9 SPCFORCE(SORT2,PHASE) = 1 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 406, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- DAREA *37 1 3 2.5000000E-01 2- DAREA *37 2 3 4.9845867E-01 3- DAREA *37 3 3 4.9384417E-01 4- DAREA *37 4 3 4.8618496E-01 5- DAREA *37 5 3 4.7552826E-01 6- DAREA *37 6 3 4.6193977E-01 7- DAREA *37 7 3 4.4550326E-01 8- DAREA *37 8 3 4.2632008E-01 9- DAREA *37 9 3 4.0450850E-01 10- DAREA *37 10 3 3.8020299E-01 11- DAREA *37 11 3 3.5355339E-01 12- DAREA *37 12 3 3.2472403E-01 13- DAREA *37 13 3 2.9389263E-01 14- DAREA *37 14 3 2.6124929E-01 15- DAREA *37 15 3 2.2699525E-01 16- DAREA *37 16 3 1.9134172E-01 17- DAREA *37 17 3 1.5450850E-01 18- DAREA *37 18 3 1.1672269E-01 19- DAREA *37 19 3 7.8217242E-02 20- DAREA *37 20 3 3.9229557E-02 21- DAREA *37 22 3 4.9845867E-01 22- DAREA *37 23 3 9.9384417E-01 23- DAREA *37 24 3 9.8464362E-01 24- DAREA *37 25 3 9.6937243E-01 25- DAREA *37 26 3 9.4812473E-01 26- DAREA *37 27 3 9.2103152E-01 27- DAREA *37 28 3 8.8825985E-01 28- DAREA *37 29 3 8.5001176E-01 29- DAREA *37 30 3 8.0652306E-01 30- DAREA *37 31 3 7.5806189E-01 31- DAREA *37 32 3 7.0492700E-01 32- DAREA *37 33 3 6.4744603E-01 33- DAREA *37 34 3 5.8597331E-01 34- DAREA *37 35 3 5.2088789E-01 35- DAREA *37 36 3 4.5259101E-01 36- DAREA *37 37 3 3.8150376E-01 37- DAREA *37 38 3 3.0806441E-01 38- DAREA *37 39 3 2.3272575E-01 39- DAREA *37 40 3 1.5595225E-01 40- DAREA *37 41 3 7.8217250E-02 41- DAREA *37 43 3 4.9384417E-01 42- DAREA *37 44 3 9.8464362E-01 43- DAREA *37 45 3 9.7552826E-01 44- DAREA *37 46 3 9.6039844E-01 45- DAREA *37 47 3 9.3934743E-01 46- DAREA *37 48 3 9.1250504E-01 47- DAREA *37 49 3 8.8003676E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- DAREA *37 50 3 8.4214275E-01 49- DAREA *37 51 3 7.9905665E-01 50- DAREA *37 52 3 7.5104411E-01 51- DAREA *37 53 3 6.9840112E-01 52- DAREA *37 54 3 6.4145228E-01 53- DAREA *37 55 3 5.8054864E-01 54- DAREA *37 56 3 5.1606575E-01 55- DAREA *37 57 3 4.4840113E-01 56- DAREA *37 58 3 3.7797197E-01 57- DAREA *37 59 3 3.0521249E-01 58- DAREA *37 60 3 2.3057128E-01 59- DAREA *37 61 3 1.5450851E-01 60- DAREA *37 62 3 7.7493152E-02 61- DAREA *37 64 3 4.8618496E-01 62- DAREA *37 65 3 9.6937243E-01 63- DAREA *37 66 3 9.6039844E-01 64- DAREA *37 67 3 9.4550326E-01 65- DAREA *37 68 3 9.2477875E-01 66- DAREA *37 69 3 8.9835267E-01 67- DAREA *37 70 3 8.6638795E-01 68- DAREA *37 71 3 8.2908165E-01 69- DAREA *37 72 3 7.8666379E-01 70- DAREA *37 73 3 7.3939589E-01 71- DAREA *37 74 3 6.8756936E-01 72- DAREA *37 75 3 6.3150375E-01 73- DAREA *37 76 3 5.7154471E-01 74- DAREA *37 77 3 5.0806190E-01 75- DAREA *37 78 3 4.4144671E-01 76- DAREA *37 79 3 3.7210987E-01 77- DAREA *37 80 3 3.0047884E-01 78- DAREA *37 81 3 2.2699527E-01 79- DAREA *37 82 3 1.5211219E-01 80- DAREA *37 83 3 7.6291282E-02 81- DAREA *37 85 3 4.7552826E-01 82- DAREA *37 86 3 9.4812473E-01 83- DAREA *37 87 3 9.3934743E-01 84- DAREA *37 88 3 9.2477875E-01 85- DAREA *37 89 3 9.0450849E-01 86- DAREA *37 90 3 8.7866165E-01 87- DAREA *37 91 3 8.4739757E-01 88- DAREA *37 92 3 8.1090898E-01 89- DAREA *37 93 3 7.6942088E-01 90- DAREA *37 94 3 7.2318906E-01 91- DAREA *37 95 3 6.7249851E-01 92- DAREA *37 96 3 6.1766180E-01 93- DAREA *37 97 3 5.5901700E-01 94- DAREA *37 98 3 4.9692567E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- DAREA *37 99 3 4.3177063E-01 96- DAREA *37 100 3 3.6395358E-01 97- DAREA *37 101 3 2.9389264E-01 98- DAREA *37 102 3 2.2201975E-01 99- DAREA *37 103 3 1.4877803E-01 100- DAREA *37 104 3 7.4619051E-02 101- DAREA *37 106 3 4.6193977E-01 102- DAREA *37 107 3 9.2103152E-01 103- DAREA *37 108 3 9.1250504E-01 104- DAREA *37 109 3 8.9835267E-01 105- DAREA *37 110 3 8.7866165E-01 106- DAREA *37 111 3 8.5355339E-01 107- DAREA *37 112 3 8.2318269E-01 108- DAREA *37 113 3 7.8773680E-01 109- DAREA *37 114 3 7.4743424E-01 110- DAREA *37 115 3 7.0252351E-01 111- DAREA *37 116 3 6.5328148E-01 112- DAREA *37 117 3 6.0001177E-01 113- DAREA *37 118 3 5.4304276E-01 114- DAREA *37 119 3 4.8272574E-01 115- DAREA *37 120 3 4.1943254E-01 116- DAREA *37 121 3 3.5355340E-01 117- DAREA *37 122 3 2.8549449E-01 118- DAREA *37 123 3 2.1567541E-01 119- DAREA *37 124 3 1.4452662E-01 120- DAREA *37 125 3 7.2486769E-02 121- DAREA *37 127 3 4.4550326E-01 122- DAREA *37 128 3 8.8825985E-01 123- DAREA *37 129 3 8.8003676E-01 124- DAREA *37 130 3 8.6638795E-01 125- DAREA *37 131 3 8.4739757E-01 126- DAREA *37 132 3 8.2318269E-01 127- DAREA *37 133 3 7.9389263E-01 128- DAREA *37 134 3 7.5970795E-01 129- DAREA *37 135 3 7.2083942E-01 130- DAREA *37 136 3 6.7752668E-01 131- DAREA *37 137 3 6.3003676E-01 132- DAREA *37 138 3 5.7866246E-01 133- DAREA *37 139 3 5.2372050E-01 134- DAREA *37 140 3 4.6554964E-01 135- DAREA *37 141 3 4.0450851E-01 136- DAREA *37 142 3 3.4097344E-01 137- DAREA *37 143 3 2.7533617E-01 138- DAREA *37 144 3 2.0800136E-01 139- DAREA *37 145 3 1.3938414E-01 140- DAREA *37 146 3 6.9907582E-02 141- DAREA *37 148 3 4.2632008E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- DAREA *37 149 3 8.5001176E-01 143- DAREA *37 150 3 8.4214275E-01 144- DAREA *37 151 3 8.2908165E-01 145- DAREA *37 152 3 8.1090898E-01 146- DAREA *37 153 3 7.8773680E-01 147- DAREA *37 154 3 7.5970795E-01 148- DAREA *37 155 3 7.2699525E-01 149- DAREA *37 156 3 6.8980038E-01 150- DAREA *37 157 3 6.4835268E-01 151- DAREA *37 158 3 6.0290764E-01 152- DAREA *37 159 3 5.5374550E-01 153- DAREA *37 160 3 5.0116932E-01 154- DAREA *37 161 3 4.4550327E-01 155- DAREA *37 162 3 3.8709054E-01 156- DAREA *37 163 3 3.2629127E-01 157- DAREA *37 164 3 2.6348031E-01 158- DAREA *37 165 3 1.9904491E-01 159- DAREA *37 166 3 1.3338232E-01 160- DAREA *37 167 3 6.6897391E-02 161- DAREA *37 169 3 4.0450850E-01 162- DAREA *37 170 3 8.0652306E-01 163- DAREA *37 171 3 7.9905665E-01 164- DAREA *37 172 3 7.8666379E-01 165- DAREA *37 173 3 7.6942088E-01 166- DAREA *37 174 3 7.4743424E-01 167- DAREA *37 175 3 7.2083942E-01 168- DAREA *37 176 3 6.8980038E-01 169- DAREA *37 177 3 6.5450849E-01 170- DAREA *37 178 3 6.1518135E-01 171- DAREA *37 179 3 5.7206140E-01 172- DAREA *37 180 3 5.2541451E-01 173- DAREA *37 181 3 4.7552826E-01 174- DAREA *37 182 3 4.2271023E-01 175- DAREA *37 183 3 3.6728603E-01 176- DAREA *37 184 3 3.0959741E-01 177- DAREA *37 185 3 2.5000001E-01 178- DAREA *37 186 3 1.8886128E-01 179- DAREA *37 187 3 1.2655815E-01 180- DAREA *37 188 3 6.3474756E-02 181- DAREA *37 190 3 3.8020299E-01 182- DAREA *37 191 3 7.5806189E-01 183- DAREA *37 192 3 7.5104411E-01 184- DAREA *37 193 3 7.3939589E-01 185- DAREA *37 194 3 7.2318906E-01 186- DAREA *37 195 3 7.0252351E-01 187- DAREA *37 196 3 6.7752668E-01 188- DAREA *37 197 3 6.4835268E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- DAREA *37 198 3 6.1518135E-01 190- DAREA *37 199 3 5.7821724E-01 191- DAREA *37 200 3 5.3768822E-01 192- DAREA *37 201 3 4.9384418E-01 193- DAREA *37 202 3 4.4695542E-01 194- DAREA *37 203 3 3.9731104E-01 195- DAREA *37 204 3 3.4521709E-01 196- DAREA *37 205 3 2.9099477E-01 197- DAREA *37 206 3 2.3497838E-01 198- DAREA *37 207 3 1.7751326E-01 199- DAREA *37 208 3 1.1895372E-01 200- DAREA *37 209 3 5.9660778E-02 201- DAREA *37 211 3 3.5355339E-01 202- DAREA *37 212 3 7.0492700E-01 203- DAREA *37 213 3 6.9840112E-01 204- DAREA *37 214 3 6.8756936E-01 205- DAREA *37 215 3 6.7249851E-01 206- DAREA *37 216 3 6.5328148E-01 207- DAREA *37 217 3 6.3003676E-01 208- DAREA *37 218 3 6.0290764E-01 209- DAREA *37 219 3 5.7206140E-01 210- DAREA *37 220 3 5.3768822E-01 211- DAREA *37 221 3 5.0000000E-01 212- DAREA *37 222 3 4.5922913E-01 213- DAREA *37 223 3 4.1562694E-01 214- DAREA *37 224 3 3.6946229E-01 215- DAREA *37 225 3 3.2101976E-01 216- DAREA *37 226 3 2.7059806E-01 217- DAREA *37 227 3 2.1850802E-01 218- DAREA *37 228 3 1.6507082E-01 219- DAREA *37 229 3 1.1061588E-01 220- DAREA *37 230 3 5.5478971E-02 221- DAREA *37 232 3 3.2472403E-01 222- DAREA *37 233 3 6.4744603E-01 223- DAREA *37 234 3 6.4145228E-01 224- DAREA *37 235 3 6.3150375E-01 225- DAREA *37 236 3 6.1766180E-01 226- DAREA *37 237 3 6.0001177E-01 227- DAREA *37 238 3 5.7866246E-01 228- DAREA *37 239 3 5.5374550E-01 229- DAREA *37 240 3 5.2541451E-01 230- DAREA *37 241 3 4.9384418E-01 231- DAREA *37 242 3 4.5922913E-01 232- DAREA *37 243 3 4.2178278E-01 233- DAREA *37 244 3 3.8173600E-01 234- DAREA *37 245 3 3.3933569E-01 235- DAREA *37 246 3 2.9484325E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- DAREA *37 247 3 2.4853302E-01 237- DAREA *37 248 3 2.0069049E-01 238- DAREA *37 249 3 1.5161065E-01 239- DAREA *37 250 3 1.0159607E-01 240- DAREA *37 251 3 5.0955119E-02 241- DAREA *37 253 3 2.9389263E-01 242- DAREA *37 254 3 5.8597331E-01 243- DAREA *37 255 3 5.8054864E-01 244- DAREA *37 256 3 5.7154471E-01 245- DAREA *37 257 3 5.5901700E-01 246- DAREA *37 258 3 5.4304276E-01 247- DAREA *37 259 3 5.2372050E-01 248- DAREA *37 260 3 5.0116932E-01 249- DAREA *37 261 3 4.7552826E-01 250- DAREA *37 262 3 4.4695542E-01 251- DAREA *37 263 3 4.1562694E-01 252- DAREA *37 264 3 3.8173600E-01 253- DAREA *37 265 3 3.4549151E-01 254- DAREA *37 266 3 3.0711696E-01 255- DAREA *37 267 3 2.6684893E-01 256- DAREA *37 268 3 2.2493569E-01 257- DAREA *37 269 3 1.8163564E-01 258- DAREA *37 270 3 1.3721576E-01 259- DAREA *37 271 3 9.1949883E-02 260- DAREA *37 272 3 4.6117110E-02 261- DAREA *37 274 3 2.6124929E-01 262- DAREA *37 275 3 5.2088789E-01 263- DAREA *37 276 3 5.1606575E-01 264- DAREA *37 277 3 5.0806190E-01 265- DAREA *37 278 3 4.9692567E-01 266- DAREA *37 279 3 4.8272574E-01 267- DAREA *37 280 3 4.6554964E-01 268- DAREA *37 281 3 4.4550327E-01 269- DAREA *37 282 3 4.2271023E-01 270- DAREA *37 283 3 3.9731104E-01 271- DAREA *37 284 3 3.6946229E-01 272- DAREA *37 285 3 3.3933569E-01 273- DAREA *37 286 3 3.0711696E-01 274- DAREA *37 287 3 2.7300476E-01 275- DAREA *37 288 3 2.3720939E-01 276- DAREA *37 289 3 1.9995156E-01 277- DAREA *37 290 3 1.6146095E-01 278- DAREA *37 291 3 1.2197488E-01 279- DAREA *37 292 3 8.1736795E-02 280- DAREA *37 293 3 4.0994775E-02 281- DAREA *37 295 3 2.2699525E-01 282- DAREA *37 296 3 4.5259101E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- DAREA *37 297 3 4.4840113E-01 284- DAREA *37 298 3 4.4144671E-01 285- DAREA *37 299 3 4.3177063E-01 286- DAREA *37 300 3 4.1943254E-01 287- DAREA *37 301 3 4.0450851E-01 288- DAREA *37 302 3 3.8709054E-01 289- DAREA *37 303 3 3.6728603E-01 290- DAREA *37 304 3 3.4521709E-01 291- DAREA *37 305 3 3.2101976E-01 292- DAREA *37 306 3 2.9484325E-01 293- DAREA *37 307 3 2.6684893E-01 294- DAREA *37 308 3 2.3720939E-01 295- DAREA *37 309 3 2.0610738E-01 296- DAREA *37 310 3 1.7373465E-01 297- DAREA *37 311 3 1.4029079E-01 298- DAREA *37 312 3 1.0598199E-01 299- DAREA *37 313 3 7.1019771E-02 300- DAREA *37 314 3 3.5619693E-02 301- DAREA *37 316 3 1.9134172E-01 302- DAREA *37 317 3 3.8150376E-01 303- DAREA *37 318 3 3.7797197E-01 304- DAREA *37 319 3 3.7210987E-01 305- DAREA *37 320 3 3.6395358E-01 306- DAREA *37 321 3 3.5355340E-01 307- DAREA *37 322 3 3.4097344E-01 308- DAREA *37 323 3 3.2629127E-01 309- DAREA *37 324 3 3.0959741E-01 310- DAREA *37 325 3 2.9099477E-01 311- DAREA *37 326 3 2.7059806E-01 312- DAREA *37 327 3 2.4853302E-01 313- DAREA *37 328 3 2.2493569E-01 314- DAREA *37 329 3 1.9995156E-01 315- DAREA *37 330 3 1.7373465E-01 316- DAREA *37 331 3 1.4644662E-01 317- DAREA *37 332 3 1.1825569E-01 318- DAREA *37 333 3 8.9335684E-02 319- DAREA *37 334 3 5.9864887E-02 320- DAREA *37 335 3 3.0025004E-02 321- DAREA *37 337 3 1.5450850E-01 322- DAREA *37 338 3 3.0806441E-01 323- DAREA *37 339 3 3.0521249E-01 324- DAREA *37 340 3 3.0047884E-01 325- DAREA *37 341 3 2.9389264E-01 326- DAREA *37 342 3 2.8549449E-01 327- DAREA *37 343 3 2.7533617E-01 328- DAREA *37 344 3 2.6348031E-01 329- DAREA *37 345 3 2.5000001E-01 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- DAREA *37 346 3 2.3497838E-01 331- DAREA *37 347 3 2.1850802E-01 332- DAREA *37 348 3 2.0069049E-01 333- DAREA *37 349 3 1.8163564E-01 334- DAREA *37 350 3 1.6146095E-01 335- DAREA *37 351 3 1.4029079E-01 336- DAREA *37 352 3 1.1825569E-01 337- DAREA *37 353 3 9.5491510E-02 338- DAREA *37 354 3 7.2138594E-02 339- DAREA *37 355 3 4.8340916E-02 340- DAREA *37 356 3 2.4245200E-02 341- DAREA *37 358 3 1.1672269E-01 342- DAREA *37 359 3 2.3272575E-01 343- DAREA *37 360 3 2.3057128E-01 344- DAREA *37 361 3 2.2699527E-01 345- DAREA *37 362 3 2.2201975E-01 346- DAREA *37 363 3 2.1567541E-01 347- DAREA *37 364 3 2.0800136E-01 348- DAREA *37 365 3 1.9904491E-01 349- DAREA *37 366 3 1.8886128E-01 350- DAREA *37 367 3 1.7751326E-01 351- DAREA *37 368 3 1.6507082E-01 352- DAREA *37 369 3 1.5161065E-01 353- DAREA *37 370 3 1.3721576E-01 354- DAREA *37 371 3 1.2197488E-01 355- DAREA *37 372 3 1.0598199E-01 356- DAREA *37 373 3 8.9335684E-02 357- DAREA *37 374 3 7.2138594E-02 358- DAREA *37 375 3 5.4496748E-02 359- DAREA *37 376 3 3.6518908E-02 360- DAREA *37 377 3 1.8315918E-02 361- DAREA *37 379 3 7.8217242E-02 362- DAREA *37 380 3 1.5595225E-01 363- DAREA *37 381 3 1.5450851E-01 364- DAREA *37 382 3 1.5211219E-01 365- DAREA *37 383 3 1.4877803E-01 366- DAREA *37 384 3 1.4452662E-01 367- DAREA *37 385 3 1.3938414E-01 368- DAREA *37 386 3 1.3338232E-01 369- DAREA *37 387 3 1.2655815E-01 370- DAREA *37 388 3 1.1895372E-01 371- DAREA *37 389 3 1.1061588E-01 372- DAREA *37 390 3 1.0159607E-01 373- DAREA *37 391 3 9.1949883E-02 374- DAREA *37 392 3 8.1736795E-02 375- DAREA *37 393 3 7.1019771E-02 376- DAREA *37 394 3 5.9864887E-02 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- DAREA *37 395 3 4.8340916E-02 378- DAREA *37 396 3 3.6518908E-02 379- DAREA *37 397 3 2.4471748E-02 380- DAREA *37 398 3 1.2273711E-02 381- DAREA *37 400 3 3.9229557E-02 382- DAREA *37 401 3 7.8217250E-02 383- DAREA *37 402 3 7.7493152E-02 384- DAREA *37 403 3 7.6291282E-02 385- DAREA *37 404 3 7.4619051E-02 386- DAREA *37 405 3 7.2486769E-02 387- DAREA *37 406 3 6.9907582E-02 388- DAREA *37 407 3 6.6897391E-02 389- DAREA *37 408 3 6.3474756E-02 390- DAREA *37 409 3 5.9660778E-02 391- DAREA *37 410 3 5.5478971E-02 392- DAREA *37 411 3 5.0955119E-02 393- DAREA *37 412 3 4.6117110E-02 394- DAREA *37 413 3 4.0994775E-02 395- DAREA *37 414 3 3.5619693E-02 396- DAREA *37 415 3 3.0025004E-02 397- DAREA *37 416 3 2.4245200E-02 398- DAREA *37 417 3 1.8315918E-02 399- DAREA *37 418 3 1.2273711E-02 400- DAREA *37 419 3 6.1558325E-03 401- FREQ 8 .0 8.0 9.0 10.0 11.0 402- MAT1 8 3.0+7 .300 403- PQUAD1 101 8 .6666667 13.55715 404- RLOAD1 8 37 1 405- TABLED1 1 +T1 406- +T1 .0 2.5 100.0 10.0 ENDT ENDDATA 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $ 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ 1 INPUT, ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ 1 EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ 2 PRECHK ALL $ 3 FILE KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ 10 COND LBL5,NOGPDT $ 11 GP2 GEOM2,EQEXIN/ECT $ 12 PARAML PCDB//*PRES*////JUMPPLOT $ 13 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 14 COND P1,JUMPPLOT $ 15 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 16 PRTMSG PLTSETX// $ 17 PARAM //*MPY*/PLTFLG/1/1 $ 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PARAM //*MPY*/PFILE/0/0 $ 19 COND P1,JUMPPLOT $ 20 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 21 PRTMSG PLOTX1//$ 22 LABEL P1 $ 23 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 24 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 25 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 26 PURGE K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA, KGGX/NOSIMP $ 27 COND LBL1,NOSIMP $ 28 PARAM //*ADD*/NOKGGX/1/0 $ 29 PARAM //*ADD*/NOMGG/1/0 $ 30 PARAM //*ADD*/NOBGG=-1/1/0 $ 31 PARAM //*ADD*/NOK4GG/1/0 $ 32 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 33 PURGE KGGX/NOKGGX/MGG/NOMGG $ 34 COND LBLKGGX,NOKGGX $ 35 EMA GPECT,KDICT,KELM/KGGX $ 36 LABEL LBLKGGX $ 37 COND LBLMGG,NOMGG $ 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 38 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 39 PURGE MDICT,MELM/ALWAYS $ 40 LABEL LBLMGG $ 41 COND LBLBGG,NOBGG $ 42 EMA GPECT,BDICT,BELM/BGG $ 43 PURGE BDICT,BELM/ALWAYS $ 44 LABEL LBLBGG $ 45 COND LBLK4GG,NOK4GG $ 46 EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ 47 LABEL LBLK4GG $ 48 PURGE KDICT,KELM/ALWAYS $ 49 PURGE MNN,MFF,MAA/NOMGG $ 50 PURGE BNN,BFF,BAA/NOBGG $ 51 COND LBL1,GRDPNT $ 52 COND ERROR4,NOMGG $ 53 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 54 OFP OGPWG,,,,,//S,N,CARDNO $ 55 LABEL LBL1 $ 56 EQUIV KGGX,KGG/NOGENL $ 57 COND LBL11,NOGENL $ 58 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 59 LABEL LBL11 $ 60 GPSTGEN KGG,SIL/GPST $ 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 61 PARAM //*MPY*/NSKIP/0/0 $ 62 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 63 OFP OGPST,,,,,//S,N,CARDNO $ 64 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ 65 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ 66 COND LBL2,MPCF1 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 EQUIV MFF,MAA/OMIT $ 76 EQUIV BFF,BAA/OMIT $ 77 EQUIV K4FF,K4AA/OMIT $ 78 COND LBL5,OMIT $ 79 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 80 COND LBLM,NOMGG $ 81 SMP2 USET,GO,MFF/MAA $ 82 LABEL LBLM $ 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 83 COND LBLB,NOBGG $ 84 SMP2 USET,GO,BFF/BAA $ 85 LABEL LBLB $ 86 COND LBL5,NOK4GG $ 87 SMP2 USET,GO,K4FF/K4AA $ 88 LABEL LBL5 $ 89 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,, EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/S,N, NOFRL/NONLFT/NOTRL/NOEED//S,N,NOUE $ 90 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 91 PARAM //*ADD*/NEVER/1/0 $ 92 PARAM //*MPY*/REPEATF/-1/1 $ 93 BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ 94 PARAM //*AND*/NOFL/NOABFL/NOKBFL $ 95 PURGE KBFL/NOKBFL/ ABFL/NOABFL $ 96 COND LBL13,NOFL $ 97 MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ 98 LABEL LBL13 $ 99 PURGE OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ 100 CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ 101 MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ 102 PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 103 PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ 104 EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ 105 COND LBLFL2,NOFL $ 106 ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ 107 COND LBLFL2,NOABFL $ 108 TRNSP ABFL/ABFLT $ 109 ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ 110 LABEL LBLFL2 $ 111 PARAM //*AND*/BDEBA/NOUE/NOB2PP $ 112 PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ 113 PARAM //*AND*/MDEMA/NOUE/NOM2PP $ 114 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 115 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ MAA,MDD/MDEMA/BAA,BDD/BDEBA $ 116 COND LBL18,NOGPDT $ 117 GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ 118 LABEL LBL18 $ 119 EQUIV B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $ 120 COND ERROR1,NOFRL $ 121 COND ERROR2,NODLT $ 122 FRRD CASEXX,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,,DIT/UDVF,PSF,PDF,PPF/ *DISP*/*DIRECT*/LUSETD/MPCF1/SINGLE/OMIT/ 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NONCUP/FRQSET $ 123 EQUIV PPF,PDF/NOSET $ 124 VDR CASEXX,EQDYN,USETD,UDVF,PPF,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $ 125 COND LBL15,NOD $ 126 COND LBL15A,NOSORT2 $ 127 SDR3 OUDVC1,,,,,/OUDVC2,,,,, $ 128 OFP OUDVC2,,,,,//S,N,CARDNO $ 129 XYTRAN XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/ S,N,CARDNO $ 130 XYPLOT XYPLTFA// $ 131 JUMP LBL15 $ 132 LABEL LBL15A $ 133 OFP OUDVC1,,,,,//S,N,CARDNO $ 134 LABEL LBL15 $ 135 COND LBL20,NOP $ 136 EQUIV UDVF,UPVC/NOA $ 137 COND LBL19,NOA $ 138 SDR1 USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ 139 LABEL LBL19 $ 140 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ 141 COND LBL17,NOSORT2 $ 142 SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2, OEFC2, $ 143 OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $ 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 144 XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ 145 XYPLOT XYPLTF// $ 146 COND LBL16,NOPSDL $ 147 RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ 148 COND LBL16,NORD $ 149 XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ 150 XYPLOT XYPLTR// $ 151 JUMP LBL16 $ 152 LABEL LBL17 $ 153 PURGE PSDF/NOSORT2 $ 154 OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $ 155 LABEL LBL16 $ 156 PURGE PSDF/NOPSDL $ 157 COND LBL20,JUMPPLOT $ 158 PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1, GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ 159 PRTMSG PLOTX2// $ 160 LABEL LBL20 $ 164 JUMP FINIS $ 165 LABEL ERROR2 $ 166 PRTPARM //-2/*DIRFRRD* $ 167 LABEL ERROR1 $ 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 168 PRTPARM //-1/*DIRFRRD* $ 169 LABEL ERROR4 $ 170 PRTPARM //-4/*DIRFRRD* $ 171 LABEL FINIS $ 172 PURGE DUMMY/ALWAYS $ 173 END $ 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 * U T I L I T Y M O D U L E I N P U T * INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST) * 1 ** 2 ** 3 ** 4 ** 5 ** 6 ** 7 ** 8 ** 9 ** 10 * 20 20 5.0E-01 5.0E-01 126 0.0E+00 0.0E+00 4 5 35 34 0 0 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 1 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 3.295143E+01 3.295143E+01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 0.0 1.136489E+02 1.136489E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 0.0 2.209514E+02 2.209514E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 0.0 5.788203E+04 5.788203E+04 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 2.078062E+02 2.078062E+02 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 7 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 5.871988E+01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 2.025238E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 3.937383E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 1.031465E+05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 3.703134E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 13 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 3.873673E+01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 1.336023E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 2.597439E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 6.804441E+04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 2.442908E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 21 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.074419E+01 3.016930E-01 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 3.705651E+01 1.040534E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 7.204370E+01 2.022961E+00 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.887309E+04 5.299496E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.100000E+01 G 0.0 0.0 6.775757E+01 1.902608E+00 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 169 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 5.331654E+01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 1.838878E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 3.575069E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 9.365509E+04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 3.362375E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 189 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.738446E+01 7.052916E-02 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 5.995869E+01 2.432538E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.165692E+02 4.729238E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 3.053730E+04 1.238905E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 1.096340E+02 4.447879E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 295 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 2.991928E+01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 1.031910E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 2.006197E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 5.255578E+04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 1.886841E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 315 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 9.755518E+00 1.069131E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 3.364661E+01 3.687414E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 6.541431E+01 7.168914E-01 0.0 0.0 0.0 0.0 180.0000 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.713641E+04 1.878021E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 6.152258E+01 6.742409E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 421 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.074419E+01 0.0 3.016930E-01 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 8.000000E+00 G 0.0 0.0 3.705651E+01 0.0 1.040534E+00 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 9.000000E+00 G 0.0 0.0 7.204370E+01 0.0 2.022961E+00 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.000000E+01 G 0.0 0.0 1.887309E+04 0.0 5.299496E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 6.775757E+01 0.0 1.902608E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 427 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.914628E+01 0.0 5.447495E-02 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 6.603519E+01 0.0 1.878831E-01 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.283828E+02 0.0 3.652744E-01 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 3.363209E+04 0.0 9.568993E+01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 1.207449E+02 0.0 3.435429E-01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 433 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.263055E+01 0.0 9.707507E-02 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 4.356254E+01 0.0 3.348102E-01 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 8.469245E+01 0.0 6.509238E-01 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 2.218665E+04 0.0 1.705207E+02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 7.965379E+01 0.0 6.121980E-01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 441 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.420475E+02 5.999569E-02 5.999569E-02 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 4.899194E+02 2.069241E-01 2.069241E-01 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 9.524806E+02 4.022930E-01 4.022930E-01 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 2.495187E+05 1.053876E+02 1.053876E+02 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 8.958141E+02 3.783592E-01 3.783592E-01 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.869791E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 6.448877E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.253763E-03 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 3.284450E-01 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 1.179173E-03 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 7 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.665996E-04 0.0 1.333102E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 5.745991E-04 0.0 4.597844E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.117111E-03 0.0 8.938934E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 2.926466E-01 0.0 2.341708E-02 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 1.050650E-03 0.0 8.407125E-05 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 13 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.099036E-04 0.0 2.375605E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 3.790555E-04 0.0 8.193418E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 7.369437E-04 0.0 1.592930E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.930551E-01 0.0 4.172954E-02 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 6.931003E-04 0.0 1.498161E-04 0.0 0.0 0.0 180.0000 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 21 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 2.936409E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 1.012762E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 1.968969E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 5.158055E-02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 1.851828E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 169 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.512693E-04 1.725978E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 5.217251E-04 5.952867E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.014316E-03 1.157331E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 2.657176E-01 3.031829E-02 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 9.539707E-04 1.088477E-04 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 189 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 2.375605E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 8.193418E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 1.592930E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 4.172954E-02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 1.498161E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 295 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.488676E-05 2.616359E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 2.927729E-04 9.023777E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 5.691967E-04 1.754364E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.491109E-01 4.595860E-02 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 5.353331E-04 1.649991E-04 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 315 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 1.333102E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 4.597844E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 8.938934E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 2.341708E-02 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 8.407125E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 421 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 2.936409E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 1.012762E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 1.968969E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 5.158055E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 1.851828E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 427 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 2.616359E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 9.023777E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 1.754364E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 4.595860E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 1.649991E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 433 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 1.725978E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 5.952867E-05 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 1.157331E-04 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 3.031829E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 1.088477E-04 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 FREQUENCY RESPONSE OF A 20X20 PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A 0 POINT-ID = 441 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.100000E+01 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = FREQUENCY RESPONSE OF A 20X20 PLATE DATE: 5/17/95 END TIME: 16: 5: 7 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d09011a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D09011A,NASTRAN APP DISPLACEMENT SOL 9,1 TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 3 TSTEP = 32 4 IC = 32 5 DLOAD = 32 6 K2PP = KCOMP 7 M2PP = MCOMP 8 B2PP = BCOMP 9 OUTPUT 10 SVELO = ALL 11 DISP(SORT2)=ALL 12 OLOAD(SORT2)=ALL 13 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 14 OUTPUT(XYOUT) 15 PLOTTER = NASTPLT 16 CAMERA = 3 17 SKIP BETWEEN FRAMES = 1 18 TCURVE = * * * * EPOINT DISPLACEMENT(INCHES) * * * * * * * 19 XTITLE = TIME (SECONDS) 20 $ 21 YVALUE PRINT SKIP = 1 22 XDIVISIONS = 25 23 XVALUE PRINT SKIP = 1 24 $ * * * * * * * * * * * * * * * FULL FRAME PLOTS * * * * * * * * * * * 25 YGRID LINES = YES 26 XGRID LINES = YES 27 YDIVISIONS = 22 28 $ 29 YTITLE = EPOINT 10 DISPLACEMENT *INCH* 30 XYPLOT DISP / 10(T1) 31 $ 32 YDIVISIONS = 20 33 YTITLE = EPOINT 11 DISPLACEMENT *INCH* 34 XYPLOT DISP / 11(T1) 35 $ 36 YTITLE = EPOINT 12 DISPLACEMENT *INCH* 37 XYPLOT DISP / 12(T1) 38 $ 39 YTITLE = EPOINT 13 DISPLACEMENT *INCH* 40 XYPLOT DISP / 13(T1) 41 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 36, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- DAREA 1 10 -1.5 11 -1.0 2- DAREA 1 12 -13.5 13 36.0 3- DELAY 1 10 1.0 11 1.0 4- DELAY 1 12 1.0 13 1.0 5- DMIG BCOMP 0 1 1 2 6- DMIG BCOMP 11 0 10 0 -15.0 +BC1 7- +BC1 11 0 30.0 12 0 -15.0 8- DMIG BCOMP 12 0 11 0 -24.0 +BC2 9- +BC2 12 0 48.0 13 0 -24.0 10- DMIG BCOMP 13 0 12 0 -2.0 +BC3 11- +BC3 13 0 4.0 12- DMIG KCOMP 0 1 1 2 13- DMIG KCOMP 10 0 10 0 2000. +KC1 14- +KC1 11 0 -1000. 15- DMIG KCOMP 12 0 11 0 -100.0 +KC2 16- +KC2 12 0 200.0 13 0 -100.0 17- DMIG KCOMP 13 0 12 0 -20.0 +KC3 18- +KC3 13 0 40.0 19- DMIG MCOMP 0 1 1 2 20- DMIG MCOMP 10 0 10 0 20.0 +MC1 21- +MC1 11 0 -10.0 22- DMIG MCOMP 11 0 10 0 -1.5 +MC2 23- +MC2 11 0 3.0 12 0 -1.5 24- DMIG MCOMP 12 0 11 0 -4.0 +MC4 25- +MC4 12 0 8.0 13 0 -4.0 26- EPOINT 10 11 12 13 27- TABLED1 1 +T1 28- +T1 -1.0 .0 .0 .0 .00 1.0 100.0 1.0 +T2 29- +T2 ENDT 30- TIC 32 10 .0 10. 31- TIC 32 11 .0 .5 32- TIC 32 12 .0 .0 33- TIC 32 13 -10.0 .0 34- TLOAD1 32 1 1 1 35- TSTEP 32 200 .005 10 +S1 36- +S1 100 .015 5 ENDDATA 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GMD MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GOD MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GOD MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GMD MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 0 CBAR = 0 R = 3 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC REAL DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 4) TIME ESTIMATE = 0 SECONDS 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 POINT-ID = 10 V E L O C I T Y V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 E 1.000000E+01 4.999999E-02 E 8.769266E+00 1.000000E-01 E 5.401150E+00 1.500000E-01 E 7.114526E-01 1.999999E-01 E -4.152327E+00 2.499999E-01 E -8.000093E+00 2.999999E-01 E -9.890356E+00 3.499998E-01 E -9.360596E+00 3.999998E-01 E -6.540436E+00 4.499997E-01 E -2.119929E+00 4.999997E-01 E 2.819293E+00 5.499997E-01 E 7.068676E+00 5.999996E-01 E 9.588459E+00 6.499996E-01 E 9.762089E+00 6.999995E-01 E 7.547080E+00 7.499995E-01 E 3.485413E+00 7.999994E-01 E -1.429083E+00 8.499994E-01 E -5.993903E+00 8.999993E-01 E -9.092105E+00 9.499993E-01 E -9.965603E+00 9.999992E-01 E -8.484121E+00 1.014999E+00 E -7.565701E+00 1.074999E+00 E -2.545711E+00 1.149999E+00 E 4.729038E+00 1.224999E+00 E 9.479601E+00 1.299999E+00 E 9.170304E+00 1.374999E+00 E 3.966239E+00 1.449999E+00 E -3.354858E+00 1.524999E+00 E -8.885256E+00 1.599999E+00 E -9.673034E+00 1.674999E+00 E -5.297704E+00 1.749999E+00 E 1.905343E+00 1.824998E+00 E 8.091389E+00 1.899998E+00 E 9.958551E+00 1.974998E+00 E 6.510207E+00 2.049999E+00 E -4.130439E-01 2.124999E+00 E -7.115828E+00 2.200000E+00 E -1.002045E+01 2.275000E+00 E -7.576522E+00 2.350001E+00 E -1.088531E+00 2.425001E+00 E 5.980478E+00 2.500002E+00 E 9.857328E+00 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 POINT-ID = 11 V E L O C I T Y V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 E 5.000000E-01 4.999999E-02 E 3.112683E-01 1.000000E-01 E 1.887741E-01 1.500000E-01 E 1.144853E-01 1.999999E-01 E 6.943163E-02 2.499999E-01 E 4.210803E-02 2.999999E-01 E 2.553715E-02 3.499998E-01 E 1.548745E-02 3.999998E-01 E 9.392634E-03 4.499997E-01 E 5.696327E-03 4.999997E-01 E 3.454637E-03 5.499997E-01 E 2.095125E-03 5.999996E-01 E 1.270625E-03 6.499996E-01 E 7.705928E-04 6.999995E-01 E 4.673394E-04 7.499995E-01 E 2.834262E-04 7.999994E-01 E 1.718888E-04 8.499994E-01 E 1.042449E-04 8.999993E-01 E 6.322116E-05 9.499993E-01 E 3.834158E-05 9.999992E-01 E 2.349529E-03 1.014999E+00 E 8.998503E-03 1.074999E+00 E 4.863206E-02 1.149999E+00 E 7.576972E-02 1.224999E+00 E 8.857056E-02 1.299999E+00 E 9.460873E-02 1.374999E+00 E 9.745693E-02 1.449999E+00 E 9.880044E-02 1.524999E+00 E 9.943417E-02 1.599999E+00 E 9.973309E-02 1.674999E+00 E 9.987410E-02 1.749999E+00 E 9.994061E-02 1.824998E+00 E 9.997199E-02 1.899998E+00 E 9.998678E-02 1.974998E+00 E 9.999377E-02 2.049999E+00 E 9.999706E-02 2.124999E+00 E 9.999862E-02 2.200000E+00 E 9.999935E-02 2.275000E+00 E 9.999969E-02 2.350001E+00 E 9.999985E-02 2.425001E+00 E 9.999993E-02 2.500002E+00 E 9.999996E-02 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 POINT-ID = 12 V E L O C I T Y V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 E 0.0 4.999999E-02 E -2.824090E-14 1.000000E-01 E 1.846157E-13 1.500000E-01 E 3.540349E-13 1.999999E-01 E -3.459248E-14 2.499999E-01 E -5.351599E-14 2.999999E-01 E -1.424381E-13 3.499998E-01 E -4.642623E-14 3.999998E-01 E -6.567125E-14 4.499997E-01 E 4.065043E-14 4.999997E-01 E 7.945870E-14 5.499997E-01 E 4.015872E-14 5.999996E-01 E 1.285577E-13 6.499996E-01 E 2.880673E-14 6.999995E-01 E 9.794269E-14 7.499995E-01 E 2.944112E-13 7.999994E-01 E 1.211047E-13 8.499994E-01 E 1.863393E-13 8.999993E-01 E -3.502401E-14 9.499993E-01 E -8.198095E-14 9.999992E-01 E 2.388060E-03 1.014999E+00 E 9.334106E-03 1.074999E+00 E 5.393201E-02 1.149999E+00 E 8.759638E-02 1.224999E+00 E 9.927376E-02 1.299999E+00 E 9.561767E-02 1.374999E+00 E 8.258826E-02 1.449999E+00 E 6.503657E-02 1.524999E+00 E 4.656331E-02 1.599999E+00 E 2.956876E-02 1.674999E+00 E 1.541880E-02 1.749999E+00 E 4.666585E-03 1.824998E+00 E -2.715090E-03 1.899998E+00 E -7.120654E-03 1.974998E+00 E -9.134681E-03 2.049999E+00 E -9.397662E-03 2.124999E+00 E -8.514103E-03 2.200000E+00 E -6.997929E-03 2.275000E+00 E -5.247781E-03 2.350001E+00 E -3.544156E-03 2.425001E+00 E -2.060800E-03 2.500002E+00 E -8.839135E-04 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 POINT-ID = 13 V E L O C I T Y V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 E 0.0 4.999999E-02 E 6.203616E+01 1.000000E-01 E 3.756202E+01 1.500000E-01 E 2.272955E+01 1.999999E-01 E 1.374248E+01 2.499999E-01 E 8.298950E+00 2.999999E-01 E 5.003276E+00 3.499998E-01 E 3.009255E+00 3.999998E-01 E 1.803873E+00 4.499997E-01 E 1.076142E+00 4.999997E-01 E 6.375653E-01 5.499997E-01 E 3.739158E-01 5.999996E-01 E 2.159887E-01 6.499996E-01 E 1.218726E-01 6.999995E-01 E 6.619807E-02 7.499995E-01 E 3.362007E-02 7.999994E-01 E 1.486620E-02 8.499994E-01 E 4.341558E-03 8.999993E-01 E -1.323032E-03 9.499993E-01 E -4.150650E-03 9.999992E-01 E 5.014814E+00 1.014999E+00 E 5.747711E+00 1.074999E+00 E 5.208082E+00 1.149999E+00 E 2.329447E+00 1.224999E+00 E 1.193548E+00 1.299999E+00 E 4.872352E-01 1.374999E+00 E 2.878540E-01 1.449999E+00 E 9.016828E-02 1.524999E+00 E 7.782674E-02 1.599999E+00 E 9.139004E-03 1.674999E+00 E 2.572602E-02 1.749999E+00 E -4.556411E-03 1.824998E+00 E 1.083286E-02 1.899998E+00 E -5.000210E-03 1.974998E+00 E 5.508720E-03 2.049999E+00 E -3.526489E-03 2.124999E+00 E 3.103670E-03 2.200000E+00 E -2.246930E-03 2.275000E+00 E 1.828576E-03 2.350001E+00 E -1.385867E-03 2.425001E+00 E 1.096407E-03 2.500002E+00 E -8.451193E-04 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK BGPDP MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 POINT-ID = 10 L O A D V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 E 0.0 4.999999E-02 E 0.0 1.000000E-01 E 0.0 1.500000E-01 E 0.0 1.999999E-01 E 0.0 2.499999E-01 E 0.0 2.999999E-01 E 0.0 3.499998E-01 E 0.0 3.999998E-01 E 0.0 4.499997E-01 E 0.0 4.999997E-01 E 0.0 5.499997E-01 E 0.0 5.999996E-01 E 0.0 6.499996E-01 E 0.0 6.999995E-01 E 0.0 7.499995E-01 E 0.0 7.999994E-01 E 0.0 8.499994E-01 E 0.0 8.999993E-01 E 0.0 9.499993E-01 E 0.0 9.999992E-01 E 0.0 1.014999E+00 E -1.500000E+00 1.074999E+00 E -1.500000E+00 1.149999E+00 E -1.500000E+00 1.224999E+00 E -1.500000E+00 1.299999E+00 E -1.500000E+00 1.374999E+00 E -1.500000E+00 1.449999E+00 E -1.500000E+00 1.524999E+00 E -1.500000E+00 1.599999E+00 E -1.500000E+00 1.674999E+00 E -1.500000E+00 1.749999E+00 E -1.500000E+00 1.824998E+00 E -1.500000E+00 1.899998E+00 E -1.500000E+00 1.974998E+00 E -1.500000E+00 2.049999E+00 E -1.500000E+00 2.124999E+00 E -1.500000E+00 2.200000E+00 E -1.500000E+00 2.275000E+00 E -1.500000E+00 2.350001E+00 E -1.500000E+00 2.425001E+00 E -1.500000E+00 2.500002E+00 E -1.500000E+00 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 POINT-ID = 11 L O A D V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 E 0.0 4.999999E-02 E 0.0 1.000000E-01 E 0.0 1.500000E-01 E 0.0 1.999999E-01 E 0.0 2.499999E-01 E 0.0 2.999999E-01 E 0.0 3.499998E-01 E 0.0 3.999998E-01 E 0.0 4.499997E-01 E 0.0 4.999997E-01 E 0.0 5.499997E-01 E 0.0 5.999996E-01 E 0.0 6.499996E-01 E 0.0 6.999995E-01 E 0.0 7.499995E-01 E 0.0 7.999994E-01 E 0.0 8.499994E-01 E 0.0 8.999993E-01 E 0.0 9.499993E-01 E 0.0 9.999992E-01 E 0.0 1.014999E+00 E -1.000000E+00 1.074999E+00 E -1.000000E+00 1.149999E+00 E -1.000000E+00 1.224999E+00 E -1.000000E+00 1.299999E+00 E -1.000000E+00 1.374999E+00 E -1.000000E+00 1.449999E+00 E -1.000000E+00 1.524999E+00 E -1.000000E+00 1.599999E+00 E -1.000000E+00 1.674999E+00 E -1.000000E+00 1.749999E+00 E -1.000000E+00 1.824998E+00 E -1.000000E+00 1.899998E+00 E -1.000000E+00 1.974998E+00 E -1.000000E+00 2.049999E+00 E -1.000000E+00 2.124999E+00 E -1.000000E+00 2.200000E+00 E -1.000000E+00 2.275000E+00 E -1.000000E+00 2.350001E+00 E -1.000000E+00 2.425001E+00 E -1.000000E+00 2.500002E+00 E -1.000000E+00 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 POINT-ID = 12 L O A D V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 E 0.0 4.999999E-02 E 0.0 1.000000E-01 E 0.0 1.500000E-01 E 0.0 1.999999E-01 E 0.0 2.499999E-01 E 0.0 2.999999E-01 E 0.0 3.499998E-01 E 0.0 3.999998E-01 E 0.0 4.499997E-01 E 0.0 4.999997E-01 E 0.0 5.499997E-01 E 0.0 5.999996E-01 E 0.0 6.499996E-01 E 0.0 6.999995E-01 E 0.0 7.499995E-01 E 0.0 7.999994E-01 E 0.0 8.499994E-01 E 0.0 8.999993E-01 E 0.0 9.499993E-01 E 0.0 9.999992E-01 E 0.0 1.014999E+00 E -1.350000E+01 1.074999E+00 E -1.350000E+01 1.149999E+00 E -1.350000E+01 1.224999E+00 E -1.350000E+01 1.299999E+00 E -1.350000E+01 1.374999E+00 E -1.350000E+01 1.449999E+00 E -1.350000E+01 1.524999E+00 E -1.350000E+01 1.599999E+00 E -1.350000E+01 1.674999E+00 E -1.350000E+01 1.749999E+00 E -1.350000E+01 1.824998E+00 E -1.350000E+01 1.899998E+00 E -1.350000E+01 1.974998E+00 E -1.350000E+01 2.049999E+00 E -1.350000E+01 2.124999E+00 E -1.350000E+01 2.200000E+00 E -1.350000E+01 2.275000E+00 E -1.350000E+01 2.350001E+00 E -1.350000E+01 2.425001E+00 E -1.350000E+01 2.500002E+00 E -1.350000E+01 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 POINT-ID = 13 L O A D V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 E 0.0 4.999999E-02 E 0.0 1.000000E-01 E 0.0 1.500000E-01 E 0.0 1.999999E-01 E 0.0 2.499999E-01 E 0.0 2.999999E-01 E 0.0 3.499998E-01 E 0.0 3.999998E-01 E 0.0 4.499997E-01 E 0.0 4.999997E-01 E 0.0 5.499997E-01 E 0.0 5.999996E-01 E 0.0 6.499996E-01 E 0.0 6.999995E-01 E 0.0 7.499995E-01 E 0.0 7.999994E-01 E 0.0 8.499994E-01 E 0.0 8.999993E-01 E 0.0 9.499993E-01 E 0.0 9.999992E-01 E 0.0 1.014999E+00 E 3.600000E+01 1.074999E+00 E 3.600000E+01 1.149999E+00 E 3.600000E+01 1.224999E+00 E 3.600000E+01 1.299999E+00 E 3.600000E+01 1.374999E+00 E 3.600000E+01 1.449999E+00 E 3.600000E+01 1.524999E+00 E 3.600000E+01 1.599999E+00 E 3.600000E+01 1.674999E+00 E 3.600000E+01 1.749999E+00 E 3.600000E+01 1.824998E+00 E 3.600000E+01 1.899998E+00 E 3.600000E+01 1.974998E+00 E 3.600000E+01 2.049999E+00 E 3.600000E+01 2.124999E+00 E 3.600000E+01 2.200000E+00 E 3.600000E+01 2.275000E+00 E 3.600000E+01 2.350001E+00 E 3.600000E+01 2.425001E+00 E 3.600000E+01 2.500002E+00 E 3.600000E+01 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 POINT-ID = 10 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 E 0.0 4.999999E-02 E 4.792385E-01 1.000000E-01 E 8.412145E-01 1.500000E-01 E 9.973578E-01 1.999999E-01 E 9.094625E-01 2.499999E-01 E 5.990351E-01 2.999999E-01 E 1.420328E-01 3.499998E-01 E -3.497228E-01 3.999998E-01 E -7.559065E-01 4.499997E-01 E -9.771311E-01 4.999997E-01 E -9.592662E-01 5.499997E-01 E -7.066831E-01 5.999996E-01 E -2.811852E-01 6.499996E-01 E 2.131146E-01 6.999995E-01 E 6.552684E-01 7.499995E-01 E 9.370877E-01 7.999994E-01 E 9.896156E-01 8.499994E-01 E 7.999993E-01 8.999993E-01 E 4.146350E-01 9.499993E-01 E -7.218431E-02 9.999992E-01 E -5.413412E-01 1.014999E+00 E -6.622213E-01 1.074999E+00 E -9.761183E-01 1.149999E+00 E -8.898796E-01 1.224999E+00 E -3.286562E-01 1.299999E+00 E 4.079918E-01 1.374999E+00 E 9.268689E-01 1.449999E+00 E 9.510177E-01 1.524999E+00 E 4.675485E-01 1.599999E+00 E -2.654808E-01 1.674999E+00 E -8.568062E-01 1.749999E+00 E -9.908002E-01 1.824998E+00 E -5.959418E-01 1.899998E+00 E 1.170083E-01 1.974998E+00 E 7.675037E-01 2.049999E+00 E 1.008334E+00 2.124999E+00 E 7.109531E-01 2.200000E+00 E 3.409162E-02 2.275000E+00 E -6.609666E-01 2.350001E+00 E -1.003225E+00 2.425001E+00 E -8.099996E-01 2.500002E+00 E -1.844260E-01 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 POINT-ID = 11 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 E 0.0 4.999999E-02 E 2.014262E-02 1.000000E-01 E 3.238439E-02 1.500000E-01 E 3.980862E-02 1.999999E-01 E 4.431118E-02 2.499999E-01 E 4.704183E-02 2.999999E-01 E 4.869788E-02 3.499998E-01 E 4.970222E-02 3.999998E-01 E 5.031132E-02 4.499997E-01 E 5.068072E-02 4.999997E-01 E 5.090475E-02 5.499997E-01 E 5.104062E-02 5.999996E-01 E 5.112302E-02 6.499996E-01 E 5.117299E-02 6.999995E-01 E 5.120330E-02 7.499995E-01 E 5.122167E-02 7.999994E-01 E 5.123282E-02 8.499994E-01 E 5.123958E-02 8.999993E-01 E 5.124368E-02 9.499993E-01 E 5.124617E-02 9.999992E-01 E 5.124767E-02 1.014999E+00 E 5.131778E-02 1.074999E+00 E 5.310797E-02 1.149999E+00 E 5.790946E-02 1.224999E+00 E 6.413658E-02 1.299999E+00 E 7.103616E-02 1.374999E+00 E 7.825294E-02 1.449999E+00 E 8.561935E-02 1.524999E+00 E 9.305633E-02 1.599999E+00 E 1.005266E-01 1.674999E+00 E 1.080126E-01 1.749999E+00 E 1.155060E-01 1.824998E+00 E 1.230028E-01 1.899998E+00 E 1.305014E-01 1.974998E+00 E 1.380007E-01 2.049999E+00 E 1.455004E-01 2.124999E+00 E 1.530002E-01 2.200000E+00 E 1.605001E-01 2.275000E+00 E 1.680001E-01 2.350001E+00 E 1.755001E-01 2.425001E+00 E 1.830001E-01 2.500002E+00 E 1.905001E-01 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 POINT-ID = 12 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 E 0.0 4.999999E-02 E -1.184228E-15 1.000000E-01 E 3.882862E-15 1.500000E-01 E 2.010485E-14 1.999999E-01 E 3.239200E-14 2.499999E-01 E 2.860100E-14 2.999999E-01 E 2.436178E-14 3.499998E-01 E 1.853145E-14 3.999998E-01 E 1.671899E-14 4.499997E-01 E 1.549336E-14 4.999997E-01 E 2.181434E-14 5.499997E-01 E 2.453583E-14 5.999996E-01 E 2.739759E-14 6.499996E-01 E 3.217911E-14 6.999995E-01 E 3.372266E-14 7.499995E-01 E 4.338184E-14 7.999994E-01 E 5.353078E-14 8.499994E-01 E 6.948427E-14 8.999993E-01 E 6.936534E-14 9.499993E-01 E 6.727865E-14 9.999992E-01 E 6.517399E-14 1.014999E+00 E 7.164179E-05 1.074999E+00 E 2.002976E-03 1.149999E+00 E 7.481610E-03 1.224999E+00 E 1.461472E-02 1.299999E+00 E 2.200534E-02 1.374999E+00 E 2.873345E-02 1.449999E+00 E 3.428620E-02 1.524999E+00 E 3.846793E-02 1.599999E+00 E 4.130714E-02 1.674999E+00 E 4.297225E-02 1.749999E+00 E 4.370203E-02 1.824998E+00 E 4.375346E-02 1.899998E+00 E 4.336637E-02 1.974998E+00 E 4.274281E-02 2.049999E+00 E 4.203815E-02 2.124999E+00 E 4.136059E-02 2.200000E+00 E 4.077611E-02 2.275000E+00 E 4.031641E-02 2.350001E+00 E 3.998773E-02 2.425001E+00 E 3.977942E-02 2.500002E+00 E 3.967119E-02 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 POINT-ID = 13 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 E -1.000000E+01 4.999999E-02 E -6.293332E+00 1.000000E-01 E -3.833388E+00 1.500000E-01 E -2.339044E+00 1.999999E-01 E -1.430647E+00 2.499999E-01 E -8.779122E-01 2.999999E-01 E -5.411401E-01 3.499998E-01 E -3.355734E-01 3.999998E-01 E -2.097769E-01 4.499997E-01 E -1.325286E-01 4.999997E-01 E -8.486808E-02 5.499997E-01 E -5.527525E-02 5.999996E-01 E -3.674486E-02 6.499996E-01 E -2.501265E-02 6.999995E-01 E -1.747893E-02 7.499995E-01 E -1.255557E-02 7.999994E-01 E -9.269634E-03 8.499994E-01 E -7.022767E-03 8.999993E-01 E -5.445038E-03 9.499993E-01 E -4.306122E-03 9.999992E-01 E -3.461279E-03 1.014999E+00 E 1.101781E-01 1.074999E+00 E 5.225659E-01 1.149999E+00 E 7.380897E-01 1.224999E+00 E 9.054512E-01 1.299999E+00 E 9.330319E-01 1.374999E+00 E 9.859173E-01 1.449999E+00 E 9.797748E-01 1.524999E+00 E 1.001053E+00 1.599999E+00 E 9.922608E-01 1.674999E+00 E 1.002765E+00 1.749999E+00 E 9.963126E-01 1.824998E+00 E 1.002147E+00 1.899998E+00 E 9.979881E-01 1.974998E+00 E 1.001406E+00 2.049999E+00 E 9.988303E-01 2.124999E+00 E 1.000875E+00 2.200000E+00 E 9.993022E-01 2.275000E+00 E 1.000535E+00 2.350001E+00 E 9.995797E-01 2.425001E+00 E 1.000325E+00 2.500002E+00 E 9.997458E-01 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 10( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 1 CURVE TITLE = * * * * EPOINT DISPLACEMENT(INCHES) * * * * * * * X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = EPOINT 10 DISPLACEMENT *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 2.500002E+00) THE SMALLEST Y-VALUE = -1.003225E+00 AT X = 2.350001E+00 THE LARGEST Y-VALUE = 1.008334E+00 AT X = 2.049999E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 2.500002E+00) THE SMALLEST Y-VALUE = -1.003225E+00 AT X = 2.350001E+00 THE LARGEST Y-VALUE = 1.008334E+00 AT X = 2.049999E+00 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 11( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 2 CURVE TITLE = * * * * EPOINT DISPLACEMENT(INCHES) * * * * * * * X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = EPOINT 11 DISPLACEMENT *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 2.500002E+00) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 1.905001E-01 AT X = 2.500002E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 2.500002E+00) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 1.905001E-01 AT X = 2.500002E+00 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 12( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 3 CURVE TITLE = * * * * EPOINT DISPLACEMENT(INCHES) * * * * * * * X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = EPOINT 12 DISPLACEMENT *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 2.500002E+00) THE SMALLEST Y-VALUE = -1.184228E-15 AT X = 4.999999E-02 THE LARGEST Y-VALUE = 4.375346E-02 AT X = 1.824998E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 2.500002E+00) THE SMALLEST Y-VALUE = -1.184228E-15 AT X = 4.999999E-02 THE LARGEST Y-VALUE = 4.375346E-02 AT X = 1.824998E+00 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 13( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 4 CURVE TITLE = * * * * EPOINT DISPLACEMENT(INCHES) * * * * * * * X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = EPOINT 13 DISPLACEMENT *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 2.500002E+00) THE SMALLEST Y-VALUE = -1.000000E+01 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 1.002765E+00 AT X = 1.674999E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 2.500002E+00) THE SMALLEST Y-VALUE = -1.000000E+01 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 1.002765E+00 AT X = 1.674999E+00 E N D O F S U M M A R Y * * * END OF JOB * * * 1 JOB TITLE = TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT DATE: 5/17/95 END TIME: 16: 5:39 TOTAL WALL CLOCK TIME 1 SEC. ================================================ FILE: demoout/d09021a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D09021A,NASTRAN TIME 26 APP DISP SOL 9,1 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRANSIENT ANALYSIS OF A 1000 CELL STRING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 3 LABEL = TRAVELING WAVE PROBLEM 4 TSTEP = 9 5 IC = 9 6 OUTPUT 7 SET 1 = 2,4,5,6,10,12,14,16,18,20,22,24,26,28,30,40,50, 100,200,500 8 DISPLACEMENT = 1 9 VELOCITY = 1 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 1022, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CELAS3 1 101 0 2 2 101 2 3 2- CELAS3 3 101 3 4 4 101 4 5 3- CELAS3 5 101 5 6 6 101 6 7 4- CELAS3 7 101 7 8 8 101 8 9 5- CELAS3 9 101 9 10 10 101 10 11 6- CELAS3 11 101 11 12 12 101 12 13 7- CELAS3 13 101 13 14 14 101 14 15 8- CELAS3 15 101 15 16 16 101 16 17 9- CELAS3 17 101 17 18 18 101 18 19 10- CELAS3 19 101 19 20 20 101 20 21 11- CELAS3 21 101 21 22 22 101 22 23 12- CELAS3 23 101 23 24 24 101 24 25 13- CELAS3 25 101 25 26 26 101 26 27 14- CELAS3 27 101 27 28 28 101 28 29 15- CELAS3 29 101 29 30 30 101 30 31 16- CELAS3 31 101 31 32 32 101 32 33 17- CELAS3 33 101 33 34 34 101 34 35 18- CELAS3 35 101 35 36 36 101 36 37 19- CELAS3 37 101 37 38 38 101 38 39 20- CELAS3 39 101 39 40 40 101 40 41 21- CELAS3 41 101 41 42 42 101 42 43 22- CELAS3 43 101 43 44 44 101 44 45 23- CELAS3 45 101 45 46 46 101 46 47 24- CELAS3 47 101 47 48 48 101 48 49 25- CELAS3 49 101 49 50 50 101 50 51 26- CELAS3 51 101 51 52 52 101 52 53 27- CELAS3 53 101 53 54 54 101 54 55 28- CELAS3 55 101 55 56 56 101 56 57 29- CELAS3 57 101 57 58 58 101 58 59 30- CELAS3 59 101 59 60 60 101 60 61 31- CELAS3 61 101 61 62 62 101 62 63 32- CELAS3 63 101 63 64 64 101 64 65 33- CELAS3 65 101 65 66 66 101 66 67 34- CELAS3 67 101 67 68 68 101 68 69 35- CELAS3 69 101 69 70 70 101 70 71 36- CELAS3 71 101 71 72 72 101 72 73 37- CELAS3 73 101 73 74 74 101 74 75 38- CELAS3 75 101 75 76 76 101 76 77 39- CELAS3 77 101 77 78 78 101 78 79 40- CELAS3 79 101 79 80 80 101 80 81 41- CELAS3 81 101 81 82 82 101 82 83 42- CELAS3 83 101 83 84 84 101 84 85 43- CELAS3 85 101 85 86 86 101 86 87 44- CELAS3 87 101 87 88 88 101 88 89 45- CELAS3 89 101 89 90 90 101 90 91 46- CELAS3 91 101 91 92 92 101 92 93 47- CELAS3 93 101 93 94 94 101 94 95 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CELAS3 95 101 95 96 96 101 96 97 49- CELAS3 97 101 97 98 98 101 98 99 50- CELAS3 99 101 99 100 100 101 100 101 51- CELAS3 101 101 101 102 102 101 102 103 52- CELAS3 103 101 103 104 104 101 104 105 53- CELAS3 105 101 105 106 106 101 106 107 54- CELAS3 107 101 107 108 108 101 108 109 55- CELAS3 109 101 109 110 110 101 110 111 56- CELAS3 111 101 111 112 112 101 112 113 57- CELAS3 113 101 113 114 114 101 114 115 58- CELAS3 115 101 115 116 116 101 116 117 59- CELAS3 117 101 117 118 118 101 118 119 60- CELAS3 119 101 119 120 120 101 120 121 61- CELAS3 121 101 121 122 122 101 122 123 62- CELAS3 123 101 123 124 124 101 124 125 63- CELAS3 125 101 125 126 126 101 126 127 64- CELAS3 127 101 127 128 128 101 128 129 65- CELAS3 129 101 129 130 130 101 130 131 66- CELAS3 131 101 131 132 132 101 132 133 67- CELAS3 133 101 133 134 134 101 134 135 68- CELAS3 135 101 135 136 136 101 136 137 69- CELAS3 137 101 137 138 138 101 138 139 70- CELAS3 139 101 139 140 140 101 140 141 71- CELAS3 141 101 141 142 142 101 142 143 72- CELAS3 143 101 143 144 144 101 144 145 73- CELAS3 145 101 145 146 146 101 146 147 74- CELAS3 147 101 147 148 148 101 148 149 75- CELAS3 149 101 149 150 150 101 150 151 76- CELAS3 151 101 151 152 152 101 152 153 77- CELAS3 153 101 153 154 154 101 154 155 78- CELAS3 155 101 155 156 156 101 156 157 79- CELAS3 157 101 157 158 158 101 158 159 80- CELAS3 159 101 159 160 160 101 160 161 81- CELAS3 161 101 161 162 162 101 162 163 82- CELAS3 163 101 163 164 164 101 164 165 83- CELAS3 165 101 165 166 166 101 166 167 84- CELAS3 167 101 167 168 168 101 168 169 85- CELAS3 169 101 169 170 170 101 170 171 86- CELAS3 171 101 171 172 172 101 172 173 87- CELAS3 173 101 173 174 174 101 174 175 88- CELAS3 175 101 175 176 176 101 176 177 89- CELAS3 177 101 177 178 178 101 178 179 90- CELAS3 179 101 179 180 180 101 180 181 91- CELAS3 181 101 181 182 182 101 182 183 92- CELAS3 183 101 183 184 184 101 184 185 93- CELAS3 185 101 185 186 186 101 186 187 94- CELAS3 187 101 187 188 188 101 188 189 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CELAS3 189 101 189 190 190 101 190 191 96- CELAS3 191 101 191 192 192 101 192 193 97- CELAS3 193 101 193 194 194 101 194 195 98- CELAS3 195 101 195 196 196 101 196 197 99- CELAS3 197 101 197 198 198 101 198 199 100- CELAS3 199 101 199 200 200 101 200 201 101- CELAS3 201 101 201 202 202 101 202 203 102- CELAS3 203 101 203 204 204 101 204 205 103- CELAS3 205 101 205 206 206 101 206 207 104- CELAS3 207 101 207 208 208 101 208 209 105- CELAS3 209 101 209 210 210 101 210 211 106- CELAS3 211 101 211 212 212 101 212 213 107- CELAS3 213 101 213 214 214 101 214 215 108- CELAS3 215 101 215 216 216 101 216 217 109- CELAS3 217 101 217 218 218 101 218 219 110- CELAS3 219 101 219 220 220 101 220 221 111- CELAS3 221 101 221 222 222 101 222 223 112- CELAS3 223 101 223 224 224 101 224 225 113- CELAS3 225 101 225 226 226 101 226 227 114- CELAS3 227 101 227 228 228 101 228 229 115- CELAS3 229 101 229 230 230 101 230 231 116- CELAS3 231 101 231 232 232 101 232 233 117- CELAS3 233 101 233 234 234 101 234 235 118- CELAS3 235 101 235 236 236 101 236 237 119- CELAS3 237 101 237 238 238 101 238 239 120- CELAS3 239 101 239 240 240 101 240 241 121- CELAS3 241 101 241 242 242 101 242 243 122- CELAS3 243 101 243 244 244 101 244 245 123- CELAS3 245 101 245 246 246 101 246 247 124- CELAS3 247 101 247 248 248 101 248 249 125- CELAS3 249 101 249 250 250 101 250 251 126- CELAS3 251 101 251 252 252 101 252 253 127- CELAS3 253 101 253 254 254 101 254 255 128- CELAS3 255 101 255 256 256 101 256 257 129- CELAS3 257 101 257 258 258 101 258 259 130- CELAS3 259 101 259 260 260 101 260 261 131- CELAS3 261 101 261 262 262 101 262 263 132- CELAS3 263 101 263 264 264 101 264 265 133- CELAS3 265 101 265 266 266 101 266 267 134- CELAS3 267 101 267 268 268 101 268 269 135- CELAS3 269 101 269 270 270 101 270 271 136- CELAS3 271 101 271 272 272 101 272 273 137- CELAS3 273 101 273 274 274 101 274 275 138- CELAS3 275 101 275 276 276 101 276 277 139- CELAS3 277 101 277 278 278 101 278 279 140- CELAS3 279 101 279 280 280 101 280 281 141- CELAS3 281 101 281 282 282 101 282 283 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CELAS3 283 101 283 284 284 101 284 285 143- CELAS3 285 101 285 286 286 101 286 287 144- CELAS3 287 101 287 288 288 101 288 289 145- CELAS3 289 101 289 290 290 101 290 291 146- CELAS3 291 101 291 292 292 101 292 293 147- CELAS3 293 101 293 294 294 101 294 295 148- CELAS3 295 101 295 296 296 101 296 297 149- CELAS3 297 101 297 298 298 101 298 299 150- CELAS3 299 101 299 300 300 101 300 301 151- CELAS3 301 101 301 302 302 101 302 303 152- CELAS3 303 101 303 304 304 101 304 305 153- CELAS3 305 101 305 306 306 101 306 307 154- CELAS3 307 101 307 308 308 101 308 309 155- CELAS3 309 101 309 310 310 101 310 311 156- CELAS3 311 101 311 312 312 101 312 313 157- CELAS3 313 101 313 314 314 101 314 315 158- CELAS3 315 101 315 316 316 101 316 317 159- CELAS3 317 101 317 318 318 101 318 319 160- CELAS3 319 101 319 320 320 101 320 321 161- CELAS3 321 101 321 322 322 101 322 323 162- CELAS3 323 101 323 324 324 101 324 325 163- CELAS3 325 101 325 326 326 101 326 327 164- CELAS3 327 101 327 328 328 101 328 329 165- CELAS3 329 101 329 330 330 101 330 331 166- CELAS3 331 101 331 332 332 101 332 333 167- CELAS3 333 101 333 334 334 101 334 335 168- CELAS3 335 101 335 336 336 101 336 337 169- CELAS3 337 101 337 338 338 101 338 339 170- CELAS3 339 101 339 340 340 101 340 341 171- CELAS3 341 101 341 342 342 101 342 343 172- CELAS3 343 101 343 344 344 101 344 345 173- CELAS3 345 101 345 346 346 101 346 347 174- CELAS3 347 101 347 348 348 101 348 349 175- CELAS3 349 101 349 350 350 101 350 351 176- CELAS3 351 101 351 352 352 101 352 353 177- CELAS3 353 101 353 354 354 101 354 355 178- CELAS3 355 101 355 356 356 101 356 357 179- CELAS3 357 101 357 358 358 101 358 359 180- CELAS3 359 101 359 360 360 101 360 361 181- CELAS3 361 101 361 362 362 101 362 363 182- CELAS3 363 101 363 364 364 101 364 365 183- CELAS3 365 101 365 366 366 101 366 367 184- CELAS3 367 101 367 368 368 101 368 369 185- CELAS3 369 101 369 370 370 101 370 371 186- CELAS3 371 101 371 372 372 101 372 373 187- CELAS3 373 101 373 374 374 101 374 375 188- CELAS3 375 101 375 376 376 101 376 377 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CELAS3 377 101 377 378 378 101 378 379 190- CELAS3 379 101 379 380 380 101 380 381 191- CELAS3 381 101 381 382 382 101 382 383 192- CELAS3 383 101 383 384 384 101 384 385 193- CELAS3 385 101 385 386 386 101 386 387 194- CELAS3 387 101 387 388 388 101 388 389 195- CELAS3 389 101 389 390 390 101 390 391 196- CELAS3 391 101 391 392 392 101 392 393 197- CELAS3 393 101 393 394 394 101 394 395 198- CELAS3 395 101 395 396 396 101 396 397 199- CELAS3 397 101 397 398 398 101 398 399 200- CELAS3 399 101 399 400 400 101 400 401 201- CELAS3 401 101 401 402 402 101 402 403 202- CELAS3 403 101 403 404 404 101 404 405 203- CELAS3 405 101 405 406 406 101 406 407 204- CELAS3 407 101 407 408 408 101 408 409 205- CELAS3 409 101 409 410 410 101 410 411 206- CELAS3 411 101 411 412 412 101 412 413 207- CELAS3 413 101 413 414 414 101 414 415 208- CELAS3 415 101 415 416 416 101 416 417 209- CELAS3 417 101 417 418 418 101 418 419 210- CELAS3 419 101 419 420 420 101 420 421 211- CELAS3 421 101 421 422 422 101 422 423 212- CELAS3 423 101 423 424 424 101 424 425 213- CELAS3 425 101 425 426 426 101 426 427 214- CELAS3 427 101 427 428 428 101 428 429 215- CELAS3 429 101 429 430 430 101 430 431 216- CELAS3 431 101 431 432 432 101 432 433 217- CELAS3 433 101 433 434 434 101 434 435 218- CELAS3 435 101 435 436 436 101 436 437 219- CELAS3 437 101 437 438 438 101 438 439 220- CELAS3 439 101 439 440 440 101 440 441 221- CELAS3 441 101 441 442 442 101 442 443 222- CELAS3 443 101 443 444 444 101 444 445 223- CELAS3 445 101 445 446 446 101 446 447 224- CELAS3 447 101 447 448 448 101 448 449 225- CELAS3 449 101 449 450 450 101 450 451 226- CELAS3 451 101 451 452 452 101 452 453 227- CELAS3 453 101 453 454 454 101 454 455 228- CELAS3 455 101 455 456 456 101 456 457 229- CELAS3 457 101 457 458 458 101 458 459 230- CELAS3 459 101 459 460 460 101 460 461 231- CELAS3 461 101 461 462 462 101 462 463 232- CELAS3 463 101 463 464 464 101 464 465 233- CELAS3 465 101 465 466 466 101 466 467 234- CELAS3 467 101 467 468 468 101 468 469 235- CELAS3 469 101 469 470 470 101 470 471 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- CELAS3 471 101 471 472 472 101 472 473 237- CELAS3 473 101 473 474 474 101 474 475 238- CELAS3 475 101 475 476 476 101 476 477 239- CELAS3 477 101 477 478 478 101 478 479 240- CELAS3 479 101 479 480 480 101 480 481 241- CELAS3 481 101 481 482 482 101 482 483 242- CELAS3 483 101 483 484 484 101 484 485 243- CELAS3 485 101 485 486 486 101 486 487 244- CELAS3 487 101 487 488 488 101 488 489 245- CELAS3 489 101 489 490 490 101 490 491 246- CELAS3 491 101 491 492 492 101 492 493 247- CELAS3 493 101 493 494 494 101 494 495 248- CELAS3 495 101 495 496 496 101 496 497 249- CELAS3 497 101 497 498 498 101 498 499 250- CELAS3 499 101 499 500 500 101 500 501 251- CELAS3 501 101 501 502 502 101 502 503 252- CELAS3 503 101 503 504 504 101 504 505 253- CELAS3 505 101 505 506 506 101 506 507 254- CELAS3 507 101 507 508 508 101 508 509 255- CELAS3 509 101 509 510 510 101 510 511 256- CELAS3 511 101 511 512 512 101 512 513 257- CELAS3 513 101 513 514 514 101 514 515 258- CELAS3 515 101 515 516 516 101 516 517 259- CELAS3 517 101 517 518 518 101 518 519 260- CELAS3 519 101 519 520 520 101 520 521 261- CELAS3 521 101 521 522 522 101 522 523 262- CELAS3 523 101 523 524 524 101 524 525 263- CELAS3 525 101 525 526 526 101 526 527 264- CELAS3 527 101 527 528 528 101 528 529 265- CELAS3 529 101 529 530 530 101 530 531 266- CELAS3 531 101 531 532 532 101 532 533 267- CELAS3 533 101 533 534 534 101 534 535 268- CELAS3 535 101 535 536 536 101 536 537 269- CELAS3 537 101 537 538 538 101 538 539 270- CELAS3 539 101 539 540 540 101 540 541 271- CELAS3 541 101 541 542 542 101 542 543 272- CELAS3 543 101 543 544 544 101 544 545 273- CELAS3 545 101 545 546 546 101 546 547 274- CELAS3 547 101 547 548 548 101 548 549 275- CELAS3 549 101 549 550 550 101 550 551 276- CELAS3 551 101 551 552 552 101 552 553 277- CELAS3 553 101 553 554 554 101 554 555 278- CELAS3 555 101 555 556 556 101 556 557 279- CELAS3 557 101 557 558 558 101 558 559 280- CELAS3 559 101 559 560 560 101 560 561 281- CELAS3 561 101 561 562 562 101 562 563 282- CELAS3 563 101 563 564 564 101 564 565 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- CELAS3 565 101 565 566 566 101 566 567 284- CELAS3 567 101 567 568 568 101 568 569 285- CELAS3 569 101 569 570 570 101 570 571 286- CELAS3 571 101 571 572 572 101 572 573 287- CELAS3 573 101 573 574 574 101 574 575 288- CELAS3 575 101 575 576 576 101 576 577 289- CELAS3 577 101 577 578 578 101 578 579 290- CELAS3 579 101 579 580 580 101 580 581 291- CELAS3 581 101 581 582 582 101 582 583 292- CELAS3 583 101 583 584 584 101 584 585 293- CELAS3 585 101 585 586 586 101 586 587 294- CELAS3 587 101 587 588 588 101 588 589 295- CELAS3 589 101 589 590 590 101 590 591 296- CELAS3 591 101 591 592 592 101 592 593 297- CELAS3 593 101 593 594 594 101 594 595 298- CELAS3 595 101 595 596 596 101 596 597 299- CELAS3 597 101 597 598 598 101 598 599 300- CELAS3 599 101 599 600 600 101 600 601 301- CELAS3 601 101 601 602 602 101 602 603 302- CELAS3 603 101 603 604 604 101 604 605 303- CELAS3 605 101 605 606 606 101 606 607 304- CELAS3 607 101 607 608 608 101 608 609 305- CELAS3 609 101 609 610 610 101 610 611 306- CELAS3 611 101 611 612 612 101 612 613 307- CELAS3 613 101 613 614 614 101 614 615 308- CELAS3 615 101 615 616 616 101 616 617 309- CELAS3 617 101 617 618 618 101 618 619 310- CELAS3 619 101 619 620 620 101 620 621 311- CELAS3 621 101 621 622 622 101 622 623 312- CELAS3 623 101 623 624 624 101 624 625 313- CELAS3 625 101 625 626 626 101 626 627 314- CELAS3 627 101 627 628 628 101 628 629 315- CELAS3 629 101 629 630 630 101 630 631 316- CELAS3 631 101 631 632 632 101 632 633 317- CELAS3 633 101 633 634 634 101 634 635 318- CELAS3 635 101 635 636 636 101 636 637 319- CELAS3 637 101 637 638 638 101 638 639 320- CELAS3 639 101 639 640 640 101 640 641 321- CELAS3 641 101 641 642 642 101 642 643 322- CELAS3 643 101 643 644 644 101 644 645 323- CELAS3 645 101 645 646 646 101 646 647 324- CELAS3 647 101 647 648 648 101 648 649 325- CELAS3 649 101 649 650 650 101 650 651 326- CELAS3 651 101 651 652 652 101 652 653 327- CELAS3 653 101 653 654 654 101 654 655 328- CELAS3 655 101 655 656 656 101 656 657 329- CELAS3 657 101 657 658 658 101 658 659 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- CELAS3 659 101 659 660 660 101 660 661 331- CELAS3 661 101 661 662 662 101 662 663 332- CELAS3 663 101 663 664 664 101 664 665 333- CELAS3 665 101 665 666 666 101 666 667 334- CELAS3 667 101 667 668 668 101 668 669 335- CELAS3 669 101 669 670 670 101 670 671 336- CELAS3 671 101 671 672 672 101 672 673 337- CELAS3 673 101 673 674 674 101 674 675 338- CELAS3 675 101 675 676 676 101 676 677 339- CELAS3 677 101 677 678 678 101 678 679 340- CELAS3 679 101 679 680 680 101 680 681 341- CELAS3 681 101 681 682 682 101 682 683 342- CELAS3 683 101 683 684 684 101 684 685 343- CELAS3 685 101 685 686 686 101 686 687 344- CELAS3 687 101 687 688 688 101 688 689 345- CELAS3 689 101 689 690 690 101 690 691 346- CELAS3 691 101 691 692 692 101 692 693 347- CELAS3 693 101 693 694 694 101 694 695 348- CELAS3 695 101 695 696 696 101 696 697 349- CELAS3 697 101 697 698 698 101 698 699 350- CELAS3 699 101 699 700 700 101 700 701 351- CELAS3 701 101 701 702 702 101 702 703 352- CELAS3 703 101 703 704 704 101 704 705 353- CELAS3 705 101 705 706 706 101 706 707 354- CELAS3 707 101 707 708 708 101 708 709 355- CELAS3 709 101 709 710 710 101 710 711 356- CELAS3 711 101 711 712 712 101 712 713 357- CELAS3 713 101 713 714 714 101 714 715 358- CELAS3 715 101 715 716 716 101 716 717 359- CELAS3 717 101 717 718 718 101 718 719 360- CELAS3 719 101 719 720 720 101 720 721 361- CELAS3 721 101 721 722 722 101 722 723 362- CELAS3 723 101 723 724 724 101 724 725 363- CELAS3 725 101 725 726 726 101 726 727 364- CELAS3 727 101 727 728 728 101 728 729 365- CELAS3 729 101 729 730 730 101 730 731 366- CELAS3 731 101 731 732 732 101 732 733 367- CELAS3 733 101 733 734 734 101 734 735 368- CELAS3 735 101 735 736 736 101 736 737 369- CELAS3 737 101 737 738 738 101 738 739 370- CELAS3 739 101 739 740 740 101 740 741 371- CELAS3 741 101 741 742 742 101 742 743 372- CELAS3 743 101 743 744 744 101 744 745 373- CELAS3 745 101 745 746 746 101 746 747 374- CELAS3 747 101 747 748 748 101 748 749 375- CELAS3 749 101 749 750 750 101 750 751 376- CELAS3 751 101 751 752 752 101 752 753 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- CELAS3 753 101 753 754 754 101 754 755 378- CELAS3 755 101 755 756 756 101 756 757 379- CELAS3 757 101 757 758 758 101 758 759 380- CELAS3 759 101 759 760 760 101 760 761 381- CELAS3 761 101 761 762 762 101 762 763 382- CELAS3 763 101 763 764 764 101 764 765 383- CELAS3 765 101 765 766 766 101 766 767 384- CELAS3 767 101 767 768 768 101 768 769 385- CELAS3 769 101 769 770 770 101 770 771 386- CELAS3 771 101 771 772 772 101 772 773 387- CELAS3 773 101 773 774 774 101 774 775 388- CELAS3 775 101 775 776 776 101 776 777 389- CELAS3 777 101 777 778 778 101 778 779 390- CELAS3 779 101 779 780 780 101 780 781 391- CELAS3 781 101 781 782 782 101 782 783 392- CELAS3 783 101 783 784 784 101 784 785 393- CELAS3 785 101 785 786 786 101 786 787 394- CELAS3 787 101 787 788 788 101 788 789 395- CELAS3 789 101 789 790 790 101 790 791 396- CELAS3 791 101 791 792 792 101 792 793 397- CELAS3 793 101 793 794 794 101 794 795 398- CELAS3 795 101 795 796 796 101 796 797 399- CELAS3 797 101 797 798 798 101 798 799 400- CELAS3 799 101 799 800 800 101 800 801 401- CELAS3 801 101 801 802 802 101 802 803 402- CELAS3 803 101 803 804 804 101 804 805 403- CELAS3 805 101 805 806 806 101 806 807 404- CELAS3 807 101 807 808 808 101 808 809 405- CELAS3 809 101 809 810 810 101 810 811 406- CELAS3 811 101 811 812 812 101 812 813 407- CELAS3 813 101 813 814 814 101 814 815 408- CELAS3 815 101 815 816 816 101 816 817 409- CELAS3 817 101 817 818 818 101 818 819 410- CELAS3 819 101 819 820 820 101 820 821 411- CELAS3 821 101 821 822 822 101 822 823 412- CELAS3 823 101 823 824 824 101 824 825 413- CELAS3 825 101 825 826 826 101 826 827 414- CELAS3 827 101 827 828 828 101 828 829 415- CELAS3 829 101 829 830 830 101 830 831 416- CELAS3 831 101 831 832 832 101 832 833 417- CELAS3 833 101 833 834 834 101 834 835 418- CELAS3 835 101 835 836 836 101 836 837 419- CELAS3 837 101 837 838 838 101 838 839 420- CELAS3 839 101 839 840 840 101 840 841 421- CELAS3 841 101 841 842 842 101 842 843 422- CELAS3 843 101 843 844 844 101 844 845 423- CELAS3 845 101 845 846 846 101 846 847 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- CELAS3 847 101 847 848 848 101 848 849 425- CELAS3 849 101 849 850 850 101 850 851 426- CELAS3 851 101 851 852 852 101 852 853 427- CELAS3 853 101 853 854 854 101 854 855 428- CELAS3 855 101 855 856 856 101 856 857 429- CELAS3 857 101 857 858 858 101 858 859 430- CELAS3 859 101 859 860 860 101 860 861 431- CELAS3 861 101 861 862 862 101 862 863 432- CELAS3 863 101 863 864 864 101 864 865 433- CELAS3 865 101 865 866 866 101 866 867 434- CELAS3 867 101 867 868 868 101 868 869 435- CELAS3 869 101 869 870 870 101 870 871 436- CELAS3 871 101 871 872 872 101 872 873 437- CELAS3 873 101 873 874 874 101 874 875 438- CELAS3 875 101 875 876 876 101 876 877 439- CELAS3 877 101 877 878 878 101 878 879 440- CELAS3 879 101 879 880 880 101 880 881 441- CELAS3 881 101 881 882 882 101 882 883 442- CELAS3 883 101 883 884 884 101 884 885 443- CELAS3 885 101 885 886 886 101 886 887 444- CELAS3 887 101 887 888 888 101 888 889 445- CELAS3 889 101 889 890 890 101 890 891 446- CELAS3 891 101 891 892 892 101 892 893 447- CELAS3 893 101 893 894 894 101 894 895 448- CELAS3 895 101 895 896 896 101 896 897 449- CELAS3 897 101 897 898 898 101 898 899 450- CELAS3 899 101 899 900 900 101 900 901 451- CELAS3 901 101 901 902 902 101 902 903 452- CELAS3 903 101 903 904 904 101 904 905 453- CELAS3 905 101 905 906 906 101 906 907 454- CELAS3 907 101 907 908 908 101 908 909 455- CELAS3 909 101 909 910 910 101 910 911 456- CELAS3 911 101 911 912 912 101 912 913 457- CELAS3 913 101 913 914 914 101 914 915 458- CELAS3 915 101 915 916 916 101 916 917 459- CELAS3 917 101 917 918 918 101 918 919 460- CELAS3 919 101 919 920 920 101 920 921 461- CELAS3 921 101 921 922 922 101 922 923 462- CELAS3 923 101 923 924 924 101 924 925 463- CELAS3 925 101 925 926 926 101 926 927 464- CELAS3 927 101 927 928 928 101 928 929 465- CELAS3 929 101 929 930 930 101 930 931 466- CELAS3 931 101 931 932 932 101 932 933 467- CELAS3 933 101 933 934 934 101 934 935 468- CELAS3 935 101 935 936 936 101 936 937 469- CELAS3 937 101 937 938 938 101 938 939 470- CELAS3 939 101 939 940 940 101 940 941 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- CELAS3 941 101 941 942 942 101 942 943 472- CELAS3 943 101 943 944 944 101 944 945 473- CELAS3 945 101 945 946 946 101 946 947 474- CELAS3 947 101 947 948 948 101 948 949 475- CELAS3 949 101 949 950 950 101 950 951 476- CELAS3 951 101 951 952 952 101 952 953 477- CELAS3 953 101 953 954 954 101 954 955 478- CELAS3 955 101 955 956 956 101 956 957 479- CELAS3 957 101 957 958 958 101 958 959 480- CELAS3 959 101 959 960 960 101 960 961 481- CELAS3 961 101 961 962 962 101 962 963 482- CELAS3 963 101 963 964 964 101 964 965 483- CELAS3 965 101 965 966 966 101 966 967 484- CELAS3 967 101 967 968 968 101 968 969 485- CELAS3 969 101 969 970 970 101 970 971 486- CELAS3 971 101 971 972 972 101 972 973 487- CELAS3 973 101 973 974 974 101 974 975 488- CELAS3 975 101 975 976 976 101 976 977 489- CELAS3 977 101 977 978 978 101 978 979 490- CELAS3 979 101 979 980 980 101 980 981 491- CELAS3 981 101 981 982 982 101 982 983 492- CELAS3 983 101 983 984 984 101 984 985 493- CELAS3 985 101 985 986 986 101 986 987 494- CELAS3 987 101 987 988 988 101 988 989 495- CELAS3 989 101 989 990 990 101 990 991 496- CELAS3 991 101 991 992 992 101 992 993 497- CELAS3 993 101 993 994 994 101 994 995 498- CELAS3 995 101 995 996 996 101 996 997 499- CELAS3 997 101 997 998 998 101 998 999 500- CELAS3 999 101 999 1000 1000 101 1000 0 501- CMASS3 40002 301 2 0 502- CMASS3 40003 301 3 0 40004 301 4 0 503- CMASS3 40005 301 5 0 40006 301 6 0 504- CMASS3 40007 301 7 0 40008 301 8 0 505- CMASS3 40009 301 9 0 40010 301 10 0 506- CMASS3 40011 301 11 0 40012 301 12 0 507- CMASS3 40013 301 13 0 40014 301 14 0 508- CMASS3 40015 301 15 0 40016 301 16 0 509- CMASS3 40017 301 17 0 40018 301 18 0 510- CMASS3 40019 301 19 0 40020 301 20 0 511- CMASS3 40021 301 21 0 40022 301 22 0 512- CMASS3 40023 301 23 0 40024 301 24 0 513- CMASS3 40025 301 25 0 40026 301 26 0 514- CMASS3 40027 301 27 0 40028 301 28 0 515- CMASS3 40029 301 29 0 40030 301 30 0 516- CMASS3 40031 301 31 0 40032 301 32 0 517- CMASS3 40033 301 33 0 40034 301 34 0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- CMASS3 40035 301 35 0 40036 301 36 0 519- CMASS3 40037 301 37 0 40038 301 38 0 520- CMASS3 40039 301 39 0 40040 301 40 0 521- CMASS3 40041 301 41 0 40042 301 42 0 522- CMASS3 40043 301 43 0 40044 301 44 0 523- CMASS3 40045 301 45 0 40046 301 46 0 524- CMASS3 40047 301 47 0 40048 301 48 0 525- CMASS3 40049 301 49 0 40050 301 50 0 526- CMASS3 40051 301 51 0 40052 301 52 0 527- CMASS3 40053 301 53 0 40054 301 54 0 528- CMASS3 40055 301 55 0 40056 301 56 0 529- CMASS3 40057 301 57 0 40058 301 58 0 530- CMASS3 40059 301 59 0 40060 301 60 0 531- CMASS3 40061 301 61 0 40062 301 62 0 532- CMASS3 40063 301 63 0 40064 301 64 0 533- CMASS3 40065 301 65 0 40066 301 66 0 534- CMASS3 40067 301 67 0 40068 301 68 0 535- CMASS3 40069 301 69 0 40070 301 70 0 536- CMASS3 40071 301 71 0 40072 301 72 0 537- CMASS3 40073 301 73 0 40074 301 74 0 538- CMASS3 40075 301 75 0 40076 301 76 0 539- CMASS3 40077 301 77 0 40078 301 78 0 540- CMASS3 40079 301 79 0 40080 301 80 0 541- CMASS3 40081 301 81 0 40082 301 82 0 542- CMASS3 40083 301 83 0 40084 301 84 0 543- CMASS3 40085 301 85 0 40086 301 86 0 544- CMASS3 40087 301 87 0 40088 301 88 0 545- CMASS3 40089 301 89 0 40090 301 90 0 546- CMASS3 40091 301 91 0 40092 301 92 0 547- CMASS3 40093 301 93 0 40094 301 94 0 548- CMASS3 40095 301 95 0 40096 301 96 0 549- CMASS3 40097 301 97 0 40098 301 98 0 550- CMASS3 40099 301 99 0 40100 301 100 0 551- CMASS3 40101 301 101 0 40102 301 102 0 552- CMASS3 40103 301 103 0 40104 301 104 0 553- CMASS3 40105 301 105 0 40106 301 106 0 554- CMASS3 40107 301 107 0 40108 301 108 0 555- CMASS3 40109 301 109 0 40110 301 110 0 556- CMASS3 40111 301 111 0 40112 301 112 0 557- CMASS3 40113 301 113 0 40114 301 114 0 558- CMASS3 40115 301 115 0 40116 301 116 0 559- CMASS3 40117 301 117 0 40118 301 118 0 560- CMASS3 40119 301 119 0 40120 301 120 0 561- CMASS3 40121 301 121 0 40122 301 122 0 562- CMASS3 40123 301 123 0 40124 301 124 0 563- CMASS3 40125 301 125 0 40126 301 126 0 564- CMASS3 40127 301 127 0 40128 301 128 0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 565- CMASS3 40129 301 129 0 40130 301 130 0 566- CMASS3 40131 301 131 0 40132 301 132 0 567- CMASS3 40133 301 133 0 40134 301 134 0 568- CMASS3 40135 301 135 0 40136 301 136 0 569- CMASS3 40137 301 137 0 40138 301 138 0 570- CMASS3 40139 301 139 0 40140 301 140 0 571- CMASS3 40141 301 141 0 40142 301 142 0 572- CMASS3 40143 301 143 0 40144 301 144 0 573- CMASS3 40145 301 145 0 40146 301 146 0 574- CMASS3 40147 301 147 0 40148 301 148 0 575- CMASS3 40149 301 149 0 40150 301 150 0 576- CMASS3 40151 301 151 0 40152 301 152 0 577- CMASS3 40153 301 153 0 40154 301 154 0 578- CMASS3 40155 301 155 0 40156 301 156 0 579- CMASS3 40157 301 157 0 40158 301 158 0 580- CMASS3 40159 301 159 0 40160 301 160 0 581- CMASS3 40161 301 161 0 40162 301 162 0 582- CMASS3 40163 301 163 0 40164 301 164 0 583- CMASS3 40165 301 165 0 40166 301 166 0 584- CMASS3 40167 301 167 0 40168 301 168 0 585- CMASS3 40169 301 169 0 40170 301 170 0 586- CMASS3 40171 301 171 0 40172 301 172 0 587- CMASS3 40173 301 173 0 40174 301 174 0 588- CMASS3 40175 301 175 0 40176 301 176 0 589- CMASS3 40177 301 177 0 40178 301 178 0 590- CMASS3 40179 301 179 0 40180 301 180 0 591- CMASS3 40181 301 181 0 40182 301 182 0 592- CMASS3 40183 301 183 0 40184 301 184 0 593- CMASS3 40185 301 185 0 40186 301 186 0 594- CMASS3 40187 301 187 0 40188 301 188 0 595- CMASS3 40189 301 189 0 40190 301 190 0 596- CMASS3 40191 301 191 0 40192 301 192 0 597- CMASS3 40193 301 193 0 40194 301 194 0 598- CMASS3 40195 301 195 0 40196 301 196 0 599- CMASS3 40197 301 197 0 40198 301 198 0 600- CMASS3 40199 301 199 0 40200 301 200 0 601- CMASS3 40201 301 201 0 40202 301 202 0 602- CMASS3 40203 301 203 0 40204 301 204 0 603- CMASS3 40205 301 205 0 40206 301 206 0 604- CMASS3 40207 301 207 0 40208 301 208 0 605- CMASS3 40209 301 209 0 40210 301 210 0 606- CMASS3 40211 301 211 0 40212 301 212 0 607- CMASS3 40213 301 213 0 40214 301 214 0 608- CMASS3 40215 301 215 0 40216 301 216 0 609- CMASS3 40217 301 217 0 40218 301 218 0 610- CMASS3 40219 301 219 0 40220 301 220 0 611- CMASS3 40221 301 221 0 40222 301 222 0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 612- CMASS3 40223 301 223 0 40224 301 224 0 613- CMASS3 40225 301 225 0 40226 301 226 0 614- CMASS3 40227 301 227 0 40228 301 228 0 615- CMASS3 40229 301 229 0 40230 301 230 0 616- CMASS3 40231 301 231 0 40232 301 232 0 617- CMASS3 40233 301 233 0 40234 301 234 0 618- CMASS3 40235 301 235 0 40236 301 236 0 619- CMASS3 40237 301 237 0 40238 301 238 0 620- CMASS3 40239 301 239 0 40240 301 240 0 621- CMASS3 40241 301 241 0 40242 301 242 0 622- CMASS3 40243 301 243 0 40244 301 244 0 623- CMASS3 40245 301 245 0 40246 301 246 0 624- CMASS3 40247 301 247 0 40248 301 248 0 625- CMASS3 40249 301 249 0 40250 301 250 0 626- CMASS3 40251 301 251 0 40252 301 252 0 627- CMASS3 40253 301 253 0 40254 301 254 0 628- CMASS3 40255 301 255 0 40256 301 256 0 629- CMASS3 40257 301 257 0 40258 301 258 0 630- CMASS3 40259 301 259 0 40260 301 260 0 631- CMASS3 40261 301 261 0 40262 301 262 0 632- CMASS3 40263 301 263 0 40264 301 264 0 633- CMASS3 40265 301 265 0 40266 301 266 0 634- CMASS3 40267 301 267 0 40268 301 268 0 635- CMASS3 40269 301 269 0 40270 301 270 0 636- CMASS3 40271 301 271 0 40272 301 272 0 637- CMASS3 40273 301 273 0 40274 301 274 0 638- CMASS3 40275 301 275 0 40276 301 276 0 639- CMASS3 40277 301 277 0 40278 301 278 0 640- CMASS3 40279 301 279 0 40280 301 280 0 641- CMASS3 40281 301 281 0 40282 301 282 0 642- CMASS3 40283 301 283 0 40284 301 284 0 643- CMASS3 40285 301 285 0 40286 301 286 0 644- CMASS3 40287 301 287 0 40288 301 288 0 645- CMASS3 40289 301 289 0 40290 301 290 0 646- CMASS3 40291 301 291 0 40292 301 292 0 647- CMASS3 40293 301 293 0 40294 301 294 0 648- CMASS3 40295 301 295 0 40296 301 296 0 649- CMASS3 40297 301 297 0 40298 301 298 0 650- CMASS3 40299 301 299 0 40300 301 300 0 651- CMASS3 40301 301 301 0 40302 301 302 0 652- CMASS3 40303 301 303 0 40304 301 304 0 653- CMASS3 40305 301 305 0 40306 301 306 0 654- CMASS3 40307 301 307 0 40308 301 308 0 655- CMASS3 40309 301 309 0 40310 301 310 0 656- CMASS3 40311 301 311 0 40312 301 312 0 657- CMASS3 40313 301 313 0 40314 301 314 0 658- CMASS3 40315 301 315 0 40316 301 316 0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 659- CMASS3 40317 301 317 0 40318 301 318 0 660- CMASS3 40319 301 319 0 40320 301 320 0 661- CMASS3 40321 301 321 0 40322 301 322 0 662- CMASS3 40323 301 323 0 40324 301 324 0 663- CMASS3 40325 301 325 0 40326 301 326 0 664- CMASS3 40327 301 327 0 40328 301 328 0 665- CMASS3 40329 301 329 0 40330 301 330 0 666- CMASS3 40331 301 331 0 40332 301 332 0 667- CMASS3 40333 301 333 0 40334 301 334 0 668- CMASS3 40335 301 335 0 40336 301 336 0 669- CMASS3 40337 301 337 0 40338 301 338 0 670- CMASS3 40339 301 339 0 40340 301 340 0 671- CMASS3 40341 301 341 0 40342 301 342 0 672- CMASS3 40343 301 343 0 40344 301 344 0 673- CMASS3 40345 301 345 0 40346 301 346 0 674- CMASS3 40347 301 347 0 40348 301 348 0 675- CMASS3 40349 301 349 0 40350 301 350 0 676- CMASS3 40351 301 351 0 40352 301 352 0 677- CMASS3 40353 301 353 0 40354 301 354 0 678- CMASS3 40355 301 355 0 40356 301 356 0 679- CMASS3 40357 301 357 0 40358 301 358 0 680- CMASS3 40359 301 359 0 40360 301 360 0 681- CMASS3 40361 301 361 0 40362 301 362 0 682- CMASS3 40363 301 363 0 40364 301 364 0 683- CMASS3 40365 301 365 0 40366 301 366 0 684- CMASS3 40367 301 367 0 40368 301 368 0 685- CMASS3 40369 301 369 0 40370 301 370 0 686- CMASS3 40371 301 371 0 40372 301 372 0 687- CMASS3 40373 301 373 0 40374 301 374 0 688- CMASS3 40375 301 375 0 40376 301 376 0 689- CMASS3 40377 301 377 0 40378 301 378 0 690- CMASS3 40379 301 379 0 40380 301 380 0 691- CMASS3 40381 301 381 0 40382 301 382 0 692- CMASS3 40383 301 383 0 40384 301 384 0 693- CMASS3 40385 301 385 0 40386 301 386 0 694- CMASS3 40387 301 387 0 40388 301 388 0 695- CMASS3 40389 301 389 0 40390 301 390 0 696- CMASS3 40391 301 391 0 40392 301 392 0 697- CMASS3 40393 301 393 0 40394 301 394 0 698- CMASS3 40395 301 395 0 40396 301 396 0 699- CMASS3 40397 301 397 0 40398 301 398 0 700- CMASS3 40399 301 399 0 40400 301 400 0 701- CMASS3 40401 301 401 0 40402 301 402 0 702- CMASS3 40403 301 403 0 40404 301 404 0 703- CMASS3 40405 301 405 0 40406 301 406 0 704- CMASS3 40407 301 407 0 40408 301 408 0 705- CMASS3 40409 301 409 0 40410 301 410 0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 706- CMASS3 40411 301 411 0 40412 301 412 0 707- CMASS3 40413 301 413 0 40414 301 414 0 708- CMASS3 40415 301 415 0 40416 301 416 0 709- CMASS3 40417 301 417 0 40418 301 418 0 710- CMASS3 40419 301 419 0 40420 301 420 0 711- CMASS3 40421 301 421 0 40422 301 422 0 712- CMASS3 40423 301 423 0 40424 301 424 0 713- CMASS3 40425 301 425 0 40426 301 426 0 714- CMASS3 40427 301 427 0 40428 301 428 0 715- CMASS3 40429 301 429 0 40430 301 430 0 716- CMASS3 40431 301 431 0 40432 301 432 0 717- CMASS3 40433 301 433 0 40434 301 434 0 718- CMASS3 40435 301 435 0 40436 301 436 0 719- CMASS3 40437 301 437 0 40438 301 438 0 720- CMASS3 40439 301 439 0 40440 301 440 0 721- CMASS3 40441 301 441 0 40442 301 442 0 722- CMASS3 40443 301 443 0 40444 301 444 0 723- CMASS3 40445 301 445 0 40446 301 446 0 724- CMASS3 40447 301 447 0 40448 301 448 0 725- CMASS3 40449 301 449 0 40450 301 450 0 726- CMASS3 40451 301 451 0 40452 301 452 0 727- CMASS3 40453 301 453 0 40454 301 454 0 728- CMASS3 40455 301 455 0 40456 301 456 0 729- CMASS3 40457 301 457 0 40458 301 458 0 730- CMASS3 40459 301 459 0 40460 301 460 0 731- CMASS3 40461 301 461 0 40462 301 462 0 732- CMASS3 40463 301 463 0 40464 301 464 0 733- CMASS3 40465 301 465 0 40466 301 466 0 734- CMASS3 40467 301 467 0 40468 301 468 0 735- CMASS3 40469 301 469 0 40470 301 470 0 736- CMASS3 40471 301 471 0 40472 301 472 0 737- CMASS3 40473 301 473 0 40474 301 474 0 738- CMASS3 40475 301 475 0 40476 301 476 0 739- CMASS3 40477 301 477 0 40478 301 478 0 740- CMASS3 40479 301 479 0 40480 301 480 0 741- CMASS3 40481 301 481 0 40482 301 482 0 742- CMASS3 40483 301 483 0 40484 301 484 0 743- CMASS3 40485 301 485 0 40486 301 486 0 744- CMASS3 40487 301 487 0 40488 301 488 0 745- CMASS3 40489 301 489 0 40490 301 490 0 746- CMASS3 40491 301 491 0 40492 301 492 0 747- CMASS3 40493 301 493 0 40494 301 494 0 748- CMASS3 40495 301 495 0 40496 301 496 0 749- CMASS3 40497 301 497 0 40498 301 498 0 750- CMASS3 40499 301 499 0 40500 301 500 0 751- CMASS3 40501 301 501 0 40502 301 502 0 752- CMASS3 40503 301 503 0 40504 301 504 0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 753- CMASS3 40505 301 505 0 40506 301 506 0 754- CMASS3 40507 301 507 0 40508 301 508 0 755- CMASS3 40509 301 509 0 40510 301 510 0 756- CMASS3 40511 301 511 0 40512 301 512 0 757- CMASS3 40513 301 513 0 40514 301 514 0 758- CMASS3 40515 301 515 0 40516 301 516 0 759- CMASS3 40517 301 517 0 40518 301 518 0 760- CMASS3 40519 301 519 0 40520 301 520 0 761- CMASS3 40521 301 521 0 40522 301 522 0 762- CMASS3 40523 301 523 0 40524 301 524 0 763- CMASS3 40525 301 525 0 40526 301 526 0 764- CMASS3 40527 301 527 0 40528 301 528 0 765- CMASS3 40529 301 529 0 40530 301 530 0 766- CMASS3 40531 301 531 0 40532 301 532 0 767- CMASS3 40533 301 533 0 40534 301 534 0 768- CMASS3 40535 301 535 0 40536 301 536 0 769- CMASS3 40537 301 537 0 40538 301 538 0 770- CMASS3 40539 301 539 0 40540 301 540 0 771- CMASS3 40541 301 541 0 40542 301 542 0 772- CMASS3 40543 301 543 0 40544 301 544 0 773- CMASS3 40545 301 545 0 40546 301 546 0 774- CMASS3 40547 301 547 0 40548 301 548 0 775- CMASS3 40549 301 549 0 40550 301 550 0 776- CMASS3 40551 301 551 0 40552 301 552 0 777- CMASS3 40553 301 553 0 40554 301 554 0 778- CMASS3 40555 301 555 0 40556 301 556 0 779- CMASS3 40557 301 557 0 40558 301 558 0 780- CMASS3 40559 301 559 0 40560 301 560 0 781- CMASS3 40561 301 561 0 40562 301 562 0 782- CMASS3 40563 301 563 0 40564 301 564 0 783- CMASS3 40565 301 565 0 40566 301 566 0 784- CMASS3 40567 301 567 0 40568 301 568 0 785- CMASS3 40569 301 569 0 40570 301 570 0 786- CMASS3 40571 301 571 0 40572 301 572 0 787- CMASS3 40573 301 573 0 40574 301 574 0 788- CMASS3 40575 301 575 0 40576 301 576 0 789- CMASS3 40577 301 577 0 40578 301 578 0 790- CMASS3 40579 301 579 0 40580 301 580 0 791- CMASS3 40581 301 581 0 40582 301 582 0 792- CMASS3 40583 301 583 0 40584 301 584 0 793- CMASS3 40585 301 585 0 40586 301 586 0 794- CMASS3 40587 301 587 0 40588 301 588 0 795- CMASS3 40589 301 589 0 40590 301 590 0 796- CMASS3 40591 301 591 0 40592 301 592 0 797- CMASS3 40593 301 593 0 40594 301 594 0 798- CMASS3 40595 301 595 0 40596 301 596 0 799- CMASS3 40597 301 597 0 40598 301 598 0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 800- CMASS3 40599 301 599 0 40600 301 600 0 801- CMASS3 40601 301 601 0 40602 301 602 0 802- CMASS3 40603 301 603 0 40604 301 604 0 803- CMASS3 40605 301 605 0 40606 301 606 0 804- CMASS3 40607 301 607 0 40608 301 608 0 805- CMASS3 40609 301 609 0 40610 301 610 0 806- CMASS3 40611 301 611 0 40612 301 612 0 807- CMASS3 40613 301 613 0 40614 301 614 0 808- CMASS3 40615 301 615 0 40616 301 616 0 809- CMASS3 40617 301 617 0 40618 301 618 0 810- CMASS3 40619 301 619 0 40620 301 620 0 811- CMASS3 40621 301 621 0 40622 301 622 0 812- CMASS3 40623 301 623 0 40624 301 624 0 813- CMASS3 40625 301 625 0 40626 301 626 0 814- CMASS3 40627 301 627 0 40628 301 628 0 815- CMASS3 40629 301 629 0 40630 301 630 0 816- CMASS3 40631 301 631 0 40632 301 632 0 817- CMASS3 40633 301 633 0 40634 301 634 0 818- CMASS3 40635 301 635 0 40636 301 636 0 819- CMASS3 40637 301 637 0 40638 301 638 0 820- CMASS3 40639 301 639 0 40640 301 640 0 821- CMASS3 40641 301 641 0 40642 301 642 0 822- CMASS3 40643 301 643 0 40644 301 644 0 823- CMASS3 40645 301 645 0 40646 301 646 0 824- CMASS3 40647 301 647 0 40648 301 648 0 825- CMASS3 40649 301 649 0 40650 301 650 0 826- CMASS3 40651 301 651 0 40652 301 652 0 827- CMASS3 40653 301 653 0 40654 301 654 0 828- CMASS3 40655 301 655 0 40656 301 656 0 829- CMASS3 40657 301 657 0 40658 301 658 0 830- CMASS3 40659 301 659 0 40660 301 660 0 831- CMASS3 40661 301 661 0 40662 301 662 0 832- CMASS3 40663 301 663 0 40664 301 664 0 833- CMASS3 40665 301 665 0 40666 301 666 0 834- CMASS3 40667 301 667 0 40668 301 668 0 835- CMASS3 40669 301 669 0 40670 301 670 0 836- CMASS3 40671 301 671 0 40672 301 672 0 837- CMASS3 40673 301 673 0 40674 301 674 0 838- CMASS3 40675 301 675 0 40676 301 676 0 839- CMASS3 40677 301 677 0 40678 301 678 0 840- CMASS3 40679 301 679 0 40680 301 680 0 841- CMASS3 40681 301 681 0 40682 301 682 0 842- CMASS3 40683 301 683 0 40684 301 684 0 843- CMASS3 40685 301 685 0 40686 301 686 0 844- CMASS3 40687 301 687 0 40688 301 688 0 845- CMASS3 40689 301 689 0 40690 301 690 0 846- CMASS3 40691 301 691 0 40692 301 692 0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 847- CMASS3 40693 301 693 0 40694 301 694 0 848- CMASS3 40695 301 695 0 40696 301 696 0 849- CMASS3 40697 301 697 0 40698 301 698 0 850- CMASS3 40699 301 699 0 40700 301 700 0 851- CMASS3 40701 301 701 0 40702 301 702 0 852- CMASS3 40703 301 703 0 40704 301 704 0 853- CMASS3 40705 301 705 0 40706 301 706 0 854- CMASS3 40707 301 707 0 40708 301 708 0 855- CMASS3 40709 301 709 0 40710 301 710 0 856- CMASS3 40711 301 711 0 40712 301 712 0 857- CMASS3 40713 301 713 0 40714 301 714 0 858- CMASS3 40715 301 715 0 40716 301 716 0 859- CMASS3 40717 301 717 0 40718 301 718 0 860- CMASS3 40719 301 719 0 40720 301 720 0 861- CMASS3 40721 301 721 0 40722 301 722 0 862- CMASS3 40723 301 723 0 40724 301 724 0 863- CMASS3 40725 301 725 0 40726 301 726 0 864- CMASS3 40727 301 727 0 40728 301 728 0 865- CMASS3 40729 301 729 0 40730 301 730 0 866- CMASS3 40731 301 731 0 40732 301 732 0 867- CMASS3 40733 301 733 0 40734 301 734 0 868- CMASS3 40735 301 735 0 40736 301 736 0 869- CMASS3 40737 301 737 0 40738 301 738 0 870- CMASS3 40739 301 739 0 40740 301 740 0 871- CMASS3 40741 301 741 0 40742 301 742 0 872- CMASS3 40743 301 743 0 40744 301 744 0 873- CMASS3 40745 301 745 0 40746 301 746 0 874- CMASS3 40747 301 747 0 40748 301 748 0 875- CMASS3 40749 301 749 0 40750 301 750 0 876- CMASS3 40751 301 751 0 40752 301 752 0 877- CMASS3 40753 301 753 0 40754 301 754 0 878- CMASS3 40755 301 755 0 40756 301 756 0 879- CMASS3 40757 301 757 0 40758 301 758 0 880- CMASS3 40759 301 759 0 40760 301 760 0 881- CMASS3 40761 301 761 0 40762 301 762 0 882- CMASS3 40763 301 763 0 40764 301 764 0 883- CMASS3 40765 301 765 0 40766 301 766 0 884- CMASS3 40767 301 767 0 40768 301 768 0 885- CMASS3 40769 301 769 0 40770 301 770 0 886- CMASS3 40771 301 771 0 40772 301 772 0 887- CMASS3 40773 301 773 0 40774 301 774 0 888- CMASS3 40775 301 775 0 40776 301 776 0 889- CMASS3 40777 301 777 0 40778 301 778 0 890- CMASS3 40779 301 779 0 40780 301 780 0 891- CMASS3 40781 301 781 0 40782 301 782 0 892- CMASS3 40783 301 783 0 40784 301 784 0 893- CMASS3 40785 301 785 0 40786 301 786 0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 894- CMASS3 40787 301 787 0 40788 301 788 0 895- CMASS3 40789 301 789 0 40790 301 790 0 896- CMASS3 40791 301 791 0 40792 301 792 0 897- CMASS3 40793 301 793 0 40794 301 794 0 898- CMASS3 40795 301 795 0 40796 301 796 0 899- CMASS3 40797 301 797 0 40798 301 798 0 900- CMASS3 40799 301 799 0 40800 301 800 0 901- CMASS3 40801 301 801 0 40802 301 802 0 902- CMASS3 40803 301 803 0 40804 301 804 0 903- CMASS3 40805 301 805 0 40806 301 806 0 904- CMASS3 40807 301 807 0 40808 301 808 0 905- CMASS3 40809 301 809 0 40810 301 810 0 906- CMASS3 40811 301 811 0 40812 301 812 0 907- CMASS3 40813 301 813 0 40814 301 814 0 908- CMASS3 40815 301 815 0 40816 301 816 0 909- CMASS3 40817 301 817 0 40818 301 818 0 910- CMASS3 40819 301 819 0 40820 301 820 0 911- CMASS3 40821 301 821 0 40822 301 822 0 912- CMASS3 40823 301 823 0 40824 301 824 0 913- CMASS3 40825 301 825 0 40826 301 826 0 914- CMASS3 40827 301 827 0 40828 301 828 0 915- CMASS3 40829 301 829 0 40830 301 830 0 916- CMASS3 40831 301 831 0 40832 301 832 0 917- CMASS3 40833 301 833 0 40834 301 834 0 918- CMASS3 40835 301 835 0 40836 301 836 0 919- CMASS3 40837 301 837 0 40838 301 838 0 920- CMASS3 40839 301 839 0 40840 301 840 0 921- CMASS3 40841 301 841 0 40842 301 842 0 922- CMASS3 40843 301 843 0 40844 301 844 0 923- CMASS3 40845 301 845 0 40846 301 846 0 924- CMASS3 40847 301 847 0 40848 301 848 0 925- CMASS3 40849 301 849 0 40850 301 850 0 926- CMASS3 40851 301 851 0 40852 301 852 0 927- CMASS3 40853 301 853 0 40854 301 854 0 928- CMASS3 40855 301 855 0 40856 301 856 0 929- CMASS3 40857 301 857 0 40858 301 858 0 930- CMASS3 40859 301 859 0 40860 301 860 0 931- CMASS3 40861 301 861 0 40862 301 862 0 932- CMASS3 40863 301 863 0 40864 301 864 0 933- CMASS3 40865 301 865 0 40866 301 866 0 934- CMASS3 40867 301 867 0 40868 301 868 0 935- CMASS3 40869 301 869 0 40870 301 870 0 936- CMASS3 40871 301 871 0 40872 301 872 0 937- CMASS3 40873 301 873 0 40874 301 874 0 938- CMASS3 40875 301 875 0 40876 301 876 0 939- CMASS3 40877 301 877 0 40878 301 878 0 940- CMASS3 40879 301 879 0 40880 301 880 0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 941- CMASS3 40881 301 881 0 40882 301 882 0 942- CMASS3 40883 301 883 0 40884 301 884 0 943- CMASS3 40885 301 885 0 40886 301 886 0 944- CMASS3 40887 301 887 0 40888 301 888 0 945- CMASS3 40889 301 889 0 40890 301 890 0 946- CMASS3 40891 301 891 0 40892 301 892 0 947- CMASS3 40893 301 893 0 40894 301 894 0 948- CMASS3 40895 301 895 0 40896 301 896 0 949- CMASS3 40897 301 897 0 40898 301 898 0 950- CMASS3 40899 301 899 0 40900 301 900 0 951- CMASS3 40901 301 901 0 40902 301 902 0 952- CMASS3 40903 301 903 0 40904 301 904 0 953- CMASS3 40905 301 905 0 40906 301 906 0 954- CMASS3 40907 301 907 0 40908 301 908 0 955- CMASS3 40909 301 909 0 40910 301 910 0 956- CMASS3 40911 301 911 0 40912 301 912 0 957- CMASS3 40913 301 913 0 40914 301 914 0 958- CMASS3 40915 301 915 0 40916 301 916 0 959- CMASS3 40917 301 917 0 40918 301 918 0 960- CMASS3 40919 301 919 0 40920 301 920 0 961- CMASS3 40921 301 921 0 40922 301 922 0 962- CMASS3 40923 301 923 0 40924 301 924 0 963- CMASS3 40925 301 925 0 40926 301 926 0 964- CMASS3 40927 301 927 0 40928 301 928 0 965- CMASS3 40929 301 929 0 40930 301 930 0 966- CMASS3 40931 301 931 0 40932 301 932 0 967- CMASS3 40933 301 933 0 40934 301 934 0 968- CMASS3 40935 301 935 0 40936 301 936 0 969- CMASS3 40937 301 937 0 40938 301 938 0 970- CMASS3 40939 301 939 0 40940 301 940 0 971- CMASS3 40941 301 941 0 40942 301 942 0 972- CMASS3 40943 301 943 0 40944 301 944 0 973- CMASS3 40945 301 945 0 40946 301 946 0 974- CMASS3 40947 301 947 0 40948 301 948 0 975- CMASS3 40949 301 949 0 40950 301 950 0 976- CMASS3 40951 301 951 0 40952 301 952 0 977- CMASS3 40953 301 953 0 40954 301 954 0 978- CMASS3 40955 301 955 0 40956 301 956 0 979- CMASS3 40957 301 957 0 40958 301 958 0 980- CMASS3 40959 301 959 0 40960 301 960 0 981- CMASS3 40961 301 961 0 40962 301 962 0 982- CMASS3 40963 301 963 0 40964 301 964 0 983- CMASS3 40965 301 965 0 40966 301 966 0 984- CMASS3 40967 301 967 0 40968 301 968 0 985- CMASS3 40969 301 969 0 40970 301 970 0 986- CMASS3 40971 301 971 0 40972 301 972 0 987- CMASS3 40973 301 973 0 40974 301 974 0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 988- CMASS3 40975 301 975 0 40976 301 976 0 989- CMASS3 40977 301 977 0 40978 301 978 0 990- CMASS3 40979 301 979 0 40980 301 980 0 991- CMASS3 40981 301 981 0 40982 301 982 0 992- CMASS3 40983 301 983 0 40984 301 984 0 993- CMASS3 40985 301 985 0 40986 301 986 0 994- CMASS3 40987 301 987 0 40988 301 988 0 995- CMASS3 40989 301 989 0 40990 301 990 0 996- CMASS3 40991 301 991 0 40992 301 992 0 997- CMASS3 40993 301 993 0 40994 301 994 0 998- CMASS3 40995 301 995 0 40996 301 996 0 999- CMASS3 40997 301 997 0 40998 301 998 0 1000- CMASS3 40999 301 999 0 41000 301 1000 0 1001- PELAS 101 1.0+7 10.0 1002- PMASS 301 10.000 1003- TIC 9 2 .2 1004- TIC 9 3 .4 1005- TIC 9 4 .6 1006- TIC 9 5 .8 1007- TIC 9 6 1.0 1008- TIC 9 7 1.2 1009- TIC 9 8 1.4 1010- TIC 9 9 1.6 1011- TIC 9 10 1.8 1012- TIC 9 11 2.0 1013- TIC 9 12 1.8 1014- TIC 9 13 1.6 1015- TIC 9 14 1.4 1016- TIC 9 15 1.2 1017- TIC 9 16 1.0 1018- TIC 9 17 .8 1019- TIC 9 18 .6 1020- TIC 9 19 .4 1021- TIC 9 20 .2 1022- TSTEP 9 50 .5-3 1 ENDDATA 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A TRAVELING WAVE PROBLEM 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS3 ELEMENTS (ELEMENT TYPE 13) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION MASS3 ELEMENTS (ELEMENT TYPE 27) STARTING WITH ID 40002 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPST MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK BGG MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 2 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 2.000000E-01 5.000000E-04 S 2.000000E-01 1.000000E-03 S 2.000000E-01 1.500000E-03 S 2.000000E-01 2.000000E-03 S 2.000000E-01 2.500000E-03 S 2.000000E-01 3.000000E-03 S 1.999998E-01 3.500000E-03 S 1.999990E-01 4.000000E-03 S 1.999956E-01 4.500000E-03 S 1.999835E-01 5.000000E-03 S 1.999446E-01 5.500000E-03 S 1.998319E-01 6.000001E-03 S 1.995340E-01 6.500001E-03 S 1.988126E-01 7.000001E-03 S 1.972024E-01 7.500001E-03 S 1.938779E-01 8.000000E-03 S 1.875103E-01 8.500000E-03 S 1.761744E-01 9.000001E-03 S 1.574026E-01 9.500001E-03 S 1.284937E-01 1.000000E-02 S 8.715715E-02 1.050000E-02 S 3.246389E-02 1.100000E-02 S -3.409207E-02 1.150000E-02 S -1.077998E-01 1.200000E-02 S -1.806858E-01 1.250000E-02 S -2.426100E-01 1.300000E-02 S -2.835702E-01 1.350000E-02 S -2.967559E-01 1.400000E-02 S -2.813740E-01 1.450000E-02 S -2.440163E-01 1.500000E-02 S -1.975956E-01 1.550000E-02 S -1.577016E-01 1.600000E-02 S -1.373513E-01 1.650000E-02 S -1.420684E-01 1.700000E-02 S -1.674549E-01 1.750000E-02 S -2.006427E-01 1.800000E-02 S -2.254013E-01 1.850000E-02 S -2.289192E-01 1.900000E-02 S -2.072501E-01 1.949999E-02 S -1.667930E-01 1.999999E-02 S -1.209343E-01 2.049999E-02 S -8.337127E-02 2.099999E-02 S -6.142456E-02 2.149999E-02 S -5.281368E-02 2.199999E-02 S -4.766349E-02 2.249999E-02 S -3.473721E-02 2.299999E-02 S -8.517647E-03 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 2 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 2.684618E-02 2.399999E-02 S 5.909642E-02 2.449999E-02 S 7.426479E-02 2.499999E-02 S 6.447019E-02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 4 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 6.000000E-01 5.000000E-04 S 6.000000E-01 1.000000E-03 S 6.000000E-01 1.500000E-03 S 6.000000E-01 2.000000E-03 S 5.999995E-01 2.500000E-03 S 5.999969E-01 3.000000E-03 S 5.999851E-01 3.500000E-03 S 5.999399E-01 4.000000E-03 S 5.997904E-01 4.500000E-03 S 5.993536E-01 5.000000E-03 S 5.982147E-01 5.500000E-03 S 5.955372E-01 6.000001E-03 S 5.898156E-01 6.500001E-03 S 5.786372E-01 7.000001E-03 S 5.585829E-01 7.500001E-03 S 5.254398E-01 8.000000E-03 S 4.748784E-01 8.500000E-03 S 4.036039E-01 9.000001E-03 S 3.107565E-01 9.500001E-03 S 1.990760E-01 1.000000E-02 S 7.521704E-02 1.050000E-02 S -5.124467E-02 1.100000E-02 S -1.701098E-01 1.150000E-02 S -2.734966E-01 1.200000E-02 S -3.582492E-01 1.250000E-02 S -4.265984E-01 1.300000E-02 S -4.844747E-01 1.350000E-02 S -5.379733E-01 1.400000E-02 S -5.895417E-01 1.450000E-02 S -6.358776E-01 1.500000E-02 S -6.689011E-01 1.550000E-02 S -6.796689E-01 1.600000E-02 S -6.634405E-01 1.650000E-02 S -6.232280E-01 1.700000E-02 S -5.696836E-01 1.750000E-02 S -5.169850E-01 1.800000E-02 S -4.765571E-01 1.850000E-02 S -4.518040E-01 1.900000E-02 S -4.366774E-01 1.949999E-02 S -4.189520E-01 1.999999E-02 S -3.865716E-01 2.049999E-02 S -3.337749E-01 2.099999E-02 S -2.638749E-01 2.149999E-02 S -1.874562E-01 2.199999E-02 S -1.172585E-01 2.249999E-02 S -6.266554E-02 2.299999E-02 S -2.661881E-02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 4 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -6.096438E-03 2.399999E-02 S 4.815150E-03 2.449999E-02 S 1.147075E-02 2.499999E-02 S 1.676299E-02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 5 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 8.000000E-01 5.000000E-04 S 8.000000E-01 1.000000E-03 S 8.000000E-01 1.500000E-03 S 7.999992E-01 2.000000E-03 S 7.999949E-01 2.500000E-03 S 7.999733E-01 3.000000E-03 S 7.998867E-01 3.500000E-03 S 7.995940E-01 4.000000E-03 S 7.987384E-01 4.500000E-03 S 7.965374E-01 5.000000E-03 S 7.914917E-01 5.500000E-03 S 7.810838E-01 6.000001E-03 S 7.616301E-01 6.500001E-03 S 7.285125E-01 7.000001E-03 S 6.769831E-01 7.500001E-03 S 6.035454E-01 8.000000E-03 S 5.075912E-01 8.500000E-03 S 3.926423E-01 9.000001E-03 S 2.664276E-01 9.500001E-03 S 1.393080E-01 1.000000E-02 S 2.124779E-02 1.050000E-02 S -8.164138E-02 1.100000E-02 S -1.694285E-01 1.150000E-02 S -2.482141E-01 1.200000E-02 S -3.271649E-01 1.250000E-02 S -4.138179E-01 1.300000E-02 S -5.098243E-01 1.350000E-02 S -6.093398E-01 1.400000E-02 S -7.010622E-01 1.450000E-02 S -7.730126E-01 1.500000E-02 S -8.175996E-01 1.550000E-02 S -8.342679E-01 1.600000E-02 S -8.283781E-01 1.650000E-02 S -8.071674E-01 1.700000E-02 S -7.753937E-01 1.750000E-02 S -7.334365E-01 1.800000E-02 S -6.790191E-01 1.850000E-02 S -6.112984E-01 1.900000E-02 S -5.343794E-01 1.949999E-02 S -4.575346E-01 1.999999E-02 S -3.914919E-01 2.049999E-02 S -3.428312E-01 2.099999E-02 S -3.100227E-01 2.149999E-02 S -2.838856E-01 2.199999E-02 S -2.525902E-01 2.249999E-02 S -2.084266E-01 2.299999E-02 S -1.523059E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 5 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -9.323521E-02 2.399999E-02 S -4.307547E-02 2.449999E-02 S -9.814604E-03 2.499999E-02 S 6.520586E-03 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 6 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 1.000000E+00 5.000000E-04 S 9.999999E-01 1.000000E-03 S 9.999991E-01 1.500000E-03 S 9.999921E-01 2.000000E-03 S 9.999532E-01 2.500000E-03 S 9.997867E-01 3.000000E-03 S 9.992087E-01 3.500000E-03 S 9.975169E-01 4.000000E-03 S 9.932414E-01 4.500000E-03 S 9.837537E-01 5.000000E-03 S 9.650443E-01 5.500000E-03 S 9.319757E-01 6.000001E-03 S 8.792740E-01 6.500001E-03 S 8.032469E-01 7.000001E-03 S 7.037528E-01 7.500001E-03 S 5.855225E-01 8.000000E-03 S 4.578661E-01 8.500000E-03 S 3.323105E-01 9.000001E-03 S 2.187158E-01 9.500001E-03 S 1.214363E-01 1.000000E-02 S 3.747671E-02 1.050000E-02 S -4.207973E-02 1.100000E-02 S -1.276788E-01 1.150000E-02 S -2.259402E-01 1.200000E-02 S -3.361223E-01 1.250000E-02 S -4.504136E-01 1.300000E-02 S -5.579979E-01 1.350000E-02 S -6.506143E-01 1.400000E-02 S -7.263325E-01 1.450000E-02 S -7.892278E-01 1.500000E-02 S -8.451061E-01 1.550000E-02 S -8.959538E-01 1.600000E-02 S -9.367247E-01 1.650000E-02 S -9.567593E-01 1.700000E-02 S -9.452867E-01 1.750000E-02 S -8.978496E-01 1.800000E-02 S -8.198157E-01 1.850000E-02 S -7.248560E-01 1.900000E-02 S -6.293044E-01 1.949999E-02 S -5.457208E-01 1.999999E-02 S -4.792122E-01 2.049999E-02 S -4.280668E-01 2.099999E-02 S -3.874177E-01 2.149999E-02 S -3.529460E-01 2.199999E-02 S -3.221437E-01 2.249999E-02 S -2.929160E-01 2.299999E-02 S -2.615582E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 6 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -2.226805E-01 2.399999E-02 S -1.720253E-01 2.449999E-02 S -1.105208E-01 2.499999E-02 S -4.634988E-02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 10 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 1.800000E+00 5.000000E-04 S 1.797927E+00 1.000000E-03 S 1.787102E+00 1.500000E-03 S 1.755303E+00 2.000000E-03 S 1.690605E+00 2.500000E-03 S 1.589987E+00 3.000000E-03 S 1.464497E+00 3.500000E-03 S 1.334881E+00 4.000000E-03 S 1.220342E+00 4.500000E-03 S 1.127921E+00 5.000000E-03 S 1.049639E+00 5.500000E-03 S 9.691646E-01 6.000001E-03 S 8.733443E-01 6.500001E-03 S 7.607322E-01 7.000001E-03 S 6.416159E-01 7.500001E-03 S 5.300467E-01 8.000000E-03 S 4.338370E-01 8.500000E-03 S 3.495873E-01 9.000001E-03 S 2.659540E-01 9.500001E-03 S 1.724412E-01 1.000000E-02 S 6.725135E-02 1.050000E-02 S -4.130216E-02 1.100000E-02 S -1.405079E-01 1.150000E-02 S -2.217086E-01 1.200000E-02 S -2.853948E-01 1.250000E-02 S -3.395713E-01 1.300000E-02 S -3.930537E-01 1.350000E-02 S -4.489467E-01 1.400000E-02 S -5.031651E-01 1.450000E-02 S -5.488954E-01 1.500000E-02 S -5.833790E-01 1.550000E-02 S -6.116607E-01 1.600000E-02 S -6.442282E-01 1.650000E-02 S -6.900287E-01 1.700000E-02 S -7.498215E-01 1.750000E-02 S -8.146790E-01 1.800000E-02 S -8.708181E-01 1.850000E-02 S -9.074854E-01 1.900000E-02 S -9.225335E-01 1.949999E-02 S -9.220529E-01 1.999999E-02 S -9.146458E-01 2.049999E-02 S -9.045979E-01 2.099999E-02 S -8.887582E-01 2.149999E-02 S -8.591183E-01 2.199999E-02 S -8.090271E-01 2.249999E-02 S -7.385848E-01 2.299999E-02 S -6.556048E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 10 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -5.718018E-01 2.399999E-02 S -4.970895E-01 2.449999E-02 S -4.357861E-01 2.499999E-02 S -3.866993E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 12 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 1.800000E+00 5.000000E-04 S 1.797927E+00 1.000000E-03 S 1.787102E+00 1.500000E-03 S 1.755303E+00 2.000000E-03 S 1.690605E+00 2.500000E-03 S 1.589987E+00 3.000000E-03 S 1.464497E+00 3.500000E-03 S 1.334882E+00 4.000000E-03 S 1.220344E+00 4.500000E-03 S 1.127929E+00 5.000000E-03 S 1.049666E+00 5.500000E-03 S 9.692486E-01 6.000001E-03 S 8.735773E-01 6.500001E-03 S 7.613259E-01 7.000001E-03 S 6.430146E-01 7.500001E-03 S 5.331078E-01 8.000000E-03 S 4.400819E-01 8.500000E-03 S 3.615001E-01 9.000001E-03 S 2.872527E-01 9.500001E-03 S 2.081943E-01 1.000000E-02 S 1.236727E-01 1.050000E-02 S 4.246569E-02 1.100000E-02 S -2.346244E-02 1.150000E-02 S -6.781024E-02 1.200000E-02 S -9.505592E-02 1.250000E-02 S -1.182763E-01 1.300000E-02 S -1.512924E-01 1.350000E-02 S -2.006232E-01 1.400000E-02 S -2.625974E-01 1.450000E-02 S -3.271393E-01 1.500000E-02 S -3.850937E-01 1.550000E-02 S -4.338149E-01 1.600000E-02 S -4.774528E-01 1.650000E-02 S -5.224614E-01 1.700000E-02 S -5.721989E-01 1.750000E-02 S -6.247362E-01 1.800000E-02 S -6.751533E-01 1.850000E-02 S -7.200260E-01 1.900000E-02 S -7.602227E-01 1.949999E-02 S -7.996759E-01 1.999999E-02 S -8.411381E-01 2.049999E-02 S -8.824293E-01 2.099999E-02 S -9.163634E-01 2.149999E-02 S -9.346734E-01 2.199999E-02 S -9.330769E-01 2.249999E-02 S -9.136242E-01 2.299999E-02 S -8.824862E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 12 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -8.448462E-01 2.399999E-02 S -8.008913E-01 2.449999E-02 S -7.461870E-01 2.499999E-02 S -6.764216E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 14 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 1.400000E+00 5.000000E-04 S 1.399989E+00 1.000000E-03 S 1.399878E+00 1.500000E-03 S 1.399263E+00 2.000000E-03 S 1.396911E+00 2.500000E-03 S 1.390008E+00 3.000000E-03 S 1.373571E+00 3.500000E-03 S 1.340733E+00 4.000000E-03 S 1.284532E+00 4.500000E-03 S 1.201017E+00 5.000000E-03 S 1.092389E+00 5.500000E-03 S 9.681978E-01 6.000001E-03 S 8.431584E-01 6.500001E-03 S 7.319025E-01 7.000001E-03 S 6.430621E-01 7.500001E-03 S 5.759653E-01 8.000000E-03 S 5.220922E-01 8.500000E-03 S 4.706844E-01 9.000001E-03 S 4.152273E-01 9.500001E-03 S 3.567752E-01 1.000000E-02 S 3.019874E-01 1.050000E-02 S 2.572139E-01 1.100000E-02 S 2.227143E-01 1.150000E-02 S 1.911625E-01 1.200000E-02 S 1.517596E-01 1.250000E-02 S 9.737088E-02 1.300000E-02 S 2.980537E-02 1.350000E-02 S -4.062866E-02 1.400000E-02 S -1.013719E-01 1.450000E-02 S -1.457147E-01 1.500000E-02 S -1.773312E-01 1.550000E-02 S -2.080542E-01 1.600000E-02 S -2.502044E-01 1.650000E-02 S -3.085220E-01 1.700000E-02 S -3.771063E-01 1.750000E-02 S -4.434403E-01 1.800000E-02 S -4.967796E-01 1.850000E-02 S -5.352274E-01 1.900000E-02 S -5.667236E-01 1.949999E-02 S -6.033499E-01 1.999999E-02 S -6.529068E-01 2.049999E-02 S -7.135251E-01 2.099999E-02 S -7.748904E-01 2.149999E-02 S -8.250577E-01 2.199999E-02 S -8.580109E-01 2.249999E-02 S -8.767303E-01 2.299999E-02 S -8.897819E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 14 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -9.040138E-01 2.399999E-02 S -9.186167E-01 2.449999E-02 S -9.247617E-01 2.499999E-02 S -9.110588E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 16 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 1.000000E+00 5.000000E-04 S 1.000000E+00 1.000000E-03 S 9.999996E-01 1.500000E-03 S 9.999961E-01 2.000000E-03 S 9.999766E-01 2.500000E-03 S 9.998934E-01 3.000000E-03 S 9.996044E-01 3.500000E-03 S 9.987585E-01 4.000000E-03 S 9.966207E-01 4.500000E-03 S 9.918768E-01 5.000000E-03 S 9.825222E-01 5.500000E-03 S 9.659878E-01 6.000001E-03 S 9.396369E-01 6.500001E-03 S 9.016234E-01 7.000001E-03 S 8.518763E-01 7.500001E-03 S 7.927610E-01 8.000000E-03 S 7.289321E-01 8.500000E-03 S 6.661525E-01 9.000001E-03 S 6.093503E-01 9.500001E-03 S 5.606978E-01 1.000000E-02 S 5.186869E-01 1.050000E-02 S 4.788362E-01 1.100000E-02 S 4.358766E-01 1.150000E-02 S 3.864088E-01 1.200000E-02 S 3.306412E-01 1.250000E-02 S 2.721987E-01 1.300000E-02 S 2.160326E-01 1.350000E-02 S 1.655702E-01 1.400000E-02 S 1.207588E-01 1.450000E-02 S 7.818323E-02 1.500000E-02 S 3.320773E-02 1.550000E-02 S -1.715590E-02 1.600000E-02 S -7.243516E-02 1.650000E-02 S -1.290782E-01 1.700000E-02 S -1.827828E-01 1.750000E-02 S -2.312724E-01 1.800000E-02 S -2.757182E-01 1.850000E-02 S -3.198912E-01 1.900000E-02 S -3.676163E-01 1.949999E-02 S -4.202256E-01 1.999999E-02 S -4.757032E-01 2.049999E-02 S -5.300686E-01 2.099999E-02 S -5.800328E-01 2.149999E-02 S -6.251019E-01 2.199999E-02 S -6.676880E-01 2.249999E-02 S -7.111528E-01 2.299999E-02 S -7.571254E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 16 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -8.039213E-01 2.399999E-02 S -8.471164E-01 2.449999E-02 S -8.818358E-01 2.499999E-02 S -9.051509E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 18 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 6.000000E-01 5.000000E-04 S 6.000054E-01 1.000000E-03 S 6.000610E-01 1.500000E-03 S 6.003687E-01 2.000000E-03 S 6.015443E-01 2.500000E-03 S 6.049935E-01 3.000000E-03 S 6.132034E-01 3.500000E-03 S 6.295885E-01 4.000000E-03 S 6.575766E-01 4.500000E-03 S 6.990065E-01 5.000000E-03 S 7.524667E-01 5.500000E-03 S 8.125540E-01 6.000001E-03 S 8.707821E-01 6.500001E-03 S 9.180257E-01 7.000001E-03 S 9.474029E-01 7.500001E-03 S 9.560875E-01 8.000000E-03 S 9.450853E-01 8.500000E-03 S 9.172885E-01 9.000001E-03 S 8.752737E-01 9.500001E-03 S 8.204954E-01 1.000000E-02 S 7.544727E-01 1.050000E-02 S 6.809542E-01 1.100000E-02 S 6.070179E-01 1.150000E-02 S 5.415317E-01 1.200000E-02 S 4.912033E-01 1.250000E-02 S 4.564521E-01 1.300000E-02 S 4.300266E-01 1.350000E-02 S 3.999715E-01 1.400000E-02 S 3.558412E-01 1.450000E-02 S 2.947007E-01 1.500000E-02 S 2.231410E-01 1.550000E-02 S 1.537081E-01 1.600000E-02 S 9.759292E-02 1.650000E-02 S 5.793717E-02 1.700000E-02 S 2.795235E-02 1.750000E-02 S -4.851677E-03 1.800000E-02 S -5.088966E-02 1.850000E-02 S -1.120615E-01 1.900000E-02 S -1.807438E-01 1.949999E-02 S -2.448371E-01 1.999999E-02 S -2.955827E-01 2.049999E-02 S -3.330705E-01 2.099999E-02 S -3.659039E-01 2.149999E-02 S -4.053376E-01 2.199999E-02 S -4.578297E-01 2.249999E-02 S -5.209293E-01 2.299999E-02 S -5.851241E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 18 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -6.402619E-01 2.399999E-02 S -6.821428E-01 2.449999E-02 S -7.148568E-01 2.499999E-02 S -7.473989E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 20 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 2.000000E-01 5.000000E-04 S 2.010363E-01 1.000000E-03 S 2.064490E-01 1.500000E-03 S 2.223486E-01 2.000000E-03 S 2.546977E-01 2.500000E-03 S 3.050067E-01 3.000000E-03 S 3.677514E-01 3.500000E-03 S 4.325583E-01 4.000000E-03 S 4.898247E-01 4.500000E-03 S 5.360226E-01 5.000000E-03 S 5.751243E-01 5.500000E-03 S 6.152461E-01 6.000001E-03 S 6.628502E-01 6.500001E-03 S 7.184113E-01 7.000001E-03 S 7.762957E-01 7.500001E-03 S 8.285968E-01 8.000000E-03 S 8.699627E-01 8.500000E-03 S 8.999402E-01 9.000001E-03 S 9.213197E-01 9.500001E-03 S 9.359522E-01 1.000000E-02 S 9.413618E-01 1.050000E-02 S 9.309060E-01 1.100000E-02 S 8.976805E-01 1.150000E-02 S 8.396563E-01 1.200000E-02 S 7.625707E-01 1.250000E-02 S 6.785023E-01 1.300000E-02 S 6.008325E-01 1.350000E-02 S 5.385284E-01 1.400000E-02 S 4.929370E-01 1.450000E-02 S 4.585474E-01 1.500000E-02 S 4.267458E-01 1.550000E-02 S 3.900952E-01 1.600000E-02 S 3.449168E-01 1.650000E-02 S 2.914712E-01 1.700000E-02 S 2.325777E-01 1.750000E-02 S 1.720247E-01 1.800000E-02 S 1.135298E-01 1.850000E-02 S 6.008010E-02 1.900000E-02 S 1.314841E-02 1.949999E-02 S -2.822081E-02 1.999999E-02 S -6.771046E-02 2.049999E-02 S -1.105603E-01 2.099999E-02 S -1.609545E-01 2.149999E-02 S -2.192941E-01 2.199999E-02 S -2.812855E-01 2.249999E-02 S -3.399476E-01 2.299999E-02 S -3.897291E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 20 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -4.302279E-01 2.399999E-02 S -4.668834E-01 2.449999E-02 S -5.078064E-01 2.499999E-02 S -5.585265E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 22 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 1.036297E-03 1.000000E-03 S 6.448957E-03 1.500000E-03 S 2.234865E-02 2.000000E-03 S 5.469774E-02 2.500000E-03 S 1.050067E-01 3.000000E-03 S 1.677516E-01 3.500000E-03 S 2.325593E-01 4.000000E-03 S 2.898291E-01 4.500000E-03 S 3.360392E-01 5.000000E-03 S 3.751797E-01 5.500000E-03 S 4.154142E-01 6.000001E-03 S 4.633162E-01 6.500001E-03 S 5.195987E-01 7.000001E-03 S 5.790933E-01 7.500001E-03 S 6.347188E-01 8.000000E-03 S 6.824524E-01 8.500000E-03 S 7.237657E-01 9.000001E-03 S 7.639171E-01 9.500001E-03 S 8.074585E-01 1.000000E-02 S 8.542047E-01 1.050000E-02 S 8.984423E-01 1.100000E-02 S 9.317729E-01 1.150000E-02 S 9.474572E-01 1.200000E-02 S 9.432592E-01 1.250000E-02 S 9.211190E-01 1.300000E-02 S 8.844186E-01 1.350000E-02 S 8.353205E-01 1.400000E-02 S 7.743906E-01 1.450000E-02 S 7.027317E-01 1.500000E-02 S 6.246831E-01 1.550000E-02 S 5.484668E-01 1.600000E-02 S 4.835350E-01 1.650000E-02 S 4.358509E-01 1.700000E-02 S 4.041026E-01 1.750000E-02 S 3.795864E-01 1.800000E-02 S 3.502883E-01 1.850000E-02 S 3.069992E-01 1.900000E-02 S 2.479411E-01 1.949999E-02 S 1.792513E-01 1.999999E-02 S 1.111955E-01 2.049999E-02 S 5.248595E-02 2.099999E-02 S 6.008454E-03 2.149999E-02 S -3.185295E-02 2.199999E-02 S -6.839571E-02 2.249999E-02 S -1.103272E-01 2.299999E-02 S -1.605586E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 22 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -2.175282E-01 2.399999E-02 S -2.768478E-01 2.449999E-02 S -3.338889E-01 2.499999E-02 S -3.858312E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 24 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 5.341882E-06 1.000000E-03 S 6.100017E-05 1.500000E-03 S 3.687272E-04 2.000000E-03 S 1.544845E-03 2.500000E-03 S 4.996617E-03 3.000000E-03 S 1.321833E-02 3.500000E-03 S 2.964850E-02 4.000000E-03 S 5.778622E-02 4.500000E-03 S 9.965292E-02 5.000000E-03 S 1.542519E-01 5.500000E-03 S 2.170168E-01 6.000001E-03 S 2.809666E-01 6.500001E-03 S 3.393884E-01 7.000001E-03 S 3.888200E-01 7.500001E-03 S 4.306477E-01 8.000000E-03 S 4.702069E-01 8.500000E-03 S 5.136846E-01 9.000001E-03 S 5.645174E-01 9.500001E-03 S 6.214199E-01 1.000000E-02 S 6.792572E-01 1.050000E-02 S 7.322027E-01 1.100000E-02 S 7.771376E-01 1.150000E-02 S 8.150524E-01 1.200000E-02 S 8.495089E-01 1.250000E-02 S 8.831770E-01 1.300000E-02 S 9.147737E-01 1.350000E-02 S 9.385077E-01 1.400000E-02 S 9.465010E-01 1.450000E-02 S 9.327147E-01 1.500000E-02 S 8.959718E-01 1.550000E-02 S 8.403403E-01 1.600000E-02 S 7.729259E-01 1.650000E-02 S 7.007511E-01 1.700000E-02 S 6.287532E-01 1.750000E-02 S 5.598412E-01 1.800000E-02 S 4.962709E-01 1.850000E-02 S 4.406257E-01 1.900000E-02 S 3.951437E-01 1.949999E-02 S 3.596787E-01 1.999999E-02 S 3.300071E-01 2.049999E-02 S 2.983392E-01 2.099999E-02 S 2.565179E-01 2.149999E-02 S 2.003841E-01 2.199999E-02 S 1.326146E-01 2.249999E-02 S 6.193501E-02 2.299999E-02 S -1.255329E-03 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 24 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -5.049701E-02 2.399999E-02 S -8.683186E-02 2.449999E-02 S -1.181399E-01 2.499999E-02 S -1.546051E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 26 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 2.753621E-08 1.000000E-03 S 4.575246E-07 1.500000E-03 S 3.951048E-06 2.000000E-03 S 2.342787E-05 2.500000E-03 S 1.066403E-04 3.000000E-03 S 3.956272E-04 3.500000E-03 S 1.241516E-03 4.000000E-03 S 3.379296E-03 4.500000E-03 S 8.123136E-03 5.000000E-03 S 1.747783E-02 5.500000E-03 S 3.401216E-02 6.000001E-03 S 6.036302E-02 6.500001E-03 S 9.837656E-02 7.000001E-03 S 1.481236E-01 7.500001E-03 S 2.072386E-01 8.000000E-03 S 2.710666E-01 8.500000E-03 S 3.338439E-01 9.000001E-03 S 3.906396E-01 9.500001E-03 S 4.392751E-01 1.000000E-02 S 4.812445E-01 1.050000E-02 S 5.209986E-01 1.100000E-02 S 5.637447E-01 1.150000E-02 S 6.127631E-01 1.200000E-02 S 6.676286E-01 1.250000E-02 S 7.243420E-01 1.300000E-02 S 7.773429E-01 1.350000E-02 S 8.222662E-01 1.400000E-02 S 8.578080E-01 1.450000E-02 S 8.855462E-01 1.500000E-02 S 9.078065E-01 1.550000E-02 S 9.249170E-01 1.600000E-02 S 9.336708E-01 1.650000E-02 S 9.281455E-01 1.700000E-02 S 9.025937E-01 1.750000E-02 S 8.548018E-01 1.800000E-02 S 7.879553E-01 1.850000E-02 S 7.099068E-01 1.900000E-02 S 6.302618E-01 1.949999E-02 S 5.569333E-01 1.999999E-02 S 4.939697E-01 2.049999E-02 S 4.415077E-01 2.099999E-02 S 3.973182E-01 2.149999E-02 S 3.585570E-01 2.199999E-02 S 3.225475E-01 2.249999E-02 S 2.864743E-01 2.299999E-02 S 2.468962E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 26 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 2.001918E-01 2.399999E-02 S 1.442204E-01 2.449999E-02 S 8.024967E-02 2.499999E-02 S 1.355148E-02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 28 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 1.419430E-10 1.000000E-03 S 3.095995E-09 1.500000E-03 S 3.476829E-08 2.000000E-03 S 2.665547E-07 2.500000E-03 S 1.563009E-06 3.000000E-03 S 7.452692E-06 3.500000E-03 S 3.001892E-05 4.000000E-03 S 1.048187E-04 4.500000E-03 S 3.232342E-04 5.000000E-03 S 8.926425E-04 5.500000E-03 S 2.231439E-03 6.000001E-03 S 5.092412E-03 6.500001E-03 S 1.068204E-02 7.000001E-03 S 2.071070E-02 7.500001E-03 S 3.728655E-02 8.000000E-03 S 6.257898E-02 8.500000E-03 S 9.824612E-02 9.000001E-03 S 1.447414E-01 9.500001E-03 S 2.007437E-01 1.000000E-02 S 2.630195E-01 1.050000E-02 S 3.269516E-01 1.100000E-02 S 3.877303E-01 1.150000E-02 S 4.418766E-01 1.200000E-02 S 4.884985E-01 1.250000E-02 S 5.296552E-01 1.300000E-02 S 5.695024E-01 1.350000E-02 S 6.124359E-01 1.400000E-02 S 6.609933E-01 1.450000E-02 S 7.144975E-01 1.500000E-02 S 7.691550E-01 1.550000E-02 S 8.196149E-01 1.600000E-02 S 8.612108E-01 1.650000E-02 S 8.916873E-01 1.700000E-02 S 9.114488E-01 1.750000E-02 S 9.221938E-01 1.800000E-02 S 9.247667E-01 1.850000E-02 S 9.175997E-01 1.900000E-02 S 8.968557E-01 1.949999E-02 S 8.584104E-01 1.999999E-02 S 8.006791E-01 2.049999E-02 S 7.266707E-01 2.099999E-02 S 6.439676E-01 2.149999E-02 S 5.624333E-01 2.199999E-02 S 4.907136E-01 2.249999E-02 S 4.332642E-01 2.299999E-02 S 3.893180E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 28 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 3.540983E-01 2.399999E-02 S 3.213845E-01 2.449999E-02 S 2.859658E-01 2.499999E-02 S 2.448725E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 30 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 7.316847E-13 1.000000E-03 S 1.976111E-11 1.500000E-03 S 2.732149E-10 2.000000E-03 S 2.568786E-09 2.500000E-03 S 1.842298E-08 3.000000E-03 S 1.072459E-07 3.500000E-03 S 5.267838E-07 4.000000E-03 S 2.241700E-06 4.500000E-03 S 8.423373E-06 5.000000E-03 S 2.835150E-05 5.500000E-03 S 8.643097E-05 6.000001E-03 S 2.407648E-04 6.500001E-03 S 6.172184E-04 7.000001E-03 S 1.464671E-03 7.500001E-03 S 3.232914E-03 8.000000E-03 S 6.664257E-03 8.500000E-03 S 1.287318E-02 9.000001E-03 S 2.336930E-02 9.500001E-03 S 3.996704E-02 1.000000E-02 S 6.453443E-02 1.050000E-02 S 9.857380E-02 1.100000E-02 S 1.426997E-01 1.150000E-02 S 1.961637E-01 1.200000E-02 S 2.566326E-01 1.250000E-02 S 3.204101E-01 1.300000E-02 S 3.831763E-01 1.350000E-02 S 4.411136E-01 1.400000E-02 S 4.920754E-01 1.450000E-02 S 5.363302E-01 1.500000E-02 S 5.764828E-01 1.550000E-02 S 6.164597E-01 1.600000E-02 S 6.598482E-01 1.650000E-02 S 7.082295E-01 1.700000E-02 S 7.602433E-01 1.750000E-02 S 8.118554E-01 1.800000E-02 S 8.577665E-01 1.850000E-02 S 8.933265E-01 1.900000E-02 S 9.160266E-01 1.949999E-02 S 9.258191E-01 1.999999E-02 S 9.241289E-01 2.049999E-02 S 9.121538E-01 2.099999E-02 S 8.895078E-01 2.149999E-02 S 8.541276E-01 2.199999E-02 S 8.036714E-01 2.249999E-02 S 7.377344E-01 2.299999E-02 S 6.596111E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 30 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 5.764343E-01 2.399999E-02 S 4.973155E-01 2.449999E-02 S 4.301952E-01 2.499999E-02 S 3.788729E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 40 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 2.663014E-24 1.000000E-03 S 1.411090E-22 1.500000E-03 S 3.783356E-21 2.000000E-03 S 6.836586E-20 2.500000E-03 S 9.358414E-19 3.000000E-03 S 1.034294E-17 3.500000E-03 S 9.606728E-17 4.000000E-03 S 7.707984E-16 4.500000E-03 S 5.450389E-15 5.000000E-03 S 3.448476E-14 5.500000E-03 S 1.975619E-13 6.000001E-03 S 1.034673E-12 6.500001E-03 S 4.992576E-12 7.000001E-03 S 2.234080E-11 7.500001E-03 S 9.322124E-11 8.000000E-03 S 3.644298E-10 8.500000E-03 S 1.340156E-09 9.000001E-03 S 4.652307E-09 9.500001E-03 S 1.529295E-08 1.000000E-02 S 4.773123E-08 1.050000E-02 S 1.417895E-07 1.100000E-02 S 4.017368E-07 1.150000E-02 S 1.087725E-06 1.200000E-02 S 2.819116E-06 1.250000E-02 S 7.004569E-06 1.300000E-02 S 1.670759E-05 1.350000E-02 S 3.830343E-05 1.400000E-02 S 8.449369E-05 1.450000E-02 S 1.795125E-04 1.500000E-02 S 3.676406E-04 1.550000E-02 S 7.263440E-04 1.600000E-02 S 1.385300E-03 1.650000E-02 S 2.552022E-03 1.700000E-02 S 4.543450E-03 1.750000E-02 S 7.820583E-03 1.800000E-02 S 1.301988E-02 1.850000E-02 S 2.097135E-02 1.900000E-02 S 3.268982E-02 1.949999E-02 S 4.932455E-02 1.999999E-02 S 7.205509E-02 2.049999E-02 S 1.019298E-01 2.099999E-02 S 1.396576E-01 2.149999E-02 S 1.853842E-01 2.199999E-02 S 2.385010E-01 2.249999E-02 S 2.975496E-01 2.299999E-02 S 3.602812E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 40 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 4.239054E-01 2.399999E-02 S 4.855189E-01 2.449999E-02 S 5.426449E-01 2.499999E-02 S 5.937552E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 50 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 9.692211E-36 1.000000E-03 S 7.653863E-34 1.500000E-03 S 3.046266E-32 2.000000E-03 S 8.143689E-31 2.500000E-03 S 1.644398E-29 3.000000E-03 S 2.674122E-28 3.500000E-03 S 3.646797E-27 4.000000E-03 S 4.288266E-26 4.500000E-03 S 4.437156E-25 5.000000E-03 S 4.102858E-24 5.500000E-03 S 3.431593E-23 6.000001E-03 S 2.621665E-22 6.500001E-03 S 1.844253E-21 7.000001E-03 S 1.202660E-20 7.500001E-03 S 7.311678E-20 8.000000E-03 S 4.164505E-19 8.500000E-03 S 2.231615E-18 9.000001E-03 S 1.129251E-17 9.500001E-03 S 5.413665E-17 1.000000E-02 S 2.465900E-16 1.050000E-02 S 1.069943E-15 1.100000E-02 S 4.432509E-15 1.150000E-02 S 1.756893E-14 1.200000E-02 S 6.675194E-14 1.250000E-02 S 2.435268E-13 1.300000E-02 S 8.544149E-13 1.350000E-02 S 2.886998E-12 1.400000E-02 S 9.406852E-12 1.450000E-02 S 2.959239E-11 1.500000E-02 S 8.997669E-11 1.550000E-02 S 2.646869E-10 1.600000E-02 S 7.540354E-10 1.650000E-02 S 2.082001E-09 1.700000E-02 S 5.576280E-09 1.750000E-02 S 1.449776E-08 1.800000E-02 S 3.661376E-08 1.850000E-02 S 8.987653E-08 1.900000E-02 S 2.145643E-07 1.949999E-02 S 4.984357E-07 1.999999E-02 S 1.127234E-06 2.049999E-02 S 2.482946E-06 2.099999E-02 S 5.329031E-06 2.149999E-02 S 1.114859E-05 2.199999E-02 S 2.274210E-05 2.249999E-02 S 4.524950E-05 2.299999E-02 S 8.783948E-05 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 50 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 1.664044E-04 2.399999E-02 S 3.077034E-04 2.449999E-02 S 5.554855E-04 2.499999E-02 S 9.791619E-04 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 100 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 0.0 1.000000E-03 S 0.0 1.500000E-03 S 0.0 2.000000E-03 S 0.0 2.500000E-03 S 0.0 3.000000E-03 S 0.0 3.500000E-03 S 0.0 4.000000E-03 S 0.0 4.500000E-03 S 0.0 5.000000E-03 S 0.0 5.500000E-03 S 0.0 6.000001E-03 S 0.0 6.500001E-03 S 0.0 7.000001E-03 S 0.0 7.500001E-03 S 0.0 8.000000E-03 S 0.0 8.500000E-03 S 0.0 9.000001E-03 S 0.0 9.500001E-03 S 0.0 1.000000E-02 S 0.0 1.050000E-02 S 0.0 1.100000E-02 S 0.0 1.150000E-02 S 0.0 1.200000E-02 S 0.0 1.250000E-02 S 0.0 1.300000E-02 S 0.0 1.350000E-02 S 0.0 1.400000E-02 S 0.0 1.450000E-02 S 0.0 1.500000E-02 S 0.0 1.550000E-02 S 0.0 1.600000E-02 S 0.0 1.650000E-02 S 0.0 1.700000E-02 S 0.0 1.750000E-02 S 0.0 1.800000E-02 S 0.0 1.850000E-02 S 0.0 1.900000E-02 S 0.0 1.949999E-02 S 0.0 1.999999E-02 S 0.0 2.049999E-02 S 0.0 2.099999E-02 S 0.0 2.149999E-02 S 0.0 2.199999E-02 S 0.0 2.249999E-02 S 0.0 2.299999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 100 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 0.0 2.399999E-02 S 0.0 2.449999E-02 S 0.0 2.499999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 200 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 0.0 1.000000E-03 S 0.0 1.500000E-03 S 0.0 2.000000E-03 S 0.0 2.500000E-03 S 0.0 3.000000E-03 S 0.0 3.500000E-03 S 0.0 4.000000E-03 S 0.0 4.500000E-03 S 0.0 5.000000E-03 S 0.0 5.500000E-03 S 0.0 6.000001E-03 S 0.0 6.500001E-03 S 0.0 7.000001E-03 S 0.0 7.500001E-03 S 0.0 8.000000E-03 S 0.0 8.500000E-03 S 0.0 9.000001E-03 S 0.0 9.500001E-03 S 0.0 1.000000E-02 S 0.0 1.050000E-02 S 0.0 1.100000E-02 S 0.0 1.150000E-02 S 0.0 1.200000E-02 S 0.0 1.250000E-02 S 0.0 1.300000E-02 S 0.0 1.350000E-02 S 0.0 1.400000E-02 S 0.0 1.450000E-02 S 0.0 1.500000E-02 S 0.0 1.550000E-02 S 0.0 1.600000E-02 S 0.0 1.650000E-02 S 0.0 1.700000E-02 S 0.0 1.750000E-02 S 0.0 1.800000E-02 S 0.0 1.850000E-02 S 0.0 1.900000E-02 S 0.0 1.949999E-02 S 0.0 1.999999E-02 S 0.0 2.049999E-02 S 0.0 2.099999E-02 S 0.0 2.149999E-02 S 0.0 2.199999E-02 S 0.0 2.249999E-02 S 0.0 2.299999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 200 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 0.0 2.399999E-02 S 0.0 2.449999E-02 S 0.0 2.499999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 500 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 0.0 1.000000E-03 S 0.0 1.500000E-03 S 0.0 2.000000E-03 S 0.0 2.500000E-03 S 0.0 3.000000E-03 S 0.0 3.500000E-03 S 0.0 4.000000E-03 S 0.0 4.500000E-03 S 0.0 5.000000E-03 S 0.0 5.500000E-03 S 0.0 6.000001E-03 S 0.0 6.500001E-03 S 0.0 7.000001E-03 S 0.0 7.500001E-03 S 0.0 8.000000E-03 S 0.0 8.500000E-03 S 0.0 9.000001E-03 S 0.0 9.500001E-03 S 0.0 1.000000E-02 S 0.0 1.050000E-02 S 0.0 1.100000E-02 S 0.0 1.150000E-02 S 0.0 1.200000E-02 S 0.0 1.250000E-02 S 0.0 1.300000E-02 S 0.0 1.350000E-02 S 0.0 1.400000E-02 S 0.0 1.450000E-02 S 0.0 1.500000E-02 S 0.0 1.550000E-02 S 0.0 1.600000E-02 S 0.0 1.650000E-02 S 0.0 1.700000E-02 S 0.0 1.750000E-02 S 0.0 1.800000E-02 S 0.0 1.850000E-02 S 0.0 1.900000E-02 S 0.0 1.949999E-02 S 0.0 1.999999E-02 S 0.0 2.049999E-02 S 0.0 2.099999E-02 S 0.0 2.149999E-02 S 0.0 2.199999E-02 S 0.0 2.249999E-02 S 0.0 2.299999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 500 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 0.0 2.399999E-02 S 0.0 2.449999E-02 S 0.0 2.499999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 2 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 3.410034E-07 1.000000E-03 S 5.813917E-07 1.500000E-03 S -2.940163E-06 2.000000E-03 S -3.334588E-05 2.500000E-03 S -2.052975E-04 3.000000E-03 S -1.003573E-03 3.500000E-03 S -4.201705E-03 4.000000E-03 S -1.548357E-02 4.500000E-03 S -5.098340E-02 5.000000E-03 S -1.516142E-01 5.500000E-03 S -4.105894E-01 6.000001E-03 S -1.019275E+00 6.500001E-03 S -2.331598E+00 7.000001E-03 S -4.934654E+00 7.500001E-03 S -9.692177E+00 8.000000E-03 S -1.770351E+01 8.500000E-03 S -3.010762E+01 9.000001E-03 S -4.768073E+01 9.500001E-03 S -7.024547E+01 1.000000E-02 S -9.602981E+01 1.050000E-02 S -1.212492E+02 1.100000E-02 S -1.402637E+02 1.150000E-02 S -1.465937E+02 1.200000E-02 S -1.348102E+02 1.250000E-02 S -1.028845E+02 1.300000E-02 S -5.414581E+01 1.350000E-02 S 2.196195E+00 1.400000E-02 S 5.273956E+01 1.450000E-02 S 8.377840E+01 1.500000E-02 S 8.631466E+01 1.550000E-02 S 6.024429E+01 1.600000E-02 S 1.563319E+01 1.650000E-02 S -3.010360E+01 1.700000E-02 S -5.857425E+01 1.750000E-02 S -5.794637E+01 1.800000E-02 S -2.827649E+01 1.850000E-02 S 1.815122E+01 1.900000E-02 S 6.212618E+01 1.949999E-02 S 8.631575E+01 1.999999E-02 S 8.342169E+01 2.049999E-02 S 5.950977E+01 2.099999E-02 S 3.055760E+01 2.149999E-02 S 1.376106E+01 2.199999E-02 S 1.807646E+01 2.249999E-02 S 3.914585E+01 2.299999E-02 S 6.158339E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 2 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 6.761407E+01 2.399999E-02 S 4.741862E+01 2.449999E-02 S 5.373764E+00 2.499999E-02 S -4.150204E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 4 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -1.334598E-05 1.000000E-03 S -8.192464E-05 1.500000E-03 S -5.406925E-04 2.000000E-03 S -3.064563E-03 2.500000E-03 S -1.437132E-02 3.000000E-03 S -5.690387E-02 3.500000E-03 S -1.947229E-01 4.000000E-03 S -5.864248E-01 4.500000E-03 S -1.575635E+00 5.000000E-03 S -3.816333E+00 5.500000E-03 S -8.399201E+00 6.000001E-03 S -1.689998E+01 6.500001E-03 S -3.123265E+01 7.000001E-03 S -5.319742E+01 7.500001E-03 S -8.370447E+01 8.000000E-03 S -1.218359E+02 8.500000E-03 S -1.641219E+02 9.000001E-03 S -2.045279E+02 9.500001E-03 S -2.355395E+02 1.000000E-02 S -2.503206E+02 1.050000E-02 S -2.453269E+02 1.100000E-02 S -2.222519E+02 1.150000E-02 S -1.881393E+02 1.200000E-02 S -1.531018E+02 1.250000E-02 S -1.262256E+02 1.300000E-02 S -1.113749E+02 1.350000E-02 S -1.050669E+02 1.400000E-02 S -9.790433E+01 1.450000E-02 S -7.935943E+01 1.500000E-02 S -4.379127E+01 1.550000E-02 S 5.460579E+00 1.600000E-02 S 5.644092E+01 1.650000E-02 S 9.375700E+01 1.700000E-02 S 1.062429E+02 1.750000E-02 S 9.312646E+01 1.800000E-02 S 6.518102E+01 1.850000E-02 S 3.987963E+01 1.900000E-02 S 3.285201E+01 1.949999E-02 S 5.010585E+01 1.999999E-02 S 8.517708E+01 2.049999E-02 S 1.226967E+02 2.099999E-02 S 1.463187E+02 2.149999E-02 S 1.466164E+02 2.199999E-02 S 1.247906E+02 2.249999E-02 S 9.063966E+01 2.299999E-02 S 5.656911E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 4 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 3.143396E+01 2.399999E-02 S 1.756719E+01 2.449999E-02 S 1.194785E+01 2.499999E-02 S 9.805065E+00 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 5 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -7.531835E-05 1.000000E-03 S -7.488501E-04 1.500000E-03 S -5.051047E-03 2.000000E-03 S -2.596167E-02 2.500000E-03 S -1.081533E-01 3.000000E-03 S -3.792736E-01 3.500000E-03 S -1.148388E+00 4.000000E-03 S -3.056652E+00 4.500000E-03 S -7.246668E+00 5.000000E-03 S -1.545359E+01 5.500000E-03 S -2.986160E+01 6.000001E-03 S -5.257126E+01 6.500001E-03 S -8.464697E+01 7.000001E-03 S -1.249671E+02 7.500001E-03 S -1.693919E+02 8.000000E-03 S -2.109030E+02 8.500000E-03 S -2.411637E+02 9.000001E-03 S -2.533343E+02 9.500001E-03 S -2.451798E+02 1.000000E-02 S -2.209494E+02 1.050000E-02 S -1.906763E+02 1.100000E-02 S -1.665727E+02 1.150000E-02 S -1.577364E+02 1.200000E-02 S -1.656038E+02 1.250000E-02 S -1.826595E+02 1.300000E-02 S -1.955220E+02 1.350000E-02 S -1.912378E+02 1.400000E-02 S -1.636728E+02 1.450000E-02 S -1.165374E+02 1.500000E-02 S -6.125519E+01 1.550000E-02 S -1.077846E+01 1.600000E-02 S 2.710047E+01 1.650000E-02 S 5.298438E+01 1.700000E-02 S 7.373092E+01 1.750000E-02 S 9.637457E+01 1.800000E-02 S 1.221380E+02 1.850000E-02 S 1.446397E+02 1.900000E-02 S 1.537638E+02 1.949999E-02 S 1.428875E+02 1.999999E-02 S 1.147034E+02 2.049999E-02 S 8.146926E+01 2.099999E-02 S 5.894560E+01 2.149999E-02 S 5.743248E+01 2.199999E-02 S 7.545905E+01 2.249999E-02 S 1.002843E+02 2.299999E-02 S 1.151913E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 5 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 1.092304E+02 2.399999E-02 S 8.342061E+01 2.449999E-02 S 4.959605E+01 2.499999E-02 S 2.273301E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 6 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -9.030352E-04 1.000000E-03 S -7.828590E-03 1.500000E-03 S -4.592682E-02 2.000000E-03 S -2.053816E-01 2.500000E-03 S -7.444196E-01 3.000000E-03 S -2.269780E+00 3.500000E-03 S -5.967357E+00 4.000000E-03 S -1.376324E+01 4.500000E-03 S -2.819705E+01 5.000000E-03 S -5.177805E+01 5.500000E-03 S -8.577039E+01 6.000001E-03 S -1.287288E+02 6.500001E-03 S -1.755212E+02 7.000001E-03 S -2.177243E+02 7.500001E-03 S -2.458866E+02 8.000000E-03 S -2.532121E+02 8.500000E-03 S -2.391503E+02 9.000001E-03 S -2.108742E+02 9.500001E-03 S -1.812391E+02 1.000000E-02 S -1.635160E+02 1.050000E-02 S -1.651555E+02 1.100000E-02 S -1.838605E+02 1.150000E-02 S -2.084435E+02 1.200000E-02 S -2.244733E+02 1.250000E-02 S -2.218757E+02 1.300000E-02 S -2.002007E+02 1.350000E-02 S -1.683346E+02 1.400000E-02 S -1.386135E+02 1.450000E-02 S -1.187735E+02 1.500000E-02 S -1.067261E+02 1.550000E-02 S -9.161859E+01 1.600000E-02 S -6.080544E+01 1.650000E-02 S -8.562041E+00 1.700000E-02 S 5.890973E+01 1.750000E-02 S 1.254710E+02 1.800000E-02 S 1.729936E+02 1.850000E-02 S 1.905112E+02 1.900000E-02 S 1.791352E+02 1.949999E-02 S 1.500922E+02 1.999999E-02 S 1.176540E+02 2.049999E-02 S 9.179446E+01 2.099999E-02 S 7.512075E+01 2.149999E-02 S 6.527404E+01 2.199999E-02 S 6.002999E+01 2.249999E-02 S 6.058546E+01 2.299999E-02 S 7.023552E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 6 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 8.953293E+01 2.399999E-02 S 1.121597E+02 2.449999E-02 S 1.256754E+02 2.499999E-02 S 1.178821E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 10 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -1.289789E+01 1.000000E-03 S -4.262465E+01 1.500000E-03 S -9.649753E+01 2.000000E-03 S -1.653160E+02 2.500000E-03 S -2.261077E+02 3.000000E-03 S -2.551053E+02 3.500000E-03 S -2.441551E+02 4.000000E-03 S -2.069601E+02 4.500000E-03 S -1.707030E+02 5.000000E-03 S -1.587567E+02 5.500000E-03 S -1.762944E+02 6.000001E-03 S -2.084323E+02 6.500001E-03 S -2.317285E+02 7.000001E-03 S -2.306854E+02 7.500001E-03 S -2.077789E+02 8.000000E-03 S -1.804594E+02 8.500000E-03 S -1.678830E+02 9.000001E-03 S -1.771461E+02 9.500001E-03 S -1.987026E+02 1.000000E-02 S -2.137433E+02 1.050000E-02 S -2.077592E+02 1.100000E-02 S -1.804064E+02 1.150000E-02 S -1.448868E+02 1.200000E-02 S -1.178627E+02 1.250000E-02 S -1.076590E+02 1.300000E-02 S -1.093755E+02 1.350000E-02 S -1.101114E+02 1.400000E-02 S -9.994864E+01 1.450000E-02 S -8.021390E+01 1.500000E-02 S -6.276532E+01 1.550000E-02 S -6.084921E+01 1.600000E-02 S -7.836794E+01 1.650000E-02 S -1.055933E+02 1.700000E-02 S -1.246504E+02 1.750000E-02 S -1.209967E+02 1.800000E-02 S -9.280633E+01 1.850000E-02 S -5.171532E+01 1.900000E-02 S -1.456752E+01 1.949999E-02 S 7.887696E+00 1.999999E-02 S 1.745502E+01 2.049999E-02 S 2.588759E+01 2.099999E-02 S 4.547959E+01 2.149999E-02 S 7.973110E+01 2.199999E-02 S 1.205334E+02 2.249999E-02 S 1.534222E+02 2.299999E-02 S 1.667831E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 10 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 1.585153E+02 2.399999E-02 S 1.360156E+02 2.449999E-02 S 1.103902E+02 2.499999E-02 S 8.969443E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 12 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -1.289789E+01 1.000000E-03 S -4.262465E+01 1.500000E-03 S -9.649753E+01 2.000000E-03 S -1.653160E+02 2.500000E-03 S -2.261076E+02 3.000000E-03 S -2.551048E+02 3.500000E-03 S -2.441530E+02 4.000000E-03 S -2.069524E+02 4.500000E-03 S -1.706775E+02 5.000000E-03 S -1.586809E+02 5.500000E-03 S -1.760891E+02 6.000001E-03 S -2.079227E+02 6.500001E-03 S -2.305627E+02 7.000001E-03 S -2.282181E+02 7.500001E-03 S -2.029328E+02 8.000000E-03 S -1.716077E+02 8.500000E-03 S -1.528292E+02 9.000001E-03 S -1.533058E+02 9.500001E-03 S -1.635800E+02 1.000000E-02 S -1.657286E+02 1.050000E-02 S -1.471351E+02 1.100000E-02 S -1.102759E+02 1.150000E-02 S -7.159347E+01 1.200000E-02 S -5.046605E+01 1.250000E-02 S -5.623652E+01 1.300000E-02 S -8.234692E+01 1.350000E-02 S -1.113050E+02 1.400000E-02 S -1.265160E+02 1.450000E-02 S -1.224963E+02 1.500000E-02 S -1.066756E+02 1.550000E-02 S -9.235905E+01 1.600000E-02 S -8.864647E+01 1.650000E-02 S -9.474614E+01 1.700000E-02 S -1.022749E+02 1.750000E-02 S -1.029544E+02 1.800000E-02 S -9.528965E+01 1.850000E-02 S -8.506940E+01 1.900000E-02 S -7.965003E+01 1.949999E-02 S -8.091541E+01 1.999999E-02 S -8.275336E+01 2.049999E-02 S -7.522523E+01 2.099999E-02 S -5.224413E+01 2.149999E-02 S -1.671347E+01 2.199999E-02 S 2.104925E+01 2.249999E-02 S 5.059069E+01 2.299999E-02 S 6.877804E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 12 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 8.159486E+01 2.399999E-02 S 9.865917E+01 2.449999E-02 S 1.244697E+02 2.499999E-02 S 1.531320E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 14 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -1.219732E-01 1.000000E-03 S -7.266989E-01 1.500000E-03 S -2.967398E+00 2.000000E-03 S -9.254255E+00 2.500000E-03 S -2.333982E+01 3.000000E-03 S -4.927536E+01 3.500000E-03 S -8.903842E+01 4.000000E-03 S -1.397156E+02 4.500000E-03 S -1.921436E+02 5.000000E-03 S -2.328196E+02 5.500000E-03 S -2.492303E+02 6.000001E-03 S -2.362952E+02 6.500001E-03 S -2.000964E+02 7.000001E-03 S -1.559373E+02 7.500001E-03 S -1.209698E+02 8.000000E-03 S -1.052809E+02 8.500000E-03 S -1.068649E+02 9.000001E-03 S -1.139092E+02 9.500001E-03 S -1.132399E+02 1.000000E-02 S -9.956128E+01 1.050000E-02 S -7.927309E+01 1.100000E-02 S -6.605138E+01 1.150000E-02 S -7.095470E+01 1.200000E-02 S -9.379162E+01 1.250000E-02 S -1.219542E+02 1.300000E-02 S -1.379995E+02 1.350000E-02 S -1.311772E+02 1.400000E-02 S -1.050860E+02 1.450000E-02 S -7.595927E+01 1.500000E-02 S -6.233951E+01 1.550000E-02 S -7.287329E+01 1.600000E-02 S -1.004678E+02 1.650000E-02 S -1.269019E+02 1.700000E-02 S -1.349184E+02 1.750000E-02 S -1.196732E+02 1.800000E-02 S -9.178699E+01 1.850000E-02 S -6.994408E+01 1.900000E-02 S -6.812253E+01 1.949999E-02 S -8.618313E+01 1.999999E-02 S -1.101752E+02 2.049999E-02 S -1.219836E+02 2.099999E-02 S -1.115326E+02 2.149999E-02 S -8.312055E+01 2.199999E-02 S -5.167252E+01 2.249999E-02 S -3.177096E+01 2.299999E-02 S -2.728356E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 14 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -2.883476E+01 2.399999E-02 S -2.074787E+01 2.449999E-02 S 7.557844E+00 2.499999E-02 S 5.373360E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 16 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -4.455106E-04 1.000000E-03 S -3.905079E-03 1.500000E-03 S -2.295648E-02 2.000000E-03 S -1.026923E-01 2.500000E-03 S -3.722202E-01 3.000000E-03 S -1.134904E+00 3.500000E-03 S -2.983689E+00 4.000000E-03 S -6.881623E+00 4.500000E-03 S -1.409852E+01 5.000000E-03 S -2.588902E+01 5.500000E-03 S -4.288520E+01 6.000001E-03 S -6.436443E+01 6.500001E-03 S -8.776067E+01 7.000001E-03 S -1.088624E+02 7.500001E-03 S -1.229441E+02 8.000000E-03 S -1.266084E+02 8.500000E-03 S -1.195819E+02 9.000001E-03 S -1.054547E+02 9.500001E-03 S -9.066341E+01 1.000000E-02 S -8.186157E+01 1.050000E-02 S -8.281026E+01 1.100000E-02 S -9.242741E+01 1.150000E-02 S -1.052355E+02 1.200000E-02 S -1.142101E+02 1.250000E-02 S -1.146085E+02 1.300000E-02 S -1.066286E+02 1.350000E-02 S -9.527380E+01 1.400000E-02 S -8.738693E+01 1.450000E-02 S -8.755111E+01 1.500000E-02 S -9.533913E+01 1.550000E-02 S -1.056429E+02 1.600000E-02 S -1.119223E+02 1.650000E-02 S -1.103477E+02 1.700000E-02 S -1.021942E+02 1.750000E-02 S -9.293530E+01 1.800000E-02 S -8.861890E+01 1.850000E-02 S -9.189816E+01 1.900000E-02 S -1.003343E+02 1.949999E-02 S -1.080869E+02 1.999999E-02 S -1.098431E+02 2.049999E-02 S -1.043296E+02 2.099999E-02 S -9.503320E+01 2.149999E-02 S -8.765514E+01 2.199999E-02 S -8.605090E+01 2.249999E-02 S -8.943742E+01 2.299999E-02 S -9.276853E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 16 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -8.999100E+01 2.399999E-02 S -7.791452E+01 2.449999E-02 S -5.803454E+01 2.499999E-02 S -3.510950E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 18 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 6.098682E-02 1.000000E-03 S 3.633034E-01 1.500000E-03 S 1.483304E+00 2.000000E-03 S 4.624825E+00 2.500000E-03 S 1.165911E+01 3.000000E-03 S 2.459498E+01 3.500000E-03 S 4.437316E+01 4.000000E-03 S 6.941800E+01 4.500000E-03 S 9.489009E+01 5.000000E-03 S 1.135475E+02 5.500000E-03 S 1.183155E+02 6.000001E-03 S 1.054717E+02 6.500001E-03 S 7.662074E+01 7.000001E-03 S 3.806184E+01 7.500001E-03 S -2.317552E+00 8.000000E-03 S -3.879902E+01 8.500000E-03 S -6.981163E+01 9.000001E-03 S -9.679312E+01 9.500001E-03 S -1.208010E+02 1.000000E-02 S -1.395412E+02 1.050000E-02 S -1.474548E+02 1.100000E-02 S -1.394225E+02 1.150000E-02 S -1.158146E+02 1.200000E-02 S -8.507956E+01 1.250000E-02 S -6.117678E+01 1.300000E-02 S -5.648062E+01 1.350000E-02 S -7.418537E+01 1.400000E-02 S -1.052708E+02 1.450000E-02 S -1.327002E+02 1.500000E-02 S -1.409926E+02 1.550000E-02 S -1.255480E+02 1.600000E-02 S -9.577095E+01 1.650000E-02 S -6.964057E+01 1.700000E-02 S -6.278885E+01 1.750000E-02 S -7.884200E+01 1.800000E-02 S -1.072098E+02 1.850000E-02 S -1.298541E+02 1.900000E-02 S -1.327756E+02 1.949999E-02 S -1.148389E+02 1.999999E-02 S -8.823332E+01 2.049999E-02 S -7.032122E+01 2.099999E-02 S -7.226711E+01 2.149999E-02 S -9.192577E+01 2.199999E-02 S -1.155918E+02 2.249999E-02 S -1.272944E+02 2.299999E-02 S -1.193325E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 18 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -9.701871E+01 2.399999E-02 S -7.459489E+01 2.449999E-02 S -6.525615E+01 2.499999E-02 S -7.211802E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 20 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 6.448957E+00 1.000000E-03 S 2.131235E+01 1.500000E-03 S 4.824878E+01 2.000000E-03 S 8.265799E+01 2.500000E-03 S 1.130536E+02 3.000000E-03 S 1.275516E+02 3.500000E-03 S 1.220733E+02 4.000000E-03 S 1.034643E+02 4.500000E-03 S 8.529959E+01 5.000000E-03 S 7.922345E+01 5.500000E-03 S 8.772591E+01 6.000001E-03 S 1.031652E+02 6.500001E-03 S 1.134455E+02 7.000001E-03 S 1.101855E+02 7.500001E-03 S 9.366700E+01 8.000000E-03 S 7.134342E+01 8.500000E-03 S 5.135701E+01 9.000001E-03 S 3.601205E+01 9.500001E-03 S 2.004214E+01 1.000000E-02 S -5.046202E+00 1.050000E-02 S -4.368137E+01 1.100000E-02 S -9.124971E+01 1.150000E-02 S -1.351097E+02 1.200000E-02 S -1.611540E+02 1.250000E-02 S -1.617383E+02 1.300000E-02 S -1.399739E+02 1.350000E-02 S -1.078954E+02 1.400000E-02 S -7.998098E+01 1.450000E-02 S -6.619127E+01 1.500000E-02 S -6.845220E+01 1.550000E-02 S -8.182899E+01 1.600000E-02 S -9.862402E+01 1.650000E-02 S -1.123391E+02 1.700000E-02 S -1.194464E+02 1.750000E-02 S -1.190478E+02 1.800000E-02 S -1.119446E+02 1.850000E-02 S -1.003814E+02 1.900000E-02 S -8.830091E+01 1.949999E-02 S -8.085886E+01 1.999999E-02 S -8.233946E+01 2.049999E-02 S -9.324399E+01 2.099999E-02 S -1.087339E+02 2.149999E-02 S -1.203310E+02 2.199999E-02 S -1.206534E+02 2.249999E-02 S -1.084436E+02 2.299999E-02 S -9.028031E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 20 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -7.715427E+01 2.399999E-02 S -7.757847E+01 2.449999E-02 S -9.164309E+01 2.499999E-02 S -1.102674E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 22 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 6.448957E+00 1.000000E-03 S 2.131235E+01 1.500000E-03 S 4.824878E+01 2.000000E-03 S 8.265802E+01 2.500000E-03 S 1.130538E+02 3.000000E-03 S 1.275526E+02 3.500000E-03 S 1.220775E+02 4.000000E-03 S 1.034798E+02 4.500000E-03 S 8.535057E+01 5.000000E-03 S 7.937506E+01 5.500000E-03 S 8.813651E+01 6.000001E-03 S 1.041844E+02 6.500001E-03 S 1.157771E+02 7.000001E-03 S 1.151202E+02 7.500001E-03 S 1.033592E+02 8.000000E-03 S 8.904693E+01 8.500000E-03 S 8.146464E+01 9.000001E-03 S 8.369279E+01 9.500001E-03 S 9.028764E+01 1.000000E-02 S 9.098373E+01 1.050000E-02 S 7.756819E+01 1.100000E-02 S 4.901491E+01 1.150000E-02 S 1.148630E+01 1.200000E-02 S -2.633818E+01 1.250000E-02 S -5.884061E+01 1.300000E-02 S -8.579851E+01 1.350000E-02 S -1.100280E+02 1.400000E-02 S -1.325888E+02 1.450000E-02 S -1.497075E+02 1.500000E-02 S -1.542649E+02 1.550000E-02 S -1.411482E+02 1.600000E-02 S -1.126159E+02 1.650000E-02 S -7.943240E+01 1.700000E-02 S -5.626441E+01 1.750000E-02 S -5.381424E+01 1.800000E-02 S -7.258719E+01 1.850000E-02 S -1.023472E+02 1.900000E-02 S -1.277480E+02 1.949999E-02 S -1.367456E+02 1.999999E-02 S -1.267653E+02 2.049999E-02 S -1.051870E+02 2.099999E-02 S -8.433890E+01 2.149999E-02 S -7.440416E+01 2.199999E-02 S -7.847427E+01 2.249999E-02 S -9.216285E+01 2.299999E-02 S -1.072010E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 22 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -1.162892E+02 2.399999E-02 S -1.163607E+02 2.449999E-02 S -1.089834E+02 2.499999E-02 S -9.853654E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 24 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 6.100016E-02 1.000000E-03 S 3.633853E-01 1.500000E-03 S 1.483845E+00 2.000000E-03 S 4.627890E+00 2.500000E-03 S 1.167349E+01 3.000000E-03 S 2.465188E+01 3.500000E-03 S 4.456788E+01 4.000000E-03 S 7.000442E+01 4.500000E-03 S 9.646573E+01 5.000000E-03 S 1.173638E+02 5.500000E-03 S 1.267147E+02 6.000001E-03 S 1.223716E+02 6.500001E-03 S 1.078534E+02 7.000001E-03 S 9.125926E+01 7.500001E-03 S 8.138693E+01 8.000000E-03 S 8.303695E+01 8.500000E-03 S 9.431039E+01 9.000001E-03 S 1.077352E+02 9.500001E-03 S 1.147398E+02 1.000000E-02 S 1.107828E+02 1.050000E-02 S 9.788049E+01 1.100000E-02 S 8.284966E+01 1.150000E-02 S 7.237128E+01 1.200000E-02 S 6.812469E+01 1.250000E-02 S 6.526476E+01 1.300000E-02 S 5.533064E+01 1.350000E-02 S 3.172729E+01 1.400000E-02 S -5.792996E+00 1.450000E-02 S -5.052917E+01 1.500000E-02 S -9.237444E+01 1.550000E-02 S -1.230459E+02 1.600000E-02 S -1.395892E+02 1.650000E-02 S -1.441727E+02 1.700000E-02 S -1.409099E+02 1.750000E-02 S -1.324823E+02 1.800000E-02 S -1.192154E+02 1.850000E-02 S -1.011272E+02 1.900000E-02 S -8.094701E+01 1.949999E-02 S -6.513660E+01 1.999999E-02 S -6.133947E+01 2.049999E-02 S -7.348925E+01 2.099999E-02 S -9.795518E+01 2.149999E-02 S -1.239032E+02 2.199999E-02 S -1.384491E+02 2.249999E-02 S -1.338699E+02 2.299999E-02 S -1.124320E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 24 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -8.557653E+01 2.399999E-02 S -6.764285E+01 2.449999E-02 S -6.777320E+01 2.499999E-02 S -8.485841E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 26 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 4.575246E-04 1.000000E-03 S 3.923512E-03 1.500000E-03 S 2.297034E-02 2.000000E-03 S 1.026893E-01 2.500000E-03 S 3.721993E-01 3.000000E-03 S 1.134876E+00 3.500000E-03 S 2.983668E+00 4.000000E-03 S 6.881619E+00 4.500000E-03 S 1.409853E+01 5.000000E-03 S 2.588903E+01 5.500000E-03 S 4.288520E+01 6.000001E-03 S 6.436440E+01 6.500001E-03 S 8.776055E+01 7.000001E-03 S 1.088621E+02 7.500001E-03 S 1.229431E+02 8.000000E-03 S 1.266052E+02 8.500000E-03 S 1.195729E+02 9.000001E-03 S 1.054312E+02 9.500001E-03 S 9.060491E+01 1.000000E-02 S 8.172347E+01 1.050000E-02 S 8.250024E+01 1.100000E-02 S 9.176453E+01 1.150000E-02 S 1.038838E+02 1.200000E-02 S 1.115789E+02 1.250000E-02 S 1.097143E+02 1.300000E-02 S 9.792424E+01 1.350000E-02 S 8.046513E+01 1.400000E-02 S 6.328001E+01 1.450000E-02 S 4.999856E+01 1.500000E-02 S 3.937080E+01 1.550000E-02 S 2.586429E+01 1.600000E-02 S 3.228400E+00 1.650000E-02 S -3.107715E+01 1.700000E-02 S -7.334369E+01 1.750000E-02 S -1.146383E+02 1.800000E-02 S -1.448949E+02 1.850000E-02 S -1.576935E+02 1.900000E-02 S -1.529734E+02 1.949999E-02 S -1.362921E+02 1.999999E-02 S -1.154256E+02 2.049999E-02 S -9.665149E+01 2.099999E-02 S -8.295075E+01 2.149999E-02 S -7.477072E+01 2.199999E-02 S -7.208267E+01 2.249999E-02 S -7.565134E+01 2.299999E-02 S -8.628249E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 26 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -1.026758E+02 2.399999E-02 S -1.199421E+02 2.449999E-02 S -1.306689E+02 2.499999E-02 S -1.286256E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 28 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 3.095995E-06 1.000000E-03 S 3.462635E-05 1.500000E-03 S 2.634587E-04 2.000000E-03 S 1.528241E-03 2.500000E-03 S 7.186137E-03 3.000000E-03 S 2.845591E-02 3.500000E-03 S 9.736596E-02 4.000000E-03 S 2.932153E-01 4.500000E-03 S 7.878238E-01 5.000000E-03 S 1.908205E+00 5.500000E-03 S 4.199769E+00 6.000001E-03 S 8.450599E+00 6.500001E-03 S 1.561829E+01 7.000001E-03 S 2.660452E+01 7.500001E-03 S 4.186828E+01 8.000000E-03 S 6.095956E+01 8.500000E-03 S 8.216244E+01 9.000001E-03 S 1.024976E+02 9.500001E-03 S 1.182781E+02 1.000000E-02 S 1.262079E+02 1.050000E-02 S 1.247107E+02 1.100000E-02 S 1.149250E+02 1.150000E-02 S 1.007682E+02 1.200000E-02 S 8.777860E+01 1.250000E-02 S 8.100390E+01 1.300000E-02 S 8.278075E+01 1.350000E-02 S 9.149094E+01 1.400000E-02 S 1.020616E+02 1.450000E-02 S 1.081617E+02 1.500000E-02 S 1.051174E+02 1.550000E-02 S 9.205575E+01 1.600000E-02 S 7.207236E+01 1.650000E-02 S 5.023798E+01 1.700000E-02 S 3.050651E+01 1.750000E-02 S 1.331787E+01 1.800000E-02 S -4.594038E+00 1.850000E-02 S -2.791097E+01 1.900000E-02 S -5.918939E+01 1.949999E-02 S -9.617658E+01 1.999999E-02 S -1.317396E+02 2.049999E-02 S -1.567115E+02 2.099999E-02 S -1.642375E+02 2.149999E-02 S -1.532540E+02 2.199999E-02 S -1.291691E+02 2.249999E-02 S -1.013955E+02 2.299999E-02 S -7.916584E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 96 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 28 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -6.793356E+01 2.399999E-02 S -6.813251E+01 2.449999E-02 S -7.651194E+01 2.499999E-02 S -8.873295E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 97 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 30 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 1.976111E-08 1.000000E-03 S 2.724832E-07 1.500000E-03 S 2.549025E-06 2.000000E-03 S 1.814976E-05 2.500000E-03 S 1.046771E-04 3.000000E-03 S 5.083607E-04 3.500000E-03 S 2.134454E-03 4.000000E-03 S 7.896589E-03 4.500000E-03 S 2.610980E-02 5.000000E-03 S 7.800759E-02 5.500000E-03 S 2.124133E-01 6.000001E-03 S 5.307874E-01 6.500001E-03 S 1.223907E+00 7.000001E-03 S 2.615695E+00 7.500001E-03 S 5.199585E+00 8.000000E-03 S 9.640268E+00 8.500000E-03 S 1.670504E+01 9.000001E-03 S 2.709386E+01 9.500001E-03 S 4.116514E+01 1.000000E-02 S 5.860675E+01 1.050000E-02 S 7.816526E+01 1.100000E-02 S 9.758993E+01 1.150000E-02 S 1.139329E+02 1.200000E-02 S 1.242464E+02 1.250000E-02 S 1.265437E+02 1.300000E-02 S 1.207034E+02 1.350000E-02 S 1.088991E+02 1.400000E-02 S 9.521656E+01 1.450000E-02 S 8.440733E+01 1.500000E-02 S 8.012959E+01 1.550000E-02 S 8.336539E+01 1.600000E-02 S 9.176973E+01 1.650000E-02 S 1.003951E+02 1.700000E-02 S 1.036259E+02 1.750000E-02 S 9.752321E+01 1.800000E-02 S 8.147112E+01 1.850000E-02 S 5.826008E+01 1.900000E-02 S 3.249257E+01 1.949999E-02 S 8.102295E+00 1.999999E-02 S -1.366529E+01 2.049999E-02 S -3.462105E+01 2.099999E-02 S -5.802620E+01 2.149999E-02 S -8.583639E+01 2.199999E-02 S -1.163932E+02 2.249999E-02 S -1.440603E+02 2.299999E-02 S -1.613001E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 98 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 30 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -1.622956E+02 2.399999E-02 S -1.462391E+02 2.449999E-02 S -1.184426E+02 2.499999E-02 S -8.851847E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 99 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 40 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 1.411090E-19 1.000000E-03 S 3.780692E-18 1.500000E-03 S 6.822475E-17 2.000000E-03 S 9.320580E-16 2.500000E-03 S 1.027457E-14 3.000000E-03 S 9.513144E-14 3.500000E-03 S 7.604554E-13 4.000000E-03 S 5.354322E-12 4.500000E-03 S 3.371396E-11 5.000000E-03 S 1.921115E-10 5.500000E-03 S 1.000188E-09 6.000001E-03 S 4.795014E-09 6.500001E-03 S 2.130613E-08 7.000001E-03 S 8.822866E-08 7.500001E-03 S 3.420890E-07 8.000000E-03 S 1.246935E-06 8.500000E-03 S 4.287876E-06 9.000001E-03 S 1.395280E-05 9.500001E-03 S 4.307892E-05 1.000000E-02 S 1.264966E-04 1.050000E-02 S 3.540055E-04 1.100000E-02 S 9.459354E-04 1.150000E-02 S 2.417379E-03 1.200000E-02 S 5.916844E-03 1.250000E-02 S 1.388848E-02 1.300000E-02 S 3.129886E-02 1.350000E-02 S 6.778610E-02 1.400000E-02 S 1.412091E-01 1.450000E-02 S 2.831469E-01 1.500000E-02 S 5.468314E-01 1.550000E-02 S 1.017660E+00 1.600000E-02 S 1.825678E+00 1.650000E-02 S 3.158149E+00 1.700000E-02 S 5.268560E+00 1.750000E-02 S 8.476431E+00 1.800000E-02 S 1.315077E+01 1.850000E-02 S 1.966994E+01 1.900000E-02 S 2.835319E+01 1.949999E-02 S 3.936527E+01 1.999999E-02 S 5.260522E+01 2.049999E-02 S 6.760252E+01 2.099999E-02 S 8.345447E+01 2.149999E-02 S 9.884339E+01 2.199999E-02 S 1.121654E+02 2.249999E-02 S 1.217802E+02 2.299999E-02 S 1.263557E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 100 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 40 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 1.252377E+02 2.399999E-02 S 1.187395E+02 2.449999E-02 S 1.082362E+02 2.499999E-02 S 9.597374E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 101 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 50 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 7.653862E-31 1.000000E-03 S 3.045296E-29 1.500000E-03 S 8.136034E-28 2.000000E-03 S 1.641352E-26 2.500000E-03 S 2.665979E-25 3.000000E-03 S 3.630353E-24 3.500000E-03 S 4.261524E-23 4.000000E-03 S 4.400688E-22 4.500000E-03 S 4.059976E-21 5.000000E-03 S 3.387222E-20 5.500000E-03 S 2.580637E-19 6.000001E-03 S 1.809937E-18 6.500001E-03 S 1.176444E-17 7.000001E-03 S 7.127252E-17 7.500001E-03 S 4.044239E-16 8.000000E-03 S 2.158499E-15 8.500000E-03 S 1.087606E-14 9.000001E-03 S 5.190504E-14 9.500001E-03 S 2.352974E-13 1.000000E-02 S 1.015806E-12 1.050000E-02 S 4.185919E-12 1.100000E-02 S 1.649898E-11 1.150000E-02 S 6.231942E-11 1.200000E-02 S 2.259578E-10 1.250000E-02 S 7.876629E-10 1.300000E-02 S 2.643471E-09 1.350000E-02 S 8.552437E-09 1.400000E-02 S 2.670540E-08 1.450000E-02 S 8.056983E-08 1.500000E-02 S 2.350945E-07 1.550000E-02 S 6.640587E-07 1.600000E-02 S 1.817314E-06 1.650000E-02 S 4.822245E-06 1.700000E-02 S 1.241576E-05 1.750000E-02 S 3.103748E-05 1.800000E-02 S 7.537876E-05 1.850000E-02 S 1.779505E-04 1.900000E-02 S 4.085591E-04 1.949999E-02 S 9.126693E-04 1.999999E-02 S 1.984511E-03 2.049999E-02 S 4.201797E-03 2.099999E-02 S 8.665642E-03 2.149999E-02 S 1.741306E-02 2.199999E-02 S 3.410091E-02 2.249999E-02 S 6.509738E-02 2.299999E-02 S 1.211549E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 102 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 50 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 2.198639E-01 2.399999E-02 S 3.890812E-01 2.449999E-02 S 6.714585E-01 2.499999E-02 S 1.130033E+00 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 103 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 100 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 0.0 1.000000E-03 S 0.0 1.500000E-03 S 0.0 2.000000E-03 S 0.0 2.500000E-03 S 0.0 3.000000E-03 S 0.0 3.500000E-03 S 0.0 4.000000E-03 S 0.0 4.500000E-03 S 0.0 5.000000E-03 S 0.0 5.500000E-03 S 0.0 6.000001E-03 S 0.0 6.500001E-03 S 0.0 7.000001E-03 S 0.0 7.500001E-03 S 0.0 8.000000E-03 S 0.0 8.500000E-03 S 0.0 9.000001E-03 S 0.0 9.500001E-03 S 0.0 1.000000E-02 S 0.0 1.050000E-02 S 0.0 1.100000E-02 S 0.0 1.150000E-02 S 0.0 1.200000E-02 S 0.0 1.250000E-02 S 0.0 1.300000E-02 S 0.0 1.350000E-02 S 0.0 1.400000E-02 S 0.0 1.450000E-02 S 0.0 1.500000E-02 S 0.0 1.550000E-02 S 0.0 1.600000E-02 S 0.0 1.650000E-02 S 0.0 1.700000E-02 S 0.0 1.750000E-02 S 0.0 1.800000E-02 S 0.0 1.850000E-02 S 0.0 1.900000E-02 S 0.0 1.949999E-02 S 0.0 1.999999E-02 S 0.0 2.049999E-02 S 0.0 2.099999E-02 S 0.0 2.149999E-02 S 0.0 2.199999E-02 S 0.0 2.249999E-02 S 0.0 2.299999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 104 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 100 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 0.0 2.399999E-02 S 1.286378E-38 2.449999E-02 S 5.984403E-38 2.499999E-02 S 2.730881E-37 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 105 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 200 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 0.0 1.000000E-03 S 0.0 1.500000E-03 S 0.0 2.000000E-03 S 0.0 2.500000E-03 S 0.0 3.000000E-03 S 0.0 3.500000E-03 S 0.0 4.000000E-03 S 0.0 4.500000E-03 S 0.0 5.000000E-03 S 0.0 5.500000E-03 S 0.0 6.000001E-03 S 0.0 6.500001E-03 S 0.0 7.000001E-03 S 0.0 7.500001E-03 S 0.0 8.000000E-03 S 0.0 8.500000E-03 S 0.0 9.000001E-03 S 0.0 9.500001E-03 S 0.0 1.000000E-02 S 0.0 1.050000E-02 S 0.0 1.100000E-02 S 0.0 1.150000E-02 S 0.0 1.200000E-02 S 0.0 1.250000E-02 S 0.0 1.300000E-02 S 0.0 1.350000E-02 S 0.0 1.400000E-02 S 0.0 1.450000E-02 S 0.0 1.500000E-02 S 0.0 1.550000E-02 S 0.0 1.600000E-02 S 0.0 1.650000E-02 S 0.0 1.700000E-02 S 0.0 1.750000E-02 S 0.0 1.800000E-02 S 0.0 1.850000E-02 S 0.0 1.900000E-02 S 0.0 1.949999E-02 S 0.0 1.999999E-02 S 0.0 2.049999E-02 S 0.0 2.099999E-02 S 0.0 2.149999E-02 S 0.0 2.199999E-02 S 0.0 2.249999E-02 S 0.0 2.299999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 106 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 200 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 0.0 2.399999E-02 S 0.0 2.449999E-02 S 0.0 2.499999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 107 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 500 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 0.0 1.000000E-03 S 0.0 1.500000E-03 S 0.0 2.000000E-03 S 0.0 2.500000E-03 S 0.0 3.000000E-03 S 0.0 3.500000E-03 S 0.0 4.000000E-03 S 0.0 4.500000E-03 S 0.0 5.000000E-03 S 0.0 5.500000E-03 S 0.0 6.000001E-03 S 0.0 6.500001E-03 S 0.0 7.000001E-03 S 0.0 7.500001E-03 S 0.0 8.000000E-03 S 0.0 8.500000E-03 S 0.0 9.000001E-03 S 0.0 9.500001E-03 S 0.0 1.000000E-02 S 0.0 1.050000E-02 S 0.0 1.100000E-02 S 0.0 1.150000E-02 S 0.0 1.200000E-02 S 0.0 1.250000E-02 S 0.0 1.300000E-02 S 0.0 1.350000E-02 S 0.0 1.400000E-02 S 0.0 1.450000E-02 S 0.0 1.500000E-02 S 0.0 1.550000E-02 S 0.0 1.600000E-02 S 0.0 1.650000E-02 S 0.0 1.700000E-02 S 0.0 1.750000E-02 S 0.0 1.800000E-02 S 0.0 1.850000E-02 S 0.0 1.900000E-02 S 0.0 1.949999E-02 S 0.0 1.999999E-02 S 0.0 2.049999E-02 S 0.0 2.099999E-02 S 0.0 2.149999E-02 S 0.0 2.199999E-02 S 0.0 2.249999E-02 S 0.0 2.299999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 108 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A 0 TRAVELING WAVE PROBLEM POINT-ID = 500 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 0.0 2.399999E-02 S 0.0 2.449999E-02 S 0.0 2.499999E-02 S 0.0 * * * END OF JOB * * * 1 JOB TITLE = TRANSIENT ANALYSIS OF A 1000 CELL STRING DATE: 5/17/95 END TIME: 16: 6:53 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d09022a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D09022A,NASTRAN ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/,G2,,,/C,N,5 $ EQUIV G2,GEOM2/TRUE $ ENDALTER $ TIME 16 APP DISP SOL 9,1 DIAG 14 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRANSIENT ANALYSIS OF A 1000 CELL STRING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 3 LABEL = TRAVELING WAVE PROBLEM 4 TSTEP = 9 5 IC = 9 6 OUTPUT 7 SET 1 = 2,4,5,6,10,12,14,16,18,20,22,24,26,28,30,40,50, 100,200,500 8 DISPLACEMENT = 1 9 VELOCITY = 1 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 20, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- TIC 9 2 .2 2- TIC 9 3 .4 3- TIC 9 4 .6 4- TIC 9 5 .8 5- TIC 9 6 1.0 6- TIC 9 7 1.2 7- TIC 9 8 1.4 8- TIC 9 9 1.6 9- TIC 9 10 1.8 10- TIC 9 11 2.0 11- TIC 9 12 1.8 12- TIC 9 13 1.6 13- TIC 9 14 1.4 14- TIC 9 15 1.2 15- TIC 9 16 1.0 16- TIC 9 17 .8 17- TIC 9 18 .6 18- TIC 9 19 .4 19- TIC 9 20 .2 20- TSTEP 9 50 .5-3 1 ENDDATA 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1995 $ 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ 1 INPUT, ,,,,/,G2,,,/C,N,5 $ 1 EQUIV G2,GEOM2/TRUE $ 2 PRECHK ALL $ 3 FILE UDVT=APPEND/TOL=APPEND/RLODDISP=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ 10 COND LBL5,NOGPDT $ 11 GP2 GEOM2,EQEXIN/ECT $ 12 PARAML PCDB//*PRES*////JUMPPLOT $ 13 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 14 COND P1,JUMPPLOT $ 15 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 16 PRTMSG PLTSETX// $ 17 PARAM //*MPY*/PLTFLG/1/1 $ 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A TRAVELING WAVE PROBLEM COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PARAM //*MPY*/PFILE/0/0 $ 19 COND P1,JUMPPLOT $ 20 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 21 PRTMSG PLOTX1// $ 22 LABEL P1 $ 23 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ 24 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/ S,N,COMPS 25 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 26 PURGE K4GG,MGG,BGG, K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,KGGX/NOSIMP $ 27 COND LBL1,NOSIMP $ 28 PARAM //*ADD*/NOKGGX/1/0 $ 29 PARAM //*ADD*/NOMGG/1/0 $ 30 PARAM //*ADD*/NOBGG=-1/1/0 $ 31 PARAM //*ADD*/NOK4GG/1/0 $ 32 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 33 PURGE KGGX/NOKGGX/MGG/NOMGG $ 34 COND LBLKGGX,NOKGGX $ 35 EMA GPECT,KDICT,KELM/KGGX $ 36 LABEL LBLKGGX $ 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A TRAVELING WAVE PROBLEM COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 37 COND LBLMGG,NOMGG $ 38 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 39 PURGE MDICT,MELM/ALWAYS $ 40 LABEL LBLMGG $ 41 COND LBLBGG,NOBGG $ 42 EMA GPECT,BDICT,BELM/BGG $ 43 PURGE BDICT,BELM/ALWAYS $ 44 LABEL LBLBGG $ 45 COND LBLK4GG,NOK4GG $ 46 EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ 47 LABEL LBLK4GG $ 48 PURGE KDICT,KELM/ALWAYS $ 49 PURGE MNN,MFF,MAA/NOMGG $ 50 PURGE BNN,BFF,BAA/NOBGG $ 51 COND LBL1,GRDPNT $ 52 COND ERROR3,NOMGG $ 53 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 54 OFP OGPWG,,,,,//S,N,CARDNO $ 55 LABEL LBL1 $ 56 EQUIV KGGX,KGG/NOGENL $ 57 COND LBL11,NOGENL $ 58 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 59 LABEL LBL11 $ 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A TRAVELING WAVE PROBLEM COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 60 GPSTGEN KGG,SIL/GPST $ 61 PARAM //*MPY*/NSKIP/0/0 $ 62 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 63 OFP OGPST,,,,,//S,N,CARDNO $ 64 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $ 65 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ 66 COND LBL2,MPCF1 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS, ,MFF,BFF,K4FF $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 EQUIV MFF,MAA/OMIT $ 76 EQUIV BFF,BAA/OMIT $ 77 EQUIV K4FF,K4AA/OMIT $ 78 COND LBL5,OMIT $ 79 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 80 COND LBLM,NOMGG $ 81 SMP2 USET,GO,MFF/MAA $ 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A TRAVELING WAVE PROBLEM COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 82 LABEL LBLM $ 83 COND LBLB,NOBGG $ 84 SMP2 USET,GO,BFF/BAA $ 85 LABEL LBLB $ 86 COND LBL5,NOK4GG $ 87 SMP2 USET,GO,K4FF/K4AA $ 88 LABEL LBL5 $ 89 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,, EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/ NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $ 90 COND ERROR1,NOTRL $ 91 PURGE PNLD/NONLFT$ 92 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 93 BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ 94 PARAM //*AND*/NOFL/NOABFL/NOKBFL $ 95 PURGE KBFL/NOKBFL/ ABFL/NOABFL $ 96 COND LBLFL3,NOFL $ 97 MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ 98 LABEL LBLFL3 $ 99 MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ 100 PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ 101 PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ 102 EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A TRAVELING WAVE PROBLEM COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 103 COND LBLFL2,NOFL $ 104 ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ 105 COND LBLFL2,NOABFL $ 106 TRNSP ABFL/ABFLT $ 107 ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ 108 LABEL LBLFL2 $ 109 PARAM //*AND*/KDEKA/NOUE/NOK2PP $ 110 PARAM //*AND*/MDEMA/NOUE/NOM2PP $ 111 PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ 112 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 113 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ 114 COND LBL16,NOGPDT $ 115 GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/ C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ 116 LABEL LBL16 $ 117 EQUIV M2DD,MDD/NOSIMP/B2DD,BDD/NOGPDT/K2DD,KDD/KDEK2 $ 118 PARAM //*ADD*/NEVER/1/0 $ 119 PARAM //*MPY*/REPEATT/1/-1 $ 121 PURGE PNLD,OUDV1,OPNL1,OUDV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1, OEF1,OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT/NEVER $ 122 CASE CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $ 123 PARAM //*MPY*/NCOL/0/1 $ 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A TRAVELING WAVE PROBLEM COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 TRLG CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG, MPT/PPT,PST,PDT,PD,,TOL/S,N,NOSET/NCOL $ 125 EQUIV PPT,PDT/NOSET $ 126 TRD CASEXX,TRL,NLFT,DIT,KDD,BDD,MDD,PD/UDVT,PNLD,RLODDISP/*DIRECT*/ NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $ 127 VDR CASEXX,EQDYN,USETD,UDVT,TOL,XYCDB,PNLD/OUDV1,OPNL1/ *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $ 128 COND LBL15,NOD $ 129 SDR3 OUDV1,OPNL1,,,,/OUDV2,OPNL2,,,, $ 130 OFP OUDV2,OPNL2,,,,//S,N,CARDNO $ 131 XYTRAN XYCDB,OUDV2,OPNL2,,,/XYPLTTA/*TRAN*/*DSET*/S,N,PFILE/ S,N,CARDNO $ 132 XYPLOT XYPLTTA// $ 133 LABEL LBL15 $ 134 PARAM //*AND*/PJUMP/NOP/JUMPPLOT $ 135 COND LBL18,PJUMP $ 136 EQUIV UDVT,UPV/NOA $ 137 COND LBL17,NOA $ 138 SDR1 USETD,,UDVT,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $ 139 LABEL LBL17 $ 140 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB, PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $ 141 SDR3 OPP1,OQP1,OUPV1,OES1,OEF1,/ OPP2,OQP2,OUPV2,OES2,OEF2, $ 142 OFP OPP2,OQP2,OUPV2,OEF2,OES2,//S,N,CARDNO $ 143 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A TRAVELING WAVE PROBLEM COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 144 OFP OESF2,,,,,//S,N,CARDNO $ 145 COND P2,JUMPPLOT $ 146 PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,GPECT,OES1, ,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 147 PRTMSG PLOTX2// $ 148 LABEL P2 $ 149 XYTRAN XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/ S,N,PFILE/S,N,CARDNO $ 150 XYPLOT XYPLTT// $ 151 LABEL LBL18 $ 155 JUMP FINIS $ 156 LABEL ERROR1 $ 157 PRTPARM //-1/*DIRTRD* $ 158 LABEL ERROR3 $ 159 PRTPARM //-3/*DIRTRD* $ 160 LABEL FINIS $ 161 PURGE DUMMY/ALWAYS $ 162 END $ 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM * U T I L I T Y M O D U L E I N P U T * INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST) * 1 ** 2 ** 3 ** 4 ** 5 ** 6 ** 7 ** 8 ** 9 ** 10 * 1000 1.0E+07 0.0E+00 1.0E+01 0.0E+00 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS4 ELEMENTS (ELEMENT TYPE 14) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION MASS4 ELEMENTS (ELEMENT TYPE 28) STARTING WITH ID 1000002 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPST MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK BGG MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 2 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 2.000000E-01 5.000000E-04 S 2.000000E-01 1.000000E-03 S 2.000000E-01 1.500000E-03 S 2.000000E-01 2.000000E-03 S 2.000000E-01 2.500000E-03 S 2.000000E-01 3.000000E-03 S 1.999998E-01 3.500000E-03 S 1.999990E-01 4.000000E-03 S 1.999956E-01 4.500000E-03 S 1.999835E-01 5.000000E-03 S 1.999446E-01 5.500000E-03 S 1.998319E-01 6.000001E-03 S 1.995340E-01 6.500001E-03 S 1.988126E-01 7.000001E-03 S 1.972024E-01 7.500001E-03 S 1.938779E-01 8.000000E-03 S 1.875103E-01 8.500000E-03 S 1.761744E-01 9.000001E-03 S 1.574026E-01 9.500001E-03 S 1.284937E-01 1.000000E-02 S 8.715715E-02 1.050000E-02 S 3.246389E-02 1.100000E-02 S -3.409207E-02 1.150000E-02 S -1.077998E-01 1.200000E-02 S -1.806858E-01 1.250000E-02 S -2.426100E-01 1.300000E-02 S -2.835702E-01 1.350000E-02 S -2.967559E-01 1.400000E-02 S -2.813740E-01 1.450000E-02 S -2.440163E-01 1.500000E-02 S -1.975956E-01 1.550000E-02 S -1.577016E-01 1.600000E-02 S -1.373513E-01 1.650000E-02 S -1.420684E-01 1.700000E-02 S -1.674549E-01 1.750000E-02 S -2.006427E-01 1.800000E-02 S -2.254013E-01 1.850000E-02 S -2.289192E-01 1.900000E-02 S -2.072501E-01 1.949999E-02 S -1.667930E-01 1.999999E-02 S -1.209343E-01 2.049999E-02 S -8.337127E-02 2.099999E-02 S -6.142456E-02 2.149999E-02 S -5.281368E-02 2.199999E-02 S -4.766349E-02 2.249999E-02 S -3.473721E-02 2.299999E-02 S -8.517647E-03 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 2 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 2.684618E-02 2.399999E-02 S 5.909642E-02 2.449999E-02 S 7.426479E-02 2.499999E-02 S 6.447019E-02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 4 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 6.000000E-01 5.000000E-04 S 6.000000E-01 1.000000E-03 S 6.000000E-01 1.500000E-03 S 6.000000E-01 2.000000E-03 S 5.999995E-01 2.500000E-03 S 5.999969E-01 3.000000E-03 S 5.999851E-01 3.500000E-03 S 5.999399E-01 4.000000E-03 S 5.997904E-01 4.500000E-03 S 5.993536E-01 5.000000E-03 S 5.982147E-01 5.500000E-03 S 5.955372E-01 6.000001E-03 S 5.898156E-01 6.500001E-03 S 5.786372E-01 7.000001E-03 S 5.585829E-01 7.500001E-03 S 5.254398E-01 8.000000E-03 S 4.748784E-01 8.500000E-03 S 4.036039E-01 9.000001E-03 S 3.107565E-01 9.500001E-03 S 1.990760E-01 1.000000E-02 S 7.521704E-02 1.050000E-02 S -5.124467E-02 1.100000E-02 S -1.701098E-01 1.150000E-02 S -2.734966E-01 1.200000E-02 S -3.582492E-01 1.250000E-02 S -4.265984E-01 1.300000E-02 S -4.844747E-01 1.350000E-02 S -5.379733E-01 1.400000E-02 S -5.895417E-01 1.450000E-02 S -6.358776E-01 1.500000E-02 S -6.689011E-01 1.550000E-02 S -6.796689E-01 1.600000E-02 S -6.634405E-01 1.650000E-02 S -6.232280E-01 1.700000E-02 S -5.696836E-01 1.750000E-02 S -5.169850E-01 1.800000E-02 S -4.765571E-01 1.850000E-02 S -4.518040E-01 1.900000E-02 S -4.366774E-01 1.949999E-02 S -4.189520E-01 1.999999E-02 S -3.865716E-01 2.049999E-02 S -3.337749E-01 2.099999E-02 S -2.638749E-01 2.149999E-02 S -1.874562E-01 2.199999E-02 S -1.172585E-01 2.249999E-02 S -6.266554E-02 2.299999E-02 S -2.661881E-02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 4 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -6.096438E-03 2.399999E-02 S 4.815150E-03 2.449999E-02 S 1.147075E-02 2.499999E-02 S 1.676299E-02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 5 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 8.000000E-01 5.000000E-04 S 8.000000E-01 1.000000E-03 S 8.000000E-01 1.500000E-03 S 7.999992E-01 2.000000E-03 S 7.999949E-01 2.500000E-03 S 7.999733E-01 3.000000E-03 S 7.998867E-01 3.500000E-03 S 7.995940E-01 4.000000E-03 S 7.987384E-01 4.500000E-03 S 7.965374E-01 5.000000E-03 S 7.914917E-01 5.500000E-03 S 7.810838E-01 6.000001E-03 S 7.616301E-01 6.500001E-03 S 7.285125E-01 7.000001E-03 S 6.769831E-01 7.500001E-03 S 6.035454E-01 8.000000E-03 S 5.075912E-01 8.500000E-03 S 3.926423E-01 9.000001E-03 S 2.664276E-01 9.500001E-03 S 1.393080E-01 1.000000E-02 S 2.124779E-02 1.050000E-02 S -8.164138E-02 1.100000E-02 S -1.694285E-01 1.150000E-02 S -2.482141E-01 1.200000E-02 S -3.271649E-01 1.250000E-02 S -4.138179E-01 1.300000E-02 S -5.098243E-01 1.350000E-02 S -6.093398E-01 1.400000E-02 S -7.010622E-01 1.450000E-02 S -7.730126E-01 1.500000E-02 S -8.175996E-01 1.550000E-02 S -8.342679E-01 1.600000E-02 S -8.283781E-01 1.650000E-02 S -8.071674E-01 1.700000E-02 S -7.753937E-01 1.750000E-02 S -7.334365E-01 1.800000E-02 S -6.790191E-01 1.850000E-02 S -6.112984E-01 1.900000E-02 S -5.343794E-01 1.949999E-02 S -4.575346E-01 1.999999E-02 S -3.914919E-01 2.049999E-02 S -3.428312E-01 2.099999E-02 S -3.100227E-01 2.149999E-02 S -2.838856E-01 2.199999E-02 S -2.525902E-01 2.249999E-02 S -2.084266E-01 2.299999E-02 S -1.523059E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 5 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -9.323521E-02 2.399999E-02 S -4.307547E-02 2.449999E-02 S -9.814604E-03 2.499999E-02 S 6.520586E-03 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 6 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 1.000000E+00 5.000000E-04 S 9.999999E-01 1.000000E-03 S 9.999991E-01 1.500000E-03 S 9.999921E-01 2.000000E-03 S 9.999532E-01 2.500000E-03 S 9.997867E-01 3.000000E-03 S 9.992087E-01 3.500000E-03 S 9.975169E-01 4.000000E-03 S 9.932414E-01 4.500000E-03 S 9.837537E-01 5.000000E-03 S 9.650443E-01 5.500000E-03 S 9.319757E-01 6.000001E-03 S 8.792740E-01 6.500001E-03 S 8.032469E-01 7.000001E-03 S 7.037528E-01 7.500001E-03 S 5.855225E-01 8.000000E-03 S 4.578661E-01 8.500000E-03 S 3.323105E-01 9.000001E-03 S 2.187158E-01 9.500001E-03 S 1.214363E-01 1.000000E-02 S 3.747671E-02 1.050000E-02 S -4.207973E-02 1.100000E-02 S -1.276788E-01 1.150000E-02 S -2.259402E-01 1.200000E-02 S -3.361223E-01 1.250000E-02 S -4.504136E-01 1.300000E-02 S -5.579979E-01 1.350000E-02 S -6.506143E-01 1.400000E-02 S -7.263325E-01 1.450000E-02 S -7.892278E-01 1.500000E-02 S -8.451061E-01 1.550000E-02 S -8.959538E-01 1.600000E-02 S -9.367247E-01 1.650000E-02 S -9.567593E-01 1.700000E-02 S -9.452867E-01 1.750000E-02 S -8.978496E-01 1.800000E-02 S -8.198157E-01 1.850000E-02 S -7.248560E-01 1.900000E-02 S -6.293044E-01 1.949999E-02 S -5.457208E-01 1.999999E-02 S -4.792122E-01 2.049999E-02 S -4.280668E-01 2.099999E-02 S -3.874177E-01 2.149999E-02 S -3.529460E-01 2.199999E-02 S -3.221437E-01 2.249999E-02 S -2.929160E-01 2.299999E-02 S -2.615582E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 6 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -2.226805E-01 2.399999E-02 S -1.720253E-01 2.449999E-02 S -1.105208E-01 2.499999E-02 S -4.634988E-02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 10 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 1.800000E+00 5.000000E-04 S 1.797927E+00 1.000000E-03 S 1.787102E+00 1.500000E-03 S 1.755303E+00 2.000000E-03 S 1.690605E+00 2.500000E-03 S 1.589987E+00 3.000000E-03 S 1.464497E+00 3.500000E-03 S 1.334881E+00 4.000000E-03 S 1.220342E+00 4.500000E-03 S 1.127921E+00 5.000000E-03 S 1.049639E+00 5.500000E-03 S 9.691646E-01 6.000001E-03 S 8.733443E-01 6.500001E-03 S 7.607322E-01 7.000001E-03 S 6.416159E-01 7.500001E-03 S 5.300467E-01 8.000000E-03 S 4.338370E-01 8.500000E-03 S 3.495873E-01 9.000001E-03 S 2.659540E-01 9.500001E-03 S 1.724412E-01 1.000000E-02 S 6.725135E-02 1.050000E-02 S -4.130216E-02 1.100000E-02 S -1.405079E-01 1.150000E-02 S -2.217086E-01 1.200000E-02 S -2.853948E-01 1.250000E-02 S -3.395713E-01 1.300000E-02 S -3.930537E-01 1.350000E-02 S -4.489467E-01 1.400000E-02 S -5.031651E-01 1.450000E-02 S -5.488954E-01 1.500000E-02 S -5.833790E-01 1.550000E-02 S -6.116607E-01 1.600000E-02 S -6.442282E-01 1.650000E-02 S -6.900287E-01 1.700000E-02 S -7.498215E-01 1.750000E-02 S -8.146790E-01 1.800000E-02 S -8.708181E-01 1.850000E-02 S -9.074854E-01 1.900000E-02 S -9.225335E-01 1.949999E-02 S -9.220529E-01 1.999999E-02 S -9.146458E-01 2.049999E-02 S -9.045979E-01 2.099999E-02 S -8.887582E-01 2.149999E-02 S -8.591183E-01 2.199999E-02 S -8.090271E-01 2.249999E-02 S -7.385848E-01 2.299999E-02 S -6.556048E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 10 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -5.718018E-01 2.399999E-02 S -4.970895E-01 2.449999E-02 S -4.357861E-01 2.499999E-02 S -3.866993E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 12 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 1.800000E+00 5.000000E-04 S 1.797927E+00 1.000000E-03 S 1.787102E+00 1.500000E-03 S 1.755303E+00 2.000000E-03 S 1.690605E+00 2.500000E-03 S 1.589987E+00 3.000000E-03 S 1.464497E+00 3.500000E-03 S 1.334882E+00 4.000000E-03 S 1.220344E+00 4.500000E-03 S 1.127929E+00 5.000000E-03 S 1.049666E+00 5.500000E-03 S 9.692486E-01 6.000001E-03 S 8.735773E-01 6.500001E-03 S 7.613259E-01 7.000001E-03 S 6.430146E-01 7.500001E-03 S 5.331078E-01 8.000000E-03 S 4.400819E-01 8.500000E-03 S 3.615001E-01 9.000001E-03 S 2.872527E-01 9.500001E-03 S 2.081943E-01 1.000000E-02 S 1.236727E-01 1.050000E-02 S 4.246569E-02 1.100000E-02 S -2.346244E-02 1.150000E-02 S -6.781024E-02 1.200000E-02 S -9.505592E-02 1.250000E-02 S -1.182763E-01 1.300000E-02 S -1.512924E-01 1.350000E-02 S -2.006232E-01 1.400000E-02 S -2.625974E-01 1.450000E-02 S -3.271393E-01 1.500000E-02 S -3.850937E-01 1.550000E-02 S -4.338149E-01 1.600000E-02 S -4.774528E-01 1.650000E-02 S -5.224614E-01 1.700000E-02 S -5.721989E-01 1.750000E-02 S -6.247362E-01 1.800000E-02 S -6.751533E-01 1.850000E-02 S -7.200260E-01 1.900000E-02 S -7.602227E-01 1.949999E-02 S -7.996759E-01 1.999999E-02 S -8.411381E-01 2.049999E-02 S -8.824293E-01 2.099999E-02 S -9.163634E-01 2.149999E-02 S -9.346734E-01 2.199999E-02 S -9.330769E-01 2.249999E-02 S -9.136242E-01 2.299999E-02 S -8.824862E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 12 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -8.448462E-01 2.399999E-02 S -8.008913E-01 2.449999E-02 S -7.461870E-01 2.499999E-02 S -6.764216E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 14 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 1.400000E+00 5.000000E-04 S 1.399989E+00 1.000000E-03 S 1.399878E+00 1.500000E-03 S 1.399263E+00 2.000000E-03 S 1.396911E+00 2.500000E-03 S 1.390008E+00 3.000000E-03 S 1.373571E+00 3.500000E-03 S 1.340733E+00 4.000000E-03 S 1.284532E+00 4.500000E-03 S 1.201017E+00 5.000000E-03 S 1.092389E+00 5.500000E-03 S 9.681978E-01 6.000001E-03 S 8.431584E-01 6.500001E-03 S 7.319025E-01 7.000001E-03 S 6.430621E-01 7.500001E-03 S 5.759653E-01 8.000000E-03 S 5.220922E-01 8.500000E-03 S 4.706844E-01 9.000001E-03 S 4.152273E-01 9.500001E-03 S 3.567752E-01 1.000000E-02 S 3.019874E-01 1.050000E-02 S 2.572139E-01 1.100000E-02 S 2.227143E-01 1.150000E-02 S 1.911625E-01 1.200000E-02 S 1.517596E-01 1.250000E-02 S 9.737088E-02 1.300000E-02 S 2.980537E-02 1.350000E-02 S -4.062866E-02 1.400000E-02 S -1.013719E-01 1.450000E-02 S -1.457147E-01 1.500000E-02 S -1.773312E-01 1.550000E-02 S -2.080542E-01 1.600000E-02 S -2.502044E-01 1.650000E-02 S -3.085220E-01 1.700000E-02 S -3.771063E-01 1.750000E-02 S -4.434403E-01 1.800000E-02 S -4.967796E-01 1.850000E-02 S -5.352274E-01 1.900000E-02 S -5.667236E-01 1.949999E-02 S -6.033499E-01 1.999999E-02 S -6.529068E-01 2.049999E-02 S -7.135251E-01 2.099999E-02 S -7.748904E-01 2.149999E-02 S -8.250577E-01 2.199999E-02 S -8.580109E-01 2.249999E-02 S -8.767303E-01 2.299999E-02 S -8.897819E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 14 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -9.040138E-01 2.399999E-02 S -9.186167E-01 2.449999E-02 S -9.247617E-01 2.499999E-02 S -9.110588E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 16 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 1.000000E+00 5.000000E-04 S 1.000000E+00 1.000000E-03 S 9.999996E-01 1.500000E-03 S 9.999961E-01 2.000000E-03 S 9.999766E-01 2.500000E-03 S 9.998934E-01 3.000000E-03 S 9.996044E-01 3.500000E-03 S 9.987585E-01 4.000000E-03 S 9.966207E-01 4.500000E-03 S 9.918768E-01 5.000000E-03 S 9.825222E-01 5.500000E-03 S 9.659878E-01 6.000001E-03 S 9.396369E-01 6.500001E-03 S 9.016234E-01 7.000001E-03 S 8.518763E-01 7.500001E-03 S 7.927610E-01 8.000000E-03 S 7.289321E-01 8.500000E-03 S 6.661525E-01 9.000001E-03 S 6.093503E-01 9.500001E-03 S 5.606978E-01 1.000000E-02 S 5.186869E-01 1.050000E-02 S 4.788362E-01 1.100000E-02 S 4.358766E-01 1.150000E-02 S 3.864088E-01 1.200000E-02 S 3.306412E-01 1.250000E-02 S 2.721987E-01 1.300000E-02 S 2.160326E-01 1.350000E-02 S 1.655702E-01 1.400000E-02 S 1.207588E-01 1.450000E-02 S 7.818323E-02 1.500000E-02 S 3.320773E-02 1.550000E-02 S -1.715590E-02 1.600000E-02 S -7.243516E-02 1.650000E-02 S -1.290782E-01 1.700000E-02 S -1.827828E-01 1.750000E-02 S -2.312724E-01 1.800000E-02 S -2.757182E-01 1.850000E-02 S -3.198912E-01 1.900000E-02 S -3.676163E-01 1.949999E-02 S -4.202256E-01 1.999999E-02 S -4.757032E-01 2.049999E-02 S -5.300686E-01 2.099999E-02 S -5.800328E-01 2.149999E-02 S -6.251019E-01 2.199999E-02 S -6.676880E-01 2.249999E-02 S -7.111528E-01 2.299999E-02 S -7.571254E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 16 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -8.039213E-01 2.399999E-02 S -8.471164E-01 2.449999E-02 S -8.818358E-01 2.499999E-02 S -9.051509E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 18 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 6.000000E-01 5.000000E-04 S 6.000054E-01 1.000000E-03 S 6.000610E-01 1.500000E-03 S 6.003687E-01 2.000000E-03 S 6.015443E-01 2.500000E-03 S 6.049935E-01 3.000000E-03 S 6.132034E-01 3.500000E-03 S 6.295885E-01 4.000000E-03 S 6.575766E-01 4.500000E-03 S 6.990065E-01 5.000000E-03 S 7.524667E-01 5.500000E-03 S 8.125540E-01 6.000001E-03 S 8.707821E-01 6.500001E-03 S 9.180257E-01 7.000001E-03 S 9.474029E-01 7.500001E-03 S 9.560875E-01 8.000000E-03 S 9.450853E-01 8.500000E-03 S 9.172885E-01 9.000001E-03 S 8.752737E-01 9.500001E-03 S 8.204954E-01 1.000000E-02 S 7.544727E-01 1.050000E-02 S 6.809542E-01 1.100000E-02 S 6.070179E-01 1.150000E-02 S 5.415317E-01 1.200000E-02 S 4.912033E-01 1.250000E-02 S 4.564521E-01 1.300000E-02 S 4.300266E-01 1.350000E-02 S 3.999715E-01 1.400000E-02 S 3.558412E-01 1.450000E-02 S 2.947007E-01 1.500000E-02 S 2.231410E-01 1.550000E-02 S 1.537081E-01 1.600000E-02 S 9.759292E-02 1.650000E-02 S 5.793717E-02 1.700000E-02 S 2.795235E-02 1.750000E-02 S -4.851677E-03 1.800000E-02 S -5.088966E-02 1.850000E-02 S -1.120615E-01 1.900000E-02 S -1.807438E-01 1.949999E-02 S -2.448371E-01 1.999999E-02 S -2.955827E-01 2.049999E-02 S -3.330705E-01 2.099999E-02 S -3.659039E-01 2.149999E-02 S -4.053376E-01 2.199999E-02 S -4.578297E-01 2.249999E-02 S -5.209293E-01 2.299999E-02 S -5.851241E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 18 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -6.402619E-01 2.399999E-02 S -6.821428E-01 2.449999E-02 S -7.148568E-01 2.499999E-02 S -7.473989E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 20 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 2.000000E-01 5.000000E-04 S 2.010363E-01 1.000000E-03 S 2.064490E-01 1.500000E-03 S 2.223486E-01 2.000000E-03 S 2.546977E-01 2.500000E-03 S 3.050067E-01 3.000000E-03 S 3.677514E-01 3.500000E-03 S 4.325583E-01 4.000000E-03 S 4.898247E-01 4.500000E-03 S 5.360226E-01 5.000000E-03 S 5.751243E-01 5.500000E-03 S 6.152461E-01 6.000001E-03 S 6.628502E-01 6.500001E-03 S 7.184113E-01 7.000001E-03 S 7.762957E-01 7.500001E-03 S 8.285968E-01 8.000000E-03 S 8.699627E-01 8.500000E-03 S 8.999402E-01 9.000001E-03 S 9.213197E-01 9.500001E-03 S 9.359522E-01 1.000000E-02 S 9.413618E-01 1.050000E-02 S 9.309060E-01 1.100000E-02 S 8.976805E-01 1.150000E-02 S 8.396563E-01 1.200000E-02 S 7.625707E-01 1.250000E-02 S 6.785023E-01 1.300000E-02 S 6.008325E-01 1.350000E-02 S 5.385284E-01 1.400000E-02 S 4.929370E-01 1.450000E-02 S 4.585474E-01 1.500000E-02 S 4.267458E-01 1.550000E-02 S 3.900952E-01 1.600000E-02 S 3.449168E-01 1.650000E-02 S 2.914712E-01 1.700000E-02 S 2.325777E-01 1.750000E-02 S 1.720247E-01 1.800000E-02 S 1.135298E-01 1.850000E-02 S 6.008010E-02 1.900000E-02 S 1.314841E-02 1.949999E-02 S -2.822081E-02 1.999999E-02 S -6.771046E-02 2.049999E-02 S -1.105603E-01 2.099999E-02 S -1.609545E-01 2.149999E-02 S -2.192941E-01 2.199999E-02 S -2.812855E-01 2.249999E-02 S -3.399476E-01 2.299999E-02 S -3.897291E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 20 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -4.302279E-01 2.399999E-02 S -4.668834E-01 2.449999E-02 S -5.078064E-01 2.499999E-02 S -5.585265E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 22 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 1.036297E-03 1.000000E-03 S 6.448957E-03 1.500000E-03 S 2.234865E-02 2.000000E-03 S 5.469774E-02 2.500000E-03 S 1.050067E-01 3.000000E-03 S 1.677516E-01 3.500000E-03 S 2.325593E-01 4.000000E-03 S 2.898291E-01 4.500000E-03 S 3.360392E-01 5.000000E-03 S 3.751797E-01 5.500000E-03 S 4.154142E-01 6.000001E-03 S 4.633162E-01 6.500001E-03 S 5.195987E-01 7.000001E-03 S 5.790933E-01 7.500001E-03 S 6.347188E-01 8.000000E-03 S 6.824524E-01 8.500000E-03 S 7.237657E-01 9.000001E-03 S 7.639171E-01 9.500001E-03 S 8.074585E-01 1.000000E-02 S 8.542047E-01 1.050000E-02 S 8.984423E-01 1.100000E-02 S 9.317729E-01 1.150000E-02 S 9.474572E-01 1.200000E-02 S 9.432592E-01 1.250000E-02 S 9.211190E-01 1.300000E-02 S 8.844186E-01 1.350000E-02 S 8.353205E-01 1.400000E-02 S 7.743906E-01 1.450000E-02 S 7.027317E-01 1.500000E-02 S 6.246831E-01 1.550000E-02 S 5.484668E-01 1.600000E-02 S 4.835350E-01 1.650000E-02 S 4.358509E-01 1.700000E-02 S 4.041026E-01 1.750000E-02 S 3.795864E-01 1.800000E-02 S 3.502883E-01 1.850000E-02 S 3.069992E-01 1.900000E-02 S 2.479411E-01 1.949999E-02 S 1.792513E-01 1.999999E-02 S 1.111955E-01 2.049999E-02 S 5.248595E-02 2.099999E-02 S 6.008454E-03 2.149999E-02 S -3.185295E-02 2.199999E-02 S -6.839571E-02 2.249999E-02 S -1.103272E-01 2.299999E-02 S -1.605586E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 22 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -2.175282E-01 2.399999E-02 S -2.768478E-01 2.449999E-02 S -3.338889E-01 2.499999E-02 S -3.858312E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 24 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 5.341882E-06 1.000000E-03 S 6.100017E-05 1.500000E-03 S 3.687272E-04 2.000000E-03 S 1.544845E-03 2.500000E-03 S 4.996617E-03 3.000000E-03 S 1.321833E-02 3.500000E-03 S 2.964850E-02 4.000000E-03 S 5.778622E-02 4.500000E-03 S 9.965292E-02 5.000000E-03 S 1.542519E-01 5.500000E-03 S 2.170168E-01 6.000001E-03 S 2.809666E-01 6.500001E-03 S 3.393884E-01 7.000001E-03 S 3.888200E-01 7.500001E-03 S 4.306477E-01 8.000000E-03 S 4.702069E-01 8.500000E-03 S 5.136846E-01 9.000001E-03 S 5.645174E-01 9.500001E-03 S 6.214199E-01 1.000000E-02 S 6.792572E-01 1.050000E-02 S 7.322027E-01 1.100000E-02 S 7.771376E-01 1.150000E-02 S 8.150524E-01 1.200000E-02 S 8.495089E-01 1.250000E-02 S 8.831770E-01 1.300000E-02 S 9.147737E-01 1.350000E-02 S 9.385077E-01 1.400000E-02 S 9.465010E-01 1.450000E-02 S 9.327147E-01 1.500000E-02 S 8.959718E-01 1.550000E-02 S 8.403403E-01 1.600000E-02 S 7.729259E-01 1.650000E-02 S 7.007511E-01 1.700000E-02 S 6.287532E-01 1.750000E-02 S 5.598412E-01 1.800000E-02 S 4.962709E-01 1.850000E-02 S 4.406257E-01 1.900000E-02 S 3.951437E-01 1.949999E-02 S 3.596787E-01 1.999999E-02 S 3.300071E-01 2.049999E-02 S 2.983392E-01 2.099999E-02 S 2.565179E-01 2.149999E-02 S 2.003841E-01 2.199999E-02 S 1.326146E-01 2.249999E-02 S 6.193501E-02 2.299999E-02 S -1.255329E-03 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 24 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -5.049701E-02 2.399999E-02 S -8.683186E-02 2.449999E-02 S -1.181399E-01 2.499999E-02 S -1.546051E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 26 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 2.753621E-08 1.000000E-03 S 4.575246E-07 1.500000E-03 S 3.951048E-06 2.000000E-03 S 2.342787E-05 2.500000E-03 S 1.066403E-04 3.000000E-03 S 3.956272E-04 3.500000E-03 S 1.241516E-03 4.000000E-03 S 3.379296E-03 4.500000E-03 S 8.123136E-03 5.000000E-03 S 1.747783E-02 5.500000E-03 S 3.401216E-02 6.000001E-03 S 6.036302E-02 6.500001E-03 S 9.837656E-02 7.000001E-03 S 1.481236E-01 7.500001E-03 S 2.072386E-01 8.000000E-03 S 2.710666E-01 8.500000E-03 S 3.338439E-01 9.000001E-03 S 3.906396E-01 9.500001E-03 S 4.392751E-01 1.000000E-02 S 4.812445E-01 1.050000E-02 S 5.209986E-01 1.100000E-02 S 5.637447E-01 1.150000E-02 S 6.127631E-01 1.200000E-02 S 6.676286E-01 1.250000E-02 S 7.243420E-01 1.300000E-02 S 7.773429E-01 1.350000E-02 S 8.222662E-01 1.400000E-02 S 8.578080E-01 1.450000E-02 S 8.855462E-01 1.500000E-02 S 9.078065E-01 1.550000E-02 S 9.249170E-01 1.600000E-02 S 9.336708E-01 1.650000E-02 S 9.281455E-01 1.700000E-02 S 9.025937E-01 1.750000E-02 S 8.548018E-01 1.800000E-02 S 7.879553E-01 1.850000E-02 S 7.099068E-01 1.900000E-02 S 6.302618E-01 1.949999E-02 S 5.569333E-01 1.999999E-02 S 4.939697E-01 2.049999E-02 S 4.415077E-01 2.099999E-02 S 3.973182E-01 2.149999E-02 S 3.585570E-01 2.199999E-02 S 3.225475E-01 2.249999E-02 S 2.864743E-01 2.299999E-02 S 2.468962E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 26 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 2.001918E-01 2.399999E-02 S 1.442204E-01 2.449999E-02 S 8.024967E-02 2.499999E-02 S 1.355148E-02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 28 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 1.419430E-10 1.000000E-03 S 3.095995E-09 1.500000E-03 S 3.476829E-08 2.000000E-03 S 2.665547E-07 2.500000E-03 S 1.563009E-06 3.000000E-03 S 7.452692E-06 3.500000E-03 S 3.001892E-05 4.000000E-03 S 1.048187E-04 4.500000E-03 S 3.232342E-04 5.000000E-03 S 8.926425E-04 5.500000E-03 S 2.231439E-03 6.000001E-03 S 5.092412E-03 6.500001E-03 S 1.068204E-02 7.000001E-03 S 2.071070E-02 7.500001E-03 S 3.728655E-02 8.000000E-03 S 6.257898E-02 8.500000E-03 S 9.824612E-02 9.000001E-03 S 1.447414E-01 9.500001E-03 S 2.007437E-01 1.000000E-02 S 2.630195E-01 1.050000E-02 S 3.269516E-01 1.100000E-02 S 3.877303E-01 1.150000E-02 S 4.418766E-01 1.200000E-02 S 4.884985E-01 1.250000E-02 S 5.296552E-01 1.300000E-02 S 5.695024E-01 1.350000E-02 S 6.124359E-01 1.400000E-02 S 6.609933E-01 1.450000E-02 S 7.144975E-01 1.500000E-02 S 7.691550E-01 1.550000E-02 S 8.196149E-01 1.600000E-02 S 8.612108E-01 1.650000E-02 S 8.916873E-01 1.700000E-02 S 9.114488E-01 1.750000E-02 S 9.221938E-01 1.800000E-02 S 9.247667E-01 1.850000E-02 S 9.175997E-01 1.900000E-02 S 8.968557E-01 1.949999E-02 S 8.584104E-01 1.999999E-02 S 8.006791E-01 2.049999E-02 S 7.266707E-01 2.099999E-02 S 6.439676E-01 2.149999E-02 S 5.624333E-01 2.199999E-02 S 4.907136E-01 2.249999E-02 S 4.332642E-01 2.299999E-02 S 3.893180E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 28 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 3.540983E-01 2.399999E-02 S 3.213845E-01 2.449999E-02 S 2.859658E-01 2.499999E-02 S 2.448725E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 30 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 7.316847E-13 1.000000E-03 S 1.976111E-11 1.500000E-03 S 2.732149E-10 2.000000E-03 S 2.568786E-09 2.500000E-03 S 1.842298E-08 3.000000E-03 S 1.072459E-07 3.500000E-03 S 5.267838E-07 4.000000E-03 S 2.241700E-06 4.500000E-03 S 8.423373E-06 5.000000E-03 S 2.835150E-05 5.500000E-03 S 8.643097E-05 6.000001E-03 S 2.407648E-04 6.500001E-03 S 6.172184E-04 7.000001E-03 S 1.464671E-03 7.500001E-03 S 3.232914E-03 8.000000E-03 S 6.664257E-03 8.500000E-03 S 1.287318E-02 9.000001E-03 S 2.336930E-02 9.500001E-03 S 3.996704E-02 1.000000E-02 S 6.453443E-02 1.050000E-02 S 9.857380E-02 1.100000E-02 S 1.426997E-01 1.150000E-02 S 1.961637E-01 1.200000E-02 S 2.566326E-01 1.250000E-02 S 3.204101E-01 1.300000E-02 S 3.831763E-01 1.350000E-02 S 4.411136E-01 1.400000E-02 S 4.920754E-01 1.450000E-02 S 5.363302E-01 1.500000E-02 S 5.764828E-01 1.550000E-02 S 6.164597E-01 1.600000E-02 S 6.598482E-01 1.650000E-02 S 7.082295E-01 1.700000E-02 S 7.602433E-01 1.750000E-02 S 8.118554E-01 1.800000E-02 S 8.577665E-01 1.850000E-02 S 8.933265E-01 1.900000E-02 S 9.160266E-01 1.949999E-02 S 9.258191E-01 1.999999E-02 S 9.241289E-01 2.049999E-02 S 9.121538E-01 2.099999E-02 S 8.895078E-01 2.149999E-02 S 8.541276E-01 2.199999E-02 S 8.036714E-01 2.249999E-02 S 7.377344E-01 2.299999E-02 S 6.596111E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 30 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 5.764343E-01 2.399999E-02 S 4.973155E-01 2.449999E-02 S 4.301952E-01 2.499999E-02 S 3.788729E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 40 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 2.663014E-24 1.000000E-03 S 1.411090E-22 1.500000E-03 S 3.783356E-21 2.000000E-03 S 6.836586E-20 2.500000E-03 S 9.358414E-19 3.000000E-03 S 1.034294E-17 3.500000E-03 S 9.606728E-17 4.000000E-03 S 7.707984E-16 4.500000E-03 S 5.450389E-15 5.000000E-03 S 3.448476E-14 5.500000E-03 S 1.975619E-13 6.000001E-03 S 1.034673E-12 6.500001E-03 S 4.992576E-12 7.000001E-03 S 2.234080E-11 7.500001E-03 S 9.322124E-11 8.000000E-03 S 3.644298E-10 8.500000E-03 S 1.340156E-09 9.000001E-03 S 4.652307E-09 9.500001E-03 S 1.529295E-08 1.000000E-02 S 4.773123E-08 1.050000E-02 S 1.417895E-07 1.100000E-02 S 4.017368E-07 1.150000E-02 S 1.087725E-06 1.200000E-02 S 2.819116E-06 1.250000E-02 S 7.004569E-06 1.300000E-02 S 1.670759E-05 1.350000E-02 S 3.830343E-05 1.400000E-02 S 8.449369E-05 1.450000E-02 S 1.795125E-04 1.500000E-02 S 3.676406E-04 1.550000E-02 S 7.263440E-04 1.600000E-02 S 1.385300E-03 1.650000E-02 S 2.552022E-03 1.700000E-02 S 4.543450E-03 1.750000E-02 S 7.820583E-03 1.800000E-02 S 1.301988E-02 1.850000E-02 S 2.097135E-02 1.900000E-02 S 3.268982E-02 1.949999E-02 S 4.932455E-02 1.999999E-02 S 7.205509E-02 2.049999E-02 S 1.019298E-01 2.099999E-02 S 1.396576E-01 2.149999E-02 S 1.853842E-01 2.199999E-02 S 2.385010E-01 2.249999E-02 S 2.975496E-01 2.299999E-02 S 3.602812E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 40 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 4.239054E-01 2.399999E-02 S 4.855189E-01 2.449999E-02 S 5.426449E-01 2.499999E-02 S 5.937552E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 50 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 9.692211E-36 1.000000E-03 S 7.653863E-34 1.500000E-03 S 3.046266E-32 2.000000E-03 S 8.143689E-31 2.500000E-03 S 1.644398E-29 3.000000E-03 S 2.674122E-28 3.500000E-03 S 3.646797E-27 4.000000E-03 S 4.288266E-26 4.500000E-03 S 4.437156E-25 5.000000E-03 S 4.102858E-24 5.500000E-03 S 3.431593E-23 6.000001E-03 S 2.621665E-22 6.500001E-03 S 1.844253E-21 7.000001E-03 S 1.202660E-20 7.500001E-03 S 7.311678E-20 8.000000E-03 S 4.164505E-19 8.500000E-03 S 2.231615E-18 9.000001E-03 S 1.129251E-17 9.500001E-03 S 5.413665E-17 1.000000E-02 S 2.465900E-16 1.050000E-02 S 1.069943E-15 1.100000E-02 S 4.432509E-15 1.150000E-02 S 1.756893E-14 1.200000E-02 S 6.675194E-14 1.250000E-02 S 2.435268E-13 1.300000E-02 S 8.544149E-13 1.350000E-02 S 2.886998E-12 1.400000E-02 S 9.406852E-12 1.450000E-02 S 2.959239E-11 1.500000E-02 S 8.997669E-11 1.550000E-02 S 2.646869E-10 1.600000E-02 S 7.540354E-10 1.650000E-02 S 2.082001E-09 1.700000E-02 S 5.576280E-09 1.750000E-02 S 1.449776E-08 1.800000E-02 S 3.661376E-08 1.850000E-02 S 8.987653E-08 1.900000E-02 S 2.145643E-07 1.949999E-02 S 4.984357E-07 1.999999E-02 S 1.127234E-06 2.049999E-02 S 2.482946E-06 2.099999E-02 S 5.329031E-06 2.149999E-02 S 1.114859E-05 2.199999E-02 S 2.274210E-05 2.249999E-02 S 4.524950E-05 2.299999E-02 S 8.783948E-05 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 50 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 1.664044E-04 2.399999E-02 S 3.077034E-04 2.449999E-02 S 5.554855E-04 2.499999E-02 S 9.791619E-04 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 100 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 0.0 1.000000E-03 S 0.0 1.500000E-03 S 0.0 2.000000E-03 S 0.0 2.500000E-03 S 0.0 3.000000E-03 S 0.0 3.500000E-03 S 0.0 4.000000E-03 S 0.0 4.500000E-03 S 0.0 5.000000E-03 S 0.0 5.500000E-03 S 0.0 6.000001E-03 S 0.0 6.500001E-03 S 0.0 7.000001E-03 S 0.0 7.500001E-03 S 0.0 8.000000E-03 S 0.0 8.500000E-03 S 0.0 9.000001E-03 S 0.0 9.500001E-03 S 0.0 1.000000E-02 S 0.0 1.050000E-02 S 0.0 1.100000E-02 S 0.0 1.150000E-02 S 0.0 1.200000E-02 S 0.0 1.250000E-02 S 0.0 1.300000E-02 S 0.0 1.350000E-02 S 0.0 1.400000E-02 S 0.0 1.450000E-02 S 0.0 1.500000E-02 S 0.0 1.550000E-02 S 0.0 1.600000E-02 S 0.0 1.650000E-02 S 0.0 1.700000E-02 S 0.0 1.750000E-02 S 0.0 1.800000E-02 S 0.0 1.850000E-02 S 0.0 1.900000E-02 S 0.0 1.949999E-02 S 0.0 1.999999E-02 S 0.0 2.049999E-02 S 0.0 2.099999E-02 S 0.0 2.149999E-02 S 0.0 2.199999E-02 S 0.0 2.249999E-02 S 0.0 2.299999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 100 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 0.0 2.399999E-02 S 0.0 2.449999E-02 S 0.0 2.499999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 200 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 0.0 1.000000E-03 S 0.0 1.500000E-03 S 0.0 2.000000E-03 S 0.0 2.500000E-03 S 0.0 3.000000E-03 S 0.0 3.500000E-03 S 0.0 4.000000E-03 S 0.0 4.500000E-03 S 0.0 5.000000E-03 S 0.0 5.500000E-03 S 0.0 6.000001E-03 S 0.0 6.500001E-03 S 0.0 7.000001E-03 S 0.0 7.500001E-03 S 0.0 8.000000E-03 S 0.0 8.500000E-03 S 0.0 9.000001E-03 S 0.0 9.500001E-03 S 0.0 1.000000E-02 S 0.0 1.050000E-02 S 0.0 1.100000E-02 S 0.0 1.150000E-02 S 0.0 1.200000E-02 S 0.0 1.250000E-02 S 0.0 1.300000E-02 S 0.0 1.350000E-02 S 0.0 1.400000E-02 S 0.0 1.450000E-02 S 0.0 1.500000E-02 S 0.0 1.550000E-02 S 0.0 1.600000E-02 S 0.0 1.650000E-02 S 0.0 1.700000E-02 S 0.0 1.750000E-02 S 0.0 1.800000E-02 S 0.0 1.850000E-02 S 0.0 1.900000E-02 S 0.0 1.949999E-02 S 0.0 1.999999E-02 S 0.0 2.049999E-02 S 0.0 2.099999E-02 S 0.0 2.149999E-02 S 0.0 2.199999E-02 S 0.0 2.249999E-02 S 0.0 2.299999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 200 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 0.0 2.399999E-02 S 0.0 2.449999E-02 S 0.0 2.499999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 500 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 0.0 1.000000E-03 S 0.0 1.500000E-03 S 0.0 2.000000E-03 S 0.0 2.500000E-03 S 0.0 3.000000E-03 S 0.0 3.500000E-03 S 0.0 4.000000E-03 S 0.0 4.500000E-03 S 0.0 5.000000E-03 S 0.0 5.500000E-03 S 0.0 6.000001E-03 S 0.0 6.500001E-03 S 0.0 7.000001E-03 S 0.0 7.500001E-03 S 0.0 8.000000E-03 S 0.0 8.500000E-03 S 0.0 9.000001E-03 S 0.0 9.500001E-03 S 0.0 1.000000E-02 S 0.0 1.050000E-02 S 0.0 1.100000E-02 S 0.0 1.150000E-02 S 0.0 1.200000E-02 S 0.0 1.250000E-02 S 0.0 1.300000E-02 S 0.0 1.350000E-02 S 0.0 1.400000E-02 S 0.0 1.450000E-02 S 0.0 1.500000E-02 S 0.0 1.550000E-02 S 0.0 1.600000E-02 S 0.0 1.650000E-02 S 0.0 1.700000E-02 S 0.0 1.750000E-02 S 0.0 1.800000E-02 S 0.0 1.850000E-02 S 0.0 1.900000E-02 S 0.0 1.949999E-02 S 0.0 1.999999E-02 S 0.0 2.049999E-02 S 0.0 2.099999E-02 S 0.0 2.149999E-02 S 0.0 2.199999E-02 S 0.0 2.249999E-02 S 0.0 2.299999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 500 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 0.0 2.399999E-02 S 0.0 2.449999E-02 S 0.0 2.499999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 2 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 3.410034E-07 1.000000E-03 S 5.813917E-07 1.500000E-03 S -2.940163E-06 2.000000E-03 S -3.334588E-05 2.500000E-03 S -2.052975E-04 3.000000E-03 S -1.003573E-03 3.500000E-03 S -4.201705E-03 4.000000E-03 S -1.548357E-02 4.500000E-03 S -5.098340E-02 5.000000E-03 S -1.516142E-01 5.500000E-03 S -4.105894E-01 6.000001E-03 S -1.019275E+00 6.500001E-03 S -2.331598E+00 7.000001E-03 S -4.934654E+00 7.500001E-03 S -9.692177E+00 8.000000E-03 S -1.770351E+01 8.500000E-03 S -3.010762E+01 9.000001E-03 S -4.768073E+01 9.500001E-03 S -7.024547E+01 1.000000E-02 S -9.602981E+01 1.050000E-02 S -1.212492E+02 1.100000E-02 S -1.402637E+02 1.150000E-02 S -1.465937E+02 1.200000E-02 S -1.348102E+02 1.250000E-02 S -1.028845E+02 1.300000E-02 S -5.414581E+01 1.350000E-02 S 2.196195E+00 1.400000E-02 S 5.273956E+01 1.450000E-02 S 8.377840E+01 1.500000E-02 S 8.631466E+01 1.550000E-02 S 6.024429E+01 1.600000E-02 S 1.563319E+01 1.650000E-02 S -3.010360E+01 1.700000E-02 S -5.857425E+01 1.750000E-02 S -5.794637E+01 1.800000E-02 S -2.827649E+01 1.850000E-02 S 1.815122E+01 1.900000E-02 S 6.212618E+01 1.949999E-02 S 8.631575E+01 1.999999E-02 S 8.342169E+01 2.049999E-02 S 5.950977E+01 2.099999E-02 S 3.055760E+01 2.149999E-02 S 1.376106E+01 2.199999E-02 S 1.807646E+01 2.249999E-02 S 3.914585E+01 2.299999E-02 S 6.158339E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 2 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 6.761407E+01 2.399999E-02 S 4.741862E+01 2.449999E-02 S 5.373764E+00 2.499999E-02 S -4.150204E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 4 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -1.334598E-05 1.000000E-03 S -8.192464E-05 1.500000E-03 S -5.406925E-04 2.000000E-03 S -3.064563E-03 2.500000E-03 S -1.437132E-02 3.000000E-03 S -5.690387E-02 3.500000E-03 S -1.947229E-01 4.000000E-03 S -5.864248E-01 4.500000E-03 S -1.575635E+00 5.000000E-03 S -3.816333E+00 5.500000E-03 S -8.399201E+00 6.000001E-03 S -1.689998E+01 6.500001E-03 S -3.123265E+01 7.000001E-03 S -5.319742E+01 7.500001E-03 S -8.370447E+01 8.000000E-03 S -1.218359E+02 8.500000E-03 S -1.641219E+02 9.000001E-03 S -2.045279E+02 9.500001E-03 S -2.355395E+02 1.000000E-02 S -2.503206E+02 1.050000E-02 S -2.453269E+02 1.100000E-02 S -2.222519E+02 1.150000E-02 S -1.881393E+02 1.200000E-02 S -1.531018E+02 1.250000E-02 S -1.262256E+02 1.300000E-02 S -1.113749E+02 1.350000E-02 S -1.050669E+02 1.400000E-02 S -9.790433E+01 1.450000E-02 S -7.935943E+01 1.500000E-02 S -4.379127E+01 1.550000E-02 S 5.460579E+00 1.600000E-02 S 5.644092E+01 1.650000E-02 S 9.375700E+01 1.700000E-02 S 1.062429E+02 1.750000E-02 S 9.312646E+01 1.800000E-02 S 6.518102E+01 1.850000E-02 S 3.987963E+01 1.900000E-02 S 3.285201E+01 1.949999E-02 S 5.010585E+01 1.999999E-02 S 8.517708E+01 2.049999E-02 S 1.226967E+02 2.099999E-02 S 1.463187E+02 2.149999E-02 S 1.466164E+02 2.199999E-02 S 1.247906E+02 2.249999E-02 S 9.063966E+01 2.299999E-02 S 5.656911E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 4 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 3.143396E+01 2.399999E-02 S 1.756719E+01 2.449999E-02 S 1.194785E+01 2.499999E-02 S 9.805065E+00 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 5 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -7.531835E-05 1.000000E-03 S -7.488501E-04 1.500000E-03 S -5.051047E-03 2.000000E-03 S -2.596167E-02 2.500000E-03 S -1.081533E-01 3.000000E-03 S -3.792736E-01 3.500000E-03 S -1.148388E+00 4.000000E-03 S -3.056652E+00 4.500000E-03 S -7.246668E+00 5.000000E-03 S -1.545359E+01 5.500000E-03 S -2.986160E+01 6.000001E-03 S -5.257126E+01 6.500001E-03 S -8.464697E+01 7.000001E-03 S -1.249671E+02 7.500001E-03 S -1.693919E+02 8.000000E-03 S -2.109030E+02 8.500000E-03 S -2.411637E+02 9.000001E-03 S -2.533343E+02 9.500001E-03 S -2.451798E+02 1.000000E-02 S -2.209494E+02 1.050000E-02 S -1.906763E+02 1.100000E-02 S -1.665727E+02 1.150000E-02 S -1.577364E+02 1.200000E-02 S -1.656038E+02 1.250000E-02 S -1.826595E+02 1.300000E-02 S -1.955220E+02 1.350000E-02 S -1.912378E+02 1.400000E-02 S -1.636728E+02 1.450000E-02 S -1.165374E+02 1.500000E-02 S -6.125519E+01 1.550000E-02 S -1.077846E+01 1.600000E-02 S 2.710047E+01 1.650000E-02 S 5.298438E+01 1.700000E-02 S 7.373092E+01 1.750000E-02 S 9.637457E+01 1.800000E-02 S 1.221380E+02 1.850000E-02 S 1.446397E+02 1.900000E-02 S 1.537638E+02 1.949999E-02 S 1.428875E+02 1.999999E-02 S 1.147034E+02 2.049999E-02 S 8.146926E+01 2.099999E-02 S 5.894560E+01 2.149999E-02 S 5.743248E+01 2.199999E-02 S 7.545905E+01 2.249999E-02 S 1.002843E+02 2.299999E-02 S 1.151913E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 5 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 1.092304E+02 2.399999E-02 S 8.342061E+01 2.449999E-02 S 4.959605E+01 2.499999E-02 S 2.273301E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 6 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -9.030352E-04 1.000000E-03 S -7.828590E-03 1.500000E-03 S -4.592682E-02 2.000000E-03 S -2.053816E-01 2.500000E-03 S -7.444196E-01 3.000000E-03 S -2.269780E+00 3.500000E-03 S -5.967357E+00 4.000000E-03 S -1.376324E+01 4.500000E-03 S -2.819705E+01 5.000000E-03 S -5.177805E+01 5.500000E-03 S -8.577039E+01 6.000001E-03 S -1.287288E+02 6.500001E-03 S -1.755212E+02 7.000001E-03 S -2.177243E+02 7.500001E-03 S -2.458866E+02 8.000000E-03 S -2.532121E+02 8.500000E-03 S -2.391503E+02 9.000001E-03 S -2.108742E+02 9.500001E-03 S -1.812391E+02 1.000000E-02 S -1.635160E+02 1.050000E-02 S -1.651555E+02 1.100000E-02 S -1.838605E+02 1.150000E-02 S -2.084435E+02 1.200000E-02 S -2.244733E+02 1.250000E-02 S -2.218757E+02 1.300000E-02 S -2.002007E+02 1.350000E-02 S -1.683346E+02 1.400000E-02 S -1.386135E+02 1.450000E-02 S -1.187735E+02 1.500000E-02 S -1.067261E+02 1.550000E-02 S -9.161859E+01 1.600000E-02 S -6.080544E+01 1.650000E-02 S -8.562041E+00 1.700000E-02 S 5.890973E+01 1.750000E-02 S 1.254710E+02 1.800000E-02 S 1.729936E+02 1.850000E-02 S 1.905112E+02 1.900000E-02 S 1.791352E+02 1.949999E-02 S 1.500922E+02 1.999999E-02 S 1.176540E+02 2.049999E-02 S 9.179446E+01 2.099999E-02 S 7.512075E+01 2.149999E-02 S 6.527404E+01 2.199999E-02 S 6.002999E+01 2.249999E-02 S 6.058546E+01 2.299999E-02 S 7.023552E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 6 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 8.953293E+01 2.399999E-02 S 1.121597E+02 2.449999E-02 S 1.256754E+02 2.499999E-02 S 1.178821E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 10 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -1.289789E+01 1.000000E-03 S -4.262465E+01 1.500000E-03 S -9.649753E+01 2.000000E-03 S -1.653160E+02 2.500000E-03 S -2.261077E+02 3.000000E-03 S -2.551053E+02 3.500000E-03 S -2.441551E+02 4.000000E-03 S -2.069601E+02 4.500000E-03 S -1.707030E+02 5.000000E-03 S -1.587567E+02 5.500000E-03 S -1.762944E+02 6.000001E-03 S -2.084323E+02 6.500001E-03 S -2.317285E+02 7.000001E-03 S -2.306854E+02 7.500001E-03 S -2.077789E+02 8.000000E-03 S -1.804594E+02 8.500000E-03 S -1.678830E+02 9.000001E-03 S -1.771461E+02 9.500001E-03 S -1.987026E+02 1.000000E-02 S -2.137433E+02 1.050000E-02 S -2.077592E+02 1.100000E-02 S -1.804064E+02 1.150000E-02 S -1.448868E+02 1.200000E-02 S -1.178627E+02 1.250000E-02 S -1.076590E+02 1.300000E-02 S -1.093755E+02 1.350000E-02 S -1.101114E+02 1.400000E-02 S -9.994864E+01 1.450000E-02 S -8.021390E+01 1.500000E-02 S -6.276532E+01 1.550000E-02 S -6.084921E+01 1.600000E-02 S -7.836794E+01 1.650000E-02 S -1.055933E+02 1.700000E-02 S -1.246504E+02 1.750000E-02 S -1.209967E+02 1.800000E-02 S -9.280633E+01 1.850000E-02 S -5.171532E+01 1.900000E-02 S -1.456752E+01 1.949999E-02 S 7.887696E+00 1.999999E-02 S 1.745502E+01 2.049999E-02 S 2.588759E+01 2.099999E-02 S 4.547959E+01 2.149999E-02 S 7.973110E+01 2.199999E-02 S 1.205334E+02 2.249999E-02 S 1.534222E+02 2.299999E-02 S 1.667831E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 10 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 1.585153E+02 2.399999E-02 S 1.360156E+02 2.449999E-02 S 1.103902E+02 2.499999E-02 S 8.969443E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 12 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -1.289789E+01 1.000000E-03 S -4.262465E+01 1.500000E-03 S -9.649753E+01 2.000000E-03 S -1.653160E+02 2.500000E-03 S -2.261076E+02 3.000000E-03 S -2.551048E+02 3.500000E-03 S -2.441530E+02 4.000000E-03 S -2.069524E+02 4.500000E-03 S -1.706775E+02 5.000000E-03 S -1.586809E+02 5.500000E-03 S -1.760891E+02 6.000001E-03 S -2.079227E+02 6.500001E-03 S -2.305627E+02 7.000001E-03 S -2.282181E+02 7.500001E-03 S -2.029328E+02 8.000000E-03 S -1.716077E+02 8.500000E-03 S -1.528292E+02 9.000001E-03 S -1.533058E+02 9.500001E-03 S -1.635800E+02 1.000000E-02 S -1.657286E+02 1.050000E-02 S -1.471351E+02 1.100000E-02 S -1.102759E+02 1.150000E-02 S -7.159347E+01 1.200000E-02 S -5.046605E+01 1.250000E-02 S -5.623652E+01 1.300000E-02 S -8.234692E+01 1.350000E-02 S -1.113050E+02 1.400000E-02 S -1.265160E+02 1.450000E-02 S -1.224963E+02 1.500000E-02 S -1.066756E+02 1.550000E-02 S -9.235905E+01 1.600000E-02 S -8.864647E+01 1.650000E-02 S -9.474614E+01 1.700000E-02 S -1.022749E+02 1.750000E-02 S -1.029544E+02 1.800000E-02 S -9.528965E+01 1.850000E-02 S -8.506940E+01 1.900000E-02 S -7.965003E+01 1.949999E-02 S -8.091541E+01 1.999999E-02 S -8.275336E+01 2.049999E-02 S -7.522523E+01 2.099999E-02 S -5.224413E+01 2.149999E-02 S -1.671347E+01 2.199999E-02 S 2.104925E+01 2.249999E-02 S 5.059069E+01 2.299999E-02 S 6.877804E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 12 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 8.159486E+01 2.399999E-02 S 9.865917E+01 2.449999E-02 S 1.244697E+02 2.499999E-02 S 1.531320E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 14 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -1.219732E-01 1.000000E-03 S -7.266989E-01 1.500000E-03 S -2.967398E+00 2.000000E-03 S -9.254255E+00 2.500000E-03 S -2.333982E+01 3.000000E-03 S -4.927536E+01 3.500000E-03 S -8.903842E+01 4.000000E-03 S -1.397156E+02 4.500000E-03 S -1.921436E+02 5.000000E-03 S -2.328196E+02 5.500000E-03 S -2.492303E+02 6.000001E-03 S -2.362952E+02 6.500001E-03 S -2.000964E+02 7.000001E-03 S -1.559373E+02 7.500001E-03 S -1.209698E+02 8.000000E-03 S -1.052809E+02 8.500000E-03 S -1.068649E+02 9.000001E-03 S -1.139092E+02 9.500001E-03 S -1.132399E+02 1.000000E-02 S -9.956128E+01 1.050000E-02 S -7.927309E+01 1.100000E-02 S -6.605138E+01 1.150000E-02 S -7.095470E+01 1.200000E-02 S -9.379162E+01 1.250000E-02 S -1.219542E+02 1.300000E-02 S -1.379995E+02 1.350000E-02 S -1.311772E+02 1.400000E-02 S -1.050860E+02 1.450000E-02 S -7.595927E+01 1.500000E-02 S -6.233951E+01 1.550000E-02 S -7.287329E+01 1.600000E-02 S -1.004678E+02 1.650000E-02 S -1.269019E+02 1.700000E-02 S -1.349184E+02 1.750000E-02 S -1.196732E+02 1.800000E-02 S -9.178699E+01 1.850000E-02 S -6.994408E+01 1.900000E-02 S -6.812253E+01 1.949999E-02 S -8.618313E+01 1.999999E-02 S -1.101752E+02 2.049999E-02 S -1.219836E+02 2.099999E-02 S -1.115326E+02 2.149999E-02 S -8.312055E+01 2.199999E-02 S -5.167252E+01 2.249999E-02 S -3.177096E+01 2.299999E-02 S -2.728356E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 14 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -2.883476E+01 2.399999E-02 S -2.074787E+01 2.449999E-02 S 7.557844E+00 2.499999E-02 S 5.373360E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 16 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S -4.455106E-04 1.000000E-03 S -3.905079E-03 1.500000E-03 S -2.295648E-02 2.000000E-03 S -1.026923E-01 2.500000E-03 S -3.722202E-01 3.000000E-03 S -1.134904E+00 3.500000E-03 S -2.983689E+00 4.000000E-03 S -6.881623E+00 4.500000E-03 S -1.409852E+01 5.000000E-03 S -2.588902E+01 5.500000E-03 S -4.288520E+01 6.000001E-03 S -6.436443E+01 6.500001E-03 S -8.776067E+01 7.000001E-03 S -1.088624E+02 7.500001E-03 S -1.229441E+02 8.000000E-03 S -1.266084E+02 8.500000E-03 S -1.195819E+02 9.000001E-03 S -1.054547E+02 9.500001E-03 S -9.066341E+01 1.000000E-02 S -8.186157E+01 1.050000E-02 S -8.281026E+01 1.100000E-02 S -9.242741E+01 1.150000E-02 S -1.052355E+02 1.200000E-02 S -1.142101E+02 1.250000E-02 S -1.146085E+02 1.300000E-02 S -1.066286E+02 1.350000E-02 S -9.527380E+01 1.400000E-02 S -8.738693E+01 1.450000E-02 S -8.755111E+01 1.500000E-02 S -9.533913E+01 1.550000E-02 S -1.056429E+02 1.600000E-02 S -1.119223E+02 1.650000E-02 S -1.103477E+02 1.700000E-02 S -1.021942E+02 1.750000E-02 S -9.293530E+01 1.800000E-02 S -8.861890E+01 1.850000E-02 S -9.189816E+01 1.900000E-02 S -1.003343E+02 1.949999E-02 S -1.080869E+02 1.999999E-02 S -1.098431E+02 2.049999E-02 S -1.043296E+02 2.099999E-02 S -9.503320E+01 2.149999E-02 S -8.765514E+01 2.199999E-02 S -8.605090E+01 2.249999E-02 S -8.943742E+01 2.299999E-02 S -9.276853E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 16 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -8.999100E+01 2.399999E-02 S -7.791452E+01 2.449999E-02 S -5.803454E+01 2.499999E-02 S -3.510950E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 18 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 6.098682E-02 1.000000E-03 S 3.633034E-01 1.500000E-03 S 1.483304E+00 2.000000E-03 S 4.624825E+00 2.500000E-03 S 1.165911E+01 3.000000E-03 S 2.459498E+01 3.500000E-03 S 4.437316E+01 4.000000E-03 S 6.941800E+01 4.500000E-03 S 9.489009E+01 5.000000E-03 S 1.135475E+02 5.500000E-03 S 1.183155E+02 6.000001E-03 S 1.054717E+02 6.500001E-03 S 7.662074E+01 7.000001E-03 S 3.806184E+01 7.500001E-03 S -2.317552E+00 8.000000E-03 S -3.879902E+01 8.500000E-03 S -6.981163E+01 9.000001E-03 S -9.679312E+01 9.500001E-03 S -1.208010E+02 1.000000E-02 S -1.395412E+02 1.050000E-02 S -1.474548E+02 1.100000E-02 S -1.394225E+02 1.150000E-02 S -1.158146E+02 1.200000E-02 S -8.507956E+01 1.250000E-02 S -6.117678E+01 1.300000E-02 S -5.648062E+01 1.350000E-02 S -7.418537E+01 1.400000E-02 S -1.052708E+02 1.450000E-02 S -1.327002E+02 1.500000E-02 S -1.409926E+02 1.550000E-02 S -1.255480E+02 1.600000E-02 S -9.577095E+01 1.650000E-02 S -6.964057E+01 1.700000E-02 S -6.278885E+01 1.750000E-02 S -7.884200E+01 1.800000E-02 S -1.072098E+02 1.850000E-02 S -1.298541E+02 1.900000E-02 S -1.327756E+02 1.949999E-02 S -1.148389E+02 1.999999E-02 S -8.823332E+01 2.049999E-02 S -7.032122E+01 2.099999E-02 S -7.226711E+01 2.149999E-02 S -9.192577E+01 2.199999E-02 S -1.155918E+02 2.249999E-02 S -1.272944E+02 2.299999E-02 S -1.193325E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 18 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -9.701871E+01 2.399999E-02 S -7.459489E+01 2.449999E-02 S -6.525615E+01 2.499999E-02 S -7.211802E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 20 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 6.448957E+00 1.000000E-03 S 2.131235E+01 1.500000E-03 S 4.824878E+01 2.000000E-03 S 8.265799E+01 2.500000E-03 S 1.130536E+02 3.000000E-03 S 1.275516E+02 3.500000E-03 S 1.220733E+02 4.000000E-03 S 1.034643E+02 4.500000E-03 S 8.529959E+01 5.000000E-03 S 7.922345E+01 5.500000E-03 S 8.772591E+01 6.000001E-03 S 1.031652E+02 6.500001E-03 S 1.134455E+02 7.000001E-03 S 1.101855E+02 7.500001E-03 S 9.366700E+01 8.000000E-03 S 7.134342E+01 8.500000E-03 S 5.135701E+01 9.000001E-03 S 3.601205E+01 9.500001E-03 S 2.004214E+01 1.000000E-02 S -5.046202E+00 1.050000E-02 S -4.368137E+01 1.100000E-02 S -9.124971E+01 1.150000E-02 S -1.351097E+02 1.200000E-02 S -1.611540E+02 1.250000E-02 S -1.617383E+02 1.300000E-02 S -1.399739E+02 1.350000E-02 S -1.078954E+02 1.400000E-02 S -7.998098E+01 1.450000E-02 S -6.619127E+01 1.500000E-02 S -6.845220E+01 1.550000E-02 S -8.182899E+01 1.600000E-02 S -9.862402E+01 1.650000E-02 S -1.123391E+02 1.700000E-02 S -1.194464E+02 1.750000E-02 S -1.190478E+02 1.800000E-02 S -1.119446E+02 1.850000E-02 S -1.003814E+02 1.900000E-02 S -8.830091E+01 1.949999E-02 S -8.085886E+01 1.999999E-02 S -8.233946E+01 2.049999E-02 S -9.324399E+01 2.099999E-02 S -1.087339E+02 2.149999E-02 S -1.203310E+02 2.199999E-02 S -1.206534E+02 2.249999E-02 S -1.084436E+02 2.299999E-02 S -9.028031E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 20 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -7.715427E+01 2.399999E-02 S -7.757847E+01 2.449999E-02 S -9.164309E+01 2.499999E-02 S -1.102674E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 22 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 6.448957E+00 1.000000E-03 S 2.131235E+01 1.500000E-03 S 4.824878E+01 2.000000E-03 S 8.265802E+01 2.500000E-03 S 1.130538E+02 3.000000E-03 S 1.275526E+02 3.500000E-03 S 1.220775E+02 4.000000E-03 S 1.034798E+02 4.500000E-03 S 8.535057E+01 5.000000E-03 S 7.937506E+01 5.500000E-03 S 8.813651E+01 6.000001E-03 S 1.041844E+02 6.500001E-03 S 1.157771E+02 7.000001E-03 S 1.151202E+02 7.500001E-03 S 1.033592E+02 8.000000E-03 S 8.904693E+01 8.500000E-03 S 8.146464E+01 9.000001E-03 S 8.369279E+01 9.500001E-03 S 9.028764E+01 1.000000E-02 S 9.098373E+01 1.050000E-02 S 7.756819E+01 1.100000E-02 S 4.901491E+01 1.150000E-02 S 1.148630E+01 1.200000E-02 S -2.633818E+01 1.250000E-02 S -5.884061E+01 1.300000E-02 S -8.579851E+01 1.350000E-02 S -1.100280E+02 1.400000E-02 S -1.325888E+02 1.450000E-02 S -1.497075E+02 1.500000E-02 S -1.542649E+02 1.550000E-02 S -1.411482E+02 1.600000E-02 S -1.126159E+02 1.650000E-02 S -7.943240E+01 1.700000E-02 S -5.626441E+01 1.750000E-02 S -5.381424E+01 1.800000E-02 S -7.258719E+01 1.850000E-02 S -1.023472E+02 1.900000E-02 S -1.277480E+02 1.949999E-02 S -1.367456E+02 1.999999E-02 S -1.267653E+02 2.049999E-02 S -1.051870E+02 2.099999E-02 S -8.433890E+01 2.149999E-02 S -7.440416E+01 2.199999E-02 S -7.847427E+01 2.249999E-02 S -9.216285E+01 2.299999E-02 S -1.072010E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 22 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -1.162892E+02 2.399999E-02 S -1.163607E+02 2.449999E-02 S -1.089834E+02 2.499999E-02 S -9.853654E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 24 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 6.100016E-02 1.000000E-03 S 3.633853E-01 1.500000E-03 S 1.483845E+00 2.000000E-03 S 4.627890E+00 2.500000E-03 S 1.167349E+01 3.000000E-03 S 2.465188E+01 3.500000E-03 S 4.456788E+01 4.000000E-03 S 7.000442E+01 4.500000E-03 S 9.646573E+01 5.000000E-03 S 1.173638E+02 5.500000E-03 S 1.267147E+02 6.000001E-03 S 1.223716E+02 6.500001E-03 S 1.078534E+02 7.000001E-03 S 9.125926E+01 7.500001E-03 S 8.138693E+01 8.000000E-03 S 8.303695E+01 8.500000E-03 S 9.431039E+01 9.000001E-03 S 1.077352E+02 9.500001E-03 S 1.147398E+02 1.000000E-02 S 1.107828E+02 1.050000E-02 S 9.788049E+01 1.100000E-02 S 8.284966E+01 1.150000E-02 S 7.237128E+01 1.200000E-02 S 6.812469E+01 1.250000E-02 S 6.526476E+01 1.300000E-02 S 5.533064E+01 1.350000E-02 S 3.172729E+01 1.400000E-02 S -5.792996E+00 1.450000E-02 S -5.052917E+01 1.500000E-02 S -9.237444E+01 1.550000E-02 S -1.230459E+02 1.600000E-02 S -1.395892E+02 1.650000E-02 S -1.441727E+02 1.700000E-02 S -1.409099E+02 1.750000E-02 S -1.324823E+02 1.800000E-02 S -1.192154E+02 1.850000E-02 S -1.011272E+02 1.900000E-02 S -8.094701E+01 1.949999E-02 S -6.513660E+01 1.999999E-02 S -6.133947E+01 2.049999E-02 S -7.348925E+01 2.099999E-02 S -9.795518E+01 2.149999E-02 S -1.239032E+02 2.199999E-02 S -1.384491E+02 2.249999E-02 S -1.338699E+02 2.299999E-02 S -1.124320E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 24 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -8.557653E+01 2.399999E-02 S -6.764285E+01 2.449999E-02 S -6.777320E+01 2.499999E-02 S -8.485841E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 26 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 4.575246E-04 1.000000E-03 S 3.923512E-03 1.500000E-03 S 2.297034E-02 2.000000E-03 S 1.026893E-01 2.500000E-03 S 3.721993E-01 3.000000E-03 S 1.134876E+00 3.500000E-03 S 2.983668E+00 4.000000E-03 S 6.881619E+00 4.500000E-03 S 1.409853E+01 5.000000E-03 S 2.588903E+01 5.500000E-03 S 4.288520E+01 6.000001E-03 S 6.436440E+01 6.500001E-03 S 8.776055E+01 7.000001E-03 S 1.088621E+02 7.500001E-03 S 1.229431E+02 8.000000E-03 S 1.266052E+02 8.500000E-03 S 1.195729E+02 9.000001E-03 S 1.054312E+02 9.500001E-03 S 9.060491E+01 1.000000E-02 S 8.172347E+01 1.050000E-02 S 8.250024E+01 1.100000E-02 S 9.176453E+01 1.150000E-02 S 1.038838E+02 1.200000E-02 S 1.115789E+02 1.250000E-02 S 1.097143E+02 1.300000E-02 S 9.792424E+01 1.350000E-02 S 8.046513E+01 1.400000E-02 S 6.328001E+01 1.450000E-02 S 4.999856E+01 1.500000E-02 S 3.937080E+01 1.550000E-02 S 2.586429E+01 1.600000E-02 S 3.228400E+00 1.650000E-02 S -3.107715E+01 1.700000E-02 S -7.334369E+01 1.750000E-02 S -1.146383E+02 1.800000E-02 S -1.448949E+02 1.850000E-02 S -1.576935E+02 1.900000E-02 S -1.529734E+02 1.949999E-02 S -1.362921E+02 1.999999E-02 S -1.154256E+02 2.049999E-02 S -9.665149E+01 2.099999E-02 S -8.295075E+01 2.149999E-02 S -7.477072E+01 2.199999E-02 S -7.208267E+01 2.249999E-02 S -7.565134E+01 2.299999E-02 S -8.628249E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 26 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -1.026758E+02 2.399999E-02 S -1.199421E+02 2.449999E-02 S -1.306689E+02 2.499999E-02 S -1.286256E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 28 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 3.095995E-06 1.000000E-03 S 3.462635E-05 1.500000E-03 S 2.634587E-04 2.000000E-03 S 1.528241E-03 2.500000E-03 S 7.186137E-03 3.000000E-03 S 2.845591E-02 3.500000E-03 S 9.736596E-02 4.000000E-03 S 2.932153E-01 4.500000E-03 S 7.878238E-01 5.000000E-03 S 1.908205E+00 5.500000E-03 S 4.199769E+00 6.000001E-03 S 8.450599E+00 6.500001E-03 S 1.561829E+01 7.000001E-03 S 2.660452E+01 7.500001E-03 S 4.186828E+01 8.000000E-03 S 6.095956E+01 8.500000E-03 S 8.216244E+01 9.000001E-03 S 1.024976E+02 9.500001E-03 S 1.182781E+02 1.000000E-02 S 1.262079E+02 1.050000E-02 S 1.247107E+02 1.100000E-02 S 1.149250E+02 1.150000E-02 S 1.007682E+02 1.200000E-02 S 8.777860E+01 1.250000E-02 S 8.100390E+01 1.300000E-02 S 8.278075E+01 1.350000E-02 S 9.149094E+01 1.400000E-02 S 1.020616E+02 1.450000E-02 S 1.081617E+02 1.500000E-02 S 1.051174E+02 1.550000E-02 S 9.205575E+01 1.600000E-02 S 7.207236E+01 1.650000E-02 S 5.023798E+01 1.700000E-02 S 3.050651E+01 1.750000E-02 S 1.331787E+01 1.800000E-02 S -4.594038E+00 1.850000E-02 S -2.791097E+01 1.900000E-02 S -5.918939E+01 1.949999E-02 S -9.617658E+01 1.999999E-02 S -1.317396E+02 2.049999E-02 S -1.567115E+02 2.099999E-02 S -1.642375E+02 2.149999E-02 S -1.532540E+02 2.199999E-02 S -1.291691E+02 2.249999E-02 S -1.013955E+02 2.299999E-02 S -7.916584E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 28 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -6.793356E+01 2.399999E-02 S -6.813251E+01 2.449999E-02 S -7.651194E+01 2.499999E-02 S -8.873295E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 30 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 1.976111E-08 1.000000E-03 S 2.724832E-07 1.500000E-03 S 2.549025E-06 2.000000E-03 S 1.814976E-05 2.500000E-03 S 1.046771E-04 3.000000E-03 S 5.083607E-04 3.500000E-03 S 2.134454E-03 4.000000E-03 S 7.896589E-03 4.500000E-03 S 2.610980E-02 5.000000E-03 S 7.800759E-02 5.500000E-03 S 2.124133E-01 6.000001E-03 S 5.307874E-01 6.500001E-03 S 1.223907E+00 7.000001E-03 S 2.615695E+00 7.500001E-03 S 5.199585E+00 8.000000E-03 S 9.640268E+00 8.500000E-03 S 1.670504E+01 9.000001E-03 S 2.709386E+01 9.500001E-03 S 4.116514E+01 1.000000E-02 S 5.860675E+01 1.050000E-02 S 7.816526E+01 1.100000E-02 S 9.758993E+01 1.150000E-02 S 1.139329E+02 1.200000E-02 S 1.242464E+02 1.250000E-02 S 1.265437E+02 1.300000E-02 S 1.207034E+02 1.350000E-02 S 1.088991E+02 1.400000E-02 S 9.521656E+01 1.450000E-02 S 8.440733E+01 1.500000E-02 S 8.012959E+01 1.550000E-02 S 8.336539E+01 1.600000E-02 S 9.176973E+01 1.650000E-02 S 1.003951E+02 1.700000E-02 S 1.036259E+02 1.750000E-02 S 9.752321E+01 1.800000E-02 S 8.147112E+01 1.850000E-02 S 5.826008E+01 1.900000E-02 S 3.249257E+01 1.949999E-02 S 8.102295E+00 1.999999E-02 S -1.366529E+01 2.049999E-02 S -3.462105E+01 2.099999E-02 S -5.802620E+01 2.149999E-02 S -8.583639E+01 2.199999E-02 S -1.163932E+02 2.249999E-02 S -1.440603E+02 2.299999E-02 S -1.613001E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 30 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S -1.622956E+02 2.399999E-02 S -1.462391E+02 2.449999E-02 S -1.184426E+02 2.499999E-02 S -8.851847E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 40 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 1.411090E-19 1.000000E-03 S 3.780692E-18 1.500000E-03 S 6.822475E-17 2.000000E-03 S 9.320580E-16 2.500000E-03 S 1.027457E-14 3.000000E-03 S 9.513144E-14 3.500000E-03 S 7.604554E-13 4.000000E-03 S 5.354322E-12 4.500000E-03 S 3.371396E-11 5.000000E-03 S 1.921115E-10 5.500000E-03 S 1.000188E-09 6.000001E-03 S 4.795014E-09 6.500001E-03 S 2.130613E-08 7.000001E-03 S 8.822866E-08 7.500001E-03 S 3.420890E-07 8.000000E-03 S 1.246935E-06 8.500000E-03 S 4.287876E-06 9.000001E-03 S 1.395280E-05 9.500001E-03 S 4.307892E-05 1.000000E-02 S 1.264966E-04 1.050000E-02 S 3.540055E-04 1.100000E-02 S 9.459354E-04 1.150000E-02 S 2.417379E-03 1.200000E-02 S 5.916844E-03 1.250000E-02 S 1.388848E-02 1.300000E-02 S 3.129886E-02 1.350000E-02 S 6.778610E-02 1.400000E-02 S 1.412091E-01 1.450000E-02 S 2.831469E-01 1.500000E-02 S 5.468314E-01 1.550000E-02 S 1.017660E+00 1.600000E-02 S 1.825678E+00 1.650000E-02 S 3.158149E+00 1.700000E-02 S 5.268560E+00 1.750000E-02 S 8.476431E+00 1.800000E-02 S 1.315077E+01 1.850000E-02 S 1.966994E+01 1.900000E-02 S 2.835319E+01 1.949999E-02 S 3.936527E+01 1.999999E-02 S 5.260522E+01 2.049999E-02 S 6.760252E+01 2.099999E-02 S 8.345447E+01 2.149999E-02 S 9.884339E+01 2.199999E-02 S 1.121654E+02 2.249999E-02 S 1.217802E+02 2.299999E-02 S 1.263557E+02 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 40 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 1.252377E+02 2.399999E-02 S 1.187395E+02 2.449999E-02 S 1.082362E+02 2.499999E-02 S 9.597374E+01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 50 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 7.653862E-31 1.000000E-03 S 3.045296E-29 1.500000E-03 S 8.136034E-28 2.000000E-03 S 1.641352E-26 2.500000E-03 S 2.665979E-25 3.000000E-03 S 3.630353E-24 3.500000E-03 S 4.261524E-23 4.000000E-03 S 4.400688E-22 4.500000E-03 S 4.059976E-21 5.000000E-03 S 3.387222E-20 5.500000E-03 S 2.580637E-19 6.000001E-03 S 1.809937E-18 6.500001E-03 S 1.176444E-17 7.000001E-03 S 7.127252E-17 7.500001E-03 S 4.044239E-16 8.000000E-03 S 2.158499E-15 8.500000E-03 S 1.087606E-14 9.000001E-03 S 5.190504E-14 9.500001E-03 S 2.352974E-13 1.000000E-02 S 1.015806E-12 1.050000E-02 S 4.185919E-12 1.100000E-02 S 1.649898E-11 1.150000E-02 S 6.231942E-11 1.200000E-02 S 2.259578E-10 1.250000E-02 S 7.876629E-10 1.300000E-02 S 2.643471E-09 1.350000E-02 S 8.552437E-09 1.400000E-02 S 2.670540E-08 1.450000E-02 S 8.056983E-08 1.500000E-02 S 2.350945E-07 1.550000E-02 S 6.640587E-07 1.600000E-02 S 1.817314E-06 1.650000E-02 S 4.822245E-06 1.700000E-02 S 1.241576E-05 1.750000E-02 S 3.103748E-05 1.800000E-02 S 7.537876E-05 1.850000E-02 S 1.779505E-04 1.900000E-02 S 4.085591E-04 1.949999E-02 S 9.126693E-04 1.999999E-02 S 1.984511E-03 2.049999E-02 S 4.201797E-03 2.099999E-02 S 8.665642E-03 2.149999E-02 S 1.741306E-02 2.199999E-02 S 3.410091E-02 2.249999E-02 S 6.509738E-02 2.299999E-02 S 1.211549E-01 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 50 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 2.198639E-01 2.399999E-02 S 3.890812E-01 2.449999E-02 S 6.714585E-01 2.499999E-02 S 1.130033E+00 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 100 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 0.0 1.000000E-03 S 0.0 1.500000E-03 S 0.0 2.000000E-03 S 0.0 2.500000E-03 S 0.0 3.000000E-03 S 0.0 3.500000E-03 S 0.0 4.000000E-03 S 0.0 4.500000E-03 S 0.0 5.000000E-03 S 0.0 5.500000E-03 S 0.0 6.000001E-03 S 0.0 6.500001E-03 S 0.0 7.000001E-03 S 0.0 7.500001E-03 S 0.0 8.000000E-03 S 0.0 8.500000E-03 S 0.0 9.000001E-03 S 0.0 9.500001E-03 S 0.0 1.000000E-02 S 0.0 1.050000E-02 S 0.0 1.100000E-02 S 0.0 1.150000E-02 S 0.0 1.200000E-02 S 0.0 1.250000E-02 S 0.0 1.300000E-02 S 0.0 1.350000E-02 S 0.0 1.400000E-02 S 0.0 1.450000E-02 S 0.0 1.500000E-02 S 0.0 1.550000E-02 S 0.0 1.600000E-02 S 0.0 1.650000E-02 S 0.0 1.700000E-02 S 0.0 1.750000E-02 S 0.0 1.800000E-02 S 0.0 1.850000E-02 S 0.0 1.900000E-02 S 0.0 1.949999E-02 S 0.0 1.999999E-02 S 0.0 2.049999E-02 S 0.0 2.099999E-02 S 0.0 2.149999E-02 S 0.0 2.199999E-02 S 0.0 2.249999E-02 S 0.0 2.299999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 100 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 0.0 2.399999E-02 S 1.286378E-38 2.449999E-02 S 5.984403E-38 2.499999E-02 S 2.730881E-37 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 200 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 0.0 1.000000E-03 S 0.0 1.500000E-03 S 0.0 2.000000E-03 S 0.0 2.500000E-03 S 0.0 3.000000E-03 S 0.0 3.500000E-03 S 0.0 4.000000E-03 S 0.0 4.500000E-03 S 0.0 5.000000E-03 S 0.0 5.500000E-03 S 0.0 6.000001E-03 S 0.0 6.500001E-03 S 0.0 7.000001E-03 S 0.0 7.500001E-03 S 0.0 8.000000E-03 S 0.0 8.500000E-03 S 0.0 9.000001E-03 S 0.0 9.500001E-03 S 0.0 1.000000E-02 S 0.0 1.050000E-02 S 0.0 1.100000E-02 S 0.0 1.150000E-02 S 0.0 1.200000E-02 S 0.0 1.250000E-02 S 0.0 1.300000E-02 S 0.0 1.350000E-02 S 0.0 1.400000E-02 S 0.0 1.450000E-02 S 0.0 1.500000E-02 S 0.0 1.550000E-02 S 0.0 1.600000E-02 S 0.0 1.650000E-02 S 0.0 1.700000E-02 S 0.0 1.750000E-02 S 0.0 1.800000E-02 S 0.0 1.850000E-02 S 0.0 1.900000E-02 S 0.0 1.949999E-02 S 0.0 1.999999E-02 S 0.0 2.049999E-02 S 0.0 2.099999E-02 S 0.0 2.149999E-02 S 0.0 2.199999E-02 S 0.0 2.249999E-02 S 0.0 2.299999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 200 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 0.0 2.399999E-02 S 0.0 2.449999E-02 S 0.0 2.499999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 500 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 S 0.0 5.000000E-04 S 0.0 1.000000E-03 S 0.0 1.500000E-03 S 0.0 2.000000E-03 S 0.0 2.500000E-03 S 0.0 3.000000E-03 S 0.0 3.500000E-03 S 0.0 4.000000E-03 S 0.0 4.500000E-03 S 0.0 5.000000E-03 S 0.0 5.500000E-03 S 0.0 6.000001E-03 S 0.0 6.500001E-03 S 0.0 7.000001E-03 S 0.0 7.500001E-03 S 0.0 8.000000E-03 S 0.0 8.500000E-03 S 0.0 9.000001E-03 S 0.0 9.500001E-03 S 0.0 1.000000E-02 S 0.0 1.050000E-02 S 0.0 1.100000E-02 S 0.0 1.150000E-02 S 0.0 1.200000E-02 S 0.0 1.250000E-02 S 0.0 1.300000E-02 S 0.0 1.350000E-02 S 0.0 1.400000E-02 S 0.0 1.450000E-02 S 0.0 1.500000E-02 S 0.0 1.550000E-02 S 0.0 1.600000E-02 S 0.0 1.650000E-02 S 0.0 1.700000E-02 S 0.0 1.750000E-02 S 0.0 1.800000E-02 S 0.0 1.850000E-02 S 0.0 1.900000E-02 S 0.0 1.949999E-02 S 0.0 1.999999E-02 S 0.0 2.049999E-02 S 0.0 2.099999E-02 S 0.0 2.149999E-02 S 0.0 2.199999E-02 S 0.0 2.249999E-02 S 0.0 2.299999E-02 S 0.0 1 TRANSIENT ANALYSIS OF A 1000 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A 0 TRAVELING WAVE PROBLEM POINT-ID = 500 V E L O C I T Y V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349999E-02 S 0.0 2.399999E-02 S 0.0 2.449999E-02 S 0.0 2.499999E-02 S 0.0 * * * END OF JOB * * * 1 JOB TITLE = TRANSIENT ANALYSIS OF A 1000 CELL STRING DATE: 5/17/95 END TIME: 16: 8:13 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d09031a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D09031A,NASTRAN APP DISPLACEMENT SOL 9,3 TIME 100 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 3 LABEL = THIRD HARMONIC ANALYSIS. 4 TSTEP = 10 5 DLOAD = 10 6 SPC = 3 7 AXISYMMETRIC = FLUID 8 OUTPUT 9 HARMONICS = 3 10 SET 100 = 10,11, 26,27, 42,43, 58,59, 74,75, 81 THRU 96, 11 106,107, 122,123, 138,139, 154,155, 170,171 12 DISPLACEMENT = 100 13 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 14 OUTPUT(XYPLOT) 15 PLOTTER = NASTPLT 16 XTGRID = YES 17 YTGRID = YES 18 XBGRID = YES 19 YBGRID = YES 20 XDIVISIONS = 10 21 CURVELINESYMBOL = 1 22 XTITLE = TIME (SECONDS) 23 YTTITLE = R DISP -INCHES- 24 YBTITLE = R DISP -INCHES- 25 $ 26 TCURVE = PLOTTED *TOP GRID 91(Z=5,A=0), *BOTTOM GRID 110(Z=5,A=18) 27 XYPLOT DISP /91(T1,), 110(,T1) 28 TCURVE = PLOTTED GRID(A=0,18) *TOP - 59,62(Z=7) *BOTTOM 123,126(Z=3) 29 XYPLOT DISP /59(T1,), 62(T1,), 123(,T1),126(,T1) 30 $ 31 YTTITLE = PRESSURE *LB/INCH* 32 YBTITLE = PRESSURE *LB/INCH* 33 TCURVE = PLOTTED PRESPT (Z=5,A=0) *TOP 5301(R=3) *BOTTOM 5801(R=8) 34 XYPLOT DISP / 5301(T1,), 5801(,T1) 35 TCURVE = PLOTTED PRESPT (R=5,A=0,Z=3,5,7)*TOP 3501,5501 *BOT 7501,5501 36 XYPLOT DISP / 5501(T1,T1), 3501(T1,), 7501(,T1) 37 YTITLE = R DISP -INCH- 38 TCURVE = PLOTTED DISP AT MIDPOINT(Z=5.), ANGLE = 0.0 AND 18.0 DEGREES. 39 XYPLOT DISP / 91(T1), 110(T1) 40 YTITLE = HARMONIC PRESSURE 41 TCURVE = PLOTTED RINGFL (R=5,Z=5) * 85 42 XYPLOT DISP / 4000085 (T1) 43 $ 44 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 333, INCLUDING 0 COMMENT CARDS) 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A THIRD HARMONIC ANALYSIS. 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AXIF 1 .0 1.8-2 .00 NO +AXIF 2- +AXIF 3 3- BDYLIST 10 26 42 58 74 90 106 +BDY-1 4- +BDY-1 122 138 154 170 5- CFLUID2 1001 17 1 6- CFLUID2 2001 33 17 7- CFLUID2 3001 49 33 8- CFLUID2 4001 65 49 9- CFLUID2 5001 81 65 10- CFLUID2 6001 97 81 11- CFLUID2 7001 113 97 12- CFLUID2 8001 129 113 13- CFLUID2 9001 145 129 14- CFLUID2 10001 161 145 15- CFLUID4 1002 18 2 1 17 16- CFLUID4 1003 19 3 2 18 17- CFLUID4 1004 20 4 3 19 18- CFLUID4 1005 21 5 4 20 19- CFLUID4 1006 22 6 5 21 20- CFLUID4 1007 23 7 6 22 21- CFLUID4 1008 24 8 7 23 22- CFLUID4 1009 25 9 8 24 23- CFLUID4 1010 26 10 9 25 24- CFLUID4 2002 34 18 17 33 25- CFLUID4 2003 35 19 18 34 26- CFLUID4 2004 36 20 19 35 27- CFLUID4 2005 37 21 20 36 28- CFLUID4 2006 38 22 21 37 29- CFLUID4 2007 39 23 22 38 30- CFLUID4 2008 40 24 23 39 31- CFLUID4 2009 41 25 24 40 32- CFLUID4 2010 42 26 25 41 33- CFLUID4 3002 50 34 33 49 34- CFLUID4 3003 51 35 34 50 35- CFLUID4 3004 52 36 35 51 36- CFLUID4 3005 53 37 36 52 37- CFLUID4 3006 54 38 37 53 38- CFLUID4 3007 55 39 38 54 39- CFLUID4 3008 56 40 39 55 40- CFLUID4 3009 57 41 40 56 41- CFLUID4 3010 58 42 41 57 42- CFLUID4 4002 66 50 49 65 43- CFLUID4 4003 67 51 50 66 44- CFLUID4 4004 68 52 51 67 45- CFLUID4 4005 69 53 52 68 46- CFLUID4 4006 70 54 53 69 47- CFLUID4 4007 71 55 54 70 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A THIRD HARMONIC ANALYSIS. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CFLUID4 4008 72 56 55 71 49- CFLUID4 4009 73 57 56 72 50- CFLUID4 4010 74 58 57 73 51- CFLUID4 5002 82 66 65 81 52- CFLUID4 5003 83 67 66 82 53- CFLUID4 5004 84 68 67 83 54- CFLUID4 5005 85 69 68 84 55- CFLUID4 5006 86 70 69 85 56- CFLUID4 5007 87 71 70 86 57- CFLUID4 5008 88 72 71 87 58- CFLUID4 5009 89 73 72 88 59- CFLUID4 5010 90 74 73 89 60- CFLUID4 6002 98 82 81 97 61- CFLUID4 6003 99 83 82 98 62- CFLUID4 6004 100 84 83 99 63- CFLUID4 6005 101 85 84 100 64- CFLUID4 6006 102 86 85 101 65- CFLUID4 6007 103 87 86 102 66- CFLUID4 6008 104 88 87 103 67- CFLUID4 6009 105 89 88 104 68- CFLUID4 6010 106 90 89 105 69- CFLUID4 7002 114 98 97 113 70- CFLUID4 7003 115 99 98 114 71- CFLUID4 7004 116 100 99 115 72- CFLUID4 7005 117 101 100 116 73- CFLUID4 7006 118 102 101 117 74- CFLUID4 7007 119 103 102 118 75- CFLUID4 7008 120 104 103 119 76- CFLUID4 7009 121 105 104 120 77- CFLUID4 7010 122 106 105 121 78- CFLUID4 8002 130 114 113 129 79- CFLUID4 8003 131 115 114 130 80- CFLUID4 8004 132 116 115 131 81- CFLUID4 8005 133 117 116 132 82- CFLUID4 8006 134 118 117 133 83- CFLUID4 8007 135 119 118 134 84- CFLUID4 8008 136 120 119 135 85- CFLUID4 8009 137 121 120 136 86- CFLUID4 8010 138 122 121 137 87- CFLUID4 9002 146 130 129 145 88- CFLUID4 9003 147 131 130 146 89- CFLUID4 9004 148 132 131 147 90- CFLUID4 9005 149 133 132 148 91- CFLUID4 9006 150 134 133 149 92- CFLUID4 9007 151 135 134 150 93- CFLUID4 9008 152 136 135 151 94- CFLUID4 9009 153 137 136 152 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A THIRD HARMONIC ANALYSIS. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CFLUID4 9010 154 138 137 153 96- CFLUID4 10002 162 146 145 161 97- CFLUID4 10003 163 147 146 162 98- CFLUID4 10004 164 148 147 163 99- CFLUID4 10005 165 149 148 164 100- CFLUID4 10006 166 150 149 165 101- CFLUID4 10007 167 151 150 166 102- CFLUID4 10008 168 152 151 167 103- CFLUID4 10009 169 153 152 168 104- CFLUID4 10010 170 154 153 169 105- CORD2C 1 .0 .0 .0 .0 .0 1.0 +CORD2C 106- +CORD2C 1.0 .0 .0 107- CQUAD1 1011 1 27 28 12 11 108- CQUAD1 1012 1 28 29 13 12 109- CQUAD1 1013 1 29 30 14 13 110- CQUAD1 1014 1 30 31 15 14 111- CQUAD1 1015 1 31 32 16 15 112- CQUAD1 2011 1 43 44 28 27 113- CQUAD1 2012 1 44 45 29 28 114- CQUAD1 2013 1 45 46 30 29 115- CQUAD1 2014 1 46 47 31 30 116- CQUAD1 2015 1 47 48 32 31 117- CQUAD1 3011 1 59 60 44 43 118- CQUAD1 3012 1 60 61 45 44 119- CQUAD1 3013 1 61 62 46 45 120- CQUAD1 3014 1 62 63 47 46 121- CQUAD1 3015 1 63 64 48 47 122- CQUAD1 4011 1 75 76 60 59 123- CQUAD1 4012 1 76 77 61 60 124- CQUAD1 4013 1 77 78 62 61 125- CQUAD1 4014 1 78 79 63 62 126- CQUAD1 4015 1 79 80 64 63 127- CQUAD1 5011 1 91 92 76 75 128- CQUAD1 5012 1 92 93 77 76 129- CQUAD1 5013 1 93 94 78 77 130- CQUAD1 5014 1 94 95 79 78 131- CQUAD1 5015 1 95 96 80 79 132- CQUAD1 6011 1 107 108 92 91 133- CQUAD1 6012 1 108 109 93 92 134- CQUAD1 6013 1 109 110 94 93 135- CQUAD1 6014 1 110 111 95 94 136- CQUAD1 6015 1 111 112 96 95 137- CQUAD1 7011 1 123 124 108 107 138- CQUAD1 7012 1 124 125 109 108 139- CQUAD1 7013 1 125 126 110 109 140- CQUAD1 7014 1 126 127 111 110 141- CQUAD1 7015 1 127 128 112 111 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A THIRD HARMONIC ANALYSIS. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CQUAD1 8011 1 139 140 124 123 143- CQUAD1 8012 1 140 141 125 124 144- CQUAD1 8013 1 141 142 126 125 145- CQUAD1 8014 1 142 143 127 126 146- CQUAD1 8015 1 143 144 128 127 147- CQUAD1 9011 1 155 156 140 139 148- CQUAD1 9012 1 156 157 141 140 149- CQUAD1 9013 1 157 158 142 141 150- CQUAD1 9014 1 158 159 143 142 151- CQUAD1 9015 1 159 160 144 143 152- CQUAD1 10011 1 171 172 156 155 153- CQUAD1 10012 1 172 173 157 156 154- CQUAD1 10013 1 173 174 158 157 155- CQUAD1 10014 1 174 175 159 158 156- CQUAD1 10015 1 175 176 160 159 157- DAREA 1 27 1 .32345 28 1 .61525 158- DAREA 1 29 1 .52336 30 1 .38024 159- DAREA 1 31 1 .19991 32 1 3.23-10 160- DAREA 1 43 1 .61525 44 1 1.17027 161- DAREA 1 45 1 .99549 46 1 .72327 162- DAREA 1 47 1 .38024 48 1 6.14-10 163- DAREA 1 59 1 .84681 60 1 1.61074 164- DAREA 1 61 1 1.37017 62 1 .99549 165- DAREA 1 63 1 .52336 64 1 8.44-10 166- DAREA 1 75 1 .99549 76 1 1.89353 167- DAREA 1 77 1 1.61074 78 1 1.17027 168- DAREA 1 79 1 .61525 80 1 9.93-10 169- DAREA 1 91 1 1.04672 92 1 1.99098 170- DAREA 1 93 1 1.69363 94 1 1.23049 171- DAREA 1 95 1 .64691 96 1 1.044-9 172- DAREA 1 107 1 .99549 108 1 1.89353 173- DAREA 1 109 1 1.61074 110 1 1.17027 174- DAREA 1 111 1 .61525 112 1 9.93-10 175- DAREA 1 123 1 .84681 124 1 1.61074 176- DAREA 1 125 1 1.37017 126 1 .99549 177- DAREA 1 127 1 .52336 128 1 8.44-10 178- DAREA 1 139 1 .61525 140 1 1.17027 179- DAREA 1 141 1 .99549 142 1 .72327 180- DAREA 1 143 1 .38024 144 1 6.14-10 181- DAREA 1 155 1 .32345 156 1 .61525 182- DAREA 1 157 1 .52336 158 1 .38024 183- DAREA 1 159 1 .19991 160 1 3.23-10 184- FLSYM 12 S A 185- FSLIST AXIS 1 2 3 4 5 6 +FSL-1 186- +FSL-1 7 8 9 10 187- FSLIST 170 169 168 167 166 165 164 +FSL-2 188- +FSL-2 163 162 161 AXIS 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A THIRD HARMONIC ANALYSIS. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- GRIDB 11 0.0 1 4 10 190- GRIDB 12 6.00000 1 4 10 191- GRIDB 13 12.0000 1 4 10 192- GRIDB 14 18.0000 1 4 10 193- GRIDB 15 24.0000 1 4 10 194- GRIDB 16 30.0000 1 4 10 195- GRIDB 27 0.0 1 4 26 196- GRIDB 28 6.00000 1 4 26 197- GRIDB 29 12.0000 1 4 26 198- GRIDB 30 18.0000 1 4 26 199- GRIDB 31 24.0000 1 4 26 200- GRIDB 32 30.0000 1 4 26 201- GRIDB 43 0.0 1 4 42 202- GRIDB 44 6.00000 1 4 42 203- GRIDB 45 12.0000 1 4 42 204- GRIDB 46 18.0000 1 4 42 205- GRIDB 47 24.0000 1 4 42 206- GRIDB 48 30.0000 1 4 42 207- GRIDB 59 0.0 1 4 58 208- GRIDB 60 6.00000 1 4 58 209- GRIDB 61 12.0000 1 4 58 210- GRIDB 62 18.0000 1 4 58 211- GRIDB 63 24.0000 1 4 58 212- GRIDB 64 30.0000 1 4 58 213- GRIDB 75 0.0 1 4 74 214- GRIDB 76 6.00000 1 4 74 215- GRIDB 77 12.0000 1 4 74 216- GRIDB 78 18.0000 1 4 74 217- GRIDB 79 24.0000 1 4 74 218- GRIDB 80 30.0000 1 4 74 219- GRIDB 91 0.0 1 4 90 220- GRIDB 92 6.00000 1 4 90 221- GRIDB 93 12.0000 1 4 90 222- GRIDB 94 18.0000 1 4 90 223- GRIDB 95 24.0000 1 4 90 224- GRIDB 96 30.0000 1 4 90 225- GRIDB 107 0.0 1 4 106 226- GRIDB 108 6.00000 1 4 106 227- GRIDB 109 12.0000 1 4 106 228- GRIDB 110 18.0000 1 4 106 229- GRIDB 111 24.0000 1 4 106 230- GRIDB 112 30.0000 1 4 106 231- GRIDB 123 0.0 1 4 122 232- GRIDB 124 6.00000 1 4 122 233- GRIDB 125 12.0000 1 4 122 234- GRIDB 126 18.0000 1 4 122 235- GRIDB 127 24.0000 1 4 122 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A THIRD HARMONIC ANALYSIS. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- GRIDB 128 30.0000 1 4 122 237- GRIDB 139 0.0 1 4 138 238- GRIDB 140 6.00000 1 4 138 239- GRIDB 141 12.0000 1 4 138 240- GRIDB 142 18.0000 1 4 138 241- GRIDB 143 24.0000 1 4 138 242- GRIDB 144 30.0000 1 4 138 243- GRIDB 155 0.0 1 4 154 244- GRIDB 156 6.00000 1 4 154 245- GRIDB 157 12.0000 1 4 154 246- GRIDB 158 18.0000 1 4 154 247- GRIDB 159 24.0000 1 4 154 248- GRIDB 160 30.0000 1 4 154 249- GRIDB 171 0.0 1 4 170 250- GRIDB 172 6.00000 1 4 170 251- GRIDB 173 12.0000 1 4 170 252- GRIDB 174 18.0000 1 4 170 253- GRIDB 175 24.0000 1 4 170 254- GRIDB 176 30.0000 1 4 170 255- MAT1 2 1.6+5 6.0+4 6.0-2 256- PQUAD1 1 2 .01 2 8.3333-8 +PQUAD1 257- +PQUAD1 .0 .005 258- PRESPT 21 1501 +0.0 259- PRESPT 53 3501 +0.0 260- PRESPT 81 5101 +0.0 261- PRESPT 82 5201 +0.0 262- PRESPT 83 5301 +0.0 263- PRESPT 84 5401 +0.0 264- PRESPT 85 5501 +0.0 5502 30.0 5503 60.0 265- PRESPT 86 5601 +0.0 266- PRESPT 87 5701 +0.0 267- PRESPT 88 5801 +0.0 268- PRESPT 89 5901 +0.0 269- PRESPT 117 7501 +0.0 270- PRESPT 149 9501 +0.0 271- RINGFL 1 1.00000 10.0000 2 2.00000 10.0000 272- RINGFL 3 3.00000 10.0000 4 4.00000 10.0000 273- RINGFL 5 5.00000 10.0000 6 6.00000 10.0000 274- RINGFL 7 7.00000 10.0000 8 8.00000 10.0000 275- RINGFL 9 9.00000 10.0000 10 10.0000 10.0000 276- RINGFL 17 1.00000 9.00000 18 2.00000 9.00000 277- RINGFL 19 3.00000 9.00000 20 4.00000 9.00000 278- RINGFL 21 5.00000 9.00000 22 6.00000 9.00000 279- RINGFL 23 7.00000 9.00000 24 8.00000 9.00000 280- RINGFL 25 9.00000 9.00000 26 10.0000 9.00000 281- RINGFL 33 1.00000 8.00000 34 2.00000 8.00000 282- RINGFL 35 3.00000 8.00000 36 4.00000 8.00000 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A THIRD HARMONIC ANALYSIS. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- RINGFL 37 5.00000 8.00000 38 6.00000 8.00000 284- RINGFL 39 7.00000 8.00000 40 8.00000 8.00000 285- RINGFL 41 9.00000 8.00000 42 10.0000 8.00000 286- RINGFL 49 1.00000 7.00000 50 2.00000 7.00000 287- RINGFL 51 3.00000 7.00000 52 4.00000 7.00000 288- RINGFL 53 5.00000 7.00000 54 6.00000 7.00000 289- RINGFL 55 7.00000 7.00000 56 8.00000 7.00000 290- RINGFL 57 9.00000 7.00000 58 10.0000 7.00000 291- RINGFL 65 1.00000 6.00000 66 2.00000 6.00000 292- RINGFL 67 3.00000 6.00000 68 4.00000 6.00000 293- RINGFL 69 5.00000 6.00000 70 6.00000 6.00000 294- RINGFL 71 7.00000 6.00000 72 8.00000 6.00000 295- RINGFL 73 9.00000 6.00000 74 10.0000 6.00000 296- RINGFL 81 1.00000 5.00000 82 2.00000 5.00000 297- RINGFL 83 3.00000 5.00000 84 4.00000 5.00000 298- RINGFL 85 5.00000 5.00000 86 6.00000 5.00000 299- RINGFL 87 7.00000 5.00000 88 8.00000 5.00000 300- RINGFL 89 9.00000 5.00000 90 10.0000 5.00000 301- RINGFL 97 1.00000 4.00000 98 2.00000 4.00000 302- RINGFL 99 3.00000 4.00000 100 4.00000 4.00000 303- RINGFL 101 5.00000 4.00000 102 6.00000 4.00000 304- RINGFL 103 7.00000 4.00000 104 8.00000 4.00000 305- RINGFL 105 9.00000 4.00000 106 10.0000 4.00000 306- RINGFL 113 1.00000 3.00000 114 2.00000 3.00000 307- RINGFL 115 3.00000 3.00000 116 4.00000 3.00000 308- RINGFL 117 5.00000 3.00000 118 6.00000 3.00000 309- RINGFL 119 7.00000 3.00000 120 8.00000 3.00000 310- RINGFL 121 9.00000 3.00000 122 10.0000 3.00000 311- RINGFL 129 1.00000 2.00000 130 2.00000 2.00000 312- RINGFL 131 3.00000 2.00000 132 4.00000 2.00000 313- RINGFL 133 5.00000 2.00000 134 6.00000 2.00000 314- RINGFL 135 7.00000 2.00000 136 8.00000 2.00000 315- RINGFL 137 9.00000 2.00000 138 10.0000 2.00000 316- RINGFL 145 1.00000 1.00000 146 2.00000 1.00000 317- RINGFL 147 3.00000 1.00000 148 4.00000 1.00000 318- RINGFL 149 5.00000 1.00000 150 6.00000 1.00000 319- RINGFL 151 7.00000 1.00000 152 8.00000 1.00000 320- RINGFL 153 9.00000 1.00000 154 10.0000 1.00000 321- RINGFL 161 1.00000 0.0 162 2.00000 0.0 322- RINGFL 163 3.00000 0.0 164 4.00000 0.0 323- RINGFL 165 5.00000 0.0 166 6.00000 0.0 324- RINGFL 167 7.00000 0.0 168 8.00000 0.0 325- RINGFL 169 9.00000 0.0 170 10.0000 0.0 326- SPC1 3 126 11 12 13 14 15 16 327- SPC1 3 126 171 172 173 174 175 176 328- SPC1 3 135 16 32 48 64 80 96 H=3 329- SPC1 3 135 112 128 144 160 176 H=3 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A THIRD HARMONIC ANALYSIS. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- SPC1 3 246 11 27 43 59 75 91 H=3 331- SPC1 3 246 107 123 139 155 171 H=3 332- TLOAD2 10 1 .0 1.0 .0 .0 333- TSTEP 10 50 .02 2 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF AXISYMMETRIC FLUID DATA 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A THIRD HARMONIC ANALYSIS. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 1501 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 3501 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 5101 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 5201 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 5301 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 5401 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 5501 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 5502 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 5503 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 5601 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 5701 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 5801 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 5901 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 7501 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 9501 NOT CONNECTED 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A THIRD HARMONIC ANALYSIS. 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLUID2 ELEMENTS (ELEMENT TYPE 43) STARTING WITH ID 1001008 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLUID4 ELEMENTS (ELEMENT TYPE 45) STARTING WITH ID 1002008 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FLMASS ELEMENTS (ELEMENT TYPE 46) STARTING WITH ID 1000008 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 1011 0*** USER INFORMATION MESSAGE 3028 B = 23 BBAR = 34 C = 21 CBAR = 9 R = 56 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC REAL DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 335) TIME ESTIMATE = 0 SECONDS 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 11 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 0.0 0.0 1.172473E-03 0.0 -7.448046E-03 0.0 8.000000E-02 G 0.0 0.0 5.498284E-03 0.0 -3.420134E-02 0.0 1.200000E-01 G 0.0 0.0 1.256124E-02 0.0 -7.793691E-02 0.0 1.600000E-01 G 0.0 0.0 2.125505E-02 0.0 -1.317777E-01 0.0 2.000000E-01 G 0.0 0.0 3.022066E-02 0.0 -1.872522E-01 0.0 2.400000E-01 G 0.0 0.0 3.803502E-02 0.0 -2.356479E-01 0.0 2.800000E-01 G 0.0 0.0 4.347844E-02 0.0 -2.693559E-01 0.0 3.200000E-01 G 0.0 0.0 4.569780E-02 0.0 -2.830696E-01 0.0 3.600000E-01 G 0.0 0.0 4.433180E-02 0.0 -2.746364E-01 0.0 4.000000E-01 G 0.0 0.0 3.960761E-02 0.0 -2.453847E-01 0.0 4.400001E-01 G 0.0 0.0 3.226523E-02 0.0 -1.999104E-01 0.0 4.800001E-01 G 0.0 0.0 2.344991E-02 0.0 -1.453606E-01 0.0 5.200000E-01 G 0.0 0.0 1.456164E-02 0.0 -9.031925E-02 0.0 5.600000E-01 G 0.0 0.0 6.989846E-03 0.0 -4.343792E-02 0.0 6.000000E-01 G 0.0 0.0 1.920301E-03 0.0 -1.208147E-02 0.0 6.399999E-01 G 0.0 0.0 1.634114E-04 0.0 -1.177379E-03 0.0 6.799999E-01 G 0.0 0.0 1.983430E-03 0.0 -1.245040E-02 0.0 7.199998E-01 G 0.0 0.0 7.095142E-03 0.0 -4.411817E-02 0.0 7.599998E-01 G 0.0 0.0 1.470591E-02 0.0 -9.120239E-02 0.0 7.999998E-01 G 0.0 0.0 2.360501E-02 0.0 -1.463072E-01 0.0 8.399997E-01 G 0.0 0.0 3.239991E-02 0.0 -2.007700E-01 0.0 8.799997E-01 G 0.0 0.0 3.971460E-02 0.0 -2.460269E-01 0.0 9.199997E-01 G 0.0 0.0 4.438431E-02 0.0 -2.749573E-01 0.0 9.599996E-01 G 0.0 0.0 4.568599E-02 0.0 -2.830216E-01 0.0 9.999996E-01 G 0.0 0.0 4.341624E-02 0.0 -2.689449E-01 0.0 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 27 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 7.341438E-03 0.0 1.115102E-03 0.0 -7.087710E-03 0.0 8.000000E-02 G 3.370503E-02 0.0 5.229196E-03 0.0 -3.253101E-02 0.0 1.200000E-01 G 7.680206E-02 0.0 1.194647E-02 0.0 -7.412641E-02 0.0 1.600000E-01 G 1.298560E-01 0.0 2.021476E-02 0.0 -1.253303E-01 0.0 2.000000E-01 G 1.845229E-01 0.0 2.874157E-02 0.0 -1.780919E-01 0.0 2.400000E-01 G 2.322126E-01 0.0 3.617347E-02 0.0 -2.241184E-01 0.0 2.800000E-01 G 2.654277E-01 0.0 4.135047E-02 0.0 -2.561752E-01 0.0 3.200000E-01 G 2.789421E-01 0.0 4.346121E-02 0.0 -2.692189E-01 0.0 3.600000E-01 G 2.706322E-01 0.0 4.216207E-02 0.0 -2.611988E-01 0.0 4.000000E-01 G 2.418065E-01 0.0 3.766908E-02 0.0 -2.333782E-01 0.0 4.400001E-01 G 1.969951E-01 0.0 3.068607E-02 0.0 -1.901288E-01 0.0 4.800001E-01 G 1.432425E-01 0.0 2.230221E-02 0.0 -1.382504E-01 0.0 5.200000E-01 G 8.900399E-02 0.0 1.384896E-02 0.0 -8.590242E-02 0.0 5.600000E-01 G 4.280549E-02 0.0 6.647750E-03 0.0 -4.131532E-02 0.0 6.000000E-01 G 1.190678E-02 0.0 1.826322E-03 0.0 -1.149273E-02 0.0 6.399999E-01 G 1.163649E-03 0.0 1.554361E-04 0.0 -1.124853E-03 0.0 6.799999E-01 G 1.227042E-02 0.0 1.886363E-03 0.0 -1.184372E-02 0.0 7.199998E-01 G 4.347592E-02 0.0 6.747890E-03 0.0 -4.196222E-02 0.0 7.599998E-01 G 8.987405E-02 0.0 1.398617E-02 0.0 -8.674253E-02 0.0 7.999998E-01 G 1.441751E-01 0.0 2.244971E-02 0.0 -1.391499E-01 0.0 8.399997E-01 G 1.978428E-01 0.0 3.081416E-02 0.0 -1.909474E-01 0.0 8.799997E-01 G 2.424388E-01 0.0 3.777083E-02 0.0 -2.339878E-01 0.0 9.199997E-01 G 2.709489E-01 0.0 4.221201E-02 0.0 -2.615050E-01 0.0 9.599996E-01 G 2.788943E-01 0.0 4.344997E-02 0.0 -2.691725E-01 0.0 9.999996E-01 G 2.650228E-01 0.0 4.129131E-02 0.0 -2.557848E-01 0.0 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 43 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 1.396785E-02 0.0 9.485719E-04 0.0 -6.028959E-03 0.0 8.000000E-02 G 6.411415E-02 0.0 4.448249E-03 0.0 -2.767453E-02 0.0 1.200000E-01 G 1.460896E-01 0.0 1.016228E-02 0.0 -6.305572E-02 0.0 1.600000E-01 G 2.470027E-01 0.0 1.719570E-02 0.0 -1.066115E-01 0.0 2.000000E-01 G 3.509873E-01 0.0 2.444906E-02 0.0 -1.514951E-01 0.0 2.400000E-01 G 4.416984E-01 0.0 3.077102E-02 0.0 -1.906483E-01 0.0 2.800000E-01 G 5.048757E-01 0.0 3.517481E-02 0.0 -2.179144E-01 0.0 3.200000E-01 G 5.305825E-01 0.0 3.697032E-02 0.0 -2.290116E-01 0.0 3.600000E-01 G 5.147769E-01 0.0 3.586523E-02 0.0 -2.221906E-01 0.0 4.000000E-01 G 4.599464E-01 0.0 3.204325E-02 0.0 -1.985237E-01 0.0 4.400001E-01 G 3.747092E-01 0.0 2.610313E-02 0.0 -1.617323E-01 0.0 4.800001E-01 G 2.724672E-01 0.0 1.897141E-02 0.0 -1.176038E-01 0.0 5.200000E-01 G 1.692989E-01 0.0 1.178065E-02 0.0 -7.307459E-02 0.0 5.600000E-01 G 8.142390E-02 0.0 5.654919E-03 0.0 -3.514425E-02 0.0 6.000000E-01 G 2.265004E-02 0.0 1.553571E-03 0.0 -9.775708E-03 0.0 6.399999E-01 G 2.218145E-03 0.0 1.322520E-04 0.0 -9.593955E-04 0.0 6.799999E-01 G 2.334205E-02 0.0 1.604648E-03 0.0 -1.007460E-02 0.0 7.199998E-01 G 8.269887E-02 0.0 5.740099E-03 0.0 -3.569462E-02 0.0 7.599998E-01 G 1.709542E-01 0.0 1.189737E-02 0.0 -7.378878E-02 0.0 7.999998E-01 G 2.742404E-01 0.0 1.909689E-02 0.0 -1.183691E-01 0.0 8.399997E-01 G 3.763226E-01 0.0 2.621210E-02 0.0 -1.624293E-01 0.0 8.799997E-01 G 4.611480E-01 0.0 3.212980E-02 0.0 -1.990415E-01 0.0 9.199997E-01 G 5.153798E-01 0.0 3.590770E-02 0.0 -2.224513E-01 0.0 9.599996E-01 G 5.304914E-01 0.0 3.696077E-02 0.0 -2.289726E-01 0.0 9.999996E-01 G 5.041057E-01 0.0 3.512448E-02 0.0 -2.175818E-01 0.0 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 59 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 1.922378E-02 0.0 6.891849E-04 0.0 -4.380530E-03 0.0 8.000000E-02 G 8.824663E-02 0.0 3.231867E-03 0.0 -2.010901E-02 0.0 1.200000E-01 G 2.010739E-01 0.0 7.383340E-03 0.0 -4.581302E-02 0.0 1.600000E-01 G 3.399688E-01 0.0 1.249341E-02 0.0 -7.745740E-02 0.0 2.000000E-01 G 4.830924E-01 0.0 1.776330E-02 0.0 -1.100694E-01 0.0 2.400000E-01 G 6.079462E-01 0.0 2.235647E-02 0.0 -1.385152E-01 0.0 2.800000E-01 G 6.949001E-01 0.0 2.555600E-02 0.0 -1.583244E-01 0.0 3.200000E-01 G 7.302833E-01 0.0 2.686052E-02 0.0 -1.663864E-01 0.0 3.600000E-01 G 7.085304E-01 0.0 2.605764E-02 0.0 -1.614335E-01 0.0 4.000000E-01 G 6.330611E-01 0.0 2.328079E-02 0.0 -1.442359E-01 0.0 4.400001E-01 G 5.157415E-01 0.0 1.896503E-02 0.0 -1.175056E-01 0.0 4.800001E-01 G 3.750188E-01 0.0 1.378356E-02 0.0 -8.544514E-02 0.0 5.200000E-01 G 2.330206E-01 0.0 8.559164E-03 0.0 -5.309394E-02 0.0 5.600000E-01 G 1.120688E-01 0.0 4.108538E-03 0.0 -2.553283E-02 0.0 6.000000E-01 G 3.117407E-02 0.0 1.128746E-03 0.0 -7.103801E-03 0.0 6.399999E-01 G 3.053781E-03 0.0 9.610655E-05 0.0 -6.978477E-04 0.0 6.799999E-01 G 3.212697E-02 0.0 1.165859E-03 0.0 -7.321349E-03 0.0 7.199998E-01 G 1.138236E-01 0.0 4.170423E-03 0.0 -2.593260E-02 0.0 7.599998E-01 G 2.352985E-01 0.0 8.643961E-03 0.0 -5.361235E-02 0.0 7.999998E-01 G 3.774597E-01 0.0 1.387472E-02 0.0 -8.600190E-02 0.0 8.399997E-01 G 5.179623E-01 0.0 1.904420E-02 0.0 -1.180113E-01 0.0 8.799997E-01 G 6.347148E-01 0.0 2.334367E-02 0.0 -1.446127E-01 0.0 9.199997E-01 G 7.093598E-01 0.0 2.608850E-02 0.0 -1.616219E-01 0.0 9.599996E-01 G 7.301588E-01 0.0 2.685358E-02 0.0 -1.663593E-01 0.0 9.999996E-01 G 6.938396E-01 0.0 2.551943E-02 0.0 -1.580821E-01 0.0 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 75 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 2.260100E-02 0.0 3.623331E-04 0.0 -2.305232E-03 0.0 8.000000E-02 G 1.037433E-01 0.0 1.699105E-03 0.0 -1.057449E-02 0.0 1.200000E-01 G 2.363787E-01 0.0 3.881659E-03 0.0 -2.408732E-02 0.0 1.600000E-01 G 3.996579E-01 0.0 6.568177E-03 0.0 -4.072319E-02 0.0 2.000000E-01 G 5.679125E-01 0.0 9.338733E-03 0.0 -5.786930E-02 0.0 2.400000E-01 G 7.146861E-01 0.0 1.175350E-02 0.0 -7.282434E-02 0.0 2.800000E-01 G 8.169056E-01 0.0 1.343559E-02 0.0 -8.323748E-02 0.0 3.200000E-01 G 8.585010E-01 0.0 1.412142E-02 0.0 -8.747663E-02 0.0 3.600000E-01 G 8.329310E-01 0.0 1.369932E-02 0.0 -8.487279E-02 0.0 4.000000E-01 G 7.442097E-01 0.0 1.223945E-02 0.0 -7.583214E-02 0.0 4.400001E-01 G 6.062918E-01 0.0 9.970508E-03 0.0 -6.177668E-02 0.0 4.800001E-01 G 4.408637E-01 0.0 7.246459E-03 0.0 -4.492483E-02 0.0 5.200000E-01 G 2.739353E-01 0.0 4.499827E-03 0.0 -2.791455E-02 0.0 5.600000E-01 G 1.317456E-01 0.0 2.159992E-03 0.0 -1.342565E-02 0.0 6.000000E-01 G 3.664966E-02 0.0 5.934225E-04 0.0 -3.736118E-03 0.0 6.399999E-01 G 3.592473E-03 0.0 5.053749E-05 0.0 -3.698142E-04 0.0 6.799999E-01 G 3.777024E-02 0.0 6.129372E-04 0.0 -3.850891E-03 0.0 7.199998E-01 G 1.338083E-01 0.0 2.192524E-03 0.0 -1.363517E-02 0.0 7.599998E-01 G 2.766128E-01 0.0 4.544407E-03 0.0 -2.818779E-02 0.0 7.999998E-01 G 4.437335E-01 0.0 7.294387E-03 0.0 -4.521700E-02 0.0 8.399997E-01 G 6.089023E-01 0.0 1.001213E-02 0.0 -6.204293E-02 0.0 8.799997E-01 G 7.461537E-01 0.0 1.227250E-02 0.0 -7.602983E-02 0.0 9.199997E-01 G 8.339058E-01 0.0 1.371554E-02 0.0 -8.497231E-02 0.0 9.599996E-01 G 8.583551E-01 0.0 1.411777E-02 0.0 -8.746175E-02 0.0 9.999996E-01 G 8.156588E-01 0.0 1.341637E-02 0.0 -8.311109E-02 0.0 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 91 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 2.376437E-02 0.0 4.137240E-16 0.0 1.778554E-14 0.0 8.000000E-02 G 1.090833E-01 0.0 2.345418E-15 0.0 3.833046E-13 0.0 1.200000E-01 G 2.485435E-01 0.0 -1.369925E-15 0.0 -1.331300E-13 0.0 1.600000E-01 G 4.202253E-01 0.0 2.624836E-15 0.0 1.171753E-13 0.0 2.000000E-01 G 5.971391E-01 0.0 5.506101E-16 0.0 7.820407E-13 0.0 2.400000E-01 G 7.514666E-01 0.0 -3.218358E-15 0.0 -1.746122E-12 0.0 2.800000E-01 G 8.589451E-01 0.0 2.177896E-15 0.0 -2.102879E-12 0.0 3.200000E-01 G 9.026821E-01 0.0 -1.336678E-15 0.0 -2.061030E-13 0.0 3.600000E-01 G 8.757957E-01 0.0 -1.653532E-15 0.0 -1.545250E-12 0.0 4.000000E-01 G 7.825097E-01 0.0 -2.266910E-15 0.0 -1.639408E-12 0.0 4.400001E-01 G 6.374918E-01 0.0 -3.007987E-15 0.0 3.065390E-12 0.0 4.800001E-01 G 4.635533E-01 0.0 7.571615E-15 0.0 -3.220229E-12 0.0 5.200000E-01 G 2.880326E-01 0.0 1.464286E-15 0.0 -5.338278E-13 0.0 5.600000E-01 G 1.385262E-01 0.0 -5.139761E-15 0.0 3.354928E-12 0.0 6.000000E-01 G 3.853544E-02 0.0 5.337946E-15 0.0 -2.861772E-12 0.0 6.399999E-01 G 3.778856E-03 0.0 -6.308178E-15 0.0 -2.766403E-13 0.0 6.799999E-01 G 3.971393E-02 0.0 4.949448E-16 0.0 2.985028E-12 0.0 7.199998E-01 G 1.406947E-01 0.0 6.652085E-15 0.0 -2.586096E-12 0.0 7.599998E-01 G 2.908483E-01 0.0 -6.222164E-15 0.0 -4.001747E-13 0.0 7.999998E-01 G 4.665704E-01 0.0 2.862064E-15 0.0 2.026505E-12 0.0 8.399997E-01 G 6.402371E-01 0.0 2.871316E-15 0.0 -3.041327E-12 0.0 8.799997E-01 G 7.845532E-01 0.0 -8.102090E-15 0.0 2.253533E-12 0.0 9.199997E-01 G 8.768212E-01 0.0 2.310895E-15 0.0 -8.348742E-13 0.0 9.599996E-01 G 9.025282E-01 0.0 -1.076903E-15 0.0 -2.431388E-12 0.0 9.999996E-01 G 8.576347E-01 0.0 -1.886639E-15 0.0 1.332869E-12 0.0 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 92 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 2.260074E-02 -1.950406E-03 4.142405E-16 0.0 -6.859767E-14 1.993687E-03 8.000000E-02 G 1.037451E-01 -9.010918E-03 1.817518E-15 0.0 5.708360E-14 9.146721E-03 1.200000E-01 G 2.363869E-01 -2.054910E-02 -2.551433E-15 0.0 2.416523E-14 2.083841E-02 1.600000E-01 G 3.996707E-01 -3.475256E-02 1.451704E-15 0.0 1.226380E-13 3.523096E-02 2.000000E-01 G 5.679289E-01 -4.939157E-02 1.143681E-15 0.0 2.684894E-13 5.006296E-02 2.400000E-01 G 7.147114E-01 -6.215947E-02 -2.493521E-15 0.0 3.303385E-13 6.300066E-02 2.800000E-01 G 8.169399E-01 -7.105191E-02 -4.964634E-16 0.0 5.386227E-13 7.200997E-02 3.200000E-01 G 8.585345E-01 -7.467207E-02 -3.672564E-15 0.0 6.922026E-13 7.567722E-02 3.600000E-01 G 8.329593E-01 -7.244594E-02 -3.760177E-16 0.0 -4.171304E-13 7.342050E-02 4.000000E-01 G 7.442396E-01 -6.472787E-02 2.996483E-15 0.0 -5.478790E-13 6.559681E-02 4.400001E-01 G 6.063230E-01 -5.273090E-02 -1.640104E-15 0.0 1.300915E-12 5.343264E-02 4.800001E-01 G 4.408874E-01 -3.833777E-02 -2.402911E-16 0.0 -1.731633E-13 3.885135E-02 5.200000E-01 G 2.739478E-01 -2.381622E-02 1.730769E-16 0.0 -1.134351E-12 2.414030E-02 5.600000E-01 G 1.317484E-01 -1.144703E-02 -6.233334E-16 0.0 1.102557E-12 1.161612E-02 6.000000E-01 G 3.664268E-02 -3.172364E-03 5.516774E-15 0.0 -6.617106E-13 3.243315E-03 6.399999E-01 G 3.579726E-03 -2.976845E-04 -4.749169E-15 0.0 -5.007787E-13 3.365625E-04 6.799999E-01 G 3.775948E-02 -3.271090E-03 -4.596302E-17 0.0 1.094869E-12 3.347042E-03 7.199998E-01 G 1.338067E-01 -1.162477E-02 4.876774E-15 0.0 -8.206911E-13 1.180484E-02 7.599998E-01 G 2.766227E-01 -2.404971E-02 -5.530567E-15 0.0 -6.343191E-13 2.437980E-02 7.999998E-01 G 4.437579E-01 -3.858831E-02 4.354075E-15 0.0 -3.287037E-16 3.910298E-02 8.399997E-01 G 6.089382E-01 -5.295651E-02 1.211060E-15 0.0 -1.686664E-12 5.365820E-02 8.799997E-01 G 7.461882E-01 -6.489819E-02 -5.768907E-15 0.0 -7.535099E-13 6.576206E-02 9.199997E-01 G 8.339348E-01 -7.253103E-02 2.374284E-15 0.0 -1.319950E-12 7.350541E-02 9.599996E-01 G 8.583848E-01 -7.465774E-02 -3.456726E-15 0.0 1.040036E-12 7.566625E-02 9.999996E-01 G 8.156897E-01 -7.094487E-02 -7.998902E-16 0.0 -9.457382E-13 7.190454E-02 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 93 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 1.922783E-02 -3.710001E-03 1.460000E-16 0.0 1.063934E-14 3.796774E-03 8.000000E-02 G 8.825850E-02 -1.714023E-02 2.273778E-15 0.0 -1.316794E-14 1.741649E-02 1.200000E-01 G 2.010931E-01 -3.908768E-02 -4.465324E-16 0.0 -1.906415E-15 3.968520E-02 1.600000E-01 G 3.399968E-01 -6.610481E-02 -3.716432E-18 0.0 3.877797E-14 6.710280E-02 2.000000E-01 G 4.831298E-01 -9.395024E-02 -1.643237E-15 0.0 -2.409833E-14 9.536032E-02 2.400000E-01 G 6.079882E-01 -1.182365E-01 -3.316819E-15 0.0 3.572858E-14 1.200168E-01 2.800000E-01 G 6.949428E-01 -1.351511E-01 1.087655E-15 0.0 8.413874E-14 1.371926E-01 3.200000E-01 G 7.303283E-01 -1.420372E-01 -2.091808E-15 0.0 -2.694941E-13 1.441769E-01 3.600000E-01 G 7.085808E-01 -1.378030E-01 -1.831566E-15 0.0 2.950639E-13 1.398789E-01 4.000000E-01 G 6.331128E-01 -1.231225E-01 1.760028E-15 0.0 -1.591517E-14 1.249735E-01 4.400001E-01 G 5.157924E-01 -1.003030E-01 -3.009009E-15 0.0 -9.463132E-14 1.018113E-01 4.800001E-01 G 3.750656E-01 -7.292519E-02 1.822469E-15 0.0 2.934402E-14 7.402691E-02 5.200000E-01 G 2.330523E-01 -4.530274E-02 -1.354332E-16 0.0 1.837017E-13 4.599484E-02 5.600000E-01 G 1.120787E-01 -2.177403E-02 -7.917930E-16 0.0 -3.359068E-13 2.211858E-02 6.000000E-01 G 3.116599E-02 -6.033637E-03 3.861048E-15 0.0 3.942441E-13 6.151287E-03 6.399999E-01 G 3.037074E-03 -5.650976E-04 9.172278E-16 0.0 -3.584357E-13 5.987148E-04 6.799999E-01 G 3.211341E-02 -6.221084E-03 -1.293219E-16 0.0 -7.904801E-14 6.338299E-03 7.199998E-01 G 1.138248E-01 -2.211165E-02 1.058736E-15 0.0 3.646126E-13 2.246440E-02 7.599998E-01 G 2.353255E-01 -4.574660E-02 -3.231679E-15 0.0 -9.917000E-14 4.644595E-02 7.999998E-01 G 3.775073E-01 -7.340179E-02 4.017156E-15 0.0 -7.509640E-14 7.451054E-02 8.399997E-01 G 5.180188E-01 -1.007324E-01 -1.412110E-15 0.0 3.770839E-13 1.022518E-01 8.799997E-01 G 6.347737E-01 -1.234469E-01 -3.842253E-15 0.0 -6.199937E-13 1.252999E-01 9.199997E-01 G 7.094137E-01 -1.379650E-01 2.224600E-15 0.0 4.595726E-13 1.400380E-01 9.599996E-01 G 7.302033E-01 -1.420099E-01 -4.185986E-15 0.0 -3.550683E-13 1.441487E-01 9.999996E-01 G 6.938776E-01 -1.349472E-01 -2.260591E-15 0.0 -6.007595E-13 1.369810E-01 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 94 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 1.396763E-02 -5.106438E-03 -9.144112E-17 0.0 -1.343876E-14 5.224888E-03 8.000000E-02 G 6.411625E-02 -2.359167E-02 2.227106E-15 0.0 -6.795180E-14 2.396816E-02 1.200000E-01 G 1.460865E-01 -5.379961E-02 7.435336E-16 0.0 -6.106882E-15 5.460573E-02 1.600000E-01 G 2.469852E-01 -9.098493E-02 3.678179E-17 0.0 6.462172E-14 9.232518E-02 2.000000E-01 G 3.509501E-01 -1.293098E-01 -2.242628E-15 0.0 2.705183E-13 1.311956E-01 2.400000E-01 G 4.416390E-01 -1.627356E-01 -5.428473E-16 0.0 -5.122246E-13 1.651052E-01 2.800000E-01 G 5.047966E-01 -1.860153E-01 2.061974E-15 0.0 -1.656725E-13 1.887223E-01 3.200000E-01 G 5.304950E-01 -1.954927E-01 -2.172629E-15 0.0 7.786253E-13 1.983387E-01 3.600000E-01 G 5.146942E-01 -1.896654E-01 -1.606108E-15 0.0 -8.175106E-13 1.924384E-01 4.000000E-01 G 4.598830E-01 -1.694605E-01 1.157426E-15 0.0 -1.997496E-13 1.719438E-01 4.400001E-01 G 3.746706E-01 -1.380535E-01 -3.973975E-15 0.0 9.153396E-13 1.400771E-01 4.800001E-01 G 2.724513E-01 -1.003724E-01 2.792483E-15 0.0 -7.151128E-13 1.018569E-01 5.200000E-01 G 1.692957E-01 -6.235402E-02 4.092740E-15 0.0 -2.980604E-13 6.328568E-02 5.600000E-01 G 8.142289E-02 -2.996953E-02 -3.383589E-15 0.0 9.925747E-13 3.042981E-02 6.000000E-01 G 2.264945E-02 -8.304477E-03 1.534658E-15 0.0 -7.354076E-13 8.455335E-03 6.399999E-01 G 2.216264E-03 -7.774392E-04 -2.530147E-16 0.0 -2.191926E-13 8.174272E-04 6.799999E-01 G 2.333713E-02 -8.562172E-03 -4.829288E-16 0.0 8.675449E-13 8.714234E-03 7.199998E-01 G 8.269166E-02 -3.043381E-02 4.006451E-15 0.0 -8.002893E-13 3.090664E-02 7.599998E-01 G 1.709440E-01 -6.296454E-02 -5.904415E-16 0.0 -2.088134E-13 6.390407E-02 7.999998E-01 G 2.742238E-01 -1.010283E-01 -1.363897E-15 0.0 1.215115E-12 1.025188E-01 8.399997E-01 G 3.762882E-01 -1.386448E-01 -1.782955E-15 0.0 -6.472819E-13 1.406795E-01 8.799997E-01 G 4.610913E-01 -1.699074E-01 5.563361E-16 0.0 -5.503335E-13 1.723916E-01 9.199997E-01 G 5.153031E-01 -1.898888E-01 4.614276E-15 0.0 5.804627E-13 1.926647E-01 9.599996E-01 G 5.304046E-01 -1.954552E-01 -8.405404E-15 0.0 -1.542232E-13 1.983073E-01 9.999996E-01 G 5.040229E-01 -1.857345E-01 -6.377830E-16 0.0 -4.461275E-13 1.884357E-01 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 95 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 7.345352E-03 -6.003026E-03 -2.737600E-15 0.0 2.525338E-14 6.140167E-03 8.000000E-02 G 3.371520E-02 -2.773383E-02 -3.663040E-15 0.0 -3.255608E-15 2.816888E-02 1.200000E-01 G 7.681640E-02 -6.324533E-02 -1.204367E-15 0.0 -6.430021E-13 6.417675E-02 1.600000E-01 G 1.298733E-01 -1.069587E-01 1.866025E-15 0.0 3.742189E-13 1.084953E-01 2.000000E-01 G 1.845406E-01 -1.520110E-01 3.104093E-15 0.0 -1.066725E-12 1.541582E-01 2.400000E-01 G 2.322240E-01 -1.913038E-01 1.201134E-15 0.0 -1.997096E-12 1.939922E-01 2.800000E-01 G 2.654275E-01 -2.186694E-01 2.863734E-16 0.0 2.554954E-12 2.217345E-01 3.200000E-01 G 2.789347E-01 -2.298099E-01 -1.258461E-16 0.0 3.598613E-13 2.330213E-01 3.600000E-01 G 2.706252E-01 -2.229595E-01 1.054521E-15 0.0 -2.955892E-12 2.260797E-01 4.000000E-01 G 2.418020E-01 -1.992083E-01 4.463715E-15 0.0 2.225643E-12 2.020075E-01 4.400001E-01 G 1.970000E-01 -1.622888E-01 -1.070288E-15 0.0 4.078110E-13 1.645800E-01 4.800001E-01 G 1.432581E-01 -1.179936E-01 -9.198557E-16 0.0 -2.923794E-12 1.196801E-01 5.200000E-01 G 8.902417E-02 -7.330152E-02 -6.888051E-16 0.0 2.861442E-12 7.436754E-02 5.600000E-01 G 4.282192E-02 -3.523191E-02 -3.989075E-15 0.0 -1.532106E-13 3.576977E-02 6.000000E-01 G 1.191777E-02 -9.763284E-03 -1.257290E-15 0.0 -2.848684E-12 9.955195E-03 6.399999E-01 G 1.172122E-03 -9.146013E-04 -1.921621E-15 0.0 3.178790E-12 9.803830E-04 6.799999E-01 G 1.227654E-02 -1.006590E-02 -1.814904E-15 0.0 -4.063066E-13 1.025780E-02 7.199998E-01 G 4.348475E-02 -3.577727E-02 -4.279069E-15 0.0 -2.427200E-12 3.632909E-02 7.599998E-01 G 8.989043E-02 -7.401887E-02 2.750057E-15 0.0 2.757374E-12 7.509068E-02 7.999998E-01 G 1.441918E-01 -1.187647E-01 3.507373E-15 0.0 -9.698200E-13 1.204574E-01 8.399997E-01 G 1.978538E-01 -1.629843E-01 -7.430688E-16 0.0 -1.482400E-12 1.652901E-01 8.799997E-01 G 2.424405E-01 -1.997342E-01 -6.699185E-16 0.0 3.859241E-12 2.025376E-01 9.199997E-01 G 2.709443E-01 -2.232225E-01 4.657771E-15 0.0 -3.763128E-12 2.263484E-01 9.599996E-01 G 2.788853E-01 -2.297658E-01 -1.118109E-15 0.0 1.991172E-12 2.329826E-01 9.999996E-01 G 2.650165E-01 -2.183389E-01 8.402475E-15 0.0 1.204468E-12 2.213953E-01 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 96 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 0.0 -6.312042E-03 0.0 0.0 0.0 6.461481E-03 8.000000E-02 G 0.0 -2.916137E-02 0.0 0.0 0.0 2.963767E-02 1.200000E-01 G 0.0 -6.650057E-02 0.0 0.0 0.0 6.751927E-02 1.600000E-01 G 0.0 -1.124637E-01 0.0 0.0 0.0 1.141548E-01 2.000000E-01 G 0.0 -1.598345E-01 0.0 0.0 0.0 1.622043E-01 2.400000E-01 G 0.0 -2.011492E-01 0.0 0.0 0.0 2.041130E-01 2.800000E-01 G 0.0 -2.299226E-01 0.0 0.0 0.0 2.332919E-01 3.200000E-01 G 0.0 -2.416361E-01 0.0 0.0 0.0 2.451597E-01 3.600000E-01 G 0.0 -2.344330E-01 0.0 0.0 0.0 2.378568E-01 4.000000E-01 G 0.0 -2.094597E-01 0.0 0.0 0.0 2.125204E-01 4.400001E-01 G 0.0 -1.706405E-01 0.0 0.0 0.0 1.731445E-01 4.800001E-01 G 0.0 -1.240662E-01 0.0 0.0 0.0 1.259154E-01 5.200000E-01 G 0.0 -7.707445E-02 0.0 0.0 0.0 7.825388E-02 5.600000E-01 G 0.0 -3.704573E-02 0.0 0.0 0.0 3.764699E-02 6.000000E-01 G 0.0 -1.026631E-02 0.0 0.0 0.0 1.048456E-02 6.399999E-01 G 0.0 -9.621077E-04 0.0 0.0 0.0 1.037711E-03 6.799999E-01 G 0.0 -1.058431E-02 0.0 0.0 0.0 1.079675E-02 7.199998E-01 G 0.0 -3.761889E-02 0.0 0.0 0.0 3.822631E-02 7.599998E-01 G 0.0 -7.782861E-02 0.0 0.0 0.0 7.901478E-02 7.999998E-01 G 0.0 -1.248770E-01 0.0 0.0 0.0 1.267377E-01 8.399997E-01 G 0.0 -1.713720E-01 0.0 0.0 0.0 1.738983E-01 8.799997E-01 G 0.0 -2.100128E-01 0.0 0.0 0.0 2.130836E-01 9.199997E-01 G 0.0 -2.347096E-01 0.0 0.0 0.0 2.381359E-01 9.599996E-01 G 0.0 -2.415896E-01 0.0 0.0 0.0 2.451151E-01 9.999996E-01 G 0.0 -2.295749E-01 0.0 0.0 0.0 2.329269E-01 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 107 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 2.260100E-02 0.0 -3.623331E-04 0.0 2.305232E-03 0.0 8.000000E-02 G 1.037433E-01 0.0 -1.699105E-03 0.0 1.057449E-02 0.0 1.200000E-01 G 2.363787E-01 0.0 -3.881659E-03 0.0 2.408732E-02 0.0 1.600000E-01 G 3.996579E-01 0.0 -6.568177E-03 0.0 4.072319E-02 0.0 2.000000E-01 G 5.679125E-01 0.0 -9.338733E-03 0.0 5.786930E-02 0.0 2.400000E-01 G 7.146861E-01 0.0 -1.175350E-02 0.0 7.282434E-02 0.0 2.800000E-01 G 8.169056E-01 0.0 -1.343559E-02 0.0 8.323748E-02 0.0 3.200000E-01 G 8.585010E-01 0.0 -1.412142E-02 0.0 8.747663E-02 0.0 3.600000E-01 G 8.329310E-01 0.0 -1.369932E-02 0.0 8.487279E-02 0.0 4.000000E-01 G 7.442097E-01 0.0 -1.223945E-02 0.0 7.583214E-02 0.0 4.400001E-01 G 6.062918E-01 0.0 -9.970508E-03 0.0 6.177668E-02 0.0 4.800001E-01 G 4.408637E-01 0.0 -7.246459E-03 0.0 4.492483E-02 0.0 5.200000E-01 G 2.739353E-01 0.0 -4.499827E-03 0.0 2.791455E-02 0.0 5.600000E-01 G 1.317456E-01 0.0 -2.159992E-03 0.0 1.342565E-02 0.0 6.000000E-01 G 3.664966E-02 0.0 -5.934225E-04 0.0 3.736118E-03 0.0 6.399999E-01 G 3.592473E-03 0.0 -5.053749E-05 0.0 3.698142E-04 0.0 6.799999E-01 G 3.777024E-02 0.0 -6.129372E-04 0.0 3.850891E-03 0.0 7.199998E-01 G 1.338083E-01 0.0 -2.192524E-03 0.0 1.363517E-02 0.0 7.599998E-01 G 2.766128E-01 0.0 -4.544407E-03 0.0 2.818779E-02 0.0 7.999998E-01 G 4.437335E-01 0.0 -7.294387E-03 0.0 4.521700E-02 0.0 8.399997E-01 G 6.089023E-01 0.0 -1.001213E-02 0.0 6.204293E-02 0.0 8.799997E-01 G 7.461537E-01 0.0 -1.227250E-02 0.0 7.602983E-02 0.0 9.199997E-01 G 8.339058E-01 0.0 -1.371554E-02 0.0 8.497231E-02 0.0 9.599996E-01 G 8.583551E-01 0.0 -1.411777E-02 0.0 8.746175E-02 0.0 9.999996E-01 G 8.156588E-01 0.0 -1.341637E-02 0.0 8.311109E-02 0.0 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 123 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 1.922378E-02 0.0 -6.891849E-04 0.0 4.380530E-03 0.0 8.000000E-02 G 8.824663E-02 0.0 -3.231867E-03 0.0 2.010901E-02 0.0 1.200000E-01 G 2.010739E-01 0.0 -7.383340E-03 0.0 4.581302E-02 0.0 1.600000E-01 G 3.399688E-01 0.0 -1.249341E-02 0.0 7.745740E-02 0.0 2.000000E-01 G 4.830924E-01 0.0 -1.776330E-02 0.0 1.100694E-01 0.0 2.400000E-01 G 6.079462E-01 0.0 -2.235647E-02 0.0 1.385152E-01 0.0 2.800000E-01 G 6.949001E-01 0.0 -2.555600E-02 0.0 1.583244E-01 0.0 3.200000E-01 G 7.302833E-01 0.0 -2.686052E-02 0.0 1.663864E-01 0.0 3.600000E-01 G 7.085304E-01 0.0 -2.605764E-02 0.0 1.614335E-01 0.0 4.000000E-01 G 6.330611E-01 0.0 -2.328079E-02 0.0 1.442359E-01 0.0 4.400001E-01 G 5.157415E-01 0.0 -1.896503E-02 0.0 1.175056E-01 0.0 4.800001E-01 G 3.750188E-01 0.0 -1.378356E-02 0.0 8.544514E-02 0.0 5.200000E-01 G 2.330206E-01 0.0 -8.559164E-03 0.0 5.309394E-02 0.0 5.600000E-01 G 1.120688E-01 0.0 -4.108538E-03 0.0 2.553283E-02 0.0 6.000000E-01 G 3.117407E-02 0.0 -1.128746E-03 0.0 7.103801E-03 0.0 6.399999E-01 G 3.053781E-03 0.0 -9.610655E-05 0.0 6.978477E-04 0.0 6.799999E-01 G 3.212697E-02 0.0 -1.165859E-03 0.0 7.321349E-03 0.0 7.199998E-01 G 1.138236E-01 0.0 -4.170423E-03 0.0 2.593260E-02 0.0 7.599998E-01 G 2.352985E-01 0.0 -8.643961E-03 0.0 5.361235E-02 0.0 7.999998E-01 G 3.774597E-01 0.0 -1.387472E-02 0.0 8.600190E-02 0.0 8.399997E-01 G 5.179623E-01 0.0 -1.904420E-02 0.0 1.180113E-01 0.0 8.799997E-01 G 6.347148E-01 0.0 -2.334367E-02 0.0 1.446127E-01 0.0 9.199997E-01 G 7.093598E-01 0.0 -2.608850E-02 0.0 1.616219E-01 0.0 9.599996E-01 G 7.301588E-01 0.0 -2.685358E-02 0.0 1.663593E-01 0.0 9.999996E-01 G 6.938396E-01 0.0 -2.551943E-02 0.0 1.580821E-01 0.0 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 139 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 1.396785E-02 0.0 -9.485719E-04 0.0 6.028959E-03 0.0 8.000000E-02 G 6.411415E-02 0.0 -4.448249E-03 0.0 2.767453E-02 0.0 1.200000E-01 G 1.460896E-01 0.0 -1.016228E-02 0.0 6.305572E-02 0.0 1.600000E-01 G 2.470027E-01 0.0 -1.719570E-02 0.0 1.066115E-01 0.0 2.000000E-01 G 3.509873E-01 0.0 -2.444906E-02 0.0 1.514951E-01 0.0 2.400000E-01 G 4.416984E-01 0.0 -3.077102E-02 0.0 1.906483E-01 0.0 2.800000E-01 G 5.048757E-01 0.0 -3.517481E-02 0.0 2.179144E-01 0.0 3.200000E-01 G 5.305825E-01 0.0 -3.697032E-02 0.0 2.290116E-01 0.0 3.600000E-01 G 5.147769E-01 0.0 -3.586523E-02 0.0 2.221906E-01 0.0 4.000000E-01 G 4.599464E-01 0.0 -3.204325E-02 0.0 1.985237E-01 0.0 4.400001E-01 G 3.747092E-01 0.0 -2.610313E-02 0.0 1.617323E-01 0.0 4.800001E-01 G 2.724672E-01 0.0 -1.897141E-02 0.0 1.176038E-01 0.0 5.200000E-01 G 1.692989E-01 0.0 -1.178065E-02 0.0 7.307459E-02 0.0 5.600000E-01 G 8.142390E-02 0.0 -5.654919E-03 0.0 3.514425E-02 0.0 6.000000E-01 G 2.265004E-02 0.0 -1.553571E-03 0.0 9.775708E-03 0.0 6.399999E-01 G 2.218145E-03 0.0 -1.322520E-04 0.0 9.593955E-04 0.0 6.799999E-01 G 2.334205E-02 0.0 -1.604648E-03 0.0 1.007460E-02 0.0 7.199998E-01 G 8.269887E-02 0.0 -5.740099E-03 0.0 3.569462E-02 0.0 7.599998E-01 G 1.709542E-01 0.0 -1.189737E-02 0.0 7.378878E-02 0.0 7.999998E-01 G 2.742404E-01 0.0 -1.909689E-02 0.0 1.183691E-01 0.0 8.399997E-01 G 3.763226E-01 0.0 -2.621210E-02 0.0 1.624293E-01 0.0 8.799997E-01 G 4.611480E-01 0.0 -3.212980E-02 0.0 1.990415E-01 0.0 9.199997E-01 G 5.153798E-01 0.0 -3.590770E-02 0.0 2.224513E-01 0.0 9.599996E-01 G 5.304914E-01 0.0 -3.696077E-02 0.0 2.289726E-01 0.0 9.999996E-01 G 5.041057E-01 0.0 -3.512448E-02 0.0 2.175818E-01 0.0 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 155 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 7.341438E-03 0.0 -1.115102E-03 0.0 7.087710E-03 0.0 8.000000E-02 G 3.370503E-02 0.0 -5.229196E-03 0.0 3.253101E-02 0.0 1.200000E-01 G 7.680206E-02 0.0 -1.194647E-02 0.0 7.412641E-02 0.0 1.600000E-01 G 1.298560E-01 0.0 -2.021476E-02 0.0 1.253303E-01 0.0 2.000000E-01 G 1.845229E-01 0.0 -2.874157E-02 0.0 1.780919E-01 0.0 2.400000E-01 G 2.322126E-01 0.0 -3.617347E-02 0.0 2.241184E-01 0.0 2.800000E-01 G 2.654277E-01 0.0 -4.135047E-02 0.0 2.561752E-01 0.0 3.200000E-01 G 2.789421E-01 0.0 -4.346121E-02 0.0 2.692189E-01 0.0 3.600000E-01 G 2.706322E-01 0.0 -4.216207E-02 0.0 2.611988E-01 0.0 4.000000E-01 G 2.418065E-01 0.0 -3.766908E-02 0.0 2.333782E-01 0.0 4.400001E-01 G 1.969951E-01 0.0 -3.068607E-02 0.0 1.901288E-01 0.0 4.800001E-01 G 1.432425E-01 0.0 -2.230221E-02 0.0 1.382504E-01 0.0 5.200000E-01 G 8.900399E-02 0.0 -1.384896E-02 0.0 8.590242E-02 0.0 5.600000E-01 G 4.280549E-02 0.0 -6.647750E-03 0.0 4.131532E-02 0.0 6.000000E-01 G 1.190678E-02 0.0 -1.826322E-03 0.0 1.149273E-02 0.0 6.399999E-01 G 1.163649E-03 0.0 -1.554361E-04 0.0 1.124854E-03 0.0 6.799999E-01 G 1.227042E-02 0.0 -1.886363E-03 0.0 1.184372E-02 0.0 7.199998E-01 G 4.347592E-02 0.0 -6.747890E-03 0.0 4.196222E-02 0.0 7.599998E-01 G 8.987405E-02 0.0 -1.398617E-02 0.0 8.674253E-02 0.0 7.999998E-01 G 1.441751E-01 0.0 -2.244971E-02 0.0 1.391499E-01 0.0 8.399997E-01 G 1.978428E-01 0.0 -3.081416E-02 0.0 1.909474E-01 0.0 8.799997E-01 G 2.424388E-01 0.0 -3.777083E-02 0.0 2.339878E-01 0.0 9.199997E-01 G 2.709489E-01 0.0 -4.221201E-02 0.0 2.615050E-01 0.0 9.599996E-01 G 2.788943E-01 0.0 -4.344997E-02 0.0 2.691725E-01 0.0 9.999996E-01 G 2.650228E-01 0.0 -4.129131E-02 0.0 2.557848E-01 0.0 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. POINT-ID = 171 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-02 G 0.0 0.0 -1.172473E-03 0.0 7.448046E-03 0.0 8.000000E-02 G 0.0 0.0 -5.498284E-03 0.0 3.420134E-02 0.0 1.200000E-01 G 0.0 0.0 -1.256124E-02 0.0 7.793691E-02 0.0 1.600000E-01 G 0.0 0.0 -2.125505E-02 0.0 1.317777E-01 0.0 2.000000E-01 G 0.0 0.0 -3.022066E-02 0.0 1.872522E-01 0.0 2.400000E-01 G 0.0 0.0 -3.803502E-02 0.0 2.356479E-01 0.0 2.800000E-01 G 0.0 0.0 -4.347844E-02 0.0 2.693559E-01 0.0 3.200000E-01 G 0.0 0.0 -4.569780E-02 0.0 2.830696E-01 0.0 3.600000E-01 G 0.0 0.0 -4.433180E-02 0.0 2.746364E-01 0.0 4.000000E-01 G 0.0 0.0 -3.960761E-02 0.0 2.453847E-01 0.0 4.400001E-01 G 0.0 0.0 -3.226523E-02 0.0 1.999104E-01 0.0 4.800001E-01 G 0.0 0.0 -2.344991E-02 0.0 1.453606E-01 0.0 5.200000E-01 G 0.0 0.0 -1.456164E-02 0.0 9.031925E-02 0.0 5.600000E-01 G 0.0 0.0 -6.989846E-03 0.0 4.343792E-02 0.0 6.000000E-01 G 0.0 0.0 -1.920301E-03 0.0 1.208147E-02 0.0 6.399999E-01 G 0.0 0.0 -1.634114E-04 0.0 1.177379E-03 0.0 6.799999E-01 G 0.0 0.0 -1.983430E-03 0.0 1.245040E-02 0.0 7.199998E-01 G 0.0 0.0 -7.095142E-03 0.0 4.411817E-02 0.0 7.599998E-01 G 0.0 0.0 -1.470591E-02 0.0 9.120239E-02 0.0 7.999998E-01 G 0.0 0.0 -2.360501E-02 0.0 1.463072E-01 0.0 8.399997E-01 G 0.0 0.0 -3.239991E-02 0.0 2.007700E-01 0.0 8.799997E-01 G 0.0 0.0 -3.971460E-02 0.0 2.460269E-01 0.0 9.199997E-01 G 0.0 0.0 -4.438431E-02 0.0 2.749573E-01 0.0 9.599996E-01 G 0.0 0.0 -4.568599E-02 0.0 2.830216E-01 0.0 9.999996E-01 G 0.0 0.0 -4.341624E-02 0.0 2.689449E-01 0.0 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 91( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 1 CURVE TITLE = PLOTTED *TOP GRID 91(Z=5,A=0), *BOTTOM GRID 110(Z=5,A=18) X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = R DISP -INCHES- THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 9.026821E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 9.026821E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 110(--, 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 1 CURVE TITLE = PLOTTED *TOP GRID 91(Z=5,A=0), *BOTTOM GRID 110(Z=5,A=18) X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = R DISP -INCHES- THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 5.045310E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 5.045310E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 59( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 2 CURVE TITLE = PLOTTED GRID(A=0,18) *TOP - 59,62(Z=7) *BOTTOM 123,126(Z=3) X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = R DISP -INCHES- THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 7.302833E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 7.302833E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 62( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 2 OF UPPER FRAME 2 CURVE TITLE = PLOTTED GRID(A=0,18) *TOP - 59,62(Z=7) *BOTTOM 123,126(Z=3) X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = R DISP -INCHES- THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 4.291801E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 4.291801E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 123(--, 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 2 CURVE TITLE = PLOTTED GRID(A=0,18) *TOP - 59,62(Z=7) *BOTTOM 123,126(Z=3) X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = R DISP -INCHES- THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 7.302833E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 7.302833E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 126(--, 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 2 OF LOWER FRAME 2 CURVE TITLE = PLOTTED GRID(A=0,18) *TOP - 59,62(Z=7) *BOTTOM 123,126(Z=3) X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = R DISP -INCHES- THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 4.291801E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 4.291801E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 5301( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 3 CURVE TITLE = PLOTTED PRESPT (Z=5,A=0) *TOP 5301(R=3) *BOTTOM 5801(R=8) X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = PRESSURE *LB/INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -3.055301E-02 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 3.051542E-02 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -3.055301E-02 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 3.051542E-02 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 5801(--, 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 3 CURVE TITLE = PLOTTED PRESPT (Z=5,A=0) *TOP 5301(R=3) *BOTTOM 5801(R=8) X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = PRESSURE *LB/INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -8.240583E-01 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 8.230442E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -8.240583E-01 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 8.230442E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 3501( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 4 CURVE TITLE = PLOTTED PRESPT (R=5,A=0,Z=3,5,7)*TOP 3501,5501 *BOT 7501,5501 X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = PRESSURE *LB/INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -1.296850E-01 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 1.295254E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -1.296850E-01 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 1.295254E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 5501( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 2 OF UPPER FRAME 4 CURVE TITLE = PLOTTED PRESPT (R=5,A=0,Z=3,5,7)*TOP 3501,5501 *BOT 7501,5501 X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = PRESSURE *LB/INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -1.602994E-01 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 1.601022E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -1.602994E-01 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 1.601022E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 5501(--, 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 4 CURVE TITLE = PLOTTED PRESPT (R=5,A=0,Z=3,5,7)*TOP 3501,5501 *BOT 7501,5501 X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = PRESSURE *LB/INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -1.602994E-01 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 1.601022E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -1.602994E-01 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 1.601022E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 7501(--, 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 2 OF LOWER FRAME 4 CURVE TITLE = PLOTTED PRESPT (R=5,A=0,Z=3,5,7)*TOP 3501,5501 *BOT 7501,5501 X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = PRESSURE *LB/INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -1.296850E-01 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 1.295254E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -1.296850E-01 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 1.295254E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 91( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 5 CURVE TITLE = PLOTTED DISP AT MIDPOINT(Z=5.), ANGLE = 0.0 AND 18.0 DEGREES. X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = R DISP -INCH- THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 9.026821E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 9.026821E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 110( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 2 OF WHOLE FRAME 5 CURVE TITLE = PLOTTED DISP AT MIDPOINT(Z=5.), ANGLE = 0.0 AND 18.0 DEGREES. X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = R DISP -INCH- THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 5.045310E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 5.045310E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y 1 TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A 0 THIRD HARMONIC ANALYSIS. X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 4000085( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 6 CURVE TITLE = PLOTTED RINGFL (R=5,Z=5) * 85 X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = HARMONIC PRESSURE THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -1.602994E-01 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 1.601022E-01 AT X = 3.200000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.999996E-01) THE SMALLEST Y-VALUE = -1.602994E-01 AT X = 6.399999E-01 THE LARGEST Y-VALUE = 1.601022E-01 AT X = 3.200000E-01 E N D O F S U M M A R Y * * * END OF JOB * * * 1 JOB TITLE = TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. DATE: 5/17/95 END TIME: 16:10: 8 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d09041a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D09041A,NASTRAN APP HEAT SOL 9,1 TIME 10 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 3 TEMP(MATERIAL) = 60 4 SPC = 21 5 IC = 60 6 DLOAD = 70 7 TSTEP = 80 8 SET 21 = 21 9 OUTPUT 10 THERMAL= ALL 11 OLOAD = ALL 12 SPCF = 21 13 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 25, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CELAS2 28 3.0+8 20 1 21 1 2- CHBDY 31 2 LINE 10 12 3- CHBDY 33 2 LINE 12 14 4- CHBDY 35 2 LINE 14 16 5- CHBDY 37 2 LINE 16 18 6- CHBDY 39 2 LINE 18 20 7- CROD 11 1 10 12 13 1 12 14 8- CROD 15 1 14 16 17 1 16 18 9- CROD 19 1 18 20 10- DAREA 70 20 0 1.5+8 11- GRID 10 .0 .0 .0 12- GRID 12 .2 .0 .0 13- GRID 14 .4 .0 .0 14- GRID 16 .6 .0 .0 15- GRID 18 .8 .0 .0 16- GRID 20 1.0 .0 .0 17- GRID 21 1.0 18- MAT4 1 1.0 2.4674 19- PHBDY 2 1.0 20- PROD 1 1 1.0 21- QBDY1 70 100.0 31 33 35 37 39 22- SPC 21 21 1 23- TEMPD 60 .0 24- TLOAD2 70 70 0 .0 100.0 25- TSTEP 80 100 .05 2 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS2 ELEMENTS (ELEMENT TYPE 12) STARTING WITH ID 28 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HBDY ELEMENTS (ELEMENT TYPE 52) STARTING WITH ID 31 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 11 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 10 L O A D V E C T O R TIME TYPE VALUE 0.0 S 1.000000E+01 1.000000E-01 S 1.000000E+01 2.000000E-01 S 1.000000E+01 3.000000E-01 S 1.000000E+01 4.000000E-01 S 1.000000E+01 5.000001E-01 S 1.000000E+01 6.000001E-01 S 1.000000E+01 7.000001E-01 S 1.000000E+01 8.000001E-01 S 1.000000E+01 9.000002E-01 S 1.000000E+01 1.000000E+00 S 1.000000E+01 1.100000E+00 S 1.000000E+01 1.200000E+00 S 1.000000E+01 1.300000E+00 S 1.000000E+01 1.400000E+00 S 1.000000E+01 1.500000E+00 S 1.000000E+01 1.600000E+00 S 1.000000E+01 1.699999E+00 S 1.000000E+01 1.799999E+00 S 1.000000E+01 1.899999E+00 S 1.000000E+01 1.999999E+00 S 1.000000E+01 2.099999E+00 S 1.000000E+01 2.199999E+00 S 1.000000E+01 2.299999E+00 S 1.000000E+01 2.399999E+00 S 1.000000E+01 2.499999E+00 S 1.000000E+01 2.599999E+00 S 1.000000E+01 2.699999E+00 S 1.000000E+01 2.799999E+00 S 1.000000E+01 2.899998E+00 S 1.000000E+01 2.999998E+00 S 1.000000E+01 3.099998E+00 S 1.000000E+01 3.199998E+00 S 1.000000E+01 3.299998E+00 S 1.000000E+01 3.399998E+00 S 1.000000E+01 3.499998E+00 S 1.000000E+01 3.599998E+00 S 1.000000E+01 3.699998E+00 S 1.000000E+01 3.799998E+00 S 1.000000E+01 3.899997E+00 S 1.000000E+01 3.999997E+00 S 1.000000E+01 4.099998E+00 S 1.000000E+01 4.199998E+00 S 1.000000E+01 4.299998E+00 S 1.000000E+01 4.399999E+00 S 1.000000E+01 4.499999E+00 S 1.000000E+01 4.599999E+00 S 1.000000E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 10 L O A D V E C T O R TIME TYPE VALUE 4.700000E+00 S 1.000000E+01 4.800000E+00 S 1.000000E+01 4.900001E+00 S 1.000000E+01 5.000001E+00 S 1.000000E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 12 L O A D V E C T O R TIME TYPE VALUE 0.0 S 2.000000E+01 1.000000E-01 S 2.000000E+01 2.000000E-01 S 2.000000E+01 3.000000E-01 S 2.000000E+01 4.000000E-01 S 2.000000E+01 5.000001E-01 S 2.000000E+01 6.000001E-01 S 2.000000E+01 7.000001E-01 S 2.000000E+01 8.000001E-01 S 2.000000E+01 9.000002E-01 S 2.000000E+01 1.000000E+00 S 2.000000E+01 1.100000E+00 S 2.000000E+01 1.200000E+00 S 2.000000E+01 1.300000E+00 S 2.000000E+01 1.400000E+00 S 2.000000E+01 1.500000E+00 S 2.000000E+01 1.600000E+00 S 2.000000E+01 1.699999E+00 S 2.000000E+01 1.799999E+00 S 2.000000E+01 1.899999E+00 S 2.000000E+01 1.999999E+00 S 2.000000E+01 2.099999E+00 S 2.000000E+01 2.199999E+00 S 2.000000E+01 2.299999E+00 S 2.000000E+01 2.399999E+00 S 2.000000E+01 2.499999E+00 S 2.000000E+01 2.599999E+00 S 2.000000E+01 2.699999E+00 S 2.000000E+01 2.799999E+00 S 2.000000E+01 2.899998E+00 S 2.000000E+01 2.999998E+00 S 2.000000E+01 3.099998E+00 S 2.000000E+01 3.199998E+00 S 2.000000E+01 3.299998E+00 S 2.000000E+01 3.399998E+00 S 2.000000E+01 3.499998E+00 S 2.000000E+01 3.599998E+00 S 2.000000E+01 3.699998E+00 S 2.000000E+01 3.799998E+00 S 2.000000E+01 3.899997E+00 S 2.000000E+01 3.999997E+00 S 2.000000E+01 4.099998E+00 S 2.000000E+01 4.199998E+00 S 2.000000E+01 4.299998E+00 S 2.000000E+01 4.399999E+00 S 2.000000E+01 4.499999E+00 S 2.000000E+01 4.599999E+00 S 2.000000E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 12 L O A D V E C T O R TIME TYPE VALUE 4.700000E+00 S 2.000000E+01 4.800000E+00 S 2.000000E+01 4.900001E+00 S 2.000000E+01 5.000001E+00 S 2.000000E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 14 L O A D V E C T O R TIME TYPE VALUE 0.0 S 2.000000E+01 1.000000E-01 S 2.000000E+01 2.000000E-01 S 2.000000E+01 3.000000E-01 S 2.000000E+01 4.000000E-01 S 2.000000E+01 5.000001E-01 S 2.000000E+01 6.000001E-01 S 2.000000E+01 7.000001E-01 S 2.000000E+01 8.000001E-01 S 2.000000E+01 9.000002E-01 S 2.000000E+01 1.000000E+00 S 2.000000E+01 1.100000E+00 S 2.000000E+01 1.200000E+00 S 2.000000E+01 1.300000E+00 S 2.000000E+01 1.400000E+00 S 2.000000E+01 1.500000E+00 S 2.000000E+01 1.600000E+00 S 2.000000E+01 1.699999E+00 S 2.000000E+01 1.799999E+00 S 2.000000E+01 1.899999E+00 S 2.000000E+01 1.999999E+00 S 2.000000E+01 2.099999E+00 S 2.000000E+01 2.199999E+00 S 2.000000E+01 2.299999E+00 S 2.000000E+01 2.399999E+00 S 2.000000E+01 2.499999E+00 S 2.000000E+01 2.599999E+00 S 2.000000E+01 2.699999E+00 S 2.000000E+01 2.799999E+00 S 2.000000E+01 2.899998E+00 S 2.000000E+01 2.999998E+00 S 2.000000E+01 3.099998E+00 S 2.000000E+01 3.199998E+00 S 2.000000E+01 3.299998E+00 S 2.000000E+01 3.399998E+00 S 2.000000E+01 3.499998E+00 S 2.000000E+01 3.599998E+00 S 2.000000E+01 3.699998E+00 S 2.000000E+01 3.799998E+00 S 2.000000E+01 3.899997E+00 S 2.000000E+01 3.999997E+00 S 2.000000E+01 4.099998E+00 S 2.000000E+01 4.199998E+00 S 2.000000E+01 4.299998E+00 S 2.000000E+01 4.399999E+00 S 2.000000E+01 4.499999E+00 S 2.000000E+01 4.599999E+00 S 2.000000E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 14 L O A D V E C T O R TIME TYPE VALUE 4.700000E+00 S 2.000000E+01 4.800000E+00 S 2.000000E+01 4.900001E+00 S 2.000000E+01 5.000001E+00 S 2.000000E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 16 L O A D V E C T O R TIME TYPE VALUE 0.0 S 2.000000E+01 1.000000E-01 S 2.000000E+01 2.000000E-01 S 2.000000E+01 3.000000E-01 S 2.000000E+01 4.000000E-01 S 2.000000E+01 5.000001E-01 S 2.000000E+01 6.000001E-01 S 2.000000E+01 7.000001E-01 S 2.000000E+01 8.000001E-01 S 2.000000E+01 9.000002E-01 S 2.000000E+01 1.000000E+00 S 2.000000E+01 1.100000E+00 S 2.000000E+01 1.200000E+00 S 2.000000E+01 1.300000E+00 S 2.000000E+01 1.400000E+00 S 2.000000E+01 1.500000E+00 S 2.000000E+01 1.600000E+00 S 2.000000E+01 1.699999E+00 S 2.000000E+01 1.799999E+00 S 2.000000E+01 1.899999E+00 S 2.000000E+01 1.999999E+00 S 2.000000E+01 2.099999E+00 S 2.000000E+01 2.199999E+00 S 2.000000E+01 2.299999E+00 S 2.000000E+01 2.399999E+00 S 2.000000E+01 2.499999E+00 S 2.000000E+01 2.599999E+00 S 2.000000E+01 2.699999E+00 S 2.000000E+01 2.799999E+00 S 2.000000E+01 2.899998E+00 S 2.000000E+01 2.999998E+00 S 2.000000E+01 3.099998E+00 S 2.000000E+01 3.199998E+00 S 2.000000E+01 3.299998E+00 S 2.000000E+01 3.399998E+00 S 2.000000E+01 3.499998E+00 S 2.000000E+01 3.599998E+00 S 2.000000E+01 3.699998E+00 S 2.000000E+01 3.799998E+00 S 2.000000E+01 3.899997E+00 S 2.000000E+01 3.999997E+00 S 2.000000E+01 4.099998E+00 S 2.000000E+01 4.199998E+00 S 2.000000E+01 4.299998E+00 S 2.000000E+01 4.399999E+00 S 2.000000E+01 4.499999E+00 S 2.000000E+01 4.599999E+00 S 2.000000E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 16 L O A D V E C T O R TIME TYPE VALUE 4.700000E+00 S 2.000000E+01 4.800000E+00 S 2.000000E+01 4.900001E+00 S 2.000000E+01 5.000001E+00 S 2.000000E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 18 L O A D V E C T O R TIME TYPE VALUE 0.0 S 2.000000E+01 1.000000E-01 S 2.000000E+01 2.000000E-01 S 2.000000E+01 3.000000E-01 S 2.000000E+01 4.000000E-01 S 2.000000E+01 5.000001E-01 S 2.000000E+01 6.000001E-01 S 2.000000E+01 7.000001E-01 S 2.000000E+01 8.000001E-01 S 2.000000E+01 9.000002E-01 S 2.000000E+01 1.000000E+00 S 2.000000E+01 1.100000E+00 S 2.000000E+01 1.200000E+00 S 2.000000E+01 1.300000E+00 S 2.000000E+01 1.400000E+00 S 2.000000E+01 1.500000E+00 S 2.000000E+01 1.600000E+00 S 2.000000E+01 1.699999E+00 S 2.000000E+01 1.799999E+00 S 2.000000E+01 1.899999E+00 S 2.000000E+01 1.999999E+00 S 2.000000E+01 2.099999E+00 S 2.000000E+01 2.199999E+00 S 2.000000E+01 2.299999E+00 S 2.000000E+01 2.399999E+00 S 2.000000E+01 2.499999E+00 S 2.000000E+01 2.599999E+00 S 2.000000E+01 2.699999E+00 S 2.000000E+01 2.799999E+00 S 2.000000E+01 2.899998E+00 S 2.000000E+01 2.999998E+00 S 2.000000E+01 3.099998E+00 S 2.000000E+01 3.199998E+00 S 2.000000E+01 3.299998E+00 S 2.000000E+01 3.399998E+00 S 2.000000E+01 3.499998E+00 S 2.000000E+01 3.599998E+00 S 2.000000E+01 3.699998E+00 S 2.000000E+01 3.799998E+00 S 2.000000E+01 3.899997E+00 S 2.000000E+01 3.999997E+00 S 2.000000E+01 4.099998E+00 S 2.000000E+01 4.199998E+00 S 2.000000E+01 4.299998E+00 S 2.000000E+01 4.399999E+00 S 2.000000E+01 4.499999E+00 S 2.000000E+01 4.599999E+00 S 2.000000E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 18 L O A D V E C T O R TIME TYPE VALUE 4.700000E+00 S 2.000000E+01 4.800000E+00 S 2.000000E+01 4.900001E+00 S 2.000000E+01 5.000001E+00 S 2.000000E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 20 L O A D V E C T O R TIME TYPE VALUE 0.0 S 1.500000E+08 1.000000E-01 S 1.500000E+08 2.000000E-01 S 1.500000E+08 3.000000E-01 S 1.500000E+08 4.000000E-01 S 1.500000E+08 5.000001E-01 S 1.500000E+08 6.000001E-01 S 1.500000E+08 7.000001E-01 S 1.500000E+08 8.000001E-01 S 1.500000E+08 9.000002E-01 S 1.500000E+08 1.000000E+00 S 1.500000E+08 1.100000E+00 S 1.500000E+08 1.200000E+00 S 1.500000E+08 1.300000E+00 S 1.500000E+08 1.400000E+00 S 1.500000E+08 1.500000E+00 S 1.500000E+08 1.600000E+00 S 1.500000E+08 1.699999E+00 S 1.500000E+08 1.799999E+00 S 1.500000E+08 1.899999E+00 S 1.500000E+08 1.999999E+00 S 1.500000E+08 2.099999E+00 S 1.500000E+08 2.199999E+00 S 1.500000E+08 2.299999E+00 S 1.500000E+08 2.399999E+00 S 1.500000E+08 2.499999E+00 S 1.500000E+08 2.599999E+00 S 1.500000E+08 2.699999E+00 S 1.500000E+08 2.799999E+00 S 1.500000E+08 2.899998E+00 S 1.500000E+08 2.999998E+00 S 1.500000E+08 3.099998E+00 S 1.500000E+08 3.199998E+00 S 1.500000E+08 3.299998E+00 S 1.500000E+08 3.399998E+00 S 1.500000E+08 3.499998E+00 S 1.500000E+08 3.599998E+00 S 1.500000E+08 3.699998E+00 S 1.500000E+08 3.799998E+00 S 1.500000E+08 3.899997E+00 S 1.500000E+08 3.999997E+00 S 1.500000E+08 4.099998E+00 S 1.500000E+08 4.199998E+00 S 1.500000E+08 4.299998E+00 S 1.500000E+08 4.399999E+00 S 1.500000E+08 4.499999E+00 S 1.500000E+08 4.599999E+00 S 1.500000E+08 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 20 L O A D V E C T O R TIME TYPE VALUE 4.700000E+00 S 1.500000E+08 4.800000E+00 S 1.500000E+08 4.900001E+00 S 1.500000E+08 5.000001E+00 S 1.500000E+08 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 21 L O A D V E C T O R TIME TYPE VALUE 0.0 S 0.0 1.000000E-01 S 0.0 2.000000E-01 S 0.0 3.000000E-01 S 0.0 4.000000E-01 S 0.0 5.000001E-01 S 0.0 6.000001E-01 S 0.0 7.000001E-01 S 0.0 8.000001E-01 S 0.0 9.000002E-01 S 0.0 1.000000E+00 S 0.0 1.100000E+00 S 0.0 1.200000E+00 S 0.0 1.300000E+00 S 0.0 1.400000E+00 S 0.0 1.500000E+00 S 0.0 1.600000E+00 S 0.0 1.699999E+00 S 0.0 1.799999E+00 S 0.0 1.899999E+00 S 0.0 1.999999E+00 S 0.0 2.099999E+00 S 0.0 2.199999E+00 S 0.0 2.299999E+00 S 0.0 2.399999E+00 S 0.0 2.499999E+00 S 0.0 2.599999E+00 S 0.0 2.699999E+00 S 0.0 2.799999E+00 S 0.0 2.899998E+00 S 0.0 2.999998E+00 S 0.0 3.099998E+00 S 0.0 3.199998E+00 S 0.0 3.299998E+00 S 0.0 3.399998E+00 S 0.0 3.499998E+00 S 0.0 3.599998E+00 S 0.0 3.699998E+00 S 0.0 3.799998E+00 S 0.0 3.899997E+00 S 0.0 3.999997E+00 S 0.0 4.099998E+00 S 0.0 4.199998E+00 S 0.0 4.299998E+00 S 0.0 4.399999E+00 S 0.0 4.499999E+00 S 0.0 4.599999E+00 S 0.0 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 21 L O A D V E C T O R TIME TYPE VALUE 4.700000E+00 S 0.0 4.800000E+00 S 0.0 4.900001E+00 S 0.0 5.000001E+00 S 0.0 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 21 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T TIME TYPE VALUE 0.0 S 0.0 1.000000E-01 S -1.500000E+08 2.000000E-01 S -1.500001E+08 3.000000E-01 S -1.500000E+08 4.000000E-01 S -1.500000E+08 5.000001E-01 S -1.500000E+08 6.000001E-01 S -1.500000E+08 7.000001E-01 S -1.500000E+08 8.000001E-01 S -1.500000E+08 9.000002E-01 S -1.500000E+08 1.000000E+00 S -1.500000E+08 1.100000E+00 S -1.500000E+08 1.200000E+00 S -1.500000E+08 1.300000E+00 S -1.500000E+08 1.400000E+00 S -1.500000E+08 1.500000E+00 S -1.500000E+08 1.600000E+00 S -1.500000E+08 1.699999E+00 S -1.500000E+08 1.799999E+00 S -1.500000E+08 1.899999E+00 S -1.500000E+08 1.999999E+00 S -1.500000E+08 2.099999E+00 S -1.500000E+08 2.199999E+00 S -1.500000E+08 2.299999E+00 S -1.500000E+08 2.399999E+00 S -1.500000E+08 2.499999E+00 S -1.500000E+08 2.599999E+00 S -1.500000E+08 2.699999E+00 S -1.500000E+08 2.799999E+00 S -1.500000E+08 2.899998E+00 S -1.500000E+08 2.999998E+00 S -1.500000E+08 3.099998E+00 S -1.500000E+08 3.199998E+00 S -1.500000E+08 3.299998E+00 S -1.500001E+08 3.399998E+00 S -1.500001E+08 3.499998E+00 S -1.500001E+08 3.599998E+00 S -1.500001E+08 3.699998E+00 S -1.500001E+08 3.799998E+00 S -1.500001E+08 3.899997E+00 S -1.500001E+08 3.999997E+00 S -1.500001E+08 4.099998E+00 S -1.500001E+08 4.199998E+00 S -1.500001E+08 4.299998E+00 S -1.500001E+08 4.399999E+00 S -1.500001E+08 4.499999E+00 S -1.500001E+08 4.599999E+00 S -1.500001E+08 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 21 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T TIME TYPE VALUE 4.700000E+00 S -1.500001E+08 4.800000E+00 S -1.500001E+08 4.900001E+00 S -1.500001E+08 5.000001E+00 S -1.500001E+08 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 10 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 0.0 S 0.0 1.000000E-01 S 3.138144E+00 2.000000E-01 S 7.147243E+00 3.000000E-01 S 1.101120E+01 4.000000E-01 S 1.463225E+01 5.000001E-01 S 1.796781E+01 6.000001E-01 S 2.101374E+01 7.000001E-01 S 2.378349E+01 8.000001E-01 S 2.629698E+01 9.000002E-01 S 2.857572E+01 1.000000E+00 S 3.064066E+01 1.100000E+00 S 3.251144E+01 1.200000E+00 S 3.420613E+01 1.300000E+00 S 3.574123E+01 1.400000E+00 S 3.713172E+01 1.500000E+00 S 3.839123E+01 1.600000E+00 S 3.953207E+01 1.699999E+00 S 4.056544E+01 1.799999E+00 S 4.150144E+01 1.899999E+00 S 4.234925E+01 1.999999E+00 S 4.311718E+01 2.099999E+00 S 4.381277E+01 2.199999E+00 S 4.444282E+01 2.299999E+00 S 4.501350E+01 2.399999E+00 S 4.553043E+01 2.499999E+00 S 4.599865E+01 2.599999E+00 S 4.642275E+01 2.699999E+00 S 4.680689E+01 2.799999E+00 S 4.715485E+01 2.899998E+00 S 4.747001E+01 2.999998E+00 S 4.775549E+01 3.099998E+00 S 4.801407E+01 3.199998E+00 S 4.824828E+01 3.299998E+00 S 4.846043E+01 3.399998E+00 S 4.865259E+01 3.499998E+00 S 4.882665E+01 3.599998E+00 S 4.898430E+01 3.699998E+00 S 4.912711E+01 3.799998E+00 S 4.925646E+01 3.899997E+00 S 4.937362E+01 3.999997E+00 S 4.947975E+01 4.099998E+00 S 4.957587E+01 4.199998E+00 S 4.966294E+01 4.299998E+00 S 4.974181E+01 4.399999E+00 S 4.981324E+01 4.499999E+00 S 4.987794E+01 4.599999E+00 S 4.993655E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 10 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 4.700000E+00 S 4.998963E+01 4.800000E+00 S 5.003772E+01 4.900001E+00 S 5.008127E+01 5.000001E+00 S 5.012072E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 12 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 0.0 S 0.0 1.000000E-01 S 3.133965E+00 2.000000E-01 S 7.102941E+00 3.000000E-01 S 1.086757E+01 4.000000E-01 S 1.435395E+01 5.000001E-01 S 1.754525E+01 6.000001E-01 S 2.045044E+01 7.000001E-01 S 2.308827E+01 8.000001E-01 S 2.548033E+01 9.000002E-01 S 2.764824E+01 1.000000E+00 S 2.961241E+01 1.100000E+00 S 3.139176E+01 1.200000E+00 S 3.300356E+01 1.300000E+00 S 3.446355E+01 1.400000E+00 S 3.578601E+01 1.500000E+00 S 3.698387E+01 1.600000E+00 S 3.806888E+01 1.699999E+00 S 3.905167E+01 1.799999E+00 S 3.994186E+01 1.899999E+00 S 4.074817E+01 1.999999E+00 S 4.147852E+01 2.099999E+00 S 4.214006E+01 2.199999E+00 S 4.273928E+01 2.299999E+00 S 4.328204E+01 2.399999E+00 S 4.377365E+01 2.499999E+00 S 4.421895E+01 2.599999E+00 S 4.462230E+01 2.699999E+00 S 4.498765E+01 2.799999E+00 S 4.531857E+01 2.899998E+00 S 4.561831E+01 2.999998E+00 S 4.588982E+01 3.099998E+00 S 4.613573E+01 3.199998E+00 S 4.635849E+01 3.299998E+00 S 4.656025E+01 3.399998E+00 S 4.674301E+01 3.499998E+00 S 4.690855E+01 3.599998E+00 S 4.705849E+01 3.699998E+00 S 4.719431E+01 3.799998E+00 S 4.731732E+01 3.899997E+00 S 4.742875E+01 3.999997E+00 S 4.752968E+01 4.099998E+00 S 4.762110E+01 4.199998E+00 S 4.770391E+01 4.299998E+00 S 4.777891E+01 4.399999E+00 S 4.784685E+01 4.499999E+00 S 4.790838E+01 4.599999E+00 S 4.796413E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 12 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 4.700000E+00 S 4.801461E+01 4.800000E+00 S 4.806034E+01 4.900001E+00 S 4.810177E+01 5.000001E+00 S 4.813929E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 14 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 0.0 S 0.0 1.000000E-01 S 3.109555E+00 2.000000E-01 S 6.901321E+00 3.000000E-01 S 1.031607E+01 4.000000E-01 S 1.337816E+01 5.000001E-01 S 1.613534E+01 6.000001E-01 S 1.862523E+01 7.000001E-01 S 2.087721E+01 8.000001E-01 S 2.291557E+01 9.000002E-01 S 2.476124E+01 1.000000E+00 S 2.643274E+01 1.100000E+00 S 2.794664E+01 1.200000E+00 S 2.931784E+01 1.300000E+00 S 3.055984E+01 1.400000E+00 S 3.168481E+01 1.500000E+00 S 3.270378E+01 1.600000E+00 S 3.362676E+01 1.699999E+00 S 3.446276E+01 1.799999E+00 S 3.522001E+01 1.899999E+00 S 3.590590E+01 1.999999E+00 S 3.652718E+01 2.099999E+00 S 3.708992E+01 2.199999E+00 S 3.759964E+01 2.299999E+00 S 3.806133E+01 2.399999E+00 S 3.847953E+01 2.499999E+00 S 3.885833E+01 2.599999E+00 S 3.920144E+01 2.699999E+00 S 3.951221E+01 2.799999E+00 S 3.979371E+01 2.899998E+00 S 4.004869E+01 2.999998E+00 S 4.027964E+01 3.099998E+00 S 4.048884E+01 3.199998E+00 S 4.067833E+01 3.299998E+00 S 4.084995E+01 3.399998E+00 S 4.100542E+01 3.499998E+00 S 4.114623E+01 3.599998E+00 S 4.127378E+01 3.699998E+00 S 4.138932E+01 3.799998E+00 S 4.149396E+01 3.899997E+00 S 4.158874E+01 3.999997E+00 S 4.167460E+01 4.099998E+00 S 4.175237E+01 4.199998E+00 S 4.182280E+01 4.299998E+00 S 4.188660E+01 4.399999E+00 S 4.194440E+01 4.499999E+00 S 4.199674E+01 4.599999E+00 S 4.204416E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 14 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 4.700000E+00 S 4.208710E+01 4.800000E+00 S 4.212600E+01 4.900001E+00 S 4.216124E+01 5.000001E+00 S 4.219316E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 16 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 0.0 S 0.0 1.000000E-01 S 2.997884E+00 2.000000E-01 S 6.269045E+00 3.000000E-01 S 8.959939E+00 4.000000E-01 S 1.127363E+01 5.000001E-01 S 1.331530E+01 6.000001E-01 S 1.514104E+01 7.000001E-01 S 1.678449E+01 8.000001E-01 S 1.826862E+01 9.000002E-01 S 1.961096E+01 1.000000E+00 S 2.082598E+01 1.100000E+00 S 2.192616E+01 1.200000E+00 S 2.292251E+01 1.300000E+00 S 2.382493E+01 1.400000E+00 S 2.464229E+01 1.500000E+00 S 2.538262E+01 1.600000E+00 S 2.605320E+01 1.699999E+00 S 2.666060E+01 1.799999E+00 S 2.721077E+01 1.899999E+00 S 2.770910E+01 1.999999E+00 S 2.816049E+01 2.099999E+00 S 2.856934E+01 2.199999E+00 S 2.893967E+01 2.299999E+00 S 2.927512E+01 2.399999E+00 S 2.957895E+01 2.499999E+00 S 2.985416E+01 2.599999E+00 S 3.010345E+01 2.699999E+00 S 3.032924E+01 2.799999E+00 S 3.053376E+01 2.899998E+00 S 3.071901E+01 2.999998E+00 S 3.088681E+01 3.099998E+00 S 3.103880E+01 3.199998E+00 S 3.117647E+01 3.299998E+00 S 3.130116E+01 3.399998E+00 S 3.141411E+01 3.499998E+00 S 3.151642E+01 3.599998E+00 S 3.160909E+01 3.699998E+00 S 3.169303E+01 3.799998E+00 S 3.176906E+01 3.899997E+00 S 3.183793E+01 3.999997E+00 S 3.190030E+01 4.099998E+00 S 3.195680E+01 4.199998E+00 S 3.200798E+01 4.299998E+00 S 3.205434E+01 4.399999E+00 S 3.209632E+01 4.499999E+00 S 3.213436E+01 4.599999E+00 S 3.216880E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 16 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 4.700000E+00 S 3.220001E+01 4.800000E+00 S 3.222827E+01 4.900001E+00 S 3.225388E+01 5.000001E+00 S 3.227707E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 18 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 0.0 S 0.0 1.000000E-01 S 2.510051E+00 2.000000E-01 S 4.543471E+00 3.000000E-01 S 6.056288E+00 4.000000E-01 S 7.311525E+00 5.000001E-01 S 8.401373E+00 6.000001E-01 S 9.368353E+00 7.000001E-01 S 1.023547E+01 8.000001E-01 S 1.101707E+01 9.000002E-01 S 1.172338E+01 1.000000E+00 S 1.236241E+01 1.100000E+00 S 1.294091E+01 1.200000E+00 S 1.346478E+01 1.300000E+00 S 1.393923E+01 1.400000E+00 S 1.436895E+01 1.500000E+00 S 1.475817E+01 1.600000E+00 S 1.511072E+01 1.699999E+00 S 1.543005E+01 1.799999E+00 S 1.571929E+01 1.899999E+00 S 1.598128E+01 1.999999E+00 S 1.621858E+01 2.099999E+00 S 1.643353E+01 2.199999E+00 S 1.662823E+01 2.299999E+00 S 1.680458E+01 2.399999E+00 S 1.696431E+01 2.499999E+00 S 1.710900E+01 2.599999E+00 S 1.724006E+01 2.699999E+00 S 1.735876E+01 2.799999E+00 S 1.746629E+01 2.899998E+00 S 1.756368E+01 2.999998E+00 S 1.765189E+01 3.099998E+00 S 1.773180E+01 3.199998E+00 S 1.780418E+01 3.299998E+00 S 1.786973E+01 3.399998E+00 S 1.792911E+01 3.499998E+00 S 1.798290E+01 3.599998E+00 S 1.803162E+01 3.699998E+00 S 1.807575E+01 3.799998E+00 S 1.811572E+01 3.899997E+00 S 1.815193E+01 3.999997E+00 S 1.818472E+01 4.099998E+00 S 1.821442E+01 4.199998E+00 S 1.824133E+01 4.299998E+00 S 1.826570E+01 4.399999E+00 S 1.828778E+01 4.499999E+00 S 1.830777E+01 4.599999E+00 S 1.832588E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 18 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 4.700000E+00 S 1.834229E+01 4.800000E+00 S 1.835714E+01 4.900001E+00 S 1.837060E+01 5.000001E+00 S 1.838279E+01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 20 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 0.0 S 0.0 1.000000E-01 S 5.000001E-01 2.000000E-01 S 5.000002E-01 3.000000E-01 S 5.000002E-01 4.000000E-01 S 5.000001E-01 5.000001E-01 S 5.000001E-01 6.000001E-01 S 5.000001E-01 7.000001E-01 S 5.000001E-01 8.000001E-01 S 5.000001E-01 9.000002E-01 S 5.000001E-01 1.000000E+00 S 5.000001E-01 1.100000E+00 S 5.000001E-01 1.200000E+00 S 5.000001E-01 1.300000E+00 S 5.000001E-01 1.400000E+00 S 5.000001E-01 1.500000E+00 S 5.000001E-01 1.600000E+00 S 5.000001E-01 1.699999E+00 S 5.000001E-01 1.799999E+00 S 5.000001E-01 1.899999E+00 S 5.000001E-01 1.999999E+00 S 5.000002E-01 2.099999E+00 S 5.000002E-01 2.199999E+00 S 5.000002E-01 2.299999E+00 S 5.000002E-01 2.399999E+00 S 5.000002E-01 2.499999E+00 S 5.000002E-01 2.599999E+00 S 5.000002E-01 2.699999E+00 S 5.000002E-01 2.799999E+00 S 5.000002E-01 2.899998E+00 S 5.000002E-01 2.999998E+00 S 5.000002E-01 3.099998E+00 S 5.000002E-01 3.199998E+00 S 5.000002E-01 3.299998E+00 S 5.000002E-01 3.399998E+00 S 5.000003E-01 3.499998E+00 S 5.000003E-01 3.599998E+00 S 5.000003E-01 3.699998E+00 S 5.000003E-01 3.799998E+00 S 5.000003E-01 3.899997E+00 S 5.000003E-01 3.999997E+00 S 5.000003E-01 4.099998E+00 S 5.000003E-01 4.199998E+00 S 5.000003E-01 4.299998E+00 S 5.000003E-01 4.399999E+00 S 5.000003E-01 4.499999E+00 S 5.000003E-01 4.599999E+00 S 5.000003E-01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 20 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 4.700000E+00 S 5.000003E-01 4.800000E+00 S 5.000003E-01 4.900001E+00 S 5.000003E-01 5.000001E+00 S 5.000003E-01 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 21 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 0.0 S 0.0 1.000000E-01 S 0.0 2.000000E-01 S 0.0 3.000000E-01 S 0.0 4.000000E-01 S 0.0 5.000001E-01 S 0.0 6.000001E-01 S 0.0 7.000001E-01 S 0.0 8.000001E-01 S 0.0 9.000002E-01 S 0.0 1.000000E+00 S 0.0 1.100000E+00 S 0.0 1.200000E+00 S 0.0 1.300000E+00 S 0.0 1.400000E+00 S 0.0 1.500000E+00 S 0.0 1.600000E+00 S 0.0 1.699999E+00 S 0.0 1.799999E+00 S 0.0 1.899999E+00 S 0.0 1.999999E+00 S 0.0 2.099999E+00 S 0.0 2.199999E+00 S 0.0 2.299999E+00 S 0.0 2.399999E+00 S 0.0 2.499999E+00 S 0.0 2.599999E+00 S 0.0 2.699999E+00 S 0.0 2.799999E+00 S 0.0 2.899998E+00 S 0.0 2.999998E+00 S 0.0 3.099998E+00 S 0.0 3.199998E+00 S 0.0 3.299998E+00 S 0.0 3.399998E+00 S 0.0 3.499998E+00 S 0.0 3.599998E+00 S 0.0 3.699998E+00 S 0.0 3.799998E+00 S 0.0 3.899997E+00 S 0.0 3.999997E+00 S 0.0 4.099998E+00 S 0.0 4.199998E+00 S 0.0 4.299998E+00 S 0.0 4.399999E+00 S 0.0 4.499999E+00 S 0.0 4.599999E+00 S 0.0 1 LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A 0 POINT-ID = 21 T E M P E R A T U R E V E C T O R TIME TYPE VALUE 4.700000E+00 S 0.0 4.800000E+00 S 0.0 4.900001E+00 S 0.0 5.000001E+00 S 0.0 * * * END OF JOB * * * 1 JOB TITLE = LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE DATE: 5/17/95 END TIME: 16:10:45 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d10011a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D10011A,NASTRAN TIME 25 APP DISPLACEMENT SOL 10,1 DIAG 14 ALTER 88 $ MATGPR GPLD,USETD,SILD,PHIA // C,N,H / C,N,A $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 3 LABEL = FLEXIBLE STRUCTURE CASE 4 MPC = 101 5 METHOD = 2 6 TFL = 20 7 CMETHOD = 11 8 OUTPUT 9 SET 1 = 1,100,101,1010 THRU 1090 10 SVECTOR(SORT1,PHASE) = ALL 11 DISPLACEMENT(SORT1,PHASE) = 1 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 135, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BAROR .0 10.0 .0 1 2- CBAR 1 10 1 2 3- CBAR 2 10 2 3 4- CBAR 3 10 3 4 5- CBAR 4 10 4 5 6- CBAR 5 10 5 6 7- CBAR 6 10 6 7 8- CBAR 7 10 7 8 9- CBAR 8 10 8 9 10- CBAR 9 10 9 10 11- CBAR 10 20 10 11 12- CBAR 11 20 11 12 13- CBAR 12 20 12 13 14- CBAR 13 20 13 14 15- CBAR 14 20 14 15 16- CBAR 15 20 15 16 17- CELAS4 1001 2.0261+71001 1002 32.417+71002 18- CELAS4 1003 164.11+71003 1004 518.68+71004 19- CMASS4 2001 2.5+3 1001 2001 2002 2.5+3 1002 2002 20- CMASS4 2003 2.5+3 1003 2003 2004 2.5+3 1004 2004 21- CONM2 101 1 3333.333 22- CONM2 102 2 6666.667 23- CONM2 103 3 6666.667 24- CONM2 104 4 6666.667 25- CONM2 105 5 6666.667 26- CONM2 106 6 6666.667 27- CONM2 107 7 6666.667 28- CONM2 108 8 6666.667 29- CONM2 109 9 6666.667 30- CONM2 110 10 5000.000 31- CONM2 111 11 3333.333 32- CONM2 112 12 3333.333 33- CONM2 113 13 3333.333 34- CONM2 114 14 3333.333 35- CONM2 115 15 3333.333 36- CONM2 116 16 2500.0 37- CONM2 117 17 1666.667 38- CONM2 118 18 1666.667 39- CONM2 119 19 833.333 40- EIGC 11 DET MAX +EC 41- +EC -2.0 -1.0 -2.0 10.0 10.0 6 6 42- EIGC 12 INV MAX +EC1 43- +EC1 .0 -1.0 .0 10.0 10.0 6 6 44- EIGC 13 INV MAX EIGC13 45- +IGC13 -1.0 .0 -1.0 10.0 10.0 6 6 46- EIGP 11 .0 .0 2 47- EIGR 1 INV .0 1.0 1 2 2 +E1 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- +E1 MASS 49- EIGR 2 INV .0 12.0 5 7 +E2 50- +E2 MASS 51- EPOINT 1010 1011 1030 1040 1050 1060 1070 1080 52- EPOINT 1020 1021 53- GRDSET 1345 54- GRID 1 .0 .0 .0 55- GRID 2 16.66667.0 .0 56- GRID 3 33.33333.0 .0 57- GRID 4 50.0 .0 .0 58- GRID 5 66.66666.0 .0 59- GRID 6 83.33333.0 .0 60- GRID 7 100.0 .0 .0 61- GRID 8 116.6667.0 .0 62- GRID 9 133.3333.0 .0 63- GRID 10 150.000 .0 .0 64- GRID 11 166.6667.0 .0 65- GRID 12 183.3333.0 .0 66- GRID 13 200.00 .0 .0 67- GRID 14 216.6667.0 .0 68- GRID 15 233.3333.0 .0 69- GRID 16 250.000 .0 .0 70- GRID 17 266.6667.0 .0 123456 71- GRID 18 283.3333.0 .0 123456 72- GRID 19 300.000 .0 .0 73- GRID 100 166.176 .0 .0 74- GRID 101 116.176 .0 .0 75- MAT1 1 10.4+6 4.0+6 76- MPC 3 16 6 -1.0 1001 .0628318 +161 77- +161 1002 .12566371003 .1884955 +162 78- +162 1004 .251327419 2 .02 +163 79- +163 16 2 -.02 80- MPC 3 19 6 -1.0 1001 -.062832 +191 81- +191 1002 .12566371003 -.188496 +192 82- +192 1004 .251327419 2 .02 +193 83- +193 16 2 -0.02 84- MPC 3 2001 1.57079616 2 1.0 +201 85- +201 19 2 1.0 86- MPC 3 2002 1.57079616 2 .5 +202 87- +202 19 2 -0.5 88- MPC 3 2003 1.57079616 2 .3333333 +203 89- +203 19 2 .3333333 90- MPC 3 2004 1.57079616 2 .25 +204 91- +204 19 2 -0.25 92- MPC 100 8 2 1.0 101 2 -1.0 +MPC2 93- +MPC2 101 6 -.491 94- MPC 100 8 6 1.0 101 6 -1.0 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- MPC 100 11 2 1.0 100 2 -1.0 +MPC1 96- +MPC1 100 6 -.491 97- MPC 100 11 6 1.0 100 6 -1.0 98- MPCADD 101 100 3 99- PARAM GRDPNT 101 100- PARAM LMODES 4 101- PBAR 10 1 4.0+2 6.0+4 6.0+4 102- PBAR 20 1 2.0+2 2.0+4 2.0+4 103- SEQGP 100 10.5 101 7.5 104- SPOINT 1001 1002 1003 1004 2001 2002 2003 2004 105- SUPORT 101 2 101 6 106- TF 20 1 2 .0 .0 50.0 +T6 107- +T6 1 6 .0 .0 -150.0 +T61 108- +T61 1070 0 -4.25+6 -150.0 109- TF 20 1 6 +T7 110- +T7 1060 1.0 +T71 111- TF 20 1010 1.0 +T8 112- +T8 100 2 -1.0 +T81 113- +T81 1080 -1.0 .0 .0 114- TF 20 1011 1.0 +T9 115- +T9 100 6 -1.0+2 116- TF 20 1020 1.0 117- TF 20 1021 .01 118- TF 20 1030 1.0 +T1 119- +T1 1020 -16.0 +T11 120- +T11 1021 -15.0 +T12 121- +T12 1010 -16.0 -28.0 +T13 122- +T13 1011 -15.0 -7.0 123- TF 20 1040 1.0 +T2 124- +T2 1030 -1.0 +T21 125- +T21 1070 100.0 14.14 126- TF 20 1050 1.0 +T3 127- +T3 1040 -1.0 128- TF 20 1060 1.0 +T4 129- +T4 1050 -500.0 130- TF 20 1070 .0 .0 500.0 +T5 131- +T5 1060 -1.0 +T51 132- +T51 1 6 .0 .0 500.0 +T52 133- +T52 1 2 .0 .0 -150.0 134- TF 20 1080 8.5+4 +TX 135- +TX 1 6 -4.25+6 ENDDATA 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 10 - MODAL COMPLEX EIGENVALUE ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL P1 $ 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR5,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGGX,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 PURGE KDICT,KELM/MINUS1 $ 32 LABEL JMPKGGX $ 33 COND ERROR1,NOMGG $ 34 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 35 PURGE MDICT,MELM/MINUS1 $ 36 COND LGPWG,GRDPNT $ 37 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 38 OFP OGPWG,,,,,//S,N,CARDNO $ 39 LABEL LGPWG $ 40 EQUIV KGGX,KGG/NOGENL $ 41 COND LBL11,NOGENL $ 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 43 LABEL LBL11 $ 44 GPSTGEN KGG,SIL/GPST 45 PARAM //*MPY*/NSKIP/0/0 $ 46 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 47 OFP OGPST,,,,,//S,N,CARDNO $ 48 PARAM //*AND*/NOSR/REACT/SINGLE $ 49 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS/SINGLE/QPC/NOSR/KLR,KRR,MLR,MRR, DM,MR/REACT $ 50 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 51 COND LBL2,MPCF1 $ 52 MCE1 USET,RG/GM $ 53 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 54 LABEL LBL2 $ 55 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 56 COND LBL3,SINGLE $ 57 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 58 LABEL LBL3 $ 59 EQUIV KFF,KAA/OMIT $ 60 EQUIV MFF,MAA/OMIT $ 61 COND LBL5,OMIT $ 62 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 63 SMP2 USET,GO,MFF/MAA $ 64 LABEL LBL5 $ 65 COND LBL6,REACT $ 66 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 67 RBMG2 KLL/LLL $ 68 RBMG3 LLL,KLR,KRR/DM $ 69 RBMG4 DM,MLL,MLR,MRR/MR $ 70 LABEL LBL6 $ 71 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/ NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $ 72 COND ERROR2,NOEED $ 73 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 74 PARAM //*MPY*/NEIGV/1/-1 $ 75 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ 76 OFP OEIGS,,,,,//S,N,CARDNO $ 77 COND ERROR4,NEIGV $ 78 OFP LAMA,,,,,//S,N,CARDNO $ 79 PARAM //*ADD*/NEVER/1/0 $ 80 PARAM //*MPY*/REPEATE/1/-1 $ 82 PURGE PHIH,CLAMA,OPHIH,CPHID,CPHIP,QPC,OQPC1,OCPHIP,OESC1,OEFC1, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ 83 CASE CASECC,/CASEXX/*CEIGN*/S,N,REPEATE/S,N,NOLOOP $ 84 MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ 85 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 86 EQUIV M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $ 87 GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD, M2DD,B2DD/*CMPLEV*/*DISP*/*MODAL*/0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/-1/-1/ -1/-1 $ 88 GKAM USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/ NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $ 88 MATGPR GPLD,USETD,SILD,PHIA // C,N,H / C,N,A $ 89 CEAD KHH,BHH,MHH,EED,CASEXX/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $ 90 OFP OCEIGS,,,,,//S,N,CARDNO $ 91 COND LBL17,EIGVS $ 92 OFP CLAMA,,,,,//S,N,CARDNO $ 93 VDR CASEXX,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/ NOSORT2/S,N,NOH/S,N,NOP/FMODE $ 94 COND LBL16,NOH $ 95 OFP OPHIH,,,,,//S,N,CARDNO $ 96 LABEL LBL16 $ 97 COND LBL17,NOP $ 98 DDR1 PHIH,PHIDH/CPHID $ 99 EQUIV CPHID,CPHIP/NOA $ 100 COND LBLNOA,NOA $ 101 SDR1 USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $ 102 LABEL LBLNOA $ 103 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,CLAMA,QPC,CPHIP,EST,,,/ 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING ,OQPC1,OCPHIP,OESC1,OEFC1,,,/*CEIGEN* $ 104 OFP OCPHIP,OQPC1,OEFC1,OESC1,,//S,N,CARDNO $ 105 LABEL LBL17 $ 109 JUMP FINIS $ 110 LABEL ERROR2 $ 111 PRTPARM //-2/*MDLCEAD* $ 112 LABEL ERROR1 $ 113 PRTPARM //-1/*MDLCEAD* $ 114 LABEL ERROR4 $ 115 PRTPARM //-4/*MDLCEAD* $ 116 LABEL ERROR5 $ 117 PRTPARM //-5/*MDLCEAD* $ 118 LABEL FINIS $ 119 PURGE DUMMY/MINUS1 $ 120 END $ 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF SEQGP CARDS 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 101 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 100 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS4 ELEMENTS (ELEMENT TYPE 14) STARTING WITH ID 1001 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION MASS4 ELEMENTS (ELEMENT TYPE 28) STARTING WITH ID 2001 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONM2 ELEMENTS (ELEMENT TYPE 30) STARTING WITH ID 101 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 101 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 8.50000010D+04 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 8.50000010D+04 0.00000000D+00 0.00000000D+00 0.00000000D+00 3.95741486D+01 * * 0.00000000D+00 0.00000000D+00 8.50000010D+04 0.00000000D+00 -3.95741486D+01 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 -3.95741486D+01 0.00000000D+00 5.02525875D+08 0.00000000D+00 * * 0.00000000D+00 3.95741486D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 5.02525875D+08 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 8.500000098D+04 0.000000000D+00 0.000000000D+00 0.000000000D+00 Y 8.500000098D+04 4.655782134D-04 0.000000000D+00 0.000000000D+00 Z 8.500000098D+04 4.655782134D-04 0.000000000D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 0.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 5.025258748D+08 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 5.025258748D+08 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 0.000000000D+00 * * 5.025258748D+08 * * 5.025258748D+08 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE 0*** USER WARNING MESSAGE 3017 0 ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS. (USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION VIA A 'PARAM AUTOSPC' BULK DATA CARD) 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE G R I D P O I N T S I N G U L A R I T Y T A B L E SPC 0 MPC 101 POINT SINGULARITY LIST OF COORDINATE COMBINATIONS THAT WILL REMOVE SINGULARITY ID. TYPE ORDER STRONGEST COMBINATION WEAKER COMBINATION WEAKEST COMBINATION 101 G 1 2 101 G 1 6 100 G 1 2 100 G 1 6 19 G 1 2 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 0, EPSILON SUB E = 1.0238161E-15 5 ROOTS BELOW 2.842446E+03 4 ROOTS BELOW 1.737006E+03 6 ROOTS BELOW 4.828913E+03 3 ROOTS BELOW 5.607305E+02 7 ROOTS BELOW 1.085725E+04 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 7 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 5 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 35 0 REASON FOR TERMINATION . . . . . . . . . . . 7* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 1 OR MORE ROOT OUTSIDE FR.RANGE. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 5 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 1 0.0 0.0 0.0 1.000000E+00 0.0 2 2 0.0 0.0 0.0 1.000000E+00 0.0 3 6 7.971887E+01 8.928542E+00 1.421022E+00 1.000000E+00 7.971887E+01 4 5 5.795970E+02 2.407482E+01 3.831627E+00 1.000000E+00 5.795970E+02 5 3 1.739272E+03 4.170459E+01 6.637491E+00 1.000000E+00 1.739272E+03 6 4 4.828728E+03 6.948904E+01 1.105952E+01 1.000000E+00 4.828728E+03 7 7 1.085697E+04 1.041968E+02 1.658343E+01 1.000000E+00 1.085697E+04 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE 0 PHIA POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1- H). 1 T2 3.40661E-03 1 R3 3.47094E-18 2 T2 3.40661E-03 2 R3 3.47094E-18 3 T2 3.40661E-03 3 R3 3.29739E-18 4 T2 3.40661E-03 4 R3 3.29739E-18 5 T2 3.40661E-03 5 R3 3.12385E-18 6 T2 3.40661E-03 6 R3 2.60321E-18 7 T2 3.40661E-03 7 R3 1.56192E-18 101 T2 3.40661E-03 9 T2 3.40661E-03 9 R3 3.30933E-19 10 T2 3.40661E-03 10 R3 5.90953E-19 100 T2 3.40661E-03 100 R3 1.47738E-18 12 T2 3.40661E-03 12 R3 2.35199E-18 13 T2 3.40661E-03 13 R3 3.09659E-18 14 T2 3.40661E-03 14 R3 3.62845E-18 15 T2 3.40661E-03 15 R3 3.89438E-18 16 T2 3.40661E-03 19 T2 3.40661E-03 1001 S -4.19855E-18 1002 S -7.34025E-20 1003 S -2.81287E-19 1004 S -9.17517E-21 0COLUMN 2 ( 2- H). 1 T2 -5.12943E-03 1 R3 4.33476E-05 2 T2 -4.40697E-03 2 R3 4.33476E-05 3 T2 -3.68451E-03 3 R3 4.33476E-05 4 T2 -2.96205E-03 4 R3 4.33476E-05 5 T2 -2.23960E-03 5 R3 4.33476E-05 6 T2 -1.51714E-03 6 R3 4.33476E-05 7 T2 -7.94676E-04 7 R3 4.33476E-05 101 T2 -9.34979E-05 101 R3 4.33476E-05 9 T2 6.50242E-04 9 R3 4.33476E-05 10 T2 1.37270E-03 10 R3 4.33476E-05 100 T2 2.07388E-03 100 R3 4.33476E-05 12 T2 2.81762E-03 12 R3 4.33476E-05 13 T2 3.54008E-03 13 R3 4.33476E-05 14 T2 4.26254E-03 14 R3 4.33476E-05 15 T2 4.98500E-03 15 R3 4.33476E-05 16 T2 5.70746E-03 19 T2 7.87484E-03 1001 S -5.87829E-18 1002 S -3.24766E-19 1003 S -4.75615E-19 1004 S -4.05951E-20 0COLUMN 3 ( 3- H). 1 T2 -4.99347E-03 1 R3 7.95627E-05 2 T2 -3.66907E-03 2 R3 7.92673E-05 3 T2 -2.35692E-03 3 R3 7.79473E-05 4 T2 -1.08048E-03 4 R3 7.48897E-05 5 T2 1.27488E-04 5 R3 6.96880E-05 6 T2 1.22991E-03 6 R3 6.22294E-05 7 T2 2.19016E-03 7 R3 5.26746E-05 101 T2 2.95600E-03 101 R3 4.14279E-05 9 T2 3.56508E-03 9 R3 2.91008E-05 10 T2 3.94466E-03 10 R3 1.64667E-05 100 T2 3.92132E-03 100 R3 -2.00407E-05 12 T2 3.29407E-03 12 R3 -5.34093E-05 13 T2 2.15570E-03 13 R3 -8.23610E-05 14 T2 5.78611E-04 14 R3 -1.05929E-04 15 T2 -1.34264E-03 15 R3 -1.23627E-04 16 T2 -3.51043E-03 19 T2 -1.16033E-02 1001 S 2.64667E-04 1002 S 4.62015E-05 1003 S 1.28238E-05 1004 S 5.62328E-06 0COLUMN 4 ( 4- H). 1 T2 5.13048E-03 1 R3 -1.29009E-04 2 T2 2.99258E-03 2 R3 -1.26803E-04 3 T2 9.42525E-04 3 R3 -1.17611E-04 4 T2 -8.70157E-04 4 R3 -9.80477E-05 5 T2 -2.26777E-03 5 R3 -6.80522E-05 6 T2 -3.09560E-03 6 R3 -3.03227E-05 7 T2 -3.26119E-03 7 R3 1.05281E-05 101 T2 -2.78177E-03 101 R3 4.90331E-05 9 T2 -1.66855E-03 9 R3 8.00157E-05 10 T2 -1.53440E-04 10 R3 9.96695E-05 100 T2 1.67256E-03 100 R3 1.20042E-04 12 T2 3.64432E-03 12 R3 1.03762E-04 13 T2 5.02512E-03 13 R3 5.77644E-05 14 T2 5.46684E-03 14 R3 -6.76575E-06 15 T2 4.77183E-03 15 R3 -7.62933E-05 16 T2 2.96934E-03 19 T2 -1.24642E-02 1001 S 1.79087E-03 1002 S 2.85124E-04 1003 S 7.58856E-05 1004 S 3.34313E-05 0COLUMN 5 ( 5- H). 1 T2 -5.22129E-03 1 R3 1.76962E-04 2 T2 -2.30935E-03 2 R3 1.70225E-04 3 T2 3.44883E-04 3 R3 1.44052E-04 4 T2 2.35622E-03 4 R3 9.33734E-05 5 T2 3.35992E-03 5 R3 2.51610E-05 6 T2 3.17947E-03 6 R3 -4.58333E-05 7 T2 1.91045E-03 7 R3 -1.02732E-04 101 T2 -2.86536E-05 101 R3 -1.32400E-04 9 T2 -2.32554E-03 9 R3 -1.30147E-04 10 T2 -4.28925E-03 10 R3 -1.02218E-04 100 T2 -5.03083E-03 100 R3 1.56878E-05 12 T2 -3.82320E-03 12 R3 1.23357E-04 13 T2 -1.15833E-03 13 R3 1.86546E-04 14 T2 2.04075E-03 14 R3 1.85968E-04 15 T2 4.70531E-03 15 R3 1.25040E-04 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE 0 PHIA POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 16 T2 6.01853E-03 19 T2 -1.13698E-02 1001 S 4.15318E-03 1002 S 5.81170E-04 1003 S 1.45268E-04 1004 S 6.47650E-05 0COLUMN 6 ( 6- H). 1 T2 5.02201E-03 1 R3 -2.28247E-04 2 T2 1.31784E-03 2 R3 -2.10256E-04 3 T2 -1.73414E-03 3 R3 -1.46838E-04 4 T2 -3.34096E-03 4 R3 -4.09772E-05 5 T2 -3.06628E-03 5 R3 7.09627E-05 6 T2 -1.19681E-03 6 R3 1.43073E-04 7 T2 1.31187E-03 7 R3 1.44809E-04 101 T2 3.20597E-03 101 R3 7.69942E-05 9 T2 3.67330E-03 9 R3 -2.77290E-05 10 T2 2.38976E-03 10 R3 -1.19800E-04 100 T2 -7.64581E-04 100 R3 -2.40566E-04 12 T2 -4.60418E-03 12 R3 -1.76848E-04 13 T2 -6.08032E-03 13 R3 1.23835E-05 14 T2 -4.13207E-03 14 R3 2.12294E-04 15 T2 4.45693E-04 15 R3 3.13124E-04 16 T2 5.53485E-03 19 T2 -8.92146E-03 1001 S 6.85917E-03 1002 S 7.04730E-04 1003 S 1.46049E-04 1004 S 6.89052E-05 0COLUMN 7 ( 7- H). 1 T2 -5.49284E-03 1 R3 3.18052E-04 2 T2 -4.37790E-04 2 R3 2.73806E-04 3 T2 3.10323E-03 3 R3 1.34018E-04 4 T2 3.73722E-03 4 R3 -5.83741E-05 5 T2 1.47742E-03 5 R3 -1.93167E-04 6 T2 -1.91499E-03 6 R3 -1.86354E-04 7 T2 -3.98682E-03 7 R3 -4.49821E-05 101 T2 -3.26177E-03 101 R3 1.35869E-04 9 T2 1.18655E-04 9 R3 2.40496E-04 10 T2 4.12268E-03 10 R3 2.19340E-04 100 T2 5.53154E-03 100 R3 -6.63075E-05 12 T2 2.24659E-03 12 R3 -2.91810E-04 13 T2 -2.85405E-03 13 R3 -2.69997E-04 14 T2 -5.46088E-03 14 R3 -1.55439E-05 15 T2 -3.19606E-03 15 R3 2.70613E-04 16 T2 2.57352E-03 19 T2 -6.65810E-03 1001 S 8.12610E-03 1002 S 3.67233E-04 1003 S 1.26729E-05 1004 S 1.90941E-05 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A FLEXIBLE STRUCTURE CASE 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 3 BBAR = 4 C = 4 CBAR = 3 R = 6 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH2 (N = 14) TIME ESTIMATE = 0 SECONDS 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE C O M P L E X E I G E N V A L U E A N A L Y S I S S U M M A R Y (DETERMINANT METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 3 0 NUMBER OF PASSES THROUGH STARTING POINTS . . 2 0 NUMBER OF CRITERIA CHANGES . . . . . . . . . 0 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 39 0 NUMBER OF FAILURES TO ITERATE TO A ROOT . . 0 0 NUMBER OF PREDICTIONS OUTSIDE REGION . . . . 20 0 0 REASON FOR TERMINATION . . . . . . . . . . . 2* 0 (* EIGENVALUES OUTSIDE FREQ. RANGE SEE NASTRAN U.M. VOL II, SECTION 2.7.3) 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE C O M P L E X E I G E N V A L U E A N A L Y S I S S U M M A R Y (DETERMINANT METHOD) 0 S W E P T D E T E R M I N A N T F U N C T I O N - P - - DET(P) - STARTING POINT REAL IMAG MAGNITUDE PHASE SCALE FACTOR 1 -2.000000E+00 -6.071429E-01 7.405122E+00 359.8199 11 2 -2.000000E+00 1.785714E-01 7.411725E+00 0.0540 11 3 -2.000000E+00 9.642857E-01 7.394118E+00 0.2767 11 4 -2.000000E+00 1.750000E+00 7.352310E+00 0.4380 11 5 -2.000000E+00 2.535714E+00 7.286363E+00 0.4874 11 6 -2.000000E+00 3.321429E+00 7.196495E+00 0.3732 11 7 -2.000000E+00 4.107143E+00 7.083232E+00 0.0420 11 8 -2.000000E+00 4.892857E+00 6.947610E+00 359.4387 11 9 -2.000000E+00 5.678571E+00 6.791417E+00 358.5054 11 10 -2.000000E+00 6.464286E+00 6.617452E+00 357.1823 11 11 -2.000000E+00 7.250000E+00 6.429790E+00 355.4084 11 12 -2.000000E+00 8.035714E+00 6.233998E+00 353.1243 11 13 -2.000000E+00 8.821428E+00 6.037257E+00 350.2773 11 14 -2.000000E+00 9.607142E+00 5.848268E+00 346.8303 11 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE C O M P L E X E I G E N V A L U E S U M M A R Y 0 ROOT EXTRACTION EIGENVALUE FREQUENCY DAMPING NO. ORDER (REAL) (IMAG) (CYCLES) COEFFICIENT 1 2 -1.414853E+00 -1.312848E-19 0.0 0.0 2 1 -5.075583E-01 -8.188429E-01 1.303229E-01 1.239697E+00 3 3 5.202224E-01 3.824517E+00 6.086907E-01 -2.720461E-01 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE COMPLEX EIGENVALUE = -1.414853E+00, -1.312848E-19 (CYCLIC FREQUENCY = 2.089462E-20HZ) C O M P L E X E I G E N V E C T O R N O . 1 (SOLUTION SET) (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 M 2.999425E-01 4.516107E-01 1.076886E-02 1.554570E-03 180.0000 0.0000 0.0000 180.0000 0 1010 E 4.698019E-04 1.917380E-03 0.0000 0.0000 0 1020 E 1.788062E-21 3.828549E-19 0.0000 0.0171 0 1030 E 1.323753E-03 180.0000 0 1040 E 2.000000E-03 0.0 0 1050 E 2.000000E-03 0.0 0 1060 E 1.000000E+00 0.0 0 1070 E 4.155003E-05 180.0000 0 1080 E 5.153737E-04 0.0000 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE COMPLEX EIGENVALUE = -5.075583E-01, -8.188429E-01 (CYCLIC FREQUENCY = 1.303229E-01HZ) C O M P L E X E I G E N V E C T O R N O . 2 (SOLUTION SET) (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 M 6.302099E-01 9.488792E-01 1.080934E-02 1.520700E-03 64.0805 244.0806 359.8948 180.4131 0 1010 E 2.250608E-03 4.130849E-03 124.0834 243.5831 0 1020 E -6.103754E-22 1.061599E-18 0.0000 47.9706 0 1030 E 1.814407E-03 166.0885 0 1040 E 2.000000E-03 0.0000 0 1050 E 2.000000E-03 0.0000 0 1060 E 1.000000E+00 0.0 0 1070 E 4.047787E-05 180.4945 0 1080 E 2.191593E-03 129.0040 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE COMPLEX EIGENVALUE = 5.202224E-01, 3.824517E+00 (CYCLIC FREQUENCY = 6.086907E-01HZ) C O M P L E X E I G E N V E C T O R N O . 3 (SOLUTION SET) (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 M 3.498182E-02 5.267026E-02 1.166434E-02 1.388280E-03 16.7802 196.7803 357.8045 180.8850 0 1010 E 5.593424E-05 2.667241E-04 4.3950 194.1661 0 1020 E 6.337845E-22 2.047490E-19 0.0000 48.9835 0 1030 E 2.736893E-03 228.1013 0 1040 E 2.000000E-03 0.0000 0 1050 E 2.000000E-03 0.0000 0 1060 E 1.000000E+00 0.0 0 1070 E 3.607164E-05 181.2862 0 1080 E 4.303362E-06 48.1516 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE COMPLEX EIGENVALUE = -1.414853E+00, -1.312848E-19 (CYCLIC FREQUENCY = 2.089462E-20HZ) C O M P L E X E I G E N V E C T O R NO. 1 (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 0.0 3.400044E-03 0.0 0.0 0.0 2.063359E-05 0.0 180.0000 0.0 0.0 0.0 0.0000 0 100 G 0.0 4.557195E-05 0.0 0.0 0.0 1.917380E-05 0.0 180.0000 0.0 0.0 0.0 0.0000 0 101 G 0.0 1.027854E-03 0.0 0.0 0.0 1.994614E-05 0.0 180.0000 0.0 0.0 0.0 0.0000 0 1010 E 4.698019E-04 1.917380E-03 0.0000 0.0000 0 1020 E 0.0 3.828549E-19 0.0 0.0171 0 1030 E 1.323753E-03 180.0000 0 1040 E 2.000000E-03 0.0 0 1050 E 2.000000E-03 0.0 0 1060 E 1.000000E+00 0.0 0 1070 E 4.155003E-05 180.0000 0 1080 E 5.153737E-04 0.0000 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE COMPLEX EIGENVALUE = -5.075583E-01, -8.188429E-01 (CYCLIC FREQUENCY = 1.303229E-01HZ) C O M P L E X E I G E N V E C T O R NO. 2 (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 0.0 6.987349E-03 0.0 0.0 0.0 4.068120E-05 0.0 64.5363 0.0 0.0 0.0 245.4187 0 100 G 0.0 1.995967E-04 0.0 0.0 0.0 4.130849E-05 0.0 53.7251 0.0 0.0 0.0 243.5831 0 101 G 0.0 2.251623E-03 0.0 0.0 0.0 4.097108E-05 0.0 63.2521 0.0 0.0 0.0 244.5508 0 1010 E 2.250608E-03 4.130849E-03 124.0834 243.5831 0 1020 E 0.0 1.061599E-18 0.0 47.9706 0 1030 E 1.814407E-03 166.0885 0 1040 E 2.000000E-03 0.0000 0 1050 E 2.000000E-03 0.0000 0 1060 E 1.000000E+00 0.0 0 1070 E 4.047787E-05 180.4945 0 1080 E 2.191593E-03 129.0040 1 COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A 0 FLEXIBLE STRUCTURE CASE COMPLEX EIGENVALUE = 5.202224E-01, 3.824517E+00 (CYCLIC FREQUENCY = 6.086907E-01HZ) C O M P L E X E I G E N V E C T O R NO. 3 (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 0.0 3.280733E-04 0.0 0.0 0.0 1.282192E-06 0.0 20.4310 0.0 0.0 0.0 212.6596 0 100 G 0.0 5.290975E-05 0.0 0.0 0.0 2.667242E-06 0.0 1.1704 0.0 0.0 0.0 194.1661 0 101 G 0.0 1.608827E-04 0.0 0.0 0.0 1.896691E-06 0.0 12.4064 0.0 0.0 0.0 200.9674 0 1010 E 5.593424E-05 2.667241E-04 4.3950 194.1661 0 1020 E 0.0 2.047490E-19 0.0 48.9835 0 1030 E 2.736893E-03 228.1013 0 1040 E 2.000000E-03 0.0000 0 1050 E 2.000000E-03 0.0000 0 1060 E 1.000000E+00 0.0 0 1070 E 3.607164E-05 181.2862 0 1080 E 4.303362E-06 48.1516 * * * END OF JOB * * * 1 JOB TITLE = COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM DATE: 5/17/95 END TIME: 16:11:19 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d10021a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D10021A,NASTRAN APP AERO SOL 10,0 TIME 10 DIAG 14,18 ALTER 66 $ MATGPR GPL,USET,SIL,PHIA//C,N,FE,/C,N,A $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 3 LABEL = K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 4 ECHO = BOTH 5 SPC = 1 6 METHOD = 10 7 CMETHOD = 20 8 FMETHOD = 30 9 OUTPUT(XYOUT) 10 XTITLE = VELOCITY 11 YTTITLE = DAMPING (G) 12 YBTITLE = FREQUENCY (F) 13 TCURVE = V-G AND V-F DATA POINTS 14 CURVELINESYMBOL = -1 15 XYPAPERPLOT VG / 1(G,F) 2(G,F) 3(G,F) 4(G,F) 5(G,F) 6(G,F) 16 BEGIN BULK 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ AERO 0 1.3+4 2.0706 1.145-7 CAERO1 101 1 1 6 4 1 +CA101 +CA101 -1. -.26795 0.0 2.0706 -1. 5.45205 0.0 2.0706 CBAR 1 1 1 2 0.0 0.0 1. 1 CBAR 2 1 2 3 0.0 0.0 1. 1 CBAR 3 1 3 4 0.0 0.0 1. 1 CBAR 4 1 4 5 0.0 0.0 1. 1 CBAR 5 1 5 6 0.0 0.0 1. 1 CBAR 6 1 6 7 0.0 0.0 1. 1 CBAR 7 1 7 8 0.0 0.0 1. 1 CBAR 8 1 8 9 0.0 0.0 1. 1 CBAR 9 1 9 10 0.0 0.0 1. 1 CBAR 10 1 10 11 0.0 0.0 1. 1 CMASS2 12 2.8-6 2 5 CMASS2 13 2.8-6 3 5 CMASS2 14 2.8-6 4 5 CMASS2 15 2.8-6 5 5 CMASS2 16 2.8-6 6 5 CMASS2 17 2.8-6 7 5 CMASS2 18 2.8-6 8 5 CMASS2 19 2.8-6 9 5 CMASS2 20 2.8-6 10 5 CMASS2 21 1.4-6 11 5 CORD2R 1 0.0 0.0 0.0 0.0 0.0 1. +C1 +C1 .96593 -.25882 0.0 EIGC 20 HESS MAX +EC +EC 3 EIGR 10 GIV .3 .1 6 +ER +ER MAX FLFACT 1 .967 FLFACT 2 .45 FLFACT 3 .2 .16667 .14286 .125 .11111 .1 FLUTTER 30 KE 1 2 3 L 3 GRDSET 1 1 126 GRID 1 0.0 .0 0.0 GRID 2 0.0 .572 0.0 GRID 3 0.0 1.144 0.0 GRID 4 0.0 1.716 0.0 GRID 5 0.0 2.288 0.0 GRID 6 0.0 2.86 0.0 GRID 7 0.0 3.432 0.0 GRID 8 0.0 4.004 0.0 GRID 9 0.0 4.576 0.0 GRID 10 0.0 5.148 0.0 GRID 11 0.0 5.72 0.0 MAT1 1 10.4+6 3.9+6 2.61-4 MKAERO1 .45 +MK 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ +MK .0001 .1 .2 PAERO1 1 PARAM COUPMASS1 PARAM LMODES 3 PBAR 1 1 7.175-2 9.83-6 36.8-6 SET1 100 1 THRU 11 SPC1 1 345 1 SPLINE2 100 101 101 124 100 0.0 1. 1 +SP +SP 0.0 0.0 ENDDATA TOTAL COUNT= 56 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AERO 0 1.3+4 2.0706 1.145-7 2- CAERO1 101 1 1 6 4 1 +CA101 3- +CA101 -1. -.26795 0.0 2.0706 -1. 5.45205 0.0 2.0706 4- CBAR 1 1 1 2 0.0 0.0 1. 1 5- CBAR 2 1 2 3 0.0 0.0 1. 1 6- CBAR 3 1 3 4 0.0 0.0 1. 1 7- CBAR 4 1 4 5 0.0 0.0 1. 1 8- CBAR 5 1 5 6 0.0 0.0 1. 1 9- CBAR 6 1 6 7 0.0 0.0 1. 1 10- CBAR 7 1 7 8 0.0 0.0 1. 1 11- CBAR 8 1 8 9 0.0 0.0 1. 1 12- CBAR 9 1 9 10 0.0 0.0 1. 1 13- CBAR 10 1 10 11 0.0 0.0 1. 1 14- CMASS2 12 2.8-6 2 5 15- CMASS2 13 2.8-6 3 5 16- CMASS2 14 2.8-6 4 5 17- CMASS2 15 2.8-6 5 5 18- CMASS2 16 2.8-6 6 5 19- CMASS2 17 2.8-6 7 5 20- CMASS2 18 2.8-6 8 5 21- CMASS2 19 2.8-6 9 5 22- CMASS2 20 2.8-6 10 5 23- CMASS2 21 1.4-6 11 5 24- CORD2R 1 0.0 0.0 0.0 0.0 0.0 1. +C1 25- +C1 .96593 -.25882 0.0 26- EIGC 20 HESS MAX +EC 27- +EC 3 28- EIGR 10 GIV .3 .1 6 +ER 29- +ER MAX 30- FLFACT 1 .967 31- FLFACT 2 .45 32- FLFACT 3 .2 .16667 .14286 .125 .11111 .1 33- FLUTTER 30 KE 1 2 3 L 3 34- GRDSET 1 1 126 35- GRID 1 0.0 .0 0.0 36- GRID 2 0.0 .572 0.0 37- GRID 3 0.0 1.144 0.0 38- GRID 4 0.0 1.716 0.0 39- GRID 5 0.0 2.288 0.0 40- GRID 6 0.0 2.86 0.0 41- GRID 7 0.0 3.432 0.0 42- GRID 8 0.0 4.004 0.0 43- GRID 9 0.0 4.576 0.0 44- GRID 10 0.0 5.148 0.0 45- GRID 11 0.0 5.72 0.0 46- MAT1 1 10.4+6 3.9+6 2.61-4 47- MKAERO1 .45 +MK 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- +MK .0001 .1 .2 49- PAERO1 1 50- PARAM COUPMASS1 51- PARAM LMODES 3 52- PBAR 1 1 7.175-2 9.83-6 36.8-6 53- SET1 100 1 THRU 11 54- SPC1 1 345 1 55- SPLINE2 100 101 101 124 100 0.0 1. 1 +SP 56- +SP 0.0 0.0 ENDDATA 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN AERO 10 - MODAL FLUTTER ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/ CLAMAL=APPEND/OVG=APPEND/QHHL=APPEND/SKJ=APPEND/QHJL=APPEND/ QKHL=APPEND/ $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 COND ERROR5,NOGPDT $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 12 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 13 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 14 COND ERROR1,NOSIMP $ 15 PARAM //*ADD*/NOKGGX/1/0 $ 16 PARAM //*ADD*/NOMGG /1/0 $ 17 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PURGE KGGX/NOKGGX $ 19 COND JMPKGGX,NOKGGX $ 20 EMA GPECT,KDICT,KELM/KGGX $ 21 PURGE KDICT,KELM/MINUS1 $ 22 LABEL JMPKGGX $ 23 COND ERROR1,NOMGG $ 24 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 25 PURGE MDICT,MELM/MINUS1 $ 26 COND LGPWG,GRDPNT $ 27 GPWG BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 28 OFP OGPWG,,,,,//S,N,CARDNO $ 29 LABEL LGPWG $ 30 EQUIV KGGX,KGG/NOGENL $ 31 COND LBL11,NOGENL $ 32 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 33 LABEL LBL11 $ 34 GPSTGEN KGG,SIL/GPST $ 35 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 36 OFP OGPST,,,,,//S,N,CARDNO $ 37 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 38 PURGE GM/MPCF1/DM,MR/REACT $ 39 COND LBL2,MPCF1 $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 40 MCE1 USET,RG/GM $ 41 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 42 LABEL LBL2 $ 43 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 44 COND LBL3,SINGLE $ 45 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 46 LABEL LBL3 $ 47 EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ 48 PURGE GO/OMIT $ 49 COND LBL5,OMIT $ 50 PARAM //*PREC*/PREC $ 51 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 52 SMP2 USET,GO,MFF/MAA $ 53 LABEL LBL5 $ 54 COND LBL6,REACT $ 55 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 56 RBMG2 KLL/LLL/ $ 57 RBMG3 LLL,KLR,KRR/DM $ 58 RBMG4 DM,MLL,MLR,MRR/MR $ 59 LABEL LBL6 $ 60 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $ 61 COND ERROR2,NOEED $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 62 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 63 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ 64 OFP OEIGS,,,,,//S,N,CARDNO $ 65 COND ERROR4,NEIGV $ 66 OFP LAMA,,,,,//S,N,CARDNO $ 66 MATGPR GPL,USET,SIL,PHIA//C,N,FE,/C,N,A $ 67 MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ 68 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $ 69 GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/ *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/ NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/-1/ -1/-1 $ 70 GKAM USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH, PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $ 71 APD EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA, USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/ S,N,LUSETA/S,N,BOV $ 72 PARAM //*MPY*/PFILE/0/1 $ 73 PURGE PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $ 74 COND SKPPLT,JUMPPLOT $ 75 PARAM //*MPY*/PLTFLG/0/1 $ 76 PLTSET PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/ S,N,JUMPPLOT $ 77 PRTMSG PLTSETA // $ 78 COND SKPPLT,JUMPPLOT $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 79 PLOT PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO, ,,,,,,/PLOTX2/ NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 80 PRTMSG PLOTX2 // $ 81 LABEL SKPPLT $ 82 COND ERROR2,NOEED $ 83 GI SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/LUSET $ 84 PARAM //*ADD*/DESTRY/0/1/ $ 85 AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $ 86 COND NODJE, NODJE $ 87 INPUTT2 /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $ 88 LABEL NODJE $ 89 PARAM //*ADD*/XQHHL/1/0 $ 90 AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL, QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $ 91 PARAM //*MPY*/FLOOP/V,Y,NODJE=-1/0 $ 92 LABEL LOOPTOP $ 93 FA1 KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/ S,N,FLOOP/S,N,TSTART/S,N,NOCEAD $ 94 EQUIV KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/KXHH,PHIHL/NOCEAD/BXHH, CLAMAL/NOCEAD/CASECC,CASEYY/NOCEAD $ 95 COND VDR,NOCEAD $ 96 CEAD KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $ 97 COND LBLZAP,EIGVS $ 98 LABEL VDR $ 99 VDR CASECC,EQDYN ,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 123/S,N,NOH/S,N,NOP/FMODE $ 100 COND LBL16,NOH $ 101 OFP OPHIH,,,,,//S,N,CARDNO $ 102 LABEL LBL16 $ 103 FA2 PHIH,CLAMA,FSAVE/ PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/ C,Y,VREF=1.0/C,Y,PRINT=YES $ 104 COND CONTINUE,TSTART $ 105 LABEL LBLZAP $ 106 COND CONTINUE,FLOOP $ 107 REPT LOOPTOP,100 $ 108 JUMP ERROR3 $ 109 LABEL CONTINUE $ 110 PARAML XYCDB//*PRES*////NOXYCDB $ 111 COND NOXYOUT,NOXYCDB $ 112 XYTRAN XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO/ S,N,NOXYPL $ 113 COND NOXYOUT,NOXYPL $ 114 XYPLOT XYPLTCE// $ 115 LABEL NOXYOUT $ 116 PARAM //*AND*/PJUMP/NOP=-1/JUMPPLOT $ 117 COND FINIS,PJUMP $ 118 MODACC CASEYY,CLAMAL,PHIHL,,,/CLAMAL1,CPHIH1,CASEZZ,,/*CEIGN* $ 119 ADR CPHIH1,CASEZZ,QKHL,CLAMAL1,SPLINE,SILA,USETA/PKF/BOV/ C,Y,MACH = 0.0/*FLUTTER* $ 120 DDR1 CPHIH1,PHIDH/CPHID $ 121 EQUIV CPHID ,CPHIP/NOA $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 122 PURGE QPC/NOA $ 123 COND LBL14,NOA $ 124 SDR1 USETD,,CPHID ,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1 /*DYNAMICS* $ 125 LABEL LBL14 $ 126 EQUIV CPHID ,CPHIA/NOUE $ 127 COND LBLNOE,NOUE $ 128 VEC USETA/RP/*D*/*A*/*E* $ 129 PARTN CPHID ,,RP/CPHIA,,,/1/3 $ 130 LABEL LBLNOE $ 131 MPYAD GTKA,CPHIA,/CPHIK/1/1/0/PREC $ 132 UMERGE USETA,CPHIP,/CPHIPS/*PS*/*P*/*SA* $ 133 UMERGE USETA,CPHIPS,CPHIK/CPHIPA/*PA*/*PS*/*K* $ 134 UMERGE USETA,QPC,/QPAC/*PA*/*P*/*K* $ 135 SDR2 CASEZZ,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,CLAMAL1,QPAC,CPHIPA, EST,,,/,OQPAC1,OCPHIPA,OESC1,OEFC1,PCPHIPA,,/*CEIGN* $ 136 OFP OCPHIPA,OQPAC1,OESC1,OEFC1,,//S,N,CARDNO $ 137 COND FINIS,JUMPPLOT $ 138 PLOT PLTPARA,GPSETSA,ELSETSA,CASEZZ,BGPA,EQAERO,SILGA,,PCPHIPA,,,, /PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/S,N, PFILE $ 139 PRTMSG PLOTX3// $ 140 JUMP FINIS $ 141 LABEL ERROR3 $ 142 PRTPARM //-3/*FLUTTER* $ 143 LABEL ERROR2 $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 144 PRTPARM //-2/*FLUTTER* $ 145 LABEL ERROR1 $ 146 PRTPARM //-1/*FLUTTER* $ 147 LABEL ERROR4 $ 148 PRTPARM //-4/*FLUTTER* $ 149 LABEL ERROR5 $ 150 PRTPARM //-5/*FLUTTER* $ 151 LABEL FINIS $ 152 PURGE DUMMY/MINUS1 $ 153 END $ 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION MASS2 ELEMENTS (ELEMENT TYPE 26) STARTING WITH ID 12 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 30, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 30 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 6 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 29 6.304402E+04 2.510857E+02 3.996152E+01 2.677916E-05 1.688266E+00 2 30 2.206506E+06 1.485431E+03 2.364137E+02 1.400000E-05 3.089108E+01 3 28 2.476139E+06 1.573575E+03 2.504423E+02 2.677572E-05 6.630042E+01 4 26 1.942194E+07 4.407033E+03 7.014010E+02 1.420851E-05 2.759567E+02 5 27 1.953390E+07 4.419717E+03 7.034197E+02 1.400000E-05 2.734746E+02 6 25 5.249256E+07 7.245175E+03 1.153105E+03 1.399999E-05 7.348956E+02 7 24 7.468510E+07 8.642055E+03 1.375426E+03 0.0 0.0 8 23 9.785626E+07 9.892232E+03 1.574398E+03 0.0 0.0 9 22 1.511845E+08 1.229571E+04 1.956923E+03 0.0 0.0 10 20 2.047278E+08 1.430831E+04 2.277239E+03 0.0 0.0 11 21 2.072571E+08 1.439643E+04 2.291262E+03 0.0 0.0 12 19 2.605854E+08 1.614266E+04 2.569183E+03 0.0 0.0 13 18 3.059491E+08 1.749140E+04 2.783843E+03 0.0 0.0 14 17 3.389078E+08 1.840945E+04 2.929954E+03 0.0 0.0 15 16 3.562351E+08 1.887419E+04 3.003921E+03 0.0 0.0 16 15 4.594797E+08 2.143548E+04 3.411562E+03 0.0 0.0 17 14 9.045066E+08 3.007502E+04 4.786587E+03 0.0 0.0 18 13 1.623464E+09 4.029223E+04 6.412708E+03 0.0 0.0 19 12 2.714134E+09 5.209736E+04 8.291552E+03 0.0 0.0 20 11 4.194444E+09 6.476452E+04 1.030759E+04 0.0 0.0 21 10 7.430217E+09 8.619871E+04 1.371895E+04 0.0 0.0 22 9 1.084491E+10 1.041389E+05 1.657422E+04 0.0 0.0 23 8 1.593668E+10 1.262406E+05 2.009181E+04 0.0 0.0 24 7 2.321477E+10 1.523639E+05 2.424947E+04 0.0 0.0 25 6 3.352112E+10 1.830877E+05 2.913932E+04 0.0 0.0 26 5 4.794975E+10 2.189743E+05 3.485085E+04 0.0 0.0 27 4 6.754208E+10 2.598886E+05 4.136255E+04 0.0 0.0 28 3 9.205609E+10 3.034075E+05 4.828880E+04 0.0 0.0 29 2 1.167387E+11 3.416705E+05 5.437855E+04 0.0 0.0 30 1 1.828392E+11 4.275971E+05 6.805419E+04 0.0 0.0 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 PHIA POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1- H). 2 T3 1.67735E-02 2 R1 5.72388E-02 2 R2 3.01054E-09 3 T3 6.38710E-02 3 R1 1.06035E-01 3 R2 3.03284E-09 4 T3 1.36483E-01 4 R1 1.46474E-01 4 R2 -7.48494E-09 5 T3 2.29884E-01 5 R1 1.78774E-01 5 R2 -8.72457E-09 6 T3 3.39523E-01 6 R1 2.03331E-01 6 R2 3.99158E-09 7 T3 4.61135E-01 7 R1 2.20760E-01 7 R2 7.35782E-11 8 T3 5.90876E-01 8 R1 2.31925E-01 8 R2 -3.15805E-10 9 T3 7.25478E-01 9 R1 2.37964E-01 9 R2 2.17289E-10 10 T3 8.62400E-01 10 R1 2.40300E-01 10 R2 5.58286E-10 11 T3 1.00000E+00 11 R1 2.40648E-01 11 R2 4.86563E-10 0COLUMN 2 ( 2- H). 2 T3 -7.46044E-09 2 R1 -1.88336E-08 2 R2 1.56434E-01 3 T3 -2.28561E-08 3 R1 -2.59106E-08 3 R2 3.09017E-01 4 T3 -2.58240E-08 4 R1 -2.26935E-08 4 R2 4.53990E-01 5 T3 -5.68907E-08 5 R1 -2.57682E-08 5 R2 5.87785E-01 6 T3 -7.27691E-08 6 R1 -2.17948E-09 6 R2 7.07107E-01 7 T3 -2.14620E-08 7 R1 2.90025E-08 7 R2 8.09017E-01 8 T3 -5.17652E-08 8 R1 4.09725E-08 8 R2 8.91007E-01 9 T3 -2.56568E-08 9 R1 5.40314E-08 9 R2 9.51057E-01 10 T3 1.10070E-07 10 R1 6.21463E-08 10 R2 9.87688E-01 11 T3 2.13897E-08 11 R1 6.16105E-08 11 R2 1.00000E+00 0COLUMN 3 ( 3- H). 2 T3 -9.26293E-02 2 R1 -2.93280E-01 2 R2 -3.47704E-08 3 T3 -3.01055E-01 3 R1 -4.06302E-01 3 R2 -6.19249E-08 4 T3 -5.26133E-01 4 R1 -3.55778E-01 4 R2 -4.46378E-08 5 T3 -6.83470E-01 5 R1 -1.76822E-01 5 R2 -7.01620E-08 6 T3 -7.13666E-01 6 R1 7.92204E-02 6 R2 -1.22805E-07 7 T3 -5.89476E-01 7 R1 3.53042E-01 7 R2 -1.26697E-07 8 T3 -3.17052E-01 8 R1 5.89324E-01 8 R2 -1.45986E-07 9 T3 7.00358E-02 9 R1 7.49587E-01 9 R2 -1.52911E-07 10 T3 5.23752E-01 10 R1 8.23344E-01 10 R2 -1.56358E-07 11 T3 1.00000E+00 11 R1 8.35801E-01 11 R2 -1.61307E-07 0COLUMN 4 ( 4- H). 2 T3 1.66212E-01 2 R1 4.79761E-01 2 R2 -3.32192E-07 3 T3 4.40551E-01 3 R1 3.97278E-01 3 R2 -5.90702E-07 4 T3 5.51134E-01 4 R1 -4.52344E-02 4 R2 -7.67610E-07 5 T3 3.83288E-01 5 R1 -5.17263E-01 5 R2 -7.29061E-07 6 T3 1.43548E-02 6 R1 -7.07374E-01 6 R2 -5.46079E-07 7 T3 -3.45266E-01 7 R1 -4.83040E-01 7 R2 -2.34486E-07 8 T3 -4.79119E-01 8 R1 4.54486E-02 8 R2 1.04545E-07 9 T3 -2.87782E-01 9 R1 6.03327E-01 9 R2 4.31755E-07 10 T3 1.66523E-01 10 R1 9.34987E-01 10 R2 6.64389E-07 11 T3 7.28774E-01 11 R1 1.00000E+00 11 R2 7.29213E-07 0COLUMN 5 ( 5- H). 2 T3 -1.21821E-07 2 R1 -3.61570E-07 2 R2 -4.53991E-01 3 T3 -3.24342E-07 3 R1 -3.01407E-07 3 R2 -8.09017E-01 4 T3 -4.35062E-07 4 R1 3.05368E-08 4 R2 -9.87688E-01 5 T3 -2.76111E-07 5 R1 3.94483E-07 5 R2 -9.51057E-01 6 T3 8.62920E-09 6 R1 5.18704E-07 6 R2 -7.07107E-01 7 T3 2.43395E-07 7 R1 3.57616E-07 7 R2 -3.09017E-01 8 T3 3.43037E-07 8 R1 -4.78102E-08 8 R2 1.56435E-01 9 T3 1.93511E-07 9 R1 -4.58635E-07 9 R2 5.87786E-01 10 T3 -6.62254E-08 10 R1 -6.86214E-07 10 R2 8.91007E-01 11 T3 -6.01408E-07 11 R1 -7.47646E-07 11 R2 1.00000E+00 0COLUMN 6 ( 6- H). 2 T3 2.18324E-09 2 R1 1.29194E-08 2 R2 7.07107E-01 3 T3 3.18404E-09 3 R1 2.75766E-09 3 R2 1.00000E+00 4 T3 1.93508E-08 4 R1 -2.43256E-08 4 R2 7.07107E-01 5 T3 -3.49928E-09 5 R1 -7.19701E-09 5 R2 -4.07056E-07 6 T3 2.49600E-10 6 R1 7.66200E-09 6 R2 -7.07107E-01 7 T3 -4.19797E-08 7 R1 1.57023E-08 7 R2 -1.00000E+00 8 T3 1.80972E-08 8 R1 9.91273E-09 8 R2 -7.07106E-01 9 T3 1.56192E-08 9 R1 -2.44623E-08 9 R2 4.28747E-07 10 T3 4.15805E-08 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 PHIA POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 10 R1 -1.38289E-08 10 R2 7.07106E-01 11 T3 -8.64965E-08 11 R1 -5.46747E-08 11 R2 9.99999E-01 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0*** USER INFORMATION MESSAGE 3028 B = 12 BBAR = 3 C = 13 CBAR = 20 R = 14 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 24) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 12 BBAR = 3 C = 13 CBAR = 20 R = 14 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 24) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 12 BBAR = 3 C = 13 CBAR = 20 R = 14 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 24) TIME ESTIMATE = 0 SECONDS 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 FLUTTER SUMMARY POINT = 1 MACH NUMBER = 0.4500 DENSITY RATIO = 9.6700E-01 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.2000 5.0000000E+00 1.2874204E+03 3.0572996E-02 3.9582600E+01 1.9680149E+01 1.2874204E+03 0.1667 5.9998803E+00 1.6037177E+03 -7.3209979E-02 4.1090294E+01 -5.8704067E+01 1.6037177E+03 0.1429 6.9998603E+00 1.8892721E+03 -8.6503170E-02 4.1491489E+01 -8.1714012E+01 1.8892721E+03 0.1250 8.0000000E+00 2.1841025E+03 -1.0020997E-01 4.1969803E+01 -1.0943443E+02 2.1841025E+03 0.1111 9.0000896E+00 1.9975132E+03 -1.0382280E+01 3.4119034E+01 -1.0369371E+04 1.9975132E+03 0.1000 1.0000000E+01 1.7181267E+03 -1.1323216E+01 2.6412474E+01 -9.7273604E+03 1.7181267E+03 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 FLUTTER SUMMARY POINT = 2 MACH NUMBER = 0.4500 DENSITY RATIO = 9.6700E-01 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.2000 5.0000000E+00 6.9128677E+03 1.0722351E-01 2.1254073E+02 3.7061096E+02 6.9128677E+03 0.1667 5.9998803E+00 9.8083525E+03 5.8240853E-02 2.5130862E+02 2.8562341E+02 9.8083525E+03 0.1429 6.9998603E+00 4.1483218E+03 -6.3117208E+00 9.1103897E+01 -1.3091524E+04 4.1483218E+03 0.1250 8.0000000E+00 2.5764182E+03 -8.8236256E+00 4.9508556E+01 -1.1366675E+04 2.5764182E+03 0.1111 9.0000896E+00 2.4901931E+03 -1.1443459E-01 4.2534378E+01 -1.4248212E+02 2.4901931E+03 0.1000 1.0000000E+01 2.8099954E+03 -1.2936074E-01 4.3197590E+01 -1.8175154E+02 2.8099954E+03 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 FLUTTER SUMMARY POINT = 3 MACH NUMBER = 0.4500 DENSITY RATIO = 9.6700E-01 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.2000 5.0000000E+00 8.1558384E+03 -1.0921552E-02 2.5075668E+02 -4.4537205E+01 8.1558384E+03 0.1667 5.9998803E+00 1.0555138E+04 -2.7270651E+00 2.7044269E+02 -1.4392273E+04 1.0555138E+04 0.1429 6.9998603E+00 1.1285730E+04 8.4197670E-02 2.4785301E+02 4.7511609E+02 1.1285730E+04 0.1250 8.0000000E+00 1.2570811E+04 1.1620019E-01 2.4156120E+02 7.3036530E+02 1.2570811E+04 0.1111 9.0000896E+00 1.3588004E+04 1.5205432E-01 2.3209337E+02 1.0330574E+03 1.3588004E+04 0.1000 1.0000000E+01 1.4283637E+04 1.8880093E-01 2.1957996E+02 1.3483820E+03 1.4283637E+04 0*** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID 4 - VG - CURVE IS BEING PASSED OVER. THE ID COULD NOT BE FOUND IN DATA BLOCK 102 0*** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID 5 - VG - CURVE IS BEING PASSED OVER. THE ID COULD NOT BE FOUND IN DATA BLOCK 102 0*** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID 6 - VG - CURVE IS BEING PASSED OVER. THE ID COULD NOT BE FOUND IN DATA BLOCK 102 1 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 0 0 F R A M E **** **** **** **** ** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** **** 0 V-G AND V-F DATA POINTS 0 X-AXIS TITLE = VELOCITY 0 +---------------------------------------------------------+ +---------------------------------------------------------+ I I I I I FREQUENCY (F) I I DAMPING (G) I I I I I I 0.000000E+00 1.500000E+02 3.000000E+02 I I -1.200000E+01 -5.000000E+00 2.000000E+00 I +---------------------------------------------------------+ +---------------------------------------------------------+ 0.0000E+00 I I I I I I 2.9630E+02 I I I I I I 5.9259E+02 I I I I I I 8.8889E+02 I I I I I I 1.1852E+03 I * I I I I * I 1.4815E+03 I * I I I I * I 1.7778E+03 I * * I I I * I * I 2.0741E+03 I ** I I I * I * I 2.3704E+03 I 0 I I I I 0 I 2.6667E+03 I 0 0 I I I 0 I 0 I 2.9630E+03 I I I I I I 3.2593E+03 I I I I I I 3.5556E+03 I I I I I I 3.8519E+03 I I I I I I 4.1481E+03 I 0 I I I 0 I I 4.4444E+03 I I I I I I 4.7407E+03 I I I I I I 5.0370E+03 I I I I I I 5.3333E+03 I I I I I I 5.6296E+03 I I I I I I 5.9259E+03 I I I I I I 6.2222E+03 I I I I I I 6.5185E+03 I I I I I I 6.8148E+03 I I 0 I I I 0 I 7.1111E+03 I I I I I I 7.4074E+03 I I I I I I 7.7037E+03 I I I I I I 8.0000E+03 I I I I I I 8.2963E+03 I I A I I I A I 8.5926E+03 I I I I I I 1 8.8889E+03 I I I I I I 9.1852E+03 I I I I I I 9.4815E+03 I I I I I I 9.7778E+03 I I 0 I I I 0 I 1.0074E+04 I I I I I I 1.0370E+04 I I I I I I 1.0667E+04 I I A I I I A I 1.0963E+04 I I I I I I 1.1259E+04 I I A I I I A I 1.1556E+04 I I I I I I 1.1852E+04 I I I I I I 1.2148E+04 I I I I I I 1.2444E+04 I I A I I I A I 1.2741E+04 I I I I I I 1.3037E+04 I I I I I I 1.3333E+04 I I I I I I 1.3630E+04 I I A I I I A I 1.3926E+04 I I I I I I 1.4222E+04 I I A I I I A I 1.4519E+04 I I I I I I 1.4815E+04 I I I I I I 1.5111E+04 I I I I I I 1.5407E+04 I I I I I I 1.5704E+04 I I I I I I 1.6000E+04 I I I I I I +---------------------------------------------------------+ +---------------------------------------------------------+ 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GOD MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GMD MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK PLTPARA MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPSETSA MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ELSETSA MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. * * * END OF JOB * * * 1 JOB TITLE = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING DATE: 5/17/95 END TIME: 16:12: 6 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d10022a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D10022A,NASTRAN APP AERO SOL 10,0 TIME 10 DIAG 14,18 ALTER 66 $ MATGPR GPL,USET,SIL,PHIA//C,N,FE/C,N,A $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 3 LABEL = K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 4 ECHO = BOTH 5 SPC = 1 6 METHOD = 10 7 CMETHOD = 20 8 FMETHOD = 30 9 OUTPUT(XYOUT) 10 XTITLE = VELOCITY 11 YTTITLE = DAMPING (G) 12 YBTITLE = FREQUENCY (F) 13 TCURVE = V-G AND V-F DATA POINTS 14 CURVELINESYMBOL = -1 15 XYPAPERPLOT VG / 1(G,F) 2(G,F) 3(G,F) 4(G,F) 5(G,F) 6(G,F) 16 BEGIN BULK 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ AERO 0 1.3+4 2.0706 1.145-7 CAERO1 101 1 1 6 4 1 +CA101 +CA101 -1. -.26795 0.0 2.0706 -1. 5.45205 0.0 2.0706 CBAR 1 1 1 2 0.0 0.0 1. 1 CBAR 2 1 2 3 0.0 0.0 1. 1 CBAR 3 1 3 4 0.0 0.0 1. 1 CBAR 4 1 4 5 0.0 0.0 1. 1 CBAR 5 1 5 6 0.0 0.0 1. 1 CBAR 6 1 6 7 0.0 0.0 1. 1 CBAR 7 1 7 8 0.0 0.0 1. 1 CBAR 8 1 8 9 0.0 0.0 1. 1 CBAR 9 1 9 10 0.0 0.0 1. 1 CBAR 10 1 10 11 0.0 0.0 1. 1 CMASS2 12 2.8-6 2 5 CMASS2 13 2.8-6 3 5 CMASS2 14 2.8-6 4 5 CMASS2 15 2.8-6 5 5 CMASS2 16 2.8-6 6 5 CMASS2 17 2.8-6 7 5 CMASS2 18 2.8-6 8 5 CMASS2 19 2.8-6 9 5 CMASS2 20 2.8-6 10 5 CMASS2 21 1.4-6 11 5 CORD2R 1 0.0 0.0 0.0 0.0 0.0 1. +C1 +C1 .96593 -.25882 0.0 EIGC 20 HESS MAX +EC +EC 3 EIGR 10 GIV .3 .1 6 +ER +ER MAX FLFACT 1 .967 FLFACT 2 .45 FLFACT 3 .2 .16667 .14286 .125 .11111 .1 FLUTTER 30 K 1 2 3 L 3 GRDSET 1 1 126 GRID 1 0.0 .0 0.0 GRID 2 0.0 .572 0.0 GRID 3 0.0 1.144 0.0 GRID 4 0.0 1.716 0.0 GRID 5 0.0 2.288 0.0 GRID 6 0.0 2.86 0.0 GRID 7 0.0 3.432 0.0 GRID 8 0.0 4.004 0.0 GRID 9 0.0 4.576 0.0 GRID 10 0.0 5.148 0.0 GRID 11 0.0 5.72 0.0 MAT1 1 10.4+6 3.9+6 2.61-4 MKAERO1 .45 +MK 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ +MK .0001 .1 .2 PAERO1 1 PARAM COUPMASS1 PARAM LMODES 3 PBAR 1 1 7.175-2 9.83-6 36.8-6 SET1 100 1 THRU 11 SPC1 1 345 1 SPLINE2 100 101 101 124 100 0.0 1. 1 +SP +SP 0.0 0.0 ENDDATA TOTAL COUNT= 56 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AERO 0 1.3+4 2.0706 1.145-7 2- CAERO1 101 1 1 6 4 1 +CA101 3- +CA101 -1. -.26795 0.0 2.0706 -1. 5.45205 0.0 2.0706 4- CBAR 1 1 1 2 0.0 0.0 1. 1 5- CBAR 2 1 2 3 0.0 0.0 1. 1 6- CBAR 3 1 3 4 0.0 0.0 1. 1 7- CBAR 4 1 4 5 0.0 0.0 1. 1 8- CBAR 5 1 5 6 0.0 0.0 1. 1 9- CBAR 6 1 6 7 0.0 0.0 1. 1 10- CBAR 7 1 7 8 0.0 0.0 1. 1 11- CBAR 8 1 8 9 0.0 0.0 1. 1 12- CBAR 9 1 9 10 0.0 0.0 1. 1 13- CBAR 10 1 10 11 0.0 0.0 1. 1 14- CMASS2 12 2.8-6 2 5 15- CMASS2 13 2.8-6 3 5 16- CMASS2 14 2.8-6 4 5 17- CMASS2 15 2.8-6 5 5 18- CMASS2 16 2.8-6 6 5 19- CMASS2 17 2.8-6 7 5 20- CMASS2 18 2.8-6 8 5 21- CMASS2 19 2.8-6 9 5 22- CMASS2 20 2.8-6 10 5 23- CMASS2 21 1.4-6 11 5 24- CORD2R 1 0.0 0.0 0.0 0.0 0.0 1. +C1 25- +C1 .96593 -.25882 0.0 26- EIGC 20 HESS MAX +EC 27- +EC 3 28- EIGR 10 GIV .3 .1 6 +ER 29- +ER MAX 30- FLFACT 1 .967 31- FLFACT 2 .45 32- FLFACT 3 .2 .16667 .14286 .125 .11111 .1 33- FLUTTER 30 K 1 2 3 L 3 34- GRDSET 1 1 126 35- GRID 1 0.0 .0 0.0 36- GRID 2 0.0 .572 0.0 37- GRID 3 0.0 1.144 0.0 38- GRID 4 0.0 1.716 0.0 39- GRID 5 0.0 2.288 0.0 40- GRID 6 0.0 2.86 0.0 41- GRID 7 0.0 3.432 0.0 42- GRID 8 0.0 4.004 0.0 43- GRID 9 0.0 4.576 0.0 44- GRID 10 0.0 5.148 0.0 45- GRID 11 0.0 5.72 0.0 46- MAT1 1 10.4+6 3.9+6 2.61-4 47- MKAERO1 .45 +MK 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- +MK .0001 .1 .2 49- PAERO1 1 50- PARAM COUPMASS1 51- PARAM LMODES 3 52- PBAR 1 1 7.175-2 9.83-6 36.8-6 53- SET1 100 1 THRU 11 54- SPC1 1 345 1 55- SPLINE2 100 101 101 124 100 0.0 1. 1 +SP 56- +SP 0.0 0.0 ENDDATA 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN AERO 10 - MODAL FLUTTER ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/ CLAMAL=APPEND/OVG=APPEND/QHHL=APPEND/SKJ=APPEND/QHJL=APPEND/ QKHL=APPEND/ $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 COND ERROR5,NOGPDT $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 12 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 13 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 14 COND ERROR1,NOSIMP $ 15 PARAM //*ADD*/NOKGGX/1/0 $ 16 PARAM //*ADD*/NOMGG /1/0 $ 17 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PURGE KGGX/NOKGGX $ 19 COND JMPKGGX,NOKGGX $ 20 EMA GPECT,KDICT,KELM/KGGX $ 21 PURGE KDICT,KELM/MINUS1 $ 22 LABEL JMPKGGX $ 23 COND ERROR1,NOMGG $ 24 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 25 PURGE MDICT,MELM/MINUS1 $ 26 COND LGPWG,GRDPNT $ 27 GPWG BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 28 OFP OGPWG,,,,,//S,N,CARDNO $ 29 LABEL LGPWG $ 30 EQUIV KGGX,KGG/NOGENL $ 31 COND LBL11,NOGENL $ 32 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 33 LABEL LBL11 $ 34 GPSTGEN KGG,SIL/GPST $ 35 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 36 OFP OGPST,,,,,//S,N,CARDNO $ 37 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 38 PURGE GM/MPCF1/DM,MR/REACT $ 39 COND LBL2,MPCF1 $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 40 MCE1 USET,RG/GM $ 41 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 42 LABEL LBL2 $ 43 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 44 COND LBL3,SINGLE $ 45 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 46 LABEL LBL3 $ 47 EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ 48 PURGE GO/OMIT $ 49 COND LBL5,OMIT $ 50 PARAM //*PREC*/PREC $ 51 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 52 SMP2 USET,GO,MFF/MAA $ 53 LABEL LBL5 $ 54 COND LBL6,REACT $ 55 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 56 RBMG2 KLL/LLL/ $ 57 RBMG3 LLL,KLR,KRR/DM $ 58 RBMG4 DM,MLL,MLR,MRR/MR $ 59 LABEL LBL6 $ 60 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $ 61 COND ERROR2,NOEED $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 62 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 63 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ 64 OFP OEIGS,,,,,//S,N,CARDNO $ 65 COND ERROR4,NEIGV $ 66 OFP LAMA,,,,,//S,N,CARDNO $ 66 MATGPR GPL,USET,SIL,PHIA//C,N,FE/C,N,A $ 67 MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ 68 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $ 69 GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/ *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/ NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/-1/ -1/-1 $ 70 GKAM USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH, PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $ 71 APD EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA, USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/ S,N,LUSETA/S,N,BOV $ 72 PARAM //*MPY*/PFILE/0/1 $ 73 PURGE PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $ 74 COND SKPPLT,JUMPPLOT $ 75 PARAM //*MPY*/PLTFLG/0/1 $ 76 PLTSET PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/ S,N,JUMPPLOT $ 77 PRTMSG PLTSETA // $ 78 COND SKPPLT,JUMPPLOT $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 79 PLOT PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO, ,,,,,,/PLOTX2/ NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 80 PRTMSG PLOTX2 // $ 81 LABEL SKPPLT $ 82 COND ERROR2,NOEED $ 83 GI SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/LUSET $ 84 PARAM //*ADD*/DESTRY/0/1/ $ 85 AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $ 86 COND NODJE, NODJE $ 87 INPUTT2 /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $ 88 LABEL NODJE $ 89 PARAM //*ADD*/XQHHL/1/0 $ 90 AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL, QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $ 91 PARAM //*MPY*/FLOOP/V,Y,NODJE=-1/0 $ 92 LABEL LOOPTOP $ 93 FA1 KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/ S,N,FLOOP/S,N,TSTART/S,N,NOCEAD $ 94 EQUIV KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/KXHH,PHIHL/NOCEAD/BXHH, CLAMAL/NOCEAD/CASECC,CASEYY/NOCEAD $ 95 COND VDR,NOCEAD $ 96 CEAD KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $ 97 COND LBLZAP,EIGVS $ 98 LABEL VDR $ 99 VDR CASECC,EQDYN ,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 123/S,N,NOH/S,N,NOP/FMODE $ 100 COND LBL16,NOH $ 101 OFP OPHIH,,,,,//S,N,CARDNO $ 102 LABEL LBL16 $ 103 FA2 PHIH,CLAMA,FSAVE/ PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/ C,Y,VREF=1.0/C,Y,PRINT=YES $ 104 COND CONTINUE,TSTART $ 105 LABEL LBLZAP $ 106 COND CONTINUE,FLOOP $ 107 REPT LOOPTOP,100 $ 108 JUMP ERROR3 $ 109 LABEL CONTINUE $ 110 PARAML XYCDB//*PRES*////NOXYCDB $ 111 COND NOXYOUT,NOXYCDB $ 112 XYTRAN XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO/ S,N,NOXYPL $ 113 COND NOXYOUT,NOXYPL $ 114 XYPLOT XYPLTCE// $ 115 LABEL NOXYOUT $ 116 PARAM //*AND*/PJUMP/NOP=-1/JUMPPLOT $ 117 COND FINIS,PJUMP $ 118 MODACC CASEYY,CLAMAL,PHIHL,,,/CLAMAL1,CPHIH1,CASEZZ,,/*CEIGN* $ 119 ADR CPHIH1,CASEZZ,QKHL,CLAMAL1,SPLINE,SILA,USETA/PKF/BOV/ C,Y,MACH = 0.0/*FLUTTER* $ 120 DDR1 CPHIH1,PHIDH/CPHID $ 121 EQUIV CPHID ,CPHIP/NOA $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 122 PURGE QPC/NOA $ 123 COND LBL14,NOA $ 124 SDR1 USETD,,CPHID ,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1 /*DYNAMICS* $ 125 LABEL LBL14 $ 126 EQUIV CPHID ,CPHIA/NOUE $ 127 COND LBLNOE,NOUE $ 128 VEC USETA/RP/*D*/*A*/*E* $ 129 PARTN CPHID ,,RP/CPHIA,,,/1/3 $ 130 LABEL LBLNOE $ 131 MPYAD GTKA,CPHIA,/CPHIK/1/1/0/PREC $ 132 UMERGE USETA,CPHIP,/CPHIPS/*PS*/*P*/*SA* $ 133 UMERGE USETA,CPHIPS,CPHIK/CPHIPA/*PA*/*PS*/*K* $ 134 UMERGE USETA,QPC,/QPAC/*PA*/*P*/*K* $ 135 SDR2 CASEZZ,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,CLAMAL1,QPAC,CPHIPA, EST,,,/,OQPAC1,OCPHIPA,OESC1,OEFC1,PCPHIPA,,/*CEIGN* $ 136 OFP OCPHIPA,OQPAC1,OESC1,OEFC1,,//S,N,CARDNO $ 137 COND FINIS,JUMPPLOT $ 138 PLOT PLTPARA,GPSETSA,ELSETSA,CASEZZ,BGPA,EQAERO,SILGA,,PCPHIPA,,,, /PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/S,N, PFILE $ 139 PRTMSG PLOTX3// $ 140 JUMP FINIS $ 141 LABEL ERROR3 $ 142 PRTPARM //-3/*FLUTTER* $ 143 LABEL ERROR2 $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 144 PRTPARM //-2/*FLUTTER* $ 145 LABEL ERROR1 $ 146 PRTPARM //-1/*FLUTTER* $ 147 LABEL ERROR4 $ 148 PRTPARM //-4/*FLUTTER* $ 149 LABEL ERROR5 $ 150 PRTPARM //-5/*FLUTTER* $ 151 LABEL FINIS $ 152 PURGE DUMMY/MINUS1 $ 153 END $ 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION MASS2 ELEMENTS (ELEMENT TYPE 26) STARTING WITH ID 12 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 30, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 30 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 6 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 29 6.304402E+04 2.510857E+02 3.996152E+01 2.677916E-05 1.688266E+00 2 30 2.206506E+06 1.485431E+03 2.364137E+02 1.400000E-05 3.089108E+01 3 28 2.476139E+06 1.573575E+03 2.504423E+02 2.677572E-05 6.630042E+01 4 26 1.942194E+07 4.407033E+03 7.014010E+02 1.420851E-05 2.759567E+02 5 27 1.953390E+07 4.419717E+03 7.034197E+02 1.400000E-05 2.734746E+02 6 25 5.249256E+07 7.245175E+03 1.153105E+03 1.399999E-05 7.348956E+02 7 24 7.468510E+07 8.642055E+03 1.375426E+03 0.0 0.0 8 23 9.785626E+07 9.892232E+03 1.574398E+03 0.0 0.0 9 22 1.511845E+08 1.229571E+04 1.956923E+03 0.0 0.0 10 20 2.047278E+08 1.430831E+04 2.277239E+03 0.0 0.0 11 21 2.072571E+08 1.439643E+04 2.291262E+03 0.0 0.0 12 19 2.605854E+08 1.614266E+04 2.569183E+03 0.0 0.0 13 18 3.059491E+08 1.749140E+04 2.783843E+03 0.0 0.0 14 17 3.389078E+08 1.840945E+04 2.929954E+03 0.0 0.0 15 16 3.562351E+08 1.887419E+04 3.003921E+03 0.0 0.0 16 15 4.594797E+08 2.143548E+04 3.411562E+03 0.0 0.0 17 14 9.045066E+08 3.007502E+04 4.786587E+03 0.0 0.0 18 13 1.623464E+09 4.029223E+04 6.412708E+03 0.0 0.0 19 12 2.714134E+09 5.209736E+04 8.291552E+03 0.0 0.0 20 11 4.194444E+09 6.476452E+04 1.030759E+04 0.0 0.0 21 10 7.430217E+09 8.619871E+04 1.371895E+04 0.0 0.0 22 9 1.084491E+10 1.041389E+05 1.657422E+04 0.0 0.0 23 8 1.593668E+10 1.262406E+05 2.009181E+04 0.0 0.0 24 7 2.321477E+10 1.523639E+05 2.424947E+04 0.0 0.0 25 6 3.352112E+10 1.830877E+05 2.913932E+04 0.0 0.0 26 5 4.794975E+10 2.189743E+05 3.485085E+04 0.0 0.0 27 4 6.754208E+10 2.598886E+05 4.136255E+04 0.0 0.0 28 3 9.205609E+10 3.034075E+05 4.828880E+04 0.0 0.0 29 2 1.167387E+11 3.416705E+05 5.437855E+04 0.0 0.0 30 1 1.828392E+11 4.275971E+05 6.805419E+04 0.0 0.0 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 PHIA POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1- H). 2 T3 1.67735E-02 2 R1 5.72388E-02 2 R2 3.01054E-09 3 T3 6.38710E-02 3 R1 1.06035E-01 3 R2 3.03284E-09 4 T3 1.36483E-01 4 R1 1.46474E-01 4 R2 -7.48494E-09 5 T3 2.29884E-01 5 R1 1.78774E-01 5 R2 -8.72457E-09 6 T3 3.39523E-01 6 R1 2.03331E-01 6 R2 3.99158E-09 7 T3 4.61135E-01 7 R1 2.20760E-01 7 R2 7.35782E-11 8 T3 5.90876E-01 8 R1 2.31925E-01 8 R2 -3.15805E-10 9 T3 7.25478E-01 9 R1 2.37964E-01 9 R2 2.17289E-10 10 T3 8.62400E-01 10 R1 2.40300E-01 10 R2 5.58286E-10 11 T3 1.00000E+00 11 R1 2.40648E-01 11 R2 4.86563E-10 0COLUMN 2 ( 2- H). 2 T3 -7.46044E-09 2 R1 -1.88336E-08 2 R2 1.56434E-01 3 T3 -2.28561E-08 3 R1 -2.59106E-08 3 R2 3.09017E-01 4 T3 -2.58240E-08 4 R1 -2.26935E-08 4 R2 4.53990E-01 5 T3 -5.68907E-08 5 R1 -2.57682E-08 5 R2 5.87785E-01 6 T3 -7.27691E-08 6 R1 -2.17948E-09 6 R2 7.07107E-01 7 T3 -2.14620E-08 7 R1 2.90025E-08 7 R2 8.09017E-01 8 T3 -5.17652E-08 8 R1 4.09725E-08 8 R2 8.91007E-01 9 T3 -2.56568E-08 9 R1 5.40314E-08 9 R2 9.51057E-01 10 T3 1.10070E-07 10 R1 6.21463E-08 10 R2 9.87688E-01 11 T3 2.13897E-08 11 R1 6.16105E-08 11 R2 1.00000E+00 0COLUMN 3 ( 3- H). 2 T3 -9.26293E-02 2 R1 -2.93280E-01 2 R2 -3.47704E-08 3 T3 -3.01055E-01 3 R1 -4.06302E-01 3 R2 -6.19249E-08 4 T3 -5.26133E-01 4 R1 -3.55778E-01 4 R2 -4.46378E-08 5 T3 -6.83470E-01 5 R1 -1.76822E-01 5 R2 -7.01620E-08 6 T3 -7.13666E-01 6 R1 7.92204E-02 6 R2 -1.22805E-07 7 T3 -5.89476E-01 7 R1 3.53042E-01 7 R2 -1.26697E-07 8 T3 -3.17052E-01 8 R1 5.89324E-01 8 R2 -1.45986E-07 9 T3 7.00358E-02 9 R1 7.49587E-01 9 R2 -1.52911E-07 10 T3 5.23752E-01 10 R1 8.23344E-01 10 R2 -1.56358E-07 11 T3 1.00000E+00 11 R1 8.35801E-01 11 R2 -1.61307E-07 0COLUMN 4 ( 4- H). 2 T3 1.66212E-01 2 R1 4.79761E-01 2 R2 -3.32192E-07 3 T3 4.40551E-01 3 R1 3.97278E-01 3 R2 -5.90702E-07 4 T3 5.51134E-01 4 R1 -4.52344E-02 4 R2 -7.67610E-07 5 T3 3.83288E-01 5 R1 -5.17263E-01 5 R2 -7.29061E-07 6 T3 1.43548E-02 6 R1 -7.07374E-01 6 R2 -5.46079E-07 7 T3 -3.45266E-01 7 R1 -4.83040E-01 7 R2 -2.34486E-07 8 T3 -4.79119E-01 8 R1 4.54486E-02 8 R2 1.04545E-07 9 T3 -2.87782E-01 9 R1 6.03327E-01 9 R2 4.31755E-07 10 T3 1.66523E-01 10 R1 9.34987E-01 10 R2 6.64389E-07 11 T3 7.28774E-01 11 R1 1.00000E+00 11 R2 7.29213E-07 0COLUMN 5 ( 5- H). 2 T3 -1.21821E-07 2 R1 -3.61570E-07 2 R2 -4.53991E-01 3 T3 -3.24342E-07 3 R1 -3.01407E-07 3 R2 -8.09017E-01 4 T3 -4.35062E-07 4 R1 3.05368E-08 4 R2 -9.87688E-01 5 T3 -2.76111E-07 5 R1 3.94483E-07 5 R2 -9.51057E-01 6 T3 8.62920E-09 6 R1 5.18704E-07 6 R2 -7.07107E-01 7 T3 2.43395E-07 7 R1 3.57616E-07 7 R2 -3.09017E-01 8 T3 3.43037E-07 8 R1 -4.78102E-08 8 R2 1.56435E-01 9 T3 1.93511E-07 9 R1 -4.58635E-07 9 R2 5.87786E-01 10 T3 -6.62254E-08 10 R1 -6.86214E-07 10 R2 8.91007E-01 11 T3 -6.01408E-07 11 R1 -7.47646E-07 11 R2 1.00000E+00 0COLUMN 6 ( 6- H). 2 T3 2.18324E-09 2 R1 1.29194E-08 2 R2 7.07107E-01 3 T3 3.18404E-09 3 R1 2.75766E-09 3 R2 1.00000E+00 4 T3 1.93508E-08 4 R1 -2.43256E-08 4 R2 7.07107E-01 5 T3 -3.49928E-09 5 R1 -7.19701E-09 5 R2 -4.07056E-07 6 T3 2.49600E-10 6 R1 7.66200E-09 6 R2 -7.07107E-01 7 T3 -4.19797E-08 7 R1 1.57023E-08 7 R2 -1.00000E+00 8 T3 1.80972E-08 8 R1 9.91273E-09 8 R2 -7.07106E-01 9 T3 1.56192E-08 9 R1 -2.44623E-08 9 R2 4.28747E-07 10 T3 4.15805E-08 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 PHIA POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 10 R1 -1.38289E-08 10 R2 7.07106E-01 11 T3 -8.64965E-08 11 R1 -5.46747E-08 11 R2 9.99999E-01 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0*** USER INFORMATION MESSAGE 3028 B = 12 BBAR = 3 C = 13 CBAR = 20 R = 14 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 24) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 12 BBAR = 3 C = 13 CBAR = 20 R = 14 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 24) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 12 BBAR = 3 C = 13 CBAR = 20 R = 14 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 24) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 2 CBAR = 0 R = 2 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 3) TIME ESTIMATE = 0 SECONDS 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 FLUTTER SUMMARY POINT = 1 MACH NUMBER = 0.4500 DENSITY RATIO = 9.6700E-01 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.2000 5.0000000E+00 1.2874235E+03 3.0572511E-02 3.9582695E+01 1.9679884E+01 1.2874235E+03 0.2000 5.0000000E+00 6.9128682E+03 1.0722353E-01 2.1254073E+02 3.7061105E+02 6.9128682E+03 0.2000 5.0000000E+00 8.1558389E+03 -1.0921556E-02 2.5075670E+02 -4.4537224E+01 8.1558389E+03 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 2 CBAR = 0 R = 2 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 3) TIME ESTIMATE = 0 SECONDS 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 FLUTTER SUMMARY POINT = 2 MACH NUMBER = 0.4500 DENSITY RATIO = 9.6700E-01 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1667 5.9998803E+00 1.6037052E+03 -7.3212676E-02 4.1089977E+01 -5.8705772E+01 1.6037052E+03 0.1667 5.9998803E+00 9.8083525E+03 5.8240879E-02 2.5130862E+02 2.8562354E+02 9.8083525E+03 0.1667 5.9998803E+00 1.0555138E+04 -2.7270653E+00 2.7044269E+02 -1.4392275E+04 1.0555138E+04 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 2 CBAR = 0 R = 2 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 3) TIME ESTIMATE = 0 SECONDS 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 FLUTTER SUMMARY POINT = 3 MACH NUMBER = 0.4500 DENSITY RATIO = 9.6700E-01 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1429 6.9998603E+00 1.8892764E+03 -8.6502783E-02 4.1491585E+01 -8.1713829E+01 1.8892764E+03 0.1429 6.9998603E+00 4.1483213E+03 -6.3117223E+00 9.1103889E+01 -1.3091526E+04 4.1483213E+03 0.1429 6.9998603E+00 1.1285730E+04 8.4197730E-02 2.4785301E+02 4.7511642E+02 1.1285730E+04 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 2 CBAR = 0 R = 2 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 3) TIME ESTIMATE = 0 SECONDS 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 FLUTTER SUMMARY POINT = 4 MACH NUMBER = 0.4500 DENSITY RATIO = 9.6700E-01 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1250 8.0000000E+00 2.1840916E+03 -1.0021098E-01 4.1969593E+01 -1.0943497E+02 2.1840916E+03 0.1250 8.0000000E+00 2.5764182E+03 -8.8236246E+00 4.9508556E+01 -1.1366674E+04 2.5764182E+03 0.1250 8.0000000E+00 1.2570813E+04 1.1619978E-01 2.4156126E+02 7.3036292E+02 1.2570813E+04 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 2 CBAR = 0 R = 2 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 3) TIME ESTIMATE = 0 SECONDS 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 FLUTTER SUMMARY POINT = 5 MACH NUMBER = 0.4500 DENSITY RATIO = 9.6700E-01 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1111 9.0000896E+00 1.9975138E+03 -1.0382277E+01 3.4119041E+01 -1.0369371E+04 1.9975138E+03 0.1111 9.0000896E+00 2.4902073E+03 -1.1443201E-01 4.2534618E+01 -1.4247971E+02 2.4902073E+03 0.1111 9.0000896E+00 1.3588002E+04 1.5205437E-01 2.3209334E+02 1.0330575E+03 1.3588002E+04 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 2 CBAR = 0 R = 2 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 3) TIME ESTIMATE = 0 SECONDS 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 FLUTTER SUMMARY POINT = 6 MACH NUMBER = 0.4500 DENSITY RATIO = 9.6700E-01 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.7181267E+03 -1.1323216E+01 2.6412474E+01 -9.7273604E+03 1.7181267E+03 0.1000 1.0000000E+01 2.8099841E+03 -1.2936279E-01 4.3197414E+01 -1.8175369E+02 2.8099841E+03 0.1000 1.0000000E+01 1.4283638E+04 1.8880087E-01 2.1957997E+02 1.3483816E+03 1.4283638E+04 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 F R A M E **** **** **** **** ** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** **** 0 V-G AND V-F DATA POINTS 0 X-AXIS TITLE = VELOCITY 0 +---------------------------------------------------------+ +---------------------------------------------------------+ I I I I I FREQUENCY (F) I I DAMPING (G) I I I I I I 0.000000E+00 1.500000E+02 3.000000E+02 I I -1.200000E+01 -5.000000E+00 2.000000E+00 I +---------------------------------------------------------+ +---------------------------------------------------------+ 0.0000E+00 I I I I I I 2.9630E+02 I I I I I I 5.9259E+02 I I I I I I 8.8889E+02 I I I I I I 1.1852E+03 I * I I I I * I 1.4815E+03 I 0 I I I I 0 I 1.7778E+03 I D A I I I D I A I 2.0741E+03 I CB I I I C I B I 2.3704E+03 I C I I I I C I 2.6667E+03 I D B I I I B I D I 2.9630E+03 I I I I I I 3.2593E+03 I I I I I I 3.5556E+03 I I I I I I 3.8519E+03 I I I I I I 4.1481E+03 I A I I I A I I 4.4444E+03 I I I I I I 4.7407E+03 I I I I I I 5.0370E+03 I I I I I I 5.3333E+03 I I I I I I 5.6296E+03 I I I I I I 5.9259E+03 I I I I I I 6.2222E+03 I I I I I I 6.5185E+03 I I I I I I 6.8148E+03 I I * I I I * I 7.1111E+03 I I I I I I 7.4074E+03 I I I I I I 7.7037E+03 I I I I I I 8.0000E+03 I I I I I I 8.2963E+03 I I * I I I * I 8.5926E+03 I I I I I I 1 8.8889E+03 I I I I I I 9.1852E+03 I I I I I I 9.4815E+03 I I I I I I 9.7778E+03 I I 0 I I I 0 I 1.0074E+04 I I I I I I 1.0370E+04 I I I I I I 1.0667E+04 I I 0 I I I 0 I 1.0963E+04 I I I I I I 1.1259E+04 I I A I I I A I 1.1556E+04 I I I I I I 1.1852E+04 I I I I I I 1.2148E+04 I I I I I I 1.2444E+04 I I B I I I B I 1.2741E+04 I I I I I I 1.3037E+04 I I I I I I 1.3333E+04 I I I I I I 1.3630E+04 I I C I I I C I 1.3926E+04 I I I I I I 1.4222E+04 I I D I I I D I 1.4519E+04 I I I I I I 1.4815E+04 I I I I I I 1.5111E+04 I I I I I I 1.5407E+04 I I I I I I 1.5704E+04 I I I I I I 1.6000E+04 I I I I I I +---------------------------------------------------------+ +---------------------------------------------------------+ 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GOD MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GMD MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK PLTPARA MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPSETSA MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ELSETSA MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. * * * END OF JOB * * * 1 JOB TITLE = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING DATE: 5/17/95 END TIME: 16:12:38 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d10023a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D10023A,NASTRAN APP AERO SOL 10,0 TIME 10 DIAG 14,18 ALTER 66 $ MATGPR GPL,USET,SIL,PHIA//C,N,FE/C,N,A $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 3 LABEL = K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 4 ECHO = BOTH 5 SPC = 1 6 METHOD = 10 7 CMETHOD = 20 8 FMETHOD = 30 9 OUTPUT(XYOUT) 10 XTITLE = VELOCITY 11 YTTITLE = DAMPING (G) 12 YBTITLE = FREQUENCY (F) 13 TCURVE = V-G AND V-F DATA POINTS 14 CURVELINESYMBOL = -1 15 XYPAPERPLOT VG / 1(G,F) 2(G,F) 3(G,F) 4(G,F) 5(G,F) 6(G,F) 16 BEGIN BULK 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ AERO 0 1.3+4 2.0706 1.145-7 CAERO1 101 1 1 6 4 1 +CA101 +CA101 -1. -.26795 0.0 2.0706 -1. 5.45205 0.0 2.0706 CBAR 1 1 1 2 0.0 0.0 1. 1 CBAR 2 1 2 3 0.0 0.0 1. 1 CBAR 3 1 3 4 0.0 0.0 1. 1 CBAR 4 1 4 5 0.0 0.0 1. 1 CBAR 5 1 5 6 0.0 0.0 1. 1 CBAR 6 1 6 7 0.0 0.0 1. 1 CBAR 7 1 7 8 0.0 0.0 1. 1 CBAR 8 1 8 9 0.0 0.0 1. 1 CBAR 9 1 9 10 0.0 0.0 1. 1 CBAR 10 1 10 11 0.0 0.0 1. 1 CMASS2 12 2.8-6 2 5 CMASS2 13 2.8-6 3 5 CMASS2 14 2.8-6 4 5 CMASS2 15 2.8-6 5 5 CMASS2 16 2.8-6 6 5 CMASS2 17 2.8-6 7 5 CMASS2 18 2.8-6 8 5 CMASS2 19 2.8-6 9 5 CMASS2 20 2.8-6 10 5 CMASS2 21 1.4-6 11 5 CORD2R 1 0.0 0.0 0.0 0.0 0.0 1. +C1 +C1 .96593 -.25882 0.0 EIGC 20 HESS MAX +EC +EC 3 EIGR 10 GIV .3 .1 6 +ER +ER MAX FLFACT 1 .967 FLFACT 2 .45 FLFACT 3 .2 .16667 .14286 .125 .11111 .1 FLFACT 4 4000. 5000. 5500. 5980. 6100. 6200. FLUTTER 30 PK 1 2 4 L 3 GRDSET 1 1 126 GRID 1 0.0 .0 0.0 GRID 2 0.0 .572 0.0 GRID 3 0.0 1.144 0.0 GRID 4 0.0 1.716 0.0 GRID 5 0.0 2.288 0.0 GRID 6 0.0 2.86 0.0 GRID 7 0.0 3.432 0.0 GRID 8 0.0 4.004 0.0 GRID 9 0.0 4.576 0.0 GRID 10 0.0 5.148 0.0 GRID 11 0.0 5.72 0.0 MAT1 1 10.4+6 3.9+6 2.61-4 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ MKAERO1 .45 +MK +MK .0001 .1 .2 PAERO1 1 PARAM COUPMASS1 PARAM LMODES 3 PBAR 1 1 7.175-2 9.83-6 36.8-6 SET1 100 1 THRU 11 SPC1 1 345 1 SPLINE2 100 101 101 124 100 0.0 1. 1 +SP +SP 0.0 0.0 ENDDATA TOTAL COUNT= 57 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AERO 0 1.3+4 2.0706 1.145-7 2- CAERO1 101 1 1 6 4 1 +CA101 3- +CA101 -1. -.26795 0.0 2.0706 -1. 5.45205 0.0 2.0706 4- CBAR 1 1 1 2 0.0 0.0 1. 1 5- CBAR 2 1 2 3 0.0 0.0 1. 1 6- CBAR 3 1 3 4 0.0 0.0 1. 1 7- CBAR 4 1 4 5 0.0 0.0 1. 1 8- CBAR 5 1 5 6 0.0 0.0 1. 1 9- CBAR 6 1 6 7 0.0 0.0 1. 1 10- CBAR 7 1 7 8 0.0 0.0 1. 1 11- CBAR 8 1 8 9 0.0 0.0 1. 1 12- CBAR 9 1 9 10 0.0 0.0 1. 1 13- CBAR 10 1 10 11 0.0 0.0 1. 1 14- CMASS2 12 2.8-6 2 5 15- CMASS2 13 2.8-6 3 5 16- CMASS2 14 2.8-6 4 5 17- CMASS2 15 2.8-6 5 5 18- CMASS2 16 2.8-6 6 5 19- CMASS2 17 2.8-6 7 5 20- CMASS2 18 2.8-6 8 5 21- CMASS2 19 2.8-6 9 5 22- CMASS2 20 2.8-6 10 5 23- CMASS2 21 1.4-6 11 5 24- CORD2R 1 0.0 0.0 0.0 0.0 0.0 1. +C1 25- +C1 .96593 -.25882 0.0 26- EIGC 20 HESS MAX +EC 27- +EC 3 28- EIGR 10 GIV .3 .1 6 +ER 29- +ER MAX 30- FLFACT 1 .967 31- FLFACT 2 .45 32- FLFACT 3 .2 .16667 .14286 .125 .11111 .1 33- FLFACT 4 4000. 5000. 5500. 5980. 6100. 6200. 34- FLUTTER 30 PK 1 2 4 L 3 35- GRDSET 1 1 126 36- GRID 1 0.0 .0 0.0 37- GRID 2 0.0 .572 0.0 38- GRID 3 0.0 1.144 0.0 39- GRID 4 0.0 1.716 0.0 40- GRID 5 0.0 2.288 0.0 41- GRID 6 0.0 2.86 0.0 42- GRID 7 0.0 3.432 0.0 43- GRID 8 0.0 4.004 0.0 44- GRID 9 0.0 4.576 0.0 45- GRID 10 0.0 5.148 0.0 46- GRID 11 0.0 5.72 0.0 47- MAT1 1 10.4+6 3.9+6 2.61-4 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- MKAERO1 .45 +MK 49- +MK .0001 .1 .2 50- PAERO1 1 51- PARAM COUPMASS1 52- PARAM LMODES 3 53- PBAR 1 1 7.175-2 9.83-6 36.8-6 54- SET1 100 1 THRU 11 55- SPC1 1 345 1 56- SPLINE2 100 101 101 124 100 0.0 1. 1 +SP 57- +SP 0.0 0.0 ENDDATA 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN AERO 10 - MODAL FLUTTER ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/ CLAMAL=APPEND/OVG=APPEND/QHHL=APPEND/SKJ=APPEND/QHJL=APPEND/ QKHL=APPEND/ $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 COND ERROR5,NOGPDT $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 12 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 13 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 14 COND ERROR1,NOSIMP $ 15 PARAM //*ADD*/NOKGGX/1/0 $ 16 PARAM //*ADD*/NOMGG /1/0 $ 17 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PURGE KGGX/NOKGGX $ 19 COND JMPKGGX,NOKGGX $ 20 EMA GPECT,KDICT,KELM/KGGX $ 21 PURGE KDICT,KELM/MINUS1 $ 22 LABEL JMPKGGX $ 23 COND ERROR1,NOMGG $ 24 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 25 PURGE MDICT,MELM/MINUS1 $ 26 COND LGPWG,GRDPNT $ 27 GPWG BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 28 OFP OGPWG,,,,,//S,N,CARDNO $ 29 LABEL LGPWG $ 30 EQUIV KGGX,KGG/NOGENL $ 31 COND LBL11,NOGENL $ 32 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 33 LABEL LBL11 $ 34 GPSTGEN KGG,SIL/GPST $ 35 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 36 OFP OGPST,,,,,//S,N,CARDNO $ 37 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 38 PURGE GM/MPCF1/DM,MR/REACT $ 39 COND LBL2,MPCF1 $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 40 MCE1 USET,RG/GM $ 41 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 42 LABEL LBL2 $ 43 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 44 COND LBL3,SINGLE $ 45 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 46 LABEL LBL3 $ 47 EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ 48 PURGE GO/OMIT $ 49 COND LBL5,OMIT $ 50 PARAM //*PREC*/PREC $ 51 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 52 SMP2 USET,GO,MFF/MAA $ 53 LABEL LBL5 $ 54 COND LBL6,REACT $ 55 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 56 RBMG2 KLL/LLL/ $ 57 RBMG3 LLL,KLR,KRR/DM $ 58 RBMG4 DM,MLL,MLR,MRR/MR $ 59 LABEL LBL6 $ 60 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $ 61 COND ERROR2,NOEED $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 62 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 63 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ 64 OFP OEIGS,,,,,//S,N,CARDNO $ 65 COND ERROR4,NEIGV $ 66 OFP LAMA,,,,,//S,N,CARDNO $ 66 MATGPR GPL,USET,SIL,PHIA//C,N,FE/C,N,A $ 67 MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ 68 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $ 69 GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/ *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/ NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/-1/ -1/-1 $ 70 GKAM USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH, PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $ 71 APD EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA, USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/ S,N,LUSETA/S,N,BOV $ 72 PARAM //*MPY*/PFILE/0/1 $ 73 PURGE PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $ 74 COND SKPPLT,JUMPPLOT $ 75 PARAM //*MPY*/PLTFLG/0/1 $ 76 PLTSET PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/ S,N,JUMPPLOT $ 77 PRTMSG PLTSETA // $ 78 COND SKPPLT,JUMPPLOT $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 79 PLOT PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO, ,,,,,,/PLOTX2/ NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 80 PRTMSG PLOTX2 // $ 81 LABEL SKPPLT $ 82 COND ERROR2,NOEED $ 83 GI SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/LUSET $ 84 PARAM //*ADD*/DESTRY/0/1/ $ 85 AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $ 86 COND NODJE, NODJE $ 87 INPUTT2 /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $ 88 LABEL NODJE $ 89 PARAM //*ADD*/XQHHL/1/0 $ 90 AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL, QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $ 91 PARAM //*MPY*/FLOOP/V,Y,NODJE=-1/0 $ 92 LABEL LOOPTOP $ 93 FA1 KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/ S,N,FLOOP/S,N,TSTART/S,N,NOCEAD $ 94 EQUIV KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/KXHH,PHIHL/NOCEAD/BXHH, CLAMAL/NOCEAD/CASECC,CASEYY/NOCEAD $ 95 COND VDR,NOCEAD $ 96 CEAD KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $ 97 COND LBLZAP,EIGVS $ 98 LABEL VDR $ 99 VDR CASECC,EQDYN ,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 123/S,N,NOH/S,N,NOP/FMODE $ 100 COND LBL16,NOH $ 101 OFP OPHIH,,,,,//S,N,CARDNO $ 102 LABEL LBL16 $ 103 FA2 PHIH,CLAMA,FSAVE/ PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/ C,Y,VREF=1.0/C,Y,PRINT=YES $ 104 COND CONTINUE,TSTART $ 105 LABEL LBLZAP $ 106 COND CONTINUE,FLOOP $ 107 REPT LOOPTOP,100 $ 108 JUMP ERROR3 $ 109 LABEL CONTINUE $ 110 PARAML XYCDB//*PRES*////NOXYCDB $ 111 COND NOXYOUT,NOXYCDB $ 112 XYTRAN XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO/ S,N,NOXYPL $ 113 COND NOXYOUT,NOXYPL $ 114 XYPLOT XYPLTCE// $ 115 LABEL NOXYOUT $ 116 PARAM //*AND*/PJUMP/NOP=-1/JUMPPLOT $ 117 COND FINIS,PJUMP $ 118 MODACC CASEYY,CLAMAL,PHIHL,,,/CLAMAL1,CPHIH1,CASEZZ,,/*CEIGN* $ 119 ADR CPHIH1,CASEZZ,QKHL,CLAMAL1,SPLINE,SILA,USETA/PKF/BOV/ C,Y,MACH = 0.0/*FLUTTER* $ 120 DDR1 CPHIH1,PHIDH/CPHID $ 121 EQUIV CPHID ,CPHIP/NOA $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 122 PURGE QPC/NOA $ 123 COND LBL14,NOA $ 124 SDR1 USETD,,CPHID ,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1 /*DYNAMICS* $ 125 LABEL LBL14 $ 126 EQUIV CPHID ,CPHIA/NOUE $ 127 COND LBLNOE,NOUE $ 128 VEC USETA/RP/*D*/*A*/*E* $ 129 PARTN CPHID ,,RP/CPHIA,,,/1/3 $ 130 LABEL LBLNOE $ 131 MPYAD GTKA,CPHIA,/CPHIK/1/1/0/PREC $ 132 UMERGE USETA,CPHIP,/CPHIPS/*PS*/*P*/*SA* $ 133 UMERGE USETA,CPHIPS,CPHIK/CPHIPA/*PA*/*PS*/*K* $ 134 UMERGE USETA,QPC,/QPAC/*PA*/*P*/*K* $ 135 SDR2 CASEZZ,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,CLAMAL1,QPAC,CPHIPA, EST,,,/,OQPAC1,OCPHIPA,OESC1,OEFC1,PCPHIPA,,/*CEIGN* $ 136 OFP OCPHIPA,OQPAC1,OESC1,OEFC1,,//S,N,CARDNO $ 137 COND FINIS,JUMPPLOT $ 138 PLOT PLTPARA,GPSETSA,ELSETSA,CASEZZ,BGPA,EQAERO,SILGA,,PCPHIPA,,,, /PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/S,N, PFILE $ 139 PRTMSG PLOTX3// $ 140 JUMP FINIS $ 141 LABEL ERROR3 $ 142 PRTPARM //-3/*FLUTTER* $ 143 LABEL ERROR2 $ 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 144 PRTPARM //-2/*FLUTTER* $ 145 LABEL ERROR1 $ 146 PRTPARM //-1/*FLUTTER* $ 147 LABEL ERROR4 $ 148 PRTPARM //-4/*FLUTTER* $ 149 LABEL ERROR5 $ 150 PRTPARM //-5/*FLUTTER* $ 151 LABEL FINIS $ 152 PURGE DUMMY/MINUS1 $ 153 END $ 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION MASS2 ELEMENTS (ELEMENT TYPE 26) STARTING WITH ID 12 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 30, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 30 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 6 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 29 6.304402E+04 2.510857E+02 3.996152E+01 2.677916E-05 1.688266E+00 2 30 2.206506E+06 1.485431E+03 2.364137E+02 1.400000E-05 3.089108E+01 3 28 2.476139E+06 1.573575E+03 2.504423E+02 2.677572E-05 6.630042E+01 4 26 1.942194E+07 4.407033E+03 7.014010E+02 1.420851E-05 2.759567E+02 5 27 1.953390E+07 4.419717E+03 7.034197E+02 1.400000E-05 2.734746E+02 6 25 5.249256E+07 7.245175E+03 1.153105E+03 1.399999E-05 7.348956E+02 7 24 7.468510E+07 8.642055E+03 1.375426E+03 0.0 0.0 8 23 9.785626E+07 9.892232E+03 1.574398E+03 0.0 0.0 9 22 1.511845E+08 1.229571E+04 1.956923E+03 0.0 0.0 10 20 2.047278E+08 1.430831E+04 2.277239E+03 0.0 0.0 11 21 2.072571E+08 1.439643E+04 2.291262E+03 0.0 0.0 12 19 2.605854E+08 1.614266E+04 2.569183E+03 0.0 0.0 13 18 3.059491E+08 1.749140E+04 2.783843E+03 0.0 0.0 14 17 3.389078E+08 1.840945E+04 2.929954E+03 0.0 0.0 15 16 3.562351E+08 1.887419E+04 3.003921E+03 0.0 0.0 16 15 4.594797E+08 2.143548E+04 3.411562E+03 0.0 0.0 17 14 9.045066E+08 3.007502E+04 4.786587E+03 0.0 0.0 18 13 1.623464E+09 4.029223E+04 6.412708E+03 0.0 0.0 19 12 2.714134E+09 5.209736E+04 8.291552E+03 0.0 0.0 20 11 4.194444E+09 6.476452E+04 1.030759E+04 0.0 0.0 21 10 7.430217E+09 8.619871E+04 1.371895E+04 0.0 0.0 22 9 1.084491E+10 1.041389E+05 1.657422E+04 0.0 0.0 23 8 1.593668E+10 1.262406E+05 2.009181E+04 0.0 0.0 24 7 2.321477E+10 1.523639E+05 2.424947E+04 0.0 0.0 25 6 3.352112E+10 1.830877E+05 2.913932E+04 0.0 0.0 26 5 4.794975E+10 2.189743E+05 3.485085E+04 0.0 0.0 27 4 6.754208E+10 2.598886E+05 4.136255E+04 0.0 0.0 28 3 9.205609E+10 3.034075E+05 4.828880E+04 0.0 0.0 29 2 1.167387E+11 3.416705E+05 5.437855E+04 0.0 0.0 30 1 1.828392E+11 4.275971E+05 6.805419E+04 0.0 0.0 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 PHIA POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 0COLUMN 1 ( 1- H). 2 T3 1.67735E-02 2 R1 5.72388E-02 2 R2 3.01054E-09 3 T3 6.38710E-02 3 R1 1.06035E-01 3 R2 3.03284E-09 4 T3 1.36483E-01 4 R1 1.46474E-01 4 R2 -7.48494E-09 5 T3 2.29884E-01 5 R1 1.78774E-01 5 R2 -8.72457E-09 6 T3 3.39523E-01 6 R1 2.03331E-01 6 R2 3.99158E-09 7 T3 4.61135E-01 7 R1 2.20760E-01 7 R2 7.35782E-11 8 T3 5.90876E-01 8 R1 2.31925E-01 8 R2 -3.15805E-10 9 T3 7.25478E-01 9 R1 2.37964E-01 9 R2 2.17289E-10 10 T3 8.62400E-01 10 R1 2.40300E-01 10 R2 5.58286E-10 11 T3 1.00000E+00 11 R1 2.40648E-01 11 R2 4.86563E-10 0COLUMN 2 ( 2- H). 2 T3 -7.46044E-09 2 R1 -1.88336E-08 2 R2 1.56434E-01 3 T3 -2.28561E-08 3 R1 -2.59106E-08 3 R2 3.09017E-01 4 T3 -2.58240E-08 4 R1 -2.26935E-08 4 R2 4.53990E-01 5 T3 -5.68907E-08 5 R1 -2.57682E-08 5 R2 5.87785E-01 6 T3 -7.27691E-08 6 R1 -2.17948E-09 6 R2 7.07107E-01 7 T3 -2.14620E-08 7 R1 2.90025E-08 7 R2 8.09017E-01 8 T3 -5.17652E-08 8 R1 4.09725E-08 8 R2 8.91007E-01 9 T3 -2.56568E-08 9 R1 5.40314E-08 9 R2 9.51057E-01 10 T3 1.10070E-07 10 R1 6.21463E-08 10 R2 9.87688E-01 11 T3 2.13897E-08 11 R1 6.16105E-08 11 R2 1.00000E+00 0COLUMN 3 ( 3- H). 2 T3 -9.26293E-02 2 R1 -2.93280E-01 2 R2 -3.47704E-08 3 T3 -3.01055E-01 3 R1 -4.06302E-01 3 R2 -6.19249E-08 4 T3 -5.26133E-01 4 R1 -3.55778E-01 4 R2 -4.46378E-08 5 T3 -6.83470E-01 5 R1 -1.76822E-01 5 R2 -7.01620E-08 6 T3 -7.13666E-01 6 R1 7.92204E-02 6 R2 -1.22805E-07 7 T3 -5.89476E-01 7 R1 3.53042E-01 7 R2 -1.26697E-07 8 T3 -3.17052E-01 8 R1 5.89324E-01 8 R2 -1.45986E-07 9 T3 7.00358E-02 9 R1 7.49587E-01 9 R2 -1.52911E-07 10 T3 5.23752E-01 10 R1 8.23344E-01 10 R2 -1.56358E-07 11 T3 1.00000E+00 11 R1 8.35801E-01 11 R2 -1.61307E-07 0COLUMN 4 ( 4- H). 2 T3 1.66212E-01 2 R1 4.79761E-01 2 R2 -3.32192E-07 3 T3 4.40551E-01 3 R1 3.97278E-01 3 R2 -5.90702E-07 4 T3 5.51134E-01 4 R1 -4.52344E-02 4 R2 -7.67610E-07 5 T3 3.83288E-01 5 R1 -5.17263E-01 5 R2 -7.29061E-07 6 T3 1.43548E-02 6 R1 -7.07374E-01 6 R2 -5.46079E-07 7 T3 -3.45266E-01 7 R1 -4.83040E-01 7 R2 -2.34486E-07 8 T3 -4.79119E-01 8 R1 4.54486E-02 8 R2 1.04545E-07 9 T3 -2.87782E-01 9 R1 6.03327E-01 9 R2 4.31755E-07 10 T3 1.66523E-01 10 R1 9.34987E-01 10 R2 6.64389E-07 11 T3 7.28774E-01 11 R1 1.00000E+00 11 R2 7.29213E-07 0COLUMN 5 ( 5- H). 2 T3 -1.21821E-07 2 R1 -3.61570E-07 2 R2 -4.53991E-01 3 T3 -3.24342E-07 3 R1 -3.01407E-07 3 R2 -8.09017E-01 4 T3 -4.35062E-07 4 R1 3.05368E-08 4 R2 -9.87688E-01 5 T3 -2.76111E-07 5 R1 3.94483E-07 5 R2 -9.51057E-01 6 T3 8.62920E-09 6 R1 5.18704E-07 6 R2 -7.07107E-01 7 T3 2.43395E-07 7 R1 3.57616E-07 7 R2 -3.09017E-01 8 T3 3.43037E-07 8 R1 -4.78102E-08 8 R2 1.56435E-01 9 T3 1.93511E-07 9 R1 -4.58635E-07 9 R2 5.87786E-01 10 T3 -6.62254E-08 10 R1 -6.86214E-07 10 R2 8.91007E-01 11 T3 -6.01408E-07 11 R1 -7.47646E-07 11 R2 1.00000E+00 0COLUMN 6 ( 6- H). 2 T3 2.18324E-09 2 R1 1.29194E-08 2 R2 7.07107E-01 3 T3 3.18404E-09 3 R1 2.75766E-09 3 R2 1.00000E+00 4 T3 1.93508E-08 4 R1 -2.43256E-08 4 R2 7.07107E-01 5 T3 -3.49928E-09 5 R1 -7.19701E-09 5 R2 -4.07056E-07 6 T3 2.49600E-10 6 R1 7.66200E-09 6 R2 -7.07107E-01 7 T3 -4.19797E-08 7 R1 1.57023E-08 7 R2 -1.00000E+00 8 T3 1.80972E-08 8 R1 9.91273E-09 8 R2 -7.07106E-01 9 T3 1.56192E-08 9 R1 -2.44623E-08 9 R2 4.28747E-07 10 T3 4.15805E-08 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 PHIA POINT VALUE POINT VALUE P0INT VALUE POINT VALUE POINT VALUE 10 R1 -1.38289E-08 10 R2 7.07106E-01 11 T3 -8.64965E-08 11 R1 -5.46747E-08 11 R2 9.99999E-01 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0*** USER INFORMATION MESSAGE 3028 B = 12 BBAR = 3 C = 13 CBAR = 20 R = 14 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 24) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 12 BBAR = 3 C = 13 CBAR = 20 R = 14 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 24) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 12 BBAR = 3 C = 13 CBAR = 20 R = 14 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 24) TIME ESTIMATE = 0 SECONDS 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 FLUTTER SUMMARY POINT = 1 MACH NUMBER = 0.4500 DENSITY RATIO = 9.6700E-01 METHOD = PK KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.0802 1.2473847E+01 4.0000000E+03 -2.9506537E-01 4.9296200E+01 -4.5696358E+01 3.0973718E+02 0.0748 1.3373007E+01 5.0000000E+03 -4.0563366E-01 5.7477100E+01 -7.3245125E+01 3.6113928E+02 0.0759 1.3179515E+01 5.5000000E+03 -4.9069270E-01 6.4153023E+01 -9.8895523E+01 4.0308536E+02 0.0800 1.2492304E+01 5.9800000E+03 -6.4905137E-01 7.3588936E+01 -1.5005190E+02 4.6237296E+02 0.0813 1.2301638E+01 6.1000000E+03 -7.2274333E-01 7.6229103E+01 -1.7308315E+02 4.7896158E+02 0.0820 1.2201963E+01 6.2000000E+03 -8.0324262E-01 7.8111664E+01 -1.9711176E+02 4.9079007E+02 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 FLUTTER SUMMARY POINT = 2 MACH NUMBER = 0.4500 DENSITY RATIO = 9.6700E-01 METHOD = PK KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.3299 3.0309095E+00 4.0000000E+03 -7.0399038E-02 2.0288080E+02 -4.4870152E+01 1.2747377E+03 0.2328 4.2953811E+00 5.0000000E+03 -8.7106556E-02 1.7894608E+02 -4.8969189E+01 1.1243514E+03 0.1920 5.2076502E+00 5.5000000E+03 -7.8567430E-02 1.6235840E+02 -4.0074413E+01 1.0201279E+03 0.1542 6.4864011E+00 5.9800000E+03 -1.4726860E-02 1.4172658E+02 -6.5570927E+00 8.9049438E+02 0.1449 6.8995705E+00 6.1000000E+03 2.7509496E-02 1.3591321E+02 1.1746113E+01 8.5396790E+02 0.1377 7.2626681E+00 6.2000000E+03 7.7624932E-02 1.3123491E+02 3.2003723E+01 8.2457330E+02 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) 0 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0 FLUTTER SUMMARY POINT = 3 MACH NUMBER = 0.4500 DENSITY RATIO = 9.6700E-01 METHOD = PK KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.4072 2.4556196E+00 4.0000000E+03 -2.8958725E-02 2.5041064E+02 -2.2781490E+01 1.5733766E+03 0.3262 3.0651748E+00 5.0000000E+03 -3.5419848E-02 2.5076599E+02 -2.7903919E+01 1.5756093E+03 0.2969 3.3685458E+00 5.5000000E+03 -3.8616292E-02 2.5100023E+02 -3.0450512E+01 1.5770811E+03 0.2733 3.6587436E+00 5.9800000E+03 -4.1674566E-02 2.5125987E+02 -3.2896076E+01 1.5787124E+03 0.2680 3.7311203E+00 6.1000000E+03 -4.2438012E-02 2.5133008E+02 -3.3508068E+01 1.5791536E+03 0.2638 3.7913790E+00 6.2000000E+03 -4.3073926E-02 2.5139023E+02 -3.4018311E+01 1.5795315E+03 0*** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID 4 - VG - CURVE IS BEING PASSED OVER. THE ID COULD NOT BE FOUND IN DATA BLOCK 102 0*** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID 5 - VG - CURVE IS BEING PASSED OVER. THE ID COULD NOT BE FOUND IN DATA BLOCK 102 0*** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID 6 - VG - CURVE IS BEING PASSED OVER. THE ID COULD NOT BE FOUND IN DATA BLOCK 102 1 K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 0 0 F R A M E **** **** **** **** ** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** **** 0 V-G AND V-F DATA POINTS 0 X-AXIS TITLE = VELOCITY 0 +---------------------------------------------------------+ +---------------------------------------------------------+ I I I I I FREQUENCY (F) I I DAMPING (G) I I I I I I 0.000000E+00 1.500000E+02 3.000000E+02 I I -1.000000E+00 -4.000000E-01 2.000000E-01 I +---------------------------------------------------------+ +---------------------------------------------------------+ 4.0000E+03 I * I 0 A I I I * 0 A I 4.1000E+03 I I I I I I 4.2000E+03 I I I I I I 4.3000E+03 I I I I I I 4.4000E+03 I I I I I I 4.5000E+03 I I I I I I 4.6000E+03 I I I I I I 4.7000E+03 I I I I I I 4.8000E+03 I I I I I I 4.9000E+03 I I I I I I 5.0000E+03 I * I 0 A I I * 0 A I 5.1000E+03 I I I I I I 5.2000E+03 I I I I I I 5.3000E+03 I I I I I I 5.4000E+03 I I I I I I 5.5000E+03 I * I 0 A I I * I 0A I 5.6000E+03 I I I I I I 5.7000E+03 I I I I I I 5.8000E+03 I I I I I I 5.9000E+03 I I I I I I 6.0000E+03 I * 0 I A I I * I A 0 I 6.1000E+03 I * 0 I A I I * I A 0 I 6.2000E+03 I * 0 I A I I * I A 0 I 6.3000E+03 I I I I I I 6.4000E+03 I I I I I I 6.5000E+03 I I I I I I +---------------------------------------------------------+ +---------------------------------------------------------+ 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GOD MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GMD MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK PLTPARA MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPSETSA MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ELSETSA MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. * * * END OF JOB * * * 1 JOB TITLE = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING DATE: 5/17/95 END TIME: 16:13: 8 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d11011a.out ================================================ NASTRAN FILES=(NPTP,PLT2) **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D11011A,NASTRAN CHKPNT YES APP DISPLACEMENT SOL 11,3 DIAG 14 TIME 25 ALTER 86 $ MATPRN PHIA,,,,// $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE PUNCHED OUT FOR THIS PROBLEM 0 RESTART D11011A ,NASTRAN , 5/17/95, 58417, 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 MAXLINES = 50000 2 TITLE = FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM 3 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 4 SPC = 11 5 METHOD = 2 6 FREQUENCY= 508 7 RANDOM = 11 8 SDAMPING = 11 9 OUTPUT 10 SET 2 = 5,10 11 SET 6 = 6 12 SET 10 = 6,11 13 DISP(SORT2,PHASE) = 10 14 ACCELER(SORT2,PHASE) = 10 15 OLOAD = 6 16 ELFORCE(SORT2,PHASE) = 2 17 SUBCASE 1 18 LABEL = THREE POINTS LOADED WITH TWO SETS 19 DLOAD = 506 20 SUBCASE 2 21 LABEL = ONE POINT LOADED WITH TWO SETS AND TIME DELAYS 22 DLOAD = 507 23 SUBCASE 3 24 LABEL = ONE POINT LOADED WITH TWO TABULAR LOADS 25 DLOAD = 510 26 $ 27 $ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 28 $ 29 $ 30 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 31 OUTPUT(XYOUT) 32 PLOTTER = NASTPLT 33 CAMERA = 3 34 SKIP BETWEEN FRAMES = 1 35 XGRID LINE = YES 36 YGRID LINE = YES 37 XTITLE = FREQUENCY (HERTZ) 38 YTITLE = S 39 TCURVE = POWER SPECTRAL DENSITY OF POINT 6 DISPLACEMENT 40 XYPLOT,XYPRINT DISP PSDF / 6(T3) 41 $ 42 TCURVE = POWER SPECTRAL DENSITY OF POINT 6 ACCELERATION 43 XYPLOT ACCELERATION PSDF / 6(T3) 44 $ 45 XTITLE = TIME LAG (SECONDS) 46 YTITLE = R 47 TCURVE = AUTOCORRELATION FUNCTION FOR POINT 6 DISPLACEMENT 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 48 XYPLOT,XYPRINT DISP AUTO / 6(T3) 49 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 81, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CBAR 3 1 3 4 20. .0 1. 1 2- CBAR 4 1 4 5 20. .0 1. 1 3- CBAR 5 1 5 6 20. .0 1. 1 4- CBAR 6 1 6 7 20. .0 1. 1 5- CBAR 7 1 7 8 20. .0 1. 1 6- CBAR 8 1 8 9 20. .0 1. 1 7- CBAR 9 1 9 10 20. .0 1. 1 8- CBAR 10 1 10 11 20. .0 1. 1 9- CONM2 *11 1 5.34604-3 *M1 10- *M1 .0 11- CONM2 *12 2 1.069208-2 *M2 12- *M2 .0 .0 13- CONM2 *13 3 5.34604-3 *M3 14- *M3 15- DAREA 2 5 5 -100. 16- DAREA 2 6 3 50. 5 3 50. 17- DAREA 2 7 3 50. 7 5 100. 18- DAREA 3 6 3 100. 19- DAREA 510 6 3 1.0 20- DELAY 1 6 3 .5555-2 21- DLOAD 506 1. 1. 5 1. 6 22- DLOAD 507 1. 1. 5 1. 7 23- DLOAD 510 2.0 1.0 5101 1.0 5102 24- DPHASE 1 6 3 30. 25- DPHASE 5102 6 3 -30.0 26- EIGR 2 INV 40.0 1000.0 3 5 +EG 27- +EG MASS 28- FREQ1 508 .0 5.0 40 29- GENEL 1101 2 1 2 3 2 5 +1 30- +1 3 1 3 3 3 5 +2 31- +2 UD 1 1 1 3 1 5 *30 32- *30 Z .89044935-8 .0 .0 *31 33- *31 .89044935-8 .0 .0 3.08928-6 *40 34- *40 -2.31696-6 .0 7.7232005-6 -2.31696-6 *41 35- *41 2.31696-6 .0 -6.950884-6 2.31696-6 *50 36- *50 1.7808987-8 .0 .0 24.714241-6 *51 37- *51 -9.26784-6 4.6339203-6 +60 38- +60 S 1.0 .0 .0 .0 1.0 -2.0 .0 +70 39- +70 .0 1.0 1.0 .0 .0 .0 1.0 -4.0 +80 40- +80 .0 .0 1.0 41- GRDSET 246 42- GRID 1 .0 .0 .0 43- GRID 2 2. .0 .0 44- GRID 3 4. .0 .0 45- GRID 4 6. .0 .0 46- GRID 5 8. .0 .0 47- GRID 6 10. .0 .0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 7 12. .0 .0 49- GRID 8 14. .0 .0 50- GRID 9 16. .0 .0 51- GRID 10 18. .0 .0 52- GRID 11 20. .0 .0 53- MAT1 1 10.4+6 4.+6 .2523-3 54- PARAM GRDPNT 0 55- PARAM LMODES 4 56- PBAR 1 1 21.18922.083 .083 57- RANDPS 11 1 1 .5 11 58- RANDPS 11 1 3 .5 11 59- RANDPS 11 2 2 1.0 11 60- RANDPS 11 3 3 .5 11 61- RANDT1 11 100 .0 .1 62- RLOAD1 5101 510 5101 63- RLOAD1 5102 510 5102 5102 64- RLOAD2 5 2 1 65- RLOAD2 6 3 1 1 2 66- RLOAD2 7 3 1 1 67- SPC 1 1 13 11 13 68- SPC 11 1 13 11 3 69- TABDMP1 11 +DAMP 70- +DAMP .0 .0 50.0 .02 ENDT 71- TABLED1 1 +TAUU 72- +TAUU .0 1. 100. 1. ENDT 73- TABLED1 2 +TAD21 74- +TAD21 .0 30. 100. 30. ENDT 75- TABLED1 5101 +TAD30 76- +TAD30 .0 75.0 100. 75.0 ENDT 77- TABLED1 5102 +TAD31 78- +TAD31 .0 50.0 100. 50.0 ENDT 79- TABRND1 11 +TR 80- +TR -1.0 .0 .0 100.0 100.0 100.0 100.0 .0 +TR2 81- +TR2 101.0 .0 ENDT ENDDATA 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 11 - MODAL FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $ 2 PRECHK ALL $ 3 FILE GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL P1 $ 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR7,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGGX,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 PURGE KDICT,KELM/MINUS1 $ 32 LABEL JMPKGGX $ 33 COND ERROR1,NOMGG $ 34 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 35 PURGE MDICT,MELM/MINUS1 $ 36 COND LGPWG,GRDPNT $ 37 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 38 OFP OGPWG,,,,,//S,N,CARDNO $ 39 LABEL LGPWG $ 40 EQUIV KGGX,KGG/NOGENL $ 41 COND LBL11,NOGENL $ 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 43 LABEL LBL11 $ 44 GPSTGEN KGG,SIL/GPST $ 45 PARAM //*MPY*/NSKIP/0/0 $ 46 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 47 OFP OGPST,,,,,//S,N,CARDNO $ 48 PARAM //*AND*/NOSR/REACT/SINGLE $ 49 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF/SINGLE/QPC/NOSR/KLR,KRR,MLR, MRR,DM,MR/REACT/MDD/MODACC $ 50 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 51 COND LBL2,MPCF1 $ 52 MCE1 USET,RG/GM $ 53 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 54 LABEL LBL2 $ 55 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 56 COND LBL3,SINGLE $ 57 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 58 LABEL LBL3 $ 59 EQUIV KFF,KAA/OMIT $ 60 EQUIV MFF,MAA/OMIT $ 61 COND LBL5,OMIT $ 62 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 63 SMP2 USET,GO,MFF/MAA $ 64 LABEL LBL5 $ 65 EQUIV KAA,KLL/REACT $ 66 COND LBL6,REACT $ 67 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 68 JUMP LBL8 $ 69 LABEL LBL6 $ 70 COND LBL7,MODACC $ 71 LABEL LBL8 $ 72 RBMG2 KLL/LLL $ 73 COND LBL7,REACT $ 74 RBMG3 LLL,KLR,KRR/DM $ 75 RBMG4 DM,MLL,MLR,MRR/MR $ 76 LABEL LBL7 $ 77 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,, EED,EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ S,N,NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $ 78 COND ERROR2,NOEED $ 79 PURGE UEVF/NOUE $ 80 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 81 PARAM //*MPY*/NEIGV/1/-1 $ 82 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ 83 OFP OEIGS,,,,,//S,N,CARDNO $ 84 COND ERROR4,NEIGV $ 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 85 OFP LAMA,,,,,//S,N,CARDNO $ 86 PARAM //*ADD*/NEVER/1/0 $ 86 MATPRN PHIA,,,,// $ 87 PARAM //*MPY*/REPEATF/1/-1 $ 89 PURGE OUHVC1,OUHVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,K2PP,M2PP, B2PP,K2DD,M2DD,B2DD,OPPCA,IQP1,IPHIP1,IES1,IEF1,OPPCB,IQP2, IPHIP2,IES2,IEF2,ZQPC2,ZUPVC2,ZESC2,ZEFC2,ZQPC1,ZUPVC1,ZESC1, ZEFC1/NEVER $ 90 CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ 91 MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ 92 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 93 PARAM //*AND*/MDEMA/NOUE/NOM2PP $ 94 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA $ 95 GKAD USETD,GM,GO,,,MAA,,K2PP,M2PP,B2PP/,,MDD,GMD, GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*MODAL*/0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/-1/-1/ 1/V,Y,MODACC = -1 $ 96 GKAM USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/ NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $ 97 COND ERROR5,NOFRL $ 98 COND ERROR6,NODLT $ 99 FRRD CASEXX,USETD,DLT,FRL,GMD,GOD,KHH,BHH,MHH,PHIDH,DIT/UHVF,PSF, PDF,PPF/*DISP*/*MODAL*/LUSETD/MPCF1/SINGLE/ OMIT/NONCUP/S,N,FRQSET $ 100 EQUIV PPF,PDF/NOSET $ 101 VDR CASEXX,EQDYN,USETD,UHVF,PPF,XYCDB,/OUHVC1,/*FREQRESP*/ 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING *MODAL*/S,N,NOSORT2/S,N,NOH/S,N,NOP/FMODE $ 102 COND LBL16,NOH $ 103 COND LBL16A,NOSORT2 $ 104 SDR3 OUHVC1,,,,,/OUHVC2,,,,, $ 105 OFP OUHVC2,,,,,//S,N,CARDNO $ 106 XYTRAN XYCDB,OUHVC2,,,,/XYPLTFA/*FREQ*/*HSET*/S,N,PFILE/ S,N,CARDNO $ 107 XYPLOT XYPLTFA // $ 108 JUMP LBL16 $ 109 LABEL LBL16A $ 110 OFP OUHVC1,,,,,//S,N,CARDNO $ 111 LABEL LBL16 $ 112 COND LBL14,NOP $ 113 PARAM //*NOT*/NOMOD/V,Y,MODACC $ 114 COND LBDDRM,MODACC $ 115 DDR1 UHVF,PHIDH/UDV1F $ 118 EQUIV UDV1F,UPVC/NOA $ 119 COND LBLNOA,NOA $ 120 SDR1 USETD,,UDV1F,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ 121 LABEL LBLNOA $ 122 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST, XYCDB,PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUGV,,/*FREQ*/ S,N,NOSORT2 $ 123 COND LBL18,NOSORT2 $ 124 SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2, OEFC2, $ 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 125 JUMP P2A $ 126 LABEL LBDDRM $ 127 SDR1 USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIPH,,QPH/1/*DYNAMICS* $ 128 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,LAMA,QPH,PHIPH,EST,XYCDB,,/ ,IQP1,IPHIP1,IES1,IEF1,,,/*MMREIG*/S,N,NOSORT2 $ 129 SDR2 CASEXX,CSTM,MPT,,EQDYN,SILD,,,,PPF,,,EST,XYCDB,PPF,/OPPCA, ,,,,,,/*FREQ* $ 130 EQUIV OPPCA,OPPC1/MODACC $ 131 COND LBLSORT,NOSORT2 $ 132 SDR3 IQP1,IPHIP1,IES1,IEF1,OPPCA,/IQP2,IPHIP2,IES2,IEF2,OPPCB, $ 133 EQUIV OPPCB,OPPC2/MODACC $ 134 DDRMM CASEXX,UHVF,PPF,IPHIP2,IQP2,IES2,IEF2,XYCDB,EST,MPT,DIT/ ZUPVC2,ZQPC2,ZESC2,ZEFC2, $ 135 EQUIV ZUPVC2,OUPVC2/MODACC/ZQPC2,OQPC2/MODACC/ZESC2,OESC2/MODACC/ ZEFC2,OEFC2/MODACC $ 136 JUMP P2A $ 137 LABEL LBLSORT $ 138 DDRMM CASEXX,UHVF,PPF,IPHIP1,IQP1,IES1,IEF1,,EST,MPT,DIT/ ZUPVC1,ZQPC1,ZESC1,ZEFC1, $ 139 EQUIV ZUPVC1,OUPVC1/MODACC/ZQPC1,OQPC1/MODACC/ZESC1,OESC1/MODACC/ ZEFC1,OEFC1/MODACC $ 140 JUMP LBL18 $ 141 LABEL P2A $ 142 OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $ 143 XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ 144 XYPLOT XYPLTF// $ 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 145 COND LBL21,JUMPPLOT $ 146 PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,,,,/ PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 147 PRTMSG PLOTX2// $ 148 LABEL LBL21 $ 149 COND LBL14,NOPSDL $ 150 RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ 151 COND LBL14,NORD $ 152 XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ 153 XYPLOT XYPLTR// $ 154 JUMP LBL14 $ 155 LABEL LBL18 $ 156 OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $ 157 LABEL LBL14 $ 161 JUMP FINIS $ 162 LABEL ERROR2 $ 163 PRTPARM //-2/*MDLFRRD* $ 164 LABEL ERROR1 $ 165 PRTPARM //-1/*MDLFRRD* $ 166 LABEL ERROR4 $ 167 PRTPARM //-4/*MDLFRRD* $ 168 LABEL ERROR5 $ 169 PRTPARM //-5/*MDLFRRD* $ 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 170 LABEL ERROR6 $ 171 PRTPARM //-6/*MDLFRRD* $ 172 LABEL ERROR7 $ 173 PRTPARM //-7/*MDLFRRD* $ 174 LABEL FINIS $ 175 PURGE DUMMY/MINUS1 $ 176 END $ 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 CONTINUATION OF CHECKPOINT DICTIONARY 1, XVPS , FLAGS = 0, REEL = 1, FILE = 6 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 2, REENTER AT DMAP SEQUENCE NUMBER 6 3, GPL , FLAGS = 0, REEL = 1, FILE = 7 4, EQEXIN , FLAGS = 0, REEL = 1, FILE = 8 5, GPDT , FLAGS = 0, REEL = 1, FILE = 9 6, BGPDT , FLAGS = 0, REEL = 1, FILE = 10 7, SIL , FLAGS = 0, REEL = 1, FILE = 11 8, XVPS , FLAGS = 0, REEL = 1, FILE = 12 9, CSTM , FLAGS = 0, REEL = 0, FILE = 0 10, REENTER AT DMAP SEQUENCE NUMBER 7 11, XVPS , FLAGS = 0, REEL = 1, FILE = 13 12, MPTA , FLAGS = 0, REEL = 0, FILE = 0 13, REENTER AT DMAP SEQUENCE NUMBER 8 14, MPT , FLAGS = 0, REEL = 1, FILE = 14 15, XVPS , FLAGS = 0, REEL = 1, FILE = 15 16, REENTER AT DMAP SEQUENCE NUMBER 9 17, BGPDP , FLAGS = 0, REEL = 1, FILE = 16 18, SIP , FLAGS = 0, REEL = 1, FILE = 17 19, XVPS , FLAGS = 0, REEL = 1, FILE = 18 20, REENTER AT DMAP SEQUENCE NUMBER 10 21, ECT , FLAGS = 0, REEL = 1, FILE = 19 22, XVPS , FLAGS = 0, REEL = 1, FILE = 20 23, REENTER AT DMAP SEQUENCE NUMBER 12 24, XVPS , FLAGS = 0, REEL = 1, FILE = 21 25, PLTSETX , FLAGS = 0, REEL = 0, FILE = 0 26, PLTPAR , FLAGS = 0, REEL = 0, FILE = 0 27, GPSETS , FLAGS = 0, REEL = 0, FILE = 0 28, ELSETS , FLAGS = 0, REEL = 0, FILE = 0 29, REENTER AT DMAP SEQUENCE NUMBER 22 30, XVPS , FLAGS = 0, REEL = 1, FILE = 22 31, GPTT , FLAGS = 0, REEL = 0, FILE = 0 32, REENTER AT DMAP SEQUENCE NUMBER 23 33, EST , FLAGS = 0, REEL = 1, FILE = 23 34, GEI , FLAGS = 0, REEL = 1, FILE = 24 35, GPECT , FLAGS = 0, REEL = 1, FILE = 25 36, XVPS , FLAGS = 0, REEL = 1, FILE = 26 37, MPTX , FLAGS = 0, REEL = 0, FILE = 0 38, PCOMPS , FLAGS = 0, REEL = 0, FILE = 0 39, EPTX , FLAGS = 0, REEL = 0, FILE = 0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 40, REENTER AT DMAP SEQUENCE NUMBER 24 41, MPT , FLAGS = 0, REEL = 1, FILE = 27 42, EPT , FLAGS = 0, REEL = 1, FILE = 28 43, XVPS , FLAGS = 0, REEL = 1, FILE = 29 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 3 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONM2 ELEMENTS (ELEMENT TYPE 30) STARTING WITH ID 11 44, REENTER AT DMAP SEQUENCE NUMBER 28 45, KELM , FLAGS = 0, REEL = 1, FILE = 30 46, KDICT , FLAGS = 0, REEL = 1, FILE = 31 47, MELM , FLAGS = 0, REEL = 1, FILE = 32 48, MDICT , FLAGS = 0, REEL = 1, FILE = 33 49, XVPS , FLAGS = 0, REEL = 1, FILE = 34 50, REENTER AT DMAP SEQUENCE NUMBER 29 51, XVPS , FLAGS = 0, REEL = 1, FILE = 35 52, KGGX , FLAGS = 0, REEL = 0, FILE = 0 53, REENTER AT DMAP SEQUENCE NUMBER 31 54, KGGX , FLAGS = 0, REEL = 1, FILE = 36 55, XVPS , FLAGS = 0, REEL = 1, FILE = 37 56, REENTER AT DMAP SEQUENCE NUMBER 32 57, XVPS , FLAGS = 0, REEL = 1, FILE = 38 58, KDICT , FLAGS = 0, REEL = 0, FILE = 0 59, KELM , FLAGS = 0, REEL = 0, FILE = 0 60, REENTER AT DMAP SEQUENCE NUMBER 35 61, MGG , FLAGS = 0, REEL = 1, FILE = 39 62, XVPS , FLAGS = 0, REEL = 1, FILE = 40 63, REENTER AT DMAP SEQUENCE NUMBER 36 64, XVPS , FLAGS = 0, REEL = 1, FILE = 41 65, MDICT , FLAGS = 0, REEL = 0, FILE = 0 66, MELM , FLAGS = 0, REEL = 0, FILE = 0 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 67, REENTER AT DMAP SEQUENCE NUMBER 38 68, OGPWG , FLAGS = 0, REEL = 1, FILE = 42 69, XVPS , FLAGS = 0, REEL = 1, FILE = 43 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 1.06920804D-01 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.06920804D-01 0.00000000D+00 0.00000000D+00 0.00000000D+00 1.06920806D+00 * * 0.00000000D+00 0.00000000D+00 1.06920804D-01 0.00000000D+00 -1.06920806D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 -1.06920806D+00 0.00000000D+00 1.43273880D+01 0.00000000D+00 * * 0.00000000D+00 1.06920806D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 1.43273880D+01 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 1.069208042D-01 0.000000000D+00 0.000000000D+00 0.000000000D+00 Y 1.069208042D-01 1.000000016D+01 0.000000000D+00 0.000000000D+00 Z 1.069208042D-01 1.000000016D+01 0.000000000D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 0.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 3.635307274D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 3.635307274D+00 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 0.000000000D+00 * * 3.635307274D+00 * * 3.635307274D+00 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 70, REENTER AT DMAP SEQUENCE NUMBER 41 71, XVPS , FLAGS = 0, REEL = 1, FILE = 44 72, KGG , FLAGS = 0, REEL = 0, FILE = 0 73, REENTER AT DMAP SEQUENCE NUMBER 43 74, KGG , FLAGS = 0, REEL = 1, FILE = 45 75, XVPS , FLAGS = 0, REEL = 1, FILE = 46 76, REENTER AT DMAP SEQUENCE NUMBER 45 77, GPST , FLAGS = 0, REEL = 1, FILE = 47 78, XVPS , FLAGS = 0, REEL = 1, FILE = 48 79, REENTER AT DMAP SEQUENCE NUMBER 47 80, USET , FLAGS = 0, REEL = 1, FILE = 49 81, XVPS , FLAGS = 0, REEL = 1, FILE = 50 82, RG , FLAGS = 0, REEL = 0, FILE = 0 83, ASET , FLAGS = 0, REEL = 0, FILE = 0 84, OGPST , FLAGS = 0, REEL = 0, FILE = 0 85, REENTER AT DMAP SEQUENCE NUMBER 50 86, XVPS , FLAGS = 0, REEL = 1, FILE = 51 87, GM , FLAGS = 0, REEL = 0, FILE = 0 88, GMD , FLAGS = 0, REEL = 0, FILE = 0 89, GO , FLAGS = 0, REEL = 0, FILE = 0 90, GOD , FLAGS = 0, REEL = 0, FILE = 0 91, KFS , FLAGS = 0, REEL = 0, FILE = 0 92, PSF , FLAGS = 0, REEL = 0, FILE = 0 93, QPC , FLAGS = 0, REEL = 0, FILE = 0 94, KLR , FLAGS = 0, REEL = 0, FILE = 0 95, KRR , FLAGS = 0, REEL = 0, FILE = 0 96, MLR , FLAGS = 0, REEL = 0, FILE = 0 97, MRR , FLAGS = 0, REEL = 0, FILE = 0 98, DM , FLAGS = 0, REEL = 0, FILE = 0 99, MR , FLAGS = 0, REEL = 0, FILE = 0 100, MDD , FLAGS = 0, REEL = 0, FILE = 0 101, REENTER AT DMAP SEQUENCE NUMBER 51 102, KGG , FLAGS = 4, REEL = 1, FILE = 45 103, KNN , FLAGS = 4, REEL = 1, FILE = 45 104, MGG , FLAGS = 4, REEL = 1, FILE = 39 105, MNN , FLAGS = 4, REEL = 1, FILE = 39 106, XVPS , FLAGS = 0, REEL = 1, FILE = 52 107, REENTER AT DMAP SEQUENCE NUMBER 56 108, XVPS , FLAGS = 0, REEL = 1, FILE = 53 109, KFF , FLAGS = 0, REEL = 0, FILE = 0 110, MFF , FLAGS = 0, REEL = 0, FILE = 0 111, REENTER AT DMAP SEQUENCE NUMBER 58 112, KFF , FLAGS = 0, REEL = 1, FILE = 54 113, KFS , FLAGS = 0, REEL = 1, FILE = 55 114, MFF , FLAGS = 0, REEL = 1, FILE = 56 115, XVPS , FLAGS = 0, REEL = 1, FILE = 57 116, REENTER AT DMAP SEQUENCE NUMBER 60 117, KFF , FLAGS = 4, REEL = 1, FILE = 54 118, KAA , FLAGS = 4, REEL = 1, FILE = 54 119, XVPS , FLAGS = 0, REEL = 1, FILE = 58 120, REENTER AT DMAP SEQUENCE NUMBER 61 121, MFF , FLAGS = 4, REEL = 1, FILE = 56 122, MAA , FLAGS = 4, REEL = 1, FILE = 56 123, XVPS , FLAGS = 0, REEL = 1, FILE = 59 124, REENTER AT DMAP SEQUENCE NUMBER 66 125, KLL , FLAGS = 4, REEL = 1, FILE = 54 126, XVPS , FLAGS = 0, REEL = 1, FILE = 60 127, REENTER AT DMAP SEQUENCE NUMBER 78 128, GPLD , FLAGS = 0, REEL = 1, FILE = 61 129, SILD , FLAGS = 0, REEL = 1, FILE = 62 130, USETD , FLAGS = 0, REEL = 1, FILE = 63 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 131, DLT , FLAGS = 0, REEL = 1, FILE = 64 132, PSDL , FLAGS = 0, REEL = 1, FILE = 65 133, FRL , FLAGS = 0, REEL = 1, FILE = 66 134, EED , FLAGS = 0, REEL = 1, FILE = 67 135, EQDYN , FLAGS = 0, REEL = 1, FILE = 68 136, XVPS , FLAGS = 0, REEL = 1, FILE = 69 137, TFPOOL , FLAGS = 0, REEL = 0, FILE = 0 138, REENTER AT DMAP SEQUENCE NUMBER 80 139, XVPS , FLAGS = 0, REEL = 1, FILE = 70 140, UEVF , FLAGS = 0, REEL = 0, FILE = 0 141, REENTER AT DMAP SEQUENCE NUMBER 81 142, XVPS , FLAGS = 0, REEL = 1, FILE = 71 3 ROOTS BELOW 1.977079E+07 4 ROOTS BELOW 2.504728E+07 2 ROOTS BELOW 7.947336E+06 1 ROOTS BELOW 9.148082E+05 2 ROOTS BELOW 1.593585E+06 5 ROOTS BELOW 6.055407E+07 143, REENTER AT DMAP SEQUENCE NUMBER 83 144, LAMA , FLAGS = 0, REEL = 1, FILE = 72 145, PHIA , FLAGS = 0, REEL = 1, FILE = 73 146, MI , FLAGS = 0, REEL = 1, FILE = 74 147, OEIGS , FLAGS = 0, REEL = 1, FILE = 75 148, XVPS , FLAGS = 0, REEL = 1, FILE = 76 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 5 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 6 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 38 0 REASON FOR TERMINATION . . . . . . . . . . . 7* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 1 OR MORE ROOT OUTSIDE FR.RANGE. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 5 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 4 9.829971E+04 3.135278E+02 4.989950E+01 1.000000E+00 9.829971E+04 2 3 1.572445E+06 1.253972E+03 1.995758E+02 1.000000E+00 1.572445E+06 3 2 7.951687E+06 2.819874E+03 4.487968E+02 1.000000E+00 7.951687E+06 4 1 2.504079E+07 5.004078E+03 7.964236E+02 1.000000E+00 2.504079E+07 5 5 6.054949E+07 7.781355E+03 1.238441E+03 1.000000E+00 6.054949E+07 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 MATRIX PHIA (GINO NAME 101 ) IS A S.P.REAL 5 COLUMN X 30 ROW RECTANG MATRIX. 0COLUMN 1 ROWS 1 THRU 30 -------------------------------------------------- -6.79356E-01 5.49235E-18 1.33653E+00 -6.46080E-01 1.08510E-17 2.54216E+00 -5.49562E-01 1.60436E-17 3.49894E+00 -3.99299E-01 2.08382E-17 4.11330E+00 -2.09951E-01 2.51160E-17 4.32501E+00 -2.03680E-08 2.87707E-17 4.11330E+00 2.09951E-01 3.17118E-17 3.49894E+00 3.99299E-01 3.38663E-17 2.54216E+00 5.49562E-01 3.51808E-17 1.33653E+00 6.46080E-01 3.56226E-17 6.79356E-01 0COLUMN 2 ROWS 1 THRU 30 -------------------------------------------------- -1.35750E+00 1.09026E-30 2.54216E+00 -1.09824E+00 2.15399E-30 4.11330E+00 -4.19490E-01 3.18474E-30 4.11330E+00 4.19490E-01 4.13650E-30 2.54216E+00 1.09824E+00 4.98566E-30 -4.00243E-08 1.35750E+00 5.71114E-30 -2.54216E+00 1.09824E+00 6.29497E-30 -4.11330E+00 4.19490E-01 6.72264E-30 -4.11330E+00 -4.19490E-01 6.98357E-30 -2.54216E+00 -1.09824E+00 7.07127E-30 -1.35750E+00 0COLUMN 3 ROWS 1 THRU 30 -------------------------------------------------- 2.02817E+00 1.79053E-26 -3.49898E+00 1.19213E+00 3.53748E-26 -4.11330E+00 -6.26739E-01 5.23028E-26 -1.33649E+00 -1.92891E+00 6.79334E-26 2.54216E+00 -1.64082E+00 8.18790E-26 4.32498E+00 -8.99271E-09 9.37936E-26 2.54216E+00 1.64082E+00 1.03382E-25 -1.33649E+00 1.92891E+00 1.10405E-25 -4.11330E+00 6.26739E-01 1.14691E-25 -3.49898E+00 -1.19213E+00 1.16131E-25 -2.02817E+00 0COLUMN 4 ROWS 1 THRU 30 -------------------------------------------------- 2.67211E+00 2.78950E-22 -4.11330E+00 8.25726E-01 5.51112E-22 -2.54216E+00 -2.16178E+00 8.14837E-22 2.54216E+00 -2.16178E+00 1.05835E-21 4.11330E+00 8.25727E-01 1.27561E-21 2.69007E-07 2.67211E+00 1.46123E-21 -4.11330E+00 8.25728E-01 1.61061E-21 -2.54216E+00 -2.16178E+00 1.72003E-21 2.54216E+00 -2.16178E+00 1.78679E-21 4.11330E+00 8.25727E-01 1.80923E-21 2.67211E+00 0COLUMN 5 ROWS 1 THRU 30 -------------------------------------------------- 3.24373E+00 1.20156E-17 -4.32497E+00 -1.06180E-05 2.37388E-17 1.97822E-05 -3.24374E+00 3.50986E-17 4.32501E+00 -4.11783E-06 4.55878E-17 3.50060E-05 3.24373E+00 5.49462E-17 -4.32494E+00 5.57132E-07 6.29417E-17 3.35333E-05 -3.24373E+00 6.93759E-17 4.32501E+00 2.95807E-06 7.40893E-17 2.14562E-05 3.24374E+00 7.69649E-17 -4.32497E+00 5.49087E-06 7.79315E-17 -3.24373E+00 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 30 0THE DENSITY OF THIS MATRIX IS 100.00 PERCENT. 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 149, REENTER AT DMAP SEQUENCE NUMBER 90 150, XVPS , FLAGS = 0, REEL = 1, FILE = 77 151, OUHVC1 , FLAGS = 0, REEL = 0, FILE = 0 152, OUHVC2 , FLAGS = 0, REEL = 0, FILE = 0 153, XYPLTFA , FLAGS = 0, REEL = 0, FILE = 0 154, OPPC1 , FLAGS = 0, REEL = 0, FILE = 0 155, OQPC1 , FLAGS = 0, REEL = 0, FILE = 0 156, OUPVC1 , FLAGS = 0, REEL = 0, FILE = 0 157, OESC1 , FLAGS = 0, REEL = 0, FILE = 0 158, OEFC1 , FLAGS = 0, REEL = 0, FILE = 0 159, OPPC2 , FLAGS = 0, REEL = 0, FILE = 0 160, OQPC2 , FLAGS = 0, REEL = 0, FILE = 0 161, OUPVC2 , FLAGS = 0, REEL = 0, FILE = 0 162, OESC2 , FLAGS = 0, REEL = 0, FILE = 0 163, OEFC2 , FLAGS = 0, REEL = 0, FILE = 0 164, XYPLTF , FLAGS = 0, REEL = 0, FILE = 0 165, PSDF , FLAGS = 0, REEL = 0, FILE = 0 166, AUTO , FLAGS = 0, REEL = 0, FILE = 0 167, XYPLTR , FLAGS = 0, REEL = 0, FILE = 0 168, K2PP , FLAGS = 0, REEL = 0, FILE = 0 169, M2PP , FLAGS = 0, REEL = 0, FILE = 0 170, B2PP , FLAGS = 0, REEL = 0, FILE = 0 171, K2DD , FLAGS = 0, REEL = 0, FILE = 0 172, M2DD , FLAGS = 0, REEL = 0, FILE = 0 173, B2DD , FLAGS = 0, REEL = 0, FILE = 0 174, OPPCA , FLAGS = 0, REEL = 0, FILE = 0 175, IQP1 , FLAGS = 0, REEL = 0, FILE = 0 176, IPHIP1 , FLAGS = 0, REEL = 0, FILE = 0 177, IES1 , FLAGS = 0, REEL = 0, FILE = 0 178, IEF1 , FLAGS = 0, REEL = 0, FILE = 0 179, OPPCB , FLAGS = 0, REEL = 0, FILE = 0 180, IQP2 , FLAGS = 0, REEL = 0, FILE = 0 181, IPHIP2 , FLAGS = 0, REEL = 0, FILE = 0 182, IES2 , FLAGS = 0, REEL = 0, FILE = 0 183, IEF2 , FLAGS = 0, REEL = 0, FILE = 0 184, ZQPC2 , FLAGS = 0, REEL = 0, FILE = 0 185, ZUPVC2 , FLAGS = 0, REEL = 0, FILE = 0 186, ZESC2 , FLAGS = 0, REEL = 0, FILE = 0 187, ZEFC2 , FLAGS = 0, REEL = 0, FILE = 0 188, ZQPC1 , FLAGS = 0, REEL = 0, FILE = 0 189, ZUPVC1 , FLAGS = 0, REEL = 0, FILE = 0 190, ZESC1 , FLAGS = 0, REEL = 0, FILE = 0 191, ZEFC1 , FLAGS = 0, REEL = 0, FILE = 0 192, REENTER AT DMAP SEQUENCE NUMBER 91 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 193, CASEXX , FLAGS = 0, REEL = 1, FILE = 78 194, XVPS , FLAGS = 0, REEL = 1, FILE = 79 195, REENTER AT DMAP SEQUENCE NUMBER 92 196, XVPS , FLAGS = 0, REEL = 1, FILE = 80 197, REENTER AT DMAP SEQUENCE NUMBER 93 198, XVPS , FLAGS = 0, REEL = 1, FILE = 81 199, REENTER AT DMAP SEQUENCE NUMBER 95 200, MDD , FLAGS = 4, REEL = 1, FILE = 56 201, XVPS , FLAGS = 0, REEL = 1, FILE = 82 202, REENTER AT DMAP SEQUENCE NUMBER 96 203, XVPS , FLAGS = 0, REEL = 1, FILE = 83 204, REENTER AT DMAP SEQUENCE NUMBER 97 205, MHH , FLAGS = 0, REEL = 1, FILE = 84 206, BHH , FLAGS = 0, REEL = 1, FILE = 85 207, KHH , FLAGS = 0, REEL = 1, FILE = 86 208, PHIDH , FLAGS = 0, REEL = 1, FILE = 87 209, XVPS , FLAGS = 0, REEL = 1, FILE = 88 210, REENTER AT DMAP SEQUENCE NUMBER 100 211, UHVF , FLAGS = 0, REEL = 1, FILE = 89 212, PSF , FLAGS = 0, REEL = 1, FILE = 90 213, PDF , FLAGS = 0, REEL = 1, FILE = 91 214, PPF , FLAGS = 0, REEL = 1, FILE = 92 215, XVPS , FLAGS = 0, REEL = 1, FILE = 93 216, REENTER AT DMAP SEQUENCE NUMBER 101 217, PDF , FLAGS = 0, REEL = 1, FILE = 94 218, XVPS , FLAGS = 0, REEL = 1, FILE = 95 219, REENTER AT DMAP SEQUENCE NUMBER 102 220, XVPS , FLAGS = 0, REEL = 1, FILE = 96 221, REENTER AT DMAP SEQUENCE NUMBER 128 222, PHIPH , FLAGS = 0, REEL = 1, FILE = 97 223, QPH , FLAGS = 0, REEL = 1, FILE = 98 224, XVPS , FLAGS = 0, REEL = 1, FILE = 99 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 225, REENTER AT DMAP SEQUENCE NUMBER 129 226, IPHIP1 , FLAGS = 0, REEL = 1, FILE = 100 227, IEF1 , FLAGS = 0, REEL = 1, FILE = 101 228, XVPS , FLAGS = 0, REEL = 1, FILE = 102 0*** USER WARNING MESSAGE 2078, SDR2 OUTPUT DATA BLOCK NO. 3 IS PURGED 0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED 229, REENTER AT DMAP SEQUENCE NUMBER 130 230, OPPCA , FLAGS = 0, REEL = 1, FILE = 103 231, XVPS , FLAGS = 0, REEL = 1, FILE = 104 232, REENTER AT DMAP SEQUENCE NUMBER 131 233, OPPCA , FLAGS = 4, REEL = 1, FILE = 103 234, OPPC1 , FLAGS = 4, REEL = 1, FILE = 103 235, XVPS , FLAGS = 0, REEL = 1, FILE = 105 236, REENTER AT DMAP SEQUENCE NUMBER 133 237, IPHIP2 , FLAGS = 0, REEL = 1, FILE = 106 238, IEF2 , FLAGS = 0, REEL = 1, FILE = 107 239, OPPCB , FLAGS = 0, REEL = 1, FILE = 108 240, XVPS , FLAGS = 0, REEL = 1, FILE = 109 241, REENTER AT DMAP SEQUENCE NUMBER 134 242, OPPCB , FLAGS = 4, REEL = 1, FILE = 108 243, OPPC2 , FLAGS = 4, REEL = 1, FILE = 108 244, XVPS , FLAGS = 0, REEL = 1, FILE = 110 245, REENTER AT DMAP SEQUENCE NUMBER 135 246, ZUPVC2 , FLAGS = 0, REEL = 1, FILE = 111 247, ZEFC2 , FLAGS = 0, REEL = 1, FILE = 112 248, XVPS , FLAGS = 0, REEL = 1, FILE = 113 249, REENTER AT DMAP SEQUENCE NUMBER 136 250, ZUPVC2 , FLAGS = 4, REEL = 1, FILE = 111 251, OUPVC2 , FLAGS = 4, REEL = 1, FILE = 111 252, ZEFC2 , FLAGS = 4, REEL = 1, FILE = 112 253, OEFC2 , FLAGS = 4, REEL = 1, FILE = 112 254, XVPS , FLAGS = 0, REEL = 1, FILE = 114 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 6 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 5.000000E+00 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.500000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 2.000000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 2.500000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 3.000000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 3.500000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 4.000000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 4.500000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 5.000000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 5.500000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 6.000000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 6.500000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 7.000000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 6 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 8.000000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 8.500001E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 9.000000E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 9.500001E+01 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.000000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.050000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.100000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.150000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.200000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.250000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.300000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.350000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.400000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.450000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 6 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.550000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.600000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.650000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.700000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.750000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.800000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.850000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.900000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 1.950000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 0 2.000000E+02 G 0.0 0.0 1.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660255E+01 0.0 0.0 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 6 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.500000E+02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 5.000000E+00 G 0.0 0.0 1.484811E+02 0.0 0.0 0.0 0.0 0.0 -1.736310E+01 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 1.439705E+02 0.0 0.0 0.0 0.0 0.0 -3.419874E+01 0.0 0.0 0.0 0 1.500000E+01 G 0.0 0.0 1.366052E+02 0.0 0.0 0.0 0.0 0.0 -4.999547E+01 0.0 0.0 0.0 0 2.000000E+01 G 0.0 0.0 1.266089E+02 0.0 0.0 0.0 0.0 0.0 -6.427341E+01 0.0 0.0 0.0 0 2.500000E+01 G 0.0 0.0 1.142854E+02 0.0 0.0 0.0 0.0 0.0 -7.659884E+01 0.0 0.0 0.0 0 3.000000E+01 G 0.0 0.0 1.000091E+02 0.0 0.0 0.0 0.0 0.0 -8.659731E+01 0.0 0.0 0.0 0 3.500000E+01 G 0.0 0.0 8.421349E+01 0.0 0.0 0.0 0.0 0.0 -9.396508E+01 0.0 0.0 0.0 0 4.000000E+01 G 0.0 0.0 6.737856E+01 0.0 0.0 0.0 0.0 0.0 -9.847836E+01 0.0 0.0 0.0 0 4.500000E+01 G 0.0 0.0 5.001569E+01 0.0 0.0 0.0 0.0 0.0 -1.000000E+02 0.0 0.0 0.0 0 5.000000E+01 G 0.0 0.0 3.265236E+01 0.0 0.0 0.0 0.0 0.0 -9.848380E+01 0.0 0.0 0.0 0 5.500000E+01 G 0.0 0.0 1.581602E+01 0.0 0.0 0.0 0.0 0.0 -9.397582E+01 0.0 0.0 0.0 0 6.000000E+01 G 0.0 0.0 1.812744E-02 0.0 0.0 0.0 0.0 0.0 -8.661300E+01 0.0 0.0 0.0 0 6.500000E+01 G 0.0 0.0 -1.426140E+01 0.0 0.0 0.0 0.0 0.0 -7.661902E+01 0.0 0.0 0.0 0 7.000000E+01 G 0.0 0.0 -2.658875E+01 0.0 0.0 0.0 0.0 0.0 -6.429746E+01 0.0 0.0 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 6 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 0.0 0.0 -3.658945E+01 0.0 0.0 0.0 0.0 0.0 -5.002265E+01 0.0 0.0 0.0 0 8.000000E+01 G 0.0 0.0 -4.395972E+01 0.0 0.0 0.0 0.0 0.0 -3.422823E+01 0.0 0.0 0.0 0 8.500001E+01 G 0.0 0.0 -4.847563E+01 0.0 0.0 0.0 0.0 0.0 -1.739399E+01 0.0 0.0 0.0 0 9.000000E+01 G 0.0 0.0 -4.999999E+01 0.0 0.0 0.0 0.0 0.0 -3.139098E-02 0.0 0.0 0.0 0 9.500001E+01 G 0.0 0.0 -4.848653E+01 0.0 0.0 0.0 0.0 0.0 1.733219E+01 0.0 0.0 0.0 0 1.000000E+02 G 0.0 0.0 -4.398119E+01 0.0 0.0 0.0 0.0 0.0 3.416924E+01 0.0 0.0 0.0 0 1.050000E+02 G 0.0 0.0 -3.662084E+01 0.0 0.0 0.0 0.0 0.0 4.996828E+01 0.0 0.0 0.0 0 1.100000E+02 G 0.0 0.0 -2.662911E+01 0.0 0.0 0.0 0.0 0.0 6.424935E+01 0.0 0.0 0.0 0 1.150000E+02 G 0.0 0.0 -1.430950E+01 0.0 0.0 0.0 0.0 0.0 7.657864E+01 0.0 0.0 0.0 0 1.200000E+02 G 0.0 0.0 -3.624725E-02 0.0 0.0 0.0 0.0 0.0 8.658160E+01 0.0 0.0 0.0 0 1.250000E+02 G 0.0 0.0 1.575704E+01 0.0 0.0 0.0 0.0 0.0 9.395435E+01 0.0 0.0 0.0 0 1.300000E+02 G 0.0 0.0 3.259053E+01 0.0 0.0 0.0 0.0 0.0 9.847289E+01 0.0 0.0 0.0 0 1.350000E+02 G 0.0 0.0 4.995289E+01 0.0 0.0 0.0 0.0 0.0 9.999998E+01 0.0 0.0 0.0 0 1.400000E+02 G 0.0 0.0 6.731673E+01 0.0 0.0 0.0 0.0 0.0 9.848924E+01 0.0 0.0 0.0 0 1.450000E+02 G 0.0 0.0 8.415446E+01 0.0 0.0 0.0 0.0 0.0 9.398655E+01 0.0 0.0 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 6 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 0.0 0.0 9.995468E+01 0.0 0.0 0.0 0.0 0.0 8.662868E+01 0.0 0.0 0.0 0 1.550000E+02 G 0.0 0.0 1.142373E+02 0.0 0.0 0.0 0.0 0.0 7.663920E+01 0.0 0.0 0.0 0 1.600000E+02 G 0.0 0.0 1.265686E+02 0.0 0.0 0.0 0.0 0.0 6.432150E+01 0.0 0.0 0.0 0 1.650000E+02 G 0.0 0.0 1.365737E+02 0.0 0.0 0.0 0.0 0.0 5.004985E+01 0.0 0.0 0.0 0 1.700000E+02 G 0.0 0.0 1.439490E+02 0.0 0.0 0.0 0.0 0.0 3.425768E+01 0.0 0.0 0.0 0 1.750000E+02 G 0.0 0.0 1.484702E+02 0.0 0.0 0.0 0.0 0.0 1.742490E+01 0.0 0.0 0.0 0 1.800000E+02 G 0.0 0.0 1.500000E+02 0.0 0.0 0.0 0.0 0.0 6.278196E-02 0.0 0.0 0.0 0 1.850000E+02 G 0.0 0.0 1.484920E+02 0.0 0.0 0.0 0.0 0.0 -1.730124E+01 0.0 0.0 0.0 0 1.900000E+02 G 0.0 0.0 1.439919E+02 0.0 0.0 0.0 0.0 0.0 -3.413974E+01 0.0 0.0 0.0 0 1.950000E+02 G 0.0 0.0 1.366365E+02 0.0 0.0 0.0 0.0 0.0 -4.994107E+01 0.0 0.0 0.0 0 2.000000E+02 G 0.0 0.0 1.266493E+02 0.0 0.0 0.0 0.0 0.0 -6.422531E+01 0.0 0.0 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 6 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 5.000000E+00 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.000000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.500000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 2.000000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 2.500000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 3.000000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 3.500000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 4.000000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 4.500000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 5.000000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 5.500000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 6.000000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 6.500000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 7.000000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 6 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 8.000000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 8.500001E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 9.000000E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 9.500001E+01 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.000000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.050000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.100000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.150000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.200000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.250000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.300000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.350000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.400000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.450000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 6 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.550000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.600000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.650000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.700000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.750000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.800000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.850000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.900000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 1.950000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 0 2.000000E+02 G 0.0 0.0 2.000000E+02 0.0 0.0 0.0 0.0 0.0 8.660254E+01 0.0 0.0 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 6 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 2.263311E-19 0.0 4.290329E-02 0.0 1.977287E-10 0.0 22.9204 0.0 22.8839 0.0 203.4038 0.0 0 5.000000E+00 G 2.288209E-19 0.0 4.333244E-02 0.0 1.997519E-10 0.0 22.8046 0.0 22.7685 0.0 203.2834 0.0 0 1.000000E+01 G 2.362125E-19 0.0 4.467375E-02 0.0 2.060750E-10 0.0 22.6816 0.0 22.6467 0.0 203.1463 0.0 0 1.500000E+01 G 2.494978E-19 0.0 4.710654E-02 0.0 2.175422E-10 0.0 22.5425 0.0 22.5096 0.0 202.9836 0.0 0 2.000000E+01 G 2.927501E-19 0.0 5.100101E-02 0.0 2.358967E-10 0.0 22.3743 0.0 22.3445 0.0 202.7823 0.0 0 2.500000E+01 G 3.280549E-19 0.0 5.708125E-02 0.0 2.645479E-10 0.0 22.1555 0.0 22.1299 0.0 202.5204 0.0 0 3.000000E+01 G 3.847618E-19 0.0 6.684714E-02 0.0 3.105581E-10 0.0 21.8438 0.0 21.8237 0.0 202.1555 0.0 0 3.500000E+01 G 4.835186E-19 0.0 8.385430E-02 0.0 3.906693E-10 0.0 21.3419 0.0 21.3285 0.0 201.5899 0.0 0 4.000000E+01 G 6.868304E-19 0.0 1.188662E-01 0.0 5.555621E-10 0.0 20.3572 0.0 20.3521 0.0 200.5309 0.0 0 4.500000E+01 G 1.309877E-18 0.0 2.261569E-01 0.0 1.060792E-09 0.0 17.4144 0.0 17.4192 0.0 197.5025 0.0 0 5.000000E+01 G 1.204430E-17 0.0 2.073971E+00 0.0 9.765926E-09 0.0 281.5223 0.0 281.5387 0.0 101.5132 0.0 0 5.500000E+01 G 1.137639E-18 0.0 1.953149E-01 0.0 9.235634E-10 0.0 208.7662 0.0 208.7959 0.0 28.6475 0.0 0 6.000000E+01 G 5.504119E-19 0.0 9.418759E-02 0.0 4.473616E-10 0.0 206.0019 0.0 206.0472 0.0 25.7611 0.0 0 6.500000E+01 G 3.524060E-19 0.0 6.008779E-02 0.0 2.867334E-10 0.0 205.0573 0.0 205.1203 0.0 24.6807 0.0 0 7.000000E+01 G 2.307831E-19 0.0 4.310098E-02 0.0 2.066691E-10 0.0 204.5774 0.0 204.6607 0.0 24.0509 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 6 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 1.778482E-19 0.0 3.299710E-02 0.0 1.590019E-10 0.0 204.2853 0.0 204.3914 0.0 23.5936 0.0 0 8.000000E+01 G 1.428291E-19 0.0 2.633717E-02 0.0 1.275384E-10 0.0 204.0878 0.0 204.2196 0.0 23.2145 0.0 0 8.500001E+01 G 1.180805E-19 0.0 2.164162E-02 0.0 1.053111E-10 0.0 203.9447 0.0 204.1053 0.0 22.8722 0.0 0 9.000000E+01 G 0.0 0.0 1.816947E-02 0.0 8.882947E-11 0.0 0.0 0.0 204.0286 0.0 22.5449 0.0 0 9.500001E+01 G 0.0 0.0 1.550897E-02 0.0 7.615268E-11 0.0 0.0 0.0 203.9785 0.0 22.2197 0.0 0 1.000000E+02 G 0.0 0.0 1.341328E-02 0.0 6.611611E-11 0.0 0.0 0.0 203.9487 0.0 21.8876 0.0 0 1.050000E+02 G 0.0 0.0 1.172557E-02 0.0 5.797833E-11 0.0 0.0 0.0 203.9352 0.0 21.5416 0.0 0 1.100000E+02 G 0.0 0.0 1.034155E-02 0.0 5.124459E-11 0.0 0.0 0.0 203.9355 0.0 21.1756 0.0 0 1.150000E+02 G 0.0 0.0 9.189215E-03 0.0 4.557129E-11 0.0 0.0 0.0 203.9480 0.0 20.7837 0.0 0 1.200000E+02 G 0.0 0.0 8.217335E-03 0.0 4.071147E-11 0.0 0.0 0.0 203.9717 0.0 20.3596 0.0 0 1.250000E+02 G 0.0 0.0 7.388483E-03 0.0 3.648160E-11 0.0 0.0 0.0 204.0062 0.0 19.8961 0.0 0 1.300000E+02 G 0.0 0.0 6.674713E-03 0.0 3.274073E-11 0.0 0.0 0.0 204.0513 0.0 19.3849 0.0 0 1.350000E+02 G 0.0 0.0 6.054765E-03 0.0 2.937645E-11 0.0 0.0 0.0 204.1071 0.0 18.8155 0.0 0 1.400000E+02 G 0.0 0.0 5.512181E-03 0.0 2.629492E-11 0.0 0.0 0.0 204.1740 0.0 18.1749 0.0 0 1.450000E+02 G 0.0 0.0 5.034046E-03 0.0 2.341306E-11 0.0 0.0 0.0 204.2523 0.0 17.4465 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 6 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 0.0 0.0 4.610086E-03 0.0 2.065146E-11 0.0 0.0 0.0 204.3428 0.0 16.6091 0.0 0 1.550000E+02 G 0.0 0.0 4.232032E-03 0.0 1.792671E-11 0.0 0.0 0.0 204.4465 0.0 15.6365 0.0 0 1.600000E+02 G 0.0 0.0 3.893162E-03 0.0 1.514119E-11 0.0 0.0 0.0 204.5644 0.0 14.4996 0.0 0 1.650000E+02 G 0.0 0.0 3.587958E-03 0.0 1.216730E-11 0.0 0.0 0.0 204.6979 0.0 13.1844 0.0 0 1.700000E+02 G 0.0 0.0 3.311852E-03 0.0 8.819674E-12 0.0 0.0 0.0 204.8486 0.0 11.7955 0.0 0 1.750000E+02 G 0.0 0.0 3.061033E-03 0.0 4.804388E-12 0.0 0.0 0.0 205.0183 0.0 11.4751 0.0 0 1.800000E+02 G 0.0 0.0 2.832296E-03 0.0 6.839879E-13 0.0 0.0 0.0 205.2092 0.0 132.8233 0.0 0 1.850000E+02 G 0.0 0.0 2.622930E-03 0.0 7.923606E-12 0.0 0.0 0.0 205.4240 0.0 170.5033 0.0 0 1.900000E+02 G 0.0 0.0 2.430628E-03 0.0 1.952810E-11 0.0 0.0 0.0 205.6658 0.0 161.2411 0.0 0 1.950000E+02 G 0.0 0.0 2.253416E-03 0.0 3.760130E-11 0.0 0.0 0.0 205.9380 0.0 141.0956 0.0 0 2.000000E+02 G 0.0 0.0 2.089594E-03 0.0 5.463362E-11 0.0 0.0 0.0 206.2451 0.0 108.1429 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 3.485278E-19 0.0 0.0 0.0 6.371139E-03 0.0 22.9204 0.0 0.0 0.0 23.0357 0.0 0 5.000000E+00 G 3.520619E-19 0.0 0.0 0.0 6.438503E-03 0.0 22.8046 0.0 0.0 0.0 22.9187 0.0 0 1.000000E+01 G 3.631077E-19 0.0 0.0 0.0 6.649052E-03 0.0 22.6816 0.0 0.0 0.0 22.7918 0.0 0 1.500000E+01 G 3.831421E-19 0.0 0.0 0.0 7.030953E-03 0.0 22.5425 0.0 0.0 0.0 22.6457 0.0 0 2.000000E+01 G 4.152142E-19 0.0 0.0 0.0 7.642348E-03 0.0 22.3743 0.0 0.0 0.0 22.4675 0.0 0 2.500000E+01 G 4.652878E-19 0.0 0.0 0.0 8.596970E-03 0.0 22.1555 0.0 0.0 0.0 22.2351 0.0 0 3.000000E+01 G 5.457164E-19 0.0 0.0 0.0 1.013040E-02 0.0 21.8438 0.0 0.0 0.0 21.9061 0.0 0 3.500000E+01 G 6.857853E-19 0.0 0.0 0.0 1.280114E-02 0.0 21.3419 0.0 0.0 0.0 21.3829 0.0 0 4.000000E+01 G 9.741471E-19 0.0 0.0 0.0 1.829984E-02 0.0 20.3572 0.0 0.0 0.0 20.3728 0.0 0 4.500000E+01 G 1.857828E-18 0.0 0.0 0.0 3.515197E-02 0.0 17.4144 0.0 0.0 0.0 17.4002 0.0 0 5.000000E+01 G 1.708271E-17 0.0 0.0 0.0 3.258202E-01 0.0 281.5223 0.0 0.0 0.0 281.4737 0.0 0 5.500000E+01 G 1.613540E-18 0.0 0.0 0.0 3.104773E-02 0.0 208.7662 0.0 0.0 0.0 208.6783 0.0 0 6.000000E+01 G 7.806617E-19 0.0 0.0 0.0 1.516667E-02 0.0 206.0019 0.0 0.0 0.0 205.8700 0.0 0 6.500000E+01 G 4.998254E-19 0.0 0.0 0.0 9.812208E-03 0.0 205.0573 0.0 0.0 0.0 204.8761 0.0 0 7.000000E+01 G 3.599350E-19 0.0 0.0 0.0 7.145513E-03 0.0 204.5774 0.0 0.0 0.0 204.3419 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 2.767347E-19 0.0 0.0 0.0 5.559928E-03 0.0 204.2853 0.0 0.0 0.0 203.9901 0.0 0 8.000000E+01 G 2.025778E-19 0.0 0.0 0.0 4.515345E-03 0.0 204.0878 0.0 0.0 0.0 203.7274 0.0 0 8.500001E+01 G 1.674763E-19 0.0 0.0 0.0 3.779391E-03 0.0 203.9447 0.0 0.0 0.0 203.5135 0.0 0 9.000000E+01 G 1.414786E-19 0.0 0.0 0.0 3.235694E-03 0.0 203.8358 0.0 0.0 0.0 203.3282 0.0 0 9.500001E+01 G 1.215361E-19 0.0 0.0 0.0 2.819583E-03 0.0 203.7499 0.0 0.0 0.0 203.1601 0.0 0 1.000000E+02 G 0.0 0.0 0.0 0.0 2.492296E-03 0.0 0.0 0.0 0.0 0.0 203.0024 0.0 0 1.050000E+02 G 0.0 0.0 0.0 0.0 2.229203E-03 0.0 0.0 0.0 0.0 0.0 202.8507 0.0 0 1.100000E+02 G 0.0 0.0 0.0 0.0 2.013926E-03 0.0 0.0 0.0 0.0 0.0 202.7020 0.0 0 1.150000E+02 G 0.0 0.0 0.0 0.0 1.835163E-03 0.0 0.0 0.0 0.0 0.0 202.5542 0.0 0 1.200000E+02 G 0.0 0.0 0.0 0.0 1.684869E-03 0.0 0.0 0.0 0.0 0.0 202.4058 0.0 0 1.250000E+02 G 0.0 0.0 0.0 0.0 1.557170E-03 0.0 0.0 0.0 0.0 0.0 202.2556 0.0 0 1.300000E+02 G 0.0 0.0 0.0 0.0 1.447681E-03 0.0 0.0 0.0 0.0 0.0 202.1029 0.0 0 1.350000E+02 G 0.0 0.0 0.0 0.0 1.353068E-03 0.0 0.0 0.0 0.0 0.0 201.9469 0.0 0 1.400000E+02 G 0.0 0.0 0.0 0.0 1.270750E-03 0.0 0.0 0.0 0.0 0.0 201.7870 0.0 0 1.450000E+02 G 0.0 0.0 0.0 0.0 1.198706E-03 0.0 0.0 0.0 0.0 0.0 201.6228 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 0.0 0.0 0.0 0.0 1.135325E-03 0.0 0.0 0.0 0.0 0.0 201.4539 0.0 0 1.550000E+02 G 0.0 0.0 0.0 0.0 1.079316E-03 0.0 0.0 0.0 0.0 0.0 201.2799 0.0 0 1.600000E+02 G 0.0 0.0 0.0 0.0 1.029629E-03 0.0 0.0 0.0 0.0 0.0 201.1006 0.0 0 1.650000E+02 G 0.0 0.0 0.0 0.0 9.854039E-04 0.0 0.0 0.0 0.0 0.0 200.9155 0.0 0 1.700000E+02 G 0.0 0.0 0.0 0.0 9.459308E-04 0.0 0.0 0.0 0.0 0.0 200.7245 0.0 0 1.750000E+02 G 0.0 0.0 0.0 0.0 9.106190E-04 0.0 0.0 0.0 0.0 0.0 200.5272 0.0 0 1.800000E+02 G 0.0 0.0 0.0 0.0 8.789730E-04 0.0 0.0 0.0 0.0 0.0 200.3234 0.0 0 1.850000E+02 G 0.0 0.0 0.0 0.0 8.505759E-04 0.0 0.0 0.0 0.0 0.0 200.1128 0.0 0 1.900000E+02 G 0.0 0.0 0.0 0.0 8.250745E-04 0.0 0.0 0.0 0.0 0.0 199.8951 0.0 0 1.950000E+02 G 0.0 0.0 0.0 0.0 8.021687E-04 0.0 0.0 0.0 0.0 0.0 199.6699 0.0 0 2.000000E+02 G 0.0 0.0 0.0 0.0 7.816022E-04 0.0 0.0 0.0 0.0 0.0 199.4370 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 6 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 5.000000E+00 G 2.449874E-16 0.0 4.276741E+01 0.0 1.971472E-07 0.0 202.8046 0.0 202.7685 0.0 23.2834 0.0 0 1.000000E+01 G 1.010695E-15 0.0 1.763649E+02 0.0 8.135514E-07 0.0 202.6816 0.0 202.6467 0.0 23.1463 0.0 0 1.500000E+01 G 2.399535E-15 0.0 4.184307E+02 0.0 1.932350E-06 0.0 202.5425 0.0 202.5096 0.0 22.9837 0.0 0 2.000000E+01 G 4.622925E-15 0.0 8.053757E+02 0.0 3.725132E-06 0.0 202.3743 0.0 202.3445 0.0 22.7823 0.0 0 2.500000E+01 G 8.094431E-15 0.0 1.408423E+03 0.0 6.527458E-06 0.0 202.1555 0.0 202.1299 0.0 22.5204 0.0 0 3.000000E+01 G 1.367081E-14 0.0 2.375118E+03 0.0 1.103431E-05 0.0 201.8438 0.0 201.8237 0.0 22.1555 0.0 0 3.500000E+01 G 2.338347E-14 0.0 4.055283E+03 0.0 1.889318E-05 0.0 201.3418 0.0 201.3285 0.0 21.5899 0.0 0 4.000000E+01 G 4.338397E-14 0.0 7.508243E+03 0.0 3.509234E-05 0.0 200.3572 0.0 200.3521 0.0 20.5309 0.0 0 4.500000E+01 G 1.047165E-13 0.0 1.807984E+04 0.0 8.480375E-05 0.0 197.4144 0.0 197.4192 0.0 17.5025 0.0 0 5.000000E+01 G 1.188725E-12 0.0 2.046927E+05 0.0 9.638583E-04 0.0 101.5224 0.0 101.5387 0.0 281.5132 0.0 0 5.500000E+01 G 1.358594E-13 0.0 2.332494E+04 0.0 1.102940E-04 0.0 28.7662 0.0 28.7959 0.0 208.6475 0.0 0 6.000000E+01 G 7.822582E-14 0.0 1.338616E+04 0.0 6.358008E-05 0.0 26.0019 0.0 26.0473 0.0 205.7611 0.0 0 6.500000E+01 G 5.878002E-14 0.0 1.002242E+04 0.0 4.782607E-05 0.0 25.0573 0.0 25.1203 0.0 204.6807 0.0 0 7.000000E+01 G 4.909134E-14 0.0 8.337637E+03 0.0 3.997896E-05 0.0 24.5774 0.0 24.6607 0.0 204.0509 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 6 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 4.332823E-14 0.0 7.327539E+03 0.0 3.530893E-05 0.0 24.2853 0.0 24.3914 0.0 203.5935 0.0 0 8.000000E+01 G 3.952969E-14 0.0 6.654400E+03 0.0 3.222410E-05 0.0 24.0878 0.0 24.2196 0.0 203.2145 0.0 0 8.500001E+01 G 3.685186E-14 0.0 6.172874E+03 0.0 3.003806E-05 0.0 23.9447 0.0 24.1053 0.0 202.8722 0.0 0 9.000000E+01 G 3.487212E-14 0.0 5.810147E+03 0.0 2.840546E-05 0.0 23.8358 0.0 24.0286 0.0 202.5449 0.0 0 9.500001E+01 G 3.335555E-14 0.0 5.525735E+03 0.0 2.713265E-05 0.0 23.7499 0.0 23.9785 0.0 202.2197 0.0 0 1.000000E+02 G 3.216135E-14 0.0 5.295352E+03 0.0 2.610159E-05 0.0 23.6802 0.0 23.9487 0.0 201.8876 0.0 0 1.050000E+02 G 3.120004E-14 0.0 5.103551E+03 0.0 2.523505E-05 0.0 23.6224 0.0 23.9352 0.0 201.5416 0.0 0 1.100000E+02 G 3.041211E-14 0.0 4.940043E+03 0.0 2.447897E-05 0.0 23.5736 0.0 23.9355 0.0 201.1756 0.0 0 1.150000E+02 G 2.975650E-14 0.0 4.797709E+03 0.0 2.379287E-05 0.0 23.5317 0.0 23.9480 0.0 200.7837 0.0 0 1.200000E+02 G 2.920398E-14 0.0 4.671467E+03 0.0 2.314403E-05 0.0 23.4953 0.0 23.9717 0.0 200.3596 0.0 0 1.250000E+02 G 2.873319E-14 0.0 4.557588E+03 0.0 2.250369E-05 0.0 23.4634 0.0 24.0062 0.0 199.8961 0.0 0 1.300000E+02 G 2.832817E-14 0.0 4.453270E+03 0.0 2.184413E-05 0.0 23.4352 0.0 24.0513 0.0 199.3849 0.0 0 1.350000E+02 G 2.797683E-14 0.0 4.356368E+03 0.0 2.113619E-05 0.0 23.4100 0.0 24.1071 0.0 198.8155 0.0 0 1.400000E+02 G 2.766975E-14 0.0 4.265199E+03 0.0 2.034640E-05 0.0 23.3873 0.0 24.1739 0.0 198.1749 0.0 0 1.450000E+02 G 2.739958E-14 0.0 4.178428E+03 0.0 1.943363E-05 0.0 23.3668 0.0 24.2523 0.0 197.4465 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 6 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 2.716046E-14 0.0 4.094976E+03 0.0 1.834396E-05 0.0 23.3482 0.0 24.3428 0.0 196.6091 0.0 0 1.550000E+02 G 2.694767E-14 0.0 4.013951E+03 0.0 1.700293E-05 0.0 23.3311 0.0 24.4465 0.0 195.6365 0.0 0 1.600000E+02 G 2.675738E-14 0.0 3.934615E+03 0.0 1.530241E-05 0.0 23.3155 0.0 24.5644 0.0 194.4996 0.0 0 1.650000E+02 G 2.658645E-14 0.0 3.856337E+03 0.0 1.307742E-05 0.0 23.3011 0.0 24.6979 0.0 193.1844 0.0 0 1.700000E+02 G 2.643227E-14 0.0 3.778580E+03 0.0 1.006260E-05 0.0 23.2877 0.0 24.8486 0.0 191.7955 0.0 0 1.750000E+02 G 2.629268E-14 0.0 3.700871E+03 0.0 5.808633E-06 0.0 23.2753 0.0 25.0183 0.0 191.4751 0.0 0 1.800000E+02 G 2.616586E-14 0.0 3.622792E+03 0.0 8.748894E-07 0.0 23.2638 0.0 25.2092 0.0 312.8233 0.0 0 1.850000E+02 G 2.605024E-14 0.0 3.543969E+03 0.0 1.070597E-05 0.0 23.2531 0.0 25.4240 0.0 350.5032 0.0 0 1.900000E+02 G 2.594454E-14 0.0 3.464061E+03 0.0 2.783089E-05 0.0 23.2430 0.0 25.6658 0.0 341.2411 0.0 0 1.950000E+02 G 2.584763E-14 0.0 3.382754E+03 0.0 5.644584E-05 0.0 23.2335 0.0 25.9380 0.0 321.0956 0.0 0 2.000000E+02 G 2.575853E-14 0.0 3.299755E+03 0.0 8.627396E-05 0.0 23.2247 0.0 26.2450 0.0 288.1429 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 11 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 5.000000E+00 G 3.474713E-16 0.0 0.0 0.0 6.354548E+00 0.0 202.8046 0.0 0.0 0.0 202.9187 0.0 0 1.000000E+01 G 1.433492E-15 0.0 0.0 0.0 2.624941E+01 0.0 202.6816 0.0 0.0 0.0 202.7918 0.0 0 1.500000E+01 G 3.403315E-15 0.0 0.0 0.0 6.245346E+01 0.0 202.5425 0.0 0.0 0.0 202.6457 0.0 0 2.000000E+01 G 6.556800E-15 0.0 0.0 0.0 1.206831E+02 0.0 202.3743 0.0 0.0 0.0 202.4675 0.0 0 2.500000E+01 G 1.148052E-14 0.0 0.0 0.0 2.121217E+02 0.0 202.1555 0.0 0.0 0.0 202.2350 0.0 0 3.000000E+01 G 1.938962E-14 0.0 0.0 0.0 3.599391E+02 0.0 201.8438 0.0 0.0 0.0 201.9061 0.0 0 3.500000E+01 G 3.316531E-14 0.0 0.0 0.0 6.190766E+02 0.0 201.3418 0.0 0.0 0.0 201.3829 0.0 0 4.000000E+01 G 6.153246E-14 0.0 0.0 0.0 1.155918E+03 0.0 200.3572 0.0 0.0 0.0 200.3728 0.0 0 4.500000E+01 G 1.485218E-13 0.0 0.0 0.0 2.810182E+03 0.0 197.4144 0.0 0.0 0.0 197.4002 0.0 0 5.000000E+01 G 1.685996E-12 0.0 0.0 0.0 3.215716E+04 0.0 101.5224 0.0 0.0 0.0 101.4737 0.0 0 5.500000E+01 G 1.926925E-13 0.0 0.0 0.0 3.707789E+03 0.0 28.7662 0.0 0.0 0.0 28.6783 0.0 0 6.000000E+01 G 1.109495E-13 0.0 0.0 0.0 2.155522E+03 0.0 26.0019 0.0 0.0 0.0 25.8700 0.0 0 6.500000E+01 G 8.336903E-14 0.0 0.0 0.0 1.636640E+03 0.0 25.0573 0.0 0.0 0.0 24.8761 0.0 0 7.000000E+01 G 6.962736E-14 0.0 0.0 0.0 1.382258E+03 0.0 24.5774 0.0 0.0 0.0 24.3419 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 11 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 6.145340E-14 0.0 0.0 0.0 1.234672E+03 0.0 24.2853 0.0 0.0 0.0 23.9901 0.0 0 8.000000E+01 G 5.606585E-14 0.0 0.0 0.0 1.140856E+03 0.0 24.0878 0.0 0.0 0.0 23.7274 0.0 0 8.500001E+01 G 5.226783E-14 0.0 0.0 0.0 1.078002E+03 0.0 23.9447 0.0 0.0 0.0 23.5135 0.0 0 9.000000E+01 G 4.945991E-14 0.0 0.0 0.0 1.034695E+03 0.0 23.8358 0.0 0.0 0.0 23.3282 0.0 0 9.500001E+01 G 4.730893E-14 0.0 0.0 0.0 1.004597E+03 0.0 23.7499 0.0 0.0 0.0 23.1601 0.0 0 1.000000E+02 G 4.561517E-14 0.0 0.0 0.0 9.839189E+02 0.0 23.6802 0.0 0.0 0.0 23.0024 0.0 0 1.050000E+02 G 4.425172E-14 0.0 0.0 0.0 9.702597E+02 0.0 23.6224 0.0 0.0 0.0 22.8507 0.0 0 1.100000E+02 G 4.313419E-14 0.0 0.0 0.0 9.620303E+02 0.0 23.5736 0.0 0.0 0.0 22.7020 0.0 0 1.150000E+02 G 4.220433E-14 0.0 0.0 0.0 9.581425E+02 0.0 23.5317 0.0 0.0 0.0 22.5542 0.0 0 1.200000E+02 G 4.142067E-14 0.0 0.0 0.0 9.578298E+02 0.0 23.4953 0.0 0.0 0.0 22.4058 0.0 0 1.250000E+02 G 4.075293E-14 0.0 0.0 0.0 9.605407E+02 0.0 23.4634 0.0 0.0 0.0 22.2557 0.0 0 1.300000E+02 G 4.017849E-14 0.0 0.0 0.0 9.658713E+02 0.0 23.4352 0.0 0.0 0.0 22.1029 0.0 0 1.350000E+02 G 3.968017E-14 0.0 0.0 0.0 9.735244E+02 0.0 23.4100 0.0 0.0 0.0 21.9469 0.0 0 1.400000E+02 G 3.924464E-14 0.0 0.0 0.0 9.832775E+02 0.0 23.3873 0.0 0.0 0.0 21.7870 0.0 0 1.450000E+02 G 3.886145E-14 0.0 0.0 0.0 9.949661E+02 0.0 23.3668 0.0 0.0 0.0 21.6228 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 POINT-ID = 11 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 3.852229E-14 0.0 0.0 0.0 1.008469E+03 0.0 23.3482 0.0 0.0 0.0 21.4539 0.0 0 1.550000E+02 G 3.822049E-14 0.0 0.0 0.0 1.023697E+03 0.0 23.3311 0.0 0.0 0.0 21.2799 0.0 0 1.600000E+02 G 3.795060E-14 0.0 0.0 0.0 1.040592E+03 0.0 23.3155 0.0 0.0 0.0 21.1005 0.0 0 1.650000E+02 G 3.770816E-14 0.0 0.0 0.0 1.059112E+03 0.0 23.3011 0.0 0.0 0.0 20.9155 0.0 0 1.700000E+02 G 3.748949E-14 0.0 0.0 0.0 1.079238E+03 0.0 23.2877 0.0 0.0 0.0 20.7245 0.0 0 1.750000E+02 G 3.729151E-14 0.0 0.0 0.0 1.100963E+03 0.0 23.2753 0.0 0.0 0.0 20.5272 0.0 0 1.800000E+02 G 3.711162E-14 0.0 0.0 0.0 1.124295E+03 0.0 23.2638 0.0 0.0 0.0 20.3234 0.0 0 1.850000E+02 G 3.694765E-14 0.0 0.0 0.0 1.149255E+03 0.0 23.2531 0.0 0.0 0.0 20.1128 0.0 0 1.900000E+02 G 3.679772E-14 0.0 0.0 0.0 1.175872E+03 0.0 23.2430 0.0 0.0 0.0 19.8951 0.0 0 1.950000E+02 G 3.666027E-14 0.0 0.0 0.0 1.204189E+03 0.0 23.2335 0.0 0.0 0.0 19.6699 0.0 0 2.000000E+02 G 3.653390E-14 0.0 0.0 0.0 1.234257E+03 0.0 23.2247 0.0 0.0 0.0 19.4370 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 6 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 2.815840E-19 0.0 4.915885E-02 0.0 2.268060E-10 0.0 0.0 0.0 0.0 0.0 180.0000 0.0 0 5.000000E+00 G 2.827040E-19 0.0 4.947056E-02 0.0 2.282880E-10 0.0 355.9628 0.0 355.9684 0.0 175.8892 0.0 0 1.000000E+01 G 2.862551E-19 0.0 5.044671E-02 0.0 2.329268E-10 0.0 351.9342 0.0 351.9452 0.0 171.7903 0.0 0 1.500000E+01 G 2.928706E-19 0.0 5.222386E-02 0.0 2.413647E-10 0.0 347.9221 0.0 347.9381 0.0 167.7146 0.0 0 2.000000E+01 G 3.038469E-19 0.0 5.508387E-02 0.0 2.549276E-10 0.0 343.9323 0.0 343.9528 0.0 163.6718 0.0 0 2.500000E+01 G 3.424129E-19 0.0 5.957813E-02 0.0 2.762103E-10 0.0 339.9650 0.0 339.9893 0.0 159.6667 0.0 0 3.000000E+01 G 3.847727E-19 0.0 6.684867E-02 0.0 3.105894E-10 0.0 336.0052 0.0 336.0321 0.0 155.6894 0.0 0 3.500000E+01 G 4.589992E-19 0.0 7.960276E-02 0.0 3.708145E-10 0.0 331.9896 0.0 332.0176 0.0 151.6838 0.0 0 4.000000E+01 G 6.126810E-19 0.0 1.060352E-01 0.0 4.954867E-10 0.0 327.6712 0.0 327.6984 0.0 147.4116 0.0 0 4.500000E+01 G 1.085712E-18 0.0 1.874544E-01 0.0 8.792140E-10 0.0 321.6367 0.0 321.6603 0.0 141.4713 0.0 0 5.000000E+01 G 9.159187E-18 0.0 1.577105E+00 0.0 7.430581E-09 0.0 222.9833 0.0 222.9995 0.0 42.9756 0.0 0 5.500000E+01 G 7.823071E-19 0.0 1.342911E-01 0.0 6.363130E-10 0.0 147.9256 0.0 147.9294 0.0 328.1602 0.0 0 6.000000E+01 G 3.365866E-19 0.0 5.757769E-02 0.0 2.748670E-10 0.0 143.5177 0.0 143.5021 0.0 324.1063 0.0 0 6.500000E+01 G 1.879818E-19 0.0 3.202890E-02 0.0 1.545197E-10 0.0 141.9013 0.0 141.8574 0.0 322.9860 0.0 0 7.000000E+01 G 0.0 0.0 1.959773E-02 0.0 9.607263E-11 0.0 0.0 0.0 142.1554 0.0 323.9790 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 6 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 0.0 0.0 1.251753E-02 0.0 6.297618E-11 0.0 0.0 0.0 144.9863 0.0 327.6113 0.0 0 8.000000E+01 G 0.0 0.0 8.224799E-03 0.0 4.316837E-11 0.0 0.0 0.0 151.6506 0.0 334.8196 0.0 0 8.500001E+01 G 0.0 0.0 5.685082E-03 0.0 3.167396E-11 0.0 0.0 0.0 163.7647 0.0 346.1971 0.0 0 9.000000E+01 G 0.0 0.0 4.421912E-03 0.0 2.593934E-11 0.0 0.0 0.0 181.0256 0.0 0.3687 0.0 0 9.500001E+01 G 0.0 0.0 4.058918E-03 0.0 2.397381E-11 0.0 0.0 0.0 198.4021 0.0 13.6432 0.0 0 1.000000E+02 G 0.0 0.0 4.167400E-03 0.0 2.397241E-11 0.0 0.0 0.0 210.7588 0.0 23.2006 0.0 0 1.050000E+02 G 0.0 0.0 4.426185E-03 0.0 2.468303E-11 0.0 0.0 0.0 217.6988 0.0 28.8260 0.0 0 1.100000E+02 G 0.0 0.0 4.682277E-03 0.0 2.545666E-11 0.0 0.0 0.0 220.8651 0.0 31.4811 0.0 0 1.150000E+02 G 0.0 0.0 4.881089E-03 0.0 2.601453E-11 0.0 0.0 0.0 221.6646 0.0 32.1189 0.0 0 1.200000E+02 G 0.0 0.0 5.009304E-03 0.0 2.625420E-11 0.0 0.0 0.0 220.9758 0.0 31.4153 0.0 0 1.250000E+02 G 0.0 0.0 5.068968E-03 0.0 2.614854E-11 0.0 0.0 0.0 219.3203 0.0 29.8157 0.0 0 1.300000E+02 G 0.0 0.0 5.067271E-03 0.0 2.569958E-11 0.0 0.0 0.0 217.0134 0.0 27.6176 0.0 0 1.350000E+02 G 0.0 0.0 5.012643E-03 0.0 2.491807E-11 0.0 0.0 0.0 214.2532 0.0 25.0318 0.0 0 1.400000E+02 G 0.0 0.0 4.913280E-03 0.0 2.381407E-11 0.0 0.0 0.0 211.1690 0.0 22.2253 0.0 0 1.450000E+02 G 0.0 0.0 4.776661E-03 0.0 2.239221E-11 0.0 0.0 0.0 207.8486 0.0 19.3563 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 6 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 0.0 0.0 4.609428E-03 0.0 2.064900E-11 0.0 0.0 0.0 204.3538 0.0 16.6142 0.0 0 1.550000E+02 G 0.0 0.0 4.417434E-03 0.0 1.857157E-11 0.0 0.0 0.0 200.7295 0.0 14.2879 0.0 0 1.600000E+02 G 0.0 0.0 4.205812E-03 0.0 1.614025E-11 0.0 0.0 0.0 197.0098 0.0 12.9242 0.0 0 1.650000E+02 G 0.0 0.0 3.979072E-03 0.0 1.334876E-11 0.0 0.0 0.0 193.2211 0.0 13.7689 0.0 0 1.700000E+02 G 0.0 0.0 3.741192E-03 0.0 1.031259E-11 0.0 0.0 0.0 189.3851 0.0 20.2090 0.0 0 1.750000E+02 G 0.0 0.0 3.495686E-03 0.0 7.854692E-12 0.0 0.0 0.0 185.5199 0.0 41.5917 0.0 0 1.800000E+02 G 0.0 0.0 3.245664E-03 0.0 9.096193E-12 0.0 0.0 0.0 181.6416 0.0 79.3067 0.0 0 1.850000E+02 G 0.0 0.0 2.993888E-03 0.0 1.644266E-11 0.0 0.0 0.0 177.7654 0.0 97.6669 0.0 0 1.900000E+02 G 0.0 0.0 2.742818E-03 0.0 3.017811E-11 0.0 0.0 0.0 173.9057 0.0 95.0833 0.0 0 1.950000E+02 G 0.0 0.0 2.494639E-03 0.0 5.145622E-11 0.0 0.0 0.0 170.0779 0.0 76.6525 0.0 0 2.000000E+02 G 0.0 0.0 2.251294E-03 0.0 6.918550E-11 0.0 0.0 0.0 166.2981 0.0 43.0705 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 3.993770E-19 0.0 0.0 0.0 7.302478E-03 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 5.000000E+00 G 4.009655E-19 0.0 0.0 0.0 7.352855E-03 0.0 355.9628 0.0 0.0 0.0 355.9452 0.0 0 1.000000E+01 G 4.060021E-19 0.0 0.0 0.0 7.510414E-03 0.0 351.9342 0.0 0.0 0.0 351.8996 0.0 0 1.500000E+01 G 4.153850E-19 0.0 0.0 0.0 7.796574E-03 0.0 347.9221 0.0 0.0 0.0 347.8716 0.0 0 2.000000E+01 G 4.484725E-19 0.0 0.0 0.0 8.255555E-03 0.0 343.9323 0.0 0.0 0.0 343.8679 0.0 0 2.500000E+01 G 4.856520E-19 0.0 0.0 0.0 8.973887E-03 0.0 339.9650 0.0 0.0 0.0 339.8893 0.0 0 3.000000E+01 G 5.457318E-19 0.0 0.0 0.0 1.013087E-02 0.0 336.0052 0.0 0.0 0.0 335.9218 0.0 0 3.500000E+01 G 6.510090E-19 0.0 0.0 0.0 1.215166E-02 0.0 331.9896 0.0 0.0 0.0 331.9033 0.0 0 4.000000E+01 G 8.689794E-19 0.0 0.0 0.0 1.632349E-02 0.0 327.6712 0.0 0.0 0.0 327.5883 0.0 0 4.500000E+01 G 1.539890E-18 0.0 0.0 0.0 2.913599E-02 0.0 321.6367 0.0 0.0 0.0 321.5657 0.0 0 5.000000E+01 G 1.299068E-17 0.0 0.0 0.0 2.478020E-01 0.0 222.9833 0.0 0.0 0.0 222.9349 0.0 0 5.500000E+01 G 1.109564E-18 0.0 0.0 0.0 2.135902E-02 0.0 147.9256 0.0 0.0 0.0 147.9145 0.0 0 6.000000E+01 G 4.773885E-19 0.0 0.0 0.0 9.283893E-03 0.0 143.5177 0.0 0.0 0.0 143.5629 0.0 0 6.500000E+01 G 2.666189E-19 0.0 0.0 0.0 5.245012E-03 0.0 141.9013 0.0 0.0 0.0 142.0269 0.0 0 7.000000E+01 G 1.295733E-19 0.0 0.0 0.0 3.267244E-03 0.0 142.2383 0.0 0.0 0.0 142.4713 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 0.0 0.0 0.0 0.0 2.131995E-03 0.0 0.0 0.0 0.0 0.0 145.4717 0.0 0 8.000000E+01 G 0.0 0.0 0.0 0.0 1.438607E-03 0.0 0.0 0.0 0.0 0.0 152.2416 0.0 0 8.500001E+01 G 0.0 0.0 0.0 0.0 1.027054E-03 0.0 0.0 0.0 0.0 0.0 164.1310 0.0 0 9.000000E+01 G 0.0 0.0 0.0 0.0 8.242049E-04 0.0 0.0 0.0 0.0 0.0 180.5227 0.0 0 9.500001E+01 G 0.0 0.0 0.0 0.0 7.714883E-04 0.0 0.0 0.0 0.0 0.0 196.7755 0.0 0 1.000000E+02 G 0.0 0.0 0.0 0.0 8.017089E-04 0.0 0.0 0.0 0.0 0.0 208.4338 0.0 0 1.050000E+02 G 0.0 0.0 0.0 0.0 8.628450E-04 0.0 0.0 0.0 0.0 0.0 215.0944 0.0 0 1.100000E+02 G 0.0 0.0 0.0 0.0 9.283150E-04 0.0 0.0 0.0 0.0 0.0 218.1737 0.0 0 1.150000E+02 G 0.0 0.0 0.0 0.0 9.874438E-04 0.0 0.0 0.0 0.0 0.0 218.9516 0.0 0 1.200000E+02 G 0.0 0.0 0.0 0.0 1.036710E-03 0.0 0.0 0.0 0.0 0.0 218.2563 0.0 0 1.250000E+02 G 0.0 0.0 0.0 0.0 1.075473E-03 0.0 0.0 0.0 0.0 0.0 216.5920 0.0 0 1.300000E+02 G 0.0 0.0 0.0 0.0 1.104183E-03 0.0 0.0 0.0 0.0 0.0 214.2687 0.0 0 1.350000E+02 G 0.0 0.0 0.0 0.0 1.123653E-03 0.0 0.0 0.0 0.0 0.0 211.4835 0.0 0 1.400000E+02 G 0.0 0.0 0.0 0.0 1.134763E-03 0.0 0.0 0.0 0.0 0.0 208.3661 0.0 0 1.450000E+02 G 0.0 0.0 0.0 0.0 1.138350E-03 0.0 0.0 0.0 0.0 0.0 205.0054 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 0.0 0.0 0.0 0.0 1.135165E-03 0.0 0.0 0.0 0.0 0.0 201.4642 0.0 0 1.550000E+02 G 0.0 0.0 0.0 0.0 1.125875E-03 0.0 0.0 0.0 0.0 0.0 197.7887 0.0 0 1.600000E+02 G 0.0 0.0 0.0 0.0 1.111059E-03 0.0 0.0 0.0 0.0 0.0 194.0140 0.0 0 1.650000E+02 G 0.0 0.0 0.0 0.0 1.091229E-03 0.0 0.0 0.0 0.0 0.0 190.1678 0.0 0 1.700000E+02 G 0.0 0.0 0.0 0.0 1.066833E-03 0.0 0.0 0.0 0.0 0.0 186.2730 0.0 0 1.750000E+02 G 0.0 0.0 0.0 0.0 1.038271E-03 0.0 0.0 0.0 0.0 0.0 182.3492 0.0 0 1.800000E+02 G 0.0 0.0 0.0 0.0 1.005902E-03 0.0 0.0 0.0 0.0 0.0 178.4144 0.0 0 1.850000E+02 G 0.0 0.0 0.0 0.0 9.700533E-04 0.0 0.0 0.0 0.0 0.0 174.4857 0.0 0 1.900000E+02 G 0.0 0.0 0.0 0.0 9.310279E-04 0.0 0.0 0.0 0.0 0.0 170.5806 0.0 0 1.950000E+02 G 0.0 0.0 0.0 0.0 8.891113E-04 0.0 0.0 0.0 0.0 0.0 166.7179 0.0 0 2.000000E+02 G 0.0 0.0 0.0 0.0 8.445768E-04 0.0 0.0 0.0 0.0 0.0 162.9187 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 6 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 5.000000E+00 G 2.797118E-16 0.0 4.882549E+01 0.0 2.253113E-07 0.0 175.9628 0.0 175.9684 0.0 355.8893 0.0 0 1.000000E+01 G 1.141381E-15 0.0 1.991556E+02 0.0 9.195583E-07 0.0 171.9342 0.0 171.9452 0.0 351.7903 0.0 0 1.500000E+01 G 2.660355E-15 0.0 4.638860E+02 0.0 2.143957E-06 0.0 167.9221 0.0 167.9381 0.0 347.7146 0.0 0 2.000000E+01 G 4.993218E-15 0.0 8.698497E+02 0.0 4.025655E-06 0.0 163.9323 0.0 163.9528 0.0 343.6718 0.0 0 2.500000E+01 G 8.448700E-15 0.0 1.470031E+03 0.0 6.815216E-06 0.0 159.9650 0.0 159.9893 0.0 339.6667 0.0 0 3.000000E+01 G 1.367120E-14 0.0 2.375172E+03 0.0 1.103542E-05 0.0 156.0052 0.0 156.0321 0.0 335.6894 0.0 0 3.500000E+01 G 2.219769E-14 0.0 3.849674E+03 0.0 1.793299E-05 0.0 151.9895 0.0 152.0176 0.0 331.6838 0.0 0 4.000000E+01 G 3.870029E-14 0.0 6.697763E+03 0.0 3.129765E-05 0.0 147.6712 0.0 147.6984 0.0 327.4116 0.0 0 4.500000E+01 G 8.679594E-14 0.0 1.498581E+04 0.0 7.028771E-05 0.0 141.6367 0.0 141.6603 0.0 321.4713 0.0 0 5.000000E+01 G 9.039756E-13 0.0 1.556540E+05 0.0 7.333690E-04 0.0 42.9833 0.0 42.9995 0.0 222.9756 0.0 0 5.500000E+01 G 9.342485E-14 0.0 1.603734E+04 0.0 7.598991E-05 0.0 327.9256 0.0 327.9293 0.0 148.1602 0.0 0 6.000000E+01 G 4.783648E-14 0.0 8.183075E+03 0.0 3.906474E-05 0.0 323.5177 0.0 323.5021 0.0 144.1063 0.0 0 6.500000E+01 G 3.135468E-14 0.0 5.342302E+03 0.0 2.577331E-05 0.0 321.9012 0.0 321.8574 0.0 142.9860 0.0 0 7.000000E+01 G 2.235421E-14 0.0 3.791068E+03 0.0 1.858470E-05 0.0 322.2383 0.0 322.1554 0.0 143.9790 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 6 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 1.648364E-14 0.0 2.779719E+03 0.0 1.398488E-05 0.0 325.1157 0.0 324.9863 0.0 147.6113 0.0 0 8.000000E+01 G 1.241146E-14 0.0 2.078094E+03 0.0 1.090700E-05 0.0 331.8111 0.0 331.6505 0.0 154.8196 0.0 0 8.500001E+01 G 9.771346E-15 0.0 1.621565E+03 0.0 9.034415E-06 0.0 343.8665 0.0 343.7646 0.0 166.1970 0.0 0 9.000000E+01 G 8.595861E-15 0.0 1.414018E+03 0.0 8.294757E-06 0.0 0.8826 0.0 1.0256 0.0 180.3687 0.0 0 9.500001E+01 G 8.839998E-15 0.0 1.446163E+03 0.0 8.541694E-06 0.0 17.9330 0.0 18.4021 0.0 193.6432 0.0 0 1.000000E+02 G 1.009108E-14 0.0 1.645224E+03 0.0 9.463927E-06 0.0 30.0825 0.0 30.7588 0.0 203.2006 0.0 0 1.050000E+02 G 1.186157E-14 0.0 1.926495E+03 0.0 1.074328E-05 0.0 36.9341 0.0 37.6988 0.0 208.8260 0.0 0 1.100000E+02 G 1.384001E-14 0.0 2.236672E+03 0.0 1.216037E-05 0.0 40.0654 0.0 40.8651 0.0 211.4811 0.0 0 1.150000E+02 G 1.586443E-14 0.0 2.548427E+03 0.0 1.358224E-05 0.0 40.8470 0.0 41.6646 0.0 212.1189 0.0 0 1.200000E+02 G 1.785062E-14 0.0 2.847736E+03 0.0 1.492523E-05 0.0 40.1432 0.0 40.9758 0.0 211.4152 0.0 0 1.250000E+02 G 1.975090E-14 0.0 3.126794E+03 0.0 1.612974E-05 0.0 38.4705 0.0 39.3202 0.0 209.8157 0.0 0 1.300000E+02 G 2.153517E-14 0.0 3.380808E+03 0.0 1.714638E-05 0.0 36.1427 0.0 37.0134 0.0 207.6176 0.0 0 1.350000E+02 G 2.318240E-14 0.0 3.606568E+03 0.0 1.792841E-05 0.0 33.3575 0.0 34.2532 0.0 205.0318 0.0 0 1.400000E+02 G 2.467655E-14 0.0 3.801783E+03 0.0 1.842678E-05 0.0 30.2442 0.0 31.1690 0.0 202.2253 0.0 0 1.450000E+02 G 2.600481E-14 0.0 3.964790E+03 0.0 1.858630E-05 0.0 26.8907 0.0 27.8486 0.0 199.3563 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 6 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 2.715660E-14 0.0 4.094392E+03 0.0 1.834177E-05 0.0 23.3589 0.0 24.3538 0.0 196.6142 0.0 0 1.550000E+02 G 2.812320E-14 0.0 4.189799E+03 0.0 1.761456E-05 0.0 19.6941 0.0 20.7295 0.0 194.2879 0.0 0 1.600000E+02 G 2.889750E-14 0.0 4.250593E+03 0.0 1.631210E-05 0.0 15.9304 0.0 17.0098 0.0 192.9242 0.0 0 1.650000E+02 G 2.947392E-14 0.0 4.276707E+03 0.0 1.434725E-05 0.0 12.0945 0.0 13.2211 0.0 193.7690 0.0 0 1.700000E+02 G 2.984847E-14 0.0 4.268425E+03 0.0 1.176590E-05 0.0 8.2083 0.0 9.3851 0.0 200.2090 0.0 0 1.750000E+02 G 3.001860E-14 0.0 4.226377E+03 0.0 9.496531E-06 0.0 4.2905 0.0 5.5199 0.0 221.5918 0.0 0 1.800000E+02 G 2.998337E-14 0.0 4.151531E+03 0.0 1.163495E-05 0.0 0.3575 0.0 1.6416 0.0 259.3066 0.0 0 1.850000E+02 G 2.974337E-14 0.0 4.045189E+03 0.0 2.221648E-05 0.0 356.4253 0.0 357.7654 0.0 277.6669 0.0 0 1.900000E+02 G 2.930078E-14 0.0 3.908985E+03 0.0 4.300897E-05 0.0 352.5096 0.0 353.9057 0.0 275.0833 0.0 0 1.950000E+02 G 2.865944E-14 0.0 3.744870E+03 0.0 7.724439E-05 0.0 348.6270 0.0 350.0779 0.0 256.6525 0.0 0 2.000000E+02 G 2.782478E-14 0.0 3.555101E+03 0.0 1.092534E-04 0.0 344.7962 0.0 346.2981 0.0 223.0705 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 11 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 5.000000E+00 G 3.967216E-16 0.0 0.0 0.0 7.256977E+00 0.0 175.9628 0.0 0.0 0.0 175.9452 0.0 0 1.000000E+01 G 1.618846E-15 0.0 0.0 0.0 2.964993E+01 0.0 171.9342 0.0 0.0 0.0 171.8996 0.0 0 1.500000E+01 G 3.773242E-15 0.0 0.0 0.0 6.925420E+01 0.0 167.9221 0.0 0.0 0.0 167.8716 0.0 0 2.000000E+01 G 7.081994E-15 0.0 0.0 0.0 1.303665E+02 0.0 163.9323 0.0 0.0 0.0 163.8679 0.0 0 2.500000E+01 G 1.198298E-14 0.0 0.0 0.0 2.214218E+02 0.0 159.9650 0.0 0.0 0.0 159.8893 0.0 0 3.000000E+01 G 1.939017E-14 0.0 0.0 0.0 3.599557E+02 0.0 156.0052 0.0 0.0 0.0 155.9218 0.0 0 3.500000E+01 G 3.148349E-14 0.0 0.0 0.0 5.876674E+02 0.0 151.9895 0.0 0.0 0.0 151.9033 0.0 0 4.000000E+01 G 5.488949E-14 0.0 0.0 0.0 1.031081E+03 0.0 147.6712 0.0 0.0 0.0 147.5883 0.0 0 4.500000E+01 G 1.231047E-13 0.0 0.0 0.0 2.329241E+03 0.0 141.6367 0.0 0.0 0.0 141.5657 0.0 0 5.000000E+01 G 1.282129E-12 0.0 0.0 0.0 2.445708E+04 0.0 42.9833 0.0 0.0 0.0 42.9349 0.0 0 5.500000E+01 G 1.325066E-13 0.0 0.0 0.0 2.550741E+03 0.0 327.9256 0.0 0.0 0.0 327.9145 0.0 0 6.000000E+01 G 6.784756E-14 0.0 0.0 0.0 1.319448E+03 0.0 323.5177 0.0 0.0 0.0 323.5629 0.0 0 6.500000E+01 G 4.447105E-14 0.0 0.0 0.0 8.748487E+02 0.0 321.9012 0.0 0.0 0.0 322.0269 0.0 0 7.000000E+01 G 3.170548E-14 0.0 0.0 0.0 6.320297E+02 0.0 322.2383 0.0 0.0 0.0 322.4713 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 11 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 2.337912E-14 0.0 0.0 0.0 4.734438E+02 0.0 325.1157 0.0 0.0 0.0 325.4717 0.0 0 8.000000E+01 G 1.760346E-14 0.0 0.0 0.0 3.634811E+02 0.0 331.8111 0.0 0.0 0.0 332.2416 0.0 0 8.500001E+01 G 1.385892E-14 0.0 0.0 0.0 2.929483E+02 0.0 343.8665 0.0 0.0 0.0 344.1310 0.0 0 9.000000E+01 G 1.219171E-14 0.0 0.0 0.0 2.635603E+02 0.0 0.8826 0.0 0.0 0.0 0.5227 0.0 0 9.500001E+01 G 1.253797E-14 0.0 0.0 0.0 2.748757E+02 0.0 17.9330 0.0 0.0 0.0 16.7755 0.0 0 1.000000E+02 G 1.431241E-14 0.0 0.0 0.0 3.165020E+02 0.0 30.0825 0.0 0.0 0.0 28.4338 0.0 0 1.050000E+02 G 1.682354E-14 0.0 0.0 0.0 3.755530E+02 0.0 36.9341 0.0 0.0 0.0 35.0944 0.0 0 1.100000E+02 G 1.962960E-14 0.0 0.0 0.0 4.434458E+02 0.0 40.0654 0.0 0.0 0.0 38.1737 0.0 0 1.150000E+02 G 2.250089E-14 0.0 0.0 0.0 5.155465E+02 0.0 40.8470 0.0 0.0 0.0 38.9515 0.0 0 1.200000E+02 G 2.531794E-14 0.0 0.0 0.0 5.893583E+02 0.0 40.1432 0.0 0.0 0.0 38.2563 0.0 0 1.250000E+02 G 2.801314E-14 0.0 0.0 0.0 6.634056E+02 0.0 38.4705 0.0 0.0 0.0 36.5920 0.0 0 1.300000E+02 G 3.054382E-14 0.0 0.0 0.0 7.366943E+02 0.0 36.1427 0.0 0.0 0.0 34.2687 0.0 0 1.350000E+02 G 3.288012E-14 0.0 0.0 0.0 8.084615E+02 0.0 33.3575 0.0 0.0 0.0 31.4835 0.0 0 1.400000E+02 G 3.499931E-14 0.0 0.0 0.0 8.780536E+02 0.0 30.2442 0.0 0.0 0.0 28.3661 0.0 0 1.450000E+02 G 3.688321E-14 0.0 0.0 0.0 9.448686E+02 0.0 26.8907 0.0 0.0 0.0 25.0054 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 POINT-ID = 11 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 3.851683E-14 0.0 0.0 0.0 1.008327E+03 0.0 23.3589 0.0 0.0 0.0 21.4642 0.0 0 1.550000E+02 G 3.988777E-14 0.0 0.0 0.0 1.067857E+03 0.0 19.6941 0.0 0.0 0.0 17.7887 0.0 0 1.600000E+02 G 4.098598E-14 0.0 0.0 0.0 1.122890E+03 0.0 15.9304 0.0 0.0 0.0 14.0140 0.0 0 1.650000E+02 G 4.180354E-14 0.0 0.0 0.0 1.172853E+03 0.0 12.0945 0.0 0.0 0.0 10.1678 0.0 0 1.700000E+02 G 4.233476E-14 0.0 0.0 0.0 1.217178E+03 0.0 8.2083 0.0 0.0 0.0 6.2730 0.0 0 1.750000E+02 G 4.257606E-14 0.0 0.0 0.0 1.255297E+03 0.0 4.2905 0.0 0.0 0.0 2.3492 0.0 0 1.800000E+02 G 4.252609E-14 0.0 0.0 0.0 1.286650E+03 0.0 0.3575 0.0 0.0 0.0 358.4143 0.0 0 1.850000E+02 G 4.218569E-14 0.0 0.0 0.0 1.310686E+03 0.0 356.4253 0.0 0.0 0.0 354.4857 0.0 0 1.900000E+02 G 4.155797E-14 0.0 0.0 0.0 1.326874E+03 0.0 352.5096 0.0 0.0 0.0 350.5806 0.0 0 1.950000E+02 G 4.064834E-14 0.0 0.0 0.0 1.334704E+03 0.0 348.6270 0.0 0.0 0.0 346.7179 0.0 0 2.000000E+02 G 3.946452E-14 0.0 0.0 0.0 1.333702E+03 0.0 344.7962 0.0 0.0 0.0 342.9187 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 6 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 2.210118E-19 0.0 4.198609E-02 0.0 1.976533E-10 0.0 23.4132 0.0 23.4132 0.0 203.4132 0.0 0 5.000000E+00 G 2.234477E-19 0.0 4.240669E-02 0.0 1.996383E-10 0.0 23.2975 0.0 23.2975 0.0 203.2975 0.0 0 1.000000E+01 G 2.306708E-19 0.0 4.372127E-02 0.0 2.058422E-10 0.0 23.1745 0.0 23.1746 0.0 203.1745 0.0 0 1.500000E+01 G 2.436504E-19 0.0 4.610560E-02 0.0 2.170926E-10 0.0 23.0353 0.0 23.0357 0.0 203.0356 0.0 0 2.000000E+01 G 2.869241E-19 0.0 4.992249E-02 0.0 2.350983E-10 0.0 22.8671 0.0 22.8680 0.0 202.8679 0.0 0 2.500000E+01 G 3.215262E-19 0.0 5.588160E-02 0.0 2.632018E-10 0.0 22.6483 0.0 22.6500 0.0 202.6498 0.0 0 3.000000E+01 G 3.771045E-19 0.0 6.545296E-02 0.0 3.083262E-10 0.0 22.3366 0.0 22.3396 0.0 202.3394 0.0 0 3.500000E+01 G 4.738960E-19 0.0 8.212139E-02 0.0 3.868831E-10 0.0 21.8347 0.0 21.8395 0.0 201.8393 0.0 0 4.000000E+01 G 6.731616E-19 0.0 1.164360E-01 0.0 5.485529E-10 0.0 20.8501 0.0 20.8573 0.0 200.8575 0.0 0 4.500000E+01 G 1.283809E-18 0.0 2.215902E-01 0.0 1.043842E-09 0.0 17.9073 0.0 17.9177 0.0 197.9186 0.0 0 5.000000E+01 G 1.180461E-17 0.0 2.032681E+00 0.0 9.572552E-09 0.0 282.0152 0.0 282.0296 0.0 102.0319 0.0 0 5.500000E+01 G 1.114999E-18 0.0 1.914883E-01 0.0 9.012976E-10 0.0 209.2590 0.0 209.2783 0.0 29.2831 0.0 0 6.000000E+01 G 5.394580E-19 0.0 9.237530E-02 0.0 4.344178E-10 0.0 206.4948 0.0 206.5201 0.0 26.5288 0.0 0 6.500000E+01 G 3.453927E-19 0.0 5.895477E-02 0.0 2.768941E-10 0.0 205.5501 0.0 205.5826 0.0 25.5974 0.0 0 7.000000E+01 G 2.252920E-19 0.0 4.230642E-02 0.0 1.983405E-10 0.0 205.0702 0.0 205.1112 0.0 25.1352 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 6 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 1.736258E-19 0.0 3.240393E-02 0.0 1.515376E-10 0.0 204.7782 0.0 204.8291 0.0 24.8664 0.0 0 8.000000E+01 G 1.394432E-19 0.0 2.587682E-02 0.0 1.206107E-10 0.0 204.5806 0.0 204.6432 0.0 24.6995 0.0 0 8.500001E+01 G 1.152843E-19 0.0 2.127498E-02 0.0 9.872814E-11 0.0 204.4375 0.0 204.5135 0.0 24.5965 0.0 0 9.000000E+01 G 0.0 0.0 1.787220E-02 0.0 8.246735E-11 0.0 0.0 0.0 204.4201 0.0 24.5401 0.0 0 9.500001E+01 G 0.0 0.0 1.526490E-02 0.0 6.992441E-11 0.0 0.0 0.0 204.3519 0.0 24.5232 0.0 0 1.000000E+02 G 0.0 0.0 1.321119E-02 0.0 5.995614E-11 0.0 0.0 0.0 204.3023 0.0 24.5442 0.0 0 1.050000E+02 G 0.0 0.0 1.155735E-02 0.0 5.183389E-11 0.0 0.0 0.0 204.2673 0.0 24.6061 0.0 0 1.100000E+02 G 0.0 0.0 1.020116E-02 0.0 4.507048E-11 0.0 0.0 0.0 204.2443 0.0 24.7166 0.0 0 1.150000E+02 G 0.0 0.0 9.072066E-03 0.0 3.932656E-11 0.0 0.0 0.0 204.2316 0.0 24.8886 0.0 0 1.200000E+02 G 0.0 0.0 8.119845E-03 0.0 3.435694E-11 0.0 0.0 0.0 204.2280 0.0 25.1429 0.0 0 1.250000E+02 G 0.0 0.0 7.307819E-03 0.0 2.997818E-11 0.0 0.0 0.0 204.2330 0.0 25.5124 0.0 0 1.300000E+02 G 0.0 0.0 6.608599E-03 0.0 2.604795E-11 0.0 0.0 0.0 204.2460 0.0 26.0507 0.0 0 1.350000E+02 G 0.0 0.0 6.001348E-03 0.0 2.245166E-11 0.0 0.0 0.0 204.2670 0.0 26.8475 0.0 0 1.400000E+02 G 0.0 0.0 5.469935E-03 0.0 1.909338E-11 0.0 0.0 0.0 204.2961 0.0 28.0632 0.0 0 1.450000E+02 G 0.0 0.0 5.001706E-03 0.0 1.589068E-11 0.0 0.0 0.0 204.3334 0.0 30.0069 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 6 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 0.0 0.0 4.586585E-03 0.0 1.277578E-11 0.0 0.0 0.0 204.3793 0.0 33.3397 0.0 0 1.550000E+02 G 0.0 0.0 4.216474E-03 0.0 9.717064E-12 0.0 0.0 0.0 204.4345 0.0 39.6921 0.0 0 1.600000E+02 G 0.0 0.0 3.884780E-03 0.0 6.835961E-12 0.0 0.0 0.0 204.4995 0.0 53.8176 0.0 0 1.650000E+02 G 0.0 0.0 3.586097E-03 0.0 5.009830E-12 0.0 0.0 0.0 204.5751 0.0 88.1602 0.0 0 1.700000E+02 G 0.0 0.0 3.315946E-03 0.0 6.524429E-12 0.0 0.0 0.0 204.6624 0.0 132.7064 0.0 0 1.750000E+02 G 0.0 0.0 3.070592E-03 0.0 1.139177E-11 0.0 0.0 0.0 204.7626 0.0 153.0809 0.0 0 1.800000E+02 G 0.0 0.0 2.846890E-03 0.0 1.898654E-11 0.0 0.0 0.0 204.8772 0.0 159.0806 0.0 0 1.850000E+02 G 0.0 0.0 2.642184E-03 0.0 3.042688E-11 0.0 0.0 0.0 205.0077 0.0 157.8363 0.0 0 1.900000E+02 G 0.0 0.0 2.454211E-03 0.0 4.843606E-11 0.0 0.0 0.0 205.1562 0.0 149.7644 0.0 0 1.950000E+02 G 0.0 0.0 2.281033E-03 0.0 7.540135E-11 0.0 0.0 0.0 205.3249 0.0 131.1334 0.0 0 2.000000E+02 G 0.0 0.0 2.120980E-03 0.0 9.635441E-11 0.0 0.0 0.0 205.5168 0.0 99.4380 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 3.415917E-19 0.0 0.0 0.0 6.274050E-03 0.0 23.4132 0.0 0.0 0.0 23.4132 0.0 0 5.000000E+00 G 3.450554E-19 0.0 0.0 0.0 6.340077E-03 0.0 23.2975 0.0 0.0 0.0 23.2974 0.0 0 1.000000E+01 G 3.558814E-19 0.0 0.0 0.0 6.546449E-03 0.0 23.1745 0.0 0.0 0.0 23.1741 0.0 0 1.500000E+01 G 3.755171E-19 0.0 0.0 0.0 6.920774E-03 0.0 23.0353 0.0 0.0 0.0 23.0341 0.0 0 2.000000E+01 G 4.069509E-19 0.0 0.0 0.0 7.520040E-03 0.0 22.8671 0.0 0.0 0.0 22.8644 0.0 0 2.500000E+01 G 4.560280E-19 0.0 0.0 0.0 8.455720E-03 0.0 22.6483 0.0 0.0 0.0 22.6429 0.0 0 3.000000E+01 G 5.348560E-19 0.0 0.0 0.0 9.958724E-03 0.0 22.3366 0.0 0.0 0.0 22.3272 0.0 0 3.500000E+01 G 6.721373E-19 0.0 0.0 0.0 1.257644E-02 0.0 21.8347 0.0 0.0 0.0 21.8198 0.0 0 4.000000E+01 G 9.547603E-19 0.0 0.0 0.0 1.796595E-02 0.0 20.8501 0.0 0.0 0.0 20.8280 0.0 0 4.500000E+01 G 1.820855E-18 0.0 0.0 0.0 3.448332E-02 0.0 17.9073 0.0 0.0 0.0 17.8759 0.0 0 5.000000E+01 G 1.674274E-17 0.0 0.0 0.0 3.193431E-01 0.0 282.0152 0.0 0.0 0.0 281.9722 0.0 0 5.500000E+01 G 1.581428E-18 0.0 0.0 0.0 3.040147E-02 0.0 209.2590 0.0 0.0 0.0 209.2019 0.0 0 6.000000E+01 G 7.651256E-19 0.0 0.0 0.0 1.483565E-02 0.0 206.4948 0.0 0.0 0.0 206.4209 0.0 0 6.500000E+01 G 4.898782E-19 0.0 0.0 0.0 9.587435E-03 0.0 205.5501 0.0 0.0 0.0 205.4565 0.0 0 7.000000E+01 G 3.527718E-19 0.0 0.0 0.0 6.973610E-03 0.0 205.0702 0.0 0.0 0.0 204.9537 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 2.712273E-19 0.0 0.0 0.0 5.419418E-03 0.0 204.7782 0.0 0.0 0.0 204.6353 0.0 0 8.000000E+01 G 1.977754E-19 0.0 0.0 0.0 4.395478E-03 0.0 204.5806 0.0 0.0 0.0 204.4079 0.0 0 8.500001E+01 G 1.635103E-19 0.0 0.0 0.0 3.674028E-03 0.0 204.4375 0.0 0.0 0.0 204.2311 0.0 0 9.000000E+01 G 1.381309E-19 0.0 0.0 0.0 3.141007E-03 0.0 204.3286 0.0 0.0 0.0 204.0846 0.0 0 9.500001E+01 G 1.186622E-19 0.0 0.0 0.0 2.733030E-03 0.0 204.2427 0.0 0.0 0.0 203.9569 0.0 0 1.000000E+02 G 0.0 0.0 0.0 0.0 2.412102E-03 0.0 0.0 0.0 0.0 0.0 203.8410 0.0 0 1.050000E+02 G 0.0 0.0 0.0 0.0 2.154084E-03 0.0 0.0 0.0 0.0 0.0 203.7325 0.0 0 1.100000E+02 G 0.0 0.0 0.0 0.0 1.942924E-03 0.0 0.0 0.0 0.0 0.0 203.6283 0.0 0 1.150000E+02 G 0.0 0.0 0.0 0.0 1.767540E-03 0.0 0.0 0.0 0.0 0.0 203.5261 0.0 0 1.200000E+02 G 0.0 0.0 0.0 0.0 1.620049E-03 0.0 0.0 0.0 0.0 0.0 203.4244 0.0 0 1.250000E+02 G 0.0 0.0 0.0 0.0 1.494694E-03 0.0 0.0 0.0 0.0 0.0 203.3219 0.0 0 1.300000E+02 G 0.0 0.0 0.0 0.0 1.387176E-03 0.0 0.0 0.0 0.0 0.0 203.2176 0.0 0 1.350000E+02 G 0.0 0.0 0.0 0.0 1.294226E-03 0.0 0.0 0.0 0.0 0.0 203.1108 0.0 0 1.400000E+02 G 0.0 0.0 0.0 0.0 1.213315E-03 0.0 0.0 0.0 0.0 0.0 203.0008 0.0 0 1.450000E+02 G 0.0 0.0 0.0 0.0 1.142460E-03 0.0 0.0 0.0 0.0 0.0 202.8869 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 0.0 0.0 0.0 0.0 1.080083E-03 0.0 0.0 0.0 0.0 0.0 202.7688 0.0 0 1.550000E+02 G 0.0 0.0 0.0 0.0 1.024919E-03 0.0 0.0 0.0 0.0 0.0 202.6460 0.0 0 1.600000E+02 G 0.0 0.0 0.0 0.0 9.759358E-04 0.0 0.0 0.0 0.0 0.0 202.5181 0.0 0 1.650000E+02 G 0.0 0.0 0.0 0.0 9.322920E-04 0.0 0.0 0.0 0.0 0.0 202.3846 0.0 0 1.700000E+02 G 0.0 0.0 0.0 0.0 8.932902E-04 0.0 0.0 0.0 0.0 0.0 202.2453 0.0 0 1.750000E+02 G 0.0 0.0 0.0 0.0 8.583505E-04 0.0 0.0 0.0 0.0 0.0 202.0997 0.0 0 1.800000E+02 G 0.0 0.0 0.0 0.0 8.269869E-04 0.0 0.0 0.0 0.0 0.0 201.9475 0.0 0 1.850000E+02 G 0.0 0.0 0.0 0.0 7.987900E-04 0.0 0.0 0.0 0.0 0.0 201.7884 0.0 0 1.900000E+02 G 0.0 0.0 0.0 0.0 7.734127E-04 0.0 0.0 0.0 0.0 0.0 201.6219 0.0 0 1.950000E+02 G 0.0 0.0 0.0 0.0 7.505600E-04 0.0 0.0 0.0 0.0 0.0 201.4478 0.0 0 2.000000E+02 G 0.0 0.0 0.0 0.0 7.299795E-04 0.0 0.0 0.0 0.0 0.0 201.2656 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 6 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 5.000000E+00 G 2.401119E-16 0.0 4.185373E+01 0.0 1.970352E-07 0.0 203.2975 0.0 203.2975 0.0 23.2975 0.0 0 1.000000E+01 G 9.905810E-16 0.0 1.726047E+02 0.0 8.126324E-07 0.0 203.1745 0.0 203.1746 0.0 23.1745 0.0 0 1.500000E+01 G 2.351781E-15 0.0 4.095397E+02 0.0 1.928356E-06 0.0 203.0353 0.0 203.0357 0.0 23.0356 0.0 0 2.000000E+01 G 4.530924E-15 0.0 7.883444E+02 0.0 3.712524E-06 0.0 202.8671 0.0 202.8680 0.0 22.8679 0.0 0 2.500000E+01 G 7.933342E-15 0.0 1.378823E+03 0.0 6.494245E-06 0.0 202.6483 0.0 202.6501 0.0 22.6498 0.0 0 3.000000E+01 G 1.339874E-14 0.0 2.325582E+03 0.0 1.095501E-05 0.0 202.3366 0.0 202.3396 0.0 22.3394 0.0 0 3.500000E+01 G 2.291811E-14 0.0 3.971478E+03 0.0 1.871008E-05 0.0 201.8347 0.0 201.8395 0.0 21.8393 0.0 0 4.000000E+01 G 4.252057E-14 0.0 7.354737E+03 0.0 3.464961E-05 0.0 200.8501 0.0 200.8573 0.0 20.8575 0.0 0 4.500000E+01 G 1.026325E-13 0.0 1.771476E+04 0.0 8.344865E-05 0.0 197.9073 0.0 197.9177 0.0 17.9186 0.0 0 5.000000E+01 G 1.165068E-12 0.0 2.006175E+05 0.0 9.447730E-04 0.0 102.0152 0.0 102.0296 0.0 282.0319 0.0 0 5.500000E+01 G 1.331557E-13 0.0 2.286796E+04 0.0 1.076350E-04 0.0 29.2590 0.0 29.2783 0.0 209.2831 0.0 0 6.000000E+01 G 7.666903E-14 0.0 1.312859E+04 0.0 6.174047E-05 0.0 26.4948 0.0 26.5201 0.0 206.5288 0.0 0 6.500000E+01 G 5.761023E-14 0.0 9.833438E+03 0.0 4.618491E-05 0.0 25.5501 0.0 25.5825 0.0 205.5974 0.0 0 7.000000E+01 G 4.811436E-14 0.0 8.183934E+03 0.0 3.836783E-05 0.0 25.0702 0.0 25.1112 0.0 205.1352 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 6 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 4.246594E-14 0.0 7.195816E+03 0.0 3.365137E-05 0.0 24.7782 0.0 24.8291 0.0 204.8664 0.0 0 8.000000E+01 G 3.874300E-14 0.0 6.538086E+03 0.0 3.047372E-05 0.0 24.5806 0.0 24.6432 0.0 204.6994 0.0 0 8.500001E+01 G 3.611847E-14 0.0 6.068296E+03 0.0 2.816039E-05 0.0 24.4375 0.0 24.5135 0.0 204.5965 0.0 0 9.000000E+01 G 3.417812E-14 0.0 5.715084E+03 0.0 2.637101E-05 0.0 24.3286 0.0 24.4201 0.0 204.5401 0.0 0 9.500001E+01 G 3.269173E-14 0.0 5.438775E+03 0.0 2.491356E-05 0.0 24.2427 0.0 24.3519 0.0 204.5232 0.0 0 1.000000E+02 G 3.152129E-14 0.0 5.215569E+03 0.0 2.366974E-05 0.0 24.1730 0.0 24.3023 0.0 204.5442 0.0 0 1.050000E+02 G 3.057912E-14 0.0 5.030333E+03 0.0 2.256068E-05 0.0 24.1152 0.0 24.2673 0.0 204.6061 0.0 0 1.100000E+02 G 2.980688E-14 0.0 4.872982E+03 0.0 2.152967E-05 0.0 24.0664 0.0 24.2443 0.0 204.7166 0.0 0 1.150000E+02 G 2.916432E-14 0.0 4.736545E+03 0.0 2.053248E-05 0.0 24.0245 0.0 24.2316 0.0 204.8886 0.0 0 1.200000E+02 G 2.862278E-14 0.0 4.616045E+03 0.0 1.953156E-05 0.0 23.9882 0.0 24.2280 0.0 205.1429 0.0 0 1.250000E+02 G 2.816136E-14 0.0 4.507831E+03 0.0 1.849205E-05 0.0 23.9563 0.0 24.2330 0.0 205.5124 0.0 0 1.300000E+02 G 2.776441E-14 0.0 4.409160E+03 0.0 1.737880E-05 0.0 23.9280 0.0 24.2460 0.0 206.0507 0.0 0 1.350000E+02 G 2.742006E-14 0.0 4.317935E+03 0.0 1.615384E-05 0.0 23.9028 0.0 24.2670 0.0 206.8475 0.0 0 1.400000E+02 G 2.711909E-14 0.0 4.232510E+03 0.0 1.477402E-05 0.0 23.8801 0.0 24.2961 0.0 208.0632 0.0 0 1.450000E+02 G 2.685430E-14 0.0 4.151585E+03 0.0 1.318980E-05 0.0 23.8596 0.0 24.3334 0.0 210.0069 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 6 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 2.661993E-14 0.0 4.074101E+03 0.0 1.134827E-05 0.0 23.8410 0.0 24.3794 0.0 213.3397 0.0 0 1.550000E+02 G 2.641138E-14 0.0 3.999195E+03 0.0 9.216334E-06 0.0 23.8240 0.0 24.4345 0.0 219.6921 0.0 0 1.600000E+02 G 2.622487E-14 0.0 3.926144E+03 0.0 6.908747E-06 0.0 23.8083 0.0 24.4995 0.0 233.8176 0.0 0 1.650000E+02 G 2.605735E-14 0.0 3.854338E+03 0.0 5.384565E-06 0.0 23.7939 0.0 24.5751 0.0 268.1602 0.0 0 1.700000E+02 G 2.590624E-14 0.0 3.783251E+03 0.0 7.443894E-06 0.0 23.7805 0.0 24.6624 0.0 312.7064 0.0 0 1.750000E+02 G 2.576943E-14 0.0 3.712427E+03 0.0 1.377295E-05 0.0 23.7682 0.0 24.7627 0.0 333.0809 0.0 0 1.800000E+02 G 2.564512E-14 0.0 3.641459E+03 0.0 2.428570E-05 0.0 23.7566 0.0 24.8772 0.0 339.0805 0.0 0 1.850000E+02 G 2.553181E-14 0.0 3.569984E+03 0.0 4.111124E-05 0.0 23.7459 0.0 25.0077 0.0 337.8363 0.0 0 1.900000E+02 G 2.542821E-14 0.0 3.497670E+03 0.0 6.902967E-05 0.0 23.7358 0.0 25.1562 0.0 329.7644 0.0 0 1.950000E+02 G 2.533322E-14 0.0 3.424211E+03 0.0 1.131900E-04 0.0 23.7264 0.0 25.3249 0.0 311.1335 0.0 0 2.000000E+02 G 2.524590E-14 0.0 3.349317E+03 0.0 1.521568E-04 0.0 23.7175 0.0 25.5167 0.0 279.4380 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 11 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 5.000000E+00 G 3.405561E-16 0.0 0.0 0.0 6.257406E+00 0.0 203.2975 0.0 0.0 0.0 203.2974 0.0 0 1.000000E+01 G 1.404964E-15 0.0 0.0 0.0 2.584435E+01 0.0 203.1744 0.0 0.0 0.0 203.1741 0.0 0 1.500000E+01 G 3.335585E-15 0.0 0.0 0.0 6.147478E+01 0.0 203.0353 0.0 0.0 0.0 203.0341 0.0 0 2.000000E+01 G 6.426311E-15 0.0 0.0 0.0 1.187517E+02 0.0 202.8671 0.0 0.0 0.0 202.8644 0.0 0 2.500000E+01 G 1.125204E-14 0.0 0.0 0.0 2.086365E+02 0.0 202.6483 0.0 0.0 0.0 202.6429 0.0 0 3.000000E+01 G 1.900374E-14 0.0 0.0 0.0 3.538392E+02 0.0 202.3366 0.0 0.0 0.0 202.3273 0.0 0 3.500000E+01 G 3.250528E-14 0.0 0.0 0.0 6.082099E+02 0.0 201.8347 0.0 0.0 0.0 201.8198 0.0 0 4.000000E+01 G 6.030789E-14 0.0 0.0 0.0 1.134828E+03 0.0 200.8501 0.0 0.0 0.0 200.8280 0.0 0 4.500000E+01 G 1.455660E-13 0.0 0.0 0.0 2.756727E+03 0.0 197.9073 0.0 0.0 0.0 197.8759 0.0 0 5.000000E+01 G 1.652443E-12 0.0 0.0 0.0 3.151790E+04 0.0 102.0152 0.0 0.0 0.0 101.9722 0.0 0 5.500000E+01 G 1.888577E-13 0.0 0.0 0.0 3.630611E+03 0.0 29.2590 0.0 0.0 0.0 29.2019 0.0 0 6.000000E+01 G 1.087414E-13 0.0 0.0 0.0 2.108477E+03 0.0 26.4948 0.0 0.0 0.0 26.4209 0.0 0 6.500000E+01 G 8.170988E-14 0.0 0.0 0.0 1.599149E+03 0.0 25.5501 0.0 0.0 0.0 25.4565 0.0 0 7.000000E+01 G 6.824169E-14 0.0 0.0 0.0 1.349005E+03 0.0 25.0702 0.0 0.0 0.0 24.9537 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 11 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+01 G 6.023041E-14 0.0 0.0 0.0 1.203469E+03 0.0 24.7782 0.0 0.0 0.0 24.6353 0.0 0 8.000000E+01 G 5.495007E-14 0.0 0.0 0.0 1.110570E+03 0.0 24.5806 0.0 0.0 0.0 24.4079 0.0 0 8.500001E+01 G 5.122764E-14 0.0 0.0 0.0 1.047949E+03 0.0 24.4375 0.0 0.0 0.0 24.2311 0.0 0 9.000000E+01 G 4.847560E-14 0.0 0.0 0.0 1.004416E+03 0.0 24.3286 0.0 0.0 0.0 24.0846 0.0 0 9.500001E+01 G 4.636742E-14 0.0 0.0 0.0 9.737587E+02 0.0 24.2427 0.0 0.0 0.0 23.9569 0.0 0 1.000000E+02 G 4.470736E-14 0.0 0.0 0.0 9.522598E+02 0.0 24.1730 0.0 0.0 0.0 23.8410 0.0 0 1.050000E+02 G 4.337106E-14 0.0 0.0 0.0 9.375644E+02 0.0 24.1152 0.0 0.0 0.0 23.7325 0.0 0 1.100000E+02 G 4.227577E-14 0.0 0.0 0.0 9.281129E+02 0.0 24.0664 0.0 0.0 0.0 23.6283 0.0 0 1.150000E+02 G 4.136441E-14 0.0 0.0 0.0 9.228363E+02 0.0 24.0245 0.0 0.0 0.0 23.5261 0.0 0 1.200000E+02 G 4.059634E-14 0.0 0.0 0.0 9.209806E+02 0.0 23.9882 0.0 0.0 0.0 23.4244 0.0 0 1.250000E+02 G 3.994190E-14 0.0 0.0 0.0 9.220024E+02 0.0 23.9563 0.0 0.0 0.0 23.3219 0.0 0 1.300000E+02 G 3.937889E-14 0.0 0.0 0.0 9.255031E+02 0.0 23.9280 0.0 0.0 0.0 23.2176 0.0 0 1.350000E+02 G 3.889048E-14 0.0 0.0 0.0 9.311878E+02 0.0 23.9028 0.0 0.0 0.0 23.1108 0.0 0 1.400000E+02 G 3.846361E-14 0.0 0.0 0.0 9.388351E+02 0.0 23.8801 0.0 0.0 0.0 23.0008 0.0 0 1.450000E+02 G 3.808806E-14 0.0 0.0 0.0 9.482802E+02 0.0 23.8596 0.0 0.0 0.0 22.8870 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 POINT-ID = 11 C O M P L E X A C C E L E R A T I O N V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.500000E+02 G 3.775565E-14 0.0 0.0 0.0 9.593996E+02 0.0 23.8410 0.0 0.0 0.0 22.7689 0.0 0 1.550000E+02 G 3.745985E-14 0.0 0.0 0.0 9.721034E+02 0.0 23.8240 0.0 0.0 0.0 22.6460 0.0 0 1.600000E+02 G 3.719533E-14 0.0 0.0 0.0 9.863271E+02 0.0 23.8083 0.0 0.0 0.0 22.5181 0.0 0 1.650000E+02 G 3.695772E-14 0.0 0.0 0.0 1.002027E+03 0.0 23.7939 0.0 0.0 0.0 22.3846 0.0 0 1.700000E+02 G 3.674340E-14 0.0 0.0 0.0 1.019178E+03 0.0 23.7806 0.0 0.0 0.0 22.2453 0.0 0 1.750000E+02 G 3.654936E-14 0.0 0.0 0.0 1.037769E+03 0.0 23.7682 0.0 0.0 0.0 22.0997 0.0 0 1.800000E+02 G 3.637306E-14 0.0 0.0 0.0 1.057800E+03 0.0 23.7566 0.0 0.0 0.0 21.9475 0.0 0 1.850000E+02 G 3.621235E-14 0.0 0.0 0.0 1.079284E+03 0.0 23.7459 0.0 0.0 0.0 21.7884 0.0 0 1.900000E+02 G 3.606541E-14 0.0 0.0 0.0 1.102245E+03 0.0 23.7358 0.0 0.0 0.0 21.6220 0.0 0 1.950000E+02 G 3.593069E-14 0.0 0.0 0.0 1.126716E+03 0.0 23.7264 0.0 0.0 0.0 21.4478 0.0 0 2.000000E+02 G 3.580683E-14 0.0 0.0 0.0 1.152737E+03 0.0 23.7175 0.0 0.0 0.0 21.2656 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 ELEMENT-ID = 5 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 0.0 9.354828E+02 0.0 1.030157E+03 0.0 4.734637E+01 0.0 4.611529E-12 0.0 202.7174 0.0 202.6068 0.0 21.5138 0.0 22.9204 0.0 0 5.000000E+00 9.442548E+02 0.0 1.039388E+03 0.0 4.757596E+01 0.0 4.658291E-12 0.0 202.6036 0.0 202.4939 0.0 21.4053 0.0 22.8046 0.0 0 1.000000E+01 9.716707E+02 0.0 1.068238E+03 0.0 4.829322E+01 0.0 4.804442E-12 0.0 202.4868 0.0 202.3801 0.0 21.3069 0.0 22.6816 0.0 0 1.500000E+01 1.021393E+03 0.0 1.120561E+03 0.0 4.959293E+01 0.0 5.069526E-12 0.0 202.3587 0.0 202.2575 0.0 21.2152 0.0 22.5425 0.0 0 2.000000E+01 1.100984E+03 0.0 1.204308E+03 0.0 5.167073E+01 0.0 5.493886E-12 0.0 202.2071 0.0 202.1143 0.0 21.1250 0.0 22.3743 0.0 0 2.500000E+01 1.225232E+03 0.0 1.335036E+03 0.0 5.490927E+01 0.0 6.156433E-12 0.0 202.0111 0.0 201.9301 0.0 21.0258 0.0 22.1555 0.0 0 3.000000E+01 1.424771E+03 0.0 1.544961E+03 0.0 6.010108E+01 0.0 7.220620E-12 0.0 201.7293 0.0 201.6642 0.0 20.8921 0.0 21.8438 0.0 0 3.500000E+01 1.772222E+03 0.0 1.910464E+03 0.0 6.912478E+01 0.0 9.073935E-12 0.0 201.2653 0.0 201.2210 0.0 20.6534 0.0 21.3419 0.0 0 4.000000E+01 2.487413E+03 0.0 2.662743E+03 0.0 8.766587E+01 0.0 1.288938E-11 0.0 200.3276 0.0 200.3102 0.0 20.0628 0.0 20.3572 0.0 0 4.500000E+01 4.678746E+03 0.0 4.967482E+03 0.0 1.443699E+02 0.0 2.458176E-11 0.0 197.4422 0.0 197.4589 0.0 17.7296 0.0 17.4144 0.0 0 5.000000E+01 4.234944E+04 0.0 4.453345E+04 0.0 1.092237E+03 0.0 2.260291E-10 0.0 101.6192 0.0 101.6790 0.0 282.8392 0.0 281.5223 0.0 0 5.500000E+01 3.929663E+03 0.0 4.086570E+03 0.0 7.855529E+01 0.0 2.134947E-11 0.0 28.9456 0.0 29.0598 0.0 211.9158 0.0 208.7662 0.0 0 6.000000E+01 1.863734E+03 0.0 1.913355E+03 0.0 2.499225E+01 0.0 1.032929E-11 0.0 26.2796 0.0 26.4620 0.0 213.2810 0.0 206.0019 0.0 0 6.500000E+01 1.167021E+03 0.0 1.180398E+03 0.0 7.231908E+00 0.0 6.613416E-12 0.0 25.4510 0.0 25.7195 0.0 227.9391 0.0 205.0573 0.0 0 7.000000E+01 8.198580E+02 0.0 8.151066E+02 0.0 3.590834E+00 0.0 4.762462E-12 0.0 25.1081 0.0 25.4855 0.0 336.7178 0.0 204.5774 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 ELEMENT-ID = 5 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 7.500000E+01 6.132747E+02 0.0 5.976743E+02 0.0 8.263032E+00 0.0 3.661602E-12 0.0 24.9773 0.0 25.4934 0.0 5.9659 0.0 204.2853 0.0 0 8.000000E+01 4.770239E+02 0.0 4.542129E+02 0.0 1.174882E+01 0.0 2.936068E-12 0.0 24.9698 0.0 25.6639 0.0 11.4279 0.0 204.0878 0.0 0 8.500001E+01 3.808834E+02 0.0 3.529352E+02 0.0 1.428408E+01 0.0 2.424623E-12 0.0 25.0508 0.0 25.9759 0.0 13.5457 0.0 203.9447 0.0 0 9.000000E+01 3.097184E+02 0.0 2.779249E+02 0.0 1.620514E+01 0.0 2.046521E-12 0.0 25.2069 0.0 26.4359 0.0 14.6083 0.0 203.8358 0.0 0 9.500001E+01 2.551182E+02 0.0 2.203394E+02 0.0 1.771567E+01 0.0 1.756886E-12 0.0 25.4352 0.0 27.0710 0.0 15.2094 0.0 203.7499 0.0 0 1.000000E+02 2.120418E+02 0.0 1.748829E+02 0.0 1.894110E+01 0.0 1.528822E-12 0.0 25.7401 0.0 27.9322 0.0 15.5690 0.0 203.6802 0.0 0 1.050000E+02 1.772865E+02 0.0 1.381972E+02 0.0 1.996219E+01 0.0 1.345238E-12 0.0 26.1316 0.0 29.1053 0.0 15.7865 0.0 203.6224 0.0 0 1.100000E+02 1.487232E+02 0.0 1.080611E+02 0.0 2.083309E+01 0.0 1.194769E-12 0.0 26.6260 0.0 30.7360 0.0 15.9134 0.0 203.5736 0.0 0 1.150000E+02 1.248833E+02 0.0 8.296330E+01 0.0 2.159142E+01 0.0 1.069569E-12 0.0 27.2476 0.0 33.0855 0.0 15.9787 0.0 203.5317 0.0 0 1.200000E+02 1.047232E+02 0.0 6.187334E+01 0.0 2.226409E+01 0.0 9.640560E-13 0.0 28.0316 0.0 36.6594 0.0 16.0000 0.0 203.4953 0.0 0 1.250000E+02 8.748266E+01 0.0 4.414425E+01 0.0 2.287092E+01 0.0 8.741512E-13 0.0 29.0296 0.0 42.5515 0.0 15.9884 0.0 203.4634 0.0 0 1.300000E+02 7.259776E+01 0.0 2.958955E+01 0.0 2.342680E+01 0.0 7.968098E-13 0.0 30.3193 0.0 53.4562 0.0 15.9514 0.0 203.4352 0.0 0 1.350000E+02 5.964526E+01 0.0 1.905482E+01 0.0 2.394316E+01 0.0 7.297157E-13 0.0 32.0219 0.0 76.2955 0.0 15.8941 0.0 203.4100 0.0 0 1.400000E+02 4.830762E+01 0.0 1.564074E+01 0.0 2.442899E+01 0.0 6.710764E-13 0.0 34.3352 0.0 117.0679 0.0 15.8201 0.0 203.3873 0.0 0 1.450000E+02 3.835432E+01 0.0 2.013535E+01 0.0 2.489142E+01 0.0 6.194849E-13 0.0 37.6015 0.0 150.5347 0.0 15.7320 0.0 203.3668 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 ELEMENT-ID = 5 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 1.500000E+02 2.963962E+01 0.0 2.766916E+01 0.0 2.533623E+01 0.0 5.738222E-13 0.0 42.4548 0.0 166.7256 0.0 15.6316 0.0 203.3482 0.0 0 1.550000E+02 2.213056E+01 0.0 3.562258E+01 0.0 2.576820E+01 0.0 5.331883E-13 0.0 50.1569 0.0 174.8432 0.0 15.5203 0.0 203.3311 0.0 0 1.600000E+02 1.600792E+01 0.0 4.331237E+01 0.0 2.619132E+01 0.0 4.968513E-13 0.0 63.3047 0.0 179.4816 0.0 15.3991 0.0 203.3155 0.0 0 1.650000E+02 1.191777E+01 0.0 5.058184E+01 0.0 2.660899E+01 0.0 4.642108E-13 0.0 86.1401 0.0 182.4066 0.0 15.2686 0.0 203.3010 0.0 0 1.700000E+02 1.096707E+01 0.0 5.741827E+01 0.0 2.702415E+01 0.0 4.347698E-13 0.0 117.5688 0.0 184.3798 0.0 15.1295 0.0 203.2877 0.0 0 1.750000E+02 1.307078E+01 0.0 6.385226E+01 0.0 2.743937E+01 0.0 4.081141E-13 0.0 143.5597 0.0 185.7735 0.0 14.9821 0.0 203.2753 0.0 0 1.800000E+02 1.668994E+01 0.0 6.992687E+01 0.0 2.785697E+01 0.0 3.838952E-13 0.0 158.9642 0.0 186.7888 0.0 14.8266 0.0 203.2638 0.0 0 1.850000E+02 2.078283E+01 0.0 7.568686E+01 0.0 2.827905E+01 0.0 3.618188E-13 0.0 167.8305 0.0 187.5431 0.0 14.6630 0.0 203.2531 0.0 0 1.900000E+02 2.494575E+01 0.0 8.117487E+01 0.0 2.870754E+01 0.0 3.416343E-13 0.0 173.2865 0.0 188.1095 0.0 14.4914 0.0 203.2430 0.0 0 1.950000E+02 2.903654E+01 0.0 8.643030E+01 0.0 2.914427E+01 0.0 3.231277E-13 0.0 176.8791 0.0 188.5353 0.0 14.3117 0.0 203.2335 0.0 0 2.000000E+02 3.300833E+01 0.0 9.148916E+01 0.0 2.959097E+01 0.0 3.061144E-13 0.0 179.3722 0.0 188.8527 0.0 14.1237 0.0 203.2247 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 ELEMENT-ID = 10 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 0.0 1.830121E+02 0.0 1.155043E-03 0.0 9.150663E+01 0.0 4.762778E-13 0.0 204.3487 0.0 23.0772 0.0 204.3487 0.0 22.9204 0.0 0 5.000000E+00 1.858488E+02 0.0 1.167436E-03 0.0 9.292496E+01 0.0 4.811073E-13 0.0 204.2107 0.0 22.9597 0.0 204.2107 0.0 22.8046 0.0 0 1.000000E+01 1.947159E+02 0.0 1.206170E-03 0.0 9.735853E+01 0.0 4.962018E-13 0.0 204.0200 0.0 22.8313 0.0 204.0200 0.0 22.6816 0.0 0 1.500000E+01 2.108035E+02 0.0 1.276428E-03 0.0 1.054024E+02 0.0 5.235797E-13 0.0 203.7681 0.0 22.6827 0.0 203.7681 0.0 22.5425 0.0 0 2.000000E+01 2.365691E+02 0.0 1.388908E-03 0.0 1.182852E+02 0.0 5.674074E-13 0.0 203.4453 0.0 22.5007 0.0 203.4453 0.0 22.3743 0.0 0 2.500000E+01 2.768202E+02 0.0 1.564535E-03 0.0 1.384108E+02 0.0 6.358351E-13 0.0 203.0350 0.0 22.2633 0.0 203.0350 0.0 22.1555 0.0 0 3.000000E+01 3.415155E+02 0.0 1.846658E-03 0.0 1.707587E+02 0.0 7.457442E-13 0.0 202.5011 0.0 21.9280 0.0 202.5011 0.0 21.8438 0.0 0 3.500000E+01 4.542653E+02 0.0 2.338035E-03 0.0 2.271338E+02 0.0 9.371542E-13 0.0 201.7531 0.0 21.3972 0.0 201.7531 0.0 21.3418 0.0 0 4.000000E+01 6.865510E+02 0.0 3.349746E-03 0.0 3.432772E+02 0.0 1.331213E-12 0.0 200.5048 0.0 20.3782 0.0 200.5048 0.0 20.3572 0.0 0 4.500000E+01 1.398918E+03 0.0 6.450471E-03 0.0 6.994623E+02 0.0 2.538799E-12 0.0 197.2868 0.0 17.3953 0.0 197.2868 0.0 17.4144 0.0 0 5.000000E+01 1.378779E+04 0.0 5.995254E-02 0.0 6.893927E+03 0.0 2.334424E-11 0.0 101.1129 0.0 281.4571 0.0 101.1129 0.0 281.5223 0.0 0 5.500000E+01 1.399353E+03 0.0 5.729979E-03 0.0 6.996795E+02 0.0 2.204969E-12 0.0 28.0725 0.0 208.6488 0.0 28.0725 0.0 208.7662 0.0 0 6.000000E+01 7.287396E+02 0.0 2.808066E-03 0.0 3.643712E+02 0.0 1.066807E-12 0.0 25.0247 0.0 205.8262 0.0 25.0247 0.0 206.0019 0.0 0 6.500000E+01 5.027852E+02 0.0 1.822942E-03 0.0 2.513935E+02 0.0 6.830322E-13 0.0 23.7993 0.0 204.8169 0.0 23.7993 0.0 205.0573 0.0 0 7.000000E+01 3.904093E+02 0.0 1.332348E-03 0.0 1.952053E+02 0.0 4.918662E-13 0.0 23.0434 0.0 204.2660 0.0 23.0434 0.0 204.5774 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 ELEMENT-ID = 10 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 7.500000E+01 3.237372E+02 0.0 1.040675E-03 0.0 1.618691E+02 0.0 3.781695E-13 0.0 22.4808 0.0 203.8965 0.0 22.4808 0.0 204.2853 0.0 0 8.000000E+01 2.799496E+02 0.0 8.485475E-04 0.0 1.399753E+02 0.0 3.032365E-13 0.0 22.0188 0.0 203.6150 0.0 22.0188 0.0 204.0878 0.0 0 8.500001E+01 2.492286E+02 0.0 7.132103E-04 0.0 1.246147E+02 0.0 2.504146E-13 0.0 21.6175 0.0 203.3814 0.0 21.6175 0.0 203.9447 0.0 0 9.000000E+01 2.266575E+02 0.0 6.132522E-04 0.0 1.133290E+02 0.0 2.113642E-13 0.0 21.2565 0.0 203.1755 0.0 21.2565 0.0 203.8358 0.0 0 9.500001E+01 2.095041E+02 0.0 5.367746E-04 0.0 1.047523E+02 0.0 1.814508E-13 0.0 20.9245 0.0 202.9862 0.0 20.9245 0.0 203.7499 0.0 0 1.000000E+02 1.961313E+02 0.0 4.766452E-04 0.0 9.806589E+01 0.0 1.578965E-13 0.0 20.6143 0.0 202.8065 0.0 20.6143 0.0 203.6802 0.0 0 1.050000E+02 1.854990E+02 0.0 4.283329E-04 0.0 9.274970E+01 0.0 1.389360E-13 0.0 20.3210 0.0 202.6323 0.0 20.3210 0.0 203.6224 0.0 0 1.100000E+02 1.769159E+02 0.0 3.888244E-04 0.0 8.845815E+01 0.0 1.233955E-13 0.0 20.0412 0.0 202.4606 0.0 20.0412 0.0 203.5736 0.0 0 1.150000E+02 1.699053E+02 0.0 3.560400E-04 0.0 8.495280E+01 0.0 1.104649E-13 0.0 19.7724 0.0 202.2896 0.0 19.7724 0.0 203.5317 0.0 0 1.200000E+02 1.641280E+02 0.0 3.284998E-04 0.0 8.206418E+01 0.0 9.956751E-14 0.0 19.5125 0.0 202.1176 0.0 19.5125 0.0 203.4953 0.0 0 1.250000E+02 1.593371E+02 0.0 3.051235E-04 0.0 7.966869E+01 0.0 9.028216E-14 0.0 19.2600 0.0 201.9438 0.0 19.2600 0.0 203.4634 0.0 0 1.300000E+02 1.553481E+02 0.0 2.851042E-04 0.0 7.767419E+01 0.0 8.229436E-14 0.0 19.0135 0.0 201.7674 0.0 19.0135 0.0 203.4352 0.0 0 1.350000E+02 1.520213E+02 0.0 2.678288E-04 0.0 7.601080E+01 0.0 7.536490E-14 0.0 18.7718 0.0 201.5876 0.0 18.7718 0.0 203.4100 0.0 0 1.400000E+02 1.492491E+02 0.0 2.528227E-04 0.0 7.462468E+01 0.0 6.930864E-14 0.0 18.5339 0.0 201.4042 0.0 18.5339 0.0 203.3873 0.0 0 1.450000E+02 1.469472E+02 0.0 2.397141E-04 0.0 7.347371E+01 0.0 6.398028E-14 0.0 18.2989 0.0 201.2167 0.0 18.2989 0.0 203.3668 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 THREE POINTS LOADED WITH TWO SETS SUBCASE 1 ELEMENT-ID = 10 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 1.500000E+02 1.450490E+02 0.0 2.282072E-04 0.0 7.252460E+01 0.0 5.926424E-14 0.0 18.0659 0.0 201.0247 0.0 18.0659 0.0 203.3482 0.0 0 1.550000E+02 1.435015E+02 0.0 2.180645E-04 0.0 7.175085E+01 0.0 5.506758E-14 0.0 17.8343 0.0 200.8280 0.0 17.8343 0.0 203.3311 0.0 0 1.600000E+02 1.422619E+02 0.0 2.090932E-04 0.0 7.113110E+01 0.0 5.131470E-14 0.0 17.6034 0.0 200.6263 0.0 17.6034 0.0 203.3155 0.0 0 1.650000E+02 1.412958E+02 0.0 2.011355E-04 0.0 7.064803E+01 0.0 4.794359E-14 0.0 17.3723 0.0 200.4194 0.0 17.3724 0.0 203.3010 0.0 0 1.700000E+02 1.405750E+02 0.0 1.940610E-04 0.0 7.028759E+01 0.0 4.490294E-14 0.0 17.1407 0.0 200.2071 0.0 17.1407 0.0 203.2877 0.0 0 1.750000E+02 1.400765E+02 0.0 1.877615E-04 0.0 7.003833E+01 0.0 4.214994E-14 0.0 16.9078 0.0 199.9890 0.0 16.9078 0.0 203.2753 0.0 0 1.800000E+02 1.397816E+02 0.0 1.821463E-04 0.0 6.989088E+01 0.0 3.964862E-14 0.0 16.6731 0.0 199.7651 0.0 16.6731 0.0 203.2638 0.0 0 1.850000E+02 1.396750E+02 0.0 1.771391E-04 0.0 6.983759E+01 0.0 3.736857E-14 0.0 16.4359 0.0 199.5350 0.0 16.4359 0.0 203.2531 0.0 0 1.900000E+02 1.397444E+02 0.0 1.726754E-04 0.0 6.987230E+01 0.0 3.528392E-14 0.0 16.1958 0.0 199.2984 0.0 16.1958 0.0 203.2430 0.0 0 1.950000E+02 1.399798E+02 0.0 1.687005E-04 0.0 6.999000E+01 0.0 3.337256E-14 0.0 15.9521 0.0 199.0551 0.0 15.9521 0.0 203.2335 0.0 0 2.000000E+02 1.403733E+02 0.0 1.651679E-04 0.0 7.018675E+01 0.0 3.161544E-14 0.0 15.7042 0.0 198.8047 0.0 15.7042 0.0 203.2247 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 ELEMENT-ID = 5 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 0.0 1.071489E+03 0.0 1.179633E+03 0.0 5.407232E+01 0.0 5.284338E-12 0.0 180.0000 0.0 180.0000 0.0 0.0 0.0 0.0 0.0 0 5.000000E+00 1.077627E+03 0.0 1.185912E+03 0.0 5.414252E+01 0.0 5.318554E-12 0.0 175.9938 0.0 176.0108 0.0 356.1794 0.0 355.9628 0.0 0 1.000000E+01 1.096883E+03 0.0 1.205632E+03 0.0 5.437559E+01 0.0 5.425670E-12 0.0 171.9955 0.0 172.0290 0.0 352.3675 0.0 351.9342 0.0 0 1.500000E+01 1.132050E+03 0.0 1.241737E+03 0.0 5.484585E+01 0.0 5.620563E-12 0.0 168.0119 0.0 168.0613 0.0 348.5720 0.0 347.9221 0.0 0 2.000000E+01 1.188894E+03 0.0 1.300297E+03 0.0 5.570592E+01 0.0 5.933942E-12 0.0 164.0478 0.0 164.1120 0.0 344.7972 0.0 343.9323 0.0 0 2.500000E+01 1.278687E+03 0.0 1.393177E+03 0.0 5.725208E+01 0.0 6.425881E-12 0.0 160.1023 0.0 160.1794 0.0 341.0404 0.0 339.9650 0.0 0 3.000000E+01 1.424769E+03 0.0 1.544935E+03 0.0 6.009358E+01 0.0 7.220824E-12 0.0 156.1584 0.0 156.2456 0.0 337.2793 0.0 336.0052 0.0 0 3.500000E+01 1.682444E+03 0.0 1.813746E+03 0.0 6.566612E+01 0.0 8.613795E-12 0.0 152.1506 0.0 152.2437 0.0 333.4367 0.0 331.9896 0.0 0 4.000000E+01 2.219074E+03 0.0 2.375624E+03 0.0 7.829682E+01 0.0 1.149786E-11 0.0 147.8287 0.0 147.9215 0.0 329.2368 0.0 327.6712 0.0 0 4.500000E+01 3.878141E+03 0.0 4.117538E+03 0.0 1.197335E+02 0.0 2.037498E-11 0.0 141.7748 0.0 141.8579 0.0 323.2047 0.0 321.6367 0.0 0 5.000000E+01 3.219735E+04 0.0 3.385284E+04 0.0 8.279254E+02 0.0 1.718856E-10 0.0 43.0794 0.0 43.1389 0.0 224.2948 0.0 222.9833 0.0 0 5.500000E+01 2.699974E+03 0.0 2.806252E+03 0.0 5.314004E+01 0.0 1.468114E-11 0.0 327.9482 0.0 327.9627 0.0 148.3293 0.0 147.9256 0.0 0 6.000000E+01 1.137309E+03 0.0 1.165958E+03 0.0 1.433882E+01 0.0 6.316542E-12 0.0 323.4222 0.0 323.3593 0.0 140.8622 0.0 143.5177 0.0 0 6.500000E+01 6.196766E+02 0.0 6.248115E+02 0.0 2.765038E+00 0.0 3.527755E-12 0.0 321.6263 0.0 321.4372 0.0 119.7403 0.0 141.9013 0.0 0 7.000000E+01 3.698486E+02 0.0 3.652437E+02 0.0 2.612310E+00 0.0 2.168633E-12 0.0 321.7060 0.0 321.3212 0.0 349.7031 0.0 142.2383 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 ELEMENT-ID = 5 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 7.500000E+01 2.289823E+02 0.0 2.200229E+02 0.0 4.662857E+00 0.0 1.393007E-12 0.0 324.2586 0.0 323.5980 0.0 340.0423 0.0 145.1157 0.0 0 8.000000E+01 1.443882E+02 0.0 1.334630E+02 0.0 5.578142E+00 0.0 9.218618E-13 0.0 330.7022 0.0 329.7697 0.0 341.9284 0.0 151.8111 0.0 0 8.500001E+01 9.452886E+01 0.0 8.257177E+01 0.0 6.003141E+00 0.0 6.428937E-13 0.0 343.1237 0.0 342.4196 0.0 347.9716 0.0 163.8665 0.0 0 9.000000E+01 6.945064E+01 0.0 5.676931E+01 0.0 6.374343E+00 0.0 5.044605E-13 0.0 1.9867 0.0 3.1811 0.0 356.6608 0.0 180.8826 0.0 0 9.500001E+01 6.148090E+01 0.0 4.818067E+01 0.0 6.973650E+00 0.0 4.656158E-13 0.0 21.6902 0.0 26.1116 0.0 6.2453 0.0 197.9330 0.0 0 1.000000E+02 6.175145E+01 0.0 4.727287E+01 0.0 7.926461E+00 0.0 4.796897E-13 0.0 35.6239 0.0 42.4748 0.0 14.7873 0.0 210.0825 0.0 0 1.050000E+02 6.386520E+01 0.0 4.730520E+01 0.0 9.224891E+00 0.0 5.114303E-13 0.0 43.3723 0.0 51.8589 0.0 21.1383 0.0 216.9341 0.0 0 1.100000E+02 6.511831E+01 0.0 4.580103E+01 0.0 1.079437E+01 0.0 5.437180E-13 0.0 47.0532 0.0 57.1794 0.0 25.1526 0.0 220.0654 0.0 0 1.150000E+02 6.475872E+01 0.0 4.232802E+01 0.0 1.254925E+01 0.0 5.702321E-13 0.0 48.3388 0.0 60.6857 0.0 27.2006 0.0 220.8470 0.0 0 1.200000E+02 6.275978E+01 0.0 3.714656E+01 0.0 1.441548E+01 0.0 5.892689E-13 0.0 48.2264 0.0 63.9822 0.0 27.7478 0.0 220.1432 0.0 0 1.250000E+02 5.932736E+01 0.0 3.077773E+01 0.0 1.633390E+01 0.0 6.008825E-13 0.0 47.3072 0.0 68.7211 0.0 27.1876 0.0 218.4705 0.0 0 1.300000E+02 5.472517E+01 0.0 2.400409E+01 0.0 1.825761E+01 0.0 6.057375E-13 0.0 45.9639 0.0 77.5649 0.0 25.8148 0.0 216.1427 0.0 0 1.350000E+02 4.921636E+01 0.0 1.828289E+01 0.0 2.014864E+01 0.0 6.046632E-13 0.0 44.4863 0.0 95.4823 0.0 23.8416 0.0 213.3575 0.0 0 1.400000E+02 4.304663E+01 0.0 1.642262E+01 0.0 2.197547E+01 0.0 5.984821E-13 0.0 43.1496 0.0 125.3846 0.0 21.4197 0.0 210.2442 0.0 0 1.450000E+02 3.644509E+01 0.0 2.026088E+01 0.0 2.371129E+01 0.0 5.879501E-13 0.0 42.2961 0.0 152.5048 0.0 18.6591 0.0 206.8907 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 ELEMENT-ID = 5 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 1.500000E+02 2.963577E+01 0.0 2.766802E+01 0.0 2.533288E+01 0.0 5.737407E-13 0.0 42.4698 0.0 166.7309 0.0 15.6406 0.0 203.3589 0.0 0 1.550000E+02 2.286872E+01 0.0 3.642219E+01 0.0 2.681986E+01 0.0 5.564474E-13 0.0 44.7294 0.0 172.8194 0.0 12.4252 0.0 199.6941 0.0 0 1.600000E+02 1.651114E+01 0.0 4.550950E+01 0.0 2.815425E+01 0.0 5.365906E-13 0.0 51.5035 0.0 174.8869 0.0 9.0597 0.0 195.9304 0.0 0 1.650000E+02 1.136168E+01 0.0 5.445230E+01 0.0 2.932016E+01 0.0 5.146273E-13 0.0 68.6887 0.0 174.8568 0.0 5.5814 0.0 192.0945 0.0 0 1.700000E+02 9.340127E+00 0.0 6.297414E+01 0.0 3.030359E+01 0.0 4.909609E-13 0.0 102.4673 0.0 173.6340 0.0 2.0210 0.0 188.2083 0.0 0 1.750000E+02 1.167357E+01 0.0 7.088631E+01 0.0 3.109234E+01 0.0 4.659476E-13 0.0 133.1297 0.0 171.6855 0.0 358.4048 0.0 184.2905 0.0 0 1.800000E+02 1.615996E+01 0.0 7.804697E+01 0.0 3.167599E+01 0.0 4.399043E-13 0.0 147.2879 0.0 169.2755 0.0 354.7558 0.0 180.3575 0.0 0 1.850000E+02 2.106919E+01 0.0 8.434379E+01 0.0 3.204583E+01 0.0 4.131135E-13 0.0 152.6677 0.0 166.5669 0.0 351.0961 0.0 176.4253 0.0 0 1.900000E+02 2.578781E+01 0.0 8.968629E+01 0.0 3.219494E+01 0.0 3.858289E-13 0.0 154.1987 0.0 163.6689 0.0 347.4471 0.0 172.5096 0.0 0 1.950000E+02 3.007425E+01 0.0 9.400175E+01 0.0 3.211822E+01 0.0 3.582789E-13 0.0 153.8763 0.0 160.6609 0.0 343.8315 0.0 168.6270 0.0 0 2.000000E+02 3.380748E+01 0.0 9.723360E+01 0.0 3.181252E+01 0.0 3.306698E-13 0.0 152.5805 0.0 157.6060 0.0 340.2739 0.0 164.7962 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 ELEMENT-ID = 10 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 0.0 2.102971E+02 0.0 1.324006E-03 0.0 1.051492E+02 0.0 5.457654E-13 0.0 180.0000 0.0 0.0 0.0 180.0000 0.0 0.0 0.0 0 5.000000E+00 2.127605E+02 0.0 1.333341E-03 0.0 1.063809E+02 0.0 5.492992E-13 0.0 175.7465 0.0 355.9389 0.0 175.7465 0.0 355.9628 0.0 0 1.000000E+01 2.204198E+02 0.0 1.362530E-03 0.0 1.102106E+02 0.0 5.603621E-13 0.0 171.5146 0.0 351.8872 0.0 171.5146 0.0 351.9342 0.0 0 1.500000E+01 2.341724E+02 0.0 1.415511E-03 0.0 1.170869E+02 0.0 5.804907E-13 0.0 167.3246 0.0 347.8536 0.0 167.3246 0.0 347.9221 0.0 0 2.000000E+01 2.558743E+02 0.0 1.500419E-03 0.0 1.279379E+02 0.0 6.128564E-13 0.0 163.1931 0.0 343.8449 0.0 163.1931 0.0 343.9323 0.0 0 2.500000E+01 2.891654E+02 0.0 1.633172E-03 0.0 1.445836E+02 0.0 6.636637E-13 0.0 159.1293 0.0 339.8625 0.0 159.1293 0.0 339.9650 0.0 0 3.000000E+01 3.416048E+02 0.0 1.846755E-03 0.0 1.708033E+02 0.0 7.457653E-13 0.0 155.1254 0.0 335.8924 0.0 155.1254 0.0 336.0052 0.0 0 3.500000E+01 4.311479E+02 0.0 2.219393E-03 0.0 2.155750E+02 0.0 8.896310E-13 0.0 151.1245 0.0 331.8731 0.0 151.1245 0.0 331.9896 0.0 0 4.000000E+01 6.122241E+02 0.0 2.987935E-03 0.0 3.061136E+02 0.0 1.187497E-12 0.0 146.8853 0.0 327.5596 0.0 146.8854 0.0 327.6712 0.0 0 4.500000E+01 1.159477E+03 0.0 5.346508E-03 0.0 5.797413E+02 0.0 2.104324E-12 0.0 141.0012 0.0 321.5413 0.0 141.0012 0.0 321.6367 0.0 0 5.000000E+01 1.049552E+04 0.0 4.559865E-02 0.0 5.247784E+03 0.0 1.775231E-11 0.0 42.5772 0.0 222.9185 0.0 42.5772 0.0 222.9833 0.0 0 5.500000E+01 9.653431E+02 0.0 3.942432E-03 0.0 4.826735E+02 0.0 1.516265E-12 0.0 327.8383 0.0 147.9108 0.0 327.8383 0.0 147.9256 0.0 0 6.000000E+01 4.488638E+02 0.0 1.719450E-03 0.0 2.244328E+02 0.0 6.523712E-13 0.0 323.8506 0.0 143.5779 0.0 323.8506 0.0 143.5177 0.0 0 6.500000E+01 2.720630E+02 0.0 9.750983E-04 0.0 1.360320E+02 0.0 3.643458E-13 0.0 322.7635 0.0 142.0679 0.0 322.7635 0.0 141.9013 0.0 0 7.000000E+01 1.825661E+02 0.0 6.100175E-04 0.0 9.128336E+01 0.0 2.239760E-13 0.0 323.7226 0.0 142.5460 0.0 323.7226 0.0 142.2383 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 ELEMENT-ID = 10 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 7.500000E+01 1.291578E+02 0.0 4.000523E-04 0.0 6.457909E+01 0.0 1.438695E-13 0.0 327.2075 0.0 145.5835 0.0 327.2075 0.0 145.1157 0.0 0 8.000000E+01 9.534576E+01 0.0 2.715755E-04 0.0 4.767302E+01 0.0 9.520970E-14 0.0 334.1230 0.0 152.3733 0.0 334.1230 0.0 151.8111 0.0 0 8.500001E+01 7.492873E+01 0.0 1.952564E-04 0.0 3.746446E+01 0.0 6.639794E-14 0.0 345.1565 0.0 164.2095 0.0 345.1565 0.0 163.8665 0.0 0 9.000000E+01 6.531602E+01 0.0 1.577253E-04 0.0 3.265809E+01 0.0 5.210059E-14 0.0 359.2666 0.0 180.4190 0.0 359.2666 0.0 180.8826 0.0 0 9.500001E+01 6.427637E+01 0.0 1.482400E-04 0.0 3.213826E+01 0.0 4.808871E-14 0.0 12.9839 0.0 196.4479 0.0 12.9839 0.0 197.9330 0.0 0 1.000000E+02 6.885846E+01 0.0 1.544337E-04 0.0 3.442931E+01 0.0 4.954226E-14 0.0 23.2370 0.0 207.9724 0.0 23.2370 0.0 210.0825 0.0 0 1.050000E+02 7.637560E+01 0.0 1.666522E-04 0.0 3.818788E+01 0.0 5.282042E-14 0.0 29.5192 0.0 214.5856 0.0 29.5192 0.0 216.9341 0.0 0 1.100000E+02 8.512075E+01 0.0 1.798860E-04 0.0 4.256046E+01 0.0 5.615509E-14 0.0 32.7056 0.0 217.6584 0.0 32.7056 0.0 220.0654 0.0 0 1.150000E+02 9.418413E+01 0.0 1.920749E-04 0.0 4.709216E+01 0.0 5.889346E-14 0.0 33.7592 0.0 218.4445 0.0 33.7592 0.0 220.8470 0.0 0 1.200000E+02 1.031014E+02 0.0 2.025053E-04 0.0 5.155081E+01 0.0 6.085957E-14 0.0 33.3776 0.0 217.7615 0.0 33.3776 0.0 220.1432 0.0 0 1.250000E+02 1.116292E+02 0.0 2.110150E-04 0.0 5.581473E+01 0.0 6.205902E-14 0.0 32.0184 0.0 216.1100 0.0 32.0184 0.0 218.4705 0.0 0 1.300000E+02 1.196313E+02 0.0 2.176552E-04 0.0 5.981575E+01 0.0 6.256044E-14 0.0 29.9774 0.0 213.7988 0.0 29.9774 0.0 216.1427 0.0 0 1.350000E+02 1.270237E+02 0.0 2.225517E-04 0.0 6.351197E+01 0.0 6.244950E-14 0.0 27.4494 0.0 211.0247 0.0 27.4494 0.0 213.3575 0.0 0 1.400000E+02 1.337489E+02 0.0 2.258474E-04 0.0 6.687457E+01 0.0 6.181112E-14 0.0 24.5662 0.0 207.9176 0.0 24.5662 0.0 210.2442 0.0 0 1.450000E+02 1.397629E+02 0.0 2.276803E-04 0.0 6.988155E+01 0.0 6.072337E-14 0.0 21.4196 0.0 204.5667 0.0 21.4196 0.0 206.8907 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO SETS AND TIME DELAYS SUBCASE 2 ELEMENT-ID = 10 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 1.500000E+02 1.450292E+02 0.0 2.281752E-04 0.0 7.251472E+01 0.0 5.925583E-14 0.0 18.0755 0.0 201.0349 0.0 18.0755 0.0 203.3589 0.0 0 1.550000E+02 1.495163E+02 0.0 2.274425E-04 0.0 7.475824E+01 0.0 5.746978E-14 0.0 14.5830 0.0 197.3687 0.0 14.5830 0.0 199.6941 0.0 0 1.600000E+02 1.531957E+02 0.0 2.255788E-04 0.0 7.659797E+01 0.0 5.541897E-14 0.0 10.9797 0.0 193.6033 0.0 10.9797 0.0 195.9304 0.0 0 1.650000E+02 1.560423E+02 0.0 2.226683E-04 0.0 7.802124E+01 0.0 5.315061E-14 0.0 7.2956 0.0 189.7666 0.0 7.2956 0.0 192.0945 0.0 0 1.700000E+02 1.580338E+02 0.0 2.187857E-04 0.0 7.901700E+01 0.0 5.070634E-14 0.0 3.5553 0.0 185.8816 0.0 3.5553 0.0 188.2083 0.0 0 1.750000E+02 1.591512E+02 0.0 2.139972E-04 0.0 7.957571E+01 0.0 4.812298E-14 0.0 359.7803 0.0 181.9683 0.0 359.7803 0.0 184.2905 0.0 0 1.800000E+02 1.593792E+02 0.0 2.083629E-04 0.0 7.968972E+01 0.0 4.543323E-14 0.0 355.9902 0.0 178.0447 0.0 355.9903 0.0 180.3575 0.0 0 1.850000E+02 1.587066E+02 0.0 2.019378E-04 0.0 7.935339E+01 0.0 4.266629E-14 0.0 352.2038 0.0 174.1281 0.0 352.2038 0.0 176.4253 0.0 0 1.900000E+02 1.571265E+02 0.0 1.947740E-04 0.0 7.856335E+01 0.0 3.984833E-14 0.0 348.4399 0.0 170.2363 0.0 348.4399 0.0 172.5096 0.0 0 1.950000E+02 1.546375E+02 0.0 1.869212E-04 0.0 7.731883E+01 0.0 3.700298E-14 0.0 344.7189 0.0 166.3882 0.0 344.7189 0.0 168.6270 0.0 0 2.000000E+02 1.512437E+02 0.0 1.784281E-04 0.0 7.562193E+01 0.0 3.415151E-14 0.0 341.0637 0.0 162.6052 0.0 341.0637 0.0 164.7962 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 ELEMENT-ID = 5 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 0.0 9.091774E+02 0.0 9.965700E+02 0.0 4.369627E+01 0.0 4.519754E-12 0.0 203.4132 0.0 203.4132 0.0 23.4132 0.0 23.4132 0.0 0 5.000000E+00 9.177738E+02 0.0 1.005616E+03 0.0 4.392102E+01 0.0 4.565585E-12 0.0 203.2975 0.0 203.2976 0.0 23.2980 0.0 23.2975 0.0 0 1.000000E+01 9.446410E+02 0.0 1.033887E+03 0.0 4.462313E+01 0.0 4.708828E-12 0.0 203.1751 0.0 203.1754 0.0 23.1791 0.0 23.1745 0.0 0 1.500000E+01 9.933684E+02 0.0 1.085159E+03 0.0 4.589544E+01 0.0 4.968636E-12 0.0 203.0374 0.0 203.0386 0.0 23.0514 0.0 23.0353 0.0 0 2.000000E+01 1.071366E+03 0.0 1.167225E+03 0.0 4.792954E+01 0.0 5.384551E-12 0.0 202.8722 0.0 202.8750 0.0 22.9067 0.0 22.8671 0.0 0 2.500000E+01 1.193128E+03 0.0 1.295328E+03 0.0 5.110021E+01 0.0 6.033912E-12 0.0 202.6582 0.0 202.6639 0.0 22.7297 0.0 22.6483 0.0 0 3.000000E+01 1.388675E+03 0.0 1.501042E+03 0.0 5.618366E+01 0.0 7.076921E-12 0.0 202.3540 0.0 202.3639 0.0 22.4870 0.0 22.3366 0.0 0 3.500000E+01 1.729179E+03 0.0 1.859217E+03 0.0 6.501962E+01 0.0 8.893351E-12 0.0 201.8626 0.0 201.8788 0.0 22.0949 0.0 21.8347 0.0 0 4.000000E+01 2.430077E+03 0.0 2.596425E+03 0.0 8.317564E+01 0.0 1.263287E-11 0.0 200.8923 0.0 200.9173 0.0 21.2829 0.0 20.8501 0.0 0 4.500000E+01 4.577644E+03 0.0 4.855034E+03 0.0 1.387032E+02 0.0 2.409255E-11 0.0 197.9684 0.0 198.0054 0.0 18.6151 0.0 17.9073 0.0 0 5.000000E+01 4.150477E+04 0.0 4.364398E+04 0.0 1.069787E+03 0.0 2.215308E-10 0.0 102.1007 0.0 102.1535 0.0 283.1782 0.0 282.0152 0.0 0 5.500000E+01 3.858775E+03 0.0 4.017680E+03 0.0 7.949275E+01 0.0 2.092459E-11 0.0 29.3752 0.0 29.4488 0.0 211.2371 0.0 209.2590 0.0 0 6.000000E+01 1.834166E+03 0.0 1.888059E+03 0.0 2.699626E+01 0.0 1.012372E-11 0.0 26.6492 0.0 26.7500 0.0 210.1762 0.0 206.4948 0.0 0 6.500000E+01 1.151392E+03 0.0 1.169808E+03 0.0 9.309927E+00 0.0 6.481800E-12 0.0 25.7516 0.0 25.8875 0.0 214.3224 0.0 205.5501 0.0 0 7.000000E+01 8.111816E+02 0.0 8.118510E+02 0.0 1.326552E+00 0.0 4.667683E-12 0.0 25.3292 0.0 25.5105 0.0 280.8083 0.0 205.0702 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 ELEMENT-ID = 5 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 7.500000E+01 6.087410E+02 0.0 5.987877E+02 0.0 5.134537E+00 0.0 3.588732E-12 0.0 25.1069 0.0 25.3467 0.0 10.9794 0.0 204.7782 0.0 0 8.000000E+01 4.752274E+02 0.0 4.582100E+02 0.0 8.605281E+00 0.0 2.877637E-12 0.0 24.9936 0.0 25.3093 0.0 16.5573 0.0 204.5806 0.0 0 8.500001E+01 3.810224E+02 0.0 3.589660E+02 0.0 1.110911E+01 0.0 2.376371E-12 0.0 24.9520 0.0 25.3666 0.0 18.2381 0.0 204.4375 0.0 0 9.000000E+01 3.112934E+02 0.0 2.854554E+02 0.0 1.299644E+01 0.0 2.005792E-12 0.0 24.9652 0.0 25.5097 0.0 18.9746 0.0 204.3286 0.0 0 9.500001E+01 2.577974E+02 0.0 2.290092E+02 0.0 1.447418E+01 0.0 1.721922E-12 0.0 25.0261 0.0 25.7432 0.0 19.3441 0.0 204.2427 0.0 0 1.000000E+02 2.155933E+02 0.0 1.844317E+02 0.0 1.566821E+01 0.0 1.498397E-12 0.0 25.1334 0.0 26.0832 0.0 19.5347 0.0 204.1730 0.0 0 1.050000E+02 1.815416E+02 0.0 1.484226E+02 0.0 1.665906E+01 0.0 1.318467E-12 0.0 25.2892 0.0 26.5588 0.0 19.6248 0.0 204.1152 0.0 0 1.100000E+02 1.535546E+02 0.0 1.187892E+02 0.0 1.750050E+01 0.0 1.170992E-12 0.0 25.4996 0.0 27.2197 0.0 19.6528 0.0 204.0664 0.0 0 1.150000E+02 1.301913E+02 0.0 9.402124E+01 0.0 1.822980E+01 0.0 1.048284E-12 0.0 25.7741 0.0 28.1492 0.0 19.6395 0.0 204.0245 0.0 0 1.200000E+02 1.104263E+02 0.0 7.305027E+01 0.0 1.887358E+01 0.0 9.448701E-13 0.0 26.1269 0.0 29.4957 0.0 19.5970 0.0 203.9882 0.0 0 1.250000E+02 9.351117E+01 0.0 5.510919E+01 0.0 1.945137E+01 0.0 8.567544E-13 0.0 26.5786 0.0 31.5459 0.0 19.5329 0.0 203.9563 0.0 0 1.300000E+02 7.888757E+01 0.0 3.965644E+01 0.0 1.997787E+01 0.0 7.809522E-13 0.0 27.1591 0.0 34.9246 0.0 19.4520 0.0 203.9280 0.0 0 1.350000E+02 6.613182E+01 0.0 2.637115E+01 0.0 2.046432E+01 0.0 7.151935E-13 0.0 27.9130 0.0 41.2623 0.0 19.3576 0.0 203.9028 0.0 0 1.400000E+02 5.491774E+01 0.0 1.536792E+01 0.0 2.091953E+01 0.0 6.577211E-13 0.0 28.9090 0.0 56.0837 0.0 19.2518 0.0 203.8801 0.0 0 1.450000E+02 4.499247E+01 0.0 8.798289E+00 0.0 2.135050E+01 0.0 6.071564E-13 0.0 30.2577 0.0 99.6733 0.0 19.1363 0.0 203.8596 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 ELEMENT-ID = 5 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 1.500000E+02 3.616049E+01 0.0 1.168843E+01 0.0 2.176289E+01 0.0 5.624024E-13 0.0 32.1484 0.0 154.3357 0.0 19.0121 0.0 203.8410 0.0 0 1.550000E+02 2.827609E+01 0.0 1.884678E+01 0.0 2.216134E+01 0.0 5.225772E-13 0.0 34.9303 0.0 174.3724 0.0 18.8799 0.0 203.8240 0.0 0 1.600000E+02 2.124665E+01 0.0 2.629103E+01 0.0 2.254974E+01 0.0 4.869633E-13 0.0 39.3167 0.0 182.2397 0.0 18.7402 0.0 203.8083 0.0 0 1.650000E+02 1.506450E+01 0.0 3.338420E+01 0.0 2.293139E+01 0.0 4.549724E-13 0.0 46.9648 0.0 186.2117 0.0 18.5935 0.0 203.7939 0.0 0 1.700000E+02 9.942478E+00 0.0 4.004146E+01 0.0 2.330910E+01 0.0 4.261173E-13 0.0 62.2651 0.0 188.5391 0.0 18.4398 0.0 203.7805 0.0 0 1.750000E+02 6.823878E+00 0.0 4.628185E+01 0.0 2.368535E+01 0.0 3.999921E-13 0.0 94.9965 0.0 190.0291 0.0 18.2794 0.0 203.7682 0.0 0 1.800000E+02 7.376647E+00 0.0 5.214791E+01 0.0 2.406236E+01 0.0 3.762552E-13 0.0 137.5549 0.0 191.0360 0.0 18.1121 0.0 203.7567 0.0 0 1.850000E+02 1.050928E+01 0.0 5.768567E+01 0.0 2.444209E+01 0.0 3.546181E-13 0.0 161.5867 0.0 191.7387 0.0 17.9379 0.0 203.7459 0.0 0 1.900000E+02 1.433553E+01 0.0 6.293898E+01 0.0 2.482640E+01 0.0 3.348353E-13 0.0 172.7747 0.0 192.2366 0.0 17.7567 0.0 203.7358 0.0 0 1.950000E+02 1.823746E+01 0.0 6.794803E+01 0.0 2.521696E+01 0.0 3.166970E-13 0.0 178.7025 0.0 192.5894 0.0 17.5683 0.0 203.7264 0.0 0 2.000000E+02 2.205458E+01 0.0 7.274917E+01 0.0 2.561541E+01 0.0 3.000223E-13 0.0 182.2447 0.0 192.8346 0.0 17.3724 0.0 203.7175 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 ELEMENT-ID = 10 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 0.0 1.898882E+02 0.0 1.139378E-03 0.0 9.494466E+01 0.0 4.667993E-13 0.0 203.4132 0.0 23.4132 0.0 203.4132 0.0 23.4132 0.0 0 5.000000E+00 1.926707E+02 0.0 1.151525E-03 0.0 9.633591E+01 0.0 4.715326E-13 0.0 203.2970 0.0 23.2974 0.0 203.2970 0.0 23.2975 0.0 0 1.000000E+01 2.013686E+02 0.0 1.189492E-03 0.0 1.006849E+02 0.0 4.863267E-13 0.0 203.1704 0.0 23.1740 0.0 203.1704 0.0 23.1745 0.0 0 1.500000E+01 2.171492E+02 0.0 1.258358E-03 0.0 1.085752E+02 0.0 5.131598E-13 0.0 203.0220 0.0 23.0337 0.0 203.0220 0.0 23.0353 0.0 0 2.000000E+01 2.424221E+02 0.0 1.368608E-03 0.0 1.212117E+02 0.0 5.561154E-13 0.0 202.8364 0.0 22.8634 0.0 202.8364 0.0 22.8671 0.0 0 2.500000E+01 2.819005E+02 0.0 1.540755E-03 0.0 1.409510E+02 0.0 6.231812E-13 0.0 202.5904 0.0 22.6410 0.0 202.5904 0.0 22.6483 0.0 0 3.000000E+01 3.453481E+02 0.0 1.817284E-03 0.0 1.726749E+02 0.0 7.309030E-13 0.0 202.2406 0.0 22.3240 0.0 202.2406 0.0 22.3366 0.0 0 3.500000E+01 4.559121E+02 0.0 2.298915E-03 0.0 2.279572E+02 0.0 9.185037E-13 0.0 201.6890 0.0 21.8147 0.0 201.6890 0.0 21.8347 0.0 0 4.000000E+01 6.836718E+02 0.0 3.290552E-03 0.0 3.418375E+02 0.0 1.304720E-12 0.0 200.6434 0.0 20.8203 0.0 200.6434 0.0 20.8501 0.0 0 4.500000E+01 1.382090E+03 0.0 6.329721E-03 0.0 6.910480E+02 0.0 2.488274E-12 0.0 197.6285 0.0 17.8651 0.0 197.6285 0.0 17.9073 0.0 0 5.000000E+01 1.351588E+04 0.0 5.876117E-02 0.0 6.757967E+03 0.0 2.287966E-11 0.0 101.6539 0.0 281.9576 0.0 101.6539 0.0 282.0152 0.0 0 5.500000E+01 1.361360E+03 0.0 5.608950E-03 0.0 6.806826E+02 0.0 2.161088E-12 0.0 28.8057 0.0 209.1828 0.0 28.8057 0.0 209.2590 0.0 0 6.000000E+01 7.037911E+02 0.0 2.744985E-03 0.0 3.518969E+02 0.0 1.045576E-12 0.0 25.9408 0.0 206.3964 0.0 25.9409 0.0 206.4948 0.0 0 6.500000E+01 4.822092E+02 0.0 1.779389E-03 0.0 2.411055E+02 0.0 6.694391E-13 0.0 24.8879 0.0 205.4258 0.0 24.8879 0.0 205.5501 0.0 0 7.000000E+01 3.719853E+02 0.0 1.298508E-03 0.0 1.859933E+02 0.0 4.820774E-13 0.0 24.2929 0.0 204.9160 0.0 24.2929 0.0 205.0702 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 ELEMENT-ID = 10 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 7.500000E+01 3.065697E+02 0.0 1.012599E-03 0.0 1.532853E+02 0.0 3.706435E-13 0.0 23.8797 0.0 204.5897 0.0 23.8797 0.0 204.7782 0.0 0 8.000000E+01 2.635885E+02 0.0 8.242577E-04 0.0 1.317947E+02 0.0 2.972018E-13 0.0 23.5558 0.0 204.3536 0.0 23.5558 0.0 204.5806 0.0 0 8.500001E+01 2.334157E+02 0.0 6.915779E-04 0.0 1.167082E+02 0.0 2.454311E-13 0.0 23.2816 0.0 204.1672 0.0 23.2816 0.0 204.4375 0.0 0 9.000000E+01 2.112305E+02 0.0 5.935726E-04 0.0 1.056156E+02 0.0 2.071578E-13 0.0 23.0374 0.0 204.0103 0.0 23.0374 0.0 204.3286 0.0 0 9.500001E+01 1.943543E+02 0.0 5.185795E-04 0.0 9.717739E+01 0.0 1.778398E-13 0.0 22.8124 0.0 203.8714 0.0 22.8124 0.0 204.2427 0.0 0 1.000000E+02 1.811816E+02 0.0 4.596080E-04 0.0 9.059101E+01 0.0 1.547541E-13 0.0 22.6001 0.0 203.7435 0.0 22.6001 0.0 204.1730 0.0 0 1.050000E+02 1.706926E+02 0.0 4.122164E-04 0.0 8.534653E+01 0.0 1.361710E-13 0.0 22.3965 0.0 203.6222 0.0 22.3965 0.0 204.1152 0.0 0 1.100000E+02 1.622096E+02 0.0 3.734512E-04 0.0 8.110499E+01 0.0 1.209398E-13 0.0 22.1988 0.0 203.5045 0.0 22.1988 0.0 204.0664 0.0 0 1.150000E+02 1.552648E+02 0.0 3.412741E-04 0.0 7.763260E+01 0.0 1.082665E-13 0.0 22.0052 0.0 203.3881 0.0 22.0052 0.0 204.0245 0.0 0 1.200000E+02 1.495259E+02 0.0 3.142345E-04 0.0 7.476312E+01 0.0 9.758600E-14 0.0 21.8142 0.0 203.2716 0.0 21.8142 0.0 203.9882 0.0 0 1.250000E+02 1.447503E+02 0.0 2.912733E-04 0.0 7.237529E+01 0.0 8.848544E-14 0.0 21.6248 0.0 203.1537 0.0 21.6248 0.0 203.9563 0.0 0 1.300000E+02 1.407572E+02 0.0 2.715996E-04 0.0 7.037874E+01 0.0 8.065659E-14 0.0 21.4361 0.0 203.0335 0.0 21.4362 0.0 203.9280 0.0 0 1.350000E+02 1.374094E+02 0.0 2.546124E-04 0.0 6.870484E+01 0.0 7.386505E-14 0.0 21.2476 0.0 202.9103 0.0 21.2476 0.0 203.9028 0.0 0 1.400000E+02 1.346012E+02 0.0 2.398464E-04 0.0 6.730072E+01 0.0 6.792930E-14 0.0 21.0586 0.0 202.7834 0.0 21.0586 0.0 203.8801 0.0 0 1.450000E+02 1.322498E+02 0.0 2.269370E-04 0.0 6.612499E+01 0.0 6.270699E-14 0.0 20.8685 0.0 202.6524 0.0 20.8685 0.0 203.8596 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 ONE POINT LOADED WITH TWO TABULAR LOADS SUBCASE 3 ELEMENT-ID = 10 C O M P L E X F O R C E S I N B A R E L E M E N T S ( C B A R ) (MAGNITUDE/PHASE) BEND-MOMENT-END-A BEND-MOMENT-END-B SHEAR FREQUENCY PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 0 1.500000E+02 1.302897E+02 0.0 2.155941E-04 0.0 6.514495E+01 0.0 5.808481E-14 0.0 20.6771 0.0 202.5168 0.0 20.6771 0.0 203.8410 0.0 0 1.550000E+02 1.286688E+02 0.0 2.055850E-04 0.0 6.433449E+01 0.0 5.397167E-14 0.0 20.4837 0.0 202.3762 0.0 20.4837 0.0 203.8240 0.0 0 1.600000E+02 1.273449E+02 0.0 1.967206E-04 0.0 6.367255E+01 0.0 5.029348E-14 0.0 20.2881 0.0 202.2303 0.0 20.2881 0.0 203.8083 0.0 0 1.650000E+02 1.262840E+02 0.0 1.888459E-04 0.0 6.314208E+01 0.0 4.698946E-14 0.0 20.0897 0.0 202.0786 0.0 20.0897 0.0 203.7939 0.0 0 1.700000E+02 1.254581E+02 0.0 1.818330E-04 0.0 6.272917E+01 0.0 4.400931E-14 0.0 19.8884 0.0 201.9211 0.0 19.8884 0.0 203.7805 0.0 0 1.750000E+02 1.248447E+02 0.0 1.755758E-04 0.0 6.242244E+01 0.0 4.131111E-14 0.0 19.6835 0.0 201.7572 0.0 19.6835 0.0 203.7682 0.0 0 1.800000E+02 1.244250E+02 0.0 1.699850E-04 0.0 6.221256E+01 0.0 3.885956E-14 0.0 19.4749 0.0 201.5867 0.0 19.4749 0.0 203.7566 0.0 0 1.850000E+02 1.241837E+02 0.0 1.649857E-04 0.0 6.209191E+01 0.0 3.662489E-14 0.0 19.2619 0.0 201.4093 0.0 19.2619 0.0 203.7459 0.0 0 1.900000E+02 1.241084E+02 0.0 1.605145E-04 0.0 6.205425E+01 0.0 3.458173E-14 0.0 19.0444 0.0 201.2246 0.0 19.0444 0.0 203.7358 0.0 0 1.950000E+02 1.241889E+02 0.0 1.565178E-04 0.0 6.209455E+01 0.0 3.270841E-14 0.0 18.8217 0.0 201.0324 0.0 18.8217 0.0 203.7264 0.0 0 2.000000E+02 1.244173E+02 0.0 1.529493E-04 0.0 6.220874E+01 0.0 3.098625E-14 0.0 18.5935 0.0 200.8323 0.0 18.5935 0.0 203.7175 0.0 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 255, REENTER AT DMAP SEQUENCE NUMBER 144 256, XYPLTF , FLAGS = 0, REEL = 1, FILE = 115 257, XVPS , FLAGS = 0, REEL = 1, FILE = 116 258, REENTER AT DMAP SEQUENCE NUMBER 151 259, PSDF , FLAGS = 0, REEL = 1, FILE = 117 260, AUTO , FLAGS = 0, REEL = 1, FILE = 118 261, XVPS , FLAGS = 0, REEL = 1, FILE = 119 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 X Y - O U T P U T S U M M A R Y ROOT MEAN SQUARE VALUE = 7.516472E+01 FREQUENCY OF ZERO CROSSINGS (N ZERO) = 4.993961E+01 POWER-SPECTRAL-DENSITY-FUNCTION (PSDF) DISPLACEMENT CURVE 6( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 1 CURVE TITLE = POWER SPECTRAL DENSITY OF POINT 6 DISPLACEMENT X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = S THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 2.000000E+02) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.050000E+02 THE LARGEST Y-VALUE = 1.091940E+03 AT X = 5.000000E+01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 2.000000E+02) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.050000E+02 THE LARGEST Y-VALUE = 1.091940E+03 AT X = 5.000000E+01 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 96 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 DISPLACEMENT CURVE ID = 6 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 0.000000E+00 6.019619E-01 2 5.000000E+00 6.122857E-01 3 1.000000E+01 6.451628E-01 4 1.500000E+01 7.071491E-01 5 2.000000E+01 8.126903E-01 6 2.500000E+01 9.929726E-01 7 3.000000E+01 1.322022E+00 8 3.500000E+01 2.011029E+00 9 4.000000E+01 3.892651E+00 10 4.500000E+01 1.353760E+01 11 5.000000E+01 1.091940E+03 12 5.500000E+01 9.284113E+00 13 6.000000E+01 2.071775E+00 14 6.500000E+01 8.111300E-01 15 7.000000E+01 4.031226E-01 16 7.500000E+01 2.295305E-01 17 8.000000E+01 1.430779E-01 18 8.500001E+01 9.532253E-02 19 9.000000E+01 6.690467E-02 20 9.500001E+01 4.899855E-02 21 1.000000E+02 1.858976E-02 22 1.050000E+02 0.000000E+00 23 1.100000E+02 0.000000E+00 24 1.150000E+02 0.000000E+00 25 1.200000E+02 0.000000E+00 26 1.250000E+02 0.000000E+00 27 1.300000E+02 0.000000E+00 28 1.350000E+02 0.000000E+00 29 1.400000E+02 0.000000E+00 30 1.450000E+02 0.000000E+00 31 1.500000E+02 0.000000E+00 32 1.550000E+02 0.000000E+00 33 1.600000E+02 0.000000E+00 34 1.650000E+02 0.000000E+00 35 1.700000E+02 0.000000E+00 36 1.750000E+02 0.000000E+00 37 1.800000E+02 0.000000E+00 38 1.850000E+02 0.000000E+00 39 1.900000E+02 0.000000E+00 40 1.950000E+02 0.000000E+00 41 2.000000E+02 0.000000E+00 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 97 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 X Y - O U T P U T S U M M A R Y ROOT MEAN SQUARE VALUE = 7.416824E+06 FREQUENCY OF ZERO CROSSINGS (N ZERO) = 5.034361E+01 POWER-SPECTRAL-DENSITY-FUNCTION (PSDF) ACCELERATION CURVE 6( 3) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 2 CURVE TITLE = POWER SPECTRAL DENSITY OF POINT 6 ACCELERATION X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = S THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 2.000000E+02) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 1.063648E+13 AT X = 5.000000E+01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 2.000000E+02) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 1.063648E+13 AT X = 5.000000E+01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 98 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 X Y - O U T P U T S U M M A R Y ROOT MEAN SQUARE VALUE = 7.516472E+01 FREQUENCY OF ZERO CROSSINGS (N ZERO) = 4.993961E+01 AUTOCORRELATION DISPLACEMENT CURVE 6( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 3 CURVE TITLE = AUTOCORRELATION FUNCTION FOR POINT 6 DISPLACEMENT X-AXIS TITLE = TIME LAG (SECONDS) Y-AXIS TITLE = R THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 1.000000E-01) THE SMALLEST Y-VALUE = -5.546012E+03 AT X = 1.000000E-02 THE LARGEST Y-VALUE = 5.649735E+03 AT X = 0.000000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 1.000000E-01) THE SMALLEST Y-VALUE = -5.546012E+03 AT X = 1.000000E-02 THE LARGEST Y-VALUE = 5.649735E+03 AT X = 0.000000E+00 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 99 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 DISPLACEMENT CURVE ID = 6 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 0.000000E+00 5.649735E+03 2 1.000000E-03 5.373677E+03 3 2.000000E-03 4.573630E+03 4 3.000000E-03 3.328448E+03 5 4.000000E-03 1.761134E+03 6 5.000000E-03 2.661172E+01 7 6.000000E-03 -1.704422E+03 8 7.000000E-03 -3.261853E+03 9 8.000000E-03 -4.493528E+03 10 9.000001E-03 -5.279925E+03 11 1.000000E-02 -5.546012E+03 12 1.100000E-02 -5.268292E+03 13 1.200000E-02 -4.476950E+03 14 1.300000E-02 -3.252503E+03 15 1.400000E-02 -1.717549E+03 16 1.500000E-02 -2.448969E+01 17 1.600000E-02 1.659709E+03 18 1.700000E-02 3.170055E+03 19 1.800000E-02 4.359768E+03 20 1.900000E-02 5.114649E+03 21 2.000000E-02 5.364037E+03 22 2.100000E-02 5.087506E+03 23 2.200000E-02 4.316478E+03 24 2.300000E-02 3.130729E+03 25 2.400000E-02 1.650118E+03 26 2.500000E-02 2.238895E+01 27 2.600000E-02 -1.591629E+03 28 2.700000E-02 -3.034017E+03 29 2.800000E-02 -4.165293E+03 30 2.900000E-02 -4.878009E+03 31 3.000000E-02 -5.106972E+03 32 3.100000E-02 -4.835204E+03 33 3.200000E-02 -4.095082E+03 34 3.300000E-02 -2.964589E+03 35 3.400000E-02 -1.559016E+03 36 3.500000E-02 -1.930793E+01 37 3.600000E-02 1.502302E+03 38 3.700000E-02 2.857252E+03 39 3.800000E-02 3.915331E+03 40 3.900000E-02 4.577169E+03 41 4.000000E-02 4.783661E+03 42 4.100000E-02 4.521163E+03 43 4.200000E-02 3.822238E+03 44 4.300000E-02 2.761755E+03 45 4.400000E-02 1.448908E+03 46 4.500000E-02 1.594582E+01 47 4.600000E-02 -1.395211E+03 48 4.700000E-02 -2.647055E+03 49 4.800000E-02 -3.620011E+03 50 4.900000E-02 -4.223825E+03 51 5.000000E-02 -4.406004E+03 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 100 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 DISPLACEMENT CURVE ID = 6 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 52 5.100000E-02 -4.156268E+03 53 5.200000E-02 -3.506857E+03 54 5.300000E-02 -2.528557E+03 55 5.400000E-02 -1.323049E+03 56 5.500000E-02 -1.233339E+01 57 5.600000E-02 1.273648E+03 58 5.700000E-02 2.409929E+03 59 5.800000E-02 3.288695E+03 60 5.900000E-02 3.829546E+03 61 6.000000E-02 3.986819E+03 62 6.100000E-02 3.753354E+03 63 6.200000E-02 3.160405E+03 64 6.300000E-02 2.273716E+03 65 6.400000E-02 1.186344E+03 66 6.500001E-02 8.872251E+00 67 6.600000E-02 -1.141811E+03 68 6.700000E-02 -2.154213E+03 69 6.800000E-02 -2.932959E+03 70 6.900001E-02 -3.407856E+03 71 7.000000E-02 -3.540165E+03 72 7.100000E-02 -3.325613E+03 73 7.200000E-02 -2.793965E+03 74 7.300001E-02 -2.005237E+03 75 7.400000E-02 -1.043035E+03 76 7.500000E-02 -5.677233E+00 77 7.600001E-02 1.003764E+03 78 7.700001E-02 1.887773E+03 79 7.800000E-02 2.563791E+03 80 7.900000E-02 2.971927E+03 81 8.000001E-02 3.080155E+03 82 8.100000E-02 2.886718E+03 83 8.200000E-02 2.419386E+03 84 8.300000E-02 1.731895E+03 85 8.400001E-02 8.978558E+02 86 8.500000E-02 2.982811E+00 87 8.600000E-02 -8.637531E+02 88 8.700000E-02 -1.618931E+03 89 8.800001E-02 -2.192682E+03 90 8.900000E-02 -2.535162E+03 91 9.000000E-02 -2.620755E+03 92 9.100001E-02 -2.449807E+03 93 9.200001E-02 -2.047721E+03 94 9.300000E-02 -1.461633E+03 95 9.400000E-02 -7.550023E+02 96 9.500001E-02 -8.285813E-01 97 9.600000E-02 7.258314E+02 98 9.700000E-02 1.355352E+03 99 9.800000E-02 1.830158E+03 100 9.900001E-02 2.109926E+03 101 1.000000E-01 2.174933E+03 1 FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 101 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 262, REENTER AT DMAP SEQUENCE NUMBER 153 263, XYPLTR , FLAGS = 0, REEL = 1, FILE = 120 264, XVPS , FLAGS = 0, REEL = 1, FILE = 121 265, REENTER AT DMAP SEQUENCE NUMBER 176 266, XVPS , FLAGS = 0, REEL = 1, FILE = 122 267, DUMMY , FLAGS = 0, REEL = 0, FILE = 0 * * * END OF JOB * * * 1 JOB TITLE = FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM DATE: 5/17/95 END TIME: 16:14:22 TOTAL WALL CLOCK TIME 5 SEC. ================================================ FILE: demoout/d11011b.out ================================================ NASTRAN FILES = OPTP **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D11011B,RESTART $ INSERT THE RESTART DICTIONARY HERE 0*** $ ... READFILE FROM- RSCARDS RESTART D11011A ,NASTRAN , 5/17/95, 58417, 1, XVPS , FLAGS = 0, REEL = 1, FILE = 6 2, REENTER AT DMAP SEQUENCE NUMBER 6 3, GPL , FLAGS = 0, REEL = 1, FILE = 7 4, EQEXIN , FLAGS = 0, REEL = 1, FILE = 8 5, GPDT , FLAGS = 0, REEL = 1, FILE = 9 6, BGPDT , FLAGS = 0, REEL = 1, FILE = 10 7, SIL , FLAGS = 0, REEL = 1, FILE = 11 8, XVPS , FLAGS = 0, REEL = 1, FILE = 12 9, CSTM , FLAGS = 0, REEL = 0, FILE = 0 10, REENTER AT DMAP SEQUENCE NUMBER 7 11, XVPS , FLAGS = 0, REEL = 1, FILE = 13 12, MPTA , FLAGS = 0, REEL = 0, FILE = 0 13, REENTER AT DMAP SEQUENCE NUMBER 8 14, MPT , FLAGS = 0, REEL = 1, FILE = 14 15, XVPS , FLAGS = 0, REEL = 1, FILE = 15 16, REENTER AT DMAP SEQUENCE NUMBER 9 17, BGPDP , FLAGS = 0, REEL = 1, FILE = 16 18, SIP , FLAGS = 0, REEL = 1, FILE = 17 19, XVPS , FLAGS = 0, REEL = 1, FILE = 18 20, REENTER AT DMAP SEQUENCE NUMBER 10 21, ECT , FLAGS = 0, REEL = 1, FILE = 19 22, XVPS , FLAGS = 0, REEL = 1, FILE = 20 23, REENTER AT DMAP SEQUENCE NUMBER 12 24, XVPS , FLAGS = 0, REEL = 1, FILE = 21 25, PLTSETX , FLAGS = 0, REEL = 0, FILE = 0 26, PLTPAR , FLAGS = 0, REEL = 0, FILE = 0 27, GPSETS , FLAGS = 0, REEL = 0, FILE = 0 28, ELSETS , FLAGS = 0, REEL = 0, FILE = 0 29, REENTER AT DMAP SEQUENCE NUMBER 22 30, XVPS , FLAGS = 0, REEL = 1, FILE = 22 31, GPTT , FLAGS = 0, REEL = 0, FILE = 0 32, REENTER AT DMAP SEQUENCE NUMBER 23 33, EST , FLAGS = 0, REEL = 1, FILE = 23 34, GEI , FLAGS = 0, REEL = 1, FILE = 24 35, GPECT , FLAGS = 0, REEL = 1, FILE = 25 36, XVPS , FLAGS = 0, REEL = 1, FILE = 26 37, MPTX , FLAGS = 0, REEL = 0, FILE = 0 38, PCOMPS , FLAGS = 0, REEL = 0, FILE = 0 39, EPTX , FLAGS = 0, REEL = 0, FILE = 0 40, REENTER AT DMAP SEQUENCE NUMBER 24 41, MPT , FLAGS = 0, REEL = 1, FILE = 27 42, EPT , FLAGS = 0, REEL = 1, FILE = 28 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 43, XVPS , FLAGS = 0, REEL = 1, FILE = 29 44, REENTER AT DMAP SEQUENCE NUMBER 28 45, KELM , FLAGS = 0, REEL = 1, FILE = 30 46, KDICT , FLAGS = 0, REEL = 1, FILE = 31 47, MELM , FLAGS = 0, REEL = 1, FILE = 32 48, MDICT , FLAGS = 0, REEL = 1, FILE = 33 49, XVPS , FLAGS = 0, REEL = 1, FILE = 34 50, REENTER AT DMAP SEQUENCE NUMBER 29 51, XVPS , FLAGS = 0, REEL = 1, FILE = 35 52, KGGX , FLAGS = 0, REEL = 0, FILE = 0 53, REENTER AT DMAP SEQUENCE NUMBER 31 54, KGGX , FLAGS = 0, REEL = 1, FILE = 36 55, XVPS , FLAGS = 0, REEL = 1, FILE = 37 56, REENTER AT DMAP SEQUENCE NUMBER 32 57, XVPS , FLAGS = 0, REEL = 1, FILE = 38 58, KDICT , FLAGS = 0, REEL = 0, FILE = 0 59, KELM , FLAGS = 0, REEL = 0, FILE = 0 60, REENTER AT DMAP SEQUENCE NUMBER 35 61, MGG , FLAGS = 0, REEL = 1, FILE = 39 62, XVPS , FLAGS = 0, REEL = 1, FILE = 40 63, REENTER AT DMAP SEQUENCE NUMBER 36 64, XVPS , FLAGS = 0, REEL = 1, FILE = 41 65, MDICT , FLAGS = 0, REEL = 0, FILE = 0 66, MELM , FLAGS = 0, REEL = 0, FILE = 0 67, REENTER AT DMAP SEQUENCE NUMBER 38 68, OGPWG , FLAGS = 0, REEL = 1, FILE = 42 69, XVPS , FLAGS = 0, REEL = 1, FILE = 43 70, REENTER AT DMAP SEQUENCE NUMBER 41 71, XVPS , FLAGS = 0, REEL = 1, FILE = 44 72, KGG , FLAGS = 0, REEL = 0, FILE = 0 73, REENTER AT DMAP SEQUENCE NUMBER 43 74, KGG , FLAGS = 0, REEL = 1, FILE = 45 75, XVPS , FLAGS = 0, REEL = 1, FILE = 46 76, REENTER AT DMAP SEQUENCE NUMBER 45 77, GPST , FLAGS = 0, REEL = 1, FILE = 47 78, XVPS , FLAGS = 0, REEL = 1, FILE = 48 79, REENTER AT DMAP SEQUENCE NUMBER 47 80, USET , FLAGS = 0, REEL = 1, FILE = 49 81, XVPS , FLAGS = 0, REEL = 1, FILE = 50 82, RG , FLAGS = 0, REEL = 0, FILE = 0 83, ASET , FLAGS = 0, REEL = 0, FILE = 0 84, OGPST , FLAGS = 0, REEL = 0, FILE = 0 85, REENTER AT DMAP SEQUENCE NUMBER 50 86, XVPS , FLAGS = 0, REEL = 1, FILE = 51 87, GM , FLAGS = 0, REEL = 0, FILE = 0 88, GMD , FLAGS = 0, REEL = 0, FILE = 0 89, GO , FLAGS = 0, REEL = 0, FILE = 0 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 90, GOD , FLAGS = 0, REEL = 0, FILE = 0 91, KFS , FLAGS = 0, REEL = 0, FILE = 0 92, PSF , FLAGS = 0, REEL = 0, FILE = 0 93, QPC , FLAGS = 0, REEL = 0, FILE = 0 94, KLR , FLAGS = 0, REEL = 0, FILE = 0 95, KRR , FLAGS = 0, REEL = 0, FILE = 0 96, MLR , FLAGS = 0, REEL = 0, FILE = 0 97, MRR , FLAGS = 0, REEL = 0, FILE = 0 98, DM , FLAGS = 0, REEL = 0, FILE = 0 99, MR , FLAGS = 0, REEL = 0, FILE = 0 100, MDD , FLAGS = 0, REEL = 0, FILE = 0 101, REENTER AT DMAP SEQUENCE NUMBER 51 102, KGG , FLAGS = 4, REEL = 1, FILE = 45 103, KNN , FLAGS = 4, REEL = 1, FILE = 45 104, MGG , FLAGS = 4, REEL = 1, FILE = 39 105, MNN , FLAGS = 4, REEL = 1, FILE = 39 106, XVPS , FLAGS = 0, REEL = 1, FILE = 52 107, REENTER AT DMAP SEQUENCE NUMBER 56 108, XVPS , FLAGS = 0, REEL = 1, FILE = 53 109, KFF , FLAGS = 0, REEL = 0, FILE = 0 110, MFF , FLAGS = 0, REEL = 0, FILE = 0 111, REENTER AT DMAP SEQUENCE NUMBER 58 112, KFF , FLAGS = 0, REEL = 1, FILE = 54 113, KFS , FLAGS = 0, REEL = 1, FILE = 55 114, MFF , FLAGS = 0, REEL = 1, FILE = 56 115, XVPS , FLAGS = 0, REEL = 1, FILE = 57 116, REENTER AT DMAP SEQUENCE NUMBER 60 117, KFF , FLAGS = 4, REEL = 1, FILE = 54 118, KAA , FLAGS = 4, REEL = 1, FILE = 54 119, XVPS , FLAGS = 0, REEL = 1, FILE = 58 120, REENTER AT DMAP SEQUENCE NUMBER 61 121, MFF , FLAGS = 4, REEL = 1, FILE = 56 122, MAA , FLAGS = 4, REEL = 1, FILE = 56 123, XVPS , FLAGS = 0, REEL = 1, FILE = 59 124, REENTER AT DMAP SEQUENCE NUMBER 66 125, KLL , FLAGS = 4, REEL = 1, FILE = 54 126, XVPS , FLAGS = 0, REEL = 1, FILE = 60 127, REENTER AT DMAP SEQUENCE NUMBER 78 128, GPLD , FLAGS = 0, REEL = 1, FILE = 61 129, SILD , FLAGS = 0, REEL = 1, FILE = 62 130, USETD , FLAGS = 0, REEL = 1, FILE = 63 131, DLT , FLAGS = 0, REEL = 1, FILE = 64 132, PSDL , FLAGS = 0, REEL = 1, FILE = 65 133, FRL , FLAGS = 0, REEL = 1, FILE = 66 134, EED , FLAGS = 0, REEL = 1, FILE = 67 135, EQDYN , FLAGS = 0, REEL = 1, FILE = 68 136, XVPS , FLAGS = 0, REEL = 1, FILE = 69 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 137, TFPOOL , FLAGS = 0, REEL = 0, FILE = 0 138, REENTER AT DMAP SEQUENCE NUMBER 80 139, XVPS , FLAGS = 0, REEL = 1, FILE = 70 140, UEVF , FLAGS = 0, REEL = 0, FILE = 0 141, REENTER AT DMAP SEQUENCE NUMBER 81 142, XVPS , FLAGS = 0, REEL = 1, FILE = 71 143, REENTER AT DMAP SEQUENCE NUMBER 83 144, LAMA , FLAGS = 0, REEL = 1, FILE = 72 145, PHIA , FLAGS = 0, REEL = 1, FILE = 73 146, MI , FLAGS = 0, REEL = 1, FILE = 74 147, OEIGS , FLAGS = 0, REEL = 1, FILE = 75 148, XVPS , FLAGS = 0, REEL = 1, FILE = 76 149, REENTER AT DMAP SEQUENCE NUMBER 90 150, XVPS , FLAGS = 0, REEL = 1, FILE = 77 151, OUHVC1 , FLAGS = 0, REEL = 0, FILE = 0 152, OUHVC2 , FLAGS = 0, REEL = 0, FILE = 0 153, XYPLTFA , FLAGS = 0, REEL = 0, FILE = 0 154, OPPC1 , FLAGS = 0, REEL = 0, FILE = 0 155, OQPC1 , FLAGS = 0, REEL = 0, FILE = 0 156, OUPVC1 , FLAGS = 0, REEL = 0, FILE = 0 157, OESC1 , FLAGS = 0, REEL = 0, FILE = 0 158, OEFC1 , FLAGS = 0, REEL = 0, FILE = 0 159, OPPC2 , FLAGS = 0, REEL = 0, FILE = 0 160, OQPC2 , FLAGS = 0, REEL = 0, FILE = 0 161, OUPVC2 , FLAGS = 0, REEL = 0, FILE = 0 162, OESC2 , FLAGS = 0, REEL = 0, FILE = 0 163, OEFC2 , FLAGS = 0, REEL = 0, FILE = 0 164, XYPLTF , FLAGS = 0, REEL = 0, FILE = 0 165, PSDF , FLAGS = 0, REEL = 0, FILE = 0 166, AUTO , FLAGS = 0, REEL = 0, FILE = 0 167, XYPLTR , FLAGS = 0, REEL = 0, FILE = 0 168, K2PP , FLAGS = 0, REEL = 0, FILE = 0 169, M2PP , FLAGS = 0, REEL = 0, FILE = 0 170, B2PP , FLAGS = 0, REEL = 0, FILE = 0 171, K2DD , FLAGS = 0, REEL = 0, FILE = 0 172, M2DD , FLAGS = 0, REEL = 0, FILE = 0 173, B2DD , FLAGS = 0, REEL = 0, FILE = 0 174, OPPCA , FLAGS = 0, REEL = 0, FILE = 0 175, IQP1 , FLAGS = 0, REEL = 0, FILE = 0 176, IPHIP1 , FLAGS = 0, REEL = 0, FILE = 0 177, IES1 , FLAGS = 0, REEL = 0, FILE = 0 178, IEF1 , FLAGS = 0, REEL = 0, FILE = 0 179, OPPCB , FLAGS = 0, REEL = 0, FILE = 0 180, IQP2 , FLAGS = 0, REEL = 0, FILE = 0 181, IPHIP2 , FLAGS = 0, REEL = 0, FILE = 0 182, IES2 , FLAGS = 0, REEL = 0, FILE = 0 183, IEF2 , FLAGS = 0, REEL = 0, FILE = 0 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 184, ZQPC2 , FLAGS = 0, REEL = 0, FILE = 0 185, ZUPVC2 , FLAGS = 0, REEL = 0, FILE = 0 186, ZESC2 , FLAGS = 0, REEL = 0, FILE = 0 187, ZEFC2 , FLAGS = 0, REEL = 0, FILE = 0 188, ZQPC1 , FLAGS = 0, REEL = 0, FILE = 0 189, ZUPVC1 , FLAGS = 0, REEL = 0, FILE = 0 190, ZESC1 , FLAGS = 0, REEL = 0, FILE = 0 191, ZEFC1 , FLAGS = 0, REEL = 0, FILE = 0 192, REENTER AT DMAP SEQUENCE NUMBER 91 193, CASEXX , FLAGS = 0, REEL = 1, FILE = 78 194, XVPS , FLAGS = 0, REEL = 1, FILE = 79 195, REENTER AT DMAP SEQUENCE NUMBER 92 196, XVPS , FLAGS = 0, REEL = 1, FILE = 80 197, REENTER AT DMAP SEQUENCE NUMBER 93 198, XVPS , FLAGS = 0, REEL = 1, FILE = 81 199, REENTER AT DMAP SEQUENCE NUMBER 95 200, MDD , FLAGS = 4, REEL = 1, FILE = 56 201, XVPS , FLAGS = 0, REEL = 1, FILE = 82 202, REENTER AT DMAP SEQUENCE NUMBER 96 203, XVPS , FLAGS = 0, REEL = 1, FILE = 83 204, REENTER AT DMAP SEQUENCE NUMBER 97 205, MHH , FLAGS = 0, REEL = 1, FILE = 84 206, BHH , FLAGS = 0, REEL = 1, FILE = 85 207, KHH , FLAGS = 0, REEL = 1, FILE = 86 208, PHIDH , FLAGS = 0, REEL = 1, FILE = 87 209, XVPS , FLAGS = 0, REEL = 1, FILE = 88 210, REENTER AT DMAP SEQUENCE NUMBER 100 211, UHVF , FLAGS = 0, REEL = 1, FILE = 89 212, PSF , FLAGS = 0, REEL = 1, FILE = 90 213, PDF , FLAGS = 0, REEL = 1, FILE = 91 214, PPF , FLAGS = 0, REEL = 1, FILE = 92 215, XVPS , FLAGS = 0, REEL = 1, FILE = 93 216, REENTER AT DMAP SEQUENCE NUMBER 101 217, PDF , FLAGS = 0, REEL = 1, FILE = 94 218, XVPS , FLAGS = 0, REEL = 1, FILE = 95 219, REENTER AT DMAP SEQUENCE NUMBER 102 220, XVPS , FLAGS = 0, REEL = 1, FILE = 96 221, REENTER AT DMAP SEQUENCE NUMBER 128 222, PHIPH , FLAGS = 0, REEL = 1, FILE = 97 223, QPH , FLAGS = 0, REEL = 1, FILE = 98 224, XVPS , FLAGS = 0, REEL = 1, FILE = 99 225, REENTER AT DMAP SEQUENCE NUMBER 129 226, IPHIP1 , FLAGS = 0, REEL = 1, FILE = 100 227, IEF1 , FLAGS = 0, REEL = 1, FILE = 101 228, XVPS , FLAGS = 0, REEL = 1, FILE = 102 229, REENTER AT DMAP SEQUENCE NUMBER 130 230, OPPCA , FLAGS = 0, REEL = 1, FILE = 103 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 231, XVPS , FLAGS = 0, REEL = 1, FILE = 104 232, REENTER AT DMAP SEQUENCE NUMBER 131 233, OPPCA , FLAGS = 4, REEL = 1, FILE = 103 234, OPPC1 , FLAGS = 4, REEL = 1, FILE = 103 235, XVPS , FLAGS = 0, REEL = 1, FILE = 105 236, REENTER AT DMAP SEQUENCE NUMBER 133 237, IPHIP2 , FLAGS = 0, REEL = 1, FILE = 106 238, IEF2 , FLAGS = 0, REEL = 1, FILE = 107 239, OPPCB , FLAGS = 0, REEL = 1, FILE = 108 240, XVPS , FLAGS = 0, REEL = 1, FILE = 109 241, REENTER AT DMAP SEQUENCE NUMBER 134 242, OPPCB , FLAGS = 4, REEL = 1, FILE = 108 243, OPPC2 , FLAGS = 4, REEL = 1, FILE = 108 244, XVPS , FLAGS = 0, REEL = 1, FILE = 110 245, REENTER AT DMAP SEQUENCE NUMBER 135 246, ZUPVC2 , FLAGS = 0, REEL = 1, FILE = 111 247, ZEFC2 , FLAGS = 0, REEL = 1, FILE = 112 248, XVPS , FLAGS = 0, REEL = 1, FILE = 113 249, REENTER AT DMAP SEQUENCE NUMBER 136 250, ZUPVC2 , FLAGS = 4, REEL = 1, FILE = 111 251, OUPVC2 , FLAGS = 4, REEL = 1, FILE = 111 252, ZEFC2 , FLAGS = 4, REEL = 1, FILE = 112 253, OEFC2 , FLAGS = 4, REEL = 1, FILE = 112 254, XVPS , FLAGS = 0, REEL = 1, FILE = 114 255, REENTER AT DMAP SEQUENCE NUMBER 144 256, XYPLTF , FLAGS = 0, REEL = 1, FILE = 115 257, XVPS , FLAGS = 0, REEL = 1, FILE = 116 258, REENTER AT DMAP SEQUENCE NUMBER 151 259, PSDF , FLAGS = 0, REEL = 1, FILE = 117 260, AUTO , FLAGS = 0, REEL = 1, FILE = 118 261, XVPS , FLAGS = 0, REEL = 1, FILE = 119 262, REENTER AT DMAP SEQUENCE NUMBER 153 263, XYPLTR , FLAGS = 0, REEL = 1, FILE = 120 264, XVPS , FLAGS = 0, REEL = 1, FILE = 121 265, REENTER AT DMAP SEQUENCE NUMBER 176 266, XVPS , FLAGS = 0, REEL = 1, FILE = 122 267, DUMMY , FLAGS = 0, REEL = 0, FILE = 0 $ END OF CHECKPOINT DICTIONARY 0*** $ END READFILE APP DISPLACEMENT SOL 1,9 TIME 5 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 0*** SWITCHED SOLUTION FOR RESTART - OLD SOLUTION = 11, NEW SOLUTION = 1, BIT NUMBER = 197 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B 0 RIGID FORMAT SWITCH FROM 11 TO 1 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B 3 LABEL = RIGID FORMAT SWITCH FROM 11 TO 1 4 SPC = 1 5 DEFORM = 1102 6 LOAD = 1101 7 OUTPUT 8 DISPLACEMENTS = ALL 9 OLOAD = ALL 10 ELFORCE = ALL 11 BEGIN BULK 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B 0 RIGID FORMAT SWITCH FROM 11 TO 1 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ DEFORM 1102 10 0.089045 GRAV 1101 32.2 0.0 0.0 1.0 ENDDATA TOTAL COUNT= 2 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B 0 RIGID FORMAT SWITCH FROM 11 TO 1 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CBAR 3 1 3 4 20. .0 1. 1 2- CBAR 4 1 4 5 20. .0 1. 1 3- CBAR 5 1 5 6 20. .0 1. 1 4- CBAR 6 1 6 7 20. .0 1. 1 5- CBAR 7 1 7 8 20. .0 1. 1 6- CBAR 8 1 8 9 20. .0 1. 1 7- CBAR 9 1 9 10 20. .0 1. 1 8- CBAR 10 1 10 11 20. .0 1. 1 9- CONM2 *11 1 5.34604-3 *M1 10- *M1 .0 11- CONM2 *12 2 1.069208-2 *M2 12- *M2 .0 .0 13- CONM2 *13 3 5.34604-3 *M3 14- *M3 15- DAREA 2 5 5 -100. 16- DAREA 2 6 3 50. 5 3 50. 17- DAREA 2 7 3 50. 7 5 100. 18- DAREA 3 6 3 100. 19- DAREA 510 6 3 1.0 20- DEFORM 1102 10 0.089045 21- DELAY 1 6 3 .5555-2 22- DLOAD 506 1. 1. 5 1. 6 23- DLOAD 507 1. 1. 5 1. 7 24- DLOAD 510 2.0 1.0 5101 1.0 5102 25- DPHASE 1 6 3 30. 26- DPHASE 5102 6 3 -30.0 27- EIGR 2 INV 40.0 1000.0 3 5 +EG 28- +EG MASS 29- FREQ1 508 .0 5.0 40 30- GENEL 1101 2 1 2 3 2 5 +1 31- +1 3 1 3 3 3 5 +2 32- +2 UD 1 1 1 3 1 5 *30 33- *30 Z .89044935-8 .0 .0 *31 34- *31 .89044935-8 .0 .0 3.08928-6 *40 35- *40 -2.31696-6 .0 7.7232005-6 -2.31696-6 *41 36- *41 2.31696-6 .0 -6.950884-6 2.31696-6 *50 37- *50 1.7808987-8 .0 .0 24.714241-6 *51 38- *51 -9.26784-6 4.6339203-6 +60 39- +60 S 1.0 .0 .0 .0 1.0 -2.0 .0 +70 40- +70 .0 1.0 1.0 .0 .0 .0 1.0 -4.0 +80 41- +80 .0 .0 1.0 42- GRAV 1101 32.2 0.0 0.0 1.0 43- GRDSET 246 44- GRID 1 .0 .0 .0 45- GRID 2 2. .0 .0 46- GRID 3 4. .0 .0 47- GRID 4 6. .0 .0 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B RIGID FORMAT SWITCH FROM 11 TO 1 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 5 8. .0 .0 49- GRID 6 10. .0 .0 50- GRID 7 12. .0 .0 51- GRID 8 14. .0 .0 52- GRID 9 16. .0 .0 53- GRID 10 18. .0 .0 54- GRID 11 20. .0 .0 55- MAT1 1 10.4+6 4.+6 .2523-3 56- PARAM GRDPNT 0 57- PARAM LMODES 4 58- PBAR 1 1 21.18922.083 .083 59- RANDPS 11 1 1 .5 11 60- RANDPS 11 1 3 .5 11 61- RANDPS 11 2 2 1.0 11 62- RANDPS 11 3 3 .5 11 63- RANDT1 11 100 .0 .1 64- RLOAD1 5101 510 5101 65- RLOAD1 5102 510 5102 5102 66- RLOAD2 5 2 1 67- RLOAD2 6 3 1 1 2 68- RLOAD2 7 3 1 1 69- SPC 1 1 13 11 13 70- SPC 11 1 13 11 3 71- TABDMP1 11 +DAMP 72- +DAMP .0 .0 50.0 .02 ENDT 73- TABLED1 1 +TAUU 74- +TAUU .0 1. 100. 1. ENDT 75- TABLED1 2 +TAD21 76- +TAD21 .0 30. 100. 30. ENDT 77- TABLED1 5101 +TAD30 78- +TAD30 .0 75.0 100. 75.0 ENDT 79- TABLED1 5102 +TAD31 80- +TAD31 .0 50.0 100. 50.0 ENDT 81- TABRND1 11 +TR 82- +TR -1.0 .0 .0 100.0 100.0 100.0 100.0 .0 +TR2 83- +TR2 101.0 .0 ENDT ENDDATA 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B 0 RIGID FORMAT SWITCH FROM 11 TO 1 0*** USER INFORMATION MESSAGE 4145, THIS IS A MODIFIED RESTART INVOLVING RIGID FORMAT SWITCH. 0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW. 0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES ----------------------------------- MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION 17 2 SPC$ 10 3 LOAD$ 59 5 DEFORM$ 59 17 POUT$ 19 31 NOLOOP$ 31 0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES -------------------------------- MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED BIT POSITION 1 26 GRAV 61 3 19 DEFORM 59 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B 0 RIGID FORMAT SWITCH FROM 11 TO 1 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 01 - STATIC ANALYSIS - APR. 1995 $ + + 3 FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $ + + 4 SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ + * 5 PARAM //*MPY*/CARDNO/0/0 $ + * 6 COMPOFF 1,INTERACT $ 7 PRECHK ALL $ 8 COMPON 1,INTERACT $ 10 COMPOFF LBLINT02,SYS21 $ 11 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 12 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 13 EQUIV MPTA,MPT/ISOP $ 14 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 15 GP2 GEOM2,EQEXIN/ECT $ 16 PARAML PCDB//*PRES*////JUMPPLOT $ 17 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 18 COND P1,JUMPPLOT $ 19 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 20 PRTMSG PLTSETX// $ 21 PARAM //*MPY*/PLTFLG/1/1 $ 22 PARAM //*MPY*/PFILE/0/0 $ 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B RIGID FORMAT SWITCH FROM 11 TO 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 23 COND P1,JUMPPLOT $ 24 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 25 PRTMSG PLOTX1// $ 26 LABEL P1 $ + + 27 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ + * 28 PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ + * 29 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 30 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ + * 31 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ + * 32 COND ERROR4,NOELMT $ + * 33 PURGE KGGX/NOSIMP $ 36 COND LBL1,NOSIMP $ + * 37 PARAM //*ADD*/NOKGGX/1/0 $ 39 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ + * S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 40 COND JMPKGG,NOKGGX $ 41 EMA GPECT,KDICT,KELM/KGGX $ 42 LABEL JMPKGG $ + + 43 PURGE MGG/NOMGG $ + * 44 COND JMPMGG,NOMGG $ + * 45 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ + * 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B RIGID FORMAT SWITCH FROM 11 TO 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 46 PURGE MDICT,MELM/ALWAYS $ + * 47 LABEL JMPMGG $ + + 48 COND LBL1,GRDPNT $ + * 49 COND ERROR2,NOMGG $ + * 50 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ + * 51 OFP OGPWG,,,,,//S,N,CARDNO $ + * 52 LABEL LBL1 $ + + 53 EQUIV KGGX,KGG/NOGENL $ 54 COND LBL11A,NOGENL $ 55 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 56 LABEL LBL11A $ + + 57 GPSTGEN KGG,SIL/GPST $ 58 PARAM //*MPY*/NSKIP/0/0 $ + * 59 LABEL LBL11 $ + + 60 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, + * ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 61 OFP OGPST,,,,,//S,N,CARDNO $ + * 62 COND ERROR3,NOL $ + * 63 PARAM //*AND*/NOSR/SINGLE/REACT $ + * 64 PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, + * KFS,KSS/SINGLE/QG/NOSR $ 65 EQUIV KGG,KNN/MPCF1 $ 66 COND LBL2,MPCF2 $ 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B RIGID FORMAT SWITCH FROM 11 TO 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,,,/KNN,,, $ 69 LABEL LBL2 $ + + 70 EQUIV KNN,KFF/SINGLE $ + * 71 COND LBL3,SINGLE $ + * 72 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ + * 73 LABEL LBL3 $ + + 74 EQUIV KFF,KAA/OMIT $ + * 75 COND LBL5,OMIT $ + * 76 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ + * 77 LABEL LBL5 $ + + 78 EQUIV KAA,KLL/REACT $ + * 79 COND LBL6,REACT $ + * 80 RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ + * 81 LABEL LBL6 $ + + 82 RBMG2 KLL/LLL $ + * 83 COND LBL7,REACT $ + * 84 RBMG3 LLL,KLR,KRR/DM $ + * 85 LABEL LBL7 $ + + 86 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ + * PG,,,,/LUSET/NSKIP/COMPS $ 87 EQUIV PG,PL/NOSET $ + * 88 COND LBL10,NOSET $ + * 89 SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ + * 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B RIGID FORMAT SWITCH FROM 11 TO 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 90 LABEL LBL10 $ + + 91 SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ + * NSKIP/S,N,EPSI $ 92 COND LBL9,IRES $ + * 93 MATGPR GPL,USET,SIL,RULV//*L* $ + * 94 MATGPR GPL,USET,SIL,RUOV//*O* $ + * 95 LABEL LBL9 $ + + 96 SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ + * *STATICS* $ 97 COND LBL8,REPEAT $ + * 98 REPT LBL11,360 $ + * 99 JUMP ERROR1 $ + * 100 PARAM //*NOT*/TEST/REPEAT $ + * 101 COND ERROR5,TEST $ + * 102 LABEL LBL8 $ + + 103 GPFDR CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/ + * *STATICS* $ 104 PURGE KDICT,KELM/REPEAT $ + * 105 OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ + * 106 COND NOMPCF,GRDEQ $ 107 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ 108 OFP OQM1,,,,,//S,N,CARDNO $ 109 LABEL NOMPCF $ + + 110 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, + * 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B 0 RIGID FORMAT SWITCH FROM 11 TO 1 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L, OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ 111 COND LBLSTRS,STRESS $ + * 112 CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/ + * V,Y,NINTPTS $ 113 LABEL LBLSTRS $ + + 114 PURGE OES1M/STRESS $ + * 115 COND LBLSTRN,STRNFLG $ + * 116 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/ + * ,,,OES1A,,,,/*STATICS*//1 $ 117 COND LBLSTRN,STRAIN $ + * 118 CURV OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/ + * V,Y,NINTPTS $ 119 LABEL LBLSTRN $ + + 120 PURGE OES1A/STRNFLG $ + * 121 COND LBL17,NOSORT2 $ + * 122 SDR3 OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $ + * 123 PARAM //*SUB*/PRTSORT2/NOSORT2/1 $ + * 124 COND LBLSORT1,PRTSORT2 $ + * 125 OFP OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $ + * 126 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ + * 127 OFP OESF2,,,,,//S,N,CARDNO $ + * 128 JUMP LBLXYPLT $ + * 129 LABEL LBLSORT1 $ + + 130 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ + * 131 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ + * 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B RIGID FORMAT SWITCH FROM 11 TO 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 132 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ + * 133 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ + * 134 LABEL LBLXYPLT $ + + 135 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ + * 136 XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ 137 XYPLOT XYPLTT// $ 138 JUMP DPLOT $ 139 LABEL LBL17 $ + + 140 PURGE OUGV2/NOSORT2 $ + * 146 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ + * 147 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ + * 148 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $ + * 149 OFP OESF1X,OESF1Y,,,,//S,N,CARDNO $ + * 150 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ + * 151 LABEL DPLOT $ + + 152 COND P2,JUMPPLOT $ 153 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 154 PRTMSG PLOTX2// $ 155 LABEL P2 $ + + 159 JUMP FINIS $ + * 160 LABEL ERROR1 $ + + 161 PRTPARM //-1/*STATICS* $ + * 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B RIGID FORMAT SWITCH FROM 11 TO 1 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 162 LABEL ERROR2 $ + + 163 PRTPARM //-2/*STATICS* $ + * 164 LABEL ERROR3 $ + + 165 PRTPARM //-3/*STATICS* $ + * 166 LABEL ERROR4 $ + + 167 PRTPARM //-4/*STATICS* $ + * 168 LABEL ERROR5 $ + + 169 PRTPARM //-5/*STATICS* $ + * 170 LABEL FINIS $ + + 171 PURGE DUMMY/ALWAYS $ + * 172 LABEL LBLINT02 $ + + 173 COMPON LBLINT01,SYS21 $ 228 END $ + * 0*** USER WARNING MESSAGE 54, PARAMETER NAMED LMODES NOT REFERENCED 0 0 + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME. 0 * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART. 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B 0 RIGID FORMAT SWITCH FROM 11 TO 1 0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART FILE NAME REEL NO. FILE NO. CSTM (PURGED) MPTX (PURGED) PCOMPS (PURGED) EPTX (PURGED) GM (PURGED) GPL 1 7 EQEXIN 1 8 GPDT 1 9 BGPDT 1 10 SIL 1 11 BGPDP 1 16 ECT 1 19 EST 1 23 GPECT 1 25 KGG 1 45 KNN 1 45 GPST 1 47 XVPS 1 122 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 3 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONM2 ELEMENTS (ELEMENT TYPE 30) STARTING WITH ID 11 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B 0 RIGID FORMAT SWITCH FROM 11 TO 1 O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 1.06920804D-01 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.06920804D-01 0.00000000D+00 0.00000000D+00 0.00000000D+00 1.06920806D+00 * * 0.00000000D+00 0.00000000D+00 1.06920804D-01 0.00000000D+00 -1.06920806D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 -1.06920806D+00 0.00000000D+00 1.43273880D+01 0.00000000D+00 * * 0.00000000D+00 1.06920806D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 1.43273880D+01 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 1.069208042D-01 0.000000000D+00 0.000000000D+00 0.000000000D+00 Y 1.069208042D-01 1.000000016D+01 0.000000000D+00 0.000000000D+00 Z 1.069208042D-01 1.000000016D+01 0.000000000D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 0.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 3.635307274D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 3.635307274D+00 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 0.000000000D+00 * * 3.635307274D+00 * * 3.635307274D+00 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B RIGID FORMAT SWITCH FROM 11 TO 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -9.4723509E-17 0*** SYSTEM WARNING MESSAGE 2184, STRESS OR FORCE REQUEST FOR ELEMENT CONM2 (NASTRAN ELEM. TYPE = 30) WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT. 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B 0 RIGID FORMAT SWITCH FROM 11 TO 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 -6.580981E-05 0.0 2 G -8.769585E-03 0.0 1.292265E-04 0.0 -6.222019E-05 0.0 3 G -1.753917E-02 0.0 2.446264E-04 0.0 -5.224900E-05 0.0 4 G -2.647740E-02 0.0 3.350318E-04 0.0 -3.749165E-05 0.0 5 G -3.541563E-02 0.0 3.924658E-04 0.0 -1.954352E-05 0.0 6 G -4.435386E-02 0.0 4.121423E-04 0.0 2.779750E-13 0.0 7 G -5.329209E-02 0.0 3.924658E-04 0.0 1.954352E-05 0.0 8 G -6.223032E-02 0.0 3.350318E-04 0.0 3.749165E-05 0.0 9 G -7.116855E-02 0.0 2.446264E-04 0.0 5.224900E-05 0.0 10 G -8.010677E-02 0.0 1.292265E-04 0.0 6.222018E-05 0.0 11 G 0.0 0.0 0.0 0.0 6.580981E-05 0.0 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B 0 RIGID FORMAT SWITCH FROM 11 TO 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 1.721425E-01 0.0 0.0 0.0 2 G 0.0 0.0 3.442850E-01 0.0 0.0 0.0 3 G 0.0 0.0 3.442850E-01 0.0 0.0 0.0 4 G 0.0 0.0 3.442850E-01 0.0 0.0 0.0 5 G 0.0 0.0 3.442850E-01 0.0 0.0 0.0 6 G 0.0 0.0 3.442850E-01 0.0 0.0 0.0 7 G 0.0 0.0 3.442850E-01 0.0 0.0 0.0 8 G 0.0 0.0 3.442850E-01 0.0 0.0 0.0 9 G 0.0 0.0 3.442850E-01 0.0 0.0 0.0 10 G -9.811330E+06 0.0 3.442850E-01 0.0 0.0 0.0 11 G 9.811330E+06 0.0 1.721425E-01 0.0 0.0 0.0 1 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B 0 RIGID FORMAT SWITCH FROM 11 TO 1 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 3 -5.508545E+00 0.0 -7.229980E+00 0.0 8.607178E-01 0.0 -9.848494E+05 0.0 4 -7.229950E+00 0.0 -8.262787E+00 0.0 5.164185E-01 0.0 -9.848492E+05 0.0 5 -8.262878E+00 0.0 -8.607117E+00 0.0 1.721191E-01 0.0 -9.848495E+05 0.0 6 -8.607117E+00 0.0 -8.262878E+00 0.0 -1.721191E-01 0.0 -9.848495E+05 0.0 7 -8.262848E+00 0.0 -7.230011E+00 0.0 -5.164185E-01 0.0 -9.848490E+05 0.0 8 -7.229980E+00 0.0 -5.508545E+00 0.0 -8.607178E-01 0.0 -9.848500E+05 0.0 9 -5.508560E+00 0.0 -3.098557E+00 0.0 -1.205002E+00 0.0 -9.848485E+05 0.0 10 -3.098564E+00 0.0 -7.629395E-06 0.0 -1.549278E+00 0.0 -9.848500E+05 0.0 * * * END OF JOB * * * 1 JOB TITLE = 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD DATE: 5/17/95 END TIME: 16:16:26 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d11021a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D11021A,NASTRAN APP DISPLACEMENT TIME 35 SOL 11,1 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FREQUENCY RESPONSE OF A 500 CELL STRING 2 OUTPUT 3 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 4 METHOD = 10 5 FREQ = 11 6 DLOAD = 11 7 OUTPUT 8 SET 1 = 51, 101, 151, 201, 251, 301, 351, 401, 451 9 SET 2 = 1 THRU 5 10 DISPLACEMENT(PHASE,SORT2) = 1 11 SDISPLACEMENT(PHASE,SORT2) = 2 12 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 13 OUTPUT(XYOUT) 14 PLOTTER = NASTPLT 15 CAMERA = 3 16 SKIP BETWEEN FRAMES = 1 17 CURVE LINE AND SYMBOLS = 1 18 XLOG = YES 19 YTLOG = YES 20 XTGRID = YES 21 XBGRID = YES 22 YTGRID = YES 23 YBGRID = YES 24 XTITLE = FREQUENCY (HERTZ) 25 YTTITLE= MAGNITUDE *INCH* 26 YBTITLE= PHASE *DEGREE* 27 $ 28 $ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 29 $ 30 TCURVE = * * * * * * SPOINT 5 1 * * * * * * * * * * * * * * * * 31 XYPLOT DISP / 51(T1RM,T1IP) 32 TCURVE = * * * * * * SPOINT 1 0 1 * * * * * * * * * * * * * * * 33 XYPLOT DISP / 101(T1RM,T1IP) 34 TCURVE = * * * * * * SPOINT 1 5 1 * * * * * * * * * * * * * * * 35 XYPLOT DISP / 151(T1RM,T1IP) 36 TCURVE = * * * * * * SPOINT 2 0 1 * * * * * * * * * * * * * * * 37 XYPLOT DISP / 201(T1RM,T1IP) 38 TCURVE = * * * * * * SPOINT 2 5 1 * * * * * * * * * * * * * * * 39 XYPLOT DISP / 251(T1RM,T1IP) 40 $ 41 $ * * * * * * * * * * * * * * * * * * * * * * * * 42 $ 43 YLOG = YES 44 YTITLE = MAGNITUDE *INCH* 45 XGRID LINES = YES 46 YGRID LINES = YES 47 TCURVE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 48 XYPLOT DISP / 51(3), 101(3), 151(3), 201(3), 251(3) 49 YLOG = NO 50 YTITLE = REAL PART *POUNDS* 51 TCURVE = * * * * * * * FORCE IN STRING ELEMENT 251 * * * * * * * * 52 XYPLOT, XYPRINT ELFORCE RESPONSE / 251(2) 53 $ 54 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 763, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CELAS3 1 101 0 2 2 101 2 3 2- CELAS3 3 101 3 4 4 101 4 5 3- CELAS3 5 101 5 6 6 101 6 7 4- CELAS3 7 101 7 8 8 101 8 9 5- CELAS3 9 101 9 10 10 101 10 11 6- CELAS3 11 101 11 12 12 101 12 13 7- CELAS3 13 101 13 14 14 101 14 15 8- CELAS3 15 101 15 16 16 101 16 17 9- CELAS3 17 101 17 18 18 101 18 19 10- CELAS3 19 101 19 20 20 101 20 21 11- CELAS3 21 101 21 22 22 101 22 23 12- CELAS3 23 101 23 24 24 101 24 25 13- CELAS3 25 101 25 26 26 101 26 27 14- CELAS3 27 101 27 28 28 101 28 29 15- CELAS3 29 101 29 30 30 101 30 31 16- CELAS3 31 101 31 32 32 101 32 33 17- CELAS3 33 101 33 34 34 101 34 35 18- CELAS3 35 101 35 36 36 101 36 37 19- CELAS3 37 101 37 38 38 101 38 39 20- CELAS3 39 101 39 40 40 101 40 41 21- CELAS3 41 101 41 42 42 101 42 43 22- CELAS3 43 101 43 44 44 101 44 45 23- CELAS3 45 101 45 46 46 101 46 47 24- CELAS3 47 101 47 48 48 101 48 49 25- CELAS3 49 101 49 50 50 101 50 51 26- CELAS3 51 101 51 52 52 101 52 53 27- CELAS3 53 101 53 54 54 101 54 55 28- CELAS3 55 101 55 56 56 101 56 57 29- CELAS3 57 101 57 58 58 101 58 59 30- CELAS3 59 101 59 60 60 101 60 61 31- CELAS3 61 101 61 62 62 101 62 63 32- CELAS3 63 101 63 64 64 101 64 65 33- CELAS3 65 101 65 66 66 101 66 67 34- CELAS3 67 101 67 68 68 101 68 69 35- CELAS3 69 101 69 70 70 101 70 71 36- CELAS3 71 101 71 72 72 101 72 73 37- CELAS3 73 101 73 74 74 101 74 75 38- CELAS3 75 101 75 76 76 101 76 77 39- CELAS3 77 101 77 78 78 101 78 79 40- CELAS3 79 101 79 80 80 101 80 81 41- CELAS3 81 101 81 82 82 101 82 83 42- CELAS3 83 101 83 84 84 101 84 85 43- CELAS3 85 101 85 86 86 101 86 87 44- CELAS3 87 101 87 88 88 101 88 89 45- CELAS3 89 101 89 90 90 101 90 91 46- CELAS3 91 101 91 92 92 101 92 93 47- CELAS3 93 101 93 94 94 101 94 95 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CELAS3 95 101 95 96 96 101 96 97 49- CELAS3 97 101 97 98 98 101 98 99 50- CELAS3 99 101 99 100 100 101 100 101 51- CELAS3 101 101 101 102 102 101 102 103 52- CELAS3 103 101 103 104 104 101 104 105 53- CELAS3 105 101 105 106 106 101 106 107 54- CELAS3 107 101 107 108 108 101 108 109 55- CELAS3 109 101 109 110 110 101 110 111 56- CELAS3 111 101 111 112 112 101 112 113 57- CELAS3 113 101 113 114 114 101 114 115 58- CELAS3 115 101 115 116 116 101 116 117 59- CELAS3 117 101 117 118 118 101 118 119 60- CELAS3 119 101 119 120 120 101 120 121 61- CELAS3 121 101 121 122 122 101 122 123 62- CELAS3 123 101 123 124 124 101 124 125 63- CELAS3 125 101 125 126 126 101 126 127 64- CELAS3 127 101 127 128 128 101 128 129 65- CELAS3 129 101 129 130 130 101 130 131 66- CELAS3 131 101 131 132 132 101 132 133 67- CELAS3 133 101 133 134 134 101 134 135 68- CELAS3 135 101 135 136 136 101 136 137 69- CELAS3 137 101 137 138 138 101 138 139 70- CELAS3 139 101 139 140 140 101 140 141 71- CELAS3 141 101 141 142 142 101 142 143 72- CELAS3 143 101 143 144 144 101 144 145 73- CELAS3 145 101 145 146 146 101 146 147 74- CELAS3 147 101 147 148 148 101 148 149 75- CELAS3 149 101 149 150 150 101 150 151 76- CELAS3 151 101 151 152 152 101 152 153 77- CELAS3 153 101 153 154 154 101 154 155 78- CELAS3 155 101 155 156 156 101 156 157 79- CELAS3 157 101 157 158 158 101 158 159 80- CELAS3 159 101 159 160 160 101 160 161 81- CELAS3 161 101 161 162 162 101 162 163 82- CELAS3 163 101 163 164 164 101 164 165 83- CELAS3 165 101 165 166 166 101 166 167 84- CELAS3 167 101 167 168 168 101 168 169 85- CELAS3 169 101 169 170 170 101 170 171 86- CELAS3 171 101 171 172 172 101 172 173 87- CELAS3 173 101 173 174 174 101 174 175 88- CELAS3 175 101 175 176 176 101 176 177 89- CELAS3 177 101 177 178 178 101 178 179 90- CELAS3 179 101 179 180 180 101 180 181 91- CELAS3 181 101 181 182 182 101 182 183 92- CELAS3 183 101 183 184 184 101 184 185 93- CELAS3 185 101 185 186 186 101 186 187 94- CELAS3 187 101 187 188 188 101 188 189 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CELAS3 189 101 189 190 190 101 190 191 96- CELAS3 191 101 191 192 192 101 192 193 97- CELAS3 193 101 193 194 194 101 194 195 98- CELAS3 195 101 195 196 196 101 196 197 99- CELAS3 197 101 197 198 198 101 198 199 100- CELAS3 199 101 199 200 200 101 200 201 101- CELAS3 201 101 201 202 202 101 202 203 102- CELAS3 203 101 203 204 204 101 204 205 103- CELAS3 205 101 205 206 206 101 206 207 104- CELAS3 207 101 207 208 208 101 208 209 105- CELAS3 209 101 209 210 210 101 210 211 106- CELAS3 211 101 211 212 212 101 212 213 107- CELAS3 213 101 213 214 214 101 214 215 108- CELAS3 215 101 215 216 216 101 216 217 109- CELAS3 217 101 217 218 218 101 218 219 110- CELAS3 219 101 219 220 220 101 220 221 111- CELAS3 221 101 221 222 222 101 222 223 112- CELAS3 223 101 223 224 224 101 224 225 113- CELAS3 225 101 225 226 226 101 226 227 114- CELAS3 227 101 227 228 228 101 228 229 115- CELAS3 229 101 229 230 230 101 230 231 116- CELAS3 231 101 231 232 232 101 232 233 117- CELAS3 233 101 233 234 234 101 234 235 118- CELAS3 235 101 235 236 236 101 236 237 119- CELAS3 237 101 237 238 238 101 238 239 120- CELAS3 239 101 239 240 240 101 240 241 121- CELAS3 241 101 241 242 242 101 242 243 122- CELAS3 243 101 243 244 244 101 244 245 123- CELAS3 245 101 245 246 246 101 246 247 124- CELAS3 247 101 247 248 248 101 248 249 125- CELAS3 249 101 249 250 250 101 250 251 126- CELAS3 251 101 251 252 252 101 252 253 127- CELAS3 253 101 253 254 254 101 254 255 128- CELAS3 255 101 255 256 256 101 256 257 129- CELAS3 257 101 257 258 258 101 258 259 130- CELAS3 259 101 259 260 260 101 260 261 131- CELAS3 261 101 261 262 262 101 262 263 132- CELAS3 263 101 263 264 264 101 264 265 133- CELAS3 265 101 265 266 266 101 266 267 134- CELAS3 267 101 267 268 268 101 268 269 135- CELAS3 269 101 269 270 270 101 270 271 136- CELAS3 271 101 271 272 272 101 272 273 137- CELAS3 273 101 273 274 274 101 274 275 138- CELAS3 275 101 275 276 276 101 276 277 139- CELAS3 277 101 277 278 278 101 278 279 140- CELAS3 279 101 279 280 280 101 280 281 141- CELAS3 281 101 281 282 282 101 282 283 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CELAS3 283 101 283 284 284 101 284 285 143- CELAS3 285 101 285 286 286 101 286 287 144- CELAS3 287 101 287 288 288 101 288 289 145- CELAS3 289 101 289 290 290 101 290 291 146- CELAS3 291 101 291 292 292 101 292 293 147- CELAS3 293 101 293 294 294 101 294 295 148- CELAS3 295 101 295 296 296 101 296 297 149- CELAS3 297 101 297 298 298 101 298 299 150- CELAS3 299 101 299 300 300 101 300 301 151- CELAS3 301 101 301 302 302 101 302 303 152- CELAS3 303 101 303 304 304 101 304 305 153- CELAS3 305 101 305 306 306 101 306 307 154- CELAS3 307 101 307 308 308 101 308 309 155- CELAS3 309 101 309 310 310 101 310 311 156- CELAS3 311 101 311 312 312 101 312 313 157- CELAS3 313 101 313 314 314 101 314 315 158- CELAS3 315 101 315 316 316 101 316 317 159- CELAS3 317 101 317 318 318 101 318 319 160- CELAS3 319 101 319 320 320 101 320 321 161- CELAS3 321 101 321 322 322 101 322 323 162- CELAS3 323 101 323 324 324 101 324 325 163- CELAS3 325 101 325 326 326 101 326 327 164- CELAS3 327 101 327 328 328 101 328 329 165- CELAS3 329 101 329 330 330 101 330 331 166- CELAS3 331 101 331 332 332 101 332 333 167- CELAS3 333 101 333 334 334 101 334 335 168- CELAS3 335 101 335 336 336 101 336 337 169- CELAS3 337 101 337 338 338 101 338 339 170- CELAS3 339 101 339 340 340 101 340 341 171- CELAS3 341 101 341 342 342 101 342 343 172- CELAS3 343 101 343 344 344 101 344 345 173- CELAS3 345 101 345 346 346 101 346 347 174- CELAS3 347 101 347 348 348 101 348 349 175- CELAS3 349 101 349 350 350 101 350 351 176- CELAS3 351 101 351 352 352 101 352 353 177- CELAS3 353 101 353 354 354 101 354 355 178- CELAS3 355 101 355 356 356 101 356 357 179- CELAS3 357 101 357 358 358 101 358 359 180- CELAS3 359 101 359 360 360 101 360 361 181- CELAS3 361 101 361 362 362 101 362 363 182- CELAS3 363 101 363 364 364 101 364 365 183- CELAS3 365 101 365 366 366 101 366 367 184- CELAS3 367 101 367 368 368 101 368 369 185- CELAS3 369 101 369 370 370 101 370 371 186- CELAS3 371 101 371 372 372 101 372 373 187- CELAS3 373 101 373 374 374 101 374 375 188- CELAS3 375 101 375 376 376 101 376 377 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CELAS3 377 101 377 378 378 101 378 379 190- CELAS3 379 101 379 380 380 101 380 381 191- CELAS3 381 101 381 382 382 101 382 383 192- CELAS3 383 101 383 384 384 101 384 385 193- CELAS3 385 101 385 386 386 101 386 387 194- CELAS3 387 101 387 388 388 101 388 389 195- CELAS3 389 101 389 390 390 101 390 391 196- CELAS3 391 101 391 392 392 101 392 393 197- CELAS3 393 101 393 394 394 101 394 395 198- CELAS3 395 101 395 396 396 101 396 397 199- CELAS3 397 101 397 398 398 101 398 399 200- CELAS3 399 101 399 400 400 101 400 401 201- CELAS3 401 101 401 402 402 101 402 403 202- CELAS3 403 101 403 404 404 101 404 405 203- CELAS3 405 101 405 406 406 101 406 407 204- CELAS3 407 101 407 408 408 101 408 409 205- CELAS3 409 101 409 410 410 101 410 411 206- CELAS3 411 101 411 412 412 101 412 413 207- CELAS3 413 101 413 414 414 101 414 415 208- CELAS3 415 101 415 416 416 101 416 417 209- CELAS3 417 101 417 418 418 101 418 419 210- CELAS3 419 101 419 420 420 101 420 421 211- CELAS3 421 101 421 422 422 101 422 423 212- CELAS3 423 101 423 424 424 101 424 425 213- CELAS3 425 101 425 426 426 101 426 427 214- CELAS3 427 101 427 428 428 101 428 429 215- CELAS3 429 101 429 430 430 101 430 431 216- CELAS3 431 101 431 432 432 101 432 433 217- CELAS3 433 101 433 434 434 101 434 435 218- CELAS3 435 101 435 436 436 101 436 437 219- CELAS3 437 101 437 438 438 101 438 439 220- CELAS3 439 101 439 440 440 101 440 441 221- CELAS3 441 101 441 442 442 101 442 443 222- CELAS3 443 101 443 444 444 101 444 445 223- CELAS3 445 101 445 446 446 101 446 447 224- CELAS3 447 101 447 448 448 101 448 449 225- CELAS3 449 101 449 450 450 101 450 451 226- CELAS3 451 101 451 452 452 101 452 453 227- CELAS3 453 101 453 454 454 101 454 455 228- CELAS3 455 101 455 456 456 101 456 457 229- CELAS3 457 101 457 458 458 101 458 459 230- CELAS3 459 101 459 460 460 101 460 461 231- CELAS3 461 101 461 462 462 101 462 463 232- CELAS3 463 101 463 464 464 101 464 465 233- CELAS3 465 101 465 466 466 101 466 467 234- CELAS3 467 101 467 468 468 101 468 469 235- CELAS3 469 101 469 470 470 101 470 471 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- CELAS3 471 101 471 472 472 101 472 473 237- CELAS3 473 101 473 474 474 101 474 475 238- CELAS3 475 101 475 476 476 101 476 477 239- CELAS3 477 101 477 478 478 101 478 479 240- CELAS3 479 101 479 480 480 101 480 481 241- CELAS3 481 101 481 482 482 101 482 483 242- CELAS3 483 101 483 484 484 101 484 485 243- CELAS3 485 101 485 486 486 101 486 487 244- CELAS3 487 101 487 488 488 101 488 489 245- CELAS3 489 101 489 490 490 101 490 491 246- CELAS3 491 101 491 492 492 101 492 493 247- CELAS3 493 101 493 494 494 101 494 495 248- CELAS3 495 101 495 496 496 101 496 497 249- CELAS3 497 101 497 498 498 101 498 499 250- CELAS3 499 101 499 500 500 101 500 0 251- CMASS3 40002 301 2 0 252- CMASS3 40003 301 3 0 40004 301 4 0 253- CMASS3 40005 301 5 0 40006 301 6 0 254- CMASS3 40007 301 7 0 40008 301 8 0 255- CMASS3 40009 301 9 0 40010 301 10 0 256- CMASS3 40011 301 11 0 40012 301 12 0 257- CMASS3 40013 301 13 0 40014 301 14 0 258- CMASS3 40015 301 15 0 40016 301 16 0 259- CMASS3 40017 301 17 0 40018 301 18 0 260- CMASS3 40019 301 19 0 40020 301 20 0 261- CMASS3 40021 301 21 0 40022 301 22 0 262- CMASS3 40023 301 23 0 40024 301 24 0 263- CMASS3 40025 301 25 0 40026 301 26 0 264- CMASS3 40027 301 27 0 40028 301 28 0 265- CMASS3 40029 301 29 0 40030 301 30 0 266- CMASS3 40031 301 31 0 40032 301 32 0 267- CMASS3 40033 301 33 0 40034 301 34 0 268- CMASS3 40035 301 35 0 40036 301 36 0 269- CMASS3 40037 301 37 0 40038 301 38 0 270- CMASS3 40039 301 39 0 40040 301 40 0 271- CMASS3 40041 301 41 0 40042 301 42 0 272- CMASS3 40043 301 43 0 40044 301 44 0 273- CMASS3 40045 301 45 0 40046 301 46 0 274- CMASS3 40047 301 47 0 40048 301 48 0 275- CMASS3 40049 301 49 0 40050 301 50 0 276- CMASS3 40051 301 51 0 40052 301 52 0 277- CMASS3 40053 301 53 0 40054 301 54 0 278- CMASS3 40055 301 55 0 40056 301 56 0 279- CMASS3 40057 301 57 0 40058 301 58 0 280- CMASS3 40059 301 59 0 40060 301 60 0 281- CMASS3 40061 301 61 0 40062 301 62 0 282- CMASS3 40063 301 63 0 40064 301 64 0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- CMASS3 40065 301 65 0 40066 301 66 0 284- CMASS3 40067 301 67 0 40068 301 68 0 285- CMASS3 40069 301 69 0 40070 301 70 0 286- CMASS3 40071 301 71 0 40072 301 72 0 287- CMASS3 40073 301 73 0 40074 301 74 0 288- CMASS3 40075 301 75 0 40076 301 76 0 289- CMASS3 40077 301 77 0 40078 301 78 0 290- CMASS3 40079 301 79 0 40080 301 80 0 291- CMASS3 40081 301 81 0 40082 301 82 0 292- CMASS3 40083 301 83 0 40084 301 84 0 293- CMASS3 40085 301 85 0 40086 301 86 0 294- CMASS3 40087 301 87 0 40088 301 88 0 295- CMASS3 40089 301 89 0 40090 301 90 0 296- CMASS3 40091 301 91 0 40092 301 92 0 297- CMASS3 40093 301 93 0 40094 301 94 0 298- CMASS3 40095 301 95 0 40096 301 96 0 299- CMASS3 40097 301 97 0 40098 301 98 0 300- CMASS3 40099 301 99 0 40100 301 100 0 301- CMASS3 40101 301 101 0 40102 301 102 0 302- CMASS3 40103 301 103 0 40104 301 104 0 303- CMASS3 40105 301 105 0 40106 301 106 0 304- CMASS3 40107 301 107 0 40108 301 108 0 305- CMASS3 40109 301 109 0 40110 301 110 0 306- CMASS3 40111 301 111 0 40112 301 112 0 307- CMASS3 40113 301 113 0 40114 301 114 0 308- CMASS3 40115 301 115 0 40116 301 116 0 309- CMASS3 40117 301 117 0 40118 301 118 0 310- CMASS3 40119 301 119 0 40120 301 120 0 311- CMASS3 40121 301 121 0 40122 301 122 0 312- CMASS3 40123 301 123 0 40124 301 124 0 313- CMASS3 40125 301 125 0 40126 301 126 0 314- CMASS3 40127 301 127 0 40128 301 128 0 315- CMASS3 40129 301 129 0 40130 301 130 0 316- CMASS3 40131 301 131 0 40132 301 132 0 317- CMASS3 40133 301 133 0 40134 301 134 0 318- CMASS3 40135 301 135 0 40136 301 136 0 319- CMASS3 40137 301 137 0 40138 301 138 0 320- CMASS3 40139 301 139 0 40140 301 140 0 321- CMASS3 40141 301 141 0 40142 301 142 0 322- CMASS3 40143 301 143 0 40144 301 144 0 323- CMASS3 40145 301 145 0 40146 301 146 0 324- CMASS3 40147 301 147 0 40148 301 148 0 325- CMASS3 40149 301 149 0 40150 301 150 0 326- CMASS3 40151 301 151 0 40152 301 152 0 327- CMASS3 40153 301 153 0 40154 301 154 0 328- CMASS3 40155 301 155 0 40156 301 156 0 329- CMASS3 40157 301 157 0 40158 301 158 0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- CMASS3 40159 301 159 0 40160 301 160 0 331- CMASS3 40161 301 161 0 40162 301 162 0 332- CMASS3 40163 301 163 0 40164 301 164 0 333- CMASS3 40165 301 165 0 40166 301 166 0 334- CMASS3 40167 301 167 0 40168 301 168 0 335- CMASS3 40169 301 169 0 40170 301 170 0 336- CMASS3 40171 301 171 0 40172 301 172 0 337- CMASS3 40173 301 173 0 40174 301 174 0 338- CMASS3 40175 301 175 0 40176 301 176 0 339- CMASS3 40177 301 177 0 40178 301 178 0 340- CMASS3 40179 301 179 0 40180 301 180 0 341- CMASS3 40181 301 181 0 40182 301 182 0 342- CMASS3 40183 301 183 0 40184 301 184 0 343- CMASS3 40185 301 185 0 40186 301 186 0 344- CMASS3 40187 301 187 0 40188 301 188 0 345- CMASS3 40189 301 189 0 40190 301 190 0 346- CMASS3 40191 301 191 0 40192 301 192 0 347- CMASS3 40193 301 193 0 40194 301 194 0 348- CMASS3 40195 301 195 0 40196 301 196 0 349- CMASS3 40197 301 197 0 40198 301 198 0 350- CMASS3 40199 301 199 0 40200 301 200 0 351- CMASS3 40201 301 201 0 40202 301 202 0 352- CMASS3 40203 301 203 0 40204 301 204 0 353- CMASS3 40205 301 205 0 40206 301 206 0 354- CMASS3 40207 301 207 0 40208 301 208 0 355- CMASS3 40209 301 209 0 40210 301 210 0 356- CMASS3 40211 301 211 0 40212 301 212 0 357- CMASS3 40213 301 213 0 40214 301 214 0 358- CMASS3 40215 301 215 0 40216 301 216 0 359- CMASS3 40217 301 217 0 40218 301 218 0 360- CMASS3 40219 301 219 0 40220 301 220 0 361- CMASS3 40221 301 221 0 40222 301 222 0 362- CMASS3 40223 301 223 0 40224 301 224 0 363- CMASS3 40225 301 225 0 40226 301 226 0 364- CMASS3 40227 301 227 0 40228 301 228 0 365- CMASS3 40229 301 229 0 40230 301 230 0 366- CMASS3 40231 301 231 0 40232 301 232 0 367- CMASS3 40233 301 233 0 40234 301 234 0 368- CMASS3 40235 301 235 0 40236 301 236 0 369- CMASS3 40237 301 237 0 40238 301 238 0 370- CMASS3 40239 301 239 0 40240 301 240 0 371- CMASS3 40241 301 241 0 40242 301 242 0 372- CMASS3 40243 301 243 0 40244 301 244 0 373- CMASS3 40245 301 245 0 40246 301 246 0 374- CMASS3 40247 301 247 0 40248 301 248 0 375- CMASS3 40249 301 249 0 40250 301 250 0 376- CMASS3 40251 301 251 0 40252 301 252 0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- CMASS3 40253 301 253 0 40254 301 254 0 378- CMASS3 40255 301 255 0 40256 301 256 0 379- CMASS3 40257 301 257 0 40258 301 258 0 380- CMASS3 40259 301 259 0 40260 301 260 0 381- CMASS3 40261 301 261 0 40262 301 262 0 382- CMASS3 40263 301 263 0 40264 301 264 0 383- CMASS3 40265 301 265 0 40266 301 266 0 384- CMASS3 40267 301 267 0 40268 301 268 0 385- CMASS3 40269 301 269 0 40270 301 270 0 386- CMASS3 40271 301 271 0 40272 301 272 0 387- CMASS3 40273 301 273 0 40274 301 274 0 388- CMASS3 40275 301 275 0 40276 301 276 0 389- CMASS3 40277 301 277 0 40278 301 278 0 390- CMASS3 40279 301 279 0 40280 301 280 0 391- CMASS3 40281 301 281 0 40282 301 282 0 392- CMASS3 40283 301 283 0 40284 301 284 0 393- CMASS3 40285 301 285 0 40286 301 286 0 394- CMASS3 40287 301 287 0 40288 301 288 0 395- CMASS3 40289 301 289 0 40290 301 290 0 396- CMASS3 40291 301 291 0 40292 301 292 0 397- CMASS3 40293 301 293 0 40294 301 294 0 398- CMASS3 40295 301 295 0 40296 301 296 0 399- CMASS3 40297 301 297 0 40298 301 298 0 400- CMASS3 40299 301 299 0 40300 301 300 0 401- CMASS3 40301 301 301 0 40302 301 302 0 402- CMASS3 40303 301 303 0 40304 301 304 0 403- CMASS3 40305 301 305 0 40306 301 306 0 404- CMASS3 40307 301 307 0 40308 301 308 0 405- CMASS3 40309 301 309 0 40310 301 310 0 406- CMASS3 40311 301 311 0 40312 301 312 0 407- CMASS3 40313 301 313 0 40314 301 314 0 408- CMASS3 40315 301 315 0 40316 301 316 0 409- CMASS3 40317 301 317 0 40318 301 318 0 410- CMASS3 40319 301 319 0 40320 301 320 0 411- CMASS3 40321 301 321 0 40322 301 322 0 412- CMASS3 40323 301 323 0 40324 301 324 0 413- CMASS3 40325 301 325 0 40326 301 326 0 414- CMASS3 40327 301 327 0 40328 301 328 0 415- CMASS3 40329 301 329 0 40330 301 330 0 416- CMASS3 40331 301 331 0 40332 301 332 0 417- CMASS3 40333 301 333 0 40334 301 334 0 418- CMASS3 40335 301 335 0 40336 301 336 0 419- CMASS3 40337 301 337 0 40338 301 338 0 420- CMASS3 40339 301 339 0 40340 301 340 0 421- CMASS3 40341 301 341 0 40342 301 342 0 422- CMASS3 40343 301 343 0 40344 301 344 0 423- CMASS3 40345 301 345 0 40346 301 346 0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- CMASS3 40347 301 347 0 40348 301 348 0 425- CMASS3 40349 301 349 0 40350 301 350 0 426- CMASS3 40351 301 351 0 40352 301 352 0 427- CMASS3 40353 301 353 0 40354 301 354 0 428- CMASS3 40355 301 355 0 40356 301 356 0 429- CMASS3 40357 301 357 0 40358 301 358 0 430- CMASS3 40359 301 359 0 40360 301 360 0 431- CMASS3 40361 301 361 0 40362 301 362 0 432- CMASS3 40363 301 363 0 40364 301 364 0 433- CMASS3 40365 301 365 0 40366 301 366 0 434- CMASS3 40367 301 367 0 40368 301 368 0 435- CMASS3 40369 301 369 0 40370 301 370 0 436- CMASS3 40371 301 371 0 40372 301 372 0 437- CMASS3 40373 301 373 0 40374 301 374 0 438- CMASS3 40375 301 375 0 40376 301 376 0 439- CMASS3 40377 301 377 0 40378 301 378 0 440- CMASS3 40379 301 379 0 40380 301 380 0 441- CMASS3 40381 301 381 0 40382 301 382 0 442- CMASS3 40383 301 383 0 40384 301 384 0 443- CMASS3 40385 301 385 0 40386 301 386 0 444- CMASS3 40387 301 387 0 40388 301 388 0 445- CMASS3 40389 301 389 0 40390 301 390 0 446- CMASS3 40391 301 391 0 40392 301 392 0 447- CMASS3 40393 301 393 0 40394 301 394 0 448- CMASS3 40395 301 395 0 40396 301 396 0 449- CMASS3 40397 301 397 0 40398 301 398 0 450- CMASS3 40399 301 399 0 40400 301 400 0 451- CMASS3 40401 301 401 0 40402 301 402 0 452- CMASS3 40403 301 403 0 40404 301 404 0 453- CMASS3 40405 301 405 0 40406 301 406 0 454- CMASS3 40407 301 407 0 40408 301 408 0 455- CMASS3 40409 301 409 0 40410 301 410 0 456- CMASS3 40411 301 411 0 40412 301 412 0 457- CMASS3 40413 301 413 0 40414 301 414 0 458- CMASS3 40415 301 415 0 40416 301 416 0 459- CMASS3 40417 301 417 0 40418 301 418 0 460- CMASS3 40419 301 419 0 40420 301 420 0 461- CMASS3 40421 301 421 0 40422 301 422 0 462- CMASS3 40423 301 423 0 40424 301 424 0 463- CMASS3 40425 301 425 0 40426 301 426 0 464- CMASS3 40427 301 427 0 40428 301 428 0 465- CMASS3 40429 301 429 0 40430 301 430 0 466- CMASS3 40431 301 431 0 40432 301 432 0 467- CMASS3 40433 301 433 0 40434 301 434 0 468- CMASS3 40435 301 435 0 40436 301 436 0 469- CMASS3 40437 301 437 0 40438 301 438 0 470- CMASS3 40439 301 439 0 40440 301 440 0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- CMASS3 40441 301 441 0 40442 301 442 0 472- CMASS3 40443 301 443 0 40444 301 444 0 473- CMASS3 40445 301 445 0 40446 301 446 0 474- CMASS3 40447 301 447 0 40448 301 448 0 475- CMASS3 40449 301 449 0 40450 301 450 0 476- CMASS3 40451 301 451 0 40452 301 452 0 477- CMASS3 40453 301 453 0 40454 301 454 0 478- CMASS3 40455 301 455 0 40456 301 456 0 479- CMASS3 40457 301 457 0 40458 301 458 0 480- CMASS3 40459 301 459 0 40460 301 460 0 481- CMASS3 40461 301 461 0 40462 301 462 0 482- CMASS3 40463 301 463 0 40464 301 464 0 483- CMASS3 40465 301 465 0 40466 301 466 0 484- CMASS3 40467 301 467 0 40468 301 468 0 485- CMASS3 40469 301 469 0 40470 301 470 0 486- CMASS3 40471 301 471 0 40472 301 472 0 487- CMASS3 40473 301 473 0 40474 301 474 0 488- CMASS3 40475 301 475 0 40476 301 476 0 489- CMASS3 40477 301 477 0 40478 301 478 0 490- CMASS3 40479 301 479 0 40480 301 480 0 491- CMASS3 40481 301 481 0 40482 301 482 0 492- CMASS3 40483 301 483 0 40484 301 484 0 493- CMASS3 40485 301 485 0 40486 301 486 0 494- CMASS3 40487 301 487 0 40488 301 488 0 495- CMASS3 40489 301 489 0 40490 301 490 0 496- CMASS3 40491 301 491 0 40492 301 492 0 497- CMASS3 40493 301 493 0 40494 301 494 0 498- CMASS3 40495 301 495 0 40496 301 496 0 499- CMASS3 40497 301 497 0 40498 301 498 0 500- CMASS3 40499 301 499 0 40500 301 500 0 501- DAREA 11 2 1.0 3 1.0 502- DAREA 11 4 1.0 5 1.0 503- DAREA 11 6 1.0 7 1.0 504- DAREA 11 8 1.0 9 1.0 505- DAREA 11 10 1.0 11 1.0 506- DAREA 11 12 1.0 13 1.0 507- DAREA 11 14 1.0 15 1.0 508- DAREA 11 16 1.0 17 1.0 509- DAREA 11 18 1.0 19 1.0 510- DAREA 11 20 1.0 21 1.0 511- DAREA 11 22 1.0 23 1.0 512- DAREA 11 24 1.0 25 1.0 513- DAREA 11 26 1.0 27 1.0 514- DAREA 11 28 1.0 29 1.0 515- DAREA 11 30 1.0 31 1.0 516- DAREA 11 32 1.0 33 1.0 517- DAREA 11 34 1.0 35 1.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- DAREA 11 36 1.0 37 1.0 519- DAREA 11 38 1.0 39 1.0 520- DAREA 11 40 1.0 41 1.0 521- DAREA 11 42 1.0 43 1.0 522- DAREA 11 44 1.0 45 1.0 523- DAREA 11 46 1.0 47 1.0 524- DAREA 11 48 1.0 49 1.0 525- DAREA 11 50 1.0 51 1.0 526- DAREA 11 52 1.0 53 1.0 527- DAREA 11 54 1.0 55 1.0 528- DAREA 11 56 1.0 57 1.0 529- DAREA 11 58 1.0 59 1.0 530- DAREA 11 60 1.0 61 1.0 531- DAREA 11 62 1.0 63 1.0 532- DAREA 11 64 1.0 65 1.0 533- DAREA 11 66 1.0 67 1.0 534- DAREA 11 68 1.0 69 1.0 535- DAREA 11 70 1.0 71 1.0 536- DAREA 11 72 1.0 73 1.0 537- DAREA 11 74 1.0 75 1.0 538- DAREA 11 76 1.0 77 1.0 539- DAREA 11 78 1.0 79 1.0 540- DAREA 11 80 1.0 81 1.0 541- DAREA 11 82 1.0 83 1.0 542- DAREA 11 84 1.0 85 1.0 543- DAREA 11 86 1.0 87 1.0 544- DAREA 11 88 1.0 89 1.0 545- DAREA 11 90 1.0 91 1.0 546- DAREA 11 92 1.0 93 1.0 547- DAREA 11 94 1.0 95 1.0 548- DAREA 11 96 1.0 97 1.0 549- DAREA 11 98 1.0 99 1.0 550- DAREA 11 100 1.0 101 1.0 551- DAREA 11 102 1.0 103 1.0 552- DAREA 11 104 1.0 105 1.0 553- DAREA 11 106 1.0 107 1.0 554- DAREA 11 108 1.0 109 1.0 555- DAREA 11 110 1.0 111 1.0 556- DAREA 11 112 1.0 113 1.0 557- DAREA 11 114 1.0 115 1.0 558- DAREA 11 116 1.0 117 1.0 559- DAREA 11 118 1.0 119 1.0 560- DAREA 11 120 1.0 121 1.0 561- DAREA 11 122 1.0 123 1.0 562- DAREA 11 124 1.0 125 1.0 563- DAREA 11 126 1.0 127 1.0 564- DAREA 11 128 1.0 129 1.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 565- DAREA 11 130 1.0 131 1.0 566- DAREA 11 132 1.0 133 1.0 567- DAREA 11 134 1.0 135 1.0 568- DAREA 11 136 1.0 137 1.0 569- DAREA 11 138 1.0 139 1.0 570- DAREA 11 140 1.0 141 1.0 571- DAREA 11 142 1.0 143 1.0 572- DAREA 11 144 1.0 145 1.0 573- DAREA 11 146 1.0 147 1.0 574- DAREA 11 148 1.0 149 1.0 575- DAREA 11 150 1.0 151 1.0 576- DAREA 11 152 1.0 153 1.0 577- DAREA 11 154 1.0 155 1.0 578- DAREA 11 156 1.0 157 1.0 579- DAREA 11 158 1.0 159 1.0 580- DAREA 11 160 1.0 161 1.0 581- DAREA 11 162 1.0 163 1.0 582- DAREA 11 164 1.0 165 1.0 583- DAREA 11 166 1.0 167 1.0 584- DAREA 11 168 1.0 169 1.0 585- DAREA 11 170 1.0 171 1.0 586- DAREA 11 172 1.0 173 1.0 587- DAREA 11 174 1.0 175 1.0 588- DAREA 11 176 1.0 177 1.0 589- DAREA 11 178 1.0 179 1.0 590- DAREA 11 180 1.0 181 1.0 591- DAREA 11 182 1.0 183 1.0 592- DAREA 11 184 1.0 185 1.0 593- DAREA 11 186 1.0 187 1.0 594- DAREA 11 188 1.0 189 1.0 595- DAREA 11 190 1.0 191 1.0 596- DAREA 11 192 1.0 193 1.0 597- DAREA 11 194 1.0 195 1.0 598- DAREA 11 196 1.0 197 1.0 599- DAREA 11 198 1.0 199 1.0 600- DAREA 11 200 1.0 201 1.0 601- DAREA 11 202 1.0 203 1.0 602- DAREA 11 204 1.0 205 1.0 603- DAREA 11 206 1.0 207 1.0 604- DAREA 11 208 1.0 209 1.0 605- DAREA 11 210 1.0 211 1.0 606- DAREA 11 212 1.0 213 1.0 607- DAREA 11 214 1.0 215 1.0 608- DAREA 11 216 1.0 217 1.0 609- DAREA 11 218 1.0 219 1.0 610- DAREA 11 220 1.0 221 1.0 611- DAREA 11 222 1.0 223 1.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 612- DAREA 11 224 1.0 225 1.0 613- DAREA 11 226 1.0 227 1.0 614- DAREA 11 228 1.0 229 1.0 615- DAREA 11 230 1.0 231 1.0 616- DAREA 11 232 1.0 233 1.0 617- DAREA 11 234 1.0 235 1.0 618- DAREA 11 236 1.0 237 1.0 619- DAREA 11 238 1.0 239 1.0 620- DAREA 11 240 1.0 241 1.0 621- DAREA 11 242 1.0 243 1.0 622- DAREA 11 244 1.0 245 1.0 623- DAREA 11 246 1.0 247 1.0 624- DAREA 11 248 1.0 249 1.0 625- DAREA 11 250 1.0 251 1.0 626- DAREA 11 252 1.0 253 1.0 627- DAREA 11 254 1.0 255 1.0 628- DAREA 11 256 1.0 257 1.0 629- DAREA 11 258 1.0 259 1.0 630- DAREA 11 260 1.0 261 1.0 631- DAREA 11 262 1.0 263 1.0 632- DAREA 11 264 1.0 265 1.0 633- DAREA 11 266 1.0 267 1.0 634- DAREA 11 268 1.0 269 1.0 635- DAREA 11 270 1.0 271 1.0 636- DAREA 11 272 1.0 273 1.0 637- DAREA 11 274 1.0 275 1.0 638- DAREA 11 276 1.0 277 1.0 639- DAREA 11 278 1.0 279 1.0 640- DAREA 11 280 1.0 281 1.0 641- DAREA 11 282 1.0 283 1.0 642- DAREA 11 284 1.0 285 1.0 643- DAREA 11 286 1.0 287 1.0 644- DAREA 11 288 1.0 289 1.0 645- DAREA 11 290 1.0 291 1.0 646- DAREA 11 292 1.0 293 1.0 647- DAREA 11 294 1.0 295 1.0 648- DAREA 11 296 1.0 297 1.0 649- DAREA 11 298 1.0 299 1.0 650- DAREA 11 300 1.0 301 1.0 651- DAREA 11 302 1.0 303 1.0 652- DAREA 11 304 1.0 305 1.0 653- DAREA 11 306 1.0 307 1.0 654- DAREA 11 308 1.0 309 1.0 655- DAREA 11 310 1.0 311 1.0 656- DAREA 11 312 1.0 313 1.0 657- DAREA 11 314 1.0 315 1.0 658- DAREA 11 316 1.0 317 1.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 659- DAREA 11 318 1.0 319 1.0 660- DAREA 11 320 1.0 321 1.0 661- DAREA 11 322 1.0 323 1.0 662- DAREA 11 324 1.0 325 1.0 663- DAREA 11 326 1.0 327 1.0 664- DAREA 11 328 1.0 329 1.0 665- DAREA 11 330 1.0 331 1.0 666- DAREA 11 332 1.0 333 1.0 667- DAREA 11 334 1.0 335 1.0 668- DAREA 11 336 1.0 337 1.0 669- DAREA 11 338 1.0 339 1.0 670- DAREA 11 340 1.0 341 1.0 671- DAREA 11 342 1.0 343 1.0 672- DAREA 11 344 1.0 345 1.0 673- DAREA 11 346 1.0 347 1.0 674- DAREA 11 348 1.0 349 1.0 675- DAREA 11 350 1.0 351 1.0 676- DAREA 11 352 1.0 353 1.0 677- DAREA 11 354 1.0 355 1.0 678- DAREA 11 356 1.0 357 1.0 679- DAREA 11 358 1.0 359 1.0 680- DAREA 11 360 1.0 361 1.0 681- DAREA 11 362 1.0 363 1.0 682- DAREA 11 364 1.0 365 1.0 683- DAREA 11 366 1.0 367 1.0 684- DAREA 11 368 1.0 369 1.0 685- DAREA 11 370 1.0 371 1.0 686- DAREA 11 372 1.0 373 1.0 687- DAREA 11 374 1.0 375 1.0 688- DAREA 11 376 1.0 377 1.0 689- DAREA 11 378 1.0 379 1.0 690- DAREA 11 380 1.0 381 1.0 691- DAREA 11 382 1.0 383 1.0 692- DAREA 11 384 1.0 385 1.0 693- DAREA 11 386 1.0 387 1.0 694- DAREA 11 388 1.0 389 1.0 695- DAREA 11 390 1.0 391 1.0 696- DAREA 11 392 1.0 393 1.0 697- DAREA 11 394 1.0 395 1.0 698- DAREA 11 396 1.0 397 1.0 699- DAREA 11 398 1.0 399 1.0 700- DAREA 11 400 1.0 401 1.0 701- DAREA 11 402 1.0 403 1.0 702- DAREA 11 404 1.0 405 1.0 703- DAREA 11 406 1.0 407 1.0 704- DAREA 11 408 1.0 409 1.0 705- DAREA 11 410 1.0 411 1.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 706- DAREA 11 412 1.0 413 1.0 707- DAREA 11 414 1.0 415 1.0 708- DAREA 11 416 1.0 417 1.0 709- DAREA 11 418 1.0 419 1.0 710- DAREA 11 420 1.0 421 1.0 711- DAREA 11 422 1.0 423 1.0 712- DAREA 11 424 1.0 425 1.0 713- DAREA 11 426 1.0 427 1.0 714- DAREA 11 428 1.0 429 1.0 715- DAREA 11 430 1.0 431 1.0 716- DAREA 11 432 1.0 433 1.0 717- DAREA 11 434 1.0 435 1.0 718- DAREA 11 436 1.0 437 1.0 719- DAREA 11 438 1.0 439 1.0 720- DAREA 11 440 1.0 441 1.0 721- DAREA 11 442 1.0 443 1.0 722- DAREA 11 444 1.0 445 1.0 723- DAREA 11 446 1.0 447 1.0 724- DAREA 11 448 1.0 449 1.0 725- DAREA 11 450 1.0 451 1.0 726- DAREA 11 452 1.0 453 1.0 727- DAREA 11 454 1.0 455 1.0 728- DAREA 11 456 1.0 457 1.0 729- DAREA 11 458 1.0 459 1.0 730- DAREA 11 460 1.0 461 1.0 731- DAREA 11 462 1.0 463 1.0 732- DAREA 11 464 1.0 465 1.0 733- DAREA 11 466 1.0 467 1.0 734- DAREA 11 468 1.0 469 1.0 735- DAREA 11 470 1.0 471 1.0 736- DAREA 11 472 1.0 473 1.0 737- DAREA 11 474 1.0 475 1.0 738- DAREA 11 476 1.0 477 1.0 739- DAREA 11 478 1.0 479 1.0 740- DAREA 11 480 1.0 481 1.0 741- DAREA 11 482 1.0 483 1.0 742- DAREA 11 484 1.0 485 1.0 743- DAREA 11 486 1.0 487 1.0 744- DAREA 11 488 1.0 489 1.0 745- DAREA 11 490 1.0 491 1.0 746- DAREA 11 492 1.0 493 1.0 747- DAREA 11 494 1.0 495 1.0 748- DAREA 11 496 1.0 497 1.0 749- DAREA 11 498 1.0 499 1.0 750- DAREA 11 500 1.0 751- EIGR 10 FEER 10.5 20 +FEER 752- +FEER MAX 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 753- EIGR 11 INV .0 21.0 20 20 +EIGR 754- +EIGR MAX 755- FREQ2 11 .1 10.0 15 756- PARAM LMODES 20 757- PARAM MODACC 1 758- PELAS 101 1.0+7 759- PMASS 301 10.000 760- RLOAD1 11 11 1 761- TABLED1 1 *T1 762- *T1 -10.0 310.022767 100.0 310.022767 *T2 763- *T2 ENDT ENDDATA 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS3 ELEMENTS (ELEMENT TYPE 13) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION MASS3 ELEMENTS (ELEMENT TYPE 27) STARTING WITH ID 40002 10 ROOTS BELOW 4.352496E+03 0*** USER WARNING MESSAGE 2399 ONLY THE FIRST 28 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS. 0*** USER INFORMATION MESSAGE 2392 30 MORE ACCURATE EIGENSOLUTIONS THAN THE 20 REQUESTED HAVE BEEN FOUND. USE DIAG 16 TO DETERMINE ERROR BOUNDS 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (FEER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 50 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 1 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 49 0 REASON FOR TERMINATION . . . . . . . . . . . 0* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* NORMAL TERMINATION SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 10 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 14 3.947829E+01 6.283175E+00 9.999983E-01 2.500000E+03 9.869572E+04 2 13 1.579116E+02 1.256629E+01 1.999987E+00 2.500000E+03 3.947790E+05 3 12 3.552952E+02 1.884928E+01 2.999956E+00 2.500000E+03 8.882381E+05 4 11 6.316215E+02 2.513208E+01 3.999895E+00 2.500395E+03 1.579303E+06 5 9 9.868793E+02 3.141463E+01 4.999794E+00 2.500000E+03 2.467198E+06 6 8 1.421055E+03 3.769688E+01 5.999645E+00 2.500000E+03 3.552637E+06 7 7 1.934131E+03 4.397875E+01 6.999435E+00 2.500000E+03 4.835326E+06 8 5 2.526087E+03 5.026019E+01 7.999157E+00 2.500395E+03 6.316214E+06 9 3 3.196900E+03 5.654113E+01 8.998800E+00 2.500000E+03 7.992250E+06 10 1 3.946543E+03 6.282152E+01 9.998355E+00 2.500000E+03 9.866358E+06 11 2 4.774987E+03 6.910128E+01 1.099781E+01 2.500000E+03 1.193747E+07 12 4 5.682200E+03 7.538036E+01 1.199716E+01 2.500395E+03 1.420774E+07 13 6 6.668144E+03 8.165871E+01 1.299639E+01 2.500000E+03 1.667036E+07 14 10 7.732782E+03 8.793623E+01 1.399549E+01 2.500000E+03 1.933195E+07 15 15 8.876070E+03 9.421290E+01 1.499445E+01 2.500000E+03 2.219018E+07 16 16 1.009797E+04 1.004886E+02 1.599326E+01 2.500395E+03 2.524890E+07 17 17 1.139842E+04 1.067634E+02 1.699192E+01 2.500000E+03 2.849605E+07 18 18 1.277738E+04 1.130371E+02 1.799041E+01 2.500000E+03 3.194345E+07 19 19 1.423479E+04 1.193096E+02 1.898872E+01 2.500000E+03 3.558698E+07 20 20 1.577060E+04 1.255810E+02 1.998684E+01 2.509896E+03 3.958256E+07 21 21 1.738474E+04 1.318512E+02 2.098477E+01 2.500000E+03 4.346184E+07 22 22 1.907715E+04 1.381201E+02 2.198249E+01 2.500000E+03 4.769287E+07 23 23 2.084776E+04 1.443875E+02 2.297999E+01 2.500000E+03 5.211941E+07 24 24 2.269651E+04 1.506536E+02 2.397727E+01 2.500395E+03 5.675024E+07 25 25 2.462332E+04 1.569182E+02 2.497431E+01 2.500000E+03 6.155830E+07 26 26 2.662811E+04 1.631812E+02 2.597110E+01 2.500000E+03 6.657028E+07 27 27 2.871081E+04 1.694426E+02 2.696763E+01 2.500007E+03 7.177723E+07 28 28 3.087133E+04 1.757024E+02 2.796390E+01 2.500088E+03 7.718103E+07 29 29 3.310961E+04 1.819605E+02 2.895991E+01 2.495139E+03 8.261308E+07 30 30 3.542555E+04 1.882168E+02 2.995563E+01 2.491476E+03 8.826191E+07 31 31 3.782025E+04 1.944743E+02 3.095154E+01 2.444926E+03 9.246770E+07 32 32 4.030271E+04 2.007554E+02 3.195121E+01 2.361995E+03 9.519482E+07 33 33 4.297868E+04 2.073130E+02 3.299488E+01 1.948319E+03 8.373618E+07 34 34 4.591303E+04 2.142733E+02 3.410265E+01 1.528425E+03 7.017460E+07 35 35 4.960907E+04 2.227309E+02 3.544873E+01 1.184151E+03 5.874463E+07 36 36 5.361830E+04 2.315563E+02 3.685332E+01 1.133319E+03 6.076662E+07 37 37 5.719057E+04 2.391455E+02 3.806119E+01 1.309213E+03 7.487463E+07 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 38 38 6.403630E+04 2.530540E+02 4.027479E+01 7.650125E+02 4.898857E+07 39 39 7.181550E+04 2.679841E+02 4.265100E+01 5.460549E+02 3.921521E+07 40 40 8.142555E+04 2.853516E+02 4.541512E+01 5.035842E+02 4.100462E+07 41 41 9.763046E+04 3.124587E+02 4.972935E+01 3.665581E+02 3.578723E+07 42 42 1.198863E+05 3.462460E+02 5.510677E+01 3.108511E+02 3.726679E+07 43 43 1.497063E+05 3.869189E+02 6.158006E+01 4.401808E+02 6.589783E+07 44 44 1.725240E+05 4.153600E+02 6.610661E+01 3.963076E+02 6.837255E+07 45 45 3.055958E+05 5.528071E+02 8.798199E+01 5.203714E+02 1.590233E+08 46 46 3.964821E+05 6.296683E+02 1.002148E+02 2.336386E+02 9.263354E+07 47 47 5.166735E+05 7.188000E+02 1.144006E+02 3.767520E+02 1.946578E+08 48 48 1.025290E+06 1.012566E+03 1.611549E+02 3.210023E+02 3.291204E+08 49 49 1.905251E+06 1.380308E+03 2.196829E+02 2.568323E+02 4.893301E+08 50 50 3.806958E+06 1.951143E+03 3.105340E+02 3.094826E+02 1.178187E+09 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 M 1.009971E+00 0.0 0 1.359356E-01 M 1.018695E+00 0.0 0 1.847850E-01 M 1.035219E+00 0.0 0 2.511887E-01 M 1.067207E+00 0.0 0 3.414549E-01 M 1.131834E+00 0.0 0 4.641589E-01 M 1.274442E+00 0.0 0 6.309574E-01 M 1.661215E+00 0.0 0 8.576961E-01 M 3.782303E+00 0.0 0 1.165915E+00 M 2.782357E+00 180.0000 0 1.584893E+00 M 6.613363E-01 180.0000 0 2.154435E+00 M 2.745687E-01 180.0000 0 2.928645E+00 M 1.319615E-01 180.0000 0 3.981073E+00 M 6.733594E-02 180.0000 0 5.411697E+00 M 3.534792E-02 180.0000 0 7.356425E+00 M 1.882388E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 M 1.009967E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 2 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 M 1.014772E-16 0.0 0 1.359356E-01 M 1.016933E-16 0.0 0 1.847850E-01 M 1.020951E-16 0.0 0 2.511887E-01 M 1.028458E-16 0.0 0 3.414549E-01 M 1.042626E-16 0.0 0 4.641589E-01 M 1.069860E-16 0.0 0 6.309574E-01 M 1.124116E-16 0.0 0 8.576961E-01 M 1.240352E-16 0.0 0 1.165915E+00 M 1.533327E-16 0.0 0 1.584893E+00 M 2.720916E-16 0.0 0 2.154435E+00 M 6.310188E-16 180.0000 0 2.928645E+00 M 8.846136E-17 180.0000 0 3.981073E+00 M 3.417073E-17 180.0000 0 5.411697E+00 M 1.601204E-17 180.0000 0 7.356425E+00 M 8.078865E-18 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 2 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 M 4.217589E-18 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 3 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 M 3.707345E-02 180.0000 0 1.359356E-01 M 3.710845E-02 180.0000 0 1.847850E-01 M 3.717329E-02 180.0000 0 2.511887E-01 M 3.729372E-02 180.0000 0 3.414549E-01 M 3.751831E-02 180.0000 0 4.641589E-01 M 3.794051E-02 180.0000 0 6.309574E-01 M 3.874622E-02 180.0000 0 8.576961E-01 M 4.032875E-02 180.0000 0 1.165915E+00 M 4.362094E-02 180.0000 0 1.584893E+00 M 5.136996E-02 180.0000 0 2.154435E+00 M 7.647303E-02 180.0000 0 2.928645E+00 M 7.883182E-01 180.0000 0 3.981073E+00 M 4.865970E-02 0.0 0 5.411697E+00 M 1.642850E-02 0.0 0 7.356425E+00 M 7.386984E-03 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 3 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 M 3.662412E-03 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 4 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 M 4.249798E-18 180.0000 0 1.359356E-01 M 4.252052E-18 180.0000 0 1.847850E-01 M 4.256225E-18 180.0000 0 2.511887E-01 M 4.263957E-18 180.0000 0 3.414549E-01 M 4.278319E-18 180.0000 0 4.641589E-01 M 4.305114E-18 180.0000 0 6.309574E-01 M 4.355520E-18 180.0000 0 8.576961E-01 M 4.451837E-18 180.0000 0 1.165915E+00 M 4.641504E-18 180.0000 0 1.584893E+00 M 5.038135E-18 180.0000 0 2.154435E+00 M 5.982856E-18 180.0000 0 2.928645E+00 M 9.155063E-18 180.0000 0 3.981073E+00 M 4.523591E-16 180.0000 0 5.411697E+00 M 5.113954E-18 0.0 0 7.356425E+00 M 1.782648E-18 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 4 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 M 8.089285E-19 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 5 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 M 8.002168E-03 0.0 0 1.359356E-01 M 8.004884E-03 0.0 0 1.847850E-01 M 8.009908E-03 0.0 0 2.511887E-01 M 8.019208E-03 0.0 0 3.414549E-01 M 8.036449E-03 0.0 0 4.641589E-01 M 8.068505E-03 0.0 0 6.309574E-01 M 8.128416E-03 0.0 0 8.576961E-01 M 8.241499E-03 0.0 0 1.165915E+00 M 8.458954E-03 0.0 0 1.584893E+00 M 8.892520E-03 0.0 0 2.154435E+00 M 9.822865E-03 0.0 0 2.928645E+00 M 1.217696E-02 0.0 0 3.981073E+00 M 2.185569E-02 0.0 0 5.411697E+00 M 4.662631E-02 180.0000 0 7.356425E+00 M 6.866906E-03 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 5 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 M 2.666030E-03 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 51 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 3.519336E-01 0.0 0 1.359356E-01 S 3.546610E-01 0.0 0 1.847850E-01 S 3.598255E-01 0.0 0 2.511887E-01 S 3.698185E-01 0.0 0 3.414549E-01 S 3.899905E-01 0.0 0 4.641589E-01 S 4.344373E-01 0.0 0 6.309574E-01 S 5.546772E-01 0.0 0 8.576961E-01 S 1.211539E+00 0.0 0 1.165915E+00 S 8.141406E-01 180.0000 0 1.584893E+00 S 1.519473E-01 180.0000 0 2.154435E+00 S 1.107240E-02 180.0000 0 2.928645E+00 S 6.114967E-01 0.0 0 3.981073E+00 S 3.535540E-02 180.0000 0 5.411697E+00 S 6.547387E-02 180.0000 0 7.356425E+00 S 4.137104E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 51 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 1.574604E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 101 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 6.260206E-01 0.0 0 1.359356E-01 S 6.311814E-01 0.0 0 1.847850E-01 S 6.409547E-01 0.0 0 2.511887E-01 S 6.598697E-01 0.0 0 3.414549E-01 S 6.980663E-01 0.0 0 4.641589E-01 S 7.822850E-01 0.0 0 6.309574E-01 S 1.010379E+00 0.0 0 8.576961E-01 S 2.258607E+00 0.0 0 1.165915E+00 S 1.596912E+00 180.0000 0 1.584893E+00 S 3.429138E-01 180.0000 0 2.154435E+00 S 9.185459E-02 180.0000 0 2.928645E+00 S 6.686515E-01 0.0 0 3.981073E+00 S 9.016667E-02 180.0000 0 5.411697E+00 S 4.365984E-02 180.0000 0 7.356425E+00 S 7.179653E-03 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 101 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 2.964182E-05 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 151 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 8.219904E-01 0.0 0 1.359356E-01 S 8.290569E-01 0.0 0 1.847850E-01 S 8.424406E-01 0.0 0 2.511887E-01 S 8.683484E-01 0.0 0 3.414549E-01 S 9.206856E-01 0.0 0 4.641589E-01 S 1.036160E+00 0.0 0 6.309574E-01 S 1.349259E+00 0.0 0 8.576961E-01 S 3.065641E+00 0.0 0 1.165915E+00 S 2.244463E+00 180.0000 0 1.584893E+00 S 5.265272E-01 180.0000 0 2.154435E+00 S 2.067326E-01 180.0000 0 2.928645E+00 S 1.263957E-01 0.0 0 3.981073E+00 S 8.930793E-02 180.0000 0 5.411697E+00 S 1.617553E-02 0.0 0 7.356425E+00 S 1.696870E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 151 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 1.572965E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 201 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 9.396498E-01 0.0 0 1.359356E-01 S 9.479266E-01 0.0 0 1.847850E-01 S 9.636043E-01 0.0 0 2.511887E-01 S 9.939569E-01 0.0 0 3.414549E-01 S 1.055289E+00 0.0 0 4.641589E-01 S 1.190672E+00 0.0 0 6.309574E-01 S 1.558046E+00 0.0 0 8.576961E-01 S 3.574398E+00 0.0 0 1.165915E+00 S 2.670884E+00 180.0000 0 1.584893E+00 S 6.581994E-01 180.0000 0 2.154435E+00 S 3.050576E-01 180.0000 0 2.928645E+00 S 5.877138E-01 180.0000 0 3.981073E+00 S 3.395493E-02 180.0000 0 5.411697E+00 S 2.107926E-02 180.0000 0 7.356425E+00 S 3.292501E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 201 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 2.083981E-05 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 251 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 9.788824E-01 0.0 0 1.359356E-01 S 9.875740E-01 0.0 0 1.847850E-01 S 1.004038E+00 0.0 0 2.511887E-01 S 1.035913E+00 0.0 0 3.414549E-01 S 1.100330E+00 0.0 0 4.641589E-01 S 1.242543E+00 0.0 0 6.309574E-01 S 1.628562E+00 0.0 0 8.576961E-01 S 3.748164E+00 0.0 0 1.165915E+00 S 2.819601E+00 180.0000 0 1.584893E+00 S 7.059558E-01 180.0000 0 2.154435E+00 S 3.434792E-01 180.0000 0 2.928645E+00 S 9.106178E-01 180.0000 0 3.981073E+00 S 1.904558E-05 0.0 0 5.411697E+00 S 7.129662E-02 180.0000 0 7.356425E+00 S 1.275858E-02 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 251 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 1.572599E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 301 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 9.396498E-01 0.0 0 1.359356E-01 S 9.479266E-01 0.0 0 1.847850E-01 S 9.636043E-01 0.0 0 2.511887E-01 S 9.939569E-01 0.0 0 3.414549E-01 S 1.055289E+00 0.0 0 4.641589E-01 S 1.190672E+00 0.0 0 6.309574E-01 S 1.558046E+00 0.0 0 8.576961E-01 S 3.574398E+00 0.0 0 1.165915E+00 S 2.670884E+00 180.0000 0 1.584893E+00 S 6.581994E-01 180.0000 0 2.154435E+00 S 3.050576E-01 180.0000 0 2.928645E+00 S 5.877138E-01 180.0000 0 3.981073E+00 S 3.395493E-02 180.0000 0 5.411697E+00 S 2.107926E-02 180.0000 0 7.356425E+00 S 3.292501E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 301 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 2.083981E-05 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 351 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 8.219904E-01 0.0 0 1.359356E-01 S 8.290569E-01 0.0 0 1.847850E-01 S 8.424406E-01 0.0 0 2.511887E-01 S 8.683484E-01 0.0 0 3.414549E-01 S 9.206856E-01 0.0 0 4.641589E-01 S 1.036160E+00 0.0 0 6.309574E-01 S 1.349259E+00 0.0 0 8.576961E-01 S 3.065641E+00 0.0 0 1.165915E+00 S 2.244463E+00 180.0000 0 1.584893E+00 S 5.265272E-01 180.0000 0 2.154435E+00 S 2.067326E-01 180.0000 0 2.928645E+00 S 1.263957E-01 0.0 0 3.981073E+00 S 8.930793E-02 180.0000 0 5.411697E+00 S 1.617553E-02 0.0 0 7.356425E+00 S 1.696870E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 351 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 1.572965E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 401 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 6.260206E-01 0.0 0 1.359356E-01 S 6.311814E-01 0.0 0 1.847850E-01 S 6.409547E-01 0.0 0 2.511887E-01 S 6.598697E-01 0.0 0 3.414549E-01 S 6.980663E-01 0.0 0 4.641589E-01 S 7.822850E-01 0.0 0 6.309574E-01 S 1.010379E+00 0.0 0 8.576961E-01 S 2.258607E+00 0.0 0 1.165915E+00 S 1.596912E+00 180.0000 0 1.584893E+00 S 3.429138E-01 180.0000 0 2.154435E+00 S 9.185459E-02 180.0000 0 2.928645E+00 S 6.686515E-01 0.0 0 3.981073E+00 S 9.016667E-02 180.0000 0 5.411697E+00 S 4.365984E-02 180.0000 0 7.356425E+00 S 7.179653E-03 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 401 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 2.964182E-05 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 451 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 3.519336E-01 0.0 0 1.359356E-01 S 3.546610E-01 0.0 0 1.847850E-01 S 3.598255E-01 0.0 0 2.511887E-01 S 3.698185E-01 0.0 0 3.414549E-01 S 3.899905E-01 0.0 0 4.641589E-01 S 4.344373E-01 0.0 0 6.309574E-01 S 5.546772E-01 0.0 0 8.576961E-01 S 1.211539E+00 0.0 0 1.165915E+00 S 8.141406E-01 180.0000 0 1.584893E+00 S 1.519473E-01 180.0000 0 2.154435E+00 S 1.107240E-02 180.0000 0 2.928645E+00 S 6.114967E-01 0.0 0 3.981073E+00 S 3.535540E-02 180.0000 0 5.411697E+00 S 6.547387E-02 180.0000 0 7.356425E+00 S 4.137104E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 POINT-ID = 451 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 1.574604E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 51( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 1 CURVE TITLE = * * * * * * SPOINT 5 1 * * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.107240E-02 AT X = 2.154435E+00 THE LARGEST Y-VALUE = 1.211539E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.107240E-02 AT X = 2.154435E+00 THE LARGEST Y-VALUE = 1.211539E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 51(--, 7) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 1 CURVE TITLE = * * * * * * SPOINT 5 1 * * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = PHASE *DEGREE* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 101( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 2 CURVE TITLE = * * * * * * SPOINT 1 0 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.964182E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 2.258607E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.964182E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 2.258607E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 101(--, 7) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 2 CURVE TITLE = * * * * * * SPOINT 1 0 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = PHASE *DEGREE* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 151( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 3 CURVE TITLE = * * * * * * SPOINT 1 5 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.572965E-02 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.065641E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.572965E-02 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.065641E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 151(--, 7) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 3 CURVE TITLE = * * * * * * SPOINT 1 5 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = PHASE *DEGREE* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 201( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 4 CURVE TITLE = * * * * * * SPOINT 2 0 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.083981E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.574398E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.083981E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.574398E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 201(--, 7) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 4 CURVE TITLE = * * * * * * SPOINT 2 0 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = PHASE *DEGREE* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 251( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 5 CURVE TITLE = * * * * * * SPOINT 2 5 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.904558E-05 AT X = 3.981073E+00 THE LARGEST Y-VALUE = 3.748164E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.904558E-05 AT X = 3.981073E+00 THE LARGEST Y-VALUE = 3.748164E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 251(--, 7) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 5 CURVE TITLE = * * * * * * SPOINT 2 5 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = PHASE *DEGREE* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 51( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 6 CURVE TITLE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.107240E-02 AT X = 2.154435E+00 THE LARGEST Y-VALUE = 1.211539E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.107240E-02 AT X = 2.154435E+00 THE LARGEST Y-VALUE = 1.211539E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 101( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 2 OF WHOLE FRAME 6 CURVE TITLE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.964182E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 2.258607E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.964182E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 2.258607E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 151( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 3 OF WHOLE FRAME 6 CURVE TITLE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.572965E-02 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.065641E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.572965E-02 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.065641E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 201( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 4 OF WHOLE FRAME 6 CURVE TITLE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.083981E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.574398E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.083981E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.574398E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 251( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 5 OF WHOLE FRAME 6 CURVE TITLE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.904558E-05 AT X = 3.981073E+00 THE LARGEST Y-VALUE = 3.748164E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.904558E-05 AT X = 3.981073E+00 THE LARGEST Y-VALUE = 3.748164E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE ELEMENT-FORCE CURVE 251( 2) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 7 CURVE TITLE = * * * * * * * FORCE IN STRING ELEMENT 251 * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = REAL PART *POUNDS* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = -1.387000E+03 AT X = 2.928645E+00 THE LARGEST Y-VALUE = 6.985664E+02 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = -1.387000E+03 AT X = 2.928645E+00 THE LARGEST Y-VALUE = 6.985664E+02 AT X = 8.576961E-01 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A 0 ELEMENT-FORCE CURVE ID = 251 COMPONENT = 2 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.000000E-01 1.567602E+02 2 1.359356E-01 1.585484E+02 3 1.847850E-01 1.621246E+02 4 2.511887E-01 1.680851E+02 5 3.414549E-01 1.800060E+02 6 4.641589E-01 2.074242E+02 7 6.309574E-01 2.825260E+02 8 8.576961E-01 6.985664E+02 9 1.165915E+00 -6.008148E+02 10 1.584893E+00 -1.949072E+02 11 2.154435E+00 -1.597404E+02 12 2.928645E+00 -1.387000E+03 13 3.981073E+00 1.548787E+02 14 5.411697E+00 -2.574921E+02 15 7.356425E+00 2.906472E+02 16 1.000000E+01 -1.566112E+02 * * * END OF JOB * * * 1 JOB TITLE = FREQUENCY RESPONSE OF A 500 CELL STRING DATE: 5/17/95 END TIME: 16:17:46 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d11022a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D11022A,NASTRAN APP DISPLACEMENT TIME 26 SOL 11,1 DIAG 14 ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/,G2,,,/C,N,5 $ EQUIV G2,GEOM2/TRUE $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FREQUENCY RESPONSE OF A 500 CELL STRING 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 3 METHOD = 10 4 FREQ = 11 5 DLOAD = 11 6 OUTPUT 7 SET 1 = 51, 101, 151, 201, 251, 301, 351, 401, 451 8 SET 2 = 1 THRU 5 9 DISPLACEMENT(PHASE,SORT2) = 1 10 SDISPLACEMENT(PHASE,SORT2) = 2 11 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 12 OUTPUT(XYOUT) 13 PLOTTER = NASTPLT 14 CAMERA = 3 15 SKIP BETWEEN FRAMES = 1 16 CURVE LINE AND SYMBOLS = 1 17 XLOG = YES 18 YTLOG = YES 19 XTGRID = YES 20 XBGRID = YES 21 YTGRID = YES 22 YBGRID = YES 23 XTITLE = FREQUENCY (HERTZ) 24 YTTITLE = MAGNITUDE *INCH* 25 YBTITLE = PHASE *DEGREE* 26 $ 27 $ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 28 $ 29 TCURVE = * * * * * * SPOINT 5 1 * * * * * * * * * * * * * * * * 30 XYPLOT DISP / 51(T1RM,T1IP) 31 TCURVE = * * * * * * SPOINT 1 0 1 * * * * * * * * * * * * * * * 32 XYPLOT DISP / 101(T1RM,T1IP) 33 TCURVE = * * * * * * SPOINT 1 5 1 * * * * * * * * * * * * * * * 34 XYPLOT DISP / 151(T1RM,T1IP) 35 TCURVE = * * * * * * SPOINT 2 0 1 * * * * * * * * * * * * * * * 36 XYPLOT DISP / 201(T1RM,T1IP) 37 TCURVE = * * * * * * SPOINT 2 5 1 * * * * * * * * * * * * * * * 38 XYPLOT DISP / 251(T1RM,T1IP) 39 $ 40 $ * * * * * * * * * * * * * * * * * * * * * * * * 41 $ 42 YLOG = YES 43 YTITLE = MAGNITUDE *INCH* 44 XGRID LINES = YES 45 YGRID LINES = YES 46 TCURVE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * 47 XYPLOT DISP / 51(3), 101(3), 151(3), 201(3), 251(3) 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 48 YLOG = NO 49 YTITLE = REAL PART *POUNDS* 50 TCURVE = * * * * * * * FORCE IN STRING ELEMENT 251 * * * * * * * * 51 XYPLOT, XYPRINT ELFORCE RESPONSE / 251(2) 52 $ 53 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 261, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- DAREA 11 2 1.0 3 1.0 2- DAREA 11 4 1.0 5 1.0 3- DAREA 11 6 1.0 7 1.0 4- DAREA 11 8 1.0 9 1.0 5- DAREA 11 10 1.0 11 1.0 6- DAREA 11 12 1.0 13 1.0 7- DAREA 11 14 1.0 15 1.0 8- DAREA 11 16 1.0 17 1.0 9- DAREA 11 18 1.0 19 1.0 10- DAREA 11 20 1.0 21 1.0 11- DAREA 11 22 1.0 23 1.0 12- DAREA 11 24 1.0 25 1.0 13- DAREA 11 26 1.0 27 1.0 14- DAREA 11 28 1.0 29 1.0 15- DAREA 11 30 1.0 31 1.0 16- DAREA 11 32 1.0 33 1.0 17- DAREA 11 34 1.0 35 1.0 18- DAREA 11 36 1.0 37 1.0 19- DAREA 11 38 1.0 39 1.0 20- DAREA 11 40 1.0 41 1.0 21- DAREA 11 42 1.0 43 1.0 22- DAREA 11 44 1.0 45 1.0 23- DAREA 11 46 1.0 47 1.0 24- DAREA 11 48 1.0 49 1.0 25- DAREA 11 50 1.0 51 1.0 26- DAREA 11 52 1.0 53 1.0 27- DAREA 11 54 1.0 55 1.0 28- DAREA 11 56 1.0 57 1.0 29- DAREA 11 58 1.0 59 1.0 30- DAREA 11 60 1.0 61 1.0 31- DAREA 11 62 1.0 63 1.0 32- DAREA 11 64 1.0 65 1.0 33- DAREA 11 66 1.0 67 1.0 34- DAREA 11 68 1.0 69 1.0 35- DAREA 11 70 1.0 71 1.0 36- DAREA 11 72 1.0 73 1.0 37- DAREA 11 74 1.0 75 1.0 38- DAREA 11 76 1.0 77 1.0 39- DAREA 11 78 1.0 79 1.0 40- DAREA 11 80 1.0 81 1.0 41- DAREA 11 82 1.0 83 1.0 42- DAREA 11 84 1.0 85 1.0 43- DAREA 11 86 1.0 87 1.0 44- DAREA 11 88 1.0 89 1.0 45- DAREA 11 90 1.0 91 1.0 46- DAREA 11 92 1.0 93 1.0 47- DAREA 11 94 1.0 95 1.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- DAREA 11 96 1.0 97 1.0 49- DAREA 11 98 1.0 99 1.0 50- DAREA 11 100 1.0 101 1.0 51- DAREA 11 102 1.0 103 1.0 52- DAREA 11 104 1.0 105 1.0 53- DAREA 11 106 1.0 107 1.0 54- DAREA 11 108 1.0 109 1.0 55- DAREA 11 110 1.0 111 1.0 56- DAREA 11 112 1.0 113 1.0 57- DAREA 11 114 1.0 115 1.0 58- DAREA 11 116 1.0 117 1.0 59- DAREA 11 118 1.0 119 1.0 60- DAREA 11 120 1.0 121 1.0 61- DAREA 11 122 1.0 123 1.0 62- DAREA 11 124 1.0 125 1.0 63- DAREA 11 126 1.0 127 1.0 64- DAREA 11 128 1.0 129 1.0 65- DAREA 11 130 1.0 131 1.0 66- DAREA 11 132 1.0 133 1.0 67- DAREA 11 134 1.0 135 1.0 68- DAREA 11 136 1.0 137 1.0 69- DAREA 11 138 1.0 139 1.0 70- DAREA 11 140 1.0 141 1.0 71- DAREA 11 142 1.0 143 1.0 72- DAREA 11 144 1.0 145 1.0 73- DAREA 11 146 1.0 147 1.0 74- DAREA 11 148 1.0 149 1.0 75- DAREA 11 150 1.0 151 1.0 76- DAREA 11 152 1.0 153 1.0 77- DAREA 11 154 1.0 155 1.0 78- DAREA 11 156 1.0 157 1.0 79- DAREA 11 158 1.0 159 1.0 80- DAREA 11 160 1.0 161 1.0 81- DAREA 11 162 1.0 163 1.0 82- DAREA 11 164 1.0 165 1.0 83- DAREA 11 166 1.0 167 1.0 84- DAREA 11 168 1.0 169 1.0 85- DAREA 11 170 1.0 171 1.0 86- DAREA 11 172 1.0 173 1.0 87- DAREA 11 174 1.0 175 1.0 88- DAREA 11 176 1.0 177 1.0 89- DAREA 11 178 1.0 179 1.0 90- DAREA 11 180 1.0 181 1.0 91- DAREA 11 182 1.0 183 1.0 92- DAREA 11 184 1.0 185 1.0 93- DAREA 11 186 1.0 187 1.0 94- DAREA 11 188 1.0 189 1.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- DAREA 11 190 1.0 191 1.0 96- DAREA 11 192 1.0 193 1.0 97- DAREA 11 194 1.0 195 1.0 98- DAREA 11 196 1.0 197 1.0 99- DAREA 11 198 1.0 199 1.0 100- DAREA 11 200 1.0 201 1.0 101- DAREA 11 202 1.0 203 1.0 102- DAREA 11 204 1.0 205 1.0 103- DAREA 11 206 1.0 207 1.0 104- DAREA 11 208 1.0 209 1.0 105- DAREA 11 210 1.0 211 1.0 106- DAREA 11 212 1.0 213 1.0 107- DAREA 11 214 1.0 215 1.0 108- DAREA 11 216 1.0 217 1.0 109- DAREA 11 218 1.0 219 1.0 110- DAREA 11 220 1.0 221 1.0 111- DAREA 11 222 1.0 223 1.0 112- DAREA 11 224 1.0 225 1.0 113- DAREA 11 226 1.0 227 1.0 114- DAREA 11 228 1.0 229 1.0 115- DAREA 11 230 1.0 231 1.0 116- DAREA 11 232 1.0 233 1.0 117- DAREA 11 234 1.0 235 1.0 118- DAREA 11 236 1.0 237 1.0 119- DAREA 11 238 1.0 239 1.0 120- DAREA 11 240 1.0 241 1.0 121- DAREA 11 242 1.0 243 1.0 122- DAREA 11 244 1.0 245 1.0 123- DAREA 11 246 1.0 247 1.0 124- DAREA 11 248 1.0 249 1.0 125- DAREA 11 250 1.0 251 1.0 126- DAREA 11 252 1.0 253 1.0 127- DAREA 11 254 1.0 255 1.0 128- DAREA 11 256 1.0 257 1.0 129- DAREA 11 258 1.0 259 1.0 130- DAREA 11 260 1.0 261 1.0 131- DAREA 11 262 1.0 263 1.0 132- DAREA 11 264 1.0 265 1.0 133- DAREA 11 266 1.0 267 1.0 134- DAREA 11 268 1.0 269 1.0 135- DAREA 11 270 1.0 271 1.0 136- DAREA 11 272 1.0 273 1.0 137- DAREA 11 274 1.0 275 1.0 138- DAREA 11 276 1.0 277 1.0 139- DAREA 11 278 1.0 279 1.0 140- DAREA 11 280 1.0 281 1.0 141- DAREA 11 282 1.0 283 1.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- DAREA 11 284 1.0 285 1.0 143- DAREA 11 286 1.0 287 1.0 144- DAREA 11 288 1.0 289 1.0 145- DAREA 11 290 1.0 291 1.0 146- DAREA 11 292 1.0 293 1.0 147- DAREA 11 294 1.0 295 1.0 148- DAREA 11 296 1.0 297 1.0 149- DAREA 11 298 1.0 299 1.0 150- DAREA 11 300 1.0 301 1.0 151- DAREA 11 302 1.0 303 1.0 152- DAREA 11 304 1.0 305 1.0 153- DAREA 11 306 1.0 307 1.0 154- DAREA 11 308 1.0 309 1.0 155- DAREA 11 310 1.0 311 1.0 156- DAREA 11 312 1.0 313 1.0 157- DAREA 11 314 1.0 315 1.0 158- DAREA 11 316 1.0 317 1.0 159- DAREA 11 318 1.0 319 1.0 160- DAREA 11 320 1.0 321 1.0 161- DAREA 11 322 1.0 323 1.0 162- DAREA 11 324 1.0 325 1.0 163- DAREA 11 326 1.0 327 1.0 164- DAREA 11 328 1.0 329 1.0 165- DAREA 11 330 1.0 331 1.0 166- DAREA 11 332 1.0 333 1.0 167- DAREA 11 334 1.0 335 1.0 168- DAREA 11 336 1.0 337 1.0 169- DAREA 11 338 1.0 339 1.0 170- DAREA 11 340 1.0 341 1.0 171- DAREA 11 342 1.0 343 1.0 172- DAREA 11 344 1.0 345 1.0 173- DAREA 11 346 1.0 347 1.0 174- DAREA 11 348 1.0 349 1.0 175- DAREA 11 350 1.0 351 1.0 176- DAREA 11 352 1.0 353 1.0 177- DAREA 11 354 1.0 355 1.0 178- DAREA 11 356 1.0 357 1.0 179- DAREA 11 358 1.0 359 1.0 180- DAREA 11 360 1.0 361 1.0 181- DAREA 11 362 1.0 363 1.0 182- DAREA 11 364 1.0 365 1.0 183- DAREA 11 366 1.0 367 1.0 184- DAREA 11 368 1.0 369 1.0 185- DAREA 11 370 1.0 371 1.0 186- DAREA 11 372 1.0 373 1.0 187- DAREA 11 374 1.0 375 1.0 188- DAREA 11 376 1.0 377 1.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- DAREA 11 378 1.0 379 1.0 190- DAREA 11 380 1.0 381 1.0 191- DAREA 11 382 1.0 383 1.0 192- DAREA 11 384 1.0 385 1.0 193- DAREA 11 386 1.0 387 1.0 194- DAREA 11 388 1.0 389 1.0 195- DAREA 11 390 1.0 391 1.0 196- DAREA 11 392 1.0 393 1.0 197- DAREA 11 394 1.0 395 1.0 198- DAREA 11 396 1.0 397 1.0 199- DAREA 11 398 1.0 399 1.0 200- DAREA 11 400 1.0 401 1.0 201- DAREA 11 402 1.0 403 1.0 202- DAREA 11 404 1.0 405 1.0 203- DAREA 11 406 1.0 407 1.0 204- DAREA 11 408 1.0 409 1.0 205- DAREA 11 410 1.0 411 1.0 206- DAREA 11 412 1.0 413 1.0 207- DAREA 11 414 1.0 415 1.0 208- DAREA 11 416 1.0 417 1.0 209- DAREA 11 418 1.0 419 1.0 210- DAREA 11 420 1.0 421 1.0 211- DAREA 11 422 1.0 423 1.0 212- DAREA 11 424 1.0 425 1.0 213- DAREA 11 426 1.0 427 1.0 214- DAREA 11 428 1.0 429 1.0 215- DAREA 11 430 1.0 431 1.0 216- DAREA 11 432 1.0 433 1.0 217- DAREA 11 434 1.0 435 1.0 218- DAREA 11 436 1.0 437 1.0 219- DAREA 11 438 1.0 439 1.0 220- DAREA 11 440 1.0 441 1.0 221- DAREA 11 442 1.0 443 1.0 222- DAREA 11 444 1.0 445 1.0 223- DAREA 11 446 1.0 447 1.0 224- DAREA 11 448 1.0 449 1.0 225- DAREA 11 450 1.0 451 1.0 226- DAREA 11 452 1.0 453 1.0 227- DAREA 11 454 1.0 455 1.0 228- DAREA 11 456 1.0 457 1.0 229- DAREA 11 458 1.0 459 1.0 230- DAREA 11 460 1.0 461 1.0 231- DAREA 11 462 1.0 463 1.0 232- DAREA 11 464 1.0 465 1.0 233- DAREA 11 466 1.0 467 1.0 234- DAREA 11 468 1.0 469 1.0 235- DAREA 11 470 1.0 471 1.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- DAREA 11 472 1.0 473 1.0 237- DAREA 11 474 1.0 475 1.0 238- DAREA 11 476 1.0 477 1.0 239- DAREA 11 478 1.0 479 1.0 240- DAREA 11 480 1.0 481 1.0 241- DAREA 11 482 1.0 483 1.0 242- DAREA 11 484 1.0 485 1.0 243- DAREA 11 486 1.0 487 1.0 244- DAREA 11 488 1.0 489 1.0 245- DAREA 11 490 1.0 491 1.0 246- DAREA 11 492 1.0 493 1.0 247- DAREA 11 494 1.0 495 1.0 248- DAREA 11 496 1.0 497 1.0 249- DAREA 11 498 1.0 499 1.0 250- DAREA 11 500 1.0 251- EIGR 10 FEER 10.5 20 +FEER 252- +FEER MAX 253- EIGR 11 INV .0 21.0 20 20 +EIGR 254- +EIGR MAX 255- FREQ2 11 .1 10.0 15 256- PARAM LMODES 20 257- PARAM MODACC 1 258- RLOAD1 11 11 1 259- TABLED1 1 *T1 260- *T1 -10.0 310.022767 100.0 310.022767 *T2 261- *T2 ENDT ENDDATA 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 11 - MODAL FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $ 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ 1 INPUT, ,,,,/,G2,,,/C,N,5 $ 1 EQUIV G2,GEOM2/TRUE $ 2 PRECHK ALL $ 3 FILE GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL P1 $ 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR7,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGGX,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 PURGE KDICT,KELM/MINUS1 $ 32 LABEL JMPKGGX $ 33 COND ERROR1,NOMGG $ 34 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 35 PURGE MDICT,MELM/MINUS1 $ 36 COND LGPWG,GRDPNT $ 37 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 38 OFP OGPWG,,,,,//S,N,CARDNO $ 39 LABEL LGPWG $ 40 EQUIV KGGX,KGG/NOGENL $ 41 COND LBL11,NOGENL $ 42 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 43 LABEL LBL11 $ 44 GPSTGEN KGG,SIL/GPST $ 45 PARAM //*MPY*/NSKIP/0/0 $ 46 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 47 OFP OGPST,,,,,//S,N,CARDNO $ 48 PARAM //*AND*/NOSR/REACT/SINGLE $ 49 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF/SINGLE/QPC/NOSR/KLR,KRR,MLR, MRR,DM,MR/REACT/MDD/MODACC $ 50 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 51 COND LBL2,MPCF1 $ 52 MCE1 USET,RG/GM $ 53 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 54 LABEL LBL2 $ 55 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 56 COND LBL3,SINGLE $ 57 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 58 LABEL LBL3 $ 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 59 EQUIV KFF,KAA/OMIT $ 60 EQUIV MFF,MAA/OMIT $ 61 COND LBL5,OMIT $ 62 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 63 SMP2 USET,GO,MFF/MAA $ 64 LABEL LBL5 $ 65 EQUIV KAA,KLL/REACT $ 66 COND LBL6,REACT $ 67 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 68 JUMP LBL8 $ 69 LABEL LBL6 $ 70 COND LBL7,MODACC $ 71 LABEL LBL8 $ 72 RBMG2 KLL/LLL $ 73 COND LBL7,REACT $ 74 RBMG3 LLL,KLR,KRR/DM $ 75 RBMG4 DM,MLL,MLR,MRR/MR $ 76 LABEL LBL7 $ 77 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,, EED,EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ S,N,NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $ 78 COND ERROR2,NOEED $ 79 PURGE UEVF/NOUE $ 80 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 81 PARAM //*MPY*/NEIGV/1/-1 $ 82 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ 83 OFP OEIGS,,,,,//S,N,CARDNO $ 84 COND ERROR4,NEIGV $ 85 OFP LAMA,,,,,//S,N,CARDNO $ 86 PARAM //*ADD*/NEVER/1/0 $ 87 PARAM //*MPY*/REPEATF/1/-1 $ 89 PURGE OUHVC1,OUHVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,K2PP,M2PP, B2PP,K2DD,M2DD,B2DD,OPPCA,IQP1,IPHIP1,IES1,IEF1,OPPCB,IQP2, IPHIP2,IES2,IEF2,ZQPC2,ZUPVC2,ZESC2,ZEFC2,ZQPC1,ZUPVC1,ZESC1, ZEFC1/NEVER $ 90 CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ 91 MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ 92 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 93 PARAM //*AND*/MDEMA/NOUE/NOM2PP $ 94 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA $ 95 GKAD USETD,GM,GO,,,MAA,,K2PP,M2PP,B2PP/,,MDD,GMD, GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*MODAL*/0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/-1/-1/ 1/V,Y,MODACC = -1 $ 96 GKAM USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/ NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $ 97 COND ERROR5,NOFRL $ 98 COND ERROR6,NODLT $ 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 99 FRRD CASEXX,USETD,DLT,FRL,GMD,GOD,KHH,BHH,MHH,PHIDH,DIT/UHVF,PSF, PDF,PPF/*DISP*/*MODAL*/LUSETD/MPCF1/SINGLE/ OMIT/NONCUP/S,N,FRQSET $ 100 EQUIV PPF,PDF/NOSET $ 101 VDR CASEXX,EQDYN,USETD,UHVF,PPF,XYCDB,/OUHVC1,/*FREQRESP*/ *MODAL*/S,N,NOSORT2/S,N,NOH/S,N,NOP/FMODE $ 102 COND LBL16,NOH $ 103 COND LBL16A,NOSORT2 $ 104 SDR3 OUHVC1,,,,,/OUHVC2,,,,, $ 105 OFP OUHVC2,,,,,//S,N,CARDNO $ 106 XYTRAN XYCDB,OUHVC2,,,,/XYPLTFA/*FREQ*/*HSET*/S,N,PFILE/ S,N,CARDNO $ 107 XYPLOT XYPLTFA // $ 108 JUMP LBL16 $ 109 LABEL LBL16A $ 110 OFP OUHVC1,,,,,//S,N,CARDNO $ 111 LABEL LBL16 $ 112 COND LBL14,NOP $ 113 PARAM //*NOT*/NOMOD/V,Y,MODACC $ 114 COND LBDDRM,MODACC $ 115 DDR1 UHVF,PHIDH/UDV1F $ 116 DDR2 USETD,UDV1F,PDF,K2DD,B2DD,MDD,PPF,LLL,DM/UDV2F,UEVF,PAF/ *FREQRESP*/NOUE/REACT/FRQSET $ 117 EQUIV UDV2F,UDV1F/NOMOD $ 118 EQUIV UDV1F,UPVC/NOA $ 119 COND LBLNOA,NOA $ 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 120 SDR1 USETD,,UDV1F,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ 121 LABEL LBLNOA $ 122 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST, XYCDB,PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUGV,,/*FREQ*/ S,N,NOSORT2 $ 123 COND LBL18,NOSORT2 $ 124 SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2, OEFC2, $ 125 JUMP P2A $ 126 LABEL LBDDRM $ 127 SDR1 USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIPH,,QPH/1/*DYNAMICS* $ 128 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,LAMA,QPH,PHIPH,EST,XYCDB,,/ ,IQP1,IPHIP1,IES1,IEF1,,,/*MMREIG*/S,N,NOSORT2 $ 129 SDR2 CASEXX,CSTM,MPT,,EQDYN,SILD,,,,PPF,,,EST,XYCDB,PPF,/OPPCA, ,,,,,,/*FREQ* $ 130 EQUIV OPPCA,OPPC1/MODACC $ 131 COND LBLSORT,NOSORT2 $ 132 SDR3 IQP1,IPHIP1,IES1,IEF1,OPPCA,/IQP2,IPHIP2,IES2,IEF2,OPPCB, $ 133 EQUIV OPPCB,OPPC2/MODACC $ 134 DDRMM CASEXX,UHVF,PPF,IPHIP2,IQP2,IES2,IEF2,XYCDB,EST,MPT,DIT/ ZUPVC2,ZQPC2,ZESC2,ZEFC2, $ 135 EQUIV ZUPVC2,OUPVC2/MODACC/ZQPC2,OQPC2/MODACC/ZESC2,OESC2/MODACC/ ZEFC2,OEFC2/MODACC $ 136 JUMP P2A $ 137 LABEL LBLSORT $ 138 DDRMM CASEXX,UHVF,PPF,IPHIP1,IQP1,IES1,IEF1,,EST,MPT,DIT/ ZUPVC1,ZQPC1,ZESC1,ZEFC1, $ 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 139 EQUIV ZUPVC1,OUPVC1/MODACC/ZQPC1,OQPC1/MODACC/ZESC1,OESC1/MODACC/ ZEFC1,OEFC1/MODACC $ 140 JUMP LBL18 $ 141 LABEL P2A $ 142 OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $ 143 XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ 144 XYPLOT XYPLTF// $ 145 COND LBL21,JUMPPLOT $ 146 PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,,,,/ PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 147 PRTMSG PLOTX2// $ 148 LABEL LBL21 $ 149 COND LBL14,NOPSDL $ 150 RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ 151 COND LBL14,NORD $ 152 XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ 153 XYPLOT XYPLTR// $ 154 JUMP LBL14 $ 155 LABEL LBL18 $ 156 OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $ 157 LABEL LBL14 $ 161 JUMP FINIS $ 162 LABEL ERROR2 $ 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 163 PRTPARM //-2/*MDLFRRD* $ 164 LABEL ERROR1 $ 165 PRTPARM //-1/*MDLFRRD* $ 166 LABEL ERROR4 $ 167 PRTPARM //-4/*MDLFRRD* $ 168 LABEL ERROR5 $ 169 PRTPARM //-5/*MDLFRRD* $ 170 LABEL ERROR6 $ 171 PRTPARM //-6/*MDLFRRD* $ 172 LABEL ERROR7 $ 173 PRTPARM //-7/*MDLFRRD* $ 174 LABEL FINIS $ 175 PURGE DUMMY/MINUS1 $ 176 END $ 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 * U T I L I T Y M O D U L E I N P U T * INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST) * 1 ** 2 ** 3 ** 4 ** 5 ** 6 ** 7 ** 8 ** 9 ** 10 * 500 1.0E+07 0.0E+00 1.0E+01 0.0E+00 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS4 ELEMENTS (ELEMENT TYPE 14) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION MASS4 ELEMENTS (ELEMENT TYPE 28) STARTING WITH ID 1000002 10 ROOTS BELOW 4.352496E+03 0*** USER WARNING MESSAGE 2399 ONLY THE FIRST 28 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS. 0*** USER INFORMATION MESSAGE 2392 30 MORE ACCURATE EIGENSOLUTIONS THAN THE 20 REQUESTED HAVE BEEN FOUND. USE DIAG 16 TO DETERMINE ERROR BOUNDS 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (FEER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 50 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 1 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 49 0 REASON FOR TERMINATION . . . . . . . . . . . 0* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* NORMAL TERMINATION SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 10 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 14 3.947829E+01 6.283175E+00 9.999983E-01 2.500000E+03 9.869572E+04 2 13 1.579116E+02 1.256629E+01 1.999987E+00 2.500000E+03 3.947790E+05 3 12 3.552952E+02 1.884928E+01 2.999956E+00 2.500000E+03 8.882381E+05 4 11 6.316215E+02 2.513208E+01 3.999895E+00 2.500395E+03 1.579303E+06 5 9 9.868793E+02 3.141463E+01 4.999794E+00 2.500000E+03 2.467198E+06 6 8 1.421055E+03 3.769688E+01 5.999645E+00 2.500000E+03 3.552637E+06 7 7 1.934131E+03 4.397875E+01 6.999435E+00 2.500000E+03 4.835326E+06 8 5 2.526087E+03 5.026019E+01 7.999157E+00 2.500395E+03 6.316214E+06 9 3 3.196900E+03 5.654113E+01 8.998800E+00 2.500000E+03 7.992250E+06 10 1 3.946543E+03 6.282152E+01 9.998355E+00 2.500000E+03 9.866358E+06 11 2 4.774987E+03 6.910128E+01 1.099781E+01 2.500000E+03 1.193747E+07 12 4 5.682200E+03 7.538036E+01 1.199716E+01 2.500395E+03 1.420774E+07 13 6 6.668144E+03 8.165871E+01 1.299639E+01 2.500000E+03 1.667036E+07 14 10 7.732782E+03 8.793623E+01 1.399549E+01 2.500000E+03 1.933195E+07 15 15 8.876070E+03 9.421290E+01 1.499445E+01 2.500000E+03 2.219018E+07 16 16 1.009797E+04 1.004886E+02 1.599326E+01 2.500395E+03 2.524890E+07 17 17 1.139842E+04 1.067634E+02 1.699192E+01 2.500000E+03 2.849605E+07 18 18 1.277738E+04 1.130371E+02 1.799041E+01 2.500000E+03 3.194345E+07 19 19 1.423479E+04 1.193096E+02 1.898872E+01 2.500000E+03 3.558698E+07 20 20 1.577060E+04 1.255810E+02 1.998684E+01 2.509896E+03 3.958256E+07 21 21 1.738474E+04 1.318512E+02 2.098477E+01 2.500000E+03 4.346184E+07 22 22 1.907715E+04 1.381201E+02 2.198249E+01 2.500000E+03 4.769287E+07 23 23 2.084776E+04 1.443875E+02 2.297999E+01 2.500000E+03 5.211941E+07 24 24 2.269651E+04 1.506536E+02 2.397727E+01 2.500395E+03 5.675024E+07 25 25 2.462332E+04 1.569182E+02 2.497431E+01 2.500000E+03 6.155830E+07 26 26 2.662811E+04 1.631812E+02 2.597110E+01 2.500000E+03 6.657028E+07 27 27 2.871081E+04 1.694426E+02 2.696763E+01 2.500007E+03 7.177723E+07 28 28 3.087133E+04 1.757024E+02 2.796390E+01 2.500088E+03 7.718103E+07 29 29 3.310961E+04 1.819605E+02 2.895991E+01 2.495139E+03 8.261308E+07 30 30 3.542555E+04 1.882168E+02 2.995563E+01 2.491476E+03 8.826191E+07 31 31 3.782025E+04 1.944743E+02 3.095154E+01 2.444926E+03 9.246770E+07 32 32 4.030271E+04 2.007554E+02 3.195121E+01 2.361995E+03 9.519482E+07 33 33 4.297868E+04 2.073130E+02 3.299488E+01 1.948319E+03 8.373618E+07 34 34 4.591303E+04 2.142733E+02 3.410265E+01 1.528425E+03 7.017460E+07 35 35 4.960907E+04 2.227309E+02 3.544873E+01 1.184151E+03 5.874463E+07 36 36 5.361830E+04 2.315563E+02 3.685332E+01 1.133319E+03 6.076662E+07 37 37 5.719057E+04 2.391455E+02 3.806119E+01 1.309213E+03 7.487463E+07 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 38 38 6.403630E+04 2.530540E+02 4.027479E+01 7.650125E+02 4.898857E+07 39 39 7.181550E+04 2.679841E+02 4.265100E+01 5.460549E+02 3.921521E+07 40 40 8.142555E+04 2.853516E+02 4.541512E+01 5.035842E+02 4.100462E+07 41 41 9.763046E+04 3.124587E+02 4.972935E+01 3.665581E+02 3.578723E+07 42 42 1.198863E+05 3.462460E+02 5.510677E+01 3.108511E+02 3.726679E+07 43 43 1.497063E+05 3.869189E+02 6.158006E+01 4.401808E+02 6.589783E+07 44 44 1.725240E+05 4.153600E+02 6.610661E+01 3.963076E+02 6.837255E+07 45 45 3.055958E+05 5.528071E+02 8.798199E+01 5.203714E+02 1.590233E+08 46 46 3.964821E+05 6.296683E+02 1.002148E+02 2.336386E+02 9.263354E+07 47 47 5.166735E+05 7.188000E+02 1.144006E+02 3.767520E+02 1.946578E+08 48 48 1.025290E+06 1.012566E+03 1.611549E+02 3.210023E+02 3.291204E+08 49 49 1.905251E+06 1.380308E+03 2.196829E+02 2.568323E+02 4.893301E+08 50 50 3.806958E+06 1.951143E+03 3.105340E+02 3.094826E+02 1.178187E+09 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 M 1.009971E+00 0.0 0 1.359356E-01 M 1.018695E+00 0.0 0 1.847850E-01 M 1.035219E+00 0.0 0 2.511887E-01 M 1.067207E+00 0.0 0 3.414549E-01 M 1.131834E+00 0.0 0 4.641589E-01 M 1.274442E+00 0.0 0 6.309574E-01 M 1.661215E+00 0.0 0 8.576961E-01 M 3.782303E+00 0.0 0 1.165915E+00 M 2.782357E+00 180.0000 0 1.584893E+00 M 6.613363E-01 180.0000 0 2.154435E+00 M 2.745687E-01 180.0000 0 2.928645E+00 M 1.319615E-01 180.0000 0 3.981073E+00 M 6.733594E-02 180.0000 0 5.411697E+00 M 3.534792E-02 180.0000 0 7.356425E+00 M 1.882388E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 M 1.009967E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 2 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 M 1.014772E-16 0.0 0 1.359356E-01 M 1.016933E-16 0.0 0 1.847850E-01 M 1.020951E-16 0.0 0 2.511887E-01 M 1.028458E-16 0.0 0 3.414549E-01 M 1.042626E-16 0.0 0 4.641589E-01 M 1.069860E-16 0.0 0 6.309574E-01 M 1.124116E-16 0.0 0 8.576961E-01 M 1.240352E-16 0.0 0 1.165915E+00 M 1.533327E-16 0.0 0 1.584893E+00 M 2.720916E-16 0.0 0 2.154435E+00 M 6.310188E-16 180.0000 0 2.928645E+00 M 8.846136E-17 180.0000 0 3.981073E+00 M 3.417073E-17 180.0000 0 5.411697E+00 M 1.601204E-17 180.0000 0 7.356425E+00 M 8.078865E-18 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 2 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 M 4.217589E-18 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 3 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 M 3.707345E-02 180.0000 0 1.359356E-01 M 3.710845E-02 180.0000 0 1.847850E-01 M 3.717329E-02 180.0000 0 2.511887E-01 M 3.729372E-02 180.0000 0 3.414549E-01 M 3.751831E-02 180.0000 0 4.641589E-01 M 3.794051E-02 180.0000 0 6.309574E-01 M 3.874622E-02 180.0000 0 8.576961E-01 M 4.032875E-02 180.0000 0 1.165915E+00 M 4.362094E-02 180.0000 0 1.584893E+00 M 5.136996E-02 180.0000 0 2.154435E+00 M 7.647303E-02 180.0000 0 2.928645E+00 M 7.883182E-01 180.0000 0 3.981073E+00 M 4.865970E-02 0.0 0 5.411697E+00 M 1.642850E-02 0.0 0 7.356425E+00 M 7.386984E-03 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 3 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 M 3.662412E-03 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 4 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 M 4.249798E-18 180.0000 0 1.359356E-01 M 4.252052E-18 180.0000 0 1.847850E-01 M 4.256225E-18 180.0000 0 2.511887E-01 M 4.263957E-18 180.0000 0 3.414549E-01 M 4.278319E-18 180.0000 0 4.641589E-01 M 4.305114E-18 180.0000 0 6.309574E-01 M 4.355520E-18 180.0000 0 8.576961E-01 M 4.451837E-18 180.0000 0 1.165915E+00 M 4.641504E-18 180.0000 0 1.584893E+00 M 5.038135E-18 180.0000 0 2.154435E+00 M 5.982856E-18 180.0000 0 2.928645E+00 M 9.155063E-18 180.0000 0 3.981073E+00 M 4.523591E-16 180.0000 0 5.411697E+00 M 5.113954E-18 0.0 0 7.356425E+00 M 1.782648E-18 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 4 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 M 8.089285E-19 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 5 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 M 8.002168E-03 0.0 0 1.359356E-01 M 8.004884E-03 0.0 0 1.847850E-01 M 8.009908E-03 0.0 0 2.511887E-01 M 8.019208E-03 0.0 0 3.414549E-01 M 8.036449E-03 0.0 0 4.641589E-01 M 8.068505E-03 0.0 0 6.309574E-01 M 8.128416E-03 0.0 0 8.576961E-01 M 8.241499E-03 0.0 0 1.165915E+00 M 8.458954E-03 0.0 0 1.584893E+00 M 8.892520E-03 0.0 0 2.154435E+00 M 9.822865E-03 0.0 0 2.928645E+00 M 1.217696E-02 0.0 0 3.981073E+00 M 2.185569E-02 0.0 0 5.411697E+00 M 4.662631E-02 180.0000 0 7.356425E+00 M 6.866906E-03 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 5 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 M 2.666030E-03 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 51 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 3.519336E-01 0.0 0 1.359356E-01 S 3.546610E-01 0.0 0 1.847850E-01 S 3.598255E-01 0.0 0 2.511887E-01 S 3.698185E-01 0.0 0 3.414549E-01 S 3.899905E-01 0.0 0 4.641589E-01 S 4.344373E-01 0.0 0 6.309574E-01 S 5.546772E-01 0.0 0 8.576961E-01 S 1.211539E+00 0.0 0 1.165915E+00 S 8.141406E-01 180.0000 0 1.584893E+00 S 1.519473E-01 180.0000 0 2.154435E+00 S 1.107240E-02 180.0000 0 2.928645E+00 S 6.114967E-01 0.0 0 3.981073E+00 S 3.535540E-02 180.0000 0 5.411697E+00 S 6.547387E-02 180.0000 0 7.356425E+00 S 4.137104E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 51 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 1.574604E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 101 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 6.260206E-01 0.0 0 1.359356E-01 S 6.311814E-01 0.0 0 1.847850E-01 S 6.409547E-01 0.0 0 2.511887E-01 S 6.598697E-01 0.0 0 3.414549E-01 S 6.980663E-01 0.0 0 4.641589E-01 S 7.822850E-01 0.0 0 6.309574E-01 S 1.010379E+00 0.0 0 8.576961E-01 S 2.258607E+00 0.0 0 1.165915E+00 S 1.596912E+00 180.0000 0 1.584893E+00 S 3.429138E-01 180.0000 0 2.154435E+00 S 9.185459E-02 180.0000 0 2.928645E+00 S 6.686515E-01 0.0 0 3.981073E+00 S 9.016667E-02 180.0000 0 5.411697E+00 S 4.365984E-02 180.0000 0 7.356425E+00 S 7.179653E-03 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 101 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 2.964182E-05 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 151 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 8.219904E-01 0.0 0 1.359356E-01 S 8.290569E-01 0.0 0 1.847850E-01 S 8.424406E-01 0.0 0 2.511887E-01 S 8.683484E-01 0.0 0 3.414549E-01 S 9.206856E-01 0.0 0 4.641589E-01 S 1.036160E+00 0.0 0 6.309574E-01 S 1.349259E+00 0.0 0 8.576961E-01 S 3.065641E+00 0.0 0 1.165915E+00 S 2.244463E+00 180.0000 0 1.584893E+00 S 5.265272E-01 180.0000 0 2.154435E+00 S 2.067326E-01 180.0000 0 2.928645E+00 S 1.263957E-01 0.0 0 3.981073E+00 S 8.930793E-02 180.0000 0 5.411697E+00 S 1.617553E-02 0.0 0 7.356425E+00 S 1.696870E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 151 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 1.572965E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 201 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 9.396498E-01 0.0 0 1.359356E-01 S 9.479266E-01 0.0 0 1.847850E-01 S 9.636043E-01 0.0 0 2.511887E-01 S 9.939569E-01 0.0 0 3.414549E-01 S 1.055289E+00 0.0 0 4.641589E-01 S 1.190672E+00 0.0 0 6.309574E-01 S 1.558046E+00 0.0 0 8.576961E-01 S 3.574398E+00 0.0 0 1.165915E+00 S 2.670884E+00 180.0000 0 1.584893E+00 S 6.581994E-01 180.0000 0 2.154435E+00 S 3.050576E-01 180.0000 0 2.928645E+00 S 5.877138E-01 180.0000 0 3.981073E+00 S 3.395493E-02 180.0000 0 5.411697E+00 S 2.107926E-02 180.0000 0 7.356425E+00 S 3.292501E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 201 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 2.083981E-05 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 251 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 9.788824E-01 0.0 0 1.359356E-01 S 9.875740E-01 0.0 0 1.847850E-01 S 1.004038E+00 0.0 0 2.511887E-01 S 1.035913E+00 0.0 0 3.414549E-01 S 1.100330E+00 0.0 0 4.641589E-01 S 1.242543E+00 0.0 0 6.309574E-01 S 1.628562E+00 0.0 0 8.576961E-01 S 3.748164E+00 0.0 0 1.165915E+00 S 2.819601E+00 180.0000 0 1.584893E+00 S 7.059558E-01 180.0000 0 2.154435E+00 S 3.434792E-01 180.0000 0 2.928645E+00 S 9.106178E-01 180.0000 0 3.981073E+00 S 1.904558E-05 0.0 0 5.411697E+00 S 7.129662E-02 180.0000 0 7.356425E+00 S 1.275858E-02 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 251 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 1.572599E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 301 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 9.396498E-01 0.0 0 1.359356E-01 S 9.479266E-01 0.0 0 1.847850E-01 S 9.636043E-01 0.0 0 2.511887E-01 S 9.939569E-01 0.0 0 3.414549E-01 S 1.055289E+00 0.0 0 4.641589E-01 S 1.190672E+00 0.0 0 6.309574E-01 S 1.558046E+00 0.0 0 8.576961E-01 S 3.574398E+00 0.0 0 1.165915E+00 S 2.670884E+00 180.0000 0 1.584893E+00 S 6.581994E-01 180.0000 0 2.154435E+00 S 3.050576E-01 180.0000 0 2.928645E+00 S 5.877138E-01 180.0000 0 3.981073E+00 S 3.395493E-02 180.0000 0 5.411697E+00 S 2.107926E-02 180.0000 0 7.356425E+00 S 3.292501E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 301 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 2.083981E-05 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 351 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 8.219904E-01 0.0 0 1.359356E-01 S 8.290569E-01 0.0 0 1.847850E-01 S 8.424406E-01 0.0 0 2.511887E-01 S 8.683484E-01 0.0 0 3.414549E-01 S 9.206856E-01 0.0 0 4.641589E-01 S 1.036160E+00 0.0 0 6.309574E-01 S 1.349259E+00 0.0 0 8.576961E-01 S 3.065641E+00 0.0 0 1.165915E+00 S 2.244463E+00 180.0000 0 1.584893E+00 S 5.265272E-01 180.0000 0 2.154435E+00 S 2.067326E-01 180.0000 0 2.928645E+00 S 1.263957E-01 0.0 0 3.981073E+00 S 8.930793E-02 180.0000 0 5.411697E+00 S 1.617553E-02 0.0 0 7.356425E+00 S 1.696870E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 351 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 1.572965E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 401 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 6.260206E-01 0.0 0 1.359356E-01 S 6.311814E-01 0.0 0 1.847850E-01 S 6.409547E-01 0.0 0 2.511887E-01 S 6.598697E-01 0.0 0 3.414549E-01 S 6.980663E-01 0.0 0 4.641589E-01 S 7.822850E-01 0.0 0 6.309574E-01 S 1.010379E+00 0.0 0 8.576961E-01 S 2.258607E+00 0.0 0 1.165915E+00 S 1.596912E+00 180.0000 0 1.584893E+00 S 3.429138E-01 180.0000 0 2.154435E+00 S 9.185459E-02 180.0000 0 2.928645E+00 S 6.686515E-01 0.0 0 3.981073E+00 S 9.016667E-02 180.0000 0 5.411697E+00 S 4.365984E-02 180.0000 0 7.356425E+00 S 7.179653E-03 0.0 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 401 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 2.964182E-05 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 451 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E-01 S 3.519336E-01 0.0 0 1.359356E-01 S 3.546610E-01 0.0 0 1.847850E-01 S 3.598255E-01 0.0 0 2.511887E-01 S 3.698185E-01 0.0 0 3.414549E-01 S 3.899905E-01 0.0 0 4.641589E-01 S 4.344373E-01 0.0 0 6.309574E-01 S 5.546772E-01 0.0 0 8.576961E-01 S 1.211539E+00 0.0 0 1.165915E+00 S 8.141406E-01 180.0000 0 1.584893E+00 S 1.519473E-01 180.0000 0 2.154435E+00 S 1.107240E-02 180.0000 0 2.928645E+00 S 6.114967E-01 0.0 0 3.981073E+00 S 3.535540E-02 180.0000 0 5.411697E+00 S 6.547387E-02 180.0000 0 7.356425E+00 S 4.137104E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 POINT-ID = 451 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.000000E+01 S 1.574604E-02 180.0000 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 51( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 1 CURVE TITLE = * * * * * * SPOINT 5 1 * * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.107240E-02 AT X = 2.154435E+00 THE LARGEST Y-VALUE = 1.211539E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.107240E-02 AT X = 2.154435E+00 THE LARGEST Y-VALUE = 1.211539E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 51(--, 7) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 1 CURVE TITLE = * * * * * * SPOINT 5 1 * * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = PHASE *DEGREE* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 101( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 2 CURVE TITLE = * * * * * * SPOINT 1 0 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.964182E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 2.258607E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.964182E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 2.258607E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 101(--, 7) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 2 CURVE TITLE = * * * * * * SPOINT 1 0 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = PHASE *DEGREE* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 151( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 3 CURVE TITLE = * * * * * * SPOINT 1 5 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.572965E-02 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.065641E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.572965E-02 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.065641E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 151(--, 7) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 3 CURVE TITLE = * * * * * * SPOINT 1 5 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = PHASE *DEGREE* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 201( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 4 CURVE TITLE = * * * * * * SPOINT 2 0 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.083981E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.574398E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.083981E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.574398E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 201(--, 7) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 4 CURVE TITLE = * * * * * * SPOINT 2 0 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = PHASE *DEGREE* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 251( 1,--) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF UPPER FRAME 5 CURVE TITLE = * * * * * * SPOINT 2 5 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.904558E-05 AT X = 3.981073E+00 THE LARGEST Y-VALUE = 3.748164E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.904558E-05 AT X = 3.981073E+00 THE LARGEST Y-VALUE = 3.748164E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 251(--, 7) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF LOWER FRAME 5 CURVE TITLE = * * * * * * SPOINT 2 5 1 * * * * * * * * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = PHASE *DEGREE* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 1.800000E+02 AT X = 1.165915E+00 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 51( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 6 CURVE TITLE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.107240E-02 AT X = 2.154435E+00 THE LARGEST Y-VALUE = 1.211539E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.107240E-02 AT X = 2.154435E+00 THE LARGEST Y-VALUE = 1.211539E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 101( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 2 OF WHOLE FRAME 6 CURVE TITLE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.964182E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 2.258607E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.964182E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 2.258607E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 151( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 3 OF WHOLE FRAME 6 CURVE TITLE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.572965E-02 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.065641E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.572965E-02 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.065641E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 201( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 4 OF WHOLE FRAME 6 CURVE TITLE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.083981E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.574398E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 2.083981E-05 AT X = 1.000000E+01 THE LARGEST Y-VALUE = 3.574398E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 251( 1) XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 5 OF WHOLE FRAME 6 CURVE TITLE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = MAGNITUDE *INCH* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.904558E-05 AT X = 3.981073E+00 THE LARGEST Y-VALUE = 3.748164E+00 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = 1.904558E-05 AT X = 3.981073E+00 THE LARGEST Y-VALUE = 3.748164E+00 AT X = 8.576961E-01 E N D O F S U M M A R Y 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE ELEMENT-FORCE CURVE 251( 2) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 7 CURVE TITLE = * * * * * * * FORCE IN STRING ELEMENT 251 * * * * * * * * X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = REAL PART *POUNDS* THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = -1.387000E+03 AT X = 2.928645E+00 THE LARGEST Y-VALUE = 6.985664E+02 AT X = 8.576961E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 1.000000E-01 TO X = 1.000000E+01) THE SMALLEST Y-VALUE = -1.387000E+03 AT X = 2.928645E+00 THE LARGEST Y-VALUE = 6.985664E+02 AT X = 8.576961E-01 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 FREQUENCY RESPONSE OF A 500 CELL STRING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A 0 ELEMENT-FORCE CURVE ID = 251 COMPONENT = 2 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.000000E-01 1.567602E+02 2 1.359356E-01 1.585484E+02 3 1.847850E-01 1.621246E+02 4 2.511887E-01 1.680851E+02 5 3.414549E-01 1.800060E+02 6 4.641589E-01 2.074242E+02 7 6.309574E-01 2.825260E+02 8 8.576961E-01 6.985664E+02 9 1.165915E+00 -6.008148E+02 10 1.584893E+00 -1.949072E+02 11 2.154435E+00 -1.597404E+02 12 2.928645E+00 -1.387000E+03 13 3.981073E+00 1.548787E+02 14 5.411697E+00 -2.574921E+02 15 7.356425E+00 2.906472E+02 16 1.000000E+01 -1.566112E+02 * * * END OF JOB * * * 1 JOB TITLE = FREQUENCY RESPONSE OF A 500 CELL STRING DATE: 5/17/95 END TIME: 16:18:49 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d11031a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D11031A,NASTRAN APP AERO SOL 11,0 TIME 25 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 SYMMETRIC RESPONSE , STIFF AILERON 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = JET TRANSPORT WING DYNAMIC ANALYSIS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 3 LABEL = SYMMETRIC RESPONSE , STIFF AILERON 4 ECHO = BOTH 5 $ 6 $ MODEL DESCRIPTION JET TRANSPORT WING EXAMPLE 7 $ SYMMETRIC RESPONSE TO A RANDOM 8 $ GUST WITH A STIFF AILERON 9 $ 10 SPC = 14 $ SYM , NO PITCH 11 MPC = 1 12 METHOD = 10 $ GIVENS 13 SDAMP = 2000 14 FREQ = 40 15 RANDOM = 1031 $ EMPIRICAL PSDF 16 OUTPUT 17 $ 18 $ SOLUTION RANDOM ANALYSIS USING 19 $ DOUBLET-LATTICE METHOD AERODYNAMICS 20 $ AT MACH NO. OF .62 21 $ 22 SET 1 = 1 , 2 , 12 $ 23 SET 2 = 1 , 9 THRU 12 , 1040 24 SET 3 = 11 25 SET 4 = 1001 , 1022 , 1023 , 1040 , 1041 $ 26 SDISP(IMAG) = 1 27 DISP(IMAG) = 2 28 SPCF(IMAG) = 3 29 AEROF = 4 30 SUBCASE 1 31 LABEL = RANDOM GUST ANALYSIS 32 GUST = 3002 33 $ 34 $ PRODUCES XY PAPER PLOTS OF MODAL AND GRID POINT DISPLACEMENT 35 $ AND WING ROOT BENDING MOMENTS 36 $ 37 OUTPUT(XYOUT) $ FREQ RESP PACKAGE (COMPLEX NUMBERS) 38 CURVELINESYMBOL = 1 39 XTITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE 40 YTITLE = MODAL DEFLECTION 41 TCURVE = FIRST MODE (PLUNGE) 42 XYPAPERPLOT SDISP / 1(T1RM) , 1(T1IP) 43 TCURVE = SECOND MODE (WING BENDING) 44 XYPAPERPLOT SDISP / 2(T1RM) , 2(T1IP) 45 TCURVE = TWELFTH MODE (AILERON) 46 XYPAPERPLOT SDISP / 12(T1RM) , 12(T1IP) 47 YTITLE = PHYSICAL DEFLECTION 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 SYMMETRIC RESPONSE , STIFF AILERON 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 48 TCURVE = WING ( 3/4 CHORD , 1/4 CHORD , STA 458 ) 49 XYPAPERPLOT DISP / 9(T3RM) , 9(T3IP) , 10(T3RM) , 10(T3IP) 50 TCURVE = FUSELAGE PLUNGE 51 XYPAPERPLOT DISP / 11(T3RM) , 11(T3IP) 52 TCURVE = AILERON DEFLECTION 53 XYPAPERPLOT DISP / 12(R2RM) , 12(R2IP) 54 TCURVE = AERODYNAMIC BOX NEAR TIP , PITCH 55 XYPAPERPLOT DISP / 1040(R2RM) , 1040(R2IP) 56 TCURVE = WING ROOT BENDING MOMENT 57 YTITLE = ROTATIONAL CONSTRAINTS 58 XYPAPERPLOT SPCF / 11(R3RM) , 11(R3IP) 59 $ RANDOM ANALYSIS OUTPUT REQUESTS 60 XTITLE = FREQUENCY (HERTZ) JET TRANSPORT , RANDOM ANALYSIS 61 TCURVE = POWER SPECTRAL DENSITY FUNCTION 62 YTITLE = FUSELAGE PLUNGE (11T3) , PSDF , GUST LOAD 63 XYPAPERPLOT DISP PSDF / 11(T3) 64 YTITLE = WING TIP DISPLACEMENT (9T3) , PSDF , GUST LOAD 65 XYPAPERPLOT DISP PSDF / 9(T3) 66 YTITLE = WING ROOT BENDING MOMENT (11R3) , PSDF , GUST LOAD 67 XYPAPERPLOT SPCF PSDF / 11(R3) 68 BEGIN BULK 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 SYMMETRIC RESPONSE , STIFF AILERON 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ AEFACT 1 0.0 .09 .21 .33 .45 .56 .66 +AE1 +AE1 .74 AEFACT 2 .74 .82 .90 .974 AEFACT 3 .974 1.00 AEFACT 4 0.0 .375 .750 1.00 AEFACT 5 0.0 .1875 .375 .625 .750 .875 1.00 AERO 1 8360. 131.232 1.1468-71 SYM CAERO1 1001 1000 0 1 4 1 +CA01 +CA01 78.75 0.0 0.0 225. 35. 500. 0.0 100. CAERO1 1022 1000 0 2 5 1 +CA22 +CA22 78.75 0.0 0.0 225. 35. 500. 0.0 100. CAERO1 1040 1000 0 3 4 1 +CA40 +CA40 78.75 0.0 0.0 225. 35. 500. 0.0 100. CELAS2 3 5142671.12 5 CMASS2 2 13967.2 12 5 CMASS2 121 5248.7 1 3 CMASS2 122 134.9 1 3 2 3 CMASS2 123 790.3 2 3 CMASS2 341 9727. 3 3 CMASS2 342 11005. 3 3 4 3 CMASS2 343 473. 4 3 CMASS2 561 3253.6 5 3 CMASS2 562 -139.7 5 3 6 3 CMASS2 563 946.3 6 3 CMASS2 781 2617.8 7 3 CMASS2 782 21. 7 3 8 3 CMASS2 783 782.3 8 3 CMASS2 9101 494.8 9 3 CMASS2 9102 -7.3 9 3 10 3 CMASS2 9103 185.2 10 3 CONM1 1 11 +51 +51 17400. 4.37+7 +52 +52 4.35+09 CORD2R 1 0.0 0.0 0.0 0.0 0.0 -1. +C1 +C1 -1. 0.0 0.0 DAREA 9999 11 1 1. DUMMY EIGR 10 GIV 0.0 1. 12 +EIGR +EIGR MAX FREQ1 40 0.0 .25 39 GENEL 432 1 3 2 3 3 3 +01 +01 4 3 5 3 6 3 7 3 +02 +02 8 3 9 3 10 3 +03 +03 UD 11 3 11 4 11 5 +03A +03A 11 6 +04 +04 Z 8.7172-61.3361-61.2778-56.2720-61.6251-51.0492-52.0478-5+05 +05 1.5630-52.4285-52.0403-53.0861-56.2720-63.2297-51.0492-53.3529-5+06 +06 1.5630-53.5021-52.0257-53.5785-52.7732-51.5726-54.8255-53.7628-5+07 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A SYMMETRIC RESPONSE , STIFF AILERON I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ +07 7.3284-56.4338-59.5810-58.8378-56.3749-53.7628-58.0136-56.4338-5+08 +08 1.0012-48.8378-51.1811-41.2758-41.1344-41.9350-41.8160-42.5283-4+09 +09 2.4294-41.6999-41.8160-42.2920-42.4294-42.8249-43.6862-43.5052-4+10 +10 5.2675-45.1171-44.2292-45.1171-45.7187-48.4840-48.2340-49.2340-4+11 +11 S 1.0 90.0 -20.25 45.0 1.0 90.0 81.0 +12 +12 45.0 1.0 186.0 -17.85 141.0 1.0 186.0 71.4 +13 +13 141.0 1.0 268.0 -15.80 223.0 1.0 268.0 63.2 +14 +14 223.0 1.0 368.0 -13.30 323.0 1.0 368.0 53.2 +15 +15 323.0 1.0 458.0 -11.05 413.0 1.0 458.0 44.2 +16 +16 413.0 GRID 1 20.25 90. 12456 GRID 2 -81. 90. 12456 GRID 3 17.85 186. 12456 GRID 4 -71.4 186. 12456 GRID 5 15.8 268. 12456 GRID 6 -63.2 268. 12456 GRID 7 13.3 368. 12456 GRID 8 -53.2 368. 12456 GRID 9 11.05 458. 12456 GRID 10 -44.2 458. 12456 GRID 11 .0 .0 126 GRID 12 -86.45 368. 1246 GUST 3002 3002 1.1962-40.0 8360. MKAERO1 .62 +MK +MK .02 .10 .50 MPC 1 12 3 -1.0 8 3 1.5 +MPC1 +MPC1 7 3 -0.5 12 5 33.25 PAERO1 1000 PARAM GUSTAERO1 PARAM LMODES 12 PARAM MACH .62 PARAM Q 4.00747 PARAM WTMASS .0025907 RANDPS 1031 1 1 1. 1032 RLOAD1 3002 9999 1004 SET1 14 1 THRU 11 SET1 15 8 10 12 SPC 14 11 45 SPLINE1 104 1022 1026 1039 15 SPLINE2 101 1001 1001 1021 14 0.0 2. 0 +SP1 +SP1 -1.0 -1.0 SPLINE2 102 1022 1022 1037 14 0.0 2. 0 +SP2 +SP2 -1.0 -1.0 SPLINE2 103 1040 1040 1042 14 0.0 2. 0 +SP3 +SP3 -1.0 -1.0 SUPORT 11 3 TABDMP1 2000 +T2000 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A SYMMETRIC RESPONSE , STIFF AILERON I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ +T2000 0.0 .06 10. .06 ENDT TABLED1 1004 T1004 +T1004 0.0 0.0 .01 1. 10. 1. ENDT TABRND1 1032 +001 +001 .00 2.8708+0.25 1.2641+0.50 4.7188-1.75 2.3080-1+002 +002 1.00 1.3456-11.25 8.7595-21.50 6.1402-21.75 4.5369-2+003 +003 2.00 3.4865-22.25 2.7618-22.50 2.2412-22.75 1.8547-2+004 +004 3.00 1.5601-23.25 1.3304-23.50 1.1478-23.75 1.0004-2+005 +005 4.00 8.7964-34.25 7.7947-34.50 6.9547-34.75 6.2434-3+006 +006 5.00 5.6359-35.25 5.1128-35.50 4.6593-35.75 4.2636-3+007 +007 6.00 3.9162-36.25 3.6095-36.50 3.3375-36.75 3.0951-3+008 +008 7.00 2.8782-37.25 2.6833-37.50 2.5076-37.75 2.3485-3+009 +009 8.00 2.2042-38.25 2.0727-38.50 1.9526-38.75 1.8427-3+010 +010 9.00 1.7418-39.25 1.6490-39.50 1.5634-39.75 1.4843-3+011 +011 ENDT TSTEP 41 40 .1 1 ENDDATA TOTAL COUNT= 110 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 SYMMETRIC RESPONSE , STIFF AILERON 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AEFACT 1 0.0 .09 .21 .33 .45 .56 .66 +AE1 2- +AE1 .74 3- AEFACT 2 .74 .82 .90 .974 4- AEFACT 3 .974 1.00 5- AEFACT 4 0.0 .375 .750 1.00 6- AEFACT 5 0.0 .1875 .375 .625 .750 .875 1.00 7- AERO 1 8360. 131.232 1.1468-71 SYM 8- CAERO1 1001 1000 0 1 4 1 +CA01 9- +CA01 78.75 0.0 0.0 225. 35. 500. 0.0 100. 10- CAERO1 1022 1000 0 2 5 1 +CA22 11- +CA22 78.75 0.0 0.0 225. 35. 500. 0.0 100. 12- CAERO1 1040 1000 0 3 4 1 +CA40 13- +CA40 78.75 0.0 0.0 225. 35. 500. 0.0 100. 14- CELAS2 3 5142671.12 5 15- CMASS2 2 13967.2 12 5 16- CMASS2 121 5248.7 1 3 17- CMASS2 122 134.9 1 3 2 3 18- CMASS2 123 790.3 2 3 19- CMASS2 341 9727. 3 3 20- CMASS2 342 11005. 3 3 4 3 21- CMASS2 343 473. 4 3 22- CMASS2 561 3253.6 5 3 23- CMASS2 562 -139.7 5 3 6 3 24- CMASS2 563 946.3 6 3 25- CMASS2 781 2617.8 7 3 26- CMASS2 782 21. 7 3 8 3 27- CMASS2 783 782.3 8 3 28- CMASS2 9101 494.8 9 3 29- CMASS2 9102 -7.3 9 3 10 3 30- CMASS2 9103 185.2 10 3 31- CONM1 1 11 +51 32- +51 17400. 4.37+7 +52 33- +52 4.35+09 34- CORD2R 1 0.0 0.0 0.0 0.0 0.0 -1. +C1 35- +C1 -1. 0.0 0.0 36- DAREA 9999 11 1 1. DUMMY 37- EIGR 10 GIV 0.0 1. 12 +EIGR 38- +EIGR MAX 39- FREQ1 40 0.0 .25 39 40- GENEL 432 1 3 2 3 3 3 +01 41- +01 4 3 5 3 6 3 7 3 +02 42- +02 8 3 9 3 10 3 +03 43- +03 UD 11 3 11 4 11 5 +03A 44- +03A 11 6 +04 45- +04 Z 8.7172-61.3361-61.2778-56.2720-61.6251-51.0492-52.0478-5+05 46- +05 1.5630-52.4285-52.0403-53.0861-56.2720-63.2297-51.0492-53.3529-5+06 47- +06 1.5630-53.5021-52.0257-53.5785-52.7732-51.5726-54.8255-53.7628-5+07 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A SYMMETRIC RESPONSE , STIFF AILERON S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- +07 7.3284-56.4338-59.5810-58.8378-56.3749-53.7628-58.0136-56.4338-5+08 49- +08 1.0012-48.8378-51.1811-41.2758-41.1344-41.9350-41.8160-42.5283-4+09 50- +09 2.4294-41.6999-41.8160-42.2920-42.4294-42.8249-43.6862-43.5052-4+10 51- +10 5.2675-45.1171-44.2292-45.1171-45.7187-48.4840-48.2340-49.2340-4+11 52- +11 S 1.0 90.0 -20.25 45.0 1.0 90.0 81.0 +12 53- +12 45.0 1.0 186.0 -17.85 141.0 1.0 186.0 71.4 +13 54- +13 141.0 1.0 268.0 -15.80 223.0 1.0 268.0 63.2 +14 55- +14 223.0 1.0 368.0 -13.30 323.0 1.0 368.0 53.2 +15 56- +15 323.0 1.0 458.0 -11.05 413.0 1.0 458.0 44.2 +16 57- +16 413.0 58- GRID 1 20.25 90. 12456 59- GRID 2 -81. 90. 12456 60- GRID 3 17.85 186. 12456 61- GRID 4 -71.4 186. 12456 62- GRID 5 15.8 268. 12456 63- GRID 6 -63.2 268. 12456 64- GRID 7 13.3 368. 12456 65- GRID 8 -53.2 368. 12456 66- GRID 9 11.05 458. 12456 67- GRID 10 -44.2 458. 12456 68- GRID 11 .0 .0 126 69- GRID 12 -86.45 368. 1246 70- GUST 3002 3002 1.1962-40.0 8360. 71- MKAERO1 .62 +MK 72- +MK .02 .10 .50 73- MPC 1 12 3 -1.0 8 3 1.5 +MPC1 74- +MPC1 7 3 -0.5 12 5 33.25 75- PAERO1 1000 76- PARAM GUSTAERO1 77- PARAM LMODES 12 78- PARAM MACH .62 79- PARAM Q 4.00747 80- PARAM WTMASS .0025907 81- RANDPS 1031 1 1 1. 1032 82- RLOAD1 3002 9999 1004 83- SET1 14 1 THRU 11 84- SET1 15 8 10 12 85- SPC 14 11 45 86- SPLINE1 104 1022 1026 1039 15 87- SPLINE2 101 1001 1001 1021 14 0.0 2. 0 +SP1 88- +SP1 -1.0 -1.0 89- SPLINE2 102 1022 1022 1037 14 0.0 2. 0 +SP2 90- +SP2 -1.0 -1.0 91- SPLINE2 103 1040 1040 1042 14 0.0 2. 0 +SP3 92- +SP3 -1.0 -1.0 93- SUPORT 11 3 94- TABDMP1 2000 +T2000 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A SYMMETRIC RESPONSE , STIFF AILERON S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- +T2000 0.0 .06 10. .06 ENDT 96- TABLED1 1004 T1004 97- +T1004 0.0 0.0 .01 1. 10. 1. ENDT 98- TABRND1 1032 +001 99- +001 .00 2.8708+0.25 1.2641+0.50 4.7188-1.75 2.3080-1+002 100- +002 1.00 1.3456-11.25 8.7595-21.50 6.1402-21.75 4.5369-2+003 101- +003 2.00 3.4865-22.25 2.7618-22.50 2.2412-22.75 1.8547-2+004 102- +004 3.00 1.5601-23.25 1.3304-23.50 1.1478-23.75 1.0004-2+005 103- +005 4.00 8.7964-34.25 7.7947-34.50 6.9547-34.75 6.2434-3+006 104- +006 5.00 5.6359-35.25 5.1128-35.50 4.6593-35.75 4.2636-3+007 105- +007 6.00 3.9162-36.25 3.6095-36.50 3.3375-36.75 3.0951-3+008 106- +008 7.00 2.8782-37.25 2.6833-37.50 2.5076-37.75 2.3485-3+009 107- +009 8.00 2.2042-38.25 2.0727-38.50 1.9526-38.75 1.8427-3+010 108- +010 9.00 1.7418-39.25 1.6490-39.50 1.5634-39.75 1.4843-3+011 109- +011 ENDT 110- TSTEP 41 40 .1 1 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A SYMMETRIC RESPONSE , STIFF AILERON 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS2 ELEMENTS (ELEMENT TYPE 12) STARTING WITH ID 3 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION MASS2 ELEMENTS (ELEMENT TYPE 26) STARTING WITH ID 2 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONM1 ELEMENTS (ELEMENT TYPE 29) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 0, EPSILON SUB E = 2.0067149E-16 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 12, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 SYMMETRIC RESPONSE , STIFF AILERON E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 12 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 12 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 SYMMETRIC RESPONSE , STIFF AILERON R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 11 0.0 0.0 0.0 1.085996E+02 0.0 2 10 2.344038E+02 1.531025E+01 2.436702E+00 7.333811E+00 1.719073E+03 3 9 5.021460E+02 2.240862E+01 3.566442E+00 4.860579E+01 2.440721E+04 4 8 2.873470E+03 5.360476E+01 8.531462E+00 6.036275E+00 1.734505E+04 5 7 6.346819E+03 7.966693E+01 1.267939E+01 1.389629E+01 8.819726E+04 6 6 8.746056E+03 9.352035E+01 1.488422E+01 3.997501E+00 3.496237E+04 7 5 1.766041E+04 1.328925E+02 2.115050E+01 3.884947E+00 6.860977E+04 8 4 2.401137E+04 1.549560E+02 2.466202E+01 3.570773E+00 8.573913E+04 9 3 4.211877E+04 2.052286E+02 3.266314E+01 3.142323E+00 1.323508E+05 10 2 6.020940E+04 2.453760E+02 3.905281E+01 1.016273E+00 6.118916E+04 11 1 9.492829E+04 3.081043E+02 4.903633E+01 8.935863E+00 8.482661E+05 12 12 1.421223E+05 3.769911E+02 6.000000E+01 3.618483E+01 5.142671E+06 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A SYMMETRIC RESPONSE , STIFF AILERON 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 3 C = 22 CBAR = 38 R = 23 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 42) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 3 C = 22 CBAR = 38 R = 23 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 42) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 3 C = 22 CBAR = 38 R = 23 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 42) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 3 C = 22 CBAR = 38 R = 23 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH5 (N = 42) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 3 C = 22 CBAR = 38 R = 23 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH5 (N = 42) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 3 C = 22 CBAR = 38 R = 23 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH5 (N = 42) TIME ESTIMATE = 0 SECONDS 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 1 FREQUENCY = 0.000000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 2 FREQUENCY = 2.500000E-01 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.402053E+00 2.284433E+00 0.000000E+00 0.000000E+00 -4.940160E+01 4.698257E+01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -9.005743E-01 1.053318E+00 0.000000E+00 0.000000E+00 -5.382338E+00 6.295222E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -3.780447E-01 4.278406E-01 0.000000E+00 0.000000E+00 -2.259408E+00 2.557016E+00 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.578719E-01 1.948000E-01 0.000000E+00 0.000000E+00 -1.504100E+00 1.855927E+00 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.515316E-02 4.903822E-02 0.000000E+00 0.000000E+00 -4.301895E-01 4.672039E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 3 FREQUENCY = 5.000000E-01 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -6.982867E-01 2.306365E+00 0.000000E+00 0.000000E+00 -1.436124E+01 4.743364E+01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -8.140898E-02 1.000678E+00 0.000000E+00 0.000000E+00 -4.865455E-01 5.980614E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.706399E-02 4.118764E-01 0.000000E+00 0.000000E+00 -2.812811E-01 2.461605E+00 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.087976E-03 1.809572E-01 0.000000E+00 0.000000E+00 -3.894770E-02 1.724042E+00 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -7.182358E-03 4.780058E-02 0.000000E+00 0.000000E+00 -6.842883E-02 4.554126E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 4 FREQUENCY = 7.499999E-01 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.118851E-01 1.805306E+00 0.000000E+00 0.000000E+00 2.301073E+00 3.712865E+01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.959583E-01 6.900358E-01 0.000000E+00 0.000000E+00 1.768813E+00 4.124042E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.071071E-01 2.916312E-01 0.000000E+00 0.000000E+00 6.401322E-01 1.742953E+00 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.599411E-02 1.181500E-01 0.000000E+00 0.000000E+00 6.287485E-01 1.125655E+00 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.083683E-02 3.448702E-02 0.000000E+00 0.000000E+00 1.032462E-01 3.285699E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 5 FREQUENCY = 1.000000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.728532E-01 1.351751E+00 0.000000E+00 0.000000E+00 9.724891E+00 2.780066E+01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.445305E-01 3.944474E-01 0.000000E+00 0.000000E+00 2.656764E+00 2.357439E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.703117E-01 1.770817E-01 0.000000E+00 0.000000E+00 1.017879E+00 1.058340E+00 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 9.228974E-02 5.751444E-02 0.000000E+00 0.000000E+00 8.792760E-01 5.479599E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.868470E-02 2.158384E-02 0.000000E+00 0.000000E+00 1.780156E-01 2.056367E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 6 FREQUENCY = 1.250000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.339365E-01 1.002302E+00 0.000000E+00 0.000000E+00 1.303780E+01 2.061374E+01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.786380E-01 1.360785E-01 0.000000E+00 0.000000E+00 2.860610E+00 8.132821E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.888397E-01 7.697631E-02 0.000000E+00 0.000000E+00 1.128613E+00 4.600539E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 9.584768E-02 2.790635E-03 0.000000E+00 0.000000E+00 9.131739E-01 2.658733E-02 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.163349E-02 9.944121E-03 0.000000E+00 0.000000E+00 2.061097E-01 9.474110E-02 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 7 FREQUENCY = 1.500000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.980062E-01 7.410462E-01 0.000000E+00 0.000000E+00 1.435548E+01 1.524065E+01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.326235E-01 -9.973019E-02 0.000000E+00 0.000000E+00 2.585601E+00 -5.960434E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.770162E-01 -1.510696E-02 0.000000E+00 0.000000E+00 1.057948E+00 -9.028771E-02 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.200706E-02 -4.940379E-02 0.000000E+00 0.000000E+00 7.813093E-01 -4.706867E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.126580E-02 -1.455490E-03 0.000000E+00 0.000000E+00 2.026066E-01 -1.386697E-02 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 8 FREQUENCY = 1.750000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.097093E-01 5.565007E-01 0.000000E+00 0.000000E+00 1.459617E+01 1.144522E+01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.902003E-01 -3.226295E-01 0.000000E+00 0.000000E+00 1.734400E+00 -1.928216E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.290054E-01 -1.045625E-01 0.000000E+00 0.000000E+00 7.710091E-01 -6.249241E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.488456E-02 -1.014822E-01 0.000000E+00 0.000000E+00 4.276306E-01 -9.668553E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.662625E-02 -1.383614E-02 0.000000E+00 0.000000E+00 1.584040E-01 -1.318217E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 9 FREQUENCY = 2.000000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.001869E-01 4.643757E-01 0.000000E+00 0.000000E+00 1.440033E+01 9.550537E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.599123E-02 -4.902402E-01 0.000000E+00 0.000000E+00 -1.553378E-01 -2.929951E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.339418E-02 -1.787133E-01 0.000000E+00 0.000000E+00 8.005115E-02 -1.068091E+00 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -3.732190E-02 -1.436715E-01 0.000000E+00 0.000000E+00 -3.555786E-01 -1.368808E+00 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.730669E-03 -2.685361E-02 0.000000E+00 0.000000E+00 2.601604E-02 -2.558436E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 10 FREQUENCY = 2.250000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.772623E-01 5.169348E-01 0.000000E+00 0.000000E+00 1.598549E+01 1.063149E+01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -5.827615E-01 -3.111113E-01 0.000000E+00 0.000000E+00 -3.482909E+00 -1.859376E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.071642E-01 -1.284111E-01 0.000000E+00 0.000000E+00 -1.238130E+00 -7.674567E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.887154E-01 -1.023940E-01 0.000000E+00 0.000000E+00 -1.797956E+00 -9.755431E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -3.007463E-02 -2.739676E-02 0.000000E+00 0.000000E+00 -2.865314E-01 -2.610184E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 11 FREQUENCY = 2.500000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.230625E+00 5.104005E-01 0.000000E+00 0.000000E+00 2.530954E+01 1.049710E+01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -6.370990E-01 6.066022E-01 0.000000E+00 0.000000E+00 -3.807662E+00 3.625396E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.624075E-01 2.277428E-01 0.000000E+00 0.000000E+00 -1.568295E+00 1.361119E+00 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.301175E-01 1.388990E-01 0.000000E+00 0.000000E+00 -2.192409E+00 1.323338E+00 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -5.328496E-02 2.003928E-02 0.000000E+00 0.000000E+00 -5.076640E-01 1.909211E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 12 FREQUENCY = 2.750000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.781764E+00 -6.818798E-02 0.000000E+00 0.000000E+00 3.664450E+01 -1.402383E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.529716E-01 9.330393E-01 0.000000E+00 0.000000E+00 2.109557E+00 5.576368E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.139250E-01 4.015257E-01 0.000000E+00 0.000000E+00 6.808803E-01 2.399743E+00 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.138483E-03 2.590508E-01 0.000000E+00 0.000000E+00 1.084663E-02 2.468067E+00 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.149008E-02 6.184461E-02 0.000000E+00 0.000000E+00 -1.094700E-01 5.892149E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 13 FREQUENCY = 3.000000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.013966E+00 -1.320209E+00 0.000000E+00 0.000000E+00 4.142004E+01 -2.715196E+01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.209981E+00 1.927490E-01 0.000000E+00 0.000000E+00 7.231527E+00 1.151977E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.002210E-01 1.561576E-01 0.000000E+00 0.000000E+00 2.989602E+00 9.332861E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.202039E-01 1.334554E-01 0.000000E+00 0.000000E+00 2.097959E+00 1.271476E+00 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.996016E-02 5.144263E-02 0.000000E+00 0.000000E+00 4.759876E-01 4.901114E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 14 FREQUENCY = 3.250000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.505885E-02 -2.966458E+00 0.000000E+00 0.000000E+00 1.749355E+00 -6.100939E+01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.559639E-01 -1.377472E+00 0.000000E+00 0.000000E+00 3.322753E+00 -8.232541E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.468482E-01 -5.268956E-01 0.000000E+00 0.000000E+00 2.072961E+00 -3.149025E+00 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.604778E-01 -2.019795E-01 0.000000E+00 0.000000E+00 1.528927E+00 -1.924328E+00 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.927990E-02 -3.908950E-02 0.000000E+00 0.000000E+00 6.600534E-01 -3.724190E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 15 FREQUENCY = 3.500000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.434974E+00 -1.053545E+00 0.000000E+00 0.000000E+00 -2.951226E+01 -2.166764E+01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -7.219125E-01 -5.893652E-01 0.000000E+00 0.000000E+00 -4.314555E+00 -3.522377E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.342878E-01 -3.078627E-01 0.000000E+00 0.000000E+00 -1.400235E+00 -1.839961E+00 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.052467E-01 -1.057002E-01 0.000000E+00 0.000000E+00 -1.002721E+00 -1.007042E+00 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.131767E-02 -4.548838E-02 0.000000E+00 0.000000E+00 -1.078274E-01 -4.333836E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 16 FREQUENCY = 3.750000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -9.408030E-01 -1.683781E-01 0.000000E+00 0.000000E+00 -1.934894E+01 -3.462934E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -5.469025E-01 8.016444E-03 0.000000E+00 0.000000E+00 -3.268598E+00 4.791101E-02 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.150967E-01 -5.256270E-02 0.000000E+00 0.000000E+00 -1.285540E+00 -3.141443E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -9.086797E-02 6.781103E-03 0.000000E+00 0.000000E+00 -8.657304E-01 6.460588E-02 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.308336E-02 -1.463906E-02 0.000000E+00 0.000000E+00 -2.199231E-01 -1.394714E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 17 FREQUENCY = 4.000000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -5.826490E-01 4.905881E-02 0.000000E+00 0.000000E+00 -1.198300E+01 1.008963E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -3.361277E-01 1.700975E-01 0.000000E+00 0.000000E+00 -2.008888E+00 1.016599E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.464518E-01 3.104208E-02 0.000000E+00 0.000000E+00 -8.752784E-01 1.855249E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -5.599318E-02 3.973825E-02 0.000000E+00 0.000000E+00 -5.334663E-01 3.786000E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.968419E-02 -1.138737E-03 0.000000E+00 0.000000E+00 -1.875380E-01 -1.084913E-02 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 18 FREQUENCY = 4.250000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -3.783524E-01 1.064707E-01 0.000000E+00 0.000000E+00 -7.781349E+00 2.189718E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.002832E-01 2.098788E-01 0.000000E+00 0.000000E+00 -1.197005E+00 1.254354E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -9.742308E-02 5.978215E-02 0.000000E+00 0.000000E+00 -5.822551E-01 3.572918E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -3.165800E-02 4.822352E-02 0.000000E+00 0.000000E+00 -3.016166E-01 4.594420E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.557779E-02 4.960145E-03 0.000000E+00 0.000000E+00 -1.484150E-01 4.725702E-02 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 19 FREQUENCY = 4.500000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.554521E-01 1.179657E-01 0.000000E+00 0.000000E+00 -5.253733E+00 2.426130E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.128616E-01 2.117959E-01 0.000000E+00 0.000000E+00 -6.745244E-01 1.265811E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -6.420644E-02 6.949525E-02 0.000000E+00 0.000000E+00 -3.837339E-01 4.153427E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.541724E-02 4.875131E-02 0.000000E+00 0.000000E+00 -1.468854E-01 4.644706E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.225461E-02 8.037665E-03 0.000000E+00 0.000000E+00 -1.167540E-01 7.657760E-02 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 20 FREQUENCY = 4.750000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.769019E-01 1.144390E-01 0.000000E+00 0.000000E+00 -3.638238E+00 2.353599E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -5.428051E-02 2.009802E-01 0.000000E+00 0.000000E+00 -3.244105E-01 1.201171E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.108643E-02 7.175188E-02 0.000000E+00 0.000000E+00 -2.455557E-01 4.288296E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.279050E-03 4.648831E-02 0.000000E+00 0.000000E+00 -4.076798E-02 4.429102E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -9.671462E-03 9.737354E-03 0.000000E+00 0.000000E+00 -9.214336E-02 9.277113E-02 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 21 FREQUENCY = 5.000000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.242331E-01 1.059692E-01 0.000000E+00 0.000000E+00 -2.555028E+00 2.179404E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.345647E-02 1.861199E-01 0.000000E+00 0.000000E+00 -8.042314E-02 1.112358E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.441947E-02 7.089436E-02 0.000000E+00 0.000000E+00 -1.459445E-01 4.237045E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.625720E-03 4.328309E-02 0.000000E+00 0.000000E+00 3.454341E-02 4.123729E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -7.639130E-03 1.075075E-02 0.000000E+00 0.000000E+00 -7.278063E-02 1.024261E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 22 FREQUENCY = 5.250000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -8.760464E-02 9.624889E-02 0.000000E+00 0.000000E+00 -1.801713E+00 1.979494E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.596543E-02 1.705000E-01 0.000000E+00 0.000000E+00 9.541827E-02 1.019005E+00 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.199891E-02 6.874235E-02 0.000000E+00 0.000000E+00 -7.171224E-02 4.108428E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 9.420868E-03 3.985499E-02 0.000000E+00 0.000000E+00 8.975581E-02 3.797123E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -6.000527E-03 1.140141E-02 0.000000E+00 0.000000E+00 -5.716907E-02 1.086251E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 23 FREQUENCY = 5.500000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -6.140843E-02 8.669876E-02 0.000000E+00 0.000000E+00 -1.262951E+00 1.783082E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.779411E-02 1.553883E-01 0.000000E+00 0.000000E+00 2.258789E-01 9.286878E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.456202E-03 6.611303E-02 0.000000E+00 0.000000E+00 -1.467968E-02 3.951288E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.380047E-02 3.648948E-02 0.000000E+00 0.000000E+00 1.314817E-01 3.476479E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.641787E-03 1.185360E-02 0.000000E+00 0.000000E+00 -4.422389E-02 1.129334E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 24 FREQUENCY = 5.750000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -4.226223E-02 7.784895E-02 0.000000E+00 0.000000E+00 -8.691828E-01 1.601073E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.441611E-02 1.412317E-01 0.000000E+00 0.000000E+00 3.252215E-01 8.440803E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.088361E-03 6.338564E-02 0.000000E+00 0.000000E+00 3.041087E-02 3.788281E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.720928E-02 3.329038E-02 0.000000E+00 0.000000E+00 1.639588E-01 3.171689E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -3.481476E-03 1.219609E-02 0.000000E+00 0.000000E+00 -3.316923E-02 1.161963E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 25 FREQUENCY = 6.000000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.802829E-02 6.985895E-02 0.000000E+00 0.000000E+00 -5.764419E-01 1.436748E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.738675E-02 1.281252E-01 0.000000E+00 0.000000E+00 4.027414E-01 7.657482E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.122128E-02 6.073349E-02 0.000000E+00 0.000000E+00 6.706461E-02 3.629775E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.994314E-02 3.028025E-02 0.000000E+00 0.000000E+00 1.900052E-01 2.884903E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.459987E-03 1.247897E-02 0.000000E+00 0.000000E+00 -2.343714E-02 1.188915E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 26 FREQUENCY = 6.250000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.730097E-02 6.273092E-02 0.000000E+00 0.000000E+00 -3.558194E-01 1.290149E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.775445E-02 1.160080E-01 0.000000E+00 0.000000E+00 4.647045E-01 6.933292E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.634721E-02 5.822783E-02 0.000000E+00 0.000000E+00 9.770011E-02 3.480023E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.220590E-02 2.744280E-02 0.000000E+00 0.000000E+00 2.115632E-01 2.614571E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -1.531765E-03 1.273129E-02 0.000000E+00 0.000000E+00 -1.459365E-02 1.212954E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 27 FREQUENCY = 6.500000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -9.122704E-03 5.640346E-02 0.000000E+00 0.000000E+00 -1.876217E-01 1.160016E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.624814E-02 1.047477E-01 0.000000E+00 0.000000E+00 5.154677E-01 6.260312E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.075574E-02 5.588583E-02 0.000000E+00 0.000000E+00 1.240480E-01 3.340051E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.414337E-02 2.473990E-02 0.000000E+00 0.000000E+00 2.300223E-01 2.357055E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -6.595895E-04 1.296961E-02 0.000000E+00 0.000000E+00 -6.284130E-03 1.235660E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 28 FREQUENCY = 6.750000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -2.817096E-03 5.079245E-02 0.000000E+00 0.000000E+00 -5.793809E-02 1.044618E+00 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 9.338781E-02 9.417382E-02 0.000000E+00 0.000000E+00 5.581381E-01 5.628358E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.466216E-02 5.369274E-02 0.000000E+00 0.000000E+00 1.473949E-01 3.208981E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.586365E-02 2.211605E-02 0.000000E+00 0.000000E+00 2.464118E-01 2.107072E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.899476E-04 1.320209E-02 0.000000E+00 0.000000E+00 1.809692E-03 1.257809E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 29 FREQUENCY = 7.000000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.116844E-03 4.581043E-02 0.000000E+00 0.000000E+00 4.353547E-02 9.421558E-01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 9.955249E-02 8.408135E-02 0.000000E+00 0.000000E+00 5.949818E-01 5.025173E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.823484E-02 5.160893E-02 0.000000E+00 0.000000E+00 1.687473E-01 3.084440E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.744908E-02 1.949286E-02 0.000000E+00 0.000000E+00 2.615167E-01 1.857152E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.051139E-03 1.342917E-02 0.000000E+00 0.000000E+00 1.001455E-02 1.279443E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 30 FREQUENCY = 7.250000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.080749E-03 4.136856E-02 0.000000E+00 0.000000E+00 1.250586E-01 8.508022E-01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.050145E-01 7.420872E-02 0.000000E+00 0.000000E+00 6.276261E-01 4.435131E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.161294E-02 4.956339E-02 0.000000E+00 0.000000E+00 1.889366E-01 2.962187E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.895854E-02 1.675067E-02 0.000000E+00 0.000000E+00 2.758979E-01 1.595894E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.964905E-03 1.363996E-02 0.000000E+00 0.000000E+00 1.872031E-02 1.299526E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 31 FREQUENCY = 7.500000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 9.447400E-03 3.735822E-02 0.000000E+00 0.000000E+00 1.942987E-01 7.683237E-01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.099283E-01 6.417671E-02 0.000000E+00 0.000000E+00 6.569932E-01 3.835562E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.491301E-02 4.742604E-02 0.000000E+00 0.000000E+00 2.086598E-01 2.834448E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.040715E-02 1.368552E-02 0.000000E+00 0.000000E+00 2.896994E-01 1.303866E-01 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.986776E-03 1.379862E-02 0.000000E+00 0.000000E+00 2.845604E-02 1.314642E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 32 FREQUENCY = 7.750000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.264586E-02 3.356681E-02 0.000000E+00 0.000000E+00 2.600798E-01 6.903483E-01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.141855E-01 5.335916E-02 0.000000E+00 0.000000E+00 6.824371E-01 3.189045E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.819686E-02 4.493207E-02 0.000000E+00 0.000000E+00 2.282859E-01 2.685394E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.166223E-02 9.920117E-03 0.000000E+00 0.000000E+00 3.016570E-01 9.451233E-02 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.191944E-03 1.380064E-02 0.000000E+00 0.000000E+00 3.993809E-02 1.314834E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 33 FREQUENCY = 8.000000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.619847E-02 2.934010E-02 0.000000E+00 0.000000E+00 3.331440E-01 6.034204E-01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.167533E-01 4.080053E-02 0.000000E+00 0.000000E+00 6.977834E-01 2.438470E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.123430E-02 4.153471E-02 0.000000E+00 0.000000E+00 2.464393E-01 2.482347E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.199546E-02 4.836980E-03 0.000000E+00 0.000000E+00 3.048318E-01 4.608355E-02 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.613033E-03 1.334281E-02 0.000000E+00 0.000000E+00 5.347731E-02 1.271216E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 34 FREQUENCY = 8.250000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.979174E-02 2.272154E-02 0.000000E+00 0.000000E+00 4.070452E-01 4.673003E-01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.138349E-01 2.699642E-02 0.000000E+00 0.000000E+00 6.803413E-01 1.613458E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.249774E-02 3.676171E-02 0.000000E+00 0.000000E+00 2.539904E-01 2.197087E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.881813E-02 -1.261694E-03 0.000000E+00 0.000000E+00 2.745603E-01 -1.202062E-02 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.709493E-03 1.179713E-02 0.000000E+00 0.000000E+00 6.392366E-02 1.123953E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 35 FREQUENCY = 8.500000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.873335E-02 1.329255E-02 0.000000E+00 0.000000E+00 3.852776E-01 2.733800E-01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.041312E-01 2.139023E-02 0.000000E+00 0.000000E+00 6.223469E-01 1.278401E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.986052E-02 3.396872E-02 0.000000E+00 0.000000E+00 2.382289E-01 2.030162E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.106829E-02 -2.050087E-03 0.000000E+00 0.000000E+00 2.007249E-01 -1.953193E-02 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.628857E-03 1.001178E-02 0.000000E+00 0.000000E+00 5.362808E-02 9.538568E-02 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 36 FREQUENCY = 8.750001E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.311785E-02 8.529437E-03 0.000000E+00 0.000000E+00 2.697869E-01 1.754196E-01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.027887E-01 2.478085E-02 0.000000E+00 0.000000E+00 6.143233E-01 1.481043E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.893133E-02 3.607936E-02 0.000000E+00 0.000000E+00 2.326755E-01 2.156306E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.883693E-02 3.294815E-03 0.000000E+00 0.000000E+00 1.794659E-01 3.139083E-02 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.955563E-03 1.078825E-02 0.000000E+00 0.000000E+00 3.768602E-02 1.027834E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 37 FREQUENCY = 9.000000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 9.509849E-03 7.250216E-03 0.000000E+00 0.000000E+00 1.955832E-01 1.491106E-01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.083628E-01 2.383149E-02 0.000000E+00 0.000000E+00 6.476371E-01 1.424304E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.147367E-02 3.778587E-02 0.000000E+00 0.000000E+00 2.478699E-01 2.258296E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.136635E-02 5.857687E-03 0.000000E+00 0.000000E+00 2.035646E-01 5.580822E-02 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.902249E-03 1.233781E-02 0.000000E+00 0.000000E+00 3.717806E-02 1.175466E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 38 FREQUENCY = 9.250000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.481626E-03 6.074779E-03 0.000000E+00 0.000000E+00 1.538700E-01 1.249363E-01 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.140772E-01 1.895181E-02 0.000000E+00 0.000000E+00 6.817895E-01 1.132666E-01 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.485193E-02 3.807312E-02 0.000000E+00 0.000000E+00 2.680603E-01 2.275464E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.410224E-02 5.822272E-03 0.000000E+00 0.000000E+00 2.296304E-01 5.547080E-02 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.611365E-03 1.349571E-02 0.000000E+00 0.000000E+00 4.393406E-02 1.285783E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 39 FREQUENCY = 9.500000E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.867166E-03 4.528333E-03 0.000000E+00 0.000000E+00 1.206664E-01 9.313145E-02 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.188837E-01 1.238034E-02 0.000000E+00 0.000000E+00 7.105160E-01 7.399185E-02 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.828897E-02 3.761144E-02 0.000000E+00 0.000000E+00 2.886020E-01 2.247871E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.629250E-02 4.693840E-03 0.000000E+00 0.000000E+00 2.504977E-01 4.471982E-02 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.556583E-03 1.433328E-02 0.000000E+00 0.000000E+00 5.293948E-02 1.365581E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 AERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE) VECTOR 40 FREQUENCY = 9.750001E+00 HERTZ BOX OR T1 / R1 T2 / R2 T3 / R3 BODY ELMT. REAL IMAGINARY REAL IMAGINARY REAL IMAGINARY 0 1001 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.206554E-03 2.725017E-03 0.000000E+00 0.000000E+00 8.651377E-02 5.604380E-02 0.000000E+00 0.000000E+00 0 1022 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.229903E-01 4.992227E-03 0.000000E+00 0.000000E+00 7.350593E-01 2.983630E-02 0.000000E+00 0.000000E+00 0 1023 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.172228E-02 3.677215E-02 0.000000E+00 0.000000E+00 3.091214E-01 2.197711E-01 0.000000E+00 0.000000E+00 0 1040 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 2.805060E-02 3.085883E-03 0.000000E+00 0.000000E+00 2.672477E-01 2.940026E-02 0.000000E+00 0.000000E+00 0 1041 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.601362E-03 1.499078E-02 0.000000E+00 0.000000E+00 6.289344E-02 1.428223E-01 0.000000E+00 0.000000E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 M 0.0 0.0 0 2.500000E-01 M 3.114450E-01 4.323355E-01 0 5.000000E-01 M 1.629601E-01 1.017685E-01 0 7.500000E-01 M 8.968991E-02 3.065937E-02 0 1.000000E+00 M 5.423544E-02 9.671766E-03 0 1.250000E+00 M 3.534052E-02 2.171450E-03 0 1.500000E+00 M 2.425301E-02 -8.369849E-04 0 1.750000E+00 M 1.712413E-02 -2.090524E-03 0 2.000000E+00 M 1.202866E-02 -2.421402E-03 0 2.250000E+00 M 8.130451E-03 -1.584145E-03 0 2.500000E+00 M 6.707335E-03 4.801080E-04 0 2.750000E+00 M 7.574859E-03 6.491101E-04 0 3.000000E+00 M 8.033418E-03 -1.224297E-03 0 3.250000E+00 M 5.346889E-03 -4.514555E-03 0 3.500000E+00 M 1.872982E-03 -2.486753E-03 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 3.750000E+00 M 1.737488E-03 -1.073876E-03 0 4.000000E+00 M 1.747597E-03 -6.268192E-04 0 4.250000E+00 M 1.671045E-03 -4.479946E-04 0 4.500000E+00 M 1.554514E-03 -3.568822E-04 0 4.750000E+00 M 1.427856E-03 -3.006621E-04 0 5.000000E+00 M 1.304476E-03 -2.608735E-04 0 5.250000E+00 M 1.189762E-03 -2.300983E-04 0 5.500000E+00 M 1.085429E-03 -2.049874E-04 0 5.750000E+00 M 9.915426E-04 -1.838585E-04 0 6.000000E+00 M 9.074579E-04 -1.657727E-04 0 6.250000E+00 M 8.322669E-04 -1.501443E-04 0 6.500000E+00 M 7.650061E-04 -1.365720E-04 0 6.750000E+00 M 7.047513E-04 -1.247503E-04 0 7.000000E+00 M 6.506611E-04 -1.144363E-04 0 7.250000E+00 M 6.019893E-04 -1.054259E-04 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+00 M 5.580896E-04 -9.753803E-05 0 7.750000E+00 M 5.184174E-04 -9.062186E-05 0 8.000000E+00 M 4.825436E-04 -8.457301E-05 0 8.250000E+00 M 4.501078E-04 -7.946410E-05 0 8.500000E+00 M 4.203345E-04 -7.548278E-05 0 8.750000E+00 M 3.924955E-04 -7.185632E-05 0 9.000000E+00 M 3.669632E-04 -6.824667E-05 0 9.250000E+00 M 3.436472E-04 -6.489589E-05 0 9.500000E+00 M 3.222628E-04 -6.184547E-05 0 9.750000E+00 M 3.025868E-04 -5.904782E-05 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 2 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 M 0.0 0.0 0 2.500000E-01 M -1.020417E-02 -1.358562E-02 0 5.000000E-01 M -2.198427E-02 -1.249901E-02 0 7.500000E-01 M -2.867539E-02 -7.739765E-03 0 1.000000E+00 M -3.328894E-02 -2.687760E-03 0 1.250000E+00 M -3.767930E-02 2.816204E-03 0 1.500000E+00 M -4.284607E-02 9.970486E-03 0 1.750000E+00 M -4.917197E-02 2.139654E-02 0 2.000000E+00 M -5.429920E-02 4.303339E-02 0 2.250000E+00 M -4.121246E-02 8.200699E-02 0 2.500000E+00 M 1.978656E-02 1.001137E-01 0 2.750000E+00 M 6.149106E-02 5.837946E-02 0 3.000000E+00 M 6.617086E-02 1.728431E-02 0 3.250000E+00 M 4.328691E-02 -2.194090E-02 0 3.500000E+00 M 1.132768E-02 -1.295315E-02 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 2 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 3.750000E+00 M 8.053047E-03 -3.783827E-03 0 4.000000E+00 M 7.507435E-03 -1.265001E-03 0 4.250000E+00 M 6.879327E-03 -5.136989E-04 0 4.500000E+00 M 6.193020E-03 -2.675925E-04 0 4.750000E+00 M 5.536656E-03 -1.830470E-04 0 5.000000E+00 M 4.945181E-03 -1.532143E-04 0 5.250000E+00 M 4.425630E-03 -1.418638E-04 0 5.500000E+00 M 3.973910E-03 -1.362466E-04 0 5.750000E+00 M 3.582306E-03 -1.319923E-04 0 6.000000E+00 M 3.242557E-03 -1.278116E-04 0 6.250000E+00 M 2.947030E-03 -1.235187E-04 0 6.500000E+00 M 2.689070E-03 -1.193029E-04 0 6.750000E+00 M 2.463047E-03 -1.154322E-04 0 7.000000E+00 M 2.264263E-03 -1.122043E-04 0 7.250000E+00 M 2.088831E-03 -1.099666E-04 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 2 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+00 M 1.933516E-03 -1.092302E-04 0 7.750000E+00 M 1.795426E-03 -1.110078E-04 0 8.000000E+00 M 1.670859E-03 -1.172985E-04 0 8.250000E+00 M 1.551244E-03 -1.292021E-04 0 8.500000E+00 M 1.427606E-03 -1.318608E-04 0 8.750000E+00 M 1.322734E-03 -1.156306E-04 0 9.000000E+00 M 1.240222E-03 -1.028858E-04 0 9.250000E+00 M 1.167745E-03 -9.642880E-05 0 9.500000E+00 M 1.101493E-03 -9.301616E-05 0 9.750000E+00 M 1.040576E-03 -9.093717E-05 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 12 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 M 0.0 0.0 0 2.500000E-01 M -1.175835E-06 -1.685480E-06 0 5.000000E-01 M -2.497567E-06 -1.662873E-06 0 7.500000E-01 M -3.133872E-06 -1.219106E-06 0 1.000000E+00 M -3.428145E-06 -7.935174E-07 0 1.250000E+00 M -3.571089E-06 -4.162946E-07 0 1.500000E+00 M -3.631021E-06 -4.677236E-08 0 1.750000E+00 M -3.597116E-06 3.785961E-07 0 2.000000E+00 M -3.318364E-06 9.220487E-07 0 2.250000E+00 M -2.339189E-06 1.320135E-06 0 2.500000E+00 M -1.064916E-06 1.252695E-07 0 2.750000E+00 M -1.936275E-06 -1.784042E-06 0 3.000000E+00 M -4.402194E-06 -2.267188E-06 0 3.250000E+00 M -6.626625E-06 1.294211E-06 0 3.500000E+00 M -3.090225E-06 2.978114E-06 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 12 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 3.750000E+00 M -1.916620E-06 1.794110E-06 0 4.000000E+00 M -1.746473E-06 1.090984E-06 0 4.250000E+00 M -1.760633E-06 7.011125E-07 0 4.500000E+00 M -1.808437E-06 4.613964E-07 0 4.750000E+00 M -1.858034E-06 2.992472E-07 0 5.000000E+00 M -1.902610E-06 1.807258E-07 0 5.250000E+00 M -1.941446E-06 8.853200E-08 0 5.500000E+00 M -1.975335E-06 1.314276E-08 0 5.750000E+00 M -2.005331E-06 -5.102714E-08 0 6.000000E+00 M -2.032439E-06 -1.074393E-07 0 6.250000E+00 M -2.057573E-06 -1.583529E-07 0 6.500000E+00 M -2.081588E-06 -2.053134E-07 0 6.750000E+00 M -2.105380E-06 -2.494357E-07 0 7.000000E+00 M -2.130034E-06 -2.915218E-07 0 7.250000E+00 M -2.157094E-06 -3.320518E-07 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 12 C O M P L E X D I S P L A C E M E N T V E C T O R (SOLUTION SET) (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+00 M -2.189083E-06 -3.708340E-07 0 7.750000E+00 M -2.230408E-06 -4.054728E-07 0 8.000000E+00 M -2.287232E-06 -4.255896E-07 0 8.250000E+00 M -2.350083E-06 -3.993948E-07 0 8.500000E+00 M -2.336881E-06 -3.276002E-07 0 8.750000E+00 M -2.259446E-06 -3.396210E-07 0 9.000000E+00 M -2.228757E-06 -4.066948E-07 0 9.250000E+00 M -2.232742E-06 -4.721832E-07 0 9.500000E+00 M -2.251068E-06 -5.303115E-07 0 9.750000E+00 M -2.276633E-06 -5.843483E-07 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE S-DISPLACEMENT CURVE 1( 1) THIS CURVE WILL BE PAPER-PLOTTED FRAME 1 CURVE TITLE = FIRST MODE (PLUNGE) X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = MODAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 3.114450E-01 AT X = 2.500000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 3.114450E-01 AT X = 2.500000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE S-DISPLACEMENT CURVE 1( 7) THIS CURVE WILL BE PAPER-PLOTTED FRAME 1 CURVE TITLE = FIRST MODE (PLUNGE) X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = MODAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -4.514555E-03 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 4.323355E-01 AT X = 2.500000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -4.514555E-03 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 4.323355E-01 AT X = 2.500000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE S-DISPLACEMENT CURVE 2( 1) THIS CURVE WILL BE PAPER-PLOTTED FRAME 2 CURVE TITLE = SECOND MODE (WING BENDING) X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = MODAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -5.429920E-02 AT X = 2.000000E+00 THE LARGEST Y-VALUE = 6.617086E-02 AT X = 3.000000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -5.429920E-02 AT X = 2.000000E+00 THE LARGEST Y-VALUE = 6.617086E-02 AT X = 3.000000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE S-DISPLACEMENT CURVE 2( 7) THIS CURVE WILL BE PAPER-PLOTTED FRAME 2 CURVE TITLE = SECOND MODE (WING BENDING) X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = MODAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -2.194090E-02 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 1.001137E-01 AT X = 2.500000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -2.194090E-02 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 1.001137E-01 AT X = 2.500000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE S-DISPLACEMENT CURVE 12( 1) THIS CURVE WILL BE PAPER-PLOTTED FRAME 3 CURVE TITLE = TWELFTH MODE (AILERON) X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = MODAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -6.626625E-06 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -6.626625E-06 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE S-DISPLACEMENT CURVE 12( 7) THIS CURVE WILL BE PAPER-PLOTTED FRAME 3 CURVE TITLE = TWELFTH MODE (AILERON) X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = MODAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -2.267188E-06 AT X = 3.000000E+00 THE LARGEST Y-VALUE = 2.978114E-06 AT X = 3.500000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -2.267188E-06 AT X = 3.000000E+00 THE LARGEST Y-VALUE = 2.978114E-06 AT X = 3.500000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 0 F R A M E **** **** **** **** ** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** **** 0 FIRST MODE (PLUNGE) 0 X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE 0 +---------------------------------------------------------------------------------------------------------------------+ I I I MODAL DEFLECTION I I I I -9.999999E-02 2.000000E-01 5.000000E-01 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I 0 I I 2.5000E-01 I I * 0 I 5.0000E-01 I 0 * I I 7.5000E-01 I 0 * I I 1.0000E+00 I 0 * I I 1.2500E+00 I 0 * I I 1.5000E+00 I 0 * I I 1.7500E+00 I 0 * I I 2.0000E+00 I 0 * I I 2.2500E+00 I 0 * I I 2.5000E+00 I 0* I I 2.7500E+00 I 0* I I 3.0000E+00 I 0 * I I 3.2500E+00 I 0 * I I 3.5000E+00 I 0* I I 3.7500E+00 I 0* I I 4.0000E+00 I 0 I I 4.2500E+00 I 0 I I 4.5000E+00 I 0 I I 4.7500E+00 I 0 I I 5.0000E+00 I 0 I I 5.2500E+00 I 0 I I 5.5000E+00 I 0 I I 5.7500E+00 I 0 I I 6.0000E+00 I 0 I I 6.2500E+00 I 0 I I 6.5000E+00 I 0 I I 6.7500E+00 I 0 I I 7.0000E+00 I 0 I I 7.2500E+00 I 0 I I 1 7.5000E+00 I 0 I I 7.7500E+00 I 0 I I 8.0000E+00 I 0 I I 8.2500E+00 I 0 I I 8.5000E+00 I 0 I I 8.7500E+00 I 0 I I 9.0000E+00 I 0 I I 9.2500E+00 I 0 I I 9.5000E+00 I 0 I I 9.7500E+00 I 0 I I 1.0000E+01 I I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** **** 0 SECOND MODE (WING BENDING) 0 X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE 0 +---------------------------------------------------------------------------------------------------------------------+ I I I MODAL DEFLECTION I I I I -6.000000E-02 3.000000E-02 1.200000E-01 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I 0 I I 2.5000E-01 I 0 * I I 5.0000E-01 I * 0 I I 7.5000E-01 I * 0 I I 1.0000E+00 I * 0 I I 1.2500E+00 I * 0 I I 1.5000E+00 I * 0 I I 1.7500E+00 I * 0 I I 2.0000E+00 I * I 0 I 2.2500E+00 I * I 0 I 2.5000E+00 I * I 0 I 2.7500E+00 I I 0 * I 3.0000E+00 I 0 I * I 3.2500E+00 I 0 I * I 3.5000E+00 I 0 * I I 3.7500E+00 I 0 * I I 4.0000E+00 I 0 * I I 4.2500E+00 I 0 * I I 4.5000E+00 I 0 * I I 4.7500E+00 I 0 * I I 5.0000E+00 I 0 * I I 5.2500E+00 I 0 * I I 5.5000E+00 I 0 * I I 5.7500E+00 I 0 * I I 6.0000E+00 I 0 * I I 6.2500E+00 I 0 * I I 6.5000E+00 I 0 * I I 6.7500E+00 I 0 * I I 7.0000E+00 I 0 * I I 7.2500E+00 I 0 * I I 1 7.5000E+00 I 0 * I I 7.7500E+00 I 0 * I I 8.0000E+00 I 0* I I 8.2500E+00 I 0* I I 8.5000E+00 I 0* I I 8.7500E+00 I 0* I I 9.0000E+00 I 0* I I 9.2500E+00 I 0* I I 9.5000E+00 I 0* I I 9.7500E+00 I 0* I I 1.0000E+01 I I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * *** * * * * * * * * * **** **** **** **** **** 0 TWELFTH MODE (AILERON) 0 X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE 0 +---------------------------------------------------------------------------------------------------------------------+ I I I MODAL DEFLECTION I I I I -8.000000E-06 -2.000000E-06 4.000000E-06 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I I 0 I 2.5000E-01 I I 0 * I 5.0000E-01 I * I 0 I 7.5000E-01 I * I 0 I 1.0000E+00 I * I 0 I 1.2500E+00 I * I 0 I 1.5000E+00 I * I 0 I 1.7500E+00 I * I 0 I 2.0000E+00 I * I 0 I 2.2500E+00 I * I 0 I 2.5000E+00 I I * 0 I 2.7500E+00 I I*0 I 3.0000E+00 I * 0 I I 3.2500E+00 I * I 0 I 3.5000E+00 I * I 0 I 3.7500E+00 I I* 0 I 4.0000E+00 I I * 0 I 4.2500E+00 I I * 0 I 4.5000E+00 I I * 0 I 4.7500E+00 I I* 0 I 5.0000E+00 I I* 0 I 5.2500E+00 I I* 0 I 5.5000E+00 I * 0 I 5.7500E+00 I * 0 I 6.0000E+00 I * 0 I 6.2500E+00 I *I 0 I 6.5000E+00 I *I 0 I 6.7500E+00 I *I 0 I 7.0000E+00 I *I 0 I 7.2500E+00 I * I 0 I 1 7.5000E+00 I * I 0 I 7.7500E+00 I * I 0 I 8.0000E+00 I * I 0 I 8.2500E+00 I * I 0 I 8.5000E+00 I * I 0 I 8.7500E+00 I * I 0 I 9.0000E+00 I * I 0 I 9.2500E+00 I * I 0 I 9.5000E+00 I * I 0 I 9.7500E+00 I * I 0 I 1.0000E+01 I I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A SYMMETRIC RESPONSE , STIFF AILERON 0*** USER WARNING MESSAGE 2077, SDR2 OUTPUT DATA BLOCK NO. 2 IS PURGED 0*** USER WARNING MESSAGE 2078, SDR2 OUTPUT DATA BLOCK NO. 3 IS PURGED 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.500000E-01 G 0.0 0.0 3.126528E-01 0.0 0.0 0.0 0.0 0.0 4.339400E-01 0.0 0.0 0.0 0 5.000000E-01 G 0.0 0.0 1.655679E-01 0.0 0.0 0.0 0.0 0.0 1.032435E-01 0.0 0.0 0.0 0 7.500000E-01 G 0.0 0.0 9.310263E-02 0.0 0.0 0.0 0.0 0.0 3.156764E-02 0.0 0.0 0.0 0 1.000000E+00 G 0.0 0.0 5.821524E-02 0.0 0.0 0.0 0.0 0.0 9.973172E-03 0.0 0.0 0.0 0 1.250000E+00 G 0.0 0.0 3.987122E-02 0.0 0.0 0.0 0.0 0.0 1.802180E-03 0.0 0.0 0.0 0 1.500000E+00 G 0.0 0.0 2.944019E-02 0.0 0.0 0.0 0.0 0.0 -2.092698E-03 0.0 0.0 0.0 0 1.750000E+00 G 0.0 0.0 2.312076E-02 0.0 0.0 0.0 0.0 0.0 -4.783204E-03 0.0 0.0 0.0 0 2.000000E+00 G 0.0 0.0 1.868672E-02 0.0 0.0 0.0 0.0 0.0 -7.865692E-03 0.0 0.0 0.0 0 2.250000E+00 G 0.0 0.0 1.311415E-02 0.0 0.0 0.0 0.0 0.0 -1.202622E-02 0.0 0.0 0.0 0 2.500000E+00 G 0.0 0.0 3.804375E-03 0.0 0.0 0.0 0.0 0.0 -1.230903E-02 0.0 0.0 0.0 0 2.750000E+00 G 0.0 0.0 -8.311295E-04 0.0 0.0 0.0 0.0 0.0 -6.701591E-03 0.0 0.0 0.0 0 3.000000E+00 G 0.0 0.0 -1.098738E-03 0.0 0.0 0.0 0.0 0.0 -2.978356E-03 0.0 0.0 0.0 0 3.250000E+00 G 0.0 0.0 -3.313963E-04 0.0 0.0 0.0 0.0 0.0 -6.923027E-04 0.0 0.0 0.0 0 3.500000E+00 G 0.0 0.0 8.136989E-04 0.0 0.0 0.0 0.0 0.0 -3.665542E-04 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 3.750000E+00 G 0.0 0.0 9.681137E-04 0.0 0.0 0.0 0.0 0.0 -4.284996E-04 0.0 0.0 0.0 0 4.000000E+00 G 0.0 0.0 9.388528E-04 0.0 0.0 0.0 0.0 0.0 -3.910761E-04 0.0 0.0 0.0 0 4.250000E+00 G 0.0 0.0 8.766251E-04 0.0 0.0 0.0 0.0 0.0 -3.390794E-04 0.0 0.0 0.0 0 4.500000E+00 G 0.0 0.0 8.062983E-04 0.0 0.0 0.0 0.0 0.0 -2.919333E-04 0.0 0.0 0.0 0 4.750000E+00 G 0.0 0.0 7.358552E-04 0.0 0.0 0.0 0.0 0.0 -2.519622E-04 0.0 0.0 0.0 0 5.000000E+00 G 0.0 0.0 6.687205E-04 0.0 0.0 0.0 0.0 0.0 -2.183359E-04 0.0 0.0 0.0 0 5.250000E+00 G 0.0 0.0 6.063642E-04 0.0 0.0 0.0 0.0 0.0 -1.898850E-04 0.0 0.0 0.0 0 5.500000E+00 G 0.0 0.0 5.492695E-04 0.0 0.0 0.0 0.0 0.0 -1.656119E-04 0.0 0.0 0.0 0 5.750000E+00 G 0.0 0.0 4.974164E-04 0.0 0.0 0.0 0.0 0.0 -1.447319E-04 0.0 0.0 0.0 0 6.000000E+00 G 0.0 0.0 4.505382E-04 0.0 0.0 0.0 0.0 0.0 -1.266295E-04 0.0 0.0 0.0 0 6.250000E+00 G 0.0 0.0 4.082677E-04 0.0 0.0 0.0 0.0 0.0 -1.108096E-04 0.0 0.0 0.0 0 6.500000E+00 G 0.0 0.0 3.702226E-04 0.0 0.0 0.0 0.0 0.0 -9.686207E-05 0.0 0.0 0.0 0 6.750000E+00 G 0.0 0.0 3.360605E-04 0.0 0.0 0.0 0.0 0.0 -8.443289E-05 0.0 0.0 0.0 0 7.000000E+00 G 0.0 0.0 3.055331E-04 0.0 0.0 0.0 0.0 0.0 -7.321160E-05 0.0 0.0 0.0 0 7.250000E+00 G 0.0 0.0 2.785601E-04 0.0 0.0 0.0 0.0 0.0 -6.293232E-05 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 1 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+00 G 0.0 0.0 2.553794E-04 0.0 0.0 0.0 0.0 0.0 -5.343485E-05 0.0 0.0 0.0 0 7.750000E+00 G 0.0 0.0 2.368539E-04 0.0 0.0 0.0 0.0 0.0 -4.498876E-05 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 2.247913E-04 0.0 0.0 0.0 0.0 0.0 -3.971007E-05 0.0 0.0 0.0 0 8.250000E+00 G 0.0 0.0 2.185162E-04 0.0 0.0 0.0 0.0 0.0 -4.588740E-05 0.0 0.0 0.0 0 8.500000E+00 G 0.0 0.0 1.977264E-04 0.0 0.0 0.0 0.0 0.0 -6.832081E-05 0.0 0.0 0.0 0 8.750000E+00 G 0.0 0.0 1.571680E-04 0.0 0.0 0.0 0.0 0.0 -7.480077E-05 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.253172E-04 0.0 0.0 0.0 0.0 0.0 -6.559999E-05 0.0 0.0 0.0 0 9.250000E+00 G 0.0 0.0 1.023952E-04 0.0 0.0 0.0 0.0 0.0 -5.526184E-05 0.0 0.0 0.0 0 9.500000E+00 G 0.0 0.0 8.349407E-05 0.0 0.0 0.0 0.0 0.0 -4.645049E-05 0.0 0.0 0.0 0 9.750000E+00 G 0.0 0.0 6.634438E-05 0.0 0.0 0.0 0.0 0.0 -3.882693E-05 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 9 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.500000E-01 G 0.0 0.0 3.009413E-01 0.0 0.0 0.0 0.0 0.0 4.183691E-01 0.0 0.0 0.0 0 5.000000E-01 G 0.0 0.0 1.403604E-01 0.0 0.0 0.0 0.0 0.0 8.895625E-02 0.0 0.0 0.0 0 7.500000E-01 G 0.0 0.0 6.027050E-02 0.0 0.0 0.0 0.0 0.0 2.277595E-02 0.0 0.0 0.0 0 1.000000E+00 G 0.0 0.0 2.017875E-02 0.0 0.0 0.0 0.0 0.0 7.002943E-03 0.0 0.0 0.0 0 1.250000E+00 G 0.0 0.0 -3.064563E-03 0.0 0.0 0.0 0.0 0.0 5.151837E-03 0.0 0.0 0.0 0 1.500000E+00 G 0.0 0.0 -1.921153E-02 0.0 0.0 0.0 0.0 0.0 9.425146E-03 0.0 0.0 0.0 0 1.750000E+00 G 0.0 0.0 -3.246129E-02 0.0 0.0 0.0 0.0 0.0 1.968730E-02 0.0 0.0 0.0 0 2.000000E+00 G 0.0 0.0 -4.231660E-02 0.0 0.0 0.0 0.0 0.0 4.093817E-02 0.0 0.0 0.0 0 2.250000E+00 G 0.0 0.0 -3.269433E-02 0.0 0.0 0.0 0.0 0.0 8.016153E-02 0.0 0.0 0.0 0 2.500000E+00 G 0.0 0.0 2.626705E-02 0.0 0.0 0.0 0.0 0.0 9.916788E-02 0.0 0.0 0.0 0 2.750000E+00 G 0.0 0.0 6.722347E-02 0.0 0.0 0.0 0.0 0.0 5.774097E-02 0.0 0.0 0.0 0 3.000000E+00 G 0.0 0.0 7.123531E-02 0.0 0.0 0.0 0.0 0.0 1.630418E-02 0.0 0.0 0.0 0 3.250000E+00 G 0.0 0.0 4.715220E-02 0.0 0.0 0.0 0.0 0.0 -2.347680E-02 0.0 0.0 0.0 0 3.500000E+00 G 0.0 0.0 1.407226E-02 0.0 0.0 0.0 0.0 0.0 -1.402180E-02 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 9 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 3.750000E+00 G 0.0 0.0 1.037490E-02 0.0 0.0 0.0 0.0 0.0 -4.562517E-03 0.0 0.0 0.0 0 4.000000E+00 G 0.0 0.0 9.488233E-03 0.0 0.0 0.0 0.0 0.0 -1.930025E-03 0.0 0.0 0.0 0 4.250000E+00 G 0.0 0.0 8.558088E-03 0.0 0.0 0.0 0.0 0.0 -1.111525E-03 0.0 0.0 0.0 0 4.500000E+00 G 0.0 0.0 7.608646E-03 0.0 0.0 0.0 0.0 0.0 -8.150103E-04 0.0 0.0 0.0 0 4.750000E+00 G 0.0 0.0 6.724573E-03 0.0 0.0 0.0 0.0 0.0 -6.891829E-04 0.0 0.0 0.0 0 5.000000E+00 G 0.0 0.0 5.935688E-03 0.0 0.0 0.0 0.0 0.0 -6.248089E-04 0.0 0.0 0.0 0 5.250000E+00 G 0.0 0.0 5.243824E-03 0.0 0.0 0.0 0.0 0.0 -5.847552E-04 0.0 0.0 0.0 0 5.500000E+00 G 0.0 0.0 4.640140E-03 0.0 0.0 0.0 0.0 0.0 -5.558516E-04 0.0 0.0 0.0 0 5.750000E+00 G 0.0 0.0 4.112692E-03 0.0 0.0 0.0 0.0 0.0 -5.335125E-04 0.0 0.0 0.0 0 6.000000E+00 G 0.0 0.0 3.649385E-03 0.0 0.0 0.0 0.0 0.0 -5.163694E-04 0.0 0.0 0.0 0 6.250000E+00 G 0.0 0.0 3.238925E-03 0.0 0.0 0.0 0.0 0.0 -5.042846E-04 0.0 0.0 0.0 0 6.500000E+00 G 0.0 0.0 2.870847E-03 0.0 0.0 0.0 0.0 0.0 -4.976285E-04 0.0 0.0 0.0 0 6.750000E+00 G 0.0 0.0 2.535035E-03 0.0 0.0 0.0 0.0 0.0 -4.969482E-04 0.0 0.0 0.0 0 7.000000E+00 G 0.0 0.0 2.220727E-03 0.0 0.0 0.0 0.0 0.0 -5.027455E-04 0.0 0.0 0.0 0 7.250000E+00 G 0.0 0.0 1.914622E-03 0.0 0.0 0.0 0.0 0.0 -5.147865E-04 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 9 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+00 G 0.0 0.0 1.597114E-03 0.0 0.0 0.0 0.0 0.0 -5.295710E-04 0.0 0.0 0.0 0 7.750000E+00 G 0.0 0.0 1.235250E-03 0.0 0.0 0.0 0.0 0.0 -5.304604E-04 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 7.800313E-04 0.0 0.0 0.0 0.0 0.0 -4.485172E-04 0.0 0.0 0.0 0 8.250000E+00 G 0.0 0.0 2.749205E-04 0.0 0.0 0.0 0.0 0.0 -6.191623E-05 0.0 0.0 0.0 0 8.500000E+00 G 0.0 0.0 2.702591E-04 0.0 0.0 0.0 0.0 0.0 6.771376E-04 0.0 0.0 0.0 0 8.750000E+00 G 0.0 0.0 7.650936E-04 0.0 0.0 0.0 0.0 0.0 8.970996E-04 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 9.989027E-04 0.0 0.0 0.0 0.0 0.0 7.269410E-04 0.0 0.0 0.0 0 9.250000E+00 G 0.0 0.0 1.019709E-03 0.0 0.0 0.0 0.0 0.0 5.573369E-04 0.0 0.0 0.0 0 9.500000E+00 G 0.0 0.0 9.624558E-04 0.0 0.0 0.0 0.0 0.0 4.428867E-04 0.0 0.0 0.0 0 9.750000E+00 G 0.0 0.0 8.795383E-04 0.0 0.0 0.0 0.0 0.0 3.700672E-04 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 10 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.500000E-01 G 0.0 0.0 3.018999E-01 0.0 0.0 0.0 0.0 0.0 4.196384E-01 0.0 0.0 0.0 0 5.000000E-01 G 0.0 0.0 1.423565E-01 0.0 0.0 0.0 0.0 0.0 9.007952E-02 0.0 0.0 0.0 0 7.500000E-01 G 0.0 0.0 6.274033E-02 0.0 0.0 0.0 0.0 0.0 2.343099E-02 0.0 0.0 0.0 0 1.000000E+00 G 0.0 0.0 2.282928E-02 0.0 0.0 0.0 0.0 0.0 7.214994E-03 0.0 0.0 0.0 0 1.250000E+00 G 0.0 0.0 -3.820162E-04 0.0 0.0 0.0 0.0 0.0 4.977893E-03 0.0 0.0 0.0 0 1.500000E+00 G 0.0 0.0 -1.660451E-02 0.0 0.0 0.0 0.0 0.0 8.913625E-03 0.0 0.0 0.0 0 1.750000E+00 G 0.0 0.0 -3.005930E-02 0.0 0.0 0.0 0.0 0.0 1.890371E-02 0.0 0.0 0.0 0 2.000000E+00 G 0.0 0.0 -4.031666E-02 0.0 0.0 0.0 0.0 0.0 4.008904E-02 0.0 0.0 0.0 0 2.250000E+00 G 0.0 0.0 -3.110466E-02 0.0 0.0 0.0 0.0 0.0 7.998531E-02 0.0 0.0 0.0 0 2.500000E+00 G 0.0 0.0 2.912802E-02 0.0 0.0 0.0 0.0 0.0 1.003403E-01 0.0 0.0 0.0 0 2.750000E+00 G 0.0 0.0 7.294210E-02 0.0 0.0 0.0 0.0 0.0 5.793918E-02 0.0 0.0 0.0 0 3.000000E+00 G 0.0 0.0 7.893202E-02 0.0 0.0 0.0 0.0 0.0 1.231949E-02 0.0 0.0 0.0 0 3.250000E+00 G 0.0 0.0 4.912619E-02 0.0 0.0 0.0 0.0 0.0 -3.429494E-02 0.0 0.0 0.0 0 3.500000E+00 G 0.0 0.0 9.818899E-03 0.0 0.0 0.0 0.0 0.0 -1.886165E-02 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 10 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 3.750000E+00 G 0.0 0.0 7.504333E-03 0.0 0.0 0.0 0.0 0.0 -6.016524E-03 0.0 0.0 0.0 0 4.000000E+00 G 0.0 0.0 7.836235E-03 0.0 0.0 0.0 0.0 0.0 -2.426225E-03 0.0 0.0 0.0 0 4.250000E+00 G 0.0 0.0 7.647485E-03 0.0 0.0 0.0 0.0 0.0 -1.292309E-03 0.0 0.0 0.0 0 4.500000E+00 G 0.0 0.0 7.165889E-03 0.0 0.0 0.0 0.0 0.0 -8.835110E-04 0.0 0.0 0.0 0 4.750000E+00 G 0.0 0.0 6.594483E-03 0.0 0.0 0.0 0.0 0.0 -7.213202E-04 0.0 0.0 0.0 0 5.000000E+00 G 0.0 0.0 6.025096E-03 0.0 0.0 0.0 0.0 0.0 -6.520180E-04 0.0 0.0 0.0 0 5.250000E+00 G 0.0 0.0 5.493636E-03 0.0 0.0 0.0 0.0 0.0 -6.207235E-04 0.0 0.0 0.0 0 5.500000E+00 G 0.0 0.0 5.011145E-03 0.0 0.0 0.0 0.0 0.0 -6.065614E-04 0.0 0.0 0.0 0 5.750000E+00 G 0.0 0.0 4.577909E-03 0.0 0.0 0.0 0.0 0.0 -6.014505E-04 0.0 0.0 0.0 0 6.000000E+00 G 0.0 0.0 4.189701E-03 0.0 0.0 0.0 0.0 0.0 -6.024435E-04 0.0 0.0 0.0 0 6.250000E+00 G 0.0 0.0 3.840476E-03 0.0 0.0 0.0 0.0 0.0 -6.087497E-04 0.0 0.0 0.0 0 6.500000E+00 G 0.0 0.0 3.523374E-03 0.0 0.0 0.0 0.0 0.0 -6.205646E-04 0.0 0.0 0.0 0 6.750000E+00 G 0.0 0.0 3.230802E-03 0.0 0.0 0.0 0.0 0.0 -6.385186E-04 0.0 0.0 0.0 0 7.000000E+00 G 0.0 0.0 2.953760E-03 0.0 0.0 0.0 0.0 0.0 -6.633633E-04 0.0 0.0 0.0 0 7.250000E+00 G 0.0 0.0 2.680114E-03 0.0 0.0 0.0 0.0 0.0 -6.952455E-04 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 10 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+00 G 0.0 0.0 2.390814E-03 0.0 0.0 0.0 0.0 0.0 -7.311609E-04 0.0 0.0 0.0 0 7.750000E+00 G 0.0 0.0 2.052518E-03 0.0 0.0 0.0 0.0 0.0 -7.549815E-04 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 1.613934E-03 0.0 0.0 0.0 0.0 0.0 -6.972880E-04 0.0 0.0 0.0 0 8.250000E+00 G 0.0 0.0 1.114805E-03 0.0 0.0 0.0 0.0 0.0 -3.294027E-04 0.0 0.0 0.0 0 8.500000E+00 G 0.0 0.0 1.119566E-03 0.0 0.0 0.0 0.0 0.0 4.111269E-04 0.0 0.0 0.0 0 8.750000E+00 G 0.0 0.0 1.649132E-03 0.0 0.0 0.0 0.0 0.0 6.290962E-04 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.919704E-03 0.0 0.0 0.0 0.0 0.0 4.379462E-04 0.0 0.0 0.0 0 9.250000E+00 G 0.0 0.0 1.971277E-03 0.0 0.0 0.0 0.0 0.0 2.397888E-04 0.0 0.0 0.0 0 9.500000E+00 G 0.0 0.0 1.941347E-03 0.0 0.0 0.0 0.0 0.0 9.371209E-05 0.0 0.0 0.0 0 9.750000E+00 G 0.0 0.0 1.884305E-03 0.0 0.0 0.0 0.0 0.0 -1.321323E-05 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.500000E-01 G 0.0 0.0 3.132168E-01 0.0 0.0 0.0 0.0 0.0 4.346990E-01 0.0 0.0 0.0 0 5.000000E-01 G 0.0 0.0 1.667741E-01 0.0 0.0 0.0 0.0 0.0 1.039466E-01 0.0 0.0 0.0 0 7.500000E-01 G 0.0 0.0 9.465816E-02 0.0 0.0 0.0 0.0 0.0 3.201625E-02 0.0 0.0 0.0 0 1.000000E+00 G 0.0 0.0 5.999244E-02 0.0 0.0 0.0 0.0 0.0 1.016093E-02 0.0 0.0 0.0 0 1.250000E+00 G 0.0 0.0 4.184164E-02 0.0 0.0 0.0 0.0 0.0 1.722401E-03 0.0 0.0 0.0 0 1.500000E+00 G 0.0 0.0 3.162564E-02 0.0 0.0 0.0 0.0 0.0 -2.495179E-03 0.0 0.0 0.0 0 1.750000E+00 G 0.0 0.0 2.556290E-02 0.0 0.0 0.0 0.0 0.0 -5.666076E-03 0.0 0.0 0.0 0 2.000000E+00 G 0.0 0.0 2.134022E-02 0.0 0.0 0.0 0.0 0.0 -9.611267E-03 0.0 0.0 0.0 0 2.250000E+00 G 0.0 0.0 1.530139E-02 0.0 0.0 0.0 0.0 0.0 -1.527301E-02 0.0 0.0 0.0 0 2.500000E+00 G 0.0 0.0 3.802375E-03 0.0 0.0 0.0 0.0 0.0 -1.626125E-02 0.0 0.0 0.0 0 2.750000E+00 G 0.0 0.0 -2.172605E-03 0.0 0.0 0.0 0.0 0.0 -9.264422E-03 0.0 0.0 0.0 0 3.000000E+00 G 0.0 0.0 -2.415164E-03 0.0 0.0 0.0 0.0 0.0 -4.597685E-03 0.0 0.0 0.0 0 3.250000E+00 G 0.0 0.0 -1.798836E-03 0.0 0.0 0.0 0.0 0.0 -1.841834E-03 0.0 0.0 0.0 0 3.500000E+00 G 0.0 0.0 -4.281405E-04 0.0 0.0 0.0 0.0 0.0 -7.824706E-04 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 3.750000E+00 G 0.0 0.0 1.053879E-04 0.0 0.0 0.0 0.0 0.0 -6.167864E-04 0.0 0.0 0.0 0 4.000000E+00 G 0.0 0.0 3.078543E-04 0.0 0.0 0.0 0.0 0.0 -5.074815E-04 0.0 0.0 0.0 0 4.250000E+00 G 0.0 0.0 3.969777E-04 0.0 0.0 0.0 0.0 0.0 -4.243806E-04 0.0 0.0 0.0 0 4.500000E+00 G 0.0 0.0 4.331501E-04 0.0 0.0 0.0 0.0 0.0 -3.619891E-04 0.0 0.0 0.0 0 4.750000E+00 G 0.0 0.0 4.413634E-04 0.0 0.0 0.0 0.0 0.0 -3.144711E-04 0.0 0.0 0.0 0 5.000000E+00 G 0.0 0.0 4.342487E-04 0.0 0.0 0.0 0.0 0.0 -2.775058E-04 0.0 0.0 0.0 0 5.250000E+00 G 0.0 0.0 4.187517E-04 0.0 0.0 0.0 0.0 0.0 -2.482067E-04 0.0 0.0 0.0 0 5.500000E+00 G 0.0 0.0 3.988253E-04 0.0 0.0 0.0 0.0 0.0 -2.246745E-04 0.0 0.0 0.0 0 5.750000E+00 G 0.0 0.0 3.767323E-04 0.0 0.0 0.0 0.0 0.0 -2.056469E-04 0.0 0.0 0.0 0 6.000000E+00 G 0.0 0.0 3.537278E-04 0.0 0.0 0.0 0.0 0.0 -1.902731E-04 0.0 0.0 0.0 0 6.250000E+00 G 0.0 0.0 3.304289E-04 0.0 0.0 0.0 0.0 0.0 -1.779745E-04 0.0 0.0 0.0 0 6.500000E+00 G 0.0 0.0 3.070054E-04 0.0 0.0 0.0 0.0 0.0 -1.683607E-04 0.0 0.0 0.0 0 6.750000E+00 G 0.0 0.0 2.832436E-04 0.0 0.0 0.0 0.0 0.0 -1.611669E-04 0.0 0.0 0.0 0 7.000000E+00 G 0.0 0.0 2.584943E-04 0.0 0.0 0.0 0.0 0.0 -1.561934E-04 0.0 0.0 0.0 0 7.250000E+00 G 0.0 0.0 2.314419E-04 0.0 0.0 0.0 0.0 0.0 -1.531656E-04 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 11 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+00 G 0.0 0.0 1.995546E-04 0.0 0.0 0.0 0.0 0.0 -1.512799E-04 0.0 0.0 0.0 0 7.750000E+00 G 0.0 0.0 1.580092E-04 0.0 0.0 0.0 0.0 0.0 -1.475193E-04 0.0 0.0 0.0 0 8.000000E+00 G 0.0 0.0 9.947665E-05 0.0 0.0 0.0 0.0 0.0 -1.301298E-04 0.0 0.0 0.0 0 8.250000E+00 G 0.0 0.0 3.267134E-05 0.0 0.0 0.0 0.0 0.0 -6.246080E-05 0.0 0.0 0.0 0 8.500000E+00 G 0.0 0.0 4.953140E-05 0.0 0.0 0.0 0.0 0.0 6.066748E-05 0.0 0.0 0.0 0 8.750000E+00 G 0.0 0.0 1.457813E-04 0.0 0.0 0.0 0.0 0.0 9.455163E-05 0.0 0.0 0.0 0 9.000000E+00 G 0.0 0.0 1.960439E-04 0.0 0.0 0.0 0.0 0.0 6.442404E-05 0.0 0.0 0.0 0 9.250000E+00 G 0.0 0.0 2.104976E-04 0.0 0.0 0.0 0.0 0.0 3.487308E-05 0.0 0.0 0.0 0 9.500000E+00 G 0.0 0.0 2.120532E-04 0.0 0.0 0.0 0.0 0.0 1.422042E-05 0.0 0.0 0.0 0 9.750000E+00 G 0.0 0.0 2.095843E-04 0.0 0.0 0.0 0.0 0.0 -1.413049E-07 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 12 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.500000E-01 G 0.0 0.0 3.062985E-01 0.0 -1.175835E-06 0.0 0.0 0.0 4.254776E-01 0.0 -1.685480E-06 0.0 0 5.000000E-01 G 0.0 0.0 1.517886E-01 0.0 -2.497567E-06 0.0 0.0 0.0 9.540812E-02 0.0 -1.662873E-06 0.0 0 7.500000E-01 G 0.0 0.0 7.495934E-02 0.0 -3.133872E-06 0.0 0.0 0.0 2.667905E-02 0.0 -1.219106E-06 0.0 0 1.000000E+00 G 0.0 0.0 3.687748E-02 0.0 -3.428145E-06 0.0 0.0 0.0 8.285180E-03 0.0 -7.935174E-07 0.0 0 1.250000E+00 G 0.0 0.0 1.531508E-02 0.0 -3.571089E-06 0.0 0.0 0.0 3.731316E-03 0.0 -4.162946E-07 0.0 0 1.500000E+00 G 0.0 0.0 9.528095E-04 0.0 -3.631021E-06 0.0 0.0 0.0 4.757681E-03 0.0 -4.677236E-08 0.0 0 1.750000E+00 G 0.0 0.0 -1.031635E-02 0.0 -3.597116E-06 0.0 0.0 0.0 1.028089E-02 0.0 3.785961E-07 0.0 0 2.000000E+00 G 0.0 0.0 -1.901574E-02 0.0 -3.318364E-06 0.0 0.0 0.0 2.333876E-02 0.0 9.220487E-07 0.0 0 2.250000E+00 G 0.0 0.0 -1.511369E-02 0.0 -2.339189E-06 0.0 0.0 0.0 4.924252E-02 0.0 1.320135E-06 0.0 0 2.500000E+00 G 0.0 0.0 2.324158E-02 0.0 -1.064916E-06 0.0 0.0 0.0 6.407001E-02 0.0 1.252695E-07 0.0 0 2.750000E+00 G 0.0 0.0 5.378950E-02 0.0 -1.936275E-06 0.0 0.0 0.0 3.669604E-02 0.0 -1.784042E-06 0.0 0 3.000000E+00 G 0.0 0.0 5.971932E-02 0.0 -4.402194E-06 0.0 0.0 0.0 3.325148E-03 0.0 -2.267188E-06 0.0 0 3.250000E+00 G 0.0 0.0 3.438508E-02 0.0 -6.626625E-06 0.0 0.0 0.0 -3.393329E-02 0.0 1.294211E-06 0.0 0 3.500000E+00 G 0.0 0.0 2.217485E-03 0.0 -3.090225E-06 0.0 0.0 0.0 -1.754100E-02 0.0 2.978114E-06 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 12 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 3.750000E+00 G 0.0 0.0 2.097643E-03 0.0 -1.916620E-06 0.0 0.0 0.0 -5.552955E-03 0.0 1.794110E-06 0.0 0 4.000000E+00 G 0.0 0.0 3.539018E-03 0.0 -1.746473E-06 0.0 0.0 0.0 -2.157957E-03 0.0 1.090984E-06 0.0 0 4.250000E+00 G 0.0 0.0 4.146873E-03 0.0 -1.760633E-06 0.0 0.0 0.0 -1.050269E-03 0.0 7.011125E-07 0.0 0 4.500000E+00 G 0.0 0.0 4.282755E-03 0.0 -1.808437E-06 0.0 0.0 0.0 -6.360663E-04 0.0 4.613964E-07 0.0 0 4.750000E+00 G 0.0 0.0 4.203037E-03 0.0 -1.858034E-06 0.0 0.0 0.0 -4.671465E-04 0.0 2.992472E-07 0.0 0 5.000000E+00 G 0.0 0.0 4.032369E-03 0.0 -1.902610E-06 0.0 0.0 0.0 -3.949342E-04 0.0 1.807258E-07 0.0 0 5.250000E+00 G 0.0 0.0 3.829579E-03 0.0 -1.941446E-06 0.0 0.0 0.0 -3.639269E-04 0.0 8.853200E-08 0.0 0 5.500000E+00 G 0.0 0.0 3.622420E-03 0.0 -1.975335E-06 0.0 0.0 0.0 -3.516310E-04 0.0 1.314276E-08 0.0 0 5.750000E+00 G 0.0 0.0 3.423723E-03 0.0 -2.005331E-06 0.0 0.0 0.0 -3.484628E-04 0.0 -5.102714E-08 0.0 0 6.000000E+00 G 0.0 0.0 3.238982E-03 0.0 -2.032439E-06 0.0 0.0 0.0 -3.502611E-04 0.0 -1.074393E-07 0.0 0 6.250000E+00 G 0.0 0.0 3.070031E-03 0.0 -2.057573E-06 0.0 0.0 0.0 -3.552559E-04 0.0 -1.583529E-07 0.0 0 6.500000E+00 G 0.0 0.0 2.916852E-03 0.0 -2.081588E-06 0.0 0.0 0.0 -3.627972E-04 0.0 -2.053134E-07 0.0 0 6.750000E+00 G 0.0 0.0 2.778480E-03 0.0 -2.105380E-06 0.0 0.0 0.0 -3.727622E-04 0.0 -2.494357E-07 0.0 0 7.000000E+00 G 0.0 0.0 2.653396E-03 0.0 -2.130034E-06 0.0 0.0 0.0 -3.853291E-04 0.0 -2.915218E-07 0.0 0 7.250000E+00 G 0.0 0.0 2.539587E-03 0.0 -2.157094E-06 0.0 0.0 0.0 -4.008424E-04 0.0 -3.320518E-07 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 12 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+00 G 0.0 0.0 2.434230E-03 0.0 -2.189083E-06 0.0 0.0 0.0 -4.196159E-04 0.0 -3.708340E-07 0.0 0 7.750000E+00 G 0.0 0.0 2.332703E-03 0.0 -2.230408E-06 0.0 0.0 0.0 -4.412028E-04 0.0 -4.054728E-07 0.0 0 8.000000E+00 G 0.0 0.0 2.226948E-03 0.0 -2.287232E-06 0.0 0.0 0.0 -4.605359E-04 0.0 -4.255896E-07 0.0 0 8.250000E+00 G 0.0 0.0 2.112692E-03 0.0 -2.350083E-06 0.0 0.0 0.0 -4.539641E-04 0.0 -3.993948E-07 0.0 0 8.500000E+00 G 0.0 0.0 2.042685E-03 0.0 -2.336881E-06 0.0 0.0 0.0 -3.969372E-04 0.0 -3.276002E-07 0.0 0 8.750000E+00 G 0.0 0.0 2.047908E-03 0.0 -2.259446E-06 0.0 0.0 0.0 -3.767279E-04 0.0 -3.396210E-07 0.0 0 9.000000E+00 G 0.0 0.0 2.047352E-03 0.0 -2.228757E-06 0.0 0.0 0.0 -4.081603E-04 0.0 -4.066948E-07 0.0 0 9.250000E+00 G 0.0 0.0 2.031447E-03 0.0 -2.232742E-06 0.0 0.0 0.0 -4.506852E-04 0.0 -4.721832E-07 0.0 0 9.500000E+00 G 0.0 0.0 2.011524E-03 0.0 -2.251068E-06 0.0 0.0 0.0 -4.943162E-04 0.0 -5.303115E-07 0.0 0 9.750000E+00 G 0.0 0.0 1.993217E-03 0.0 -2.276633E-06 0.0 0.0 0.0 -5.389154E-04 0.0 -5.843483E-07 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 1040 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.500000E-01 G 0.0 0.0 -2.992280E-01 0.0 1.735123E-05 0.0 0.0 0.0 -4.160938E-01 0.0 2.297862E-05 0.0 0 5.000000E-01 G 0.0 0.0 -1.366840E-01 0.0 3.612933E-05 0.0 0.0 0.0 -8.687768E-02 0.0 2.033058E-05 0.0 0 7.500000E-01 G 0.0 0.0 -5.550395E-02 0.0 4.470300E-05 0.0 0.0 0.0 -2.150752E-02 0.0 1.185607E-05 0.0 0 1.000000E+00 G 0.0 0.0 -1.469250E-02 0.0 4.797371E-05 0.0 0.0 0.0 -6.585336E-03 0.0 3.838031E-06 0.0 0 1.250000E+00 G 0.0 0.0 9.204414E-03 0.0 4.855292E-05 0.0 0.0 0.0 -5.644580E-03 0.0 -3.148281E-06 0.0 0 1.500000E+00 G 0.0 0.0 2.609339E-02 0.0 4.718597E-05 0.0 0.0 0.0 -1.107079E-02 0.0 -9.258281E-06 0.0 0 1.750000E+00 G 0.0 0.0 4.021861E-02 0.0 4.347501E-05 0.0 0.0 0.0 -2.312014E-02 0.0 -1.418262E-05 0.0 0 2.000000E+00 G 0.0 0.0 5.069509E-02 0.0 3.619793E-05 0.0 0.0 0.0 -4.765252E-02 0.0 -1.536871E-05 0.0 0 2.250000E+00 G 0.0 0.0 3.888470E-02 0.0 2.877228E-05 0.0 0.0 0.0 -9.257004E-02 0.0 -3.189647E-06 0.0 0 2.500000E+00 G 0.0 0.0 -2.911924E-02 0.0 5.178231E-05 0.0 0.0 0.0 -1.138319E-01 0.0 2.122064E-05 0.0 0 2.750000E+00 G 0.0 0.0 -7.573327E-02 0.0 1.035047E-04 0.0 0.0 0.0 -6.609556E-02 0.0 3.587577E-06 0.0 0 3.000000E+00 G 0.0 0.0 -7.996145E-02 0.0 1.393072E-04 0.0 0.0 0.0 -1.905856E-02 0.0 -7.212107E-05 0.0 0 3.250000E+00 G 0.0 0.0 -5.303321E-02 0.0 3.572829E-05 0.0 0.0 0.0 2.549811E-02 0.0 -1.958035E-04 0.0 0 3.500000E+00 G 0.0 0.0 -1.612052E-02 0.0 -7.698398E-05 0.0 0.0 0.0 1.534963E-02 0.0 -8.759919E-05 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 1040 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 3.750000E+00 G 0.0 0.0 -1.180272E-02 0.0 -5.195603E-05 0.0 0.0 0.0 4.986625E-03 0.0 -2.631688E-05 0.0 0 4.000000E+00 G 0.0 0.0 -1.068063E-02 0.0 -2.990043E-05 0.0 0.0 0.0 2.117746E-03 0.0 -8.980996E-06 0.0 0 4.250000E+00 G 0.0 0.0 -9.556823E-03 0.0 -1.648147E-05 0.0 0.0 0.0 1.234375E-03 0.0 -3.272113E-06 0.0 0 4.500000E+00 G 0.0 0.0 -8.439226E-03 0.0 -8.013682E-06 0.0 0.0 0.0 9.184921E-04 0.0 -1.239827E-06 0.0 0 4.750000E+00 G 0.0 0.0 -7.411476E-03 0.0 -2.354566E-06 0.0 0.0 0.0 7.863673E-04 0.0 -5.816678E-07 0.0 0 5.000000E+00 G 0.0 0.0 -6.500649E-03 0.0 1.618247E-06 0.0 0.0 0.0 7.195999E-04 0.0 -4.924701E-07 0.0 0 5.250000E+00 G 0.0 0.0 -5.705048E-03 0.0 4.521506E-06 0.0 0.0 0.0 6.784187E-04 0.0 -6.510083E-07 0.0 0 5.500000E+00 G 0.0 0.0 -5.012407E-03 0.0 6.715038E-06 0.0 0.0 0.0 6.489976E-04 0.0 -9.178216E-07 0.0 0 5.750000E+00 G 0.0 0.0 -4.407758E-03 0.0 8.420217E-06 0.0 0.0 0.0 6.267158E-04 0.0 -1.229646E-06 0.0 0 6.000000E+00 G 0.0 0.0 -3.876408E-03 0.0 9.779469E-06 0.0 0.0 0.0 6.103604E-04 0.0 -1.557898E-06 0.0 0 6.250000E+00 G 0.0 0.0 -3.404767E-03 0.0 1.088781E-05 0.0 0.0 0.0 6.000073E-04 0.0 -1.890767E-06 0.0 0 6.500000E+00 G 0.0 0.0 -2.980232E-03 0.0 1.181046E-05 0.0 0.0 0.0 5.962630E-04 0.0 -2.225083E-06 0.0 0 6.750000E+00 G 0.0 0.0 -2.590468E-03 0.0 1.259307E-05 0.0 0.0 0.0 5.999142E-04 0.0 -2.562356E-06 0.0 0 7.000000E+00 G 0.0 0.0 -2.222039E-03 0.0 1.326758E-05 0.0 0.0 0.0 6.116452E-04 0.0 -2.907106E-06 0.0 0 7.250000E+00 G 0.0 0.0 -1.857850E-03 0.0 1.385506E-05 0.0 0.0 0.0 6.310977E-04 0.0 -3.266220E-06 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 1040 C O M P L E X D I S P L A C E M E N T V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+00 G 0.0 0.0 -1.472032E-03 0.0 1.436561E-05 0.0 0.0 0.0 6.533819E-04 0.0 -3.648680E-06 0.0 0 7.750000E+00 G 0.0 0.0 -1.020436E-03 0.0 1.479220E-05 0.0 0.0 0.0 6.554936E-04 0.0 -4.063725E-06 0.0 0 8.000000E+00 G 0.0 0.0 -4.373197E-04 0.0 1.509328E-05 0.0 0.0 0.0 5.427140E-04 0.0 -4.502636E-06 0.0 0 8.250000E+00 G 0.0 0.0 2.152092E-04 0.0 1.520156E-05 0.0 0.0 0.0 1.197841E-05 0.0 -4.841387E-06 0.0 0 8.500000E+00 G 0.0 0.0 1.831635E-04 0.0 1.537209E-05 0.0 0.0 0.0 -9.968827E-04 0.0 -4.814682E-06 0.0 0 8.750000E+00 G 0.0 0.0 -5.243518E-04 0.0 1.600071E-05 0.0 0.0 0.0 -1.291218E-03 0.0 -4.850751E-06 0.0 0 9.000000E+00 G 0.0 0.0 -8.681878E-04 0.0 1.666609E-05 0.0 0.0 0.0 -1.054609E-03 0.0 -5.230687E-06 0.0 0 9.250000E+00 G 0.0 0.0 -9.179890E-04 0.0 1.722295E-05 0.0 0.0 0.0 -8.211488E-04 0.0 -5.747487E-06 0.0 0 9.500000E+00 G 0.0 0.0 -8.591309E-04 0.0 1.771748E-05 0.0 0.0 0.0 -6.642584E-04 0.0 -6.319910E-06 0.0 0 9.750000E+00 G 0.0 0.0 -7.633464E-04 0.0 1.818583E-05 0.0 0.0 0.0 -5.649246E-04 0.0 -6.937209E-06 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 11 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.500000E-01 G 0.0 0.0 0.0 8.462132E+03 -1.340444E+03 7.182308E+03 0.0 0.0 0.0 1.135478E+04 -1.795752E+03 9.602159E+03 0 5.000000E-01 G 0.0 0.0 0.0 1.820879E+04 -2.804113E+03 1.547514E+04 0.0 0.0 0.0 1.053625E+04 -1.620926E+03 8.881257E+03 0 7.500000E-01 G 0.0 0.0 0.0 2.369398E+04 -3.503784E+03 2.018462E+04 0.0 0.0 0.0 6.691285E+03 -9.997816E+02 5.582648E+03 0 1.000000E+00 G 0.0 0.0 0.0 2.741576E+04 -3.818389E+03 2.343201E+04 0.0 0.0 0.0 2.652799E+03 -4.126063E+02 2.093669E+03 0 1.250000E+00 G 0.0 0.0 0.0 3.090958E+04 -3.954559E+03 2.652622E+04 0.0 0.0 0.0 -1.671904E+03 9.662432E+01 -1.685561E+03 0 1.500000E+00 G 0.0 0.0 0.0 3.500591E+04 -3.982542E+03 3.018110E+04 0.0 0.0 0.0 -7.201257E+03 5.400986E+02 -6.576491E+03 0 1.750000E+00 G 0.0 0.0 0.0 4.006509E+04 -3.899979E+03 3.470022E+04 0.0 0.0 0.0 -1.594686E+04 8.981782E+02 -1.438227E+04 0 2.000000E+00 G 0.0 0.0 0.0 4.440654E+04 -3.676129E+03 3.854909E+04 0.0 0.0 0.0 -3.249594E+04 1.003777E+03 -2.921896E+04 0 2.250000E+00 G 0.0 0.0 0.0 3.519350E+04 -3.668062E+03 3.015089E+04 0.0 0.0 0.0 -6.259009E+04 2.767292E+02 -5.621118E+04 0 2.500000E+00 G 0.0 0.0 0.0 -1.081591E+04 -5.995302E+03 -1.135186E+04 0.0 0.0 0.0 -7.763158E+04 -8.632272E+02 -6.954719E+04 0 2.750000E+00 G 0.0 0.0 0.0 -4.294112E+04 -1.025758E+04 -4.029500E+04 0.0 0.0 0.0 -4.694953E+04 1.488371E+03 -4.170321E+04 0 3.000000E+00 G 0.0 0.0 0.0 -4.679352E+04 -1.327096E+04 -4.381543E+04 0.0 0.0 0.0 -1.698288E+04 9.275810E+03 -1.431746E+04 0 3.250000E+00 G 0.0 0.0 0.0 -3.219282E+04 -1.624763E+03 -2.993898E+04 0.0 0.0 0.0 1.103026E+04 2.189741E+04 1.160191E+04 0 3.500000E+00 G 0.0 0.0 0.0 -9.940383E+03 1.025223E+04 -9.175410E+03 0.0 0.0 0.0 7.007556E+03 9.721934E+03 7.243281E+03 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 11 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 3.750000E+00 G 0.0 0.0 0.0 -6.789740E+03 7.414454E+03 -6.483723E+03 0.0 0.0 0.0 1.359090E+03 3.022335E+03 1.745933E+03 0 4.000000E+00 G 0.0 0.0 0.0 -5.892844E+03 4.992492E+03 -5.803404E+03 0.0 0.0 0.0 -1.685565E+02 1.084047E+03 2.442141E+02 0 4.250000E+00 G 0.0 0.0 0.0 -5.135996E+03 3.522676E+03 -5.196343E+03 0.0 0.0 0.0 -5.948411E+02 4.046397E+02 -1.876869E+02 0 4.500000E+00 G 0.0 0.0 0.0 -4.443180E+03 2.593564E+03 -4.616878E+03 0.0 0.0 0.0 -7.194379E+02 1.291837E+02 -3.213233E+02 0 4.750000E+00 G 0.0 0.0 0.0 -3.833496E+03 1.971183E+03 -4.095306E+03 0.0 0.0 0.0 -7.575144E+02 9.157261E+00 -3.657781E+02 0 5.000000E+00 G 0.0 0.0 0.0 -3.309915E+03 1.533777E+03 -3.641071E+03 0.0 0.0 0.0 -7.738340E+02 -4.350785E+01 -3.849103E+02 0 5.250000E+00 G 0.0 0.0 0.0 -2.865580E+03 1.214600E+03 -3.251615E+03 0.0 0.0 0.0 -7.892352E+02 -6.483321E+01 -3.997349E+02 0 5.500000E+00 G 0.0 0.0 0.0 -2.490964E+03 9.747090E+02 -2.920339E+03 0.0 0.0 0.0 -8.106160E+02 -7.111607E+01 -4.174016E+02 0 5.750000E+00 G 0.0 0.0 0.0 -2.177115E+03 7.901040E+02 -2.640218E+03 0.0 0.0 0.0 -8.403834E+02 -7.027665E+01 -4.404072E+02 0 6.000000E+00 G 0.0 0.0 0.0 -1.916982E+03 6.452802E+02 -2.405311E+03 0.0 0.0 0.0 -8.796973E+02 -6.635644E+01 -4.697950E+02 0 6.250000E+00 G 0.0 0.0 0.0 -1.706035E+03 5.298190E+02 -2.211442E+03 0.0 0.0 0.0 -9.296577E+02 -6.148084E+01 -5.063438E+02 0 6.500000E+00 G 0.0 0.0 0.0 -1.542894E+03 4.364668E+02 -2.056707E+03 0.0 0.0 0.0 -9.917339E+02 -5.678640E+01 -5.510018E+02 0 6.750000E+00 G 0.0 0.0 0.0 -1.430455E+03 3.599989E+02 -1.942291E+03 0.0 0.0 0.0 -1.067838E+03 -5.287743E+01 -6.050006E+02 0 7.000000E+00 G 0.0 0.0 0.0 -1.378290E+03 2.965043E+02 -1.874126E+03 0.0 0.0 0.0 -1.159867E+03 -5.006791E+01 -6.695430E+02 0 7.250000E+00 G 0.0 0.0 0.0 -1.407748E+03 2.428858E+02 -1.866402E+03 0.0 0.0 0.0 -1.267688E+03 -4.848632E+01 -7.444045E+02 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 96 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 POINT-ID = 11 C O M P L E X F O R C E S O F S I N G L E P O I N T C O N S T R A I N T (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 7.500000E+00 G 0.0 0.0 0.0 -1.562932E+03 1.964266E+02 -1.949126E+03 0.0 0.0 0.0 -1.381342E+03 -4.805186E+01 -8.225139E+02 0 7.750000E+00 G 0.0 0.0 0.0 -1.931924E+03 1.543158E+02 -2.182714E+03 0.0 0.0 0.0 -1.450357E+03 -4.813356E+01 -8.686384E+02 0 8.000000E+00 G 0.0 0.0 0.0 -2.654738E+03 1.133651E+02 -2.663138E+03 0.0 0.0 0.0 -1.262540E+03 -4.600669E+01 -7.354910E+02 0 8.250000E+00 G 0.0 0.0 0.0 -3.587109E+03 7.413447E+01 -3.288345E+03 0.0 0.0 0.0 -1.321157E+02 -3.269617E+01 5.113803E+01 0 8.500000E+00 G 0.0 0.0 0.0 -3.015852E+03 5.790603E+01 -2.872124E+03 0.0 0.0 0.0 2.088888E+03 -5.542829E+00 1.588773E+03 0 8.750000E+00 G 0.0 0.0 0.0 -9.336844E+02 6.521484E+01 -1.417066E+03 0.0 0.0 0.0 2.699689E+03 5.441346E-01 2.008365E+03 0 9.000000E+00 G 0.0 0.0 0.0 3.110637E+02 6.496008E+01 -5.471329E+02 0.0 0.0 0.0 2.095874E+03 -1.026402E+01 1.590476E+03 0 9.250000E+00 G 0.0 0.0 0.0 8.730125E+02 5.817813E+01 -1.518726E+02 0.0 0.0 0.0 1.485180E+03 -2.227331E+01 1.170542E+03 0 9.500000E+00 G 0.0 0.0 0.0 1.176743E+03 4.989185E+01 6.293475E+01 0.0 0.0 0.0 1.034345E+03 -3.316045E+01 8.628602E+02 0 9.750000E+00 G 0.0 0.0 0.0 1.391651E+03 4.195687E+01 2.142059E+02 0.0 0.0 0.0 6.981124E+02 -4.346574E+01 6.357991E+02 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 97 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 9( 3) THIS CURVE WILL BE PAPER-PLOTTED FRAME 4 CURVE TITLE = WING ( 3/4 CHORD , 1/4 CHORD , STA 458 ) X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -4.231660E-02 AT X = 2.000000E+00 THE LARGEST Y-VALUE = 3.009413E-01 AT X = 2.500000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -4.231660E-02 AT X = 2.000000E+00 THE LARGEST Y-VALUE = 3.009413E-01 AT X = 2.500000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 98 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 9( 9) THIS CURVE WILL BE PAPER-PLOTTED FRAME 4 CURVE TITLE = WING ( 3/4 CHORD , 1/4 CHORD , STA 458 ) X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -2.347680E-02 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 4.183691E-01 AT X = 2.500000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -2.347680E-02 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 4.183691E-01 AT X = 2.500000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 99 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 10( 3) THIS CURVE WILL BE PAPER-PLOTTED FRAME 4 CURVE TITLE = WING ( 3/4 CHORD , 1/4 CHORD , STA 458 ) X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -4.031666E-02 AT X = 2.000000E+00 THE LARGEST Y-VALUE = 3.018999E-01 AT X = 2.500000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -4.031666E-02 AT X = 2.000000E+00 THE LARGEST Y-VALUE = 3.018999E-01 AT X = 2.500000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 100 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 10( 9) THIS CURVE WILL BE PAPER-PLOTTED FRAME 4 CURVE TITLE = WING ( 3/4 CHORD , 1/4 CHORD , STA 458 ) X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -3.429494E-02 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 4.196384E-01 AT X = 2.500000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -3.429494E-02 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 4.196384E-01 AT X = 2.500000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 101 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 11( 3) THIS CURVE WILL BE PAPER-PLOTTED FRAME 5 CURVE TITLE = FUSELAGE PLUNGE X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -2.415164E-03 AT X = 3.000000E+00 THE LARGEST Y-VALUE = 3.132168E-01 AT X = 2.500000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -2.415164E-03 AT X = 3.000000E+00 THE LARGEST Y-VALUE = 3.132168E-01 AT X = 2.500000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 102 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 11( 9) THIS CURVE WILL BE PAPER-PLOTTED FRAME 5 CURVE TITLE = FUSELAGE PLUNGE X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -1.626125E-02 AT X = 2.500000E+00 THE LARGEST Y-VALUE = 4.346990E-01 AT X = 2.500000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -1.626125E-02 AT X = 2.500000E+00 THE LARGEST Y-VALUE = 4.346990E-01 AT X = 2.500000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 103 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 12( 5) THIS CURVE WILL BE PAPER-PLOTTED FRAME 6 CURVE TITLE = AILERON DEFLECTION X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -6.626625E-06 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -6.626625E-06 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 104 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 12(11) THIS CURVE WILL BE PAPER-PLOTTED FRAME 6 CURVE TITLE = AILERON DEFLECTION X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -2.267188E-06 AT X = 3.000000E+00 THE LARGEST Y-VALUE = 2.978114E-06 AT X = 3.500000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -2.267188E-06 AT X = 3.000000E+00 THE LARGEST Y-VALUE = 2.978114E-06 AT X = 3.500000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 105 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 1040( 5) THIS CURVE WILL BE PAPER-PLOTTED FRAME 7 CURVE TITLE = AERODYNAMIC BOX NEAR TIP , PITCH X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -7.698398E-05 AT X = 3.500000E+00 THE LARGEST Y-VALUE = 1.393072E-04 AT X = 3.000000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -7.698398E-05 AT X = 3.500000E+00 THE LARGEST Y-VALUE = 1.393072E-04 AT X = 3.000000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 106 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 1040(11) THIS CURVE WILL BE PAPER-PLOTTED FRAME 7 CURVE TITLE = AERODYNAMIC BOX NEAR TIP , PITCH X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -1.958035E-04 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 2.297862E-05 AT X = 2.500000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -1.958035E-04 AT X = 3.250000E+00 THE LARGEST Y-VALUE = 2.297862E-05 AT X = 2.500000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 107 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE S P C F CURVE 11( 6) THIS CURVE WILL BE PAPER-PLOTTED FRAME 8 CURVE TITLE = WING ROOT BENDING MOMENT X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = ROTATIONAL CONSTRAINTS THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -4.381543E+04 AT X = 3.000000E+00 THE LARGEST Y-VALUE = 3.854909E+04 AT X = 2.000000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -4.381543E+04 AT X = 3.000000E+00 THE LARGEST Y-VALUE = 3.854909E+04 AT X = 2.000000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 108 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE S P C F CURVE 11(12) THIS CURVE WILL BE PAPER-PLOTTED FRAME 8 CURVE TITLE = WING ROOT BENDING MOMENT X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE Y-AXIS TITLE = ROTATIONAL CONSTRAINTS THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -6.954719E+04 AT X = 2.500000E+00 THE LARGEST Y-VALUE = 1.160191E+04 AT X = 3.250000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = -6.954719E+04 AT X = 2.500000E+00 THE LARGEST Y-VALUE = 1.160191E+04 AT X = 3.250000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 109 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 0 F R A M E **** **** **** **** * * * * * * * * * * * * * * * * * * * * **** * * * * * * * * * **** **** **** **** * 0 WING ( 3/4 CHORD , 1/4 CHORD , STA 458 ) 0 X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE 0 +---------------------------------------------------------------------------------------------------------------------+ I I I PHYSICAL DEFLECTION I I I I -9.999999E-02 2.000000E-01 5.000000E-01 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I B I I 2.5000E-01 I I A B I 5.0000E-01 I B *A I I 7.5000E-01 I B A I I 1.0000E+00 I B A I I 1.2500E+00 I *AB I I 1.5000E+00 I A B0 I I 1.7500E+00 I *A B0 I I 2.0000E+00 I *A B I I 2.2500E+00 I *A B I I 2.5000E+00 I A B I I 2.7500E+00 I B *A I I 3.0000E+00 I B0 *A I I 3.2500E+00 I B 0 A I I 3.5000E+00 I B0 A I I 3.7500E+00 I B0 A* I I 4.0000E+00 I B A* I I 4.2500E+00 I B A I I 4.5000E+00 I B0A I I 4.7500E+00 I BA I I 5.0000E+00 I BA I I 5.2500E+00 I BA I I 5.5000E+00 I BA I I 5.7500E+00 I BA I I 6.0000E+00 I B I I 6.2500E+00 I B I I 6.5000E+00 I B I I 6.7500E+00 I B I I 7.0000E+00 I B I I 7.2500E+00 I B I I 1 7.5000E+00 I B I I 7.7500E+00 I B I I 8.0000E+00 I B I I 8.2500E+00 I B I I 8.5000E+00 I B I I 8.7500E+00 I B I I 9.0000E+00 I B I I 9.2500E+00 I B I I 9.5000E+00 I B I I 9.7500E+00 I B I I 1.0000E+01 I I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 110 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * **** * * * * * * * * * **** **** **** **** **** 0 FUSELAGE PLUNGE 0 X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE 0 +---------------------------------------------------------------------------------------------------------------------+ I I I PHYSICAL DEFLECTION I I I I -9.999999E-02 2.000000E-01 5.000000E-01 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I 0 I I 2.5000E-01 I I * 0 I 5.0000E-01 I 0 * I I 7.5000E-01 I 0 * I I 1.0000E+00 I 0 * I I 1.2500E+00 I 0 * I I 1.5000E+00 I 0 * I I 1.7500E+00 I 0 * I I 2.0000E+00 I 0 * I I 2.2500E+00 I 0 * I I 2.5000E+00 I 0 * I I 2.7500E+00 I 0* I I 3.0000E+00 I 0 I I 3.2500E+00 I 0 I I 3.5000E+00 I 0 I I 3.7500E+00 I 0 I I 4.0000E+00 I 0 I I 4.2500E+00 I 0 I I 4.5000E+00 I 0 I I 4.7500E+00 I 0 I I 5.0000E+00 I 0 I I 5.2500E+00 I 0 I I 5.5000E+00 I 0 I I 5.7500E+00 I 0 I I 6.0000E+00 I 0 I I 6.2500E+00 I 0 I I 6.5000E+00 I 0 I I 6.7500E+00 I 0 I I 7.0000E+00 I 0 I I 7.2500E+00 I 0 I I 1 7.5000E+00 I 0 I I 7.7500E+00 I 0 I I 8.0000E+00 I 0 I I 8.2500E+00 I 0 I I 8.5000E+00 I 0 I I 8.7500E+00 I 0 I I 9.0000E+00 I 0 I I 9.2500E+00 I 0 I I 9.5000E+00 I 0 I I 9.7500E+00 I 0 I I 1.0000E+01 I I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 111 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * **** * * * * * * * * * * **** **** **** **** **** 0 AILERON DEFLECTION 0 X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE 0 +---------------------------------------------------------------------------------------------------------------------+ I I I PHYSICAL DEFLECTION I I I I -8.000000E-06 -2.000000E-06 4.000000E-06 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I I 0 I 2.5000E-01 I I 0 * I 5.0000E-01 I * I 0 I 7.5000E-01 I * I 0 I 1.0000E+00 I * I 0 I 1.2500E+00 I * I 0 I 1.5000E+00 I * I 0 I 1.7500E+00 I * I 0 I 2.0000E+00 I * I 0 I 2.2500E+00 I * I 0 I 2.5000E+00 I I * 0 I 2.7500E+00 I I*0 I 3.0000E+00 I * 0 I I 3.2500E+00 I * I 0 I 3.5000E+00 I * I 0 I 3.7500E+00 I I* 0 I 4.0000E+00 I I * 0 I 4.2500E+00 I I * 0 I 4.5000E+00 I I * 0 I 4.7500E+00 I I* 0 I 5.0000E+00 I I* 0 I 5.2500E+00 I I* 0 I 5.5000E+00 I * 0 I 5.7500E+00 I * 0 I 6.0000E+00 I * 0 I 6.2500E+00 I *I 0 I 6.5000E+00 I *I 0 I 6.7500E+00 I *I 0 I 7.0000E+00 I *I 0 I 7.2500E+00 I * I 0 I 1 7.5000E+00 I * I 0 I 7.7500E+00 I * I 0 I 8.0000E+00 I * I 0 I 8.2500E+00 I * I 0 I 8.5000E+00 I * I 0 I 8.7500E+00 I * I 0 I 9.0000E+00 I * I 0 I 9.2500E+00 I * I 0 I 9.5000E+00 I * I 0 I 9.7500E+00 I * I 0 I 1.0000E+01 I I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 112 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** * 0 AERODYNAMIC BOX NEAR TIP , PITCH 0 X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE 0 +---------------------------------------------------------------------------------------------------------------------+ I I I PHYSICAL DEFLECTION I I I I -2.000000E-04 -2.500000E-05 1.500000E-04 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I I 0 I 2.5000E-01 I I * 0 I 5.0000E-01 I I 0 * I 7.5000E-01 I I 0 * I 1.0000E+00 I I 0 * I 1.2500E+00 I I 0 * I 1.5000E+00 I I 0 * I 1.7500E+00 I I 0 * I 2.0000E+00 I I 0 * I 2.2500E+00 I I 0 * I 2.5000E+00 I I 0 * I 2.7500E+00 I I 0 * I 3.0000E+00 I 0 I * I 3.2500E+00 I0 I * I 3.5000E+00 I 0 * I I 3.7500E+00 I * 0 I 4.0000E+00 I * I 0 I 4.2500E+00 I I * 0 I 4.5000E+00 I I * 0 I 4.7500E+00 I I 0 I 5.0000E+00 I I 0* I 5.2500E+00 I I 0 * I 5.5000E+00 I I 0 * I 5.7500E+00 I I 0 * I 6.0000E+00 I I 0 * I 6.2500E+00 I I 0 * I 6.5000E+00 I I 0 * I 6.7500E+00 I I 0 * I 7.0000E+00 I I 0 * I 7.2500E+00 I I 0 * I 1 7.5000E+00 I I 0 * I 7.7500E+00 I I 0 * I 8.0000E+00 I I 0 * I 8.2500E+00 I I 0 * I 8.5000E+00 I I 0 * I 8.7500E+00 I I 0 * I 9.0000E+00 I I 0 * I 9.2500E+00 I I 0 * I 9.5000E+00 I I 0 * I 9.7500E+00 I I 0 * I 1.0000E+01 I I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 113 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 RANDOM GUST ANALYSIS SUBCASE 1 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * * **** * * * * * * * * * * **** **** **** **** **** 0 WING ROOT BENDING MOMENT 0 X-AXIS TITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE 0 +---------------------------------------------------------------------------------------------------------------------+ I I I ROTATIONAL CONSTRAINTS I I I I -8.000000E+04 -2.000000E+04 4.000000E+04 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I I 0 I 2.5000E-01 I I * 0 I 5.0000E-01 I I 0 * I 7.5000E-01 I I 0 * I 1.0000E+00 I I 0 * I 1.2500E+00 I I 0 * I 1.5000E+00 I I 0 * I 1.7500E+00 I I 0 * I 2.0000E+00 I 0 I *I 2.2500E+00 I 0 I * I 2.5000E+00 I 0 I * I 2.7500E+00 I 0* I I 3.0000E+00 I * I 0 I 3.2500E+00 I * I 0 I 3.5000E+00 I I * 0 I 3.7500E+00 I I * 0 I 4.0000E+00 I I * 0 I 4.2500E+00 I I * 0 I 4.5000E+00 I I * 0 I 4.7500E+00 I I * 0 I 5.0000E+00 I I * 0 I 5.2500E+00 I I * 0 I 5.5000E+00 I I * 0 I 5.7500E+00 I I * 0 I 6.0000E+00 I I * 0 I 6.2500E+00 I I * 0 I 6.5000E+00 I I *0 I 6.7500E+00 I I *0 I 7.0000E+00 I I *0 I 7.2500E+00 I I *0 I 1 7.5000E+00 I I *0 I 7.7500E+00 I I *0 I 8.0000E+00 I I * 0 I 8.2500E+00 I I * 0 I 8.5000E+00 I I * 0 I 8.7500E+00 I I * 0 I 9.0000E+00 I I * 0 I 9.2500E+00 I I *0 I 9.5000E+00 I I *0 I 9.7500E+00 I I 0 I 1.0000E+01 I I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 114 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 SYMMETRIC RESPONSE , STIFF AILERON X Y - O U T P U T S U M M A R Y ROOT MEAN SQUARE VALUE = 3.099176E-01 FREQUENCY OF ZERO CROSSINGS (N ZERO) = 2.961935E-01 POWER-SPECTRAL-DENSITY-FUNCTION (PSDF) DISPLACEMENT CURVE 11( 3) THIS CURVE WILL BE PAPER-PLOTTED FRAME 9 CURVE TITLE = POWER SPECTRAL DENSITY FUNCTION X-AXIS TITLE = FREQUENCY (HERTZ) JET TRANSPORT , RANDOM ANALYSIS Y-AXIS TITLE = FUSELAGE PLUNGE (11T3) , PSDF , GUST LOAD THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 3.628826E-01 AT X = 2.500000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 3.628826E-01 AT X = 2.500000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 115 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 SYMMETRIC RESPONSE , STIFF AILERON X Y - O U T P U T S U M M A R Y ROOT MEAN SQUARE VALUE = 2.961114E-01 FREQUENCY OF ZERO CROSSINGS (N ZERO) = 3.120188E-01 POWER-SPECTRAL-DENSITY-FUNCTION (PSDF) DISPLACEMENT CURVE 9( 3) THIS CURVE WILL BE PAPER-PLOTTED FRAME 10 CURVE TITLE = POWER SPECTRAL DENSITY FUNCTION X-AXIS TITLE = FREQUENCY (HERTZ) JET TRANSPORT , RANDOM ANALYSIS Y-AXIS TITLE = WING TIP DISPLACEMENT (9T3) , PSDF , GUST LOAD THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 3.357428E-01 AT X = 2.500000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 3.357428E-01 AT X = 2.500000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 116 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 SYMMETRIC RESPONSE , STIFF AILERON X Y - O U T P U T S U M M A R Y ROOT MEAN SQUARE VALUE = 1.665699E+04 FREQUENCY OF ZERO CROSSINGS (N ZERO) = 1.692268E+00 POWER-SPECTRAL-DENSITY-FUNCTION (PSDF) S P C F CURVE 11( 6) THIS CURVE WILL BE PAPER-PLOTTED FRAME 11 CURVE TITLE = POWER SPECTRAL DENSITY FUNCTION X-AXIS TITLE = FREQUENCY (HERTZ) JET TRANSPORT , RANDOM ANALYSIS Y-AXIS TITLE = WING ROOT BENDING MOMENT (11R3) , PSDF , GUST LOAD THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 1.817612E+08 AT X = 2.500000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 9.750000E+00) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 0.000000E+00 THE LARGEST Y-VALUE = 1.817612E+08 AT X = 2.500000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 117 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 SYMMETRIC RESPONSE , STIFF AILERON 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * * **** * * * * * * * * * **** **** **** **** **** 0 POWER SPECTRAL DENSITY FUNCTION 0 X-AXIS TITLE = FREQUENCY (HERTZ) JET TRANSPORT , RANDOM ANALYSIS 0 +---------------------------------------------------------------------------------------------------------------------+ I I I FUSELAGE PLUNGE (11T3) , PSDF , GUST LOAD I I I I 0.000000E+00 2.000000E-01 4.000000E-01 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 * I I 2.5000E-01 I I * I 5.0000E-01 I * I I 7.5000E-01 I* I I 1.0000E+00 * I I 1.2500E+00 * I I 1.5000E+00 * I I 1.7500E+00 * I I 2.0000E+00 * I I 2.2500E+00 * I I 2.5000E+00 * I I 2.7500E+00 * I I 3.0000E+00 * I I 3.2500E+00 * I I 3.5000E+00 * I I 3.7500E+00 * I I 4.0000E+00 * I I 4.2500E+00 * I I 4.5000E+00 * I I 4.7500E+00 * I I 5.0000E+00 * I I 5.2500E+00 * I I 5.5000E+00 * I I 5.7500E+00 * I I 6.0000E+00 * I I 6.2500E+00 * I I 6.5000E+00 * I I 6.7500E+00 * I I 7.0000E+00 * I I 7.2500E+00 * I I 1 7.5000E+00 * I I 7.7500E+00 * I I 8.0000E+00 * I I 8.2500E+00 * I I 8.5000E+00 * I I 8.7500E+00 * I I 9.0000E+00 * I I 9.2500E+00 * I I 9.5000E+00 * I I 9.7500E+00 * I I 1.0000E+01 I I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 118 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 SYMMETRIC RESPONSE , STIFF AILERON 0 F R A M E **** **** **** ** **** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** **** 0 POWER SPECTRAL DENSITY FUNCTION 0 X-AXIS TITLE = FREQUENCY (HERTZ) JET TRANSPORT , RANDOM ANALYSIS 0 +---------------------------------------------------------------------------------------------------------------------+ I I I WING TIP DISPLACEMENT (9T3) , PSDF , GUST LOAD I I I I 0.000000E+00 1.750000E-01 3.500000E-01 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 * I I 2.5000E-01 I I * I 5.0000E-01 I * I I 7.5000E-01 * I I 1.0000E+00 * I I 1.2500E+00 * I I 1.5000E+00 * I I 1.7500E+00 * I I 2.0000E+00 * I I 2.2500E+00 * I I 2.5000E+00 * I I 2.7500E+00 * I I 3.0000E+00 * I I 3.2500E+00 * I I 3.5000E+00 * I I 3.7500E+00 * I I 4.0000E+00 * I I 4.2500E+00 * I I 4.5000E+00 * I I 4.7500E+00 * I I 5.0000E+00 * I I 5.2500E+00 * I I 5.5000E+00 * I I 5.7500E+00 * I I 6.0000E+00 * I I 6.2500E+00 * I I 6.5000E+00 * I I 6.7500E+00 * I I 7.0000E+00 * I I 7.2500E+00 * I I 1 7.5000E+00 * I I 7.7500E+00 * I I 8.0000E+00 * I I 8.2500E+00 * I I 8.5000E+00 * I I 8.7500E+00 * I I 9.0000E+00 * I I 9.2500E+00 * I I 9.5000E+00 * I I 9.7500E+00 * I I 1.0000E+01 I I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 119 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A 0 SYMMETRIC RESPONSE , STIFF AILERON 0 F R A M E **** **** **** ** ** * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** **** 0 POWER SPECTRAL DENSITY FUNCTION 0 X-AXIS TITLE = FREQUENCY (HERTZ) JET TRANSPORT , RANDOM ANALYSIS 0 +---------------------------------------------------------------------------------------------------------------------+ I I I WING ROOT BENDING MOMENT (11R3) , PSDF , GUST LOAD I I I I 0.000000E+00 1.000000E+08 2.000000E+08 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 * I I 2.5000E-01 I I * I 5.0000E-01 I I * I 7.5000E-01 I I* I 1.0000E+00 I * I I 1.2500E+00 I * I I 1.5000E+00 I * I I 1.7500E+00 I * I I 2.0000E+00 I * I I 2.2500E+00 I I * I 2.5000E+00 I I * I 2.7500E+00 I * I I 3.0000E+00 I * I I 3.2500E+00 I * I I 3.5000E+00 I* I I 3.7500E+00 * I I 4.0000E+00 * I I 4.2500E+00 * I I 4.5000E+00 * I I 4.7500E+00 * I I 5.0000E+00 * I I 5.2500E+00 * I I 5.5000E+00 * I I 5.7500E+00 * I I 6.0000E+00 * I I 6.2500E+00 * I I 6.5000E+00 * I I 6.7500E+00 * I I 7.0000E+00 * I I 7.2500E+00 * I I 1 7.5000E+00 * I I 7.7500E+00 * I I 8.0000E+00 * I I 8.2500E+00 * I I 8.5000E+00 * I I 8.7500E+00 * I I 9.0000E+00 * I I 9.2500E+00 * I I 9.5000E+00 * I I 9.7500E+00 * I I 1.0000E+01 I I I +---------------------------------------------------------------------------------------------------------------------+ * * * END OF JOB * * * 1 JOB TITLE = JET TRANSPORT WING DYNAMIC ANALYSIS DATE: 5/17/95 END TIME: 16:19:47 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d11032a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D11032A,NASTRAN APP AERO SOL 11,0 TIME 15 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = JET TRANSPORT WING DYNAMIC ANALYSIS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 3 LABEL = SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 4 ECHO = BOTH 5 $ 6 $ MODEL DESCRIPTION JET TRANSPORT WING EXAMPLE 7 $ SYMMETRIC RESPONSE TO A SQUARE 8 $ EDGE GUST WITH A STIFF AILERON 9 $ 10 SPC = 14 $ SYM , NO PITCH 11 MPC = 1 12 METHOD = 10 $ GIVENS 13 SDAMP = 2000 14 FREQ = 40 15 TSTEP = 41 16 $$$$$$$ TWELVE MODES AND FORTY TWO BOXES AERO CALC THREE K VALUES 17 GUST = 1011 $ SQUARE 18 DLOAD = 9999 $ NEEDED TO FORCE APPROACH TRANSIENT GUST 19 OUTPUT 20 $ 21 $ SOLUTION TRANSIENT ANALYSIS USING 22 $ DOUBLET-LATTICE METHOD AERODYNAMICS 23 $ AT MACH NO. OF 0.62 24 $ 25 SET 1 = 1 , 2 , 12 $ 26 SET 2 = 1 , 9 THRU 12 , 1040 27 SET 3 = 11 28 SDISP = 1 29 DISP = 2 30 SPCF = 3 31 $ 32 $ PRODUCES XY PAPER PLOTS OF MODAL AND GRID POINT DISPLACEMENT 33 $ AND WING ROOT BENDING MOMENT TIME HISTORIES 34 $ 35 OUTPUT(XYOUT) $ TRANSIENT PACKAGE (REAL NUMBERS) 36 CURVELINESYMBOL = 1 37 XTITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST 38 TCURVE = FIRST MODE (PLUNGE) 39 YTITLE = MODAL DEFLECTION 40 XYPAPERPLOT SDISP / 1(T1) 41 TCURVE = SECOND MODE (WING BENDING) 42 XYPAPERPLOT SDISP / 2(T1) 43 TCURVE = TWELFTH MODE (AILERON) 44 XYPAPERPLOT SDISP / 12(T1) 45 YTITLE = PHYSICAL DEFLECTION 46 TCURVE = WING ( 3/4 CHORD , 1/4 CHORD , STA 458 ) 47 XYPAPERPLOT DISP / 9(T3) , 10(T3) 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 48 TCURVE = FUSELAGE PLUNGE 49 XYPAPERPLOT DISP / 11(T3) 50 TCURVE = AILERON DEFLECTION 51 XYPAPERPLOT DISP / 12(R2) 52 TCURVE = AERODYNAMIC BOX NEAR TIP , PITCH 53 XYPAPERPLOT DISP / 1040(R2) 54 YTITLE = ROTATIONAL CONSTRAINTS 55 TCURVE = WING ROOT BENDING MOMENT 56 XYPAPERPLOT SPCF / 11(R3) 57 BEGIN BULK 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ AEFACT 1 0.0 .09 .21 .33 .45 .56 .66 +AE1 +AE1 .74 AEFACT 2 .74 .82 .90 .974 AEFACT 3 .974 1.00 AEFACT 4 0.0 .375 .750 1.00 AEFACT 5 0.0 .1875 .375 .625 .750 .875 1.00 AERO 1 8360. 131.232 1.1468-71 SYM CAERO1 1001 1000 0 1 4 1 +CA01 +CA01 78.75 0.0 0.0 225. 35. 500. 0.0 100. CAERO1 1022 1000 0 2 5 1 +CA22 +CA22 78.75 0.0 0.0 225. 35. 500. 0.0 100. CAERO1 1040 1000 0 3 4 1 +CA40 +CA40 78.75 0.0 0.0 225. 35. 500. 0.0 100. CELAS2 3 5142671.12 5 CMASS2 2 13967.2 12 5 CMASS2 121 5248.7 1 3 CMASS2 122 134.9 1 3 2 3 CMASS2 123 790.3 2 3 CMASS2 341 9727. 3 3 CMASS2 342 11005. 3 3 4 3 CMASS2 343 473. 4 3 CMASS2 561 3253.6 5 3 CMASS2 562 -139.7 5 3 6 3 CMASS2 563 946.3 6 3 CMASS2 781 2617.8 7 3 CMASS2 782 21. 7 3 8 3 CMASS2 783 782.3 8 3 CMASS2 9101 494.8 9 3 CMASS2 9102 -7.3 9 3 10 3 CMASS2 9103 185.2 10 3 CONM1 1 11 +51 +51 17400. 4.37+7 +52 +52 4.35+09 CORD2R 1 0.0 0.0 0.0 0.0 0.0 -1. +C1 +C1 -1. 0.0 0.0 DAREA 1001 12 5 5142671. DAREA 9999 11 1 1. DUMMY EIGR 10 GIV 0.0 1. 12 +EIGR +EIGR MAX FREQ1 40 0.0 .25 39 GENEL 432 1 3 2 3 3 3 +01 +01 4 3 5 3 6 3 7 3 +02 +02 8 3 9 3 10 3 +03 +03 UD 11 3 11 4 11 5 +03A +03A 11 6 +04 +04 Z 8.7172-61.3361-61.2778-56.2720-61.6251-51.0492-52.0478-5+05 +05 1.5630-52.4285-52.0403-53.0861-56.2720-63.2297-51.0492-53.3529-5+06 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ +06 1.5630-53.5021-52.0257-53.5785-52.7732-51.5726-54.8255-53.7628-5+07 +07 7.3284-56.4338-59.5810-58.8378-56.3749-53.7628-58.0136-56.4338-5+08 +08 1.0012-48.8378-51.1811-41.2758-41.1344-41.9350-41.8160-42.5283-4+09 +09 2.4294-41.6999-41.8160-42.2920-42.4294-42.8249-43.6862-43.5052-4+10 +10 5.2675-45.1171-44.2292-45.1171-45.7187-48.4840-48.2340-49.2340-4+11 +11 S 1.0 90.0 -20.25 45.0 1.0 90.0 81.0 +12 +12 45.0 1.0 186.0 -17.85 141.0 1.0 186.0 71.4 +13 +13 141.0 1.0 268.0 -15.80 223.0 1.0 268.0 63.2 +14 +14 223.0 1.0 368.0 -13.30 323.0 1.0 368.0 53.2 +15 +15 323.0 1.0 458.0 -11.05 413.0 1.0 458.0 44.2 +16 +16 413.0 GRID 1 20.25 90. 12456 GRID 2 -81. 90. 12456 GRID 3 17.85 186. 12456 GRID 4 -71.4 186. 12456 GRID 5 15.8 268. 12456 GRID 6 -63.2 268. 12456 GRID 7 13.3 368. 12456 GRID 8 -53.2 368. 12456 GRID 9 11.05 458. 12456 GRID 10 -44.2 458. 12456 GRID 11 .0 .0 126 GRID 12 -86.45 368. 1246 GUST 1011 1000 1. 0.0 8360. MKAERO1 .62 +MK +MK .02 .10 .50 MPC 1 12 3 -1.0 8 3 1.5 +MPC1 +MPC1 7 3 -0.5 12 5 33.25 PAERO1 1000 PARAM GUSTAERO1 PARAM IFTM 0 PARAM LMODES 12 PARAM MACH .62 PARAM Q 4.00747 PARAM WTMASS .0025907 SET1 14 1 THRU 11 SET1 15 8 10 12 SPC 14 11 45 SPLINE1 104 1022 1026 1039 15 SPLINE2 101 1001 1001 1021 14 0.0 2. 0 +SP1 +SP1 -1.0 -1.0 SPLINE2 102 1022 1022 1037 14 0.0 2. 0 +SP2 +SP2 -1.0 -1.0 SPLINE2 103 1040 1040 1042 14 0.0 2. 0 +SP3 +SP3 -1.0 -1.0 SUPORT 11 3 TABDMP1 2000 +T2000 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ +T2000 0.0 .06 10. .06 ENDT TABLED1 1003 +T1003 +T1003 0.0 1. 1. 1. 1. -1. 2. -1. +T1003A +T1003A ENDT TLOAD1 1000 1001 1003 TLOAD1 9999 9999 1003 DUMIE TSTEP 41 40 .1 1 ENDDATA TOTAL COUNT= 101 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AEFACT 1 0.0 .09 .21 .33 .45 .56 .66 +AE1 2- +AE1 .74 3- AEFACT 2 .74 .82 .90 .974 4- AEFACT 3 .974 1.00 5- AEFACT 4 0.0 .375 .750 1.00 6- AEFACT 5 0.0 .1875 .375 .625 .750 .875 1.00 7- AERO 1 8360. 131.232 1.1468-71 SYM 8- CAERO1 1001 1000 0 1 4 1 +CA01 9- +CA01 78.75 0.0 0.0 225. 35. 500. 0.0 100. 10- CAERO1 1022 1000 0 2 5 1 +CA22 11- +CA22 78.75 0.0 0.0 225. 35. 500. 0.0 100. 12- CAERO1 1040 1000 0 3 4 1 +CA40 13- +CA40 78.75 0.0 0.0 225. 35. 500. 0.0 100. 14- CELAS2 3 5142671.12 5 15- CMASS2 2 13967.2 12 5 16- CMASS2 121 5248.7 1 3 17- CMASS2 122 134.9 1 3 2 3 18- CMASS2 123 790.3 2 3 19- CMASS2 341 9727. 3 3 20- CMASS2 342 11005. 3 3 4 3 21- CMASS2 343 473. 4 3 22- CMASS2 561 3253.6 5 3 23- CMASS2 562 -139.7 5 3 6 3 24- CMASS2 563 946.3 6 3 25- CMASS2 781 2617.8 7 3 26- CMASS2 782 21. 7 3 8 3 27- CMASS2 783 782.3 8 3 28- CMASS2 9101 494.8 9 3 29- CMASS2 9102 -7.3 9 3 10 3 30- CMASS2 9103 185.2 10 3 31- CONM1 1 11 +51 32- +51 17400. 4.37+7 +52 33- +52 4.35+09 34- CORD2R 1 0.0 0.0 0.0 0.0 0.0 -1. +C1 35- +C1 -1. 0.0 0.0 36- DAREA 1001 12 5 5142671. 37- DAREA 9999 11 1 1. DUMMY 38- EIGR 10 GIV 0.0 1. 12 +EIGR 39- +EIGR MAX 40- FREQ1 40 0.0 .25 39 41- GENEL 432 1 3 2 3 3 3 +01 42- +01 4 3 5 3 6 3 7 3 +02 43- +02 8 3 9 3 10 3 +03 44- +03 UD 11 3 11 4 11 5 +03A 45- +03A 11 6 +04 46- +04 Z 8.7172-61.3361-61.2778-56.2720-61.6251-51.0492-52.0478-5+05 47- +05 1.5630-52.4285-52.0403-53.0861-56.2720-63.2297-51.0492-53.3529-5+06 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- +06 1.5630-53.5021-52.0257-53.5785-52.7732-51.5726-54.8255-53.7628-5+07 49- +07 7.3284-56.4338-59.5810-58.8378-56.3749-53.7628-58.0136-56.4338-5+08 50- +08 1.0012-48.8378-51.1811-41.2758-41.1344-41.9350-41.8160-42.5283-4+09 51- +09 2.4294-41.6999-41.8160-42.2920-42.4294-42.8249-43.6862-43.5052-4+10 52- +10 5.2675-45.1171-44.2292-45.1171-45.7187-48.4840-48.2340-49.2340-4+11 53- +11 S 1.0 90.0 -20.25 45.0 1.0 90.0 81.0 +12 54- +12 45.0 1.0 186.0 -17.85 141.0 1.0 186.0 71.4 +13 55- +13 141.0 1.0 268.0 -15.80 223.0 1.0 268.0 63.2 +14 56- +14 223.0 1.0 368.0 -13.30 323.0 1.0 368.0 53.2 +15 57- +15 323.0 1.0 458.0 -11.05 413.0 1.0 458.0 44.2 +16 58- +16 413.0 59- GRID 1 20.25 90. 12456 60- GRID 2 -81. 90. 12456 61- GRID 3 17.85 186. 12456 62- GRID 4 -71.4 186. 12456 63- GRID 5 15.8 268. 12456 64- GRID 6 -63.2 268. 12456 65- GRID 7 13.3 368. 12456 66- GRID 8 -53.2 368. 12456 67- GRID 9 11.05 458. 12456 68- GRID 10 -44.2 458. 12456 69- GRID 11 .0 .0 126 70- GRID 12 -86.45 368. 1246 71- GUST 1011 1000 1. 0.0 8360. 72- MKAERO1 .62 +MK 73- +MK .02 .10 .50 74- MPC 1 12 3 -1.0 8 3 1.5 +MPC1 75- +MPC1 7 3 -0.5 12 5 33.25 76- PAERO1 1000 77- PARAM GUSTAERO1 78- PARAM IFTM 0 79- PARAM LMODES 12 80- PARAM MACH .62 81- PARAM Q 4.00747 82- PARAM WTMASS .0025907 83- SET1 14 1 THRU 11 84- SET1 15 8 10 12 85- SPC 14 11 45 86- SPLINE1 104 1022 1026 1039 15 87- SPLINE2 101 1001 1001 1021 14 0.0 2. 0 +SP1 88- +SP1 -1.0 -1.0 89- SPLINE2 102 1022 1022 1037 14 0.0 2. 0 +SP2 90- +SP2 -1.0 -1.0 91- SPLINE2 103 1040 1040 1042 14 0.0 2. 0 +SP3 92- +SP3 -1.0 -1.0 93- SUPORT 11 3 94- TABDMP1 2000 +T2000 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- +T2000 0.0 .06 10. .06 ENDT 96- TABLED1 1003 +T1003 97- +T1003 0.0 1. 1. 1. 1. -1. 2. -1. +T1003A 98- +T1003A ENDT 99- TLOAD1 1000 1001 1003 100- TLOAD1 9999 9999 1003 DUMIE 101- TSTEP 41 40 .1 1 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS2 ELEMENTS (ELEMENT TYPE 12) STARTING WITH ID 3 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION MASS2 ELEMENTS (ELEMENT TYPE 26) STARTING WITH ID 2 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONM1 ELEMENTS (ELEMENT TYPE 29) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 0, EPSILON SUB E = 2.0067149E-16 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 12, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 12 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 12 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 11 0.0 0.0 0.0 1.085996E+02 0.0 2 10 2.344038E+02 1.531025E+01 2.436702E+00 7.333811E+00 1.719073E+03 3 9 5.021460E+02 2.240862E+01 3.566442E+00 4.860579E+01 2.440721E+04 4 8 2.873470E+03 5.360476E+01 8.531462E+00 6.036275E+00 1.734505E+04 5 7 6.346819E+03 7.966693E+01 1.267939E+01 1.389629E+01 8.819726E+04 6 6 8.746056E+03 9.352035E+01 1.488422E+01 3.997501E+00 3.496237E+04 7 5 1.766041E+04 1.328925E+02 2.115050E+01 3.884947E+00 6.860977E+04 8 4 2.401137E+04 1.549560E+02 2.466202E+01 3.570773E+00 8.573913E+04 9 3 4.211877E+04 2.052286E+02 3.266314E+01 3.142323E+00 1.323508E+05 10 2 6.020940E+04 2.453760E+02 3.905281E+01 1.016273E+00 6.118916E+04 11 1 9.492829E+04 3.081043E+02 4.903633E+01 8.935863E+00 8.482661E+05 12 12 1.421223E+05 3.769911E+02 6.000000E+01 3.618483E+01 5.142671E+06 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 3 C = 22 CBAR = 38 R = 23 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 42) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 3 C = 22 CBAR = 38 R = 23 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 42) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 3 C = 22 CBAR = 38 R = 23 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATC12 (N = 42) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 3 C = 22 CBAR = 38 R = 23 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH5 (N = 42) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 3 C = 22 CBAR = 38 R = 23 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH5 (N = 42) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 21 BBAR = 3 C = 22 CBAR = 38 R = 23 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH5 (N = 42) TIME ESTIMATE = 0 SECONDS 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS POINT-ID = 1 D I S P L A C E M E N T V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 M 2.064302E+03 1.000000E-01 M 2.007178E+03 2.000000E-01 M 1.804343E+03 3.000000E-01 M 1.468994E+03 4.000000E-01 M 1.029565E+03 5.000000E-01 M 4.977738E+02 6.000000E-01 M -9.984888E+01 7.000000E-01 M -7.396495E+02 8.000001E-01 M -1.425045E+03 9.000001E-01 M -2.148120E+03 1.000000E+00 M -2.891008E+03 1.100000E+00 M -3.529493E+03 1.200000E+00 M -3.897287E+03 1.300000E+00 M -4.010867E+03 1.400000E+00 M -3.927728E+03 1.500000E+00 M -3.669541E+03 1.600000E+00 M -3.284251E+03 1.700000E+00 M -2.820430E+03 1.800000E+00 M -2.270575E+03 1.900000E+00 M -1.647163E+03 2.000000E+00 M -9.876846E+02 2.100000E+00 M -3.546162E+02 2.200000E+00 M 1.711103E+02 2.300000E+00 M 5.843103E+02 2.400000E+00 M 9.111294E+02 2.500000E+00 M 1.163260E+03 2.600000E+00 M 1.358389E+03 2.700000E+00 M 1.520520E+03 2.799999E+00 M 1.646492E+03 2.899999E+00 M 1.738113E+03 2.999999E+00 M 1.814391E+03 3.099999E+00 M 1.876932E+03 3.199999E+00 M 1.921834E+03 3.299999E+00 M 1.957562E+03 3.399999E+00 M 1.987032E+03 3.499999E+00 M 2.008507E+03 3.599999E+00 M 2.025710E+03 3.699999E+00 M 2.039560E+03 3.799999E+00 M 2.049129E+03 3.899998E+00 M 2.057171E+03 3.999998E+00 M 2.064302E+03 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS POINT-ID = 2 D I S P L A C E M E N T V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 M 3.274581E+00 1.000000E-01 M -1.394210E+02 2.000000E-01 M -3.233884E+02 3.000000E-01 M -2.056410E+02 4.000000E-01 M 4.530801E+00 5.000000E-01 M -4.254552E+01 6.000000E-01 M -1.455252E+02 7.000000E-01 M -6.785136E+01 8.000001E-01 M 4.404564E+00 9.000001E-01 M -3.001151E+01 1.000000E+00 M -4.671601E+01 1.100000E+00 M 2.552000E+02 1.200000E+00 M 6.299709E+02 1.300000E+00 M 4.055769E+02 1.400000E+00 M -2.158282E+01 1.500000E+00 M 6.732695E+01 1.600000E+00 M 2.897078E+02 1.700000E+00 M 1.361279E+02 1.800000E+00 M -1.919180E+01 1.900000E+00 M 5.478932E+01 2.000000E+00 M 9.172913E+01 2.100000E+00 M -9.658281E+01 2.200000E+00 M -3.021485E+02 2.300000E+00 M -1.950714E+02 2.400000E+00 M 2.697473E+01 2.500000E+00 M -9.954379E+00 2.600000E+00 M -1.414489E+02 2.700000E+00 M -7.214790E+01 2.799999E+00 M 2.180060E+01 2.899999E+00 M -1.844679E+01 2.999999E+00 M -4.828806E+01 3.099999E+00 M -1.919609E+01 3.199999E+00 M -4.433849E+00 3.299999E+00 M -4.865630E+00 3.399999E+00 M -9.923538E+00 3.499999E+00 M -1.482605E+01 3.599999E+00 M -2.733705E+00 3.699999E+00 M 3.870281E+00 3.799999E+00 M -7.013237E+00 3.899998E+00 M -6.330189E+00 3.999998E+00 M 3.274910E+00 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS POINT-ID = 12 D I S P L A C E M E N T V E C T O R (SOLUTION SET) TIME TYPE T1 T2 T3 R1 R2 R3 0.0 M -1.110722E-02 1.000000E-01 M -2.299328E-02 2.000000E-01 M -1.959787E-02 3.000000E-01 M -1.715913E-02 4.000000E-01 M -1.478000E-02 5.000000E-01 M -6.099394E-03 6.000000E-01 M -6.095690E-03 7.000000E-01 M -9.238105E-03 8.000001E-01 M -3.204325E-03 9.000001E-01 M 2.945682E-04 1.000000E+00 M 1.709031E-02 1.100000E+00 M 4.383963E-02 1.200000E+00 M 3.836090E-02 1.300000E+00 M 3.214826E-02 1.400000E+00 M 2.892522E-02 1.500000E+00 M 1.209898E-02 1.600000E+00 M 1.124370E-02 1.700000E+00 M 1.879606E-02 1.800000E+00 M 7.562626E-03 1.900000E+00 M 1.079835E-03 2.000000E+00 M -2.338416E-03 2.100000E+00 M -1.770537E-02 2.200000E+00 M -1.851004E-02 2.300000E+00 M -1.365891E-02 2.400000E+00 M -1.274790E-02 2.500000E+00 M -5.750404E-03 2.600000E+00 M -4.206950E-03 2.700000E+00 M -8.766694E-03 2.799999E+00 M -4.215205E-03 2.899999E+00 M -1.371025E-04 2.999999E+00 M -3.644643E-03 3.099999E+00 M -3.141020E-03 3.199999E+00 M -2.529959E-04 3.299999E+00 M -1.330228E-03 3.399999E+00 M -1.397380E-03 3.499999E+00 M -2.492365E-04 3.599999E+00 M -9.410278E-04 3.699999E+00 M -7.913033E-04 3.799999E+00 M -1.431867E-04 3.899998E+00 M -1.237293E-03 3.999998E+00 M -1.110661E-02 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE S-DISPLACEMENT CURVE 1( 1) THIS CURVE WILL BE PAPER-PLOTTED FRAME 1 CURVE TITLE = FIRST MODE (PLUNGE) X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST Y-AXIS TITLE = MODAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -4.010867E+03 AT X = 1.300000E+00 THE LARGEST Y-VALUE = 2.064302E+03 AT X = 0.000000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -4.010867E+03 AT X = 1.300000E+00 THE LARGEST Y-VALUE = 2.064302E+03 AT X = 0.000000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE S-DISPLACEMENT CURVE 2( 1) THIS CURVE WILL BE PAPER-PLOTTED FRAME 2 CURVE TITLE = SECOND MODE (WING BENDING) X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST Y-AXIS TITLE = MODAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -3.233884E+02 AT X = 2.000000E-01 THE LARGEST Y-VALUE = 6.299709E+02 AT X = 1.200000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -3.233884E+02 AT X = 2.000000E-01 THE LARGEST Y-VALUE = 6.299709E+02 AT X = 1.200000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE S-DISPLACEMENT CURVE 12( 1) THIS CURVE WILL BE PAPER-PLOTTED FRAME 3 CURVE TITLE = TWELFTH MODE (AILERON) X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST Y-AXIS TITLE = MODAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -2.299328E-02 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 4.383963E-02 AT X = 1.100000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -2.299328E-02 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 4.383963E-02 AT X = 1.100000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0 F R A M E **** **** **** **** ** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** **** 0 FIRST MODE (PLUNGE) 0 X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST 0 +---------------------------------------------------------------------------------------------------------------------+ I I I MODAL DEFLECTION I I I I -5.000000E+03 -1.000000E+03 3.000000E+03 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I I * I 1.0000E-01 I I * I 2.0000E-01 I I * I 3.0000E-01 I I * I 4.0000E-01 I I * I 5.0000E-01 I I * I 6.0000E-01 I I * I 7.0000E-01 I I * I 8.0000E-01 I * I I 9.0000E-01 I * I I 1.0000E+00 I * I I 1.1000E+00 I * I I 1.2000E+00 I * I I 1.3000E+00 I * I I 1.4000E+00 I * I I 1.5000E+00 I * I I 1.6000E+00 I * I I 1.7000E+00 I * I I 1.8000E+00 I * I I 1.9000E+00 I * I I 2.0000E+00 I * I 2.1000E+00 I I * I 2.2000E+00 I I * I 2.3000E+00 I I * I 2.4000E+00 I I * I 2.5000E+00 I I * I 2.6000E+00 I I * I 2.7000E+00 I I * I 2.8000E+00 I I * I 2.9000E+00 I I * I 1 3.0000E+00 I I * I 3.1000E+00 I I * I 3.2000E+00 I I * I 3.3000E+00 I I * I 3.4000E+00 I I * I 3.5000E+00 I I * I 3.6000E+00 I I * I 3.7000E+00 I I * I 3.8000E+00 I I * I 3.9000E+00 I I * I 4.0000E+00 I I * I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** **** 0 SECOND MODE (WING BENDING) 0 X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST 0 +---------------------------------------------------------------------------------------------------------------------+ I I I MODAL DEFLECTION I I I I -4.000000E+02 2.000000E+02 8.000000E+02 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I * I I 1.0000E-01 I * I I 2.0000E-01 I * I I 3.0000E-01 I * I I 4.0000E-01 I * I I 5.0000E-01 I * I I 6.0000E-01 I * I I 7.0000E-01 I * I I 8.0000E-01 I * I I 9.0000E-01 I * I I 1.0000E+00 I * I I 1.1000E+00 I I * I 1.2000E+00 I I * I 1.3000E+00 I I * I 1.4000E+00 I * I I 1.5000E+00 I * I I 1.6000E+00 I I * I 1.7000E+00 I * I I 1.8000E+00 I * I I 1.9000E+00 I * I I 2.0000E+00 I * I I 2.1000E+00 I * I I 2.2000E+00 I * I I 2.3000E+00 I * I I 2.4000E+00 I * I I 2.5000E+00 I * I I 2.6000E+00 I * I I 2.7000E+00 I * I I 2.8000E+00 I * I I 2.9000E+00 I * I I 1 3.0000E+00 I * I I 3.1000E+00 I * I I 3.2000E+00 I * I I 3.3000E+00 I * I I 3.4000E+00 I * I I 3.5000E+00 I * I I 3.6000E+00 I * I I 3.7000E+00 I * I I 3.8000E+00 I * I I 3.9000E+00 I * I I 4.0000E+00 I * I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * *** * * * * * * * * * **** **** **** **** **** 0 TWELFTH MODE (AILERON) 0 X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST 0 +---------------------------------------------------------------------------------------------------------------------+ I I I MODAL DEFLECTION I I I I -3.000000E-02 1.000000E-02 5.000000E-02 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I * I I 1.0000E-01 I * I I 2.0000E-01 I * I I 3.0000E-01 I * I I 4.0000E-01 I * I I 5.0000E-01 I * I I 6.0000E-01 I * I I 7.0000E-01 I * I I 8.0000E-01 I * I I 9.0000E-01 I * I I 1.0000E+00 I I * I 1.1000E+00 I I * I 1.2000E+00 I I * I 1.3000E+00 I I * I 1.4000E+00 I I * I 1.5000E+00 I I * I 1.6000E+00 I I * I 1.7000E+00 I I * I 1.8000E+00 I * I I 1.9000E+00 I * I I 2.0000E+00 I * I I 2.1000E+00 I * I I 2.2000E+00 I * I I 2.3000E+00 I * I I 2.4000E+00 I * I I 2.5000E+00 I * I I 2.6000E+00 I * I I 2.7000E+00 I * I I 2.8000E+00 I * I I 2.9000E+00 I * I I 1 3.0000E+00 I * I I 3.1000E+00 I * I I 3.2000E+00 I * I I 3.3000E+00 I * I I 3.4000E+00 I * I I 3.5000E+00 I * I I 3.6000E+00 I * I I 3.7000E+00 I * I I 3.8000E+00 I * I I 3.9000E+00 I * I I 4.0000E+00 I * I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS POINT-ID = 1 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 2.063498E+03 0.0 0.0 0.0 1.000000E-01 G 0.0 0.0 2.022883E+03 0.0 0.0 0.0 2.000000E-01 G 0.0 0.0 1.843626E+03 0.0 0.0 0.0 3.000000E-01 G 0.0 0.0 1.494639E+03 0.0 0.0 0.0 4.000000E-01 G 0.0 0.0 1.027708E+03 0.0 0.0 0.0 5.000000E-01 G 0.0 0.0 5.020403E+02 0.0 0.0 0.0 6.000000E-01 G 0.0 0.0 -8.131599E+01 0.0 0.0 0.0 7.000000E-01 G 0.0 0.0 -7.315193E+02 0.0 0.0 0.0 8.000001E-01 G 0.0 0.0 -1.426337E+03 0.0 0.0 0.0 9.000001E-01 G 0.0 0.0 -2.144231E+03 0.0 0.0 0.0 1.000000E+00 G 0.0 0.0 -2.884605E+03 0.0 0.0 0.0 1.100000E+00 G 0.0 0.0 -3.558310E+03 0.0 0.0 0.0 1.200000E+00 G 0.0 0.0 -3.973629E+03 0.0 0.0 0.0 1.300000E+00 G 0.0 0.0 -4.061571E+03 0.0 0.0 0.0 1.400000E+00 G 0.0 0.0 -3.922640E+03 0.0 0.0 0.0 1.500000E+00 G 0.0 0.0 -3.675711E+03 0.0 0.0 0.0 1.600000E+00 G 0.0 0.0 -3.321181E+03 0.0 0.0 0.0 1.700000E+00 G 0.0 0.0 -2.836856E+03 0.0 0.0 0.0 1.800000E+00 G 0.0 0.0 -2.266551E+03 0.0 0.0 0.0 1.900000E+00 G 0.0 0.0 -1.654186E+03 0.0 0.0 0.0 2.000000E+00 G 0.0 0.0 -9.994463E+02 0.0 0.0 0.0 2.100000E+00 G 0.0 0.0 -3.435209E+02 0.0 0.0 0.0 2.200000E+00 G 0.0 0.0 2.076604E+02 0.0 0.0 0.0 2.300000E+00 G 0.0 0.0 6.087262E+02 0.0 0.0 0.0 2.400000E+00 G 0.0 0.0 9.068658E+02 0.0 0.0 0.0 2.500000E+00 G 0.0 0.0 1.163298E+03 0.0 0.0 0.0 2.600000E+00 G 0.0 0.0 1.376413E+03 0.0 0.0 0.0 2.700000E+00 G 0.0 0.0 1.529460E+03 0.0 0.0 0.0 2.799999E+00 G 0.0 0.0 1.642889E+03 0.0 0.0 0.0 2.899999E+00 G 0.0 0.0 1.740427E+03 0.0 0.0 0.0 2.999999E+00 G 0.0 0.0 1.820555E+03 0.0 0.0 0.0 3.099999E+00 G 0.0 0.0 1.878949E+03 0.0 0.0 0.0 3.199999E+00 G 0.0 0.0 1.922343E+03 0.0 0.0 0.0 3.299999E+00 G 0.0 0.0 1.958206E+03 0.0 0.0 0.0 3.399999E+00 G 0.0 0.0 1.988065E+03 0.0 0.0 0.0 3.499999E+00 G 0.0 0.0 2.010374E+03 0.0 0.0 0.0 3.599999E+00 G 0.0 0.0 2.026084E+03 0.0 0.0 0.0 3.699999E+00 G 0.0 0.0 2.038916E+03 0.0 0.0 0.0 3.799999E+00 G 0.0 0.0 2.050000E+03 0.0 0.0 0.0 3.899998E+00 G 0.0 0.0 2.057991E+03 0.0 0.0 0.0 3.999998E+00 G 0.0 0.0 2.063498E+03 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS POINT-ID = 9 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 2.065569E+03 0.0 0.0 0.0 1.000000E-01 G 0.0 0.0 1.864147E+03 0.0 0.0 0.0 2.000000E-01 G 0.0 0.0 1.477287E+03 0.0 0.0 0.0 3.000000E-01 G 0.0 0.0 1.260171E+03 0.0 0.0 0.0 4.000000E-01 G 0.0 0.0 1.027672E+03 0.0 0.0 0.0 5.000000E-01 G 0.0 0.0 4.521985E+02 0.0 0.0 0.0 6.000000E-01 G 0.0 0.0 -2.441459E+02 0.0 0.0 0.0 7.000000E-01 G 0.0 0.0 -8.097794E+02 0.0 0.0 0.0 8.000001E-01 G 0.0 0.0 -1.423359E+03 0.0 0.0 0.0 9.000001E-01 G 0.0 0.0 -2.177196E+03 0.0 0.0 0.0 1.000000E+00 G 0.0 0.0 -2.934821E+03 0.0 0.0 0.0 1.100000E+00 G 0.0 0.0 -3.268601E+03 0.0 0.0 0.0 1.200000E+00 G 0.0 0.0 -3.259711E+03 0.0 0.0 0.0 1.300000E+00 G 0.0 0.0 -3.599414E+03 0.0 0.0 0.0 1.400000E+00 G 0.0 0.0 -3.937007E+03 0.0 0.0 0.0 1.500000E+00 G 0.0 0.0 -3.595702E+03 0.0 0.0 0.0 1.600000E+00 G 0.0 0.0 -2.997221E+03 0.0 0.0 0.0 1.700000E+00 G 0.0 0.0 -2.680011E+03 0.0 0.0 0.0 1.800000E+00 G 0.0 0.0 -2.283676E+03 0.0 0.0 0.0 1.900000E+00 G 0.0 0.0 -1.593742E+03 0.0 0.0 0.0 2.000000E+00 G 0.0 0.0 -8.970982E+02 0.0 0.0 0.0 2.100000E+00 G 0.0 0.0 -4.514829E+02 0.0 0.0 0.0 2.200000E+00 G 0.0 0.0 -1.346823E+02 0.0 0.0 0.0 2.300000E+00 G 0.0 0.0 3.864014E+02 0.0 0.0 0.0 2.400000E+00 G 0.0 0.0 9.328888E+02 0.0 0.0 0.0 2.500000E+00 G 0.0 0.0 1.149841E+03 0.0 0.0 0.0 2.600000E+00 G 0.0 0.0 1.218463E+03 0.0 0.0 0.0 2.700000E+00 G 0.0 0.0 1.446945E+03 0.0 0.0 0.0 2.799999E+00 G 0.0 0.0 1.664918E+03 0.0 0.0 0.0 2.899999E+00 G 0.0 0.0 1.720154E+03 0.0 0.0 0.0 2.999999E+00 G 0.0 0.0 1.766351E+03 0.0 0.0 0.0 3.099999E+00 G 0.0 0.0 1.855938E+03 0.0 0.0 0.0 3.199999E+00 G 0.0 0.0 1.917106E+03 0.0 0.0 0.0 3.299999E+00 G 0.0 0.0 1.952840E+03 0.0 0.0 0.0 3.399999E+00 G 0.0 0.0 1.976445E+03 0.0 0.0 0.0 3.499999E+00 G 0.0 0.0 1.993663E+03 0.0 0.0 0.0 3.599999E+00 G 0.0 0.0 2.022904E+03 0.0 0.0 0.0 3.699999E+00 G 0.0 0.0 2.042845E+03 0.0 0.0 0.0 3.799999E+00 G 0.0 0.0 2.042119E+03 0.0 0.0 0.0 3.899998E+00 G 0.0 0.0 2.050786E+03 0.0 0.0 0.0 3.999998E+00 G 0.0 0.0 2.065570E+03 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS POINT-ID = 10 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 2.069288E+03 0.0 0.0 0.0 1.000000E-01 G 0.0 0.0 1.882753E+03 0.0 0.0 0.0 2.000000E-01 G 0.0 0.0 1.495964E+03 0.0 0.0 0.0 3.000000E-01 G 0.0 0.0 1.267095E+03 0.0 0.0 0.0 4.000000E-01 G 0.0 0.0 1.042469E+03 0.0 0.0 0.0 5.000000E-01 G 0.0 0.0 4.635686E+02 0.0 0.0 0.0 6.000000E-01 G 0.0 0.0 -2.451654E+02 0.0 0.0 0.0 7.000000E-01 G 0.0 0.0 -8.037244E+02 0.0 0.0 0.0 8.000001E-01 G 0.0 0.0 -1.415128E+03 0.0 0.0 0.0 9.000001E-01 G 0.0 0.0 -2.178450E+03 0.0 0.0 0.0 1.000000E+00 G 0.0 0.0 -2.938882E+03 0.0 0.0 0.0 1.100000E+00 G 0.0 0.0 -3.301116E+03 0.0 0.0 0.0 1.200000E+00 G 0.0 0.0 -3.298004E+03 0.0 0.0 0.0 1.300000E+00 G 0.0 0.0 -3.611802E+03 0.0 0.0 0.0 1.400000E+00 G 0.0 0.0 -3.964293E+03 0.0 0.0 0.0 1.500000E+00 G 0.0 0.0 -3.619564E+03 0.0 0.0 0.0 1.600000E+00 G 0.0 0.0 -2.994708E+03 0.0 0.0 0.0 1.700000E+00 G 0.0 0.0 -2.690915E+03 0.0 0.0 0.0 1.800000E+00 G 0.0 0.0 -2.301489E+03 0.0 0.0 0.0 1.900000E+00 G 0.0 0.0 -1.592075E+03 0.0 0.0 0.0 2.000000E+00 G 0.0 0.0 -8.962755E+02 0.0 0.0 0.0 2.100000E+00 G 0.0 0.0 -4.425208E+02 0.0 0.0 0.0 2.200000E+00 G 0.0 0.0 -1.157500E+02 0.0 0.0 0.0 2.300000E+00 G 0.0 0.0 3.922905E+02 0.0 0.0 0.0 2.400000E+00 G 0.0 0.0 9.429612E+02 0.0 0.0 0.0 2.500000E+00 G 0.0 0.0 1.162097E+03 0.0 0.0 0.0 2.600000E+00 G 0.0 0.0 1.217182E+03 0.0 0.0 0.0 2.700000E+00 G 0.0 0.0 1.450146E+03 0.0 0.0 0.0 2.799999E+00 G 0.0 0.0 1.674348E+03 0.0 0.0 0.0 2.899999E+00 G 0.0 0.0 1.719919E+03 0.0 0.0 0.0 2.999999E+00 G 0.0 0.0 1.765870E+03 0.0 0.0 0.0 3.099999E+00 G 0.0 0.0 1.860885E+03 0.0 0.0 0.0 3.199999E+00 G 0.0 0.0 1.917790E+03 0.0 0.0 0.0 3.299999E+00 G 0.0 0.0 1.952415E+03 0.0 0.0 0.0 3.399999E+00 G 0.0 0.0 1.978861E+03 0.0 0.0 0.0 3.499999E+00 G 0.0 0.0 1.993899E+03 0.0 0.0 0.0 3.599999E+00 G 0.0 0.0 2.022692E+03 0.0 0.0 0.0 3.699999E+00 G 0.0 0.0 2.044492E+03 0.0 0.0 0.0 3.799999E+00 G 0.0 0.0 2.042270E+03 0.0 0.0 0.0 3.899998E+00 G 0.0 0.0 2.050609E+03 0.0 0.0 0.0 3.999998E+00 G 0.0 0.0 2.069288E+03 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS POINT-ID = 11 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 2.063936E+03 0.0 0.0 0.0 1.000000E-01 G 0.0 0.0 2.032315E+03 0.0 0.0 0.0 2.000000E-01 G 0.0 0.0 1.859970E+03 0.0 0.0 0.0 3.000000E-01 G 0.0 0.0 1.503467E+03 0.0 0.0 0.0 4.000000E-01 G 0.0 0.0 1.029672E+03 0.0 0.0 0.0 5.000000E-01 G 0.0 0.0 5.058488E+02 0.0 0.0 0.0 6.000000E-01 G 0.0 0.0 -7.559833E+01 0.0 0.0 0.0 7.000000E-01 G 0.0 0.0 -7.279618E+02 0.0 0.0 0.0 8.000001E-01 G 0.0 0.0 -1.425176E+03 0.0 0.0 0.0 9.000001E-01 G 0.0 0.0 -2.143169E+03 0.0 0.0 0.0 1.000000E+00 G 0.0 0.0 -2.883321E+03 0.0 0.0 0.0 1.100000E+00 G 0.0 0.0 -3.575487E+03 0.0 0.0 0.0 1.200000E+00 G 0.0 0.0 -4.005847E+03 0.0 0.0 0.0 1.300000E+00 G 0.0 0.0 -4.078746E+03 0.0 0.0 0.0 1.400000E+00 G 0.0 0.0 -3.925650E+03 0.0 0.0 0.0 1.500000E+00 G 0.0 0.0 -3.682824E+03 0.0 0.0 0.0 1.600000E+00 G 0.0 0.0 -3.332505E+03 0.0 0.0 0.0 1.700000E+00 G 0.0 0.0 -2.843768E+03 0.0 0.0 0.0 1.800000E+00 G 0.0 0.0 -2.268671E+03 0.0 0.0 0.0 1.900000E+00 G 0.0 0.0 -1.656245E+03 0.0 0.0 0.0 2.000000E+00 G 0.0 0.0 -1.003027E+03 0.0 0.0 0.0 2.100000E+00 G 0.0 0.0 -3.373033E+02 0.0 0.0 0.0 2.200000E+00 G 0.0 0.0 2.232864E+02 0.0 0.0 0.0 2.300000E+00 G 0.0 0.0 6.169357E+02 0.0 0.0 0.0 2.400000E+00 G 0.0 0.0 9.070787E+02 0.0 0.0 0.0 2.500000E+00 G 0.0 0.0 1.165985E+03 0.0 0.0 0.0 2.600000E+00 G 0.0 0.0 1.381981E+03 0.0 0.0 0.0 2.700000E+00 G 0.0 0.0 1.532689E+03 0.0 0.0 0.0 2.799999E+00 G 0.0 0.0 1.643534E+03 0.0 0.0 0.0 2.899999E+00 G 0.0 0.0 1.741217E+03 0.0 0.0 0.0 2.999999E+00 G 0.0 0.0 1.822413E+03 0.0 0.0 0.0 3.099999E+00 G 0.0 0.0 1.880476E+03 0.0 0.0 0.0 3.199999E+00 G 0.0 0.0 1.922591E+03 0.0 0.0 0.0 3.299999E+00 G 0.0 0.0 1.958343E+03 0.0 0.0 0.0 3.399999E+00 G 0.0 0.0 1.988899E+03 0.0 0.0 0.0 3.499999E+00 G 0.0 0.0 2.010991E+03 0.0 0.0 0.0 3.599999E+00 G 0.0 0.0 2.026122E+03 0.0 0.0 0.0 3.699999E+00 G 0.0 0.0 2.039041E+03 0.0 0.0 0.0 3.799999E+00 G 0.0 0.0 2.050315E+03 0.0 0.0 0.0 3.899998E+00 G 0.0 0.0 2.058197E+03 0.0 0.0 0.0 3.999998E+00 G 0.0 0.0 2.063936E+03 0.0 0.0 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS POINT-ID = 12 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 2.070141E+03 0.0 -1.110722E-02 0.0 1.000000E-01 G 0.0 0.0 1.945028E+03 0.0 -2.299328E-02 0.0 2.000000E-01 G 0.0 0.0 1.627890E+03 0.0 -1.959787E-02 0.0 3.000000E-01 G 0.0 0.0 1.347901E+03 0.0 -1.715913E-02 0.0 4.000000E-01 G 0.0 0.0 1.051156E+03 0.0 -1.478000E-02 0.0 5.000000E-01 G 0.0 0.0 4.867600E+02 0.0 -6.099394E-03 0.0 6.000000E-01 G 0.0 0.0 -1.925655E+02 0.0 -6.095690E-03 0.0 7.000000E-01 G 0.0 0.0 -7.743485E+02 0.0 -9.238105E-03 0.0 8.000001E-01 G 0.0 0.0 -1.411194E+03 0.0 -3.204325E-03 0.0 9.000001E-01 G 0.0 0.0 -2.168667E+03 0.0 2.945682E-04 0.0 1.000000E+00 G 0.0 0.0 -2.923285E+03 0.0 1.709031E-02 0.0 1.100000E+00 G 0.0 0.0 -3.413547E+03 0.0 4.383963E-02 0.0 1.200000E+00 G 0.0 0.0 -3.556476E+03 0.0 3.836090E-02 0.0 1.300000E+00 G 0.0 0.0 -3.770318E+03 0.0 3.214826E-02 0.0 1.400000E+00 G 0.0 0.0 -3.975432E+03 0.0 2.892522E-02 0.0 1.500000E+00 G 0.0 0.0 -3.660234E+03 0.0 1.209898E-02 0.0 1.600000E+00 G 0.0 0.0 -3.099033E+03 0.0 1.124370E-02 0.0 1.700000E+00 G 0.0 0.0 -2.748942E+03 0.0 1.879606E-02 0.0 1.800000E+00 G 0.0 0.0 -2.306479E+03 0.0 7.562626E-03 0.0 1.900000E+00 G 0.0 0.0 -1.610207E+03 0.0 1.079835E-03 0.0 2.000000E+00 G 0.0 0.0 -9.302241E+02 0.0 -2.338416E-03 0.0 2.100000E+00 G 0.0 0.0 -4.031586E+02 0.0 -1.770537E-02 0.0 2.200000E+00 G 0.0 0.0 8.815657E+00 0.0 -1.851004E-02 0.0 2.300000E+00 G 0.0 0.0 4.686606E+02 0.0 -1.365891E-02 0.0 2.400000E+00 G 0.0 0.0 9.400485E+02 0.0 -1.274790E-02 0.0 2.500000E+00 G 0.0 0.0 1.173980E+03 0.0 -5.750404E-03 0.0 2.600000E+00 G 0.0 0.0 1.268070E+03 0.0 -4.206950E-03 0.0 2.700000E+00 G 0.0 0.0 1.479060E+03 0.0 -8.766694E-03 0.0 2.799999E+00 G 0.0 0.0 1.672758E+03 0.0 -4.215205E-03 0.0 2.899999E+00 G 0.0 0.0 1.726080E+03 0.0 -1.371025E-04 0.0 2.999999E+00 G 0.0 0.0 1.783369E+03 0.0 -3.644643E-03 0.0 3.099999E+00 G 0.0 0.0 1.871678E+03 0.0 -3.141020E-03 0.0 3.199999E+00 G 0.0 0.0 1.919771E+03 0.0 -2.529959E-04 0.0 3.299999E+00 G 0.0 0.0 1.953756E+03 0.0 -1.330228E-03 0.0 3.399999E+00 G 0.0 0.0 1.984225E+03 0.0 -1.397380E-03 0.0 3.499999E+00 G 0.0 0.0 1.999495E+03 0.0 -2.492365E-04 0.0 3.599999E+00 G 0.0 0.0 2.023528E+03 0.0 -9.410278E-04 0.0 3.699999E+00 G 0.0 0.0 2.044230E+03 0.0 -7.913033E-04 0.0 3.799999E+00 G 0.0 0.0 2.044917E+03 0.0 -1.431867E-04 0.0 3.899998E+00 G 0.0 0.0 2.052796E+03 0.0 -1.237293E-03 0.0 3.999998E+00 G 0.0 0.0 2.070141E+03 0.0 -1.110661E-02 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS POINT-ID = 1040 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 -2.065000E+03 0.0 6.731594E-02 0.0 1.000000E-01 G 0.0 0.0 -1.840742E+03 0.0 3.367608E-01 0.0 2.000000E-01 G 0.0 0.0 -1.425894E+03 0.0 3.380474E-01 0.0 3.000000E-01 G 0.0 0.0 -1.227091E+03 0.0 1.253194E-01 0.0 4.000000E-01 G 0.0 0.0 -1.025317E+03 0.0 2.678291E-01 0.0 5.000000E-01 G 0.0 0.0 -4.442044E+02 0.0 2.057974E-01 0.0 6.000000E-01 G 0.0 0.0 2.659632E+02 0.0 -1.845288E-02 0.0 7.000000E-01 G 0.0 0.0 8.212617E+02 0.0 1.095909E-01 0.0 8.000001E-01 G 0.0 0.0 1.423959E+03 0.0 1.489908E-01 0.0 9.000001E-01 G 0.0 0.0 2.181396E+03 0.0 -2.270357E-02 0.0 1.000000E+00 G 0.0 0.0 2.940364E+03 0.0 -7.351384E-02 0.0 1.100000E+00 G 0.0 0.0 3.226108E+03 0.0 -5.885241E-01 0.0 1.200000E+00 G 0.0 0.0 3.159400E+03 0.0 -6.930916E-01 0.0 1.300000E+00 G 0.0 0.0 3.534366E+03 0.0 -2.242247E-01 0.0 1.400000E+00 G 0.0 0.0 3.934462E+03 0.0 -4.938799E-01 0.0 1.500000E+00 G 0.0 0.0 3.582230E+03 0.0 -4.319123E-01 0.0 1.600000E+00 G 0.0 0.0 2.953887E+03 0.0 4.546180E-02 0.0 1.700000E+00 G 0.0 0.0 2.657086E+03 0.0 -1.973463E-01 0.0 1.800000E+00 G 0.0 0.0 2.283748E+03 0.0 -3.224172E-01 0.0 1.900000E+00 G 0.0 0.0 1.585866E+03 0.0 3.016706E-02 0.0 2.000000E+00 G 0.0 0.0 8.836729E+02 0.0 1.488817E-02 0.0 2.100000E+00 G 0.0 0.0 4.668138E+02 0.0 1.622071E-01 0.0 2.200000E+00 G 0.0 0.0 1.827681E+02 0.0 3.426673E-01 0.0 2.300000E+00 G 0.0 0.0 -3.551424E+02 0.0 1.065937E-01 0.0 2.400000E+00 G 0.0 0.0 -9.345300E+02 0.0 1.823113E-01 0.0 2.500000E+00 G 0.0 0.0 -1.146651E+03 0.0 2.218428E-01 0.0 2.600000E+00 G 0.0 0.0 -1.197411E+03 0.0 -2.317570E-02 0.0 2.700000E+00 G 0.0 0.0 -1.435183E+03 0.0 5.793654E-02 0.0 2.799999E+00 G 0.0 0.0 -1.666672E+03 0.0 1.706786E-01 0.0 2.899999E+00 G 0.0 0.0 -1.717493E+03 0.0 -4.257983E-03 0.0 2.999999E+00 G 0.0 0.0 -1.759039E+03 0.0 -8.691429E-03 0.0 3.099999E+00 G 0.0 0.0 -1.852181E+03 0.0 8.955587E-02 0.0 3.199999E+00 G 0.0 0.0 -1.916274E+03 0.0 1.237866E-02 0.0 3.299999E+00 G 0.0 0.0 -1.952131E+03 0.0 -7.688629E-03 0.0 3.399999E+00 G 0.0 0.0 -1.974613E+03 0.0 4.373834E-02 0.0 3.499999E+00 G 0.0 0.0 -1.991376E+03 0.0 4.274166E-03 0.0 3.599999E+00 G 0.0 0.0 -2.022439E+03 0.0 -3.832736E-03 0.0 3.699999E+00 G 0.0 0.0 -2.043164E+03 0.0 2.981645E-02 0.0 3.799999E+00 G 0.0 0.0 -2.041035E+03 0.0 2.749625E-03 0.0 3.899998E+00 G 0.0 0.0 -2.049771E+03 0.0 -3.204404E-03 0.0 3.999998E+00 G 0.0 0.0 -2.065000E+03 0.0 6.731123E-02 0.0 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS POINT-ID = 11 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 2.183842E+05 -3.129226E+06 -2.566727E+06 1.000000E-01 G 0.0 0.0 0.0 1.263607E+08 -3.057032E+07 1.039209E+08 2.000000E-01 G 0.0 0.0 0.0 2.625764E+08 -3.081451E+07 2.280248E+08 3.000000E-01 G 0.0 0.0 0.0 1.597191E+08 -4.173922E+06 1.394008E+08 4.000000E-01 G 0.0 0.0 0.0 1.853800E+06 -2.137149E+07 -2.679841E+06 5.000000E-01 G 0.0 0.0 0.0 4.040059E+07 -1.976332E+07 3.232064E+07 6.000000E-01 G 0.0 0.0 0.0 1.135909E+08 3.763946E+06 1.001285E+08 7.000000E-01 G 0.0 0.0 0.0 5.432721E+07 -8.480054E+06 4.685489E+07 8.000001E-01 G 0.0 0.0 0.0 2.149500E+05 -1.396424E+07 -1.649121E+06 9.000001E-01 G 0.0 0.0 0.0 2.325135E+07 2.235380E+06 2.050128E+07 1.000000E+00 G 0.0 0.0 0.0 3.209131E+07 7.879609E+05 3.316813E+07 1.100000E+00 G 0.0 0.0 0.0 -2.328166E+08 5.307592E+07 -1.909845E+08 1.200000E+00 G 0.0 0.0 0.0 -5.126238E+08 6.428876E+07 -4.450428E+08 1.300000E+00 G 0.0 0.0 0.0 -3.142871E+08 5.886246E+06 -2.746721E+08 1.400000E+00 G 0.0 0.0 0.0 7.045710E+06 3.822939E+07 1.453730E+07 1.500000E+00 G 0.0 0.0 0.0 -6.778435E+07 4.173702E+07 -5.286813E+07 1.600000E+00 G 0.0 0.0 0.0 -2.263909E+08 -8.494419E+06 -1.995502E+08 1.700000E+00 G 0.0 0.0 0.0 -1.088090E+08 1.406240E+07 -9.385458E+07 1.800000E+00 G 0.0 0.0 0.0 6.470409E+06 2.958301E+07 9.968232E+06 1.900000E+00 G 0.0 0.0 0.0 -4.408194E+07 -4.497926E+06 -3.800241E+07 2.000000E+00 G 0.0 0.0 0.0 -6.976742E+07 7.189612E+05 -6.361345E+07 2.100000E+00 G 0.0 0.0 0.0 9.006583E+07 -1.408924E+07 7.330578E+07 2.200000E+00 G 0.0 0.0 0.0 2.462900E+08 -3.313195E+07 2.140517E+08 2.300000E+00 G 0.0 0.0 0.0 1.504838E+08 -3.050910E+06 1.319378E+08 2.400000E+00 G 0.0 0.0 0.0 -1.796642E+07 -1.243421E+07 -1.939174E+07 2.500000E+00 G 0.0 0.0 0.0 1.575666E+07 -2.195534E+07 1.033126E+07 2.600000E+00 G 0.0 0.0 0.0 1.108252E+08 3.735464E+06 9.777962E+07 2.700000E+00 G 0.0 0.0 0.0 5.659907E+07 -2.733830E+06 4.928219E+07 2.799999E+00 G 0.0 0.0 0.0 -1.248469E+07 -1.562547E+07 -1.329507E+07 2.899999E+00 G 0.0 0.0 0.0 1.571370E+07 1.192700E+06 1.318122E+07 2.999999E+00 G 0.0 0.0 0.0 3.745796E+07 1.622420E+06 3.301228E+07 3.099999E+00 G 0.0 0.0 0.0 1.638992E+07 -8.416313E+06 1.375774E+07 3.199999E+00 G 0.0 0.0 0.0 3.757460E+06 -3.425045E+05 2.966170E+06 3.299999E+00 G 0.0 0.0 0.0 4.085065E+06 1.338622E+06 3.334150E+06 3.399999E+00 G 0.0 0.0 0.0 9.067496E+06 -4.423534E+06 7.534804E+06 3.499999E+00 G 0.0 0.0 0.0 1.162638E+07 -1.856149E+04 1.021557E+07 3.599999E+00 G 0.0 0.0 0.0 1.974877E+06 9.949620E+05 1.642066E+06 3.699999E+00 G 0.0 0.0 0.0 -2.116454E+06 -2.848247E+06 -2.281750E+06 3.799999E+00 G 0.0 0.0 0.0 5.799244E+06 6.555239E+03 4.975870E+06 3.899998E+00 G 0.0 0.0 0.0 5.116250E+06 1.069721E+06 4.319319E+06 3.999998E+00 G 0.0 0.0 0.0 2.178892E+05 -3.129086E+06 -2.566966E+06 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 9( 3) THIS CURVE WILL BE PAPER-PLOTTED FRAME 4 CURVE TITLE = WING ( 3/4 CHORD , 1/4 CHORD , STA 458 ) X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -3.937007E+03 AT X = 1.400000E+00 THE LARGEST Y-VALUE = 2.065570E+03 AT X = 3.999998E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -3.937007E+03 AT X = 1.400000E+00 THE LARGEST Y-VALUE = 2.065570E+03 AT X = 3.999998E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 10( 3) THIS CURVE WILL BE PAPER-PLOTTED FRAME 4 CURVE TITLE = WING ( 3/4 CHORD , 1/4 CHORD , STA 458 ) X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -3.964293E+03 AT X = 1.400000E+00 THE LARGEST Y-VALUE = 2.069288E+03 AT X = 0.000000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -3.964293E+03 AT X = 1.400000E+00 THE LARGEST Y-VALUE = 2.069288E+03 AT X = 0.000000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 11( 3) THIS CURVE WILL BE PAPER-PLOTTED FRAME 5 CURVE TITLE = FUSELAGE PLUNGE X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -4.078746E+03 AT X = 1.300000E+00 THE LARGEST Y-VALUE = 2.063936E+03 AT X = 0.000000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -4.078746E+03 AT X = 1.300000E+00 THE LARGEST Y-VALUE = 2.063936E+03 AT X = 0.000000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 12( 5) THIS CURVE WILL BE PAPER-PLOTTED FRAME 6 CURVE TITLE = AILERON DEFLECTION X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -2.299328E-02 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 4.383963E-02 AT X = 1.100000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -2.299328E-02 AT X = 1.000000E-01 THE LARGEST Y-VALUE = 4.383963E-02 AT X = 1.100000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 1040( 5) THIS CURVE WILL BE PAPER-PLOTTED FRAME 7 CURVE TITLE = AERODYNAMIC BOX NEAR TIP , PITCH X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST Y-AXIS TITLE = PHYSICAL DEFLECTION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -6.930916E-01 AT X = 1.200000E+00 THE LARGEST Y-VALUE = 3.426673E-01 AT X = 2.200000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -6.930916E-01 AT X = 1.200000E+00 THE LARGEST Y-VALUE = 3.426673E-01 AT X = 2.200000E+00 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE S P C F CURVE 11( 6) THIS CURVE WILL BE PAPER-PLOTTED FRAME 8 CURVE TITLE = WING ROOT BENDING MOMENT X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST Y-AXIS TITLE = ROTATIONAL CONSTRAINTS THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -4.450428E+08 AT X = 1.200000E+00 THE LARGEST Y-VALUE = 2.280248E+08 AT X = 2.000000E-01 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 3.999998E+00) THE SMALLEST Y-VALUE = -4.450428E+08 AT X = 1.200000E+00 THE LARGEST Y-VALUE = 2.280248E+08 AT X = 2.000000E-01 E N D O F S U M M A R Y 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0 F R A M E **** **** **** **** * * * * * * * * * * * * * * * * * * * * **** * * * * * * * * * **** **** **** **** * 0 WING ( 3/4 CHORD , 1/4 CHORD , STA 458 ) 0 X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST 0 +---------------------------------------------------------------------------------------------------------------------+ I I I PHYSICAL DEFLECTION I I I I -4.000000E+03 -5.000000E+02 3.000000E+03 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I I 0 I 1.0000E-01 I I 0 I 2.0000E-01 I I *0 I 3.0000E-01 I I 0 I 4.0000E-01 I I 0 I 5.0000E-01 I I 0 I 6.0000E-01 I I 0 I 7.0000E-01 I 0 I I 8.0000E-01 I *0 I I 9.0000E-01 I 0 I I 1.0000E+00 I 0 I I 1.1000E+00 I 0 I I 1.2000E+00 I 0 I I 1.3000E+00 I 0 I I 1.4000E+00 I0 I I 1.5000E+00 I 0* I I 1.6000E+00 I 0 I I 1.7000E+00 I 0 I I 1.8000E+00 I 0 I I 1.9000E+00 I 0 I I 2.0000E+00 I 0 I I 2.1000E+00 I I0 I 2.2000E+00 I I 0 I 2.3000E+00 I I 0 I 2.4000E+00 I I 0 I 2.5000E+00 I I 0 I 2.6000E+00 I I 0 I 2.7000E+00 I I 0 I 2.8000E+00 I I *0 I 2.9000E+00 I I 0 I 1 3.0000E+00 I I 0 I 3.1000E+00 I I 0 I 3.2000E+00 I I 0 I 3.3000E+00 I I 0 I 3.4000E+00 I I 0 I 3.5000E+00 I I 0 I 3.6000E+00 I I 0 I 3.7000E+00 I I 0 I 3.8000E+00 I I 0 I 3.9000E+00 I I 0 I 4.0000E+00 I I 0 I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * **** * * * * * * * * * **** **** **** **** **** 0 FUSELAGE PLUNGE 0 X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST 0 +---------------------------------------------------------------------------------------------------------------------+ I I I PHYSICAL DEFLECTION I I I I -5.000000E+03 -1.000000E+03 3.000000E+03 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I I * I 1.0000E-01 I I * I 2.0000E-01 I I * I 3.0000E-01 I I * I 4.0000E-01 I I * I 5.0000E-01 I I * I 6.0000E-01 I I * I 7.0000E-01 I I * I 8.0000E-01 I * I I 9.0000E-01 I * I I 1.0000E+00 I * I I 1.1000E+00 I * I I 1.2000E+00 I * I I 1.3000E+00 I * I I 1.4000E+00 I * I I 1.5000E+00 I * I I 1.6000E+00 I * I I 1.7000E+00 I * I I 1.8000E+00 I * I I 1.9000E+00 I * I I 2.0000E+00 I * I 2.1000E+00 I I * I 2.2000E+00 I I * I 2.3000E+00 I I * I 2.4000E+00 I I * I 2.5000E+00 I I * I 2.6000E+00 I I * I 2.7000E+00 I I * I 2.8000E+00 I I * I 2.9000E+00 I I * I 1 3.0000E+00 I I * I 3.1000E+00 I I * I 3.2000E+00 I I * I 3.3000E+00 I I * I 3.4000E+00 I I * I 3.5000E+00 I I * I 3.6000E+00 I I * I 3.7000E+00 I I * I 3.8000E+00 I I * I 3.9000E+00 I I * I 4.0000E+00 I I * I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * **** * * * * * * * * * * **** **** **** **** **** 0 AILERON DEFLECTION 0 X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST 0 +---------------------------------------------------------------------------------------------------------------------+ I I I PHYSICAL DEFLECTION I I I I -3.000000E-02 1.000000E-02 5.000000E-02 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I * I I 1.0000E-01 I * I I 2.0000E-01 I * I I 3.0000E-01 I * I I 4.0000E-01 I * I I 5.0000E-01 I * I I 6.0000E-01 I * I I 7.0000E-01 I * I I 8.0000E-01 I * I I 9.0000E-01 I * I I 1.0000E+00 I I * I 1.1000E+00 I I * I 1.2000E+00 I I * I 1.3000E+00 I I * I 1.4000E+00 I I * I 1.5000E+00 I I * I 1.6000E+00 I I * I 1.7000E+00 I I * I 1.8000E+00 I * I I 1.9000E+00 I * I I 2.0000E+00 I * I I 2.1000E+00 I * I I 2.2000E+00 I * I I 2.3000E+00 I * I I 2.4000E+00 I * I I 2.5000E+00 I * I I 2.6000E+00 I * I I 2.7000E+00 I * I I 2.8000E+00 I * I I 2.9000E+00 I * I I 1 3.0000E+00 I * I I 3.1000E+00 I * I I 3.2000E+00 I * I I 3.3000E+00 I * I I 3.4000E+00 I * I I 3.5000E+00 I * I I 3.6000E+00 I * I I 3.7000E+00 I * I I 3.8000E+00 I * I I 3.9000E+00 I * I I 4.0000E+00 I * I I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** * 0 AERODYNAMIC BOX NEAR TIP , PITCH 0 X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST 0 +---------------------------------------------------------------------------------------------------------------------+ I I I PHYSICAL DEFLECTION I I I I -8.000000E-01 -2.000000E-01 4.000000E-01 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I I * I 1.0000E-01 I I * I 2.0000E-01 I I * I 3.0000E-01 I I * I 4.0000E-01 I I * I 5.0000E-01 I I * I 6.0000E-01 I I * I 7.0000E-01 I I * I 8.0000E-01 I I * I 9.0000E-01 I I * I 1.0000E+00 I I * I 1.1000E+00 I * I I 1.2000E+00 I * I I 1.3000E+00 I * I I 1.4000E+00 I * I I 1.5000E+00 I * I I 1.6000E+00 I I * I 1.7000E+00 I * I 1.8000E+00 I * I I 1.9000E+00 I I * I 2.0000E+00 I I * I 2.1000E+00 I I * I 2.2000E+00 I I * I 2.3000E+00 I I * I 2.4000E+00 I I * I 2.5000E+00 I I * I 2.6000E+00 I I * I 2.7000E+00 I I * I 2.8000E+00 I I * I 2.9000E+00 I I * I 1 3.0000E+00 I I * I 3.1000E+00 I I * I 3.2000E+00 I I * I 3.3000E+00 I I * I 3.4000E+00 I I * I 3.5000E+00 I I * I 3.6000E+00 I I * I 3.7000E+00 I I * I 3.8000E+00 I I * I 3.9000E+00 I I * I 4.0000E+00 I I * I +---------------------------------------------------------------------------------------------------------------------+ 1 JET TRANSPORT WING DYNAMIC ANALYSIS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A 0 SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * * **** * * * * * * * * * * **** **** **** **** **** 0 WING ROOT BENDING MOMENT 0 X-AXIS TITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST 0 +---------------------------------------------------------------------------------------------------------------------+ I I I ROTATIONAL CONSTRAINTS I I I I -5.000000E+08 -1.000000E+08 3.000000E+08 I +---------------------------------------------------------------------------------------------------------------------+ 0.0000E+00 I I * I 1.0000E-01 I I * I 2.0000E-01 I I * I 3.0000E-01 I I * I 4.0000E-01 I I * I 5.0000E-01 I I * I 6.0000E-01 I I * I 7.0000E-01 I I * I 8.0000E-01 I I * I 9.0000E-01 I I * I 1.0000E+00 I I * I 1.1000E+00 I * I I 1.2000E+00 I * I I 1.3000E+00 I * I I 1.4000E+00 I I * I 1.5000E+00 I I * I 1.6000E+00 I * I I 1.7000E+00 I I* I 1.8000E+00 I I * I 1.9000E+00 I I * I 2.0000E+00 I I * I 2.1000E+00 I I * I 2.2000E+00 I I * I 2.3000E+00 I I * I 2.4000E+00 I I * I 2.5000E+00 I I * I 2.6000E+00 I I * I 2.7000E+00 I I * I 2.8000E+00 I I * I 2.9000E+00 I I * I 1 3.0000E+00 I I * I 3.1000E+00 I I * I 3.2000E+00 I I * I 3.3000E+00 I I * I 3.4000E+00 I I * I 3.5000E+00 I I * I 3.6000E+00 I I * I 3.7000E+00 I I * I 3.8000E+00 I I * I 3.9000E+00 I I * I 4.0000E+00 I I * I +---------------------------------------------------------------------------------------------------------------------+ * * * END OF JOB * * * 1 JOB TITLE = JET TRANSPORT WING DYNAMIC ANALYSIS DATE: 5/17/95 END TIME: 16:20:48 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d12011a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D12011A,NASTRAN APP DISPLACEMENT SOL 12,3 TIME 100 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 3 DLOAD = 516 4 SDAMP = 15 5 TSTEP = 516 6 METHOD = 2 7 OUTPUT 8 SET 1 = 1, 26, 51, 75, 100 9 SET 2 = 1, 26, 76 10 DISPLACEMENT = 2 11 STRESS = 1 12 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 13 OUTPUT(PLOT) 14 PLOTTER NASTPLT 15 CAMERA = 3 16 CSCALE = 2.0 17 SET 1 INCLUDE BAR, 18 EXCLUDE GRID POINTS 1,2,3,4,5,6,7,8,9,10,12,13,14,15,16,17,18, 19 19,20,22,23,24,25,26,27,28,29,30,32,33,34,35,36,37,38,39,40, 20 42,43,44,45,46,47,48,49,50,52,53,54,55,56,57,58,59,60,62,63, 21 64,65,66,67,68,69,70,72,73,74,75,76,77,78,79,80,82,83,84,85, 22 86,87,88,89,90,92,93,94,95,96,97,98,99,100 23 MAXIMUM DEFORMATION 2.0 24 STEREO PROJECTION 25 FIND SCALE, ORIGIN 100, VANTAGE POINT, SET 1 26 PTITLE = PAPER COPY OF STEREOSCOPIC PROJECTION OF DEFORMATIONS 27 PLOT TRANSIENT DEFORMATION 1, TIME 0.012, 0.013, 28 MAXIMUM DEFORMATION 0.76, SET 1, ORIGIN 100, SHAPE 29 ORTHOGRAPHIC PROJECTION 30 FIND SCALE, ORIGIN 1, REGION 0.0,0.0,1.0,0.5 31 FIND SCALE, ORIGIN 2, REGION 0.0,0.5,1.0,1.0 32 PTITLE = DEFLECTIONS OF BARS WITH VECTORS 33 PLOT TRANSIENT DEFORMATION 1, TIME .012, .016, 0*** USER WARNING MESSAGE 361 + - A NEW ORIGIN 2 WAS DEFINED IN A FIND CARD, BUT IT IS NOT USED BY THE IMMEDIATE PLOT CARD (ORIGIN 100 WILL BE USED FOR THIS PLOT) 34 MAXIMUM DEFORMATION 1.0, 35 SET 1, ORIGIN 1, SHAPE , 36 SET 1, ORIGIN 2, VECTOR Z 37 $ 38 $ 39 OUTPUT(XYOUT) 40 PLOTTER = NASTPLT 41 CAMERA = 3 42 SKIP BETWEEN FRAMES = 1 43 YGRID LINES = YES 44 XGRID LINES = YES 45 YDIVISIONS = 10 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 46 XDIVISIONS = 10 47 XVALUE PRINT SKIP = 1 48 YVALUE PRINT SKIP = 1 49 XTITLE = TIME (SECONDS) 50 YTITLE = D I S P * INCH * 51 TCURVE = * * * * * * * G R I D 5 1 * * * * * * * * * * * * * 52 XYPLOT,XYPRINT,DISP RESP / 51(T3) 53 TCURVE = * * * * * * * G R I D 1 0 1 * * * * * * * * * * * * 54 XYPLOT,XYPRINT,DISP RESP / 101(T3) 55 YTITLE = ACCELERATION 56 TCURVE = * * * * * * * G R I D 5 1 * * * * * * * * * * * * * 57 XYPLOT,XYPRINT,ACCE RESP / 51(T3) 58 TCURVE = * * * * * * * G R I D 1 0 1 * * * * * * * * * * * * 59 XYPLOT,XYPRINT,ACCE RESP / 101(T3) 60 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 231, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BAROR 10.0 .0 100.0 1 2- CBAR 1 17 1 2 3- CBAR 2 17 2 3 4- CBAR 3 17 3 4 5- CBAR 4 17 4 5 6- CBAR 5 17 5 6 7- CBAR 6 17 6 7 8- CBAR 7 17 7 8 9- CBAR 8 17 8 9 10- CBAR 9 17 9 10 11- CBAR 10 17 10 11 12- CBAR 11 17 11 12 13- CBAR 12 17 12 13 14- CBAR 13 17 13 14 15- CBAR 14 17 14 15 16- CBAR 15 17 15 16 17- CBAR 16 17 16 17 18- CBAR 17 17 17 18 19- CBAR 18 17 18 19 20- CBAR 19 17 19 20 21- CBAR 20 17 20 21 22- CBAR 21 17 21 22 23- CBAR 22 17 22 23 24- CBAR 23 17 23 24 25- CBAR 24 17 24 25 26- CBAR 25 17 25 26 27- CBAR 26 17 26 27 28- CBAR 27 17 27 28 29- CBAR 28 17 28 29 30- CBAR 29 17 29 30 31- CBAR 30 17 30 31 32- CBAR 31 17 31 32 33- CBAR 32 17 32 33 34- CBAR 33 17 33 34 35- CBAR 34 17 34 35 36- CBAR 35 17 35 36 37- CBAR 36 17 36 37 38- CBAR 37 17 37 38 39- CBAR 38 17 38 39 40- CBAR 39 17 39 40 41- CBAR 40 17 40 41 42- CBAR 41 17 41 42 43- CBAR 42 17 42 43 44- CBAR 43 17 43 44 45- CBAR 44 17 44 45 46- CBAR 45 17 45 46 47- CBAR 46 17 46 47 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CBAR 47 17 47 48 49- CBAR 48 17 48 49 50- CBAR 49 17 49 50 51- CBAR 50 17 50 51 52- CBAR 51 17 51 52 53- CBAR 52 17 52 53 54- CBAR 53 17 53 54 55- CBAR 54 17 54 55 56- CBAR 55 17 55 56 57- CBAR 56 17 56 57 58- CBAR 57 17 57 58 59- CBAR 58 17 58 59 60- CBAR 59 17 59 60 61- CBAR 60 17 60 61 62- CBAR 61 17 61 62 63- CBAR 62 17 62 63 64- CBAR 63 17 63 64 65- CBAR 64 17 64 65 66- CBAR 65 17 65 66 67- CBAR 66 17 66 67 68- CBAR 67 17 67 68 69- CBAR 68 17 68 69 70- CBAR 69 17 69 70 71- CBAR 70 17 70 71 72- CBAR 71 17 71 72 73- CBAR 72 17 72 73 74- CBAR 73 17 73 74 75- CBAR 74 17 74 75 76- CBAR 75 17 75 76 77- CBAR 76 17 76 77 78- CBAR 77 17 77 78 79- CBAR 78 17 78 79 80- CBAR 79 17 79 80 81- CBAR 80 17 80 81 82- CBAR 81 17 81 82 83- CBAR 82 17 82 83 84- CBAR 83 17 83 84 85- CBAR 84 17 84 85 86- CBAR 85 17 85 86 87- CBAR 86 17 86 87 88- CBAR 87 17 87 88 89- CBAR 88 17 88 89 90- CBAR 89 17 89 90 91- CBAR 90 17 90 91 92- CBAR 91 17 91 92 93- CBAR 92 17 92 93 94- CBAR 93 17 93 94 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CBAR 94 17 94 95 96- CBAR 95 17 95 96 97- CBAR 96 17 96 97 98- CBAR 97 17 97 98 99- CBAR 98 17 98 99 100- CBAR 99 17 99 100 101- CBAR 100 17 100 101 102- CONM2 20 1 10.0 +M1 103- +M1 1666.66 104- DAREA 1 101 3 100. 105- EIGR 2 INV .0 1500. 5 6 PEG 106- +EG MASS 107- GRDSET 1246 108- GRID 1 .00 .00 .00 109- GRID 2 .20 .00 .00 110- GRID 3 .40 .00 .00 111- GRID 4 .60 .00 .00 112- GRID 5 .80 .00 .00 113- GRID 6 1.00 .00 .00 114- GRID 7 1.20 .00 .00 115- GRID 8 1.40 .00 .00 116- GRID 9 1.60 .00 .00 117- GRID 10 1.80 .00 .00 118- GRID 11 2.00 .00 .00 119- GRID 12 2.20 .00 .00 120- GRID 13 2.40 .00 .00 121- GRID 14 2.60 .00 .00 122- GRID 15 2.80 .00 .00 123- GRID 16 3.00 .00 .00 124- GRID 17 3.20 .00 .00 125- GRID 18 3.40 .00 .00 126- GRID 19 3.60 .00 .00 127- GRID 20 3.80 .00 .00 128- GRID 21 4.00 .00 .00 129- GRID 22 4.20 .00 .00 130- GRID 23 4.40 .00 .00 131- GRID 24 4.60 .00 .00 132- GRID 25 4.80 .00 .00 133- GRID 26 5.00 .00 .00 134- GRID 27 5.20 .00 .00 135- GRID 28 5.40 .00 .00 136- GRID 29 5.60 .00 .00 137- GRID 30 5.80 .00 .00 138- GRID 31 6.00 .00 .00 139- GRID 32 6.20 .00 .00 140- GRID 33 6.40 .00 .00 141- GRID 34 6.60 .00 .00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 35 6.80 .00 .00 143- GRID 36 7.00 .00 .00 144- GRID 37 7.20 .00 .00 145- GRID 38 7.40 .00 .00 146- GRID 39 7.60 .00 .00 147- GRID 40 7.80 .00 .00 148- GRID 41 8.00 .00 .00 149- GRID 42 8.20 .00 .00 150- GRID 43 8.40 .00 .00 151- GRID 44 8.60 .00 .00 152- GRID 45 8.80 .00 .00 153- GRID 46 9.00 .00 .00 154- GRID 47 9.20 .00 .00 155- GRID 48 9.40 .00 .00 156- GRID 49 9.60 .00 .00 157- GRID 50 9.80 .00 .00 158- GRID 51 10.00 .00 .00 159- GRID 52 10.20 .00 .00 160- GRID 53 10.40 .00 .00 161- GRID 54 10.60 .00 .00 162- GRID 55 10.80 .00 .00 163- GRID 56 11.00 .00 .00 164- GRID 57 11.20 .00 .00 165- GRID 58 11.40 .00 .00 166- GRID 59 11.60 .00 .00 167- GRID 60 11.80 .00 .00 168- GRID 61 12.00 .00 .00 169- GRID 62 12.20 .00 .00 170- GRID 63 12.40 .00 .00 171- GRID 64 12.60 .00 .00 172- GRID 65 12.80 .00 .00 173- GRID 66 13.00 .00 .00 174- GRID 67 13.20 .00 .00 175- GRID 68 13.40 .00 .00 176- GRID 69 13.60 .00 .00 177- GRID 70 13.80 .00 .00 178- GRID 71 14.00 .00 .00 179- GRID 72 14.20 .00 .00 180- GRID 73 14.40 .00 .00 181- GRID 74 14.60 .00 .00 182- GRID 75 14.80 .00 .00 183- GRID 76 15.00 .00 .00 184- GRID 77 15.20 .00 .00 185- GRID 78 15.40 .00 .00 186- GRID 79 15.60 .00 .00 187- GRID 80 15.80 .00 .00 188- GRID 81 16.00 .00 .00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- GRID 82 16.20 .00 .00 190- GRID 83 16.40 .00 .00 191- GRID 84 16.60 .00 .00 192- GRID 85 16.80 .00 .00 193- GRID 86 17.00 .00 .00 194- GRID 87 17.20 .00 .00 195- GRID 88 17.40 .00 .00 196- GRID 89 17.60 .00 .00 197- GRID 90 17.80 .00 .00 198- GRID 91 18.00 .00 .00 199- GRID 92 18.20 .00 .00 200- GRID 93 18.40 .00 .00 201- GRID 94 18.60 .00 .00 202- GRID 95 18.80 .00 .00 203- GRID 96 19.00 .00 .00 204- GRID 97 19.20 .00 .00 205- GRID 98 19.40 .00 .00 206- GRID 99 19.60 .00 .00 207- GRID 100 19.80 .00 .00 208- GRID 101 20.00 .00 .00 209- MAT1 1 10.4+6 4.+6 .2523-3 +MAT1 210- +MAT1 111.111 11.1111 211- OMIT1 53 2 3 4 5 6 7 8 +100 212- +100 9 10 12 13 14 15 16 17 +200 213- +200 18 19 20 22 23 24 25 26 +300 214- +300 27 28 29 30 32 33 34 35 +400 215- +400 36 37 38 39 40 42 43 44 +500 216- +500 45 46 47 48 49 50 52 53 +600 217- +600 54 55 56 57 58 59 60 62 +700 218- +700 63 64 65 66 67 68 69 70 +800 219- +800 72 73 74 75 76 77 78 79 +900 220- +900 80 82 83 84 85 86 87 88 +101 221- +101 89 90 92 93 94 95 96 97 +201 222- +201 98 99 100 223- PARAM GRDPNT 0 224- PARAM LMODES 6 225- PBAR 17 1 1. .083 .083 +PBAR 226- +PBAR 1.11111 -1.11111 227- SUPORT 1 3 1 5 228- TABDMP1 15 +TD11 229- +TD11 10. .01 100. .1 3000. .1 ENDT 230- TLOAD2 516 1 .0 .1 60. 231- TSTEP 516 104 .001388 1 ENDDATA 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 2 PROFILE 201 MAX WAVEFRONT 2 AVG WAVEFRONT 1.990 RMS WAVEFRONT 1.993 RMS BANDWIDTH 1.993 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 2 PROFILE 201 MAX WAVEFRONT 2 AVG WAVEFRONT 1.990 RMS WAVEFRONT 1.993 RMS BANDWIDTH 1.993 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 2 2 PROFILE (P) 201 201 MAXIMUM WAVEFRONT (C-MAX) 2 2 AVERAGE WAVEFRONT (C-AVG) 1.990 1.990 RMS WAVEFRONT (C-RMS) 1.993 1.993 RMS BANDWITCH (B-RMS) 1.993 1.993 NUMBER OF GRID POINTS (N) 101 NUMBER OF ELEMENTS (NON-RIGID) 101 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 2 MINIMUM NODAL DEGREE 1 NUMBER OF UNIQUE EDGES 100 MATRIX DENSITY, PERCENT 2.951 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONM2 ELEMENTS (ELEMENT TYPE 30) STARTING WITH ID 20 0*** USER WARNING MESSAGE 3041 0EXTERNAL GRID POINT 0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 O U T P U T F R O M G R I D P O I N T W E I G H T G E N E R A T O R 0 REFERENCE POINT = 0 MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM *** *** * 1.00050460D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00050460D+01 0.00000000D+00 0.00000000D+00 0.00000000D+00 5.04600001D-02 * * 0.00000000D+00 0.00000000D+00 1.00050460D+01 0.00000000D+00 -5.04600001D-02 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 -5.04600001D-02 0.00000000D+00 1.66733287D+03 0.00000000D+00 * * 0.00000000D+00 5.04600001D-02 0.00000000D+00 0.00000000D+00 0.00000000D+00 6.72833641D-01 * *** *** S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION *** *** * 1.00000000D+00 0.00000000D+00 0.00000000D+00 * * 0.00000000D+00 1.00000000D+00 0.00000000D+00 * * 0.00000000D+00 0.00000000D+00 1.00000000D+00 * *** *** DIRECTION MASS AXIS SYSTEM (S) MASS X-C.G. Y-C.G. Z-C.G. X 1.000504600D+01 0.000000000D+00 0.000000000D+00 0.000000000D+00 Y 1.000504600D+01 5.043455078D-03 0.000000000D+00 0.000000000D+00 Z 1.000504600D+01 5.043455078D-03 0.000000000D+00 0.000000000D+00 I(S) - INERTIAS RELATIVE TO C.G. *** *** * 0.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 1.667332613D+03 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 6.725791480D-01 * *** *** I(Q) - PRINCIPAL INERTIAS *** *** * 0.000000000D+00 * * 1.667332613D+03 * * 6.725791480D-01 * *** *** Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q *** *** * 1.000000000D+00 0.000000000D+00 0.000000000D+00 * * 0.000000000D+00 1.000000000D+00 0.000000000D+00 * * 0.000000000D+00 0.000000000D+00 1.000000000D+00 * *** *** 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 0, EPSILON SUB E = 2.4080388E-10 4 ROOTS BELOW 4.441322E+07 3 ROOTS BELOW 8.555596E+06 4 ROOTS BELOW 1.038047E+07 3 ROOTS BELOW 3.606654E+06 3 ROOTS BELOW 2.645093E+05 6 ROOTS BELOW 3.129416E+08 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 6 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 6 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 43 0 REASON FOR TERMINATION . . . . . . . . . . . 7* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 1 OR MORE ROOT OUTSIDE FR.RANGE. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 4 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 1 0.0 0.0 0.0 1.000000E+00 0.0 2 2 0.0 0.0 0.0 1.000000E+00 0.0 3 4 2.645093E+05 5.143047E+02 8.185413E+01 1.000000E+00 2.645093E+05 4 3 1.038045E+07 3.221871E+03 5.127766E+02 1.000000E+00 1.038045E+07 5 5 8.139799E+07 9.022084E+03 1.435909E+03 1.000000E+00 8.139799E+07 6 6 3.129361E+08 1.769000E+04 2.815451E+03 1.000000E+00 3.129361E+08 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 POINT-ID = 1 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 1.388000E-03 G 0.0 0.0 -3.439803E-06 0.0 5.301812E-08 0.0 2.776000E-03 G 0.0 0.0 -7.865411E-06 0.0 -3.886734E-07 0.0 4.164000E-03 G 0.0 0.0 4.556459E-06 0.0 -2.669590E-06 0.0 5.552000E-03 G 0.0 0.0 4.935118E-05 0.0 -7.719822E-06 0.0 6.940000E-03 G 0.0 0.0 1.233662E-04 0.0 -1.499197E-05 0.0 8.328000E-03 G 0.0 0.0 2.035001E-04 0.0 -2.230587E-05 0.0 9.716000E-03 G 0.0 0.0 2.565595E-04 0.0 -2.663774E-05 0.0 1.110400E-02 G 0.0 0.0 2.526740E-04 0.0 -2.544430E-05 0.0 1.249200E-02 G 0.0 0.0 1.806257E-04 0.0 -1.800987E-05 0.0 1.388000E-02 G 0.0 0.0 5.756821E-05 0.0 -6.136567E-06 0.0 1.526800E-02 G 0.0 0.0 -7.535313E-05 0.0 6.302783E-06 0.0 1.665600E-02 G 0.0 0.0 -1.691092E-04 0.0 1.479640E-05 0.0 1.804400E-02 G 0.0 0.0 -1.862068E-04 0.0 1.598011E-05 0.0 1.943200E-02 G 0.0 0.0 -1.163019E-04 0.0 9.043863E-06 0.0 2.082000E-02 G 0.0 0.0 1.833397E-05 0.0 -3.842927E-06 0.0 2.220800E-02 G 0.0 0.0 1.709697E-04 0.0 -1.830567E-05 0.0 2.359600E-02 G 0.0 0.0 2.886277E-04 0.0 -2.941492E-05 0.0 2.498400E-02 G 0.0 0.0 3.320228E-04 0.0 -3.351362E-05 0.0 2.637200E-02 G 0.0 0.0 2.894129E-04 0.0 -2.949606E-05 0.0 2.776000E-02 G 0.0 0.0 1.794583E-04 0.0 -1.907189E-05 0.0 2.914800E-02 G 0.0 0.0 4.240592E-05 0.0 -5.972191E-06 0.0 3.053601E-02 G 0.0 0.0 -7.609128E-05 0.0 5.514911E-06 0.0 3.192401E-02 G 0.0 0.0 -1.413395E-04 0.0 1.205377E-05 0.0 3.331200E-02 G 0.0 0.0 -1.399179E-04 0.0 1.224726E-05 0.0 3.470000E-02 G 0.0 0.0 -8.097512E-05 0.0 6.808949E-06 0.0 3.608800E-02 G 0.0 0.0 1.062476E-05 0.0 -2.013727E-06 0.0 3.747600E-02 G 0.0 0.0 1.053076E-04 0.0 -1.141868E-05 0.0 3.886400E-02 G 0.0 0.0 1.788806E-04 0.0 -1.898844E-05 0.0 4.025200E-02 G 0.0 0.0 2.180954E-04 0.0 -2.325887E-05 0.0 4.163999E-02 G 0.0 0.0 2.208405E-04 0.0 -2.381842E-05 0.0 4.302799E-02 G 0.0 0.0 1.926291E-04 0.0 -2.106202E-05 0.0 4.441599E-02 G 0.0 0.0 1.422759E-04 0.0 -1.583750E-05 0.0 4.580399E-02 G 0.0 0.0 7.921772E-05 0.0 -9.190974E-06 0.0 4.719199E-02 G 0.0 0.0 1.320878E-05 0.0 -2.280269E-06 0.0 4.857999E-02 G 0.0 0.0 -4.473601E-05 0.0 3.625199E-06 0.0 4.996799E-02 G 0.0 0.0 -8.216485E-05 0.0 7.211421E-06 0.0 5.135598E-02 G 0.0 0.0 -8.727529E-05 0.0 7.362879E-06 0.0 5.274398E-02 G 0.0 0.0 -5.319285E-05 0.0 3.558888E-06 0.0 5.413198E-02 G 0.0 0.0 1.736473E-05 0.0 -3.740878E-06 0.0 5.551998E-02 G 0.0 0.0 1.097262E-04 0.0 -1.295011E-05 0.0 5.690798E-02 G 0.0 0.0 1.993211E-04 0.0 -2.161711E-05 0.0 5.829598E-02 G 0.0 0.0 2.584164E-04 0.0 -2.709489E-05 0.0 5.968397E-02 G 0.0 0.0 2.655405E-04 0.0 -2.742427E-05 0.0 6.107197E-02 G 0.0 0.0 2.140208E-04 0.0 -2.210152E-05 0.0 6.245997E-02 G 0.0 0.0 1.159798E-04 0.0 -1.240589E-05 0.0 6.384797E-02 G 0.0 0.0 -2.956020E-07 0.0 -1.110795E-06 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 POINT-ID = 1 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 6.523597E-02 G 0.0 0.0 -9.910753E-05 0.0 8.361571E-06 0.0 6.662397E-02 G 0.0 0.0 -1.492163E-04 0.0 1.305805E-05 0.0 6.801197E-02 G 0.0 0.0 -1.344880E-04 0.0 1.148427E-05 0.0 6.939997E-02 G 0.0 0.0 -5.938682E-05 0.0 4.106972E-06 0.0 7.078797E-02 G 0.0 0.0 5.265209E-05 0.0 -6.808600E-06 0.0 7.217596E-02 G 0.0 0.0 1.672366E-04 0.0 -1.795683E-05 0.0 7.356396E-02 G 0.0 0.0 2.503737E-04 0.0 -2.606404E-05 0.0 7.495196E-02 G 0.0 0.0 2.790838E-04 0.0 -2.889690E-05 0.0 7.633996E-02 G 0.0 0.0 2.477497E-04 0.0 -2.587745E-05 0.0 7.772796E-02 G 0.0 0.0 1.684814E-04 0.0 -1.813851E-05 0.0 7.911596E-02 G 0.0 0.0 6.601420E-05 0.0 -8.058236E-06 0.0 8.050396E-02 G 0.0 0.0 -3.056983E-05 0.0 1.520955E-06 0.0 8.189195E-02 G 0.0 0.0 -9.630631E-05 0.0 8.112528E-06 0.0 8.327995E-02 G 0.0 0.0 -1.164665E-04 0.0 1.020216E-05 0.0 8.466795E-02 G 0.0 0.0 -8.902832E-05 0.0 7.524753E-06 0.0 8.605595E-02 G 0.0 0.0 -2.358862E-05 0.0 9.933751E-07 0.0 8.744395E-02 G 0.0 0.0 6.221067E-05 0.0 -7.632811E-06 0.0 8.883195E-02 G 0.0 0.0 1.473445E-04 0.0 -1.621414E-05 0.0 9.021994E-02 G 0.0 0.0 2.119959E-04 0.0 -2.271275E-05 0.0 9.160794E-02 G 0.0 0.0 2.413938E-04 0.0 -2.561020E-05 0.0 9.299594E-02 G 0.0 0.0 2.285905E-04 0.0 -2.421127E-05 0.0 9.438394E-02 G 0.0 0.0 1.759764E-04 0.0 -1.880000E-05 0.0 9.577194E-02 G 0.0 0.0 9.524221E-05 0.0 -1.061615E-05 0.0 9.715994E-02 G 0.0 0.0 5.461055E-06 0.0 -1.629014E-06 0.0 9.854794E-02 G 0.0 0.0 -7.080670E-05 0.0 5.884189E-06 0.0 9.993593E-02 G 0.0 0.0 -1.129158E-04 0.0 9.892343E-06 0.0 1.013239E-01 G 0.0 0.0 -1.072432E-04 0.0 9.160995E-06 0.0 1.027119E-01 G 0.0 0.0 -4.842878E-05 0.0 3.766276E-06 0.0 1.040999E-01 G 0.0 0.0 3.685717E-05 0.0 -3.972328E-06 0.0 1.054879E-01 G 0.0 0.0 1.113415E-04 0.0 -1.076288E-05 0.0 1.068759E-01 G 0.0 0.0 1.446313E-04 0.0 -1.394097E-05 0.0 1.082639E-01 G 0.0 0.0 1.270186E-04 0.0 -1.269231E-05 0.0 1.096519E-01 G 0.0 0.0 7.394583E-05 0.0 -8.359993E-06 0.0 1.110399E-01 G 0.0 0.0 1.699153E-05 0.0 -3.678347E-06 0.0 1.124279E-01 G 0.0 0.0 -1.258318E-05 0.0 -1.383019E-06 0.0 1.138159E-01 G 0.0 0.0 1.740854E-06 0.0 -2.922984E-06 0.0 1.152039E-01 G 0.0 0.0 5.494988E-05 0.0 -7.851504E-06 0.0 1.165919E-01 G 0.0 0.0 1.237701E-04 0.0 -1.413741E-05 0.0 1.179799E-01 G 0.0 0.0 1.787383E-04 0.0 -1.921833E-05 0.0 1.193679E-01 G 0.0 0.0 1.987391E-04 0.0 -2.125151E-05 0.0 1.207559E-01 G 0.0 0.0 1.804682E-04 0.0 -1.994507E-05 0.0 1.221439E-01 G 0.0 0.0 1.388838E-04 0.0 -1.660581E-05 0.0 1.235319E-01 G 0.0 0.0 9.916695E-05 0.0 -1.343088E-05 0.0 1.249199E-01 G 0.0 0.0 8.422782E-05 0.0 -1.241591E-05 0.0 1.263079E-01 G 0.0 0.0 1.038980E-04 0.0 -1.441810E-05 0.0 1.276959E-01 G 0.0 0.0 1.510167E-04 0.0 -1.881443E-05 0.0 1.290839E-01 G 0.0 0.0 2.058337E-04 0.0 -2.388224E-05 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 POINT-ID = 1 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 1.304719E-01 G 0.0 0.0 2.460711E-04 0.0 -2.767822E-05 0.0 1.318599E-01 G 0.0 0.0 2.576143E-04 0.0 -2.897219E-05 0.0 1.332479E-01 G 0.0 0.0 2.407652E-04 0.0 -2.779069E-05 0.0 1.346359E-01 G 0.0 0.0 2.092839E-04 0.0 -2.533312E-05 0.0 1.360239E-01 G 0.0 0.0 1.830835E-04 0.0 -2.333592E-05 0.0 1.374119E-01 G 0.0 0.0 1.784393E-04 0.0 -2.321853E-05 0.0 1.387999E-01 G 0.0 0.0 2.004833E-04 0.0 -2.542833E-05 0.0 1.401879E-01 G 0.0 0.0 2.413973E-04 0.0 -2.928346E-05 0.0 1.415759E-01 G 0.0 0.0 2.848533E-04 0.0 -3.336028E-05 0.0 1.429639E-01 G 0.0 0.0 3.142455E-04 0.0 -3.621081E-05 0.0 1.443519E-01 G 0.0 0.0 3.205830E-04 0.0 -3.705097E-05 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 POINT-ID = 26 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 1.388000E-03 G 0.0 0.0 3.346191E-03 0.0 -1.603686E-03 0.0 2.776000E-03 G 0.0 0.0 1.799773E-02 0.0 -7.075692E-03 0.0 4.164000E-03 G 0.0 0.0 3.245640E-02 0.0 -1.205978E-02 0.0 5.552000E-03 G 0.0 0.0 2.809707E-02 0.0 -1.032686E-02 0.0 6.940000E-03 G 0.0 0.0 3.562276E-03 0.0 -1.180603E-03 0.0 8.328000E-03 G 0.0 0.0 -3.010948E-02 0.0 1.158703E-02 0.0 9.716000E-03 G 0.0 0.0 -6.037429E-02 0.0 2.297566E-02 0.0 1.110400E-02 G 0.0 0.0 -7.236374E-02 0.0 2.729096E-02 0.0 1.249200E-02 G 0.0 0.0 -5.503862E-02 0.0 2.065059E-02 0.0 1.388000E-02 G 0.0 0.0 -1.209156E-02 0.0 4.465953E-03 0.0 1.526800E-02 G 0.0 0.0 3.983499E-02 0.0 -1.512903E-02 0.0 1.665600E-02 G 0.0 0.0 8.073091E-02 0.0 -3.053899E-02 0.0 1.804400E-02 G 0.0 0.0 9.407398E-02 0.0 -3.548751E-02 0.0 1.943200E-02 G 0.0 0.0 7.293751E-02 0.0 -2.745185E-02 0.0 2.082000E-02 G 0.0 0.0 2.460171E-02 0.0 -9.206388E-03 0.0 2.220800E-02 G 0.0 0.0 -3.235627E-02 0.0 1.229417E-02 0.0 2.359600E-02 G 0.0 0.0 -7.679952E-02 0.0 2.907711E-02 0.0 2.498400E-02 G 0.0 0.0 -9.322059E-02 0.0 3.527009E-02 0.0 2.637200E-02 G 0.0 0.0 -7.703325E-02 0.0 2.915876E-02 0.0 2.776000E-02 G 0.0 0.0 -3.604644E-02 0.0 1.369330E-02 0.0 2.914800E-02 G 0.0 0.0 1.333605E-02 0.0 -4.962231E-03 0.0 3.053601E-02 G 0.0 0.0 5.347558E-02 0.0 -2.015746E-02 0.0 3.192401E-02 G 0.0 0.0 7.224403E-02 0.0 -2.729673E-02 0.0 3.331200E-02 G 0.0 0.0 6.658104E-02 0.0 -2.520827E-02 0.0 3.470000E-02 G 0.0 0.0 4.226969E-02 0.0 -1.605674E-02 0.0 3.608800E-02 G 0.0 0.0 1.031460E-02 0.0 -3.975099E-03 0.0 3.747600E-02 G 0.0 0.0 -1.823092E-02 0.0 6.866673E-03 0.0 3.886400E-02 G 0.0 0.0 -3.631631E-02 0.0 1.378501E-02 0.0 4.025200E-02 G 0.0 0.0 -4.226635E-02 0.0 1.611569E-02 0.0 4.163999E-02 G 0.0 0.0 -3.859251E-02 0.0 1.477629E-02 0.0 4.302799E-02 G 0.0 0.0 -2.935519E-02 0.0 1.127883E-02 0.0 4.441599E-02 G 0.0 0.0 -1.765581E-02 0.0 6.794477E-03 0.0 4.580399E-02 G 0.0 0.0 -4.633224E-03 0.0 1.776880E-03 0.0 4.719199E-02 G 0.0 0.0 9.729233E-03 0.0 -3.744511E-03 0.0 4.857999E-02 G 0.0 0.0 2.485072E-02 0.0 -9.516674E-03 0.0 4.996799E-02 G 0.0 0.0 3.818675E-02 0.0 -1.455832E-02 0.0 5.135598E-02 G 0.0 0.0 4.529386E-02 0.0 -1.719181E-02 0.0 5.274398E-02 G 0.0 0.0 4.156195E-02 0.0 -1.569670E-02 0.0 5.413198E-02 G 0.0 0.0 2.484149E-02 0.0 -9.292253E-03 0.0 5.551998E-02 G 0.0 0.0 -2.460740E-03 0.0 1.083482E-03 0.0 5.690798E-02 G 0.0 0.0 -3.311022E-02 0.0 1.268084E-02 0.0 5.829598E-02 G 0.0 0.0 -5.705976E-02 0.0 2.170396E-02 0.0 5.968397E-02 G 0.0 0.0 -6.511977E-02 0.0 2.469521E-02 0.0 6.107197E-02 G 0.0 0.0 -5.279030E-02 0.0 1.997524E-02 0.0 6.245997E-02 G 0.0 0.0 -2.255312E-02 0.0 8.500353E-03 0.0 6.384797E-02 G 0.0 0.0 1.649231E-02 0.0 -6.280657E-03 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 POINT-ID = 26 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 6.523597E-02 G 0.0 0.0 5.164590E-02 0.0 -1.956775E-02 0.0 6.662397E-02 G 0.0 0.0 7.114290E-02 0.0 -2.692088E-02 0.0 6.801197E-02 G 0.0 0.0 6.842663E-02 0.0 -2.586999E-02 0.0 6.939997E-02 G 0.0 0.0 4.448099E-02 0.0 -1.679268E-02 0.0 7.078797E-02 G 0.0 0.0 7.354266E-03 0.0 -2.733418E-03 0.0 7.217596E-02 G 0.0 0.0 -3.085117E-02 0.0 1.173254E-02 0.0 7.356396E-02 G 0.0 0.0 -5.827514E-02 0.0 2.212025E-02 0.0 7.495196E-02 G 0.0 0.0 -6.721932E-02 0.0 2.551503E-02 0.0 7.633996E-02 G 0.0 0.0 -5.630552E-02 0.0 2.138930E-02 0.0 7.772796E-02 G 0.0 0.0 -3.028488E-02 0.0 1.153381E-02 0.0 7.911596E-02 G 0.0 0.0 2.148204E-03 0.0 -7.646724E-04 0.0 8.050396E-02 G 0.0 0.0 3.149816E-02 0.0 -1.190878E-02 0.0 8.189195E-02 G 0.0 0.0 5.034440E-02 0.0 -1.907896E-02 0.0 8.327995E-02 G 0.0 0.0 5.505057E-02 0.0 -2.088422E-02 0.0 8.466795E-02 G 0.0 0.0 4.601499E-02 0.0 -1.746333E-02 0.0 8.605595E-02 G 0.0 0.0 2.676345E-02 0.0 -1.014729E-02 0.0 8.744395E-02 G 0.0 0.0 2.511488E-03 0.0 -9.178431E-04 0.0 8.883195E-02 G 0.0 0.0 -2.120220E-02 0.0 8.112021E-03 0.0 9.021994E-02 G 0.0 0.0 -3.948911E-02 0.0 1.507256E-02 0.0 9.160794E-02 G 0.0 0.0 -4.869914E-02 0.0 1.856761E-02 0.0 9.299594E-02 G 0.0 0.0 -4.681949E-02 0.0 1.783136E-02 0.0 9.438394E-02 G 0.0 0.0 -3.384397E-02 0.0 1.286982E-02 0.0 9.577194E-02 G 0.0 0.0 -1.207076E-02 0.0 4.570294E-03 0.0 9.715994E-02 G 0.0 0.0 1.391800E-02 0.0 -5.313071E-03 0.0 9.854794E-02 G 0.0 0.0 3.788796E-02 0.0 -1.440566E-02 0.0 9.993593E-02 G 0.0 0.0 5.330899E-02 0.0 -2.023087E-02 0.0 1.013239E-01 G 0.0 0.0 5.585606E-02 0.0 -2.090281E-02 0.0 1.027119E-01 G 0.0 0.0 3.012451E-02 0.0 -1.137916E-02 0.0 1.040999E-01 G 0.0 0.0 -6.712433E-03 0.0 2.532091E-03 0.0 1.054879E-01 G 0.0 0.0 -3.857062E-02 0.0 1.453742E-02 0.0 1.068759E-01 G 0.0 0.0 -5.127206E-02 0.0 1.923023E-02 0.0 1.082639E-01 G 0.0 0.0 -3.832243E-02 0.0 1.437423E-02 0.0 1.096519E-01 G 0.0 0.0 -7.496847E-03 0.0 2.864559E-03 0.0 1.110399E-01 G 0.0 0.0 2.465571E-02 0.0 -9.210233E-03 0.0 1.124279E-01 G 0.0 0.0 4.329157E-02 0.0 -1.622161E-02 0.0 1.138159E-01 G 0.0 0.0 4.074797E-02 0.0 -1.524224E-02 0.0 1.152039E-01 G 0.0 0.0 1.897907E-02 0.0 -7.064306E-03 0.0 1.165919E-01 G 0.0 0.0 -1.066986E-02 0.0 4.045530E-03 0.0 1.179799E-01 G 0.0 0.0 -3.335661E-02 0.0 1.256159E-02 0.0 1.193679E-01 G 0.0 0.0 -3.878569E-02 0.0 1.461230E-02 0.0 1.207559E-01 G 0.0 0.0 -2.553284E-02 0.0 9.640204E-03 0.0 1.221439E-01 G 0.0 0.0 -8.194351E-04 0.0 3.693237E-04 0.0 1.235319E-01 G 0.0 0.0 2.305629E-02 0.0 -8.578036E-03 0.0 1.249199E-01 G 0.0 0.0 3.472165E-02 0.0 -1.294883E-02 0.0 1.263079E-01 G 0.0 0.0 2.933968E-02 0.0 -1.092917E-02 0.0 1.276959E-01 G 0.0 0.0 1.050401E-02 0.0 -3.858516E-03 0.0 1.290839E-01 G 0.0 0.0 -1.210465E-02 0.0 4.628698E-03 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 POINT-ID = 26 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 1.304719E-01 G 0.0 0.0 -2.757514E-02 0.0 1.043506E-02 0.0 1.318599E-01 G 0.0 0.0 -2.893979E-02 0.0 1.095041E-02 0.0 1.332479E-01 G 0.0 0.0 -1.633493E-02 0.0 6.227287E-03 0.0 1.346359E-01 G 0.0 0.0 3.452407E-03 0.0 -1.191169E-03 0.0 1.360239E-01 G 0.0 0.0 2.063760E-02 0.0 -7.634277E-03 0.0 1.374119E-01 G 0.0 0.0 2.723701E-02 0.0 -1.010544E-02 0.0 1.387999E-01 G 0.0 0.0 2.072143E-02 0.0 -7.656716E-03 0.0 1.401879E-01 G 0.0 0.0 4.926320E-03 0.0 -1.727666E-03 0.0 1.415759E-01 G 0.0 0.0 -1.211656E-02 0.0 4.669627E-03 0.0 1.429639E-01 G 0.0 0.0 -2.224461E-02 0.0 8.473350E-03 0.0 1.443519E-01 G 0.0 0.0 -2.104436E-02 0.0 8.027297E-03 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 POINT-ID = 76 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 1.388000E-03 G 0.0 0.0 4.365433E-02 0.0 -6.241297E-03 0.0 2.776000E-03 G 0.0 0.0 1.421330E-01 0.0 -1.622561E-02 0.0 4.164000E-03 G 0.0 0.0 2.130956E-01 0.0 -2.124420E-02 0.0 5.552000E-03 G 0.0 0.0 1.781807E-01 0.0 -1.705708E-02 0.0 6.940000E-03 G 0.0 0.0 1.613650E-02 0.0 -6.312003E-04 0.0 8.328000E-03 G 0.0 0.0 -2.205137E-01 0.0 2.432217E-02 0.0 9.716000E-03 G 0.0 0.0 -4.279027E-01 0.0 4.567880E-02 0.0 1.110400E-02 G 0.0 0.0 -4.977542E-01 0.0 5.177722E-02 0.0 1.249200E-02 G 0.0 0.0 -3.716961E-01 0.0 3.795450E-02 0.0 1.388000E-02 G 0.0 0.0 -7.631418E-02 0.0 7.117844E-03 0.0 1.526800E-02 G 0.0 0.0 2.826927E-01 0.0 -3.038896E-02 0.0 1.665600E-02 G 0.0 0.0 5.641156E-01 0.0 -5.961811E-02 0.0 1.804400E-02 G 0.0 0.0 6.510106E-01 0.0 -6.818572E-02 0.0 1.943200E-02 G 0.0 0.0 5.012413E-01 0.0 -5.216339E-02 0.0 2.082000E-02 G 0.0 0.0 1.668379E-01 0.0 -1.713645E-02 0.0 2.220800E-02 G 0.0 0.0 -2.273142E-01 0.0 2.411481E-02 0.0 2.359600E-02 G 0.0 0.0 -5.352947E-01 0.0 5.636930E-02 0.0 2.498400E-02 G 0.0 0.0 -6.485760E-01 0.0 6.819521E-02 0.0 2.637200E-02 G 0.0 0.0 -5.364931E-01 0.0 5.646544E-02 0.0 2.776000E-02 G 0.0 0.0 -2.532676E-01 0.0 2.685261E-02 0.0 2.914800E-02 G 0.0 0.0 8.934155E-02 0.0 -9.101062E-03 0.0 3.053601E-02 G 0.0 0.0 3.697622E-01 0.0 -3.871899E-02 0.0 3.192401E-02 G 0.0 0.0 5.029680E-01 0.0 -5.300674E-02 0.0 3.331200E-02 G 0.0 0.0 4.667817E-01 0.0 -4.953431E-02 0.0 3.470000E-02 G 0.0 0.0 3.001146E-01 0.0 -3.224902E-02 0.0 3.608800E-02 G 0.0 0.0 7.782222E-02 0.0 -8.858294E-03 0.0 3.747600E-02 G 0.0 0.0 -1.237624E-01 0.0 1.266081E-02 0.0 3.886400E-02 G 0.0 0.0 -2.544915E-01 0.0 2.692398E-02 0.0 4.025200E-02 G 0.0 0.0 -3.008301E-01 0.0 3.231220E-02 0.0 4.163999E-02 G 0.0 0.0 -2.783053E-01 0.0 3.025390E-02 0.0 4.302799E-02 G 0.0 0.0 -2.137476E-01 0.0 2.342728E-02 0.0 4.441599E-02 G 0.0 0.0 -1.286417E-01 0.0 1.408599E-02 0.0 4.580399E-02 G 0.0 0.0 -3.231800E-02 0.0 3.356593E-03 0.0 4.719199E-02 G 0.0 0.0 7.315902E-02 0.0 -8.317775E-03 0.0 4.857999E-02 G 0.0 0.0 1.817124E-01 0.0 -2.008533E-02 0.0 4.996799E-02 G 0.0 0.0 2.744653E-01 0.0 -2.983869E-02 0.0 5.135598E-02 G 0.0 0.0 3.206459E-01 0.0 -3.435637E-02 0.0 5.274398E-02 G 0.0 0.0 2.895575E-01 0.0 -3.055162E-02 0.0 5.413198E-02 G 0.0 0.0 1.681962E-01 0.0 -1.725881E-02 0.0 5.551998E-02 G 0.0 0.0 -2.498478E-02 0.0 3.402455E-03 0.0 5.690798E-02 G 0.0 0.0 -2.387764E-01 0.0 2.595318E-02 0.0 5.829598E-02 G 0.0 0.0 -4.034549E-01 0.0 4.307609E-02 0.0 5.968397E-02 G 0.0 0.0 -4.561112E-01 0.0 4.825914E-02 0.0 6.107197E-02 G 0.0 0.0 -3.667816E-01 0.0 3.848940E-02 0.0 6.245997E-02 G 0.0 0.0 -1.538275E-01 0.0 1.581317E-02 0.0 6.384797E-02 G 0.0 0.0 1.189361E-01 0.0 -1.300195E-02 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 POINT-ID = 76 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 6.523597E-02 G 0.0 0.0 3.632573E-01 0.0 -3.868138E-02 0.0 6.662397E-02 G 0.0 0.0 4.977795E-01 0.0 -5.271649E-02 0.0 6.801197E-02 G 0.0 0.0 4.774312E-01 0.0 -5.042222E-02 0.0 6.939997E-02 G 0.0 0.0 3.093980E-01 0.0 -3.259051E-02 0.0 7.078797E-02 G 0.0 0.0 4.976156E-02 0.0 -5.132130E-03 0.0 7.217596E-02 G 0.0 0.0 -2.173128E-01 0.0 2.310047E-02 0.0 7.356396E-02 G 0.0 0.0 -4.092667E-01 0.0 4.341612E-02 0.0 7.495196E-02 G 0.0 0.0 -4.722965E-01 0.0 5.012870E-02 0.0 7.633996E-02 G 0.0 0.0 -3.964153E-01 0.0 4.214675E-02 0.0 7.772796E-02 G 0.0 0.0 -2.143333E-01 0.0 2.287707E-02 0.0 7.911596E-02 G 0.0 0.0 1.349256E-02 0.0 -1.321830E-03 0.0 8.050396E-02 G 0.0 0.0 2.205628E-01 0.0 -2.340743E-02 0.0 8.189195E-02 G 0.0 0.0 3.544029E-01 0.0 -3.777057E-02 0.0 8.327995E-02 G 0.0 0.0 3.887309E-01 0.0 -4.154438E-02 0.0 8.466795E-02 G 0.0 0.0 3.255934E-01 0.0 -3.486983E-02 0.0 8.605595E-02 G 0.0 0.0 1.893934E-01 0.0 -2.030201E-02 0.0 8.744395E-02 G 0.0 0.0 1.701069E-02 0.0 -1.783779E-03 0.0 8.883195E-02 G 0.0 0.0 -1.518702E-01 0.0 1.638975E-02 0.0 9.021994E-02 G 0.0 0.0 -2.819318E-01 0.0 3.036703E-02 0.0 9.160794E-02 G 0.0 0.0 -3.467956E-01 0.0 3.727096E-02 0.0 9.299594E-02 G 0.0 0.0 -3.321655E-01 0.0 3.556762E-02 0.0 9.438394E-02 G 0.0 0.0 -2.385064E-01 0.0 2.535954E-02 0.0 9.577194E-02 G 0.0 0.0 -8.292542E-02 0.0 8.563142E-03 0.0 9.715994E-02 G 0.0 0.0 1.013760E-01 0.0 -1.119062E-02 0.0 9.854794E-02 G 0.0 0.0 2.699593E-01 0.0 -2.911568E-02 0.0 9.993593E-02 G 0.0 0.0 3.769271E-01 0.0 -4.033486E-02 0.0 1.013239E-01 G 0.0 0.0 3.754478E-01 0.0 -3.823087E-02 0.0 1.027119E-01 G 0.0 0.0 2.094664E-01 0.0 -2.187916E-02 0.0 1.040999E-01 G 0.0 0.0 -4.587235E-02 0.0 4.718856E-03 0.0 1.054879E-01 G 0.0 0.0 -2.650304E-01 0.0 2.742118E-02 0.0 1.068759E-01 G 0.0 0.0 -3.463113E-01 0.0 3.537359E-02 0.0 1.082639E-01 G 0.0 0.0 -2.584733E-01 0.0 2.636396E-02 0.0 1.096519E-01 G 0.0 0.0 -5.282632E-02 0.0 5.542277E-03 0.0 1.110399E-01 G 0.0 0.0 1.661138E-01 0.0 -1.697441E-02 0.0 1.124279E-01 G 0.0 0.0 2.939105E-01 0.0 -3.018831E-02 0.0 1.138159E-01 G 0.0 0.0 2.752622E-01 0.0 -2.817241E-02 0.0 1.152039E-01 G 0.0 0.0 1.271883E-01 0.0 -1.296287E-02 0.0 1.165919E-01 G 0.0 0.0 -7.274424E-02 0.0 7.440393E-03 0.0 1.179799E-01 G 0.0 0.0 -2.266428E-01 0.0 2.321609E-02 0.0 1.193679E-01 G 0.0 0.0 -2.641360E-01 0.0 2.710778E-02 0.0 1.207559E-01 G 0.0 0.0 -1.740930E-01 0.0 1.786054E-02 0.0 1.221439E-01 G 0.0 0.0 -6.411734E-03 0.0 6.610034E-04 0.0 1.235319E-01 G 0.0 0.0 1.550000E-01 0.0 -1.585028E-02 0.0 1.249199E-01 G 0.0 0.0 2.339155E-01 0.0 -2.392886E-02 0.0 1.263079E-01 G 0.0 0.0 1.975962E-01 0.0 -2.022361E-02 0.0 1.276959E-01 G 0.0 0.0 6.984286E-02 0.0 -7.130284E-03 0.0 1.290839E-01 G 0.0 0.0 -8.355491E-02 0.0 8.596296E-03 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 POINT-ID = 76 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 1.304719E-01 G 0.0 0.0 -1.883809E-01 0.0 1.933113E-02 0.0 1.318599E-01 G 0.0 0.0 -1.976499E-01 0.0 2.027843E-02 0.0 1.332479E-01 G 0.0 0.0 -1.123741E-01 0.0 1.154872E-02 0.0 1.346359E-01 G 0.0 0.0 2.163670E-02 0.0 -2.178846E-03 0.0 1.360239E-01 G 0.0 0.0 1.380645E-01 0.0 -1.410892E-02 0.0 1.374119E-01 G 0.0 0.0 1.826991E-01 0.0 -1.867910E-02 0.0 1.387999E-01 G 0.0 0.0 1.384535E-01 0.0 -1.414288E-02 0.0 1.401879E-01 G 0.0 0.0 3.136883E-02 0.0 -3.172070E-03 0.0 1.415759E-01 G 0.0 0.0 -8.418217E-02 0.0 8.666964E-03 0.0 1.429639E-01 G 0.0 0.0 -1.528985E-01 0.0 1.570957E-02 0.0 1.443519E-01 G 0.0 0.0 -1.448347E-01 0.0 1.488481E-02 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.388000E-03 -1.733121E+03 0.0 0.0 0.0 0.0 0.0 -1.733121E+03 -1.902216E+03 0.0 0.0 0.0 0.0 -1.902216E+03 -9.9E-01 2.776000E-03 -1.710767E+04 0.0 0.0 0.0 0.0 0.0 -1.710767E+04 -1.705642E+04 0.0 0.0 0.0 0.0 -1.705642E+04 -1.0E+00 4.164000E-03 -3.424315E+04 0.0 0.0 0.0 0.0 0.0 -3.424315E+04 -3.373216E+04 0.0 0.0 0.0 0.0 -3.373216E+04 -1.0E+00 5.552000E-03 -3.005407E+04 0.0 0.0 0.0 0.0 0.0 -3.005407E+04 -2.955192E+04 0.0 0.0 0.0 0.0 -2.955192E+04 -1.0E+00 6.940000E-03 -4.027473E+03 0.0 0.0 0.0 0.0 0.0 -4.027473E+03 -3.913852E+03 0.0 0.0 0.0 0.0 -3.913852E+03 -1.0E+00 8.328000E-03 3.060659E+04 0.0 0.0 0.0 0.0 3.060659E+04 0.0 -1.0E+00 3.031333E+04 0.0 0.0 0.0 3.031333E+04 0.0 9.716000E-03 6.210199E+04 0.0 0.0 0.0 0.0 6.210199E+04 0.0 -1.0E+00 6.139441E+04 0.0 0.0 0.0 6.139441E+04 0.0 1.110400E-02 7.544948E+04 0.0 0.0 0.0 0.0 7.544948E+04 0.0 -1.0E+00 7.446672E+04 0.0 0.0 0.0 7.446672E+04 0.0 1.249200E-02 5.788283E+04 0.0 0.0 0.0 0.0 5.788283E+04 0.0 -1.0E+00 5.707171E+04 0.0 0.0 0.0 5.707171E+04 0.0 1.388000E-02 1.316947E+04 0.0 0.0 0.0 0.0 1.316947E+04 0.0 -9.9E-01 1.293783E+04 0.0 0.0 0.0 1.293783E+04 0.0 1.526800E-02 -4.072243E+04 0.0 0.0 0.0 0.0 0.0 -4.072243E+04 -4.027035E+04 0.0 0.0 0.0 0.0 -4.027035E+04 -1.0E+00 1.665600E-02 -8.324382E+04 0.0 0.0 0.0 0.0 0.0 -8.324382E+04 -8.224135E+04 0.0 0.0 0.0 0.0 -8.224135E+04 -1.0E+00 1.804400E-02 -9.745927E+04 0.0 0.0 0.0 0.0 0.0 -9.745927E+04 -9.623274E+04 0.0 0.0 0.0 0.0 -9.623274E+04 -1.0E+00 1.943200E-02 -7.576463E+04 0.0 0.0 0.0 0.0 0.0 -7.576463E+04 -7.478355E+04 0.0 0.0 0.0 0.0 -7.478355E+04 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.082000E-02 -2.559564E+04 0.0 0.0 0.0 0.0 0.0 -2.559564E+04 -2.524891E+04 0.0 0.0 0.0 0.0 -2.524891E+04 -1.0E+00 2.220800E-02 3.350380E+04 0.0 0.0 0.0 0.0 3.350380E+04 0.0 -1.0E+00 3.310387E+04 0.0 0.0 0.0 3.310387E+04 0.0 2.359600E-02 7.958317E+04 0.0 0.0 0.0 0.0 7.958317E+04 0.0 -1.0E+00 7.860451E+04 0.0 0.0 0.0 7.860451E+04 0.0 2.498400E-02 9.664696E+04 0.0 0.0 0.0 0.0 9.664696E+04 0.0 -1.0E+00 9.544976E+04 0.0 0.0 0.0 9.544976E+04 0.0 2.637200E-02 7.985766E+04 0.0 0.0 0.0 0.0 7.985766E+04 0.0 -1.0E+00 7.887213E+04 0.0 0.0 0.0 7.887213E+04 0.0 2.776000E-02 3.729953E+04 0.0 0.0 0.0 0.0 3.729953E+04 0.0 -1.0E+00 3.685488E+04 0.0 0.0 0.0 3.685488E+04 0.0 2.914800E-02 -1.388289E+04 0.0 0.0 0.0 0.0 0.0 -1.388289E+04 -1.368811E+04 0.0 0.0 0.0 0.0 -1.368811E+04 -1.0E+00 3.053601E-02 -5.535439E+04 0.0 0.0 0.0 0.0 0.0 -5.535439E+04 -5.465736E+04 0.0 0.0 0.0 0.0 -5.465736E+04 -1.0E+00 3.192401E-02 -7.460884E+04 0.0 0.0 0.0 0.0 0.0 -7.460884E+04 -7.369577E+04 0.0 0.0 0.0 0.0 -7.369577E+04 -1.0E+00 3.331200E-02 -6.853538E+04 0.0 0.0 0.0 0.0 0.0 -6.853538E+04 -6.772362E+04 0.0 0.0 0.0 0.0 -6.772362E+04 -1.0E+00 3.470000E-02 -4.320491E+04 0.0 0.0 0.0 0.0 0.0 -4.320491E+04 -4.272600E+04 0.0 0.0 0.0 0.0 -4.272600E+04 -1.0E+00 3.608800E-02 -1.012389E+04 0.0 0.0 0.0 0.0 0.0 -1.012389E+04 -1.005337E+04 0.0 0.0 0.0 0.0 -1.005337E+04 -1.0E+00 3.747600E-02 1.922738E+04 0.0 0.0 0.0 0.0 1.922738E+04 0.0 -9.9E-01 1.896023E+04 0.0 0.0 0.0 1.896023E+04 0.0 3.886400E-02 3.762445E+04 0.0 0.0 0.0 0.0 3.762445E+04 0.0 -1.0E+00 3.717059E+04 0.0 0.0 0.0 3.717059E+04 0.0 4.025200E-02 4.345728E+04 0.0 0.0 0.0 0.0 4.345728E+04 0.0 -1.0E+00 4.297200E+04 0.0 0.0 0.0 4.297200E+04 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 4.163999E-02 3.945324E+04 0.0 0.0 0.0 0.0 3.945324E+04 0.0 -1.0E+00 3.904227E+04 0.0 0.0 0.0 3.904227E+04 0.0 4.302799E-02 2.990958E+04 0.0 0.0 0.0 0.0 2.990958E+04 0.0 -1.0E+00 2.961390E+04 0.0 0.0 0.0 2.961390E+04 0.0 4.441599E-02 1.804367E+04 0.0 0.0 0.0 0.0 1.804367E+04 0.0 -9.9E-01 1.786395E+04 0.0 0.0 0.0 1.786395E+04 0.0 4.580399E-02 4.941009E+03 0.0 0.0 0.0 0.0 4.941009E+03 0.0 -9.8E-01 4.875958E+03 0.0 0.0 0.0 4.875958E+03 0.0 4.719199E-02 -9.559622E+03 0.0 0.0 0.0 0.0 0.0 -9.559622E+03 -9.491334E+03 0.0 0.0 0.0 0.0 -9.491334E+03 -1.0E+00 4.857999E-02 -2.499107E+04 0.0 0.0 0.0 0.0 0.0 -2.499107E+04 -2.475983E+04 0.0 0.0 0.0 0.0 -2.475983E+04 -1.0E+00 4.996799E-02 -3.879704E+04 0.0 0.0 0.0 0.0 0.0 -3.879704E+04 -3.839519E+04 0.0 0.0 0.0 0.0 -3.839519E+04 -1.0E+00 5.135598E-02 -4.636890E+04 0.0 0.0 0.0 0.0 0.0 -4.636890E+04 -4.584677E+04 0.0 0.0 0.0 0.0 -4.584677E+04 -1.0E+00 5.274398E-02 -4.284370E+04 0.0 0.0 0.0 0.0 0.0 -4.284370E+04 -4.232297E+04 0.0 0.0 0.0 0.0 -4.232297E+04 -1.0E+00 5.413198E-02 -2.586757E+04 0.0 0.0 0.0 0.0 0.0 -2.586757E+04 -2.551497E+04 0.0 0.0 0.0 0.0 -2.551497E+04 -1.0E+00 5.551998E-02 2.180752E+03 0.0 0.0 0.0 0.0 2.180752E+03 0.0 -9.5E-01 2.213759E+03 0.0 0.0 0.0 2.213759E+03 0.0 5.690798E-02 3.387037E+04 0.0 0.0 0.0 0.0 3.387037E+04 0.0 -1.0E+00 3.351688E+04 0.0 0.0 0.0 3.351688E+04 0.0 5.829598E-02 5.878945E+04 0.0 0.0 0.0 0.0 5.878945E+04 0.0 -1.0E+00 5.811249E+04 0.0 0.0 0.0 5.811249E+04 0.0 5.968397E-02 6.735786E+04 0.0 0.0 0.0 0.0 6.735786E+04 0.0 -1.0E+00 6.654703E+04 0.0 0.0 0.0 6.654703E+04 0.0 6.107197E-02 5.482892E+04 0.0 0.0 0.0 0.0 5.482892E+04 0.0 -1.0E+00 5.414352E+04 0.0 0.0 0.0 5.414352E+04 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 6.245997E-02 2.369951E+04 0.0 0.0 0.0 0.0 2.369951E+04 0.0 -1.0E+00 2.337702E+04 0.0 0.0 0.0 2.337702E+04 0.0 6.384797E-02 -1.664456E+04 0.0 0.0 0.0 0.0 0.0 -1.664456E+04 -1.647838E+04 0.0 0.0 0.0 0.0 -1.647838E+04 -1.0E+00 6.523597E-02 -5.304986E+04 0.0 0.0 0.0 0.0 0.0 -5.304986E+04 -5.243237E+04 0.0 0.0 0.0 0.0 -5.243237E+04 -1.0E+00 6.662397E-02 -7.330569E+04 0.0 0.0 0.0 0.0 0.0 -7.330569E+04 -7.242902E+04 0.0 0.0 0.0 0.0 -7.242902E+04 -1.0E+00 6.801197E-02 -7.058912E+04 0.0 0.0 0.0 0.0 0.0 -7.058912E+04 -6.973400E+04 0.0 0.0 0.0 0.0 -6.973400E+04 -1.0E+00 6.939997E-02 -4.589618E+04 0.0 0.0 0.0 0.0 0.0 -4.589618E+04 -4.533396E+04 0.0 0.0 0.0 0.0 -4.533396E+04 -1.0E+00 7.078797E-02 -7.552585E+03 0.0 0.0 0.0 0.0 0.0 -7.552585E+03 -7.452498E+03 0.0 0.0 0.0 0.0 -7.452498E+03 -1.0E+00 7.217596E-02 3.191173E+04 0.0 0.0 0.0 0.0 3.191173E+04 0.0 -1.0E+00 3.153527E+04 0.0 0.0 0.0 3.153527E+04 0.0 7.356396E-02 6.022271E+04 0.0 0.0 0.0 0.0 6.022271E+04 0.0 -1.0E+00 5.950634E+04 0.0 0.0 0.0 5.950634E+04 0.0 7.495196E-02 6.942764E+04 0.0 0.0 0.0 0.0 6.942764E+04 0.0 -1.0E+00 6.860435E+04 0.0 0.0 0.0 6.860435E+04 0.0 7.633996E-02 5.812638E+04 0.0 0.0 0.0 0.0 5.812638E+04 0.0 -1.0E+00 5.744281E+04 0.0 0.0 0.0 5.744281E+04 0.0 7.772796E-02 3.125998E+04 0.0 0.0 0.0 0.0 3.125998E+04 0.0 -1.0E+00 3.089933E+04 0.0 0.0 0.0 3.089933E+04 0.0 7.911596E-02 -2.169287E+03 0.0 0.0 0.0 0.0 0.0 -2.169287E+03 -2.135360E+03 0.0 0.0 0.0 0.0 -2.135360E+03 -9.9E-01 8.050396E-02 -3.236088E+04 0.0 0.0 0.0 0.0 0.0 -3.236088E+04 -3.197801E+04 0.0 0.0 0.0 0.0 -3.197801E+04 -1.0E+00 8.189195E-02 -5.168939E+04 0.0 0.0 0.0 0.0 0.0 -5.168939E+04 -5.109032E+04 0.0 0.0 0.0 0.0 -5.109032E+04 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 8.327995E-02 -5.645569E+04 0.0 0.0 0.0 0.0 0.0 -5.645569E+04 -5.581082E+04 0.0 0.0 0.0 0.0 -5.581082E+04 -1.0E+00 8.466795E-02 -4.711998E+04 0.0 0.0 0.0 0.0 0.0 -4.711998E+04 -4.658800E+04 0.0 0.0 0.0 0.0 -4.658800E+04 -1.0E+00 8.605595E-02 -2.734067E+04 0.0 0.0 0.0 0.0 0.0 -2.734067E+04 -2.703417E+04 0.0 0.0 0.0 0.0 -2.703417E+04 -1.0E+00 8.744395E-02 -2.477433E+03 0.0 0.0 0.0 0.0 0.0 -2.477433E+03 -2.447731E+03 0.0 0.0 0.0 0.0 -2.447731E+03 -1.0E+00 8.883195E-02 2.181223E+04 0.0 0.0 0.0 0.0 2.181223E+04 0.0 -9.9E-01 2.157428E+04 0.0 0.0 0.0 2.157428E+04 0.0 9.021994E-02 4.055431E+04 0.0 0.0 0.0 0.0 4.055431E+04 0.0 -1.0E+00 4.010828E+04 0.0 0.0 0.0 4.010828E+04 0.0 9.160794E-02 5.003546E+04 0.0 0.0 0.0 0.0 5.003546E+04 0.0 -1.0E+00 4.947890E+04 0.0 0.0 0.0 4.947890E+04 0.0 9.299594E-02 4.819160E+04 0.0 0.0 0.0 0.0 4.819160E+04 0.0 -1.0E+00 4.764500E+04 0.0 0.0 0.0 4.764500E+04 0.0 9.438394E-02 3.498305E+04 0.0 0.0 0.0 0.0 3.498305E+04 0.0 -1.0E+00 3.457166E+04 0.0 0.0 0.0 3.457166E+04 0.0 9.577194E-02 1.271495E+04 0.0 0.0 0.0 0.0 1.271495E+04 0.0 -9.9E-01 1.254464E+04 0.0 0.0 0.0 1.254464E+04 0.0 9.715994E-02 -1.395667E+04 0.0 0.0 0.0 0.0 0.0 -1.395667E+04 -1.382652E+04 0.0 0.0 0.0 0.0 -1.382652E+04 -1.0E+00 9.854794E-02 -3.864866E+04 0.0 0.0 0.0 0.0 0.0 -3.864866E+04 -3.822873E+04 0.0 0.0 0.0 0.0 -3.822873E+04 -1.0E+00 9.993593E-02 -5.463223E+04 0.0 0.0 0.0 0.0 0.0 -5.463223E+04 -5.401241E+04 0.0 0.0 0.0 0.0 -5.401241E+04 -1.0E+00 1.013239E-01 -5.870312E+04 0.0 0.0 0.0 0.0 0.0 -5.870312E+04 -5.787101E+04 0.0 0.0 0.0 0.0 -5.787101E+04 -1.0E+00 1.027119E-01 -3.111315E+04 0.0 0.0 0.0 0.0 0.0 -3.111315E+04 -3.072902E+04 0.0 0.0 0.0 0.0 -3.072902E+04 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.040999E-01 7.053278E+03 0.0 0.0 0.0 0.0 7.053278E+03 0.0 -9.8E-01 6.957729E+03 0.0 0.0 0.0 6.957729E+03 0.0 1.054879E-01 4.018779E+04 0.0 0.0 0.0 0.0 4.018779E+04 0.0 -1.0E+00 3.966220E+04 0.0 0.0 0.0 3.966220E+04 0.0 1.068759E-01 5.386201E+04 0.0 0.0 0.0 0.0 5.386201E+04 0.0 -1.0E+00 5.310933E+04 0.0 0.0 0.0 5.310933E+04 0.0 1.082639E-01 4.032888E+04 0.0 0.0 0.0 0.0 4.032888E+04 0.0 -1.0E+00 3.976115E+04 0.0 0.0 0.0 3.976115E+04 0.0 1.096519E-01 7.831553E+03 0.0 0.0 0.0 0.0 7.831553E+03 0.0 -9.9E-01 7.736317E+03 0.0 0.0 0.0 7.736317E+03 0.0 1.110399E-01 -2.573632E+04 0.0 0.0 0.0 0.0 0.0 -2.573632E+04 -2.537883E+04 0.0 0.0 0.0 0.0 -2.537883E+04 -1.0E+00 1.124279E-01 -4.511761E+04 0.0 0.0 0.0 0.0 0.0 -4.511761E+04 -4.450618E+04 0.0 0.0 0.0 0.0 -4.450618E+04 -1.0E+00 1.138159E-01 -4.253904E+04 0.0 0.0 0.0 0.0 0.0 -4.253904E+04 -4.195231E+04 0.0 0.0 0.0 0.0 -4.195231E+04 -1.0E+00 1.152039E-01 -1.976666E+04 0.0 0.0 0.0 0.0 0.0 -1.976666E+04 -1.948932E+04 0.0 0.0 0.0 0.0 -1.948932E+04 -1.0E+00 1.165919E-01 1.137092E+04 0.0 0.0 0.0 0.0 1.137092E+04 0.0 -9.9E-01 1.121149E+04 0.0 0.0 0.0 1.121149E+04 0.0 1.179799E-01 3.513365E+04 0.0 0.0 0.0 0.0 3.513365E+04 0.0 -1.0E+00 3.464804E+04 0.0 0.0 0.0 3.464804E+04 0.0 1.193679E-01 4.078607E+04 0.0 0.0 0.0 0.0 4.078607E+04 0.0 -1.0E+00 4.022776E+04 0.0 0.0 0.0 4.022776E+04 0.0 1.207559E-01 2.694659E+04 0.0 0.0 0.0 0.0 2.694659E+04 0.0 -1.0E+00 2.657623E+04 0.0 0.0 0.0 2.657623E+04 0.0 1.221439E-01 1.105227E+03 0.0 0.0 0.0 0.0 1.105227E+03 0.0 -9.0E-01 1.088075E+03 0.0 0.0 0.0 1.088075E+03 0.0 1.235319E-01 -2.390300E+04 0.0 0.0 0.0 0.0 0.0 -2.390300E+04 -2.357360E+04 0.0 0.0 0.0 0.0 -2.357360E+04 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.249199E-01 -3.610769E+04 0.0 0.0 0.0 0.0 0.0 -3.610769E+04 -3.560987E+04 0.0 0.0 0.0 0.0 -3.560987E+04 -1.0E+00 1.263079E-01 -3.044119E+04 0.0 0.0 0.0 0.0 0.0 -3.044119E+04 -3.002310E+04 0.0 0.0 0.0 0.0 -3.002310E+04 -1.0E+00 1.276959E-01 -1.070730E+04 0.0 0.0 0.0 0.0 0.0 -1.070730E+04 -1.056033E+04 0.0 0.0 0.0 0.0 -1.056033E+04 -1.0E+00 1.290839E-01 1.297156E+04 0.0 0.0 0.0 0.0 1.297156E+04 0.0 -9.9E-01 1.279377E+04 0.0 0.0 0.0 1.279377E+04 0.0 1.304719E-01 2.919101E+04 0.0 0.0 0.0 0.0 2.919101E+04 0.0 -1.0E+00 2.878940E+04 0.0 0.0 0.0 2.878940E+04 0.0 1.318599E-01 3.063820E+04 0.0 0.0 0.0 0.0 3.063820E+04 0.0 -1.0E+00 3.021635E+04 0.0 0.0 0.0 3.021635E+04 0.0 1.332479E-01 1.744931E+04 0.0 0.0 0.0 0.0 1.744931E+04 0.0 -9.9E-01 1.720935E+04 0.0 0.0 0.0 1.720935E+04 0.0 1.346359E-01 -3.255519E+03 0.0 0.0 0.0 0.0 0.0 -3.255519E+03 -3.210506E+03 0.0 0.0 0.0 0.0 -3.210506E+03 -1.0E+00 1.360239E-01 -2.123191E+04 0.0 0.0 0.0 0.0 0.0 -2.123191E+04 -2.093999E+04 0.0 0.0 0.0 0.0 -2.093999E+04 -1.0E+00 1.374119E-01 -2.812853E+04 0.0 0.0 0.0 0.0 0.0 -2.812853E+04 -2.774156E+04 0.0 0.0 0.0 0.0 -2.774156E+04 -1.0E+00 1.387999E-01 -2.129320E+04 0.0 0.0 0.0 0.0 0.0 -2.129320E+04 -2.100011E+04 0.0 0.0 0.0 0.0 -2.100011E+04 -1.0E+00 1.401879E-01 -4.738219E+03 0.0 0.0 0.0 0.0 0.0 -4.738219E+03 -4.673042E+03 0.0 0.0 0.0 0.0 -4.673042E+03 -1.0E+00 1.415759E-01 1.312248E+04 0.0 0.0 0.0 0.0 1.312248E+04 0.0 -9.9E-01 1.294184E+04 0.0 0.0 0.0 1.294184E+04 0.0 1.429639E-01 2.374104E+04 0.0 0.0 0.0 0.0 2.374104E+04 0.0 -1.0E+00 2.341439E+04 0.0 0.0 0.0 2.341439E+04 0.0 1.443519E-01 2.249893E+04 0.0 0.0 0.0 0.0 2.249893E+04 0.0 -1.0E+00 2.218936E+04 0.0 0.0 0.0 2.218936E+04 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 26 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.388000E-03 -5.270243E+03 0.0 0.0 0.0 0.0 0.0 -5.270243E+03 -5.349225E+03 0.0 0.0 0.0 0.0 -5.349225E+03 -1.0E+00 2.776000E-03 -1.525434E+04 0.0 0.0 0.0 0.0 0.0 -1.525434E+04 -1.512582E+04 0.0 0.0 0.0 0.0 -1.512582E+04 -1.0E+00 4.164000E-03 -2.153278E+04 0.0 0.0 0.0 0.0 0.0 -2.153278E+04 -2.102943E+04 0.0 0.0 0.0 0.0 -2.102943E+04 -1.0E+00 5.552000E-03 -1.784804E+04 0.0 0.0 0.0 0.0 0.0 -1.784804E+04 -1.738753E+04 0.0 0.0 0.0 0.0 -1.738753E+04 -1.0E+00 6.940000E-03 -1.578814E+03 0.0 0.0 0.0 0.0 0.0 -1.578814E+03 -1.507863E+03 0.0 0.0 0.0 0.0 -1.507863E+03 -9.9E-01 8.328000E-03 2.277106E+04 0.0 0.0 0.0 0.0 2.277106E+04 0.0 -1.0E+00 2.241765E+04 0.0 0.0 0.0 2.241765E+04 0.0 9.716000E-03 4.397586E+04 0.0 0.0 0.0 0.0 4.397586E+04 0.0 -1.0E+00 4.322620E+04 0.0 0.0 0.0 4.322620E+04 0.0 1.110400E-02 5.074961E+04 0.0 0.0 0.0 0.0 5.074961E+04 0.0 -1.0E+00 4.974292E+04 0.0 0.0 0.0 4.974292E+04 0.0 1.249200E-02 3.773758E+04 0.0 0.0 0.0 0.0 3.773758E+04 0.0 -1.0E+00 3.694508E+04 0.0 0.0 0.0 3.694508E+04 0.0 1.388000E-02 7.665655E+03 0.0 0.0 0.0 0.0 7.665655E+03 0.0 -9.9E-01 7.467530E+03 0.0 0.0 0.0 7.467530E+03 0.0 1.526800E-02 -2.900265E+04 0.0 0.0 0.0 0.0 0.0 -2.900265E+04 -2.851001E+04 0.0 0.0 0.0 0.0 -2.851001E+04 -1.0E+00 1.665600E-02 -5.773756E+04 0.0 0.0 0.0 0.0 0.0 -5.773756E+04 -5.668803E+04 0.0 0.0 0.0 0.0 -5.668803E+04 -1.0E+00 1.804400E-02 -6.647919E+04 0.0 0.0 0.0 0.0 0.0 -6.647919E+04 -6.519404E+04 0.0 0.0 0.0 0.0 -6.519404E+04 -1.0E+00 1.943200E-02 -5.109767E+04 0.0 0.0 0.0 0.0 0.0 -5.109767E+04 -5.011240E+04 0.0 0.0 0.0 0.0 -5.011240E+04 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 26 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.082000E-02 -1.696451E+04 0.0 0.0 0.0 0.0 0.0 -1.696451E+04 -1.662716E+04 0.0 0.0 0.0 0.0 -1.662716E+04 -1.0E+00 2.220800E-02 2.328646E+04 0.0 0.0 0.0 0.0 2.328646E+04 0.0 -1.0E+00 2.286879E+04 0.0 0.0 0.0 2.286879E+04 0.0 2.359600E-02 5.476568E+04 0.0 0.0 0.0 0.0 5.476568E+04 0.0 -1.0E+00 5.373757E+04 0.0 0.0 0.0 5.373757E+04 0.0 2.498400E-02 6.631855E+04 0.0 0.0 0.0 0.0 6.631855E+04 0.0 -1.0E+00 6.509766E+04 0.0 0.0 0.0 6.509766E+04 0.0 2.637200E-02 5.485938E+04 0.0 0.0 0.0 0.0 5.485938E+04 0.0 -1.0E+00 5.385269E+04 0.0 0.0 0.0 5.385269E+04 0.0 2.776000E-02 2.596383E+04 0.0 0.0 0.0 0.0 2.596383E+04 0.0 -1.0E+00 2.548190E+04 0.0 0.0 0.0 2.548190E+04 0.0 2.914800E-02 -9.047850E+03 0.0 0.0 0.0 0.0 0.0 -9.047850E+03 -8.860433E+03 0.0 0.0 0.0 0.0 -8.860433E+03 -1.0E+00 3.053601E-02 -3.775097E+04 0.0 0.0 0.0 0.0 0.0 -3.775097E+04 -3.702272E+04 0.0 0.0 0.0 0.0 -3.702272E+04 -1.0E+00 3.192401E-02 -5.143235E+04 0.0 0.0 0.0 0.0 0.0 -5.143235E+04 -5.046849E+04 0.0 0.0 0.0 0.0 -5.046849E+04 -1.0E+00 3.331200E-02 -4.779112E+04 0.0 0.0 0.0 0.0 0.0 -4.779112E+04 -4.693436E+04 0.0 0.0 0.0 0.0 -4.693436E+04 -1.0E+00 3.470000E-02 -3.080318E+04 0.0 0.0 0.0 0.0 0.0 -3.080318E+04 -3.028913E+04 0.0 0.0 0.0 0.0 -3.028913E+04 -1.0E+00 3.608800E-02 -8.083995E+03 0.0 0.0 0.0 0.0 0.0 -8.083995E+03 -7.979577E+03 0.0 0.0 0.0 0.0 -7.979577E+03 -1.0E+00 3.747600E-02 1.259370E+04 0.0 0.0 0.0 0.0 1.259370E+04 0.0 -9.9E-01 1.232596E+04 0.0 0.0 0.0 1.232596E+04 0.0 3.886400E-02 2.607092E+04 0.0 0.0 0.0 0.0 2.607092E+04 0.0 -1.0E+00 2.558900E+04 0.0 0.0 0.0 2.558900E+04 0.0 4.025200E-02 3.090358E+04 0.0 0.0 0.0 0.0 3.090358E+04 0.0 -1.0E+00 3.037882E+04 0.0 0.0 0.0 3.037882E+04 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 26 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 4.163999E-02 2.868136E+04 0.0 0.0 0.0 0.0 2.868136E+04 0.0 -1.0E+00 2.821015E+04 0.0 0.0 0.0 2.821015E+04 0.0 4.302799E-02 2.206825E+04 0.0 0.0 0.0 0.0 2.206825E+04 0.0 -9.9E-01 2.172555E+04 0.0 0.0 0.0 2.172555E+04 0.0 4.441599E-02 1.328647E+04 0.0 0.0 0.0 0.0 1.328647E+04 0.0 -9.9E-01 1.307763E+04 0.0 0.0 0.0 1.307763E+04 0.0 4.580399E-02 3.315760E+03 0.0 0.0 0.0 0.0 3.315760E+03 0.0 -9.7E-01 3.251503E+03 0.0 0.0 0.0 3.251503E+03 0.0 4.719199E-02 -7.588680E+03 0.0 0.0 0.0 0.0 0.0 -7.588680E+03 -7.486940E+03 0.0 0.0 0.0 0.0 -7.486940E+03 -1.0E+00 4.857999E-02 -1.876170E+04 0.0 0.0 0.0 0.0 0.0 -1.876170E+04 -1.848325E+04 0.0 0.0 0.0 0.0 -1.848325E+04 -1.0E+00 4.996799E-02 -2.824629E+04 0.0 0.0 0.0 0.0 0.0 -2.824629E+04 -2.777507E+04 0.0 0.0 0.0 0.0 -2.777507E+04 -1.0E+00 5.135598E-02 -3.289823E+04 0.0 0.0 0.0 0.0 0.0 -3.289823E+04 -3.234134E+04 0.0 0.0 0.0 0.0 -3.234134E+04 -1.0E+00 5.274398E-02 -2.960506E+04 0.0 0.0 0.0 0.0 0.0 -2.960506E+04 -2.905887E+04 0.0 0.0 0.0 0.0 -2.905887E+04 -1.0E+00 5.413198E-02 -1.709168E+04 0.0 0.0 0.0 0.0 0.0 -1.709168E+04 -1.674362E+04 0.0 0.0 0.0 0.0 -1.674362E+04 -1.0E+00 5.551998E-02 2.729666E+03 0.0 0.0 0.0 0.0 2.729666E+03 0.0 -9.6E-01 2.729666E+03 0.0 0.0 0.0 2.729666E+03 0.0 5.690798E-02 2.460506E+04 0.0 0.0 0.0 0.0 2.460506E+04 0.0 -1.0E+00 2.419810E+04 0.0 0.0 0.0 2.419810E+04 0.0 5.829598E-02 4.139889E+04 0.0 0.0 0.0 0.0 4.139889E+04 0.0 -1.0E+00 4.067064E+04 0.0 0.0 0.0 4.067064E+04 0.0 5.968397E-02 4.670678E+04 0.0 0.0 0.0 0.0 4.670678E+04 0.0 -1.0E+00 4.585002E+04 0.0 0.0 0.0 4.585002E+04 0.0 6.107197E-02 3.750331E+04 0.0 0.0 0.0 0.0 3.750331E+04 0.0 -1.0E+00 3.679648E+04 0.0 0.0 0.0 3.679648E+04 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 26 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 6.245997E-02 1.566933E+04 0.0 0.0 0.0 0.0 1.566933E+04 0.0 -9.9E-01 1.535340E+04 0.0 0.0 0.0 1.535340E+04 0.0 6.384797E-02 -1.224564E+04 0.0 0.0 0.0 0.0 0.0 -1.224564E+04 -1.204751E+04 0.0 0.0 0.0 0.0 -1.204751E+04 -1.0E+00 6.523597E-02 -3.722218E+04 0.0 0.0 0.0 0.0 0.0 -3.722218E+04 -3.653678E+04 0.0 0.0 0.0 0.0 -3.653678E+04 -1.0E+00 6.662397E-02 -5.095042E+04 0.0 0.0 0.0 0.0 0.0 -5.095042E+04 -5.002940E+04 0.0 0.0 0.0 0.0 -5.002940E+04 -1.0E+00 6.801197E-02 -4.884868E+04 0.0 0.0 0.0 0.0 0.0 -4.884868E+04 -4.792766E+04 0.0 0.0 0.0 0.0 -4.792766E+04 -1.0E+00 6.939997E-02 -3.162648E+04 0.0 0.0 0.0 0.0 0.0 -3.162648E+04 -3.103745E+04 0.0 0.0 0.0 0.0 -3.103745E+04 -1.0E+00 7.078797E-02 -5.052706E+03 0.0 0.0 0.0 0.0 0.0 -5.052706E+03 -4.953643E+03 0.0 0.0 0.0 0.0 -4.953643E+03 -1.0E+00 7.217596E-02 2.228244E+04 0.0 0.0 0.0 0.0 2.228244E+04 0.0 -1.0E+00 2.187548E+04 0.0 0.0 0.0 2.187548E+04 0.0 7.356396E-02 4.193436E+04 0.0 0.0 0.0 0.0 4.193436E+04 0.0 -1.0E+00 4.118470E+04 0.0 0.0 0.0 4.118470E+04 0.0 7.495196E-02 4.839353E+04 0.0 0.0 0.0 0.0 4.839353E+04 0.0 -1.0E+00 4.753677E+04 0.0 0.0 0.0 4.753677E+04 0.0 7.633996E-02 4.064253E+04 0.0 0.0 0.0 0.0 4.064253E+04 0.0 -1.0E+00 3.991429E+04 0.0 0.0 0.0 3.991429E+04 0.0 7.772796E-02 2.200466E+04 0.0 0.0 0.0 0.0 2.200466E+04 0.0 -9.9E-01 2.161912E+04 0.0 0.0 0.0 2.161912E+04 0.0 7.911596E-02 -1.338268E+03 0.0 0.0 0.0 0.0 0.0 -1.338268E+03 -1.307479E+03 0.0 0.0 0.0 0.0 -1.307479E+03 -9.9E-01 8.050396E-02 -2.257695E+04 0.0 0.0 0.0 0.0 0.0 -2.257695E+04 -2.216999E+04 0.0 0.0 0.0 0.0 -2.216999E+04 -1.0E+00 8.189195E-02 -3.631857E+04 0.0 0.0 0.0 0.0 0.0 -3.631857E+04 -3.567600E+04 0.0 0.0 0.0 0.0 -3.567600E+04 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 26 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 8.327995E-02 -3.986609E+04 0.0 0.0 0.0 0.0 0.0 -3.986609E+04 -3.918068E+04 0.0 0.0 0.0 0.0 -3.918068E+04 -1.0E+00 8.466795E-02 -3.340693E+04 0.0 0.0 0.0 0.0 0.0 -3.340693E+04 -3.281791E+04 0.0 0.0 0.0 0.0 -3.281791E+04 -1.0E+00 8.605595E-02 -1.942769E+04 0.0 0.0 0.0 0.0 0.0 -1.942769E+04 -1.909570E+04 0.0 0.0 0.0 0.0 -1.909570E+04 -1.0E+00 8.744395E-02 -1.724396E+03 0.0 0.0 0.0 0.0 0.0 -1.724396E+03 -1.693606E+03 0.0 0.0 0.0 0.0 -1.693606E+03 -9.9E-01 8.883195E-02 1.562917E+04 0.0 0.0 0.0 0.0 1.562917E+04 0.0 -9.9E-01 1.536143E+04 0.0 0.0 0.0 1.536143E+04 0.0 9.021994E-02 2.898926E+04 0.0 0.0 0.0 0.0 2.898926E+04 0.0 -1.0E+00 2.849662E+04 0.0 0.0 0.0 2.849662E+04 0.0 9.160794E-02 3.563584E+04 0.0 0.0 0.0 0.0 3.563584E+04 0.0 -1.0E+00 3.503611E+04 0.0 0.0 0.0 3.503611E+04 0.0 9.299594E-02 3.410974E+04 0.0 0.0 0.0 0.0 3.410974E+04 0.0 -1.0E+00 3.352071E+04 0.0 0.0 0.0 3.352071E+04 0.0 9.438394E-02 2.445781E+04 0.0 0.0 0.0 0.0 2.445781E+04 0.0 -1.0E+00 2.402943E+04 0.0 0.0 0.0 2.402943E+04 0.0 9.577194E-02 8.467194E+03 0.0 0.0 0.0 0.0 8.467194E+03 0.0 -9.9E-01 8.295842E+03 0.0 0.0 0.0 8.295842E+03 0.0 9.715994E-02 -1.045514E+04 0.0 0.0 0.0 0.0 0.0 -1.045514E+04 -1.029450E+04 0.0 0.0 0.0 0.0 -1.029450E+04 -1.0E+00 9.854794E-02 -2.773090E+04 0.0 0.0 0.0 0.0 0.0 -2.773090E+04 -2.725968E+04 0.0 0.0 0.0 0.0 -2.725968E+04 -1.0E+00 9.993593E-02 -3.866128E+04 0.0 0.0 0.0 0.0 0.0 -3.866128E+04 -3.799729E+04 0.0 0.0 0.0 0.0 -3.799729E+04 -1.0E+00 1.013239E-01 -3.805886E+04 0.0 0.0 0.0 0.0 0.0 -3.805886E+04 -3.724495E+04 0.0 0.0 0.0 0.0 -3.724495E+04 -1.0E+00 1.027119E-01 -2.149262E+04 0.0 0.0 0.0 0.0 0.0 -2.149262E+04 -2.109637E+04 0.0 0.0 0.0 0.0 -2.109637E+04 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 26 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.040999E-01 4.677037E+03 0.0 0.0 0.0 0.0 4.677037E+03 0.0 -9.8E-01 4.583329E+03 0.0 0.0 0.0 4.583329E+03 0.0 1.054879E-01 2.708163E+04 0.0 0.0 0.0 0.0 2.708163E+04 0.0 -1.0E+00 2.655687E+04 0.0 0.0 0.0 2.655687E+04 0.0 1.068759E-01 3.516061E+04 0.0 0.0 0.0 0.0 3.516061E+04 0.0 -1.0E+00 3.443236E+04 0.0 0.0 0.0 3.443236E+04 0.0 1.082639E-01 2.623826E+04 0.0 0.0 0.0 0.0 2.623826E+04 0.0 -1.0E+00 2.568137E+04 0.0 0.0 0.0 2.568137E+04 0.0 1.096519E-01 5.444272E+03 0.0 0.0 0.0 0.0 5.444272E+03 0.0 -9.8E-01 5.347887E+03 0.0 0.0 0.0 5.347887E+03 0.0 1.110399E-01 -1.685407E+04 0.0 0.0 0.0 0.0 0.0 -1.685407E+04 -1.650601E+04 0.0 0.0 0.0 0.0 -1.650601E+04 -1.0E+00 1.124279E-01 -2.989957E+04 0.0 0.0 0.0 0.0 0.0 -2.989957E+04 -2.929984E+04 0.0 0.0 0.0 0.0 -2.929984E+04 -1.0E+00 1.138159E-01 -2.795178E+04 0.0 0.0 0.0 0.0 0.0 -2.795178E+04 -2.737347E+04 0.0 0.0 0.0 0.0 -2.737347E+04 -1.0E+00 1.152039E-01 -1.288151E+04 0.0 0.0 0.0 0.0 0.0 -1.288151E+04 -1.260842E+04 0.0 0.0 0.0 0.0 -1.260842E+04 -1.0E+00 1.165919E-01 7.412978E+03 0.0 0.0 0.0 0.0 7.412978E+03 0.0 -9.9E-01 7.257690E+03 0.0 0.0 0.0 7.257690E+03 0.0 1.179799E-01 2.306557E+04 0.0 0.0 0.0 0.0 2.306557E+04 0.0 -1.0E+00 2.259436E+04 0.0 0.0 0.0 2.259436E+04 0.0 1.193679E-01 2.689422E+04 0.0 0.0 0.0 0.0 2.689422E+04 0.0 -1.0E+00 2.634803E+04 0.0 0.0 0.0 2.634803E+04 0.0 1.207559E-01 1.773760E+04 0.0 0.0 0.0 0.0 1.773760E+04 0.0 -9.9E-01 1.737348E+04 0.0 0.0 0.0 1.737348E+04 0.0 1.221439E-01 6.822073E+02 0.0 0.0 0.0 0.0 6.822073E+02 0.0 -8.4E-01 6.658084E+02 0.0 0.0 0.0 6.658084E+02 0.0 1.235319E-01 -1.571618E+04 0.0 0.0 0.0 0.0 0.0 -1.571618E+04 -1.539490E+04 0.0 0.0 0.0 0.0 -1.539490E+04 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 26 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.249199E-01 -2.373492E+04 0.0 0.0 0.0 0.0 0.0 -2.373492E+04 -2.325299E+04 0.0 0.0 0.0 0.0 -2.325299E+04 -1.0E+00 1.263079E-01 -2.004349E+04 0.0 0.0 0.0 0.0 0.0 -2.004349E+04 -1.964724E+04 0.0 0.0 0.0 0.0 -1.964724E+04 -1.0E+00 1.276959E-01 -7.054879E+03 0.0 0.0 0.0 0.0 0.0 -7.054879E+03 -6.910301E+03 0.0 0.0 0.0 0.0 -6.910301E+03 -1.0E+00 1.290839E-01 8.549188E+03 0.0 0.0 0.0 0.0 8.549188E+03 0.0 -9.9E-01 8.375159E+03 0.0 0.0 0.0 8.375159E+03 0.0 1.304719E-01 1.920681E+04 0.0 0.0 0.0 0.0 1.920681E+04 0.0 -9.9E-01 1.881056E+04 0.0 0.0 0.0 1.881056E+04 0.0 1.318599E-01 2.015058E+04 0.0 0.0 0.0 0.0 2.015058E+04 0.0 -9.9E-01 1.973291E+04 0.0 0.0 0.0 1.973291E+04 0.0 1.332479E-01 1.148593E+04 0.0 0.0 0.0 0.0 1.148593E+04 0.0 -9.9E-01 1.124497E+04 0.0 0.0 0.0 1.124497E+04 0.0 1.346359E-01 -2.137715E+03 0.0 0.0 0.0 0.0 0.0 -2.137715E+03 -2.093539E+03 0.0 0.0 0.0 0.0 -2.093539E+03 -9.9E-01 1.360239E-01 -1.397254E+04 0.0 0.0 0.0 0.0 0.0 -1.397254E+04 -1.368874E+04 0.0 0.0 0.0 0.0 -1.368874E+04 -1.0E+00 1.374119E-01 -1.851069E+04 0.0 0.0 0.0 0.0 0.0 -1.851069E+04 -1.812515E+04 0.0 0.0 0.0 0.0 -1.812515E+04 -1.0E+00 1.387999E-01 -1.400601E+04 0.0 0.0 0.0 0.0 0.0 -1.400601E+04 -1.372221E+04 0.0 0.0 0.0 0.0 -1.372221E+04 -1.0E+00 1.401879E-01 -3.116630E+03 0.0 0.0 0.0 0.0 0.0 -3.116630E+03 -3.053712E+03 0.0 0.0 0.0 0.0 -3.053712E+03 -1.0E+00 1.415759E-01 8.631183E+03 0.0 0.0 0.0 0.0 8.631183E+03 0.0 -9.9E-01 8.454476E+03 0.0 0.0 0.0 8.454476E+03 0.0 1.429639E-01 1.561913E+04 0.0 0.0 0.0 0.0 1.561913E+04 0.0 -9.9E-01 1.530320E+04 0.0 0.0 0.0 1.530320E+04 0.0 1.443519E-01 1.480588E+04 0.0 0.0 0.0 0.0 1.480588E+04 0.0 -9.9E-01 1.450066E+04 0.0 0.0 0.0 1.450066E+04 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 51 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.388000E-03 -5.753006E+03 0.0 0.0 0.0 0.0 0.0 -5.753006E+03 -5.710168E+03 0.0 0.0 0.0 0.0 -5.710168E+03 -1.0E+00 2.776000E-03 -1.080320E+04 0.0 0.0 0.0 0.0 0.0 -1.080320E+04 -1.058901E+04 0.0 0.0 0.0 0.0 -1.058901E+04 -1.0E+00 4.164000E-03 -9.879508E+03 0.0 0.0 0.0 0.0 0.0 -9.879508E+03 -9.536805E+03 0.0 0.0 0.0 0.0 -9.536805E+03 -1.0E+00 5.552000E-03 -7.161974E+03 0.0 0.0 0.0 0.0 0.0 -7.161974E+03 -6.819271E+03 0.0 0.0 0.0 0.0 -6.819271E+03 -1.0E+00 6.940000E-03 5.722886E+02 0.0 0.0 0.0 0.0 5.722886E+02 0.0 -8.4E-01 7.008024E+02 0.0 0.0 0.0 7.008024E+02 0.0 8.328000E-03 1.441766E+04 0.0 0.0 0.0 0.0 1.441766E+04 0.0 -9.9E-01 1.411779E+04 0.0 0.0 0.0 1.411779E+04 0.0 9.716000E-03 2.562246E+04 0.0 0.0 0.0 0.0 2.562246E+04 0.0 -1.0E+00 2.502273E+04 0.0 0.0 0.0 2.502273E+04 0.0 1.110400E-02 2.725566E+04 0.0 0.0 0.0 0.0 2.725566E+04 0.0 -1.0E+00 2.648458E+04 0.0 0.0 0.0 2.648458E+04 0.0 1.249200E-02 1.914322E+04 0.0 0.0 0.0 0.0 1.914322E+04 0.0 -9.9E-01 1.850065E+04 0.0 0.0 0.0 1.850065E+04 0.0 1.388000E-02 2.891563E+03 0.0 0.0 0.0 0.0 2.891563E+03 0.0 -9.6E-01 2.709502E+03 0.0 0.0 0.0 2.709502E+03 0.0 1.526800E-02 -1.716196E+04 0.0 0.0 0.0 0.0 0.0 -1.716196E+04 -1.677642E+04 0.0 0.0 0.0 0.0 -1.677642E+04 -1.0E+00 1.665600E-02 -3.261041E+04 0.0 0.0 0.0 0.0 0.0 -3.261041E+04 -3.175365E+04 0.0 0.0 0.0 0.0 -3.175365E+04 -1.0E+00 1.804400E-02 -3.651938E+04 0.0 0.0 0.0 0.0 0.0 -3.651938E+04 -3.557694E+04 0.0 0.0 0.0 0.0 -3.557694E+04 -1.0E+00 1.943200E-02 -2.757695E+04 0.0 0.0 0.0 0.0 0.0 -2.757695E+04 -2.680587E+04 0.0 0.0 0.0 0.0 -2.680587E+04 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 51 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.082000E-02 -8.835333E+03 0.0 0.0 0.0 0.0 0.0 -8.835333E+03 -8.556886E+03 0.0 0.0 0.0 0.0 -8.556886E+03 -1.0E+00 2.220800E-02 1.323961E+04 0.0 0.0 0.0 0.0 1.323961E+04 0.0 -9.9E-01 1.289691E+04 0.0 0.0 0.0 1.289691E+04 0.0 2.359600E-02 3.057561E+04 0.0 0.0 0.0 0.0 3.057561E+04 0.0 -1.0E+00 2.980453E+04 0.0 0.0 0.0 2.980453E+04 0.0 2.498400E-02 3.689421E+04 0.0 0.0 0.0 0.0 3.689421E+04 0.0 -1.0E+00 3.586610E+04 0.0 0.0 0.0 3.586610E+04 0.0 2.637200E-02 3.052206E+04 0.0 0.0 0.0 0.0 3.052206E+04 0.0 -1.0E+00 2.975098E+04 0.0 0.0 0.0 2.975098E+04 0.0 2.776000E-02 1.477910E+04 0.0 0.0 0.0 0.0 1.477910E+04 0.0 -9.9E-01 1.439356E+04 0.0 0.0 0.0 1.439356E+04 0.0 2.914800E-02 -4.578309E+03 0.0 0.0 0.0 0.0 0.0 -4.578309E+03 -4.428376E+03 0.0 0.0 0.0 0.0 -4.428376E+03 -1.0E+00 3.053601E-02 -2.077642E+04 0.0 0.0 0.0 0.0 0.0 -2.077642E+04 -2.017669E+04 0.0 0.0 0.0 0.0 -2.017669E+04 -1.0E+00 3.192401E-02 -2.880854E+04 0.0 0.0 0.0 0.0 0.0 -2.880854E+04 -2.803746E+04 0.0 0.0 0.0 0.0 -2.803746E+04 -1.0E+00 3.331200E-02 -2.728244E+04 0.0 0.0 0.0 0.0 0.0 -2.728244E+04 -2.659703E+04 0.0 0.0 0.0 0.0 -2.659703E+04 -1.0E+00 3.470000E-02 -1.823291E+04 0.0 0.0 0.0 0.0 0.0 -1.823291E+04 -1.784737E+04 0.0 0.0 0.0 0.0 -1.784737E+04 -1.0E+00 3.608800E-02 -5.575630E+03 0.0 0.0 0.0 0.0 0.0 -5.575630E+03 -5.489955E+03 0.0 0.0 0.0 0.0 -5.489955E+03 -1.0E+00 3.747600E-02 6.412310E+03 0.0 0.0 0.0 0.0 6.412310E+03 0.0 -9.8E-01 6.198120E+03 0.0 0.0 0.0 6.198120E+03 0.0 3.886400E-02 1.472555E+04 0.0 0.0 0.0 0.0 1.472555E+04 0.0 -9.9E-01 1.429717E+04 0.0 0.0 0.0 1.429717E+04 0.0 4.025200E-02 1.823291E+04 0.0 0.0 0.0 0.0 1.823291E+04 0.0 -9.9E-01 1.780453E+04 0.0 0.0 0.0 1.780453E+04 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 51 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 4.163999E-02 1.745647E+04 0.0 0.0 0.0 0.0 1.745647E+04 0.0 -9.9E-01 1.711377E+04 0.0 0.0 0.0 1.711377E+04 0.0 4.302799E-02 1.373493E+04 0.0 0.0 0.0 0.0 1.373493E+04 0.0 -9.9E-01 1.347790E+04 0.0 0.0 0.0 1.347790E+04 0.0 4.441599E-02 8.246311E+03 0.0 0.0 0.0 0.0 8.246311E+03 0.0 -9.9E-01 8.074958E+03 0.0 0.0 0.0 8.074958E+03 0.0 4.580399E-02 1.767066E+03 0.0 0.0 0.0 0.0 1.767066E+03 0.0 -9.4E-01 1.708164E+03 0.0 0.0 0.0 1.708164E+03 0.0 4.719199E-02 -5.214185E+03 0.0 0.0 0.0 0.0 0.0 -5.214185E+03 -5.149928E+03 0.0 0.0 0.0 0.0 -5.149928E+03 -1.0E+00 4.857999E-02 -1.198125E+04 0.0 0.0 0.0 0.0 0.0 -1.198125E+04 -1.174564E+04 0.0 0.0 0.0 0.0 -1.174564E+04 -1.0E+00 4.996799E-02 -1.724229E+04 0.0 0.0 0.0 0.0 0.0 -1.724229E+04 -1.689958E+04 0.0 0.0 0.0 0.0 -1.689958E+04 -1.0E+00 5.135598E-02 -1.930386E+04 0.0 0.0 0.0 0.0 0.0 -1.930386E+04 -1.887548E+04 0.0 0.0 0.0 0.0 -1.887548E+04 -1.0E+00 5.274398E-02 -1.662649E+04 0.0 0.0 0.0 0.0 0.0 -1.662649E+04 -1.619811E+04 0.0 0.0 0.0 0.0 -1.619811E+04 -1.0E+00 5.413198E-02 -8.848720E+03 0.0 0.0 0.0 0.0 0.0 -8.848720E+03 -8.570272E+03 0.0 0.0 0.0 0.0 -8.570272E+03 -1.0E+00 5.551998E-02 2.705821E+03 0.0 0.0 0.0 0.0 2.705821E+03 0.0 -9.6E-01 2.713853E+03 0.0 0.0 0.0 2.713853E+03 0.0 5.690798E-02 1.496652E+04 0.0 0.0 0.0 0.0 1.496652E+04 0.0 -9.9E-01 1.466665E+04 0.0 0.0 0.0 1.466665E+04 0.0 5.829598E-02 2.401604E+04 0.0 0.0 0.0 0.0 2.401604E+04 0.0 -1.0E+00 2.341631E+04 0.0 0.0 0.0 2.341631E+04 0.0 5.968397E-02 2.642568E+04 0.0 0.0 0.0 0.0 2.642568E+04 0.0 -1.0E+00 2.574027E+04 0.0 0.0 0.0 2.574027E+04 0.0 6.107197E-02 2.072287E+04 0.0 0.0 0.0 0.0 2.072287E+04 0.0 -9.9E-01 2.012314E+04 0.0 0.0 0.0 2.012314E+04 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 51 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 6.245997E-02 8.139215E+03 0.0 0.0 0.0 0.0 8.139215E+03 0.0 -9.9E-01 7.882188E+03 0.0 0.0 0.0 7.882188E+03 0.0 6.384797E-02 -7.597047E+03 0.0 0.0 0.0 0.0 0.0 -7.597047E+03 -7.447114E+03 0.0 0.0 0.0 0.0 -7.447114E+03 -1.0E+00 6.523597E-02 -2.147254E+04 0.0 0.0 0.0 0.0 0.0 -2.147254E+04 -2.095848E+04 0.0 0.0 0.0 0.0 -2.095848E+04 -1.0E+00 6.662397E-02 -2.894241E+04 0.0 0.0 0.0 0.0 0.0 -2.894241E+04 -2.817133E+04 0.0 0.0 0.0 0.0 -2.817133E+04 -1.0E+00 6.801197E-02 -2.749662E+04 0.0 0.0 0.0 0.0 0.0 -2.749662E+04 -2.681122E+04 0.0 0.0 0.0 0.0 -2.681122E+04 -1.0E+00 6.939997E-02 -1.769744E+04 0.0 0.0 0.0 0.0 0.0 -1.769744E+04 -1.722622E+04 0.0 0.0 0.0 0.0 -1.722622E+04 -1.0E+00 7.078797E-02 -2.680720E+03 0.0 0.0 0.0 0.0 0.0 -2.680720E+03 -2.595044E+03 0.0 0.0 0.0 0.0 -2.595044E+03 -1.0E+00 7.217596E-02 1.275768E+04 0.0 0.0 0.0 0.0 1.275768E+04 0.0 -9.9E-01 1.241498E+04 0.0 0.0 0.0 1.241498E+04 0.0 7.356396E-02 2.390895E+04 0.0 0.0 0.0 0.0 2.390895E+04 0.0 -1.0E+00 2.330921E+04 0.0 0.0 0.0 2.330921E+04 0.0 7.495196E-02 2.763049E+04 0.0 0.0 0.0 0.0 2.763049E+04 0.0 -1.0E+00 2.685941E+04 0.0 0.0 0.0 2.685941E+04 0.0 7.633996E-02 2.331992E+04 0.0 0.0 0.0 0.0 2.331992E+04 0.0 -1.0E+00 2.276303E+04 0.0 0.0 0.0 2.276303E+04 0.0 7.772796E-02 1.275768E+04 0.0 0.0 0.0 0.0 1.275768E+04 0.0 -9.9E-01 1.245782E+04 0.0 0.0 0.0 1.245782E+04 0.0 7.911596E-02 -6.040825E+02 0.0 0.0 0.0 0.0 0.0 -6.040825E+02 -5.799860E+02 0.0 0.0 0.0 0.0 -5.799860E+02 -9.8E-01 8.050396E-02 -1.290494E+04 0.0 0.0 0.0 0.0 0.0 -1.290494E+04 -1.256224E+04 0.0 0.0 0.0 0.0 -1.256224E+04 -1.0E+00 8.189195E-02 -2.099061E+04 0.0 0.0 0.0 0.0 0.0 -2.099061E+04 -2.047655E+04 0.0 0.0 0.0 0.0 -2.047655E+04 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 51 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 8.327995E-02 -2.321283E+04 0.0 0.0 0.0 0.0 0.0 -2.321283E+04 -2.265594E+04 0.0 0.0 0.0 0.0 -2.265594E+04 -1.0E+00 8.466795E-02 -1.957160E+04 0.0 0.0 0.0 0.0 0.0 -1.957160E+04 -1.914322E+04 0.0 0.0 0.0 0.0 -1.914322E+04 -1.0E+00 8.605595E-02 -1.143238E+04 0.0 0.0 0.0 0.0 0.0 -1.143238E+04 -1.115394E+04 0.0 0.0 0.0 0.0 -1.115394E+04 -1.0E+00 8.744395E-02 -9.772413E+02 0.0 0.0 0.0 0.0 0.0 -9.772413E+02 -9.504676E+02 0.0 0.0 0.0 0.0 -9.504676E+02 -9.9E-01 8.883195E-02 9.317261E+03 0.0 0.0 0.0 0.0 9.317261E+03 0.0 -9.9E-01 9.103070E+03 0.0 0.0 0.0 9.103070E+03 0.0 9.021994E-02 1.724229E+04 0.0 0.0 0.0 0.0 1.724229E+04 0.0 -9.9E-01 1.681391E+04 0.0 0.0 0.0 1.681391E+04 0.0 9.160794E-02 2.107093E+04 0.0 0.0 0.0 0.0 2.107093E+04 0.0 -9.9E-01 2.059971E+04 0.0 0.0 0.0 2.059971E+04 0.0 9.299594E-02 1.994643E+04 0.0 0.0 0.0 0.0 1.994643E+04 0.0 -9.9E-01 1.951805E+04 0.0 0.0 0.0 1.951805E+04 0.0 9.438394E-02 1.401605E+04 0.0 0.0 0.0 0.0 1.401605E+04 0.0 -9.9E-01 1.367335E+04 0.0 0.0 0.0 1.367335E+04 0.0 9.577194E-02 4.451133E+03 0.0 0.0 0.0 0.0 4.451133E+03 0.0 -9.8E-01 4.311910E+03 0.0 0.0 0.0 4.311910E+03 0.0 9.715994E-02 -6.653273E+03 0.0 0.0 0.0 0.0 0.0 -6.653273E+03 -6.524759E+03 0.0 0.0 0.0 0.0 -6.524759E+03 -1.0E+00 9.854794E-02 -1.657294E+04 0.0 0.0 0.0 0.0 0.0 -1.657294E+04 -1.618740E+04 0.0 0.0 0.0 0.0 -1.618740E+04 -1.0E+00 9.993593E-02 -2.259703E+04 0.0 0.0 0.0 0.0 0.0 -2.259703E+04 -2.204014E+04 0.0 0.0 0.0 0.0 -2.204014E+04 -1.0E+00 1.013239E-01 -1.911645E+04 0.0 0.0 0.0 0.0 0.0 -1.911645E+04 -1.847388E+04 0.0 0.0 0.0 0.0 -1.847388E+04 -1.0E+00 1.027119E-01 -1.191431E+04 0.0 0.0 0.0 0.0 0.0 -1.191431E+04 -1.152877E+04 0.0 0.0 0.0 0.0 -1.152877E+04 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 51 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.040999E-01 2.436410E+03 0.0 0.0 0.0 0.0 2.436410E+03 0.0 -9.5E-01 2.356089E+03 0.0 0.0 0.0 2.356089E+03 0.0 1.054879E-01 1.445782E+04 0.0 0.0 0.0 0.0 1.445782E+04 0.0 -9.9E-01 1.402944E+04 0.0 0.0 0.0 1.402944E+04 0.0 1.068759E-01 1.785808E+04 0.0 0.0 0.0 0.0 1.785808E+04 0.0 -9.9E-01 1.730119E+04 0.0 0.0 0.0 1.730119E+04 0.0 1.082639E-01 1.325300E+04 0.0 0.0 0.0 0.0 1.325300E+04 0.0 -9.9E-01 1.282462E+04 0.0 0.0 0.0 1.282462E+04 0.0 1.096519E-01 3.042166E+03 0.0 0.0 0.0 0.0 3.042166E+03 0.0 -9.6E-01 2.945781E+03 0.0 0.0 0.0 2.945781E+03 0.0 1.110399E-01 -8.607756E+03 0.0 0.0 0.0 0.0 0.0 -8.607756E+03 -8.329309E+03 0.0 0.0 0.0 0.0 -8.329309E+03 -1.0E+00 1.124279E-01 -1.555554E+04 0.0 0.0 0.0 0.0 0.0 -1.555554E+04 -1.508432E+04 0.0 0.0 0.0 0.0 -1.508432E+04 -1.0E+00 1.138159E-01 -1.435072E+04 0.0 0.0 0.0 0.0 0.0 -1.435072E+04 -1.387950E+04 0.0 0.0 0.0 0.0 -1.387950E+04 -1.0E+00 1.152039E-01 -6.532791E+03 0.0 0.0 0.0 0.0 0.0 -6.532791E+03 -6.318602E+03 0.0 0.0 0.0 0.0 -6.318602E+03 -1.0E+00 1.165919E-01 3.755017E+03 0.0 0.0 0.0 0.0 3.755017E+03 0.0 -9.7E-01 3.626503E+03 0.0 0.0 0.0 3.626503E+03 0.0 1.179799E-01 1.182060E+04 0.0 0.0 0.0 0.0 1.182060E+04 0.0 -9.9E-01 1.143506E+04 0.0 0.0 0.0 1.143506E+04 0.0 1.193679E-01 1.389557E+04 0.0 0.0 0.0 0.0 1.389557E+04 0.0 -9.9E-01 1.346719E+04 0.0 0.0 0.0 1.346719E+04 0.0 1.207559E-01 9.143230E+03 0.0 0.0 0.0 0.0 9.143230E+03 0.0 -9.9E-01 8.843365E+03 0.0 0.0 0.0 8.843365E+03 0.0 1.221439E-01 3.133364E+02 0.0 0.0 0.0 0.0 3.133364E+02 0.0 -6.5E-01 3.026269E+02 0.0 0.0 0.0 3.026269E+02 0.0 1.235319E-01 -8.072281E+03 0.0 0.0 0.0 0.0 0.0 -8.072281E+03 -7.836673E+03 0.0 0.0 0.0 0.0 -7.836673E+03 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 51 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.249199E-01 -1.219544E+04 0.0 0.0 0.0 0.0 0.0 -1.219544E+04 -1.180989E+04 0.0 0.0 0.0 0.0 -1.180989E+04 -1.0E+00 1.263079E-01 -1.033466E+04 0.0 0.0 0.0 0.0 0.0 -1.033466E+04 -9.991958E+03 0.0 0.0 0.0 0.0 -9.991958E+03 -1.0E+00 1.276959E-01 -3.634535E+03 0.0 0.0 0.0 0.0 0.0 -3.634535E+03 -3.516730E+03 0.0 0.0 0.0 0.0 -3.516730E+03 -1.0E+00 1.290839E-01 4.410973E+03 0.0 0.0 0.0 0.0 4.410973E+03 0.0 -9.7E-01 4.271750E+03 0.0 0.0 0.0 4.271750E+03 0.0 1.304719E-01 9.879508E+03 0.0 0.0 0.0 0.0 9.879508E+03 0.0 -9.9E-01 9.558224E+03 0.0 0.0 0.0 9.558224E+03 0.0 1.318599E-01 1.036144E+04 0.0 0.0 0.0 0.0 1.036144E+04 0.0 -9.9E-01 1.001873E+04 0.0 0.0 0.0 1.001873E+04 0.0 1.332479E-01 5.910302E+03 0.0 0.0 0.0 0.0 5.910302E+03 0.0 -9.8E-01 5.717531E+03 0.0 0.0 0.0 5.717531E+03 0.0 1.346359E-01 -1.094376E+03 0.0 0.0 0.0 0.0 0.0 -1.094376E+03 -1.056893E+03 0.0 0.0 0.0 0.0 -1.056893E+03 -9.9E-01 1.360239E-01 -7.188748E+03 0.0 0.0 0.0 0.0 0.0 -7.188748E+03 -6.953140E+03 0.0 0.0 0.0 0.0 -6.953140E+03 -1.0E+00 1.374119E-01 -9.518063E+03 0.0 0.0 0.0 0.0 0.0 -9.518063E+03 -9.218198E+03 0.0 0.0 0.0 0.0 -9.218198E+03 -1.0E+00 1.387999E-01 -7.202135E+03 0.0 0.0 0.0 0.0 0.0 -7.202135E+03 -6.966526E+03 0.0 0.0 0.0 0.0 -6.966526E+03 -1.0E+00 1.401879E-01 -1.603077E+03 0.0 0.0 0.0 0.0 0.0 -1.603077E+03 -1.549530E+03 0.0 0.0 0.0 0.0 -1.549530E+03 -9.9E-01 1.415759E-01 4.437747E+03 0.0 0.0 0.0 0.0 4.437747E+03 0.0 -9.7E-01 4.298523E+03 0.0 0.0 0.0 4.298523E+03 0.0 1.429639E-01 8.045508E+03 0.0 0.0 0.0 0.0 8.045508E+03 0.0 -9.9E-01 7.788480E+03 0.0 0.0 0.0 7.788480E+03 0.0 1.443519E-01 7.617127E+03 0.0 0.0 0.0 0.0 7.617127E+03 0.0 -9.9E-01 7.381519E+03 0.0 0.0 0.0 7.381519E+03 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 75 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.388000E-03 -3.808564E+03 0.0 0.0 0.0 0.0 0.0 -3.808564E+03 -3.647921E+03 0.0 0.0 0.0 0.0 -3.647921E+03 -1.0E+00 2.776000E-03 -5.060236E+03 0.0 0.0 0.0 0.0 0.0 -5.060236E+03 -4.803208E+03 0.0 0.0 0.0 0.0 -4.803208E+03 -1.0E+00 4.164000E-03 -2.543505E+03 0.0 0.0 0.0 0.0 0.0 -2.543505E+03 -2.286477E+03 0.0 0.0 0.0 0.0 -2.286477E+03 -1.0E+00 5.552000E-03 -4.551535E+02 0.0 0.0 0.0 0.0 0.0 -4.551535E+02 -3.266397E+02 0.0 0.0 0.0 0.0 -3.266397E+02 -9.8E-01 6.940000E-03 2.508365E+03 0.0 0.0 0.0 0.0 2.508365E+03 0.0 -9.6E-01 2.465526E+03 0.0 0.0 0.0 2.465526E+03 0.0 8.328000E-03 7.523419E+03 0.0 0.0 0.0 0.0 7.523419E+03 0.0 -9.9E-01 7.095040E+03 0.0 0.0 0.0 7.095040E+03 0.0 9.716000E-03 1.081659E+04 0.0 0.0 0.0 0.0 1.081659E+04 0.0 -9.9E-01 1.013118E+04 0.0 0.0 0.0 1.013118E+04 0.0 1.110400E-02 1.001338E+04 0.0 0.0 0.0 0.0 1.001338E+04 0.0 -9.9E-01 9.327970E+03 0.0 0.0 0.0 9.327970E+03 0.0 1.249200E-02 5.890222E+03 0.0 0.0 0.0 0.0 5.890222E+03 0.0 -9.8E-01 5.461842E+03 0.0 0.0 0.0 5.461842E+03 0.0 1.388000E-02 -4.819272E+02 0.0 0.0 0.0 0.0 0.0 -4.819272E+02 -5.461841E+02 0.0 0.0 0.0 0.0 -5.461841E+02 -9.8E-01 1.526800E-02 -7.925025E+03 0.0 0.0 0.0 0.0 0.0 -7.925025E+03 -7.496646E+03 0.0 0.0 0.0 0.0 -7.496646E+03 -1.0E+00 1.665600E-02 -1.327977E+04 0.0 0.0 0.0 0.0 0.0 -1.327977E+04 -1.242301E+04 0.0 0.0 0.0 0.0 -1.242301E+04 -1.0E+00 1.804400E-02 -1.402944E+04 0.0 0.0 0.0 0.0 0.0 -1.402944E+04 -1.317268E+04 0.0 0.0 0.0 0.0 -1.317268E+04 -1.0E+00 1.943200E-02 -1.001338E+04 0.0 0.0 0.0 0.0 0.0 -1.001338E+04 -9.499322E+03 0.0 0.0 0.0 0.0 -9.499322E+03 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 75 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.082000E-02 -2.811242E+03 0.0 0.0 0.0 0.0 0.0 -2.811242E+03 -2.597052E+03 0.0 0.0 0.0 0.0 -2.597052E+03 -1.0E+00 2.220800E-02 5.568937E+03 0.0 0.0 0.0 0.0 5.568937E+03 0.0 -9.8E-01 5.311909E+03 0.0 0.0 0.0 5.311909E+03 0.0 2.359600E-02 1.220882E+04 0.0 0.0 0.0 0.0 1.220882E+04 0.0 -9.9E-01 1.135206E+04 0.0 0.0 0.0 1.135206E+04 0.0 2.498400E-02 1.435072E+04 0.0 0.0 0.0 0.0 1.435072E+04 0.0 -9.9E-01 1.366531E+04 0.0 0.0 0.0 1.366531E+04 0.0 2.637200E-02 1.210173E+04 0.0 0.0 0.0 0.0 1.210173E+04 0.0 -9.9E-01 1.158767E+04 0.0 0.0 0.0 1.158767E+04 0.0 2.776000E-02 6.131185E+03 0.0 0.0 0.0 0.0 6.131185E+03 0.0 -9.8E-01 5.788482E+03 0.0 0.0 0.0 5.788482E+03 0.0 2.914800E-02 -1.378847E+03 0.0 0.0 0.0 0.0 0.0 -1.378847E+03 -1.293172E+03 0.0 0.0 0.0 0.0 -1.293172E+03 -9.9E-01 3.053601E-02 -7.978573E+03 0.0 0.0 0.0 0.0 0.0 -7.978573E+03 -7.550193E+03 0.0 0.0 0.0 0.0 -7.550193E+03 -1.0E+00 3.192401E-02 -1.161980E+04 0.0 0.0 0.0 0.0 0.0 -1.161980E+04 -1.093439E+04 0.0 0.0 0.0 0.0 -1.093439E+04 -1.0E+00 3.331200E-02 -1.156625E+04 0.0 0.0 0.0 0.0 0.0 -1.156625E+04 -1.088085E+04 0.0 0.0 0.0 0.0 -1.088085E+04 -1.0E+00 3.470000E-02 -8.299858E+03 0.0 0.0 0.0 0.0 0.0 -8.299858E+03 -7.871478E+03 0.0 0.0 0.0 0.0 -7.871478E+03 -1.0E+00 3.608800E-02 -3.279783E+03 0.0 0.0 0.0 0.0 0.0 -3.279783E+03 -3.151269E+03 0.0 0.0 0.0 0.0 -3.151269E+03 -1.0E+00 3.747600E-02 1.967870E+03 0.0 0.0 0.0 0.0 1.967870E+03 0.0 -9.4E-01 1.796518E+03 0.0 0.0 0.0 1.796518E+03 0.0 3.886400E-02 6.077638E+03 0.0 0.0 0.0 0.0 6.077638E+03 0.0 -9.8E-01 5.734935E+03 0.0 0.0 0.0 5.734935E+03 0.0 4.025200E-02 8.246311E+03 0.0 0.0 0.0 0.0 8.246311E+03 0.0 -9.9E-01 7.903607E+03 0.0 0.0 0.0 7.903607E+03 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 75 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 4.163999E-02 8.460500E+03 0.0 0.0 0.0 0.0 8.460500E+03 0.0 -9.9E-01 8.032121E+03 0.0 0.0 0.0 8.032121E+03 0.0 4.302799E-02 6.934397E+03 0.0 0.0 0.0 0.0 6.934397E+03 0.0 -9.8E-01 6.591694E+03 0.0 0.0 0.0 6.591694E+03 0.0 4.441599E-02 4.123155E+03 0.0 0.0 0.0 0.0 4.123155E+03 0.0 -9.7E-01 3.866127E+03 0.0 0.0 0.0 3.866127E+03 0.0 4.580399E-02 5.923689E+02 0.0 0.0 0.0 0.0 5.923689E+02 0.0 -8.1E-01 5.495309E+02 0.0 0.0 0.0 5.495309E+02 0.0 4.719199E-02 -3.078979E+03 0.0 0.0 0.0 0.0 0.0 -3.078979E+03 -2.971885E+03 0.0 0.0 0.0 0.0 -2.971885E+03 -1.0E+00 4.857999E-02 -6.318602E+03 0.0 0.0 0.0 0.0 0.0 -6.318602E+03 -6.018736E+03 0.0 0.0 0.0 0.0 -6.018736E+03 -1.0E+00 4.996799E-02 -8.353405E+03 0.0 0.0 0.0 0.0 0.0 -8.353405E+03 -7.925025E+03 0.0 0.0 0.0 0.0 -7.925025E+03 -1.0E+00 5.135598E-02 -8.674690E+03 0.0 0.0 0.0 0.0 0.0 -8.674690E+03 -8.160635E+03 0.0 0.0 0.0 0.0 -8.160635E+03 -1.0E+00 5.274398E-02 -6.693434E+03 0.0 0.0 0.0 0.0 0.0 -6.693434E+03 -6.350730E+03 0.0 0.0 0.0 0.0 -6.350730E+03 -1.0E+00 5.413198E-02 -2.811242E+03 0.0 0.0 0.0 0.0 0.0 -2.811242E+03 -2.639890E+03 0.0 0.0 0.0 0.0 -2.639890E+03 -1.0E+00 5.551998E-02 2.305888E+03 0.0 0.0 0.0 0.0 2.305888E+03 0.0 -9.5E-01 2.220212E+03 0.0 0.0 0.0 2.220212E+03 0.0 5.690798E-02 7.255682E+03 0.0 0.0 0.0 0.0 7.255682E+03 0.0 -9.8E-01 6.912979E+03 0.0 0.0 0.0 6.912979E+03 0.0 5.829598E-02 1.049530E+04 0.0 0.0 0.0 0.0 1.049530E+04 0.0 -9.9E-01 9.895573E+03 0.0 0.0 0.0 9.895573E+03 0.0 5.968397E-02 1.081659E+04 0.0 0.0 0.0 0.0 1.081659E+04 0.0 -9.9E-01 1.030253E+04 0.0 0.0 0.0 1.030253E+04 0.0 6.107197E-02 7.978573E+03 0.0 0.0 0.0 0.0 7.978573E+03 0.0 -9.9E-01 7.635870E+03 0.0 0.0 0.0 7.635870E+03 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 75 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 6.245997E-02 2.597052E+03 0.0 0.0 0.0 0.0 2.597052E+03 0.0 -9.6E-01 2.425701E+03 0.0 0.0 0.0 2.425701E+03 0.0 6.384797E-02 -3.828644E+03 0.0 0.0 0.0 0.0 0.0 -3.828644E+03 -3.657292E+03 0.0 0.0 0.0 0.0 -3.657292E+03 -1.0E+00 6.523597E-02 -9.263712E+03 0.0 0.0 0.0 0.0 0.0 -9.263712E+03 -8.749657E+03 0.0 0.0 0.0 0.0 -8.749657E+03 -1.0E+00 6.662397E-02 -1.204818E+04 0.0 0.0 0.0 0.0 0.0 -1.204818E+04 -1.136277E+04 0.0 0.0 0.0 0.0 -1.136277E+04 -1.0E+00 6.801197E-02 -1.119142E+04 0.0 0.0 0.0 0.0 0.0 -1.119142E+04 -1.050601E+04 0.0 0.0 0.0 0.0 -1.050601E+04 -1.0E+00 6.939997E-02 -7.121813E+03 0.0 0.0 0.0 0.0 0.0 -7.121813E+03 -6.693435E+03 0.0 0.0 0.0 0.0 -6.693435E+03 -1.0E+00 7.078797E-02 -8.969201E+02 0.0 0.0 0.0 0.0 0.0 -8.969201E+02 -8.433727E+02 0.0 0.0 0.0 0.0 -8.433727E+02 -9.9E-01 7.217596E-02 5.408295E+03 0.0 0.0 0.0 0.0 5.408295E+03 0.0 -9.8E-01 5.151267E+03 0.0 0.0 0.0 5.151267E+03 0.0 7.356396E-02 1.001338E+04 0.0 0.0 0.0 0.0 1.001338E+04 0.0 -9.9E-01 9.413646E+03 0.0 0.0 0.0 9.413646E+03 0.0 7.495196E-02 1.156625E+04 0.0 0.0 0.0 0.0 1.156625E+04 0.0 -9.9E-01 1.105220E+04 0.0 0.0 0.0 1.105220E+04 0.0 7.633996E-02 9.906282E+03 0.0 0.0 0.0 0.0 9.906282E+03 0.0 -9.9E-01 9.306552E+03 0.0 0.0 0.0 9.306552E+03 0.0 7.772796E-02 5.542164E+03 0.0 0.0 0.0 0.0 5.542164E+03 0.0 -9.8E-01 5.199460E+03 0.0 0.0 0.0 5.199460E+03 0.0 7.911596E-02 -1.204818E+02 0.0 0.0 0.0 0.0 0.0 -1.204818E+02 -1.097723E+02 0.0 0.0 0.0 0.0 -1.097723E+02 -9.1E-01 8.050396E-02 -5.488616E+03 0.0 0.0 0.0 0.0 0.0 -5.488616E+03 -5.145912E+03 0.0 0.0 0.0 0.0 -5.145912E+03 -1.0E+00 8.189195E-02 -9.103070E+03 0.0 0.0 0.0 0.0 0.0 -9.103070E+03 -8.589015E+03 0.0 0.0 0.0 0.0 -8.589015E+03 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 75 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 8.327995E-02 -1.022757E+04 0.0 0.0 0.0 0.0 0.0 -1.022757E+04 -9.713512E+03 0.0 0.0 0.0 0.0 -9.713512E+03 -1.0E+00 8.466795E-02 -8.728237E+03 0.0 0.0 0.0 0.0 0.0 -8.728237E+03 -8.214183E+03 0.0 0.0 0.0 0.0 -8.214183E+03 -1.0E+00 8.605595E-02 -5.113783E+03 0.0 0.0 0.0 0.0 0.0 -5.113783E+03 -4.856756E+03 0.0 0.0 0.0 0.0 -4.856756E+03 -1.0E+00 8.744395E-02 -3.781790E+02 0.0 0.0 0.0 0.0 0.0 -3.781790E+02 -3.567601E+02 0.0 0.0 0.0 0.0 -3.567601E+02 -9.7E-01 8.883195E-02 4.364119E+03 0.0 0.0 0.0 0.0 4.364119E+03 0.0 -9.7E-01 4.149929E+03 0.0 0.0 0.0 4.149929E+03 0.0 9.021994E-02 7.925025E+03 0.0 0.0 0.0 0.0 7.925025E+03 0.0 -9.9E-01 7.582322E+03 0.0 0.0 0.0 7.582322E+03 0.0 9.160794E-02 9.584998E+03 0.0 0.0 0.0 0.0 9.584998E+03 0.0 -9.9E-01 9.156617E+03 0.0 0.0 0.0 9.156617E+03 0.0 9.299594E-02 8.835333E+03 0.0 0.0 0.0 0.0 8.835333E+03 0.0 -9.9E-01 8.406953E+03 0.0 0.0 0.0 8.406953E+03 0.0 9.438394E-02 5.970543E+03 0.0 0.0 0.0 0.0 5.970543E+03 0.0 -9.8E-01 5.542164E+03 0.0 0.0 0.0 5.542164E+03 0.0 9.577194E-02 1.459169E+03 0.0 0.0 0.0 0.0 1.459169E+03 0.0 -9.2E-01 1.373493E+03 0.0 0.0 0.0 1.373493E+03 0.0 9.715994E-02 -3.507359E+03 0.0 0.0 0.0 0.0 0.0 -3.507359E+03 -3.357427E+03 0.0 0.0 0.0 0.0 -3.357427E+03 -1.0E+00 9.854794E-02 -7.764383E+03 0.0 0.0 0.0 0.0 0.0 -7.764383E+03 -7.421680E+03 0.0 0.0 0.0 0.0 -7.421680E+03 -1.0E+00 9.993593E-02 -1.006692E+04 0.0 0.0 0.0 0.0 0.0 -1.006692E+04 -9.552869E+03 0.0 0.0 0.0 0.0 -9.552869E+03 -1.0E+00 1.013239E-01 -5.783126E+03 0.0 0.0 0.0 0.0 0.0 -5.783126E+03 -5.440423E+03 0.0 0.0 0.0 0.0 -5.440423E+03 -1.0E+00 1.027119E-01 -3.989287E+03 0.0 0.0 0.0 0.0 0.0 -3.989287E+03 -3.732259E+03 0.0 0.0 0.0 0.0 -3.732259E+03 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 75 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.040999E-01 7.630515E+02 0.0 0.0 0.0 0.0 7.630515E+02 0.0 -8.5E-01 7.095040E+02 0.0 0.0 0.0 7.095040E+02 0.0 1.054879E-01 4.712177E+03 0.0 0.0 0.0 0.0 4.712177E+03 0.0 -9.8E-01 4.369474E+03 0.0 0.0 0.0 4.369474E+03 0.0 1.068759E-01 5.515389E+03 0.0 0.0 0.0 0.0 5.515389E+03 0.0 -9.8E-01 5.172686E+03 0.0 0.0 0.0 5.172686E+03 0.0 1.082639E-01 4.096381E+03 0.0 0.0 0.0 0.0 4.096381E+03 0.0 -9.7E-01 3.668002E+03 0.0 0.0 0.0 3.668002E+03 0.0 1.096519E-01 1.024095E+03 0.0 0.0 0.0 0.0 1.024095E+03 0.0 -8.9E-01 9.598385E+02 0.0 0.0 0.0 9.598385E+02 0.0 1.110399E-01 -2.650600E+03 0.0 0.0 0.0 0.0 0.0 -2.650600E+03 -2.479248E+03 0.0 0.0 0.0 0.0 -2.479248E+03 -1.0E+00 1.124279E-01 -4.926368E+03 0.0 0.0 0.0 0.0 0.0 -4.926368E+03 -4.583664E+03 0.0 0.0 0.0 0.0 -4.583664E+03 -1.0E+00 1.138159E-01 -4.497987E+03 0.0 0.0 0.0 0.0 0.0 -4.497987E+03 -4.155284E+03 0.0 0.0 0.0 0.0 -4.155284E+03 -1.0E+00 1.152039E-01 -2.008030E+03 0.0 0.0 0.0 0.0 0.0 -2.008030E+03 -1.879516E+03 0.0 0.0 0.0 0.0 -1.879516E+03 -9.9E-01 1.165919E-01 1.151271E+03 0.0 0.0 0.0 0.0 1.151271E+03 0.0 -9.0E-01 1.087014E+03 0.0 0.0 0.0 1.087014E+03 0.0 1.179799E-01 3.694775E+03 0.0 0.0 0.0 0.0 3.694775E+03 0.0 -9.7E-01 3.352072E+03 0.0 0.0 0.0 3.352072E+03 0.0 1.193679E-01 4.337345E+03 0.0 0.0 0.0 0.0 4.337345E+03 0.0 -9.7E-01 4.165994E+03 0.0 0.0 0.0 4.165994E+03 0.0 1.207559E-01 2.838016E+03 0.0 0.0 0.0 0.0 2.838016E+03 0.0 -9.6E-01 2.666664E+03 0.0 0.0 0.0 2.666664E+03 0.0 1.221439E-01 8.534128E+01 0.0 0.0 0.0 0.0 8.534128E+01 0.0 3.0E-01 7.998654E+01 0.0 0.0 0.0 7.998654E+01 0.0 1.235319E-01 -2.516731E+03 0.0 0.0 0.0 0.0 0.0 -2.516731E+03 -2.345379E+03 0.0 0.0 0.0 0.0 -2.345379E+03 -1.0E+00 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 75 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.249199E-01 -3.801870E+03 0.0 0.0 0.0 0.0 0.0 -3.801870E+03 -3.459167E+03 0.0 0.0 0.0 0.0 -3.459167E+03 -1.0E+00 1.263079E-01 -3.212848E+03 0.0 0.0 0.0 0.0 0.0 -3.212848E+03 -2.955821E+03 0.0 0.0 0.0 0.0 -2.955821E+03 -1.0E+00 1.276959E-01 -1.137884E+03 0.0 0.0 0.0 0.0 0.0 -1.137884E+03 -1.073627E+03 0.0 0.0 0.0 0.0 -1.073627E+03 -9.9E-01 1.290839E-01 1.378847E+03 0.0 0.0 0.0 0.0 1.378847E+03 0.0 -9.2E-01 1.293172E+03 0.0 0.0 0.0 1.293172E+03 0.0 1.304719E-01 3.078979E+03 0.0 0.0 0.0 0.0 3.078979E+03 0.0 -9.6E-01 2.864790E+03 0.0 0.0 0.0 2.864790E+03 0.0 1.318599E-01 3.239622E+03 0.0 0.0 0.0 0.0 3.239622E+03 0.0 -9.7E-01 2.982594E+03 0.0 0.0 0.0 2.982594E+03 0.0 1.332479E-01 1.847388E+03 0.0 0.0 0.0 0.0 1.847388E+03 0.0 -9.4E-01 1.718874E+03 0.0 0.0 0.0 1.718874E+03 0.0 1.346359E-01 -3.413651E+02 0.0 0.0 0.0 0.0 0.0 -3.413651E+02 -3.199462E+02 0.0 0.0 0.0 0.0 -3.199462E+02 -9.7E-01 1.360239E-01 -2.248994E+03 0.0 0.0 0.0 0.0 0.0 -2.248994E+03 -2.077642E+03 0.0 0.0 0.0 0.0 -2.077642E+03 -1.0E+00 1.374119E-01 -2.998658E+03 0.0 0.0 0.0 0.0 0.0 -2.998658E+03 -2.784469E+03 0.0 0.0 0.0 0.0 -2.784469E+03 -1.0E+00 1.387999E-01 -2.275768E+03 0.0 0.0 0.0 0.0 0.0 -2.275768E+03 -2.061578E+03 0.0 0.0 0.0 0.0 -2.061578E+03 -1.0E+00 1.401879E-01 -5.020075E+02 0.0 0.0 0.0 0.0 0.0 -5.020075E+02 -4.591696E+02 0.0 0.0 0.0 0.0 -4.591696E+02 -9.8E-01 1.415759E-01 1.378847E+03 0.0 0.0 0.0 0.0 1.378847E+03 0.0 -9.2E-01 1.293172E+03 0.0 0.0 0.0 1.293172E+03 0.0 1.429639E-01 2.489957E+03 0.0 0.0 0.0 0.0 2.489957E+03 0.0 -9.6E-01 2.361444E+03 0.0 0.0 0.0 2.361444E+03 0.0 1.443519E-01 2.356089E+03 0.0 0.0 0.0 0.0 2.356089E+03 0.0 -9.5E-01 2.184737E+03 0.0 0.0 0.0 2.184737E+03 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 100 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.388000E-03 5.354747E+01 0.0 0.0 0.0 0.0 5.354747E+01 0.0 -3.1E-01 1.606428E+02 0.0 0.0 0.0 1.606428E+02 0.0 2.776000E-03 8.032121E+01 0.0 0.0 0.0 0.0 8.032121E+01 0.0 -3.3E-01 1.659975E+02 0.0 0.0 0.0 1.659975E+02 0.0 4.164000E-03 5.354747E+01 0.0 0.0 0.0 0.0 5.354747E+01 0.0 1.1E+00 5.354747E+01 0.0 0.0 0.0 5.354747E+01 0.0 5.552000E-03 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -8.567628E+01 0.0 0.0 0.0 0.0 -8.567628E+01 -8.7E-01 6.940000E-03 -4.016060E+01 0.0 0.0 0.0 0.0 0.0 -4.016060E+01 -1.258369E+02 0.0 0.0 0.0 0.0 -1.258369E+02 -9.1E-01 8.328000E-03 -5.354747E+01 0.0 0.0 0.0 0.0 0.0 -5.354747E+01 -3.105763E+02 0.0 0.0 0.0 0.0 -3.105763E+02 -9.6E-01 9.716000E-03 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -4.498000E+02 0.0 0.0 0.0 0.0 -4.498000E+02 -9.8E-01 1.110400E-02 -2.141899E+02 0.0 0.0 0.0 0.0 0.0 -2.141899E+02 -2.141899E+02 0.0 0.0 0.0 0.0 -2.141899E+02 -9.5E-01 1.249200E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.713526E+02 0.0 0.0 0.0 0.0 -1.713526E+02 -9.4E-01 1.388000E-02 1.338687E+01 0.0 0.0 0.0 0.0 1.338687E+01 0.0 9.8E-01 5.622501E+01 0.0 0.0 0.0 5.622501E+01 0.0 1.526800E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 1.665600E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -7.5E-01 4.498000E+02 0.0 0.0 0.0 4.498000E+02 0.0 1.804400E-02 2.141899E+02 0.0 0.0 0.0 0.0 2.141899E+02 0.0 -8.0E-01 5.568950E+02 0.0 0.0 0.0 5.568950E+02 0.0 1.943200E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 100 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.082000E-02 5.354747E+01 0.0 0.0 0.0 0.0 5.354747E+01 0.0 1.1E+00 5.354747E+01 0.0 0.0 0.0 5.354747E+01 0.0 2.220800E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -1.927712E+02 0.0 0.0 0.0 0.0 -1.927712E+02 -9.4E-01 2.359600E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -2.784475E+02 0.0 0.0 0.0 0.0 -2.784475E+02 -9.6E-01 2.498400E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -4.498000E+02 0.0 0.0 0.0 0.0 -4.498000E+02 -9.8E-01 2.637200E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -2.784475E+02 0.0 0.0 0.0 0.0 -2.784475E+02 -9.6E-01 2.776000E-02 -5.354747E+01 0.0 0.0 0.0 0.0 0.0 -5.354747E+01 -2.249000E+02 0.0 0.0 0.0 0.0 -2.249000E+02 -9.5E-01 2.914800E-02 2.677374E+01 0.0 0.0 0.0 0.0 2.677374E+01 0.0 6.0E-01 6.961188E+01 0.0 0.0 0.0 6.961188E+01 0.0 3.053601E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -3.5E-01 1.713526E+02 0.0 0.0 0.0 1.713526E+02 0.0 3.192401E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 3.331200E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 3.470000E-02 5.354747E+01 0.0 0.0 0.0 0.0 5.354747E+01 0.0 -5.1E-01 2.249000E+02 0.0 0.0 0.0 2.249000E+02 0.0 3.608800E-02 4.016060E+01 0.0 0.0 0.0 0.0 4.016060E+01 0.0 -1.2E-01 1.258369E+02 0.0 0.0 0.0 1.258369E+02 0.0 3.747600E-02 -2.677374E+01 0.0 0.0 0.0 0.0 0.0 -2.677374E+01 -2.677374E+01 0.0 0.0 0.0 0.0 -2.677374E+01 -5.9E-01 3.886400E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -1.927712E+02 0.0 0.0 0.0 0.0 -1.927712E+02 -9.4E-01 4.025200E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -2.784475E+02 0.0 0.0 0.0 0.0 -2.784475E+02 -9.6E-01 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 100 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 4.163999E-02 -5.354747E+01 0.0 0.0 0.0 0.0 0.0 -5.354747E+01 -2.249000E+02 0.0 0.0 0.0 0.0 -2.249000E+02 -9.5E-01 4.302799E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -1.927712E+02 0.0 0.0 0.0 0.0 -1.927712E+02 -9.4E-01 4.441599E-02 -5.354747E+01 0.0 0.0 0.0 0.0 0.0 -5.354747E+01 -1.392238E+02 0.0 0.0 0.0 0.0 -1.392238E+02 -9.2E-01 4.580399E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.141907E+01 0.0 0.0 0.0 0.0 -2.141907E+01 -4.8E-01 4.719199E-02 4.016060E+01 0.0 0.0 0.0 0.0 4.016060E+01 0.0 3.4E-01 8.299874E+01 0.0 0.0 0.0 8.299874E+01 0.0 4.857999E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 4.996799E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 5.135598E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 5.274398E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 5.413198E-02 2.677374E+01 0.0 0.0 0.0 0.0 2.677374E+01 0.0 -1.2E-02 1.124500E+02 0.0 0.0 0.0 1.124500E+02 0.0 5.551998E-02 -3.346717E+01 0.0 0.0 0.0 0.0 0.0 -3.346717E+01 -9.772438E+01 0.0 0.0 0.0 0.0 -9.772438E+01 -8.9E-01 5.690798E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -2.784475E+02 0.0 0.0 0.0 0.0 -2.784475E+02 -9.6E-01 5.829598E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -2.784475E+02 0.0 0.0 0.0 0.0 -2.784475E+02 -9.6E-01 5.968397E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -2.784475E+02 0.0 0.0 0.0 0.0 -2.784475E+02 -9.6E-01 6.107197E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.713526E+02 0.0 0.0 0.0 0.0 -1.713526E+02 -9.4E-01 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 100 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 6.245997E-02 -2.677374E+01 0.0 0.0 0.0 0.0 0.0 -2.677374E+01 -2.677374E+01 0.0 0.0 0.0 0.0 -2.677374E+01 -5.9E-01 6.384797E-02 5.354747E+01 0.0 0.0 0.0 0.0 5.354747E+01 0.0 -2.0E-01 1.392238E+02 0.0 0.0 0.0 1.392238E+02 0.0 6.523597E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 6.662397E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -6.8E-01 3.427051E+02 0.0 0.0 0.0 3.427051E+02 0.0 6.801197E-02 2.141899E+02 0.0 0.0 0.0 0.0 2.141899E+02 0.0 -7.1E-01 3.855424E+02 0.0 0.0 0.0 3.855424E+02 0.0 6.939997E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 3.8E-02 1.070949E+02 0.0 0.0 0.0 1.070949E+02 0.0 7.078797E-02 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 7.217596E-02 -5.354747E+01 0.0 0.0 0.0 0.0 0.0 -5.354747E+01 -2.249000E+02 0.0 0.0 0.0 0.0 -2.249000E+02 -9.5E-01 7.356396E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -2.784475E+02 0.0 0.0 0.0 0.0 -2.784475E+02 -9.6E-01 7.495196E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -4.498000E+02 0.0 0.0 0.0 0.0 -4.498000E+02 -9.8E-01 7.633996E-02 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -2.784475E+02 0.0 0.0 0.0 0.0 -2.784475E+02 -9.6E-01 7.772796E-02 -5.354747E+01 0.0 0.0 0.0 0.0 0.0 -5.354747E+01 -1.392238E+02 0.0 0.0 0.0 0.0 -1.392238E+02 -9.2E-01 7.911596E-02 3.346717E+00 0.0 0.0 0.0 0.0 3.346717E+00 0.0 3.2E+01 -2.008051E+00 0.0 0.0 0.0 0.0 -2.008051E+00 4.5E+00 8.050396E-02 5.354747E+01 0.0 0.0 0.0 0.0 5.354747E+01 0.0 -2.0E-01 1.392238E+02 0.0 0.0 0.0 1.392238E+02 0.0 8.189195E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 100 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 8.327995E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 8.466795E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 8.605595E-02 5.354747E+01 0.0 0.0 0.0 0.0 5.354747E+01 0.0 -2.0E-01 1.392238E+02 0.0 0.0 0.0 1.392238E+02 0.0 8.744395E-02 3.346717E+00 0.0 0.0 0.0 0.0 3.346717E+00 0.0 3.2E+01 3.346717E+00 0.0 0.0 0.0 3.346717E+00 0.0 8.883195E-02 -5.354747E+01 0.0 0.0 0.0 0.0 0.0 -5.354747E+01 -1.392238E+02 0.0 0.0 0.0 0.0 -1.392238E+02 -9.2E-01 9.021994E-02 -5.354747E+01 0.0 0.0 0.0 0.0 0.0 -5.354747E+01 -2.249000E+02 0.0 0.0 0.0 0.0 -2.249000E+02 -9.5E-01 9.160794E-02 -2.141899E+02 0.0 0.0 0.0 0.0 0.0 -2.141899E+02 -3.855424E+02 0.0 0.0 0.0 0.0 -3.855424E+02 -9.7E-01 9.299594E-02 -1.606424E+02 0.0 0.0 0.0 0.0 0.0 -1.606424E+02 -3.319950E+02 0.0 0.0 0.0 0.0 -3.319950E+02 -9.7E-01 9.438394E-02 -5.354747E+01 0.0 0.0 0.0 0.0 0.0 -5.354747E+01 -1.392238E+02 0.0 0.0 0.0 0.0 -1.392238E+02 -9.2E-01 9.577194E-02 -1.338687E+01 0.0 0.0 0.0 0.0 0.0 -1.338687E+01 -1.338687E+01 0.0 0.0 0.0 0.0 -1.338687E+01 -1.7E-01 9.715994E-02 2.677374E+01 0.0 0.0 0.0 0.0 2.677374E+01 0.0 -1.2E-02 1.124500E+02 0.0 0.0 0.0 1.124500E+02 0.0 9.854794E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 9.993593E-02 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 -6.0E-01 2.784475E+02 0.0 0.0 0.0 2.784475E+02 0.0 1.013239E-01 1.070949E+02 0.0 0.0 0.0 0.0 1.070949E+02 0.0 3.8E-02 1.070949E+02 0.0 0.0 0.0 1.070949E+02 0.0 1.027119E-01 5.354747E+01 0.0 0.0 0.0 0.0 5.354747E+01 0.0 1.1E+00 5.354747E+01 0.0 0.0 0.0 5.354747E+01 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 100 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.040999E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -2.141907E+01 0.0 0.0 0.0 0.0 -2.141907E+01 -4.8E-01 1.054879E-01 -1.070949E+02 0.0 0.0 0.0 0.0 0.0 -1.070949E+02 -1.927712E+02 0.0 0.0 0.0 0.0 -1.927712E+02 -9.4E-01 1.068759E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.082639E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -8.567628E+01 0.0 0.0 0.0 0.0 -8.567628E+01 -8.7E-01 1.096519E-01 -1.338687E+01 0.0 0.0 0.0 0.0 0.0 -1.338687E+01 -3.480594E+01 0.0 0.0 0.0 0.0 -3.480594E+01 -6.8E-01 1.110399E-01 2.677374E+01 0.0 0.0 0.0 0.0 2.677374E+01 0.0 -1.2E-02 1.124500E+02 0.0 0.0 0.0 1.124500E+02 0.0 1.124279E-01 5.354747E+01 0.0 0.0 0.0 0.0 5.354747E+01 0.0 -5.1E-01 2.249000E+02 0.0 0.0 0.0 2.249000E+02 0.0 1.138159E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.152039E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.6E+00 4.283814E+01 0.0 0.0 0.0 4.283814E+01 0.0 1.165919E-01 -1.338687E+01 0.0 0.0 0.0 0.0 0.0 -1.338687E+01 -1.338687E+01 0.0 0.0 0.0 0.0 -1.338687E+01 -1.7E-01 1.179799E-01 -5.354747E+01 0.0 0.0 0.0 0.0 0.0 -5.354747E+01 -1.392238E+02 0.0 0.0 0.0 0.0 -1.392238E+02 -9.2E-01 1.193679E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -8.567628E+01 0.0 0.0 0.0 0.0 -8.567628E+01 -8.7E-01 1.207559E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.221439E-01 -1.673358E+00 0.0 0.0 0.0 0.0 0.0 -1.673358E+00 1.1E+02 1.004025E+00 0.0 0.0 0.0 1.004025E+00 0.0 5.6E+00 1.235319E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ELEMENT-ID = 100 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.249199E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 3.0E-01 8.567628E+01 0.0 0.0 0.0 8.567628E+01 0.0 1.263079E-01 5.354747E+01 0.0 0.0 0.0 0.0 5.354747E+01 0.0 -2.0E-01 1.392238E+02 0.0 0.0 0.0 1.392238E+02 0.0 1.276959E-01 1.338687E+01 0.0 0.0 0.0 0.0 1.338687E+01 0.0 7.3E+00 1.338687E+01 0.0 0.0 0.0 1.338687E+01 0.0 1.290839E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -4.283814E+01 0.0 0.0 0.0 0.0 -4.283814E+01 -7.4E-01 1.304719E-01 -5.354747E+01 0.0 0.0 0.0 0.0 0.0 -5.354747E+01 -5.354747E+01 0.0 0.0 0.0 0.0 -5.354747E+01 -7.9E-01 1.318599E-01 -5.354747E+01 0.0 0.0 0.0 0.0 0.0 -5.354747E+01 -1.392238E+02 0.0 0.0 0.0 0.0 -1.392238E+02 -9.2E-01 1.332479E-01 -2.677374E+01 0.0 0.0 0.0 0.0 0.0 -2.677374E+01 -6.961188E+01 0.0 0.0 0.0 0.0 -6.961188E+01 -8.4E-01 1.346359E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 9.4E+00 1.070954E+01 0.0 0.0 0.0 1.070954E+01 0.0 1.360239E-01 2.677374E+01 0.0 0.0 0.0 0.0 2.677374E+01 0.0 -1.2E-02 1.124500E+02 0.0 0.0 0.0 1.124500E+02 0.0 1.374119E-01 5.354747E+01 0.0 0.0 0.0 0.0 5.354747E+01 0.0 -2.0E-01 1.392238E+02 0.0 0.0 0.0 1.392238E+02 0.0 1.387999E-01 2.677374E+01 0.0 0.0 0.0 0.0 2.677374E+01 0.0 -1.2E-02 1.124500E+02 0.0 0.0 0.0 1.124500E+02 0.0 1.401879E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 9.4E+00 1.070954E+01 0.0 0.0 0.0 1.070954E+01 0.0 1.415759E-01 -2.677374E+01 0.0 0.0 0.0 0.0 0.0 -2.677374E+01 -2.677374E+01 0.0 0.0 0.0 0.0 -2.677374E+01 -5.9E-01 1.429639E-01 -2.677374E+01 0.0 0.0 0.0 0.0 0.0 -2.677374E+01 -1.124500E+02 0.0 0.0 0.0 0.0 -1.124500E+02 -9.0E-01 1.443519E-01 -2.677374E+01 0.0 0.0 0.0 0.0 0.0 -2.677374E+01 -2.677374E+01 0.0 0.0 0.0 0.0 -2.677374E+01 -5.9E-01 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 2.00 THE FOLLOWING PLOTS ARE REQUESTED ON BOTH FILM + PAPER 1 BLANK FRAMES WILL BE INSERTED ON FILM ONLY BETWEEN EACH OF THE FOLLOWING PLOTS E N G I N E E R I N G D A T A STEREOSCOPIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALES - (MODEL-TO-PLOT SIZE = 8.123460E-01, OBJECT-TO-MODEL SIZE = 0.500000E+00) VANTAGE POINT (INCHES) - R0 = 3.279869E+01, S0(L) = 0.143747E+01, S0(R) = 0.419347E+01, T0 =-0.162577E+01 PROJECTION PLANE SEPARATION (INCHES) = 2.000000E+00 OCULAR SEPARATION (INCHES) = 2.756000E+00 ORIGIN 100 - X0(L) = 9.640638E+00, X0(R) = 0.308177E+02, Y0 = -0.171367E+02 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 TRANS. DEFORM. 1 - SUBCASE 516 - LOAD 1.249200E-02 - TIME ORIGIN 100 USED IN THIS PLOT 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 2.00 THE FOLLOWING PLOTS ARE REQUESTED ON BOTH FILM + PAPER 1 BLANK FRAMES WILL BE INSERTED ON FILM ONLY BETWEEN EACH OF THE FOLLOWING PLOTS E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.361321E-01 ORIGIN 1 - X0 = -2.044880E+00, Y0 = -0.257946E+01 (INCHES) ORIGIN 2 - X0 = -1.677686E+00, Y0 = -0.574408E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 3 TRANS. DEFORM. 1 - SUBCASE 516 - LOAD 1.249200E-02 - TIME PLOT 4 TRANS. DEFORM. 1 - SUBCASE 516 - LOAD 1.388000E-02 - TIME PLOT 5 TRANS. DEFORM. 1 - SUBCASE 516 - LOAD 1.526800E-02 - TIME ORIGIN 2 USED IN THIS PLOT 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 51( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 6 CURVE TITLE = * * * * * * * G R I D 5 1 * * * * * * * * * * * * * X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = D I S P * INCH * THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 1.443519E-01) THE SMALLEST Y-VALUE = -3.303100E-01 AT X = 2.498400E-02 THE LARGEST Y-VALUE = 3.322570E-01 AT X = 1.804400E-02 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 1.443519E-01) THE SMALLEST Y-VALUE = -3.303100E-01 AT X = 2.498400E-02 THE LARGEST Y-VALUE = 3.322570E-01 AT X = 1.804400E-02 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 DISPLACEMENT CURVE ID = 51 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 0.000000E+00 0.000000E+00 2 1.388000E-03 1.749043E-02 3 2.776000E-03 6.849734E-02 4 4.164000E-03 1.116551E-01 5 5.552000E-03 9.504765E-02 6 6.940000E-03 1.053091E-02 7 8.328000E-03 -1.095144E-01 8 9.716000E-03 -2.160316E-01 9 1.110400E-02 -2.549437E-01 10 1.249200E-02 -1.921652E-01 11 1.388000E-02 -4.098973E-02 12 1.526800E-02 1.424015E-01 13 1.665600E-02 2.865285E-01 14 1.804400E-02 3.322570E-01 15 1.943200E-02 2.566832E-01 16 2.082000E-02 8.597113E-02 17 2.220800E-02 -1.152530E-01 18 2.359600E-02 -2.723921E-01 19 2.498400E-02 -3.303100E-01 20 2.637200E-02 -2.730998E-01 21 2.776000E-02 -1.284126E-01 22 2.914800E-02 4.626717E-02 23 3.053601E-02 1.887517E-01 24 3.192401E-02 2.559007E-01 25 3.331200E-02 2.366529E-01 26 3.470000E-02 1.511663E-01 27 3.608800E-02 3.798332E-02 28 3.747600E-02 -6.388950E-02 29 3.886400E-02 -1.291952E-01 30 4.025200E-02 -1.515235E-01 31 4.163999E-02 -1.392808E-01 32 4.302799E-02 -1.064889E-01 33 4.441599E-02 -6.410828E-02 34 4.580399E-02 -1.653035E-02 35 4.719199E-02 3.575153E-02 36 4.857999E-02 9.016525E-02 37 4.996799E-02 1.373997E-01 38 5.135598E-02 1.617500E-01 39 5.274398E-02 1.472344E-01 40 5.413198E-02 8.673263E-02 41 5.551998E-02 -1.079772E-02 42 5.690798E-02 -1.195081E-01 43 5.829598E-02 -2.038530E-01 44 5.968397E-02 -2.315398E-01 45 6.107197E-02 -1.869683E-01 46 6.245997E-02 -7.920627E-02 47 6.384797E-02 5.938523E-02 48 6.523597E-02 1.838459E-01 49 6.662397E-02 2.526268E-01 50 6.801197E-02 2.426398E-01 51 6.939997E-02 1.574560E-01 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 DISPLACEMENT CURVE ID = 51 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 52 7.078797E-02 2.560599E-02 53 7.217596E-02 -1.100492E-01 54 7.356396E-02 -2.074866E-01 55 7.495196E-02 -2.393745E-01 56 7.633996E-02 -2.007295E-01 57 7.772796E-02 -1.082936E-01 58 7.911596E-02 7.144091E-03 59 8.050396E-02 1.118376E-01 60 8.189195E-02 1.792864E-01 61 8.327995E-02 1.963605E-01 62 8.466795E-02 1.642867E-01 63 8.605595E-02 9.552170E-02 64 8.744395E-02 8.690083E-03 65 8.883195E-02 -7.629749E-02 66 9.021994E-02 -1.417937E-01 67 9.160794E-02 -1.746193E-01 68 9.299594E-02 -1.675700E-01 69 9.438394E-02 -1.207518E-01 70 9.577194E-02 -4.258823E-02 71 9.715994E-02 5.035497E-02 72 9.854794E-02 1.357245E-01 73 9.993593E-02 1.902706E-01 74 1.013239E-01 1.944442E-01 75 1.027119E-01 1.067888E-01 76 1.040999E-01 -2.360307E-02 77 1.054879E-01 -1.359107E-01 78 1.068759E-01 -1.790060E-01 79 1.082639E-01 -1.337145E-01 80 1.096519E-01 -2.684071E-02 81 1.110399E-01 8.586286E-02 82 1.124279E-01 1.514307E-01 83 1.138159E-01 1.421362E-01 84 1.152039E-01 6.585731E-02 85 1.165919E-01 -3.754779E-02 86 1.179799E-01 -1.169266E-01 87 1.193679E-01 -1.361141E-01 88 1.207559E-01 -8.972091E-02 89 1.221439E-01 -3.262767E-03 90 1.235319E-01 8.010235E-02 91 1.249199E-01 1.208426E-01 92 1.263079E-01 1.020563E-01 93 1.276959E-01 3.615609E-02 94 1.290839E-01 -4.295759E-02 95 1.304719E-01 -9.705742E-02 96 1.318599E-01 -1.018451E-01 97 1.332479E-01 -5.782165E-02 98 1.346359E-01 1.133263E-02 99 1.360239E-01 7.140251E-02 100 1.374119E-01 9.444311E-02 101 1.387999E-01 7.162559E-02 102 1.401879E-01 1.637442E-02 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 DISPLACEMENT CURVE ID = 51 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 103 1.415759E-01 -4.324254E-02 104 1.429639E-01 -7.868848E-02 105 1.443519E-01 -7.452134E-02 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 101( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 7 CURVE TITLE = * * * * * * * G R I D 1 0 1 * * * * * * * * * * * * X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = D I S P * INCH * THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 1.443519E-01) THE SMALLEST Y-VALUE = -9.976625E-01 AT X = 2.498400E-02 THE LARGEST Y-VALUE = 9.997069E-01 AT X = 1.804400E-02 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 1.443519E-01) THE SMALLEST Y-VALUE = -9.976625E-01 AT X = 2.498400E-02 THE LARGEST Y-VALUE = 9.997069E-01 AT X = 1.804400E-02 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 DISPLACEMENT CURVE ID = 101 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 0.000000E+00 0.000000E+00 2 1.388000E-03 7.723872E-02 3 2.776000E-03 2.262012E-01 4 4.164000E-03 3.205386E-01 5 5.552000E-03 2.633045E-01 6 6.940000E-03 1.745296E-02 7 8.328000E-03 -3.466618E-01 8 9.716000E-03 -6.624677E-01 9 1.110400E-02 -7.620759E-01 10 1.249200E-02 -5.644733E-01 11 1.388000E-02 -1.113241E-01 12 1.526800E-02 4.392738E-01 13 1.665600E-02 8.696855E-01 14 1.804400E-02 9.997069E-01 15 1.943200E-02 7.675585E-01 16 2.082000E-02 2.539624E-01 17 2.220800E-02 -3.510861E-01 18 2.359600E-02 -8.239511E-01 19 2.498400E-02 -9.976625E-01 20 2.637200E-02 -8.256274E-01 21 2.776000E-02 -3.910216E-01 22 2.914800E-02 1.355499E-01 23 3.053601E-02 5.677651E-01 24 3.192401E-02 7.745152E-01 25 3.331200E-02 7.210318E-01 26 3.470000E-02 4.662092E-01 27 3.608800E-02 1.241408E-01 28 3.747600E-02 -1.880655E-01 29 3.886400E-02 -3.925510E-01 30 4.025200E-02 -4.672115E-01 31 4.163999E-02 -4.345875E-01 32 4.302799E-02 -3.350197E-01 33 4.441599E-02 -2.015273E-01 34 4.580399E-02 -4.941432E-02 35 4.719199E-02 1.166631E-01 36 4.857999E-02 2.859598E-01 37 4.996799E-02 4.286370E-01 38 5.135598E-02 4.974545E-01 39 5.274398E-02 4.461163E-01 40 5.413198E-02 2.559412E-01 41 5.551998E-02 -4.350854E-02 42 5.690798E-02 -3.728405E-01 43 5.829598E-02 -6.248938E-01 44 5.968397E-02 -7.035705E-01 45 6.107197E-02 -5.636826E-01 46 6.245997E-02 -2.342330E-01 47 6.384797E-02 1.862342E-01 48 6.523597E-02 5.619959E-01 49 6.662397E-02 7.682050E-01 50 6.801197E-02 7.358833E-01 51 6.939997E-02 4.763267E-01 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 DISPLACEMENT CURVE ID = 101 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 52 7.078797E-02 7.589497E-02 53 7.217596E-02 -3.359235E-01 54 7.356396E-02 -6.320636E-01 55 7.495196E-02 -7.295730E-01 56 7.633996E-02 -6.128195E-01 57 7.772796E-02 -3.319086E-01 58 7.911596E-02 2.014856E-02 59 8.050396E-02 3.407274E-01 60 8.189195E-02 5.485079E-01 61 8.327995E-02 6.023847E-01 62 8.466795E-02 5.050207E-01 63 8.605595E-02 2.938865E-01 64 8.744395E-02 2.613967E-02 65 8.883195E-02 -2.363712E-01 66 9.021994E-02 -4.384143E-01 67 9.160794E-02 -5.387349E-01 68 9.299594E-02 -5.151430E-01 69 9.438394E-02 -3.687051E-01 70 9.577194E-02 -1.265103E-01 71 9.715994E-02 1.594517E-01 72 9.854794E-02 4.200789E-01 73 9.993593E-02 5.844343E-01 74 1.013239E-01 5.695511E-01 75 1.027119E-01 3.209443E-01 76 1.040999E-01 -6.986048E-02 77 1.054879E-01 -4.045559E-01 78 1.068759E-01 -5.259836E-01 79 1.082639E-01 -3.923548E-01 80 1.096519E-01 -8.107455E-02 81 1.110399E-01 2.523459E-01 82 1.124279E-01 4.473753E-01 83 1.138159E-01 4.184102E-01 84 1.152039E-01 1.930220E-01 85 1.165919E-01 -1.105331E-01 86 1.179799E-01 -3.446014E-01 87 1.193679E-01 -4.019049E-01 88 1.207559E-01 -2.648553E-01 89 1.221439E-01 -9.758829E-03 90 1.235319E-01 2.355385E-01 91 1.249199E-01 3.555018E-01 92 1.263079E-01 3.003663E-01 93 1.276959E-01 1.060764E-01 94 1.290839E-01 -1.272431E-01 95 1.304719E-01 -2.866142E-01 96 1.318599E-01 -3.006944E-01 97 1.332479E-01 -1.710623E-01 98 1.346359E-01 3.270512E-02 99 1.360239E-01 2.097582E-01 100 1.374119E-01 2.776153E-01 101 1.387999E-01 2.103176E-01 102 1.401879E-01 4.748539E-02 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 DISPLACEMENT CURVE ID = 101 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 103 1.415759E-01 -1.282255E-01 104 1.429639E-01 -2.327298E-01 105 1.443519E-01 -2.204751E-01 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE ACCELERATION CURVE 51( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 8 CURVE TITLE = * * * * * * * G R I D 5 1 * * * * * * * * * * * * * X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = ACCELERATION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 1.443519E-01) THE SMALLEST Y-VALUE = -6.637497E+04 AT X = 1.804400E-02 THE LARGEST Y-VALUE = 6.287795E+04 AT X = 2.498400E-02 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 1.443519E-01) THE SMALLEST Y-VALUE = -6.637497E+04 AT X = 1.804400E-02 THE LARGEST Y-VALUE = 6.287795E+04 AT X = 2.498400E-02 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ACCELERATION CURVE ID = 51 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 0.000000E+00 2.813025E+04 2 1.388000E-03 3.823744E+04 3 2.776000E-03 2.578989E+04 4 4.164000E-03 -4.750047E+04 5 5.552000E-03 -4.881896E+04 6 6.940000E-03 -4.125725E+03 7 8.328000E-03 1.059572E+04 8 9.716000E-03 2.745978E+04 9 1.110400E-02 5.804474E+04 10 1.249200E-02 5.329425E+04 11 1.388000E-02 1.317381E+04 12 1.526800E-02 -2.422111E+04 13 1.665600E-02 -5.109366E+04 14 1.804400E-02 -6.637497E+04 15 1.943200E-02 -5.391699E+04 16 2.082000E-02 -1.561593E+04 17 2.220800E-02 2.547642E+04 18 2.359600E-02 5.368011E+04 19 2.498400E-02 6.287795E+04 20 2.637200E-02 4.869686E+04 21 2.776000E-02 1.646603E+04 22 2.914800E-02 -1.795893E+04 23 3.053601E-02 -4.106732E+04 24 3.192401E-02 -4.731144E+04 25 3.331200E-02 -3.684114E+04 26 3.470000E-02 -1.568362E+04 27 3.608800E-02 5.901471E+03 28 3.747600E-02 1.977666E+04 29 3.886400E-02 2.357993E+04 30 4.025200E-02 1.945395E+04 31 4.163999E-02 1.197155E+04 32 4.302799E-02 5.882438E+03 33 4.441599E-02 3.268846E+03 34 4.580399E-02 2.620024E+03 35 4.719199E-02 7.455621E+02 36 4.857999E-02 -4.648697E+03 37 4.996799E-02 -1.327491E+04 38 5.135598E-02 -2.183719E+04 39 5.274398E-02 -2.538069E+04 40 5.413198E-02 -2.005447E+04 41 5.551998E-02 -5.580399E+03 42 5.690798E-02 1.400117E+04 43 5.829598E-02 3.160186E+04 44 5.968397E-02 3.990899E+04 45 6.107197E-02 3.463466E+04 46 6.245997E-02 1.663535E+04 47 6.384797E-02 -8.158046E+03 48 6.523597E-02 -3.095900E+04 49 6.662397E-02 -4.354002E+04 50 6.801197E-02 -4.144321E+04 51 6.939997E-02 -2.564071E+04 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ACCELERATION CURVE ID = 51 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 52 7.078797E-02 -1.990080E+03 53 7.217596E-02 2.117864E+04 54 7.356396E-02 3.625852E+04 55 7.495196E-02 3.903356E+04 56 7.633996E-02 2.982617E+04 57 7.772796E-02 1.283454E+04 58 7.911596E-02 -5.853189E+03 59 8.050396E-02 -2.060734E+04 60 8.189195E-02 -2.800835E+04 61 8.327995E-02 -2.744698E+04 62 8.466795E-02 -2.058865E+04 63 8.605595E-02 -1.020054E+04 64 8.744395E-02 9.978672E+02 65 8.883195E-02 1.097683E+04 66 9.021994E-02 1.842987E+04 67 9.160794E-02 2.245424E+04 68 9.299594E-02 2.228913E+04 69 9.438394E-02 1.741417E+04 70 9.577194E-02 8.006321E+03 71 9.715994E-02 -4.541350E+03 72 9.854794E-02 -1.745806E+04 73 9.993593E-02 -2.708979E+04 74 1.013239E-01 -5.934801E+04 75 1.027119E-01 -1.055618E+04 76 1.040999E-01 1.087224E+04 77 1.054879E-01 2.909780E+04 78 1.068759E-01 5.048494E+04 79 1.082639E-01 3.761383E+04 80 1.096519E-01 -3.875897E+02 81 1.110399E-01 -2.712853E+04 82 1.124279E-01 -3.783608E+04 83 1.138159E-01 -3.633577E+04 84 1.152039E-01 -1.626763E+04 85 1.165919E-01 1.388320E+04 86 1.179799E-01 3.346539E+04 87 1.193679E-01 3.470626E+04 88 1.207559E-01 2.139606E+04 89 1.221439E-01 -1.211638E+03 90 1.235319E-01 -2.326561E+04 91 1.249199E-01 -3.258568E+04 92 1.263079E-01 -2.526081E+04 93 1.276959E-01 -6.912656E+03 94 1.290839E-01 1.346239E+04 95 1.304719E-01 2.672452E+04 96 1.318599E-01 2.652542E+04 97 1.332479E-01 1.349438E+04 98 1.346359E-01 -5.075038E+03 99 1.360239E-01 -2.006377E+04 100 1.374119E-01 -2.481011E+04 101 1.387999E-01 -1.754683E+04 102 1.401879E-01 -2.282217E+03 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ACCELERATION CURVE ID = 51 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 103 1.415759E-01 1.318091E+04 104 1.429639E-01 2.146324E+04 105 1.443519E-01 1.912619E+04 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE ACCELERATION CURVE 101( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT FILM PLOTTER WITHOUT TYPING CAPABILITY. CSCALE = 1.00 CAMERA 3 USED. (PAPER AND 35MM FILM) DENSITY = 1 THIS IS CURVE 1 OF WHOLE FRAME 9 CURVE TITLE = * * * * * * * G R I D 1 0 1 * * * * * * * * * * * * X-AXIS TITLE = TIME (SECONDS) Y-AXIS TITLE = ACCELERATION THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 0.000000E+00 TO X = 1.443519E-01) THE SMALLEST Y-VALUE = -1.898740E+05 AT X = 1.804400E-02 THE LARGEST Y-VALUE = 3.171249E+05 AT X = 0.000000E+00 WITHIN THE X-LIMITS OF ALL DATA (X = 0.000000E+00 TO X = 1.443519E-01) THE SMALLEST Y-VALUE = -1.898740E+05 AT X = 1.804400E-02 THE LARGEST Y-VALUE = 3.171249E+05 AT X = 0.000000E+00 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ACCELERATION CURVE ID = 101 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 0.000000E+00 3.171249E+05 2 1.388000E-03 9.845326E+04 3 2.776000E-03 -4.035689E+04 4 4.164000E-03 -4.925758E+04 5 5.552000E-03 -8.206073E+04 6 6.940000E-03 -8.646681E+04 7 8.328000E-03 1.814528E+04 8 9.716000E-03 1.261048E+05 9 1.110400E-02 1.540965E+05 10 1.249200E-02 1.301929E+05 11 1.388000E-02 6.062271E+04 12 1.526800E-02 -5.690327E+04 13 1.665600E-02 -1.604271E+05 14 1.804400E-02 -1.898740E+05 15 1.943200E-02 -1.451811E+05 16 2.082000E-02 -4.944468E+04 17 2.220800E-02 6.768463E+04 18 2.359600E-02 1.577580E+05 19 2.498400E-02 1.806229E+05 20 2.637200E-02 1.345292E+05 21 2.776000E-02 4.539338E+04 22 2.914800E-02 -5.154821E+04 23 3.053601E-02 -1.196134E+05 24 3.192401E-02 -1.353655E+05 25 3.331200E-02 -1.014873E+05 26 3.470000E-02 -4.049111E+04 27 3.608800E-02 2.026535E+04 28 3.747600E-02 5.910531E+04 29 3.886400E-02 6.740855E+04 30 4.025200E-02 5.214193E+04 31 4.163999E-02 2.907404E+04 32 4.302799E-02 1.198544E+04 33 4.441599E-02 6.039787E+03 34 4.580399E-02 6.917350E+03 35 4.719199E-02 4.710083E+03 36 4.857999E-02 -8.709955E+03 37 4.996799E-02 -3.312411E+04 38 5.135598E-02 -5.879572E+04 39 5.274398E-02 -7.114071E+04 40 5.413198E-02 -5.843600E+04 41 5.551998E-02 -1.892242E+04 42 5.690798E-02 3.636603E+04 43 5.829598E-02 8.708584E+04 44 5.968397E-02 1.120127E+05 45 6.107197E-02 9.844830E+04 46 6.245997E-02 4.835300E+04 47 6.384797E-02 -2.160792E+04 48 6.523597E-02 -8.633956E+04 49 6.662397E-02 -1.222526E+05 50 6.801197E-02 -1.165413E+05 51 6.939997E-02 -7.193895E+04 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ACCELERATION CURVE ID = 101 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 52 7.078797E-02 -5.170703E+03 53 7.217596E-02 5.999100E+04 54 7.356396E-02 1.019585E+05 55 7.495196E-02 1.089758E+05 56 7.633996E-02 8.230376E+04 57 7.772796E-02 3.418627E+04 58 7.911596E-02 -1.795683E+04 59 8.050396E-02 -5.831638E+04 60 8.189195E-02 -7.765264E+04 61 8.327995E-02 -7.483258E+04 62 8.466795E-02 -5.507498E+04 63 8.605595E-02 -2.641331E+04 64 8.744395E-02 3.659427E+03 65 8.883195E-02 2.994626E+04 66 9.021994E-02 4.943254E+04 67 9.160794E-02 6.012005E+04 68 9.299594E-02 6.008125E+04 69 9.438394E-02 4.766258E+04 70 9.577194E-02 2.286375E+04 71 9.715994E-02 -1.099199E+04 72 9.854794E-02 -4.657574E+04 73 9.993593E-02 -7.378285E+04 74 1.013239E-01 -1.321221E+05 75 1.027119E-01 -9.432895E+04 76 1.040999E-01 2.930060E+04 77 1.054879E-01 1.275696E+05 78 1.068759E-01 1.343836E+05 79 1.082639E-01 8.973870E+04 80 1.096519E-01 1.627036E+04 81 1.110399E-01 -7.325133E+04 82 1.124279E-01 -1.252604E+05 83 1.138159E-01 -1.060156E+05 84 1.152039E-01 -3.956612E+04 85 1.165919E-01 3.696648E+04 86 1.179799E-01 9.480388E+04 87 1.193679E-01 1.062910E+05 88 1.207559E-01 6.393413E+04 89 1.221439E-01 -6.478202E+03 90 1.235319E-01 -6.799441E+04 91 1.249199E-01 -9.439389E+04 92 1.263079E-01 -7.544641E+04 93 1.276959E-01 -2.102819E+04 94 1.290839E-01 4.057045E+04 95 1.304719E-01 7.882841E+04 96 1.318599E-01 7.757045E+04 97 1.332479E-01 3.995714E+04 98 1.346359E-01 -1.464575E+04 99 1.360239E-01 -5.937016E+04 100 1.374119E-01 -7.322045E+04 101 1.387999E-01 -5.151574E+04 102 1.401879E-01 -6.735034E+03 1 TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A 0 ACCELERATION CURVE ID = 101 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 103 1.415759E-01 3.872327E+04 104 1.429639E-01 6.330587E+04 105 1.443519E-01 5.642220E+04 * * * END OF JOB * * * 1 JOB TITLE = TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM DATE: 5/17/95 END TIME: 16:22:16 TOTAL WALL CLOCK TIME 4 SEC. ================================================ FILE: demoout/d13011a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D13011A,NASTRAN APP DISPLACEMENT SOL 13,0 TIME 25 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 3 SPC = 2 4 SET 1 = 11,21,31,41,51,61,71,81,91 5 DISPLACEMENT = 1 6 ELFORCE = 1 7 SUBCASE 20 8 LABEL = STATICS SOLUTION. 9 LOAD = 100 10 OLOAD = ALL 11 SUBCASE 40 12 LABEL = SECOND ORDER STATICS SOLUTION. 13 DSCOEFFICIENT = DEFAULT 14 SUBCASE 80 15 LABEL = NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS 16 METHOD = 101 17 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 209, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BAROR .0 1. .0 1 2- CBAR 1 1 1 2 3- CBAR 2 1 2 3 4- CBAR 3 1 3 4 5- CBAR 4 1 4 5 6- CBAR 5 1 5 6 7- CBAR 6 1 6 7 8- CBAR 7 1 7 8 9- CBAR 8 1 8 9 10- CBAR 9 1 9 10 11- CBAR 10 1 10 11 12- CBAR 11 1 11 12 13- CBAR 12 1 12 13 14- CBAR 13 1 13 14 15- CBAR 14 1 14 15 16- CBAR 15 1 15 16 17- CBAR 16 1 16 17 18- CBAR 17 1 17 18 19- CBAR 18 1 18 19 20- CBAR 19 1 19 20 21- CBAR 20 1 20 21 22- CBAR 21 1 21 22 23- CBAR 22 1 22 23 24- CBAR 23 1 23 24 25- CBAR 24 1 24 25 26- CBAR 25 1 25 26 27- CBAR 26 1 26 27 28- CBAR 27 1 27 28 29- CBAR 28 1 28 29 30- CBAR 29 1 29 30 31- CBAR 30 1 30 31 32- CBAR 31 1 31 32 33- CBAR 32 1 32 33 34- CBAR 33 1 33 34 35- CBAR 34 1 34 35 36- CBAR 35 1 35 36 37- CBAR 36 1 36 37 38- CBAR 37 1 37 38 39- CBAR 38 1 38 39 40- CBAR 39 1 39 40 41- CBAR 40 1 40 41 42- CBAR 41 1 41 42 43- CBAR 42 1 42 43 44- CBAR 43 1 43 44 45- CBAR 44 1 44 45 46- CBAR 45 1 45 46 47- CBAR 46 1 46 47 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CBAR 47 1 47 48 49- CBAR 48 1 48 49 50- CBAR 49 1 49 50 51- CBAR 50 1 50 51 52- CBAR 51 1 51 52 53- CBAR 52 1 52 53 54- CBAR 53 1 53 54 55- CBAR 54 1 54 55 56- CBAR 55 1 55 56 57- CBAR 56 1 56 57 58- CBAR 57 1 57 58 59- CBAR 58 1 58 59 60- CBAR 59 1 59 60 61- CBAR 60 1 60 61 62- CBAR 61 1 61 62 63- CBAR 62 1 62 63 64- CBAR 63 1 63 64 65- CBAR 64 1 64 65 66- CBAR 65 1 65 66 67- CBAR 66 1 66 67 68- CBAR 67 1 67 68 69- CBAR 68 1 68 69 70- CBAR 69 1 69 70 71- CBAR 70 1 70 71 72- CBAR 71 1 71 72 73- CBAR 72 1 72 73 74- CBAR 73 1 73 74 75- CBAR 74 1 74 75 76- CBAR 75 1 75 76 77- CBAR 76 1 76 77 78- CBAR 77 1 77 78 79- CBAR 78 1 78 79 80- CBAR 79 1 79 80 81- CBAR 80 1 80 81 82- CBAR 81 1 81 82 83- CBAR 82 1 82 83 84- CBAR 83 1 83 84 85- CBAR 84 1 84 85 86- CBAR 85 1 85 86 87- CBAR 86 1 86 87 88- CBAR 87 1 87 88 89- CBAR 88 1 88 89 90- CBAR 89 1 89 90 91- CBAR 90 1 90 91 92- CBAR 91 1 91 92 93- CBAR 92 1 92 93 94- CBAR 93 1 93 94 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CBAR 94 1 94 95 96- CBAR 95 1 95 96 97- CBAR 96 1 96 97 98- CBAR 97 1 97 98 99- CBAR 98 1 98 99 100- CBAR 99 1 99 100 101- CBAR 100 1 100 101 102- EIGR 101 INV .0 200.0 3 3 3 1.-4 +EIG1 103- +EIG1 MAX 104- FORCE1 100 101 3423.17 101 1 105- GRDSET 345 106- GRID 1 .0 107- GRID 2 1.0 108- GRID 3 2.0 109- GRID 4 3.0 110- GRID 5 4.0 111- GRID 6 5.0 112- GRID 7 6.0 113- GRID 8 7.0 114- GRID 9 8.0 115- GRID 10 9.0 116- GRID 11 10.0 117- GRID 12 11.0 118- GRID 13 12.0 119- GRID 14 13.0 120- GRID 15 14.0 121- GRID 16 15.0 122- GRID 17 16.0 123- GRID 18 17.0 124- GRID 19 18.0 125- GRID 20 19.0 126- GRID 21 20.0 127- GRID 22 21.0 128- GRID 23 22.0 129- GRID 24 23.0 130- GRID 25 24.0 131- GRID 26 25.0 132- GRID 27 26.0 133- GRID 28 27.0 134- GRID 29 28.0 135- GRID 30 29.0 136- GRID 31 30.0 137- GRID 32 31.0 138- GRID 33 32.0 139- GRID 34 33.0 140- GRID 35 34.0 141- GRID 36 35.0 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 37 36.0 143- GRID 38 37.0 144- GRID 39 38.0 145- GRID 40 39.0 146- GRID 41 40.0 147- GRID 42 41.0 148- GRID 43 42.0 149- GRID 44 43.0 150- GRID 45 44.0 151- GRID 46 45.0 152- GRID 47 46.0 153- GRID 48 47.0 154- GRID 49 48.0 155- GRID 50 49.0 156- GRID 51 50.0 157- GRID 52 51.0 158- GRID 53 52.0 159- GRID 54 53.0 160- GRID 55 54.0 161- GRID 56 55.0 162- GRID 57 56.0 163- GRID 58 57.0 164- GRID 59 58.0 165- GRID 60 59.0 166- GRID 61 60.0 167- GRID 62 61.0 168- GRID 63 62.0 169- GRID 64 63.0 170- GRID 65 64.0 171- GRID 66 65.0 172- GRID 67 66.0 173- GRID 68 67.0 174- GRID 69 68.0 175- GRID 70 69.0 176- GRID 71 70.0 177- GRID 72 71.0 178- GRID 73 72.0 179- GRID 74 73.0 180- GRID 75 74.0 181- GRID 76 75.0 182- GRID 77 76.0 183- GRID 78 77.0 184- GRID 79 78.0 185- GRID 80 79.0 186- GRID 81 80.0 187- GRID 82 81.0 188- GRID 83 82.0 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- GRID 84 83.0 190- GRID 85 84.0 191- GRID 86 85.0 192- GRID 87 86.0 193- GRID 88 87.0 194- GRID 89 88.0 195- GRID 90 89.0 196- GRID 91 90.0 197- GRID 92 91.0 198- GRID 93 92.0 199- GRID 94 93.0 200- GRID 95 94.0 201- GRID 96 95.0 202- GRID 97 96.0 203- GRID 98 97.0 204- GRID 99 98.0 205- GRID 100 99.0 206- GRID 101 100.0 207- MAT1 22 10.4E6 .3 2.0E-4 208- PBAR 1 22 2.0 .666667 .666667 209- SPC 2 1 12 .0 101 2 .0 ENDDATA 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 2 PROFILE 201 MAX WAVEFRONT 2 AVG WAVEFRONT 1.990 RMS WAVEFRONT 1.993 RMS BANDWIDTH 1.993 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 2 PROFILE 201 MAX WAVEFRONT 2 AVG WAVEFRONT 1.990 RMS WAVEFRONT 1.993 RMS BANDWIDTH 1.993 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 2 2 PROFILE (P) 201 201 MAXIMUM WAVEFRONT (C-MAX) 2 2 AVERAGE WAVEFRONT (C-AVG) 1.990 1.990 RMS WAVEFRONT (C-RMS) 1.993 1.993 RMS BANDWITCH (B-RMS) 1.993 1.993 NUMBER OF GRID POINTS (N) 101 NUMBER OF ELEMENTS (NON-RIGID) 100 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 2 MINIMUM NODAL DEGREE 1 NUMBER OF UNIQUE EDGES 100 MATRIX DENSITY, PERCENT 2.951 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.6605491E-14 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 STATICS SOLUTION. SUBCASE 20 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G -1.645755E-03 0.0 0.0 0.0 0.0 0.0 21 G -3.291510E-03 0.0 0.0 0.0 0.0 0.0 31 G -4.937264E-03 0.0 0.0 0.0 0.0 0.0 41 G -6.583019E-03 0.0 0.0 0.0 0.0 0.0 51 G -8.228774E-03 0.0 0.0 0.0 0.0 0.0 61 G -9.874528E-03 0.0 0.0 0.0 0.0 0.0 71 G -1.152028E-02 0.0 0.0 0.0 0.0 0.0 81 G -1.316604E-02 0.0 0.0 0.0 0.0 0.0 91 G -1.481179E-02 0.0 0.0 0.0 0.0 0.0 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 STATICS SOLUTION. SUBCASE 20 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -3.423170E+03 0.0 0.0 0.0 0.0 0.0 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 STATICS SOLUTION. SUBCASE 20 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 11 0.0 0.0 0.0 0.0 0.0 0.0 -3.423168E+03 0.0 21 0.0 0.0 0.0 0.0 0.0 0.0 -3.423172E+03 0.0 31 0.0 0.0 0.0 0.0 0.0 0.0 -3.423180E+03 0.0 41 0.0 0.0 0.0 0.0 0.0 0.0 -3.423172E+03 0.0 51 0.0 0.0 0.0 0.0 0.0 0.0 -3.423156E+03 0.0 61 0.0 0.0 0.0 0.0 0.0 0.0 -3.423172E+03 0.0 71 0.0 0.0 0.0 0.0 0.0 0.0 -3.423188E+03 0.0 81 0.0 0.0 0.0 0.0 0.0 0.0 -3.423156E+03 0.0 91 0.0 0.0 0.0 0.0 0.0 0.0 -3.423156E+03 0.0 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E DET 2.938762E+05 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E POWER 2206 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.6605491E-14 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 SECOND ORDER STATICS SOLUTION. SUBCASE 40 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G -1.645755E-03 0.0 0.0 0.0 0.0 0.0 21 G -3.291510E-03 0.0 0.0 0.0 0.0 0.0 31 G -4.937264E-03 0.0 0.0 0.0 0.0 0.0 41 G -6.583019E-03 0.0 0.0 0.0 0.0 0.0 51 G -8.228774E-03 0.0 0.0 0.0 0.0 0.0 61 G -9.874528E-03 0.0 0.0 0.0 0.0 0.0 71 G -1.152028E-02 0.0 0.0 0.0 0.0 0.0 81 G -1.316604E-02 0.0 0.0 0.0 0.0 0.0 91 G -1.481179E-02 0.0 0.0 0.0 0.0 0.0 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 SECOND ORDER STATICS SOLUTION. SUBCASE 40 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 11 0.0 0.0 0.0 0.0 0.0 0.0 -3.423168E+03 0.0 21 0.0 0.0 0.0 0.0 0.0 0.0 -3.423172E+03 0.0 31 0.0 0.0 0.0 0.0 0.0 0.0 -3.423180E+03 0.0 41 0.0 0.0 0.0 0.0 0.0 0.0 -3.423172E+03 0.0 51 0.0 0.0 0.0 0.0 0.0 0.0 -3.423156E+03 0.0 61 0.0 0.0 0.0 0.0 0.0 0.0 -3.423172E+03 0.0 71 0.0 0.0 0.0 0.0 0.0 0.0 -3.423188E+03 0.0 81 0.0 0.0 0.0 0.0 0.0 0.0 -3.423156E+03 0.0 91 0.0 0.0 0.0 0.0 0.0 0.0 -3.423156E+03 0.0 2 ROOTS BELOW 7.895683E+05 3 ROOTS BELOW 1.300175E+06 1 ROOTS BELOW 2.360860E+05 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 3 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 3 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 20 0 REASON FOR TERMINATION . . . . . . . . . . . 6* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.93E-08 0 . . . 2 MODE PAIR . . . . . . . . . . . . . 1 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* NO. OF ROOTS DESIRED WERE FOUND. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3308, LOWEST EIGENVALUE FOUND * * AS INDICATED BY THE STURM'S SEQUENCE OF THE DYNAMIC MATRIX * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 3 8.437918E+03 9.185814E+01 1.461968E+01 2.000000E-02 1.687584E+02 2 2 2.363627E+05 4.861714E+02 7.737659E+01 1.999999E-02 4.727252E+03 3 1 1.291607E+06 1.136489E+03 1.808778E+02 2.000000E-02 2.583214E+04 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS SUBCASE 80 EIGENVALUE = 0.843792E+04 (CYCLIC FREQUENCY = 1.461968E+01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 2.957333E-18 3.090170E-01 0.0 0.0 0.0 2.987832E-02 21 G 5.841847E-18 5.877853E-01 0.0 0.0 0.0 2.541602E-02 31 G 8.582515E-18 8.090171E-01 0.0 0.0 0.0 1.846582E-02 41 G 1.111185E-17 9.510566E-01 0.0 0.0 0.0 9.708056E-03 51 G 1.336758E-17 1.000000E+00 0.0 0.0 0.0 -3.963003E-10 61 G 1.529415E-17 9.510565E-01 0.0 0.0 0.0 -9.708056E-03 71 G 1.684414E-17 8.090171E-01 0.0 0.0 0.0 -1.846582E-02 81 G 1.797936E-17 5.877853E-01 0.0 0.0 0.0 -2.541602E-02 91 G 1.867187E-17 3.090170E-01 0.0 0.0 0.0 -2.987832E-02 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS SUBCASE 80 EIGENVALUE = 0.236363E+06 (CYCLIC FREQUENCY = 7.737659E+01 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G -1.814206E-28 -5.877850E-01 0.0 0.0 0.0 -5.083202E-02 21 G -3.583741E-28 -9.510562E-01 0.0 0.0 0.0 -1.941611E-02 31 G -5.265032E-28 -9.510563E-01 0.0 0.0 0.0 1.941609E-02 41 G -6.816679E-28 -5.877853E-01 0.0 0.0 0.0 5.083201E-02 51 G -8.200478E-28 -2.232630E-07 0.0 0.0 0.0 6.283184E-02 61 G -9.382355E-28 5.877850E-01 0.0 0.0 0.0 5.083204E-02 71 G -1.033320E-27 9.510565E-01 0.0 0.0 0.0 1.941613E-02 81 G -1.102962E-27 9.510567E-01 0.0 0.0 0.0 -1.941610E-02 91 G -1.145445E-27 5.877854E-01 0.0 0.0 0.0 -5.083204E-02 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS SUBCASE 80 EIGENVALUE = 0.129161E+07 (CYCLIC FREQUENCY = 1.808778E+02 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 11 G 8.480357E-22 -8.090171E-01 0.0 0.0 0.0 -5.539744E-02 21 G 1.675190E-21 -9.510567E-01 0.0 0.0 0.0 2.912415E-02 31 G 2.461096E-21 -3.090172E-01 0.0 0.0 0.0 8.963493E-02 41 G 3.186401E-21 5.877851E-01 0.0 0.0 0.0 7.624803E-02 51 G 3.833246E-21 1.000000E+00 0.0 0.0 0.0 1.407593E-08 61 G 4.385704E-21 5.877854E-01 0.0 0.0 0.0 -7.624801E-02 71 G 4.830172E-21 -3.090168E-01 0.0 0.0 0.0 -8.963493E-02 81 G 5.155704E-21 -9.510563E-01 0.0 0.0 0.0 -2.912416E-02 91 G 5.354287E-21 -8.090168E-01 0.0 0.0 0.0 5.539742E-02 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS SUBCASE 80 EIGENVALUE = 0.843792E+04 (CYCLIC FREQUENCY = 1.461968E+01 HZ) F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 11 -2.114000E+03 0.0 -2.318000E+03 0.0 2.040000E+02 0.0 6.092737E-12 0.0 21 -4.022000E+03 0.0 -4.194000E+03 0.0 1.720000E+02 0.0 5.859077E-12 0.0 31 -5.536000E+03 0.0 -5.656000E+03 0.0 1.200000E+02 0.0 5.481157E-12 0.0 41 -6.512000E+03 0.0 -6.576000E+03 0.0 6.400000E+01 0.0 4.968262E-12 0.0 51 -6.844000E+03 0.0 -6.844000E+03 0.0 0.0 0.0 4.333034E-12 0.0 61 -6.512000E+03 0.0 -6.440000E+03 0.0 -7.200000E+01 0.0 3.591127E-12 0.0 71 -5.540000E+03 0.0 -5.404000E+03 0.0 -1.360000E+02 0.0 2.760764E-12 0.0 81 -4.026000E+03 0.0 -3.846000E+03 0.0 -1.800000E+02 0.0 1.862482E-12 0.0 91 -2.117000E+03 0.0 -1.909000E+03 0.0 -2.080000E+02 0.0 9.182655E-13 0.0 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS SUBCASE 80 EIGENVALUE = 0.236363E+06 (CYCLIC FREQUENCY = 7.737659E+01 HZ) F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 11 1.609200E+04 0.0 1.745600E+04 0.0 -1.364000E+03 0.0 -3.737653E-22 0.0 21 2.603600E+04 0.0 2.651600E+04 0.0 -4.800000E+02 0.0 -3.594318E-22 0.0 31 2.603600E+04 0.0 2.546000E+04 0.0 5.760000E+02 0.0 -3.362465E-22 0.0 41 1.609400E+04 0.0 1.467000E+04 0.0 1.424000E+03 0.0 -3.047837E-22 0.0 51 0.0 0.0 -1.719250E+03 0.0 1.719250E+03 0.0 -2.658158E-22 0.0 61 -1.609000E+04 0.0 -1.745000E+04 0.0 1.360000E+03 0.0 -2.202998E-22 0.0 71 -2.604400E+04 0.0 -2.652400E+04 0.0 4.800000E+02 0.0 -1.693668E-22 0.0 81 -2.604400E+04 0.0 -2.545200E+04 0.0 -5.920000E+02 0.0 -1.142576E-22 0.0 91 -1.609800E+04 0.0 -1.467000E+04 0.0 -1.428000E+03 0.0 -5.633552E-23 0.0 1 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS SUBCASE 80 EIGENVALUE = 0.129161E+07 (CYCLIC FREQUENCY = 1.808778E+02 HZ) F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 11 4.986000E+04 0.0 5.305200E+04 0.0 -3.192000E+03 0.0 1.747136E-15 0.0 21 5.861200E+04 0.0 5.656400E+04 0.0 2.048000E+03 0.0 1.680137E-15 0.0 31 1.904500E+04 0.0 1.344500E+04 0.0 5.600000E+03 0.0 1.571761E-15 0.0 41 -3.622600E+04 0.0 -4.075800E+04 0.0 4.532000E+03 0.0 1.424682E-15 0.0 51 -6.163200E+04 0.0 -6.136000E+04 0.0 -2.720000E+02 0.0 1.242530E-15 0.0 61 -3.622600E+04 0.0 -3.137400E+04 0.0 -4.852000E+03 0.0 1.029782E-15 0.0 71 1.904500E+04 0.0 2.447700E+04 0.0 -5.432000E+03 0.0 7.916777E-16 0.0 81 5.861600E+04 0.0 6.015200E+04 0.0 -1.536000E+03 0.0 5.340848E-16 0.0 91 4.985800E+04 0.0 4.623400E+04 0.0 3.624000E+03 0.0 2.633188E-16 0.0 * * * END OF JOB * * * 1 JOB TITLE = NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS DATE: 5/17/95 END TIME: 16:23:19 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d14011a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D14011A,NASTRAN APP DISPLACEMENT SOL 14,0 TIME 15 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 DIHEDRAL CYCLIC SYMMETRY 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = STATIC ANALYSIS OF A CIRCULAR PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 3 LABEL = DIHEDRAL CYCLIC SYMMETRY 4 SPC = 101 5 OUTPUT 6 OLOAD = ALL 7 DISP = ALL 8 SPCF = ALL 9 SUBCASE 1 10 LABEL = SEGMENT 1 RIGHT 11 SUBCASE 2 12 LABEL = SEGMENT 1 LEFT 13 SUBCASE 3 14 LABEL = SEGMENT 2 RIGHT 15 LOAD = 102 16 SUBCASE 4 17 LABEL = SEGMENT 2 LEFT 18 LOAD = 102 19 SUBCASE 5 20 LABEL = SEGMENT 3 RIGHT 21 SUBCASE 6 22 LABEL = SEGMENT 3 LEFT 23 SUBCASE 7 24 LABEL = SEGMENT 4 RIGHT 25 SUBCASE 8 26 LABEL = SEGMENT 4 LEFT 27 SUBCASE 9 28 LABEL = SEGMENT 5 RIGHT 29 SUBCASE 10 30 LABEL = SEGMENT 5 LEFT 31 SUBCASE 11 32 LABEL = SEGMENT 6 RIGHT 33 SUBCASE 12 34 LABEL = SEGMENT 6 LEFT 35 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 58, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 DIHEDRAL CYCLIC SYMMETRY 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CBAR 1 1 10 20 .0 .0 1. 1 2- CBAR 2 1 20 30 .0 .0 1. 1 3- CBAR 3 1 30 40 .0 .0 1. 1 4- CBAR 4 1 40 50 .0 .0 1. 1 5- CBAR 5 1 50 60 .0 .0 1. 1 6- CNGRNT 10 11 7- CNGRNT 20 21 8- CNGRNT 30 31 9- CNGRNT 40 41 10- CNGRNT 50 51 11- CORD2C 1 0 .0 .0 .0 .0 .0 1. +C1 12- +C1 1. .0 .0 13- CQUAD2 10 1 10 11 21 20 14- CQUAD2 11 1 11 12 22 21 15- CQUAD2 20 1 20 21 31 30 16- CQUAD2 21 1 21 22 32 31 17- CQUAD2 30 1 30 31 41 40 18- CQUAD2 31 1 31 32 42 41 19- CQUAD2 40 1 40 41 51 50 20- CQUAD2 41 1 41 42 52 51 21- CQUAD2 50 1 50 51 61 60 22- CQUAD2 51 1 51 52 62 61 23- CYJOIN 1 C 10 20 30 40 50 60 CYC SYM 24- CYJOIN 2 C 12 22 32 42 52 62 CYC SYM 25- GRDSET 1 1 26- GRID 10 1.0 .0 .0 27- GRID 11 1.0 15.0 .0 28- GRID 12 1.0 30.0 .0 29- GRID 20 .68 .0 .0 30- GRID 21 .68 15.0 .0 31- GRID 22 .68 30.0 .0 32- GRID 30 .46 .0 .0 33- GRID 31 .46 15.0 .0 34- GRID 32 .46 30.0 .0 35- GRID 40 .31 .0 .0 36- GRID 41 .31 15.0 .0 37- GRID 42 .31 30.0 .0 38- GRID 50 .21 .0 .0 39- GRID 51 .21 15.0 .0 40- GRID 52 .21 30.0 .0 41- GRID 60 .14 .0 .0 42- GRID 61 .14 15.0 .0 43- GRID 62 .14 30.0 .0 44- MAT1 1 10.6 +6 .325 2.59 -4 12.9 -6 45- PARAM CTYPE DRL CYC SYM 46- PARAM KMAX 2 CYC SYM 47- PARAM NLOAD 1 CYC SYM 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A DIHEDRAL CYCLIC SYMMETRY S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- PARAM NSEGS 6 CYC SYM 49- PBAR 1 1 1.8 -3 5.4 -7 5.4 -7 1.0 -6 +PB1 50- +PB1 .0 .03 .03 .0 .03 .03 .03 -.03 51- PLOAD2 102 200. 10 20 30 40 50 52- PLOAD2 102 200. 11 21 31 41 51 53- PQUAD2 1 1 .01 54- SPC1 110 12346 10 11 12 55- SPC1 112 126 10 11 12 20 21 22 56- SPC1 112 126 30 31 32 40 41 42 57- SPC1 112 126 50 51 52 60 61 62 58- SPCADD 101 110 112 ENDDATA 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 DIHEDRAL CYCLIC SYMMETRY 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 5 PROFILE 75 MAX WAVEFRONT 5 AVG WAVEFRONT 4.167 RMS WAVEFRONT 4.314 RMS BANDWIDTH 4.340 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 5 PROFILE 75 MAX WAVEFRONT 5 AVG WAVEFRONT 4.167 RMS WAVEFRONT 4.314 RMS BANDWIDTH 4.340 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 5 5 PROFILE (P) 75 75 MAXIMUM WAVEFRONT (C-MAX) 5 5 AVERAGE WAVEFRONT (C-AVG) 4.167 4.167 RMS WAVEFRONT (C-RMS) 4.314 4.314 RMS BANDWITCH (B-RMS) 4.340 4.340 NUMBER OF GRID POINTS (N) 18 NUMBER OF ELEMENTS (NON-RIGID) 15 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 47 MATRIX DENSITY, PERCENT 34.568 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 10 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 7.8874060E-12 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -1.3753489E-13 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = -1.1051278E-13 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -2.3485315E-14 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 1.5350107E-14 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 1 RIGHT SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 2.704151E+00 0.0 11 G 0.0 0.0 0.0 0.0 2.570597E+00 0.0 12 G 0.0 0.0 0.0 0.0 2.537518E+00 0.0 20 G 0.0 0.0 8.591709E-01 -8.520176E-02 2.639599E+00 0.0 21 G 0.0 0.0 8.499529E-01 -2.960548E-02 2.611420E+00 0.0 22 G 0.0 0.0 8.418425E-01 -6.794942E-02 2.578168E+00 0.0 30 G 0.0 0.0 1.429755E+00 -1.235337E-01 2.543543E+00 0.0 31 G 0.0 0.0 1.418559E+00 -8.465990E-02 2.480609E+00 0.0 32 G 0.0 0.0 1.405209E+00 -1.444451E-01 2.457530E+00 0.0 40 G 0.0 0.0 1.807006E+00 -1.404946E-01 2.488273E+00 0.0 41 G 0.0 0.0 1.794705E+00 -1.700269E-01 2.438059E+00 0.0 42 G 0.0 0.0 1.778308E+00 -2.329114E-01 2.424057E+00 0.0 50 G 0.0 0.0 2.054798E+00 -1.489652E-01 2.469095E+00 0.0 51 G 0.0 0.0 2.041777E+00 -2.939673E-01 2.390893E+00 0.0 52 G 0.0 0.0 2.023903E+00 -3.485231E-01 2.400145E+00 0.0 60 G 0.0 0.0 2.227529E+00 -1.527064E-01 2.466277E+00 0.0 61 G 0.0 0.0 2.215657E+00 -4.109062E-01 2.470276E+00 0.0 62 G 0.0 0.0 2.198039E+00 -5.063493E-01 2.491856E+00 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 1 LEFT SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 2.529001E+00 0.0 11 G 0.0 0.0 0.0 0.0 2.487567E+00 0.0 12 G 0.0 0.0 0.0 0.0 2.537518E+00 0.0 20 G 0.0 0.0 8.098704E-01 7.301385E-02 2.527312E+00 0.0 21 G 0.0 0.0 8.260631E-01 1.118910E-01 2.548529E+00 0.0 22 G 0.0 0.0 8.418425E-01 6.794942E-02 2.578168E+00 0.0 30 G 0.0 0.0 1.365307E+00 1.146068E-01 2.518203E+00 0.0 31 G 0.0 0.0 1.384778E+00 1.892099E-01 2.461961E+00 0.0 32 G 0.0 0.0 1.405209E+00 1.444451E-01 2.457530E+00 0.0 40 G 0.0 0.0 1.742529E+00 1.388522E-01 2.509851E+00 0.0 41 G 0.0 0.0 1.758546E+00 2.444614E-01 2.445217E+00 0.0 42 G 0.0 0.0 1.778308E+00 2.329114E-01 2.424057E+00 0.0 50 G 0.0 0.0 1.993389E+00 1.527640E-01 2.506962E+00 0.0 51 G 0.0 0.0 2.005807E+00 3.030707E-01 2.434576E+00 0.0 52 G 0.0 0.0 2.023903E+00 3.485231E-01 2.400145E+00 0.0 60 G 0.0 0.0 2.168903E+00 1.591318E-01 2.507204E+00 0.0 61 G 0.0 0.0 2.180373E+00 4.240170E-01 2.510406E+00 0.0 62 G 0.0 0.0 2.198039E+00 5.063493E-01 2.491856E+00 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 2 RIGHT SUBCASE 3 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 2.724071E+00 0.0 11 G 0.0 0.0 0.0 0.0 2.787945E+00 0.0 12 G 0.0 0.0 0.0 0.0 2.846493E+00 0.0 20 G 0.0 0.0 8.654410E-01 5.478878E-02 2.658608E+00 0.0 21 G 0.0 0.0 8.999742E-01 2.363210E-01 2.677019E+00 0.0 22 G 0.0 0.0 9.211573E-01 -1.247810E-02 2.668724E+00 0.0 30 G 0.0 0.0 1.440028E+00 7.069373E-02 2.560843E+00 0.0 31 G 0.0 0.0 1.462626E+00 2.084255E-01 2.393745E+00 0.0 32 G 0.0 0.0 1.474797E+00 -3.936955E-02 2.313599E+00 0.0 40 G 0.0 0.0 1.819767E+00 7.188975E-02 2.504165E+00 0.0 41 G 0.0 0.0 1.827736E+00 9.065955E-02 2.376126E+00 0.0 42 G 0.0 0.0 1.828517E+00 -8.643451E-02 2.308295E+00 0.0 50 G 0.0 0.0 2.069109E+00 7.068379E-02 2.484266E+00 0.0 51 G 0.0 0.0 2.069627E+00 -3.641295E-02 2.350338E+00 0.0 52 G 0.0 0.0 2.064318E+00 -1.591761E-01 2.312408E+00 0.0 60 G 0.0 0.0 2.242894E+00 6.992778E-02 2.481261E+00 0.0 61 G 0.0 0.0 2.240858E+00 -1.250292E-01 2.440074E+00 0.0 62 G 0.0 0.0 2.233295E+00 -2.633290E-01 2.423925E+00 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 2 LEFT SUBCASE 4 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 2.684232E+00 0.0 11 G 0.0 0.0 0.0 0.0 2.771978E+00 0.0 12 G 0.0 0.0 0.0 0.0 2.846493E+00 0.0 20 G 0.0 0.0 8.529007E-01 1.156147E-01 2.620589E+00 0.0 21 G 0.0 0.0 8.950950E-01 2.693222E-01 2.657194E+00 0.0 22 G 0.0 0.0 9.211573E-01 1.247810E-02 2.668724E+00 0.0 30 G 0.0 0.0 1.419482E+00 1.763737E-01 2.526244E+00 0.0 31 G 0.0 0.0 1.453080E+00 2.922194E-01 2.371307E+00 0.0 32 G 0.0 0.0 1.474797E+00 3.936955E-02 2.313599E+00 0.0 40 G 0.0 0.0 1.794246E+00 2.090995E-01 2.472380E+00 0.0 41 G 0.0 0.0 1.814138E+00 2.520227E-01 2.352566E+00 0.0 42 G 0.0 0.0 1.828517E+00 8.643451E-02 2.308295E+00 0.0 50 G 0.0 0.0 2.040487E+00 2.272466E-01 2.453923E+00 0.0 51 G 0.0 0.0 2.053174E+00 2.412030E-01 2.342133E+00 0.0 52 G 0.0 0.0 2.064318E+00 1.591761E-01 2.312408E+00 0.0 60 G 0.0 0.0 2.212164E+00 2.354850E-01 2.451294E+00 0.0 61 G 0.0 0.0 2.222473E+00 3.107352E-01 2.431482E+00 0.0 62 G 0.0 0.0 2.233295E+00 2.633290E-01 2.423925E+00 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 3 RIGHT SUBCASE 5 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 2.616576E+00 0.0 11 G 0.0 0.0 0.0 0.0 2.529082E+00 0.0 12 G 0.0 0.0 0.0 0.0 2.537518E+00 0.0 20 G 0.0 0.0 8.345206E-01 -6.093952E-03 2.583455E+00 0.0 21 G 0.0 0.0 8.380080E-01 4.114275E-02 2.579974E+00 0.0 22 G 0.0 0.0 8.418425E-01 -2.255141E-17 2.578168E+00 0.0 30 G 0.0 0.0 1.397531E+00 -4.463441E-03 2.530873E+00 0.0 31 G 0.0 0.0 1.401668E+00 5.227499E-02 2.471285E+00 0.0 32 G 0.0 0.0 1.405209E+00 -2.775558E-17 2.457530E+00 0.0 40 G 0.0 0.0 1.774768E+00 -8.212163E-04 2.499062E+00 0.0 41 G 0.0 0.0 1.776626E+00 3.721724E-02 2.441638E+00 0.0 42 G 0.0 0.0 1.778308E+00 -6.245005E-17 2.424057E+00 0.0 50 G 0.0 0.0 2.024094E+00 1.899396E-03 2.488028E+00 0.0 51 G 0.0 0.0 2.023792E+00 4.551693E-03 2.412735E+00 0.0 52 G 0.0 0.0 2.023903E+00 -7.632783E-17 2.400145E+00 0.0 60 G 0.0 0.0 2.198216E+00 3.212710E-03 2.486741E+00 0.0 61 G 0.0 0.0 2.198015E+00 6.555397E-03 2.490341E+00 0.0 62 G 0.0 0.0 2.198039E+00 -1.179612E-16 2.491856E+00 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 3 LEFT SUBCASE 6 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 2.616576E+00 0.0 11 G 0.0 0.0 0.0 0.0 2.529082E+00 0.0 12 G 0.0 0.0 0.0 0.0 2.537518E+00 0.0 20 G 0.0 0.0 8.345206E-01 -6.093952E-03 2.583455E+00 0.0 21 G 0.0 0.0 8.380080E-01 4.114275E-02 2.579974E+00 0.0 22 G 0.0 0.0 8.418425E-01 2.255141E-17 2.578168E+00 0.0 30 G 0.0 0.0 1.397531E+00 -4.463441E-03 2.530873E+00 0.0 31 G 0.0 0.0 1.401668E+00 5.227499E-02 2.471285E+00 0.0 32 G 0.0 0.0 1.405209E+00 2.775558E-17 2.457530E+00 0.0 40 G 0.0 0.0 1.774768E+00 -8.212163E-04 2.499062E+00 0.0 41 G 0.0 0.0 1.776626E+00 3.721724E-02 2.441638E+00 0.0 42 G 0.0 0.0 1.778308E+00 6.245005E-17 2.424057E+00 0.0 50 G 0.0 0.0 2.024094E+00 1.899396E-03 2.488028E+00 0.0 51 G 0.0 0.0 2.023792E+00 4.551693E-03 2.412735E+00 0.0 52 G 0.0 0.0 2.023903E+00 7.632783E-17 2.400145E+00 0.0 60 G 0.0 0.0 2.198216E+00 3.212710E-03 2.486741E+00 0.0 61 G 0.0 0.0 2.198015E+00 6.555397E-03 2.490341E+00 0.0 62 G 0.0 0.0 2.198039E+00 1.179612E-16 2.491856E+00 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 4 RIGHT SUBCASE 7 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 2.489163E+00 0.0 11 G 0.0 0.0 0.0 0.0 2.339323E+00 0.0 12 G 0.0 0.0 0.0 0.0 2.328870E+00 0.0 20 G 0.0 0.0 7.973301E-01 -1.218790E-02 2.489294E+00 0.0 21 G 0.0 0.0 7.885561E-01 -4.221665E-02 2.477708E+00 0.0 22 G 0.0 0.0 7.854477E-01 1.247810E-02 2.484175E+00 0.0 30 G 0.0 0.0 1.344761E+00 -8.926882E-03 2.483604E+00 0.0 31 G 0.0 0.0 1.343115E+00 -4.590699E-04 2.476472E+00 0.0 32 G 0.0 0.0 1.345008E+00 3.936955E-02 2.499769E+00 0.0 40 G 0.0 0.0 1.717008E+00 -1.642434E-03 2.478066E+00 0.0 41 G 0.0 0.0 1.718905E+00 5.202486E-02 2.455163E+00 0.0 42 G 0.0 0.0 1.724493E+00 8.643451E-02 2.467436E+00 0.0 50 G 0.0 0.0 1.964767E+00 3.798790E-03 2.476618E+00 0.0 51 G 0.0 0.0 1.967004E+00 9.343869E-02 2.435513E+00 0.0 52 G 0.0 0.0 1.973915E+00 1.591761E-01 2.437227E+00 0.0 60 G 0.0 0.0 2.138173E+00 6.425418E-03 2.477237E+00 0.0 61 G 0.0 0.0 2.141845E+00 1.789423E-01 2.508615E+00 0.0 62 G 0.0 0.0 2.150216E+00 2.633290E-01 2.521042E+00 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 4 LEFT SUBCASE 8 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 2.529001E+00 0.0 11 G 0.0 0.0 0.0 0.0 2.355290E+00 0.0 12 G 0.0 0.0 0.0 0.0 2.328870E+00 0.0 20 G 0.0 0.0 8.098704E-01 -7.301386E-02 2.527312E+00 0.0 21 G 0.0 0.0 7.934353E-01 -7.521781E-02 2.497533E+00 0.0 22 G 0.0 0.0 7.854477E-01 -1.247810E-02 2.484175E+00 0.0 30 G 0.0 0.0 1.365307E+00 -1.146068E-01 2.518203E+00 0.0 31 G 0.0 0.0 1.352662E+00 -8.425290E-02 2.498910E+00 0.0 32 G 0.0 0.0 1.345008E+00 -3.936955E-02 2.499769E+00 0.0 40 G 0.0 0.0 1.742529E+00 -1.388522E-01 2.509851E+00 0.0 41 G 0.0 0.0 1.732503E+00 -1.093383E-01 2.478723E+00 0.0 42 G 0.0 0.0 1.724493E+00 -8.643451E-02 2.467436E+00 0.0 50 G 0.0 0.0 1.993389E+00 -1.527640E-01 2.506962E+00 0.0 51 G 0.0 0.0 1.983457E+00 -1.841772E-01 2.443718E+00 0.0 52 G 0.0 0.0 1.973915E+00 -1.591761E-01 2.437227E+00 0.0 60 G 0.0 0.0 2.168903E+00 -1.591318E-01 2.507204E+00 0.0 61 G 0.0 0.0 2.160230E+00 -2.568221E-01 2.517206E+00 0.0 62 G 0.0 0.0 2.150216E+00 -2.633290E-01 2.521042E+00 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 5 RIGHT SUBCASE 9 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 2.401587E+00 0.0 11 G 0.0 0.0 0.0 0.0 2.374896E+00 0.0 12 G 0.0 0.0 0.0 0.0 2.429196E+00 0.0 20 G 0.0 0.0 7.726799E-01 9.129571E-02 2.433150E+00 0.0 21 G 0.0 0.0 7.915651E-01 1.238499E-01 2.450953E+00 0.0 22 G 0.0 0.0 8.083677E-01 6.794942E-02 2.480739E+00 0.0 30 G 0.0 0.0 1.312538E+00 1.279971E-01 2.470934E+00 0.0 31 G 0.0 0.0 1.333403E+00 1.979954E-01 2.406014E+00 0.0 32 G 0.0 0.0 1.354396E+00 1.444451E-01 2.398078E+00 0.0 40 G 0.0 0.0 1.684770E+00 1.413158E-01 2.488855E+00 0.0 41 G 0.0 0.0 1.701015E+00 2.468374E-01 2.418535E+00 0.0 42 G 0.0 0.0 1.720886E+00 2.329114E-01 2.395051E+00 0.0 50 G 0.0 0.0 1.934063E+00 1.470658E-01 2.495552E+00 0.0 51 G 0.0 0.0 1.946293E+00 3.010721E-01 2.421839E+00 0.0 52 G 0.0 0.0 1.964341E+00 3.485231E-01 2.386573E+00 0.0 60 G 0.0 0.0 2.108860E+00 1.494937E-01 2.497700E+00 0.0 61 G 0.0 0.0 2.120069E+00 4.193240E-01 2.500982E+00 0.0 62 G 0.0 0.0 2.137650E+00 5.063493E-01 2.482297E+00 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 5 LEFT SUBCASE 10 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 2.576738E+00 0.0 11 G 0.0 0.0 0.0 0.0 2.457925E+00 0.0 12 G 0.0 0.0 0.0 0.0 2.429196E+00 0.0 20 G 0.0 0.0 8.219804E-01 -6.691990E-02 2.545437E+00 0.0 21 G 0.0 0.0 8.154549E-01 -1.764658E-02 2.513844E+00 0.0 22 G 0.0 0.0 8.083677E-01 -6.794942E-02 2.480739E+00 0.0 30 G 0.0 0.0 1.376985E+00 -1.101434E-01 2.496275E+00 0.0 31 G 0.0 0.0 1.367184E+00 -7.587438E-02 2.424662E+00 0.0 32 G 0.0 0.0 1.354396E+00 -1.444451E-01 2.398078E+00 0.0 40 G 0.0 0.0 1.749247E+00 -1.380310E-01 2.467277E+00 0.0 41 G 0.0 0.0 1.737173E+00 -1.676509E-01 2.411377E+00 0.0 42 G 0.0 0.0 1.720886E+00 -2.329114E-01 2.395051E+00 0.0 50 G 0.0 0.0 1.995471E+00 -1.546634E-01 2.457685E+00 0.0 51 G 0.0 0.0 1.982263E+00 -2.959659E-01 2.378156E+00 0.0 52 G 0.0 0.0 1.964341E+00 -3.485231E-01 2.386573E+00 0.0 60 G 0.0 0.0 2.167486E+00 -1.623445E-01 2.456774E+00 0.0 61 G 0.0 0.0 2.155353E+00 -4.155992E-01 2.460852E+00 0.0 62 G 0.0 0.0 2.137650E+00 -5.063493E-01 2.482297E+00 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 6 RIGHT SUBCASE 11 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 2.509082E+00 0.0 11 G 0.0 0.0 0.0 0.0 2.347306E+00 0.0 12 G 0.0 0.0 0.0 0.0 2.328870E+00 0.0 20 G 0.0 0.0 8.036003E-01 -4.260088E-02 2.508303E+00 0.0 21 G 0.0 0.0 7.909957E-01 -5.871723E-02 2.487621E+00 0.0 22 G 0.0 0.0 7.854477E-01 -1.561251E-17 2.484175E+00 0.0 30 G 0.0 0.0 1.355034E+00 -6.176685E-02 2.500904E+00 0.0 31 G 0.0 0.0 1.347889E+00 -4.235598E-02 2.487691E+00 0.0 32 G 0.0 0.0 1.345008E+00 0.0 2.499769E+00 0.0 40 G 0.0 0.0 1.729769E+00 -7.024731E-02 2.493958E+00 0.0 41 G 0.0 0.0 1.725704E+00 -2.865670E-02 2.466943E+00 0.0 42 G 0.0 0.0 1.724493E+00 2.081668E-17 2.467436E+00 0.0 50 G 0.0 0.0 1.979078E+00 -7.448258E-02 2.491790E+00 0.0 51 G 0.0 0.0 1.975231E+00 -4.536928E-02 2.439616E+00 0.0 52 G 0.0 0.0 1.973915E+00 3.469447E-17 2.437227E+00 0.0 60 G 0.0 0.0 2.153538E+00 -7.635320E-02 2.492221E+00 0.0 61 G 0.0 0.0 2.151038E+00 -3.893990E-02 2.512911E+00 0.0 62 G 0.0 0.0 2.150216E+00 2.081668E-17 2.521042E+00 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 6 LEFT SUBCASE 12 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 2.509082E+00 0.0 11 G 0.0 0.0 0.0 0.0 2.347306E+00 0.0 12 G 0.0 0.0 0.0 0.0 2.328870E+00 0.0 20 G 0.0 0.0 8.036003E-01 -4.260088E-02 2.508303E+00 0.0 21 G 0.0 0.0 7.909957E-01 -5.871723E-02 2.487621E+00 0.0 22 G 0.0 0.0 7.854477E-01 1.561251E-17 2.484175E+00 0.0 30 G 0.0 0.0 1.355034E+00 -6.176685E-02 2.500904E+00 0.0 31 G 0.0 0.0 1.347889E+00 -4.235598E-02 2.487691E+00 0.0 32 G 0.0 0.0 1.345008E+00 0.0 2.499769E+00 0.0 40 G 0.0 0.0 1.729769E+00 -7.024731E-02 2.493958E+00 0.0 41 G 0.0 0.0 1.725704E+00 -2.865670E-02 2.466943E+00 0.0 42 G 0.0 0.0 1.724493E+00 -2.081668E-17 2.467436E+00 0.0 50 G 0.0 0.0 1.979078E+00 -7.448258E-02 2.491790E+00 0.0 51 G 0.0 0.0 1.975231E+00 -4.536928E-02 2.439616E+00 0.0 52 G 0.0 0.0 1.973915E+00 -3.469447E-17 2.437227E+00 0.0 60 G 0.0 0.0 2.153538E+00 -7.635320E-02 2.492221E+00 0.0 61 G 0.0 0.0 2.151038E+00 -3.893990E-02 2.512911E+00 0.0 62 G 0.0 0.0 2.150216E+00 -2.081668E-17 2.521042E+00 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 2 RIGHT SUBCASE 3 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 3.699386E+00 0.0 0.0 0.0 11 G 0.0 0.0 7.398774E+00 0.0 0.0 0.0 12 G 0.0 0.0 3.699386E+00 0.0 0.0 0.0 20 G 0.0 0.0 4.984855E+00 0.0 0.0 0.0 21 G 0.0 0.0 9.969708E+00 0.0 0.0 0.0 22 G 0.0 0.0 4.984854E+00 0.0 0.0 0.0 30 G 0.0 0.0 2.314273E+00 0.0 0.0 0.0 31 G 0.0 0.0 4.628547E+00 0.0 0.0 0.0 32 G 0.0 0.0 2.314274E+00 0.0 0.0 0.0 40 G 0.0 0.0 1.056844E+00 0.0 0.0 0.0 41 G 0.0 0.0 2.113689E+00 0.0 0.0 0.0 42 G 0.0 0.0 1.056844E+00 0.0 0.0 0.0 50 G 0.0 0.0 4.839916E-01 0.0 0.0 0.0 51 G 0.0 0.0 9.679833E-01 0.0 0.0 0.0 52 G 0.0 0.0 4.839916E-01 0.0 0.0 0.0 60 G 0.0 0.0 1.479582E-01 0.0 0.0 0.0 61 G 0.0 0.0 2.959164E-01 0.0 0.0 0.0 62 G 0.0 0.0 1.479582E-01 0.0 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 2 LEFT SUBCASE 4 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 3.699386E+00 0.0 0.0 0.0 11 G 0.0 0.0 7.398774E+00 0.0 0.0 0.0 12 G 0.0 0.0 3.699386E+00 0.0 0.0 0.0 20 G 0.0 0.0 4.984855E+00 0.0 0.0 0.0 21 G 0.0 0.0 9.969708E+00 0.0 0.0 0.0 22 G 0.0 0.0 4.984854E+00 0.0 0.0 0.0 30 G 0.0 0.0 2.314273E+00 0.0 0.0 0.0 31 G 0.0 0.0 4.628547E+00 0.0 0.0 0.0 32 G 0.0 0.0 2.314274E+00 0.0 0.0 0.0 40 G 0.0 0.0 1.056844E+00 0.0 0.0 0.0 41 G 0.0 0.0 2.113689E+00 0.0 0.0 0.0 42 G 0.0 0.0 1.056844E+00 0.0 0.0 0.0 50 G 0.0 0.0 4.839916E-01 0.0 0.0 0.0 51 G 0.0 0.0 9.679833E-01 0.0 0.0 0.0 52 G 0.0 0.0 4.839916E-01 0.0 0.0 0.0 60 G 0.0 0.0 1.479582E-01 0.0 0.0 0.0 61 G 0.0 0.0 2.959164E-01 0.0 0.0 0.0 62 G 0.0 0.0 1.479582E-01 0.0 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 1 RIGHT SUBCASE 1 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 -8.125777E+00 1.453688E+00 0.0 0.0 11 G 0.0 0.0 -2.062801E+00 3.890130E-02 0.0 0.0 12 G 0.0 0.0 -8.534118E-01 -3.367221E-01 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 1 LEFT SUBCASE 2 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 -4.869309E-01 -5.720784E-01 0.0 0.0 11 G 0.0 0.0 -1.982264E+00 3.875184E-02 0.0 0.0 12 G 0.0 0.0 -1.146020E+00 -3.422496E-01 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 2 RIGHT SUBCASE 3 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 -1.152948E+01 -2.893607E-01 0.0 0.0 11 G 0.0 0.0 -1.018505E+01 -1.044188E-01 0.0 0.0 12 G 0.0 0.0 -5.770414E+00 -3.822416E-01 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 2 LEFT SUBCASE 4 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 -1.114741E+01 -1.062002E+00 0.0 0.0 11 G 0.0 0.0 -1.028117E+01 -9.939736E-02 0.0 0.0 12 G 0.0 0.0 -5.778800E+00 -3.842532E-01 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 3 RIGHT SUBCASE 5 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 -4.306354E+00 4.408050E-01 0.0 0.0 11 G 0.0 0.0 -2.022532E+00 3.882657E-02 0.0 0.0 12 G 0.0 0.0 -9.997160E-01 -3.394858E-01 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 3 LEFT SUBCASE 6 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 -4.306354E+00 4.408050E-01 0.0 0.0 11 G 0.0 0.0 -2.022532E+00 3.882657E-02 0.0 0.0 12 G 0.0 0.0 -9.997160E-01 -3.394858E-01 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 4 RIGHT SUBCASE 7 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 -5.245669E-01 4.848132E-01 0.0 0.0 11 G 0.0 0.0 -1.604943E+00 1.123431E-01 0.0 0.0 12 G 0.0 0.0 -4.453216E-01 -3.081148E-01 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 4 LEFT SUBCASE 8 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 -9.066368E-01 1.257455E+00 0.0 0.0 11 G 0.0 0.0 -1.508828E+00 1.073216E-01 0.0 0.0 12 G 0.0 0.0 -4.369358E-01 -3.061032E-01 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 5 RIGHT SUBCASE 9 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 3.361873E+00 -8.279068E-01 0.0 0.0 11 G 0.0 0.0 -1.862775E+00 4.002872E-02 0.0 0.0 12 G 0.0 0.0 -1.104350E+00 -3.212575E-01 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 5 LEFT SUBCASE 10 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 -4.276973E+00 1.197860E+00 0.0 0.0 11 G 0.0 0.0 -1.943312E+00 4.017818E-02 0.0 0.0 12 G 0.0 0.0 -8.117416E-01 -3.157299E-01 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 6 RIGHT SUBCASE 11 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 -7.156019E-01 8.711339E-01 0.0 0.0 11 G 0.0 0.0 -1.556885E+00 1.098323E-01 0.0 0.0 12 G 0.0 0.0 -4.411287E-01 -3.071090E-01 0.0 0.0 1 STATIC ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A 0 SEGMENT 6 LEFT SUBCASE 12 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 -7.156019E-01 8.711339E-01 0.0 0.0 11 G 0.0 0.0 -1.556885E+00 1.098323E-01 0.0 0.0 12 G 0.0 0.0 -4.411287E-01 -3.071090E-01 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = STATIC ANALYSIS OF A CIRCULAR PLATE DATE: 5/17/95 END TIME: 16:23:51 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/d15011a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID D15011A,NASTRAN APP DISPLACEMENT SOL 15,3 TIME 30 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = NORMAL MODES ANALYSIS OF A CIRCULAR PLATE 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 3 LABEL = ROTATIONAL CYCLIC SYMMETRY 4 SPC = 101 5 METHOD = 1 6 VECTOR = ALL 7 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 92, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CBAR 1 1 10 20 .0 .0 1. 1 2- CBAR 2 1 20 30 .0 .0 1. 1 3- CBAR 3 1 30 40 .0 .0 1. 1 4- CBAR 4 1 40 50 .0 .0 1. 1 5- CBAR 5 1 50 60 .0 .0 1. 1 6- CBAR 110 1 14 24 .0 .0 1.0 1 7- CBAR 120 1 24 34 .0 .0 1.0 1 8- CBAR 130 1 34 44 .0 .0 1.0 1 9- CBAR 140 1 44 54 .0 .0 1.0 1 10- CBAR 150 1 54 64 .0 .0 1.0 1 11- CNGRNT 1 110 12- CNGRNT 2 120 13- CNGRNT 3 130 14- CNGRNT 4 140 15- CNGRNT 5 150 16- CNGRNT 10 11 12 13 17- CNGRNT 20 21 22 23 18- CNGRNT 30 31 32 33 19- CNGRNT 40 41 42 43 20- CNGRNT 50 51 52 53 21- CORD2C 1 0 .0 .0 .0 .0 .0 1. +C1 22- +C1 1. .0 .0 23- CQUAD2 10 1 10 11 21 20 24- CQUAD2 11 1 11 12 22 21 25- CQUAD2 12 1 12 13 23 22 26- CQUAD2 13 1 13 14 24 23 27- CQUAD2 20 1 20 21 31 30 28- CQUAD2 21 1 21 22 32 31 29- CQUAD2 22 1 22 23 33 32 30- CQUAD2 23 1 23 24 34 33 31- CQUAD2 30 1 30 31 41 40 32- CQUAD2 31 1 31 32 42 41 33- CQUAD2 32 1 32 33 43 42 34- CQUAD2 33 1 33 34 44 43 35- CQUAD2 40 1 40 41 51 50 36- CQUAD2 41 1 41 42 52 51 37- CQUAD2 42 1 42 43 53 52 38- CQUAD2 43 1 43 44 54 53 39- CQUAD2 50 1 50 51 61 60 40- CQUAD2 51 1 51 52 62 61 41- CQUAD2 52 1 52 53 63 62 42- CQUAD2 53 1 53 54 64 63 43- CYJOIN 1 C 10 20 30 40 50 60 CYC SYM 44- CYJOIN 2 C 14 24 34 44 54 64 CYC SYM 45- EIGR 1 INV .0 12000.0 6 6 +EIG1 46- +EIG1 MAX 47- GRDSET 1 1 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A ROTATIONAL CYCLIC SYMMETRY S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 10 1.0 .0 .0 49- GRID 11 1.0 15.0 .0 50- GRID 12 1.0 30.0 .0 51- GRID 13 1.0 45.0 .0 52- GRID 14 1.0 60.0 .0 53- GRID 20 .68 .0 .0 54- GRID 21 .68 15.0 .0 55- GRID 22 .68 30.0 .0 56- GRID 23 .68 45.0 .0 57- GRID 24 .68 60.0 .0 58- GRID 30 .46 .0 .0 59- GRID 31 .46 15.0 .0 60- GRID 32 .46 30.0 .0 61- GRID 33 .46 45.0 .0 62- GRID 34 .46 60.0 .0 63- GRID 40 .31 .0 .0 64- GRID 41 .31 15.0 .0 65- GRID 42 .31 30.0 .0 66- GRID 43 .31 45.0 .0 67- GRID 44 .31 60.0 .0 68- GRID 50 .21 .0 .0 69- GRID 51 .21 15.0 .0 70- GRID 52 .21 30.0 .0 71- GRID 53 .21 45.0 .0 72- GRID 54 .21 60.0 .0 73- GRID 60 .14 .0 .0 74- GRID 61 .14 15.0 .0 75- GRID 62 .14 30.0 .0 76- GRID 63 .14 45.0 .0 77- GRID 64 .14 60.0 .0 78- MAT1 1 10.6 +6 .325 2.59-4 12.9-6 79- PARAM CTYPE ROT CYC SYM 80- PARAM KINDEX 2 CYC SYM 81- PARAM NSEGS 6 CYC SYM 82- PBAR 1 1 1.8 -3 5.4 -7 5.4 -7 1.0 -6 +PB1 83- +PB1 .0 .03 .03 .0 .03 .03 .03 -.03 84- PQUAD2 1 1 .01 85- SPC1 110 12346 10 THRU 14 86- SPC1 112 126 10 THRU 14 87- SPC1 112 126 20 THRU 24 88- SPC1 112 126 30 THRU 34 89- SPC1 112 126 40 THRU 44 90- SPC1 112 126 50 THRU 54 91- SPC1 112 126 60 THRU 64 92- SPCADD 101 110 112 ENDDATA 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 7 PROFILE 179 MAX WAVEFRONT 7 AVG WAVEFRONT 5.967 RMS WAVEFRONT 6.178 RMS BANDWIDTH 6.264 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 10 PROFILE 179 MAX WAVEFRONT 8 AVG WAVEFRONT 5.967 RMS WAVEFRONT 6.199 RMS BANDWIDTH 6.535 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 7 7 PROFILE (P) 179 179 MAXIMUM WAVEFRONT (C-MAX) 7 7 AVERAGE WAVEFRONT (C-AVG) 5.967 5.967 RMS WAVEFRONT (C-RMS) 6.178 6.178 RMS BANDWITCH (B-RMS) 6.264 6.264 NUMBER OF GRID POINTS (N) 30 NUMBER OF ELEMENTS (NON-RIGID) 30 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 89 MATRIX DENSITY, PERCENT 23.111 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 10 4 ROOTS BELOW 2.842446E+09 2 ROOTS BELOW 1.847186E+09 0 ROOTS BELOW 7.249167E+08 4 ROOTS BELOW 5.243110E+09 6 ROOTS BELOW 9.099439E+09 8 ROOTS BELOW 9.246057E+09 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 5 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 6 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 42 0 REASON FOR TERMINATION . . . . . . . . . . . 7* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 1 OR MORE ROOT OUTSIDE FR.RANGE. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 8 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 2 7.259556E+08 2.694356E+04 4.288201E+03 1.951024E-08 1.416357E+01 2 1 1.849364E+09 4.300424E+04 6.844337E+03 1.579538E-08 2.921141E+01 3 4 1.849364E+09 4.300424E+04 6.844337E+03 1.579538E-08 2.921141E+01 4 3 5.243132E+09 7.240948E+04 1.152433E+04 2.586905E-09 1.356348E+01 5 5 9.246057E+09 9.615642E+04 1.530377E+04 4.135707E-09 3.823899E+01 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY EIGENVALUE = 0.725956E+09 (CYCLIC FREQUENCY = 4.288201E+03 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 -7.536714E-02 0.0 11 G 0.0 0.0 0.0 0.0 -4.072452E-01 0.0 12 G 0.0 0.0 0.0 0.0 -5.916908E-01 0.0 13 G 0.0 0.0 0.0 0.0 -5.266432E-01 0.0 14 G 0.0 0.0 0.0 0.0 -2.603087E-01 0.0 20 G 0.0 0.0 -2.038059E-02 -2.413704E-01 -4.002938E-02 0.0 21 G 0.0 0.0 -9.479422E-02 -4.664890E-01 -1.231171E-01 0.0 22 G 0.0 0.0 -1.487562E-01 -1.031668E-01 -1.591766E-01 0.0 23 G 0.0 0.0 -1.272146E-01 3.173066E-01 -1.797072E-01 0.0 24 G 0.0 0.0 -7.039203E-02 1.664701E-01 -1.382565E-01 0.0 30 G 0.0 0.0 -2.393268E-02 -3.451336E-01 7.584304E-03 0.0 31 G 0.0 0.0 -8.161111E-02 -4.969153E-01 1.880436E-01 0.0 32 G 0.0 0.0 -1.248449E-01 -1.661474E-01 3.074646E-01 0.0 33 G 0.0 0.0 -1.182927E-01 2.381727E-01 2.168362E-01 0.0 34 G 0.0 0.0 -8.266051E-02 2.380343E-01 2.619524E-02 0.0 40 G 0.0 0.0 -2.079405E-02 -3.853831E-01 3.232019E-02 0.0 41 G 0.0 0.0 -5.523067E-02 -4.264289E-01 1.686444E-01 0.0 42 G 0.0 0.0 -8.227098E-02 -2.119622E-01 2.648634E-01 0.0 43 G 0.0 0.0 -8.704036E-02 8.847205E-02 2.266364E-01 0.0 44 G 0.0 0.0 -7.182008E-02 2.657938E-01 1.116299E-01 0.0 50 G 0.0 0.0 -1.710160E-02 -4.025331E-01 4.047792E-02 0.0 51 G 0.0 0.0 -3.993769E-02 -4.089349E-01 1.424543E-01 0.0 52 G 0.0 0.0 -5.875663E-02 -2.588466E-01 2.228129E-01 0.0 53 G 0.0 0.0 -6.621922E-02 -6.584552E-03 2.268930E-01 0.0 54 G 0.0 0.0 -5.906682E-02 2.776220E-01 1.398057E-01 0.0 60 G 0.0 0.0 -1.420611E-02 -4.090829E-01 4.190206E-02 0.0 61 G 0.0 0.0 -3.044997E-02 -4.402837E-01 1.275101E-01 0.0 62 G 0.0 0.0 -4.487359E-02 -3.180928E-01 1.913506E-01 0.0 63 G 0.0 0.0 -5.235903E-02 -6.407879E-02 2.026283E-01 0.0 64 G 0.0 0.0 -4.906614E-02 2.821393E-01 1.447245E-01 0.0 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY EIGENVALUE = 0.725956E+09 (CYCLIC FREQUENCY = 4.288201E+03 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 -3.440919E-01 0.0 11 G 0.0 0.0 0.0 0.0 -3.362092E-01 0.0 12 G 0.0 0.0 0.0 0.0 -1.882126E-01 0.0 13 G 0.0 0.0 0.0 0.0 3.914601E-02 0.0 14 G 0.0 0.0 0.0 0.0 2.373158E-01 0.0 20 G 0.0 0.0 -9.304845E-02 5.286785E-02 -1.827559E-01 0.0 21 G 0.0 0.0 -8.627030E-02 1.098353E-01 -1.371154E-01 0.0 22 G 0.0 0.0 -4.731828E-02 3.243295E-01 -5.063291E-02 0.0 23 G 0.0 0.0 1.565089E-02 3.591551E-01 4.078923E-02 0.0 24 G 0.0 0.0 6.417434E-02 1.825990E-01 1.260444E-01 0.0 30 G 0.0 0.0 -1.092657E-01 7.559530E-02 3.462646E-02 0.0 31 G 0.0 0.0 -8.945267E-02 2.897962E-01 1.096530E-01 0.0 32 G 0.0 0.0 -3.971227E-02 5.223238E-01 9.780229E-02 0.0 33 G 0.0 0.0 2.586469E-02 5.236224E-01 1.913638E-02 0.0 34 G 0.0 0.0 7.535915E-02 2.610968E-01 -2.388143E-02 0.0 40 G 0.0 0.0 -9.493615E-02 8.441123E-02 1.475592E-01 0.0 41 G 0.0 0.0 -7.262833E-02 4.493306E-01 1.540237E-01 0.0 42 G 0.0 0.0 -2.616981E-02 6.663533E-01 8.425114E-02 0.0 43 G 0.0 0.0 2.737294E-02 6.131169E-01 -2.828777E-02 0.0 44 G 0.0 0.0 6.547626E-02 2.915459E-01 -1.017697E-01 0.0 50 G 0.0 0.0 -7.807811E-02 8.816762E-02 1.848037E-01 0.0 51 G 0.0 0.0 -5.819497E-02 5.891494E-01 1.914700E-01 0.0 52 G 0.0 0.0 -1.869006E-02 8.137455E-01 7.087522E-02 0.0 53 G 0.0 0.0 2.442723E-02 7.171341E-01 -7.398319E-02 0.0 54 G 0.0 0.0 5.384948E-02 3.045200E-01 -1.274568E-01 0.0 60 G 0.0 0.0 -6.485861E-02 8.960225E-02 1.913056E-01 0.0 61 G 0.0 0.0 -4.760864E-02 7.329575E-01 1.705831E-01 0.0 62 G 0.0 0.0 -1.427397E-02 1.000000E+00 6.086720E-02 0.0 63 G 0.0 0.0 2.126769E-02 8.526255E-01 -6.556851E-02 0.0 64 G 0.0 0.0 4.473216E-02 3.094751E-01 -1.319411E-01 0.0 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY EIGENVALUE = 0.184936E+10 (CYCLIC FREQUENCY = 6.844337E+03 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 1.736460E-01 0.0 11 G 0.0 0.0 0.0 0.0 4.585972E-01 0.0 12 G 0.0 0.0 0.0 0.0 3.455166E-01 0.0 13 G 0.0 0.0 0.0 0.0 -2.925720E-02 0.0 14 G 0.0 0.0 0.0 0.0 -2.644711E-01 0.0 20 G 0.0 0.0 4.736148E-02 1.845953E-01 9.166744E-02 0.0 21 G 0.0 0.0 9.858717E-02 1.523408E-01 3.891764E-02 0.0 22 G 0.0 0.0 7.101270E-02 -4.435492E-01 -3.621241E-02 0.0 23 G 0.0 0.0 -2.563776E-02 -5.185763E-01 -8.233972E-02 0.0 24 G 0.0 0.0 -7.213381E-02 4.302983E-02 -1.396139E-01 0.0 30 G 0.0 0.0 5.552736E-02 1.622728E-01 -1.756587E-02 0.0 31 G 0.0 0.0 6.431352E-02 -1.214587E-01 -2.878819E-01 0.0 32 G 0.0 0.0 2.173330E-02 -5.621525E-01 -2.939019E-01 0.0 33 G 0.0 0.0 -5.085830E-02 -5.257182E-01 -6.999098E-02 0.0 34 G 0.0 0.0 -8.457083E-02 3.782634E-02 2.675366E-02 0.0 40 G 0.0 0.0 4.808522E-02 1.130408E-01 -7.791118E-02 0.0 41 G 0.0 0.0 3.690974E-02 -3.568712E-01 -1.430562E-01 0.0 42 G 0.0 0.0 -5.013169E-03 -6.313805E-01 -7.085504E-02 0.0 43 G 0.0 0.0 -5.294726E-02 -4.896728E-01 7.461009E-02 0.0 44 G 0.0 0.0 -7.323609E-02 2.635020E-02 1.186625E-01 0.0 50 G 0.0 0.0 3.907244E-02 8.743789E-02 -9.956909E-02 0.0 51 G 0.0 0.0 2.641332E-02 -4.875620E-01 -1.298029E-01 0.0 52 G 0.0 0.0 -8.026207E-03 -7.163366E-01 2.756412E-03 0.0 53 G 0.0 0.0 -4.383083E-02 -5.349127E-01 1.524296E-01 0.0 54 G 0.0 0.0 -5.950919E-02 2.038207E-02 1.516485E-01 0.0 60 G 0.0 0.0 3.193291E-02 7.887370E-02 -1.034049E-01 0.0 61 G 0.0 0.0 2.049434E-02 -5.844045E-01 -9.449413E-02 0.0 62 G 0.0 0.0 -7.207097E-03 -8.326616E-01 1.690398E-02 0.0 63 G 0.0 0.0 -3.551585E-02 -6.178299E-01 1.339996E-01 0.0 64 G 0.0 0.0 -4.863536E-02 1.838574E-02 1.574906E-01 0.0 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY EIGENVALUE = 0.184936E+10 (CYCLIC FREQUENCY = 6.844337E+03 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 -2.051304E-01 0.0 11 G 0.0 0.0 0.0 0.0 5.102668E-01 0.0 12 G 0.0 0.0 0.0 0.0 9.622596E-01 0.0 13 G 0.0 0.0 0.0 0.0 6.854402E-01 0.0 14 G 0.0 0.0 0.0 0.0 -4.781660E-02 0.0 20 G 0.0 0.0 -5.594878E-02 1.562628E-01 -1.082880E-01 0.0 21 G 0.0 0.0 7.927906E-02 1.000000E+00 -8.223456E-02 0.0 22 G 0.0 0.0 1.977696E-01 1.592643E-01 -1.008510E-01 0.0 23 G 0.0 0.0 1.238842E-01 -8.684965E-01 -3.869530E-02 0.0 24 G 0.0 0.0 -1.304185E-02 -2.379956E-01 -2.524232E-02 0.0 30 G 0.0 0.0 -6.559524E-02 1.373663E-01 2.075080E-02 0.0 31 G 0.0 0.0 -1.940924E-03 6.791193E-01 -4.592173E-01 0.0 32 G 0.0 0.0 6.052699E-02 2.018509E-01 -8.185136E-01 0.0 33 G 0.0 0.0 3.941358E-02 -4.467389E-01 -5.374547E-01 0.0 34 G 0.0 0.0 -1.529048E-02 -2.092155E-01 4.837086E-03 0.0 40 G 0.0 0.0 -5.680374E-02 9.569073E-02 9.203757E-02 0.0 41 G 0.0 0.0 -3.846454E-02 3.369089E-01 -5.623234E-02 0.0 42 G 0.0 0.0 -1.396163E-02 2.267085E-01 -1.973305E-01 0.0 43 G 0.0 0.0 -6.199773E-03 -3.294218E-02 -1.343894E-01 0.0 44 G 0.0 0.0 -1.324115E-02 -1.457416E-01 2.145427E-02 0.0 50 G 0.0 0.0 -4.615681E-02 7.401749E-02 1.176224E-01 0.0 51 G 0.0 0.0 -3.686499E-02 2.495046E-01 8.217808E-02 0.0 52 G 0.0 0.0 -2.235289E-02 2.572135E-01 7.676714E-03 0.0 53 G 0.0 0.0 -1.164257E-02 1.176333E-01 -1.916253E-02 0.0 54 G 0.0 0.0 -1.075931E-02 -1.127322E-01 2.741818E-02 0.0 60 G 0.0 0.0 -3.772280E-02 6.676778E-02 1.221536E-01 0.0 61 G 0.0 0.0 -3.097310E-02 2.623867E-01 9.603339E-02 0.0 62 G 0.0 0.0 -2.007168E-02 2.989821E-01 4.707719E-02 0.0 63 G 0.0 0.0 -1.086164E-02 1.692971E-01 1.398862E-02 0.0 64 G 0.0 0.0 -8.793312E-03 -1.016905E-01 2.847443E-02 0.0 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY EIGENVALUE = 0.184936E+10 (CYCLIC FREQUENCY = 6.844337E+03 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 -2.051293E-01 0.0 11 G 0.0 0.0 0.0 0.0 5.102689E-01 0.0 12 G 0.0 0.0 0.0 0.0 9.622605E-01 0.0 13 G 0.0 0.0 0.0 0.0 6.854395E-01 0.0 14 G 0.0 0.0 0.0 0.0 -4.781735E-02 0.0 20 G 0.0 0.0 -5.594850E-02 1.562625E-01 -1.082875E-01 0.0 21 G 0.0 0.0 7.927945E-02 1.000000E+00 -8.223452E-02 0.0 22 G 0.0 0.0 1.977697E-01 1.592624E-01 -1.008511E-01 0.0 23 G 0.0 0.0 1.238841E-01 -8.684976E-01 -3.869538E-02 0.0 24 G 0.0 0.0 -1.304205E-02 -2.379963E-01 -2.524261E-02 0.0 30 G 0.0 0.0 -6.559493E-02 1.373657E-01 2.075056E-02 0.0 31 G 0.0 0.0 -1.940712E-03 6.791183E-01 -4.592183E-01 0.0 32 G 0.0 0.0 6.052706E-02 2.018495E-01 -8.185141E-01 0.0 33 G 0.0 0.0 3.941349E-02 -4.467399E-01 -5.374543E-01 0.0 34 G 0.0 0.0 -1.529067E-02 -2.092165E-01 4.837363E-03 0.0 40 G 0.0 0.0 -5.680349E-02 9.569007E-02 9.203698E-02 0.0 41 G 0.0 0.0 -3.846439E-02 3.369077E-01 -5.623243E-02 0.0 42 G 0.0 0.0 -1.396157E-02 2.267072E-01 -1.973303E-01 0.0 43 G 0.0 0.0 -6.199813E-03 -3.294330E-02 -1.343891E-01 0.0 44 G 0.0 0.0 -1.324128E-02 -1.457427E-01 2.145479E-02 0.0 50 G 0.0 0.0 -4.615664E-02 7.401685E-02 1.176217E-01 0.0 51 G 0.0 0.0 -3.686487E-02 2.495034E-01 8.217768E-02 0.0 52 G 0.0 0.0 -2.235283E-02 2.572122E-01 7.676681E-03 0.0 53 G 0.0 0.0 -1.164258E-02 1.176320E-01 -1.916224E-02 0.0 54 G 0.0 0.0 -1.075939E-02 -1.127333E-01 2.741875E-02 0.0 60 G 0.0 0.0 -3.772267E-02 6.676716E-02 1.221529E-01 0.0 61 G 0.0 0.0 -3.097300E-02 2.623856E-01 9.603295E-02 0.0 62 G 0.0 0.0 -2.007162E-02 2.989809E-01 4.707707E-02 0.0 63 G 0.0 0.0 -1.086162E-02 1.692958E-01 1.398885E-02 0.0 64 G 0.0 0.0 -8.793348E-03 -1.016917E-01 2.847500E-02 0.0 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY EIGENVALUE = 0.184936E+10 (CYCLIC FREQUENCY = 6.844337E+03 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 -1.736462E-01 0.0 11 G 0.0 0.0 0.0 0.0 -4.585979E-01 0.0 12 G 0.0 0.0 0.0 0.0 -3.455173E-01 0.0 13 G 0.0 0.0 0.0 0.0 2.925656E-02 0.0 14 G 0.0 0.0 0.0 0.0 2.644703E-01 0.0 20 G 0.0 0.0 -4.736155E-02 -1.845962E-01 -9.166750E-02 0.0 21 G 0.0 0.0 -9.858746E-02 -1.523421E-01 -3.891873E-02 0.0 22 G 0.0 0.0 -7.101311E-02 4.435490E-01 3.621078E-02 0.0 23 G 0.0 0.0 2.563742E-02 5.185771E-01 8.233837E-02 0.0 24 G 0.0 0.0 7.213359E-02 -4.302916E-02 1.396135E-01 0.0 30 G 0.0 0.0 -5.552740E-02 -1.622743E-01 1.756605E-02 0.0 31 G 0.0 0.0 -6.431394E-02 1.214551E-01 2.878821E-01 0.0 32 G 0.0 0.0 -2.173400E-02 5.621519E-01 2.939022E-01 0.0 33 G 0.0 0.0 5.085775E-02 5.257209E-01 6.999104E-02 0.0 34 G 0.0 0.0 8.457058E-02 -3.782505E-02 -2.675354E-02 0.0 40 G 0.0 0.0 -4.808523E-02 -1.130425E-01 7.791144E-02 0.0 41 G 0.0 0.0 -3.690997E-02 3.568682E-01 1.430580E-01 0.0 42 G 0.0 0.0 5.012766E-03 6.313797E-01 7.085787E-02 0.0 43 G 0.0 0.0 5.294690E-02 4.896745E-01 -7.460810E-02 0.0 44 G 0.0 0.0 7.323588E-02 -2.634879E-02 -1.186621E-01 0.0 50 G 0.0 0.0 -3.907242E-02 -8.743957E-02 9.956936E-02 0.0 51 G 0.0 0.0 -2.641342E-02 4.875599E-01 1.298038E-01 0.0 52 G 0.0 0.0 8.026018E-03 7.163355E-01 -2.754891E-03 0.0 53 G 0.0 0.0 4.383063E-02 5.349131E-01 -1.524284E-01 0.0 54 G 0.0 0.0 5.950903E-02 -2.038068E-02 -1.516480E-01 0.0 60 G 0.0 0.0 -3.193288E-02 -7.887540E-02 1.034051E-01 0.0 61 G 0.0 0.0 -2.049438E-02 5.844024E-01 9.449476E-02 0.0 62 G 0.0 0.0 7.206989E-03 8.326601E-01 -1.690307E-02 0.0 63 G 0.0 0.0 3.551571E-02 6.178297E-01 -1.339988E-01 0.0 64 G 0.0 0.0 4.863523E-02 -1.838435E-02 -1.574901E-01 0.0 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY EIGENVALUE = 0.524313E+10 (CYCLIC FREQUENCY = 1.152433E+04 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 1.381758E-01 0.0 11 G 0.0 0.0 0.0 0.0 3.856366E-01 0.0 12 G 0.0 0.0 0.0 0.0 5.715094E-02 0.0 13 G 0.0 0.0 0.0 0.0 -2.922373E-01 0.0 14 G 0.0 0.0 0.0 0.0 -1.053251E-01 0.0 20 G 0.0 0.0 2.534877E-02 4.580095E-02 -4.305257E-02 0.0 21 G 0.0 0.0 5.831124E-02 -1.915582E-02 -7.629408E-02 0.0 22 G 0.0 0.0 4.758733E-03 -4.362848E-01 -4.133434E-02 0.0 23 G 0.0 0.0 -5.160214E-02 -4.205896E-02 1.915334E-02 0.0 24 G 0.0 0.0 -1.932222E-02 1.080818E-01 3.281702E-02 0.0 30 G 0.0 0.0 -4.344035E-03 7.921172E-02 -1.930773E-01 0.0 31 G 0.0 0.0 8.398209E-05 -3.214549E-02 -3.123719E-01 0.0 32 G 0.0 0.0 -1.321664E-02 -1.156404E-01 -6.291242E-02 0.0 33 G 0.0 0.0 -1.789889E-02 1.051288E-01 2.094846E-01 0.0 34 G 0.0 0.0 3.311261E-03 1.869250E-01 1.471741E-01 0.0 40 G 0.0 0.0 -3.392317E-02 9.476028E-02 -1.877853E-01 0.0 41 G 0.0 0.0 -2.767643E-02 1.190280E-01 -8.077212E-02 0.0 42 G 0.0 0.0 -1.445124E-02 2.023746E-01 3.534038E-02 0.0 43 G 0.0 0.0 5.875458E-03 2.745203E-01 1.113386E-01 0.0 44 G 0.0 0.0 2.585810E-02 2.236167E-01 1.431403E-01 0.0 50 G 0.0 0.0 -5.145512E-02 1.010387E-01 -1.629114E-01 0.0 51 G 0.0 0.0 -3.751628E-02 3.948424E-01 -4.498323E-02 0.0 52 G 0.0 0.0 -1.144448E-02 5.508235E-01 2.644275E-02 0.0 53 G 0.0 0.0 1.796674E-02 5.077032E-01 6.755827E-02 0.0 54 G 0.0 0.0 3.922191E-02 2.384327E-01 1.241800E-01 0.0 60 G 0.0 0.0 -6.255963E-02 1.036592E-01 -1.557391E-01 0.0 61 G 0.0 0.0 -4.409731E-02 7.441538E-01 -5.216912E-02 0.0 62 G 0.0 0.0 -1.041193E-02 1.000000E+00 8.471924E-03 0.0 63 G 0.0 0.0 2.496820E-02 8.341178E-01 5.266275E-02 0.0 64 G 0.0 0.0 4.768637E-02 2.446167E-01 1.187129E-01 0.0 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY EIGENVALUE = 0.524313E+10 (CYCLIC FREQUENCY = 1.152433E+04 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 -4.184317E-02 0.0 11 G 0.0 0.0 0.0 0.0 -1.206531E-01 0.0 12 G 0.0 0.0 0.0 0.0 -2.445787E-01 0.0 13 G 0.0 0.0 0.0 0.0 -2.790522E-01 0.0 14 G 0.0 0.0 0.0 0.0 -9.874213E-02 0.0 20 G 0.0 0.0 -7.676256E-03 1.512453E-01 1.303742E-02 0.0 21 G 0.0 0.0 -1.514144E-03 -5.615935E-02 1.111162E-01 0.0 22 G 0.0 0.0 -2.036515E-02 -1.019469E-01 1.768913E-01 0.0 23 G 0.0 0.0 -2.719765E-02 4.185522E-02 1.334195E-01 0.0 24 G 0.0 0.0 -1.811455E-02 -1.152875E-01 3.076591E-02 0.0 30 G 0.0 0.0 1.315485E-03 2.615754E-01 5.846876E-02 0.0 31 G 0.0 0.0 4.022077E-02 3.022618E-01 1.591835E-01 0.0 32 G 0.0 0.0 5.656102E-02 -2.702172E-02 2.692359E-01 0.0 33 G 0.0 0.0 3.601871E-02 -2.852077E-01 2.811259E-01 0.0 34 G 0.0 0.0 3.104302E-03 -1.993871E-01 1.379755E-01 0.0 40 G 0.0 0.0 1.027281E-02 3.129203E-01 5.686622E-02 0.0 41 G 0.0 0.0 4.272892E-02 3.786974E-01 -8.785047E-02 0.0 42 G 0.0 0.0 6.184453E-02 4.728896E-02 -1.512405E-01 0.0 43 G 0.0 0.0 5.056901E-02 -2.867368E-01 -4.295986E-02 0.0 44 G 0.0 0.0 2.424192E-02 -2.385250E-01 1.341938E-01 0.0 50 G 0.0 0.0 1.558193E-02 3.336532E-01 4.933377E-02 0.0 51 G 0.0 0.0 3.534907E-02 3.469448E-01 -6.145405E-02 0.0 52 G 0.0 0.0 4.897701E-02 1.287112E-01 -1.131625E-01 0.0 53 G 0.0 0.0 4.831382E-02 -1.360466E-01 -3.515645E-02 0.0 54 G 0.0 0.0 3.677047E-02 -2.543287E-01 1.164186E-01 0.0 60 G 0.0 0.0 1.894466E-02 3.423067E-01 4.716180E-02 0.0 61 G 0.0 0.0 3.286253E-02 3.768997E-01 -1.330440E-02 0.0 62 G 0.0 0.0 4.455817E-02 2.336705E-01 -3.625593E-02 0.0 63 G 0.0 0.0 4.900110E-02 -8.104252E-03 1.119173E-02 0.0 64 G 0.0 0.0 4.470589E-02 -2.609249E-01 1.112931E-01 0.0 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY EIGENVALUE = 0.924606E+10 (CYCLIC FREQUENCY = 1.530377E+04 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 4.893882E-03 0.0 11 G 0.0 0.0 0.0 0.0 -5.286995E-01 0.0 12 G 0.0 0.0 0.0 0.0 -1.279395E-01 0.0 13 G 0.0 0.0 0.0 0.0 3.413101E-01 0.0 14 G 0.0 0.0 0.0 0.0 -6.333756E-03 0.0 20 G 0.0 0.0 4.720588E-03 4.732300E-02 3.877539E-02 0.0 21 G 0.0 0.0 -5.630494E-02 -1.280055E-01 1.902265E-01 0.0 22 G 0.0 0.0 -6.665536E-03 4.459296E-01 1.212342E-01 0.0 23 G 0.0 0.0 4.720217E-02 -8.580338E-02 -3.019522E-02 0.0 24 G 0.0 0.0 -6.109350E-03 2.102862E-02 -5.018251E-02 0.0 30 G 0.0 0.0 1.732902E-02 1.872091E-01 6.577487E-02 0.0 31 G 0.0 0.0 3.367570E-02 6.693871E-02 3.331544E-01 0.0 32 G 0.0 0.0 3.290442E-02 -1.391944E-01 7.269690E-02 0.0 33 G 0.0 0.0 3.075926E-03 -3.626743E-01 -2.237298E-01 0.0 34 G 0.0 0.0 -2.242696E-02 8.318945E-02 -8.512463E-02 0.0 40 G 0.0 0.0 2.712760E-02 2.010297E-01 6.061678E-02 0.0 41 G 0.0 0.0 3.666748E-02 -7.634004E-02 -1.869090E-01 0.0 42 G 0.0 0.0 1.571115E-02 -3.949039E-01 -2.139063E-01 0.0 43 G 0.0 0.0 -2.103181E-02 -3.949628E-01 -8.561336E-02 0.0 44 G 0.0 0.0 -3.510810E-02 8.933091E-02 -7.844906E-02 0.0 50 G 0.0 0.0 3.269599E-02 1.824512E-01 5.019081E-02 0.0 51 G 0.0 0.0 2.736037E-02 -3.367685E-01 -9.295514E-02 0.0 52 G 0.0 0.0 6.235373E-04 -6.065282E-01 -8.769936E-02 0.0 53 G 0.0 0.0 -3.017475E-02 -4.683205E-01 -2.022097E-02 0.0 54 G 0.0 0.0 -4.231461E-02 8.107527E-02 -6.495593E-02 0.0 60 G 0.0 0.0 3.607067E-02 1.728772E-01 4.687250E-02 0.0 61 G 0.0 0.0 2.563952E-02 -5.833523E-01 -4.013754E-02 0.0 62 G 0.0 0.0 -3.288041E-03 -8.824413E-01 -3.229791E-02 0.0 63 G 0.0 0.0 -3.345207E-02 -6.502656E-01 -6.572365E-03 0.0 64 G 0.0 0.0 -4.668204E-02 7.682088E-02 -6.066144E-02 0.0 1 NORMAL MODES ANALYSIS OF A CIRCULAR PLATE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A 0 ROTATIONAL CYCLIC SYMMETRY EIGENVALUE = 0.924606E+10 (CYCLIC FREQUENCY = 1.530377E+04 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 10 G 0.0 0.0 0.0 0.0 -4.488108E-03 0.0 11 G 0.0 0.0 0.0 0.0 -3.252451E-01 0.0 12 G 0.0 0.0 0.0 0.0 -5.760457E-01 0.0 13 G 0.0 0.0 0.0 0.0 -5.184744E-01 0.0 14 G 0.0 0.0 0.0 0.0 -1.994172E-03 0.0 20 G 0.0 0.0 -4.329037E-03 5.160371E-02 -3.555879E-02 0.0 21 G 0.0 0.0 -8.998287E-03 -7.126559E-02 3.357905E-01 0.0 22 G 0.0 0.0 -3.001189E-02 -9.904097E-02 5.458534E-01 0.0 23 G 0.0 0.0 -3.198718E-02 1.187527E-01 3.847464E-01 0.0 24 G 0.0 0.0 -1.923630E-03 -6.678477E-02 -1.580108E-02 0.0 30 G 0.0 0.0 -1.589151E-02 2.041441E-01 -6.031831E-02 0.0 31 G 0.0 0.0 7.933833E-02 1.000000E+00 1.844995E-01 0.0 32 G 0.0 0.0 1.481510E-01 3.091548E-02 3.273180E-01 0.0 33 G 0.0 0.0 8.613461E-02 -9.343166E-01 3.081836E-01 0.0 34 G 0.0 0.0 -7.061613E-03 -2.641999E-01 -2.680354E-02 0.0 40 G 0.0 0.0 -2.487722E-02 2.192150E-01 -5.558806E-02 0.0 41 G 0.0 0.0 2.879206E-02 7.696323E-01 -6.022628E-01 0.0 42 G 0.0 0.0 7.073896E-02 8.770858E-02 -9.631063E-01 0.0 43 G 0.0 0.0 4.160715E-02 -6.649554E-01 -6.247607E-01 0.0 44 G 0.0 0.0 -1.105458E-02 -2.837043E-01 -2.470163E-02 0.0 50 G 0.0 0.0 -2.998366E-02 1.989559E-01 -4.602697E-02 0.0 51 G 0.0 0.0 -1.272510E-02 3.855597E-01 -2.467086E-01 0.0 52 G 0.0 0.0 2.807498E-03 1.347105E-01 -3.948635E-01 0.0 53 G 0.0 0.0 5.350675E-05 -2.067486E-01 -2.628632E-01 0.0 54 G 0.0 0.0 -1.332373E-02 -2.574853E-01 -2.045302E-02 0.0 60 G 0.0 0.0 -3.307837E-02 1.885158E-01 -4.298395E-02 0.0 61 G 0.0 0.0 -2.415000E-02 2.876310E-01 -1.014278E-01 0.0 62 G 0.0 0.0 -1.480427E-02 1.959909E-01 -1.454207E-01 0.0 63 G 0.0 0.0 -1.102571E-02 -1.364352E-02 -1.088828E-01 0.0 64 G 0.0 0.0 -1.469893E-02 -2.439740E-01 -1.910080E-02 0.0 * * * END OF JOB * * * 1 JOB TITLE = NORMAL MODES ANALYSIS OF A CIRCULAR PLATE DATE: 5/17/95 END TIME: 16:24:30 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t00001a.out ================================================ NASTRAN FILES=(INPT1,INPT2) **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T00001A,NASTRAN $ $ THIS DEMO PROBLEM DEMONSTRATES AN EASY WAY TO GENERATE VARIOUS $ FORMS OF NASTRAN GINO DATA BLOCKS USING THE NEW INPUTT4 MODULE, $ AND TO ALTER DATA BLOCK TRAILER BY THE NEW MATGEN, OPTION 10 $ $ TO COPY FROM INP1 THE FOLLOWING MATRICES $ A 4X4 SQUARE MATRIX OF FORM 1 TO SQR $ A 2X5 RECTANGULAR MATRIX OF FORM 2 TO REC $ A 1X6 DIAGONAL MATRIX OF FORM 3 TO DI1 $ A 5X5 DIAONGL MATRIX OF FORM 2 TO DI5 $ A 4X4 SYMMETRIC MATRIX OF FORM 6 TO SYM $ TO COPY FROM INP2 THE FOLLOWING MATRICES $ A 1X6 ROW VECTOR OF FORM 7 TO RV1 $ A 6X1 ROW VECTOR OF FORM 2 TO RV6 $ A 1X4 IDENTITY MATRIX OF FORM 8 TO ID1 $ A 4X4 IDENTITY MATRIX OF FORM 2 TO ID4 $ A 1X6 COLUMN MATRIX OF FORM 2 TO CMX $ AND TO ALTER THE TRAILER OF SYM, FROM SYMMETRIC TO SQUARE $ $ NOTE - THERE IS NO DOCUMENTATION AVAILABLE IN THE USER'S MANUAL $ 4/93 ABOUT THE NEW CAPABILITIES BEING PERFORMED HERE. $ - USER CAN GENERATE GINO DATA BLOCKS THRU THE DMIG CARDS. $ HOWEVER, INPUT VIA DMIG CARDS IS LIMITED TO ONLY SQAURE $ (FORM 1), RECTANGULAR (FORM 2) AND SYMMETRIC (FORM 6) $ MATRICES $ APP DMAP DIAG 8,15 BEGIN $ (SEE NASTRAN SOURCE PROGRAM COMPILATION FOR LISTING OF DMAP SEQUENCE) END $ TIME 5 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 BEGIN (NO. OF UNSORTED BULK DATA CARDS READ = 0, INCLUDING 0 COMMENT CARDS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ ENDDATA 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN $ 2 $ 2 $ CDC USER, USE FORTRAN UNITS 11(UT1) AND 12(UT2) INSTEAD OF 15(INP1) 2 $ AND 16(INP2) HERE. 2 $ REWIND TAPE BEFORE READING, PARAMETER -1 2 $ INP1 & INP2 TAPES ARE ASCII FORMATTED TAPES, PARAMETERS -15 & -16 2 $ RECORDS IN MSC/OUTPUT4 FORMAT, 80 COLUMN PER RECORD, PARAMETER -4 2 $ (COSMIC/OUTPUT4 AND INPUTT4 USE 132-COLUMN-PER-RECORD FORMAT) 2 $ MATPRN MUST HAVE A $ AT END OF LINE. ELSEWHERE $ SIGN IS OPTIONAL. 2 $ 2 INPUTT4 /SQR,REC,DI1,DI5,SYM/-1/-15//-4 3 INPUTT4 /RV1,RV6,ID1,ID4,CMX/-1/-16//-4 $ 4 MATPRN SQR,REC,DI1,DI5,SYM// $ 5 MATPRN RV1,RV6,ID1,ID4,CMX// $ 6 $ 6 MATGEN SYM//10///1 $ OPTION 10, CHANGING THE 3RD TRAILER WORD TO 1 7 MATPRN SYM,,,,// $ 8 END $ 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE. INPUTT4 MODULE OPENING FORTRAN TAPE 15 (t00001a.inp1 ) FOR FORMATTED READ. READING DATA BLOCK NO. 1 - SQUARE FROM INPUT TAPE READING DATA BLOCK NO. 2 - RECTANG FROM INPUT TAPE READING DATA BLOCK NO. 3 - DIAGONAL FROM INPUT TAPE READING DATA BLOCK NO. 4 - DIAGON2 FROM INPUT TAPE READING DATA BLOCK NO. 5 - SYMMETRC FROM INPUT TAPE 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 0*** USER INFORMATION MESSAGE FROM INPUTT4 MODULE. THE FOLLOWING FILES WERE SUCCESSFULLY RECOVERED FROM USER FORMATTED INPUT TAPE t00001a.inp1 TO NASTRAN GINO FILES SQUARE ==COPIED TO== SQR MATRIX TYPE = RDP , SIZE ( 4 X 4) RECTANG ==COPIED TO== REC MATRIX TYPE = RSP , SIZE ( 2 X 5) DIAGONAL ==COPIED TO== DI1 MATRIX TYPE = RDP , SIZE ( 1 X 6) DIAGON2 ==COPIED TO== DI5 MATRIX TYPE = RDP , SIZE ( 5 X 5) SYMMETRC ==COPIED TO== SYM MATRIX TYPE = RDP , SIZE ( 4 X 4) 0*** USER INFORMATION MESSAGE. INPUTT4 MODULE OPENING FORTRAN TAPE 16 (t00001a.inp2 ) FOR FORMATTED READ. READING DATA BLOCK NO. 1 - ROWVEC FROM INPUT TAPE READING DATA BLOCK NO. 2 - COLVEC FROM INPUT TAPE READING DATA BLOCK NO. 3 - IDENT FROM INPUT TAPE READING DATA BLOCK NO. 4 - IDENT FROM INPUT TAPE READING DATA BLOCK NO. 5 - COLMAT FROM INPUT TAPE 0*** USER INFORMATION MESSAGE FROM INPUTT4 MODULE. THE FOLLOWING FILES WERE SUCCESSFULLY RECOVERED FROM USER FORMATTED INPUT TAPE t00001a.inp2 TO NASTRAN GINO FILES ROWVEC ==COPIED TO== RV1 MATRIX TYPE = RSP , SIZE ( 1 X 6) COLVEC ==COPIED TO== RV6 MATRIX TYPE = RDP , SIZE ( 6 X 1) IDENT ==COPIED TO== ID1 MATRIX TYPE = RDP , SIZE ( 1 X 4) IDENT ==COPIED TO== ID4 MATRIX TYPE = RDP , SIZE ( 4 X 4) COLMAT ==COPIED TO== CMX MATRIX TYPE = RDP , SIZE ( 1 X 6) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 0 0 MATRIX SQR (GINO NAME 101 ) IS A D.P.REAL 4 COLUMN X 4 ROW SQUARE MATRIX. 0COLUMN 1 ROWS 1 THRU 4 -------------------------------------------------- 1.234568D+03 2.224568D+02 -3.334568D+00 -3.456789D+00 0COLUMN 2 ROWS 2 THRU 3 -------------------------------------------------- 1.234568D+03 -2.234568D+03 0COLUMN 3 ROWS 1 THRU 3 -------------------------------------------------- 2.234568D+03 7.224568D+02 -6.334568D+00 0COLUMN 4 ROWS 3 THRU 4 -------------------------------------------------- -9.034568D+02 -6.234568D+03 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 8 0THE DENSITY OF THIS MATRIX IS 68.75 PERCENT. 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 0 0 MATRIX REC (GINO NAME 102 ) IS A S.P.REAL 2 COLUMN X 5 ROW RECTANG MATRIX. 0COLUMN 1 ROWS 1 THRU 4 -------------------------------------------------- 1.23457E+03 2.22457E+02 -3.33457E+00 -3.45679E+00 0COLUMN 2 ROWS 3 THRU 4 -------------------------------------------------- -3.45679E+00 -2.23457E+03 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 4 0THE DENSITY OF THIS MATRIX IS 60.00 PERCENT. 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 0 0 MATRIX DI1 (GINO NAME 103 ) IS A D.P.REAL 1 COLUMN X 6 ROW DIAGONAL MATRIX. 0DIAGONAL ELEMENTS FOR COLUMNS 1 TO 6 ARE 1.100000D+03 2.200000D+02 -3.300000D+03 4.400000D+02 5.500000D+04 -6.600000D+02 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 12 0THE DENSITY OF THIS MATRIX IS 100.00 PERCENT. 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 0 0 MATRIX DI5 (GINO NAME 104 ) IS A D.P.REAL 5 COLUMN X 5 ROW RECTANG MATRIX. 0COLUMN 1 ROWS 1 THRU 1 -------------------------------------------------- 1.111100D+03 0COLUMN 2 ROWS 2 THRU 2 -------------------------------------------------- 2.220000D+02 0COLUMN 3 ROWS 3 THRU 3 -------------------------------------------------- -3.333333D+00 0COLUMN 4 ROWS 4 THRU 4 -------------------------------------------------- 4.440400D+03 0COLUMN 5 ROWS 5 THRU 5 -------------------------------------------------- 5.500000D+05 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 2 0THE DENSITY OF THIS MATRIX IS 20.00 PERCENT. 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 0 0 MATRIX SYM (GINO NAME 105 ) IS A D.P.REAL 4 COLUMN X 4 ROW SYMMETRC MATRIX. 0COLUMN 1 ROWS 1 THRU 3 -------------------------------------------------- 1.100000D+03 2.200000D+03 -3.300000D+03 0COLUMN 2 ROWS 1 THRU 4 -------------------------------------------------- 2.200000D+03 -4.400000D+02 5.500000D+04 -6.600000D+04 0COLUMN 3 ROWS 1 THRU 4 -------------------------------------------------- -3.300000D+03 5.500000D+03 -7.700000D+03 8.800000D+03 0COLUMN 4 ROWS 2 THRU 4 -------------------------------------------------- -6.600000D+03 8.800000D+03 -9.900000D+03 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 8 0THE DENSITY OF THIS MATRIX IS 87.50 PERCENT. 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 0 0 MATRIX RV1 (GINO NAME 101 ) IS A S.P.REAL 6 COLUMN X 1 ROW VECTOR MATRIX. 0ROW ELEMENTS FOR COLUMNS 1 TO 6 ARE 1.10000E+03 2.20000E+03 -3.30000E+03 4.40000E+02 5.50000E+04 -6.60000E+02 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 6 0THE DENSITY OF THIS MATRIX IS 100.00 PERCENT. 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 0 0 MATRIX RV6 (GINO NAME 102 ) IS A D.P.REAL 6 COLUMN X 1 ROW RECTANG MATRIX. 0COLUMN 1 ROWS 1 THRU 1 -------------------------------------------------- 9.876543D+00 0COLUMN 2 ROWS 1 THRU 1 -------------------------------------------------- -8.876543D+00 0COLUMN 3 ROWS 1 THRU 1 -------------------------------------------------- -7.776543D+00 0COLUMN 4 ROWS 1 THRU 1 -------------------------------------------------- 6.676543D+00 0COLUMN 5 ROWS 1 THRU 1 -------------------------------------------------- 5.576543D+00 0COLUMN 6 ROWS 1 THRU 1 -------------------------------------------------- -4.476543D+00 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 2 0THE DENSITY OF THIS MATRIX IS 100.00 PERCENT. 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 0 0 MATRIX ID1 (GINO NAME 103 ) IS A D.P.REAL 1 COLUMN X 4 ROW IDENTITY MATRIX. 0IDENTITY MATRIX 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 0 0 TABLE ID1 RECORD NO. 0 ID1 RECORD NO. 1 0STRING NO. 1 ROW POSITION= 1 STRING TYPE=RDP STRING TRAILERS=YES NUMBER OF TERMS= 4 1.0000000D+00 1.0000000D+00 1.0000000D+00 1.0000000D+00 RECORD NO. 2 END OF FILE 0TRAILER WORD1 = 1 WORD2 = 4 WORD3 = 8 WORD4 = 2 WORD5 = 8 WORD6 = 10000 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 0 0 MATRIX ID4 (GINO NAME 104 ) IS A D.P.REAL 4 COLUMN X 4 ROW RECTANG MATRIX. 0COLUMN 1 ROWS 1 THRU 1 -------------------------------------------------- 1.000000D+00 0COLUMN 2 ROWS 1 THRU 1 -------------------------------------------------- 1.000000D+00 0COLUMN 3 ROWS 1 THRU 1 -------------------------------------------------- 1.000000D+00 0COLUMN 4 ROWS 1 THRU 1 -------------------------------------------------- 1.000000D+00 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 2 0THE DENSITY OF THIS MATRIX IS 25.00 PERCENT. 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 0 0 MATRIX CMX (GINO NAME 105 ) IS A D.P.REAL 1 COLUMN X 6 ROW RECTANG MATRIX. 0COLUMN 1 ROWS 1 THRU 6 -------------------------------------------------- 1.111000D+00 2.222200D+01 3.333330D+02 -4.440000D+01 5.500000D+00 -6.666666D+04 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 12 0THE DENSITY OF THIS MATRIX IS 100.00 PERCENT. 0*** USER INFORMATION MESSAGE FROM MATGEN MODULE, OPTION 10. TRAILER OF SYM - OLD - 4 4 6 2 8 8750 NEW - 4 4 1 2 8 8750 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 0 0 MATRIX SYM (GINO NAME 101 ) IS A D.P.REAL 4 COLUMN X 4 ROW SQUARE MATRIX. 0COLUMN 1 ROWS 1 THRU 3 -------------------------------------------------- 1.100000D+03 2.200000D+03 -3.300000D+03 0COLUMN 2 ROWS 1 THRU 4 -------------------------------------------------- 2.200000D+03 -4.400000D+02 5.500000D+04 -6.600000D+04 0COLUMN 3 ROWS 1 THRU 4 -------------------------------------------------- -3.300000D+03 5.500000D+03 -7.700000D+03 8.800000D+03 0COLUMN 4 ROWS 2 THRU 4 -------------------------------------------------- -6.600000D+03 8.800000D+03 -9.900000D+03 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 8 0THE DENSITY OF THIS MATRIX IS 87.50 PERCENT. * * * END OF JOB * * * 1 JOB TITLE = DATE: 5/17/95 END TIME: 16:31: 4 TOTAL WALL CLOCK TIME 1 SEC. ================================================ FILE: demoout/t01181a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01181A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-18-1A 3 LABEL = POINT TEMPERATURE AND GRAVITY LOAD 4 LOAD = 10 5 TEMPERATURE(LOAD) = 2 6 SPC = 1 7 OUTPUT 8 DISPLACEMENTS = ALL 9 ELSTRESS = ALL 10 OLOAD = ALL 11 ELFORCE = ALL 12 SPCFORCES = ALL 13 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 52, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CBAR 1 20 13 1 0. 0. 1.0 1 2- CBAR 3 20 2 3 0. 0. 1. 1 3- CBAR 4 21 3 4 0. 0. 1. 1 4- CBAR 5 20 4 5 0. 0. 1. 1 5- CBAR 6 20 5 6 0. 0. 1. 1 6- CBAR 8 20 7 8 0. 0. 1. 1 7- CBAR 9 20 5 9 0. 0. 1. 1 8- CBAR 11 20 10 11 0. 1. 0. 1 9- CBAR 12 20 11 12 0. 1. 0. 1 10- CELAS2 101 1.0+4 9 1 14 1 11- CELAS2 102 1.0+5 11 2 15 2 12- CELBOW 2 10 1 2 -15.0 0.0 0.0 1 13- CELBOW 7 10 6 7 -15.0 0.0 0.0 1 14- CELBOW 10 10 9 10 0.0 0.0 15.0 1 15- FORCE 1 3 1000. 0. 1. 0. 16- FORCE 1 4 -200. 0. 1. 0. 17- FORCE 1 8 3000. 1. 0. 0. 18- FORCE 1 8 2000. 0. 0. 1. 19- FORCE 1 8 1000. 0. 1. 0. 20- GRAV 3 0 1. 0. -1. 0. 21- GRID 1 0. 105. 0. 22- GRID 2 -15. 120. 0. 23- GRID 3 -120. 120. 0. 24- GRID 4 -133. 120. 0. 25- GRID 5 -200. 120. 0. 26- GRID 6 -200. 225. 0. 27- GRID 7 -215. 240. 0. 28- GRID 8 -440. 240. 0. 29- GRID 9 -235. 120. 0. 30- GRID 10 -250. 120. 15. 31- GRID 11 -250. 120. 120. 32- GRID 12 -250. 120. 240. 33- GRID 13 0. 0. 0. 34- GRID 14 -245. 120. 0. 35- GRID 15 -250. 130. 120. 36- GRID 16 -240. 120. 240. 37- GRID 17 -250. 130. 240. 38- GRID 18 -250. 120. 250. 39- LOAD 10 1. 1. 1 1. 3 40- MAT1 11 27.9+6 0.333 6.81-6 0. 41- PBAR 20 11 16.085 211.33 211.33 422.66 6.61 42- PBAR 21 11 54.915 551.8 551.8 1103.6 6.61 43- PELBOW 10 11 16.085 211.33 211.33 422.66 6.61 +P1 44- +P1 5.37 0. 5.37 90. 5.37 180. 5.37 270. +P2 45- +P2 2.0 2.0 1.0 1.0 5.767 5.767 15. 90. 46- SPC 1 12 1 0.2 47- SPC 1 12 3 0.3 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-18-1A POINT TEMPERATURE AND GRAVITY LOAD S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- SPC 1 12 2 0.1 49- SPC1 1 123 12 50- SPC1 1 456 12 51- SPC1 1 123456 13 THRU 18 52- TEMPD 2 740. ENDDATA 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 13 PROFILE 50 MAX WAVEFRONT 5 AVG WAVEFRONT 3.333 RMS WAVEFRONT 3.464 RMS BANDWIDTH 4.442 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 3 PROFILE 33 MAX WAVEFRONT 3 AVG WAVEFRONT 2.200 RMS WAVEFRONT 2.266 RMS BANDWIDTH 2.352 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 13 3 PROFILE (P) 50 33 MAXIMUM WAVEFRONT (C-MAX) 5 3 AVERAGE WAVEFRONT (C-AVG) 3.333 2.200 RMS WAVEFRONT (C-RMS) 3.464 2.266 RMS BANDWITCH (B-RMS) 4.442 2.352 NUMBER OF GRID POINTS (N) 18 NUMBER OF ELEMENTS (NON-RIGID) 14 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 3 MINIMUM NODAL DEGREE 1 NUMBER OF UNIQUE EDGES 14 MATRIX DENSITY, PERCENT 19.111 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF NON-ACTIVE GRID POINTS 3 NO. OF SEQGP CARDS GENERATED 5 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 2 2 3 3 5 4 7 SEQGP 5 9 6 8 7 6 8 4 SEQGP 9 11 10 12 11 14 12 13 SEQGP 13 1 14 10 15 15 16 16 SEQGP 17 17 18 18 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 16 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 17 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 18 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELAS2 ELEMENTS (ELEMENT TYPE 12) STARTING WITH ID 101 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ELBOW ELEMENTS (ELEMENT TYPE 81) STARTING WITH ID 2 0*** SYSTEM WARNING MESSAGE 4015, ELEMENT THERMAL AND DEFORMATION LOADING NOT COMPUTED FOR ILLEGAL ELEMENT TYPE 81 IN MODULE SSG1. 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 9.4749783E-16 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 5.038649E-01 5.281864E-01 -9.195849E-02 -8.692930E-04 -3.550957E-03 -6.353205E-03 2 G 5.702674E-01 5.672655E-01 -1.586360E-01 8.661342E-05 -4.651631E-03 -1.457964E-04 3 G 4.356607E-02 4.153025E-01 -6.545666E-01 3.464240E-03 -3.912368E-03 2.039121E-03 4 G -2.185780E-02 3.891372E-01 -7.043164E-01 3.624396E-03 -3.736268E-03 1.979320E-03 5 G -3.579434E-01 3.214919E-01 -8.441837E-01 5.779644E-03 -7.963566E-05 -3.861917E-04 6 G -3.297779E-02 8.503972E-01 -7.838152E-02 8.183773E-03 1.131487E-02 -4.868690E-03 7 G 5.035120E-02 9.397321E-01 2.813487E-01 1.104570E-02 1.796971E-02 -6.450568E-03 8 G -1.082010E+00 2.556206E+00 5.612461E+00 1.104570E-02 2.655589E-02 -7.551208E-03 9 G -5.337445E-01 3.278520E-01 -8.476988E-01 5.006436E-03 4.606084E-05 -3.554765E-05 10 G -5.032873E-01 2.636950E-01 -8.314428E-01 3.545830E-03 3.285278E-03 -3.686313E-04 11 G -8.863562E-02 3.850545E-02 -3.034362E-01 4.114572E-04 3.966885E-03 -1.966034E-04 12 G 2.000000E-01 1.000000E-01 3.000000E-01 0.0 0.0 0.0 13 G 0.0 0.0 0.0 0.0 0.0 0.0 14 G 0.0 0.0 0.0 0.0 0.0 0.0 15 G 0.0 0.0 0.0 0.0 0.0 0.0 16 G 0.0 0.0 0.0 0.0 0.0 0.0 17 G 0.0 0.0 0.0 0.0 0.0 0.0 18 G 0.0 0.0 0.0 0.0 0.0 0.0 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 2.261114E+06 0.0 0.0 0.0 0.0 2 G 2.261539E+06 -4.248972E+02 0.0 0.0 0.0 0.0 3 G 5.459469E+06 6.100100E+02 0.0 0.0 0.0 0.0 4 G -5.459469E+06 -4.644000E+02 0.0 0.0 0.0 0.0 5 G 0.0 -2.262223E+06 0.0 0.0 0.0 0.0 6 G 0.0 2.261114E+06 0.0 0.0 0.0 0.0 7 G 2.261539E+06 -8.214973E+02 0.0 0.0 0.0 0.0 8 G -2.258539E+06 2.563750E+02 2.000000E+03 0.0 0.0 0.0 9 G -2.261539E+06 -1.935472E+02 0.0 0.0 0.0 0.0 10 G 0.0 -4.248972E+02 -2.261539E+06 0.0 0.0 0.0 11 G 0.0 -7.436250E+02 -2.500000E-01 0.0 0.0 0.0 12 G 0.0 -3.966000E+02 2.261539E+06 0.0 0.0 0.0 13 G 0.0 -2.261886E+06 0.0 0.0 0.0 0.0 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 12 G 2.072750E+03 3.925337E+03 -4.831085E+03 1.915076E+05 -3.192748E+05 7.246777E+03 13 G -1.040994E+04 4.409537E+03 2.831085E+03 1.974457E+05 1.495861E+05 9.032761E+05 14 G 5.337445E+03 0.0 0.0 0.0 0.0 0.0 15 G 0.0 -3.850545E+03 0.0 0.0 0.0 0.0 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 1 -1.974457E+05 9.032763E+05 9.981820E+04 -1.897681E+05 -2.831085E+03 1.040995E+04 -4.062500E+03 -1.495861E+05 3 -1.071200E+05 -2.913541E+05 1.901440E+05 4.597294E+04 -2.831086E+03 -3.212639E+03 -1.041000E+04 -1.422845E+05 4 1.901760E+05 4.596800E+04 2.269920E+05 9.568000E+04 -2.832000E+03 -3.824000E+03 -1.041050E+04 -1.422845E+05 5 2.269480E+05 9.566725E+04 4.166313E+05 3.206700E+05 -2.831094E+03 -3.358250E+03 -1.041000E+04 -1.422845E+05 6 2.400001E+05 4.092075E+05 3.000033E+04 9.420772E+04 1.999998E+03 2.999998E+03 -9.902500E+02 4.800000E+05 8 4.500000E+05 5.768425E+04 0.0 9.375000E-02 2.000000E+03 2.563740E+02 -3.000000E+03 0.0 9 -6.336800E+04 -8.853700E+04 1.057214E+05 -2.960138E+04 -4.831125E+03 -1.683875E+03 -7.410000E+03 9.771544E+04 11 1.200704E+05 -1.470939E+05 2.319408E+05 7.054481E+04 -1.065432E+03 -2.072750E+03 -4.831250E+03 7.246777E+03 12 2.319409E+05 7.054481E+04 -1.915076E+05 3.192748E+05 3.528738E+03 -2.072750E+03 -4.831000E+03 7.246778E+03 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD F O R C E S I N S C A L A R S P R I N G S ( C E L A S 2 ) ELEMENT FORCE ELEMENT FORCE ELEMENT FORCE ELEMENT FORCE ID. ID. ID. ID. 101 -5.337444E+03 102 3.850545E+03 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD F O R C E S I N C U R V E D B E A M E L E M E N T S ( C E L B O W ) ELEMENT -BENDING MOMENT- -SHEAR- -AXIAL FORCE- -TORQUE- ID. PLANE-1 END-A PLANE-2 END-A PLANE-1 END-A PLANE-2 END-A END-A END-A END-B END-B END-B END-B END-B 2 -2.122910E+06 9.981812E+04 -5.746718E+05 -2.831094E+03 -5.678993E+05 -1.495862E+05 -2.021324E+06 -1.071198E+05 5.678993E+05 -5.746718E+05 -1.422845E+05 7 -2.406891E+06 2.999988E+04 -5.672623E+05 2.000000E+03 -5.648269E+05 4.799998E+05 -2.370360E+06 4.499998E+05 5.648269E+05 -5.672623E+05 1.446701E-01 10 -2.206959E+06 -2.960150E+04 -5.690932E+05 -1.490344E+03 -5.663349E+05 9.771600E+04 -2.165584E+06 1.200712E+05 5.663349E+05 -5.690932E+05 7.246349E+03 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 1 0.0 0.0 0.0 0.0 -2.525645E+02 -2.525645E+02 -2.525645E+02 0.0 0.0 0.0 0.0 -2.525645E+02 -2.525645E+02 0 3 0.0 0.0 0.0 0.0 -6.471868E+02 -6.471868E+02 -6.471868E+02 0.0 0.0 0.0 0.0 -6.471868E+02 -6.471868E+02 0 4 0.0 0.0 0.0 0.0 -1.895748E+02 -1.895748E+02 -1.895748E+02 0.0 0.0 0.0 0.0 -1.895748E+02 -1.895748E+02 0 5 0.0 0.0 0.0 0.0 -6.471868E+02 -6.471868E+02 -6.471868E+02 0.0 0.0 0.0 0.0 -6.471868E+02 -6.471868E+02 0 6 0.0 0.0 0.0 0.0 -6.156357E+01 -6.156357E+01 -6.156357E+01 0.0 0.0 0.0 0.0 -6.156357E+01 -6.156357E+01 0 8 0.0 0.0 0.0 0.0 -1.865092E+02 -1.865092E+02 -1.865092E+02 0.0 0.0 0.0 0.0 -1.865092E+02 -1.865092E+02 0 9 0.0 0.0 0.0 0.0 -4.606777E+02 -4.606777E+02 -4.606777E+02 0.0 0.0 0.0 0.0 -4.606777E+02 -4.606777E+02 0 11 0.0 0.0 0.0 0.0 -3.003575E+02 -3.003575E+02 -3.003575E+02 0.0 0.0 0.0 0.0 -3.003575E+02 -3.003575E+02 0 12 0.0 0.0 0.0 0.0 -3.003419E+02 -3.003419E+02 -3.003419E+02 0.0 0.0 0.0 0.0 -3.003419E+02 -3.003419E+02 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD S T R E S S E S I N S C A L A R S P R I N G S ( C E L A S 2 ) ELEMENT STRESS ELEMENT STRESS ELEMENT STRESS ELEMENT STRESS ID. ID. ID. ID. 101 0.0 102 0.0 1 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T01-18-1A 0 POINT TEMPERATURE AND GRAVITY LOAD S T R E S S E S I N C U R V E D B E A M E L E M E N T S ( C E L B O W ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 2 -2.536428E+03 5.394420E+04 2.536423E+03 -5.394420E+04 -3.530614E+04 1.863805E+04 -8.925034E+04 2.721968E+03 5.136284E+04 -2.721972E+03 -5.136284E+04 -3.572719E+04 1.563566E+04 -8.709003E+04 0 7 -7.623117E+02 6.116029E+04 7.623063E+02 -6.116029E+04 -3.511514E+04 2.604515E+04 -9.627542E+04 -1.143472E+04 6.023202E+04 1.143471E+04 -6.023202E+04 -3.526654E+04 2.496548E+04 -9.549856E+04 0 10 7.521888E+02 5.607993E+04 -7.521937E+02 -5.607993E+04 -3.520888E+04 2.087104E+04 -9.128881E+04 -3.051067E+03 5.502856E+04 3.051062E+03 -5.502856E+04 -3.538037E+04 1.964819E+04 -9.040892E+04 * * * END OF JOB * * * 1 JOB TITLE = 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) DATE: 5/17/95 END TIME: 16:31:53 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/t01191a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01191A,NASTRAN DIAG 14 APP HEAT SOL 1 TIME 20 ALTER 67,67 $ MAGBDY GEOM1,HEQEXIN/PER/S,N,IPG $ SSG1 HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,PER/ HPG,HCFLD,REMFLD,HCCEN,NSLT/HLUSET/NSKIP $ ALTER 77 $ SDR1, ,HCFLD,,,,,,,,, /,HCFLDG,/V,N,NSKIP/C,N,STATICS $ SDR1, ,HCCEN,,,,,,,,, /,HCCENG,/V,N,NSKIP/C,N,STATICS $ SDR1, ,REMFLD,,,,,,,,,/,REMFLG,/V,N,NSKIP/C,N,STATICS $ ALTER 84 $ EMFLD HOEF1,HEST,CASECC,HCFLDG,MPT,DIT,REMFLG,GEOM1,CSTM, HCCENG/HOEH1/V,N,HLUSET $ ALTER 85 $ OFP HOEH1,,,,,//S,N,CARDNO $ PROLATE GEOM1,HEQEXIN,BGPDT,CASECC,NSLT,HUGV,REMFLG,HEST,MPT,DIT/PROCOF$ OUTPUT2 PROCOF,,,,//0/11 $ TABPT PROCOF,,,,// $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-19-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-19-1A 3 DISP = ALL 4 OLOAD = ALL 5 ELFORCE = ALL 6 SUBCASE 1 7 LOAD = 6 8 SUBCASE 2 9 LOAD = 5 10 SUBCASE 3 11 LOAD = 7 12 SUBCOM 4 13 SUBSEQ = .5,.5,0. 14 SUBCASE 5 15 LOAD = 13 16 SUBCASE 6 17 LOAD = 12 18 SUBCASE 7 19 LOAD = 11 20 SUBCASE 100 21 LOAD = 100 22 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 108, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-19-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BFIELD 0 6 THRU 8 2- BFIELD 1 5 1 2 3 100 3- BFIELD 2 -1 4- CEMLOOP 12 5. 0 5. 0. 0. 1.25 3.75 +CM12 5- +CM12 0. 1.25 0. 0. 6- CIS2D8 100 1 110 111 112 113 210 211 +CIS 7- +CIS 212 213 8- CORD2R 1 0. 0. 0. 0. 0. 1. +C1 9- +C1 0. 1. 1. 10- CORD2R 2 0. 0. 0. 0. 0. 1. +C2 11- +C2 -1. 0. 1. 12- CQDMEM 1 1 10 11 12 13 13- CQDMEM 3 1 21 18 19 20 14- CQUAD1 2 2 15 14 17 16 15- CQUAD2 4 3 24 25 22 23 16- CTRIA1 5 4 5 4 6 17- CTRIA2 6 5 9 7 8 18- CTRIA2 7 5 27 28 26 19- CTRMEM 8 6 1 2 3 20- GEMLOOP 13 5. 5. 0. 0. 4.94 .65 +G1 21- +G1 0. 4.77 1.28 0. 4.5 1.88 0. 4.12 +G2 22- +G2 2.41 0. 3.66 2.87 0. 3.13 3.25 0. +G3 23- +G3 2.53 3.52 0. 1.9 3.69 0. 1.25 3.75 +G4 24- +G4 0. .6 3.69 0. -.03 3.52 0. -.62 +G5 25- +G5 3.25 0. -1.16 2.87 0. -1.62 2.41 0. +G6 26- +G6 ENDT 27- GEMLOOP 13 5. 1.9 -3.69 0. 2.53 -3.52 +G13 28- +G13 0. 3.12 -3.25 0. 3.66 -2.87 0. 4.12 +G14 29- +G14 -2.41 0. 4.5 -1.87 0. 4.77 -1.28 0. +G15 30- +G15 4.94 -.65 0. 5. 0. 0. ENDT 31- GEMLOOP 13 5. -1.62 2.41 0. -2. 1.87 +G7 32- +G7 0. -2.27 1.28 0. -2.44 .65 0. -2.5 +G8 33- +G8 0. 0. -2.44 -.65 0. -2.27 -1.28 0. +G9 34- +G9 -2. -1.87 0. -1.62 -2.41 0. -1.16 -2.87 +G10 35- +G10 0. -.62 -3.25 0. -.03 -3.52 0. .6 +G11 36- +G11 -3.69 0. 1.25 -3.75 0. 1.9 -3.69 0. +G12 37- +G12 ENDT 38- GRID 1 0. 0. 1 39- GRID 2 2.82842 2.82842 40- GRID 3 1.41421 1.41421 2. 41- GRID 4 0. 0. 1 42- GRID 5 2.82842 2.82842 43- GRID 6 1.41421 1.41421 2. 44- GRID 7 0. 0. 1 45- GRID 8 2.82842 2.82842 46- GRID 9 1.41421 1.41421 2. 47- GRID 10 0. 0. 1 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-19-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 11 2.82842 2.82842 49- GRID 12 2.82842 2.82842 2. 50- GRID 13 0. 0. 2. 51- GRID 14 0. 0. 1 52- GRID 15 2.82842 2.82842 53- GRID 16 2.82842 2.82842 2. 54- GRID 17 0. 0. 2. 55- GRID 18 0. 0. 1 56- GRID 19 2.82842 2.82842 57- GRID 20 2.82842 2.82842 2. 58- GRID 21 0. 0. 2. 59- GRID 22 0. 0. 1 60- GRID 23 2.82842 2.82842 61- GRID 24 2.82842 2.82842 2. 62- GRID 25 0. 0. 2. 63- GRID 26 0. 0. 1 64- GRID 27 2.82842 2.82842 65- GRID 28 1.41421 1.41421 2. 66- GRID 110 0. 0. 1 67- GRID 111 2.82842 2.82842 68- GRID 112 2.82842 2.82842 2. 69- GRID 113 0. 0. 2. 70- GRID 210 1.41421 1.41421 71- GRID 211 2.82842 2.82842 1. 72- GRID 212 1.41421 1.41421 2. 73- GRID 213 0. 0. 1. 74- LOAD 7 1. 1. 5 1. 6 75- MAT4 1 250. 76- MDIPOLE 11 0 5. 0. 0. 10. 10. 10. +M1 77- +M1 0. 0. 78- PIS2D8 1 1 2. 79- PQDMEM 1 1 2. 80- PQUAD1 2 1 2. 1 2. 1 2. 81- PQUAD2 3 1 2. 82- PTRIA1 4 1 2. 1 2. 1 2. 83- PTRIA2 5 1 2. 84- PTRMEM 6 1 2. 85- REMFLUX 6 7312.5 8625. 10500. 100 86- REMFLUX 6 7312.5 8625. 10500. 1 THRU 4 87- REMFLUX 6 6333.3337833.3339583.3336 5 8 88- REMFLUX 6 6333.3337833.3339583.3337 89- SPCFLD 5 10. 20. 30. 26 22 90- SPCFLD 5 33. 37. 42.5 211 91- SPCFLD 5 10. 20. 30. 7 18 92- SPCFLD 5 17.5 25. 31. 210 93- SPCFLD 5 25. 30. 32. 2 11 111 94- SPCFLD 5 41. 44. 53. 212 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-19-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- SPCFLD 5 25.5 32. 41.5 213 96- SPCFLD 5 10. 20. 30. 4 14 97- SPCFLD 5 10. 20. 30. 1 10 110 98- SPCFLD 5 41. 44. 53. 28 24 25 99- SPCFLD 5 25. 30. 32. 5 15 100- SPCFLD 5 25. 30. 32. 8 19 101- SPCFLD 5 25. 30. 32. 27 23 102- SPCFLD 5 41. 44. 53. 6 16 17 103- SPCFLD 5 41. 44. 53. 9 20 21 104- SPCFLD 5 41. 44. 53. 112 113 105- SPCFLD 5 41. 44. 53. 3 12 13 106- SPCFLD 100 10. 20. 30. 210 THRU 213 107- SPCFLD 100 10. 20. 30. 10 THRU 13 108- SPCFLD 100 10. 20. 30. 110 THRU 113 ENDDATA 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-19-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN HEAT 01 - STATIC HEAT TRANSFER ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE HQG=APPEND/HPGG=APPEND/HUGV=APPEND/HGM=SAVE/HKNN=SAVE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/ NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND HP1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND HP1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/ HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL HP1 $ 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-19-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 GP3 GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,HGEI,HGPECT,,,,,/ HLUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL $ 23 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ 24 COND ERROR4,NOELMT $ 25 PURGE HKGGX/NOSIMP $ 26 COND HLBL1,NOSIMP $ 27 PARAM //*ADD*/HNOKGG/1/0 $ 28 EMG HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $ 29 PURGE HKGGX/HNOKGG $ 30 COND HLBL1,HNOKGG $ 31 EMA HGPECT,HKDICT,HKELM/HKGGX $ 32 PURGE HKDICT,HKELM/MINUS1 $ 33 LABEL HLBL1 $ 34 EQUIV HKGGX,HKGG/NOGENL $ 35 COND HLBL11A,NOGENL $ 36 SMA3 HGEI,HKGGX/HKGG/HLUSET/NOGENL/NOSIMP $ 37 LABEL HLBL11A $ 38 GPSTGEN HKGG,HSIL/GPST $ 39 PARAM //*MPY*/NSKIP/0/0 $ 40 LABEL HLBL11 $ 41 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,HUSET, HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,HREPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-19-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 OFP OGPST,,,,,//S,N,CARDNO $ 43 COND ERROR3,NOL $ 44 PARAM //*AND*/NOSR/SINGLE/REACT $ 45 PURGE HKRR,HKLR,HQR,HDM/REACT/GM/MPCF1/HGO,HKOO,HLOO,HPO,HUOOV, HRUOV/OMIT/HPS,HKFS,HKSS/SINGLE/HQG/NOSR $ 46 EQUIV HKGG,HKNN/MPCF1 $ 47 COND HLBL2,MPCF1 $ 48 MCE1 HUSET,RG/GM $ 49 MCE2 HUSET,GM,HKGG,,,/HKNN,,, $ 50 LABEL HLBL2 $ 51 EQUIV HKNN,HKFF/SINGLE $ 52 COND HLBL3,SINGLE $ 53 SCE1 HUSET,HKNN,,,/HKFF,HKFS,HKSS,,, $ 54 LABEL HLBL3 $ 55 EQUIV HKFF,HKAA/OMIT $ 56 COND HLBL5,OMIT $ 57 SMP1 HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $ 58 LABEL HLBL5 $ 59 EQUIV HKAA,HKLL/REACT $ 60 COND HLBL6,REACT $ 61 RBMG1 HUSET,HKAA,/HKLL,HKLR,HKRR,,, $ 62 LABEL HLBL6 $ 63 RBMG2 HKLL/HLLL $ 64 COND HLBL7,REACT $ 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-19-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 65 RBMG3 HLLL,HKLR,HKRR/HDM $ 66 LABEL HLBL7 $ 67 MAGBDY GEOM1,HEQEXIN/PER/S,N,IPG $ 67 SSG1 HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,PER/ HPG,HCFLD,REMFLD,HCCEN,NSLT/HLUSET/NSKIP $ 68 EQUIV HPG,HPL/NOSET $ 69 COND HLBL10,NOSET $ 70 SSG2 HUSET,GM,YS,HKFS,HGO,HDM,HPG/HQR,HPO,HPS,HPL $ 71 LABEL HLBL10 $ 72 SSG3 HLLL,HKLL,HPL,HLOO,HKOO,HPO/HULV,HUOOV,HRULV,HRUOV/OMIT/ V,Y,IRES=-1/NSKIP/S,N,EPSI $ 73 COND HLBL9,IRES $ 74 MATGPR GPL,HUSET,HSIL,HRULV//*L* $ 75 MATGPR GPL,HUSET,HSIL,HRUOV//*O* $ 76 LABEL HLBL9 $ 77 SDR1 HUSET,HPG,HULV,HUOOV,YS,HGO,GM,HPS,HKFS,HKSS,HQR/HUGV,HPGG, HQG/NSKIP/*HSTATICS* $ 77 SDR1, ,HCFLD,,,,,,,,, /,HCFLDG,/V,N,NSKIP/C,N,STATICS $ 77 SDR1, ,HCCEN,,,,,,,,, /,HCCENG,/V,N,NSKIP/C,N,STATICS $ 77 SDR1, ,REMFLD,,,,,,,,,/,REMFLG,/V,N,NSKIP/C,N,STATICS $ 78 COND HLBL8,HREPEAT $ 79 REPT HLBL11,100 $ 80 JUMP ERROR1 $ 81 PARAM //*NOT*/HTEST/HREPEAT $ 82 COND ERROR2,HTEST $ 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-19-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 83 LABEL HLBL8 $ 84 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV, HEST,,HPGG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/ *STATICS* $ 84 EMFLD HOEF1,HEST,CASECC,HCFLDG,MPT,DIT,REMFLG,GEOM1,CSTM, HCCENG/HOEH1/V,N,HLUSET $ 85 OFP HOUGV1,HOPG1,HOQG1,HOEF1,,//S,N,CARDNO $ 85 OFP HOEH1,,,,,//S,N,CARDNO $ 85 PROLATE GEOM1,HEQEXIN,BGPDT,CASECC,NSLT,HUGV,REMFLG,HEST,MPT,DIT/PROCOF$ 85 OUTPUT2 PROCOF,,,,//0/11 $ 85 TABPT PROCOF,,,,// $ 86 COND HP2,JUMPPLOT $ 87 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIP,HPUGV1,HOES1, HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ 88 PRTMSG PLOTX2// $ 89 LABEL HP2 $ 90 JUMP FINIS $ 91 LABEL ERROR1 $ 92 PRTPARM //-1/*HSTA* $ 93 LABEL ERROR2 $ 94 PRTPARM //-2/*HSTA* $ 95 LABEL ERROR3 $ 96 PRTPARM //-3/*HSTA* $ 97 LABEL ERROR4 $ 98 PRTPARM //-4/*HSTA* $ 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T01-19-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 99 LABEL FINIS $ 100 PURGE DUMMY/MINUS1 $ 101 END $ 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T01-19-1A 0 0 *** USER POTENTIALLY FATAL MESSAGE 22, POSSIBLE ERROR IN DMAP INSTRUCTION MAGBDY INSTRUCTION NO. 67 DATA BLOCK NAMED HEQEXIN APPEARS AS INPUT BEFORE BEING DEFINED 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T01-19-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 8 PROFILE 100 MAX WAVEFRONT 8 AVG WAVEFRONT 2.778 RMS WAVEFRONT 3.249 RMS BANDWIDTH 3.249 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 8 PROFILE 100 MAX WAVEFRONT 8 AVG WAVEFRONT 2.778 RMS WAVEFRONT 3.249 RMS BANDWIDTH 3.249 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 8 8 PROFILE (P) 100 100 MAXIMUM WAVEFRONT (C-MAX) 8 8 AVERAGE WAVEFRONT (C-AVG) 2.778 2.778 RMS WAVEFRONT (C-RMS) 3.249 3.249 RMS BANDWITCH (B-RMS) 3.249 3.249 NUMBER OF GRID POINTS (N) 36 NUMBER OF ELEMENTS (NON-RIGID) 9 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 9 MAXIMUM NODAL DEGREE 7 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 64 MATRIX DENSITY, PERCENT 12.654 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK HEQEXIN MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION IS2D8 ELEMENTS (ELEMENT TYPE 80) STARTING WITH ID 100 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QDMEM ELEMENTS (ELEMENT TYPE 16) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD1 ELEMENTS (ELEMENT TYPE 19) STARTING WITH ID 2 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 4 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIA1 ELEMENTS (ELEMENT TYPE 6) STARTING WITH ID 5 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIA2 ELEMENTS (ELEMENT TYPE 17) STARTING WITH ID 6 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRMEM ELEMENTS (ELEMENT TYPE 9) STARTING WITH ID 8 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK HEQEXIN MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON 103, FROM ( 9, 1), TO ( 9, 7) 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -2.1190513E-16 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = -4.0494909E-16 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 3, EPSILON SUB E = -3.5833078E-16 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 4, EPSILON SUB E = -4.3837492E-17 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 5, EPSILON SUB E = 4.5067096E-17 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 6, EPSILON SUB E = 7.1159569E-17 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 7, EPSILON SUB E = -4.0974073E-16 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK HEQEXIN MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 0.0 -1.602771E+02 -1.568052E+02 0.0 -1.602771E+02 -1.568052E+02 7 S 0.0 -1.602771E+02 -1.568052E+02 0.0 -1.803118E+02 -2.643118E+02 13 S -8.400000E+01 0.0 -1.803118E+02 -2.643118E+02 -8.400000E+01 0.0 19 S -1.803118E+02 -2.643118E+02 -8.400000E+01 0.0 -1.803118E+02 -2.643118E+02 25 S -8.400000E+01 0.0 -1.602771E+02 -1.568052E+02 110 S 0.0 -1.803118E+02 -2.643117E+02 -8.399998E+01 210 S -9.015587E+01 -2.223118E+02 -1.741559E+02 -4.199999E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 0.0 -1.602771E+02 -1.568052E+02 0.0 -1.602771E+02 -1.568052E+02 7 S 0.0 -1.602771E+02 -1.568052E+02 0.0 -1.760382E+02 -2.643118E+02 13 S -7.972639E+01 0.0 -1.760382E+02 -2.643118E+02 -7.972639E+01 0.0 19 S -1.760382E+02 -2.643118E+02 -7.972639E+01 0.0 -1.760382E+02 -2.643118E+02 25 S -7.972639E+01 0.0 -1.602771E+02 -1.568052E+02 110 S 0.0 -1.671576E+02 -2.580859E+02 -6.528661E+01 210 S -7.473998E+01 -2.073717E+02 -1.616862E+02 -2.689331E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 0.0 -3.205542E+02 -3.136104E+02 0.0 -3.205542E+02 -3.136104E+02 7 S 0.0 -3.205543E+02 -3.136104E+02 0.0 -3.563499E+02 -5.286235E+02 13 S -1.637264E+02 0.0 -3.563499E+02 -5.286235E+02 -1.637264E+02 0.0 19 S -3.563499E+02 -5.286235E+02 -1.637264E+02 0.0 -3.563499E+02 -5.286235E+02 25 S -1.637264E+02 0.0 -3.205543E+02 -3.136104E+02 110 S 0.0 -3.474694E+02 -5.223976E+02 -1.492866E+02 210 S -1.648958E+02 -4.296835E+02 -3.358421E+02 -6.889330E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 0.0 -1.602771E+02 -1.568052E+02 0.0 -1.602771E+02 -1.568052E+02 7 S 0.0 -1.602771E+02 -1.568052E+02 0.0 -1.781750E+02 -2.643118E+02 13 S -8.186319E+01 0.0 -1.781750E+02 -2.643118E+02 -8.186319E+01 0.0 19 S -1.781750E+02 -2.643118E+02 -8.186319E+01 0.0 -1.781750E+02 -2.643118E+02 25 S -8.186319E+01 0.0 -1.602771E+02 -1.568052E+02 110 S 0.0 -1.737347E+02 -2.611988E+02 -7.464330E+01 210 S -8.244792E+01 -2.148418E+02 -1.679211E+02 -3.444665E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 0.0 -2.876360E-01 -1.594546E+00 0.0 -2.876360E-01 -1.594546E+00 7 S 0.0 -2.876360E-01 -1.594545E+00 0.0 -3.880714E-01 -1.767931E+00 13 S -1.256972E+00 0.0 -3.880714E-01 -1.767931E+00 -1.256972E+00 0.0 19 S -3.880714E-01 -1.767931E+00 -1.256972E+00 0.0 -3.880714E-01 -1.767931E+00 25 S -1.256972E+00 0.0 -2.876360E-01 -1.594545E+00 110 S 0.0 -8.759369E-02 -1.690579E+00 -1.217009E+00 210 S 8.366556E-02 -1.126326E+00 -1.206402E+00 -6.304914E-01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 0.0 -2.846147E-01 -1.587854E+00 0.0 -2.846147E-01 -1.587854E+00 7 S 0.0 -2.846147E-01 -1.587854E+00 0.0 -3.840474E-01 -1.760479E+00 13 S -1.253651E+00 0.0 -3.840472E-01 -1.760478E+00 -1.253651E+00 0.0 19 S -3.840474E-01 -1.760479E+00 -1.253651E+00 0.0 -3.840474E-01 -1.760479E+00 25 S -1.253651E+00 0.0 -2.846147E-01 -1.587854E+00 110 S 0.0 -8.631366E-02 -1.685932E+00 -1.214901E+00 210 S 8.181333E-02 -1.120497E+00 -1.203998E+00 -6.294569E-01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 0.0 5.141344E-02 5.421922E-02 0.0 5.141344E-02 5.421922E-02 7 S 0.0 5.141344E-02 5.421921E-02 0.0 4.809584E-02 7.312070E-02 13 S 2.341378E-02 0.0 4.809583E-02 7.312069E-02 2.341378E-02 0.0 19 S 4.809584E-02 7.312070E-02 2.341378E-02 0.0 4.809584E-02 7.312070E-02 25 S 2.341378E-02 0.0 5.141344E-02 5.421922E-02 110 S 0.0 4.194599E-02 6.114474E-02 1.281794E-02 210 S -2.405571E-03 5.656438E-02 2.613910E-02 4.891117E-03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 0.0 0.0 0.0 0.0 0.0 0.0 7 S 0.0 0.0 0.0 0.0 -8.485258E+01 -1.448526E+02 13 S -5.999999E+01 0.0 0.0 0.0 0.0 0.0 19 S 0.0 0.0 0.0 0.0 0.0 0.0 25 S 0.0 0.0 0.0 0.0 110 S 0.0 -8.485259E+01 -1.448526E+02 -5.999996E+01 210 S -4.242628E+01 -1.148526E+02 -1.024263E+02 -2.999998E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 3.920131E+04 -8.680720E+02 -3.833323E+04 3.920131E+04 -8.680720E+02 -3.833323E+04 7 S 3.920130E+04 -8.680740E+02 -3.833323E+04 6.453892E+04 1.946086E+04 -6.453893E+04 13 S -1.946086E+04 6.453892E+04 1.946086E+04 -6.453892E+04 -1.946086E+04 6.453892E+04 19 S 1.946086E+04 -6.453893E+04 -1.946086E+04 6.453893E+04 1.946086E+04 -6.453892E+04 25 S -1.946086E+04 3.920130E+04 -8.680740E+02 -3.833323E+04 110 S 2.151297E+04 6.486952E+03 -2.151297E+04 -6.486957E+03 210 S 5.599986E+04 -3.005203E+04 -5.599986E+04 3.005204E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 3.920130E+04 -8.680739E+02 -3.833323E+04 3.920130E+04 -8.680739E+02 -3.833323E+04 7 S 3.920130E+04 -8.680759E+02 -3.833323E+04 6.186792E+04 2.213186E+04 -6.720992E+04 13 S -1.678986E+04 6.186792E+04 2.213186E+04 -6.720992E+04 -1.678986E+04 6.186792E+04 19 S 2.213186E+04 -6.720992E+04 -1.678986E+04 6.186792E+04 2.213186E+04 -6.720992E+04 25 S -1.678986E+04 3.920130E+04 -8.680759E+02 -3.833323E+04 110 S 9.433347E+03 -2.843848E+01 -3.238828E+04 -1.224247E+04 210 S 5.992823E+04 -1.560762E+04 -5.403566E+04 4.494089E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 7.840261E+04 -1.736146E+03 -7.666647E+04 7.840261E+04 -1.736146E+03 -7.666647E+04 7 S 7.840261E+04 -1.736150E+03 -7.666647E+04 1.264068E+05 4.159273E+04 -1.317488E+05 13 S -3.625073E+04 1.264068E+05 4.159273E+04 -1.317488E+05 -3.625072E+04 1.264068E+05 19 S 4.159273E+04 -1.317488E+05 -3.625073E+04 1.264068E+05 4.159273E+04 -1.317488E+05 25 S -3.625072E+04 7.840261E+04 -1.736150E+03 -7.666647E+04 110 S 3.094631E+04 6.458514E+03 -5.390125E+04 -1.872943E+04 210 S 1.159281E+05 -4.565966E+04 -1.100355E+05 7.499293E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 3.920130E+04 -8.680729E+02 -3.833323E+04 3.920130E+04 -8.680729E+02 -3.833323E+04 7 S 3.920130E+04 -8.680750E+02 -3.833323E+04 6.320342E+04 2.079636E+04 -6.587442E+04 13 S -1.812536E+04 6.320342E+04 2.079636E+04 -6.587442E+04 -1.812536E+04 6.320342E+04 19 S 2.079636E+04 -6.587442E+04 -1.812536E+04 6.320342E+04 2.079636E+04 -6.587442E+04 25 S -1.812536E+04 3.920130E+04 -8.680750E+02 -3.833323E+04 110 S 1.547316E+04 3.229257E+03 -2.695062E+04 -9.364715E+03 210 S 5.796404E+04 -2.282983E+04 -5.501776E+04 3.749646E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 3.986356E+02 3.267264E+02 -7.253619E+02 3.986356E+02 3.267264E+02 -7.253619E+02 7 S 3.986355E+02 3.267263E+02 -7.253619E+02 6.769934E+02 6.414192E+02 -7.537983E+02 13 S -5.646143E+02 6.769934E+02 6.414192E+02 -7.537983E+02 -5.646143E+02 6.769934E+02 19 S 6.414192E+02 -7.537983E+02 -5.646143E+02 6.769934E+02 6.414192E+02 -7.537983E+02 25 S -5.646142E+02 3.986355E+02 3.267263E+02 -7.253619E+02 110 S 2.683082E+02 4.090473E+02 -1.280367E+02 -1.079526E+02 210 S 9.983201E+02 -5.119836E+02 -7.484164E+02 -1.792863E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 3.969626E+02 3.258087E+02 -7.227713E+02 3.969626E+02 3.258087E+02 -7.227713E+02 7 S 3.969626E+02 3.258087E+02 -7.227712E+02 6.748302E+02 6.402078E+02 -7.515674E+02 13 S -5.634706E+02 6.748301E+02 6.402078E+02 -7.515674E+02 -5.634706E+02 6.748302E+02 19 S 6.402078E+02 -7.515674E+02 -5.634706E+02 6.748301E+02 6.402078E+02 -7.515674E+02 25 S -5.634706E+02 3.969626E+02 3.258087E+02 -7.227712E+02 110 S 2.670606E+02 4.065747E+02 -1.291658E+02 -1.083812E+02 210 S 9.944961E+02 -5.062684E+02 -7.469031E+02 -1.774130E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S -1.355480E+01 -7.014089E-01 1.425621E+01 -1.355480E+01 -7.014089E-01 1.425621E+01 7 S -1.355480E+01 -7.014085E-01 1.425621E+01 -1.771886E+01 -6.500403E+00 1.872578E+01 13 S 5.493482E+00 -1.771886E+01 -6.500402E+00 1.872578E+01 5.493482E+00 -1.771886E+01 19 S -6.500403E+00 1.872578E+01 5.493482E+00 -1.771886E+01 -6.500403E+00 1.872578E+01 25 S 5.493481E+00 -1.355480E+01 -7.014090E-01 1.425621E+01 110 S 5.990481E-02 -5.015969E-02 8.008190E+00 5.459590E+00 210 S -2.904379E+01 1.582254E+01 6.229857E+00 -6.486140E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 10 S 4.060652E+04 1.939332E+04 -4.060652E+04 -1.939332E+04 110 S 1.353550E+04 6.464438E+03 -1.353551E+04 -6.464438E+03 210 S 3.999990E+04 -1.414214E+04 -3.999989E+04 1.414214E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 1 QDMEM -4.507807E+01 -4.200001E+01 1.126952E+04 1.050000E+04 3 QDMEM 4.200000E+01 -4.507807E+01 -1.050000E+04 1.126952E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 2 QUAD1 4.507806E+01 -4.200000E+01 -1.126952E+04 1.050000E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 4 QUAD2 4.507806E+01 4.200000E+01 -1.126952E+04 -1.050000E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 5 TRIA1 4.006938E+01 -3.833334E+01 -1.001735E+04 9.583335E+03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 6 TRIA2 5.543909E+01 -1.227642E+00 -1.385977E+04 3.069105E+02 7 TRIA2 1.227501E+00 5.543909E+01 -3.068752E+02 -1.385977E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 8 TRMEM -4.006938E+01 -3.833333E+01 1.001735E+04 9.583333E+03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 1 QDMEM -4.507806E+01 -4.200000E+01 1.126951E+04 1.050000E+04 3 QDMEM 4.200000E+01 -4.507806E+01 -1.050000E+04 1.126952E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 2 QUAD1 4.507806E+01 -4.200000E+01 -1.126952E+04 1.050000E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 4 QUAD2 4.507806E+01 4.200001E+01 -1.126952E+04 -1.050000E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 5 TRIA1 4.006938E+01 -3.833333E+01 -1.001735E+04 9.583333E+03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 6 TRIA2 5.543909E+01 -1.227638E+00 -1.385977E+04 3.069095E+02 7 TRIA2 1.227501E+00 5.543909E+01 -3.068752E+02 -1.385977E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 8 TRMEM -4.006938E+01 -3.833332E+01 1.001735E+04 9.583331E+03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 1 QDMEM -9.015613E+01 -8.400001E+01 2.253903E+04 2.100000E+04 3 QDMEM 8.400000E+01 -9.015613E+01 -2.100000E+04 2.253903E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 2 QUAD1 9.015613E+01 -8.400000E+01 -2.253903E+04 2.100000E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 4 QUAD2 9.015613E+01 8.400000E+01 -2.253903E+04 -2.100000E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 5 TRIA1 8.013877E+01 -7.666667E+01 -2.003469E+04 1.916667E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 6 TRIA2 1.108782E+02 -2.455292E+00 -2.771954E+04 6.138229E+02 7 TRIA2 2.455009E+00 1.108782E+02 -6.137524E+02 -2.771954E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 8 TRMEM -8.013877E+01 -7.666666E+01 2.003469E+04 1.916666E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 1 QDMEM -4.507806E+01 -4.200000E+01 1.126952E+04 1.050000E+04 3 QDMEM 4.199999E+01 -4.507806E+01 -1.050000E+04 1.126952E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 2 QUAD1 4.507806E+01 -4.200000E+01 -1.126952E+04 1.050000E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 4 QUAD2 4.507806E+01 4.200000E+01 -1.126952E+04 -1.050000E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 54 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 5 TRIA1 4.006938E+01 -3.833333E+01 -1.001735E+04 9.583333E+03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 55 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 6 TRIA2 5.543909E+01 -1.227638E+00 -1.385977E+04 3.069095E+02 7 TRIA2 1.227501E+00 5.543909E+01 -3.068752E+02 -1.385977E+04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 56 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 8 TRMEM -4.006938E+01 -3.833332E+01 1.001735E+04 9.583331E+03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 57 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 1 QDMEM -1.123791E-01 -6.592081E-01 2.809479E+01 1.648020E+02 3 QDMEM 6.592080E-01 -1.123792E-01 -1.648020E+02 2.809479E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 58 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 2 QUAD1 1.123792E-01 -6.592081E-01 -2.809479E+01 1.648020E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 59 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 4 QUAD2 1.123791E-01 6.592081E-01 -2.809479E+01 -1.648020E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 60 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 5 TRIA1 7.190918E-02 -7.253638E-01 -1.797729E+01 1.813409E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 61 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 6 TRIA2 5.637577E-01 4.620614E-01 -1.409394E+02 -1.155154E+02 7 TRIA2 -4.620629E-01 5.637565E-01 1.155157E+02 -1.409391E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 62 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 8 TRMEM -7.190918E-02 -7.253638E-01 1.797729E+01 1.813409E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 63 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 1 QDMEM -1.113596E-01 -6.575208E-01 2.783990E+01 1.643802E+02 3 QDMEM 6.575207E-01 -1.113596E-01 -1.643802E+02 2.783991E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 64 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 2 QUAD1 1.113596E-01 -6.575207E-01 -2.783989E+01 1.643802E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 65 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 4 QUAD2 1.113596E-01 6.575208E-01 -2.783991E+01 -1.643802E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 66 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 5 TRIA1 7.115387E-02 -7.227731E-01 -1.778847E+01 1.806933E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 67 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 6 TRIA2 5.613917E-01 4.607636E-01 -1.403479E+02 -1.151909E+02 7 TRIA2 -4.607651E-01 5.613905E-01 1.151913E+02 -1.403476E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 68 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 8 TRMEM -7.115387E-02 -7.227731E-01 1.778847E+01 1.806933E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 69 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 1 QDMEM 1.222538E-02 1.210966E-02 -3.056344E+00 -3.027415E+00 3 QDMEM -1.210966E-02 1.222538E-02 3.027415E+00 -3.056344E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 70 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 2 QUAD1 -1.222537E-02 1.210966E-02 3.056344E+00 -3.027415E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 71 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 4 QUAD2 -1.222538E-02 -1.210966E-02 3.056344E+00 3.027415E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 72 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 5 TRIA1 -1.285339E-02 1.425625E-02 3.213349E+00 -3.564062E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 73 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 6 TRIA2 -1.916941E-02 -9.919442E-04 4.792353E+00 2.479860E-01 7 TRIA2 9.919908E-04 -1.916941E-02 -2.479977E-01 4.792352E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 74 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 8 TRMEM 1.285339E-02 1.425625E-02 -3.213349E+00 -3.564061E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 75 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 1 QDMEM -2.121320E+01 -3.000000E+01 5.303300E+03 7.500000E+03 3 QDMEM 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 76 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 2 QUAD1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 77 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 4 QUAD2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 78 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 5 TRIA1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 79 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 6 TRIA2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7 TRIA2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 80 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 8 TRMEM 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 81 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 1 QDMEM -3.187501E+01 -3.187501E+01 -4.200001E+01 6.562480E+02 6.562520E+02 -1.953125E-03 3 QDMEM -3.187501E+01 -3.187501E+01 -4.200000E+01 6.562476E+02 6.562524E+02 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 82 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 2 QUAD1 -3.187500E+01 -3.187500E+01 -4.200000E+01 6.562490E+02 6.562510E+02 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 83 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 4 QUAD2 -3.187500E+01 -3.187500E+01 -4.200000E+01 6.562510E+02 -6.562490E+02 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 84 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 5 TRIA1 -2.833333E+01 -2.833333E+01 -3.833334E+01 7.500005E+02 7.499995E+02 -1.953125E-03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 85 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 6 TRIA2 -2.833333E+01 -2.833333E+01 -3.833333E+01 -7.499995E+02 7.500005E+02 0.000000E+00 7 TRIA2 -2.833333E+01 -2.833333E+01 -3.833333E+01 -7.500000E+02 7.500000E+02 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 86 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 1 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 8 TRMEM -2.833333E+01 -2.833333E+01 -3.833333E+01 -7.499995E+02 7.500005E+02 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 87 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 1 QDMEM -2.625002E+00 2.624998E+00 -3.814697E-06 6.562495E+02 6.562505E+02 -9.536743E-04 3 QDMEM -2.625008E+00 2.624992E+00 0.000000E+00 6.562481E+02 6.562519E+02 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 88 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 2 QUAD1 -2.625004E+00 2.624996E+00 -3.814697E-06 6.562490E+02 6.562510E+02 -9.536743E-04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 89 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 4 QUAD2 -2.625004E+00 2.624996E+00 -7.629395E-06 6.562510E+02 -6.562490E+02 -1.907349E-03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 90 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 5 TRIA1 -2.999996E+00 3.000004E+00 0.000000E+00 7.500010E+02 7.499990E+02 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 91 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 6 TRIA2 -2.999996E+00 3.000004E+00 -3.814697E-06 -7.499990E+02 7.500010E+02 -9.536743E-04 7 TRIA2 -2.999998E+00 3.000002E+00 0.000000E+00 -7.499995E+02 7.500005E+02 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 92 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 2 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 8 TRMEM -2.999996E+00 3.000004E+00 7.629395E-06 -7.499990E+02 7.500010E+02 1.907349E-03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 93 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 1 QDMEM -3.450001E+01 -2.925001E+01 -4.200001E+01 1.312498E+03 1.312502E+03 -1.953125E-03 3 QDMEM -3.450002E+01 -2.925002E+01 -4.200000E+01 1.312496E+03 1.312504E+03 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 94 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 2 QUAD1 -3.450001E+01 -2.925001E+01 -4.200000E+01 1.312498E+03 1.312502E+03 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 95 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 4 QUAD2 -3.450001E+01 -2.925001E+01 -4.200000E+01 1.312502E+03 -1.312498E+03 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 96 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 5 TRIA1 -3.133333E+01 -2.533333E+01 -3.833334E+01 1.500000E+03 1.500000E+03 -1.953125E-03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 97 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 6 TRIA2 -3.133333E+01 -2.533333E+01 -3.833332E+01 -1.500000E+03 1.500000E+03 1.953125E-03 7 TRIA2 -3.133333E+01 -2.533333E+01 -3.833333E+01 -1.500000E+03 1.500000E+03 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 98 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 3 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 8 TRMEM -3.133333E+01 -2.533333E+01 -3.833332E+01 -1.500000E+03 1.500000E+03 1.953125E-03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 99 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 1 QDMEM -1.725000E+01 -1.462500E+01 -2.100000E+01 6.562490E+02 6.562510E+02 0.000000E+00 3 QDMEM -1.725001E+01 -1.462501E+01 -2.099999E+01 6.562480E+02 6.562520E+02 1.953125E-03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 100 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 2 QUAD1 -1.725000E+01 -1.462500E+01 -2.100000E+01 6.562490E+02 6.562510E+02 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 101 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 4 QUAD2 -1.725000E+01 -1.462500E+01 -2.100000E+01 6.562510E+02 -6.562490E+02 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 102 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 5 TRIA1 -1.566666E+01 -1.266666E+01 -1.916667E+01 7.500007E+02 7.499993E+02 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 103 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 6 TRIA2 -1.566666E+01 -1.266666E+01 -1.916667E+01 -7.499993E+02 7.500007E+02 -9.765625E-04 7 TRIA2 -1.566667E+01 -1.266667E+01 -1.916667E+01 -7.499998E+02 7.500002E+02 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 104 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCOM 4 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 8 TRMEM -1.566666E+01 -1.266666E+01 -1.916666E+01 -7.499993E+02 7.500007E+02 1.953125E-03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 105 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 1 QDMEM -6.715304E-02 2.720498E-02 -1.488525E-02 6.801246E+00 1.678826E+01 -3.721312E+00 3 QDMEM -6.715306E-02 2.720497E-02 -1.488519E-02 6.801242E+00 1.678827E+01 -3.721297E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 106 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 2 QUAD1 -6.715305E-02 2.720498E-02 -1.488525E-02 6.801244E+00 1.678826E+01 -3.721312E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 107 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 4 QUAD2 -6.715304E-02 2.720498E-02 -1.488525E-02 1.678826E+01 -6.801246E+00 -3.721312E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 108 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 5 TRIA1 -4.148611E-02 3.028449E-02 -2.495229E-02 7.571124E+00 1.037153E+01 -6.238073E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 109 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 6 TRIA2 -4.148609E-02 3.028451E-02 -2.495223E-02 -1.037152E+01 7.571127E+00 -6.238058E+00 7 TRIA2 -4.148608E-02 3.028452E-02 -2.495223E-02 -1.037152E+01 7.571131E+00 -6.238058E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 110 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 5 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 8 TRMEM -4.148611E-02 3.028449E-02 -2.495229E-02 -1.037153E+01 7.571124E+00 -6.238073E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 111 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 1 QDMEM -6.646805E-02 2.697241E-02 -1.485234E-02 6.743102E+00 1.661701E+01 -3.713086E+00 3 QDMEM -6.646807E-02 2.697239E-02 -1.485229E-02 6.743098E+00 1.661702E+01 -3.713071E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 112 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 2 QUAD1 -6.646802E-02 2.697244E-02 -1.485229E-02 6.743111E+00 1.661700E+01 -3.713071E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 113 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 4 QUAD2 -6.646806E-02 2.697240E-02 -1.485234E-02 1.661702E+01 -6.743100E+00 -3.713086E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 114 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 5 TRIA1 -4.098652E-02 3.001150E-02 -2.461004E-02 7.502874E+00 1.024663E+01 -6.152511E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 115 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 6 TRIA2 -4.098652E-02 3.001150E-02 -2.460998E-02 -1.024663E+01 7.502874E+00 -6.152496E+00 7 TRIA2 -4.098650E-02 3.001151E-02 -2.460998E-02 -1.024663E+01 7.502878E+00 -6.152496E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 116 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 6 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 8 TRMEM -4.098652E-02 3.001150E-02 -2.461004E-02 -1.024663E+01 7.502874E+00 -6.152511E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 117 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 1 QDMEM 6.058245E-03 -7.906745E-03 -3.284845E-03 -1.976686E+00 -1.514561E+00 -8.212112E-01 3 QDMEM 6.058245E-03 -7.906745E-03 -3.284846E-03 -1.976686E+00 -1.514561E+00 -8.212114E-01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 118 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 2 QUAD1 6.058243E-03 -7.906747E-03 -3.284845E-03 -1.976687E+00 -1.514561E+00 -8.212112E-01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 119 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 4 QUAD2 6.058244E-03 -7.906746E-03 -3.284845E-03 -1.514561E+00 1.976686E+00 -8.212112E-01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 120 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 5 TRIA1 9.858947E-03 -9.752034E-03 -1.652496E-03 -2.438009E+00 -2.464737E+00 -4.131240E-01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 121 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 6 TRIA2 9.858945E-03 -9.752036E-03 -1.652497E-03 2.464736E+00 -2.438009E+00 -4.131242E-01 7 TRIA2 9.858947E-03 -9.752034E-03 -1.652497E-03 2.464737E+00 -2.438009E+00 -4.131242E-01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 122 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 7 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 8 TRMEM 9.858947E-03 -9.752034E-03 -1.652499E-03 2.464737E+00 -2.438009E+00 -4.131247E-01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 123 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 1 QDMEM -4.999997E+00 5.000003E+00 0.000000E+00 1.250001E+03 1.249999E+03 0.000000E+00 3 QDMEM 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 124 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 2 QUAD1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 125 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 4 QUAD2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 126 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 5 TRIA1 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 127 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 6 TRIA2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7 TRIA2 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 128 NASTRAN TEST PROBLEM NO. T01-19-1A 0 SUBCASE 100 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 8 TRMEM 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0*** SYSTEM INFORMATION MESSAGE, NO PROLAT CARD FOUND * * * END OF JOB * * * 1 JOB TITLE = ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS DATE: 5/17/95 END TIME: 16:32:24 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t01201a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01201A,NASTRAN APP HEAT SOL 1,0 TIME 10 DIAG 14 ALTER 67,67 $ SSG1 HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,/ HPG,HCFLD,REMFLD,HCCEN,NSLT/HLUSET/NSKIP $ ALTER 84 $ EMFLD HOEF1,HEST,CASECC,HCFLD,MPT,DIT,REMFLD,GEOM1,CSTM,HCCEN/HOEH1/ V,N,HLUSET $ ALTER 85 $ OFP HOEH1,,,,,//S,N,CARDNO$ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-20-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-20-1A 3 DISP = ALL 4 ELFORCE = ALL 5 OLOAD = ALL 6 SUBCASE 1 7 LOAD = 50 8 SUBCASE 2 9 LOAD = 51 10 SUBCASE 3 11 LOAD = 12 12 SUBCOM 20 13 SUBSEQ = .5,.5,0. 14 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 49, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-20-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CEMLOOP 12 5. 0 5. 0. 0. 1.25 3.75 +CM12 2- +CM12 0. 1.25 0. 0. 3- CEMLOOP 12 5. 0 5. 0. 0. 1.25 3.75 +CM13 4- +CM13 0. 1.25 0. 0. 5- CHEXA1 20 2 21 22 23 24 25 26 +E1 6- +E1 27 28 7- CHEXA2 22 2 31 32 33 34 35 36 +E2 8- +E2 37 38 9- CTETRA 16 2 1 2 3 4 10- CWEDGE 18 2 11 12 13 14 15 16 11- GRID 1 1. 0. 3. 1 12- GRID 2 2. 0. 3. 13- GRID 3 3. 2. 3. 14- GRID 4 2. 1. 5. 15- GRID 11 1. 2. 1. 1 16- GRID 12 3. 1. -3. 17- GRID 13 6. 2. 2. 18- GRID 14 1. 6. 1. 19- GRID 15 4. 4. -3. 20- GRID 16 5. 6. 1. 21- GRID 21 1. 2. 1. 1 22- GRID 22 2. .5 3. 23- GRID 23 7. 2. 4. 24- GRID 24 5. 3. 2. 25- GRID 25 1.5 5. 2. 26- GRID 26 2.5 5. 3. 27- GRID 27 7. 6. 4. 28- GRID 28 6. 9. 3. 29- GRID 31 1. 2. 1. 1 30- GRID 32 2. .5 3. 31- GRID 33 7. 2. 4. 32- GRID 34 5. 3. 2. 33- GRID 35 1.5 5. 2. 34- GRID 36 2.5 5. 3. 35- GRID 37 7. 6. 4. 36- GRID 38 6. 9. 3. 37- MAT4 2 250. 38- MDIPOLE 12 0 5. 0. 0. 10. 10. 10. +M1 39- +M1 0. 0. 40- REMFLUX 51 750. 1000. 500. 20 41- REMFLUX 51 1000. 250. 750. 22 42- REMFLUX 51 500. 0. 250. 16 43- REMFLUX 51 250. 500. 750. 18 44- SPCFLD 50 0 2. 0. 1. 1 2 3 45- SPCFLD 50 0 2. 0. 1. 4 46- SPCFLD 50 0 1. 2. 3. 11 12 13 47- SPCFLD 50 0 1. 2. 3. 14 15 16 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-20-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- SPCFLD 50 0 3. 4. 2. 21 THRU 28 49- SPCFLD 50 0 4. 1. 3. 31 THRU 38 ENDDATA 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-20-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN HEAT 01 - STATIC HEAT TRANSFER ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE HQG=APPEND/HPGG=APPEND/HUGV=APPEND/HGM=SAVE/HKNN=SAVE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/ NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND HP1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND HP1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/ HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL HP1 $ 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-20-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 GP3 GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,HGEI,HGPECT,,,,,/ HLUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL $ 23 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ 24 COND ERROR4,NOELMT $ 25 PURGE HKGGX/NOSIMP $ 26 COND HLBL1,NOSIMP $ 27 PARAM //*ADD*/HNOKGG/1/0 $ 28 EMG HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $ 29 PURGE HKGGX/HNOKGG $ 30 COND HLBL1,HNOKGG $ 31 EMA HGPECT,HKDICT,HKELM/HKGGX $ 32 PURGE HKDICT,HKELM/MINUS1 $ 33 LABEL HLBL1 $ 34 EQUIV HKGGX,HKGG/NOGENL $ 35 COND HLBL11A,NOGENL $ 36 SMA3 HGEI,HKGGX/HKGG/HLUSET/NOGENL/NOSIMP $ 37 LABEL HLBL11A $ 38 GPSTGEN HKGG,HSIL/GPST $ 39 PARAM //*MPY*/NSKIP/0/0 $ 40 LABEL HLBL11 $ 41 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,HUSET, HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,HREPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-20-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 OFP OGPST,,,,,//S,N,CARDNO $ 43 COND ERROR3,NOL $ 44 PARAM //*AND*/NOSR/SINGLE/REACT $ 45 PURGE HKRR,HKLR,HQR,HDM/REACT/GM/MPCF1/HGO,HKOO,HLOO,HPO,HUOOV, HRUOV/OMIT/HPS,HKFS,HKSS/SINGLE/HQG/NOSR $ 46 EQUIV HKGG,HKNN/MPCF1 $ 47 COND HLBL2,MPCF1 $ 48 MCE1 HUSET,RG/GM $ 49 MCE2 HUSET,GM,HKGG,,,/HKNN,,, $ 50 LABEL HLBL2 $ 51 EQUIV HKNN,HKFF/SINGLE $ 52 COND HLBL3,SINGLE $ 53 SCE1 HUSET,HKNN,,,/HKFF,HKFS,HKSS,,, $ 54 LABEL HLBL3 $ 55 EQUIV HKFF,HKAA/OMIT $ 56 COND HLBL5,OMIT $ 57 SMP1 HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $ 58 LABEL HLBL5 $ 59 EQUIV HKAA,HKLL/REACT $ 60 COND HLBL6,REACT $ 61 RBMG1 HUSET,HKAA,/HKLL,HKLR,HKRR,,, $ 62 LABEL HLBL6 $ 63 RBMG2 HKLL/HLLL $ 64 COND HLBL7,REACT $ 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-20-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 65 RBMG3 HLLL,HKLR,HKRR/HDM $ 66 LABEL HLBL7 $ 67 SSG1 HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,/ HPG,HCFLD,REMFLD,HCCEN,NSLT/HLUSET/NSKIP $ 68 EQUIV HPG,HPL/NOSET $ 69 COND HLBL10,NOSET $ 70 SSG2 HUSET,GM,YS,HKFS,HGO,HDM,HPG/HQR,HPO,HPS,HPL $ 71 LABEL HLBL10 $ 72 SSG3 HLLL,HKLL,HPL,HLOO,HKOO,HPO/HULV,HUOOV,HRULV,HRUOV/OMIT/ V,Y,IRES=-1/NSKIP/S,N,EPSI $ 73 COND HLBL9,IRES $ 74 MATGPR GPL,HUSET,HSIL,HRULV//*L* $ 75 MATGPR GPL,HUSET,HSIL,HRUOV//*O* $ 76 LABEL HLBL9 $ 77 SDR1 HUSET,HPG,HULV,HUOOV,YS,HGO,GM,HPS,HKFS,HKSS,HQR/HUGV,HPGG, HQG/NSKIP/*HSTATICS* $ 78 COND HLBL8,HREPEAT $ 79 REPT HLBL11,100 $ 80 JUMP ERROR1 $ 81 PARAM //*NOT*/HTEST/HREPEAT $ 82 COND ERROR2,HTEST $ 83 LABEL HLBL8 $ 84 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV, HEST,,HPGG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/ *STATICS* $ 84 EMFLD HOEF1,HEST,CASECC,HCFLD,MPT,DIT,REMFLD,GEOM1,CSTM,HCCEN/HOEH1/ 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-20-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING V,N,HLUSET $ 85 OFP HOUGV1,HOPG1,HOQG1,HOEF1,,//S,N,CARDNO $ 85 OFP HOEH1,,,,,//S,N,CARDNO$ 86 COND HP2,JUMPPLOT $ 87 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIP,HPUGV1,HOES1, HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ 88 PRTMSG PLOTX2// $ 89 LABEL HP2 $ 90 JUMP FINIS $ 91 LABEL ERROR1 $ 92 PRTPARM //-1/*HSTA* $ 93 LABEL ERROR2 $ 94 PRTPARM //-2/*HSTA* $ 95 LABEL ERROR3 $ 96 PRTPARM //-3/*HSTA* $ 97 LABEL ERROR4 $ 98 PRTPARM //-4/*HSTA* $ 99 LABEL FINIS $ 100 PURGE DUMMY/MINUS1 $ 101 END $ 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-20-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 8 PROFILE 103 MAX WAVEFRONT 8 AVG WAVEFRONT 3.962 RMS WAVEFRONT 4.511 RMS BANDWIDTH 4.511 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 8 PROFILE 103 MAX WAVEFRONT 8 AVG WAVEFRONT 3.962 RMS WAVEFRONT 4.511 RMS BANDWIDTH 4.511 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 8 8 PROFILE (P) 103 103 MAXIMUM WAVEFRONT (C-MAX) 8 8 AVERAGE WAVEFRONT (C-AVG) 3.962 3.962 RMS WAVEFRONT (C-RMS) 4.511 4.511 RMS BANDWITCH (B-RMS) 4.511 4.511 NUMBER OF GRID POINTS (N) 26 NUMBER OF ELEMENTS (NON-RIGID) 4 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 4 MAXIMUM NODAL DEGREE 7 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 77 MATRIX DENSITY, PERCENT 26.627 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HEXA1 ELEMENTS (ELEMENT TYPE 41) STARTING WITH ID 20 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HEXA2 ELEMENTS (ELEMENT TYPE 42) STARTING WITH ID 22 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TETRA ELEMENTS (ELEMENT TYPE 39) STARTING WITH ID 16 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION WEDGE ELEMENTS (ELEMENT TYPE 40) STARTING WITH ID 18 0*** USER WARNING MESSAGE 4000, ONE SIDE OF ELEMENT 18 CONNECTING FOUR POINTS IS NOT APPROXIMATELY PLANER. 0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON 103, FROM ( 4, 1), TO ( 4, 3) 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.6306777E-15 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 2.2724452E-15 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 3, EPSILON SUB E = 1.4132512E-15 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 1 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 0.0 -2.000000E+00 -4.000000E+00 -4.000000E+00 11 S 0.0 1.200000E+01 -8.000000E+00 -8.000000E+00 4.999998E+00 -1.200000E+01 21 S 0.0 -1.000000E+00 -2.400000E+01 -1.800000E+01 -1.550000E+01 -2.050000E+01 27 S -4.000000E+01 -4.700000E+01 31 S 0.0 -8.499998E+00 -3.299999E+01 -2.000000E+01 -7.999998E+00 -1.500000E+01 37 S -3.699999E+01 -3.299999E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 2 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 0.0 -2.000000E+00 -4.000000E+00 -4.000000E+00 11 S 0.0 1.200000E+01 -8.000000E+00 -8.000000E+00 5.000000E+00 -1.200000E+01 21 S 0.0 -9.999999E-01 -2.400000E+01 -1.800000E+01 -1.550000E+01 -2.050000E+01 27 S -4.000000E+01 -4.700000E+01 31 S 0.0 -8.500001E+00 -3.300000E+01 -2.000000E+01 -8.000001E+00 -1.500000E+01 37 S -3.700000E+01 -3.300000E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 3 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 0.0 -6.558833E-02 -2.706673E-01 -1.126974E+00 11 S 0.0 3.038230E+00 -8.174294E-01 2.705287E-01 1.053199E+00 4.066616E-01 21 S 0.0 -5.082290E-01 -1.533721E+00 -1.203064E+00 -1.283453E+00 -1.435301E+00 27 S -2.610754E+00 -3.221736E+00 31 S 0.0 -5.194401E-01 -1.662314E+00 -1.315280E+00 -1.344715E+00 -1.560846E+00 37 S -2.638896E+00 -3.284950E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCOM 20 T E M P E R A T U R E V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 0.0 -2.000000E+00 -4.000000E+00 -4.000000E+00 11 S 0.0 1.200000E+01 -8.000000E+00 -8.000000E+00 4.999999E+00 -1.200000E+01 21 S 0.0 -1.000000E+00 -2.400000E+01 -1.800000E+01 -1.550000E+01 -2.050000E+01 27 S -4.000000E+01 -4.700000E+01 31 S 0.0 -8.500000E+00 -3.300000E+01 -2.000000E+01 -8.000000E+00 -1.500000E+01 37 S -3.700000E+01 -3.300000E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 3.750000E+02 -3.333333E+02 4.166666E+01 -8.333333E+01 11 S 1.875003E+02 4.041666E+03 -1.854167E+03 -9.791666E+02 2.291666E+03 -3.687500E+03 21 S 4.750000E+03 8.749997E+02 -2.291665E+02 1.375000E+03 2.083333E+02 -3.312500E+03 27 S -2.458333E+03 -1.208333E+03 31 S 3.937500E+03 -9.062497E+02 -2.265625E+03 2.885416E+03 2.317708E+03 -2.786458E+03 37 S -4.296874E+03 1.114583E+03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 2 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 3.750000E+02 -3.333333E+02 4.166667E+01 -8.333334E+01 11 S 1.875001E+02 4.041667E+03 -1.854167E+03 -9.791666E+02 2.291667E+03 -3.687500E+03 21 S 4.750000E+03 8.750000E+02 -2.291666E+02 1.375000E+03 2.083333E+02 -3.312500E+03 27 S -2.458333E+03 -1.208333E+03 31 S 3.937500E+03 -9.062502E+02 -2.265625E+03 2.885417E+03 2.317708E+03 -2.786458E+03 37 S -4.296875E+03 1.114583E+03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 3 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 2.577845E+01 6.928348E-01 1.484706E+01 -4.131835E+01 11 S -7.203434E+02 1.454882E+03 -6.256616E+02 7.093627E+00 -5.502642E+02 4.342934E+02 21 S 6.252248E+02 -1.857528E+02 3.674830E+01 4.066843E+01 -7.506778E+01 -2.815413E+02 27 S 1.513343E+00 -1.617930E+02 31 S 5.438952E+02 -1.668041E+02 9.372454E-01 1.542883E+02 -1.104139E+02 -2.262326E+02 37 S -7.924213E+01 -1.164280E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCOM 20 L O A D V E C T O R POINT ID. TYPE ID VALUE ID+1 VALUE ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE 1 S 3.750000E+02 -3.333333E+02 4.166666E+01 -8.333333E+01 11 S 1.875002E+02 4.041667E+03 -1.854167E+03 -9.791666E+02 2.291667E+03 -3.687500E+03 21 S 4.750000E+03 8.749999E+02 -2.291666E+02 1.375000E+03 2.083333E+02 -3.312500E+03 27 S -2.458333E+03 -1.208333E+03 31 S 3.937500E+03 -9.062499E+02 -2.265625E+03 2.885416E+03 2.317708E+03 -2.786458E+03 37 S -4.296875E+03 1.114583E+03 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 1 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 20 HEXA1 -3.000001E+00 -4.000000E+00 -2.000002E+00 7.500002E+02 1.000000E+03 5.000005E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 1 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 22 HEXA2 -3.999999E+00 -9.999998E-01 -3.000000E+00 9.999998E+02 2.499999E+02 7.500000E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 1 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 16 TETRA -2.000000E+00 0.000000E+00 -9.999999E-01 5.000000E+02 0.000000E+00 2.500000E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 1 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 18 WEDGE -1.000000E+00 -2.000000E+00 -3.000000E+00 2.500001E+02 5.000000E+02 7.499999E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 2 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 20 HEXA1 -3.000001E+00 -4.000000E+00 -2.000002E+00 7.500002E+02 1.000000E+03 5.000005E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 2 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 22 HEXA2 -4.000000E+00 -1.000000E+00 -3.000001E+00 1.000000E+03 2.500000E+02 7.500004E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 2 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 16 TETRA -2.000000E+00 0.000000E+00 -1.000000E+00 5.000000E+02 0.000000E+00 2.500000E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 2 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 18 WEDGE -1.000000E+00 -2.000000E+00 -3.000000E+00 2.500001E+02 5.000000E+02 7.500000E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 3 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 20 HEXA1 -1.451954E-01 -2.858005E-01 -1.399450E-01 3.629885E+01 7.145011E+01 3.498626E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 3 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 22 HEXA2 -1.505974E-01 -2.687044E-01 -1.565849E-01 3.764934E+01 6.717610E+01 3.914623E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 3 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 16 TETRA -6.558833E-02 -6.974534E-02 -4.958202E-01 1.639708E+01 1.743633E+01 1.239550E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 3 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 18 WEDGE 3.911342E-01 -2.894688E-01 -3.064600E-01 -9.778355E+01 7.236719E+01 7.661500E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCOM 20 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 20 HEXA1 -3.000001E+00 -4.000000E+00 -2.000002E+00 7.500002E+02 1.000000E+03 5.000005E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCOM 20 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 22 HEXA2 -4.000000E+00 -1.000000E+00 -3.000000E+00 1.000000E+03 2.500001E+02 7.500001E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCOM 20 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 16 TETRA -2.000000E+00 0.000000E+00 -1.000000E+00 5.000000E+02 0.000000E+00 2.500000E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCOM 20 F I N I T E E L E M E N T T E M P E R A T U R E G R A D I E N T S A N D F L U X E S ELEMENT-ID EL-TYPE X-GRADIENT Y-GRADIENT Z-GRADIENT X-FLUX Y-FLUX Z-FLUX 18 WEDGE -1.000000E+00 -2.000000E+00 -3.000000E+00 2.500001E+02 5.000000E+02 7.499999E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 1 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 20 HEXA1 -7.152557E-07 0.000000E+00 -1.907349E-06 -1.788139E-04 0.000000E+00 -4.768372E-04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 1 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 22 HEXA2 7.152557E-07 2.384186E-07 0.000000E+00 1.788139E-04 5.960464E-05 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 1 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 16 TETRA 1.192093E-07 0.000000E+00 5.960464E-08 2.980232E-05 0.000000E+00 1.490116E-05 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 1 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 18 WEDGE -2.384186E-07 0.000000E+00 4.768372E-07 -5.960464E-05 0.000000E+00 1.192093E-04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 2 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 20 HEXA1 -3.000001E+00 -4.000000E+00 -2.000002E+00 -1.831055E-04 0.000000E+00 -4.882812E-04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 2 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 22 HEXA2 -4.000000E+00 -1.000000E+00 -3.000001E+00 -1.220703E-04 -3.051758E-05 -3.662109E-04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 44 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 2 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 16 TETRA -2.000000E+00 0.000000E+00 -1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 45 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 2 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 18 WEDGE -1.000000E+00 -2.000000E+00 -3.000000E+00 -9.155273E-05 3.051758E-05 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 46 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 3 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 20 HEXA1 1.824987E-02 -1.688451E-02 -7.305020E-02 4.562468E+00 -4.221127E+00 -1.826255E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 47 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 3 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 22 HEXA2 1.284792E-02 2.115369E-04 -8.969009E-02 3.211979E+00 5.288422E-02 -2.242252E+01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 48 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 3 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 16 TETRA -1.453012E-04 7.337257E-04 -7.843077E-04 -3.632531E-02 1.834314E-01 -1.960769E-01 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 49 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCASE 3 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 18 WEDGE -6.035613E-01 -1.922793E+00 -3.367156E+00 -1.508903E+02 -4.806983E+02 -8.417891E+02 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 50 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCOM 20 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 20 HEXA1 -1.500001E+00 -2.000000E+00 -1.000002E+00 -1.831055E-04 0.000000E+00 -4.730225E-04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 51 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCOM 20 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 22 HEXA2 -2.000000E+00 -5.000004E-01 -1.500000E+00 -1.220703E-04 -9.155273E-05 -1.220703E-04 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 52 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCOM 20 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 16 TETRA -1.000000E+00 0.000000E+00 -5.000000E-01 0.000000E+00 0.000000E+00 0.000000E+00 1 ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 53 NASTRAN TEST PROBLEM NO. T01-20-1A 0 SUBCOM 20 F I N I T E E L E M E N T M A G N E T I C F I E L D A N D I N D U C T I O N ELEMENT-ID EL-TYPE X-FIELD Y-FIELD Z-FIELD X-INDUCTION Y-INDUCTION Z-INDUCTION 18 WEDGE -5.000002E-01 -1.000000E+00 -1.500000E+00 -6.103516E-05 0.000000E+00 1.220703E-04 * * * END OF JOB * * * 1 JOB TITLE = ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS DATE: 5/17/95 END TIME: 16:33:36 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/t01211a.out ================================================ NASTRAN BANDTMTH=2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01211A,NASTRAN DIAG 14 TIME 5 SOL 1 APP DISP ALTER 41 $ MATPRN KGGX,,,,//$ EXIT $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = WEDGE ELEMENT PROBLEM 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-21-1A 3 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 65, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CHEXA2 1 1 21 22 23 24 25 26 +C1 2- +C1 27 28 3- CTETRA 3 1 31 32 33 35 4- CTETRA 5 1 1 2 3 5 5- CTETRA 6 1 1 2 3 5 6- CTETRA 7 1 1 2 3 6 7- CTETRA 8 1 1 2 3 6 8- CTETRA 9 1 1 2 3 7 9- CTETRA 10 1 1 2 3 7 10- CTETRA 11 1 1 5 6 7 11- CTETRA 12 1 1 5 6 7 12- CTETRA 13 1 2 5 6 7 13- CTETRA 14 1 2 5 6 7 14- CTETRA 15 1 3 5 6 7 15- CTETRA 16 1 3 5 6 7 16- CTETRA 17 1 1 2 5 7 17- CTETRA 18 1 2 3 5 7 18- CTETRA 19 1 1 3 5 6 19- CTETRA 20 1 2 3 5 6 20- CTETRA 21 1 1 3 6 7 21- CTETRA 22 1 1 2 6 7 22- CWEDGE 2 1 11 12 13 15 16 17 23- CWEDGE 4 1 41 43 44 45 47 48 24- CWEDGE 30 1 41 42 43 45 46 47 25- GRID 1 26- GRID 2 2. 27- GRID 3 2. 3. 28- GRID 4 0. 3. 29- GRID 5 0. 0. 4. 30- GRID 6 2. 0. 4. 31- GRID 7 2. 3. 4. 32- GRID 8 0. 3. 4. 33- GRID 11 34- GRID 12 2. 35- GRID 13 2. 3. 36- GRID 14 0. 3. 37- GRID 15 0. 0. 4. 38- GRID 16 2. 0. 4. 39- GRID 17 2. 3. 4. 40- GRID 18 0. 3. 4. 41- GRID 21 42- GRID 22 2. 43- GRID 23 2. 3. 44- GRID 24 0. 3. 45- GRID 25 0. 0. 4. 46- GRID 26 2. 0. 4. 47- GRID 27 2. 3. 4. 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-21-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 28 0. 3. 4. 49- GRID 31 50- GRID 32 2. 51- GRID 33 2. 3. 52- GRID 34 0. 3. 53- GRID 35 0. 0. 4. 54- GRID 36 2. 0. 4. 55- GRID 37 2. 3. 4. 56- GRID 38 0. 3. 4. 57- GRID 41 58- GRID 42 2. 59- GRID 43 2. 3. 60- GRID 44 0. 3. 61- GRID 45 0. 0. 4. 62- GRID 46 2. 0. 4. 63- GRID 47 2. 3. 4. 64- GRID 48 0. 3. 4. 65- MAT1 1 3.+7 .3 ENDDATA 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 01 - STATIC ANALYSIS - APR. 1995 $ 2 FILE OPTP2=SAVE/EST1=SAVE $ 3 FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $ 4 SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ 5 PARAM //*MPY*/CARDNO/0/0 $ 6 COMPOFF 1,INTERACT $ 7 PRECHK ALL $ 8 COMPON 1,INTERACT $ 10 COMPOFF LBLINT02,SYS21 $ 11 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 12 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 13 EQUIV MPTA,MPT/ISOP $ 14 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 15 GP2 GEOM2,EQEXIN/ECT $ 16 PARAML PCDB//*PRES*////JUMPPLOT $ 17 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 18 COND P1,JUMPPLOT $ 19 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 20 PRTMSG PLTSETX// $ 21 PARAM //*MPY*/PLTFLG/1/1 $ 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-21-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 22 PARAM //*MPY*/PFILE/0/0 $ 23 COND P1,JUMPPLOT $ 24 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 25 PRTMSG PLOTX1// $ 26 LABEL P1 $ 27 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ 28 PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ 29 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 30 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 31 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ 32 COND ERROR4,NOELMT $ 33 PURGE KGGX/NOSIMP $ 34 OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ 35 LABEL LOOPTOP $ 36 COND LBL1,NOSIMP $ 37 PARAM //*ADD*/NOKGGX/1/0 $ 38 EQUIV OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ 39 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 40 COND JMPKGG,NOKGGX $ 41 EMA GPECT,KDICT,KELM/KGGX $ 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-21-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 41 MATPRN KGGX,,,,//$ 41 EXIT $ 42 LABEL JMPKGG $ 43 PURGE MGG/NOMGG $ 44 COND JMPMGG,NOMGG $ 45 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 46 PURGE MDICT,MELM/ALWAYS $ 47 LABEL JMPMGG $ 48 COND LBL1,GRDPNT $ 49 COND ERROR2,NOMGG $ 50 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ 51 OFP OGPWG,,,,,//S,N,CARDNO $ 52 LABEL LBL1 $ 53 EQUIV KGGX,KGG/NOGENL $ 54 COND LBL11A,NOGENL $ 55 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 56 LABEL LBL11A $ 57 GPSTGEN KGG,SIL/GPST $ 58 PARAM //*MPY*/NSKIP/0/0 $ 59 LABEL LBL11 $ 60 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 61 OFP OGPST,,,,,//S,N,CARDNO $ 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-21-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 62 COND ERROR3,NOL $ 63 PARAM //*AND*/NOSR/SINGLE/REACT $ 64 PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ 65 EQUIV KGG,KNN/MPCF1 $ 66 COND LBL2,MPCF2 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,,,/KNN,,, $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 COND LBL5,OMIT $ 76 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 77 LABEL LBL5 $ 78 EQUIV KAA,KLL/REACT $ 79 COND LBL6,REACT $ 80 RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ 81 LABEL LBL6 $ 82 RBMG2 KLL/LLL $ 83 COND LBL7,REACT $ 84 RBMG3 LLL,KLR,KRR/DM $ 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-21-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 85 LABEL LBL7 $ 86 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ 87 EQUIV PG,PL/NOSET $ 88 COND LBL10,NOSET $ 89 SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ 90 LABEL LBL10 $ 91 SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ NSKIP/S,N,EPSI $ 92 COND LBL9,IRES $ 93 MATGPR GPL,USET,SIL,RULV//*L* $ 94 MATGPR GPL,USET,SIL,RUOV//*O* $ 95 LABEL LBL9 $ 96 SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ *STATICS* $ 97 COND LBL8,REPEAT $ 98 REPT LBL11,360 $ 99 JUMP ERROR1 $ 100 PARAM //*NOT*/TEST/REPEAT $ 101 COND ERROR5,TEST $ 102 LABEL LBL8 $ 103 GPFDR CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/ *STATICS* $ 104 PURGE KDICT,KELM/REPEAT $ 105 OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-21-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 106 COND NOMPCF,GRDEQ $ 107 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ 108 OFP OQM1,,,,,//S,N,CARDNO $ 109 LABEL NOMPCF $ 110 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L, OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ 111 COND LBLSTRS,STRESS $ 112 CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/ V,Y,NINTPTS $ 113 LABEL LBLSTRS $ 114 PURGE OES1M/STRESS $ 115 COND LBLSTRN,STRNFLG $ 116 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/ ,,,OES1A,,,,/*STATICS*//1 $ 117 COND LBLSTRN,STRAIN $ 118 CURV OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/ V,Y,NINTPTS $ 119 LABEL LBLSTRN $ 120 PURGE OES1A/STRNFLG $ 121 COND LBL17,NOSORT2 $ 122 SDR3 OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $ 123 PARAM //*SUB*/PRTSORT2/NOSORT2/1 $ 124 COND LBLSORT1,PRTSORT2 $ 125 OFP OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $ 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T01-21-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 126 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ 127 OFP OESF2,,,,,//S,N,CARDNO $ 128 JUMP LBLXYPLT $ 129 LABEL LBLSORT1 $ 130 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 131 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 132 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 133 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 134 LABEL LBLXYPLT $ 135 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ 136 XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ 137 XYPLOT XYPLTT// $ 138 JUMP DPLOT $ 139 LABEL LBL17 $ 140 PURGE OUGV2/NOSORT2 $ 141 COND LBLOFP,COUNT $ 142 OPTPR2 OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N, CARDNO $ 143 EQUIV EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $ 144 COND LOOPEND,PRINT $ 145 LABEL LBLOFP $ 146 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 147 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T01-21-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 148 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $ 149 OFP OESF1X,OESF1Y,,,,//S,N,CARDNO $ 150 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ 151 LABEL DPLOT $ 152 COND P2,JUMPPLOT $ 153 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 154 PRTMSG PLOTX2// $ 155 LABEL P2 $ 156 LABEL LOOPEND $ 157 COND FINIS,COUNT $ 158 REPT LOOPTOP,360 $ 159 JUMP FINIS $ 160 LABEL ERROR1 $ 161 PRTPARM //-1/*STATICS* $ 162 LABEL ERROR2 $ 163 PRTPARM //-2/*STATICS* $ 164 LABEL ERROR3 $ 165 PRTPARM //-3/*STATICS* $ 166 LABEL ERROR4 $ 167 PRTPARM //-4/*STATICS* $ 168 LABEL ERROR5 $ 169 PRTPARM //-5/*STATICS* $ 170 LABEL FINIS $ 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T01-21-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 171 PURGE DUMMY/ALWAYS $ 172 LABEL LBLINT02 $ 173 COMPON LBLINT01,SYS21 $ 228 END $ 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 2, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 8 PROFILE 124 MAX WAVEFRONT 8 AVG WAVEFRONT 3.875 RMS WAVEFRONT 4.402 RMS BANDWIDTH 4.402 AFTER RESEQUENCING BY REVERSE CUTHILL-MCKEE (CM) ALGORITHM - - - BANDWIDTH 8 PROFILE 120 MAX WAVEFRONT 8 AVG WAVEFRONT 3.750 RMS WAVEFRONT 4.213 RMS BANDWIDTH 4.213 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 8 PROFILE 120 MAX WAVEFRONT 8 AVG WAVEFRONT 3.750 RMS WAVEFRONT 4.213 RMS BANDWIDTH 4.213 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 8 8 PROFILE (P) 124 120 MAXIMUM WAVEFRONT (C-MAX) 8 8 AVERAGE WAVEFRONT (C-AVG) 3.875 3.750 RMS WAVEFRONT (C-RMS) 4.402 4.213 RMS BANDWITCH (B-RMS) 4.402 4.213 NUMBER OF GRID POINTS (N) 40 NUMBER OF ELEMENTS (NON-RIGID) 23 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 5 MAXIMUM NODAL DEGREE 7 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 88 MATRIX DENSITY, PERCENT 20.312 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* CM AND GPS NO. OF NON-ACTIVE GRID POINTS 8 NO. OF SEQGP CARDS GENERATED 10 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T01-21-1A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 10 2 9 3 8 4 33 SEQGP 5 7 6 6 7 5 8 34 SEQGP 11 16 12 15 13 14 14 35 SEQGP 15 13 16 12 17 11 18 36 SEQGP 21 32 22 31 23 30 24 29 SEQGP 25 28 26 27 27 26 28 25 SEQGP 31 4 32 3 33 2 34 37 SEQGP 35 1 36 38 37 39 38 40 SEQGP 41 22 42 18 43 21 44 24 SEQGP 45 20 46 17 47 19 48 23 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 4 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 8 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 14 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 18 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 34 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 36 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 37 NOT CONNECTED 0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT. 38 NOT CONNECTED 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HEXA2 ELEMENTS (ELEMENT TYPE 42) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TETRA ELEMENTS (ELEMENT TYPE 39) STARTING WITH ID 3 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION WEDGE ELEMENTS (ELEMENT TYPE 40) STARTING WITH ID 2 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX (GINO NAME 101 ) IS A D.P.REAL 240 COLUMN X 240 ROW SYMMETRC MATRIX. 0COLUMN 1 ROWS 1 THRU 21 -------------------------------------------------- 2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 5.769231D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 0.000000D+00 -5.769231D+06 0COLUMN 2 ROWS 2 THRU 20 -------------------------------------------------- 2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.846154D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.846154D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 0COLUMN 3 ROWS 3 THRU 21 -------------------------------------------------- 1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 5.769232D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 8.653847D+06 -5.769232D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -8.653847D+06 0.000000D+00 -1.009616D+07 0COLUMNS 4 THRU 6 ARE NULL. 0COLUMN 7 ROWS 7 THRU 20 -------------------------------------------------- 5.128205D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.128205D+06 7.692308D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -7.692308D+06 0COLUMN 8 ROWS 3 THRU 21 -------------------------------------------------- 5.769232D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.794872D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.153846D+07 -1.794872D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.153846D+07 0.000000D+00 -5.769232D+06 0COLUMN 9 ROWS 2 THRU 20 -------------------------------------------------- 3.846154D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 5.128205D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.128205D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.846154D+06 0COLUMNS 10 THRU 12 ARE NULL. 0COLUMN 13 ROWS 3 THRU 21 -------------------------------------------------- 8.653847D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.128205D+06 1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.551283D+07 -1.923077D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -4.038462D+07 7.692308D+06 -8.653847D+06 0COLUMN 14 ROWS 3 THRU 21 -------------------------------------------------- -5.769232D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.692308D+06 -1.794872D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.923077D+07 2.948718D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.153846D+07 -1.153846D+07 5.769232D+06 0COLUMN 15 ROWS 1 THRU 21 -------------------------------------------------- 5.769231D+06 -3.846154D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.128205D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.666667D+07 0.000000D+00 0.000000D+00 0.000000D+00 -5.769231D+06 3.846154D+06 -1.153846D+07 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED 0COLUMNS 16 THRU 18 ARE NULL. 0COLUMN 19 ROWS 1 THRU 21 -------------------------------------------------- -2.884616D+06 0.000000D+00 -8.653847D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -4.038462D+07 1.153846D+07 -5.769231D+06 0.000000D+00 0.000000D+00 0.000000D+00 4.326924D+07 0.000000D+00 1.442308D+07 0COLUMN 20 ROWS 2 THRU 20 -------------------------------------------------- -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -7.692308D+06 0.000000D+00 -3.846154D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.692308D+06 -1.153846D+07 3.846154D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+07 0COLUMN 21 ROWS 1 THRU 21 -------------------------------------------------- -5.769231D+06 0.000000D+00 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.769232D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -8.653847D+06 5.769232D+06 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+07 0.000000D+00 2.163462D+07 0COLUMNS 22 THRU 24 ARE NULL. 0COLUMN 25 ROWS 25 THRU 57 -------------------------------------------------- 1.442308D+08 -1.923077D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -8.141026D+07 6.538462D+07 1.730769D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.551283D+07 -4.615385D+07 -1.730769D+07 0.000000D+00 0.000000D+00 0.000000D+00 -9.807694D+07 1.923077D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.525642D+07 3.846153D+06 1.730769D+07 0.000000D+00 0.000000D+00 0.000000D+00 4.551283D+07 -2.307692D+07 -1.730769D+07 0COLUMN 26 ROWS 25 THRU 57 -------------------------------------------------- -1.923077D+07 2.019231D+08 2.884616D+07 0.000000D+00 0.000000D+00 0.000000D+00 8.846155D+07 -1.551282D+08 5.769233D+06 0.000000D+00 0.000000D+00 0.000000D+00 -6.923078D+07 -2.948718D+07 1.730769D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.923077D+07 -4.038462D+07 -5.769233D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.538462D+07 -6.410259D+06 -2.884616D+07 0.000000D+00 0.000000D+00 0.000000D+00 -3.461539D+07 2.948718D+07 -1.730769D+07 0COLUMN 27 ROWS 26 THRU 57 -------------------------------------------------- 2.884616D+07 1.298077D+08 0.000000D+00 0.000000D+00 0.000000D+00 2.596154D+07 -5.769233D+06 -5.256410D+07 0.000000D+00 0.000000D+00 0.000000D+00 -2.596154D+07 1.153846D+07 -1.666667D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 5.769233D+06 -8.365386D+07 0.000000D+00 0.000000D+00 0.000000D+00 2.596154D+07 -2.884616D+07 6.410257D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.596154D+07 -1.153846D+07 1.666667D+07 0COLUMNS 28 THRU 30 ARE NULL. 0COLUMN 31 ROWS 25 THRU 57 -------------------------------------------------- 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED -8.141026D+07 8.846155D+07 2.596154D+07 0.000000D+00 0.000000D+00 0.000000D+00 4.269231D+08 -1.538462D+08 4.326924D+07 0.000000D+00 0.000000D+00 0.000000D+00 -3.282052D+08 6.538462D+07 8.653849D+06 0.000000D+00 0.000000D+00 0.000000D+00 3.525642D+07 1.538462D+07 -2.596154D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.730769D+07 -1.923077D+07 -8.653849D+06 0.000000D+00 0.000000D+00 0.000000D+00 -3.525642D+07 3.846153D+06 -4.326924D+07 0COLUMN 32 ROWS 25 THRU 57 -------------------------------------------------- 6.538462D+07 -1.551282D+08 -5.769233D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.538462D+08 2.826923D+08 -2.884616D+07 0.000000D+00 0.000000D+00 0.000000D+00 8.846155D+07 -1.102564D+08 -1.730769D+07 0.000000D+00 0.000000D+00 0.000000D+00 3.846153D+06 -6.410259D+06 2.884616D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.923077D+07 -1.730769D+07 5.769233D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.538462D+07 6.410259D+06 1.730769D+07 0COLUMN 33 ROWS 25 THRU 57 -------------------------------------------------- 1.730769D+07 5.769233D+06 -5.256410D+07 0.000000D+00 0.000000D+00 0.000000D+00 4.326924D+07 -2.884616D+07 2.105769D+08 0.000000D+00 0.000000D+00 0.000000D+00 -8.653849D+06 -1.153846D+07 -9.743590D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.730769D+07 2.884616D+07 6.410257D+06 0.000000D+00 0.000000D+00 0.000000D+00 8.653849D+06 -5.769233D+06 -6.057693D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.326924D+07 1.153846D+07 -6.410257D+06 0COLUMNS 34 THRU 36 ARE NULL. 0COLUMN 37 ROWS 25 THRU 57 -------------------------------------------------- -4.551283D+07 -6.923078D+07 -2.596154D+07 0.000000D+00 0.000000D+00 0.000000D+00 -3.282052D+08 8.846155D+07 -8.653849D+06 0.000000D+00 0.000000D+00 0.000000D+00 3.910257D+08 -1.923077D+07 -4.326924D+07 0.000000D+00 0.000000D+00 0.000000D+00 4.551283D+07 -3.461539D+07 2.596154D+07 0.000000D+00 0.000000D+00 0.000000D+00 -3.525642D+07 1.538462D+07 4.326924D+07 0.000000D+00 0.000000D+00 0.000000D+00 -2.756410D+07 1.923077D+07 8.653849D+06 0COLUMN 38 ROWS 25 THRU 56 -------------------------------------------------- -4.615385D+07 -2.948718D+07 1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 6.538462D+07 -1.102564D+08 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.923077D+07 1.570513D+08 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+07 2.948718D+07 1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 3.846153D+06 6.410259D+06 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.923077D+07 -5.320513D+07 0COLUMN 39 ROWS 25 THRU 57 -------------------------------------------------- -1.730769D+07 1.730769D+07 -1.666667D+07 0.000000D+00 0.000000D+00 0.000000D+00 8.653849D+06 -1.730769D+07 -9.743590D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.326924D+07 0.000000D+00 1.746795D+08 0.000000D+00 0.000000D+00 0.000000D+00 1.730769D+07 1.730769D+07 1.666667D+07 0.000000D+00 0.000000D+00 0.000000D+00 4.326924D+07 -1.730769D+07 -6.410257D+06 0.000000D+00 0.000000D+00 0.000000D+00 -8.653849D+06 0.000000D+00 -7.083334D+07 0COLUMNS 40 THRU 42 ARE NULL. 0COLUMN 43 ROWS 25 THRU 57 -------------------------------------------------- -9.807694D+07 1.923077D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.525642D+07 3.846153D+06 -1.730769D+07 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED 0.000000D+00 0.000000D+00 0.000000D+00 4.551283D+07 -2.307692D+07 1.730769D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+08 -1.923077D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -8.141026D+07 6.538462D+07 -1.730769D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.551283D+07 -4.615385D+07 1.730769D+07 0COLUMN 44 ROWS 25 THRU 57 -------------------------------------------------- 1.923077D+07 -4.038462D+07 5.769233D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.538462D+07 -6.410259D+06 2.884616D+07 0.000000D+00 0.000000D+00 0.000000D+00 -3.461539D+07 2.948718D+07 1.730769D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.923077D+07 2.019231D+08 -2.884616D+07 0.000000D+00 0.000000D+00 0.000000D+00 8.846155D+07 -1.551282D+08 -5.769233D+06 0.000000D+00 0.000000D+00 0.000000D+00 -6.923078D+07 -2.948718D+07 -1.730769D+07 0COLUMN 45 ROWS 26 THRU 57 -------------------------------------------------- -5.769233D+06 -8.365386D+07 0.000000D+00 0.000000D+00 0.000000D+00 -2.596154D+07 2.884616D+07 6.410257D+06 0.000000D+00 0.000000D+00 0.000000D+00 2.596154D+07 1.153846D+07 1.666667D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+07 1.298077D+08 0.000000D+00 0.000000D+00 0.000000D+00 -2.596154D+07 5.769233D+06 -5.256410D+07 0.000000D+00 0.000000D+00 0.000000D+00 2.596154D+07 -1.153846D+07 -1.666667D+07 0COLUMNS 46 THRU 48 ARE NULL. 0COLUMN 49 ROWS 25 THRU 57 -------------------------------------------------- 3.525642D+07 1.538462D+07 2.596154D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.730769D+07 -1.923077D+07 8.653849D+06 0.000000D+00 0.000000D+00 0.000000D+00 -3.525642D+07 3.846153D+06 4.326924D+07 0.000000D+00 0.000000D+00 0.000000D+00 -8.141026D+07 8.846155D+07 -2.596154D+07 0.000000D+00 0.000000D+00 0.000000D+00 4.269231D+08 -1.538462D+08 -4.326924D+07 0.000000D+00 0.000000D+00 0.000000D+00 -3.282052D+08 6.538462D+07 -8.653849D+06 0COLUMN 50 ROWS 25 THRU 57 -------------------------------------------------- 3.846153D+06 -6.410259D+06 -2.884616D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.923077D+07 -1.730769D+07 -5.769233D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.538462D+07 6.410259D+06 -1.730769D+07 0.000000D+00 0.000000D+00 0.000000D+00 6.538462D+07 -1.551282D+08 5.769233D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.538462D+08 2.826923D+08 2.884616D+07 0.000000D+00 0.000000D+00 0.000000D+00 8.846155D+07 -1.102564D+08 1.730769D+07 0COLUMN 51 ROWS 25 THRU 57 -------------------------------------------------- 1.730769D+07 -2.884616D+07 6.410257D+06 0.000000D+00 0.000000D+00 0.000000D+00 -8.653849D+06 5.769233D+06 -6.057693D+07 0.000000D+00 0.000000D+00 0.000000D+00 4.326924D+07 -1.153846D+07 -6.410257D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.730769D+07 -5.769233D+06 -5.256410D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.326924D+07 2.884616D+07 2.105769D+08 0.000000D+00 0.000000D+00 0.000000D+00 8.653849D+06 1.153846D+07 -9.743590D+07 0COLUMNS 52 THRU 54 ARE NULL. 0COLUMN 55 ROWS 25 THRU 57 -------------------------------------------------- 4.551283D+07 -3.461539D+07 -2.596154D+07 0.000000D+00 0.000000D+00 0.000000D+00 -3.525642D+07 1.538462D+07 -4.326924D+07 0.000000D+00 0.000000D+00 0.000000D+00 -2.756410D+07 1.923077D+07 -8.653849D+06 0.000000D+00 0.000000D+00 0.000000D+00 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED -4.551283D+07 -6.923078D+07 2.596154D+07 0.000000D+00 0.000000D+00 0.000000D+00 -3.282052D+08 8.846155D+07 8.653849D+06 0.000000D+00 0.000000D+00 0.000000D+00 3.910257D+08 -1.923077D+07 4.326924D+07 0COLUMN 56 ROWS 25 THRU 56 -------------------------------------------------- -2.307692D+07 2.948718D+07 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 3.846153D+06 6.410259D+06 1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.923077D+07 -5.320513D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -4.615385D+07 -2.948718D+07 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 6.538462D+07 -1.102564D+08 1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.923077D+07 1.570513D+08 0COLUMN 57 ROWS 25 THRU 57 -------------------------------------------------- -1.730769D+07 -1.730769D+07 1.666667D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.326924D+07 1.730769D+07 -6.410257D+06 0.000000D+00 0.000000D+00 0.000000D+00 8.653849D+06 0.000000D+00 -7.083334D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.730769D+07 -1.730769D+07 -1.666667D+07 0.000000D+00 0.000000D+00 0.000000D+00 -8.653849D+06 1.730769D+07 -9.743590D+07 0.000000D+00 0.000000D+00 0.000000D+00 4.326924D+07 0.000000D+00 1.746795D+08 0COLUMNS 58 THRU 60 ARE NULL. 0COLUMN 61 ROWS 61 THRU 93 -------------------------------------------------- 2.403846D+07 -3.205129D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.356838D+07 1.089744D+07 2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 -7.585471D+06 -7.692308D+06 -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.634616D+07 3.205129D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 5.876069D+06 6.410255D+05 2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.585471D+06 -3.846154D+06 -2.884616D+06 0COLUMN 62 ROWS 61 THRU 93 -------------------------------------------------- -3.205129D+06 3.365385D+07 4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.474359D+07 -2.585470D+07 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.153846D+07 -4.914530D+06 2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 3.205129D+06 -6.730770D+06 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 2.564103D+06 -1.068376D+06 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.769232D+06 4.914530D+06 -2.884616D+06 0COLUMN 63 ROWS 62 THRU 93 -------------------------------------------------- 4.807693D+06 2.163462D+07 0.000000D+00 0.000000D+00 0.000000D+00 4.326924D+06 -9.615388D+05 -8.760684D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.326924D+06 1.923077D+06 -2.777778D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 9.615388D+05 -1.394231D+07 0.000000D+00 0.000000D+00 0.000000D+00 4.326924D+06 -4.807693D+06 1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.326924D+06 -1.923077D+06 2.777778D+06 0COLUMNS 64 THRU 66 ARE NULL. 0COLUMN 67 ROWS 61 THRU 93 -------------------------------------------------- -1.356838D+07 1.474359D+07 4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.115386D+07 -2.564103D+07 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.470086D+07 1.089744D+07 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 5.876069D+06 2.564103D+06 -4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 -3.205129D+06 -1.442308D+06 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED 0.000000D+00 0.000000D+00 0.000000D+00 -5.876069D+06 6.410255D+05 -7.211539D+06 0COLUMN 68 ROWS 61 THRU 93 -------------------------------------------------- 1.089744D+07 -2.585470D+07 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -2.564103D+07 4.711539D+07 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.474359D+07 -1.837607D+07 -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.410255D+05 -1.068376D+06 4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 -3.205129D+06 -2.884616D+06 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 2.564103D+06 1.068376D+06 2.884616D+06 0COLUMN 69 ROWS 61 THRU 93 -------------------------------------------------- 2.884616D+06 9.615388D+05 -8.760684D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 -4.807693D+06 3.509616D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 -1.923077D+06 -1.623932D+07 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 4.807693D+06 1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 -9.615388D+05 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 -7.211539D+06 1.923077D+06 -1.068376D+06 0COLUMNS 70 THRU 72 ARE NULL. 0COLUMN 73 ROWS 61 THRU 93 -------------------------------------------------- -7.585471D+06 -1.153846D+07 -4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.470086D+07 1.474359D+07 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.517095D+07 -3.205129D+06 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.585471D+06 -5.769232D+06 4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.876069D+06 2.564103D+06 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.594017D+06 3.205129D+06 1.442308D+06 0COLUMN 74 ROWS 61 THRU 92 -------------------------------------------------- -7.692308D+06 -4.914530D+06 1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.089744D+07 -1.837607D+07 -1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 -3.205129D+06 2.617522D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.846154D+06 4.914530D+06 1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.410255D+05 1.068376D+06 -1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 3.205129D+06 -8.867522D+06 0COLUMN 75 ROWS 61 THRU 93 -------------------------------------------------- -2.884616D+06 2.884616D+06 -2.777778D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 -2.884616D+06 -1.623932D+07 0.000000D+00 0.000000D+00 0.000000D+00 -7.211539D+06 0.000000D+00 2.911325D+07 0.000000D+00 0.000000D+00 0.000000D+00 2.884616D+06 2.884616D+06 2.777778D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 -2.884616D+06 -1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 0.000000D+00 -1.180556D+07 0COLUMNS 76 THRU 78 ARE NULL. 0COLUMN 79 ROWS 61 THRU 93 -------------------------------------------------- -1.634616D+07 3.205129D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 5.876069D+06 6.410255D+05 -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.585471D+06 -3.846154D+06 2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 2.403846D+07 -3.205129D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.356838D+07 1.089744D+07 -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 -7.585471D+06 -7.692308D+06 2.884616D+06 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED 0COLUMN 80 ROWS 61 THRU 93 -------------------------------------------------- 3.205129D+06 -6.730770D+06 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 2.564103D+06 -1.068376D+06 4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.769232D+06 4.914530D+06 2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 -3.205129D+06 3.365385D+07 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.474359D+07 -2.585470D+07 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.153846D+07 -4.914530D+06 -2.884616D+06 0COLUMN 81 ROWS 62 THRU 93 -------------------------------------------------- -9.615388D+05 -1.394231D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.326924D+06 4.807693D+06 1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 4.326924D+06 1.923077D+06 2.777778D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -4.807693D+06 2.163462D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.326924D+06 9.615388D+05 -8.760684D+06 0.000000D+00 0.000000D+00 0.000000D+00 4.326924D+06 -1.923077D+06 -2.777778D+06 0COLUMNS 82 THRU 84 ARE NULL. 0COLUMN 85 ROWS 61 THRU 93 -------------------------------------------------- 5.876069D+06 2.564103D+06 4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 -3.205129D+06 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.876069D+06 6.410255D+05 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.356838D+07 1.474359D+07 -4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.115386D+07 -2.564103D+07 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.470086D+07 1.089744D+07 -1.442308D+06 0COLUMN 86 ROWS 61 THRU 93 -------------------------------------------------- 6.410255D+05 -1.068376D+06 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 -3.205129D+06 -2.884616D+06 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 2.564103D+06 1.068376D+06 -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.089744D+07 -2.585470D+07 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -2.564103D+07 4.711539D+07 4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.474359D+07 -1.837607D+07 2.884616D+06 0COLUMN 87 ROWS 61 THRU 93 -------------------------------------------------- 2.884616D+06 -4.807693D+06 1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 9.615388D+05 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 -1.923077D+06 -1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 -9.615388D+05 -8.760684D+06 0.000000D+00 0.000000D+00 0.000000D+00 -7.211539D+06 4.807693D+06 3.509616D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 1.923077D+06 -1.623932D+07 0COLUMNS 88 THRU 90 ARE NULL. 0COLUMN 91 ROWS 61 THRU 93 -------------------------------------------------- 7.585471D+06 -5.769232D+06 -4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.876069D+06 2.564103D+06 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.594017D+06 3.205129D+06 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -7.585471D+06 -1.153846D+07 4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.470086D+07 1.474359D+07 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.517095D+07 -3.205129D+06 7.211539D+06 0COLUMN 92 ROWS 61 THRU 92 -------------------------------------------------- 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED -3.846154D+06 4.914530D+06 -1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.410255D+05 1.068376D+06 1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 3.205129D+06 -8.867522D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -7.692308D+06 -4.914530D+06 -1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.089744D+07 -1.837607D+07 1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 -3.205129D+06 2.617522D+07 0COLUMN 93 ROWS 61 THRU 93 -------------------------------------------------- -2.884616D+06 -2.884616D+06 2.777778D+06 0.000000D+00 0.000000D+00 0.000000D+00 -7.211539D+06 2.884616D+06 -1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 0.000000D+00 -1.180556D+07 0.000000D+00 0.000000D+00 0.000000D+00 2.884616D+06 -2.884616D+06 -2.777778D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 2.884616D+06 -1.623932D+07 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 0.000000D+00 2.911325D+07 0COLUMNS 94 THRU 96 ARE NULL. 0COLUMN 97 ROWS 97 THRU 129 -------------------------------------------------- 7.115386D+07 -2.564103D+07 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 -3.205129D+06 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.356838D+07 1.474359D+07 4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.470086D+07 1.089744D+07 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 5.876069D+06 2.564103D+06 -4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.876069D+06 6.410255D+05 -7.211539D+06 0COLUMN 98 ROWS 97 THRU 129 -------------------------------------------------- -2.564103D+07 4.711539D+07 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 -3.205129D+06 -2.884616D+06 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.089744D+07 -2.585470D+07 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.474359D+07 -1.837607D+07 -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.410255D+05 -1.068376D+06 4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 2.564103D+06 1.068376D+06 2.884616D+06 0COLUMN 99 ROWS 97 THRU 129 -------------------------------------------------- 7.211539D+06 -4.807693D+06 3.509616D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 -9.615388D+05 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 2.884616D+06 9.615388D+05 -8.760684D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 -1.923077D+06 -1.623932D+07 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 4.807693D+06 1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 -7.211539D+06 1.923077D+06 -1.068376D+06 0COLUMNS 100 THRU 102 ARE NULL. 0COLUMN 103 ROWS 97 THRU 129 -------------------------------------------------- -2.884616D+06 -3.205129D+06 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.115386D+07 -2.564103D+07 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 5.876069D+06 2.564103D+06 4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.876069D+06 6.410255D+05 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.356838D+07 1.474359D+07 -4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.470086D+07 1.089744D+07 -1.442308D+06 0COLUMN 104 ROWS 97 THRU 129 -------------------------------------------------- -3.205129D+06 -2.884616D+06 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -2.564103D+07 4.711539D+07 4.807693D+06 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED 0.000000D+00 0.000000D+00 0.000000D+00 6.410255D+05 -1.068376D+06 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 2.564103D+06 1.068376D+06 -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.089744D+07 -2.585470D+07 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.474359D+07 -1.837607D+07 2.884616D+06 0COLUMN 105 ROWS 97 THRU 129 -------------------------------------------------- -1.442308D+06 9.615388D+05 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 -7.211539D+06 4.807693D+06 3.509616D+07 0.000000D+00 0.000000D+00 0.000000D+00 2.884616D+06 -4.807693D+06 1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 -1.923077D+06 -1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 -9.615388D+05 -8.760684D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 1.923077D+06 -1.623932D+07 0COLUMNS 106 THRU 108 ARE NULL. 0COLUMN 109 ROWS 97 THRU 141 -------------------------------------------------- -1.356838D+07 1.089744D+07 2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 5.876069D+06 6.410255D+05 2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 8.920941D+07 -6.410257D+06 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.517094D+07 -1.923077D+07 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.094017D+07 6.410257D+06 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.517094D+07 -9.615386D+06 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.470086D+07 1.474359D+07 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.876069D+06 2.564103D+06 -7.211539D+06 0COLUMN 110 ROWS 97 THRU 141 -------------------------------------------------- 1.474359D+07 -2.585470D+07 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 2.564103D+06 -1.068376D+06 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 -6.410257D+06 5.982907D+07 4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.923077D+07 -9.829061D+06 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 6.410257D+06 -1.559829D+07 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -9.615386D+06 9.829061D+06 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.089744D+07 -1.837607D+07 1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.410255D+05 1.068376D+06 1.923077D+06 0COLUMN 111 ROWS 97 THRU 141 -------------------------------------------------- 4.326924D+06 -9.615388D+05 -8.760684D+06 0.000000D+00 0.000000D+00 0.000000D+00 4.326924D+06 -4.807693D+06 1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 4.807693D+06 5.074787D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 -9.615388D+05 -5.555556D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 9.615388D+05 -2.574787D+07 0.000000D+00 0.000000D+00 0.000000D+00 -7.211539D+06 -4.807693D+06 5.555556D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 2.884616D+06 -1.623932D+07 0.000000D+00 0.000000D+00 0.000000D+00 -7.211539D+06 2.884616D+06 -1.068376D+06 0COLUMNS 112 THRU 114 ARE NULL. 0COLUMN 115 ROWS 97 THRU 141 -------------------------------------------------- -5.470086D+07 1.474359D+07 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.876069D+06 2.564103D+06 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.517094D+07 -1.923077D+07 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 8.920941D+07 -6.410257D+06 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.517094D+07 -9.615386D+06 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.094017D+07 6.410257D+06 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.356838D+07 1.089744D+07 -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 5.876069D+06 6.410255D+05 -2.884616D+06 0COLUMN 116 ROWS 97 THRU 141 -------------------------------------------------- 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED 1.089744D+07 -1.837607D+07 -1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.410255D+05 1.068376D+06 -1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.923077D+07 -9.829061D+06 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -6.410257D+06 5.982907D+07 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 -9.615386D+06 9.829061D+06 4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.410257D+06 -1.559829D+07 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.474359D+07 -2.585470D+07 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 2.564103D+06 -1.068376D+06 4.807693D+06 0COLUMN 117 ROWS 97 THRU 141 -------------------------------------------------- 1.442308D+06 -2.884616D+06 -1.623932D+07 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 -2.884616D+06 -1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 9.615388D+05 -5.555556D+06 0.000000D+00 0.000000D+00 0.000000D+00 -7.211539D+06 -4.807693D+06 5.074787D+07 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 4.807693D+06 5.555556D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 -9.615388D+05 -2.574787D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.326924D+06 9.615388D+05 -8.760684D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.326924D+06 4.807693D+06 1.068376D+06 0COLUMNS 118 THRU 120 ARE NULL. 0COLUMN 121 ROWS 97 THRU 141 -------------------------------------------------- 5.876069D+06 6.410255D+05 -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.356838D+07 1.089744D+07 -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.094017D+07 6.410257D+06 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.517094D+07 -9.615386D+06 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 8.920941D+07 -6.410257D+06 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.517094D+07 -1.923077D+07 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.876069D+06 2.564103D+06 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.470086D+07 1.474359D+07 -1.442308D+06 0COLUMN 122 ROWS 97 THRU 141 -------------------------------------------------- 2.564103D+06 -1.068376D+06 4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.474359D+07 -2.585470D+07 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 6.410257D+06 -1.559829D+07 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -9.615386D+06 9.829061D+06 4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 -6.410257D+06 5.982907D+07 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.923077D+07 -9.829061D+06 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 6.410255D+05 1.068376D+06 -1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.089744D+07 -1.837607D+07 -1.923077D+06 0COLUMN 123 ROWS 97 THRU 141 -------------------------------------------------- -4.326924D+06 4.807693D+06 1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.326924D+06 9.615388D+05 -8.760684D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 -9.615388D+05 -2.574787D+07 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 4.807693D+06 5.555556D+06 0.000000D+00 0.000000D+00 0.000000D+00 -7.211539D+06 -4.807693D+06 5.074787D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 9.615388D+05 -5.555556D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 -2.884616D+06 -1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 -2.884616D+06 -1.623932D+07 0COLUMNS 124 THRU 126 ARE NULL. 0COLUMN 127 ROWS 97 THRU 141 -------------------------------------------------- -5.876069D+06 2.564103D+06 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.470086D+07 1.474359D+07 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.517094D+07 -9.615386D+06 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.094017D+07 6.410257D+06 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.517094D+07 -1.923077D+07 1.442308D+06 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED 0.000000D+00 0.000000D+00 0.000000D+00 8.920941D+07 -6.410257D+06 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 5.876069D+06 6.410255D+05 2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.356838D+07 1.089744D+07 2.884616D+06 0COLUMN 128 ROWS 97 THRU 141 -------------------------------------------------- 6.410255D+05 1.068376D+06 1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.089744D+07 -1.837607D+07 1.923077D+06 0.000000D+00 0.000000D+00 0.000000D+00 -9.615386D+06 9.829061D+06 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.410257D+06 -1.559829D+07 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.923077D+07 -9.829061D+06 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -6.410257D+06 5.982907D+07 4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 2.564103D+06 -1.068376D+06 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.474359D+07 -2.585470D+07 9.615388D+05 0COLUMN 129 ROWS 97 THRU 141 -------------------------------------------------- -7.211539D+06 2.884616D+06 -1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 2.884616D+06 -1.623932D+07 0.000000D+00 0.000000D+00 0.000000D+00 -7.211539D+06 -4.807693D+06 5.555556D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 9.615388D+05 -2.574787D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 -9.615388D+05 -5.555556D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 4.807693D+06 5.074787D+07 0.000000D+00 0.000000D+00 0.000000D+00 4.326924D+06 -4.807693D+06 1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 4.326924D+06 -9.615388D+05 -8.760684D+06 0COLUMNS 130 THRU 132 ARE NULL. 0COLUMN 133 ROWS 109 THRU 141 -------------------------------------------------- -5.470086D+07 1.089744D+07 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.356838D+07 1.474359D+07 -4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.876069D+06 6.410255D+05 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 5.876069D+06 2.564103D+06 4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.115386D+07 -2.564103D+07 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 -3.205129D+06 1.442308D+06 0COLUMN 134 ROWS 109 THRU 141 -------------------------------------------------- 1.474359D+07 -1.837607D+07 2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.089744D+07 -2.585470D+07 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 2.564103D+06 1.068376D+06 -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.410255D+05 -1.068376D+06 -4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.564103D+07 4.711539D+07 4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 -3.205129D+06 -2.884616D+06 -9.615388D+05 0COLUMN 135 ROWS 109 THRU 141 -------------------------------------------------- 1.442308D+06 1.923077D+06 -1.623932D+07 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 -9.615388D+05 -8.760684D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 -1.923077D+06 -1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 2.884616D+06 -4.807693D+06 1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 -7.211539D+06 4.807693D+06 3.509616D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 9.615388D+05 -1.009616D+07 0COLUMNS 136 THRU 138 ARE NULL. 0COLUMN 139 ROWS 109 THRU 141 -------------------------------------------------- -5.876069D+06 6.410255D+05 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 5.876069D+06 2.564103D+06 -4.326924D+06 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED 0.000000D+00 0.000000D+00 0.000000D+00 -5.470086D+07 1.089744D+07 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.356838D+07 1.474359D+07 4.326924D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 -3.205129D+06 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.115386D+07 -2.564103D+07 7.211539D+06 0COLUMN 140 ROWS 109 THRU 141 -------------------------------------------------- 2.564103D+06 1.068376D+06 2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.410255D+05 -1.068376D+06 4.807693D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.474359D+07 -1.837607D+07 -2.884616D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.089744D+07 -2.585470D+07 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -3.205129D+06 -2.884616D+06 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -2.564103D+07 4.711539D+07 -4.807693D+06 0COLUMN 141 ROWS 109 THRU 141 -------------------------------------------------- -7.211539D+06 1.923077D+06 -1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 4.807693D+06 1.068376D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 -1.923077D+06 -1.623932D+07 0.000000D+00 0.000000D+00 0.000000D+00 2.884616D+06 9.615388D+05 -8.760684D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 -9.615388D+05 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 7.211539D+06 -4.807693D+06 3.509616D+07 0COLUMNS 142 THRU 144 ARE NULL. 0COLUMN 145 ROWS 145 THRU 189 -------------------------------------------------- 6.049680D+07 -1.442308D+07 -1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.038462D+07 -1.923078D+06 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.065705D+07 1.442308D+07 -7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 -5.128205D+06 1.923078D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 0.000000D+00 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -9.535258D+06 -9.615388D+05 1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 8.092950D+06 9.615388D+05 7.211541D+05 0COLUMN 146 ROWS 145 THRU 189 -------------------------------------------------- -1.442308D+07 4.046475D+07 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.923078D+06 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+07 -6.650642D+06 4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.923078D+06 -1.794872D+07 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 9.615388D+05 8.814108D+05 -4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.615388D+05 -2.323719D+06 -7.211539D+06 0COLUMN 147 ROWS 145 THRU 189 -------------------------------------------------- -1.081731D+07 7.211539D+06 3.345353D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 0.000000D+00 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 7.211541D+05 -4.807694D+05 -1.642628D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.615388D+05 -5.128205D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 9.615388D+05 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.081731D+07 4.807694D+05 -4.126603D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -7.211541D+05 -7.211539D+06 -9.214747D+05 0COLUMNS 148 THRU 150 ARE NULL. 0COLUMN 151 ROWS 145 THRU 183 -------------------------------------------------- 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED -4.038462D+07 1.923078D+06 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.049680D+07 1.442308D+07 1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 -5.128205D+06 -1.923078D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.065705D+07 -1.442308D+07 7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 -9.535258D+06 9.615388D+05 -1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 0.000000D+00 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 8.092950D+06 -9.615388D+05 -7.211541D+05 0COLUMN 152 ROWS 145 THRU 183 -------------------------------------------------- -1.923078D+06 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+07 4.046475D+07 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.923078D+06 -1.794872D+07 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+07 -6.650642D+06 4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 -9.615388D+05 8.814108D+05 -4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 9.615388D+05 -2.323719D+06 -7.211539D+06 0COLUMN 153 ROWS 145 THRU 183 -------------------------------------------------- -1.442308D+06 0.000000D+00 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.081731D+07 7.211539D+06 3.345353D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.615388D+05 -5.128205D+06 0.000000D+00 0.000000D+00 0.000000D+00 -7.211541D+05 -4.807694D+05 -1.642628D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.081731D+07 4.807694D+05 -4.126603D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 9.615388D+05 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 7.211541D+05 -7.211539D+06 -9.214747D+05 0COLUMNS 154 THRU 156 ARE NULL. 0COLUMN 157 ROWS 145 THRU 189 -------------------------------------------------- -1.065705D+07 1.442308D+07 7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 -5.128205D+06 1.923078D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 6.049680D+07 -1.442308D+07 1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.038462D+07 -1.923078D+06 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 8.092950D+06 9.615388D+05 -7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 0.000000D+00 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -9.535258D+06 -9.615388D+05 -1.081731D+07 0COLUMN 158 ROWS 145 THRU 189 -------------------------------------------------- 1.442308D+07 -6.650642D+06 -4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.923078D+06 -1.794872D+07 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+07 4.046475D+07 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.923078D+06 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.615388D+05 -2.323719D+06 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 9.615388D+05 8.814108D+05 4.807694D+05 0COLUMN 159 ROWS 145 THRU 189 -------------------------------------------------- -7.211541D+05 4.807694D+05 -1.642628D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 9.615388D+05 -5.128205D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.081731D+07 -7.211539D+06 3.345353D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 0.000000D+00 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 7.211541D+05 7.211539D+06 -9.214747D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 -9.615388D+05 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.081731D+07 -4.807694D+05 -4.126603D+06 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED 0COLUMNS 160 THRU 162 ARE NULL. 0COLUMN 163 ROWS 145 THRU 189 -------------------------------------------------- -5.128205D+06 -1.923078D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.065705D+07 -1.442308D+07 -7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 -4.038462D+07 1.923078D+06 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.049680D+07 1.442308D+07 -1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 8.092950D+06 -9.615388D+05 7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.535258D+06 9.615388D+05 1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 0.000000D+00 1.442308D+06 0COLUMN 164 ROWS 145 THRU 189 -------------------------------------------------- 1.923078D+06 -1.794872D+07 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+07 -6.650642D+06 -4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.923078D+06 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+07 4.046475D+07 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 9.615388D+05 -2.323719D+06 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.615388D+05 8.814108D+05 4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 9.615388D+05 0COLUMN 165 ROWS 146 THRU 189 -------------------------------------------------- 9.615388D+05 -5.128205D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.211541D+05 4.807694D+05 -1.642628D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 0.000000D+00 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.081731D+07 -7.211539D+06 3.345353D+07 0.000000D+00 0.000000D+00 0.000000D+00 -7.211541D+05 7.211539D+06 -9.214747D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.081731D+07 -4.807694D+05 -4.126603D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 -9.615388D+05 -1.009616D+07 0COLUMNS 166 THRU 168 ARE NULL. 0COLUMN 169 ROWS 145 THRU 188 -------------------------------------------------- -2.884616D+06 0.000000D+00 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -9.535258D+06 -9.615388D+05 -1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 8.092950D+06 9.615388D+05 -7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 6.049680D+07 -1.442308D+07 1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.038462D+07 -1.923078D+06 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.065705D+07 1.442308D+07 7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 -5.128205D+06 1.923078D+06 0COLUMN 170 ROWS 146 THRU 189 -------------------------------------------------- -2.884616D+06 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 9.615388D+05 8.814108D+05 4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.615388D+05 -2.323719D+06 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+07 4.046475D+07 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.923078D+06 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+07 -6.650642D+06 -4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.923078D+06 -1.794872D+07 -9.615388D+05 0COLUMN 171 ROWS 145 THRU 189 -------------------------------------------------- 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED 1.442308D+06 -9.615388D+05 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.081731D+07 -4.807694D+05 -4.126603D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 7.211541D+05 7.211539D+06 -9.214747D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.081731D+07 -7.211539D+06 3.345353D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 0.000000D+00 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 -7.211541D+05 4.807694D+05 -1.642628D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 9.615388D+05 -5.128205D+06 0COLUMNS 172 THRU 174 ARE NULL. 0COLUMN 175 ROWS 145 THRU 189 -------------------------------------------------- -9.535258D+06 9.615388D+05 1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 0.000000D+00 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 8.092950D+06 -9.615388D+05 7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -4.038462D+07 1.923078D+06 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.049680D+07 1.442308D+07 -1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 -5.128205D+06 -1.923078D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.065705D+07 -1.442308D+07 -7.211541D+05 0COLUMN 176 ROWS 145 THRU 189 -------------------------------------------------- -9.615388D+05 8.814108D+05 4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 9.615388D+05 -2.323719D+06 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.923078D+06 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+07 4.046475D+07 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.923078D+06 -1.794872D+07 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+07 -6.650642D+06 -4.807694D+05 0COLUMN 177 ROWS 145 THRU 189 -------------------------------------------------- 1.081731D+07 -4.807694D+05 -4.126603D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 -9.615388D+05 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 -7.211541D+05 7.211539D+06 -9.214747D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 0.000000D+00 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.081731D+07 -7.211539D+06 3.345353D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 9.615388D+05 -5.128205D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.211541D+05 4.807694D+05 -1.642628D+06 0COLUMNS 178 THRU 180 ARE NULL. 0COLUMN 181 ROWS 151 THRU 189 -------------------------------------------------- 8.092950D+06 9.615388D+05 7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 0.000000D+00 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -9.535258D+06 -9.615388D+05 1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 -1.065705D+07 1.442308D+07 -7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 -5.128205D+06 1.923078D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 6.049680D+07 -1.442308D+07 -1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 -4.038462D+07 -1.923078D+06 -1.442308D+06 0COLUMN 182 ROWS 151 THRU 188 -------------------------------------------------- -9.615388D+05 -2.323719D+06 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 9.615388D+05 8.814108D+05 -4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+07 -6.650642D+06 4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.923078D+06 -1.794872D+07 9.615388D+05 1 WEDGE ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T01-21-1A 0 0 MATRIX KGGX CONTINUED 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+07 4.046475D+07 7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.923078D+06 -1.153846D+07 0COLUMN 183 ROWS 151 THRU 189 -------------------------------------------------- -7.211541D+05 -7.211539D+06 -9.214747D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 9.615388D+05 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.081731D+07 4.807694D+05 -4.126603D+06 0.000000D+00 0.000000D+00 0.000000D+00 7.211541D+05 -4.807694D+05 -1.642628D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.615388D+05 -5.128205D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.081731D+07 7.211539D+06 3.345353D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 0.000000D+00 -1.153846D+07 0COLUMNS 184 THRU 186 ARE NULL. 0COLUMN 187 ROWS 145 THRU 189 -------------------------------------------------- 8.092950D+06 -9.615388D+05 -7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.535258D+06 9.615388D+05 -1.081731D+07 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 0.000000D+00 -1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 -5.128205D+06 -1.923078D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.065705D+07 -1.442308D+07 7.211541D+05 0.000000D+00 0.000000D+00 0.000000D+00 -4.038462D+07 1.923078D+06 1.442308D+06 0.000000D+00 0.000000D+00 0.000000D+00 6.049680D+07 1.442308D+07 1.081731D+07 0COLUMN 188 ROWS 145 THRU 189 -------------------------------------------------- 9.615388D+05 -2.323719D+06 -7.211539D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.615388D+05 8.814108D+05 -4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.884616D+06 -9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.923078D+06 -1.794872D+07 9.615388D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+07 -6.650642D+06 4.807694D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.923078D+06 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+07 4.046475D+07 7.211539D+06 0COLUMN 189 ROWS 145 THRU 189 -------------------------------------------------- 7.211541D+05 -7.211539D+06 -9.214747D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.081731D+07 4.807694D+05 -4.126603D+06 0.000000D+00 0.000000D+00 0.000000D+00 1.442308D+06 9.615388D+05 -1.009616D+07 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.615388D+05 -5.128205D+06 0.000000D+00 0.000000D+00 0.000000D+00 -7.211541D+05 -4.807694D+05 -1.642628D+06 0.000000D+00 0.000000D+00 0.000000D+00 -1.442308D+06 0.000000D+00 -1.153846D+07 0.000000D+00 0.000000D+00 0.000000D+00 1.081731D+07 7.211539D+06 3.345353D+07 0COLUMNS 190 THRU 240 ARE NULL. 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 48 0THE DENSITY OF THIS MATRIX IS 2.86 PERCENT. * * * END OF JOB * * * 1 JOB TITLE = WEDGE ELEMENT PROBLEM DATE: 5/17/95 END TIME: 16:34: 3 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/t01221a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01221A,NASTRAN DIAG 14 APP DISP SOL 1,0 TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-22-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = ANISOTROPIC IHEX2 ELEMENT PROBLEM 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-22-1A 3 SPCF = ALL 4 SPC = 11 5 OLOAD = ALL 6 DISP = ALL 7 STRESS= ALL 8 SUBCASE 1 9 LOAD = 29 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 95, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-22-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CIHEX2 10101 1 1 2 3 5 8 7 CIH 1 2- +IH 16 4 29 30 32 31 41 42 CIH 2 3- +IH 243 45 48 47 46 44 4- CIHEX2 10201 1 6 7 8 10 13 12 CIH 3 5- +IH 311 9 31 32 34 33 46 47 CIH 4 6- +IH 448 50 53 52 51 49 7- CIHEX2 10301 1 11 12 13 15 18 17 CIH 5 8- +IH 516 14 33 34 36 35 51 52 CIH 6 9- +IH 653 55 58 57 56 54 10- CIHEX2 10401 1 16 17 18 20 23 22 CIH 7 11- +IH 721 19 35 36 38 37 56 57 CIH 8 12- +IH 858 60 63 62 61 59 13- CIHEX2 10501 1 21 22 23 25 28 27 CIH 9 14- +IH 926 24 37 38 40 39 61 62 CIH 10 15- +IH 1063 65 68 67 66 64 16- CORD2R 30 0. 0. 0. 0. 0. 1. +C1 17- +C1 1. 0. 1. 18- GRDSET 456 19- GRID 1 .000 0.000 0.000 20- GRID 2 .500 0.000 0.000 21- GRID 3 1.000 0.000 0.000 22- GRID 4 .000 1.000 0.000 23- GRID 5 1.000 1.000 0.000 24- GRID 6 .000 2.000 0.000 25- GRID 7 .500 2.000 0.000 26- GRID 8 1.000 2.000 0.000 27- GRID 9 .000 3.000 0.000 28- GRID 10 1.000 3.000 0.000 29- GRID 11 .000 4.000 0.000 30- GRID 12 .500 4.000 0.000 31- GRID 13 1.000 4.000 0.000 32- GRID 14 -.000 5.000 0.000 33- GRID 15 1.000 5.000 0.000 34- GRID 16 -.000 6.000 0.000 35- GRID 17 .500 6.000 0.000 36- GRID 18 1.000 6.000 0.000 37- GRID 19 .000 7.000 0.000 38- GRID 20 1.000 7.000 0.000 39- GRID 21 .000 8.000 0.000 40- GRID 22 .500 8.000 0.000 41- GRID 23 1.000 8.000 0.000 42- GRID 24 .000 9.000 0.000 43- GRID 25 1.000 9.000 0.000 44- GRID 26 .000 10.000 0.000 45- GRID 27 .500 10.000 0.000 46- GRID 28 1.000 10.000 0.000 47- GRID 29 -.000 0.000 .500 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-22-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 30 1.000 0.000 .500 49- GRID 31 -.000 2.000 .500 50- GRID 32 1.000 2.000 .500 51- GRID 33 -.000 4.000 .500 52- GRID 34 1.000 4.000 .500 53- GRID 35 -.000 6.000 .500 54- GRID 36 1.000 6.000 .500 55- GRID 37 -.000 8.000 .500 56- GRID 38 1.000 8.000 .500 57- GRID 39 -.000 10.000 .500 58- GRID 40 1.000 10.000 .500 59- GRID 41 .000 0.000 1.000 60- GRID 42 .500 0.000 1.000 61- GRID 43 1.000 0.000 1.000 62- GRID 44 .000 1.000 1.000 63- GRID 45 1.000 1.000 1.000 64- GRID 46 .000 2.000 1.000 65- GRID 47 .500 2.000 1.000 66- GRID 48 1.000 2.000 1.000 67- GRID 49 .000 3.000 1.000 68- GRID 50 1.000 3.000 1.000 69- GRID 51 .000 4.000 1.000 70- GRID 52 .500 4.000 1.000 71- GRID 53 1.000 4.000 1.000 72- GRID 54 -.000 5.000 1.000 73- GRID 55 1.000 5.000 1.000 74- GRID 56 -.000 6.000 1.000 75- GRID 57 .500 6.000 1.000 76- GRID 58 1.000 6.000 1.000 77- GRID 59 .000 7.000 1.000 78- GRID 60 1.000 7.000 1.000 79- GRID 61 .000 8.000 1.000 80- GRID 62 .500 8.000 1.000 81- GRID 63 1.000 8.000 1.000 82- GRID 64 .000 9.000 1.000 83- GRID 65 1.000 9.000 1.000 84- GRID 66 .000 10.000 1.000 85- GRID 67 .500 10.000 1.000 86- GRID 68 1.000 10.000 1.000 87- MAT6 31 .232+7 -.211+7 .0316+7 .158+7 .105+7 .0526+7 .737+7 +M1 88- +M1 -.211+7 -.553+7 -.368+7 -.184+7 .232+7 .158+7 .105+7 .0526+7 +M2 89- +M2 .664+7 .276+7 .138+7 .434+7 .0921+7 .296+7 7.324-4 90- PIHEX 1 31 30 3 91- PLOAD3 29 -10. 10501 26 68 92- SPC1 11 1 1 29 41 93- SPC1 11 2 1 2 3 29 30 41 94- SPC1 11 2 42 43 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-22-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- SPC1 11 123 1 ENDDATA 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-22-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 01 - STATIC ANALYSIS - APR. 1995 $ 2 FILE OPTP2=SAVE/EST1=SAVE $ 3 FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $ 4 SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ 5 PARAM //*MPY*/CARDNO/0/0 $ 6 COMPOFF 1,INTERACT $ 7 PRECHK ALL $ 8 COMPON 1,INTERACT $ 10 COMPOFF LBLINT02,SYS21 $ 11 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 12 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 13 EQUIV MPTA,MPT/ISOP $ 14 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 15 GP2 GEOM2,EQEXIN/ECT $ 16 PARAML PCDB//*PRES*////JUMPPLOT $ 17 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 18 COND P1,JUMPPLOT $ 19 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 20 PRTMSG PLTSETX// $ 21 PARAM //*MPY*/PLTFLG/1/1 $ 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-22-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 22 PARAM //*MPY*/PFILE/0/0 $ 23 COND P1,JUMPPLOT $ 24 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 25 PRTMSG PLOTX1// $ 26 LABEL P1 $ 27 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ 28 PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ 29 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 30 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 31 PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ 32 COND ERROR4,NOELMT $ 33 PURGE KGGX/NOSIMP $ 34 OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ 35 LABEL LOOPTOP $ 36 COND LBL1,NOSIMP $ 37 PARAM //*ADD*/NOKGGX/1/0 $ 38 EQUIV OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ 39 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 40 COND JMPKGG,NOKGGX $ 41 EMA GPECT,KDICT,KELM/KGGX $ 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-22-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 LABEL JMPKGG $ 43 PURGE MGG/NOMGG $ 44 COND JMPMGG,NOMGG $ 45 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 46 PURGE MDICT,MELM/ALWAYS $ 47 LABEL JMPMGG $ 48 COND LBL1,GRDPNT $ 49 COND ERROR2,NOMGG $ 50 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ 51 OFP OGPWG,,,,,//S,N,CARDNO $ 52 LABEL LBL1 $ 53 EQUIV KGGX,KGG/NOGENL $ 54 COND LBL11A,NOGENL $ 55 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 56 LABEL LBL11A $ 57 GPSTGEN KGG,SIL/GPST $ 58 PARAM //*MPY*/NSKIP/0/0 $ 59 LABEL LBL11 $ 60 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 61 OFP OGPST,,,,,//S,N,CARDNO $ 62 COND ERROR3,NOL $ 63 PARAM //*AND*/NOSR/SINGLE/REACT $ 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-22-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 64 PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ 65 EQUIV KGG,KNN/MPCF1 $ 66 COND LBL2,MPCF2 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,,,/KNN,,, $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 COND LBL5,OMIT $ 76 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 77 LABEL LBL5 $ 78 EQUIV KAA,KLL/REACT $ 79 COND LBL6,REACT $ 80 RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ 81 LABEL LBL6 $ 82 RBMG2 KLL/LLL $ 83 COND LBL7,REACT $ 84 RBMG3 LLL,KLR,KRR/DM $ 85 LABEL LBL7 $ 86 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-22-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING PG,,,,/LUSET/NSKIP/COMPS $ 87 EQUIV PG,PL/NOSET $ 88 COND LBL10,NOSET $ 89 SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ 90 LABEL LBL10 $ 91 SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ NSKIP/S,N,EPSI $ 92 COND LBL9,IRES $ 93 MATGPR GPL,USET,SIL,RULV//*L* $ 94 MATGPR GPL,USET,SIL,RUOV//*O* $ 95 LABEL LBL9 $ 96 SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ *STATICS* $ 97 COND LBL8,REPEAT $ 98 REPT LBL11,360 $ 99 JUMP ERROR1 $ 100 PARAM //*NOT*/TEST/REPEAT $ 101 COND ERROR5,TEST $ 102 LABEL LBL8 $ 103 GPFDR CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/ *STATICS* $ 104 PURGE KDICT,KELM/REPEAT $ 105 OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ 106 COND NOMPCF,GRDEQ $ 107 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T01-22-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 108 OFP OQM1,,,,,//S,N,CARDNO $ 109 LABEL NOMPCF $ 110 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L, OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ 111 COND LBLSTRS,STRESS $ 112 CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/ V,Y,NINTPTS $ 113 LABEL LBLSTRS $ 114 PURGE OES1M/STRESS $ 115 COND LBLSTRN,STRNFLG $ 116 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/ ,,,OES1A,,,,/*STATICS*//1 $ 117 COND LBLSTRN,STRAIN $ 118 CURV OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/ V,Y,NINTPTS $ 119 LABEL LBLSTRN $ 120 PURGE OES1A/STRNFLG $ 121 COND LBL17,NOSORT2 $ 122 SDR3 OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $ 123 PARAM //*SUB*/PRTSORT2/NOSORT2/1 $ 124 COND LBLSORT1,PRTSORT2 $ 125 OFP OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $ 126 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ 127 OFP OESF2,,,,,//S,N,CARDNO $ 128 JUMP LBLXYPLT $ 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T01-22-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 129 LABEL LBLSORT1 $ 130 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 131 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 132 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 133 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 134 LABEL LBLXYPLT $ 135 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ 136 XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ 137 XYPLOT XYPLTT// $ 138 JUMP DPLOT $ 139 LABEL LBL17 $ 140 PURGE OUGV2/NOSORT2 $ 141 COND LBLOFP,COUNT $ 142 OPTPR2 OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N, CARDNO $ 143 EQUIV EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $ 144 COND LOOPEND,PRINT $ 145 LABEL LBLOFP $ 146 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 147 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 148 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $ 149 OFP OESF1X,OESF1Y,,,,//S,N,CARDNO $ 150 OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T01-22-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 151 LABEL DPLOT $ 152 COND P2,JUMPPLOT $ 153 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 154 PRTMSG PLOTX2// $ 155 LABEL P2 $ 156 LABEL LOOPEND $ 157 COND FINIS,COUNT $ 158 REPT LOOPTOP,360 $ 159 JUMP FINIS $ 160 LABEL ERROR1 $ 161 PRTPARM //-1/*STATICS* $ 162 LABEL ERROR2 $ 163 PRTPARM //-2/*STATICS* $ 164 LABEL ERROR3 $ 165 PRTPARM //-3/*STATICS* $ 166 LABEL ERROR4 $ 167 PRTPARM //-4/*STATICS* $ 168 LABEL ERROR5 $ 169 PRTPARM //-5/*STATICS* $ 170 LABEL FINIS $ 171 PURGE DUMMY/ALWAYS $ 172 LABEL LBLINT02 $ 173 COMPON LBLINT01,SYS21 $ 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T01-22-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 228 END $ 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T01-22-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 48 PROFILE 1746 MAX WAVEFRONT 48 AVG WAVEFRONT 25.676 RMS WAVEFRONT 28.578 RMS BANDWIDTH 31.538 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 20 PROFILE 906 MAX WAVEFRONT 20 AVG WAVEFRONT 13.324 RMS WAVEFRONT 14.108 RMS BANDWIDTH 14.108 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 48 20 PROFILE (P) 1746 906 MAXIMUM WAVEFRONT (C-MAX) 48 20 AVERAGE WAVEFRONT (C-AVG) 25.676 13.324 RMS WAVEFRONT (C-RMS) 28.578 14.108 RMS BANDWITCH (B-RMS) 31.538 14.108 NUMBER OF GRID POINTS (N) 68 NUMBER OF ELEMENTS (NON-RIGID) 5 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 31 MINIMUM NODAL DEGREE 19 NUMBER OF UNIQUE EDGES 838 MATRIX DENSITY, PERCENT 37.716 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 17 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T01-22-1A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 2 3 3 4 5 SEQGP 5 4 6 15 7 14 8 13 SEQGP 9 22 10 21 11 27 12 26 SEQGP 13 25 14 34 15 33 16 39 SEQGP 17 38 18 37 19 46 20 45 SEQGP 21 51 22 50 23 49 24 61 SEQGP 25 57 26 60 27 59 28 58 SEQGP 29 6 30 7 31 17 32 16 SEQGP 33 29 34 28 35 41 36 40 SEQGP 37 53 38 52 39 63 40 62 SEQGP 41 8 42 9 43 10 44 12 SEQGP 45 11 46 20 47 19 48 18 SEQGP 49 24 50 23 51 32 52 31 SEQGP 53 30 54 36 55 35 56 44 SEQGP 57 43 58 42 59 48 60 47 SEQGP 61 56 62 55 63 54 64 68 SEQGP 65 64 66 67 67 66 68 65 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION IHEX2 ELEMENTS (ELEMENT TYPE 66) STARTING WITH ID 10101 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -2.1360995E-14 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G -1.008730E-06 0.0 -4.993066E-07 0.0 0.0 0.0 3 G -2.017460E-06 0.0 -9.986132E-07 0.0 0.0 0.0 4 G -3.019118E-06 -6.026180E-06 -2.001656E-06 0.0 0.0 0.0 5 G -5.036578E-06 -6.026180E-06 -3.000269E-06 0.0 0.0 0.0 6 G -6.038237E-06 -1.205236E-05 -4.003312E-06 0.0 0.0 0.0 7 G -7.046966E-06 -1.205236E-05 -4.502619E-06 0.0 0.0 0.0 8 G -8.055697E-06 -1.205236E-05 -5.001926E-06 0.0 0.0 0.0 9 G -9.057355E-06 -1.807854E-05 -6.004969E-06 0.0 0.0 0.0 10 G -1.107481E-05 -1.807854E-05 -7.003582E-06 0.0 0.0 0.0 11 G -1.207647E-05 -2.410472E-05 -8.006625E-06 0.0 0.0 0.0 12 G -1.308520E-05 -2.410472E-05 -8.505932E-06 0.0 0.0 0.0 13 G -1.409393E-05 -2.410472E-05 -9.005238E-06 0.0 0.0 0.0 14 G -1.509559E-05 -3.013090E-05 -1.000828E-05 0.0 0.0 0.0 15 G -1.711305E-05 -3.013090E-05 -1.100689E-05 0.0 0.0 0.0 16 G -1.811471E-05 -3.615708E-05 -1.200994E-05 0.0 0.0 0.0 17 G -1.912344E-05 -3.615708E-05 -1.250924E-05 0.0 0.0 0.0 18 G -2.013217E-05 -3.615708E-05 -1.300855E-05 0.0 0.0 0.0 19 G -2.113383E-05 -4.218326E-05 -1.401159E-05 0.0 0.0 0.0 20 G -2.315129E-05 -4.218326E-05 -1.501021E-05 0.0 0.0 0.0 21 G -2.415295E-05 -4.820944E-05 -1.601325E-05 0.0 0.0 0.0 22 G -2.516168E-05 -4.820944E-05 -1.651256E-05 0.0 0.0 0.0 23 G -2.617041E-05 -4.820944E-05 -1.701186E-05 0.0 0.0 0.0 24 G -2.717207E-05 -5.423562E-05 -1.801491E-05 0.0 0.0 0.0 25 G -2.918952E-05 -5.423562E-05 -1.901352E-05 0.0 0.0 0.0 26 G -3.019118E-05 -6.026180E-05 -2.001656E-05 0.0 0.0 0.0 27 G -3.119991E-05 -6.026180E-05 -2.051587E-05 0.0 0.0 0.0 28 G -3.220864E-05 -6.026180E-05 -2.101518E-05 0.0 0.0 0.0 29 G 0.0 0.0 -1.008730E-06 0.0 0.0 0.0 30 G -2.017460E-06 0.0 -2.007343E-06 0.0 0.0 0.0 31 G -6.038237E-06 -1.205236E-05 -5.012042E-06 0.0 0.0 0.0 32 G -8.055697E-06 -1.205236E-05 -6.010655E-06 0.0 0.0 0.0 33 G -1.207647E-05 -2.410472E-05 -9.015354E-06 0.0 0.0 0.0 34 G -1.409393E-05 -2.410472E-05 -1.001397E-05 0.0 0.0 0.0 35 G -1.811471E-05 -3.615708E-05 -1.301867E-05 0.0 0.0 0.0 36 G -2.013217E-05 -3.615708E-05 -1.401728E-05 0.0 0.0 0.0 37 G -2.415295E-05 -4.820944E-05 -1.702198E-05 0.0 0.0 0.0 38 G -2.617041E-05 -4.820944E-05 -1.802059E-05 0.0 0.0 0.0 39 G -3.019118E-05 -6.026180E-05 -2.102529E-05 0.0 0.0 0.0 40 G -3.220864E-05 -6.026180E-05 -2.202391E-05 0.0 0.0 0.0 41 G 0.0 0.0 -2.017460E-06 0.0 0.0 0.0 42 G -1.008730E-06 0.0 -2.516766E-06 0.0 0.0 0.0 43 G -2.017460E-06 0.0 -3.016073E-06 0.0 0.0 0.0 44 G -3.019118E-06 -6.026180E-06 -4.019116E-06 0.0 0.0 0.0 45 G -5.036578E-06 -6.026180E-06 -5.017729E-06 0.0 0.0 0.0 46 G -6.038237E-06 -1.205236E-05 -6.020772E-06 0.0 0.0 0.0 47 G -7.046966E-06 -1.205236E-05 -6.520078E-06 0.0 0.0 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 48 G -8.055697E-06 -1.205236E-05 -7.019385E-06 0.0 0.0 0.0 49 G -9.057355E-06 -1.807854E-05 -8.022428E-06 0.0 0.0 0.0 50 G -1.107481E-05 -1.807854E-05 -9.021041E-06 0.0 0.0 0.0 51 G -1.207647E-05 -2.410472E-05 -1.002408E-05 0.0 0.0 0.0 52 G -1.308520E-05 -2.410472E-05 -1.052339E-05 0.0 0.0 0.0 53 G -1.409393E-05 -2.410472E-05 -1.102270E-05 0.0 0.0 0.0 54 G -1.509559E-05 -3.013090E-05 -1.202574E-05 0.0 0.0 0.0 55 G -1.711305E-05 -3.013090E-05 -1.302435E-05 0.0 0.0 0.0 56 G -1.811471E-05 -3.615708E-05 -1.402740E-05 0.0 0.0 0.0 57 G -1.912344E-05 -3.615708E-05 -1.452670E-05 0.0 0.0 0.0 58 G -2.013217E-05 -3.615708E-05 -1.502601E-05 0.0 0.0 0.0 59 G -2.113383E-05 -4.218326E-05 -1.602905E-05 0.0 0.0 0.0 60 G -2.315129E-05 -4.218326E-05 -1.702767E-05 0.0 0.0 0.0 61 G -2.415295E-05 -4.820944E-05 -1.803071E-05 0.0 0.0 0.0 62 G -2.516168E-05 -4.820944E-05 -1.853002E-05 0.0 0.0 0.0 63 G -2.617041E-05 -4.820944E-05 -1.902932E-05 0.0 0.0 0.0 64 G -2.717207E-05 -5.423562E-05 -2.003236E-05 0.0 0.0 0.0 65 G -2.918952E-05 -5.423562E-05 -2.103098E-05 0.0 0.0 0.0 66 G -3.019118E-05 -6.026180E-05 -2.203402E-05 0.0 0.0 0.0 67 G -3.119991E-05 -6.026180E-05 -2.253333E-05 0.0 0.0 0.0 68 G -3.220864E-05 -6.026180E-05 -2.303263E-05 0.0 0.0 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 26 G 7.726091E-16 8.333333E-01 2.104165E-15 0.0 0.0 0.0 27 G -5.627817E-16 -3.333333E+00 5.091605E-15 0.0 0.0 0.0 28 G -1.239037E-15 8.333333E-01 -4.835481E-16 0.0 0.0 0.0 39 G 3.283144E-15 -3.333333E+00 2.954980E-15 0.0 0.0 0.0 40 G -2.913069E-15 -3.333333E+00 -1.104608E-15 0.0 0.0 0.0 66 G 6.839256E-16 8.333333E-01 -1.551861E-15 0.0 0.0 0.0 67 G 9.328560E-16 -3.333333E+00 -3.241233E-15 0.0 0.0 0.0 68 G -4.025348E-16 8.333333E-01 -9.939418E-16 0.0 0.0 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.529710E-13 -8.333333E-01 -5.417888E-14 0.0 0.0 0.0 2 G 0.0 3.333333E+00 0.0 0.0 0.0 0.0 3 G 0.0 -8.333333E-01 0.0 0.0 0.0 0.0 29 G -5.084821E-14 3.333333E+00 0.0 0.0 0.0 0.0 30 G 0.0 3.333333E+00 0.0 0.0 0.0 0.0 41 G -3.234080E-13 -8.333333E-01 0.0 0.0 0.0 0.0 42 G 0.0 3.333333E+00 0.0 0.0 0.0 0.0 43 G 0.0 -8.333333E-01 0.0 0.0 0.0 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10101 1 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333338E+00 4.714052E+00 Y -1.000001E+01 YZ 0.0 B -1.000001E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 2 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333334E+00 4.714047E+00 Y -1.000000E+01 YZ 0.0 B -1.000000E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 3 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333330E+00 4.714041E+00 Y -9.999990E+00 YZ 0.0 B -9.999990E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 5 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333336E+00 4.714049E+00 Y -1.000001E+01 YZ 0.0 B -1.000001E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 8 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333341E+00 4.714056E+00 Y -1.000002E+01 YZ 0.0 B -1.000002E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 7 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333335E+00 4.714047E+00 Y -1.000000E+01 YZ 0.0 B -1.000000E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 6 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333328E+00 4.714037E+00 Y -9.999983E+00 YZ 0.0 B -9.999983E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 4 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333333E+00 4.714045E+00 Y -9.999999E+00 YZ 0.0 B -9.999999E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 29 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333336E+00 4.714048E+00 Y -1.000001E+01 YZ 0.0 B -1.000001E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 30 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333338E+00 4.714051E+00 Y -1.000001E+01 YZ 0.0 B -1.000001E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 32 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333327E+00 4.714036E+00 Y -9.999982E+00 YZ 0.0 B -9.999982E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10101 31 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333327E+00 4.714036E+00 Y -9.999980E+00 YZ 0.0 B -9.999980E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 41 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333332E+00 4.714044E+00 Y -9.999997E+00 YZ 0.0 B -9.999997E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 42 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333338E+00 4.714052E+00 Y -1.000002E+01 YZ 0.0 B -1.000002E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 43 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333344E+00 4.714060E+00 Y -1.000003E+01 YZ 0.0 B -1.000003E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 45 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333328E+00 4.714039E+00 Y -9.999986E+00 YZ 0.0 B -9.999986E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 48 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333313E+00 4.714016E+00 Y -9.999938E+00 YZ 0.0 B -9.999938E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 47 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333319E+00 4.714025E+00 Y -9.999958E+00 YZ 0.0 B -9.999958E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 46 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333325E+00 4.714034E+00 Y -9.999975E+00 YZ 0.0 B -9.999975E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 44 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333329E+00 4.714039E+00 Y -9.999988E+00 YZ 0.0 B -9.999988E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10101 0 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333331E+00 4.714043E+00 Y -9.999994E+00 YZ 0.0 B -9.999994E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 6 X 0.0 XY -1.035674E-04 A 0.0 LX 0.0 0.00 0.0 3.333318E+00 4.714024E+00 Y -9.999955E+00 YZ 0.0 B -9.999955E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10201 7 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333330E+00 4.714041E+00 Y -9.999990E+00 YZ 0.0 B -9.999990E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 8 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333341E+00 4.714056E+00 Y -1.000002E+01 YZ 0.0 B -1.000002E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 10 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333334E+00 4.714046E+00 Y -1.000000E+01 YZ 0.0 B -1.000000E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 13 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333326E+00 4.714035E+00 Y -9.999977E+00 YZ 0.0 B -9.999977E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 12 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333331E+00 4.714042E+00 Y -9.999993E+00 YZ 0.0 B -9.999993E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 11 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333335E+00 4.714048E+00 Y -1.000001E+01 YZ 0.0 B -1.000001E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 9 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333327E+00 4.714036E+00 Y -9.999982E+00 YZ 0.0 B -9.999982E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 31 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333324E+00 4.714032E+00 Y -9.999971E+00 YZ 0.0 B -9.999971E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 32 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333339E+00 4.714054E+00 Y -1.000002E+01 YZ 0.0 B -1.000002E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 34 X 0.0 XY -1.141221E-04 A 0.0 LX 0.0 0.00 0.0 3.333320E+00 4.714026E+00 Y -9.999960E+00 YZ 0.0 B -9.999960E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 33 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333341E+00 4.714056E+00 Y -1.000002E+01 YZ 0.0 B -1.000002E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10201 46 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333328E+00 4.714038E+00 Y -9.999985E+00 YZ 0.0 B -9.999985E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 47 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333333E+00 4.714045E+00 Y -9.999999E+00 YZ 0.0 B -9.999999E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 48 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333337E+00 4.714050E+00 Y -1.000001E+01 YZ 0.0 B -1.000001E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 50 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333326E+00 4.714035E+00 Y -9.999977E+00 YZ 0.0 B -9.999977E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 53 X 0.0 XY -2.210707E-04 A 0.0 LX 0.0 0.00 0.0 3.333314E+00 4.714017E+00 Y -9.999941E+00 YZ -1.975064E-04 B -9.999941E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.00 0.0 0 10201 52 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333330E+00 4.714041E+00 Y -9.999990E+00 YZ 0.0 B -9.999990E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 51 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333346E+00 4.714063E+00 Y -1.000004E+01 YZ 0.0 B -1.000004E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 49 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333338E+00 4.714051E+00 Y -1.000001E+01 YZ 0.0 B -1.000001E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10201 0 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333331E+00 4.714042E+00 Y -9.999992E+00 YZ 0.0 B -9.999992E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 11 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333361E+00 4.714085E+00 Y -1.000008E+01 YZ 0.0 B -1.000008E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 12 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333342E+00 4.714058E+00 Y -1.000003E+01 YZ 0.0 B -1.000003E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10301 13 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333322E+00 4.714029E+00 Y -9.999967E+00 YZ 0.0 B -9.999967E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 15 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333319E+00 4.714025E+00 Y -9.999957E+00 YZ 0.0 B -9.999957E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 18 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333315E+00 4.714020E+00 Y -9.999946E+00 YZ 0.0 B -9.999946E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 17 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333313E+00 4.714017E+00 Y -9.999940E+00 YZ 0.0 B -9.999940E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 16 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333310E+00 4.714012E+00 Y -9.999930E+00 YZ 0.0 B -9.999930E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 14 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333336E+00 4.714049E+00 Y -1.000001E+01 YZ 0.0 B -1.000001E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 33 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333334E+00 4.714046E+00 Y -1.000000E+01 YZ 0.0 B -1.000000E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 34 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333345E+00 4.714062E+00 Y -1.000003E+01 YZ 0.0 B -1.000003E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 36 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333336E+00 4.714048E+00 Y -1.000001E+01 YZ 0.0 B -1.000001E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 35 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333320E+00 4.714026E+00 Y -9.999959E+00 YZ 0.0 B -9.999959E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 51 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333306E+00 4.714007E+00 Y -9.999919E+00 YZ 0.0 B -9.999919E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10301 52 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333337E+00 4.714050E+00 Y -1.000001E+01 YZ 0.0 B -1.000001E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 53 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333367E+00 4.714093E+00 Y -1.000010E+01 YZ 0.0 B -1.000010E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 55 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333361E+00 4.714085E+00 Y -1.000008E+01 YZ 0.0 B -1.000008E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 58 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333355E+00 4.714076E+00 Y -1.000006E+01 YZ 0.0 B -1.000006E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 57 X 0.0 XY 1.045035E-04 A 0.0 LX 0.0 0.00 0.0 3.333342E+00 4.714057E+00 Y -1.000003E+01 YZ 0.0 B -1.000003E+01 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 56 X 0.0 XY 1.507328E-04 A 0.0 LX 0.0 0.00 0.0 3.333328E+00 4.714037E+00 Y -9.999984E+00 YZ 0.0 B -9.999984E+00 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 54 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333318E+00 4.714023E+00 Y -9.999952E+00 YZ 0.0 B -9.999952E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10301 0 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333333E+00 4.714046E+00 Y -1.000000E+01 YZ 0.0 B -1.000000E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10401 16 X 0.0 XY -3.923041E-04 A 0.0 LX 0.0 0.00 0.0 3.333207E+00 4.713866E+00 Y -9.999620E+00 YZ -1.635757E-04 B -9.999620E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.00 0.0 0 10401 17 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333293E+00 4.713988E+00 Y -9.999879E+00 YZ 0.0 B -9.999879E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10401 18 X 0.0 XY 3.067409E-04 A 0.0 LX 0.0 0.00 0.0 3.333378E+00 4.714109E+00 Y -1.000013E+01 YZ 1.079207E-04 B -1.000013E+01 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.00 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10401 20 X 0.0 XY 1.870388E-04 A 0.0 LX 0.0 0.00 0.0 3.333353E+00 4.714074E+00 Y -1.000006E+01 YZ 1.402576E-04 B -1.000006E+01 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.00 0.0 0 10401 23 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333328E+00 4.714037E+00 Y -9.999984E+00 YZ 1.725945E-04 B -9.999984E+00 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.00 0.0 0 10401 22 X 0.0 XY 1.010189E-04 A 0.0 LX 0.0 0.00 0.0 3.333330E+00 4.714041E+00 Y -9.999990E+00 YZ 0.0 B -9.999990E+00 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10401 21 X 0.0 XY 1.347011E-04 A 0.0 LX 0.0 0.00 0.0 3.333331E+00 4.714042E+00 Y -9.999993E+00 YZ 0.0 B -9.999993E+00 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10401 19 X 0.0 XY -1.288015E-04 A 0.0 LX 0.0 0.00 0.0 3.333269E+00 4.713955E+00 Y -9.999808E+00 YZ 0.0 B -9.999808E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10401 35 X 0.0 XY -1.174918E-04 A 0.0 LX 0.0 0.00 0.0 3.333312E+00 4.714015E+00 Y -9.999935E+00 YZ 0.0 B -9.999935E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10401 36 X 0.0 XY 1.551596E-04 A 0.0 LX 0.0 0.00 0.0 3.333360E+00 4.714083E+00 Y -1.000008E+01 YZ 0.0 B -1.000008E+01 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10401 38 X 0.0 XY -1.393699E-04 A 0.0 LX 0.0 0.00 0.0 3.333318E+00 4.714024E+00 Y -9.999955E+00 YZ 0.0 B -9.999955E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10401 37 X 0.0 XY 1.544562E-04 A 0.0 LX 0.0 0.00 0.0 3.333333E+00 4.714046E+00 Y -1.000000E+01 YZ 0.0 B -1.000000E+01 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10401 56 X 0.0 XY 1.573205E-04 A 0.0 LX 0.0 0.00 0.0 3.333416E+00 4.714162E+00 Y -1.000025E+01 YZ 1.752240E-04 B -1.000025E+01 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.00 0.0 0 10401 57 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333379E+00 4.714110E+00 Y -1.000014E+01 YZ 0.0 B -1.000014E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10401 58 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333342E+00 4.714057E+00 Y -1.000002E+01 YZ 0.0 B -1.000002E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 1.596552E-04 C 0.0 LZ 0.0 0.0 0.0 0 10401 60 X 0.0 XY -1.712492E-04 A 0.0 LX 0.0 0.00 0.0 3.333325E+00 4.714034E+00 Y -9.999975E+00 YZ 0.0 B -9.999975E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10401 63 X 0.0 XY -3.460766E-04 A 0.0 LX 0.0 0.00 0.0 3.333308E+00 4.714009E+00 Y -9.999923E+00 YZ 0.0 B -9.999923E+00 LY 0.0 1.00 0.0 Z 0.0 ZX -1.047638E-04 C 0.0 LZ 0.0 0.00 0.0 0 10401 62 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333322E+00 4.714028E+00 Y -9.999965E+00 YZ 0.0 B -9.999965E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10401 61 X 0.0 XY 1.742113E-04 A 0.0 LX 0.0 0.00 0.0 3.333335E+00 4.714047E+00 Y -1.000000E+01 YZ 0.0 B -1.000000E+01 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10401 59 X 0.0 XY 1.657659E-04 A 0.0 LX 0.0 0.00 0.0 3.333376E+00 4.714105E+00 Y -1.000013E+01 YZ 1.173884E-04 B -1.000013E+01 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.00 0.0 0 10401 0 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333331E+00 4.714042E+00 Y -9.999992E+00 YZ 0.0 B -9.999992E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10501 21 X 0.0 XY -1.815047E-04 A 0.0 LX 0.0 0.00 0.0 3.333295E+00 4.713990E+00 Y -9.999884E+00 YZ 0.0 B -9.999884E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10501 22 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333339E+00 4.714054E+00 Y -1.000002E+01 YZ 0.0 B -1.000002E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10501 23 X 0.0 XY 1.737319E-04 A 0.0 LX 0.0 0.00 0.0 3.333383E+00 4.714116E+00 Y -1.000015E+01 YZ 1.363936E-04 B -1.000015E+01 LY 0.0 -1.00 0.0 Z 1.505077E-04 ZX 0.0 C 0.0 LZ 0.0 0.00 0.0 0 10501 25 X 0.0 XY 1.653482E-04 A 0.0 LX 0.0 0.00 0.0 3.333332E+00 4.714044E+00 Y -9.999997E+00 YZ 0.0 B -9.999997E+00 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10501 28 X 0.0 XY 1.569645E-04 A 0.0 LX 0.0 0.00 0.0 3.333281E+00 4.713971E+00 Y -9.999844E+00 YZ 0.0 B -9.999843E+00 LY 0.0 -1.00 0.0 Z -1.412053E-04 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10501 27 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333322E+00 4.714029E+00 Y -9.999967E+00 YZ 0.0 B -9.999967E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10501 26 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333362E+00 4.714086E+00 Y -1.000009E+01 YZ 0.0 B -1.000009E+01 LY 0.0 1.00 0.0 Z 1.556012E-04 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10501 24 X 0.0 XY -1.019733E-04 A 0.0 LX 0.0 0.00 0.0 3.333329E+00 4.714039E+00 Y -9.999987E+00 YZ 0.0 B -9.999987E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10501 37 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333283E+00 4.713975E+00 Y -9.999850E+00 YZ -1.020533E-04 B -9.999850E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.00 0.0 0 10501 38 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333385E+00 4.714118E+00 Y -1.000015E+01 YZ 0.0 B -1.000015E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10501 40 X 0.0 XY -1.745008E-04 A 0.0 LX 0.0 0.00 0.0 3.333230E+00 4.713900E+00 Y -9.999691E+00 YZ -1.197447E-04 B -9.999691E+00 LY 0.0 1.00 0.0 Z 0.0 ZX -1.035354E-04 C 0.0 LZ 0.0 0.00 0.0 0 10501 39 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333405E+00 4.714147E+00 Y -1.000022E+01 YZ 0.0 B -1.000022E+01 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10501 61 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333271E+00 4.713958E+00 Y -9.999814E+00 YZ -1.816037E-04 B -9.999814E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.00 0.0 0 10501 62 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333329E+00 4.714039E+00 Y -9.999987E+00 YZ -1.352529E-04 B -9.999987E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.00 0.0 0 10501 63 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333386E+00 4.714119E+00 Y -1.000016E+01 YZ 0.0 B -1.000016E+01 LY 0.0 1.00 0.0 Z -1.038763E-04 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 1 ANISOTROPIC IHEX2 ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T01-22-1A 0 SUBCASE 1 S T R E S S E S I N I S O P A R A M E T R I C S O L I D ( C I H E X 2 ) ELEMENT GRID STRESSES IN BASIC COORDINATESYSTEM DIR. COSINES ID POINT NORMAL SHEAR PRINCIPAL A B C MEAN STRESS MAX SHEAR 0 10501 65 X 0.0 XY -2.446793E-04 A 0.0 LX 0.0 0.00 0.0 3.333283E+00 4.713974E+00 Y -9.999848E+00 YZ -1.651929E-04 B -9.999848E+00 LY 0.0 1.00 0.0 Z 0.0 ZX -1.022756E-04 C 0.0 LZ 0.0 0.00 0.0 0 10501 68 X 0.0 XY -5.059661E-04 A 0.0 LX 0.0 0.00 0.0 3.333179E+00 4.713827E+00 Y -9.999537E+00 YZ -2.414838E-04 B -9.999537E+00 LY 0.0 1.00 0.0 Z 0.0 ZX -1.831275E-04 C 0.0 LZ 0.0 0.00 0.0 0 10501 67 X 0.0 XY -1.576870E-04 A 0.0 LX 0.0 0.00 0.0 3.333313E+00 4.714017E+00 Y -9.999940E+00 YZ 0.0 B -9.999940E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10501 66 X 0.0 XY 1.905922E-04 A 0.0 LX 0.0 0.00 0.0 3.333447E+00 4.714206E+00 Y -1.000034E+01 YZ 0.0 B -1.000034E+01 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10501 64 X 0.0 XY 1.202176E-04 A 0.0 LX 0.0 0.00 0.0 3.333360E+00 4.714083E+00 Y -1.000008E+01 YZ 0.0 B -1.000008E+01 LY 0.0 -1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 0 10501 0 X 0.0 XY 0.0 A 0.0 LX 0.0 0.0 0.0 3.333326E+00 4.714035E+00 Y -9.999977E+00 YZ 0.0 B -9.999977E+00 LY 0.0 1.00 0.0 Z 0.0 ZX 0.0 C 0.0 LZ 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = ANISOTROPIC IHEX2 ELEMENT PROBLEM DATE: 5/17/95 END TIME: 16:34:53 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t01231a.out ================================================ NASTRAN FILES=(INP1,INP2) **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01231A,NASTRAN APP DISP SOL 1 DIAG 8,15,-2,-14,-7 TIME 30 $ ALTER 113 $ $ $PRINT OQG1 TABLE FOR LATER COMPARISION OFP OQG1,,,,, //S,N,CARDNO $ $ $CDC USERS, USE UT1 (UNIT 11) AND UT2 (UNIT 12) INSTEAD OF INP1 AND INP2 $IN THIS DEMO PROBLEM $ $COPY TABLE OQG1 TO INP1 (UNIT 15) AND COPY OQG1 TO MYFOOT (IN PACKED $GINO FILE) DUMMOD5 OQG1,,OQG1,,/,,MYFOOT,,/6/15/6/0/0/+1 $ $ $PRINT MYFOOT, IN MATRIX FORMAT, WHICH SHOULD CONTAIN OQG1 DATA $PRINT MATRIX KGG FOR LATER COMPARISON MATPRN MYFOOT,KGG,,,// $ $ $COPY MYFOOT AND KGG TO INP2 (UNIT 16), SEQUENTIAL FORMATTED TAPE OUTPUT5 MYFOOT,KGG,,,//-1/16/*YOURFEET*/1 $ $ $RECOVER THE 2 FILES FROM INP2 (UNIT 16) AND MAKE THEM NASTRAN GINO FILES INPUTT5 /OMYFOOT,OKGG,,,/-1/16/*YOURFEET*/1 $ $ $RECOVER THE BINARY FILE IN INP1 (UNIT 15) WHICH WAS SAVED IN DUMMOD5 INPUTT5 /OQG1X,,,,/-1/15/*XXXXXXXX*/0 $ $ $TABLE PRINT OQG1X AND OMYFOOT, AND MATRIX PRINT OKGG FOR VERIFICATION TABPT OQG1X,OMYFOOT,,, // $ MATPRN OKGG,,,, // $ $ $JUMP TO FINISH JUMP FINIS $ $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-23-1A 3 LOAD = 10 4 SPC = 1 5 SPCFORCE= ALL 6 DISP = NONE 7 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 43, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BAROR 5 0. 0. 1. 1 2- CBAR 1 2 1 2 1.0 0.0 0.0 1 3- CBAR 2 5 1 3 4- CBAR 3 5 3 5 5- CBAR 4 5 7 9 6- CBAR 5 5 9 11 7- CBAR 6 5 2 4 8- CBAR 7 5 4 6 9- CBAR 8 5 6 8 10- CBAR 9 5 8 10 11- CBAR 10 5 5 7 12- CBAR 11 3 7 6 13- CBAR 12 3 5 6 1.0 0.0 0.0 1 14- FORCE 10 1 110.0 0.0 0.0 -1.0 15- GRDSET 246 16- GRID 1 200. 0.0 10.0 17- GRID 2 200. 0.0 0.0 18- GRID 3 150.0 0.0 10.0 19- GRID 4 150.0 0.0 0.0 20- GRID 5 100. 0.0 10.0 21- GRID 6 100. 0.0 0.0 22- GRID 7 76. 0.0 10.0 23- GRID 8 50.0 0.0 0.0 24- GRID 9 25.86 0.0 10.0 25- GRID 10 0. 0.0 0.0 26- GRID 11 -24. 0.0 10.0 27- MAT1 6061 1.+7 0.3 0.1 28- PBAR 1 6061 100. 100. 100. 100. +P1 29- +P1 -1.0 1.0 1.0 1.0 1.0 -1.0 -1.0 -1.0 30- PBAR 2 6061 1.359 .752 .752 1.504 +P2 31- +P2 -1.0 1.0 1.0 1.0 1.0 -1.0 -1.0 -1.0 32- PBAR 3 6061 .25 .08 .08 .09 +P3 33- +P3 -.25 1.0 .25 1.0 .25 -1.0 -.25 1.0 34- PBAR 4 6061 .25 .08 .08 .09 +P4 35- +P4 -.25 1.0 .25 1.0 .25 -1.0 -.25 1.0 36- PBAR 5 6061 2.718 1.504 1.504 3.0 +P5 37- +P5 -1.0 6.0 1.0 6.0 1.0 -6.0 -1.0 -6.0 38- SPC1 1 3 1 2 4 6 39- SPC1 1 13 10 11 40- SPCD 10 1 3 -1.0 41- SPCD 10 2 3 -1.0 42- SPCD 10 4 3 -1.0 43- SPCD 10 6 3 -1.0 ENDDATA 0*** USER INFORMATION MESSAGE, THE FOLLOWING PROPERTY IDS ARE PRESENT BUT NOT USED - 1 4 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-23-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 3.4866033E-17 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-23-1A 0 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 1.120520E+02 0.0 0.0 0.0 2 G 0.0 0.0 -1.199711E+01 0.0 0.0 0.0 4 G 0.0 0.0 7.452454E+01 0.0 0.0 0.0 6 G 0.0 0.0 -1.316064E+02 0.0 0.0 0.0 10 G 4.760130E+02 0.0 3.414592E+01 0.0 0.0 0.0 11 G -4.760130E+02 0.0 3.288108E+01 0.0 0.0 0.0 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 0*** MODULE DUMMOD5 CALLED BY USER DMAP ALTER. PARAMETERS ARE P= 6, 15, 6, 0, 0, Q= 1 R= 0 COLUMN= 1 0.000000E+00 0.000000E+00 0.000000E+00 0.112052E+03 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.119971E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.745245E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.131606E+03 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.476013E+03 0.000000E+00 0.341459E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.476013E+03 0.000000E+00 0.328811E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0*** USER INFORMATION MESSAGE, MODULE DUMMOD5 SUCCESSFULLY COPIED TABULAR DATA FROM OQG1 TO OUTPUT TAPE (FORTRAN UNIT 15) IN BANDED MATRIX FORM GRID-ID ARRAY FOLLOWS/FROM OQG1 1 2 4 6 10 11 COLUMN= 1 0.000000E+00 0.000000E+00 0.000000E+00 0.112052E+03 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.119971E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.745245E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.131606E+03 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.476013E+03 0.000000E+00 0.341459E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 -0.476013E+03 0.000000E+00 0.328811E+02 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0*** USER INFORMATION MESSAGE, MODULE DUMMOD5 SUCCESSFULLY PROCESSED TABULAR DATA FROM OQG1 TO DATA BLOCK MYFOOT IN GINO PACKED FORM GRID-ID ARRAY FOLLOWS/FROM OQG1 1 2 4 6 10 11 0*** USER INFORMATION MESSAGE, FOLLOWING DATA BLOCKS WERE COPIED TO FORTRAN UNIT 15 BY MODULE DUMMOD5 USING UNFORMATTED (BINARY) WRITE OQG1 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX MYFOOT (GINO NAME 101 ) IS A S.P.REAL 1 COLUMN X 48 ROW RECTANG MATRIX. 0COLUMN 1 ROWS 1 THRU 44 -------------------------------------------------- 0.00000E+00 0.00000E+00 0.00000E+00 1.12052E+02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 -1.19971E+01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 7.45245E+01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 -1.31606E+02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 4.76013E+02 0.00000E+00 3.41459E+01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 -4.76013E+02 0.00000E+00 3.28811E+01 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 14 0THE DENSITY OF THIS MATRIX IS 29.16 PERCENT. 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX KGG (GINO NAME 102 ) IS A D.P.REAL 66 COLUMN X 66 ROW SYMMETRC MATRIX. 0COLUMN 1 ROWS 1 THRU 13 -------------------------------------------------- 6.338400D+05 0.000000D+00 0.000000D+00 0.000000D+00 -4.512000D+05 0.000000D+00 -9.024000D+04 0.000000D+00 0.000000D+00 0.000000D+00 -4.512000D+05 0.000000D+00 -5.436000D+05 0COLUMN 2 ROWS 2 THRU 18 -------------------------------------------------- 9.168384D+04 0.000000D+00 4.512000D+05 0.000000D+00 -3.609600D+04 0.000000D+00 -9.024000D+04 0.000000D+00 4.512000D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0COLUMN 3 ROWS 3 THRU 17 -------------------------------------------------- 1.360444D+06 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 -1.359000D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 3.609600D+04 0COLUMN 4 ROWS 2 THRU 16 -------------------------------------------------- 4.512000D+05 0.000000D+00 3.238769D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.512000D+05 0.000000D+00 1.504000D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+05 0COLUMN 5 ROWS 1 THRU 17 -------------------------------------------------- -4.512000D+05 0.000000D+00 3.609600D+04 0.000000D+00 4.211200D+06 0.000000D+00 4.512000D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.504000D+06 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 6.016000D+05 0COLUMN 6 ROWS 2 THRU 18 -------------------------------------------------- -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.781662D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.784615D+05 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0COLUMN 7 ROWS 1 THRU 19 -------------------------------------------------- -9.024000D+04 0.000000D+00 0.000000D+00 0.000000D+00 4.512000D+05 0.000000D+00 6.338400D+05 0.000000D+00 0.000000D+00 0.000000D+00 4.512000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.436000D+05 0COLUMN 8 ROWS 2 THRU 24 -------------------------------------------------- -9.024000D+04 0.000000D+00 -4.512000D+05 0.000000D+00 0.000000D+00 0.000000D+00 9.168384D+04 0.000000D+00 -4.512000D+05 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0COLUMN 9 ROWS 3 THRU 23 -------------------------------------------------- -1.359000D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.360444D+06 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 3.609600D+04 0COLUMN 10 ROWS 2 THRU 22 -------------------------------------------------- 4.512000D+05 0.000000D+00 1.504000D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.512000D+05 0.000000D+00 3.238769D+06 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX KGG CONTINUED 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+05 0COLUMN 11 ROWS 1 THRU 23 -------------------------------------------------- -4.512000D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.504000D+06 0.000000D+00 4.512000D+05 0.000000D+00 3.609600D+04 0.000000D+00 4.211200D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 6.016000D+05 0COLUMN 12 ROWS 6 THRU 24 -------------------------------------------------- -5.784615D+05 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.781662D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0COLUMN 13 ROWS 1 THRU 25 -------------------------------------------------- -5.436000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.087200D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.436000D+05 0COLUMN 14 ROWS 2 THRU 30 -------------------------------------------------- -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887680D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0COLUMN 15 ROWS 3 THRU 29 -------------------------------------------------- -1.443840D+03 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887680D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 3.609600D+04 0COLUMN 16 ROWS 4 THRU 28 -------------------------------------------------- -2.307692D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.615385D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+05 0COLUMN 17 ROWS 3 THRU 29 -------------------------------------------------- 3.609600D+04 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.406400D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 6.016000D+05 0COLUMN 18 ROWS 2 THRU 30 -------------------------------------------------- 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX KGG CONTINUED -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.406400D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0COLUMN 19 ROWS 7 THRU 31 -------------------------------------------------- -5.436000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.087200D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.436000D+05 0COLUMN 20 ROWS 8 THRU 36 -------------------------------------------------- -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887680D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0COLUMN 21 ROWS 9 THRU 35 -------------------------------------------------- -1.443840D+03 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887680D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 3.609600D+04 0COLUMN 22 ROWS 10 THRU 34 -------------------------------------------------- -2.307692D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.615385D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+05 0COLUMN 23 ROWS 9 THRU 35 -------------------------------------------------- 3.609600D+04 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.406400D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 6.016000D+05 0COLUMN 24 ROWS 8 THRU 36 -------------------------------------------------- -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.406400D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0COLUMN 25 ROWS 13 THRU 37 -------------------------------------------------- -5.436000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.685700D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.800000D+04 0.000000D+00 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX KGG CONTINUED -9.600000D+03 0.000000D+00 0.000000D+00 0.000000D+00 -4.800000D+04 0.000000D+00 -1.132500D+06 0COLUMN 26 ROWS 14 THRU 42 -------------------------------------------------- -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.409939D+04 0.000000D+00 4.800000D+04 0.000000D+00 -1.205707D+05 0.000000D+00 -9.600000D+03 0.000000D+00 4.800000D+04 0.000000D+00 0.000000D+00 0.000000D+00 -1.305556D+04 0.000000D+00 0.000000D+00 0.000000D+00 -1.566667D+05 0COLUMN 27 ROWS 15 THRU 41 -------------------------------------------------- -1.443840D+03 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.644994D+05 0.000000D+00 1.205707D+05 0.000000D+00 0.000000D+00 0.000000D+00 -2.500000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.305556D+04 0.000000D+00 1.566667D+05 0COLUMN 28 ROWS 16 THRU 40 -------------------------------------------------- -2.307692D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.800000D+04 0.000000D+00 1.031538D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.800000D+04 0.000000D+00 1.600000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -4.807692D+05 0COLUMN 29 ROWS 15 THRU 41 -------------------------------------------------- 3.609600D+04 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -4.800000D+04 0.000000D+00 1.205707D+05 0.000000D+00 4.029867D+06 0.000000D+00 4.800000D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.600000D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.566667D+05 0.000000D+00 1.253333D+06 0COLUMN 30 ROWS 14 THRU 42 -------------------------------------------------- -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.205707D+05 0.000000D+00 0.000000D+00 0.000000D+00 3.744482D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.461539D+04 0.000000D+00 1.566667D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.253333D+06 0COLUMN 31 ROWS 19 THRU 43 -------------------------------------------------- -5.436000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.600000D+03 0.000000D+00 0.000000D+00 0.000000D+00 4.800000D+04 0.000000D+00 1.178811D+06 0.000000D+00 -3.394354D+04 0.000000D+00 5.073100D+04 0.000000D+00 -8.201070D+04 0.000000D+00 3.394354D+04 0.000000D+00 2.730997D+03 0.000000D+00 -5.436000D+05 0COLUMN 32 ROWS 20 THRU 48 -------------------------------------------------- -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 -9.600000D+03 0.000000D+00 -4.800000D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.303388D+04 0.000000D+00 -5.073100D+04 0.000000D+00 -6.554392D+03 0.000000D+00 -5.461994D+02 0.000000D+00 -2.730997D+03 0.000000D+00 -6.554392D+03 0.000000D+00 -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0COLUMN 33 ROWS 21 THRU 47 -------------------------------------------------- 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX KGG CONTINUED -1.443840D+03 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 -2.500000D+05 0.000000D+00 0.000000D+00 0.000000D+00 -3.394354D+04 0.000000D+00 2.675770D+05 0.000000D+00 6.554392D+03 0.000000D+00 3.394354D+04 0.000000D+00 -1.468934D+04 0.000000D+00 6.554392D+03 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 3.609600D+04 0COLUMN 34 ROWS 22 THRU 46 -------------------------------------------------- -2.307692D+05 0.000000D+00 0.000000D+00 0.000000D+00 4.800000D+04 0.000000D+00 1.600000D+05 0.000000D+00 0.000000D+00 0.000000D+00 -5.073100D+04 0.000000D+00 8.110893D+05 0.000000D+00 3.896922D+04 0.000000D+00 2.730997D+03 0.000000D+00 -2.240819D+03 0.000000D+00 2.657470D+04 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+05 0COLUMN 35 ROWS 21 THRU 47 -------------------------------------------------- 3.609600D+04 0.000000D+00 6.016000D+05 0.000000D+00 -4.800000D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.600000D+05 0.000000D+00 5.073100D+04 0.000000D+00 6.554392D+03 0.000000D+00 2.849477D+06 0.000000D+00 -2.730997D+03 0.000000D+00 -6.554392D+03 0.000000D+00 6.153846D+04 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 6.016000D+05 0COLUMN 36 ROWS 20 THRU 48 -------------------------------------------------- -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.461539D+04 0.000000D+00 -6.554392D+03 0.000000D+00 3.896922D+04 0.000000D+00 2.547855D+06 0.000000D+00 6.554392D+03 0.000000D+00 2.657470D+04 0.000000D+00 5.046567D+04 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0COLUMN 37 ROWS 25 THRU 49 -------------------------------------------------- -1.132500D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -8.201070D+04 0.000000D+00 3.394354D+04 0.000000D+00 -2.730997D+03 0.000000D+00 1.756593D+06 0.000000D+00 -3.394354D+04 0.000000D+00 -2.730997D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.420822D+05 0COLUMN 38 ROWS 26 THRU 54 -------------------------------------------------- -1.305556D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.566667D+05 0.000000D+00 -5.461994D+02 0.000000D+00 2.730997D+03 0.000000D+00 6.554392D+03 0.000000D+00 1.503353D+04 0.000000D+00 2.730997D+03 0.000000D+00 1.273263D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.431779D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.589471D+04 0COLUMN 39 ROWS 27 THRU 53 -------------------------------------------------- -1.305556D+04 0.000000D+00 -1.566667D+05 0.000000D+00 3.394354D+04 0.000000D+00 -1.468934D+04 0.000000D+00 -6.554392D+03 0.000000D+00 -3.394354D+04 0.000000D+00 2.917668D+04 0.000000D+00 -1.273263D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.431779D+03 0.000000D+00 3.589471D+04 0COLUMN 40 ROWS 28 THRU 52 -------------------------------------------------- -4.807692D+05 0.000000D+00 0.000000D+00 0.000000D+00 -2.730997D+03 0.000000D+00 -2.240819D+03 0.000000D+00 2.657470D+04 0.000000D+00 2.730997D+03 0.000000D+00 7.404449D+05 0.000000D+00 3.896922D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.301249D+05 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX KGG CONTINUED 0COLUMN 41 ROWS 27 THRU 53 -------------------------------------------------- 1.566667D+05 0.000000D+00 1.253333D+06 0.000000D+00 2.730997D+03 0.000000D+00 6.554392D+03 0.000000D+00 6.153846D+04 0.000000D+00 -2.730997D+03 0.000000D+00 -1.273263D+05 0.000000D+00 3.829584D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.589471D+04 0.000000D+00 5.999202D+05 0COLUMN 42 ROWS 26 THRU 54 -------------------------------------------------- -1.566667D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.253333D+06 0.000000D+00 -6.554392D+03 0.000000D+00 2.657470D+04 0.000000D+00 5.046567D+04 0.000000D+00 1.273263D+05 0.000000D+00 3.896922D+04 0.000000D+00 3.813347D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.589471D+04 0.000000D+00 0.000000D+00 0.000000D+00 5.999202D+05 0COLUMN 43 ROWS 31 THRU 55 -------------------------------------------------- -5.436000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.087200D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.436000D+05 0COLUMN 44 ROWS 32 THRU 60 -------------------------------------------------- -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887680D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0COLUMN 45 ROWS 33 THRU 59 -------------------------------------------------- -1.443840D+03 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887680D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 3.609600D+04 0COLUMN 46 ROWS 34 THRU 58 -------------------------------------------------- -2.307692D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.615385D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+05 0COLUMN 47 ROWS 33 THRU 59 -------------------------------------------------- 3.609600D+04 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.406400D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 6.016000D+05 0COLUMN 48 ROWS 32 THRU 60 -------------------------------------------------- 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX KGG CONTINUED -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.406400D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0COLUMN 49 ROWS 37 THRU 61 -------------------------------------------------- -5.420822D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.087208D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.451263D+05 0COLUMN 50 ROWS 38 THRU 66 -------------------------------------------------- -1.431779D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.589471D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887816D+03 0.000000D+00 0.000000D+00 0.000000D+00 -4.042798D+02 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.456036D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.629899D+04 0COLUMN 51 ROWS 39 THRU 65 -------------------------------------------------- -1.431779D+03 0.000000D+00 -3.589471D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887816D+03 0.000000D+00 4.042798D+02 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.456036D+03 0.000000D+00 3.629899D+04 0COLUMN 52 ROWS 40 THRU 64 -------------------------------------------------- -2.301249D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.615421D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.314172D+05 0COLUMN 53 ROWS 39 THRU 65 -------------------------------------------------- 3.589471D+04 0.000000D+00 5.999202D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.042798D+02 0.000000D+00 2.406419D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.629899D+04 0.000000D+00 6.032892D+05 0COLUMN 54 ROWS 38 THRU 66 -------------------------------------------------- -3.589471D+04 0.000000D+00 0.000000D+00 0.000000D+00 5.999202D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -4.042798D+02 0.000000D+00 0.000000D+00 0.000000D+00 2.406419D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.629899D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.032892D+05 0COLUMN 55 ROWS 43 THRU 55 -------------------------------------------------- -5.436000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 5.436000D+05 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX KGG CONTINUED 0COLUMN 56 ROWS 44 THRU 60 -------------------------------------------------- -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0COLUMN 57 ROWS 45 THRU 59 -------------------------------------------------- -1.443840D+03 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.443840D+03 0.000000D+00 -3.609600D+04 0COLUMN 58 ROWS 46 THRU 58 -------------------------------------------------- -2.307692D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.307692D+05 0COLUMN 59 ROWS 45 THRU 59 -------------------------------------------------- 3.609600D+04 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 1.203200D+06 0COLUMN 60 ROWS 44 THRU 60 -------------------------------------------------- -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.203200D+06 0COLUMN 61 ROWS 49 THRU 61 -------------------------------------------------- -5.451263D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 5.451263D+05 0COLUMN 62 ROWS 50 THRU 66 -------------------------------------------------- -1.456036D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.629899D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.456036D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.629899D+04 0COLUMN 63 ROWS 51 THRU 65 -------------------------------------------------- -1.456036D+03 0.000000D+00 -3.629899D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.456036D+03 0.000000D+00 -3.629899D+04 0COLUMN 64 ROWS 52 THRU 64 -------------------------------------------------- -2.314172D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.314172D+05 0COLUMN 65 ROWS 51 THRU 65 -------------------------------------------------- 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX KGG CONTINUED 3.629899D+04 0.000000D+00 6.032892D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.629899D+04 0.000000D+00 1.206578D+06 0COLUMN 66 ROWS 50 THRU 66 -------------------------------------------------- -3.629899D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.032892D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.629899D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.206578D+06 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 24 0THE DENSITY OF THIS MATRIX IS 8.76 PERCENT. 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX KGG CONTINUED 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T01-23-1A 0*** USER INFORMATION MESSAGE, MODULE OUTPUT5 CALLED BY USER DMAP ALTER, ON FORMATTD TAPE, WITH FOLLOWING REQUEST (P1=-1) REWIND, WRITE A TAPE HEADER RECORD, THEN FOLLOWED BY DATA BLOCKS WRITING. AT END, NO EOF AND NO REWIND MODULE OUTPUT5 UNPACKED MATRIX DATA BLOCK MYFOOT AND WROTE IT OUT TO FORTRAN UNIT 16, IN BANDED DATA FORM (FIRST TO LAST NON-ZERO ELEMENTS) NO. OF COLS = 1 NO. OF ROWS = 48 FORM = 2 TYPE = 1 SYSTEM BUFFSIZE = 1028 IN FORTRAN FORMATTED RECORDS - (3I8,/,(10E13.6)) MODULE OUTPUT5 UNPACKED MATRIX DATA BLOCK KGG AND WROTE IT OUT TO FORTRAN UNIT 16, IN BANDED DATA FORM (FIRST TO LAST NON-ZERO ELEMENTS) NO. OF COLS = 66 NO. OF ROWS = 66 FORM = 6 TYPE = 2 SYSTEM BUFFSIZE = 1028 IN FORTRAN FORMATTED RECORDS - (3I8,/,(5D26.17)) SUMMARY FROM OUTPUT5 MODULE DATA BLOCKS WRITTEN TO FORTRAN UNIT 16 (BY MACHINE, FORMATTD RECORDS) FILE NAME TYPE ------------------------------------ 1 MYFOOT MTRX 2 KGG MTRX THIS FORMATTED OUTPUT FILE CAN BE VIEWED OR EDITED VIA SYSTEM EDITOR 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0*** USER INFORMATION MESSAGE, MODULE INPUTT5 CALLED BY USER DMAP ALTER, ON FORMATTD INPUT FILE, WITH THE FOLLOWING REQUEST. (P1=-1) REWIND, POSITION PAST TAPE HEADER RECORD, THEN READ TAPE. AT END, NO REWIND MODULE INPUTT5 IS NOW PROCESSING TAPE YOURFEET WHICH WAS WRITTEN BY MACHINE ON 5/17/95 SYSTEM BUFFSIZE= 1028 TAPE IN FORMATTED RECORDS MATRIX DATA BLOCK MYFOOT WAS SUCESSFULLY RECOVERED FROM FORTRAN UNIT 16 TO OMYFOOT GINO UNIT = 201 NO. OF COLS = 1 NO. OF ROWS = 48 FORM = 2 TYPE = 1 NON-ZERO WORDS = 8 DENSITY = 1666 MATRIX DATA BLOCK KGG WAS SUCESSFULLY RECOVERED FROM FORTRAN UNIT 16 TO OKGG GINO UNIT = 202 NO. OF COLS = 66 NO. OF ROWS = 66 FORM = 6 TYPE = 2 NON-ZERO WORDS = 24 DENSITY = 876 SUMMARY FROM INPUTT5 MODLUE - FILES RECOVERED FROM FORTRAN UNIT 16 (WRITTEN BY MACHINE FORMATTD RECORDS) FILE NAME TYPE ------------------------------------ 1 MYFOOT MTRX 2 KGG MTRX 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0*** USER INFORMATION MESSAGE, MODULE INPUTT5 CALLED BY USER DMAP ALTER, ON BINARY INPUT FILE, WITH THE FOLLOWING REQUEST. (P1=-1) REWIND, POSITION PAST TAPE HEADER RECORD, THEN READ TAPE. AT END, NO REWIND MODULE INPUTT5 IS NOW PROCESSING TAPE XXXXXXXX WHICH WAS WRITTEN BY MACHINE ON 5/17/95 SYSTEM BUFFSIZE= 1028 TAPE IN BINARY RECORDS MATRIX DATA BLOCK OQG1 WAS SUCESSFULLY RECOVERED FROM FORTRAN UNIT 15 TO OQG1X GINO UNIT = 201 NO. OF COLS = 1 NO. OF ROWS = 48 FORM = 2 TYPE = 1 NON-ZERO WORDS = 13 DENSITY = 2708 SUMMARY FROM INPUTT5 MODLUE - FILES RECOVERED FROM FORTRAN UNIT 15 (WRITTEN BY MACHINE BINARY RECORDS) FILE NAME TYPE ------------------------------------ 1 OQG1 MTRX 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 TABLE OQG1X 0*** USER WARNING MESSAGE, TABPRT MODULE ASSUMES ALL REAL DATA ARE IN S.P., D.P. DATA THEREFORE MAY BE PRINTED ERRONEOUSLY RECORD NO. 0 OQG1 X RECORD NO. 1 0STRING NO. 1 ROW POSITION= 4 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 1.1205201E+02 0STRING NO. 2 ROW POSITION= 9 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 0.0000000E+00 0STRING NO. 3 ROW POSITION= 12 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 -1.1997112E+01 0STRING NO. 4 ROW POSITION= 17 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 0.0000000E+00 0STRING NO. 5 ROW POSITION= 20 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 7.4524544E+01 0STRING NO. 6 ROW POSITION= 25 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 0.0000000E+00 0STRING NO. 7 ROW POSITION= 28 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 -1.3160645E+02 0STRING NO. 8 ROW POSITION= 33 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 2 0.0000000E+00 4.7601303E+02 0STRING NO. 9 ROW POSITION= 36 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 3.4145924E+01 0STRING NO. 10 ROW POSITION= 41 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 2 0.0000000E+00 -4.7601303E+02 0STRING NO. 11 ROW POSITION= 44 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 3.2881084E+01 RECORD NO. 2 END OF FILE 0TRAILER WORD1 = 1 WORD2 = 48 WORD3 = 2 WORD4 = 1 WORD5 = 13 WORD6 = 2708 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 TABLE OMYFOOT RECORD NO. 0 OMYF OOT RECORD NO. 1 0STRING NO. 1 ROW POSITION= 4 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 1.1205200E+02 0STRING NO. 2 ROW POSITION= 12 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 -1.1997100E+01 0STRING NO. 3 ROW POSITION= 20 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 7.4524498E+01 0STRING NO. 4 ROW POSITION= 28 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 -1.3160600E+02 0STRING NO. 5 ROW POSITION= 34 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 4.7601300E+02 0STRING NO. 6 ROW POSITION= 36 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 3.4145901E+01 0STRING NO. 7 ROW POSITION= 42 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 -4.7601300E+02 0STRING NO. 8 ROW POSITION= 44 STRING TYPE=RSP STRING TRAILERS=YES NUMBER OF TERMS= 1 3.2881100E+01 RECORD NO. 2 END OF FILE 0TRAILER WORD1 = 1 WORD2 = 48 WORD3 = 2 WORD4 = 1 WORD5 = 8 WORD6 = 1666 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX OKGG (GINO NAME 101 ) IS A D.P.REAL 66 COLUMN X 66 ROW SYMMETRC MATRIX. 0COLUMN 1 ROWS 1 THRU 13 -------------------------------------------------- 6.338400D+05 0.000000D+00 0.000000D+00 0.000000D+00 -4.512000D+05 0.000000D+00 -9.024000D+04 0.000000D+00 0.000000D+00 0.000000D+00 -4.512000D+05 0.000000D+00 -5.436000D+05 0COLUMN 2 ROWS 2 THRU 18 -------------------------------------------------- 9.168384D+04 0.000000D+00 4.512000D+05 0.000000D+00 -3.609600D+04 0.000000D+00 -9.024000D+04 0.000000D+00 4.512000D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0COLUMN 3 ROWS 3 THRU 17 -------------------------------------------------- 1.360444D+06 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 -1.359000D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 3.609600D+04 0COLUMN 4 ROWS 2 THRU 16 -------------------------------------------------- 4.512000D+05 0.000000D+00 3.238769D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.512000D+05 0.000000D+00 1.504000D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+05 0COLUMN 5 ROWS 1 THRU 17 -------------------------------------------------- -4.512000D+05 0.000000D+00 3.609600D+04 0.000000D+00 4.211200D+06 0.000000D+00 4.512000D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.504000D+06 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 6.016000D+05 0COLUMN 6 ROWS 2 THRU 18 -------------------------------------------------- -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.781662D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.784615D+05 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0COLUMN 7 ROWS 1 THRU 19 -------------------------------------------------- -9.024000D+04 0.000000D+00 0.000000D+00 0.000000D+00 4.512000D+05 0.000000D+00 6.338400D+05 0.000000D+00 0.000000D+00 0.000000D+00 4.512000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.436000D+05 0COLUMN 8 ROWS 2 THRU 24 -------------------------------------------------- -9.024000D+04 0.000000D+00 -4.512000D+05 0.000000D+00 0.000000D+00 0.000000D+00 9.168384D+04 0.000000D+00 -4.512000D+05 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0COLUMN 9 ROWS 3 THRU 23 -------------------------------------------------- -1.359000D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.360444D+06 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 3.609600D+04 0COLUMN 10 ROWS 2 THRU 22 -------------------------------------------------- 4.512000D+05 0.000000D+00 1.504000D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.512000D+05 0.000000D+00 3.238769D+06 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX OKGG CONTINUED 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+05 0COLUMN 11 ROWS 1 THRU 23 -------------------------------------------------- -4.512000D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.504000D+06 0.000000D+00 4.512000D+05 0.000000D+00 3.609600D+04 0.000000D+00 4.211200D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 6.016000D+05 0COLUMN 12 ROWS 6 THRU 24 -------------------------------------------------- -5.784615D+05 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.781662D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0COLUMN 13 ROWS 1 THRU 25 -------------------------------------------------- -5.436000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.087200D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.436000D+05 0COLUMN 14 ROWS 2 THRU 30 -------------------------------------------------- -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887680D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0COLUMN 15 ROWS 3 THRU 29 -------------------------------------------------- -1.443840D+03 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887680D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 3.609600D+04 0COLUMN 16 ROWS 4 THRU 28 -------------------------------------------------- -2.307692D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.615385D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+05 0COLUMN 17 ROWS 3 THRU 29 -------------------------------------------------- 3.609600D+04 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.406400D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 6.016000D+05 0COLUMN 18 ROWS 2 THRU 30 -------------------------------------------------- 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX OKGG CONTINUED -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.406400D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0COLUMN 19 ROWS 7 THRU 31 -------------------------------------------------- -5.436000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.087200D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.436000D+05 0COLUMN 20 ROWS 8 THRU 36 -------------------------------------------------- -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887680D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0COLUMN 21 ROWS 9 THRU 35 -------------------------------------------------- -1.443840D+03 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887680D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 3.609600D+04 0COLUMN 22 ROWS 10 THRU 34 -------------------------------------------------- -2.307692D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.615385D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+05 0COLUMN 23 ROWS 9 THRU 35 -------------------------------------------------- 3.609600D+04 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.406400D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 6.016000D+05 0COLUMN 24 ROWS 8 THRU 36 -------------------------------------------------- -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.406400D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0COLUMN 25 ROWS 13 THRU 37 -------------------------------------------------- -5.436000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.685700D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.800000D+04 0.000000D+00 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX OKGG CONTINUED -9.600000D+03 0.000000D+00 0.000000D+00 0.000000D+00 -4.800000D+04 0.000000D+00 -1.132500D+06 0COLUMN 26 ROWS 14 THRU 42 -------------------------------------------------- -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.409939D+04 0.000000D+00 4.800000D+04 0.000000D+00 -1.205707D+05 0.000000D+00 -9.600000D+03 0.000000D+00 4.800000D+04 0.000000D+00 0.000000D+00 0.000000D+00 -1.305556D+04 0.000000D+00 0.000000D+00 0.000000D+00 -1.566667D+05 0COLUMN 27 ROWS 15 THRU 41 -------------------------------------------------- -1.443840D+03 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.644994D+05 0.000000D+00 1.205707D+05 0.000000D+00 0.000000D+00 0.000000D+00 -2.500000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.305556D+04 0.000000D+00 1.566667D+05 0COLUMN 28 ROWS 16 THRU 40 -------------------------------------------------- -2.307692D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.800000D+04 0.000000D+00 1.031538D+06 0.000000D+00 0.000000D+00 0.000000D+00 -4.800000D+04 0.000000D+00 1.600000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -4.807692D+05 0COLUMN 29 ROWS 15 THRU 41 -------------------------------------------------- 3.609600D+04 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -4.800000D+04 0.000000D+00 1.205707D+05 0.000000D+00 4.029867D+06 0.000000D+00 4.800000D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.600000D+05 0.000000D+00 0.000000D+00 0.000000D+00 -1.566667D+05 0.000000D+00 1.253333D+06 0COLUMN 30 ROWS 14 THRU 42 -------------------------------------------------- -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.205707D+05 0.000000D+00 0.000000D+00 0.000000D+00 3.744482D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.461539D+04 0.000000D+00 1.566667D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.253333D+06 0COLUMN 31 ROWS 19 THRU 43 -------------------------------------------------- -5.436000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -9.600000D+03 0.000000D+00 0.000000D+00 0.000000D+00 4.800000D+04 0.000000D+00 1.178811D+06 0.000000D+00 -3.394354D+04 0.000000D+00 5.073100D+04 0.000000D+00 -8.201070D+04 0.000000D+00 3.394354D+04 0.000000D+00 2.730997D+03 0.000000D+00 -5.436000D+05 0COLUMN 32 ROWS 20 THRU 48 -------------------------------------------------- -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 -9.600000D+03 0.000000D+00 -4.800000D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.303388D+04 0.000000D+00 -5.073100D+04 0.000000D+00 -6.554392D+03 0.000000D+00 -5.461994D+02 0.000000D+00 -2.730997D+03 0.000000D+00 -6.554392D+03 0.000000D+00 -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0COLUMN 33 ROWS 21 THRU 47 -------------------------------------------------- 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX OKGG CONTINUED -1.443840D+03 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 -2.500000D+05 0.000000D+00 0.000000D+00 0.000000D+00 -3.394354D+04 0.000000D+00 2.675770D+05 0.000000D+00 6.554392D+03 0.000000D+00 3.394354D+04 0.000000D+00 -1.468934D+04 0.000000D+00 6.554392D+03 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 3.609600D+04 0COLUMN 34 ROWS 22 THRU 46 -------------------------------------------------- -2.307692D+05 0.000000D+00 0.000000D+00 0.000000D+00 4.800000D+04 0.000000D+00 1.600000D+05 0.000000D+00 0.000000D+00 0.000000D+00 -5.073100D+04 0.000000D+00 8.110893D+05 0.000000D+00 3.896922D+04 0.000000D+00 2.730997D+03 0.000000D+00 -2.240819D+03 0.000000D+00 2.657470D+04 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+05 0COLUMN 35 ROWS 21 THRU 47 -------------------------------------------------- 3.609600D+04 0.000000D+00 6.016000D+05 0.000000D+00 -4.800000D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.600000D+05 0.000000D+00 5.073100D+04 0.000000D+00 6.554392D+03 0.000000D+00 2.849477D+06 0.000000D+00 -2.730997D+03 0.000000D+00 -6.554392D+03 0.000000D+00 6.153846D+04 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 6.016000D+05 0COLUMN 36 ROWS 20 THRU 48 -------------------------------------------------- -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.461539D+04 0.000000D+00 -6.554392D+03 0.000000D+00 3.896922D+04 0.000000D+00 2.547855D+06 0.000000D+00 6.554392D+03 0.000000D+00 2.657470D+04 0.000000D+00 5.046567D+04 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0COLUMN 37 ROWS 25 THRU 49 -------------------------------------------------- -1.132500D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -8.201070D+04 0.000000D+00 3.394354D+04 0.000000D+00 -2.730997D+03 0.000000D+00 1.756593D+06 0.000000D+00 -3.394354D+04 0.000000D+00 -2.730997D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.420822D+05 0COLUMN 38 ROWS 26 THRU 54 -------------------------------------------------- -1.305556D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.566667D+05 0.000000D+00 -5.461994D+02 0.000000D+00 2.730997D+03 0.000000D+00 6.554392D+03 0.000000D+00 1.503353D+04 0.000000D+00 2.730997D+03 0.000000D+00 1.273263D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.431779D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.589471D+04 0COLUMN 39 ROWS 27 THRU 53 -------------------------------------------------- -1.305556D+04 0.000000D+00 -1.566667D+05 0.000000D+00 3.394354D+04 0.000000D+00 -1.468934D+04 0.000000D+00 -6.554392D+03 0.000000D+00 -3.394354D+04 0.000000D+00 2.917668D+04 0.000000D+00 -1.273263D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.431779D+03 0.000000D+00 3.589471D+04 0COLUMN 40 ROWS 28 THRU 52 -------------------------------------------------- -4.807692D+05 0.000000D+00 0.000000D+00 0.000000D+00 -2.730997D+03 0.000000D+00 -2.240819D+03 0.000000D+00 2.657470D+04 0.000000D+00 2.730997D+03 0.000000D+00 7.404449D+05 0.000000D+00 3.896922D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.301249D+05 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX OKGG CONTINUED 0COLUMN 41 ROWS 27 THRU 53 -------------------------------------------------- 1.566667D+05 0.000000D+00 1.253333D+06 0.000000D+00 2.730997D+03 0.000000D+00 6.554392D+03 0.000000D+00 6.153846D+04 0.000000D+00 -2.730997D+03 0.000000D+00 -1.273263D+05 0.000000D+00 3.829584D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.589471D+04 0.000000D+00 5.999202D+05 0COLUMN 42 ROWS 26 THRU 54 -------------------------------------------------- -1.566667D+05 0.000000D+00 0.000000D+00 0.000000D+00 1.253333D+06 0.000000D+00 -6.554392D+03 0.000000D+00 2.657470D+04 0.000000D+00 5.046567D+04 0.000000D+00 1.273263D+05 0.000000D+00 3.896922D+04 0.000000D+00 3.813347D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.589471D+04 0.000000D+00 0.000000D+00 0.000000D+00 5.999202D+05 0COLUMN 43 ROWS 31 THRU 55 -------------------------------------------------- -5.436000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.087200D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.436000D+05 0COLUMN 44 ROWS 32 THRU 60 -------------------------------------------------- -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887680D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0COLUMN 45 ROWS 33 THRU 59 -------------------------------------------------- -1.443840D+03 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887680D+03 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.443840D+03 0.000000D+00 3.609600D+04 0COLUMN 46 ROWS 34 THRU 58 -------------------------------------------------- -2.307692D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.615385D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.307692D+05 0COLUMN 47 ROWS 33 THRU 59 -------------------------------------------------- 3.609600D+04 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.406400D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 6.016000D+05 0COLUMN 48 ROWS 32 THRU 60 -------------------------------------------------- 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX OKGG CONTINUED -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.406400D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0COLUMN 49 ROWS 37 THRU 61 -------------------------------------------------- -5.420822D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.087208D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -5.451263D+05 0COLUMN 50 ROWS 38 THRU 66 -------------------------------------------------- -1.431779D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.589471D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887816D+03 0.000000D+00 0.000000D+00 0.000000D+00 -4.042798D+02 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.456036D+03 0.000000D+00 0.000000D+00 0.000000D+00 -3.629899D+04 0COLUMN 51 ROWS 39 THRU 65 -------------------------------------------------- -1.431779D+03 0.000000D+00 -3.589471D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.887816D+03 0.000000D+00 4.042798D+02 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.456036D+03 0.000000D+00 3.629899D+04 0COLUMN 52 ROWS 40 THRU 64 -------------------------------------------------- -2.301249D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.615421D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.314172D+05 0COLUMN 53 ROWS 39 THRU 65 -------------------------------------------------- 3.589471D+04 0.000000D+00 5.999202D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 4.042798D+02 0.000000D+00 2.406419D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.629899D+04 0.000000D+00 6.032892D+05 0COLUMN 54 ROWS 38 THRU 66 -------------------------------------------------- -3.589471D+04 0.000000D+00 0.000000D+00 0.000000D+00 5.999202D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -4.042798D+02 0.000000D+00 0.000000D+00 0.000000D+00 2.406419D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.629899D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.032892D+05 0COLUMN 55 ROWS 43 THRU 55 -------------------------------------------------- -5.436000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 5.436000D+05 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX OKGG CONTINUED 0COLUMN 56 ROWS 44 THRU 60 -------------------------------------------------- -1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.443840D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0COLUMN 57 ROWS 45 THRU 59 -------------------------------------------------- -1.443840D+03 0.000000D+00 -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.443840D+03 0.000000D+00 -3.609600D+04 0COLUMN 58 ROWS 46 THRU 58 -------------------------------------------------- -2.307692D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.307692D+05 0COLUMN 59 ROWS 45 THRU 59 -------------------------------------------------- 3.609600D+04 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.609600D+04 0.000000D+00 1.203200D+06 0COLUMN 60 ROWS 44 THRU 60 -------------------------------------------------- -3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.016000D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.609600D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.203200D+06 0COLUMN 61 ROWS 49 THRU 61 -------------------------------------------------- -5.451263D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 5.451263D+05 0COLUMN 62 ROWS 50 THRU 66 -------------------------------------------------- -1.456036D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.629899D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.456036D+03 0.000000D+00 0.000000D+00 0.000000D+00 3.629899D+04 0COLUMN 63 ROWS 51 THRU 65 -------------------------------------------------- -1.456036D+03 0.000000D+00 -3.629899D+04 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.456036D+03 0.000000D+00 -3.629899D+04 0COLUMN 64 ROWS 52 THRU 64 -------------------------------------------------- -2.314172D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.314172D+05 0COLUMN 65 ROWS 51 THRU 65 -------------------------------------------------- 1 DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T01-23-1A 0 0 MATRIX OKGG CONTINUED 3.629899D+04 0.000000D+00 6.032892D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -3.629899D+04 0.000000D+00 1.206578D+06 0COLUMN 66 ROWS 50 THRU 66 -------------------------------------------------- -3.629899D+04 0.000000D+00 0.000000D+00 0.000000D+00 6.032892D+05 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.629899D+04 0.000000D+00 0.000000D+00 0.000000D+00 1.206578D+06 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 24 0THE DENSITY OF THIS MATRIX IS 8.76 PERCENT. * * * END OF JOB * * * 1 JOB TITLE = DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 DATE: 5/17/95 END TIME: 16:35:36 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t01241a.out ================================================ NASTRAN TITLEOPT=-1, BANDIT=-1 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01241A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 10 ALTER 58 TABPT EPT,,,, // $ MATPRN KGGX,,,, // $ PARAML EPT //*TABLE1*/1/6 /V,N,RSP $ PARAML EPT //*TABLE1*/1/4 //V,N,INT $ PARAML EPT //*TABLE2*/1/4 //V,N,INT2 $ INTENTIONAL ERROR PARAML EPT //*TABLE2*/1/6 ///V,N,RDP $ PARAML EPT //*TABLE2*/1/6 /RSPX/INTX/V,N,RDPX $ PARAML EPT //*TABLE1*/1/1 ////V,N,BCD $ PARAML EPT //*TABLE2*/1/6 /////V,N,SCPLX $ PARAML EPT //*TABLE2*/1/6 //////V,N,DCPLX $ PARAML EPT //*TABLE4*/1/6 //////V,N,DCPLX4 $ PARAML EPT //*TABLE2*/1/9 /V,N,LAST $ PARAML EPT //*TABLE1*/1/9 /V,N,LAST1 $ PARAML KGGX//*MATRIX*/7/1 /V,N,R1 $ PARAML KGGX//*MATRIX*/3/1 //V,N,I1 $ PARAML KGGX//*MATRIX*/1/3 ///V,N,D1 $ PARAML KGGX//*MATRIX*/1/3 ////V,N,B1 $ PARAML KGGX//*MATRIX*/7/13 /////V,N,CS1 $ PARAML KGGX//*MATRIX*/13/7//////V,N,CD1 $ PARAML KGGX//*MATRIX*/13/19 ///V,N,D13 $ SCALAR KGGX// 1/1 /V,N,SP1 $ SCALAR KGGX// 1/3 /V,N,SP2 $ SCALAR KGGX// 3/1 /V,N,SP3 $ SCALAR KGGX// 7/13 /V,N,SP4 $ SCALAR KGGX// 19/13 //V,N,DP4 $ SCALAR KGGX// 7/13 ///V,N,CSP4 $ SCALAR KGGX// 13/7 ////V,N,CDP4 $ PARAMR //*ADD* /V,N,R1SP4 /V,N,R1 /V,N,SP4 $ PARAMR //*SUB* /V,N,R1SP4 /V,N,R1 /V,N,SP4 $ PARAMR //*ABS* /V,N,ABSR1 /V,N,R1 $ PARAMR //*ABS* /V,N,ABSRX //V,N,R1 $ INTENTIONAL ERROR INPUT PARAMR //*SQRT* /V,N,SQTR1 /V,N,R1 $ PARAMR //*SQRT* /V,N,SQTR1 /V,N,ABSR1 $ PARAMR //*MPYC* ////V,N,CMPY /V,N,SCPLX /V,N,CS1 $ PARAMR //*COMPLEX*//V,N,R1 /V,N,SP4 /V,N,OUTC $ PARAMR //*LE* //V,N,R1 /V,N,SP4////V,N,LEFLG $ PARAMD //*MPY* /V,N,RDPDP /V,N,RDPX /V,N,RDPX $ PARAMD //*MPY* /V,N,RDPDX //V,N,RDPX /V,N,RDPY $ ERROR INPUT PARAMD //*DIV* /V,N,DP4X /V,N,DP4 /V,N,RDPX $ PARAMD //*EXP* /V,N,EXPX /V,N,DP4 /V,N,RDP $ PARAMD //*CONJ* ////V,N,CONJX /V,N,CDP4 $ 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 PARAMD //*DIVC* ////V,N,DIVCX /V,N,DCPLX4/V,N,CDP4 $ PARAMD //*EQ* //V,N,EXPX /V,N,DP4////V,N,EQFLG $ PRTPARM // 0 $ JUMP FINIS $ ENDALTER CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-24-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-24-1A 3 SPC = 1 4 LOAD = 1 5 DISP = ALL 6 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 11, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-24-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CROD 60 5 1 2 61 5 2 3 2- CROD 62 5 3 4 3- FORCE 1 4 0 -1. .0 .0 100. 4- GRDSET 456 5- GRID 1 .0 .0 .0 6- GRID 2 10. .0 .0 7- GRID 3 30. .0 .0 8- GRID 4 50. .0 .0 9- MAT1 6 1.04+7 4.+6 10- PROD 5 6 2.1 11- SPC1 1 123 1 ENDDATA 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-24-1A 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION ROD ELEMENTS (ELEMENT TYPE 1) STARTING WITH ID 60 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-24-1A 0 0 TABLE EPT 0*** USER WARNING MESSAGE, TABPRT MODULE ASSUMES ALL REAL DATA ARE IN S.P., D.P. DATA THEREFORE MAY BE PRINTED ERRONEOUSLY RECORD NO. 0 EPT RECORD NO. 1 902 9 29 5 6 2.100000E+00 0.000000E+00 0.000000E+00 0.000000E+00 RECORD NO. 2 2147483647 2147483647 2147483647 RECORD NO. 3 END OF FILE 0TRAILER WORD1 = 128 WORD2 = 0 WORD3 = 0 WORD4 = 0 WORD5 = 0 WORD6 = 0 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-24-1A 0 0 MATRIX KGGX (GINO NAME 101 ) IS A D.P.REAL 24 COLUMN X 24 ROW SYMMETRC MATRIX. 0COLUMN 1 ROWS 1 THRU 7 -------------------------------------------------- 2.184000D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -2.184000D+06 0COLUMNS 2 THRU 6 ARE NULL. 0COLUMN 7 ROWS 1 THRU 13 -------------------------------------------------- -2.184000D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 3.276000D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.092000D+06 0COLUMNS 8 THRU 12 ARE NULL. 0COLUMN 13 ROWS 7 THRU 19 -------------------------------------------------- -1.092000D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 2.184000D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 -1.092000D+06 0COLUMNS 14 THRU 18 ARE NULL. 0COLUMN 19 ROWS 13 THRU 19 -------------------------------------------------- -1.092000D+06 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 0.000000D+00 1.092000D+06 0COLUMNS 20 THRU 24 ARE NULL. 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 6 0THE DENSITY OF THIS MATRIX IS 1.73 PERCENT. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE EPT RECORD 1 WORD 6 = + 0.20999999E+01 = RSP 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE EPT RECORD 1 WORD 4 = + 5 = INT 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE2 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE EPT RECORD 1 WORDS 4 AND 5 = + (INVALID REQUEST) = INT2 0*** USER WARNING MESSAGE - ILLEGAL INTEGER ABSTRACTION FROM 2 OR 4 DATA WORDS. OUPUT PARAMETER INT2 NOT SAVED 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-24-1A 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE2 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE EPT RECORD 1 WORDS 6 AND 7 = + 0.20999999D+01 = RDP 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE2 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE EPT RECORD 1 WORDS 6 AND 7 = + 0.20124998E+01 = RSPX INPUT FILE EPT RECORD 1 WORDS 6 AND 7 = + (INVALID REQUEST) = INTX 0*** USER WARNING MESSAGE - ILLEGAL INTEGER ABSTRACTION FROM 2 OR 4 DATA WORDS. OUPUT PARAMETER INTX NOT SAVED INPUT FILE EPT RECORD 1 WORDS 6 AND 7 = + 0.20999999D+01 = RDPX 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE EPT RECORD 1 WORD 1 = + (INVALID REQUEST) = BCD 0*** USER WARNING MESSAGE - ILLEGAL OUTPUT REQUESTED. ORIG. DATA TYPE IS INTEGER, PARAMETER BCD NOT SAVED 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE2 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE EPT RECORD 1 WORDS 6 AND 7 = + ( 0.20999999E+01, 0.00000000E+00) = SCPLX 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE2 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE EPT RECORD 1 WORDS 6 AND 7 = + ( 0.20999999D+01, 0.00000000D+00) = DCPLX 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE4 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE EPT RECORD 1 WORDS 6 THRU 9 = + ( 0.20999999D+01, 0.00000000D+00) = DCPLX4 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE2 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE EPT RECORD 1 WORDS 9 AND 10 = + (INVALID REQUEST) = LAST 0*** USER WARNING MESSAGE - E-O-R ENCOUNTERED. PARAMETER LAST NOT SAVED 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE EPT RECORD 1 WORD 9 = + 0.00000000E+00 = LAST1 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - MATRIX - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) ELEMENT ( 7-ROW, 1-COL) OF D.P. REAL INPUT FILE KGGX = + -0.21840000E+07 = R1 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-24-1A 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - MATRIX - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) ELEMENT ( 3-ROW, 1-COL) OF D.P. REAL INPUT FILE KGGX = + (INVALID INTEGER) = I1 0*** USER WARNING MESSAGE - OUTPUT PARAMETER I1 NOT SAVED 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - MATRIX - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) ELEMENT ( 1-ROW, 3-COL) OF D.P. REAL INPUT FILE KGGX = + 0.00000000D+00 = D1 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - MATRIX - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) ELEMENT ( 1-ROW, 3-COL) OF D.P. REAL INPUT FILE KGGX = + (INVALID BCD WORD)= B1 0*** USER WARNING MESSAGE - OUTPUT PARAMETER B1 NOT SAVED 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - MATRIX - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) ELEMENT ( 7-ROW, 13-COL) OF D.P. REAL INPUT FILE KGGX = + (-0.10920000E+07, 0.00000000E+00) = CS1 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - MATRIX - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) ELEMENT ( 13-ROW, 7-COL) OF D.P. REAL INPUT FILE KGGX = + (-0.10920000D+07, 0.00000000D+00) = CD1 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - MATRIX - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) ELEMENT ( 13-ROW, 19-COL) OF D.P. REAL INPUT FILE KGGX = + -0.10920000D+07 = D13 0*** USER INFORMATION MESSAGE FROM SCALAR MODULE - (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37) 0.21840000E+07 = SP1 + ELEMENT ( 1-ROW, 1-COL) OF D.P. REAL INPUT FILE KGGX = 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-24-1A 0*** USER INFORMATION MESSAGE FROM SCALAR MODULE - (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37) 0.00000000E+00 = SP2 + ELEMENT ( 1-ROW, 3-COL) OF D.P. REAL INPUT FILE KGGX = 0*** USER INFORMATION MESSAGE FROM SCALAR MODULE - (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37) 0.00000000E+00 = SP3 + ELEMENT ( 3-ROW, 1-COL) OF D.P. REAL INPUT FILE KGGX = 0*** USER INFORMATION MESSAGE FROM SCALAR MODULE - (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37) -0.10920000E+07 = SP4 + ELEMENT ( 7-ROW, 13-COL) OF D.P. REAL INPUT FILE KGGX = 0*** USER INFORMATION MESSAGE FROM SCALAR MODULE - (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37) -0.10920000D+07 = DP4 + ELEMENT ( 19-ROW, 13-COL) OF D.P. REAL INPUT FILE KGGX = 0*** USER INFORMATION MESSAGE FROM SCALAR MODULE - (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37) (-0.10920000E+07, 0.00000000E+00) = CSP4 + ELEMENT ( 7-ROW, 13-COL) OF D.P. REAL INPUT FILE KGGX = 0*** USER INFORMATION MESSAGE FROM SCALAR MODULE - (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37) (-0.10920000D+07, 0.00000000D+00) = CDP4 + ELEMENT ( 13-ROW, 7-COL) OF D.P. REAL INPUT FILE KGGX = 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T01-24-1A 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = ADD (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) R1 = -0.218400E+07 (INPUT) SP4 = -0.109200E+07 (INPUT) R1SP4 = -0.327600E+07 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = SUB (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) R1 = -0.218400E+07 (INPUT) SP4 = -0.109200E+07 (INPUT) R1SP4 = -0.109200E+07 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = ABS (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) R1 = -0.218400E+07 (INPUT) ABSR1 = 0.218400E+07 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = ABS (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) 3RD PARM = 0.000000E+00 (INPUT) ABSRX = 0.000000E+00 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = SQRT (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) ERROR - OPERATING ON A NEGATIVE NUMBER R1 = -0.218400E+07 (INPUT) SQTR1 = 0.000000E+00 (OUTPUT) 0*** USER WARNING MESSAGE - I/O ERROR, OUTPUT NOT SAVED. OUTPUT DEFAULT VALUE REMAINS 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = SQRT (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) ABSR1 = 0.218400E+07 (INPUT) SQTR1 = 0.147784E+04 (OUTPUT) 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T01-24-1A 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPYC (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) SCPLX = ( 0.210000E+01, 0.000000E+00) (INPUT) CS1 = (-0.109200E+07, 0.000000E+00) (INPUT) CMPY = (-0.229320E+07, 0.000000E+00) (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) R1 = -0.218400E+07 (INPUT) SP4 = -0.109200E+07 (INPUT) OUTC = (-0.218400E+07,-0.109200E+07) (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = LE (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) R1 = -0.218400E+07 (INPUT) SP4 = -0.109200E+07 (INPUT) LEFLG = -1 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = MPY (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37) RDPX = 0.20999999D+01 (INPUT) RDPX = 0.20999999D+01 (INPUT) RDPDP = 0.44099996D+01 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = MPY (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37) 3RD PARM = 0.00000000D+00 (INPUT) RDPX = 0.20999999D+01 (INPUT) RDPDX = 0.00000000D+00 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = DIV (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37) DP4 = -0.10920000D+07 (INPUT) RDPX = 0.20999999D+01 (INPUT) DP4X = -0.52000002D+06 (OUTPUT) 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T01-24-1A 0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = EXP (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37) DP4 = -0.10920000D+07 (INPUT) EXPX = 0.00000000D+00 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = CONJ (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37) CDP4 = (-0.10920000D+07, 0.00000000D+00) (INPUT) CONJX = (-0.10920000D+07, 0.00000000D+00) (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = DIVC (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37) DCPLX4 = ( 0.20999999D+01, 0.00000000D+00) (INPUT) CDP4 = (-0.10920000D+07, 0.00000000D+00) (INPUT) DIVCX = (-0.19230768D-05, 0.00000000D+00) (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = EQ (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37) EXPX = 0.00000000D+00 (INPUT) DP4 = -0.10920000D+07 (INPUT) EQFLG = 0 (OUTPUT) 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T01-24-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E INTERACT 0.000000E+00 SYS21 0.000000E+00 CARDNO 0.000000E+00 LUSET 24 NOGPDT 0.000000E+00 ALWAYS -1 ISOP 1 LUSEP 24 JUMPPLOT -1 NSIL 0.000000E+00 PLTFLG 1 PFILE 0.000000E+00 NOGRAV -1 NEVER 1 NOMGG -1 GRDPNT -1 NOSIMP 3 NOGENL -1 GENEL 0.000000E+00 COMPS 1 NOELMT 1 PRINT 1 TSTART 2 COUNT -1 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T01-24-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E NOKGGX 3 NSKIP 0.000000E+00 RSP 2.100000E+00 INT 5 INT2 0.000000E+00 RDP 2.0999999046325684D+00 RSPX 2.012500E+00 INTX 0.000000E+00 RDPX 2.0999999046325684D+00 BCD (VOID) SCPLX ( 2.100000E+00 0.000000E+00) DCPLX ( 2.0999999046325684D+00 0.0000000000000000D+00) DCPLX4 ( 2.0999999046325684D+00 0.0000000000000000D+00) LAST 0.000000E+00 LAST1 0.000000E+00 R1 -2.184000E+06 I1 0.000000E+00 D1 ( 0.000000E+00 0.000000E+00) B1 (VOID) CS1 ( -1.092000E+06 0.000000E+00) CD1 ( -1.0920000000000000D+06 0.0000000000000000D+00) D13 ( -1.104141E+01 0.000000E+00) SP1 2.184000E+06 SP2 0.000000E+00 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T01-24-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E SP3 0.000000E+00 SP4 -1.092000E+06 DP4 ( -1.104141E+01 0.000000E+00) CSP4 ( -1.092000E+06 0.000000E+00) CDP4 ( -1.0920000000000000D+06 0.0000000000000000D+00) R1SP4 -1.092000E+06 ABSR1 2.184000E+06 ABSRX 0.000000E+00 SQTR1 1.477836E+03 CMPY ( -2.293200E+06 0.000000E+00) OUTC -3.8913930285289718D+48 LEFLG -1 RDPDP ( 2.275625E+00 -6.813627E+28) RDPDX ( 0.000000E+00 0.000000E+00) RDPY ( 0.0000000000000000D+00 0.0000000000000000D+00) DP4X ( -9.983643E+00 2.255056E-24) EXPX ( 0.000000E+00 0.000000E+00) CONJX ( -1.0920000000000000D+06 0.0000000000000000D+00) DIVCX ( -1.9230768357441102D-06 0.0000000000000000D+00) EQFLG 0.000000E+00 MPCF1 0.000000E+00 MPCF2 0.000000E+00 SINGLE 1 OMIT 0.000000E+00 1 TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T01-24-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E REACT 1 REPEAT 1 NOSET 0.000000E+00 NOL 1 NOA -1 NOSR 1 IRES -1 EPSI 1 TEST 1 OPT 0.000000E+00 GRDEQ -1 NOSORT2 1 STRNFLG -1 STRESS -1 NINTPTS 0.000000E+00 STRAIN -1 PRTSORT2 1 * * * END OF JOB * * * 1 JOB TITLE = TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES DATE: 5/17/95 END TIME: 16:36:10 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/t01251a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01251A,NASTRAN SOL 1,0 APP DISP TIME 30 DIAG 48 CEND 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N D I A G 4 8 DIAG 48 - NASTRAN RELEASE NEWS =================================== NASTRAN RELEASE NEWS - 95 RELEASE ---------- NEW METHODS WERE INSTALLED FOR SYMMETRIC DECOMPOSITION, FORWARD/BACKWARD SUBSTITUTION (SYMMETRIC MATRICES ONLY), AND MATRIX MULTIPLY/ADD. IN ADDITION, COMPUTATIONAL EFFICIENCY IMPROVEMENTS WERE MADE TO THE FEER EIGENVALUE ANALYSIS. THE FOLLOWING DIAGS WERE ADDED FOR THESE NEW CAPABILITIES: DIAG DESCRIPTION 45 PROVIDE STATISTICS FOR NEW SYMMETRIC DECOMPOSITION METHOD 47 PROVIDE STATISTICS FOR NEW FORWARD/BACKWARD SUBSTITUTION METHOD DIAG 19 STILL GIVES STATISTICAL INFORMATION FOR BOTH THE OLD AND THE NEW MATRIX MULTIPLY/ADD METHODS. IN ADDITION, THE "SYSTEM(58)=" PARAMETER ON THE "NASTRAN" CARD MAY BE USED TO SPECIFY A PARTICULAR MATRIX MULTIPLY/ADD METHOD. THE OLD METHODS ARE 1, 2 AND 3 (TRANSPOSE ONLY). THE NEW METHODS ARE 10, 11, 20, 21, 30, 31, 32, 40 AND 41. A METHOD IS SELECTED BASED ON THE DENSITY OF THE MATRIX AND HOW MANY PASSES ARE REQUIRED TO COMPUTE THE RESULTING MATRIX UNLESS "SYSTEM(58)" IS USED. THE DIFFERENCES IN THE METHODS ARE SEEN IN THE TABLE BELOW: ------------------------------------------------------------------------ METHOD METHOD OF READING MATRIX MULTIPLE COLUMNS OF MATRIX STORED A B C A B D ------------------------------------------------------------------------ OLD METHODS (T = TRANSPOSED, NT = NON-TRANSPOSED) 1 INTPK UNPACK UNPACK NO YES YES 2T GETSTR UNPACK INTPK YES NO NO 2NT GETSTR INTPK INTPK YES NO NO 3T UNPACK GETSTR INTPK YES NO NO NEW METHODS 10 UNPACK UNPACK UNPACK YES NO NO 11 UNPACK GETSTR UNPACK YES NO NO 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N D I A G 4 8 20 UNPACK UNPACK UNPACK NO YES YES 21 GETSTR UNPACK UNPACK NO YES YES 30 GETSTR UNPACK UNPACK YES NO NO 31 GETSTR GETSTR UNPACK YES NO NO 32 GETSTR GETSTR GETSTR YES NO NO 40 UNPACK GETSTR UNPACK NO YES YES 41 GETSTR GETSTR UNPACK NO YES YES ------------------------------------------------------------------------ AS AN EXAMPLE, IN ORDER TO SPECIFY THE USE OF METHOD 10 FOR ALL CASES, USE THE FOLLOWING "NASTRAN" CARD: NASTRAN SYSTEM(58)=10 THE OLD METHODS STILL EXISTS AND MAY BE REFERENCED BY THE FOLLOWING DIAGS: DIAG DESCRIPTION 42 OLD FEER METHOD WITHOUT USING IN-MEMORY WORKING MATRICES FOR FINDING SOLUTION 43 OLD FEER METHOD WITHOUT USING IN-MEMORY ORTHOGONAL VECTORS 44 OLD SYMMETRIC DECOMPOSITION METHOD 46 OLD FORWARD/BACKWARD SUBSTITUTION METHOD 49 OLD MATRIX MULTIPLY/ADD METHOD THE FOLLOWING IS A LIST OF SPRS THAT WERE CORRECTED FOR THE 1994 RELEASE. DETAIL INFORMATION ON ANY SPR CAN BE OBTAINED BY CONTACTING THE NASTRAN MAINTENANCE CONTRACTOR. SPR NO. MODULE DESCRIPTION ------- ------ ------------------------------------------------------ 93-026 GPTSG MODIFIED TO ALLOW FOR SINGLE PRECISION ON 64-BIT PLATFORMS. 93-033 ANISOP MODIFIED RIGID FORMATS TO INCLUDE SUPPORT FOR "MAT6" CARD. 94-001 SDR2 PROVIDE FOR SORT-2 STRESS OUTPUT FOR "TRAPRG" ELEMENT. 94-002 EMG DAMPING COEFFICIENT ON "MAT1" CARD WAS BEING IGNORED FOR THE "TRAPRG" ELEMENT. 94-003 TRD ALLOW FOR TRANSIENT APPEND FEATURE. 94-004 SDR2 ALLOW FOR CORRECT CALCULATION OF PRINCIPAL STRAINS FOR THE "QUAD4" ELEMENT. 94-005 DPD CORRECT A PROBLEM RELATING TO REFERENCING A NON-EXISTING GRID POINT WITH THE "NOLIN1" CARD. 94-006 PLOT CORRECT A PROBLEM USING "CELAS2" ELEMENTS IN PLOT REQUESTS WHEN USING RIGID FORMAT 12. 94-007 SDR2 CORRECT PROBLEMS RELATING TO THE PROCESSING OF "E" POINTS. ERROR AFFECTED THE CALCULATION OF ELEMENT FORCE AND STRESS DATA. 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 0 N A S T R A N D I A G 4 8 94-008 MPYAD COSMETIC CHANGE FOR OUTPUT OF DIAG 19. 94-009 NSINFO USER INFORMATION MESSAGE 225 DOES NOT GO AWAY EVEN WHEN TIME CONSTANTS ARE SUPPLIED IN THE "NASINFO" FILE TO NASTRAN. 94-010 MPYAD WRONG METHOD CHOSEN RESULTING IN EXCESSIVE TIME USAGE. MPYAD FAILED TO TAKE INTO ACCOUNT THE NUMBER OF PASSES REQUIRED. 94-011 DECOMP SUBROUTINE "DETFBS" DID NOT PERFORM THE CORRECT FORWARD/BACKWARD SUBSTITUTION WHEN "DECOMP" DECOMPOSED AN UNSYMMETRIX MATRIX WITH THE PARAMETER "CBAR" NON-ZERO. 94-012 DBMMGR INFINITE LOOPING PROBLEM COULD RESULT WHEN USING THE IN-MEMORY DATA BASE AND A CLOSE WITHOUT A REWIND IS ISSUED. 94-013 DBMMGR CORRECTED A PROBLEM USING THE IN-MEMORY DATA BASE THAT RESULTED IN ERROR MESSAGE 2026 IN MODULE "SSG1". 94-015 MCE2 PROBLEM WITH USING THE "RFORCE" CARD. 94-016 OUTPT2 UNABLE TO CHANGE THE BINARY BLOCK SIZE TO BE GREATER THAN 1028. 94-017 SDR2 UNABLE TO GET STRAIN OUTPUT FOR THE "QUAD4" ELEMENT WHEN NOT REQUESTING EITHER FORCE OR STRESS OUTPUT. 94-018 CDCOMP FAILED TO SET APPROPRIATE FLAGS FOR DETECTING A SINGULAR MATRIX. IN ADDITION, THE FOLLOWING NCL'S (NEW CAPABILITY LOG) WERE CLOSED: NCL NO. MODULE DESCRIPTION ------- ------ ------------------------------------------------------ 93-002 FBS OPTIMIZE THE SYMMETRIX FORWARD/BACKWARD SUBSTITUTION METHOD. 93-003 SDCOMP OPTIMIZE THE SYMMETRIX DECOMPOSITION METHOD. 93-004 MPYAD OPTIMIZE THE MATRIX MULTIPLY-ADD METHODS. 93-007 FEER OPTIMIZE THE FEER EIGENVALUE METHOD. AN IN-MEMORY DATA BASE IS AVAILABLE FOR ALL PLATFORMS. THE IN-MEMORY DATA BASE ELIMINATES I/O TO DISK. LOGIC EXISTS TO AUTOMATICALLY WRITE FILES TO DISK AFTER THE IN-MEMORY DATA BASE SPACE IS EXHAUSTED. THE COMMON /ZZZZZZ/ IS USED FOR ALLOCATING OPEN CORE AND SPACE FOR THE IN-MEMORY DATA BASE. THE SIZE OF COMMON /ZZZZZZ/ IS DEFINED IN ./MDS/NASTRN.F (SEE ARRAY "IZ" AND VARIABLE "LENOPC"). ALL REMAINING SPACE AFTER ALLOCATING OPEN CORE IS USED FOR THE IN-MEMORY DATA BASE. THE USER CONTROLS THE ALLOCATION OF OPEN CORE THROUGH THE NASTRAN MENU. THE USER CAN ELIMINATE THE USE OF THE IN-MEMORY DATA BASE BY SETTING THE IN-MEMORY DATA BASE ALLOCATION TO ZERO THROUGH THE NASTRAN MENU. USERS ARE ENCOURAGED TO RECOMPILE "NASTRN.F" WITH A LARGER ALLOCATION FOR COMMON /ZZZZZZ/ IF THEIR PLATFORM SUPPORTS A LARGER MEMORY ALLOCATION. A LARGER ALLOCATION OF COMMON /ZZZZZZ/ PROVIDES FOR MORE SPACE FOR THE IN-MEMORY DATA BASE AND ALLOWS FOR MORE FILES TO BE MAINTAINED WITHIN THE IN-MEMORY DATA BASE. USERS SHOULD ALWAYS ALLOCATE SUFFICIENT OPEN CORE TO PREVENT SPILL LOGIC (E.G., SEE USER INFORMATION MESSAGE 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 0 N A S T R A N D I A G 4 8 3023). IT IS INEFFICIENT TO ALLOCATE TOO MUCH OPEN CORE. HOWEVER, THERE IS NO SUCH PENALTY FOR OVER-ALLOCATING MEMORY FOR THE IN-MEMORY DATA BASE. AT THE END OF THE LOG FILE, A SUMMARY OF ALL GINO I/O ACTIVITY IS GIVEN SHOWING THE PERCENT OF USAGE OF THE IN-MEMORY DATA BASE AND THE AMOUNT OF DISK I/O FOR THE NASTRAN EXECUTION. THE USER'S MANUAL IS PROVIDED ON THE DELIVERABLE TAPE AS TEXT FILES. THE FILES ARE IN ASCII, 80 COLUMN FORMAT. THE USER CAN EXAMINE THESE FILES WITH A SYSTEM EDITOR, OR THROUGH THE USE OF THE NASTHELP PROGRAM, WHICH IS INCLUDED WITH THIS NASTRAN RELEASE. THIS PROGRAM ALLOWS A USER TO SEARCH, READ AND/OR PRINT A PORTION OF THE FILE QUICKLY. THE ENTIRE MANUAL IS STORED IN THE FOLLOWING FILES: EXEC.TXT - NASTRAN EXECUTIVE CONTROL SECTIONS CASE.TXT - THE CASE CONTROL SECTIONS BULK.TXT - INPUT BULK DATA SECTIONS MSSG.TXT - NASTRAN FATAL, WARNING, AND INFORMATION MESSAGES PLOT.TXT - NASTRAN PLOTTING SUBS.TXT - SUBSTRUCTURING SECTIONS INTR.TXT - INTRODUCTION AND GENERAL INFORMATION UMFL.TXT - NASTRAN USER MASTER FILE AND USER GENERAL INPUT DMAP.TXT - NASTRAN DMAPS DICT.TXT - NASTRAN DICTIONARY RFMT.TXT - NASTRAN RIGID FORMATS A UTILITY PROGRAM, "NASTHELP", IS PROVIDED TO ALLOW FOR EASY ACCESS TO THE ABOVE TEXT FILES. NASTHELP IS USER FRIENDLY AND REQUIRES NO WRITTEN INSTRUCTION, EXCEPT THAT THE NASTHELP EXECUTABLE AND THE .TXT FILES MUST BE IN THE SAME DIRECTORY. 1 LAMINATED COMPOSITE PLATE - PURE TWIST LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-25-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = LAMINATED COMPOSITE PLATE - PURE TWIST LOADING 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-25-1A 3 $ 4 $ MODEL: A SQUARE PLATE OF A 4X4 MESH WITH THREE CORNERS 5 $ PINNED AND A TRANSVERSE POINT LOAD AT THE FREE 6 $ CORNER TO SIMULATE A PURE TWIST LOADING. THE 7 $ LAMINATE LAYUP IS OF A CROSS-PLY CONFIGURATION 8 $ [0/90/0]. 9 $ 10 $ * * T3 DEFLECTION AT GRID 1 * * 11 $ 12 $ THEORETICAL 13 $ ----------------------------------------------- 14 $ -3.750E-2 15 $ 16 $ 17 $ * * TAU FOR ELEMENT 1, ALL LAYERS * * 18 $ 19 $ THEORETICAL 20 $ ----------------------------------------------- 21 $ PLY 1 -5.0E1 22 $ PLY 2 0.0 23 $ PLY 3 5.0E1 24 $ 25 $ 26 $ 27 $ REFERENCES: JONES R. M., MECHANICS OF COMPOSITE MATERIALS. 28 $ M GRAW-HILL BOOK COMPANY. (PAGE 181) 29 $ 30 $ 31 $ 32 SPC = 1 33 SUBCASE 1 34 LABEL = LAYER STRESS REQUEST 35 DISP = ALL 36 STRESS(LAYER) = ALL 37 FORCE = ALL 38 LOAD = 1 39 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 20, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 LAMINATED COMPOSITE PLATE - PURE TWIST LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-25-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CQUAD4 1 3 1 2 5 4 2- CQUAD4 2 3 2 3 6 5 3- CQUAD4 3 3 4 5 8 7 4- CQUAD4 4 3 5 6 9 8 5- FORCE 1 1 1.0 0.0 0.0 -1.0 6- GRID 1 0.0 0.0 7- GRID 2 2.5 0.0 8- GRID 3 5.0 0.0 9- GRID 4 0.0 2.5 10- GRID 5 2.5 2.5 11- GRID 6 5.0 2.5 12- GRID 7 0.0 5.0 13- GRID 8 2.5 5.0 14- GRID 9 5.0 5.0 15- MAT8 3 2.0 E+75.0 E+5.25 25.0E+04 +MAT8 16- +MAT8 1.6 E+051.2 E+042.0 E+053.0 E+041.5 E+04 17- PCOMP1 3 1.2 E+04HILL 3 .0666666 +PCOMP1 18- +PCOMP1 0.0 90.0 0.0 19- SPC1 1 6 1 2 4 5 6 8 20- SPC1 1 1236 3 7 9 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 LAMINATED COMPOSITE PLATE - PURE TWIST LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-25-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD4 ELEMENTS (ELEMENT TYPE 64) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 5.8260119E-13 1 LAMINATED COMPOSITE PLATE - PURE TWIST LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-25-1A 0 LAYER STRESS REQUEST SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 4.271714E-20 -8.437079E-20 -3.756645E-02 7.512521E-03 -7.500790E-03 0.0 2 G 3.481981E-20 -1.662561E-19 -1.878408E-02 3.756645E-03 -7.500790E-03 0.0 3 G 0.0 0.0 0.0 7.686622E-07 -7.500790E-03 0.0 4 G 1.302344E-19 -6.966333E-20 -1.878403E-02 7.512521E-03 -3.756645E-03 0.0 5 G 1.309938E-19 -1.656408E-19 -9.393273E-03 3.756645E-03 -3.756645E-03 0.0 6 G 1.411491E-19 -1.481973E-20 -8.019110E-07 7.686622E-07 -3.756645E-03 0.0 7 G 0.0 0.0 0.0 7.512521E-03 -1.249936E-05 0.0 8 G 4.744560E-21 -1.864604E-19 -8.592691E-07 3.756645E-03 -1.249936E-05 0.0 9 G 0.0 0.0 0.0 7.686622E-07 -1.249936E-05 0.0 1 LAMINATED COMPOSITE PLATE - PURE TWIST LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-25-1A 0 LAYER STRESS REQUEST SUBCASE 1 F O R C E S I N L A Y E R E D C O M P O S I T E E L E M E N T S ( Q U A D 4 ) ELEMENT - MEMBRANE FORCES - - BENDING MOMENTS - - TRANSVERSE SHEAR FORCES - ID FX FY FXY MX MY MXY VX VY 0 1 -5.68434E-15 9.09494E-14 0.00000E+00 -1.05184E-08 -1.02846E-07 -5.00000E-01 2.48649E-02 7.33309E-03 0 2 -1.20792E-14 0.00000E+00 0.00000E+00 -1.34433E-09 -1.31445E-08 -5.00000E-01 2.74109E-02 -4.87559E-02 0 3 0.00000E+00 0.00000E+00 0.00000E+00 -1.05184E-08 -1.02846E-07 -5.00000E-01 -2.74106E-02 4.87720E-02 0 4 2.13163E-15 -6.82120E-14 0.00000E+00 -1.34433E-09 -1.31445E-08 -5.00000E-01 -2.48675E-02 -7.34994E-03 1 LAMINATED COMPOSITE PLATE - PURE TWIST LOADING / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T01-25-1A 0 LAYER STRESS REQUEST SUBCASE 1 S T R E S S E S I N L A Y E R E D C O M P O S I T E E L E M E N T S ( Q U A D 4 ) 0 ELEMENT PLY *STRESSES IN FIBER AND MATRIX DIRECTIONS* *DIRECT FIBER * *INTER-LAMINAR STRESSES* * SHEAR BOND * *MAXIMUM* ID ID * NORMAL-1 NORMAL-2 SHEAR-12 * *FAILURE INDEX* *SHEAR-1Z SHEAR-2Z* *FAILURE INDEX* * INDEX * 0 1 1 -3.44993E-07 -1.37997E-06 -5.00001E+01 0.000 1.71976E-01 1.99994E-02 0.000 2 -1.26621E-11 2.38190E-13 -3.63798E-06 0.000 1.71976E-01 1.99994E-02 0.000 3 3.44993E-07 1.37997E-06 5.00001E+01 0.000 0.00000E+00 0.00000E+00 0.000 HILL FAILURE THEORY WAS USED FOR THIS ELEMENT. 0.000 0 2 1 -1.86175E-07 -7.44698E-07 -5.00001E+01 0.000 1.89586E-01 -1.32971E-01 0.000 2 -1.26626E-11 2.36435E-13 -3.63798E-06 0.000 1.89586E-01 -1.32971E-01 0.000 3 1.86174E-07 7.44698E-07 5.00001E+01 0.000 0.00000E+00 0.00000E+00 0.000 HILL FAILURE THEORY WAS USED FOR THIS ELEMENT. 0.000 0 3 1 -3.44976E-07 -1.37990E-06 -5.00001E+01 0.000 -1.89584E-01 1.33015E-01 0.000 2 -1.26618E-11 2.39456E-13 -3.63798E-06 0.000 -1.89584E-01 1.33015E-01 0.000 3 3.44976E-07 1.37990E-06 5.00001E+01 0.000 0.00000E+00 0.00000E+00 0.000 HILL FAILURE THEORY WAS USED FOR THIS ELEMENT. 0.000 0 4 1 -1.86157E-07 -7.44629E-07 -5.00001E+01 0.000 -1.71994E-01 -2.00453E-02 0.000 2 -1.70054E-11 2.12299E-13 -3.63798E-06 0.000 -1.71994E-01 -2.00453E-02 0.000 3 1.86157E-07 7.44629E-07 5.00001E+01 0.000 0.00000E+00 0.00000E+00 0.000 HILL FAILURE THEORY WAS USED FOR THIS ELEMENT. 0.000 * * * END OF JOB * * * 1 JOB TITLE = LAMINATED COMPOSITE PLATE - PURE TWIST LOADING DATE: 5/17/95 END TIME: 16:36:39 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/t01261a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01261A,NASTRAN DIAG 40 SOL 1,0 APP DISP TIME 30 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 COMP01 **COSMIC** QUAD4 FLAT PLATE TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-26-1A 0 MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = COMP01 **COSMIC** QUAD4 FLAT PLATE TEST 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-26-1A 3 LABEL = MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] 4 $ 5 $ MODEL: A QUARTER MODEL OF A SIMPLY SUPPORTED FLAT PLATE 6 $ OF A SYMMETRIC CROSS-PLY CONFIGURATION [0/90/0]. 7 $ UNDER A UNIFORM PRESSURE LOADING. 8 $ 9 $ * * T3 DEFLECTION AT GRID 25 * * 10 $ 11 $ THEORETICAL 12 $ ---------------------------------------------- 13 $ -1.836E-3 14 $ 15 $ 16 $ 17 $ REFERENCE: JONES,R.M. , MECHANICS OF COMPOSITE MATERIALS. 18 $ M GRAW-HILL BOOK COMPANY. (PAGE 248-250) 19 $ 20 $ 21 SET 1 = 2,7,12,17 22 DISP = ALL 23 STRESS(LAYER) = 1 24 FORCE = 1 25 SUBCASE 1 26 SUBTITLE = SIMPLE SUPPORTS, UNIFORM LOAD 27 SPC = 1 28 LOAD = 1 29 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 53, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 COMP01 **COSMIC** QUAD4 FLAT PLATE TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-26-1A 0 MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CQUAD4 2 1 1 6 7 2 2- CQUAD4 3 1 6 11 12 7 3- CQUAD4 4 1 11 16 17 12 4- CQUAD4 5 1 16 21 22 17 5- CQUAD4 6 1 2 7 8 3 6- CQUAD4 7 1 7 12 13 8 7- CQUAD4 8 1 12 17 18 13 8- CQUAD4 9 1 17 22 23 18 9- CQUAD4 10 1 3 8 9 4 10- CQUAD4 11 1 8 13 14 9 11- CQUAD4 12 1 13 18 19 14 12- CQUAD4 13 1 18 23 24 19 13- CQUAD4 14 1 4 9 10 5 14- CQUAD4 15 1 9 14 15 10 15- CQUAD4 16 1 14 19 20 15 16- CQUAD4 17 1 19 24 25 20 17- GRID 1 0.000 0.000 0.000 18- GRID 2 0.000 .250 0.000 19- GRID 3 0.000 .500 0.000 20- GRID 4 0.000 .750 0.000 21- GRID 5 0.000 1.000 0.000 22- GRID 6 .250 0.000 0.000 23- GRID 7 .250 .250 0.000 24- GRID 8 .250 .500 0.000 25- GRID 9 .250 .750 0.000 26- GRID 10 .250 1.000 0.000 27- GRID 11 .500 0.000 0.000 28- GRID 12 .500 .250 0.000 29- GRID 13 .500 .500 0.000 30- GRID 14 .500 .750 0.000 31- GRID 15 .500 1.000 0.000 32- GRID 16 .750 0.000 0.000 33- GRID 17 .750 .250 0.000 34- GRID 18 .750 .500 0.000 35- GRID 19 .750 .750 0.000 36- GRID 20 .750 1.000 0.000 37- GRID 21 1.000 0.000 0.000 38- GRID 22 1.000 .250 0.000 39- GRID 23 1.000 .500 0.000 40- GRID 24 1.000 .750 0.000 41- GRID 25 1.000 1.000 0.000 42- MAT8 1 20.0E+06.50 E+6.25 .250 E+6 43- PARAM AUTOSPC 1 44- PCOMP 1 -.001 +PC1 45- +PC1 1 .000666 0.0 YES 1 .000666 90.0 YES +PC2 46- +PC2 1 .000666 0.0 YES 47- PLOAD4 1 2 -1.0E-04 THRU 17 1 COMP01 **COSMIC** QUAD4 FLAT PLATE TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-26-1A MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- SPC1 1 15 22 23 24 49- SPC1 1 24 10 15 20 50- SPC1 1 1234 2 3 4 5 51- SPC1 1 1235 6 11 16 21 52- SPC1 1 1245 25 53- SPC1 1 12345 1 ENDDATA 1 COMP01 **COSMIC** QUAD4 FLAT PLATE TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-26-1A 0 MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 7 PROFILE 145 MAX WAVEFRONT 7 AVG WAVEFRONT 5.800 RMS WAVEFRONT 6.043 RMS BANDWIDTH 6.148 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 10 PROFILE 145 MAX WAVEFRONT 8 AVG WAVEFRONT 5.800 RMS WAVEFRONT 6.070 RMS BANDWIDTH 6.478 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 7 7 PROFILE (P) 145 145 MAXIMUM WAVEFRONT (C-MAX) 7 7 AVERAGE WAVEFRONT (C-AVG) 5.800 5.800 RMS WAVEFRONT (C-RMS) 6.043 6.043 RMS BANDWITCH (B-RMS) 6.148 6.148 NUMBER OF GRID POINTS (N) 25 NUMBER OF ELEMENTS (NON-RIGID) 16 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 72 MATRIX DENSITY, PERCENT 27.040 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** THE INPUT PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES HAVE BEEN REPLACED BY THE FOLLOWING PSHELL AND MAT2 ENTRIES. PSHELL 1 100000001 1.9980E-03 200000001 1.0000E+00 300000001 1.0000E+00 0.0000E+00 -9.9900E-04 9.9900E-04 400000001 0.0 0.0 0.0000E+00 MAT2 100000001 1.3521E+07 1.2520E+05 0.0000E+00 7.0110E+06 0.0000E+00 2.5000E+05 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 200000001 1.9308E+07 1.2520E+05 0.0000E+00 1.2241E+06 0.0000E+00 2.5000E+05 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 300000001 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 400000001 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD4 ELEMENTS (ELEMENT TYPE 64) STARTING WITH ID 2 0*** USER INFORMATION MESSAGE 2435, AT USER'S REQUEST, ALL POTENTIAL SINGULARITIES HAVE BEEN REMOVED BY THE APPLICATION OF SINGLE POINT CONSTRAINTS. REFER TO PRINTOUT OF AUTOMATICALLY GENERATED SPC1 CARDS FOR DETAILS. 1 COMP01 **COSMIC** QUAD4 FLAT PLATE TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-26-1A 0 MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] A U T O M A T I C A L L Y G E N E R A T E D S P C 1 C A R D S CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- SPC1 1 6 1 2 3 4 5 6 2- SPC1 1 6 7 8 9 10 11 12 3- SPC1 1 6 13 14 15 16 17 18 4- SPC1 1 6 19 20 21 22 23 24 5- SPC1 1 6 25 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -1.0122815E-12 1 COMP01 **COSMIC** QUAD4 FLAT PLATE TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 SIMPLE SUPPORTS, UNIFORM LOAD 0 MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 1.262711E-03 0.0 3 G 0.0 0.0 0.0 0.0 2.158530E-03 0.0 4 G 0.0 0.0 0.0 0.0 2.634356E-03 0.0 5 G 0.0 0.0 0.0 0.0 2.778547E-03 0.0 6 G 0.0 0.0 0.0 -1.392570E-03 0.0 0.0 7 G -4.469569E-23 1.195123E-23 -3.171683E-04 -1.144243E-03 1.147424E-03 0.0 8 G -7.758552E-23 1.350141E-23 -5.450347E-04 -6.806349E-04 1.974323E-03 0.0 9 G -9.484205E-23 8.311058E-24 -6.673746E-04 -3.013071E-04 2.415793E-03 0.0 10 G -9.999072E-23 0.0 -7.045808E-04 0.0 2.548728E-03 0.0 11 G 0.0 0.0 0.0 -2.524514E-03 0.0 0.0 12 G -5.273265E-23 2.589130E-23 -5.776741E-04 -2.095490E-03 8.496172E-04 0.0 13 G -9.190890E-23 2.913814E-23 -9.967480E-04 -1.259430E-03 1.479917E-03 0.0 14 G -1.125496E-22 1.786515E-23 -1.222715E-03 -5.524652E-04 1.821150E-03 0.0 15 G -1.186819E-22 0.0 -1.291190E-03 0.0 1.922708E-03 0.0 16 G 0.0 0.0 0.0 -3.250013E-03 0.0 0.0 17 G -3.355534E-23 3.448619E-23 -7.463068E-04 -2.718339E-03 4.485454E-04 0.0 18 G -5.863987E-23 3.894970E-23 -1.292017E-03 -1.649412E-03 7.875820E-04 0.0 19 G -7.190301E-23 2.392138E-23 -1.587553E-03 -7.189288E-04 9.739256E-04 0.0 20 G -7.583031E-23 0.0 -1.676857E-03 0.0 1.029066E-03 0.0 21 G 0.0 0.0 0.0 -3.499354E-03 0.0 0.0 22 G 0.0 3.755175E-23 -8.045167E-04 -2.934397E-03 0.0 0.0 23 G 0.0 4.242933E-23 -1.394497E-03 -1.787323E-03 0.0 0.0 24 G 0.0 2.606165E-23 -1.714601E-03 -7.773828E-04 0.0 0.0 25 G 0.0 0.0 -1.811241E-03 0.0 0.0 0.0 1 COMP01 **COSMIC** QUAD4 FLAT PLATE TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 SIMPLE SUPPORTS, UNIFORM LOAD 0 MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] SUBCASE 1 F O R C E S I N L A Y E R E D C O M P O S I T E E L E M E N T S ( Q U A D 4 ) ELEMENT - MEMBRANE FORCES - - BENDING MOMENTS - - TRANSVERSE SHEAR FORCES - ID FX FY FXY MX MY MXY VX VY 0 2 -2.97725E-11 0.00000E+00 0.00000E+00 3.00037E-06 4.23287E-07 -1.64404E-06 -1.33411E-05 -2.40974E-06 0 7 -1.90544E-09 -5.95450E-11 0.00000E+00 2.05499E-05 2.24678E-06 -9.92763E-07 -2.57885E-05 5.04416E-06 0 12 -1.90544E-09 0.00000E+00 0.00000E+00 3.97880E-05 2.92082E-06 -3.60258E-07 -2.27885E-05 1.25677E-05 0 17 -1.90544E-09 -1.19090E-10 0.00000E+00 5.16594E-05 2.76828E-06 -3.77513E-08 -9.17540E-06 1.50271E-05 1 COMP01 **COSMIC** QUAD4 FLAT PLATE TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 SIMPLE SUPPORTS, UNIFORM LOAD 0 MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] SUBCASE 1 S T R E S S E S I N L A Y E R E D C O M P O S I T E E L E M E N T S ( Q U A D 4 ) 0 ELEMENT PLY *STRESSES IN FIBER AND MATRIX DIRECTIONS* *DIRECT FIBER * *INTER-LAMINAR STRESSES* * SHEAR BOND * *MAXIMUM* ID ID * NORMAL-1 NORMAL-2 SHEAR-12 * *FAILURE INDEX* *SHEAR-1Z SHEAR-2Z* *FAILURE INDEX* * INDEX * 0 2 1 3.11746E+00 1.84870E-01 -1.64733E+00 0.000 -9.23650E-03 -6.57860E-04 0.000 2 -3.95686E-13 7.46578E-15 -1.13687E-07 0.000 -9.23650E-03 -6.57861E-04 0.000 3 -3.11746E+00 -1.84870E-01 1.64733E+00 0.000 -1.98591E-09 -1.32604E-09 0.000 0.000 0 7 1 2.13543E+01 9.99044E-01 -9.94751E-01 0.000 -1.78543E-02 1.37706E-03 0.000 2 2.27018E-06 -1.42331E-08 5.68434E-08 0.000 -1.78543E-02 1.37706E-03 0.000 3 -2.13543E+01 -9.99044E-01 9.94751E-01 0.000 -3.83878E-09 2.77572E-09 0.000 0.000 0 12 1 4.13511E+01 1.34898E+00 -3.60980E-01 0.000 -1.57773E-02 3.43099E-03 0.000 2 -1.42330E-08 -5.69324E-08 2.84217E-08 0.000 -1.57773E-02 3.43099E-03 0.000 3 -4.13511E+01 -1.34898E+00 3.60980E-01 0.000 -3.39222E-09 6.91579E-09 0.000 0.000 0 17 1 5.36927E+01 1.33212E+00 -3.78269E-02 0.000 -6.35245E-03 4.10241E-03 0.000 2 -2.30576E-06 -1.28098E-07 1.77635E-09 0.000 -6.35245E-03 4.10242E-03 0.000 3 -5.36927E+01 -1.33212E+00 3.78269E-02 0.000 -1.36582E-09 8.26917E-09 0.000 0.000 * * * END OF JOB * * * 1 JOB TITLE = COMP01 **COSMIC** QUAD4 FLAT PLATE TEST DATE: 5/17/95 END TIME: 16:37:14 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/t01271a.out ================================================ NASTRAN FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01271A,NASTRAN DIAG 40 SOL 1,0 APP DISP TIME 100 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-27-1A 0 TUBE UNDER CONSTANT PRESSURE P 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-27-1A 3 LABEL = TUBE UNDER CONSTANT PRESSURE P 4 $ 5 $ 6 $ MODEL: SECTION OF A OPEN TUBE RADIUS R, UNDER PRESSURE P. 7 $ SYMMETRIC LAYUP [45/-45/0/90/90/0/-45/45] 8 $ 9 $ * * HOOP LOADING FY FOR ELEMENT ID 8 * * 10 $ 11 $ 12 $ HOOP LOADING FY = P * R = 10.5 * 50 = 5.25E5 13 $ 14 $ THEORETICAL 15 $ ------------------------------------------------ 16 $ 5.25E2 17 $ 18 $ 19 $ * * LAYER STRESSES FOR ELEMENT ID 8 * * 20 $ 21 $ ------------------------------------------------------ 22 $ SIG1 SIG2 TAU12 23 $ LAYER 1 2.524E2 1.741E1 2.277E1 24 $ LAYER 2 2.494E2 1.751E1 -2.276E1 25 $ LAYER 3 -2.259E2 3.231E1 1.944E-2 26 $ LAYER 4 7.271E2 2.652E0 1.556E-2 27 $ LAYER 5 7.270E2 2.660E0 5.054E-2 28 $ LAYER 6 -2.253E2 3.230E1 -8.551E-2 29 $ LAYER 7 2.534E2 1.741E1 -2.273E1 30 $ LAYER 8 2.477E2 1.759E1 2.272E1 31 $ 32 $ 33 $ 34 SPC = 1 35 SET 1 = 29,45,61,77 36 SET 2 = 8,24 37 DISP(PRINT) = 1 38 STRESS(LAYER) = 2 39 FORCE(PRINT) = 2 40 SUBCASE 1 41 LOAD = 1 42 OUTPUT(PLOT) 43 SET 1 = ALL 44 PLOT SET 1 45 PLOT SET 1, HIDD 46 BEGIN BULK 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-27-1A TUBE UNDER CONSTANT PRESSURE P (NO. OF UNSORTED BULK DATA CARDS READ = 283, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-27-1A 0 TUBE UNDER CONSTANT PRESSURE P 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2C 1 0.0 0.0 0.0 0.0 0.0 1.0 +MOR1001 2- +MOR10011.0 0.0 0.0 3- CQUAD4 1 2 17 33 35 19 4- CQUAD4 2 2 19 35 37 21 5- CQUAD4 3 2 17 18 34 33 6- CQUAD4 4 2 18 20 36 34 7- CQUAD4 5 2 24 26 42 40 8- CQUAD4 6 2 26 28 44 42 9- CQUAD4 7 2 24 40 38 22 10- CQUAD4 8 2 22 38 36 20 11- CQUAD4 9 2 25 23 39 41 12- CQUAD4 10 2 23 21 37 39 13- CQUAD4 11 2 25 41 43 27 14- CQUAD4 12 2 27 43 45 29 15- CQUAD4 13 2 32 48 46 30 16- CQUAD4 14 2 30 46 44 28 17- CQUAD4 15 2 32 31 47 48 18- CQUAD4 16 2 31 29 45 47 19- CQUAD4 17 2 33 49 51 35 20- CQUAD4 18 2 35 51 53 37 21- CQUAD4 19 2 33 34 50 49 22- CQUAD4 20 2 34 36 52 50 23- CQUAD4 21 2 40 42 58 56 24- CQUAD4 22 2 42 44 60 58 25- CQUAD4 23 2 40 56 54 38 26- CQUAD4 24 2 38 54 52 36 27- CQUAD4 25 2 41 39 55 57 28- CQUAD4 26 2 39 37 53 55 29- CQUAD4 27 2 41 57 59 43 30- CQUAD4 28 2 43 59 61 45 31- CQUAD4 29 2 48 64 62 46 32- CQUAD4 30 2 46 62 60 44 33- CQUAD4 31 2 48 47 63 64 34- CQUAD4 32 2 47 45 61 63 35- CQUAD4 33 2 49 65 67 51 36- CQUAD4 34 2 51 67 69 53 37- CQUAD4 35 2 49 50 66 65 38- CQUAD4 36 2 50 52 68 66 39- CQUAD4 37 2 56 58 74 72 40- CQUAD4 38 2 58 60 76 74 41- CQUAD4 39 2 56 72 70 54 42- CQUAD4 40 2 54 70 68 52 43- CQUAD4 41 2 57 55 71 73 44- CQUAD4 42 2 55 53 69 71 45- CQUAD4 43 2 57 73 75 59 46- CQUAD4 44 2 59 75 77 61 47- CQUAD4 45 2 64 80 78 62 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-27-1A TUBE UNDER CONSTANT PRESSURE P S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQUAD4 46 2 62 78 76 60 49- CQUAD4 47 2 64 63 79 80 50- CQUAD4 48 2 63 61 77 79 51- CQUAD4 49 2 65 81 83 67 52- CQUAD4 50 2 67 83 85 69 53- CQUAD4 51 2 65 66 82 81 54- CQUAD4 52 2 66 68 84 82 55- CQUAD4 53 2 72 74 90 88 56- CQUAD4 54 2 74 76 92 90 57- CQUAD4 55 2 72 88 86 70 58- CQUAD4 56 2 70 86 84 68 59- CQUAD4 57 2 73 71 87 89 60- CQUAD4 58 2 71 69 85 87 61- CQUAD4 59 2 73 89 91 75 62- CQUAD4 60 2 75 91 93 77 63- CQUAD4 61 2 80 96 94 78 64- CQUAD4 62 2 78 94 92 76 65- CQUAD4 63 2 80 79 95 96 66- CQUAD4 64 2 79 77 93 95 67- CQUAD4 65 2 81 97 99 83 68- CQUAD4 66 2 83 99 101 85 69- CQUAD4 67 2 81 82 98 97 70- CQUAD4 68 2 82 84 100 98 71- CQUAD4 69 2 88 90 106 104 72- CQUAD4 70 2 90 92 108 106 73- CQUAD4 71 2 88 104 102 86 74- CQUAD4 72 2 86 102 100 84 75- CQUAD4 73 2 89 87 103 105 76- CQUAD4 74 2 87 85 101 103 77- CQUAD4 75 2 89 105 107 91 78- CQUAD4 76 2 91 107 109 93 79- CQUAD4 77 2 96 112 110 94 80- CQUAD4 78 2 94 110 108 92 81- CQUAD4 79 2 96 95 111 112 82- CQUAD4 80 2 95 93 109 111 83- CQUAD4 81 2 97 113 115 99 84- CQUAD4 82 2 99 115 117 101 85- CQUAD4 83 2 97 98 114 113 86- CQUAD4 84 2 98 100 116 114 87- CQUAD4 85 2 104 106 122 120 88- CQUAD4 86 2 106 108 124 122 89- CQUAD4 87 2 104 120 118 102 90- CQUAD4 88 2 102 118 116 100 91- CQUAD4 89 2 105 103 119 121 92- CQUAD4 90 2 103 101 117 119 93- CQUAD4 91 2 105 121 123 107 94- CQUAD4 92 2 107 123 125 109 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-27-1A TUBE UNDER CONSTANT PRESSURE P S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CQUAD4 93 2 112 128 126 110 96- CQUAD4 94 2 110 126 124 108 97- CQUAD4 95 2 112 111 127 128 98- CQUAD4 96 2 111 109 125 127 99- CQUAD4 97 2 113 129 131 115 100- CQUAD4 98 2 115 131 133 117 101- CQUAD4 99 2 113 114 130 129 102- CQUAD4 100 2 114 116 132 130 103- CQUAD4 101 2 120 122 138 136 104- CQUAD4 102 2 122 124 140 138 105- CQUAD4 103 2 120 136 134 118 106- CQUAD4 104 2 118 134 132 116 107- CQUAD4 105 2 121 119 135 137 108- CQUAD4 106 2 119 117 133 135 109- CQUAD4 107 2 121 137 139 123 110- CQUAD4 108 2 123 139 141 125 111- CQUAD4 109 2 128 144 142 126 112- CQUAD4 110 2 126 142 140 124 113- CQUAD4 111 2 128 127 143 144 114- CQUAD4 112 2 127 125 141 143 115- CQUAD4 113 2 1 17 19 3 116- CQUAD4 114 2 3 19 21 5 117- CQUAD4 115 2 1 2 18 17 118- CQUAD4 116 2 2 4 20 18 119- CQUAD4 117 2 8 10 26 24 120- CQUAD4 118 2 10 12 28 26 121- CQUAD4 119 2 8 24 22 6 122- CQUAD4 120 2 6 22 20 4 123- CQUAD4 121 2 9 7 23 25 124- CQUAD4 122 2 7 5 21 23 125- CQUAD4 123 2 9 25 27 11 126- CQUAD4 124 2 11 27 29 13 127- CQUAD4 125 2 16 32 30 14 128- CQUAD4 126 2 14 30 28 12 129- CQUAD4 127 2 16 15 31 32 130- CQUAD4 128 2 15 13 29 31 131- GRID 1 1 50.000 180.000 0.000 132- GRID 2 1 50.000 202.500 0.000 133- GRID 3 1 50.000 157.500 0.000 134- GRID 4 1 50.000 225.000 0.000 135- GRID 5 1 50.000 135.000 0.000 136- GRID 6 1 50.000 247.500 0.000 137- GRID 7 1 50.000 112.500 0.000 138- GRID 8 1 50.000 270.000 0.000 139- GRID 9 1 50.000 90.000 0.000 140- GRID 10 1 50.000 292.500 0.000 141- GRID 11 1 50.000 67.500 0.000 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-27-1A TUBE UNDER CONSTANT PRESSURE P S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 12 1 50.000 315.000 0.000 143- GRID 13 1 50.000 45.000 0.000 144- GRID 14 1 50.000 337.500 0.000 145- GRID 15 1 50.000 22.500 0.000 146- GRID 16 1 50.000 0.000 0.000 147- GRID 17 1 50.000 180.000 10.000 148- GRID 18 1 50.000 202.500 10.000 149- GRID 19 1 50.000 157.500 10.000 150- GRID 20 1 50.000 225.000 10.000 151- GRID 21 1 50.000 135.000 10.000 152- GRID 22 1 50.000 247.500 10.000 153- GRID 23 1 50.000 112.500 10.000 154- GRID 24 1 50.000 270.000 10.000 155- GRID 25 1 50.000 90.000 10.000 156- GRID 26 1 50.000 292.500 10.000 157- GRID 27 1 50.000 67.500 10.000 158- GRID 28 1 50.000 315.000 10.000 159- GRID 29 1 50.000 45.000 10.000 160- GRID 30 1 50.000 337.500 10.000 161- GRID 31 1 50.000 22.500 10.000 162- GRID 32 1 50.000 0.000 10.000 163- GRID 33 1 50.000 180.000 20.000 164- GRID 34 1 50.000 202.500 20.000 165- GRID 35 1 50.000 157.500 20.000 166- GRID 36 1 50.000 225.000 20.000 167- GRID 37 1 50.000 135.000 20.000 168- GRID 38 1 50.000 247.500 20.000 169- GRID 39 1 50.000 112.500 20.000 170- GRID 40 1 50.000 270.000 20.000 171- GRID 41 1 50.000 90.000 20.000 172- GRID 42 1 50.000 292.500 20.000 173- GRID 43 1 50.000 67.500 20.000 174- GRID 44 1 50.000 315.000 20.000 175- GRID 45 1 50.000 45.000 20.000 176- GRID 46 1 50.000 337.500 20.000 177- GRID 47 1 50.000 22.500 20.000 178- GRID 48 1 50.000 0.000 20.000 179- GRID 49 1 50.000 180.000 30.000 180- GRID 50 1 50.000 202.500 30.000 181- GRID 51 1 50.000 157.500 30.000 182- GRID 52 1 50.000 225.000 30.000 183- GRID 53 1 50.000 135.000 30.000 184- GRID 54 1 50.000 247.500 30.000 185- GRID 55 1 50.000 112.500 30.000 186- GRID 56 1 50.000 270.000 30.000 187- GRID 57 1 50.000 90.000 30.000 188- GRID 58 1 50.000 292.500 30.000 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-27-1A TUBE UNDER CONSTANT PRESSURE P S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- GRID 59 1 50.000 67.500 30.000 190- GRID 60 1 50.000 315.000 30.000 191- GRID 61 1 50.000 45.000 30.000 192- GRID 62 1 50.000 337.500 30.000 193- GRID 63 1 50.000 22.500 30.000 194- GRID 64 1 50.000 0.000 30.000 195- GRID 65 1 50.000 180.000 40.000 196- GRID 66 1 50.000 202.500 40.000 197- GRID 67 1 50.000 157.500 40.000 198- GRID 68 1 50.000 225.000 40.000 199- GRID 69 1 50.000 135.000 40.000 200- GRID 70 1 50.000 247.500 40.000 201- GRID 71 1 50.000 112.500 40.000 202- GRID 72 1 50.000 270.000 40.000 203- GRID 73 1 50.000 90.000 40.000 204- GRID 74 1 50.000 292.500 40.000 205- GRID 75 1 50.000 67.500 40.000 206- GRID 76 1 50.000 315.000 40.000 207- GRID 77 1 50.000 45.000 40.000 208- GRID 78 1 50.000 337.500 40.000 209- GRID 79 1 50.000 22.500 40.000 210- GRID 80 1 50.000 0.000 40.000 211- GRID 81 1 50.000 180.000 50.000 212- GRID 82 1 50.000 202.500 50.000 213- GRID 83 1 50.000 157.500 50.000 214- GRID 84 1 50.000 225.000 50.000 215- GRID 85 1 50.000 135.000 50.000 216- GRID 86 1 50.000 247.500 50.000 217- GRID 87 1 50.000 112.500 50.000 218- GRID 88 1 50.000 270.000 50.000 219- GRID 89 1 50.000 90.000 50.000 220- GRID 90 1 50.000 292.500 50.000 221- GRID 91 1 50.000 67.500 50.000 222- GRID 92 1 50.000 315.000 50.000 223- GRID 93 1 50.000 45.000 50.000 224- GRID 94 1 50.000 337.500 50.000 225- GRID 95 1 50.000 22.500 50.000 226- GRID 96 1 50.000 0.000 50.000 227- GRID 97 1 50.000 180.000 60.000 228- GRID 98 1 50.000 202.500 60.000 229- GRID 99 1 50.000 157.500 60.000 230- GRID 100 1 50.000 225.000 60.000 231- GRID 101 1 50.000 135.000 60.000 232- GRID 102 1 50.000 247.500 60.000 233- GRID 103 1 50.000 112.500 60.000 234- GRID 104 1 50.000 270.000 60.000 235- GRID 105 1 50.000 90.000 60.000 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-27-1A TUBE UNDER CONSTANT PRESSURE P S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- GRID 106 1 50.000 292.500 60.000 237- GRID 107 1 50.000 67.500 60.000 238- GRID 108 1 50.000 315.000 60.000 239- GRID 109 1 50.000 45.000 60.000 240- GRID 110 1 50.000 337.500 60.000 241- GRID 111 1 50.000 22.500 60.000 242- GRID 112 1 50.000 0.000 60.000 243- GRID 113 1 50.000 180.000 70.000 244- GRID 114 1 50.000 202.500 70.000 245- GRID 115 1 50.000 157.500 70.000 246- GRID 116 1 50.000 225.000 70.000 247- GRID 117 1 50.000 135.000 70.000 248- GRID 118 1 50.000 247.500 70.000 249- GRID 119 1 50.000 112.500 70.000 250- GRID 120 1 50.000 270.000 70.000 251- GRID 121 1 50.000 90.000 70.000 252- GRID 122 1 50.000 292.500 70.000 253- GRID 123 1 50.000 67.500 70.000 254- GRID 124 1 50.000 315.000 70.000 255- GRID 125 1 50.000 45.000 70.000 256- GRID 126 1 50.000 337.500 70.000 257- GRID 127 1 50.000 22.500 70.000 258- GRID 128 1 50.000 0.000 70.000 259- GRID 129 1 50.000 180.000 80.000 260- GRID 130 1 50.000 202.500 80.000 261- GRID 131 1 50.000 157.500 80.000 262- GRID 132 1 50.000 225.000 80.000 263- GRID 133 1 50.000 135.000 80.000 264- GRID 134 1 50.000 247.500 80.000 265- GRID 135 1 50.000 112.500 80.000 266- GRID 136 1 50.000 270.000 80.000 267- GRID 137 1 50.000 90.000 80.000 268- GRID 138 1 50.000 292.500 80.000 269- GRID 139 1 50.000 67.500 80.000 270- GRID 140 1 50.000 315.000 80.000 271- GRID 141 1 50.000 45.000 80.000 272- GRID 142 1 50.000 337.500 80.000 273- GRID 143 1 50.000 22.500 80.000 274- GRID 144 1 50.000 0.000 80.000 275- MAT8 1 73.8 E+33.75 E+30.4 1.74 E+3 +MA1 276- +MA1 1680. -229.0 20.9 -137.0 82.9 277- PCOMP 2 -0.96 10000.0 HILL SYM +PC1 278- +PC1 1 .24 45.0 YES -45.0 YES +PC2 279- +PC2 0.0 YES 90.0 YES 280- PLOAD4 1 1 10.5 THRU 128 281- SPC1 1 3 1 9 16 24 282- SPC1 1 145 9 24 136 137 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-27-1A TUBE UNDER CONSTANT PRESSURE P S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- SPC1 1 245 1 16 129 144 ENDDATA 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T01-27-1A 0 TUBE UNDER CONSTANT PRESSURE P 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 19 PROFILE 2453 MAX WAVEFRONT 19 AVG WAVEFRONT 17.035 RMS WAVEFRONT 17.518 RMS BANDWIDTH 17.769 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 29 PROFILE 2878 MAX WAVEFRONT 29 AVG WAVEFRONT 19.986 RMS WAVEFRONT 21.431 RMS BANDWIDTH 21.941 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 19 19 PROFILE (P) 2453 2453 MAXIMUM WAVEFRONT (C-MAX) 19 19 AVERAGE WAVEFRONT (C-AVG) 17.035 17.035 RMS WAVEFRONT (C-RMS) 17.518 17.518 RMS BANDWITCH (B-RMS) 17.769 17.769 NUMBER OF GRID POINTS (N) 144 NUMBER OF ELEMENTS (NON-RIGID) 128 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 5 NUMBER OF UNIQUE EDGES 528 MATRIX DENSITY, PERCENT 5.787 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T01-27-1A 0 TUBE UNDER CONSTANT PRESSURE P MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 5.653119E-02 ORIGIN 0 - X0 = -3.253665E+00, Y0 = -0.153062E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 0 USED IN THIS PLOT 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T01-27-1A 0 TUBE UNDER CONSTANT PRESSURE P MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 5.653119E-02 ORIGIN 0 - X0 = -3.253665E+00, Y0 = -0.153062E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 2 UNDEFORMED SHAPE ORIGIN 0 USED IN THIS PLOT 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T01-27-1A TUBE UNDER CONSTANT PRESSURE P THE INPUT PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES HAVE BEEN REPLACED BY THE FOLLOWING PSHELL AND MAT2 ENTRIES. PSHELL 2 100000002 1.9200E+00 200000002 1.0000E+00 300000002 1.0000E+00 0.0000E+00 -9.6000E-01 9.6000E-01 0 0.0 0.0 0.0000E+00 MAT2 100000002 3.0568E+04 1.0037E+04 0.0000E+00 3.0568E+04 0.0000E+00 1.0265E+04 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 200000002 2.7484E+04 1.6431E+04 4.9658E+03 2.0863E+04 4.9658E+03 1.6659E+04 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 300000002 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD4 ELEMENTS (ELEMENT TYPE 64) STARTING WITH ID 1 0*** USER WARNING MESSAGE 3017 0 ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS. (USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION VIA A 'PARAM AUTOSPC' BULK DATA CARD) 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T01-27-1A 0 TUBE UNDER CONSTANT PRESSURE P G R I D P O I N T S I N G U L A R I T Y T A B L E SPC 1 MPC 0 POINT SINGULARITY LIST OF COORDINATE COMBINATIONS THAT WILL REMOVE SINGULARITY ID. TYPE ORDER STRONGEST COMBINATION WEAKER COMBINATION WEAKEST COMBINATION 3 G 1 6 5 6 G 1 6 4 11 G 1 6 4 14 G 1 6 5 19 G 1 6 5 22 G 1 6 4 27 G 1 6 4 30 G 1 6 5 35 G 1 6 5 38 G 1 6 4 43 G 1 6 4 46 G 1 6 5 51 G 1 6 5 54 G 1 6 4 59 G 1 6 4 62 G 1 6 5 67 G 1 6 5 70 G 1 6 4 75 G 1 6 4 78 G 1 6 5 83 G 1 6 5 86 G 1 6 4 91 G 1 6 4 94 G 1 6 5 99 G 1 6 5 102 G 1 6 4 107 G 1 6 4 110 G 1 6 5 115 G 1 6 5 118 G 1 6 4 123 G 1 6 4 126 G 1 6 5 131 G 1 6 5 134 G 1 6 4 139 G 1 6 4 142 G 1 6 5 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T01-27-1A TUBE UNDER CONSTANT PRESSURE P 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 5.9258493E-15 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T01-27-1A 0 TUBE UNDER CONSTANT PRESSURE P SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 29 G 3.520101E-01 3.550113E-01 -2.920907E-02 2.350948E-04 -1.891600E-04 1.684360E-04 45 G 3.498916E-01 3.529612E-01 -6.149850E-02 1.693388E-04 -2.354490E-04 8.040613E-05 61 G 3.480139E-01 3.510054E-01 -9.381203E-02 2.247578E-04 -1.522831E-04 -7.958212E-06 77 G 3.460445E-01 3.489399E-01 -1.261243E-01 1.785456E-04 -2.306766E-04 -1.139520E-04 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T01-27-1A 0 TUBE UNDER CONSTANT PRESSURE P SUBCASE 1 F O R C E S I N L A Y E R E D C O M P O S I T E E L E M E N T S ( Q U A D 4 ) ELEMENT - MEMBRANE FORCES - - BENDING MOMENTS - - TRANSVERSE SHEAR FORCES - ID FX FY FXY MX MY MXY VX VY 0 8 -1.94407E-01 5.14856E+02 -4.19790E-01 1.63009E-01 1.69312E-01 7.97282E-01 6.00325E-02 7.72557E-03 0 24 -2.39557E-01 5.15045E+02 -4.94258E-01 2.74835E-01 2.33053E-01 9.49503E-01 1.08823E-01 5.54346E-02 1 QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T01-27-1A 0 TUBE UNDER CONSTANT PRESSURE P SUBCASE 1 S T R E S S E S I N L A Y E R E D C O M P O S I T E E L E M E N T S ( Q U A D 4 ) 0 ELEMENT PLY *STRESSES IN FIBER AND MATRIX DIRECTIONS* *DIRECT FIBER * *INTER-LAMINAR STRESSES* * SHEAR BOND * *MAXIMUM* ID ID * NORMAL-1 NORMAL-2 SHEAR-12 * *FAILURE INDEX* *SHEAR-1Z SHEAR-2Z* *FAILURE INDEX* * INDEX * 0 8 1 2.52140E+02 1.74012E+01 2.27333E+01 0.789 1.62871E-02 2.78250E-03 0.000 2 2.49392E+02 1.74928E+01 -2.27339E+01 0.796 2.79207E-02 4.77001E-03 0.000 3 -2.25709E+02 3.22841E+01 1.49924E-02 3.496 * 5.23030E-02 4.98167E-03 0.000 4 7.26766E+02 2.64885E+00 1.97078E-02 0.203 5.27160E-02 6.37017E-03 0.000 5 7.26838E+02 2.65263E+00 5.44100E-02 0.203 5.23030E-02 4.98167E-03 0.000 6 -2.25567E+02 3.22978E+01 -8.91141E-02 3.497 * 2.79207E-02 4.77001E-03 0.000 7 2.53325E+02 1.74006E+01 -2.27369E+01 0.790 1.62871E-02 2.78250E-03 0.000 8 2.47471E+02 1.75888E+01 2.27375E+01 0.804 -9.33565E-09 -9.56948E-10 0.000 HILL FAILURE THEORY WAS USED FOR THIS ELEMENT. 3.497 * 0 24 1 2.52615E+02 1.74032E+01 2.27302E+01 0.790 2.95241E-02 1.99658E-02 0.000 2 2.49349E+02 1.75081E+01 -2.27346E+01 0.797 5.06127E-02 3.42271E-02 0.000 3 -2.25693E+02 3.22948E+01 1.75600E-02 3.498 * 9.48112E-02 3.57458E-02 0.000 4 7.27025E+02 2.64921E+00 2.32348E-02 0.203 9.55598E-02 4.57090E-02 0.000 5 7.27151E+02 2.64856E+00 6.40317E-02 0.203 9.48112E-02 3.57458E-02 0.000 6 -2.25876E+02 3.23103E+01 -1.04831E-01 3.502 * 5.06127E-02 3.42271E-02 0.000 7 2.53783E+02 1.73865E+01 -2.27569E+01 0.789 2.95241E-02 1.99658E-02 0.000 8 2.46861E+02 1.76052E+01 2.27613E+01 0.805 -1.69230E-08 -6.86656E-09 0.000 HILL FAILURE THEORY WAS USED FOR THIS ELEMENT. 3.502 * * * * END OF JOB * * * 1 JOB TITLE = QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S DATE: 5/17/95 END TIME: 16:38:48 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t01281a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01281A,NASTRAN DIAG 40 SOL 1,0 APP DISP TIME 30 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-28-1A 0 REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-28-1A 3 LABEL = REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) 4 $ 5 $ MODEL: CANTILEVERED BEAM MODEL UNDER A) EXTENSIONAL AND 6 $ B) BENDING LOADINGS. SIMULATION OF EQUIVALENT 7 $ ISOTROPIC PROPERTIES. LAMINATE CONFIGURATION 8 $ [0/0/0/0] 9 $ 10 $ * * T1 DEFLECTION AT GRIDS 13 AND 14 * * 11 $ 12 $ THEORETICAL 13 $ -------------------------------------------------- 14 $ SUBCASE 1 (EXTENSIONAL) 15 $ 16 $ GRID 13 3.0E-5 17 $ GRID 14 3.0E-5 18 $ 19 $ * * T3 DEFLECTION AT GRIDS 13 AND 14 * * 20 $ 21 $ THEORETICAL 22 $ -------------------------------------------------- 23 $ SUBCASE 2 (BENDING) 24 $ 25 $ GRID 13 4.320E-1 26 $ GRID 14 4.320E-1 27 $ 28 $ 29 $ * * BENDING MOMENT DISTRIBUTION FROM * * 30 $ * * THE FREE END TO THE CANTILEVERED END * * 31 $ NOTE: THE BENDING MOMENTS ARE AT THE ELEMENT CENTER 32 $ 33 $ THEORETICAL 34 $ ---------------------------------------------------- 35 $ 2.500E0 36 $ 7.500E0 37 $ 1.250E1 38 $ 1.750E1 39 $ 2.250E1 40 $ 2.750E1 41 $ 42 $ 43 $ * * DIRECT LAYER BENDING STRESS * * 44 $ * * ELEMENT 6 (LARGEST BENDING MOMENT) * * 45 $ 46 $ -------------------------------------- 47 $ 1 COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-28-1A 0 REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 48 $ LAYER 1 1.238E4 49 $ LAYER 2 4.125E3 50 $ LAYER 3 -4.125E3 51 $ LAYER 4 -1.238E4 52 $ 53 $ 54 $ 55 STRESS(LAYER) = ALL 56 DISP = ALL 57 FORCE = ALL 58 SPC = 1 59 SUBCASE 1 60 SUBTITLE = EXTENSION 61 LOAD = 1 62 SUBCASE 2 63 SUBTITLE = OUT-OF-PLANE SHEAR 64 LOAD = 2 65 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 29, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-28-1A 0 REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CQUAD4 1 1 3 5 6 4 2- CQUAD4 2 1 5 7 8 6 3- CQUAD4 3 1 7 9 10 8 4- CQUAD4 4 1 9 11 12 10 5- CQUAD4 5 1 11 13 14 12 6- CQUAD4 6 1 1 3 4 2 7- FORCE 1 13 0.5 1.0 0.0 0.0 8- FORCE 1 14 0.5 1.0 0.0 0.0 9- FORCE 2 13 0.5 0.0 0.0 1.0 10- FORCE 2 14 0.5 0.0 0.0 1.0 11- GRID 1 0.0 0.0 0.0 12- GRID 2 0.0 0.200 0.0 13- GRID 3 1.0 0.0 0.0 14- GRID 4 1.0 0.2 0.0 15- GRID 5 2.0 0.0 0.0 16- GRID 6 2.0 0.2 0.0 17- GRID 7 3.0 0.0 0.0 18- GRID 8 3.0 0.2 0.0 19- GRID 9 4.0 0.0 0.0 20- GRID 10 4.0 0.2 0.0 21- GRID 11 5.0 0.0 0.0 22- GRID 12 5.0 0.2 0.0 23- GRID 13 6.0 0.0 0.0 24- GRID 14 6.0 0.2 0.0 25- MAT1 1 .100E+08 0.300 26- PARAM AUTOSPC 1 27- PCOMP2 1 1 SYM +PC1 28- +PC1 0.025 0.0 0.025 0.0 29- SPC1 1 123456 1 2 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-28-1A REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) THE INPUT PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES HAVE BEEN REPLACED BY THE FOLLOWING PSHELL AND MAT2 ENTRIES. PSHELL 1 100000001 1.0000E-01 200000001 1.0000E+00 300000001 1.0000E+00 0.0000E+00 -5.0000E-02 5.0000E-02 0 0.0 0.0 0.0000E+00 MAT2 100000001 1.0989E+07 3.2967E+06 0.0000E+00 1.0989E+07 0.0000E+00 3.8462E+06 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 200000001 1.0989E+07 3.2967E+06 0.0000E+00 1.0989E+07 0.0000E+00 3.8462E+06 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 300000001 9.1575E+06 2.7473E+06 2.7473E+06 9.1575E+06 0.0000E+00 0.0000E+00 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD4 ELEMENTS (ELEMENT TYPE 64) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 2435, AT USER'S REQUEST, ALL POTENTIAL SINGULARITIES HAVE BEEN REMOVED BY THE APPLICATION OF SINGLE POINT CONSTRAINTS. REFER TO PRINTOUT OF AUTOMATICALLY GENERATED SPC1 CARDS FOR DETAILS. 1 COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-28-1A 0 REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) A U T O M A T I C A L L Y G E N E R A T E D S P C 1 C A R D S CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- SPC1 1 6 3 4 5 6 7 8 2- SPC1 1 6 9 10 11 12 13 14 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.6654409E-15 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 4.5279097E-10 1 COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 EXTENSION 0 REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 4.830334E-06 1.868894E-07 3.534389E-19 4.801656E-20 -7.077067E-19 0.0 4 G 4.830334E-06 -1.868894E-07 3.576165E-19 -6.194137E-21 -7.141831E-19 0.0 5 G 9.872059E-06 1.409277E-07 1.413599E-18 6.161675E-20 -1.413499E-18 0.0 6 G 9.872059E-06 -1.409277E-07 1.422228E-18 2.460397E-20 -1.414290E-18 0.0 7 G 1.486180E-05 1.522316E-07 3.132712E-18 7.919731E-20 -2.025671E-18 0.0 8 G 1.486180E-05 -1.522316E-07 3.145129E-18 4.499848E-20 -2.030819E-18 0.0 9 G 1.986432E-05 1.494493E-07 5.406692E-18 9.165050E-20 -2.522861E-18 0.0 10 G 1.986432E-05 -1.494493E-07 5.422503E-18 6.646425E-20 -2.523213E-18 0.0 11 G 2.486371E-05 1.501431E-07 8.093936E-18 9.755435E-20 -2.852271E-18 0.0 12 G 2.486371E-05 -1.501431E-07 8.112150E-18 8.451565E-20 -2.855712E-18 0.0 13 G 2.986382E-05 1.499336E-07 1.101250E-17 1.004409E-19 -2.985302E-18 0.0 14 G 2.986382E-05 -1.499336E-07 1.103208E-17 9.533790E-20 -2.984058E-18 0.0 1 COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 OUT-OF-PLANE SHEAR 0 REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 1.538416E-17 6.324988E-17 1.572489E-02 1.098561E-03 -3.176609E-02 0.0 4 G -9.743610E-18 6.303713E-17 1.573726E-02 -1.232554E-03 -3.179058E-02 0.0 5 G 2.734927E-17 2.353727E-16 6.075447E-02 6.023572E-04 -5.909372E-02 0.0 6 G -1.626324E-17 2.352330E-16 6.076431E-02 -7.073987E-04 -5.906426E-02 0.0 7 G 3.582399E-17 4.846585E-16 1.302129E-01 5.557361E-04 -7.999959E-02 0.0 8 G -2.017207E-17 4.845348E-16 1.302125E-01 -5.547790E-04 -8.000879E-02 0.0 9 G 4.115942E-17 7.828216E-16 2.175888E-01 2.966714E-04 -9.501883E-02 0.0 10 G -2.202862E-17 7.827365E-16 2.176004E-01 -4.219873E-04 -9.503330E-02 0.0 11 G 4.386239E-17 1.107002E-15 3.167015E-01 1.105182E-04 -1.040144E-01 0.0 12 G -2.256928E-17 1.106962E-15 3.167124E-01 -2.247507E-04 -1.039986E-01 0.0 13 G 4.464473E-17 1.441258E-15 4.221351E-01 5.391156E-05 -1.070726E-01 0.0 14 G -2.260016E-17 1.441244E-15 4.221345E-01 -5.407363E-05 -1.070654E-01 0.0 1 COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 EXTENSION 0 REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) SUBCASE 1 F O R C E S I N L A Y E R E D C O M P O S I T E E L E M E N T S ( Q U A D 4 ) ELEMENT - MEMBRANE FORCES - - BENDING MOMENTS - - TRANSVERSE SHEAR FORCES - ID FX FY FXY MX MY MXY VX VY 0 1 5.00000E+00 -1.39086E-01 6.01229E-08 0.00000E+00 -9.93411E-11 0.00000E+00 -7.98689E-19 4.56767E-18 0 2 5.00000E+00 3.42033E-02 6.23091E-07 0.00000E+00 0.00000E+00 3.78956E-16 -1.47048E-18 8.40891E-18 0 3 5.00000E+00 -8.40502E-03 -2.18629E-07 0.00000E+00 -6.20882E-12 0.00000E+00 8.26280E-19 -5.21908E-18 0 4 5.00000E+00 2.03876E-03 6.83214E-07 3.17891E-09 0.00000E+00 0.00000E+00 -1.65827E-18 9.13937E-18 0 5 5.00000E+00 -3.83854E-04 -1.01116E-06 0.00000E+00 -1.94026E-13 -7.57912E-16 -2.19296E-18 1.14089E-17 0 6 5.00000E+00 5.65553E-01 1.55773E-07 0.00000E+00 3.97364E-10 9.47390E-17 1.31617E-18 -7.26755E-18 1 COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 OUT-OF-PLANE SHEAR 0 REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) SUBCASE 2 F O R C E S I N L A Y E R E D C O M P O S I T E E L E M E N T S ( Q U A D 4 ) ELEMENT - MEMBRANE FORCES - - BENDING MOMENTS - - TRANSVERSE SHEAR FORCES - ID FX FY FXY MX MY MXY VX VY 0 1 -2.44141E-05 0.00000E+00 0.00000E+00 2.25000E+01 -8.35149E-01 6.51443E-04 -7.93326E+00 7.96025E+01 0 2 -1.22070E-05 2.38419E-08 0.00000E+00 1.75000E+01 2.07769E-01 7.54847E-04 -4.76300E-01 3.87754E+01 0 3 -1.83105E-05 0.00000E+00 2.98023E-09 1.25000E+01 -6.07814E-02 -1.26670E-03 -1.55263E+00 4.46070E+01 0 4 -6.10352E-06 -3.81470E-07 -1.49012E-09 7.50000E+00 5.43181E-02 7.34167E-04 -8.02099E+00 8.00446E+01 0 5 -1.52588E-06 0.00000E+00 0.00000E+00 2.50000E+00 -1.73445E-01 -1.34425E-04 -9.92666E-01 4.15731E+01 0 6 0.00000E+00 0.00000E+00 0.00000E+00 2.75000E+01 3.39351E+00 -1.85093E-03 -2.14368E+00 4.79180E+01 1 COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 EXTENSION 0 REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) SUBCASE 1 S T R E S S E S I N L A Y E R E D C O M P O S I T E E L E M E N T S ( Q U A D 4 ) 0 ELEMENT PLY *STRESSES IN FIBER AND MATRIX DIRECTIONS* *DIRECT FIBER * *INTER-LAMINAR STRESSES* * SHEAR BOND * *MAXIMUM* ID ID * NORMAL-1 NORMAL-2 SHEAR-12 * *FAILURE INDEX* *SHEAR-1Z SHEAR-2Z* *FAILURE INDEX* * INDEX * 0 1 1 5.00000E+01 -1.39086E+00 6.01229E-07 0.000 -8.98525E-18 5.13863E-17 0.000 2 5.00000E+01 -1.39086E+00 6.01229E-07 0.000 -1.19803E-17 6.85151E-17 0.000 3 5.00000E+01 -1.39086E+00 6.01229E-07 0.000 -8.98525E-18 5.13863E-17 0.000 4 5.00000E+01 -1.39086E+00 6.01229E-07 0.000 0.00000E+00 0.00000E+00 0.000 0.000 0 2 1 5.00000E+01 3.42033E-01 6.23091E-06 0.000 -1.65429E-17 9.46002E-17 0.000 2 5.00000E+01 3.42033E-01 6.23091E-06 0.000 -2.20572E-17 1.26134E-16 0.000 3 5.00000E+01 3.42033E-01 6.23091E-06 0.000 -1.65429E-17 9.46002E-17 0.000 4 5.00000E+01 3.42033E-01 6.23091E-06 0.000 0.00000E+00 0.00000E+00 0.000 0.000 0 3 1 5.00000E+01 -8.40511E-02 -2.18629E-06 0.000 9.29565E-18 -5.87147E-17 0.000 2 5.00000E+01 -8.40511E-02 -2.18629E-06 0.000 1.23942E-17 -7.82862E-17 0.000 3 5.00000E+01 -8.40511E-02 -2.18629E-06 0.000 9.29565E-18 -5.87147E-17 0.000 4 5.00000E+01 -8.40511E-02 -2.18629E-06 0.000 0.00000E+00 0.00000E+00 0.000 0.000 0 4 1 5.00000E+01 2.03857E-02 6.83214E-06 0.000 -1.86556E-17 1.02818E-16 0.000 2 5.00000E+01 2.03857E-02 6.83214E-06 0.000 -2.48741E-17 1.37090E-16 0.000 3 5.00000E+01 2.03857E-02 6.83214E-06 0.000 -1.86556E-17 1.02818E-16 0.000 4 5.00000E+01 2.03857E-02 6.83214E-06 0.000 0.00000E+00 0.00000E+00 0.000 0.000 0 5 1 5.00000E+01 -3.83949E-03 -1.01116E-05 0.000 -2.46708E-17 1.28350E-16 0.000 2 5.00000E+01 -3.83949E-03 -1.01116E-05 0.000 -3.28943E-17 1.71133E-16 0.000 3 5.00000E+01 -3.83949E-03 -1.01116E-05 0.000 -2.46708E-17 1.28350E-16 0.000 4 5.00000E+01 -3.83949E-03 -1.01116E-05 0.000 0.00000E+00 0.00000E+00 0.000 0.000 0 6 1 5.00000E+01 5.65553E+00 1.55773E-06 0.000 1.48069E-17 -8.17600E-17 0.000 2 5.00000E+01 5.65553E+00 1.55773E-06 0.000 1.97425E-17 -1.09013E-16 0.000 3 5.00000E+01 5.65553E+00 1.55773E-06 0.000 1.48069E-17 -8.17600E-17 0.000 4 5.00000E+01 5.65553E+00 1.55773E-06 0.000 0.00000E+00 0.00000E+00 0.000 0.000 1 COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 OUT-OF-PLANE SHEAR 0 REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) SUBCASE 2 S T R E S S E S I N L A Y E R E D C O M P O S I T E E L E M E N T S ( Q U A D 4 ) 0 ELEMENT PLY *STRESSES IN FIBER AND MATRIX DIRECTIONS* *DIRECT FIBER * *INTER-LAMINAR STRESSES* * SHEAR BOND * *MAXIMUM* ID ID * NORMAL-1 NORMAL-2 SHEAR-12 * *FAILURE INDEX* *SHEAR-1Z SHEAR-2Z* *FAILURE INDEX* * INDEX * 0 1 1 1.01250E+04 -3.75817E+02 2.93150E-01 0.000 -8.92492E+01 8.95528E+02 0.000 2 3.37500E+03 -1.25272E+02 9.77165E-02 0.000 -1.18999E+02 1.19404E+03 0.000 3 -3.37500E+03 1.25273E+02 -9.77165E-02 0.000 -8.92492E+01 8.95528E+02 0.000 4 -1.01250E+04 3.75817E+02 -2.93150E-01 0.000 0.00000E+00 0.00000E+00 0.000 0.000 0 2 1 7.87500E+03 9.34956E+01 3.39681E-01 0.000 -5.35838E+00 4.36223E+02 0.000 2 2.62500E+03 3.11655E+01 1.13227E-01 0.000 -7.14451E+00 5.81631E+02 0.000 3 -2.62500E+03 -3.11655E+01 -1.13227E-01 0.000 -5.35838E+00 4.36223E+02 0.000 4 -7.87500E+03 -9.34956E+01 -3.39681E-01 0.000 0.00000E+00 0.00000E+00 0.000 0.000 0 3 1 5.62500E+03 -2.73506E+01 -5.70013E-01 0.000 -1.74670E+01 5.01829E+02 0.000 2 1.87500E+03 -9.11688E+00 -1.90004E-01 0.000 -2.32894E+01 6.69105E+02 0.000 3 -1.87500E+03 9.11670E+00 1.90004E-01 0.000 -1.74670E+01 5.01829E+02 0.000 4 -5.62500E+03 2.73503E+01 5.70013E-01 0.000 0.00000E+00 0.00000E+00 0.000 0.000 0 4 1 3.37500E+03 2.44430E+01 3.30375E-01 0.000 -9.02361E+01 9.00501E+02 0.000 2 1.12500E+03 8.14771E+00 1.10125E-01 0.000 -1.20315E+02 1.20067E+03 0.000 3 -1.12500E+03 -8.14771E+00 -1.10125E-01 0.000 -9.02361E+01 9.00501E+02 0.000 4 -3.37500E+03 -2.44430E+01 -3.30375E-01 0.000 0.00000E+00 0.00000E+00 0.000 0.000 0 5 1 1.12500E+03 -7.80509E+01 -6.04912E-02 0.000 -1.11675E+01 4.67697E+02 0.000 2 3.75000E+02 -2.60169E+01 -2.01637E-02 0.000 -1.48900E+01 6.23596E+02 0.000 3 -3.75000E+02 2.60169E+01 2.01637E-02 0.000 -1.11675E+01 4.67697E+02 0.000 4 -1.12500E+03 7.80509E+01 6.04912E-02 0.000 0.00000E+00 0.00000E+00 0.000 0.000 0 6 1 1.23750E+04 1.52708E+03 -8.32917E-01 0.000 -2.41164E+01 5.39078E+02 0.000 2 4.12500E+03 5.09027E+02 -2.77639E-01 0.000 -3.21552E+01 7.18770E+02 0.000 3 -4.12500E+03 -5.09026E+02 2.77639E-01 0.000 -2.41164E+01 5.39078E+02 0.000 4 -1.23750E+04 -1.52708E+03 8.32917E-01 0.000 0.00000E+00 0.00000E+00 0.000 0.000 * * * END OF JOB * * * 1 JOB TITLE = COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST DATE: 5/17/95 END TIME: 16:39:17 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/t01291a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01291A,NASTRAN DIAG 40 SOL 1,0 APP DISP TIME 30 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-29-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-29-1A 3 $ 4 $ 5 $ MODEL: LAMINATED COMPOSITE SHELL ROOF MODEL. 6 $ SYMMETRIC ANGLE PLY LAYUP 7 $ [ 45/-45/15/-15/-15/15/-45/45 ] 8 $ 9 $ 10 SPC = 1 11 LOAD = 1 12 DISP = ALL 13 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 168, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-29-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2C 1 0.0 0.0 0.0 -1.0 0.0 0.0 +MOR1001 2- +MOR10010.0 0.0 1.0 3- CORD2R 2 0 0.0 0.0 0.0 0.0 0.0 1.0 +C2 4- +C2 1.0 0.0 0.0 5- CORD2R 3 0 0.0 0.0 0.0 0.0 0.0 1.0 +C3 6- +C3 1.0 0.0 0.0 7- CQUAD4 2 1 1 2 11 10 8- CQUAD4 3 1 2 3 12 11 9- CQUAD4 4 1 3 4 13 12 10- CQUAD4 5 1 4 5 14 13 11- CQUAD4 6 1 5 6 15 14 12- CQUAD4 7 1 6 7 16 15 13- CQUAD4 8 1 7 8 17 16 14- CQUAD4 9 1 8 9 18 17 15- CQUAD4 10 1 10 11 20 19 16- CQUAD4 11 1 11 12 21 20 17- CQUAD4 12 1 12 13 22 21 18- CQUAD4 13 1 13 14 23 22 19- CQUAD4 14 1 14 15 24 23 20- CQUAD4 15 1 15 16 25 24 21- CQUAD4 16 1 16 17 26 25 22- CQUAD4 17 1 17 18 27 26 23- CQUAD4 18 1 19 20 29 28 24- CQUAD4 19 1 20 21 30 29 25- CQUAD4 20 1 21 22 31 30 26- CQUAD4 21 1 22 23 32 31 27- CQUAD4 22 1 23 24 33 32 28- CQUAD4 23 1 24 25 34 33 29- CQUAD4 24 1 25 26 35 34 30- CQUAD4 25 1 26 27 36 35 31- CQUAD4 26 1 28 29 38 37 32- CQUAD4 27 1 29 30 39 38 33- CQUAD4 28 1 30 31 40 39 34- CQUAD4 29 1 31 32 41 40 35- CQUAD4 30 1 32 33 42 41 36- CQUAD4 31 1 33 34 43 42 37- CQUAD4 32 1 34 35 44 43 38- CQUAD4 33 1 35 36 45 44 39- CQUAD4 34 1 37 38 47 46 40- CQUAD4 35 1 38 39 48 47 41- CQUAD4 36 1 39 40 49 48 42- CQUAD4 37 1 40 41 50 49 43- CQUAD4 38 1 41 42 51 50 44- CQUAD4 39 1 42 43 52 51 45- CQUAD4 40 1 43 44 53 52 46- CQUAD4 41 1 44 45 54 53 47- CQUAD4 42 1 46 47 56 55 1 COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-29-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQUAD4 43 1 47 48 57 56 49- CQUAD4 44 1 48 49 58 57 50- CQUAD4 45 1 49 50 59 58 51- CQUAD4 46 1 50 51 60 59 52- CQUAD4 47 1 51 52 61 60 53- CQUAD4 48 1 52 53 62 61 54- CQUAD4 49 1 53 54 63 62 55- CQUAD4 50 1 55 56 65 64 56- CQUAD4 51 1 56 57 66 65 57- CQUAD4 52 1 57 58 67 66 58- CQUAD4 53 1 58 59 68 67 59- CQUAD4 54 1 59 60 69 68 60- CQUAD4 55 1 60 61 70 69 61- CQUAD4 56 1 61 62 71 70 62- CQUAD4 57 1 62 63 72 71 63- CQUAD4 58 1 64 65 74 73 64- CQUAD4 59 1 65 66 75 74 65- CQUAD4 60 1 66 67 76 75 66- CQUAD4 61 1 67 68 77 76 67- CQUAD4 62 1 68 69 78 77 68- CQUAD4 63 1 69 70 79 78 69- CQUAD4 64 1 70 71 80 79 70- CQUAD4 65 1 71 72 81 80 71- CRIGD1 1 81 5001 72- GRID 1 1 25.000 0.000 0.000 1 73- GRID 2 1 25.000 5.000 0.000 1 74- GRID 3 1 25.000 10.000 0.000 1 75- GRID 4 1 25.000 15.000 0.000 1 76- GRID 5 1 25.000 20.000 0.000 1 77- GRID 6 1 25.000 25.000 0.000 1 78- GRID 7 1 25.000 30.000 0.000 1 79- GRID 8 1 25.000 35.000 0.000 1 80- GRID 9 1 25.000 40.000 0.000 1 81- GRID 10 1 25.000 0.000 3.125 1 82- GRID 11 1 25.000 5.000 3.125 1 83- GRID 12 1 25.000 10.000 3.125 1 84- GRID 13 1 25.000 15.000 3.125 1 85- GRID 14 1 25.000 20.000 3.125 1 86- GRID 15 1 25.000 25.000 3.125 1 87- GRID 16 1 25.000 30.000 3.125 1 88- GRID 17 1 25.000 35.000 3.125 1 89- GRID 18 1 25.000 40.000 3.125 1 90- GRID 19 1 25.000 0.000 6.250 1 91- GRID 20 1 25.000 5.000 6.250 1 92- GRID 21 1 25.000 10.000 6.250 1 93- GRID 22 1 25.000 15.000 6.250 1 94- GRID 23 1 25.000 20.000 6.250 1 1 COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-29-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- GRID 24 1 25.000 25.000 6.250 1 96- GRID 25 1 25.000 30.000 6.250 1 97- GRID 26 1 25.000 35.000 6.250 1 98- GRID 27 1 25.000 40.000 6.250 1 99- GRID 28 1 25.000 0.000 9.375 1 100- GRID 29 1 25.000 5.000 9.375 1 101- GRID 30 1 25.000 10.000 9.375 1 102- GRID 31 1 25.000 15.000 9.375 1 103- GRID 32 1 25.000 20.000 9.375 1 104- GRID 33 1 25.000 25.000 9.375 1 105- GRID 34 1 25.000 30.000 9.375 1 106- GRID 35 1 25.000 35.000 9.375 1 107- GRID 36 1 25.000 40.000 9.375 1 108- GRID 37 1 25.000 0.000 12.500 1 109- GRID 38 1 25.000 5.000 12.500 1 110- GRID 39 1 25.000 10.000 12.500 1 111- GRID 40 1 25.000 15.000 12.500 1 112- GRID 41 1 25.000 20.000 12.500 1 113- GRID 42 1 25.000 25.000 12.500 1 114- GRID 43 1 25.000 30.000 12.500 1 115- GRID 44 1 25.000 35.000 12.500 1 116- GRID 45 1 25.000 40.000 12.500 1 117- GRID 46 1 25.000 0.000 15.625 1 118- GRID 47 1 25.000 5.000 15.625 1 119- GRID 48 1 25.000 10.000 15.625 1 120- GRID 49 1 25.000 15.000 15.625 1 121- GRID 50 1 25.000 20.000 15.625 1 122- GRID 51 1 25.000 25.000 15.625 1 123- GRID 52 1 25.000 30.000 15.625 1 124- GRID 53 1 25.000 35.000 15.625 1 125- GRID 54 1 25.000 40.000 15.625 1 126- GRID 55 1 25.000 0.000 18.750 1 127- GRID 56 1 25.000 5.000 18.750 1 128- GRID 57 1 25.000 10.000 18.750 1 129- GRID 58 1 25.000 15.000 18.750 1 130- GRID 59 1 25.000 20.000 18.750 1 131- GRID 60 1 25.000 25.000 18.750 1 132- GRID 61 1 25.000 30.000 18.750 1 133- GRID 62 1 25.000 35.000 18.750 1 134- GRID 63 1 25.000 40.000 18.750 1 135- GRID 64 1 25.000 0.000 21.875 1 136- GRID 65 1 25.000 5.000 21.875 1 137- GRID 66 1 25.000 10.000 21.875 1 138- GRID 67 1 25.000 15.000 21.875 1 139- GRID 68 1 25.000 20.000 21.875 1 140- GRID 69 1 25.000 25.000 21.875 1 141- GRID 70 1 25.000 30.000 21.875 1 1 COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-29-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 71 1 25.000 35.000 21.875 1 143- GRID 72 1 25.000 40.000 21.875 1 144- GRID 73 1 25.000 0.000 25.000 1 145- GRID 74 1 25.000 5.000 25.000 1 146- GRID 75 1 25.000 10.000 25.000 1 147- GRID 76 1 25.000 15.000 25.000 1 148- GRID 77 1 25.000 20.000 25.000 1 149- GRID 78 1 25.000 25.000 25.000 1 150- GRID 79 1 25.000 30.000 25.000 1 151- GRID 80 1 25.000 35.000 25.000 1 152- GRID 81 1 25.000 40.000 25.000 1 153- GRID 5001 1 25.0 40.0 25.0 3 154- MAT8 1 20.0 E+70.5 E+070.25 0.25 E+70.25 E+70.25 E+7 155- PARAM AUTOSPC 1 156- PCOMP 1 +PC1 157- +PC1 1 .03125 45.0 YES -45.0 YES +PC2 158- +PC2 1 .03125 15.0 YES -15.0 YES +PC3 159- +PC3 1 .03125 -15.0 YES 15.0 YES +PC4 160- +PC4 1 .03125 -45.0 YES 45.0 YES 161- PLOAD4 1 2 90.0 THRU 65 +PL1 162- +PL1 2 0.0 0.0 -1.0 163- SPC1 1 12 1 2 3 4 5 6 +SP10001 164- +SP100017 8 9 165- SPC1 1 26 1 10 19 28 37 46 +SP10005 166- +SP1000555 64 73 167- SPC1 1 35 73 74 75 76 77 78 +SP10003 168- +SP1000379 80 81 ENDDATA 1 COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-29-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 11 PROFILE 801 MAX WAVEFRONT 11 AVG WAVEFRONT 9.889 RMS WAVEFRONT 10.155 RMS BANDWIDTH 10.290 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 16 PROFILE 817 MAX WAVEFRONT 14 AVG WAVEFRONT 10.086 RMS WAVEFRONT 10.452 RMS BANDWIDTH 10.925 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 11 11 PROFILE (P) 801 801 MAXIMUM WAVEFRONT (C-MAX) 11 11 AVERAGE WAVEFRONT (C-AVG) 9.889 9.889 RMS WAVEFRONT (C-RMS) 10.155 10.155 RMS BANDWITCH (B-RMS) 10.290 10.290 NUMBER OF GRID POINTS (N) 82 NUMBER OF ELEMENTS (NON-RIGID) 64 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 272 MATRIX DENSITY, PERCENT 9.526 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** THE INPUT PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES HAVE BEEN REPLACED BY THE FOLLOWING PSHELL AND MAT2 ENTRIES. PSHELL 1 100000001 2.5000E-01 200000001 1.0000E+00 300000001 1.0000E+00 0.0000E+00 -1.2500E-01 1.2500E-01 400000001 0.0 0.0 0.0000E+00 MAT2 100000001 1.1482E+08 3.1380E+07 0.0000E+00 3.0248E+07 0.0000E+00 3.2628E+07 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 200000001 6.9547E+07 4.4937E+07 1.7978E+07 4.8404E+07 1.4064E+07 4.6185E+07 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 300000001 1.8727E+06 0.0000E+00 0.0000E+00 2.1638E+06 0.0000E+00 0.0000E+00 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 400000001 -9.3132E-10 0.0000E+00 0.0000E+00 -4.6566E-10 0.0000E+00 -4.6566E-10 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 5001 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD4 ELEMENTS (ELEMENT TYPE 64) STARTING WITH ID 2 0*** USER INFORMATION MESSAGE 3113, RIGID ELEMENTS ARE BEING PROCESSED IN GP4 0*** USER INFORMATION MESSAGE 2435, AT USER'S REQUEST, ALL POTENTIAL SINGULARITIES HAVE BEEN REMOVED BY THE APPLICATION OF SINGLE POINT CONSTRAINTS. REFER TO PRINTOUT OF AUTOMATICALLY GENERATED SPC1 CARDS FOR DETAILS. 1 COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-29-1A 0 A U T O M A T I C A L L Y G E N E R A T E D S P C 1 C A R D S CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- SPC1 1 4 1 9 10 18 19 27 2- SPC1 1 4 28 36 37 45 46 54 3- SPC1 1 4 55 63 64 72 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -1.8571016E-13 1 COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-29-1A 0 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 2.899564E-02 0.0 8.625546E-03 0.0 2 G 0.0 0.0 3.017557E-02 5.725482E-02 1.896960E-03 1.115188E-03 3 G 0.0 0.0 3.269306E-02 1.056870E-01 -1.404650E-02 1.548842E-03 4 G 0.0 0.0 3.377349E-02 1.371243E-01 -3.737132E-02 2.159184E-03 5 G 0.0 0.0 2.929746E-02 1.592472E-01 -6.642547E-02 2.454772E-03 6 G 0.0 0.0 1.394483E-02 1.674581E-01 -9.953078E-02 2.853242E-03 7 G 0.0 0.0 -1.857785E-02 1.628319E-01 -1.345009E-01 2.620562E-03 8 G 0.0 0.0 -7.529143E-02 1.332506E-01 -1.684601E-01 3.031616E-03 9 G 0.0 0.0 -1.639529E-01 0.0 -1.942351E-01 1.629148E-03 10 G 3.229542E-02 0.0 2.892486E-02 0.0 7.964384E-03 0.0 11 G 1.497283E-02 -2.220311E-03 3.001600E-02 6.858427E-02 4.942628E-03 1.550408E-02 12 G -3.198040E-02 -1.626468E-03 3.233238E-02 1.041797E-01 -8.778524E-03 2.681453E-02 13 G -1.015888E-01 4.059293E-03 3.323820E-02 1.359712E-01 -2.971412E-02 3.623423E-02 14 G -1.893344E-01 1.660417E-02 2.868276E-02 1.566852E-01 -5.640581E-02 4.380335E-02 15 G -2.897798E-01 3.731973E-02 1.348193E-02 1.657657E-01 -8.696624E-02 4.882053E-02 16 G -3.959515E-01 6.693327E-02 -1.841717E-02 1.586989E-01 -1.191799E-01 5.080279E-02 17 G -4.998755E-01 1.054282E-01 -7.360949E-02 1.478272E-01 -1.509882E-01 4.933311E-02 18 G -5.936927E-01 1.518261E-01 -1.586922E-01 0.0 -1.751578E-01 4.535493E-02 19 G 6.090258E-02 0.0 2.821701E-02 0.0 5.622067E-03 0.0 20 G 2.951520E-02 -3.868122E-03 2.907328E-02 7.248543E-02 2.026448E-03 2.846012E-02 21 G -5.812308E-02 -2.460957E-03 3.087526E-02 1.174794E-01 -9.886149E-03 5.161848E-02 22 G -1.911845E-01 8.700500E-03 3.125524E-02 1.469402E-01 -2.897359E-02 7.051452E-02 23 G -3.592701E-01 3.309438E-02 2.650590E-02 1.610630E-01 -5.302827E-02 8.498292E-02 24 G -5.505790E-01 7.314442E-02 1.189345E-02 1.589259E-01 -7.995253E-02 9.418880E-02 25 G -7.514147E-01 1.300325E-01 -1.796114E-02 1.465427E-01 -1.078509E-01 9.748510E-02 26 G -9.478584E-01 2.035301E-01 -6.864892E-02 1.249873E-01 -1.353272E-01 9.554208E-02 27 G -1.130176E+00 2.921465E-01 -1.455881E-01 0.0 -1.577956E-01 9.144332E-02 28 G 7.992071E-02 0.0 2.631155E-02 0.0 7.379559E-04 0.0 29 G 3.692570E-02 -4.838938E-03 2.691968E-02 8.530802E-02 9.856989E-04 3.919034E-02 30 G -8.604135E-02 -2.335971E-03 2.804812E-02 9.957778E-02 -9.504352E-03 7.276747E-02 31 G -2.746689E-01 1.389926E-02 2.775921E-02 1.138240E-01 -2.540007E-02 9.991711E-02 32 G -5.129053E-01 4.884833E-02 2.292241E-02 1.194014E-01 -4.562375E-02 1.200528E-01 33 G -7.826692E-01 1.058663E-01 9.551525E-03 1.170826E-01 -6.843191E-02 1.323491E-01 34 G -1.064788E+00 1.865032E-01 -1.683461E-02 1.104471E-01 -9.243312E-02 1.369275E-01 35 G -1.342523E+00 2.905575E-01 -6.093396E-02 1.134538E-01 -1.173138E-01 1.359932E-01 36 G -1.606568E+00 4.165486E-01 -1.276789E-01 0.0 -1.374066E-01 1.340813E-01 37 G 9.111481E-02 0.0 2.320636E-02 0.0 8.203459E-04 0.0 38 G 3.812192E-02 -5.167392E-03 2.352739E-02 6.647225E-02 -1.824821E-03 4.783016E-02 39 G -1.126332E-01 -1.367456E-03 2.404442E-02 1.031336E-01 -8.646183E-03 8.961146E-02 40 G -3.456871E-01 1.930683E-02 2.322238E-02 1.207159E-01 -2.074476E-02 1.239404E-01 41 G -6.409738E-01 6.308063E-02 1.864158E-02 1.257583E-01 -3.653977E-02 1.490356E-01 42 G -9.754177E-01 1.341401E-01 7.174413E-03 1.204130E-01 -5.481802E-02 1.643408E-01 43 G -1.325969E+00 2.344973E-01 -1.477512E-02 1.095870E-01 -7.458538E-02 1.707507E-01 44 G -1.673849E+00 3.641651E-01 -5.111113E-02 9.127031E-02 -9.483767E-02 1.713979E-01 45 G -2.010344E+00 5.217552E-01 -1.058831E-01 0.0 -1.127465E-01 1.722045E-01 46 G 9.356097E-02 0.0 1.886566E-02 0.0 -5.991992E-03 0.0 47 G 3.530085E-02 -4.975086E-03 1.900014E-02 9.266894E-02 -5.291671E-04 5.354195E-02 1 COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-29-1A 0 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 48 G -1.353854E-01 1.504413E-04 1.900132E-02 7.637139E-02 -6.603403E-03 1.020970E-01 49 G -4.015175E-01 2.442709E-02 1.789914E-02 7.315119E-02 -1.532609E-02 1.418891E-01 50 G -7.401790E-01 7.506831E-02 1.399365E-02 6.909098E-02 -2.698910E-02 1.713187E-01 51 G -1.125102E+00 1.570122E-01 4.962201E-03 6.430767E-02 -4.082906E-02 1.895055E-01 52 G -1.530234E+00 2.727434E-01 -1.193661E-02 6.199219E-02 -5.605701E-02 1.978610E-01 53 G -1.935240E+00 4.225408E-01 -3.964049E-02 7.547092E-02 -7.276974E-02 2.003550E-01 54 G -2.330566E+00 6.051728E-01 -8.128059E-02 0.0 -8.526150E-02 2.029887E-01 55 G 9.444383E-02 0.0 1.341944E-02 0.0 1.611832E-03 0.0 56 G 3.002082E-02 -4.455318E-03 1.334750E-02 4.320000E-02 -3.952390E-03 5.764867E-02 57 G -1.534824E-01 1.867822E-03 1.309156E-02 8.697563E-02 -5.401087E-03 1.097168E-01 58 G -4.412707E-01 2.873573E-02 1.208535E-02 9.986024E-02 -1.032157E-02 1.542405E-01 59 G -8.102633E-01 8.416884E-02 9.236316E-03 1.003214E-01 -1.774203E-02 1.872265E-01 60 G -1.231426E+00 1.737581E-01 3.030256E-03 8.976886E-02 -2.692107E-02 2.078252E-01 61 G -1.676202E+00 3.004031E-01 -8.358393E-03 7.271206E-02 -3.712994E-02 2.177250E-01 62 G -2.122948E+00 4.646077E-01 -2.698542E-02 4.590473E-02 -4.736068E-02 2.216620E-01 63 G -2.563775E+00 6.654020E-01 -5.490253E-02 0.0 -5.911697E-02 2.271640E-01 64 G 8.182470E-02 0.0 7.020907E-03 0.0 -1.740015E-02 0.0 65 G 2.139186E-02 -3.751520E-03 6.966338E-03 9.953668E-02 -7.478923E-04 5.675038E-02 66 G -1.645208E-01 3.365430E-03 6.725371E-03 3.839648E-02 -1.735847E-03 1.135830E-01 67 G -4.634902E-01 3.170485E-02 6.093581E-03 1.807599E-02 -3.660017E-03 1.611325E-01 68 G -8.498142E-01 8.986308E-02 4.576935E-03 1.794365E-03 -7.167116E-03 1.966604E-01 69 G -1.292948E+00 1.838779E-01 1.416779E-03 -5.290289E-03 -1.205355E-02 2.191020E-01 70 G -1.762964E+00 3.169888E-01 -4.297093E-03 -7.718697E-04 -1.819778E-02 2.304700E-01 71 G -2.236855E+00 4.899319E-01 -1.357198E-02 2.774042E-02 -2.594543E-02 2.353228E-01 72 G -2.704947E+00 7.017896E-01 -2.771374E-02 0.0 -2.775393E-02 2.415532E-01 73 G 8.774255E-02 0.0 0.0 -4.773707E-01 0.0 0.0 74 G 2.208306E-02 -3.579336E-03 0.0 -8.017362E-05 0.0 5.820425E-02 75 G -1.673827E-01 3.892042E-03 0.0 8.918486E-02 0.0 1.134582E-01 76 G -4.695131E-01 3.275507E-02 0.0 1.009819E-01 0.0 1.625737E-01 77 G -8.615965E-01 9.178473E-02 0.0 9.832776E-02 0.0 1.994962E-01 78 G -1.312415E+00 1.872231E-01 0.0 7.920962E-02 0.0 2.229738E-01 79 G -1.791753E+00 3.224472E-01 0.0 5.202624E-02 0.0 2.354358E-01 80 G -2.278099E+00 4.983991E-01 0.0 5.247600E-03 0.0 2.423907E-01 81 G -2.761726E+00 7.144707E-01 0.0 -1.846150E-01 0.0 2.487458E-01 5001 G 0.0 -1.227887E+00 -2.574858E+00 -2.487458E-01 -1.186682E-01 -1.414233E-01 * * * END OF JOB * * * 1 JOB TITLE = COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL DATE: 5/17/95 END TIME: 16:40: 0 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t01301a.out ================================================ NASTRAN FILES=(INP1,INP2) **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01301A,NASTRAN SOL 1 TIME 10 APP DISP $DIAG 15,-2,-14 ALTER 110 DATABASE EQEXIN,BGPDT,GEOM2,CSTM,OUGV1,,//C,N,15/C,N,+1/C,N,+1 $ $ALTER 131 $DATABASE EQEXIN,BGPDT,GEOM2,CSTM,OES1,,//C,N,16/C,N,+1 $ ALTER 147 DATABASE EQEXIN,BGPDT,GEOM2,CSTM,OES1,,//C,N,16/C,N,+1 $ JUMP FINIS ENDALTER CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 TESTING DATABASE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-30-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TESTING DATABASE MODULE 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-30-1A 3 SPC = 10 4 DISP = ALL 5 STRES = ALL 6 ELFOR = ALL 7 ECHO = NONE 8 LOAD = 20 9 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 14, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 TESTING DATABASE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-30-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD4 ELEMENTS (ELEMENT TYPE 64) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 8.9120300E-15 1 TESTING DATABASE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-30-1A 0 0 0*** USER INFORMATION MESSAGE, DATABASE NEW DMAP FORMAT DATABASE EQEXIN,BGPDT,GEOM2,CSTM,O1,O2,O3//C,N,OUTTP/C,N,FORMAT/C,N,BASIC $ FIRST 4 FILES ARE FIXED IN NAMES AND ORDER, NEXT 3 FILES CAN BE SELECTED BY USER FIRST EQEXIN FILE MUST BE PRESENT, OTHERS CAN BE SELECTIVELY OMITTED 0*** USER INFORMATION MESSAGE - DATABASE MODULE TRANSFERRED THE FOLLOWING 3 SETS OF DATA TO OUTPUT FILE INP1 + (FORTRAN UNIT 15), FORMATTED 1. GRID POINT DATA - EXTERNAL NUMBERS AND BASIC RECTANGULAR COORDINATES 2. ELEMENT CONNECTIVITY DATA - ALL GRID POINTS ARE EXTERNAL NUMBERS 3. DISPLCNT DATA FROM INPUT FILE OUGV1 + , IN NASTRAN GLOBAL COORDINATE SYSTEM, + 1 SUBCASES 1 TESTING DATABASE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-30-1A 0 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G -1.478750E-05 2.560278E-05 3.564502E-03 5.329478E-05 -6.608641E-03 0.0 4 G 2.161250E-05 2.813055E-05 2.632305E-03 1.793343E-03 -4.833373E-03 0.0 5 G 2.433680E-05 6.963935E-05 8.925877E-03 2.351535E-03 -7.309748E-03 0.0 6 G -1.206319E-05 7.422730E-05 1.128044E-02 2.280297E-03 -8.315651E-03 0.0 1 TESTING DATABASE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-30-1A 0 F O R C E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( Q U A D 4 ) ELEMENT - MEMBRANE FORCES - - BENDING MOMENTS - - TRANSVERSE SHEAR FORCES - ID FX FY FXY MX MY MXY VX VY 0 1 -7.91647E-01 9.99998E+00 1.00000E+01 -2.32494E+00 -1.50000E+01 -1.74130E+00 -1.95114E-01 -1.04572E+01 0 2 6.09027E+00 1.00000E+01 1.00000E+01 7.64107E-01 -5.00000E+00 -2.67614E+00 -1.04445E+00 -1.04571E+01 1 TESTING DATABASE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-30-1A 0 S T R E S S E S I N G E N E R A L Q U A D R I L A T E R A L E L E M E N T S ( C Q U A D 4 ) (IN STRESS COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN STRESS COORD. SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 -5.000000E-02 -1.402881E+03 -8.900000E+03 -9.447805E+02 -7.0731 -1.285654E+03 -9.017228E+03 3.865787E+03 5.000000E-02 1.387048E+03 9.100000E+03 1.144781E+03 81.7333 9.266325E+03 1.220723E+03 4.022801E+03 0 2 -5.000000E-02 5.193671E+02 -2.900000E+03 -1.505682E+03 -20.6848 1.087862E+03 -3.468495E+03 2.278179E+03 5.000000E-02 -3.975616E+02 3.100000E+03 1.705682E+03 67.8574 3.794084E+03 -1.091645E+03 2.442865E+03 1 TESTING DATABASE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-30-1A 0 0 0*** USER INFORMATION MESSAGE, DATABASE NEW DMAP FORMAT DATABASE EQEXIN,BGPDT,GEOM2,CSTM,O1,O2,O3//C,N,OUTTP/C,N,FORMAT/C,N,BASIC $ FIRST 4 FILES ARE FIXED IN NAMES AND ORDER, NEXT 3 FILES CAN BE SELECTED BY USER FIRST EQEXIN FILE MUST BE PRESENT, OTHERS CAN BE SELECTIVELY OMITTED 1 TESTING DATABASE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-30-1A 0*** USER INFORMATION MESSAGE - DATABASE MODULE TRANSFERRED THE FOLLOWING 3 SETS OF DATA TO OUTPUT FILE INP2 + (FORTRAN UNIT 16), FORMATTED 1. GRID POINT DATA - EXTERNAL NUMBERS AND BASIC RECTANGULAR COORDINATES 2. ELEMENT CONNECTIVITY DATA - ALL GRID POINTS ARE EXTERNAL NUMBERS 3. E.STRESS DATA FROM INPUT FILE OES1 + 1 SUBCASES * * * END OF JOB * * * 1 JOB TITLE = TESTING DATABASE MODULE DATE: 5/17/95 END TIME: 16:40:39 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/t01311a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01311A,NASTRAN SOL 1 APP DISP TIME 10 DIAG 2,8,15 ALTER 50 GINOFILE /XXX/C,N,303 $ MATPRN XXX,,,, // $ JUMP FINIS $ ENDALTER CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 TESTING GINOFILE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-31-1A 0 TO CAPTURE SCRATCH 3 OF GPWG MODULE 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TESTING GINOFILE MODULE 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-31-1A 3 LABEL = TO CAPTURE SCRATCH 3 OF GPWG MODULE 4 SPC = 10 5 DISP = ALL 6 STRES = ALL 7 ELFOR = ALL 8 $ECHO = NONE 9 LOAD = 20 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 15, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TESTING GINOFILE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-31-1A 0 TO CAPTURE SCRATCH 3 OF GPWG MODULE 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CQUAD4 1 1 1 2 3 4 2- CQUAD4 2 1 4 3 6 5 3- FORCE 20 6 10.0 1.0 1.0 1.0 4- FORCE 25 4 -1.0 1.0 1.0 1.0 5- GRID 1 0.0 6- GRID 2 0.0 1.0 7- GRID 3 1.0 1.0 8- GRID 4 1.0 0.0 9- GRID 5 2.0 0.0 10- GRID 6 2.0 1.0 11- MAT1 100 3.0E+7 .3 1.0 12- PARAM GRDPNT 1 13- PSHELL 1 100 .1 100 1.0 100 .8333 14- SPC1 10 6 1 THRU 6 15- SPC1 10 123456 1 2 ENDDATA 1 TESTING GINOFILE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-31-1A 0 TO CAPTURE SCRATCH 3 OF GPWG MODULE FIAT AT END OF PREFACE 58 100 62 EQUIV APPEND LTU TAPE UNIT FILE NAME ---TRAILER--- 0 0 6 0 23 GEOM1 + 0 0 8 0 0 0 0 0 33 0 24 EPT + 0 0 0 64 0 0 0 0 158 0 25 MPT + 32768 0 0 0 0 0 0 0 0 0 26 + 0 0 0 0 0 0 0 0 0 0 27 + 0 0 0 0 0 0 0 0 158 0 28 CASECC + 1 1 200 0 0 0 0 0 0 0 29 + 0 0 0 0 0 0 0 0 0 0 30 + 0 0 0 0 0 0 0 0 158 0 31 GEOM2 + 0 0 0 1024 0 0 0 0 24 0 32 GEOM3 + 0 0 64 0 0 0 0 0 158 0 33 GEOM4 + 0 0 0 64 0 0 0 0 0 0 34 + 0 0 0 0 0 0 0 0 0 0 35 + 0 0 0 0 0 0 0 0 0 0 36 + 0 0 0 0 0 0 0 0 0 0 37 + 0 0 0 0 0 0 0 0 0 0 38 + 0 0 0 0 0 0 0 0 0 0 39 + 0 0 0 0 0 0 0 0 0 0 40 + 0 0 0 0 0 0 0 0 0 0 41 + 0 0 0 0 0 0 0 0 0 0 42 + 0 0 0 0 0 0 0 0 0 0 43 + 0 0 0 0 0 0 0 0 0 0 44 + 0 0 0 0 0 0 0 0 0 0 45 + 0 0 0 0 0 0 0 0 0 0 46 + 0 0 0 0 0 0 0 0 0 0 47 + 0 0 0 0 0 0 0 0 0 0 48 + 0 0 0 0 0 0 0 0 0 0 49 + 0 0 0 0 0 0 0 0 0 0 50 + 0 0 0 0 0 0 0 0 0 0 51 + 0 0 0 0 0 0 0 0 0 0 52 + 0 0 0 0 0 0 0 0 0 0 53 + 0 0 0 0 0 0 0 0 0 0 54 + 0 0 0 0 0 0 0 0 0 0 55 + 0 0 0 0 0 0 0 0 0 0 56 + 0 0 0 0 0 0 0 0 0 0 57 + 0 0 0 0 0 0 0 0 0 0 58 + 0 0 0 0 0 0 0 0 0 0 59 + 0 0 0 0 0 0 0 0 0 0 60 + 0 0 0 0 0 0 0 0 0 0 61 + 0 0 0 0 0 0 0 0 0 0 62 + 0 0 0 0 0 0 0 0 0 0 63 + 0 0 0 0 0 0 0 0 0 0 64 + 0 0 0 0 0 0 0 0 0 0 65 + 0 0 0 0 0 0 0 0 0 0 66 + 0 0 0 0 0 0 0 0 0 0 67 + 0 0 0 0 0 0 0 0 0 0 68 + 0 0 0 0 0 0 0 0 0 0 69 + 0 0 0 0 0 0 1 TESTING GINOFILE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-31-1A TO CAPTURE SCRATCH 3 OF GPWG MODULE 0 0 0 0 70 + 0 0 0 0 0 0 0 0 0 0 71 + 0 0 0 0 0 0 0 0 0 0 72 + 0 0 0 0 0 0 0 0 0 0 73 + 0 0 0 0 0 0 0 0 0 0 74 + 0 0 0 0 0 0 0 0 0 0 75 + 0 0 0 0 0 0 0 0 0 0 76 + 0 0 0 0 0 0 0 0 0 0 77 + 0 0 0 0 0 0 0 0 0 0 78 + 0 0 0 0 0 0 0 0 0 0 79 + 0 0 0 0 0 0 0 0 0 0 80 + 0 0 0 0 0 0 0 0 158 0 16383 EDT + 0 0 0 0 0 0 0 0 158 0 16383 DIT + 0 0 0 0 0 0 0 0 15 0 16383 PCDB + 0 0 0 0 0 0 0 0 158 0 16383 XYCDB + 0 0 0 0 0 0 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 TESTING GINOFILE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-31-1A 0 TO CAPTURE SCRATCH 3 OF GPWG MODULE 0FIAT AFTER SFA 58 100 72 OSCAR STR 4, STP 51 EQ AP LTU TP UNIT NTU OF SG KN TR DATA-BLK * * TRAILER * * * PRI BLKS SEC FLS/BLKS TER FLS/BLKS 0 0 6 0 23 6 1 -1 1 0 GEOM1 0 0 8 0 0 0 3 0/ 0 0/ 0 0 0 33 0 24 33 1 -1 1 0 EPT 0 0 0 64 0 0 3 0/ 0 0/ 0 0 0 158 0 25 82 0 -1 1 0 MPT 32768 0 0 0 0 0 3 0/ 0 0/ 0 0 0 158 0 26 89 0 -1 3 0 GPL 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 27 59 0 -1 3 0 EQEXIN 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 28 59 0 -1 1 0 CASECC 1 1 200 0 0 0 3 0/ 0 0/ 0 0 0 158 0 29 59 0 -1 3 0 GPDT 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 30 59 0 -1 3 0 CSTM 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 31 158 0 -1 1 0 GEOM2 0 0 0 1024 0 0 3 0/ 0 0/ 0 0 0 24 0 32 24 1 -1 1 0 GEOM3 0 0 64 0 0 0 3 0/ 0 0/ 0 0 0 158 0 33 158 0 0 0 0 GEOM4 0 0 0 64 0 0 3 0/ 0 0/ 0 0 0 158 0 34 59 0 -1 3 0 BGPDT 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 35 57 0 -1 3 0 SIL 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 16383 0 36 32705 0 -1 3 0 SCRATCH1 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 16383 0 37 32706 0 -1 3 0 SCRATCH2 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 8 0 38 8 1 -1 3 0 MPTA 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 39 97 0 -1 3 0 ECT 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 16383 0 40 32707 0 -1 3 0 SCRATCH3 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 16383 0 41 32708 0 -1 3 0 SCRATCH4 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 17 0 42 17 1 -1 3 0 PLTSETX 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 43 154 0 -1 3 0 PLTPAR 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 44 154 0 -1 3 0 GPSETS 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 45 154 0 -1 3 0 ELSETS 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 46 82 0 -1 3 0 GPTT 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 47 56 0 -1 3 0 GEI 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 48 97 0 -1 3 0 GPECT 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 29 0 49 29 1 -1 3 0 MPTX 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 50 82 0 -1 3 0 PCOMPS 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 29 0 51 29 1 -1 3 0 EPTX 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 44 0 52 44 1 -1 3 0 MELM 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 44 0 53 44 1 -1 3 0 MDICT 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 56 0 54 54 0 -1 3 0 KGGX 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 93 0 55 82 0 -1 3 0 MGG 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 56 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 57 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 58 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 59 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 60 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 61 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 62 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 63 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 64 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 65 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 66 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 67 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 68 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 69 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 1 TESTING GINOFILE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-31-1A TO CAPTURE SCRATCH 3 OF GPWG MODULE 0 0 0 0 70 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 71 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 72 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 73 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 74 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 75 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 76 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 77 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 78 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 79 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 0 0 80 0 0 0 0 0 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 32767 158 0 0 0 0 EDT 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 32767 82 0 -1 1 0 DIT 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 15 0 32767 15 0 -1 1 0 PCDB 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 32767 158 0 0 0 0 XYCDB 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 23 105 0 -1 2 0 BGPDP 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 38 154 0 -1 2 0 SIP 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 23 0 42 23 1 -1 2 0 PLOTX1 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 42 82 0 -1 2 0 SLT 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 32 82 0 -1 2 0 EST 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 158 0 49 37 0 -1 2 0 OPTP1 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 97 0 24 97 0 -1 2 0 KELM 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 97 0 51 97 0 -1 2 0 KDICT 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 52 0 52 52 0 -1 2 0 OGPWG 0 0 0 0 0 0 0 0/ 0 0/ 0 0 0 50 0 53 50 0 -1 2 0 XXX 0 0 0 0 0 0 0 0/ 0 0/ 0 EACH BLOCK CONTAINS 1024 WORDS. POOL FILE CONTENTS EQ SIZE FILE DATA BLOCK 0 0 1 XOSCAR MEMORY DATA BASE DIRECTORY UNIT NAME CURRENT IN-MEM DISK BLOCK BLOCKS BLOCKS 8 NPTP 1 0 1 22 POOL 1 4 0 23 GEOM1 1 1 0 24 EPT 1 1 0 25 MPT 1 1 0 28 CASE 1 1 0 31 GEOM2 1 1 0 32 GEOM3 1 1 0 33 GEOM4 1 1 0 38 IFPFILE 1 1 0 39 SCRATCH1 1 1 0 41 SCRATC15 1 5 0 CURRENT IN-MEMORY BLOCKS = 18 CURRENT DISK BLOCKS = 1 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD4 ELEMENTS (ELEMENT TYPE 64) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE FROM GINOFILE MODULE TRAILER OF SCRATCH3 FILE IN PREVIOUS MODULE = (303) 36 6 2 1 3 2824 MATRIX CONTENTS OF THIS FILE WILL BE TRANSFERRED TO GINO FILE XXX 0*** USER INFORMATION MESSAGE, DATA TRANSFER FROM PREVIOUS SCRATCH3 FILE TO XXX IS ACCOMPLISHED TRAILER OF THE NEW GINO FILE XXX = (201) 36 6 2 1 3 2824 1 TESTING GINOFILE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-31-1A 0 TO CAPTURE SCRATCH 3 OF GPWG MODULE 0 MATRIX XXX (GINO NAME 101 ) IS A S.P.REAL 36 COLUMN X 6 ROW RECTANG MATRIX. 0COLUMN 1 ROWS 1 THRU 1 -------------------------------------------------- 1.00000E+00 0COLUMN 2 ROWS 2 THRU 4 -------------------------------------------------- 1.00000E+00 0.00000E+00 0.00000E+00 0COLUMN 3 ROWS 3 THRU 5 -------------------------------------------------- 1.00000E+00 0.00000E+00 0.00000E+00 0COLUMN 4 ROWS 4 THRU 4 -------------------------------------------------- 1.00000E+00 0COLUMN 5 ROWS 5 THRU 5 -------------------------------------------------- 1.00000E+00 0COLUMN 6 ROWS 6 THRU 6 -------------------------------------------------- 1.00000E+00 0COLUMN 7 ROWS 1 THRU 6 -------------------------------------------------- 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 -1.00000E+00 0COLUMN 8 ROWS 2 THRU 4 -------------------------------------------------- 1.00000E+00 0.00000E+00 0.00000E+00 0COLUMN 9 ROWS 3 THRU 5 -------------------------------------------------- 1.00000E+00 1.00000E+00 0.00000E+00 0COLUMN 10 ROWS 4 THRU 4 -------------------------------------------------- 1.00000E+00 0COLUMN 11 ROWS 5 THRU 5 -------------------------------------------------- 1.00000E+00 0COLUMN 12 ROWS 6 THRU 6 -------------------------------------------------- 1.00000E+00 0COLUMN 13 ROWS 1 THRU 6 -------------------------------------------------- 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 -1.00000E+00 0COLUMN 14 ROWS 2 THRU 6 -------------------------------------------------- 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 0COLUMN 15 ROWS 3 THRU 5 -------------------------------------------------- 1 TESTING GINOFILE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-31-1A 0 TO CAPTURE SCRATCH 3 OF GPWG MODULE 0 MATRIX XXX CONTINUED 1.00000E+00 1.00000E+00 -1.00000E+00 0COLUMN 16 ROWS 4 THRU 4 -------------------------------------------------- 1.00000E+00 0COLUMN 17 ROWS 5 THRU 5 -------------------------------------------------- 1.00000E+00 0COLUMN 18 ROWS 6 THRU 6 -------------------------------------------------- 1.00000E+00 0COLUMN 19 ROWS 1 THRU 1 -------------------------------------------------- 1.00000E+00 0COLUMN 20 ROWS 2 THRU 6 -------------------------------------------------- 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 0COLUMN 21 ROWS 3 THRU 5 -------------------------------------------------- 1.00000E+00 0.00000E+00 -1.00000E+00 0COLUMN 22 ROWS 4 THRU 4 -------------------------------------------------- 1.00000E+00 0COLUMN 23 ROWS 5 THRU 5 -------------------------------------------------- 1.00000E+00 0COLUMN 24 ROWS 6 THRU 6 -------------------------------------------------- 1.00000E+00 0COLUMN 25 ROWS 1 THRU 1 -------------------------------------------------- 1.00000E+00 0COLUMN 26 ROWS 2 THRU 6 -------------------------------------------------- 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 2.00000E+00 0COLUMN 27 ROWS 3 THRU 5 -------------------------------------------------- 1.00000E+00 0.00000E+00 -2.00000E+00 0COLUMN 28 ROWS 4 THRU 4 -------------------------------------------------- 1.00000E+00 0COLUMN 29 ROWS 5 THRU 5 -------------------------------------------------- 1 TESTING GINOFILE MODULE / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-31-1A 0 TO CAPTURE SCRATCH 3 OF GPWG MODULE 0 MATRIX XXX CONTINUED 1.00000E+00 0COLUMN 30 ROWS 6 THRU 6 -------------------------------------------------- 1.00000E+00 0COLUMN 31 ROWS 1 THRU 6 -------------------------------------------------- 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 -1.00000E+00 0COLUMN 32 ROWS 2 THRU 6 -------------------------------------------------- 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 2.00000E+00 0COLUMN 33 ROWS 3 THRU 5 -------------------------------------------------- 1.00000E+00 1.00000E+00 -2.00000E+00 0COLUMN 34 ROWS 4 THRU 4 -------------------------------------------------- 1.00000E+00 0COLUMN 35 ROWS 5 THRU 5 -------------------------------------------------- 1.00000E+00 0COLUMN 36 ROWS 6 THRU 6 -------------------------------------------------- 1.00000E+00 0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD = 3 0THE DENSITY OF THIS MATRIX IS 28.24 PERCENT. * * * END OF JOB * * * 1 JOB TITLE = TESTING GINOFILE MODULE DATE: 5/17/95 END TIME: 16:41:21 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/t01321a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01321A,NASTRAN SOL 1,0 DIAG 40 APP DISP TIME 10 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-32-1A 0 MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-32-1A 3 LABEL = MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] 4 $ 5 $ MODEL: A QUARTER MODEL OF A SIMPLY SUPPORTED FLAT PLATE 6 $ OF A SYMMETRIC CROSS-PLY CONFIGURATION [0/90/0]. 7 $ UNDER A UNIFORM PRESSURE LOADING. 8 $ 9 $ * * COMPARISON OF T3 DEFLECTION AT GRID 25 * * 10 $ 11 $ COSMIC/NASTRAN MSC/NASTRAN 12 $ CTRIA3 CQUAD4 CTRIA3 THEORETICAL 13 $ -------------------------------------------------------- 14 $ -1.685E-3* -1.855E-3 -1.622E-3 -1.836E-3 15 $ * PLOAD CARDS WERE USED, NOT PLOAD4 16 $ 17 $ 18 $ REFERENCE: JONES,R.M. , MECHANICS OF COMPOSITE MATERIALS. 19 $ M GRAW-HILL BOOK COMPANY. (PAGE 248-250) 20 $ 21 $ 22 SET 1 = 2,7,12,17 23 DISP = ALL 24 OLOAD = ALL 25 FORCE = 1 26 SPC = 1 27 LOAD = 1 28 STRESS(LAYER) = 1 29 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 69, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-32-1A 0 MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CTRIA3 1 1 1 6 2 2- CTRIA3 2 1 2 6 7 45.0 3- CTRIA3 3 1 6 11 7 4- CTRIA3 4 1 7 11 12 45.0 5- CTRIA3 5 1 11 16 12 6- CTRIA3 6 1 12 16 17 45.0 7- CTRIA3 7 1 16 21 17 8- CTRIA3 8 1 17 21 22 45.0 9- CTRIA3 9 1 2 7 3 10- CTRIA3 10 1 3 7 8 45.0 11- CTRIA3 11 1 7 12 8 12- CTRIA3 12 1 8 12 13 45.0 13- CTRIA3 13 1 12 17 13 14- CTRIA3 14 1 13 17 18 45.0 15- CTRIA3 15 1 17 22 18 16- CTRIA3 16 1 18 22 23 45.0 17- CTRIA3 17 1 3 8 4 18- CTRIA3 18 1 4 8 9 45.0 19- CTRIA3 19 1 8 13 9 20- CTRIA3 20 1 9 13 14 45.0 21- CTRIA3 21 1 13 18 14 22- CTRIA3 22 1 14 18 19 45.0 23- CTRIA3 23 1 18 23 19 24- CTRIA3 24 1 19 23 24 45.0 25- CTRIA3 25 1 4 9 5 26- CTRIA3 26 1 5 9 10 45.0 27- CTRIA3 27 1 9 14 10 28- CTRIA3 28 1 10 14 15 45.0 29- CTRIA3 29 1 14 19 15 30- CTRIA3 30 1 15 19 20 45.0 31- CTRIA3 31 1 19 24 20 32- CTRIA3 32 1 20 24 25 45.0 33- GRID 1 0.000 0.000 0.000 34- GRID 2 0.000 0.250 0.000 35- GRID 3 0.000 0.500 0.000 36- GRID 4 0.000 0.750 0.000 37- GRID 5 0.000 1.000 0.000 38- GRID 6 0.250 0.000 0.000 39- GRID 7 0.250 0.250 0.000 40- GRID 8 0.250 0.500 0.000 41- GRID 9 0.250 0.750 0.000 42- GRID 10 0.250 1.000 0.000 43- GRID 11 0.500 0.000 0.000 44- GRID 12 0.500 0.250 0.000 45- GRID 13 0.500 0.500 0.000 46- GRID 14 0.500 0.750 0.000 47- GRID 15 0.500 1.000 0.000 1 CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-32-1A MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 16 0.750 0.000 0.000 49- GRID 17 0.750 0.250 0.000 50- GRID 18 0.750 0.500 0.000 51- GRID 19 0.750 0.750 0.000 52- GRID 20 0.750 1.000 0.000 53- GRID 21 1.000 0.000 0.000 54- GRID 22 1.000 0.250 0.000 55- GRID 23 1.000 0.500 0.000 56- GRID 24 1.000 0.750 0.000 57- GRID 25 1.000 1.000 0.000 58- MAT8 1 20.0+06 .50+6 .25 .250+6 59- PCOMP 1 -.001 +PC1 60- +PC1 1 .000666 0.0 YES 1 .000666 90.0 YES +PC2 61- +PC2 1 .000666 0.0 YES 62- PLOAD4 1 1 -1.0-04 THRU 32 63- SPC1 1 6 1 THRU 25 64- SPC1 1 15 22 23 24 65- SPC1 1 24 10 15 20 66- SPC1 1 1234 2 3 4 5 67- SPC1 1 1235 6 11 16 21 68- SPC1 1 1245 25 69- SPC1 1 12345 1 ENDDATA 1 CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-32-1A 0 MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 6 PROFILE 129 MAX WAVEFRONT 6 AVG WAVEFRONT 5.160 RMS WAVEFRONT 5.355 RMS BANDWIDTH 5.430 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 6 PROFILE 115 MAX WAVEFRONT 6 AVG WAVEFRONT 4.600 RMS WAVEFRONT 4.796 RMS BANDWIDTH 4.796 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 6 6 PROFILE (P) 129 115 MAXIMUM WAVEFRONT (C-MAX) 6 6 AVERAGE WAVEFRONT (C-AVG) 5.160 4.600 RMS WAVEFRONT (C-RMS) 5.355 4.796 RMS BANDWITCH (B-RMS) 5.430 4.796 NUMBER OF GRID POINTS (N) 25 NUMBER OF ELEMENTS (NON-RIGID) 32 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 6 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 56 MATRIX DENSITY, PERCENT 21.920 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 7 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-32-1A 0 MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 3 3 6 4 10 SEQGP 5 15 6 2 7 5 8 9 SEQGP 9 14 10 19 11 4 12 8 SEQGP 13 13 14 18 15 22 16 7 SEQGP 17 12 18 17 19 21 20 24 SEQGP 21 11 22 16 23 20 24 23 SEQGP 25 25 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** THE INPUT PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES HAVE BEEN REPLACED BY THE FOLLOWING PSHELL AND MAT2 ENTRIES. PSHELL 1 100000001 1.9980E-03 200000001 1.0000E+00 300000001 1.0000E+00 0.0000E+00 -9.9900E-04 9.9900E-04 400000001 0.0 0.0 0.0000E+00 MAT2 100000001 1.3521E+07 1.2520E+05 0.0000E+00 7.0110E+06 0.0000E+00 2.5000E+05 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 200000001 1.9308E+07 1.2520E+05 0.0000E+00 1.2241E+06 0.0000E+00 2.5000E+05 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 300000001 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 MAT2 400000001 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIA3 ELEMENTS (ELEMENT TYPE 83) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 5.0329729E-14 1 CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-32-1A 0 MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 1.174108E-03 0.0 3 G 0.0 0.0 0.0 0.0 2.058508E-03 0.0 4 G 0.0 0.0 0.0 0.0 2.531769E-03 0.0 5 G 0.0 0.0 0.0 0.0 2.712162E-03 0.0 6 G 0.0 0.0 0.0 -1.205491E-03 0.0 0.0 7 G 0.0 0.0 -2.845027E-04 -1.039763E-03 1.089696E-03 0.0 8 G 0.0 0.0 -4.949340E-04 -6.172197E-04 1.885620E-03 0.0 9 G 0.0 0.0 -6.108230E-04 -2.823236E-04 2.317570E-03 0.0 10 G 0.0 0.0 -6.506284E-04 0.0 2.433288E-03 0.0 11 G 0.0 0.0 0.0 -2.270027E-03 0.0 0.0 12 G 0.0 0.0 -5.257187E-04 -1.911599E-03 8.229751E-04 0.0 13 G 0.0 0.0 -9.090877E-04 -1.163206E-03 1.418107E-03 0.0 14 G 0.0 0.0 -1.119404E-03 -5.145338E-04 1.740601E-03 0.0 15 G 0.0 0.0 -1.187044E-03 0.0 1.808347E-03 0.0 16 G 0.0 0.0 0.0 -3.017362E-03 0.0 0.0 17 G 0.0 0.0 -6.887648E-04 -2.467892E-03 4.426815E-04 0.0 18 G 0.0 0.0 -1.183425E-03 -1.520135E-03 7.572556E-04 0.0 19 G 0.0 0.0 -1.453424E-03 -6.589617E-04 9.274684E-04 0.0 20 G 0.0 0.0 -1.536301E-03 0.0 9.534608E-04 0.0 21 G 0.0 0.0 0.0 -3.372213E-03 0.0 0.0 22 G 0.0 0.0 -7.507061E-04 -2.642528E-03 0.0 0.0 23 G 0.0 0.0 -1.282222E-03 -1.624640E-03 0.0 0.0 24 G 0.0 0.0 -1.570616E-03 -6.878410E-04 0.0 0.0 25 G 0.0 0.0 -1.656966E-03 0.0 0.0 0.0 1 CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-32-1A 0 MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -1.041667E-06 0.0 0.0 0.0 2 G 0.0 0.0 -3.125000E-06 0.0 0.0 0.0 3 G 0.0 0.0 -3.125000E-06 0.0 0.0 0.0 4 G 0.0 0.0 -3.125000E-06 0.0 0.0 0.0 5 G 0.0 0.0 -2.083333E-06 0.0 0.0 0.0 6 G 0.0 0.0 -3.125000E-06 0.0 0.0 0.0 7 G 0.0 0.0 -6.250000E-06 0.0 0.0 0.0 8 G 0.0 0.0 -6.250000E-06 0.0 0.0 0.0 9 G 0.0 0.0 -6.250000E-06 0.0 0.0 0.0 10 G 0.0 0.0 -3.125000E-06 0.0 0.0 0.0 11 G 0.0 0.0 -3.125000E-06 0.0 0.0 0.0 12 G 0.0 0.0 -6.250000E-06 0.0 0.0 0.0 13 G 0.0 0.0 -6.250000E-06 0.0 0.0 0.0 14 G 0.0 0.0 -6.250000E-06 0.0 0.0 0.0 15 G 0.0 0.0 -3.125000E-06 0.0 0.0 0.0 16 G 0.0 0.0 -3.125000E-06 0.0 0.0 0.0 17 G 0.0 0.0 -6.250000E-06 0.0 0.0 0.0 18 G 0.0 0.0 -6.250000E-06 0.0 0.0 0.0 19 G 0.0 0.0 -6.250000E-06 0.0 0.0 0.0 20 G 0.0 0.0 -3.125000E-06 0.0 0.0 0.0 21 G 0.0 0.0 -2.083333E-06 0.0 0.0 0.0 22 G 0.0 0.0 -3.125000E-06 0.0 0.0 0.0 23 G 0.0 0.0 -3.125000E-06 0.0 0.0 0.0 24 G 0.0 0.0 -3.125000E-06 0.0 0.0 0.0 25 G 0.0 0.0 -1.041667E-06 0.0 0.0 0.0 1 CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-32-1A 0 MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] F O R C E S I N L A Y E R E D C O M P O S I T E E L E M E N T S ( T R I A 3 ) ELEMENT - MEMBRANE FORCES - - BENDING MOMENTS - - TRANSVERSE SHEAR FORCES - ID FX FY FXY MX MY MXY VX VY 0 2 0.00000E+00 0.00000E+00 3.89329E-06 1.06252E-06 1.91043E-06 -1.59166E-06 -2.47440E-05 0.00000E+00 0 7 0.00000E+00 0.00000E+00 1.82895E-07 1.78829E-06 -5.30094E-07 5.00982E-05 -1.00028E-04 0.00000E+00 0 12 0.00000E+00 0.00000E+00 1.41782E-05 1.26613E-05 1.08284E-05 -1.90515E-05 2.08444E-06 0.00000E+00 0 17 0.00000E+00 0.00000E+00 8.87498E-06 5.75467E-08 -7.24808E-07 -6.16088E-05 1.08991E-04 0.00000E+00 1 CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-32-1A 0 MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] S T R E S S E S I N L A Y E R E D C O M P O S I T E E L E M E N T S ( T R I A 3 ) 0 ELEMENT PLY *STRESSES IN FIBER AND MATRIX DIRECTIONS* *DIRECT FIBER * *INTER-LAMINAR STRESSES* * SHEAR BOND * *MAXIMUM* ID ID * NORMAL-1 NORMAL-2 SHEAR-12 * *FAILURE INDEX* *SHEAR-1Z SHEAR-2Z* *FAILURE INDEX* * INDEX * 0 2 1 4.55979E+00 2.49249E-01 -1.41822E+00 0.000 -1.71311E-02 0.00000E+00 0.000 2 3.87700E-07 7.33655E-09 6.19754E-08 0.000 -1.71311E-02 0.00000E+00 0.000 3 -4.55979E+00 -2.49249E-01 1.41822E+00 0.000 -5.52496E-09 0.00000E+00 0.000 0.000 0 7 1 1.83261E-01 7.33039E-01 -5.31156E-01 0.000 -6.92532E-02 0.00000E+00 0.000 2 1.28134E-06 8.00835E-09 2.32112E-08 0.000 -6.92532E-02 0.00000E+00 0.000 3 -1.83261E-01 -7.33039E-01 5.31156E-01 0.000 -2.23348E-08 0.00000E+00 0.000 0.000 0 12 1 2.51977E+01 1.15435E+00 -7.59984E-01 0.000 1.44313E-03 0.00000E+00 0.000 2 1.75203E-06 3.81630E-08 3.32109E-08 0.000 1.44313E-03 0.00000E+00 0.000 3 -2.51977E+01 -1.15435E+00 7.59984E-01 0.000 4.65423E-10 0.00000E+00 0.000 0.000 0 17 1 9.22592E+00 5.76620E-02 -7.26260E-01 0.000 7.54586E-02 0.00000E+00 0.000 2 2.51991E-09 1.00792E-08 3.17372E-08 0.000 7.54586E-02 0.00000E+00 0.000 3 -9.22592E+00 -5.76620E-02 7.26260E-01 0.000 2.43361E-08 0.00000E+00 0.000 0.000 * * * END OF JOB * * * 1 JOB TITLE = CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD DATE: 5/17/95 END TIME: 16:41:51 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/t01331a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01331A,NASTRAN SOL 1,0 APP DISP TIME 30 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-33-1A 0 LAMINATED COMPOSITE SHELL 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = CTRIA3 3-NODE SHELL ROOF TEST 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-33-1A 3 LABEL = LAMINATED COMPOSITE SHELL 4 $ 5 $ 6 $ MODEL: LAMINATED COMPOSITE SHELL ROOF MODEL. 7 $ SYMMETRIC ANGLE PLY LAYUP 8 $ [ 45/-45/15/-15/-15/15/-45/45 ] 9 $ 10 $ 11 $ * * COMPARISION OF T1 DEFLECTIONS AT * * 12 $ * * GRID POINTS 34,35,36,43,44,45 * * 13 $ 14 $ COSMIC/NASTRAN MSC/NASTRAN 15 $ USING: CTRIA3 CQUAD4 CTRIA3 CQUAD4 16 $ ----------------------------------------------- 17 $ GRID 34 -0.9839 -1.1187 -0.9928 -1.0662 18 $ GRID 35 -1.2566 -1.4143 -1.2466 -1.3441 19 $ GRID 36 -1.5126 -1.6911 -1.5300 -1.6074 20 $ GRID 43 -1.2343 -1.3918 -1.2262 -1.3267 21 $ GRID 44 -1.5792 -1.7590 -1.5955 -1.6739 22 $ GRID 45 -1.9093 -2.1082 -1.9309 -2.0079 23 $ 24 $ 25 SPC = 1 26 LOAD = 1 27 DISP = ALL 28 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 358, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-33-1A 0 LAMINATED COMPOSITE SHELL 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2C 1 0.0 0.0 0.0 -1.0 0.0 0.0 +MOR1001 2- +MOR10010.0 0.0 1.0 3- CORD2R 2 0 0.0 0.0 0.0 0.0 0.0 1.0 +C2 4- +C2 1.0 0.0 0.0 5- CORD2R 3 0 0.0 0.0 0.0 0.0 0.0 1.0 +C3 6- +C3 1.0 0.0 0.0 7- CRIGD1 1 81 5001 8- CTRIA3 1 1 1 2 10 9- CTRIA3 2 1 10 2 11 45.000 10- CTRIA3 3 1 2 3 11 11- CTRIA3 4 1 11 3 12 45.000 12- CTRIA3 5 1 3 4 12 13- CTRIA3 6 1 12 4 13 45.000 14- CTRIA3 7 1 4 5 13 15- CTRIA3 8 1 13 5 14 45.000 16- CTRIA3 9 1 5 6 14 17- CTRIA3 10 1 14 6 15 45.000 18- CTRIA3 11 1 6 7 15 19- CTRIA3 12 1 15 7 16 45.000 20- CTRIA3 13 1 7 8 16 21- CTRIA3 14 1 16 8 17 45.000 22- CTRIA3 15 1 8 9 17 23- CTRIA3 16 1 17 9 18 45.000 24- CTRIA3 17 1 10 11 19 25- CTRIA3 18 1 19 11 20 45.000 26- CTRIA3 19 1 11 12 20 27- CTRIA3 20 1 20 12 21 45.000 28- CTRIA3 21 1 12 13 21 29- CTRIA3 22 1 21 13 22 45.000 30- CTRIA3 23 1 13 14 22 31- CTRIA3 24 1 22 14 23 45.000 32- CTRIA3 25 1 14 15 23 33- CTRIA3 26 1 23 15 24 45.000 34- CTRIA3 27 1 15 16 24 35- CTRIA3 28 1 24 16 25 45.000 36- CTRIA3 29 1 16 17 25 37- CTRIA3 30 1 25 17 26 45.000 38- CTRIA3 31 1 17 18 26 39- CTRIA3 32 1 26 18 27 45.000 40- CTRIA3 33 1 19 20 28 41- CTRIA3 34 1 28 20 29 45.000 42- CTRIA3 35 1 20 21 29 43- CTRIA3 36 1 29 21 30 45.000 44- CTRIA3 37 1 21 22 30 45- CTRIA3 38 1 30 22 31 45.000 46- CTRIA3 39 1 22 23 31 47- CTRIA3 40 1 31 23 32 45.000 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-33-1A LAMINATED COMPOSITE SHELL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CTRIA3 41 1 23 24 32 49- CTRIA3 42 1 32 24 33 45.000 50- CTRIA3 43 1 24 25 33 51- CTRIA3 44 1 33 25 34 45.000 52- CTRIA3 45 1 25 26 34 53- CTRIA3 46 1 34 26 35 45.000 54- CTRIA3 47 1 26 27 35 55- CTRIA3 48 1 35 27 36 45.000 56- CTRIA3 49 1 28 29 37 57- CTRIA3 50 1 37 29 38 45.000 58- CTRIA3 51 1 29 30 38 59- CTRIA3 52 1 38 30 39 45.000 60- CTRIA3 53 1 30 31 39 61- CTRIA3 54 1 39 31 40 45.000 62- CTRIA3 55 1 31 32 40 63- CTRIA3 56 1 40 32 41 45.000 64- CTRIA3 57 1 32 33 41 65- CTRIA3 58 1 41 33 42 45.000 66- CTRIA3 59 1 33 34 42 67- CTRIA3 60 1 42 34 43 45.000 68- CTRIA3 61 1 34 35 43 69- CTRIA3 62 1 43 35 44 45.000 70- CTRIA3 63 1 35 36 44 71- CTRIA3 64 1 44 36 45 45.000 72- CTRIA3 65 1 37 38 46 73- CTRIA3 66 1 46 38 47 45.000 74- CTRIA3 67 1 38 39 47 75- CTRIA3 68 1 47 39 48 45.000 76- CTRIA3 69 1 39 40 48 77- CTRIA3 70 1 48 40 49 45.000 78- CTRIA3 71 1 40 41 49 79- CTRIA3 72 1 49 41 50 45.000 80- CTRIA3 73 1 41 42 50 81- CTRIA3 74 1 50 42 51 45.000 82- CTRIA3 75 1 42 43 51 83- CTRIA3 76 1 51 43 52 45.000 84- CTRIA3 77 1 43 44 52 85- CTRIA3 78 1 52 44 53 45.000 86- CTRIA3 79 1 44 45 53 87- CTRIA3 80 1 53 45 54 45.000 88- CTRIA3 81 1 46 47 55 89- CTRIA3 82 1 55 47 56 45.000 90- CTRIA3 83 1 47 48 56 91- CTRIA3 84 1 56 48 57 45.000 92- CTRIA3 85 1 48 49 57 93- CTRIA3 86 1 57 49 58 45.000 94- CTRIA3 87 1 49 50 58 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-33-1A LAMINATED COMPOSITE SHELL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CTRIA3 88 1 58 50 59 45.000 96- CTRIA3 89 1 50 51 59 97- CTRIA3 90 1 59 51 60 45.000 98- CTRIA3 91 1 51 52 60 99- CTRIA3 92 1 60 52 61 45.000 100- CTRIA3 93 1 52 53 61 101- CTRIA3 94 1 61 53 62 45.000 102- CTRIA3 95 1 53 54 62 103- CTRIA3 96 1 62 54 63 45.000 104- CTRIA3 97 1 55 56 64 105- CTRIA3 98 1 64 56 65 45.000 106- CTRIA3 99 1 56 57 65 107- CTRIA3 100 1 65 57 66 45.000 108- CTRIA3 101 1 57 58 66 109- CTRIA3 102 1 66 58 67 45.000 110- CTRIA3 103 1 58 59 67 111- CTRIA3 104 1 67 59 68 45.000 112- CTRIA3 105 1 59 60 68 113- CTRIA3 106 1 68 60 69 45.000 114- CTRIA3 107 1 60 61 69 115- CTRIA3 108 1 69 61 70 45.000 116- CTRIA3 109 1 61 62 70 117- CTRIA3 110 1 70 62 71 45.000 118- CTRIA3 111 1 62 63 71 119- CTRIA3 112 1 71 63 72 45.000 120- CTRIA3 113 1 64 65 73 121- CTRIA3 114 1 73 65 74 45.000 122- CTRIA3 115 1 65 66 74 123- CTRIA3 116 1 74 66 75 45.000 124- CTRIA3 117 1 66 67 75 125- CTRIA3 118 1 75 67 76 45.000 126- CTRIA3 119 1 67 68 76 127- CTRIA3 120 1 76 68 77 45.000 128- CTRIA3 121 1 68 69 77 129- CTRIA3 122 1 77 69 78 45.000 130- CTRIA3 123 1 69 70 78 131- CTRIA3 124 1 78 70 79 45.000 132- CTRIA3 125 1 70 71 79 133- CTRIA3 126 1 79 71 80 45.000 134- CTRIA3 127 1 71 72 80 135- CTRIA3 128 1 80 72 81 45.000 136- GRID 1 1 25.000 0.000 0.000 1 137- GRID 2 1 25.000 5.000 0.000 1 138- GRID 3 1 25.000 10.000 0.000 1 139- GRID 4 1 25.000 15.000 0.000 1 140- GRID 5 1 25.000 20.000 0.000 1 141- GRID 6 1 25.000 25.000 0.000 1 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-33-1A LAMINATED COMPOSITE SHELL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- GRID 7 1 25.000 30.000 0.000 1 143- GRID 8 1 25.000 35.000 0.000 1 144- GRID 9 1 25.000 40.000 0.000 1 145- GRID 10 1 25.000 0.000 3.125 1 146- GRID 11 1 25.000 5.000 3.125 1 147- GRID 12 1 25.000 10.000 3.125 1 148- GRID 13 1 25.000 15.000 3.125 1 149- GRID 14 1 25.000 20.000 3.125 1 150- GRID 15 1 25.000 25.000 3.125 1 151- GRID 16 1 25.000 30.000 3.125 1 152- GRID 17 1 25.000 35.000 3.125 1 153- GRID 18 1 25.000 40.000 3.125 1 154- GRID 19 1 25.000 0.000 6.250 1 155- GRID 20 1 25.000 5.000 6.250 1 156- GRID 21 1 25.000 10.000 6.250 1 157- GRID 22 1 25.000 15.000 6.250 1 158- GRID 23 1 25.000 20.000 6.250 1 159- GRID 24 1 25.000 25.000 6.250 1 160- GRID 25 1 25.000 30.000 6.250 1 161- GRID 26 1 25.000 35.000 6.250 1 162- GRID 27 1 25.000 40.000 6.250 1 163- GRID 28 1 25.000 0.000 9.375 1 164- GRID 29 1 25.000 5.000 9.375 1 165- GRID 30 1 25.000 10.000 9.375 1 166- GRID 31 1 25.000 15.000 9.375 1 167- GRID 32 1 25.000 20.000 9.375 1 168- GRID 33 1 25.000 25.000 9.375 1 169- GRID 34 1 25.000 30.000 9.375 1 170- GRID 35 1 25.000 35.000 9.375 1 171- GRID 36 1 25.000 40.000 9.375 1 172- GRID 37 1 25.000 0.000 12.500 1 173- GRID 38 1 25.000 5.000 12.500 1 174- GRID 39 1 25.000 10.000 12.500 1 175- GRID 40 1 25.000 15.000 12.500 1 176- GRID 41 1 25.000 20.000 12.500 1 177- GRID 42 1 25.000 25.000 12.500 1 178- GRID 43 1 25.000 30.000 12.500 1 179- GRID 44 1 25.000 35.000 12.500 1 180- GRID 45 1 25.000 40.000 12.500 1 181- GRID 46 1 25.000 0.000 15.625 1 182- GRID 47 1 25.000 5.000 15.625 1 183- GRID 48 1 25.000 10.000 15.625 1 184- GRID 49 1 25.000 15.000 15.625 1 185- GRID 50 1 25.000 20.000 15.625 1 186- GRID 51 1 25.000 25.000 15.625 1 187- GRID 52 1 25.000 30.000 15.625 1 188- GRID 53 1 25.000 35.000 15.625 1 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-33-1A LAMINATED COMPOSITE SHELL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- GRID 54 1 25.000 40.000 15.625 1 190- GRID 55 1 25.000 0.000 18.750 1 191- GRID 56 1 25.000 5.000 18.750 1 192- GRID 57 1 25.000 10.000 18.750 1 193- GRID 58 1 25.000 15.000 18.750 1 194- GRID 59 1 25.000 20.000 18.750 1 195- GRID 60 1 25.000 25.000 18.750 1 196- GRID 61 1 25.000 30.000 18.750 1 197- GRID 62 1 25.000 35.000 18.750 1 198- GRID 63 1 25.000 40.000 18.750 1 199- GRID 64 1 25.000 0.000 21.875 1 200- GRID 65 1 25.000 5.000 21.875 1 201- GRID 66 1 25.000 10.000 21.875 1 202- GRID 67 1 25.000 15.000 21.875 1 203- GRID 68 1 25.000 20.000 21.875 1 204- GRID 69 1 25.000 25.000 21.875 1 205- GRID 70 1 25.000 30.000 21.875 1 206- GRID 71 1 25.000 35.000 21.875 1 207- GRID 72 1 25.000 40.000 21.875 1 208- GRID 73 1 25.000 0.000 25.000 1 209- GRID 74 1 25.000 5.000 25.000 1 210- GRID 75 1 25.000 10.000 25.000 1 211- GRID 76 1 25.000 15.000 25.000 1 212- GRID 77 1 25.000 20.000 25.000 1 213- GRID 78 1 25.000 25.000 25.000 1 214- GRID 79 1 25.000 30.000 25.000 1 215- GRID 80 1 25.000 35.000 25.000 1 216- GRID 81 1 25.000 40.000 25.000 1 217- GRID 5001 1 25.0 40.0 25.0 3 218- MAT8 1 20.0 E+70.5 E+070.25 0.25 E+70.25 E+70.25 E+7 219- PARAM AUTOSPC 1 220- PCOMP 1 +PC1 221- +PC1 1 .03125 45.0 YES -45.0 YES +PC2 222- +PC2 1 .03125 15.0 YES -15.0 YES +PC3 223- +PC3 1 .03125 -15.0 YES 15.0 YES +PC4 224- +PC4 1 .03125 -45.0 YES 45.0 YES 225- PLOAD 1 -0.9E+0224 25 33 226- PLOAD 1 -0.9E+0220 12 21 227- PLOAD 1 -0.9E+0257 49 58 228- PLOAD 1 -0.9E+0212 13 21 229- PLOAD 1 -0.9E+0249 50 58 230- PLOAD 1 -0.9E+0221 13 22 231- PLOAD 1 -0.9E+021 2 10 232- PLOAD 1 -0.9E+0213 14 22 233- PLOAD 1 -0.9E+0210 2 11 234- PLOAD 1 -0.9E+0222 14 23 235- PLOAD 1 -0.9E+022 3 11 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-33-1A LAMINATED COMPOSITE SHELL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- PLOAD 1 -0.9E+0214 15 23 237- PLOAD 1 -0.9E+0211 3 12 238- PLOAD 1 -0.9E+0223 15 24 239- PLOAD 1 -0.9E+023 4 12 240- PLOAD 1 -0.9E+0215 16 24 241- PLOAD 1 -0.9E+0212 4 13 242- PLOAD 1 -0.9E+0224 16 25 243- PLOAD 1 -0.9E+024 5 13 244- PLOAD 1 -0.9E+0216 17 25 245- PLOAD 1 -0.9E+0213 5 14 246- PLOAD 1 -0.9E+0225 17 26 247- PLOAD 1 -0.9E+025 6 14 248- PLOAD 1 -0.9E+0217 18 26 249- PLOAD 1 -0.9E+0214 6 15 250- PLOAD 1 -0.9E+0226 18 27 251- PLOAD 1 -0.9E+026 7 15 252- PLOAD 1 -0.9E+0219 20 28 253- PLOAD 1 -0.9E+0215 7 16 254- PLOAD 1 -0.9E+0228 20 29 255- PLOAD 1 -0.9E+027 8 16 256- PLOAD 1 -0.9E+0220 21 29 257- PLOAD 1 -0.9E+0216 8 17 258- PLOAD 1 -0.9E+0229 21 30 259- PLOAD 1 -0.9E+028 9 17 260- PLOAD 1 -0.9E+0221 22 30 261- PLOAD 1 -0.9E+0217 9 18 262- PLOAD 1 -0.9E+0230 22 31 263- PLOAD 1 -0.9E+0210 11 19 264- PLOAD 1 -0.9E+0222 23 31 265- PLOAD 1 -0.9E+0219 11 20 266- PLOAD 1 -0.9E+0231 23 32 267- PLOAD 1 -0.9E+0211 12 20 268- PLOAD 1 -0.9E+0223 24 32 269- PLOAD 1 -0.9E+0248 49 57 270- PLOAD 1 -0.9E+0232 24 33 271- PLOAD 1 -0.9E+0244 36 45 272- PLOAD 1 -0.9E+0269 61 70 273- PLOAD 1 -0.9E+0237 38 46 274- PLOAD 1 -0.9E+0233 25 34 275- PLOAD 1 -0.9E+0258 50 59 276- PLOAD 1 -0.9E+0225 26 34 277- PLOAD 1 -0.9E+0250 51 59 278- PLOAD 1 -0.9E+0234 26 35 279- PLOAD 1 -0.9E+0259 51 60 280- PLOAD 1 -0.9E+0226 27 35 281- PLOAD 1 -0.9E+0251 52 60 282- PLOAD 1 -0.9E+0235 27 36 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T01-33-1A LAMINATED COMPOSITE SHELL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- PLOAD 1 -0.9E+0260 52 61 284- PLOAD 1 -0.9E+0228 29 37 285- PLOAD 1 -0.9E+0252 53 61 286- PLOAD 1 -0.9E+0237 29 38 287- PLOAD 1 -0.9E+0261 53 62 288- PLOAD 1 -0.9E+0229 30 38 289- PLOAD 1 -0.9E+0253 54 62 290- PLOAD 1 -0.9E+0238 30 39 291- PLOAD 1 -0.9E+0262 54 63 292- PLOAD 1 -0.9E+0230 31 39 293- PLOAD 1 -0.9E+0255 56 64 294- PLOAD 1 -0.9E+0239 31 40 295- PLOAD 1 -0.9E+0264 56 65 296- PLOAD 1 -0.9E+0231 32 40 297- PLOAD 1 -0.9E+0256 57 65 298- PLOAD 1 -0.9E+0240 32 41 299- PLOAD 1 -0.9E+0265 57 66 300- PLOAD 1 -0.9E+0232 33 41 301- PLOAD 1 -0.9E+0257 58 66 302- PLOAD 1 -0.9E+0241 33 42 303- PLOAD 1 -0.9E+0266 58 67 304- PLOAD 1 -0.9E+0233 34 42 305- PLOAD 1 -0.9E+0258 59 67 306- PLOAD 1 -0.9E+0242 34 43 307- PLOAD 1 -0.9E+0267 59 68 308- PLOAD 1 -0.9E+0234 35 43 309- PLOAD 1 -0.9E+0259 60 68 310- PLOAD 1 -0.9E+0243 35 44 311- PLOAD 1 -0.9E+0268 60 69 312- PLOAD 1 -0.9E+0235 36 44 313- PLOAD 1 -0.9E+0260 61 69 314- PLOAD 1 -0.9E+0275 67 76 315- PLOAD 1 -0.9E+0242 43 51 316- PLOAD 1 -0.9E+0267 68 76 317- PLOAD 1 -0.9E+0261 62 70 318- PLOAD 1 -0.9E+0246 38 47 319- PLOAD 1 -0.9E+0270 62 71 320- PLOAD 1 -0.9E+0238 39 47 321- PLOAD 1 -0.9E+0262 63 71 322- PLOAD 1 -0.9E+0247 39 48 323- PLOAD 1 -0.9E+0271 63 72 324- PLOAD 1 -0.9E+0239 40 48 325- PLOAD 1 -0.9E+0264 65 73 326- PLOAD 1 -0.9E+0248 40 49 327- PLOAD 1 -0.9E+0273 65 74 328- PLOAD 1 -0.9E+0240 41 49 329- PLOAD 1 -0.9E+0265 66 74 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T01-33-1A LAMINATED COMPOSITE SHELL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- PLOAD 1 -0.9E+0249 41 50 331- PLOAD 1 -0.9E+0274 66 75 332- PLOAD 1 -0.9E+0241 42 50 333- PLOAD 1 -0.9E+0266 67 75 334- PLOAD 1 -0.9E+0250 42 51 335- PLOAD 1 -0.9E+0269 70 78 336- PLOAD 1 -0.9E+0253 45 54 337- PLOAD 1 -0.9E+0278 70 79 338- PLOAD 1 -0.9E+0251 43 52 339- PLOAD 1 -0.9E+0276 68 77 340- PLOAD 1 -0.9E+0243 44 52 341- PLOAD 1 -0.9E+0268 69 77 342- PLOAD 1 -0.9E+0252 44 53 343- PLOAD 1 -0.9E+0277 69 78 344- PLOAD 1 -0.9E+0244 45 53 345- PLOAD 1 -0.9E+0280 72 81 346- PLOAD 1 -0.9E+0279 71 80 347- PLOAD 1 -0.9E+0247 48 56 348- PLOAD 1 -0.9E+0246 47 55 349- PLOAD 1 -0.9E+0270 71 79 350- PLOAD 1 -0.9E+0255 47 56 351- PLOAD 1 -0.9E+0271 72 80 352- PLOAD 1 -0.9E+0256 48 57 353- SPC1 1 12 1 2 3 4 5 6 +SP10001 354- +SP100017 8 9 355- SPC1 1 26 1 10 19 28 37 46 +SP10005 356- +SP1000555 64 73 357- SPC1 1 35 73 74 75 76 77 78 +SP10003 358- +SP1000379 80 81 ENDDATA 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T01-33-1A 0 LAMINATED COMPOSITE SHELL 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 10 PROFILE 737 MAX WAVEFRONT 10 AVG WAVEFRONT 9.099 RMS WAVEFRONT 9.339 RMS BANDWIDTH 9.450 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 10 PROFILE 597 MAX WAVEFRONT 10 AVG WAVEFRONT 7.370 RMS WAVEFRONT 7.696 RMS BANDWIDTH 7.696 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 10 10 PROFILE (P) 737 597 MAXIMUM WAVEFRONT (C-MAX) 10 10 AVERAGE WAVEFRONT (C-AVG) 9.099 7.370 RMS WAVEFRONT (C-RMS) 9.339 7.696 RMS BANDWITCH (B-RMS) 9.450 7.696 NUMBER OF GRID POINTS (N) 82 NUMBER OF ELEMENTS (NON-RIGID) 128 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 6 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 208 MATRIX DENSITY, PERCENT 7.575 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF NON-ACTIVE GRID POINTS 1 NO. OF SEQGP CARDS GENERATED 21 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T01-33-1A 0 LAMINATED COMPOSITE SHELL S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 2 3 4 4 7 SEQGP 5 11 6 16 7 22 8 29 SEQGP 9 37 10 3 11 5 12 8 SEQGP 13 12 14 17 15 23 16 30 SEQGP 17 38 18 46 19 6 20 9 SEQGP 21 13 22 18 23 24 24 31 SEQGP 25 39 26 47 27 54 28 10 SEQGP 29 14 30 19 31 25 32 32 SEQGP 33 40 34 48 35 55 36 61 SEQGP 37 15 38 20 39 26 40 33 SEQGP 41 41 42 49 43 56 44 62 SEQGP 45 67 46 21 47 27 48 34 SEQGP 49 42 50 50 51 57 52 63 SEQGP 53 68 54 72 55 28 56 35 SEQGP 57 43 58 51 59 58 60 64 SEQGP 61 69 62 73 63 76 64 36 SEQGP 65 44 66 52 67 59 68 65 SEQGP 69 70 70 74 71 77 72 79 SEQGP 73 45 74 53 75 60 76 66 SEQGP 77 71 78 75 79 78 80 80 SEQGP 81 81 5001 82 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT 5001 OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIA3 ELEMENTS (ELEMENT TYPE 83) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, RIGID ELEMENTS ARE BEING PROCESSED IN GP4 0*** USER INFORMATION MESSAGE 2435, AT USER'S REQUEST, ALL POTENTIAL SINGULARITIES HAVE BEEN REMOVED BY THE APPLICATION OF SINGLE POINT CONSTRAINTS. REFER TO PRINTOUT OF AUTOMATICALLY GENERATED SPC1 CARDS FOR DETAILS. 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T01-33-1A 0 LAMINATED COMPOSITE SHELL A U T O M A T I C A L L Y G E N E R A T E D S P C 1 C A R D S CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- SPC1 1 4 1 9 10 18 19 27 2- SPC1 1 4 28 36 37 45 46 54 3- SPC1 1 4 55 63 64 72 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -4.7590930E-13 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T01-33-1A 0 LAMINATED COMPOSITE SHELL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 1.476632E-02 0.0 1.361577E-02 0.0 2 G 0.0 0.0 1.612430E-02 3.240866E-02 7.457401E-03 1.813536E-03 3 G 0.0 0.0 1.942165E-02 1.313583E-01 -7.714266E-03 -5.444879E-04 4 G 0.0 0.0 2.215707E-02 1.976693E-01 -2.931338E-02 -1.561425E-03 5 G 0.0 0.0 2.054041E-02 2.512435E-01 -5.650781E-02 -2.533445E-03 6 G 0.0 0.0 9.672613E-03 2.884153E-01 -8.757029E-02 -3.402307E-03 7 G 0.0 0.0 -1.624593E-02 3.007700E-01 -1.200356E-01 -4.131102E-03 8 G 0.0 0.0 -6.365567E-02 2.776172E-01 -1.504282E-01 -4.490628E-03 9 G 0.0 0.0 -1.393812E-01 0.0 -1.643894E-01 -5.448328E-03 10 G 4.368079E-02 0.0 1.470382E-02 0.0 1.151774E-02 0.0 11 G 2.826460E-02 -3.264060E-03 1.605108E-02 8.395085E-02 8.155212E-03 1.493468E-02 12 G -1.482767E-02 -3.972459E-03 1.922503E-02 1.250123E-01 -5.081127E-03 2.591116E-02 13 G -7.955507E-02 4.956496E-05 2.184063E-02 1.604297E-01 -2.528225E-02 3.501230E-02 14 G -1.617897E-01 1.051909E-02 2.020436E-02 1.832168E-01 -5.096499E-02 4.241037E-02 15 G -2.565453E-01 2.873135E-02 9.543336E-03 1.904393E-01 -8.039025E-02 4.734479E-02 16 G -3.567530E-01 5.541636E-02 -1.573480E-02 1.797232E-01 -1.114484E-01 4.872810E-02 17 G -4.531212E-01 9.051100E-02 -6.169983E-02 1.563872E-01 -1.420324E-01 4.565817E-02 18 G -5.343322E-01 1.328572E-01 -1.344101E-01 0.0 -1.650818E-01 3.715053E-02 19 G 8.354100E-02 0.0 1.460463E-02 0.0 8.452275E-03 0.0 20 G 5.485845E-02 -6.135860E-03 1.576311E-02 8.662643E-02 6.857768E-03 2.687921E-02 21 G -2.710051E-02 -7.396240E-03 1.850582E-02 1.249557E-01 -4.624480E-03 4.874576E-02 22 G -1.524425E-01 4.739210E-04 2.065561E-02 1.543775E-01 -2.283171E-02 6.676696E-02 23 G -3.120428E-01 2.086394E-02 1.880291E-02 1.705106E-01 -4.615084E-02 8.086339E-02 24 G -4.952009E-01 5.623502E-02 8.573799E-03 1.721471E-01 -7.276708E-02 9.005840E-02 25 G -6.886350E-01 1.078973E-01 -1.504324E-02 1.632245E-01 -1.009693E-01 9.333318E-02 26 G -8.776217E-01 1.757793E-01 -5.733755E-02 1.534654E-01 -1.296031E-01 9.074441E-02 27 G -1.049165E+00 2.584161E-01 -1.236248E-01 0.0 -1.518993E-01 8.408474E-02 28 G 1.165276E-01 0.0 1.401822E-02 0.0 5.616561E-03 0.0 29 G 7.638280E-02 -8.429412E-03 1.489280E-02 9.887142E-02 5.185642E-03 3.709026E-02 30 G -3.927647E-02 -9.976242E-03 1.701572E-02 1.280838E-01 -4.640824E-03 6.886442E-02 31 G -2.181161E-01 1.456804E-03 1.851162E-02 1.488879E-01 -2.028534E-02 9.518006E-02 32 G -4.463317E-01 3.076087E-02 1.643791E-02 1.580755E-01 -4.040500E-02 1.153411E-01 33 G -7.077197E-01 8.141617E-02 7.045454E-03 1.553744E-01 -6.342491E-02 1.283439E-01 34 G -9.838973E-01 1.552549E-01 -1.391041E-02 1.444551E-01 -8.793311E-02 1.336525E-01 35 G -1.256662E+00 2.523483E-01 -5.089923E-02 1.320272E-01 -1.130087E-01 1.322963E-01 36 G -1.512646E+00 3.712141E-01 -1.084606E-01 0.0 -1.328700E-01 1.278532E-01 37 G 1.416514E-01 0.0 1.274414E-02 0.0 2.554011E-03 0.0 38 G 9.209165E-02 -1.009583E-02 1.328759E-02 1.049389E-01 3.458405E-03 4.545155E-02 39 G -5.137526E-02 -1.167173E-02 1.472694E-02 1.227285E-01 -4.346095E-03 8.551659E-02 40 G -2.747473E-01 2.899270E-03 1.556273E-02 1.362093E-01 -1.685280E-02 1.189154E-01 41 G -5.604916E-01 3.978036E-02 1.343083E-02 1.394321E-01 -3.318005E-02 1.443206E-01 42 G -8.878148E-01 1.033430E-01 5.308664E-03 1.329748E-01 -5.205030E-02 1.606955E-01 43 G -1.234267E+00 1.959281E-01 -1.222982E-02 1.214676E-01 -7.233547E-02 1.680550E-01 44 G -1.579237E+00 3.178310E-01 -4.279045E-02 1.141291E-01 -9.345141E-02 1.683716E-01 45 G -1.909306E+00 4.676761E-01 -9.003444E-02 0.0 -1.103693E-01 1.663368E-01 46 G 1.585378E-01 0.0 1.070311E-02 0.0 -3.328169E-04 0.0 47 G 1.020917E-01 -1.115414E-02 1.092876E-02 9.868991E-02 1.837582E-03 5.151105E-02 1 CTRIA3 3-NODE SHELL ROOF TEST / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T01-33-1A 0 LAMINATED COMPOSITE SHELL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 48 G -6.221554E-02 -1.256684E-02 1.171812E-02 1.181452E-01 -3.483321E-03 9.817949E-02 49 G -3.200939E-01 4.571117E-03 1.201176E-02 1.233944E-01 -1.286091E-02 1.375043E-01 50 G -6.512788E-01 4.746797E-02 1.006676E-02 1.199054E-01 -2.532743E-02 1.673537E-01 51 G -1.031257E+00 1.212685E-01 3.596507E-03 1.095177E-01 -3.989143E-02 1.866436E-01 52 G -1.434353E+00 2.287850E-01 -9.991133E-03 9.726882E-02 -5.572496E-02 1.959046E-01 53 G -1.838202E+00 3.705619E-01 -3.339333E-02 8.642069E-02 -7.228898E-02 1.979190E-01 54 G -2.229472E+00 5.453926E-01 -6.932449E-02 0.0 -8.547089E-02 1.981847E-01 55 G 1.688758E-01 0.0 7.928717E-03 0.0 -1.660477E-03 0.0 56 G 1.080009E-01 -1.169143E-02 7.812442E-03 1.191570E-01 1.410223E-03 5.540279E-02 57 G -7.047816E-02 -1.286582E-02 8.058028E-03 1.048704E-01 -2.586255E-03 1.070393E-01 58 G -3.529196E-01 6.135373E-03 8.046384E-03 1.046178E-01 -8.673639E-03 1.509623E-01 59 G -7.173160E-01 5.337093E-02 6.576134E-03 9.723432E-02 -1.716859E-02 1.842807E-01 60 G -1.136188E+00 1.346255E-01 2.061665E-03 8.429071E-02 -2.724381E-02 2.058199E-01 61 G -1.581390E+00 2.530920E-01 -7.243004E-03 7.151503E-02 -3.817934E-02 2.166686E-01 62 G -2.029629E+00 4.095342E-01 -2.309459E-02 7.429370E-02 -5.004311E-02 2.203675E-01 63 G -2.467970E+00 6.029455E-01 -4.722723E-02 0.0 -6.007985E-02 2.227727E-01 64 G 1.701814E-01 0.0 4.341663E-03 0.0 -6.951284E-03 0.0 65 G 1.092746E-01 -1.175825E-02 4.012782E-03 5.440501E-02 -1.511940E-03 5.643111E-02 66 G -7.531665E-02 -1.281391E-02 4.029745E-03 1.019095E-01 -9.911228E-04 1.113292E-01 67 G -3.725972E-01 7.206552E-03 3.976562E-03 9.881937E-02 -4.479321E-03 1.592970E-01 68 G -7.591181E-01 5.706110E-02 3.171894E-03 8.436855E-02 -1.003476E-02 1.954991E-01 69 G -1.204372E+00 1.429999E-01 7.929749E-04 6.339598E-02 -1.680592E-02 2.186134E-01 70 G -1.677765E+00 2.684474E-01 -4.026213E-03 4.313004E-02 -2.403194E-02 2.302631E-01 71 G -2.155000E+00 4.342829E-01 -1.209223E-02 1.261481E-02 -3.079128E-02 2.346718E-01 72 G -2.624267E+00 6.396778E-01 -2.407039E-02 0.0 -3.432401E-02 2.395364E-01 73 G 1.669937E-01 0.0 0.0 -6.855841E-02 0.0 0.0 74 G 1.072162E-01 -1.189289E-02 0.0 1.943815E-01 0.0 5.693102E-02 75 G -7.771769E-02 -1.293489E-02 0.0 1.544966E-01 0.0 1.154741E-01 76 G -3.814609E-01 7.503990E-03 0.0 1.241305E-01 0.0 1.650839E-01 77 G -7.779929E-01 5.849572E-02 0.0 8.962285E-02 0.0 2.022918E-01 78 G -1.235319E+00 1.464317E-01 0.0 5.829030E-02 0.0 2.257639E-01 79 G -1.721251E+00 2.747352E-01 0.0 4.354972E-02 0.0 2.374775E-01 80 G -2.211147E+00 4.441631E-01 0.0 9.365188E-02 0.0 2.441724E-01 81 G -2.697874E+00 6.538841E-01 0.0 -3.394067E-01 0.0 2.429941E-01 5001 G 0.0 -1.233256E+00 -2.487000E+00 -2.429941E-01 -2.181664E-01 -2.600006E-01 * * * END OF JOB * * * 1 JOB TITLE = CTRIA3 3-NODE SHELL ROOF TEST DATE: 5/17/95 END TIME: 16:42:30 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t01341a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T01341A,NASTRAN APP DISP SOL 1 TIME 30 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 TESTING ENFORCE DISPLACEMENT WITH SPCD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T01-34-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TESTING ENFORCE DISPLACEMENT WITH SPCD 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-34-1A 3 ECHO = BOTH 4 LOAD = 10 5 SPC = 1 6 SPCFORCE = ALL 7 DISP = ALL 8 STRESS = ALL 9 BEGIN BULK 1 TESTING ENFORCE DISPLACEMENT WITH SPCD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T01-34-1A 0 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ -FF- GRDSET,8)246 -FF- GRID,10,,0.0, 0.0, 0.0 -FF- =(9),*(-1),,*(10.),== -FF- SPC1,1,13,10 -FF- SPC1,1,3,1 THRU 9 -FF- CBAR,1,2,1,2, 0.0,1.0,0.0,1 -FF- =(8),*(1),=,*(1),/,== -FF- PBAR,2,6061,100.,100.,100.,100. -FF- ,-1.0,1.0,1.0,1.0,1.0,-1.0,-1.0,-1.0 -FF- MAT1,6061,1.+7,,0.3,0.1 -FF- SPCD,10,1,3,-1.00 -FF- SPCD,10,2,3,-0.82 -FF- SPCD,10,3,3,-0.74 -FF- SPCD,10,4,3,-0.58 -FF- SPCD,10,5,3,-0.40 -FF- SPCD,10,6,3,-0.29 -FF- SPCD,10,7,3,-0.16 -FF- SPCD,10,8,3,-0.07 -FF- SPCD,10,9,3,-0.01 -FF- FORCE,10,1,,110.0,0.0,0.0,-1.0 ENDDATA TOTAL COUNT= 20 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TESTING ENFORCE DISPLACEMENT WITH SPCD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T01-34-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CBAR 1 2 1 2 0.0 1.0 0.0 1 2- CBAR 2 2 2 3 0.0 1.0 0.0 1 3- CBAR 3 2 3 4 0.0 1.0 0.0 1 4- CBAR 4 2 4 5 0.0 1.0 0.0 1 5- CBAR 5 2 5 6 0.0 1.0 0.0 1 6- CBAR 6 2 6 7 0.0 1.0 0.0 1 7- CBAR 7 2 7 8 0.0 1.0 0.0 1 8- CBAR 8 2 8 9 0.0 1.0 0.0 1 9- CBAR 9 2 9 10 0.0 1.0 0.0 1 10- FORCE 10 1 110.0 0.0 0.0 -1.0 11- GRDSET 246 12- GRID 1 90. 0.0 0.0 13- GRID 2 80. 0.0 0.0 14- GRID 3 70. 0.0 0.0 15- GRID 4 60. 0.0 0.0 16- GRID 5 50. 0.0 0.0 17- GRID 6 40. 0.0 0.0 18- GRID 7 30. 0.0 0.0 19- GRID 8 20. 0.0 0.0 20- GRID 9 10. 0.0 0.0 21- GRID 10 0.0 0.0 0.0 22- MAT1 6061 1.+7 0.3 0.1 23- PBAR 2 6061 100. 100. 100. 100. +C0N0001 24- +C0N0001-1.0 1.0 1.0 1.0 1.0 -1.0 -1.0 -1.0 25- SPC1 1 3 1 THRU 9 26- SPC1 1 13 10 27- SPCD 10 1 3 -1.00 28- SPCD 10 2 3 -0.82 29- SPCD 10 3 3 -0.74 30- SPCD 10 4 3 -0.58 31- SPCD 10 5 3 -0.40 32- SPCD 10 6 3 -0.29 33- SPCD 10 7 3 -0.16 34- SPCD 10 8 3 -0.07 35- SPCD 10 9 3 -0.01 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 TESTING ENFORCE DISPLACEMENT WITH SPCD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T01-34-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -2.2697815E-18 1 TESTING ENFORCE DISPLACEMENT WITH SPCD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T01-34-1A 0 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -1.000000E+00 0.0 2.117524E-02 0.0 2 G 0.0 0.0 -8.200000E-01 0.0 1.164952E-02 0.0 3 G 0.0 0.0 -7.400000E-01 0.0 1.022666E-02 0.0 4 G 0.0 0.0 -5.800000E-01 0.0 1.944383E-02 0.0 5 G 0.0 0.0 -4.000000E-01 0.0 1.399803E-02 0.0 6 G 0.0 0.0 -2.900000E-01 0.0 1.156407E-02 0.0 7 G 0.0 0.0 -1.600000E-01 0.0 1.174571E-02 0.0 8 G 0.0 0.0 -7.000000E-02 0.0 7.453077E-03 0.0 9 G 0.0 0.0 -1.000000E-02 0.0 3.441978E-03 0.0 10 G 0.0 0.0 0.0 0.0 -2.209891E-04 0.0 1 TESTING ENFORCE DISPLACEMENT WITH SPCD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T01-34-1A 0 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 -1.904043E+05 0.0 0.0 0.0 2 G 0.0 0.0 5.430857E+05 0.0 0.0 0.0 3 G 0.0 0.0 -4.923422E+05 0.0 0.0 0.0 4 G 0.0 0.0 -1.371762E+04 0.0 0.0 0.0 5 G 0.0 0.0 3.672138E+05 0.0 0.0 0.0 6 G 0.0 0.0 -3.751385E+05 0.0 0.0 0.0 7 G 0.0 0.0 2.333406E+05 0.0 0.0 0.0 8 G 0.0 0.0 -1.382242E+05 0.0 0.0 0.0 9 G 0.0 0.0 1.395561E+05 0.0 0.0 0.0 10 G 0.0 0.0 -7.325934E+04 0.0 0.0 0.0 1 TESTING ENFORCE DISPLACEMENT WITH SPCD / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T01-34-1A 0 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 1 0.0 0.0 0.0 0.0 0.0 0.0 0.0 -1.905150E+04 -1.905150E+04 1.905150E+04 1.905150E+04 1.905150E+04 -1.905150E+04 0 2 -1.905140E+04 -1.905140E+04 1.905140E+04 1.905140E+04 0.0 1.905140E+04 -1.905140E+04 1.620580E+04 1.620580E+04 -1.620580E+04 -1.620580E+04 1.620580E+04 -1.620580E+04 0 3 1.620572E+04 1.620572E+04 -1.620572E+04 -1.620572E+04 0.0 1.620572E+04 -1.620572E+04 2.228620E+03 2.228620E+03 -2.228620E+03 -2.228620E+03 2.228620E+03 -2.228620E+03 0 4 2.228620E+03 2.228620E+03 -2.228620E+03 -2.228620E+03 0.0 2.228620E+03 -2.228620E+03 -1.312023E+04 -1.312023E+04 1.312023E+04 1.312023E+04 1.312023E+04 -1.312023E+04 0 5 -1.312022E+04 -1.312022E+04 1.312022E+04 1.312022E+04 0.0 1.312022E+04 -1.312022E+04 8.252305E+03 8.252305E+03 -8.252305E+03 -8.252305E+03 8.252305E+03 -8.252305E+03 0 6 8.252300E+03 8.252300E+03 -8.252300E+03 -8.252300E+03 0.0 8.252300E+03 -8.252300E+03 -7.889025E+03 -7.889025E+03 7.889025E+03 7.889025E+03 7.889025E+03 -7.889025E+03 0 7 -7.889010E+03 -7.889010E+03 7.889010E+03 7.889010E+03 0.0 7.889010E+03 -7.889010E+03 -6.962600E+02 -6.962600E+02 6.962600E+02 6.962600E+02 6.962600E+02 -6.962600E+02 0 8 -6.962637E+02 -6.962637E+02 6.962637E+02 6.962637E+02 0.0 6.962637E+02 -6.962637E+02 -7.325933E+03 -7.325933E+03 7.325933E+03 7.325933E+03 7.325933E+03 -7.325933E+03 0 9 -7.325934E+03 -7.325934E+03 7.325934E+03 7.325934E+03 0.0 7.325934E+03 -7.325934E+03 0.0 0.0 0.0 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = TESTING ENFORCE DISPLACEMENT WITH SPCD DATE: 5/17/95 END TIME: 16:42:58 TOTAL WALL CLOCK TIME 2 SEC. ================================================ FILE: demoout/t03091a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T03091A,NASTRAN SOL 3 TIME 20 APP DISP CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T03-09-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T03-09-1A 3 METHOD = 1 4 AXISYM = COSINE 5 SUBCASE 1 6 DISP = ALL 7 MODES = 5 8 SUBCASE 6 9 DISP = NONE 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 94, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T03-09-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AXIC 1 2- CTRAPAX 1 1 1 2 6 5 3- CTRAPAX 2 1 2 3 7 6 4- CTRAPAX 3 1 3 4 8 7 5- CTRAPAX 5 1 5 6 10 9 6- CTRAPAX 6 1 6 7 11 10 7- CTRAPAX 7 1 7 8 12 11 8- CTRAPAX 9 1 9 10 14 13 9- CTRAPAX 10 1 10 11 15 14 10- CTRAPAX 11 1 11 12 16 15 11- CTRAPAX 13 1 13 14 18 17 12- CTRAPAX 14 1 14 15 19 18 13- CTRAPAX 15 1 15 16 20 19 14- CTRAPAX 17 1 17 18 22 21 15- CTRAPAX 18 1 18 19 23 22 16- CTRAPAX 19 1 19 20 24 23 17- CTRAPAX 21 1 21 22 26 25 18- CTRAPAX 22 1 22 23 27 26 19- CTRAPAX 23 1 23 24 28 27 20- CTRAPAX 25 1 25 26 30 29 21- CTRAPAX 26 1 26 27 31 30 22- CTRAPAX 27 1 27 28 32 31 23- CTRAPAX 29 1 29 30 34 33 24- CTRAPAX 30 1 30 31 35 34 25- CTRAPAX 31 1 31 32 36 35 26- CTRAPAX 33 1 33 34 38 37 27- CTRAPAX 34 1 34 35 39 38 28- CTRAPAX 35 1 35 36 40 39 29- CTRAPAX 37 1 37 38 42 41 30- CTRAPAX 38 1 38 39 43 42 31- CTRAPAX 39 1 39 40 44 43 32- CTRAPAX 41 1 41 42 46 45 33- CTRAPAX 42 1 42 43 47 46 34- CTRAPAX 43 1 43 44 48 47 35- CTRAPAX 45 1 45 46 50 49 36- CTRAPAX 46 1 46 47 51 50 37- CTRAPAX 47 1 47 48 52 51 38- EIGR 1 INV 0. 5000. 10 10 1.-3 +E 39- +E MAX 40- MAT1 1 3.+7 .3 7.8-3 41- PARAM COUPMASS1 42- PTRAPAX 1 1 43- RINGAX 1 5.0000 2.0000 2456 44- RINGAX 2 5.4167 2.0000 2456 45- RINGAX 3 5.8333 2.0000 2456 46- RINGAX 4 6.2500 2.0000 2456 47- RINGAX 5 5.0000 2.2917 2456 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T03-09-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- RINGAX 6 5.4167 2.2917 2456 49- RINGAX 7 5.8333 2.2917 2456 50- RINGAX 8 6.2500 2.2917 2456 51- RINGAX 9 5.0000 2.5833 2456 52- RINGAX 10 5.4167 2.5833 2456 53- RINGAX 11 5.8333 2.5833 2456 54- RINGAX 12 6.2500 2.5833 2456 55- RINGAX 13 5.0000 2.8750 2456 56- RINGAX 14 5.4167 2.8750 2456 57- RINGAX 15 5.8333 2.8750 2456 58- RINGAX 16 6.2500 2.8750 2456 59- RINGAX 17 5.0000 3.1667 2456 60- RINGAX 18 5.4167 3.1667 2456 61- RINGAX 19 5.8333 3.1667 2456 62- RINGAX 20 6.2500 3.1667 2456 63- RINGAX 21 5.0000 3.4583 2456 64- RINGAX 22 5.4167 3.4583 2456 65- RINGAX 23 5.8333 3.4583 2456 66- RINGAX 24 6.2500 3.4583 2456 67- RINGAX 25 5.0000 3.7500 2456 68- RINGAX 26 5.4167 3.7500 2456 69- RINGAX 27 5.8333 3.7500 2456 70- RINGAX 28 6.2500 3.7500 2456 71- RINGAX 29 5.0000 4.0417 2456 72- RINGAX 30 5.4167 4.0417 2456 73- RINGAX 31 5.8333 4.0417 2456 74- RINGAX 32 6.2500 4.0417 2456 75- RINGAX 33 5.0000 4.3333 2456 76- RINGAX 34 5.4167 4.3333 2456 77- RINGAX 35 5.8333 4.3333 2456 78- RINGAX 36 6.2500 4.3333 2456 79- RINGAX 37 5.0000 4.6250 2456 80- RINGAX 38 5.4167 4.6250 2456 81- RINGAX 39 5.8333 4.6250 2456 82- RINGAX 40 6.2500 4.6250 2456 83- RINGAX 41 5.0000 4.9167 2456 84- RINGAX 42 5.4167 4.9167 2456 85- RINGAX 43 5.8333 4.9167 2456 86- RINGAX 44 6.2500 4.9167 2456 87- RINGAX 45 5.0000 5.2083 2456 88- RINGAX 46 5.4167 5.2083 2456 89- RINGAX 47 5.8333 5.2083 2456 90- RINGAX 48 6.2500 5.2083 2456 91- RINGAX 49 5.0000 5.5000 2456 92- RINGAX 50 5.4167 5.5000 2456 93- RINGAX 51 5.8333 5.5000 2456 94- RINGAX 52 6.2500 5.5000 2456 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T03-09-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF AXISYMMETRIC SOLID DATA 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T03-09-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRAPAX ELEMENTS (ELEMENT TYPE 71) STARTING WITH ID 1001 6 ROOTS BELOW 2.467401E+08 5 ROOTS BELOW 1.689509E+08 4 ROOTS BELOW 1.553757E+08 3 ROOTS BELOW 1.222577E+08 1 ROOTS BELOW 3.811508E+07 2 ROOTS BELOW 4.690468E+07 7 ROOTS BELOW 1.156938E+09 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T03-09-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 7 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 7 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 64 0 REASON FOR TERMINATION . . . . . . . . . . . 7* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.43E-08 0 . . . 3 MODE PAIR . . . . . . . . . . . . . 1 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 1 OR MORE ROOT OUTSIDE FR.RANGE. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T03-09-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 7 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 6 -4.758504E-01 6.898191E-01 1.097881E-01 1.206074E+00 -5.739107E-01 2 5 4.690455E+07 6.848689E+03 1.090003E+03 5.882022E-01 2.758936E+07 3 4 1.088195E+08 1.043166E+04 1.660250E+03 4.238784E-01 4.612622E+07 4 3 1.222931E+08 1.105862E+04 1.760034E+03 1.115104E+00 1.363694E+08 5 2 1.561220E+08 1.249488E+04 1.988622E+03 2.121759E-01 3.312532E+07 6 1 1.694655E+08 1.301789E+04 2.071862E+03 5.580937E-01 9.457763E+07 7 7 1.154310E+09 3.397514E+04 5.407312E+03 3.974966E-01 4.588343E+08 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T03-09-1A 0 SUBCASE 1 EIGENVALUE = -0.475850E+00 (CYCLIC FREQUENCY = 1.097881E-01 HZ) R E A L E I G E N V E C T O R N O . 1 SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 1 0 -3.361333E-06 0.0 9.999998E-01 0.0 0.0 0.0 2 0 -3.284431E-06 0.0 9.999991E-01 0.0 0.0 0.0 3 0 -3.215174E-06 0.0 9.999983E-01 0.0 0.0 0.0 4 0 -3.150460E-06 0.0 9.999975E-01 0.0 0.0 0.0 5 0 -2.807547E-06 0.0 9.999999E-01 0.0 0.0 0.0 6 0 -2.742344E-06 0.0 9.999991E-01 0.0 0.0 0.0 7 0 -2.684300E-06 0.0 9.999983E-01 0.0 0.0 0.0 8 0 -2.630576E-06 0.0 9.999976E-01 0.0 0.0 0.0 9 0 -2.253496E-06 0.0 9.999999E-01 0.0 0.0 0.0 10 0 -2.201454E-06 0.0 9.999992E-01 0.0 0.0 0.0 11 0 -2.154827E-06 0.0 9.999984E-01 0.0 0.0 0.0 12 0 -2.111465E-06 0.0 9.999976E-01 0.0 0.0 0.0 13 0 -1.698928E-06 0.0 9.999999E-01 0.0 0.0 0.0 14 0 -1.660389E-06 0.0 9.999992E-01 0.0 0.0 0.0 15 0 -1.625295E-06 0.0 9.999984E-01 0.0 0.0 0.0 16 0 -1.592016E-06 0.0 9.999976E-01 0.0 0.0 0.0 17 0 -1.142849E-06 0.0 9.999999E-01 0.0 0.0 0.0 18 0 -1.118003E-06 0.0 9.999992E-01 0.0 0.0 0.0 19 0 -1.094440E-06 0.0 9.999985E-01 0.0 0.0 0.0 20 0 -1.071086E-06 0.0 9.999976E-01 0.0 0.0 0.0 21 0 -5.841291E-07 0.0 1.000000E+00 0.0 0.0 0.0 22 0 -5.729829E-07 0.0 9.999992E-01 0.0 0.0 0.0 23 0 -5.609310E-07 0.0 9.999985E-01 0.0 0.0 0.0 24 0 -5.475186E-07 0.0 9.999976E-01 0.0 0.0 0.0 25 0 -2.121099E-08 0.0 1.000000E+00 0.0 0.0 0.0 26 0 -2.365891E-08 0.0 9.999992E-01 0.0 0.0 0.0 27 0 -2.316297E-08 0.0 9.999985E-01 0.0 0.0 0.0 28 0 -1.993791E-08 0.0 9.999976E-01 0.0 0.0 0.0 29 0 5.464240E-07 0.0 1.000000E+00 0.0 0.0 0.0 30 0 5.305666E-07 0.0 9.999992E-01 0.0 0.0 0.0 31 0 5.193846E-07 0.0 9.999985E-01 0.0 0.0 0.0 32 0 5.120261E-07 0.0 9.999976E-01 0.0 0.0 0.0 33 0 1.118615E-06 0.0 1.000000E+00 0.0 0.0 0.0 34 0 1.089580E-06 0.0 9.999992E-01 0.0 0.0 0.0 35 0 1.066593E-06 0.0 9.999985E-01 0.0 0.0 0.0 36 0 1.048221E-06 0.0 9.999976E-01 0.0 0.0 0.0 37 0 1.695136E-06 0.0 1.000000E+00 0.0 0.0 0.0 38 0 1.653152E-06 0.0 9.999992E-01 0.0 0.0 0.0 39 0 1.618221E-06 0.0 9.999984E-01 0.0 0.0 0.0 40 0 1.588407E-06 0.0 9.999976E-01 0.0 0.0 0.0 41 0 2.274542E-06 0.0 9.999999E-01 0.0 0.0 0.0 42 0 2.219830E-06 0.0 9.999992E-01 0.0 0.0 0.0 43 0 2.172836E-06 0.0 9.999984E-01 0.0 0.0 0.0 44 0 2.131194E-06 0.0 9.999976E-01 0.0 0.0 0.0 45 0 2.854774E-06 0.0 9.999999E-01 0.0 0.0 0.0 46 0 2.787544E-06 0.0 9.999992E-01 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T03-09-1A 0 SUBCASE 1 EIGENVALUE = -0.475850E+00 (CYCLIC FREQUENCY = 1.097881E-01 HZ) R E A L E I G E N V E C T O R N O . 1 SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 47 0 2.728574E-06 0.0 9.999983E-01 0.0 0.0 0.0 48 0 2.674866E-06 0.0 9.999975E-01 0.0 0.0 0.0 49 0 3.433663E-06 0.0 9.999999E-01 0.0 0.0 0.0 50 0 3.354399E-06 0.0 9.999991E-01 0.0 0.0 0.0 51 0 3.283783E-06 0.0 9.999982E-01 0.0 0.0 0.0 52 0 3.218461E-06 0.0 9.999974E-01 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T03-09-1A 0 SUBCASE 1 EIGENVALUE = 0.469045E+08 (CYCLIC FREQUENCY = 1.090003E+03 HZ) R E A L E I G E N V E C T O R N O . 2 SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 1 0 -9.965931E-05 0.0 3.304831E-05 0.0 0.0 0.0 2 0 -9.736842E-05 0.0 9.606859E-06 0.0 0.0 0.0 3 0 -9.531625E-05 0.0 -1.342217E-05 0.0 0.0 0.0 4 0 -9.340864E-05 0.0 -3.591328E-05 0.0 0.0 0.0 5 0 -8.304563E-05 0.0 3.464297E-05 0.0 0.0 0.0 6 0 -8.110349E-05 0.0 1.106402E-05 0.0 0.0 0.0 7 0 -7.938762E-05 0.0 -1.208771E-05 0.0 0.0 0.0 8 0 -7.781218E-05 0.0 -3.468357E-05 0.0 0.0 0.0 9 0 -6.640884E-05 0.0 3.589424E-05 0.0 0.0 0.0 10 0 -6.484381E-05 0.0 1.224985E-05 0.0 0.0 0.0 11 0 -6.347164E-05 0.0 -1.098743E-05 0.0 0.0 0.0 12 0 -6.222529E-05 0.0 -3.362897E-05 0.0 0.0 0.0 13 0 -4.977771E-05 0.0 3.683699E-05 0.0 0.0 0.0 14 0 -4.859734E-05 0.0 1.316751E-05 0.0 0.0 0.0 15 0 -4.757097E-05 0.0 -1.012202E-05 0.0 0.0 0.0 16 0 -4.664563E-05 0.0 -3.278059E-05 0.0 0.0 0.0 17 0 -3.316699E-05 0.0 3.749433E-05 0.0 0.0 0.0 18 0 -3.237715E-05 0.0 1.381965E-05 0.0 0.0 0.0 19 0 -3.169449E-05 0.0 -9.498061E-06 0.0 0.0 0.0 20 0 -3.108249E-05 0.0 -3.216007E-05 0.0 0.0 0.0 21 0 -1.658088E-05 0.0 3.788236E-05 0.0 0.0 0.0 22 0 -1.618500E-05 0.0 1.420933E-05 0.0 0.0 0.0 23 0 -1.584410E-05 0.0 -9.121423E-06 0.0 0.0 0.0 24 0 -1.553952E-05 0.0 -3.178199E-05 0.0 0.0 0.0 25 0 -2.990176E-13 0.0 3.801073E-05 0.0 0.0 0.0 26 0 -2.951373E-13 0.0 1.433903E-05 0.0 0.0 0.0 27 0 -2.880118E-13 0.0 -8.995426E-06 0.0 0.0 0.0 28 0 -2.784114E-13 0.0 -3.165493E-05 0.0 0.0 0.0 29 0 1.658088E-05 0.0 3.788236E-05 0.0 0.0 0.0 30 0 1.618500E-05 0.0 1.420933E-05 0.0 0.0 0.0 31 0 1.584410E-05 0.0 -9.121423E-06 0.0 0.0 0.0 32 0 1.553952E-05 0.0 -3.178199E-05 0.0 0.0 0.0 33 0 3.316699E-05 0.0 3.749433E-05 0.0 0.0 0.0 34 0 3.237715E-05 0.0 1.381965E-05 0.0 0.0 0.0 35 0 3.169449E-05 0.0 -9.498061E-06 0.0 0.0 0.0 36 0 3.108249E-05 0.0 -3.216007E-05 0.0 0.0 0.0 37 0 4.977771E-05 0.0 3.683699E-05 0.0 0.0 0.0 38 0 4.859733E-05 0.0 1.316751E-05 0.0 0.0 0.0 39 0 4.757097E-05 0.0 -1.012202E-05 0.0 0.0 0.0 40 0 4.664563E-05 0.0 -3.278059E-05 0.0 0.0 0.0 41 0 6.640884E-05 0.0 3.589424E-05 0.0 0.0 0.0 42 0 6.484381E-05 0.0 1.224985E-05 0.0 0.0 0.0 43 0 6.347164E-05 0.0 -1.098742E-05 0.0 0.0 0.0 44 0 6.222529E-05 0.0 -3.362897E-05 0.0 0.0 0.0 45 0 8.304563E-05 0.0 3.464297E-05 0.0 0.0 0.0 46 0 8.110348E-05 0.0 1.106402E-05 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T03-09-1A 0 SUBCASE 1 EIGENVALUE = 0.469045E+08 (CYCLIC FREQUENCY = 1.090003E+03 HZ) R E A L E I G E N V E C T O R N O . 2 SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 47 0 7.938762E-05 0.0 -1.208771E-05 0.0 0.0 0.0 48 0 7.781218E-05 0.0 -3.468357E-05 0.0 0.0 0.0 49 0 9.965931E-05 0.0 3.304831E-05 0.0 0.0 0.0 50 0 9.736842E-05 0.0 9.606859E-06 0.0 0.0 0.0 51 0 9.531625E-05 0.0 -1.342217E-05 0.0 0.0 0.0 52 0 9.340864E-05 0.0 -3.591328E-05 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T03-09-1A 0 SUBCASE 1 EIGENVALUE = 0.108819E+09 (CYCLIC FREQUENCY = 1.660250E+03 HZ) R E A L E I G E N V E C T O R N O . 3 SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 1 0 1.000000E+00 0.0 -3.316128E-01 0.0 0.0 0.0 2 0 9.770127E-01 0.0 -9.639699E-02 0.0 0.0 0.0 3 0 9.564208E-01 0.0 1.346806E-01 0.0 0.0 0.0 4 0 9.372795E-01 0.0 3.603605E-01 0.0 0.0 0.0 5 0 8.332952E-01 0.0 -3.476140E-01 0.0 0.0 0.0 6 0 8.138074E-01 0.0 -1.110184E-01 0.0 0.0 0.0 7 0 7.965901E-01 0.0 1.212903E-01 0.0 0.0 0.0 8 0 7.807818E-01 0.0 3.480214E-01 0.0 0.0 0.0 9 0 6.663585E-01 0.0 -3.601694E-01 0.0 0.0 0.0 10 0 6.506548E-01 0.0 -1.229173E-01 0.0 0.0 0.0 11 0 6.368862E-01 0.0 1.102499E-01 0.0 0.0 0.0 12 0 6.243801E-01 0.0 3.374393E-01 0.0 0.0 0.0 13 0 4.994788E-01 0.0 -3.696292E-01 0.0 0.0 0.0 14 0 4.876347E-01 0.0 -1.321252E-01 0.0 0.0 0.0 15 0 4.773359E-01 0.0 1.015662E-01 0.0 0.0 0.0 16 0 4.680508E-01 0.0 3.289265E-01 0.0 0.0 0.0 17 0 3.328038E-01 0.0 -3.762251E-01 0.0 0.0 0.0 18 0 3.248783E-01 0.0 -1.386689E-01 0.0 0.0 0.0 19 0 3.180284E-01 0.0 9.530529E-02 0.0 0.0 0.0 20 0 3.118874E-01 0.0 3.227001E-01 0.0 0.0 0.0 21 0 1.663756E-01 0.0 -3.801186E-01 0.0 0.0 0.0 22 0 1.624033E-01 0.0 -1.425791E-01 0.0 0.0 0.0 23 0 1.589826E-01 0.0 9.152605E-02 0.0 0.0 0.0 24 0 1.559264E-01 0.0 3.189064E-01 0.0 0.0 0.0 25 0 3.014657E-09 0.0 -3.814068E-01 0.0 0.0 0.0 26 0 2.975396E-09 0.0 -1.438804E-01 0.0 0.0 0.0 27 0 2.903608E-09 0.0 9.026176E-02 0.0 0.0 0.0 28 0 2.807007E-09 0.0 3.176314E-01 0.0 0.0 0.0 29 0 -1.663756E-01 0.0 -3.801186E-01 0.0 0.0 0.0 30 0 -1.624033E-01 0.0 -1.425791E-01 0.0 0.0 0.0 31 0 -1.589826E-01 0.0 9.152605E-02 0.0 0.0 0.0 32 0 -1.559264E-01 0.0 3.189064E-01 0.0 0.0 0.0 33 0 -3.328038E-01 0.0 -3.762251E-01 0.0 0.0 0.0 34 0 -3.248783E-01 0.0 -1.386689E-01 0.0 0.0 0.0 35 0 -3.180284E-01 0.0 9.530529E-02 0.0 0.0 0.0 36 0 -3.118874E-01 0.0 3.227001E-01 0.0 0.0 0.0 37 0 -4.994788E-01 0.0 -3.696292E-01 0.0 0.0 0.0 38 0 -4.876346E-01 0.0 -1.321252E-01 0.0 0.0 0.0 39 0 -4.773359E-01 0.0 1.015662E-01 0.0 0.0 0.0 40 0 -4.680508E-01 0.0 3.289265E-01 0.0 0.0 0.0 41 0 -6.663585E-01 0.0 -3.601694E-01 0.0 0.0 0.0 42 0 -6.506548E-01 0.0 -1.229173E-01 0.0 0.0 0.0 43 0 -6.368862E-01 0.0 1.102499E-01 0.0 0.0 0.0 44 0 -6.243801E-01 0.0 3.374393E-01 0.0 0.0 0.0 45 0 -8.332952E-01 0.0 -3.476140E-01 0.0 0.0 0.0 46 0 -8.138073E-01 0.0 -1.110184E-01 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T03-09-1A 0 SUBCASE 1 EIGENVALUE = 0.108819E+09 (CYCLIC FREQUENCY = 1.660250E+03 HZ) R E A L E I G E N V E C T O R N O . 3 SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 47 0 -7.965901E-01 0.0 1.212903E-01 0.0 0.0 0.0 48 0 -7.807818E-01 0.0 3.480214E-01 0.0 0.0 0.0 49 0 -1.000000E+00 0.0 -3.316128E-01 0.0 0.0 0.0 50 0 -9.770127E-01 0.0 -9.639699E-02 0.0 0.0 0.0 51 0 -9.564208E-01 0.0 1.346806E-01 0.0 0.0 0.0 52 0 -9.372795E-01 0.0 3.603605E-01 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T03-09-1A 0 SUBCASE 1 EIGENVALUE = 0.122293E+09 (CYCLIC FREQUENCY = 1.760034E+03 HZ) R E A L E I G E N V E C T O R N O . 4 SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 1 0 9.797873E-01 0.0 1.082766E-01 0.0 0.0 0.0 2 0 9.571791E-01 0.0 9.849149E-02 0.0 0.0 0.0 3 0 9.370077E-01 0.0 8.924261E-02 0.0 0.0 0.0 4 0 9.182331E-01 0.0 8.006150E-02 0.0 0.0 0.0 5 0 9.860328E-01 0.0 9.072368E-02 0.0 0.0 0.0 6 0 9.632818E-01 0.0 8.267042E-02 0.0 0.0 0.0 7 0 9.429893E-01 0.0 7.484650E-02 0.0 0.0 0.0 8 0 9.241526E-01 0.0 6.709372E-02 0.0 0.0 0.0 9 0 9.910371E-01 0.0 7.293779E-02 0.0 0.0 0.0 10 0 9.682822E-01 0.0 6.653246E-02 0.0 0.0 0.0 11 0 9.479811E-01 0.0 6.021316E-02 0.0 0.0 0.0 12 0 9.291136E-01 0.0 5.391906E-02 0.0 0.0 0.0 13 0 9.949406E-01 0.0 5.492388E-02 0.0 0.0 0.0 14 0 9.721913E-01 0.0 5.012247E-02 0.0 0.0 0.0 15 0 9.519057E-01 0.0 4.535472E-02 0.0 0.0 0.0 16 0 9.330276E-01 0.0 4.058349E-02 0.0 0.0 0.0 17 0 9.977446E-01 0.0 3.672466E-02 0.0 0.0 0.0 18 0 9.750016E-01 0.0 3.351833E-02 0.0 0.0 0.0 19 0 9.547262E-01 0.0 3.032718E-02 0.0 0.0 0.0 20 0 9.358434E-01 0.0 2.712557E-02 0.0 0.0 0.0 21 0 9.994348E-01 0.0 1.839958E-02 0.0 0.0 0.0 22 0 9.766956E-01 0.0 1.679330E-02 0.0 0.0 0.0 23 0 9.564246E-01 0.0 1.519361E-02 0.0 0.0 0.0 24 0 9.375387E-01 0.0 1.358696E-02 0.0 0.0 0.0 25 0 1.000000E+00 0.0 5.626747E-10 0.0 0.0 0.0 26 0 9.772620E-01 0.0 2.122909E-10 0.0 0.0 0.0 27 0 9.569921E-01 0.0 -1.330876E-10 0.0 0.0 0.0 28 0 9.381050E-01 0.0 -4.684615E-10 0.0 0.0 0.0 29 0 9.994348E-01 0.0 -1.839958E-02 0.0 0.0 0.0 30 0 9.766956E-01 0.0 -1.679329E-02 0.0 0.0 0.0 31 0 9.564246E-01 0.0 -1.519361E-02 0.0 0.0 0.0 32 0 9.375387E-01 0.0 -1.358696E-02 0.0 0.0 0.0 33 0 9.977446E-01 0.0 -3.672466E-02 0.0 0.0 0.0 34 0 9.750016E-01 0.0 -3.351833E-02 0.0 0.0 0.0 35 0 9.547262E-01 0.0 -3.032718E-02 0.0 0.0 0.0 36 0 9.358434E-01 0.0 -2.712557E-02 0.0 0.0 0.0 37 0 9.949406E-01 0.0 -5.492388E-02 0.0 0.0 0.0 38 0 9.721913E-01 0.0 -5.012247E-02 0.0 0.0 0.0 39 0 9.519057E-01 0.0 -4.535472E-02 0.0 0.0 0.0 40 0 9.330276E-01 0.0 -4.058349E-02 0.0 0.0 0.0 41 0 9.910371E-01 0.0 -7.293779E-02 0.0 0.0 0.0 42 0 9.682822E-01 0.0 -6.653246E-02 0.0 0.0 0.0 43 0 9.479811E-01 0.0 -6.021316E-02 0.0 0.0 0.0 44 0 9.291136E-01 0.0 -5.391906E-02 0.0 0.0 0.0 45 0 9.860328E-01 0.0 -9.072367E-02 0.0 0.0 0.0 46 0 9.632818E-01 0.0 -8.267042E-02 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T03-09-1A 0 SUBCASE 1 EIGENVALUE = 0.122293E+09 (CYCLIC FREQUENCY = 1.760034E+03 HZ) R E A L E I G E N V E C T O R N O . 4 SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 47 0 9.429893E-01 0.0 -7.484650E-02 0.0 0.0 0.0 48 0 9.241526E-01 0.0 -6.709373E-02 0.0 0.0 0.0 49 0 9.797873E-01 0.0 -1.082766E-01 0.0 0.0 0.0 50 0 9.571791E-01 0.0 -9.849149E-02 0.0 0.0 0.0 51 0 9.370077E-01 0.0 -8.924261E-02 0.0 0.0 0.0 52 0 9.182331E-01 0.0 -8.006150E-02 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T03-09-1A 0 SUBCASE 1 EIGENVALUE = 0.156122E+09 (CYCLIC FREQUENCY = 1.988622E+03 HZ) R E A L E I G E N V E C T O R N O . 5 SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 1 0 -1.568144E-08 0.0 -1.519164E-09 0.0 0.0 0.0 2 0 -1.531964E-08 0.0 -1.481126E-09 0.0 0.0 0.0 3 0 -1.499679E-08 0.0 -1.449405E-09 0.0 0.0 0.0 4 0 -1.469632E-08 0.0 -1.416125E-09 0.0 0.0 0.0 5 0 -1.569770E-08 0.0 -1.239156E-09 0.0 0.0 0.0 6 0 -1.533538E-08 0.0 -1.228649E-09 0.0 0.0 0.0 7 0 -1.501229E-08 0.0 -1.219626E-09 0.0 0.0 0.0 8 0 -1.471246E-08 0.0 -1.209010E-09 0.0 0.0 0.0 9 0 -1.569460E-08 0.0 -9.572009E-10 0.0 0.0 0.0 10 0 -1.533405E-08 0.0 -9.725728E-10 0.0 0.0 0.0 11 0 -1.501249E-08 0.0 -9.873037E-10 0.0 0.0 0.0 12 0 -1.471378E-08 0.0 -9.995348E-10 0.0 0.0 0.0 13 0 -1.567445E-08 0.0 -6.732053E-10 0.0 0.0 0.0 14 0 -1.531585E-08 0.0 -7.135781E-10 0.0 0.0 0.0 15 0 -1.499621E-08 0.0 -7.526292E-10 0.0 0.0 0.0 16 0 -1.469890E-08 0.0 -7.885649E-10 0.0 0.0 0.0 17 0 -1.563735E-08 0.0 -3.877205E-10 0.0 0.0 0.0 18 0 -1.528074E-08 0.0 -4.528601E-10 0.0 0.0 0.0 19 0 -1.496293E-08 0.0 -5.165035E-10 0.0 0.0 0.0 20 0 -1.466706E-08 0.0 -5.768028E-10 0.0 0.0 0.0 21 0 -1.558309E-08 0.0 -1.015900E-10 0.0 0.0 0.0 22 0 -1.522845E-08 0.0 -1.915408E-10 0.0 0.0 0.0 23 0 -1.491236E-08 0.0 -2.799331E-10 0.0 0.0 0.0 24 0 -1.461794E-08 0.0 -3.649656E-10 0.0 0.0 0.0 25 0 -1.551140E-08 0.0 1.844362E-10 0.0 0.0 0.0 26 0 -1.515870E-08 0.0 6.957605E-11 0.0 0.0 0.0 27 0 -1.484429E-08 0.0 -4.364761E-11 0.0 0.0 0.0 28 0 -1.455132E-08 0.0 -1.535962E-10 0.0 0.0 0.0 29 0 -1.542218E-08 0.0 4.692164E-10 0.0 0.0 0.0 30 0 -1.507138E-08 0.0 3.294343E-10 0.0 0.0 0.0 31 0 -1.475861E-08 0.0 1.914152E-10 0.0 0.0 0.0 32 0 -1.446714E-08 0.0 5.653992E-11 0.0 0.0 0.0 33 0 -1.531548E-08 0.0 7.515814E-10 0.0 0.0 0.0 34 0 -1.496654E-08 0.0 5.869720E-10 0.0 0.0 0.0 35 0 -1.465535E-08 0.0 4.243305E-10 0.0 0.0 0.0 36 0 -1.436542E-08 0.0 2.647082E-10 0.0 0.0 0.0 37 0 -1.519139E-08 0.0 1.030687E-09 0.0 0.0 0.0 38 0 -1.484424E-08 0.0 8.413613E-10 0.0 0.0 0.0 39 0 -1.453456E-08 0.0 6.544011E-10 0.0 0.0 0.0 40 0 -1.424623E-08 0.0 4.704485E-10 0.0 0.0 0.0 41 0 -1.505014E-08 0.0 1.305534E-09 0.0 0.0 0.0 42 0 -1.470478E-08 0.0 1.091451E-09 0.0 0.0 0.0 43 0 -1.439654E-08 0.0 8.806773E-10 0.0 0.0 0.0 44 0 -1.410992E-08 0.0 6.731854E-10 0.0 0.0 0.0 45 0 -1.489179E-08 0.0 1.575346E-09 0.0 0.0 0.0 46 0 -1.454832E-08 0.0 1.336019E-09 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T03-09-1A 0 SUBCASE 1 EIGENVALUE = 0.156122E+09 (CYCLIC FREQUENCY = 1.988622E+03 HZ) R E A L E I G E N V E C T O R N O . 5 SECTOR-ID POINT-ID RING-ID HARMONIC T1 T2 T3 R1 R2 R3 47 0 -1.424188E-08 0.0 1.102322E-09 0.0 0.0 0.0 48 0 -1.395734E-08 0.0 8.724257E-10 0.0 0.0 0.0 49 0 -1.471431E-08 0.0 1.839878E-09 0.0 0.0 0.0 50 0 -1.437474E-08 0.0 1.574356E-09 0.0 0.0 0.0 51 0 -1.407181E-08 0.0 1.319151E-09 0.0 0.0 0.0 52 0 -1.378984E-08 0.0 1.067607E-09 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM DATE: 5/17/95 END TIME: 16:44: 2 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t03101a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T03101A,NASTRAN SOL 3 TIME 20 APP DISP CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T03-10-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T03-10-1A 3 METHOD = 1 4 SUBCASE 1 5 DISP = ALL 6 MODES = 5 7 SUBCASE 6 8 DISP = NONE 9 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 93, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T03-10-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CTRAPRG 1 1 2 6 5 1 2- CTRAPRG 2 2 3 7 6 1 3- CTRAPRG 3 3 4 8 7 1 4- CTRAPRG 5 5 6 10 9 1 5- CTRAPRG 6 6 7 11 10 1 6- CTRAPRG 7 7 8 12 11 1 7- CTRAPRG 9 9 10 14 13 1 8- CTRAPRG 10 10 11 15 14 1 9- CTRAPRG 11 11 12 16 15 1 10- CTRAPRG 13 13 14 18 17 1 11- CTRAPRG 14 14 15 19 18 1 12- CTRAPRG 15 15 16 20 19 1 13- CTRAPRG 17 17 18 22 21 1 14- CTRAPRG 18 18 19 23 22 1 15- CTRAPRG 19 19 20 24 23 1 16- CTRAPRG 21 21 22 26 25 1 17- CTRAPRG 22 22 23 27 26 1 18- CTRAPRG 23 23 24 28 27 1 19- CTRAPRG 25 25 26 30 29 1 20- CTRAPRG 26 26 27 31 30 1 21- CTRAPRG 27 27 28 32 31 1 22- CTRAPRG 29 29 30 34 33 1 23- CTRAPRG 30 30 31 35 34 1 24- CTRAPRG 31 31 32 36 35 1 25- CTRAPRG 33 33 34 38 37 1 26- CTRAPRG 34 34 35 39 38 1 27- CTRAPRG 35 35 36 40 39 1 28- CTRAPRG 37 37 38 42 41 1 29- CTRAPRG 38 38 39 43 42 1 30- CTRAPRG 39 39 40 44 43 1 31- CTRAPRG 41 41 42 46 45 1 32- CTRAPRG 42 42 43 47 46 1 33- CTRAPRG 43 43 44 48 47 1 34- CTRAPRG 45 45 46 50 49 1 35- CTRAPRG 46 46 47 51 50 1 36- CTRAPRG 47 47 48 52 51 1 37- EIGR 1 INV 0. 5000. 10 10 1.-3 +E 38- +E MAX 39- GRDSET 2456 40- GRID 1 5.0000 2.0000 41- GRID 2 5.4167 2.0000 42- GRID 3 5.8333 2.0000 43- GRID 4 6.2500 2.0000 44- GRID 5 5.0000 2.2917 45- GRID 6 5.4167 2.2917 46- GRID 7 5.8333 2.2917 47- GRID 8 6.2500 2.2917 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T03-10-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 9 5.0000 2.5833 49- GRID 10 5.4167 2.5833 50- GRID 11 5.8333 2.5833 51- GRID 12 6.2500 2.5833 52- GRID 13 5.0000 2.8750 53- GRID 14 5.4167 2.8750 54- GRID 15 5.8333 2.8750 55- GRID 16 6.2500 2.8750 56- GRID 17 5.0000 3.1667 57- GRID 18 5.4167 3.1667 58- GRID 19 5.8333 3.1667 59- GRID 20 6.2500 3.1667 60- GRID 21 5.0000 3.4583 61- GRID 22 5.4167 3.4583 62- GRID 23 5.8333 3.4583 63- GRID 24 6.2500 3.4583 64- GRID 25 5.0000 3.7500 65- GRID 26 5.4167 3.7500 66- GRID 27 5.8333 3.7500 67- GRID 28 6.2500 3.7500 68- GRID 29 5.0000 4.0417 69- GRID 30 5.4167 4.0417 70- GRID 31 5.8333 4.0417 71- GRID 32 6.2500 4.0417 72- GRID 33 5.0000 4.3333 73- GRID 34 5.4167 4.3333 74- GRID 35 5.8333 4.3333 75- GRID 36 6.2500 4.3333 76- GRID 37 5.0000 4.6250 77- GRID 38 5.4167 4.6250 78- GRID 39 5.8333 4.6250 79- GRID 40 6.2500 4.6250 80- GRID 41 5.0000 4.9167 81- GRID 42 5.4167 4.9167 82- GRID 43 5.8333 4.9167 83- GRID 44 6.2500 4.9167 84- GRID 45 5.0000 5.2083 85- GRID 46 5.4167 5.2083 86- GRID 47 5.8333 5.2083 87- GRID 48 6.2500 5.2083 88- GRID 49 5.0000 5.5000 89- GRID 50 5.4167 5.5000 90- GRID 51 5.8333 5.5000 91- GRID 52 6.2500 5.5000 92- MAT1 1 3.+7 .3 7.8-3 93- PARAM COUPMASS1 ENDDATA 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T03-10-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 6 PROFILE 283 MAX WAVEFRONT 6 AVG WAVEFRONT 5.442 RMS WAVEFRONT 5.538 RMS BANDWIDTH 5.563 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 6 PROFILE 283 MAX WAVEFRONT 6 AVG WAVEFRONT 5.442 RMS WAVEFRONT 5.538 RMS BANDWIDTH 5.563 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 6 6 PROFILE (P) 283 283 MAXIMUM WAVEFRONT (C-MAX) 6 6 AVERAGE WAVEFRONT (C-AVG) 5.442 5.442 RMS WAVEFRONT (C-RMS) 5.538 5.538 RMS BANDWITCH (B-RMS) 5.563 5.563 NUMBER OF GRID POINTS (N) 52 NUMBER OF ELEMENTS (NON-RIGID) 36 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 8 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 159 MATRIX DENSITY, PERCENT 13.683 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRAPRG ELEMENTS (ELEMENT TYPE 37) STARTING WITH ID 1 3 ROOTS BELOW 2.467401E+08 2 ROOTS BELOW 1.206943E+08 3 ROOTS BELOW 1.222931E+08 1 ROOTS BELOW 1.088098E+08 4 ROOTS BELOW 1.154333E+09 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T03-10-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 4 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 5 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 26 0 REASON FOR TERMINATION . . . . . . . . . . . 7* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.61E-08 0 . . . 4 MODE PAIR . . . . . . . . . . . . . 1 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 1 OR MORE ROOT OUTSIDE FR.RANGE. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T03-10-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY * * 3 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 3 6.645746E-01 8.152145E-01 1.297454E-01 1.206077E+00 8.015279E-01 2 2 1.088195E+08 1.043166E+04 1.660250E+03 4.238784E-01 4.612622E+07 3 1 1.222931E+08 1.105862E+04 1.760034E+03 1.115104E+00 1.363694E+08 4 4 1.154310E+09 3.397514E+04 5.407312E+03 3.974966E-01 4.588343E+08 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T03-10-1A 0 SUBCASE 1 EIGENVALUE = 0.664575E+00 (CYCLIC FREQUENCY = 1.297454E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -3.731007E-07 0.0 1.000000E+00 0.0 0.0 0.0 2 G -3.608073E-07 0.0 9.999999E-01 0.0 0.0 0.0 3 G -3.536889E-07 0.0 9.999997E-01 0.0 0.0 0.0 4 G -3.505078E-07 0.0 9.999995E-01 0.0 0.0 0.0 5 G -2.436614E-07 0.0 1.000000E+00 0.0 0.0 0.0 6 G -2.329479E-07 0.0 9.999999E-01 0.0 0.0 0.0 7 G -2.279446E-07 0.0 9.999997E-01 0.0 0.0 0.0 8 G -2.279248E-07 0.0 9.999995E-01 0.0 0.0 0.0 9 G -1.085947E-07 0.0 1.000000E+00 0.0 0.0 0.0 10 G -9.445252E-08 0.0 9.999999E-01 0.0 0.0 0.0 11 G -9.210216E-08 0.0 9.999998E-01 0.0 0.0 0.0 12 G -1.006028E-07 0.0 9.999995E-01 0.0 0.0 0.0 13 G 1.979394E-08 0.0 9.999999E-01 0.0 0.0 0.0 14 G 3.788428E-08 0.0 9.999999E-01 0.0 0.0 0.0 15 G 3.753502E-08 0.0 9.999998E-01 0.0 0.0 0.0 16 G 2.008723E-08 0.0 9.999996E-01 0.0 0.0 0.0 17 G 1.256460E-07 0.0 9.999999E-01 0.0 0.0 0.0 18 G 1.474430E-07 0.0 9.999998E-01 0.0 0.0 0.0 19 G 1.447778E-07 0.0 9.999998E-01 0.0 0.0 0.0 20 G 1.194146E-07 0.0 9.999996E-01 0.0 0.0 0.0 21 G 1.953679E-07 0.0 9.999999E-01 0.0 0.0 0.0 22 G 2.197809E-07 0.0 9.999998E-01 0.0 0.0 0.0 23 G 2.155497E-07 0.0 9.999998E-01 0.0 0.0 0.0 24 G 1.847361E-07 0.0 9.999997E-01 0.0 0.0 0.0 25 G 2.198151E-07 0.0 9.999998E-01 0.0 0.0 0.0 26 G 2.451703E-07 0.0 9.999998E-01 0.0 0.0 0.0 27 G 2.403483E-07 0.0 9.999998E-01 0.0 0.0 0.0 28 G 2.075387E-07 0.0 9.999998E-01 0.0 0.0 0.0 29 G 1.956524E-07 0.0 9.999997E-01 0.0 0.0 0.0 30 G 2.200590E-07 0.0 9.999998E-01 0.0 0.0 0.0 31 G 2.157189E-07 0.0 9.999998E-01 0.0 0.0 0.0 32 G 1.847365E-07 0.0 9.999999E-01 0.0 0.0 0.0 33 G 1.261488E-07 0.0 9.999996E-01 0.0 0.0 0.0 34 G 1.478776E-07 0.0 9.999998E-01 0.0 0.0 0.0 35 G 1.449939E-07 0.0 9.999998E-01 0.0 0.0 0.0 36 G 1.193449E-07 0.0 9.999999E-01 0.0 0.0 0.0 37 G 2.048470E-08 0.0 9.999995E-01 0.0 0.0 0.0 38 G 3.843126E-08 0.0 9.999997E-01 0.0 0.0 0.0 39 G 3.772387E-08 0.0 9.999998E-01 0.0 0.0 0.0 40 G 1.993060E-08 0.0 9.999999E-01 0.0 0.0 0.0 41 G -1.076474E-07 0.0 9.999995E-01 0.0 0.0 0.0 42 G -9.371047E-08 0.0 9.999997E-01 0.0 0.0 0.0 43 G -9.179033E-08 0.0 9.999998E-01 0.0 0.0 0.0 44 G -1.006045E-07 0.0 9.999999E-01 0.0 0.0 0.0 45 G -2.424443E-07 0.0 9.999995E-01 0.0 0.0 0.0 46 G -2.319018E-07 0.0 9.999997E-01 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T03-10-1A 0 SUBCASE 1 EIGENVALUE = 0.664575E+00 (CYCLIC FREQUENCY = 1.297454E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 47 G -2.272404E-07 0.0 9.999999E-01 0.0 0.0 0.0 48 G -2.274358E-07 0.0 9.999999E-01 0.0 0.0 0.0 49 G -3.717489E-07 0.0 9.999995E-01 0.0 0.0 0.0 50 G -3.595093E-07 0.0 9.999997E-01 0.0 0.0 0.0 51 G -3.525300E-07 0.0 9.999999E-01 0.0 0.0 0.0 52 G -3.494642E-07 0.0 1.000000E+00 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T03-10-1A 0 SUBCASE 1 EIGENVALUE = 0.108819E+09 (CYCLIC FREQUENCY = 1.660250E+03 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.000000E+00 0.0 -3.316140E-01 0.0 0.0 0.0 2 G 9.770127E-01 0.0 -9.639819E-02 0.0 0.0 0.0 3 G 9.564208E-01 0.0 1.346793E-01 0.0 0.0 0.0 4 G 9.372795E-01 0.0 3.603593E-01 0.0 0.0 0.0 5 G 8.332952E-01 0.0 -3.476152E-01 0.0 0.0 0.0 6 G 8.138074E-01 0.0 -1.110196E-01 0.0 0.0 0.0 7 G 7.965901E-01 0.0 1.212891E-01 0.0 0.0 0.0 8 G 7.807818E-01 0.0 3.480202E-01 0.0 0.0 0.0 9 G 6.663585E-01 0.0 -3.601706E-01 0.0 0.0 0.0 10 G 6.506548E-01 0.0 -1.229185E-01 0.0 0.0 0.0 11 G 6.368862E-01 0.0 1.102487E-01 0.0 0.0 0.0 12 G 6.243801E-01 0.0 3.374380E-01 0.0 0.0 0.0 13 G 4.994788E-01 0.0 -3.696304E-01 0.0 0.0 0.0 14 G 4.876347E-01 0.0 -1.321264E-01 0.0 0.0 0.0 15 G 4.773359E-01 0.0 1.015650E-01 0.0 0.0 0.0 16 G 4.680508E-01 0.0 3.289253E-01 0.0 0.0 0.0 17 G 3.328038E-01 0.0 -3.762262E-01 0.0 0.0 0.0 18 G 3.248783E-01 0.0 -1.386701E-01 0.0 0.0 0.0 19 G 3.180284E-01 0.0 9.530409E-02 0.0 0.0 0.0 20 G 3.118874E-01 0.0 3.226989E-01 0.0 0.0 0.0 21 G 1.663756E-01 0.0 -3.801198E-01 0.0 0.0 0.0 22 G 1.624033E-01 0.0 -1.425803E-01 0.0 0.0 0.0 23 G 1.589826E-01 0.0 9.152486E-02 0.0 0.0 0.0 24 G 1.559264E-01 0.0 3.189052E-01 0.0 0.0 0.0 25 G -6.992828E-15 0.0 -3.814080E-01 0.0 0.0 0.0 26 G -7.417673E-15 0.0 -1.438816E-01 0.0 0.0 0.0 27 G -7.023028E-15 0.0 9.026057E-02 0.0 0.0 0.0 28 G -3.385625E-15 0.0 3.176302E-01 0.0 0.0 0.0 29 G -1.663756E-01 0.0 -3.801198E-01 0.0 0.0 0.0 30 G -1.624033E-01 0.0 -1.425803E-01 0.0 0.0 0.0 31 G -1.589826E-01 0.0 9.152486E-02 0.0 0.0 0.0 32 G -1.559264E-01 0.0 3.189052E-01 0.0 0.0 0.0 33 G -3.328038E-01 0.0 -3.762262E-01 0.0 0.0 0.0 34 G -3.248783E-01 0.0 -1.386701E-01 0.0 0.0 0.0 35 G -3.180284E-01 0.0 9.530409E-02 0.0 0.0 0.0 36 G -3.118874E-01 0.0 3.226989E-01 0.0 0.0 0.0 37 G -4.994788E-01 0.0 -3.696304E-01 0.0 0.0 0.0 38 G -4.876347E-01 0.0 -1.321264E-01 0.0 0.0 0.0 39 G -4.773359E-01 0.0 1.015650E-01 0.0 0.0 0.0 40 G -4.680508E-01 0.0 3.289253E-01 0.0 0.0 0.0 41 G -6.663585E-01 0.0 -3.601706E-01 0.0 0.0 0.0 42 G -6.506548E-01 0.0 -1.229185E-01 0.0 0.0 0.0 43 G -6.368862E-01 0.0 1.102487E-01 0.0 0.0 0.0 44 G -6.243801E-01 0.0 3.374380E-01 0.0 0.0 0.0 45 G -8.332952E-01 0.0 -3.476152E-01 0.0 0.0 0.0 46 G -8.138074E-01 0.0 -1.110196E-01 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T03-10-1A 0 SUBCASE 1 EIGENVALUE = 0.108819E+09 (CYCLIC FREQUENCY = 1.660250E+03 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 47 G -7.965901E-01 0.0 1.212891E-01 0.0 0.0 0.0 48 G -7.807818E-01 0.0 3.480202E-01 0.0 0.0 0.0 49 G -1.000000E+00 0.0 -3.316140E-01 0.0 0.0 0.0 50 G -9.770127E-01 0.0 -9.639819E-02 0.0 0.0 0.0 51 G -9.564208E-01 0.0 1.346793E-01 0.0 0.0 0.0 52 G -9.372795E-01 0.0 3.603593E-01 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T03-10-1A 0 SUBCASE 1 EIGENVALUE = 0.122293E+09 (CYCLIC FREQUENCY = 1.760034E+03 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 9.797873E-01 0.0 1.082766E-01 0.0 0.0 0.0 2 G 9.571791E-01 0.0 9.849149E-02 0.0 0.0 0.0 3 G 9.370077E-01 0.0 8.924261E-02 0.0 0.0 0.0 4 G 9.182331E-01 0.0 8.006150E-02 0.0 0.0 0.0 5 G 9.860328E-01 0.0 9.072368E-02 0.0 0.0 0.0 6 G 9.632818E-01 0.0 8.267042E-02 0.0 0.0 0.0 7 G 9.429893E-01 0.0 7.484650E-02 0.0 0.0 0.0 8 G 9.241526E-01 0.0 6.709373E-02 0.0 0.0 0.0 9 G 9.910371E-01 0.0 7.293779E-02 0.0 0.0 0.0 10 G 9.682822E-01 0.0 6.653246E-02 0.0 0.0 0.0 11 G 9.479811E-01 0.0 6.021316E-02 0.0 0.0 0.0 12 G 9.291136E-01 0.0 5.391906E-02 0.0 0.0 0.0 13 G 9.949406E-01 0.0 5.492388E-02 0.0 0.0 0.0 14 G 9.721913E-01 0.0 5.012247E-02 0.0 0.0 0.0 15 G 9.519057E-01 0.0 4.535472E-02 0.0 0.0 0.0 16 G 9.330276E-01 0.0 4.058349E-02 0.0 0.0 0.0 17 G 9.977446E-01 0.0 3.672466E-02 0.0 0.0 0.0 18 G 9.750016E-01 0.0 3.351833E-02 0.0 0.0 0.0 19 G 9.547262E-01 0.0 3.032718E-02 0.0 0.0 0.0 20 G 9.358434E-01 0.0 2.712557E-02 0.0 0.0 0.0 21 G 9.994348E-01 0.0 1.839958E-02 0.0 0.0 0.0 22 G 9.766956E-01 0.0 1.679330E-02 0.0 0.0 0.0 23 G 9.564246E-01 0.0 1.519361E-02 0.0 0.0 0.0 24 G 9.375387E-01 0.0 1.358696E-02 0.0 0.0 0.0 25 G 1.000000E+00 0.0 5.585439E-13 0.0 0.0 0.0 26 G 9.772620E-01 0.0 2.078196E-13 0.0 0.0 0.0 27 G 9.569921E-01 0.0 -1.268177E-13 0.0 0.0 0.0 28 G 9.381050E-01 0.0 -4.408882E-13 0.0 0.0 0.0 29 G 9.994348E-01 0.0 -1.839958E-02 0.0 0.0 0.0 30 G 9.766956E-01 0.0 -1.679330E-02 0.0 0.0 0.0 31 G 9.564246E-01 0.0 -1.519361E-02 0.0 0.0 0.0 32 G 9.375387E-01 0.0 -1.358696E-02 0.0 0.0 0.0 33 G 9.977446E-01 0.0 -3.672466E-02 0.0 0.0 0.0 34 G 9.750016E-01 0.0 -3.351833E-02 0.0 0.0 0.0 35 G 9.547262E-01 0.0 -3.032718E-02 0.0 0.0 0.0 36 G 9.358434E-01 0.0 -2.712557E-02 0.0 0.0 0.0 37 G 9.949406E-01 0.0 -5.492388E-02 0.0 0.0 0.0 38 G 9.721913E-01 0.0 -5.012247E-02 0.0 0.0 0.0 39 G 9.519057E-01 0.0 -4.535472E-02 0.0 0.0 0.0 40 G 9.330276E-01 0.0 -4.058349E-02 0.0 0.0 0.0 41 G 9.910371E-01 0.0 -7.293779E-02 0.0 0.0 0.0 42 G 9.682822E-01 0.0 -6.653246E-02 0.0 0.0 0.0 43 G 9.479811E-01 0.0 -6.021316E-02 0.0 0.0 0.0 44 G 9.291136E-01 0.0 -5.391906E-02 0.0 0.0 0.0 45 G 9.860328E-01 0.0 -9.072368E-02 0.0 0.0 0.0 46 G 9.632818E-01 0.0 -8.267042E-02 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T03-10-1A 0 SUBCASE 1 EIGENVALUE = 0.122293E+09 (CYCLIC FREQUENCY = 1.760034E+03 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 47 G 9.429893E-01 0.0 -7.484650E-02 0.0 0.0 0.0 48 G 9.241526E-01 0.0 -6.709373E-02 0.0 0.0 0.0 49 G 9.797873E-01 0.0 -1.082766E-01 0.0 0.0 0.0 50 G 9.571791E-01 0.0 -9.849149E-02 0.0 0.0 0.0 51 G 9.370077E-01 0.0 -8.924261E-02 0.0 0.0 0.0 52 G 9.182331E-01 0.0 -8.006150E-02 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T03-10-1A 0 SUBCASE 1 EIGENVALUE = 0.115431E+10 (CYCLIC FREQUENCY = 5.407312E+03 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.000000E+00 0.0 -7.127498E-01 0.0 0.0 0.0 2 G 9.669811E-01 0.0 -2.426051E-01 0.0 0.0 0.0 3 G 9.478030E-01 0.0 1.927090E-01 0.0 0.0 0.0 4 G 9.393123E-01 0.0 6.464145E-01 0.0 0.0 0.0 5 G 6.519955E-01 0.0 -7.126544E-01 0.0 0.0 0.0 6 G 6.235925E-01 0.0 -2.479930E-01 0.0 0.0 0.0 7 G 6.107779E-01 0.0 1.737844E-01 0.0 0.0 0.0 8 G 6.111974E-01 0.0 6.221361E-01 0.0 0.0 0.0 9 G 2.892010E-01 0.0 -6.719176E-01 0.0 0.0 0.0 10 G 2.518869E-01 0.0 -2.341190E-01 0.0 0.0 0.0 11 G 2.467034E-01 0.0 1.494932E-01 0.0 0.0 0.0 12 G 2.703909E-01 0.0 5.720758E-01 0.0 0.0 0.0 13 G -5.528571E-02 0.0 -5.749021E-01 0.0 0.0 0.0 14 G -1.031466E-01 0.0 -1.996000E-01 0.0 0.0 0.0 15 G -1.009851E-01 0.0 1.192812E-01 0.0 0.0 0.0 16 G -5.306495E-02 0.0 4.818115E-01 0.0 0.0 0.0 17 G -3.390555E-01 0.0 -4.214100E-01 0.0 0.0 0.0 18 G -3.969231E-01 0.0 -1.458731E-01 0.0 0.0 0.0 19 G -3.887292E-01 0.0 8.347291E-02 0.0 0.0 0.0 20 G -3.195796E-01 0.0 3.498286E-01 0.0 0.0 0.0 21 G -5.256982E-01 0.0 -2.230998E-01 0.0 0.0 0.0 22 G -5.906829E-01 0.0 -7.709538E-02 0.0 0.0 0.0 23 G -5.785339E-01 0.0 4.305656E-02 0.0 0.0 0.0 24 G -4.949215E-01 0.0 1.842644E-01 0.0 0.0 0.0 25 G -5.908250E-01 0.0 1.227958E-07 0.0 0.0 0.0 26 G -6.583772E-01 0.0 1.227958E-07 0.0 0.0 0.0 27 G -6.448504E-01 0.0 1.227958E-07 0.0 0.0 0.0 28 G -5.561131E-01 0.0 1.227958E-07 0.0 0.0 0.0 29 G -5.256982E-01 0.0 2.231001E-01 0.0 0.0 0.0 30 G -5.906829E-01 0.0 7.709563E-02 0.0 0.0 0.0 31 G -5.785339E-01 0.0 -4.305632E-02 0.0 0.0 0.0 32 G -4.949215E-01 0.0 -1.842641E-01 0.0 0.0 0.0 33 G -3.390555E-01 0.0 4.214103E-01 0.0 0.0 0.0 34 G -3.969231E-01 0.0 1.458734E-01 0.0 0.0 0.0 35 G -3.887292E-01 0.0 -8.347267E-02 0.0 0.0 0.0 36 G -3.195796E-01 0.0 -3.498284E-01 0.0 0.0 0.0 37 G -5.528571E-02 0.0 5.749024E-01 0.0 0.0 0.0 38 G -1.031466E-01 0.0 1.996002E-01 0.0 0.0 0.0 39 G -1.009851E-01 0.0 -1.192809E-01 0.0 0.0 0.0 40 G -5.306495E-02 0.0 -4.818113E-01 0.0 0.0 0.0 41 G 2.892010E-01 0.0 6.719178E-01 0.0 0.0 0.0 42 G 2.518869E-01 0.0 2.341192E-01 0.0 0.0 0.0 43 G 2.467034E-01 0.0 -1.494929E-01 0.0 0.0 0.0 44 G 2.703909E-01 0.0 -5.720755E-01 0.0 0.0 0.0 45 G 6.519955E-01 0.0 7.126546E-01 0.0 0.0 0.0 46 G 6.235925E-01 0.0 2.479933E-01 0.0 0.0 0.0 1 TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T03-10-1A 0 SUBCASE 1 EIGENVALUE = 0.115431E+10 (CYCLIC FREQUENCY = 5.407312E+03 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 47 G 6.107779E-01 0.0 -1.737841E-01 0.0 0.0 0.0 48 G 6.111974E-01 0.0 -6.221358E-01 0.0 0.0 0.0 49 G 1.000000E+00 0.0 7.127500E-01 0.0 0.0 0.0 50 G 9.669811E-01 0.0 2.426053E-01 0.0 0.0 0.0 51 G 9.478030E-01 0.0 -1.927088E-01 0.0 0.0 0.0 52 G 9.393123E-01 0.0 -6.464143E-01 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM DATE: 5/17/95 END TIME: 16:44:45 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t03111a.out ================================================ NASTRAN FILES=NPTP **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T03111A,NASTRAN CHKPNT YES APP DISP SOL 3,0 DIAG 14 TIME 10 $INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) AFTER THIS CARD 0*** $ ... READFILE FROM- COSHYD1 $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - DIRECT FORMULATION (COSHYD1) $ ALTER 1,1 $ COSMIC/NASTRAN RF 3. REPLACING BEGIN DELETE BEGIN $ XDMAP GO,ERR=2 $ BEGIN HYDROELASTIC ANALYSIS - DIRECT FORMULATION $ $ ALTER 3 $ AFTER PRECHK/FILE INSERT FILE $ COMPOFF NEWM,NEWMODE $ $ ALTER 46 $ AFTER OFP/COND/PURGE INSERT GP4,3 $ FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ VEC USETF/PV1/*G*/*X*/*Y* $ PARTN KGG,PV1,/KXX,,,KYY $ PARTN MGG,PV1,/MXX,,, $ PARTN RG,PV1,/RX,,,/1 $ EQUIV RX,RG $ PARTN AF,PV1,/,,AXY,AYY $ COND DIRECT1,NOGRAV $ PARTN DKGG,PV1,/DKXX,,,DKYY $ COND DIRECT1,NOFREE $ VEC USETF/PV2/*Y*/*FR*/*COMP* $ PARTN AYY,,PV2/AFRY,,,/0 $ PARTN DKYY,PV2,/DKFRFR,,, $ LABEL DIRECT1 $ COMPOFF NOSTRUC,OLDSTR $ COMPON 2,DIFSTIF $ PARAMR //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $ ADD KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $ COMPOFF 1,DIFSTIF $ EQUIV KXX,KGG $ EQUIV MXX,MGG $ $ ALTER 49,50 $ REPLACING MCE1, MCE2 DELETE MCE1,MCE2 $ MCE1 USETS,RG/GM $ MCE2 USETS,GM,KGG,MGG,,/KNN,MNN,, $ $ ALTER 54,54 $ REPLACING SCE1 DELETE SCE1 $ 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 SCE1 USETS,KNN,MNN,,/KFF,KFS,,MFF,, $ $ ALTER 59,60 $ REPLACING SMP1, SMP2 DELETE SMP1,SMP2 $ SMP1 USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $ SMP2 USETS,GO,MFF/MAA $ $ ALTER 61 $ ALTER LABEL LBL5 INSERT SMP2,1 $ LABEL NOSTRUC $ PURGE DKAA/NOGRAV $ COND DIRECT4,NOGRAV $ EQUIV DKXX,DKNN/MPCF1 $ COND DIRECT2,MPCF2 $ MCE2 USETS,GM,DKXX,,,/DKNN,,, $ LABEL DIRECT2 $ EQUIV DKNN,DKFF/SINGLE $ COND DIRECT3,SINGLE $ SCE1 USETS,DKNN,,,/DKFF,,,,, $ LABEL DIRECT3 $ EQUIV DKFF,DKAA/OMIT $ COND DIRECT4,OMIT $ SMP2 USETS,GO,DKFF/DKAA $ LABEL DIRECT4 $ GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,,,/KMAT, MMAT,GIA,,HC/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=-1 $ EQUIV KMAT,KAA//MMAT,MAA $ $ ALTER 63,63 $ REPLACING RBMG1 DELETE RBMG1 $ RBMG1 USETF,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ $ ALTER 67 $ AFTER LABEL LBL6 INSERT DPD,-1 $ LABEL NEWM $ $ ALTER 68,68 $ REPLACING DPD DELETE DPD $ DPD DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ $ ALTER 71,71 $ REPLACING READ DELETE READ $ READ KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ $ ALTER 75,75 $ REPLACING SDR1 DELETE SDR1 $ COND NOCOMP,COMPTYP $ MPYAD HC,PHIA,/PHIAC/0/1/0 $ EQUIV PHIAC,PHIA $ LABEL NOCOMP $ MPYAD GIA,PHIA,/PHII/0/1/0 $ EQUIV PHII,PHIY/NOFREE $ 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 COND DIRECT5,NOFREE $ VEC USETF/PV3/*A*/*COMP*/*FR* $ PARTN PHIA,,PV3/PHIAB,PHIFR,,/0 $ EQUIV PHIAB,PHIA $ MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ LABEL DIRECT5 $ SDR1 USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $ MERGE PHIX,PHIY,,,,PV1/PHIG/0 $ MERGE QX,,,,,PV1/QG/0 $ $ ALTER 77,77 $ REPLACING EQMCK DELETE EQMCK $ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ ENDALTER $ 0*** $ END READFILE $INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) BEFORE THIS CARD CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 7 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE PUNCHED OUT FOR THIS PROBLEM 0 RESTART T03111A ,NASTRAN , 5/17/95, 60361, 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T03-11-1A 3 $ TEST PROBLEM I.1 - FULL SOLUTION 4 DISP = ALL 5 SPCF = ALL 6 METHOD = 50 7 SPC = 10 8 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 33, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CFFREE 1 100 6 2- CFHEX2 1 200 1 2 4 3 5 6 +CFH1 3- +CFH1 8 7 4- CFLSTR 1 100 101 THRU 104 5- CQUAD2 101 100 101 102 106 105 6- CQUAD2 102 100 102 104 108 106 7- CQUAD2 103 100 104 103 107 108 8- CQUAD2 104 100 101 103 104 102 9- EIGR 50 GIV 0.0 20.0 6 6 0 +E1 10- +E1 MAX 11- GRAV 100 386.0 0.0 0.0 -1.0 12- GRID 1 0.0 0.0 0.0 13- GRID 2 6.0 0.0 0.0 14- GRID 3 0.0 12.0 0.0 15- GRID 4 6.0 12.0 0.0 16- GRID 5 0.0 0.0 12.0 17- GRID 6 6.0 0.0 12.0 18- GRID 7 0.0 12.0 12.0 19- GRID 8 6.0 12.0 12.0 20- GRID 101 0.0 0.0 0.0 21- GRID 102 6.0 0.0 0.0 22- GRID 103 0.0 12.0 0.0 23- GRID 104 6.0 12.0 0.0 24- GRID 105 0.0 0.0 12.0 25- GRID 106 6.0 0.0 12.0 26- GRID 107 0.0 12.0 12.0 27- GRID 108 6.0 12.0 12.0 28- MAT1 100 10.6+6 .3 .92-3 29- MATF 200 9.355-4 30- OMIT1 4 101 103 105 107 31- OMIT1 456 102 104 106 108 32- PQUAD2 100 100 .06 33- SPC1 10 1256 101 103 105 107 ENDDATA 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 XDMAP GO,ERR=2 $ 1 BEGIN HYDROELASTIC ANALYSIS - DIRECT FORMULATION $ 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ 3 COMPOFF NEWM,NEWMODE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1//$ 20 LABEL P1 $ 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR4,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 LABEL JMPKGG $ 32 COND ERROR1,NOMGG $ 33 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 34 PURGE MDICT,MELM/ALWAYS $ 35 COND LGPWG,GRDPNT $ 36 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 37 OFP OGPWG,,,,,//S,N,CARDNO $ 38 LABEL LGPWG $ 39 EQUIV KGGX,KGG/NOGENL $ 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T03-11-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 40 COND LBL11,NOGENL $ 41 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 42 LABEL LBL11 $ 43 GPSTGEN KGG,SIL/GPST $ 44 PARAM //*MPY*/NSKIP/0/0 $ 45 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 46 OFP OGPST,,,,,//S,N,CARDNO $ 47 COND ERROR3,NOL $ 48 PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ 48 FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ 48 VEC USETF/PV1/*G*/*X*/*Y* $ 48 PARTN KGG,PV1,/KXX,,,KYY $ 48 PARTN MGG,PV1,/MXX,,, $ 48 PARTN RG,PV1,/RX,,,/1 $ 48 EQUIV RX,RG $ 48 PARTN AF,PV1,/,,AXY,AYY $ 48 COND DIRECT1,NOGRAV $ 48 PARTN DKGG,PV1,/DKXX,,,DKYY $ 48 COND DIRECT1,NOFREE $ 48 VEC USETF/PV2/*Y*/*FR*/*COMP* $ 48 PARTN AYY,,PV2/AFRY,,,/0 $ 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T03-11-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 48 PARTN DKYY,PV2,/DKFRFR,,, $ 48 LABEL DIRECT1 $ 48 COMPOFF NOSTRUC,OLDSTR $ 48 COMPON 2,DIFSTIF $ 48 COMPOFF 1,DIFSTIF $ 48 EQUIV KXX,KGG $ 48 EQUIV MXX,MGG $ 49 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 50 COND LBL2,MPCF1 $ 52 MCE1 USETS,RG/GM $ 52 MCE2 USETS,GM,KGG,MGG,,/KNN,MNN,, $ 53 LABEL LBL2 $ 54 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 55 COND LBL3,SINGLE $ 56 SCE1 USETS,KNN,MNN,,/KFF,KFS,,MFF,, $ 57 LABEL LBL3 $ 58 EQUIV KFF,KAA/OMIT $ 59 EQUIV MFF,MAA/OMIT $ 60 COND LBL5,OMIT $ 62 SMP1 USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 62 SMP2 USETS,GO,MFF/MAA $ 63 LABEL LBL5 $ 63 LABEL NOSTRUC $ 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T03-11-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 63 PURGE DKAA/NOGRAV $ 63 COND DIRECT4,NOGRAV $ 63 EQUIV DKXX,DKNN/MPCF1 $ 63 COND DIRECT2,MPCF2 $ 63 MCE2 USETS,GM,DKXX,,,/DKNN,,, $ 63 LABEL DIRECT2 $ 63 EQUIV DKNN,DKFF/SINGLE $ 63 COND DIRECT3,SINGLE $ 63 SCE1 USETS,DKNN,,,/DKFF,,,,, $ 63 LABEL DIRECT3 $ 63 EQUIV DKFF,DKAA/OMIT $ 63 COND DIRECT4,OMIT $ 63 SMP2 USETS,GO,DKFF/DKAA $ 63 LABEL DIRECT4 $ 63 GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,,,/KMAT, MMAT,GIA,,HC/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=-1 $ 63 EQUIV KMAT,KAA//MMAT,MAA $ 64 COND LBL6,REACT $ 65 RBMG1 USETF,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 66 RBMG2 KLL/LLL $ 67 RBMG3 LLL,KLR,KRR/DM $ 68 RBMG4 DM,MLL,MLR,MRR/MR $ 69 LABEL LBL6 $ 69 LABEL NEWM $ 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T03-11-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 70 DPD DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ 71 COND ERROR2,NOEED $ 72 PARAM //*MPY*/NEIGV/1/-1 $ 73 READ KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ 74 OFP OEIGS,,,,,//S,N,CARDNO $ 75 COND FINIS,NEIGV $ 76 OFP LAMA,,,,,//S,N,CARDNO $ 77 COND NOCOMP,COMPTYP $ 77 MPYAD HC,PHIA,/PHIAC/0/1/0 $ 77 EQUIV PHIAC,PHIA $ 77 LABEL NOCOMP $ 77 MPYAD GIA,PHIA,/PHII/0/1/0 $ 77 EQUIV PHII,PHIY/NOFREE $ 77 COND DIRECT5,NOFREE $ 77 VEC USETF/PV3/*A*/*COMP*/*FR* $ 77 PARTN PHIA,,PV3/PHIAB,PHIFR,,/0 $ 77 EQUIV PHIAB,PHIA $ 77 MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ 77 LABEL DIRECT5 $ 77 SDR1 USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $ 77 MERGE PHIX,PHIY,,,,PV1/PHIG/0 $ 77 MERGE QX,,,,,PV1/QG/0 $ 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T03-11-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 78 COND NOMPCF,GRDEQ $ 79 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ 80 OFP OQM1,,,,,//S,N,CARDNO $ 81 LABEL NOMPCF $ 82 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ *REIG*////COMPS $ 83 OFP OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $ 84 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 85 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 86 GPFDR CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ 87 OFP ONRGY1,,,,,//S,N,CARDNO $ 88 PURGE KDICT,KELM/ALWAYS $ 89 COND P2,JUMPPLOT $ 90 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 91 PRTMSG PLOTX2// $ 92 LABEL P2 $ 93 JUMP FINIS $ 94 LABEL ERROR1 $ 95 PRTPARM //-1/*MODES* $ 96 LABEL ERROR2 $ 97 PRTPARM //-2/*MODES* $ 98 LABEL ERROR3 $ 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T03-11-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 99 PRTPARM //-3/*MODES* $ 100 LABEL ERROR4 $ 101 PRTPARM //-4/*MODES* $ 102 LABEL FINIS $ 103 PURGE DUMMY/ALWAYS $ 104 END $ 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T03-11-1A 0 CONTINUATION OF CHECKPOINT DICTIONARY 1, XVPS , FLAGS = 0, REEL = 1, FILE = 6 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 8 PROFILE 69 MAX WAVEFRONT 8 AVG WAVEFRONT 4.312 RMS WAVEFRONT 4.789 RMS BANDWIDTH 4.802 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 8 PROFILE 64 MAX WAVEFRONT 8 AVG WAVEFRONT 4.000 RMS WAVEFRONT 4.444 RMS BANDWIDTH 4.444 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 8 8 PROFILE (P) 69 64 MAXIMUM WAVEFRONT (C-MAX) 8 8 AVERAGE WAVEFRONT (C-AVG) 4.312 4.000 RMS WAVEFRONT (C-RMS) 4.789 4.444 RMS BANDWITCH (B-RMS) 4.802 4.444 NUMBER OF GRID POINTS (N) 16 NUMBER OF ELEMENTS (NON-RIGID) 5 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 2 MAXIMUM NODAL DEGREE 7 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 47 MATRIX DENSITY, PERCENT 42.969 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 4 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T03-11-1A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 9 2 16 3 11 4 10 SEQGP 5 12 6 13 7 15 8 14 SEQGP 101 2 102 4 103 5 104 6 SEQGP 105 1 106 3 107 8 108 7 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** SYSTEM WARNING MESSAGE 2072, CARD TYPE 4802 NOT FOUND ON DATA BLOCK. BIT POSITION = 48 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 2, REENTER AT DMAP SEQUENCE NUMBER 6 3, GPL , FLAGS = 0, REEL = 1, FILE = 7 4, EQEXIN , FLAGS = 0, REEL = 1, FILE = 8 5, GPDT , FLAGS = 0, REEL = 1, FILE = 9 6, BGPDT , FLAGS = 0, REEL = 1, FILE = 10 7, SIL , FLAGS = 0, REEL = 1, FILE = 11 8, XVPS , FLAGS = 0, REEL = 1, FILE = 12 9, CSTM , FLAGS = 0, REEL = 0, FILE = 0 10, REENTER AT DMAP SEQUENCE NUMBER 7 11, XVPS , FLAGS = 0, REEL = 1, FILE = 13 12, MPTA , FLAGS = 0, REEL = 0, FILE = 0 13, REENTER AT DMAP SEQUENCE NUMBER 8 14, MPT , FLAGS = 0, REEL = 1, FILE = 14 15, XVPS , FLAGS = 0, REEL = 1, FILE = 15 16, REENTER AT DMAP SEQUENCE NUMBER 9 17, BGPDP , FLAGS = 0, REEL = 1, FILE = 16 18, SIP , FLAGS = 0, REEL = 1, FILE = 17 19, XVPS , FLAGS = 0, REEL = 1, FILE = 18 20, REENTER AT DMAP SEQUENCE NUMBER 10 21, ECT , FLAGS = 0, REEL = 1, FILE = 19 22, XVPS , FLAGS = 0, REEL = 1, FILE = 20 23, REENTER AT DMAP SEQUENCE NUMBER 12 24, XVPS , FLAGS = 0, REEL = 1, FILE = 21 25, PLTSETX , FLAGS = 0, REEL = 0, FILE = 0 26, PLTPAR , FLAGS = 0, REEL = 0, FILE = 0 27, GPSETS , FLAGS = 0, REEL = 0, FILE = 0 28, ELSETS , FLAGS = 0, REEL = 0, FILE = 0 29, REENTER AT DMAP SEQUENCE NUMBER 22 30, XVPS , FLAGS = 0, REEL = 1, FILE = 22 31, GPTT , FLAGS = 0, REEL = 0, FILE = 0 32, REENTER AT DMAP SEQUENCE NUMBER 23 33, EST , FLAGS = 0, REEL = 1, FILE = 23 34, GPECT , FLAGS = 0, REEL = 1, FILE = 24 35, XVPS , FLAGS = 0, REEL = 1, FILE = 25 36, GEI , FLAGS = 0, REEL = 0, FILE = 0 37, MPTX , FLAGS = 0, REEL = 0, FILE = 0 38, PCOMPS , FLAGS = 0, REEL = 0, FILE = 0 39, EPTX , FLAGS = 0, REEL = 0, FILE = 0 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 40, REENTER AT DMAP SEQUENCE NUMBER 24 41, MPT , FLAGS = 0, REEL = 1, FILE = 26 42, EPT , FLAGS = 0, REEL = 1, FILE = 27 43, XVPS , FLAGS = 0, REEL = 1, FILE = 28 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FHEX2 ELEMENTS (ELEMENT TYPE 77) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 101 44, REENTER AT DMAP SEQUENCE NUMBER 28 45, KELM , FLAGS = 0, REEL = 1, FILE = 29 46, KDICT , FLAGS = 0, REEL = 1, FILE = 30 47, MELM , FLAGS = 0, REEL = 1, FILE = 31 48, MDICT , FLAGS = 0, REEL = 1, FILE = 32 49, XVPS , FLAGS = 0, REEL = 1, FILE = 33 50, REENTER AT DMAP SEQUENCE NUMBER 29 51, XVPS , FLAGS = 0, REEL = 1, FILE = 34 52, KGGX , FLAGS = 0, REEL = 0, FILE = 0 53, REENTER AT DMAP SEQUENCE NUMBER 31 54, KGGX , FLAGS = 0, REEL = 1, FILE = 35 55, XVPS , FLAGS = 0, REEL = 1, FILE = 36 56, REENTER AT DMAP SEQUENCE NUMBER 34 57, MGG , FLAGS = 0, REEL = 1, FILE = 37 58, XVPS , FLAGS = 0, REEL = 1, FILE = 38 59, REENTER AT DMAP SEQUENCE NUMBER 35 60, XVPS , FLAGS = 0, REEL = 1, FILE = 39 61, MDICT , FLAGS = 0, REEL = 0, FILE = 0 62, MELM , FLAGS = 0, REEL = 0, FILE = 0 63, REENTER AT DMAP SEQUENCE NUMBER 40 64, KGGX , FLAGS = 4, REEL = 1, FILE = 35 65, KGG , FLAGS = 4, REEL = 1, FILE = 35 66, XVPS , FLAGS = 0, REEL = 1, FILE = 40 67, REENTER AT DMAP SEQUENCE NUMBER 44 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 68, GPST , FLAGS = 0, REEL = 1, FILE = 41 69, XVPS , FLAGS = 0, REEL = 1, FILE = 42 70, REENTER AT DMAP SEQUENCE NUMBER 46 71, YS , FLAGS = 0, REEL = 1, FILE = 43 72, USET , FLAGS = 0, REEL = 1, FILE = 44 73, XVPS , FLAGS = 0, REEL = 1, FILE = 45 74, RG , FLAGS = 0, REEL = 0, FILE = 0 75, ASET , FLAGS = 0, REEL = 0, FILE = 0 76, OGPST , FLAGS = 0, REEL = 0, FILE = 0 77, REENTER AT DMAP SEQUENCE NUMBER 48 78, XVPS , FLAGS = 0, REEL = 1, FILE = 46 79, KRR , FLAGS = 0, REEL = 0, FILE = 0 80, KLR , FLAGS = 0, REEL = 0, FILE = 0 81, DM , FLAGS = 0, REEL = 0, FILE = 0 82, MLR , FLAGS = 0, REEL = 0, FILE = 0 83, MR , FLAGS = 0, REEL = 0, FILE = 0 84, GM , FLAGS = 0, REEL = 0, FILE = 0 85, GO , FLAGS = 0, REEL = 0, FILE = 0 86, KFS , FLAGS = 0, REEL = 0, FILE = 0 87, QG , FLAGS = 0, REEL = 0, FILE = 0 88, REENTER AT DMAP SEQUENCE NUMBER 49 89, USETF , FLAGS = 0, REEL = 1, FILE = 47 90, USETS , FLAGS = 0, REEL = 1, FILE = 48 91, AF , FLAGS = 0, REEL = 1, FILE = 49 92, DKGG , FLAGS = 0, REEL = 1, FILE = 50 93, XVPS , FLAGS = 0, REEL = 1, FILE = 51 94, REENTER AT DMAP SEQUENCE NUMBER 49 95, PV1 , FLAGS = 0, REEL = 1, FILE = 52 96, XVPS , FLAGS = 0, REEL = 1, FILE = 53 97, REENTER AT DMAP SEQUENCE NUMBER 49 98, KXX , FLAGS = 0, REEL = 1, FILE = 54 99, KYY , FLAGS = 0, REEL = 1, FILE = 55 100, XVPS , FLAGS = 0, REEL = 1, FILE = 56 101, REENTER AT DMAP SEQUENCE NUMBER 49 102, MXX , FLAGS = 0, REEL = 1, FILE = 57 103, XVPS , FLAGS = 0, REEL = 1, FILE = 58 104, REENTER AT DMAP SEQUENCE NUMBER 49 105, XVPS , FLAGS = 0, REEL = 1, FILE = 59 106, RX , FLAGS = 0, REEL = 0, FILE = 0 107, REENTER AT DMAP SEQUENCE NUMBER 48 108, XVPS , FLAGS = 0, REEL = 1, FILE = 60 109, REENTER AT DMAP SEQUENCE NUMBER 49 110, AXY , FLAGS = 0, REEL = 1, FILE = 61 111, AYY , FLAGS = 0, REEL = 1, FILE = 62 112, XVPS , FLAGS = 0, REEL = 1, FILE = 63 113, REENTER AT DMAP SEQUENCE NUMBER 49 114, DKXX , FLAGS = 0, REEL = 1, FILE = 64 115, DKYY , FLAGS = 0, REEL = 1, FILE = 65 116, XVPS , FLAGS = 0, REEL = 1, FILE = 66 117, REENTER AT DMAP SEQUENCE NUMBER 49 118, PV2 , FLAGS = 0, REEL = 1, FILE = 67 119, XVPS , FLAGS = 0, REEL = 1, FILE = 68 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN -1 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 120, REENTER AT DMAP SEQUENCE NUMBER 49 121, AFRY , FLAGS = 0, REEL = 1, FILE = 69 122, XVPS , FLAGS = 0, REEL = 1, FILE = 70 123, REENTER AT DMAP SEQUENCE NUMBER 49 124, DKFRFR , FLAGS = 0, REEL = 1, FILE = 71 125, XVPS , FLAGS = 0, REEL = 1, FILE = 72 126, REENTER AT DMAP SEQUENCE NUMBER 48 127, KXX , FLAGS = 4, REEL = 1, FILE = 35 128, XVPS , FLAGS = 0, REEL = 1, FILE = 73 129, REENTER AT DMAP SEQUENCE NUMBER 48 130, MXX , FLAGS = 4, REEL = 1, FILE = 57 131, MGG , FLAGS = 4, REEL = 1, FILE = 57 132, XVPS , FLAGS = 0, REEL = 1, FILE = 74 133, REENTER AT DMAP SEQUENCE NUMBER 50 134, KNN , FLAGS = 4, REEL = 1, FILE = 35 135, MNN , FLAGS = 4, REEL = 1, FILE = 57 136, XVPS , FLAGS = 0, REEL = 1, FILE = 75 137, REENTER AT DMAP SEQUENCE NUMBER 55 138, XVPS , FLAGS = 0, REEL = 1, FILE = 76 139, KFF , FLAGS = 0, REEL = 0, FILE = 0 140, MFF , FLAGS = 0, REEL = 0, FILE = 0 141, REENTER AT DMAP SEQUENCE NUMBER 57 142, KFF , FLAGS = 0, REEL = 1, FILE = 77 143, KFS , FLAGS = 0, REEL = 1, FILE = 78 144, MFF , FLAGS = 0, REEL = 1, FILE = 79 145, XVPS , FLAGS = 0, REEL = 1, FILE = 80 146, REENTER AT DMAP SEQUENCE NUMBER 59 147, XVPS , FLAGS = 0, REEL = 1, FILE = 81 148, KAA , FLAGS = 0, REEL = 0, FILE = 0 149, REENTER AT DMAP SEQUENCE NUMBER 60 150, XVPS , FLAGS = 0, REEL = 1, FILE = 82 151, MAA , FLAGS = 0, REEL = 0, FILE = 0 152, REENTER AT DMAP SEQUENCE NUMBER 63 153, GO , FLAGS = 0, REEL = 1, FILE = 83 154, KAA , FLAGS = 0, REEL = 1, FILE = 84 155, KOO , FLAGS = 0, REEL = 1, FILE = 85 156, LOO , FLAGS = 0, REEL = 1, FILE = 86 157, XVPS , FLAGS = 0, REEL = 1, FILE = 87 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 158, REENTER AT DMAP SEQUENCE NUMBER 63 159, MAA , FLAGS = 0, REEL = 1, FILE = 88 160, XVPS , FLAGS = 0, REEL = 1, FILE = 89 161, REENTER AT DMAP SEQUENCE NUMBER 63 162, XVPS , FLAGS = 0, REEL = 1, FILE = 90 163, DKAA , FLAGS = 0, REEL = 0, FILE = 0 164, REENTER AT DMAP SEQUENCE NUMBER 63 165, DKXX , FLAGS = 4, REEL = 1, FILE = 64 166, DKNN , FLAGS = 4, REEL = 1, FILE = 64 167, XVPS , FLAGS = 0, REEL = 1, FILE = 91 168, REENTER AT DMAP SEQUENCE NUMBER 63 169, XVPS , FLAGS = 0, REEL = 1, FILE = 92 170, DKFF , FLAGS = 0, REEL = 0, FILE = 0 171, REENTER AT DMAP SEQUENCE NUMBER 64 172, DKFF , FLAGS = 0, REEL = 1, FILE = 93 173, XVPS , FLAGS = 0, REEL = 1, FILE = 94 174, REENTER AT DMAP SEQUENCE NUMBER 63 175, XVPS , FLAGS = 0, REEL = 1, FILE = 95 176, REENTER AT DMAP SEQUENCE NUMBER 64 177, DKAA , FLAGS = 0, REEL = 1, FILE = 96 178, XVPS , FLAGS = 0, REEL = 1, FILE = 97 179, REENTER AT DMAP SEQUENCE NUMBER 64 180, KMAT , FLAGS = 0, REEL = 1, FILE = 98 181, MMAT , FLAGS = 0, REEL = 1, FILE = 99 182, GIA , FLAGS = 0, REEL = 1, FILE = 100 183, XVPS , FLAGS = 0, REEL = 1, FILE = 101 184, HC , FLAGS = 0, REEL = 0, FILE = 0 185, REENTER AT DMAP SEQUENCE NUMBER 63 186, KMAT , FLAGS = 4, REEL = 1, FILE = 98 187, KAA , FLAGS = 4, REEL = 1, FILE = 98 188, MMAT , FLAGS = 4, REEL = 1, FILE = 99 189, MAA , FLAGS = 4, REEL = 1, FILE = 99 190, XVPS , FLAGS = 0, REEL = 1, FILE = 102 191, REENTER AT DMAP SEQUENCE NUMBER 71 192, GPLD , FLAGS = 0, REEL = 1, FILE = 103 193, SILD , FLAGS = 0, REEL = 1, FILE = 104 194, USETD , FLAGS = 0, REEL = 1, FILE = 105 195, EED , FLAGS = 0, REEL = 1, FILE = 106 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 196, EQDYN , FLAGS = 0, REEL = 1, FILE = 107 197, XVPS , FLAGS = 0, REEL = 1, FILE = 108 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 20, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 198, REENTER AT DMAP SEQUENCE NUMBER 74 199, LAMA , FLAGS = 0, REEL = 1, FILE = 109 200, PHIA , FLAGS = 0, REEL = 1, FILE = 110 201, MI , FLAGS = 0, REEL = 1, FILE = 111 202, OEIGS , FLAGS = 0, REEL = 1, FILE = 112 203, XVPS , FLAGS = 0, REEL = 1, FILE = 113 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T03-11-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 20 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 6 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T03-11-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 20 -1.574360E-01 3.967821E-01 6.314982E-02 8.241057E-01 -1.297439E-01 2 19 1.490165E+02 1.220723E+01 1.942841E+00 9.558012E-02 1.424301E+01 3 18 6.146243E+02 2.479162E+01 3.945709E+00 8.442471E-03 5.188948E+00 4 17 7.383849E+02 2.717324E+01 4.324755E+00 1.173733E-02 8.666667E+00 5 16 2.104516E+03 4.587500E+01 7.301233E+00 3.317664E-03 6.982076E+00 6 15 1.056520E+06 1.027872E+03 1.635909E+02 1.882236E-02 1.988621E+04 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 204, REENTER AT DMAP SEQUENCE NUMBER 78 205, PHII , FLAGS = 0, REEL = 1, FILE = 114 206, XVPS , FLAGS = 0, REEL = 1, FILE = 115 207, REENTER AT DMAP SEQUENCE NUMBER 77 208, XVPS , FLAGS = 0, REEL = 1, FILE = 116 209, PHIY , FLAGS = 0, REEL = 0, FILE = 0 210, REENTER AT DMAP SEQUENCE NUMBER 78 211, PV3 , FLAGS = 0, REEL = 1, FILE = 117 212, XVPS , FLAGS = 0, REEL = 1, FILE = 118 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN -1 213, REENTER AT DMAP SEQUENCE NUMBER 78 214, PHIAB , FLAGS = 0, REEL = 1, FILE = 119 215, PHIFR , FLAGS = 0, REEL = 1, FILE = 120 216, XVPS , FLAGS = 0, REEL = 1, FILE = 121 217, REENTER AT DMAP SEQUENCE NUMBER 77 218, PHIAB , FLAGS = 4, REEL = 1, FILE = 119 219, PHIA , FLAGS = 4, REEL = 1, FILE = 119 220, XVPS , FLAGS = 0, REEL = 1, FILE = 122 221, REENTER AT DMAP SEQUENCE NUMBER 78 222, PHIY , FLAGS = 0, REEL = 1, FILE = 123 223, XVPS , FLAGS = 0, REEL = 1, FILE = 124 224, REENTER AT DMAP SEQUENCE NUMBER 78 225, PHIX , FLAGS = 0, REEL = 1, FILE = 125 226, QX , FLAGS = 0, REEL = 1, FILE = 126 227, XVPS , FLAGS = 0, REEL = 1, FILE = 127 228, REENTER AT DMAP SEQUENCE NUMBER 78 229, PHIG , FLAGS = 0, REEL = 1, FILE = 128 230, XVPS , FLAGS = 0, REEL = 1, FILE = 129 231, REENTER AT DMAP SEQUENCE NUMBER 78 232, QG , FLAGS = 0, REEL = 1, FILE = 130 233, XVPS , FLAGS = 0, REEL = 1, FILE = 131 234, REENTER AT DMAP SEQUENCE NUMBER 83 235, OQG1 , FLAGS = 0, REEL = 1, FILE = 132 236, OPHIG , FLAGS = 0, REEL = 1, FILE = 133 237, XVPS , FLAGS = 0, REEL = 1, FILE = 134 238, OES1 , FLAGS = 0, REEL = 0, FILE = 0 239, OEF1 , FLAGS = 0, REEL = 0, FILE = 0 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 240, PPHIG , FLAGS = 0, REEL = 0, FILE = 0 241, OES1L , FLAGS = 0, REEL = 0, FILE = 0 242, OEF1L , FLAGS = 0, REEL = 0, FILE = 0 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T03-11-1A 0 EIGENVALUE = -0.157436E+00 (CYCLIC FREQUENCY = 6.314982E-02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -5.598960E-03 -5.598960E-03 -5.598960E-03 -5.598960E-03 9.949976E-01 9.949976E-01 7 S 9.949976E-01 9.949976E-01 101 G 0.0 0.0 9.999999E-01 -1.055035E-09 0.0 0.0 102 G -4.341493E-09 5.403810E-09 1.000000E+00 -2.507638E-09 -5.563024E-09 2.252605E-09 103 G 0.0 0.0 9.999999E-01 1.003996E-09 0.0 0.0 104 G -4.341477E-09 -5.403821E-09 1.000000E+00 2.456304E-09 -5.552605E-09 -2.249112E-09 105 G 0.0 0.0 1.000000E+00 1.108506E-09 0.0 0.0 106 G -9.237590E-08 4.321775E-08 1.000000E+00 -6.026250E-09 -8.255100E-09 6.876463E-09 107 G 0.0 0.0 1.000000E+00 -1.060308E-09 0.0 0.0 108 G -9.237590E-08 -4.262265E-08 1.000000E+00 5.939850E-09 -8.252523E-09 -6.818549E-09 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T03-11-1A 0 EIGENVALUE = 0.149016E+03 (CYCLIC FREQUENCY = 1.942841E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 1.478377E-03 1.506438E-03 -1.478377E-03 -1.506438E-03 7.336706E-01 1.000000E+00 7 S -7.336706E-01 -1.000000E+00 101 G 0.0 0.0 -1.755954E-01 3.011218E-02 0.0 0.0 102 G 6.349273E-06 4.301569E-06 -1.755882E-01 3.028689E-02 6.149413E-03 -2.061432E-03 103 G 0.0 0.0 1.755954E-01 3.011218E-02 0.0 0.0 104 G -6.349273E-06 4.301569E-06 1.755882E-01 3.028689E-02 -6.149413E-03 -2.061432E-03 105 G 0.0 0.0 -1.755923E-01 -2.843740E-02 0.0 0.0 106 G 1.048895E-05 -3.511246E-01 -1.755857E-01 5.097920E-02 1.521364E-03 -3.416960E-02 107 G 0.0 0.0 1.755923E-01 -2.843740E-02 0.0 0.0 108 G -1.048895E-05 -3.511246E-01 1.755858E-01 5.097920E-02 -1.521364E-03 -3.416960E-02 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T03-11-1A 0 EIGENVALUE = 0.614624E+03 (CYCLIC FREQUENCY = 3.945709E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 2.338617E-05 5.657752E-05 -2.338617E-05 -5.657752E-05 -1.000000E+00 2.992465E-01 7 S 1.000000E+00 -2.992465E-01 101 G 0.0 0.0 -4.361983E-02 7.480476E-03 0.0 0.0 102 G 1.031749E-06 4.962470E-07 -4.362035E-02 7.524204E-03 1.528166E-03 -5.122993E-04 103 G 0.0 0.0 4.361983E-02 7.480476E-03 0.0 0.0 104 G -1.031749E-06 4.962470E-07 4.362035E-02 7.524204E-03 -1.528166E-03 -5.122993E-04 105 G 0.0 0.0 -4.362058E-02 -7.064640E-03 0.0 0.0 106 G 3.864274E-06 -8.723261E-02 -4.362027E-02 1.266519E-02 3.779814E-04 -8.488951E-03 107 G 0.0 0.0 4.362058E-02 -7.064640E-03 0.0 0.0 108 G -3.864275E-06 -8.723261E-02 4.362027E-02 1.266519E-02 -3.779814E-04 -8.488951E-03 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T03-11-1A 0 EIGENVALUE = 0.738385E+03 (CYCLIC FREQUENCY = 4.324755E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -2.125797E-05 2.125853E-05 -2.125797E-05 2.125853E-05 1.000000E+00 -9.999549E-01 7 S 1.000000E+00 -9.999549E-01 101 G 0.0 0.0 -2.773032E-06 -2.259596E-07 0.0 0.0 102 G -3.023221E-07 8.218467E-07 1.363598E-06 -5.091817E-07 -1.017367E-06 3.998834E-07 103 G 0.0 0.0 -2.773113E-06 2.259458E-07 0.0 0.0 104 G -3.023221E-07 -8.218467E-07 1.363518E-06 5.091678E-07 -1.017364E-06 -3.998825E-07 105 G 0.0 0.0 1.734582E-06 2.144363E-07 0.0 0.0 106 G -1.835468E-05 8.560998E-06 5.469420E-06 -1.235896E-06 -1.761336E-06 1.365491E-06 107 G 0.0 0.0 1.734501E-06 -2.144232E-07 0.0 0.0 108 G -1.835468E-05 -8.560836E-06 5.469339E-06 1.235873E-06 -1.761335E-06 -1.365475E-06 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T03-11-1A 0 EIGENVALUE = 0.210452E+04 (CYCLIC FREQUENCY = 7.301233E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -2.802548E-04 -2.730815E-04 2.802548E-04 2.730815E-04 4.301552E-02 1.000000E+00 7 S -4.301552E-02 -1.000000E+00 101 G 0.0 0.0 1.036628E-01 -1.777177E-02 0.0 0.0 102 G -1.447177E-05 -1.265815E-05 1.036233E-01 -1.787022E-02 -3.620178E-03 1.213211E-03 103 G 0.0 0.0 -1.036628E-01 -1.777177E-02 0.0 0.0 104 G 1.447177E-05 -1.265815E-05 -1.036233E-01 -1.787022E-02 3.620178E-03 1.213211E-03 105 G 0.0 0.0 1.036383E-01 1.677911E-02 0.0 0.0 106 G 2.710869E-05 2.071208E-01 1.036114E-01 -3.007034E-02 -8.953571E-04 2.015839E-02 107 G 0.0 0.0 -1.036383E-01 1.677911E-02 0.0 0.0 108 G -2.710869E-05 2.071208E-01 -1.036114E-01 -3.007034E-02 8.953571E-04 2.015839E-02 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T03-11-1A 0 EIGENVALUE = 0.105652E+07 (CYCLIC FREQUENCY = 1.635909E+02 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -1.262930E-04 -1.397049E-04 -1.262930E-04 -1.397049E-04 1.000000E+00 9.916126E-01 7 S 1.000000E+00 9.916126E-01 101 G 0.0 0.0 -9.541942E-01 -4.393441E-04 0.0 0.0 102 G -6.968259E-03 2.873408E-03 -9.618446E-01 2.111697E-04 1.517268E-03 4.400939E-04 103 G 0.0 0.0 -9.541942E-01 4.393441E-04 0.0 0.0 104 G -6.968259E-03 -2.873408E-03 -9.618446E-01 -2.111697E-04 1.517268E-03 -4.400939E-04 105 G 0.0 0.0 -9.612761E-01 3.634852E-04 0.0 0.0 106 G 1.171517E-03 -5.257217E-05 -9.654863E-01 4.480082E-04 6.801585E-05 1.557090E-04 107 G 0.0 0.0 -9.612761E-01 -3.634852E-04 0.0 0.0 108 G 1.171517E-03 5.257217E-05 -9.654863E-01 -4.480082E-04 6.801585E-05 -1.557090E-04 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T03-11-1A 0 EIGENVALUE = -0.157436E+00 (CYCLIC FREQUENCY = 6.314982E-02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 1.719255E-03 -8.667480E-04 0.0 0.0 2.558303E-06 -6.024101E-07 103 G 1.719227E-03 8.667491E-04 0.0 0.0 2.558737E-06 5.972816E-07 105 G 6.487316E-02 -1.208685E-06 0.0 0.0 0.0 -5.077358E-06 107 G 6.487317E-02 1.185887E-06 0.0 0.0 0.0 5.004237E-06 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T03-11-1A 0 EIGENVALUE = 0.149016E+03 (CYCLIC FREQUENCY = 1.942841E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -1.053511E+01 -4.726437E-01 0.0 0.0 2.554920E-01 3.026532E+00 103 G 1.053511E+01 -4.726437E-01 0.0 0.0 -2.554920E-01 3.026532E+00 105 G -6.783674E+00 1.345178E+01 0.0 0.0 0.0 4.314383E+01 107 G 6.783674E+00 1.345178E+01 0.0 0.0 0.0 4.314383E+01 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T03-11-1A 0 EIGENVALUE = 0.614624E+03 (CYCLIC FREQUENCY = 3.945709E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -1.455242E+00 -4.408288E-02 0.0 0.0 6.322226E-02 7.520471E-01 103 G 1.455242E+00 -4.408288E-02 0.0 0.0 -6.322226E-02 7.520471E-01 105 G -2.678707E+00 3.341938E+00 0.0 0.0 0.0 1.071865E+01 107 G 2.678707E+00 3.341938E+00 0.0 0.0 0.0 1.071865E+01 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T03-11-1A 0 EIGENVALUE = 0.738385E+03 (CYCLIC FREQUENCY = 4.324755E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -4.241210E-01 -1.693377E-01 0.0 0.0 4.279180E-04 -8.209740E-05 103 G -4.241210E-01 1.693377E-01 0.0 0.0 4.279181E-04 8.209600E-05 105 G 1.285798E+01 -2.387650E-04 0.0 0.0 0.0 -9.995614E-04 107 G 1.285798E+01 2.387589E-04 0.0 0.0 0.0 9.995415E-04 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T03-11-1A 0 EIGENVALUE = 0.210452E+04 (CYCLIC FREQUENCY = 7.301233E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 2.774091E+01 1.443471E+00 0.0 0.0 -1.544065E-01 -1.782749E+00 103 G -2.774091E+01 1.443471E+00 0.0 0.0 1.544065E-01 -1.782749E+00 105 G -2.110603E+01 -7.934627E+00 0.0 0.0 0.0 -2.544788E+01 107 G 2.110603E+01 -7.934627E+00 0.0 0.0 0.0 -2.544788E+01 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T03-11-1A 0 EIGENVALUE = 0.105652E+07 (CYCLIC FREQUENCY = 1.635909E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 1.132890E+04 2.757445E+01 0.0 0.0 -8.882880E-01 -2.809137E-01 103 G 1.132890E+04 -2.757445E+01 0.0 0.0 -8.882880E-01 2.809137E-01 105 G -9.819967E+02 2.222607E-02 0.0 0.0 0.0 6.270286E-02 107 G -9.819967E+02 -2.222607E-02 0.0 0.0 0.0 -6.270286E-02 1 HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 17, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T03-11-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 243, REENTER AT DMAP SEQUENCE NUMBER 85 244, XVPS , FLAGS = 0, REEL = 1, FILE = 135 245, OESF1 , FLAGS = 0, REEL = 0, FILE = 0 246, OESF1L , FLAGS = 0, REEL = 0, FILE = 0 247, REENTER AT DMAP SEQUENCE NUMBER 87 248, XVPS , FLAGS = 0, REEL = 1, FILE = 136 249, ONRGY1 , FLAGS = 0, REEL = 0, FILE = 0 250, REENTER AT DMAP SEQUENCE NUMBER 89 251, XVPS , FLAGS = 0, REEL = 1, FILE = 137 252, KDICT , FLAGS = 0, REEL = 0, FILE = 0 253, KELM , FLAGS = 0, REEL = 0, FILE = 0 254, REENTER AT DMAP SEQUENCE NUMBER 104 255, XVPS , FLAGS = 0, REEL = 1, FILE = 138 256, DUMMY , FLAGS = 0, REEL = 0, FILE = 0 * * * END OF JOB * * * 1 JOB TITLE = HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT DATE: 5/17/95 END TIME: 16:46:20 TOTAL WALL CLOCK TIME 5 SEC. ================================================ FILE: demoout/t03111b.out ================================================ NASTRAN BANDIT = -1, FILES = OPTP **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T03111B,NASTRAN $ $ NOTES - FOLLOWING STEPS MUST BE DONE FIRST BEFORE RUNNING THIS DEMO. $ (1) REFER TO COSMIC/NASTRAN DMAP COMPILER SOURCE LISTING IN T03111A $ AND LOCATE THE DMAP NUMBER OF 'LABEL NEWM' (ASSUME IT IS NO. M) $ (2) LOOK FOR THE 'REENTER AT DMAP SEQUENCE NUMBER N' IN THE T03111A $ CHECKPOINT DICTIONARY DECK (T03111A.PCH OR .DIC), WHERE N IS $ GREATER THAN THE LOCATION M OF (1) $ (3) REMOVE ALL THE CARDS FROM THIS 'REENTER AT DMAP SEQ. NO. N' TO $ THE END OF THE T03111A CHECKPOINT DICTIONARY DECK. $ THE LAST '$ END OF CHECKPOINT DICTIONARY' IS OPTIONAL. $ (4) FATAL ERROR IN QOPEN IF THESE CARDS WERE NOT REMOVED. $ (5) IN 1993 VERSION, M IN (1) IS 67, AND N IN (2) IS 69 $ 0*** $ ... READFILE FROM- RSCARDS RESTART T03111A ,NASTRAN , 5/17/95, 60361, 1, XVPS , FLAGS = 0, REEL = 1, FILE = 6 2, REENTER AT DMAP SEQUENCE NUMBER 6 3, GPL , FLAGS = 0, REEL = 1, FILE = 7 4, EQEXIN , FLAGS = 0, REEL = 1, FILE = 8 5, GPDT , FLAGS = 0, REEL = 1, FILE = 9 6, BGPDT , FLAGS = 0, REEL = 1, FILE = 10 7, SIL , FLAGS = 0, REEL = 1, FILE = 11 8, XVPS , FLAGS = 0, REEL = 1, FILE = 12 9, CSTM , FLAGS = 0, REEL = 0, FILE = 0 10, REENTER AT DMAP SEQUENCE NUMBER 7 11, XVPS , FLAGS = 0, REEL = 1, FILE = 13 12, MPTA , FLAGS = 0, REEL = 0, FILE = 0 13, REENTER AT DMAP SEQUENCE NUMBER 8 14, MPT , FLAGS = 0, REEL = 1, FILE = 14 15, XVPS , FLAGS = 0, REEL = 1, FILE = 15 16, REENTER AT DMAP SEQUENCE NUMBER 9 17, BGPDP , FLAGS = 0, REEL = 1, FILE = 16 18, SIP , FLAGS = 0, REEL = 1, FILE = 17 19, XVPS , FLAGS = 0, REEL = 1, FILE = 18 20, REENTER AT DMAP SEQUENCE NUMBER 10 21, ECT , FLAGS = 0, REEL = 1, FILE = 19 22, XVPS , FLAGS = 0, REEL = 1, FILE = 20 23, REENTER AT DMAP SEQUENCE NUMBER 12 24, XVPS , FLAGS = 0, REEL = 1, FILE = 21 25, PLTSETX , FLAGS = 0, REEL = 0, FILE = 0 26, PLTPAR , FLAGS = 0, REEL = 0, FILE = 0 27, GPSETS , FLAGS = 0, REEL = 0, FILE = 0 28, ELSETS , FLAGS = 0, REEL = 0, FILE = 0 29, REENTER AT DMAP SEQUENCE NUMBER 22 30, XVPS , FLAGS = 0, REEL = 1, FILE = 22 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 31, GPTT , FLAGS = 0, REEL = 0, FILE = 0 32, REENTER AT DMAP SEQUENCE NUMBER 23 33, EST , FLAGS = 0, REEL = 1, FILE = 23 34, GPECT , FLAGS = 0, REEL = 1, FILE = 24 35, XVPS , FLAGS = 0, REEL = 1, FILE = 25 36, GEI , FLAGS = 0, REEL = 0, FILE = 0 37, MPTX , FLAGS = 0, REEL = 0, FILE = 0 38, PCOMPS , FLAGS = 0, REEL = 0, FILE = 0 39, EPTX , FLAGS = 0, REEL = 0, FILE = 0 40, REENTER AT DMAP SEQUENCE NUMBER 24 41, MPT , FLAGS = 0, REEL = 1, FILE = 26 42, EPT , FLAGS = 0, REEL = 1, FILE = 27 43, XVPS , FLAGS = 0, REEL = 1, FILE = 28 44, REENTER AT DMAP SEQUENCE NUMBER 28 45, KELM , FLAGS = 0, REEL = 1, FILE = 29 46, KDICT , FLAGS = 0, REEL = 1, FILE = 30 47, MELM , FLAGS = 0, REEL = 1, FILE = 31 48, MDICT , FLAGS = 0, REEL = 1, FILE = 32 49, XVPS , FLAGS = 0, REEL = 1, FILE = 33 50, REENTER AT DMAP SEQUENCE NUMBER 29 51, XVPS , FLAGS = 0, REEL = 1, FILE = 34 52, KGGX , FLAGS = 0, REEL = 0, FILE = 0 53, REENTER AT DMAP SEQUENCE NUMBER 31 54, KGGX , FLAGS = 0, REEL = 1, FILE = 35 55, XVPS , FLAGS = 0, REEL = 1, FILE = 36 56, REENTER AT DMAP SEQUENCE NUMBER 34 57, MGG , FLAGS = 0, REEL = 1, FILE = 37 58, XVPS , FLAGS = 0, REEL = 1, FILE = 38 59, REENTER AT DMAP SEQUENCE NUMBER 35 60, XVPS , FLAGS = 0, REEL = 1, FILE = 39 61, MDICT , FLAGS = 0, REEL = 0, FILE = 0 62, MELM , FLAGS = 0, REEL = 0, FILE = 0 63, REENTER AT DMAP SEQUENCE NUMBER 40 64, KGGX , FLAGS = 4, REEL = 1, FILE = 35 65, KGG , FLAGS = 4, REEL = 1, FILE = 35 66, XVPS , FLAGS = 0, REEL = 1, FILE = 40 67, REENTER AT DMAP SEQUENCE NUMBER 44 68, GPST , FLAGS = 0, REEL = 1, FILE = 41 69, XVPS , FLAGS = 0, REEL = 1, FILE = 42 70, REENTER AT DMAP SEQUENCE NUMBER 46 71, YS , FLAGS = 0, REEL = 1, FILE = 43 72, USET , FLAGS = 0, REEL = 1, FILE = 44 73, XVPS , FLAGS = 0, REEL = 1, FILE = 45 74, RG , FLAGS = 0, REEL = 0, FILE = 0 75, ASET , FLAGS = 0, REEL = 0, FILE = 0 76, OGPST , FLAGS = 0, REEL = 0, FILE = 0 77, REENTER AT DMAP SEQUENCE NUMBER 48 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 78, XVPS , FLAGS = 0, REEL = 1, FILE = 46 79, KRR , FLAGS = 0, REEL = 0, FILE = 0 80, KLR , FLAGS = 0, REEL = 0, FILE = 0 81, DM , FLAGS = 0, REEL = 0, FILE = 0 82, MLR , FLAGS = 0, REEL = 0, FILE = 0 83, MR , FLAGS = 0, REEL = 0, FILE = 0 84, GM , FLAGS = 0, REEL = 0, FILE = 0 85, GO , FLAGS = 0, REEL = 0, FILE = 0 86, KFS , FLAGS = 0, REEL = 0, FILE = 0 87, QG , FLAGS = 0, REEL = 0, FILE = 0 88, REENTER AT DMAP SEQUENCE NUMBER 49 89, USETF , FLAGS = 0, REEL = 1, FILE = 47 90, USETS , FLAGS = 0, REEL = 1, FILE = 48 91, AF , FLAGS = 0, REEL = 1, FILE = 49 92, DKGG , FLAGS = 0, REEL = 1, FILE = 50 93, XVPS , FLAGS = 0, REEL = 1, FILE = 51 94, REENTER AT DMAP SEQUENCE NUMBER 49 95, PV1 , FLAGS = 0, REEL = 1, FILE = 52 96, XVPS , FLAGS = 0, REEL = 1, FILE = 53 97, REENTER AT DMAP SEQUENCE NUMBER 49 98, KXX , FLAGS = 0, REEL = 1, FILE = 54 99, KYY , FLAGS = 0, REEL = 1, FILE = 55 100, XVPS , FLAGS = 0, REEL = 1, FILE = 56 101, REENTER AT DMAP SEQUENCE NUMBER 49 102, MXX , FLAGS = 0, REEL = 1, FILE = 57 103, XVPS , FLAGS = 0, REEL = 1, FILE = 58 104, REENTER AT DMAP SEQUENCE NUMBER 49 105, XVPS , FLAGS = 0, REEL = 1, FILE = 59 106, RX , FLAGS = 0, REEL = 0, FILE = 0 107, REENTER AT DMAP SEQUENCE NUMBER 48 108, XVPS , FLAGS = 0, REEL = 1, FILE = 60 109, REENTER AT DMAP SEQUENCE NUMBER 49 110, AXY , FLAGS = 0, REEL = 1, FILE = 61 111, AYY , FLAGS = 0, REEL = 1, FILE = 62 112, XVPS , FLAGS = 0, REEL = 1, FILE = 63 113, REENTER AT DMAP SEQUENCE NUMBER 49 114, DKXX , FLAGS = 0, REEL = 1, FILE = 64 115, DKYY , FLAGS = 0, REEL = 1, FILE = 65 116, XVPS , FLAGS = 0, REEL = 1, FILE = 66 117, REENTER AT DMAP SEQUENCE NUMBER 49 118, PV2 , FLAGS = 0, REEL = 1, FILE = 67 119, XVPS , FLAGS = 0, REEL = 1, FILE = 68 120, REENTER AT DMAP SEQUENCE NUMBER 49 121, AFRY , FLAGS = 0, REEL = 1, FILE = 69 122, XVPS , FLAGS = 0, REEL = 1, FILE = 70 123, REENTER AT DMAP SEQUENCE NUMBER 49 124, DKFRFR , FLAGS = 0, REEL = 1, FILE = 71 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 125, XVPS , FLAGS = 0, REEL = 1, FILE = 72 126, REENTER AT DMAP SEQUENCE NUMBER 48 127, KXX , FLAGS = 4, REEL = 1, FILE = 35 128, XVPS , FLAGS = 0, REEL = 1, FILE = 73 129, REENTER AT DMAP SEQUENCE NUMBER 48 130, MXX , FLAGS = 4, REEL = 1, FILE = 57 131, MGG , FLAGS = 4, REEL = 1, FILE = 57 132, XVPS , FLAGS = 0, REEL = 1, FILE = 74 133, REENTER AT DMAP SEQUENCE NUMBER 50 134, KNN , FLAGS = 4, REEL = 1, FILE = 35 135, MNN , FLAGS = 4, REEL = 1, FILE = 57 136, XVPS , FLAGS = 0, REEL = 1, FILE = 75 137, REENTER AT DMAP SEQUENCE NUMBER 55 138, XVPS , FLAGS = 0, REEL = 1, FILE = 76 139, KFF , FLAGS = 0, REEL = 0, FILE = 0 140, MFF , FLAGS = 0, REEL = 0, FILE = 0 141, REENTER AT DMAP SEQUENCE NUMBER 57 142, KFF , FLAGS = 0, REEL = 1, FILE = 77 143, KFS , FLAGS = 0, REEL = 1, FILE = 78 144, MFF , FLAGS = 0, REEL = 1, FILE = 79 145, XVPS , FLAGS = 0, REEL = 1, FILE = 80 146, REENTER AT DMAP SEQUENCE NUMBER 59 147, XVPS , FLAGS = 0, REEL = 1, FILE = 81 148, KAA , FLAGS = 0, REEL = 0, FILE = 0 149, REENTER AT DMAP SEQUENCE NUMBER 60 150, XVPS , FLAGS = 0, REEL = 1, FILE = 82 151, MAA , FLAGS = 0, REEL = 0, FILE = 0 152, REENTER AT DMAP SEQUENCE NUMBER 63 153, GO , FLAGS = 0, REEL = 1, FILE = 83 154, KAA , FLAGS = 0, REEL = 1, FILE = 84 155, KOO , FLAGS = 0, REEL = 1, FILE = 85 156, LOO , FLAGS = 0, REEL = 1, FILE = 86 157, XVPS , FLAGS = 0, REEL = 1, FILE = 87 158, REENTER AT DMAP SEQUENCE NUMBER 63 159, MAA , FLAGS = 0, REEL = 1, FILE = 88 160, XVPS , FLAGS = 0, REEL = 1, FILE = 89 161, REENTER AT DMAP SEQUENCE NUMBER 63 162, XVPS , FLAGS = 0, REEL = 1, FILE = 90 163, DKAA , FLAGS = 0, REEL = 0, FILE = 0 164, REENTER AT DMAP SEQUENCE NUMBER 63 165, DKXX , FLAGS = 4, REEL = 1, FILE = 64 166, DKNN , FLAGS = 4, REEL = 1, FILE = 64 167, XVPS , FLAGS = 0, REEL = 1, FILE = 91 168, REENTER AT DMAP SEQUENCE NUMBER 63 169, XVPS , FLAGS = 0, REEL = 1, FILE = 92 170, DKFF , FLAGS = 0, REEL = 0, FILE = 0 171, REENTER AT DMAP SEQUENCE NUMBER 64 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 172, DKFF , FLAGS = 0, REEL = 1, FILE = 93 173, XVPS , FLAGS = 0, REEL = 1, FILE = 94 174, REENTER AT DMAP SEQUENCE NUMBER 63 175, XVPS , FLAGS = 0, REEL = 1, FILE = 95 176, REENTER AT DMAP SEQUENCE NUMBER 64 177, DKAA , FLAGS = 0, REEL = 1, FILE = 96 178, XVPS , FLAGS = 0, REEL = 1, FILE = 97 179, REENTER AT DMAP SEQUENCE NUMBER 64 180, KMAT , FLAGS = 0, REEL = 1, FILE = 98 181, MMAT , FLAGS = 0, REEL = 1, FILE = 99 182, GIA , FLAGS = 0, REEL = 1, FILE = 100 183, XVPS , FLAGS = 0, REEL = 1, FILE = 101 184, HC , FLAGS = 0, REEL = 0, FILE = 0 185, REENTER AT DMAP SEQUENCE NUMBER 63 186, KMAT , FLAGS = 4, REEL = 1, FILE = 98 187, KAA , FLAGS = 4, REEL = 1, FILE = 98 188, MMAT , FLAGS = 4, REEL = 1, FILE = 99 189, MAA , FLAGS = 4, REEL = 1, FILE = 99 190, XVPS , FLAGS = 0, REEL = 1, FILE = 102 $ END OF CHECKPOINT DICTIONARY 0*** $ END READFILE TIME 20 SOL 3,0 APP DISP $ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) AFTER THIS CARD 0*** $ ... READFILE FROM- COSHYD1 $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - DIRECT FORMULATION (COSHYD1) $ ALTER 1,1 $ COSMIC/NASTRAN RF 3. REPLACING BEGIN DELETE BEGIN $ XDMAP GO,ERR=2 $ BEGIN HYDROELASTIC ANALYSIS - DIRECT FORMULATION $ $ ALTER 3 $ AFTER PRECHK/FILE INSERT FILE $ COMPOFF NEWM,NEWMODE $ $ ALTER 46 $ AFTER OFP/COND/PURGE INSERT GP4,3 $ FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ VEC USETF/PV1/*G*/*X*/*Y* $ PARTN KGG,PV1,/KXX,,,KYY $ PARTN MGG,PV1,/MXX,,, $ PARTN RG,PV1,/RX,,,/1 $ EQUIV RX,RG $ PARTN AF,PV1,/,,AXY,AYY $ COND DIRECT1,NOGRAV $ PARTN DKGG,PV1,/DKXX,,,DKYY $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 COND DIRECT1,NOFREE $ VEC USETF/PV2/*Y*/*FR*/*COMP* $ PARTN AYY,,PV2/AFRY,,,/0 $ PARTN DKYY,PV2,/DKFRFR,,, $ LABEL DIRECT1 $ COMPOFF NOSTRUC,OLDSTR $ COMPON 2,DIFSTIF $ PARAMR //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $ ADD KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $ COMPOFF 1,DIFSTIF $ EQUIV KXX,KGG $ EQUIV MXX,MGG $ $ ALTER 49,50 $ REPLACING MCE1, MCE2 DELETE MCE1,MCE2 $ MCE1 USETS,RG/GM $ MCE2 USETS,GM,KGG,MGG,,/KNN,MNN,, $ $ ALTER 54,54 $ REPLACING SCE1 DELETE SCE1 $ SCE1 USETS,KNN,MNN,,/KFF,KFS,,MFF,, $ $ ALTER 59,60 $ REPLACING SMP1, SMP2 DELETE SMP1,SMP2 $ SMP1 USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $ SMP2 USETS,GO,MFF/MAA $ $ ALTER 61 $ ALTER LABEL LBL5 INSERT SMP2,1 $ LABEL NOSTRUC $ PURGE DKAA/NOGRAV $ COND DIRECT4,NOGRAV $ EQUIV DKXX,DKNN/MPCF1 $ COND DIRECT2,MPCF2 $ MCE2 USETS,GM,DKXX,,,/DKNN,,, $ LABEL DIRECT2 $ EQUIV DKNN,DKFF/SINGLE $ COND DIRECT3,SINGLE $ SCE1 USETS,DKNN,,,/DKFF,,,,, $ LABEL DIRECT3 $ EQUIV DKFF,DKAA/OMIT $ COND DIRECT4,OMIT $ SMP2 USETS,GO,DKFF/DKAA $ LABEL DIRECT4 $ GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,,,/KMAT, MMAT,GIA,,HC/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=-1 $ EQUIV KMAT,KAA//MMAT,MAA $ $ ALTER 63,63 $ REPLACING RBMG1 DELETE RBMG1 $ RBMG1 USETF,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ $ ALTER 67 $ AFTER LABEL LBL6 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 INSERT DPD,-1 $ LABEL NEWM $ $ ALTER 68,68 $ REPLACING DPD DELETE DPD $ DPD DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ $ ALTER 71,71 $ REPLACING READ DELETE READ $ READ KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ $ ALTER 75,75 $ REPLACING SDR1 DELETE SDR1 $ COND NOCOMP,COMPTYP $ MPYAD HC,PHIA,/PHIAC/0/1/0 $ EQUIV PHIAC,PHIA $ LABEL NOCOMP $ MPYAD GIA,PHIA,/PHII/0/1/0 $ EQUIV PHII,PHIY/NOFREE $ COND DIRECT5,NOFREE $ VEC USETF/PV3/*A*/*COMP*/*FR* $ PARTN PHIA,,PV3/PHIAB,PHIFR,,/0 $ EQUIV PHIAB,PHIA $ MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ LABEL DIRECT5 $ SDR1 USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $ MERGE PHIX,PHIY,,,,PV1/PHIG/0 $ MERGE QX,,,,,PV1/QG/0 $ $ ALTER 77,77 $ REPLACING EQMCK DELETE EQMCK $ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ ENDALTER $ 0*** $ END READFILE $ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) BEFORE THIS CARD CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T03-11-1B 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T03-11-1B 3 $ REFERENCE PROBLEM I.2 4 DISP = ALL 5 SPCF = ALL 6 METHOD = 50 7 SPC = 10 8 BEGIN BULK 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T03-11-1B 0 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ $ $ NEW EIGR CARD FOR DIFFERENT MODES $ / 9 10 EIGR 50 GIV 100.0 2500.0 0 +E1 +E1 MAX $ $ PARAMETER TO SKIP UNNEEDED DMAP $ PARAM NEWMODE -1 ENDDATA TOTAL COUNT= 10 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T03-11-1B 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CFFREE 1 100 6 2- CFHEX2 1 200 1 2 4 3 5 6 +CFH1 3- +CFH1 8 7 4- CFLSTR 1 100 101 THRU 104 5- CQUAD2 101 100 101 102 106 105 6- CQUAD2 102 100 102 104 108 106 7- CQUAD2 103 100 104 103 107 108 8- CQUAD2 104 100 101 103 104 102 9- EIGR 50 GIV 100.0 2500.0 0 +E1 10- +E1 MAX 11- GRAV 100 386.0 0.0 0.0 -1.0 12- GRID 1 0.0 0.0 0.0 13- GRID 2 6.0 0.0 0.0 14- GRID 3 0.0 12.0 0.0 15- GRID 4 6.0 12.0 0.0 16- GRID 5 0.0 0.0 12.0 17- GRID 6 6.0 0.0 12.0 18- GRID 7 0.0 12.0 12.0 19- GRID 8 6.0 12.0 12.0 20- GRID 101 0.0 0.0 0.0 21- GRID 102 6.0 0.0 0.0 22- GRID 103 0.0 12.0 0.0 23- GRID 104 6.0 12.0 0.0 24- GRID 105 0.0 0.0 12.0 25- GRID 106 6.0 0.0 12.0 26- GRID 107 0.0 12.0 12.0 27- GRID 108 6.0 12.0 12.0 28- MAT1 100 10.6+6 .3 .92-3 29- MATF 200 9.355-4 30- OMIT1 4 101 103 105 107 31- OMIT1 456 102 104 106 108 32- PARAM NEWMODE -1 33- PQUAD2 100 100 .06 34- SPC1 10 1256 101 103 105 107 ENDDATA 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T03-11-1B 0 0*** USER INFORMATION MESSAGE 4144, THIS IS A MODIFIED RESTART. 0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW. 0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES ----------------------------------- MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION 17 17 POUT$ 19 0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES -------------------------------- MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED BIT POSITION 3 23 EIGR 61 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T03-11-1B 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 XDMAP GO,ERR=2 $ + + 1 BEGIN HYDROELASTIC ANALYSIS - DIRECT FORMULATION $ + + 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ + + 3 COMPOFF NEWM,NEWMODE $ 70 DPD DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ + * LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ + * 71 COND ERROR2,NOEED $ + * 72 PARAM //*MPY*/NEIGV/1/-1 $ + * 73 READ KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ + * S,N,NEIGV $ + * 74 OFP OEIGS,,,,,//S,N,CARDNO $ + * 75 COND FINIS,NEIGV $ + * 76 OFP LAMA,,,,,//S,N,CARDNO $ + * 77 COND NOCOMP,COMPTYP $ + * 77 MPYAD HC,PHIA,/PHIAC/0/1/0 $ + * 77 EQUIV PHIAC,PHIA $ + * 77 LABEL NOCOMP $ + + 77 MPYAD GIA,PHIA,/PHII/0/1/0 $ + * 77 EQUIV PHII,PHIY/NOFREE $ + * 77 COND DIRECT5,NOFREE $ + * 77 VEC USETF/PV3/*A*/*COMP*/*FR* $ + * 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T03-11-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 77 PARTN PHIA,,PV3/PHIAB,PHIFR,,/0 $ + * 77 EQUIV PHIAB,PHIA $ + * 77 MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ + * 77 LABEL DIRECT5 $ + + 77 SDR1 USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $ + * 77 MERGE PHIX,PHIY,,,,PV1/PHIG/0 $ + * 77 MERGE QX,,,,,PV1/QG/0 $ + * 78 COND NOMPCF,GRDEQ $ + * 79 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/ + * OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ 80 OFP OQM1,,,,,//S,N,CARDNO $ + * 81 LABEL NOMPCF $ + + 82 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, + * PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ *REIG*////COMPS $ 83 OFP OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $ + * 84 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ + * 85 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ + * 86 GPFDR CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ + * 87 OFP ONRGY1,,,,,//S,N,CARDNO $ + * 88 PURGE KDICT,KELM/ALWAYS $ + * 89 COND P2,JUMPPLOT $ + * 90 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, + * OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 91 PRTMSG PLOTX2// $ + * 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T03-11-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 92 LABEL P2 $ + + 93 JUMP FINIS $ + * 94 LABEL ERROR1 $ + + 95 PRTPARM //-1/*MODES* $ + * 96 LABEL ERROR2 $ + + 97 PRTPARM //-2/*MODES* $ + * 98 LABEL ERROR3 $ + + 99 PRTPARM //-3/*MODES* $ + * 100 LABEL ERROR4 $ + + 101 PRTPARM //-4/*MODES* $ + * 102 LABEL FINIS $ + + 103 PURGE DUMMY/ALWAYS $ + * 104 END $ + * 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR4 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR3 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR1 NOT REFERENCED 0 0 + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME. 0 * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART. 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T03-11-1B 0 0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART FILE NAME REEL NO. FILE NO. CSTM (PURGED) PLTPAR (PURGED) GPSETS (PURGED) ELSETS (PURGED) PCOMPS (PURGED) DM (PURGED) MR (PURGED) GM (PURGED) HC (PURGED) GPL 1 7 EQEXIN 1 8 BGPDT 1 10 SIL 1 11 BGPDP 1 16 SIP 1 17 ECT 1 19 EST 1 23 GPECT 1 24 KELM 1 29 KDICT 1 30 KGGX 1 35 KGG 1 35 KXX 1 35 KNN 1 35 USETF 1 47 USETS 1 48 PV1 1 52 PV2 1 67 KFS 1 78 GO 1 83 KAA 1 98 KMAT 1 98 MAA 1 99 MMAT 1 99 GIA 1 100 XVPS 1 102 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 20, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T03-11-1B 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 20 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 8 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T03-11-1B 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 15 1.056520E+06 1.027872E+03 1.635909E+02 1.882236E-02 1.988621E+04 2 14 7.977794E+06 2.824499E+03 4.495329E+02 3.851429E-02 3.072590E+05 3 13 1.206828E+07 3.473943E+03 5.528952E+02 2.152778E-01 2.598033E+06 4 12 2.273032E+07 4.767633E+03 7.587923E+02 7.798322E-04 1.772584E+04 5 11 6.313189E+07 7.945558E+03 1.264575E+03 1.627105E-02 1.027222E+06 6 10 2.075611E+08 1.440698E+04 2.292942E+03 2.875304E-02 5.968012E+06 7 9 2.086266E+08 1.444391E+04 2.298820E+03 4.330550E-04 9.034680E+04 8 8 2.269621E+08 1.506526E+04 2.397710E+03 8.508445E-03 1.931094E+06 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN -1 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.105652E+07 (CYCLIC FREQUENCY = 1.635909E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -1.262931E-04 -1.397051E-04 -1.262931E-04 -1.397051E-04 1.000000E+00 9.916126E-01 7 S 1.000000E+00 9.916126E-01 101 G 0.0 0.0 -9.541942E-01 -4.393421E-04 0.0 0.0 102 G -6.968258E-03 2.873408E-03 -9.618446E-01 2.111695E-04 1.517261E-03 4.400942E-04 103 G 0.0 0.0 -9.541942E-01 4.393421E-04 0.0 0.0 104 G -6.968258E-03 -2.873408E-03 -9.618446E-01 -2.111695E-04 1.517261E-03 -4.400942E-04 105 G 0.0 0.0 -9.612760E-01 3.634843E-04 0.0 0.0 106 G 1.171517E-03 -5.257216E-05 -9.654862E-01 4.480084E-04 6.802016E-05 1.557085E-04 107 G 0.0 0.0 -9.612760E-01 -3.634843E-04 0.0 0.0 108 G 1.171517E-03 5.257216E-05 -9.654862E-01 -4.480084E-04 6.802016E-05 -1.557085E-04 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.797779E+07 (CYCLIC FREQUENCY = 4.495329E+02 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 7.798204E-04 -8.775610E-04 -7.798204E-04 8.775610E-04 -5.208009E-02 1.000000E+00 7 S 5.208009E-02 -1.000000E+00 101 G 0.0 0.0 -5.499801E-01 4.569924E-02 0.0 0.0 102 G -1.087894E-01 5.490711E-01 -1.847391E-01 1.961771E-02 -6.436625E-02 6.715935E-02 103 G 0.0 0.0 5.499801E-01 4.569924E-02 0.0 0.0 104 G 1.087894E-01 5.490711E-01 1.847391E-01 1.961771E-02 6.436625E-02 6.715935E-02 105 G 0.0 0.0 -3.360298E-01 -1.285288E-02 0.0 0.0 106 G -6.161015E-02 1.782280E-01 -2.206313E-01 4.800030E-02 7.010625E-02 2.968626E-02 107 G 0.0 0.0 3.360298E-01 -1.285288E-02 0.0 0.0 108 G 6.161015E-02 1.782280E-01 2.206313E-01 4.800030E-02 -7.010625E-02 2.968626E-02 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.120683E+08 (CYCLIC FREQUENCY = 5.528952E+02 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -2.051389E-03 2.041870E-03 -2.051389E-03 2.041870E-03 7.735256E-01 -5.310717E-01 7 S 7.735256E-01 -5.310717E-01 101 G 0.0 0.0 1.000000E+00 -5.720126E-02 0.0 0.0 102 G 5.729443E-01 -2.786579E-01 -3.708959E-01 -1.044135E-02 2.383807E-01 -6.028431E-02 103 G 0.0 0.0 1.000000E+00 5.720126E-02 0.0 0.0 104 G 5.729443E-01 2.786579E-01 -3.708959E-01 1.044135E-02 2.383807E-01 6.028431E-02 105 G 0.0 0.0 8.543754E-02 1.551558E-02 0.0 0.0 106 G 2.602040E-01 -3.597216E-02 -3.152912E-01 -4.246248E-02 -1.814825E-01 2.467482E-03 107 G 0.0 0.0 8.543754E-02 -1.551558E-02 0.0 0.0 108 G 2.602040E-01 3.597216E-02 -3.152912E-01 4.246248E-02 -1.814825E-01 -2.467482E-03 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.227303E+08 (CYCLIC FREQUENCY = 7.587923E+02 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 6.512394E-05 6.606107E-05 -6.512394E-05 -6.606107E-05 -2.918201E-02 1.000000E+00 7 S 2.918201E-02 -1.000000E+00 101 G 0.0 0.0 -2.110310E-02 -5.605899E-03 0.0 0.0 102 G 3.786853E-02 -7.432835E-03 6.142727E-02 -1.960382E-02 -1.921571E-02 5.848540E-03 103 G 0.0 0.0 2.110310E-02 -5.605899E-03 0.0 0.0 104 G -3.786853E-02 -7.432835E-03 -6.142727E-02 -1.960382E-02 1.921571E-02 5.848540E-03 105 G 0.0 0.0 3.266894E-02 1.206293E-02 0.0 0.0 106 G -1.459026E-02 3.138968E-01 8.616281E-02 -5.181981E-02 -2.994516E-03 3.014824E-02 107 G 0.0 0.0 -3.266894E-02 1.206293E-02 0.0 0.0 108 G 1.459026E-02 3.138968E-01 -8.616281E-02 -5.181981E-02 2.994516E-03 3.014824E-02 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.631319E+08 (CYCLIC FREQUENCY = 1.264575E+03 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -2.110609E-04 9.668401E-05 2.110609E-04 -9.668401E-05 3.917816E-02 1.253864E-01 7 S -3.917816E-02 -1.253864E-01 101 G 0.0 0.0 1.237645E-01 -3.565630E-02 0.0 0.0 102 G 2.471465E-01 1.000000E+00 -5.921133E-01 1.380232E-01 6.405141E-02 1.300641E-01 103 G 0.0 0.0 -1.237645E-01 -3.565630E-02 0.0 0.0 104 G -2.471465E-01 1.000000E+00 5.921133E-01 1.380232E-01 -6.405141E-02 1.300641E-01 105 G 0.0 0.0 -4.375401E-01 6.065601E-02 0.0 0.0 106 G 1.760922E-01 3.900580E-01 -6.178202E-01 1.423540E-02 3.340407E-03 4.871300E-02 107 G 0.0 0.0 4.375401E-01 6.065601E-02 0.0 0.0 108 G -1.760922E-01 3.900580E-01 6.178202E-01 1.423540E-02 -3.340407E-03 4.871300E-02 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.207561E+09 (CYCLIC FREQUENCY = 2.292942E+03 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 6.203137E-05 7.330507E-05 -6.203137E-05 -7.330507E-05 -2.963759E-02 5.590620E-01 7 S 2.963759E-02 -5.590620E-01 101 G 0.0 0.0 -1.825231E-02 -3.019707E-02 0.0 0.0 102 G 8.772508E-01 1.000000E+00 7.285501E-01 -9.777997E-02 -1.312809E-01 2.000160E-01 103 G 0.0 0.0 1.825231E-02 -3.019707E-02 0.0 0.0 104 G -8.772508E-01 1.000000E+00 -7.285501E-01 -9.777997E-02 1.312809E-01 2.000160E-01 105 G 0.0 0.0 6.305740E-01 8.476939E-02 0.0 0.0 106 G -4.326307E-01 -6.686941E-01 9.851358E-01 4.210712E-01 -7.437518E-02 -6.246860E-02 107 G 0.0 0.0 -6.305740E-01 8.476939E-02 0.0 0.0 108 G 4.326307E-01 -6.686941E-01 -9.851358E-01 4.210712E-01 7.437518E-02 -6.246860E-02 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.208627E+09 (CYCLIC FREQUENCY = 2.298820E+03 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -7.421128E-06 7.210541E-06 -7.421128E-06 7.210541E-06 -2.729003E-01 1.000000E+00 7 S -2.729003E-01 1.000000E+00 101 G 0.0 0.0 -1.465840E-01 3.732539E-03 0.0 0.0 102 G 7.775377E-02 2.036907E-03 -3.105943E-03 -3.785352E-03 -3.055131E-02 3.046266E-03 103 G 0.0 0.0 -1.465840E-01 -3.732539E-03 0.0 0.0 104 G 7.775377E-02 -2.036907E-03 -3.105943E-03 3.785352E-03 -3.055131E-02 -3.046266E-03 105 G 0.0 0.0 -3.993943E-02 -1.580052E-03 0.0 0.0 106 G -1.808910E-01 6.208205E-02 1.126407E-01 -9.698000E-03 -1.557696E-02 8.884328E-03 107 G 0.0 0.0 -3.993943E-02 1.580052E-03 0.0 0.0 108 G -1.808910E-01 -6.208205E-02 1.126407E-01 9.698000E-03 -1.557696E-02 -8.884328E-03 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.226962E+09 (CYCLIC FREQUENCY = 2.397710E+03 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 5.067618E-06 -4.674025E-06 5.067618E-06 -4.674025E-06 -9.651024E-01 1.000000E+00 7 S -9.651024E-01 1.000000E+00 101 G 0.0 0.0 3.068153E-01 -8.116069E-02 0.0 0.0 102 G -2.428907E-01 3.179671E-01 -4.902803E-01 -3.387842E-02 1.598565E-01 7.044607E-02 103 G 0.0 0.0 3.068153E-01 8.116069E-02 0.0 0.0 104 G -2.428907E-01 -3.179671E-01 -4.902803E-01 3.387842E-02 1.598565E-01 -7.044607E-02 105 G 0.0 0.0 7.001053E-01 6.470875E-02 0.0 0.0 106 G 6.417889E-02 7.836791E-01 2.205361E-01 -7.245569E-02 -6.055538E-02 1.402496E-01 107 G 0.0 0.0 7.001053E-01 -6.470875E-02 0.0 0.0 108 G 6.417889E-02 -7.836791E-01 2.205361E-01 7.245569E-02 -6.055538E-02 -1.402496E-01 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.105652E+07 (CYCLIC FREQUENCY = 1.635909E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 1.132890E+04 2.757443E+01 0.0 0.0 -8.882828E-01 -2.809140E-01 103 G 1.132890E+04 -2.757443E+01 0.0 0.0 -8.882828E-01 2.809140E-01 105 G -9.819964E+02 2.222601E-02 0.0 0.0 0.0 6.270250E-02 107 G -9.819964E+02 -2.222601E-02 0.0 0.0 0.0 -6.270250E-02 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.797779E+07 (CYCLIC FREQUENCY = 4.495329E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 4.618405E+04 -1.476493E+05 0.0 0.0 4.933029E+01 -9.417827E+01 103 G -4.618405E+04 -1.476493E+05 0.0 0.0 -4.933029E+01 -9.417827E+01 105 G 6.311898E+04 -6.197023E+00 0.0 0.0 0.0 -4.252594E+01 107 G -6.311898E+04 -6.197023E+00 0.0 0.0 0.0 -4.252594E+01 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.120683E+08 (CYCLIC FREQUENCY = 5.528952E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -6.767098E+05 8.114415E+03 0.0 0.0 -1.873775E+02 4.823378E+01 103 G -6.767098E+05 -8.114415E+03 0.0 0.0 -1.873775E+02 -4.823378E+01 105 G -2.451740E+05 2.194183E+00 0.0 0.0 0.0 1.710330E+01 107 G -2.451740E+05 -2.194183E+00 0.0 0.0 0.0 -1.710330E+01 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.227303E+08 (CYCLIC FREQUENCY = 7.587923E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -6.445720E+04 6.449788E+03 0.0 0.0 7.938684E+00 -2.739268E+00 103 G 6.445720E+04 6.449788E+03 0.0 0.0 -7.938684E+00 -2.739268E+00 105 G 1.440038E+04 -1.179450E+01 0.0 0.0 0.0 -4.067957E+01 107 G -1.440038E+04 -1.179450E+01 0.0 0.0 0.0 -4.067957E+01 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.631319E+08 (CYCLIC FREQUENCY = 1.264575E+03 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -3.821964E+05 -2.144240E+05 0.0 0.0 -8.515988E+01 -1.274626E+02 103 G 3.821964E+05 -2.144240E+05 0.0 0.0 8.515988E+01 -1.274626E+02 105 G -1.471048E+05 -1.394239E+01 0.0 0.0 0.0 -6.216388E+01 107 G 1.471048E+05 -1.394239E+01 0.0 0.0 0.0 -6.216388E+01 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.207561E+09 (CYCLIC FREQUENCY = 2.292942E+03 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -1.463343E+06 -1.373632E+05 0.0 0.0 1.237049E+02 -1.470019E+02 103 G 1.463343E+06 -1.373632E+05 0.0 0.0 -1.237049E+02 -1.470019E+02 105 G 3.222592E+05 2.280312E+01 0.0 0.0 0.0 7.947728E+01 107 G -3.222592E+05 2.280312E+01 0.0 0.0 0.0 7.947728E+01 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.208627E+09 (CYCLIC FREQUENCY = 2.298820E+03 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -1.382332E+05 -8.649836E+03 0.0 0.0 1.670485E+01 -1.040570E+00 103 G -1.382332E+05 8.649836E+03 0.0 0.0 1.670485E+01 1.040570E+00 105 G 1.328728E+05 -1.851777E+00 0.0 0.0 0.0 -8.111888E+00 107 G 1.328728E+05 1.851777E+00 0.0 0.0 0.0 8.111888E+00 1 HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T03-11-1B 0 EIGENVALUE = 0.226962E+09 (CYCLIC FREQUENCY = 2.397710E+03 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 3.930456E+05 -5.231978E+04 0.0 0.0 -9.275906E+01 -2.841751E+01 103 G 3.930456E+05 5.231978E+04 0.0 0.0 -9.275906E+01 2.841751E+01 105 G -1.808022E+05 -2.008177E+01 0.0 0.0 0.0 -8.349944E+01 107 G -1.808022E+05 2.008177E+01 0.0 0.0 0.0 8.349944E+01 * * * END OF JOB * * * 1 JOB TITLE = HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES DATE: 5/18/95 END TIME: 10: 9:19 TOTAL WALL CLOCK TIME 1 SEC. ================================================ FILE: demoout/t03121a.out ================================================ NASTRAN FILES=NPTP **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T03121A,NASTRAN DIAG 14 TIME 10 SOL 3,0 APP DISP CHKPNT YES $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) AFTER THIS CARD 0*** $ ... READFILE FROM- COSHYD2 $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - MODAL FORMULATION (COSHYD2) $ ALTER 1,1 $ COSMIC/NASTRAN RF 3. REPLACING BEGIN DELETE BEGIN $ XDMAP GO,ERR=2 $ BEGIN HYDROELASTIC ANALYSIS - MODAL FORMULATION $ ALTER 3 $ AFTER PRECHK/FILE INSERT FILE $ COMPOFF NEW1,NEWMODE $ $ ALTER 46 $ AFTER OFP/COND/PURGE INSERT GP4,3 $ FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ VEC USETF/PV1/*G*/*X*/*Y* $ PARTN KGG,PV1,/KXX,,,KYY $ PARTN MGG,PV1,/MXX,,, $ PARTN RG,PV1,/RX,,,/1 $ EQUIV RX,RG $ PARTN AF,PV1,/,,AXY,AYY $ COND MODAL1,NOGRAV $ PARTN DKGG,PV1,/DKXX,,,DKYY $ COND MODAL1,NOFREE $ VEC USETF/PV2/*Y*/*FR*/*COMP* $ PARTN AYY,,PV2/AFRY,,,/0 $ PARTN DKYY,PV2,/DKFRFR,,, $ LABEL MODAL1 $ LABEL NEW1 $ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ COND ERROR2,NOEED $ COMPOFF NEW2,NEWMODE $ PARAM //*MPY*/CARDNO/0/0 $ COMPOFF NOSTRUC,OLDSTR $ COMPON 2,DIFSTIF $ PARAMR //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $ ADD KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $ COMPOFF 1,DIFSTIF $ EQUIV KXX,KGG $ EQUIV MXX,MGG $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 $ ALTER 49,50 $ REPLACING MCE1, MCE2 DELETE MCE1,MCE2 $ MCE1 USETS,RG/GM $ MCE2 USETS,GM,KGG,MGG,,/KNN,MNN,, $ $ ALTER 54,54 $ REPLACING SCE1 DELETE SCE1 $ SCE1 USETS,KNN,MNN,,/KFF,KFS,,MFF,, $ $ ALTER 59,60 $ REPLACING SMP1, SMP2 DELETE SMP1,SMP2 $ SMP1 USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $ SMP2 USETS,GO,MFF/MAA $ $ ALTER 63,63 $ REPLACING RBMG1 DELETE RBMG1 $ RBMG1 USETS,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ $ ALTER 68,69 $ REPLACING DPD, COND DELETE DPD,DPD,1 $ CASE CASECC,/CASE1/*REIGEN*/S,N,REPT/S,N,LOLP $ $ ALTER 71,71 $ REPLACING READ DELETE READ $ READ KAA,MAA,MR,DM,EED,USETS,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ $ ALTER 75,77 $ REPLACING SDR1, COND, EQMCK DELETE SDR1,EQMCK $ SDR1 USETS,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ COND NOMPCF,GRDEQ $ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ $ ALTER 80,80 $ REPLACING SDR2 DELETE SDR2 $ MERGE PHIG,,,,,PV1/PHIGS/0 $ MERGE QG,,,,,PV1/QGS/0 $ SDR2 CASE1,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QGS,PHIGS,EST,,,/, OQGS,OPHIGS,,OEFS,PPHIGS,,/*REIG* $ OFP OPHIGS,OQGS,OEFS,,,//S,N,CARDNO $ LABEL NOSTRUC $ PURGE DKAA/NOGRAV $ COND MODAL4,NOGRAV $ EQUIV DKXX,DKNN/MPCF1 $ COND MODAL2,MPCF2 $ MCE2 USETS,GM,DKXX,,,/DKNN,,, $ LABEL MODAL2 $ EQUIV DKNN,DKFF/SINGLE $ COND MODAL3,SINGLE $ SCE1 USETS,DKNN,,,/DKFF,,,,, $ LABEL MODAL3 $ EQUIV DKFF,DKAA/OMIT $ COND MODAL4,OMIT $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 SMP2 USETS,GO,DKFF/DKAA $ LABEL MODAL4 $ GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,,,,,,USETF,PHIA,PHIG,LAMA/KMAT,MMAT, GIH,PV4,/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=1/ S,Y,LMODES $ JUMP OLD2 $ LABEL NEW2 $ PARAM //*MPY*/REPT/1/1 $ LABEL OLD2 $ CASE CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $ PARAM //*MPY*/NEIGV/1/-1 $ READ KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/ S,N,NEIGV $ OFP LAMAT,OEIGH,,,,//S,N,CARDNO $ COND FINIS,NEIGV $ MPYAD GIH,PHIH,/PHII/0/1/0 $ EQUIV PHIH,PHIZ/NOFREE $ EQUIV PHII,PHIY/NOFREE $ COND MODAL5,NOFREE $ PARTN PHIH,,PV4/PHIZ,PHIFR,,/0 $ MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ LABEL MODAL5 $ COND ALLMODES,LMODES TRAILER PHIG//*STORE*/1/V,Y,LMODES $ TRAILER QG//*STORE*/1/V,Y,LMODES $ LABEL ALLMODES $ MPYAD PHIG,PHIZ,/PHIX/0/1/0 $ MPYAD QG,PHIZ,/QX/0/1/0 $ MERGE PHIX,PHIY,,,,PV1/PHIGT/0 $ MERGE QX,,,,,PV1/QGT/0 $ SDR2 CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $ ENDALTER $ 0*** $ END READFILE $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) BEFORE THIS CARD CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE PUNCHED OUT FOR THIS PROBLEM 0 RESTART T03121A ,NASTRAN , 5/18/95, 36590, 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T03-12-1A 3 $ REFERENCE PROBLEM IV.1 4 SPC = 10 5 DISP = ALL 6 SUBCASE 1 7 LABEL = MODES OF EMPTY STRUCTURE 8 METHOD = 50 9 SUBCASE 2 10 LABEL = MODES WITH FLUID INCLUDED 11 METHOD = 60 12 SPCF = ALL 13 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 35, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CFFREE 1 100 6 2- CFHEX2 1 200 1 2 4 3 5 6 +CFH1 3- +CFH1 8 7 4- CFLSTR 1 100 101 THRU 104 5- CQUAD2 101 100 101 102 106 105 6- CQUAD2 102 100 102 104 108 106 7- CQUAD2 103 100 104 103 107 108 8- CQUAD2 104 100 101 103 104 102 9- EIGR 50 GIV 0.0 2600.0 10 10 0 +EMOD1 10- +EMOD1 MAX 11- EIGR 60 GIV 0.0 10.0 6 6 0 +E1 12- +E1 MAX 13- GRAV 100 386.0 0.0 0.0 -1.0 14- GRID 1 0.0 0.0 0.0 15- GRID 2 6.0 0.0 0.0 16- GRID 3 0.0 12.0 0.0 17- GRID 4 6.0 12.0 0.0 18- GRID 5 0.0 0.0 12.0 19- GRID 6 6.0 0.0 12.0 20- GRID 7 0.0 12.0 12.0 21- GRID 8 6.0 12.0 12.0 22- GRID 101 0.0 0.0 0.0 23- GRID 102 6.0 0.0 0.0 24- GRID 103 0.0 12.0 0.0 25- GRID 104 6.0 12.0 0.0 26- GRID 105 0.0 0.0 12.0 27- GRID 106 6.0 0.0 12.0 28- GRID 107 0.0 12.0 12.0 29- GRID 108 6.0 12.0 12.0 30- MAT1 100 10.6+6 .3 .92-3 31- MATF 200 9.355-4 32- OMIT1 4 101 103 105 107 33- OMIT1 456 102 104 106 108 34- PQUAD2 100 100 .06 35- SPC1 10 1256 101 103 105 107 ENDDATA 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 XDMAP GO,ERR=2 $ 1 BEGIN HYDROELASTIC ANALYSIS - MODAL FORMULATION 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ 3 COMPOFF NEW1,NEWMODE $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1//$ 20 LABEL P1 $ 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR4,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 LABEL JMPKGG $ 32 COND ERROR1,NOMGG $ 33 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 34 PURGE MDICT,MELM/ALWAYS $ 35 COND LGPWG,GRDPNT $ 36 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 37 OFP OGPWG,,,,,//S,N,CARDNO $ 38 LABEL LGPWG $ 39 EQUIV KGGX,KGG/NOGENL $ 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T03-12-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 40 COND LBL11,NOGENL $ 41 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 42 LABEL LBL11 $ 43 GPSTGEN KGG,SIL/GPST $ 44 PARAM //*MPY*/NSKIP/0/0 $ 45 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 46 OFP OGPST,,,,,//S,N,CARDNO $ 47 COND ERROR3,NOL $ 48 PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ 48 FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ 48 VEC USETF/PV1/*G*/*X*/*Y* $ 48 PARTN KGG,PV1,/KXX,,,KYY $ 48 PARTN MGG,PV1,/MXX,,, $ 48 PARTN RG,PV1,/RX,,,/1 $ 48 EQUIV RX,RG $ 48 PARTN AF,PV1,/,,AXY,AYY $ 48 COND MODAL1,NOGRAV $ 48 PARTN DKGG,PV1,/DKXX,,,DKYY $ 48 COND MODAL1,NOFREE $ 48 VEC USETF/PV2/*Y*/*FR*/*COMP* $ 48 PARTN AYY,,PV2/AFRY,,,/0 $ 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T03-12-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 48 PARTN DKYY,PV2,/DKFRFR,,, $ 48 LABEL MODAL1 $ 48 LABEL NEW1 $ 48 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ 48 COND ERROR2,NOEED $ 48 COMPOFF NEW2,NEWMODE $ 48 PARAM //*MPY*/CARDNO/0/0 $ 48 COMPOFF NOSTRUC,OLDSTR $ 48 COMPON 2,DIFSTIF $ 48 COMPOFF 1,DIFSTIF $ 48 EQUIV KXX,KGG $ 48 EQUIV MXX,MGG $ 49 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 50 COND LBL2,MPCF1 $ 52 MCE1 USETS,RG/GM $ 52 MCE2 USETS,GM,KGG,MGG,,/KNN,MNN,, $ 53 LABEL LBL2 $ 54 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 55 COND LBL3,SINGLE $ 56 SCE1 USETS,KNN,MNN,,/KFF,KFS,,MFF,, $ 57 LABEL LBL3 $ 58 EQUIV KFF,KAA/OMIT $ 59 EQUIV MFF,MAA/OMIT $ 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T03-12-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 60 COND LBL5,OMIT $ 62 SMP1 USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 62 SMP2 USETS,GO,MFF/MAA $ 63 LABEL LBL5 $ 64 COND LBL6,REACT $ 65 RBMG1 USETS,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 66 RBMG2 KLL/LLL $ 67 RBMG3 LLL,KLR,KRR/DM $ 68 RBMG4 DM,MLL,MLR,MRR/MR $ 69 LABEL LBL6 $ 71 CASE CASECC,/CASE1/*REIGEN*/S,N,REPT/S,N,LOLP $ 72 PARAM //*MPY*/NEIGV/1/-1 $ 73 READ KAA,MAA,MR,DM,EED,USETS,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ 74 OFP OEIGS,,,,,//S,N,CARDNO $ 75 COND FINIS,NEIGV $ 76 OFP LAMA,,,,,//S,N,CARDNO $ 79 SDR1 USETS,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ 79 COND NOMPCF,GRDEQ $ 79 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ 80 OFP OQM1,,,,,//S,N,CARDNO $ 81 LABEL NOMPCF $ 82 MERGE PHIG,,,,,PV1/PHIGS/0 $ 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T03-12-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 82 MERGE QG,,,,,PV1/QGS/0 $ 82 SDR2 CASE1,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QGS,PHIGS,EST,,,/, OQGS,OPHIGS,,OEFS,PPHIGS,,/*REIG* $ 82 OFP OPHIGS,OQGS,OEFS,,,//S,N,CARDNO $ 82 LABEL NOSTRUC $ 82 PURGE DKAA/NOGRAV $ 82 COND MODAL4,NOGRAV $ 82 EQUIV DKXX,DKNN/MPCF1 $ 82 COND MODAL2,MPCF2 $ 82 MCE2 USETS,GM,DKXX,,,/DKNN,,, $ 82 LABEL MODAL2 $ 82 EQUIV DKNN,DKFF/SINGLE $ 82 COND MODAL3,SINGLE $ 82 SCE1 USETS,DKNN,,,/DKFF,,,,, $ 82 LABEL MODAL3 $ 82 EQUIV DKFF,DKAA/OMIT $ 82 COND MODAL4,OMIT $ 82 SMP2 USETS,GO,DKFF/DKAA $ 82 LABEL MODAL4 $ 82 GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,,,,,,USETF,PHIA,PHIG,LAMA/KMAT,MMAT, GIH,PV4,/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=1/ S,Y,LMODES $ 82 JUMP OLD2 $ 82 LABEL NEW2 $ 82 PARAM //*MPY*/REPT/1/1 $ 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T03-12-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 82 LABEL OLD2 $ 82 CASE CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $ 82 PARAM //*MPY*/NEIGV/1/-1 $ 82 READ KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/ S,N,NEIGV $ 82 OFP LAMAT,OEIGH,,,,//S,N,CARDNO $ 82 COND FINIS,NEIGV $ 82 MPYAD GIH,PHIH,/PHII/0/1/0 $ 82 EQUIV PHIH,PHIZ/NOFREE $ 82 EQUIV PHII,PHIY/NOFREE $ 82 COND MODAL5,NOFREE $ 82 PARTN PHIH,,PV4/PHIZ,PHIFR,,/0 $ 82 MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ 82 LABEL MODAL5 $ 82 COND ALLMODES,LMODES 82 TRAILER PHIG//*STORE*/1/V,Y,LMODES $ 82 TRAILER QG//*STORE*/1/V,Y,LMODES $ 82 LABEL ALLMODES $ 82 MPYAD PHIG,PHIZ,/PHIX/0/1/0 $ 82 MPYAD QG,PHIZ,/QX/0/1/0 $ 82 MERGE PHIX,PHIY,,,,PV1/PHIGT/0 $ 82 MERGE QX,,,,,PV1/QGT/0 $ 82 SDR2 CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $ 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T03-12-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 83 OFP OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $ 84 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 85 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 86 GPFDR CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ 87 OFP ONRGY1,,,,,//S,N,CARDNO $ 88 PURGE KDICT,KELM/ALWAYS $ 89 COND P2,JUMPPLOT $ 90 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 91 PRTMSG PLOTX2// $ 92 LABEL P2 $ 93 JUMP FINIS $ 94 LABEL ERROR1 $ 95 PRTPARM //-1/*MODES* $ 96 LABEL ERROR2 $ 97 PRTPARM //-2/*MODES* $ 98 LABEL ERROR3 $ 99 PRTPARM //-3/*MODES* $ 100 LABEL ERROR4 $ 101 PRTPARM //-4/*MODES* $ 102 LABEL FINIS $ 103 PURGE DUMMY/ALWAYS $ 104 END $ 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T03-12-1A 0 CONTINUATION OF CHECKPOINT DICTIONARY 1, XVPS , FLAGS = 0, REEL = 1, FILE = 6 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 8 PROFILE 69 MAX WAVEFRONT 8 AVG WAVEFRONT 4.312 RMS WAVEFRONT 4.789 RMS BANDWIDTH 4.802 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 8 PROFILE 64 MAX WAVEFRONT 8 AVG WAVEFRONT 4.000 RMS WAVEFRONT 4.444 RMS BANDWIDTH 4.444 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 8 8 PROFILE (P) 69 64 MAXIMUM WAVEFRONT (C-MAX) 8 8 AVERAGE WAVEFRONT (C-AVG) 4.312 4.000 RMS WAVEFRONT (C-RMS) 4.789 4.444 RMS BANDWITCH (B-RMS) 4.802 4.444 NUMBER OF GRID POINTS (N) 16 NUMBER OF ELEMENTS (NON-RIGID) 5 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 2 MAXIMUM NODAL DEGREE 7 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 47 MATRIX DENSITY, PERCENT 42.969 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 4 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T03-12-1A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 9 2 16 3 11 4 10 SEQGP 5 12 6 13 7 15 8 14 SEQGP 101 2 102 4 103 5 104 6 SEQGP 105 1 106 3 107 8 108 7 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** SYSTEM WARNING MESSAGE 2072, CARD TYPE 4802 NOT FOUND ON DATA BLOCK. BIT POSITION = 48 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 2, REENTER AT DMAP SEQUENCE NUMBER 6 3, GPL , FLAGS = 0, REEL = 1, FILE = 7 4, EQEXIN , FLAGS = 0, REEL = 1, FILE = 8 5, GPDT , FLAGS = 0, REEL = 1, FILE = 9 6, BGPDT , FLAGS = 0, REEL = 1, FILE = 10 7, SIL , FLAGS = 0, REEL = 1, FILE = 11 8, XVPS , FLAGS = 0, REEL = 1, FILE = 12 9, CSTM , FLAGS = 0, REEL = 0, FILE = 0 10, REENTER AT DMAP SEQUENCE NUMBER 7 11, XVPS , FLAGS = 0, REEL = 1, FILE = 13 12, MPTA , FLAGS = 0, REEL = 0, FILE = 0 13, REENTER AT DMAP SEQUENCE NUMBER 8 14, MPT , FLAGS = 0, REEL = 1, FILE = 14 15, XVPS , FLAGS = 0, REEL = 1, FILE = 15 16, REENTER AT DMAP SEQUENCE NUMBER 9 17, BGPDP , FLAGS = 0, REEL = 1, FILE = 16 18, SIP , FLAGS = 0, REEL = 1, FILE = 17 19, XVPS , FLAGS = 0, REEL = 1, FILE = 18 20, REENTER AT DMAP SEQUENCE NUMBER 10 21, ECT , FLAGS = 0, REEL = 1, FILE = 19 22, XVPS , FLAGS = 0, REEL = 1, FILE = 20 23, REENTER AT DMAP SEQUENCE NUMBER 12 24, XVPS , FLAGS = 0, REEL = 1, FILE = 21 25, PLTSETX , FLAGS = 0, REEL = 0, FILE = 0 26, PLTPAR , FLAGS = 0, REEL = 0, FILE = 0 27, GPSETS , FLAGS = 0, REEL = 0, FILE = 0 28, ELSETS , FLAGS = 0, REEL = 0, FILE = 0 29, REENTER AT DMAP SEQUENCE NUMBER 22 30, XVPS , FLAGS = 0, REEL = 1, FILE = 22 31, GPTT , FLAGS = 0, REEL = 0, FILE = 0 32, REENTER AT DMAP SEQUENCE NUMBER 23 33, EST , FLAGS = 0, REEL = 1, FILE = 23 34, GPECT , FLAGS = 0, REEL = 1, FILE = 24 35, XVPS , FLAGS = 0, REEL = 1, FILE = 25 36, GEI , FLAGS = 0, REEL = 0, FILE = 0 37, MPTX , FLAGS = 0, REEL = 0, FILE = 0 38, PCOMPS , FLAGS = 0, REEL = 0, FILE = 0 39, EPTX , FLAGS = 0, REEL = 0, FILE = 0 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 40, REENTER AT DMAP SEQUENCE NUMBER 24 41, MPT , FLAGS = 0, REEL = 1, FILE = 26 42, EPT , FLAGS = 0, REEL = 1, FILE = 27 43, XVPS , FLAGS = 0, REEL = 1, FILE = 28 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FHEX2 ELEMENTS (ELEMENT TYPE 77) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 101 44, REENTER AT DMAP SEQUENCE NUMBER 28 45, KELM , FLAGS = 0, REEL = 1, FILE = 29 46, KDICT , FLAGS = 0, REEL = 1, FILE = 30 47, MELM , FLAGS = 0, REEL = 1, FILE = 31 48, MDICT , FLAGS = 0, REEL = 1, FILE = 32 49, XVPS , FLAGS = 0, REEL = 1, FILE = 33 50, REENTER AT DMAP SEQUENCE NUMBER 29 51, XVPS , FLAGS = 0, REEL = 1, FILE = 34 52, KGGX , FLAGS = 0, REEL = 0, FILE = 0 53, REENTER AT DMAP SEQUENCE NUMBER 31 54, KGGX , FLAGS = 0, REEL = 1, FILE = 35 55, XVPS , FLAGS = 0, REEL = 1, FILE = 36 56, REENTER AT DMAP SEQUENCE NUMBER 34 57, MGG , FLAGS = 0, REEL = 1, FILE = 37 58, XVPS , FLAGS = 0, REEL = 1, FILE = 38 59, REENTER AT DMAP SEQUENCE NUMBER 35 60, XVPS , FLAGS = 0, REEL = 1, FILE = 39 61, MDICT , FLAGS = 0, REEL = 0, FILE = 0 62, MELM , FLAGS = 0, REEL = 0, FILE = 0 63, REENTER AT DMAP SEQUENCE NUMBER 40 64, KGGX , FLAGS = 4, REEL = 1, FILE = 35 65, KGG , FLAGS = 4, REEL = 1, FILE = 35 66, XVPS , FLAGS = 0, REEL = 1, FILE = 40 67, REENTER AT DMAP SEQUENCE NUMBER 44 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 68, GPST , FLAGS = 0, REEL = 1, FILE = 41 69, XVPS , FLAGS = 0, REEL = 1, FILE = 42 70, REENTER AT DMAP SEQUENCE NUMBER 46 71, YS , FLAGS = 0, REEL = 1, FILE = 43 72, USET , FLAGS = 0, REEL = 1, FILE = 44 73, XVPS , FLAGS = 0, REEL = 1, FILE = 45 74, RG , FLAGS = 0, REEL = 0, FILE = 0 75, ASET , FLAGS = 0, REEL = 0, FILE = 0 76, OGPST , FLAGS = 0, REEL = 0, FILE = 0 77, REENTER AT DMAP SEQUENCE NUMBER 48 78, XVPS , FLAGS = 0, REEL = 1, FILE = 46 79, KRR , FLAGS = 0, REEL = 0, FILE = 0 80, KLR , FLAGS = 0, REEL = 0, FILE = 0 81, DM , FLAGS = 0, REEL = 0, FILE = 0 82, MLR , FLAGS = 0, REEL = 0, FILE = 0 83, MR , FLAGS = 0, REEL = 0, FILE = 0 84, GM , FLAGS = 0, REEL = 0, FILE = 0 85, GO , FLAGS = 0, REEL = 0, FILE = 0 86, KFS , FLAGS = 0, REEL = 0, FILE = 0 87, QG , FLAGS = 0, REEL = 0, FILE = 0 88, REENTER AT DMAP SEQUENCE NUMBER 49 89, USETF , FLAGS = 0, REEL = 1, FILE = 47 90, USETS , FLAGS = 0, REEL = 1, FILE = 48 91, AF , FLAGS = 0, REEL = 1, FILE = 49 92, DKGG , FLAGS = 0, REEL = 1, FILE = 50 93, XVPS , FLAGS = 0, REEL = 1, FILE = 51 94, REENTER AT DMAP SEQUENCE NUMBER 49 95, PV1 , FLAGS = 0, REEL = 1, FILE = 52 96, XVPS , FLAGS = 0, REEL = 1, FILE = 53 97, REENTER AT DMAP SEQUENCE NUMBER 49 98, KXX , FLAGS = 0, REEL = 1, FILE = 54 99, KYY , FLAGS = 0, REEL = 1, FILE = 55 100, XVPS , FLAGS = 0, REEL = 1, FILE = 56 101, REENTER AT DMAP SEQUENCE NUMBER 49 102, MXX , FLAGS = 0, REEL = 1, FILE = 57 103, XVPS , FLAGS = 0, REEL = 1, FILE = 58 104, REENTER AT DMAP SEQUENCE NUMBER 49 105, XVPS , FLAGS = 0, REEL = 1, FILE = 59 106, RX , FLAGS = 0, REEL = 0, FILE = 0 107, REENTER AT DMAP SEQUENCE NUMBER 48 108, XVPS , FLAGS = 0, REEL = 1, FILE = 60 109, REENTER AT DMAP SEQUENCE NUMBER 49 110, AXY , FLAGS = 0, REEL = 1, FILE = 61 111, AYY , FLAGS = 0, REEL = 1, FILE = 62 112, XVPS , FLAGS = 0, REEL = 1, FILE = 63 113, REENTER AT DMAP SEQUENCE NUMBER 49 114, DKXX , FLAGS = 0, REEL = 1, FILE = 64 115, DKYY , FLAGS = 0, REEL = 1, FILE = 65 116, XVPS , FLAGS = 0, REEL = 1, FILE = 66 117, REENTER AT DMAP SEQUENCE NUMBER 49 118, PV2 , FLAGS = 0, REEL = 1, FILE = 67 119, XVPS , FLAGS = 0, REEL = 1, FILE = 68 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN -1 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 120, REENTER AT DMAP SEQUENCE NUMBER 49 121, AFRY , FLAGS = 0, REEL = 1, FILE = 69 122, XVPS , FLAGS = 0, REEL = 1, FILE = 70 123, REENTER AT DMAP SEQUENCE NUMBER 49 124, DKFRFR , FLAGS = 0, REEL = 1, FILE = 71 125, XVPS , FLAGS = 0, REEL = 1, FILE = 72 126, REENTER AT DMAP SEQUENCE NUMBER 49 127, GPLD , FLAGS = 0, REEL = 1, FILE = 73 128, SILD , FLAGS = 0, REEL = 1, FILE = 74 129, USETD , FLAGS = 0, REEL = 1, FILE = 75 130, EED , FLAGS = 0, REEL = 1, FILE = 76 131, EQDYN , FLAGS = 0, REEL = 1, FILE = 77 132, XVPS , FLAGS = 0, REEL = 1, FILE = 78 133, REENTER AT DMAP SEQUENCE NUMBER 48 134, KXX , FLAGS = 4, REEL = 1, FILE = 35 135, XVPS , FLAGS = 0, REEL = 1, FILE = 79 136, REENTER AT DMAP SEQUENCE NUMBER 48 137, MXX , FLAGS = 4, REEL = 1, FILE = 57 138, MGG , FLAGS = 4, REEL = 1, FILE = 57 139, XVPS , FLAGS = 0, REEL = 1, FILE = 80 140, REENTER AT DMAP SEQUENCE NUMBER 50 141, KNN , FLAGS = 4, REEL = 1, FILE = 81 142, KGG , FLAGS = 4, REEL = 1, FILE = 81 143, KXX , FLAGS = 4, REEL = 1, FILE = 81 144, KGGX , FLAGS = 4, REEL = 1, FILE = 81 145, MNN , FLAGS = 4, REEL = 1, FILE = 82 146, MXX , FLAGS = 4, REEL = 1, FILE = 82 147, MGG , FLAGS = 4, REEL = 1, FILE = 82 148, XVPS , FLAGS = 0, REEL = 1, FILE = 83 149, REENTER AT DMAP SEQUENCE NUMBER 55 150, XVPS , FLAGS = 0, REEL = 1, FILE = 84 151, KFF , FLAGS = 0, REEL = 0, FILE = 0 152, MFF , FLAGS = 0, REEL = 0, FILE = 0 153, REENTER AT DMAP SEQUENCE NUMBER 57 154, KFF , FLAGS = 0, REEL = 1, FILE = 85 155, KFS , FLAGS = 0, REEL = 1, FILE = 86 156, MFF , FLAGS = 0, REEL = 1, FILE = 87 157, XVPS , FLAGS = 0, REEL = 1, FILE = 88 158, REENTER AT DMAP SEQUENCE NUMBER 59 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 159, XVPS , FLAGS = 0, REEL = 1, FILE = 89 160, KAA , FLAGS = 0, REEL = 0, FILE = 0 161, REENTER AT DMAP SEQUENCE NUMBER 60 162, XVPS , FLAGS = 0, REEL = 1, FILE = 90 163, MAA , FLAGS = 0, REEL = 0, FILE = 0 164, REENTER AT DMAP SEQUENCE NUMBER 63 165, GO , FLAGS = 0, REEL = 1, FILE = 91 166, KAA , FLAGS = 0, REEL = 1, FILE = 92 167, KOO , FLAGS = 0, REEL = 1, FILE = 93 168, LOO , FLAGS = 0, REEL = 1, FILE = 94 169, XVPS , FLAGS = 0, REEL = 1, FILE = 95 170, REENTER AT DMAP SEQUENCE NUMBER 63 171, MAA , FLAGS = 0, REEL = 1, FILE = 96 172, XVPS , FLAGS = 0, REEL = 1, FILE = 97 173, REENTER AT DMAP SEQUENCE NUMBER 72 174, CASE1 , FLAGS = 0, REEL = 1, FILE = 98 175, XVPS , FLAGS = 0, REEL = 1, FILE = 99 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 16, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 176, REENTER AT DMAP SEQUENCE NUMBER 74 177, LAMA , FLAGS = 0, REEL = 1, FILE = 100 178, PHIA , FLAGS = 0, REEL = 1, FILE = 101 179, MI , FLAGS = 0, REEL = 1, FILE = 102 180, OEIGS , FLAGS = 0, REEL = 1, FILE = 103 181, XVPS , FLAGS = 0, REEL = 1, FILE = 104 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T03-12-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 16 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 10 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T03-12-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 16 7.874970E-06 2.806238E-03 4.466266E-04 1.987200E-02 1.564914E-07 2 15 7.009578E+03 8.372322E+01 1.332496E+01 1.093183E-02 7.662748E+01 3 14 3.602324E+07 6.001936E+03 9.552377E+02 1.730355E-02 6.233300E+05 4 13 1.190563E+08 1.091129E+04 1.736586E+03 1.358900E-02 1.617856E+06 5 12 1.712768E+08 1.308728E+04 2.082905E+03 9.036543E-03 1.547750E+06 6 11 2.047793E+08 1.431011E+04 2.277525E+03 1.303608E-02 2.669520E+06 7 10 2.264891E+08 1.504955E+04 2.395211E+03 1.291201E-02 2.924430E+06 8 9 2.692251E+08 1.640808E+04 2.611427E+03 1.603370E-02 4.316672E+06 9 8 2.806849E+08 1.675365E+04 2.666427E+03 1.390103E-02 3.901808E+06 10 7 3.246613E+08 1.801836E+04 2.867711E+03 2.022416E-02 6.566002E+06 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 182, REENTER AT DMAP SEQUENCE NUMBER 80 183, PHIG , FLAGS = 0, REEL = 1, FILE = 105 184, QG , FLAGS = 0, REEL = 1, FILE = 106 185, XVPS , FLAGS = 0, REEL = 1, FILE = 107 186, REENTER AT DMAP SEQUENCE NUMBER 83 187, PHIGS , FLAGS = 0, REEL = 1, FILE = 108 188, XVPS , FLAGS = 0, REEL = 1, FILE = 109 189, REENTER AT DMAP SEQUENCE NUMBER 83 190, QGS , FLAGS = 0, REEL = 1, FILE = 110 191, XVPS , FLAGS = 0, REEL = 1, FILE = 111 192, REENTER AT DMAP SEQUENCE NUMBER 83 193, OPHIGS , FLAGS = 0, REEL = 1, FILE = 112 194, XVPS , FLAGS = 0, REEL = 1, FILE = 113 195, OQGS , FLAGS = 0, REEL = 0, FILE = 0 196, OEFS , FLAGS = 0, REEL = 0, FILE = 0 197, PPHIGS , FLAGS = 0, REEL = 0, FILE = 0 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES OF EMPTY STRUCTURE SUBCASE 1 EIGENVALUE = 0.787497E-05 (CYCLIC FREQUENCY = 4.466266E-04 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 0.0 0.0 0.0 0.0 0.0 0.0 7 S 0.0 0.0 101 G 0.0 0.0 1.000000E+00 -1.648181E-12 0.0 0.0 102 G -3.103168E-16 -2.342892E-15 1.000000E+00 -1.657810E-12 -3.363634E-13 1.125652E-13 103 G 0.0 0.0 1.000000E+00 -1.648434E-12 0.0 0.0 104 G 3.956539E-16 -2.296344E-15 1.000000E+00 -1.658011E-12 3.364156E-13 1.125457E-13 105 G 0.0 0.0 1.000000E+00 1.556365E-12 0.0 0.0 106 G 6.136280E-16 1.921746E-11 1.000000E+00 -2.790411E-12 -8.332017E-14 1.870215E-12 107 G 0.0 0.0 1.000000E+00 1.556540E-12 0.0 0.0 108 G -3.687119E-16 1.921669E-11 1.000000E+00 -2.790119E-12 8.336489E-14 1.870124E-12 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES OF EMPTY STRUCTURE SUBCASE 1 EIGENVALUE = 0.700958E+04 (CYCLIC FREQUENCY = 1.332496E+01 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 0.0 0.0 0.0 0.0 0.0 0.0 7 S 0.0 0.0 101 G 0.0 0.0 5.001284E-01 -8.576138E-02 0.0 0.0 102 G -4.927059E-06 -7.136117E-05 5.001084E-01 -8.626356E-02 -1.751013E-02 5.864994E-03 103 G 0.0 0.0 -5.001284E-01 -8.576138E-02 0.0 0.0 104 G 4.927059E-06 -7.136117E-05 -5.001084E-01 -8.626356E-02 1.751013E-02 5.864994E-03 105 G 0.0 0.0 5.001232E-01 8.098758E-02 0.0 0.0 106 G 2.259931E-05 1.000000E+00 5.001021E-01 -1.451946E-01 -4.332843E-03 9.731877E-02 107 G 0.0 0.0 -5.001232E-01 8.098758E-02 0.0 0.0 108 G -2.259931E-05 1.000000E+00 -5.001021E-01 -1.451946E-01 4.332843E-03 9.731877E-02 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES OF EMPTY STRUCTURE SUBCASE 1 EIGENVALUE = 0.360232E+08 (CYCLIC FREQUENCY = 9.552377E+02 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 0.0 0.0 0.0 0.0 0.0 0.0 7 S 0.0 0.0 101 G 0.0 0.0 -6.319013E-01 3.371123E-02 0.0 0.0 102 G 9.655136E-02 1.000000E+00 -4.547352E-01 6.417513E-02 -6.931483E-02 1.392699E-01 103 G 0.0 0.0 6.319013E-01 3.371123E-02 0.0 0.0 104 G -9.655136E-02 1.000000E+00 4.547352E-01 6.417513E-02 6.931483E-02 1.392699E-01 105 G 0.0 0.0 -5.995761E-01 2.629951E-02 0.0 0.0 106 G -2.573807E-02 8.355103E-01 -4.430087E-01 -3.102301E-02 6.121713E-02 9.538240E-02 107 G 0.0 0.0 5.995761E-01 2.629951E-02 0.0 0.0 108 G 2.573807E-02 8.355103E-01 4.430087E-01 -3.102301E-02 -6.121713E-02 9.538240E-02 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES OF EMPTY STRUCTURE SUBCASE 1 EIGENVALUE = 0.119056E+09 (CYCLIC FREQUENCY = 1.736586E+03 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 0.0 0.0 0.0 0.0 0.0 0.0 7 S 0.0 0.0 101 G 0.0 0.0 1.000000E+00 -1.200209E-01 0.0 0.0 102 G 6.090973E-02 8.730151E-01 1.828061E-01 5.935423E-02 1.224368E-01 9.020450E-02 103 G 0.0 0.0 -1.000000E+00 -1.200209E-01 0.0 0.0 104 G -6.090973E-02 8.730151E-01 -1.828061E-01 5.935423E-02 -1.224368E-01 9.020450E-02 105 G 0.0 0.0 6.087350E-01 8.717962E-02 0.0 0.0 106 G 2.838096E-01 -5.832370E-01 5.302334E-02 2.463192E-01 2.326653E-02 -2.980423E-02 107 G 0.0 0.0 -6.087350E-01 8.717962E-02 0.0 0.0 108 G -2.838096E-01 -5.832370E-01 -5.302334E-02 2.463192E-01 -2.326653E-02 -2.980423E-02 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES OF EMPTY STRUCTURE SUBCASE 1 EIGENVALUE = 0.171277E+09 (CYCLIC FREQUENCY = 2.082905E+03 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 0.0 0.0 0.0 0.0 0.0 0.0 7 S 0.0 0.0 101 G 0.0 0.0 1.000000E+00 -4.607198E-02 0.0 0.0 102 G -3.000264E-02 -8.090483E-02 -1.643192E-01 6.709524E-03 2.222775E-01 -2.701596E-02 103 G 0.0 0.0 1.000000E+00 4.607198E-02 0.0 0.0 104 G -3.000264E-02 8.090483E-02 -1.643192E-01 -6.709524E-03 2.222775E-01 2.701596E-02 105 G 0.0 0.0 2.260682E-01 1.932247E-02 0.0 0.0 106 G 6.995302E-01 -1.528455E-01 -5.229304E-01 1.007143E-02 -3.781930E-02 -1.506352E-02 107 G 0.0 0.0 2.260682E-01 -1.932247E-02 0.0 0.0 108 G 6.995302E-01 1.528455E-01 -5.229304E-01 -1.007143E-02 -3.781930E-02 1.506352E-02 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES OF EMPTY STRUCTURE SUBCASE 1 EIGENVALUE = 0.204779E+09 (CYCLIC FREQUENCY = 2.277525E+03 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 0.0 0.0 0.0 0.0 0.0 0.0 7 S 0.0 0.0 101 G 0.0 0.0 7.029415E-01 -5.486291E-02 0.0 0.0 102 G -3.957042E-02 -3.546025E-01 -3.852553E-01 8.923478E-02 1.833769E-01 -6.249641E-02 103 G 0.0 0.0 -7.029415E-01 -5.486291E-02 0.0 0.0 104 G 3.957042E-02 -3.546025E-01 3.852553E-01 8.923478E-02 -1.833769E-01 -6.249641E-02 105 G 0.0 0.0 -6.244392E-02 -9.546609E-03 0.0 0.0 106 G 1.000000E+00 3.385811E-01 -6.112938E-01 -2.052135E-01 2.808534E-02 8.819088E-02 107 G 0.0 0.0 6.244392E-02 -9.546609E-03 0.0 0.0 108 G -1.000000E+00 3.385811E-01 6.112938E-01 -2.052135E-01 -2.808534E-02 8.819088E-02 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES OF EMPTY STRUCTURE SUBCASE 1 EIGENVALUE = 0.226489E+09 (CYCLIC FREQUENCY = 2.395211E+03 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 0.0 0.0 0.0 0.0 0.0 0.0 7 S 0.0 0.0 101 G 0.0 0.0 -3.049295E-01 9.840952E-02 0.0 0.0 102 G 2.253884E-01 -3.840320E-01 6.103872E-01 4.409168E-02 -1.808270E-01 -8.681224E-02 103 G 0.0 0.0 -3.049295E-01 -9.840952E-02 0.0 0.0 104 G 2.253884E-01 3.840320E-01 6.103872E-01 -4.409168E-02 -1.808270E-01 8.681224E-02 105 G 0.0 0.0 -8.256519E-01 -7.857429E-02 0.0 0.0 106 G 5.520390E-02 -1.000000E+00 -3.353460E-01 9.629875E-02 9.223031E-02 -1.778240E-01 107 G 0.0 0.0 -8.256519E-01 7.857429E-02 0.0 0.0 108 G 5.520390E-02 1.000000E+00 -3.353460E-01 -9.629875E-02 9.223031E-02 1.778240E-01 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES OF EMPTY STRUCTURE SUBCASE 1 EIGENVALUE = 0.269225E+09 (CYCLIC FREQUENCY = 2.611427E+03 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 0.0 0.0 0.0 0.0 0.0 0.0 7 S 0.0 0.0 101 G 0.0 0.0 -5.067990E-01 5.058000E-03 0.0 0.0 102 G 6.107841E-01 3.380395E-01 3.791914E-01 -3.150927E-02 -1.391838E-01 8.410074E-02 103 G 0.0 0.0 -5.067990E-01 -5.058000E-03 0.0 0.0 104 G 6.107841E-01 -3.380395E-01 3.791914E-01 3.150927E-02 -1.391838E-01 -8.410074E-02 105 G 0.0 0.0 -8.150305E-01 2.093689E-02 0.0 0.0 106 G 1.000000E+00 6.667446E-01 1.039544E-01 -4.559622E-02 1.342700E-01 1.021551E-01 107 G 0.0 0.0 -8.150305E-01 -2.093689E-02 0.0 0.0 108 G 1.000000E+00 -6.667446E-01 1.039544E-01 4.559622E-02 1.342700E-01 -1.021551E-01 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES OF EMPTY STRUCTURE SUBCASE 1 EIGENVALUE = 0.280685E+09 (CYCLIC FREQUENCY = 2.666427E+03 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 0.0 0.0 0.0 0.0 0.0 0.0 7 S 0.0 0.0 101 G 0.0 0.0 -6.118988E-01 6.772315E-02 0.0 0.0 102 G 5.519021E-01 6.493690E-02 7.103338E-01 -1.675558E-01 -1.428724E-01 8.185375E-02 103 G 0.0 0.0 6.118988E-01 6.772315E-02 0.0 0.0 104 G -5.519021E-01 6.493690E-02 -7.103338E-01 -1.675558E-01 1.428724E-01 8.185375E-02 105 G 0.0 0.0 -1.000000E+00 -5.992281E-02 0.0 0.0 106 G 7.962918E-01 -1.482977E-01 9.069622E-02 1.691259E-01 9.371361E-02 9.847935E-02 107 G 0.0 0.0 1.000000E+00 -5.992281E-02 0.0 0.0 108 G -7.962918E-01 -1.482977E-01 -9.069622E-02 1.691259E-01 -9.371361E-02 9.847935E-02 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES OF EMPTY STRUCTURE SUBCASE 1 EIGENVALUE = 0.324661E+09 (CYCLIC FREQUENCY = 2.867711E+03 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 0.0 0.0 0.0 0.0 0.0 0.0 7 S 0.0 0.0 101 G 0.0 0.0 -8.993527E-01 6.213098E-02 0.0 0.0 102 G -5.434843E-01 -1.682397E-01 -3.462511E-01 2.458907E-02 -7.078493E-02 -4.130588E-02 103 G 0.0 0.0 -8.993527E-01 -6.213098E-02 0.0 0.0 104 G -5.434843E-01 1.682397E-01 -3.462511E-01 -2.458907E-02 -7.078493E-02 4.130588E-02 105 G 0.0 0.0 9.698256E-01 -4.308113E-02 0.0 0.0 106 G 1.000000E+00 -6.353323E-01 7.379614E-01 7.938575E-02 2.525044E-01 -1.164684E-01 107 G 0.0 0.0 9.698256E-01 4.308113E-02 0.0 0.0 108 G 1.000000E+00 6.353323E-01 7.379614E-01 -7.938575E-02 2.525044E-01 1.164684E-01 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 198, REENTER AT DMAP SEQUENCE NUMBER 82 199, XVPS , FLAGS = 0, REEL = 1, FILE = 114 200, DKAA , FLAGS = 0, REEL = 0, FILE = 0 201, REENTER AT DMAP SEQUENCE NUMBER 82 202, DKXX , FLAGS = 4, REEL = 1, FILE = 64 203, DKNN , FLAGS = 4, REEL = 1, FILE = 64 204, XVPS , FLAGS = 0, REEL = 1, FILE = 115 205, REENTER AT DMAP SEQUENCE NUMBER 82 206, XVPS , FLAGS = 0, REEL = 1, FILE = 116 207, DKFF , FLAGS = 0, REEL = 0, FILE = 0 208, REENTER AT DMAP SEQUENCE NUMBER 83 209, DKFF , FLAGS = 0, REEL = 1, FILE = 117 210, XVPS , FLAGS = 0, REEL = 1, FILE = 118 211, REENTER AT DMAP SEQUENCE NUMBER 82 212, XVPS , FLAGS = 0, REEL = 1, FILE = 119 213, REENTER AT DMAP SEQUENCE NUMBER 83 214, DKAA , FLAGS = 0, REEL = 1, FILE = 120 215, XVPS , FLAGS = 0, REEL = 1, FILE = 121 0 ROOTS BELOW 1.000000E-10 216, REENTER AT DMAP SEQUENCE NUMBER 83 217, KMAT , FLAGS = 0, REEL = 1, FILE = 122 218, MMAT , FLAGS = 0, REEL = 1, FILE = 123 219, GIH , FLAGS = 0, REEL = 1, FILE = 124 220, PV4 , FLAGS = 0, REEL = 1, FILE = 125 221, XVPS , FLAGS = 0, REEL = 1, FILE = 126 222, REENTER AT DMAP SEQUENCE NUMBER 83 223, CASE2 , FLAGS = 0, REEL = 1, FILE = 127 224, XVPS , FLAGS = 0, REEL = 1, FILE = 128 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 14, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 225, REENTER AT DMAP SEQUENCE NUMBER 83 226, LAMAT , FLAGS = 0, REEL = 1, FILE = 129 227, PHIH , FLAGS = 0, REEL = 1, FILE = 130 228, MH , FLAGS = 0, REEL = 1, FILE = 131 229, OEIGH , FLAGS = 0, REEL = 1, FILE = 132 230, XVPS , FLAGS = 0, REEL = 1, FILE = 133 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T03-12-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 13 -1.574339E-01 3.967794E-01 6.314941E-02 8.241057E-01 -1.297422E-01 2 14 1.490182E+02 1.220730E+01 1.942852E+00 9.557772E-02 1.424282E+01 3 12 6.146253E+02 2.479164E+01 3.945712E+00 8.442485E-03 5.188965E+00 4 11 7.383858E+02 2.717326E+01 4.324758E+00 1.173731E-02 8.666662E+00 5 10 2.104722E+03 4.587725E+01 7.301590E+00 3.317093E-03 6.981558E+00 6 9 1.064857E+06 1.031919E+03 1.642350E+02 1.859074E-02 1.979649E+04 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T03-12-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 14 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 6 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 231, REENTER AT DMAP SEQUENCE NUMBER 83 232, PHII , FLAGS = 0, REEL = 1, FILE = 134 233, XVPS , FLAGS = 0, REEL = 1, FILE = 135 234, REENTER AT DMAP SEQUENCE NUMBER 82 235, XVPS , FLAGS = 0, REEL = 1, FILE = 136 236, PHIZ , FLAGS = 0, REEL = 0, FILE = 0 237, REENTER AT DMAP SEQUENCE NUMBER 82 238, XVPS , FLAGS = 0, REEL = 1, FILE = 137 239, PHIY , FLAGS = 0, REEL = 0, FILE = 0 240, REENTER AT DMAP SEQUENCE NUMBER 83 241, PHIZ , FLAGS = 0, REEL = 1, FILE = 138 242, PHIFR , FLAGS = 0, REEL = 1, FILE = 139 243, XVPS , FLAGS = 0, REEL = 1, FILE = 140 244, REENTER AT DMAP SEQUENCE NUMBER 83 245, PHIY , FLAGS = 0, REEL = 1, FILE = 141 246, XVPS , FLAGS = 0, REEL = 1, FILE = 142 247, REENTER AT DMAP SEQUENCE NUMBER 83 248, PHIX , FLAGS = 0, REEL = 1, FILE = 143 249, XVPS , FLAGS = 0, REEL = 1, FILE = 144 250, REENTER AT DMAP SEQUENCE NUMBER 83 251, QX , FLAGS = 0, REEL = 1, FILE = 145 252, XVPS , FLAGS = 0, REEL = 1, FILE = 146 253, REENTER AT DMAP SEQUENCE NUMBER 83 254, PHIGT , FLAGS = 0, REEL = 1, FILE = 147 255, XVPS , FLAGS = 0, REEL = 1, FILE = 148 256, REENTER AT DMAP SEQUENCE NUMBER 83 257, QGT , FLAGS = 0, REEL = 1, FILE = 149 258, XVPS , FLAGS = 0, REEL = 1, FILE = 150 259, REENTER AT DMAP SEQUENCE NUMBER 83 260, OQG1 , FLAGS = 0, REEL = 1, FILE = 151 261, OPHIG , FLAGS = 0, REEL = 1, FILE = 152 262, XVPS , FLAGS = 0, REEL = 1, FILE = 153 263, OES1 , FLAGS = 0, REEL = 0, FILE = 0 264, OEF1 , FLAGS = 0, REEL = 0, FILE = 0 265, PPHIG , FLAGS = 0, REEL = 0, FILE = 0 266, OES1L , FLAGS = 0, REEL = 0, FILE = 0 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 267, OEF1L , FLAGS = 0, REEL = 0, FILE = 0 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 44 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = -0.157434E+00 (CYCLIC FREQUENCY = 6.314941E-02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -5.598960E-03 -5.598961E-03 -5.598960E-03 -5.598961E-03 9.949976E-01 9.949976E-01 7 S 9.949976E-01 9.949976E-01 101 G 0.0 0.0 1.000000E+00 -1.223401E-09 0.0 0.0 102 G -1.961513E-09 1.229128E-08 1.000000E+00 -1.534302E-09 -5.095475E-09 3.268961E-09 103 G 0.0 0.0 1.000000E+00 1.219465E-09 0.0 0.0 104 G -1.961215E-09 -1.229022E-08 1.000000E+00 1.530570E-09 -5.094774E-09 -3.268624E-09 105 G 0.0 0.0 1.000000E+00 1.419803E-09 0.0 0.0 106 G -9.304541E-08 3.783302E-08 1.000000E+00 -4.202198E-09 -9.224661E-09 6.372701E-09 107 G 0.0 0.0 1.000000E+00 -1.416066E-09 0.0 0.0 108 G -9.304436E-08 -3.778921E-08 1.000000E+00 4.196006E-09 -9.224403E-09 -6.368534E-09 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 45 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.149018E+03 (CYCLIC FREQUENCY = 1.942852E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -1.478352E-03 -1.506407E-03 1.478352E-03 1.506407E-03 -7.336721E-01 -1.000000E+00 7 S 7.336721E-01 1.000000E+00 101 G 0.0 0.0 1.755916E-01 -3.011164E-02 0.0 0.0 102 G -4.300262E-06 -4.231048E-06 1.755845E-01 -3.028642E-02 -6.149380E-03 2.061619E-03 103 G 0.0 0.0 -1.755916E-01 -3.011164E-02 0.0 0.0 104 G 4.300262E-06 -4.231049E-06 -1.755845E-01 -3.028642E-02 6.149380E-03 2.061619E-03 105 G 0.0 0.0 1.755996E-01 2.843693E-02 0.0 0.0 106 G -7.572113E-06 3.511234E-01 1.755895E-01 -5.097926E-02 -1.521295E-03 3.416974E-02 107 G 0.0 0.0 -1.755996E-01 2.843693E-02 0.0 0.0 108 G 7.572112E-06 3.511234E-01 -1.755895E-01 -5.097926E-02 1.521295E-03 3.416974E-02 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 46 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.614625E+03 (CYCLIC FREQUENCY = 3.945712E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -2.338617E-05 -5.657782E-05 2.338617E-05 5.657782E-05 1.000000E+00 -2.992511E-01 7 S -1.000000E+00 2.992511E-01 101 G 0.0 0.0 4.361956E-02 -7.480458E-03 0.0 0.0 102 G -9.642910E-07 -4.255490E-07 4.362029E-02 -7.524231E-03 -1.528189E-03 5.123292E-04 103 G 0.0 0.0 -4.361956E-02 -7.480458E-03 0.0 0.0 104 G 9.642911E-07 -4.255490E-07 -4.362029E-02 -7.524231E-03 1.528189E-03 5.123292E-04 105 G 0.0 0.0 4.362280E-02 7.064622E-03 0.0 0.0 106 G -3.053602E-06 8.723374E-02 4.362193E-02 -1.266540E-02 -3.778802E-04 8.489138E-03 107 G 0.0 0.0 -4.362280E-02 7.064622E-03 0.0 0.0 108 G 3.053602E-06 8.723374E-02 -4.362193E-02 -1.266540E-02 3.778802E-04 8.489138E-03 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 47 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.738386E+03 (CYCLIC FREQUENCY = 4.324758E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -2.125727E-05 2.125758E-05 -2.125727E-05 2.125758E-05 1.000000E+00 -9.999557E-01 7 S 1.000000E+00 -9.999557E-01 101 G 0.0 0.0 -3.302800E-06 -2.590020E-07 0.0 0.0 102 G -2.859421E-07 2.462792E-06 3.244163E-07 -3.077461E-07 -9.686239E-07 6.533403E-07 103 G 0.0 0.0 -3.302755E-06 2.590095E-07 0.0 0.0 104 G -2.859397E-07 -2.462766E-06 3.244632E-07 3.077559E-07 -9.686252E-07 -6.533383E-07 105 G 0.0 0.0 2.771216E-07 2.917056E-07 0.0 0.0 106 G -1.844780E-05 7.595462E-06 4.837300E-06 -8.448688E-07 -1.868571E-06 1.282514E-06 107 G 0.0 0.0 2.771532E-07 -2.917118E-07 0.0 0.0 108 G -1.844778E-05 -7.595588E-06 4.837339E-06 8.448928E-07 -1.868570E-06 -1.282528E-06 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 48 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.210472E+04 (CYCLIC FREQUENCY = 7.301590E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -2.802496E-04 -2.730274E-04 2.802496E-04 2.730274E-04 4.301123E-02 1.000000E+00 7 S -4.301123E-02 -1.000000E+00 101 G 0.0 0.0 1.036686E-01 -1.777259E-02 0.0 0.0 102 G -1.658996E-06 -1.427230E-05 1.036225E-01 -1.787006E-02 -3.619902E-03 1.213924E-03 103 G 0.0 0.0 -1.036686E-01 -1.777259E-02 0.0 0.0 104 G 1.658996E-06 -1.427230E-05 -1.036225E-01 -1.787006E-02 3.619902E-03 1.213924E-03 105 G 0.0 0.0 1.036466E-01 1.678029E-02 0.0 0.0 106 G 2.366805E-05 2.071273E-01 1.036143E-01 -3.007174E-02 -8.982299E-04 2.015841E-02 107 G 0.0 0.0 -1.036466E-01 1.678029E-02 0.0 0.0 108 G -2.366805E-05 2.071273E-01 -1.036143E-01 -3.007174E-02 8.982299E-04 2.015841E-02 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 49 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.106486E+07 (CYCLIC FREQUENCY = 1.642350E+02 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -1.376886E-04 -1.266750E-04 -1.376886E-04 -1.266750E-04 1.000000E+00 9.950455E-01 7 S 1.000000E+00 9.950455E-01 101 G 0.0 0.0 -9.476522E-01 -4.816047E-04 0.0 0.0 102 G -1.732436E-03 -4.537095E-04 -9.581849E-01 1.763225E-05 1.932073E-03 -1.673748E-04 103 G 0.0 0.0 -9.476522E-01 4.816047E-04 0.0 0.0 104 G -1.732436E-03 4.537095E-04 -9.581849E-01 -1.763225E-05 1.932073E-03 1.673748E-04 105 G 0.0 0.0 -9.512700E-01 2.250103E-04 0.0 0.0 106 G 8.646619E-04 -2.480627E-04 -9.583734E-01 -5.584203E-05 -8.339130E-04 6.382379E-05 107 G 0.0 0.0 -9.512700E-01 -2.250103E-04 0.0 0.0 108 G 8.646619E-04 2.480627E-04 -9.583734E-01 5.584203E-05 -8.339130E-04 -6.382379E-05 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 50 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = -0.157434E+00 (CYCLIC FREQUENCY = 6.314941E-02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -8.990772E-04 -2.801287E-03 0.0 0.0 2.050274E-06 -1.386574E-06 103 G -8.994231E-04 2.800992E-03 0.0 0.0 2.050385E-06 1.386035E-06 105 G 6.532940E-02 -1.009111E-06 0.0 0.0 0.0 -4.421665E-06 107 G 6.532884E-02 1.007414E-06 0.0 0.0 0.0 4.416260E-06 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 51 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.149018E+03 (CYCLIC FREQUENCY = 1.942852E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 6.894511E+00 7.060339E-01 0.0 0.0 -2.555356E-01 -3.026443E+00 103 G -6.894511E+00 7.060339E-01 0.0 0.0 2.555356E-01 -3.026443E+00 105 G 3.558559E+00 -1.345169E+01 0.0 0.0 0.0 -4.314366E+01 107 G -3.558559E+00 -1.345169E+01 0.0 0.0 0.0 -4.314366E+01 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 52 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.614625E+03 (CYCLIC FREQUENCY = 3.945712E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 1.153063E+00 3.503764E-02 0.0 0.0 -6.320915E-02 -7.520571E-01 103 G -1.153063E+00 3.503765E-02 0.0 0.0 6.320915E-02 -7.520571E-01 105 G 1.870182E+00 -3.341969E+00 0.0 0.0 0.0 -1.071878E+01 107 G -1.870181E+00 -3.341969E+00 0.0 0.0 0.0 -1.071878E+01 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 53 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.738386E+03 (CYCLIC FREQUENCY = 4.324758E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -2.670212E-01 -5.725096E-01 0.0 0.0 3.749093E-04 -2.749914E-04 103 G -2.670209E-01 5.725030E-01 0.0 0.0 3.749087E-04 2.749883E-04 105 G 1.296968E+01 -2.021789E-04 0.0 0.0 0.0 -8.852178E-04 107 G 1.296966E+01 2.021834E-04 0.0 0.0 0.0 8.852328E-04 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 54 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.210472E+04 (CYCLIC FREQUENCY = 7.301590E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 1.044252E+01 3.405743E+00 0.0 0.0 -1.553467E-01 -1.782191E+00 103 G -1.044252E+01 3.405743E+00 0.0 0.0 1.553467E-01 -1.782191E+00 105 G -1.975141E+01 -7.934927E+00 0.0 0.0 0.0 -2.544849E+01 107 G 1.975141E+01 -7.934927E+00 0.0 0.0 0.0 -2.544849E+01 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 55 NASTRAN TEST PROBLEM NO. T03-12-1A 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.106486E+07 (CYCLIC FREQUENCY = 1.642350E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 3.652062E+03 2.926631E+02 0.0 0.0 -1.367471E+00 1.582920E-01 103 G 3.652062E+03 -2.926631E+02 0.0 0.0 -1.367471E+00 -1.582920E-01 105 G -1.483304E+03 2.065524E-02 0.0 0.0 0.0 1.206516E-01 107 G -1.483304E+03 -2.065524E-02 0.0 0.0 0.0 -1.206516E-01 1 HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 56 NASTRAN TEST PROBLEM NO. T03-12-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 268, REENTER AT DMAP SEQUENCE NUMBER 85 269, XVPS , FLAGS = 0, REEL = 1, FILE = 154 270, OESF1 , FLAGS = 0, REEL = 0, FILE = 0 271, OESF1L , FLAGS = 0, REEL = 0, FILE = 0 272, REENTER AT DMAP SEQUENCE NUMBER 87 273, XVPS , FLAGS = 0, REEL = 1, FILE = 155 274, ONRGY1 , FLAGS = 0, REEL = 0, FILE = 0 275, REENTER AT DMAP SEQUENCE NUMBER 89 276, XVPS , FLAGS = 0, REEL = 1, FILE = 156 277, KDICT , FLAGS = 0, REEL = 0, FILE = 0 278, KELM , FLAGS = 0, REEL = 0, FILE = 0 279, REENTER AT DMAP SEQUENCE NUMBER 104 280, XVPS , FLAGS = 0, REEL = 1, FILE = 157 281, DUMMY , FLAGS = 0, REEL = 0, FILE = 0 * * * END OF JOB * * * 1 JOB TITLE = HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT DATE: 5/18/95 END TIME: 10:10:14 TOTAL WALL CLOCK TIME 5 SEC. ================================================ FILE: demoout/t03121b.out ================================================ NASTRAN FILES = OPTP **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T03121B,NASTRAN $ $ NOTES - FOLLOWING STEPS MUST BE DONE FIRST BEFORE RUNNING THIS DEMO. $ (1) LOOK FOR 'CASE2' IN THE T03121A CHECKPOINT DICTIONARY DECK $ (T03121A.PCH OR .DIC). DELETE ALL THE CARDS FROM THE 'REENTER $ AT DMAP SEQUENCE NUMBER' CARD IMMEDIATELY BELOW THE 'CASE2' TO $ THE END OF THE DECK. $ (DELETE CARDS 216 THRU 271 IN 1993 VERSION) $ (2) NASTRAN FATAL ERROR IF THESE CARDS ARE NOT REMOVED. $ (3) SINCE T03121C USES THE FULL CHECKPOINT DICTIONARY DECK FROM $ T03121A, YOU MAY WANT TO RUN DEMO T03121C FIRST BEFORE THIS $ DEMO. $ 0*** $ ... READFILE FROM- RSCARDS RESTART T03121A ,NASTRAN , 5/18/95, 36590, 1, XVPS , FLAGS = 0, REEL = 1, FILE = 6 2, REENTER AT DMAP SEQUENCE NUMBER 6 3, GPL , FLAGS = 0, REEL = 1, FILE = 7 4, EQEXIN , FLAGS = 0, REEL = 1, FILE = 8 5, GPDT , FLAGS = 0, REEL = 1, FILE = 9 6, BGPDT , FLAGS = 0, REEL = 1, FILE = 10 7, SIL , FLAGS = 0, REEL = 1, FILE = 11 8, XVPS , FLAGS = 0, REEL = 1, FILE = 12 9, CSTM , FLAGS = 0, REEL = 0, FILE = 0 10, REENTER AT DMAP SEQUENCE NUMBER 7 11, XVPS , FLAGS = 0, REEL = 1, FILE = 13 12, MPTA , FLAGS = 0, REEL = 0, FILE = 0 13, REENTER AT DMAP SEQUENCE NUMBER 8 14, MPT , FLAGS = 0, REEL = 1, FILE = 14 15, XVPS , FLAGS = 0, REEL = 1, FILE = 15 16, REENTER AT DMAP SEQUENCE NUMBER 9 17, BGPDP , FLAGS = 0, REEL = 1, FILE = 16 18, SIP , FLAGS = 0, REEL = 1, FILE = 17 19, XVPS , FLAGS = 0, REEL = 1, FILE = 18 20, REENTER AT DMAP SEQUENCE NUMBER 10 21, ECT , FLAGS = 0, REEL = 1, FILE = 19 22, XVPS , FLAGS = 0, REEL = 1, FILE = 20 23, REENTER AT DMAP SEQUENCE NUMBER 12 24, XVPS , FLAGS = 0, REEL = 1, FILE = 21 25, PLTSETX , FLAGS = 0, REEL = 0, FILE = 0 26, PLTPAR , FLAGS = 0, REEL = 0, FILE = 0 27, GPSETS , FLAGS = 0, REEL = 0, FILE = 0 28, ELSETS , FLAGS = 0, REEL = 0, FILE = 0 29, REENTER AT DMAP SEQUENCE NUMBER 22 30, XVPS , FLAGS = 0, REEL = 1, FILE = 22 31, GPTT , FLAGS = 0, REEL = 0, FILE = 0 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 32, REENTER AT DMAP SEQUENCE NUMBER 23 33, EST , FLAGS = 0, REEL = 1, FILE = 23 34, GPECT , FLAGS = 0, REEL = 1, FILE = 24 35, XVPS , FLAGS = 0, REEL = 1, FILE = 25 36, GEI , FLAGS = 0, REEL = 0, FILE = 0 37, MPTX , FLAGS = 0, REEL = 0, FILE = 0 38, PCOMPS , FLAGS = 0, REEL = 0, FILE = 0 39, EPTX , FLAGS = 0, REEL = 0, FILE = 0 40, REENTER AT DMAP SEQUENCE NUMBER 24 41, MPT , FLAGS = 0, REEL = 1, FILE = 26 42, EPT , FLAGS = 0, REEL = 1, FILE = 27 43, XVPS , FLAGS = 0, REEL = 1, FILE = 28 44, REENTER AT DMAP SEQUENCE NUMBER 28 45, KELM , FLAGS = 0, REEL = 1, FILE = 29 46, KDICT , FLAGS = 0, REEL = 1, FILE = 30 47, MELM , FLAGS = 0, REEL = 1, FILE = 31 48, MDICT , FLAGS = 0, REEL = 1, FILE = 32 49, XVPS , FLAGS = 0, REEL = 1, FILE = 33 50, REENTER AT DMAP SEQUENCE NUMBER 29 51, XVPS , FLAGS = 0, REEL = 1, FILE = 34 52, KGGX , FLAGS = 0, REEL = 0, FILE = 0 53, REENTER AT DMAP SEQUENCE NUMBER 31 54, KGGX , FLAGS = 0, REEL = 1, FILE = 35 55, XVPS , FLAGS = 0, REEL = 1, FILE = 36 56, REENTER AT DMAP SEQUENCE NUMBER 34 57, MGG , FLAGS = 0, REEL = 1, FILE = 37 58, XVPS , FLAGS = 0, REEL = 1, FILE = 38 59, REENTER AT DMAP SEQUENCE NUMBER 35 60, XVPS , FLAGS = 0, REEL = 1, FILE = 39 61, MDICT , FLAGS = 0, REEL = 0, FILE = 0 62, MELM , FLAGS = 0, REEL = 0, FILE = 0 63, REENTER AT DMAP SEQUENCE NUMBER 40 64, KGGX , FLAGS = 4, REEL = 1, FILE = 35 65, KGG , FLAGS = 4, REEL = 1, FILE = 35 66, XVPS , FLAGS = 0, REEL = 1, FILE = 40 67, REENTER AT DMAP SEQUENCE NUMBER 44 68, GPST , FLAGS = 0, REEL = 1, FILE = 41 69, XVPS , FLAGS = 0, REEL = 1, FILE = 42 70, REENTER AT DMAP SEQUENCE NUMBER 46 71, YS , FLAGS = 0, REEL = 1, FILE = 43 72, USET , FLAGS = 0, REEL = 1, FILE = 44 73, XVPS , FLAGS = 0, REEL = 1, FILE = 45 74, RG , FLAGS = 0, REEL = 0, FILE = 0 75, ASET , FLAGS = 0, REEL = 0, FILE = 0 76, OGPST , FLAGS = 0, REEL = 0, FILE = 0 77, REENTER AT DMAP SEQUENCE NUMBER 48 78, XVPS , FLAGS = 0, REEL = 1, FILE = 46 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 79, KRR , FLAGS = 0, REEL = 0, FILE = 0 80, KLR , FLAGS = 0, REEL = 0, FILE = 0 81, DM , FLAGS = 0, REEL = 0, FILE = 0 82, MLR , FLAGS = 0, REEL = 0, FILE = 0 83, MR , FLAGS = 0, REEL = 0, FILE = 0 84, GM , FLAGS = 0, REEL = 0, FILE = 0 85, GO , FLAGS = 0, REEL = 0, FILE = 0 86, KFS , FLAGS = 0, REEL = 0, FILE = 0 87, QG , FLAGS = 0, REEL = 0, FILE = 0 88, REENTER AT DMAP SEQUENCE NUMBER 49 89, USETF , FLAGS = 0, REEL = 1, FILE = 47 90, USETS , FLAGS = 0, REEL = 1, FILE = 48 91, AF , FLAGS = 0, REEL = 1, FILE = 49 92, DKGG , FLAGS = 0, REEL = 1, FILE = 50 93, XVPS , FLAGS = 0, REEL = 1, FILE = 51 94, REENTER AT DMAP SEQUENCE NUMBER 49 95, PV1 , FLAGS = 0, REEL = 1, FILE = 52 96, XVPS , FLAGS = 0, REEL = 1, FILE = 53 97, REENTER AT DMAP SEQUENCE NUMBER 49 98, KXX , FLAGS = 0, REEL = 1, FILE = 54 99, KYY , FLAGS = 0, REEL = 1, FILE = 55 100, XVPS , FLAGS = 0, REEL = 1, FILE = 56 101, REENTER AT DMAP SEQUENCE NUMBER 49 102, MXX , FLAGS = 0, REEL = 1, FILE = 57 103, XVPS , FLAGS = 0, REEL = 1, FILE = 58 104, REENTER AT DMAP SEQUENCE NUMBER 49 105, XVPS , FLAGS = 0, REEL = 1, FILE = 59 106, RX , FLAGS = 0, REEL = 0, FILE = 0 107, REENTER AT DMAP SEQUENCE NUMBER 48 108, XVPS , FLAGS = 0, REEL = 1, FILE = 60 109, REENTER AT DMAP SEQUENCE NUMBER 49 110, AXY , FLAGS = 0, REEL = 1, FILE = 61 111, AYY , FLAGS = 0, REEL = 1, FILE = 62 112, XVPS , FLAGS = 0, REEL = 1, FILE = 63 113, REENTER AT DMAP SEQUENCE NUMBER 49 114, DKXX , FLAGS = 0, REEL = 1, FILE = 64 115, DKYY , FLAGS = 0, REEL = 1, FILE = 65 116, XVPS , FLAGS = 0, REEL = 1, FILE = 66 117, REENTER AT DMAP SEQUENCE NUMBER 49 118, PV2 , FLAGS = 0, REEL = 1, FILE = 67 119, XVPS , FLAGS = 0, REEL = 1, FILE = 68 120, REENTER AT DMAP SEQUENCE NUMBER 49 121, AFRY , FLAGS = 0, REEL = 1, FILE = 69 122, XVPS , FLAGS = 0, REEL = 1, FILE = 70 123, REENTER AT DMAP SEQUENCE NUMBER 49 124, DKFRFR , FLAGS = 0, REEL = 1, FILE = 71 125, XVPS , FLAGS = 0, REEL = 1, FILE = 72 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 126, REENTER AT DMAP SEQUENCE NUMBER 49 127, GPLD , FLAGS = 0, REEL = 1, FILE = 73 128, SILD , FLAGS = 0, REEL = 1, FILE = 74 129, USETD , FLAGS = 0, REEL = 1, FILE = 75 130, EED , FLAGS = 0, REEL = 1, FILE = 76 131, EQDYN , FLAGS = 0, REEL = 1, FILE = 77 132, XVPS , FLAGS = 0, REEL = 1, FILE = 78 133, REENTER AT DMAP SEQUENCE NUMBER 48 134, KXX , FLAGS = 4, REEL = 1, FILE = 35 135, XVPS , FLAGS = 0, REEL = 1, FILE = 79 136, REENTER AT DMAP SEQUENCE NUMBER 48 137, MXX , FLAGS = 4, REEL = 1, FILE = 57 138, MGG , FLAGS = 4, REEL = 1, FILE = 57 139, XVPS , FLAGS = 0, REEL = 1, FILE = 80 140, REENTER AT DMAP SEQUENCE NUMBER 50 141, KNN , FLAGS = 4, REEL = 1, FILE = 81 142, KGG , FLAGS = 4, REEL = 1, FILE = 81 143, KXX , FLAGS = 4, REEL = 1, FILE = 81 144, KGGX , FLAGS = 4, REEL = 1, FILE = 81 145, MNN , FLAGS = 4, REEL = 1, FILE = 82 146, MXX , FLAGS = 4, REEL = 1, FILE = 82 147, MGG , FLAGS = 4, REEL = 1, FILE = 82 148, XVPS , FLAGS = 0, REEL = 1, FILE = 83 149, REENTER AT DMAP SEQUENCE NUMBER 55 150, XVPS , FLAGS = 0, REEL = 1, FILE = 84 151, KFF , FLAGS = 0, REEL = 0, FILE = 0 152, MFF , FLAGS = 0, REEL = 0, FILE = 0 153, REENTER AT DMAP SEQUENCE NUMBER 57 154, KFF , FLAGS = 0, REEL = 1, FILE = 85 155, KFS , FLAGS = 0, REEL = 1, FILE = 86 156, MFF , FLAGS = 0, REEL = 1, FILE = 87 157, XVPS , FLAGS = 0, REEL = 1, FILE = 88 158, REENTER AT DMAP SEQUENCE NUMBER 59 159, XVPS , FLAGS = 0, REEL = 1, FILE = 89 160, KAA , FLAGS = 0, REEL = 0, FILE = 0 161, REENTER AT DMAP SEQUENCE NUMBER 60 162, XVPS , FLAGS = 0, REEL = 1, FILE = 90 163, MAA , FLAGS = 0, REEL = 0, FILE = 0 164, REENTER AT DMAP SEQUENCE NUMBER 63 165, GO , FLAGS = 0, REEL = 1, FILE = 91 166, KAA , FLAGS = 0, REEL = 1, FILE = 92 167, KOO , FLAGS = 0, REEL = 1, FILE = 93 168, LOO , FLAGS = 0, REEL = 1, FILE = 94 169, XVPS , FLAGS = 0, REEL = 1, FILE = 95 170, REENTER AT DMAP SEQUENCE NUMBER 63 171, MAA , FLAGS = 0, REEL = 1, FILE = 96 172, XVPS , FLAGS = 0, REEL = 1, FILE = 97 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 173, REENTER AT DMAP SEQUENCE NUMBER 72 174, CASE1 , FLAGS = 0, REEL = 1, FILE = 98 175, XVPS , FLAGS = 0, REEL = 1, FILE = 99 176, REENTER AT DMAP SEQUENCE NUMBER 74 177, LAMA , FLAGS = 0, REEL = 1, FILE = 100 178, PHIA , FLAGS = 0, REEL = 1, FILE = 101 179, MI , FLAGS = 0, REEL = 1, FILE = 102 180, OEIGS , FLAGS = 0, REEL = 1, FILE = 103 181, XVPS , FLAGS = 0, REEL = 1, FILE = 104 182, REENTER AT DMAP SEQUENCE NUMBER 80 183, PHIG , FLAGS = 0, REEL = 1, FILE = 105 184, QG , FLAGS = 0, REEL = 1, FILE = 106 185, XVPS , FLAGS = 0, REEL = 1, FILE = 107 186, REENTER AT DMAP SEQUENCE NUMBER 83 187, PHIGS , FLAGS = 0, REEL = 1, FILE = 108 188, XVPS , FLAGS = 0, REEL = 1, FILE = 109 189, REENTER AT DMAP SEQUENCE NUMBER 83 190, QGS , FLAGS = 0, REEL = 1, FILE = 110 191, XVPS , FLAGS = 0, REEL = 1, FILE = 111 192, REENTER AT DMAP SEQUENCE NUMBER 83 193, OPHIGS , FLAGS = 0, REEL = 1, FILE = 112 194, XVPS , FLAGS = 0, REEL = 1, FILE = 113 195, OQGS , FLAGS = 0, REEL = 0, FILE = 0 196, OEFS , FLAGS = 0, REEL = 0, FILE = 0 197, PPHIGS , FLAGS = 0, REEL = 0, FILE = 0 198, REENTER AT DMAP SEQUENCE NUMBER 82 199, XVPS , FLAGS = 0, REEL = 1, FILE = 114 200, DKAA , FLAGS = 0, REEL = 0, FILE = 0 201, REENTER AT DMAP SEQUENCE NUMBER 82 202, DKXX , FLAGS = 4, REEL = 1, FILE = 64 203, DKNN , FLAGS = 4, REEL = 1, FILE = 64 204, XVPS , FLAGS = 0, REEL = 1, FILE = 115 205, REENTER AT DMAP SEQUENCE NUMBER 82 206, XVPS , FLAGS = 0, REEL = 1, FILE = 116 207, DKFF , FLAGS = 0, REEL = 0, FILE = 0 208, REENTER AT DMAP SEQUENCE NUMBER 83 209, DKFF , FLAGS = 0, REEL = 1, FILE = 117 210, XVPS , FLAGS = 0, REEL = 1, FILE = 118 211, REENTER AT DMAP SEQUENCE NUMBER 82 212, XVPS , FLAGS = 0, REEL = 1, FILE = 119 213, REENTER AT DMAP SEQUENCE NUMBER 83 214, DKAA , FLAGS = 0, REEL = 1, FILE = 120 215, XVPS , FLAGS = 0, REEL = 1, FILE = 121 216, REENTER AT DMAP SEQUENCE NUMBER 83 217, KMAT , FLAGS = 0, REEL = 1, FILE = 122 218, MMAT , FLAGS = 0, REEL = 1, FILE = 123 219, GIH , FLAGS = 0, REEL = 1, FILE = 124 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 220, PV4 , FLAGS = 0, REEL = 1, FILE = 125 221, XVPS , FLAGS = 0, REEL = 1, FILE = 126 222, REENTER AT DMAP SEQUENCE NUMBER 83 223, CASE2 , FLAGS = 0, REEL = 1, FILE = 127 224, XVPS , FLAGS = 0, REEL = 1, FILE = 128 $ END OF CHECKPOINT DICTIONARY 0*** $ END READFILE TIME 10 SOL 3,0 APP DISP $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) AFTER THIS CARD 0*** $ ... READFILE FROM- COSHYD2 $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - MODAL FORMULATION (COSHYD2) $ ALTER 1,1 $ COSMIC/NASTRAN RF 3. REPLACING BEGIN DELETE BEGIN $ XDMAP GO,ERR=2 $ BEGIN HYDROELASTIC ANALYSIS - MODAL FORMULATION $ ALTER 3 $ AFTER PRECHK/FILE INSERT FILE $ COMPOFF NEW1,NEWMODE $ $ ALTER 46 $ AFTER OFP/COND/PURGE INSERT GP4,3 $ FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ VEC USETF/PV1/*G*/*X*/*Y* $ PARTN KGG,PV1,/KXX,,,KYY $ PARTN MGG,PV1,/MXX,,, $ PARTN RG,PV1,/RX,,,/1 $ EQUIV RX,RG $ PARTN AF,PV1,/,,AXY,AYY $ COND MODAL1,NOGRAV $ PARTN DKGG,PV1,/DKXX,,,DKYY $ COND MODAL1,NOFREE $ VEC USETF/PV2/*Y*/*FR*/*COMP* $ PARTN AYY,,PV2/AFRY,,,/0 $ PARTN DKYY,PV2,/DKFRFR,,, $ LABEL MODAL1 $ LABEL NEW1 $ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ COND ERROR2,NOEED $ COMPOFF NEW2,NEWMODE $ PARAM //*MPY*/CARDNO/0/0 $ COMPOFF NOSTRUC,OLDSTR $ COMPON 2,DIFSTIF $ PARAMR //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ADD KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $ COMPOFF 1,DIFSTIF $ EQUIV KXX,KGG $ EQUIV MXX,MGG $ $ ALTER 49,50 $ REPLACING MCE1, MCE2 DELETE MCE1,MCE2 $ MCE1 USETS,RG/GM $ MCE2 USETS,GM,KGG,MGG,,/KNN,MNN,, $ $ ALTER 54,54 $ REPLACING SCE1 DELETE SCE1 $ SCE1 USETS,KNN,MNN,,/KFF,KFS,,MFF,, $ $ ALTER 59,60 $ REPLACING SMP1, SMP2 DELETE SMP1,SMP2 $ SMP1 USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $ SMP2 USETS,GO,MFF/MAA $ $ ALTER 63,63 $ REPLACING RBMG1 DELETE RBMG1 $ RBMG1 USETS,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ $ ALTER 68,69 $ REPLACING DPD, COND DELETE DPD,DPD,1 $ CASE CASECC,/CASE1/*REIGEN*/S,N,REPT/S,N,LOLP $ $ ALTER 71,71 $ REPLACING READ DELETE READ $ READ KAA,MAA,MR,DM,EED,USETS,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ $ ALTER 75,77 $ REPLACING SDR1, COND, EQMCK DELETE SDR1,EQMCK $ SDR1 USETS,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ COND NOMPCF,GRDEQ $ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ $ ALTER 80,80 $ REPLACING SDR2 DELETE SDR2 $ MERGE PHIG,,,,,PV1/PHIGS/0 $ MERGE QG,,,,,PV1/QGS/0 $ SDR2 CASE1,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QGS,PHIGS,EST,,,/, OQGS,OPHIGS,,OEFS,PPHIGS,,/*REIG* $ OFP OPHIGS,OQGS,OEFS,,,//S,N,CARDNO $ LABEL NOSTRUC $ PURGE DKAA/NOGRAV $ COND MODAL4,NOGRAV $ EQUIV DKXX,DKNN/MPCF1 $ COND MODAL2,MPCF2 $ MCE2 USETS,GM,DKXX,,,/DKNN,,, $ LABEL MODAL2 $ EQUIV DKNN,DKFF/SINGLE $ COND MODAL3,SINGLE $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 SCE1 USETS,DKNN,,,/DKFF,,,,, $ LABEL MODAL3 $ EQUIV DKFF,DKAA/OMIT $ COND MODAL4,OMIT $ SMP2 USETS,GO,DKFF/DKAA $ LABEL MODAL4 $ GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,,,,,,USETF,PHIA,PHIG,LAMA/KMAT,MMAT, GIH,PV4,/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=1/ S,Y,LMODES $ JUMP OLD2 $ LABEL NEW2 $ PARAM //*MPY*/REPT/1/1 $ LABEL OLD2 $ CASE CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $ PARAM //*MPY*/NEIGV/1/-1 $ READ KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/ S,N,NEIGV $ OFP LAMAT,OEIGH,,,,//S,N,CARDNO $ COND FINIS,NEIGV $ MPYAD GIH,PHIH,/PHII/0/1/0 $ EQUIV PHIH,PHIZ/NOFREE $ EQUIV PHII,PHIY/NOFREE $ COND MODAL5,NOFREE $ PARTN PHIH,,PV4/PHIZ,PHIFR,,/0 $ MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ LABEL MODAL5 $ COND ALLMODES,LMODES TRAILER PHIG//*STORE*/1/V,Y,LMODES $ TRAILER QG//*STORE*/1/V,Y,LMODES $ LABEL ALLMODES $ MPYAD PHIG,PHIZ,/PHIX/0/1/0 $ MPYAD QG,PHIZ,/QX/0/1/0 $ MERGE PHIX,PHIY,,,,PV1/PHIGT/0 $ MERGE QX,,,,,PV1/QGT/0 $ SDR2 CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $ ENDALTER $ 0*** $ END READFILE $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) BEFORE THIS CARD CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T03-12-1B 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T03-12-1B 3 $ REFERENCE PROBLEM IV.2 4 SPC = 10 5 DISP = ALL 6 SUBCASE 2 7 LABEL = MODES WITH FLUID INCLUDED 8 METHOD = 70 9 SPCF = ALL 10 BEGIN BULK 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T03-12-1B 0 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ $ $ NEW EIGR CARD FOR DIFFERENT MODE $ / 11 12 EIGR 70 GIV 100.0 2500.0 0 +EMOD2 +EMOD2 MAX $ $ PARAMETER TO TURN OFF UNNEEDED DMAP $ PARAM NEWMODE -1 ENDDATA TOTAL COUNT= 10 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T03-12-1B 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CFFREE 1 100 6 2- CFHEX2 1 200 1 2 4 3 5 6 +CFH1 3- +CFH1 8 7 4- CFLSTR 1 100 101 THRU 104 5- CQUAD2 101 100 101 102 106 105 6- CQUAD2 102 100 102 104 108 106 7- CQUAD2 103 100 104 103 107 108 8- CQUAD2 104 100 101 103 104 102 9- EIGR 50 GIV 0.0 2600.0 10 10 0 +EMOD1 10- +EMOD1 MAX 11- EIGR 70 GIV 100.0 2500.0 0 +EMOD2 12- +EMOD2 MAX 13- GRAV 100 386.0 0.0 0.0 -1.0 14- GRID 1 0.0 0.0 0.0 15- GRID 2 6.0 0.0 0.0 16- GRID 3 0.0 12.0 0.0 17- GRID 4 6.0 12.0 0.0 18- GRID 5 0.0 0.0 12.0 19- GRID 6 6.0 0.0 12.0 20- GRID 7 0.0 12.0 12.0 21- GRID 8 6.0 12.0 12.0 22- GRID 101 0.0 0.0 0.0 23- GRID 102 6.0 0.0 0.0 24- GRID 103 0.0 12.0 0.0 25- GRID 104 6.0 12.0 0.0 26- GRID 105 0.0 0.0 12.0 27- GRID 106 6.0 0.0 12.0 28- GRID 107 0.0 12.0 12.0 29- GRID 108 6.0 12.0 12.0 30- MAT1 100 10.6+6 .3 .92-3 31- MATF 200 9.355-4 32- OMIT1 4 101 103 105 107 33- OMIT1 456 102 104 106 108 34- PARAM NEWMODE -1 35- PQUAD2 100 100 .06 36- SPC1 10 1256 101 103 105 107 ENDDATA 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T03-12-1B 0 0*** USER INFORMATION MESSAGE 4144, THIS IS A MODIFIED RESTART. 0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW. 0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES ----------------------------------- MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION 17 4 METHOD$ 62 17 POUT$ 19 0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES -------------------------------- MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED BIT POSITION 3 23 EIGR 61 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T03-12-1B 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 XDMAP GO,ERR=2 $ + + 1 BEGIN HYDROELASTIC ANALYSIS - MODAL FORMULATION + + 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ + + 3 COMPOFF NEW1,NEWMODE $ 48 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ + * LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ + * 48 COND ERROR2,NOEED $ + * 48 COMPOFF NEW2,NEWMODE $ 82 PARAM //*MPY*/REPT/1/1 $ + * 82 LABEL OLD2 $ + + 82 CASE CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $ + * + * 82 PARAM //*MPY*/NEIGV/1/-1 $ + * 82 READ KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/ + * S,N,NEIGV $ + * 82 OFP LAMAT,OEIGH,,,,//S,N,CARDNO $ + * + * 82 COND FINIS,NEIGV $ + * 82 MPYAD GIH,PHIH,/PHII/0/1/0 $ + * 82 EQUIV PHIH,PHIZ/NOFREE $ + * 82 EQUIV PHII,PHIY/NOFREE $ + * 82 COND MODAL5,NOFREE $ + * 82 PARTN PHIH,,PV4/PHIZ,PHIFR,,/0 $ + * 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T03-12-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 82 MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ + * 82 LABEL MODAL5 $ + + 82 COND ALLMODES,LMODES + * 82 TRAILER PHIG//*STORE*/1/V,Y,LMODES $ + * 82 TRAILER QG//*STORE*/1/V,Y,LMODES $ + * 82 LABEL ALLMODES $ + + 82 MPYAD PHIG,PHIZ,/PHIX/0/1/0 $ + * 82 MPYAD QG,PHIZ,/QX/0/1/0 $ + * 82 MERGE PHIX,PHIY,,,,PV1/PHIGT/0 $ + * 82 MERGE QX,,,,,PV1/QGT/0 $ + * 82 SDR2 CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,, + * PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $ 83 OFP OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $ + * 84 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ + * 85 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ + * 86 GPFDR CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ + * 87 OFP ONRGY1,,,,,//S,N,CARDNO $ + * 88 PURGE KDICT,KELM/ALWAYS $ + * 89 COND P2,JUMPPLOT $ + * 90 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, + * OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 91 PRTMSG PLOTX2// $ + * 92 LABEL P2 $ + + 93 JUMP FINIS $ + * 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T03-12-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 94 LABEL ERROR1 $ + + 95 PRTPARM //-1/*MODES* $ + * 96 LABEL ERROR2 $ + + 97 PRTPARM //-2/*MODES* $ + * 98 LABEL ERROR3 $ + + 99 PRTPARM //-3/*MODES* $ + * 100 LABEL ERROR4 $ + + 101 PRTPARM //-4/*MODES* $ + * 102 LABEL FINIS $ + + 103 PURGE DUMMY/ALWAYS $ + * 104 END $ + * 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR4 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR3 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED ERROR1 NOT REFERENCED 0*** USER WARNING MESSAGE 27, LABEL NAMED OLD2 NOT REFERENCED 0 0 + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME. 0 * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART. 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T03-12-1B 0 0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART FILE NAME REEL NO. FILE NO. CSTM (PURGED) PLTPAR (PURGED) GPSETS (PURGED) ELSETS (PURGED) PCOMPS (PURGED) GPL 1 7 EQEXIN 1 8 BGPDT 1 10 SIL 1 11 BGPDP 1 16 SIP 1 17 ECT 1 19 EST 1 23 GPECT 1 24 KELM 1 29 KDICT 1 30 USET 1 44 USETF 1 47 PV1 1 52 PV2 1 67 LAMA 1 100 PHIA 1 101 PHIG 1 105 QG 1 106 KMAT 1 122 MMAT 1 123 GIH 1 124 PV4 1 125 XVPS 1 128 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 14, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T03-12-1B 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 9 1.064857E+06 1.031919E+03 1.642350E+02 1.859074E-02 1.979649E+04 2 8 1.187844E+07 3.446511E+03 5.485292E+02 2.464191E-03 2.927074E+04 3 7 2.649998E+07 5.147813E+03 8.192999E+02 1.949578E-02 5.166378E+05 4 6 3.311681E+07 5.754721E+03 9.158922E+02 1.260259E-03 4.173577E+04 5 5 9.534691E+07 9.764574E+03 1.554080E+03 9.421816E-03 8.983411E+05 6 3 2.263117E+08 1.504366E+04 2.394273E+03 2.133617E-03 4.828625E+05 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T03-12-1B 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 14 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 6 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN -1 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T03-12-1B 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.106486E+07 (CYCLIC FREQUENCY = 1.642350E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -1.376886E-04 -1.266750E-04 -1.376886E-04 -1.266750E-04 1.000000E+00 9.950455E-01 7 S 1.000000E+00 9.950455E-01 101 G 0.0 0.0 -9.476522E-01 -4.816047E-04 0.0 0.0 102 G -1.732436E-03 -4.537095E-04 -9.581849E-01 1.763225E-05 1.932073E-03 -1.673748E-04 103 G 0.0 0.0 -9.476522E-01 4.816047E-04 0.0 0.0 104 G -1.732436E-03 4.537095E-04 -9.581849E-01 -1.763225E-05 1.932073E-03 1.673748E-04 105 G 0.0 0.0 -9.512700E-01 2.250103E-04 0.0 0.0 106 G 8.646619E-04 -2.480627E-04 -9.583734E-01 -5.584203E-05 -8.339130E-04 6.382379E-05 107 G 0.0 0.0 -9.512700E-01 -2.250103E-04 0.0 0.0 108 G 8.646619E-04 2.480627E-04 -9.583734E-01 5.584203E-05 -8.339130E-04 -6.382379E-05 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T03-12-1B 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.118784E+08 (CYCLIC FREQUENCY = 5.485292E+02 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -2.105553E-04 1.606790E-04 2.105553E-04 -1.606790E-04 2.765942E-02 -1.000000E+00 7 S -2.765942E-02 1.000000E+00 101 G 0.0 0.0 1.349088E-01 -4.572564E-03 0.0 0.0 102 G -2.417227E-02 -1.944523E-01 2.748539E-02 1.016399E-03 2.623452E-02 -2.932260E-02 103 G 0.0 0.0 -1.349088E-01 -4.572564E-03 0.0 0.0 104 G 2.417227E-02 -1.944523E-01 -2.748539E-02 1.016399E-03 -2.623452E-02 -2.932260E-02 105 G 0.0 0.0 9.199693E-02 -1.011440E-02 0.0 0.0 106 G 4.630876E-02 -2.388912E-01 1.853552E-02 1.200347E-02 -1.071280E-02 -2.409718E-02 107 G 0.0 0.0 -9.199693E-02 -1.011440E-02 0.0 0.0 108 G -4.630876E-02 -2.388912E-01 -1.853552E-02 1.200347E-02 1.071280E-02 -2.409718E-02 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T03-12-1B 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.265000E+08 (CYCLIC FREQUENCY = 8.192999E+02 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 5.835659E-04 -5.862039E-04 5.835659E-04 -5.862039E-04 -1.111740E-01 1.000000E+00 7 S -1.111740E-01 1.000000E+00 101 G 0.0 0.0 -6.408257E-01 3.333080E-02 0.0 0.0 102 G -5.520390E-02 1.129355E-02 3.635326E-02 7.184654E-04 -1.246544E-01 6.502908E-03 103 G 0.0 0.0 -6.408257E-01 -3.333080E-02 0.0 0.0 104 G -5.520390E-02 -1.129355E-02 3.635326E-02 -7.184654E-04 -1.246544E-01 -6.502908E-03 105 G 0.0 0.0 -5.199058E-03 -1.693185E-02 0.0 0.0 106 G -2.158109E-01 -2.650679E-02 3.486984E-01 7.365893E-03 5.493223E-02 -1.128927E-02 107 G 0.0 0.0 -5.199058E-03 1.693185E-02 0.0 0.0 108 G -2.158109E-01 2.650679E-02 3.486984E-01 -7.365893E-03 5.493223E-02 1.128927E-02 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T03-12-1B 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.331168E+08 (CYCLIC FREQUENCY = 9.158922E+02 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -5.525600E-05 -1.025382E-04 5.525600E-05 1.025382E-04 3.304079E-02 -1.000000E+00 7 S -3.304079E-02 1.000000E+00 101 G 0.0 0.0 9.623558E-03 4.012544E-03 0.0 0.0 102 G -1.543285E-04 1.670659E-01 -1.254605E-01 3.594772E-02 2.196676E-02 1.540142E-02 103 G 0.0 0.0 -9.623558E-03 4.012544E-03 0.0 0.0 104 G 1.543285E-04 1.670659E-01 1.254605E-01 3.594772E-02 -2.196676E-02 1.540142E-02 105 G 0.0 0.0 -2.890169E-02 -5.313466E-03 0.0 0.0 106 G 8.980209E-03 -3.277828E-01 -1.271567E-01 7.403798E-02 3.834032E-03 -3.083467E-02 107 G 0.0 0.0 2.890169E-02 -5.313466E-03 0.0 0.0 108 G -8.980209E-03 -3.277828E-01 1.271567E-01 7.403798E-02 -3.834032E-03 -3.083467E-02 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T03-12-1B 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.953469E+08 (CYCLIC FREQUENCY = 1.554080E+03 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 1.542568E-04 -1.622705E-04 -1.542568E-04 1.622705E-04 -1.231542E-02 1.000000E+00 7 S 1.231542E-02 -1.000000E+00 101 G 0.0 0.0 -1.067754E-01 1.931411E-02 0.0 0.0 102 G -9.269130E-04 -3.545278E-01 4.620673E-01 -8.922102E-02 -7.041235E-02 -3.776396E-02 103 G 0.0 0.0 1.067754E-01 1.931411E-02 0.0 0.0 104 G 9.269130E-04 -3.545278E-01 -4.620673E-01 -8.922102E-02 7.041235E-02 -3.776396E-02 105 G 0.0 0.0 2.636239E-01 -1.548972E-02 0.0 0.0 106 G -4.701128E-01 -6.121884E-01 5.430947E-01 1.266165E-01 -4.170447E-02 -9.010818E-02 107 G 0.0 0.0 -2.636239E-01 -1.548972E-02 0.0 0.0 108 G 4.701128E-01 -6.121884E-01 -5.430947E-01 1.266165E-01 4.170447E-02 -9.010818E-02 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T03-12-1B 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.226312E+09 (CYCLIC FREQUENCY = 2.394273E+03 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -2.142751E-06 2.259508E-06 -2.142751E-06 2.259508E-06 -6.384177E-01 1.000000E+00 7 S -6.384177E-01 1.000000E+00 101 G 0.0 0.0 9.369472E-02 -3.873225E-02 0.0 0.0 102 G -8.202220E-02 1.614083E-01 -2.347645E-01 -1.848448E-02 6.475333E-02 3.690013E-02 103 G 0.0 0.0 9.369472E-02 3.873225E-02 0.0 0.0 104 G -8.202220E-02 -1.614083E-01 -2.347645E-01 1.848448E-02 6.475333E-02 -3.690013E-02 105 G 0.0 0.0 3.114155E-01 3.159376E-02 0.0 0.0 106 G -6.289958E-02 4.202076E-01 1.481576E-01 -4.048694E-02 -3.888851E-02 7.424698E-02 107 G 0.0 0.0 3.114155E-01 -3.159376E-02 0.0 0.0 108 G -6.289958E-02 -4.202076E-01 1.481576E-01 4.048694E-02 -3.888851E-02 -7.424698E-02 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T03-12-1B 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.106486E+07 (CYCLIC FREQUENCY = 1.642350E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 3.652062E+03 2.926631E+02 0.0 0.0 -1.367471E+00 1.582920E-01 103 G 3.652062E+03 -2.926631E+02 0.0 0.0 -1.367471E+00 -1.582920E-01 105 G -1.483304E+03 2.065524E-02 0.0 0.0 0.0 1.206516E-01 107 G -1.483304E+03 -2.065524E-02 0.0 0.0 0.0 -1.206516E-01 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T03-12-1B 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.118784E+08 (CYCLIC FREQUENCY = 5.485292E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 7.135133E+04 4.461990E+04 0.0 0.0 -1.367379E+01 3.337190E+01 103 G -7.135133E+04 4.461990E+04 0.0 0.0 1.367379E+01 3.337190E+01 105 G -4.070857E+04 9.229980E+00 0.0 0.0 0.0 3.666503E+01 107 G 4.070857E+04 9.229980E+00 0.0 0.0 0.0 3.666503E+01 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T03-12-1B 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.265000E+08 (CYCLIC FREQUENCY = 8.192999E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -3.439658E+04 3.021367E+03 0.0 0.0 8.748387E+01 -8.157108E+00 103 G -3.439658E+04 -3.021367E+03 0.0 0.0 8.748387E+01 8.157108E+00 105 G 1.641944E+05 -1.873510E-01 0.0 0.0 0.0 -2.871865E+00 107 G 1.641944E+05 1.873510E-01 0.0 0.0 0.0 2.871865E+00 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T03-12-1B 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.331168E+08 (CYCLIC FREQUENCY = 9.158922E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -3.839830E+03 -4.089232E+04 0.0 0.0 -1.272222E+01 -1.891063E+01 103 G 3.839830E+03 -4.089232E+04 0.0 0.0 1.272222E+01 -1.891063E+01 105 G -1.843755E+04 1.217576E+01 0.0 0.0 0.0 3.990813E+01 107 G 1.843755E+04 1.217576E+01 0.0 0.0 0.0 3.990813E+01 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T03-12-1B 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.953469E+08 (CYCLIC FREQUENCY = 1.554080E+03 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -3.088321E+04 8.661948E+04 0.0 0.0 7.794474E+01 3.752504E+01 103 G 3.088321E+04 8.661948E+04 0.0 0.0 -7.794474E+01 3.752504E+01 105 G 3.567773E+05 1.815973E+01 0.0 0.0 0.0 7.917131E+01 107 G -3.567773E+05 1.815973E+01 0.0 0.0 0.0 7.917131E+01 1 HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T03-12-1B 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.226312E+09 (CYCLIC FREQUENCY = 2.394273E+03 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 1.301582E+05 -3.088612E+04 0.0 0.0 -3.829406E+01 -1.487543E+01 103 G 1.301582E+05 3.088612E+04 0.0 0.0 -3.829406E+01 1.487543E+01 105 G -1.759405E+04 -1.087668E+01 0.0 0.0 0.0 -4.547854E+01 107 G -1.759405E+04 1.087668E+01 0.0 0.0 0.0 4.547854E+01 * * * END OF JOB * * * 1 JOB TITLE = HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES DATE: 5/18/95 END TIME: 10:13:41 TOTAL WALL CLOCK TIME 1 SEC. ================================================ FILE: demoout/t03121c.out ================================================ NASTRAN FILES = OPTP **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T03121C,NASTRAN $ $ INSERT T03121A (NOT T03121B) CHECKPOINT DICTIONARY $ 0*** $ ... READFILE FROM- RSCARDS RESTART T03121A ,NASTRAN , 5/18/95, 36590, 1, XVPS , FLAGS = 0, REEL = 1, FILE = 6 2, REENTER AT DMAP SEQUENCE NUMBER 6 3, GPL , FLAGS = 0, REEL = 1, FILE = 7 4, EQEXIN , FLAGS = 0, REEL = 1, FILE = 8 5, GPDT , FLAGS = 0, REEL = 1, FILE = 9 6, BGPDT , FLAGS = 0, REEL = 1, FILE = 10 7, SIL , FLAGS = 0, REEL = 1, FILE = 11 8, XVPS , FLAGS = 0, REEL = 1, FILE = 12 9, CSTM , FLAGS = 0, REEL = 0, FILE = 0 10, REENTER AT DMAP SEQUENCE NUMBER 7 11, XVPS , FLAGS = 0, REEL = 1, FILE = 13 12, MPTA , FLAGS = 0, REEL = 0, FILE = 0 13, REENTER AT DMAP SEQUENCE NUMBER 8 14, MPT , FLAGS = 0, REEL = 1, FILE = 14 15, XVPS , FLAGS = 0, REEL = 1, FILE = 15 16, REENTER AT DMAP SEQUENCE NUMBER 9 17, BGPDP , FLAGS = 0, REEL = 1, FILE = 16 18, SIP , FLAGS = 0, REEL = 1, FILE = 17 19, XVPS , FLAGS = 0, REEL = 1, FILE = 18 20, REENTER AT DMAP SEQUENCE NUMBER 10 21, ECT , FLAGS = 0, REEL = 1, FILE = 19 22, XVPS , FLAGS = 0, REEL = 1, FILE = 20 23, REENTER AT DMAP SEQUENCE NUMBER 12 24, XVPS , FLAGS = 0, REEL = 1, FILE = 21 25, PLTSETX , FLAGS = 0, REEL = 0, FILE = 0 26, PLTPAR , FLAGS = 0, REEL = 0, FILE = 0 27, GPSETS , FLAGS = 0, REEL = 0, FILE = 0 28, ELSETS , FLAGS = 0, REEL = 0, FILE = 0 29, REENTER AT DMAP SEQUENCE NUMBER 22 30, XVPS , FLAGS = 0, REEL = 1, FILE = 22 31, GPTT , FLAGS = 0, REEL = 0, FILE = 0 32, REENTER AT DMAP SEQUENCE NUMBER 23 33, EST , FLAGS = 0, REEL = 1, FILE = 23 34, GPECT , FLAGS = 0, REEL = 1, FILE = 24 35, XVPS , FLAGS = 0, REEL = 1, FILE = 25 36, GEI , FLAGS = 0, REEL = 0, FILE = 0 37, MPTX , FLAGS = 0, REEL = 0, FILE = 0 38, PCOMPS , FLAGS = 0, REEL = 0, FILE = 0 39, EPTX , FLAGS = 0, REEL = 0, FILE = 0 40, REENTER AT DMAP SEQUENCE NUMBER 24 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 41, MPT , FLAGS = 0, REEL = 1, FILE = 26 42, EPT , FLAGS = 0, REEL = 1, FILE = 27 43, XVPS , FLAGS = 0, REEL = 1, FILE = 28 44, REENTER AT DMAP SEQUENCE NUMBER 28 45, KELM , FLAGS = 0, REEL = 1, FILE = 29 46, KDICT , FLAGS = 0, REEL = 1, FILE = 30 47, MELM , FLAGS = 0, REEL = 1, FILE = 31 48, MDICT , FLAGS = 0, REEL = 1, FILE = 32 49, XVPS , FLAGS = 0, REEL = 1, FILE = 33 50, REENTER AT DMAP SEQUENCE NUMBER 29 51, XVPS , FLAGS = 0, REEL = 1, FILE = 34 52, KGGX , FLAGS = 0, REEL = 0, FILE = 0 53, REENTER AT DMAP SEQUENCE NUMBER 31 54, KGGX , FLAGS = 0, REEL = 1, FILE = 35 55, XVPS , FLAGS = 0, REEL = 1, FILE = 36 56, REENTER AT DMAP SEQUENCE NUMBER 34 57, MGG , FLAGS = 0, REEL = 1, FILE = 37 58, XVPS , FLAGS = 0, REEL = 1, FILE = 38 59, REENTER AT DMAP SEQUENCE NUMBER 35 60, XVPS , FLAGS = 0, REEL = 1, FILE = 39 61, MDICT , FLAGS = 0, REEL = 0, FILE = 0 62, MELM , FLAGS = 0, REEL = 0, FILE = 0 63, REENTER AT DMAP SEQUENCE NUMBER 40 64, KGGX , FLAGS = 4, REEL = 1, FILE = 35 65, KGG , FLAGS = 4, REEL = 1, FILE = 35 66, XVPS , FLAGS = 0, REEL = 1, FILE = 40 67, REENTER AT DMAP SEQUENCE NUMBER 44 68, GPST , FLAGS = 0, REEL = 1, FILE = 41 69, XVPS , FLAGS = 0, REEL = 1, FILE = 42 70, REENTER AT DMAP SEQUENCE NUMBER 46 71, YS , FLAGS = 0, REEL = 1, FILE = 43 72, USET , FLAGS = 0, REEL = 1, FILE = 44 73, XVPS , FLAGS = 0, REEL = 1, FILE = 45 74, RG , FLAGS = 0, REEL = 0, FILE = 0 75, ASET , FLAGS = 0, REEL = 0, FILE = 0 76, OGPST , FLAGS = 0, REEL = 0, FILE = 0 77, REENTER AT DMAP SEQUENCE NUMBER 48 78, XVPS , FLAGS = 0, REEL = 1, FILE = 46 79, KRR , FLAGS = 0, REEL = 0, FILE = 0 80, KLR , FLAGS = 0, REEL = 0, FILE = 0 81, DM , FLAGS = 0, REEL = 0, FILE = 0 82, MLR , FLAGS = 0, REEL = 0, FILE = 0 83, MR , FLAGS = 0, REEL = 0, FILE = 0 84, GM , FLAGS = 0, REEL = 0, FILE = 0 85, GO , FLAGS = 0, REEL = 0, FILE = 0 86, KFS , FLAGS = 0, REEL = 0, FILE = 0 87, QG , FLAGS = 0, REEL = 0, FILE = 0 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 88, REENTER AT DMAP SEQUENCE NUMBER 49 89, USETF , FLAGS = 0, REEL = 1, FILE = 47 90, USETS , FLAGS = 0, REEL = 1, FILE = 48 91, AF , FLAGS = 0, REEL = 1, FILE = 49 92, DKGG , FLAGS = 0, REEL = 1, FILE = 50 93, XVPS , FLAGS = 0, REEL = 1, FILE = 51 94, REENTER AT DMAP SEQUENCE NUMBER 49 95, PV1 , FLAGS = 0, REEL = 1, FILE = 52 96, XVPS , FLAGS = 0, REEL = 1, FILE = 53 97, REENTER AT DMAP SEQUENCE NUMBER 49 98, KXX , FLAGS = 0, REEL = 1, FILE = 54 99, KYY , FLAGS = 0, REEL = 1, FILE = 55 100, XVPS , FLAGS = 0, REEL = 1, FILE = 56 101, REENTER AT DMAP SEQUENCE NUMBER 49 102, MXX , FLAGS = 0, REEL = 1, FILE = 57 103, XVPS , FLAGS = 0, REEL = 1, FILE = 58 104, REENTER AT DMAP SEQUENCE NUMBER 49 105, XVPS , FLAGS = 0, REEL = 1, FILE = 59 106, RX , FLAGS = 0, REEL = 0, FILE = 0 107, REENTER AT DMAP SEQUENCE NUMBER 48 108, XVPS , FLAGS = 0, REEL = 1, FILE = 60 109, REENTER AT DMAP SEQUENCE NUMBER 49 110, AXY , FLAGS = 0, REEL = 1, FILE = 61 111, AYY , FLAGS = 0, REEL = 1, FILE = 62 112, XVPS , FLAGS = 0, REEL = 1, FILE = 63 113, REENTER AT DMAP SEQUENCE NUMBER 49 114, DKXX , FLAGS = 0, REEL = 1, FILE = 64 115, DKYY , FLAGS = 0, REEL = 1, FILE = 65 116, XVPS , FLAGS = 0, REEL = 1, FILE = 66 117, REENTER AT DMAP SEQUENCE NUMBER 49 118, PV2 , FLAGS = 0, REEL = 1, FILE = 67 119, XVPS , FLAGS = 0, REEL = 1, FILE = 68 120, REENTER AT DMAP SEQUENCE NUMBER 49 121, AFRY , FLAGS = 0, REEL = 1, FILE = 69 122, XVPS , FLAGS = 0, REEL = 1, FILE = 70 123, REENTER AT DMAP SEQUENCE NUMBER 49 124, DKFRFR , FLAGS = 0, REEL = 1, FILE = 71 125, XVPS , FLAGS = 0, REEL = 1, FILE = 72 126, REENTER AT DMAP SEQUENCE NUMBER 49 127, GPLD , FLAGS = 0, REEL = 1, FILE = 73 128, SILD , FLAGS = 0, REEL = 1, FILE = 74 129, USETD , FLAGS = 0, REEL = 1, FILE = 75 130, EED , FLAGS = 0, REEL = 1, FILE = 76 131, EQDYN , FLAGS = 0, REEL = 1, FILE = 77 132, XVPS , FLAGS = 0, REEL = 1, FILE = 78 133, REENTER AT DMAP SEQUENCE NUMBER 48 134, KXX , FLAGS = 4, REEL = 1, FILE = 35 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 135, XVPS , FLAGS = 0, REEL = 1, FILE = 79 136, REENTER AT DMAP SEQUENCE NUMBER 48 137, MXX , FLAGS = 4, REEL = 1, FILE = 57 138, MGG , FLAGS = 4, REEL = 1, FILE = 57 139, XVPS , FLAGS = 0, REEL = 1, FILE = 80 140, REENTER AT DMAP SEQUENCE NUMBER 50 141, KNN , FLAGS = 4, REEL = 1, FILE = 81 142, KGG , FLAGS = 4, REEL = 1, FILE = 81 143, KXX , FLAGS = 4, REEL = 1, FILE = 81 144, KGGX , FLAGS = 4, REEL = 1, FILE = 81 145, MNN , FLAGS = 4, REEL = 1, FILE = 82 146, MXX , FLAGS = 4, REEL = 1, FILE = 82 147, MGG , FLAGS = 4, REEL = 1, FILE = 82 148, XVPS , FLAGS = 0, REEL = 1, FILE = 83 149, REENTER AT DMAP SEQUENCE NUMBER 55 150, XVPS , FLAGS = 0, REEL = 1, FILE = 84 151, KFF , FLAGS = 0, REEL = 0, FILE = 0 152, MFF , FLAGS = 0, REEL = 0, FILE = 0 153, REENTER AT DMAP SEQUENCE NUMBER 57 154, KFF , FLAGS = 0, REEL = 1, FILE = 85 155, KFS , FLAGS = 0, REEL = 1, FILE = 86 156, MFF , FLAGS = 0, REEL = 1, FILE = 87 157, XVPS , FLAGS = 0, REEL = 1, FILE = 88 158, REENTER AT DMAP SEQUENCE NUMBER 59 159, XVPS , FLAGS = 0, REEL = 1, FILE = 89 160, KAA , FLAGS = 0, REEL = 0, FILE = 0 161, REENTER AT DMAP SEQUENCE NUMBER 60 162, XVPS , FLAGS = 0, REEL = 1, FILE = 90 163, MAA , FLAGS = 0, REEL = 0, FILE = 0 164, REENTER AT DMAP SEQUENCE NUMBER 63 165, GO , FLAGS = 0, REEL = 1, FILE = 91 166, KAA , FLAGS = 0, REEL = 1, FILE = 92 167, KOO , FLAGS = 0, REEL = 1, FILE = 93 168, LOO , FLAGS = 0, REEL = 1, FILE = 94 169, XVPS , FLAGS = 0, REEL = 1, FILE = 95 170, REENTER AT DMAP SEQUENCE NUMBER 63 171, MAA , FLAGS = 0, REEL = 1, FILE = 96 172, XVPS , FLAGS = 0, REEL = 1, FILE = 97 173, REENTER AT DMAP SEQUENCE NUMBER 72 174, CASE1 , FLAGS = 0, REEL = 1, FILE = 98 175, XVPS , FLAGS = 0, REEL = 1, FILE = 99 176, REENTER AT DMAP SEQUENCE NUMBER 74 177, LAMA , FLAGS = 0, REEL = 1, FILE = 100 178, PHIA , FLAGS = 0, REEL = 1, FILE = 101 179, MI , FLAGS = 0, REEL = 1, FILE = 102 180, OEIGS , FLAGS = 0, REEL = 1, FILE = 103 181, XVPS , FLAGS = 0, REEL = 1, FILE = 104 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 182, REENTER AT DMAP SEQUENCE NUMBER 80 183, PHIG , FLAGS = 0, REEL = 1, FILE = 105 184, QG , FLAGS = 0, REEL = 1, FILE = 106 185, XVPS , FLAGS = 0, REEL = 1, FILE = 107 186, REENTER AT DMAP SEQUENCE NUMBER 83 187, PHIGS , FLAGS = 0, REEL = 1, FILE = 108 188, XVPS , FLAGS = 0, REEL = 1, FILE = 109 189, REENTER AT DMAP SEQUENCE NUMBER 83 190, QGS , FLAGS = 0, REEL = 1, FILE = 110 191, XVPS , FLAGS = 0, REEL = 1, FILE = 111 192, REENTER AT DMAP SEQUENCE NUMBER 83 193, OPHIGS , FLAGS = 0, REEL = 1, FILE = 112 194, XVPS , FLAGS = 0, REEL = 1, FILE = 113 195, OQGS , FLAGS = 0, REEL = 0, FILE = 0 196, OEFS , FLAGS = 0, REEL = 0, FILE = 0 197, PPHIGS , FLAGS = 0, REEL = 0, FILE = 0 198, REENTER AT DMAP SEQUENCE NUMBER 82 199, XVPS , FLAGS = 0, REEL = 1, FILE = 114 200, DKAA , FLAGS = 0, REEL = 0, FILE = 0 201, REENTER AT DMAP SEQUENCE NUMBER 82 202, DKXX , FLAGS = 4, REEL = 1, FILE = 64 203, DKNN , FLAGS = 4, REEL = 1, FILE = 64 204, XVPS , FLAGS = 0, REEL = 1, FILE = 115 205, REENTER AT DMAP SEQUENCE NUMBER 82 206, XVPS , FLAGS = 0, REEL = 1, FILE = 116 207, DKFF , FLAGS = 0, REEL = 0, FILE = 0 208, REENTER AT DMAP SEQUENCE NUMBER 83 209, DKFF , FLAGS = 0, REEL = 1, FILE = 117 210, XVPS , FLAGS = 0, REEL = 1, FILE = 118 211, REENTER AT DMAP SEQUENCE NUMBER 82 212, XVPS , FLAGS = 0, REEL = 1, FILE = 119 213, REENTER AT DMAP SEQUENCE NUMBER 83 214, DKAA , FLAGS = 0, REEL = 1, FILE = 120 215, XVPS , FLAGS = 0, REEL = 1, FILE = 121 216, REENTER AT DMAP SEQUENCE NUMBER 83 217, KMAT , FLAGS = 0, REEL = 1, FILE = 122 218, MMAT , FLAGS = 0, REEL = 1, FILE = 123 219, GIH , FLAGS = 0, REEL = 1, FILE = 124 220, PV4 , FLAGS = 0, REEL = 1, FILE = 125 221, XVPS , FLAGS = 0, REEL = 1, FILE = 126 222, REENTER AT DMAP SEQUENCE NUMBER 83 223, CASE2 , FLAGS = 0, REEL = 1, FILE = 127 224, XVPS , FLAGS = 0, REEL = 1, FILE = 128 225, REENTER AT DMAP SEQUENCE NUMBER 83 226, LAMAT , FLAGS = 0, REEL = 1, FILE = 129 227, PHIH , FLAGS = 0, REEL = 1, FILE = 130 228, MH , FLAGS = 0, REEL = 1, FILE = 131 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 229, OEIGH , FLAGS = 0, REEL = 1, FILE = 132 230, XVPS , FLAGS = 0, REEL = 1, FILE = 133 231, REENTER AT DMAP SEQUENCE NUMBER 83 232, PHII , FLAGS = 0, REEL = 1, FILE = 134 233, XVPS , FLAGS = 0, REEL = 1, FILE = 135 234, REENTER AT DMAP SEQUENCE NUMBER 82 235, XVPS , FLAGS = 0, REEL = 1, FILE = 136 236, PHIZ , FLAGS = 0, REEL = 0, FILE = 0 237, REENTER AT DMAP SEQUENCE NUMBER 82 238, XVPS , FLAGS = 0, REEL = 1, FILE = 137 239, PHIY , FLAGS = 0, REEL = 0, FILE = 0 240, REENTER AT DMAP SEQUENCE NUMBER 83 241, PHIZ , FLAGS = 0, REEL = 1, FILE = 138 242, PHIFR , FLAGS = 0, REEL = 1, FILE = 139 243, XVPS , FLAGS = 0, REEL = 1, FILE = 140 244, REENTER AT DMAP SEQUENCE NUMBER 83 245, PHIY , FLAGS = 0, REEL = 1, FILE = 141 246, XVPS , FLAGS = 0, REEL = 1, FILE = 142 247, REENTER AT DMAP SEQUENCE NUMBER 83 248, PHIX , FLAGS = 0, REEL = 1, FILE = 143 249, XVPS , FLAGS = 0, REEL = 1, FILE = 144 250, REENTER AT DMAP SEQUENCE NUMBER 83 251, QX , FLAGS = 0, REEL = 1, FILE = 145 252, XVPS , FLAGS = 0, REEL = 1, FILE = 146 253, REENTER AT DMAP SEQUENCE NUMBER 83 254, PHIGT , FLAGS = 0, REEL = 1, FILE = 147 255, XVPS , FLAGS = 0, REEL = 1, FILE = 148 256, REENTER AT DMAP SEQUENCE NUMBER 83 257, QGT , FLAGS = 0, REEL = 1, FILE = 149 258, XVPS , FLAGS = 0, REEL = 1, FILE = 150 259, REENTER AT DMAP SEQUENCE NUMBER 83 260, OQG1 , FLAGS = 0, REEL = 1, FILE = 151 261, OPHIG , FLAGS = 0, REEL = 1, FILE = 152 262, XVPS , FLAGS = 0, REEL = 1, FILE = 153 263, OES1 , FLAGS = 0, REEL = 0, FILE = 0 264, OEF1 , FLAGS = 0, REEL = 0, FILE = 0 265, PPHIG , FLAGS = 0, REEL = 0, FILE = 0 266, OES1L , FLAGS = 0, REEL = 0, FILE = 0 267, OEF1L , FLAGS = 0, REEL = 0, FILE = 0 268, REENTER AT DMAP SEQUENCE NUMBER 85 269, XVPS , FLAGS = 0, REEL = 1, FILE = 154 270, OESF1 , FLAGS = 0, REEL = 0, FILE = 0 271, OESF1L , FLAGS = 0, REEL = 0, FILE = 0 272, REENTER AT DMAP SEQUENCE NUMBER 87 273, XVPS , FLAGS = 0, REEL = 1, FILE = 155 274, ONRGY1 , FLAGS = 0, REEL = 0, FILE = 0 275, REENTER AT DMAP SEQUENCE NUMBER 89 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 276, XVPS , FLAGS = 0, REEL = 1, FILE = 156 277, KDICT , FLAGS = 0, REEL = 0, FILE = 0 278, KELM , FLAGS = 0, REEL = 0, FILE = 0 279, REENTER AT DMAP SEQUENCE NUMBER 104 280, XVPS , FLAGS = 0, REEL = 1, FILE = 157 281, DUMMY , FLAGS = 0, REEL = 0, FILE = 0 $ END OF CHECKPOINT DICTIONARY 0*** $ END READFILE TIME 10 SOL 3,0 APP DISP $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) AFTER THIS CARD 0*** $ ... READFILE FROM- COSHYD2 $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - MODAL FORMULATION (COSHYD2) $ ALTER 1,1 $ COSMIC/NASTRAN RF 3. REPLACING BEGIN DELETE BEGIN $ XDMAP GO,ERR=2 $ BEGIN HYDROELASTIC ANALYSIS - MODAL FORMULATION $ ALTER 3 $ AFTER PRECHK/FILE INSERT FILE $ COMPOFF NEW1,NEWMODE $ $ ALTER 46 $ AFTER OFP/COND/PURGE INSERT GP4,3 $ FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ VEC USETF/PV1/*G*/*X*/*Y* $ PARTN KGG,PV1,/KXX,,,KYY $ PARTN MGG,PV1,/MXX,,, $ PARTN RG,PV1,/RX,,,/1 $ EQUIV RX,RG $ PARTN AF,PV1,/,,AXY,AYY $ COND MODAL1,NOGRAV $ PARTN DKGG,PV1,/DKXX,,,DKYY $ COND MODAL1,NOFREE $ VEC USETF/PV2/*Y*/*FR*/*COMP* $ PARTN AYY,,PV2/AFRY,,,/0 $ PARTN DKYY,PV2,/DKFRFR,,, $ LABEL MODAL1 $ LABEL NEW1 $ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ COND ERROR2,NOEED $ COMPOFF NEW2,NEWMODE $ PARAM //*MPY*/CARDNO/0/0 $ COMPOFF NOSTRUC,OLDSTR $ COMPON 2,DIFSTIF $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 PARAMR //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $ ADD KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $ COMPOFF 1,DIFSTIF $ EQUIV KXX,KGG $ EQUIV MXX,MGG $ $ ALTER 49,50 $ REPLACING MCE1, MCE2 DELETE MCE1,MCE2 $ MCE1 USETS,RG/GM $ MCE2 USETS,GM,KGG,MGG,,/KNN,MNN,, $ $ ALTER 54,54 $ REPLACING SCE1 DELETE SCE1 $ SCE1 USETS,KNN,MNN,,/KFF,KFS,,MFF,, $ $ ALTER 59,60 $ REPLACING SMP1, SMP2 DELETE SMP1,SMP2 $ SMP1 USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $ SMP2 USETS,GO,MFF/MAA $ $ ALTER 63,63 $ REPLACING RBMG1 DELETE RBMG1 $ RBMG1 USETS,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ $ ALTER 68,69 $ REPLACING DPD, COND DELETE DPD,DPD,1 $ CASE CASECC,/CASE1/*REIGEN*/S,N,REPT/S,N,LOLP $ $ ALTER 71,71 $ REPLACING READ DELETE READ $ READ KAA,MAA,MR,DM,EED,USETS,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ $ ALTER 75,77 $ REPLACING SDR1, COND, EQMCK DELETE SDR1,EQMCK $ SDR1 USETS,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ COND NOMPCF,GRDEQ $ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ $ ALTER 80,80 $ REPLACING SDR2 DELETE SDR2 $ MERGE PHIG,,,,,PV1/PHIGS/0 $ MERGE QG,,,,,PV1/QGS/0 $ SDR2 CASE1,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QGS,PHIGS,EST,,,/, OQGS,OPHIGS,,OEFS,PPHIGS,,/*REIG* $ OFP OPHIGS,OQGS,OEFS,,,//S,N,CARDNO $ LABEL NOSTRUC $ PURGE DKAA/NOGRAV $ COND MODAL4,NOGRAV $ EQUIV DKXX,DKNN/MPCF1 $ COND MODAL2,MPCF2 $ MCE2 USETS,GM,DKXX,,,/DKNN,,, $ LABEL MODAL2 $ EQUIV DKNN,DKFF/SINGLE $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 COND MODAL3,SINGLE $ SCE1 USETS,DKNN,,,/DKFF,,,,, $ LABEL MODAL3 $ EQUIV DKFF,DKAA/OMIT $ COND MODAL4,OMIT $ SMP2 USETS,GO,DKFF/DKAA $ LABEL MODAL4 $ GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,,,,,,USETF,PHIA,PHIG,LAMA/KMAT,MMAT, GIH,PV4,/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=1/ S,Y,LMODES $ JUMP OLD2 $ LABEL NEW2 $ PARAM //*MPY*/REPT/1/1 $ LABEL OLD2 $ CASE CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $ PARAM //*MPY*/NEIGV/1/-1 $ READ KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/ S,N,NEIGV $ OFP LAMAT,OEIGH,,,,//S,N,CARDNO $ COND FINIS,NEIGV $ MPYAD GIH,PHIH,/PHII/0/1/0 $ EQUIV PHIH,PHIZ/NOFREE $ EQUIV PHII,PHIY/NOFREE $ COND MODAL5,NOFREE $ PARTN PHIH,,PV4/PHIZ,PHIFR,,/0 $ MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ LABEL MODAL5 $ COND ALLMODES,LMODES TRAILER PHIG//*STORE*/1/V,Y,LMODES $ TRAILER QG//*STORE*/1/V,Y,LMODES $ LABEL ALLMODES $ MPYAD PHIG,PHIZ,/PHIX/0/1/0 $ MPYAD QG,PHIZ,/QX/0/1/0 $ MERGE PHIX,PHIY,,,,PV1/PHIGT/0 $ MERGE QX,,,,,PV1/QGT/0 $ SDR2 CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $ ENDALTER $ 0*** $ END READFILE $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) BEFORE THIS CARD CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T03-12-1C 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T03-12-1C 3 $ REFERENCE PROBLEM IV.3 4 SPC = 10 5 DISP = ALL 6 SUBCASE 2 7 LABEL = MODES WITH FLUID INCLUDED 8 METHOD = 60 9 SPCF = ALL 10 BEGIN BULK 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T03-12-1C 0 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ $ $ NEW FLUID MODEL $ / 1 4 CFWEDGE 1 200 1 2 3 5 6 7 CFWEDGE 2 200 2 4 3 6 8 7 CFFREE 1 100 5 2 100 5 CFLSTR 1 100 101 104 CFLSTR 2 100 102 103 104 $ $ *** NOTE *** AT LEAST ONE GRID MUST BE ALTERED IN TO FORCE $ REEXECUTION OF PROPER MODULES $ / 14 GRID 1 .0 .0 .0 $ $ PARAMETER TO SKIP RECOMPUTATION OF UNCHANGED STRUCTURE $ PARAM OLDSTR -1 ENDDATA TOTAL COUNT= 19 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T03-12-1C 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CFFREE 1 100 5 2 100 5 2- CFLSTR 1 100 101 104 3- CFLSTR 2 100 102 103 104 4- CFWEDGE 1 200 1 2 3 5 6 7 5- CFWEDGE 2 200 2 4 3 6 8 7 6- CQUAD2 101 100 101 102 106 105 7- CQUAD2 102 100 102 104 108 106 8- CQUAD2 103 100 104 103 107 108 9- CQUAD2 104 100 101 103 104 102 10- EIGR 50 GIV 0.0 2600.0 10 10 0 +EMOD1 11- +EMOD1 MAX 12- EIGR 60 GIV 0.0 10.0 6 6 0 +E1 13- +E1 MAX 14- GRAV 100 386.0 0.0 0.0 -1.0 15- GRID 1 .0 .0 .0 16- GRID 2 6.0 0.0 0.0 17- GRID 3 0.0 12.0 0.0 18- GRID 4 6.0 12.0 0.0 19- GRID 5 0.0 0.0 12.0 20- GRID 6 6.0 0.0 12.0 21- GRID 7 0.0 12.0 12.0 22- GRID 8 6.0 12.0 12.0 23- GRID 101 0.0 0.0 0.0 24- GRID 102 6.0 0.0 0.0 25- GRID 103 0.0 12.0 0.0 26- GRID 104 6.0 12.0 0.0 27- GRID 105 0.0 0.0 12.0 28- GRID 106 6.0 0.0 12.0 29- GRID 107 0.0 12.0 12.0 30- GRID 108 6.0 12.0 12.0 31- MAT1 100 10.6+6 .3 .92-3 32- MATF 200 9.355-4 33- OMIT1 4 101 103 105 107 34- OMIT1 456 102 104 106 108 35- PARAM OLDSTR -1 36- PQUAD2 100 100 .06 37- SPC1 10 1256 101 103 105 107 ENDDATA 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T03-12-1C 0 0*** USER INFORMATION MESSAGE 4144, THIS IS A MODIFIED RESTART. 0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW. 0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES ----------------------------------- MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION 17 4 METHOD$ 62 17 POUT$ 19 0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES -------------------------------- MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED BIT POSITION 1 1 GRID 1 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T03-12-1C 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 XDMAP GO,ERR=2 $ + + 1 BEGIN HYDROELASTIC ANALYSIS - MODAL FORMULATION + + 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ + + 3 COMPOFF NEW1,NEWMODE $ 4 PARAM //*MPY*/CARDNO/0/0 $ + * 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ + * NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ + * 9 GP2 GEOM2,EQEXIN/ECT $ + * 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ + * 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ + * S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ + * 15 PARAM //*MPY*/PLTFLG/1/1 $ + * 16 PARAM //*MPY*/PFILE/0/0 $ + * 17 COND P1,JUMPPLOT $ + * 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ + * 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T03-12-1C 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1//$ + * 20 LABEL P1 $ + + 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ + * 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, + * PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ + * 24 COND ERROR4,NOSIMP $ + * 25 PARAM //*ADD*/NOKGGX/1/0 $ + * 26 PARAM //*ADD*/NOMGG/1/0 $ + * 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ + * S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ + * 29 COND JMPKGG,NOKGGX $ + * 30 EMA GPECT,KDICT,KELM/KGGX $ + * 31 LABEL JMPKGG $ + + 32 COND ERROR1,NOMGG $ + * 33 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ + * 34 PURGE MDICT,MELM/ALWAYS $ + * 35 COND LGPWG,GRDPNT $ + * 36 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ + * 37 OFP OGPWG,,,,,//S,N,CARDNO $ + * 38 LABEL LGPWG $ + + 39 EQUIV KGGX,KGG/NOGENL $ + * 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T03-12-1C COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 40 COND LBL11,NOGENL $ + * 41 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ + * 42 LABEL LBL11 $ + + 43 GPSTGEN KGG,SIL/GPST $ + * 44 PARAM //*MPY*/NSKIP/0/0 $ + * 45 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, + * ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 46 OFP OGPST,,,,,//S,N,CARDNO $ + * 47 COND ERROR3,NOL $ + * 48 PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ + * 48 FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, + * DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ + * 48 VEC USETF/PV1/*G*/*X*/*Y* $ + * 48 PARTN KGG,PV1,/KXX,,,KYY $ + * 48 PARTN MGG,PV1,/MXX,,, $ + * 48 PARTN RG,PV1,/RX,,,/1 $ + * 48 EQUIV RX,RG $ + * 48 PARTN AF,PV1,/,,AXY,AYY $ + * 48 COND MODAL1,NOGRAV $ + * 48 PARTN DKGG,PV1,/DKXX,,,DKYY $ + * 48 COND MODAL1,NOFREE $ + * 48 VEC USETF/PV2/*Y*/*FR*/*COMP* $ + * 48 PARTN AYY,,PV2/AFRY,,,/0 $ + * 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T03-12-1C COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 48 PARTN DKYY,PV2,/DKFRFR,,, $ + * 48 LABEL MODAL1 $ + + 48 LABEL NEW1 $ + + 48 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ + * LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ + * 48 COND ERROR2,NOEED $ + * 48 COMPOFF NEW2,NEWMODE $ 48 PARAM //*MPY*/CARDNO/0/0 $ + * 48 COMPOFF NOSTRUC,OLDSTR $ 82 PURGE DKAA/NOGRAV $ + * 82 COND MODAL4,NOGRAV $ + * 82 EQUIV DKXX,DKNN/MPCF1 $ + * 82 COND MODAL2,MPCF2 $ + * 82 MCE2 USETS,GM,DKXX,,,/DKNN,,, $ + * 82 LABEL MODAL2 $ + + 82 EQUIV DKNN,DKFF/SINGLE $ + * 82 COND MODAL3,SINGLE $ + * 82 SCE1 USETS,DKNN,,,/DKFF,,,,, $ + * 82 LABEL MODAL3 $ + + 82 EQUIV DKFF,DKAA/OMIT $ + * 82 COND MODAL4,OMIT $ + * 82 SMP2 USETS,GO,DKFF/DKAA $ + * 82 LABEL MODAL4 $ + + 82 GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,,,,,,USETF,PHIA,PHIG,LAMA/KMAT,MMAT, + * 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T03-12-1C 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING GIH,PV4,/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=1/ S,Y,LMODES $ + * 82 JUMP OLD2 $ + * 82 LABEL NEW2 $ + + 82 PARAM //*MPY*/REPT/1/1 $ + * 82 LABEL OLD2 $ + + 82 CASE CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $ + * + * 82 PARAM //*MPY*/NEIGV/1/-1 $ + * 82 READ KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/ + * S,N,NEIGV $ + * 82 OFP LAMAT,OEIGH,,,,//S,N,CARDNO $ + * + * 82 COND FINIS,NEIGV $ + * 82 MPYAD GIH,PHIH,/PHII/0/1/0 $ + * 82 EQUIV PHIH,PHIZ/NOFREE $ + * 82 EQUIV PHII,PHIY/NOFREE $ + * 82 COND MODAL5,NOFREE $ + * 82 PARTN PHIH,,PV4/PHIZ,PHIFR,,/0 $ + * 82 MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ + * 82 LABEL MODAL5 $ + + 82 COND ALLMODES,LMODES + * 82 TRAILER PHIG//*STORE*/1/V,Y,LMODES $ + * 82 TRAILER QG//*STORE*/1/V,Y,LMODES $ + * 82 LABEL ALLMODES $ + + 82 MPYAD PHIG,PHIZ,/PHIX/0/1/0 $ + * 82 MPYAD QG,PHIZ,/QX/0/1/0 $ + * 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T03-12-1C COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 82 MERGE PHIX,PHIY,,,,PV1/PHIGT/0 $ + * 82 MERGE QX,,,,,PV1/QGT/0 $ + * 82 SDR2 CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,, + * PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $ 83 OFP OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $ + * 84 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ + * 85 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ + * 86 GPFDR CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ + * 87 OFP ONRGY1,,,,,//S,N,CARDNO $ + * 88 PURGE KDICT,KELM/ALWAYS $ + * 89 COND P2,JUMPPLOT $ 90 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 91 PRTMSG PLOTX2// $ 92 LABEL P2 $ + + 93 JUMP FINIS $ + * 94 LABEL ERROR1 $ + + 95 PRTPARM //-1/*MODES* $ + * 96 LABEL ERROR2 $ + + 97 PRTPARM //-2/*MODES* $ + * 98 LABEL ERROR3 $ + + 99 PRTPARM //-3/*MODES* $ + * 100 LABEL ERROR4 $ + + 101 PRTPARM //-4/*MODES* $ + * 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T03-12-1C COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 102 LABEL FINIS $ + + 103 PURGE DUMMY/ALWAYS $ + * 104 END $ + * 0 0 + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME. 0 * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART. 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T03-12-1C 0 0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART FILE NAME REEL NO. FILE NO. GM (PURGED) GO 1 91 LAMA 1 100 PHIA 1 101 PHIG 1 105 QG 1 106 XVPS 1 157 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T03-12-1C 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 7 PROFILE 67 MAX WAVEFRONT 7 AVG WAVEFRONT 4.188 RMS WAVEFRONT 4.603 RMS BANDWIDTH 4.657 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 6 PROFILE 60 MAX WAVEFRONT 6 AVG WAVEFRONT 3.750 RMS WAVEFRONT 4.062 RMS BANDWIDTH 4.062 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 7 6 PROFILE (P) 67 60 MAXIMUM WAVEFRONT (C-MAX) 7 6 AVERAGE WAVEFRONT (C-AVG) 4.188 3.750 RMS WAVEFRONT (C-RMS) 4.603 4.062 RMS BANDWITCH (B-RMS) 4.657 4.062 NUMBER OF GRID POINTS (N) 16 NUMBER OF ELEMENTS (NON-RIGID) 6 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 2 MAXIMUM NODAL DEGREE 7 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 43 MATRIX DENSITY, PERCENT 39.844 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 4 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T03-12-1C 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 9 2 11 3 12 4 15 SEQGP 5 10 6 13 7 14 8 16 SEQGP 101 2 102 4 103 5 104 6 SEQGP 105 1 106 3 107 8 108 7 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** SYSTEM WARNING MESSAGE 2072, CARD TYPE 4802 NOT FOUND ON DATA BLOCK. BIT POSITION = 48 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FWEDGE ELEMENTS (ELEMENT TYPE 79) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 101 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN -1 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 14, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T03-12-1C 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 14 -1.048119E+01 3.237466E+00 5.152587E-01 4.718914E-01 -4.945983E+00 2 13 1.760331E+02 1.326775E+01 2.111627E+00 6.447796E-02 1.135025E+01 3 12 8.346302E+02 2.888997E+01 4.597981E+00 5.981883E-03 4.992661E+00 4 11 1.161350E+03 3.407858E+01 5.423775E+00 3.519696E-03 4.087598E+00 5 10 4.907604E+03 7.005430E+01 1.114949E+01 8.890600E-04 4.363155E+00 6 9 4.901025E+05 7.000732E+02 1.114201E+02 4.040724E-03 1.980369E+03 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T03-12-1C 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 14 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 6 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN -1 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T03-12-1C 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = -0.104812E+02 (CYCLIC FREQUENCY = 5.152587E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -4.196715E-03 -4.198343E-03 -4.198359E-03 -4.196735E-03 7.456232E-01 7.456703E-01 7 S 7.456706E-01 7.456244E-01 101 G 0.0 0.0 9.999965E-01 3.454241E-07 0.0 0.0 102 G -1.108577E-07 6.240699E-07 9.999974E-01 3.312281E-07 -1.710972E-07 1.384055E-07 103 G 0.0 0.0 1.000001E+00 4.732937E-07 0.0 0.0 104 G -1.155286E-07 -6.249048E-07 1.000002E+00 4.871760E-07 -3.332208E-07 -1.933627E-07 105 G 0.0 0.0 9.999975E-01 -3.129556E-07 0.0 0.0 106 G -4.735254E-06 -2.830915E-06 9.999987E-01 4.771008E-07 -4.507540E-07 -1.381054E-07 107 G 0.0 0.0 1.000002E+00 -4.590388E-07 0.0 0.0 108 G -4.729358E-06 -6.679182E-06 1.000003E+00 9.048853E-07 -4.925324E-07 -7.872109E-07 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T03-12-1C 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.176033E+03 (CYCLIC FREQUENCY = 2.111627E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -1.089574E-03 -1.318649E-03 1.240649E-03 1.066003E-03 -7.836779E-01 -8.605792E-01 7 S 7.522578E-01 1.000000E+00 101 G 0.0 0.0 1.423968E-01 -2.441491E-02 0.0 0.0 102 G -3.339240E-06 1.543767E-06 1.423956E-01 -2.455681E-02 -4.987180E-03 1.672310E-03 103 G 0.0 0.0 -1.423414E-01 -2.441516E-02 0.0 0.0 104 G 3.639895E-06 1.879903E-06 -1.423365E-01 -2.455686E-02 4.986548E-03 1.672376E-03 105 G 0.0 0.0 1.424065E-01 2.305757E-02 0.0 0.0 106 G -8.006701E-06 2.847074E-01 1.424008E-01 -4.133607E-02 -1.233004E-03 2.770622E-02 107 G 0.0 0.0 -1.423493E-01 2.305772E-02 0.0 0.0 108 G 9.758537E-06 2.847087E-01 -1.423418E-01 -4.133624E-02 1.233590E-03 2.770649E-02 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T03-12-1C 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.834630E+03 (CYCLIC FREQUENCY = 4.597981E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -7.477579E-05 -1.473691E-04 1.210029E-04 6.686650E-05 1.000000E+00 -7.266733E-01 7 S 5.531097E-01 -6.531781E-01 101 G 0.0 0.0 2.538065E-02 -4.341134E-03 0.0 0.0 102 G -7.986006E-07 2.085518E-06 2.538081E-02 -4.365923E-03 -8.869038E-04 2.977029E-04 103 G 0.0 0.0 -2.525069E-02 -4.340946E-03 0.0 0.0 104 G 2.488028E-07 -1.347207E-06 -2.524247E-02 -4.365504E-03 8.849464E-04 2.967743E-04 105 G 0.0 0.0 2.538400E-02 4.099587E-03 0.0 0.0 106 G -1.264322E-05 5.061806E-02 2.538467E-02 -7.348768E-03 -2.204187E-04 4.926383E-03 107 G 0.0 0.0 -2.524626E-02 4.099271E-03 0.0 0.0 108 G -1.372388E-05 5.060777E-02 -2.523883E-02 -7.347644E-03 2.181200E-04 4.924680E-03 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T03-12-1C 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.116135E+04 (CYCLIC FREQUENCY = 5.423775E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -4.310606E-05 -4.841381E-05 -4.685823E-05 1.464273E-05 1.000000E+00 2.169613E-02 7 S -8.942738E-01 7.431428E-01 101 G 0.0 0.0 5.083402E-02 -8.656656E-03 0.0 0.0 102 G -7.603259E-07 -5.829648E-07 5.083411E-02 -8.707376E-03 -1.768307E-03 5.927869E-04 103 G 0.0 0.0 -5.012139E-02 -8.656824E-03 0.0 0.0 104 G 1.355888E-06 1.331808E-06 -5.012491E-02 -8.707613E-03 1.769167E-03 5.932975E-04 105 G 0.0 0.0 5.083615E-02 8.175526E-03 0.0 0.0 106 G 3.220259E-06 1.009514E-01 5.083398E-02 -1.465713E-02 -4.365693E-04 9.823846E-03 107 G 0.0 0.0 -5.012777E-02 8.175734E-03 0.0 0.0 108 G 1.128423E-05 1.009572E-01 -5.012925E-02 -1.465777E-02 4.379282E-04 9.824821E-03 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T03-12-1C 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.490760E+04 (CYCLIC FREQUENCY = 1.114949E+01 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 1.141230E-04 9.604431E-05 -1.143472E-04 -1.193208E-04 4.122835E-01 -7.719182E-01 7 S 6.500132E-02 1.000000E+00 101 G 0.0 0.0 -8.004945E-02 1.377594E-02 0.0 0.0 102 G 7.070669E-08 3.116940E-06 -8.001891E-02 1.385136E-02 2.807270E-03 -9.421095E-04 103 G 0.0 0.0 8.065779E-02 1.377629E-02 0.0 0.0 104 G -1.317532E-06 3.626825E-06 8.061855E-02 1.385132E-02 -2.805583E-03 -9.419278E-04 105 G 0.0 0.0 -8.003400E-02 -1.300731E-02 0.0 0.0 106 G -1.550831E-05 -1.605611E-01 -8.001295E-02 2.331038E-02 6.957188E-04 -1.562651E-02 107 G 0.0 0.0 8.063955E-02 -1.300747E-02 0.0 0.0 108 G 2.073133E-05 -1.605601E-01 8.061225E-02 2.331030E-02 -6.958817E-04 -1.562641E-02 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T03-12-1C 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.490102E+06 (CYCLIC FREQUENCY = 1.114201E+02 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -1.970592E-04 1.761128E-05 1.600590E-05 -2.000627E-04 9.931903E-01 -2.098567E-02 7 S -1.255511E-02 1.000000E+00 101 G 0.0 0.0 -3.910480E-01 -2.565263E-04 0.0 0.0 102 G -8.629104E-04 -3.391468E-03 -3.938311E-01 -2.874254E-04 6.227941E-04 -4.616518E-04 103 G 0.0 0.0 -3.951081E-01 -2.765423E-05 0.0 0.0 104 G -4.805087E-04 -3.264297E-03 -3.971325E-01 -2.873926E-04 2.672404E-04 -4.038229E-04 105 G 0.0 0.0 -3.914720E-01 1.260058E-05 0.0 0.0 106 G 6.927263E-04 -7.342090E-04 -3.934591E-01 -2.837668E-04 -3.237614E-04 -4.231622E-05 107 G 0.0 0.0 -3.947376E-01 -1.006347E-04 0.0 0.0 108 G -6.035462E-04 -7.878556E-04 -3.963023E-01 -2.460293E-04 -2.948799E-05 -9.895664E-05 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T03-12-1C 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = -0.104812E+02 (CYCLIC FREQUENCY = 5.152587E-01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -2.920079E-02 -1.405203E-01 0.0 0.0 1.048140E-04 -2.934376E-05 103 G -1.925119E-02 1.412902E-01 0.0 0.0 9.417887E-05 1.107932E-04 105 G 3.320762E+00 1.309230E-04 0.0 0.0 0.0 3.595348E-04 107 G 3.313829E+00 2.334454E-04 0.0 0.0 0.0 8.086335E-04 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T03-12-1C 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.176033E+03 (CYCLIC FREQUENCY = 2.111627E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 4.081363E+00 -6.607457E-01 0.0 0.0 -2.066534E-01 -2.454852E+00 103 G -4.960736E+00 -7.114383E-01 0.0 0.0 2.071333E-01 -2.454848E+00 105 G 4.391825E+00 -1.090730E+01 0.0 0.0 0.0 -3.498320E+01 107 G -5.368518E+00 -1.090733E+01 0.0 0.0 0.0 -3.498332E+01 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T03-12-1C 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.834630E+03 (CYCLIC FREQUENCY = 4.597981E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 8.218288E-01 -5.170307E-01 0.0 0.0 -3.668073E-02 -4.365101E-01 103 G -1.502780E+00 2.651130E-01 0.0 0.0 3.763374E-02 -4.360923E-01 105 G 8.508908E+00 -1.939131E+00 0.0 0.0 0.0 -6.219508E+00 107 G 1.012667E+01 -1.938853E+00 0.0 0.0 0.0 -6.218279E+00 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T03-12-1C 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.116135E+04 (CYCLIC FREQUENCY = 5.423775E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 9.389564E-01 3.850547E-02 0.0 0.0 -7.323253E-02 -8.703894E-01 103 G -1.082094E+00 -3.674831E-01 0.0 0.0 7.285780E-02 -8.706104E-01 105 G -2.482857E+00 -3.867534E+00 0.0 0.0 0.0 -1.240441E+01 107 G -7.630983E+00 -3.867690E+00 0.0 0.0 0.0 -1.240509E+01 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T03-12-1C 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.490760E+04 (CYCLIC FREQUENCY = 1.114949E+01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -4.815020E+00 -7.028251E-01 0.0 0.0 1.197666E-01 1.382730E+00 103 G 7.583232E+00 -9.583079E-01 0.0 0.0 -1.208600E-01 1.382595E+00 105 G 1.287161E+01 6.150995E+00 0.0 0.0 0.0 1.972747E+01 107 G -1.727174E+01 6.150958E+00 0.0 0.0 0.0 1.972728E+01 1 HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T03-12-1C 0 MODES WITH FLUID INCLUDED SUBCASE 2 EIGENVALUE = 0.490102E+06 (CYCLIC FREQUENCY = 1.114201E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 1.900968E+03 8.768158E+02 0.0 0.0 -3.778862E-01 5.449124E-01 103 G 4.145168E+02 7.048458E+02 0.0 0.0 -2.416977E-01 4.823396E-01 105 G -7.731306E+02 3.700481E-02 0.0 0.0 0.0 2.116406E-01 107 G 1.393967E+02 3.219602E-02 0.0 0.0 0.0 1.761147E-01 * * * END OF JOB * * * 1 JOB TITLE = HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL DATE: 5/18/95 END TIME: 10:11: 6 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t03131a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T03131A,NASTRAN $ $ THIS DEMO IS SAME AS T17011A WHERE SOLUTION 17 IS USED AND NO $ DMAP ALTERS $ DIAG 25 $ $ INSERT ALTERS FOR DYNAMIC DESIGN ANALYSIS METHOD (COSDDAM) HERE $ 0*** $ ... READFILE FROM- COSDDAM $ COSMIC ALTERS FOR DDAM PROBLEMS (COSDDAM) $ ALTER 71 $ INSERT READ $ DIAGONAL MI/MIS/*SQUARE*/-0.5 $ SMPYAD MIS,MI,MIS,,,/MINEW/3 $ $ ALTER 81,86 $ DELETE SDR2,1,SDR2,4 $ $ ALTER 90 $ INSERT PLOT(2),2 $ GENCOS BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/LUSET/S,N,NSCALE $ DIAGONAL MI/MID/*SQUARE*/-1.0 $ MPYAD MGG,PHIG,/MP/0 $ MPYAD MP,DIRCOS,/PMD/1 $ MPYAD MID,PMD,/PF/0 $ DDAMAT PF,PMD/EFFW/C,Y,GG=386.4 $ LAMX, ,LAMA/LAMB/-1 $ GENPART PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $ PARTN LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $ PARAM //*GE*/TEST/C,Y,LMODES/NMODES $ COND DDAM,TEST $ PARTN PF,,RPPF/,PFR,,/1 $ EQUIV PFR,PF $ PARTN EFFW,,RPPF/,EFFWR,,/1 $ EQUIV EFFWR,EFFW $ PARTN MP,CPMP,/,,MPR,/1 $ EQUIV MPR,MP $ PARTN PHIG,CPMP,/,,PHIGR,/1 $ EQUIV PHIGR,PHIG $ LABEL DDAM $ DESVEL EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/ C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/ C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $ DDAMAT PF,MINAC/PVW/1.0 $ DDAMAT PF,MINOW2/PVOW/1.0 $ DDAMPG PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $ DDAMPG MP,PVW/PG/NMODES/NDIR $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 CASEGEN CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $ EQUIV CASEDD,CASECC $ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,,/, OQG3,OUGV3,OES3,OEF3,,,/*STATICS*/S,N,NOSORT2=-1/-1 $ SDR3 OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $ NRLSUM OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT=123/ C,Y,SQRSS=0 $ OFP NRLSTR,NRLFOR,,,,//S,N,CARDNO $ COMBUGV UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $ CASEGEN CASECC/CASEEE/1/NDIR/NMODES $ SDR2 CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,,/, ,OUGV5,,,,,/*STATICS*/S,N,NOSORT2/-1 $ OFP OUGV5,,,,,//S,N,CARDNO $ ENDALTER $ 0*** $ END READFILE $ SOL 3 APP DISP TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T03-13-1A 3 LABEL = HY-100 PLATFORM MODEL 4 OLOAD = ALL 5 DISP = ALL 6 METHOD = 1 7 SPC = 1 8 FORCE(SORT2) = ALL 9 STRESS(SORT2) = ALL 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 107, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BAROR 1 0. 1. 1. 1 2- CBAR 1 1 2 3- CBAR 2 2 3 4- CBAR 3 3 4 5- CBAR 4 4 5 6- CBAR 5 4 2 6 1. 0. 1. 7- CBAR 6 5 3 8 1. 0. 1. 8- CBAR 7 5 4 10 1. 0. 1. 9- CBAR 8 2 6 7 10- CBAR 9 2 7 8 11- CBAR 10 2 8 9 12- CBAR 11 2 9 10 13- CBAR 12 4 6 11 1. 0. 1. 14- CBAR 13 5 8 13 1. 0. 1. 15- CBAR 14 5 10 15 1. 0. 1. 16- CBAR 15 2 11 12 17- CBAR 16 2 12 13 18- CBAR 17 2 13 14 19- CBAR 18 2 14 15 20- CBAR 19 4 11 17 1. 0. 1. 21- CBAR 20 5 13 20 1. 0. 1. 22- CBAR 21 5 15 23 1. 0. 1. 23- CBAR 22 3 16 17 24- CBAR 23 3 17 18 25- CBAR 24 3 18 19 26- CBAR 25 3 19 20 27- CBAR 26 3 20 21 28- CBAR 27 3 21 22 29- CBAR 28 3 22 23 30- CBAR 29 3 23 24 31- CBAR 30 19 25 0. 1. -1. 32- CBAR 31 22 26 0. 1. -1. 33- CBAR 32 4 17 27 1. 0. 1. 34- CBAR 33 5 23 28 1. 0. 1. 35- CONM2 32 2 1 7.76 36- CONM2 33 4 1 7.76 37- CONM2 34 7 1 9.52 38- CONM2 35 9 1 9.52 39- CONM2 36 11 1 29.97 40- CONM2 37 12 1 4. 41- CONM2 38 14 1 4. 42- CONM2 39 15 1 29.97 43- CONM2 40 18 1 5. 44- CONM2 41 21 1 5. 45- CORD2R 1 0. 0. 0. 0. 0. 1. +COR1 46- +COR1 1. 0. 1. 47- EIGR 1 GIV 30 1.-3 +EGR1 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T03-13-1A HY-100 PLATFORM MODEL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- +EGR1 MAX 49- GRID 1 0. 0. 50- GRID 2 0. 50. 51- GRID 3 0. 150. 52- GRID 4 0. 230. 53- GRID 5 0. 280. 54- GRID 6 48. 50. 55- GRID 7 48. 130. 56- GRID 8 48. 150. 57- GRID 9 48. 180. 58- GRID 10 48. 230. 59- GRID 11 120. 50. 60- GRID 12 120. 90. 61- GRID 13 120. 150. 62- GRID 14 120. 195. 63- GRID 15 120. 230. 64- GRID 16 180. 0. 65- GRID 17 180. 50. 66- GRID 18 180. 100. 67- GRID 19 180. 120. 68- GRID 20 180. 150. 69- GRID 21 180. 190. 70- GRID 22 180. 205. 71- GRID 23 180. 230. 72- GRID 24 180. 280. 73- GRID 25 180. 120. -96. 74- GRID 26 180. 205. -96. 75- GRID 27 230. 50. 76- GRID 28 230. 230. 77- MAT1 1 3.+7 .3 0. 78- OMIT1 456 1 THRU 15 79- OMIT1 456 17 THRU 23 80- OMIT1 123456 3 6 8 10 13 17 19 +OMT1 81- +OMT1 20 22 23 82- PARAM ACC1 .4 83- PARAM ACC2 1. 84- PARAM ACC3 1. 85- PARAM ACCA 10.4 86- PARAM ACCB 480. 87- PARAM ACCC 20. 88- PARAM ACCD 0. 89- PARAM LMODES 30 90- PARAM VEL1 .4 91- PARAM VEL2 1. 92- PARAM VEL3 1. 93- PARAM VELA 20. 94- PARAM VELB 480. 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T03-13-1A HY-100 PLATFORM MODEL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- PARAM VELC 100. 96- PBAR 1 1 20. 332. 133. 3.8 +BAR1 97- +BAR1 4.8 5.0 4.8 -5.0 -4.8 -5. -4.8 5.0 98- PBAR 2 1 12.6 114. 51.2 1.4 +BAR2 99- +BAR2 3.6 4. 3.6 -4. -3.6 -4. -3.6 4. 100- PBAR 3 1 20. 332. 133. 3.8 +BAR3 101- +BAR3 4.8 5. 4.8 -5. -4.8 -5. -4.8 5. 102- PBAR 4 1 44. 861. 432. 30. +BAR4 103- +BAR4 5.5 6. 5.5 -6. -5.5 -6. -5.5 6. 104- PBAR 5 1 44. 861. 432. 30. +BAR5 105- +BAR5 5.5 6. 5.5 -6. -5.5 -6. -5.5 6. 106- SPC1 1 123 1 5 107- SPC1 1 123456 16 24 25 26 27 28 ENDDATA 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK REF NOOSCAR ----------------- 1 BEGIN DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1//$ 20 LABEL P1 $ 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T03-13-1A HY-100 PLATFORM MODEL COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR4,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 LABEL JMPKGG $ 32 COND ERROR1,NOMGG $ 33 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 34 PURGE MDICT,MELM/ALWAYS $ 35 COND LGPWG,GRDPNT $ 36 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 37 OFP OGPWG,,,,,//S,N,CARDNO $ 38 LABEL LGPWG $ 39 EQUIV KGGX,KGG/NOGENL $ 40 COND LBL11,NOGENL $ 41 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T03-13-1A HY-100 PLATFORM MODEL COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 LABEL LBL11 $ 43 GPSTGEN KGG,SIL/GPST $ 44 PARAM //*MPY*/NSKIP/0/0 $ 45 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 46 OFP OGPST,,,,,//S,N,CARDNO $ 47 COND ERROR3,NOL $ 48 PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ 49 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 50 COND LBL2,MPCF1 $ 51 MCE1 USET,RG/GM $ 52 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 53 LABEL LBL2 $ 54 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 55 COND LBL3,SINGLE $ 56 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 57 LABEL LBL3 $ 58 EQUIV KFF,KAA/OMIT $ 59 EQUIV MFF,MAA/OMIT $ 60 COND LBL5,OMIT $ 61 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 62 SMP2 USET,GO,MFF/MAA $ 63 LABEL LBL5 $ 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T03-13-1A HY-100 PLATFORM MODEL COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 64 COND LBL6,REACT $ 65 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 66 RBMG2 KLL/LLL $ 67 RBMG3 LLL,KLR,KRR/DM $ 68 RBMG4 DM,MLL,MLR,MRR/MR $ 69 LABEL LBL6 $ 70 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ 71 COND ERROR2,NOEED $ 72 PARAM //*MPY*/NEIGV/1/-1 $ 73 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ 73 DIAGONAL MI/MIS/*SQUARE*/-0.5 $ 73 SMPYAD MIS,MI,MIS,,,/MINEW/3 $ 74 OFP OEIGS,,,,,//S,N,CARDNO $ 75 COND FINIS,NEIGV $ 76 OFP LAMA,,,,,//S,N,CARDNO $ 77 SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ 78 COND NOMPCF,GRDEQ $ 79 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ 80 OFP OQM1,,,,,//S,N,CARDNO $ 81 LABEL NOMPCF $ 82 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ *REIG*////COMPS $ 87 OFP ONRGY1,,,,,//S,N,CARDNO $ 88 PURGE KDICT,KELM/ALWAYS $ 89 COND P2,JUMPPLOT $ 90 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 91 PRTMSG PLOTX2// $ 92 LABEL P2 $ 92 GENCOS BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/LUSET/S,N,NSCALE $ 92 DIAGONAL MI/MID/*SQUARE*/-1.0 $ 92 MPYAD MGG,PHIG,/MP/0 $ 92 MPYAD MP,DIRCOS,/PMD/1 $ 92 MPYAD MID,PMD,/PF/0 $ 92 DDAMAT PF,PMD/EFFW/C,Y,GG=386.4 $ 92 LAMX, ,LAMA/LAMB/-1 $ 92 GENPART PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $ 92 PARTN LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $ 92 PARAM //*GE*/TEST/C,Y,LMODES/NMODES $ 92 COND DDAM,TEST $ 92 PARTN PF,,RPPF/,PFR,,/1 $ 92 EQUIV PFR,PF $ 92 PARTN EFFW,,RPPF/,EFFWR,,/1 $ 92 EQUIV EFFWR,EFFW $ 92 PARTN MP,CPMP,/,,MPR,/1 $ 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T03-13-1A HY-100 PLATFORM MODEL COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 92 EQUIV MPR,MP $ 92 PARTN PHIG,CPMP,/,,PHIGR,/1 $ 92 EQUIV PHIGR,PHIG $ 92 LABEL DDAM $ 92 DESVEL EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/ C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/ C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $ 92 DDAMAT PF,MINAC/PVW/1.0 $ 92 DDAMAT PF,MINOW2/PVOW/1.0 $ 92 DDAMPG PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $ 92 DDAMPG MP,PVW/PG/NMODES/NDIR $ 92 CASEGEN CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $ 92 EQUIV CASEDD,CASECC $ 92 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,,/, OQG3,OUGV3,OES3,OEF3,,,/*STATICS*/S,N,NOSORT2=-1/-1 $ 92 SDR3 OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $ 92 NRLSUM OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT=123/ C,Y,SQRSS=0 $ 92 OFP NRLSTR,NRLFOR,,,,//S,N,CARDNO $ 92 COMBUGV UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $ 92 CASEGEN CASECC/CASEEE/1/NDIR/NMODES $ 92 SDR2 CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,,/, ,OUGV5,,,,,/*STATICS*/S,N,NOSORT2/-1 $ 92 OFP OUGV5,,,,,//S,N,CARDNO $ 93 JUMP FINIS $ 94 LABEL ERROR1 $ 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T03-13-1A HY-100 PLATFORM MODEL COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 95 PRTPARM //-1/*MODES* $ 96 LABEL ERROR2 $ 97 PRTPARM //-2/*MODES* $ 98 LABEL ERROR3 $ 99 PRTPARM //-3/*MODES* $ 100 LABEL ERROR4 $ 101 PRTPARM //-4/*MODES* $ 102 LABEL FINIS $ 103 PURGE DUMMY/ALWAYS $ 104 END $ 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL 0 *** USER POTENTIALLY FATAL MESSAGE 22, POSSIBLE ERROR IN DMAP INSTRUCTION OFP INSTRUCTION NO. 87 DATA BLOCK NAMED ONRGY1 APPEARS AS INPUT BEFORE BEING DEFINED 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING PARAMETER TYPE DMAP STATEMENT NUMBERS ALWAYS I 0005 0034 0088 0103 CARDNO I 0004 0037 0037* 0046 0046* 0074 0074* 0076 0076* 0080 0080* 0087 0087* 0092 0092* 0092 0092* COMPS I 0022 0022* 0023 0023 0082 GENEL I 0022 GRDEQ I 0078 0079 GRDPNT I 0035 0036 ISOP I 0006 0006* 0007 JUMPPLOT I 0010 0011 0012 0013 0013* 0017 0018 0018* 0089 0090 LUSEP I 0008 0008* 0090 LUSET I 0005 0005* 0008 0018 0022 0041 0045 0070 0092 LUSETD I 0070 MPCF1 I 0045 0045* 0048 0049 0049 0050 MPCF2 I 0045 0045* NDIR I 0092 0092* 0092 0092 0092 0092 0092 NEIGV I 0072 0073 0073* 0075 NMODES I 0092 0092* 0092 0092 0092* 0092 0092 0092 0092 0092 NOA I 0045 0045* NODLT I 0070 NOEED I 0070 0070* 0071 NOFRL I 0070 NOGENL I 0022 0022* 0039 0040 0041 NOGPDT I 0005 NOGRAV I 0021 NOKGGX I 0025 0027 0027* 0028 0029 NOL I 0045 0045* 0047 NOMGG I 0026 0027 0027* 0032 NONLFT I 0070 NOPSDL I 0070 NOSET I 0045 0045* 0048 NOSIMP I 0022 0022* 0024 0041 NOSORT2 I 0092 0092* 0092 0092* NOTFL I 0070 NOTRL I 0070 NOUE I 0070 NSCALE I 0092 0092* NSIL I 0013 0013* 0018 0090 NSKIP I 0044 0045 0045* OMIT I 0045 0045* 0048 0058 0059 0060 OPT I 0079 PFILE I 0016 0018 0018* 0090 0090* PLTFLG I 0015 0018 0018* 0090 REACT I 0045 0045* 0048 0064 REPEAT I 0045 0045* SINGLE I 0045 0045* 0048 0054 0054 0055 TEST I 0092 0092 * DENOTES APPEARANCE OF PARAMETER IN AUTOMATICALLY GENERATED SAVE INSTRUCTION 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING MODULE NAME DMAP STATEMENT NUMBERS ANISOP 0006 CASEGEN 0092 0092 COMBUGV 0092 COND 0012 0017 0024 0029 0032 0035 0040 0047 0050 0055 0060 0064 0071 0075 0078 0089 0092 DDAMAT 0092 0092 0092 DDAMPG 0092 0092 DESVEL 0092 DIAGONAL 0073 0092 DPD 0070 EMA 0030 0033 EMG 0027 EQMCK 0079 EXIT 0104 GENCOS 0092 GENPART 0092 GP1 0005 GP2 0009 GP3 0021 GP4 0045 GPSTGEN 0043 GPWG 0036 JUMP 0093 LAMX 0092 MCE1 0051 MCE2 0052 MPYAD 0092 0092 0092 NRLSUM 0092 OFP 0037 0046 0074 0076 0080 0087 0092 0092 PARAM 0004 0015 0016 0025 0026 0044 0072 0092 PARAML 0010 PARTN 0092 0092 0092 0092 0092 PLOT 0018 0090 PLTSET 0013 PLTTRAN 0008 PRTMSG 0014 0019 0091 PRTPARM 0095 0097 0099 0101 RBMG1 0065 RBMG2 0066 RBMG3 0067 RBMG4 0068 READ 0073 SCE1 0056 SDR1 0077 SDR2 0082 0092 0092 SDR3 0092 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING MODULE NAME DMAP STATEMENT NUMBERS SMA3 0041 SMP1 0061 SMP2 0062 SMPYAD 0073 TA1 0022 XEQUIV 0007 0023 0039 0049 0054 0058 0059 0092 0092 0092 0092 0092 XPURGE 0011 0028 0034 0048 0088 0103 XSAVE 0005* 0006* 0008* 0013* 0018* 0022* 0027* 0037* 0045* 0046* 0070* 0073* 0074* 0076* 0080* 0087* 0090* 0092* 0092* 0092* 0092* 0092* 0092* 0092* * DENOTES AUTOMATICALLY GENERATED INSTRUCTIONS STATEMENT NUMBER REFERS TO DMAP SEQUENCE NUMBER OF PREVIOUS INSTRUCTION 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING DATA BLOCK DMAP STATEMENT NUMBERS ACC 0092* ASET 0045* BGPDP 0008* 0036 0082 BGPDT 0005* 0006 0008 0018 0022 0045 0079 0090 0092 0092 0092 CASECC 0018 0045 0073 0079 0082 0090 0092 0092 0092 0092 CASEDD 0092* 0092 CASEEE 0092* 0092 CPLAMB 0092* 0092 CPMP 0092* 0092 0092 CSTM 0005* 0022 0027 0036 0045 0079 0082 0092 0092 0092 DIRCOS 0092* 0092 DIT 0027 0082 0092 0092 DM 0048 0067* 0068 0073 DUMMY 0103 DYNAMICS 0070 ECT 0009* 0013 0018 0022 EED 0070* 0073 EFFW 0092* 0092 0092 0092 EFFWR 0092* 0092 ELSETS 0011 0013* 0018 0090 EPT 0006 0013 0022 0023 EPTX 0022* 0023 EQDYN 0070* EQEXIN 0005* 0006 0009 0013 0018 0021 0022 0036 0045 0079 0082 0090 0092 0092 EST 0022* 0027 0082 0092 0092 GEI 0022* 0041 GEOM1 0005 0006 GEOM2 0005 0009 0021 0027 GEOM3 0021 GEOM4 0045 GM 0048 0051* 0052 0077 0079 GO 0048 0061* 0062 0077 GPDT 0005* 0045 GPECT 0022* 0030 0033 0090 GPL 0005* 0070 0079 GPLD 0070* GPSETS 0011 0013* 0018 0090 GPST 0043* 0045 GPTT 0021* 0022 KAA 0058 0061* 0065 0073 KDICT 0027* 0030 0088 KELM 0027* 0030 0088 KFF 0054 0056* 0058 0061 KFS 0048 0056* 0077 KGG 0039 0041* 0043 0049 0052 0079 KGGX 0028 0030* 0039 0041 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING DATA BLOCK DMAP STATEMENT NUMBERS KLL 0065* 0066 KLR 0048 0065* 0067 KNN 0049 0052* 0054 0056 KOO 0061* KRR 0048 0065* 0067 LAMA 0073* 0076 0079 0082 0092 LAMB 0092* 0092 LLL 0066* 0067 LOO 0061* MAA 0059 0062* 0065 0073 MDICT 0027* 0033 0034 MELM 0027* 0033 0034 MFF 0054 0056* 0059 0062 MGG 0033* 0036 0049 0052 0092 MI 0073* 0073 0073 0092 MID 0092* 0092 MINAC 0092* 0092 MINEW 0073* MINOW2 0092* 0092 MIS 0073* 0073 0073 MLL 0065* 0068 MLR 0048 0065* 0068 MNN 0049 0052* 0054 0056 MP 0092* 0092 0092 0092 0092 MPR 0092* 0092 MPT 0006 0007 0022 0023 0027 0082 0092 0092 MPTA 0006* 0007 MPTX 0022* 0023 MR 0048 0068* 0073 MRR 0065* 0068 NRLFOR 0092* 0092 NRLSTR 0092* 0092 OEF1 0082* OEF1L 0082* OEF3 0092* 0092 OEF4 0092* 0092 OEIGS 0073* 0074 OES1 0082* 0090 OES1L 0082* 0090 OES3 0092* 0092 OES4 0092* 0092 OGPST 0045* 0046 OGPWG 0036* 0037 OMEGA 0092* 0092 ONRGY1 0087 OPHIG 0082* 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING DATA BLOCK DMAP STATEMENT NUMBERS OQG1 0082* OQG3 0092* 0092 OQG4 0092* OQM1 0079* 0080 OUGV3 0092* 0092 OUGV4 0092* OUGV5 0092* 0092 PCDB 0010 0013 PCOMPS 0022* 0082 PF 0092* 0092 0092 0092 0092 0092 0092 PFR 0092* 0092 PG 0092* PHIA 0073* 0077 PHIG 0077* 0079 0082 0092 0092 0092 0092 PHIGR 0092* 0092 PLOTX1 0018* 0019 PLOTX2 0090* 0091 PLTPAR 0011 0013* 0018 0090 PLTSETX 0011 0013* 0014 PMD 0092* 0092 0092 PPHIG 0082* 0090 PVOW 0092* 0092 PVW 0092* 0092 QG 0048 0077* 0079 0082 0092 0092 RG 0045* 0051 RPLAMB 0092* 0092 RPPF 0092* 0092 0092 SIL 0005* 0008 0018 0022 0043 0070 0079 0082 0092 0092 SILD 0070* SIP 0008* 0090 SSDV 0092* UGV 0092* 0092 0092 UGVADC 0092* UGVADD 0092* UGVNRL 0092* 0092 UGVSQC 0092* UGVSQR 0092* USET 0045* 0051 0052 0056 0061 0062 0065 0070 0073 0077 0079 USETD 0070* VWG 0092* YS 0045* * DENOTES STATEMENTS IN WHICH THE DATA BLOCK APPEARSRS AS OUTPUT. 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 11 PROFILE 117 MAX WAVEFRONT 6 AVG WAVEFRONT 4.179 RMS WAVEFRONT 4.322 RMS BANDWIDTH 4.989 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 7 PROFILE 116 MAX WAVEFRONT 6 AVG WAVEFRONT 4.143 RMS WAVEFRONT 4.334 RMS BANDWIDTH 4.606 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 11 11 PROFILE (P) 117 117 MAXIMUM WAVEFRONT (C-MAX) 6 6 AVERAGE WAVEFRONT (C-AVG) 4.179 4.179 RMS WAVEFRONT (C-RMS) 4.322 4.322 RMS BANDWITCH (B-RMS) 4.989 4.989 NUMBER OF GRID POINTS (N) 28 NUMBER OF ELEMENTS (NON-RIGID) 43 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 4 MINIMUM NODAL DEGREE 1 NUMBER OF UNIQUE EDGES 33 MATRIX DENSITY, PERCENT 11.990 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONM2 ELEMENTS (ELEMENT TYPE 30) STARTING WITH ID 32 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 30, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK ONRGY1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 30 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 30 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 7.73E-08 . . . 29 MODE PAIR. . . . . . . . . . . . . . 22 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 29 2.104054E+03 4.586997E+01 7.300432E+00 2.928309E+01 6.161320E+04 2 30 1.016344E+04 1.008139E+02 1.604503E+01 4.533900E+01 4.608002E+05 3 28 1.570341E+04 1.253132E+02 1.994422E+01 4.568816E+01 7.174599E+05 4 27 1.618645E+04 1.272260E+02 2.024864E+01 7.802695E+01 1.262979E+06 5 26 1.860862E+04 1.364134E+02 2.171087E+01 2.196914E+01 4.088153E+05 6 25 2.977019E+04 1.725404E+02 2.746066E+01 1.283353E+01 3.820565E+05 7 24 3.638766E+04 1.907555E+02 3.035968E+01 2.039653E+01 7.421821E+05 8 23 4.641253E+04 2.154357E+02 3.428765E+01 1.889594E+01 8.770084E+05 9 22 6.204409E+04 2.490865E+02 3.964335E+01 5.546363E+00 3.441190E+05 10 21 7.171398E+04 2.677946E+02 4.262084E+01 1.515314E+01 1.086692E+06 11 20 7.733423E+04 2.780903E+02 4.425945E+01 4.523479E+00 3.498198E+05 12 19 1.061967E+05 3.258784E+02 5.186515E+01 5.172708E+00 5.493246E+05 13 18 1.231884E+05 3.509821E+02 5.586053E+01 6.889587E+00 8.487172E+05 14 17 1.328689E+05 3.645119E+02 5.801387E+01 2.185959E+01 2.904460E+06 15 16 1.365066E+05 3.694680E+02 5.880267E+01 6.424380E+00 8.769705E+05 16 15 1.573173E+05 3.966325E+02 6.312602E+01 6.076375E+01 9.559190E+06 17 14 2.138760E+05 4.624673E+02 7.360395E+01 5.585177E+00 1.194535E+06 18 13 3.149601E+05 5.612131E+02 8.931983E+01 2.696226E+01 8.492035E+06 19 12 3.255453E+05 5.705658E+02 9.080836E+01 2.774672E+01 9.032815E+06 20 11 5.696371E+05 7.547430E+02 1.201211E+02 5.660728E+00 3.224560E+06 21 10 7.194813E+05 8.482225E+02 1.349988E+02 5.653261E+00 4.067416E+06 22 9 1.393963E+06 1.180662E+03 1.879082E+02 9.469474E+00 1.320009E+07 23 8 1.621511E+06 1.273386E+03 2.026656E+02 1.533959E+01 2.487332E+07 24 7 1.666036E+06 1.290750E+03 2.054293E+02 1.895076E+01 3.157265E+07 25 6 1.898812E+06 1.377974E+03 2.193113E+02 1.103129E+01 2.094635E+07 26 5 1.905306E+06 1.380328E+03 2.196860E+02 1.101142E+01 2.098012E+07 27 4 2.450430E+06 1.565385E+03 2.491388E+02 1.538831E+01 3.770798E+07 28 3 2.921342E+06 1.709193E+03 2.720266E+02 7.173540E+00 2.095636E+07 29 2 4.031186E+06 2.007781E+03 3.195483E+02 9.426815E+00 3.800125E+07 30 1 4.562698E+06 2.136047E+03 3.399625E+02 6.798706E+00 3.102044E+07 0*** SYSTEM WARNING MESSAGE 2184, STRESS OR FORCE REQUEST FOR ELEMENT CONM2 (NASTRAN ELEM. TYPE = 30) WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT. 0*** SYSTEM WARNING MESSAGE 2184, STRESS OR FORCE REQUEST FOR ELEMENT CONM2 (NASTRAN ELEM. TYPE = 30) WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT. 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T03-13-1A HY-100 PLATFORM MODEL 0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL DIRECTION 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 1 1.178790E+03 1.178791E+03 1.178791E+03 1.178790E+03 0.0 0.0 0.0 1.908183E+04 1.843211E+04 1.842893E+04 1.909144E+04 0.0 0.0 0 2 3.246815E+04 3.148989E+04 3.152558E+04 3.243316E+04 0.0 0.0 0.0 3.343917E+04 3.437664E+04 3.437654E+04 3.343966E+04 0.0 0.0 0 3 4.821773E+04 4.804644E+04 4.807116E+04 4.819211E+04 0.0 0.0 0.0 4.687209E+04 4.691547E+04 4.700289E+04 4.678652E+04 0.0 0.0 0 4 1.540778E+04 1.627876E+04 1.630153E+04 1.542827E+04 0.0 0.0 0.0 2.176439E+03 2.176437E+03 2.176437E+03 2.176439E+03 0.0 0.0 0 5 9.993179E+03 1.331252E+04 1.331255E+04 9.993160E+03 0.0 0.0 0.0 1.063326E+04 9.773314E+03 9.767684E+03 1.063971E+04 0.0 0.0 0 6 8.129687E+03 9.937537E+03 9.937777E+03 8.129443E+03 0.0 0.0 0.0 8.713049E+03 7.728199E+03 7.748788E+03 8.675994E+03 0.0 0.0 0 7 1.742439E+04 1.573233E+04 1.573219E+04 1.742453E+04 0.0 0.0 0.0 1.147027E+04 1.196116E+04 1.193640E+04 1.149368E+04 0.0 0.0 0 8 4.340386E+04 4.570248E+04 4.570418E+04 4.340203E+04 0.0 0.0 0.0 5.138514E+04 4.890187E+04 4.893790E+04 5.135182E+04 0.0 0.0 0 9 5.158394E+04 4.864233E+04 4.867581E+04 5.154818E+04 0.0 0.0 0.0 7.008777E+04 7.337635E+04 7.334931E+04 7.011454E+04 0.0 0.0 0 10 2.404755E+04 2.632583E+04 2.630614E+04 2.406790E+04 0.0 0.0 0.0 5.605316E+04 5.440032E+04 5.439816E+04 5.605539E+04 0.0 0.0 0 11 5.633305E+04 5.422484E+04 5.422278E+04 5.633540E+04 0.0 0.0 0.0 7.504202E+04 7.718702E+04 7.719223E+04 7.503688E+04 0.0 0.0 0 12 9.235566E+03 7.373854E+03 7.371533E+03 9.239488E+03 0.0 0.0 0.0 7.740750E+03 1.121086E+04 1.116488E+04 7.813707E+03 0.0 0.0 0 13 7.996412E+03 6.336864E+03 6.329872E+03 8.009531E+03 0.0 0.0 0.0 7.514286E+03 9.272699E+03 9.329328E+03 7.458526E+03 0.0 0.0 0 14 1.077471E+04 1.004266E+04 1.004687E+04 1.076662E+04 0.0 0.0 0.0 1.328446E+04 1.402298E+04 1.388890E+04 1.339253E+04 0.0 0.0 0 15 6.905577E+04 6.784570E+04 6.785236E+04 6.904927E+04 0.0 0.0 0.0 3.657754E+04 3.751709E+04 3.753154E+04 3.656389E+04 0.0 0.0 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL DIRECTION 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 16 3.664695E+04 3.749719E+04 3.751059E+04 3.663227E+04 0.0 0.0 0.0 3.544575E+04 3.501445E+04 3.505797E+04 3.539959E+04 0.0 0.0 0 17 4.575274E+04 4.625714E+04 4.627828E+04 4.573425E+04 0.0 0.0 0.0 4.056975E+04 4.199944E+04 4.198895E+04 4.058120E+04 0.0 0.0 0 18 4.065945E+04 4.188680E+04 4.187612E+04 4.067071E+04 0.0 0.0 0.0 7.811836E+04 7.638349E+04 7.638800E+04 7.811380E+04 0.0 0.0 0 19 2.675063E+04 2.467412E+04 2.464298E+04 2.679033E+04 0.0 0.0 0.0 2.742687E+04 2.702892E+04 2.700342E+04 2.744233E+04 0.0 0.0 0 20 7.971871E+03 8.354741E+03 8.379634E+03 7.959457E+03 0.0 0.0 0.0 1.137305E+04 1.192163E+04 1.195130E+04 1.135078E+04 0.0 0.0 0 21 1.601169E+04 2.122718E+04 2.109472E+04 1.611546E+04 0.0 0.0 0.0 2.084099E+04 1.855239E+04 1.849146E+04 2.096137E+04 0.0 0.0 0 22 1.264243E+04 1.116928E+04 1.115781E+04 1.269140E+04 0.0 0.0 0.0 1.337803E+04 1.470571E+04 1.470832E+04 1.337452E+04 0.0 0.0 0 23 5.712354E+04 5.733761E+04 5.735087E+04 5.711045E+04 0.0 0.0 0.0 3.233896E+04 3.188714E+04 3.192883E+04 3.229175E+04 0.0 0.0 0 24 3.229660E+04 3.192694E+04 3.196904E+04 3.224980E+04 0.0 0.0 0.0 2.013063E+04 1.995136E+04 1.992630E+04 2.014910E+04 0.0 0.0 0 25 2.013178E+04 1.988383E+04 1.994375E+04 2.008669E+04 0.0 0.0 0.0 4.165341E+04 4.200947E+04 4.208063E+04 4.158416E+04 0.0 0.0 0 26 4.583040E+04 4.632112E+04 4.630554E+04 4.584333E+04 0.0 0.0 0.0 3.510403E+04 3.453568E+04 3.445950E+04 3.518263E+04 0.0 0.0 0 27 3.517695E+04 3.446425E+04 3.438822E+04 3.525569E+04 0.0 0.0 0.0 1.779906E+04 1.715081E+04 1.716300E+04 1.779837E+04 0.0 0.0 0 28 1.773523E+04 1.711583E+04 1.708370E+04 1.775291E+04 0.0 0.0 0.0 6.622332E+04 6.668190E+04 6.667159E+04 6.623608E+04 0.0 0.0 0 29 1.530243E+04 1.764250E+04 1.771379E+04 1.525162E+04 0.0 0.0 0.0 1.262470E+04 1.023964E+04 1.026601E+04 1.255865E+04 0.0 0.0 0 30 4.216344E+02 5.636169E+02 4.161478E+02 5.419356E+02 0.0 0.0 0.0 1.546431E+04 1.550369E+04 1.546231E+04 1.550769E+04 0.0 0.0 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL DIRECTION 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 31 2.571862E+02 4.645767E+02 2.093839E+02 4.130486E+02 0.0 0.0 0.0 5.750908E+03 6.102871E+03 5.739330E+03 6.122879E+03 0.0 0.0 0 32 2.057437E+04 2.370996E+04 2.369729E+04 2.057491E+04 0.0 0.0 0.0 2.070261E+04 1.799298E+04 1.803163E+04 2.070591E+04 0.0 0.0 0 33 2.509552E+04 2.178979E+04 2.170314E+04 2.516778E+04 0.0 0.0 0.0 1.587497E+04 1.993111E+04 1.991058E+04 1.589727E+04 0.0 0.0 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL DIRECTION 2 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 1 3.447676E+04 3.447677E+04 3.447677E+04 3.447676E+04 0.0 0.0 0.0 8.194910E+04 7.757912E+04 7.653505E+04 8.299366E+04 0.0 0.0 0 2 8.236158E+04 8.653947E+04 8.763060E+04 8.127011E+04 0.0 0.0 0.0 8.965769E+04 8.529383E+04 8.444664E+04 9.050498E+04 0.0 0.0 0 3 7.829619E+04 7.062399E+04 7.146624E+04 7.745463E+04 0.0 0.0 0.0 7.079675E+04 7.586494E+04 7.763704E+04 6.902289E+04 0.0 0.0 0 4 8.389366E+04 8.208953E+04 8.028597E+04 8.569606E+04 0.0 0.0 0.0 3.390645E+04 3.390645E+04 3.390645E+04 3.390645E+04 0.0 0.0 0 5 5.197108E+04 5.266442E+04 5.266301E+04 5.197250E+04 0.0 0.0 0.0 3.598179E+04 3.582001E+04 3.543059E+04 3.637118E+04 0.0 0.0 0 6 5.166925E+04 5.193077E+04 5.193484E+04 5.166520E+04 0.0 0.0 0.0 4.761126E+04 4.694499E+04 4.757216E+04 4.698284E+04 0.0 0.0 0 7 5.001864E+04 4.903168E+04 4.902903E+04 5.002129E+04 0.0 0.0 0.0 3.354098E+04 3.546412E+04 3.424027E+04 3.476462E+04 0.0 0.0 0 8 9.997838E+04 1.074701E+05 1.073822E+05 1.000660E+05 0.0 0.0 0.0 8.381434E+04 7.967091E+04 7.696496E+04 8.652145E+04 0.0 0.0 0 9 7.909072E+04 8.506534E+04 8.235847E+04 8.179796E+04 0.0 0.0 0.0 6.142889E+04 6.725825E+04 6.683133E+04 6.185413E+04 0.0 0.0 0 10 8.906960E+04 9.835371E+04 9.885457E+04 8.856670E+04 0.0 0.0 0.0 4.932727E+04 4.749062E+04 4.758314E+04 4.937424E+04 0.0 0.0 0 11 4.821773E+04 4.683400E+04 4.680118E+04 4.813779E+04 0.0 0.0 0.0 8.706620E+04 9.360716E+04 9.376653E+04 8.690691E+04 0.0 0.0 0 12 2.265885E+04 2.198111E+04 2.171516E+04 2.295492E+04 0.0 0.0 0.0 8.046199E+04 8.057027E+04 7.916444E+04 8.186655E+04 0.0 0.0 0 13 2.924243E+04 2.677377E+04 2.730520E+04 2.869077E+04 0.0 0.0 0.0 6.275838E+04 6.138748E+04 6.137629E+04 6.276807E+04 0.0 0.0 0 14 2.533952E+04 2.682032E+04 2.587445E+04 2.624951E+04 0.0 0.0 0.0 7.365803E+04 7.787660E+04 7.472247E+04 7.680597E+04 0.0 0.0 0 15 4.404829E+04 5.090567E+04 5.104563E+04 4.392732E+04 0.0 0.0 0.0 1.837606E+04 2.826864E+04 2.719280E+04 1.939652E+04 0.0 0.0 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL DIRECTION 2 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 16 1.537083E+04 3.157888E+04 3.051264E+04 1.640142E+04 0.0 0.0 0.0 5.473587E+04 3.923241E+04 4.106689E+04 5.295678E+04 0.0 0.0 0 17 1.165762E+05 1.044341E+05 1.025281E+05 1.184649E+05 0.0 0.0 0.0 6.568218E+04 7.042453E+04 7.049480E+04 6.567344E+04 0.0 0.0 0 18 6.585580E+04 6.933300E+04 6.939731E+04 6.583797E+04 0.0 0.0 0.0 1.254432E+05 1.316655E+05 1.315351E+05 1.255725E+05 0.0 0.0 0 19 8.465370E+04 8.525977E+04 8.385545E+04 8.605398E+04 0.0 0.0 0.0 9.715253E+04 9.774745E+04 9.777699E+04 9.714180E+04 0.0 0.0 0 20 7.787187E+04 7.655583E+04 7.659362E+04 7.783397E+04 0.0 0.0 0.0 5.804530E+04 5.912761E+04 5.916411E+04 5.801396E+04 0.0 0.0 0 21 8.993607E+04 9.070291E+04 8.757109E+04 9.307714E+04 0.0 0.0 0.0 1.004165E+05 1.050680E+05 1.022855E+05 1.031369E+05 0.0 0.0 0 22 6.201543E+04 2.545752E+04 2.408154E+04 6.350678E+04 0.0 0.0 0.0 5.136238E+04 9.202466E+04 9.079803E+04 5.138222E+04 0.0 0.0 0 23 7.523718E+04 6.471878E+04 6.496494E+04 7.430566E+04 0.0 0.0 0.0 3.443609E+04 4.180477E+04 4.318474E+04 3.624063E+04 0.0 0.0 0 24 2.830674E+04 2.858191E+04 2.818061E+04 2.778227E+04 0.0 0.0 0.0 2.766715E+04 3.504334E+04 3.531820E+04 2.967608E+04 0.0 0.0 0 25 2.947936E+04 3.339885E+04 3.607935E+04 2.624575E+04 0.0 0.0 0.0 6.667752E+04 7.327205E+04 7.425331E+04 6.559393E+04 0.0 0.0 0 26 1.077357E+05 1.158359E+05 1.148908E+05 1.086229E+05 0.0 0.0 0.0 1.435252E+04 2.141943E+04 2.251148E+04 1.329944E+04 0.0 0.0 0 27 2.660444E+04 3.891982E+04 4.006109E+04 2.622177E+04 0.0 0.0 0.0 4.724058E+04 4.200287E+04 4.527849E+04 5.371407E+04 0.0 0.0 0 28 5.325762E+04 4.260601E+04 4.434114E+04 4.647391E+04 0.0 0.0 0.0 1.224665E+05 1.134378E+05 1.103830E+05 1.255571E+05 0.0 0.0 0 29 4.777548E+04 8.533083E+04 8.847348E+04 4.465138E+04 0.0 0.0 0.0 6.264133E+04 2.178776E+04 2.462382E+04 6.041015E+04 0.0 0.0 0 30 6.478356E+03 6.375633E+03 7.934208E+03 7.839694E+03 0.0 0.0 0.0 1.664618E+04 1.468998E+04 1.574158E+04 1.337092E+04 0.0 0.0 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL DIRECTION 2 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 31 7.229926E+03 7.158932E+03 7.233649E+03 7.162764E+03 0.0 0.0 0.0 9.891587E+03 7.577913E+03 1.010411E+04 7.145479E+03 0.0 0.0 0 32 6.209275E+04 6.511343E+04 6.521561E+04 6.196466E+04 0.0 0.0 0.0 3.345692E+04 2.897329E+04 3.064000E+04 3.180851E+04 0.0 0.0 0 33 5.503746E+04 5.793506E+04 5.518345E+04 5.785186E+04 0.0 0.0 0.0 2.809474E+04 2.696173E+04 2.726813E+04 2.774217E+04 0.0 0.0 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL DIRECTION 3 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 1 2.567285E+02 2.567288E+02 2.567287E+02 2.567283E+02 0.0 0.0 0.0 5.549499E+04 5.471775E+04 5.535395E+04 5.463441E+04 0.0 0.0 0 2 5.332703E+04 5.462971E+04 5.330300E+04 5.458227E+04 0.0 0.0 0.0 8.017577E+04 7.793514E+04 8.009752E+04 7.787291E+04 0.0 0.0 0 3 7.807268E+04 7.928255E+04 7.815756E+04 7.938162E+04 0.0 0.0 0.0 6.122169E+04 6.304927E+04 6.114656E+04 6.296275E+04 0.0 0.0 0 4 6.473193E+04 6.321254E+04 6.449573E+04 6.300733E+04 0.0 0.0 0.0 2.608415E+02 2.608419E+02 2.608346E+02 2.608342E+02 0.0 0.0 0 5 1.478923E+03 1.452996E+03 1.490965E+03 1.440763E+03 0.0 0.0 0.0 1.357793E+04 1.294812E+04 1.357461E+04 1.294576E+04 0.0 0.0 0 6 1.387180E+03 1.494680E+03 1.383783E+03 1.497184E+03 0.0 0.0 0.0 2.034799E+04 2.123089E+04 2.034015E+04 2.122262E+04 0.0 0.0 0 7 1.347791E+03 1.270137E+03 1.341595E+03 1.275993E+03 0.0 0.0 0.0 1.953533E+04 1.882884E+04 1.954425E+04 1.883760E+04 0.0 0.0 0 8 4.598664E+03 2.845709E+03 4.738092E+03 2.761879E+03 0.0 0.0 0.0 8.544122E+04 8.359920E+04 8.534745E+04 8.351069E+04 0.0 0.0 0 9 8.535356E+04 8.351663E+04 8.543491E+04 8.359306E+04 0.0 0.0 0.0 3.761988E+04 3.669824E+04 3.766497E+04 3.672368E+04 0.0 0.0 0 10 3.755671E+04 3.876746E+04 3.750352E+04 3.868031E+04 0.0 0.0 0.0 6.237957E+04 6.244950E+04 6.230128E+04 6.237043E+04 0.0 0.0 0 11 6.231410E+04 6.238287E+04 6.236627E+04 6.243658E+04 0.0 0.0 0.0 2.308956E+03 4.353183E+03 2.267583E+03 4.204636E+03 0.0 0.0 0 12 1.336039E+04 1.313825E+04 1.334310E+04 1.312194E+04 0.0 0.0 0.0 3.929434E+04 3.709136E+04 3.927221E+04 3.707370E+04 0.0 0.0 0 13 2.059188E+04 2.094562E+04 2.060620E+04 2.096141E+04 0.0 0.0 0.0 9.911844E+03 9.661546E+03 9.887971E+03 9.660266E+03 0.0 0.0 0 14 1.930336E+04 1.899980E+04 1.932783E+04 1.902361E+04 0.0 0.0 0.0 5.021713E+04 4.803618E+04 5.022994E+04 4.804588E+04 0.0 0.0 0 15 2.334757E+03 3.360701E+03 2.265307E+03 3.176755E+03 0.0 0.0 0.0 3.335259E+04 3.305411E+04 3.346638E+04 3.316077E+04 0.0 0.0 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL DIRECTION 3 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 16 3.331689E+04 3.302120E+04 3.350292E+04 3.319456E+04 0.0 0.0 0.0 5.294143E+04 5.387535E+04 5.317137E+04 5.411884E+04 0.0 0.0 0 17 5.553528E+04 5.332731E+04 5.530473E+04 5.311932E+04 0.0 0.0 0.0 3.990913E+04 3.995993E+04 3.984815E+04 3.989132E+04 0.0 0.0 0 18 3.989628E+04 3.994533E+04 3.985966E+04 3.990458E+04 0.0 0.0 0.0 4.918496E+03 3.049909E+03 5.183028E+03 3.004320E+03 0.0 0.0 0 19 3.938346E+04 3.703080E+04 3.936271E+04 3.701455E+04 0.0 0.0 0.0 4.347070E+04 4.142732E+04 4.348017E+04 4.143069E+04 0.0 0.0 0 20 1.008716E+04 9.771994E+03 1.006364E+04 9.771166E+03 0.0 0.0 0.0 1.817041E+03 1.961888E+03 1.867628E+03 1.921314E+03 0.0 0.0 0 21 5.049938E+04 4.788511E+04 5.049127E+04 4.788058E+04 0.0 0.0 0.0 7.048341E+04 6.791011E+04 7.047043E+04 6.789600E+04 0.0 0.0 0 22 6.354850E+04 6.285844E+04 6.335964E+04 6.270468E+04 0.0 0.0 0.0 5.026121E+04 4.900245E+04 5.086683E+04 4.954296E+04 0.0 0.0 0 23 4.893522E+04 5.056873E+04 4.917171E+04 5.082982E+04 0.0 0.0 0.0 3.775177E+04 3.828587E+04 3.572420E+04 3.623934E+04 0.0 0.0 0 24 3.719620E+04 3.771940E+04 3.624064E+04 3.676849E+04 0.0 0.0 0.0 4.998793E+04 5.071449E+04 5.103996E+04 5.175341E+04 0.0 0.0 0 25 3.741152E+04 3.812913E+04 3.713881E+04 3.781273E+04 0.0 0.0 0.0 1.222368E+04 1.369724E+04 1.039807E+04 1.182967E+04 0.0 0.0 0 26 1.404378E+04 1.176311E+04 1.252101E+04 1.010124E+04 0.0 0.0 0.0 5.783022E+04 5.735512E+04 5.598300E+04 5.549712E+04 0.0 0.0 0 27 5.732443E+04 5.686525E+04 5.653948E+04 5.603621E+04 0.0 0.0 0.0 5.296335E+04 5.373770E+04 5.246637E+04 5.320927E+04 0.0 0.0 0 28 4.838305E+04 4.940952E+04 4.782038E+04 4.885243E+04 0.0 0.0 0.0 7.736326E+04 7.502205E+04 7.484079E+04 7.258430E+04 0.0 0.0 0 29 7.486270E+04 7.699262E+04 7.213762E+04 7.421414E+04 0.0 0.0 0.0 6.279137E+04 6.380214E+04 6.511079E+04 6.615710E+04 0.0 0.0 0 30 2.220984E+04 2.061368E+04 3.460043E+04 3.310282E+04 0.0 0.0 0.0 2.476767E+04 2.428523E+04 1.477357E+04 1.418612E+04 0.0 0.0 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL DIRECTION 3 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 31 3.960641E+04 4.199519E+04 5.085416E+04 5.190227E+04 0.0 0.0 0.0 3.698705E+04 3.670217E+04 3.116929E+04 3.210269E+04 0.0 0.0 0 32 4.280929E+04 4.178159E+04 4.281652E+04 4.178114E+04 0.0 0.0 0.0 2.629764E+04 2.752842E+04 2.631731E+04 2.755080E+04 0.0 0.0 0 33 6.954383E+04 6.847337E+04 6.951866E+04 6.844734E+04 0.0 0.0 0.0 6.104688E+03 7.207377E+03 6.136997E+03 7.240359E+03 0.0 0.0 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL DIRECTION 1 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 1 1.577707E-03 1.352047E-01 3.270172E+03 4.977163E+05 6.540343E+01 9.954328E+03 2.357580E+04 0.0 2 3.289613E+03 8.505484E+05 3.175347E+03 9.018502E+05 3.049833E+01 1.751315E+04 1.927827E+04 1.209279E+01 3 3.093245E+03 1.280200E+06 6.187243E+03 1.247282E+06 1.110266E+02 3.158450E+04 9.527955E+03 2.011086E+01 4 6.424610E+03 4.161514E+05 1.082446E-03 7.408679E-02 1.284922E+02 8.323029E+03 4.352876E+04 0.0 5 1.209543E+01 7.080988E+05 3.156207E+03 6.100238E+05 6.594255E+01 2.660989E+04 2.289866E+05 1.790097E+02 6 3.210060E+01 6.501046E+05 5.973831E+03 5.851206E+05 1.250930E+02 2.375589E+04 4.646909E+04 9.077562E+01 7 2.011739E+01 1.078698E+06 8.065806E+03 7.560911E+05 1.684345E+02 3.778070E+04 2.059927E+05 2.477356E+02 8 1.733586E+02 5.692608E+05 4.089431E+03 6.410953E+05 5.323902E+01 1.506047E+04 3.271747E+04 3.254481E+00 9 4.089425E+03 6.410955E+05 8.710187E+02 9.180226E+05 1.748528E+02 7.726994E+04 2.965304E+04 3.254481E+00 10 9.663951E+02 3.220599E+05 1.124084E+03 7.065324E+05 3.187954E+01 3.332355E+04 2.378642E+04 4.935758E+00 11 1.124085E+03 7.065326E+05 2.314692E+02 9.733732E+05 2.586712E+01 3.344812E+04 3.233013E+04 4.935757E+00 12 3.153895E+03 4.389111E+05 1.116808E+04 5.499898E+05 1.126159E+02 1.162145E+04 2.313406E+05 3.735302E+01 13 5.966154E+03 5.101877E+05 6.326993E+03 5.987676E+05 8.532127E+01 1.399723E+04 7.077902E+04 5.293118E+01 14 8.061212E+03 6.612524E+05 2.172875E+04 9.196241E+05 1.900877E+02 2.104625E+04 2.166088E+05 4.349700E+01 15 2.316997E+02 8.754789E+05 1.910264E+03 4.725884E+05 5.338811E+01 3.240551E+04 3.487044E+04 1.680946E+00 16 1.910265E+03 4.725884E+05 2.882042E+03 4.492604E+05 2.909996E+01 1.372919E+04 3.789169E+04 1.680946E+00 17 2.916958E+03 5.884590E+05 9.086458E+02 5.279267E+05 6.112329E+01 2.152794E+04 2.625937E+04 5.493711E+00 18 9.086439E+02 5.279268E+05 2.260497E+02 9.886046E+05 3.090876E+01 4.048998E+04 2.245689E+04 5.493711E+00 19 1.116958E+04 9.361156E+05 5.034120E+03 1.036670E+06 2.556953E+02 3.217403E+04 7.988296E+05 2.276437E+02 20 6.327911E+03 5.814652E+05 8.123043E+03 8.285628E+05 6.931773E+01 1.991626E+04 5.905367E+04 8.037808E+01 21 2.173407E+04 5.632021E+05 2.259577E+04 6.523734E+05 7.336162E+02 1.916847E+04 6.891247E+05 2.055705E+02 22 5.027255E+03 3.107104E+05 3.536918E+03 3.700335E+05 1.649266E+02 1.358582E+04 3.759481E+04 9.266260E+00 23 3.406266E+03 1.522267E+06 5.998547E+03 8.540409E+05 1.451974E+02 4.643278E+04 1.056650E+04 3.026649E+03 24 5.998545E+03 8.540420E+05 6.372955E+03 5.328766E+05 1.182433E+02 2.933564E+04 9.038326E+03 3.026650E+03 25 1.163175E+04 5.321114E+05 4.338580E+03 1.112656E+06 2.530770E+02 3.111938E+04 9.347482E+03 7.038633E+03 26 4.290284E+03 1.225492E+06 5.001845E+03 9.260975E+05 2.219855E+02 4.407102E+04 1.176091E+04 1.453727E+03 27 5.001842E+03 9.260976E+05 7.708822E+03 4.645801E+05 2.096854E+02 6.510289E+04 1.319764E+04 1.453727E+03 28 1.364685E+04 4.630861E+05 9.530029E+03 1.767573E+06 8.696507E+02 6.347714E+04 1.293240E+04 3.225305E+03 29 9.690189E+03 4.374357E+05 8.321604E+03 3.015054E+05 3.601331E+02 1.475510E+04 3.933751E+04 1.652723E+01 30 1.780594E+04 1.006518E+04 2.190765E+04 4.117184E+05 4.136135E+02 4.393579E+03 2.573119E+02 2.184272E+03 31 2.073742E+04 4.678845E+03 2.200368E+04 1.574569E+05 4.450482E+02 1.688913E+03 7.408736E+02 3.226121E+03 32 4.955051E+03 5.909315E+05 8.441701E+03 2.855405E+05 1.687609E+02 1.744451E+04 7.982771E+05 4.777837E+01 33 2.134689E+04 1.022363E+06 3.707354E+03 4.688672E+05 4.737332E+02 2.980689E+04 6.948428E+05 2.510667E+01 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL DIRECTION 2 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 1 2.513616E-03 2.103029E-01 6.445730E+04 1.662447E+06 1.289146E+03 3.324894E+04 6.895353E+05 0.0 2 6.675525E+04 2.245392E+06 7.301516E+04 2.325797E+06 4.943938E+02 4.571023E+04 6.995943E+04 2.686927E+02 3 7.114540E+04 1.980087E+06 1.140906E+05 1.949895E+06 2.285557E+03 4.912280E+04 7.989680E+04 4.605802E+02 4 1.194874E+05 1.778504E+06 1.659631E-02 1.001422E-01 2.389748E+03 3.557007E+04 6.781290E+05 0.0 5 2.688844E+02 3.766690E+06 9.190689E+04 2.584368E+06 1.920168E+03 1.317753E+05 2.064398E+04 3.520914E+03 6 7.252032E+02 3.728696E+06 1.159865E+05 3.403015E+06 2.431423E+03 1.481421E+05 3.131490E+04 1.904541E+03 7 4.606120E+02 3.565404E+06 2.061089E+05 2.482468E+06 4.303516E+03 1.249254E+05 3.783397E+04 5.506275E+03 8 3.980440E+03 1.321728E+06 9.509312E+04 1.040054E+06 1.236758E+03 2.949273E+04 9.688570E+04 6.854804E+01 9 9.509311E+04 1.040054E+06 1.514747E+04 8.161240E+05 4.010574E+03 5.787884E+04 1.219375E+05 6.854804E+01 10 1.801777E+04 1.186078E+06 2.805125E+04 5.976338E+05 5.129662E+02 5.202213E+04 1.434048E+05 1.097423E+02 11 2.805126E+04 5.976338E+05 5.544989E+03 1.152916E+06 6.602510E+02 3.246822E+04 9.680942E+04 1.097422E+02 12 9.184083E+04 1.605170E+06 3.139060E+05 5.791678E+06 3.096398E+03 8.790550E+04 4.958456E+04 4.869093E+02 13 1.158101E+05 2.014144E+06 3.555260E+04 4.468088E+06 1.882420E+03 6.477689E+04 6.871477E+04 1.030279E+03 14 2.059998E+05 1.872776E+06 5.598742E+05 5.439935E+06 4.916778E+03 7.969188E+04 6.122845E+04 2.159729E+02 15 4.540024E+03 6.032798E+05 3.419612E+04 2.929028E+05 9.644222E+02 1.340200E+04 8.361025E+04 4.578294E+01 16 3.419610E+04 2.929028E+05 7.301272E+04 5.967566E+05 7.588245E+02 1.375118E+04 1.296977E+05 4.578294E+01 17 7.404617E+04 1.413868E+06 1.401291E+04 8.627872E+05 1.549134E+03 4.662720E+04 1.038070E+05 1.332999E+02 18 1.401288E+04 8.627872E+05 4.724432E+03 1.645218E+06 5.051071E+02 6.079190E+04 6.567583E+04 1.332999E+02 19 3.139503E+05 6.110958E+06 1.570422E+05 7.014318E+06 7.530526E+03 2.178864E+05 6.029775E+04 4.972271E+03 20 3.548322E+04 5.558266E+06 6.441187E+03 4.217066E+06 5.783055E+02 1.610543E+05 5.388932E+04 2.230398E+03 21 5.600069E+05 6.485117E+06 5.355976E+05 7.375064E+06 1.824292E+04 2.296206E+05 1.140147E+05 4.728164E+03 22 1.443947E+05 7.567634E+05 1.157139E+05 1.538778E+06 5.010203E+03 4.589948E+04 6.975886E+05 2.639153E+02 23 1.122316E+05 1.709254E+06 1.703325E+05 7.373278E+05 4.771468E+03 4.497959E+04 4.472912E+05 2.231929E+03 24 1.703325E+05 7.373279E+05 3.538340E+05 8.274904E+05 2.416542E+04 4.284259E+04 9.838972E+04 2.231929E+03 25 2.007243E+05 8.274010E+05 8.699416E+04 1.859316E+06 4.410687E+03 4.239589E+04 9.546980E+04 5.362732E+03 26 8.560608E+04 2.972405E+06 1.397974E+05 4.708711E+05 4.413410E+03 6.677482E+04 9.554614E+04 1.211940E+03 27 1.397974E+05 4.708717E+05 2.854577E+05 8.781862E+05 2.299502E+04 8.573836E+04 4.879855E+05 1.211940E+03 28 2.807995E+05 8.743677E+05 2.566154E+05 2.963122E+06 2.028910E+04 8.445558E+04 4.778693E+05 2.337389E+03 29 2.605233E+05 1.428995E+06 2.249135E+05 7.166039E+05 9.690521E+03 4.288532E+04 7.188046E+05 4.330412E+02 30 4.910644E+05 7.569972E+03 5.551753E+05 3.085537E+05 1.088403E+04 3.292925E+03 2.403247E+04 1.744089E+03 31 4.909341E+05 3.444293E+03 5.013028E+05 1.239418E+05 1.032199E+04 1.326281E+03 2.679873E+04 3.866940E+03 32 1.568490E+05 4.573082E+06 2.124196E+05 2.241703E+06 4.101976E+03 1.361162E+05 1.056362E+05 1.200059E+03 33 5.352826E+05 4.046608E+06 9.885097E+04 1.966598E+06 1.149867E+04 1.198298E+05 1.488351E+05 7.642048E+02 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL DIRECTION 3 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 1 1.270716E-01 4.887753E-03 3.804006E+06 4.704599E+04 7.608009E+04 9.409199E+02 5.134572E+03 0.0 2 3.726792E+06 5.871884E+04 5.461640E+06 5.990879E+04 2.914760E+04 1.186260E+03 1.664101E+03 6.251178E+03 3 5.443065E+06 4.520869E+04 4.293301E+06 4.514342E+04 4.550991E+04 1.129378E+03 2.029117E+03 8.318733E+03 4 4.415070E+06 4.972008E+04 4.721157E+00 5.888932E-03 8.830134E+04 9.944019E+02 5.216761E+03 0.0 5 6.239297E+03 1.055234E+05 2.074168E+06 5.077942E+04 4.332762E+04 3.249513E+03 3.145975E+02 1.259485E+05 6 1.433167E+04 1.036558E+05 3.251204E+06 7.374938E+04 6.777845E+04 3.689804E+03 3.885075E+02 2.978078E+04 7 8.319506E+03 9.421064E+04 3.001500E+06 4.841012E+04 6.269326E+04 2.957695E+03 3.166300E+02 1.284097E+05 8 8.938636E+04 3.450309E+04 2.674559E+06 2.387007E+04 3.380305E+04 7.293859E+02 1.233599E+03 2.092265E+03 9 2.674556E+06 2.387007E+04 1.176312E+06 1.514899E+04 8.442534E+04 6.122199E+02 1.357412E+03 2.092266E+03 10 1.203861E+06 3.014618E+04 1.975156E+06 4.619167E+03 3.595869E+04 9.594695E+02 1.287318E+03 2.604417E+03 11 1.975148E+06 4.619166E+03 9.245567E+04 2.364565E+04 4.051586E+04 5.350431E+02 1.367642E+03 2.604416E+03 12 2.072528E+06 1.796994E+04 5.968351E+06 1.752919E+05 5.823813E+04 2.236186E+03 1.015636E+03 6.984363E+04 13 3.251882E+06 3.132602E+04 1.503910E+06 1.294882E+05 4.832173E+04 1.470076E+03 1.426498E+03 2.285779E+04 14 2.999178E+06 2.706972E+04 7.678178E+06 1.617461E+05 7.720477E+04 1.958226E+03 7.762622E+02 8.158134E+04 15 8.493378E+04 1.221327E+04 1.053065E+06 7.083024E+03 2.778971E+04 1.570584E+02 1.926978E+03 2.415713E+03 16 1.053063E+06 7.083022E+03 1.694745E+06 1.645217E+04 2.199930E+04 3.902969E+02 3.193717E+03 2.415713E+03 17 1.719350E+06 2.774821E+04 1.263470E+06 4.838742E+03 4.262195E+04 7.069878E+02 3.487859E+03 3.550002E+03 18 1.263468E+06 4.838741E+03 1.066262E+05 3.163282E+04 3.840199E+04 8.191622E+02 2.238810E+03 3.550002E+03 19 5.969566E+06 1.867619E+05 6.627001E+06 2.209934E+05 1.835923E+05 6.791746E+03 1.027171E+03 1.190835E+05 20 1.505811E+06 1.729255E+05 5.457771E+04 1.327263E+05 2.566753E+04 5.089840E+03 1.187442E+03 5.228749E+04 21 7.681225E+06 1.928080E+05 1.082408E+07 2.284954E+05 2.783992E+05 7.012393E+03 8.252943E+02 1.369845E+05 22 4.364155E+06 2.481854E+04 3.449694E+06 5.025443E+04 1.551033E+05 1.501455E+03 2.917249E+04 8.669955E+03 23 3.447479E+06 3.688454E+04 2.557627E+06 9.794354E+03 1.006518E+05 8.657345E+02 3.025662E+04 6.046088E+03 24 2.557627E+06 9.794352E+03 3.518381E+06 2.197893E+04 2.809326E+05 1.006044E+03 1.203106E+04 6.046089E+03 25 2.600914E+06 2.198311E+04 8.195394E+05 4.860776E+04 8.157145E+04 1.078786E+03 2.069212E+04 3.524555E+04 26 8.054149E+05 8.494747E+04 3.918976E+06 1.466463E+04 8.582277E+04 2.023424E+03 1.939058E+04 1.932569E+04 27 3.918978E+06 1.466464E+04 3.669330E+06 2.423733E+04 4.475514E+05 2.246330E+03 2.783128E+04 1.932569E+04 28 3.359573E+06 2.416664E+04 5.179322E+06 7.629295E+04 3.136339E+05 2.180223E+03 4.607921E+04 1.730546E+04 29 5.153813E+06 4.726579E+04 4.456063E+06 2.375722E+04 1.918005E+05 1.420439E+03 4.488772E+04 8.826476E+03 30 1.524834E+06 3.718543E+04 7.585844E+05 1.717070E+04 2.378458E+04 5.604320E+02 3.508162E+05 1.893321E+01 31 2.781786E+06 3.262743E+04 1.376136E+06 1.593760E+04 4.331144E+04 5.050276E+02 6.422513E+05 7.805434E+01 32 6.612938E+06 1.434081E+05 4.212432E+06 7.781741E+04 9.529557E+04 4.306772E+03 1.859693E+03 2.283138E+04 33 1.079797E+07 1.279244E+05 1.021742E+06 9.472962E+04 2.242953E+05 4.290958E+03 1.660925E+03 1.536767E+04 0*** SYSTEM WARNING MESSAGE 2184, STRESS OR FORCE REQUEST FOR ELEMENT CONM2 (NASTRAN ELEM. TYPE = 30) WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT. 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T03-13-1A HY-100 PLATFORM MODEL 0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED 0*** SYSTEM WARNING MESSAGE 3001 0ATTEMPT TO OPEN DATA SET 204 IN SUBROUTINE SDR2 , WHICH WAS NOT DEFINED IN THE FIST 0*** SYSTEM WARNING MESSAGE 3001 0ATTEMPT TO OPEN DATA SET 205 IN SUBROUTINE SDR2 , WHICH WAS NOT DEFINED IN THE FIST 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 2.408433E-05 2.125423E-05 2.503151E-03 2 G 8.507232E-02 1.964650E-03 1.076181E-03 1.654876E-05 2.125423E-05 1.166044E-03 3 G 3.248062E-01 4.205368E-03 1.367646E-03 1.384512E-05 1.687112E-05 7.392348E-04 4 G 7.453994E-02 3.627396E-03 8.601210E-04 1.189493E-05 3.048224E-05 1.078911E-03 5 G 0.0 0.0 0.0 2.144290E-05 3.048224E-05 2.089794E-03 6 G 7.746251E-02 4.333700E-02 4.824267E-04 3.424846E-05 1.840060E-05 9.007379E-04 7 G 3.580019E-01 4.376385E-02 1.543740E-03 1.238011E-05 1.269203E-05 2.715531E-03 8 G 3.264085E-01 4.275973E-02 1.187386E-03 2.583665E-05 1.362107E-05 7.255600E-04 9 G 3.031619E-01 4.284486E-02 6.077479E-04 3.226356E-05 1.359101E-05 4.913347E-03 10 G 6.787747E-02 3.982852E-02 1.684850E-03 3.644203E-05 2.321332E-05 6.079635E-04 11 G 6.644145E-02 6.010950E-02 8.541651E-04 3.382837E-05 4.244076E-06 7.163574E-04 12 G 2.214594E-01 5.984584E-02 6.597343E-04 2.445565E-05 4.391792E-06 6.565919E-03 13 G 3.259774E-01 5.921902E-02 9.244730E-04 1.588932E-05 9.254926E-06 6.542595E-04 14 G 2.084376E-01 6.094531E-02 7.622641E-04 3.762243E-05 8.891500E-06 7.161902E-03 15 G 5.756101E-02 6.194190E-02 1.934400E-03 3.914507E-05 1.987223E-05 8.245090E-04 16 G 0.0 0.0 0.0 0.0 0.0 0.0 17 G 3.023776E-02 3.132901E-03 3.039854E-04 6.901320E-06 1.056679E-05 6.054559E-04 18 G 2.513025E-01 3.772506E-03 3.249593E-04 8.956088E-06 3.451355E-03 5.206004E-03 19 G 3.131175E-01 4.014303E-03 4.116990E-05 2.010393E-05 4.831918E-03 4.782407E-03 20 G 3.258844E-01 4.412070E-03 1.644052E-04 4.264237E-06 2.148924E-05 1.605411E-03 21 G 2.180096E-01 3.824196E-03 1.199093E-04 5.141216E-06 1.340623E-03 6.074841E-03 22 G 1.194289E-01 3.597364E-03 1.185398E-04 9.558600E-06 1.837934E-03 7.063506E-03 23 G 2.631980E-02 3.278126E-03 2.919262E-04 3.626519E-06 1.884684E-05 1.072051E-03 24 G 0.0 0.0 0.0 0.0 0.0 0.0 25 G 0.0 0.0 0.0 0.0 0.0 0.0 26 G 0.0 0.0 0.0 0.0 0.0 0.0 27 G 0.0 0.0 0.0 0.0 0.0 0.0 28 G 0.0 0.0 0.0 0.0 0.0 0.0 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 4.977077E-04 5.716592E-04 3.568321E-03 2 G 1.005421E-02 5.746128E-02 2.237383E-02 3.498126E-04 5.716592E-04 6.857728E-03 3 G 3.660600E-01 6.380078E-02 2.534941E-02 3.190513E-04 5.039195E-05 7.402037E-03 4 G 1.393650E-02 5.651075E-02 6.013514E-03 1.539595E-04 7.974855E-04 7.436458E-03 5 G 0.0 0.0 0.0 1.954955E-04 7.974855E-04 3.747017E-03 6 G 9.336421E-03 4.732141E-01 9.967601E-03 8.240379E-04 4.886964E-04 9.165026E-03 7 G 4.692139E-01 4.912820E-01 3.456660E-02 2.705279E-04 1.506499E-04 1.867409E-03 8 G 3.671547E-01 4.878473E-01 2.566656E-02 5.788817E-04 6.875968E-05 8.233464E-03 9 G 3.029875E-01 4.935385E-01 7.957238E-03 7.627137E-04 2.677831E-04 3.872389E-03 10 G 1.292626E-02 4.822176E-01 3.810921E-02 9.065550E-04 6.067194E-04 9.235124E-03 11 G 6.693852E-03 6.569518E-01 2.458172E-02 7.297455E-04 1.150071E-04 7.357515E-03 12 G 2.310749E-01 6.497723E-01 7.538707E-03 5.683402E-04 7.370821E-05 3.734334E-03 13 G 3.637905E-01 6.324564E-01 1.407297E-02 3.708806E-04 2.104806E-04 5.709359E-03 14 G 2.177587E-01 6.432300E-01 1.777119E-02 8.870336E-04 1.792013E-04 9.365521E-03 15 G 1.074254E-02 6.477189E-01 4.917135E-02 9.000233E-04 4.621311E-04 7.477216E-03 16 G 0.0 0.0 0.0 0.0 0.0 0.0 17 G 4.001371E-03 5.813238E-02 8.281801E-03 1.733418E-04 3.009561E-04 4.909520E-03 18 G 1.960033E-01 9.530840E-02 8.080579E-03 2.334319E-04 2.611652E-03 3.767241E-03 19 G 2.346502E-01 9.615494E-02 3.845196E-03 3.789670E-04 3.620894E-03 3.818636E-03 20 G 3.616523E-01 9.797236E-02 7.341525E-03 1.464250E-04 2.049860E-04 8.631429E-03 21 G 2.333213E-01 9.191295E-02 5.847177E-03 2.188954E-04 1.040679E-03 9.374348E-03 22 G 9.412514E-02 7.974423E-02 4.287798E-03 2.577950E-04 1.450391E-03 8.466561E-03 23 G 5.637692E-03 5.990038E-02 8.121070E-03 1.103852E-04 4.938189E-04 4.486264E-03 24 G 0.0 0.0 0.0 0.0 0.0 0.0 25 G 0.0 0.0 0.0 0.0 0.0 0.0 26 G 0.0 0.0 0.0 0.0 0.0 0.0 27 G 0.0 0.0 0.0 0.0 0.0 0.0 28 G 0.0 0.0 0.0 0.0 0.0 0.0 1 NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T03-13-1A 0 HY-100 PLATFORM MODEL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 4.589859E-02 1.745765E-02 1.016236E-04 2 G 1.823817E-04 4.278810E-04 2.143508E+00 3.698502E-02 1.745765E-02 1.931650E-04 3 G 5.732413E-03 7.000578E-04 3.827642E+00 7.229860E-03 1.722758E-02 2.070616E-04 4 G 1.256736E-04 4.347301E-04 2.061898E+00 3.610121E-02 2.054025E-02 2.077445E-04 5 G 0.0 0.0 0.0 4.450333E-02 2.054025E-02 1.038279E-04 6 G 1.713023E-04 1.443937E-02 1.642225E+00 3.279257E-02 1.659698E-02 2.955994E-04 7 G 8.381779E-03 1.466132E-02 3.100960E+00 7.375099E-03 1.853735E-02 2.938823E-05 8 G 5.742350E-03 1.459833E-02 3.012269E+00 1.031225E-02 1.917521E-02 2.637231E-04 9 G 3.895725E-03 1.469044E-02 2.610728E+00 2.242971E-02 1.889364E-02 6.550920E-05 10 G 1.150573E-04 1.454727E-02 1.832529E+00 3.552476E-02 1.883580E-02 2.944243E-04 11 G 1.164699E-04 2.202431E-02 1.024384E+00 2.074919E-02 1.291063E-02 2.335766E-04 12 G 4.477525E-03 2.185071E-02 1.231711E+00 1.597282E-02 1.596063E-02 5.194443E-05 13 G 5.685580E-03 2.137011E-02 1.440450E+00 7.717059E-03 2.376181E-02 1.722759E-04 14 G 1.813788E-03 2.175302E-02 1.219208E+00 2.055034E-02 1.739074E-02 1.853554E-04 15 G 9.619861E-05 2.192318E-02 1.134582E+00 2.400653E-02 1.613320E-02 2.189852E-04 16 G 0.0 0.0 0.0 0.0 0.0 0.0 17 G 7.044290E-05 2.431041E-03 2.281538E-01 3.297866E-03 9.886790E-03 1.593770E-04 18 G 2.728568E-03 4.879383E-03 1.414617E-01 5.256065E-03 2.992354E-03 6.663010E-05 19 G 3.334232E-03 5.114127E-03 5.613060E-02 3.694196E-03 2.643746E-04 4.145376E-05 20 G 5.653713E-03 5.390706E-03 1.280716E-01 3.893832E-03 2.436394E-02 2.667636E-04 21 G 4.144064E-03 5.933293E-03 1.508036E-01 5.389072E-03 6.734189E-03 1.960638E-04 22 G 1.456714E-03 5.632224E-03 1.027602E-01 6.774569E-03 2.040263E-04 1.708979E-04 23 G 6.291382E-05 3.740643E-03 1.616048E-01 2.219775E-03 1.006528E-02 1.473166E-04 24 G 0.0 0.0 0.0 0.0 0.0 0.0 25 G 0.0 0.0 0.0 0.0 0.0 0.0 26 G 0.0 0.0 0.0 0.0 0.0 0.0 27 G 0.0 0.0 0.0 0.0 0.0 0.0 28 G 0.0 0.0 0.0 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) DATE: 5/18/95 END TIME: 10:24:56 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t04021a.out ================================================ NASTRAN FILES=NPTP **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T04021A,NASTRAN DIAG 14 TIME 10 CHKPNT YES APP DISP SOL 4,6 ALTER 2,2 $ ALTER 91 $ CHKPNT KDGG $ EXIT $ ENDALTER $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE PUNCHED OUT FOR THIS PROBLEM 0 RESTART T04021A ,NASTRAN , 5/18/95, 37515, 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T04-02-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T04-02-1A 3 $ REFERENCE PROBLEM III.1 4 SPC = 10 5 LOAD = 10 6 DISP = ALL 7 SUBCASE 1 8 LABEL = STATIC SOLUTION 9 SUBCASE 2 10 LABEL = DIFFERENTIAL STIFFNESS SOLUTION 11 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 16, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T04-02-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CQUAD2 101 100 101 102 106 105 2- CQUAD2 102 100 102 104 108 106 3- CQUAD2 103 100 104 103 107 108 4- CQUAD2 104 100 101 103 104 102 5- GRID 101 0.0 0.0 0.0 6- GRID 102 6.0 0.0 0.0 7- GRID 103 0.0 12.0 0.0 8- GRID 104 6.0 12.0 0.0 9- GRID 105 0.0 0.0 12.0 10- GRID 106 6.0 0.0 12.0 11- GRID 107 0.0 12.0 12.0 12- GRID 108 6.0 12.0 12.0 13- MAT1 100 10.6+6 .3 .92-3 14- PLOAD2 10 1.0 101 THRU 104 15- PQUAD2 100 100 .06 16- SPC1 10 12356 101 103 105 107 ENDDATA 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T04-02-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 04 - DIFFERENTIAL STIFFNESS ANALYSIS - APR. 1995 $ 3 PARAM //*MPY*/CARDNO/0/0 $ 4 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ 5 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 6 EQUIV MPTA,MPT/ISOP $ 7 COND ERROR3,NOGPDT $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1// $ 20 LABEL P1 $ 21 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T04-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 22 PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ 23 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $ 24 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 25 COND ERROR1,NOSIMP $ 26 PARAM //*ADD*/NOKGGX/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX/MGG/NOMGG $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 PURGE KDICT,KELM/MINUS1 $ 32 LABEL JMPKGG $ 33 COND JMPMGG,NOMGG $ 34 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 35 PURGE MDICT,MELM/MINUS1 $ 36 LABEL JMPMGG $ 37 COND LBL1,GRDPNT $ 38 COND ERROR4,NOMGG $ 39 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ 40 OFP OGPWG,,,,,//S,N,CARDNO $ 41 LABEL LBL1 $ 42 EQUIV KGGX,KGG/NOGENL $ 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T04-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 43 COND LBL11,NOGENL $ 44 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 45 LABEL LBL11 $ 46 GPSTGEN KGG,SIL/GPST $ 47 PARAM //*MPY*/NSKIP/0/0 $ 48 CASE CASECC,/CASEXX/*TRANRESP*/0/NOLOOP $ 49 GP4 CASEXX,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 50 OFP OGPST,,,,,//S,N,CARDNO $ 51 COND ERROR5,NOL $ 52 COND LBL4D,REACT $ 53 JUMP ERROR2 $ 54 LABEL LBL4D $ 55 PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG, YBS,PBS,KBFS,KBSS,KDFS,KDSS/SINGLE $ 56 EQUIV KGG,KNN/MPCF1 $ 57 COND LBL2,MPCF1 $ 58 MCE1 USET,RG/GM $ 59 MCE2 USET,GM,KGG,,,/KNN,,, $ 60 LABEL LBL2 $ 61 EQUIV KNN,KFF/SINGLE $ 62 COND LBL3,SINGLE $ 63 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T04-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 64 LABEL LBL3 $ 65 EQUIV KFF,KAA/OMIT $ 66 COND LBL5,OMIT $ 67 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 68 LABEL LBL5 $ 69 RBMG2 KAA/LLL $ 70 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASEXX,DIT,PCOMPS/ PG,,,,/LUSET/1/COMPS $ 71 EQUIV PG,PL/NOSET $ 72 COND LBL10,NOSET $ 73 SSG2 USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $ 74 LABEL LBL10 $ 75 SSG3 LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ 1/S,N,EPSI $ 76 COND LBL9,IRES $ 77 MATGPR GPL,USET,SIL,RULV//*L* $ 78 MATGPR GPL,USET,SIL,RUOV//*O* $ 79 LABEL LBL9 $ 80 SDR1 USET,,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PG1,QG/1/*DS0* $ 81 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PG, PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *DS0*////COMPS $ 82 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 83 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 84 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T04-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 85 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ 86 COND P2,JUMPPLOT $ 87 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 88 PRTMSG PLOTX2// $ 89 LABEL P2 $ 90 TA1 ECT,EPT,BGPDT,SIL,GPTT,,CSTM,/X1,X2,X3,ECPT,GPCT,,,/LUSET/ NOSIMP/0/NOGENL/GENEL $ 91 DSMG1 CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/ DSCOSET $ 91 CHKPNT KDGG $ 91 EXIT $ 92 PARAM //*ADD*/SHIFT/-1/0 $ 93 PARAM //*ADD*/COUNT/ALWAYS=-1/NEVER= 1 $ 94 PARAMR //*ADD*/DSEPSI/0.0/0.0 $ 95 PARAML YS//*NULL*////NOYS $ 96 LABEL OUTLPTOP $ 97 EQUIV PG,PG1/NOYS $ 98 PARAM //*KLOCK*/TO $ 99 EQUIV KDGG,KDNN/MPCF1 $ 100 COND LBL2D,MPCF1 $ 101 MCE2 USET,GM,KDGG,,,/KDNN,,, $ 102 LABEL LBL2D $ 103 EQUIV KDNN,KDFF/SINGLE $ 104 COND LBL3D,SINGLE $ 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T04-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 105 SCE1 USET,KDNN,,,/KDFF,KDFS,KDSS,,, $ 106 LABEL LBL3D $ 107 EQUIV KDFF,KDAA/OMIT $ 108 COND LBL5D,OMIT $ 109 SMP2 USET,GO,KDFF/KDAA $ 110 LABEL LBL5D $ 111 ADD KAA,KDAA/KBLL/(1.0,0.0)/(1.0,0.0) $ 112 ADD KFS,KDFS/KBFS/(1.0,0.0)/(1.0,0.0) $ 113 ADD KSS,KDSS/KBSS/(1.0,0.0)/(1.0,0.0) $ 114 COND PGOK,NOYS $ 115 MPYAD KBSS,YS,/PSS/0/1/1/1 $ 116 MPYAD KBFS,YS,/PFS/0/1/1/1 $ 117 UMERGE USET,PFS,PSS/PN/*N*/*F*/*S* $ 118 EQUIV PN,PGX/MPCF1 $ 119 COND LBL6D,MPCF1 $ 120 UMERGE USET,PN,/PGX/*G*/*N*/*M* $ 121 LABEL LBL6D $ 122 ADD PGX,PG/PGG/(-1.0,0.0)/(1.0,0.0) $ 123 EQUIV PGG,PG1/ALWAYS $ 124 LABEL PGOK $ 125 ADD PG1,/PG0/(1.0,0.0) $ 126 RBMG2 KBLL/LBLL/S,N,POWER/S,N,DET $ 127 PRTPARM //0/*DET* $ 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T04-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 128 PRTPARM //0/*POWER* $ 129 LABEL INLPTOP $ 130 PARAM //*KLOCK*/TI $ 131 SSG2 USET,GM,YS,KDFS,GO,,PG1/,PBO,PBS,PBL $ 132 SSG3 LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/S,N, EPSI $ 133 COND LBL9D,IRES $ 134 MATGPR GPL,USET,SIL,RUBLV//*L* $ 135 LABEL LBL9D $ 136 SDR1 USET,,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/1/*DS1* $ 137 ADD UBGV,UGV/DUGV/(-1.0,0.0)/(1.0,0.0) $ 138 DSMG1 CASECC,GPTT,SIL,EDT,DUGV,CSTM,MPT,ECPT,GPCT,DIT/DKDGG/ DSCOSET $ 139 MPYAD DKDGG,UBGV,PG0/PGI1/0/1/1/0 $ 140 DSCHK PG1,PGI1,UBGV//C,Y,EPSIO=1.E-5/S,N,DSEPSI/C,Y,NT=10/TO/ TI/S,N,DONE/S,N,SHIFT/S,N,COUNT/C,Y,BETAD=4 $ 141 COND DONE,DONE $ 142 COND SHIFT,SHIFT $ 143 EQUIV PG,PG1/NEVER/PGI1,PG1/ALWAYS/PG1,PGI1/NEVER $ 144 REPT INLPTOP,1000 $ 145 TABPT PGI1,PG1,PG,,// $ 146 LABEL SHIFT $ 147 ADD DKDGG,KDGG/KDGG1/(-1.0,0.0)/(1.0,0.0) $ 148 EQUIV UBGV,UGV/ALWAYS/KDGG1,KDGG/ALWAYS $ 149 EQUIV KDGG,KDGG1/NEVER/UGV,UBGV/NEVER $ 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T04-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 150 REPT OUTLPTOP,1000 $ 151 TABPT KDGG1,KDGG,UGV,,// $ 152 LABEL DONE $ 153 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,,, PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/ *DS1*////COMPS $ 154 OFP OUBGV1,OQBG1,OEFB1,OESB1,,//S,N,CARDNO $ 155 OFP OEFB1L,OESB1L,,,,//S,N,CARDNO $ 156 COND P3,JUMPPLOT $ 157 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUBGV1,,GPECT, OESB1,OESB1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N, PFILE $ 158 PRTMSG PLOTX3// $ 159 LABEL P3 $ 160 JUMP FINIS $ 161 LABEL ERROR1 $ 162 PRTPARM //-1/*DIFFSTIF* $ 163 LABEL ERROR2 $ 164 PRTPARM //-2/*DIFFSTIF* $ 165 LABEL ERROR3 $ 166 PRTPARM //-3/*DIFFSTIF* $ 167 LABEL ERROR4 $ 168 PRTPARM //-4/*DIFFSTIF* $ 169 LABEL ERROR5 $ 170 PRTPARM //-5/*DIFFSTIF* $ 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T04-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 171 LABEL FINIS $ 172 PURGE DUMMY/MINUS1 $ 173 END $ 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T04-02-1A 0 CONTINUATION OF CHECKPOINT DICTIONARY 1, XVPS , FLAGS = 0, REEL = 1, FILE = 6 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 101 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK MGG MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK MGG MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -1.6989752E-16 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T04-02-1A 0 STATIC SOLUTION SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 0.0 0.0 0.0 -7.671032E-07 0.0 0.0 102 G 2.224633E-05 -1.299485E-05 -4.611534E-05 8.379199E-07 8.715010E-06 -3.245583E-06 103 G 0.0 0.0 0.0 7.671032E-07 0.0 0.0 104 G 2.224633E-05 1.299485E-05 -4.611534E-05 -8.379199E-07 8.715010E-06 3.245583E-06 105 G 0.0 0.0 0.0 -3.946867E-07 0.0 0.0 106 G 5.633597E-05 -2.364832E-05 -4.450864E-05 1.616037E-06 -5.854478E-07 -3.669899E-06 107 G 0.0 0.0 0.0 3.946867E-07 0.0 0.0 108 G 5.633597E-05 2.364832E-05 -4.450864E-05 -1.616037E-06 -5.854478E-07 3.669899E-06 1 HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T04-02-1A 0 0 ADDITIONS TO CHECKPOINT DICTIONARY 2, REENTER AT DMAP SEQUENCE NUMBER 92 3, KDGG , FLAGS = 0, REEL = 1, FILE = 7 4, XVPS , FLAGS = 0, REEL = 1, FILE = 8 * * * END OF JOB * * * 1 JOB TITLE = HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM DATE: 5/18/95 END TIME: 10:25:23 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t04021b.out ================================================ NASTRAN FILES = OPTP **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T04021B,NASTRAN $ INSERT CHECKPOINT DICTIONARY 0*** $ ... READFILE FROM- RSCARDS RESTART T04021A ,NASTRAN , 5/18/95, 37515, 1, XVPS , FLAGS = 0, REEL = 1, FILE = 6 2, REENTER AT DMAP SEQUENCE NUMBER 92 3, KDGG , FLAGS = 0, REEL = 1, FILE = 7 4, XVPS , FLAGS = 0, REEL = 1, FILE = 8 $ END OF CHECKPOINT DICTIONARY 0*** $ END READFILE TIME 10 APP DISP SOL 3,0 $ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) AFTER THIS CARD 0*** $ ... READFILE FROM- COSHYD1 $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - DIRECT FORMULATION (COSHYD1) $ ALTER 1,1 $ COSMIC/NASTRAN RF 3. REPLACING BEGIN DELETE BEGIN $ XDMAP GO,ERR=2 $ BEGIN HYDROELASTIC ANALYSIS - DIRECT FORMULATION $ $ ALTER 3 $ AFTER PRECHK/FILE INSERT FILE $ COMPOFF NEWM,NEWMODE $ $ ALTER 46 $ AFTER OFP/COND/PURGE INSERT GP4,3 $ FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ VEC USETF/PV1/*G*/*X*/*Y* $ PARTN KGG,PV1,/KXX,,,KYY $ PARTN MGG,PV1,/MXX,,, $ PARTN RG,PV1,/RX,,,/1 $ EQUIV RX,RG $ PARTN AF,PV1,/,,AXY,AYY $ COND DIRECT1,NOGRAV $ PARTN DKGG,PV1,/DKXX,,,DKYY $ COND DIRECT1,NOFREE $ VEC USETF/PV2/*Y*/*FR*/*COMP* $ PARTN AYY,,PV2/AFRY,,,/0 $ PARTN DKYY,PV2,/DKFRFR,,, $ LABEL DIRECT1 $ COMPOFF NOSTRUC,OLDSTR $ COMPON 2,DIFSTIF $ PARAMR //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $ ADD KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $ COMPOFF 1,DIFSTIF $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 EQUIV KXX,KGG $ EQUIV MXX,MGG $ $ ALTER 49,50 $ REPLACING MCE1, MCE2 DELETE MCE1,MCE2 $ MCE1 USETS,RG/GM $ MCE2 USETS,GM,KGG,MGG,,/KNN,MNN,, $ $ ALTER 54,54 $ REPLACING SCE1 DELETE SCE1 $ SCE1 USETS,KNN,MNN,,/KFF,KFS,,MFF,, $ $ ALTER 59,60 $ REPLACING SMP1, SMP2 DELETE SMP1,SMP2 $ SMP1 USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $ SMP2 USETS,GO,MFF/MAA $ $ ALTER 61 $ ALTER LABEL LBL5 INSERT SMP2,1 $ LABEL NOSTRUC $ PURGE DKAA/NOGRAV $ COND DIRECT4,NOGRAV $ EQUIV DKXX,DKNN/MPCF1 $ COND DIRECT2,MPCF2 $ MCE2 USETS,GM,DKXX,,,/DKNN,,, $ LABEL DIRECT2 $ EQUIV DKNN,DKFF/SINGLE $ COND DIRECT3,SINGLE $ SCE1 USETS,DKNN,,,/DKFF,,,,, $ LABEL DIRECT3 $ EQUIV DKFF,DKAA/OMIT $ COND DIRECT4,OMIT $ SMP2 USETS,GO,DKFF/DKAA $ LABEL DIRECT4 $ GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,,,/KMAT, MMAT,GIA,,HC/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=-1 $ EQUIV KMAT,KAA//MMAT,MAA $ $ ALTER 63,63 $ REPLACING RBMG1 DELETE RBMG1 $ RBMG1 USETF,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ $ ALTER 67 $ AFTER LABEL LBL6 INSERT DPD,-1 $ LABEL NEWM $ $ ALTER 68,68 $ REPLACING DPD DELETE DPD $ DPD DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ $ ALTER 71,71 $ REPLACING READ DELETE READ $ READ KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 $ ALTER 75,75 $ REPLACING SDR1 DELETE SDR1 $ COND NOCOMP,COMPTYP $ MPYAD HC,PHIA,/PHIAC/0/1/0 $ EQUIV PHIAC,PHIA $ LABEL NOCOMP $ MPYAD GIA,PHIA,/PHII/0/1/0 $ EQUIV PHII,PHIY/NOFREE $ COND DIRECT5,NOFREE $ VEC USETF/PV3/*A*/*COMP*/*FR* $ PARTN PHIA,,PV3/PHIAB,PHIFR,,/0 $ EQUIV PHIAB,PHIA $ MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ LABEL DIRECT5 $ SDR1 USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $ MERGE PHIX,PHIY,,,,PV1/PHIG/0 $ MERGE QX,,,,,PV1/QG/0 $ $ ALTER 77,77 $ REPLACING EQMCK DELETE EQMCK $ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ ENDALTER $ 0*** $ END READFILE $ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) BEFORE THIS CARD CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 0*** SWITCHED SOLUTION FOR RESTART - OLD SOLUTION = 4, NEW SOLUTION = 3, BIT NUMBER = 190 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T04-02-1B 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T04-02-1B 3 $ REFERENCE PROBLEM III.2 4 DISP = ALL 5 SPCF = ALL 6 METHOD = 50 7 SPC = 10 8 BEGIN BULK 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T04-02-1B 0 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ $ $ *** NOTE - STRUCTURE BULK DATA IS ON RESTART TAPE $ GRID 1 0.0 0.0 0.0 GRID 2 6.0 0.0 0.0 GRID 3 0.0 12.0 0.0 GRID 4 6.0 12.0 0.0 GRID 5 0.0 0.0 12.0 GRID 6 6.0 0.0 12.0 GRID 7 0.0 12.0 12.0 GRID 8 6.0 12.0 12.0 CFHEX2 1 200 1 2 4 3 5 6 +C1 +C1 8 7 CFFREE 1 100 6 CFLSTR 1 100 101 THRU 104 MATF 200 9.355-4 OMIT1 4 101 103 105 107 OMIT1 456 102 104 106 108 GRAV 100 386.0 0.0 0.0 -1.0 EIGR 50 GIV 0.0 20.0 6 6 0 +E12 +E12 MAX $ $ PARAMETERS TO TRIGGER ADDITION OF ULLAGE PRESSURE $ PARAM DIFSTIF -1 PARAM DIFSCALE 14.7 ENDDATA TOTAL COUNT= 26 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T04-02-1B 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CFFREE 1 100 6 2- CFHEX2 1 200 1 2 4 3 5 6 +C1 3- +C1 8 7 4- CFLSTR 1 100 101 THRU 104 5- CQUAD2 101 100 101 102 106 105 6- CQUAD2 102 100 102 104 108 106 7- CQUAD2 103 100 104 103 107 108 8- CQUAD2 104 100 101 103 104 102 9- EIGR 50 GIV 0.0 20.0 6 6 0 +E12 10- +E12 MAX 11- GRAV 100 386.0 0.0 0.0 -1.0 12- GRID 1 0.0 0.0 0.0 13- GRID 2 6.0 0.0 0.0 14- GRID 3 0.0 12.0 0.0 15- GRID 4 6.0 12.0 0.0 16- GRID 5 0.0 0.0 12.0 17- GRID 6 6.0 0.0 12.0 18- GRID 7 0.0 12.0 12.0 19- GRID 8 6.0 12.0 12.0 20- GRID 101 0.0 0.0 0.0 21- GRID 102 6.0 0.0 0.0 22- GRID 103 0.0 12.0 0.0 23- GRID 104 6.0 12.0 0.0 24- GRID 105 0.0 0.0 12.0 25- GRID 106 6.0 0.0 12.0 26- GRID 107 0.0 12.0 12.0 27- GRID 108 6.0 12.0 12.0 28- MAT1 100 10.6+6 .3 .92-3 29- MATF 200 9.355-4 30- OMIT1 4 101 103 105 107 31- OMIT1 456 102 104 106 108 32- PARAM DIFSCALE14.7 33- PARAM DIFSTIF -1 34- PLOAD2 10 1.0 101 THRU 104 35- PQUAD2 100 100 .06 36- SPC1 10 12356 101 103 105 107 ENDDATA 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T04-02-1B 0 0*** USER INFORMATION MESSAGE 4145, THIS IS A MODIFIED RESTART INVOLVING RIGID FORMAT SWITCH. 0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW. 0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES ----------------------------------- MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION 17 4 METHOD$ 62 17 POUT$ 19 0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES -------------------------------- MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED BIT POSITION 1 1 GRID 1 3 23 EIGR 61 30 OMIT1 11 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T04-02-1B 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 XDMAP GO,ERR=2 $ + + 1 BEGIN HYDROELASTIC ANALYSIS - DIRECT FORMULATION $ + + 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ + + 3 COMPOFF NEWM,NEWMODE $ 4 PARAM //*MPY*/CARDNO/0/0 $ + * 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ + * NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ + * 9 GP2 GEOM2,EQEXIN/ECT $ + * 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ + * 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ + * S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ + * 15 PARAM //*MPY*/PLTFLG/1/1 $ + * 16 PARAM //*MPY*/PFILE/0/0 $ + * 17 COND P1,JUMPPLOT $ + * 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ + * 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T04-02-1B 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1//$ + * 20 LABEL P1 $ + + 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ + * 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, + * PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ + * 24 COND ERROR4,NOSIMP $ + * 25 PARAM //*ADD*/NOKGGX/1/0 $ + * 26 PARAM //*ADD*/NOMGG/1/0 $ + * 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ + * S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ + * 29 COND JMPKGG,NOKGGX $ + * 30 EMA GPECT,KDICT,KELM/KGGX $ + * 31 LABEL JMPKGG $ + + 32 COND ERROR1,NOMGG $ + * 33 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ + * 34 PURGE MDICT,MELM/ALWAYS $ + * 35 COND LGPWG,GRDPNT $ + * 36 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ + * 37 OFP OGPWG,,,,,//S,N,CARDNO $ + * 38 LABEL LGPWG $ + + 39 EQUIV KGGX,KGG/NOGENL $ + * 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T04-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 40 COND LBL11,NOGENL $ + * 41 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ + * 42 LABEL LBL11 $ + + 43 GPSTGEN KGG,SIL/GPST $ + * 44 PARAM //*MPY*/NSKIP/0/0 $ + * 45 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, + * ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 46 OFP OGPST,,,,,//S,N,CARDNO $ + * 47 COND ERROR3,NOL $ + * 48 PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ + * 48 FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, + * DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ + * 48 VEC USETF/PV1/*G*/*X*/*Y* $ + * 48 PARTN KGG,PV1,/KXX,,,KYY $ + * 48 PARTN MGG,PV1,/MXX,,, $ + * 48 PARTN RG,PV1,/RX,,,/1 $ + * 48 EQUIV RX,RG $ + * 48 PARTN AF,PV1,/,,AXY,AYY $ + * 48 COND DIRECT1,NOGRAV $ + * 48 PARTN DKGG,PV1,/DKXX,,,DKYY $ + * 48 COND DIRECT1,NOFREE $ + * 48 VEC USETF/PV2/*Y*/*FR*/*COMP* $ + * 48 PARTN AYY,,PV2/AFRY,,,/0 $ + * 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T04-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 48 PARTN DKYY,PV2,/DKFRFR,,, $ + * 48 LABEL DIRECT1 $ + + 48 COMPOFF NOSTRUC,OLDSTR $ 48 COMPON 2,DIFSTIF $ 48 PARAMR //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $ + * 48 ADD KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $ + * 48 COMPOFF 1,DIFSTIF $ 48 EQUIV MXX,MGG $ + * 49 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ + * 50 COND LBL2,MPCF1 $ + * 52 MCE1 USETS,RG/GM $ + * 52 MCE2 USETS,GM,KGG,MGG,,/KNN,MNN,, $ + * 53 LABEL LBL2 $ + + 54 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ + * 55 COND LBL3,SINGLE $ + * 56 SCE1 USETS,KNN,MNN,,/KFF,KFS,,MFF,, $ + * 57 LABEL LBL3 $ + + 58 EQUIV KFF,KAA/OMIT $ + * 59 EQUIV MFF,MAA/OMIT $ + * 60 COND LBL5,OMIT $ + * 62 SMP1 USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $ + * 62 SMP2 USETS,GO,MFF/MAA $ + * 63 LABEL LBL5 $ + + 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T04-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 63 LABEL NOSTRUC $ + + 63 PURGE DKAA/NOGRAV $ + * 63 COND DIRECT4,NOGRAV $ + * 63 EQUIV DKXX,DKNN/MPCF1 $ + * 63 COND DIRECT2,MPCF2 $ + * 63 MCE2 USETS,GM,DKXX,,,/DKNN,,, $ + * 63 LABEL DIRECT2 $ + + 63 EQUIV DKNN,DKFF/SINGLE $ + * 63 COND DIRECT3,SINGLE $ + * 63 SCE1 USETS,DKNN,,,/DKFF,,,,, $ + * 63 LABEL DIRECT3 $ + + 63 EQUIV DKFF,DKAA/OMIT $ + * 63 COND DIRECT4,OMIT $ + * 63 SMP2 USETS,GO,DKFF/DKAA $ + * 63 LABEL DIRECT4 $ + + 63 GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,,,/KMAT, + * MMAT,GIA,,HC/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=-1 $ 63 EQUIV KMAT,KAA//MMAT,MAA $ + * 64 COND LBL6,REACT $ + * 65 RBMG1 USETF,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ + * 66 RBMG2 KLL/LLL $ + * 67 RBMG3 LLL,KLR,KRR/DM $ + * 68 RBMG4 DM,MLL,MLR,MRR/MR $ + * 69 LABEL LBL6 $ + + 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T04-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 69 LABEL NEWM $ + + 70 DPD DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ + * LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ + * 71 COND ERROR2,NOEED $ + * 72 PARAM //*MPY*/NEIGV/1/-1 $ + * 73 READ KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ + * S,N,NEIGV $ + * 74 OFP OEIGS,,,,,//S,N,CARDNO $ + * 75 COND FINIS,NEIGV $ + * 76 OFP LAMA,,,,,//S,N,CARDNO $ + * 77 COND NOCOMP,COMPTYP $ + * 77 MPYAD HC,PHIA,/PHIAC/0/1/0 $ + * 77 EQUIV PHIAC,PHIA $ + * 77 LABEL NOCOMP $ + + 77 MPYAD GIA,PHIA,/PHII/0/1/0 $ + * 77 EQUIV PHII,PHIY/NOFREE $ + * 77 COND DIRECT5,NOFREE $ + * 77 VEC USETF/PV3/*A*/*COMP*/*FR* $ + * 77 PARTN PHIA,,PV3/PHIAB,PHIFR,,/0 $ + * 77 EQUIV PHIAB,PHIA $ + * 77 MERGE PHIFR,PHII,,,,PV2/PHIY/0 $ + * 77 LABEL DIRECT5 $ + + 77 SDR1 USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $ + * 77 MERGE PHIX,PHIY,,,,PV1/PHIG/0 $ + * 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T04-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 77 MERGE QX,,,,,PV1/QG/0 $ + * 78 COND NOMPCF,GRDEQ $ + * 79 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/ + * OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ 80 OFP OQM1,,,,,//S,N,CARDNO $ + * 81 LABEL NOMPCF $ + + 82 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, + * PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ *REIG*////COMPS $ 83 OFP OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $ + * 84 SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ + * 85 OFP OESF1,OESF1L,,,,//S,N,CARDNO $ + * 86 GPFDR CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ + * 87 OFP ONRGY1,,,,,//S,N,CARDNO $ + * 88 PURGE KDICT,KELM/ALWAYS $ + * 89 COND P2,JUMPPLOT $ 90 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 91 PRTMSG PLOTX2// $ 92 LABEL P2 $ + + 93 JUMP FINIS $ + * 94 LABEL ERROR1 $ + + 95 PRTPARM //-1/*MODES* $ + * 96 LABEL ERROR2 $ + + 97 PRTPARM //-2/*MODES* $ + * 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T04-02-1B COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 98 LABEL ERROR3 $ + + 99 PRTPARM //-3/*MODES* $ + * 100 LABEL ERROR4 $ + + 101 PRTPARM //-4/*MODES* $ + * 102 LABEL FINIS $ + + 103 PURGE DUMMY/ALWAYS $ + * 104 END $ + * 0 0 + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME. 0 * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART. 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T04-02-1B 0 0 *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION ADD INSTRUCTION NO. 48 DATA BLOCK NAMED KGG ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION ADD INSTRUCTION NO. 48 DATA BLOCK NAMED KGG ALREADY APPEARED AS OUTPUT 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T04-02-1B 0 0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART FILE NAME REEL NO. FILE NO. KDGG 1 7 XVPS 1 8 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T04-02-1B 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 8 PROFILE 69 MAX WAVEFRONT 8 AVG WAVEFRONT 4.312 RMS WAVEFRONT 4.789 RMS BANDWIDTH 4.802 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 8 PROFILE 64 MAX WAVEFRONT 8 AVG WAVEFRONT 4.000 RMS WAVEFRONT 4.444 RMS BANDWIDTH 4.444 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 8 8 PROFILE (P) 69 64 MAXIMUM WAVEFRONT (C-MAX) 8 8 AVERAGE WAVEFRONT (C-AVG) 4.312 4.000 RMS WAVEFRONT (C-RMS) 4.789 4.444 RMS BANDWITCH (B-RMS) 4.802 4.444 NUMBER OF GRID POINTS (N) 16 NUMBER OF ELEMENTS (NON-RIGID) 5 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 2 MAXIMUM NODAL DEGREE 7 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 47 MATRIX DENSITY, PERCENT 42.969 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 4 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T04-02-1B 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 9 2 16 3 11 4 10 SEQGP 5 12 6 13 7 15 8 14 SEQGP 101 2 102 4 103 5 104 6 SEQGP 105 1 106 3 107 8 108 7 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** SYSTEM WARNING MESSAGE 2072, CARD TYPE 4802 NOT FOUND ON DATA BLOCK. BIT POSITION = 48 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION FHEX2 ELEMENTS (ELEMENT TYPE 77) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 101 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN -1 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) DIFSCALE = 0.147000E+02 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) DIFSCAL = ( 0.147000E+02, 0.000000E+00) (OUTPUT) 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 16, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T04-02-1B 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 16 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 6 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 0.00E+00 . . . 0 MODE PAIR. . . . . . . . . . . . . . 0 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T04-02-1B 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 16 2.806219E+02 1.675177E+01 2.666127E+00 3.088224E-02 8.666232E+00 2 15 7.382172E+02 2.717015E+01 4.324264E+00 1.173061E-02 8.659735E+00 3 14 7.383858E+02 2.717326E+01 4.324758E+00 1.173713E-02 8.666533E+00 4 13 2.545082E+04 1.595331E+02 2.539049E+01 2.035502E-01 5.180520E+03 5 12 2.906982E+06 1.704988E+03 2.713572E+02 4.583358E-03 1.332374E+04 6 11 1.381452E+07 3.716789E+03 5.915453E+02 8.108597E-02 1.120164E+06 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN -1 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T04-02-1B 0 EIGENVALUE = 0.280622E+03 (CYCLIC FREQUENCY = 2.666127E+00 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 5.848381E-04 5.849710E-04 -5.848380E-04 -5.849710E-04 9.995967E-01 1.000000E+00 7 S -9.995967E-01 -1.000000E+00 101 G 0.0 0.0 0.0 1.379551E-06 0.0 0.0 102 G -1.412923E-06 -3.930039E-05 -3.891129E-05 1.542159E-05 5.761023E-06 -6.943920E-06 103 G 0.0 0.0 0.0 4.734099E-06 0.0 0.0 104 G 1.411803E-06 -3.929016E-05 3.890407E-05 5.996096E-06 -8.741978E-06 -5.965030E-06 105 G 0.0 0.0 0.0 -6.690103E-06 0.0 0.0 106 G 2.318525E-05 -1.696900E-04 -3.847788E-05 5.883698E-06 2.003878E-06 -1.457370E-05 107 G 0.0 0.0 0.0 -1.983469E-05 0.0 0.0 108 G -2.318367E-05 -1.696899E-04 3.846712E-05 2.783856E-05 1.631826E-06 -7.122585E-06 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T04-02-1B 0 EIGENVALUE = 0.738217E+03 (CYCLIC FREQUENCY = 4.324264E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S 2.132984E-05 -2.126321E-05 -2.133024E-05 2.126329E-05 1.000000E+00 -9.989393E-01 7 S -9.999883E-01 9.989277E-01 101 G 0.0 0.0 0.0 -1.219099E-06 0.0 0.0 102 G 3.617451E-06 2.945981E-05 3.298810E-05 -1.424847E-05 -5.084546E-06 5.749286E-06 103 G 0.0 0.0 0.0 -4.174236E-06 0.0 0.0 104 G -3.616507E-06 2.945093E-05 -3.298162E-05 -4.614913E-06 7.662463E-06 4.631578E-06 105 G 0.0 0.0 0.0 6.034433E-06 0.0 0.0 106 G -2.226454E-05 1.494873E-04 3.407892E-05 -5.066187E-06 -2.490791E-06 1.250473E-05 107 G 0.0 0.0 0.0 1.707504E-05 0.0 0.0 108 G 2.226293E-05 1.494876E-04 -3.406946E-05 -2.560069E-05 -5.084866E-07 6.073706E-06 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T04-02-1B 0 EIGENVALUE = 0.738386E+03 (CYCLIC FREQUENCY = 4.324758E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -2.126892E-05 2.125084E-05 -2.126867E-05 2.125060E-05 9.999883E-01 -9.999408E-01 7 S 1.000000E+00 -9.999525E-01 101 G 0.0 0.0 0.0 -2.623393E-07 0.0 0.0 102 G -9.917669E-08 7.575648E-07 2.300655E-06 -8.609695E-07 -6.616570E-07 3.386609E-07 103 G 0.0 0.0 0.0 5.500867E-07 0.0 0.0 104 G -9.928146E-08 -7.560362E-07 2.300581E-06 5.378189E-07 -6.211253E-07 -3.596390E-07 105 G 0.0 0.0 0.0 4.691360E-07 0.0 0.0 106 G -1.795507E-05 8.431123E-06 5.472988E-06 6.177121E-08 -1.539532E-06 1.003611E-06 107 G 0.0 0.0 0.0 -1.653338E-06 0.0 0.0 108 G -1.795518E-05 -8.431460E-06 5.472999E-06 1.431651E-06 -2.016961E-06 -7.765111E-07 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T04-02-1B 0 EIGENVALUE = 0.254508E+05 (CYCLIC FREQUENCY = 2.539049E+01 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -2.807235E-03 -2.826249E-03 -2.807233E-03 -2.826245E-03 9.961363E-01 1.000000E+00 7 S 9.961355E-01 9.999826E-01 101 G 0.0 0.0 0.0 2.936447E-04 0.0 0.0 102 G -3.016113E-03 1.495767E-03 5.455651E-03 2.827806E-04 -6.498147E-04 2.374478E-04 103 G 0.0 0.0 0.0 -2.214316E-04 0.0 0.0 104 G -3.016353E-03 -1.495160E-03 5.454057E-03 -2.801699E-05 -9.046852E-04 -3.376306E-04 105 G 0.0 0.0 0.0 5.101847E-08 0.0 0.0 106 G -8.900195E-04 3.490144E-05 4.025894E-03 -2.468982E-05 3.854627E-04 -5.110857E-05 107 G 0.0 0.0 0.0 7.325875E-06 0.0 0.0 108 G -8.899153E-04 -2.983216E-05 4.024191E-03 -1.226114E-04 8.110397E-04 4.286862E-05 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T04-02-1B 0 EIGENVALUE = 0.290698E+07 (CYCLIC FREQUENCY = 2.713572E+02 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -1.776019E-04 -5.032963E-04 1.776236E-04 5.032759E-04 1.370764E-01 1.000000E+00 7 S -1.371005E-01 -9.999939E-01 101 G 0.0 0.0 0.0 -2.059499E-03 0.0 0.0 102 G -1.981636E-02 1.119831E-01 7.081651E-02 -1.645892E-02 -8.381356E-03 1.438819E-02 103 G 0.0 0.0 0.0 -7.037432E-03 0.0 0.0 104 G 1.981732E-02 1.119654E-01 -7.080354E-02 -1.571058E-02 1.326267E-02 1.549676E-02 105 G 0.0 0.0 0.0 8.595600E-03 0.0 0.0 106 G -1.081547E-02 2.562675E-01 5.556607E-02 -1.004320E-02 4.611591E-03 2.583029E-02 107 G 0.0 0.0 0.0 3.389536E-02 0.0 0.0 108 G 1.081271E-02 2.562617E-01 -5.554633E-02 -3.113751E-02 -1.212702E-02 1.318727E-02 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T04-02-1B 0 EIGENVALUE = 0.138145E+08 (CYCLIC FREQUENCY = 5.915453E+02 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 S -1.224661E-03 1.207042E-03 -1.224537E-03 1.207394E-03 1.000000E+00 3.910146E-01 7 S 9.999042E-01 3.935071E-01 101 G 0.0 0.0 0.0 -3.995494E-02 0.0 0.0 102 G 3.499810E-01 -1.789318E-01 -7.818092E-01 -3.466981E-02 9.652293E-02 -2.813455E-02 103 G 0.0 0.0 0.0 3.020714E-02 0.0 0.0 104 G 3.501158E-01 1.790554E-01 -7.815714E-01 3.513103E-03 1.285362E-01 4.073907E-02 105 G 0.0 0.0 0.0 -9.763774E-04 0.0 0.0 106 G 1.351255E-01 -4.944577E-03 -6.065949E-01 1.880844E-03 -4.906796E-02 7.917773E-03 107 G 0.0 0.0 0.0 -2.313321E-03 0.0 0.0 108 G 1.351088E-01 4.108442E-03 -6.062930E-01 1.437638E-02 -1.045315E-01 -6.501143E-03 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T04-02-1B 0 EIGENVALUE = 0.280622E+03 (CYCLIC FREQUENCY = 2.666127E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 1.149116E+01 9.442273E+00 6.875922E+00 0.0 -2.289689E-03 9.602806E-03 103 G -1.148944E+01 9.445481E+00 -6.875083E+00 0.0 4.182575E-03 1.300107E-02 105 G -2.095879E+01 8.711622E-03 9.048681E+00 0.0 1.647883E-03 2.696416E-02 107 G 2.095707E+01 1.388792E-02 -9.049520E+00 0.0 1.028484E-03 1.825621E-02 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T04-02-1B 0 EIGENVALUE = 0.738217E+03 (CYCLIC FREQUENCY = 4.324264E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -1.281785E+01 -6.764985E+00 -5.511760E+00 0.0 1.597687E-03 -7.761177E-03 103 G 1.281632E+01 -6.767395E+00 5.511054E+00 0.0 -3.511535E-03 -1.012260E-02 105 G 1.960424E+01 -7.789910E-03 -7.730357E+00 0.0 -1.485655E-03 -2.393755E-02 107 G -1.960256E+01 -1.217349E-02 7.731065E+00 0.0 -9.437014E-04 -1.619241E-02 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T04-02-1B 0 EIGENVALUE = 0.738386E+03 (CYCLIC FREQUENCY = 4.324758E+00 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -4.238257E-01 -1.747972E-01 1.475495E+00 0.0 7.826900E-05 -1.289027E-04 103 G -4.235089E-01 1.747240E-01 1.475332E+00 0.0 2.783501E-04 1.597925E-04 105 G 1.285788E+01 -4.879394E-04 -1.193121E+00 0.0 -7.212317E-05 -1.416863E-03 107 G 1.285787E+01 6.400240E-04 -1.193362E+00 0.0 8.546449E-05 2.164045E-04 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T04-02-1B 0 EIGENVALUE = 0.254508E+05 (CYCLIC FREQUENCY = 2.539049E+01 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 3.867885E+03 -4.977713E+01 -1.260130E+03 0.0 9.716461E-01 -3.564660E-01 103 G 3.868300E+03 4.973099E+01 -1.259971E+03 0.0 7.794044E-01 3.800184E-01 105 G 1.276842E+03 1.766166E-02 -1.319576E+03 0.0 7.238353E-03 -4.979845E-02 107 G 1.276561E+03 2.635394E-02 -1.319497E+03 0.0 -7.610356E-02 9.000003E-02 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T04-02-1B 0 EIGENVALUE = 0.290698E+07 (CYCLIC FREQUENCY = 2.713572E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G 7.074962E+03 -2.982191E+04 -1.627421E+04 0.0 7.496027E+00 -2.145346E+01 103 G -7.076127E+03 -2.983088E+04 1.627210E+04 0.0 -7.896990E+00 -3.309230E+01 105 G 1.608620E+04 -1.187400E+01 -1.574764E+04 0.0 -2.129232E+00 -3.874075E+01 107 G -1.608297E+04 -2.153847E+01 1.574840E+04 0.0 -1.212483E+00 -2.638585E+01 1 HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T04-02-1B 0 EIGENVALUE = 0.138145E+08 (CYCLIC FREQUENCY = 5.915453E+02 HZ) F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 101 G -4.322677E+05 7.078621E+03 1.789997E+05 0.0 -1.346045E+02 4.155194E+01 103 G -4.324502E+05 -7.132312E+03 1.789770E+05 0.0 -1.122838E+02 -4.549442E+01 105 G -1.885343E+05 -2.404517E+00 1.869510E+05 0.0 -7.659142E-01 6.809124E+00 107 G -1.884889E+05 -3.710195E+00 1.869389E+05 0.0 7.256309E+00 -9.445900E+00 * * * END OF JOB * * * 1 JOB TITLE = HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART DATE: 5/18/95 END TIME: 10:26: 8 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t05031a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T05031A,NASTRAN SOL 5,0 APP DISP TIME 200 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 BUCKLING ANALYSIS USING CIS2D8 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T05-03-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = BUCKLING ANALYSIS USING CIS2D8 ELEMENTS 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T05-03-1A 3 STRESS = ALL 4 DISP = ALL 5 OLOAD = ALL 6 SUBCASE 1 7 LABEL = STATIC SOLUTION 8 LOAD = 4 9 TEMP(LOAD)=3 10 SUBCASE 2 11 LABEL = BUCKLING SOLUTION 12 METHOD= 1 13 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 49, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 BUCKLING ANALYSIS USING CIS2D8 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T05-03-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CIS2D8 1 1 1 7 9 3 4 8 +C1 2- +C1 6 2 3 3- CIS2D8 2 1 7 13 15 9 10 14 +C2 4- +C2 12 8 3 5- CIS2D8 3 1 13 19 21 15 16 20 +C3 6- +C3 18 14 3 7- CIS2D8 4 1 19 25 27 21 22 26 +C4 8- +C4 24 20 3 9- CIS2D8 5 1 25 31 33 27 28 32 +C5 10- +C5 30 26 3 11- EIGB 1 INV 5. 10. 1 1 0 +EIGB 12- +EIGB MAX 13- FORCE 1 31 0 166.6667-1. 0. 0. 14- FORCE 1 32 0 666.6666-1. 0. 0. 15- FORCE 1 33 0 166.6667-1. 0. 0. 16- GRAV 2 5. 0. 1. 0. 17- GRDSET 3456 18- GRID 1 0. 0. 123456 19- GRID 2 0. .5 123456 20- GRID 3 0. 1. 123456 21- GRID 4 1. 0. 22- GRID 6 1. 1. 23- GRID 7 2. 0. 24- GRID 8 2. .5 25- GRID 9 2. 1. 26- GRID 10 3. 0. 27- GRID 12 3. 1. 28- GRID 13 4. 0. 29- GRID 14 4. .5 30- GRID 15 4. 1. 31- GRID 16 5. 0. 32- GRID 18 5. 1. 33- GRID 19 6. 0. 34- GRID 20 6. .5 35- GRID 21 6. 1. 36- GRID 22 7. 0. 37- GRID 24 7. 1. 38- GRID 25 8. 0. 39- GRID 26 8. .5 40- GRID 27 8. 1. 41- GRID 28 9. 0. 42- GRID 30 9. 1. 43- GRID 31 10. 0. 44- GRID 32 10. .5 45- GRID 33 10. 1. 46- LOAD 4 1. 1. 1 1. 2 47- MAT1 1 3.+7 .3 7.324-4 .001 5. 1 BUCKLING ANALYSIS USING CIS2D8 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T05-03-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- PIS2D8 1 1 .1 49- TEMPD 3 20. ENDDATA 1 BUCKLING ANALYSIS USING CIS2D8 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T05-03-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 8 PROFILE 156 MAX WAVEFRONT 8 AVG WAVEFRONT 5.571 RMS WAVEFRONT 5.868 RMS BANDWIDTH 5.868 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 8 PROFILE 156 MAX WAVEFRONT 8 AVG WAVEFRONT 5.571 RMS WAVEFRONT 5.868 RMS BANDWIDTH 5.868 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 8 8 PROFILE (P) 156 156 MAXIMUM WAVEFRONT (C-MAX) 8 8 AVERAGE WAVEFRONT (C-AVG) 5.571 5.571 RMS WAVEFRONT (C-RMS) 5.868 5.868 RMS BANDWITCH (B-RMS) 5.868 5.868 NUMBER OF GRID POINTS (N) 28 NUMBER OF ELEMENTS (NON-RIGID) 5 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 12 MINIMUM NODAL DEGREE 7 NUMBER OF UNIQUE EDGES 128 MATRIX DENSITY, PERCENT 36.224 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION IS2D8 ELEMENTS (ELEMENT TYPE 80) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -2.0645820E-15 1 BUCKLING ANALYSIS USING CIS2D8 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T05-03-1A 0 STATIC SOLUTION SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 4 G 1.622962E-02 -8.120386E-03 0.0 0.0 0.0 0.0 6 G 1.622911E-02 8.120960E-03 0.0 0.0 0.0 0.0 7 G 3.043082E-02 -6.760248E-03 0.0 0.0 0.0 0.0 8 G 3.060163E-02 1.034503E-06 0.0 0.0 0.0 0.0 9 G 3.042986E-02 6.762360E-03 0.0 0.0 0.0 0.0 10 G 4.532645E-02 -7.622790E-03 0.0 0.0 0.0 0.0 12 G 4.532513E-02 7.627225E-03 0.0 0.0 0.0 0.0 13 G 6.000895E-02 -7.467928E-03 0.0 0.0 0.0 0.0 14 G 5.998284E-02 3.694906E-06 0.0 0.0 0.0 0.0 15 G 6.000734E-02 7.475333E-03 0.0 0.0 0.0 0.0 16 G 7.468224E-02 -7.548220E-03 0.0 0.0 0.0 0.0 18 G 7.468044E-02 7.559077E-03 0.0 0.0 0.0 0.0 19 G 8.933464E-02 -7.533899E-03 0.0 0.0 0.0 0.0 20 G 8.934185E-02 7.323888E-06 0.0 0.0 0.0 0.0 21 G 8.933268E-02 7.548556E-03 0.0 0.0 0.0 0.0 22 G 1.040063E-01 -7.542063E-03 0.0 0.0 0.0 0.0 24 G 1.040043E-01 7.560754E-03 0.0 0.0 0.0 0.0 25 G 1.186756E-01 -7.537853E-03 0.0 0.0 0.0 0.0 26 G 1.186726E-01 1.143702E-05 0.0 0.0 0.0 0.0 27 G 1.186735E-01 7.560730E-03 0.0 0.0 0.0 0.0 28 G 1.333415E-01 -7.536254E-03 0.0 0.0 0.0 0.0 30 G 1.333394E-01 7.563390E-03 0.0 0.0 0.0 0.0 31 G 1.480072E-01 -7.534420E-03 0.0 0.0 0.0 0.0 32 G 1.480072E-01 1.571354E-05 0.0 0.0 0.0 0.0 33 G 1.480051E-01 7.565848E-03 0.0 0.0 0.0 0.0 1 BUCKLING ANALYSIS USING CIS2D8 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T05-03-1A 0 STATIC SOLUTION SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.071429E+04 -2.142858E+04 0.0 0.0 0.0 0.0 2 G -4.285715E+04 -3.662117E-03 0.0 0.0 0.0 0.0 3 G -1.071429E+04 2.142858E+04 0.0 0.0 0.0 0.0 4 G -7.812500E-04 -8.571430E+04 0.0 0.0 0.0 0.0 6 G 1.562500E-03 8.571430E+04 0.0 0.0 0.0 0.0 7 G -9.765625E-04 -4.285715E+04 0.0 0.0 0.0 0.0 8 G 0.0 -6.542983E-03 0.0 0.0 0.0 0.0 9 G -2.929688E-03 4.285716E+04 0.0 0.0 0.0 0.0 10 G -7.812500E-04 -8.571430E+04 0.0 0.0 0.0 0.0 12 G 1.562500E-03 8.571430E+04 0.0 0.0 0.0 0.0 13 G -9.765625E-04 -4.285715E+04 0.0 0.0 0.0 0.0 14 G 0.0 -6.542983E-03 0.0 0.0 0.0 0.0 15 G -2.929688E-03 4.285716E+04 0.0 0.0 0.0 0.0 16 G -7.812500E-04 -8.571430E+04 0.0 0.0 0.0 0.0 18 G 1.562500E-03 8.571430E+04 0.0 0.0 0.0 0.0 19 G -9.765625E-04 -4.285715E+04 0.0 0.0 0.0 0.0 20 G 0.0 -6.542983E-03 0.0 0.0 0.0 0.0 21 G -2.929688E-03 4.285716E+04 0.0 0.0 0.0 0.0 22 G -7.812500E-04 -8.571430E+04 0.0 0.0 0.0 0.0 24 G 1.562500E-03 8.571430E+04 0.0 0.0 0.0 0.0 25 G -9.765625E-04 -4.285715E+04 0.0 0.0 0.0 0.0 26 G 0.0 -6.542983E-03 0.0 0.0 0.0 0.0 27 G -2.929688E-03 4.285716E+04 0.0 0.0 0.0 0.0 28 G -7.812500E-04 -8.571430E+04 0.0 0.0 0.0 0.0 30 G 1.562500E-03 8.571430E+04 0.0 0.0 0.0 0.0 31 G 1.054762E+04 -2.142858E+04 0.0 0.0 0.0 0.0 32 G 4.219048E+04 -2.880867E-03 0.0 0.0 0.0 0.0 33 G 1.054762E+04 2.142858E+04 0.0 0.0 0.0 0.0 1 BUCKLING ANALYSIS USING CIS2D8 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T05-03-1A 0 STATIC SOLUTION SUBCASE 1 G R I D P O I N T S T R E S S E S F O R I S 2 D 8 E L E M E N T S ELEMENT NO.OF NO.OF GRID COORD. ID. GRID PTS. STRESSES POINT SYS ID. SIG-X SIG-Y TAU-XY 1 8 3 1 0 -7.4379E+04 -4.7231E+05 -1.4839E+05 7 0 -7.4382E+04 -6.6640E+04 7.8283E+04 9 0 -7.4395E+04 -6.6639E+04 -7.8282E+04 3 0 -7.4397E+04 -4.7232E+05 1.4839E+05 4 0 1.9378E+04 4.3052E+04 -3.5054E+04 8 0 -7.1565E+04 -6.5793E+04 4.2936E-01 6 0 1.9363E+04 4.3050E+04 3.5055E+04 2 0 -7.1565E+04 -4.7147E+05 4.0919E-01 2 8 3 7 0 -1.4540E+04 -4.8686E+04 -7.9277E+03 13 0 -1.4542E+04 -6.0655E+03 6.4699E+03 15 0 -1.4550E+04 -6.0660E+03 -6.4695E+03 9 0 -1.4551E+04 -4.8685E+04 7.9278E+03 10 0 -4.4818E+03 6.1540E+03 -7.2941E+02 14 0 -1.7786E+04 -7.0383E+03 5.9389E-01 12 0 -4.4916E+03 6.1546E+03 7.2981E+02 8 0 -1.7787E+04 -4.9658E+04 5.7371E-01 3 8 3 13 0 -1.0988E+04 -4.9995E+03 -2.6590E+03 19 0 -1.0989E+04 -8.2336E+02 1.0665E+03 21 0 -1.0993E+04 -8.2361E+02 -1.0657E+03 15 0 -1.0994E+04 -4.9994E+03 2.6585E+03 16 0 -1.0054E+04 2.0185E+02 -7.9604E+02 20 0 -1.0439E+04 -6.5801E+02 2.7277E-01 18 0 -1.0060E+04 2.0169E+02 7.9704E+02 14 0 -1.0439E+04 -4.8339E+03 3.3328E-01 4 8 3 19 0 -9.9686E+03 -5.1721E+02 1.9032E+02 25 0 -9.9689E+03 -3.3626E+01 3.4794E+00 27 0 -9.9722E+03 -3.3113E+01 -2.5594E+00 21 0 -9.9735E+03 -5.1742E+02 -1.8931E+02 22 0 -9.8464E+03 1.2999E+02 9.6759E+01 26 0 -1.0138E+04 -8.3805E+01 2.1687E-01 24 0 -9.8484E+03 1.3007E+02 -9.7051E+01 20 0 -1.0136E+04 -5.6728E+02 2.9756E-01 5 8 3 25 0 -1.0034E+04 -5.3253E+01 -1.0027E+02 31 0 -1.0033E+04 -1.9159E+00 4.5140E+01 33 0 -1.0034E+04 -2.3931E+00 -4.5388E+01 27 0 -1.0036E+04 -5.3313E+01 9.8891E+01 28 0 -1.0032E+04 -2.0271E+01 -2.5788E+01 32 0 -9.9853E+03 1.2219E+01 2.5413E-01 30 0 -1.0033E+04 -2.0271E+01 2.7788E+01 26 0 -9.9860E+03 -3.7969E+01 9.2760E-02 1 ROOTS BELOW 7.500000E+00 1 ROOTS BELOW 6.144206E+00 1 BUCKLING ANALYSIS USING CIS2D8 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T05-03-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 1 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 2 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 6 0 REASON FOR TERMINATION . . . . . . . . . . . 6* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* NO. OF ROOTS DESIRED WERE FOUND. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 BUCKLING ANALYSIS USING CIS2D8 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T05-03-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3308, LOWEST EIGENVALUE FOUND * * AS INDICATED BY THE STURM'S SEQUENCE OF THE DYNAMIC MATRIX * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 1 6.144206E+00 2.478751E+00 3.945054E-01 0.0 0.0 1 BUCKLING ANALYSIS USING CIS2D8 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T05-03-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.614421E+01 (CYCLIC FREQUENCY = 3.945054E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 0.0 0.0 0.0 0.0 0.0 0.0 3 G 0.0 0.0 0.0 0.0 0.0 0.0 4 G 1.142272E-02 1.143644E-02 0.0 0.0 0.0 0.0 6 G -1.142272E-02 1.143643E-02 0.0 0.0 0.0 0.0 7 G 2.401594E-02 4.746133E-02 0.0 0.0 0.0 0.0 8 G 4.186586E-09 4.628003E-02 0.0 0.0 0.0 0.0 9 G -2.401593E-02 4.746133E-02 0.0 0.0 0.0 0.0 10 G 3.548542E-02 1.072188E-01 0.0 0.0 0.0 0.0 12 G -3.548540E-02 1.072188E-01 0.0 0.0 0.0 0.0 13 G 4.618458E-02 1.893064E-01 0.0 0.0 0.0 0.0 14 G 1.536467E-08 1.886283E-01 0.0 0.0 0.0 0.0 15 G -4.618455E-02 1.893063E-01 0.0 0.0 0.0 0.0 16 G 5.533467E-02 2.914981E-01 0.0 0.0 0.0 0.0 18 G -5.533463E-02 2.914981E-01 0.0 0.0 0.0 0.0 19 G 6.347162E-02 4.110737E-01 0.0 0.0 0.0 0.0 20 G 3.167445E-08 4.105061E-01 0.0 0.0 0.0 0.0 21 G -6.347156E-02 4.110737E-01 0.0 0.0 0.0 0.0 22 G 6.972521E-02 5.451127E-01 0.0 0.0 0.0 0.0 24 G -6.972514E-02 5.451127E-01 0.0 0.0 0.0 0.0 25 G 7.462218E-02 6.903621E-01 0.0 0.0 0.0 0.0 26 G 3.522299E-08 6.900859E-01 0.0 0.0 0.0 0.0 27 G -7.462211E-02 6.903621E-01 0.0 0.0 0.0 0.0 28 G 7.728466E-02 8.432436E-01 0.0 0.0 0.0 0.0 30 G -7.728458E-02 8.432436E-01 0.0 0.0 0.0 0.0 31 G 7.847647E-02 1.000000E+00 0.0 0.0 0.0 0.0 32 G 5.245840E-08 9.999753E-01 0.0 0.0 0.0 0.0 33 G -7.847636E-02 1.000000E+00 0.0 0.0 0.0 0.0 1 BUCKLING ANALYSIS USING CIS2D8 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T05-03-1A 0 BUCKLING SOLUTION SUBCASE 2 EIGENVALUE = 0.614421E+01 (CYCLIC FREQUENCY = 3.945054E-01 HZ) G R I D P O I N T S T R E S S E S F O R I S 2 D 8 E L E M E N T S ELEMENT NO.OF NO.OF GRID COORD. ID. GRID PTS. STRESSES POINT SYS ID. SIG-X SIG-Y TAU-XY 1 8 3 1 0 3.5728E+05 1.0718E+05 -9.8976E+03 7 0 3.8772E+05 -2.5439E+04 3.3143E+03 9 0 -3.8772E+05 2.5441E+04 3.3146E+03 3 0 -3.5728E+05 -1.0718E+05 -9.8978E+03 4 0 3.7250E+05 4.0871E+04 1.0214E+04 8 0 8.3643E-02 -4.8486E-02 -3.5008E+03 6 0 -3.7250E+05 -4.0872E+04 1.0214E+04 2 0 2.3128E-02 1.2029E-02 -1.6713E+04 2 8 3 7 0 3.4408E+05 -3.8535E+04 6.4677E+03 13 0 3.1320E+05 1.2593E+04 1.0194E+04 15 0 -3.1320E+05 -1.2593E+04 1.0193E+04 9 0 -3.4408E+05 3.8530E+04 6.4680E+03 10 0 3.2864E+05 -1.2970E+04 -5.5734E+02 14 0 7.1300E-03 -5.2830E-01 1.3097E+04 12 0 -3.2864E+05 1.2971E+04 -5.5730E+02 8 0 -1.1390E-01 2.7856E-01 9.3715E+03 3 8 3 13 0 2.9153E+05 6.0868E+03 1.3046E+04 19 0 2.2910E+05 6.0880E+02 1.5280E+04 21 0 -2.2909E+05 -6.1117E+02 1.5281E+04 15 0 -2.9152E+05 -6.0919E+03 1.3045E+04 16 0 2.6031E+05 3.3579E+03 2.4737E+03 20 0 5.2252E-01 -7.5979E-02 1.5920E+04 18 0 -2.6031E+05 -3.3578E+03 2.4739E+03 14 0 -4.4572E-01 -7.5979E-02 1.3683E+04 4 8 3 19 0 2.0607E+05 -6.2916E+03 1.7198E+04 25 0 1.2815E+05 5.3079E+03 1.8582E+04 27 0 -1.2815E+05 -5.3076E+03 1.8581E+04 21 0 -2.0606E+05 6.2869E+03 1.7199E+04 22 0 1.6711E+05 -4.8972E+02 2.2367E+03 26 0 7.1814E-02 -8.0213E-01 2.0259E+04 24 0 -1.6711E+05 4.9660E+02 2.2365E+03 20 0 7.1731E-01 4.8886E-01 1.8881E+04 5 8 3 25 0 1.0110E+05 -2.8256E+03 1.9612E+04 31 0 1.4077E+04 1.2631E+03 2.0086E+04 33 0 -1.4069E+04 -1.2572E+03 2.0088E+04 27 0 -1.0108E+05 2.7974E+03 1.9612E+04 28 0 5.7582E+04 -7.7448E+02 2.8809E+03 32 0 -2.2609E-01 -1.6530E+00 2.1540E+04 30 0 -5.7581E+04 7.7471E+02 2.8806E+03 26 0 1.0649E+00 -3.6202E-01 2.1063E+04 * * * END OF JOB * * * 1 JOB TITLE = BUCKLING ANALYSIS USING CIS2D8 ELEMENTS DATE: 5/18/95 END TIME: 10:26:54 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t08021a.out ================================================ NASTRAN FILES = PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T08021A,NASTRAN APP DISP SOL 8 DIAG 14 TIME 50 $ 0*** $ ... READFILE FROM- COSDFVA $ COSMIC ALTERS FOR DIRECT FORCED VIBRATION ANALYSIS (COSDFVA) $ ALTER 3 $ INSERT FILE $ FILE UXVF=APPEND/PDT=APPEND/PD=APPEND $ $ PERFORM INITIAL ERROR CHECKS ON NSEGS AND KMAX. COND ERRORC1,NSEGS $ IF USER HAS NOT SPECIFIED NSEGS. COND ERRORC1,KMAX $ IF USER HAS NOT SPECIFIED KMAX. PARAM //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $ COND ERRORC1,CYCIOERR $ IF USER HAS NOT SPECIFIED CYCIO. PARAM //*DIV*/NSEG2 /V,Y,NSEGS /2 $ NSEG2 = NSEGS/2 PARAM //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $ COND ERRORC1,KMAXERR $ IF KMAX .GT. NSEGS/2 $ SET DEFAULTS FOR PARAMETERS. PARAM //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $ $ CALCULATE OMEGA, 2*OMEGA AND OMEGA**2 FROM RPS. SET DEFAULT RPS. PARAMR //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $ PARAMR //*MPY*/OMEGA2 /2.0 /OMEGA $ PARAMR //*MPY*/OMEGASQR /OMEGA /OMEGA $ $ GENERATE NORPS FLAG IF RPS IS ZERO. PARAMR //*EQ*//V,Y,RPS /0.0 ////NORPS $ $ MAKE SURE COUPLED MASSES HAVE NOT BEEN REQUESTED. PARAM //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $ COND ERRORC2,NOLUMP $ $ ALTER 21,21 $ ADD SLT TO OUTPUT FOR TRLG. DELETE GP3 $ GP3 GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $ $ ALTER 24 $ INSERT TA1,2 $ $ SINCE MULTIPLE CONSTRAINTS ARE NOT ALLOWED EXECUTE GP4 NOW SO THAT $ MORE ERROR CHECKS CAN BE MADE BEFORE ELEMENT GENERATION. $ ADD YS NEEDED FOR PSF RECOVERY IN SSG2. PARAM //*MPY*/NSKIP /0/0 $ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/ S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/ S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/C,Y,AUTOSPC $ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ $ SUPORT BULK DATA IS NOT ALLOWED. PARAM //*NOT*/REACDATA /REACT $ COND ERRORC3,REACDATA $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 $ EXECUTE DPD NOW SO CHECKS CAN BE MADE. ADD TRL TO OUTPUT DATA BLOCKS. DPD DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,, TRL,,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ S,N,NOFRL/NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $ $ MUST HAVE EITHER FREQ OR TSTEP BULK DATA. PARAM //*AND*/FTERR /NOFRL /NOTRL $ COND ERRORC5,FTERR $ NO FREQ OR TSTEP BULK DATA. $ ONLY FREQUENCY OR TSTEP IS ALLOWED IN THE CASE CONTROL PARAML CASECC //*TABLE1*/1/14//FREQSET $ PARAML CASECC //*TABLE1*/1/38//TIMESET $ PARAM //*MPY*/FREQTIME /FREQSET /TIMESET $ PARAM //*NOT*/FTERR1 /FREQTIME $ PARAM //*LE*/NOFREQ /FREQSET /0 $ PARAM //*LE*/NOTIME /TIMESET /0 $ COND ERRORC6,FTERR1 $ BOTH FREQ AND TSTEP IN CASE CONTROL DECK. $ EPOINT BULK DATA NOT ALLOWED PARAM //*NOT*/EXTRAPTS /NOUE $ COND ERRORC4,EXTRAPTS $ $ GENERATE DATA FOR CYCT2 MODULE. GPCYC GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $ COND ERRORC1,NOGO $ $ ALTER 34 $ INSERT EMA,1 $ $ PRE-PURGE DATA BLOCKS THAT WILL NOT BE GENERATED PARAM //*OR*/NOBM1 /NOMGG /NORPS $ PURGE B1GG,M1GG /NOBM1 $ PURGE M2GG,M2BASEXG /NOMGG $ $ ALTER 38 $ INSERT EMA(2),1 $ $ GENERATE DATA BLOCKS FRLX, B1GG, M1GG, M2GG AND BASEGX. $ GENERATE PARAMETERS FKMAX AND NOBASEX. FVRSTR1 CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG, PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/ V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/ V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA $ PARAML FRLX //*PRES*////NOFRLX $ COND LBLFRLX,NOFRLX $ EQUIV FRLX,FRL $ LABEL LBLFRLX $ $ ALTER 47 $ INSERT EMA(4),2 $ PARAM //*ADD*/NOBGG /NOBM1 /0 $ RESET NOBGG. $ ALTER 58 $ INSERT GPSTGEN $ $ REDEFINE BGG AND KGG. COND LBL11A,NOBM1 $ PARAMR //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 PARAMR //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $ PARAMR //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $ ADD BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $ EQUIV BGG1,BGG $ ADD KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $ EQUIV KGG1,KGG $ LABEL LBL11A $ ALTER 59,62 $ GP4 HAS BEEN MOVED-UP. DELETE GP4,-1,GP4,2 $ $ ALTER 87,87 $ DPD HAS BEEN MOVED-UP. DELETE DPD $ $ ALTER 112 $ PARAM AND EQUIV LOGIC DEPENDING ON LGKAD FOR FREQ/TRAN. INSERT GKAD,-3 $ PARAM //*AND*/KDEKA/NOUE/NOK2PP $ COND LGKAD1,LGKAD $ BRANCH IN NOT FREQRESP. $ ALTER 113 $ SEE ALTER 112 COMMENT. INSERT GKAD,-2 $ JUMP LGKAD2 $ LABEL LGKAD1 $ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ LABEL LGKAD2 $ $ ALTER 115,115 $ ADD PARAMETERS GKAD, W3 AND W4 TO GKAD. DELETE GKAD $ GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/ C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/ SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $ $ ALTER 116 $ SEE ALTER 112 COMMENT. INSERT GKAD,1 $ COND LGKAD3,LGKAD $ BRANCH IF NOT FREQRESP. $ ALTER 117 $ SEE ALTER 112 COMMENT. INSERT GKAD,2 $ JUMP LGKAD4 $ LABEL LGKAD3 $ EQUIV B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $ LABEL LGKAD4 $ $ ALTER 118,122 $ DELETE FRRD,-2,VDR $ $ NEW SOLUTION LOGIC $ GENERATE TIME-DEPENDENT LOADS IF TSTEP WAS REQUESTED IN CASE CONTROL. $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST. COND LBLTRL1,NOTIME $ $ LOOP THRU ALL SUBCASES FOR TIME-DEPENDENT LOADS. PARAM //*MPY*/REPEATT /1 /-1 $ PARAM //*ADD*/APPFLG /1 /0 $ INITIALIZE FOR SDR1. LABEL TRLGLOOP $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 CASE CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $ PARAM //*MPY*/NCOL /0 /1 $ TRLG CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ ,,PDT1,PD1,,TOL/ NOSET/NCOL $ SDR1 TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $ SDR1 TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $ PARAM //*ADD*/APPFLG /APPFLG /1 $ APPFLG=APPFLG+1. COND TRLGDONE,REPEATT $ REPT TRLGLOOP,100 $ JUMP ERROR3 $ LABEL TRLGDONE $ FVRSTR2 TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/ V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/ S,N,NORO2 $ EQUIV FRLZ,FRL // FOLZ,FOL $ JUMP LBLFRL2 $ LABEL LBLTRL1 $ $ GENERATE FREQUENCY-DEPENDENT LOADS IF FREQUENCY WAS SELECTED IN CC. FRLG CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM / *DIRECT*/FREQY/*FREQ* $ COND LBLFRLX1,NOFRLX $ ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED. MPYAD PPF,PDZERO, / PPFX /0 $ EQUIV PPFX,PPF $ LABEL LBLFRLX1 $ $ FORM NEW LOADS. COND LBLFRL1,NOBASEX $ MPYAD M2GG,BASEXG, / M2BASEXG /0 $ ADD PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $ EQUIV PPF1,PPF $ COND LBLBASE1,NOSET $ SSG2 USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $ EQUIV PSF1,PSF // PDF1,PDF $ LABEL LBLBASE1 $ LABEL LBLFRL1 $ EQUIV PPF,PDF/NOSET $ $ LOADS ARE FREQUENCY-DEPENDENT $ PERFORM CYCLIC TRANSFORMATION ON LOADS IF CYCIO=+1. PARAML PDF //*TRAILER*/1 /PDFCOLS $ $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=-1. PARAM //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX EQUIV PDF,PXF/CYCIO $ COND LBLPDONE,CYCIO $ $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=1. PARAM //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS CYCT1 PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1 /V,Y,KMAX=-1/ NLOAD /S,N,NOGO $ COND ERRORC1,NOGO $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 JUMP LBLPDONE $ LABEL LBLFRL2 $ $ LOADS ARE TIME-DEPENDENT PARAM //*NOT*/NOTCYCIO /V,Y,CYCIO $ $ BRANCH DEPENDING ON VALUE OF CYCIO COND LBLTRL2,NOTCYCIO $ $ CYCIO=-1 EQUIV PD,PDTRZ1/NORO1 $ COND LBLRO1A,NORO1 $ MPYAD PD,REORDER1, / PDTRZ1 / 0 $ LABEL LBLRO1A $ CYCT1 PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/ S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXTRZ1,PXFZ1/NORO2 $ COND LBLRO2A,NORO2 $ MPYAD PXTRZ1,REORDER2, / PXFZ1 /0 $ LABEL LBLRO2A $ EQUIV PXFZ1,PXF1 $ JUMP LBLTRL3 $ LABEL LBLTRL2 $ $ CYCIO = +1 MPYAD PD,REORDER1, / PDTRZ2 / 0 $ CYCT1 PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/ V,Y,NSEGS/S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXTRZ2,PXTR2/NORO2 $ COND LBLRO2B,NORO2 $ MPYAD PXTRZ2,REORDER2, / PXTR2 /0 $ LABEL LBLRO2B $ CYCT1 PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/ FLMAX/S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXFZ2,PXF1 $ LABEL LBLTRL3 $ $ TIME-DEPENDENT LOADS ARE REAL. MAKE LOADS COMPLEX TO CORRESPOND $ TO FREQUENCY DEPENDENT LOADS. ALSO SDR2 EXPECTS LOADS TO BE COMPLEX $ IN FREQRESP TYPE PROBLEMS. COPY PXF1 / PXF2 $ CONVERT REAL PXF1 TO COMPLEX PXF. ADD PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $ $ DEFINE NLOAD FOR CYCT2. PARAM //*ADD*/NLOAD /FLMAX /0 $ NLOAD = FLMAX LABEL LBLPDONE $ PARAM //*ADD*/KINDEX /V,Y,KMIN=0 /0 $ INTITIALIZE KINDEX. $ $ INITIALIZE UXVF IF KMIN IS NOT ZERO. $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 PARAM //*ADD*/KMINL /V,Y,KMIN /-1 $ COND NOKMINL,KMINL $ PARAM //*ADD*/KMINV /0 /0 $ LABEL KMINLOOP $ CYCT2 CYCDD,,,PXF,, /,,PKFZ,, /*FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/ S,N,NOGO $ COND ERRORC1,NOGO $ ADD PKFZ, / UKVFZ / (0.0,0.0) $ PRTPARM //0/*KINDEX* $ CYCT2 CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/ KMINV/CYCSEQ/NLOAD/S,N,NOGO $ PRTPARM //0/*KINDEX* $ COND ERRORC1,NOGO $ PARAM //*ADD*/KMINV /KMINV /1 $ REPT KMINLOOP,KMINL $ LABEL NOKMINL $ LABEL TOPCYC $ LOOP ON KINDEX COND NOKPRT,NOKPRT $ PRTPARM //0 /*KINDEX* $ LABEL NOKPRT $ CYCT2 CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/KINDEX/ CYCSEQ=-1/NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ CYCT2 CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/KINDEX/ CYCSEQ/NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ $ SOLUTION FRRD2 KKKF,BKKF,MKKF,,PKF,FOL / UKVF /0.0/0.0/-1.0 $ CYCT2 CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KINDEX/CYCSEQ/ NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ PARAM //*ADD*/KINDEX/KINDEX/1 $ KINDEX = KINDEX + 1 PARAM //*SUB*/DONE / V,Y,KMAX / KINDEX $ COND LCYC2,DONE $ IF KINDEX .GT. KMAX THEN EXIT REPT TOPCYC,100 $ JUMP ERROR3 $ LABEL LCYC2 $ EQUIV UXVF,UDVF / CYCIO $ COND LCYC3,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. CYCT1 UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ LABEL LCYC3 $ COND LBLTRL4,NOTIME $ EQUIV PXF,PDF2 / CYCIO $ COND LCYC4,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. CYCT1 PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ LABEL LCYC4 $ $ IF LOADS WERE TIME-DEPENDENT THEN RECOVER PPF AND PSF FROM PXF. 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 SDR1 USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $ SSG2 USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $ EQUIV PPFZ,PPF // PSFZ,PSF $ LABEL LBLTRL4 $ VDR CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $ $ ALTER 138,138 $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST. DELETE SDR2 $ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ $ ALTER 160 $ ADD LABEL FOR ERROR3. INSERT PLOT(2),4 $ LABEL ERROR3 $ $ ALTER 163,166 $ REMOVE ERROR1 AND ERROR2. DELETE PLOT(2),7,PLOT(2),10 $ $ ALTER 168 $ FORCED VIBRATION ERRORS INSERT END,-3 $ LABEL ERRORC1 $ CHECK NSEGS, KMAX AND OTHER CYCLIC DATA. PRTPARM //-5 /*CYCSTATICS* $ LABEL ERRORC2 $ COUPLED MASS NOT ALLOWED. PRTPARM //0 /C,Y,COUPMASS $ JUMP FINIS $ LABEL ERRORC3 $ SUPORT BULK DATA NOT ALLOWED. PRTPARM //-6 /*CYCSTATICS* $ LABEL ERRORC4 $ EPOINT BULK DATA NOT ALLOWED. PRTPARM //0 /*NOUE* $ JUMP FINIS $ LABEL ERRORC5 $ NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK. PRTPARM //0 /*NOFRL* $ PRTPARM //0 /*NOTRL* $ JUMP FINIS $ LABEL ERRORC6 $ BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL. PRTPARM //0 /*NOFREQ* $ PRTPARM //0 /*NOTIME* $ ENDALTER $ 0*** $ END READFILE $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T08-02-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T08-02-1A 3 $ 4 SPC = 30 5 FREQ = 1 6 OUTPUT 7 SET 1 = 8,16,18 8 SET 2 = 11 9 OLOAD = 1 10 DISP(SORT2,PHASE) = 1 11 STRESS(SORT2,PHASE) = 2 12 SUBCASE 1 13 LABEL = KINDEX 0 14 DLOAD = 1 $ FREQ DEPENDENT LOADS 15 $ AXIAL BASE ACCN LOADS VIA PARAM BXTID,BXPTID 16 SUBCASE 2 17 LABEL = KINDEX 1C 18 $ LATERAL BASE ACCN LOADS VIA PARAM BYTID 19 SUBCASE 3 20 LABEL = KINDEX 1S 21 $ LATERAL BASE ACCN LOADS VIA PARAM BZTID 22 SUBCASE 4 23 LABEL = KINDEX 2C 24 DLOAD = 1 $ FREQ DEPENDENT LOADS 25 SUBCASE 5 26 LABEL = KINDEX 2S 27 OUTPUT(XYPLOT) 28 PLOTTER NASTPLT D,0 29 XPAPER = 8.0 30 YPAPER = 10.5 31 XAXIS = YES 32 YAXIS = YES 33 XGRID LINES = YES 34 YGRID LINES = YES 35 CURVELINESYMBOL = 1 36 XTITLE = FREQUENCY (HERTZ) 37 YTITLE = GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH ) 38 YLOG = YES 39 TCURVE = 8(T3RM),18(T3RM) 40 XYPLOT,XYPRINT DISP RESPONSE 1 /8(T3RM),18(T3RM) 41 XYPLOT,XYPRINT DISP RESPONSE 2 /8(T3RM),18(T3RM) 42 XYPLOT,XYPRINT DISP RESPONSE 3 /8(T3RM),18(T3RM) 43 XYPLOT,XYPRINT DISP RESPONSE 4 /8(T3RM),18(T3RM) 44 YTITLE = GRID POINT DISPLACEMENTS ( PHASE,DEGREE ) 45 YLOG = NO 46 TCURVE = 8(T3IP),18(T3IP) 47 XYPLOT,XYPRINT DISP RESPONSE 2 /8(T3IP),18(T3IP) 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T08-02-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 48 YTITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) 49 YLOG = YES 50 TCURVE = 11(3),11(5),11(7),11(10),11(12),11(14) 51 XYPLOT,XYPRINT STRESS RESPONSE 1 /11(3),11(5),11(7), 52 11(10),11(12),11(14) 53 XYPLOT,XYPRINT STRESS RESPONSE 2 /11(3),11(5),11(7), 54 11(10),11(12),11(14) 55 XYPLOT,XYPRINT STRESS RESPONSE 3 /11(3),11(5),11(7), 56 11(10),11(12),11(14) 57 XYPLOT,XYPRINT STRESS RESPONSE 4 /11(3),11(5),11(7), 58 11(10),11(12),11(14) 59 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 70, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 0*** USER INFORMATION MESSAGE 207A, SIX CHARACTERS OF NASTRAN BCD NAME IN THE THIRD FIELD WERE USED DURING RE-ORDERING DECK 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T08-02-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2C 1 0.0 0.0 0.0 1.0 0.0 0.0 +COR12 2- +COR12 0.0 1.0 0.0 3- CQUAD2 4 2 2 3 7 6 4- CQUAD2 5 2 6 7 12 11 5- CQUAD2 6 2 3 4 8 7 6- CQUAD2 7 2 7 8 13 12 7- CQUAD2 8 2 4 5 9 8 8- CQUAD2 10 2 8 15 14 13 9- CQUAD2 11 3 9 16 18 15 10- CQUAD2 12 3 16 17 19 18 11- CTRIA2 1 1 1 6 10 12- CTRIA2 2 1 1 2 6 13- CTRIA2 3 1 10 6 11 14- CTRIA2 9 1 8 9 15 15- CYJOIN 1 1 2 3 4 5 16- CYJOIN 2 10 11 12 13 14 17- DAREA 1 8 3 -1.0 18- DAREA 1 16 3 1.0 19- DAREA 1 18 3 1.0 20- FREQ 1 1700.0 1750.0 1777.6 1795.7 1813.8541832.0 1850.1 +FR1 21- +FR1 1880.0 1920.0 22- GRDSET 1 1 23- GRID 1 2.0 30.0 0.0 24- GRID 2 3.1 30.0 0.0 25- GRID 3 4.3 30.0 0.0 26- GRID 4 5.2 30.0 0.0 27- GRID 5 7.1 30.0 0.0 28- GRID 6 3.1 45.0 0.0 29- GRID 7 4.3 45.0 0.0 30- GRID 8 5.2 45.0 0.0 31- GRID 9 7.1 40.0 0.0 32- GRID 10 2.0 60.0 0.0 33- GRID 11 3.1 60.0 0.0 34- GRID 12 4.3 60.0 0.0 35- GRID 13 5.2 60.0 0.0 36- GRID 14 7.1 60.0 0.0 37- GRID 15 7.1 50.0 0.0 38- GRID 16 8.5 40.0 -.25 39- GRID 17 9.7 40.0 -.50 40- GRID 18 8.5 50.0 0.25 41- GRID 19 9.7 50.0 0.50 42- MAT1 1 30.0+6 .3 7.4-4 43- PARAM BXPTID 9002 44- PARAM BXTID 9001 45- PARAM BYTID 9003 46- PARAM BZTID 9004 47- PARAM CYCIO -1 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T08-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- PARAM G .02 49- PARAM GKAD FREQRESP 50- PARAM KMAX 2 51- PARAM KMIN 0 52- PARAM LGKAD 1 53- PARAM NSEGS 12 54- PARAM RPS 600.0 55- PQUAD2 2 1 .25 56- PQUAD2 3 1 .125 57- PTRIA2 1 1 .25 58- RLOAD1 1 1 100 59- SPC1 30 6 1 THRU 19 60- SPC1 30 123456 1 10 61- TABLED1 100 +TBD1 62- +TBD1 0.0 1.0 1000.0 1.0 ENDT 63- TABLED1 9001 +TAB11 64- +TAB11 1000. 0.0 2000.0 1000.0 ENDT 65- TABLED1 9002 +TAB21 66- +TAB21 1000. -180. 2000.0 0.0 ENDT 67- TABLED1 9003 +TAB31 68- +TAB31 1000. 1000.0 2000.0 1000.0 ENDT 69- TABLED1 9004 +TAB41 70- +TAB41 1000. 500.0 2000.0 500.0 ENDT ENDDATA 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T08-02-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $ 2 PRECHK ALL $ 3 FILE KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $ 3 FILE UXVF=APPEND/PDT=APPEND/PD=APPEND $ 3 COND ERRORC1,NSEGS $ IF USER HAS NOT SPECIFIED NSEGS. 3 COND ERRORC1,KMAX $ IF USER HAS NOT SPECIFIED KMAX. 3 PARAM //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $ 3 COND ERRORC1,CYCIOERR $ IF USER HAS NOT SPECIFIED CYCIO. 3 PARAM //*DIV*/NSEG2 /V,Y,NSEGS /2 $ NSEG2 = NSEGS/2 3 PARAM //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $ 3 COND ERRORC1,KMAXERR $ IF KMAX .GT. NSEGS/2 3 PARAM //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $ 3 PARAMR //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $ 3 PARAMR //*MPY*/OMEGA2 /2.0 /OMEGA $ 3 PARAMR //*MPY*/OMEGASQR /OMEGA /OMEGA $ 3 PARAMR //*EQ*//V,Y,RPS /0.0 ////NORPS $ 3 PARAM //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $ 3 COND ERRORC2,NOLUMP $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ 10 COND LBL5,NOGPDT $ 11 GP2 GEOM2,EQEXIN/ECT $ 12 PARAML PCDB//*PRES*////JUMPPLOT $ 13 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 14 COND P1,JUMPPLOT $ 15 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 16 PRTMSG PLTSETX// $ 17 PARAM //*MPY*/PLTFLG/1/1 $ 18 PARAM //*MPY*/PFILE/0/0 $ 19 COND P1,JUMPPLOT $ 20 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 21 PRTMSG PLOTX1//$ 22 LABEL P1 $ 23 GP3 GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $ 24 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 25 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 26 PURGE K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA, KGGX/NOSIMP $ 26 PARAM //*MPY*/NSKIP /0/0 $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 26 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/ S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/ S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/C,Y,AUTOSPC $ 26 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ 26 PARAM //*NOT*/REACDATA /REACT $ 26 COND ERRORC3,REACDATA $ 26 DPD DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,, TRL,,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ S,N,NOFRL/NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $ 26 PARAM //*AND*/FTERR /NOFRL /NOTRL $ 26 COND ERRORC5,FTERR $ NO FREQ OR TSTEP BULK DATA. 26 PARAML CASECC //*TABLE1*/1/14//FREQSET $ 26 PARAML CASECC //*TABLE1*/1/38//TIMESET $ 26 PARAM //*MPY*/FREQTIME /FREQSET /TIMESET $ 26 PARAM //*NOT*/FTERR1 /FREQTIME $ 26 PARAM //*LE*/NOFREQ /FREQSET /0 $ 26 PARAM //*LE*/NOTIME /TIMESET /0 $ 26 COND ERRORC6,FTERR1 $ BOTH FREQ AND TSTEP IN CASE CONTROL DECK. 26 PARAM //*NOT*/EXTRAPTS /NOUE $ 26 COND ERRORC4,EXTRAPTS $ 26 GPCYC GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $ 26 COND ERRORC1,NOGO $ 27 COND LBL1,NOSIMP $ 28 PARAM //*ADD*/NOKGGX/1/0 $ 29 PARAM //*ADD*/NOMGG/1/0 $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 30 PARAM //*ADD*/NOBGG=-1/1/0 $ 31 PARAM //*ADD*/NOK4GG/1/0 $ 32 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 33 PURGE KGGX/NOKGGX/MGG/NOMGG $ 34 COND LBLKGGX,NOKGGX $ 35 EMA GPECT,KDICT,KELM/KGGX $ 36 LABEL LBLKGGX $ 36 PARAM //*OR*/NOBM1 /NOMGG /NORPS $ 36 PURGE B1GG,M1GG /NOBM1 $ 36 PURGE M2GG,M2BASEXG /NOMGG $ 37 COND LBLMGG,NOMGG $ 38 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 39 PURGE MDICT,MELM/ALWAYS $ 39 FVRSTR1 CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG, PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/ V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/ V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA $ 39 PARAML FRLX //*PRES*////NOFRLX $ 39 COND LBLFRLX,NOFRLX $ 39 EQUIV FRLX,FRL $ 39 LABEL LBLFRLX $ 40 LABEL LBLMGG $ 41 COND LBLBGG,NOBGG $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 EMA GPECT,BDICT,BELM/BGG $ 43 PURGE BDICT,BELM/ALWAYS $ 44 LABEL LBLBGG $ 45 COND LBLK4GG,NOK4GG $ 46 EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ 47 LABEL LBLK4GG $ 48 PURGE KDICT,KELM/ALWAYS $ 48 PARAM //*ADD*/NOBGG /NOBM1 /0 $ RESET NOBGG. 49 PURGE MNN,MFF,MAA/NOMGG $ 50 PURGE BNN,BFF,BAA/NOBGG $ 51 COND LBL1,GRDPNT $ 52 COND ERROR4,NOMGG $ 53 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 54 OFP OGPWG,,,,,//S,N,CARDNO $ 55 LABEL LBL1 $ 56 EQUIV KGGX,KGG/NOGENL $ 57 COND LBL11,NOGENL $ 58 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 59 LABEL LBL11 $ 60 GPSTGEN KGG,SIL/GPST $ 60 COND LBL11A,NOBM1 $ 60 PARAMR //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $ 60 PARAMR //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 60 PARAMR //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $ 60 ADD BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $ 60 EQUIV BGG1,BGG $ 60 ADD KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $ 60 EQUIV KGG1,KGG $ 60 LABEL LBL11A 65 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ 66 COND LBL2,MPCF1 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 EQUIV MFF,MAA/OMIT $ 76 EQUIV BFF,BAA/OMIT $ 77 EQUIV K4FF,K4AA/OMIT $ 78 COND LBL5,OMIT $ 79 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 80 COND LBLM,NOMGG $ 81 SMP2 USET,GO,MFF/MAA $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 82 LABEL LBLM $ 83 COND LBLB,NOBGG $ 84 SMP2 USET,GO,BFF/BAA $ 85 LABEL LBLB $ 86 COND LBL5,NOK4GG $ 87 SMP2 USET,GO,K4FF/K4AA $ 88 LABEL LBL5 $ 90 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 91 PARAM //*ADD*/NEVER/1/0 $ 92 PARAM //*MPY*/REPEATF/-1/1 $ 93 BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ 94 PARAM //*AND*/NOFL/NOABFL/NOKBFL $ 95 PURGE KBFL/NOKBFL/ ABFL/NOABFL $ 96 COND LBL13,NOFL $ 97 MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ 98 LABEL LBL13 $ 99 PURGE OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ 100 CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ 101 MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ 102 PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ 103 PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 104 EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ 105 COND LBLFL2,NOFL $ 106 ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ 107 COND LBLFL2,NOABFL $ 108 TRNSP ABFL/ABFLT $ 109 ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ 110 LABEL LBLFL2 $ 111 PARAM //*AND*/BDEBA/NOUE/NOB2PP $ 112 PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ 113 PARAM //*AND*/MDEMA/NOUE/NOM2PP $ 114 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 114 PARAM //*AND*/KDEKA/NOUE/NOK2PP $ 114 COND LGKAD1,LGKAD $ BRANCH IN NOT FREQRESP. 115 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ MAA,MDD/MDEMA/BAA,BDD/BDEBA $ 115 JUMP LGKAD2 $ 115 LABEL LGKAD1 $ 115 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ 115 LABEL LGKAD2 $ 116 COND LBL18,NOGPDT $ 117 GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/ C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/ SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $ 118 LABEL LBL18 $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 118 COND LGKAD3,LGKAD $ BRANCH IF NOT FREQRESP. 119 EQUIV B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $ 119 JUMP LGKAD4 $ 119 LABEL LGKAD3 $ 119 EQUIV B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $ 119 LABEL LGKAD4 $ 124 COND LBLTRL1,NOTIME $ 124 PARAM //*MPY*/REPEATT /1 /-1 $ 124 PARAM //*ADD*/APPFLG /1 /0 $ INITIALIZE FOR SDR1. 124 LABEL TRLGLOOP $ 124 CASE CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $ 124 PARAM //*MPY*/NCOL /0 /1 $ 124 TRLG CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ ,,PDT1,PD1,,TOL/ NOSET/NCOL $ 124 SDR1 TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $ 124 SDR1 TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $ 124 PARAM //*ADD*/APPFLG /APPFLG /1 $ APPFLG=APPFLG+1. 124 COND TRLGDONE,REPEATT $ 124 REPT TRLGLOOP,100 $ 124 JUMP ERROR3 $ 124 LABEL TRLGDONE $ 124 FVRSTR2 TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/ V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/ S,N,NORO2 $ 124 EQUIV FRLZ,FRL // FOLZ,FOL $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 JUMP LBLFRL2 $ 124 LABEL LBLTRL1 $ 124 FRLG CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM / *DIRECT*/FREQY/*FREQ* $ 124 COND LBLFRLX1,NOFRLX $ ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED. 124 MPYAD PPF,PDZERO, / PPFX /0 $ 124 EQUIV PPFX,PPF $ 124 LABEL LBLFRLX1 $ 124 COND LBLFRL1,NOBASEX $ 124 MPYAD M2GG,BASEXG, / M2BASEXG /0 $ 124 ADD PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $ 124 EQUIV PPF1,PPF $ 124 COND LBLBASE1,NOSET $ 124 SSG2 USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $ 124 EQUIV PSF1,PSF // PDF1,PDF $ 124 LABEL LBLBASE1 $ 124 LABEL LBLFRL1 $ 124 EQUIV PPF,PDF/NOSET $ 124 PARAML PDF //*TRAILER*/1 /PDFCOLS $ 124 PARAM //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX 124 EQUIV PDF,PXF/CYCIO $ 124 COND LBLPDONE,CYCIO $ 124 PARAM //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS 124 CYCT1 PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1 /V,Y,KMAX=-1/ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T08-02-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NLOAD /S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 JUMP LBLPDONE $ 124 LABEL LBLFRL2 $ 124 PARAM //*NOT*/NOTCYCIO /V,Y,CYCIO $ 124 COND LBLTRL2,NOTCYCIO $ 124 EQUIV PD,PDTRZ1/NORO1 $ 124 COND LBLRO1A,NORO1 $ 124 MPYAD PD,REORDER1, / PDTRZ1 / 0 $ 124 LABEL LBLRO1A $ 124 CYCT1 PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/ S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 EQUIV PXTRZ1,PXFZ1/NORO2 $ 124 COND LBLRO2A,NORO2 $ 124 MPYAD PXTRZ1,REORDER2, / PXFZ1 /0 $ 124 LABEL LBLRO2A $ 124 EQUIV PXFZ1,PXF1 $ 124 JUMP LBLTRL3 $ 124 LABEL LBLTRL2 $ 124 MPYAD PD,REORDER1, / PDTRZ2 / 0 $ 124 CYCT1 PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/ V,Y,NSEGS/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 EQUIV PXTRZ2,PXTR2/NORO2 $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 COND LBLRO2B,NORO2 $ 124 MPYAD PXTRZ2,REORDER2, / PXTR2 /0 $ 124 LABEL LBLRO2B $ 124 CYCT1 PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/ FLMAX/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 EQUIV PXFZ2,PXF1 $ 124 LABEL LBLTRL3 $ 124 COPY PXF1 / PXF2 $ CONVERT REAL PXF1 TO COMPLEX PXF. 124 ADD PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $ 124 PARAM //*ADD*/NLOAD /FLMAX /0 $ NLOAD = FLMAX 124 LABEL LBLPDONE $ 124 PARAM //*ADD*/KINDEX /V,Y,KMIN=0 /0 $ INTITIALIZE KINDEX. 124 PARAM //*ADD*/KMINL /V,Y,KMIN /-1 $ 124 COND NOKMINL,KMINL $ 124 PARAM //*ADD*/KMINV /0 /0 $ 124 LABEL KMINLOOP $ 124 CYCT2 CYCDD,,,PXF,, /,,PKFZ,, /*FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/ S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 ADD PKFZ, / UKVFZ / (0.0,0.0) $ 124 PRTPARM //0/*KINDEX* $ 124 CYCT2 CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/ KMINV/CYCSEQ/NLOAD/S,N,NOGO $ 124 PRTPARM //0/*KINDEX* $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 COND ERRORC1,NOGO $ 124 PARAM //*ADD*/KMINV /KMINV /1 $ 124 REPT KMINLOOP,KMINL $ 124 LABEL NOKMINL $ 124 LABEL TOPCYC $ LOOP ON KINDEX 124 COND NOKPRT,NOKPRT $ 124 PRTPARM //0 /*KINDEX* $ 124 LABEL NOKPRT $ 124 CYCT2 CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/KINDEX/ CYCSEQ=-1/NLOAD/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 CYCT2 CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/KINDEX/ CYCSEQ/NLOAD/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 FRRD2 KKKF,BKKF,MKKF,,PKF,FOL / UKVF /0.0/0.0/-1.0 $ 124 CYCT2 CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KINDEX/CYCSEQ/ NLOAD/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 PARAM //*ADD*/KINDEX/KINDEX/1 $ KINDEX = KINDEX + 1 124 PARAM //*SUB*/DONE / V,Y,KMAX / KINDEX $ 124 COND LCYC2,DONE $ IF KINDEX .GT. KMAX THEN EXIT 124 REPT TOPCYC,100 $ 124 JUMP ERROR3 $ 124 LABEL LCYC2 $ 124 EQUIV UXVF,UDVF / CYCIO $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 COND LCYC3,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. 124 CYCT1 UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ 124 LABEL LCYC3 $ 124 COND LBLTRL4,NOTIME $ 124 EQUIV PXF,PDF2 / CYCIO $ 124 COND LCYC4,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. 124 CYCT1 PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ 124 LABEL LCYC4 $ 124 SDR1 USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $ 124 SSG2 USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $ 124 EQUIV PPFZ,PPF // PSFZ,PSF $ 124 LABEL LBLTRL4 $ 124 VDR CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $ 125 COND LBL15,NOD $ 126 COND LBL15A,NOSORT2 $ 127 SDR3 OUDVC1,,,,,/OUDVC2,,,,, $ 128 OFP OUDVC2,,,,,//S,N,CARDNO $ 129 XYTRAN XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/ S,N,CARDNO $ 130 XYPLOT XYPLTFA// $ 131 JUMP LBL15 $ 132 LABEL LBL15A $ 133 OFP OUDVC1,,,,,//S,N,CARDNO $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 134 LABEL LBL15 $ 135 COND LBL20,NOP $ 136 EQUIV UDVF,UPVC/NOA $ 137 COND LBL19,NOA $ 138 SDR1 USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ 139 LABEL LBL19 $ 140 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ 141 COND LBL17,NOSORT2 $ 142 SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2, OEFC2, $ 143 OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $ 144 XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ 145 XYPLOT XYPLTF// $ 146 COND LBL16,NOPSDL $ 147 RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ 148 COND LBL16,NORD $ 149 XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ 150 XYPLOT XYPLTR// $ 151 JUMP LBL16 $ 152 LABEL LBL17 $ 153 PURGE PSDF/NOSORT2 $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 154 OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $ 155 LABEL LBL16 $ 156 PURGE PSDF/NOPSDL $ 157 COND LBL20,JUMPPLOT $ 158 PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1, GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ 159 PRTMSG PLOTX2// $ 160 LABEL LBL20 $ 161 COND FINIS,REPEATF $ 162 REPT LBL13,100 $ 162 LABEL ERROR3 $ 163 PRTPARM //-3/*DIRFRRD* $ 164 JUMP FINIS $ 169 LABEL ERROR4 $ 170 PRTPARM //-4/*DIRFRRD* $ 170 LABEL ERRORC1 $ CHECK NSEGS, KMAX AND OTHER CYCLIC DATA. 170 PRTPARM //-5 /*CYCSTATICS* $ 170 LABEL ERRORC2 $ COUPLED MASS NOT ALLOWED. 170 PRTPARM //0 /C,Y,COUPMASS $ 170 JUMP FINIS $ 170 LABEL ERRORC3 $ SUPORT BULK DATA NOT ALLOWED. 170 PRTPARM //-6 /*CYCSTATICS* $ 170 LABEL ERRORC4 $ EPOINT BULK DATA NOT ALLOWED. 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T08-02-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 170 PRTPARM //0 /*NOUE* $ 170 JUMP FINIS $ 170 LABEL ERRORC5 $ NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK. 170 PRTPARM //0 /*NOFRL* $ 170 PRTPARM //0 /*NOTRL* $ 170 JUMP FINIS $ 170 LABEL ERRORC6 $ BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL. 170 PRTPARM //0 /*NOFREQ* $ 170 PRTPARM //0 /*NOTIME* $ 171 LABEL FINIS $ 172 PURGE DUMMY/ALWAYS $ 173 END $ 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T08-02-1A 0 0 *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION ADD INSTRUCTION NO. 124 DATA BLOCK NAMED PXF ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION CYCT2 INSTRUCTION NO. 124 DATA BLOCK NAMED UXVF ALREADY APPEARED AS OUTPUT 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T08-02-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 10 PROFILE 102 MAX WAVEFRONT 9 AVG WAVEFRONT 5.368 RMS WAVEFRONT 5.777 RMS BANDWIDTH 6.035 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 6 PROFILE 78 MAX WAVEFRONT 6 AVG WAVEFRONT 4.105 RMS WAVEFRONT 4.267 RMS BANDWIDTH 4.267 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 10 6 PROFILE (P) 102 78 MAXIMUM WAVEFRONT (C-MAX) 9 6 AVERAGE WAVEFRONT (C-AVG) 5.368 4.105 RMS WAVEFRONT (C-RMS) 5.777 4.267 RMS BANDWITCH (B-RMS) 6.035 4.267 NUMBER OF GRID POINTS (N) 19 NUMBER OF ELEMENTS (NON-RIGID) 12 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 9 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 46 MATRIX DENSITY, PERCENT 30.748 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 5 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T08-02-1A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 3 3 6 4 9 SEQGP 5 12 6 4 7 7 8 10 SEQGP 9 13 10 2 11 5 12 8 SEQGP 13 11 14 14 15 15 16 16 SEQGP 17 18 18 17 19 19 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) RPS = 0.600000E+03 (INPUT) 4TH PARM = 0.628319E+01 (INPUT) OMEGA = 0.376991E+04 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) 3RD PARM = 0.200000E+01 (INPUT) OMEGA = 0.376991E+04 (INPUT) OMEGA2 = 0.753982E+04 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) OMEGA = 0.376991E+04 (INPUT) OMEGA = 0.376991E+04 (INPUT) OMEGASQR = 0.142122E+08 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = EQ (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) RPS = 0.600000E+03 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) NORPS = 0 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE CASECC RECORD 1 WORD 14 = + 1 = FREQSET 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE CASECC RECORD 1 WORD 38 = + 0 = TIMESET 0*** USER WARNING MESSAGE 4032 0NO COMPONENTS OF GRID POINTS 1 AND 10 WERE CONNECTED. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 4 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIA2 ELEMENTS (ELEMENT TYPE 17) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) OMEGA2 = 0.753982E+04 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) CMPLX1 = ( 0.753982E+04, 0.000000E+00) (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = SUB (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) 3RD PARM = 0.000000E+00 (INPUT) OMEGASQR = 0.142122E+08 (INPUT) MOMEGASQ = -0.142122E+08 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) MOMEGASQ = -0.142122E+08 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) CMPLX2 = (-0.142122E+08, 0.000000E+00) (OUTPUT) 0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON 103, FROM ( 29, 5), TO ( 29, 135) 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TRAILER - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) + 135 = PDFCOLS 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T08-02-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E KINDEX 0.000000E+00 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE 3028 B = 13 BBAR = 21 C = 11 CBAR = 1 R = 33 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 65) TIME ESTIMATE = 0 SECONDS 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T08-02-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E KINDEX 1 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 44 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 45 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 46 NASTRAN TEST PROBLEM NO. T08-02-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E KINDEX 2 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 47 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 48 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 49 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 50 NASTRAN TEST PROBLEM NO. T08-02-1A 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 51 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 -1.169306E+00 0.0 0.0 0.0 0.0 0.0 2.330303E-01 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 -1.218224E+00 0.0 0.0 0.0 0.0 0.0 2.182242E-01 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 -1.244998E+00 0.0 0.0 0.0 0.0 0.0 2.058113E-01 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 -1.262265E+00 0.0 0.0 0.0 0.0 0.0 1.960137E-01 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 -1.279240E+00 0.0 0.0 0.0 0.0 0.0 1.848692E-01 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 -1.295771E+00 0.0 0.0 0.0 0.0 0.0 1.724193E-01 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 52 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 -1.311729E+00 0.0 0.0 0.0 0.0 0.0 1.587104E-01 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 -1.336680E+00 0.0 0.0 0.0 0.0 0.0 1.333012E-01 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 -1.366675E+00 0.0 0.0 0.0 0.0 0.0 9.414612E-02 0.0 0.0 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 53 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 9.614650E-01 0.0 0.0 0.0 0.0 0.0 5.303884E-02 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 9.503311E-01 0.0 0.0 0.0 0.0 0.0 4.966890E-02 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 9.442372E-01 0.0 0.0 0.0 0.0 0.0 4.684367E-02 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 9.403073E-01 0.0 0.0 0.0 0.0 0.0 4.461369E-02 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 9.364435E-01 0.0 0.0 0.0 0.0 0.0 4.207715E-02 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 9.326811E-01 0.0 0.0 0.0 0.0 0.0 3.924347E-02 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 54 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 9.290490E-01 0.0 0.0 0.0 0.0 0.0 3.612327E-02 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 9.233699E-01 0.0 0.0 0.0 0.0 0.0 3.034002E-02 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 9.165429E-01 0.0 0.0 0.0 0.0 0.0 2.142812E-02 0.0 0.0 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 55 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 9.614650E-01 0.0 0.0 0.0 0.0 0.0 5.303883E-02 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 9.503311E-01 0.0 0.0 0.0 0.0 0.0 4.966890E-02 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 9.442372E-01 0.0 0.0 0.0 0.0 0.0 4.684367E-02 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 9.403073E-01 0.0 0.0 0.0 0.0 0.0 4.461369E-02 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 9.364435E-01 0.0 0.0 0.0 0.0 0.0 4.207715E-02 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 9.326811E-01 0.0 0.0 0.0 0.0 0.0 3.924347E-02 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 56 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 9.290490E-01 0.0 0.0 0.0 0.0 0.0 3.612327E-02 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 9.233699E-01 0.0 0.0 0.0 0.0 0.0 3.034002E-02 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 9.165429E-01 0.0 0.0 0.0 0.0 0.0 2.142812E-02 0.0 0.0 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 57 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 0 1.150000E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 0 1.177600E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 0 1.195700E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 0 1.213854E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 0 1.232000E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 0 1.250100E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 0 1.280000E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 0 1.320000E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 58 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 -2.909656E-01 -1.454828E-01 0.0 0.0 0.0 0.0 0 2.350000E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 -2.909656E-01 -1.454828E-01 0.0 0.0 0.0 0.0 0 2.377600E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 -2.909656E-01 -1.454828E-01 0.0 0.0 0.0 0.0 0 2.395700E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 -2.909656E-01 -1.454828E-01 0.0 0.0 0.0 0.0 0 2.413854E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 -2.909656E-01 -1.454828E-01 0.0 0.0 0.0 0.0 0 2.432000E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 -2.909656E-01 -1.454828E-01 0.0 0.0 0.0 0.0 0 2.450100E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 -2.909656E-01 -1.454828E-01 0.0 0.0 0.0 0.0 0 2.480000E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 -2.909656E-01 -1.454828E-01 0.0 0.0 0.0 0.0 0 2.520000E+03 G -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 -2.909656E-01 -1.454828E-01 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 59 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 0 1.150000E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 0 1.177600E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 0 1.195700E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 0 1.213854E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 0 1.232000E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 0 1.250100E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 0 1.280000E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 0 1.320000E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 60 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 -6.308724E-02 -3.875851E-02 0.0 0.0 0.0 0.0 0 2.350000E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 -6.308724E-02 -3.875851E-02 0.0 0.0 0.0 0.0 0 2.377600E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 -6.308724E-02 -3.875851E-02 0.0 0.0 0.0 0.0 0 2.395700E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 -6.308724E-02 -3.875851E-02 0.0 0.0 0.0 0.0 0 2.413854E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 -6.308724E-02 -3.875851E-02 0.0 0.0 0.0 0.0 0 2.432000E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 -6.308724E-02 -3.875851E-02 0.0 0.0 0.0 0.0 0 2.450100E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 -6.308724E-02 -3.875851E-02 0.0 0.0 0.0 0.0 0 2.480000E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 -6.308724E-02 -3.875851E-02 0.0 0.0 0.0 0.0 0 2.520000E+03 G -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 -6.308724E-02 -3.875851E-02 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 61 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 0 1.150000E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 0 1.177600E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 0 1.195700E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 0 1.213854E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 0 1.232000E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 0 1.250100E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 0 1.280000E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 0 1.320000E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 62 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 -6.885915E-02 -2.721469E-02 0.0 0.0 0.0 0.0 0 2.350000E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 -6.885915E-02 -2.721469E-02 0.0 0.0 0.0 0.0 0 2.377600E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 -6.885915E-02 -2.721469E-02 0.0 0.0 0.0 0.0 0 2.395700E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 -6.885915E-02 -2.721469E-02 0.0 0.0 0.0 0.0 0 2.413854E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 -6.885915E-02 -2.721469E-02 0.0 0.0 0.0 0.0 0 2.432000E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 -6.885915E-02 -2.721469E-02 0.0 0.0 0.0 0.0 0 2.450100E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 -6.885915E-02 -2.721469E-02 0.0 0.0 0.0 0.0 0 2.480000E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 -6.885915E-02 -2.721469E-02 0.0 0.0 0.0 0.0 0 2.520000E+03 G -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 -6.885915E-02 -2.721469E-02 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 63 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 1.454828E-01 -2.909656E-01 0.0 0.0 0.0 0.0 0 1.150000E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 1.454828E-01 -2.909656E-01 0.0 0.0 0.0 0.0 0 1.177600E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 1.454828E-01 -2.909656E-01 0.0 0.0 0.0 0.0 0 1.195700E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 1.454828E-01 -2.909656E-01 0.0 0.0 0.0 0.0 0 1.213854E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 1.454828E-01 -2.909656E-01 0.0 0.0 0.0 0.0 0 1.232000E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 1.454828E-01 -2.909656E-01 0.0 0.0 0.0 0.0 0 1.250100E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 1.454828E-01 -2.909656E-01 0.0 0.0 0.0 0.0 0 1.280000E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 1.454828E-01 -2.909656E-01 0.0 0.0 0.0 0.0 0 1.320000E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 1.454828E-01 -2.909656E-01 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 64 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 0 2.350000E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 0 2.377600E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 0 2.395700E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 0 2.413854E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 0 2.432000E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 0 2.450100E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 0 2.480000E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 0 2.520000E+03 G 2.909656E-01 1.454828E-01 0.0 0.0 0.0 0.0 -1.454828E-01 2.909656E-01 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 65 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 3.875851E-02 -6.308724E-02 0.0 0.0 0.0 0.0 0 1.150000E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 3.875851E-02 -6.308724E-02 0.0 0.0 0.0 0.0 0 1.177600E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 3.875851E-02 -6.308724E-02 0.0 0.0 0.0 0.0 0 1.195700E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 3.875851E-02 -6.308724E-02 0.0 0.0 0.0 0.0 0 1.213854E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 3.875851E-02 -6.308724E-02 0.0 0.0 0.0 0.0 0 1.232000E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 3.875851E-02 -6.308724E-02 0.0 0.0 0.0 0.0 0 1.250100E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 3.875851E-02 -6.308724E-02 0.0 0.0 0.0 0.0 0 1.280000E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 3.875851E-02 -6.308724E-02 0.0 0.0 0.0 0.0 0 1.320000E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 3.875851E-02 -6.308724E-02 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 66 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 0 2.350000E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 0 2.377600E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 0 2.395700E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 0 2.413854E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 0 2.432000E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 0 2.450100E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 0 2.480000E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 0 2.520000E+03 G 6.308724E-02 3.875851E-02 0.0 0.0 0.0 0.0 -3.875851E-02 6.308724E-02 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 67 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 2.721469E-02 -6.885915E-02 0.0 0.0 0.0 0.0 0 1.150000E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 2.721469E-02 -6.885915E-02 0.0 0.0 0.0 0.0 0 1.177600E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 2.721469E-02 -6.885915E-02 0.0 0.0 0.0 0.0 0 1.195700E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 2.721469E-02 -6.885915E-02 0.0 0.0 0.0 0.0 0 1.213854E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 2.721469E-02 -6.885915E-02 0.0 0.0 0.0 0.0 0 1.232000E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 2.721469E-02 -6.885915E-02 0.0 0.0 0.0 0.0 0 1.250100E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 2.721469E-02 -6.885915E-02 0.0 0.0 0.0 0.0 0 1.280000E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 2.721469E-02 -6.885915E-02 0.0 0.0 0.0 0.0 0 1.320000E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 2.721469E-02 -6.885915E-02 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 68 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 0 2.350000E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 0 2.377600E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 0 2.395700E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 0 2.413854E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 0 2.432000E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 0 2.450100E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 0 2.480000E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 0 2.520000E+03 G 6.885915E-02 2.721469E-02 0.0 0.0 0.0 0.0 -2.721469E-02 6.885915E-02 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 69 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 -1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 -1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 -1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 -1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 -1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 -1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 70 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 -1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 -1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 -1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 71 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 72 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 73 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 74 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 1.000000E+00 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 75 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 76 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 77 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 78 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 79 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 80 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 81 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 2.424325E-07 8.363305E-06 8.639661E-05 3.075304E-08 5.619773E-05 0.0 261.6340 171.9684 355.5160 273.1982 0.0553 0.0 0 1.750000E+03 G 1.860010E-07 6.471393E-06 6.480642E-05 1.079806E-08 4.222457E-05 0.0 256.9047 167.2236 354.0843 304.4858 359.4893 0.0 0 1.777600E+03 G 1.663967E-07 5.814563E-06 5.736462E-05 9.263068E-09 3.736040E-05 0.0 253.9531 164.2613 353.9924 347.3951 359.5886 0.0 0 1.795700E+03 G 1.558085E-07 5.459510E-06 5.347747E-05 1.134015E-08 3.481342E-05 0.0 251.5197 161.8192 354.1371 5.4296 359.7516 0.0 0 1.813854E+03 G 1.460442E-07 5.131105E-06 5.016476E-05 1.431768E-08 3.264558E-05 0.0 248.2738 158.5622 354.4302 11.8953 359.9821 0.0 0 1.832000E+03 G 1.358529E-07 4.785715E-06 4.733060E-05 1.773221E-08 3.080352E-05 0.0 243.4435 153.7159 354.8674 9.7661 0.2806 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 82 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 1.218834E-07 4.305363E-06 4.492821E-05 2.180446E-08 2.927513E-05 0.0 235.1080 145.3522 355.4460 358.0818 0.6452 0.0 0 1.880000E+03 G 3.966457E-08 1.412859E-06 4.201520E-05 3.063852E-08 2.760045E-05 0.0 198.6548 108.4993 356.1667 288.5382 0.4864 0.0 0 1.920000E+03 G 1.089133E-07 3.869082E-06 3.741213E-05 2.326981E-08 2.429434E-05 0.0 288.1748 198.5432 356.8951 140.3038 359.5853 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 83 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 1.976992E-06 1.616545E-05 7.707500E-05 2.315162E-05 7.064702E-05 0.0 186.0282 171.9955 182.5609 359.6121 179.0490 0.0 0 1.750000E+03 G 1.113656E-06 1.236549E-05 5.438523E-05 1.530644E-05 4.658323E-05 0.0 183.9929 166.9287 182.6042 359.0957 177.6087 0.0 0 1.777600E+03 G 7.547690E-07 1.103198E-05 4.605151E-05 1.263521E-05 3.844102E-05 0.0 182.9200 163.7899 182.9191 359.4199 177.4480 0.0 0 1.795700E+03 G 5.443819E-07 1.030671E-05 4.153080E-05 1.125895E-05 3.424234E-05 0.0 181.4758 161.2265 183.1595 359.7766 177.5435 0.0 0 1.813854E+03 G 3.462015E-07 9.634538E-06 3.755385E-05 1.010607E-05 3.070321E-05 0.0 177.3439 157.8354 183.3892 0.1778 177.8055 0.0 0 1.832000E+03 G 1.616343E-07 8.931779E-06 3.401520E-05 9.144161E-06 2.770997E-05 0.0 157.8233 152.8255 183.5561 0.4776 178.2676 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 84 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 1.539744E-07 7.975210E-06 3.080106E-05 8.347267E-06 2.520670E-05 0.0 63.1491 144.2191 183.5589 0.2574 179.0069 0.0 0 1.880000E+03 G 8.202896E-07 2.482764E-06 2.539598E-05 6.860002E-06 2.248719E-05 0.0 13.2954 105.0259 183.3447 354.9705 180.1762 0.0 0 1.920000E+03 G 9.893713E-07 7.138096E-06 2.044169E-05 4.715664E-06 1.826312E-05 0.0 332.1660 198.2297 187.2688 6.5799 178.3435 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 85 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 1.977734E-06 1.627384E-05 7.666240E-05 1.874301E-05 7.102449E-05 0.0 334.5277 172.0825 182.2459 177.8435 179.4975 0.0 0 1.750000E+03 G 1.176830E-06 1.242580E-05 5.403511E-05 1.226694E-05 4.682825E-05 0.0 321.4090 167.5303 181.9446 175.2202 178.3357 0.0 0 1.777600E+03 G 8.755891E-07 1.108048E-05 4.568585E-05 1.000703E-05 3.867179E-05 0.0 308.9793 164.6311 182.0835 174.3509 178.3260 0.0 0 1.795700E+03 G 7.281363E-07 1.035290E-05 4.113526E-05 8.808765E-06 3.448402E-05 0.0 296.7462 162.2038 182.2272 173.9899 178.5068 0.0 0 1.813854E+03 G 6.325300E-07 9.684300E-06 3.710805E-05 7.765075E-06 3.097487E-05 0.0 279.8666 158.9263 182.3984 173.8581 178.8233 0.0 0 1.832000E+03 G 6.095484E-07 8.994712E-06 3.349212E-05 6.836249E-06 2.803613E-05 0.0 258.6644 153.9924 182.6021 174.1469 179.2614 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 86 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 6.794783E-07 8.070358E-06 3.017711E-05 5.994406E-06 2.561253E-05 0.0 235.6514 145.3795 182.9062 175.4744 179.7608 0.0 0 1.880000E+03 G 9.333045E-07 2.727590E-06 2.537732E-05 5.329756E-06 2.256348E-05 0.0 188.7064 103.9118 185.0132 184.3384 179.0928 0.0 0 1.920000E+03 G 6.032836E-07 6.927224E-06 2.132619E-05 4.859112E-06 1.762783E-05 0.0 180.2805 200.7079 184.8214 173.9656 180.0521 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 87 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 6.614649E-07 1.304445E-06 8.380300E-07 1.506804E-07 6.528784E-08 0.0 115.2552 25.2497 205.0448 114.9757 198.6862 0.0 0 1.150000E+03 G 6.680307E-07 1.318732E-06 8.610437E-07 1.544406E-07 1.022277E-07 0.0 115.2413 25.2345 204.7680 114.6905 200.2718 0.0 0 1.177600E+03 G 6.718149E-07 1.326994E-06 8.819665E-07 1.580390E-07 1.250405E-07 0.0 115.2332 25.2256 204.6016 114.5190 200.6776 0.0 0 1.195700E+03 G 6.743620E-07 1.332568E-06 8.991777E-07 1.610460E-07 1.412564E-07 0.0 115.2277 25.2195 204.4855 114.3993 200.8470 0.0 0 1.213854E+03 G 6.769708E-07 1.338286E-06 9.194694E-07 1.646245E-07 1.587271E-07 0.0 115.2220 25.2132 204.3625 114.2723 200.9602 0.0 0 1.232000E+03 G 6.796351E-07 1.344135E-06 9.430638E-07 1.688167E-07 1.776061E-07 0.0 115.2161 25.2067 204.2317 114.1374 201.0273 0.0 0 1.250100E+03 G 6.823513E-07 1.350108E-06 9.702431E-07 1.736765E-07 1.980907E-07 0.0 115.2100 25.2000 204.0923 113.9935 201.0553 0.0 0 1.280000E+03 G 6.869738E-07 1.360297E-06 1.024304E-06 1.834119E-07 2.363383E-07 0.0 115.1994 25.1882 203.8382 113.7312 201.0278 0.0 0 1.320000E+03 G 6.934447E-07 1.374610E-06 1.118736E-06 2.005659E-07 2.988089E-07 0.0 115.1841 25.1711 203.4377 113.3177 200.8598 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 88 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 6.610402E-07 1.462121E-06 4.587445E-07 3.560288E-08 7.628075E-07 0.0 242.1137 331.7931 332.5031 101.8455 331.4779 0.0 0 2.350000E+03 G 6.683345E-07 1.495087E-06 4.603424E-07 5.451823E-08 7.985154E-07 0.0 242.1077 331.6166 331.2681 173.3324 331.2749 0.0 0 2.377600E+03 G 6.725086E-07 1.517455E-06 4.707461E-07 1.181478E-07 8.234118E-07 0.0 242.1185 331.3736 329.5980 187.1996 331.2332 0.0 0 2.395700E+03 G 6.753096E-07 1.534370E-06 4.834848E-07 2.011243E-07 8.427112E-07 0.0 242.1450 331.0209 327.2079 185.7122 331.2731 0.0 0 2.413854E+03 G 6.783876E-07 1.549464E-06 4.964548E-07 3.521959E-07 8.667871E-07 0.0 242.2121 330.2467 321.9307 174.1653 331.3725 0.0 0 2.432000E+03 G 6.828601E-07 1.537537E-06 4.627510E-07 5.687895E-07 8.993861E-07 0.0 242.3060 329.0302 311.8359 145.3975 331.1540 0.0 0 2.450100E+03 G 6.881171E-07 1.502680E-06 3.537681E-07 6.015404E-07 9.266086E-07 0.0 242.2136 329.5620 310.9633 107.7475 330.2035 0.0 0 2.480000E+03 G 6.936004E-07 1.523576E-06 3.324643E-07 4.241947E-07 9.621132E-07 0.0 242.0432 331.0936 325.5486 77.7006 329.5899 0.0 0 2.520000E+03 G 7.012131E-07 1.566765E-06 3.617205E-07 3.151700E-07 1.028869E-06 0.0 241.9726 331.4865 330.0752 66.2682 329.2840 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 89 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 1.039703E-06 2.286492E-06 1.630857E-06 3.987073E-07 4.581541E-07 0.0 94.7479 25.2091 35.7269 278.5689 244.4398 0.0 0 1.150000E+03 G 1.048319E-06 2.315309E-06 1.667093E-06 4.398046E-07 3.548936E-07 0.0 95.2758 25.0387 36.1027 274.1089 262.6212 0.0 0 1.177600E+03 G 1.053995E-06 2.332206E-06 1.695980E-06 4.644644E-07 3.222108E-07 0.0 95.4912 24.9399 36.2603 271.9565 276.6320 0.0 0 1.195700E+03 G 1.058056E-06 2.343687E-06 1.718621E-06 4.815608E-07 3.133324E-07 0.0 95.6061 24.8725 36.3435 270.6288 287.0748 0.0 0 1.213854E+03 G 1.062395E-06 2.355533E-06 1.744492E-06 4.995598E-07 3.158023E-07 0.0 95.7015 24.8024 36.4104 269.3480 297.9216 0.0 0 1.232000E+03 G 1.066999E-06 2.367717E-06 1.773763E-06 5.185238E-07 3.300233E-07 0.0 95.7779 24.7295 36.4596 268.1064 308.4358 0.0 0 1.250100E+03 G 1.071858E-06 2.380226E-06 1.806664E-06 5.385523E-07 3.554923E-07 0.0 95.8356 24.6535 36.4903 266.8952 318.0161 0.0 0 1.280000E+03 G 1.080490E-06 2.401712E-06 1.870180E-06 5.745435E-07 4.199312E-07 0.0 95.8918 24.5190 36.4964 264.9249 331.1602 0.0 0 1.320000E+03 G 1.093289E-06 2.432206E-06 1.976808E-06 6.299794E-07 5.451797E-07 0.0 95.8907 24.3171 36.4039 262.2745 343.8212 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 90 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 1.096356E-06 2.803230E-06 2.435149E-06 1.181052E-06 8.999893E-07 0.0 281.1452 323.9625 347.5453 215.5564 176.3148 0.0 0 2.350000E+03 G 1.150183E-06 2.837579E-06 3.307334E-06 2.144033E-06 1.202910E-06 0.0 287.9105 319.5267 352.2862 211.2450 190.1938 0.0 0 2.377600E+03 G 1.228500E-06 2.794310E-06 4.323831E-06 3.301390E-06 1.674617E-06 0.0 294.3260 314.1967 353.9563 205.5187 196.0494 0.0 0 2.395700E+03 G 1.358101E-06 2.662010E-06 5.543980E-06 4.687724E-06 2.296242E-06 0.0 299.9128 307.7197 352.5686 197.9706 195.9454 0.0 0 2.413854E+03 G 1.671656E-06 2.228418E-06 7.656588E-06 7.092037E-06 3.429525E-06 0.0 303.9985 296.0732 344.7766 182.8254 187.7148 0.0 0 2.432000E+03 G 2.228216E-06 9.424634E-07 1.022390E-05 1.017618E-05 4.943312E-06 0.0 296.5919 288.2521 322.2943 151.8744 162.8804 0.0 0 2.450100E+03 G 2.320942E-06 1.390895E-06 9.389090E-06 9.770380E-06 4.825569E-06 0.0 278.9175 14.7426 292.5874 112.9110 129.1250 0.0 0 2.480000E+03 G 1.881704E-06 2.682228E-06 5.824315E-06 6.077453E-06 3.129747E-06 0.0 270.1738 356.7094 277.0540 81.8433 104.7636 0.0 0 2.520000E+03 G 1.692193E-06 3.093079E-06 4.275271E-06 3.998537E-06 2.194666E-06 0.0 272.8422 346.4265 282.9463 70.3283 99.1536 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 91 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 1.033026E-06 2.296960E-06 1.598584E-06 4.166756E-07 4.276977E-07 0.0 135.5474 25.2478 14.4872 308.8294 172.3153 0.0 0 1.150000E+03 G 1.042730E-06 2.326373E-06 1.634593E-06 4.538559E-07 3.088732E-07 0.0 134.9512 25.3774 13.7922 312.0202 153.6954 0.0 0 1.177600E+03 G 1.048946E-06 2.343686E-06 1.663268E-06 4.762125E-07 2.668381E-07 0.0 134.6978 25.4523 13.4433 313.5626 137.6851 0.0 0 1.195700E+03 G 1.053347E-06 2.355479E-06 1.685745E-06 4.917480E-07 2.531259E-07 0.0 134.5575 25.5033 13.2262 314.5124 124.8898 0.0 0 1.213854E+03 G 1.058018E-06 2.367673E-06 1.711433E-06 5.081387E-07 2.529362E-07 0.0 134.4360 25.5563 13.0168 315.4261 111.1594 0.0 0 1.232000E+03 G 1.062949E-06 2.380244E-06 1.740508E-06 5.254479E-07 2.670173E-07 0.0 134.3327 25.6115 12.8150 316.3081 97.8655 0.0 0 1.250100E+03 G 1.068135E-06 2.393185E-06 1.773207E-06 5.437723E-07 2.943138E-07 0.0 134.2471 25.6691 12.6205 317.1637 86.1202 0.0 0 1.280000E+03 G 1.077313E-06 2.415502E-06 1.836385E-06 5.768085E-07 3.636247E-07 0.0 134.1421 25.7711 12.3112 318.5412 70.9213 0.0 0 1.320000E+03 G 1.090897E-06 2.447407E-06 1.942612E-06 6.279395E-07 4.947682E-07 0.0 134.0699 25.9244 11.9126 320.3551 57.2373 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 92 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 9.903479E-07 2.997915E-06 1.962822E-06 1.151150E-06 5.613211E-07 0.0 204.7259 338.1962 302.8394 228.4837 121.8769 0.0 0 2.350000E+03 G 9.422312E-07 3.258121E-06 2.386404E-06 2.080749E-06 6.093550E-07 0.0 199.8574 340.7219 288.0290 221.7683 79.6464 0.0 0 2.377600E+03 G 8.537624E-07 3.565647E-06 2.821400E-06 3.204118E-06 9.013656E-07 0.0 195.8988 342.6983 272.1677 214.2578 46.3410 0.0 0 2.395700E+03 G 7.224627E-07 3.954446E-06 3.327664E-06 4.552686E-06 1.375167E-06 0.0 193.3282 343.5620 254.8898 205.4128 23.8443 0.0 0 2.413854E+03 G 4.638464E-07 4.668371E-06 4.211923E-06 6.895089E-06 2.305196E-06 0.0 200.6919 341.3988 226.3460 188.8864 357.3080 0.0 0 2.432000E+03 G 5.855297E-07 5.521366E-06 5.294276E-06 9.907125E-06 3.677189E-06 0.0 261.5529 329.2594 177.8044 156.4886 317.9102 0.0 0 2.450100E+03 G 1.252639E-06 5.006311E-06 4.900215E-06 9.527217E-06 3.892422E-06 0.0 248.5670 312.4536 118.6964 116.0283 272.5996 0.0 0 2.480000E+03 G 1.485802E-06 3.720783E-06 3.558113E-06 5.943835E-06 2.774781E-06 0.0 223.8022 310.0979 58.3710 82.3971 233.9494 0.0 0 2.520000E+03 G 1.507318E-06 3.371003E-06 3.278425E-06 3.927563E-06 2.095774E-06 0.0 211.6553 316.2438 23.6211 67.3306 215.5152 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 93 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 6.614649E-07 1.304445E-06 8.380300E-07 1.506804E-07 6.528784E-08 0.0 25.2552 295.2497 115.0449 24.9758 108.6862 0.0 0 1.150000E+03 G 6.680308E-07 1.318732E-06 8.610437E-07 1.544406E-07 1.022277E-07 0.0 25.2413 295.2345 114.7680 24.6905 110.2718 0.0 0 1.177600E+03 G 6.718149E-07 1.326994E-06 8.819665E-07 1.580390E-07 1.250405E-07 0.0 25.2332 295.2256 114.6016 24.5190 110.6776 0.0 0 1.195700E+03 G 6.743620E-07 1.332568E-06 8.991776E-07 1.610460E-07 1.412564E-07 0.0 25.2277 295.2195 114.4855 24.3993 110.8470 0.0 0 1.213854E+03 G 6.769709E-07 1.338286E-06 9.194694E-07 1.646245E-07 1.587271E-07 0.0 25.2220 295.2132 114.3625 24.2723 110.9602 0.0 0 1.232000E+03 G 6.796351E-07 1.344135E-06 9.430637E-07 1.688167E-07 1.776061E-07 0.0 25.2161 295.2067 114.2317 24.1374 111.0273 0.0 0 1.250100E+03 G 6.823514E-07 1.350108E-06 9.702431E-07 1.736765E-07 1.980906E-07 0.0 25.2100 295.2000 114.0923 23.9935 111.0553 0.0 0 1.280000E+03 G 6.869738E-07 1.360297E-06 1.024304E-06 1.834119E-07 2.363383E-07 0.0 25.1994 295.1882 113.8382 23.7312 111.0278 0.0 0 1.320000E+03 G 6.934447E-07 1.374610E-06 1.118736E-06 2.005659E-07 2.988089E-07 0.0 25.1841 295.1711 113.4376 23.3177 110.8598 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 94 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 6.610402E-07 1.462121E-06 4.587445E-07 3.560289E-08 7.628075E-07 0.0 332.1137 61.7931 62.5031 191.8455 61.4779 0.0 0 2.350000E+03 G 6.683344E-07 1.495087E-06 4.603424E-07 5.451824E-08 7.985154E-07 0.0 332.1077 61.6166 61.2681 263.3324 61.2749 0.0 0 2.377600E+03 G 6.725085E-07 1.517455E-06 4.707461E-07 1.181479E-07 8.234118E-07 0.0 332.1185 61.3736 59.5980 277.1996 61.2332 0.0 0 2.395700E+03 G 6.753096E-07 1.534370E-06 4.834848E-07 2.011243E-07 8.427112E-07 0.0 332.1450 61.0209 57.2079 275.7122 61.2731 0.0 0 2.413854E+03 G 6.783876E-07 1.549464E-06 4.964548E-07 3.521959E-07 8.667871E-07 0.0 332.2121 60.2467 51.9307 264.1653 61.3725 0.0 0 2.432000E+03 G 6.828601E-07 1.537537E-06 4.627510E-07 5.687895E-07 8.993861E-07 0.0 332.3060 59.0302 41.8359 235.3975 61.1540 0.0 0 2.450100E+03 G 6.881170E-07 1.502681E-06 3.537681E-07 6.015404E-07 9.266086E-07 0.0 332.2136 59.5620 40.9633 197.7475 60.2035 0.0 0 2.480000E+03 G 6.936004E-07 1.523576E-06 3.324643E-07 4.241947E-07 9.621132E-07 0.0 332.0432 61.0936 55.5486 167.7006 59.5899 0.0 0 2.520000E+03 G 7.012131E-07 1.566765E-06 3.617205E-07 3.151700E-07 1.028869E-06 0.0 331.9726 61.4865 60.0752 156.2682 59.2840 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 95 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 1.039703E-06 2.286492E-06 1.630857E-06 3.987073E-07 4.581541E-07 0.0 4.7479 295.2091 305.7269 188.5689 154.4398 0.0 0 1.150000E+03 G 1.048319E-06 2.315309E-06 1.667093E-06 4.398045E-07 3.548936E-07 0.0 5.2758 295.0387 306.1027 184.1089 172.6212 0.0 0 1.177600E+03 G 1.053995E-06 2.332206E-06 1.695980E-06 4.644644E-07 3.222108E-07 0.0 5.4912 294.9399 306.2603 181.9565 186.6320 0.0 0 1.195700E+03 G 1.058056E-06 2.343687E-06 1.718621E-06 4.815608E-07 3.133324E-07 0.0 5.6061 294.8725 306.3435 180.6288 197.0748 0.0 0 1.213854E+03 G 1.062395E-06 2.355533E-06 1.744492E-06 4.995598E-07 3.158023E-07 0.0 5.7015 294.8024 306.4104 179.3480 207.9216 0.0 0 1.232000E+03 G 1.066999E-06 2.367717E-06 1.773763E-06 5.185238E-07 3.300233E-07 0.0 5.7779 294.7295 306.4597 178.1065 218.4358 0.0 0 1.250100E+03 G 1.071858E-06 2.380226E-06 1.806664E-06 5.385523E-07 3.554923E-07 0.0 5.8356 294.6534 306.4903 176.8952 228.0161 0.0 0 1.280000E+03 G 1.080490E-06 2.401712E-06 1.870180E-06 5.745435E-07 4.199312E-07 0.0 5.8918 294.5190 306.4964 174.9249 241.1602 0.0 0 1.320000E+03 G 1.093289E-06 2.432206E-06 1.976808E-06 6.299794E-07 5.451798E-07 0.0 5.8907 294.3171 306.4039 172.2746 253.8212 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 96 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 1.096356E-06 2.803230E-06 2.435149E-06 1.181052E-06 8.999894E-07 0.0 11.1452 53.9625 77.5453 305.5564 266.3148 0.0 0 2.350000E+03 G 1.150183E-06 2.837579E-06 3.307335E-06 2.144033E-06 1.202910E-06 0.0 17.9105 49.5267 82.2862 301.2450 280.1938 0.0 0 2.377600E+03 G 1.228500E-06 2.794310E-06 4.323832E-06 3.301390E-06 1.674617E-06 0.0 24.3260 44.1967 83.9563 295.5187 286.0494 0.0 0 2.395700E+03 G 1.358101E-06 2.662010E-06 5.543980E-06 4.687724E-06 2.296242E-06 0.0 29.9128 37.7197 82.5686 287.9706 285.9454 0.0 0 2.413854E+03 G 1.671656E-06 2.228418E-06 7.656588E-06 7.092037E-06 3.429525E-06 0.0 33.9985 26.0732 74.7766 272.8254 277.7148 0.0 0 2.432000E+03 G 2.228217E-06 9.424634E-07 1.022390E-05 1.017618E-05 4.943312E-06 0.0 26.5919 18.2522 52.2943 241.8744 252.8804 0.0 0 2.450100E+03 G 2.320942E-06 1.390895E-06 9.389091E-06 9.770381E-06 4.825569E-06 0.0 8.9175 104.7426 22.5874 202.9110 219.1250 0.0 0 2.480000E+03 G 1.881704E-06 2.682228E-06 5.824315E-06 6.077454E-06 3.129747E-06 0.0 0.1738 86.7094 7.0540 171.8432 194.7636 0.0 0 2.520000E+03 G 1.692193E-06 3.093080E-06 4.275272E-06 3.998537E-06 2.194666E-06 0.0 2.8422 76.4265 12.9463 160.3283 189.1536 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 97 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 1.033026E-06 2.296960E-06 1.598584E-06 4.166756E-07 4.276977E-07 0.0 45.5474 295.2478 284.4872 218.8294 82.3153 0.0 0 1.150000E+03 G 1.042730E-06 2.326373E-06 1.634593E-06 4.538559E-07 3.088732E-07 0.0 44.9512 295.3774 283.7922 222.0202 63.6954 0.0 0 1.177600E+03 G 1.048946E-06 2.343686E-06 1.663268E-06 4.762125E-07 2.668382E-07 0.0 44.6978 295.4523 283.4433 223.5625 47.6851 0.0 0 1.195700E+03 G 1.053347E-06 2.355479E-06 1.685745E-06 4.917480E-07 2.531260E-07 0.0 44.5575 295.5033 283.2262 224.5124 34.8898 0.0 0 1.213854E+03 G 1.058018E-06 2.367673E-06 1.711433E-06 5.081387E-07 2.529362E-07 0.0 44.4360 295.5563 283.0168 225.4261 21.1594 0.0 0 1.232000E+03 G 1.062949E-06 2.380244E-06 1.740508E-06 5.254479E-07 2.670173E-07 0.0 44.3327 295.6115 282.8150 226.3081 7.8655 0.0 0 1.250100E+03 G 1.068135E-06 2.393185E-06 1.773207E-06 5.437723E-07 2.943138E-07 0.0 44.2471 295.6691 282.6205 227.1637 356.1202 0.0 0 1.280000E+03 G 1.077313E-06 2.415502E-06 1.836385E-06 5.768085E-07 3.636247E-07 0.0 44.1421 295.7711 282.3112 228.5412 340.9213 0.0 0 1.320000E+03 G 1.090897E-06 2.447407E-06 1.942612E-06 6.279395E-07 4.947682E-07 0.0 44.0699 295.9244 281.9126 230.3551 327.2373 0.0 0 1.700000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.750000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.777600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.795700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.832000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 98 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.880000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.920000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.300000E+03 G 9.903479E-07 2.997915E-06 1.962822E-06 1.151150E-06 5.613211E-07 0.0 294.7259 68.1962 32.8394 318.4836 211.8769 0.0 0 2.350000E+03 G 9.422312E-07 3.258121E-06 2.386403E-06 2.080749E-06 6.093550E-07 0.0 289.8574 70.7219 18.0290 311.7683 169.6464 0.0 0 2.377600E+03 G 8.537623E-07 3.565647E-06 2.821400E-06 3.204118E-06 9.013656E-07 0.0 285.8988 72.6983 2.1677 304.2578 136.3410 0.0 0 2.395700E+03 G 7.224626E-07 3.954446E-06 3.327664E-06 4.552686E-06 1.375167E-06 0.0 283.3282 73.5619 344.8898 295.4128 113.8443 0.0 0 2.413854E+03 G 4.638464E-07 4.668372E-06 4.211923E-06 6.895090E-06 2.305196E-06 0.0 290.6919 71.3988 316.3460 278.8864 87.3080 0.0 0 2.432000E+03 G 5.855297E-07 5.521366E-06 5.294276E-06 9.907125E-06 3.677189E-06 0.0 351.5529 59.2594 267.8044 246.4886 47.9102 0.0 0 2.450100E+03 G 1.252639E-06 5.006311E-06 4.900215E-06 9.527218E-06 3.892422E-06 0.0 338.5670 42.4536 208.6964 206.0282 2.5996 0.0 0 2.480000E+03 G 1.485801E-06 3.720783E-06 3.558114E-06 5.943836E-06 2.774781E-06 0.0 313.8022 40.0979 148.3710 172.3970 323.9494 0.0 0 2.520000E+03 G 1.507318E-06 3.371003E-06 3.278425E-06 3.927563E-06 2.095774E-06 0.0 301.6553 46.2438 113.6211 157.3306 305.5152 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 99 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 1.174404E-07 9.216423E-08 9.140210E-05 6.326524E-07 3.880847E-05 0.0 81.1428 351.4910 170.3992 255.0195 169.2649 0.0 0 1.750000E+03 G 1.871551E-07 1.500957E-07 1.599121E-04 1.845453E-06 7.191866E-05 0.0 74.3593 344.7120 162.9973 239.2494 161.8562 0.0 0 1.777600E+03 G 2.930354E-07 2.376881E-07 2.672584E-04 4.987352E-06 1.240075E-04 0.0 62.5079 333.4273 150.6840 214.2454 149.5418 0.0 0 1.795700E+03 G 4.445989E-07 3.661526E-07 4.262200E-04 1.240588E-05 2.018210E-04 0.0 40.5656 313.2509 128.4020 169.6367 127.2657 0.0 0 1.813854E+03 G 5.233921E-07 4.700779E-07 5.321302E-04 1.896156E-05 2.572004E-04 0.0 351.6050 265.6357 79.0191 70.0870 77.8881 0.0 0 1.832000E+03 G 3.217614E-07 3.044080E-07 3.494571E-04 7.850150E-06 1.723578E-04 0.0 313.1172 223.9699 39.8597 351.4150 38.7112 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 100 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 1.920985E-07 1.860998E-07 2.248057E-04 3.131161E-06 1.131011E-04 0.0 298.2934 207.5255 24.2660 320.0626 23.1080 0.0 0 1.880000E+03 G 9.933256E-08 1.024835E-07 1.353439E-04 1.056562E-06 7.034354E-05 0.0 290.0172 197.5958 14.2766 299.5400 13.1106 0.0 0 1.920000E+03 G 4.766881E-08 5.729036E-08 8.680157E-05 3.832549E-07 4.709519E-05 0.0 288.9453 193.2731 9.0507 287.8826 7.8777 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 101 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 5.677301E-06 2.635854E-06 7.889604E-05 3.656077E-05 1.081107E-04 0.0 351.7191 4.0717 348.1230 168.6925 352.8285 0.0 0 1.750000E+03 G 9.900430E-06 4.510686E-06 1.437922E-04 5.813071E-05 1.703036E-04 0.0 345.2796 357.8994 341.2241 161.0558 345.5209 0.0 0 1.777600E+03 G 1.599969E-05 7.696907E-06 2.423045E-04 9.069330E-05 2.687008E-04 0.0 333.3829 347.6104 329.0088 148.0454 333.3269 0.0 0 1.795700E+03 G 2.438633E-05 1.338693E-05 3.837431E-04 1.337216E-04 4.135072E-04 0.0 311.5540 324.9854 306.8374 125.3830 311.1561 0.0 0 1.813854E+03 G 2.888635E-05 1.746594E-05 4.744195E-04 1.535504E-04 4.990043E-04 0.0 264.6787 263.7770 258.9039 80.8746 261.5365 0.0 0 1.832000E+03 G 1.855598E-05 9.295907E-06 3.165310E-04 1.038289E-04 3.139631E-04 0.0 226.9511 218.9538 220.5060 43.9504 222.1696 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 102 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 1.134607E-05 5.191631E-06 2.041242E-04 6.591264E-05 1.937226E-04 0.0 211.8949 205.4847 204.9299 27.7611 206.6252 0.0 0 1.880000E+03 G 5.993595E-06 2.669896E-06 1.214059E-04 3.739296E-05 1.090492E-04 0.0 203.4969 199.1262 195.0971 17.2716 196.7558 0.0 0 1.920000E+03 G 2.912873E-06 1.357264E-06 7.516897E-05 2.164046E-05 6.386180E-05 0.0 202.5929 198.6037 190.3019 12.0214 191.7087 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 103 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 5.472633E-06 3.009574E-06 7.757386E-05 2.966245E-05 1.092706E-04 0.0 167.7250 339.6931 350.4452 356.2615 352.0661 0.0 0 1.750000E+03 G 9.637372E-06 4.888785E-06 1.423139E-04 4.795662E-05 1.717453E-04 0.0 161.8136 331.9496 343.5142 349.4526 344.7461 0.0 0 1.777600E+03 G 1.582546E-05 7.455421E-06 2.424528E-04 7.783950E-05 2.700448E-04 0.0 150.6041 317.2739 331.6216 338.0650 332.4636 0.0 0 1.795700E+03 G 2.497741E-05 1.001526E-05 3.932370E-04 1.258710E-04 4.127121E-04 0.0 129.0490 292.3493 309.5671 315.9896 310.2645 0.0 0 1.813854E+03 G 3.060975E-05 9.684344E-06 4.976650E-04 1.581157E-04 4.946743E-04 0.0 78.6041 260.0081 259.1491 261.6761 261.3323 0.0 0 1.832000E+03 G 1.873961E-05 7.774793E-06 3.213101E-04 9.347103E-05 3.138980E-04 0.0 39.2113 228.6865 219.5710 220.1582 222.2901 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 104 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 1.123489E-05 5.110310E-06 2.044178E-04 5.603770E-05 1.942860E-04 0.0 24.6429 211.0804 204.3157 205.3453 206.6603 0.0 0 1.880000E+03 G 5.900006E-06 2.787552E-06 1.210464E-04 3.109384E-05 1.093672E-04 0.0 16.7203 200.1342 194.8407 196.4236 196.6919 0.0 0 1.920000E+03 G 2.882077E-06 1.389543E-06 7.505916E-05 1.800773E-05 6.388516E-05 0.0 15.8065 196.8079 190.2423 192.1291 191.5667 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 105 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 1.780735E-08 8.360929E-08 2.140864E-06 3.407651E-05 6.619650E-07 0.0 173.2896 261.3081 255.8090 350.4118 251.9602 0.0 0 1.750000E+03 G 2.555257E-08 1.335189E-07 5.586836E-06 5.954339E-05 2.139146E-06 0.0 167.5288 254.7386 240.7375 343.0360 236.9185 0.0 0 1.777600E+03 G 3.667999E-08 2.080189E-07 1.427634E-05 9.938507E-05 6.088732E-06 0.0 152.0956 243.8041 215.9257 330.7432 212.1418 0.0 0 1.795700E+03 G 5.033107E-08 3.170027E-07 3.432819E-05 1.583236E-04 1.566568E-05 0.0 114.4046 224.3591 171.3650 308.4811 167.6103 0.0 0 1.813854E+03 G 3.210475E-08 4.109602E-07 5.084448E-05 1.974441E-04 2.478310E-05 0.0 3.7810 177.3228 71.8017 259.1189 68.0795 0.0 0 1.832000E+03 G 1.796282E-08 2.647201E-07 2.045582E-05 1.294678E-04 1.063270E-05 0.0 218.4325 134.9222 353.0566 219.9667 349.3687 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 106 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 1.967199E-08 1.590877E-07 7.953066E-06 8.312602E-05 4.402733E-06 0.0 183.9468 118.2759 321.5774 204.3883 317.9225 0.0 0 1.880000E+03 G 2.155520E-08 8.478383E-08 2.589937E-06 4.985054E-05 1.589583E-06 0.0 175.3145 108.5263 300.7535 194.4352 297.1421 0.0 0 1.920000E+03 G 2.505519E-08 4.467984E-08 9.068008E-07 3.174947E-05 6.414943E-07 0.0 174.3613 104.9677 288.6519 189.2741 285.0497 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 107 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 1.554489E-06 5.960289E-06 1.829593E-05 2.301694E-05 4.144077E-06 0.0 351.4367 168.6996 351.1187 167.3951 165.5521 0.0 0 1.750000E+03 G 3.310605E-06 1.226966E-05 3.848717E-05 4.806402E-05 8.729379E-06 0.0 344.2343 161.1199 345.6857 160.5498 147.6948 0.0 0 1.777600E+03 G 6.338202E-06 2.235318E-05 7.403588E-05 8.943418E-05 1.460373E-05 0.0 333.0204 148.5540 335.5179 148.8957 119.7681 0.0 0 1.795700E+03 G 1.165667E-05 3.745592E-05 1.390328E-04 1.564907E-04 1.660982E-05 0.0 310.8500 126.1035 313.3394 126.7899 66.8483 0.0 0 1.813854E+03 G 1.667416E-05 4.905764E-05 1.997245E-04 2.135886E-04 1.572964E-05 0.0 253.8662 77.6617 253.7456 74.1390 186.4767 0.0 0 1.832000E+03 G 1.062973E-05 3.465989E-05 1.211497E-04 1.425170E-04 2.634501E-05 0.0 210.4304 39.0160 209.3275 33.4590 89.1119 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 108 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 6.961679E-06 2.381755E-05 7.688683E-05 9.551120E-05 2.064728E-05 0.0 195.4636 23.2572 195.1331 18.3581 54.8109 0.0 0 1.880000E+03 G 4.589374E-06 1.588549E-05 4.930142E-05 6.311801E-05 1.472395E-05 0.0 186.3626 13.0340 187.1717 8.9244 32.7609 0.0 0 1.920000E+03 G 3.421365E-06 1.168061E-05 3.575720E-05 4.640652E-05 1.141577E-05 0.0 181.3173 7.6021 183.0964 3.9298 20.9138 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 109 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.100000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.150000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.177600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.195700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.213854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.232000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.250100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.280000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.320000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.700000E+03 G 1.540136E-06 5.966928E-06 1.791526E-05 2.296889E-05 4.617723E-06 0.0 342.2393 345.6925 163.1833 166.6622 345.6739 0.0 0 1.750000E+03 G 3.197286E-06 1.231696E-05 3.642353E-05 4.756088E-05 1.096315E-05 0.0 334.3333 338.3748 153.4598 158.7329 346.6693 0.0 0 1.777600E+03 G 5.729867E-06 2.261979E-05 6.385190E-05 8.642459E-05 2.468049E-05 0.0 320.4887 326.1994 137.9138 145.7308 341.0630 0.0 0 1.795700E+03 G 8.969903E-06 3.866266E-05 9.528207E-05 1.426941E-04 5.671450E-05 0.0 297.2229 303.9052 112.7819 123.0301 317.7153 0.0 0 1.813854E+03 G 1.092568E-05 5.164328E-05 1.057370E-04 1.839182E-04 9.396282E-05 0.0 258.1092 253.3236 78.6938 76.4493 244.9847 0.0 0 1.832000E+03 G 8.907736E-06 3.540904E-05 9.326600E-05 1.338870E-04 5.101912E-05 0.0 222.5956 213.6505 45.3832 38.5989 189.9543 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 110 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 1.850100E+03 G 6.461210E-06 2.401347E-05 6.886875E-05 9.324898E-05 2.888275E-05 0.0 205.2973 198.1803 26.9175 22.4782 174.6350 0.0 0 1.880000E+03 G 4.460614E-06 1.591862E-05 4.732356E-05 6.272853E-05 1.724920E-05 0.0 193.7993 188.2536 14.2301 11.8444 169.2489 0.0 0 1.920000E+03 G 3.376849E-06 1.167854E-05 3.516128E-05 4.641618E-05 1.245139E-05 0.0 187.8700 182.8984 7.4097 6.1208 168.2216 0.0 0 2.300000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.350000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.377600E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.395700E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.413854E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.432000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.450100E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.480000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 2.520000E+03 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 111 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 1.100000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.150000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.177600E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.195700E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.213854E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.232000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.250100E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.280000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.320000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.700000E+03 -6.250000E-02 2.206746E+02 / 357.9548 2.732868E+01 / 357.8962 1.650073E+01 / 2.7368 6.250000E-02 2.189872E+02 / 180.1396 3.008245E+01 / 182.1591 2.868217E+01 / 179.7310 0 1.750000E+03 -6.250000E-02 1.536927E+02 / 356.8354 1.886425E+01 / 357.1326 1.199822E+01 / 3.9464 6.250000E-02 1.529495E+02 / 179.0584 2.085057E+01 / 181.3178 2.007735E+01 / 178.2520 0 1.777600E+03 -6.250000E-02 1.306427E+02 / 356.7908 1.600668E+01 / 357.3502 1.054066E+01 / 5.2898 6.250000E-02 1.303023E+02 / 179.0242 1.773562E+01 / 181.3482 1.710206E+01 / 177.7671 0 1.795700E+03 -6.250000E-02 1.186236E+02 / 356.9272 1.454029E+01 / 357.7023 9.837273E+00 / 6.3832 6.250000E-02 1.185425E+02 / 179.1579 1.613786E+01 / 181.4708 1.553972E+01 / 177.4350 0 1.813854E+03 -6.250000E-02 1.083920E+02 / 357.1911 1.331561E+01 / 358.2417 9.310007E+00 / 7.6336 6.250000E-02 1.085929E+02 / 179.4023 1.480168E+01 / 181.6276 1.419090E+01 / 176.9753 0 1.832000E+03 -6.250000E-02 9.963435E+01 / 357.5984 1.230346E+01 / 359.0235 8.981041E+00 / 8.9686 6.250000E-02 1.001739E+02 / 179.7498 1.368515E+01 / 181.7447 1.299014E+01 / 176.1965 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 112 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 1.850100E+03 -6.250000E-02 9.217604E+01 / 358.1973 1.151697E+01 / 0.1417 8.942354E+00 / 9.9777 6.250000E-02 9.316235E+01 / 180.1695 1.275637E+01 / 181.6315 1.182377E+01 / 174.7031 0 1.880000E+03 -6.250000E-02 8.346830E+01 / 359.2763 1.110208E+01 / 0.6362 9.701082E+00 / 1.8314 6.250000E-02 8.457233E+01 / 179.8166 1.123373E+01 / 179.2905 8.747306E+00 / 172.4664 0 1.920000E+03 -6.250000E-02 7.118628E+01 / 358.4522 9.122073E+00 / 356.0922 6.217945E+00 / 355.9240 6.250000E-02 7.004842E+01 / 179.9334 9.193837E+00 / 183.4604 8.306042E+00 / 188.4296 0 2.300000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.350000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.377600E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.395700E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.413854E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.432000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.450100E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.480000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.520000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 113 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 1.100000E+03 -6.250000E-02 1.828214E+00 / 134.9916 1.477484E+00 / 318.8048 1.753927E+00 / 17.7263 6.250000E-02 1.359526E+00 / 119.1136 1.131759E+00 / 301.2357 1.932159E+00 / 49.6527 0 1.150000E+03 -6.250000E-02 1.988019E+00 / 143.4671 1.475464E+00 / 316.7348 1.757543E+00 / 17.3326 6.250000E-02 1.387727E+00 / 106.1946 1.151415E+00 / 304.2833 1.999065E+00 / 49.3613 0 1.177600E+03 -6.250000E-02 2.097739E+00 / 147.6281 1.475741E+00 / 315.6182 1.760344E+00 / 17.1007 6.250000E-02 1.431958E+00 / 99.2581 1.164131E+00 / 305.8940 2.037894E+00 / 49.2054 0 1.195700E+03 -6.250000E-02 2.178620E+00 / 150.1933 1.476313E+00 / 314.8835 1.762325E+00 / 16.9418 6.250000E-02 1.472436E+00 / 94.8173 1.173251E+00 / 306.9388 2.064333E+00 / 49.1027 0 1.213854E+03 -6.250000E-02 2.267515E+00 / 152.6535 1.477134E+00 / 314.1379 1.764339E+00 / 16.7762 6.250000E-02 1.522645E+00 / 90.4610 1.183087E+00 / 307.9870 2.091779E+00 / 48.9978 0 1.232000E+03 -6.250000E-02 2.364959E+00 / 155.0130 1.478134E+00 / 313.3769 1.766281E+00 / 16.6037 6.250000E-02 1.583076E+00 / 86.2109 1.193675E+00 / 309.0418 2.120280E+00 / 48.8899 0 1.250100E+03 -6.250000E-02 2.471748E+00 / 157.2791 1.479264E+00 / 312.5950 1.768050E+00 / 16.4240 6.250000E-02 1.654394E+00 / 82.0790 1.205099E+00 / 310.1095 2.149933E+00 / 48.7777 0 1.280000E+03 -6.250000E-02 2.672781E+00 / 160.8583 1.481259E+00 / 311.2306 1.770283E+00 / 16.1075 6.250000E-02 1.799413E+00 / 75.4913 1.226215E+00 / 311.9298 2.202106E+00 / 48.5783 0 1.320000E+03 -6.250000E-02 3.002931E+00 / 165.3817 1.483724E+00 / 309.1873 1.770860E+00 / 15.6380 6.250000E-02 2.057975E+00 / 67.1289 1.260174E+00 / 314.5421 2.279789E+00 / 48.2697 0 1.700000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.750000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.777600E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.795700E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.813854E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.832000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 114 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 1.850100E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.880000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.920000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.300000E+03 -6.250000E-02 1.073413E+00 / 293.9794 2.056587E+00 / 33.4681 2.741198E+00 / 314.3722 6.250000E-02 2.249190E+00 / 183.8678 1.957845E+00 / 56.6546 2.773755E+00 / 334.7196 0 2.350000E+03 -6.250000E-02 7.350791E-01 / 300.5406 2.038177E+00 / 35.3928 2.822576E+00 / 301.2126 6.250000E-02 2.272972E+00 / 190.5952 2.176751E+00 / 51.5875 3.382025E+00 / 343.0042 0 2.377600E+03 -6.250000E-02 4.882152E-01 / 329.0555 1.999464E+00 / 38.6548 2.883622E+00 / 285.1177 6.250000E-02 2.444479E+00 / 197.4639 2.381544E+00 / 45.5408 4.207928E+00 / 348.1032 0 2.395700E+03 -6.250000E-02 6.267024E-01 / 15.8307 1.983054E+00 / 43.6336 2.976949E+00 / 265.2467 6.250000E-02 2.787251E+00 / 202.8724 2.573132E+00 / 37.9888 5.295377E+00 / 349.5726 0 2.413854E+03 -6.250000E-02 1.459137E+00 / 30.6026 2.120771E+00 / 52.9900 3.271657E+00 / 228.6396 6.250000E-02 3.609152E+00 / 204.7806 2.770896E+00 / 23.2472 7.309336E+00 / 344.8131 0 2.432000E+03 -6.250000E-02 2.951956E+00 / 10.4741 2.824687E+00 / 57.7427 4.048505E+00 / 165.5146 6.250000E-02 4.953376E+00 / 192.3088 2.508172E+00 / 353.7670 9.959658E+00 / 324.9321 0 2.450100E+03 -6.250000E-02 3.589900E+00 / 336.2118 3.433469E+00 / 45.3705 4.482534E+00 / 96.9822 6.250000E-02 5.032765E+00 / 169.1423 1.135846E+00 / 320.6385 9.475514E+00 / 296.7399 0 2.480000E+03 -6.250000E-02 2.876008E+00 / 308.3363 3.273562E+00 / 33.0538 4.156112E+00 / 40.1355 6.250000E-02 3.744685E+00 / 154.8206 4.977689E-01 / 78.8906 6.235198E+00 / 280.7816 0 2.520000E+03 -6.250000E-02 2.292659E+00 / 298.0153 3.127081E+00 / 29.2630 4.036932E+00 / 14.5715 6.250000E-02 3.067878E+00 / 153.3237 1.161663E+00 / 78.6684 4.690766E+00 / 282.8702 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 115 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 1.100000E+03 -6.250000E-02 1.828213E+00 / 44.9916 1.477484E+00 / 228.8048 1.753927E+00 / 287.7263 6.250000E-02 1.359525E+00 / 29.1135 1.131759E+00 / 211.2357 1.932159E+00 / 319.6526 0 1.150000E+03 -6.250000E-02 1.988019E+00 / 53.4671 1.475463E+00 / 226.7349 1.757543E+00 / 287.3326 6.250000E-02 1.387727E+00 / 16.1946 1.151414E+00 / 214.2833 1.999066E+00 / 319.3613 0 1.177600E+03 -6.250000E-02 2.097738E+00 / 57.6281 1.475740E+00 / 225.6181 1.760344E+00 / 287.1007 6.250000E-02 1.431958E+00 / 9.2581 1.164131E+00 / 215.8939 2.037894E+00 / 319.2054 0 1.195700E+03 -6.250000E-02 2.178620E+00 / 60.1933 1.476312E+00 / 224.8835 1.762326E+00 / 286.9418 6.250000E-02 1.472436E+00 / 4.8173 1.173250E+00 / 216.9389 2.064333E+00 / 319.1027 0 1.213854E+03 -6.250000E-02 2.267514E+00 / 62.6535 1.477134E+00 / 224.1379 1.764339E+00 / 286.7762 6.250000E-02 1.522646E+00 / 0.4610 1.183087E+00 / 217.9870 2.091779E+00 / 318.9978 0 1.232000E+03 -6.250000E-02 2.364960E+00 / 65.0130 1.478136E+00 / 223.3768 1.766281E+00 / 286.6037 6.250000E-02 1.583076E+00 / 356.2109 1.193677E+00 / 219.0417 2.120279E+00 / 318.8899 0 1.250100E+03 -6.250000E-02 2.471748E+00 / 67.2792 1.479265E+00 / 222.5950 1.768051E+00 / 286.4240 6.250000E-02 1.654393E+00 / 352.0790 1.205100E+00 / 220.1094 2.149934E+00 / 318.7777 0 1.280000E+03 -6.250000E-02 2.672781E+00 / 70.8583 1.481260E+00 / 221.2306 1.770283E+00 / 286.1075 6.250000E-02 1.799413E+00 / 345.4913 1.226215E+00 / 221.9298 2.202106E+00 / 318.5783 0 1.320000E+03 -6.250000E-02 3.002931E+00 / 75.3817 1.483724E+00 / 219.1873 1.770860E+00 / 285.6379 6.250000E-02 2.057973E+00 / 337.1289 1.260174E+00 / 224.5421 2.279789E+00 / 318.2697 0 1.700000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.750000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.777600E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.795700E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.813854E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.832000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 116 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 1.850100E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.880000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.920000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.300000E+03 -6.250000E-02 1.073413E+00 / 23.9794 2.056586E+00 / 123.4681 2.741199E+00 / 44.3722 6.250000E-02 2.249189E+00 / 273.8678 1.957844E+00 / 146.6546 2.773756E+00 / 64.7196 0 2.350000E+03 -6.250000E-02 7.350781E-01 / 30.5404 2.038175E+00 / 125.3928 2.822577E+00 / 31.2126 6.250000E-02 2.272974E+00 / 280.5952 2.176749E+00 / 141.5875 3.382025E+00 / 73.0042 0 2.377600E+03 -6.250000E-02 4.882156E-01 / 59.0554 1.999461E+00 / 128.6548 2.883621E+00 / 15.1177 6.250000E-02 2.444479E+00 / 287.4640 2.381542E+00 / 135.5409 4.207928E+00 / 78.1032 0 2.395700E+03 -6.250000E-02 6.267023E-01 / 105.8307 1.983050E+00 / 133.6336 2.976948E+00 / 355.2467 6.250000E-02 2.787251E+00 / 292.8724 2.573129E+00 / 127.9888 5.295378E+00 / 79.5726 0 2.413854E+03 -6.250000E-02 1.459137E+00 / 120.6026 2.120771E+00 / 142.9899 3.271656E+00 / 318.6396 6.250000E-02 3.609152E+00 / 294.7806 2.770899E+00 / 113.2471 7.309339E+00 / 74.8131 0 2.432000E+03 -6.250000E-02 2.951958E+00 / 100.4741 2.824686E+00 / 147.7428 4.048505E+00 / 255.5146 6.250000E-02 4.953375E+00 / 282.3088 2.508170E+00 / 83.7669 9.959657E+00 / 54.9321 0 2.450100E+03 -6.250000E-02 3.589900E+00 / 66.2118 3.433470E+00 / 135.3705 4.482536E+00 / 186.9822 6.250000E-02 5.032765E+00 / 259.1423 1.135843E+00 / 50.6386 9.475514E+00 / 26.7399 0 2.480000E+03 -6.250000E-02 2.876011E+00 / 38.3363 3.273559E+00 / 123.0539 4.156113E+00 / 130.1355 6.250000E-02 3.744683E+00 / 244.8206 4.977681E-01 / 168.8910 6.235198E+00 / 10.7817 0 2.520000E+03 -6.250000E-02 2.292657E+00 / 28.0152 3.127078E+00 / 119.2629 4.036932E+00 / 104.5715 6.250000E-02 3.067879E+00 / 243.3237 1.161660E+00 / 168.6685 4.690767E+00 / 12.8702 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 117 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 1.100000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.150000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.177600E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.195700E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.213854E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.232000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.250100E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.280000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.320000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.700000E+03 -6.250000E-02 2.817143E+02 / 170.5973 4.053678E+01 / 170.6489 1.743522E+01 / 166.5086 6.250000E-02 2.778417E+02 / 352.4720 4.413295E+01 / 352.2794 3.563684E+01 / 350.6381 0 1.750000E+03 -6.250000E-02 4.664189E+02 / 163.2428 6.622318E+01 / 163.2379 2.959514E+01 / 158.9650 6.250000E-02 4.601888E+02 / 345.0610 7.192551E+01 / 344.9261 5.857209E+01 / 343.3699 0 1.777600E+03 -6.250000E-02 7.562914E+02 / 150.9893 1.066149E+02 / 150.9248 4.861847E+01 / 146.1366 6.250000E-02 7.465438E+02 / 332.7607 1.155281E+02 / 332.6324 9.388234E+01 / 330.9586 0 1.795700E+03 -6.250000E-02 1.182826E+03 / 128.7809 1.656887E+02 / 128.7027 7.536248E+01 / 123.5048 6.250000E-02 1.168279E+03 / 310.5100 1.793023E+02 / 310.4124 1.439402E+02 / 308.7191 0 1.813854E+03 -6.250000E-02 1.450054E+03 / 79.4350 2.020014E+02 / 79.6817 9.126247E+01 / 77.0086 6.250000E-02 1.433033E+03 / 261.0794 2.182739E+02 / 261.2639 1.729657E+02 / 261.1077 0 1.832000E+03 -6.250000E-02 9.334911E+02 / 40.2432 1.302787E+02 / 40.6220 6.267014E+01 / 39.3142 6.250000E-02 9.224543E+02 / 221.8181 1.401064E+02 / 222.0947 1.131941E+02 / 222.6774 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 118 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 1.850100E+03 -6.250000E-02 5.883337E+02 / 24.6823 8.206145E+01 / 25.0166 4.129694E+01 / 23.2689 6.250000E-02 5.815434E+02 / 206.1973 8.783842E+01 / 206.4401 7.142776E+01 / 206.9068 0 1.880000E+03 -6.250000E-02 3.423826E+02 / 14.7949 4.763166E+01 / 15.1012 2.546400E+01 / 12.6772 6.250000E-02 3.387245E+02 / 196.1855 5.055602E+01 / 196.4043 4.102967E+01 / 196.8115 0 1.920000E+03 -6.250000E-02 2.095921E+02 / 9.7593 2.905444E+01 / 10.1026 1.690720E+01 / 6.8762 6.250000E-02 2.076866E+02 / 190.9309 3.039595E+01 / 191.1423 2.437536E+01 / 191.6573 0 2.300000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.350000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.377600E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.395700E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.413854E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.432000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.450100E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.480000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.520000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 119 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 1.100000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.150000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.177600E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.195700E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.213854E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.232000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.250100E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.280000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.320000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 1.700000E+03 -6.250000E-02 2.138816E+00 / 292.8717 1.978294E+00 / 163.5224 7.660756E+00 / 169.3074 6.250000E-02 3.279183E+00 / 133.5918 4.625420E-01 / 292.7547 7.764153E+00 / 346.4962 0 1.750000E+03 -6.250000E-02 7.949481E+00 / 253.9012 4.192850E+00 / 167.9975 1.677563E+01 / 162.6611 6.250000E-02 8.955834E+00 / 94.7426 1.741231E+00 / 344.7083 1.697071E+01 / 340.5355 0 1.777600E+03 -6.250000E-02 2.570746E+01 / 217.3599 9.204542E+00 / 164.1997 3.229364E+01 / 151.2604 6.250000E-02 2.482221E+01 / 51.5362 5.842542E+00 / 347.2167 3.307615E+01 / 330.0369 0 1.795700E+03 -6.250000E-02 7.311846E+01 / 165.7806 2.121174E+01 / 140.5517 5.843008E+01 / 129.0563 6.250000E-02 6.647840E+01 / 353.4985 1.702474E+01 / 321.2145 6.193951E+01 / 308.1901 0 1.813854E+03 -6.250000E-02 1.293944E+02 / 59.7604 3.459561E+01 / 65.4872 8.189013E+01 / 74.6917 6.250000E-02 1.156690E+02 / 240.6218 3.205518E+01 / 240.7489 9.004471E+01 / 250.6463 0 1.832000E+03 -6.250000E-02 6.272584E+01 / 335.1705 1.776093E+01 / 8.4008 5.429327E+01 / 33.4020 6.250000E-02 5.722831E+01 / 149.9564 1.741392E+01 / 179.8127 5.726308E+01 / 206.9608 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 120 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2S SUBCASE 5 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 1.850100E+03 -6.250000E-02 2.959370E+01 / 298.4788 9.422755E+00 / 352.6216 3.666021E+01 / 18.6443 6.250000E-02 2.818832E+01 / 108.5854 9.543056E+00 / 163.2357 3.755928E+01 / 192.3364 0 1.880000E+03 -6.250000E-02 1.346610E+01 / 270.3850 5.160745E+00 / 348.0357 2.485717E+01 / 9.6027 6.250000E-02 1.398183E+01 / 75.7532 5.639787E+00 / 160.2827 2.500720E+01 / 183.8253 0 1.920000E+03 -6.250000E-02 7.594226E+00 / 251.0701 3.425541E+00 / 348.4281 1.901733E+01 / 4.8621 6.250000E-02 8.722034E+00 / 54.0280 4.273268E+00 / 163.1073 1.895605E+01 / 179.4235 0 2.300000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.350000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.377600E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.395700E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.413854E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.432000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.450100E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.480000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 0 2.520000E+03 -6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 6.250000E-02 0.0 / 0.0 0.0 / 0.0 0.0 / 0.0 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 121 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 8( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 1 OF WHOLE FRAME 1 CURVE TITLE = 8(T3RM),18(T3RM) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 8.639661E-05 AT X = 1.700000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 8.639661E-05 AT X = 1.700000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 122 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 DISPLACEMENT CURVE ID = 8 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 8.639661E-05 11 1.750000E+03 6.480642E-05 12 1.777600E+03 5.736462E-05 13 1.795700E+03 5.347747E-05 14 1.813854E+03 5.016476E-05 15 1.832000E+03 4.733060E-05 16 1.850100E+03 4.492821E-05 17 1.880000E+03 4.201520E-05 18 1.920000E+03 3.741213E-05 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 123 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE DISPLACEMENT CURVE 18( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 2 OF WHOLE FRAME 1 CURVE TITLE = 8(T3RM),18(T3RM) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 7.666240E-05 AT X = 1.700000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 7.666240E-05 AT X = 1.700000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 124 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 DISPLACEMENT CURVE ID = 18 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 7.666240E-05 11 1.750000E+03 5.403511E-05 12 1.777600E+03 4.568585E-05 13 1.795700E+03 4.113526E-05 14 1.813854E+03 3.710805E-05 15 1.832000E+03 3.349212E-05 16 1.850100E+03 3.017711E-05 17 1.880000E+03 2.537732E-05 18 1.920000E+03 2.132619E-05 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 125 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 X Y - O U T P U T S U M M A R Y SUBCASE 2 RESPONSE DISPLACEMENT CURVE 8( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 1 OF WHOLE FRAME 2 CURVE TITLE = 8(T3RM),18(T3RM) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 1.118736E-06 AT X = 1.320000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 1.118736E-06 AT X = 1.320000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 126 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 DISPLACEMENT CURVE ID = 8 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 8.380300E-07 2 1.150000E+03 8.610437E-07 3 1.177600E+03 8.819665E-07 4 1.195700E+03 8.991777E-07 5 1.213854E+03 9.194694E-07 6 1.232000E+03 9.430638E-07 7 1.250100E+03 9.702431E-07 8 1.280000E+03 1.024304E-06 9 1.320000E+03 1.118736E-06 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 4.587445E-07 20 2.350000E+03 4.603424E-07 21 2.377600E+03 4.707461E-07 22 2.395700E+03 4.834848E-07 23 2.413854E+03 4.964548E-07 24 2.432000E+03 4.627510E-07 25 2.450100E+03 3.537681E-07 26 2.480000E+03 3.324643E-07 27 2.520000E+03 3.617205E-07 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 127 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 X Y - O U T P U T S U M M A R Y SUBCASE 2 RESPONSE DISPLACEMENT CURVE 18( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 2 OF WHOLE FRAME 2 CURVE TITLE = 8(T3RM),18(T3RM) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 5.294276E-06 AT X = 2.432000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 5.294276E-06 AT X = 2.432000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 128 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 DISPLACEMENT CURVE ID = 18 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.598584E-06 2 1.150000E+03 1.634593E-06 3 1.177600E+03 1.663268E-06 4 1.195700E+03 1.685745E-06 5 1.213854E+03 1.711433E-06 6 1.232000E+03 1.740508E-06 7 1.250100E+03 1.773207E-06 8 1.280000E+03 1.836385E-06 9 1.320000E+03 1.942612E-06 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 1.962822E-06 20 2.350000E+03 2.386404E-06 21 2.377600E+03 2.821400E-06 22 2.395700E+03 3.327664E-06 23 2.413854E+03 4.211923E-06 24 2.432000E+03 5.294276E-06 25 2.450100E+03 4.900215E-06 26 2.480000E+03 3.558113E-06 27 2.520000E+03 3.278425E-06 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 129 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 X Y - O U T P U T S U M M A R Y SUBCASE 3 RESPONSE DISPLACEMENT CURVE 8( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 1 OF WHOLE FRAME 3 CURVE TITLE = 8(T3RM),18(T3RM) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 1.118736E-06 AT X = 1.320000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 1.118736E-06 AT X = 1.320000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 130 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 DISPLACEMENT CURVE ID = 8 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 8.380300E-07 2 1.150000E+03 8.610437E-07 3 1.177600E+03 8.819665E-07 4 1.195700E+03 8.991776E-07 5 1.213854E+03 9.194694E-07 6 1.232000E+03 9.430637E-07 7 1.250100E+03 9.702431E-07 8 1.280000E+03 1.024304E-06 9 1.320000E+03 1.118736E-06 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 4.587445E-07 20 2.350000E+03 4.603424E-07 21 2.377600E+03 4.707461E-07 22 2.395700E+03 4.834848E-07 23 2.413854E+03 4.964548E-07 24 2.432000E+03 4.627510E-07 25 2.450100E+03 3.537681E-07 26 2.480000E+03 3.324643E-07 27 2.520000E+03 3.617205E-07 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 131 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 X Y - O U T P U T S U M M A R Y SUBCASE 3 RESPONSE DISPLACEMENT CURVE 18( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 2 OF WHOLE FRAME 3 CURVE TITLE = 8(T3RM),18(T3RM) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 5.294276E-06 AT X = 2.432000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 5.294276E-06 AT X = 2.432000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 132 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 DISPLACEMENT CURVE ID = 18 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.598584E-06 2 1.150000E+03 1.634593E-06 3 1.177600E+03 1.663268E-06 4 1.195700E+03 1.685745E-06 5 1.213854E+03 1.711433E-06 6 1.232000E+03 1.740508E-06 7 1.250100E+03 1.773207E-06 8 1.280000E+03 1.836385E-06 9 1.320000E+03 1.942612E-06 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 1.962822E-06 20 2.350000E+03 2.386403E-06 21 2.377600E+03 2.821400E-06 22 2.395700E+03 3.327664E-06 23 2.413854E+03 4.211923E-06 24 2.432000E+03 5.294276E-06 25 2.450100E+03 4.900215E-06 26 2.480000E+03 3.558114E-06 27 2.520000E+03 3.278425E-06 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 133 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 X Y - O U T P U T S U M M A R Y SUBCASE 4 RESPONSE DISPLACEMENT CURVE 8( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 1 OF WHOLE FRAME 4 CURVE TITLE = 8(T3RM),18(T3RM) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 5.321302E-04 AT X = 1.813854E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 5.321302E-04 AT X = 1.813854E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 134 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 DISPLACEMENT CURVE ID = 8 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 9.140210E-05 11 1.750000E+03 1.599121E-04 12 1.777600E+03 2.672584E-04 13 1.795700E+03 4.262200E-04 14 1.813854E+03 5.321302E-04 15 1.832000E+03 3.494571E-04 16 1.850100E+03 2.248057E-04 17 1.880000E+03 1.353439E-04 18 1.920000E+03 8.680157E-05 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 135 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 X Y - O U T P U T S U M M A R Y SUBCASE 4 RESPONSE DISPLACEMENT CURVE 18( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 2 OF WHOLE FRAME 4 CURVE TITLE = 8(T3RM),18(T3RM) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 4.976650E-04 AT X = 1.813854E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 4.976650E-04 AT X = 1.813854E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 136 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 DISPLACEMENT CURVE ID = 18 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 7.757386E-05 11 1.750000E+03 1.423139E-04 12 1.777600E+03 2.424528E-04 13 1.795700E+03 3.932370E-04 14 1.813854E+03 4.976650E-04 15 1.832000E+03 3.213101E-04 16 1.850100E+03 2.044178E-04 17 1.880000E+03 1.210464E-04 18 1.920000E+03 7.505916E-05 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 137 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 X Y - O U T P U T S U M M A R Y SUBCASE 2 RESPONSE DISPLACEMENT CURVE 8( 9) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 1 OF WHOLE FRAME 5 CURVE TITLE = 8(T3IP),18(T3IP) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = GRID POINT DISPLACEMENTS ( PHASE,DEGREE ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 3.325031E+02 AT X = 2.300000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 3.325031E+02 AT X = 2.300000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 138 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 DISPLACEMENT CURVE ID = 8 COMPONENT = 9 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 2.050448E+02 2 1.150000E+03 2.047680E+02 3 1.177600E+03 2.046016E+02 4 1.195700E+03 2.044855E+02 5 1.213854E+03 2.043625E+02 6 1.232000E+03 2.042317E+02 7 1.250100E+03 2.040923E+02 8 1.280000E+03 2.038382E+02 9 1.320000E+03 2.034377E+02 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 3.325031E+02 20 2.350000E+03 3.312681E+02 21 2.377600E+03 3.295980E+02 22 2.395700E+03 3.272079E+02 23 2.413854E+03 3.219307E+02 24 2.432000E+03 3.118359E+02 25 2.450100E+03 3.109633E+02 26 2.480000E+03 3.255486E+02 27 2.520000E+03 3.300752E+02 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 139 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 X Y - O U T P U T S U M M A R Y SUBCASE 2 RESPONSE DISPLACEMENT CURVE 18( 9) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 2 OF WHOLE FRAME 5 CURVE TITLE = 8(T3IP),18(T3IP) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = GRID POINT DISPLACEMENTS ( PHASE,DEGREE ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 3.028394E+02 AT X = 2.300000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 3.028394E+02 AT X = 2.300000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 140 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 DISPLACEMENT CURVE ID = 18 COMPONENT = 9 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.448717E+01 2 1.150000E+03 1.379220E+01 3 1.177600E+03 1.344330E+01 4 1.195700E+03 1.322616E+01 5 1.213854E+03 1.301676E+01 6 1.232000E+03 1.281502E+01 7 1.250100E+03 1.262049E+01 8 1.280000E+03 1.231121E+01 9 1.320000E+03 1.191264E+01 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 3.028394E+02 20 2.350000E+03 2.880290E+02 21 2.377600E+03 2.721677E+02 22 2.395700E+03 2.548898E+02 23 2.413854E+03 2.263460E+02 24 2.432000E+03 1.778044E+02 25 2.450100E+03 1.186964E+02 26 2.480000E+03 5.837099E+01 27 2.520000E+03 2.362113E+01 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 141 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE ELEMENT-STRESS CURVE 11( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 1 OF WHOLE FRAME 6 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 2.206746E+02 AT X = 1.700000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 2.206746E+02 AT X = 1.700000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 142 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 2.206746E+02 11 1.750000E+03 1.536927E+02 12 1.777600E+03 1.306427E+02 13 1.795700E+03 1.186236E+02 14 1.813854E+03 1.083920E+02 15 1.832000E+03 9.963435E+01 16 1.850100E+03 9.217604E+01 17 1.880000E+03 8.346830E+01 18 1.920000E+03 7.118628E+01 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 143 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE ELEMENT-STRESS CURVE 11( 5) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 2 OF WHOLE FRAME 6 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 2.732868E+01 AT X = 1.700000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 2.732868E+01 AT X = 1.700000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 144 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 5 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 2.732868E+01 11 1.750000E+03 1.886425E+01 12 1.777600E+03 1.600668E+01 13 1.795700E+03 1.454029E+01 14 1.813854E+03 1.331561E+01 15 1.832000E+03 1.230346E+01 16 1.850100E+03 1.151697E+01 17 1.880000E+03 1.110208E+01 18 1.920000E+03 9.122073E+00 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 145 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE ELEMENT-STRESS CURVE 11( 7) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 3 OF WHOLE FRAME 6 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 1.650073E+01 AT X = 1.700000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 1.650073E+01 AT X = 1.700000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 146 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 7 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 1.650073E+01 11 1.750000E+03 1.199822E+01 12 1.777600E+03 1.054066E+01 13 1.795700E+03 9.837273E+00 14 1.813854E+03 9.310007E+00 15 1.832000E+03 8.981041E+00 16 1.850100E+03 8.942354E+00 17 1.880000E+03 9.701082E+00 18 1.920000E+03 6.217945E+00 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 147 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE ELEMENT-STRESS CURVE 11(10) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 4 OF WHOLE FRAME 6 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 2.189872E+02 AT X = 1.700000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 2.189872E+02 AT X = 1.700000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 148 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 10 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 2.189872E+02 11 1.750000E+03 1.529495E+02 12 1.777600E+03 1.303023E+02 13 1.795700E+03 1.185425E+02 14 1.813854E+03 1.085929E+02 15 1.832000E+03 1.001739E+02 16 1.850100E+03 9.316235E+01 17 1.880000E+03 8.457233E+01 18 1.920000E+03 7.004842E+01 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 149 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE ELEMENT-STRESS CURVE 11(12) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 5 OF WHOLE FRAME 6 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 3.008245E+01 AT X = 1.700000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 3.008245E+01 AT X = 1.700000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 150 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 12 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 3.008245E+01 11 1.750000E+03 2.085057E+01 12 1.777600E+03 1.773562E+01 13 1.795700E+03 1.613786E+01 14 1.813854E+03 1.480168E+01 15 1.832000E+03 1.368515E+01 16 1.850100E+03 1.275637E+01 17 1.880000E+03 1.123373E+01 18 1.920000E+03 9.193837E+00 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 151 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 X Y - O U T P U T S U M M A R Y SUBCASE 1 RESPONSE ELEMENT-STRESS CURVE 11(14) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 6 OF WHOLE FRAME 6 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 2.868217E+01 AT X = 1.700000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 2.868217E+01 AT X = 1.700000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 152 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 0 SUBCASE 1 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 14 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 2.868217E+01 11 1.750000E+03 2.007735E+01 12 1.777600E+03 1.710206E+01 13 1.795700E+03 1.553972E+01 14 1.813854E+03 1.419090E+01 15 1.832000E+03 1.299014E+01 16 1.850100E+03 1.182377E+01 17 1.880000E+03 8.747306E+00 18 1.920000E+03 8.306042E+00 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 153 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 X Y - O U T P U T S U M M A R Y SUBCASE 2 RESPONSE ELEMENT-STRESS CURVE 11( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 1 OF WHOLE FRAME 7 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 3.589900E+00 AT X = 2.450100E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 3.589900E+00 AT X = 2.450100E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 154 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.828214E+00 2 1.150000E+03 1.988019E+00 3 1.177600E+03 2.097739E+00 4 1.195700E+03 2.178620E+00 5 1.213854E+03 2.267515E+00 6 1.232000E+03 2.364959E+00 7 1.250100E+03 2.471748E+00 8 1.280000E+03 2.672781E+00 9 1.320000E+03 3.002931E+00 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 1.073413E+00 20 2.350000E+03 7.350791E-01 21 2.377600E+03 4.882152E-01 22 2.395700E+03 6.267024E-01 23 2.413854E+03 1.459137E+00 24 2.432000E+03 2.951956E+00 25 2.450100E+03 3.589900E+00 26 2.480000E+03 2.876008E+00 27 2.520000E+03 2.292659E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 155 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 X Y - O U T P U T S U M M A R Y SUBCASE 2 RESPONSE ELEMENT-STRESS CURVE 11( 5) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 2 OF WHOLE FRAME 7 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 3.433469E+00 AT X = 2.450100E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 3.433469E+00 AT X = 2.450100E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 156 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 5 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.477484E+00 2 1.150000E+03 1.475464E+00 3 1.177600E+03 1.475741E+00 4 1.195700E+03 1.476313E+00 5 1.213854E+03 1.477134E+00 6 1.232000E+03 1.478134E+00 7 1.250100E+03 1.479264E+00 8 1.280000E+03 1.481259E+00 9 1.320000E+03 1.483724E+00 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 2.056587E+00 20 2.350000E+03 2.038177E+00 21 2.377600E+03 1.999464E+00 22 2.395700E+03 1.983054E+00 23 2.413854E+03 2.120771E+00 24 2.432000E+03 2.824687E+00 25 2.450100E+03 3.433469E+00 26 2.480000E+03 3.273562E+00 27 2.520000E+03 3.127081E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 157 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 X Y - O U T P U T S U M M A R Y SUBCASE 2 RESPONSE ELEMENT-STRESS CURVE 11( 7) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 3 OF WHOLE FRAME 7 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 4.482534E+00 AT X = 2.450100E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 4.482534E+00 AT X = 2.450100E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 158 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 7 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.753927E+00 2 1.150000E+03 1.757543E+00 3 1.177600E+03 1.760344E+00 4 1.195700E+03 1.762325E+00 5 1.213854E+03 1.764339E+00 6 1.232000E+03 1.766281E+00 7 1.250100E+03 1.768050E+00 8 1.280000E+03 1.770283E+00 9 1.320000E+03 1.770860E+00 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 2.741198E+00 20 2.350000E+03 2.822576E+00 21 2.377600E+03 2.883622E+00 22 2.395700E+03 2.976949E+00 23 2.413854E+03 3.271657E+00 24 2.432000E+03 4.048505E+00 25 2.450100E+03 4.482534E+00 26 2.480000E+03 4.156112E+00 27 2.520000E+03 4.036932E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 159 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 X Y - O U T P U T S U M M A R Y SUBCASE 2 RESPONSE ELEMENT-STRESS CURVE 11(10) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 4 OF WHOLE FRAME 7 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 5.032765E+00 AT X = 2.450100E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 5.032765E+00 AT X = 2.450100E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 160 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 10 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.359526E+00 2 1.150000E+03 1.387727E+00 3 1.177600E+03 1.431958E+00 4 1.195700E+03 1.472436E+00 5 1.213854E+03 1.522645E+00 6 1.232000E+03 1.583076E+00 7 1.250100E+03 1.654394E+00 8 1.280000E+03 1.799413E+00 9 1.320000E+03 2.057975E+00 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 2.249190E+00 20 2.350000E+03 2.272972E+00 21 2.377600E+03 2.444479E+00 22 2.395700E+03 2.787251E+00 23 2.413854E+03 3.609152E+00 24 2.432000E+03 4.953376E+00 25 2.450100E+03 5.032765E+00 26 2.480000E+03 3.744685E+00 27 2.520000E+03 3.067878E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 161 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 X Y - O U T P U T S U M M A R Y SUBCASE 2 RESPONSE ELEMENT-STRESS CURVE 11(12) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 5 OF WHOLE FRAME 7 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 2.770896E+00 AT X = 2.413854E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 2.770896E+00 AT X = 2.413854E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 162 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 12 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.131759E+00 2 1.150000E+03 1.151415E+00 3 1.177600E+03 1.164131E+00 4 1.195700E+03 1.173251E+00 5 1.213854E+03 1.183087E+00 6 1.232000E+03 1.193675E+00 7 1.250100E+03 1.205099E+00 8 1.280000E+03 1.226215E+00 9 1.320000E+03 1.260174E+00 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 1.957845E+00 20 2.350000E+03 2.176751E+00 21 2.377600E+03 2.381544E+00 22 2.395700E+03 2.573132E+00 23 2.413854E+03 2.770896E+00 24 2.432000E+03 2.508172E+00 25 2.450100E+03 1.135846E+00 26 2.480000E+03 4.977689E-01 27 2.520000E+03 1.161663E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 163 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 X Y - O U T P U T S U M M A R Y SUBCASE 2 RESPONSE ELEMENT-STRESS CURVE 11(14) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 6 OF WHOLE FRAME 7 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 9.959658E+00 AT X = 2.432000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 9.959658E+00 AT X = 2.432000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 164 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1C SUBCASE 2 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 14 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.932159E+00 2 1.150000E+03 1.999065E+00 3 1.177600E+03 2.037894E+00 4 1.195700E+03 2.064333E+00 5 1.213854E+03 2.091779E+00 6 1.232000E+03 2.120280E+00 7 1.250100E+03 2.149933E+00 8 1.280000E+03 2.202106E+00 9 1.320000E+03 2.279789E+00 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 2.773755E+00 20 2.350000E+03 3.382025E+00 21 2.377600E+03 4.207928E+00 22 2.395700E+03 5.295377E+00 23 2.413854E+03 7.309336E+00 24 2.432000E+03 9.959658E+00 25 2.450100E+03 9.475514E+00 26 2.480000E+03 6.235198E+00 27 2.520000E+03 4.690766E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 165 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 X Y - O U T P U T S U M M A R Y SUBCASE 3 RESPONSE ELEMENT-STRESS CURVE 11( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 1 OF WHOLE FRAME 8 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 3.589900E+00 AT X = 2.450100E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 3.589900E+00 AT X = 2.450100E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 166 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.828213E+00 2 1.150000E+03 1.988019E+00 3 1.177600E+03 2.097738E+00 4 1.195700E+03 2.178620E+00 5 1.213854E+03 2.267514E+00 6 1.232000E+03 2.364960E+00 7 1.250100E+03 2.471748E+00 8 1.280000E+03 2.672781E+00 9 1.320000E+03 3.002931E+00 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 1.073413E+00 20 2.350000E+03 7.350781E-01 21 2.377600E+03 4.882156E-01 22 2.395700E+03 6.267023E-01 23 2.413854E+03 1.459137E+00 24 2.432000E+03 2.951958E+00 25 2.450100E+03 3.589900E+00 26 2.480000E+03 2.876011E+00 27 2.520000E+03 2.292657E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 167 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 X Y - O U T P U T S U M M A R Y SUBCASE 3 RESPONSE ELEMENT-STRESS CURVE 11( 5) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 2 OF WHOLE FRAME 8 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 3.433470E+00 AT X = 2.450100E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 3.433470E+00 AT X = 2.450100E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 168 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 5 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.477484E+00 2 1.150000E+03 1.475463E+00 3 1.177600E+03 1.475740E+00 4 1.195700E+03 1.476312E+00 5 1.213854E+03 1.477134E+00 6 1.232000E+03 1.478136E+00 7 1.250100E+03 1.479265E+00 8 1.280000E+03 1.481260E+00 9 1.320000E+03 1.483724E+00 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 2.056586E+00 20 2.350000E+03 2.038175E+00 21 2.377600E+03 1.999461E+00 22 2.395700E+03 1.983050E+00 23 2.413854E+03 2.120771E+00 24 2.432000E+03 2.824686E+00 25 2.450100E+03 3.433470E+00 26 2.480000E+03 3.273559E+00 27 2.520000E+03 3.127078E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 169 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 X Y - O U T P U T S U M M A R Y SUBCASE 3 RESPONSE ELEMENT-STRESS CURVE 11( 7) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 3 OF WHOLE FRAME 8 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 4.482536E+00 AT X = 2.450100E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 4.482536E+00 AT X = 2.450100E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 170 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 7 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.753927E+00 2 1.150000E+03 1.757543E+00 3 1.177600E+03 1.760344E+00 4 1.195700E+03 1.762326E+00 5 1.213854E+03 1.764339E+00 6 1.232000E+03 1.766281E+00 7 1.250100E+03 1.768051E+00 8 1.280000E+03 1.770283E+00 9 1.320000E+03 1.770860E+00 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 2.741199E+00 20 2.350000E+03 2.822577E+00 21 2.377600E+03 2.883621E+00 22 2.395700E+03 2.976948E+00 23 2.413854E+03 3.271656E+00 24 2.432000E+03 4.048505E+00 25 2.450100E+03 4.482536E+00 26 2.480000E+03 4.156113E+00 27 2.520000E+03 4.036932E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 171 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 X Y - O U T P U T S U M M A R Y SUBCASE 3 RESPONSE ELEMENT-STRESS CURVE 11(10) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 4 OF WHOLE FRAME 8 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 5.032765E+00 AT X = 2.450100E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 5.032765E+00 AT X = 2.450100E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 172 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 10 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.359525E+00 2 1.150000E+03 1.387727E+00 3 1.177600E+03 1.431958E+00 4 1.195700E+03 1.472436E+00 5 1.213854E+03 1.522646E+00 6 1.232000E+03 1.583076E+00 7 1.250100E+03 1.654393E+00 8 1.280000E+03 1.799413E+00 9 1.320000E+03 2.057973E+00 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 2.249189E+00 20 2.350000E+03 2.272974E+00 21 2.377600E+03 2.444479E+00 22 2.395700E+03 2.787251E+00 23 2.413854E+03 3.609152E+00 24 2.432000E+03 4.953375E+00 25 2.450100E+03 5.032765E+00 26 2.480000E+03 3.744683E+00 27 2.520000E+03 3.067879E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 173 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 X Y - O U T P U T S U M M A R Y SUBCASE 3 RESPONSE ELEMENT-STRESS CURVE 11(12) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 5 OF WHOLE FRAME 8 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 2.770899E+00 AT X = 2.413854E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 2.770899E+00 AT X = 2.413854E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 174 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 12 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.131759E+00 2 1.150000E+03 1.151414E+00 3 1.177600E+03 1.164131E+00 4 1.195700E+03 1.173250E+00 5 1.213854E+03 1.183087E+00 6 1.232000E+03 1.193677E+00 7 1.250100E+03 1.205100E+00 8 1.280000E+03 1.226215E+00 9 1.320000E+03 1.260174E+00 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 1.957844E+00 20 2.350000E+03 2.176749E+00 21 2.377600E+03 2.381542E+00 22 2.395700E+03 2.573129E+00 23 2.413854E+03 2.770899E+00 24 2.432000E+03 2.508170E+00 25 2.450100E+03 1.135843E+00 26 2.480000E+03 4.977681E-01 27 2.520000E+03 1.161660E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 175 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 X Y - O U T P U T S U M M A R Y SUBCASE 3 RESPONSE ELEMENT-STRESS CURVE 11(14) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 6 OF WHOLE FRAME 8 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 9.959657E+00 AT X = 2.432000E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.700000E+03 THE LARGEST Y-VALUE = 9.959657E+00 AT X = 2.432000E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 176 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 1S SUBCASE 3 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 14 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 1.932159E+00 2 1.150000E+03 1.999066E+00 3 1.177600E+03 2.037894E+00 4 1.195700E+03 2.064333E+00 5 1.213854E+03 2.091779E+00 6 1.232000E+03 2.120279E+00 7 1.250100E+03 2.149934E+00 8 1.280000E+03 2.202106E+00 9 1.320000E+03 2.279789E+00 10 1.700000E+03 0.000000E+00 11 1.750000E+03 0.000000E+00 12 1.777600E+03 0.000000E+00 13 1.795700E+03 0.000000E+00 14 1.813854E+03 0.000000E+00 15 1.832000E+03 0.000000E+00 16 1.850100E+03 0.000000E+00 17 1.880000E+03 0.000000E+00 18 1.920000E+03 0.000000E+00 19 2.300000E+03 2.773756E+00 20 2.350000E+03 3.382025E+00 21 2.377600E+03 4.207928E+00 22 2.395700E+03 5.295378E+00 23 2.413854E+03 7.309339E+00 24 2.432000E+03 9.959657E+00 25 2.450100E+03 9.475514E+00 26 2.480000E+03 6.235198E+00 27 2.520000E+03 4.690767E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 177 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 X Y - O U T P U T S U M M A R Y SUBCASE 4 RESPONSE ELEMENT-STRESS CURVE 11( 3) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 1 OF WHOLE FRAME 9 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 1.450054E+03 AT X = 1.813854E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 1.450054E+03 AT X = 1.813854E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 178 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 3 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 2.817143E+02 11 1.750000E+03 4.664189E+02 12 1.777600E+03 7.562914E+02 13 1.795700E+03 1.182826E+03 14 1.813854E+03 1.450054E+03 15 1.832000E+03 9.334911E+02 16 1.850100E+03 5.883337E+02 17 1.880000E+03 3.423826E+02 18 1.920000E+03 2.095921E+02 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 179 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 X Y - O U T P U T S U M M A R Y SUBCASE 4 RESPONSE ELEMENT-STRESS CURVE 11( 5) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 2 OF WHOLE FRAME 9 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 2.020014E+02 AT X = 1.813854E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 2.020014E+02 AT X = 1.813854E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 180 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 5 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 4.053678E+01 11 1.750000E+03 6.622318E+01 12 1.777600E+03 1.066149E+02 13 1.795700E+03 1.656887E+02 14 1.813854E+03 2.020014E+02 15 1.832000E+03 1.302787E+02 16 1.850100E+03 8.206145E+01 17 1.880000E+03 4.763166E+01 18 1.920000E+03 2.905444E+01 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 181 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 X Y - O U T P U T S U M M A R Y SUBCASE 4 RESPONSE ELEMENT-STRESS CURVE 11( 7) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 3 OF WHOLE FRAME 9 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 9.126247E+01 AT X = 1.813854E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 9.126247E+01 AT X = 1.813854E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 182 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 7 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 1.743522E+01 11 1.750000E+03 2.959514E+01 12 1.777600E+03 4.861847E+01 13 1.795700E+03 7.536248E+01 14 1.813854E+03 9.126247E+01 15 1.832000E+03 6.267014E+01 16 1.850100E+03 4.129694E+01 17 1.880000E+03 2.546400E+01 18 1.920000E+03 1.690720E+01 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 183 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 X Y - O U T P U T S U M M A R Y SUBCASE 4 RESPONSE ELEMENT-STRESS CURVE 11(10) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 4 OF WHOLE FRAME 9 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 1.433033E+03 AT X = 1.813854E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 1.433033E+03 AT X = 1.813854E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 184 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 10 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 2.778417E+02 11 1.750000E+03 4.601888E+02 12 1.777600E+03 7.465438E+02 13 1.795700E+03 1.168279E+03 14 1.813854E+03 1.433033E+03 15 1.832000E+03 9.224543E+02 16 1.850100E+03 5.815434E+02 17 1.880000E+03 3.387245E+02 18 1.920000E+03 2.076866E+02 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 185 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 X Y - O U T P U T S U M M A R Y SUBCASE 4 RESPONSE ELEMENT-STRESS CURVE 11(12) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 5 OF WHOLE FRAME 9 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 2.182739E+02 AT X = 1.813854E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 2.182739E+02 AT X = 1.813854E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 186 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 12 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 4.413295E+01 11 1.750000E+03 7.192551E+01 12 1.777600E+03 1.155281E+02 13 1.795700E+03 1.793023E+02 14 1.813854E+03 2.182739E+02 15 1.832000E+03 1.401064E+02 16 1.850100E+03 8.783842E+01 17 1.880000E+03 5.055602E+01 18 1.920000E+03 3.039595E+01 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 187 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 X Y - O U T P U T S U M M A R Y SUBCASE 4 RESPONSE ELEMENT-STRESS CURVE 11(14) XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED PLOTTER SPECIFIED IS NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY. CSCALE = 1.00 PAPER SIZE 8.00 X 10.50 INCHES SPECIFIED. PENSIZE = 1 THIS IS CURVE 6 OF WHOLE FRAME 9 CURVE TITLE = 11(3),11(5),11(7),11(10),11(12),11(14) X-AXIS TITLE = FREQUENCY (HERTZ) Y-AXIS TITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY. WITHIN THE FRAME X-LIMITS (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 1.729657E+02 AT X = 1.813854E+03 WITHIN THE X-LIMITS OF ALL DATA (X = 1.100000E+03 TO X = 2.520000E+03) THE SMALLEST Y-VALUE = 0.000000E+00 AT X = 1.100000E+03 THE LARGEST Y-VALUE = 1.729657E+02 AT X = 1.813854E+03 E N D O F S U M M A R Y P R I N T E D D A T A F O R T H I S C U R V E F O L L O W S 1 ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 188 NASTRAN TEST PROBLEM NO. T08-02-1A 0 KINDEX 2C SUBCASE 4 ELEMENT-STRESS CURVE ID = 11 COMPONENT = 14 WHOLE FRAME PRINT NUMBER X-VALUE Y-VALUE CARD NUMBER 1 1.100000E+03 0.000000E+00 2 1.150000E+03 0.000000E+00 3 1.177600E+03 0.000000E+00 4 1.195700E+03 0.000000E+00 5 1.213854E+03 0.000000E+00 6 1.232000E+03 0.000000E+00 7 1.250100E+03 0.000000E+00 8 1.280000E+03 0.000000E+00 9 1.320000E+03 0.000000E+00 10 1.700000E+03 3.563684E+01 11 1.750000E+03 5.857209E+01 12 1.777600E+03 9.388234E+01 13 1.795700E+03 1.439402E+02 14 1.813854E+03 1.729657E+02 15 1.832000E+03 1.131941E+02 16 1.850100E+03 7.142776E+01 17 1.880000E+03 4.102967E+01 18 1.920000E+03 2.437536E+01 19 2.300000E+03 0.000000E+00 20 2.350000E+03 0.000000E+00 21 2.377600E+03 0.000000E+00 22 2.395700E+03 0.000000E+00 23 2.413854E+03 0.000000E+00 24 2.432000E+03 0.000000E+00 25 2.450100E+03 0.000000E+00 26 2.480000E+03 0.000000E+00 27 2.520000E+03 0.000000E+00 * * * END OF JOB * * * 1 JOB TITLE = ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) DATE: 5/18/95 END TIME: 10:30:17 TOTAL WALL CLOCK TIME 4 SEC. ================================================ FILE: demoout/t08022a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T08022A,NASTRAN APP DISP SOL 8 DIAG 14 TIME 20 $ 0*** $ ... READFILE FROM- COSDFVA $ COSMIC ALTERS FOR DIRECT FORCED VIBRATION ANALYSIS (COSDFVA) $ ALTER 3 $ INSERT FILE $ FILE UXVF=APPEND/PDT=APPEND/PD=APPEND $ $ PERFORM INITIAL ERROR CHECKS ON NSEGS AND KMAX. COND ERRORC1,NSEGS $ IF USER HAS NOT SPECIFIED NSEGS. COND ERRORC1,KMAX $ IF USER HAS NOT SPECIFIED KMAX. PARAM //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $ COND ERRORC1,CYCIOERR $ IF USER HAS NOT SPECIFIED CYCIO. PARAM //*DIV*/NSEG2 /V,Y,NSEGS /2 $ NSEG2 = NSEGS/2 PARAM //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $ COND ERRORC1,KMAXERR $ IF KMAX .GT. NSEGS/2 $ SET DEFAULTS FOR PARAMETERS. PARAM //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $ $ CALCULATE OMEGA, 2*OMEGA AND OMEGA**2 FROM RPS. SET DEFAULT RPS. PARAMR //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $ PARAMR //*MPY*/OMEGA2 /2.0 /OMEGA $ PARAMR //*MPY*/OMEGASQR /OMEGA /OMEGA $ $ GENERATE NORPS FLAG IF RPS IS ZERO. PARAMR //*EQ*//V,Y,RPS /0.0 ////NORPS $ $ MAKE SURE COUPLED MASSES HAVE NOT BEEN REQUESTED. PARAM //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $ COND ERRORC2,NOLUMP $ $ ALTER 21,21 $ ADD SLT TO OUTPUT FOR TRLG. DELETE GP3 $ GP3 GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $ $ ALTER 24 $ INSERT TA1,2 $ $ SINCE MULTIPLE CONSTRAINTS ARE NOT ALLOWED EXECUTE GP4 NOW SO THAT $ MORE ERROR CHECKS CAN BE MADE BEFORE ELEMENT GENERATION. $ ADD YS NEEDED FOR PSF RECOVERY IN SSG2. PARAM //*MPY*/NSKIP /0/0 $ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/ S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/ S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/C,Y,AUTOSPC $ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ $ SUPORT BULK DATA IS NOT ALLOWED. PARAM //*NOT*/REACDATA /REACT $ COND ERRORC3,REACDATA $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 $ EXECUTE DPD NOW SO CHECKS CAN BE MADE. ADD TRL TO OUTPUT DATA BLOCKS. DPD DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,, TRL,,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ S,N,NOFRL/NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $ $ MUST HAVE EITHER FREQ OR TSTEP BULK DATA. PARAM //*AND*/FTERR /NOFRL /NOTRL $ COND ERRORC5,FTERR $ NO FREQ OR TSTEP BULK DATA. $ ONLY FREQUENCY OR TSTEP IS ALLOWED IN THE CASE CONTROL PARAML CASECC //*TABLE1*/1/14//FREQSET $ PARAML CASECC //*TABLE1*/1/38//TIMESET $ PARAM //*MPY*/FREQTIME /FREQSET /TIMESET $ PARAM //*NOT*/FTERR1 /FREQTIME $ PARAM //*LE*/NOFREQ /FREQSET /0 $ PARAM //*LE*/NOTIME /TIMESET /0 $ COND ERRORC6,FTERR1 $ BOTH FREQ AND TSTEP IN CASE CONTROL DECK. $ EPOINT BULK DATA NOT ALLOWED PARAM //*NOT*/EXTRAPTS /NOUE $ COND ERRORC4,EXTRAPTS $ $ GENERATE DATA FOR CYCT2 MODULE. GPCYC GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $ COND ERRORC1,NOGO $ $ ALTER 34 $ INSERT EMA,1 $ $ PRE-PURGE DATA BLOCKS THAT WILL NOT BE GENERATED PARAM //*OR*/NOBM1 /NOMGG /NORPS $ PURGE B1GG,M1GG /NOBM1 $ PURGE M2GG,M2BASEXG /NOMGG $ $ ALTER 38 $ INSERT EMA(2),1 $ $ GENERATE DATA BLOCKS FRLX, B1GG, M1GG, M2GG AND BASEGX. $ GENERATE PARAMETERS FKMAX AND NOBASEX. FVRSTR1 CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG, PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/ V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/ V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA $ PARAML FRLX //*PRES*////NOFRLX $ COND LBLFRLX,NOFRLX $ EQUIV FRLX,FRL $ LABEL LBLFRLX $ $ ALTER 47 $ INSERT EMA(4),2 $ PARAM //*ADD*/NOBGG /NOBM1 /0 $ RESET NOBGG. $ ALTER 58 $ INSERT GPSTGEN $ $ REDEFINE BGG AND KGG. COND LBL11A,NOBM1 $ PARAMR //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 PARAMR //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $ PARAMR //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $ ADD BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $ EQUIV BGG1,BGG $ ADD KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $ EQUIV KGG1,KGG $ LABEL LBL11A $ ALTER 59,62 $ GP4 HAS BEEN MOVED-UP. DELETE GP4,-1,GP4,2 $ $ ALTER 87,87 $ DPD HAS BEEN MOVED-UP. DELETE DPD $ $ ALTER 112 $ PARAM AND EQUIV LOGIC DEPENDING ON LGKAD FOR FREQ/TRAN. INSERT GKAD,-3 $ PARAM //*AND*/KDEKA/NOUE/NOK2PP $ COND LGKAD1,LGKAD $ BRANCH IN NOT FREQRESP. $ ALTER 113 $ SEE ALTER 112 COMMENT. INSERT GKAD,-2 $ JUMP LGKAD2 $ LABEL LGKAD1 $ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ LABEL LGKAD2 $ $ ALTER 115,115 $ ADD PARAMETERS GKAD, W3 AND W4 TO GKAD. DELETE GKAD $ GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/ C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/ SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $ $ ALTER 116 $ SEE ALTER 112 COMMENT. INSERT GKAD,1 $ COND LGKAD3,LGKAD $ BRANCH IF NOT FREQRESP. $ ALTER 117 $ SEE ALTER 112 COMMENT. INSERT GKAD,2 $ JUMP LGKAD4 $ LABEL LGKAD3 $ EQUIV B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $ LABEL LGKAD4 $ $ ALTER 118,122 $ DELETE FRRD,-2,VDR $ $ NEW SOLUTION LOGIC $ GENERATE TIME-DEPENDENT LOADS IF TSTEP WAS REQUESTED IN CASE CONTROL. $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST. COND LBLTRL1,NOTIME $ $ LOOP THRU ALL SUBCASES FOR TIME-DEPENDENT LOADS. PARAM //*MPY*/REPEATT /1 /-1 $ PARAM //*ADD*/APPFLG /1 /0 $ INITIALIZE FOR SDR1. LABEL TRLGLOOP $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 CASE CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $ PARAM //*MPY*/NCOL /0 /1 $ TRLG CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ ,,PDT1,PD1,,TOL/ NOSET/NCOL $ SDR1 TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $ SDR1 TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $ PARAM //*ADD*/APPFLG /APPFLG /1 $ APPFLG=APPFLG+1. COND TRLGDONE,REPEATT $ REPT TRLGLOOP,100 $ JUMP ERROR3 $ LABEL TRLGDONE $ FVRSTR2 TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/ V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/ S,N,NORO2 $ EQUIV FRLZ,FRL // FOLZ,FOL $ JUMP LBLFRL2 $ LABEL LBLTRL1 $ $ GENERATE FREQUENCY-DEPENDENT LOADS IF FREQUENCY WAS SELECTED IN CC. FRLG CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM / *DIRECT*/FREQY/*FREQ* $ COND LBLFRLX1,NOFRLX $ ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED. MPYAD PPF,PDZERO, / PPFX /0 $ EQUIV PPFX,PPF $ LABEL LBLFRLX1 $ $ FORM NEW LOADS. COND LBLFRL1,NOBASEX $ MPYAD M2GG,BASEXG, / M2BASEXG /0 $ ADD PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $ EQUIV PPF1,PPF $ COND LBLBASE1,NOSET $ SSG2 USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $ EQUIV PSF1,PSF // PDF1,PDF $ LABEL LBLBASE1 $ LABEL LBLFRL1 $ EQUIV PPF,PDF/NOSET $ $ LOADS ARE FREQUENCY-DEPENDENT $ PERFORM CYCLIC TRANSFORMATION ON LOADS IF CYCIO=+1. PARAML PDF //*TRAILER*/1 /PDFCOLS $ $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=-1. PARAM //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX EQUIV PDF,PXF/CYCIO $ COND LBLPDONE,CYCIO $ $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=1. PARAM //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS CYCT1 PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1 /V,Y,KMAX=-1/ NLOAD /S,N,NOGO $ COND ERRORC1,NOGO $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 JUMP LBLPDONE $ LABEL LBLFRL2 $ $ LOADS ARE TIME-DEPENDENT PARAM //*NOT*/NOTCYCIO /V,Y,CYCIO $ $ BRANCH DEPENDING ON VALUE OF CYCIO COND LBLTRL2,NOTCYCIO $ $ CYCIO=-1 EQUIV PD,PDTRZ1/NORO1 $ COND LBLRO1A,NORO1 $ MPYAD PD,REORDER1, / PDTRZ1 / 0 $ LABEL LBLRO1A $ CYCT1 PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/ S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXTRZ1,PXFZ1/NORO2 $ COND LBLRO2A,NORO2 $ MPYAD PXTRZ1,REORDER2, / PXFZ1 /0 $ LABEL LBLRO2A $ EQUIV PXFZ1,PXF1 $ JUMP LBLTRL3 $ LABEL LBLTRL2 $ $ CYCIO = +1 MPYAD PD,REORDER1, / PDTRZ2 / 0 $ CYCT1 PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/ V,Y,NSEGS/S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXTRZ2,PXTR2/NORO2 $ COND LBLRO2B,NORO2 $ MPYAD PXTRZ2,REORDER2, / PXTR2 /0 $ LABEL LBLRO2B $ CYCT1 PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/ FLMAX/S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXFZ2,PXF1 $ LABEL LBLTRL3 $ $ TIME-DEPENDENT LOADS ARE REAL. MAKE LOADS COMPLEX TO CORRESPOND $ TO FREQUENCY DEPENDENT LOADS. ALSO SDR2 EXPECTS LOADS TO BE COMPLEX $ IN FREQRESP TYPE PROBLEMS. COPY PXF1 / PXF2 $ CONVERT REAL PXF1 TO COMPLEX PXF. ADD PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $ $ DEFINE NLOAD FOR CYCT2. PARAM //*ADD*/NLOAD /FLMAX /0 $ NLOAD = FLMAX LABEL LBLPDONE $ PARAM //*ADD*/KINDEX /V,Y,KMIN=0 /0 $ INTITIALIZE KINDEX. $ $ INITIALIZE UXVF IF KMIN IS NOT ZERO. $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 PARAM //*ADD*/KMINL /V,Y,KMIN /-1 $ COND NOKMINL,KMINL $ PARAM //*ADD*/KMINV /0 /0 $ LABEL KMINLOOP $ CYCT2 CYCDD,,,PXF,, /,,PKFZ,, /*FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/ S,N,NOGO $ COND ERRORC1,NOGO $ ADD PKFZ, / UKVFZ / (0.0,0.0) $ PRTPARM //0/*KINDEX* $ CYCT2 CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/ KMINV/CYCSEQ/NLOAD/S,N,NOGO $ PRTPARM //0/*KINDEX* $ COND ERRORC1,NOGO $ PARAM //*ADD*/KMINV /KMINV /1 $ REPT KMINLOOP,KMINL $ LABEL NOKMINL $ LABEL TOPCYC $ LOOP ON KINDEX COND NOKPRT,NOKPRT $ PRTPARM //0 /*KINDEX* $ LABEL NOKPRT $ CYCT2 CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/KINDEX/ CYCSEQ=-1/NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ CYCT2 CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/KINDEX/ CYCSEQ/NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ $ SOLUTION FRRD2 KKKF,BKKF,MKKF,,PKF,FOL / UKVF /0.0/0.0/-1.0 $ CYCT2 CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KINDEX/CYCSEQ/ NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ PARAM //*ADD*/KINDEX/KINDEX/1 $ KINDEX = KINDEX + 1 PARAM //*SUB*/DONE / V,Y,KMAX / KINDEX $ COND LCYC2,DONE $ IF KINDEX .GT. KMAX THEN EXIT REPT TOPCYC,100 $ JUMP ERROR3 $ LABEL LCYC2 $ EQUIV UXVF,UDVF / CYCIO $ COND LCYC3,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. CYCT1 UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ LABEL LCYC3 $ COND LBLTRL4,NOTIME $ EQUIV PXF,PDF2 / CYCIO $ COND LCYC4,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. CYCT1 PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ LABEL LCYC4 $ $ IF LOADS WERE TIME-DEPENDENT THEN RECOVER PPF AND PSF FROM PXF. 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 SDR1 USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $ SSG2 USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $ EQUIV PPFZ,PPF // PSFZ,PSF $ LABEL LBLTRL4 $ VDR CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $ $ ALTER 138,138 $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST. DELETE SDR2 $ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ $ ALTER 160 $ ADD LABEL FOR ERROR3. INSERT PLOT(2),4 $ LABEL ERROR3 $ $ ALTER 163,166 $ REMOVE ERROR1 AND ERROR2. DELETE PLOT(2),7,PLOT(2),10 $ $ ALTER 168 $ FORCED VIBRATION ERRORS INSERT END,-3 $ LABEL ERRORC1 $ CHECK NSEGS, KMAX AND OTHER CYCLIC DATA. PRTPARM //-5 /*CYCSTATICS* $ LABEL ERRORC2 $ COUPLED MASS NOT ALLOWED. PRTPARM //0 /C,Y,COUPMASS $ JUMP FINIS $ LABEL ERRORC3 $ SUPORT BULK DATA NOT ALLOWED. PRTPARM //-6 /*CYCSTATICS* $ LABEL ERRORC4 $ EPOINT BULK DATA NOT ALLOWED. PRTPARM //0 /*NOUE* $ JUMP FINIS $ LABEL ERRORC5 $ NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK. PRTPARM //0 /*NOFRL* $ PRTPARM //0 /*NOTRL* $ JUMP FINIS $ LABEL ERRORC6 $ BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL. PRTPARM //0 /*NOFREQ* $ PRTPARM //0 /*NOTIME* $ ENDALTER $ 0*** $ END READFILE $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T08-02-2A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T08-02-2A 3 $ 4 SPC = 30 5 TSTEP = 1 6 OUTPUT 7 SET 1 = 8,16,18 8 SET 2 = 11 9 OLOAD = 1 10 DISP(SORT2,PHASE) = 1 11 STRESS(SORT2,PHASE) = 2 12 SUBCASE 1 13 LABEL = SEGMENT 1 14 DLOAD = 1 $ TIME DEPENDENT LOADS 15 SUBCASE 2 16 LABEL = SEGMENT 2 17 DLOAD = 2 $ TIME DEPENDENT LOADS 18 SUBCASE 3 19 LABEL = SEGMENT 3 20 DLOAD = 3 $ TIME DEPENDENT LOADS 21 SUBCASE 4 22 LABEL = SEGMENT 4 23 DLOAD = 4 $ TIME DEPENDENT LOADS 24 SUBCASE 5 25 LABEL = SEGMENT 5 26 DLOAD = 5 $ TIME DEPENDENT LOADS 27 SUBCASE 6 28 LABEL = SEGMENT 6 29 DLOAD = 6 $ TIME DEPENDENT LOADS 30 SUBCASE 7 31 LABEL = SEGMENT 7 32 DLOAD = 7 $ TIME DEPENDENT LOADS 33 SUBCASE 8 34 LABEL = SEGMENT 8 35 DLOAD = 8 $ TIME DEPENDENT LOADS 36 SUBCASE 9 37 LABEL = SEGMENT 9 38 DLOAD = 9 $ TIME DEPENDENT LOADS 39 SUBCASE 10 40 LABEL = SEGMENT 10 41 DLOAD = 10 $ TIME DEPENDENT LOADS 42 SUBCASE 11 43 LABEL = SEGMENT 11 44 DLOAD = 11 $ TIME DEPENDENT LOADS 45 SUBCASE 12 46 LABEL = SEGMENT 12 47 DLOAD = 12 $ TIME DEPENDENT LOADS 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T08-02-2A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 48 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 100, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 0*** USER INFORMATION MESSAGE 207A, SIX CHARACTERS OF NASTRAN BCD NAME IN THE THIRD FIELD WERE USED DURING RE-ORDERING DECK 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T08-02-2A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2C 1 0.0 0.0 0.0 1.0 0.0 0.0 +COR12 2- +COR12 0.0 1.0 0.0 3- CQUAD2 4 2 2 3 7 6 4- CQUAD2 5 2 6 7 12 11 5- CQUAD2 6 2 3 4 8 7 6- CQUAD2 7 2 7 8 13 12 7- CQUAD2 8 2 4 5 9 8 8- CQUAD2 10 2 8 15 14 13 9- CQUAD2 11 3 9 16 18 15 10- CQUAD2 12 3 16 17 19 18 11- CTRIA2 1 1 1 6 10 12- CTRIA2 2 1 1 2 6 13- CTRIA2 3 1 10 6 11 14- CTRIA2 9 1 8 9 15 15- CYJOIN 1 1 2 3 4 5 16- CYJOIN 2 10 11 12 13 14 17- DAREA 1 8 3 -1.0 18- DAREA 1 16 3 1.0 19- DAREA 1 18 3 1.0 20- DAREA 2 8 3 -0.5 21- DAREA 2 16 3 0.5 22- DAREA 2 18 3 0.5 23- DAREA 3 8 3 0.5 24- DAREA 3 16 3 -0.5 25- DAREA 3 18 3 -0.5 26- DAREA 4 8 3 1.0 27- DAREA 4 16 3 -1.0 28- DAREA 4 18 3 -1.0 29- DAREA 5 8 3 0.5 30- DAREA 5 16 3 -0.5 31- DAREA 5 18 3 -0.5 32- DAREA 6 8 3 -0.5 33- DAREA 6 16 3 0.5 34- DAREA 6 18 3 0.5 35- DAREA 7 8 3 -1.0 36- DAREA 7 16 3 1.0 37- DAREA 7 18 3 1.0 38- DAREA 8 8 3 -0.5 39- DAREA 8 16 3 0.5 40- DAREA 8 18 3 0.5 41- DAREA 9 8 3 0.5 42- DAREA 9 16 3 -0.5 43- DAREA 9 18 3 -0.5 44- DAREA 10 8 3 1.0 45- DAREA 10 16 3 -1.0 46- DAREA 10 18 3 -1.0 47- DAREA 11 8 3 0.5 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T08-02-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- DAREA 11 16 3 -0.5 49- DAREA 11 18 3 -0.5 50- DAREA 12 8 3 -0.5 51- DAREA 12 16 3 0.5 52- DAREA 12 18 3 0.5 53- GRDSET 1 1 54- GRID 1 2.0 30.0 0.0 55- GRID 2 3.1 30.0 0.0 56- GRID 3 4.3 30.0 0.0 57- GRID 4 5.2 30.0 0.0 58- GRID 5 7.1 30.0 0.0 59- GRID 6 3.1 45.0 0.0 60- GRID 7 4.3 45.0 0.0 61- GRID 8 5.2 45.0 0.0 62- GRID 9 7.1 40.0 0.0 63- GRID 10 2.0 60.0 0.0 64- GRID 11 3.1 60.0 0.0 65- GRID 12 4.3 60.0 0.0 66- GRID 13 5.2 60.0 0.0 67- GRID 14 7.1 60.0 0.0 68- GRID 15 7.1 50.0 0.0 69- GRID 16 8.5 40.0 -.25 70- GRID 17 9.7 40.0 -.50 71- GRID 18 8.5 50.0 0.25 72- GRID 19 9.7 50.0 0.50 73- MAT1 1 30.0+6 .3 7.4-4 74- PARAM CYCIO +1 75- PARAM G .02 76- PARAM GKAD FREQRESP 77- PARAM KMAX 2 78- PARAM KMIN 2 79- PARAM LGKAD 1 80- PARAM LMAX 1 81- PARAM NSEGS 12 82- PARAM RPS 600.0 83- PQUAD2 2 1 .25 84- PQUAD2 3 1 .125 85- PTRIA2 1 1 .25 86- SPC1 30 6 1 THRU 19 87- SPC1 30 123456 1 10 88- TLOAD2 1 1 0.0 5.5131-41813.854-90.0 89- TLOAD2 2 2 0.0 5.5131-41813.854-90.0 90- TLOAD2 3 3 0.0 5.5131-41813.854-90.0 91- TLOAD2 4 4 0.0 5.5131-41813.854-90.0 92- TLOAD2 5 5 0.0 5.5131-41813.854-90.0 93- TLOAD2 6 6 0.0 5.5131-41813.854-90.0 94- TLOAD2 7 7 0.0 5.5131-41813.854-90.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T08-02-2A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- TLOAD2 8 8 0.0 5.5131-41813.854-90.0 96- TLOAD2 9 9 0.0 5.5131-41813.854-90.0 97- TLOAD2 10 10 0.0 5.5131-41813.854-90.0 98- TLOAD2 11 11 0.0 5.5131-41813.854-90.0 99- TLOAD2 12 12 0.0 5.5131-41813.854-90.0 100- TSTEP 1 10 4.5943-51 ENDDATA 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T08-02-2A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $ 2 PRECHK ALL $ 3 FILE KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $ 3 FILE UXVF=APPEND/PDT=APPEND/PD=APPEND $ 3 COND ERRORC1,NSEGS $ IF USER HAS NOT SPECIFIED NSEGS. 3 COND ERRORC1,KMAX $ IF USER HAS NOT SPECIFIED KMAX. 3 PARAM //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $ 3 COND ERRORC1,CYCIOERR $ IF USER HAS NOT SPECIFIED CYCIO. 3 PARAM //*DIV*/NSEG2 /V,Y,NSEGS /2 $ NSEG2 = NSEGS/2 3 PARAM //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $ 3 COND ERRORC1,KMAXERR $ IF KMAX .GT. NSEGS/2 3 PARAM //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $ 3 PARAMR //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $ 3 PARAMR //*MPY*/OMEGA2 /2.0 /OMEGA $ 3 PARAMR //*MPY*/OMEGASQR /OMEGA /OMEGA $ 3 PARAMR //*EQ*//V,Y,RPS /0.0 ////NORPS $ 3 PARAM //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $ 3 COND ERRORC2,NOLUMP $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ 10 COND LBL5,NOGPDT $ 11 GP2 GEOM2,EQEXIN/ECT $ 12 PARAML PCDB//*PRES*////JUMPPLOT $ 13 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 14 COND P1,JUMPPLOT $ 15 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 16 PRTMSG PLTSETX// $ 17 PARAM //*MPY*/PLTFLG/1/1 $ 18 PARAM //*MPY*/PFILE/0/0 $ 19 COND P1,JUMPPLOT $ 20 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 21 PRTMSG PLOTX1//$ 22 LABEL P1 $ 23 GP3 GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $ 24 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 25 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 26 PURGE K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA, KGGX/NOSIMP $ 26 PARAM //*MPY*/NSKIP /0/0 $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 26 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/ S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/ S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/C,Y,AUTOSPC $ 26 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ 26 PARAM //*NOT*/REACDATA /REACT $ 26 COND ERRORC3,REACDATA $ 26 DPD DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,, TRL,,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ S,N,NOFRL/NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $ 26 PARAM //*AND*/FTERR /NOFRL /NOTRL $ 26 COND ERRORC5,FTERR $ NO FREQ OR TSTEP BULK DATA. 26 PARAML CASECC //*TABLE1*/1/14//FREQSET $ 26 PARAML CASECC //*TABLE1*/1/38//TIMESET $ 26 PARAM //*MPY*/FREQTIME /FREQSET /TIMESET $ 26 PARAM //*NOT*/FTERR1 /FREQTIME $ 26 PARAM //*LE*/NOFREQ /FREQSET /0 $ 26 PARAM //*LE*/NOTIME /TIMESET /0 $ 26 COND ERRORC6,FTERR1 $ BOTH FREQ AND TSTEP IN CASE CONTROL DECK. 26 PARAM //*NOT*/EXTRAPTS /NOUE $ 26 COND ERRORC4,EXTRAPTS $ 26 GPCYC GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $ 26 COND ERRORC1,NOGO $ 27 COND LBL1,NOSIMP $ 28 PARAM //*ADD*/NOKGGX/1/0 $ 29 PARAM //*ADD*/NOMGG/1/0 $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 30 PARAM //*ADD*/NOBGG=-1/1/0 $ 31 PARAM //*ADD*/NOK4GG/1/0 $ 32 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 33 PURGE KGGX/NOKGGX/MGG/NOMGG $ 34 COND LBLKGGX,NOKGGX $ 35 EMA GPECT,KDICT,KELM/KGGX $ 36 LABEL LBLKGGX $ 36 PARAM //*OR*/NOBM1 /NOMGG /NORPS $ 36 PURGE B1GG,M1GG /NOBM1 $ 36 PURGE M2GG,M2BASEXG /NOMGG $ 37 COND LBLMGG,NOMGG $ 38 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 39 PURGE MDICT,MELM/ALWAYS $ 39 FVRSTR1 CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG, PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/ V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/ V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA $ 39 PARAML FRLX //*PRES*////NOFRLX $ 39 COND LBLFRLX,NOFRLX $ 39 EQUIV FRLX,FRL $ 39 LABEL LBLFRLX $ 40 LABEL LBLMGG $ 41 COND LBLBGG,NOBGG $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 EMA GPECT,BDICT,BELM/BGG $ 43 PURGE BDICT,BELM/ALWAYS $ 44 LABEL LBLBGG $ 45 COND LBLK4GG,NOK4GG $ 46 EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ 47 LABEL LBLK4GG $ 48 PURGE KDICT,KELM/ALWAYS $ 48 PARAM //*ADD*/NOBGG /NOBM1 /0 $ RESET NOBGG. 49 PURGE MNN,MFF,MAA/NOMGG $ 50 PURGE BNN,BFF,BAA/NOBGG $ 51 COND LBL1,GRDPNT $ 52 COND ERROR4,NOMGG $ 53 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 54 OFP OGPWG,,,,,//S,N,CARDNO $ 55 LABEL LBL1 $ 56 EQUIV KGGX,KGG/NOGENL $ 57 COND LBL11,NOGENL $ 58 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 59 LABEL LBL11 $ 60 GPSTGEN KGG,SIL/GPST $ 60 COND LBL11A,NOBM1 $ 60 PARAMR //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $ 60 PARAMR //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 60 PARAMR //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $ 60 ADD BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $ 60 EQUIV BGG1,BGG $ 60 ADD KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $ 60 EQUIV KGG1,KGG $ 60 LABEL LBL11A 65 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ 66 COND LBL2,MPCF1 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 EQUIV MFF,MAA/OMIT $ 76 EQUIV BFF,BAA/OMIT $ 77 EQUIV K4FF,K4AA/OMIT $ 78 COND LBL5,OMIT $ 79 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 80 COND LBLM,NOMGG $ 81 SMP2 USET,GO,MFF/MAA $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 82 LABEL LBLM $ 83 COND LBLB,NOBGG $ 84 SMP2 USET,GO,BFF/BAA $ 85 LABEL LBLB $ 86 COND LBL5,NOK4GG $ 87 SMP2 USET,GO,K4FF/K4AA $ 88 LABEL LBL5 $ 90 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 91 PARAM //*ADD*/NEVER/1/0 $ 92 PARAM //*MPY*/REPEATF/-1/1 $ 93 BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ 94 PARAM //*AND*/NOFL/NOABFL/NOKBFL $ 95 PURGE KBFL/NOKBFL/ ABFL/NOABFL $ 96 COND LBL13,NOFL $ 97 MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ 98 LABEL LBL13 $ 99 PURGE OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ 100 CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ 101 MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ 102 PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ 103 PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 104 EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ 105 COND LBLFL2,NOFL $ 106 ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ 107 COND LBLFL2,NOABFL $ 108 TRNSP ABFL/ABFLT $ 109 ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ 110 LABEL LBLFL2 $ 111 PARAM //*AND*/BDEBA/NOUE/NOB2PP $ 112 PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ 113 PARAM //*AND*/MDEMA/NOUE/NOM2PP $ 114 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 114 PARAM //*AND*/KDEKA/NOUE/NOK2PP $ 114 COND LGKAD1,LGKAD $ BRANCH IN NOT FREQRESP. 115 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ MAA,MDD/MDEMA/BAA,BDD/BDEBA $ 115 JUMP LGKAD2 $ 115 LABEL LGKAD1 $ 115 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ 115 LABEL LGKAD2 $ 116 COND LBL18,NOGPDT $ 117 GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/ C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/ SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $ 118 LABEL LBL18 $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 118 COND LGKAD3,LGKAD $ BRANCH IF NOT FREQRESP. 119 EQUIV B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $ 119 JUMP LGKAD4 $ 119 LABEL LGKAD3 $ 119 EQUIV B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $ 119 LABEL LGKAD4 $ 124 COND LBLTRL1,NOTIME $ 124 PARAM //*MPY*/REPEATT /1 /-1 $ 124 PARAM //*ADD*/APPFLG /1 /0 $ INITIALIZE FOR SDR1. 124 LABEL TRLGLOOP $ 124 CASE CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $ 124 PARAM //*MPY*/NCOL /0 /1 $ 124 TRLG CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ ,,PDT1,PD1,,TOL/ NOSET/NCOL $ 124 SDR1 TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $ 124 SDR1 TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $ 124 PARAM //*ADD*/APPFLG /APPFLG /1 $ APPFLG=APPFLG+1. 124 COND TRLGDONE,REPEATT $ 124 REPT TRLGLOOP,100 $ 124 JUMP ERROR3 $ 124 LABEL TRLGDONE $ 124 FVRSTR2 TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/ V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/ S,N,NORO2 $ 124 EQUIV FRLZ,FRL // FOLZ,FOL $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 JUMP LBLFRL2 $ 124 LABEL LBLTRL1 $ 124 FRLG CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM / *DIRECT*/FREQY/*FREQ* $ 124 COND LBLFRLX1,NOFRLX $ ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED. 124 MPYAD PPF,PDZERO, / PPFX /0 $ 124 EQUIV PPFX,PPF $ 124 LABEL LBLFRLX1 $ 124 COND LBLFRL1,NOBASEX $ 124 MPYAD M2GG,BASEXG, / M2BASEXG /0 $ 124 ADD PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $ 124 EQUIV PPF1,PPF $ 124 COND LBLBASE1,NOSET $ 124 SSG2 USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $ 124 EQUIV PSF1,PSF // PDF1,PDF $ 124 LABEL LBLBASE1 $ 124 LABEL LBLFRL1 $ 124 EQUIV PPF,PDF/NOSET $ 124 PARAML PDF //*TRAILER*/1 /PDFCOLS $ 124 PARAM //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX 124 EQUIV PDF,PXF/CYCIO $ 124 COND LBLPDONE,CYCIO $ 124 PARAM //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS 124 CYCT1 PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1 /V,Y,KMAX=-1/ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T08-02-2A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NLOAD /S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 JUMP LBLPDONE $ 124 LABEL LBLFRL2 $ 124 PARAM //*NOT*/NOTCYCIO /V,Y,CYCIO $ 124 COND LBLTRL2,NOTCYCIO $ 124 EQUIV PD,PDTRZ1/NORO1 $ 124 COND LBLRO1A,NORO1 $ 124 MPYAD PD,REORDER1, / PDTRZ1 / 0 $ 124 LABEL LBLRO1A $ 124 CYCT1 PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/ S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 EQUIV PXTRZ1,PXFZ1/NORO2 $ 124 COND LBLRO2A,NORO2 $ 124 MPYAD PXTRZ1,REORDER2, / PXFZ1 /0 $ 124 LABEL LBLRO2A $ 124 EQUIV PXFZ1,PXF1 $ 124 JUMP LBLTRL3 $ 124 LABEL LBLTRL2 $ 124 MPYAD PD,REORDER1, / PDTRZ2 / 0 $ 124 CYCT1 PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/ V,Y,NSEGS/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 EQUIV PXTRZ2,PXTR2/NORO2 $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 COND LBLRO2B,NORO2 $ 124 MPYAD PXTRZ2,REORDER2, / PXTR2 /0 $ 124 LABEL LBLRO2B $ 124 CYCT1 PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/ FLMAX/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 EQUIV PXFZ2,PXF1 $ 124 LABEL LBLTRL3 $ 124 COPY PXF1 / PXF2 $ CONVERT REAL PXF1 TO COMPLEX PXF. 124 ADD PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $ 124 PARAM //*ADD*/NLOAD /FLMAX /0 $ NLOAD = FLMAX 124 LABEL LBLPDONE $ 124 PARAM //*ADD*/KINDEX /V,Y,KMIN=0 /0 $ INTITIALIZE KINDEX. 124 PARAM //*ADD*/KMINL /V,Y,KMIN /-1 $ 124 COND NOKMINL,KMINL $ 124 PARAM //*ADD*/KMINV /0 /0 $ 124 LABEL KMINLOOP $ 124 CYCT2 CYCDD,,,PXF,, /,,PKFZ,, /*FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/ S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 ADD PKFZ, / UKVFZ / (0.0,0.0) $ 124 PRTPARM //0/*KINDEX* $ 124 CYCT2 CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/ KMINV/CYCSEQ/NLOAD/S,N,NOGO $ 124 PRTPARM //0/*KINDEX* $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 COND ERRORC1,NOGO $ 124 PARAM //*ADD*/KMINV /KMINV /1 $ 124 REPT KMINLOOP,KMINL $ 124 LABEL NOKMINL $ 124 LABEL TOPCYC $ LOOP ON KINDEX 124 COND NOKPRT,NOKPRT $ 124 PRTPARM //0 /*KINDEX* $ 124 LABEL NOKPRT $ 124 CYCT2 CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/KINDEX/ CYCSEQ=-1/NLOAD/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 CYCT2 CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/KINDEX/ CYCSEQ/NLOAD/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 FRRD2 KKKF,BKKF,MKKF,,PKF,FOL / UKVF /0.0/0.0/-1.0 $ 124 CYCT2 CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KINDEX/CYCSEQ/ NLOAD/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 PARAM //*ADD*/KINDEX/KINDEX/1 $ KINDEX = KINDEX + 1 124 PARAM //*SUB*/DONE / V,Y,KMAX / KINDEX $ 124 COND LCYC2,DONE $ IF KINDEX .GT. KMAX THEN EXIT 124 REPT TOPCYC,100 $ 124 JUMP ERROR3 $ 124 LABEL LCYC2 $ 124 EQUIV UXVF,UDVF / CYCIO $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 COND LCYC3,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. 124 CYCT1 UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ 124 LABEL LCYC3 $ 124 COND LBLTRL4,NOTIME $ 124 EQUIV PXF,PDF2 / CYCIO $ 124 COND LCYC4,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. 124 CYCT1 PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ 124 LABEL LCYC4 $ 124 SDR1 USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $ 124 SSG2 USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $ 124 EQUIV PPFZ,PPF // PSFZ,PSF $ 124 LABEL LBLTRL4 $ 124 VDR CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $ 125 COND LBL15,NOD $ 126 COND LBL15A,NOSORT2 $ 127 SDR3 OUDVC1,,,,,/OUDVC2,,,,, $ 128 OFP OUDVC2,,,,,//S,N,CARDNO $ 129 XYTRAN XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/ S,N,CARDNO $ 130 XYPLOT XYPLTFA// $ 131 JUMP LBL15 $ 132 LABEL LBL15A $ 133 OFP OUDVC1,,,,,//S,N,CARDNO $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 134 LABEL LBL15 $ 135 COND LBL20,NOP $ 136 EQUIV UDVF,UPVC/NOA $ 137 COND LBL19,NOA $ 138 SDR1 USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ 139 LABEL LBL19 $ 140 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ 141 COND LBL17,NOSORT2 $ 142 SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2, OEFC2, $ 143 OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $ 144 XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ 145 XYPLOT XYPLTF// $ 146 COND LBL16,NOPSDL $ 147 RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ 148 COND LBL16,NORD $ 149 XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ 150 XYPLOT XYPLTR// $ 151 JUMP LBL16 $ 152 LABEL LBL17 $ 153 PURGE PSDF/NOSORT2 $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 154 OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $ 155 LABEL LBL16 $ 156 PURGE PSDF/NOPSDL $ 157 COND LBL20,JUMPPLOT $ 158 PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1, GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ 159 PRTMSG PLOTX2// $ 160 LABEL LBL20 $ 161 COND FINIS,REPEATF $ 162 REPT LBL13,100 $ 162 LABEL ERROR3 $ 163 PRTPARM //-3/*DIRFRRD* $ 164 JUMP FINIS $ 169 LABEL ERROR4 $ 170 PRTPARM //-4/*DIRFRRD* $ 170 LABEL ERRORC1 $ CHECK NSEGS, KMAX AND OTHER CYCLIC DATA. 170 PRTPARM //-5 /*CYCSTATICS* $ 170 LABEL ERRORC2 $ COUPLED MASS NOT ALLOWED. 170 PRTPARM //0 /C,Y,COUPMASS $ 170 JUMP FINIS $ 170 LABEL ERRORC3 $ SUPORT BULK DATA NOT ALLOWED. 170 PRTPARM //-6 /*CYCSTATICS* $ 170 LABEL ERRORC4 $ EPOINT BULK DATA NOT ALLOWED. 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T08-02-2A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 170 PRTPARM //0 /*NOUE* $ 170 JUMP FINIS $ 170 LABEL ERRORC5 $ NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK. 170 PRTPARM //0 /*NOFRL* $ 170 PRTPARM //0 /*NOTRL* $ 170 JUMP FINIS $ 170 LABEL ERRORC6 $ BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL. 170 PRTPARM //0 /*NOFREQ* $ 170 PRTPARM //0 /*NOTIME* $ 171 LABEL FINIS $ 172 PURGE DUMMY/ALWAYS $ 173 END $ 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T08-02-2A 0 0 *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION ADD INSTRUCTION NO. 124 DATA BLOCK NAMED PXF ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION CYCT2 INSTRUCTION NO. 124 DATA BLOCK NAMED UXVF ALREADY APPEARED AS OUTPUT 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T08-02-2A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 10 PROFILE 102 MAX WAVEFRONT 9 AVG WAVEFRONT 5.368 RMS WAVEFRONT 5.777 RMS BANDWIDTH 6.035 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 6 PROFILE 78 MAX WAVEFRONT 6 AVG WAVEFRONT 4.105 RMS WAVEFRONT 4.267 RMS BANDWIDTH 4.267 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 10 6 PROFILE (P) 102 78 MAXIMUM WAVEFRONT (C-MAX) 9 6 AVERAGE WAVEFRONT (C-AVG) 5.368 4.105 RMS WAVEFRONT (C-RMS) 5.777 4.267 RMS BANDWITCH (B-RMS) 6.035 4.267 NUMBER OF GRID POINTS (N) 19 NUMBER OF ELEMENTS (NON-RIGID) 12 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 9 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 46 MATRIX DENSITY, PERCENT 30.748 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 5 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T08-02-2A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 3 3 6 4 9 SEQGP 5 12 6 4 7 7 8 10 SEQGP 9 13 10 2 11 5 12 8 SEQGP 13 11 14 14 15 15 16 16 SEQGP 17 18 18 17 19 19 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) RPS = 0.600000E+03 (INPUT) 4TH PARM = 0.628319E+01 (INPUT) OMEGA = 0.376991E+04 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) 3RD PARM = 0.200000E+01 (INPUT) OMEGA = 0.376991E+04 (INPUT) OMEGA2 = 0.753982E+04 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) OMEGA = 0.376991E+04 (INPUT) OMEGA = 0.376991E+04 (INPUT) OMEGASQR = 0.142122E+08 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = EQ (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) RPS = 0.600000E+03 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) NORPS = 0 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE CASECC RECORD 1 WORD 14 = + 0 = FREQSET 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T08-02-2A 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE CASECC RECORD 1 WORD 38 = + 1 = TIMESET 0*** USER WARNING MESSAGE 4032 0NO COMPONENTS OF GRID POINTS 1 AND 10 WERE CONNECTED. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 4 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIA2 ELEMENTS (ELEMENT TYPE 17) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) OMEGA2 = 0.753982E+04 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) CMPLX1 = ( 0.753982E+04, 0.000000E+00) (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = SUB (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) 3RD PARM = 0.000000E+00 (INPUT) OMEGASQR = 0.142122E+08 (INPUT) MOMEGASQ = -0.142122E+08 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) MOMEGASQ = -0.142122E+08 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) CMPLX2 = (-0.142122E+08, 0.000000E+00) (OUTPUT) 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK RG MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T08-02-2A 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK PXF1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T08-02-2A 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK PXF1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK FOL MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK PXF1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK PXF1 MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T08-02-2A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E KINDEX 2 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T08-02-2A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E KINDEX 2 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T08-02-2A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E KINDEX 2 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T08-02-2A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E KINDEX 2 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T08-02-2A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E KINDEX 2 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** USER INFORMATION MESSAGE 3028 B = 24 BBAR = 43 C = 22 CBAR = 2 R = 66 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK SCRATCH4 (N = 130) TIME ESTIMATE = 0 SECONDS 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK PSF MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK PPF MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON 103, FROM ( 29, 12), TO ( 29, 36) 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 44 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 1 SUBCASE 1 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.693600E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -1.782907E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -9.999968E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 45 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 1 SUBCASE 1 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -1.693600E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 1.782907E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 9.999968E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 46 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 1 SUBCASE 1 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -1.693600E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 1.782907E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 9.999968E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 47 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 2 SUBCASE 2 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 48 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 2 SUBCASE 2 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 49 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 2 SUBCASE 2 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 50 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 3 SUBCASE 3 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 51 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 3 SUBCASE 3 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 52 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 3 SUBCASE 3 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 53 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 4 SUBCASE 4 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -1.693600E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 1.782907E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 9.999968E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 54 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 4 SUBCASE 4 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.693600E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -1.782907E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -9.999968E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 55 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 4 SUBCASE 4 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.693600E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -1.782907E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -9.999968E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 56 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 5 SUBCASE 5 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 57 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 5 SUBCASE 5 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 58 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 5 SUBCASE 5 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 59 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 6 SUBCASE 6 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 60 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 6 SUBCASE 6 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 61 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 6 SUBCASE 6 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 62 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 7 SUBCASE 7 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.693600E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -1.782907E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -9.999968E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 63 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 7 SUBCASE 7 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -1.693600E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 1.782907E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 9.999968E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 64 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 7 SUBCASE 7 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -1.693600E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 1.782907E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 9.999968E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 65 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 8 SUBCASE 8 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 66 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 8 SUBCASE 8 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 67 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 8 SUBCASE 8 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 68 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 9 SUBCASE 9 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 69 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 9 SUBCASE 9 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 70 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 9 SUBCASE 9 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 71 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 10 SUBCASE 10 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -1.693600E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 1.782907E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 9.999968E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 72 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 10 SUBCASE 10 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.693600E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -1.782907E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -9.999968E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 73 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 10 SUBCASE 10 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 1.693600E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -1.782907E-05 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -9.999968E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 74 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 11 SUBCASE 11 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 75 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 11 SUBCASE 11 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 76 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 11 SUBCASE 11 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 77 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 12 SUBCASE 12 POINT-ID = 8 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 -4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 78 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 12 SUBCASE 12 POINT-ID = 16 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 79 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 12 SUBCASE 12 POINT-ID = 18 C O M P L E X L O A D V E C T O R (REAL/IMAGINARY) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 0.0 0.0 -8.468000E-07 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 8.914534E-06 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 1.813842E+03 G 0.0 0.0 4.999984E-01 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 80 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 1 SUBCASE 1 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 1.661300E-15 4.931037E-14 4.351790E-10 1.630375E-13 2.312709E-10 0.0 178.8542 358.8542 178.8542 178.8542 358.8542 0.0 0 1.813842E+03 G 9.333154E-12 8.381868E-12 9.488562E-09 3.381597E-10 4.586147E-09 0.0 351.6420 265.6745 79.0565 70.1626 77.9255 0.0 0 1.813842E+03 G 5.234780E-07 4.701222E-07 5.321944E-04 1.896670E-05 2.572279E-04 0.0 351.6420 265.6745 79.0565 70.1626 77.9255 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 81 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 1 SUBCASE 1 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 1.617212E-10 1.458915E-11 1.864120E-09 1.351696E-10 8.442844E-10 0.0 178.8542 178.8542 178.8542 178.8542 358.8542 0.0 0 1.813842E+03 G 5.150886E-10 3.114708E-10 8.459438E-09 2.737984E-09 8.898125E-09 0.0 264.7141 263.8242 258.9401 80.9074 261.5742 0.0 0 1.813842E+03 G 2.889029E-05 1.746977E-05 4.744730E-04 1.535681E-04 4.990781E-04 0.0 264.7141 263.8242 258.9401 80.9074 261.5742 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 82 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 1 SUBCASE 1 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 1.609451E-10 1.561982E-11 1.860811E-09 9.553836E-11 8.628881E-10 0.0 358.8542 178.8542 178.8542 358.8542 358.8542 0.0 0 1.813842E+03 G 5.458312E-10 1.726686E-10 8.874058E-09 2.819557E-09 8.820880E-09 0.0 78.6427 260.0269 259.1875 261.7178 261.3694 0.0 0 1.813842E+03 G 3.061458E-05 9.684634E-06 4.977282E-04 1.581433E-04 4.947456E-04 0.0 78.6427 260.0269 259.1875 261.7178 261.3694 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 83 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 2 SUBCASE 2 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 3.846777E-14 2.386441E-14 2.179214E-10 1.438749E-10 1.158716E-10 0.0 358.8542 358.8542 178.8542 358.8542 358.8542 0.0 0 1.813842E+03 G 5.152533E-12 7.707243E-12 5.524288E-09 2.882121E-09 2.671070E-09 0.0 352.8124 210.2862 78.0386 259.6818 76.5321 0.0 0 1.813842E+03 G 2.889953E-07 4.322839E-07 3.098463E-04 1.616524E-04 1.498150E-04 0.0 352.8124 210.2862 78.0386 259.6818 76.5321 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 84 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 2 SUBCASE 2 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 8.624381E-11 5.065468E-11 1.104715E-09 1.629720E-10 4.384620E-10 0.0 178.8542 358.8542 178.8542 358.8542 358.8542 0.0 0 1.813842E+03 G 5.127425E-10 6.029132E-10 7.306781E-09 4.660559E-09 4.518002E-09 0.0 259.3128 76.1186 256.7693 76.1515 258.6024 0.0 0 1.813842E+03 G 2.875871E-05 3.381620E-05 4.098228E-04 2.614015E-04 2.534057E-04 0.0 259.3128 76.1186 256.7693 76.1515 258.6024 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 85 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 2 SUBCASE 2 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 7.485032E-11 6.574661E-11 7.580826E-10 2.777260E-10 4.130237E-10 0.0 358.8542 178.8542 178.8542 358.8542 358.8542 0.0 0 1.813842E+03 G 1.042364E-10 8.832747E-10 2.804561E-09 1.441803E-09 5.817278E-09 0.0 79.4607 254.0120 259.4623 71.3667 257.3483 0.0 0 1.813842E+03 G 5.846410E-06 4.954112E-05 1.573022E-04 8.086787E-05 3.262795E-04 0.0 79.4607 254.0120 259.4623 71.3667 257.3483 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 86 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 3 SUBCASE 3 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 4.012907E-14 2.544595E-14 2.172576E-10 1.440379E-10 1.153993E-10 0.0 358.8542 178.8542 358.8542 358.8542 178.8542 0.0 0 1.813842E+03 G 4.183021E-12 7.501263E-12 3.966360E-09 3.216110E-09 1.916969E-09 0.0 170.2002 143.4129 260.4743 258.6854 259.8672 0.0 0 1.813842E+03 G 2.346173E-07 4.207309E-07 2.224652E-04 1.803852E-04 1.075189E-04 0.0 170.2002 143.4129 260.4743 258.6854 259.8672 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 87 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 3 SUBCASE 3 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 7.547734E-11 6.524384E-11 7.594051E-10 2.981416E-10 4.058223E-10 0.0 358.8542 358.8542 358.8542 358.8542 178.8542 0.0 0 1.813842E+03 G 4.848513E-11 9.125276E-10 1.190517E-09 1.945294E-09 4.392448E-09 0.0 169.2431 78.7417 92.3829 69.4499 84.6310 0.0 0 1.813842E+03 G 2.719434E-06 5.118185E-05 6.677374E-05 1.091076E-04 2.463637E-04 0.0 169.2431 78.7417 92.3829 69.4499 84.6310 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 88 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 3 SUBCASE 3 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 8.609477E-11 5.012680E-11 1.102728E-09 1.821877E-10 4.498644E-10 0.0 178.8542 178.8542 358.8542 358.8542 178.8542 0.0 0 1.813842E+03 G 4.416079E-10 7.117867E-10 6.069545E-09 4.245806E-09 3.045367E-09 0.0 258.4496 252.5555 79.0605 78.2197 89.0672 0.0 0 1.813842E+03 G 2.476891E-05 3.992270E-05 3.404287E-04 2.381388E-04 1.708086E-04 0.0 258.4496 252.5555 79.0605 78.2197 89.0672 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 89 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 4 SUBCASE 4 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 1.661300E-15 4.931037E-14 4.351790E-10 1.630375E-13 2.312709E-10 0.0 358.8542 178.8542 358.8542 358.8542 178.8542 0.0 0 1.813842E+03 G 9.333154E-12 8.381868E-12 9.488562E-09 3.381597E-10 4.586147E-09 0.0 171.6420 85.6745 259.0565 250.1626 257.9255 0.0 0 1.813842E+03 G 5.234780E-07 4.701222E-07 5.321944E-04 1.896670E-05 2.572279E-04 0.0 171.6420 85.6745 259.0565 250.1626 257.9255 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 90 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 4 SUBCASE 4 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 1.617212E-10 1.458915E-11 1.864120E-09 1.351696E-10 8.442844E-10 0.0 358.8542 358.8542 358.8542 358.8542 178.8542 0.0 0 1.813842E+03 G 5.150886E-10 3.114708E-10 8.459438E-09 2.737984E-09 8.898125E-09 0.0 84.7141 83.8242 78.9401 260.9074 81.5742 0.0 0 1.813842E+03 G 2.889029E-05 1.746977E-05 4.744730E-04 1.535681E-04 4.990781E-04 0.0 84.7141 83.8242 78.9401 260.9074 81.5742 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 91 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 4 SUBCASE 4 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 1.609451E-10 1.561982E-11 1.860811E-09 9.553836E-11 8.628881E-10 0.0 178.8542 358.8542 358.8542 178.8542 178.8542 0.0 0 1.813842E+03 G 5.458312E-10 1.726686E-10 8.874058E-09 2.819557E-09 8.820880E-09 0.0 258.6427 80.0269 79.1875 81.7178 81.3694 0.0 0 1.813842E+03 G 3.061458E-05 9.684634E-06 4.977282E-04 1.581433E-04 4.947456E-04 0.0 258.6427 80.0269 79.1875 81.7178 81.3694 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 92 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 5 SUBCASE 5 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 3.846777E-14 2.386441E-14 2.179214E-10 1.438749E-10 1.158716E-10 0.0 178.8542 178.8542 358.8542 178.8542 178.8542 0.0 0 1.813842E+03 G 5.152533E-12 7.707243E-12 5.524288E-09 2.882121E-09 2.671070E-09 0.0 172.8125 30.2862 258.0386 79.6818 256.5321 0.0 0 1.813842E+03 G 2.889953E-07 4.322839E-07 3.098463E-04 1.616524E-04 1.498150E-04 0.0 172.8125 30.2862 258.0386 79.6818 256.5321 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 93 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 5 SUBCASE 5 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 8.624381E-11 5.065468E-11 1.104715E-09 1.629720E-10 4.384620E-10 0.0 358.8542 178.8542 358.8542 178.8542 178.8542 0.0 0 1.813842E+03 G 5.127425E-10 6.029132E-10 7.306781E-09 4.660559E-09 4.518002E-09 0.0 79.3128 256.1186 76.7693 256.1515 78.6024 0.0 0 1.813842E+03 G 2.875871E-05 3.381620E-05 4.098228E-04 2.614015E-04 2.534057E-04 0.0 79.3129 256.1186 76.7693 256.1515 78.6024 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 94 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 5 SUBCASE 5 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 7.485032E-11 6.574661E-11 7.580826E-10 2.777260E-10 4.130237E-10 0.0 178.8542 358.8542 358.8542 178.8542 178.8542 0.0 0 1.813842E+03 G 1.042364E-10 8.832747E-10 2.804561E-09 1.441803E-09 5.817278E-09 0.0 259.4607 74.0120 79.4623 251.3667 77.3483 0.0 0 1.813842E+03 G 5.846410E-06 4.954112E-05 1.573022E-04 8.086787E-05 3.262795E-04 0.0 259.4607 74.0120 79.4623 251.3667 77.3483 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 95 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 6 SUBCASE 6 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 4.012907E-14 2.544595E-14 2.172576E-10 1.440379E-10 1.153993E-10 0.0 178.8542 358.8542 178.8542 178.8542 358.8542 0.0 0 1.813842E+03 G 4.183021E-12 7.501263E-12 3.966360E-09 3.216110E-09 1.916969E-09 0.0 350.2002 323.4129 80.4743 78.6854 79.8672 0.0 0 1.813842E+03 G 2.346173E-07 4.207309E-07 2.224652E-04 1.803852E-04 1.075189E-04 0.0 350.2002 323.4129 80.4743 78.6854 79.8672 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 96 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 6 SUBCASE 6 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 7.547734E-11 6.524384E-11 7.594051E-10 2.981416E-10 4.058223E-10 0.0 178.8542 178.8542 178.8542 178.8542 358.8542 0.0 0 1.813842E+03 G 4.848513E-11 9.125276E-10 1.190517E-09 1.945294E-09 4.392448E-09 0.0 349.2431 258.7417 272.3829 249.4499 264.6310 0.0 0 1.813842E+03 G 2.719434E-06 5.118185E-05 6.677374E-05 1.091076E-04 2.463637E-04 0.0 349.2431 258.7417 272.3829 249.4499 264.6310 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 97 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 6 SUBCASE 6 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 8.609477E-11 5.012680E-11 1.102728E-09 1.821877E-10 4.498644E-10 0.0 358.8542 358.8542 178.8542 178.8542 358.8542 0.0 0 1.813842E+03 G 4.416079E-10 7.117867E-10 6.069545E-09 4.245806E-09 3.045367E-09 0.0 78.4496 72.5554 259.0605 258.2197 269.0672 0.0 0 1.813842E+03 G 2.476891E-05 3.992270E-05 3.404287E-04 2.381388E-04 1.708086E-04 0.0 78.4496 72.5554 259.0605 258.2197 269.0672 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 98 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 7 SUBCASE 7 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 1.661300E-15 4.931037E-14 4.351790E-10 1.630375E-13 2.312709E-10 0.0 178.8542 358.8542 178.8542 178.8542 358.8542 0.0 0 1.813842E+03 G 9.333154E-12 8.381868E-12 9.488562E-09 3.381597E-10 4.586147E-09 0.0 351.6420 265.6745 79.0565 70.1626 77.9255 0.0 0 1.813842E+03 G 5.234780E-07 4.701222E-07 5.321944E-04 1.896670E-05 2.572279E-04 0.0 351.6420 265.6745 79.0565 70.1626 77.9255 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 99 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 7 SUBCASE 7 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 1.617212E-10 1.458915E-11 1.864120E-09 1.351696E-10 8.442844E-10 0.0 178.8542 178.8542 178.8542 178.8542 358.8542 0.0 0 1.813842E+03 G 5.150886E-10 3.114708E-10 8.459438E-09 2.737984E-09 8.898125E-09 0.0 264.7141 263.8242 258.9401 80.9074 261.5742 0.0 0 1.813842E+03 G 2.889029E-05 1.746977E-05 4.744730E-04 1.535681E-04 4.990781E-04 0.0 264.7141 263.8242 258.9401 80.9074 261.5742 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 100 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 7 SUBCASE 7 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 1.609451E-10 1.561982E-11 1.860811E-09 9.553836E-11 8.628881E-10 0.0 358.8542 178.8542 178.8542 358.8542 358.8542 0.0 0 1.813842E+03 G 5.458312E-10 1.726686E-10 8.874058E-09 2.819557E-09 8.820880E-09 0.0 78.6427 260.0269 259.1875 261.7178 261.3694 0.0 0 1.813842E+03 G 3.061458E-05 9.684634E-06 4.977282E-04 1.581433E-04 4.947456E-04 0.0 78.6427 260.0269 259.1875 261.7178 261.3694 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 101 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 8 SUBCASE 8 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 3.846777E-14 2.386441E-14 2.179214E-10 1.438749E-10 1.158716E-10 0.0 358.8542 358.8542 178.8542 358.8542 358.8542 0.0 0 1.813842E+03 G 5.152533E-12 7.707243E-12 5.524288E-09 2.882121E-09 2.671070E-09 0.0 352.8124 210.2862 78.0386 259.6818 76.5321 0.0 0 1.813842E+03 G 2.889953E-07 4.322839E-07 3.098463E-04 1.616524E-04 1.498150E-04 0.0 352.8124 210.2862 78.0386 259.6818 76.5321 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 102 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 8 SUBCASE 8 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 8.624381E-11 5.065468E-11 1.104715E-09 1.629720E-10 4.384620E-10 0.0 178.8542 358.8542 178.8542 358.8542 358.8542 0.0 0 1.813842E+03 G 5.127425E-10 6.029132E-10 7.306781E-09 4.660559E-09 4.518002E-09 0.0 259.3128 76.1186 256.7693 76.1515 258.6024 0.0 0 1.813842E+03 G 2.875871E-05 3.381620E-05 4.098228E-04 2.614015E-04 2.534057E-04 0.0 259.3128 76.1186 256.7693 76.1515 258.6024 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 103 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 8 SUBCASE 8 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 7.485032E-11 6.574661E-11 7.580826E-10 2.777260E-10 4.130237E-10 0.0 358.8542 178.8542 178.8542 358.8542 358.8542 0.0 0 1.813842E+03 G 1.042364E-10 8.832747E-10 2.804561E-09 1.441803E-09 5.817278E-09 0.0 79.4607 254.0120 259.4623 71.3667 257.3483 0.0 0 1.813842E+03 G 5.846410E-06 4.954112E-05 1.573022E-04 8.086787E-05 3.262795E-04 0.0 79.4607 254.0120 259.4623 71.3667 257.3483 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 104 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 9 SUBCASE 9 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 4.012907E-14 2.544595E-14 2.172576E-10 1.440379E-10 1.153993E-10 0.0 358.8542 178.8542 358.8542 358.8542 178.8542 0.0 0 1.813842E+03 G 4.183021E-12 7.501263E-12 3.966360E-09 3.216110E-09 1.916969E-09 0.0 170.2002 143.4129 260.4743 258.6854 259.8672 0.0 0 1.813842E+03 G 2.346173E-07 4.207309E-07 2.224652E-04 1.803852E-04 1.075189E-04 0.0 170.2002 143.4129 260.4743 258.6854 259.8672 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 105 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 9 SUBCASE 9 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 7.547734E-11 6.524384E-11 7.594051E-10 2.981416E-10 4.058223E-10 0.0 358.8542 358.8542 358.8542 358.8542 178.8542 0.0 0 1.813842E+03 G 4.848513E-11 9.125276E-10 1.190517E-09 1.945294E-09 4.392448E-09 0.0 169.2431 78.7417 92.3829 69.4499 84.6310 0.0 0 1.813842E+03 G 2.719434E-06 5.118185E-05 6.677374E-05 1.091076E-04 2.463637E-04 0.0 169.2431 78.7417 92.3829 69.4499 84.6310 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 106 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 9 SUBCASE 9 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 8.609477E-11 5.012680E-11 1.102728E-09 1.821877E-10 4.498644E-10 0.0 178.8542 178.8542 358.8542 358.8542 178.8542 0.0 0 1.813842E+03 G 4.416079E-10 7.117867E-10 6.069545E-09 4.245806E-09 3.045367E-09 0.0 258.4496 252.5555 79.0605 78.2197 89.0672 0.0 0 1.813842E+03 G 2.476891E-05 3.992270E-05 3.404287E-04 2.381388E-04 1.708086E-04 0.0 258.4496 252.5555 79.0605 78.2197 89.0672 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 107 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 10 SUBCASE 10 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 1.661300E-15 4.931037E-14 4.351790E-10 1.630375E-13 2.312709E-10 0.0 358.8542 178.8542 358.8542 358.8542 178.8542 0.0 0 1.813842E+03 G 9.333154E-12 8.381868E-12 9.488562E-09 3.381597E-10 4.586147E-09 0.0 171.6420 85.6745 259.0565 250.1626 257.9255 0.0 0 1.813842E+03 G 5.234780E-07 4.701222E-07 5.321944E-04 1.896670E-05 2.572279E-04 0.0 171.6420 85.6745 259.0565 250.1626 257.9255 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 108 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 10 SUBCASE 10 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 1.617212E-10 1.458915E-11 1.864120E-09 1.351696E-10 8.442844E-10 0.0 358.8542 358.8542 358.8542 358.8542 178.8542 0.0 0 1.813842E+03 G 5.150886E-10 3.114708E-10 8.459438E-09 2.737984E-09 8.898125E-09 0.0 84.7141 83.8242 78.9401 260.9074 81.5742 0.0 0 1.813842E+03 G 2.889029E-05 1.746977E-05 4.744730E-04 1.535681E-04 4.990781E-04 0.0 84.7141 83.8242 78.9401 260.9074 81.5742 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 109 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 10 SUBCASE 10 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 1.609451E-10 1.561982E-11 1.860811E-09 9.553836E-11 8.628881E-10 0.0 178.8542 358.8542 358.8542 178.8542 178.8542 0.0 0 1.813842E+03 G 5.458312E-10 1.726686E-10 8.874058E-09 2.819557E-09 8.820880E-09 0.0 258.6427 80.0269 79.1875 81.7178 81.3694 0.0 0 1.813842E+03 G 3.061458E-05 9.684634E-06 4.977282E-04 1.581433E-04 4.947456E-04 0.0 258.6427 80.0269 79.1875 81.7178 81.3694 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 110 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 11 SUBCASE 11 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 3.846777E-14 2.386441E-14 2.179214E-10 1.438749E-10 1.158716E-10 0.0 178.8542 178.8542 358.8542 178.8542 178.8542 0.0 0 1.813842E+03 G 5.152533E-12 7.707243E-12 5.524288E-09 2.882121E-09 2.671070E-09 0.0 172.8125 30.2862 258.0386 79.6818 256.5321 0.0 0 1.813842E+03 G 2.889953E-07 4.322839E-07 3.098463E-04 1.616524E-04 1.498150E-04 0.0 172.8125 30.2862 258.0386 79.6818 256.5321 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 111 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 11 SUBCASE 11 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 8.624381E-11 5.065468E-11 1.104715E-09 1.629720E-10 4.384620E-10 0.0 358.8542 178.8542 358.8542 178.8542 178.8542 0.0 0 1.813842E+03 G 5.127425E-10 6.029132E-10 7.306781E-09 4.660559E-09 4.518002E-09 0.0 79.3128 256.1186 76.7693 256.1515 78.6024 0.0 0 1.813842E+03 G 2.875871E-05 3.381620E-05 4.098228E-04 2.614015E-04 2.534057E-04 0.0 79.3129 256.1186 76.7693 256.1515 78.6024 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 112 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 11 SUBCASE 11 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 7.485032E-11 6.574661E-11 7.580826E-10 2.777260E-10 4.130237E-10 0.0 178.8542 358.8542 358.8542 178.8542 178.8542 0.0 0 1.813842E+03 G 1.042364E-10 8.832747E-10 2.804561E-09 1.441803E-09 5.817278E-09 0.0 259.4607 74.0120 79.4623 251.3667 77.3483 0.0 0 1.813842E+03 G 5.846410E-06 4.954112E-05 1.573022E-04 8.086787E-05 3.262795E-04 0.0 259.4607 74.0120 79.4623 251.3667 77.3483 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 113 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 12 SUBCASE 12 POINT-ID = 8 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 4.012907E-14 2.544595E-14 2.172576E-10 1.440379E-10 1.153993E-10 0.0 178.8542 358.8542 178.8542 178.8542 358.8542 0.0 0 1.813842E+03 G 4.183021E-12 7.501263E-12 3.966360E-09 3.216110E-09 1.916969E-09 0.0 350.2002 323.4129 80.4743 78.6854 79.8672 0.0 0 1.813842E+03 G 2.346173E-07 4.207309E-07 2.224652E-04 1.803852E-04 1.075189E-04 0.0 350.2002 323.4129 80.4743 78.6854 79.8672 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 114 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 12 SUBCASE 12 POINT-ID = 16 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 7.547734E-11 6.524384E-11 7.594051E-10 2.981416E-10 4.058223E-10 0.0 178.8542 178.8542 178.8542 178.8542 358.8542 0.0 0 1.813842E+03 G 4.848513E-11 9.125276E-10 1.190517E-09 1.945294E-09 4.392448E-09 0.0 349.2431 258.7417 272.3829 249.4499 264.6310 0.0 0 1.813842E+03 G 2.719434E-06 5.118185E-05 6.677374E-05 1.091076E-04 2.463637E-04 0.0 349.2431 258.7417 272.3829 249.4499 264.6310 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 115 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 12 SUBCASE 12 POINT-ID = 18 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) FREQUENCY TYPE T1 T2 T3 R1 R2 R3 0 0.0 G 8.609477E-11 5.012680E-11 1.102728E-09 1.821877E-10 4.498644E-10 0.0 358.8542 358.8542 178.8542 178.8542 358.8542 0.0 0 1.813842E+03 G 4.416079E-10 7.117867E-10 6.069545E-09 4.245806E-09 3.045367E-09 0.0 78.4496 72.5554 259.0605 258.2197 269.0672 0.0 0 1.813842E+03 G 2.476891E-05 3.992270E-05 3.404287E-04 2.381388E-04 1.708086E-04 0.0 78.4496 72.5554 259.0605 258.2197 269.0672 0.0 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 116 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 1 SUBCASE 1 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 0.0 -6.250000E-02 7.259272E-04 / 178.8542 1.494002E-04 / 178.8542 9.090402E-05 / 178.8542 6.250000E-02 7.278540E-04 / 358.8542 1.482291E-04 / 358.8542 8.445042E-05 / 358.8542 0 1.813842E+03 -6.250000E-02 2.585664E-02 / 79.4725 3.601989E-03 / 79.7189 1.627299E-03 / 77.0431 6.250000E-02 2.555313E-02 / 261.1169 3.892161E-03 / 261.3012 3.084221E-03 / 261.1436 0 1.813842E+03 -6.250000E-02 1.450247E+03 / 79.4725 2.020284E+02 / 79.7188 9.127180E+01 / 77.0431 6.250000E-02 1.433224E+03 / 261.1169 2.183035E+02 / 261.3012 1.729877E+02 / 261.1436 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 117 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 2 SUBCASE 2 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 0.0 -6.250000E-02 3.612966E-04 / 178.8542 7.650215E-05 / 178.8542 4.759038E-05 / 178.8542 6.250000E-02 3.632019E-04 / 358.8542 7.584626E-05 / 358.8542 4.442726E-05 / 358.8542 0 1.813842E+03 -6.250000E-02 1.482562E-02 / 76.8770 2.322681E-03 / 76.4903 2.077796E-03 / 75.6376 6.250000E-02 1.446412E-02 / 258.6485 2.415987E-03 / 257.1886 2.920436E-03 / 256.1883 0 1.813842E+03 -6.250000E-02 8.315390E+02 / 76.8770 1.302745E+02 / 76.4903 1.165393E+02 / 75.6376 6.250000E-02 8.112634E+02 / 258.6485 1.355079E+02 / 257.1886 1.638012E+02 / 256.1883 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 118 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 3 SUBCASE 3 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 0.0 -6.250000E-02 3.646302E-04 / 358.8542 7.289708E-05 / 358.8542 4.331315E-05 / 358.8542 6.250000E-02 3.646526E-04 / 178.8542 7.238358E-05 / 178.8542 4.002242E-05 / 178.8542 0 1.813842E+03 -6.250000E-02 1.106662E-02 / 262.9505 1.289643E-03 / 265.5404 4.527489E-04 / 70.5799 6.250000E-02 1.111990E-02 / 84.3284 1.492488E-03 / 87.9678 3.068515E-04 / 136.4398 0 1.813842E+03 -6.250000E-02 6.207045E+02 / 262.9505 7.233345E+01 / 265.5404 2.539389E+01 / 70.5800 6.250000E-02 6.236929E+02 / 84.3284 8.371075E+01 / 87.9678 1.721067E+01 / 136.4398 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 119 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 4 SUBCASE 4 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 0.0 -6.250000E-02 7.259272E-04 / 358.8542 1.494002E-04 / 358.8542 9.090402E-05 / 358.8542 6.250000E-02 7.278540E-04 / 178.8542 1.482291E-04 / 178.8542 8.445042E-05 / 178.8542 0 1.813842E+03 -6.250000E-02 2.585664E-02 / 259.4725 3.601989E-03 / 259.7189 1.627299E-03 / 257.0431 6.250000E-02 2.555313E-02 / 81.1169 3.892161E-03 / 81.3012 3.084221E-03 / 81.1436 0 1.813842E+03 -6.250000E-02 1.450247E+03 / 259.4725 2.020284E+02 / 259.7188 9.127180E+01 / 257.0431 6.250000E-02 1.433224E+03 / 81.1169 2.183035E+02 / 81.3012 1.729877E+02 / 81.1436 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 120 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 5 SUBCASE 5 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 0.0 -6.250000E-02 3.612966E-04 / 358.8542 7.650215E-05 / 358.8542 4.759038E-05 / 358.8542 6.250000E-02 3.632019E-04 / 178.8542 7.584626E-05 / 178.8542 4.442726E-05 / 178.8542 0 1.813842E+03 -6.250000E-02 1.482562E-02 / 256.8770 2.322681E-03 / 256.4903 2.077796E-03 / 255.6376 6.250000E-02 1.446412E-02 / 78.6485 2.415987E-03 / 77.1886 2.920436E-03 / 76.1883 0 1.813842E+03 -6.250000E-02 8.315390E+02 / 256.8770 1.302745E+02 / 256.4903 1.165393E+02 / 255.6376 6.250000E-02 8.112634E+02 / 78.6485 1.355079E+02 / 77.1886 1.638012E+02 / 76.1883 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 121 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 6 SUBCASE 6 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 0.0 -6.250000E-02 3.646302E-04 / 178.8542 7.289708E-05 / 178.8542 4.331315E-05 / 178.8542 6.250000E-02 3.646526E-04 / 358.8542 7.238358E-05 / 358.8542 4.002242E-05 / 358.8542 0 1.813842E+03 -6.250000E-02 1.106662E-02 / 82.9505 1.289643E-03 / 85.5404 4.527489E-04 / 250.5799 6.250000E-02 1.111990E-02 / 264.3284 1.492488E-03 / 267.9678 3.068515E-04 / 316.4398 0 1.813842E+03 -6.250000E-02 6.207045E+02 / 82.9505 7.233345E+01 / 85.5404 2.539389E+01 / 250.5800 6.250000E-02 6.236929E+02 / 264.3284 8.371075E+01 / 267.9678 1.721067E+01 / 316.4398 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 122 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 7 SUBCASE 7 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 0.0 -6.250000E-02 7.259272E-04 / 178.8542 1.494002E-04 / 178.8542 9.090402E-05 / 178.8542 6.250000E-02 7.278540E-04 / 358.8542 1.482291E-04 / 358.8542 8.445042E-05 / 358.8542 0 1.813842E+03 -6.250000E-02 2.585664E-02 / 79.4725 3.601989E-03 / 79.7189 1.627299E-03 / 77.0431 6.250000E-02 2.555313E-02 / 261.1169 3.892161E-03 / 261.3012 3.084221E-03 / 261.1436 0 1.813842E+03 -6.250000E-02 1.450247E+03 / 79.4725 2.020284E+02 / 79.7188 9.127180E+01 / 77.0431 6.250000E-02 1.433224E+03 / 261.1169 2.183035E+02 / 261.3012 1.729877E+02 / 261.1436 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 123 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 8 SUBCASE 8 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 0.0 -6.250000E-02 3.612966E-04 / 178.8542 7.650215E-05 / 178.8542 4.759038E-05 / 178.8542 6.250000E-02 3.632019E-04 / 358.8542 7.584626E-05 / 358.8542 4.442726E-05 / 358.8542 0 1.813842E+03 -6.250000E-02 1.482562E-02 / 76.8770 2.322681E-03 / 76.4903 2.077796E-03 / 75.6376 6.250000E-02 1.446412E-02 / 258.6485 2.415987E-03 / 257.1886 2.920436E-03 / 256.1883 0 1.813842E+03 -6.250000E-02 8.315390E+02 / 76.8770 1.302745E+02 / 76.4903 1.165393E+02 / 75.6376 6.250000E-02 8.112634E+02 / 258.6485 1.355079E+02 / 257.1886 1.638012E+02 / 256.1883 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 124 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 9 SUBCASE 9 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 0.0 -6.250000E-02 3.646302E-04 / 358.8542 7.289708E-05 / 358.8542 4.331315E-05 / 358.8542 6.250000E-02 3.646526E-04 / 178.8542 7.238358E-05 / 178.8542 4.002242E-05 / 178.8542 0 1.813842E+03 -6.250000E-02 1.106662E-02 / 262.9505 1.289643E-03 / 265.5404 4.527489E-04 / 70.5799 6.250000E-02 1.111990E-02 / 84.3284 1.492488E-03 / 87.9678 3.068515E-04 / 136.4398 0 1.813842E+03 -6.250000E-02 6.207045E+02 / 262.9505 7.233345E+01 / 265.5404 2.539389E+01 / 70.5800 6.250000E-02 6.236929E+02 / 84.3284 8.371075E+01 / 87.9678 1.721067E+01 / 136.4398 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 125 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 10 SUBCASE 10 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 0.0 -6.250000E-02 7.259272E-04 / 358.8542 1.494002E-04 / 358.8542 9.090402E-05 / 358.8542 6.250000E-02 7.278540E-04 / 178.8542 1.482291E-04 / 178.8542 8.445042E-05 / 178.8542 0 1.813842E+03 -6.250000E-02 2.585664E-02 / 259.4725 3.601989E-03 / 259.7189 1.627299E-03 / 257.0431 6.250000E-02 2.555313E-02 / 81.1169 3.892161E-03 / 81.3012 3.084221E-03 / 81.1436 0 1.813842E+03 -6.250000E-02 1.450247E+03 / 259.4725 2.020284E+02 / 259.7188 9.127180E+01 / 257.0431 6.250000E-02 1.433224E+03 / 81.1169 2.183035E+02 / 81.3012 1.729877E+02 / 81.1436 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 126 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 11 SUBCASE 11 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 0.0 -6.250000E-02 3.612966E-04 / 358.8542 7.650215E-05 / 358.8542 4.759038E-05 / 358.8542 6.250000E-02 3.632019E-04 / 178.8542 7.584626E-05 / 178.8542 4.442726E-05 / 178.8542 0 1.813842E+03 -6.250000E-02 1.482562E-02 / 256.8770 2.322681E-03 / 256.4903 2.077796E-03 / 255.6376 6.250000E-02 1.446412E-02 / 78.6485 2.415987E-03 / 77.1886 2.920436E-03 / 76.1883 0 1.813842E+03 -6.250000E-02 8.315390E+02 / 256.8770 1.302745E+02 / 256.4903 1.165393E+02 / 255.6376 6.250000E-02 8.112634E+02 / 78.6485 1.355079E+02 / 77.1886 1.638012E+02 / 76.1883 1 ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 127 NASTRAN TEST PROBLEM NO. T08-02-2A 0 SEGMENT 12 SUBCASE 12 ELEMENT-ID = 11 C O M P L E X S T R E S S E S I N G E N E R A L Q U A D R I L I A T E R A L E L E M E N T S ( C Q U A D 2 ) (MAGNITUDE/PHASE) FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - FREQUENCY,6X,8HDISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 0.0 -6.250000E-02 3.646302E-04 / 178.8542 7.289708E-05 / 178.8542 4.331315E-05 / 178.8542 6.250000E-02 3.646526E-04 / 358.8542 7.238358E-05 / 358.8542 4.002242E-05 / 358.8542 0 1.813842E+03 -6.250000E-02 1.106662E-02 / 82.9505 1.289643E-03 / 85.5404 4.527489E-04 / 250.5799 6.250000E-02 1.111990E-02 / 264.3284 1.492488E-03 / 267.9678 3.068515E-04 / 316.4398 0 1.813842E+03 -6.250000E-02 6.207045E+02 / 82.9505 7.233345E+01 / 85.5404 2.539389E+01 / 250.5800 6.250000E-02 6.236929E+02 / 264.3284 8.371075E+01 / 267.9678 1.721067E+01 / 316.4398 * * * END OF JOB * * * 1 JOB TITLE = ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) DATE: 5/18/95 END TIME: 10:31:42 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t08031a.out ================================================ NASTRAN SYSTEM(93)=1 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T08031A,NASTRAN APP DISP SOL 8 DIAG 14 TIME 500 $ 0*** $ ... READFILE FROM- COSMFVA $ COSMIC ALTERS FOR MODAL FORCED VIBRATION ANALYSIS (COSMFVA) $ ALTER 3 $ INSERT FILE $ FILE UXVF=APPEND/PDT=APPEND/PD=APPEND $ $ PERFORM INITIAL ERROR CHECKS ON NSEGS, KMAX, KMIN AND KINDEX. COND ERRORC1,NSEGS $ IF USER HAS NOT SPECIFIED NSEGS. COND ERRORC1,KMAX $ IF USER HAS NOT SPECIFIED KMAX. COND ERRORC1,KMIN $ IF USER HAS SPECIFIED NEGATIVE KMIN. PARAM //*NE*/KTEST/V,Y,KMAX/V,Y,KMIN=0 $ COND LBL1KIND,KTEST $ $ KMIN = KMAX PARAM //*ADD*/KINDEX/V,Y,KMAX/0 $ SET KINDEX = KMAX (= KMIN) JUMP LBL2KIND $ LABEL LBL1KIND $ KMIN .NE. KMAX COND ERRORC1,KINDEX $ IF USER HAS NOT SPECIFIED KINDEX. PARAM //*LT*/KTEST/V,Y,KINDEX/V,Y,KMIN $ COND ERRORC1,KTEST $ PARAM //*GT*/KTEST/V,Y,KINDEX/V,Y,KMAX $ COND ERRORC1,KTEST $ LABEL LBL2KIND $ PARAM //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $ COND ERRORC1,CYCIOERR $ IF USER HAS NOT SPECIFIED CYCIO. PARAM //*DIV*/NSEG2 /V,Y,NSEGS /2 $ NSEG2 = NSEGS/2 PARAM //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $ COND ERRORC1,KMAXERR $ IF KMAX .GT. NSEGS/2 $ CHECK FOR KINDEX = 0 PARAM //*EQ*/KTEST/V,Y,KINDEX/0 $ COND LBL3KIND,KTEST $ $ CHECK FOR KINDEX = NSEGS/2 (NSEGS EVEN ONLY) PARAM //*ADD*/NSEGS1/V,Y,NSEGS/1 $ PARAM //*DIV*/NSEG21/NSEGS1/2 $ PARAM //*EQ*/KEVEN/NSEG21/NSEG2 $ PARAM //*EQ*/KNSEG2/NSEG2/V,Y,KINDEX $ PARAM //*EQ*/KTEST/KNSEG2/KEVEN $ COND LBL3KIND,KTEST $ $ KINDEX IS .NE.0 AND .NE. NSEGS/2 (NSEGS EVEN ONLY) PARAM //*ADD*/KTEST/1/0 $ LABEL LBL3KIND $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 PARAM //*GT*/KFLAG/KTEST/0 $ $ SET DEFAULTS FOR PARAMETERS. PARAM //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $ $ CALCULATE OMEGA, 2*OMEGA AND OMEGA**2 FROM RPS. SET DEFAULT RPS. PARAMR //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $ PARAMR //*MPY*/OMEGA2 /2.0 /OMEGA $ PARAMR //*MPY*/OMEGASQR /OMEGA /OMEGA $ $ GENERATE NORPS FLAG IF RPS IS ZERO. PARAMR //*EQ*//V,Y,RPS /0.0 ////NORPS $ $ MAKE SURE COUPLED MASSES HAVE NOT BEEN REQUESTED. PARAM //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $ COND ERRORC2,NOLUMP $ $ ALTER 21,21 $ ADD SLT TO OUTPUT FOR TRLG. DELETE GP3 $ GP3 GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $ $ ALTER 24 $ INSERT TA1,2 $ $ SINCE MULTIPLE CONSTRAINTS ARE NOT ALLOWED EXECUTE GP4 NOW SO THAT $ MORE ERROR CHECKS CAN BE MADE BEFORE ELEMENT GENERATION. $ ADD YS NEEDED FOR PSF RECOVERY IN SSG2. PARAM //*MPY*/NSKIP /0/0 $ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/ S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/ S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/S,Y,AUTOSPC $ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ $ SUPORT BULK DATA IS NOT ALLOWED. PARAM //*NOT*/REACDATA /REACT $ COND ERRORC3,REACDATA $ $ EXECUTE DPD NOW SO CHECKS CAN BE MADE. ADD TRL TO OUTPUT DATA BLOCKS. DPD DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,, TRL,EED,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ S,N,NOFRL/NONLFT/S,N,NOTRL/S,N,NOEED//S,N,NOUE $ $ CHECK FOR EIGENVALUE EXTRACTION DATA COND ERRORC7,NOEED $ $ MUST HAVE EITHER FREQ OR TSTEP BULK DATA. PARAM //*AND*/FTERR /NOFRL /NOTRL $ COND ERRORC5,FTERR $ NO FREQ OR TSTEP BULK DATA. $ ONLY FREQUENCY OR TSTEP IS ALLOWED IN THE CASE CONTROL PARAML CASECC //*TABLE1*/1/14//FREQSET $ PARAML CASECC //*TABLE1*/1/38//TIMESET $ PARAM //*MPY*/FREQTIME /FREQSET /TIMESET $ PARAM //*NOT*/FTERR1 /FREQTIME $ PARAM //*LE*/NOFREQ /FREQSET /0 $ PARAM //*LE*/NOTIME /TIMESET /0 $ COND ERRORC6,FTERR1 $ BOTH FREQ AND TSTEP IN CASE CONTROL DECK. $ EPOINT BULK DATA NOT ALLOWED PARAM //*NOT*/EXTRAPTS /NOUE $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 COND ERRORC4,EXTRAPTS $ $ GENERATE DATA FOR CYCT2 MODULE. GPCYC GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $ COND ERRORC1,NOGO $ $ ALTER 29 $ INSERT EMG,-1 $ PARAM //*NOP*/V,Y,KGGIN=-1 $ COND JMPKGGIN,KGGIN $ PARAM //*ADD*/NOKGGX/-1/0 $ INPUTT1 /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $ EQUIV KTOTAL,KGGX $ LABEL JMPKGGIN $ $ ALTER 34 $ INSERT EMA,1 $ $ PRE-PURGE DATA BLOCKS THAT WILL NOT BE GENERATED PARAM //*OR*/NOBM1 /NOMGG /NORPS $ PURGE B1GG,M1GG /NOBM1 $ PURGE M2GG,M2BASEXG /NOMGG $ $ ALTER 38 $ INSERT EMA(2),1 $ $ GENERATE DATA BLOCKS FRLX, B1GG, M1GG, M2GG AND BASEGX. $ GENERATE PARAMETERS FKMAX AND NOBASEX. FVRSTR1 CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG, PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/ V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/ V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA $ PARAML FRLX //*PRES*////NOFRLX $ COND LBLFRLX,NOFRLX $ EQUIV FRLX,FRL $ LABEL LBLFRLX $ $ ALTER 47 $ INSERT EMA(4),2 $ PARAM //*ADD*/NOBGG /NOBM1 /0 $ RESET NOBGG. $ ALTER 58 $ INSERT GPSTGEN $ $ REDEFINE BGG AND KGG. COND LBL11A,NOBM1 $ PARAMR //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $ PARAMR //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $ PARAMR //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $ ADD BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $ EQUIV BGG1,BGG $ ADD KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $ EQUIV KGG1,KGG $ LABEL LBL11A $ ALTER 59,62 $ GP4 HAS BEEN MOVED-UP. DELETE GP4,-1,GP4,2 $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 $ ALTER 87,87 $ DPD HAS BEEN MOVED-UP. DELETE DPD $ $ ALTER 112 $ PARAM AND EQUIV LOGIC DEPENDING ON LGKAD FOR FREQ/TRAN. INSERT GKAD,-3 $ PARAM //*AND*/KDEKA/NOUE/NOK2PP $ COND LGKAD1,LGKAD $ BRANCH IN NOT FREQRESP. $ ALTER 113 $ SEE ALTER 112 COMMENT. INSERT GKAD,-2 $ JUMP LGKAD2 $ LABEL LGKAD1 $ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ LABEL LGKAD2 $ $ ALTER 115,115 $ DELETE GKAD $ $ ADD PARAMETERS GKAD, W3 AND W4 TO GKAD. GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/ C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/ SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $ $ ALTER 116 $ SEE ALTER 112 COMMENT. INSERT GKAD,1 $ COND LGKAD3,LGKAD $ BRANCH IF NOT FREQRESP. $ ALTER 117 $ SEE ALTER 112 COMMENT. INSERT GKAD,2 $ JUMP LGKAD4 $ LABEL LGKAD3 $ EQUIV B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $ LABEL LGKAD4 $ $ ALTER 118,122 $ DELETE FRRD,-2,VDR $ $ NEW SOLUTION LOGIC $ GENERATE TIME-DEPENDENT LOADS IF TSTEP WAS REQUESTED IN CASE CONTROL. $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST. COND LBLTRL1,NOTIME $ $ LOOP THRU ALL SUBCASES FOR TIME-DEPENDENT LOADS. PARAM //*MPY*/REPEATT /1 /-1 $ PARAM //*ADD*/APPFLG /1 /0 $ INITIALIZE FOR SDR1. LABEL TRLGLOOP $ CASE CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $ PARAM //*MPY*/NCOL /0 /1 $ TRLG CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ ,,PDT1,PD1,,TOL/ NOSET/NCOL $ SDR1 TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $ SDR1 TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $ PARAM //*ADD*/APPFLG /APPFLG /1 $ APPFLG=APPFLG+1. COND TRLGDONE,REPEATT $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 REPT TRLGLOOP,100 $ JUMP ERROR3 $ LABEL TRLGDONE $ FVRSTR2 TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/ V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/ S,N,NORO2 $ EQUIV FRLZ,FRL // FOLZ,FOL $ JUMP LBLFRL2 $ LABEL LBLTRL1 $ $ GENERATE FREQUENCY-DEPENDENT LOADS IF FREQUENCY WAS SELECTED IN CC. FRLG CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM / *DIRECT*/FREQY/*FREQ* $ COND LBLFRLX1,NOFRLX $ ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED. MPYAD PPF,PDZERO, / PPFX /0 $ EQUIV PPFX,PPF $ LABEL LBLFRLX1 $ $ FORM NEW LOADS. COND LBLFRL1,NOBASEX $ MPYAD M2GG,BASEXG, / M2BASEXG /0 $ ADD PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $ EQUIV PPF1,PPF $ COND LBLBASE1,NOSET $ SSG2 USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $ EQUIV PSF1,PSF // PDF1,PDF $ LABEL LBLBASE1 $ LABEL LBLFRL1 $ EQUIV PPF,PDF/NOSET $ $ LOADS ARE FREQUENCY-DEPENDENT $ PERFORM CYCLIC TRANSFORMATION ON LOADS IF CYCIO=+1. PARAML PDF //*TRAILER*/1 /PDFCOLS $ $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=-1. PARAM //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX EQUIV PDF,PXF/CYCIO $ COND LBLPDONE,CYCIO $ $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=1. PARAM //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS CYCT1 PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1/V,Y,KMAX=-1/ NLOAD /S,N,NOGO $ COND ERRORC1,NOGO $ JUMP LBLPDONE $ LABEL LBLFRL2 $ $ LOADS ARE TIME-DEPENDENT PARAM //*NOT*/NOTCYCIO /V,Y,CYCIO $ $ BRANCH DEPENDING ON VALUE OF CYCIO COND LBLTRL2,NOTCYCIO $ $ CYCIO=-1 EQUIV PD,PDTRZ1/NORO1 $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 COND LBLRO1A,NORO1 $ MPYAD PD,REORDER1, / PDTRZ1 / 0 $ LABEL LBLRO1A $ CYCT1 PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/ S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXTRZ1,PXFZ1/NORO2 $ COND LBLRO2A,NORO2 $ MPYAD PXTRZ1,REORDER2, / PXFZ1 /0 $ LABEL LBLRO2A $ EQUIV PXFZ1,PXF1 $ JUMP LBLTRL3 $ LABEL LBLTRL2 $ $ CYCIO = +1 MPYAD PD,REORDER1, / PDTRZ2 / 0 $ CYCT1 PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/ V,Y,NSEGS/S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXTRZ2,PXTR2/NORO2 $ COND LBLRO2B,NORO2 $ MPYAD PXTRZ2,REORDER2, / PXTR2 /0 $ LABEL LBLRO2B $ CYCT1 PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/FLMAX/ S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV PXFZ2,PXF1 $ LABEL LBLTRL3 $ $ TIME-DEPENDENT LOADS ARE REAL. MAKE LOADS COMPLEX TO CORRESPOND $ TO FREQUENCY DEPENDENT LOADS. ALSO SDR2 EXPECTS LOADS TO BE COMPLEX $ IN FREQRESP TYPE PROBLEMS. COPY PXF1 / PXF2 $ CONVERT REAL PXF1 TO COMPLEX PXF. ADD PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $ $ DEFINE NLOAD FOR CYCT2. PARAM //*ADD*/NLOAD /FLMAX /0 $ NLOAD = FLMAX LABEL LBLPDONE $ $ $ INITIALIZE UXVF IF KMIN IS NOT ZERO. $ PARAM //*ADD*/KMINL /V,Y,KINDEX=-1/-1 $ COND NOKMINL,KMINL $ PARAM //*ADD*/KMINV /0 /0 $ LABEL KMINLOOP $ CYCT2 CYCDD,,,PXF,, /,,PKFZ,, / *FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/ S,N,NOGO $ COND ERRORC1,NOGO $ ADD PKFZ, / UKVFZ / (0.0,0.0) $ PRTPARM //0/*KINDEX* $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 CYCT2 CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/ S,N,NOGO $ PRTPARM //0/*KINDEX* $ COND ERRORC1,NOGO $ PARAM //*ADD*/KMINV /KMINV /1 $ REPT KMINLOOP,KMINL $ LABEL NOKMINL $ COND NOKPRT,NOKPRT $ PRTPARM //0/*KINDEX* $ LABEL NOKPRT $ CYCT2 CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/V,Y,KINDEX/ CYCSEQ/NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ CYCT2 CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/V,Y,KINDEX/ CYCSEQ/NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ CYCT2 CYCDD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS/V,Y,KINDEX/ CYCSEQ=-1/1/S,N,NOGO $ COND ERRORC1,NOGO $ READ KKK,MKK,,,EED,,CASECC/LAMK,PHIK,MIK,OEIGS/*MODES*/S,N,NEIGV $ OFP OEIGS,,,,,//S,N,CARDNO $ COND FINIS,NEIGV $ OFP LAMK,,,,,//S,N,CARDNO $ COND NOPLOT,JUMPPLOT $ CYCT2 CYCDD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,KINDEX/ CYCSEQ/1/S,N,NOGO $ COND ERRORC1,NOGO $ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,/ ,OQG1,OPHIG,OES1,OEF1,PPHIG,,/*REIG* $ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,,,/ PLOTXX/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ PRTMSG PLOTXX// $ LABEL NOPLOT $ GKAM USETD,PHIK,MIK,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MDUM,BDUM, KDUM,PHIKH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/NONCUP/S,N,FMODE=0 $ PARAML PHIKH//*TRAILER*/1/S,N,NMODES $ SMPYAD PHIKH,MKKF,PHIKH,,,/MHH/3////1 $ SMPYAD PHIKH,KKKF,PHIKH,,,/KHH/3////1 $ SMPYAD PHIKH,BKKF,PHIKH,,,/BHH/3////1 $ MPYAD PHIKH,PKF,/PHF/1 $ EQUIV MHH,MKKF//BHH,BKKF//KHH,KKKF//PHF,PKF $ COND KLABEL1,KFLAG $ $ KINDEX IS EITHER 0 OR NSEGS/2 (NSEGS EVEN ONLY) APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,/ S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF// 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 NMODES/V,Y,KINDEX $ AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/1 $ AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIKH,,,USETD,AERO/QHHL,,/ NOUE/1 $ JUMP KLABEL2 $ LABEL KLABEL1 $ $ KINDEX IS .NE.0 AND .NE. NSEGS/2 (NSEGS EVEN ONLY) CYCT2 CYCDD,,,,PHIKH,LAMK/,,,PHIAH,LAMAH/*BACK*/V,Y,NSEGS/ V,Y,KINDEX/CYCSEQ/1/S,N,NOGO $ COND ERRORC1,NOGO $ APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,PVECT/ S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/*COSINE*/ NMODES/V,Y,KINDEX $ AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/1 $ PARTN PHIAH,PVECT,/PHIAC,,,/1 $ AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIAC,,,USETD,AERO/QHHLC,,/NOUE/1 $ APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,PVECT/ S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/*SINE*/NMODES/ V,Y,KINDEX $ PARTN PHIAH,PVECT,/PHIAS,,,/1 $ AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIAS,,,USETD,AERO/QHHLS,,/NOUE/1 $ ADD QHHLC,QHHLS/QHHL/(1.0,0.0)/(1.0,0.0) $ LABEL KLABEL2 $ $ SOLUTION FRRD2 KKKF,BKKF,MKKF,QHHL,PKF,FOL/UKVF/V,Y,BOV/V,Y,Q/-1.0 $ DDR1 UKVF,PHIKH/UKKVF $ EQUIV UKKVF,UKVF $ CYCT2 CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/V,Y,KINDEX/CYCSEQ/ NLOAD/S,N,NOGO $ COND ERRORC1,NOGO $ EQUIV UXVF,UDVF / CYCIO $ COND LCYC3,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. CYCT1 UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ LABEL LCYC3 $ COND LBLTRL4,NOTIME $ EQUIV PXF,PDF2 / CYCIO $ COND LCYC4,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. CYCT1 PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ LABEL LCYC4 $ $ IF LOADS WERE TIME-DEPENDENT THEN RECOVER PPF AND PSF FROM PXF. SDR1 USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $ SSG2 USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $ EQUIV PPFZ,PPF // PSFZ,PSF $ LABEL LBLTRL4 $ VDR CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/FMODE $ $ ALTER 138,138 $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST. 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 DELETE SDR2 $ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ CURV OESC1,MPT,CSTM,EST,SIL,GPL/OESC1M,/1 $ $ ALTER 140,141 $ DELETE SDR3(2),SDR3(2),1 $ SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OESC1M/OPPC2,OQPC2,OUPVC2, OESC2,OEFC2,OESC2M $ OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,OESC2M//S,N,CARDNO $ $ ALTER 152,152 $ DELETE PLOT(2),-4 $ OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,OESC1M//S,N,CARDNO $ $ ALTER 160 $ ADD LABEL FOR ERROR3. INSERT PLOT(2),4 $ LABEL ERROR3 $ $ ALTER 163,166 $ REMOVE ERROR1 AND ERROR2. DELETE PLOT(2),7,PLOT(2),10 $ $ ALTER 168 $ FORCED VIBRATION ERRORS INSERT END,-3 $ LABEL ERRORC1 $ CHECK NSEGS, KMAX AND OTHER CYCLIC DATA. PRTPARM //-5 /*CYCSTATICS* $ LABEL ERRORC2 $ COUPLED MASS NOT ALLOWED. PRTPARM //0 /C,Y,COUPMASS $ JUMP FINIS $ LABEL ERRORC3 $ SUPORT BULK DATA NOT ALLOWED. PRTPARM //-6 /*CYCSTATICS* $ LABEL ERRORC4 $ EPOINT BULK DATA NOT ALLOWED. PRTPARM //0 /*NOUE* $ JUMP FINIS $ LABEL ERRORC5 $ NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK. PRTPARM //0 /*NOFRL* $ PRTPARM //0 /*NOTRL* $ JUMP FINIS $ LABEL ERRORC6 $ BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL. PRTPARM //0 /*NOFREQ* $ PRTPARM //0 /*NOTIME* $ JUMP FINIS $ LABEL ERRORC7 $ NO EIGENVALUE EXTRACTION DATA PRTPARM //-2/*CYCMODES* $ ENDALTER $ 0*** $ END READFILE $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T08-03-1A 3 LABEL = K = 0 MODES, OSCILLATORY AIRLOADS PRESENT 4 $ 5 SPC = 1 6 MPC = 1 7 METHOD = 1 8 FREQUENCY = 1 9 DLOAD = 1000 10 $ 11 DISP(SORT1,PHASE) = ALL 12 STRESS(SORT1,PHASE) = ALL 13 $ 14 $ NOTE --- 15 $ THE FOLLOWING DATA IS FOR A RIGID HUB AND UNIFORM FLOW 16 $ 17 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 1223, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AERO* 0 0.91639E+04 0.28149E+01 0.91790E-07 *AERO 2- *AERO 3- CORD2R 77 0 .0 .0 .0 .0 .0 1. +C2R 4- +C2R 10. -0.618 .0 5- CTRIA2 1 1 10 9 8 6- CTRIA2 2 2 11 10 8 7- CTRIA2 3 3 8 7 11 8- CTRIA2 4 4 12 11 7 9- CTRIA2 5 5 7 1 12 10- CTRIA2 6 6 13 12 1 11- CTRIA2 7 7 1 2 13 12- CTRIA2 8 8 14 13 2 13- CTRIA2 9 9 2 3 14 14- CTRIA2 10 10 15 14 3 15- CTRIA2 11 11 3 4 15 16- CTRIA2 12 12 16 15 4 17- CTRIA2 13 13 4 5 16 18- CTRIA2 14 14 17 16 5 19- CTRIA2 15 15 5 6 17 20- CTRIA2 16 16 20 19 18 21- CTRIA2 17 17 21 20 18 22- CTRIA2 18 18 18 9 21 23- CTRIA2 19 19 22 21 9 24- CTRIA2 20 20 9 10 22 25- CTRIA2 21 21 10 11 22 26- CTRIA2 22 22 23 22 11 27- CTRIA2 23 23 11 12 23 28- CTRIA2 24 24 24 23 12 29- CTRIA2 25 25 12 13 24 30- CTRIA2 26 26 25 24 13 31- CTRIA2 27 27 13 14 25 32- CTRIA2 28 28 14 15 25 33- CTRIA2 29 29 26 25 15 34- CTRIA2 30 30 15 16 26 35- CTRIA2 31 31 27 26 16 36- CTRIA2 32 32 16 17 27 37- CTRIA2 33 33 29 28 19 38- CTRIA2 34 34 30 29 19 39- CTRIA2 35 35 19 20 30 40- CTRIA2 36 36 31 30 20 41- CTRIA2 37 37 20 21 31 42- CTRIA2 38 38 32 31 21 43- CTRIA2 39 39 21 22 32 44- CTRIA2 40 40 33 32 22 45- CTRIA2 41 41 22 23 33 46- CTRIA2 42 42 23 24 33 47- CTRIA2 43 43 34 33 24 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CTRIA2 44 44 24 25 34 49- CTRIA2 45 45 35 34 25 50- CTRIA2 46 46 25 26 35 51- CTRIA2 47 47 36 35 26 52- CTRIA2 48 48 26 27 36 53- CTRIA2 49 49 38 37 28 54- CTRIA2 50 50 28 29 39 55- CTRIA2 51 51 39 38 28 56- CTRIA2 52 52 40 39 29 57- CTRIA2 53 53 29 30 40 58- CTRIA2 54 54 30 31 40 59- CTRIA2 55 55 41 40 31 60- CTRIA2 56 56 31 32 41 61- CTRIA2 57 57 42 41 32 62- CTRIA2 58 58 32 33 42 63- CTRIA2 59 59 43 42 33 64- CTRIA2 60 60 33 34 43 65- CTRIA2 61 61 44 43 34 66- CTRIA2 62 62 34 35 44 67- CTRIA2 63 63 45 44 35 68- CTRIA2 64 64 35 36 45 69- CTRIA2 65 65 47 46 37 70- CTRIA2 66 66 37 38 47 71- CTRIA2 67 67 48 47 38 72- CTRIA2 68 68 38 39 48 73- CTRIA2 69 69 49 48 39 74- CTRIA2 70 70 39 40 49 75- CTRIA2 71 71 50 49 40 76- CTRIA2 72 72 40 41 50 77- CTRIA2 73 73 51 50 41 78- CTRIA2 74 74 41 42 51 79- CTRIA2 75 75 52 51 42 80- CTRIA2 76 76 42 43 52 81- CTRIA2 77 77 53 52 43 82- CTRIA2 78 78 43 44 53 83- CTRIA2 79 79 54 53 44 84- CTRIA2 80 80 44 45 54 85- CTRIA2 81 81 56 55 46 86- CTRIA2 82 82 46 47 56 87- CTRIA2 83 83 57 56 47 88- CTRIA2 84 84 47 48 57 89- CTRIA2 85 85 58 57 48 90- CTRIA2 86 86 48 49 58 91- CTRIA2 87 87 59 58 49 92- CTRIA2 88 88 49 50 59 93- CTRIA2 89 89 60 59 50 94- CTRIA2 90 90 50 51 60 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CTRIA2 91 91 61 60 51 96- CTRIA2 92 92 51 52 61 97- CTRIA2 93 93 62 61 52 98- CTRIA2 94 94 52 53 62 99- CTRIA2 95 95 63 62 53 100- CTRIA2 96 96 53 54 63 101- CTRIA2 97 97 65 64 55 102- CTRIA2 98 98 55 56 65 103- CTRIA2 99 99 66 65 56 104- CTRIA2 100 100 56 57 66 105- CTRIA2 101 101 67 66 57 106- CTRIA2 102 102 57 58 67 107- CTRIA2 103 103 68 67 58 108- CTRIA2 104 104 58 59 68 109- CTRIA2 105 105 69 68 59 110- CTRIA2 106 106 59 60 69 111- CTRIA2 107 107 70 69 60 112- CTRIA2 108 108 60 61 70 113- CTRIA2 109 109 71 70 61 114- CTRIA2 110 110 61 62 71 115- CTRIA2 111 111 72 71 62 116- CTRIA2 112 112 62 63 72 117- CTRIA2 113 113 74 73 64 118- CTRIA2 114 114 64 65 74 119- CTRIA2 115 115 75 74 65 120- CTRIA2 116 116 65 66 75 121- CTRIA2 117 117 76 75 66 122- CTRIA2 118 118 66 67 76 123- CTRIA2 119 119 77 76 67 124- CTRIA2 120 120 67 68 77 125- CTRIA2 121 121 78 77 68 126- CTRIA2 122 122 68 69 78 127- CTRIA2 123 123 79 78 69 128- CTRIA2 124 124 69 70 79 129- CTRIA2 125 125 80 79 70 130- CTRIA2 126 126 70 71 80 131- CTRIA2 127 127 81 80 71 132- CTRIA2 128 128 71 72 81 133- CTRIA2 129 129 82 81 72 134- CTRIA2 130 130 87 86 73 135- CTRIA2 131 131 73 74 87 136- CTRIA2 132 132 88 87 74 137- CTRIA2 133 133 74 75 88 138- CTRIA2 134 134 89 88 75 139- CTRIA2 135 135 75 76 89 140- CTRIA2 136 136 90 89 76 141- CTRIA2 137 137 76 77 90 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- CTRIA2 138 138 91 90 77 143- CTRIA2 139 139 77 78 91 144- CTRIA2 140 140 92 91 78 145- CTRIA2 141 141 78 79 92 146- CTRIA2 142 142 79 80 83 147- CTRIA2 143 143 79 83 92 148- CTRIA2 144 144 93 92 83 149- CTRIA2 145 145 80 81 84 150- CTRIA2 146 146 84 83 80 151- CTRIA2 147 147 83 84 94 152- CTRIA2 148 148 94 93 83 153- CTRIA2 149 149 81 82 85 154- CTRIA2 150 150 85 84 81 155- CTRIA2 151 151 84 85 95 156- CTRIA2 152 152 95 94 84 157- CTRIA2 153 153 100 99 86 158- CTRIA2 154 154 86 87 100 159- CTRIA2 155 155 101 100 87 160- CTRIA2 156 156 87 88 101 161- CTRIA2 157 157 102 101 88 162- CTRIA2 158 158 88 89 102 163- CTRIA2 159 159 103 102 89 164- CTRIA2 160 160 89 90 103 165- CTRIA2 161 161 104 103 90 166- CTRIA2 162 162 90 91 104 167- CTRIA2 163 163 105 104 91 168- CTRIA2 164 164 91 92 105 169- CTRIA2 165 165 92 93 96 170- CTRIA2 166 166 92 96 105 171- CTRIA2 167 167 106 105 96 172- CTRIA2 168 168 93 94 97 173- CTRIA2 169 169 97 96 93 174- CTRIA2 170 170 96 97 107 175- CTRIA2 171 171 107 106 96 176- CTRIA2 172 172 94 95 98 177- CTRIA2 173 173 98 97 94 178- CTRIA2 174 174 97 98 108 179- CTRIA2 175 175 108 107 97 180- CTRIA2 176 176 113 112 99 181- CTRIA2 177 177 99 100 113 182- CTRIA2 178 178 114 113 100 183- CTRIA2 179 179 100 101 114 184- CTRIA2 180 180 115 114 101 185- CTRIA2 181 181 101 102 115 186- CTRIA2 182 182 116 115 102 187- CTRIA2 183 183 102 103 116 188- CTRIA2 184 184 117 116 103 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- CTRIA2 185 185 103 104 117 190- CTRIA2 186 186 118 117 104 191- CTRIA2 187 187 104 105 118 192- CTRIA2 188 188 105 106 109 193- CTRIA2 189 189 105 109 118 194- CTRIA2 190 190 119 118 109 195- CTRIA2 191 191 106 107 110 196- CTRIA2 192 192 110 109 106 197- CTRIA2 193 193 109 110 120 198- CTRIA2 194 194 120 119 109 199- CTRIA2 195 195 107 108 111 200- CTRIA2 196 196 111 110 107 201- CTRIA2 197 197 110 111 121 202- CTRIA2 198 198 121 120 110 203- CTRIA2 199 199 112 113 125 204- CTRIA2 200 200 126 125 113 205- CTRIA2 201 201 113 114 126 206- CTRIA2 202 202 127 126 114 207- CTRIA2 203 203 114 115 127 208- CTRIA2 204 204 128 127 115 209- CTRIA2 205 205 115 116 128 210- CTRIA2 206 206 129 128 116 211- CTRIA2 207 207 116 117 129 212- CTRIA2 208 208 130 129 117 213- CTRIA2 209 209 117 118 130 214- CTRIA2 210 210 131 130 118 215- CTRIA2 211 211 118 119 122 216- CTRIA2 212 212 118 122 131 217- CTRIA2 213 213 132 131 122 218- CTRIA2 214 214 119 120 122 219- CTRIA2 215 215 123 122 120 220- CTRIA2 216 216 122 123 132 221- CTRIA2 217 217 133 132 123 222- CTRIA2 218 218 120 121 123 223- CTRIA2 219 219 124 123 121 224- CTRIA2 220 220 123 124 133 225- CTRIA2 221 221 134 133 124 226- CTRIA2 222 222 125 126 138 227- CTRIA2 223 223 139 138 126 228- CTRIA2 224 224 126 127 139 229- CTRIA2 225 225 140 139 127 230- CTRIA2 226 226 127 128 140 231- CTRIA2 227 227 141 140 128 232- CTRIA2 228 228 128 129 141 233- CTRIA2 229 229 142 141 129 234- CTRIA2 230 230 129 130 142 235- CTRIA2 231 231 143 142 130 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- CTRIA2 232 232 130 131 143 237- CTRIA2 233 233 144 143 131 238- CTRIA2 234 234 131 132 135 239- CTRIA2 235 235 131 135 144 240- CTRIA2 236 236 145 144 135 241- CTRIA2 237 237 132 133 135 242- CTRIA2 238 238 136 135 133 243- CTRIA2 239 239 135 136 145 244- CTRIA2 240 240 146 145 136 245- CTRIA2 241 241 133 134 136 246- CTRIA2 242 242 137 136 134 247- CTRIA2 243 243 136 137 146 248- CTRIA2 244 244 147 146 137 249- CTRIA2 245 245 138 139 148 250- CTRIA2 246 246 149 148 139 251- CTRIA2 247 247 139 140 149 252- CTRIA2 248 248 150 149 140 253- CTRIA2 249 249 140 141 150 254- CTRIA2 250 250 151 150 141 255- CTRIA2 251 251 141 142 151 256- CTRIA2 252 252 152 151 142 257- CTRIA2 253 253 142 143 152 258- CTRIA2 254 254 153 152 143 259- CTRIA2 255 255 143 144 153 260- CTRIA2 256 256 154 153 144 261- CTRIA2 257 257 144 145 154 262- CTRIA2 258 258 155 154 145 263- CTRIA2 259 259 145 146 155 264- CTRIA2 260 260 156 155 146 265- CTRIA2 261 261 146 147 156 266- CTRIA2 262 262 148 149 157 267- CTRIA2 263 263 158 157 149 268- CTRIA2 264 264 149 150 158 269- CTRIA2 265 265 159 158 150 270- CTRIA2 266 266 160 159 150 271- CTRIA2 267 267 150 151 160 272- CTRIA2 268 268 161 160 151 273- CTRIA2 269 269 151 152 162 274- CTRIA2 270 270 162 161 151 275- CTRIA2 271 271 163 162 152 276- CTRIA2 272 272 164 163 152 277- CTRIA2 273 273 152 153 164 278- CTRIA2 274 274 165 164 153 279- CTRIA2 275 275 166 165 153 280- CTRIA2 276 276 153 154 166 281- CTRIA2 277 277 167 166 154 282- CTRIA2 278 278 154 155 167 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- CTRIA2 279 279 155 156 167 284- CTRIA2 280 280 157 158 175 285- CTRIA2 281 281 206 175 158 286- CTRIA2 282 282 158 159 206 287- CTRIA2 283 283 176 206 159 288- CTRIA2 284 284 159 160 176 289- CTRIA2 285 285 176 177 160 290- CTRIA2 286 286 160 161 168 291- CTRIA2 287 287 168 177 160 292- CTRIA2 288 288 168 178 177 293- CTRIA2 289 289 169 168 161 294- CTRIA2 290 290 161 162 169 295- CTRIA2 291 291 170 169 162 296- CTRIA2 292 292 162 163 170 297- CTRIA2 293 293 171 170 163 298- CTRIA2 294 294 172 171 163 299- CTRIA2 295 295 163 164 172 300- CTRIA2 296 296 173 172 164 301- CTRIA2 297 297 164 165 173 302- CTRIA2 298 298 174 173 165 303- CTRIA2 299 299 168 169 179 304- CTRIA2 300 300 179 178 168 305- CTRIA2 301 301 169 170 180 306- CTRIA2 302 302 180 179 169 307- CTRIA2 303 303 170 171 181 308- CTRIA2 304 304 181 180 170 309- CTRIA2 305 305 171 172 182 310- CTRIA2 306 306 182 181 171 311- CTRIA2 307 307 172 173 183 312- CTRIA2 308 308 183 182 172 313- CTRIA2 309 309 173 174 184 314- CTRIA2 310 310 184 183 173 315- CTRIA2 311 311 178 179 185 316- CTRIA2 312 312 186 185 179 317- CTRIA2 313 313 179 180 186 318- CTRIA2 314 314 187 186 180 319- CTRIA2 315 315 180 181 187 320- CTRIA2 316 316 188 187 181 321- CTRIA2 317 317 181 182 188 322- CTRIA2 318 318 189 188 182 323- CTRIA2 319 319 182 183 189 324- CTRIA2 320 320 190 189 183 325- CTRIA2 321 321 183 184 190 326- CTRIA2 322 322 191 190 184 327- CTRIA2 323 323 185 186 192 328- CTRIA2 324 324 193 192 186 329- CTRIA2 325 325 186 187 193 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- CTRIA2 326 326 194 193 187 331- CTRIA2 327 327 187 188 194 332- CTRIA2 328 328 195 194 188 333- CTRIA2 329 329 188 189 195 334- CTRIA2 330 330 196 195 189 335- CTRIA2 331 331 189 190 196 336- CTRIA2 332 332 197 196 190 337- CTRIA2 333 333 190 191 197 338- CTRIA2 334 334 198 197 191 339- CTRIA2 335 335 200 199 192 340- CTRIA2 336 336 192 193 200 341- CTRIA2 337 337 201 200 193 342- CTRIA2 338 338 193 194 201 343- CTRIA2 339 339 202 201 194 344- CTRIA2 340 340 194 195 202 345- CTRIA2 341 341 195 196 202 346- CTRIA2 342 342 203 202 196 347- CTRIA2 343 343 196 197 203 348- CTRIA2 344 344 204 203 197 349- CTRIA2 345 345 197 198 204 350- CTRIA2 346 346 205 204 198 351- CYJOIN 1 199 352- CYJOIN 2 205 353- DAREA* 11 1 2 0.43567597E+00 354- DAREA* 11 1 1 0.30489490E+00 355- DAREA* 11 1 3 0.99471353E-01 356- DAREA* 11 13 1 0.23555727E+00 357- DAREA* 11 13 2 0.33659678E+00 358- DAREA* 11 13 3 0.76850090E-01 359- DAREA* 11 14 2 0.11233222E+00 360- DAREA* 11 14 1 0.78612371E-01 361- DAREA* 11 14 3 0.25647129E-01 362- DAREA* 11 15 2 0.15182032E+00 363- DAREA* 11 15 1 0.10624694E+00 364- DAREA* 11 15 3 0.34662853E-01 365- DAREA* 11 18 2 0.63937426E+00 366- DAREA* 11 18 1 0.40443266E+00 367- DAREA* 11 18 3 0.13156524E+00 368- DAREA* 11 21 1 0.61634525E+00 369- DAREA* 11 21 2 0.97439037E+00 370- DAREA* 11 21 3 0.20050213E+00 371- DAREA* 11 27 1 0.48804804E-01 372- DAREA* 11 27 2 0.69739050E-01 373- DAREA* 11 27 3 0.15922470E-01 374- DAREA* 11 33 1 0.38572686E+00 375- DAREA* 11 33 2 0.60980195E+00 376- DAREA* 11 33 3 0.12548009E+00 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- DAREA* 11 37 1 0.79817915E+00 378- DAREA* 11 37 3 0.20008119E+00 379- DAREA* 11 37 2 0.14759277E+01 380- DAREA* 11 44 3 0.52913708E-01 381- DAREA* 11 44 1 0.16265719E+00 382- DAREA* 11 44 2 0.25714743E+00 383- DAREA* 11 49 1 0.71490322E+00 384- DAREA* 11 49 2 0.13219407E+01 385- DAREA* 11 49 3 0.17920624E+00 386- DAREA* 11 54 2 0.57978552E-01 387- DAREA* 11 54 1 0.36674013E-01 388- DAREA* 11 54 3 0.11930355E-01 389- DAREA* 11 60 2 0.50794615E+00 390- DAREA* 11 60 3 0.68858701E-01 391- DAREA* 11 60 1 0.27469639E+00 392- DAREA* 11 64 2 0.14405499E+01 393- DAREA* 11 64 1 0.60110915E+00 394- DAREA* 11 64 3 0.54113474E-01 395- DAREA* 11 70 1 0.17440697E+00 396- DAREA* 11 70 3 0.43718948E-01 397- DAREA* 11 70 2 0.32249913E+00 398- DAREA* 11 75 1 0.66993644E+00 399- DAREA* 11 75 2 0.16054936E+01 400- DAREA* 11 75 3 0.60309493E-01 401- DAREA* 11 77 2 0.89034558E+00 402- DAREA* 11 77 3 0.33445348E-01 403- DAREA* 11 77 1 0.37152123E+00 404- DAREA* 11 82 1 0.67720352E-01 405- DAREA* 11 82 3 0.16975598E-01 406- DAREA* 11 82 2 0.12522295E+00 407- DAREA* 11 92 1 0.20735313E+00 408- DAREA* 11 92 3 0.18666491E-01 409- DAREA* 11 92 2 0.49691896E+00 410- DAREA* 11 99 1 0.52604476E+00 411- DAREA* 11 99 3 0.14154789E+00 412- DAREA* 11 99 2 0.15372548E+01 413- DAREA* 11 101 2 0.17824051E+01 414- DAREA* 11 101 3 0.16412092E+00 415- DAREA* 11 101 1 0.60993456E+00 416- DAREA* 11 103 1 0.34096106E+00 417- DAREA* 11 103 3 0.91745648E-01 418- DAREA* 11 103 2 0.99638677E+00 419- DAREA* 11 105 2 0.48455145E+00 420- DAREA* 11 105 1 0.16581230E+00 421- DAREA* 11 105 3 0.44616697E-01 422- DAREA* 11 108 2 0.13275146E+00 423- DAREA* 11 108 3 0.49867364E-02 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- DAREA* 11 108 1 0.55394205E-01 425- DAREA* 11 111 2 0.10423067E+00 426- DAREA* 11 111 3 0.95973878E-02 427- DAREA* 11 111 1 0.35667474E-01 428- DAREA* 11 121 1 0.68323975E-01 429- DAREA* 11 121 3 0.24805310E-01 430- DAREA* 11 121 2 0.23204020E+00 431- DAREA* 11 129 2 0.11524406E+01 432- DAREA* 11 129 1 0.33933484E+00 433- DAREA* 11 129 3 0.12319696E+00 434- DAREA* 11 131 2 0.73891717E+00 435- DAREA* 11 131 3 0.78990923E-01 436- DAREA* 11 131 1 0.21757333E+00 437- DAREA* 11 138 1 0.57418266E+00 438- DAREA* 11 138 2 0.19500249E+01 439- DAREA* 11 138 3 0.20845945E+00 440- DAREA* 11 140 2 0.20487010E+01 441- DAREA* 11 140 1 0.60323770E+00 442- DAREA* 11 140 3 0.21900801E+00 443- DAREA* 11 156 2 0.14767240E+00 444- DAREA* 11 156 1 0.21958183E-01 445- DAREA* 11 156 3 0.15030363E-01 446- DAREA* 11 163 1 0.91613639E-01 447- DAREA* 11 163 3 0.62709480E-01 448- DAREA* 11 163 2 0.61611682E+00 449- DAREA* 11 166 2 0.46224357E+00 450- DAREA* 11 166 3 0.47047983E-01 451- DAREA* 11 166 1 0.68733418E-01 452- DAREA* 11 175 1 0.16697867E+00 453- DAREA* 11 175 3 0.11429680E+00 454- DAREA* 11 175 2 0.11229591E+01 455- DAREA* 11 177 1 0.15455769E+00 456- DAREA* 11 177 3 0.10579464E+00 457- DAREA* 11 177 2 0.10394259E+01 458- DPHASE* 12 1 2 -149.04 459- DPHASE* 12 1 1 30.96 460- DPHASE* 12 1 3 30.96 461- DPHASE* 12 13 2 -146.06 462- DPHASE* 12 13 3 33.94 463- DPHASE* 12 13 1 33.94 464- DPHASE* 12 14 2 -141.46 465- DPHASE* 12 14 1 38.54 466- DPHASE* 12 14 3 38.54 467- DPHASE* 12 15 1 43.11 468- DPHASE* 12 15 2 -136.89 469- DPHASE* 12 15 3 43.11 470- DPHASE* 12 18 2 -145.86 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- DPHASE* 12 18 1 34.14 472- DPHASE* 12 18 3 34.14 473- DPHASE* 12 21 1 36.35 474- DPHASE* 12 21 3 36.35 475- DPHASE* 12 21 2 -143.65 476- DPHASE* 12 27 1 49.89 477- DPHASE* 12 27 3 49.89 478- DPHASE* 12 27 2 -130.11 479- DPHASE* 12 33 1 41.14 480- DPHASE* 12 33 2 -138.86 481- DPHASE* 12 33 3 41.14 482- DPHASE* 12 37 2 -154.03 483- DPHASE* 12 37 3 25.97 484- DPHASE* 12 37 1 25.97 485- DPHASE* 12 44 3 47.73 486- DPHASE* 12 44 1 47.73 487- DPHASE* 12 44 2 -132.27 488- DPHASE* 12 49 1 31.01 489- DPHASE* 12 49 3 31.01 490- DPHASE* 12 49 2 -148.99 491- DPHASE* 12 54 2 -123.04 492- DPHASE* 12 54 1 56.96 493- DPHASE* 12 54 3 56.96 494- DPHASE* 12 60 2 -139.77 495- DPHASE* 12 60 3 40.23 496- DPHASE* 12 60 1 40.23 497- DPHASE* 12 64 1 8.85 498- DPHASE* 12 64 3 8.85 499- DPHASE* 12 64 2 -171.15 500- DPHASE* 12 70 1 49.76 501- DPHASE* 12 70 2 -130.24 502- DPHASE* 12 70 3 49.76 503- DPHASE* 12 75 1 17.25 504- DPHASE* 12 75 2 -162.75 505- DPHASE* 12 75 3 17.25 506- DPHASE* 12 77 3 35.10 507- DPHASE* 12 77 2 -144.90 508- DPHASE* 12 77 1 35.10 509- DPHASE* 12 82 3 59.47 510- DPHASE* 12 82 1 59.47 511- DPHASE* 12 82 2 -120.53 512- DPHASE* 12 92 2 -126.59 513- DPHASE* 12 92 1 53.41 514- DPHASE* 12 92 3 53.41 515- DPHASE* 12 99 2 172.95 516- DPHASE* 12 99 1 -7.05 517- DPHASE* 12 99 3 172.95 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- DPHASE* 12 101 3 -171.23 519- DPHASE* 12 101 2 -171.23 520- DPHASE* 12 101 1 8.77 521- DPHASE* 12 103 2 -142.30 522- DPHASE* 12 103 1 37.70 523- DPHASE* 12 103 3 -142.30 524- DPHASE* 12 105 2 -118.25 525- DPHASE* 12 105 1 61.75 526- DPHASE* 12 105 3 -118.25 527- DPHASE* 12 108 2 -111.98 528- DPHASE* 12 108 1 68.02 529- DPHASE* 12 108 3 68.02 530- DPHASE* 12 111 2 -102.15 531- DPHASE* 12 111 1 77.85 532- DPHASE* 12 111 3 -102.15 533- DPHASE* 12 121 1 88.12 534- DPHASE* 12 121 2 -91.88 535- DPHASE* 12 121 3 -91.88 536- DPHASE* 12 129 1 55.33 537- DPHASE* 12 129 3 -124.67 538- DPHASE* 12 129 2 -124.67 539- DPHASE* 12 131 3 -104.84 540- DPHASE* 12 131 1 75.16 541- DPHASE* 12 131 2 -104.84 542- DPHASE* 12 138 2 -163.80 543- DPHASE* 12 138 1 16.20 544- DPHASE* 12 138 3 -163.80 545- DPHASE* 12 140 3 -150.61 546- DPHASE* 12 140 1 29.39 547- DPHASE* 12 140 2 -150.61 548- DPHASE* 12 156 2 -95.35 549- DPHASE* 12 156 1 84.65 550- DPHASE* 12 156 3 -95.35 551- DPHASE* 12 163 1 62.64 552- DPHASE* 12 163 3 -117.36 553- DPHASE* 12 163 2 -117.36 554- DPHASE* 12 166 2 -106.34 555- DPHASE* 12 166 3 -106.34 556- DPHASE* 12 166 1 73.66 557- DPHASE* 12 175 3 -141.70 558- DPHASE* 12 175 1 38.30 559- DPHASE* 12 175 2 -141.70 560- DPHASE* 12 177 1 47.47 561- DPHASE* 12 177 3 -132.53 562- DPHASE* 12 177 2 -132.53 563- EIGR 1 FEER 4 +EIG1 564- +EIG1 MAX 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 565- FREQ 1 133.3 566- GRDSET 77 567- GRID 1 1.808 1.839 12.250 568- GRID 2 2.129 2.133 12.250 569- GRID 3 2.376 2.347 12.250 570- GRID 4 2.625 2.558 12.250 571- GRID 5 2.877 2.765 12.250 572- GRID 6 3.134 2.966 12.250 573- GRID 7 1.556 1.589 12.033 574- GRID 8 1.304 1.339 11.817 575- GRID 9 1.052 1.088 11.600 576- GRID 10 1.293 1.308 11.600 577- GRID 11 1.541 1.520 11.600 578- GRID 12 1.791 1.730 11.600 579- GRID 13 2.044 1.937 11.600 580- GRID 14 2.298 2.141 11.600 581- GRID 15 2.555 2.343 11.600 582- GRID 16 2.814 2.542 11.600 583- GRID 17 3.078 2.733 11.600 584- GRID 18 0.737 0.793 11.300 585- GRID 19 0.423 0.498 11.000 586- GRID 20 0.725 0.761 11.000 587- GRID 21 1.034 1.014 11.000 588- GRID 22 1.347 1.264 11.000 589- GRID 23 1.663 1.510 11.000 590- GRID 24 1.981 1.753 11.000 591- GRID 25 2.302 1.993 11.000 592- GRID 26 2.626 2.228 11.000 593- GRID 27 2.956 2.454 11.000 594- GRID 28 -0.168 -0.013 10.400 595- GRID 29 0.186 0.281 10.400 596- GRID 30 0.550 0.564 10.400 597- GRID 31 0.917 0.842 10.400 598- GRID 32 1.288 1.115 10.400 599- GRID 33 1.661 1.385 10.400 600- GRID 34 2.038 1.650 10.400 601- GRID 35 2.418 1.910 10.400 602- GRID 36 2.806 2.158 10.400 603- GRID 37 -0.702 -0.430 9.800 604- GRID 38 -0.306 -0.118 9.800 605- GRID 39 0.101 0.182 9.800 606- GRID 40 0.512 0.476 9.800 607- GRID 41 0.926 0.764 9.800 608- GRID 42 1.344 1.048 9.800 609- GRID 43 1.766 1.326 9.800 610- GRID 44 2.191 1.598 9.800 611- GRID 45 2.625 1.856 9.800 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 612- GRID 46 -1.193 -0.766 9.187 613- GRID 47 -0.760 -0.445 9.187 614- GRID 48 -0.317 -0.138 9.187 615- GRID 49 0.130 0.162 9.187 616- GRID 50 0.582 0.456 9.187 617- GRID 51 1.037 0.745 9.187 618- GRID 52 1.495 1.027 9.187 619- GRID 53 1.959 1.303 9.187 620- GRID 54 2.430 1.563 9.187 621- GRID 55 -1.612 -1.013 8.600 622- GRID 56 -1.149 -0.691 8.600 623- GRID 57 -0.677 -0.383 8.600 624- GRID 58 -0.199 -0.083 8.600 625- GRID 59 0.282 0.210 8.600 626- GRID 60 0.768 0.498 8.600 627- GRID 61 1.257 0.778 8.600 628- GRID 62 1.750 1.051 8.600 629- GRID 63 2.252 1.308 8.600 630- GRID 64 -1.985 -1.192 8.000 631- GRID 65 -1.496 -0.874 8.000 632- GRID 66 -0.998 -0.572 8.000 633- GRID 67 -0.494 -0.277 8.000 634- GRID 68 0.013 0.010 8.000 635- GRID 69 0.525 0.291 8.000 636- GRID 70 1.040 0.564 8.000 637- GRID 71 1.560 0.829 8.000 638- GRID 72 2.086 1.078 8.000 639- GRID 73 -2.301 -1.303 7.400 640- GRID 74 -1.790 -0.995 7.400 641- GRID 75 -1.271 -0.702 7.400 642- GRID 76 -0.747 -0.418 7.400 643- GRID 77 -0.218 -0.141 7.400 644- GRID 78 0.314 0.128 7.400 645- GRID 79 0.850 0.390 7.400 646- GRID 80 1.390 0.642 7.400 647- GRID 81 1.664 0.760 7.400 648- GRID 82 1.937 0.878 7.400 649- GRID 83 1.324 0.567 7.100 650- GRID 84 1.602 0.681 7.100 651- GRID 85 1.880 0.795 7.100 652- GRID 86 -2.556 -1.354 6.800 653- GRID 87 -2.028 -1.058 6.800 654- GRID 88 -1.490 -0.779 6.800 655- GRID 89 -0.948 -0.508 6.800 656- GRID 90 -0.402 -0.245 6.800 657- GRID 91 0.147 0.010 6.800 658- GRID 92 0.701 0.256 6.800 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 659- GRID 93 1.258 0.493 6.800 660- GRID 94 1.541 0.603 6.800 661- GRID 95 1.823 0.712 6.800 662- GRID 96 1.227 0.439 6.500 663- GRID 97 1.512 0.544 6.500 664- GRID 98 1.798 0.649 6.500 665- GRID 99 -2.716 -1.339 6.200 666- GRID 100 -2.173 -1.060 6.200 667- GRID 101 -1.621 -0.796 6.200 668- GRID 102 -1.066 -0.542 6.200 669- GRID 103 -0.507 -0.296 6.200 670- GRID 104 0.057 -0.059 6.200 671- GRID 105 0.624 0.169 6.200 672- GRID 106 1.195 0.386 6.200 673- GRID 107 1.484 0.486 6.200 674- GRID 108 1.772 0.586 6.200 675- GRID 109 1.195 0.352 5.900 676- GRID 110 1.484 0.447 5.900 677- GRID 111 1.773 0.542 5.900 678- GRID 112 -2.748 -1.254 5.600 679- GRID 113 -2.198 -0.996 5.600 680- GRID 114 -1.642 -0.753 5.600 681- GRID 115 -1.083 -0.519 5.600 682- GRID 116 -0.519 -0.294 5.600 683- GRID 117 0.049 -0.079 5.600 684- GRID 118 0.620 0.125 5.600 685- GRID 119 1.195 0.318 5.600 686- GRID 120 1.485 0.408 5.600 687- GRID 121 1.775 0.498 5.600 688- GRID 122 1.216 0.301 5.300 689- GRID 123 1.504 0.386 5.300 690- GRID 124 1.792 0.471 5.300 691- GRID 125 -2.670 -1.111 5.000 692- GRID 126 -2.124 -0.880 5.000 693- GRID 127 -1.572 -0.662 5.000 694- GRID 128 -1.017 -0.453 5.000 695- GRID 129 -0.459 -0.254 5.000 696- GRID 130 0.104 -0.065 5.000 697- GRID 131 0.669 0.114 5.000 698- GRID 132 1.238 0.283 5.000 699- GRID 133 1.523 0.363 5.000 700- GRID 134 1.809 0.444 5.000 701- GRID 135 1.274 0.278 4.700 702- GRID 136 1.556 0.355 4.700 703- GRID 137 1.837 0.432 4.700 704- GRID 138 -2.513 -0.927 4.400 705- GRID 139 -1.976 -0.727 4.400 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 706- GRID 140 -1.435 -0.538 4.400 707- GRID 141 -0.891 -0.359 4.400 708- GRID 142 -0.344 -0.189 4.400 709- GRID 143 0.206 -0.028 4.400 710- GRID 144 0.758 0.125 4.400 711- GRID 145 1.311 0.274 4.400 712- GRID 146 1.588 0.347 4.400 713- GRID 147 1.865 0.420 4.400 714- GRID 148 -2.273 -0.686 3.715 715- GRID 149 -1.742 -0.524 3.715 716- GRID 150 -1.208 -0.374 3.715 717- GRID 151 -0.672 -0.233 3.715 718- GRID 152 -0.133 -0.099 3.715 719- GRID 153 0.406 0.031 3.715 720- GRID 154 0.946 0.159 3.715 721- GRID 155 1.485 0.291 3.715 722- GRID 156 2.021 0.433 3.715 723- GRID 157 -2.051 -0.483 3.180 724- GRID 158 -1.675 -0.394 3.180 725- GRID 159 -1.296 -0.309 3.180 726- GRID 160 -0.917 -0.229 3.180 727- GRID 161 -0.548 -0.089 3.180 728- GRID 162 -0.274 -0.044 3.180 729- GRID 163 0.000 0.000 3.180 730- GRID 164 0.274 0.044 3.180 731- GRID 165 0.548 0.089 3.180 732- GRID 166 1.037 0.214 3.358 733- GRID 167 1.527 0.328 3.537 734- GRID 168 -0.548 -0.089 2.930 735- GRID 169 -0.365 -0.059 2.930 736- GRID 170 -0.183 -0.030 2.930 737- GRID 171 0.000 0.000 2.930 738- GRID 172 0.183 0.030 2.930 739- GRID 173 0.365 0.059 2.930 740- GRID 174 0.548 0.089 2.930 741- GRID 175 -1.804 -0.270 2.650 742- GRID 176 -1.188 -0.182 2.650 743- GRID 177 -0.750 -0.123 2.740 744- GRID 178 -0.550 -0.072 2.600 745- GRID 179 -0.367 -0.048 2.600 746- GRID 180 -0.184 -0.024 2.600 747- GRID 181 0.000 0.000 2.600 748- GRID 182 0.184 0.024 2.600 749- GRID 183 0.367 0.048 2.600 750- GRID 184 0.550 0.072 2.600 751- GRID 185 -0.550 -0.072 2.350 752- GRID 186 -0.367 -0.048 2.350 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 753- GRID 187 -0.184 -0.024 2.350 754- GRID 188 0.000 0.000 2.350 755- GRID 189 0.184 0.024 2.350 756- GRID 190 0.367 0.048 2.350 757- GRID 191 0.550 0.072 2.350 758- GRID 192 -0.550 -0.072 2.070 759- GRID 193 -0.367 -0.048 2.070 760- GRID 194 -0.184 -0.024 2.070 761- GRID 195 0.000 0.000 2.070 762- GRID 196 0.184 0.024 2.070 763- GRID 197 0.367 0.048 2.070 764- GRID 198 0.550 0.072 2.070 765- GRID 199 -0.699 -0.091 1.920 766- GRID 200 -0.466 -0.061 1.920 767- GRID 201 -0.233 -0.030 1.920 768- GRID 202 0.000 0.000 1.920 769- GRID 203 0.233 0.030 1.920 770- GRID 204 0.466 0.061 1.920 771- GRID 205 0.699 0.091 1.920 772- GRID 206 -1.496 -0.226 2.650 773- MAT1 1 1.6 E7 .35 .0004141 774- MKAERO2 -45.000 0.129 775- MPC 1 5 4 1.0 4 4 -1.0 776- MPC 1 6 4 1.0 4 4 -1.0 777- MPC 1 7 4 1.0 1 4 -1.0 778- PARAM* BOV 0.1535890E-03 *PARAMB 779- *PARAMB 780- PARAM CYCIO -1 781- PARAM IREF 60 782- PARAM KGGIN -1 783- PARAM KMAX 0 784- PARAM KMIN 0 785- PARAM LMODES 5 786- PARAM MAXMACH 0.950 787- PARAM MINMACH 1.010 788- PARAM NSEGS 8 789- PARAM* Q 0.3854121E+01 *PARAMQ 790- *PARAMQ 791- PARAM RPS 133.33 792- PTRIA2 1 1 .01570 793- PTRIA2 2 1 .02827 794- PTRIA2 3 1 .01897 795- PTRIA2 4 1 .03380 796- PTRIA2 5 1 .02043 797- PTRIA2 6 1 .03623 798- PTRIA2 7 1 .02917 799- PTRIA2 8 1 .04440 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 800- PTRIA2 9 1 .03830 801- PTRIA2 10 1 .04253 802- PTRIA2 11 1 .03677 803- PTRIA2 12 1 .03397 804- PTRIA2 13 1 .02740 805- PTRIA2 14 1 .01673 806- PTRIA2 15 1 .00823 807- PTRIA2 16 1 .01970 808- PTRIA2 17 1 .03550 809- PTRIA2 18 1 .02390 810- PTRIA2 19 1 .04250 811- PTRIA2 20 1 .03487 812- PTRIA2 21 1 .04743 813- PTRIA2 22 1 .05847 814- PTRIA2 23 1 .05413 815- PTRIA2 24 1 .06033 816- PTRIA2 25 1 .05580 817- PTRIA2 26 1 .05663 818- PTRIA2 27 1 .05230 819- PTRIA2 28 1 .04877 820- PTRIA2 29 1 .04293 821- PTRIA2 30 1 .03390 822- PTRIA2 31 1 .02023 823- PTRIA2 32 1 .00963 824- PTRIA2 33 1 .02363 825- PTRIA2 34 1 .04273 826- PTRIA2 35 1 .03977 827- PTRIA2 36 1 .06260 828- PTRIA2 37 1 .05863 829- PTRIA2 38 1 .07160 830- PTRIA2 39 1 .06707 831- PTRIA2 40 1 .07400 832- PTRIA2 41 1 .06923 833- PTRIA2 42 1 .06910 834- PTRIA2 43 1 .06850 835- PTRIA2 44 1 .06057 836- PTRIA2 45 1 .05280 837- PTRIA2 46 1 .04220 838- PTRIA2 47 1 .02500 839- PTRIA2 48 1 .01207 840- PTRIA2 49 1 .02780 841- PTRIA2 50 1 .04730 842- PTRIA2 51 1 .05020 843- PTRIA2 52 1 .07393 844- PTRIA2 53 1 .07003 845- PTRIA2 54 1 .07890 846- PTRIA2 55 1 .08777 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 847- PTRIA2 56 1 .08443 848- PTRIA2 57 1 .08887 849- PTRIA2 58 1 .08297 850- PTRIA2 59 1 .08140 851- PTRIA2 60 1 .07273 852- PTRIA2 61 1 .06277 853- PTRIA2 62 1 .05077 854- PTRIA2 63 1 .02983 855- PTRIA2 64 1 .01467 856- PTRIA2 65 1 .03187 857- PTRIA2 66 1 .04680 858- PTRIA2 67 1 .07307 859- PTRIA2 68 1 .07707 860- PTRIA2 69 1 .09197 861- PTRIA2 70 1 .09173 862- PTRIA2 71 1 .10140 863- PTRIA2 72 1 .09827 864- PTRIA2 73 1 .10277 865- PTRIA2 74 1 .09670 866- PTRIA2 75 1 .09440 867- PTRIA2 76 1 .08500 868- PTRIA2 77 1 .07300 869- PTRIA2 78 1 .05943 870- PTRIA2 79 1 .03483 871- PTRIA2 80 1 .01723 872- PTRIA2 81 1 .03637 873- PTRIA2 82 1 .05337 874- PTRIA2 83 1 .08310 875- PTRIA2 84 1 .08787 876- PTRIA2 85 1 .10477 877- PTRIA2 86 1 .10487 878- PTRIA2 87 1 .11580 879- PTRIA2 88 1 .11257 880- PTRIA2 89 1 .11757 881- PTRIA2 90 1 .11090 882- PTRIA2 91 1 .10817 883- PTRIA2 92 1 .09773 884- PTRIA2 93 1 .08390 885- PTRIA2 94 1 .06857 886- PTRIA2 95 1 .04017 887- PTRIA2 96 1 .02000 888- PTRIA2 97 1 .04190 889- PTRIA2 98 1 .06107 890- PTRIA2 99 1 .09537 891- PTRIA2 100 1 .10040 892- PTRIA2 101 1 .12033 893- PTRIA2 102 1 .11993 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 894- PTRIA2 103 1 .13323 895- PTRIA2 104 1 .12900 896- PTRIA2 105 1 .13550 897- PTRIA2 106 1 .12730 898- PTRIA2 107 1 .12473 899- PTRIA2 108 1 .11227 900- PTRIA2 109 1 .09677 901- PTRIA2 110 1 .07883 902- PTRIA2 111 1 .04630 903- PTRIA2 112 1 .02297 904- PTRIA2 113 1 .04790 905- PTRIA2 114 1 .07000 906- PTRIA2 115 1 .10907 907- PTRIA2 116 1 .11527 908- PTRIA2 117 1 .13790 909- PTRIA2 118 1 .13793 910- PTRIA2 119 1 .15300 911- PTRIA2 120 1 .14870 912- PTRIA2 121 1 .15617 913- PTRIA2 122 1 .14720 914- PTRIA2 123 1 .14463 915- PTRIA2 124 1 .13037 916- PTRIA2 125 1 .11300 917- PTRIA2 126 1 .09187 918- PTRIA2 127 1 .06993 919- PTRIA2 128 1 .04230 920- PTRIA2 129 1 .01937 921- PTRIA2 130 1 .05410 922- PTRIA2 131 1 .07907 923- PTRIA2 132 1 .12273 924- PTRIA2 133 1 .13063 925- PTRIA2 134 1 .15583 926- PTRIA2 135 1 .15690 927- PTRIA2 136 1 .17377 928- PTRIA2 137 1 .16983 929- PTRIA2 138 1 .17853 930- PTRIA2 139 1 .16917 931- PTRIA2 140 1 .16647 932- PTRIA2 141 1 .15090 933- PTRIA2 142 1 .10750 934- PTRIA2 143 1 .13113 935- PTRIA2 144 1 .12383 936- PTRIA2 145 1 .06393 937- PTRIA2 146 1 .08037 938- PTRIA2 147 1 .07120 939- PTRIA2 148 1 .09103 940- PTRIA2 149 1 .01970 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 941- PTRIA2 150 1 .03663 942- PTRIA2 151 1 .02113 943- PTRIA2 152 1 .03927 944- PTRIA2 153 1 .06227 945- PTRIA2 154 1 .09003 946- PTRIA2 155 1 .14073 947- PTRIA2 156 1 .14847 948- PTRIA2 157 1 .17940 949- PTRIA2 158 1 .17887 950- PTRIA2 159 1 .20047 951- PTRIA2 160 1 .19430 952- PTRIA2 161 1 .20483 953- PTRIA2 162 1 .19300 954- PTRIA2 163 1 .18800 955- PTRIA2 164 1 .17083 956- PTRIA2 165 1 .12680 957- PTRIA2 166 1 .14623 958- PTRIA2 167 1 .12853 959- PTRIA2 168 1 .07737 960- PTRIA2 169 1 .09420 961- PTRIA2 170 1 .07600 962- PTRIA2 171 1 .09090 963- PTRIA2 172 1 .02237 964- PTRIA2 173 1 .04063 965- PTRIA2 174 1 .02237 966- PTRIA2 175 1 .04090 967- PTRIA2 176 1 .07267 968- PTRIA2 177 1 .10533 969- PTRIA2 178 1 .16657 970- PTRIA2 179 1 .17420 971- PTRIA2 180 1 .21267 972- PTRIA2 181 1 .21013 973- PTRIA2 182 1 .23567 974- PTRIA2 183 1 .22653 975- PTRIA2 184 1 .23553 976- PTRIA2 185 1 .22000 977- PTRIA2 186 1 .20763 978- PTRIA2 187 1 .18747 979- PTRIA2 188 1 .12633 980- PTRIA2 189 1 .15213 981- PTRIA2 190 1 .12827 982- PTRIA2 191 1 .07373 983- PTRIA2 192 1 .08800 984- PTRIA2 193 1 .07187 985- PTRIA2 194 1 .08633 986- PTRIA2 195 1 .02223 987- PTRIA2 196 1 .04017 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 988- PTRIA2 197 1 .02113 989- PTRIA2 198 1 .03857 990- PTRIA2 199 1 .07367 991- PTRIA2 200 1 .12303 992- PTRIA2 201 1 .18327 993- PTRIA2 202 1 .21377 994- PTRIA2 203 1 .23553 995- PTRIA2 204 1 .25797 996- PTRIA2 205 1 .26063 997- PTRIA2 206 1 .27393 998- PTRIA2 207 1 .25797 999- PTRIA2 208 1 .25653 1000- PTRIA2 209 1 .22173 1001- PTRIA2 210 1 .20550 1002- PTRIA2 211 1 .12690 1003- PTRIA2 212 1 .15470 1004- PTRIA2 213 1 .12620 1005- PTRIA2 214 1 .08497 1006- PTRIA2 215 1 .06900 1007- PTRIA2 216 1 .08243 1008- PTRIA2 217 1 .06653 1009- PTRIA2 218 1 .03707 1010- PTRIA2 219 1 .01923 1011- PTRIA2 220 1 .03527 1012- PTRIA2 221 1 .01803 1013- PTRIA2 222 1 .08143 1014- PTRIA2 223 1 .13560 1015- PTRIA2 224 1 .20770 1016- PTRIA2 225 1 .23597 1017- PTRIA2 226 1 .26447 1018- PTRIA2 227 1 .28117 1019- PTRIA2 228 1 .28797 1020- PTRIA2 229 1 .29323 1021- PTRIA2 230 1 .27777 1022- PTRIA2 231 1 .26773 1023- PTRIA2 232 1 .23027 1024- PTRIA2 233 1 .20870 1025- PTRIA2 234 1 .12567 1026- PTRIA2 235 1 .15577 1027- PTRIA2 236 1 .12690 1028- PTRIA2 237 1 .08110 1029- PTRIA2 238 1 .06640 1030- PTRIA2 239 1 .08210 1031- PTRIA2 240 1 .06740 1032- PTRIA2 241 1 .03460 1033- PTRIA2 242 1 .01817 1034- PTRIA2 243 1 .03527 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1035- PTRIA2 244 1 .01850 1036- PTRIA2 245 1 .08470 1037- PTRIA2 246 1 .14377 1038- PTRIA2 247 1 .22293 1039- PTRIA2 248 1 .25577 1040- PTRIA2 249 1 .28550 1041- PTRIA2 250 1 .31427 1042- PTRIA2 251 1 .31520 1043- PTRIA2 252 1 .34400 1044- PTRIA2 253 1 .31200 1045- PTRIA2 254 1 .33630 1046- PTRIA2 255 1 .27047 1047- PTRIA2 256 1 .28763 1048- PTRIA2 257 1 .19700 1049- PTRIA2 258 1 .17977 1050- PTRIA2 259 1 .09497 1051- PTRIA2 260 1 .06357 1052- PTRIA2 261 1 .01923 1053- PTRIA2 262 1 .09560 1054- PTRIA2 263 1 .17233 1055- PTRIA2 264 1 .25333 1056- PTRIA2 265 1 .31430 1057- PTRIA2 266 1 .39720 1058- PTRIA2 267 1 .38410 1059- PTRIA2 268 1 .48943 1060- PTRIA2 269 1 .46790 1061- PTRIA2 270 1 .54337 1062- PTRIA2 271 1 .58850 1063- PTRIA2 272 1 .61167 1064- PTRIA2 273 1 .49710 1065- PTRIA2 274 1 .61533 1066- PTRIA2 275 1 .51933 1067- PTRIA2 276 1 .37560 1068- PTRIA2 277 1 .31070 1069- PTRIA2 278 1 .20550 1070- PTRIA2 279 1 .10433 1071- PTRIA2 280 1 .16253 1072- PTRIA2 281 1 .29247 1073- PTRIA2 282 1 .36323 1074- PTRIA2 283 1 .50120 1075- PTRIA2 284 1 .52317 1076- PTRIA2 285 1 .67620 1077- PTRIA2 286 1 .64723 1078- PTRIA2 287 1 .72723 1079- PTRIA2 288 1 .65833 1080- PTRIA2 289 1 .76263 1081- PTRIA2 290 1 .71047 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1082- PTRIA2 291 1 .80953 1083- PTRIA2 292 1 .76303 1084- PTRIA2 293 1 .85827 1085- PTRIA2 294 1 .90487 1086- PTRIA2 295 1 .83280 1087- PTRIA2 296 1 .86773 1088- PTRIA2 297 1 .76483 1089- PTRIA2 298 1 .60217 1090- PTRIA2 299 1 .83203 1091- PTRIA2 300 1 .64773 1092- PTRIA2 301 1 .93570 1093- PTRIA2 302 1 .90603 1094- PTRIA2 303 1 .99047 1095- PTRIA2 304 1 1.02140 1096- PTRIA2 305 1 1.01607 1097- PTRIA2 306 1 1.03707 1098- PTRIA2 307 1 .89447 1099- PTRIA2 308 1 .97073 1100- PTRIA2 309 1 .43940 1101- PTRIA2 310 1 .62880 1102- PTRIA2 311 1 .45607 1103- PTRIA2 312 1 .62880 1104- PTRIA2 313 1 .89447 1105- PTRIA2 314 1 .97073 1106- PTRIA2 315 1 1.06800 1107- PTRIA2 316 1 1.08900 1108- PTRIA2 317 1 1.08900 1109- PTRIA2 318 1 1.06800 1110- PTRIA2 319 1 .97073 1111- PTRIA2 320 1 .89447 1112- PTRIA2 321 1 .62880 1113- PTRIA2 322 1 .43940 1114- PTRIA2 323 1 .43940 1115- PTRIA2 324 1 .62880 1116- PTRIA2 325 1 .89447 1117- PTRIA2 326 1 .97073 1118- PTRIA2 327 1 1.06800 1119- PTRIA2 328 1 1.08900 1120- PTRIA2 329 1 1.08900 1121- PTRIA2 330 1 1.06800 1122- PTRIA2 331 1 .97073 1123- PTRIA2 332 1 .89447 1124- PTRIA2 333 1 .62880 1125- PTRIA2 334 1 .43940 1126- PTRIA2 335 1 .55867 1127- PTRIA2 336 1 .70640 1128- PTRIA2 337 1 1.06620 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1129- PTRIA2 338 1 1.06487 1130- PTRIA2 339 1 1.13913 1131- PTRIA2 340 1 1.06600 1132- PTRIA2 341 1 1.06600 1133- PTRIA2 342 1 1.13913 1134- PTRIA2 343 1 1.06487 1135- PTRIA2 344 1 1.06620 1136- PTRIA2 345 1 .70640 1137- PTRIA2 346 1 .55867 1138- RLOAD1 1000 11 12 13 1139- SEQGP 1 9 2 8 3 7 4 4 1140- SEQGP 5 2 6 1 7 10 8 11 1141- SEQGP 9 20 10 19 11 18 12 17 1142- SEQGP 13 16 14 15 15 12 16 5 1143- SEQGP 17 3 18 21 19 30 20 29 1144- SEQGP 21 28 22 27 23 26 24 25 1145- SEQGP 25 22 26 13 27 6 28 39 1146- SEQGP 29 38 30 37 31 36 32 35 1147- SEQGP 33 34 34 31 35 23 36 14 1148- SEQGP 37 47 38 48 39 46 40 45 1149- SEQGP 41 44 42 43 43 40 44 32 1150- SEQGP 45 24 46 56 47 57 48 55 1151- SEQGP 49 54 50 53 51 52 52 49 1152- SEQGP 53 41 54 33 55 66 56 67 1153- SEQGP 57 65 58 64 59 63 60 62 1154- SEQGP 61 58 62 50 63 42 64 76 1155- SEQGP 65 77 66 75 67 74 68 73 1156- SEQGP 69 72 70 68 71 59 72 51 1157- SEQGP 73 86 74 87 75 85 76 84 1158- SEQGP 77 83 78 82 79 78 80 69 1159- SEQGP 81 61 82 60 83 79 84 71 1160- SEQGP 85 70 86 88 87 99 88 98 1161- SEQGP 89 97 90 96 91 95 92 91 1162- SEQGP 93 92 94 81 95 80 96 103 1163- SEQGP 97 94 98 93 99 89 100 100 1164- SEQGP 101 110 102 109 103 108 104 107 1165- SEQGP 105 104 106 114 107 106 108 105 1166- SEQGP 109 115 110 118 111 117 112 90 1167- SEQGP 113 101 114 111 115 121 116 120 1168- SEQGP 117 119 118 116 119 127 120 128 1169- SEQGP 121 132 122 130 123 139 124 145 1170- SEQGP 125 102 126 112 127 122 128 134 1171- SEQGP 129 133 130 129 131 131 132 142 1172- SEQGP 133 150 134 157 135 144 136 156 1173- SEQGP 137 169 138 113 139 123 140 135 1174- SEQGP 141 146 142 140 143 141 144 143 1175- SEQGP 145 154 146 167 147 179 148 124 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1176- SEQGP 149 136 150 147 151 151 152 152 1177- SEQGP 153 153 154 155 155 166 156 178 1178- SEQGP 157 125 158 137 159 148 160 158 1179- SEQGP 161 160 162 161 163 162 164 163 1180- SEQGP 165 165 166 164 167 168 168 170 1181- SEQGP 169 172 170 173 171 174 172 175 1182- SEQGP 173 176 174 177 175 126 176 149 1183- SEQGP 177 159 178 171 179 180 180 182 1184- SEQGP 181 183 182 184 183 185 184 186 1185- SEQGP 185 181 186 187 187 190 188 191 1186- SEQGP 189 192 190 193 191 194 192 188 1187- SEQGP 193 195 194 197 195 198 196 199 1188- SEQGP 197 200 198 201 199 189 200 196 1189- SEQGP 201 202 202 203 203 204 204 205 1190- SEQGP 205 206 206 138 1191- SPC1 1 5 17 27 36 14 10 45 1192- SPC1 1 5 23 54 37 112 146 185 1193- SPC1 1 5 186 192 187 188 189 190 1194- SPC1 1 5 191 193 194 195 196 197 1195- SPC1 1 5 198 1196- SPC1 1 123456 199 THRU 205 1197- STREAML110 175 177 163 166 156 1198- STREAML120 138 140 129 131 121 1199- STREAML130 99 101 103 105 111 1200- STREAML140 64 75 77 92 108 1201- STREAML150 37 49 60 70 82 1202- STREAML160 18 21 33 44 54 1203- STREAML170 1 13 14 15 27 1204- STREAML210 5 7.79 4.032 0.322 2.085 0.786 .9179- 7+2 10 1205- +2 1010316.6 -14.88 1206- STREAML220 5 17.14 4.675 0.108 3.508 0.827 .9179- 7+2 20 1207- +2 2010859.5 -12.13 1208- STREAML230 5 18.27 4.876 -0.178 4.955 0.877 .9179- 7+2 30 1209- +2 3011513.1 6.97 1210- STREAML240 5 18.50 4.529 -0.312 6.339 0.826 .9179- 7+2 40 1211- +2 4010848.5 26.04 1212- STREAML250 5 21.10 3.799 -0.408 7.703 0.742 .9179- 7+2 50 1213- +2 509745.6 40.02 1214- STREAML260 5 24.78 2.815 -0.570 8.894 0.698 .9179- 7+2 60 1215- +2 609163.9 47.18 1216- STREAML270 5 31.02 1.805 -0.570 9.716 0.834 .9179- 7+2 70 1217- +2 7010952.6 40.07 1218- TABLED1*13 *TB13A 1219- *TB13A *TB13B 1220- *TB13B 0.0 0.0 133.19667 0.0 *TB13C 1221- *TB13C 133.19667 1.0 133.46333 1.0 *TB13D 1222- *TB13D 133.46333 0.0 1.0E10 0.0 *TB13E 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1223- *TB13E ENDT ENDDATA 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $ 2 PRECHK ALL $ 3 FILE KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $ 3 FILE UXVF=APPEND/PDT=APPEND/PD=APPEND $ 3 COND ERRORC1,NSEGS $ IF USER HAS NOT SPECIFIED NSEGS. 3 COND ERRORC1,KMAX $ IF USER HAS NOT SPECIFIED KMAX. 3 COND ERRORC1,KMIN $ IF USER HAS SPECIFIED NEGATIVE KMIN. 3 PARAM //*NE*/KTEST/V,Y,KMAX/V,Y,KMIN=0 $ 3 COND LBL1KIND,KTEST $ 3 PARAM //*ADD*/KINDEX/V,Y,KMAX/0 $ SET KINDEX = KMAX (= KMIN) 3 JUMP LBL2KIND $ 3 LABEL LBL1KIND 3 COND ERRORC1,KINDEX $ IF USER HAS NOT SPECIFIED KINDEX. 3 PARAM //*LT*/KTEST/V,Y,KINDEX/V,Y,KMIN $ 3 COND ERRORC1,KTEST $ 3 PARAM //*GT*/KTEST/V,Y,KINDEX/V,Y,KMAX $ 3 COND ERRORC1,KTEST $ 3 LABEL LBL2KIND $ 3 PARAM //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $ 3 COND ERRORC1,CYCIOERR $ IF USER HAS NOT SPECIFIED CYCIO. 3 PARAM //*DIV*/NSEG2 /V,Y,NSEGS /2 $ NSEG2 = NSEGS/2 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 3 PARAM //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $ 3 COND ERRORC1,KMAXERR $ IF KMAX .GT. NSEGS/2 3 PARAM //*EQ*/KTEST/V,Y,KINDEX/0 $ 3 COND LBL3KIND,KTEST $ 3 PARAM //*ADD*/NSEGS1/V,Y,NSEGS/1 $ 3 PARAM //*DIV*/NSEG21/NSEGS1/2 $ 3 PARAM //*EQ*/KEVEN/NSEG21/NSEG2 $ 3 PARAM //*EQ*/KNSEG2/NSEG2/V,Y,KINDEX $ 3 PARAM //*EQ*/KTEST/KNSEG2/KEVEN $ 3 COND LBL3KIND,KTEST $ 3 PARAM //*ADD*/KTEST/1/0 $ 3 LABEL LBL3KIND $ 3 PARAM //*GT*/KFLAG/KTEST/0 $ 3 PARAM //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $ 3 PARAMR //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $ 3 PARAMR //*MPY*/OMEGA2 /2.0 /OMEGA $ 3 PARAMR //*MPY*/OMEGASQR /OMEGA /OMEGA $ 3 PARAMR //*EQ*//V,Y,RPS /0.0 ////NORPS $ 3 PARAM //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $ 3 COND ERRORC2,NOLUMP $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ 10 COND LBL5,NOGPDT $ 11 GP2 GEOM2,EQEXIN/ECT $ 12 PARAML PCDB//*PRES*////JUMPPLOT $ 13 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 14 COND P1,JUMPPLOT $ 15 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 16 PRTMSG PLTSETX// $ 17 PARAM //*MPY*/PLTFLG/1/1 $ 18 PARAM //*MPY*/PFILE/0/0 $ 19 COND P1,JUMPPLOT $ 20 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 21 PRTMSG PLOTX1//$ 22 LABEL P1 $ 23 GP3 GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $ 24 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 25 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 26 PURGE K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA, KGGX/NOSIMP $ 26 PARAM //*MPY*/NSKIP /0/0 $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 44 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 26 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/ S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/ S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/S,Y,AUTOSPC $ 26 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ 26 PARAM //*NOT*/REACDATA /REACT $ 26 COND ERRORC3,REACDATA $ 26 DPD DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,, TRL,EED,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ S,N,NOFRL/NONLFT/S,N,NOTRL/S,N,NOEED//S,N,NOUE $ 26 COND ERRORC7,NOEED $ 26 PARAM //*AND*/FTERR /NOFRL /NOTRL $ 26 COND ERRORC5,FTERR $ NO FREQ OR TSTEP BULK DATA. 26 PARAML CASECC //*TABLE1*/1/14//FREQSET $ 26 PARAML CASECC //*TABLE1*/1/38//TIMESET $ 26 PARAM //*MPY*/FREQTIME /FREQSET /TIMESET $ 26 PARAM //*NOT*/FTERR1 /FREQTIME $ 26 PARAM //*LE*/NOFREQ /FREQSET /0 $ 26 PARAM //*LE*/NOTIME /TIMESET /0 $ 26 COND ERRORC6,FTERR1 $ BOTH FREQ AND TSTEP IN CASE CONTROL DECK. 26 PARAM //*NOT*/EXTRAPTS /NOUE $ 26 COND ERRORC4,EXTRAPTS $ 26 GPCYC GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $ 26 COND ERRORC1,NOGO $ 27 COND LBL1,NOSIMP $ 28 PARAM //*ADD*/NOKGGX/1/0 $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 45 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 29 PARAM //*ADD*/NOMGG/1/0 $ 30 PARAM //*ADD*/NOBGG=-1/1/0 $ 31 PARAM //*ADD*/NOK4GG/1/0 $ 31 PARAM //*NOP*/V,Y,KGGIN=-1 $ 31 COND JMPKGGIN,KGGIN $ 31 PARAM //*ADD*/NOKGGX/-1/0 $ 31 INPUTT1 /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $ 31 EQUIV KTOTAL,KGGX $ 31 LABEL JMPKGGIN $ 32 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 33 PURGE KGGX/NOKGGX/MGG/NOMGG $ 34 COND LBLKGGX,NOKGGX $ 35 EMA GPECT,KDICT,KELM/KGGX $ 36 LABEL LBLKGGX $ 36 PARAM //*OR*/NOBM1 /NOMGG /NORPS $ 36 PURGE B1GG,M1GG /NOBM1 $ 36 PURGE M2GG,M2BASEXG /NOMGG $ 37 COND LBLMGG,NOMGG $ 38 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 39 PURGE MDICT,MELM/ALWAYS $ 39 FVRSTR1 CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG, 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 46 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/ V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/ V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA $ 39 PARAML FRLX //*PRES*////NOFRLX $ 39 COND LBLFRLX,NOFRLX $ 39 EQUIV FRLX,FRL $ 39 LABEL LBLFRLX $ 40 LABEL LBLMGG $ 41 COND LBLBGG,NOBGG $ 42 EMA GPECT,BDICT,BELM/BGG $ 43 PURGE BDICT,BELM/ALWAYS $ 44 LABEL LBLBGG $ 45 COND LBLK4GG,NOK4GG $ 46 EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ 47 LABEL LBLK4GG $ 48 PURGE KDICT,KELM/ALWAYS $ 48 PARAM //*ADD*/NOBGG /NOBM1 /0 $ RESET NOBGG. 49 PURGE MNN,MFF,MAA/NOMGG $ 50 PURGE BNN,BFF,BAA/NOBGG $ 51 COND LBL1,GRDPNT $ 52 COND ERROR4,NOMGG $ 53 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 54 OFP OGPWG,,,,,//S,N,CARDNO $ 55 LABEL LBL1 $ 56 EQUIV KGGX,KGG/NOGENL $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 47 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 57 COND LBL11,NOGENL $ 58 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 59 LABEL LBL11 $ 60 GPSTGEN KGG,SIL/GPST $ 60 COND LBL11A,NOBM1 $ 60 PARAMR //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $ 60 PARAMR //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $ 60 PARAMR //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $ 60 ADD BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $ 60 EQUIV BGG1,BGG $ 60 ADD KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $ 60 EQUIV KGG1,KGG $ 60 LABEL LBL11A 65 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ 66 COND LBL2,MPCF1 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 48 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 75 EQUIV MFF,MAA/OMIT $ 76 EQUIV BFF,BAA/OMIT $ 77 EQUIV K4FF,K4AA/OMIT $ 78 COND LBL5,OMIT $ 79 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 80 COND LBLM,NOMGG $ 81 SMP2 USET,GO,MFF/MAA $ 82 LABEL LBLM $ 83 COND LBLB,NOBGG $ 84 SMP2 USET,GO,BFF/BAA $ 85 LABEL LBLB $ 86 COND LBL5,NOK4GG $ 87 SMP2 USET,GO,K4FF/K4AA $ 88 LABEL LBL5 $ 90 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 91 PARAM //*ADD*/NEVER/1/0 $ 92 PARAM //*MPY*/REPEATF/-1/1 $ 93 BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ 94 PARAM //*AND*/NOFL/NOABFL/NOKBFL $ 95 PURGE KBFL/NOKBFL/ ABFL/NOABFL $ 96 COND LBL13,NOFL $ 97 MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 49 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 98 LABEL LBL13 $ 99 PURGE OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ 100 CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ 101 MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ 102 PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ 103 PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ 104 EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ 105 COND LBLFL2,NOFL $ 106 ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ 107 COND LBLFL2,NOABFL $ 108 TRNSP ABFL/ABFLT $ 109 ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ 110 LABEL LBLFL2 $ 111 PARAM //*AND*/BDEBA/NOUE/NOB2PP $ 112 PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ 113 PARAM //*AND*/MDEMA/NOUE/NOM2PP $ 114 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 114 PARAM //*AND*/KDEKA/NOUE/NOK2PP $ 114 COND LGKAD1,LGKAD $ BRANCH IN NOT FREQRESP. 115 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ MAA,MDD/MDEMA/BAA,BDD/BDEBA $ 115 JUMP LGKAD2 $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 50 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 115 LABEL LGKAD1 $ 115 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ 115 LABEL LGKAD2 $ 116 COND LBL18,NOGPDT $ 117 GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/ C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/ SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $ 118 LABEL LBL18 $ 118 COND LGKAD3,LGKAD $ BRANCH IF NOT FREQRESP. 119 EQUIV B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $ 119 JUMP LGKAD4 $ 119 LABEL LGKAD3 $ 119 EQUIV B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $ 119 LABEL LGKAD4 $ 124 COND LBLTRL1,NOTIME $ 124 PARAM //*MPY*/REPEATT /1 /-1 $ 124 PARAM //*ADD*/APPFLG /1 /0 $ INITIALIZE FOR SDR1. 124 LABEL TRLGLOOP $ 124 CASE CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $ 124 PARAM //*MPY*/NCOL /0 /1 $ 124 TRLG CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ ,,PDT1,PD1,,TOL/ NOSET/NCOL $ 124 SDR1 TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $ 124 SDR1 TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 51 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 PARAM //*ADD*/APPFLG /APPFLG /1 $ APPFLG=APPFLG+1. 124 COND TRLGDONE,REPEATT $ 124 REPT TRLGLOOP,100 $ 124 JUMP ERROR3 $ 124 LABEL TRLGDONE $ 124 FVRSTR2 TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/ V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/ S,N,NORO2 $ 124 EQUIV FRLZ,FRL // FOLZ,FOL $ 124 JUMP LBLFRL2 $ 124 LABEL LBLTRL1 $ 124 FRLG CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM / *DIRECT*/FREQY/*FREQ* $ 124 COND LBLFRLX1,NOFRLX $ ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED. 124 MPYAD PPF,PDZERO, / PPFX /0 $ 124 EQUIV PPFX,PPF $ 124 LABEL LBLFRLX1 $ 124 COND LBLFRL1,NOBASEX $ 124 MPYAD M2GG,BASEXG, / M2BASEXG /0 $ 124 ADD PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $ 124 EQUIV PPF1,PPF $ 124 COND LBLBASE1,NOSET $ 124 SSG2 USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $ 124 EQUIV PSF1,PSF // PDF1,PDF $ 124 LABEL LBLBASE1 $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 52 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 LABEL LBLFRL1 $ 124 EQUIV PPF,PDF/NOSET $ 124 PARAML PDF //*TRAILER*/1 /PDFCOLS $ 124 PARAM //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX 124 EQUIV PDF,PXF/CYCIO $ 124 COND LBLPDONE,CYCIO $ 124 PARAM //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS 124 CYCT1 PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1/V,Y,KMAX=-1/ NLOAD /S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 JUMP LBLPDONE $ 124 LABEL LBLFRL2 $ 124 PARAM //*NOT*/NOTCYCIO /V,Y,CYCIO $ 124 COND LBLTRL2,NOTCYCIO $ 124 EQUIV PD,PDTRZ1/NORO1 $ 124 COND LBLRO1A,NORO1 $ 124 MPYAD PD,REORDER1, / PDTRZ1 / 0 $ 124 LABEL LBLRO1A $ 124 CYCT1 PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/ S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 EQUIV PXTRZ1,PXFZ1/NORO2 $ 124 COND LBLRO2A,NORO2 $ 124 MPYAD PXTRZ1,REORDER2, / PXFZ1 /0 $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 53 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 LABEL LBLRO2A $ 124 EQUIV PXFZ1,PXF1 $ 124 JUMP LBLTRL3 $ 124 LABEL LBLTRL2 $ 124 MPYAD PD,REORDER1, / PDTRZ2 / 0 $ 124 CYCT1 PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/ V,Y,NSEGS/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 EQUIV PXTRZ2,PXTR2/NORO2 $ 124 COND LBLRO2B,NORO2 $ 124 MPYAD PXTRZ2,REORDER2, / PXTR2 /0 $ 124 LABEL LBLRO2B $ 124 CYCT1 PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/FLMAX/ S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 EQUIV PXFZ2,PXF1 $ 124 LABEL LBLTRL3 $ 124 COPY PXF1 / PXF2 $ CONVERT REAL PXF1 TO COMPLEX PXF. 124 ADD PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $ 124 PARAM //*ADD*/NLOAD /FLMAX /0 $ NLOAD = FLMAX 124 LABEL LBLPDONE $ 124 PARAM //*ADD*/KMINL /V,Y,KINDEX=-1/-1 $ 124 COND NOKMINL,KMINL $ 124 PARAM //*ADD*/KMINV /0 /0 $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 54 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 LABEL KMINLOOP $ 124 CYCT2 CYCDD,,,PXF,, /,,PKFZ,, / *FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/ S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 ADD PKFZ, / UKVFZ / (0.0,0.0) $ 124 PRTPARM //0/*KINDEX* $ 124 CYCT2 CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/ S,N,NOGO $ 124 PRTPARM //0/*KINDEX* $ 124 COND ERRORC1,NOGO $ 124 PARAM //*ADD*/KMINV /KMINV /1 $ 124 REPT KMINLOOP,KMINL $ 124 LABEL NOKMINL $ 124 COND NOKPRT,NOKPRT $ 124 PRTPARM //0/*KINDEX* $ 124 LABEL NOKPRT $ 124 CYCT2 CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/V,Y,KINDEX/ CYCSEQ/NLOAD/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 CYCT2 CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/V,Y,KINDEX/ CYCSEQ/NLOAD/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 CYCT2 CYCDD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS/V,Y,KINDEX/ CYCSEQ=-1/1/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 READ KKK,MKK,,,EED,,CASECC/LAMK,PHIK,MIK,OEIGS/*MODES*/S,N,NEIGV $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 55 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 OFP OEIGS,,,,,//S,N,CARDNO $ 124 COND FINIS,NEIGV $ 124 OFP LAMK,,,,,//S,N,CARDNO $ 124 COND NOPLOT,JUMPPLOT $ 124 CYCT2 CYCDD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,KINDEX/ CYCSEQ/1/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ 124 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,/ ,OQG1,OPHIG,OES1,OEF1,PPHIG,,/*REIG* $ 124 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,,,/ PLOTXX/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 124 PRTMSG PLOTXX// $ 124 LABEL NOPLOT $ 124 GKAM USETD,PHIK,MIK,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MDUM,BDUM, KDUM,PHIKH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/NONCUP/S,N,FMODE=0 $ 124 PARAML PHIKH//*TRAILER*/1/S,N,NMODES $ 124 SMPYAD PHIKH,MKKF,PHIKH,,,/MHH/3////1 $ 124 SMPYAD PHIKH,KKKF,PHIKH,,,/KHH/3////1 $ 124 SMPYAD PHIKH,BKKF,PHIKH,,,/BHH/3////1 $ 124 MPYAD PHIKH,PKF,/PHF/1 $ 124 EQUIV MHH,MKKF//BHH,BKKF//KHH,KKKF//PHF,PKF $ 124 COND KLABEL1,KFLAG $ 124 APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,/ S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF// 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 56 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NMODES/V,Y,KINDEX $ 124 AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/1 $ 124 AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIKH,,,USETD,AERO/QHHL,,/ NOUE/1 $ 124 JUMP KLABEL2 $ 124 LABEL KLABEL1 $ 124 CYCT2 CYCDD,,,,PHIKH,LAMK/,,,PHIAH,LAMAH/*BACK*/V,Y,NSEGS/ V,Y,KINDEX/CYCSEQ/1/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 124 APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,PVECT/ S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/*COSINE*/ NMODES/V,Y,KINDEX $ 124 AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/1 $ 124 PARTN PHIAH,PVECT,/PHIAC,,,/1 $ 124 AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIAC,,,USETD,AERO/QHHLC,,/NOUE/1 $ 124 APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,PVECT/ S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/*SINE*/NMODES/ V,Y,KINDEX $ 124 PARTN PHIAH,PVECT,/PHIAS,,,/1 $ 124 AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIAS,,,USETD,AERO/QHHLS,,/NOUE/1 $ 124 ADD QHHLC,QHHLS/QHHL/(1.0,0.0)/(1.0,0.0) $ 124 LABEL KLABEL2 $ 124 FRRD2 KKKF,BKKF,MKKF,QHHL,PKF,FOL/UKVF/V,Y,BOV/V,Y,Q/-1.0 $ 124 DDR1 UKVF,PHIKH/UKKVF $ 124 EQUIV UKKVF,UKVF $ 124 CYCT2 CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/V,Y,KINDEX/CYCSEQ/ NLOAD/S,N,NOGO $ 124 COND ERRORC1,NOGO $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 57 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 124 EQUIV UXVF,UDVF / CYCIO $ 124 COND LCYC3,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. 124 CYCT1 UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ 124 LABEL LCYC3 $ 124 COND LBLTRL4,NOTIME $ 124 EQUIV PXF,PDF2 / CYCIO $ 124 COND LCYC4,CYCIO $ IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL. 124 CYCT1 PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $ 124 LABEL LCYC4 $ 124 SDR1 USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $ 124 SSG2 USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $ 124 EQUIV PPFZ,PPF // PSFZ,PSF $ 124 LABEL LBLTRL4 $ 124 VDR CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/FMODE $ 125 COND LBL15,NOD $ 126 COND LBL15A,NOSORT2 $ 127 SDR3 OUDVC1,,,,,/OUDVC2,,,,, $ 128 OFP OUDVC2,,,,,//S,N,CARDNO $ 129 XYTRAN XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/ S,N,CARDNO $ 130 XYPLOT XYPLTFA// $ 131 JUMP LBL15 $ 132 LABEL LBL15A $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 58 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 133 OFP OUDVC1,,,,,//S,N,CARDNO $ 134 LABEL LBL15 $ 135 COND LBL20,NOP $ 136 EQUIV UDVF,UPVC/NOA $ 137 COND LBL19,NOA $ 138 SDR1 USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ 139 LABEL LBL19 $ 140 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ 140 CURV OESC1,MPT,CSTM,EST,SIL,GPL/OESC1M,/1 $ 141 COND LBL17,NOSORT2 $ 143 SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OESC1M/OPPC2,OQPC2,OUPVC2, OESC2,OEFC2,OESC2M $ 143 OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,OESC2M//S,N,CARDNO $ 144 XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ 145 XYPLOT XYPLTF// $ 146 COND LBL16,NOPSDL $ 147 RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ 148 COND LBL16,NORD $ 149 XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ 150 XYPLOT XYPLTR// $ 151 JUMP LBL16 $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 59 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 152 LABEL LBL17 $ 153 PURGE PSDF/NOSORT2 $ 154 OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,OESC1M//S,N,CARDNO $ 155 LABEL LBL16 $ 156 PURGE PSDF/NOPSDL $ 157 COND LBL20,JUMPPLOT $ 158 PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1, GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ 159 PRTMSG PLOTX2// $ 160 LABEL LBL20 $ 161 COND FINIS,REPEATF $ 162 REPT LBL13,100 $ 162 LABEL ERROR3 $ 163 PRTPARM //-3/*DIRFRRD* $ 164 JUMP FINIS $ 169 LABEL ERROR4 $ 170 PRTPARM //-4/*DIRFRRD* $ 170 LABEL ERRORC1 $ CHECK NSEGS, KMAX AND OTHER CYCLIC DATA. 170 PRTPARM //-5 /*CYCSTATICS* $ 170 LABEL ERRORC2 $ COUPLED MASS NOT ALLOWED. 170 PRTPARM //0 /C,Y,COUPMASS $ 170 JUMP FINIS $ 170 LABEL ERRORC3 $ SUPORT BULK DATA NOT ALLOWED. 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 60 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 170 PRTPARM //-6 /*CYCSTATICS* $ 170 LABEL ERRORC4 $ EPOINT BULK DATA NOT ALLOWED. 170 PRTPARM //0 /*NOUE* $ 170 JUMP FINIS $ 170 LABEL ERRORC5 $ NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK. 170 PRTPARM //0 /*NOFRL* $ 170 PRTPARM //0 /*NOTRL* $ 170 JUMP FINIS $ 170 LABEL ERRORC6 $ BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL. 170 PRTPARM //0 /*NOFREQ* $ 170 PRTPARM //0 /*NOTIME* $ 170 JUMP FINIS $ 170 LABEL ERRORC7 $ NO EIGENVALUE EXTRACTION DATA 170 PRTPARM //-2/*CYCMODES* $ 171 LABEL FINIS $ 172 PURGE DUMMY/ALWAYS $ 173 END $ 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 61 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT 0 *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION ADD INSTRUCTION NO. 124 DATA BLOCK NAMED PXF ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION APDB INSTRUCTION NO. 124 DATA BLOCK NAMED AERO ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION APDB INSTRUCTION NO. 124 DATA BLOCK NAMED ACPT ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION APDB INSTRUCTION NO. 124 DATA BLOCK NAMED GTKA ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION AMG INSTRUCTION NO. 124 DATA BLOCK NAMED AJJL ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION AMG INSTRUCTION NO. 124 DATA BLOCK NAMED SKJ ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION AMG INSTRUCTION NO. 124 DATA BLOCK NAMED D1JK ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION AMG INSTRUCTION NO. 124 DATA BLOCK NAMED D2JK ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION APDB INSTRUCTION NO. 124 DATA BLOCK NAMED AERO ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION APDB INSTRUCTION NO. 124 DATA BLOCK NAMED ACPT ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION APDB INSTRUCTION NO. 124 DATA BLOCK NAMED GTKA ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION APDB INSTRUCTION NO. 124 DATA BLOCK NAMED PVECT ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION ADD INSTRUCTION NO. 124 DATA BLOCK NAMED QHHL ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION CYCT2 INSTRUCTION NO. 124 DATA BLOCK NAMED UXVF ALREADY APPEARED AS OUTPUT 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF SEQGP CARDS 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 62 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) RPS = 0.133330E+03 (INPUT) 4TH PARM = 0.628319E+01 (INPUT) OMEGA = 0.837737E+03 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) 3RD PARM = 0.200000E+01 (INPUT) OMEGA = 0.837737E+03 (INPUT) OMEGA2 = 0.167547E+04 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) OMEGA = 0.837737E+03 (INPUT) OMEGA = 0.837737E+03 (INPUT) OMEGASQR = 0.701803E+06 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = EQ (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) RPS = 0.133330E+03 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) NORPS = 0 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE CASECC RECORD 1 WORD 14 = + 1 = FREQSET 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 63 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE CASECC RECORD 1 WORD 38 = + 0 = TIMESET 0*** USER WARNING MESSAGE 4032 0NO COMPONENTS OF GRID POINTS 199 AND 205 WERE CONNECTED. 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIA2 ELEMENTS (ELEMENT TYPE 17) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) OMEGA2 = 0.167547E+04 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) CMPLX1 = ( 0.167547E+04, 0.000000E+00) (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = SUB (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) 3RD PARM = 0.000000E+00 (INPUT) OMEGASQR = 0.701803E+06 (INPUT) MOMEGASQ = -0.701803E+06 (OUTPUT) 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) MOMEGASQ = -0.701803E+06 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) CMPLX2 = (-0.701803E+06, 0.000000E+00) (OUTPUT) 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK TFPOOL MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK TFPOOL MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 64 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK M2GG MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK BASEXG MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TRAILER - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) + 1 = PDFCOLS 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 65 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT 0 C O N T E N T S O F P A R A M E T E R T A B L E KINDEX 0.000000E+00 0 ROOTS BELOW 3.002438E+06 0*** USER WARNING MESSAGE 2399 ONLY THE FIRST 8 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS. 0*** USER INFORMATION MESSAGE 2392 14 MORE ACCURATE EIGENSOLUTIONS THAN THE 4 REQUESTED HAVE BEEN FOUND. USE DIAG 16 TO DETERMINE ERROR BOUNDS 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 66 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT E I G E N V A L U E A N A L Y S I S S U M M A R Y (FEER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 18 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 1 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 17 0 REASON FOR TERMINATION . . . . . . . . . . . 0* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* NORMAL TERMINATION SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 67 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 4.722712E+05 6.872200E+02 1.093745E+02 1.033938E-04 4.882990E+01 2 2 5.415439E+06 2.327110E+03 3.703710E+02 4.557119E-05 2.467880E+02 3 3 1.384296E+07 3.720613E+03 5.921539E+02 1.995859E-05 2.762859E+02 4 4 1.949657E+07 4.415493E+03 7.027474E+02 2.122623E-05 4.138388E+02 5 5 3.029787E+07 5.504350E+03 8.760445E+02 1.573991E-05 4.768857E+02 6 6 3.766888E+07 6.137498E+03 9.768130E+02 4.759255E-06 1.792758E+02 7 7 5.996818E+07 7.743913E+03 1.232482E+03 9.164933E-07 5.496044E+01 8 8 8.176544E+07 9.042425E+03 1.439147E+03 7.987541E-07 6.531048E+01 9 9 1.141160E+08 1.068251E+04 1.700174E+03 5.939601E-08 6.778037E+00 10 10 1.504692E+08 1.226659E+04 1.952288E+03 4.392347E-08 6.609129E+00 11 11 1.712611E+08 1.308667E+04 2.082809E+03 2.342833E-08 4.012361E+00 12 12 2.271896E+08 1.507281E+04 2.398912E+03 3.318427E-08 7.539121E+00 13 13 3.011417E+08 1.735344E+04 2.761885E+03 4.353843E-07 1.311124E+02 14 14 3.870026E+08 1.967238E+04 3.130957E+03 6.384571E-08 2.470846E+01 15 15 6.169219E+08 2.483791E+04 3.953076E+03 3.488603E-08 2.152196E+01 16 16 9.248251E+08 3.041094E+04 4.840051E+03 5.998933E-08 5.547964E+01 17 17 2.213750E+09 4.705050E+04 7.488320E+03 5.799542E-09 1.283873E+01 18 18 7.633579E+09 8.737035E+04 1.390542E+04 4.605350E-10 3.515530E+00 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 68 NASTRAN TEST PROBLEM NO. T08-03-1A K = 0 MODES, OSCILLATORY AIRLOADS PRESENT 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TRAILER - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) + 5 = NMODES 0*** USER WARNING MESSAGE 3173, NO NON-ZERO MATERIAL COORDINATE SYSTEM IDS ENCOUNTERED IN MODULE CURV. STRESSES IN MATERIAL COORDINATE SYSTEM NOT COMPUTED. 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 69 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 1.409739E-01 3.443218E-01 6.296960E-02 6.674589E-02 4.528563E-02 3.216298E-02 215.4768 36.6361 217.2131 220.5782 214.9559 26.5290 0 2 G 1.489117E-01 3.542188E-01 7.325535E-02 9.300107E-02 8.057744E-03 2.820553E-02 214.9740 36.3413 217.0886 218.8844 215.2432 24.2726 0 3 G 1.553341E-01 3.626435E-01 8.048176E-02 7.778843E-02 2.944256E-02 3.319633E-02 214.6159 36.1084 216.9831 218.9455 217.2378 25.6771 0 4 G 1.618812E-01 3.714009E-01 8.750291E-02 8.082120E-02 2.651636E-02 3.362914E-02 214.2727 35.8727 216.8772 219.0310 216.2531 25.0590 0 5 G 1.685735E-01 3.806211E-01 9.422144E-02 8.082120E-02 2.845032E-02 3.526795E-02 213.9481 35.6351 216.7689 219.0310 215.9761 25.0129 0 6 G 1.764669E-01 3.920515E-01 1.008751E-01 8.082120E-02 4.274179E-02 4.673259E-02 213.6220 35.3722 216.6237 219.0310 214.4443 26.0272 0 7 G 1.273451E-01 3.198231E-01 5.352313E-02 6.674589E-02 4.076413E-02 3.076491E-02 215.6896 36.7874 217.2894 220.5782 214.6782 27.2777 0 8 G 1.147533E-01 2.967017E-01 4.441697E-02 7.596558E-02 2.427315E-02 2.430888E-02 215.9040 36.9343 217.3546 220.5369 210.5930 25.9868 0 9 G 1.038231E-01 2.757860E-01 3.570867E-02 6.649358E-02 3.699798E-02 2.127922E-02 216.1158 37.0699 217.3979 220.3653 213.7686 26.5273 0 10 G 1.078474E-01 2.809370E-01 4.264910E-02 9.281599E-02 0.0 1.980200E-02 215.7490 36.8763 217.3298 218.4610 0.0 24.4500 0 11 G 1.126879E-01 2.874460E-01 4.908726E-02 7.566970E-02 2.391572E-02 2.593035E-02 215.3681 36.6520 217.2283 218.3969 218.3412 26.5279 0 12 G 1.179624E-01 2.946161E-01 5.552683E-02 7.214122E-02 3.113975E-02 2.867242E-02 214.9859 36.4137 217.1176 218.1794 218.6721 26.6788 0 13 G 1.234313E-01 3.022221E-01 6.178304E-02 7.289735E-02 3.219351E-02 3.040184E-02 214.6068 36.1628 216.9995 217.7010 219.8573 26.6997 0 14 G 1.290777E-01 3.101881E-01 6.790202E-02 9.648219E-02 0.0 2.463665E-02 214.2350 35.9040 216.8785 218.1531 0.0 22.4786 0 15 G 1.349160E-01 3.185990E-01 7.385061E-02 7.408148E-02 3.386218E-02 3.303919E-02 213.8754 35.6396 216.7559 217.6922 219.4306 26.1494 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 70 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 16 G 1.408604E-01 3.273504E-01 7.956766E-02 7.601929E-02 3.274205E-02 3.378590E-02 213.5288 35.3713 216.6301 217.5345 219.9967 25.8763 0 17 G 1.468294E-01 3.367016E-01 8.459389E-02 9.676789E-02 0.0 2.689207E-02 213.1976 35.0920 216.4839 218.1730 0.0 20.6425 0 18 G 8.980951E-02 2.479829E-01 2.635743E-02 6.962018E-02 2.351038E-02 1.811166E-02 216.3203 37.2255 217.4482 219.5505 213.8584 27.3573 0 19 G 7.839042E-02 2.238784E-01 1.766256E-02 4.670084E-02 5.289420E-02 1.466622E-02 216.5047 37.3591 217.4213 220.8464 214.8249 27.8075 0 20 G 8.142074E-02 2.280613E-01 2.472043E-02 6.946362E-02 1.805644E-02 1.551238E-02 216.1151 37.1599 217.4106 218.4643 217.0158 26.4027 0 21 G 8.543988E-02 2.337776E-01 3.130363E-02 6.543668E-02 2.652949E-02 1.945933E-02 215.6820 36.9136 217.3255 218.3309 217.5181 26.8059 0 22 G 9.005081E-02 2.404258E-01 3.786994E-02 6.818778E-02 2.555285E-02 2.198196E-02 215.2176 36.6314 217.2073 217.6548 219.6319 26.6977 0 23 G 9.521803E-02 2.479971E-01 4.436043E-02 8.819751E-02 0.0 1.936462E-02 214.7335 36.3165 217.0637 217.9213 0.0 22.8628 0 24 G 1.008419E-01 2.563531E-01 5.076694E-02 7.189009E-02 2.771782E-02 2.627087E-02 214.2455 35.9789 216.9095 217.6009 218.6538 25.7108 0 25 G 1.068189E-01 2.654009E-01 5.702437E-02 7.037602E-02 3.340894E-02 2.932842E-02 213.7611 35.6225 216.7429 217.5178 218.4019 25.7800 0 26 G 1.130788E-01 2.751502E-01 6.293786E-02 6.917751E-02 3.859618E-02 3.260971E-02 213.2922 35.2531 216.5649 217.7816 217.3906 25.6722 0 27 G 1.195981E-01 2.859318E-01 6.814722E-02 9.248173E-02 0.0 2.443264E-02 212.8399 34.8624 216.3505 217.8709 0.0 19.5235 0 28 G 5.963291E-02 1.815231E-01 4.991157E-03 6.203572E-02 1.895454E-02 6.638766E-03 216.7093 37.5635 216.8142 219.2326 211.5034 25.8441 0 29 G 6.144460E-02 1.843234E-01 1.178518E-02 6.305342E-02 1.499990E-02 9.266251E-03 216.3640 37.3892 217.3063 218.1646 216.9704 25.7964 0 30 G 6.412289E-02 1.884129E-01 1.794361E-02 6.967437E-02 6.944365E-03 1.097000E-02 215.9281 37.1476 217.3418 216.8664 234.2898 25.5008 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 71 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 31 G 6.756056E-02 1.936493E-01 2.406277E-02 6.822289E-02 1.205447E-02 1.363054E-02 215.4199 36.8473 217.2715 217.1587 223.5628 25.1311 0 32 G 7.163098E-02 1.999640E-01 3.008534E-02 6.574264E-02 1.998281E-02 1.706306E-02 214.8642 36.4935 217.1414 217.1579 220.3394 25.3195 0 33 G 7.633606E-02 2.073369E-01 3.613271E-02 6.496813E-02 2.581019E-02 2.062253E-02 214.2728 36.0922 216.9741 217.1399 219.0250 25.3567 0 34 G 8.162520E-02 2.158366E-01 4.195549E-02 6.521007E-02 3.042405E-02 2.416537E-02 213.6697 35.6496 216.7763 217.1898 217.9769 25.2167 0 35 G 8.743999E-02 2.254305E-01 4.751993E-02 6.430490E-02 3.653469E-02 2.833984E-02 213.0703 35.1760 216.5501 217.3173 217.0968 25.2505 0 36 G 9.388030E-02 2.368524E-01 5.228898E-02 8.478022E-02 0.0 2.321361E-02 212.4879 34.6583 216.2523 217.4809 0.0 19.5914 0 37 G 4.429381E-02 1.448475E-01 2.954923E-03 6.316349E-02 0.0 5.465515E-03 216.8102 37.7445 39.8606 217.7796 0.0 28.6178 0 38 G 4.584798E-02 1.473168E-01 3.100471E-03 5.629836E-02 1.137084E-02 6.714350E-03 216.4836 37.5787 216.0797 217.4394 220.3008 27.2310 0 39 G 4.771679E-02 1.503236E-01 8.599105E-03 5.813419E-02 1.005593E-02 7.505417E-03 216.0715 37.3526 217.1568 217.0386 224.2231 25.4075 0 40 G 5.001907E-02 1.540772E-01 1.401647E-02 5.478725E-02 1.841481E-02 9.629228E-03 215.5617 37.0561 217.2729 217.1522 219.9794 24.9622 0 41 G 5.285299E-02 1.587572E-01 1.931906E-02 5.690946E-02 1.910117E-02 1.185615E-02 214.9652 36.6850 217.2135 217.0475 219.5373 24.3727 0 42 G 5.630597E-02 1.645280E-01 2.454578E-02 5.796424E-02 2.223754E-02 1.476393E-02 214.3001 36.2409 217.0717 216.9140 218.8225 24.2572 0 43 G 6.037281E-02 1.715020E-01 2.953306E-02 5.972996E-02 2.472743E-02 1.785600E-02 213.5947 35.7295 216.8718 216.8150 218.0502 24.0127 0 44 G 6.509154E-02 1.798176E-01 3.423871E-02 6.155020E-02 2.727881E-02 2.143188E-02 212.8719 35.1604 216.6193 216.7979 217.1105 23.7877 0 45 G 7.083657E-02 1.907856E-01 3.821016E-02 7.566880E-02 0.0 2.145048E-02 212.1648 34.5173 216.2525 217.0308 0.0 20.0809 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 72 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 46 G 3.243625E-02 1.137549E-01 7.496489E-03 5.196241E-02 2.007039E-03 4.308810E-03 216.8239 37.9220 38.9303 218.4542 184.7278 31.0705 0 47 G 3.347854E-02 1.155336E-01 2.300439E-03 4.569241E-02 1.232626E-02 4.528416E-03 216.5242 37.7685 40.6856 217.7169 217.6001 27.4104 0 48 G 3.472392E-02 1.177133E-01 2.419532E-03 4.432042E-02 1.736325E-02 5.046044E-03 216.1328 37.5526 215.5702 217.5612 217.9087 24.9244 0 49 G 3.617814E-02 1.202531E-01 6.973534E-03 4.483531E-02 1.958132E-02 6.296985E-03 215.6317 37.2640 217.0666 217.3660 218.0478 23.7833 0 50 G 3.798098E-02 1.234416E-01 1.138258E-02 4.707569E-02 1.935770E-02 7.958912E-03 215.0171 36.8874 217.2456 217.0441 218.5059 23.1769 0 51 G 4.024174E-02 1.274904E-01 1.568767E-02 4.951372E-02 1.955938E-02 9.966954E-03 214.2984 36.4172 217.1956 216.7870 218.3896 22.7131 0 52 G 4.302179E-02 1.325897E-01 1.973330E-02 5.161757E-02 2.134838E-02 1.250290E-02 213.5052 35.8540 217.0375 216.5721 217.7541 22.4966 0 53 G 4.642323E-02 1.390238E-01 2.343020E-02 5.366725E-02 2.378139E-02 1.577656E-02 212.6614 35.1979 216.7946 216.3756 217.0323 22.4884 0 54 G 5.094942E-02 1.483157E-01 2.642132E-02 6.534854E-02 0.0 1.762366E-02 211.8205 34.4290 216.3923 216.5831 0.0 19.4653 0 55 G 2.345225E-02 8.864103E-02 9.509845E-03 4.719145E-02 4.662631E-03 4.440300E-03 216.7946 38.1137 39.0061 218.1877 47.1358 33.1122 0 56 G 2.427430E-02 9.008216E-02 5.174092E-03 3.813737E-02 1.129917E-02 3.385675E-03 216.4977 37.9591 39.5032 217.6770 217.4963 27.8562 0 57 G 2.514366E-02 9.167644E-02 1.221278E-03 3.775352E-02 1.411293E-02 3.324326E-03 216.1149 37.7473 43.1382 217.5358 217.7972 23.9455 0 58 G 2.605923E-02 9.339634E-02 2.553567E-03 3.841766E-02 1.536540E-02 3.914920E-03 215.6195 37.4624 215.9126 217.3272 218.0379 21.6848 0 59 G 2.715379E-02 9.547602E-02 6.162683E-03 3.978544E-02 1.585769E-02 4.974842E-03 214.9955 37.0853 217.1437 217.0312 218.3163 20.7831 0 60 G 2.853921E-02 9.814913E-02 9.626591E-03 4.158643E-02 1.648874E-02 6.390624E-03 214.2398 36.5994 217.3235 216.7269 218.1539 20.3513 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 73 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 61 G 3.028321E-02 1.015973E-01 1.279141E-02 4.336257E-02 1.832740E-02 8.283806E-03 213.3770 35.9987 217.2731 216.4559 217.3029 20.2333 0 62 G 3.251233E-02 1.061162E-01 1.561078E-02 4.579321E-02 1.974745E-02 1.079021E-02 212.4298 35.2781 217.0944 216.1303 216.4853 20.2720 0 63 G 3.589271E-02 1.135733E-01 1.777449E-02 3.495433E-02 4.781978E-02 2.576351E-02 211.4697 34.3953 216.7121 223.2215 204.2586 21.4849 0 64 G 1.616191E-02 6.689528E-02 9.875251E-03 4.045856E-02 6.977478E-03 4.875024E-03 216.7439 38.3693 39.2867 217.8783 40.1378 33.8275 0 65 G 1.693184E-02 6.826196E-02 6.341878E-03 3.156775E-02 9.638430E-03 2.893551E-03 216.4107 38.1904 39.5928 217.7070 217.3410 28.6963 0 66 G 1.761606E-02 6.956619E-02 3.183633E-03 3.116041E-02 1.198465E-02 2.397203E-03 216.0129 37.9646 40.3994 217.6013 217.5232 23.4989 0 67 G 1.822550E-02 7.077491E-02 1.726606E-04 3.164009E-02 1.285305E-02 2.520339E-03 215.5071 37.6727 71.9715 217.3750 217.8754 19.4630 0 68 G 1.887239E-02 7.210463E-02 2.725986E-03 3.252472E-02 1.342267E-02 3.066231E-03 214.8677 37.2885 216.5558 217.0860 218.0554 17.6004 0 69 G 1.965223E-02 7.374447E-02 5.414617E-03 3.391481E-02 1.377477E-02 3.873032E-03 214.0791 36.7881 217.4339 216.7459 217.9333 16.7062 0 70 G 2.062487E-02 7.583347E-02 7.824461E-03 3.619023E-02 1.340943E-02 4.775009E-03 213.1543 36.1595 217.6079 216.3482 217.5016 15.6231 0 71 G 2.192290E-02 7.864597E-02 9.841262E-03 3.967812E-02 1.158772E-02 6.027214E-03 212.1193 35.3885 217.5900 215.8647 216.8533 14.9744 0 72 G 2.411254E-02 8.389719E-02 1.129362E-02 1.827941E-02 6.860358E-02 2.424114E-02 211.0640 34.4249 217.3607 224.9506 209.4821 24.7198 0 73 G 1.047796E-02 4.866381E-02 9.127954E-03 3.410854E-02 9.019978E-03 5.623217E-03 216.6648 38.7264 39.7391 217.7751 38.0584 34.2162 0 74 G 1.128896E-02 5.014804E-02 6.370065E-03 2.587675E-02 7.795533E-03 2.743756E-03 216.2436 38.4857 39.9692 217.8069 217.1861 29.6408 0 75 G 1.190207E-02 5.135076E-02 3.871050E-03 2.542130E-02 9.934309E-03 1.934172E-03 215.7950 38.2202 40.4264 217.6958 217.4191 23.8229 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 74 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 76 G 1.235661E-02 5.229200E-02 1.514748E-03 2.560394E-02 1.092756E-02 1.718369E-03 215.2578 37.9034 42.2692 217.4743 217.7137 17.4490 0 77 G 1.275330E-02 5.316687E-02 7.122235E-04 2.617826E-02 1.148115E-02 1.895948E-03 214.5866 37.4992 212.6412 217.1506 217.9831 13.5162 0 78 G 1.316778E-02 5.412599E-02 2.738732E-03 2.731810E-02 1.141290E-02 2.271652E-03 213.7583 36.9788 217.4428 216.7803 217.9198 11.3095 0 79 G 1.366392E-02 5.528556E-02 4.535617E-03 2.780261E-02 1.364030E-02 2.970543E-03 212.7638 36.3188 218.0744 216.4972 216.5697 11.3311 0 80 G 1.426569E-02 5.671747E-02 5.941836E-03 3.141459E-02 9.730224E-03 3.115006E-03 211.6358 35.5089 218.3341 215.9406 215.9306 5.6236 0 81 G 1.463873E-02 5.760890E-02 6.250774E-03 2.725566E-02 2.471318E-02 6.272464E-03 211.0571 35.0385 218.5423 217.0179 211.2031 15.9521 0 82 G 1.546131E-02 5.955666E-02 6.611346E-03 7.436207E-03 8.128863E-02 2.538104E-02 210.4662 34.4769 218.5823 225.3017 212.6311 27.9805 0 83 G 1.136366E-02 4.764863E-02 4.575885E-03 2.663984E-02 1.172162E-02 2.404302E-03 211.2508 35.5410 218.8389 216.1636 214.7283 1.2040 0 84 G 1.157248E-02 4.813218E-02 4.799887E-03 2.184885E-02 2.995792E-02 5.377316E-03 210.6322 35.0585 219.1854 217.1011 212.3602 16.5302 0 85 G 1.187953E-02 4.880645E-02 4.948673E-03 3.540910E-03 1.101523E-01 2.101127E-02 209.9759 34.5201 219.5206 358.0977 211.8706 27.3541 0 86 G 6.251048E-03 3.379210E-02 7.831351E-03 2.351846E-02 1.040538E-03 4.645948E-03 216.4916 39.2316 40.3657 217.9985 40.9012 33.6478 0 87 G 7.087155E-03 3.538833E-02 5.684020E-03 2.037687E-02 6.666910E-03 2.605153E-03 215.9196 38.8755 40.5837 218.0361 216.8688 30.2555 0 88 G 7.658521E-03 3.656546E-02 3.800235E-03 1.994490E-02 8.776160E-03 1.644545E-03 215.3892 38.5319 40.9030 217.9130 217.1004 24.3612 0 89 G 8.030691E-03 3.736844E-02 2.008176E-03 2.015318E-02 9.479970E-03 1.237318E-03 214.7906 38.1621 41.7566 217.6346 217.5279 15.7992 0 90 G 8.283633E-03 3.795952E-02 3.510470E-04 2.078017E-02 9.563639E-03 1.154743E-03 214.0633 37.7193 50.0383 217.2711 217.8390 7.5428 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 75 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 91 G 8.482917E-03 3.846526E-02 1.156777E-03 2.168062E-02 9.568807E-03 1.245769E-03 213.1627 37.1631 217.1278 216.8667 217.7460 1.3832 0 92 G 8.683319E-03 3.898814E-02 2.407038E-03 2.210480E-02 1.138087E-02 1.596102E-03 212.0671 36.4545 218.8720 216.5033 216.6322 0.9676 0 93 G 8.952613E-03 3.958777E-02 3.344655E-03 2.604447E-02 4.289154E-03 1.223383E-03 210.7804 35.5681 219.6168 215.6746 220.8570 330.9296 0 94 G 9.074759E-03 3.987316E-02 3.521744E-03 2.735412E-02 2.613009E-03 1.199321E-03 210.1148 35.0554 220.1097 215.3705 225.1612 308.8759 0 95 G 9.306718E-03 4.037769E-02 3.639118E-03 3.909531E-02 3.292284E-02 5.206130E-03 209.4272 34.4821 220.5808 215.9265 37.2889 234.3647 0 96 G 6.901601E-03 3.246736E-02 2.430817E-03 2.119560E-02 9.631631E-03 1.242236E-03 210.0719 35.5331 220.6931 216.1743 214.3309 339.0295 0 97 G 6.971538E-03 3.253343E-02 2.529395E-03 2.032267E-02 1.488708E-02 1.745277E-03 209.3250 34.9802 221.5042 216.3632 212.3540 350.8278 0 98 G 7.087641E-03 3.267226E-02 2.590977E-03 7.361520E-03 6.120526E-02 9.451956E-03 208.5336 34.3609 222.2767 227.4607 210.5309 22.5406 0 99 G 3.369296E-03 2.222574E-02 6.344413E-03 1.650702E-02 3.094731E-03 3.505907E-03 215.9814 39.9206 41.1549 218.6378 213.1143 33.0386 0 100 G 4.128193E-03 2.378240E-02 4.703071E-03 1.689799E-02 3.106543E-03 2.597169E-03 215.2223 39.3679 41.3899 218.3282 215.2421 31.1451 0 101 G 4.640281E-03 2.489810E-02 3.269956E-03 1.587644E-02 6.350882E-03 1.476554E-03 214.5977 38.8946 41.6772 218.1114 217.0394 25.1600 0 102 G 4.946823E-03 2.559255E-02 1.956418E-03 1.578685E-02 7.460117E-03 8.900511E-04 213.9221 38.4351 42.1950 217.7670 217.7027 13.2758 0 103 G 5.104473E-03 2.597373E-02 7.580150E-04 1.630121E-02 7.435632E-03 6.162241E-04 213.1007 37.9253 43.8642 217.3310 218.2023 352.3724 0 104 G 5.161937E-03 2.613079E-02 2.759779E-04 1.724176E-02 6.851801E-03 5.582423E-04 212.0640 37.3062 215.6264 216.8572 218.3193 324.1927 0 105 G 5.171585E-03 2.615022E-02 1.103711E-03 1.709148E-02 1.007223E-02 7.186370E-04 210.7512 36.5193 220.9243 216.4888 216.5333 324.8684 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 76 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 106 G 5.221650E-03 2.612806E-02 1.632948E-03 2.099065E-02 1.112853E-03 1.094310E-03 209.1599 35.4936 222.6051 215.6397 229.6934 266.2995 0 107 G 5.250941E-03 2.610359E-02 1.689959E-03 2.185527E-02 3.060159E-04 1.342705E-03 208.3190 34.8777 223.8651 215.4047 357.1020 261.1002 0 108 G 5.385858E-03 2.632178E-02 1.760098E-03 2.236982E-02 3.876847E-03 1.663487E-03 207.4737 34.1685 224.8147 217.5278 85.4110 303.4631 0 109 G 3.813792E-03 2.060384E-02 1.102422E-03 1.608230E-02 8.108968E-03 8.557059E-04 207.7829 35.3859 225.4837 216.0880 213.5478 282.3557 0 110 G 3.810974E-03 2.041010E-02 1.126254E-03 1.536947E-02 1.280793E-02 1.028228E-03 206.7677 34.7048 227.5529 216.7254 209.2680 313.8357 0 111 G 3.863281E-03 2.033172E-02 1.155158E-03 1.484949E-03 7.410964E-02 9.073327E-03 205.7289 33.9168 229.3069 307.1836 210.6447 23.8978 0 112 G 1.426826E-03 1.329648E-02 4.788423E-03 1.453477E-02 0.0 3.530449E-03 213.9195 40.8982 42.1784 218.5046 0.0 33.2023 0 113 G 2.102023E-03 1.477458E-02 3.545212E-03 1.098571E-02 8.910840E-03 1.692016E-03 213.4267 40.0030 42.5216 218.5536 217.6408 28.5053 0 114 G 2.558996E-03 1.585134E-02 2.506645E-03 1.146712E-02 7.595091E-03 1.143929E-03 212.9142 39.3108 42.8162 218.2091 217.9412 23.7142 0 115 G 2.812313E-03 1.646568E-02 1.566633E-03 1.160274E-02 7.605189E-03 5.881960E-04 212.2169 38.7094 43.1969 217.8048 218.3287 7.4415 0 116 G 2.905523E-03 1.669532E-02 7.443235E-04 1.191178E-02 7.518825E-03 3.318272E-04 211.2622 38.0968 43.6434 217.3392 218.5113 314.4318 0 117 G 2.878479E-03 1.660376E-02 7.444193E-05 1.262092E-02 6.657605E-03 5.246436E-04 209.9484 37.3886 40.0417 216.8160 218.4811 264.2733 0 118 G 2.770621E-03 1.625345E-02 3.985966E-04 1.312355E-02 7.005962E-03 8.777770E-04 208.1456 36.4905 228.4959 216.2863 217.2072 249.5671 0 119 G 2.711922E-03 1.579161E-02 6.503088E-04 1.536567E-02 1.528502E-03 1.305818E-03 205.9166 35.2650 231.7328 215.5062 218.4275 244.7368 0 120 G 2.678148E-03 1.554560E-02 6.654839E-04 1.548710E-02 2.345399E-03 1.212683E-03 204.6523 34.4883 235.2926 215.0846 217.0142 252.8244 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 77 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 121 G 2.737920E-03 1.556390E-02 7.181827E-04 1.567676E-02 2.411723E-03 1.064645E-03 203.4858 33.5436 237.0327 215.0895 206.7859 326.2167 0 122 G 1.795012E-03 1.164959E-02 4.201974E-04 1.077874E-02 9.942940E-03 1.064616E-03 202.7386 35.0916 240.5710 215.7503 213.6854 246.6546 0 123 G 1.752136E-03 1.125291E-02 4.351211E-04 9.897267E-03 1.533408E-02 7.998694E-04 200.9962 34.2117 245.9234 215.5396 212.5609 272.1305 0 124 G 1.754375E-03 1.097169E-02 4.749997E-04 1.064204E-02 1.060114E-01 9.178719E-03 199.2815 33.1121 248.5091 25.7255 210.4689 25.1545 0 125 G 2.734316E-04 6.556462E-03 3.209015E-03 1.168225E-02 1.056034E-03 3.637609E-03 196.4667 42.8136 43.9262 218.8912 43.5041 34.2597 0 126 G 8.362639E-04 8.025878E-03 2.365275E-03 8.811124E-03 6.027313E-03 1.757684E-03 207.7077 40.9872 44.4167 218.9597 217.0097 30.5996 0 127 G 1.199953E-03 9.039656E-03 1.670867E-03 8.139226E-03 7.618713E-03 7.963020E-04 208.8102 39.8533 44.7483 218.6710 217.3667 22.0004 0 128 G 1.379875E-03 9.565921E-03 1.054489E-03 7.923575E-03 8.370353E-03 2.360164E-04 208.4379 39.0144 45.0002 218.1954 217.5907 328.7723 0 129 G 1.417640E-03 9.676712E-03 5.375334E-04 7.870301E-03 8.894849E-03 4.675963E-04 207.2520 38.2552 44.4789 217.5530 217.7827 247.4243 0 130 G 1.352844E-03 9.429065E-03 1.496927E-04 8.326766E-03 7.702095E-03 8.114824E-04 205.1828 37.4291 34.2902 216.8706 217.5932 235.7327 0 131 G 1.235114E-03 8.902889E-03 1.266404E-04 8.949078E-03 5.691535E-03 1.159768E-03 202.0151 36.3915 260.2933 215.8243 218.5477 231.7561 0 132 G 1.134379E-03 8.213728E-03 2.500398E-04 9.399489E-03 4.693413E-03 1.423417E-03 197.8758 34.9270 259.9522 214.7640 216.8381 231.6656 0 133 G 1.081849E-03 7.782131E-03 2.782184E-04 9.823779E-03 3.125470E-03 1.624390E-03 195.2828 33.9390 266.8893 213.7775 219.5641 231.5306 0 134 G 1.096285E-03 7.590809E-03 3.339151E-04 1.391486E-02 1.244213E-02 1.274989E-03 193.2694 32.6114 265.4297 212.8104 31.6689 243.8859 0 135 G 6.516313E-04 5.536603E-03 2.069750E-04 5.001563E-03 1.262016E-02 1.193862E-03 188.8831 34.7972 273.4247 216.7899 210.5992 231.7094 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 78 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 136 G 6.005989E-04 5.067579E-03 2.494942E-04 3.582027E-03 1.854400E-02 1.024795E-03 184.0902 33.7515 275.7098 208.9058 217.7348 229.9785 0 137 G 5.628245E-04 4.615113E-03 2.981349E-04 1.176197E-02 9.083731E-02 3.371512E-03 178.6822 32.3415 274.7636 30.8846 211.3545 23.3409 0 138 G 3.964437E-04 1.836278E-03 1.797656E-03 8.452253E-03 1.267395E-03 3.675820E-03 52.3571 50.6294 47.6024 219.3671 43.4742 34.9977 0 139 G 1.581574E-04 3.287985E-03 1.329469E-03 5.580768E-03 6.338783E-03 1.439318E-03 161.7293 43.1579 48.1895 219.5741 217.2640 30.7906 0 140 G 3.994617E-04 4.245333E-03 9.309640E-04 4.866674E-03 7.833407E-03 4.305433E-04 194.7135 40.7119 48.5129 219.2989 217.3121 16.0856 0 141 G 5.187319E-04 4.707004E-03 5.828170E-04 4.376367E-03 9.220636E-03 2.769607E-04 197.8452 39.3976 48.4260 218.7096 217.4015 250.2319 0 142 G 5.386962E-04 4.798070E-03 2.988005E-04 3.916248E-03 1.036222E-02 6.306294E-04 196.6466 38.4129 46.0329 217.8373 217.4149 230.6479 0 143 G 4.965977E-04 4.586161E-03 9.966782E-05 3.125693E-03 1.242110E-02 7.497218E-04 192.5148 37.4536 24.4221 216.7019 217.1587 228.2998 0 144 G 4.429457E-04 4.207174E-03 9.658824E-05 2.528518E-03 1.299777E-02 6.425642E-04 186.0094 36.3134 296.1363 215.7359 215.9848 230.6303 0 145 G 3.848653E-04 3.683789E-03 1.931725E-04 1.145327E-03 1.694616E-02 6.386797E-04 176.1517 34.7536 281.0549 215.5937 213.9176 233.4429 0 146 G 3.506495E-04 3.319655E-03 2.409947E-04 4.199360E-03 0.0 1.402491E-03 168.3948 33.7183 279.3387 213.3683 0.0 222.7789 0 147 G 3.422450E-04 3.061819E-03 2.919028E-04 6.799992E-03 1.254758E-02 1.330766E-03 162.4959 32.2346 277.0616 212.1071 32.8846 226.2461 0 148 G 5.016602E-04 9.490651E-04 7.061347E-04 3.571730E-03 5.708921E-04 3.065849E-03 47.7862 204.4869 58.7097 220.9200 210.4385 35.4588 0 149 G 1.963406E-04 4.501227E-04 5.460426E-04 2.796991E-03 2.656133E-03 1.553866E-03 69.0083 58.0863 58.3246 219.7766 220.3468 32.7665 0 150 G 1.116544E-04 1.260048E-03 3.894633E-04 1.772291E-03 6.575030E-03 2.787402E-04 130.4718 42.5306 57.3451 219.8696 218.1941 16.0699 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 79 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 151 G 1.464542E-04 1.698270E-03 2.509943E-04 2.571038E-03 7.418690E-04 4.892011E-04 164.7042 39.7833 54.1764 218.6126 215.6418 28.6792 0 152 G 1.618043E-04 1.845215E-03 1.345593E-04 1.796776E-03 3.983392E-03 3.229282E-04 169.4656 38.4490 43.8913 217.8476 217.2654 229.4963 0 153 G 1.597698E-04 1.800722E-03 5.939832E-05 1.917205E-03 2.074064E-03 3.094127E-04 164.0144 37.3518 352.9669 217.0751 214.3236 228.4123 0 154 G 1.539192E-04 1.657772E-03 1.156069E-04 2.373114E-03 1.293020E-04 4.173645E-04 154.2597 35.9910 299.8503 216.1835 103.3839 227.4575 0 155 G 1.488299E-04 1.351300E-03 2.045632E-04 2.343127E-03 2.572293E-04 6.522882E-04 135.3936 33.7745 288.1223 215.3557 170.7041 223.8930 0 156 G 1.668462E-04 9.389155E-04 3.163354E-04 2.172202E-03 4.351613E-04 9.374197E-04 109.4040 29.3290 275.4534 214.3162 185.6971 222.1768 0 157 G 2.842770E-04 1.294642E-03 3.420873E-04 2.245952E-03 4.810510E-03 3.285217E-03 49.8693 212.8504 75.5510 220.3945 38.2937 36.5827 0 158 G 1.783490E-04 6.100071E-04 2.928962E-04 1.752345E-03 1.307743E-04 1.577713E-03 58.4480 209.4521 73.2702 219.8882 15.7975 34.5870 0 159 G 1.101250E-04 8.524040E-05 2.351496E-04 1.540314E-03 1.568685E-03 9.498007E-04 74.4662 167.3012 71.2613 219.8301 217.7194 33.5535 0 160 G 7.790604E-05 3.669204E-04 1.769034E-04 1.338958E-03 1.798225E-03 6.713451E-04 98.7112 44.7859 67.6113 220.4123 212.7758 34.8443 0 161 G 7.965713E-05 6.483053E-04 4.644717E-05 1.365460E-03 1.276456E-03 4.100544E-04 156.2662 40.2705 120.1293 219.2533 212.5974 33.1609 0 162 G 7.968888E-05 7.552549E-04 2.168187E-05 1.234494E-03 1.373033E-03 1.534722E-04 158.9960 39.1325 122.3313 219.0009 211.2998 28.0573 0 163 G 7.681581E-05 8.007697E-04 4.549112E-06 1.275115E-03 9.505601E-04 3.676933E-05 156.7580 38.4754 221.1769 218.8039 204.4999 1.0617 0 164 G 7.271254E-05 7.846273E-04 2.715836E-05 1.185182E-03 1.754130E-03 1.489809E-04 150.0395 37.8707 279.2070 218.6163 209.8291 226.2882 0 165 G 6.904748E-05 7.193747E-04 5.852567E-05 1.131028E-03 3.395960E-03 3.202375E-04 137.8405 37.2537 285.2594 218.9604 211.0675 221.2964 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 80 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 166 G 9.611902E-05 8.552002E-04 1.597524E-04 2.001212E-03 2.327739E-04 5.288966E-04 114.5872 35.3553 268.0626 215.7779 204.9925 223.7437 0 167 G 1.314947E-04 9.238855E-04 2.391855E-04 1.949806E-03 1.465680E-03 8.693745E-04 107.5573 32.8166 272.4175 213.6674 221.6363 223.8418 0 168 G 4.935602E-05 2.899453E-04 4.459430E-05 8.419275E-04 2.875668E-03 5.062949E-04 145.3837 41.5869 110.8108 219.4355 216.3205 34.9144 0 169 G 4.991956E-05 3.906578E-04 2.714423E-05 3.492538E-05 1.145620E-02 2.287494E-04 151.2410 39.8810 110.9174 18.7341 217.7917 32.0160 0 170 G 4.996569E-05 4.530500E-04 1.279189E-05 6.113251E-04 1.761883E-02 7.833323E-05 154.1627 39.0672 109.6462 36.6311 217.5959 23.7211 0 171 G 4.944295E-05 4.815067E-04 2.452952E-06 7.215460E-04 1.878688E-02 3.682826E-05 153.8779 38.5487 234.1474 37.2484 217.6418 9.9770 0 172 G 4.788512E-05 4.719581E-04 1.647039E-05 3.231812E-04 1.490528E-02 5.923495E-05 149.7735 38.1342 276.0104 36.0907 217.3667 235.2217 0 173 G 4.668296E-05 4.253224E-04 3.215405E-05 3.485712E-05 1.202899E-02 1.769195E-04 141.4871 37.7235 279.8673 21.8092 217.1307 223.8460 0 174 G 4.831309E-05 3.546634E-04 5.082372E-05 3.397026E-04 8.454705E-03 3.402616E-04 130.8475 37.2099 278.5164 217.7013 217.3671 220.4211 0 175 G 9.280830E-05 1.592593E-03 1.715657E-04 1.504447E-03 2.947749E-04 1.558163E-03 50.0442 215.8177 124.0393 220.9088 84.7406 37.3077 0 176 G 4.497993E-05 7.452550E-04 1.139528E-04 1.284425E-03 1.992829E-03 7.911108E-04 65.6413 215.6741 112.4810 220.8330 212.8212 35.9022 0 177 G 3.263687E-05 1.268618E-04 7.027415E-05 1.260900E-03 9.993184E-04 8.237290E-04 106.4838 210.2379 101.5242 220.8269 204.6360 36.9417 0 178 G 2.167101E-05 3.730107E-05 3.571147E-05 1.704424E-05 8.123470E-03 4.604953E-04 137.3176 204.0667 126.0443 290.6252 217.8593 35.4802 0 179 G 2.197612E-05 9.823198E-05 2.007043E-05 5.678161E-04 1.477731E-02 1.489024E-04 147.5667 41.6027 124.0850 35.5840 217.2028 33.8944 0 180 G 2.197527E-05 1.658359E-04 8.975711E-06 7.097530E-04 1.663241E-02 8.389464E-05 152.8147 39.3065 121.5333 36.2758 217.2325 31.1868 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 81 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 181 G 2.172457E-05 1.939321E-04 6.959802E-07 8.293731E-04 1.856777E-02 3.666640E-05 153.5036 38.5086 289.6260 37.1050 217.5192 22.1219 0 182 G 2.124021E-05 1.887496E-04 1.029307E-05 8.009065E-04 1.833456E-02 1.143190E-05 149.4717 37.9476 297.0735 37.9785 217.9203 344.6537 0 183 G 2.108478E-05 1.522921E-04 2.044876E-05 6.249396E-04 1.602381E-02 5.199387E-05 140.6170 37.2575 296.1013 38.2388 217.9002 227.1515 0 184 G 2.221441E-05 8.161563E-05 3.130212E-05 3.798113E-04 1.283414E-02 1.500362E-04 126.3327 35.4224 295.3775 38.7211 217.8553 221.1283 0 185 G 1.034550E-05 1.330138E-05 2.112047E-05 2.045448E-04 0.0 2.123044E-04 121.7584 200.8862 123.4717 220.9574 0.0 36.2891 0 186 G 8.197561E-06 3.225582E-05 1.256042E-05 2.433961E-04 0.0 1.116576E-04 139.5031 42.7249 120.9065 219.5891 0.0 35.1956 0 187 G 7.841784E-06 6.247910E-05 5.676299E-06 2.631861E-04 0.0 5.786210E-05 153.5389 39.4443 117.6354 218.8651 0.0 32.5699 0 188 G 8.010585E-06 7.770213E-05 5.640618E-07 2.740350E-04 0.0 1.983786E-05 158.4109 38.4652 317.4822 218.3067 0.0 21.9216 0 189 G 8.253035E-06 7.610362E-05 6.530398E-06 2.810437E-04 0.0 1.626286E-05 153.7276 37.7493 297.8224 217.8131 0.0 236.9834 0 190 G 9.008919E-06 6.026680E-05 1.267662E-05 2.774982E-04 0.0 6.308955E-05 141.4203 36.8757 295.8735 217.4062 0.0 222.2409 0 191 G 1.114106E-05 3.421670E-05 1.861667E-05 2.540949E-04 0.0 1.172684E-04 126.6995 34.8192 294.9545 216.9435 0.0 220.0040 0 192 G 1.988683E-06 7.211261E-06 4.584501E-06 1.977387E-05 0.0 6.641696E-05 106.4306 212.8482 122.5817 230.6198 0.0 37.5697 0 193 G 5.767367E-07 2.536732E-06 3.529871E-06 5.655353E-05 0.0 5.201923E-05 136.3839 49.3471 119.7478 221.1908 0.0 36.2338 0 194 G 7.095482E-07 1.025086E-05 1.737909E-06 7.739857E-05 0.0 2.666259E-05 209.9731 39.7913 115.6549 219.4056 0.0 33.0649 0 195 G 1.026738E-06 1.464439E-05 1.684345E-07 8.719569E-05 0.0 4.067780E-06 199.8002 38.4361 331.4742 218.1572 0.0 7.0271 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 82 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X D I S P L A C E M E N T V E C T O R (MAGNITUDE/PHASE) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 196 G 9.928207E-07 1.248799E-05 1.950118E-06 8.055883E-05 0.0 1.194867E-05 179.1717 37.5809 298.0511 217.1794 0.0 230.1681 0 197 G 1.720205E-06 7.519865E-06 3.574865E-06 5.663552E-05 0.0 3.460683E-05 134.4463 36.4308 295.8301 216.1415 0.0 221.6324 0 198 G 3.688624E-06 5.160496E-07 4.251539E-06 2.533447E-05 0.0 4.677251E-05 116.2169 11.5881 295.0182 214.7547 0.0 219.2293 0 199 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 200 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 201 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 202 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 203 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 204 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 205 G 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 206 G 6.458534E-05 1.148702E-03 1.427547E-04 1.450929E-03 5.521074E-04 1.213053E-03 56.3042 215.7617 118.4430 220.4941 206.1228 35.8529 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 83 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 1 -7.850000E-03 8.441191E+03 / 32.1871 4.118980E+03 / 36.2314 5.064342E+03 / 213.7046 7.850000E-03 3.230192E+03 / 38.1995 1.058827E+03 / 225.7363 5.491252E+03 / 213.1182 0 2 -1.413500E-02 7.924375E+03 / 34.0290 3.736654E+03 / 36.9618 3.312382E+03 / 213.9228 1.413500E-02 3.853108E+02 / 212.8734 2.974549E+02 / 334.0775 1.319098E+03 / 212.1628 0 3 -9.485000E-03 1.014258E+04 / 33.2645 7.636311E+02 / 40.6020 9.045567E+02 / 24.8654 9.485000E-03 5.119498E+03 / 33.0028 2.018729E+03 / 215.7773 1.120488E+03 / 41.5981 0 4 -1.690000E-02 4.611821E+03 / 32.6411 2.770548E+03 / 41.4483 2.352999E+03 / 213.7924 1.690000E-02 7.238606E+02 / 199.8624 2.776138E+03 / 221.4153 1.433081E+02 / 202.3721 0 5 -1.021500E-02 5.865805E+03 / 31.8473 6.668147E+02 / 38.4483 1.012453E+03 / 24.8696 1.021500E-02 2.995600E+03 / 35.2859 5.055988E+02 / 220.5404 1.801658E+03 / 38.0731 0 6 -1.811500E-02 3.152061E+03 / 31.7170 1.962811E+03 / 44.3654 8.016835E+02 / 212.4574 1.811500E-02 1.295764E+03 / 204.6196 3.399298E+03 / 219.2300 6.341990E+02 / 32.5924 0 7 -1.458500E-02 4.086356E+03 / 30.2111 6.459930E+02 / 44.5442 6.238795E+02 / 37.9961 1.458500E-02 9.430090E+02 / 44.7325 1.447337E+03 / 217.8905 7.099972E+02 / 218.3539 0 8 -2.220000E-02 4.744153E+02 / 349.5682 5.463571E+02 / 69.5284 1.564146E+02 / 219.6228 2.220000E-02 5.495145E+02 / 161.9952 1.646595E+03 / 223.7270 1.274530E+03 / 32.3174 0 9 -1.915000E-02 2.460781E+03 / 27.4318 6.429599E+02 / 51.1284 3.279085E+02 / 214.5117 1.915000E-02 4.912360E+02 / 63.1979 7.473456E+02 / 229.9126 1.171915E+03 / 32.3799 0 10 -2.126500E-02 1.795928E+03 / 29.4254 1.066902E+03 / 50.9622 1.183320E+02 / 21.5942 2.126500E-02 2.116956E+03 / 208.3498 1.507044E+03 / 225.8050 1.392708E+03 / 32.9566 0 11 -1.838500E-02 2.013858E+03 / 27.9456 8.234543E+02 / 44.4498 3.270869E+01 / 50.2806 1.838500E-02 4.515459E+02 / 187.7673 4.060951E+02 / 240.5676 9.807263E+02 / 31.5540 0 12 -1.698500E-02 7.536466E+02 / 22.2854 9.306414E+02 / 46.5536 2.148410E+02 / 20.8317 1.698500E-02 1.682331E+03 / 207.4718 7.704913E+02 / 231.1076 1.369852E+03 / 34.2854 0 13 -1.370000E-02 1.395587E+03 / 27.9579 1.117745E+03 / 38.1318 1.308336E+02 / 216.4164 1.370000E-02 7.868623E+02 / 202.6374 1.291920E+02 / 306.0221 9.231991E+02 / 33.3092 0 14 -8.365000E-03 2.486163E+02 / 346.2885 1.097805E+03 / 36.0325 5.164753E+02 / 29.2337 8.365000E-03 1.173097E+03 / 204.5474 1.489208E+02 / 241.4218 7.153237E+02 / 37.9677 0 15 -4.115000E-03 2.440828E+03 / 29.4152 2.292597E+03 / 32.4685 7.551898E+02 / 211.5722 4.115000E-03 2.349616E+03 / 209.1185 4.883111E+02 / 209.8178 1.129718E+03 / 32.2763 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 84 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 16 -9.850000E-03 1.071771E+04 / 33.5788 6.254196E+03 / 36.1842 7.146840E+03 / 214.1435 9.850000E-03 3.267255E+03 / 36.3526 8.814428E+02 / 231.4007 8.075038E+03 / 214.0884 0 17 -1.775000E-02 8.611290E+03 / 33.4448 7.382196E+03 / 36.8927 4.878739E+03 / 214.3861 1.775000E-02 8.667794E+02 / 43.6399 1.369471E+03 / 230.3698 2.388887E+03 / 213.0736 0 18 -1.195000E-02 1.319241E+04 / 33.7464 1.217942E+03 / 38.1356 9.547849E+02 / 22.7606 1.195000E-02 7.499366E+03 / 34.2340 2.542001E+03 / 215.5682 2.215832E+03 / 39.1880 0 19 -2.125000E-02 6.520386E+03 / 32.6662 6.041119E+03 / 38.4059 2.694859E+03 / 214.1921 2.125000E-02 1.358758E+03 / 204.5911 5.362954E+03 / 218.9286 9.364470E+02 / 214.1555 0 20 -1.743500E-02 1.250804E+04 / 32.2266 3.293686E+03 / 35.8036 1.227952E+03 / 213.0401 1.743500E-02 1.865912E+03 / 202.4175 3.030151E+03 / 216.0097 2.012346E+03 / 214.8656 0 21 -2.371500E-02 7.393927E+03 / 32.1084 3.109779E+03 / 41.0810 8.678301E+02 / 213.2395 2.371500E-02 1.807902E+03 / 204.9591 4.749409E+03 / 218.4143 6.828359E+02 / 29.3024 0 22 -2.923500E-02 3.846730E+03 / 27.5996 3.213275E+03 / 42.6681 1.869517E+03 / 214.6290 2.923500E-02 2.354234E+03 / 201.4273 4.899519E+03 / 219.5262 1.862896E+03 / 33.0579 0 23 -2.706500E-02 5.067217E+03 / 30.0387 2.499807E+03 / 43.4684 8.516657E+02 / 216.7769 2.706500E-02 1.798394E+03 / 200.4521 4.207440E+03 / 219.4547 2.434038E+03 / 33.5447 0 24 -3.016500E-02 3.281004E+03 / 27.4123 2.624838E+03 / 44.6275 6.987540E+02 / 215.3258 3.016500E-02 3.576103E+03 / 206.8292 4.720021E+03 / 219.6887 2.601855E+03 / 33.0960 0 25 -2.790000E-02 4.233333E+03 / 29.8541 2.263005E+03 / 45.1343 3.396744E+02 / 217.0664 2.790000E-02 2.410309E+03 / 204.8595 3.781521E+03 / 220.3865 2.331177E+03 / 33.0868 0 26 -2.831500E-02 2.584457E+03 / 26.0366 2.418028E+03 / 44.1647 2.962192E+01 / 273.1570 2.831500E-02 4.196858E+03 / 208.4009 4.162271E+03 / 219.6900 3.091358E+03 / 33.5368 0 27 -2.615000E-02 3.593418E+03 / 32.0355 2.213760E+03 / 44.5525 2.189963E+01 / 41.1003 2.615000E-02 3.209555E+03 / 210.4263 2.285553E+03 / 224.9576 1.945909E+03 / 33.7217 0 28 -2.438500E-02 4.560236E+02 / 341.6663 1.154951E+03 / 50.2089 4.598073E+02 / 217.5215 2.438500E-02 7.209423E+02 / 178.8378 1.587408E+03 / 226.7544 2.098433E+03 / 35.1752 0 29 -2.146500E-02 1.415482E+03 / 23.2185 2.988263E+03 / 38.8233 3.902757E+02 / 28.7364 2.146500E-02 3.104933E+03 / 208.8082 1.089665E+03 / 231.7949 2.301715E+03 / 34.5708 0 30 -1.695000E-02 1.354341E+03 / 27.2064 2.154692E+03 / 39.1637 7.036326E+02 / 214.0444 1.695000E-02 1.527137E+03 / 207.2160 3.349512E+02 / 340.3042 4.918119E+02 / 41.3790 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 85 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 31 -1.011500E-02 7.523649E+02 / 15.8433 3.499931E+03 / 33.9986 3.928033E+02 / 28.8703 1.011500E-02 1.893605E+03 / 207.5637 7.602772E+02 / 28.0350 6.565723E+02 / 42.5319 0 32 -4.815000E-03 1.175208E+03 / 29.2928 3.548584E+03 / 34.0166 1.555592E+03 / 214.9281 4.815000E-03 3.947515E+02 / 200.1231 2.499474E+03 / 32.6117 1.428747E+03 / 212.1439 0 33 -1.181500E-02 1.093999E+04 / 33.3811 4.310949E+03 / 36.4199 6.872691E+03 / 214.9344 1.181500E-02 2.150745E+03 / 39.6495 5.817592E+03 / 216.8326 8.628128E+03 / 214.2097 0 34 -2.136500E-02 8.331118E+03 / 33.1309 9.147564E+03 / 36.7206 5.500366E+03 / 214.3337 2.136500E-02 1.365542E+03 / 41.3947 1.867031E+03 / 225.6938 4.373526E+03 / 214.1219 0 35 -1.988500E-02 1.074993E+04 / 32.5790 8.020700E+03 / 35.6539 9.937382E+02 / 214.2702 1.988500E-02 2.921515E+03 / 40.8069 3.565877E+03 / 216.9983 2.625981E+03 / 214.1268 0 36 -3.130000E-02 6.295395E+03 / 31.6457 6.677911E+03 / 38.9427 3.757389E+03 / 214.3582 3.130000E-02 2.466884E+03 / 207.0095 5.101611E+03 / 220.4220 8.564124E+02 / 214.9534 0 37 -2.931500E-02 9.026279E+03 / 31.6727 4.950395E+03 / 38.6822 1.995359E+03 / 214.8953 2.931500E-02 2.130739E+03 / 202.1059 6.117357E+03 / 217.6193 1.135722E+03 / 33.3657 0 38 -3.580000E-02 5.574731E+03 / 30.1057 5.534965E+03 / 40.5775 2.019167E+03 / 214.4446 3.580000E-02 5.001218E+03 / 209.1034 7.263046E+03 / 218.8987 2.251684E+03 / 33.3177 0 39 -3.353500E-02 8.031530E+03 / 30.7724 4.351389E+03 / 40.6672 1.139229E+03 / 215.5482 3.353500E-02 4.062366E+03 / 206.4629 7.047252E+03 / 217.8469 2.640735E+03 / 33.5163 0 40 -3.700000E-02 4.993312E+03 / 28.8754 4.819715E+03 / 41.6100 9.969614E+02 / 214.3282 3.700000E-02 6.675024E+03 / 209.7569 8.321726E+03 / 218.2559 4.001356E+03 / 33.2573 0 41 -3.461500E-02 6.009805E+03 / 30.3672 3.706578E+03 / 42.4722 7.997674E+02 / 214.1041 3.461500E-02 4.984129E+03 / 208.6887 6.785584E+03 / 218.5826 3.700041E+03 / 33.3155 0 42 -3.455000E-02 3.902993E+03 / 27.2115 3.427216E+03 / 43.3736 4.821194E+02 / 215.6313 3.455000E-02 4.663378E+03 / 207.5207 6.859535E+03 / 218.6500 4.114332E+03 / 33.6925 0 43 -3.425000E-02 3.622740E+03 / 27.1073 5.342335E+03 / 40.1027 4.954211E+01 / 231.9266 3.425000E-02 6.133701E+03 / 209.6320 6.408142E+03 / 219.4800 4.365522E+03 / 33.4431 0 44 -3.028500E-02 3.356474E+03 / 27.3402 3.921790E+03 / 41.0905 8.569904E+02 / 213.6004 3.028500E-02 4.613028E+03 / 208.7518 4.660060E+03 / 220.4437 2.662746E+03 / 34.4053 0 45 -2.640000E-02 2.704121E+03 / 26.2812 5.485271E+03 / 38.0701 1.598715E+02 / 31.9518 2.640000E-02 4.847922E+03 / 209.6303 3.063857E+03 / 223.0867 3.099976E+03 / 34.0482 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 86 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 46 -2.110000E-02 2.415085E+03 / 28.3961 4.913765E+03 / 37.6587 1.846174E+03 / 213.5381 2.110000E-02 3.446130E+03 / 209.9819 1.141457E+03 / 235.8822 2.569359E+02 / 49.4768 0 47 -1.250000E-02 2.496377E+03 / 26.8778 6.506515E+03 / 34.3574 1.108440E+02 / 15.7653 1.250000E-02 3.450194E+03 / 209.3497 7.097237E+02 / 22.1770 3.395964E+02 / 55.2165 0 48 -6.035000E-03 1.943443E+03 / 29.7521 6.817070E+03 / 34.3782 3.104377E+03 / 214.9727 6.035000E-03 7.415161E+02 / 203.8138 4.219764E+03 / 32.6839 3.069007E+03 / 213.1328 0 49 -1.390000E-02 7.601138E+03 / 34.0833 7.566644E+03 / 36.2712 8.291438E+03 / 214.7803 1.390000E-02 2.363566E+03 / 35.8392 3.051575E+03 / 220.3764 8.951260E+03 / 214.8415 0 50 -2.365000E-02 1.226344E+04 / 32.9549 7.360263E+03 / 35.9212 1.832779E+03 / 214.4166 2.365000E-02 2.718903E+03 / 41.6664 3.506702E+03 / 217.6348 2.687010E+03 / 213.5090 0 51 -2.510000E-02 7.072380E+03 / 33.5658 1.246070E+04 / 36.5205 4.680991E+03 / 214.4315 2.510000E-02 9.887053E+02 / 41.3649 1.750687E+03 / 228.2868 4.162850E+03 / 214.1610 0 52 -3.696500E-02 6.330760E+03 / 32.0139 8.444618E+03 / 38.3666 3.449307E+03 / 214.2466 3.696500E-02 3.094808E+03 / 209.2404 8.115540E+03 / 218.7231 9.791413E+02 / 214.4186 0 53 -3.501500E-02 9.225163E+03 / 31.6903 5.513414E+03 / 39.0220 2.674248E+03 / 214.3716 3.501500E-02 2.830427E+03 / 205.6729 7.532707E+03 / 217.5023 6.356377E+02 / 216.6071 0 54 -3.945000E-02 7.561784E+03 / 31.2351 6.426438E+03 / 38.8847 9.259717E+02 / 214.3668 3.945000E-02 4.742671E+03 / 208.9865 7.732503E+03 / 217.8480 2.653450E+03 / 33.2312 0 55 -4.388500E-02 6.131274E+03 / 30.1777 6.934621E+03 / 40.0820 2.248282E+03 / 213.6370 4.388500E-02 6.198280E+03 / 209.9297 1.118961E+04 / 217.6483 2.540509E+03 / 32.6254 0 56 -4.221500E-02 6.731875E+03 / 29.8446 5.976869E+03 / 39.8612 5.102069E+02 / 214.8595 4.221500E-02 6.827102E+03 / 209.4549 9.616972E+03 / 217.4708 4.392853E+03 / 33.3531 0 57 -4.443500E-02 5.487999E+03 / 28.9838 7.025173E+03 / 40.0977 9.618286E+02 / 212.2121 4.443500E-02 7.478695E+03 / 210.0896 1.108713E+04 / 217.7952 4.412338E+03 / 32.7495 0 58 -4.148500E-02 6.023374E+03 / 28.9683 5.885819E+03 / 40.2704 5.391486E+02 / 211.6894 4.148500E-02 7.874232E+03 / 209.8127 9.879584E+03 / 217.6347 4.764956E+03 / 33.2865 0 59 -4.070000E-02 4.707449E+03 / 27.9900 7.093685E+03 / 39.4303 2.017724E+02 / 201.8764 4.070000E-02 7.553548E+03 / 210.0385 9.225537E+03 / 218.3680 5.088948E+03 / 32.8580 0 60 -3.636500E-02 4.892711E+03 / 28.3853 6.395511E+03 / 39.1386 1.590550E+03 / 212.3869 3.636500E-02 7.465411E+03 / 210.0865 7.631979E+03 / 218.6727 3.289325E+03 / 33.5010 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 87 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 61 -3.138500E-02 3.900396E+03 / 27.6944 7.549923E+03 / 37.6012 2.509247E+02 / 205.0703 3.138500E-02 6.289243E+03 / 209.8903 4.991663E+03 / 220.7759 3.799170E+03 / 33.1675 0 62 -2.538500E-02 3.865953E+03 / 28.6446 7.840034E+03 / 36.7037 2.783951E+03 / 213.0927 2.538500E-02 4.878408E+03 / 209.9834 2.203020E+03 / 228.0938 2.488785E+02 / 40.7030 0 63 -1.491500E-02 4.339413E+03 / 29.3558 9.016161E+03 / 34.3491 2.239928E+02 / 217.8987 1.491500E-02 5.011419E+03 / 210.0736 5.496237E+02 / 11.7739 1.175381E+02 / 160.0241 0 64 -7.335000E-03 3.356381E+03 / 30.7113 1.037251E+04 / 34.3260 4.763066E+03 / 214.7291 7.335000E-03 1.115797E+03 / 205.2223 5.999521E+03 / 32.6386 4.871838E+03 / 213.6458 0 65 -1.593500E-02 6.126268E+03 / 34.3775 7.859914E+03 / 36.1295 8.612636E+03 / 214.8646 1.593500E-02 2.210565E+03 / 35.9376 7.632366E+02 / 231.2780 8.691083E+03 / 214.8384 0 66 -2.340000E-02 9.932749E+03 / 34.4508 1.049757E+04 / 35.8251 2.981155E+03 / 214.3213 2.340000E-02 2.449928E+03 / 35.6367 9.651000E+02 / 22.1584 2.455892E+03 / 213.9427 0 67 -3.653500E-02 5.806763E+03 / 32.8260 9.138611E+03 / 37.2456 5.944823E+03 / 214.5308 3.653500E-02 9.567668E+02 / 203.7854 6.827640E+03 / 218.3583 3.587044E+03 / 214.2868 0 68 -3.853500E-02 6.045699E+03 / 31.8865 9.181733E+03 / 36.8335 2.233357E+03 / 215.0944 3.853500E-02 6.940032E+02 / 192.5321 6.025238E+03 / 218.3590 7.681262E+01 / 46.1100 0 69 -4.598500E-02 5.833540E+03 / 31.6490 9.340987E+03 / 38.0855 3.747719E+03 / 213.9948 4.598500E-02 4.137876E+03 / 210.3438 1.042806E+04 / 217.6315 3.958091E+02 / 217.6384 0 70 -4.586500E-02 6.723624E+03 / 31.0282 8.321512E+03 / 38.0035 7.694939E+02 / 215.0741 4.586500E-02 3.984731E+03 / 208.2389 9.392051E+03 / 217.4578 2.972148E+03 / 33.6856 0 71 -5.070000E-02 5.921333E+03 / 30.6990 9.017840E+03 / 38.9532 1.765918E+03 / 212.5056 5.070000E-02 6.607599E+03 / 210.8196 1.311037E+04 / 217.2464 2.409746E+03 / 32.2738 0 72 -4.913500E-02 7.165165E+03 / 30.1736 7.798465E+03 / 38.9489 3.205873E+02 / 209.8423 4.913500E-02 7.361164E+03 / 209.9720 1.242486E+04 / 216.8962 4.478955E+03 / 33.0823 0 73 -5.138500E-02 5.871742E+03 / 29.9221 8.954615E+03 / 39.2508 6.949011E+02 / 207.4737 5.138500E-02 8.099918E+03 / 210.7947 1.404558E+04 / 217.2133 4.454238E+03 / 32.2879 0 74 -4.835000E-02 6.681686E+03 / 29.3493 7.944053E+03 / 39.0885 6.688103E+02 / 209.1033 4.835000E-02 9.097430E+03 / 210.3540 1.322256E+04 / 216.9183 4.893201E+03 / 32.7237 0 75 -4.720000E-02 5.357878E+03 / 29.0058 9.032924E+03 / 38.7954 2.343531E+02 / 190.1587 4.720000E-02 8.280116E+03 / 210.4691 1.222672E+04 / 217.6134 5.375678E+03 / 32.2080 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 88 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 76 -4.250000E-02 6.011642E+03 / 28.8626 8.881670E+03 / 38.0680 1.786593E+03 / 211.1020 4.250000E-02 8.598636E+03 / 210.2700 1.027299E+04 / 217.8196 3.696470E+03 / 32.4104 0 77 -3.650000E-02 4.623908E+03 / 28.4698 9.428612E+03 / 37.2827 4.517226E+02 / 202.6423 3.650000E-02 7.167199E+03 / 210.0468 7.330615E+03 / 219.1382 4.200805E+03 / 32.1761 0 78 -2.971500E-02 5.202816E+03 / 29.1715 1.065642E+04 / 36.1006 3.603570E+03 / 212.3951 2.971500E-02 5.914465E+03 / 209.8715 3.322125E+03 / 224.4649 2.842112E+02 / 28.4245 0 79 -1.741500E-02 5.467437E+03 / 29.9551 1.133635E+04 / 34.2372 7.018596E+02 / 213.5284 1.741500E-02 6.084466E+03 / 210.1911 2.901150E+02 / 289.0753 2.271032E+02 / 200.6257 0 80 -8.615000E-03 4.936007E+03 / 31.3937 1.394840E+04 / 34.0605 6.222784E+03 / 214.1987 8.615000E-03 1.294379E+03 / 205.2382 7.940401E+03 / 32.3975 6.260513E+03 / 213.6639 0 81 -1.818500E-02 5.163802E+03 / 34.6813 1.032507E+04 / 35.9011 7.084485E+03 / 215.0394 1.818500E-02 1.931063E+03 / 35.4943 2.083762E+03 / 29.4300 7.068671E+03 / 214.9750 0 82 -2.668500E-02 7.301572E+03 / 34.3606 1.010353E+04 / 35.7922 3.132854E+03 / 214.7417 2.668500E-02 2.063582E+03 / 36.3287 2.119420E+02 / 294.1663 2.464242E+03 / 214.0231 0 83 -4.155000E-02 4.794209E+03 / 33.2623 1.098936E+04 / 36.8483 4.897466E+03 / 214.6215 4.155000E-02 8.906163E+02 / 207.8532 5.586606E+03 / 219.2873 3.101361E+03 / 214.5263 0 84 -4.393500E-02 6.086292E+03 / 32.5751 9.642267E+03 / 36.8421 2.138063E+03 / 214.7196 4.393500E-02 1.099596E+03 / 203.3240 6.931985E+03 / 217.9262 4.887629E+02 / 35.8329 0 85 -5.238500E-02 5.227781E+03 / 32.2761 1.090049E+04 / 37.6008 2.946048E+03 / 213.8137 5.238500E-02 3.932830E+03 / 211.6121 1.124046E+04 / 217.5506 3.088399E+02 / 219.8463 0 86 -5.243500E-02 6.175925E+03 / 31.3708 9.490649E+03 / 37.6695 1.169431E+03 / 213.8695 5.243500E-02 5.155376E+03 / 210.5973 1.250664E+04 / 216.7863 2.222967E+03 / 33.1080 0 87 -5.790000E-02 5.697288E+03 / 31.4632 1.092597E+04 / 38.1835 1.495100E+03 / 211.6209 5.790000E-02 6.379559E+03 / 211.6532 1.474355E+04 / 217.0338 2.064596E+03 / 31.5734 0 88 -5.628500E-02 6.726955E+03 / 30.5993 9.717727E+03 / 38.1679 5.120619E+02 / 208.5176 5.628500E-02 8.072428E+03 / 210.9654 1.569674E+04 / 216.4191 3.824240E+03 / 32.4405 0 89 -5.878500E-02 5.862750E+03 / 30.6941 1.070321E+04 / 38.5419 6.199327E+02 / 203.6490 5.878500E-02 7.885966E+03 / 211.3311 1.627507E+04 / 216.8186 4.088693E+03 / 31.6881 0 90 -5.545000E-02 6.776788E+03 / 29.8830 1.002798E+04 / 38.2192 6.961672E+02 / 205.1359 5.545000E-02 9.355181E+03 / 210.7558 1.612290E+04 / 216.4312 4.651574E+03 / 31.9691 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 89 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 91 -5.408500E-02 5.569436E+03 / 29.8730 1.043602E+04 / 38.3537 3.494105E+02 / 188.4841 5.408500E-02 8.279813E+03 / 210.8578 1.497657E+04 / 216.9563 5.121688E+03 / 31.4644 0 92 -4.886500E-02 6.498944E+03 / 29.3855 1.108838E+04 / 37.3984 1.937304E+03 / 209.4583 4.886500E-02 8.865265E+03 / 210.3782 1.269661E+04 / 217.1202 3.857170E+03 / 31.3407 0 93 -4.195000E-02 5.155856E+03 / 29.3457 1.079887E+04 / 37.0536 6.532449E+02 / 200.4114 4.195000E-02 7.453337E+03 / 210.2777 9.703519E+03 / 217.9999 4.210285E+03 / 30.9860 0 94 -3.428500E-02 6.073782E+03 / 29.6307 1.340953E+04 / 35.6647 3.911650E+03 / 211.5195 3.428500E-02 6.104816E+03 / 209.6984 4.155169E+03 / 223.1183 5.214190E+02 / 23.0519 0 95 -2.008500E-02 6.577402E+03 / 30.5052 1.285997E+04 / 34.1390 1.042422E+03 / 211.3937 2.008500E-02 7.256839E+03 / 210.5513 9.828759E+02 / 233.9135 4.730587E+02 / 214.6717 0 96 -1.000000E-02 6.005877E+03 / 31.8526 1.718296E+04 / 33.9734 6.824002E+03 / 213.5007 1.000000E-02 8.758325E+02 / 201.8613 1.055016E+04 / 31.8538 6.703223E+03 / 213.5327 0 97 -2.095000E-02 3.898294E+03 / 34.9159 1.097985E+04 / 35.8997 5.742428E+03 / 215.1092 2.095000E-02 1.085420E+03 / 35.1522 2.379597E+03 / 30.6365 5.741597E+03 / 215.0386 0 98 -3.053500E-02 5.162793E+03 / 34.3821 9.757511E+03 / 35.8974 2.923809E+03 / 214.8551 3.053500E-02 6.335641E+02 / 38.2503 1.093493E+03 / 226.3129 2.384892E+03 / 214.0901 0 99 -4.768500E-02 3.758178E+03 / 33.5888 1.214020E+04 / 36.6197 3.913777E+03 / 214.5910 4.768500E-02 1.227084E+03 / 212.0076 5.572953E+03 / 219.1530 2.545943E+03 / 214.6044 0 100 -5.020000E-02 4.594878E+03 / 32.6426 1.022587E+04 / 36.7869 1.835022E+03 / 214.4930 5.020000E-02 1.745005E+03 / 209.5733 7.829105E+03 / 217.5757 1.700928E+02 / 34.8764 0 101 -6.016500E-02 4.481687E+03 / 32.7291 1.222593E+04 / 37.2100 2.326266E+03 / 213.5634 6.016500E-02 3.883610E+03 / 212.6468 1.154754E+04 / 217.4324 2.755737E+02 / 222.2779 0 102 -5.996500E-02 5.304792E+03 / 31.6885 1.037907E+04 / 37.4083 8.440599E+02 / 212.5823 5.996500E-02 4.933473E+03 / 211.3779 1.335379E+04 / 216.6348 1.870859E+03 / 32.5225 0 103 -6.661500E-02 5.210033E+03 / 32.0456 1.202877E+04 / 37.7572 1.143746E+03 / 210.2899 6.661500E-02 6.033257E+03 / 212.3385 1.576040E+04 / 216.8420 1.750926E+03 / 30.7476 0 104 -6.450000E-02 5.980033E+03 / 30.9034 1.062627E+04 / 37.8072 4.459293E+02 / 205.0866 6.450000E-02 7.508271E+03 / 211.3854 1.686072E+04 / 216.2402 3.223536E+03 / 31.7478 0 105 -6.775000E-02 5.552334E+03 / 31.3300 1.179218E+04 / 38.0618 4.906478E+02 / 198.8307 6.775000E-02 7.359048E+03 / 211.8611 1.769297E+04 / 216.5629 3.463323E+03 / 30.8978 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 90 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 106 -6.365000E-02 6.430600E+03 / 30.2243 1.120136E+04 / 37.6860 7.437271E+02 / 203.6027 6.365000E-02 8.759096E+03 / 211.0043 1.765073E+04 / 216.1371 4.125042E+03 / 31.1421 0 107 -6.236500E-02 5.406562E+03 / 30.7140 1.151725E+04 / 37.9002 3.657529E+02 / 183.9937 6.236500E-02 7.619479E+03 / 211.3063 1.668567E+04 / 216.5562 4.543549E+03 / 30.5889 0 108 -5.613500E-02 6.619042E+03 / 29.7731 1.264860E+04 / 36.7890 2.002807E+03 / 208.0451 5.613500E-02 8.329481E+03 / 210.3845 1.433997E+04 / 216.5591 3.619524E+03 / 30.0800 0 109 -4.838500E-02 4.827689E+03 / 30.1247 1.153553E+04 / 36.8532 8.300734E+02 / 198.8537 4.838500E-02 7.500061E+03 / 210.9702 1.140518E+04 / 217.2437 3.839535E+03 / 29.6169 0 110 -3.941500E-02 6.523325E+03 / 29.8794 1.500403E+04 / 35.2560 4.006040E+03 / 210.3550 3.941500E-02 5.828196E+03 / 209.4073 5.374525E+03 / 220.6630 5.645438E+02 / 15.6301 0 111 -2.315000E-02 7.037726E+03 / 31.1270 1.337032E+04 / 34.1771 1.078688E+03 / 207.2590 2.315000E-02 5.808309E+03 / 210.5697 9.523746E+02 / 238.4581 2.038835E+02 / 242.5464 0 112 -1.148500E-02 6.766155E+03 / 31.8055 1.886217E+04 / 33.6764 6.936494E+03 / 212.8446 1.148500E-02 8.337487E+02 / 200.9745 1.201995E+04 / 31.6064 6.279546E+03 / 213.4794 0 113 -2.395000E-02 2.669270E+03 / 35.1914 1.128717E+04 / 35.8713 4.378413E+03 / 215.0867 2.395000E-02 5.261847E+02 / 34.3929 2.393379E+03 / 31.0020 4.328880E+03 / 215.0237 0 114 -3.500000E-02 3.429768E+03 / 34.3276 9.614147E+03 / 35.9632 2.316059E+03 / 214.8199 3.500000E-02 3.459233E+02 / 211.5067 1.702796E+03 / 222.3115 1.907024E+03 / 214.1745 0 115 -5.453500E-02 2.648490E+03 / 33.9191 1.247891E+04 / 36.5103 3.016290E+03 / 214.4989 5.453500E-02 1.503207E+03 / 213.8473 5.811810E+03 / 218.7927 1.895403E+03 / 214.7566 0 116 -5.763500E-02 3.207596E+03 / 32.6679 1.048173E+04 / 36.7545 1.496250E+03 / 214.1649 5.763500E-02 2.274974E+03 / 212.0979 8.474870E+03 / 217.3242 1.386486E+01 / 267.2962 0 117 -6.895000E-02 3.569566E+03 / 33.2425 1.276704E+04 / 37.0442 1.807164E+03 / 213.1378 6.895000E-02 3.727567E+03 / 213.4438 1.158584E+04 / 217.3340 1.783503E+02 / 229.3389 0 118 -6.896500E-02 4.181250E+03 / 31.9108 1.079134E+04 / 37.3026 6.413480E+02 / 210.7521 6.896500E-02 4.823656E+03 / 212.1928 1.365229E+04 / 216.5496 1.423594E+03 / 31.4860 0 119 -7.650000E-02 4.501899E+03 / 32.6311 1.251062E+04 / 37.5315 8.887977E+02 / 208.7073 7.650000E-02 5.535603E+03 / 212.9032 1.578133E+04 / 216.7661 1.416963E+03 / 29.4762 0 120 -7.435000E-02 5.153173E+03 / 31.2435 1.103045E+04 / 37.6150 3.263046E+02 / 198.4769 7.435000E-02 6.780117E+03 / 211.7964 1.705648E+04 / 216.1636 2.624272E+03 / 30.8501 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 91 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 121 -7.808500E-02 5.029658E+03 / 31.9713 1.211206E+04 / 37.8418 3.803500E+02 / 192.4910 7.808500E-02 6.631742E+03 / 212.2888 1.793877E+04 / 216.4401 2.812177E+03 / 29.9200 0 122 -7.360000E-02 5.757242E+03 / 30.5505 1.162593E+04 / 37.4446 6.568848E+02 / 200.4036 7.360000E-02 7.692171E+03 / 211.2231 1.789608E+04 / 216.0018 3.374277E+03 / 30.0744 0 123 -7.231500E-02 4.963450E+03 / 31.2904 1.180270E+04 / 37.6408 3.077655E+02 / 175.5713 7.231500E-02 6.955295E+03 / 211.7128 1.735813E+04 / 216.3109 3.562057E+03 / 29.3374 0 124 -6.518500E-02 5.950745E+03 / 30.0216 1.287460E+04 / 36.5189 1.774376E+03 / 206.4463 6.518500E-02 7.146607E+03 / 210.4814 1.514777E+04 / 216.2350 3.160084E+03 / 28.7733 0 125 -5.650000E-02 4.780440E+03 / 30.9465 1.203272E+04 / 36.4723 6.030455E+02 / 191.8527 5.650000E-02 5.855917E+03 / 211.1285 1.235751E+04 / 216.6785 3.626501E+03 / 29.0340 0 126 -4.593500E-02 6.097327E+03 / 30.0023 1.578615E+04 / 34.8193 3.668741E+03 / 209.3445 4.593500E-02 5.417806E+03 / 209.6241 6.092243E+03 / 218.9980 1.029264E+03 / 20.2958 0 127 -3.496500E-02 3.741653E+03 / 30.6738 1.469390E+04 / 34.3836 1.329851E+03 / 204.3401 3.496500E-02 3.334066E+03 / 209.7686 1.506015E+03 / 232.6874 2.065061E+03 / 26.9632 0 128 -2.115000E-02 8.076161E+03 / 30.9510 1.503632E+04 / 33.5990 6.423481E+03 / 211.9364 2.115000E-02 5.071761E+03 / 209.7029 2.570267E+03 / 25.6229 4.836338E+03 / 214.2399 0 129 -9.685000E-03 2.477684E+03 / 31.3596 1.878292E+04 / 32.9624 3.964862E+03 / 212.1426 9.685000E-03 2.254687E+03 / 209.4133 1.284130E+04 / 31.7769 2.979145E+03 / 214.4089 0 130 -2.705000E-02 1.687805E+03 / 35.5177 1.113553E+04 / 35.8451 3.148422E+03 / 215.0266 2.705000E-02 9.061145E+01 / 223.3165 1.923813E+03 / 30.2684 2.919316E+03 / 215.0784 0 131 -3.953500E-02 1.854317E+03 / 34.3797 9.349675E+03 / 36.0377 1.666877E+03 / 214.6877 3.953500E-02 9.083077E+02 / 214.7079 2.113217E+03 / 220.9262 1.173278E+03 / 214.2607 0 132 -6.136500E-02 1.897910E+03 / 34.5938 1.282399E+04 / 36.4626 2.203415E+03 / 214.2520 6.136500E-02 1.847963E+03 / 214.9739 6.339113E+03 / 218.3935 1.140955E+03 / 215.2170 0 133 -6.531500E-02 2.085609E+03 / 33.0026 1.074344E+04 / 36.7901 1.034597E+03 / 213.5293 6.531500E-02 2.598922E+03 / 213.4526 8.808487E+03 / 217.2247 1.284916E+02 / 24.0880 0 134 -7.791500E-02 2.863810E+03 / 34.0192 1.317544E+04 / 36.9787 1.418981E+03 / 212.6358 7.791500E-02 3.652176E+03 / 214.2531 1.186965E+04 / 217.2397 6.061322E+01 / 291.4807 0 135 -7.845000E-02 3.206622E+03 / 32.4395 1.112667E+04 / 37.2895 5.073662E+02 / 208.7486 7.845000E-02 4.719057E+03 / 212.9796 1.380952E+04 / 216.5406 1.133594E+03 / 30.0335 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 92 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 136 -8.688500E-02 3.803610E+03 / 33.3817 1.290934E+04 / 37.4372 8.094533E+02 / 207.9579 8.688500E-02 5.068406E+03 / 213.5465 1.580480E+04 / 216.7333 1.177880E+03 / 27.9845 0 137 -8.491500E-02 4.342101E+03 / 31.8430 1.132798E+04 / 37.5577 3.378540E+02 / 196.8348 8.491500E-02 6.209999E+03 / 212.3440 1.697833E+04 / 216.1723 2.076468E+03 / 29.6411 0 138 -8.926500E-02 4.358066E+03 / 32.5638 1.226514E+04 / 37.7071 4.916527E+02 / 197.3278 8.926500E-02 5.901054E+03 / 212.7415 1.778026E+04 / 216.3878 2.286631E+03 / 28.7930 0 139 -8.458500E-02 5.037595E+03 / 31.0542 1.166304E+04 / 37.3539 6.776332E+02 / 199.7255 8.458500E-02 6.678796E+03 / 211.5360 1.760419E+04 / 215.9888 2.689660E+03 / 28.8119 0 140 -8.323500E-02 4.606569E+03 / 31.7760 1.174935E+04 / 37.4690 3.877638E+02 / 183.9628 8.323500E-02 6.175800E+03 / 211.9180 1.716246E+04 / 216.1656 2.918978E+03 / 28.3988 0 141 -7.545000E-02 5.148887E+03 / 30.2360 1.252320E+04 / 36.4074 1.517242E+03 / 204.8410 7.545000E-02 5.888623E+03 / 210.5285 1.451063E+04 / 216.1569 2.457619E+03 / 27.1601 0 142 -5.375000E-02 5.698023E+03 / 30.3992 1.627188E+04 / 34.5788 2.768893E+03 / 208.1281 5.375000E-02 3.206236E+03 / 208.5987 6.413266E+03 / 218.4138 1.916530E+03 / 25.0473 0 143 -6.556500E-02 4.706698E+03 / 35.5669 9.789952E+03 / 34.3599 1.959551E+03 / 46.8794 6.556500E-02 4.749221E+03 / 216.0559 1.176598E+04 / 214.0958 2.760099E+03 / 224.2223 0 144 -6.191500E-02 4.128971E+03 / 29.9625 1.569595E+04 / 34.6633 1.732199E+03 / 206.6125 6.191500E-02 3.238610E+03 / 209.0181 7.441900E+03 / 217.9382 1.369082E+03 / 22.5286 0 145 -3.196500E-02 4.753544E+03 / 30.2086 1.657144E+04 / 33.6495 5.291231E+03 / 210.6938 3.196500E-02 1.811135E+03 / 205.4062 3.988954E+03 / 26.9414 1.662975E+03 / 219.4352 0 146 -4.018500E-02 3.603475E+03 / 30.4258 1.317469E+04 / 34.3607 2.548664E+03 / 208.5569 4.018500E-02 4.076113E+03 / 209.9992 4.560450E+03 / 218.5936 1.191708E+03 / 22.3803 0 147 -3.560000E-02 3.721455E+03 / 30.1791 1.636217E+04 / 33.4350 4.580848E+03 / 210.2868 3.560000E-02 7.238444E+02 / 197.4064 2.273583E+03 / 23.6203 1.892909E+03 / 217.6045 0 148 -4.551500E-02 2.400804E+03 / 30.2656 1.080014E+04 / 35.0322 1.667696E+03 / 206.5385 4.551500E-02 2.020395E+03 / 210.1407 3.504901E+03 / 221.4237 3.560894E+02 / 4.2163 0 149 -9.850000E-03 6.171798E+03 / 30.9472 1.991307E+04 / 32.3796 7.656119E+03 / 211.6905 9.850000E-03 3.967549E+03 / 209.9311 1.736825E+04 / 32.0236 5.065887E+03 / 213.2976 0 150 -1.831500E-02 3.533686E+03 / 30.5844 1.451571E+04 / 33.1040 4.119108E+03 / 211.2482 1.831500E-02 2.856911E+03 / 209.3640 6.634648E+03 / 30.7791 1.293158E+03 / 217.6642 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 93 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 151 -1.056500E-02 3.598951E+03 / 31.2792 2.094760E+04 / 32.4500 5.763094E+03 / 211.4964 1.056500E-02 1.578921E+03 / 34.3658 1.304951E+04 / 31.5817 5.221229E+03 / 212.7335 0 152 -1.963500E-02 3.215944E+03 / 30.5349 1.365729E+04 / 32.9431 2.323084E+03 / 210.3711 1.963500E-02 2.562512E+03 / 209.9998 5.946622E+03 / 30.6404 2.027028E+03 / 214.4629 0 153 -3.113500E-02 9.585841E+02 / 36.5815 9.926098E+03 / 35.8594 1.831663E+03 / 214.9335 3.113500E-02 3.934312E+02 / 218.7663 1.542169E+03 / 29.4942 1.317653E+03 / 215.0664 0 154 -4.501500E-02 6.123023E+02 / 34.9003 8.719637E+03 / 36.2068 9.076083E+02 / 214.2750 4.501500E-02 1.354467E+03 / 215.4206 2.362505E+03 / 220.2369 1.523909E+02 / 214.0042 0 155 -7.036500E-02 1.237606E+03 / 35.5570 1.221448E+04 / 36.5186 1.411955E+03 / 213.5853 7.036500E-02 1.882468E+03 / 215.7452 6.303799E+03 / 218.2671 4.635536E+02 / 218.2429 0 156 -7.423500E-02 1.139622E+03 / 33.5957 1.046843E+04 / 36.9187 6.605120E+02 / 212.3064 7.423500E-02 2.787736E+03 / 214.2350 8.828722E+03 / 217.1803 4.771994E+02 / 29.7817 0 157 -8.970000E-02 2.108262E+03 / 34.7413 1.307421E+04 / 37.0382 1.018604E+03 / 211.2555 8.970000E-02 3.280226E+03 / 214.9832 1.166945E+04 / 217.2454 1.779738E+02 / 7.9607 0 158 -8.943500E-02 2.371480E+03 / 33.1193 1.115551E+04 / 37.3691 4.402160E+02 / 206.7845 8.943500E-02 4.487382E+03 / 213.5863 1.363633E+04 / 216.5638 1.095318E+03 / 29.1457 0 159 -1.002350E-01 3.025464E+03 / 34.0303 1.306523E+04 / 37.4453 7.876797E+02 / 207.3081 1.002350E-01 4.443505E+03 / 214.2720 1.558431E+04 / 216.7629 9.803447E+02 / 25.7151 0 160 -9.715000E-02 3.568998E+03 / 32.4129 1.157166E+04 / 37.5258 5.587068E+02 / 203.2677 9.715000E-02 5.627929E+03 / 212.8464 1.673266E+04 / 216.2173 1.757967E+03 / 28.4867 0 161 -1.024150E-01 3.661673E+03 / 33.1572 1.251467E+04 / 37.6409 7.205159E+02 / 202.3097 1.024150E-01 5.131424E+03 / 213.3996 1.752454E+04 / 216.4110 1.852629E+03 / 27.3380 0 162 -9.650000E-02 4.371781E+03 / 31.5473 1.203791E+04 / 37.2472 9.986796E+02 / 204.2449 9.650000E-02 5.818566E+03 / 211.9138 1.728087E+04 / 216.0470 2.212178E+03 / 27.6590 0 163 -9.400000E-02 4.012770E+03 / 32.1545 1.164455E+04 / 37.3815 7.841309E+02 / 199.5836 9.400000E-02 5.386623E+03 / 212.4270 1.672805E+04 / 216.1566 2.271262E+03 / 26.8708 0 164 -8.541500E-02 4.572339E+03 / 30.6588 1.239586E+04 / 36.3802 1.776527E+03 / 206.4914 8.541500E-02 4.797151E+03 / 210.6750 1.397802E+04 / 216.2514 1.927055E+03 / 25.4359 0 165 -6.340000E-02 3.828854E+03 / 29.9122 1.474504E+04 / 34.6475 2.270695E+03 / 207.5767 6.340000E-02 2.734729E+03 / 208.8072 5.917354E+03 / 219.2518 1.270062E+03 / 21.9759 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 94 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 166 -7.311500E-02 3.784175E+03 / 35.4589 1.007648E+04 / 34.4222 1.574543E+03 / 48.9974 7.311500E-02 4.922346E+03 / 215.2153 1.115639E+04 / 214.2950 2.568312E+03 / 223.8904 0 167 -6.426500E-02 3.751542E+03 / 30.6432 1.483138E+04 / 34.7474 1.655571E+03 / 206.7004 6.426500E-02 2.971130E+03 / 210.5919 6.690480E+03 / 218.9796 7.586291E+02 / 14.8494 0 168 -3.868500E-02 3.822063E+03 / 30.8460 1.560675E+04 / 33.7265 3.304708E+03 / 210.2853 3.868500E-02 2.683364E+02 / 49.5948 2.331937E+03 / 21.1063 7.748220E+02 / 223.7034 0 169 -4.710000E-02 2.234194E+03 / 29.1947 1.251223E+04 / 34.0446 1.301524E+03 / 205.7415 4.710000E-02 3.409412E+03 / 209.7951 4.034272E+03 / 219.1577 1.204283E+03 / 23.6585 0 170 -3.800000E-02 2.412521E+03 / 30.6866 1.517993E+04 / 33.6494 2.927118E+03 / 209.7511 3.800000E-02 4.199832E+02 / 199.2678 2.448356E+03 / 21.4293 1.848670E+03 / 216.5861 0 171 -4.545000E-02 2.364292E+03 / 30.2113 1.054895E+04 / 34.7058 1.262456E+03 / 205.4202 4.545000E-02 2.396009E+03 / 210.8469 2.817643E+03 / 223.7361 1.517828E+02 / 316.3384 0 172 -1.118500E-02 3.324958E+03 / 31.1403 1.690776E+04 / 32.5776 4.380383E+03 / 211.6356 1.118500E-02 1.262567E+03 / 34.0067 1.392985E+04 / 31.4918 3.377305E+03 / 212.9241 0 173 -2.031500E-02 2.252119E+03 / 30.2947 1.269197E+04 / 32.9435 1.764008E+03 / 210.2864 2.031500E-02 2.743579E+03 / 210.2214 4.435849E+03 / 29.9006 6.185028E+02 / 219.7022 0 174 -1.118500E-02 2.260559E+03 / 31.9124 1.745648E+04 / 32.5226 3.096638E+03 / 211.3161 1.118500E-02 1.465725E+03 / 32.1351 1.171838E+04 / 31.1958 3.333892E+03 / 212.7547 0 175 -2.045000E-02 2.785191E+03 / 30.7856 1.250778E+04 / 32.9128 8.668199E+02 / 207.9918 2.045000E-02 2.972524E+03 / 210.8983 5.463417E+03 / 29.7727 1.230908E+03 / 215.0143 0 176 -3.633500E-02 3.081297E+01 / 77.8224 7.799847E+03 / 35.9053 1.934826E+02 / 207.0725 3.633500E-02 9.603728E+02 / 216.3766 1.285973E+03 / 29.4000 2.891718E+01 / 277.1426 0 177 -5.266500E-02 3.777014E+02 / 214.1124 6.975322E+03 / 36.2714 2.558733E+02 / 41.5168 5.266500E-02 1.304568E+03 / 215.4544 1.943186E+03 / 219.9732 7.040396E+02 / 32.9887 0 178 -8.328500E-02 5.652504E+02 / 38.6156 1.137370E+04 / 36.7642 3.374849E+02 / 203.6779 8.328500E-02 1.606205E+03 / 216.4558 6.081197E+03 / 218.4307 2.618023E+02 / 229.9315 0 179 -8.710000E-02 1.141658E+02 / 28.6862 9.278849E+03 / 37.1322 8.271019E+01 / 78.6009 8.710000E-02 2.464778E+03 / 214.3864 8.236882E+03 / 217.1267 6.981000E+02 / 28.7985 0 180 -1.063350E-01 1.406953E+03 / 35.8659 1.268765E+04 / 37.2408 4.927037E+02 / 203.8782 1.063350E-01 2.622917E+03 / 215.7697 1.125616E+04 / 217.3751 1.170294E+02 / 309.3976 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 95 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 181 -1.050650E-01 1.307705E+03 / 32.8790 1.047151E+04 / 37.5431 1.924310E+02 / 186.9277 1.050650E-01 3.825574E+03 / 213.8988 1.290670E+04 / 216.6012 9.485369E+02 / 26.5540 0 182 -1.178350E-01 2.331396E+03 / 34.7468 1.303344E+04 / 37.5656 5.912711E+02 / 201.9544 1.178350E-01 3.615879E+03 / 215.0323 1.505922E+04 / 216.8758 5.596689E+02 / 15.5876 0 183 -1.132650E-01 2.567098E+03 / 32.5296 1.143582E+04 / 37.5874 5.768185E+02 / 200.8276 1.132650E-01 4.708215E+03 / 213.2992 1.601872E+04 / 216.3243 1.349640E+03 / 25.7466 0 184 -1.177650E-01 3.085134E+03 / 33.7889 1.277715E+04 / 37.6313 7.512237E+02 / 200.9950 1.177650E-01 4.235681E+03 / 214.1051 1.703348E+04 / 216.5163 1.087023E+03 / 21.0292 0 185 -1.100000E-01 3.614136E+03 / 31.9636 1.237364E+04 / 37.1700 1.166562E+03 / 204.7059 1.100000E-01 4.898886E+03 / 212.5568 1.685994E+04 / 216.1785 1.588759E+03 / 24.4969 0 186 -1.038150E-01 3.592118E+03 / 32.7114 1.189961E+04 / 37.2725 9.430812E+02 / 200.9904 1.038150E-01 4.176830E+03 / 212.8942 1.614229E+04 / 216.2519 1.363659E+03 / 21.6537 0 187 -9.373500E-02 4.065912E+03 / 31.1332 1.300945E+04 / 36.2805 1.904782E+03 / 206.7109 9.373500E-02 3.981731E+03 / 211.3997 1.393988E+04 / 216.3782 1.357165E+03 / 21.6869 0 188 -6.316500E-02 3.469514E+03 / 30.8394 1.443736E+04 / 34.7089 2.084554E+03 / 207.7248 6.316500E-02 2.512270E+03 / 211.0721 5.802183E+03 / 220.1624 6.414445E+02 / 11.9294 0 189 -7.606500E-02 3.453258E+03 / 35.5863 1.014738E+04 / 34.4151 1.539863E+03 / 47.7843 7.606500E-02 5.035171E+03 / 215.3609 1.017071E+04 / 214.3822 2.562511E+03 / 223.4498 0 190 -6.413500E-02 2.860191E+03 / 31.6809 1.322433E+04 / 34.7709 1.506429E+03 / 205.4977 6.413500E-02 2.627259E+03 / 211.8871 5.371700E+03 / 220.8117 2.660947E+02 / 294.3512 0 191 -3.686500E-02 3.337136E+03 / 31.0773 1.488330E+04 / 33.7380 2.497902E+03 / 209.9662 3.686500E-02 5.377372E+01 / 177.7844 2.456846E+03 / 19.7661 8.321624E+02 / 223.0129 0 192 -4.400000E-02 2.483438E+03 / 30.5138 1.163890E+04 / 33.8673 8.321831E+02 / 203.7171 4.400000E-02 3.596803E+03 / 210.5007 3.552411E+03 / 220.0842 8.884083E+02 / 19.6939 0 193 -3.593500E-02 2.149934E+03 / 31.2313 1.380118E+04 / 33.4200 2.110408E+03 / 209.0105 3.593500E-02 4.347838E+02 / 205.1169 2.454908E+03 / 20.7075 1.590481E+03 / 217.7258 0 194 -4.316500E-02 3.023932E+03 / 30.9940 1.012800E+04 / 34.1939 1.127532E+03 / 204.4344 4.316500E-02 1.863990E+03 / 211.1723 1.970046E+03 / 228.8186 4.259359E+02 / 236.2653 0 195 -1.111500E-02 2.155429E+03 / 30.1551 1.434020E+04 / 32.6181 2.545330E+03 / 211.3423 1.111500E-02 8.944280E+02 / 35.4320 1.286900E+04 / 31.0753 1.930059E+03 / 213.8232 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 96 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 196 -2.008500E-02 2.377777E+03 / 31.3704 1.208643E+04 / 32.8407 8.743015E+02 / 208.6459 2.008500E-02 3.086751E+03 / 211.0604 4.098708E+03 / 28.8337 1.669961E+02 / 357.9717 0 197 -1.056500E-02 1.298885E+03 / 31.6135 1.559269E+04 / 32.2088 1.494132E+03 / 211.1366 1.056500E-02 1.488354E+03 / 31.8535 1.057523E+04 / 30.8528 1.908979E+03 / 212.8842 0 198 -1.928500E-02 3.389363E+03 / 31.2416 1.120897E+04 / 32.6504 2.438343E+02 / 196.4127 1.928500E-02 2.278572E+03 / 210.8267 5.116298E+03 / 28.9770 2.266611E+02 / 232.4465 0 199 -3.683500E-02 2.415285E+02 / 43.6818 7.937610E+03 / 36.0629 1.123180E+03 / 36.8206 3.683500E-02 1.136448E+03 / 217.0729 1.268047E+03 / 27.9021 9.360301E+02 / 33.2088 0 200 -6.151500E-02 7.493767E+01 / 55.3212 7.293752E+03 / 36.6120 4.532816E+02 / 42.6727 6.151500E-02 6.810559E+02 / 216.6893 2.224081E+03 / 220.4227 9.808544E+01 / 3.6119 0 201 -9.163500E-02 1.204549E+02 / 206.3239 1.013507E+04 / 36.8697 6.607876E+02 / 41.4682 9.163500E-02 1.200620E+03 / 215.8025 5.635529E+03 / 218.3149 5.602901E+02 / 26.0742 0 202 -1.068850E-01 2.118396E+02 / 44.2744 9.856168E+03 / 37.4534 1.300438E+02 / 90.3741 1.068850E-01 1.368811E+03 / 216.2731 8.759236E+03 / 217.4095 1.100653E+02 / 283.3571 0 203 -1.177650E-01 6.087371E+02 / 34.6789 1.093525E+04 / 37.3731 2.954222E+02 / 55.5449 1.177650E-01 2.122811E+03 / 214.8753 1.035328E+04 / 217.1025 6.644716E+02 / 22.5230 0 204 -1.289850E-01 1.060859E+03 / 36.5501 1.120594E+04 / 37.7948 2.749579E+02 / 184.9059 1.289850E-01 2.472962E+03 / 215.8828 1.328369E+04 / 216.8691 3.403226E+02 / 5.7262 0 205 -1.303150E-01 1.561938E+03 / 33.2314 1.127055E+04 / 37.5892 2.218633E+02 / 175.0237 1.303150E-01 2.948259E+03 / 214.0040 1.358687E+04 / 216.5803 8.910079E+02 / 21.0364 0 206 -1.369650E-01 2.071742E+03 / 35.3183 1.234506E+04 / 37.7278 4.452814E+02 / 191.6344 1.369650E-01 3.400836E+03 / 215.4702 1.618854E+04 / 216.5917 6.846114E+02 / 13.4425 0 207 -1.289850E-01 2.350919E+03 / 31.9745 1.127467E+04 / 37.4172 8.161726E+02 / 200.9214 1.289850E-01 3.299804E+03 / 212.7533 1.495753E+04 / 216.2537 9.538589E+02 / 17.7600 0 208 -1.282650E-01 2.973004E+03 / 34.8547 1.334861E+04 / 37.2388 5.723595E+02 / 192.0309 1.282650E-01 3.833451E+03 / 214.9561 1.686232E+04 / 216.4823 7.866241E+02 / 10.3443 0 209 -1.108650E-01 3.122453E+03 / 31.1252 1.101291E+04 / 36.7778 1.617394E+03 / 205.5210 1.108650E-01 3.242465E+03 / 211.4105 1.393281E+04 / 216.1268 5.368113E+02 / 0.1394 0 210 -1.027500E-01 3.333944E+03 / 34.3159 1.375531E+04 / 36.2810 6.541851E+02 / 190.8161 1.027500E-01 3.402519E+03 / 214.1221 1.385772E+04 / 216.7279 4.390554E+02 / 340.9642 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 97 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 211 -6.345000E-02 2.537121E+03 / 31.7781 1.272336E+04 / 34.6809 1.967563E+03 / 206.8888 6.345000E-02 2.368233E+03 / 212.2562 5.056435E+03 / 221.1755 2.796527E+02 / 332.1529 0 212 -7.735000E-02 3.269950E+03 / 37.1776 1.031306E+04 / 34.1736 1.729291E+03 / 45.0748 7.735000E-02 5.212800E+03 / 216.0507 8.660255E+03 / 214.7252 2.808880E+03 / 222.2233 0 213 -6.310000E-02 2.499391E+03 / 33.9159 1.341064E+04 / 34.6938 1.151623E+03 / 200.5527 6.310000E-02 1.951533E+03 / 213.9729 6.001064E+03 / 220.5872 8.005211E+02 / 234.8074 0 214 -4.248500E-02 3.401001E+03 / 30.6462 1.051917E+04 / 33.8231 1.930735E+03 / 208.9252 4.248500E-02 2.269847E+03 / 210.8888 2.424111E+03 / 225.0167 5.934650E+02 / 232.5129 0 215 -3.450000E-02 2.094880E+03 / 32.3975 1.317799E+04 / 33.3302 1.041345E+03 / 205.9837 3.450000E-02 7.637109E+02 / 210.1945 1.762370E+03 / 14.8549 4.162855E+02 / 3.6105 0 216 -4.121500E-02 1.871055E+03 / 32.2508 9.691613E+03 / 33.9959 2.093754E+03 / 207.2153 4.121500E-02 3.288481E+03 / 211.8189 2.749454E+03 / 224.7825 1.358955E+03 / 221.1442 0 217 -3.326500E-02 2.282467E+03 / 31.7934 1.210348E+04 / 33.3949 6.387054E+02 / 198.7400 3.326500E-02 5.830032E+02 / 213.4754 1.232674E+03 / 2.9813 5.098946E+02 / 235.8056 0 218 -1.853500E-02 3.134955E+03 / 30.7063 1.042640E+04 / 32.4436 1.676035E+03 / 210.5428 1.853500E-02 2.552766E+03 / 211.1505 4.390944E+03 / 27.7874 1.033292E+03 / 217.7044 0 219 -9.615000E-03 1.207091E+03 / 32.3065 1.367611E+04 / 31.9104 4.891776E+02 / 210.0728 9.615000E-03 1.206335E+03 / 31.9007 9.369984E+03 / 30.2306 3.473540E+02 / 17.6297 0 220 -1.763500E-02 1.706996E+03 / 31.2712 9.542279E+03 / 32.3212 1.281762E+03 / 208.3239 1.763500E-02 3.074638E+03 / 211.4231 2.719238E+03 / 24.5994 1.102613E+03 / 217.0727 0 221 -9.015000E-03 2.281657E+03 / 31.7362 1.010459E+04 / 31.7722 1.666667E+02 / 41.1831 9.015000E-03 3.898980E+02 / 213.3857 8.189645E+03 / 29.4114 2.355273E+02 / 231.4607 0 222 -4.071500E-02 9.190844E+02 / 37.3467 7.855723E+03 / 36.0745 2.116670E+03 / 36.0591 4.071500E-02 2.870320E+02 / 222.3557 7.948152E+02 / 22.8882 1.485587E+03 / 33.1652 0 223 -6.780000E-02 1.151193E+02 / 46.5593 7.056183E+03 / 36.9006 1.150018E+03 / 39.0369 6.780000E-02 2.481424E+02 / 29.9595 2.727667E+03 / 219.6553 1.919903E+02 / 12.7024 0 224 -1.038500E-01 4.803262E+02 / 40.2216 1.041301E+04 / 37.1578 1.393034E+03 / 39.1650 1.038500E-01 7.712668E+02 / 218.4463 6.839697E+03 / 217.9888 6.082030E+02 / 23.6497 0 225 -1.179850E-01 3.968472E+02 / 44.2844 1.005869E+04 / 37.8620 6.897236E+02 / 46.5389 1.179850E-01 5.867724E+02 / 221.6357 9.496096E+03 / 217.4866 1.840177E+02 / 260.3740 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 98 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 226 -1.322350E-01 1.168305E+03 / 37.7676 1.163323E+04 / 37.7505 6.774652E+02 / 46.4036 1.322350E-01 1.877037E+03 / 216.8582 1.170299E+04 / 217.1104 5.293636E+02 / 15.8317 0 227 -1.405850E-01 1.877567E+03 / 38.3132 1.208623E+04 / 38.1294 3.413869E+02 / 63.3775 1.405850E-01 2.517596E+03 / 218.3086 1.418735E+04 / 217.0722 1.977954E+02 / 298.4863 0 228 -1.439850E-01 2.122568E+03 / 36.4737 1.233145E+04 / 37.9071 2.352307E+02 / 82.9540 1.439850E-01 2.889578E+03 / 216.0815 1.456833E+04 / 216.7329 3.580252E+02 / 351.1915 0 229 -1.466150E-01 3.114623E+03 / 37.3205 1.375913E+04 / 37.8686 3.553326E+02 / 67.5007 1.466150E-01 3.816061E+03 / 217.6346 1.697784E+04 / 216.8725 3.975153E+02 / 261.8416 0 230 -1.388850E-01 2.729219E+03 / 35.2450 1.263631E+04 / 37.5412 4.113395E+02 / 181.3172 1.388850E-01 3.363586E+03 / 214.9202 1.550180E+04 / 216.5345 3.682760E+02 / 272.7582 0 231 -1.338650E-01 4.520523E+03 / 37.0245 1.548731E+04 / 37.0973 5.039209E+02 / 60.8204 1.338650E-01 5.056289E+03 / 216.7277 1.785154E+04 / 216.7743 8.625652E+02 / 239.1974 0 232 -1.151350E-01 3.108684E+03 / 34.5764 1.235857E+04 / 36.6398 8.549279E+02 / 194.7677 1.151350E-01 3.737856E+03 / 214.0248 1.405911E+04 / 216.5615 9.929131E+02 / 233.7829 0 233 -1.043500E-01 4.755496E+03 / 37.0808 1.583060E+04 / 35.8819 5.276626E+02 / 64.1610 1.043500E-01 5.017286E+03 / 215.5195 1.531236E+04 / 216.6588 1.404161E+03 / 228.5741 0 234 -6.283500E-02 2.525822E+03 / 34.6138 1.308656E+04 / 34.5529 1.411799E+03 / 202.4321 6.283500E-02 2.279160E+03 / 214.6350 6.529693E+03 / 219.6188 7.228845E+02 / 235.1116 0 235 -7.788500E-02 4.095076E+03 / 37.8996 1.048571E+04 / 33.7030 2.808420E+03 / 39.5940 7.788500E-02 5.795262E+03 / 216.7908 7.852710E+03 / 215.2525 3.738598E+03 / 219.7706 0 236 -6.345000E-02 3.025756E+03 / 34.7120 1.377069E+04 / 33.5994 2.397845E+02 / 128.8393 6.345000E-02 2.131930E+03 / 214.5959 8.249765E+03 / 216.7931 1.743241E+03 / 221.3090 0 237 -4.055000E-02 1.844966E+03 / 30.7635 9.486398E+03 / 33.4038 1.370240E+03 / 204.5990 4.055000E-02 2.539945E+03 / 211.5014 3.191111E+03 / 221.3765 8.895297E+02 / 227.7636 0 238 -3.320000E-02 1.698322E+03 / 33.8758 1.159990E+04 / 32.7639 3.910400E+02 / 187.0925 3.320000E-02 9.768156E+02 / 214.0217 1.090486E+03 / 239.5310 3.668819E+02 / 253.3431 0 239 -4.105000E-02 1.759112E+03 / 35.1935 9.431058E+03 / 33.3339 7.940283E+02 / 195.4120 4.105000E-02 3.011132E+03 / 213.2582 4.472648E+03 / 218.9118 1.553504E+03 / 220.9878 0 240 -3.370000E-02 2.751654E+03 / 32.9202 1.045934E+04 / 31.6263 2.191852E+02 / 71.0247 3.370000E-02 1.422685E+03 / 214.3311 2.396141E+03 / 219.3712 1.056058E+03 / 221.8148 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 99 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 241 -1.730000E-02 2.401021E+03 / 30.5374 8.518021E+03 / 31.7270 9.750741E+02 / 206.4031 1.730000E-02 3.337996E+03 / 211.0349 1.716124E+03 / 21.0155 2.287553E+02 / 249.2084 0 242 -9.085000E-03 7.791777E+02 / 33.6836 9.529131E+03 / 31.1195 1.416476E+02 / 198.1655 9.085000E-03 3.939183E+02 / 27.1830 4.129392E+03 / 27.4926 4.278712E+02 / 17.1954 0 243 -1.763500E-02 1.292239E+03 / 32.0278 7.198313E+03 / 31.2714 3.294609E+02 / 190.2431 1.763500E-02 2.319092E+03 / 211.4214 3.271869E+02 / 332.6060 9.178815E+02 / 219.7666 0 244 -9.250000E-03 1.390873E+03 / 30.7519 5.708117E+03 / 29.8056 1.112999E+02 / 47.8096 9.250000E-03 3.623214E+02 / 211.8061 3.262947E+03 / 28.0390 4.669147E+02 / 219.8520 0 245 -4.235000E-02 1.414963E+03 / 37.6847 7.740583E+03 / 36.6346 2.647617E+03 / 35.9040 4.235000E-02 1.974425E+02 / 234.2775 9.496640E+02 / 227.6920 1.907853E+03 / 33.0413 0 246 -7.188500E-02 1.692193E+02 / 51.9264 7.114268E+03 / 37.7099 1.009594E+03 / 40.2991 7.188500E-02 8.036186E+02 / 31.0923 3.599970E+03 / 219.5571 4.701697E+02 / 25.1147 0 247 -1.114650E-01 1.076231E+03 / 40.6096 1.106682E+04 / 37.8662 1.747196E+03 / 39.1789 1.114650E-01 7.193808E+02 / 223.7691 8.930958E+03 / 217.9853 8.023596E+02 / 24.4955 0 248 -1.278850E-01 9.719245E+02 / 43.6640 1.007716E+04 / 38.8426 8.031321E+02 / 46.8288 1.278850E-01 5.589287E+02 / 231.4204 9.893523E+03 / 218.0611 1.468752E+02 / 328.5255 0 249 -1.427500E-01 2.047124E+03 / 39.6135 1.211460E+04 / 38.5254 1.039699E+03 / 44.1130 1.427500E-01 2.090076E+03 / 219.8452 1.250734E+04 / 217.4146 3.134345E+02 / 355.6668 0 250 -1.571350E-01 2.675372E+03 / 39.0640 1.269544E+04 / 38.8292 8.712573E+02 / 46.6133 1.571350E-01 3.021391E+03 / 220.6899 1.443294E+04 / 217.6038 6.275575E+02 / 235.3651 0 251 -1.576000E-01 3.827952E+03 / 38.4004 1.419837E+04 / 38.4005 8.673701E+02 / 48.3903 1.576000E-01 3.977026E+03 / 218.3869 1.583669E+04 / 217.1353 6.984929E+02 / 238.4616 0 252 -1.720000E-01 1.239010E+03 / 36.8707 1.283771E+04 / 38.0463 6.982412E+02 / 46.1697 1.720000E-01 1.554609E+03 / 220.9811 1.496075E+04 / 217.1882 8.573954E+02 / 235.6734 0 253 -1.560000E-01 4.439110E+03 / 37.4551 1.332633E+04 / 37.5226 3.680307E+02 / 69.6167 1.560000E-01 4.684227E+03 / 216.9384 1.486001E+04 / 216.9384 1.084934E+03 / 231.3398 0 254 -1.681500E-01 4.131587E+03 / 37.8671 1.327877E+04 / 36.7260 7.977147E+02 / 44.3684 1.681500E-01 4.200932E+03 / 216.6526 1.433716E+04 / 216.9875 1.261989E+03 / 231.1271 0 255 -1.352350E-01 4.169431E+03 / 36.9049 1.143562E+04 / 35.8322 3.836753E+02 / 81.0892 1.352350E-01 4.687780E+03 / 215.5315 1.165127E+04 / 217.2496 1.848952E+03 / 223.2580 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 100 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 256 -1.438150E-01 2.809430E+03 / 34.6295 1.001674E+04 / 34.7911 2.738601E+02 / 84.0233 1.438150E-01 2.483315E+03 / 213.5230 9.227578E+03 / 216.3109 1.167887E+03 / 223.1862 0 257 -9.850000E-02 1.804668E+03 / 34.9984 7.514080E+03 / 34.0758 2.782499E+02 / 113.4684 9.850000E-02 2.425515E+03 / 212.4676 6.315385E+03 / 216.5151 1.914164E+03 / 219.7057 0 258 -8.988500E-02 1.003224E+03 / 31.7557 5.350240E+03 / 31.9784 1.787844E+02 / 145.8204 8.988500E-02 5.693558E+02 / 210.7048 2.983353E+03 / 215.7222 1.131326E+03 / 218.4013 0 259 -4.748500E-02 2.862865E+02 / 39.8188 3.787545E+03 / 31.6396 2.071127E+02 / 164.7744 4.748500E-02 1.025898E+03 / 211.1373 1.632133E+03 / 217.5315 1.259013E+03 / 217.2854 0 260 -3.178500E-02 3.838471E+02 / 24.3134 2.629471E+03 / 29.3112 1.159614E+02 / 171.8624 3.178500E-02 5.292044E+01 / 172.4364 2.379053E+02 / 12.5457 5.651021E+02 / 215.4750 0 261 -9.615000E-03 2.224563E+02 / 207.6472 2.415459E+03 / 28.9352 4.545537E+02 / 205.3154 9.615000E-03 6.701588E+02 / 208.9688 1.066656E+03 / 27.5764 4.643337E+02 / 213.3103 0 262 -4.780000E-02 5.189542E+02 / 43.5155 6.004903E+03 / 37.9291 1.760236E+03 / 36.6775 4.780000E-02 9.628156E+02 / 29.9454 1.059334E+03 / 229.4102 1.962394E+03 / 33.6981 0 263 -8.616500E-02 6.447435E+02 / 215.5666 3.599196E+03 / 39.9924 5.505818E+01 / 86.6627 8.616500E-02 1.763538E+03 / 35.7436 2.084051E+03 / 221.1320 1.420143E+03 / 34.6546 0 264 -1.266650E-01 3.276216E+02 / 52.5668 7.122947E+03 / 39.4361 7.023383E+02 / 44.3689 1.266650E-01 4.801501E+02 / 18.8105 5.948733E+03 / 219.5393 1.167788E+03 / 30.4453 0 265 -1.571500E-01 7.754675E+02 / 210.3559 4.217047E+03 / 40.9245 3.279228E+02 / 51.4638 1.571500E-01 1.471462E+03 / 33.5293 4.417518E+03 / 218.7630 1.070481E+03 / 32.7781 0 266 -1.986000E-01 6.203307E+02 / 51.2557 6.225526E+03 / 40.3416 6.655639E+02 / 49.4883 1.986000E-01 2.678646E+02 / 4.7176 6.470141E+03 / 218.6421 4.849082E+02 / 27.3146 0 267 -1.920500E-01 4.802948E+02 / 204.3661 6.549271E+03 / 40.3208 1.372609E+03 / 44.4011 1.920500E-01 7.943800E+02 / 22.7951 6.445357E+03 / 217.9136 4.713794E+02 / 237.9427 0 268 -2.447150E-01 8.230742E+02 / 211.3763 5.586360E+03 / 41.5505 1.047227E+03 / 44.6382 2.447150E-01 1.421472E+03 / 27.7428 6.598338E+03 / 218.6420 1.073206E+03 / 224.2059 0 269 -2.339500E-01 1.239790E+03 / 40.8894 7.344042E+03 / 39.3207 5.818450E+02 / 47.6504 2.339500E-01 1.134655E+03 / 225.8942 8.241112E+03 / 217.3941 6.882240E+02 / 234.8913 0 270 -2.716850E-01 8.016770E+02 / 227.3453 8.119847E+03 / 39.2152 1.209889E+03 / 42.6451 2.716850E-01 1.337822E+03 / 34.1899 9.044564E+03 / 216.9552 1.334874E+03 / 227.5957 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 101 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 271 -2.942500E-01 4.092080E+02 / 248.0205 7.076283E+03 / 37.3203 8.522778E+01 / 227.8911 2.942500E-01 1.040224E+03 / 40.0143 7.921854E+03 / 216.6502 3.251771E+02 / 279.0606 0 272 -3.058350E-01 1.430516E+03 / 33.6743 8.119954E+03 / 37.2720 1.274348E+02 / 216.5527 3.058350E-01 7.147178E+02 / 213.8809 8.737127E+03 / 216.7376 4.729809E+02 / 248.8877 0 273 -2.485500E-01 1.348622E+03 / 37.5739 6.338027E+03 / 36.0933 5.693376E+02 / 49.2604 2.485500E-01 1.181790E+03 / 216.2526 6.720993E+03 / 218.0986 1.137466E+03 / 230.5672 0 274 -3.076650E-01 1.691597E+03 / 28.1656 7.390172E+03 / 34.3798 1.607850E+02 / 93.2619 3.076650E-01 7.178563E+02 / 201.7386 7.489750E+03 / 216.0053 6.060956E+02 / 236.0198 0 275 -2.596650E-01 4.482635E+02 / 338.0945 2.854034E+03 / 36.3381 1.753479E+03 / 209.9105 2.596650E-01 1.420247E+03 / 38.7530 3.089932E+03 / 221.7229 1.070275E+03 / 40.0185 0 276 -1.878000E-01 5.977614E+02 / 224.2560 3.062383E+03 / 32.7832 6.327371E+02 / 197.8755 1.878000E-01 8.295687E+02 / 47.4857 2.574128E+03 / 215.4991 1.146794E+02 / 295.9779 0 277 -1.553500E-01 6.075206E+02 / 5.7544 1.613302E+03 / 32.8907 1.477957E+03 / 209.1749 1.553500E-01 7.503863E+02 / 43.4352 1.425035E+03 / 217.7118 3.798127E+02 / 41.6581 0 278 -1.027500E-01 9.783715E+01 / 231.2297 2.047926E+03 / 29.6738 3.467562E+02 / 189.8750 1.027500E-01 9.599009E+01 / 79.9270 9.935732E+02 / 213.4770 2.800779E+02 / 228.6561 0 279 -5.216500E-02 3.190022E+02 / 223.9104 8.231085E+02 / 24.6433 1.181087E+02 / 176.4711 5.216500E-02 1.074414E+02 / 158.2617 1.554943E+01 / 157.8402 2.970085E+02 / 220.9822 0 280 -8.126500E-02 9.522169E+02 / 215.0337 4.879947E+02 / 48.9166 2.596668E+02 / 36.3576 8.126500E-02 1.895203E+03 / 34.7129 5.474222E+02 / 24.1890 1.316927E+03 / 34.9426 0 281 -1.462350E-01 3.420561E+02 / 219.0100 8.512670E+02 / 39.9127 1.231980E+02 / 42.8112 1.462350E-01 1.168287E+03 / 36.5037 3.073789E+02 / 223.6417 4.876293E+02 / 34.9106 0 282 -1.816150E-01 1.014747E+03 / 214.9323 1.000663E+03 / 44.0527 1.112807E+02 / 59.3719 1.816150E-01 1.862371E+03 / 34.4278 7.859778E+02 / 224.7643 7.804188E+02 / 32.6124 0 283 -2.506000E-01 6.052972E+02 / 216.9025 1.125059E+03 / 39.2286 3.325930E+02 / 46.3852 2.506000E-01 1.707954E+03 / 36.2924 1.176552E+03 / 216.2187 1.885753E+02 / 26.5830 0 284 -2.615850E-01 1.952282E+03 / 216.0575 2.865426E+02 / 56.2962 6.541282E+02 / 46.9541 2.615850E-01 2.854541E+03 / 35.5545 3.172846E+02 / 227.6982 2.835331E+02 / 230.4698 0 285 -3.381000E-01 2.298127E+03 / 36.6040 9.405879E+02 / 213.6734 1.332554E+02 / 50.2464 3.381000E-01 9.654554E+02 / 214.5320 1.378678E+03 / 43.8089 8.477037E+02 / 225.9076 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 102 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 286 -3.236150E-01 3.683261E+03 / 218.4092 6.893519E+02 / 205.9061 1.520302E+03 / 44.3087 3.236150E-01 4.406003E+03 / 36.8491 2.572308E+02 / 115.8877 1.081740E+03 / 221.9093 0 287 -3.636150E-01 5.799677E+01 / 70.9321 2.746233E+03 / 46.1018 1.316445E+03 / 218.0823 3.636150E-01 3.116269E+02 / 6.0995 1.870109E+03 / 226.2650 1.687413E+03 / 33.4436 0 288 -3.291650E-01 3.206397E+02 / 127.5319 1.235223E+03 / 205.8187 3.307784E+03 / 224.9934 3.291650E-01 5.944487E+02 / 90.7102 3.613242E+03 / 41.2923 2.538371E+03 / 37.5876 0 289 -3.813150E-01 6.544684E+03 / 217.2274 5.733725E+03 / 41.7978 1.153113E+03 / 43.1054 3.813150E-01 7.231186E+03 / 35.9338 6.355056E+03 / 218.0363 1.450462E+03 / 224.3978 0 290 -3.552350E-01 3.167157E+03 / 215.9650 5.106197E+03 / 41.6799 5.298196E+02 / 49.5103 3.552350E-01 3.943137E+03 / 33.5584 5.386201E+03 / 217.1044 9.753737E+02 / 228.4713 0 291 -4.047650E-01 3.375191E+03 / 215.9535 6.047471E+03 / 40.2273 5.528026E+02 / 218.4727 4.047650E-01 3.949388E+03 / 33.9999 6.254024E+03 / 217.6694 3.120377E+02 / 355.7650 0 292 -3.815150E-01 7.433678E+01 / 89.1021 5.859153E+03 / 39.5787 8.745496E+02 / 215.1006 3.815150E-01 9.180621E+02 / 26.8009 5.952765E+03 / 217.2534 5.674142E+02 / 15.1524 0 293 -4.291350E-01 4.572566E+02 / 37.9351 5.338009E+03 / 37.6204 2.092678E+02 / 226.1033 4.291350E-01 1.494505E+02 / 341.9714 5.428626E+03 / 217.5054 3.002024E+02 / 270.6674 0 294 -4.524350E-01 1.594277E+03 / 220.2168 4.753619E+03 / 37.3543 2.153730E+02 / 222.5377 4.524350E-01 2.039858E+03 / 38.3119 4.877605E+03 / 216.9319 2.826081E+02 / 269.6140 0 295 -4.164000E-01 1.870397E+03 / 221.8525 5.031432E+03 / 34.9556 4.878423E+02 / 47.2297 4.164000E-01 2.808986E+03 / 36.4252 4.988455E+03 / 218.7060 9.975383E+02 / 226.8815 0 296 -4.338650E-01 2.660302E+03 / 219.7352 5.429622E+03 / 34.4650 3.243534E+02 / 40.4233 4.338650E-01 3.034553E+03 / 39.2902 5.518952E+03 / 218.0739 8.482327E+02 / 227.7221 0 297 -3.824150E-01 1.793097E+03 / 222.5388 4.562707E+03 / 30.7907 9.729595E+02 / 204.1635 3.824150E-01 2.890184E+03 / 34.9204 4.297121E+03 / 221.0843 2.681249E+02 / 41.8995 0 298 -3.010850E-01 2.445244E+03 / 217.3521 4.782351E+03 / 27.8896 6.958195E+02 / 208.9539 3.010850E-01 2.829466E+03 / 37.5623 4.286723E+03 / 223.4125 2.180584E+01 / 23.1609 0 299 -4.160150E-01 2.569013E+03 / 42.0421 4.785908E+03 / 43.0952 5.260829E+02 / 58.1220 4.160150E-01 1.686526E+03 / 228.3622 4.769820E+03 / 216.8691 5.601780E+02 / 223.2169 0 300 -3.238650E-01 4.244355E+03 / 38.5019 8.983823E+03 / 40.1809 2.673481E+03 / 41.1869 3.238650E-01 3.373680E+03 / 217.2832 9.155242E+03 / 216.0250 2.634032E+03 / 220.0840 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 103 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 301 -4.678500E-01 2.960726E+02 / 55.6538 4.369777E+03 / 41.2492 3.034595E+02 / 195.3712 4.678500E-01 4.390898E+02 / 3.0702 4.358372E+03 / 217.9415 1.586547E+02 / 335.8882 0 302 -4.530150E-01 2.514480E+03 / 38.3239 7.825479E+03 / 39.9226 5.234879E+02 / 40.1076 4.530150E-01 2.090128E+03 / 217.2575 7.997163E+03 / 215.7589 6.714739E+02 / 237.9528 0 303 -4.952350E-01 7.585731E+02 / 215.5328 2.934571E+03 / 38.3605 9.918834E+01 / 152.1699 4.952350E-01 1.339726E+03 / 30.2824 2.943198E+03 / 219.4039 2.292400E+02 / 265.9817 0 304 -5.107000E-01 9.041171E+02 / 42.4327 4.702436E+03 / 40.1435 2.211166E+02 / 220.5282 5.107000E-01 6.408399E+02 / 221.6537 4.830105E+03 / 216.3098 2.985453E+02 / 325.7346 0 305 -5.080350E-01 4.411862E+02 / 23.3254 3.600655E+03 / 32.9773 1.590662E+02 / 183.4800 5.080350E-01 1.318516E+02 / 340.6470 3.566766E+03 / 220.2409 1.702768E+02 / 264.8094 0 306 -5.185350E-01 3.404482E+02 / 212.1884 3.120598E+03 / 37.7705 1.378050E+01 / 318.0547 5.185350E-01 4.974602E+02 / 34.5960 3.272541E+03 / 217.7877 3.215353E+02 / 279.1234 0 307 -4.472350E-01 7.426039E+02 / 29.0270 4.934225E+03 / 32.1295 3.264146E+02 / 200.7923 4.472350E-01 3.450267E+02 / 232.7998 4.950902E+03 / 222.4604 1.214640E+02 / 12.9501 0 308 -4.853650E-01 1.477165E+03 / 39.7157 6.218464E+03 / 36.5849 5.585801E+01 / 244.8658 4.853650E-01 1.407896E+03 / 220.4086 6.347468E+03 / 220.0581 2.467775E+02 / 283.6885 0 309 -2.197000E-01 1.126798E+03 / 35.7898 4.012889E+03 / 27.7241 3.207029E+02 / 204.1511 2.197000E-01 1.018931E+03 / 217.2648 4.346203E+03 / 226.3622 3.000919E+02 / 42.3483 0 310 -3.144000E-01 2.286780E+03 / 38.0709 5.637405E+03 / 34.0988 1.191848E+02 / 245.0995 3.144000E-01 2.277791E+03 / 218.7709 5.805461E+03 / 222.3811 1.555329E+02 / 300.9470 0 311 -2.280350E-01 4.224732E+03 / 210.7348 3.391758E+03 / 58.6891 1.490469E+03 / 204.0695 2.280350E-01 5.229199E+03 / 38.4517 2.998095E+03 / 201.0002 1.735689E+03 / 41.4920 0 312 -3.144000E-01 1.501949E+03 / 217.4741 3.629653E+03 / 46.7624 5.482369E+02 / 213.1148 3.144000E-01 1.559496E+03 / 34.7408 3.612093E+03 / 211.8264 6.192478E+02 / 28.1495 0 313 -4.472350E-01 2.396368E+02 / 173.9574 5.530614E+03 / 44.5227 4.416501E+02 / 196.5384 4.472350E-01 7.155256E+02 / 40.9603 5.343935E+03 / 213.5937 4.940839E+02 / 31.0997 0 314 -4.853650E-01 4.904340E+02 / 216.9318 5.238877E+03 / 41.1157 6.146868E+02 / 217.0423 4.853650E-01 5.582877E+02 / 33.6588 5.210874E+03 / 216.5646 6.169165E+02 / 20.6133 0 315 -5.340000E-01 1.394671E+02 / 191.2711 5.267205E+03 / 41.3380 5.686046E+02 / 206.0807 5.340000E-01 4.740632E+02 / 39.6501 5.139436E+03 / 216.3620 5.910840E+02 / 26.1411 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 104 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 316 -5.445000E-01 1.567726E+02 / 33.3435 5.717315E+03 / 38.2628 4.539169E+02 / 217.8518 5.445000E-01 1.078309E+02 / 238.6106 5.738153E+03 / 218.5721 4.440623E+02 / 9.3128 0 317 -5.445000E-01 8.094590E+02 / 42.0554 5.786752E+03 / 38.4105 4.158363E+02 / 201.0273 5.445000E-01 5.856071E+02 / 223.5648 5.748234E+03 / 218.5445 4.036254E+02 / 20.3733 0 318 -5.340000E-01 4.517881E+02 / 32.4082 5.772181E+03 / 35.3633 5.159514E+02 / 219.2885 5.340000E-01 4.224285E+02 / 225.2686 5.862284E+03 / 220.3411 4.739353E+02 / 13.4188 0 319 -4.853650E-01 6.263718E+02 / 217.1840 5.283086E+03 / 35.3020 4.904546E+02 / 204.1588 4.853650E-01 7.184370E+02 / 33.0821 5.353354E+03 / 220.5764 4.581069E+02 / 29.8230 0 320 -4.472350E-01 1.991385E+02 / 20.7978 5.590489E+03 / 32.3270 1.779052E+02 / 223.2371 4.472350E-01 2.063739E+02 / 240.7051 5.781161E+03 / 222.6698 1.825858E+02 / 338.8408 0 321 -3.144000E-01 1.715673E+03 / 219.9306 3.590519E+03 / 29.4233 2.465910E+02 / 190.9510 3.144000E-01 1.711670E+03 / 36.9006 3.779814E+03 / 225.1591 2.078291E+02 / 40.2946 0 322 -2.197000E-01 3.308908E+02 / 22.9553 3.181673E+03 / 22.3104 3.760224E+02 / 32.5531 2.197000E-01 3.573326E+02 / 232.4498 3.500215E+03 / 231.0318 4.622825E+02 / 232.1752 0 323 -2.197000E-01 1.231389E+03 / 208.8332 2.214402E+03 / 67.3395 1.242782E+03 / 211.1471 2.197000E-01 1.339610E+03 / 42.0547 1.965905E+03 / 190.7078 1.241390E+03 / 39.7381 0 324 -3.144000E-01 9.098658E+02 / 42.4877 3.697422E+03 / 47.5246 7.811808E+02 / 224.0823 3.144000E-01 8.929676E+02 / 212.6252 3.551697E+03 / 210.4342 7.703357E+02 / 25.2612 0 325 -4.472350E-01 4.645004E+02 / 200.6906 4.573472E+03 / 46.1710 1.005663E+03 / 210.2657 4.472350E-01 5.619888E+02 / 44.8830 4.390447E+03 / 212.1541 1.009974E+03 / 37.1549 0 326 -4.853650E-01 8.353428E+02 / 40.2733 5.498818E+03 / 41.1150 6.610084E+02 / 220.8704 4.853650E-01 8.232213E+02 / 214.6126 5.414723E+03 / 216.1593 6.478419E+02 / 24.6265 0 327 -5.340000E-01 2.870335E+02 / 56.0216 5.675693E+03 / 41.1566 6.142701E+02 / 206.4994 5.340000E-01 1.773502E+02 / 203.9789 5.560364E+03 / 216.1686 6.248528E+02 / 35.3833 0 328 -5.445000E-01 1.069777E+03 / 40.0906 6.212527E+03 / 38.3176 3.796780E+02 / 219.1708 5.445000E-01 1.062789E+03 / 218.8994 6.207661E+03 / 218.6696 3.802163E+02 / 14.1668 0 329 -5.445000E-01 4.970092E+02 / 45.1148 5.904998E+03 / 38.3492 3.255792E+02 / 195.0253 5.445000E-01 4.208342E+02 / 216.5738 5.876843E+03 / 218.5529 3.296736E+02 / 32.4695 0 330 -5.340000E-01 1.609805E+03 / 34.7027 6.624860E+03 / 35.5826 9.484821E+01 / 20.7692 5.340000E-01 1.634547E+03 / 219.9767 6.727745E+03 / 220.4516 1.949327E+02 / 266.5388 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 105 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 331 -4.853650E-01 9.085860E+01 / 181.3603 5.439798E+03 / 35.5595 1.618930E+02 / 78.7616 4.853650E-01 1.151947E+02 / 33.3164 5.520066E+03 / 220.7802 9.238519E+01 / 223.9433 0 332 -4.472350E-01 1.201385E+03 / 33.7087 5.947408E+03 / 32.5847 5.504407E+02 / 32.1079 4.472350E-01 1.242350E+03 / 222.7597 6.175309E+03 / 222.8613 6.095359E+02 / 231.0334 0 333 -3.144000E-01 1.564878E+02 / 205.0110 3.797154E+03 / 30.2584 4.456642E+02 / 46.9930 3.144000E-01 1.745475E+02 / 43.8066 4.003091E+03 / 224.9886 4.144220E+02 / 217.4388 0 334 -2.197000E-01 8.827371E+02 / 30.3141 3.138583E+03 / 21.7100 5.861866E+02 / 26.8341 2.197000E-01 9.432007E+02 / 226.8618 3.498980E+03 / 231.4027 6.581381E+02 / 231.8789 0 335 -2.793350E-01 4.365717E+02 / 71.9408 8.903428E+02 / 90.0887 6.319802E+02 / 224.3648 2.793350E-01 3.553304E+02 / 193.9966 5.991218E+02 / 175.2120 6.131873E+02 / 30.5848 0 336 -3.532000E-01 7.752252E+01 / 95.1555 1.553253E+03 / 60.6668 1.250977E+03 / 217.5397 3.532000E-01 4.201880E+01 / 177.4541 1.364216E+03 / 205.1845 1.233661E+03 / 35.9584 0 337 -5.331000E-01 1.279233E+03 / 47.9253 3.897953E+03 / 47.2109 9.587278E+02 / 217.6640 5.331000E-01 1.219631E+03 / 214.3940 3.732007E+03 / 214.5403 9.529825E+02 / 34.7894 0 338 -5.324350E-01 2.466754E+02 / 52.7989 4.256024E+03 / 43.0775 1.031575E+03 / 211.8232 5.324350E-01 2.240944E+02 / 211.1138 4.153377E+03 / 216.3553 1.033822E+03 / 37.1429 0 339 -5.695650E-01 1.724691E+03 / 42.3647 5.525315E+03 / 41.3932 4.213710E+02 / 213.6441 5.695650E-01 1.689909E+03 / 217.5542 5.431071E+03 / 217.0974 4.239236E+02 / 32.3829 0 340 -5.330000E-01 8.108959E+02 / 40.5526 5.199253E+03 / 38.0831 2.853910E+02 / 194.3175 5.330000E-01 7.991987E+02 / 218.6165 5.181198E+03 / 218.3413 2.799772E+02 / 33.4508 0 341 -5.330000E-01 1.268456E+03 / 37.8426 5.346200E+03 / 37.9808 1.476965E+02 / 84.1132 5.330000E-01 1.252809E+03 / 215.8589 5.326129E+03 / 218.1721 8.068607E+01 / 231.9918 0 342 -5.695650E-01 1.855934E+03 / 34.1572 5.596018E+03 / 34.9104 1.804969E+02 / 43.0696 5.695650E-01 1.878661E+03 / 219.1919 5.665995E+03 / 219.6730 1.951934E+02 / 237.3103 0 343 -5.324350E-01 4.940020E+02 / 36.5157 4.321513E+03 / 33.7055 8.007090E+02 / 43.2859 5.324350E-01 4.830310E+02 / 214.8933 4.397626E+03 / 220.2334 7.826517E+02 / 221.2225 0 344 -5.331000E-01 1.224775E+03 / 29.0024 3.700726E+03 / 29.6430 6.206392E+02 / 35.5545 5.331000E-01 1.277496E+03 / 222.7521 3.855205E+03 / 222.6390 6.555264E+02 / 227.4026 0 345 -3.532000E-01 1.900186E+02 / 50.3307 1.522492E+03 / 20.5444 9.082029E+02 / 33.5534 3.532000E-01 1.683186E+02 / 215.7053 1.666909E+03 / 230.0172 9.433777E+02 / 224.2437 1 FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 106 NASTRAN TEST PROBLEM NO. T08-03-1A 0 K = 0 MODES, OSCILLATORY AIRLOADS PRESENT FREQUENCY = 1.333000E+02 C O M P L E X S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (MAGNITUDE/PHASE) ELEMENT FIBRE - STRESSES IN ELEMENT COORDINATE SYSTEM - ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY 0 346 -2.793350E-01 3.679734E+02 / 6.8517 8.419777E+02 / 356.7697 4.287892E+02 / 19.9906 2.793350E-01 4.280791E+02 / 240.2701 9.764191E+02 / 245.6017 4.932381E+02 / 235.8153 * * * END OF JOB * * * 1 JOB TITLE = FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS DATE: 5/18/95 END TIME: 10:37:29 TOTAL WALL CLOCK TIME 4 SEC. ================================================ FILE: demoout/t09051a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T09051A,NASTRAN APP AERO SOL 9 DIAG 14 TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = MODAL FLUTTER ANALYSIS OF A ROTOR BLADE 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T09-05-1A 3 SPC = 500 4 MPC = 600 5 FMETHOD = 30 6 METHOD = 10 7 CMETHOD = 20 8 DISP = ALL 9 OUTPUT(XYOUT) 10 XTITLE = VELOCITY-V 11 YTTITLE = DAMPING-G 12 YBTITLE = FREQUENCY-F 13 XYPAPERPLOT VG /1(G,F),4(G,F),7(G,F)/2(G,F),5(G,F),8(G,F)/ 14 3(G,F),6(G,F),9(G,F) 15 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 117, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AERO 0 1.3+4 1.86958 1.507-6 2- CHEXA1 201 1 101 103 104 108 113 115 +CH1 3- +CH1 116 120 4- CHEXA1 202 1 108 104 105 107 120 116 +CH2 5- +CH2 117 119 6- CHEXA1 203 1 121 123 124 128 101 103 +CH3 7- +CH3 104 108 8- CHEXA1 204 1 128 124 125 127 108 104 +CH4 9- +CH4 105 107 10- CORD2C 1 0. 0. 0. 1.0 0. 0. +CD1 11- +CD1 0. 0. 1. 12- CTRIA2 1 2000 1 5 4 13- CTRIA2 2 2000 1 2 5 14- CTRIA2 3 2005 2 6 5 15- CTRIA2 4 2005 2 3 6 16- CTRIA2 5 2010 4 8 7 17- CTRIA2 6 2010 4 5 8 18- CTRIA2 7 2015 5 9 8 19- CTRIA2 8 2015 5 6 9 20- CTRIA2 9 2020 7 11 10 21- CTRIA2 10 2020 7 8 11 22- CTRIA2 11 2025 8 12 11 23- CTRIA2 12 2025 8 9 12 24- CYJOIN 1 121 101 113 123 103 115 25- CYJOIN 2 127 107 119 125 105 117 26- EIGC 20 HESS MAX +EIGC20 27- +EIGC20 4 28- EIGR 10 INV 200.0 2000.0 8 5 +EIGR10 29- +EIGR10 MAX 30- FLFACT 1 .059164 .118328 .177492 31- FLFACT 2 180.0 32- FLFACT 3 0.3 0.7 1.0 33- FLUTTER 30 K 1 2 3 L 4 34- GRID 1 -0.8979 -0.2814 3.7712 35- GRID 2 0.0001 0.0516 4.0003 36- GRID 3 0.8981 -0.2461 4.1795 37- GRID 4 -0.7726 -0.4744 5.4413 38- GRID 5 -0.0031 0.0228 5.5033 39- GRID 6 0.7797 0.2247 5.4889 40- GRID 7 -0.6646 -0.7082 7.3062 41- GRID 8 -0.0157 0.0164 7.4058 42- GRID 9 0.6303 0.5962 7.3237 43- GRID 10 -0.5237 -1.1552 9.8520 44- GRID 11 -0.0320 -0.0656 10.0079 45- GRID 12 0.4130 0.7329 9.9093 46- GRID 101 1 2.375 4.186 -0.987 1 47- GRID 103 1 2.375 4.186 0.987 1 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T09-05-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 104 1 2.375 0.0 0.987 1 49- GRID 105 1 2.375 -4.186 0.987 1 50- GRID 107 1 2.375 -4.186 -0.987 1 51- GRID 108 1 2.375 0.0 -0.987 1 52- GRID 113 1 3.982 4.186 -0.987 1 53- GRID 115 1 4.539 4.186 0.987 1 54- GRID 116 1 4.539 0.0 0.987 55- GRID 117 1 4.539 -4.186 0.987 1 56- GRID 119 1 3.982 -4.186 -0.987 1 57- GRID 120 1 3.982 0.0 -0.987 58- GRID 121 1 0.905 4.186 -0.987 1 59- GRID 123 1 0.905 4.186 0.987 1 60- GRID 124 1 0.905 0.0 0.987 1 61- GRID 125 1 0.905 -4.186 0.987 1 62- GRID 127 1 0.905 -4.186 -0.987 1 63- GRID 128 1 0.905 0.0 -0.987 1 64- MAT1 1 31.0E6 0.3 7.300E-4 65- MKAERO1 180.0 +MKA1 66- +MKA1 0.3 0.7 1.0 67- MPC 600 1 1 1.0 2 1 -1.0 68- MPC 600 1 2 1.0 2 2 -1.0 69- MPC 600 1 3 1.0 2 3 -1.0 70- MPC 600 1 4 1.0 2 4 -1.0 71- MPC 600 1 5 1.0 2 5 -1.0 72- MPC 600 1 6 1.0 2 6 -1.0 73- MPC 600 3 1 1.0 2 1 -1.0 74- MPC 600 3 2 1.0 2 2 -1.0 75- MPC 600 3 3 1.0 2 3 -1.0 76- MPC 600 3 4 1.0 2 4 -1.0 77- MPC 600 3 5 1.0 2 5 -1.0 78- MPC 600 3 6 1.0 2 6 -1.0 79- MPC 600 116 1 1.0 2 1 -1.0 80- MPC 600 116 2 1.0 2 2 -1.0 81- MPC 600 116 3 1.0 2 3 -1.0 82- MPC 600 120 1 1.0 2 1 -1.0 83- MPC 600 120 2 1.0 2 2 -1.0 84- MPC 600 120 3 1.0 2 3 -1.0 85- PARAM CTYPE ROT 86- PARAM IREF 4 87- PARAM KGGIN -1 88- PARAM KINDEX 0 89- PARAM LMODES 4 90- PARAM MAXMACH 0.90 91- PARAM MINMACH 1.00 92- PARAM MTYPE COSINE 93- PARAM NSEGS 43 94- PARAM PRINT YESB 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T09-05-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- PTRIA2 2000 1 0.1040 0. 96- PTRIA2 2005 1 0.1040 0. 97- PTRIA2 2010 1 0.0707 0. 98- PTRIA2 2015 1 0.0707 0. 99- PTRIA2 2020 1 0.0422 0. 100- PTRIA2 2025 1 0.0422 0. 101- SPC1 500 23 121 123 124 125 127 128 102- SPC1 500 45 7 10 12 103- SPC1 500 456 101 103 104 105 107 108 104- SPC1 500 456 113 115 116 117 119 120 105- SPC1 500 456 121 123 124 125 127 128 106- STREAML11 1 2 3 107- STREAML12 4 5 6 108- STREAML13 7 8 9 109- STREAML14 10 11 12 110- STREAML21 3 2.739 1.79600 3.98420 0.58217 0.6568460.069472+STRL 1 111- +STRL 1 719.0 47.423 112- STREAML22 3 23.534 1.85044 6.06853 0.88674 0.9343880.066610+STRL 2 113- +STRL 2 1014.2 55.107 114- STREAML23 3 44.697 1.86419 8.07620 1.18010 1.1936660.064685+STRL 3 115- +STRL 3 1288.1 60.380 116- STREAML24 3 62.028 1.86958 9.92791 1.45067 1.5022760.059201+STRL 4 117- +STRL 4 1592.6 60.687 ENDDATA 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN AERO 09 - BLADE CYCLIC MODAL FLUTTER ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/CLAMAL= APPEND/OVG=APPEND/QHHL=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N, NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 COND ERROR5,NOGPDT $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 11 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 12 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 13 COND ERROR5,NOSIMP $ 14 PARAM //*ADD*/NOKGGX/1/0 $ 15 PARAM //*ADD*/NOMGG/1/0 $ 16 PARAM //*NOP*/V,Y,KGGIN=-1 $ 17 COND JMPKGGIN,KGGIN $ 18 PARAM //*ADD*/NOKGGX/-1/0 $ 19 INPUTT1 /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $ 20 EQUIV KTOTAL,KGGX $ 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T09-05-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 LABEL JMPKGGIN $ 22 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 23 COND JMPKGGX,NOKGGX $ 24 EMA GPECT,KDICT,KELM/KGGX $ 25 PURGE KDICT,KELM/MINUS1 $ 26 LABEL JMPKGGX $ 27 COND ERROR1,NOMGG $ 28 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 29 PURGE MDICT,MELM/MINUS1 $ 30 COND LGPWG,GRDPNT $ 31 GPWG BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 32 OFP OGPWG,,,,,//S,N,CARDNO $ 33 LABEL LGPWG $ 34 EQUIV KGGX,KGG/NOGENL $ 35 COND LBL11,NOGENL $ 36 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 37 LABEL LBL11 $ 38 GPSTGEN KGG,SIL/GPST $ 39 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 40 OFP OGPST,,,,,//S,N,CARDNO $ 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T09-05-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 41 PARAM //*NOT*/REACDATA/REACT $ 42 COND ERROR6,REACDATA $ 43 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $ 44 GPCYC GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $ 45 COND ERROR7,NOGO $ 46 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 47 COND LBL2,MPCF1 $ 48 MCE1 USET,RG/GM $ 49 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 50 LABEL LBL2 $ 51 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 52 COND LBL3,SINGLE $ 53 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 54 LABEL LBL3 $ 55 EQUIV KFF,KAA/OMIT/MFF,MAA/OMIT $ 56 COND LBL5,OMIT $ 57 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 58 SMP2 USET,GO,MFF/MAA $ 59 LABEL LBL5 $ 60 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $ 61 COND ERROR2,NOEED $ 62 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T09-05-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 63 CYCT2 CYCD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS=-1/V,Y, KINDEX=-1/V,Y,CYCSEQ=-1/1/S,N,NOGO $ 64 COND ERROR7,NOGO $ 65 READ KKK,MKK,,,EED,,CASECC/LAMK,PHIK, ,OEIGS/*MODES*/S,N, NEIGV $ 66 OFP OEIGS,LAMK,,,,//S,N,CARDNO $ 67 COND ERROR4,NEIGV $ 68 CYCT2 CYCD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y, KINDEX/V,Y,CYCSEQ/1/S,N,NOGO $ 69 COND ERROR7,NOGO $ 70 SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,/1/*REIG* $ 71 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,,PHIG,EST,,,/ ,,OPHIG,,,PPHIG,,/*REIG* $ 72 OFP OPHIG,,,,,//S,N,CARDNO $ 73 PARAML PCDB//*PRES*////JUMPPLOT $ 74 PURGE PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/JUMPPLOT $ 75 COND PZZ,JUMPPLOT $ 76 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/ S,N,NSILZ/S,N,JUMPZ=-1 $ 77 PRTMSG PLTSETZ// $ 78 COND PZZ,JUMPZ $ 79 PLOT PLTPARZ,GPSETSZ,ELSETSZ,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,,,,/ PLOTZ/NSILZ/LUSET/JUMPZ/PLTFLGZ=-1/S,N,PFILEZ=0 $ 80 PRTMSG PLOTZ// $ 81 LABEL PZZ $ 82 APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,FLIST,GTKA,PVECT/ 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/V,Y,MTYPE/ NEIGV/V,Y,KINDEX $ 83 PARTN PHIA,PVECT,/PHIAX,,,/1 $ 84 SMPYAD PHIAX,MAA,PHIAX,,,/MI/3/1/1/0/1 $ 85 MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ 86 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 87 EQUIV M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $ 88 GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/ *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/ NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/-1/-1/-1 $ 89 GKAM USETD,PHIAX,MI,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH, PHIDH/NOUE/C,Y,LMODES=999999/C,Y,LFREQ=0.0/C,Y,HFREQ=0.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y, KDAMP=-1 $ 90 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 91 COND P2,JUMPPLOT $ 92 PLTSET PCDB,EQDYN,ECT,/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL1/S,N, JUMPPLOT $ 93 PRTMSG PLTSETX//$ 94 PARAM //*MPY*/PLTFLG/1/1 $ 95 PARAM //*MPY*/PFILE/0/0 $ 96 COND P2,JUMPPLOT $ 97 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQDYN,,,,,,,/PLOTX1/NSIL1/ LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 98 PRTMSG PLOTX1//$ 99 LABEL P2 $ 100 PARAM //*ADD*/DESTRY/0/1 $ 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T09-05-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 101 AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $ 102 PURGE D1JE,D2JE/NODJE $ 103 COND NODJE,NODJE $ 104 INPUTT2 /D1JE,D2JE,,,/C,Y,POSITION=-1/C,Y,UNITNUM=11/C,Y,USRLABEL= TAPEID $ 105 LABEL NODJE $ 106 PARAM //*ADD*/XQHHL/1/0 $ 107 AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,,/ NOUE/S,N,XQHHL $ 108 PARAM //*MPY*/NOP/1/1 $ 109 PARAM //*MPY*/NOH/0/1 $ 110 PARAM //*MPY*/FLOOP/V,Y,NODJE=-1/0 $ 111 LABEL LOOPTOP $ 112 FA1 KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/S,N,FLOOP/ S,N,TSTART/S,N,NOCEAD $ 113 EQUIV KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/ KXHH,PHIHL/NOCEAD/BXHH,CLAMAL/NOCEAD/ CASECC,CASEYY/NOCEAD $ 114 COND VDR,NOCEAD $ 115 CEAD KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $ 116 COND LBLZAP,EIGVS $ 117 LABEL VDR $ 118 VDR CASECC,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/ 123/S,N,NOH/S,N,NOP/FMODE $ 119 COND LBL16,NOH $ 120 OFP OPHIH,,,,,//S,N,CARDNO $ 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T09-05-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 121 LABEL LBL16 $ 122 FA2 PHIH,CLAMA,FSAVE/PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/C,Y,VREF= 1.0/C,Y,PRINT=YESB $ 123 COND CONTINUE,TSTART $ 124 LABEL LBLZAP $ 125 COND CONTINUE,FLOOP $ 126 REPT LOOPTOP,100 $ 127 JUMP ERROR3 $ 128 LABEL CONTINUE $ 129 PARAML XYCDB//*PRES*////NOXYCDB $ 130 COND NOXYOUT,NOXYCDB $ 131 XYTRAN XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO $ 132 XYPLOT XYPLTCE//$ 133 LABEL NOXYOUT $ 134 PARAM //*AND*/PJUMP/NOP=-1/JUMPPLOT $ 135 COND FINIS,PJUMP $ 136 MODACC CASEYY,CLAMAL,PHIHL,CASECC,,/CLAMAL1,CPHIH1,CASEZZ,,/ *CEIGN* $ 137 DDR1 CPHIH1,PHIDH/CPHID $ 138 EQUIV CPHID,CPHIP/NOA $ 139 COND LBL14,NOA $ 140 SDR1 USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $ 141 LABEL LBL14 $ 142 EQUIV CPHID,CPHIA/NOUE $ 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T09-05-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 143 COND LBLNOE,NOUE $ 144 VEC USETD/RP/*D*/*A*/*E* $ 145 PARTN CPHID,,RP/CPHIA,,,/1/3 $ 146 LABEL LBLNOE $ 147 SDR2 CASEZZ,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDT,CLAMAL1,QPC,CPHIP, EST,,,/,OQPC1,OCPHIP,OESC1,OEFC1,PCPHIP,,/*CEIGN* $ 148 OFP OCPHIP,OQPC1,OESC1,OEFC1,,//S,N,CARDNO $ 149 COND P3,JUMPPLOT $ 150 PLOT PLTPAR,GPSETS,ELSETS,CASEZZ,BGPDT,EQDYN,SILD,,PCPHIP,,,,/ PLOTX3/NSIL1/LUSET/JUMPPLOT/PLTFLG/PFILE $ 151 PRTMSG PLOTX3//$ 152 LABEL P3 $ 153 JUMP FINIS $ 154 LABEL ERROR1 $ 155 PRTPARM //-1/*BLADEMDS* $ 156 LABEL ERROR2 $ 157 PRTPARM //-2/*BLADEMDS* $ 158 LABEL ERROR3 $ 159 PRTPARM //-3/*BLADEMDS* $ 160 LABEL ERROR4 $ 161 PRTPARM //-4/*BLADEMDS* $ 162 LABEL ERROR5 $ 163 PRTPARM //-5/*BLADEMDS* $ 164 LABEL ERROR6 $ 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T09-05-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 165 PRTPARM //-6/*BLADEMDS* $ 166 LABEL ERROR7 $ 167 PRTPARM //-7/*BLADEMDS* $ 168 LABEL FINIS $ 169 PURGE DUMMY/MINUS1 $ 170 END $ 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 18 PROFILE 206 MAX WAVEFRONT 16 AVG WAVEFRONT 6.867 RMS WAVEFRONT 8.091 RMS BANDWIDTH 8.343 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 14 PROFILE 159 MAX WAVEFRONT 10 AVG WAVEFRONT 5.300 RMS WAVEFRONT 5.913 RMS BANDWIDTH 6.348 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 18 14 PROFILE (P) 206 159 MAXIMUM WAVEFRONT (C-MAX) 16 10 AVERAGE WAVEFRONT (C-AVG) 6.867 5.300 RMS WAVEFRONT (C-RMS) 8.091 5.913 RMS BANDWITCH (B-RMS) 8.343 6.348 NUMBER OF GRID POINTS (N) 30 NUMBER OF ELEMENTS (NON-RIGID) 16 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 2 MAXIMUM NODAL DEGREE 17 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 112 MATRIX DENSITY, PERCENT 28.222 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 8 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T09-05-1A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 4 2 2 3 1 4 7 SEQGP 5 5 6 3 7 10 8 8 SEQGP 9 6 10 12 11 11 12 9 SEQGP 101 23 103 24 104 25 105 19 SEQGP 107 20 108 26 113 13 115 14 SEQGP 116 15 117 17 119 18 120 16 SEQGP 121 30 123 29 124 28 125 21 SEQGP 127 22 128 27 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HEXA1 ELEMENTS (ELEMENT TYPE 41) STARTING WITH ID 201 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIA2 ELEMENTS (ELEMENT TYPE 17) STARTING WITH ID 1 3 ROOTS BELOW 4.066277E+07 2 ROOTS BELOW 2.953738E+07 1 ROOTS BELOW 9.989824E+06 0 ROOTS BELOW 2.750434E+06 4 ROOTS BELOW 1.152644E+08 5 ROOTS BELOW 1.704405E+08 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T09-05-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 5 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 6 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 41 0 REASON FOR TERMINATION . . . . . . . . . . . 7* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* 1 OR MORE ROOT OUTSIDE FR.RANGE. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T09-05-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3308, LOWEST EIGENVALUE FOUND * * AS INDICATED BY THE STURM'S SEQUENCE OF THE DYNAMIC MATRIX * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 3 2.750440E+06 1.658445E+03 2.639497E+02 0.0 0.0 2 2 1.002666E+07 3.166491E+03 5.039627E+02 0.0 0.0 3 1 2.953982E+07 5.435054E+03 8.650157E+02 0.0 0.0 4 4 1.152644E+08 1.073612E+04 1.708707E+03 0.0 0.0 5 5 1.703117E+08 1.305035E+04 2.077028E+03 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T09-05-1A 0 EIGENVALUE = 0.275044E+07 (CYCLIC FREQUENCY = 2.639497E+02 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -1.008953E-04 4.014370E-04 -4.120846E-05 -3.119369E-02 2.116814E-03 7.146824E-03 2 G -1.008953E-04 4.014370E-04 -4.120846E-05 -3.119369E-02 2.116814E-03 7.146824E-03 3 G -1.008953E-04 4.014370E-04 -4.120846E-05 -3.119369E-02 2.116814E-03 7.146824E-03 4 G -5.969279E-02 1.159025E-01 1.844799E-02 9.528162E-02 -3.820274E-01 -1.288756E-01 5 G -1.955961E-02 5.591340E-02 3.527669E-04 -4.240234E-02 -6.139410E-02 -8.642721E-02 6 G -3.857643E-03 -4.518311E-03 2.240696E-03 1.340556E-02 -6.927564E-02 -6.291339E-02 7 G -2.203361E-01 3.679816E-01 5.996870E-02 0.0 0.0 -1.766986E-01 8 G -1.218748E-01 2.880024E-01 -5.569418E-05 -2.790685E-01 1.625334E-01 -1.604986E-01 9 G -2.651471E-02 1.768572E-01 -3.579283E-02 -1.940567E-01 8.532045E-02 -1.890912E-01 10 G -7.227613E-01 9.916431E-01 1.975125E-01 0.0 0.0 -7.758260E-02 11 G -6.846546E-01 1.000000E+00 1.869314E-02 -9.064201E-01 3.145599E-01 -1.165649E-01 12 G -4.411234E-01 8.489342E-01 -1.060966E-01 0.0 0.0 -2.961657E-01 101 G -4.305560E-05 -2.700192E-04 -6.777669E-05 0.0 0.0 0.0 103 G -2.077179E-05 -2.560475E-04 -6.414152E-05 0.0 0.0 0.0 104 G -2.105037E-05 -2.559256E-04 -6.405383E-05 0.0 0.0 0.0 105 G -2.077179E-05 -2.560475E-04 -6.414152E-05 0.0 0.0 0.0 107 G -4.305560E-05 -2.700192E-04 -6.777669E-05 0.0 0.0 0.0 108 G -4.351721E-05 -2.697697E-04 -6.761796E-05 0.0 0.0 0.0 113 G -4.434361E-05 -3.951196E-04 -9.555039E-05 0.0 0.0 0.0 115 G -3.904878E-05 -4.065024E-04 -1.043494E-04 0.0 0.0 0.0 116 G -1.008953E-04 4.014370E-04 -4.120846E-05 0.0 0.0 0.0 117 G -3.904878E-05 -4.065024E-04 -1.043494E-04 0.0 0.0 0.0 119 G -4.434361E-05 -3.951196E-04 -9.555039E-05 0.0 0.0 0.0 120 G -1.008953E-04 4.014370E-04 -4.120846E-05 0.0 0.0 0.0 121 G -2.604651E-05 0.0 0.0 0.0 0.0 0.0 123 G -2.502947E-05 0.0 0.0 0.0 0.0 0.0 124 G -2.499399E-05 0.0 0.0 0.0 0.0 0.0 125 G -2.502947E-05 0.0 0.0 0.0 0.0 0.0 127 G -2.604651E-05 0.0 0.0 0.0 0.0 0.0 128 G -2.599116E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T09-05-1A 0 EIGENVALUE = 0.100267E+08 (CYCLIC FREQUENCY = 5.039627E+02 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.623800E-05 6.724903E-04 -6.236534E-05 -4.357360E-02 3.644540E-03 7.381956E-03 2 G 2.623800E-05 6.724903E-04 -6.236534E-05 -4.357360E-02 3.644540E-03 7.381956E-03 3 G 2.623800E-05 6.724903E-04 -6.236534E-05 -4.357360E-02 3.644540E-03 7.381956E-03 4 G -6.729877E-02 1.368285E-01 2.219187E-02 1.807743E-02 -2.662928E-01 -1.240145E-01 5 G -2.308343E-02 7.064103E-02 4.369340E-04 -5.151695E-02 -6.339529E-02 -1.056618E-01 6 G -3.868906E-03 -2.967898E-03 1.693245E-03 1.702788E-02 -9.005885E-02 -7.761332E-02 7 G -1.990092E-01 3.629403E-01 5.868076E-02 0.0 0.0 -1.402750E-01 8 G -1.028556E-01 2.848747E-01 7.043975E-04 -2.908390E-01 2.398205E-01 -1.413445E-01 9 G -2.034148E-02 1.876866E-01 -3.868258E-02 -1.703575E-01 3.431847E-02 -2.046720E-01 10 G 3.565546E-01 3.402882E-02 -3.010962E-02 0.0 0.0 -2.968800E-02 11 G 4.507257E-01 -1.211050E-02 -4.691050E-03 1.000000E+00 -3.356183E-01 5.615604E-02 12 G 3.028876E-01 6.974810E-02 -6.602697E-03 0.0 0.0 1.339207E-01 101 G -6.514444E-05 -4.453160E-04 1.804431E-05 0.0 0.0 0.0 103 G -5.018626E-05 -4.202039E-04 1.864642E-05 0.0 0.0 0.0 104 G -5.061218E-05 -4.201020E-04 1.870412E-05 0.0 0.0 0.0 105 G -5.018626E-05 -4.202039E-04 1.864642E-05 0.0 0.0 0.0 107 G -6.514444E-05 -4.453160E-04 1.804431E-05 0.0 0.0 0.0 108 G -6.587892E-05 -4.450590E-04 1.815476E-05 0.0 0.0 0.0 113 G -6.207683E-05 -6.620400E-04 2.973177E-05 0.0 0.0 0.0 115 G -6.412280E-05 -6.809111E-04 2.255208E-05 0.0 0.0 0.0 116 G 2.623800E-05 6.724903E-04 -6.236534E-05 0.0 0.0 0.0 117 G -6.412280E-05 -6.809111E-04 2.255208E-05 0.0 0.0 0.0 119 G -6.207683E-05 -6.620400E-04 2.973177E-05 0.0 0.0 0.0 120 G 2.623800E-05 6.724903E-04 -6.236534E-05 0.0 0.0 0.0 121 G -3.586352E-05 0.0 0.0 0.0 0.0 0.0 123 G -5.830711E-05 0.0 0.0 0.0 0.0 0.0 124 G -5.824635E-05 0.0 0.0 0.0 0.0 0.0 125 G -5.830711E-05 0.0 0.0 0.0 0.0 0.0 127 G -3.586352E-05 0.0 0.0 0.0 0.0 0.0 128 G -3.578415E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T09-05-1A 0 EIGENVALUE = 0.295398E+08 (CYCLIC FREQUENCY = 8.650157E+02 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.917168E-05 6.087690E-05 -7.376582E-06 1.941467E-03 3.274512E-05 -3.001204E-04 2 G 2.917168E-05 6.087690E-05 -7.376582E-06 1.941467E-03 3.274512E-05 -3.001204E-04 3 G 2.917168E-05 6.087690E-05 -7.376582E-06 1.941467E-03 3.274512E-05 -3.001204E-04 4 G 4.121222E-03 -6.630537E-03 -7.695593E-04 -2.223376E-02 5.217570E-02 1.079280E-02 5 G 8.525265E-04 -1.616871E-03 -3.546287E-04 -1.763270E-03 6.539040E-03 5.956567E-03 6 G 1.440334E-04 9.627732E-04 2.172956E-06 -1.354891E-03 4.916601E-03 3.014216E-03 7 G 2.717084E-02 -1.981895E-02 -3.063918E-03 0.0 0.0 2.876871E-02 8 G -5.404507E-03 8.931376E-03 -1.073602E-03 6.773624E-02 -1.264858E-01 1.390513E-02 9 G -5.707735E-03 9.248644E-03 -1.372412E-03 6.485240E-04 -4.904847E-02 1.726538E-03 10 G 3.234815E-01 -1.087765E-01 -3.461191E-02 0.0 0.0 4.175634E-01 11 G -6.394262E-02 6.111007E-02 -2.884397E-04 1.000000E+00 -6.634098E-01 1.209384E-01 12 G -4.940680E-02 5.249030E-02 -6.559387E-03 0.0 0.0 1.465381E-02 101 G -6.678972E-06 -3.868133E-05 1.990460E-05 0.0 0.0 0.0 103 G -8.360615E-06 -3.606938E-05 1.938770E-05 0.0 0.0 0.0 104 G -8.383087E-06 -3.607219E-05 1.938023E-05 0.0 0.0 0.0 105 G -8.360615E-06 -3.606938E-05 1.938770E-05 0.0 0.0 0.0 107 G -6.678972E-06 -3.868133E-05 1.990460E-05 0.0 0.0 0.0 108 G -6.722671E-06 -3.868625E-05 1.989114E-05 0.0 0.0 0.0 113 G -6.451223E-06 -6.003368E-05 2.865229E-05 0.0 0.0 0.0 115 G -8.139615E-06 -6.156005E-05 2.920572E-05 0.0 0.0 0.0 116 G 2.917168E-05 6.087690E-05 -7.376582E-06 0.0 0.0 0.0 117 G -8.139615E-06 -6.156005E-05 2.920572E-05 0.0 0.0 0.0 119 G -6.451223E-06 -6.003368E-05 2.865229E-05 0.0 0.0 0.0 120 G 2.917168E-05 6.087690E-05 -7.376582E-06 0.0 0.0 0.0 121 G -3.566089E-06 0.0 0.0 0.0 0.0 0.0 123 G -8.827892E-06 0.0 0.0 0.0 0.0 0.0 124 G -8.823911E-06 0.0 0.0 0.0 0.0 0.0 125 G -8.827892E-06 0.0 0.0 0.0 0.0 0.0 127 G -3.566089E-06 0.0 0.0 0.0 0.0 0.0 128 G -3.562640E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T09-05-1A 0 EIGENVALUE = 0.115264E+09 (CYCLIC FREQUENCY = 1.708707E+03 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 1.372115E-03 4.225346E-03 -3.540588E-04 -1.210787E-01 4.016348E-02 -2.865965E-03 2 G 1.372115E-03 4.225346E-03 -3.540588E-04 -1.210787E-01 4.016348E-02 -2.865965E-03 3 G 1.372115E-03 4.225346E-03 -3.540588E-04 -1.210787E-01 4.016348E-02 -2.865965E-03 4 G -6.134187E-02 1.815669E-01 3.200866E-02 -6.857625E-01 1.000000E+00 2.505394E-02 5 G -2.685541E-02 1.308355E-01 4.663749E-04 -1.501114E-02 -1.441683E-01 -1.625627E-01 6 G 1.467198E-03 2.519370E-02 -7.949186E-03 1.904494E-02 -2.379264E-01 -1.467509E-01 7 G 3.050741E-01 -1.160235E-01 -2.468242E-02 0.0 0.0 4.540608E-01 8 G 1.102734E-01 5.467810E-02 2.441748E-03 3.617477E-01 -3.439184E-01 2.477111E-01 9 G 6.495907E-02 1.016008E-01 -2.344039E-02 -6.135144E-02 2.022892E-01 1.377008E-01 10 G -1.775014E-02 9.526247E-02 2.998948E-02 0.0 0.0 -1.459866E-01 11 G -6.159945E-02 1.185418E-01 4.812315E-03 2.610450E-01 -3.816165E-01 -3.972743E-01 12 G 3.680703E-01 -1.210238E-01 1.044218E-02 0.0 0.0 -6.076558E-01 101 G -3.705513E-04 -2.769858E-03 9.347938E-04 0.0 0.0 0.0 103 G -4.108360E-04 -2.602971E-03 9.057014E-04 0.0 0.0 0.0 104 G -4.132360E-04 -2.603004E-03 9.055564E-04 0.0 0.0 0.0 105 G -4.108360E-04 -2.602971E-03 9.057014E-04 0.0 0.0 0.0 107 G -3.705513E-04 -2.769858E-03 9.347938E-04 0.0 0.0 0.0 108 G -3.747979E-04 -2.769322E-03 9.345764E-04 0.0 0.0 0.0 113 G -3.175862E-04 -4.161974E-03 1.360910E-03 0.0 0.0 0.0 115 G -3.981999E-04 -4.277540E-03 1.362637E-03 0.0 0.0 0.0 116 G 1.372115E-03 4.225346E-03 -3.540588E-04 0.0 0.0 0.0 117 G -3.981999E-04 -4.277540E-03 1.362637E-03 0.0 0.0 0.0 119 G -3.175862E-04 -4.161974E-03 1.360910E-03 0.0 0.0 0.0 120 G 1.372115E-03 4.225346E-03 -3.540588E-04 0.0 0.0 0.0 121 G -1.805352E-04 0.0 0.0 0.0 0.0 0.0 123 G -4.685532E-04 0.0 0.0 0.0 0.0 0.0 124 G -4.681698E-04 0.0 0.0 0.0 0.0 0.0 125 G -4.685532E-04 0.0 0.0 0.0 0.0 0.0 127 G -1.805352E-04 0.0 0.0 0.0 0.0 0.0 128 G -1.801319E-04 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T09-05-1A 0 EIGENVALUE = 0.170312E+09 (CYCLIC FREQUENCY = 2.077028E+03 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -7.400515E-04 -2.030058E-03 1.599471E-04 5.607332E-02 -1.318492E-02 2.599784E-03 2 G -7.400515E-04 -2.030058E-03 1.599471E-04 5.607332E-02 -1.318492E-02 2.599784E-03 3 G -7.400515E-04 -2.030058E-03 1.599471E-04 5.607332E-02 -1.318492E-02 2.599784E-03 4 G 4.300073E-02 -1.021012E-01 -1.758903E-02 6.415791E-02 -4.384133E-03 6.618038E-02 5 G 8.648653E-03 -5.194636E-02 -3.779225E-04 2.069411E-02 -2.916991E-02 7.492998E-02 6 G -1.736292E-03 -1.331633E-02 4.585541E-03 -2.839718E-03 1.214583E-01 5.332982E-02 7 G 4.191520E-03 -2.826474E-02 -9.615923E-03 0.0 0.0 2.845801E-01 8 G -1.178141E-01 8.052564E-02 1.775069E-03 -1.248945E-01 6.561895E-02 3.088376E-02 9 G -4.715649E-02 2.296891E-03 -2.398581E-03 -1.095117E-01 2.125489E-01 -1.940006E-01 10 G -3.047589E-02 -2.339875E-02 -1.034927E-02 0.0 0.0 -2.009949E-02 11 G -1.109626E-01 1.128882E-02 2.823422E-03 1.000000E+00 -5.749487E-01 -2.224884E-01 12 G 1.872118E-01 -1.544383E-01 2.029725E-02 0.0 0.0 -6.028445E-01 101 G 1.708101E-04 1.334110E-03 -5.056031E-04 0.0 0.0 0.0 103 G 1.984280E-04 1.253951E-03 -4.891119E-04 0.0 0.0 0.0 104 G 1.995905E-04 1.254026E-03 -4.890217E-04 0.0 0.0 0.0 105 G 1.984280E-04 1.253951E-03 -4.891119E-04 0.0 0.0 0.0 107 G 1.708101E-04 1.334110E-03 -5.056031E-04 0.0 0.0 0.0 108 G 1.728547E-04 1.333922E-03 -5.054593E-04 0.0 0.0 0.0 113 G 1.404651E-04 1.999791E-03 -7.329283E-04 0.0 0.0 0.0 115 G 1.837521E-04 2.055251E-03 -7.363191E-04 0.0 0.0 0.0 116 G -7.400515E-04 -2.030058E-03 1.599471E-04 0.0 0.0 0.0 117 G 1.837521E-04 2.055251E-03 -7.363191E-04 0.0 0.0 0.0 119 G 1.404651E-04 1.999791E-03 -7.329283E-04 0.0 0.0 0.0 120 G -7.400515E-04 -2.030058E-03 1.599471E-04 0.0 0.0 0.0 121 G 7.997924E-05 0.0 0.0 0.0 0.0 0.0 123 G 2.280011E-04 0.0 0.0 0.0 0.0 0.0 124 G 2.278128E-04 0.0 0.0 0.0 0.0 0.0 125 G 2.280011E-04 0.0 0.0 0.0 0.0 0.0 127 G 7.997924E-05 0.0 0.0 0.0 0.0 0.0 128 G 7.978847E-05 0.0 0.0 0.0 0.0 0.0 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 102 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN1313153056 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T09-05-1A 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 3 CBAR = 1 R = 3 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 4) TIME ESTIMATE = 0 SECONDS 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 FLUTTER SUMMARY POINT = 1 SIGMA VALUE = 180.000 DENSITY RATIO = 5.9164E-02 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.3000 3.3333333E+00 5.2285391E+03 -1.6557766E-01 2.6705930E+02 -4.3286465E+02 5.2285391E+03 0.3000 3.3333333E+00 8.7276660E+03 -4.7381431E-01 4.4578500E+02 -2.0676465E+03 8.7276660E+03 0.3000 3.3333333E+00 1.6184520E+04 1.0278430E-01 8.2666040E+02 8.3175726E+02 1.6184520E+04 0.3000 3.3333333E+00 2.5136564E+04 1.2614563E-01 1.2839061E+03 1.5854338E+03 2.5136564E+04 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 3 CBAR = 1 R = 3 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 4) TIME ESTIMATE = 0 SECONDS 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 FLUTTER SUMMARY POINT = 2 SIGMA VALUE = 180.000 DENSITY RATIO = 1.1833E-01 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.3000 3.3333333E+00 5.3653374E+03 -3.8685268E-01 2.7404657E+02 -1.0377976E+03 5.3653374E+03 0.3000 3.3333333E+00 6.8871235E+03 -5.9702295E-01 3.5177521E+02 -2.0558855E+03 6.8871235E+03 0.3000 3.3333333E+00 1.6837346E+04 1.2684578E-01 8.6000500E+02 1.0678730E+03 1.6837346E+04 0.3000 3.3333333E+00 2.2525551E+04 3.9959002E-01 1.1505427E+03 4.5004927E+03 2.2525551E+04 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 3 CBAR = 1 R = 3 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 4) TIME ESTIMATE = 0 SECONDS 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 FLUTTER SUMMARY POINT = 3 SIGMA VALUE = 180.000 DENSITY RATIO = 1.7749E-01 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.3000 3.3333333E+00 4.7588706E+03 -8.6614203E-01 2.4306993E+02 -2.0609290E+03 4.7588706E+03 0.3000 3.3333333E+00 6.4541729E+03 -3.1564197E-01 3.2966129E+02 -1.0186039E+03 6.4541729E+03 0.3000 3.3333333E+00 1.7099578E+04 5.7035197E-02 8.7339905E+02 4.8763889E+02 1.7099578E+04 0.3000 3.3333333E+00 2.1110262E+04 7.0239782E-01 1.0782537E+03 7.4139009E+03 2.1110262E+04 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 3 CBAR = 1 R = 3 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 4) TIME ESTIMATE = 0 SECONDS 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 FLUTTER SUMMARY POINT = 4 SIGMA VALUE = 180.000 DENSITY RATIO = 5.9164E-02 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.7000 1.4285715E+00 2.3200901E+03 8.2800306E-02 2.7650879E+02 9.6052086E+01 2.3200901E+03 0.7000 1.4285715E+00 4.5787788E+03 5.7060438E-01 5.4569977E+02 1.3063356E+03 4.5787788E+03 0.7000 1.4285715E+00 7.5253882E+03 3.4646183E-02 8.9687720E+02 1.3036299E+02 7.5253882E+03 0.7000 1.4285715E+00 1.2155751E+04 1.5704638E+00 1.4487247E+03 9.5450830E+03 1.2155751E+04 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 3 CBAR = 1 R = 3 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 4) TIME ESTIMATE = 0 SECONDS 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 FLUTTER SUMMARY POINT = 5 SIGMA VALUE = 180.000 DENSITY RATIO = 1.1833E-01 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.7000 1.4285715E+00 2.4292197E+03 1.1779245E-01 2.8951489E+02 1.4307187E+02 2.4292197E+03 0.7000 1.4285715E+00 3.1002129E+03 1.8174374E+00 3.6948398E+02 2.8172214E+03 3.1002129E+03 0.7000 1.4285715E+00 7.4595005E+03 9.7606987E-02 8.8902478E+02 3.6404968E+02 7.4595005E+03 0.7000 1.4285715E+00 8.6902676E+03 9.0902060E-01 1.0357078E+03 3.9498162E+03 8.6902676E+03 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 3 CBAR = 1 R = 3 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 4) TIME ESTIMATE = 0 SECONDS 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 FLUTTER SUMMARY POINT = 6 SIGMA VALUE = 180.000 DENSITY RATIO = 1.7749E-01 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.7000 1.4285715E+00 1.8574425E+03 2.6014574E+00 2.2137036E+02 2.4160288E+03 1.8574425E+03 0.7000 1.4285715E+00 2.5185530E+03 1.1469282E-01 3.0016165E+02 1.4442998E+02 2.5185530E+03 0.7000 1.4285715E+00 7.3397559E+03 1.0593233E-01 8.7475354E+02 3.8875873E+02 7.3397559E+03 0.7000 1.4285715E+00 9.3504668E+03 6.1482441E-01 1.1143905E+03 2.8744475E+03 9.3504668E+03 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 3 CBAR = 1 R = 3 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 4) TIME ESTIMATE = 0 SECONDS 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 FLUTTER SUMMARY POINT = 7 SIGMA VALUE = 180.000 DENSITY RATIO = 5.9164E-02 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 1.0000 1.0000000E+00 1.5430181E+03 2.1704328E-03 2.6271030E+02 1.6745085E+00 1.5430181E+03 1.0000 1.0000000E+00 2.9028047E+03 2.1600202E-02 4.9422406E+02 3.1350584E+01 2.9028047E+03 1.0000 1.0000000E+00 5.0393428E+03 1.2970367E-03 8.5798553E+02 3.2681062E+00 5.0393428E+03 1.0000 1.0000000E+00 9.5972275E+03 3.8441002E-02 1.6339993E+03 1.8446352E+02 9.5972275E+03 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 3 CBAR = 1 R = 3 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 4) TIME ESTIMATE = 0 SECONDS 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 FLUTTER SUMMARY POINT = 8 SIGMA VALUE = 180.000 DENSITY RATIO = 1.1833E-01 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 1.0000 1.0000000E+00 1.5356479E+03 4.6282099E-03 2.6145547E+02 3.5536506E+00 1.5356479E+03 1.0000 1.0000000E+00 2.8480579E+03 4.0396679E-02 4.8490302E+02 5.7526039E+01 2.8480579E+03 1.0000 1.0000000E+00 5.0002607E+03 3.9810673E-03 8.5133154E+02 9.9531870E+00 5.0002607E+03 1.0000 1.0000000E+00 9.2356270E+03 6.7343652E-02 1.5724341E+03 3.1098044E+02 9.2356270E+03 0*** USER INFORMATION MESSAGE 3028 B = 2 BBAR = 2 C = 3 CBAR = 1 R = 3 0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX DECOMPOSITION OF DATA BLOCK MXHH (N = 4) TIME ESTIMATE = 0 SECONDS 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 FLUTTER SUMMARY POINT = 9 SIGMA VALUE = 180.000 DENSITY RATIO = 1.7749E-01 METHOD = K KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 1.0000 1.0000000E+00 1.5281949E+03 7.3664812E-03 2.6018655E+02 5.6287098E+00 1.5281949E+03 1.0000 1.0000000E+00 2.7959749E+03 5.6636322E-02 4.7603549E+02 7.9176865E+01 2.7959749E+03 1.0000 1.0000000E+00 4.9631211E+03 7.9624970E-03 8.4500824E+02 1.9759418E+01 4.9631211E+03 1.0000 1.0000000E+00 8.9324688E+03 8.9521527E-02 1.5208192E+03 3.9982413E+02 8.9324688E+03 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 F R A M E **** **** **** **** ** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** **** 0 0 X-AXIS TITLE = VELOCITY-V 0 +---------------------------------------------------------+ +---------------------------------------------------------+ I I I I I FREQUENCY-F I I DAMPING-G I I I I I I 2.000000E+02 1.000000E+03 1.800000E+03 I I -5.000000E-01 7.500000E-01 2.000000E+00 I +---------------------------------------------------------+ +---------------------------------------------------------+ 0.0000E+00 I I I I I I 8.3333E+02 I I I I I I 1.6667E+03 I A I I I A I I 2.5000E+03 I 0 A I I I A 0 I I 3.3333E+03 I I I I I I 4.1667E+03 I 0 I I I 0 I I 5.0000E+03 I * A I I I * A I I 5.8333E+03 I I I I I I 6.6667E+03 I I I I I I 7.5000E+03 I 0 I I I 0 I I 8.3333E+03 I * I I I* I I 9.1667E+03 I I I I I I 1.0000E+04 I I A I I A I I 1.0833E+04 I I I I I I 1.1667E+04 I I I I I I 1.2500E+04 I I 0 I I I 0 I 1.3333E+04 I I I I I I 1.4167E+04 I I I I I I 1.5000E+04 I I I I I I 1.5833E+04 I * I I I * I I 1.6667E+04 I I I I I I 1.7500E+04 I I I I I I 1.8333E+04 I I I I I I 1.9167E+04 I I I I I I 2.0000E+04 I I I I I I 2.0833E+04 I I I I I I 2.1667E+04 I I I I I I 2.2500E+04 I I I I I I 2.3333E+04 I I I I I I 2.4167E+04 I I I I I I 1 2.5000E+04 I I * I I * I I 2.5833E+04 I I I I I I 2.6667E+04 I I I I I I 2.7500E+04 I I I I I I 2.8333E+04 I I I I I I 2.9167E+04 I I I I I I 3.0000E+04 I I I I I I +---------------------------------------------------------+ +---------------------------------------------------------+ 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * * * * * * * * * * * **** **** **** **** **** 0 0 X-AXIS TITLE = VELOCITY-V 0 +---------------------------------------------------------+ +---------------------------------------------------------+ I I I I I FREQUENCY-F I I DAMPING-G I I I I I I 2.000000E+02 9.000000E+02 1.600000E+03 I I -1.000000E+00 5.000000E-01 2.000000E+00 I +---------------------------------------------------------+ +---------------------------------------------------------+ 0.0000E+00 I I I I I I 6.9444E+02 I I I I I I 1.3889E+03 I A I I I A I I 2.0833E+03 I 0 I I I 0 I I 2.7778E+03 I 0 A I I I A I 0 I 3.4722E+03 I I I I I I 4.1667E+03 I I I I I I 4.8611E+03 I A I I I A I I 5.5556E+03 I * I I I * I I 6.2500E+03 I I I I I I 6.9444E+03 I * I I I * I I 7.6389E+03 I 0 I I 0 I I 8.3333E+03 I I I I I I 9.0278E+03 I I 0 AI I A I 0 I 9.7222E+03 I I I I I I 1.0417E+04 I I I I I I 1.1111E+04 I I I I I I 1.1806E+04 I I I I I I 1.2500E+04 I I I I I I 1.3194E+04 I I I I I I 1.3889E+04 I I I I I I 1.4583E+04 I I I I I I 1.5278E+04 I I I I I I 1.5972E+04 I I I I I I 1.6667E+04 I * I I I * I I 1.7361E+04 I I I I I I 1.8056E+04 I I I I I I 1.8750E+04 I I I I I I 1.9444E+04 I I I I I I 2.0139E+04 I I I I I I 1 2.0833E+04 I I I I I I 2.1528E+04 I I I I I I 2.2222E+04 I I * I I * I I 2.2917E+04 I I I I I I 2.3611E+04 I I I I I I 2.4306E+04 I I I I I I 2.5000E+04 I I I I I I +---------------------------------------------------------+ +---------------------------------------------------------+ 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T09-05-1A 0 0 F R A M E **** **** **** **** **** * * * * * * * * * * * * * * * * * *** * * * * * * * * * **** **** **** **** **** 0 0 X-AXIS TITLE = VELOCITY-V 0 +---------------------------------------------------------+ +---------------------------------------------------------+ I I I I I FREQUENCY-F I I DAMPING-G I I I I I I 2.000000E+02 9.000000E+02 1.600000E+03 I I -1.000000E+00 1.000000E+00 3.000000E+00 I +---------------------------------------------------------+ +---------------------------------------------------------+ 0.0000E+00 I I I I I I 6.9444E+02 I I I I I I 1.3889E+03 I A I I I A I I 2.0833E+03 I0 I I I I 0 I 2.7778E+03 I 0 A I I I A0 I I 3.4722E+03 I I I I I I 4.1667E+03 I I I I I I 4.8611E+03 I * A I I I * A I I 5.5556E+03 I I I I I I 6.2500E+03 I * I I I * I I 6.9444E+03 I I I I I I 7.6389E+03 I 0I I I 0 I I 8.3333E+03 I I I I I I 9.0278E+03 I I 0 A I I A 0 I I 9.7222E+03 I I I I I I 1.0417E+04 I I I I I I 1.1111E+04 I I I I I I 1.1806E+04 I I I I I I 1.2500E+04 I I I I I I 1.3194E+04 I I I I I I 1.3889E+04 I I I I I I 1.4583E+04 I I I I I I 1.5278E+04 I I I I I I 1.5972E+04 I I I I I I 1.6667E+04 I I I I I I 1.7361E+04 I *I I I * I I 1.8056E+04 I I I I I I 1.8750E+04 I I I I I I 1.9444E+04 I I I I I I 2.0139E+04 I I I I I I 1 2.0833E+04 I I * I I * I I 2.1528E+04 I I I I I I 2.2222E+04 I I I I I I 2.2917E+04 I I I I I I 2.3611E+04 I I I I I I 2.4306E+04 I I I I I I 2.5000E+04 I I I I I I +---------------------------------------------------------+ +---------------------------------------------------------+ 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GOD MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =1 MACH = 180. KFREQ= .3 RHO = 0.059164 COMPLEX EIGENVALUE = -4.328647E+02, 5.228539E+03 (CYCLIC FREQUENCY = 8.321478E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -9.030342E-05 4.238902E-04 -4.306068E-05 -3.134765E-02 2.357821E-03 7.000553E-03 2.888470E-05 -4.516955E-05 4.952570E-06 6.993254E-03 1.416572E-04 -1.736515E-03 0 2 G -9.030342E-05 4.238902E-04 -4.306068E-05 -3.134765E-02 2.357821E-03 7.000553E-03 2.888470E-05 -4.516955E-05 4.952570E-06 6.993254E-03 1.416572E-04 -1.736515E-03 0 3 G -9.030342E-05 4.238902E-04 -4.306068E-05 -3.134765E-02 2.357821E-03 7.000553E-03 2.888470E-05 -4.516955E-05 4.952570E-06 6.993254E-03 1.416572E-04 -1.736515E-03 0 4 G -5.896731E-02 1.148990E-01 1.831303E-02 8.927552E-02 -3.689167E-01 -1.264236E-01 1.386408E-02 -2.670752E-02 -4.247655E-03 -2.197279E-02 8.703668E-02 2.906367E-02 0 5 G -1.937003E-02 5.572224E-02 3.391077E-04 -4.175215E-02 -6.127402E-02 -8.579380E-02 4.574849E-03 -1.277182E-02 -1.133672E-04 1.099532E-02 1.121536E-02 2.015813E-02 0 6 G -3.781623E-03 -4.257127E-03 2.155176E-03 1.323911E-02 -6.947650E-02 -6.268991E-02 9.082771E-04 1.331962E-03 -5.656885E-04 -3.448141E-03 1.481461E-02 1.405553E-02 0 7 G -2.141551E-01 3.608285E-01 5.877233E-02 0.0 0.0 -1.702939E-01 5.366559E-02 -8.517324E-02 -1.390061E-02 0.0 0.0 4.422323E-02 0 8 G -1.195921E-01 2.841736E-01 -7.966765E-05 -2.698502E-01 1.525576E-01 -1.560342E-01 2.513223E-02 -6.153479E-02 -1.809432E-04 7.857052E-02 -7.124799E-02 3.844019E-02 0 9 G -2.587737E-02 1.749173E-01 -3.539616E-02 -1.918066E-01 8.486366E-02 -1.847944E-01 5.639520E-03 -3.873146E-02 7.964034E-03 3.657552E-02 -6.593068E-03 4.902437E-02 0 10 G -7.191872E-01 9.886759E-01 1.972114E-01 0.0 0.0 -6.615614E-02 -5.527660E-02 -1.361317E-02 4.787410E-03 0.0 0.0 3.495948E-02 0 11 G -6.940609E-01 1.002831E+00 1.879443E-02 -8.914191E-01 2.978960E-01 -1.169061E-01 -1.068150E-01 1.016272E-02 1.137896E-03 -1.406007E-01 1.525833E-02 -1.272289E-02 0 12 G -4.445969E-01 8.484515E-01 -1.061043E-01 0.0 0.0 -3.023560E-01 -6.256751E-02 -1.442004E-02 1.219913E-03 0.0 0.0 -4.313917E-02 0 101 G -4.496607E-05 -2.846321E-04 -6.056248E-05 0.0 0.0 0.0 5.234479E-06 3.070131E-05 1.964322E-05 0.0 0.0 0.0 0 103 G -2.326500E-05 -2.697448E-04 -5.716721E-05 0.0 0.0 0.0 8.170464E-07 2.925613E-05 1.878027E-05 0.0 0.0 0.0 0 104 G -2.355529E-05 -2.696248E-04 -5.708173E-05 0.0 0.0 0.0 8.534216E-07 2.923243E-05 1.876340E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =1 MACH = 180. KFREQ= .3 RHO = 0.059164 COMPLEX EIGENVALUE = -4.328647E+02, 5.228539E+03 (CYCLIC FREQUENCY = 8.321478E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -2.326500E-05 -2.697448E-04 -5.716721E-05 0.0 0.0 0.0 8.170464E-07 2.925613E-05 1.878027E-05 0.0 0.0 0.0 0 107 G -4.496607E-05 -2.846321E-04 -6.056248E-05 0.0 0.0 0.0 5.234479E-06 3.070131E-05 1.964322E-05 0.0 0.0 0.0 0 108 G -4.544882E-05 -2.843828E-04 -6.040748E-05 0.0 0.0 0.0 5.294275E-06 3.065636E-05 1.961242E-05 0.0 0.0 0.0 0 113 G -4.590353E-05 -4.172438E-04 -8.511163E-05 0.0 0.0 0.0 5.822948E-06 4.440555E-05 2.780074E-05 0.0 0.0 0.0 0 115 G -4.122229E-05 -4.292291E-04 -9.376866E-05 0.0 0.0 0.0 4.240337E-06 4.575810E-05 2.948446E-05 0.0 0.0 0.0 0 116 G -9.030342E-05 4.238902E-04 -4.306068E-05 0.0 0.0 0.0 2.888470E-05 -4.516955E-05 4.952570E-06 0.0 0.0 0.0 0 117 G -4.122229E-05 -4.292291E-04 -9.376866E-05 0.0 0.0 0.0 4.240337E-06 4.575810E-05 2.948446E-05 0.0 0.0 0.0 0 119 G -4.590353E-05 -4.172438E-04 -8.511163E-05 0.0 0.0 0.0 5.822948E-06 4.440555E-05 2.780074E-05 0.0 0.0 0.0 0 120 G -9.030342E-05 4.238902E-04 -4.306068E-05 0.0 0.0 0.0 2.888470E-05 -4.516955E-05 4.952570E-06 0.0 0.0 0.0 0 121 G -2.692127E-05 0.0 0.0 0.0 0.0 0.0 3.446079E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -2.783567E-05 0.0 0.0 0.0 0.0 0.0 1.224315E-06 0.0 0.0 0.0 0.0 0.0 0 124 G -2.779820E-05 0.0 0.0 0.0 0.0 0.0 1.220156E-06 0.0 0.0 0.0 0.0 0.0 0 125 G -2.783567E-05 0.0 0.0 0.0 0.0 0.0 1.224315E-06 0.0 0.0 0.0 0.0 0.0 0 127 G -2.692127E-05 0.0 0.0 0.0 0.0 0.0 3.446079E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -2.686409E-05 0.0 0.0 0.0 0.0 0.0 3.438202E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =1 MACH = 180. KFREQ= .3 RHO = 0.059164 COMPLEX EIGENVALUE = -2.067646E+03, 8.727666E+03 (CYCLIC FREQUENCY = 1.389051E+03HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -1.928583E-05 5.416403E-04 -5.116181E-05 -4.046015E-02 2.459034E-03 7.562381E-03 7.558664E-05 3.636605E-04 -3.242585E-05 -1.341259E-02 3.010701E-03 1.126336E-03 0 2 G -1.928583E-05 5.416403E-04 -5.116181E-05 -4.046015E-02 2.459034E-03 7.562381E-03 7.558664E-05 3.636605E-04 -3.242585E-05 -1.341259E-02 3.010701E-03 1.126336E-03 0 3 G -1.928583E-05 5.416403E-04 -5.116181E-05 -4.046015E-02 2.459034E-03 7.562381E-03 7.558664E-05 3.636605E-04 -3.242585E-05 -1.341259E-02 3.010701E-03 1.126336E-03 0 4 G -6.647413E-02 1.331850E-01 2.148180E-02 4.218137E-02 -3.059221E-01 -1.271788E-01 -1.456808E-02 3.262132E-02 5.455366E-03 -3.080018E-02 2.379447E-03 -2.086148E-02 0 5 G -2.254656E-02 6.738661E-02 4.722218E-04 -5.116855E-02 -6.043064E-02 -1.022673E-01 -5.318420E-03 1.887599E-02 2.098262E-05 -9.522402E-03 -1.972315E-02 -2.586126E-02 0 6 G -3.961564E-03 -3.880475E-03 1.947458E-03 1.674180E-02 -8.414714E-02 -7.412181E-02 -6.170241E-04 9.671972E-04 -8.161727E-05 3.518809E-03 -2.765395E-02 -2.094928E-02 0 7 G -2.133812E-01 3.718615E-01 6.028509E-02 0.0 0.0 -1.589594E-01 -1.682182E-02 5.908279E-02 9.291393E-03 0.0 0.0 1.561437E-03 0 8 G -1.063852E-01 2.843170E-01 7.717671E-04 -3.126716E-01 2.679088E-01 -1.518024E-01 -1.752737E-02 6.095957E-02 -8.639024E-05 -1.565216E-02 -1.842194E-02 -1.188640E-02 0 9 G -2.173749E-02 1.848227E-01 -3.808254E-02 -1.701240E-01 3.537471E-02 -2.104769E-01 -2.150952E-03 4.264914E-02 -8.708871E-03 -4.120899E-02 1.884456E-02 -2.715315E-02 0 10 G 3.090870E-01 5.315721E-02 -2.493252E-02 0.0 0.0 -8.063015E-02 -7.004043E-02 1.735409E-01 3.246194E-02 0.0 0.0 6.642437E-02 0 11 G 4.556063E-01 -1.586257E-02 -4.651214E-03 8.541797E-01 -2.348970E-01 5.125511E-02 -1.497847E-01 2.135999E-01 3.849514E-03 5.971607E-02 -1.083332E-01 -2.183212E-02 0 12 G 2.949477E-01 7.309268E-02 -6.881128E-03 0.0 0.0 1.478158E-01 -7.193787E-02 1.671395E-01 -2.119099E-02 0.0 0.0 -9.314235E-02 0 101 G -5.355485E-05 -3.597533E-04 -1.296665E-05 0.0 0.0 0.0 -3.369591E-05 -2.394476E-04 5.168743E-05 0.0 0.0 0.0 0 103 G -3.700157E-05 -3.398512E-04 -1.140098E-05 0.0 0.0 0.0 -3.237227E-05 -2.254019E-04 5.039509E-05 0.0 0.0 0.0 0 104 G -3.735514E-05 -3.397470E-04 -1.133730E-05 0.0 0.0 0.0 -3.258593E-05 -2.253812E-04 5.040098E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =1 MACH = 180. KFREQ= .3 RHO = 0.059164 COMPLEX EIGENVALUE = -2.067646E+03, 8.727666E+03 (CYCLIC FREQUENCY = 1.389051E+03HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -3.700157E-05 -3.398512E-04 -1.140098E-05 0.0 0.0 0.0 -3.237227E-05 -2.254019E-04 5.039509E-05 0.0 0.0 0.0 0 107 G -5.355485E-05 -3.597533E-04 -1.296665E-05 0.0 0.0 0.0 -3.369591E-05 -2.394476E-04 5.168743E-05 0.0 0.0 0.0 0 108 G -5.416056E-05 -3.595098E-04 -1.284673E-05 0.0 0.0 0.0 -3.406880E-05 -2.393659E-04 5.170103E-05 0.0 0.0 0.0 0 113 G -5.210654E-05 -5.331411E-04 -1.534828E-05 0.0 0.0 0.0 -3.047137E-05 -3.581643E-04 7.577921E-05 0.0 0.0 0.0 0 115 G -5.148620E-05 -5.484546E-04 -2.272047E-05 0.0 0.0 0.0 -3.502857E-05 -3.681582E-04 7.431606E-05 0.0 0.0 0.0 0 116 G -1.928583E-05 5.416403E-04 -5.116181E-05 0.0 0.0 0.0 7.558664E-05 3.636605E-04 -3.242585E-05 0.0 0.0 0.0 0 117 G -5.148620E-05 -5.484546E-04 -2.272047E-05 0.0 0.0 0.0 -3.502857E-05 -3.681582E-04 7.431606E-05 0.0 0.0 0.0 0 119 G -5.210654E-05 -5.331411E-04 -1.534828E-05 0.0 0.0 0.0 -3.047137E-05 -3.581643E-04 7.577921E-05 0.0 0.0 0.0 0 120 G -1.928583E-05 5.416403E-04 -5.116181E-05 0.0 0.0 0.0 7.558664E-05 3.636605E-04 -3.242585E-05 0.0 0.0 0.0 0 121 G -3.021559E-05 0.0 0.0 0.0 0.0 0.0 -1.746138E-05 0.0 0.0 0.0 0.0 0.0 0 123 G -4.337321E-05 0.0 0.0 0.0 0.0 0.0 -3.702440E-05 0.0 0.0 0.0 0.0 0.0 0 124 G -4.332413E-05 0.0 0.0 0.0 0.0 0.0 -3.699192E-05 0.0 0.0 0.0 0.0 0.0 0 125 G -4.337321E-05 0.0 0.0 0.0 0.0 0.0 -3.702440E-05 0.0 0.0 0.0 0.0 0.0 0 127 G -3.021559E-05 0.0 0.0 0.0 0.0 0.0 -1.746138E-05 0.0 0.0 0.0 0.0 0.0 0 128 G -3.014827E-05 0.0 0.0 0.0 0.0 0.0 -1.742391E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 44 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =1 MACH = 180. KFREQ= .3 RHO = 0.059164 COMPLEX EIGENVALUE = 8.317573E+02, 1.618452E+04 (CYCLIC FREQUENCY = 2.575846E+03HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 6.152826E-05 2.026567E-04 -1.969171E-05 -3.665744E-03 1.216076E-03 1.226585E-04 8.177963E-05 4.058392E-04 -3.558405E-05 -1.761855E-02 3.199078E-03 1.693901E-03 0 2 G 6.152826E-05 2.026567E-04 -1.969171E-05 -3.665744E-03 1.216076E-03 1.226585E-04 8.177963E-05 4.058392E-04 -3.558405E-05 -1.761855E-02 3.199078E-03 1.693901E-03 0 3 G 6.152826E-05 2.026567E-04 -1.969171E-05 -3.665744E-03 1.216076E-03 1.226585E-04 8.177963E-05 4.058392E-04 -3.558405E-05 -1.761855E-02 3.199078E-03 1.693901E-03 0 4 G -1.734811E-03 6.539357E-03 1.421330E-03 -3.604110E-02 5.611304E-02 2.961868E-03 -2.032565E-02 4.443139E-02 7.342481E-03 -3.249651E-02 -1.345328E-02 -3.010704E-02 0 5 G -1.278408E-03 6.000019E-03 -3.156451E-04 -5.411897E-03 -1.160034E-03 -4.692297E-03 -7.276890E-03 2.495313E-02 1.346912E-04 -1.358977E-02 -2.434065E-02 -3.549958E-02 0 6 G -8.056958E-05 1.340172E-03 -6.487375E-05 1.786375E-04 -6.469184E-03 -5.455693E-03 -8.937424E-04 6.560110E-04 -1.337883E-05 5.287509E-03 -3.586853E-02 -2.764232E-02 0 7 G 2.072452E-02 1.890766E-03 3.125925E-04 0.0 0.0 2.956882E-02 -3.342131E-02 8.531024E-02 1.346604E-02 0.0 0.0 -1.044176E-02 0 8 G -1.003457E-02 2.946810E-02 -9.821990E-04 5.712555E-02 -1.201537E-01 9.996573E-03 -2.030514E-02 7.538796E-02 2.932156E-04 -5.221140E-02 3.802659E-02 -2.207748E-02 0 9 G -5.630418E-03 2.410826E-02 -4.482446E-03 -1.274879E-02 -4.087064E-02 -8.415081E-03 -1.596893E-03 5.301978E-02 -1.104940E-02 -4.751344E-02 2.221868E-02 -4.326700E-02 0 10 G 3.259896E-01 -8.552232E-02 -3.147624E-02 0.0 0.0 4.111146E-01 5.123195E-02 4.784373E-02 2.130100E-03 0.0 0.0 -1.767050E-02 0 11 G -5.725134E-02 8.288492E-02 -3.202772E-05 1.036374E+00 -6.825020E-01 1.117724E-01 7.055043E-02 3.943400E-02 -8.513540E-05 2.011623E-01 -8.420832E-02 -1.491579E-02 0 12 G -3.467161E-02 6.945505E-02 -8.691484E-03 0.0 0.0 6.293124E-04 7.183532E-02 3.805557E-02 -4.567042E-03 0.0 0.0 -1.649734E-02 0 101 G -1.956032E-05 -1.319704E-04 4.197528E-05 0.0 0.0 0.0 -3.721160E-05 -2.672583E-04 5.578541E-05 0.0 0.0 0.0 0 103 G -2.106414E-05 -1.238645E-04 4.085683E-05 0.0 0.0 0.0 -3.550507E-05 -2.516111E-04 5.435657E-05 0.0 0.0 0.0 0 104 G -2.117023E-05 -1.238609E-04 4.085032E-05 0.0 0.0 0.0 -3.574694E-05 -2.515865E-04 5.436381E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 45 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =1 MACH = 180. KFREQ= .3 RHO = 0.059164 COMPLEX EIGENVALUE = 8.317573E+02, 1.618452E+04 (CYCLIC FREQUENCY = 2.575846E+03HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -2.106414E-05 -1.238645E-04 4.085683E-05 0.0 0.0 0.0 -3.550507E-05 -2.516111E-04 5.435657E-05 0.0 0.0 0.0 0 107 G -1.956032E-05 -1.319704E-04 4.197528E-05 0.0 0.0 0.0 -3.721160E-05 -2.672583E-04 5.578541E-05 0.0 0.0 0.0 0 108 G -1.975045E-05 -1.319452E-04 4.196496E-05 0.0 0.0 0.0 -3.763430E-05 -2.671624E-04 5.580245E-05 0.0 0.0 0.0 0 113 G -1.793463E-05 -1.996639E-04 6.100987E-05 0.0 0.0 0.0 -3.351530E-05 -3.996626E-04 8.207897E-05 0.0 0.0 0.0 0 115 G -2.156045E-05 -2.050987E-04 6.109051E-05 0.0 0.0 0.0 -3.845217E-05 -4.108809E-04 8.030491E-05 0.0 0.0 0.0 0 116 G 6.152826E-05 2.026567E-04 -1.969171E-05 0.0 0.0 0.0 8.177963E-05 4.058392E-04 -3.558405E-05 0.0 0.0 0.0 0 117 G -2.156045E-05 -2.050987E-04 6.109051E-05 0.0 0.0 0.0 -3.845217E-05 -4.108809E-04 8.030491E-05 0.0 0.0 0.0 0 119 G -1.793463E-05 -1.996639E-04 6.100987E-05 0.0 0.0 0.0 -3.351530E-05 -3.996626E-04 8.207897E-05 0.0 0.0 0.0 0 120 G 6.152826E-05 2.026567E-04 -1.969171E-05 0.0 0.0 0.0 8.177963E-05 4.058392E-04 -3.558405E-05 0.0 0.0 0.0 0 121 G -1.013778E-05 0.0 0.0 0.0 0.0 0.0 -1.920701E-05 0.0 0.0 0.0 0.0 0.0 0 123 G -2.339333E-05 0.0 0.0 0.0 0.0 0.0 -4.077347E-05 0.0 0.0 0.0 0.0 0.0 0 124 G -2.337652E-05 0.0 0.0 0.0 0.0 0.0 -4.073673E-05 0.0 0.0 0.0 0.0 0.0 0 125 G -2.339333E-05 0.0 0.0 0.0 0.0 0.0 -4.077347E-05 0.0 0.0 0.0 0.0 0.0 0 127 G -1.013778E-05 0.0 0.0 0.0 0.0 0.0 -1.920701E-05 0.0 0.0 0.0 0.0 0.0 0 128 G -1.011974E-05 0.0 0.0 0.0 0.0 0.0 -1.916437E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 46 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =1 MACH = 180. KFREQ= .3 RHO = 0.059164 COMPLEX EIGENVALUE = 1.585434E+03, 2.513656E+04 (CYCLIC FREQUENCY = 4.000608E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 1.352009E-03 4.638341E-03 -3.914367E-04 -1.532798E-01 4.263696E-02 2.795157E-03 -8.577006E-06 1.863564E-04 -1.696130E-05 -1.430913E-02 1.103194E-03 2.528480E-03 0 2 G 1.352009E-03 4.638341E-03 -3.914367E-04 -1.532798E-01 4.263696E-02 2.795157E-03 -8.577006E-06 1.863564E-04 -1.696130E-05 -1.430913E-02 1.103194E-03 2.528480E-03 0 3 G 1.352009E-03 4.638341E-03 -3.914367E-04 -1.532798E-01 4.263696E-02 2.795157E-03 -8.577006E-06 1.863564E-04 -1.696130E-05 -1.430913E-02 1.103194E-03 2.528480E-03 0 4 G -1.134100E-01 2.853298E-01 4.854505E-02 -6.447774E-01 7.467450E-01 -7.582906E-02 -2.316909E-02 4.620300E-02 7.372532E-03 1.794598E-02 -1.122684E-01 -4.488948E-02 0 5 G -4.414425E-02 1.824484E-01 1.067695E-03 -5.045042E-02 -1.960203E-01 -2.429944E-01 -7.708306E-03 2.302528E-02 2.551310E-04 -1.593238E-02 -2.300620E-02 -3.576367E-02 0 6 G -1.502781E-03 2.202791E-02 -6.634552E-03 3.226483E-02 -3.058095E-01 -2.046505E-01 -1.327700E-03 -1.391392E-03 5.935542E-04 5.860262E-03 -3.016225E-02 -2.579162E-02 0 7 G 1.334800E-01 1.684867E-01 2.126125E-02 0.0 0.0 3.226280E-01 -7.607103E-02 1.269784E-01 2.051318E-02 0.0 0.0 -5.805952E-02 0 8 G 3.647197E-02 2.579077E-01 3.743828E-03 9.338996E-02 -7.331997E-02 1.297452E-01 -3.346810E-02 9.163692E-02 5.367133E-04 -1.176835E-01 1.159272E-01 -5.251628E-02 0 9 G 5.385205E-02 2.311637E-01 -5.049812E-02 -1.904602E-01 2.739092E-01 -1.276207E-02 -5.254665E-03 5.849076E-02 -1.218881E-02 -5.808407E-02 3.046254E-02 -6.740259E-02 0 10 G -1.516244E-01 3.270510E-01 6.405394E-02 0.0 0.0 -5.145283E-01 -5.320335E-02 1.051838E-01 1.520290E-02 0.0 0.0 -1.488127E-01 0 11 G 1.832364E-01 1.843744E-01 4.467000E-03 -5.211517E-02 -7.751644E-03 -4.758106E-01 1.007995E-01 3.787471E-02 -3.199182E-05 -1.110137E-01 1.446947E-01 -3.135150E-02 0 12 G 5.401883E-01 -1.645844E-02 -1.327410E-03 0.0 0.0 -5.737913E-01 7.099269E-02 5.357455E-02 -6.124595E-03 0.0 0.0 1.332225E-02 0 101 G -4.104337E-04 -3.045186E-03 9.212929E-04 0.0 0.0 0.0 -1.805219E-05 -1.241905E-04 -5.748968E-06 0.0 0.0 0.0 0 103 G -4.374103E-04 -2.863279E-03 8.934400E-04 0.0 0.0 0.0 -1.210253E-05 -1.174042E-04 -5.195925E-06 0.0 0.0 0.0 0 104 G -4.400880E-04 -2.863231E-03 8.933473E-04 0.0 0.0 0.0 -1.222729E-05 -1.173683E-04 -5.172548E-06 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 47 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =1 MACH = 180. KFREQ= .3 RHO = 0.059164 COMPLEX EIGENVALUE = 1.585434E+03, 2.513656E+04 (CYCLIC FREQUENCY = 4.000608E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -4.374103E-04 -2.863279E-03 8.934400E-04 0.0 0.0 0.0 -1.210253E-05 -1.174042E-04 -5.195925E-06 0.0 0.0 0.0 0 107 G -4.104337E-04 -3.045186E-03 9.212929E-04 0.0 0.0 0.0 -1.805219E-05 -1.241905E-04 -5.748968E-06 0.0 0.0 0.0 0 108 G -4.151527E-04 -3.044457E-03 9.211739E-04 0.0 0.0 0.0 -1.826457E-05 -1.241042E-04 -5.705055E-06 0.0 0.0 0.0 0 113 G -3.559280E-04 -4.568458E-03 1.344033E-03 0.0 0.0 0.0 -1.737630E-05 -1.834221E-04 -7.137546E-06 0.0 0.0 0.0 0 115 G -4.357690E-04 -4.695775E-03 1.339813E-03 0.0 0.0 0.0 -1.705562E-05 -1.887180E-04 -9.794794E-06 0.0 0.0 0.0 0 116 G 1.352009E-03 4.638341E-03 -3.914367E-04 0.0 0.0 0.0 -8.577006E-06 1.863564E-04 -1.696130E-05 0.0 0.0 0.0 0 117 G -4.357690E-04 -4.695775E-03 1.339813E-03 0.0 0.0 0.0 -1.705562E-05 -1.887180E-04 -9.794794E-06 0.0 0.0 0.0 0 119 G -3.559280E-04 -4.568458E-03 1.344033E-03 0.0 0.0 0.0 -1.737630E-05 -1.834221E-04 -7.137546E-06 0.0 0.0 0.0 0 120 G 1.352009E-03 4.638341E-03 -3.914367E-04 0.0 0.0 0.0 -8.577006E-06 1.863564E-04 -1.696130E-05 0.0 0.0 0.0 0 121 G -2.028703E-04 0.0 0.0 0.0 0.0 0.0 -1.011735E-05 0.0 0.0 0.0 0.0 0.0 0 123 G -5.002607E-04 0.0 0.0 0.0 0.0 0.0 -1.440419E-05 0.0 0.0 0.0 0.0 0.0 0 124 G -4.998388E-04 0.0 0.0 0.0 0.0 0.0 -1.438690E-05 0.0 0.0 0.0 0.0 0.0 0 125 G -5.002607E-04 0.0 0.0 0.0 0.0 0.0 -1.440419E-05 0.0 0.0 0.0 0.0 0.0 0 127 G -2.028703E-04 0.0 0.0 0.0 0.0 0.0 -1.011735E-05 0.0 0.0 0.0 0.0 0.0 0 128 G -2.024143E-04 0.0 0.0 0.0 0.0 0.0 -1.009365E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 48 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =2 MACH = 180. KFREQ= .3 RHO = .118328 COMPLEX EIGENVALUE = -1.037798E+03, 5.365337E+03 (CYCLIC FREQUENCY = 8.539199E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -7.184532E-05 4.923904E-04 -4.902034E-05 -3.369110E-02 2.927994E-03 7.113458E-03 7.118206E-05 -1.199209E-04 1.300367E-05 1.784367E-02 3.046186E-04 -4.387084E-03 0 2 G -7.184532E-05 4.923904E-04 -4.902034E-05 -3.369110E-02 2.927994E-03 7.113458E-03 7.118206E-05 -1.199209E-04 1.300367E-05 1.784367E-02 3.046186E-04 -4.387084E-03 0 3 G -7.184532E-05 4.923904E-04 -4.902034E-05 -3.369110E-02 2.927994E-03 7.113458E-03 7.118206E-05 -1.199209E-04 1.300367E-05 1.784367E-02 3.046186E-04 -4.387084E-03 0 4 G -6.100929E-02 1.198132E-01 1.915334E-02 8.042368E-02 -3.604210E-01 -1.283756E-01 3.513635E-02 -6.777197E-02 -1.078316E-02 -5.462611E-02 2.187064E-01 7.345022E-02 0 5 G -2.016348E-02 5.878308E-02 3.402807E-04 -4.311924E-02 -6.414689E-02 -8.982841E-02 1.160359E-02 -3.246958E-02 -2.869313E-04 2.782631E-02 2.854636E-02 5.118556E-02 0 6 G -3.841744E-03 -3.976015E-03 2.094903E-03 1.378648E-02 -7.413405E-02 -6.604072E-02 2.294702E-03 3.333604E-03 -1.419887E-03 -8.743488E-03 3.777469E-02 3.573554E-02 0 7 G -2.136678E-01 3.664837E-01 5.961994E-02 0.0 0.0 -1.666552E-01 1.352719E-01 -2.152068E-01 -3.511511E-02 0.0 0.0 1.111942E-01 0 8 G -1.206846E-01 2.913553E-01 -7.692874E-05 -2.690600E-01 1.485669E-01 -1.555218E-01 6.341174E-02 -1.556885E-01 -4.597019E-04 1.981326E-01 -1.795785E-01 9.686094E-02 0 9 G -2.574969E-02 1.805816E-01 -3.657305E-02 -1.962149E-01 8.614211E-02 -1.874740E-01 1.418025E-02 -9.808742E-02 2.017176E-02 9.257159E-02 -1.689107E-02 1.237851E-01 0 10 G -6.989477E-01 9.862894E-01 1.955625E-01 0.0 0.0 -5.213085E-02 -1.400933E-01 -3.443839E-02 1.210214E-02 0.0 0.0 8.816478E-02 0 11 G -6.875806E-01 1.006423E+00 1.874030E-02 -8.272086E-01 2.598462E-01 -1.157744E-01 -2.699602E-01 2.547744E-02 2.871339E-03 -3.569313E-01 3.978269E-02 -3.176888E-02 0 12 G -4.354998E-01 8.505514E-01 -1.063781E-01 0.0 0.0 -3.062957E-01 -1.586573E-01 -3.635784E-02 3.077748E-03 0.0 0.0 -1.082931E-01 0 101 G -5.115960E-05 -3.295849E-04 -4.798250E-05 0.0 0.0 0.0 1.373783E-05 8.137021E-05 4.840550E-05 0.0 0.0 0.0 0 103 G -2.969270E-05 -3.120152E-04 -4.494953E-05 0.0 0.0 0.0 2.622699E-06 7.749043E-05 4.626264E-05 0.0 0.0 0.0 0 104 G -3.002237E-05 -3.118935E-04 -4.486486E-05 0.0 0.0 0.0 2.717909E-06 7.743051E-05 4.622019E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 49 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =2 MACH = 180. KFREQ= .3 RHO = .118328 COMPLEX EIGENVALUE = -1.037798E+03, 5.365337E+03 (CYCLIC FREQUENCY = 8.539199E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -2.969270E-05 -3.120152E-04 -4.494953E-05 0.0 0.0 0.0 2.622699E-06 7.749043E-05 4.626264E-05 0.0 0.0 0.0 0 107 G -5.115960E-05 -3.295849E-04 -4.798250E-05 0.0 0.0 0.0 1.373783E-05 8.137021E-05 4.840550E-05 0.0 0.0 0.0 0 108 G -5.171177E-05 -3.293237E-04 -4.782830E-05 0.0 0.0 0.0 1.389474E-05 8.125583E-05 4.832792E-05 0.0 0.0 0.0 0 113 G -5.137549E-05 -4.847115E-04 -6.673511E-05 0.0 0.0 0.0 1.515504E-05 1.179036E-04 6.845647E-05 0.0 0.0 0.0 0 115 G -4.778859E-05 -4.985752E-04 -7.550459E-05 0.0 0.0 0.0 1.126228E-05 1.214796E-04 7.271131E-05 0.0 0.0 0.0 0 116 G -7.184532E-05 4.923904E-04 -4.902034E-05 0.0 0.0 0.0 7.118206E-05 -1.199209E-04 1.300367E-05 0.0 0.0 0.0 0 117 G -4.778859E-05 -4.985752E-04 -7.550459E-05 0.0 0.0 0.0 1.126228E-05 1.214796E-04 7.271131E-05 0.0 0.0 0.0 0 119 G -5.137549E-05 -4.847115E-04 -6.673511E-05 0.0 0.0 0.0 1.515504E-05 1.179036E-04 6.845647E-05 0.0 0.0 0.0 0 120 G -7.184532E-05 4.923904E-04 -4.902034E-05 0.0 0.0 0.0 7.118206E-05 -1.199209E-04 1.300367E-05 0.0 0.0 0.0 0 121 G -3.004032E-05 0.0 0.0 0.0 0.0 0.0 8.958755E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -3.516167E-05 0.0 0.0 0.0 0.0 0.0 3.730041E-06 0.0 0.0 0.0 0.0 0.0 0 124 G -3.511805E-05 0.0 0.0 0.0 0.0 0.0 3.719009E-06 0.0 0.0 0.0 0.0 0.0 0 125 G -3.516167E-05 0.0 0.0 0.0 0.0 0.0 3.730041E-06 0.0 0.0 0.0 0.0 0.0 0 127 G -3.004032E-05 0.0 0.0 0.0 0.0 0.0 8.958755E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -2.997637E-05 0.0 0.0 0.0 0.0 0.0 8.938298E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 50 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =2 MACH = 180. KFREQ= .3 RHO = .118328 COMPLEX EIGENVALUE = -2.055885E+03, 6.887124E+03 (CYCLIC FREQUENCY = 1.096120E+03HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -7.801329E-05 3.224638E-04 -3.204970E-05 -3.349838E-02 5.478174E-04 7.306111E-03 3.794354E-05 4.534051E-04 -4.203241E-05 -2.178230E-02 3.396855E-03 3.206436E-03 0 2 G -7.801329E-05 3.224638E-04 -3.204970E-05 -3.349838E-02 5.478174E-04 7.306111E-03 3.794354E-05 4.534051E-04 -4.203241E-05 -2.178230E-02 3.396855E-03 3.206436E-03 0 3 G -7.801329E-05 3.224638E-04 -3.204970E-05 -3.349838E-02 5.478174E-04 7.306111E-03 3.794354E-05 4.534051E-04 -4.203241E-05 -2.178230E-02 3.396855E-03 3.206436E-03 0 4 G -6.076242E-02 1.191440E-01 1.907150E-02 6.988324E-02 -3.345295E-01 -1.220824E-01 -3.153582E-02 6.517066E-02 1.060807E-02 1.192823E-03 -1.148576E-01 -5.843272E-02 0 5 G -2.030999E-02 5.848706E-02 4.771955E-04 -4.776287E-02 -5.126126E-02 -9.072457E-02 -1.082192E-02 3.427974E-02 1.334492E-04 -2.155092E-02 -3.681808E-02 -5.002284E-02 0 6 G -3.817341E-03 -4.857130E-03 2.167254E-03 1.528168E-02 -7.013942E-02 -6.428549E-02 -1.738668E-03 -5.061579E-04 6.055462E-04 7.317008E-03 -4.643504E-02 -3.833020E-02 0 7 G -2.174453E-01 3.578401E-01 5.823445E-02 0.0 0.0 -1.724238E-01 -8.283383E-02 1.661802E-01 2.676999E-02 0.0 0.0 -5.279670E-02 0 8 G -1.033581E-01 2.636820E-01 8.076121E-04 -3.210979E-01 2.901467E-01 -1.551210E-01 -5.292992E-02 1.430362E-01 -7.431103E-05 -1.004125E-01 3.503868E-02 -5.988376E-02 0 9 G -2.230168E-02 1.686396E-01 -3.474521E-02 -1.560076E-01 2.778933E-02 -2.056259E-01 -9.902906E-03 9.253191E-02 -1.880777E-02 -9.663544E-02 4.413525E-02 -8.228827E-02 0 10 G 3.101866E-01 4.540941E-03 -3.340574E-02 0.0 0.0 -1.243535E-01 -2.900397E-01 4.620479E-01 9.036567E-02 0.0 0.0 2.880660E-02 0 11 G 5.072313E-01 -8.829697E-02 -5.932685E-03 7.650093E-01 -1.495297E-01 5.990580E-02 -3.436268E-01 4.978146E-01 9.203407E-03 -2.407087E-01 9.748753E-03 -5.780417E-02 0 12 G 3.111981E-01 2.135334E-02 -2.072853E-04 0.0 0.0 1.903697E-01 -1.987528E-01 4.096128E-01 -5.146869E-02 0.0 0.0 -1.754380E-01 0 101 G -3.369336E-05 -2.158304E-04 -5.303733E-05 0.0 0.0 0.0 -4.376940E-05 -3.002970E-04 2.631685E-05 0.0 0.0 0.0 0 103 G -1.645063E-05 -2.045008E-04 -5.032831E-05 0.0 0.0 0.0 -3.575900E-05 -2.832558E-04 2.624839E-05 0.0 0.0 0.0 0 104 G -1.667831E-05 -2.044020E-04 -5.026240E-05 0.0 0.0 0.0 -3.603864E-05 -2.831998E-04 2.628056E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 51 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =2 MACH = 180. KFREQ= .3 RHO = .118328 COMPLEX EIGENVALUE = -2.055885E+03, 6.887124E+03 (CYCLIC FREQUENCY = 1.096120E+03HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -1.645063E-05 -2.045008E-04 -5.032831E-05 0.0 0.0 0.0 -3.575900E-05 -2.832558E-04 2.624839E-05 0.0 0.0 0.0 0 107 G -3.369336E-05 -2.158304E-04 -5.303733E-05 0.0 0.0 0.0 -4.376940E-05 -3.002970E-04 2.631685E-05 0.0 0.0 0.0 0 108 G -3.407767E-05 -2.156247E-04 -5.291538E-05 0.0 0.0 0.0 -4.424987E-05 -3.001464E-04 2.637777E-05 0.0 0.0 0.0 0 113 G -3.454835E-05 -3.172600E-04 -7.382672E-05 0.0 0.0 0.0 -4.121451E-05 -4.464751E-04 3.975291E-05 0.0 0.0 0.0 0 115 G -3.044359E-05 -3.265733E-04 -8.082761E-05 0.0 0.0 0.0 -4.374290E-05 -4.590446E-04 3.573158E-05 0.0 0.0 0.0 0 116 G -7.801329E-05 3.224638E-04 -3.204970E-05 0.0 0.0 0.0 3.794354E-05 4.534051E-04 -4.203241E-05 0.0 0.0 0.0 0 117 G -3.044359E-05 -3.265733E-04 -8.082761E-05 0.0 0.0 0.0 -4.374290E-05 -4.590446E-04 3.573158E-05 0.0 0.0 0.0 0 119 G -3.454835E-05 -3.172600E-04 -7.382672E-05 0.0 0.0 0.0 -4.121451E-05 -4.464751E-04 3.975291E-05 0.0 0.0 0.0 0 120 G -7.801329E-05 3.224638E-04 -3.204970E-05 0.0 0.0 0.0 3.794354E-05 4.534051E-04 -4.203241E-05 0.0 0.0 0.0 0 121 G -2.019810E-05 0.0 0.0 0.0 0.0 0.0 -2.381330E-05 0.0 0.0 0.0 0.0 0.0 0 123 G -1.994869E-05 0.0 0.0 0.0 0.0 0.0 -4.129900E-05 0.0 0.0 0.0 0.0 0.0 0 124 G -1.991923E-05 0.0 0.0 0.0 0.0 0.0 -4.125859E-05 0.0 0.0 0.0 0.0 0.0 0 125 G -1.994869E-05 0.0 0.0 0.0 0.0 0.0 -4.129900E-05 0.0 0.0 0.0 0.0 0.0 0 127 G -2.019810E-05 0.0 0.0 0.0 0.0 0.0 -2.381330E-05 0.0 0.0 0.0 0.0 0.0 0 128 G -2.015239E-05 0.0 0.0 0.0 0.0 0.0 -2.376228E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 52 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =2 MACH = 180. KFREQ= .3 RHO = .118328 COMPLEX EIGENVALUE = 1.067873E+03, 1.683735E+04 (CYCLIC FREQUENCY = 2.679747E+03HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -1.612375E-05 -1.426183E-04 1.032561E-05 1.040704E-02 -1.603426E-03 -1.011128E-03 1.305172E-04 5.818703E-04 -5.060016E-05 -2.367078E-02 4.761537E-03 1.906051E-03 0 2 G -1.612375E-05 -1.426183E-04 1.032561E-05 1.040704E-02 -1.603426E-03 -1.011128E-03 1.305172E-04 5.818703E-04 -5.060016E-05 -2.367078E-02 4.761537E-03 1.906051E-03 0 3 G -1.612375E-05 -1.426183E-04 1.032561E-05 1.040704E-02 -1.603426E-03 -1.011128E-03 1.305172E-04 5.818703E-04 -5.060016E-05 -2.367078E-02 4.761537E-03 1.906051E-03 0 4 G 1.330818E-02 -2.706806E-02 -4.163562E-03 -2.966125E-03 5.006018E-02 2.344610E-02 -2.531135E-02 5.653986E-02 9.394513E-03 -5.544288E-02 9.762302E-03 -3.453868E-02 0 5 G 4.183774E-03 -1.331631E-02 -4.163975E-04 4.284271E-03 1.785879E-02 2.243100E-02 -9.186526E-03 3.248894E-02 1.692527E-04 -1.625987E-02 -3.211465E-02 -4.561969E-02 0 6 G 5.176911E-04 5.050911E-04 6.465708E-05 -3.789153E-03 2.203021E-02 1.596032E-02 -1.006837E-03 1.408593E-03 -2.182269E-04 6.663016E-03 -4.797192E-02 -3.603672E-02 0 7 G 3.928666E-02 -5.553597E-02 -8.655464E-03 0.0 0.0 2.991361E-02 -3.127406E-02 9.671858E-02 1.510452E-02 0.0 0.0 -6.283447E-04 0 8 G 2.317310E-03 -2.360579E-02 -1.225721E-03 8.806380E-02 -1.418746E-01 2.154942E-02 -2.091521E-02 8.947711E-02 4.047559E-04 -5.177974E-02 3.565351E-02 -1.948218E-02 0 9 G -5.514858E-03 -1.422079E-02 3.542274E-03 2.097933E-02 -5.898610E-02 1.964581E-02 -2.104254E-04 6.453695E-02 -1.350731E-02 -5.708113E-02 3.112303E-02 -4.704058E-02 0 10 G 2.848333E-01 -1.148859E-01 -3.215443E-02 0.0 0.0 4.252621E-01 5.928571E-02 5.843612E-02 3.278830E-03 0.0 0.0 -2.437323E-02 0 11 G -1.114647E-01 5.930762E-02 8.357024E-05 8.826116E-01 -6.149245E-01 1.270356E-01 8.073311E-02 4.920983E-02 2.583140E-05 2.414784E-01 -1.080446E-01 -2.757495E-02 0 12 G -9.397989E-02 4.909736E-02 -6.220785E-03 0.0 0.0 1.868912E-02 9.323219E-02 4.146572E-02 -5.081027E-03 0.0 0.0 -3.481509E-02 0 101 G 1.183414E-05 9.520011E-05 -1.097211E-05 0.0 0.0 0.0 -5.292214E-05 -3.828579E-04 8.900130E-05 0.0 0.0 0.0 0 103 G 9.781012E-06 8.993136E-05 -1.065389E-05 0.0 0.0 0.0 -5.195444E-05 -3.603224E-04 8.659051E-05 0.0 0.0 0.0 0 104 G 9.878878E-06 8.991853E-05 -1.066311E-05 0.0 0.0 0.0 -5.229821E-05 -3.602945E-04 8.659528E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 53 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =2 MACH = 180. KFREQ= .3 RHO = .118328 COMPLEX EIGENVALUE = 1.067873E+03, 1.683735E+04 (CYCLIC FREQUENCY = 2.679747E+03HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G 9.781012E-06 8.993136E-05 -1.065389E-05 0.0 0.0 0.0 -5.195444E-05 -3.603224E-04 8.659051E-05 0.0 0.0 0.0 0 107 G 1.183414E-05 9.520011E-05 -1.097211E-05 0.0 0.0 0.0 -5.292214E-05 -3.828579E-04 8.900130E-05 0.0 0.0 0.0 0 108 G 1.200130E-05 9.515080E-05 -1.099078E-05 0.0 0.0 0.0 -5.352425E-05 -3.827322E-04 8.901567E-05 0.0 0.0 0.0 0 113 G 1.009121E-05 1.403700E-04 -1.667436E-05 0.0 0.0 0.0 -4.725360E-05 -5.730385E-04 1.305815E-04 0.0 0.0 0.0 0 115 G 1.111855E-05 1.444612E-04 -1.539765E-05 0.0 0.0 0.0 -5.507615E-05 -5.890913E-04 1.285526E-04 0.0 0.0 0.0 0 116 G -1.612375E-05 -1.426183E-04 1.032561E-05 0.0 0.0 0.0 1.305172E-04 5.818703E-04 -5.060016E-05 0.0 0.0 0.0 0 117 G 1.111855E-05 1.444612E-04 -1.539765E-05 0.0 0.0 0.0 -5.507615E-05 -5.890913E-04 1.285526E-04 0.0 0.0 0.0 0 119 G 1.009121E-05 1.403700E-04 -1.667436E-05 0.0 0.0 0.0 -4.725360E-05 -5.730385E-04 1.305815E-04 0.0 0.0 0.0 0 120 G -1.612375E-05 -1.426183E-04 1.032561E-05 0.0 0.0 0.0 1.305172E-04 5.818703E-04 -5.060016E-05 0.0 0.0 0.0 0 121 G 5.899788E-06 0.0 0.0 0.0 0.0 0.0 -2.704281E-05 0.0 0.0 0.0 0.0 0.0 0 123 G 1.197816E-05 0.0 0.0 0.0 0.0 0.0 -5.958101E-05 0.0 0.0 0.0 0.0 0.0 0 124 G 1.196371E-05 0.0 0.0 0.0 0.0 0.0 -5.952831E-05 0.0 0.0 0.0 0.0 0.0 0 125 G 1.197816E-05 0.0 0.0 0.0 0.0 0.0 -5.958101E-05 0.0 0.0 0.0 0.0 0.0 0 127 G 5.899788E-06 0.0 0.0 0.0 0.0 0.0 -2.704281E-05 0.0 0.0 0.0 0.0 0.0 0 128 G 5.882173E-06 0.0 0.0 0.0 0.0 0.0 -2.698271E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 54 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =2 MACH = 180. KFREQ= .3 RHO = .118328 COMPLEX EIGENVALUE = 4.500493E+03, 2.252555E+04 (CYCLIC FREQUENCY = 3.585053E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -4.326048E-04 -1.924309E-03 1.647442E-04 8.053824E-02 -1.646094E-02 -6.114439E-03 9.510380E-04 3.171690E-03 -2.682607E-04 -1.002452E-01 2.912426E-02 9.368327E-04 0 2 G -4.326048E-04 -1.924309E-03 1.647442E-04 8.053824E-02 -1.646094E-02 -6.114439E-03 9.510380E-04 3.171690E-03 -2.682607E-04 -1.002452E-01 2.912426E-02 9.368327E-04 0 3 G -4.326048E-04 -1.924309E-03 1.647442E-04 8.053824E-02 -1.646094E-02 -6.114439E-03 9.510380E-04 3.171690E-03 -2.682607E-04 -1.002452E-01 2.912426E-02 9.368327E-04 0 4 G 8.541719E-02 -1.900191E-01 -3.131282E-02 1.777802E-01 -1.791549E-02 1.174644E-01 -6.867504E-02 1.785854E-01 3.071244E-02 -4.620270E-01 5.781707E-01 -3.228270E-02 0 5 G 3.053565E-02 -1.080544E-01 -8.999294E-04 4.935084E-02 1.126270E-01 1.545526E-01 -2.751740E-02 1.175981E-01 4.907092E-04 -3.026381E-02 -1.247674E-01 -1.531653E-01 0 6 G 3.219580E-03 -4.453538E-03 1.005055E-03 -2.284444E-02 1.639769E-01 1.211761E-01 -5.224001E-04 1.614213E-02 -4.788606E-03 1.970273E-02 -1.989807E-01 -1.313775E-01 0 7 G 1.122394E-01 -3.164318E-01 -4.912030E-02 0.0 0.0 1.238841E-02 1.304853E-01 6.435031E-02 6.338602E-03 0.0 0.0 2.558793E-01 0 8 G 5.552091E-02 -2.722481E-01 -2.422097E-03 2.136544E-01 -2.215805E-01 6.459473E-02 3.413891E-02 1.512460E-01 1.919066E-03 1.353341E-01 -1.475501E-01 1.138773E-01 0 9 G -7.656138E-03 -1.959043E-01 4.164405E-02 1.815741E-01 -1.555568E-01 1.422113E-01 3.643538E-02 1.441569E-01 -3.139725E-02 -1.116836E-01 1.568563E-01 1.489105E-02 0 10 G 1.612557E-01 -3.141851E-01 -5.067973E-02 0.0 0.0 5.006111E-01 5.914353E-02 1.417789E-01 2.359782E-02 0.0 0.0 -1.158772E-01 0 11 G -2.900279E-01 -1.176255E-01 -1.042714E-03 2.750149E-01 -3.238158E-01 2.270359E-01 6.259795E-02 1.430883E-01 2.986546E-03 4.538224E-01 -3.549570E-01 -2.636660E-01 0 12 G -3.403824E-01 -8.735295E-02 1.084169E-02 0.0 0.0 1.573403E-01 3.264678E-01 -5.219042E-03 -1.883621E-03 0.0 0.0 -3.950102E-01 0 101 G 1.733513E-04 1.267155E-03 -2.949676E-04 0.0 0.0 0.0 -2.807101E-04 -2.081085E-03 6.480414E-04 0.0 0.0 0.0 0 103 G 1.701986E-04 1.192759E-03 -2.868114E-04 0.0 0.0 0.0 -3.021465E-04 -1.956418E-03 6.283593E-04 0.0 0.0 0.0 0 104 G 1.713452E-04 1.192670E-03 -2.868282E-04 0.0 0.0 0.0 -3.039658E-04 -1.956399E-03 6.282839E-04 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 55 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =2 MACH = 180. KFREQ= .3 RHO = .118328 COMPLEX EIGENVALUE = 4.500493E+03, 2.252555E+04 (CYCLIC FREQUENCY = 3.585053E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G 1.701986E-04 1.192759E-03 -2.868114E-04 0.0 0.0 0.0 -3.021465E-04 -1.956418E-03 6.283593E-04 0.0 0.0 0.0 0 107 G 1.733513E-04 1.267155E-03 -2.949676E-04 0.0 0.0 0.0 -2.807101E-04 -2.081085E-03 6.480414E-04 0.0 0.0 0.0 0 108 G 1.753567E-04 1.266736E-03 -2.950177E-04 0.0 0.0 0.0 -2.839209E-04 -2.080613E-03 6.479381E-04 0.0 0.0 0.0 0 113 G 1.537783E-04 1.895053E-03 -4.328912E-04 0.0 0.0 0.0 -2.431463E-04 -3.123981E-03 9.447986E-04 0.0 0.0 0.0 0 115 G 1.797039E-04 1.948252E-03 -4.260553E-04 0.0 0.0 0.0 -2.992300E-04 -3.210913E-03 9.430336E-04 0.0 0.0 0.0 0 116 G -4.326048E-04 -1.924309E-03 1.647442E-04 0.0 0.0 0.0 9.510380E-04 3.171690E-03 -2.682607E-04 0.0 0.0 0.0 0 117 G 1.797039E-04 1.948252E-03 -4.260553E-04 0.0 0.0 0.0 -2.992300E-04 -3.210913E-03 9.430336E-04 0.0 0.0 0.0 0 119 G 1.537783E-04 1.895053E-03 -4.328912E-04 0.0 0.0 0.0 -2.431463E-04 -3.123981E-03 9.447986E-04 0.0 0.0 0.0 0 120 G -4.326048E-04 -1.924309E-03 1.647442E-04 0.0 0.0 0.0 9.510380E-04 3.171690E-03 -2.682607E-04 0.0 0.0 0.0 0 121 G 8.808742E-05 0.0 0.0 0.0 0.0 0.0 -1.384649E-04 0.0 0.0 0.0 0.0 0.0 0 123 G 1.958430E-04 0.0 0.0 0.0 0.0 0.0 -3.450371E-04 0.0 0.0 0.0 0.0 0.0 0 124 G 1.956671E-04 0.0 0.0 0.0 0.0 0.0 -3.447495E-04 0.0 0.0 0.0 0.0 0.0 0 125 G 1.958430E-04 0.0 0.0 0.0 0.0 0.0 -3.450371E-04 0.0 0.0 0.0 0.0 0.0 0 127 G 8.808742E-05 0.0 0.0 0.0 0.0 0.0 -1.384649E-04 0.0 0.0 0.0 0.0 0.0 0 128 G 8.788714E-05 0.0 0.0 0.0 0.0 0.0 -1.381560E-04 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 56 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =3 MACH = 180. KFREQ= .3 RHO = .1774919 COMPLEX EIGENVALUE = -2.060929E+03, 4.758871E+03 (CYCLIC FREQUENCY = 7.573978E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -1.177482E-04 6.766594E-04 -6.741372E-05 -5.269319E-02 3.261984E-03 1.128464E-02 1.535674E-04 -3.878260E-06 4.213587E-06 2.062505E-02 1.923607E-03 -6.266729E-03 0 2 G -1.177482E-04 6.766594E-04 -6.741372E-05 -5.269319E-02 3.261984E-03 1.128464E-02 1.535674E-04 -3.878260E-06 4.213587E-06 2.062505E-02 1.923607E-03 -6.266729E-03 0 3 G -1.177482E-04 6.766594E-04 -6.741372E-05 -5.269319E-02 3.261984E-03 1.128464E-02 1.535674E-04 -3.878260E-06 4.213587E-06 2.062505E-02 1.923607E-03 -6.266729E-03 0 4 G -9.565236E-02 1.876799E-01 3.001324E-02 1.213824E-01 -5.533031E-01 -1.983054E-01 4.723426E-02 -8.861431E-02 -1.395325E-02 -1.041682E-01 3.482227E-01 1.046735E-01 0 5 G -3.173022E-02 9.205284E-02 6.079989E-04 -7.026093E-02 -9.361757E-02 -1.414388E-01 1.529985E-02 -4.065937E-02 -4.207772E-04 3.812765E-02 3.520050E-02 6.608036E-02 0 6 G -6.024606E-03 -6.753205E-03 3.339974E-03 2.245112E-02 -1.140375E-01 -1.026435E-01 3.275319E-03 5.695684E-03 -2.279090E-03 -1.164795E-02 4.443219E-02 4.477646E-02 0 7 G -3.380865E-01 5.712501E-01 9.294958E-02 0.0 0.0 -2.654650E-01 2.031783E-01 -3.070341E-01 -5.029463E-02 0.0 0.0 1.752555E-01 0 8 G -1.803469E-01 4.427137E-01 3.553470E-04 -4.513478E-01 3.105640E-01 -2.444084E-01 9.211769E-02 -2.145136E-01 -6.642514E-04 2.973676E-01 -2.769653E-01 1.459902E-01 0 9 G -3.866848E-02 2.771531E-01 -5.644860E-02 -2.863896E-01 1.033424E-01 -3.045889E-01 2.162592E-02 -1.322686E-01 2.716212E-02 1.271023E-01 -2.122773E-02 1.782266E-01 0 10 G -5.494009E-01 1.016013E+00 1.827831E-01 0.0 0.0 -1.203525E-01 -1.623332E-01 -5.600645E-02 1.438092E-02 0.0 0.0 1.616552E-01 0 11 G -4.311917E-01 9.864967E-01 1.603393E-02 -4.333932E-01 1.852707E-01 -8.582158E-02 -3.861378E-01 4.643053E-02 4.159837E-03 -3.837004E-01 -2.841642E-02 -4.644085E-02 0 12 G -2.790551E-01 8.861121E-01 -1.094818E-01 0.0 0.0 -2.106960E-01 -2.131355E-01 -4.977168E-02 3.997995E-03 0.0 0.0 -1.723508E-01 0 101 G -7.048607E-05 -4.529826E-04 -7.916763E-05 0.0 0.0 0.0 4.698792E-06 6.523944E-06 1.045007E-04 0.0 0.0 0.0 0 103 G -3.900794E-05 -4.289513E-04 -7.454590E-05 0.0 0.0 0.0 -1.250444E-05 7.589348E-06 1.003702E-04 0.0 0.0 0.0 0 104 G -3.946785E-05 -4.287724E-04 -7.442290E-05 0.0 0.0 0.0 -1.246312E-05 7.504132E-06 1.003047E-04 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 57 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =3 MACH = 180. KFREQ= .3 RHO = .1774919 COMPLEX EIGENVALUE = -2.060929E+03, 4.758871E+03 (CYCLIC FREQUENCY = 7.573978E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -3.900794E-05 -4.289513E-04 -7.454590E-05 0.0 0.0 0.0 -1.250444E-05 7.589348E-06 1.003702E-04 0.0 0.0 0.0 0 107 G -7.048607E-05 -4.529826E-04 -7.916763E-05 0.0 0.0 0.0 4.698792E-06 6.523944E-06 1.045007E-04 0.0 0.0 0.0 0 108 G -7.125773E-05 -4.526029E-04 -7.894264E-05 0.0 0.0 0.0 4.755373E-06 6.383576E-06 1.043828E-04 0.0 0.0 0.0 0 113 G -7.123213E-05 -6.660091E-04 -1.102087E-04 0.0 0.0 0.0 8.673549E-06 3.507128E-06 1.492883E-04 0.0 0.0 0.0 0 115 G -6.522612E-05 -6.851918E-04 -1.230280E-04 0.0 0.0 0.0 5.804031E-08 4.041416E-06 1.553545E-04 0.0 0.0 0.0 0 116 G -1.177482E-04 6.766594E-04 -6.741372E-05 0.0 0.0 0.0 1.535674E-04 -3.878260E-06 4.213587E-06 0.0 0.0 0.0 0 117 G -6.522612E-05 -6.851918E-04 -1.230280E-04 0.0 0.0 0.0 5.804031E-08 4.041416E-06 1.553545E-04 0.0 0.0 0.0 0 119 G -7.123213E-05 -6.660091E-04 -1.102087E-04 0.0 0.0 0.0 8.673549E-06 3.507128E-06 1.492883E-04 0.0 0.0 0.0 0 120 G -1.177482E-04 6.766594E-04 -6.741372E-05 0.0 0.0 0.0 1.535674E-04 -3.878260E-06 4.213587E-06 0.0 0.0 0.0 0 121 G -4.165479E-05 0.0 0.0 0.0 0.0 0.0 5.421360E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -4.646567E-05 0.0 0.0 0.0 0.0 0.0 -1.315457E-05 0.0 0.0 0.0 0.0 0.0 0 124 G -4.640526E-05 0.0 0.0 0.0 0.0 0.0 -1.315529E-05 0.0 0.0 0.0 0.0 0.0 0 125 G -4.646567E-05 0.0 0.0 0.0 0.0 0.0 -1.315457E-05 0.0 0.0 0.0 0.0 0.0 0 127 G -4.165479E-05 0.0 0.0 0.0 0.0 0.0 5.421360E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -4.156468E-05 0.0 0.0 0.0 0.0 0.0 5.408152E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 58 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =3 MACH = 180. KFREQ= .3 RHO = .1774919 COMPLEX EIGENVALUE = -1.018604E+03, 6.454173E+03 (CYCLIC FREQUENCY = 1.027214E+03HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -3.722639E-05 1.010633E-04 -9.751364E-06 -1.762381E-02 -7.151272E-04 3.840242E-03 -8.721829E-06 3.991715E-04 -3.826551E-05 -2.289589E-02 2.709213E-03 4.172445E-03 0 2 G -3.722639E-05 1.010633E-04 -9.751364E-06 -1.762381E-02 -7.151272E-04 3.840242E-03 -8.721829E-06 3.991715E-04 -3.826551E-05 -2.289589E-02 2.709213E-03 4.172445E-03 0 3 G -3.722639E-05 1.010633E-04 -9.751364E-06 -1.762381E-02 -7.151272E-04 3.840242E-03 -8.721829E-06 3.991715E-04 -3.826551E-05 -2.289589E-02 2.709213E-03 4.172445E-03 0 4 G -3.136428E-02 6.167674E-02 9.900454E-03 2.777162E-02 -1.548935E-01 -5.955193E-02 -3.770494E-02 7.558618E-02 1.217349E-02 3.054268E-02 -1.888597E-01 -7.558700E-02 0 5 G -1.062750E-02 3.048222E-02 3.102185E-04 -2.693848E-02 -2.061446E-02 -4.773954E-02 -1.265086E-02 3.817994E-02 1.896530E-04 -2.629041E-02 -4.140870E-02 -5.721790E-02 0 6 G -1.945714E-03 -2.816394E-03 1.118655E-03 8.659102E-03 -3.507474E-02 -3.280386E-02 -2.257006E-03 -1.719321E-03 1.067944E-03 8.607239E-03 -4.967788E-02 -4.280990E-02 0 7 G -1.122263E-01 1.793040E-01 2.916825E-02 0.0 0.0 -8.939189E-02 -1.189221E-01 2.154696E-01 3.492733E-02 0.0 0.0 -8.713691E-02 0 8 G -4.437037E-02 1.225771E-01 8.447776E-04 -1.884331E-01 2.155767E-01 -7.849097E-02 -7.014186E-02 1.765453E-01 -6.650797E-05 -1.477792E-01 7.161044E-02 -8.637594E-02 0 9 G -9.601071E-03 8.151823E-02 -1.710806E-02 -6.093948E-02 -1.392289E-02 -1.141400E-01 -1.430753E-02 1.112547E-01 -2.256273E-02 -1.190848E-01 5.315435E-02 -1.088862E-01 0 10 G 6.559211E-01 -4.776734E-01 -1.292264E-01 0.0 0.0 -9.493980E-02 -4.001866E-01 5.889901E-01 1.162601E-01 0.0 0.0 -5.347933E-03 0 11 G 8.432342E-01 -5.785039E-01 -1.507915E-02 1.183758E+00 -2.861522E-01 1.163820E-01 -4.220265E-01 6.138209E-01 1.140693E-02 -4.254476E-01 1.019691E-01 -7.090295E-02 0 12 G 5.255443E-01 -3.935507E-01 5.167253E-02 0.0 0.0 3.380857E-01 -2.583145E-01 5.132721E-01 -6.431343E-02 0.0 0.0 -1.985158E-01 0 101 G -1.041486E-05 -6.737151E-05 -2.571994E-05 0.0 0.0 0.0 -3.988809E-05 -2.656709E-04 -5.359227E-06 0.0 0.0 0.0 0 103 G -3.783483E-06 -6.387157E-05 -2.460825E-05 0.0 0.0 0.0 -2.807749E-05 -2.510173E-04 -4.261234E-06 0.0 0.0 0.0 0 104 G -3.860994E-06 -6.383208E-05 -2.458415E-05 0.0 0.0 0.0 -2.833334E-05 -2.509453E-04 -4.214377E-06 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 59 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =3 MACH = 180. KFREQ= .3 RHO = .1774919 COMPLEX EIGENVALUE = -1.018604E+03, 6.454173E+03 (CYCLIC FREQUENCY = 1.027214E+03HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -3.783483E-06 -6.387157E-05 -2.460825E-05 0.0 0.0 0.0 -2.807749E-05 -2.510173E-04 -4.261234E-06 0.0 0.0 0.0 0 107 G -1.041486E-05 -6.737151E-05 -2.571994E-05 0.0 0.0 0.0 -3.988809E-05 -2.656709E-04 -5.359227E-06 0.0 0.0 0.0 0 108 G -1.054865E-05 -6.729065E-05 -2.567396E-05 0.0 0.0 0.0 -4.032237E-05 -2.655020E-04 -5.272777E-06 0.0 0.0 0.0 0 113 G -1.094793E-05 -9.932346E-05 -3.557363E-05 0.0 0.0 0.0 -3.875380E-05 -3.930137E-04 -5.956863E-06 0.0 0.0 0.0 0 115 G -8.931052E-06 -1.023876E-04 -3.830127E-05 0.0 0.0 0.0 -3.862004E-05 -4.041588E-04 -1.113746E-05 0.0 0.0 0.0 0 116 G -3.722639E-05 1.010633E-04 -9.751364E-06 0.0 0.0 0.0 -8.721829E-06 3.991715E-04 -3.826551E-05 0.0 0.0 0.0 0 117 G -8.931052E-06 -1.023876E-04 -3.830127E-05 0.0 0.0 0.0 -3.862004E-05 -4.041588E-04 -1.113746E-05 0.0 0.0 0.0 0 119 G -1.094793E-05 -9.932346E-05 -3.557363E-05 0.0 0.0 0.0 -3.875380E-05 -3.930137E-04 -5.956863E-06 0.0 0.0 0.0 0 120 G -3.722639E-05 1.010633E-04 -9.751364E-06 0.0 0.0 0.0 -8.721829E-06 3.991715E-04 -3.826551E-05 0.0 0.0 0.0 0 121 G -6.374910E-06 0.0 0.0 0.0 0.0 0.0 -2.252439E-05 0.0 0.0 0.0 0.0 0.0 0 123 G -4.863803E-06 0.0 0.0 0.0 0.0 0.0 -3.275048E-05 0.0 0.0 0.0 0.0 0.0 0 124 G -4.853937E-06 0.0 0.0 0.0 0.0 0.0 -3.271501E-05 0.0 0.0 0.0 0.0 0.0 0 125 G -4.863803E-06 0.0 0.0 0.0 0.0 0.0 -3.275048E-05 0.0 0.0 0.0 0.0 0.0 0 127 G -6.374910E-06 0.0 0.0 0.0 0.0 0.0 -2.252439E-05 0.0 0.0 0.0 0.0 0.0 0 128 G -6.358598E-06 0.0 0.0 0.0 0.0 0.0 -2.247629E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 60 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =3 MACH = 180. KFREQ= .3 RHO = .1774919 COMPLEX EIGENVALUE = 4.876389E+02, 1.709958E+04 (CYCLIC FREQUENCY = 2.721482E+03HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -8.076876E-05 -3.748189E-04 3.011992E-05 1.840699E-02 -3.659188E-03 -1.289422E-03 1.025968E-04 4.515321E-04 -3.922302E-05 -1.824833E-02 3.706008E-03 1.435165E-03 0 2 G -8.076876E-05 -3.748189E-04 3.011992E-05 1.840699E-02 -3.659188E-03 -1.289422E-03 1.025968E-04 4.515321E-04 -3.922302E-05 -1.824833E-02 3.706008E-03 1.435165E-03 0 3 G -8.076876E-05 -3.748189E-04 3.011992E-05 1.840699E-02 -3.659188E-03 -1.289422E-03 1.025968E-04 4.515321E-04 -3.922302E-05 -1.824833E-02 3.706008E-03 1.435165E-03 0 4 G 1.987720E-02 -4.304142E-02 -6.871990E-03 2.758484E-02 1.887425E-02 2.920153E-02 -1.932202E-02 4.328698E-02 7.198071E-03 -4.392995E-02 1.031895E-02 -2.603588E-02 0 5 G 6.704152E-03 -2.327048E-02 -4.621396E-04 7.832207E-03 2.804482E-02 3.579376E-02 -7.027170E-03 2.494995E-02 1.294755E-04 -1.236899E-02 -2.464887E-02 -3.497564E-02 0 6 G 6.653277E-04 -4.909887E-04 3.367142E-04 -5.611433E-03 3.800289E-02 2.703789E-02 -7.577625E-04 1.133663E-03 -1.868706E-04 5.100032E-03 -3.694692E-02 -2.767195E-02 0 7 G 3.630880E-02 -7.039335E-02 -1.078474E-02 0.0 0.0 1.680672E-02 -2.280876E-02 7.282914E-02 1.135547E-02 0.0 0.0 7.937551E-04 0 8 G 2.979929E-03 -4.199826E-02 -1.376565E-03 8.753070E-02 -1.392241E-01 1.800704E-02 -1.546663E-02 6.778312E-02 3.151522E-04 -3.830720E-02 2.641967E-02 -1.404259E-02 0 9 G -7.373267E-03 -2.934777E-02 6.774455E-03 3.333509E-02 -7.031883E-02 2.465784E-02 2.627121E-05 4.909596E-02 -1.028346E-02 -4.322010E-02 2.383028E-02 -3.529289E-02 0 10 G 2.674511E-01 -1.226459E-01 -3.221135E-02 0.0 0.0 4.337316E-01 4.911337E-02 4.058463E-02 1.641029E-03 0.0 0.0 -1.859947E-02 0 11 G -1.319792E-01 5.295807E-02 8.671504E-05 8.177894E-01 -5.796047E-01 1.425233E-01 6.544770E-02 3.344703E-02 -6.231034E-05 1.908883E-01 -8.525091E-02 -2.114155E-02 0 12 G -1.267080E-01 4.961182E-02 -6.183258E-03 0.0 0.0 3.995813E-02 7.439282E-02 2.793245E-02 -3.417470E-03 0.0 0.0 -2.610490E-02 0 101 G 3.254356E-05 2.476684E-04 -5.502404E-05 0.0 0.0 0.0 -4.102337E-05 -2.970605E-04 6.995642E-05 0.0 0.0 0.0 0 103 G 3.150711E-05 2.333098E-04 -5.340020E-05 0.0 0.0 0.0 -4.042061E-05 -2.795623E-04 6.804932E-05 0.0 0.0 0.0 0 104 G 3.173932E-05 2.332928E-04 -5.340599E-05 0.0 0.0 0.0 -4.068708E-05 -2.795414E-04 6.805245E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 61 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =3 MACH = 180. KFREQ= .3 RHO = .1774919 COMPLEX EIGENVALUE = 4.876389E+02, 1.709958E+04 (CYCLIC FREQUENCY = 2.721482E+03HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G 3.150711E-05 2.333098E-04 -5.340020E-05 0.0 0.0 0.0 -4.042061E-05 -2.795623E-04 6.804932E-05 0.0 0.0 0.0 0 107 G 3.254356E-05 2.476684E-04 -5.502404E-05 0.0 0.0 0.0 -4.102337E-05 -2.970605E-04 6.995642E-05 0.0 0.0 0.0 0 108 G 3.294736E-05 2.475800E-04 -5.503889E-05 0.0 0.0 0.0 -4.149026E-05 -2.969641E-04 6.996656E-05 0.0 0.0 0.0 0 113 G 2.819001E-05 3.690679E-04 -8.099918E-05 0.0 0.0 0.0 -3.658851E-05 -4.446805E-04 1.026103E-04 0.0 0.0 0.0 0 115 G 3.304362E-05 3.795364E-04 -7.939999E-05 0.0 0.0 0.0 -4.273252E-05 -4.571350E-04 1.010869E-04 0.0 0.0 0.0 0 116 G -8.076876E-05 -3.748189E-04 3.011992E-05 0.0 0.0 0.0 1.025968E-04 4.515321E-04 -3.922302E-05 0.0 0.0 0.0 0 117 G 3.304362E-05 3.795364E-04 -7.939999E-05 0.0 0.0 0.0 -4.273252E-05 -4.571350E-04 1.010869E-04 0.0 0.0 0.0 0 119 G 2.819001E-05 3.690679E-04 -8.099918E-05 0.0 0.0 0.0 -3.658851E-05 -4.446805E-04 1.026103E-04 0.0 0.0 0.0 0 120 G -8.076876E-05 -3.748189E-04 3.011992E-05 0.0 0.0 0.0 1.025968E-04 4.515321E-04 -3.922302E-05 0.0 0.0 0.0 0 121 G 1.622068E-05 0.0 0.0 0.0 0.0 0.0 -2.093494E-05 0.0 0.0 0.0 0.0 0.0 0 123 G 3.681651E-05 0.0 0.0 0.0 0.0 0.0 -4.634585E-05 0.0 0.0 0.0 0.0 0.0 0 124 G 3.678099E-05 0.0 0.0 0.0 0.0 0.0 -4.630495E-05 0.0 0.0 0.0 0.0 0.0 0 125 G 3.681651E-05 0.0 0.0 0.0 0.0 0.0 -4.634585E-05 0.0 0.0 0.0 0.0 0.0 0 127 G 1.622068E-05 0.0 0.0 0.0 0.0 0.0 -2.093494E-05 0.0 0.0 0.0 0.0 0.0 0 128 G 1.618005E-05 0.0 0.0 0.0 0.0 0.0 -2.088840E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 62 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =3 MACH = 180. KFREQ= .3 RHO = .1774919 COMPLEX EIGENVALUE = 7.413901E+03, 2.111026E+04 (CYCLIC FREQUENCY = 3.359802E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 5.662293E-04 2.498004E-03 -2.151500E-04 -1.025164E-01 2.106378E-02 7.806484E-03 -8.747258E-04 -2.684588E-03 2.265328E-04 7.480396E-02 -2.514048E-02 1.887667E-03 0 2 G 5.662293E-04 2.498004E-03 -2.151500E-04 -1.025164E-01 2.106378E-02 7.806484E-03 -8.747258E-04 -2.684588E-03 2.265328E-04 7.480396E-02 -2.514048E-02 1.887667E-03 0 3 G 5.662293E-04 2.498004E-03 -2.151500E-04 -1.025164E-01 2.106378E-02 7.806484E-03 -8.747258E-04 -2.684588E-03 2.265328E-04 7.480396E-02 -2.514048E-02 1.887667E-03 0 4 G -1.081858E-01 2.416774E-01 3.998675E-02 -2.372433E-01 4.320285E-02 -1.469376E-01 3.646008E-02 -1.107035E-01 -1.974819E-02 4.415310E-01 -6.533591E-01 -2.089827E-02 0 5 G -3.897589E-02 1.383811E-01 9.669809E-04 -6.498320E-02 -1.415157E-01 -1.961119E-01 1.649025E-02 -8.144709E-02 -6.597463E-05 1.110065E-02 8.665601E-02 9.886674E-02 0 6 G -4.118571E-03 6.102303E-03 -1.233376E-03 2.876118E-02 -2.082819E-01 -1.545214E-01 -9.574178E-04 -1.630191E-02 4.933913E-03 -1.120095E-02 1.463879E-01 9.057803E-02 0 7 G -1.334988E-01 4.013989E-01 6.237788E-02 0.0 0.0 -4.144102E-03 -2.052112E-01 8.032350E-02 1.658970E-02 0.0 0.0 -2.999165E-01 0 8 G -7.628371E-02 3.585525E-01 2.522749E-03 -2.429708E-01 2.198734E-01 -7.846586E-02 -6.371732E-02 -4.388486E-02 -8.277487E-04 -2.661446E-01 2.947304E-01 -1.615820E-01 0 9 G 6.157780E-03 2.589782E-01 -5.470020E-02 -2.353233E-01 1.732744E-01 -1.850805E-01 -3.651364E-02 -7.188704E-02 1.602256E-02 4.055359E-02 -9.569850E-02 -8.456290E-02 0 10 G -3.365991E-02 3.515413E-01 4.738033E-02 0.0 0.0 -4.159359E-01 -1.890175E-01 -2.436575E-03 1.036515E-03 0.0 0.0 -1.787789E-01 0 11 G 3.361648E-01 1.912150E-01 1.268988E-03 1.909313E-01 5.591159E-02 -2.248386E-01 8.932836E-02 -1.273650E-01 -3.074130E-03 -7.997975E-01 6.647180E-01 1.712701E-01 0 12 G 4.079828E-01 1.479533E-01 -1.836188E-02 0.0 0.0 -1.932136E-01 -1.918467E-01 2.994926E-02 -8.179238E-04 0.0 0.0 3.741354E-01 0 101 G -2.258021E-04 -1.644271E-03 3.860973E-04 0.0 0.0 0.0 2.364081E-04 1.759137E-03 -5.959656E-04 0.0 0.0 0.0 0 103 G -2.222558E-04 -1.547584E-03 3.754717E-04 0.0 0.0 0.0 2.623617E-04 1.652996E-03 -5.775056E-04 0.0 0.0 0.0 0 104 G -2.237375E-04 -1.547470E-03 3.754908E-04 0.0 0.0 0.0 2.638793E-04 1.653016E-03 -5.774113E-04 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 63 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =3 MACH = 180. KFREQ= .3 RHO = .1774919 COMPLEX EIGENVALUE = 7.413901E+03, 2.111026E+04 (CYCLIC FREQUENCY = 3.359802E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -2.222558E-04 -1.547584E-03 3.754717E-04 0.0 0.0 0.0 2.623617E-04 1.652996E-03 -5.775056E-04 0.0 0.0 0.0 0 107 G -2.258021E-04 -1.644271E-03 3.860973E-04 0.0 0.0 0.0 2.364081E-04 1.759137E-03 -5.959656E-04 0.0 0.0 0.0 0 108 G -2.283957E-04 -1.643733E-03 3.861570E-04 0.0 0.0 0.0 2.390957E-04 1.758802E-03 -5.958232E-04 0.0 0.0 0.0 0 113 G -2.007086E-04 -2.460065E-03 5.664180E-04 0.0 0.0 0.0 2.031903E-04 2.644366E-03 -8.674620E-04 0.0 0.0 0.0 0 115 G -2.346242E-04 -2.529047E-03 5.578160E-04 0.0 0.0 0.0 2.545737E-04 2.717707E-03 -8.687799E-04 0.0 0.0 0.0 0 116 G 5.662293E-04 2.498004E-03 -2.151500E-04 0.0 0.0 0.0 -8.747258E-04 -2.684588E-03 2.265328E-04 0.0 0.0 0.0 0 117 G -2.346242E-04 -2.529047E-03 5.578160E-04 0.0 0.0 0.0 2.545737E-04 2.717707E-03 -8.687799E-04 0.0 0.0 0.0 0 119 G -2.007086E-04 -2.460065E-03 5.664180E-04 0.0 0.0 0.0 2.031903E-04 2.644366E-03 -8.674620E-04 0.0 0.0 0.0 0 120 G 5.662293E-04 2.498004E-03 -2.151500E-04 0.0 0.0 0.0 -8.747258E-04 -2.684588E-03 2.265328E-04 0.0 0.0 0.0 0 121 G -1.149114E-04 0.0 0.0 0.0 0.0 0.0 1.154514E-04 0.0 0.0 0.0 0.0 0.0 0 123 G -2.553392E-04 0.0 0.0 0.0 0.0 0.0 2.987793E-04 0.0 0.0 0.0 0.0 0.0 0 124 G -2.551118E-04 0.0 0.0 0.0 0.0 0.0 2.985367E-04 0.0 0.0 0.0 0.0 0.0 0 125 G -2.553392E-04 0.0 0.0 0.0 0.0 0.0 2.987793E-04 0.0 0.0 0.0 0.0 0.0 0 127 G -1.149114E-04 0.0 0.0 0.0 0.0 0.0 1.154514E-04 0.0 0.0 0.0 0.0 0.0 0 128 G -1.146527E-04 0.0 0.0 0.0 0.0 0.0 1.151965E-04 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 64 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =4 MACH = 180. KFREQ= .7 RHO = 0.059164 COMPLEX EIGENVALUE = 9.605209E+01, 2.320090E+03 (CYCLIC FREQUENCY = 3.692538E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -8.173350E-05 3.794765E-04 -3.867028E-05 -2.711723E-02 2.250965E-03 6.095213E-03 -1.721334E-05 3.660577E-05 -3.871376E-06 -4.833585E-03 -3.989512E-05 1.157080E-03 0 2 G -8.173350E-05 3.794765E-04 -3.867028E-05 -2.711723E-02 2.250965E-03 6.095213E-03 -1.721334E-05 3.660577E-05 -3.871376E-06 -4.833585E-03 -3.989512E-05 1.157080E-03 0 3 G -8.173350E-05 3.794765E-04 -3.867028E-05 -2.711723E-02 2.250965E-03 6.095213E-03 -1.721334E-05 3.660577E-05 -3.871376E-06 -4.833585E-03 -3.989512E-05 1.157080E-03 0 4 G -5.139414E-02 9.999641E-02 1.592281E-02 8.113848E-02 -3.281809E-01 -1.112870E-01 -9.336449E-03 1.808433E-02 2.883151E-03 1.358181E-02 -5.647698E-02 -1.934255E-02 0 5 G -1.683062E-02 4.836449E-02 2.839892E-04 -3.579387E-02 -5.478661E-02 -7.445005E-02 -3.094632E-03 8.722759E-03 7.326717E-05 -7.406210E-03 -7.651325E-03 -1.367537E-02 0 6 G -3.307676E-03 -3.681850E-03 1.889902E-03 1.134529E-02 -6.061533E-02 -5.460570E-02 -6.053715E-04 -8.492639E-04 3.683139E-04 2.324122E-03 -1.020664E-02 -9.591606E-03 0 7 G -1.875259E-01 3.164176E-01 5.154676E-02 0.0 0.0 -1.493985E-01 -3.529464E-02 5.673822E-02 9.253681E-03 0.0 0.0 -2.874821E-02 0 8 G -1.065984E-01 2.509804E-01 -1.648005E-04 -2.310583E-01 1.188006E-01 -1.369768E-01 -1.674445E-02 4.139967E-02 1.144621E-04 -5.152586E-02 4.608800E-02 -2.529391E-02 0 9 G -2.305037E-02 1.536458E-01 -3.102171E-02 -1.720699E-01 8.145499E-02 -1.593523E-01 -3.744979E-03 2.618374E-02 -5.382425E-03 -2.459054E-02 4.231383E-03 -3.265236E-02 0 10 G -7.552373E-01 9.832509E-01 2.003416E-01 0.0 0.0 -5.553407E-02 4.007592E-02 8.226619E-03 -3.494392E-03 0.0 0.0 -1.968730E-02 0 11 G -7.493258E-01 1.006440E+00 1.938446E-02 -9.881710E-01 3.214883E-01 -1.243889E-01 7.090027E-02 -6.072691E-03 -7.587864E-04 1.040264E-01 -1.700857E-02 9.127130E-03 0 12 G -4.785483E-01 8.402341E-01 -1.053661E-01 0.0 0.0 -3.228793E-01 4.196820E-02 9.994917E-03 -8.652775E-04 0.0 0.0 2.822224E-02 0 101 G -4.036547E-05 -2.549618E-04 -5.474341E-05 0.0 0.0 0.0 -4.076203E-06 -2.471605E-05 -1.170313E-05 0.0 0.0 0.0 0 103 G -2.079925E-05 -2.416526E-04 -5.166533E-05 0.0 0.0 0.0 -1.186397E-06 -2.349539E-05 -1.116930E-05 0.0 0.0 0.0 0 104 G -2.105886E-05 -2.415450E-04 -5.158801E-05 0.0 0.0 0.0 -1.214259E-06 -2.347957E-05 -1.115826E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 65 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =4 MACH = 180. KFREQ= .7 RHO = 0.059164 COMPLEX EIGENVALUE = 9.605209E+01, 2.320090E+03 (CYCLIC FREQUENCY = 3.692538E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -2.079925E-05 -2.416526E-04 -5.166533E-05 0.0 0.0 0.0 -1.186397E-06 -2.349539E-05 -1.116930E-05 0.0 0.0 0.0 0 107 G -4.036547E-05 -2.549618E-04 -5.474341E-05 0.0 0.0 0.0 -4.076203E-06 -2.471605E-05 -1.170313E-05 0.0 0.0 0.0 0 108 G -4.079628E-05 -2.547388E-04 -5.460354E-05 0.0 0.0 0.0 -4.122479E-06 -2.468523E-05 -1.168291E-05 0.0 0.0 0.0 0 113 G -4.123382E-05 -3.735408E-04 -7.705738E-05 0.0 0.0 0.0 -4.396266E-06 -3.599942E-05 -1.650704E-05 0.0 0.0 0.0 0 115 G -3.699570E-05 -3.842518E-04 -8.483727E-05 0.0 0.0 0.0 -3.461394E-06 -3.707780E-05 -1.762790E-05 0.0 0.0 0.0 0 116 G -8.173350E-05 3.794765E-04 -3.867028E-05 0.0 0.0 0.0 -1.721334E-05 3.660577E-05 -3.871376E-06 0.0 0.0 0.0 0 117 G -3.699570E-05 -3.842518E-04 -8.483727E-05 0.0 0.0 0.0 -3.461394E-06 -3.707780E-05 -1.762790E-05 0.0 0.0 0.0 0 119 G -4.123382E-05 -3.735408E-04 -7.705738E-05 0.0 0.0 0.0 -4.396266E-06 -3.599942E-05 -1.650704E-05 0.0 0.0 0.0 0 120 G -8.173350E-05 3.794765E-04 -3.867028E-05 0.0 0.0 0.0 -1.721334E-05 3.660577E-05 -3.871376E-06 0.0 0.0 0.0 0 121 G -2.419643E-05 0.0 0.0 0.0 0.0 0.0 -2.589271E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -2.488245E-05 0.0 0.0 0.0 0.0 0.0 -1.542419E-06 0.0 0.0 0.0 0.0 0.0 0 124 G -2.484901E-05 0.0 0.0 0.0 0.0 0.0 -1.539071E-06 0.0 0.0 0.0 0.0 0.0 0 125 G -2.488245E-05 0.0 0.0 0.0 0.0 0.0 -1.542419E-06 0.0 0.0 0.0 0.0 0.0 0 127 G -2.419643E-05 0.0 0.0 0.0 0.0 0.0 -2.589271E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -2.414534E-05 0.0 0.0 0.0 0.0 0.0 -2.583410E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 66 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =4 MACH = 180. KFREQ= .7 RHO = 0.059164 COMPLEX EIGENVALUE = 1.306336E+03, 4.578779E+03 (CYCLIC FREQUENCY = 7.287353E+02HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 2.745355E-05 7.651435E-04 -7.090071E-05 -4.888082E-02 4.354447E-03 8.242505E-03 -1.494273E-04 -5.319464E-04 4.637371E-05 1.607044E-02 -4.638294E-03 -4.043345E-04 0 2 G 2.745355E-05 7.651435E-04 -7.090071E-05 -4.888082E-02 4.354447E-03 8.242505E-03 -1.494273E-04 -5.319464E-04 4.637371E-05 1.607044E-02 -4.638294E-03 -4.043345E-04 0 3 G 2.745355E-05 7.651435E-04 -7.090071E-05 -4.888082E-02 4.354447E-03 8.242505E-03 -1.494273E-04 -5.319464E-04 4.637371E-05 1.607044E-02 -4.638294E-03 -4.043345E-04 0 4 G -7.555801E-02 1.534783E-01 2.485790E-02 2.346188E-02 -3.051568E-01 -1.401947E-01 1.202348E-02 -3.070314E-02 -5.340480E-03 7.249888E-02 -8.517393E-02 8.034000E-03 0 5 G -2.583259E-02 7.905533E-02 5.091085E-04 -5.674608E-02 -7.296020E-02 -1.184523E-01 4.875766E-03 -2.015944E-02 5.014991E-05 7.310094E-03 2.027942E-02 2.544997E-02 0 6 G -4.333099E-03 -3.299814E-03 1.876949E-03 1.897107E-02 -1.015361E-01 -8.715607E-02 2.341485E-04 -2.602823E-03 6.030168E-04 -3.102143E-03 3.207181E-02 2.215319E-02 0 7 G -2.242963E-01 4.078986E-01 6.593110E-02 0.0 0.0 -1.586579E-01 -1.834302E-02 -2.250435E-02 -3.104698E-03 0.0 0.0 -4.033273E-02 0 8 G -1.161301E-01 3.200622E-01 7.973111E-04 -3.253839E-01 2.642832E-01 -1.590808E-01 4.425645E-03 -4.327656E-02 1.712003E-04 -3.391741E-02 6.919770E-02 -1.377712E-02 0 9 G -2.246223E-02 2.098100E-01 -4.322603E-02 -1.947916E-01 5.031791E-02 -2.263241E-01 -1.683623E-03 -3.549930E-02 7.297749E-03 2.915599E-02 -1.235899E-02 6.448133E-03 0 10 G 2.463570E-01 1.635105E-01 -3.325564E-03 0.0 0.0 -6.886797E-02 -4.320779E-02 -8.288587E-02 -1.251474E-02 0.0 0.0 -1.425527E-01 0 11 G 3.707182E-01 1.072396E-01 -2.334562E-03 8.250664E-01 -2.569391E-01 2.930850E-02 1.125644E-01 -1.545700E-01 -2.598257E-03 -3.235382E-01 2.709439E-01 8.422740E-03 0 12 G 2.564955E-01 1.685239E-01 -1.900026E-02 0.0 0.0 8.990621E-02 3.137946E-02 -1.073079E-01 1.392104E-02 0.0 0.0 9.503521E-02 0 101 G -7.413852E-05 -5.069738E-04 1.898776E-05 0.0 0.0 0.0 4.810758E-05 3.490212E-04 -1.019266E-04 0.0 0.0 0.0 0 103 G -5.680108E-05 -4.784462E-04 1.973995E-05 0.0 0.0 0.0 5.056268E-05 3.281484E-04 -9.897433E-05 0.0 0.0 0.0 0 104 G -5.728662E-05 -4.783296E-04 1.980722E-05 0.0 0.0 0.0 5.086588E-05 3.281389E-04 -9.896580E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 67 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =4 MACH = 180. KFREQ= .7 RHO = 0.059164 COMPLEX EIGENVALUE = 1.306336E+03, 4.578779E+03 (CYCLIC FREQUENCY = 7.287353E+02HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -5.680108E-05 -4.784462E-04 1.973995E-05 0.0 0.0 0.0 5.056268E-05 3.281484E-04 -9.897433E-05 0.0 0.0 0.0 0 107 G -7.413852E-05 -5.069738E-04 1.898776E-05 0.0 0.0 0.0 4.810758E-05 3.490212E-04 -1.019266E-04 0.0 0.0 0.0 0 108 G -7.497439E-05 -5.066800E-04 1.911604E-05 0.0 0.0 0.0 4.864200E-05 3.489355E-04 -1.019161E-04 0.0 0.0 0.0 0 113 G -7.064531E-05 -7.532627E-04 3.150836E-05 0.0 0.0 0.0 4.239466E-05 5.239616E-04 -1.486238E-04 0.0 0.0 0.0 0 115 G -7.284171E-05 -7.747264E-04 2.323649E-05 0.0 0.0 0.0 5.123763E-05 5.385022E-04 -1.480035E-04 0.0 0.0 0.0 0 116 G 2.745355E-05 7.651435E-04 -7.090071E-05 0.0 0.0 0.0 -1.494273E-04 -5.319464E-04 4.637371E-05 0.0 0.0 0.0 0 117 G -7.284171E-05 -7.747264E-04 2.323649E-05 0.0 0.0 0.0 5.123763E-05 5.385022E-04 -1.480035E-04 0.0 0.0 0.0 0 119 G -7.064531E-05 -7.532627E-04 3.150836E-05 0.0 0.0 0.0 4.239466E-05 5.239616E-04 -1.486238E-04 0.0 0.0 0.0 0 120 G 2.745355E-05 7.651435E-04 -7.090071E-05 0.0 0.0 0.0 -1.494273E-04 -5.319464E-04 4.637371E-05 0.0 0.0 0.0 0 121 G -4.084361E-05 0.0 0.0 0.0 0.0 0.0 2.415735E-05 0.0 0.0 0.0 0.0 0.0 0 123 G -6.606233E-05 0.0 0.0 0.0 0.0 0.0 5.753918E-05 0.0 0.0 0.0 0.0 0.0 0 124 G -6.599318E-05 0.0 0.0 0.0 0.0 0.0 5.749164E-05 0.0 0.0 0.0 0.0 0.0 0 125 G -6.606233E-05 0.0 0.0 0.0 0.0 0.0 5.753918E-05 0.0 0.0 0.0 0.0 0.0 0 127 G -4.084361E-05 0.0 0.0 0.0 0.0 0.0 2.415735E-05 0.0 0.0 0.0 0.0 0.0 0 128 G -4.075316E-05 0.0 0.0 0.0 0.0 0.0 2.410553E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 68 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =4 MACH = 180. KFREQ= .7 RHO = 0.059164 COMPLEX EIGENVALUE = 1.303630E+02, 7.525388E+03 (CYCLIC FREQUENCY = 1.197703E+03HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -2.661184E-05 -1.746574E-04 1.301318E-05 1.115543E-02 -1.935930E-03 -9.524501E-04 3.229279E-05 1.339898E-04 -1.158176E-05 -5.170705E-03 1.127959E-03 3.482524E-04 0 2 G -2.661184E-05 -1.746574E-04 1.301318E-05 1.115543E-02 -1.935930E-03 -9.524501E-04 3.229279E-05 1.339898E-04 -1.158176E-05 -5.170705E-03 1.127959E-03 3.482524E-04 0 3 G -2.661184E-05 -1.746574E-04 1.301318E-05 1.115543E-02 -1.935930E-03 -9.524501E-04 3.229279E-05 1.339898E-04 -1.158176E-05 -5.170705E-03 1.127959E-03 3.482524E-04 0 4 G 1.349219E-02 -2.787765E-02 -4.312755E-03 2.167540E-03 4.170904E-02 2.282078E-02 -5.163231E-03 1.177236E-02 1.965795E-03 -1.425120E-02 7.192498E-03 -6.469613E-03 0 5 G 4.285506E-03 -1.401246E-02 -4.176440E-04 4.074566E-03 1.891787E-02 2.321198E-02 -1.898107E-03 6.906289E-03 3.479011E-05 -3.177713E-03 -6.924342E-03 -9.583563E-03 0 6 G 4.891240E-04 2.862797E-04 1.356217E-04 -3.840087E-03 2.354285E-02 1.677762E-02 -1.843606E-04 4.051689E-04 -8.453314E-05 1.372942E-03 -1.044387E-02 -7.671499E-03 0 7 G 3.605591E-02 -5.315769E-02 -8.223964E-03 0.0 0.0 2.577927E-02 -4.333359E-03 1.785447E-02 2.753032E-03 0.0 0.0 2.319620E-03 0 8 G 1.219483E-03 -2.307468E-02 -1.232986E-03 8.340636E-02 -1.364871E-01 1.903415E-02 -3.417730E-03 1.740310E-02 8.973673E-05 -7.898628E-03 4.829261E-03 -2.391245E-03 0 9 G -6.091357E-03 -1.426353E-02 3.563285E-03 2.129028E-02 -6.157656E-02 1.732888E-02 3.075645E-04 1.287577E-02 -2.705951E-03 -1.127537E-02 7.122132E-03 -8.215190E-03 0 10 G 3.043225E-01 -1.315739E-01 -3.633520E-02 0.0 0.0 4.272973E-01 9.828695E-03 1.293483E-02 1.086939E-03 0.0 0.0 -5.519777E-03 0 11 G -9.027633E-02 4.132079E-02 -3.680715E-04 9.157444E-01 -6.234946E-01 1.338029E-01 1.361430E-02 1.137003E-02 6.171181E-05 4.509790E-02 -2.189245E-02 -7.670413E-03 0 12 G -8.384807E-02 3.751785E-02 -4.686995E-03 0.0 0.0 3.198466E-02 1.886548E-02 8.274920E-03 -1.043228E-03 0.0 0.0 -1.054115E-02 0 101 G 1.464828E-05 1.162254E-04 -1.812997E-05 0.0 0.0 0.0 -1.211463E-05 -8.810977E-05 2.201723E-05 0.0 0.0 0.0 0 103 G 1.290343E-05 1.096930E-04 -1.759056E-05 0.0 0.0 0.0 -1.214082E-05 -8.290350E-05 2.140111E-05 0.0 0.0 0.0 0 104 G 1.301944E-05 1.096805E-04 -1.759872E-05 0.0 0.0 0.0 -1.221947E-05 -8.289832E-05 2.140127E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 69 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =4 MACH = 180. KFREQ= .7 RHO = 0.059164 COMPLEX EIGENVALUE = 1.303630E+02, 7.525388E+03 (CYCLIC FREQUENCY = 1.197703E+03HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G 1.290343E-05 1.096930E-04 -1.759056E-05 0.0 0.0 0.0 -1.214082E-05 -8.290350E-05 2.140111E-05 0.0 0.0 0.0 0 107 G 1.464828E-05 1.162254E-04 -1.812997E-05 0.0 0.0 0.0 -1.211463E-05 -8.810977E-05 2.201723E-05 0.0 0.0 0.0 0 108 G 1.484741E-05 1.161723E-04 -1.814700E-05 0.0 0.0 0.0 -1.225260E-05 -8.808282E-05 2.201885E-05 0.0 0.0 0.0 0 113 G 1.249917E-05 1.719311E-04 -2.707615E-05 0.0 0.0 0.0 -1.074689E-05 -1.319603E-04 3.224611E-05 0.0 0.0 0.0 0 115 G 1.414291E-05 1.768955E-04 -2.581593E-05 0.0 0.0 0.0 -1.267383E-05 -1.356513E-04 3.186572E-05 0.0 0.0 0.0 0 116 G -2.661184E-05 -1.746574E-04 1.301318E-05 0.0 0.0 0.0 3.229279E-05 1.339898E-04 -1.158176E-05 0.0 0.0 0.0 0 117 G 1.414291E-05 1.768955E-04 -2.581593E-05 0.0 0.0 0.0 -1.267383E-05 -1.356513E-04 3.186572E-05 0.0 0.0 0.0 0 119 G 1.249917E-05 1.719311E-04 -2.707615E-05 0.0 0.0 0.0 -1.074689E-05 -1.319603E-04 3.224611E-05 0.0 0.0 0.0 0 120 G -2.661184E-05 -1.746574E-04 1.301318E-05 0.0 0.0 0.0 3.229279E-05 1.339898E-04 -1.158176E-05 0.0 0.0 0.0 0 121 G 7.270807E-06 0.0 0.0 0.0 0.0 0.0 -6.144117E-06 0.0 0.0 0.0 0.0 0.0 0 123 G 1.553963E-05 0.0 0.0 0.0 0.0 0.0 -1.390941E-05 0.0 0.0 0.0 0.0 0.0 0 124 G 1.552227E-05 0.0 0.0 0.0 0.0 0.0 -1.389727E-05 0.0 0.0 0.0 0.0 0.0 0 125 G 1.553963E-05 0.0 0.0 0.0 0.0 0.0 -1.390941E-05 0.0 0.0 0.0 0.0 0.0 0 127 G 7.270807E-06 0.0 0.0 0.0 0.0 0.0 -6.144117E-06 0.0 0.0 0.0 0.0 0.0 0 128 G 7.250160E-06 0.0 0.0 0.0 0.0 0.0 -6.130454E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 70 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =4 MACH = 180. KFREQ= .7 RHO = 0.059164 COMPLEX EIGENVALUE = 9.545083E+03, 1.215575E+04 (CYCLIC FREQUENCY = 1.934648E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 1.391984E-03 3.905622E-03 -3.251686E-04 -9.561592E-02 3.822811E-02 -7.374436E-03 -1.389968E-05 3.364855E-04 -3.092284E-05 -2.514211E-02 1.951437E-03 4.483145E-03 0 2 G 1.391984E-03 3.905622E-03 -3.251686E-04 -9.561592E-02 3.822811E-02 -7.374436E-03 -1.389968E-05 3.364855E-04 -3.092284E-05 -2.514211E-02 1.951437E-03 4.483145E-03 0 3 G 1.391984E-03 3.905622E-03 -3.251686E-04 -9.561592E-02 3.822811E-02 -7.374436E-03 -1.389968E-05 3.364855E-04 -3.092284E-05 -2.514211E-02 1.951437E-03 4.483145E-03 0 4 G -1.989425E-02 9.916057E-02 1.889932E-02 -7.209351E-01 1.206120E+00 1.058651E-01 -4.080737E-02 8.147653E-02 1.303069E-02 3.066205E-02 -1.963524E-01 -7.905514E-02 0 5 G -1.313994E-02 9.001732E-02 -2.976827E-05 1.287078E-02 -1.026561E-01 -9.869248E-02 -1.362502E-02 4.074254E-02 4.098337E-04 -2.857940E-02 -4.030718E-02 -6.290764E-02 0 6 G 3.833686E-03 2.778972E-02 -9.002716E-03 8.533967E-03 -1.841077E-01 -1.008606E-01 -2.357833E-03 -2.395162E-03 1.072474E-03 1.025126E-02 -5.298689E-02 -4.551593E-02 0 7 G 4.432583E-01 -3.431717E-01 -6.136372E-02 0.0 0.0 5.607095E-01 -1.330686E-01 2.248352E-01 3.634788E-02 0.0 0.0 -1.008959E-01 0 8 G 1.689103E-01 -1.062594E-01 1.360294E-03 5.784890E-01 -5.646125E-01 3.425173E-01 -6.093533E-02 1.652174E-01 8.098624E-04 -2.017742E-01 1.899507E-01 -9.256440E-02 0 9 G 7.356483E-02 -5.717799E-04 -2.082219E-03 4.163210E-02 1.417313E-01 2.570089E-01 -1.024515E-02 1.056802E-01 -2.194030E-02 -1.043055E-01 4.916979E-02 -1.201438E-01 0 10 G 1.259862E-01 -1.119024E-01 -3.048413E-03 0.0 0.0 1.712059E-01 -7.321003E-02 1.915075E-01 2.686274E-02 0.0 0.0 -2.138570E-01 0 11 G -2.395837E-01 5.183654E-02 4.656801E-03 6.001418E-01 -7.276250E-01 -3.249955E-01 1.519275E-01 9.371607E-02 3.244251E-04 -1.050386E-01 1.858505E-01 -4.375299E-02 0 12 G 2.417385E-01 -2.148587E-01 2.117548E-02 0.0 0.0 -6.261143E-01 1.074389E-01 1.165466E-01 -1.358137E-02 0.0 0.0 1.801997E-02 0 101 G -3.396492E-04 -2.556507E-03 9.481610E-04 0.0 0.0 0.0 -3.276959E-05 -2.240929E-04 -9.282576E-06 0.0 0.0 0.0 0 103 G -3.907270E-04 -2.401203E-03 9.180015E-04 0.0 0.0 0.0 -2.220412E-05 -2.118117E-04 -8.304452E-06 0.0 0.0 0.0 0 104 G -3.929103E-04 -2.401300E-03 9.178139E-04 0.0 0.0 0.0 -2.242765E-05 -2.117475E-04 -8.263029E-06 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 71 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =4 MACH = 180. KFREQ= .7 RHO = 0.059164 COMPLEX EIGENVALUE = 9.545083E+03, 1.215575E+04 (CYCLIC FREQUENCY = 1.934648E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -3.907270E-04 -2.401203E-03 9.180015E-04 0.0 0.0 0.0 -2.220412E-05 -2.118117E-04 -8.304452E-06 0.0 0.0 0.0 0 107 G -3.396492E-04 -2.556507E-03 9.481610E-04 0.0 0.0 0.0 -3.276959E-05 -2.240929E-04 -9.282576E-06 0.0 0.0 0.0 0 108 G -3.435279E-04 -2.556124E-03 9.478639E-04 0.0 0.0 0.0 -3.315042E-05 -2.239393E-04 -9.204831E-06 0.0 0.0 0.0 0 113 G -2.878176E-04 -3.847301E-03 1.378153E-03 0.0 0.0 0.0 -3.160866E-05 -3.311997E-04 -1.135645E-05 0.0 0.0 0.0 0 115 G -3.692703E-04 -3.953753E-03 1.384662E-03 0.0 0.0 0.0 -3.111905E-05 -3.407398E-04 -1.607089E-05 0.0 0.0 0.0 0 116 G 1.391984E-03 3.905622E-03 -3.251686E-04 0.0 0.0 0.0 -1.389968E-05 3.364855E-04 -3.092284E-05 0.0 0.0 0.0 0 117 G -3.692703E-04 -3.953753E-03 1.384662E-03 0.0 0.0 0.0 -3.111905E-05 -3.407398E-04 -1.607089E-05 0.0 0.0 0.0 0 119 G -2.878176E-04 -3.847301E-03 1.378153E-03 0.0 0.0 0.0 -3.160866E-05 -3.311997E-04 -1.135645E-05 0.0 0.0 0.0 0 120 G 1.391984E-03 3.905622E-03 -3.251686E-04 0.0 0.0 0.0 -1.389968E-05 3.364855E-04 -3.092284E-05 0.0 0.0 0.0 0 121 G -1.631742E-04 0.0 0.0 0.0 0.0 0.0 -1.838894E-05 0.0 0.0 0.0 0.0 0.0 0 123 G -4.444626E-04 0.0 0.0 0.0 0.0 0.0 -2.631439E-05 0.0 0.0 0.0 0.0 0.0 0 124 G -4.441090E-04 0.0 0.0 0.0 0.0 0.0 -2.628340E-05 0.0 0.0 0.0 0.0 0.0 0 125 G -4.444626E-04 0.0 0.0 0.0 0.0 0.0 -2.631439E-05 0.0 0.0 0.0 0.0 0.0 0 127 G -1.631742E-04 0.0 0.0 0.0 0.0 0.0 -1.838894E-05 0.0 0.0 0.0 0.0 0.0 0 128 G -1.628122E-04 0.0 0.0 0.0 0.0 0.0 -1.834652E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 72 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =5 MACH = 180. KFREQ= .7 RHO = .118328 COMPLEX EIGENVALUE = 1.430719E+02, 2.429220E+03 (CYCLIC FREQUENCY = 3.866223E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -6.181200E-05 3.494298E-04 -3.535769E-05 -2.237198E-02 2.354258E-03 4.911421E-03 -2.641405E-05 7.263749E-05 -7.483414E-06 -8.569535E-03 1.997716E-05 1.982290E-03 0 2 G -6.181200E-05 3.494298E-04 -3.535769E-05 -2.237198E-02 2.354258E-03 4.911421E-03 -2.641405E-05 7.263749E-05 -7.483414E-06 -8.569535E-03 1.997716E-05 1.982290E-03 0 3 G -6.181200E-05 3.494298E-04 -3.535769E-05 -2.237198E-02 2.354258E-03 4.911421E-03 -2.641405E-05 7.263749E-05 -7.483414E-06 -8.569535E-03 1.997716E-05 1.982290E-03 0 4 G -4.195655E-02 8.182710E-02 1.303372E-02 6.604429E-02 -2.686915E-01 -9.147619E-02 -1.617072E-02 3.146832E-02 5.025411E-03 2.171975E-02 -9.463565E-02 -3.315279E-02 0 5 G -1.371770E-02 3.968363E-02 2.067094E-04 -2.830504E-02 -4.716695E-02 -6.074032E-02 -5.377357E-03 1.528313E-02 1.249203E-04 -1.278385E-02 -1.343969E-02 -2.384626E-02 0 6 G -2.688508E-03 -2.769740E-03 1.503119E-03 8.998594E-03 -5.055955E-02 -4.505239E-02 -1.037262E-03 -1.399637E-03 6.160894E-04 4.031700E-03 -1.805152E-02 -1.680432E-02 0 7 G -1.508997E-01 2.583570E-01 4.207013E-02 0.0 0.0 -1.191805E-01 -5.987835E-02 9.722614E-02 1.584537E-02 0.0 0.0 -4.827958E-02 0 8 G -8.945711E-02 2.090643E-01 -2.880212E-04 -1.774400E-01 7.015603E-02 -1.107386E-01 -2.859370E-02 7.139002E-02 1.957923E-04 -8.742972E-02 7.776013E-02 -4.288143E-02 0 9 G -1.919864E-02 1.272753E-01 -2.559962E-02 -1.471584E-01 7.698108E-02 -1.259247E-01 -6.333582E-03 4.532076E-02 -9.318734E-03 -4.243179E-02 7.428051E-03 -5.585510E-02 0 10 G -7.928013E-01 9.739568E-01 2.035976E-01 0.0 0.0 -3.160522E-02 7.085208E-02 1.370456E-02 -6.153959E-03 0.0 0.0 -3.166706E-02 0 11 G -8.221373E-01 1.013404E+00 2.016051E-02 -1.083610E+00 3.316093E-01 -1.330863E-01 1.214412E-01 -9.816460E-03 -1.296413E-03 1.855569E-01 -3.410247E-02 1.555600E-02 0 12 G -5.211338E-01 8.304051E-01 -1.045352E-01 0.0 0.0 -3.523708E-01 7.270572E-02 1.724370E-02 -1.505058E-03 0.0 0.0 4.729882E-02 0 101 G -3.686334E-05 -2.345214E-04 -4.119537E-05 0.0 0.0 0.0 -7.867852E-06 -4.884701E-05 -1.795393E-05 0.0 0.0 0.0 0 103 G -2.031436E-05 -2.221679E-04 -3.871034E-05 0.0 0.0 0.0 -2.995631E-06 -4.636412E-05 -1.710280E-05 0.0 0.0 0.0 0 104 G -2.054960E-05 -2.220765E-04 -3.864454E-05 0.0 0.0 0.0 -3.048977E-06 -4.633699E-05 -1.708418E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 73 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =5 MACH = 180. KFREQ= .7 RHO = .118328 COMPLEX EIGENVALUE = 1.430719E+02, 2.429220E+03 (CYCLIC FREQUENCY = 3.866223E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -2.031436E-05 -2.221679E-04 -3.871034E-05 0.0 0.0 0.0 -2.995631E-06 -4.636412E-05 -1.710280E-05 0.0 0.0 0.0 0 107 G -3.686334E-05 -2.345214E-04 -4.119537E-05 0.0 0.0 0.0 -7.867852E-06 -4.884701E-05 -1.795393E-05 0.0 0.0 0.0 0 108 G -3.725413E-05 -2.343289E-04 -4.107652E-05 0.0 0.0 0.0 -7.957066E-06 -4.879285E-05 -1.791972E-05 0.0 0.0 0.0 0 113 G -3.732174E-05 -3.440038E-04 -5.787651E-05 0.0 0.0 0.0 -8.300466E-06 -7.144985E-05 -2.522687E-05 0.0 0.0 0.0 0 115 G -3.417607E-05 -3.538132E-04 -6.450870E-05 0.0 0.0 0.0 -6.879932E-06 -7.356848E-05 -2.714783E-05 0.0 0.0 0.0 0 116 G -6.181200E-05 3.494298E-04 -3.535769E-05 0.0 0.0 0.0 -2.641405E-05 7.263749E-05 -7.483414E-06 0.0 0.0 0.0 0 117 G -3.417607E-05 -3.538132E-04 -6.450870E-05 0.0 0.0 0.0 -6.879932E-06 -7.356848E-05 -2.714783E-05 0.0 0.0 0.0 0 119 G -3.732174E-05 -3.440038E-04 -5.787651E-05 0.0 0.0 0.0 -8.300466E-06 -7.144985E-05 -2.522687E-05 0.0 0.0 0.0 0 120 G -6.181200E-05 3.494298E-04 -3.535769E-05 0.0 0.0 0.0 -2.641405E-05 7.263749E-05 -7.483414E-06 0.0 0.0 0.0 0 121 G -2.187990E-05 0.0 0.0 0.0 0.0 0.0 -4.872983E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -2.412992E-05 0.0 0.0 0.0 0.0 0.0 -3.737926E-06 0.0 0.0 0.0 0.0 0.0 0 124 G -2.409925E-05 0.0 0.0 0.0 0.0 0.0 -3.731300E-06 0.0 0.0 0.0 0.0 0.0 0 125 G -2.412992E-05 0.0 0.0 0.0 0.0 0.0 -3.737926E-06 0.0 0.0 0.0 0.0 0.0 0 127 G -2.187990E-05 0.0 0.0 0.0 0.0 0.0 -4.872983E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -2.183410E-05 0.0 0.0 0.0 0.0 0.0 -4.861992E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 74 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =5 MACH = 180. KFREQ= .7 RHO = .118328 COMPLEX EIGENVALUE = 2.817221E+03, 3.100213E+03 (CYCLIC FREQUENCY = 4.934142E+02HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -2.095194E-04 1.711049E-04 -2.157249E-05 -3.672079E-02 -1.379247E-03 1.004274E-02 -1.836487E-04 -6.907212E-04 5.994290E-05 2.243463E-02 -6.092208E-03 -8.478638E-04 0 2 G -2.095194E-04 1.711049E-04 -2.157249E-05 -3.672079E-02 -1.379247E-03 1.004274E-02 -1.836487E-04 -6.907212E-04 5.994290E-05 2.243463E-02 -6.092208E-03 -8.478638E-04 0 3 G -2.095194E-04 1.711049E-04 -2.157249E-05 -3.672079E-02 -1.379247E-03 1.004274E-02 -1.836487E-04 -6.907212E-04 5.994290E-05 2.243463E-02 -6.092208E-03 -8.478638E-04 0 4 G -7.828155E-02 1.487655E-01 2.352628E-02 1.526884E-01 -5.437188E-01 -1.706896E-01 1.869691E-02 -4.553583E-02 -7.769212E-03 8.555581E-02 -8.483201E-02 1.753055E-02 0 5 G -2.550889E-02 6.961454E-02 6.365279E-04 -6.120784E-02 -6.434982E-02 -1.112067E-01 7.224298E-03 -2.853915E-02 -3.138371E-05 1.056973E-02 3.005541E-02 3.751481E-02 0 6 G -5.285802E-03 -8.281557E-03 3.473653E-03 1.894879E-02 -7.946034E-02 -7.706355E-02 4.740471E-04 -2.993945E-03 7.050593E-04 -4.822904E-03 4.526706E-02 3.170691E-02 0 7 G -3.195596E-01 4.974866E-01 8.134289E-02 0.0 0.0 -2.694991E-01 -9.632807E-03 -4.688100E-02 -6.869611E-03 0.0 0.0 -3.935520E-02 0 8 G -1.520930E-01 3.587093E-01 8.303236E-04 -4.551238E-01 3.935398E-01 -2.300736E-01 8.754510E-03 -6.423227E-02 -3.031149E-05 -1.817643E-02 5.417153E-02 -8.953098E-03 0 9 G -3.475592E-02 2.217774E-01 -4.540365E-02 -2.196800E-01 5.343372E-02 -2.809478E-01 -2.608387E-03 -5.014390E-02 1.041390E-02 4.485624E-02 -3.069167E-02 1.543798E-02 0 10 G -1.836393E-03 3.643698E-01 3.999149E-02 0.0 0.0 -2.209594E-01 4.602905E-02 -1.683623E-01 -3.141610E-02 0.0 0.0 -8.340620E-02 0 11 G 2.849062E-01 2.406643E-01 3.162922E-04 2.421672E-01 1.112139E-01 2.263937E-02 1.551465E-01 -2.214802E-01 -4.101344E-03 -1.512019E-01 1.835420E-01 4.373056E-02 0 12 G 1.425227E-01 3.151748E-01 -3.661816E-02 0.0 0.0 1.246235E-01 4.456212E-02 -1.568136E-01 2.026079E-02 0.0 0.0 1.373527E-01 0 101 G -2.290048E-05 -1.192332E-04 -1.423007E-04 0.0 0.0 0.0 6.242580E-05 4.537289E-04 -1.253048E-04 0.0 0.0 0.0 0 103 G 5.091530E-06 -1.145776E-04 -1.363015E-04 0.0 0.0 0.0 6.443235E-05 4.267417E-04 -1.217201E-04 0.0 0.0 0.0 0 104 G 4.929898E-06 -1.144336E-04 -1.361940E-04 0.0 0.0 0.0 6.483071E-05 4.267243E-04 -1.217138E-04 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 75 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =5 MACH = 180. KFREQ= .7 RHO = .118328 COMPLEX EIGENVALUE = 2.817221E+03, 3.100213E+03 (CYCLIC FREQUENCY = 4.934142E+02HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G 5.091530E-06 -1.145776E-04 -1.363015E-04 0.0 0.0 0.0 6.443235E-05 4.267417E-04 -1.217201E-04 0.0 0.0 0.0 0 107 G -2.290048E-05 -1.192332E-04 -1.423007E-04 0.0 0.0 0.0 6.242580E-05 4.537289E-04 -1.253048E-04 0.0 0.0 0.0 0 108 G -2.315624E-05 -1.189752E-04 -1.421065E-04 0.0 0.0 0.0 6.312591E-05 4.536077E-04 -1.252999E-04 0.0 0.0 0.0 0 113 G -2.775310E-05 -1.680545E-04 -2.026305E-04 0.0 0.0 0.0 5.510360E-05 6.803260E-04 -1.829161E-04 0.0 0.0 0.0 0 115 G -1.614752E-05 -1.733949E-04 -2.129163E-04 0.0 0.0 0.0 6.600453E-05 6.992538E-04 -1.816694E-04 0.0 0.0 0.0 0 116 G -2.095194E-04 1.711049E-04 -2.157249E-05 0.0 0.0 0.0 -1.836487E-04 -6.907212E-04 5.994290E-05 0.0 0.0 0.0 0 117 G -1.614752E-05 -1.733949E-04 -2.129163E-04 0.0 0.0 0.0 6.600453E-05 6.992538E-04 -1.816694E-04 0.0 0.0 0.0 0 119 G -2.775310E-05 -1.680545E-04 -2.026305E-04 0.0 0.0 0.0 5.510360E-05 6.803260E-04 -1.829161E-04 0.0 0.0 0.0 0 120 G -2.095194E-04 1.711049E-04 -2.157249E-05 0.0 0.0 0.0 -1.836487E-04 -6.907212E-04 5.994290E-05 0.0 0.0 0.0 0 121 G -1.664675E-05 0.0 0.0 0.0 0.0 0.0 3.145263E-05 0.0 0.0 0.0 0.0 0.0 0 123 G 4.018962E-06 0.0 0.0 0.0 0.0 0.0 7.353431E-05 0.0 0.0 0.0 0.0 0.0 0 124 G 4.034635E-06 0.0 0.0 0.0 0.0 0.0 7.347224E-05 0.0 0.0 0.0 0.0 0.0 0 125 G 4.018962E-06 0.0 0.0 0.0 0.0 0.0 7.353431E-05 0.0 0.0 0.0 0.0 0.0 0 127 G -1.664675E-05 0.0 0.0 0.0 0.0 0.0 3.145263E-05 0.0 0.0 0.0 0.0 0.0 0 128 G -1.660911E-05 0.0 0.0 0.0 0.0 0.0 3.138419E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 76 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =5 MACH = 180. KFREQ= .7 RHO = .118328 COMPLEX EIGENVALUE = 3.640497E+02, 7.459500E+03 (CYCLIC FREQUENCY = 1.187216E+03HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -1.174197E-05 -1.190200E-04 8.249649E-06 9.195723E-03 -1.446235E-03 -8.679777E-04 8.303339E-05 3.457143E-04 -2.989177E-05 -1.337547E-02 2.906546E-03 9.098218E-04 0 2 G -1.174197E-05 -1.190200E-04 8.249649E-06 9.195723E-03 -1.446235E-03 -8.679777E-04 8.303339E-05 3.457143E-04 -2.989177E-05 -1.337547E-02 2.906546E-03 9.098218E-04 0 3 G -1.174197E-05 -1.190200E-04 8.249649E-06 9.195723E-03 -1.446235E-03 -8.679777E-04 8.303339E-05 3.457143E-04 -2.989177E-05 -1.337547E-02 2.906546E-03 9.098218E-04 0 4 G 1.178981E-02 -2.381835E-02 -3.627870E-03 -4.715266E-03 4.793953E-02 2.111366E-02 -1.340459E-02 3.052903E-02 5.096488E-03 -3.657873E-02 1.792980E-02 -1.687891E-02 0 5 G 3.641865E-03 -1.152792E-02 -4.059900E-04 3.133477E-03 1.635042E-02 1.984591E-02 -4.924302E-03 1.789018E-02 9.027827E-05 -8.268496E-03 -1.792607E-02 -2.484090E-02 0 6 G 4.440139E-04 5.079702E-04 7.787636E-05 -3.377825E-03 1.960734E-02 1.400905E-02 -4.816054E-04 1.035293E-03 -2.138104E-04 3.562189E-03 -2.702130E-02 -1.987120E-02 0 7 G 3.615180E-02 -4.866516E-02 -7.560320E-03 0.0 0.0 2.836803E-02 -1.154011E-02 4.661987E-02 7.193975E-03 0.0 0.0 5.675206E-03 0 8 G 7.190963E-04 -1.796130E-02 -1.198306E-03 8.280406E-02 -1.367643E-01 1.942459E-02 -8.995418E-03 4.530457E-02 2.318641E-04 -2.087749E-02 1.286626E-02 -6.432617E-03 0 9 G -5.729254E-03 -1.023161E-02 2.707699E-03 1.783059E-02 -5.861808E-02 1.565938E-02 7.486457E-04 3.346927E-02 -7.032159E-03 -2.933096E-02 1.839288E-02 -2.151985E-02 0 10 G 3.053585E-01 -1.260858E-01 -3.555444E-02 0.0 0.0 4.250391E-01 2.565094E-02 3.360614E-02 2.802697E-03 0.0 0.0 -1.426341E-02 0 11 G -8.845895E-02 4.655601E-02 -2.942290E-04 9.266183E-01 -6.303104E-01 1.296499E-01 3.555254E-02 2.950834E-02 1.563509E-04 1.173476E-01 -5.675143E-02 -1.965987E-02 0 12 G -7.808077E-02 4.048167E-02 -5.083716E-03 0.0 0.0 2.571419E-02 4.887691E-02 2.164369E-02 -2.724690E-03 0.0 0.0 -2.696307E-02 0 101 G 9.664627E-06 7.967271E-05 -7.993523E-06 0.0 0.0 0.0 -3.126690E-05 -2.273437E-04 5.661275E-05 0.0 0.0 0.0 0 103 G 7.746550E-06 7.531302E-05 -7.749701E-06 0.0 0.0 0.0 -3.130249E-05 -2.139129E-04 5.503090E-05 0.0 0.0 0.0 0 104 G 7.830233E-06 7.530189E-05 -7.758412E-06 0.0 0.0 0.0 -3.150548E-05 -2.138994E-04 5.503142E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 77 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =5 MACH = 180. KFREQ= .7 RHO = .118328 COMPLEX EIGENVALUE = 3.640497E+02, 7.459500E+03 (CYCLIC FREQUENCY = 1.187216E+03HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G 7.746550E-06 7.531302E-05 -7.749701E-06 0.0 0.0 0.0 -3.130249E-05 -2.139129E-04 5.503090E-05 0.0 0.0 0.0 0 107 G 9.664627E-06 7.967271E-05 -7.993523E-06 0.0 0.0 0.0 -3.126690E-05 -2.273437E-04 5.661275E-05 0.0 0.0 0.0 0 108 G 9.806919E-06 7.962942E-05 -8.010991E-06 0.0 0.0 0.0 -3.162297E-05 -2.272739E-04 5.661714E-05 0.0 0.0 0.0 0 113 G 8.124258E-06 1.171336E-04 -1.226577E-05 0.0 0.0 0.0 -2.774591E-05 -3.404772E-04 8.292085E-05 0.0 0.0 0.0 0 115 G 8.885867E-06 1.205690E-04 -1.110683E-05 0.0 0.0 0.0 -3.270160E-05 -3.500013E-04 8.192825E-05 0.0 0.0 0.0 0 116 G -1.174197E-05 -1.190200E-04 8.249649E-06 0.0 0.0 0.0 8.303339E-05 3.457143E-04 -2.989177E-05 0.0 0.0 0.0 0 117 G 8.885867E-06 1.205690E-04 -1.110683E-05 0.0 0.0 0.0 -3.270160E-05 -3.500013E-04 8.192825E-05 0.0 0.0 0.0 0 119 G 8.124258E-06 1.171336E-04 -1.226577E-05 0.0 0.0 0.0 -2.774591E-05 -3.404772E-04 8.292085E-05 0.0 0.0 0.0 0 120 G -1.174197E-05 -1.190200E-04 8.249649E-06 0.0 0.0 0.0 8.303339E-05 3.457143E-04 -2.989177E-05 0.0 0.0 0.0 0 121 G 4.773668E-06 0.0 0.0 0.0 0.0 0.0 -1.586348E-05 0.0 0.0 0.0 0.0 0.0 0 123 G 9.640251E-06 0.0 0.0 0.0 0.0 0.0 -3.586414E-05 0.0 0.0 0.0 0.0 0.0 0 124 G 9.627938E-06 0.0 0.0 0.0 0.0 0.0 -3.583283E-05 0.0 0.0 0.0 0.0 0.0 0 125 G 9.640251E-06 0.0 0.0 0.0 0.0 0.0 -3.586414E-05 0.0 0.0 0.0 0.0 0.0 0 127 G 4.773668E-06 0.0 0.0 0.0 0.0 0.0 -1.586348E-05 0.0 0.0 0.0 0.0 0.0 0 128 G 4.758579E-06 0.0 0.0 0.0 0.0 0.0 -1.582820E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 78 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =5 MACH = 180. KFREQ= .7 RHO = .118328 COMPLEX EIGENVALUE = 3.949816E+03, 8.690268E+03 (CYCLIC FREQUENCY = 1.383099E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 3.242634E-04 5.275103E-04 -4.194104E-05 5.494012E-03 6.313659E-03 -6.212824E-03 7.849428E-04 2.709058E-03 -2.300043E-04 -8.862563E-02 2.456201E-02 1.819940E-03 0 2 G 3.242634E-04 5.275103E-04 -4.194104E-05 5.494012E-03 6.313659E-03 -6.212824E-03 7.849428E-04 2.709058E-03 -2.300043E-04 -8.862563E-02 2.456201E-02 1.819940E-03 0 3 G 3.242634E-04 5.275103E-04 -4.194104E-05 5.494012E-03 6.313659E-03 -6.212824E-03 7.849428E-04 2.709058E-03 -2.300043E-04 -8.862563E-02 2.456201E-02 1.819940E-03 0 4 G 3.834906E-02 -6.318583E-02 -9.341542E-03 -1.939647E-01 4.759668E-01 1.062531E-01 -6.611482E-02 1.664097E-01 2.841970E-02 -3.761576E-01 4.349092E-01 -4.471298E-02 0 5 G 1.121330E-02 -2.226245E-02 -5.575875E-04 3.094168E-02 2.071244E-02 4.438470E-02 -2.591249E-02 1.067497E-01 4.646450E-04 -3.197527E-02 -1.122838E-01 -1.409865E-01 0 6 G 3.249792E-03 8.766593E-03 -3.013193E-03 -9.031652E-03 1.555160E-02 2.523766E-02 -9.854168E-04 1.286501E-02 -3.695818E-03 1.857035E-02 -1.766157E-01 -1.191586E-01 0 7 G 2.395513E-01 -3.072682E-01 -5.088494E-02 0.0 0.0 2.330714E-01 7.852252E-02 1.054512E-01 1.370644E-02 0.0 0.0 1.900062E-01 0 8 G 9.511352E-02 -1.849723E-01 -9.536815E-04 3.543338E-01 -3.639811E-01 1.719947E-01 1.260982E-02 1.661450E-01 1.652009E-03 7.105115E-02 -9.172755E-02 7.312644E-02 0 9 G 2.384162E-02 -1.026160E-01 2.105591E-02 1.132078E-01 -3.649745E-02 1.771237E-01 2.695383E-02 1.456782E-01 -3.138809E-02 -1.180292E-01 1.373364E-01 -1.616882E-02 0 10 G 2.019262E-01 -2.362613E-01 -3.578536E-02 0.0 0.0 4.134847E-01 4.621647E-02 1.699666E-01 2.657119E-02 0.0 0.0 -1.025860E-01 0 11 G -2.556566E-01 -3.509984E-02 1.118355E-03 5.818370E-01 -5.881686E-01 1.658910E-02 5.975444E-02 1.671656E-01 2.966787E-03 4.238765E-01 -3.095495E-01 -2.189033E-01 0 12 G -9.187869E-02 -1.246207E-01 1.330848E-02 0.0 0.0 -1.581606E-01 2.766031E-01 4.446465E-02 -7.459796E-03 0.0 0.0 -3.293606E-01 0 101 G -4.293737E-05 -3.410408E-04 2.207204E-04 0.0 0.0 0.0 -2.406643E-04 -1.778241E-03 5.349273E-04 0.0 0.0 0.0 0 103 G -6.508488E-05 -3.188977E-04 2.130682E-04 0.0 0.0 0.0 -2.559106E-04 -1.671972E-03 5.188665E-04 0.0 0.0 0.0 0 104 G -6.533986E-05 -3.189836E-04 2.129838E-04 0.0 0.0 0.0 -2.574707E-04 -1.671940E-03 5.188138E-04 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 79 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =5 MACH = 180. KFREQ= .7 RHO = .118328 COMPLEX EIGENVALUE = 3.949816E+03, 8.690268E+03 (CYCLIC FREQUENCY = 1.383099E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -6.508488E-05 -3.188977E-04 2.130682E-04 0.0 0.0 0.0 -2.559106E-04 -1.671972E-03 5.188665E-04 0.0 0.0 0.0 0 107 G -4.293737E-05 -3.410408E-04 2.207204E-04 0.0 0.0 0.0 -2.406643E-04 -1.778241E-03 5.349273E-04 0.0 0.0 0.0 0 108 G -4.340785E-05 -3.411137E-04 2.205740E-04 0.0 0.0 0.0 -2.434146E-04 -1.777813E-03 5.348600E-04 0.0 0.0 0.0 0 113 G -3.287125E-05 -5.199225E-04 3.185563E-04 0.0 0.0 0.0 -2.093372E-04 -2.668263E-03 7.803680E-04 0.0 0.0 0.0 0 115 G -5.151646E-05 -5.338765E-04 3.248689E-04 0.0 0.0 0.0 -2.557051E-04 -2.742575E-03 7.777990E-04 0.0 0.0 0.0 0 116 G 3.242634E-04 5.275103E-04 -4.194104E-05 0.0 0.0 0.0 7.849428E-04 2.709058E-03 -2.300043E-04 0.0 0.0 0.0 0 117 G -5.151646E-05 -5.338765E-04 3.248689E-04 0.0 0.0 0.0 -2.557051E-04 -2.742575E-03 7.777990E-04 0.0 0.0 0.0 0 119 G -3.287125E-05 -5.199225E-04 3.185563E-04 0.0 0.0 0.0 -2.093372E-04 -2.668263E-03 7.803680E-04 0.0 0.0 0.0 0 120 G 3.242634E-04 5.275103E-04 -4.194104E-05 0.0 0.0 0.0 7.849428E-04 2.709058E-03 -2.300043E-04 0.0 0.0 0.0 0 121 G -1.813608E-05 0.0 0.0 0.0 0.0 0.0 -1.192989E-04 0.0 0.0 0.0 0.0 0.0 0 123 G -7.271487E-05 0.0 0.0 0.0 0.0 0.0 -2.923960E-04 0.0 0.0 0.0 0.0 0.0 0 124 G -7.266827E-05 0.0 0.0 0.0 0.0 0.0 -2.921504E-04 0.0 0.0 0.0 0.0 0.0 0 125 G -7.271487E-05 0.0 0.0 0.0 0.0 0.0 -2.923960E-04 0.0 0.0 0.0 0.0 0.0 0 127 G -1.813608E-05 0.0 0.0 0.0 0.0 0.0 -1.192989E-04 0.0 0.0 0.0 0.0 0.0 0 128 G -1.809928E-05 0.0 0.0 0.0 0.0 0.0 -1.190330E-04 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 80 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =6 MACH = 180. KFREQ= .7 RHO = .1774919 COMPLEX EIGENVALUE = 2.416029E+03, 1.857443E+03 (CYCLIC FREQUENCY = 2.956212E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -2.601165E-04 1.225079E-04 -1.863315E-05 -3.830042E-02 -2.095312E-03 1.119255E-02 -8.440430E-05 -4.156932E-04 3.688346E-05 1.577793E-02 -3.485671E-03 -1.347470E-03 0 2 G -2.601165E-04 1.225079E-04 -1.863315E-05 -3.830042E-02 -2.095312E-03 1.119255E-02 -8.440430E-05 -4.156932E-04 3.688346E-05 1.577793E-02 -3.485671E-03 -1.347470E-03 0 3 G -2.601165E-04 1.225079E-04 -1.863315E-05 -3.830042E-02 -2.095312E-03 1.119255E-02 -8.440430E-05 -4.156932E-04 3.688346E-05 1.577793E-02 -3.485671E-03 -1.347470E-03 0 4 G -8.569308E-02 1.615437E-01 2.547931E-02 1.847449E-01 -6.270880E-01 -1.907523E-01 1.738718E-02 -3.864200E-02 -6.426836E-03 3.326333E-02 3.158860E-03 2.546771E-02 0 5 G -2.776211E-02 7.466090E-02 6.785411E-04 -6.719559E-02 -6.989054E-02 -1.200382E-01 6.278728E-03 -2.211832E-02 -6.003899E-05 1.093120E-02 2.359624E-02 3.069269E-02 0 6 G -5.904332E-03 -9.612774E-03 4.015480E-03 2.047869E-02 -8.376764E-02 -8.275685E-02 7.360369E-04 -1.015374E-03 9.025220E-05 -4.233267E-03 3.263093E-02 2.467000E-02 0 7 G -3.606381E-01 5.558884E-01 9.100869E-02 0.0 0.0 -3.078541E-01 2.259184E-02 -7.107180E-02 -1.117572E-02 0.0 0.0 1.385894E-03 0 8 G -1.732538E-01 4.006049E-01 7.619433E-04 -5.066069E-01 4.271898E-01 -2.606368E-01 1.999371E-02 -7.024395E-02 -6.024085E-06 2.536406E-02 8.497836E-03 1.544972E-02 0 9 G -4.040258E-02 2.457427E-01 -5.018101E-02 -2.472960E-01 6.119140E-02 -3.129464E-01 1.977820E-03 -4.879951E-02 1.001515E-02 4.814496E-02 -2.682872E-02 3.197284E-02 0 10 G -1.109835E-01 5.113944E-01 6.902652E-02 0.0 0.0 -2.299942E-01 1.144734E-01 -2.135775E-01 -4.138486E-02 0.0 0.0 -3.545279E-02 0 11 G 1.836633E-01 3.878897E-01 3.005372E-03 9.639011E-02 1.701502E-01 1.500983E-02 1.684005E-01 -2.431667E-01 -4.521075E-03 3.152468E-02 5.918935E-02 3.745480E-02 0 12 G 6.681181E-02 4.458668E-01 -5.283095E-02 0.0 0.0 9.567861E-02 7.925247E-02 -1.899447E-01 2.408879E-02 0.0 0.0 1.098413E-01 0 101 G -1.981614E-05 -8.841220E-05 -1.766269E-04 0.0 0.0 0.0 3.842610E-05 2.738578E-04 -5.772380E-05 0.0 0.0 0.0 0 103 G 1.257039E-05 -8.595988E-05 -1.693302E-04 0.0 0.0 0.0 3.668376E-05 2.578313E-04 -5.628628E-05 0.0 0.0 0.0 0 104 G 1.242873E-05 -8.579670E-05 -1.692057E-04 0.0 0.0 0.0 3.692939E-05 2.578067E-04 -5.629400E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 81 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =6 MACH = 180. KFREQ= .7 RHO = .1774919 COMPLEX EIGENVALUE = 2.416029E+03, 1.857443E+03 (CYCLIC FREQUENCY = 2.956212E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G 1.257039E-05 -8.595988E-05 -1.693302E-04 0.0 0.0 0.0 3.668376E-05 2.578313E-04 -5.628628E-05 0.0 0.0 0.0 0 107 G -1.981614E-05 -8.841220E-05 -1.766269E-04 0.0 0.0 0.0 3.842610E-05 2.738578E-04 -5.772380E-05 0.0 0.0 0.0 0 108 G -2.003185E-05 -8.813041E-05 -1.764032E-04 0.0 0.0 0.0 3.885429E-05 2.737623E-04 -5.774120E-05 0.0 0.0 0.0 0 113 G -2.622730E-05 -1.201417E-04 -2.521336E-04 0.0 0.0 0.0 3.471892E-05 4.094026E-04 -8.468911E-05 0.0 0.0 0.0 0 115 G -1.174435E-05 -1.242139E-04 -2.637891E-04 0.0 0.0 0.0 3.981627E-05 4.208416E-04 -8.292348E-05 0.0 0.0 0.0 0 116 G -2.601165E-04 1.225079E-04 -1.863315E-05 0.0 0.0 0.0 -8.440430E-05 -4.156932E-04 3.688346E-05 0.0 0.0 0.0 0 117 G -1.174435E-05 -1.242139E-04 -2.637891E-04 0.0 0.0 0.0 3.981627E-05 4.208416E-04 -8.292348E-05 0.0 0.0 0.0 0 119 G -2.622730E-05 -1.201417E-04 -2.521336E-04 0.0 0.0 0.0 3.471892E-05 4.094026E-04 -8.468911E-05 0.0 0.0 0.0 0 120 G -2.601165E-04 1.225079E-04 -1.863315E-05 0.0 0.0 0.0 -8.440430E-05 -4.156932E-04 3.688346E-05 0.0 0.0 0.0 0 121 G -1.590587E-05 0.0 0.0 0.0 0.0 0.0 1.990959E-05 0.0 0.0 0.0 0.0 0.0 0 123 G 1.234509E-05 0.0 0.0 0.0 0.0 0.0 4.203057E-05 0.0 0.0 0.0 0.0 0.0 0 124 G 1.235621E-05 0.0 0.0 0.0 0.0 0.0 4.199331E-05 0.0 0.0 0.0 0.0 0.0 0 125 G 1.234509E-05 0.0 0.0 0.0 0.0 0.0 4.203057E-05 0.0 0.0 0.0 0.0 0.0 0 127 G -1.590587E-05 0.0 0.0 0.0 0.0 0.0 1.990959E-05 0.0 0.0 0.0 0.0 0.0 0 128 G -1.587030E-05 0.0 0.0 0.0 0.0 0.0 1.986644E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 82 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =6 MACH = 180. KFREQ= .7 RHO = .1774919 COMPLEX EIGENVALUE = 1.444300E+02, 2.518553E+03 (CYCLIC FREQUENCY = 4.008401E+02HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -4.531705E-05 3.123168E-04 -3.147247E-05 -1.758289E-02 2.378415E-03 3.777820E-03 -2.730812E-05 9.553302E-05 -9.654456E-06 -1.028707E-02 1.206679E-04 2.306130E-03 0 2 G -4.531705E-05 3.123168E-04 -3.147247E-05 -1.758289E-02 2.378415E-03 3.777820E-03 -2.730812E-05 9.553302E-05 -9.654456E-06 -1.028707E-02 1.206679E-04 2.306130E-03 0 3 G -4.531705E-05 3.123168E-04 -3.147247E-05 -1.758289E-02 2.378415E-03 3.777820E-03 -2.730812E-05 9.553302E-05 -9.654456E-06 -1.028707E-02 1.206679E-04 2.306130E-03 0 4 G -3.276888E-02 6.401451E-02 1.019425E-02 5.288439E-02 -2.134859E-01 -7.248711E-02 -1.900416E-02 3.714342E-02 5.941256E-03 2.353820E-02 -1.077135E-01 -3.857898E-02 0 5 G -1.067263E-02 3.108403E-02 1.329168E-04 -2.105601E-02 -3.958563E-02 -4.725597E-02 -6.339239E-03 1.815498E-02 1.442657E-04 -1.498220E-02 -1.599548E-02 -2.819984E-02 0 6 G -2.095477E-03 -1.942468E-03 1.145437E-03 6.708356E-03 -4.044920E-02 -3.558861E-02 -1.206896E-03 -1.566414E-03 7.004238E-04 4.744643E-03 -2.162162E-02 -1.995934E-02 0 7 G -1.163080E-01 2.027341E-01 3.300139E-02 0.0 0.0 -9.104707E-02 -6.899070E-02 1.131291E-01 1.842448E-02 0.0 0.0 -5.507021E-02 0 8 G -7.312966E-02 1.685493E-01 -4.066860E-04 -1.267611E-01 2.448593E-02 -8.598871E-02 -3.317448E-02 8.358882E-02 2.261977E-04 -1.007176E-01 8.900664E-02 -4.937995E-02 0 9 G -1.558577E-02 1.016449E-01 -2.032720E-02 -1.230512E-01 7.250293E-02 -9.399182E-02 -7.285552E-03 5.325463E-02 -1.095210E-02 -4.970548E-02 8.781553E-03 -6.489495E-02 0 10 G -8.303349E-01 9.652916E-01 2.068259E-01 0.0 0.0 -1.007046E-02 8.524605E-02 1.538687E-02 -7.386378E-03 0.0 0.0 -3.407495E-02 0 11 G -8.918818E-01 1.019628E+00 2.090024E-02 -1.180308E+00 3.449122E-01 -1.412376E-01 1.411997E-01 -1.070150E-02 -1.504895E-03 2.251925E-01 -4.594529E-02 1.815595E-02 0 12 G -5.626307E-01 8.209394E-01 -1.037264E-01 0.0 0.0 -3.797026E-01 8.542674E-02 2.025952E-02 -1.784049E-03 0.0 0.0 5.389307E-02 0 101 G -3.276767E-05 -2.094813E-04 -2.998101E-05 0.0 0.0 0.0 -1.013790E-05 -6.405303E-05 -1.855585E-05 0.0 0.0 0.0 0 103 G -1.904232E-05 -1.983721E-04 -2.801054E-05 0.0 0.0 0.0 -4.557452E-06 -6.072911E-05 -1.763605E-05 0.0 0.0 0.0 0 104 G -1.924949E-05 -1.982962E-04 -2.795554E-05 0.0 0.0 0.0 -4.625738E-06 -6.069751E-05 -1.761471E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 83 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =6 MACH = 180. KFREQ= .7 RHO = .1774919 COMPLEX EIGENVALUE = 1.444300E+02, 2.518553E+03 (CYCLIC FREQUENCY = 4.008401E+02HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -1.904232E-05 -1.983721E-04 -2.801054E-05 0.0 0.0 0.0 -4.557452E-06 -6.072911E-05 -1.763605E-05 0.0 0.0 0.0 0 107 G -3.276767E-05 -2.094813E-04 -2.998101E-05 0.0 0.0 0.0 -1.013790E-05 -6.405303E-05 -1.855585E-05 0.0 0.0 0.0 0 108 G -3.311178E-05 -2.093192E-04 -2.988196E-05 0.0 0.0 0.0 -1.025271E-05 -6.398853E-05 -1.851652E-05 0.0 0.0 0.0 0 113 G -3.293133E-05 -3.075039E-04 -4.207176E-05 0.0 0.0 0.0 -1.051341E-05 -9.398605E-05 -2.595259E-05 0.0 0.0 0.0 0 115 G -3.067978E-05 -3.162219E-04 -4.760405E-05 0.0 0.0 0.0 -9.062222E-06 -9.675197E-05 -2.818785E-05 0.0 0.0 0.0 0 116 G -4.531705E-05 3.123168E-04 -3.147247E-05 0.0 0.0 0.0 -2.730812E-05 9.553302E-05 -9.654456E-06 0.0 0.0 0.0 0 117 G -3.067978E-05 -3.162219E-04 -4.760405E-05 0.0 0.0 0.0 -9.062222E-06 -9.675197E-05 -2.818785E-05 0.0 0.0 0.0 0 119 G -3.293133E-05 -3.075039E-04 -4.207176E-05 0.0 0.0 0.0 -1.051341E-05 -9.398605E-05 -2.595259E-05 0.0 0.0 0.0 0 120 G -4.531705E-05 3.123168E-04 -3.147247E-05 0.0 0.0 0.0 -2.730812E-05 9.553302E-05 -9.654456E-06 0.0 0.0 0.0 0 121 G -1.929529E-05 0.0 0.0 0.0 0.0 0.0 -6.156127E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -2.249003E-05 0.0 0.0 0.0 0.0 0.0 -5.567647E-06 0.0 0.0 0.0 0.0 0.0 0 124 G -2.246275E-05 0.0 0.0 0.0 0.0 0.0 -5.558950E-06 0.0 0.0 0.0 0.0 0.0 0 125 G -2.249003E-05 0.0 0.0 0.0 0.0 0.0 -5.567647E-06 0.0 0.0 0.0 0.0 0.0 0 127 G -1.929529E-05 0.0 0.0 0.0 0.0 0.0 -6.156127E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -1.925537E-05 0.0 0.0 0.0 0.0 0.0 -6.142287E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 84 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =6 MACH = 180. KFREQ= .7 RHO = .1774919 COMPLEX EIGENVALUE = 3.887587E+02, 7.339756E+03 (CYCLIC FREQUENCY = 1.168158E+03HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 9.076948E-06 -2.874141E-05 4.161770E-07 5.610766E-03 -6.966998E-04 -5.987569E-04 8.872227E-05 3.758302E-04 -3.254424E-05 -1.473028E-02 3.138612E-03 1.050878E-03 0 2 G 9.076948E-06 -2.874141E-05 4.161770E-07 5.610766E-03 -6.966998E-04 -5.987569E-04 8.872227E-05 3.758302E-04 -3.254424E-05 -1.473028E-02 3.138612E-03 1.050878E-03 0 3 G 9.076948E-06 -2.874141E-05 4.161770E-07 5.610766E-03 -6.966998E-04 -5.987569E-04 8.872227E-05 3.758302E-04 -3.254424E-05 -1.473028E-02 3.138612E-03 1.050878E-03 0 4 G 8.058252E-03 -1.541682E-02 -2.229383E-03 -1.368202E-02 5.077118E-02 1.617124E-02 -1.502557E-02 3.403737E-02 5.674795E-03 -3.873831E-02 1.609305E-02 -1.936450E-02 0 5 G 2.281469E-03 -6.661678E-03 -3.810139E-04 7.859223E-04 1.148913E-02 1.304519E-02 -5.501095E-03 1.983923E-02 1.009816E-04 -9.372842E-03 -1.981216E-02 -2.763123E-02 0 6 G 3.014881E-04 7.496109E-04 3.433360E-05 -2.394087E-03 1.234536E-02 8.605268E-03 -5.559722E-04 1.070282E-03 -2.089939E-04 3.981872E-03 -2.978505E-02 -2.202859E-02 0 7 G 3.211223E-02 -3.491944E-02 -5.423554E-03 0.0 0.0 2.895876E-02 -1.450622E-02 5.369890E-02 8.316112E-03 0.0 0.0 4.482705E-03 0 8 G -2.148875E-03 -4.977623E-03 -1.137537E-03 7.597542E-02 -1.323658E-01 1.699204E-02 -1.073930E-02 5.144135E-02 2.542032E-04 -2.543350E-02 1.625978E-02 -8.425936E-03 0 9 G -5.664121E-03 -7.906395E-04 7.294214E-04 9.458057E-03 -5.369139E-02 9.147381E-03 5.697962E-04 3.774005E-02 -7.920609E-03 -3.317377E-02 2.004997E-02 -2.517369E-02 0 10 G 3.116019E-01 -1.155017E-01 -3.455454E-02 0.0 0.0 4.211850E-01 3.008779E-02 3.725616E-02 2.907227E-03 0.0 0.0 -1.559106E-02 0 11 G -7.931770E-02 5.596458E-02 -2.334074E-04 9.578293E-01 -6.451426E-01 1.246534E-01 4.161765E-02 3.244012E-02 1.408634E-04 1.340334E-01 -6.349907E-02 -2.054527E-02 0 12 G -6.560124E-02 4.788645E-02 -6.006815E-03 0.0 0.0 1.878389E-02 5.464022E-02 2.469254E-02 -3.086243E-03 0.0 0.0 -2.776510E-02 0 101 G 1.471195E-06 2.028222E-05 6.203538E-06 0.0 0.0 0.0 -3.404045E-05 -2.471849E-04 6.049409E-05 0.0 0.0 0.0 0 103 G -3.593673E-07 1.942303E-05 6.057997E-06 0.0 0.0 0.0 -3.390715E-05 -2.325959E-04 5.881656E-05 0.0 0.0 0.0 0 104 G -3.288865E-07 1.941590E-05 6.049791E-06 0.0 0.0 0.0 -3.412818E-05 -2.325803E-04 5.881778E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 85 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =6 MACH = 180. KFREQ= .7 RHO = .1774919 COMPLEX EIGENVALUE = 3.887587E+02, 7.339756E+03 (CYCLIC FREQUENCY = 1.168158E+03HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -3.593673E-07 1.942303E-05 6.057997E-06 0.0 0.0 0.0 -3.390715E-05 -2.325959E-04 5.881656E-05 0.0 0.0 0.0 0 107 G 1.471195E-06 2.028222E-05 6.203538E-06 0.0 0.0 0.0 -3.404045E-05 -2.471849E-04 6.049409E-05 0.0 0.0 0.0 0 108 G 1.520263E-06 2.025791E-05 6.187880E-06 0.0 0.0 0.0 -3.442801E-05 -2.471077E-04 6.050004E-05 0.0 0.0 0.0 0 113 G 8.264069E-07 2.822403E-05 8.547600E-06 0.0 0.0 0.0 -3.025577E-05 -3.701340E-04 8.864238E-05 0.0 0.0 0.0 0 115 G 3.423593E-07 2.917049E-05 9.413829E-06 0.0 0.0 0.0 -3.555649E-05 -3.804915E-04 8.750340E-05 0.0 0.0 0.0 0 116 G 9.076948E-06 -2.874141E-05 4.161770E-07 0.0 0.0 0.0 8.872227E-05 3.758302E-04 -3.254424E-05 0.0 0.0 0.0 0 117 G 3.423593E-07 2.917049E-05 9.413829E-06 0.0 0.0 0.0 -3.555649E-05 -3.804915E-04 8.750340E-05 0.0 0.0 0.0 0 119 G 8.264069E-07 2.822403E-05 8.547600E-06 0.0 0.0 0.0 -3.025577E-05 -3.701340E-04 8.864238E-05 0.0 0.0 0.0 0 120 G 9.076948E-06 -2.874141E-05 4.161770E-07 0.0 0.0 0.0 8.872227E-05 3.758302E-04 -3.254424E-05 0.0 0.0 0.0 0 121 G 5.985080E-07 0.0 0.0 0.0 0.0 0.0 -1.730287E-05 0.0 0.0 0.0 0.0 0.0 0 123 G 3.478076E-07 0.0 0.0 0.0 0.0 0.0 -3.885766E-05 0.0 0.0 0.0 0.0 0.0 0 124 G 3.436712E-07 0.0 0.0 0.0 0.0 0.0 -3.882361E-05 0.0 0.0 0.0 0.0 0.0 0 125 G 3.478076E-07 0.0 0.0 0.0 0.0 0.0 -3.885766E-05 0.0 0.0 0.0 0.0 0.0 0 127 G 5.985080E-07 0.0 0.0 0.0 0.0 0.0 -1.730287E-05 0.0 0.0 0.0 0.0 0.0 0 128 G 5.926972E-07 0.0 0.0 0.0 0.0 0.0 -1.726440E-05 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 86 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =6 MACH = 180. KFREQ= .7 RHO = .1774919 COMPLEX EIGENVALUE = 2.874448E+03, 9.350467E+03 (CYCLIC FREQUENCY = 1.488173E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 1.852706E-05 -3.509250E-04 3.101915E-05 2.826102E-02 -2.297868E-03 -4.820685E-03 8.624718E-04 2.905917E-03 -2.460670E-04 -9.274830E-02 2.659375E-02 1.174125E-03 0 2 G 1.852706E-05 -3.509250E-04 3.101915E-05 2.826102E-02 -2.297868E-03 -4.820685E-03 8.624718E-04 2.905917E-03 -2.460670E-04 -9.274830E-02 2.659375E-02 1.174125E-03 0 3 G 1.852706E-05 -3.509250E-04 3.101915E-05 2.826102E-02 -2.297868E-03 -4.820685E-03 8.624718E-04 2.905917E-03 -2.460670E-04 -9.274830E-02 2.659375E-02 1.174125E-03 0 4 G 4.526800E-02 -9.003570E-02 -1.427406E-02 -3.769629E-02 2.234056E-01 8.784434E-02 -6.522484E-02 1.678888E-01 2.880993E-02 -4.172682E-01 5.108774E-01 -3.496619E-02 0 5 G 1.490094E-02 -4.447264E-02 -6.183716E-04 2.917840E-02 4.639261E-02 7.016279E-02 -2.595115E-02 1.096669E-01 4.634042E-04 -2.958051E-02 -1.161579E-01 -1.434413E-01 0 6 G 2.525772E-03 2.814056E-03 -1.056230E-03 -1.160106E-02 5.976623E-02 5.028066E-02 -6.465222E-04 1.450132E-02 -4.263665E-03 1.857778E-02 -1.843472E-01 -1.225000E-01 0 7 G 1.506855E-01 -2.440495E-01 -3.933360E-02 0.0 0.0 1.167187E-01 1.092333E-01 7.473713E-02 8.399915E-03 0.0 0.0 2.254468E-01 0 8 G 5.959900E-02 -1.678670E-01 -1.440602E-03 2.440475E-01 -2.641766E-01 1.018805E-01 2.600569E-02 1.501897E-01 1.757532E-03 1.103311E-01 -1.252351E-01 9.675545E-02 0 9 G 7.149206E-03 -1.062190E-01 2.236879E-02 1.089449E-01 -7.709458E-02 1.257143E-01 3.206258E-02 1.390989E-01 -3.018556E-02 -1.096256E-01 1.452673E-01 4.796110E-03 0 10 G 2.215550E-01 -2.354475E-01 -4.115028E-02 0.0 0.0 4.420625E-01 4.433745E-02 1.527755E-01 2.543470E-02 0.0 0.0 -1.077478E-01 0 11 G -2.176718E-01 -4.315589E-02 1.713143E-05 5.893020E-01 -5.249138E-01 1.075915E-01 5.035187E-02 1.531895E-01 3.052910E-03 4.122630E-01 -3.222806E-01 -2.411596E-01 0 12 G -1.572909E-01 -7.537065E-02 8.373623E-03 0.0 0.0 -1.725387E-02 2.927383E-01 1.659872E-02 -4.334470E-03 0.0 0.0 -3.630889E-01 0 101 G 3.343329E-05 2.342978E-04 1.246130E-05 0.0 0.0 0.0 -2.574825E-04 -1.906940E-03 5.877183E-04 0.0 0.0 0.0 0 103 G 2.194596E-05 2.215885E-04 1.141689E-05 0.0 0.0 0.0 -2.761268E-04 -1.792790E-03 5.699294E-04 0.0 0.0 0.0 0 104 G 2.218528E-05 2.215207E-04 1.137134E-05 0.0 0.0 0.0 -2.777957E-04 -1.792768E-03 5.698642E-04 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 87 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =6 MACH = 180. KFREQ= .7 RHO = .1774919 COMPLEX EIGENVALUE = 2.874448E+03, 9.350467E+03 (CYCLIC FREQUENCY = 1.488173E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G 2.194596E-05 2.215885E-04 1.141689E-05 0.0 0.0 0.0 -2.761268E-04 -1.792790E-03 5.699294E-04 0.0 0.0 0.0 0 107 G 3.343329E-05 2.342978E-04 1.246130E-05 0.0 0.0 0.0 -2.574825E-04 -1.906940E-03 5.877183E-04 0.0 0.0 0.0 0 108 G 3.383964E-05 2.341316E-04 1.237560E-05 0.0 0.0 0.0 -2.604268E-04 -1.906500E-03 5.876304E-04 0.0 0.0 0.0 0 113 G 3.191924E-05 3.453742E-04 1.571296E-05 0.0 0.0 0.0 -2.233110E-04 -2.862192E-03 8.570002E-04 0.0 0.0 0.0 0 115 G 3.118220E-05 3.553982E-04 2.087229E-05 0.0 0.0 0.0 -2.741976E-04 -2.941858E-03 8.550391E-04 0.0 0.0 0.0 0 116 G 1.852706E-05 -3.509250E-04 3.101915E-05 0.0 0.0 0.0 8.624718E-04 2.905917E-03 -2.460670E-04 0.0 0.0 0.0 0 117 G 3.118220E-05 3.553982E-04 2.087229E-05 0.0 0.0 0.0 -2.741976E-04 -2.941858E-03 8.550391E-04 0.0 0.0 0.0 0 119 G 3.191924E-05 3.453742E-04 1.571296E-05 0.0 0.0 0.0 -2.233110E-04 -2.862192E-03 8.570002E-04 0.0 0.0 0.0 0 120 G 1.852706E-05 -3.509250E-04 3.101915E-05 0.0 0.0 0.0 8.624718E-04 2.905917E-03 -2.460670E-04 0.0 0.0 0.0 0 121 G 1.863059E-05 0.0 0.0 0.0 0.0 0.0 -1.271986E-04 0.0 0.0 0.0 0.0 0.0 0 123 G 2.642762E-05 0.0 0.0 0.0 0.0 0.0 -3.153755E-04 0.0 0.0 0.0 0.0 0.0 0 124 G 2.639447E-05 0.0 0.0 0.0 0.0 0.0 -3.151119E-04 0.0 0.0 0.0 0.0 0.0 0 125 G 2.642762E-05 0.0 0.0 0.0 0.0 0.0 -3.153755E-04 0.0 0.0 0.0 0.0 0.0 0 127 G 1.863059E-05 0.0 0.0 0.0 0.0 0.0 -1.271986E-04 0.0 0.0 0.0 0.0 0.0 0 128 G 1.858515E-05 0.0 0.0 0.0 0.0 0.0 -1.269150E-04 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 88 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =7 MACH = 180. KFREQ= 1. RHO = 0.059164 COMPLEX EIGENVALUE = 1.674508E+00, 1.543018E+03 (CYCLIC FREQUENCY = 2.455789E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -1.011827E-04 4.092307E-04 -4.195263E-05 -3.177069E-02 2.149828E-03 7.256645E-03 9.441919E-07 7.515027E-06 -6.859567E-07 -3.954532E-04 4.754632E-05 5.639375E-05 0 2 G -1.011827E-04 4.092307E-04 -4.195263E-05 -3.177069E-02 2.149828E-03 7.256645E-03 9.441919E-07 7.515027E-06 -6.859567E-07 -3.954532E-04 4.754632E-05 5.639375E-05 0 3 G -1.011827E-04 4.092307E-04 -4.195263E-05 -3.177069E-02 2.149828E-03 7.256645E-03 9.441919E-07 7.515027E-06 -6.859567E-07 -3.954532E-04 4.754632E-05 5.639375E-05 0 4 G -6.064739E-02 1.178160E-01 1.875737E-02 9.587588E-02 -3.864042E-01 -1.307023E-01 -5.491115E-04 1.148862E-03 1.886233E-04 -2.514442E-04 -1.472332E-03 -9.369226E-04 0 5 G -1.988467E-02 5.688425E-02 3.585609E-04 -4.315507E-02 -6.224587E-02 -8.789245E-02 -1.930618E-04 6.167297E-04 2.396107E-06 -4.237148E-04 -5.470985E-04 -8.943512E-04 0 6 G -3.915198E-03 -4.573897E-03 2.269721E-03 1.364493E-02 -7.047352E-02 -6.397712E-02 -2.962065E-05 -8.580021E-06 9.855856E-06 1.394072E-04 -8.083792E-04 -6.744450E-04 0 7 G -2.233927E-01 3.733626E-01 6.084191E-02 0.0 0.0 -1.789653E-01 -1.346138E-03 2.765510E-03 4.449333E-04 0.0 0.0 -8.041785E-04 0 8 G -1.234520E-01 2.921785E-01 -4.778804E-05 -2.834606E-01 1.660991E-01 -1.626915E-01 -7.886313E-04 2.327055E-03 2.799616E-06 -1.903214E-03 1.289912E-03 -9.616088E-04 0 9 G -2.685407E-02 1.795785E-01 -3.635182E-02 -1.965325E-01 8.566640E-02 -1.921735E-01 -1.531842E-04 1.575503E-03 -3.239055E-04 -1.382796E-03 1.864847E-04 -1.561040E-03 0 10 G -7.171389E-01 9.919727E-01 1.970148E-01 0.0 0.0 -7.747497E-02 4.016294E-03 -8.347175E-05 -3.528159E-04 0.0 0.0 1.225129E-03 0 11 G -6.780588E-01 9.998294E-01 1.862127E-02 -8.907071E-01 3.090692E-01 -1.153975E-01 3.328223E-03 1.815090E-04 -3.622095E-05 1.174606E-02 -5.276716E-03 7.080910E-04 0 12 G -4.369091E-01 8.500824E-01 -1.062066E-01 0.0 0.0 -2.938646E-01 2.400527E-03 6.923292E-04 -7.182552E-05 0.0 0.0 8.421642E-04 0 101 G -4.383142E-05 -2.751928E-04 -6.797000E-05 0.0 0.0 0.0 -7.130947E-07 -4.957523E-06 6.447158E-07 0.0 0.0 0.0 0 103 G -2.130852E-05 -2.609344E-04 -6.431156E-05 0.0 0.0 0.0 -6.185425E-07 -4.671489E-06 6.342965E-07 0.0 0.0 0.0 0 104 G -2.159216E-05 -2.608109E-04 -6.422296E-05 0.0 0.0 0.0 -6.231168E-07 -4.670702E-06 6.346623E-07 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 89 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =7 MACH = 180. KFREQ= 1. RHO = 0.059164 COMPLEX EIGENVALUE = 1.674508E+00, 1.543018E+03 (CYCLIC FREQUENCY = 2.455789E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -2.130852E-05 -2.609344E-04 -6.431156E-05 0.0 0.0 0.0 -6.185425E-07 -4.671489E-06 6.342965E-07 0.0 0.0 0.0 0 107 G -4.383142E-05 -2.751928E-04 -6.797000E-05 0.0 0.0 0.0 -7.130947E-07 -4.957523E-06 6.447158E-07 0.0 0.0 0.0 0 108 G -4.430170E-05 -2.749397E-04 -6.780955E-05 0.0 0.0 0.0 -7.210505E-07 -4.955249E-06 6.454468E-07 0.0 0.0 0.0 0 113 G -4.510128E-05 -4.027911E-04 -9.578122E-05 0.0 0.0 0.0 -6.635676E-07 -7.399671E-06 9.649907E-07 0.0 0.0 0.0 0 115 G -3.979696E-05 -4.143939E-04 -1.046862E-04 0.0 0.0 0.0 -7.229655E-07 -7.608512E-06 9.106138E-07 0.0 0.0 0.0 0 116 G -1.011827E-04 4.092307E-04 -4.195263E-05 0.0 0.0 0.0 9.441919E-07 7.515027E-06 -6.859567E-07 0.0 0.0 0.0 0 117 G -3.979696E-05 -4.143939E-04 -1.046862E-04 0.0 0.0 0.0 -7.229655E-07 -7.608512E-06 9.106138E-07 0.0 0.0 0.0 0 119 G -4.510128E-05 -4.027911E-04 -9.578122E-05 0.0 0.0 0.0 -6.635676E-07 -7.399671E-06 9.649907E-07 0.0 0.0 0.0 0 120 G -1.011827E-04 4.092307E-04 -4.195263E-05 0.0 0.0 0.0 9.441919E-07 7.515027E-06 -6.859567E-07 0.0 0.0 0.0 0 121 G -2.648557E-05 0.0 0.0 0.0 0.0 0.0 -3.814244E-07 0.0 0.0 0.0 0.0 0.0 0 123 G -2.565657E-05 0.0 0.0 0.0 0.0 0.0 -7.113771E-07 0.0 0.0 0.0 0.0 0.0 0 124 G -2.562039E-05 0.0 0.0 0.0 0.0 0.0 -7.107028E-07 0.0 0.0 0.0 0.0 0.0 0 125 G -2.565657E-05 0.0 0.0 0.0 0.0 0.0 -7.113771E-07 0.0 0.0 0.0 0.0 0.0 0 127 G -2.648557E-05 0.0 0.0 0.0 0.0 0.0 -3.814244E-07 0.0 0.0 0.0 0.0 0.0 0 128 G -2.642926E-05 0.0 0.0 0.0 0.0 0.0 -3.805948E-07 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 90 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =7 MACH = 180. KFREQ= 1. RHO = 0.059164 COMPLEX EIGENVALUE = 3.135058E+01, 2.902805E+03 (CYCLIC FREQUENCY = 4.619957E+02HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 2.470134E-05 6.578615E-04 -6.102553E-05 -4.289058E-02 3.531191E-03 7.288627E-03 2.463542E-06 6.287657E-07 -5.777082E-09 2.045729E-04 1.613532E-05 -7.246240E-05 0 2 G 2.470134E-05 6.578615E-04 -6.102553E-05 -4.289058E-02 3.531191E-03 7.288627E-03 2.463542E-06 6.287657E-07 -5.777082E-09 2.045729E-04 1.613532E-05 -7.246240E-05 0 3 G 2.470134E-05 6.578615E-04 -6.102553E-05 -4.289058E-02 3.531191E-03 7.288627E-03 2.463542E-06 6.287657E-07 -5.777082E-09 2.045729E-04 1.613532E-05 -7.246240E-05 0 4 G -6.634740E-02 1.348467E-01 2.186899E-02 1.824190E-02 -2.631880E-01 -1.222945E-01 5.466084E-04 -9.916375E-04 -1.520905E-04 -1.730538E-03 5.001816E-03 1.339451E-03 0 5 G -2.275595E-02 6.958966E-02 4.322194E-04 -5.088459E-02 -6.225601E-02 -1.041309E-01 1.679106E-04 -4.235170E-04 -6.597057E-06 3.644535E-04 5.144678E-04 7.259898E-04 0 6 G -3.818303E-03 -2.960151E-03 1.678320E-03 1.680473E-02 -8.860844E-02 -7.643535E-02 3.885429E-05 7.461608E-05 -2.795516E-05 -1.225848E-04 4.880830E-04 4.894636E-04 0 7 G -1.966436E-01 3.580842E-01 5.790082E-02 0.0 0.0 -1.388371E-01 2.613600E-03 -3.748792E-03 -6.143046E-04 0.0 0.0 2.354533E-03 0 8 G -1.013560E-01 2.806883E-01 7.037541E-04 -2.879049E-01 2.386848E-01 -1.396542E-01 1.179887E-03 -2.549181E-03 -8.560133E-06 3.637416E-03 -3.147950E-03 1.864739E-03 0 9 G -2.008501E-02 1.849616E-01 -3.812679E-02 -1.675084E-01 3.286713E-02 -2.023102E-01 2.455176E-04 -1.465740E-03 2.993207E-04 1.765750E-03 -1.131738E-03 1.906939E-03 0 10 G 3.656353E-01 2.028249E-02 -3.282644E-02 0.0 0.0 -2.971621E-02 1.012550E-02 -1.032085E-02 -2.181496E-03 0.0 0.0 4.968531E-03 0 11 G 4.606809E-01 -2.660057E-02 -4.962447E-03 1.008777E+00 -3.369825E-01 5.820681E-02 5.673334E-03 -8.599202E-03 -1.734302E-04 1.917332E-02 -1.022477E-02 2.003854E-03 0 12 G 3.084817E-01 5.790588E-02 -5.112964E-03 0.0 0.0 1.392914E-01 3.930517E-03 -7.490069E-03 9.319399E-04 0.0 0.0 2.382688E-03 0 101 G -6.374678E-05 -4.356341E-04 1.698382E-05 0.0 0.0 0.0 4.181402E-09 -3.352093E-07 1.669699E-06 0.0 0.0 0.0 0 103 G -4.901187E-05 -4.110741E-04 1.759717E-05 0.0 0.0 0.0 -2.573326E-07 -2.905995E-07 1.604552E-06 0.0 0.0 0.0 0 104 G -4.942881E-05 -4.109738E-04 1.765396E-05 0.0 0.0 0.0 -2.570904E-07 -2.917975E-07 1.603526E-06 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 91 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =7 MACH = 180. KFREQ= 1. RHO = 0.059164 COMPLEX EIGENVALUE = 3.135058E+01, 2.902805E+03 (CYCLIC FREQUENCY = 4.619957E+02HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -4.901187E-05 -4.110741E-04 1.759717E-05 0.0 0.0 0.0 -2.573326E-07 -2.905995E-07 1.604552E-06 0.0 0.0 0.0 0 107 G -6.374678E-05 -4.356341E-04 1.698382E-05 0.0 0.0 0.0 4.181402E-09 -3.352093E-07 1.669699E-06 0.0 0.0 0.0 0 108 G -6.446581E-05 -4.353817E-04 1.709254E-05 0.0 0.0 0.0 4.275961E-09 -3.371176E-07 1.667883E-06 0.0 0.0 0.0 0 113 G -6.077201E-05 -6.476346E-04 2.814516E-05 0.0 0.0 0.0 6.551238E-08 -6.228390E-07 2.398236E-06 0.0 0.0 0.0 0 115 G -6.271891E-05 -6.661003E-04 2.108350E-05 0.0 0.0 0.0 -7.304331E-08 -6.348166E-07 2.487780E-06 0.0 0.0 0.0 0 116 G 2.470134E-05 6.578615E-04 -6.102553E-05 0.0 0.0 0.0 2.463542E-06 6.287657E-07 -5.777082E-09 0.0 0.0 0.0 0 117 G -6.271891E-05 -6.661003E-04 2.108350E-05 0.0 0.0 0.0 -7.304331E-08 -6.348166E-07 2.487780E-06 0.0 0.0 0.0 0 119 G -6.077201E-05 -6.476346E-04 2.814516E-05 0.0 0.0 0.0 6.551238E-08 -6.228390E-07 2.398236E-06 0.0 0.0 0.0 0 120 G 2.470134E-05 6.578615E-04 -6.102553E-05 0.0 0.0 0.0 2.463542E-06 6.287657E-07 -5.777082E-09 0.0 0.0 0.0 0 121 G -3.511035E-05 0.0 0.0 0.0 0.0 0.0 4.613969E-08 0.0 0.0 0.0 0.0 0.0 0 123 G -5.695134E-05 0.0 0.0 0.0 0.0 0.0 -2.735610E-07 0.0 0.0 0.0 0.0 0.0 0 124 G -5.689188E-05 0.0 0.0 0.0 0.0 0.0 -2.735112E-07 0.0 0.0 0.0 0.0 0.0 0 125 G -5.695134E-05 0.0 0.0 0.0 0.0 0.0 -2.735610E-07 0.0 0.0 0.0 0.0 0.0 0 127 G -3.511035E-05 0.0 0.0 0.0 0.0 0.0 4.613969E-08 0.0 0.0 0.0 0.0 0.0 0 128 G -3.503261E-05 0.0 0.0 0.0 0.0 0.0 4.601588E-08 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 92 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =7 MACH = 180. KFREQ= 1. RHO = 0.059164 COMPLEX EIGENVALUE = 3.268106E+00, 5.039343E+03 (CYCLIC FREQUENCY = 8.020363E+02HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 3.785235E-05 9.936320E-05 -1.072222E-05 3.912464E-04 3.499441E-04 -1.779773E-04 6.542707E-06 3.527805E-05 -3.111209E-06 -1.594356E-03 2.714616E-04 1.684911E-04 0 2 G 3.785235E-05 9.936320E-05 -1.072222E-05 3.912464E-04 3.499441E-04 -1.779773E-04 6.542707E-06 3.527805E-05 -3.111209E-06 -1.594356E-03 2.714616E-04 1.684911E-04 0 3 G 3.785235E-05 9.936320E-05 -1.072222E-05 3.912464E-04 3.499441E-04 -1.779773E-04 6.542707E-06 3.527805E-05 -3.111209E-06 -1.594356E-03 2.714616E-04 1.684911E-04 0 4 G 2.476483E-03 -2.948375E-03 -1.575114E-04 -2.592548E-02 5.296186E-02 8.562593E-03 -1.922248E-03 4.151605E-03 6.838885E-04 -2.443282E-03 -2.390801E-03 -2.973315E-03 0 5 G 2.551118E-04 5.034680E-04 -3.436498E-04 -2.808711E-03 4.425962E-03 2.983599E-03 -6.828096E-04 2.300758E-03 1.265945E-05 -1.309416E-03 -2.234108E-03 -3.297967E-03 0 6 G 7.938311E-05 1.059137E-03 -1.355210E-05 -9.228147E-04 1.772449E-03 6.601845E-04 -8.891440E-05 3.782878E-05 7.035633E-06 4.960502E-04 -3.256888E-03 -2.547730E-03 0 7 G 2.521169E-02 -1.359528E-02 -2.093257E-03 0.0 0.0 2.881539E-02 -3.589990E-03 8.466050E-03 1.343062E-03 0.0 0.0 -1.500892E-03 0 8 G -6.745541E-03 1.473216E-02 -1.047563E-03 6.450200E-02 -1.243570E-01 1.269447E-02 -2.108273E-03 7.321412E-03 2.580671E-05 -5.468002E-03 4.027371E-03 -2.420965E-03 0 9 G -5.709847E-03 1.343608E-02 -2.248775E-03 -3.081930E-03 -4.692826E-02 -1.259254E-03 -2.253168E-04 5.078185E-03 -1.055668E-03 -4.598663E-03 1.995857E-03 -4.363976E-03 0 10 G 3.261841E-01 -1.039767E-01 -3.415473E-02 0.0 0.0 4.158982E-01 4.455330E-03 5.093839E-03 2.991910E-04 0.0 0.0 -1.606295E-03 0 11 G -5.992445E-02 6.537680E-02 -2.610946E-04 1.013692E+00 -6.698204E-01 1.188670E-01 6.359812E-03 4.276553E-03 -7.541166E-07 1.840010E-02 -7.505269E-03 -1.148693E-03 0 12 G -4.405487E-02 5.594796E-02 -6.988465E-03 0.0 0.0 1.178849E-02 6.258597E-03 4.260387E-03 -5.103390E-04 0.0 0.0 -1.227306E-03 0 101 G -1.017825E-05 -6.400479E-05 2.582473E-05 0.0 0.0 0.0 -3.253227E-06 -2.324628E-05 4.464744E-06 0.0 0.0 0.0 0 103 G -1.180083E-05 -5.990207E-05 2.514717E-05 0.0 0.0 0.0 -3.041568E-06 -2.189053E-05 4.356048E-06 0.0 0.0 0.0 0 104 G -1.184603E-05 -5.990307E-05 2.513999E-05 0.0 0.0 0.0 -3.062720E-06 -2.188807E-05 4.356919E-06 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 93 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =7 MACH = 180. KFREQ= 1. RHO = 0.059164 COMPLEX EIGENVALUE = 3.268106E+00, 5.039343E+03 (CYCLIC FREQUENCY = 8.020363E+02HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -1.180083E-05 -5.990207E-05 2.514717E-05 0.0 0.0 0.0 -3.041568E-06 -2.189053E-05 4.356048E-06 0.0 0.0 0.0 0 107 G -1.017825E-05 -6.400479E-05 2.582473E-05 0.0 0.0 0.0 -3.253227E-06 -2.324628E-05 4.464744E-06 0.0 0.0 0.0 0 108 G -1.026174E-05 -6.400146E-05 2.581219E-05 0.0 0.0 0.0 -3.290132E-06 -2.323745E-05 4.466657E-06 0.0 0.0 0.0 0 113 G -9.574098E-06 -9.793605E-05 3.733596E-05 0.0 0.0 0.0 -2.947597E-06 -3.474020E-05 6.584328E-06 0.0 0.0 0.0 0 115 G -1.178261E-05 -1.005239E-04 3.775706E-05 0.0 0.0 0.0 -3.344992E-06 -3.571661E-05 6.408162E-06 0.0 0.0 0.0 0 116 G 3.785235E-05 9.936320E-05 -1.072222E-05 0.0 0.0 0.0 6.542707E-06 3.527805E-05 -3.111209E-06 0.0 0.0 0.0 0 117 G -1.178261E-05 -1.005239E-04 3.775706E-05 0.0 0.0 0.0 -3.344992E-06 -3.571661E-05 6.408162E-06 0.0 0.0 0.0 0 119 G -9.574098E-06 -9.793605E-05 3.733596E-05 0.0 0.0 0.0 -2.947597E-06 -3.474020E-05 6.584328E-06 0.0 0.0 0.0 0 120 G 3.785235E-05 9.936320E-05 -1.072222E-05 0.0 0.0 0.0 6.542707E-06 3.527805E-05 -3.111209E-06 0.0 0.0 0.0 0 121 G -5.353292E-06 0.0 0.0 0.0 0.0 0.0 -1.690886E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -1.277287E-05 0.0 0.0 0.0 0.0 0.0 -3.496443E-06 0.0 0.0 0.0 0.0 0.0 0 124 G -1.276541E-05 0.0 0.0 0.0 0.0 0.0 -3.493250E-06 0.0 0.0 0.0 0.0 0.0 0 125 G -1.277287E-05 0.0 0.0 0.0 0.0 0.0 -3.496443E-06 0.0 0.0 0.0 0.0 0.0 0 127 G -5.353292E-06 0.0 0.0 0.0 0.0 0.0 -1.690886E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -5.345873E-06 0.0 0.0 0.0 0.0 0.0 -1.687135E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 94 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =7 MACH = 180. KFREQ= 1. RHO = 0.059164 COMPLEX EIGENVALUE = 1.844635E+02, 9.597228E+03 (CYCLIC FREQUENCY = 1.527446E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 1.369627E-03 4.272476E-03 -3.583347E-04 -1.247553E-01 4.044521E-02 -2.215859E-03 -3.613931E-07 5.197413E-05 -4.858132E-06 -3.550910E-03 2.855662E-04 6.322454E-04 0 2 G 1.369627E-03 4.272476E-03 -3.583347E-04 -1.247553E-01 4.044521E-02 -2.215859E-03 -3.613931E-07 5.197413E-05 -4.858132E-06 -3.550910E-03 2.855662E-04 6.322454E-04 0 3 G 1.369627E-03 4.272476E-03 -3.583347E-04 -1.247553E-01 4.044521E-02 -2.215859E-03 -3.613931E-07 5.197413E-05 -4.858132E-06 -3.550910E-03 2.855662E-04 6.322454E-04 0 4 G -6.730800E-02 1.934489E-01 3.390212E-02 -6.809512E-01 9.707642E-01 1.346372E-02 -5.695336E-03 1.145943E-02 1.847703E-03 3.201998E-03 -2.556343E-02 -1.086327E-02 0 5 G -2.883566E-02 1.367413E-01 5.346111E-04 -1.907446E-02 -1.501148E-01 -1.717656E-01 -1.928986E-03 5.820933E-03 4.177555E-05 -4.223985E-03 -5.494959E-03 -8.811501E-03 0 6 G 1.125894E-03 2.482872E-02 -7.796927E-03 2.055586E-02 -2.456852E-01 -1.533769E-01 -3.330169E-04 -2.955249E-04 1.539151E-04 1.417755E-03 -7.434277E-03 -6.440548E-03 0 7 G 2.853548E-01 -8.332983E-02 -1.940175E-02 0.0 0.0 4.389363E-01 -1.782046E-02 3.144566E-02 5.089788E-03 0.0 0.0 -1.307665E-02 0 8 G 1.017363E-01 7.808125E-02 2.587748E-03 3.310485E-01 -3.132133E-01 2.341357E-01 -9.024897E-03 2.426622E-02 6.514102E-05 -2.578525E-02 2.129084E-02 -1.263534E-02 0 9 G 6.365731E-02 1.165044E-01 -2.655043E-02 -7.624614E-02 2.105164E-01 1.204260E-01 -1.749041E-03 1.571674E-02 -3.237007E-03 -1.497479E-02 4.592627E-03 -1.726985E-02 0 10 G -3.447356E-02 1.234898E-01 3.426065E-02 0.0 0.0 -1.875569E-01 7.129479E-03 2.071147E-02 1.800311E-03 0.0 0.0 -1.019233E-02 0 11 G -3.571262E-02 1.281533E-01 4.815975E-03 2.236216E-01 -3.388382E-01 -4.063689E-01 2.060259E-02 1.488945E-02 -5.302887E-06 3.721654E-02 -6.938132E-03 -7.145293E-05 0 12 G 3.863608E-01 -1.074141E-01 8.886690E-03 0.0 0.0 -6.045377E-01 1.426776E-02 1.813513E-02 -2.121043E-03 0.0 0.0 4.018121E-03 0 101 G -3.751121E-04 -2.801284E-03 9.331228E-04 0.0 0.0 0.0 -5.091641E-06 -3.451358E-05 -2.190166E-07 0.0 0.0 0.0 0 103 G -4.138559E-04 -2.632684E-03 9.041775E-04 0.0 0.0 0.0 -3.662403E-06 -3.259537E-05 -1.083164E-07 0.0 0.0 0.0 0 104 G -4.162875E-04 -2.632708E-03 9.040386E-04 0.0 0.0 0.0 -3.695991E-06 -3.258627E-05 -1.027587E-07 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 95 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =7 MACH = 180. KFREQ= 1. RHO = 0.059164 COMPLEX EIGENVALUE = 1.844635E+02, 9.597228E+03 (CYCLIC FREQUENCY = 1.527446E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -4.138559E-04 -2.632684E-03 9.041775E-04 0.0 0.0 0.0 -3.662403E-06 -3.259537E-05 -1.083164E-07 0.0 0.0 0.0 0 107 G -3.751121E-04 -2.801284E-03 9.331228E-04 0.0 0.0 0.0 -5.091641E-06 -3.451358E-05 -2.190166E-07 0.0 0.0 0.0 0 108 G -3.794126E-04 -2.800726E-03 9.329168E-04 0.0 0.0 0.0 -5.149169E-06 -3.449166E-05 -2.085436E-07 0.0 0.0 0.0 0 113 G -3.219775E-04 -4.208362E-03 1.358796E-03 0.0 0.0 0.0 -4.905909E-06 -5.116345E-05 -2.314709E-08 0.0 0.0 0.0 0 115 G -4.024921E-04 -4.325268E-03 1.359837E-03 0.0 0.0 0.0 -4.930381E-06 -5.262688E-05 -6.732688E-07 0.0 0.0 0.0 0 116 G 1.369627E-03 4.272476E-03 -3.583347E-04 0.0 0.0 0.0 -3.613931E-07 5.197413E-05 -4.858132E-06 0.0 0.0 0.0 0 117 G -4.024921E-04 -4.325268E-03 1.359837E-03 0.0 0.0 0.0 -4.930381E-06 -5.262688E-05 -6.732688E-07 0.0 0.0 0.0 0 119 G -3.219775E-04 -4.208362E-03 1.358796E-03 0.0 0.0 0.0 -4.905909E-06 -5.116345E-05 -2.314709E-08 0.0 0.0 0.0 0 120 G 1.369627E-03 4.272476E-03 -3.583347E-04 0.0 0.0 0.0 -3.613931E-07 5.197413E-05 -4.858132E-06 0.0 0.0 0.0 0 121 G -1.830937E-04 0.0 0.0 0.0 0.0 0.0 -2.844080E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -4.721572E-04 0.0 0.0 0.0 0.0 0.0 -4.284560E-06 0.0 0.0 0.0 0.0 0.0 0 124 G -4.717695E-04 0.0 0.0 0.0 0.0 0.0 -4.279852E-06 0.0 0.0 0.0 0.0 0.0 0 125 G -4.721572E-04 0.0 0.0 0.0 0.0 0.0 -4.284560E-06 0.0 0.0 0.0 0.0 0.0 0 127 G -1.830937E-04 0.0 0.0 0.0 0.0 0.0 -2.844080E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -1.826844E-04 0.0 0.0 0.0 0.0 0.0 -2.837751E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 96 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =8 MACH = 180. KFREQ= 1. RHO = .118328 COMPLEX EIGENVALUE = 3.553651E+00, 1.535648E+03 (CYCLIC FREQUENCY = 2.444060E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -1.014879E-04 4.169957E-04 -4.269449E-05 -3.234810E-02 2.182493E-03 7.366823E-03 1.886626E-06 1.511110E-05 -1.379551E-06 -7.968110E-04 9.547004E-05 1.138762E-04 0 2 G -1.014879E-04 4.169957E-04 -4.269449E-05 -3.234810E-02 2.182493E-03 7.366823E-03 1.886626E-06 1.511110E-05 -1.379551E-06 -7.968110E-04 9.547004E-05 1.138762E-04 0 3 G -1.014879E-04 4.169957E-04 -4.269449E-05 -3.234810E-02 2.182493E-03 7.366823E-03 1.886626E-06 1.511110E-05 -1.379551E-06 -7.968110E-04 9.547004E-05 1.138762E-04 0 4 G -6.160426E-02 1.197333E-01 1.906731E-02 9.648082E-02 -3.908077E-01 -1.325349E-01 -1.107834E-03 2.317027E-03 3.803637E-04 -4.973756E-04 -2.987860E-03 -1.892120E-03 0 5 G -2.021041E-02 5.785647E-02 3.643908E-04 -4.390960E-02 -6.309889E-02 -8.936039E-02 -3.893910E-04 1.243261E-03 4.858470E-06 -8.548461E-04 -1.102956E-03 -1.803534E-03 0 6 G -3.972938E-03 -4.629979E-03 2.298913E-03 1.388485E-02 -7.167246E-02 -6.504241E-02 -5.981160E-05 -1.769960E-05 1.998823E-05 2.812367E-04 -1.629020E-03 -1.359663E-03 0 7 G -2.264628E-01 3.787611E-01 6.171802E-02 0.0 0.0 -1.812453E-01 -2.722731E-03 5.584518E-03 8.985368E-04 0.0 0.0 -1.630852E-03 0 8 G -1.250343E-01 2.963649E-01 -3.981125E-05 -2.878735E-01 1.696873E-01 -1.648941E-01 -1.592579E-03 4.695239E-03 5.705931E-06 -3.850967E-03 2.617611E-03 -1.944898E-03 0 9 G -2.719466E-02 1.823056E-01 -3.691200E-02 -1.990145E-01 8.601454E-02 -1.952659E-01 -3.095030E-04 3.177812E-03 -6.533330E-04 -2.790155E-03 3.778106E-04 -3.152404E-03 0 10 G -7.115234E-01 9.923099E-01 1.965179E-01 0.0 0.0 -7.739475E-02 8.080471E-03 -1.609883E-04 -7.096920E-04 0.0 0.0 2.441250E-03 0 11 G -6.714396E-01 9.996527E-01 1.854917E-02 -8.750237E-01 3.036139E-01 -1.142311E-01 6.723062E-03 3.600387E-04 -7.313909E-05 2.362408E-02 -1.059249E-02 1.424342E-03 0 12 G -4.326837E-01 8.512314E-01 -1.063165E-01 0.0 0.0 -2.915516E-01 4.844347E-03 1.394607E-03 -1.445690E-04 0.0 0.0 1.705936E-03 0 101 G -4.460487E-05 -2.803477E-04 -6.817542E-05 0.0 0.0 0.0 -1.434177E-06 -9.968839E-06 1.288258E-06 0.0 0.0 0.0 0 103 G -2.184168E-05 -2.658038E-04 -6.449330E-05 0.0 0.0 0.0 -1.242722E-06 -9.393782E-06 1.267624E-06 0.0 0.0 0.0 0 104 G -2.213037E-05 -2.656788E-04 -6.440377E-05 0.0 0.0 0.0 -1.251924E-06 -9.392194E-06 1.268365E-06 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 97 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =8 MACH = 180. KFREQ= 1. RHO = .118328 COMPLEX EIGENVALUE = 3.553651E+00, 1.535648E+03 (CYCLIC FREQUENCY = 2.444060E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -2.184168E-05 -2.658038E-04 -6.449330E-05 0.0 0.0 0.0 -1.242722E-06 -9.393782E-06 1.267624E-06 0.0 0.0 0.0 0 107 G -4.460487E-05 -2.803477E-04 -6.817542E-05 0.0 0.0 0.0 -1.434177E-06 -9.968839E-06 1.288258E-06 0.0 0.0 0.0 0 108 G -4.508381E-05 -2.800912E-04 -6.801322E-05 0.0 0.0 0.0 -1.450179E-06 -9.964255E-06 1.289737E-06 0.0 0.0 0.0 0 113 G -4.585713E-05 -4.104343E-04 -9.602949E-05 0.0 0.0 0.0 -1.334881E-06 -1.487911E-05 1.928781E-06 0.0 0.0 0.0 0 115 G -4.054231E-05 -4.222564E-04 -1.050408E-04 0.0 0.0 0.0 -1.453647E-06 -1.529908E-05 1.818969E-06 0.0 0.0 0.0 0 116 G -1.014879E-04 4.169957E-04 -4.269449E-05 0.0 0.0 0.0 1.886626E-06 1.511110E-05 -1.379551E-06 0.0 0.0 0.0 0 117 G -4.054231E-05 -4.222564E-04 -1.050408E-04 0.0 0.0 0.0 -1.453647E-06 -1.529908E-05 1.818969E-06 0.0 0.0 0.0 0 119 G -4.585713E-05 -4.104343E-04 -9.602949E-05 0.0 0.0 0.0 -1.334881E-06 -1.487911E-05 1.928781E-06 0.0 0.0 0.0 0 120 G -1.014879E-04 4.169957E-04 -4.269449E-05 0.0 0.0 0.0 1.886626E-06 1.511110E-05 -1.379551E-06 0.0 0.0 0.0 0 121 G -2.692362E-05 0.0 0.0 0.0 0.0 0.0 -7.673367E-07 0.0 0.0 0.0 0.0 0.0 0 123 G -2.627968E-05 0.0 0.0 0.0 0.0 0.0 -1.429348E-06 0.0 0.0 0.0 0.0 0.0 0 124 G -2.624281E-05 0.0 0.0 0.0 0.0 0.0 -1.427992E-06 0.0 0.0 0.0 0.0 0.0 0 125 G -2.627968E-05 0.0 0.0 0.0 0.0 0.0 -1.429348E-06 0.0 0.0 0.0 0.0 0.0 0 127 G -2.692362E-05 0.0 0.0 0.0 0.0 0.0 -7.673367E-07 0.0 0.0 0.0 0.0 0.0 0 128 G -2.686636E-05 0.0 0.0 0.0 0.0 0.0 -7.656677E-07 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 98 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =8 MACH = 180. KFREQ= 1. RHO = .118328 COMPLEX EIGENVALUE = 5.752604E+01, 2.848058E+03 (CYCLIC FREQUENCY = 4.532825E+02HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 2.351105E-05 6.441278E-04 -5.976117E-05 -4.222595E-02 3.426223E-03 7.192942E-03 4.935105E-06 1.193279E-06 -1.716842E-09 4.095285E-04 3.270722E-05 -1.458661E-04 0 2 G 2.351105E-05 6.441278E-04 -5.976117E-05 -4.222595E-02 3.426223E-03 7.192942E-03 4.935105E-06 1.193279E-06 -1.716842E-09 4.095285E-04 3.270722E-05 -1.458661E-04 0 3 G 2.351105E-05 6.441278E-04 -5.976117E-05 -4.222595E-02 3.426223E-03 7.192942E-03 4.935105E-06 1.193279E-06 -1.716842E-09 4.095285E-04 3.270722E-05 -1.458661E-04 0 4 G -6.539358E-02 1.328750E-01 2.154865E-02 1.821735E-02 -2.597404E-01 -1.205331E-01 1.097055E-03 -1.991249E-03 -3.057715E-04 -3.462770E-03 1.002306E-02 2.687997E-03 0 5 G -2.242958E-02 6.855402E-02 4.272243E-04 -5.024835E-02 -6.112995E-02 -1.026127E-01 3.376100E-04 -8.521006E-04 -1.276609E-05 7.386165E-04 1.028019E-03 1.455968E-03 0 6 G -3.766462E-03 -2.945123E-03 1.661198E-03 1.658181E-02 -8.719156E-02 -7.527393E-02 7.823932E-05 1.492795E-04 -5.648752E-05 -2.453356E-04 9.768594E-04 9.830152E-04 0 7 G -1.941422E-01 3.531098E-01 5.710049E-02 0.0 0.0 -1.372385E-01 5.236540E-03 -7.539442E-03 -1.235780E-03 0.0 0.0 4.711576E-03 0 8 G -9.981190E-02 2.764625E-01 7.027172E-04 -2.847752E-01 2.373299E-01 -1.378647E-01 2.391432E-03 -5.161189E-03 -1.559997E-05 7.240885E-03 -6.160803E-03 3.744823E-03 0 9 G -1.981387E-02 1.822305E-01 -3.756997E-02 -1.646323E-01 3.139963E-02 -1.998780E-01 5.049560E-04 -2.973712E-03 6.064486E-04 3.564256E-03 -2.207897E-03 3.848549E-03 0 10 G 3.751434E-01 6.258273E-03 -3.560751E-02 0.0 0.0 -2.939522E-02 1.994154E-02 -2.067056E-02 -4.350924E-03 0.0 0.0 9.380893E-03 0 11 G 4.707073E-01 -4.121656E-02 -5.236880E-03 1.018672E+00 -3.390750E-01 6.030039E-02 1.155549E-02 -1.745896E-02 -3.497323E-04 3.715761E-02 -1.961356E-02 3.855952E-03 0 12 G 3.142036E-01 4.590881E-02 -3.604901E-03 0.0 0.0 1.446029E-01 8.015478E-03 -1.520692E-02 1.892121E-03 0.0 0.0 4.785776E-03 0 101 G -6.242718E-05 -4.265365E-04 1.615914E-05 0.0 0.0 0.0 1.723140E-08 -6.287273E-07 3.344648E-06 0.0 0.0 0.0 0 103 G -4.793039E-05 -4.024926E-04 1.677616E-05 0.0 0.0 0.0 -5.083916E-07 -5.419874E-07 3.213775E-06 0.0 0.0 0.0 0 104 G -4.833884E-05 -4.023940E-04 1.683199E-05 0.0 0.0 0.0 -5.078782E-07 -5.444026E-07 3.211715E-06 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 99 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =8 MACH = 180. KFREQ= 1. RHO = .118328 COMPLEX EIGENVALUE = 5.752604E+01, 2.848058E+03 (CYCLIC FREQUENCY = 4.532825E+02HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -4.793039E-05 -4.024926E-04 1.677616E-05 0.0 0.0 0.0 -5.083916E-07 -5.419874E-07 3.213775E-06 0.0 0.0 0.0 0 107 G -6.242718E-05 -4.265365E-04 1.615914E-05 0.0 0.0 0.0 1.723140E-08 -6.287273E-07 3.344648E-06 0.0 0.0 0.0 0 108 G -6.313162E-05 -4.262887E-04 1.626603E-05 0.0 0.0 0.0 1.747190E-08 -6.325708E-07 3.340999E-06 0.0 0.0 0.0 0 113 G -5.953321E-05 -6.341108E-04 2.690091E-05 0.0 0.0 0.0 1.409533E-07 -1.182349E-06 4.803994E-06 0.0 0.0 0.0 0 115 G -6.140124E-05 -6.521955E-04 1.995995E-05 0.0 0.0 0.0 -1.365498E-07 -1.204661E-06 4.983953E-06 0.0 0.0 0.0 0 116 G 2.351105E-05 6.441278E-04 -5.976117E-05 0.0 0.0 0.0 4.935105E-06 1.193279E-06 -1.716842E-09 0.0 0.0 0.0 0 117 G -6.140124E-05 -6.521955E-04 1.995995E-05 0.0 0.0 0.0 -1.365498E-07 -1.204661E-06 4.983953E-06 0.0 0.0 0.0 0 119 G -5.953321E-05 -6.341108E-04 2.690091E-05 0.0 0.0 0.0 1.409533E-07 -1.182349E-06 4.803994E-06 0.0 0.0 0.0 0 120 G 2.351105E-05 6.441278E-04 -5.976117E-05 0.0 0.0 0.0 4.935105E-06 1.193279E-06 -1.716842E-09 0.0 0.0 0.0 0 121 G -3.439445E-05 0.0 0.0 0.0 0.0 0.0 9.793712E-08 0.0 0.0 0.0 0.0 0.0 0 123 G -5.570065E-05 0.0 0.0 0.0 0.0 0.0 -5.406862E-07 0.0 0.0 0.0 0.0 0.0 0 124 G -5.564242E-05 0.0 0.0 0.0 0.0 0.0 -5.405902E-07 0.0 0.0 0.0 0.0 0.0 0 125 G -5.570065E-05 0.0 0.0 0.0 0.0 0.0 -5.406862E-07 0.0 0.0 0.0 0.0 0.0 0 127 G -3.439445E-05 0.0 0.0 0.0 0.0 0.0 9.793712E-08 0.0 0.0 0.0 0.0 0.0 0 128 G -3.431826E-05 0.0 0.0 0.0 0.0 0.0 9.768343E-08 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 100 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =8 MACH = 180. KFREQ= 1. RHO = .118328 COMPLEX EIGENVALUE = 9.953187E+00, 5.000261E+03 (CYCLIC FREQUENCY = 7.958162E+02HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 4.594482E-05 1.358121E-04 -1.389481E-05 -1.092036E-03 6.487038E-04 -5.729327E-05 1.312096E-05 6.953569E-05 -6.125320E-06 -3.116205E-03 5.379422E-04 3.233691E-04 0 2 G 4.594482E-05 1.358121E-04 -1.389481E-05 -1.092036E-03 6.487038E-04 -5.729327E-05 1.312096E-05 6.953569E-05 -6.125320E-06 -3.116205E-03 5.379422E-04 3.233691E-04 0 3 G 4.594482E-05 1.358121E-04 -1.389481E-05 -1.092036E-03 6.487038E-04 -5.729327E-05 1.312096E-05 6.953569E-05 -6.125320E-06 -3.116205E-03 5.379422E-04 3.233691E-04 0 4 G 8.821306E-04 6.073865E-04 4.329647E-04 -2.933569E-02 5.342570E-02 6.367468E-03 -3.724870E-03 8.063532E-03 1.329098E-03 -4.966293E-03 -4.222196E-03 -5.715748E-03 0 5 G -3.225970E-04 2.542944E-03 -3.330245E-04 -3.829529E-03 2.397778E-03 1.175893E-04 -1.325067E-03 4.480205E-03 2.455576E-05 -2.527360E-03 -4.356483E-03 -6.412547E-03 0 6 G 1.552093E-05 1.145905E-03 -2.653135E-05 -5.048680E-04 -1.238269E-03 -1.603603E-03 -1.706585E-04 8.240905E-05 1.052734E-05 9.624989E-04 -6.361962E-03 -4.961782E-03 0 7 G 2.319630E-02 -7.455271E-03 -1.133619E-03 0.0 0.0 2.872160E-02 -6.796906E-03 1.625811E-02 2.576814E-03 0.0 0.0 -2.717401E-03 0 8 G -8.094704E-03 2.040484E-02 -1.022771E-03 6.121836E-02 -1.221627E-01 1.143087E-02 -4.017385E-03 1.411855E-02 5.064020E-05 -1.039286E-02 7.627682E-03 -4.567584E-03 0 9 G -5.731884E-03 1.751198E-02 -3.101131E-03 -6.721830E-03 -4.491125E-02 -4.230257E-03 -4.091293E-04 9.817208E-03 -2.041727E-03 -8.877512E-03 3.917924E-03 -8.351711E-03 0 10 G 3.288460E-01 -9.930334E-02 -3.371676E-02 0.0 0.0 4.143101E-01 8.607817E-03 9.813189E-03 5.799783E-04 0.0 0.0 -3.146626E-03 0 11 G -5.595838E-02 6.951986E-02 -2.358789E-04 1.027052E+00 -6.759940E-01 1.169585E-01 1.226034E-02 8.246440E-03 -4.015565E-07 3.559209E-02 -1.461750E-02 -2.356291E-03 0 12 G -3.891497E-02 5.937245E-02 -7.412003E-03 0.0 0.0 9.167455E-03 1.221489E-02 8.132468E-03 -9.754936E-04 0.0 0.0 -2.578686E-03 0 101 G -1.349646E-05 -8.799085E-05 3.134400E-05 0.0 0.0 0.0 -6.405047E-06 -4.581462E-05 8.953130E-06 0.0 0.0 0.0 0 103 G -1.504876E-05 -8.247724E-05 3.051780E-05 0.0 0.0 0.0 -6.012936E-06 -4.314060E-05 8.732740E-06 0.0 0.0 0.0 0 104 G -1.511551E-05 -8.247646E-05 3.051096E-05 0.0 0.0 0.0 -6.054578E-06 -4.313589E-05 8.734362E-06 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 101 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =8 MACH = 180. KFREQ= 1. RHO = .118328 COMPLEX EIGENVALUE = 9.953187E+00, 5.000261E+03 (CYCLIC FREQUENCY = 7.958162E+02HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -1.504876E-05 -8.247724E-05 3.051780E-05 0.0 0.0 0.0 -6.012936E-06 -4.314060E-05 8.732740E-06 0.0 0.0 0.0 0 107 G -1.349646E-05 -8.799085E-05 3.134400E-05 0.0 0.0 0.0 -6.405047E-06 -4.581462E-05 8.953130E-06 0.0 0.0 0.0 0 108 G -1.361768E-05 -8.797956E-05 3.133243E-05 0.0 0.0 0.0 -6.477724E-06 -4.579741E-05 8.956731E-06 0.0 0.0 0.0 0 113 G -1.253941E-05 -1.338317E-04 4.543480E-05 0.0 0.0 0.0 -5.796383E-06 -6.847594E-05 1.319681E-05 0.0 0.0 0.0 0 115 G -1.523329E-05 -1.374251E-04 4.572559E-05 0.0 0.0 0.0 -6.592290E-06 -7.040001E-05 1.285829E-05 0.0 0.0 0.0 0 116 G 4.594482E-05 1.358121E-04 -1.389481E-05 0.0 0.0 0.0 1.312096E-05 6.953569E-05 -6.125320E-06 0.0 0.0 0.0 0 117 G -1.523329E-05 -1.374251E-04 4.572559E-05 0.0 0.0 0.0 -6.592290E-06 -7.040001E-05 1.285829E-05 0.0 0.0 0.0 0 119 G -1.253941E-05 -1.338317E-04 4.543480E-05 0.0 0.0 0.0 -5.796383E-06 -6.847594E-05 1.319681E-05 0.0 0.0 0.0 0 120 G 4.594482E-05 1.358121E-04 -1.389481E-05 0.0 0.0 0.0 1.312096E-05 6.953569E-05 -6.125320E-06 0.0 0.0 0.0 0 121 G -7.050694E-06 0.0 0.0 0.0 0.0 0.0 -3.324455E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -1.649813E-05 0.0 0.0 0.0 0.0 0.0 -6.910762E-06 0.0 0.0 0.0 0.0 0.0 0 124 G -1.648736E-05 0.0 0.0 0.0 0.0 0.0 -6.904470E-06 0.0 0.0 0.0 0.0 0.0 0 125 G -1.649813E-05 0.0 0.0 0.0 0.0 0.0 -6.910762E-06 0.0 0.0 0.0 0.0 0.0 0 127 G -7.050694E-06 0.0 0.0 0.0 0.0 0.0 -3.324455E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -7.039505E-06 0.0 0.0 0.0 0.0 0.0 -3.317080E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 102 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =8 MACH = 180. KFREQ= 1. RHO = .118328 COMPLEX EIGENVALUE = 3.109804E+02, 9.235627E+03 (CYCLIC FREQUENCY = 1.469896E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 1.367298E-03 4.316790E-03 -3.623534E-04 -1.282141E-01 4.071026E-02 -1.604680E-03 -9.188647E-07 9.427046E-05 -8.794363E-06 -6.498978E-03 5.209129E-04 1.156318E-03 0 2 G 1.367298E-03 4.316790E-03 -3.623534E-04 -1.282141E-01 4.071026E-02 -1.604680E-03 -9.188647E-07 9.427046E-05 -8.794363E-06 -6.498978E-03 5.209129E-04 1.156318E-03 0 3 G 1.367298E-03 4.316790E-03 -3.623534E-04 -1.282141E-01 4.071026E-02 -1.604680E-03 -9.188647E-07 9.427046E-05 -8.794363E-06 -6.498978E-03 5.209129E-04 1.156318E-03 0 4 G -7.291878E-02 2.046236E-01 3.568279E-02 -6.764331E-01 9.432831E-01 2.566300E-03 -1.043117E-02 2.097316E-02 3.378834E-03 6.042855E-03 -4.711927E-02 -1.992118E-02 0 5 G -3.069789E-02 1.422955E-01 5.989557E-04 -2.289401E-02 -1.557074E-01 -1.804217E-01 -3.527876E-03 1.063725E-02 7.968650E-05 -7.689975E-03 -1.008814E-02 -1.613590E-02 0 6 G 8.050579E-04 2.448550E-02 -7.653950E-03 2.197731E-02 -2.529839E-01 -1.596086E-01 -6.088974E-04 -5.481893E-04 2.806416E-04 2.600215E-03 -1.361373E-02 -1.178119E-02 0 7 G 2.668119E-01 -5.259462E-02 -1.443758E-02 0.0 0.0 4.247139E-01 -3.276913E-02 5.755563E-02 9.314442E-03 0.0 0.0 -2.412809E-02 0 8 G 9.372023E-02 1.000696E-01 2.725719E-03 3.021573E-01 -2.842700E-01 2.213739E-01 -1.640664E-02 4.417854E-02 1.294647E-04 -4.770117E-02 4.008917E-02 -2.318133E-02 0 9 G 6.243842E-02 1.305077E-01 -2.947304E-02 -9.023948E-02 2.182653E-01 1.041872E-01 -3.133635E-03 2.858227E-02 -5.892113E-03 -2.731861E-02 8.846686E-03 -3.152357E-02 0 10 G -5.014934E-02 1.498810E-01 3.824715E-02 0.0 0.0 -2.268494E-01 1.006115E-02 3.865384E-02 3.576902E-03 0.0 0.0 -2.266079E-02 0 11 G -1.111408E-02 1.369427E-01 4.814750E-03 1.882820E-01 -2.983963E-01 -4.149484E-01 3.843306E-02 2.636356E-02 -1.150077E-05 5.850399E-02 -6.307494E-03 -1.276998E-03 0 12 G 4.037313E-01 -9.481430E-02 7.449096E-03 0.0 0.0 -6.015269E-01 2.665742E-02 3.241476E-02 -3.785391E-03 0.0 0.0 7.272162E-03 0 101 G -3.793990E-04 -2.830832E-03 9.315589E-04 0.0 0.0 0.0 -9.227328E-06 -6.261669E-05 -5.768533E-07 0.0 0.0 0.0 0 103 G -4.166952E-04 -2.660622E-03 9.027516E-04 0.0 0.0 0.0 -6.605147E-06 -5.914078E-05 -3.704694E-07 0.0 0.0 0.0 0 104 G -4.191567E-04 -2.660637E-03 9.026183E-04 0.0 0.0 0.0 -6.666229E-06 -5.912417E-05 -3.602638E-07 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 103 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =8 MACH = 180. KFREQ= 1. RHO = .118328 COMPLEX EIGENVALUE = 3.109804E+02, 9.235627E+03 (CYCLIC FREQUENCY = 1.469896E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -4.166952E-04 -2.660622E-03 9.027516E-04 0.0 0.0 0.0 -6.605147E-06 -5.914078E-05 -3.704694E-07 0.0 0.0 0.0 0 107 G -3.793990E-04 -2.830832E-03 9.315589E-04 0.0 0.0 0.0 -9.227328E-06 -6.261669E-05 -5.768533E-07 0.0 0.0 0.0 0 108 G -3.837502E-04 -2.830253E-03 9.313636E-04 0.0 0.0 0.0 -9.331896E-06 -6.257664E-05 -5.576268E-07 0.0 0.0 0.0 0 113 G -3.261043E-04 -4.251977E-03 1.356818E-03 0.0 0.0 0.0 -8.889872E-06 -9.279903E-05 -2.971326E-07 0.0 0.0 0.0 0 115 G -4.065265E-04 -4.370145E-03 1.357215E-03 0.0 0.0 0.0 -8.919485E-06 -9.545519E-05 -1.488166E-06 0.0 0.0 0.0 0 116 G 1.367298E-03 4.316790E-03 -3.623534E-04 0.0 0.0 0.0 -9.188647E-07 9.427046E-05 -8.794363E-06 0.0 0.0 0.0 0 117 G -4.065265E-04 -4.370145E-03 1.357215E-03 0.0 0.0 0.0 -8.919485E-06 -9.545519E-05 -1.488166E-06 0.0 0.0 0.0 0 119 G -3.261043E-04 -4.251977E-03 1.356818E-03 0.0 0.0 0.0 -8.889872E-06 -9.279903E-05 -2.971326E-07 0.0 0.0 0.0 0 120 G 1.367298E-03 4.316790E-03 -3.623534E-04 0.0 0.0 0.0 -9.188647E-07 9.427046E-05 -8.794363E-06 0.0 0.0 0.0 0 121 G -1.854983E-04 0.0 0.0 0.0 0.0 0.0 -5.155290E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -4.755462E-04 0.0 0.0 0.0 0.0 0.0 -7.736288E-06 0.0 0.0 0.0 0.0 0.0 0 124 G -4.751542E-04 0.0 0.0 0.0 0.0 0.0 -7.727734E-06 0.0 0.0 0.0 0.0 0.0 0 125 G -4.755462E-04 0.0 0.0 0.0 0.0 0.0 -7.736288E-06 0.0 0.0 0.0 0.0 0.0 0 127 G -1.854983E-04 0.0 0.0 0.0 0.0 0.0 -5.155290E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -1.850833E-04 0.0 0.0 0.0 0.0 0.0 -5.143775E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 104 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =9 MACH = 180. KFREQ= 1. RHO = .1774919 COMPLEX EIGENVALUE = 5.628710E+00, 1.528195E+03 (CYCLIC FREQUENCY = 2.432198E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G -1.018097E-04 4.247332E-04 -4.343413E-05 -3.292585E-02 2.214832E-03 7.477322E-03 2.826660E-06 2.277132E-05 -2.079208E-06 -1.202986E-03 1.436821E-04 1.722610E-04 0 2 G -1.018097E-04 4.247332E-04 -4.343413E-05 -3.292585E-02 2.214832E-03 7.477322E-03 2.826660E-06 2.277132E-05 -2.079208E-06 -1.202986E-03 1.436821E-04 1.722610E-04 0 3 G -1.018097E-04 4.247332E-04 -4.343413E-05 -3.292585E-02 2.214832E-03 7.477322E-03 2.826660E-06 2.277132E-05 -2.079208E-06 -1.202986E-03 1.436821E-04 1.722610E-04 0 4 G -6.256315E-02 1.216540E-01 1.937775E-02 9.709565E-02 -3.952357E-01 -1.343731E-01 -1.674480E-03 3.501063E-03 5.746639E-04 -7.382379E-04 -4.539922E-03 -2.862482E-03 0 5 G -2.053673E-02 5.882989E-02 3.702537E-04 -4.466572E-02 -6.395298E-02 -9.083071E-02 -5.884076E-04 1.877821E-03 7.377230E-06 -1.292084E-03 -1.665999E-03 -2.724903E-03 0 6 G -4.030846E-03 -4.686518E-03 2.328257E-03 1.412526E-02 -7.287230E-02 -6.610905E-02 -9.047514E-05 -2.728453E-05 3.035350E-05 4.250629E-04 -2.459677E-03 -2.053711E-03 0 7 G -2.295455E-01 3.841754E-01 6.259675E-02 0.0 0.0 -1.835373E-01 -4.124799E-03 8.447878E-03 1.359331E-03 0.0 0.0 -2.476521E-03 0 8 G -1.266214E-01 3.005605E-01 -3.176851E-05 -2.923055E-01 1.732962E-01 -1.671056E-01 -2.409208E-03 7.097306E-03 8.704863E-06 -5.836084E-03 3.977409E-03 -2.946310E-03 0 9 G -2.753638E-02 1.850379E-01 -3.747325E-02 -2.015022E-01 8.636474E-02 -1.983676E-01 -4.684162E-04 4.802148E-03 -9.872995E-04 -4.217765E-03 5.732880E-04 -4.768897E-03 0 10 G -7.059153E-01 9.926541E-01 1.960217E-01 0.0 0.0 -7.734045E-02 1.218242E-02 -2.330428E-04 -1.069748E-03 0.0 0.0 3.647717E-03 0 11 G -6.647992E-01 9.994704E-01 1.847687E-02 -8.593702E-01 2.981928E-01 -1.130658E-01 1.017330E-02 5.357034E-04 -1.106341E-04 3.560540E-02 -1.593664E-02 2.146895E-03 0 12 G -4.284483E-01 8.523811E-01 -1.064264E-01 0.0 0.0 -2.892277E-01 7.323977E-03 2.104881E-03 -2.180404E-04 0.0 0.0 2.587821E-03 0 101 G -4.537606E-05 -2.854849E-04 -6.839210E-05 0.0 0.0 0.0 -2.161606E-06 -1.502277E-05 1.930185E-06 0.0 0.0 0.0 0 103 G -2.237147E-05 -2.706566E-04 -6.468590E-05 0.0 0.0 0.0 -1.871275E-06 -1.415633E-05 1.899525E-06 0.0 0.0 0.0 0 104 G -2.266518E-05 -2.705301E-04 -6.459546E-05 0.0 0.0 0.0 -1.885145E-06 -1.415393E-05 1.900648E-06 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 105 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =9 MACH = 180. KFREQ= 1. RHO = .1774919 COMPLEX EIGENVALUE = 5.628710E+00, 1.528195E+03 (CYCLIC FREQUENCY = 2.432198E+02HZ) C O M P L E X E I G E N V E C T O R NO. 1 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -2.237147E-05 -2.706566E-04 -6.468590E-05 0.0 0.0 0.0 -1.871275E-06 -1.415633E-05 1.899525E-06 0.0 0.0 0.0 0 107 G -4.537606E-05 -2.854849E-04 -6.839210E-05 0.0 0.0 0.0 -2.161606E-06 -1.502277E-05 1.930185E-06 0.0 0.0 0.0 0 108 G -4.586363E-05 -2.852249E-04 -6.822817E-05 0.0 0.0 0.0 -2.185726E-06 -1.501585E-05 1.932426E-06 0.0 0.0 0.0 0 113 G -4.661123E-05 -4.180504E-04 -9.629402E-05 0.0 0.0 0.0 -2.012371E-06 -2.242171E-05 2.890640E-06 0.0 0.0 0.0 0 115 G -4.128493E-05 -4.300911E-04 -1.054119E-04 0.0 0.0 0.0 -2.190426E-06 -2.305462E-05 2.724515E-06 0.0 0.0 0.0 0 116 G -1.018097E-04 4.247332E-04 -4.343413E-05 0.0 0.0 0.0 2.826660E-06 2.277132E-05 -2.079208E-06 0.0 0.0 0.0 0 117 G -4.128493E-05 -4.300911E-04 -1.054119E-04 0.0 0.0 0.0 -2.190426E-06 -2.305462E-05 2.724515E-06 0.0 0.0 0.0 0 119 G -4.661123E-05 -4.180504E-04 -9.629402E-05 0.0 0.0 0.0 -2.012371E-06 -2.242171E-05 2.890640E-06 0.0 0.0 0.0 0 120 G -1.018097E-04 4.247332E-04 -4.343413E-05 0.0 0.0 0.0 2.826660E-06 2.277132E-05 -2.079208E-06 0.0 0.0 0.0 0 121 G -2.736071E-05 0.0 0.0 0.0 0.0 0.0 -1.156832E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -2.689903E-05 0.0 0.0 0.0 0.0 0.0 -2.152446E-06 0.0 0.0 0.0 0.0 0.0 0 124 G -2.686146E-05 0.0 0.0 0.0 0.0 0.0 -2.150403E-06 0.0 0.0 0.0 0.0 0.0 0 125 G -2.689903E-05 0.0 0.0 0.0 0.0 0.0 -2.152446E-06 0.0 0.0 0.0 0.0 0.0 0 127 G -2.736071E-05 0.0 0.0 0.0 0.0 0.0 -1.156832E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -2.730248E-05 0.0 0.0 0.0 0.0 0.0 -1.154315E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 106 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =9 MACH = 180. KFREQ= 1. RHO = .1774919 COMPLEX EIGENVALUE = 7.917686E+01, 2.795975E+03 (CYCLIC FREQUENCY = 4.449932E+02HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 2.263513E-05 6.312198E-04 -5.856610E-05 -4.157922E-02 3.329055E-03 7.095240E-03 7.383345E-06 1.613407E-06 1.843068E-08 6.170346E-04 4.884570E-05 -2.199811E-04 0 2 G 2.263513E-05 6.312198E-04 -5.856610E-05 -4.157922E-02 3.329055E-03 7.095240E-03 7.383345E-06 1.613407E-06 1.843068E-08 6.170346E-04 4.884570E-05 -2.199811E-04 0 3 G 2.263513E-05 6.312198E-04 -5.856610E-05 -4.157922E-02 3.329055E-03 7.095240E-03 7.383345E-06 1.613407E-06 1.843068E-08 6.170346E-04 4.884570E-05 -2.199811E-04 0 4 G -6.443921E-02 1.309158E-01 2.123111E-02 1.802305E-02 -2.559904E-01 -1.187374E-01 1.651581E-03 -3.000598E-03 -4.613638E-04 -5.180655E-03 1.503587E-02 4.042717E-03 0 5 G -2.210472E-02 6.753416E-02 4.220393E-04 -4.960887E-02 -6.001832E-02 -1.011086E-01 5.092779E-04 -1.287426E-03 -1.854810E-05 1.121469E-03 1.543042E-03 2.191993E-03 0 6 G -3.713558E-03 -2.923589E-03 1.642073E-03 1.635956E-02 -8.580779E-02 -7.412942E-02 1.180309E-04 2.233894E-04 -8.535058E-05 -3.684768E-04 1.470493E-03 1.482664E-03 0 7 G -1.915234E-01 3.480352E-01 5.628276E-02 0.0 0.0 -1.354988E-01 7.858723E-03 -1.136134E-02 -1.862544E-03 0.0 0.0 7.058956E-03 0 8 G -9.822761E-02 2.722033E-01 7.015105E-04 -2.814807E-01 2.357974E-01 -1.359882E-01 3.628107E-03 -7.828347E-03 -2.129851E-05 1.080194E-02 -9.040330E-03 5.631641E-03 0 9 G -1.952851E-02 1.794951E-01 -3.701254E-02 -1.617344E-01 2.992747E-02 -1.973838E-01 7.754344E-04 -4.520357E-03 9.207861E-04 5.391661E-03 -3.236338E-03 5.816612E-03 0 10 G 3.849773E-01 -7.987951E-03 -3.843871E-02 0.0 0.0 -2.882781E-02 2.946501E-02 -3.103623E-02 -6.507428E-03 0.0 0.0 1.328532E-02 0 11 G 4.808004E-01 -5.594449E-02 -5.513779E-03 1.029406E+00 -3.417169E-01 6.240970E-02 1.762182E-02 -2.654756E-02 -5.285349E-04 5.403433E-02 -2.822346E-02 5.575905E-03 0 12 G 3.200461E-01 3.377211E-02 -2.080340E-03 0.0 0.0 1.498519E-01 1.222862E-02 -2.311842E-02 2.876636E-03 0.0 0.0 7.216845E-03 0 101 G -6.117946E-05 -4.179782E-04 1.554848E-05 0.0 0.0 0.0 4.581034E-08 -8.280745E-07 5.003523E-06 0.0 0.0 0.0 0 103 G -4.693392E-05 -3.944175E-04 1.616232E-05 0.0 0.0 0.0 -7.451567E-07 -7.048793E-07 4.807065E-06 0.0 0.0 0.0 0 104 G -4.733434E-05 -3.943205E-04 1.621714E-05 0.0 0.0 0.0 -7.442973E-07 -7.085264E-07 4.803966E-06 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 107 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =9 MACH = 180. KFREQ= 1. RHO = .1774919 COMPLEX EIGENVALUE = 7.917686E+01, 2.795975E+03 (CYCLIC FREQUENCY = 4.449932E+02HZ) C O M P L E X E I G E N V E C T O R NO. 2 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -4.693392E-05 -3.944175E-04 1.616232E-05 0.0 0.0 0.0 -7.451567E-07 -7.048793E-07 4.807065E-06 0.0 0.0 0.0 0 107 G -6.117946E-05 -4.179782E-04 1.554848E-05 0.0 0.0 0.0 4.581034E-08 -8.280745E-07 5.003523E-06 0.0 0.0 0.0 0 108 G -6.187013E-05 -4.177349E-04 1.565347E-05 0.0 0.0 0.0 4.632898E-08 -8.338861E-07 4.998036E-06 0.0 0.0 0.0 0 113 G -5.835517E-05 -6.214005E-04 2.596751E-05 0.0 0.0 0.0 2.317439E-07 -1.599597E-06 7.186281E-06 0.0 0.0 0.0 0 115 G -6.016266E-05 -6.391267E-04 1.914947E-05 0.0 0.0 0.0 -1.832717E-07 -1.628407E-06 7.457305E-06 0.0 0.0 0.0 0 116 G 2.263513E-05 6.312198E-04 -5.856610E-05 0.0 0.0 0.0 7.383345E-06 1.613407E-06 1.843068E-08 0.0 0.0 0.0 0 117 G -6.016266E-05 -6.391267E-04 1.914947E-05 0.0 0.0 0.0 -1.832717E-07 -1.628407E-06 7.457305E-06 0.0 0.0 0.0 0 119 G -5.835517E-05 -6.214005E-04 2.596751E-05 0.0 0.0 0.0 2.317439E-07 -1.599597E-06 7.186281E-06 0.0 0.0 0.0 0 120 G 2.263513E-05 6.312198E-04 -5.856610E-05 0.0 0.0 0.0 7.383345E-06 1.613407E-06 1.843068E-08 0.0 0.0 0.0 0 121 G -3.371288E-05 0.0 0.0 0.0 0.0 0.0 1.584622E-07 0.0 0.0 0.0 0.0 0.0 0 123 G -5.454621E-05 0.0 0.0 0.0 0.0 0.0 -7.921859E-07 0.0 0.0 0.0 0.0 0.0 0 124 G -5.448914E-05 0.0 0.0 0.0 0.0 0.0 -7.920547E-07 0.0 0.0 0.0 0.0 0.0 0 125 G -5.454621E-05 0.0 0.0 0.0 0.0 0.0 -7.921859E-07 0.0 0.0 0.0 0.0 0.0 0 127 G -3.371288E-05 0.0 0.0 0.0 0.0 0.0 1.584622E-07 0.0 0.0 0.0 0.0 0.0 0 128 G -3.363816E-05 0.0 0.0 0.0 0.0 0.0 1.580653E-07 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 108 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =9 MACH = 180. KFREQ= 1. RHO = .1774919 COMPLEX EIGENVALUE = 1.975942E+01, 4.963121E+03 (CYCLIC FREQUENCY = 7.899052E+02HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 5.352428E-05 1.702964E-04 -1.689884E-05 -2.504271E-03 9.303995E-04 5.984782E-05 1.972594E-05 1.029080E-04 -9.055317E-06 -4.575674E-03 8.000415E-04 4.666054E-04 0 2 G 5.352428E-05 1.702964E-04 -1.689884E-05 -2.504271E-03 9.303995E-04 5.984782E-05 1.972594E-05 1.029080E-04 -9.055317E-06 -4.575674E-03 8.000415E-04 4.666054E-04 0 3 G 5.352428E-05 1.702964E-04 -1.689884E-05 -2.504271E-03 9.303995E-04 5.984782E-05 1.972594E-05 1.029080E-04 -9.055317E-06 -4.575674E-03 8.000415E-04 4.666054E-04 0 4 G -6.479776E-04 4.011979E-03 9.980088E-04 -3.251060E-02 5.369742E-02 4.241426E-03 -5.424946E-03 1.176984E-02 1.941119E-03 -7.555760E-03 -5.577368E-03 -8.260620E-03 0 5 G -8.762070E-04 4.491004E-03 -3.228379E-04 -4.813417E-03 4.628228E-04 -2.623706E-03 -1.932547E-03 6.555478E-03 3.579780E-05 -3.667007E-03 -6.382784E-03 -9.369742E-03 0 6 G -4.645903E-05 1.225333E-03 -3.767640E-05 -1.043009E-04 -4.106200E-03 -3.765672E-03 -2.462698E-04 1.326968E-04 1.100797E-05 1.403568E-03 -9.336448E-03 -7.261024E-03 0 7 G 2.119472E-02 -1.500544E-03 -2.017863E-04 0.0 0.0 2.855095E-02 -9.676791E-03 2.347363E-02 3.717078E-03 0.0 0.0 -3.691749E-03 0 8 G -9.418219E-03 2.587795E-02 -9.992456E-04 5.798145E-02 -1.199826E-01 1.016596E-02 -5.756288E-03 2.046677E-02 7.463650E-05 -1.485400E-02 1.086388E-02 -6.480071E-03 0 9 G -5.764638E-03 2.143343E-02 -3.920794E-03 -1.022933E-02 -4.299667E-02 -7.125692E-03 -5.575909E-04 1.426567E-02 -2.968146E-03 -1.288233E-02 5.775975E-03 -1.201791E-02 0 10 G 3.314095E-01 -9.479216E-02 -3.329609E-02 0.0 0.0 4.128002E-01 1.250599E-02 1.420741E-02 8.438986E-04 0.0 0.0 -4.629829E-03 0 11 G -5.212747E-02 7.351504E-02 -2.120813E-04 1.039896E+00 -6.818864E-01 1.151815E-01 1.777303E-02 1.194893E-02 7.783237E-07 5.175777E-02 -2.139505E-02 -3.612297E-03 0 12 G -3.402032E-02 6.271244E-02 -7.824332E-03 0.0 0.0 6.735746E-03 1.791462E-02 1.166907E-02 -1.401560E-03 0.0 0.0 -4.032446E-03 0 101 G -1.663832E-05 -1.106860E-04 3.651358E-05 0.0 0.0 0.0 -9.469019E-06 -6.779487E-05 1.345923E-05 0.0 0.0 0.0 0 103 G -1.811554E-05 -1.038382E-04 3.554886E-05 0.0 0.0 0.0 -8.923073E-06 -6.383513E-05 1.312466E-05 0.0 0.0 0.0 0 104 G -1.820270E-05 -1.038356E-04 3.554237E-05 0.0 0.0 0.0 -8.984629E-06 -6.382834E-05 1.312693E-05 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 109 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =9 MACH = 180. KFREQ= 1. RHO = .1774919 COMPLEX EIGENVALUE = 1.975942E+01, 4.963121E+03 (CYCLIC FREQUENCY = 7.899052E+02HZ) C O M P L E X E I G E N V E C T O R NO. 3 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -1.811554E-05 -1.038382E-04 3.554886E-05 0.0 0.0 0.0 -8.923073E-06 -6.383513E-05 1.312466E-05 0.0 0.0 0.0 0 107 G -1.663832E-05 -1.106860E-04 3.651358E-05 0.0 0.0 0.0 -9.469019E-06 -6.779487E-05 1.345923E-05 0.0 0.0 0.0 0 108 G -1.679526E-05 -1.106671E-04 3.650299E-05 0.0 0.0 0.0 -9.576484E-06 -6.776967E-05 1.346433E-05 0.0 0.0 0.0 0 113 G -1.534953E-05 -1.677925E-04 5.302241E-05 0.0 0.0 0.0 -8.559688E-06 -1.013402E-04 1.982972E-05 0.0 0.0 0.0 0 115 G -1.849830E-05 -1.723375E-04 5.318692E-05 0.0 0.0 0.0 -9.754844E-06 -1.041870E-04 1.934068E-05 0.0 0.0 0.0 0 116 G 5.352428E-05 1.702964E-04 -1.689884E-05 0.0 0.0 0.0 1.972594E-05 1.029080E-04 -9.055317E-06 0.0 0.0 0.0 0 117 G -1.849830E-05 -1.723375E-04 5.318692E-05 0.0 0.0 0.0 -9.754844E-06 -1.041870E-04 1.934068E-05 0.0 0.0 0.0 0 119 G -1.534953E-05 -1.677925E-04 5.302241E-05 0.0 0.0 0.0 -8.559688E-06 -1.013402E-04 1.982972E-05 0.0 0.0 0.0 0 120 G 5.352428E-05 1.702964E-04 -1.689884E-05 0.0 0.0 0.0 1.972594E-05 1.029080E-04 -9.055317E-06 0.0 0.0 0.0 0 121 G -8.659486E-06 0.0 0.0 0.0 0.0 0.0 -4.908447E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -2.001610E-05 0.0 0.0 0.0 0.0 0.0 -1.025348E-05 0.0 0.0 0.0 0.0 0.0 0 124 G -2.000221E-05 0.0 0.0 0.0 0.0 0.0 -1.024417E-05 0.0 0.0 0.0 0.0 0.0 0 125 G -2.001610E-05 0.0 0.0 0.0 0.0 0.0 -1.025348E-05 0.0 0.0 0.0 0.0 0.0 0 127 G -8.659486E-06 0.0 0.0 0.0 0.0 0.0 -4.908447E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -8.644724E-06 0.0 0.0 0.0 0.0 0.0 -4.897558E-06 0.0 0.0 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 110 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =9 MACH = 180. KFREQ= 1. RHO = .1774919 COMPLEX EIGENVALUE = 3.998241E+02, 8.932469E+03 (CYCLIC FREQUENCY = 1.421646E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 1 G 1.365111E-03 4.358315E-03 -3.661165E-04 -1.314605E-01 4.095897E-02 -1.031485E-03 -1.649977E-06 1.281838E-04 -1.193204E-05 -8.925247E-03 7.127714E-04 1.586795E-03 0 2 G 1.365111E-03 4.358315E-03 -3.661165E-04 -1.314605E-01 4.095897E-02 -1.031485E-03 -1.649977E-06 1.281838E-04 -1.193204E-05 -8.925247E-03 7.127714E-04 1.586795E-03 0 3 G 1.365111E-03 4.358315E-03 -3.661165E-04 -1.314605E-01 4.095897E-02 -1.031485E-03 -1.649977E-06 1.281838E-04 -1.193204E-05 -8.925247E-03 7.127714E-04 1.586795E-03 0 4 G -7.818341E-02 2.151084E-01 3.735330E-02 -6.721908E-01 9.174950E-01 -7.657735E-03 -1.433678E-02 2.880315E-02 4.635990E-03 8.573849E-03 -6.521210E-02 -2.741749E-02 0 5 G -3.244489E-02 1.475059E-01 6.596536E-04 -2.647390E-02 -1.609563E-01 -1.885449E-01 -4.841098E-03 1.458402E-02 1.142702E-04 -1.049977E-02 -1.390128E-02 -2.217340E-02 0 6 G 5.041984E-04 2.416312E-02 -7.520058E-03 2.331174E-02 -2.598340E-01 -1.654555E-01 -8.353427E-04 -7.638448E-04 3.838510E-04 3.579066E-03 -1.870719E-02 -1.616990E-02 0 7 G 2.494082E-01 -2.376805E-02 -9.781921E-03 0.0 0.0 4.113609E-01 -4.523455E-02 7.904954E-02 1.279065E-02 0.0 0.0 -3.342922E-02 0 8 G 8.621669E-02 1.206682E-01 2.856317E-03 2.750051E-01 -2.569937E-01 2.094020E-01 -2.236659E-02 6.032285E-02 1.931226E-04 -6.627210E-02 5.673576E-02 -3.192042E-02 0 9 G 6.130328E-02 1.436248E-01 -3.221141E-02 -1.033507E-01 2.255693E-01 8.896225E-02 -4.202678E-03 3.897984E-02 -8.043548E-03 -3.738622E-02 1.281131E-02 -4.316710E-02 0 10 G -6.496233E-02 1.745358E-01 4.197358E-02 0.0 0.0 -2.641065E-01 9.322641E-03 5.422406E-02 5.339148E-03 0.0 0.0 -3.712163E-02 0 11 G 1.223965E-02 1.449100E-01 4.809142E-03 1.544950E-01 -2.599258E-01 -4.230817E-01 5.384625E-02 3.489849E-02 -1.800907E-05 6.591845E-02 9.198822E-04 -3.473559E-03 0 12 G 4.202156E-01 -8.321908E-02 6.128881E-03 0.0 0.0 -5.986328E-01 3.741018E-02 4.337028E-02 -5.056111E-03 0.0 0.0 9.855993E-03 0 101 G -3.834144E-04 -2.858521E-03 9.300897E-04 0.0 0.0 0.0 -1.253501E-05 -8.516716E-05 -1.057505E-06 0.0 0.0 0.0 0 103 G -4.193535E-04 -2.686803E-03 9.014116E-04 0.0 0.0 0.0 -8.924139E-06 -8.044588E-05 -7.683462E-07 0.0 0.0 0.0 0 104 G -4.218430E-04 -2.686810E-03 9.012837E-04 0.0 0.0 0.0 -9.007436E-06 -8.042310E-05 -7.542792E-07 0.0 0.0 0.0 1 MODAL FLUTTER ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 111 NASTRAN TEST PROBLEM NO. T09-05-1A 0 POINT =9 MACH = 180. KFREQ= 1. RHO = .1774919 COMPLEX EIGENVALUE = 3.998241E+02, 8.932469E+03 (CYCLIC FREQUENCY = 1.421646E+03HZ) C O M P L E X E I G E N V E C T O R NO. 4 (REAL/IMAGINARY) POINT ID. TYPE T1 T2 T3 R1 R2 R3 0 105 G -4.193535E-04 -2.686803E-03 9.014116E-04 0.0 0.0 0.0 -8.924139E-06 -8.044588E-05 -7.683462E-07 0.0 0.0 0.0 0 107 G -3.834144E-04 -2.858521E-03 9.300897E-04 0.0 0.0 0.0 -1.253501E-05 -8.516716E-05 -1.057505E-06 0.0 0.0 0.0 0 108 G -3.878132E-04 -2.857923E-03 9.299043E-04 0.0 0.0 0.0 -1.267754E-05 -8.511228E-05 -1.031011E-06 0.0 0.0 0.0 0 113 G -3.299690E-04 -4.292847E-03 1.354960E-03 0.0 0.0 0.0 -1.207536E-05 -1.261815E-04 -7.920821E-07 0.0 0.0 0.0 0 115 G -4.103043E-04 -4.412197E-03 1.354752E-03 0.0 0.0 0.0 -1.209316E-05 -1.297959E-04 -2.429583E-06 0.0 0.0 0.0 0 116 G 1.365111E-03 4.358315E-03 -3.661165E-04 0.0 0.0 0.0 -1.649977E-06 1.281838E-04 -1.193204E-05 0.0 0.0 0.0 0 117 G -4.103043E-04 -4.412197E-03 1.354752E-03 0.0 0.0 0.0 -1.209316E-05 -1.297959E-04 -2.429583E-06 0.0 0.0 0.0 0 119 G -3.299690E-04 -4.292847E-03 1.354960E-03 0.0 0.0 0.0 -1.207536E-05 -1.261815E-04 -7.920821E-07 0.0 0.0 0.0 0 120 G 1.365111E-03 4.358315E-03 -3.661165E-04 0.0 0.0 0.0 -1.649977E-06 1.281838E-04 -1.193204E-05 0.0 0.0 0.0 0 121 G -1.877502E-04 0.0 0.0 0.0 0.0 0.0 -7.005012E-06 0.0 0.0 0.0 0.0 0.0 0 123 G -4.787199E-04 0.0 0.0 0.0 0.0 0.0 -1.046623E-05 0.0 0.0 0.0 0.0 0.0 0 124 G -4.783241E-04 0.0 0.0 0.0 0.0 0.0 -1.045458E-05 0.0 0.0 0.0 0.0 0.0 0 125 G -4.787199E-04 0.0 0.0 0.0 0.0 0.0 -1.046623E-05 0.0 0.0 0.0 0.0 0.0 0 127 G -1.877502E-04 0.0 0.0 0.0 0.0 0.0 -7.005012E-06 0.0 0.0 0.0 0.0 0.0 0 128 G -1.873299E-04 0.0 0.0 0.0 0.0 0.0 -6.989298E-06 0.0 0.0 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = MODAL FLUTTER ANALYSIS OF A ROTOR BLADE DATE: 5/18/95 END TIME: 10:39:32 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t09061a.out ================================================ NASTRAN SYSTEM(93)=1, FILES=PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T09061A,NASTRAN APP AERO SOL 9 DIAG 14 TIME 1000 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T09-06-1A 3 LABEL = 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 4 $ 5 SPC = 1 6 METHOD = 1 7 FMETHOD = 1 8 $ 9 OUTPUT(XYOUT) 10 $ 11 PLOTTER NASTPLT D,0 12 XPAPER = 8.5 13 YPAPER = 11.0 14 YAXIS = YES 15 XINTERCEPT = 7046.0 $ OPERATING VELOCITY 16 XTAXIS = YES 17 XBAXIS = YES 18 CURVELINESYMBOL = 6 19 XDIVISIONS = 10 20 YTDIVISIONS = 10 21 YBDIVISIONS = 10 22 YTGRID LINES = YES 23 YBGRID LINES = YES 24 XTGRID LINES = YES 25 XBGRID LINES = YES 26 XTITLE = VELOCITY VSBAR , IN/SEC....REF VSBAR = 7046 IN/SEC, CASE 3 27 YTTITLE = DAMPING G 28 YBTITLE = FREQUENCY F, HZ 29 TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=0.0 30 XYPLOT,XYPRINT VG/ 1(G,F), 2(G,F), 3(G,F), 4(G,F), 5(G,F), 6(G,F) 31 TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=36.0 32 XYPLOT,XYPRINT VG/ 7(G,F), 8(G,F), 9(G,F),10(G,F),11(G,F),12(G,F) 33 TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=72.0 34 XYPLOT,XYPRINT VG/13(G,F),14(G,F),15(G,F),16(G,F),17(G,F),18(G,F) 35 TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=108.0 36 XYPLOT,XYPRINT VG/19(G,F),20(G,F),21(G,F),22(G,F),23(G,F),24(G,F) 37 TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=144.0 38 XYPLOT,XYPRINT VG/25(G,F),26(G,F),27(G,F),28(G,F),29(G,F),30(G,F) 39 TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=180.0 40 XYPLOT,XYPRINT VG/31(G,F),32(G,F),33(G,F),34(G,F),35(G,F),36(G,F) 41 TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-144.0 42 XYPLOT,XYPRINT VG/37(G,F),38(G,F),39(G,F),40(G,F),41(G,F),42(G,F) 43 TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-108.0 44 XYPLOT,XYPRINT VG/43(G,F),44(G,F),45(G,F),46(G,F),47(G,F),48(G,F) 45 TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-72.0 46 XYPLOT,XYPRINT VG/49(G,F),50(G,F),51(G,F),52(G,F),53(G,F),54(G,F) 47 TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-36.0 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 48 XYPLOT,XYPRINT VG/55(G,F),56(G,F),57(G,F),58(G,F),59(G,F),60(G,F) 49 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 650, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- AERO 0 1.0 2.905 9.763E-8 2- CORD2R 1 0.0 0.0 0.0 -.0277 -.9996 0.0 +C2R1 3- +C2R1 .9996 -.0277 0.0 4- CQUAD2 1 1 1 2 9 8 5- CQUAD2 2 2 2 3 10 9 6- CQUAD2 3 3 3 4 11 10 7- CQUAD2 4 4 4 5 12 11 8- CQUAD2 5 5 5 6 13 12 9- CQUAD2 6 6 6 7 14 13 10- CQUAD2 7 7 8 9 16 15 11- CQUAD2 8 8 9 10 17 16 12- CQUAD2 9 9 10 11 18 17 13- CQUAD2 10 10 11 12 19 18 14- CQUAD2 11 11 12 13 20 19 15- CQUAD2 12 12 13 14 21 20 16- CQUAD2 13 13 15 16 23 22 17- CQUAD2 14 14 16 17 24 23 18- CQUAD2 15 15 17 18 25 24 19- CQUAD2 16 16 18 19 26 25 20- CQUAD2 17 17 19 20 27 26 21- CQUAD2 18 18 20 21 28 27 22- CQUAD2 19 19 22 23 30 29 23- CQUAD2 20 20 23 24 31 30 24- CQUAD2 21 21 24 25 32 31 25- CQUAD2 22 22 25 26 33 32 26- CQUAD2 23 23 26 27 34 33 27- CQUAD2 24 24 27 28 35 34 28- CQUAD2 25 25 29 30 37 36 29- CQUAD2 26 26 30 31 38 37 30- CQUAD2 27 27 31 32 39 38 31- CQUAD2 28 28 32 33 40 39 32- CQUAD2 29 29 33 34 41 40 33- CQUAD2 30 30 34 35 42 41 34- CQUAD2 31 31 36 37 44 43 35- CQUAD2 32 32 37 38 45 44 36- CQUAD2 33 33 38 39 46 45 37- CQUAD2 34 34 39 40 47 46 38- CQUAD2 35 35 40 41 48 47 39- CQUAD2 36 36 41 42 49 48 40- CQUAD2 37 37 43 44 51 50 41- CQUAD2 38 38 44 45 52 51 42- CQUAD2 39 39 45 46 53 52 43- CQUAD2 40 40 46 47 54 53 44- CQUAD2 41 41 47 48 55 54 45- CQUAD2 42 42 48 49 56 55 46- CQUAD2 43 43 50 51 58 57 47- CQUAD2 44 44 51 52 59 58 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- CQUAD2 45 45 52 53 60 59 49- CQUAD2 46 46 53 54 61 60 50- CQUAD2 47 47 54 55 62 61 51- CQUAD2 48 48 55 56 63 62 52- CQUAD2 49 49 57 58 65 64 53- CQUAD2 50 50 58 59 66 65 54- CQUAD2 51 51 59 60 67 66 55- CQUAD2 52 52 60 61 68 67 56- CQUAD2 53 53 61 62 69 68 57- CQUAD2 54 54 62 63 70 69 58- CQUAD2 55 55 64 65 72 71 59- CQUAD2 56 56 65 66 73 72 60- CQUAD2 57 57 66 67 74 73 61- CQUAD2 58 58 67 68 75 74 62- CQUAD2 59 59 68 69 76 75 63- CQUAD2 60 60 69 70 77 76 64- CQUAD2 61 61 71 72 79 78 65- CQUAD2 62 62 72 73 80 79 66- CQUAD2 63 63 73 74 81 80 67- CQUAD2 64 64 74 75 82 81 68- CQUAD2 65 65 75 76 83 82 69- CQUAD2 66 66 76 77 84 83 70- CQUAD2 67 67 78 79 86 85 71- CQUAD2 68 68 79 80 87 86 72- CQUAD2 69 69 80 81 88 87 73- CQUAD2 70 70 81 82 89 88 74- CQUAD2 71 71 82 83 90 89 75- CQUAD2 72 72 83 84 91 90 76- CQUAD2 73 73 85 86 93 92 77- CQUAD2 74 74 86 87 94 93 78- CQUAD2 75 75 87 88 95 94 79- CQUAD2 76 76 88 89 96 95 80- CQUAD2 77 77 89 90 97 96 81- CQUAD2 78 78 90 91 98 97 82- CQUAD2 79 79 92 93 100 99 83- CQUAD2 80 80 93 94 101 100 84- CQUAD2 81 81 94 95 102 101 85- CQUAD2 82 82 95 96 103 102 86- CQUAD2 83 83 96 97 104 103 87- CQUAD2 84 84 97 98 105 104 88- CQUAD2 85 85 99 100 107 106 89- CQUAD2 86 86 100 101 108 107 90- CQUAD2 87 87 101 102 109 108 91- CQUAD2 88 88 102 103 110 109 92- CQUAD2 89 89 103 104 111 110 93- CQUAD2 90 90 104 105 112 111 94- CQUAD2 91 91 106 107 114 113 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- CQUAD2 92 92 107 108 115 114 96- CQUAD2 93 93 108 109 116 115 97- CQUAD2 94 94 109 110 117 116 98- CQUAD2 95 95 110 111 118 117 99- CQUAD2 96 96 111 112 119 118 100- CQUAD2 97 97 113 114 121 120 101- CQUAD2 98 98 114 115 122 121 102- CQUAD2 99 99 115 116 123 122 103- CQUAD2 100 100 116 117 124 123 104- CQUAD2 101 101 117 118 125 124 105- CQUAD2 102 102 118 119 126 125 106- CQUAD2 103 103 120 121 128 127 107- CQUAD2 104 104 121 122 129 128 108- CQUAD2 105 105 122 123 130 129 109- CQUAD2 106 106 123 124 131 130 110- CQUAD2 107 107 124 125 132 131 111- CQUAD2 108 108 125 126 133 132 112- CQUAD2 109 109 127 128 135 134 113- CQUAD2 110 110 128 129 136 135 114- CQUAD2 121 121 131 132 144 143 115- CQUAD2 122 122 132 133 145 144 116- CQUAD2 123 123 138 139 147 146 117- CQUAD2 124 124 139 140 148 147 118- CQUAD2 125 125 140 141 149 148 119- CQUAD2 126 126 141 142 150 149 120- CQUAD2 127 127 146 147 152 151 121- CQUAD2 128 128 147 148 153 152 122- CQUAD2 129 129 148 149 154 153 123- CQUAD2 130 130 149 150 155 154 124- CTRIA2 111 111 129 138 136 125- CTRIA2 112 112 129 137 138 126- CTRIA2 113 113 129 130 137 127- CTRIA2 114 114 137 130 140 128- CTRIA2 115 115 138 137 139 129- CTRIA2 116 116 139 137 140 130- CTRIA2 117 117 140 130 141 131- CTRIA2 118 118 141 130 142 132- CTRIA2 119 119 130 131 142 133- CTRIA2 120 120 142 131 143 134- CYJOIN 1 155 135- CYJOIN 2 151 136- EIGR 1 INV 100.0 2000.0 10 8 +E1 137- +E1 MAX 138- FLFACT 1 1.0 139- FLFACT 2 0.0 36.0 72.0 108.0 144.0 180.0 -144.0 +FL21 140- +FL21 -108.0 -72. -36. 141- FLFACT 3 .10 .20 .30 .6 .9 1.2 1.5 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- FLUTTER 1 KE 1 2 3 L 6 143- GRDSET 1 1 144- GRID* 1 2.419817E+00 1.244079E+01 *GD 1 145- *GD 1-2.031032E+00 146- GRID* 2 2.457173E+00 1.238143E+01 *GD 2 147- *GD 2-2.058249E+00 148- GRID* 3 2.551602E+00 1.225216E+01 *GD 3 149- *GD 3-2.114527E+00 150- GRID* 4 2.683628E+00 1.202870E+01 *GD 4 151- *GD 4-2.173213E+00 152- GRID* 5 2.865225E+00 1.172653E+01 *GD 5 153- *GD 5-2.216011E+00 154- GRID* 6 2.990463E+00 1.158475E+01 *GD 6 155- *GD 6-2.254392E+00 156- GRID* 7 3.126074E+00 1.140011E+01 *GD 7 157- *GD 7-2.266630E+00 158- GRID* 8 2.194761E+00 1.228047E+01 *GD 8 159- *GD 8-1.843213E+00 160- GRID* 9 2.250464E+00 1.216055E+01 *GD 9 161- *GD 9-1.876635E+00 162- GRID* 10 2.377542E+00 1.206568E+01 *GD 10 163- *GD 10-1.963854E+00 164- GRID* 11 2.548495E+00 1.179959E+01 *GD 11 165- *GD 11-2.027197E+00 166- GRID* 12 2.733165E+00 1.150046E+01 *GD 12 167- *GD 12-2.066389E+00 168- GRID* 13 2.832836E+00 1.132142E+01 *GD 13 169- *GD 13-2.069136E+00 170- GRID* 14 2.996484E+00 1.108674E+01 *GD 14 171- *GD 14-2.097482E+00 172- GRID* 15 1.964924E+00 1.211923E+01 *GD 15 173- *GD 15-1.666834E+00 174- GRID* 16 2.043783E+00 1.199233E+01 *GD 16 175- *GD 16-1.720535E+00 176- GRID* 17 2.109893E+00 1.187122E+01 *GD 17 177- *GD 17-1.744548E+00 178- GRID* 18 2.348317E+00 1.154853E+01 *GD 18 179- *GD 18-1.835006E+00 180- GRID* 19 2.540135E+00 1.125291E+01 *GD 19 181- *GD 19-1.870254E+00 182- GRID* 20 2.675576E+00 1.106813E+01 *GD 20 183- *GD 20-1.882862E+00 184- GRID* 21 2.839677E+00 1.085337E+01 *GD 21 185- *GD 21-1.909663E+00 186- GRID* 22 1.631763E+00 1.188205E+01 *GD 22 187- *GD 22-1.396830E+00 188- GRID* 23 1.673820E+00 1.179605E+01 *GD 23 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- *GD 23-1.420859E+00 190- GRID* 24 1.815764E+00 1.160683E+01 *GD 24 191- *GD 24-1.491647E+00 192- GRID* 25 2.063309E+00 1.124282E+01 *GD 25 193- *GD 25-1.576361E+00 194- GRID* 26 2.302190E+00 1.087758E+01 *GD 26 195- *GD 26-1.640171E+00 196- GRID* 27 2.437845E+00 1.068192E+01 *GD 27 197- *GD 27-1.643727E+00 198- GRID* 28 2.632743E+00 1.045467E+01 *GD 28 199- *GD 28-1.652845E+00 200- GRID* 29 1.311218E+00 1.164496E+01 *GD 29 201- *GD 29-1.141120E+00 202- GRID* 30 1.360893E+00 1.154351E+01 *GD 30 203- *GD 30-1.161242E+00 204- GRID* 31 1.501914E+00 1.131251E+01 *GD 31 205- *GD 31-1.229293E+00 206- GRID* 32 1.786772E+00 1.089894E+01 *GD 32 207- *GD 32-1.340499E+00 208- GRID* 33 2.047144E+00 1.055134E+01 *GD 33 209- *GD 33-1.383823E+00 210- GRID* 34 2.220435E+00 1.030633E+01 *GD 34 211- *GD 34-1.413691E+00 212- GRID* 35 2.465178E+00 1.012088E+01 *GD 35 213- *GD 35-1.453387E+00 214- GRID* 36 9.178853E-01 1.134436E+01 *GD 36 215- *GD 36-8.344505E-01 216- GRID* 37 9.881784E-01 1.123093E+01 *GD 37 217- *GD 37-8.854066E-01 218- GRID* 38 1.129425E+00 1.096814E+01 *GD 38 219- *GD 38-9.357375E-01 220- GRID* 39 1.453193E+00 1.050240E+01 *GD 39 221- *GD 39-1.043262E+00 222- GRID* 40 1.781501E+00 1.010489E+01 *GD 40 223- *GD 40-1.113802E+00 224- GRID* 41 1.955276E+00 9.860262E+00 *GD 41 225- *GD 41-1.142711E+00 226- GRID* 42 2.199200E+00 9.625038E+00 *GD 42 227- *GD 42-1.183993E+00 228- GRID* 43 4.878750E-01 1.099476E+01 *GD 43 229- *GD 43-5.068682E-01 230- GRID* 44 5.593370E-01 1.085660E+01 *GD 44 231- *GD 44-5.470380E-01 232- GRID* 45 7.476242E-01 1.062701E+01 *GD 45 233- *GD 45-6.576909E-01 234- GRID* 46 1.137788E+00 1.008176E+01 *GD 46 235- *GD 46-8.041450E-01 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- GRID* 47 1.466719E+00 9.623438E+00 *GD 47 237- *GD 47-8.569880E-01 238- GRID* 48 1.670425E+00 9.369388E+00 *GD 48 239- *GD 48-8.965883E-01 240- GRID* 49 1.905910E+00 9.134694E+00 *GD 49 241- *GD 49-9.252617E-01 242- GRID* 50 -1.396976E-02 1.059563E+01 *GD 50 243- *GD 50-1.396792E-01 244- GRID* 51 7.075590E-02 1.044524E+01 *GD 51 245- *GD 51-2.047331E-01 246- GRID* 52 2.875357E-01 1.012399E+01 *GD 52 247- *GD 52-3.129540E-01 248- GRID* 53 7.360002E-01 9.570383E+00 *GD 53 249- *GD 53-5.007564E-01 250- GRID* 54 1.103680E+00 9.064291E+00 *GD 54 251- *GD 54-5.847520E-01 252- GRID* 55 1.308623E+00 8.811132E+00 *GD 55 253- *GD 55-6.212754E-01 254- GRID* 56 1.586562E+00 8.499916E+00 *GD 56 255- *GD 56-6.411608E-01 256- GRID* 57 -4.000301E-01 1.022161E+01 *GD 57 257- *GD 571.274626E-01 258- GRID* 58 -3.109443E-01 1.007667E+01 *GD 58 259- *GD 586.474346E-02 260- GRID* 59 -4.257504E-02 9.746097E+00 *GD 59 261- *GD 59-9.011447E-02 262- GRID* 60 4.317413E-01 9.133682E+00 *GD 60 263- *GD 60-2.848848E-01 264- GRID* 61 8.400738E-01 8.629044E+00 *GD 61 265- *GD 61-3.864452E-01 266- GRID* 62 1.075119E+00 8.326850E+00 *GD 62 267- *GD 62-4.330833E-01 268- GRID* 63 1.372284E+00 7.998097E+00 *GD 63 269- *GD 63-4.656390E-01 270- GRID* 64 -8.876041E-01 9.747480E+00 *GD 64 271- *GD 644.344531E-01 272- GRID* 65 -7.852193E-01 9.579490E+00 *GD 65 273- *GD 653.506024E-01 274- GRID* 66 -4.903399E-01 9.209817E+00 *GD 66 275- *GD 661.900352E-01 276- GRID* 67 8.824563E-02 8.577651E+00 *GD 67 277- *GD 67-4.811718E-02 278- GRID* 68 5.764167E-01 8.055484E+00 *GD 68 279- *GD 68-1.965310E-01 280- GRID* 69 8.417380E-01 7.754916E+00 *GD 69 281- *GD 69-2.687562E-01 282- GRID* 70 1.127948E+00 7.304899E+00 *GD 70 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- *GD 70-3.480781E-01 284- GRID* 71 -1.340348E+00 9.248205E+00 *GD 71 285- *GD 716.895647E-01 286- GRID* 72 -1.211896E+00 9.064268E+00 *GD 72 287- *GD 725.941403E-01 288- GRID* 73 -8.663878E-01 8.684826E+00 *GD 73 289- *GD 734.148975E-01 290- GRID* 74 -1.849050E-01 7.997163E+00 *GD 74 291- *GD 741.370639E-01 292- GRID* 75 3.419222E-01 7.404170E+00 *GD 75 293- *GD 75-6.006306E-02 294- GRID* 76 6.469184E-01 7.104341E+00 *GD 76 295- *GD 76-1.762950E-01 296- GRID* 77 9.723798E-01 6.754175E+00 *GD 77 297- *GD 77-2.997903E-01 298- GRID* 78 -1.721028E+00 8.748784E+00 *GD 78 299- *GD 788.876511E-01 300- GRID* 79 -1.560428E+00 8.580663E+00 *GD 79 301- *GD 797.867939E-01 302- GRID* 80 -1.135652E+00 8.151909E+00 *GD 80 303- *GD 805.662700E-01 304- GRID* 81 -4.147282E-01 7.403061E+00 *GD 81 305- *GD 812.401156E-01 306- GRID* 82 1.852081E-01 6.753466E+00 *GD 82 307- *GD 82-9.743430E-03 308- GRID* 83 5.310093E-01 6.498033E+00 *GD 83 309- *GD 83-1.498038E-01 310- GRID* 84 9.002047E-01 6.103145E+00 *GD 84 311- *GD 84-2.552683E-01 312- GRID* 85 -2.167293E+00 7.999124E+00 *GD 85 313- *GD 851.095234E+00 314- GRID* 86 -1.965024E+00 7.748323E+00 *GD 86 315- *GD 869.662098E-01 316- GRID* 87 -1.447637E+00 7.370351E+00 *GD 87 317- *GD 877.037064E-01 318- GRID* 88 -5.651237E-01 6.672748E+00 *GD 88 319- *GD 882.690339E-01 320- GRID* 89 1.080579E-01 6.122757E+00 *GD 89 321- *GD 899.317569E-03 322- GRID* 90 4.961708E-01 5.802341E+00 *GD 90 323- *GD 90-1.257418E-01 324- GRID* 91 9.450005E-01 5.499189E+00 *GD 91 325- *GD 91-2.549328E-01 326- GRID* 92 -2.501855E+00 6.998549E+00 *GD 92 327- *GD 921.159885E+00 328- GRID* 93 -2.243557E+00 6.869573E+00 *GD 93 329- *GD 931.004043E+00 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- GRID* 94 -1.663980E+00 6.498133E+00 *GD 94 331- *GD 946.963711E-01 332- GRID* 95 -6.590906E-01 5.998307E+00 *GD 95 333- *GD 952.671809E-01 334- GRID* 96 1.295218E-01 5.498876E+00 *GD 96 335- *GD 96-1.361039E-02 336- GRID* 97 5.590804E-01 5.251667E+00 *GD 97 337- *GD 97-1.359098E-01 338- GRID* 98 1.008383E+00 5.000014E+00 *GD 98 339- *GD 98-2.679553E-01 340- GRID* 99 -2.658578E+00 5.997640E+00 *GD 99 341- *GD 991.050546E+00 342- GRID* 100 -2.343632E+00 5.902313E+00 *GD 100 343- *GD 1009.020252E-01 344- GRID* 101 -1.669497E+00 5.672649E+00 *GD 101 345- *GD 1016.170529E-01 346- GRID* 102 -5.963364E-01 5.302208E+00 *GD 102 347- *GD 1022.088603E-01 348- GRID* 103 1.954939E-01 4.999296E+00 *GD 103 349- *GD 103-4.400190E-02 350- GRID* 104 6.204426E-01 4.870985E+00 *GD 104 351- *GD 104-1.597679E-01 352- GRID* 105 1.050502E+00 4.750490E+00 *GD 105 353- *GD 105-2.685744E-01 354- GRID* 106 -2.496761E+00 4.997375E+00 *GD 106 355- *GD 1068.496489E-01 356- GRID* 107 -2.194051E+00 4.997557E+00 *GD 107 357- *GD 1077.381414E-01 358- GRID* 108 -1.543487E+00 4.903041E+00 *GD 108 359- *GD 1084.893306E-01 360- GRID* 109 -5.069078E-01 4.751890E+00 *GD 109 361- *GD 1091.591752E-01 362- GRID* 110 2.414709E-01 4.620979E+00 *GD 110 363- *GD 110-6.520444E-02 364- GRID* 111 6.511260E-01 4.550488E+00 *GD 111 365- *GD 111-1.757268E-01 366- GRID* 112 1.101048E+00 4.450042E+00 *GD 112 367- *GD 112-2.750542E-01 368- GRID* 113 -2.273488E+00 4.304033E+00 *GD 113 369- *GD 1136.919722E-01 370- GRID* 114 -1.994164E+00 4.303668E+00 *GD 114 371- *GD 1145.999017E-01 372- GRID* 115 -1.405457E+00 4.402983E+00 *GD 115 373- *GD 1153.958974E-01 374- GRID* 116 -4.174645E-01 4.351565E+00 *GD 116 375- *GD 1161.095533E-01 376- GRID* 117 3.215386E-01 4.300690E+00 *GD 117 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- *GD 117-8.331943E-02 378- GRID* 118 7.212664E-01 4.250240E+00 *GD 118 379- *GD 118-1.836711E-01 380- GRID* 119 1.151106E+00 4.249871E+00 *GD 119 381- *GD 119-2.738665E-01 382- GRID* 120 -1.996529E+00 3.623911E+00 *GD 120 383- *GD 1205.362222E-01 384- GRID* 121 -1.717033E+00 3.593472E+00 *GD 121 385- *GD 1214.447856E-01 386- GRID* 122 -1.167562E+00 3.662519E+00 *GD 122 387- *GD 1222.925791E-01 388- GRID* 123 -2.483512E-01 3.751040E+00 *GD 123 389- *GD 1234.970558E-02 390- GRID* 124 4.511786E-01 3.800256E+00 *GD 124 391- *GD 124-1.118595E-01 392- GRID* 125 8.409850E-01 3.799903E+00 *GD 125 393- *GD 125-2.023238E-01 394- GRID* 126 1.290810E+00 3.799548E+00 *GD 126 395- *GD 126-2.828727E-01 396- GRID* 127 -1.608941E+00 2.873360E+00 *GD 127 397- *GD 1273.625186E-01 398- GRID* 128 -1.308840E+00 2.992764E+00 *GD 128 399- *GD 1282.919613E-01 400- GRID* 129 -9.387804E-01 3.101987E+00 *GD 129 401- *GD 1292.111757E-01 402- GRID* 130 -8.885711E-02 3.300630E+00 *GD 130 403- *GD 1301.195536E-01 404- GRID* 131 5.608683E-01 3.500004E+00 *GD 131 405- *GD 131-1.414182E-01 406- GRID* 132 9.507490E-01 3.499724E+00 *GD 132 407- *GD 132-2.217990E-01 408- GRID* 133 1.369986E+00 3.600738E+00 *GD 133 409- *GD 133-2.995755E-01 410- GRID* 134 -1.368847E+00 2.576391E+00 *GD 134 411- *GD 1342.804042E-01 412- GRID* 135 -1.139708E+00 2.642426E+00 *GD 135 413- *GD 1352.214295E-01 414- GRID* 136 -7.496524E-01 2.721577E+00 *GD 136 415- *GD 1361.307743E-01 416- GRID* 137 -4.592137E-01 3.001000E+00 *GD 137 417- *GD 1379.034532E-02 418- GRID* 138 -4.695653E-01 2.760897E+00 *GD 138 419- *GD 1387.035846E-02 420- GRID* 139 -2.695652E-01 2.800594E+00 *GD 139 421- *GD 1393.012025E-02 422- GRID* 140 3.953020E-04 2.830271E+00 *GD 140 423- *GD 140-2.015355E-02 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- GRID* 141 2.705058E-01 2.980117E+00 *GD 141 425- *GD 141-5.050298E-02 426- GRID* 142 4.705606E-01 3.069980E+00 *GD 142 427- *GD 142-8.079284E-02 428- GRID* 143 7.906197E-01 3.199841E+00 *GD 143 429- *GD 143-1.611942E-01 430- GRID* 144 1.100652E+00 3.339638E+00 *GD 144 431- *GD 144-2.316611E-01 432- GRID* 145 1.475051E+00 3.454741E+00 *GD 145 433- *GD 145-2.780864E-01 434- GRID* 146 -4.697902E-01 2.440455E+00 *GD 146 435- *GD 1469.014469E-02 436- GRID* 147 -2.698651E-01 2.440315E+00 *GD 147 437- *GD 1474.007889E-02 438- GRID* 148 8.703647E-05 2.440156E+00 *GD 148 439- *GD 148-1.476011E-05 440- GRID* 149 2.700679E-01 2.440040E+00 *GD 149 441- *GD 149-4.009397E-02 442- GRID* 150 4.700607E-01 2.439936E+00 *GD 150 443- *GD 150-8.013493E-02 444- GRID* 151 -4.700000E-01 2.060000E+00 *GD 151 445- *GD 1518.999997E-02 446- GRID* 152 -2.700000E-01 2.060000E+00 *GD 152 447- *GD 1524.000000E-02 448- GRID* 153 0.0 2.060000E+00 *GD 153 449- *GD 1530.0 450- GRID* 154 2.700000E-01 2.060000E+00 *GD 154 451- *GD 154-4.000000E-02 452- GRID* 155 4.700000E-01 2.060000E+00 *GD 155 453- *GD 155-8.999997E-02 454- MAT1 1 1.6E7 .35 .0004141 455- MKAERO2 -144. .001 -144. .3 -144. .6 -144. .9 456- MKAERO2 -144. 1.2 -144. 1.5 -144. .15 457- MKAERO2 -108. .001 -108. .3 -108. .6 -108. .9 458- MKAERO2 -108. 1.2 -108. 1.5 -108. .15 459- MKAERO2 -72. .001 -72. .3 -72. .6 -72. .9 460- MKAERO2 -72. 1.2 -72. 1.5 -72. .15 461- MKAERO2 -36. .001 -36. .3 -36. .6 -36. .9 462- MKAERO2 -36. 1.2 -36. 1.5 -36. .15 463- MKAERO2 0.0 .001 0.0 .3 0.0 .6 0.0 .9 464- MKAERO2 0.0 1.2 0.0 1.5 0.0 .15 465- MKAERO2 36. .001 36. .3 36. .6 36. .9 466- MKAERO2 36. 1.2 36. 1.5 36.0 .15 467- MKAERO2 72. .001 72. .3 72. .6 72. .9 468- MKAERO2 72. 1.2 72. 1.5 72.0 .15 469- MKAERO2 108. .001 108. .3 108. .6 108. .9 470- MKAERO2 108. 1.2 108. 1.5 108. .15 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- MKAERO2 144. .001 144. .3 144. .6 144. .9 472- MKAERO2 144. 1.2 144. 1.5 144. .15 473- MKAERO2 180. .001 180. .3 180. .6 180. .9 474- MKAERO2 180. 1.2 180. 1.5 180. .15 475- PARAM CTYPE ROT 476- PARAM IREF 6 477- PARAM KINDEX 0 478- PARAM LMODES 6 479- PARAM MAXMACH 0.95 480- PARAM MINMACH 1.01 481- PARAM MTYPE COSINE 482- PARAM NSEGS 10 483- PARAM PRINT YESB 484- PQUAD2 1 1 .012 485- PQUAD2 2 1 .024 486- PQUAD2 3 1 .032 487- PQUAD2 4 1 .036 488- PQUAD2 5 1 .030 489- PQUAD2 6 1 .018 490- PQUAD2 7 1 .014 491- PQUAD2 8 1 .028 492- PQUAD2 9 1 .037 493- PQUAD2 10 1 .043 494- PQUAD2 11 1 .036 495- PQUAD2 12 1 .022 496- PQUAD2 13 1 .016 497- PQUAD2 14 1 .032 498- PQUAD2 15 1 .048 499- PQUAD2 16 1 .051 500- PQUAD2 17 1 .042 501- PQUAD2 18 1 .023 502- PQUAD2 19 1 .018 503- PQUAD2 20 1 .034 504- PQUAD2 21 1 .053 505- PQUAD2 22 1 .058 506- PQUAD2 23 1 .046 507- PQUAD2 24 1 .025 508- PQUAD2 25 1 .021 509- PQUAD2 26 1 .042 510- PQUAD2 27 1 .061 511- PQUAD2 28 1 .066 512- PQUAD2 29 1 .051 513- PQUAD2 30 1 .027 514- PQUAD2 31 1 .024 515- PQUAD2 32 1 .049 516- PQUAD2 33 1 .070 517- PQUAD2 34 1 .073 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 518- PQUAD2 35 1 .057 519- PQUAD2 36 1 .030 520- PQUAD2 37 1 .028 521- PQUAD2 38 1 .054 522- PQUAD2 39 1 .078 523- PQUAD2 40 1 .082 524- PQUAD2 41 1 .065 525- PQUAD2 42 1 .035 526- PQUAD2 43 1 .031 527- PQUAD2 44 1 .061 528- PQUAD2 45 1 .088 529- PQUAD2 46 1 .093 530- PQUAD2 47 1 .075 531- PQUAD2 48 1 .039 532- PQUAD2 49 1 .038 533- PQUAD2 50 1 .068 534- PQUAD2 51 1 .098 535- PQUAD2 52 1 .103 536- PQUAD2 53 1 .083 537- PQUAD2 54 1 .046 538- PQUAD2 55 1 .041 539- PQUAD2 56 1 .076 540- PQUAD2 57 1 .110 541- PQUAD2 58 1 .118 542- PQUAD2 59 1 .091 543- PQUAD2 60 1 .047 544- PQUAD2 61 1 .043 545- PQUAD2 62 1 .083 546- PQUAD2 63 1 .120 547- PQUAD2 64 1 .129 548- PQUAD2 65 1 .100 549- PQUAD2 66 1 .044 550- PQUAD2 67 1 .045 551- PQUAD2 68 1 .090 552- PQUAD2 69 1 .135 553- PQUAD2 70 1 .138 554- PQUAD2 71 1 .100 555- PQUAD2 72 1 .048 556- PQUAD2 73 1 .053 557- PQUAD2 74 1 .106 558- PQUAD2 75 1 .152 559- PQUAD2 76 1 .148 560- PQUAD2 77 1 .099 561- PQUAD2 78 1 .044 562- PQUAD2 79 1 .063 563- PQUAD2 80 1 .123 564- PQUAD2 81 1 .171 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 565- PQUAD2 82 1 .157 566- PQUAD2 83 1 .099 567- PQUAD2 84 1 .046 568- PQUAD2 85 1 .071 569- PQUAD2 86 1 .141 570- PQUAD2 87 1 .206 571- PQUAD2 88 1 .177 572- PQUAD2 89 1 .112 573- PQUAD2 90 1 .048 574- PQUAD2 91 1 .084 575- PQUAD2 92 1 .172 576- PQUAD2 93 1 .232 577- PQUAD2 94 1 .198 578- PQUAD2 95 1 .135 579- PQUAD2 96 1 .062 580- PQUAD2 97 1 .119 581- PQUAD2 98 1 .206 582- PQUAD2 99 1 .266 583- PQUAD2 100 1 .230 584- PQUAD2 101 1 .152 585- PQUAD2 102 1 .071 586- PQUAD2 103 1 .161 587- PQUAD2 104 1 .237 588- PQUAD2 105 1 .347 589- PQUAD2 106 1 .319 590- PQUAD2 107 1 .167 591- PQUAD2 108 1 .075 592- PQUAD2 109 1 .222 593- PQUAD2 110 1 .373 594- PQUAD2 121 1 .242 595- PQUAD2 122 1 .089 596- PQUAD2 123 1 .441 597- PQUAD2 124 1 .830 598- PQUAD2 125 1 .830 599- PQUAD2 126 1 .441 600- PQUAD2 127 1 .441 601- PQUAD2 128 1 .830 602- PQUAD2 129 1 .830 603- PQUAD2 130 1 .441 604- PTRIA2 111 1 .531 605- PTRIA2 112 1 .532 606- PTRIA2 113 1 .396 607- PTRIA2 114 1 .544 608- PTRIA2 115 1 .590 609- PTRIA2 116 1 .591 610- PTRIA2 117 1 .557 611- PTRIA2 118 1 .519 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 612- PTRIA2 119 1 .396 613- PTRIA2 120 1 .377 614- RFORCE 1 0 113.34 1.0 0.0 0.0 615- SPC1 1 4 1 57 616- SPC1 1 6 7 91 98 134 145 617- SPC1 1 123456 151 THRU 155 618- STREAML11 134 136 143 145 619- STREAML12 113 115 117 119 620- STREAML13 99 101 103 105 621- STREAML14 85 87 89 91 622- STREAML15 71 73 75 77 623- STREAML16 57 59 61 63 624- STREAML17 43 45 47 49 625- STREAML18 29 31 33 35 626- STREAML19 15 17 19 21 627- STREAML110 1 3 5 7 628- STREAML21 4 11.075 3.028 0.278 1.626 0.686 9.763E-8+STR 1 629- +STR 19152. -15.899 630- STREAML22 4 13.895 3.559 0.336 2.733 0.734 9.763E-8+STR 4 631- +STR 49794. 2.890 632- STREAML23 4 14.946 4.129 0.152 3.818 0.713 9.763E-8+STR 6 633- +STR 69512. 20.206 634- STREAML24 4 16.492 4.214 -0.355 5.068 0.618 9.763E-8+STR 8 635- +STR 88246. 38.813 636- STREAML25 4 17.712 3.542 -0.389 5.825 0.567 9.763E-8+STR 10 637- +STR 107558. 46.112 638- STREAML26 4 16.167 2.905 -0.367 6.423 0.528 9.763E-8+STR 12 639- +STR 127046. 50.138 640- STREAML27 4 17.910 2.376 -0.316 6.915 0.535 9.763E-8+STR 14 641- +STR 147139. 50.796 642- STREAML28 4 19.990 1.937 -0.369 7.350 0.556 9.763E-8+STR 16 643- +STR 167419. 50.323 644- STREAML29 4 23.516 1.558 -0.294 7.682 0.557 9.763E-8+STR 18 645- +STR 187424. 51.910 646- STREAML210 4 27.788 1.280 -0.541 7.913 0.587 9.763E-8+STR 20 647- +STR 207830. 50.992 ENDDATA 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN AERO 09 - BLADE CYCLIC MODAL FLUTTER ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/CLAMAL= APPEND/OVG=APPEND/QHHL=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N, NOGPDT/MINUS1=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 COND ERROR5,NOGPDT $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 11 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 12 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 13 COND ERROR5,NOSIMP $ 14 PARAM //*ADD*/NOKGGX/1/0 $ 15 PARAM //*ADD*/NOMGG/1/0 $ 16 PARAM //*NOP*/V,Y,KGGIN=-1 $ 17 COND JMPKGGIN,KGGIN $ 18 PARAM //*ADD*/NOKGGX/-1/0 $ 19 INPUTT1 /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $ 20 EQUIV KTOTAL,KGGX $ 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 LABEL JMPKGGIN $ 22 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 23 COND JMPKGGX,NOKGGX $ 24 EMA GPECT,KDICT,KELM/KGGX $ 25 PURGE KDICT,KELM/MINUS1 $ 26 LABEL JMPKGGX $ 27 COND ERROR1,NOMGG $ 28 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 29 PURGE MDICT,MELM/MINUS1 $ 30 COND LGPWG,GRDPNT $ 31 GPWG BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 32 OFP OGPWG,,,,,//S,N,CARDNO $ 33 LABEL LGPWG $ 34 EQUIV KGGX,KGG/NOGENL $ 35 COND LBL11,NOGENL $ 36 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 37 LABEL LBL11 $ 38 GPSTGEN KGG,SIL/GPST $ 39 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 40 OFP OGPST,,,,,//S,N,CARDNO $ 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 41 PARAM //*NOT*/REACDATA/REACT $ 42 COND ERROR6,REACDATA $ 43 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $ 44 GPCYC GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $ 45 COND ERROR7,NOGO $ 46 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 47 COND LBL2,MPCF1 $ 48 MCE1 USET,RG/GM $ 49 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 50 LABEL LBL2 $ 51 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 52 COND LBL3,SINGLE $ 53 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 54 LABEL LBL3 $ 55 EQUIV KFF,KAA/OMIT/MFF,MAA/OMIT $ 56 COND LBL5,OMIT $ 57 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 58 SMP2 USET,GO,MFF/MAA $ 59 LABEL LBL5 $ 60 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $ 61 COND ERROR2,NOEED $ 62 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 63 CYCT2 CYCD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS=-1/V,Y, KINDEX=-1/V,Y,CYCSEQ=-1/1/S,N,NOGO $ 64 COND ERROR7,NOGO $ 65 READ KKK,MKK,,,EED,,CASECC/LAMK,PHIK, ,OEIGS/*MODES*/S,N, NEIGV $ 66 OFP OEIGS,LAMK,,,,//S,N,CARDNO $ 67 COND ERROR4,NEIGV $ 68 CYCT2 CYCD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y, KINDEX/V,Y,CYCSEQ/1/S,N,NOGO $ 69 COND ERROR7,NOGO $ 70 SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,/1/*REIG* $ 71 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,,PHIG,EST,,,/ ,,OPHIG,,,PPHIG,,/*REIG* $ 72 OFP OPHIG,,,,,//S,N,CARDNO $ 73 PARAML PCDB//*PRES*////JUMPPLOT $ 74 PURGE PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/JUMPPLOT $ 75 COND PZZ,JUMPPLOT $ 76 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/ S,N,NSILZ/S,N,JUMPZ=-1 $ 77 PRTMSG PLTSETZ// $ 78 COND PZZ,JUMPZ $ 79 PLOT PLTPARZ,GPSETSZ,ELSETSZ,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,,,,/ PLOTZ/NSILZ/LUSET/JUMPZ/PLTFLGZ=-1/S,N,PFILEZ=0 $ 80 PRTMSG PLOTZ// $ 81 LABEL PZZ $ 82 APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,FLIST,GTKA,PVECT/ 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/V,Y,MTYPE/ NEIGV/V,Y,KINDEX $ 83 PARTN PHIA,PVECT,/PHIAX,,,/1 $ 84 SMPYAD PHIAX,MAA,PHIAX,,,/MI/3/1/1/0/1 $ 85 MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ 86 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 87 EQUIV M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $ 88 GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/ *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/ NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/-1/-1/-1 $ 89 GKAM USETD,PHIAX,MI,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH, PHIDH/NOUE/C,Y,LMODES=999999/C,Y,LFREQ=0.0/C,Y,HFREQ=0.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y, KDAMP=-1 $ 90 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 91 COND P2,JUMPPLOT $ 92 PLTSET PCDB,EQDYN,ECT,/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL1/S,N, JUMPPLOT $ 93 PRTMSG PLTSETX//$ 94 PARAM //*MPY*/PLTFLG/1/1 $ 95 PARAM //*MPY*/PFILE/0/0 $ 96 COND P2,JUMPPLOT $ 97 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQDYN,,,,,,,/PLOTX1/NSIL1/ LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 98 PRTMSG PLOTX1//$ 99 LABEL P2 $ 100 PARAM //*ADD*/DESTRY/0/1 $ 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 101 AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $ 102 PURGE D1JE,D2JE/NODJE $ 103 COND NODJE,NODJE $ 104 INPUTT2 /D1JE,D2JE,,,/C,Y,POSITION=-1/C,Y,UNITNUM=11/C,Y,USRLABEL= TAPEID $ 105 LABEL NODJE $ 106 PARAM //*ADD*/XQHHL/1/0 $ 107 AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,,/ NOUE/S,N,XQHHL $ 108 PARAM //*MPY*/NOP/1/1 $ 109 PARAM //*MPY*/NOH/0/1 $ 110 PARAM //*MPY*/FLOOP/V,Y,NODJE=-1/0 $ 111 LABEL LOOPTOP $ 112 FA1 KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/S,N,FLOOP/ S,N,TSTART/S,N,NOCEAD $ 113 EQUIV KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/ KXHH,PHIHL/NOCEAD/BXHH,CLAMAL/NOCEAD/ CASECC,CASEYY/NOCEAD $ 114 COND VDR,NOCEAD $ 115 CEAD KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $ 116 COND LBLZAP,EIGVS $ 117 LABEL VDR $ 118 VDR CASECC,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/ 123/S,N,NOH/S,N,NOP/FMODE $ 119 COND LBL16,NOH $ 120 OFP OPHIH,,,,,//S,N,CARDNO $ 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 121 LABEL LBL16 $ 122 FA2 PHIH,CLAMA,FSAVE/PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/C,Y,VREF= 1.0/C,Y,PRINT=YESB $ 123 COND CONTINUE,TSTART $ 124 LABEL LBLZAP $ 125 COND CONTINUE,FLOOP $ 126 REPT LOOPTOP,100 $ 127 JUMP ERROR3 $ 128 LABEL CONTINUE $ 129 PARAML XYCDB//*PRES*////NOXYCDB $ 130 COND NOXYOUT,NOXYCDB $ 131 XYTRAN XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO $ 132 XYPLOT XYPLTCE//$ 133 LABEL NOXYOUT $ 134 PARAM //*AND*/PJUMP/NOP=-1/JUMPPLOT $ 135 COND FINIS,PJUMP $ 136 MODACC CASEYY,CLAMAL,PHIHL,CASECC,,/CLAMAL1,CPHIH1,CASEZZ,,/ *CEIGN* $ 137 DDR1 CPHIH1,PHIDH/CPHID $ 138 EQUIV CPHID,CPHIP/NOA $ 139 COND LBL14,NOA $ 140 SDR1 USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $ 141 LABEL LBL14 $ 142 EQUIV CPHID,CPHIA/NOUE $ 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 143 COND LBLNOE,NOUE $ 144 VEC USETD/RP/*D*/*A*/*E* $ 145 PARTN CPHID,,RP/CPHIA,,,/1/3 $ 146 LABEL LBLNOE $ 147 SDR2 CASEZZ,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDT,CLAMAL1,QPC,CPHIP, EST,,,/,OQPC1,OCPHIP,OESC1,OEFC1,PCPHIP,,/*CEIGN* $ 148 OFP OCPHIP,OQPC1,OESC1,OEFC1,,//S,N,CARDNO $ 149 COND P3,JUMPPLOT $ 150 PLOT PLTPAR,GPSETS,ELSETS,CASEZZ,BGPDT,EQDYN,SILD,,PCPHIP,,,,/ PLOTX3/NSIL1/LUSET/JUMPPLOT/PLTFLG/PFILE $ 151 PRTMSG PLOTX3//$ 152 LABEL P3 $ 153 JUMP FINIS $ 154 LABEL ERROR1 $ 155 PRTPARM //-1/*BLADEMDS* $ 156 LABEL ERROR2 $ 157 PRTPARM //-2/*BLADEMDS* $ 158 LABEL ERROR3 $ 159 PRTPARM //-3/*BLADEMDS* $ 160 LABEL ERROR4 $ 161 PRTPARM //-4/*BLADEMDS* $ 162 LABEL ERROR5 $ 163 PRTPARM //-5/*BLADEMDS* $ 164 LABEL ERROR6 $ 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T09-06-1A 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 165 PRTPARM //-6/*BLADEMDS* $ 166 LABEL ERROR7 $ 167 PRTPARM //-7/*BLADEMDS* $ 168 LABEL FINIS $ 169 PURGE DUMMY/MINUS1 $ 170 END $ 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 14 PROFILE 1337 MAX WAVEFRONT 13 AVG WAVEFRONT 8.626 RMS WAVEFRONT 8.752 RMS BANDWIDTH 8.817 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 12 PROFILE 1326 MAX WAVEFRONT 12 AVG WAVEFRONT 8.555 RMS WAVEFRONT 8.667 RMS BANDWIDTH 8.750 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 14 12 PROFILE (P) 1337 1326 MAXIMUM WAVEFRONT (C-MAX) 13 12 AVERAGE WAVEFRONT (C-AVG) 8.626 8.555 RMS WAVEFRONT (C-RMS) 8.752 8.667 RMS BANDWITCH (B-RMS) 8.817 8.750 NUMBER OF GRID POINTS (N) 155 NUMBER OF ELEMENTS (NON-RIGID) 130 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 9 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 524 MATRIX DENSITY, PERCENT 5.007 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 39 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 1 2 2 3 3 4 4 SEQGP 5 5 6 6 7 7 8 8 SEQGP 9 9 10 10 11 11 12 12 SEQGP 13 13 14 14 15 15 16 16 SEQGP 17 17 18 18 19 19 20 20 SEQGP 21 21 22 22 23 23 24 24 SEQGP 25 25 26 26 27 27 28 28 SEQGP 29 29 30 30 31 31 32 32 SEQGP 33 33 34 34 35 35 36 36 SEQGP 37 37 38 38 39 39 40 40 SEQGP 41 41 42 42 43 43 44 44 SEQGP 45 45 46 46 47 47 48 48 SEQGP 49 49 50 50 51 51 52 52 SEQGP 53 53 54 54 55 55 56 56 SEQGP 57 57 58 58 59 59 60 60 SEQGP 61 61 62 62 63 63 64 64 SEQGP 65 65 66 66 67 67 68 68 SEQGP 69 69 70 70 71 71 72 72 SEQGP 73 73 74 74 75 75 76 76 SEQGP 77 77 78 78 79 79 80 80 SEQGP 81 81 82 82 83 83 84 84 SEQGP 85 85 86 86 87 87 88 88 SEQGP 89 89 90 90 91 91 92 92 SEQGP 93 93 94 94 95 95 96 96 SEQGP 97 97 98 98 99 99 100 100 SEQGP 101 101 102 102 103 103 104 104 SEQGP 105 105 106 106 107 107 108 108 SEQGP 109 109 110 110 111 111 112 112 SEQGP 113 113 114 114 115 115 116 116 SEQGP 117 117 118 118 119 119 120 120 SEQGP 121 123 122 124 123 125 124 126 SEQGP 125 127 126 128 127 121 128 129 SEQGP 129 131 130 132 131 133 132 134 SEQGP 133 135 134 122 135 130 136 136 SEQGP 137 137 138 138 139 145 140 141 SEQGP 141 139 142 140 143 142 144 143 SEQGP 145 144 146 146 147 147 148 150 SEQGP 149 149 150 148 151 151 152 152 SEQGP 153 153 154 155 155 154 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIA2 ELEMENTS (ELEMENT TYPE 17) STARTING WITH ID 111 0*** USER WARNING MESSAGE 3017 0 ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS. (USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION VIA A 'PARAM AUTOSPC' BULK DATA CARD) 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. G R I D P O I N T S I N G U L A R I T Y T A B L E SPC 1 MPC 0 POINT SINGULARITY LIST OF COORDINATE COMBINATIONS THAT WILL REMOVE SINGULARITY ID. TYPE ORDER STRONGEST COMBINATION WEAKER COMBINATION WEAKEST COMBINATION 29 G 1 4 6 5 0*** USER WARNING MESSAGE 4032 0NO COMPONENTS OF GRID POINTS 155 AND 151 WERE CONNECTED. 6 ROOTS BELOW 3.977450E+07 5 ROOTS BELOW 3.638198E+07 7 ROOTS BELOW 5.069593E+07 2 ROOTS BELOW 1.278386E+07 3 ROOTS BELOW 1.331262E+07 3 ROOTS BELOW 1.689639E+07 1 ROOTS BELOW 7.037552E+05 0 ROOTS BELOW 5.266361E+05 1 ROOTS BELOW 3.539077E+06 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. E I G E N V A L U E A N A L Y S I S S U M M A R Y (INVERSE POWER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 8 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 9 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 69 0 REASON FOR TERMINATION . . . . . . . . . . . 6* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* NO. OF ROOTS DESIRED WERE FOUND. SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS **************************************************************** * * * + NASTRAN INFORMATION MESSAGE 3308, LOWEST EIGENVALUE FOUND * * AS INDICATED BY THE STURM'S SEQUENCE OF THE DYNAMIC MATRIX * * * * (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37) * **************************************************************** 1 6 5.266361E+05 7.256970E+02 1.154983E+02 0.0 0.0 2 7 3.539467E+06 1.881347E+03 2.994257E+02 0.0 0.0 3 4 1.331262E+07 3.648647E+03 5.807002E+02 0.0 0.0 4 5 1.692550E+07 4.114061E+03 6.547731E+02 0.0 0.0 5 3 2.569213E+07 5.068740E+03 8.067150E+02 0.0 0.0 6 1 3.638755E+07 6.032209E+03 9.600559E+02 0.0 0.0 7 2 5.056998E+07 7.111257E+03 1.131792E+03 0.0 0.0 8 8 8.711234E+07 9.333399E+03 1.485457E+03 0.0 0.0 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 102 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN1313153056 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 1 SIGMA VALUE = 0.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.3172187E+04 -2.5987566E-01 1.4433174E+02 -1.7115653E+03 1.3172187E+04 0.2000 5.0000000E+00 5.5141851E+03 -8.8200323E-02 1.2084129E+02 -2.4317645E+02 5.5141851E+03 0.3000 3.3333333E+00 3.5799548E+03 -5.4680537E-02 1.1768004E+02 -9.7876930E+01 3.5799548E+03 0.6000 1.6666666E+00 1.7623336E+03 -2.5975892E-02 1.1586264E+02 -2.2889093E+01 1.7623336E+03 0.9000 1.1111112E+00 1.1711383E+03 -1.7830875E-02 1.1549274E+02 -1.0441211E+01 1.1711383E+03 1.2000 8.3333331E-01 8.7731647E+02 -1.5152136E-02 1.1535635E+02 -6.6466093E+00 8.7731647E+02 1.5000 6.6666669E-01 7.0205066E+02 -1.5885172E-02 1.1538881E+02 -5.5760980E+00 7.0205066E+02 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 2 SIGMA VALUE = 0.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.7438021E+04 -1.1019964E+00 1.9107382E+02 -9.6083184E+03 1.7438021E+04 0.2000 5.0000000E+00 1.5320804E+04 -4.6307611E-01 3.3574963E+02 -3.5473491E+03 1.5320804E+04 0.3000 3.3333333E+00 9.6310557E+03 -5.1461689E-02 3.1659143E+02 -2.4781520E+02 9.6310557E+03 0.6000 1.6666666E+00 4.5875498E+03 -2.2387553E-02 3.0160327E+02 -5.1352009E+01 4.5875498E+03 0.9000 1.1111112E+00 3.0400488E+03 -1.5918441E-02 2.9979684E+02 -2.4196419E+01 3.0400488E+03 1.2000 8.3333331E-01 2.2755999E+03 -1.3652289E-02 2.9921347E+02 -1.5533574E+01 2.2755999E+03 1.5000 6.6666669E-01 1.8181428E+03 -1.4089519E-02 2.9882938E+02 -1.2808379E+01 1.8181428E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 3 SIGMA VALUE = 0.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.9013311E+04 1.2675632E+00 2.0833476E+02 1.2050286E+04 1.9013311E+04 0.2000 5.0000000E+00 1.6495873E+04 3.3017141E-01 3.6150082E+02 2.7232329E+03 1.6495873E+04 0.3000 3.3333333E+00 1.4538642E+04 -7.2321326E-02 4.7791330E+02 -5.2572693E+02 1.4538642E+04 0.6000 1.6666666E+00 8.4681025E+03 -4.5205150E-02 5.5672583E+02 -1.9140092E+02 8.4681025E+03 0.9000 1.1111112E+00 5.7763608E+03 -3.0286590E-02 5.6964044E+02 -8.7473137E+01 5.7763608E+03 1.2000 8.3333331E-01 4.3629409E+03 -2.5681905E-02 5.7367322E+02 -5.6024319E+01 4.3629409E+03 1.5000 6.6666669E-01 3.5080808E+03 -2.9476199E-02 5.7658698E+02 -5.1702446E+01 3.5080808E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 4 SIGMA VALUE = 0.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.6552992E+04 -5.1877630E-01 5.1009564E+02 -1.2075295E+04 4.6552992E+04 0.2000 5.0000000E+00 2.9223604E+04 -3.8178080E-01 6.4042426E+02 -5.5785054E+03 2.9223604E+04 0.3000 3.3333333E+00 2.1861395E+04 -1.3596323E-01 7.1862634E+02 -1.4861730E+03 2.1861395E+04 0.6000 1.6666666E+00 1.0021833E+04 -2.2598922E-02 6.5887408E+02 -1.1324131E+02 1.0021833E+04 0.9000 1.1111112E+00 6.6457544E+03 -1.5855767E-02 6.5537634E+02 -5.2686768E+01 6.6457544E+03 1.2000 8.3333331E-01 4.9773037E+03 -1.3198256E-02 6.5445441E+02 -3.2845863E+01 4.9773037E+03 1.5000 6.6666669E-01 3.9759780E+03 -1.3718268E-02 6.5349042E+02 -2.7271767E+01 3.9759780E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 5 SIGMA VALUE = 0.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.8446758E+04 5.0924569E-01 5.3084619E+02 1.2335651E+04 4.8446758E+04 0.2000 5.0000000E+00 3.0757529E+04 3.2275152E-01 6.7403961E+02 4.9635195E+03 3.0757529E+04 0.3000 3.3333333E+00 2.2667010E+04 -3.8899805E-02 7.4510846E+02 -4.4087115E+02 2.2667010E+04 0.6000 1.6666666E+00 1.2272566E+04 -4.2526396E-03 8.0684601E+02 -2.6095400E+01 1.2272566E+04 0.9000 1.1111112E+00 8.1706685E+03 -3.6863666E-03 8.0575702E+02 -1.5060040E+01 8.1706685E+03 1.2000 8.3333331E-01 6.1264741E+03 -3.3270025E-03 8.0555621E+02 -1.0191398E+01 6.1264741E+03 1.5000 6.6666669E-01 4.8978418E+03 -4.2622117E-03 8.0500763E+02 -1.0437819E+01 4.8978418E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 6 SIGMA VALUE = 0.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 6.9898609E+04 -6.2749879E-03 7.6590082E+02 -2.1930646E+02 6.9898609E+04 0.2000 5.0000000E+00 3.5515133E+04 -6.5270462E-03 7.7830078E+02 -1.1590446E+02 3.5515133E+04 0.3000 3.3333333E+00 2.3515236E+04 7.5143322E-02 7.7299133E+02 8.8350647E+02 2.3515236E+04 0.6000 1.6666666E+00 1.3739351E+04 -5.6905162E-02 9.0327802E+02 -3.9091998E+02 1.3739351E+04 0.9000 1.1111112E+00 9.4859492E+03 -4.0690761E-02 9.3546448E+02 -1.9299525E+02 9.4859492E+03 1.2000 8.3333331E-01 7.1902539E+03 -3.4564465E-02 9.4543018E+02 -1.2426364E+02 7.1902539E+03 1.5000 6.6666669E-01 5.7985537E+03 -3.3646178E-02 9.5304828E+02 -9.7549583E+01 5.7985537E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 7 SIGMA VALUE = 36.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.4447952E+04 -1.3584130E+00 1.5831071E+02 -9.8131426E+03 1.4447952E+04 0.2000 5.0000000E+00 5.5837832E+03 -6.1568826E-02 1.2236651E+02 -1.7189349E+02 5.5837832E+03 0.3000 3.3333333E+00 3.5869927E+03 -5.3954463E-02 1.1791139E+02 -9.6767136E+01 3.5869927E+03 0.6000 1.6666666E+00 1.7630731E+03 -2.5941579E-02 1.1591125E+02 -2.2868450E+01 1.7630731E+03 0.9000 1.1111112E+00 1.1712765E+03 -1.7802557E-02 1.1550636E+02 -1.0425858E+01 1.1712765E+03 1.2000 8.3333331E-01 8.7725458E+02 -1.5052991E-02 1.1534823E+02 -6.6026525E+00 8.7725458E+02 1.5000 6.6666669E-01 7.0163501E+02 -1.6053015E-02 1.1532050E+02 -5.6316786E+00 7.0163501E+02 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 8 SIGMA VALUE = 36.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.5559391E+04 -1.7931104E-01 1.7048909E+02 -1.3949852E+03 1.5559391E+04 0.2000 5.0000000E+00 1.5412703E+04 1.8042478E-01 3.3776358E+02 1.3904167E+03 1.5412703E+04 0.3000 3.3333333E+00 9.6882637E+03 -4.9773194E-02 3.1847198E+02 -2.4110791E+02 9.6882637E+03 0.6000 1.6666666E+00 4.5884702E+03 -2.2176944E-02 3.0166379E+02 -5.0879124E+01 4.5884702E+03 0.9000 1.1111112E+00 3.0398684E+03 -1.5911946E-02 2.9977905E+02 -2.4185110E+01 3.0398684E+03 1.2000 8.3333331E-01 2.2750293E+03 -1.3747981E-02 2.9913846E+02 -1.5638530E+01 2.2750293E+03 1.5000 6.6666669E-01 1.8179467E+03 -1.5014366E-02 2.9879709E+02 -1.3647658E+01 1.8179467E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 9 SIGMA VALUE = 36.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.7399838E+04 9.4291705E-01 1.9065544E+02 8.2033018E+03 1.7399838E+04 0.2000 5.0000000E+00 1.5838678E+04 -5.8759284E-01 3.4709863E+02 -4.6533467E+03 1.5838678E+04 0.3000 3.3333333E+00 1.4408869E+04 -8.6303018E-02 4.7364743E+02 -6.2176447E+02 1.4408869E+04 0.6000 1.6666666E+00 8.4627275E+03 -4.7139965E-02 5.5637244E+02 -1.9946634E+02 8.4627275E+03 0.9000 1.1111112E+00 5.7751548E+03 -3.0581545E-02 5.6952148E+02 -8.8306580E+01 5.7751548E+03 1.2000 8.3333331E-01 4.3618945E+03 -2.5172578E-02 5.7353564E+02 -5.4900066E+01 4.3618945E+03 1.5000 6.6666669E-01 3.5014500E+03 -2.8129667E-02 5.7549713E+02 -4.9247311E+01 3.5014500E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 44 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 10 SIGMA VALUE = 36.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.5367082E+04 -4.4467422E-01 4.9710126E+02 -1.0086786E+04 4.5367082E+04 0.2000 5.0000000E+00 2.8573613E+04 -4.1251895E-01 6.2617993E+02 -5.8935786E+03 2.8573613E+04 0.3000 3.3333333E+00 2.1865262E+04 -1.7643739E-01 7.1875342E+02 -1.9289249E+03 2.1865262E+04 0.6000 1.6666666E+00 1.0023521E+04 -2.2392318E-02 6.5898499E+02 -1.1222493E+02 1.0023521E+04 0.9000 1.1111112E+00 6.6451958E+03 -1.5864380E-02 6.5532129E+02 -5.2710953E+01 6.6451958E+03 1.2000 8.3333331E-01 4.9758940E+03 -1.3401648E-02 6.5426910E+02 -3.3342590E+01 4.9758940E+03 1.5000 6.6666669E-01 3.9774731E+03 -1.3505163E-02 6.5373621E+02 -2.6858212E+01 3.9774731E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 45 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 11 SIGMA VALUE = 36.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.7292613E+04 4.7900623E-01 5.1819989E+02 1.1326729E+04 4.7292613E+04 0.2000 5.0000000E+00 3.1082039E+04 2.4922588E-01 6.8115112E+02 3.8732244E+03 3.1082039E+04 0.3000 3.3333333E+00 2.2567490E+04 5.4811798E-03 7.4183710E+02 6.1848236E+01 2.2567490E+04 0.6000 1.6666666E+00 1.2271604E+04 -4.2079766E-03 8.0678278E+02 -2.5819311E+01 1.2271604E+04 0.9000 1.1111112E+00 8.1697524E+03 -3.6966177E-03 8.0566663E+02 -1.5100225E+01 8.1697524E+03 1.2000 8.3333331E-01 6.1255591E+03 -3.3832015E-03 8.0543591E+02 -1.0362000E+01 6.1255591E+03 1.5000 6.6666669E-01 4.8978770E+03 -4.1551110E-03 8.0501343E+02 -1.0175611E+01 4.8978770E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 46 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 12 SIGMA VALUE = 36.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 6.9086922E+04 -1.4860944E-02 7.5700690E+02 -5.1334845E+02 6.9086922E+04 0.2000 5.0000000E+00 3.5577559E+04 -6.9398033E-03 7.7966876E+02 -1.2345063E+02 3.5577559E+04 0.3000 3.3333333E+00 2.3476168E+04 5.5202238E-02 7.7170703E+02 6.4796851E+02 2.3476168E+04 0.6000 1.6666666E+00 1.3723325E+04 -6.0072768E-02 9.0222449E+02 -4.1219907E+02 1.3723325E+04 0.9000 1.1111112E+00 9.4831465E+03 -4.1231122E-02 9.3518811E+02 -1.9550038E+02 9.4831465E+03 1.2000 8.3333331E-01 7.1874961E+03 -3.3509701E-02 9.4506769E+02 -1.2042543E+02 7.1874961E+03 1.5000 6.6666669E-01 5.7806250E+03 -3.5886802E-02 9.5010162E+02 -1.0372408E+02 5.7806250E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 47 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 13 SIGMA VALUE = 72.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.2671934E+04 -1.3457757E+00 1.3885033E+02 -8.5267900E+03 1.2671934E+04 0.2000 5.0000000E+00 5.6929341E+03 -8.0977246E-02 1.2475850E+02 -2.3049907E+02 5.6929341E+03 0.3000 3.3333333E+00 3.6233438E+03 -4.2569898E-02 1.1910632E+02 -7.7122688E+01 3.6233438E+03 0.6000 1.6666666E+00 1.7640631E+03 -2.4808550E-02 1.1597633E+02 -2.1881924E+01 1.7640631E+03 0.9000 1.1111112E+00 1.1715580E+03 -1.7426711E-02 1.1553412E+02 -1.0208201E+01 1.1715580E+03 1.2000 8.3333331E-01 8.7738165E+02 -1.4879582E-02 1.1536493E+02 -6.5275364E+00 8.7738165E+02 1.5000 6.6666669E-01 7.0177606E+02 -1.6021198E-02 1.1534367E+02 -5.6216464E+00 7.0177606E+02 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 48 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 14 SIGMA VALUE = 72.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.5309077E+04 1.3145933E+00 1.6774632E+02 1.0062605E+04 1.5309077E+04 0.2000 5.0000000E+00 1.4550981E+04 -6.8416524E-01 3.1887927E+02 -4.9776377E+03 1.4550981E+04 0.3000 3.3333333E+00 9.4770693E+03 -4.9083158E-02 3.1152960E+02 -2.3258224E+02 9.4770693E+03 0.6000 1.6666666E+00 4.5934678E+03 -2.2332985E-02 3.0199234E+02 -5.1292923E+01 4.5934678E+03 0.9000 1.1111112E+00 3.0408435E+03 -1.6011860E-02 2.9987521E+02 -2.4344782E+01 3.0408435E+03 1.2000 8.3333331E-01 2.2753975E+03 -1.3880956E-02 2.9918686E+02 -1.5792346E+01 2.2753975E+03 1.5000 6.6666669E-01 1.8186007E+03 -1.5317811E-02 2.9890460E+02 -1.3928491E+01 1.8186007E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 49 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 15 SIGMA VALUE = 72.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.5741630E+04 -3.0649740E-01 1.7248593E+02 -2.4123843E+03 1.5741630E+04 0.2000 5.0000000E+00 1.5008953E+04 2.8116891E-01 3.2891556E+02 2.1100254E+03 1.5008953E+04 0.3000 3.3333333E+00 1.4595369E+04 -2.3337741E-01 4.7977802E+02 -1.7031147E+03 1.4595369E+04 0.6000 1.6666666E+00 8.4754619E+03 -4.8226699E-02 5.5720966E+02 -2.0437178E+02 8.4754619E+03 0.9000 1.1111112E+00 5.7776050E+03 -3.0648964E-02 5.6976312E+02 -8.8538803E+01 5.7776050E+03 1.2000 8.3333331E-01 4.3625576E+03 -2.5039796E-02 5.7362286E+02 -5.4618774E+01 4.3625576E+03 1.5000 6.6666669E-01 3.5014504E+03 -2.8190995E-02 5.7549725E+02 -4.9354687E+01 3.5014504E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 50 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 16 SIGMA VALUE = 72.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.3453715E+04 -4.2606568E-01 4.7613589E+02 -9.2570684E+03 4.3453715E+04 0.2000 5.0000000E+00 2.7731979E+04 -4.2841977E-01 6.0773584E+02 -5.9404639E+03 2.7731979E+04 0.3000 3.3333333E+00 2.1665107E+04 -3.3776443E-02 7.1217401E+02 -3.6588513E+02 2.1665107E+04 0.6000 1.6666666E+00 1.0034267E+04 -2.3106834E-02 6.5969153E+02 -1.1593006E+02 1.0034267E+04 0.9000 1.1111112E+00 6.6469609E+03 -1.6051261E-02 6.5549536E+02 -5.3346054E+01 6.6469609E+03 1.2000 8.3333331E-01 4.9764365E+03 -1.3590402E-02 6.5434039E+02 -3.3815887E+01 4.9764365E+03 1.5000 6.6666669E-01 3.9797820E+03 -1.3508494E-02 6.5411560E+02 -2.6880430E+01 3.9797820E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 51 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 17 SIGMA VALUE = 72.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.5746027E+04 3.9018682E-01 5.0125348E+02 8.9247480E+03 4.5746027E+04 0.2000 5.0000000E+00 2.9703070E+04 2.4856080E-01 6.5093158E+02 3.6915095E+03 2.9703070E+04 0.3000 3.3333333E+00 2.1735119E+04 -2.0776194E-01 7.1447546E+02 -2.2578652E+03 2.1735119E+04 0.6000 1.6666666E+00 1.2282941E+04 -6.0437820E-03 8.0752808E+02 -3.7117710E+01 1.2282941E+04 0.9000 1.1111112E+00 8.1714492E+03 -4.0837098E-03 8.0583398E+02 -1.6684914E+01 8.1714492E+03 1.2000 8.3333331E-01 6.1261782E+03 -3.5933137E-03 8.0551733E+02 -1.1006640E+01 6.1261782E+03 1.5000 6.6666669E-01 4.8989600E+03 -4.3967571E-03 8.0519141E+02 -1.0769769E+01 4.8989600E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 52 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 18 SIGMA VALUE = 72.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 6.8248852E+04 -1.2709547E-02 7.4782391E+02 -4.3370599E+02 6.8248852E+04 0.2000 5.0000000E+00 3.5381344E+04 -2.1304036E-02 7.7536884E+02 -3.7688269E+02 3.5381344E+04 0.3000 3.3333333E+00 2.4254297E+04 8.7149050E-03 7.9728571E+02 1.0568694E+02 2.4254297E+04 0.6000 1.6666666E+00 1.3747295E+04 -6.2012583E-02 9.0380035E+02 -4.2625262E+02 1.3747295E+04 0.9000 1.1111112E+00 9.4886016E+03 -4.1521586E-02 9.3572601E+02 -1.9699089E+02 9.4886016E+03 1.2000 8.3333331E-01 7.1889746E+03 -3.3281438E-02 9.4526196E+02 -1.1962971E+02 7.1889746E+03 1.5000 6.6666669E-01 5.7792646E+03 -3.6849052E-02 9.4987799E+02 -1.0648021E+02 5.7792646E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 53 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 19 SIGMA VALUE = 108.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.2252807E+04 -1.3699723E+00 1.3425781E+02 -8.3930029E+03 1.2252807E+04 0.2000 5.0000000E+00 5.7280161E+03 -9.9010766E-02 1.2552731E+02 -2.8356763E+02 5.7280161E+03 0.3000 3.3333333E+00 3.6370042E+03 -5.5184085E-02 1.1955537E+02 -1.0035237E+02 3.6370042E+03 0.6000 1.6666666E+00 1.7659465E+03 -2.0978786E-02 1.1610016E+02 -1.8523706E+01 1.7659465E+03 0.9000 1.1111112E+00 1.1719982E+03 -1.6701730E-02 1.1557754E+02 -9.7871981E+00 1.1719982E+03 1.2000 8.3333331E-01 8.7768176E+02 -1.4644910E-02 1.1540439E+02 -6.4267850E+00 8.7768176E+02 1.5000 6.6666669E-01 7.0234564E+02 -1.6449220E-02 1.1543729E+02 -5.7765193E+00 7.0234564E+02 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 54 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 20 SIGMA VALUE = 108.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.4973488E+04 1.2956945E+00 1.6406918E+02 9.7005332E+03 1.4973488E+04 0.2000 5.0000000E+00 1.4066110E+04 -7.0114726E-01 3.0825351E+02 -4.9312075E+03 1.4066110E+04 0.3000 3.3333333E+00 9.6760117E+03 -4.5205392E-02 3.1806924E+02 -2.1870395E+02 9.6760117E+03 0.6000 1.6666666E+00 4.6217925E+03 -2.6651977E-02 3.0385452E+02 -6.1589951E+01 4.6217925E+03 0.9000 1.1111112E+00 3.0431882E+03 -1.6068716E-02 3.0010645E+02 -2.4450062E+01 3.0431882E+03 1.2000 8.3333331E-01 2.2765801E+03 -1.4046920E-02 2.9934238E+02 -1.5989469E+01 2.2765801E+03 1.5000 6.6666669E-01 1.8199062E+03 -1.6201682E-02 2.9911917E+02 -1.4742771E+01 1.8199062E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 55 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 21 SIGMA VALUE = 108.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.6105439E+04 -3.1311771E-01 1.7647231E+02 -2.5214492E+03 1.6105439E+04 0.2000 5.0000000E+00 1.4802972E+04 3.2174534E-01 3.2440155E+02 2.3813936E+03 1.4802972E+04 0.3000 3.3333333E+00 1.3859030E+04 -2.2485614E-01 4.5557315E+02 -1.5581440E+03 1.3859030E+04 0.6000 1.6666666E+00 8.5383105E+03 -4.4031918E-02 5.6134155E+02 -1.8797910E+02 8.5383105E+03 0.9000 1.1111112E+00 5.7840576E+03 -3.0356167E-02 5.7039948E+02 -8.7790909E+01 5.7840576E+03 1.2000 8.3333331E-01 4.3649053E+03 -2.5173612E-02 5.7393152E+02 -5.4940216E+01 4.3649053E+03 1.5000 6.6666669E-01 3.5048064E+03 -2.9807882E-02 5.7604883E+02 -5.2235428E+01 3.5048064E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 56 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 22 SIGMA VALUE = 108.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.3269078E+04 -3.8313970E-01 4.7411273E+02 -8.2890508E+03 4.3269078E+04 0.2000 5.0000000E+00 2.7344904E+04 -4.2604810E-01 5.9925323E+02 -5.8251221E+03 2.7344904E+04 0.3000 3.3333333E+00 2.1257186E+04 5.6577686E-02 6.9876477E+02 6.0134119E+02 2.1257186E+04 0.6000 1.6666666E+00 1.0056589E+04 -3.2566570E-02 6.6115906E+02 -1.6375430E+02 1.0056589E+04 0.9000 1.1111112E+00 6.6518696E+03 -1.6243409E-02 6.5597943E+02 -5.4024521E+01 6.6518696E+03 1.2000 8.3333331E-01 4.9785376E+03 -1.3827791E-02 6.5461664E+02 -3.4421089E+01 4.9785376E+03 1.5000 6.6666669E-01 3.9814260E+03 -1.4818383E-02 6.5438586E+02 -2.9499149E+01 3.9814260E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 57 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 23 SIGMA VALUE = 108.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.5286543E+04 3.4250781E-01 4.9621875E+02 7.7554976E+03 4.5286543E+04 0.2000 5.0000000E+00 2.9115756E+04 2.4098337E-01 6.3806079E+02 3.5082065E+03 2.9115756E+04 0.3000 3.3333333E+00 2.1336967E+04 -2.8829131E-01 7.0138739E+02 -3.0756309E+03 2.1336967E+04 0.6000 1.6666666E+00 1.2318629E+04 -1.9643491E-02 8.0987433E+02 -1.2099044E+02 1.2318629E+04 0.9000 1.1111112E+00 8.1766963E+03 -4.6892473E-03 8.0635144E+02 -1.9171276E+01 8.1766963E+03 1.2000 8.3333331E-01 6.1282026E+03 -3.9130254E-03 8.0578351E+02 -1.1989906E+01 6.1282026E+03 1.5000 6.6666669E-01 4.9005776E+03 -4.9640927E-03 8.0545728E+02 -1.2163461E+01 4.9005776E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 58 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 24 SIGMA VALUE = 108.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 6.7724078E+04 -1.3220232E-02 7.4207379E+02 -4.4766400E+02 6.7724078E+04 0.2000 5.0000000E+00 3.5204707E+04 -2.5595754E-02 7.7149786E+02 -4.5054553E+02 3.5204707E+04 0.3000 3.3333333E+00 2.3938744E+04 -1.1502886E-02 7.8691284E+02 -1.3768233E+02 2.3938744E+04 0.6000 1.6666666E+00 1.3910005E+04 -5.9400242E-02 9.1449750E+02 -4.1312881E+02 1.3910005E+04 0.9000 1.1111112E+00 9.5027363E+03 -4.1285258E-02 9.3712000E+02 -1.9616145E+02 9.5027363E+03 1.2000 8.3333331E-01 7.1942261E+03 -3.3457566E-02 9.4595251E+02 -1.2035065E+02 7.1942261E+03 1.5000 6.6666669E-01 5.7842480E+03 -3.7408363E-02 9.5069708E+02 -1.0818962E+02 5.7842480E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 59 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 25 SIGMA VALUE = 144.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.2034591E+04 -1.4122944E+00 1.3186676E+02 -8.4981924E+03 1.2034591E+04 0.2000 5.0000000E+00 5.7407241E+03 -9.8742098E-02 1.2580581E+02 -2.8342557E+02 5.7407241E+03 0.3000 3.3333333E+00 3.6406775E+03 -5.6337859E-02 1.1967611E+02 -1.0255399E+02 3.6406775E+03 0.6000 1.6666666E+00 1.7718593E+03 -2.3815529E-02 1.1648888E+02 -2.1098883E+01 1.7718593E+03 0.9000 1.1111112E+00 1.1726283E+03 -1.5364544E-02 1.1563968E+02 -9.0084496E+00 1.1726283E+03 1.2000 8.3333331E-01 8.7825952E+02 -1.4363887E-02 1.1548036E+02 -6.3076100E+00 8.7825952E+02 1.5000 6.6666669E-01 7.0409180E+02 -9.5431609E-03 1.1572430E+02 -3.3596306E+00 7.0409180E+02 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 60 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 26 SIGMA VALUE = 144.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.4743643E+04 1.2739272E+00 1.6155067E+02 9.3911641E+03 1.4743643E+04 0.2000 5.0000000E+00 1.3980070E+04 -7.0325041E-01 3.0636798E+02 -4.9157451E+03 1.3980070E+04 0.3000 3.3333333E+00 9.6562969E+03 -5.3072240E-02 3.1742117E+02 -2.5624066E+02 9.6562969E+03 0.6000 1.6666666E+00 4.5838062E+03 -3.3088017E-02 3.0135715E+02 -7.5834526E+01 4.5838062E+03 0.9000 1.1111112E+00 3.0481304E+03 -1.5422772E-02 3.0059381E+02 -2.3505310E+01 3.0481304E+03 1.2000 8.3333331E-01 2.2788464E+03 -1.4028901E-02 2.9964035E+02 -1.5984856E+01 2.2788464E+03 1.5000 6.6666669E-01 1.8209119E+03 -1.4092673E-02 2.9928445E+02 -1.2830757E+01 1.8209119E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 61 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 27 SIGMA VALUE = 144.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.6223512E+04 -3.3666363E-01 1.7776607E+02 -2.7309331E+03 1.6223512E+04 0.2000 5.0000000E+00 1.4796883E+04 3.1441724E-01 3.2426813E+02 2.3261975E+03 1.4796883E+04 0.3000 3.3333333E+00 1.3824695E+04 -2.2590886E-01 4.5444449E+02 -1.5615605E+03 1.3824695E+04 0.6000 1.6666666E+00 8.5414990E+03 -8.1331745E-02 5.6155115E+02 -3.4734750E+02 8.5414990E+03 0.9000 1.1111112E+00 5.7965674E+03 -2.9131075E-02 5.7163312E+02 -8.4430122E+01 5.7965674E+03 1.2000 8.3333331E-01 4.3696367E+03 -2.6045017E-02 5.7455365E+02 -5.6903629E+01 4.3696367E+03 1.5000 6.6666669E-01 3.5356060E+03 -2.2535997E-02 5.8111102E+02 -3.9839203E+01 3.5356060E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 62 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 28 SIGMA VALUE = 144.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.3251621E+04 -3.6823139E-01 4.7392148E+02 -7.9633022E+03 4.3251621E+04 0.2000 5.0000000E+00 2.7187646E+04 -4.2134711E-01 5.9580701E+02 -5.7277183E+03 2.7187646E+04 0.3000 3.3333333E+00 2.1212922E+04 -2.8545216E-01 6.9730981E+02 -3.0276372E+03 2.1212922E+04 0.6000 1.6666666E+00 1.0007483E+04 -4.0475238E-02 6.5793066E+02 -2.0252763E+02 1.0007483E+04 0.9000 1.1111112E+00 6.6624341E+03 -1.6223989E-02 6.5702124E+02 -5.4045631E+01 6.6624341E+03 1.2000 8.3333331E-01 4.9826479E+03 -1.3980291E-02 6.5515710E+02 -3.4829433E+01 4.9826479E+03 1.5000 6.6666669E-01 3.9895032E+03 -1.2605600E-02 6.5571344E+02 -2.5145041E+01 3.9895032E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 63 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 29 SIGMA VALUE = 144.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.4582039E+04 3.0785370E-01 4.8849930E+02 6.8623726E+03 4.4582039E+04 0.2000 5.0000000E+00 2.9067182E+04 2.2373438E-01 6.3699634E+02 3.2516638E+03 2.9067182E+04 0.3000 3.3333333E+00 2.1220684E+04 4.8839945E-02 6.9756494E+02 5.1820850E+02 2.1220684E+04 0.6000 1.6666666E+00 1.2228402E+04 -2.1673962E-02 8.0394244E+02 -1.3251897E+02 1.2228402E+04 0.9000 1.1111112E+00 8.1885610E+03 -5.1765549E-03 8.0752148E+02 -2.1194267E+01 8.1885610E+03 1.2000 8.3333331E-01 6.1317939E+03 -4.1639223E-03 8.0625568E+02 -1.2766156E+01 6.1317939E+03 1.5000 6.6666669E-01 4.9047632E+03 -4.7580763E-03 8.0614520E+02 -1.1668619E+01 4.9047632E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 64 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 30 SIGMA VALUE = 144.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 6.7364750E+04 -1.3208159E-02 7.3813654E+02 -4.4488217E+02 6.7364750E+04 0.2000 5.0000000E+00 3.5138754E+04 -2.8206469E-02 7.7005255E+02 -4.9557010E+02 3.5138754E+04 0.3000 3.3333333E+00 2.3937336E+04 -1.6255092E-02 7.8686658E+02 -1.9455180E+02 2.3937336E+04 0.6000 1.6666666E+00 1.3924932E+04 -9.5751628E-02 9.1547888E+02 -6.6666742E+02 1.3924932E+04 0.9000 1.1111112E+00 9.5291904E+03 -3.9623339E-02 9.3972876E+02 -1.8878917E+02 9.5291904E+03 1.2000 8.3333331E-01 7.2044727E+03 -3.4562703E-02 9.4729980E+02 -1.2450302E+02 7.2044727E+03 1.5000 6.6666669E-01 5.8265269E+03 -2.5071621E-02 9.5764600E+02 -7.3040237E+01 5.8265269E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 65 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 31 SIGMA VALUE = 180.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.2018054E+04 -1.4647822E+00 1.3168556E+02 -8.8019160E+03 1.2018054E+04 0.2000 5.0000000E+00 5.7505557E+03 -9.2623129E-02 1.2602126E+02 -2.6631723E+02 5.7505557E+03 0.3000 3.3333333E+00 3.6413464E+03 -5.4471526E-02 1.1969810E+02 -9.9174850E+01 3.6413464E+03 0.6000 1.6666666E+00 1.7714326E+03 -2.6083395E-02 1.1646084E+02 -2.3102488E+01 1.7714326E+03 0.9000 1.1111112E+00 1.1757810E+03 -1.4522381E-02 1.1595058E+02 -8.5375700E+00 1.1757810E+03 1.2000 8.3333331E-01 8.8092065E+02 -1.1408536E-02 1.1583027E+02 -5.0250072E+00 8.8092065E+02 1.5000 6.6666669E-01 7.0210345E+02 -7.6789884E-03 1.1539748E+02 -2.6957221E+00 7.0210345E+02 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 66 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 32 SIGMA VALUE = 180.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.4736647E+04 1.2332238E+00 1.6147404E+02 9.0867920E+03 1.4736647E+04 0.2000 5.0000000E+00 1.4060709E+04 -7.1266466E-01 3.0813513E+02 -5.0102852E+03 1.4060709E+04 0.3000 3.3333333E+00 9.6324990E+03 -5.3740475E-02 3.1663889E+02 -2.5882755E+02 9.6324990E+03 0.6000 1.6666666E+00 4.5912993E+03 -3.2191496E-02 3.0184979E+02 -7.3900398E+01 4.5912993E+03 0.9000 1.1111112E+00 3.0591824E+03 -2.5279399E-02 3.0168372E+02 -3.8667145E+01 3.0591824E+03 1.2000 8.3333331E-01 2.2843101E+03 -8.5577266E-03 3.0035876E+02 -9.7742500E+00 2.2843101E+03 1.5000 6.6666669E-01 1.8238997E+03 -9.4578490E-03 2.9977554E+02 -8.6250839E+00 1.8238997E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 67 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 33 SIGMA VALUE = 180.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.6196812E+04 -3.3872527E-01 1.7747351E+02 -2.7431348E+03 1.6196812E+04 0.2000 5.0000000E+00 1.4804365E+04 2.8796333E-01 3.2443207E+02 2.1315571E+03 1.4804365E+04 0.3000 3.3333333E+00 1.3907521E+04 -2.3520614E-01 4.5716711E+02 -1.6355671E+03 1.3907521E+04 0.6000 1.6666666E+00 8.4949873E+03 -8.1041574E-02 5.5849335E+02 -3.4422357E+02 8.4949873E+03 0.9000 1.1111112E+00 5.8421650E+03 -3.6254607E-02 5.7612976E+02 -1.0590269E+02 5.8421650E+03 1.2000 8.3333331E-01 4.3984385E+03 -3.2942012E-02 5.7834076E+02 -7.2446709E+01 4.3984385E+03 1.5000 6.6666669E-01 3.5176021E+03 -1.2412227E-02 5.7815192E+02 -2.1830637E+01 3.5176021E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 68 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 34 SIGMA VALUE = 180.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.3316273E+04 -3.6790803E-01 4.7462988E+02 -7.9682021E+03 4.3316273E+04 0.2000 5.0000000E+00 2.7160957E+04 -4.2774615E-01 5.9522211E+02 -5.8089976E+03 2.7160957E+04 0.3000 3.3333333E+00 2.1154170E+04 3.8517881E-02 6.9537854E+02 4.0740692E+02 2.1154170E+04 0.6000 1.6666666E+00 1.0020969E+04 -3.3605058E-02 6.5881726E+02 -1.6837761E+02 1.0020969E+04 0.9000 1.1111112E+00 6.6851348E+03 -1.9382758E-02 6.5925989E+02 -6.4788177E+01 6.6851348E+03 1.2000 8.3333331E-01 4.9947246E+03 -1.0736267E-02 6.5674506E+02 -2.6812349E+01 4.9947246E+03 1.5000 6.6666669E-01 3.9847893E+03 -9.8145353E-03 6.5493866E+02 -1.9554428E+01 3.9847893E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 69 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 35 SIGMA VALUE = 180.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.4258535E+04 2.8710851E-01 4.8495453E+02 6.3535010E+03 4.4258535E+04 0.2000 5.0000000E+00 2.9099713E+04 2.0542969E-01 6.3770923E+02 2.9889724E+03 2.9099713E+04 0.3000 3.3333333E+00 2.1285863E+04 -2.8754613E-01 6.9970752E+02 -3.0603337E+03 2.1285863E+04 0.6000 1.6666666E+00 1.2227900E+04 -1.9097710E-02 8.0390948E+02 -1.1676244E+02 1.2227900E+04 0.9000 1.1111112E+00 8.2060010E+03 -1.1695471E-02 8.0924133E+02 -4.7986523E+01 8.2060010E+03 1.2000 8.3333331E-01 6.1370337E+03 -3.2699974E-03 8.0694470E+02 -1.0034042E+01 6.1370337E+03 1.5000 6.6666669E-01 4.9090635E+03 -3.5988879E-03 8.0685205E+02 -8.8335848E+00 4.9090635E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 70 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 36 SIGMA VALUE = 180.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 6.7246844E+04 -1.4672889E-02 7.3684460E+02 -4.9335275E+02 6.7246844E+04 0.2000 5.0000000E+00 3.5131770E+04 -3.0824471E-02 7.6989948E+02 -5.4145911E+02 3.5131770E+04 0.3000 3.3333333E+00 2.3956881E+04 -1.8448625E-02 7.8750903E+02 -2.2098576E+02 2.3956881E+04 0.6000 1.6666666E+00 1.3789546E+04 -1.1044168E-01 9.0657806E+02 -7.6147034E+02 1.3789546E+04 0.9000 1.1111112E+00 9.6128740E+03 -5.0214902E-02 9.4798120E+02 -2.4135477E+02 9.6128740E+03 1.2000 8.3333331E-01 7.2789443E+03 -4.4583727E-02 9.5709192E+02 -1.6226123E+02 7.2789443E+03 1.5000 6.6666669E-01 5.8114731E+03 -1.7697234E-02 9.5517181E+02 -5.1423500E+01 5.8114731E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 71 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 37 SIGMA VALUE = -144.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.2149115E+04 -1.5193961E+00 1.3312163E+02 -9.2296592E+03 1.2149115E+04 0.2000 5.0000000E+00 5.7463486E+03 -8.2804747E-02 1.2592906E+02 -2.3791248E+02 5.7463486E+03 0.3000 3.3333333E+00 3.6374746E+03 -5.0743010E-02 1.1957083E+02 -9.2288208E+01 3.6374746E+03 0.6000 1.6666666E+00 1.7704917E+03 -2.5977857E-02 1.1639897E+02 -2.2996790E+01 1.7704917E+03 0.9000 1.1111112E+00 1.1781042E+03 -1.5698291E-02 1.1617970E+02 -9.2471123E+00 1.1781042E+03 1.2000 8.3333331E-01 8.7815326E+02 -8.2703354E-03 1.1546638E+02 -3.6313112E+00 8.7815326E+02 1.5000 6.6666669E-01 7.0178345E+02 -8.5511021E-03 1.1534489E+02 -3.0005109E+00 7.0178345E+02 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 72 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 38 SIGMA VALUE = -144.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.4911699E+04 1.1658663E+00 1.6339214E+02 8.6925234E+03 1.4911699E+04 0.2000 5.0000000E+00 1.4292197E+04 -7.3335010E-01 3.1320810E+02 -5.2405923E+03 1.4292197E+04 0.3000 3.3333333E+00 9.6122139E+03 -5.0616998E-02 3.1597208E+02 -2.4327071E+02 9.6122139E+03 0.6000 1.6666666E+00 4.5904517E+03 -3.3051744E-02 3.0179404E+02 -7.5861214E+01 4.5904517E+03 0.9000 1.1111112E+00 3.0573357E+03 -2.2432202E-02 3.0150159E+02 -3.4291386E+01 3.0573357E+03 1.2000 8.3333331E-01 2.2825869E+03 -9.2949122E-03 3.0013220E+02 -1.0608223E+01 2.2825869E+03 1.5000 6.6666669E-01 1.8221364E+03 -8.9912312E-03 2.9948572E+02 -8.1916246E+00 1.8221364E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 73 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 39 SIGMA VALUE = -144.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.6245481E+04 -3.1851399E-01 1.7800681E+02 -2.5872065E+03 1.6245481E+04 0.2000 5.0000000E+00 1.4802023E+04 2.6482171E-01 3.2438077E+02 1.9599486E+03 1.4802023E+04 0.3000 3.3333333E+00 1.4080546E+04 -2.4236734E-01 4.6285480E+02 -1.7063323E+03 1.4080546E+04 0.6000 1.6666666E+00 8.4974189E+03 -7.8333840E-02 5.5865320E+02 -3.3281772E+02 8.4974189E+03 0.9000 1.1111112E+00 5.8517861E+03 -5.4791689E-02 5.7707855E+02 -1.6031462E+02 5.8517861E+03 1.2000 8.3333331E-01 4.3914526E+03 -1.3091579E-02 5.7742218E+02 -2.8745525E+01 4.3914526E+03 1.5000 6.6666669E-01 3.5138081E+03 -1.2588724E-02 5.7752832E+02 -2.2117182E+01 3.5138081E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 74 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 40 SIGMA VALUE = -144.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.3429305E+04 -3.7900612E-01 4.7586844E+02 -8.2299863E+03 4.3429305E+04 0.2000 5.0000000E+00 2.7269820E+04 -4.4446799E-01 5.9760785E+02 -6.0602812E+03 2.7269820E+04 0.3000 3.3333333E+00 2.1106150E+04 2.8976481E-02 6.9379999E+02 3.0579099E+02 2.1106150E+04 0.6000 1.6666666E+00 1.0020248E+04 -3.5038937E-02 6.5876984E+02 -1.7554942E+02 1.0020248E+04 0.9000 1.1111112E+00 6.6826357E+03 -2.4255380E-02 6.5901349E+02 -8.1044937E+01 6.6826357E+03 1.2000 8.3333331E-01 4.9876699E+03 -1.0231114E-02 6.5581744E+02 -2.5514709E+01 4.9876699E+03 1.5000 6.6666669E-01 3.9844724E+03 -9.0796845E-03 6.5488654E+02 -1.8088877E+01 3.9844724E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 75 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 41 SIGMA VALUE = -144.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.4368277E+04 2.7318969E-01 4.8615701E+02 6.0604780E+03 4.4368277E+04 0.2000 5.0000000E+00 2.9196070E+04 1.9623849E-01 6.3982086E+02 2.8646963E+03 2.9196070E+04 0.3000 3.3333333E+00 2.1512654E+04 -2.9007503E-01 7.0716254E+02 -3.1201421E+03 2.1512654E+04 0.6000 1.6666666E+00 1.2231211E+04 -1.9283570E-02 8.0412714E+02 -1.1793071E+02 1.2231211E+04 0.9000 1.1111112E+00 8.2005752E+03 -1.2823438E-02 8.0870630E+02 -5.2579784E+01 8.2005752E+03 1.2000 8.3333331E-01 6.1405278E+03 -3.0012310E-03 8.0740411E+02 -9.2145710E+00 6.1405278E+03 1.5000 6.6666669E-01 4.9082427E+03 -2.4433206E-03 8.0671716E+02 -5.9962053E+00 4.9082427E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 76 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 42 SIGMA VALUE = -144.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 6.7357469E+04 -1.8429851E-02 7.3805676E+02 -6.2069409E+02 6.7357469E+04 0.2000 5.0000000E+00 3.5189297E+04 -3.2094859E-02 7.7116016E+02 -5.6469775E+02 3.5189297E+04 0.3000 3.3333333E+00 2.3997832E+04 -1.7043475E-02 7.8885516E+02 -2.0450322E+02 2.3997832E+04 0.6000 1.6666666E+00 1.3792509E+04 -1.0411057E-01 9.0677295E+02 -7.1797296E+02 1.3792509E+04 0.9000 1.1111112E+00 9.6643262E+03 -6.6531964E-02 9.5305524E+02 -3.2149329E+02 9.6643262E+03 1.2000 8.3333331E-01 7.2477544E+03 -1.8258270E-02 9.5299084E+02 -6.6165726E+01 7.2477544E+03 1.5000 6.6666669E-01 5.8015947E+03 -1.7238006E-02 9.5354822E+02 -5.0003960E+01 5.8015947E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 77 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 43 SIGMA VALUE = -108.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.2435362E+04 -1.5916708E+00 1.3625813E+02 -9.8965010E+03 1.2435362E+04 0.2000 5.0000000E+00 5.7091938E+03 -6.8227127E-02 1.2511482E+02 -1.9476094E+02 5.7091938E+03 0.3000 3.3333333E+00 3.6283010E+03 -4.6227116E-02 1.1926927E+02 -8.3862946E+01 3.6283010E+03 0.6000 1.6666666E+00 1.7709509E+03 -2.4620270E-02 1.1642916E+02 -2.1800646E+01 1.7709509E+03 0.9000 1.1111112E+00 1.1724193E+03 -1.2641094E-02 1.1561906E+02 -7.4103312E+00 1.1724193E+03 1.2000 8.3333331E-01 8.7915082E+02 -1.1642281E-02 1.1559756E+02 -5.1176605E+00 8.7915082E+02 1.5000 6.6666669E-01 7.0183374E+02 -8.8257184E-03 1.1535316E+02 -3.0970933E+00 7.0183374E+02 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 78 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 44 SIGMA VALUE = -108.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.5268947E+04 1.0752318E+00 1.6730661E+02 8.2088291E+03 1.5268947E+04 0.2000 5.0000000E+00 1.4732673E+04 -7.4066955E-01 3.2286096E+02 -5.4560210E+03 1.4732673E+04 0.3000 3.3333333E+00 9.5928389E+03 -4.5765389E-02 3.1533517E+02 -2.1950999E+02 9.5928389E+03 0.6000 1.6666666E+00 4.5945107E+03 -3.1605367E-02 3.0206091E+02 -7.2605598E+01 4.5945107E+03 0.9000 1.1111112E+00 3.0548428E+03 -1.4067507E-02 3.0125577E+02 -2.1487011E+01 3.0548428E+03 1.2000 8.3333331E-01 2.2794443E+03 -1.2287110E-02 2.9971896E+02 -1.4003892E+01 2.2794443E+03 1.5000 6.6666669E-01 1.8219834E+03 -9.0963431E-03 2.9946057E+02 -8.2866926E+00 1.8219834E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 79 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 45 SIGMA VALUE = -108.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.6315786E+04 -2.7811119E-01 1.7877715E+02 -2.2688013E+03 1.6315786E+04 0.2000 5.0000000E+00 1.4885069E+04 2.4324778E-01 3.2620068E+02 1.8103800E+03 1.4885069E+04 0.3000 3.3333333E+00 1.4338377E+04 -2.4040562E-01 4.7133017E+02 -1.7235132E+03 1.4338377E+04 0.6000 1.6666666E+00 8.5205430E+03 -8.2011297E-02 5.6017346E+02 -3.4939038E+02 8.5205430E+03 0.9000 1.1111112E+00 5.8225190E+03 -2.4940865E-02 5.7419238E+02 -7.2609329E+01 5.8225190E+03 1.2000 8.3333331E-01 4.3996538E+03 -2.3859015E-02 5.7850055E+02 -5.2485703E+01 4.3996538E+03 1.5000 6.6666669E-01 3.5144866E+03 -1.2074880E-02 5.7763983E+02 -2.1218502E+01 3.5144866E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 80 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 46 SIGMA VALUE = -108.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.3379559E+04 -4.1513920E-01 4.7532333E+02 -9.0042773E+03 4.3379559E+04 0.2000 5.0000000E+00 2.7596609E+04 -4.6183568E-01 6.0476929E+02 -6.3725493E+03 2.7596609E+04 0.3000 3.3333333E+00 2.1090596E+04 1.9699376E-02 6.9328870E+02 2.0773579E+02 2.1090596E+04 0.6000 1.6666666E+00 1.0032786E+04 -3.3620328E-02 6.5959418E+02 -1.6865277E+02 1.0032786E+04 0.9000 1.1111112E+00 6.6644980E+03 -1.6440250E-02 6.5722479E+02 -5.4783009E+01 6.6644980E+03 1.2000 8.3333331E-01 4.9904473E+03 -1.5350379E-02 6.5618262E+02 -3.8302628E+01 4.9904473E+03 1.5000 6.6666669E-01 3.9838076E+03 -9.0162074E-03 6.5477728E+02 -1.7959417E+01 3.9838076E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 81 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 47 SIGMA VALUE = -108.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.5011367E+04 2.7371800E-01 4.9320355E+02 6.1602109E+03 4.5011367E+04 0.2000 5.0000000E+00 2.9425006E+04 1.9476236E-01 6.4483795E+02 2.8654419E+03 2.9425006E+04 0.3000 3.3333333E+00 2.1889336E+04 -2.8821367E-01 7.1954486E+02 -3.1544028E+03 2.1889336E+04 0.6000 1.6666666E+00 1.2246078E+04 -1.8755430E-02 8.0510455E+02 -1.1484023E+02 1.2246078E+04 0.9000 1.1111112E+00 8.2016475E+03 -6.9559128E-03 8.0881201E+02 -2.8524973E+01 8.2016475E+03 1.2000 8.3333331E-01 6.1372168E+03 -4.0106410E-03 8.0696881E+02 -1.2307087E+01 6.1372168E+03 1.5000 6.6666669E-01 4.9073315E+03 -2.2399714E-03 8.0656738E+02 -5.4961410E+00 4.9073315E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 82 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 48 SIGMA VALUE = -108.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 6.7709242E+04 -2.4194404E-02 7.4191125E+02 -8.1909241E+02 6.7709242E+04 0.2000 5.0000000E+00 3.5318387E+04 -3.0507866E-02 7.7398907E+02 -5.3874432E+02 3.5318387E+04 0.3000 3.3333333E+00 2.4061289E+04 -1.1111176E-02 7.9094116E+02 -1.3367461E+02 2.4061289E+04 0.6000 1.6666666E+00 1.3841004E+04 -1.0955799E-01 9.0996112E+02 -7.5819629E+02 1.3841004E+04 0.9000 1.1111112E+00 9.6144072E+03 -3.2583281E-02 9.4813239E+02 -1.5663446E+02 9.6144072E+03 1.2000 8.3333331E-01 7.2407612E+03 -2.4183104E-02 9.5207135E+02 -8.7552040E+01 7.2407612E+03 1.5000 6.6666669E-01 5.8015366E+03 -1.6607253E-02 9.5353857E+02 -4.8173794E+01 5.8015366E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 83 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 49 SIGMA VALUE = -72.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.3189752E+04 -1.6340021E+00 1.4452422E+02 -1.0776041E+04 1.3189752E+04 0.2000 5.0000000E+00 5.6617065E+03 -5.6884371E-02 1.2407416E+02 -1.6103131E+02 5.6617065E+03 0.3000 3.3333333E+00 3.6155383E+03 -4.2231567E-02 1.1884974E+02 -7.6344925E+01 3.6155383E+03 0.6000 1.6666666E+00 1.7627212E+03 -1.9327134E-02 1.1588811E+02 -1.7034174E+01 1.7627212E+03 0.9000 1.1111112E+00 1.1714983E+03 -1.6396929E-02 1.1552824E+02 -9.6044874E+00 1.1714983E+03 1.2000 8.3333331E-01 8.7808612E+02 -1.4264142E-02 1.1545756E+02 -6.2625728E+00 8.7808612E+02 1.5000 6.6666669E-01 7.0309186E+02 -9.0784580E-03 1.1555994E+02 -3.1914949E+00 7.0309186E+02 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 84 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 50 SIGMA VALUE = -72.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.6086229E+04 -1.6479269E-01 1.7626183E+02 -1.3254465E+03 1.6086229E+04 0.2000 5.0000000E+00 1.4977309E+04 2.0936607E-01 3.2822205E+02 1.5678701E+03 1.4977309E+04 0.3000 3.3333333E+00 9.5810059E+03 -4.0443256E-02 3.1494620E+02 -1.9374355E+02 9.5810059E+03 0.6000 1.6666666E+00 4.6133818E+03 -2.7233260E-02 3.0330157E+02 -6.2818714E+01 4.6133818E+03 0.9000 1.1111112E+00 3.0445593E+03 -1.5801383E-02 3.0024164E+02 -2.4054123E+01 3.0445593E+03 1.2000 8.3333331E-01 2.2778215E+03 -1.2448344E-02 2.9950562E+02 -1.4177553E+01 2.2778215E+03 1.5000 6.6666669E-01 1.8249135E+03 -1.3792669E-02 2.9994217E+02 -1.2585214E+01 1.8249135E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 85 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 51 SIGMA VALUE = -72.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.6251964E+04 9.3829387E-01 1.7807784E+02 7.6245591E+03 1.6251964E+04 0.2000 5.0000000E+00 1.5493243E+04 -7.3289806E-01 3.3952856E+02 -5.6774839E+03 1.5493243E+04 0.3000 3.3333333E+00 1.4636427E+04 -2.2725730E-01 4.8112766E+02 -1.6631174E+03 1.4636427E+04 0.6000 1.6666666E+00 8.5865439E+03 -3.6593065E-02 5.6451263E+02 -1.5710397E+02 8.5865439E+03 0.9000 1.1111112E+00 5.7920205E+03 -2.9228112E-02 5.7118475E+02 -8.4644913E+01 5.7920205E+03 1.2000 8.3333331E-01 4.3765142E+03 -2.7147504E-02 5.7545795E+02 -5.9405716E+01 4.3765142E+03 1.5000 6.6666669E-01 3.5304473E+03 -1.3414448E-02 5.8026312E+02 -2.3679501E+01 3.5304473E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 86 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 52 SIGMA VALUE = -72.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.3304164E+04 -4.6969038E-01 4.7449722E+02 -1.0169774E+04 4.3304164E+04 0.2000 5.0000000E+00 2.8122396E+04 -4.8383367E-01 6.1629175E+02 -6.8032812E+03 2.8122396E+04 0.3000 3.3333333E+00 2.1119998E+04 1.1239297E-02 6.9425519E+02 1.1868697E+02 2.1119998E+04 0.6000 1.6666666E+00 1.0034708E+04 -3.1478625E-02 6.5972058E+02 -1.5793941E+02 1.0034708E+04 0.9000 1.1111112E+00 6.6556528E+03 -1.5919261E-02 6.5635254E+02 -5.2976536E+01 6.6556528E+03 1.2000 8.3333331E-01 4.9777832E+03 -1.3437344E-02 6.5451746E+02 -3.3444092E+01 4.9777832E+03 1.5000 6.6666669E-01 3.9867217E+03 -9.5616961E-03 6.5525623E+02 -1.9059910E+01 3.9867217E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 87 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 53 SIGMA VALUE = -72.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.6541574E+04 2.9133764E-01 5.0997055E+02 6.7796562E+03 4.6541574E+04 0.2000 5.0000000E+00 2.9746641E+04 1.9824156E-01 6.5188641E+02 2.9485103E+03 2.9746641E+04 0.3000 3.3333333E+00 2.2361945E+04 -2.7927700E-01 7.3508044E+02 -3.1225884E+03 2.2361945E+04 0.6000 1.6666666E+00 1.2309744E+04 -1.8668661E-02 8.0929022E+02 -1.1490322E+02 1.2309744E+04 0.9000 1.1111112E+00 8.1819609E+03 -4.6312856E-03 8.0687061E+02 -1.8946499E+01 8.1819609E+03 1.2000 8.3333331E-01 6.1303335E+03 -3.6214429E-03 8.0606366E+02 -1.1100327E+01 6.1303335E+03 1.5000 6.6666669E-01 4.9073179E+03 -3.9248280E-03 8.0656512E+02 -9.6301889E+00 4.9073179E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 88 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 54 SIGMA VALUE = -72.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 6.8376383E+04 -3.0201297E-02 7.4922131E+02 -1.0325277E+03 6.8376383E+04 0.2000 5.0000000E+00 3.5479234E+04 -2.6045924E-02 7.7751404E+02 -4.6204471E+02 3.5479234E+04 0.3000 3.3333333E+00 2.4138746E+04 4.8814077E-04 7.9348730E+02 5.8915529E+00 2.4138746E+04 0.6000 1.6666666E+00 1.4070352E+04 -4.7369231E-02 9.2503931E+02 -3.3325085E+02 1.4070352E+04 0.9000 1.1111112E+00 9.5225283E+03 -3.9256126E-02 9.3907172E+02 -1.8690878E+02 9.5225283E+03 1.2000 8.3333331E-01 7.2302217E+03 -3.2334395E-02 9.5068555E+02 -1.1689243E+02 7.2302217E+03 1.5000 6.6666669E-01 5.8219409E+03 -2.1254092E-02 9.5689227E+02 -6.1870033E+01 5.8219409E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 89 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 55 SIGMA VALUE = -36.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.4347865E+04 -1.6293709E+00 1.5721402E+02 -1.1688997E+04 1.4347865E+04 0.2000 5.0000000E+00 5.5410112E+03 -4.9495414E-02 1.2142917E+02 -1.3712732E+02 5.5410112E+03 0.3000 3.3333333E+00 3.5680696E+03 -4.0610567E-02 1.1728935E+02 -7.2450661E+01 3.5680696E+03 0.6000 1.6666666E+00 1.7619291E+03 -2.4715815E-02 1.1583604E+02 -2.1773756E+01 1.7619291E+03 0.9000 1.1111112E+00 1.1711841E+03 -1.7439686E-02 1.1549725E+02 -1.0212542E+01 1.1711841E+03 1.2000 8.3333331E-01 8.7748682E+02 -1.4965629E-02 1.1537876E+02 -6.5660710E+00 8.7748682E+02 1.5000 6.6666669E-01 7.0263287E+02 -1.5055948E-02 1.1548451E+02 -5.2894020E+00 7.0263287E+02 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 90 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 56 SIGMA VALUE = -36.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.5187794E+04 -8.9988828E-02 1.6641739E+02 -6.8336591E+02 1.5187794E+04 0.2000 5.0000000E+00 1.5960100E+04 1.6102764E-01 3.4975955E+02 1.2850085E+03 1.5960100E+04 0.3000 3.3333333E+00 9.6273711E+03 -7.3432103E-02 3.1647031E+02 -3.5347906E+02 9.6273711E+03 0.6000 1.6666666E+00 4.5899473E+03 -2.2880731E-02 3.0176089E+02 -5.2510674E+01 4.5899473E+03 0.9000 1.1111112E+00 3.0414392E+03 -1.5995786E-02 2.9993396E+02 -2.4325106E+01 3.0414392E+03 1.2000 8.3333331E-01 2.2764275E+03 -1.3380774E-02 2.9932230E+02 -1.5230181E+01 2.2764275E+03 1.5000 6.6666669E-01 1.8181718E+03 -1.5341978E-02 2.9883411E+02 -1.3947175E+01 1.8181718E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 91 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 57 SIGMA VALUE = -36.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 1.7683816E+04 8.4603542E-01 1.9376709E+02 7.4805674E+03 1.7683816E+04 0.2000 5.0000000E+00 1.6765900E+04 -5.4753590E-01 3.6741840E+02 -4.5899663E+03 1.6765900E+04 0.3000 3.3333333E+00 1.5402879E+04 -5.1177576E-02 5.0632242E+02 -3.9414099E+02 1.5402879E+04 0.6000 1.6666666E+00 8.4932998E+03 -4.2817626E-02 5.5838239E+02 -1.8183147E+02 8.4932998E+03 0.9000 1.1111112E+00 5.7815171E+03 -2.9839585E-02 5.7014893E+02 -8.6259033E+01 5.7815171E+03 1.2000 8.3333331E-01 4.3666479E+03 -2.6101986E-02 5.7416064E+02 -5.6989090E+01 4.3666479E+03 1.5000 6.6666669E-01 3.5196643E+03 -2.8117657E-02 5.7849084E+02 -4.9482357E+01 3.5196643E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 92 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 58 SIGMA VALUE = -36.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.4016301E+04 -5.4822856E-01 4.8230032E+02 -1.2065497E+04 4.4016301E+04 0.2000 5.0000000E+00 2.9452855E+04 -4.5643884E-01 6.4544824E+02 -6.7217134E+03 2.9452855E+04 0.3000 3.3333333E+00 2.0755576E+04 -7.8807168E-02 6.8227600E+02 -8.1784412E+02 2.0755576E+04 0.6000 1.6666666E+00 1.0027076E+04 -2.3372579E-02 6.5921881E+02 -1.1717931E+02 1.0027076E+04 0.9000 1.1111112E+00 6.6487402E+03 -1.5984330E-02 6.5567084E+02 -5.3137829E+01 6.6487402E+03 1.2000 8.3333331E-01 4.9774639E+03 -1.3048905E-02 6.5447546E+02 -3.2475227E+01 4.9774639E+03 1.5000 6.6666669E-01 3.9800903E+03 -1.5516122E-02 6.5416632E+02 -3.0877783E+01 3.9800903E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 93 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 59 SIGMA VALUE = -36.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 4.7500137E+04 3.7445065E-01 5.2047375E+02 8.8932285E+03 4.7500137E+04 0.2000 5.0000000E+00 3.1058381E+04 1.8823546E-01 6.8063269E+02 2.9231443E+03 3.1058381E+04 0.3000 3.3333333E+00 2.3848641E+04 -1.3160937E-01 7.8395093E+02 -1.5693523E+03 2.3848641E+04 0.6000 1.6666666E+00 1.2283088E+04 -5.9042601E-03 8.0753772E+02 -3.6261272E+01 1.2283088E+04 0.9000 1.1111112E+00 8.1742412E+03 -4.0554870E-03 8.0610931E+02 -1.6575264E+01 8.1742412E+03 1.2000 8.3333331E-01 6.1279658E+03 -3.3681036E-03 8.0575238E+02 -1.0319812E+01 6.1279658E+03 1.5000 6.6666669E-01 4.9012607E+03 -5.0184606E-03 8.0556958E+02 -1.2298391E+01 4.9012607E+03 1 MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 94 NASTRAN TEST PROBLEM NO. T09-06-1A 0 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. 0 FLUTTER SUMMARY POINT = 60 SIGMA VALUE = -36.000 DENSITY RATIO = 1.0000E+00 METHOD = KE KFREQ 1./KFREQ VELOCITY DAMPING FREQUENCY COMPLEX EIGENVALUE 0.1000 1.0000000E+01 6.9235344E+04 -2.7111808E-02 7.5863324E+02 -9.3854767E+02 6.9235344E+04 0.2000 5.0000000E+00 3.5668367E+04 -1.1360300E-02 7.8165881E+02 -2.0260167E+02 3.5668367E+04 0.3000 3.3333333E+00 2.4951115E+04 5.3172372E-02 8.2019147E+02 6.6335498E+02 2.4951115E+04 0.6000 1.6666666E+00 1.3800661E+04 -5.3184744E-02 9.0730890E+02 -3.6699231E+02 1.3800661E+04 0.9000 1.1111112E+00 9.4979141E+03 -4.0030856E-02 9.3664435E+02 -1.9010481E+02 9.4979141E+03 1.2000 8.3333331E-01 7.2023413E+03 -3.4432013E-02 9.4701953E+02 -1.2399555E+02 7.2023413E+03 1.5000 6.6666669E-01 5.8016953E+03 -2.7782625E-02 9.5356470E+02 -8.0593163E+01 5.8016953E+03 * * * END OF JOB * * * 1 JOB TITLE = MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP DATE: 5/18/95 END TIME: 10:46:55 TOTAL WALL CLOCK TIME 4 SEC. ================================================ FILE: demoout/t09071a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T09071A,NASTRAN APP DISP TIME 40 SOL 9 DIAG 14 0*** $ ... READFILE FROM- COSDBCL $ COSDBCL.ALT $ $ DMAP ALTER PACKAGE FOR $ DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UNDER $ IMPACK LOADING: COMPUTATIONAL SIMULATION $ FROM PAPER OF THE SAME TITLE BY J. E. GRADY et al $ NASA TECHNICAL MEMORANDUM 100192, 1987, CLEWIS RESEARCH CENTER, $ AND ALSO A SIMILAR PAPER BY R. A. AIELLO AND J. E. GRADY, $ NASA CONFERENCE PUBLICATION 3029, 1989 (17TH NASTRAN USERS'S $ COLLOQUIUM, PP. 187-200) $ $ VAX AND UNIX USER: MAKE SURE YOUR FILE EXTENSION LIMIT IS SET $ TO 420 BEFORE RUNNING THIS DEMO PROBLEM. $ $ ALTER 146 $ 91 COSMIC/NASTRAN RF 9, FOLLOWING LABEL P2 INSERT XYTRAN(2),-1 $ $ PARAML UPV//*TRAILER*/1/V,N,NOCUPV $ COPY TIP1/CLUSI/0 $ COPY TIP1/BUBLI/0 $ PARAM //*SUB*/SHIFT/NOCUPV/ 1 $ LABEL BUBTOP $ FILE BUBLI=SAVE/CLUSI=SAVE $ PARTN BUBLI,,BAS1/DUMMY,,,/7 $ MERGE DUMMY,,,,,TIP1/BUBLJ/7 $ ADD CLUSI,BUBLJ/CLUSJ/ $ SWITCH BUBLJ,BUBLI//-1 $ SWITCH CLUSJ,CLUSI//-1 $ REPT BUBTOP,SHIFT $ PARTN TIP1,,CLUSJ/,MNTRI,,/7 $ PARTN BUBLJ,,CLUSJ/,BOOTI,,/7 $ COPY MNTRI/MNTRJ/0 $ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,,EQEXIN/X1,X2,X3,ECPT,GPCT,,,/ LUSET/NOSIMP/0/NOGENL/GENEL $ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/V,N, LUSET/V,N,LUSETD/V,N,NOTFL/V,N,NODLT/V,N,NOPSDL/V,N,NOFRL/ V,N,NONLFT/V,N,NOTRL/S,N,NOEED/C,N,123/V,N,NOUE $ COND ERROR5,NOEED $ PARAM //*NOP*/V,N,COLNUM=1 $ LABEL RAALOOP $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 PARAM //*ADD*/COLNUM/COLNUM/3 $ PARAM //*LE*/V,N,GETOUT/NOCUPV/COLNUM $ COND QUITRAA,GETOUT $ LABEL CORTOP $ PARTN MNTRJ,,BOOTI/DUM11,,,/7 $ MERGE DUM11,,,,,MNTRI/MNTRJ/7 $ REPT CORTOP, 2 $ PARTN UPV,MNTRJ,/,,COLUPV,/1 $ DSMG1 CASECC,GPTT,SIL,EDT,COLUPV,CSTM,MPT,ECPT,GPCT,DIT/ KDGG/DSCOSET $ EQUIV KDGG,KDNN/MPCF2 $ COND LBL2D,MPCF2 $ MCE2 USET,GM,KDGG,,,/KDNN,,, $ LABEL LBL2D $ EQUIV KDNN,KDFF/SINGLE $ COND LBL3D,SINGLE $ SCE1 USET,KDNN,,,/KDFF,KDFS,,,, $ LABEL LBL3D $ EQUIV KDFF,KDAA/OMIT $ COND LBL5D,OMIT $ SMP2 USET,GO,KDFF/KDAA $ LABEL LBL5D $ ADD KDAA,/KDAAM/C,N,(-1.0,0.0)/C,N,(0.0,0.0) $ READ KAA,KDAAM,,,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/C,N,BUCKLING/ S,N,NEIGV/C,N,2 $ COND ERROR4,NEIGV $ PARAML LAMA//*TABLE1*/2/3/V,N,EIGV $ PRTPARM //0/*EIGV* $ $ OFP OEIGS,LAMA,,,,//S,N,CARDNO $ OFP LAMA,,,,,//S,N,CARDNO $ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,BQG/C,N,1/C,N,BKL1 $ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,BQG,PHIG,EST,,,/, OBQG1,OPHIG,OBES1,OBEF1,PPHIG,,/C,N,BKL1 $ $ OFP OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $ COND P3,JUMPPLOT $ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,GPECT, OBES1,,/PLOTX3/V,N,NSIL/V,N,LUSET/V,N,JUMPPLOT/V,N,PLTFLG/ S,N,PFILE $ PRTMSG PLOTX3// $ LABEL P3 $ REPT RAALOOP,1000 $ JUMP QUITRAA $ LABEL ERROR5 $ PRTPARM //C,N,-3/C,N,BUCKLING $ JUMP QUITRAA $ LABEL ERROR4 $ PRTPARM //C,N,-4/C,N,BUCKLING $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 LABEL QUITRAA $ JUMP FINIS $ ENDALTER 0*** $ END READFILE CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T09-07-1A 3 LABEL = A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 4 DISP = ALL 5 SPC = 4 6 SUBCASE 1 7 DLOAD = 4 8 TSTEP = 7 9 STRESS = ALL 10 SUBCASE 2 11 METHOD = 25 12 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 19, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CBAR 1 1 1 2 0. 0. 1.0 1 2- CBAR 2 1 2 3 0. 0. 1.0 1 3- CBAR 3 1 3 4 0. 0. 1.0 1 4- CBAR 4 1 4 5 0. 0. 1.0 1 5- CBAR 5 1 5 6 0. 0. 1.0 1 6- CBAR 6 1 6 7 0. 0. 1.0 1 7- CBAR 7 1 7 8 0. 0. 1.0 1 8- CBAR 8 1 8 9 0. 0. 1.0 1 9- CBAR 9 1 9 10 0. 0. 1.0 1 10- CBAR 10 1 10 11 0. 0. 1.0 1 11- DAREA 8 1 2 +1.0 12- DMI BAS1 0 2 1 1 1000 1 13- DMI BAS1 1 1000 1.0 14- DMI TIP1 0 2 1 1 1000 1 15- DMI TIP1 1 1 1.0 16- EIGB 25 INV 0.01 1.0 2 +C0N0001 17- +C0N0001MAX 18- GRID 1 0.0 0.0 0.0 19- GRID 2 0.0 10. 0.0 20- GRID 3 0.0 20. 0.0 21- GRID 4 0.0 30. 0.0 22- GRID 5 0.0 40. 0.0 23- GRID 6 0.0 50. 0.0 24- GRID 7 0.0 60. 0.0 25- GRID 8 0.0 70. 0.0 26- GRID 9 0.0 80. 0.0 27- GRID 10 0.0 90. 0.0 28- GRID 11 0.0 100. 0.0 29- MAT1 11 10.0+6 16.5+6 2.59-4 30- PBAR 1 11 .785 .049 .049 .098 31- SPC 4 11 123456 32- TABLED1 4 +S4 33- +S4 0.0 0.0 25.E-6 120.9 1.0 120.9 ENDT 34- TLOAD1 4 8 0 4 35- TSTEP 6 20 0.0002 1 36- TSTEP 7 200 12.5-6 4 ENDDATA 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 FILE UDVT=APPEND/TOL=APPEND/RLODDISP=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ 10 COND LBL5,NOGPDT $ 11 GP2 GEOM2,EQEXIN/ECT $ 12 PARAML PCDB//*PRES*////JUMPPLOT $ 13 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 14 COND P1,JUMPPLOT $ 15 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 16 PRTMSG PLTSETX// $ 17 PARAM //*MPY*/PLTFLG/1/1 $ 18 PARAM //*MPY*/PFILE/0/0 $ 19 COND P1,JUMPPLOT $ 20 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 21 PRTMSG PLOTX1// $ 22 LABEL P1 $ 23 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ 24 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/ S,N,COMPS 25 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 26 PURGE K4GG,MGG,BGG, K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,KGGX/NOSIMP $ 27 COND LBL1,NOSIMP $ 28 PARAM //*ADD*/NOKGGX/1/0 $ 29 PARAM //*ADD*/NOMGG/1/0 $ 30 PARAM //*ADD*/NOBGG=-1/1/0 $ 31 PARAM //*ADD*/NOK4GG/1/0 $ 32 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 33 PURGE KGGX/NOKGGX/MGG/NOMGG $ 34 COND LBLKGGX,NOKGGX $ 35 EMA GPECT,KDICT,KELM/KGGX $ 36 LABEL LBLKGGX $ 37 COND LBLMGG,NOMGG $ 38 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 39 PURGE MDICT,MELM/ALWAYS $ 40 LABEL LBLMGG $ 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 41 COND LBLBGG,NOBGG $ 42 EMA GPECT,BDICT,BELM/BGG $ 43 PURGE BDICT,BELM/ALWAYS $ 44 LABEL LBLBGG $ 45 COND LBLK4GG,NOK4GG $ 46 EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ 47 LABEL LBLK4GG $ 48 PURGE KDICT,KELM/ALWAYS $ 49 PURGE MNN,MFF,MAA/NOMGG $ 50 PURGE BNN,BFF,BAA/NOBGG $ 51 COND LBL1,GRDPNT $ 52 COND ERROR3,NOMGG $ 53 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 54 OFP OGPWG,,,,,//S,N,CARDNO $ 55 LABEL LBL1 $ 56 EQUIV KGGX,KGG/NOGENL $ 57 COND LBL11,NOGENL $ 58 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 59 LABEL LBL11 $ 60 GPSTGEN KGG,SIL/GPST $ 61 PARAM //*MPY*/NSKIP/0/0 $ 62 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING C,Y,ASETOUT/C,Y,AUTOSPC $ 63 OFP OGPST,,,,,//S,N,CARDNO $ 64 PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $ 65 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ 66 COND LBL2,MPCF1 $ 67 MCE1 USET,RG/GM $ 68 MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ 69 LABEL LBL2 $ 70 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ 71 COND LBL3,SINGLE $ 72 SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS, ,MFF,BFF,K4FF $ 73 LABEL LBL3 $ 74 EQUIV KFF,KAA/OMIT $ 75 EQUIV MFF,MAA/OMIT $ 76 EQUIV BFF,BAA/OMIT $ 77 EQUIV K4FF,K4AA/OMIT $ 78 COND LBL5,OMIT $ 79 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 80 COND LBLM,NOMGG $ 81 SMP2 USET,GO,MFF/MAA $ 82 LABEL LBLM $ 83 COND LBLB,NOBGG $ 84 SMP2 USET,GO,BFF/BAA $ 85 LABEL LBLB $ 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 86 COND LBL5,NOK4GG $ 87 SMP2 USET,GO,K4FF/K4AA $ 88 LABEL LBL5 $ 89 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,, EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/ NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $ 90 COND ERROR1,NOTRL $ 91 PURGE PNLD/NONLFT$ 92 EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ 93 BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ 94 PARAM //*AND*/NOFL/NOABFL/NOKBFL $ 95 PURGE KBFL/NOKBFL/ ABFL/NOABFL $ 96 COND LBLFL3,NOFL $ 97 MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ 98 LABEL LBLFL3 $ 99 MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ 100 PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ 101 PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ 102 EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ 103 COND LBLFL2,NOFL $ 104 ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ 105 COND LBLFL2,NOABFL $ 106 TRNSP ABFL/ABFLT $ 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 107 ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ 108 LABEL LBLFL2 $ 109 PARAM //*AND*/KDEKA/NOUE/NOK2PP $ 110 PARAM //*AND*/MDEMA/NOUE/NOM2PP $ 111 PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ 112 PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ 113 EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ 114 COND LBL16,NOGPDT $ 115 GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/ C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ 116 LABEL LBL16 $ 117 EQUIV M2DD,MDD/NOSIMP/B2DD,BDD/NOGPDT/K2DD,KDD/KDEK2 $ 118 PARAM //*ADD*/NEVER/1/0 $ 119 PARAM //*MPY*/REPEATT/1/-1 $ 120 LABEL LBL13 $ 121 PURGE PNLD,OUDV1,OPNL1,OUDV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1, OEF1,OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT/NEVER $ 122 CASE CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $ 123 PARAM //*MPY*/NCOL/0/1 $ 124 TRLG CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG, MPT/PPT,PST,PDT,PD,,TOL/S,N,NOSET/NCOL $ 125 EQUIV PPT,PDT/NOSET $ 126 TRD CASEXX,TRL,NLFT,DIT,KDD,BDD,MDD,PD/UDVT,PNLD,RLODDISP/*DIRECT*/ 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $ 127 VDR CASEXX,EQDYN,USETD,UDVT,TOL,XYCDB,PNLD/OUDV1,OPNL1/ *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $ 128 COND LBL15,NOD $ 129 SDR3 OUDV1,OPNL1,,,,/OUDV2,OPNL2,,,, $ 130 OFP OUDV2,OPNL2,,,,//S,N,CARDNO $ 131 XYTRAN XYCDB,OUDV2,OPNL2,,,/XYPLTTA/*TRAN*/*DSET*/S,N,PFILE/ S,N,CARDNO $ 132 XYPLOT XYPLTTA// $ 133 LABEL LBL15 $ 134 PARAM //*AND*/PJUMP/NOP/JUMPPLOT $ 135 COND LBL18,PJUMP $ 136 EQUIV UDVT,UPV/NOA $ 137 COND LBL17,NOA $ 138 SDR1 USETD,,UDVT,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $ 139 LABEL LBL17 $ 140 SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB, PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $ 141 SDR3 OPP1,OQP1,OUPV1,OES1,OEF1,/ OPP2,OQP2,OUPV2,OES2,OEF2, $ 142 OFP OPP2,OQP2,OUPV2,OEF2,OES2,//S,N,CARDNO $ 143 SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ 144 OFP OESF2,,,,,//S,N,CARDNO $ 145 COND P2,JUMPPLOT $ 146 PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,GPECT,OES1, ,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 147 PRTMSG PLOTX2// $ 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 148 LABEL P2 $ 148 PARAML UPV//*TRAILER*/1/V,N,NOCUPV $ 148 COPY TIP1/CLUSI/0 $ 148 COPY TIP1/BUBLI/0 $ 148 PARAM //*SUB*/SHIFT/NOCUPV/ 1 $ 148 LABEL BUBTOP $ 148 FILE BUBLI=SAVE/CLUSI=SAVE $ 148 PARTN BUBLI,,BAS1/DUMMY,,,/7 $ 148 MERGE DUMMY,,,,,TIP1/BUBLJ/7 $ 148 ADD CLUSI,BUBLJ/CLUSJ/ $ 148 SWITCH BUBLJ,BUBLI//-1 $ 148 SWITCH CLUSJ,CLUSI//-1 $ 148 REPT BUBTOP,SHIFT $ 148 PARTN TIP1,,CLUSJ/,MNTRI,,/7 $ 148 PARTN BUBLJ,,CLUSJ/,BOOTI,,/7 $ 148 COPY MNTRI/MNTRJ/0 $ 148 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,,EQEXIN/X1,X2,X3,ECPT,GPCT,,,/ LUSET/NOSIMP/0/NOGENL/GENEL $ 148 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/V,N, LUSET/V,N,LUSETD/V,N,NOTFL/V,N,NODLT/V,N,NOPSDL/V,N,NOFRL/ V,N,NONLFT/V,N,NOTRL/S,N,NOEED/C,N,123/V,N,NOUE $ 148 COND ERROR5,NOEED $ 148 PARAM //*NOP*/V,N,COLNUM=1 $ 148 LABEL RAALOOP $ 148 PARAM //*ADD*/COLNUM/COLNUM/3 $ 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 148 PARAM //*LE*/V,N,GETOUT/NOCUPV/COLNUM $ 148 COND QUITRAA,GETOUT $ 148 LABEL CORTOP $ 148 PARTN MNTRJ,,BOOTI/DUM11,,,/7 $ 148 MERGE DUM11,,,,,MNTRI/MNTRJ/7 $ 148 REPT CORTOP, 2 $ 148 PARTN UPV,MNTRJ,/,,COLUPV,/1 $ 148 DSMG1 CASECC,GPTT,SIL,EDT,COLUPV,CSTM,MPT,ECPT,GPCT,DIT/ KDGG/DSCOSET $ 148 EQUIV KDGG,KDNN/MPCF2 $ 148 COND LBL2D,MPCF2 $ 148 MCE2 USET,GM,KDGG,,,/KDNN,,, $ 148 LABEL LBL2D $ 148 EQUIV KDNN,KDFF/SINGLE $ 148 COND LBL3D,SINGLE $ 148 SCE1 USET,KDNN,,,/KDFF,KDFS,,,, $ 148 LABEL LBL3D $ 148 EQUIV KDFF,KDAA/OMIT $ 148 COND LBL5D,OMIT $ 148 SMP2 USET,GO,KDFF/KDAA $ 148 LABEL LBL5D $ 148 ADD KDAA,/KDAAM/C,N,(-1.0,0.0)/C,N,(0.0,0.0) $ 148 READ KAA,KDAAM,,,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/C,N,BUCKLING/ S,N,NEIGV/C,N,2 $ 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 148 COND ERROR4,NEIGV $ 148 PARAML LAMA//*TABLE1*/2/3/V,N,EIGV $ 148 PRTPARM //0/*EIGV* $ 148 OFP LAMA,,,,,//S,N,CARDNO $ 148 SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,BQG/C,N,1/C,N,BKL1 $ 148 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,BQG,PHIG,EST,,,/, OBQG1,OPHIG,OBES1,OBEF1,PPHIG,,/C,N,BKL1 $ 148 COND P3,JUMPPLOT $ 148 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,GPECT, OBES1,,/PLOTX3/V,N,NSIL/V,N,LUSET/V,N,JUMPPLOT/V,N,PLTFLG/ S,N,PFILE $ 148 PRTMSG PLOTX3// $ 148 LABEL P3 $ 148 REPT RAALOOP,1000 $ 148 JUMP QUITRAA $ 148 LABEL ERROR5 $ 148 PRTPARM //C,N,-3/C,N,BUCKLING $ 148 JUMP QUITRAA $ 148 LABEL ERROR4 $ 148 PRTPARM //C,N,-4/C,N,BUCKLING $ 148 LABEL QUITRAA $ 148 JUMP FINIS $ 149 XYTRAN XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/ S,N,PFILE/S,N,CARDNO $ 150 XYPLOT XYPLTT// $ 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 151 LABEL LBL18 $ 152 COND FINIS,REPEATT $ 153 REPT LBL13,100 $ 154 PRTPARM //-2/*DIRTRD* $ 155 JUMP FINIS $ 156 LABEL ERROR1 $ 157 PRTPARM //-1/*DIRTRD* $ 158 LABEL ERROR3 $ 159 PRTPARM //-3/*DIRTRD* $ 160 LABEL FINIS $ 161 PURGE DUMMY/ALWAYS $ 162 END $ 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION DPD INSTRUCTION NO. 148 DATA BLOCK NAMED GPLD ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION DPD INSTRUCTION NO. 148 DATA BLOCK NAMED SILD ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION DPD INSTRUCTION NO. 148 DATA BLOCK NAMED USETD ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION DPD INSTRUCTION NO. 148 DATA BLOCK NAMED EQDYN ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MERGE INSTRUCTION NO. 148 DATA BLOCK NAMED MNTRJ ALREADY APPEARED AS OUTPUT 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO THE PRESENCE OF DMI CARDS 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPST MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK SLT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 1 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 G 0.0 7.791522E-05 0.0 0.0 0.0 0.0 1.000000E-04 G 0.0 2.833486E-04 0.0 0.0 0.0 0.0 1.500000E-04 G 0.0 4.265859E-04 0.0 0.0 0.0 0.0 2.000000E-04 G 0.0 5.463337E-04 0.0 0.0 0.0 0.0 2.499999E-04 G 0.0 7.243613E-04 0.0 0.0 0.0 0.0 3.000000E-04 G 0.0 8.838057E-04 0.0 0.0 0.0 0.0 3.500000E-04 G 0.0 1.007714E-03 0.0 0.0 0.0 0.0 4.000000E-04 G 0.0 1.169509E-03 0.0 0.0 0.0 0.0 4.500001E-04 G 0.0 1.338082E-03 0.0 0.0 0.0 0.0 5.000001E-04 G 0.0 1.469081E-03 0.0 0.0 0.0 0.0 5.500000E-04 G 0.0 1.617869E-03 0.0 0.0 0.0 0.0 5.999999E-04 G 0.0 1.789242E-03 0.0 0.0 0.0 0.0 6.499998E-04 G 0.0 1.929997E-03 0.0 0.0 0.0 0.0 6.999997E-04 G 0.0 2.069592E-03 0.0 0.0 0.0 0.0 7.499997E-04 G 0.0 2.238200E-03 0.0 0.0 0.0 0.0 7.999996E-04 G 0.0 2.389032E-03 0.0 0.0 0.0 0.0 8.499995E-04 G 0.0 2.523168E-03 0.0 0.0 0.0 0.0 8.999994E-04 G 0.0 2.680726E-03 0.0 0.0 0.0 0.0 9.499993E-04 G 0.0 2.825796E-03 0.0 0.0 0.0 0.0 9.999992E-04 G 0.0 2.921357E-03 0.0 0.0 0.0 0.0 1.049999E-03 G 0.0 2.981508E-03 0.0 0.0 0.0 0.0 1.099999E-03 G 0.0 2.966741E-03 0.0 0.0 0.0 0.0 1.149999E-03 G 0.0 2.823061E-03 0.0 0.0 0.0 0.0 1.199999E-03 G 0.0 2.601663E-03 0.0 0.0 0.0 0.0 1.249999E-03 G 0.0 2.385690E-03 0.0 0.0 0.0 0.0 1.299999E-03 G 0.0 2.209562E-03 0.0 0.0 0.0 0.0 1.349999E-03 G 0.0 2.093357E-03 0.0 0.0 0.0 0.0 1.399999E-03 G 0.0 2.002226E-03 0.0 0.0 0.0 0.0 1.449998E-03 G 0.0 1.845045E-03 0.0 0.0 0.0 0.0 1.499998E-03 G 0.0 1.633392E-03 0.0 0.0 0.0 0.0 1.549998E-03 G 0.0 1.474844E-03 0.0 0.0 0.0 0.0 1.599998E-03 G 0.0 1.370774E-03 0.0 0.0 0.0 0.0 1.649998E-03 G 0.0 1.230518E-03 0.0 0.0 0.0 0.0 1.699998E-03 G 0.0 1.047835E-03 0.0 0.0 0.0 0.0 1.749998E-03 G 0.0 8.836139E-04 0.0 0.0 0.0 0.0 1.799998E-03 G 0.0 7.514673E-04 0.0 0.0 0.0 0.0 1.849998E-03 G 0.0 6.199284E-04 0.0 0.0 0.0 0.0 1.899998E-03 G 0.0 4.649677E-04 0.0 0.0 0.0 0.0 1.949998E-03 G 0.0 3.086726E-04 0.0 0.0 0.0 0.0 1.999998E-03 G 0.0 2.060432E-04 0.0 0.0 0.0 0.0 2.049997E-03 G 0.0 1.575768E-04 0.0 0.0 0.0 0.0 2.099997E-03 G 0.0 1.261966E-04 0.0 0.0 0.0 0.0 2.149997E-03 G 0.0 1.621900E-04 0.0 0.0 0.0 0.0 2.199997E-03 G 0.0 3.330107E-04 0.0 0.0 0.0 0.0 2.249997E-03 G 0.0 5.667948E-04 0.0 0.0 0.0 0.0 2.299997E-03 G 0.0 7.694162E-04 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 1 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349997E-03 G 0.0 9.611733E-04 0.0 0.0 0.0 0.0 2.399997E-03 G 0.0 1.136660E-03 0.0 0.0 0.0 0.0 2.449997E-03 G 0.0 1.230634E-03 0.0 0.0 0.0 0.0 2.499997E-03 G 0.0 1.304005E-03 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 2 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 G 0.0 5.669056E-06 0.0 0.0 0.0 0.0 1.000000E-04 G 0.0 7.774270E-05 0.0 0.0 0.0 0.0 1.500000E-04 G 0.0 2.586351E-04 0.0 0.0 0.0 0.0 2.000000E-04 G 0.0 4.359457E-04 0.0 0.0 0.0 0.0 2.499999E-04 G 0.0 5.548621E-04 0.0 0.0 0.0 0.0 3.000000E-04 G 0.0 7.039463E-04 0.0 0.0 0.0 0.0 3.500000E-04 G 0.0 8.826139E-04 0.0 0.0 0.0 0.0 4.000000E-04 G 0.0 1.019803E-03 0.0 0.0 0.0 0.0 4.500001E-04 G 0.0 1.155974E-03 0.0 0.0 0.0 0.0 5.000001E-04 G 0.0 1.328913E-03 0.0 0.0 0.0 0.0 5.500000E-04 G 0.0 1.480451E-03 0.0 0.0 0.0 0.0 5.999999E-04 G 0.0 1.612081E-03 0.0 0.0 0.0 0.0 6.499998E-04 G 0.0 1.775490E-03 0.0 0.0 0.0 0.0 6.999997E-04 G 0.0 1.937281E-03 0.0 0.0 0.0 0.0 7.499997E-04 G 0.0 2.070662E-03 0.0 0.0 0.0 0.0 7.999996E-04 G 0.0 2.222987E-03 0.0 0.0 0.0 0.0 8.499995E-04 G 0.0 2.387788E-03 0.0 0.0 0.0 0.0 8.999994E-04 G 0.0 2.519927E-03 0.0 0.0 0.0 0.0 9.499993E-04 G 0.0 2.641345E-03 0.0 0.0 0.0 0.0 9.999992E-04 G 0.0 2.753662E-03 0.0 0.0 0.0 0.0 1.049999E-03 G 0.0 2.790481E-03 0.0 0.0 0.0 0.0 1.099999E-03 G 0.0 2.738073E-03 0.0 0.0 0.0 0.0 1.149999E-03 G 0.0 2.627319E-03 0.0 0.0 0.0 0.0 1.199999E-03 G 0.0 2.454565E-03 0.0 0.0 0.0 0.0 1.249999E-03 G 0.0 2.251718E-03 0.0 0.0 0.0 0.0 1.299999E-03 G 0.0 2.089588E-03 0.0 0.0 0.0 0.0 1.349999E-03 G 0.0 1.957447E-03 0.0 0.0 0.0 0.0 1.399999E-03 G 0.0 1.806941E-03 0.0 0.0 0.0 0.0 1.449998E-03 G 0.0 1.655511E-03 0.0 0.0 0.0 0.0 1.499998E-03 G 0.0 1.514909E-03 0.0 0.0 0.0 0.0 1.549998E-03 G 0.0 1.355515E-03 0.0 0.0 0.0 0.0 1.599998E-03 G 0.0 1.191278E-03 0.0 0.0 0.0 0.0 1.649998E-03 G 0.0 1.050286E-03 0.0 0.0 0.0 0.0 1.699998E-03 G 0.0 9.072769E-04 0.0 0.0 0.0 0.0 1.749998E-03 G 0.0 7.486974E-04 0.0 0.0 0.0 0.0 1.799998E-03 G 0.0 5.972547E-04 0.0 0.0 0.0 0.0 1.849998E-03 G 0.0 4.511868E-04 0.0 0.0 0.0 0.0 1.899998E-03 G 0.0 3.075337E-04 0.0 0.0 0.0 0.0 1.949998E-03 G 0.0 1.862555E-04 0.0 0.0 0.0 0.0 1.999998E-03 G 0.0 8.355966E-05 0.0 0.0 0.0 0.0 2.049997E-03 G 0.0 5.702795E-06 0.0 0.0 0.0 0.0 2.099997E-03 G 0.0 4.943741E-06 0.0 0.0 0.0 0.0 2.149997E-03 G 0.0 8.845808E-05 0.0 0.0 0.0 0.0 2.199997E-03 G 0.0 2.130395E-04 0.0 0.0 0.0 0.0 2.249997E-03 G 0.0 3.872583E-04 0.0 0.0 0.0 0.0 2.299997E-03 G 0.0 6.124270E-04 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 2 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349997E-03 G 0.0 8.047232E-04 0.0 0.0 0.0 0.0 2.399997E-03 G 0.0 9.308720E-04 0.0 0.0 0.0 0.0 2.449997E-03 G 0.0 1.061037E-03 0.0 0.0 0.0 0.0 2.499997E-03 G 0.0 1.213114E-03 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 3 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 G 0.0 2.705426E-07 0.0 0.0 0.0 0.0 1.000000E-04 G 0.0 1.035430E-05 0.0 0.0 0.0 0.0 1.500000E-04 G 0.0 7.780899E-05 0.0 0.0 0.0 0.0 2.000000E-04 G 0.0 2.423476E-04 0.0 0.0 0.0 0.0 2.499999E-04 G 0.0 4.324650E-04 0.0 0.0 0.0 0.0 3.000000E-04 G 0.0 5.659074E-04 0.0 0.0 0.0 0.0 3.500000E-04 G 0.0 6.951988E-04 0.0 0.0 0.0 0.0 4.000000E-04 G 0.0 8.701677E-04 0.0 0.0 0.0 0.0 4.500001E-04 G 0.0 1.028362E-03 0.0 0.0 0.0 0.0 5.000001E-04 G 0.0 1.155848E-03 0.0 0.0 0.0 0.0 5.500000E-04 G 0.0 1.314044E-03 0.0 0.0 0.0 0.0 5.999999E-04 G 0.0 1.482732E-03 0.0 0.0 0.0 0.0 6.499998E-04 G 0.0 1.617822E-03 0.0 0.0 0.0 0.0 6.999997E-04 G 0.0 1.762709E-03 0.0 0.0 0.0 0.0 7.499997E-04 G 0.0 1.932251E-03 0.0 0.0 0.0 0.0 7.999996E-04 G 0.0 2.076195E-03 0.0 0.0 0.0 0.0 8.499995E-04 G 0.0 2.206427E-03 0.0 0.0 0.0 0.0 8.999994E-04 G 0.0 2.351227E-03 0.0 0.0 0.0 0.0 9.499993E-04 G 0.0 2.458872E-03 0.0 0.0 0.0 0.0 9.999992E-04 G 0.0 2.498742E-03 0.0 0.0 0.0 0.0 1.049999E-03 G 0.0 2.500675E-03 0.0 0.0 0.0 0.0 1.099999E-03 G 0.0 2.456789E-03 0.0 0.0 0.0 0.0 1.149999E-03 G 0.0 2.361977E-03 0.0 0.0 0.0 0.0 1.199999E-03 G 0.0 2.268858E-03 0.0 0.0 0.0 0.0 1.249999E-03 G 0.0 2.172505E-03 0.0 0.0 0.0 0.0 1.299999E-03 G 0.0 2.005969E-03 0.0 0.0 0.0 0.0 1.349999E-03 G 0.0 1.791154E-03 0.0 0.0 0.0 0.0 1.399999E-03 G 0.0 1.612465E-03 0.0 0.0 0.0 0.0 1.449998E-03 G 0.0 1.484670E-03 0.0 0.0 0.0 0.0 1.499998E-03 G 0.0 1.369306E-03 0.0 0.0 0.0 0.0 1.549998E-03 G 0.0 1.228772E-03 0.0 0.0 0.0 0.0 1.599998E-03 G 0.0 1.044903E-03 0.0 0.0 0.0 0.0 1.649998E-03 G 0.0 8.654841E-04 0.0 0.0 0.0 0.0 1.699998E-03 G 0.0 7.446280E-04 0.0 0.0 0.0 0.0 1.749998E-03 G 0.0 6.262055E-04 0.0 0.0 0.0 0.0 1.799998E-03 G 0.0 4.486617E-04 0.0 0.0 0.0 0.0 1.849998E-03 G 0.0 2.803926E-04 0.0 0.0 0.0 0.0 1.899998E-03 G 0.0 1.780106E-04 0.0 0.0 0.0 0.0 1.949998E-03 G 0.0 8.245576E-05 0.0 0.0 0.0 0.0 1.999998E-03 G 0.0 -2.141346E-05 0.0 0.0 0.0 0.0 2.049997E-03 G 0.0 -5.963694E-05 0.0 0.0 0.0 0.0 2.099997E-03 G 0.0 -2.084428E-05 0.0 0.0 0.0 0.0 2.149997E-03 G 0.0 4.777913E-05 0.0 0.0 0.0 0.0 2.199997E-03 G 0.0 1.444489E-04 0.0 0.0 0.0 0.0 2.249997E-03 G 0.0 2.747203E-04 0.0 0.0 0.0 0.0 2.299997E-03 G 0.0 4.142890E-04 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 3 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349997E-03 G 0.0 5.639336E-04 0.0 0.0 0.0 0.0 2.399997E-03 G 0.0 7.385961E-04 0.0 0.0 0.0 0.0 2.449997E-03 G 0.0 9.228185E-04 0.0 0.0 0.0 0.0 2.499997E-03 G 0.0 1.094672E-03 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 4 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 G 0.0 1.041713E-08 0.0 0.0 0.0 0.0 1.000000E-04 G 0.0 8.999116E-07 0.0 0.0 0.0 0.0 1.500000E-04 G 0.0 1.366733E-05 0.0 0.0 0.0 0.0 2.000000E-04 G 0.0 7.798254E-05 0.0 0.0 0.0 0.0 2.499999E-04 G 0.0 2.306305E-04 0.0 0.0 0.0 0.0 3.000000E-04 G 0.0 4.244776E-04 0.0 0.0 0.0 0.0 3.500000E-04 G 0.0 5.734274E-04 0.0 0.0 0.0 0.0 4.000000E-04 G 0.0 6.946166E-04 0.0 0.0 0.0 0.0 4.500001E-04 G 0.0 8.565383E-04 0.0 0.0 0.0 0.0 5.000001E-04 G 0.0 1.028680E-03 0.0 0.0 0.0 0.0 5.500000E-04 G 0.0 1.162225E-03 0.0 0.0 0.0 0.0 5.999999E-04 G 0.0 1.303580E-03 0.0 0.0 0.0 0.0 6.499998E-04 G 0.0 1.475476E-03 0.0 0.0 0.0 0.0 6.999997E-04 G 0.0 1.624669E-03 0.0 0.0 0.0 0.0 7.499997E-04 G 0.0 1.756259E-03 0.0 0.0 0.0 0.0 7.999996E-04 G 0.0 1.912242E-03 0.0 0.0 0.0 0.0 8.499995E-04 G 0.0 2.053613E-03 0.0 0.0 0.0 0.0 8.999994E-04 G 0.0 2.140047E-03 0.0 0.0 0.0 0.0 9.499993E-04 G 0.0 2.196337E-03 0.0 0.0 0.0 0.0 9.999992E-04 G 0.0 2.212341E-03 0.0 0.0 0.0 0.0 1.049999E-03 G 0.0 2.163635E-03 0.0 0.0 0.0 0.0 1.099999E-03 G 0.0 2.112161E-03 0.0 0.0 0.0 0.0 1.149999E-03 G 0.0 2.106957E-03 0.0 0.0 0.0 0.0 1.199999E-03 G 0.0 2.090091E-03 0.0 0.0 0.0 0.0 1.249999E-03 G 0.0 2.007045E-03 0.0 0.0 0.0 0.0 1.299999E-03 G 0.0 1.863739E-03 0.0 0.0 0.0 0.0 1.349999E-03 G 0.0 1.673317E-03 0.0 0.0 0.0 0.0 1.399999E-03 G 0.0 1.476261E-03 0.0 0.0 0.0 0.0 1.449998E-03 G 0.0 1.325348E-03 0.0 0.0 0.0 0.0 1.499998E-03 G 0.0 1.197242E-03 0.0 0.0 0.0 0.0 1.549998E-03 G 0.0 1.048166E-03 0.0 0.0 0.0 0.0 1.599998E-03 G 0.0 9.003812E-04 0.0 0.0 0.0 0.0 1.649998E-03 G 0.0 7.578343E-04 0.0 0.0 0.0 0.0 1.699998E-03 G 0.0 5.861702E-04 0.0 0.0 0.0 0.0 1.749998E-03 G 0.0 4.224395E-04 0.0 0.0 0.0 0.0 1.799998E-03 G 0.0 3.117979E-04 0.0 0.0 0.0 0.0 1.849998E-03 G 0.0 1.961380E-04 0.0 0.0 0.0 0.0 1.899998E-03 G 0.0 4.803163E-05 0.0 0.0 0.0 0.0 1.949998E-03 G 0.0 -4.376414E-05 0.0 0.0 0.0 0.0 1.999998E-03 G 0.0 -4.779118E-05 0.0 0.0 0.0 0.0 2.049997E-03 G 0.0 -3.707076E-05 0.0 0.0 0.0 0.0 2.099997E-03 G 0.0 -2.423909E-05 0.0 0.0 0.0 0.0 2.149997E-03 G 0.0 3.582618E-05 0.0 0.0 0.0 0.0 2.199997E-03 G 0.0 1.161987E-04 0.0 0.0 0.0 0.0 2.249997E-03 G 0.0 1.672811E-04 0.0 0.0 0.0 0.0 2.299997E-03 G 0.0 2.244122E-04 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 4 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349997E-03 G 0.0 3.541002E-04 0.0 0.0 0.0 0.0 2.399997E-03 G 0.0 5.562145E-04 0.0 0.0 0.0 0.0 2.449997E-03 G 0.0 7.706958E-04 0.0 0.0 0.0 0.0 2.499997E-03 G 0.0 9.478964E-04 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 5 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 G 0.0 3.518477E-10 0.0 0.0 0.0 0.0 1.000000E-04 G 0.0 5.950614E-08 0.0 0.0 0.0 0.0 1.500000E-04 G 0.0 1.651840E-06 0.0 0.0 0.0 0.0 2.000000E-04 G 0.0 1.619546E-05 0.0 0.0 0.0 0.0 2.499999E-04 G 0.0 7.815523E-05 0.0 0.0 0.0 0.0 3.000000E-04 G 0.0 2.216284E-04 0.0 0.0 0.0 0.0 3.500000E-04 G 0.0 4.150819E-04 0.0 0.0 0.0 0.0 4.000000E-04 G 0.0 5.770090E-04 0.0 0.0 0.0 0.0 4.500001E-04 G 0.0 6.979917E-04 0.0 0.0 0.0 0.0 5.000001E-04 G 0.0 8.458955E-04 0.0 0.0 0.0 0.0 5.500000E-04 G 0.0 1.022699E-03 0.0 0.0 0.0 0.0 5.999999E-04 G 0.0 1.168644E-03 0.0 0.0 0.0 0.0 6.499998E-04 G 0.0 1.299522E-03 0.0 0.0 0.0 0.0 6.999997E-04 G 0.0 1.462166E-03 0.0 0.0 0.0 0.0 7.499997E-04 G 0.0 1.619047E-03 0.0 0.0 0.0 0.0 7.999996E-04 G 0.0 1.732787E-03 0.0 0.0 0.0 0.0 8.499995E-04 G 0.0 1.832736E-03 0.0 0.0 0.0 0.0 8.999994E-04 G 0.0 1.904510E-03 0.0 0.0 0.0 0.0 9.499993E-04 G 0.0 1.895809E-03 0.0 0.0 0.0 0.0 9.999992E-04 G 0.0 1.844931E-03 0.0 0.0 0.0 0.0 1.049999E-03 G 0.0 1.825204E-03 0.0 0.0 0.0 0.0 1.099999E-03 G 0.0 1.831445E-03 0.0 0.0 0.0 0.0 1.149999E-03 G 0.0 1.837657E-03 0.0 0.0 0.0 0.0 1.199999E-03 G 0.0 1.833907E-03 0.0 0.0 0.0 0.0 1.249999E-03 G 0.0 1.781028E-03 0.0 0.0 0.0 0.0 1.299999E-03 G 0.0 1.669056E-03 0.0 0.0 0.0 0.0 1.349999E-03 G 0.0 1.544935E-03 0.0 0.0 0.0 0.0 1.399999E-03 G 0.0 1.399275E-03 0.0 0.0 0.0 0.0 1.449998E-03 G 0.0 1.192699E-03 0.0 0.0 0.0 0.0 1.499998E-03 G 0.0 9.921612E-04 0.0 0.0 0.0 0.0 1.549998E-03 G 0.0 8.724394E-04 0.0 0.0 0.0 0.0 1.599998E-03 G 0.0 7.688609E-04 0.0 0.0 0.0 0.0 1.649998E-03 G 0.0 6.082830E-04 0.0 0.0 0.0 0.0 1.699998E-03 G 0.0 4.335478E-04 0.0 0.0 0.0 0.0 1.749998E-03 G 0.0 2.904114E-04 0.0 0.0 0.0 0.0 1.799998E-03 G 0.0 1.655666E-04 0.0 0.0 0.0 0.0 1.849998E-03 G 0.0 6.002636E-05 0.0 0.0 0.0 0.0 1.899998E-03 G 0.0 -1.456491E-05 0.0 0.0 0.0 0.0 1.949998E-03 G 0.0 -6.333893E-05 0.0 0.0 0.0 0.0 1.999998E-03 G 0.0 -6.939578E-05 0.0 0.0 0.0 0.0 2.049997E-03 G 0.0 -2.107855E-05 0.0 0.0 0.0 0.0 2.099997E-03 G 0.0 3.314916E-05 0.0 0.0 0.0 0.0 2.149997E-03 G 0.0 4.829366E-05 0.0 0.0 0.0 0.0 2.199997E-03 G 0.0 4.518146E-05 0.0 0.0 0.0 0.0 2.249997E-03 G 0.0 6.238417E-05 0.0 0.0 0.0 0.0 2.299997E-03 G 0.0 1.187216E-04 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 5 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349997E-03 G 0.0 2.263912E-04 0.0 0.0 0.0 0.0 2.399997E-03 G 0.0 3.850113E-04 0.0 0.0 0.0 0.0 2.449997E-03 G 0.0 5.735514E-04 0.0 0.0 0.0 0.0 2.499997E-03 G 0.0 7.600574E-04 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 6 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 G 0.0 1.087578E-11 0.0 0.0 0.0 0.0 1.000000E-04 G 0.0 3.257620E-09 0.0 0.0 0.0 0.0 1.500000E-04 G 0.0 1.526812E-07 0.0 0.0 0.0 0.0 2.000000E-04 G 0.0 2.420559E-06 0.0 0.0 0.0 0.0 2.499999E-04 G 0.0 1.822637E-05 0.0 0.0 0.0 0.0 3.000000E-04 G 0.0 7.829530E-05 0.0 0.0 0.0 0.0 3.500000E-04 G 0.0 2.143809E-04 0.0 0.0 0.0 0.0 4.000000E-04 G 0.0 4.054841E-04 0.0 0.0 0.0 0.0 4.500001E-04 G 0.0 5.774248E-04 0.0 0.0 0.0 0.0 5.000001E-04 G 0.0 7.026414E-04 0.0 0.0 0.0 0.0 5.500000E-04 G 0.0 8.390188E-04 0.0 0.0 0.0 0.0 5.999999E-04 G 0.0 1.013169E-03 0.0 0.0 0.0 0.0 6.499998E-04 G 0.0 1.170183E-03 0.0 0.0 0.0 0.0 6.999997E-04 G 0.0 1.293157E-03 0.0 0.0 0.0 0.0 7.499997E-04 G 0.0 1.425695E-03 0.0 0.0 0.0 0.0 7.999996E-04 G 0.0 1.546502E-03 0.0 0.0 0.0 0.0 8.499995E-04 G 0.0 1.589734E-03 0.0 0.0 0.0 0.0 8.999994E-04 G 0.0 1.571685E-03 0.0 0.0 0.0 0.0 9.499993E-04 G 0.0 1.546767E-03 0.0 0.0 0.0 0.0 9.999992E-04 G 0.0 1.522272E-03 0.0 0.0 0.0 0.0 1.049999E-03 G 0.0 1.514780E-03 0.0 0.0 0.0 0.0 1.099999E-03 G 0.0 1.546646E-03 0.0 0.0 0.0 0.0 1.149999E-03 G 0.0 1.564135E-03 0.0 0.0 0.0 0.0 1.199999E-03 G 0.0 1.523388E-03 0.0 0.0 0.0 0.0 1.249999E-03 G 0.0 1.484020E-03 0.0 0.0 0.0 0.0 1.299999E-03 G 0.0 1.470882E-03 0.0 0.0 0.0 0.0 1.349999E-03 G 0.0 1.400412E-03 0.0 0.0 0.0 0.0 1.399999E-03 G 0.0 1.242592E-03 0.0 0.0 0.0 0.0 1.449998E-03 G 0.0 1.064154E-03 0.0 0.0 0.0 0.0 1.499998E-03 G 0.0 8.917614E-04 0.0 0.0 0.0 0.0 1.549998E-03 G 0.0 7.138719E-04 0.0 0.0 0.0 0.0 1.599998E-03 G 0.0 5.607514E-04 0.0 0.0 0.0 0.0 1.649998E-03 G 0.0 4.455971E-04 0.0 0.0 0.0 0.0 1.699998E-03 G 0.0 3.228901E-04 0.0 0.0 0.0 0.0 1.749998E-03 G 0.0 1.733749E-04 0.0 0.0 0.0 0.0 1.799998E-03 G 0.0 3.784349E-05 0.0 0.0 0.0 0.0 1.849998E-03 G 0.0 -4.021607E-05 0.0 0.0 0.0 0.0 1.899998E-03 G 0.0 -5.447186E-05 0.0 0.0 0.0 0.0 1.949998E-03 G 0.0 -3.904450E-05 0.0 0.0 0.0 0.0 1.999998E-03 G 0.0 -2.557919E-05 0.0 0.0 0.0 0.0 2.049997E-03 G 0.0 5.525142E-07 0.0 0.0 0.0 0.0 2.099997E-03 G 0.0 4.070600E-05 0.0 0.0 0.0 0.0 2.149997E-03 G 0.0 4.067429E-05 0.0 0.0 0.0 0.0 2.199997E-03 G 0.0 -1.615970E-06 0.0 0.0 0.0 0.0 2.249997E-03 G 0.0 -2.062422E-06 0.0 0.0 0.0 0.0 2.299997E-03 G 0.0 6.757450E-05 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 6 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349997E-03 G 0.0 1.539828E-04 0.0 0.0 0.0 0.0 2.399997E-03 G 0.0 2.458527E-04 0.0 0.0 0.0 0.0 2.449997E-03 G 0.0 3.740086E-04 0.0 0.0 0.0 0.0 2.499997E-03 G 0.0 5.404555E-04 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 7 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 G 0.0 3.153026E-13 0.0 0.0 0.0 0.0 1.000000E-04 G 0.0 1.553275E-10 0.0 0.0 0.0 0.0 1.500000E-04 G 0.0 1.155158E-08 0.0 0.0 0.0 0.0 2.000000E-04 G 0.0 2.813836E-07 0.0 0.0 0.0 0.0 2.499999E-04 G 0.0 3.167648E-06 0.0 0.0 0.0 0.0 3.000000E-04 G 0.0 1.991340E-05 0.0 0.0 0.0 0.0 3.500000E-04 G 0.0 7.839515E-05 0.0 0.0 0.0 0.0 4.000000E-04 G 0.0 2.083415E-04 0.0 0.0 0.0 0.0 4.500001E-04 G 0.0 3.961596E-04 0.0 0.0 0.0 0.0 5.000001E-04 G 0.0 5.754795E-04 0.0 0.0 0.0 0.0 5.500000E-04 G 0.0 7.068404E-04 0.0 0.0 0.0 0.0 5.999999E-04 G 0.0 8.338031E-04 0.0 0.0 0.0 0.0 6.499998E-04 G 0.0 9.957476E-04 0.0 0.0 0.0 0.0 6.999997E-04 G 0.0 1.144227E-03 0.0 0.0 0.0 0.0 7.499997E-04 G 0.0 1.227323E-03 0.0 0.0 0.0 0.0 7.999996E-04 G 0.0 1.267157E-03 0.0 0.0 0.0 0.0 8.499995E-04 G 0.0 1.278539E-03 0.0 0.0 0.0 0.0 8.999994E-04 G 0.0 1.240414E-03 0.0 0.0 0.0 0.0 9.499993E-04 G 0.0 1.195498E-03 0.0 0.0 0.0 0.0 9.999992E-04 G 0.0 1.214195E-03 0.0 0.0 0.0 0.0 1.049999E-03 G 0.0 1.257169E-03 0.0 0.0 0.0 0.0 1.099999E-03 G 0.0 1.246519E-03 0.0 0.0 0.0 0.0 1.149999E-03 G 0.0 1.213978E-03 0.0 0.0 0.0 0.0 1.199999E-03 G 0.0 1.219300E-03 0.0 0.0 0.0 0.0 1.249999E-03 G 0.0 1.230964E-03 0.0 0.0 0.0 0.0 1.299999E-03 G 0.0 1.204779E-03 0.0 0.0 0.0 0.0 1.349999E-03 G 0.0 1.151292E-03 0.0 0.0 0.0 0.0 1.399999E-03 G 0.0 1.072422E-03 0.0 0.0 0.0 0.0 1.449998E-03 G 0.0 9.474939E-04 0.0 0.0 0.0 0.0 1.499998E-03 G 0.0 7.776681E-04 0.0 0.0 0.0 0.0 1.549998E-03 G 0.0 5.832962E-04 0.0 0.0 0.0 0.0 1.599998E-03 G 0.0 4.010503E-04 0.0 0.0 0.0 0.0 1.649998E-03 G 0.0 2.708975E-04 0.0 0.0 0.0 0.0 1.699998E-03 G 0.0 1.764848E-04 0.0 0.0 0.0 0.0 1.749998E-03 G 0.0 7.135930E-05 0.0 0.0 0.0 0.0 1.799998E-03 G 0.0 -2.617855E-05 0.0 0.0 0.0 0.0 1.849998E-03 G 0.0 -6.943154E-05 0.0 0.0 0.0 0.0 1.899998E-03 G 0.0 -6.338319E-05 0.0 0.0 0.0 0.0 1.949998E-03 G 0.0 -2.394991E-05 0.0 0.0 0.0 0.0 1.999998E-03 G 0.0 3.272136E-05 0.0 0.0 0.0 0.0 2.049997E-03 G 0.0 4.613730E-05 0.0 0.0 0.0 0.0 2.099997E-03 G 0.0 -1.852956E-07 0.0 0.0 0.0 0.0 2.149997E-03 G 0.0 -2.383500E-05 0.0 0.0 0.0 0.0 2.199997E-03 G 0.0 3.471048E-06 0.0 0.0 0.0 0.0 2.249997E-03 G 0.0 1.790687E-05 0.0 0.0 0.0 0.0 2.299997E-03 G 0.0 2.618293E-05 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 7 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349997E-03 G 0.0 8.152139E-05 0.0 0.0 0.0 0.0 2.399997E-03 G 0.0 1.499089E-04 0.0 0.0 0.0 0.0 2.449997E-03 G 0.0 2.141618E-04 0.0 0.0 0.0 0.0 2.499997E-03 G 0.0 3.525886E-04 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 8 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 G 0.0 8.707681E-15 0.0 0.0 0.0 0.0 1.000000E-04 G 0.0 6.665165E-12 0.0 0.0 0.0 0.0 1.500000E-04 G 0.0 7.486524E-10 0.0 0.0 0.0 0.0 2.000000E-04 G 0.0 2.686166E-08 0.0 0.0 0.0 0.0 2.499999E-04 G 0.0 4.357831E-07 0.0 0.0 0.0 0.0 3.000000E-04 G 0.0 3.879474E-06 0.0 0.0 0.0 0.0 3.500000E-04 G 0.0 2.134736E-05 0.0 0.0 0.0 0.0 4.000000E-04 G 0.0 7.845245E-05 0.0 0.0 0.0 0.0 4.500001E-04 G 0.0 2.031449E-04 0.0 0.0 0.0 0.0 5.000001E-04 G 0.0 3.870443E-04 0.0 0.0 0.0 0.0 5.500000E-04 G 0.0 5.704078E-04 0.0 0.0 0.0 0.0 5.999999E-04 G 0.0 7.034632E-04 0.0 0.0 0.0 0.0 6.499998E-04 G 0.0 8.075929E-04 0.0 0.0 0.0 0.0 6.999997E-04 G 0.0 9.161349E-04 0.0 0.0 0.0 0.0 7.499997E-04 G 0.0 9.861684E-04 0.0 0.0 0.0 0.0 7.999996E-04 G 0.0 9.653723E-04 0.0 0.0 0.0 0.0 8.499995E-04 G 0.0 9.063401E-04 0.0 0.0 0.0 0.0 8.999994E-04 G 0.0 8.965621E-04 0.0 0.0 0.0 0.0 9.499993E-04 G 0.0 9.262305E-04 0.0 0.0 0.0 0.0 9.999992E-04 G 0.0 9.370869E-04 0.0 0.0 0.0 0.0 1.049999E-03 G 0.0 9.273396E-04 0.0 0.0 0.0 0.0 1.099999E-03 G 0.0 9.201941E-04 0.0 0.0 0.0 0.0 1.149999E-03 G 0.0 9.171590E-04 0.0 0.0 0.0 0.0 1.199999E-03 G 0.0 9.223780E-04 0.0 0.0 0.0 0.0 1.249999E-03 G 0.0 9.299355E-04 0.0 0.0 0.0 0.0 1.299999E-03 G 0.0 9.129109E-04 0.0 0.0 0.0 0.0 1.349999E-03 G 0.0 8.794417E-04 0.0 0.0 0.0 0.0 1.399999E-03 G 0.0 8.507828E-04 0.0 0.0 0.0 0.0 1.449998E-03 G 0.0 7.827459E-04 0.0 0.0 0.0 0.0 1.499998E-03 G 0.0 6.365870E-04 0.0 0.0 0.0 0.0 1.549998E-03 G 0.0 4.633673E-04 0.0 0.0 0.0 0.0 1.599998E-03 G 0.0 3.028969E-04 0.0 0.0 0.0 0.0 1.649998E-03 G 0.0 1.382212E-04 0.0 0.0 0.0 0.0 1.699998E-03 G 0.0 9.179781E-06 0.0 0.0 0.0 0.0 1.749998E-03 G 0.0 -2.671063E-05 0.0 0.0 0.0 0.0 1.799998E-03 G 0.0 -2.541096E-05 0.0 0.0 0.0 0.0 1.849998E-03 G 0.0 -4.747857E-05 0.0 0.0 0.0 0.0 1.899998E-03 G 0.0 -3.960970E-05 0.0 0.0 0.0 0.0 1.949998E-03 G 0.0 1.709028E-05 0.0 0.0 0.0 0.0 1.999998E-03 G 0.0 4.144781E-05 0.0 0.0 0.0 0.0 2.049997E-03 G 0.0 1.442771E-05 0.0 0.0 0.0 0.0 2.099997E-03 G 0.0 -9.439129E-06 0.0 0.0 0.0 0.0 2.149997E-03 G 0.0 -2.106113E-05 0.0 0.0 0.0 0.0 2.199997E-03 G 0.0 -1.675159E-05 0.0 0.0 0.0 0.0 2.249997E-03 G 0.0 2.388630E-05 0.0 0.0 0.0 0.0 2.299997E-03 G 0.0 4.868495E-05 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 8 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349997E-03 G 0.0 2.036220E-05 0.0 0.0 0.0 0.0 2.399997E-03 G 0.0 3.344595E-05 0.0 0.0 0.0 0.0 2.449997E-03 G 0.0 1.427290E-04 0.0 0.0 0.0 0.0 2.499997E-03 G 0.0 2.580922E-04 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 9 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 G 0.0 2.314902E-16 0.0 0.0 0.0 0.0 1.000000E-04 G 0.0 2.631893E-13 0.0 0.0 0.0 0.0 1.500000E-04 G 0.0 4.290089E-11 0.0 0.0 0.0 0.0 2.000000E-04 G 0.0 2.189165E-09 0.0 0.0 0.0 0.0 2.499999E-04 G 0.0 4.961188E-08 0.0 0.0 0.0 0.0 3.000000E-04 G 0.0 6.078089E-07 0.0 0.0 0.0 0.0 3.500000E-04 G 0.0 4.550438E-06 0.0 0.0 0.0 0.0 4.000000E-04 G 0.0 2.256515E-05 0.0 0.0 0.0 0.0 4.500001E-04 G 0.0 7.827295E-05 0.0 0.0 0.0 0.0 5.000001E-04 G 0.0 1.972910E-04 0.0 0.0 0.0 0.0 5.500000E-04 G 0.0 3.720793E-04 0.0 0.0 0.0 0.0 5.999999E-04 G 0.0 5.410545E-04 0.0 0.0 0.0 0.0 6.499998E-04 G 0.0 6.351427E-04 0.0 0.0 0.0 0.0 6.999997E-04 G 0.0 6.503619E-04 0.0 0.0 0.0 0.0 7.499997E-04 G 0.0 6.361293E-04 0.0 0.0 0.0 0.0 7.999996E-04 G 0.0 6.189972E-04 0.0 0.0 0.0 0.0 8.499995E-04 G 0.0 5.992511E-04 0.0 0.0 0.0 0.0 8.999994E-04 G 0.0 5.995667E-04 0.0 0.0 0.0 0.0 9.499993E-04 G 0.0 6.283686E-04 0.0 0.0 0.0 0.0 9.999992E-04 G 0.0 6.361218E-04 0.0 0.0 0.0 0.0 1.049999E-03 G 0.0 6.043566E-04 0.0 0.0 0.0 0.0 1.099999E-03 G 0.0 5.965423E-04 0.0 0.0 0.0 0.0 1.149999E-03 G 0.0 6.297549E-04 0.0 0.0 0.0 0.0 1.199999E-03 G 0.0 6.320713E-04 0.0 0.0 0.0 0.0 1.249999E-03 G 0.0 5.980515E-04 0.0 0.0 0.0 0.0 1.299999E-03 G 0.0 6.008837E-04 0.0 0.0 0.0 0.0 1.349999E-03 G 0.0 6.229222E-04 0.0 0.0 0.0 0.0 1.399999E-03 G 0.0 5.883801E-04 0.0 0.0 0.0 0.0 1.449998E-03 G 0.0 5.232111E-04 0.0 0.0 0.0 0.0 1.499998E-03 G 0.0 4.699622E-04 0.0 0.0 0.0 0.0 1.549998E-03 G 0.0 3.666830E-04 0.0 0.0 0.0 0.0 1.599998E-03 G 0.0 1.907498E-04 0.0 0.0 0.0 0.0 1.649998E-03 G 0.0 3.801639E-05 0.0 0.0 0.0 0.0 1.699998E-03 G 0.0 -4.405231E-05 0.0 0.0 0.0 0.0 1.749998E-03 G 0.0 -8.537614E-05 0.0 0.0 0.0 0.0 1.799998E-03 G 0.0 -6.713336E-05 0.0 0.0 0.0 0.0 1.849998E-03 G 0.0 1.112992E-05 0.0 0.0 0.0 0.0 1.899998E-03 G 0.0 5.060121E-05 0.0 0.0 0.0 0.0 1.949998E-03 G 0.0 1.419498E-05 0.0 0.0 0.0 0.0 1.999998E-03 G 0.0 -1.362794E-05 0.0 0.0 0.0 0.0 2.049997E-03 G 0.0 -4.789818E-06 0.0 0.0 0.0 0.0 2.099997E-03 G 0.0 -6.133149E-06 0.0 0.0 0.0 0.0 2.149997E-03 G 0.0 -7.041352E-06 0.0 0.0 0.0 0.0 2.199997E-03 G 0.0 1.261559E-05 0.0 0.0 0.0 0.0 2.249997E-03 G 0.0 1.332584E-05 0.0 0.0 0.0 0.0 2.299997E-03 G 0.0 -4.506755E-06 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 9 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349997E-03 G 0.0 7.490363E-06 0.0 0.0 0.0 0.0 2.399997E-03 G 0.0 3.917596E-05 0.0 0.0 0.0 0.0 2.449997E-03 G 0.0 6.716183E-05 0.0 0.0 0.0 0.0 2.499997E-03 G 0.0 1.243201E-04 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 10 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 G 0.0 5.964350E-18 0.0 0.0 0.0 0.0 1.000000E-04 G 0.0 9.705293E-15 0.0 0.0 0.0 0.0 1.500000E-04 G 0.0 2.219382E-12 0.0 0.0 0.0 0.0 2.000000E-04 G 0.0 1.561389E-10 0.0 0.0 0.0 0.0 2.499999E-04 G 0.0 4.800704E-09 0.0 0.0 0.0 0.0 3.000000E-04 G 0.0 7.863795E-08 0.0 0.0 0.0 0.0 3.500000E-04 G 0.0 7.770418E-07 0.0 0.0 0.0 0.0 4.000000E-04 G 0.0 5.027257E-06 0.0 0.0 0.0 0.0 4.500001E-04 G 0.0 2.249439E-05 0.0 0.0 0.0 0.0 5.000001E-04 G 0.0 7.212670E-05 0.0 0.0 0.0 0.0 5.500000E-04 G 0.0 1.691769E-04 0.0 0.0 0.0 0.0 5.999999E-04 G 0.0 2.927386E-04 0.0 0.0 0.0 0.0 6.499998E-04 G 0.0 3.740800E-04 0.0 0.0 0.0 0.0 6.999997E-04 G 0.0 3.580626E-04 0.0 0.0 0.0 0.0 7.499997E-04 G 0.0 2.870634E-04 0.0 0.0 0.0 0.0 7.999996E-04 G 0.0 2.655171E-04 0.0 0.0 0.0 0.0 8.499995E-04 G 0.0 3.139385E-04 0.0 0.0 0.0 0.0 8.999994E-04 G 0.0 3.412310E-04 0.0 0.0 0.0 0.0 9.499993E-04 G 0.0 3.049838E-04 0.0 0.0 0.0 0.0 9.999992E-04 G 0.0 2.815182E-04 0.0 0.0 0.0 0.0 1.049999E-03 G 0.0 3.126872E-04 0.0 0.0 0.0 0.0 1.099999E-03 G 0.0 3.293193E-04 0.0 0.0 0.0 0.0 1.149999E-03 G 0.0 3.002713E-04 0.0 0.0 0.0 0.0 1.199999E-03 G 0.0 2.916028E-04 0.0 0.0 0.0 0.0 1.249999E-03 G 0.0 3.184845E-04 0.0 0.0 0.0 0.0 1.299999E-03 G 0.0 3.178675E-04 0.0 0.0 0.0 0.0 1.349999E-03 G 0.0 2.913264E-04 0.0 0.0 0.0 0.0 1.399999E-03 G 0.0 2.915993E-04 0.0 0.0 0.0 0.0 1.449998E-03 G 0.0 2.933015E-04 0.0 0.0 0.0 0.0 1.499998E-03 G 0.0 2.458934E-04 0.0 0.0 0.0 0.0 1.549998E-03 G 0.0 1.765591E-04 0.0 0.0 0.0 0.0 1.599998E-03 G 0.0 1.112496E-04 0.0 0.0 0.0 0.0 1.649998E-03 G 0.0 2.281877E-05 0.0 0.0 0.0 0.0 1.699998E-03 G 0.0 -6.526028E-05 0.0 0.0 0.0 0.0 1.749998E-03 G 0.0 -8.102413E-05 0.0 0.0 0.0 0.0 1.799998E-03 G 0.0 -3.032456E-05 0.0 0.0 0.0 0.0 1.849998E-03 G 0.0 2.086399E-05 0.0 0.0 0.0 0.0 1.899998E-03 G 0.0 4.397599E-05 0.0 0.0 0.0 0.0 1.949998E-03 G 0.0 3.012359E-05 0.0 0.0 0.0 0.0 1.999998E-03 G 0.0 -1.949833E-05 0.0 0.0 0.0 0.0 2.049997E-03 G 0.0 -4.532779E-05 0.0 0.0 0.0 0.0 2.099997E-03 G 0.0 -3.716559E-06 0.0 0.0 0.0 0.0 2.149997E-03 G 0.0 3.892757E-05 0.0 0.0 0.0 0.0 2.199997E-03 G 0.0 1.579490E-05 0.0 0.0 0.0 0.0 2.249997E-03 G 0.0 -2.434375E-05 0.0 0.0 0.0 0.0 2.299997E-03 G 0.0 -1.674356E-05 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 10 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349997E-03 G 0.0 1.690695E-05 0.0 0.0 0.0 0.0 2.399997E-03 G 0.0 3.126211E-05 0.0 0.0 0.0 0.0 2.449997E-03 G 0.0 2.632112E-05 0.0 0.0 0.0 0.0 2.499997E-03 G 0.0 3.563478E-05 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 11 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 0.0 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 G 0.0 0.0 0.0 0.0 0.0 0.0 1.000000E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 1.500000E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 2.000000E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 2.499999E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 3.000000E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 3.500000E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 4.000000E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 4.500001E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 5.000001E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 5.500000E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 5.999999E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 6.499998E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 6.999997E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 7.499997E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 7.999996E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 8.499995E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 8.999994E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 9.499993E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 9.999992E-04 G 0.0 0.0 0.0 0.0 0.0 0.0 1.049999E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.099999E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.149999E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.199999E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.249999E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.299999E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.349999E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.399999E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.449998E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.499998E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.549998E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.599998E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.649998E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.699998E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.749998E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.799998E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.849998E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.899998E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.949998E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1.999998E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 2.049997E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 2.099997E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 2.149997E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 2.199997E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 2.249997E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 2.299997E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 POINT-ID = 11 D I S P L A C E M E N T V E C T O R TIME TYPE T1 T2 T3 R1 R2 R3 2.349997E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 2.399997E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 2.449997E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 2.499997E-03 G 0.0 0.0 0.0 0.0 0.0 0.0 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 0.0 0.0 0.0 0.0 -7.224616E+01 -7.224616E+01 -7.224616E+01 0.0 0.0 0.0 0.0 -7.224616E+01 -7.224616E+01 1.000000E-04 0.0 0.0 0.0 0.0 -2.056059E+02 -2.056059E+02 -2.056059E+02 0.0 0.0 0.0 0.0 -2.056059E+02 -2.056059E+02 1.500000E-04 0.0 0.0 0.0 0.0 -1.679507E+02 -1.679507E+02 -1.679507E+02 0.0 0.0 0.0 0.0 -1.679507E+02 -1.679507E+02 2.000000E-04 0.0 0.0 0.0 0.0 -1.103880E+02 -1.103880E+02 -1.103880E+02 0.0 0.0 0.0 0.0 -1.103880E+02 -1.103880E+02 2.499999E-04 0.0 0.0 0.0 0.0 -1.694993E+02 -1.694993E+02 -1.694993E+02 0.0 0.0 0.0 0.0 -1.694993E+02 -1.694993E+02 3.000000E-04 0.0 0.0 0.0 0.0 -1.798594E+02 -1.798594E+02 -1.798594E+02 0.0 0.0 0.0 0.0 -1.798594E+02 -1.798594E+02 3.500000E-04 0.0 0.0 0.0 0.0 -1.251001E+02 -1.251001E+02 -1.251001E+02 0.0 0.0 0.0 0.0 -1.251001E+02 -1.251001E+02 4.000000E-04 0.0 0.0 0.0 0.0 -1.497067E+02 -1.497067E+02 -1.497067E+02 0.0 0.0 0.0 0.0 -1.497067E+02 -1.497067E+02 4.500001E-04 0.0 0.0 0.0 0.0 -1.821079E+02 -1.821079E+02 -1.821079E+02 0.0 0.0 0.0 0.0 -1.821079E+02 -1.821079E+02 5.000001E-04 0.0 0.0 0.0 0.0 -1.401677E+02 -1.401677E+02 -1.401677E+02 0.0 0.0 0.0 0.0 -1.401677E+02 -1.401677E+02 5.500000E-04 0.0 0.0 0.0 0.0 -1.374182E+02 -1.374182E+02 -1.374182E+02 0.0 0.0 0.0 0.0 -1.374182E+02 -1.374182E+02 5.999999E-04 0.0 0.0 0.0 0.0 -1.771618E+02 -1.771618E+02 -1.771618E+02 0.0 0.0 0.0 0.0 -1.771618E+02 -1.771618E+02 6.499998E-04 0.0 0.0 0.0 0.0 -1.545065E+02 -1.545065E+02 -1.545065E+02 0.0 0.0 0.0 0.0 -1.545065E+02 -1.545065E+02 6.999997E-04 0.0 0.0 0.0 0.0 -1.323107E+02 -1.323107E+02 -1.323107E+02 0.0 0.0 0.0 0.0 -1.323107E+02 -1.323107E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 44 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 7.499997E-04 0.0 0.0 0.0 0.0 -1.675385E+02 -1.675385E+02 -1.675385E+02 0.0 0.0 0.0 0.0 -1.675385E+02 -1.675385E+02 7.999996E-04 0.0 0.0 0.0 0.0 -1.660458E+02 -1.660458E+02 -1.660458E+02 0.0 0.0 0.0 0.0 -1.660458E+02 -1.660458E+02 8.499995E-04 0.0 0.0 0.0 0.0 -1.353806E+02 -1.353806E+02 -1.353806E+02 0.0 0.0 0.0 0.0 -1.353806E+02 -1.353806E+02 8.999994E-04 0.0 0.0 0.0 0.0 -1.607993E+02 -1.607993E+02 -1.607993E+02 0.0 0.0 0.0 0.0 -1.607993E+02 -1.607993E+02 9.499993E-04 0.0 0.0 0.0 0.0 -1.844503E+02 -1.844503E+02 -1.844503E+02 0.0 0.0 0.0 0.0 -1.844503E+02 -1.844503E+02 9.999992E-04 0.0 0.0 0.0 0.0 -1.676941E+02 -1.676941E+02 -1.676941E+02 0.0 0.0 0.0 0.0 -1.676941E+02 -1.676941E+02 1.049999E-03 0.0 0.0 0.0 0.0 -1.910265E+02 -1.910265E+02 -1.910265E+02 0.0 0.0 0.0 0.0 -1.910265E+02 -1.910265E+02 1.099999E-03 0.0 0.0 0.0 0.0 -2.286683E+02 -2.286683E+02 -2.286683E+02 0.0 0.0 0.0 0.0 -2.286683E+02 -2.286683E+02 1.149999E-03 0.0 0.0 0.0 0.0 -1.957423E+02 -1.957423E+02 -1.957423E+02 0.0 0.0 0.0 0.0 -1.957423E+02 -1.957423E+02 1.199999E-03 0.0 0.0 0.0 0.0 -1.470977E+02 -1.470977E+02 -1.470977E+02 0.0 0.0 0.0 0.0 -1.470977E+02 -1.470977E+02 1.249999E-03 0.0 0.0 0.0 0.0 -1.339716E+02 -1.339716E+02 -1.339716E+02 0.0 0.0 0.0 0.0 -1.339716E+02 -1.339716E+02 1.299999E-03 0.0 0.0 0.0 0.0 -1.199737E+02 -1.199737E+02 -1.199737E+02 0.0 0.0 0.0 0.0 -1.199737E+02 -1.199737E+02 1.349999E-03 0.0 0.0 0.0 0.0 -1.359108E+02 -1.359108E+02 -1.359108E+02 0.0 0.0 0.0 0.0 -1.359108E+02 -1.359108E+02 1.399999E-03 0.0 0.0 0.0 0.0 -1.952851E+02 -1.952851E+02 -1.952851E+02 0.0 0.0 0.0 0.0 -1.952851E+02 -1.952851E+02 1.449998E-03 0.0 0.0 0.0 0.0 -1.895343E+02 -1.895343E+02 -1.895343E+02 0.0 0.0 0.0 0.0 -1.895343E+02 -1.895343E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 45 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.499998E-03 0.0 0.0 0.0 0.0 -1.184835E+02 -1.184835E+02 -1.184835E+02 0.0 0.0 0.0 0.0 -1.184835E+02 -1.184835E+02 1.549998E-03 0.0 0.0 0.0 0.0 -1.193286E+02 -1.193286E+02 -1.193286E+02 0.0 0.0 0.0 0.0 -1.193286E+02 -1.193286E+02 1.599998E-03 0.0 0.0 0.0 0.0 -1.794965E+02 -1.794965E+02 -1.794965E+02 0.0 0.0 0.0 0.0 -1.794965E+02 -1.794965E+02 1.649998E-03 0.0 0.0 0.0 0.0 -1.802325E+02 -1.802325E+02 -1.802325E+02 0.0 0.0 0.0 0.0 -1.802325E+02 -1.802325E+02 1.699998E-03 0.0 0.0 0.0 0.0 -1.405581E+02 -1.405581E+02 -1.405581E+02 0.0 0.0 0.0 0.0 -1.405581E+02 -1.405581E+02 1.749998E-03 0.0 0.0 0.0 0.0 -1.349165E+02 -1.349165E+02 -1.349165E+02 0.0 0.0 0.0 0.0 -1.349165E+02 -1.349165E+02 1.799998E-03 0.0 0.0 0.0 0.0 -1.542126E+02 -1.542126E+02 -1.542126E+02 0.0 0.0 0.0 0.0 -1.542126E+02 -1.542126E+02 1.849998E-03 0.0 0.0 0.0 0.0 -1.687416E+02 -1.687416E+02 -1.687416E+02 0.0 0.0 0.0 0.0 -1.687416E+02 -1.687416E+02 1.899998E-03 0.0 0.0 0.0 0.0 -1.574339E+02 -1.574339E+02 -1.574339E+02 0.0 0.0 0.0 0.0 -1.574339E+02 -1.574339E+02 1.949998E-03 0.0 0.0 0.0 0.0 -1.224171E+02 -1.224171E+02 -1.224171E+02 0.0 0.0 0.0 0.0 -1.224171E+02 -1.224171E+02 1.999998E-03 0.0 0.0 0.0 0.0 -1.224836E+02 -1.224836E+02 -1.224836E+02 0.0 0.0 0.0 0.0 -1.224836E+02 -1.224836E+02 2.049997E-03 0.0 0.0 0.0 0.0 -1.518740E+02 -1.518740E+02 -1.518740E+02 0.0 0.0 0.0 0.0 -1.518740E+02 -1.518740E+02 2.099997E-03 0.0 0.0 0.0 0.0 -1.212529E+02 -1.212529E+02 -1.212529E+02 0.0 0.0 0.0 0.0 -1.212529E+02 -1.212529E+02 2.149997E-03 0.0 0.0 0.0 0.0 -7.373194E+01 -7.373194E+01 -7.373194E+01 0.0 0.0 0.0 0.0 -7.373194E+01 -7.373194E+01 2.199997E-03 0.0 0.0 0.0 0.0 -1.199711E+02 -1.199711E+02 -1.199711E+02 0.0 0.0 0.0 0.0 -1.199711E+02 -1.199711E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 46 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.249997E-03 0.0 0.0 0.0 0.0 -1.795365E+02 -1.795365E+02 -1.795365E+02 0.0 0.0 0.0 0.0 -1.795365E+02 -1.795365E+02 2.299997E-03 0.0 0.0 0.0 0.0 -1.569892E+02 -1.569892E+02 -1.569892E+02 0.0 0.0 0.0 0.0 -1.569892E+02 -1.569892E+02 2.349997E-03 0.0 0.0 0.0 0.0 -1.564501E+02 -1.564501E+02 -1.564501E+02 0.0 0.0 0.0 0.0 -1.564501E+02 -1.564501E+02 2.399997E-03 0.0 0.0 0.0 0.0 -2.057881E+02 -2.057881E+02 -2.057881E+02 0.0 0.0 0.0 0.0 -2.057881E+02 -2.057881E+02 2.449997E-03 0.0 0.0 0.0 0.0 -1.695976E+02 -1.695976E+02 -1.695976E+02 0.0 0.0 0.0 0.0 -1.695976E+02 -1.695976E+02 2.499997E-03 0.0 0.0 0.0 0.0 -9.089145E+01 -9.089145E+01 -9.089145E+01 0.0 0.0 0.0 0.0 -9.089145E+01 -9.089145E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 47 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 2 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 0.0 0.0 0.0 0.0 -5.398514E+00 -5.398514E+00 -5.398514E+00 0.0 0.0 0.0 0.0 -5.398514E+00 -5.398514E+00 1.000000E-04 0.0 0.0 0.0 0.0 -6.738840E+01 -6.738840E+01 -6.738840E+01 0.0 0.0 0.0 0.0 -6.738840E+01 -6.738840E+01 1.500000E-04 0.0 0.0 0.0 0.0 -1.808262E+02 -1.808262E+02 -1.808262E+02 0.0 0.0 0.0 0.0 -1.808262E+02 -1.808262E+02 2.000000E-04 0.0 0.0 0.0 0.0 -1.935981E+02 -1.935981E+02 -1.935981E+02 0.0 0.0 0.0 0.0 -1.935981E+02 -1.935981E+02 2.499999E-04 0.0 0.0 0.0 0.0 -1.223971E+02 -1.223971E+02 -1.223971E+02 0.0 0.0 0.0 0.0 -1.223971E+02 -1.223971E+02 3.000000E-04 0.0 0.0 0.0 0.0 -1.380389E+02 -1.380389E+02 -1.380389E+02 0.0 0.0 0.0 0.0 -1.380389E+02 -1.380389E+02 3.500000E-04 0.0 0.0 0.0 0.0 -1.874152E+02 -1.874152E+02 -1.874152E+02 0.0 0.0 0.0 0.0 -1.874152E+02 -1.874152E+02 4.000000E-04 0.0 0.0 0.0 0.0 -1.496351E+02 -1.496351E+02 -1.496351E+02 0.0 0.0 0.0 0.0 -1.496351E+02 -1.496351E+02 4.500001E-04 0.0 0.0 0.0 0.0 -1.276117E+02 -1.276117E+02 -1.276117E+02 0.0 0.0 0.0 0.0 -1.276117E+02 -1.276117E+02 5.000001E-04 0.0 0.0 0.0 0.0 -1.730654E+02 -1.730654E+02 -1.730654E+02 0.0 0.0 0.0 0.0 -1.730654E+02 -1.730654E+02 5.500000E-04 0.0 0.0 0.0 0.0 -1.664070E+02 -1.664070E+02 -1.664070E+02 0.0 0.0 0.0 0.0 -1.664070E+02 -1.664070E+02 5.999999E-04 0.0 0.0 0.0 0.0 -1.293490E+02 -1.293490E+02 -1.293490E+02 0.0 0.0 0.0 0.0 -1.293490E+02 -1.293490E+02 6.499998E-04 0.0 0.0 0.0 0.0 -1.576685E+02 -1.576685E+02 -1.576685E+02 0.0 0.0 0.0 0.0 -1.576685E+02 -1.576685E+02 6.999997E-04 0.0 0.0 0.0 0.0 -1.745716E+02 -1.745716E+02 -1.745716E+02 0.0 0.0 0.0 0.0 -1.745716E+02 -1.745716E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 48 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 2 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 7.499997E-04 0.0 0.0 0.0 0.0 -1.384102E+02 -1.384102E+02 -1.384102E+02 0.0 0.0 0.0 0.0 -1.384102E+02 -1.384102E+02 7.999996E-04 0.0 0.0 0.0 0.0 -1.467918E+02 -1.467918E+02 -1.467918E+02 0.0 0.0 0.0 0.0 -1.467918E+02 -1.467918E+02 8.499995E-04 0.0 0.0 0.0 0.0 -1.813610E+02 -1.813610E+02 -1.813610E+02 0.0 0.0 0.0 0.0 -1.813610E+02 -1.813610E+02 8.999994E-04 0.0 0.0 0.0 0.0 -1.686990E+02 -1.686990E+02 -1.686990E+02 0.0 0.0 0.0 0.0 -1.686990E+02 -1.686990E+02 9.499993E-04 0.0 0.0 0.0 0.0 -1.824732E+02 -1.824732E+02 -1.824732E+02 0.0 0.0 0.0 0.0 -1.824732E+02 -1.824732E+02 9.999992E-04 0.0 0.0 0.0 0.0 -2.549203E+02 -2.549203E+02 -2.549203E+02 0.0 0.0 0.0 0.0 -2.549203E+02 -2.549203E+02 1.049999E-03 0.0 0.0 0.0 0.0 -2.898059E+02 -2.898059E+02 -2.898059E+02 0.0 0.0 0.0 0.0 -2.898059E+02 -2.898059E+02 1.099999E-03 0.0 0.0 0.0 0.0 -2.812839E+02 -2.812839E+02 -2.812839E+02 0.0 0.0 0.0 0.0 -2.812839E+02 -2.812839E+02 1.149999E-03 0.0 0.0 0.0 0.0 -2.653417E+02 -2.653417E+02 -2.653417E+02 0.0 0.0 0.0 0.0 -2.653417E+02 -2.653417E+02 1.199999E-03 0.0 0.0 0.0 0.0 -1.857069E+02 -1.857069E+02 -1.857069E+02 0.0 0.0 0.0 0.0 -1.857069E+02 -1.857069E+02 1.249999E-03 0.0 0.0 0.0 0.0 -7.921290E+01 -7.921290E+01 -7.921290E+01 0.0 0.0 0.0 0.0 -7.921290E+01 -7.921290E+01 1.299999E-03 0.0 0.0 0.0 0.0 -8.361956E+01 -8.361956E+01 -8.361956E+01 0.0 0.0 0.0 0.0 -8.361956E+01 -8.361956E+01 1.349999E-03 0.0 0.0 0.0 0.0 -1.662930E+02 -1.662930E+02 -1.662930E+02 0.0 0.0 0.0 0.0 -1.662930E+02 -1.662930E+02 1.399999E-03 0.0 0.0 0.0 0.0 -1.944762E+02 -1.944762E+02 -1.944762E+02 0.0 0.0 0.0 0.0 -1.944762E+02 -1.944762E+02 1.449998E-03 0.0 0.0 0.0 0.0 -1.708406E+02 -1.708406E+02 -1.708406E+02 0.0 0.0 0.0 0.0 -1.708406E+02 -1.708406E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 49 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 2 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.499998E-03 0.0 0.0 0.0 0.0 -1.456030E+02 -1.456030E+02 -1.456030E+02 0.0 0.0 0.0 0.0 -1.456030E+02 -1.456030E+02 1.549998E-03 0.0 0.0 0.0 0.0 -1.267433E+02 -1.267433E+02 -1.267433E+02 0.0 0.0 0.0 0.0 -1.267433E+02 -1.267433E+02 1.599998E-03 0.0 0.0 0.0 0.0 -1.463748E+02 -1.463748E+02 -1.463748E+02 0.0 0.0 0.0 0.0 -1.463748E+02 -1.463748E+02 1.649998E-03 0.0 0.0 0.0 0.0 -1.848017E+02 -1.848017E+02 -1.848017E+02 0.0 0.0 0.0 0.0 -1.848017E+02 -1.848017E+02 1.699998E-03 0.0 0.0 0.0 0.0 -1.626489E+02 -1.626489E+02 -1.626489E+02 0.0 0.0 0.0 0.0 -1.626489E+02 -1.626489E+02 1.749998E-03 0.0 0.0 0.0 0.0 -1.224920E+02 -1.224920E+02 -1.224920E+02 0.0 0.0 0.0 0.0 -1.224920E+02 -1.224920E+02 1.799998E-03 0.0 0.0 0.0 0.0 -1.485930E+02 -1.485930E+02 -1.485930E+02 0.0 0.0 0.0 0.0 -1.485930E+02 -1.485930E+02 1.849998E-03 0.0 0.0 0.0 0.0 -1.707942E+02 -1.707942E+02 -1.707942E+02 0.0 0.0 0.0 0.0 -1.707942E+02 -1.707942E+02 1.899998E-03 0.0 0.0 0.0 0.0 -1.295231E+02 -1.295231E+02 -1.295231E+02 0.0 0.0 0.0 0.0 -1.295231E+02 -1.295231E+02 1.949998E-03 0.0 0.0 0.0 0.0 -1.037998E+02 -1.037998E+02 -1.037998E+02 0.0 0.0 0.0 0.0 -1.037998E+02 -1.037998E+02 1.999998E-03 0.0 0.0 0.0 0.0 -1.049731E+02 -1.049731E+02 -1.049731E+02 0.0 0.0 0.0 0.0 -1.049731E+02 -1.049731E+02 2.049997E-03 0.0 0.0 0.0 0.0 -6.533974E+01 -6.533974E+01 -6.533974E+01 0.0 0.0 0.0 0.0 -6.533974E+01 -6.533974E+01 2.099997E-03 0.0 0.0 0.0 0.0 -2.578802E+01 -2.578802E+01 -2.578802E+01 0.0 0.0 0.0 0.0 -2.578802E+01 -2.578802E+01 2.149997E-03 0.0 0.0 0.0 0.0 -4.067896E+01 -4.067896E+01 -4.067896E+01 0.0 0.0 0.0 0.0 -4.067896E+01 -4.067896E+01 2.199997E-03 0.0 0.0 0.0 0.0 -6.859064E+01 -6.859064E+01 -6.859064E+01 0.0 0.0 0.0 0.0 -6.859064E+01 -6.859064E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 50 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 2 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.249997E-03 0.0 0.0 0.0 0.0 -1.125380E+02 -1.125380E+02 -1.125380E+02 0.0 0.0 0.0 0.0 -1.125380E+02 -1.125380E+02 2.299997E-03 0.0 0.0 0.0 0.0 -1.981380E+02 -1.981380E+02 -1.981380E+02 0.0 0.0 0.0 0.0 -1.981380E+02 -1.981380E+02 2.349997E-03 0.0 0.0 0.0 0.0 -2.407896E+02 -2.407896E+02 -2.407896E+02 0.0 0.0 0.0 0.0 -2.407896E+02 -2.407896E+02 2.399997E-03 0.0 0.0 0.0 0.0 -1.922759E+02 -1.922759E+02 -1.922759E+02 0.0 0.0 0.0 0.0 -1.922759E+02 -1.922759E+02 2.449997E-03 0.0 0.0 0.0 0.0 -1.382183E+02 -1.382183E+02 -1.382183E+02 0.0 0.0 0.0 0.0 -1.382183E+02 -1.382183E+02 2.499997E-03 0.0 0.0 0.0 0.0 -1.184416E+02 -1.184416E+02 -1.184416E+02 0.0 0.0 0.0 0.0 -1.184416E+02 -1.184416E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 51 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 3 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 0.0 0.0 0.0 0.0 -2.601255E-01 -2.601255E-01 -2.601255E-01 0.0 0.0 0.0 0.0 -2.601255E-01 -2.601255E-01 1.000000E-04 0.0 0.0 0.0 0.0 -9.454386E+00 -9.454386E+00 -9.454386E+00 0.0 0.0 0.0 0.0 -9.454386E+00 -9.454386E+00 1.500000E-04 0.0 0.0 0.0 0.0 -6.414166E+01 -6.414166E+01 -6.414166E+01 0.0 0.0 0.0 0.0 -6.414166E+01 -6.414166E+01 2.000000E-04 0.0 0.0 0.0 0.0 -1.643650E+02 -1.643650E+02 -1.643650E+02 0.0 0.0 0.0 0.0 -1.643650E+02 -1.643650E+02 2.499999E-04 0.0 0.0 0.0 0.0 -2.018346E+02 -2.018346E+02 -2.018346E+02 0.0 0.0 0.0 0.0 -2.018346E+02 -2.018346E+02 3.000000E-04 0.0 0.0 0.0 0.0 -1.414298E+02 -1.414298E+02 -1.414298E+02 0.0 0.0 0.0 0.0 -1.414298E+02 -1.414298E+02 3.500000E-04 0.0 0.0 0.0 0.0 -1.217714E+02 -1.217714E+02 -1.217714E+02 0.0 0.0 0.0 0.0 -1.217714E+02 -1.217714E+02 4.000000E-04 0.0 0.0 0.0 0.0 -1.755510E+02 -1.755510E+02 -1.755510E+02 0.0 0.0 0.0 0.0 -1.755510E+02 -1.755510E+02 4.500001E-04 0.0 0.0 0.0 0.0 -1.718239E+02 -1.718239E+02 -1.718239E+02 0.0 0.0 0.0 0.0 -1.718239E+02 -1.718239E+02 5.000001E-04 0.0 0.0 0.0 0.0 -1.271678E+02 -1.271678E+02 -1.271678E+02 0.0 0.0 0.0 0.0 -1.271678E+02 -1.271678E+02 5.500000E-04 0.0 0.0 0.0 0.0 -1.518185E+02 -1.518185E+02 -1.518185E+02 0.0 0.0 0.0 0.0 -1.518185E+02 -1.518185E+02 5.999999E-04 0.0 0.0 0.0 0.0 -1.791517E+02 -1.791517E+02 -1.791517E+02 0.0 0.0 0.0 0.0 -1.791517E+02 -1.791517E+02 6.499998E-04 0.0 0.0 0.0 0.0 -1.423455E+02 -1.423455E+02 -1.423455E+02 0.0 0.0 0.0 0.0 -1.423455E+02 -1.423455E+02 6.999997E-04 0.0 0.0 0.0 0.0 -1.380404E+02 -1.380404E+02 -1.380404E+02 0.0 0.0 0.0 0.0 -1.380404E+02 -1.380404E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 52 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 3 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 7.499997E-04 0.0 0.0 0.0 0.0 -1.759924E+02 -1.759924E+02 -1.759924E+02 0.0 0.0 0.0 0.0 -1.759924E+02 -1.759924E+02 7.999996E-04 0.0 0.0 0.0 0.0 -1.639526E+02 -1.639526E+02 -1.639526E+02 0.0 0.0 0.0 0.0 -1.639526E+02 -1.639526E+02 8.499995E-04 0.0 0.0 0.0 0.0 -1.528135E+02 -1.528135E+02 -1.528135E+02 0.0 0.0 0.0 0.0 -1.528135E+02 -1.528135E+02 8.999994E-04 0.0 0.0 0.0 0.0 -2.111810E+02 -2.111810E+02 -2.111810E+02 0.0 0.0 0.0 0.0 -2.111810E+02 -2.111810E+02 9.499993E-04 0.0 0.0 0.0 0.0 -2.625348E+02 -2.625348E+02 -2.625348E+02 0.0 0.0 0.0 0.0 -2.625348E+02 -2.625348E+02 9.999992E-04 0.0 0.0 0.0 0.0 -2.864009E+02 -2.864009E+02 -2.864009E+02 0.0 0.0 0.0 0.0 -2.864009E+02 -2.864009E+02 1.049999E-03 0.0 0.0 0.0 0.0 -3.370405E+02 -3.370405E+02 -3.370405E+02 0.0 0.0 0.0 0.0 -3.370405E+02 -3.370405E+02 1.099999E-03 0.0 0.0 0.0 0.0 -3.446283E+02 -3.446283E+02 -3.446283E+02 0.0 0.0 0.0 0.0 -3.446283E+02 -3.446283E+02 1.149999E-03 0.0 0.0 0.0 0.0 -2.550201E+02 -2.550201E+02 -2.550201E+02 0.0 0.0 0.0 0.0 -2.550201E+02 -2.550201E+02 1.199999E-03 0.0 0.0 0.0 0.0 -1.787668E+02 -1.787668E+02 -1.787668E+02 0.0 0.0 0.0 0.0 -1.787668E+02 -1.787668E+02 1.249999E-03 0.0 0.0 0.0 0.0 -1.654599E+02 -1.654599E+02 -1.654599E+02 0.0 0.0 0.0 0.0 -1.654599E+02 -1.654599E+02 1.299999E-03 0.0 0.0 0.0 0.0 -1.422298E+02 -1.422298E+02 -1.422298E+02 0.0 0.0 0.0 0.0 -1.422298E+02 -1.422298E+02 1.349999E-03 0.0 0.0 0.0 0.0 -1.178363E+02 -1.178363E+02 -1.178363E+02 0.0 0.0 0.0 0.0 -1.178363E+02 -1.178363E+02 1.399999E-03 0.0 0.0 0.0 0.0 -1.362042E+02 -1.362042E+02 -1.362042E+02 0.0 0.0 0.0 0.0 -1.362042E+02 -1.362042E+02 1.449998E-03 0.0 0.0 0.0 0.0 -1.593218E+02 -1.593218E+02 -1.593218E+02 0.0 0.0 0.0 0.0 -1.593218E+02 -1.593218E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 53 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 3 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.499998E-03 0.0 0.0 0.0 0.0 -1.720632E+02 -1.720632E+02 -1.720632E+02 0.0 0.0 0.0 0.0 -1.720632E+02 -1.720632E+02 1.549998E-03 0.0 0.0 0.0 0.0 -1.806057E+02 -1.806057E+02 -1.806057E+02 0.0 0.0 0.0 0.0 -1.806057E+02 -1.806057E+02 1.599998E-03 0.0 0.0 0.0 0.0 -1.445215E+02 -1.445215E+02 -1.445215E+02 0.0 0.0 0.0 0.0 -1.445215E+02 -1.445215E+02 1.649998E-03 0.0 0.0 0.0 0.0 -1.076498E+02 -1.076498E+02 -1.076498E+02 0.0 0.0 0.0 0.0 -1.076498E+02 -1.076498E+02 1.699998E-03 0.0 0.0 0.0 0.0 -1.584578E+02 -1.584578E+02 -1.584578E+02 0.0 0.0 0.0 0.0 -1.584578E+02 -1.584578E+02 1.749998E-03 0.0 0.0 0.0 0.0 -2.037659E+02 -2.037659E+02 -2.037659E+02 0.0 0.0 0.0 0.0 -2.037659E+02 -2.037659E+02 1.799998E-03 0.0 0.0 0.0 0.0 -1.368639E+02 -1.368639E+02 -1.368639E+02 0.0 0.0 0.0 0.0 -1.368639E+02 -1.368639E+02 1.849998E-03 0.0 0.0 0.0 0.0 -8.425456E+01 -8.425456E+01 -8.425456E+01 0.0 0.0 0.0 0.0 -8.425456E+01 -8.425456E+01 1.899998E-03 0.0 0.0 0.0 0.0 -1.299790E+02 -1.299790E+02 -1.299790E+02 0.0 0.0 0.0 0.0 -1.299790E+02 -1.299790E+02 1.949998E-03 0.0 0.0 0.0 0.0 -1.262199E+02 -1.262199E+02 -1.262199E+02 0.0 0.0 0.0 0.0 -1.262199E+02 -1.262199E+02 1.999998E-03 0.0 0.0 0.0 0.0 -2.637772E+01 -2.637772E+01 -2.637772E+01 0.0 0.0 0.0 0.0 -2.637772E+01 -2.637772E+01 2.049997E-03 0.0 0.0 0.0 0.0 2.256618E+01 2.256618E+01 2.256618E+01 0.0 0.0 0.0 0.0 2.256618E+01 2.256618E+01 2.099997E-03 0.0 0.0 0.0 0.0 -3.394813E+00 -3.394813E+00 -3.394813E+00 0.0 0.0 0.0 0.0 -3.394813E+00 -3.394813E+00 2.149997E-03 0.0 0.0 0.0 0.0 -1.195295E+01 -1.195295E+01 -1.195295E+01 0.0 0.0 0.0 0.0 -1.195295E+01 -1.195295E+01 2.199997E-03 0.0 0.0 0.0 0.0 -2.825014E+01 -2.825014E+01 -2.825014E+01 0.0 0.0 0.0 0.0 -2.825014E+01 -2.825014E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 54 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 3 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.249997E-03 0.0 0.0 0.0 0.0 -1.074392E+02 -1.074392E+02 -1.074392E+02 0.0 0.0 0.0 0.0 -1.074392E+02 -1.074392E+02 2.299997E-03 0.0 0.0 0.0 0.0 -1.898768E+02 -1.898768E+02 -1.898768E+02 0.0 0.0 0.0 0.0 -1.898768E+02 -1.898768E+02 2.349997E-03 0.0 0.0 0.0 0.0 -2.098334E+02 -2.098334E+02 -2.098334E+02 0.0 0.0 0.0 0.0 -2.098334E+02 -2.098334E+02 2.399997E-03 0.0 0.0 0.0 0.0 -1.823817E+02 -1.823817E+02 -1.823817E+02 0.0 0.0 0.0 0.0 -1.823817E+02 -1.823817E+02 2.449997E-03 0.0 0.0 0.0 0.0 -1.521227E+02 -1.521227E+02 -1.521227E+02 0.0 0.0 0.0 0.0 -1.521227E+02 -1.521227E+02 2.499997E-03 0.0 0.0 0.0 0.0 -1.467759E+02 -1.467759E+02 -1.467759E+02 0.0 0.0 0.0 0.0 -1.467759E+02 -1.467759E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 55 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 4 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 0.0 0.0 0.0 0.0 -1.006528E-02 -1.006528E-02 -1.006528E-02 0.0 0.0 0.0 0.0 -1.006528E-02 -1.006528E-02 1.000000E-04 0.0 0.0 0.0 0.0 -8.404055E-01 -8.404055E-01 -8.404055E-01 0.0 0.0 0.0 0.0 -8.404055E-01 -8.404055E-01 1.500000E-04 0.0 0.0 0.0 0.0 -1.201549E+01 -1.201549E+01 -1.201549E+01 0.0 0.0 0.0 0.0 -1.201549E+01 -1.201549E+01 2.000000E-04 0.0 0.0 0.0 0.0 -6.178708E+01 -6.178708E+01 -6.178708E+01 0.0 0.0 0.0 0.0 -6.178708E+01 -6.178708E+01 2.499999E-04 0.0 0.0 0.0 0.0 -1.524752E+02 -1.524752E+02 -1.524752E+02 0.0 0.0 0.0 0.0 -1.524752E+02 -1.524752E+02 3.000000E-04 0.0 0.0 0.0 0.0 -2.028492E+02 -2.028492E+02 -2.028492E+02 0.0 0.0 0.0 0.0 -2.028492E+02 -2.028492E+02 3.500000E-04 0.0 0.0 0.0 0.0 -1.583455E+02 -1.583455E+02 -1.583455E+02 0.0 0.0 0.0 0.0 -1.583455E+02 -1.583455E+02 4.000000E-04 0.0 0.0 0.0 0.0 -1.176077E+02 -1.176077E+02 -1.176077E+02 0.0 0.0 0.0 0.0 -1.176077E+02 -1.176077E+02 4.500001E-04 0.0 0.0 0.0 0.0 -1.585466E+02 -1.585466E+02 -1.585466E+02 0.0 0.0 0.0 0.0 -1.585466E+02 -1.585466E+02 5.000001E-04 0.0 0.0 0.0 0.0 -1.827847E+02 -1.827847E+02 -1.827847E+02 0.0 0.0 0.0 0.0 -1.827847E+02 -1.827847E+02 5.500000E-04 0.0 0.0 0.0 0.0 -1.395261E+02 -1.395261E+02 -1.395261E+02 0.0 0.0 0.0 0.0 -1.395261E+02 -1.395261E+02 5.999999E-04 0.0 0.0 0.0 0.0 -1.349361E+02 -1.349361E+02 -1.349361E+02 0.0 0.0 0.0 0.0 -1.349361E+02 -1.349361E+02 6.499998E-04 0.0 0.0 0.0 0.0 -1.759540E+02 -1.759540E+02 -1.759540E+02 0.0 0.0 0.0 0.0 -1.759540E+02 -1.759540E+02 6.999997E-04 0.0 0.0 0.0 0.0 -1.625028E+02 -1.625028E+02 -1.625028E+02 0.0 0.0 0.0 0.0 -1.625028E+02 -1.625028E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 56 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 4 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 7.499997E-04 0.0 0.0 0.0 0.0 -1.372122E+02 -1.372122E+02 -1.372122E+02 0.0 0.0 0.0 0.0 -1.372122E+02 -1.372122E+02 7.999996E-04 0.0 0.0 0.0 0.0 -1.794556E+02 -1.794556E+02 -1.794556E+02 0.0 0.0 0.0 0.0 -1.794556E+02 -1.794556E+02 8.499995E-04 0.0 0.0 0.0 0.0 -2.208771E+02 -2.208771E+02 -2.208771E+02 0.0 0.0 0.0 0.0 -2.208771E+02 -2.208771E+02 8.999994E-04 0.0 0.0 0.0 0.0 -2.355361E+02 -2.355361E+02 -2.355361E+02 0.0 0.0 0.0 0.0 -2.355361E+02 -2.355361E+02 9.499993E-04 0.0 0.0 0.0 0.0 -3.005284E+02 -3.005284E+02 -3.005284E+02 0.0 0.0 0.0 0.0 -3.005284E+02 -3.005284E+02 9.999992E-04 0.0 0.0 0.0 0.0 -3.674106E+02 -3.674106E+02 -3.674106E+02 0.0 0.0 0.0 0.0 -3.674106E+02 -3.674106E+02 1.049999E-03 0.0 0.0 0.0 0.0 -3.384312E+02 -3.384312E+02 -3.384312E+02 0.0 0.0 0.0 0.0 -3.384312E+02 -3.384312E+02 1.099999E-03 0.0 0.0 0.0 0.0 -2.807155E+02 -2.807155E+02 -2.807155E+02 0.0 0.0 0.0 0.0 -2.807155E+02 -2.807155E+02 1.149999E-03 0.0 0.0 0.0 0.0 -2.693002E+02 -2.693002E+02 -2.693002E+02 0.0 0.0 0.0 0.0 -2.693002E+02 -2.693002E+02 1.199999E-03 0.0 0.0 0.0 0.0 -2.561848E+02 -2.561848E+02 -2.561848E+02 0.0 0.0 0.0 0.0 -2.561848E+02 -2.561848E+02 1.249999E-03 0.0 0.0 0.0 0.0 -2.260173E+02 -2.260173E+02 -2.260173E+02 0.0 0.0 0.0 0.0 -2.260173E+02 -2.260173E+02 1.299999E-03 0.0 0.0 0.0 0.0 -1.946832E+02 -1.946832E+02 -1.946832E+02 0.0 0.0 0.0 0.0 -1.946832E+02 -1.946832E+02 1.349999E-03 0.0 0.0 0.0 0.0 -1.283824E+02 -1.283824E+02 -1.283824E+02 0.0 0.0 0.0 0.0 -1.283824E+02 -1.283824E+02 1.399999E-03 0.0 0.0 0.0 0.0 -7.698624E+01 -7.698624E+01 -7.698624E+01 0.0 0.0 0.0 0.0 -7.698624E+01 -7.698624E+01 1.449998E-03 0.0 0.0 0.0 0.0 -1.326494E+02 -1.326494E+02 -1.326494E+02 0.0 0.0 0.0 0.0 -1.326494E+02 -1.326494E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 57 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 4 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.499998E-03 0.0 0.0 0.0 0.0 -2.050812E+02 -2.050812E+02 -2.050812E+02 0.0 0.0 0.0 0.0 -2.050812E+02 -2.050812E+02 1.549998E-03 0.0 0.0 0.0 0.0 -1.757269E+02 -1.757269E+02 -1.757269E+02 0.0 0.0 0.0 0.0 -1.757269E+02 -1.757269E+02 1.599998E-03 0.0 0.0 0.0 0.0 -1.315203E+02 -1.315203E+02 -1.315203E+02 0.0 0.0 0.0 0.0 -1.315203E+02 -1.315203E+02 1.649998E-03 0.0 0.0 0.0 0.0 -1.495513E+02 -1.495513E+02 -1.495513E+02 0.0 0.0 0.0 0.0 -1.495513E+02 -1.495513E+02 1.699998E-03 0.0 0.0 0.0 0.0 -1.526223E+02 -1.526223E+02 -1.526223E+02 0.0 0.0 0.0 0.0 -1.526223E+02 -1.526223E+02 1.749998E-03 0.0 0.0 0.0 0.0 -1.320281E+02 -1.320281E+02 -1.320281E+02 0.0 0.0 0.0 0.0 -1.320281E+02 -1.320281E+02 1.799998E-03 0.0 0.0 0.0 0.0 -1.462312E+02 -1.462312E+02 -1.462312E+02 0.0 0.0 0.0 0.0 -1.462312E+02 -1.462312E+02 1.849998E-03 0.0 0.0 0.0 0.0 -1.361117E+02 -1.361117E+02 -1.361117E+02 0.0 0.0 0.0 0.0 -1.361117E+02 -1.361117E+02 1.899998E-03 0.0 0.0 0.0 0.0 -6.259654E+01 -6.259654E+01 -6.259654E+01 0.0 0.0 0.0 0.0 -6.259654E+01 -6.259654E+01 1.949998E-03 0.0 0.0 0.0 0.0 -1.957479E+01 -1.957479E+01 -1.957479E+01 0.0 0.0 0.0 0.0 -1.957479E+01 -1.957479E+01 1.999998E-03 0.0 0.0 0.0 0.0 -2.160460E+01 -2.160460E+01 -2.160460E+01 0.0 0.0 0.0 0.0 -2.160460E+01 -2.160460E+01 2.049997E-03 0.0 0.0 0.0 0.0 1.599221E+01 1.599221E+01 1.599221E+01 0.0 0.0 0.0 0.0 1.599221E+01 1.599221E+01 2.099997E-03 0.0 0.0 0.0 0.0 5.738826E+01 5.738826E+01 5.738826E+01 0.0 0.0 0.0 0.0 5.738826E+01 5.738826E+01 2.149997E-03 0.0 0.0 0.0 0.0 1.246748E+01 1.246748E+01 1.246748E+01 0.0 0.0 0.0 0.0 1.246748E+01 1.246748E+01 2.199997E-03 0.0 0.0 0.0 0.0 -7.101730E+01 -7.101730E+01 -7.101730E+01 0.0 0.0 0.0 0.0 -7.101730E+01 -7.101730E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 58 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 4 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.249997E-03 0.0 0.0 0.0 0.0 -1.048969E+02 -1.048969E+02 -1.048969E+02 0.0 0.0 0.0 0.0 -1.048969E+02 -1.048969E+02 2.299997E-03 0.0 0.0 0.0 0.0 -1.056906E+02 -1.056906E+02 -1.056906E+02 0.0 0.0 0.0 0.0 -1.056906E+02 -1.056906E+02 2.349997E-03 0.0 0.0 0.0 0.0 -1.277090E+02 -1.277090E+02 -1.277090E+02 0.0 0.0 0.0 0.0 -1.277090E+02 -1.277090E+02 2.399997E-03 0.0 0.0 0.0 0.0 -1.712031E+02 -1.712031E+02 -1.712031E+02 0.0 0.0 0.0 0.0 -1.712031E+02 -1.712031E+02 2.449997E-03 0.0 0.0 0.0 0.0 -1.971444E+02 -1.971444E+02 -1.971444E+02 0.0 0.0 0.0 0.0 -1.971444E+02 -1.971444E+02 2.499997E-03 0.0 0.0 0.0 0.0 -1.878391E+02 -1.878391E+02 -1.878391E+02 0.0 0.0 0.0 0.0 -1.878391E+02 -1.878391E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 59 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 5 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 0.0 0.0 0.0 0.0 -3.409720E-04 -3.409720E-04 -3.409720E-04 0.0 0.0 0.0 0.0 -3.409720E-04 -3.409720E-04 1.000000E-04 0.0 0.0 0.0 0.0 -5.624852E-02 -5.624852E-02 -5.624852E-02 0.0 0.0 0.0 0.0 -5.624852E-02 -5.624852E-02 1.500000E-04 0.0 0.0 0.0 0.0 -1.499159E+00 -1.499159E+00 -1.499159E+00 0.0 0.0 0.0 0.0 -1.499159E+00 -1.499159E+00 2.000000E-04 0.0 0.0 0.0 0.0 -1.377491E+01 -1.377491E+01 -1.377491E+01 0.0 0.0 0.0 0.0 -1.377491E+01 -1.377491E+01 2.499999E-04 0.0 0.0 0.0 0.0 -5.992886E+01 -5.992886E+01 -5.992886E+01 0.0 0.0 0.0 0.0 -5.992886E+01 -5.992886E+01 3.000000E-04 0.0 0.0 0.0 0.0 -1.433331E+02 -1.433331E+02 -1.433331E+02 0.0 0.0 0.0 0.0 -1.433331E+02 -1.433331E+02 3.500000E-04 0.0 0.0 0.0 0.0 -2.007010E+02 -2.007010E+02 -2.007010E+02 0.0 0.0 0.0 0.0 -2.007010E+02 -2.007010E+02 4.000000E-04 0.0 0.0 0.0 0.0 -1.715248E+02 -1.715248E+02 -1.715248E+02 0.0 0.0 0.0 0.0 -1.715248E+02 -1.715248E+02 4.500001E-04 0.0 0.0 0.0 0.0 -1.205669E+02 -1.205669E+02 -1.205669E+02 0.0 0.0 0.0 0.0 -1.205669E+02 -1.205669E+02 5.000001E-04 0.0 0.0 0.0 0.0 -1.432541E+02 -1.432541E+02 -1.432541E+02 0.0 0.0 0.0 0.0 -1.432541E+02 -1.432541E+02 5.500000E-04 0.0 0.0 0.0 0.0 -1.836804E+02 -1.836804E+02 -1.836804E+02 0.0 0.0 0.0 0.0 -1.836804E+02 -1.836804E+02 5.999999E-04 0.0 0.0 0.0 0.0 -1.554744E+02 -1.554744E+02 -1.554744E+02 0.0 0.0 0.0 0.0 -1.554744E+02 -1.554744E+02 6.499998E-04 0.0 0.0 0.0 0.0 -1.293388E+02 -1.293388E+02 -1.293388E+02 0.0 0.0 0.0 0.0 -1.293388E+02 -1.293388E+02 6.999997E-04 0.0 0.0 0.0 0.0 -1.690090E+02 -1.690090E+02 -1.690090E+02 0.0 0.0 0.0 0.0 -1.690090E+02 -1.690090E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 60 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 5 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 7.499997E-04 0.0 0.0 0.0 0.0 -1.933516E+02 -1.933516E+02 -1.933516E+02 0.0 0.0 0.0 0.0 -1.933516E+02 -1.933516E+02 7.999996E-04 0.0 0.0 0.0 0.0 -1.862852E+02 -1.862852E+02 -1.862852E+02 0.0 0.0 0.0 0.0 -1.862852E+02 -1.862852E+02 8.499995E-04 0.0 0.0 0.0 0.0 -2.430017E+02 -2.430017E+02 -2.430017E+02 0.0 0.0 0.0 0.0 -2.430017E+02 -2.430017E+02 8.999994E-04 0.0 0.0 0.0 0.0 -3.328257E+02 -3.328257E+02 -3.328257E+02 0.0 0.0 0.0 0.0 -3.328257E+02 -3.328257E+02 9.499993E-04 0.0 0.0 0.0 0.0 -3.490418E+02 -3.490418E+02 -3.490418E+02 0.0 0.0 0.0 0.0 -3.490418E+02 -3.490418E+02 9.999992E-04 0.0 0.0 0.0 0.0 -3.226584E+02 -3.226584E+02 -3.226584E+02 0.0 0.0 0.0 0.0 -3.226584E+02 -3.226584E+02 1.049999E-03 0.0 0.0 0.0 0.0 -3.104236E+02 -3.104236E+02 -3.104236E+02 0.0 0.0 0.0 0.0 -3.104236E+02 -3.104236E+02 1.099999E-03 0.0 0.0 0.0 0.0 -2.847989E+02 -2.847989E+02 -2.847989E+02 0.0 0.0 0.0 0.0 -2.847989E+02 -2.847989E+02 1.149999E-03 0.0 0.0 0.0 0.0 -2.735216E+02 -2.735216E+02 -2.735216E+02 0.0 0.0 0.0 0.0 -2.735216E+02 -2.735216E+02 1.199999E-03 0.0 0.0 0.0 0.0 -3.105182E+02 -3.105182E+02 -3.105182E+02 0.0 0.0 0.0 0.0 -3.105182E+02 -3.105182E+02 1.249999E-03 0.0 0.0 0.0 0.0 -2.970081E+02 -2.970081E+02 -2.970081E+02 0.0 0.0 0.0 0.0 -2.970081E+02 -2.970081E+02 1.299999E-03 0.0 0.0 0.0 0.0 -1.981738E+02 -1.981738E+02 -1.981738E+02 0.0 0.0 0.0 0.0 -1.981738E+02 -1.981738E+02 1.349999E-03 0.0 0.0 0.0 0.0 -1.445225E+02 -1.445225E+02 -1.445225E+02 0.0 0.0 0.0 0.0 -1.445225E+02 -1.445225E+02 1.399999E-03 0.0 0.0 0.0 0.0 -1.566832E+02 -1.566832E+02 -1.566832E+02 0.0 0.0 0.0 0.0 -1.566832E+02 -1.566832E+02 1.449998E-03 0.0 0.0 0.0 0.0 -1.285448E+02 -1.285448E+02 -1.285448E+02 0.0 0.0 0.0 0.0 -1.285448E+02 -1.285448E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 61 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 5 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.499998E-03 0.0 0.0 0.0 0.0 -1.003998E+02 -1.003998E+02 -1.003998E+02 0.0 0.0 0.0 0.0 -1.003998E+02 -1.003998E+02 1.549998E-03 0.0 0.0 0.0 0.0 -1.585675E+02 -1.585675E+02 -1.585675E+02 0.0 0.0 0.0 0.0 -1.585675E+02 -1.585675E+02 1.599998E-03 0.0 0.0 0.0 0.0 -2.081095E+02 -2.081095E+02 -2.081095E+02 0.0 0.0 0.0 0.0 -2.081095E+02 -2.081095E+02 1.649998E-03 0.0 0.0 0.0 0.0 -1.626858E+02 -1.626858E+02 -1.626858E+02 0.0 0.0 0.0 0.0 -1.626858E+02 -1.626858E+02 1.699998E-03 0.0 0.0 0.0 0.0 -1.106578E+02 -1.106578E+02 -1.106578E+02 0.0 0.0 0.0 0.0 -1.106578E+02 -1.106578E+02 1.749998E-03 0.0 0.0 0.0 0.0 -1.170366E+02 -1.170366E+02 -1.170366E+02 0.0 0.0 0.0 0.0 -1.170366E+02 -1.170366E+02 1.799998E-03 0.0 0.0 0.0 0.0 -1.277232E+02 -1.277232E+02 -1.277232E+02 0.0 0.0 0.0 0.0 -1.277232E+02 -1.277232E+02 1.849998E-03 0.0 0.0 0.0 0.0 -1.002424E+02 -1.002424E+02 -1.002424E+02 0.0 0.0 0.0 0.0 -1.002424E+02 -1.002424E+02 1.899998E-03 0.0 0.0 0.0 0.0 -3.990695E+01 -3.990695E+01 -3.990695E+01 0.0 0.0 0.0 0.0 -3.990695E+01 -3.990695E+01 1.949998E-03 0.0 0.0 0.0 0.0 2.429443E+01 2.429443E+01 2.429443E+01 0.0 0.0 0.0 0.0 2.429443E+01 2.429443E+01 1.999998E-03 0.0 0.0 0.0 0.0 4.381658E+01 4.381658E+01 4.381658E+01 0.0 0.0 0.0 0.0 4.381658E+01 4.381658E+01 2.049997E-03 0.0 0.0 0.0 0.0 2.163107E+01 2.163107E+01 2.163107E+01 0.0 0.0 0.0 0.0 2.163107E+01 2.163107E+01 2.099997E-03 0.0 0.0 0.0 0.0 7.556840E+00 7.556840E+00 7.556840E+00 0.0 0.0 0.0 0.0 7.556840E+00 7.556840E+00 2.149997E-03 0.0 0.0 0.0 0.0 -7.619362E+00 -7.619362E+00 -7.619362E+00 0.0 0.0 0.0 0.0 -7.619362E+00 -7.619362E+00 2.199997E-03 0.0 0.0 0.0 0.0 -4.679743E+01 -4.679743E+01 -4.679743E+01 0.0 0.0 0.0 0.0 -4.679743E+01 -4.679743E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 62 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 5 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.249997E-03 0.0 0.0 0.0 0.0 -6.444659E+01 -6.444659E+01 -6.444659E+01 0.0 0.0 0.0 0.0 -6.444659E+01 -6.444659E+01 2.299997E-03 0.0 0.0 0.0 0.0 -5.114711E+01 -5.114711E+01 -5.114711E+01 0.0 0.0 0.0 0.0 -5.114711E+01 -5.114711E+01 2.349997E-03 0.0 0.0 0.0 0.0 -7.240846E+01 -7.240846E+01 -7.240846E+01 0.0 0.0 0.0 0.0 -7.240846E+01 -7.240846E+01 2.399997E-03 0.0 0.0 0.0 0.0 -1.391586E+02 -1.391586E+02 -1.391586E+02 0.0 0.0 0.0 0.0 -1.391586E+02 -1.391586E+02 2.449997E-03 0.0 0.0 0.0 0.0 -1.995428E+02 -1.995428E+02 -1.995428E+02 0.0 0.0 0.0 0.0 -1.995428E+02 -1.995428E+02 2.499997E-03 0.0 0.0 0.0 0.0 -2.196019E+02 -2.196019E+02 -2.196019E+02 0.0 0.0 0.0 0.0 -2.196019E+02 -2.196019E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 63 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 6 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 0.0 0.0 0.0 0.0 -1.056048E-05 -1.056048E-05 -1.056048E-05 0.0 0.0 0.0 0.0 -1.056048E-05 -1.056048E-05 1.000000E-04 0.0 0.0 0.0 0.0 -3.102293E-03 -3.102293E-03 -3.102293E-03 0.0 0.0 0.0 0.0 -3.102293E-03 -3.102293E-03 1.500000E-04 0.0 0.0 0.0 0.0 -1.411297E-01 -1.411297E-01 -1.411297E-01 0.0 0.0 0.0 0.0 -1.411297E-01 -1.411297E-01 2.000000E-04 0.0 0.0 0.0 0.0 -2.139175E+00 -2.139175E+00 -2.139175E+00 0.0 0.0 0.0 0.0 -2.139175E+00 -2.139175E+00 2.499999E-04 0.0 0.0 0.0 0.0 -1.505872E+01 -1.505872E+01 -1.505872E+01 0.0 0.0 0.0 0.0 -1.505872E+01 -1.505872E+01 3.000000E-04 0.0 0.0 0.0 0.0 -5.838190E+01 -5.838190E+01 -5.838190E+01 0.0 0.0 0.0 0.0 -5.838190E+01 -5.838190E+01 3.500000E-04 0.0 0.0 0.0 0.0 -1.359858E+02 -1.359858E+02 -1.359858E+02 0.0 0.0 0.0 0.0 -1.359858E+02 -1.359858E+02 4.000000E-04 0.0 0.0 0.0 0.0 -1.971427E+02 -1.971427E+02 -1.971427E+02 0.0 0.0 0.0 0.0 -1.971427E+02 -1.971427E+02 4.500001E-04 0.0 0.0 0.0 0.0 -1.812652E+02 -1.812652E+02 -1.812652E+02 0.0 0.0 0.0 0.0 -1.812652E+02 -1.812652E+02 5.000001E-04 0.0 0.0 0.0 0.0 -1.271619E+02 -1.271619E+02 -1.271619E+02 0.0 0.0 0.0 0.0 -1.271619E+02 -1.271619E+02 5.500000E-04 0.0 0.0 0.0 0.0 -1.321784E+02 -1.321784E+02 -1.321784E+02 0.0 0.0 0.0 0.0 -1.321784E+02 -1.321784E+02 5.999999E-04 0.0 0.0 0.0 0.0 -1.793663E+02 -1.793663E+02 -1.793663E+02 0.0 0.0 0.0 0.0 -1.793663E+02 -1.793663E+02 6.499998E-04 0.0 0.0 0.0 0.0 -1.744357E+02 -1.744357E+02 -1.744357E+02 0.0 0.0 0.0 0.0 -1.744357E+02 -1.744357E+02 6.999997E-04 0.0 0.0 0.0 0.0 -1.489308E+02 -1.489308E+02 -1.489308E+02 0.0 0.0 0.0 0.0 -1.489308E+02 -1.489308E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 64 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 6 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 7.499997E-04 0.0 0.0 0.0 0.0 -1.983721E+02 -1.983721E+02 -1.983721E+02 0.0 0.0 0.0 0.0 -1.983721E+02 -1.983721E+02 7.999996E-04 0.0 0.0 0.0 0.0 -2.793446E+02 -2.793446E+02 -2.793446E+02 0.0 0.0 0.0 0.0 -2.793446E+02 -2.793446E+02 8.499995E-04 0.0 0.0 0.0 0.0 -3.111955E+02 -3.111955E+02 -3.111955E+02 0.0 0.0 0.0 0.0 -3.111955E+02 -3.111955E+02 8.999994E-04 0.0 0.0 0.0 0.0 -3.312703E+02 -3.312703E+02 -3.312703E+02 0.0 0.0 0.0 0.0 -3.312703E+02 -3.312703E+02 9.499993E-04 0.0 0.0 0.0 0.0 -3.512692E+02 -3.512692E+02 -3.512692E+02 0.0 0.0 0.0 0.0 -3.512692E+02 -3.512692E+02 9.999992E-04 0.0 0.0 0.0 0.0 -3.080777E+02 -3.080777E+02 -3.080777E+02 0.0 0.0 0.0 0.0 -3.080777E+02 -3.080777E+02 1.049999E-03 0.0 0.0 0.0 0.0 -2.576114E+02 -2.576114E+02 -2.576114E+02 0.0 0.0 0.0 0.0 -2.576114E+02 -2.576114E+02 1.099999E-03 0.0 0.0 0.0 0.0 -3.001273E+02 -3.001273E+02 -3.001273E+02 0.0 0.0 0.0 0.0 -3.001273E+02 -3.001273E+02 1.149999E-03 0.0 0.0 0.0 0.0 -3.501576E+02 -3.501576E+02 -3.501576E+02 0.0 0.0 0.0 0.0 -3.501576E+02 -3.501576E+02 1.199999E-03 0.0 0.0 0.0 0.0 -3.040880E+02 -3.040880E+02 -3.040880E+02 0.0 0.0 0.0 0.0 -3.040880E+02 -3.040880E+02 1.249999E-03 0.0 0.0 0.0 0.0 -2.530556E+02 -2.530556E+02 -2.530556E+02 0.0 0.0 0.0 0.0 -2.530556E+02 -2.530556E+02 1.299999E-03 0.0 0.0 0.0 0.0 -2.661030E+02 -2.661030E+02 -2.661030E+02 0.0 0.0 0.0 0.0 -2.661030E+02 -2.661030E+02 1.349999E-03 0.0 0.0 0.0 0.0 -2.491205E+02 -2.491205E+02 -2.491205E+02 0.0 0.0 0.0 0.0 -2.491205E+02 -2.491205E+02 1.399999E-03 0.0 0.0 0.0 0.0 -1.701701E+02 -1.701701E+02 -1.701701E+02 0.0 0.0 0.0 0.0 -1.701701E+02 -1.701701E+02 1.449998E-03 0.0 0.0 0.0 0.0 -1.166602E+02 -1.166602E+02 -1.166602E+02 0.0 0.0 0.0 0.0 -1.166602E+02 -1.166602E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 65 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 6 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.499998E-03 0.0 0.0 0.0 0.0 -1.140933E+02 -1.140933E+02 -1.140933E+02 0.0 0.0 0.0 0.0 -1.140933E+02 -1.140933E+02 1.549998E-03 0.0 0.0 0.0 0.0 -1.305757E+02 -1.305757E+02 -1.305757E+02 0.0 0.0 0.0 0.0 -1.305757E+02 -1.305757E+02 1.599998E-03 0.0 0.0 0.0 0.0 -1.597010E+02 -1.597010E+02 -1.597010E+02 0.0 0.0 0.0 0.0 -1.597010E+02 -1.597010E+02 1.649998E-03 0.0 0.0 0.0 0.0 -1.746997E+02 -1.746997E+02 -1.746997E+02 0.0 0.0 0.0 0.0 -1.746997E+02 -1.746997E+02 1.699998E-03 0.0 0.0 0.0 0.0 -1.464053E+02 -1.464053E+02 -1.464053E+02 0.0 0.0 0.0 0.0 -1.464053E+02 -1.464053E+02 1.749998E-03 0.0 0.0 0.0 0.0 -1.020156E+02 -1.020156E+02 -1.020156E+02 0.0 0.0 0.0 0.0 -1.020156E+02 -1.020156E+02 1.799998E-03 0.0 0.0 0.0 0.0 -6.402204E+01 -6.402204E+01 -6.402204E+01 0.0 0.0 0.0 0.0 -6.402204E+01 -6.402204E+01 1.849998E-03 0.0 0.0 0.0 0.0 -2.921547E+01 -2.921547E+01 -2.921547E+01 0.0 0.0 0.0 0.0 -2.921547E+01 -2.921547E+01 1.899998E-03 0.0 0.0 0.0 0.0 -8.911332E+00 -8.911332E+00 -8.911332E+00 0.0 0.0 0.0 0.0 -8.911332E+00 -8.911332E+00 1.949998E-03 0.0 0.0 0.0 0.0 1.509459E+01 1.509459E+01 1.509459E+01 0.0 0.0 0.0 0.0 1.509459E+01 1.509459E+01 1.999998E-03 0.0 0.0 0.0 0.0 5.830056E+01 5.830056E+01 5.830056E+01 0.0 0.0 0.0 0.0 5.830056E+01 5.830056E+01 2.049997E-03 0.0 0.0 0.0 0.0 4.558479E+01 4.558479E+01 4.558479E+01 0.0 0.0 0.0 0.0 4.558479E+01 4.558479E+01 2.099997E-03 0.0 0.0 0.0 0.0 -4.089130E+01 -4.089130E+01 -4.089130E+01 0.0 0.0 0.0 0.0 -4.089130E+01 -4.089130E+01 2.149997E-03 0.0 0.0 0.0 0.0 -6.450930E+01 -6.450930E+01 -6.450930E+01 0.0 0.0 0.0 0.0 -6.450930E+01 -6.450930E+01 2.199997E-03 0.0 0.0 0.0 0.0 5.087018E+00 5.087018E+00 5.087018E+00 0.0 0.0 0.0 0.0 5.087018E+00 5.087018E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 66 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 6 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.249997E-03 0.0 0.0 0.0 0.0 1.996929E+01 1.996929E+01 1.996929E+01 0.0 0.0 0.0 0.0 1.996929E+01 1.996929E+01 2.299997E-03 0.0 0.0 0.0 0.0 -4.139156E+01 -4.139156E+01 -4.139156E+01 0.0 0.0 0.0 0.0 -4.139156E+01 -4.139156E+01 2.349997E-03 0.0 0.0 0.0 0.0 -7.246138E+01 -7.246138E+01 -7.246138E+01 0.0 0.0 0.0 0.0 -7.246138E+01 -7.246138E+01 2.399997E-03 0.0 0.0 0.0 0.0 -9.594379E+01 -9.594379E+01 -9.594379E+01 0.0 0.0 0.0 0.0 -9.594379E+01 -9.594379E+01 2.449997E-03 0.0 0.0 0.0 0.0 -1.598467E+02 -1.598467E+02 -1.598467E+02 0.0 0.0 0.0 0.0 -1.598467E+02 -1.598467E+02 2.499997E-03 0.0 0.0 0.0 0.0 -1.878669E+02 -1.878669E+02 -1.878669E+02 0.0 0.0 0.0 0.0 -1.878669E+02 -1.878669E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 67 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 7 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 0.0 0.0 0.0 0.0 -3.065949E-07 -3.065949E-07 -3.065949E-07 0.0 0.0 0.0 0.0 -3.065949E-07 -3.065949E-07 1.000000E-04 0.0 0.0 0.0 0.0 -1.486624E-04 -1.486624E-04 -1.486624E-04 0.0 0.0 0.0 0.0 -1.486624E-04 -1.486624E-04 1.500000E-04 0.0 0.0 0.0 0.0 -1.080293E-02 -1.080293E-02 -1.080293E-02 0.0 0.0 0.0 0.0 -1.080293E-02 -1.080293E-02 2.000000E-04 0.0 0.0 0.0 0.0 -2.545220E-01 -2.545220E-01 -2.545220E-01 0.0 0.0 0.0 0.0 -2.545220E-01 -2.545220E-01 2.499999E-04 0.0 0.0 0.0 0.0 -2.731866E+00 -2.731866E+00 -2.731866E+00 0.0 0.0 0.0 0.0 -2.731866E+00 -2.731866E+00 3.000000E-04 0.0 0.0 0.0 0.0 -1.603392E+01 -1.603392E+01 -1.603392E+01 0.0 0.0 0.0 0.0 -1.603392E+01 -1.603392E+01 3.500000E-04 0.0 0.0 0.0 0.0 -5.704779E+01 -5.704779E+01 -5.704779E+01 0.0 0.0 0.0 0.0 -5.704779E+01 -5.704779E+01 4.000000E-04 0.0 0.0 0.0 0.0 -1.298891E+02 -1.298891E+02 -1.298891E+02 0.0 0.0 0.0 0.0 -1.298891E+02 -1.298891E+02 4.500001E-04 0.0 0.0 0.0 0.0 -1.930147E+02 -1.930147E+02 -1.930147E+02 0.0 0.0 0.0 0.0 -1.930147E+02 -1.930147E+02 5.000001E-04 0.0 0.0 0.0 0.0 -1.884352E+02 -1.884352E+02 -1.884352E+02 0.0 0.0 0.0 0.0 -1.884352E+02 -1.884352E+02 5.500000E-04 0.0 0.0 0.0 0.0 -1.364326E+02 -1.364326E+02 -1.364326E+02 0.0 0.0 0.0 0.0 -1.364326E+02 -1.364326E+02 5.999999E-04 0.0 0.0 0.0 0.0 -1.303400E+02 -1.303400E+02 -1.303400E+02 0.0 0.0 0.0 0.0 -1.303400E+02 -1.303400E+02 6.499998E-04 0.0 0.0 0.0 0.0 -1.881547E+02 -1.881547E+02 -1.881547E+02 0.0 0.0 0.0 0.0 -1.881547E+02 -1.881547E+02 6.999997E-04 0.0 0.0 0.0 0.0 -2.280918E+02 -2.280918E+02 -2.280918E+02 0.0 0.0 0.0 0.0 -2.280918E+02 -2.280918E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 68 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 7 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 7.499997E-04 0.0 0.0 0.0 0.0 -2.411548E+02 -2.411548E+02 -2.411548E+02 0.0 0.0 0.0 0.0 -2.411548E+02 -2.411548E+02 7.999996E-04 0.0 0.0 0.0 0.0 -3.017846E+02 -3.017846E+02 -3.017846E+02 0.0 0.0 0.0 0.0 -3.017846E+02 -3.017846E+02 8.499995E-04 0.0 0.0 0.0 0.0 -3.721988E+02 -3.721988E+02 -3.721988E+02 0.0 0.0 0.0 0.0 -3.721988E+02 -3.721988E+02 8.999994E-04 0.0 0.0 0.0 0.0 -3.438523E+02 -3.438523E+02 -3.438523E+02 0.0 0.0 0.0 0.0 -3.438523E+02 -3.438523E+02 9.499993E-04 0.0 0.0 0.0 0.0 -2.692677E+02 -2.692677E+02 -2.692677E+02 0.0 0.0 0.0 0.0 -2.692677E+02 -2.692677E+02 9.999992E-04 0.0 0.0 0.0 0.0 -2.771078E+02 -2.771078E+02 -2.771078E+02 0.0 0.0 0.0 0.0 -2.771078E+02 -2.771078E+02 1.049999E-03 0.0 0.0 0.0 0.0 -3.298291E+02 -3.298291E+02 -3.298291E+02 0.0 0.0 0.0 0.0 -3.298291E+02 -3.298291E+02 1.099999E-03 0.0 0.0 0.0 0.0 -3.263251E+02 -3.263251E+02 -3.263251E+02 0.0 0.0 0.0 0.0 -3.263251E+02 -3.263251E+02 1.149999E-03 0.0 0.0 0.0 0.0 -2.968185E+02 -2.968185E+02 -2.968185E+02 0.0 0.0 0.0 0.0 -2.968185E+02 -2.968185E+02 1.199999E-03 0.0 0.0 0.0 0.0 -2.969222E+02 -2.969222E+02 -2.969222E+02 0.0 0.0 0.0 0.0 -2.969222E+02 -2.969222E+02 1.249999E-03 0.0 0.0 0.0 0.0 -3.010287E+02 -3.010287E+02 -3.010287E+02 0.0 0.0 0.0 0.0 -3.010287E+02 -3.010287E+02 1.299999E-03 0.0 0.0 0.0 0.0 -2.918681E+02 -2.918681E+02 -2.918681E+02 0.0 0.0 0.0 0.0 -2.918681E+02 -2.918681E+02 1.349999E-03 0.0 0.0 0.0 0.0 -2.718503E+02 -2.718503E+02 -2.718503E+02 0.0 0.0 0.0 0.0 -2.718503E+02 -2.718503E+02 1.399999E-03 0.0 0.0 0.0 0.0 -2.216388E+02 -2.216388E+02 -2.216388E+02 0.0 0.0 0.0 0.0 -2.216388E+02 -2.216388E+02 1.449998E-03 0.0 0.0 0.0 0.0 -1.647480E+02 -1.647480E+02 -1.647480E+02 0.0 0.0 0.0 0.0 -1.647480E+02 -1.647480E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 69 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 7 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.499998E-03 0.0 0.0 0.0 0.0 -1.410811E+02 -1.410811E+02 -1.410811E+02 0.0 0.0 0.0 0.0 -1.410811E+02 -1.410811E+02 1.549998E-03 0.0 0.0 0.0 0.0 -1.199289E+02 -1.199289E+02 -1.199289E+02 0.0 0.0 0.0 0.0 -1.199289E+02 -1.199289E+02 1.599998E-03 0.0 0.0 0.0 0.0 -9.815345E+01 -9.815345E+01 -9.815345E+01 0.0 0.0 0.0 0.0 -9.815345E+01 -9.815345E+01 1.649998E-03 0.0 0.0 0.0 0.0 -1.326763E+02 -1.326763E+02 -1.326763E+02 0.0 0.0 0.0 0.0 -1.326763E+02 -1.326763E+02 1.699998E-03 0.0 0.0 0.0 0.0 -1.673050E+02 -1.673050E+02 -1.673050E+02 0.0 0.0 0.0 0.0 -1.673050E+02 -1.673050E+02 1.749998E-03 0.0 0.0 0.0 0.0 -9.806995E+01 -9.806995E+01 -9.806995E+01 0.0 0.0 0.0 0.0 -9.806995E+01 -9.806995E+01 1.799998E-03 0.0 0.0 0.0 0.0 7.675924E-01 7.675924E-01 7.675924E-01 0.0 0.0 0.0 0.0 7.675924E-01 7.675924E-01 1.849998E-03 0.0 0.0 0.0 0.0 2.195297E+01 2.195297E+01 2.195297E+01 0.0 0.0 0.0 0.0 2.195297E+01 2.195297E+01 1.899998E-03 0.0 0.0 0.0 0.0 2.377349E+01 2.377349E+01 2.377349E+01 0.0 0.0 0.0 0.0 2.377349E+01 2.377349E+01 1.949998E-03 0.0 0.0 0.0 0.0 4.104019E+01 4.104019E+01 4.104019E+01 0.0 0.0 0.0 0.0 4.104019E+01 4.104019E+01 1.999998E-03 0.0 0.0 0.0 0.0 8.726455E+00 8.726455E+00 8.726455E+00 0.0 0.0 0.0 0.0 8.726455E+00 8.726455E+00 2.049997E-03 0.0 0.0 0.0 0.0 -3.170959E+01 -3.170959E+01 -3.170959E+01 0.0 0.0 0.0 0.0 -3.170959E+01 -3.170959E+01 2.099997E-03 0.0 0.0 0.0 0.0 -9.253833E+00 -9.253833E+00 -9.253833E+00 0.0 0.0 0.0 0.0 -9.253833E+00 -9.253833E+00 2.149997E-03 0.0 0.0 0.0 0.0 2.773865E+00 2.773865E+00 2.773865E+00 0.0 0.0 0.0 0.0 2.773865E+00 2.773865E+00 2.199997E-03 0.0 0.0 0.0 0.0 -2.022264E+01 -2.022264E+01 -2.022264E+01 0.0 0.0 0.0 0.0 -2.022264E+01 -2.022264E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 70 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 7 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.249997E-03 0.0 0.0 0.0 0.0 5.979436E+00 5.979436E+00 5.979436E+00 0.0 0.0 0.0 0.0 5.979436E+00 5.979436E+00 2.299997E-03 0.0 0.0 0.0 0.0 2.250202E+01 2.250202E+01 2.250202E+01 0.0 0.0 0.0 0.0 2.250202E+01 2.250202E+01 2.349997E-03 0.0 0.0 0.0 0.0 -6.115920E+01 -6.115920E+01 -6.115920E+01 0.0 0.0 0.0 0.0 -6.115920E+01 -6.115920E+01 2.399997E-03 0.0 0.0 0.0 0.0 -1.164630E+02 -1.164630E+02 -1.164630E+02 0.0 0.0 0.0 0.0 -1.164630E+02 -1.164630E+02 2.449997E-03 0.0 0.0 0.0 0.0 -7.143279E+01 -7.143279E+01 -7.143279E+01 0.0 0.0 0.0 0.0 -7.143279E+01 -7.143279E+01 2.499997E-03 0.0 0.0 0.0 0.0 -9.449644E+01 -9.449644E+01 -9.449644E+01 0.0 0.0 0.0 0.0 -9.449644E+01 -9.449644E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 71 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 8 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 0.0 0.0 0.0 0.0 -8.476190E-09 -8.476190E-09 -8.476190E-09 0.0 0.0 0.0 0.0 -8.476190E-09 -8.476190E-09 1.000000E-04 0.0 0.0 0.0 0.0 -6.401976E-06 -6.401976E-06 -6.401976E-06 0.0 0.0 0.0 0.0 -6.401976E-06 -6.401976E-06 1.500000E-04 0.0 0.0 0.0 0.0 -7.057515E-04 -7.057515E-04 -7.057515E-04 0.0 0.0 0.0 0.0 -7.057515E-04 -7.057515E-04 2.000000E-04 0.0 0.0 0.0 0.0 -2.467249E-02 -2.467249E-02 -2.467249E-02 0.0 0.0 0.0 0.0 -2.467249E-02 -2.467249E-02 2.499999E-04 0.0 0.0 0.0 0.0 -3.861712E-01 -3.861712E-01 -3.861712E-01 0.0 0.0 0.0 0.0 -3.861712E-01 -3.861712E-01 3.000000E-04 0.0 0.0 0.0 0.0 -3.271665E+00 -3.271665E+00 -3.271665E+00 0.0 0.0 0.0 0.0 -3.271665E+00 -3.271665E+00 3.500000E-04 0.0 0.0 0.0 0.0 -1.679692E+01 -1.679692E+01 -1.679692E+01 0.0 0.0 0.0 0.0 -1.679692E+01 -1.679692E+01 4.000000E-04 0.0 0.0 0.0 0.0 -5.588731E+01 -5.588731E+01 -5.588731E+01 0.0 0.0 0.0 0.0 -5.588731E+01 -5.588731E+01 4.500001E-04 0.0 0.0 0.0 0.0 -1.248719E+02 -1.248719E+02 -1.248719E+02 0.0 0.0 0.0 0.0 -1.248719E+02 -1.248719E+02 5.000001E-04 0.0 0.0 0.0 0.0 -1.897534E+02 -1.897534E+02 -1.897534E+02 0.0 0.0 0.0 0.0 -1.897534E+02 -1.897534E+02 5.500000E-04 0.0 0.0 0.0 0.0 -1.983285E+02 -1.983285E+02 -1.983285E+02 0.0 0.0 0.0 0.0 -1.983285E+02 -1.983285E+02 5.999999E-04 0.0 0.0 0.0 0.0 -1.624086E+02 -1.624086E+02 -1.624086E+02 0.0 0.0 0.0 0.0 -1.624086E+02 -1.624086E+02 6.499998E-04 0.0 0.0 0.0 0.0 -1.724501E+02 -1.724501E+02 -1.724501E+02 0.0 0.0 0.0 0.0 -1.724501E+02 -1.724501E+02 6.999997E-04 0.0 0.0 0.0 0.0 -2.657729E+02 -2.657729E+02 -2.657729E+02 0.0 0.0 0.0 0.0 -2.657729E+02 -2.657729E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 72 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 8 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 7.499997E-04 0.0 0.0 0.0 0.0 -3.500391E+02 -3.500391E+02 -3.500391E+02 0.0 0.0 0.0 0.0 -3.500391E+02 -3.500391E+02 7.999996E-04 0.0 0.0 0.0 0.0 -3.463751E+02 -3.463751E+02 -3.463751E+02 0.0 0.0 0.0 0.0 -3.463751E+02 -3.463751E+02 8.499995E-04 0.0 0.0 0.0 0.0 -3.070890E+02 -3.070890E+02 -3.070890E+02 0.0 0.0 0.0 0.0 -3.070890E+02 -3.070890E+02 8.999994E-04 0.0 0.0 0.0 0.0 -2.969955E+02 -2.969955E+02 -2.969955E+02 0.0 0.0 0.0 0.0 -2.969955E+02 -2.969955E+02 9.499993E-04 0.0 0.0 0.0 0.0 -2.978618E+02 -2.978618E+02 -2.978618E+02 0.0 0.0 0.0 0.0 -2.978618E+02 -2.978618E+02 9.999992E-04 0.0 0.0 0.0 0.0 -3.009651E+02 -3.009651E+02 -3.009651E+02 0.0 0.0 0.0 0.0 -3.009651E+02 -3.009651E+02 1.049999E-03 0.0 0.0 0.0 0.0 -3.229831E+02 -3.229831E+02 -3.229831E+02 0.0 0.0 0.0 0.0 -3.229831E+02 -3.229831E+02 1.099999E-03 0.0 0.0 0.0 0.0 -3.236519E+02 -3.236519E+02 -3.236519E+02 0.0 0.0 0.0 0.0 -3.236519E+02 -3.236519E+02 1.149999E-03 0.0 0.0 0.0 0.0 -2.874042E+02 -2.874042E+02 -2.874042E+02 0.0 0.0 0.0 0.0 -2.874042E+02 -2.874042E+02 1.199999E-03 0.0 0.0 0.0 0.0 -2.903068E+02 -2.903068E+02 -2.903068E+02 0.0 0.0 0.0 0.0 -2.903068E+02 -2.903068E+02 1.249999E-03 0.0 0.0 0.0 0.0 -3.318841E+02 -3.318841E+02 -3.318841E+02 0.0 0.0 0.0 0.0 -3.318841E+02 -3.318841E+02 1.299999E-03 0.0 0.0 0.0 0.0 -3.120272E+02 -3.120272E+02 -3.120272E+02 0.0 0.0 0.0 0.0 -3.120272E+02 -3.120272E+02 1.349999E-03 0.0 0.0 0.0 0.0 -2.565195E+02 -2.565195E+02 -2.565195E+02 0.0 0.0 0.0 0.0 -2.565195E+02 -2.565195E+02 1.399999E-03 0.0 0.0 0.0 0.0 -2.624027E+02 -2.624027E+02 -2.624027E+02 0.0 0.0 0.0 0.0 -2.624027E+02 -2.624027E+02 1.449998E-03 0.0 0.0 0.0 0.0 -2.595348E+02 -2.595348E+02 -2.595348E+02 0.0 0.0 0.0 0.0 -2.595348E+02 -2.595348E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 73 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 8 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.499998E-03 0.0 0.0 0.0 0.0 -1.666249E+02 -1.666249E+02 -1.666249E+02 0.0 0.0 0.0 0.0 -1.666249E+02 -1.666249E+02 1.549998E-03 0.0 0.0 0.0 0.0 -9.668427E+01 -9.668427E+01 -9.668427E+01 0.0 0.0 0.0 0.0 -9.668427E+01 -9.668427E+01 1.599998E-03 0.0 0.0 0.0 0.0 -1.121471E+02 -1.121471E+02 -1.121471E+02 0.0 0.0 0.0 0.0 -1.121471E+02 -1.121471E+02 1.649998E-03 0.0 0.0 0.0 0.0 -1.002048E+02 -1.002048E+02 -1.002048E+02 0.0 0.0 0.0 0.0 -1.002048E+02 -1.002048E+02 1.699998E-03 0.0 0.0 0.0 0.0 -5.323209E+01 -5.323209E+01 -5.323209E+01 0.0 0.0 0.0 0.0 -5.323209E+01 -5.323209E+01 1.749998E-03 0.0 0.0 0.0 0.0 -5.866551E+01 -5.866551E+01 -5.866551E+01 0.0 0.0 0.0 0.0 -5.866551E+01 -5.866551E+01 1.799998E-03 0.0 0.0 0.0 0.0 -4.172241E+01 -4.172241E+01 -4.172241E+01 0.0 0.0 0.0 0.0 -4.172241E+01 -4.172241E+01 1.849998E-03 0.0 0.0 0.0 0.0 5.860849E+01 5.860849E+01 5.860849E+01 0.0 0.0 0.0 0.0 5.860849E+01 5.860849E+01 1.899998E-03 0.0 0.0 0.0 0.0 9.021091E+01 9.021091E+01 9.021091E+01 0.0 0.0 0.0 0.0 9.021091E+01 9.021091E+01 1.949998E-03 0.0 0.0 0.0 0.0 -2.895299E+00 -2.895299E+00 -2.895299E+00 0.0 0.0 0.0 0.0 -2.895299E+00 -2.895299E+00 1.999998E-03 0.0 0.0 0.0 0.0 -5.507575E+01 -5.507575E+01 -5.507575E+01 0.0 0.0 0.0 0.0 -5.507575E+01 -5.507575E+01 2.049997E-03 0.0 0.0 0.0 0.0 -1.921753E+01 -1.921753E+01 -1.921753E+01 0.0 0.0 0.0 0.0 -1.921753E+01 -1.921753E+01 2.099997E-03 0.0 0.0 0.0 0.0 3.305979E+00 3.305979E+00 3.305979E+00 0.0 0.0 0.0 0.0 3.305979E+00 3.305979E+00 2.149997E-03 0.0 0.0 0.0 0.0 1.401978E+01 1.401978E+01 1.401978E+01 0.0 0.0 0.0 0.0 1.401978E+01 1.401978E+01 2.199997E-03 0.0 0.0 0.0 0.0 2.936718E+01 2.936718E+01 2.936718E+01 0.0 0.0 0.0 0.0 2.936718E+01 2.936718E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 74 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 8 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.249997E-03 0.0 0.0 0.0 0.0 -1.056046E+01 -1.056046E+01 -1.056046E+01 0.0 0.0 0.0 0.0 -1.056046E+01 -1.056046E+01 2.299997E-03 0.0 0.0 0.0 0.0 -5.319171E+01 -5.319171E+01 -5.319171E+01 0.0 0.0 0.0 0.0 -5.319171E+01 -5.319171E+01 2.349997E-03 0.0 0.0 0.0 0.0 -1.287184E+01 -1.287184E+01 -1.287184E+01 0.0 0.0 0.0 0.0 -1.287184E+01 -1.287184E+01 2.399997E-03 0.0 0.0 0.0 0.0 5.730000E+00 5.730000E+00 5.730000E+00 0.0 0.0 0.0 0.0 5.730000E+00 5.730000E+00 2.449997E-03 0.0 0.0 0.0 0.0 -7.556721E+01 -7.556721E+01 -7.556721E+01 0.0 0.0 0.0 0.0 -7.556721E+01 -7.556721E+01 2.499997E-03 0.0 0.0 0.0 0.0 -1.337721E+02 -1.337721E+02 -1.337721E+02 0.0 0.0 0.0 0.0 -1.337721E+02 -1.337721E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 75 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 9 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 0.0 0.0 0.0 0.0 -2.255259E-10 -2.255259E-10 -2.255259E-10 0.0 0.0 0.0 0.0 -2.255259E-10 -2.255259E-10 1.000000E-04 0.0 0.0 0.0 0.0 -2.534840E-07 -2.534840E-07 -2.534840E-07 0.0 0.0 0.0 0.0 -2.534840E-07 -2.534840E-07 1.500000E-04 0.0 0.0 0.0 0.0 -4.068152E-05 -4.068152E-05 -4.068152E-05 0.0 0.0 0.0 0.0 -4.068152E-05 -4.068152E-05 2.000000E-04 0.0 0.0 0.0 0.0 -2.033026E-03 -2.033026E-03 -2.033026E-03 0.0 0.0 0.0 0.0 -2.033026E-03 -2.033026E-03 2.499999E-04 0.0 0.0 0.0 0.0 -4.481118E-02 -4.481118E-02 -4.481118E-02 0.0 0.0 0.0 0.0 -4.481118E-02 -4.481118E-02 3.000000E-04 0.0 0.0 0.0 0.0 -5.291710E-01 -5.291710E-01 -5.291710E-01 0.0 0.0 0.0 0.0 -5.291710E-01 -5.291710E-01 3.500000E-04 0.0 0.0 0.0 0.0 -3.773396E+00 -3.773396E+00 -3.773396E+00 0.0 0.0 0.0 0.0 -3.773396E+00 -3.773396E+00 4.000000E-04 0.0 0.0 0.0 0.0 -1.753789E+01 -1.753789E+01 -1.753789E+01 0.0 0.0 0.0 0.0 -1.753789E+01 -1.753789E+01 4.500001E-04 0.0 0.0 0.0 0.0 -5.577856E+01 -5.577856E+01 -5.577856E+01 0.0 0.0 0.0 0.0 -5.577856E+01 -5.577856E+01 5.000001E-04 0.0 0.0 0.0 0.0 -1.251643E+02 -1.251643E+02 -1.251643E+02 0.0 0.0 0.0 0.0 -1.251643E+02 -1.251643E+02 5.500000E-04 0.0 0.0 0.0 0.0 -2.029024E+02 -2.029024E+02 -2.029024E+02 0.0 0.0 0.0 0.0 -2.029024E+02 -2.029024E+02 5.999999E-04 0.0 0.0 0.0 0.0 -2.483160E+02 -2.483160E+02 -2.483160E+02 0.0 0.0 0.0 0.0 -2.483160E+02 -2.483160E+02 6.499998E-04 0.0 0.0 0.0 0.0 -2.610627E+02 -2.610627E+02 -2.610627E+02 0.0 0.0 0.0 0.0 -2.610627E+02 -2.610627E+02 6.999997E-04 0.0 0.0 0.0 0.0 -2.922994E+02 -2.922994E+02 -2.922994E+02 0.0 0.0 0.0 0.0 -2.922994E+02 -2.922994E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 76 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 9 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 7.499997E-04 0.0 0.0 0.0 0.0 -3.490659E+02 -3.490659E+02 -3.490659E+02 0.0 0.0 0.0 0.0 -3.490659E+02 -3.490659E+02 7.999996E-04 0.0 0.0 0.0 0.0 -3.534801E+02 -3.534801E+02 -3.534801E+02 0.0 0.0 0.0 0.0 -3.534801E+02 -3.534801E+02 8.499995E-04 0.0 0.0 0.0 0.0 -2.853126E+02 -2.853126E+02 -2.853126E+02 0.0 0.0 0.0 0.0 -2.853126E+02 -2.853126E+02 8.999994E-04 0.0 0.0 0.0 0.0 -2.583357E+02 -2.583357E+02 -2.583357E+02 0.0 0.0 0.0 0.0 -2.583357E+02 -2.583357E+02 9.499993E-04 0.0 0.0 0.0 0.0 -3.233848E+02 -3.233848E+02 -3.233848E+02 0.0 0.0 0.0 0.0 -3.233848E+02 -3.233848E+02 9.999992E-04 0.0 0.0 0.0 0.0 -3.546036E+02 -3.546036E+02 -3.546036E+02 0.0 0.0 0.0 0.0 -3.546036E+02 -3.546036E+02 1.049999E-03 0.0 0.0 0.0 0.0 -2.916694E+02 -2.916694E+02 -2.916694E+02 0.0 0.0 0.0 0.0 -2.916694E+02 -2.916694E+02 1.099999E-03 0.0 0.0 0.0 0.0 -2.672229E+02 -2.672229E+02 -2.672229E+02 0.0 0.0 0.0 0.0 -2.672229E+02 -2.672229E+02 1.149999E-03 0.0 0.0 0.0 0.0 -3.294836E+02 -3.294836E+02 -3.294836E+02 0.0 0.0 0.0 0.0 -3.294836E+02 -3.294836E+02 1.199999E-03 0.0 0.0 0.0 0.0 -3.404685E+02 -3.404685E+02 -3.404685E+02 0.0 0.0 0.0 0.0 -3.404685E+02 -3.404685E+02 1.249999E-03 0.0 0.0 0.0 0.0 -2.795670E+02 -2.795670E+02 -2.795670E+02 0.0 0.0 0.0 0.0 -2.795670E+02 -2.795670E+02 1.299999E-03 0.0 0.0 0.0 0.0 -2.830162E+02 -2.830162E+02 -2.830162E+02 0.0 0.0 0.0 0.0 -2.830162E+02 -2.830162E+02 1.349999E-03 0.0 0.0 0.0 0.0 -3.315958E+02 -3.315958E+02 -3.315958E+02 0.0 0.0 0.0 0.0 -3.315958E+02 -3.315958E+02 1.399999E-03 0.0 0.0 0.0 0.0 -2.967808E+02 -2.967808E+02 -2.967808E+02 0.0 0.0 0.0 0.0 -2.967808E+02 -2.967808E+02 1.449998E-03 0.0 0.0 0.0 0.0 -2.299096E+02 -2.299096E+02 -2.299096E+02 0.0 0.0 0.0 0.0 -2.299096E+02 -2.299096E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 77 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 9 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.499998E-03 0.0 0.0 0.0 0.0 -2.240687E+02 -2.240687E+02 -2.240687E+02 0.0 0.0 0.0 0.0 -2.240687E+02 -2.240687E+02 1.549998E-03 0.0 0.0 0.0 0.0 -1.901239E+02 -1.901239E+02 -1.901239E+02 0.0 0.0 0.0 0.0 -1.901239E+02 -1.901239E+02 1.599998E-03 0.0 0.0 0.0 0.0 -7.950017E+01 -7.950017E+01 -7.950017E+01 0.0 0.0 0.0 0.0 -7.950017E+01 -7.950017E+01 1.649998E-03 0.0 0.0 0.0 0.0 -1.519761E+01 -1.519761E+01 -1.519761E+01 0.0 0.0 0.0 0.0 -1.519761E+01 -1.519761E+01 1.699998E-03 0.0 0.0 0.0 0.0 -2.120797E+01 -2.120797E+01 -2.120797E+01 0.0 0.0 0.0 0.0 -2.120797E+01 -2.120797E+01 1.749998E-03 0.0 0.0 0.0 0.0 4.352011E+00 4.352011E+00 4.352011E+00 0.0 0.0 0.0 0.0 4.352011E+00 4.352011E+00 1.799998E-03 0.0 0.0 0.0 0.0 3.680880E+01 3.680880E+01 3.680880E+01 0.0 0.0 0.0 0.0 3.680880E+01 3.680880E+01 1.849998E-03 0.0 0.0 0.0 0.0 9.734067E+00 9.734067E+00 9.734067E+00 0.0 0.0 0.0 0.0 9.734067E+00 9.734067E+00 1.899998E-03 0.0 0.0 0.0 0.0 -6.625216E+00 -6.625216E+00 -6.625216E+00 0.0 0.0 0.0 0.0 -6.625216E+00 -6.625216E+00 1.949998E-03 0.0 0.0 0.0 0.0 1.592861E+01 1.592861E+01 1.592861E+01 0.0 0.0 0.0 0.0 1.592861E+01 1.592861E+01 1.999998E-03 0.0 0.0 0.0 0.0 -5.870390E+00 -5.870390E+00 -5.870390E+00 0.0 0.0 0.0 0.0 -5.870390E+00 -5.870390E+00 2.049997E-03 0.0 0.0 0.0 0.0 -4.053797E+01 -4.053797E+01 -4.053797E+01 0.0 0.0 0.0 0.0 -4.053797E+01 -4.053797E+01 2.099997E-03 0.0 0.0 0.0 0.0 2.416591E+00 2.416591E+00 2.416591E+00 0.0 0.0 0.0 0.0 2.416591E+00 2.416591E+00 2.149997E-03 0.0 0.0 0.0 0.0 4.596893E+01 4.596893E+01 4.596893E+01 0.0 0.0 0.0 0.0 4.596893E+01 4.596893E+01 2.199997E-03 0.0 0.0 0.0 0.0 3.179311E+00 3.179311E+00 3.179311E+00 0.0 0.0 0.0 0.0 3.179311E+00 3.179311E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 78 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 9 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.249997E-03 0.0 0.0 0.0 0.0 -3.766959E+01 -3.766959E+01 -3.766959E+01 0.0 0.0 0.0 0.0 -3.766959E+01 -3.766959E+01 2.299997E-03 0.0 0.0 0.0 0.0 -1.223680E+01 -1.223680E+01 -1.223680E+01 0.0 0.0 0.0 0.0 -1.223680E+01 -1.223680E+01 2.349997E-03 0.0 0.0 0.0 0.0 9.416590E+00 9.416590E+00 9.416590E+00 0.0 0.0 0.0 0.0 9.416590E+00 9.416590E+00 2.399997E-03 0.0 0.0 0.0 0.0 -7.913852E+00 -7.913852E+00 -7.913852E+00 0.0 0.0 0.0 0.0 -7.913852E+00 -7.913852E+00 2.449997E-03 0.0 0.0 0.0 0.0 -4.084070E+01 -4.084070E+01 -4.084070E+01 0.0 0.0 0.0 0.0 -4.084070E+01 -4.084070E+01 2.499997E-03 0.0 0.0 0.0 0.0 -8.868536E+01 -8.868536E+01 -8.868536E+01 0.0 0.0 0.0 0.0 -8.868536E+01 -8.868536E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 79 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 10 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 5.000000E-05 0.0 0.0 0.0 0.0 -5.964351E-12 -5.964351E-12 -5.964351E-12 0.0 0.0 0.0 0.0 -5.964351E-12 -5.964351E-12 1.000000E-04 0.0 0.0 0.0 0.0 -9.705293E-09 -9.705293E-09 -9.705293E-09 0.0 0.0 0.0 0.0 -9.705293E-09 -9.705293E-09 1.500000E-04 0.0 0.0 0.0 0.0 -2.219382E-06 -2.219382E-06 -2.219382E-06 0.0 0.0 0.0 0.0 -2.219382E-06 -2.219382E-06 2.000000E-04 0.0 0.0 0.0 0.0 -1.561389E-04 -1.561389E-04 -1.561389E-04 0.0 0.0 0.0 0.0 -1.561389E-04 -1.561389E-04 2.499999E-04 0.0 0.0 0.0 0.0 -4.800704E-03 -4.800704E-03 -4.800704E-03 0.0 0.0 0.0 0.0 -4.800704E-03 -4.800704E-03 3.000000E-04 0.0 0.0 0.0 0.0 -7.863795E-02 -7.863795E-02 -7.863795E-02 0.0 0.0 0.0 0.0 -7.863795E-02 -7.863795E-02 3.500000E-04 0.0 0.0 0.0 0.0 -7.770418E-01 -7.770418E-01 -7.770418E-01 0.0 0.0 0.0 0.0 -7.770418E-01 -7.770418E-01 4.000000E-04 0.0 0.0 0.0 0.0 -5.027257E+00 -5.027257E+00 -5.027257E+00 0.0 0.0 0.0 0.0 -5.027257E+00 -5.027257E+00 4.500001E-04 0.0 0.0 0.0 0.0 -2.249439E+01 -2.249439E+01 -2.249439E+01 0.0 0.0 0.0 0.0 -2.249439E+01 -2.249439E+01 5.000001E-04 0.0 0.0 0.0 0.0 -7.212670E+01 -7.212670E+01 -7.212670E+01 0.0 0.0 0.0 0.0 -7.212670E+01 -7.212670E+01 5.500000E-04 0.0 0.0 0.0 0.0 -1.691770E+02 -1.691770E+02 -1.691770E+02 0.0 0.0 0.0 0.0 -1.691770E+02 -1.691770E+02 5.999999E-04 0.0 0.0 0.0 0.0 -2.927386E+02 -2.927386E+02 -2.927386E+02 0.0 0.0 0.0 0.0 -2.927386E+02 -2.927386E+02 6.499998E-04 0.0 0.0 0.0 0.0 -3.740800E+02 -3.740800E+02 -3.740800E+02 0.0 0.0 0.0 0.0 -3.740800E+02 -3.740800E+02 6.999997E-04 0.0 0.0 0.0 0.0 -3.580626E+02 -3.580626E+02 -3.580626E+02 0.0 0.0 0.0 0.0 -3.580626E+02 -3.580626E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 80 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 10 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 7.499997E-04 0.0 0.0 0.0 0.0 -2.870634E+02 -2.870634E+02 -2.870634E+02 0.0 0.0 0.0 0.0 -2.870634E+02 -2.870634E+02 7.999996E-04 0.0 0.0 0.0 0.0 -2.655171E+02 -2.655171E+02 -2.655171E+02 0.0 0.0 0.0 0.0 -2.655171E+02 -2.655171E+02 8.499995E-04 0.0 0.0 0.0 0.0 -3.139385E+02 -3.139385E+02 -3.139385E+02 0.0 0.0 0.0 0.0 -3.139385E+02 -3.139385E+02 8.999994E-04 0.0 0.0 0.0 0.0 -3.412310E+02 -3.412310E+02 -3.412310E+02 0.0 0.0 0.0 0.0 -3.412310E+02 -3.412310E+02 9.499993E-04 0.0 0.0 0.0 0.0 -3.049838E+02 -3.049838E+02 -3.049838E+02 0.0 0.0 0.0 0.0 -3.049838E+02 -3.049838E+02 9.999992E-04 0.0 0.0 0.0 0.0 -2.815182E+02 -2.815182E+02 -2.815182E+02 0.0 0.0 0.0 0.0 -2.815182E+02 -2.815182E+02 1.049999E-03 0.0 0.0 0.0 0.0 -3.126872E+02 -3.126872E+02 -3.126872E+02 0.0 0.0 0.0 0.0 -3.126872E+02 -3.126872E+02 1.099999E-03 0.0 0.0 0.0 0.0 -3.293193E+02 -3.293193E+02 -3.293193E+02 0.0 0.0 0.0 0.0 -3.293193E+02 -3.293193E+02 1.149999E-03 0.0 0.0 0.0 0.0 -3.002714E+02 -3.002714E+02 -3.002714E+02 0.0 0.0 0.0 0.0 -3.002714E+02 -3.002714E+02 1.199999E-03 0.0 0.0 0.0 0.0 -2.916028E+02 -2.916028E+02 -2.916028E+02 0.0 0.0 0.0 0.0 -2.916028E+02 -2.916028E+02 1.249999E-03 0.0 0.0 0.0 0.0 -3.184845E+02 -3.184845E+02 -3.184845E+02 0.0 0.0 0.0 0.0 -3.184845E+02 -3.184845E+02 1.299999E-03 0.0 0.0 0.0 0.0 -3.178675E+02 -3.178675E+02 -3.178675E+02 0.0 0.0 0.0 0.0 -3.178675E+02 -3.178675E+02 1.349999E-03 0.0 0.0 0.0 0.0 -2.913264E+02 -2.913264E+02 -2.913264E+02 0.0 0.0 0.0 0.0 -2.913264E+02 -2.913264E+02 1.399999E-03 0.0 0.0 0.0 0.0 -2.915994E+02 -2.915994E+02 -2.915994E+02 0.0 0.0 0.0 0.0 -2.915994E+02 -2.915994E+02 1.449998E-03 0.0 0.0 0.0 0.0 -2.933015E+02 -2.933015E+02 -2.933015E+02 0.0 0.0 0.0 0.0 -2.933015E+02 -2.933015E+02 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 81 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 10 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 1.499998E-03 0.0 0.0 0.0 0.0 -2.458934E+02 -2.458934E+02 -2.458934E+02 0.0 0.0 0.0 0.0 -2.458934E+02 -2.458934E+02 1.549998E-03 0.0 0.0 0.0 0.0 -1.765592E+02 -1.765592E+02 -1.765592E+02 0.0 0.0 0.0 0.0 -1.765592E+02 -1.765592E+02 1.599998E-03 0.0 0.0 0.0 0.0 -1.112496E+02 -1.112496E+02 -1.112496E+02 0.0 0.0 0.0 0.0 -1.112496E+02 -1.112496E+02 1.649998E-03 0.0 0.0 0.0 0.0 -2.281878E+01 -2.281878E+01 -2.281878E+01 0.0 0.0 0.0 0.0 -2.281878E+01 -2.281878E+01 1.699998E-03 0.0 0.0 0.0 0.0 6.526028E+01 6.526028E+01 6.526028E+01 0.0 0.0 0.0 0.0 6.526028E+01 6.526028E+01 1.749998E-03 0.0 0.0 0.0 0.0 8.102414E+01 8.102414E+01 8.102414E+01 0.0 0.0 0.0 0.0 8.102414E+01 8.102414E+01 1.799998E-03 0.0 0.0 0.0 0.0 3.032457E+01 3.032457E+01 3.032457E+01 0.0 0.0 0.0 0.0 3.032457E+01 3.032457E+01 1.849998E-03 0.0 0.0 0.0 0.0 -2.086399E+01 -2.086399E+01 -2.086399E+01 0.0 0.0 0.0 0.0 -2.086399E+01 -2.086399E+01 1.899998E-03 0.0 0.0 0.0 0.0 -4.397599E+01 -4.397599E+01 -4.397599E+01 0.0 0.0 0.0 0.0 -4.397599E+01 -4.397599E+01 1.949998E-03 0.0 0.0 0.0 0.0 -3.012359E+01 -3.012359E+01 -3.012359E+01 0.0 0.0 0.0 0.0 -3.012359E+01 -3.012359E+01 1.999998E-03 0.0 0.0 0.0 0.0 1.949833E+01 1.949833E+01 1.949833E+01 0.0 0.0 0.0 0.0 1.949833E+01 1.949833E+01 2.049997E-03 0.0 0.0 0.0 0.0 4.532779E+01 4.532779E+01 4.532779E+01 0.0 0.0 0.0 0.0 4.532779E+01 4.532779E+01 2.099997E-03 0.0 0.0 0.0 0.0 3.716559E+00 3.716559E+00 3.716559E+00 0.0 0.0 0.0 0.0 3.716559E+00 3.716559E+00 2.149997E-03 0.0 0.0 0.0 0.0 -3.892757E+01 -3.892757E+01 -3.892757E+01 0.0 0.0 0.0 0.0 -3.892757E+01 -3.892757E+01 2.199997E-03 0.0 0.0 0.0 0.0 -1.579490E+01 -1.579490E+01 -1.579490E+01 0.0 0.0 0.0 0.0 -1.579490E+01 -1.579490E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 82 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING SUBCASE 1 ELEMENT-ID = 10 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) TIME SA1 SA2 SA3 SA4 AXIAL-STRESS SA-MAX SA-MIN M.S.-T SB1 SB2 SB3 SB4 SB-MAX SB-MIN M.S.-C 2.249997E-03 0.0 0.0 0.0 0.0 2.434375E+01 2.434375E+01 2.434375E+01 0.0 0.0 0.0 0.0 2.434375E+01 2.434375E+01 2.299997E-03 0.0 0.0 0.0 0.0 1.674356E+01 1.674356E+01 1.674356E+01 0.0 0.0 0.0 0.0 1.674356E+01 1.674356E+01 2.349997E-03 0.0 0.0 0.0 0.0 -1.690695E+01 -1.690695E+01 -1.690695E+01 0.0 0.0 0.0 0.0 -1.690695E+01 -1.690695E+01 2.399997E-03 0.0 0.0 0.0 0.0 -3.126211E+01 -3.126211E+01 -3.126211E+01 0.0 0.0 0.0 0.0 -3.126211E+01 -3.126211E+01 2.449997E-03 0.0 0.0 0.0 0.0 -2.632113E+01 -2.632113E+01 -2.632113E+01 0.0 0.0 0.0 0.0 -2.632113E+01 -2.632113E+01 2.499997E-03 0.0 0.0 0.0 0.0 -3.563478E+01 -3.563478E+01 -3.563478E+01 0.0 0.0 0.0 0.0 -3.563478E+01 -3.563478E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 83 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TRAILER - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) + 153 = NOCUPV 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 84 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 85 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 86 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 87 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 88 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 89 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 90 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 91 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 92 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 93 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 94 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 95 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 96 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 97 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 98 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 99 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 100 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 101 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 102 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 103 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 104 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 105 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 106 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 107 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 108 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 109 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 110 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 111 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 112 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 113 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 114 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 115 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 116 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 117 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 118 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 119 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 120 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 121 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 122 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 123 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 124 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 125 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 126 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 127 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 128 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 129 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 130 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 131 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 132 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 133 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 134 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 135 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 136 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 137 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 138 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862 0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE 103 CONTAINS 1 COLUMNS. THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN -1 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 139 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.86923218E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 140 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 8.692322E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 141 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 8.692322E+00 2.948274E+00 4.692324E-01 2.447786E-01 2.127694E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 142 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.24831302E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 143 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 2.483130E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 144 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 2.483130E+00 1.575795E+00 2.507956E-01 8.778447E-01 2.179803E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 145 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.17781998E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 146 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.778200E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 147 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.778200E+00 1.333492E+00 2.122318E-01 1.640700E+00 2.917492E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 148 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.15176173E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 149 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.517617E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 150 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.517617E+00 1.231916E+00 1.960655E-01 1.273540E+00 1.932747E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 151 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.12351395E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 152 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.235139E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 153 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.235139E+00 1.111368E+00 1.768797E-01 1.375836E+00 1.699349E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 154 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 1.104370E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.11043696E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 155 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.104370E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 156 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.104370E+00 1.050890E+00 1.672543E-01 1.504263E+00 1.661263E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 157 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 1.078101E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.10781014E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 158 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.078101E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 159 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.078101E+00 1.038317E+00 1.652532E-01 1.608302E+00 1.733913E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 160 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 1.023027E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.10230267E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 161 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.023027E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 162 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.023027E+00 1.011448E+00 1.609769E-01 1.623797E+00 1.661187E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 163 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0 ROOTS BELOW 9.826337E-01 2 ROOTS BELOW 9.826337E-01 4 ROOTS BELOW 9.031579E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.98263371E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 164 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 9.826337E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 165 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.826337E-01 9.912788E-01 1.577669E-01 1.686152E+00 1.656870E+00 2 2 9.826337E-01 9.912788E-01 1.577669E-01 1.686152E+00 1.656870E+00 3 3 9.031579E+00 3.005259E+00 4.783017E-01 3.484600E+00 3.147144E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 166 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 1.003604E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.10036036E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 167 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.003604E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 168 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.003604E+00 1.001800E+00 1.594414E-01 1.899020E+00 1.905863E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 169 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 1.005843E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.10058434E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 170 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.005843E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 171 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.005843E+00 1.002917E+00 1.596193E-01 1.805611E+00 1.816162E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 172 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 9.745125E-01 2 ROOTS BELOW 9.745130E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.97451252E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 173 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 9.745125E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 174 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.745125E-01 9.871740E-01 1.571136E-01 1.638490E+00 1.596729E+00 2 2 9.745125E-01 9.871740E-01 1.571136E-01 1.638490E+00 1.596729E+00 3 3 8.258243E+00 2.873716E+00 4.573661E-01 4.744169E+00 3.917850E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 175 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 9.688850E-01 2 ROOTS BELOW 9.688853E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.96888500E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 176 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 9.688850E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 177 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.688850E-01 9.843196E-01 1.566593E-01 1.642332E+00 1.591231E+00 2 2 9.688850E-01 9.843196E-01 1.566593E-01 1.642332E+00 1.591231E+00 3 3 7.731814E+00 2.780614E+00 4.425484E-01 5.047751E+00 3.902827E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 178 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 9.438789E-01 2 ROOTS BELOW 9.438806E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.94387889E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 179 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 9.438789E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 180 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.438789E-01 9.715343E-01 1.546245E-01 2.081080E+00 1.964288E+00 2 2 9.438789E-01 9.715343E-01 1.546245E-01 2.081080E+00 1.964288E+00 3 3 6.870033E+00 2.621075E+00 4.171570E-01 6.470986E+00 4.445589E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 181 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 8.683133E-01 2 ROOTS BELOW 8.683135E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.86831325E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 182 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 8.683133E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 183 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 8.683133E-01 9.318333E-01 1.483059E-01 2.029973E+00 1.762653E+00 2 2 8.683133E-01 9.318333E-01 1.483059E-01 2.029973E+00 1.762653E+00 3 3 5.981846E+00 2.445781E+00 3.892582E-01 7.359311E+00 4.402227E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 184 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 7.992003E-01 2 ROOTS BELOW 7.992005E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.79920030E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 185 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 7.992003E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 186 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 7.992003E-01 8.939800E-01 1.422813E-01 2.062026E+00 1.647972E+00 2 2 7.992003E-01 8.939800E-01 1.422813E-01 2.062026E+00 1.647972E+00 3 3 5.627209E+00 2.372174E+00 3.775432E-01 8.627326E+00 4.854776E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 187 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0 ROOTS BELOW 7.361485E-01 2 ROOTS BELOW 7.361487E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.73614854E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 188 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 7.361485E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 189 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 7.361485E-01 8.579910E-01 1.365535E-01 2.475736E+00 1.822510E+00 2 2 7.361485E-01 8.579910E-01 1.365535E-01 2.475736E+00 1.822510E+00 3 3 5.622042E+00 2.371084E+00 3.773698E-01 1.067517E+01 6.001626E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 190 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 6.593905E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.65939021E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 191 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 6.593902E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 192 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 6.593902E-01 8.120285E-01 1.292383E-01 2.630782E+00 1.734712E+00 2 2 6.593902E-01 8.120285E-01 1.292383E-01 2.630781E+00 1.734712E+00 3 3 5.494861E+00 2.344112E+00 3.730770E-01 8.501030E+00 4.671198E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 193 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 5.958204E-01 4 ROOTS BELOW 5.306709E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.59582043E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 194 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 5.958204E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 195 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 5.958204E-01 7.718940E-01 1.228507E-01 2.627584E+00 1.565568E+00 2 2 5.958204E-01 7.718940E-01 1.228507E-01 2.627584E+00 1.565568E+00 3 3 5.306709E+00 2.303630E+00 3.666340E-01 8.194882E+00 4.348786E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 196 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 5.575432E-01 4 ROOTS BELOW 5.131953E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.55754316E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 197 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 5.575432E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 198 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 5.575432E-01 7.466881E-01 1.188391E-01 2.783600E+00 1.551977E+00 2 2 5.575432E-01 7.466881E-01 1.188391E-01 2.783600E+00 1.551977E+00 3 3 5.131952E+00 2.265381E+00 3.605466E-01 7.394913E+00 3.795034E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 199 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 5.336769E-01 4 ROOTS BELOW 4.880830E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.53367692E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 200 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 5.336769E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 201 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 5.336769E-01 7.305319E-01 1.162678E-01 3.202384E+00 1.709039E+00 2 2 5.336769E-01 7.305319E-01 1.162678E-01 3.202384E+00 1.709039E+00 3 3 4.880829E+00 2.209260E+00 3.516146E-01 7.592436E+00 3.705738E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 202 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 5.359764E-01 4 ROOTS BELOW 4.747913E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.53597641E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 203 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 5.359764E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 204 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 5.359764E-01 7.321041E-01 1.165180E-01 3.144005E+00 1.685113E+00 2 2 5.359764E-01 7.321041E-01 1.165180E-01 3.144005E+00 1.685112E+00 3 3 4.747912E+00 2.178970E+00 3.467939E-01 7.083654E+00 3.363257E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 205 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 5.876017E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.58760154E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 206 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 5.876015E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 207 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 5.876015E-01 7.665517E-01 1.220005E-01 2.685214E+00 1.577836E+00 2 2 5.876015E-01 7.665517E-01 1.220005E-01 2.685214E+00 1.577836E+00 3 3 4.992240E+00 2.234332E+00 3.556050E-01 8.503616E+00 4.245210E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 208 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 6.861597E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.68615878E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 209 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 6.861588E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 210 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 6.861588E-01 8.283470E-01 1.318355E-01 2.414104E+00 1.656459E+00 2 2 6.861588E-01 8.283470E-01 1.318355E-01 2.414104E+00 1.656459E+00 3 3 5.667504E+00 2.380652E+00 3.788925E-01 7.904679E+00 4.479980E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 211 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 8.040722E-01 2 ROOTS BELOW 8.040723E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.80407220E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 212 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 8.040722E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 213 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 8.040722E-01 8.967007E-01 1.427144E-01 2.157309E+00 1.734632E+00 2 2 8.040722E-01 8.967007E-01 1.427144E-01 2.157309E+00 1.734632E+00 3 3 6.416156E+00 2.533013E+00 4.031416E-01 8.603595E+00 5.520201E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 214 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 9.083910E-01 2 ROOTS BELOW 9.083915E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.90839100E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 215 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 9.083910E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 216 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.083910E-01 9.530955E-01 1.516899E-01 1.782447E+00 1.619159E+00 2 2 9.083910E-01 9.530955E-01 1.516899E-01 1.782447E+00 1.619159E+00 3 3 6.749811E+00 2.598040E+00 4.134909E-01 8.684257E+00 5.861709E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 217 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 9.455628E-01 2 ROOTS BELOW 9.455660E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.94556278E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 218 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 9.455628E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 219 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.455628E-01 9.724005E-01 1.547623E-01 1.808458E+00 1.710010E+00 2 2 9.455628E-01 9.724005E-01 1.547623E-01 1.808458E+00 1.710010E+00 3 3 6.461301E+00 2.541909E+00 4.045574E-01 7.423260E+00 4.796392E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 220 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0 ROOTS BELOW 9.249544E-01 2 ROOTS BELOW 9.249547E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.92495441E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 221 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 9.249544E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 222 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.249544E-01 9.617455E-01 1.530665E-01 2.252204E+00 2.083186E+00 2 2 9.249544E-01 9.617455E-01 1.530665E-01 2.252204E+00 2.083186E+00 3 3 6.417231E+00 2.533226E+00 4.031754E-01 5.341538E+00 3.427789E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 223 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 9.568959E-01 2 ROOTS BELOW 9.568964E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.95689595E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 224 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 9.568959E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 225 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.568959E-01 9.782106E-01 1.556870E-01 1.889426E+00 1.807984E+00 2 2 9.568959E-01 9.782106E-01 1.556870E-01 1.889426E+00 1.807984E+00 3 3 7.384926E+00 2.717522E+00 4.325071E-01 4.077715E+00 3.011362E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 226 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 1.047550E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.10475504E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 227 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.047550E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 228 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.047550E+00 1.023499E+00 1.628949E-01 1.487278E+00 1.557998E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 229 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 1.060557E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.10605574E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 230 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.060557E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 231 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.060557E+00 1.029834E+00 1.639031E-01 1.497792E+00 1.588495E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 232 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 9.974861E-01 2 ROOTS BELOW 9.974875E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.99748605E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 233 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 9.974861E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 234 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.974861E-01 9.987422E-01 1.589548E-01 1.734219E+00 1.729859E+00 2 2 9.974861E-01 9.987422E-01 1.589548E-01 1.734219E+00 1.729859E+00 3 3 9.924582E+00 3.150331E+00 5.013906E-01 3.337023E+00 3.311856E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 235 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 9.941482E-01 2 ROOTS BELOW 9.941483E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.99414819E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 236 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 9.941482E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 237 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.941482E-01 9.970698E-01 1.586886E-01 1.801013E+00 1.790473E+00 2 2 9.941482E-01 9.970698E-01 1.586886E-01 1.801013E+00 1.790473E+00 3 3 9.744828E+00 3.121671E+00 4.968293E-01 3.640042E+00 3.547158E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 238 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0 ROOTS BELOW 1.069641E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.10696411E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 239 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.069641E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 240 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.069641E+00 1.034235E+00 1.646035E-01 1.593208E+00 1.704161E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 241 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0 ROOTS BELOW 1.154459E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.11544585E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 242 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.154459E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 243 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.154459E+00 1.074457E+00 1.710052E-01 1.461158E+00 1.686846E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 244 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.12252703E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 245 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.225270E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 246 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.225270E+00 1.106919E+00 1.761717E-01 1.393649E+00 1.707597E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 247 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0 ROOTS BELOW 1.347963E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.13479626E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 248 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.347963E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 249 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.347963E+00 1.161018E+00 1.847817E-01 1.327447E+00 1.789348E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 250 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.16513678E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 251 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.651368E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 252 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.651368E+00 1.285056E+00 2.045229E-01 1.104849E+00 1.824513E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 253 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.22823515E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 254 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 2.282351E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 255 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 2.282351E+00 1.510745E+00 2.404426E-01 8.352928E-01 1.906432E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 256 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 3.107117E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.31071169E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 257 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 3.107117E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 258 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 3.107117E+00 1.762702E+00 2.805427E-01 9.782218E-01 3.039449E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 259 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0 ROOTS BELOW 3.846237E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.38462367E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 260 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 3.846237E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 261 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 3.846237E+00 1.961182E+00 3.121319E-01 8.893837E-01 3.420780E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 262 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0 ROOTS BELOW 5.310287E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.53102875E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 263 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 5.310287E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 264 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 5.310287E+00 2.304406E+00 3.667576E-01 4.318754E-01 2.293383E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 265 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 5.234330E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.52343292E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 266 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 5.234329E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 267 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 5.234329E+00 2.287866E+00 3.641251E-01 3.348491E-01 1.752710E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 268 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 2.603357E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.26033566E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 269 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 2.603357E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 270 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 2.603357E+00 1.613492E+00 2.567952E-01 7.632375E-01 1.986979E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 271 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.15403464E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 272 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.540346E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 273 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.540346E+00 1.241107E+00 1.975283E-01 1.203981E+00 1.854547E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 274 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.11883297E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 275 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.188330E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 276 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.188330E+00 1.090105E+00 1.734957E-01 1.454685E+00 1.728645E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 277 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.10155536E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 278 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.015554E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 279 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.015554E+00 1.007747E+00 1.603879E-01 1.757779E+00 1.785119E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 280 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 9.330094E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.93300760E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 281 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 9.330076E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 282 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.330076E-01 9.659232E-01 1.537315E-01 1.900522E+00 1.773201E+00 2 2 9.330076E-01 9.659232E-01 1.537315E-01 1.900520E+00 1.773200E+00 3 3 1.217451E+01 3.489199E+00 5.553233E-01 2.296540E+00 2.795925E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 283 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 2 ROOTS BELOW 9.758211E-01 2 ROOTS BELOW 9.758236E-01 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.97582114E+00 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 284 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 9.758211E-01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 285 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 9.758211E-01 9.878366E-01 1.572191E-01 1.641426E+00 1.601739E+00 2 2 9.758211E-01 9.878366E-01 1.572191E-01 1.641426E+00 1.601739E+00 3 3 1.101580E+01 3.319006E+00 5.282362E-01 3.781407E+00 4.165523E+01 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 286 NASTRAN TEST PROBLEM NO. T09-07-1A A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK GPTT MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0 ROOTS BELOW 5.050000E-01 0 ROOTS BELOW 1.063977E+00 0*** SYSTEM WARNING MESSAGE 3022 + (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3) DATA BLOCK CSTM MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. 0*** USER INFORMATION MESSAGE FROM PARAML MODULE - TABLE1 - (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37) INPUT FILE LAMA RECORD 2 WORD 3 = + 0.10639768E+01 = EIGV 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 287 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING 0 C O N T E N T S O F P A R A M E T E R T A B L E EIGV 1.063977E+00 1 DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 288 NASTRAN TEST PROBLEM NO. T09-07-1A 0 A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 1.063977E+00 1.031492E+00 1.641671E-01 1.449446E+00 1.542177E+00 * * * END OF JOB * * * 1 JOB TITLE = DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER DATE: 5/18/95 END TIME: 10:57:36 TOTAL WALL CLOCK TIME 7 SEC. ================================================ FILE: demoout/t13021a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T13021A,NASTRAN APP DISP SOL 13 DIAG 38 TIME 10 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS 2 SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 3 ECHO = BOTH 4 DISP = ALL 5 SPC = 1 6 SUBCASE 1 7 LABEL = STATIC SOLUTION 8 LOAD = 1 9 OLOAD = ALL 10 SUBCASE 2 11 LABEL = SECOND ORDER STATICS SOLUTION 12 DSCOEFFICIENT = DEFAULT 13 SUBCASE 3 14 LABEL = NORMAL MODES WITH DIFFERENTIAL STIFFNESS 15 METHOD = 1 16 BEGIN BULK 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ -FF- SPC,1,1,126 -FF- CORD2C, 1 0 0. 0. 0. 0. 0. 1. -FF- , 1. 0. 0. -FF- CONM2, 9 1,, 5.74025 0. 0. 0. )+C-21 -FF- =(7), *(1),*(1),,== -FF- +C-21, 5.74025 0.0 5.74025, 0. 0. 5.74025 -FF- =(7),== -FF- FORCE1, 1 1 26516.5 5 1 -FF- =(3), =,*(1), = *(1),/ -FF- FORCE1, 1 5 26516.5 1 5 -FF- =(3), =,*(1), = *(1),/ -FF- GRID, 1 0 0. 75. 0. 0 345 -FF- GRID, 2 0 53.033 53.033 == -FF- GRID, 3 0 75. 0. == -FF- GRID, 4 0 53.033 -53.033 == -FF- GRID, 5 0 0. -75. == -FF- GRID, 6 0 -53.033 -53.033 == -FF- GRID, 7 0 -75. 0. == -FF- GRID, 8 0 -53.033 53.033 == -FF- BAROR,,1,,, 1. 0. 0. -FF- CBAR, 1 1 1 2 -FF- =(6),*(1),=, *(1),/ -FF- CBAR, 8 1 8 1 -FF- PBAR, 1 1 1. .83333 .83333 -FF- CPSE2,17 2 1 2 -FF- =(6),*(1),=, *(1),/ -FF- CPSE2,24 2 8 1 -FF- PPSE, 2 500. -FF- MAT1, 1 1.E7,, 0.3 -FF- EIGR, 1 FEER,, 1.0E-8,, 10 -FF- , MAX ENDDATA TOTAL COUNT= 31 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BAROR 1 1. 0. 0. 2- CBAR 1 1 1 2 3- CBAR 2 1 2 3 4- CBAR 3 1 3 4 5- CBAR 4 1 4 5 6- CBAR 5 1 5 6 7- CBAR 6 1 6 7 8- CBAR 7 1 7 8 9- CBAR 8 1 8 1 10- CONM2 9 1 5.74025 0. 0. 0. +C-21 11- +C-21 5.74025 0.0 5.74025 0. 0. 5.74025 12- CONM2 10 2 5.74025 0. 0. 0. +C-22 13- +C-22 5.74025 0.0 5.74025 0. 0. 5.74025 14- CONM2 11 3 5.74025 0. 0. 0. +C-23 15- +C-23 5.74025 0.0 5.74025 0. 0. 5.74025 16- CONM2 12 4 5.74025 0. 0. 0. +C-24 17- +C-24 5.74025 0.0 5.74025 0. 0. 5.74025 18- CONM2 13 5 5.74025 0. 0. 0. +C-25 19- +C-25 5.74025 0.0 5.74025 0. 0. 5.74025 20- CONM2 14 6 5.74025 0. 0. 0. +C-26 21- +C-26 5.74025 0.0 5.74025 0. 0. 5.74025 22- CONM2 15 7 5.74025 0. 0. 0. +C-27 23- +C-27 5.74025 0.0 5.74025 0. 0. 5.74025 24- CONM2 16 8 5.74025 0. 0. 0. +C-28 25- +C-28 5.74025 0.0 5.74025 0. 0. 5.74025 26- CORD2C 1 0 0. 0. 0. 0. 0. 1. +C0N0001 27- +C0N00011. 0. 0. 28- CPSE2 17 2 1 2 29- CPSE2 18 2 2 3 30- CPSE2 19 2 3 4 31- CPSE2 20 2 4 5 32- CPSE2 21 2 5 6 33- CPSE2 22 2 6 7 34- CPSE2 23 2 7 8 35- CPSE2 24 2 8 1 36- EIGR 1 FEER 1.0E-8 10 +C0N0002 37- +C0N0002MAX 38- FORCE1 1 1 26516.5 5 1 39- FORCE1 1 2 26516.5 6 2 40- FORCE1 1 3 26516.5 7 3 41- FORCE1 1 4 26516.5 8 4 42- FORCE1 1 5 26516.5 1 5 43- FORCE1 1 6 26516.5 2 6 44- FORCE1 1 7 26516.5 3 7 45- FORCE1 1 8 26516.5 4 8 46- GRID 1 0 0. 75. 0. 0 345 47- GRID 2 0 53.033 53.033 0. 0 345 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- GRID 3 0 75. 0. 0. 0 345 49- GRID 4 0 53.033 -53.033 0. 0 345 50- GRID 5 0 0. -75. 0. 0 345 51- GRID 6 0 -53.033 -53.033 0. 0 345 52- GRID 7 0 -75. 0. 0. 0 345 53- GRID 8 0 -53.033 53.033 0. 0 345 54- MAT1 1 1.E7 0.3 55- PBAR 1 1 1. .83333 .83333 56- PPSE 2 500. 57- SPC 1 1 126 ENDDATA 0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO SMALL PROBLEM SIZE 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 ELEMENT 1 IS BEING PROCESSED ELEMENT 2 IS BEING PROCESSED ELEMENT 3 IS BEING PROCESSED ELEMENT 4 IS BEING PROCESSED ELEMENT 5 IS BEING PROCESSED ELEMENT 6 IS BEING PROCESSED ELEMENT 7 IS BEING PROCESSED ELEMENT 8 IS BEING PROCESSED 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONM2 ELEMENTS (ELEMENT TYPE 30) STARTING WITH ID 9 ELEMENT 9 IS BEING PROCESSED ELEMENT 10 IS BEING PROCESSED ELEMENT 11 IS BEING PROCESSED ELEMENT 12 IS BEING PROCESSED ELEMENT 13 IS BEING PROCESSED ELEMENT 14 IS BEING PROCESSED ELEMENT 15 IS BEING PROCESSED ELEMENT 16 IS BEING PROCESSED 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION PSE2 ELEMENTS (ELEMENT TYPE 84) STARTING WITH ID 17 (STEPPING THRU ONLY. NO REAL COMPUTATION HERE FOR THIS DIFFERENTIAL STIFFNESS ELEMENT) ELEMENT 17 IS BEING PROCESSED ELEMENT 18 IS BEING PROCESSED ELEMENT 19 IS BEING PROCESSED ELEMENT 20 IS BEING PROCESSED ELEMENT 21 IS BEING PROCESSED ELEMENT 22 IS BEING PROCESSED ELEMENT 23 IS BEING PROCESSED ELEMENT 24 IS BEING PROCESSED *** EMG ELEMENT PROCESSING TIME = 0 SECONDS 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -1.7223002E-17 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 STATIC SOLUTION SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 1.837395E-01 -7.609576E-02 0.0 0.0 0.0 -3.498168E-15 3 G 2.598352E-01 -2.598352E-01 0.0 0.0 0.0 -3.885781E-15 4 G 1.837395E-01 -4.435747E-01 0.0 0.0 0.0 -2.811119E-15 5 G -4.842515E-13 -5.196705E-01 0.0 0.0 0.0 -2.224783E-15 6 G -1.837395E-01 -4.435747E-01 0.0 0.0 0.0 -2.735659E-15 7 G -2.598352E-01 -2.598352E-01 0.0 0.0 0.0 -3.795358E-15 8 G -1.837395E-01 -7.609576E-02 0.0 0.0 0.0 -3.705494E-15 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 STATIC SOLUTION SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 2.651650E+04 0.0 0.0 0.0 0.0 2 G 1.875000E+04 1.875000E+04 0.0 0.0 0.0 0.0 3 G 2.651650E+04 0.0 0.0 0.0 0.0 0.0 4 G 1.875000E+04 -1.875000E+04 0.0 0.0 0.0 0.0 5 G 0.0 -2.651650E+04 0.0 0.0 0.0 0.0 6 G -1.875000E+04 -1.875000E+04 0.0 0.0 0.0 0.0 7 G -2.651650E+04 0.0 0.0 0.0 0.0 0.0 8 G -1.875000E+04 1.875000E+04 0.0 0.0 0.0 0.0 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0*** USER WARNING MESSAGE 3117, DIFFERENTIAL STIFFNESS CAPABILITY NOT DEFINED FOR CONM2 ELEMENTS (ELEMENT TYPE 30). 0*** DS1 MODULE PROCESSING BAR ELEMENTS (ELEM.TYPE 2) 0*** DS1 MODULE PROCESSING PSE2 ELEMENTS (ELEM.TYPE 84) 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E DET 7.334229E+05 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E POWER 98 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 5.5188415E-17 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 SECOND ORDER STATICS SOLUTION SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 1.843757E-01 -7.636641E-02 0.0 0.0 0.0 -1.599281E-15 3 G 2.607422E-01 -2.607422E-01 0.0 0.0 0.0 -1.429412E-15 4 G 1.843757E-01 -4.451179E-01 0.0 0.0 0.0 -1.315354E-15 5 G -2.094713E-13 -5.214843E-01 0.0 0.0 0.0 -1.290201E-15 6 G -1.843757E-01 -4.451179E-01 0.0 0.0 0.0 -1.356771E-15 7 G -2.607422E-01 -2.607422E-01 0.0 0.0 0.0 -1.471046E-15 8 G -1.843757E-01 -7.636641E-02 0.0 0.0 0.0 -1.500043E-15 0 ROOTS BELOW 9.261520E-01 0*** USER WARNING MESSAGE 2399 ONLY THE FIRST 14 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS. 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0*** USER INFORMATION MESSAGE 2392 11 MORE ACCURATE EIGENSOLUTIONS THAN THE 10 REQUESTED HAVE BEEN FOUND. USE DIAG 16 TO DETERMINE ERROR BOUNDS 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 E I G E N V A L U E A N A L Y S I S S U M M A R Y (FEER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 21 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 1 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 20 0 REASON FOR TERMINATION . . . . . . . . . . . 0* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* NORMAL TERMINATION SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 2.707658E+00 1.645496E+00 2.618889E-01 2.242280E+01 6.071328E+01 2 2 5.587644E+01 7.475055E+00 1.189692E+00 2.450578E+01 1.369296E+03 3 3 1.857250E+02 1.362810E+01 2.168979E+00 3.909978E+01 7.261808E+03 4 4 3.711505E+02 1.926526E+01 3.066162E+00 2.610142E+01 9.687553E+03 5 5 5.775303E+02 2.403186E+01 3.824789E+00 2.096560E+01 1.210827E+04 6 6 7.428421E+02 2.725513E+01 4.337789E+00 2.291893E+01 1.702515E+04 7 7 1.464524E+04 1.210175E+02 1.926054E+01 2.831314E+01 4.146527E+05 8 8 1.618473E+04 1.272192E+02 2.024757E+01 2.160113E+01 3.496086E+05 9 9 2.712078E+04 1.646839E+02 2.621025E+01 3.319649E+01 9.003148E+05 10 10 4.169686E+04 2.041981E+02 3.249913E+01 3.089459E+01 1.288207E+06 11 11 5.886928E+04 2.426299E+02 3.861575E+01 4.757251E+01 2.800559E+06 12 12 7.603062E+04 2.757365E+02 4.388483E+01 2.409207E+01 1.831735E+06 13 13 9.056866E+04 3.009463E+02 4.789708E+01 2.311527E+01 2.093519E+06 14 14 1.002732E+05 3.166595E+02 5.039792E+01 2.260348E+01 2.266524E+06 15 15 2.226074E+05 4.718129E+02 7.509135E+01 2.297425E+01 5.114237E+06 16 16 2.395745E+05 4.894635E+02 7.790054E+01 2.297670E+01 5.504632E+06 17 17 2.649443E+05 5.147274E+02 8.192141E+01 2.297722E+01 6.087686E+06 18 18 2.948386E+05 5.429904E+02 8.641961E+01 2.297125E+01 6.772811E+06 19 19 3.247055E+05 5.698294E+02 9.069116E+01 2.296775E+01 7.457754E+06 20 20 3.500086E+05 5.916152E+02 9.415849E+01 2.296216E+01 8.036952E+06 21 21 3.669085E+05 6.057297E+02 9.640488E+01 2.295811E+01 8.423527E+06 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.270766E+01 (CYCLIC FREQUENCY = 2.618889E-01 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 1.284672E-01 3.101401E-01 0.0 0.0 0.0 7.380137E-03 3 G 5.145237E-01 4.702508E-01 0.0 0.0 0.0 6.970944E-03 4 G 8.652695E-01 3.251251E-01 0.0 0.0 0.0 6.331475E-03 5 G 1.000000E+00 3.829219E-13 0.0 0.0 0.0 6.077970E-03 6 G 8.652695E-01 -3.251251E-01 0.0 0.0 0.0 6.331475E-03 7 G 5.145237E-01 -4.702508E-01 0.0 0.0 0.0 6.970944E-03 8 G 1.284672E-01 -3.101401E-01 0.0 0.0 0.0 7.380137E-03 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.558764E+02 (CYCLIC FREQUENCY = 1.189692E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 2.414915E-01 5.898918E-01 0.0 0.0 0.0 9.245618E-03 3 G 4.015038E-01 6.590679E-01 0.0 0.0 0.0 -2.270583E-03 4 G 8.710332E-02 7.905549E-01 0.0 0.0 0.0 -5.954274E-03 5 G -2.153988E-13 1.000000E+00 0.0 0.0 0.0 -1.894805E-15 6 G -8.710332E-02 7.905549E-01 0.0 0.0 0.0 5.954274E-03 7 G -4.015038E-01 6.590679E-01 0.0 0.0 0.0 2.270583E-03 8 G -2.414915E-01 5.898918E-01 0.0 0.0 0.0 -9.245618E-03 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.185725E+03 (CYCLIC FREQUENCY = 2.168979E+00 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 3.893155E-01 9.574886E-01 0.0 0.0 0.0 6.798845E-03 3 G -1.735202E-01 7.295842E-01 0.0 0.0 0.0 -1.583200E-02 4 G -8.291520E-01 1.000000E+00 0.0 0.0 0.0 3.153949E-03 5 G -4.169843E-01 9.922094E-13 0.0 0.0 0.0 2.301272E-02 6 G -8.291520E-01 -1.000000E+00 0.0 0.0 0.0 3.153949E-03 7 G -1.735202E-01 -7.295842E-01 0.0 0.0 0.0 -1.583200E-02 8 G 3.893155E-01 -9.574886E-01 0.0 0.0 0.0 6.798845E-03 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.371150E+03 (CYCLIC FREQUENCY = 3.066162E+00 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G -3.166766E-01 -7.849174E-01 0.0 0.0 0.0 2.817299E-03 3 G 8.335888E-01 -3.123398E-01 0.0 0.0 0.0 1.179721E-02 4 G 4.862138E-01 -1.667335E-01 0.0 0.0 0.0 -1.966327E-02 5 G -8.856540E-15 1.000000E+00 0.0 0.0 0.0 -2.221121E-14 6 G -4.862138E-01 -1.667335E-01 0.0 0.0 0.0 1.966327E-02 7 G -8.335888E-01 -3.123398E-01 0.0 0.0 0.0 -1.179721E-02 8 G 3.166766E-01 -7.849174E-01 0.0 0.0 0.0 -2.817299E-03 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.577530E+03 (CYCLIC FREQUENCY = 3.824789E+00 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G -2.328868E-01 -5.806748E-01 0.0 0.0 0.0 7.996460E-03 3 G 1.000000E+00 -7.167260E-02 0.0 0.0 0.0 -1.341993E-03 4 G -3.945546E-01 5.059425E-01 0.0 0.0 0.0 -1.249310E-02 5 G -1.878534E-01 4.565514E-13 0.0 0.0 0.0 1.538239E-02 6 G -3.945546E-01 -5.059425E-01 0.0 0.0 0.0 -1.249310E-02 7 G 1.000000E+00 7.167260E-02 0.0 0.0 0.0 -1.341993E-03 8 G -2.328868E-01 5.806748E-01 0.0 0.0 0.0 7.996460E-03 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.742842E+03 (CYCLIC FREQUENCY = 4.337789E+00 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 1.360774E-01 3.411555E-01 0.0 0.0 0.0 -7.494777E-03 3 G -7.441465E-01 -2.299829E-02 0.0 0.0 0.0 7.754824E-03 4 G 6.644291E-01 -6.046113E-01 0.0 0.0 0.0 -3.380214E-03 5 G 1.688945E-13 1.000000E+00 0.0 0.0 0.0 -3.453027E-14 6 G -6.644291E-01 -6.046113E-01 0.0 0.0 0.0 3.380214E-03 7 G 7.441465E-01 -2.299829E-02 0.0 0.0 0.0 -7.754824E-03 8 G -1.360774E-01 3.411555E-01 0.0 0.0 0.0 7.494777E-03 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.146452E+05 (CYCLIC FREQUENCY = 1.926054E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 1.000000E+00 4.690230E-01 0.0 0.0 0.0 5.165213E-03 3 G 7.710513E-01 -2.189006E-01 0.0 0.0 0.0 -8.675564E-03 4 G 3.816655E-01 -5.275086E-01 0.0 0.0 0.0 -2.514183E-03 5 G 2.768440E-15 -5.995524E-01 0.0 0.0 0.0 -1.521622E-15 6 G -3.816655E-01 -5.275086E-01 0.0 0.0 0.0 2.514183E-03 7 G -7.710513E-01 -2.189006E-01 0.0 0.0 0.0 8.675564E-03 8 G -1.000000E+00 4.690230E-01 0.0 0.0 0.0 -5.165213E-03 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.161847E+05 (CYCLIC FREQUENCY = 2.024757E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 1.000000E+00 3.513371E-01 0.0 0.0 0.0 2.362088E-03 3 G 5.868518E-01 -3.873774E-01 0.0 0.0 0.0 -1.328794E-02 4 G -4.683682E-02 -4.510217E-01 0.0 0.0 0.0 -9.488540E-03 5 G -3.397721E-01 6.935726E-15 0.0 0.0 0.0 -9.669770E-03 6 G -4.683682E-02 4.510217E-01 0.0 0.0 0.0 -9.488540E-03 7 G 5.868518E-01 3.873774E-01 0.0 0.0 0.0 -1.328794E-02 8 G 1.000000E+00 -3.513371E-01 0.0 0.0 0.0 2.362088E-03 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.271208E+05 (CYCLIC FREQUENCY = 2.621025E+01 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 8.503376E-01 -2.302047E-01 0.0 0.0 0.0 -9.969116E-03 3 G -2.258148E-01 -8.219364E-01 0.0 0.0 0.0 -2.382434E-02 4 G -9.247613E-01 1.813018E-01 0.0 0.0 0.0 -1.390307E-02 5 G 4.388331E-16 1.000000E+00 0.0 0.0 0.0 -8.210075E-15 6 G 9.247613E-01 1.813018E-01 0.0 0.0 0.0 1.390307E-02 7 G 2.258148E-01 -8.219364E-01 0.0 0.0 0.0 2.382434E-02 8 G -8.503376E-01 -2.302047E-01 0.0 0.0 0.0 9.969116E-03 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.416969E+05 (CYCLIC FREQUENCY = 3.249913E+01 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 7.873756E-01 -6.032104E-01 0.0 0.0 0.0 -1.640907E-02 3 G -5.326929E-01 -6.055111E-01 0.0 0.0 0.0 -1.645636E-02 4 G -1.096961E-01 7.374341E-01 0.0 0.0 0.0 1.131108E-02 5 G 1.000000E+00 -5.453509E-15 0.0 0.0 0.0 2.489663E-02 6 G -1.096961E-01 -7.374341E-01 0.0 0.0 0.0 1.131108E-02 7 G -5.326929E-01 6.055111E-01 0.0 0.0 0.0 -1.645636E-02 8 G 7.873756E-01 6.032104E-01 0.0 0.0 0.0 -1.640907E-02 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.588693E+05 (CYCLIC FREQUENCY = 3.861575E+01 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G -8.927019E-01 1.000000E+00 0.0 0.0 0.0 2.110830E-02 3 G 5.846779E-01 -1.202493E-01 0.0 0.0 0.0 -1.221400E-03 4 G -9.715657E-01 -9.345144E-01 0.0 0.0 0.0 -2.953043E-02 5 G -9.657251E-15 5.864559E-01 0.0 0.0 0.0 -2.214513E-14 6 G 9.715657E-01 -9.345144E-01 0.0 0.0 0.0 2.953043E-02 7 G -5.846779E-01 -1.202493E-01 0.0 0.0 0.0 1.221400E-03 8 G 8.927019E-01 1.000000E+00 0.0 0.0 0.0 -2.110830E-02 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.760306E+05 (CYCLIC FREQUENCY = 4.388483E+01 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G -5.334819E-01 7.205676E-01 0.0 0.0 0.0 1.054802E-02 3 G 1.910303E-01 -7.480000E-01 0.0 0.0 0.0 -1.176767E-02 4 G -4.410776E-01 -6.102697E-02 0.0 0.0 0.0 -6.138468E-03 5 G 1.000000E+00 -4.613551E-15 0.0 0.0 0.0 1.689395E-02 6 G -4.410776E-01 6.102697E-02 0.0 0.0 0.0 -6.138468E-03 7 G 1.910303E-01 7.480000E-01 0.0 0.0 0.0 -1.176767E-02 8 G -5.334819E-01 -7.205676E-01 0.0 0.0 0.0 1.054802E-02 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.905687E+05 (CYCLIC FREQUENCY = 4.789708E+01 HZ) R E A L E I G E N V E C T O R N O . 13 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 3.788773E-01 -5.653406E-01 0.0 0.0 0.0 -3.777566E-03 3 G 6.429062E-03 1.000000E+00 0.0 0.0 0.0 9.576125E-03 4 G -4.222890E-01 -5.966369E-01 0.0 0.0 0.0 -7.219894E-03 5 G 8.184130E-16 1.776311E-01 0.0 0.0 0.0 -1.112045E-14 6 G 4.222890E-01 -5.966369E-01 0.0 0.0 0.0 7.219894E-03 7 G -6.429062E-03 1.000000E+00 0.0 0.0 0.0 -9.576125E-03 8 G -3.788773E-01 -5.653406E-01 0.0 0.0 0.0 3.777566E-03 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.100273E+06 (CYCLIC FREQUENCY = 5.039792E+01 HZ) R E A L E I G E N V E C T O R N O . 14 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 1.971174E-01 -3.092896E-01 0.0 0.0 0.0 4.216887E-04 3 G 6.124544E-02 6.944457E-01 0.0 0.0 0.0 1.914955E-03 4 G -6.743907E-01 -6.273094E-01 0.0 0.0 0.0 -2.910041E-03 5 G 1.000000E+00 2.413634E-15 0.0 0.0 0.0 3.212500E-03 6 G -6.743907E-01 6.273094E-01 0.0 0.0 0.0 -2.910041E-03 7 G 6.124544E-02 -6.944457E-01 0.0 0.0 0.0 1.914955E-03 8 G 1.971174E-01 3.092896E-01 0.0 0.0 0.0 4.216887E-04 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.222607E+06 (CYCLIC FREQUENCY = 7.509135E+01 HZ) R E A L E I G E N V E C T O R N O . 15 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 6.849311E-03 7.116025E-03 0.0 0.0 0.0 -3.832616E-01 3 G -7.422060E-03 -1.493988E-03 0.0 0.0 0.0 7.073861E-01 4 G 4.286518E-03 -1.377274E-03 0.0 0.0 0.0 -9.239542E-01 5 G -2.236648E-03 7.262262E-14 0.0 0.0 0.0 1.000000E+00 6 G 4.286518E-03 1.377274E-03 0.0 0.0 0.0 -9.239542E-01 7 G -7.422060E-03 1.493988E-03 0.0 0.0 0.0 7.073861E-01 8 G 6.849311E-03 -7.116025E-03 0.0 0.0 0.0 -3.832616E-01 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.239575E+06 (CYCLIC FREQUENCY = 7.790054E+01 HZ) R E A L E I G E N V E C T O R N O . 16 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 6.842889E-03 1.200935E-02 0.0 0.0 0.0 -7.079053E-01 3 G -2.902029E-05 -6.538044E-03 0.0 0.0 0.0 1.000000E+00 4 G -5.866607E-03 1.251013E-02 0.0 0.0 0.0 -7.068552E-01 5 G 8.330797E-15 -1.837641E-02 0.0 0.0 0.0 1.892045E-12 6 G 5.866607E-03 1.251013E-02 0.0 0.0 0.0 7.068552E-01 7 G 2.902029E-05 -6.538044E-03 0.0 0.0 0.0 -1.000000E+00 8 G -6.842889E-03 1.200935E-02 0.0 0.0 0.0 7.079053E-01 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.264944E+06 (CYCLIC FREQUENCY = 8.192141E+01 HZ) R E A L E I G E N V E C T O R N O . 17 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G -3.747096E-04 -1.213748E-02 0.0 0.0 0.0 9.244390E-01 3 G -1.566443E-02 7.100719E-03 0.0 0.0 0.0 -7.064996E-01 4 G 1.726858E-02 -1.171307E-02 0.0 0.0 0.0 -3.830836E-01 5 G -1.022344E-02 3.037211E-14 0.0 0.0 0.0 1.000000E+00 6 G 1.726858E-02 1.171307E-02 0.0 0.0 0.0 -3.830836E-01 7 G -1.566443E-02 -7.100719E-03 0.0 0.0 0.0 -7.064996E-01 8 G -3.747096E-04 1.213748E-02 0.0 0.0 0.0 9.244390E-01 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.294839E+06 (CYCLIC FREQUENCY = 8.641961E+01 HZ) R E A L E I G E N V E C T O R N O . 18 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 7.694811E-03 -8.134854E-03 0.0 0.0 0.0 1.000000E+00 3 G -2.189531E-02 -1.008891E-04 0.0 0.0 0.0 8.708183E-04 4 G 8.602217E-03 8.619879E-03 0.0 0.0 0.0 -9.999493E-01 5 G -3.021647E-14 -2.192677E-02 0.0 0.0 0.0 2.656466E-12 6 G -8.602217E-03 8.619879E-03 0.0 0.0 0.0 9.999493E-01 7 G 2.189531E-02 -1.008891E-04 0.0 0.0 0.0 -8.708183E-04 8 G -7.694811E-03 -8.134854E-03 0.0 0.0 0.0 -1.000000E+00 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 37 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.324706E+06 (CYCLIC FREQUENCY = 9.069116E+01 HZ) R E A L E I G E N V E C T O R N O . 19 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G -1.282935E-02 3.113260E-03 0.0 0.0 0.0 -9.234838E-01 3 G 1.311155E-02 9.262266E-03 0.0 0.0 0.0 -7.076359E-01 4 G 8.626055E-03 -1.566437E-02 0.0 0.0 0.0 3.823353E-01 5 G -1.300315E-02 2.997951E-14 0.0 0.0 0.0 1.000000E+00 6 G 8.626055E-03 1.566437E-02 0.0 0.0 0.0 3.823353E-01 7 G 1.311155E-02 -9.262266E-03 0.0 0.0 0.0 -7.076359E-01 8 G -1.282935E-02 -3.113260E-03 0.0 0.0 0.0 -9.234838E-01 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 38 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.350009E+06 (CYCLIC FREQUENCY = 9.415849E+01 HZ) R E A L E I G E N V E C T O R N O . 20 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 1.281643E-02 2.297516E-04 0.0 0.0 0.0 7.065557E-01 3 G 1.993990E-05 -1.331232E-02 0.0 0.0 0.0 1.000000E+00 4 G -1.327742E-02 1.064000E-06 0.0 0.0 0.0 7.073002E-01 5 G 9.228199E-15 1.328060E-02 0.0 0.0 0.0 -1.880622E-12 6 G 1.327742E-02 1.064000E-06 0.0 0.0 0.0 -7.073002E-01 7 G -1.993990E-05 -1.331232E-02 0.0 0.0 0.0 -1.000000E+00 8 G -1.281643E-02 2.297516E-04 0.0 0.0 0.0 -7.065557E-01 1 OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 39 NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.366908E+06 (CYCLIC FREQUENCY = 9.640488E+01 HZ) R E A L E I G E N V E C T O R N O . 21 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 0.0 0.0 0.0 2 G 7.871917E-03 9.971954E-04 0.0 0.0 0.0 3.823031E-01 3 G 4.871997E-03 -9.440393E-03 0.0 0.0 0.0 7.069060E-01 4 G -6.845628E-03 -1.056958E-02 0.0 0.0 0.0 9.238254E-01 5 G -1.333125E-02 1.835575E-14 0.0 0.0 0.0 1.000000E+00 6 G -6.845628E-03 1.056958E-02 0.0 0.0 0.0 9.238254E-01 7 G 4.871997E-03 9.440393E-03 0.0 0.0 0.0 7.069060E-01 8 G 7.871917E-03 -9.971954E-04 0.0 0.0 0.0 3.823031E-01 * * * END OF JOB * * * 1 JOB TITLE = OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS DATE: 5/18/95 END TIME: 10:58:16 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t13022a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T13022A,NASTRAN APP DISP DIAG 38 SOL 13 TIME 20 $ $ THIS PROBLEM DEMONSTRATES THE EFFECTS OF PRESSURE ON THE DYNAMICS OF $ PRE-STIFFENED STRUCTURE USEING CPSE3 AND CPSE4 DIFFERNTIAL STIFFNESS $ ELEMENTS $ $ THIS FREE-FREE UNIT LENGTH CYLINDER PROBLEM GIVES THE FOLLOWING $ NATURAL FREQUENCIES (HZ) $ $ WITHOUT THE PRESSURE WITH THE PRESSURE $ STIFFNESS ELEMENTS STIFFNESS ELEMENTS $ -------------------- ------------------ $ 3.4432 0.0053 $ 4.6821 5.3927 $ 13.2614 13.6570 $ 22.4341 22.6865 $ 33.1777 33.3529 $ 46.1936 46.3210 $ 61.9870 62.0752 $ 81.8336 81.8986 $ $ THE FOLLOWING DMAP ALTER ALLOWS SOL 13 TO USE DIFFERENT BOUNDARY $ CONDITION SPC'S FOR THE STATIC SOLUTION (SUBCASE 1 AND 2) AND THE $ NORMAL MODE SOLUTION (SUBCASE 3) $ $ THIS DMAP ALTER WILL CAUSE A NUMBER OF WARNING MESSAGES OF POTENTIAL $ ERRORS PRINTED, BUT IT WORKS OK $ ALTER 117 $ AFTER OFP MODULE AND BEFORE DPD IN RIGID FORMAT 13 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,ASET,OGPST/ LUSET/S,N,MPCF1/S,N,MPCF2/,S,N,SINGLE/S,N,OMIT/S,N,REACT/ S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/ S,N,AUTOSPC $ PARAM //*AND*/NOSR/SINGLE/REACT $ PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS/SINGLE/QG/NOSR $ OFP OGPST,,,,,//S,N,CARDNO $ LABEL LBL15D $ EQUIV KGG,KNN/MPCF1 $ COND LBL16D,MPCF1 $ MCE1 USET,RG/GM $ MCE2 USET,GM,KGG,,,/KNN,,, $ LABEL LBL16D $ 1 / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 5 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 EQUIV KNN,KFF/SINGLE $ COND LBL17D,SINGLE $ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ LABEL LBL17D $ EQUIV KFF,KAA/OMIT $ COND LBL18D,OMIT $ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ LABEL LBL18D $ EQUIV KDGG,KDNN/MPCF2 /MGG,MNN/MPCF2 $ COND LBL19D,MPCF2 $ MCE2 USET,GM,KDGG,MGG,,/KDNN,MNN,, $ LABEL LBL19D $ EQUIV KDNN,KDFF/SINGLE /MNN,MFF/SINGLE $ COND LBL20D,SINGLE $ SCE1 USET,KDNN,MNN,,/KDFF,KDFS,KDSS,MFF,, $ LABEL LBL20D $ EQUIV KDFF,KDAA/OMIT /MFF,MAA/OMIT $ COND LBL21D,OMIT $ SMP2 USET,GO,KDFF/KDAA $ SMP2 USET,GO,MFF/MAA $ LABEL LBL21D $ PARAM //*ADD*/DSCOSET/-1/0 $ PARAM //*MPY*/NDSKIP/0/0 $ DSMG2 MPT,KAA,KDAA,KFS,KDFS,KSS,KDSS,PL,PS,YS,UOOV/KBLL,KBFS,KBSS, PBL,PBS,YBS,UBOOV/S,N,NDSKIP/S,N,REPEATD/DSCOSET $ ENDALTER $ $ CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T13-02-2A 3 LABEL = NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS 4 ECHO = BOTH 5 DISP = ALL 6 $ 7 SUBCASE 1 8 LABEL = STATIC SOLUTION 9 LOAD = 1 10 SPC = 1 11 OLOAD = ALL 12 $ 13 SUBCASE 2 14 LABEL = SECOND ORDER STATICS SOLUTION 15 SPC = 4 16 DSCOEFFICIENT = DEFAULT 17 $ 18 SUBCASE 3 19 LABEL = NORMAL MODES WITH DIFFERENTIAL STIFFNESS 20 SPC = 4 21 METHOD = 1 22 $ 23 BEGIN BULK 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS 0 I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ -FF- PARAM,COUPMASS,1 -FF- CORD2C,1 0 0. 0. 0. 0. 0. 1. -FF- , 1. 0. 0. -FF- GRID, 1 1 5.0 0.0 0.5,, 345 -FF- GRID, 2 1 5.0 0.0 -0.5, == -FF- GRID, 3 1 5.0 11.0 0.5, == -FF- GRID, 4 1 5.0 11.0 -0.5, == -FF- GRID, 5 1 5.0 22.0 0.5, == -FF- GRID, 6 1 5.0 22.0 -0.5, == -FF- GRID, 7 1 5.0 33.0 0.5, == -FF- GRID, 8 1 5.0 33.0 -0.5, == -FF- GRID, 9 1 5.0 45.0 0.5, == -FF- GRID, 10 1 5.0 45.0 -0.5, == -FF- GRID, 11 1 5.0 56.0 0.5, == -FF- GRID, 12 1 5.0 56.0 -0.5, == -FF- GRID, 13 1 5.0 67.0 0.5, == -FF- GRID, 14 1 5.0 67.0 -0.5, == -FF- GRID, 15 1 5.0 78.0 0.5, == -FF- GRID, 16 1 5.0 78.0 -0.5, == -FF- GRID, 17 1 5.0 90.0 0.5, == -FF- GRID, 18 1 5.0 90.0 -0.5, == $ $ SPC=1 FOR SYMMETRY-SYMMETRY BC'S $ -FF- SPC, 1 1 26,, 2 26 -FF- SPC, 1 17 16,, 18 16 $ $ SPC=2 FOR SYMMETRY-ANTISYMMETRY BC'S $ -FF- SPC, 2 1 1,, 2 1 -FF- SPC, 2 17 16,, 18 16 $ $ SPC=3 FOR ANTISYMMETRY-SYMMETRY BC'S $ -FF- SPC, 3 1 26,, 2 26 -FF- SPC, 3 17 2,, 18 2 $ $ SPC=4 FOR ANTISYMMETRY-ANTISYMMETRY BC'S $ -FF- SPC, 4, 1, 1,, 2, 1 -FF- SPC, 4,17, 2,, 18, 2 $ -FF- CQUAD2, 1, 1, 1, 2, 4, 3 -FF- =(7), *(1),=,*(2), /// -FF- PQUAD2, 1, 1, 0.1 $ -FF- CPSE3, 10 2 1 2 4 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T13-02-2A NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS I N P U T B U L K D A T A D E C K E C H O ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ -FF- =(3), *(1),=,*(2), // -FF- CPSE3, 15 2 4 3 1 -FF- =(3), *(1),=,*(2), // $ -FF- CPSE4, 20 2 9 10 12 11 -FF- =(3), *(1),=,*(2), /// $ -FF- PPSE, 2 1000. -FF- PLOAD2,1 1000. 1 THRU 8 -FF- MAT1, 1 1.0E7,, 0.33 4.28 -FF- EIGR, 1 FEER,, 1.0E-8,, 10 -FF- , MAX ENDDATA TOTAL COUNT= 59 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CORD2C 1 0 0. 0. 0. 0. 0. 1. +C0N0001 2- +C0N00011. 0. 0. 3- CPSE3 10 2 1 2 4 4- CPSE3 11 2 3 4 6 5- CPSE3 12 2 5 6 8 6- CPSE3 13 2 7 8 10 7- CPSE3 15 2 4 3 1 8- CPSE3 16 2 6 5 3 9- CPSE3 17 2 8 7 5 10- CPSE3 18 2 10 9 7 11- CPSE4 20 2 9 10 12 11 12- CPSE4 21 2 11 12 14 13 13- CPSE4 22 2 13 14 16 15 14- CPSE4 23 2 15 16 18 17 15- CQUAD2 1 1 1 2 4 3 16- CQUAD2 2 1 3 4 6 5 17- CQUAD2 3 1 5 6 8 7 18- CQUAD2 4 1 7 8 10 9 19- CQUAD2 5 1 9 10 12 11 20- CQUAD2 6 1 11 12 14 13 21- CQUAD2 7 1 13 14 16 15 22- CQUAD2 8 1 15 16 18 17 23- EIGR 1 FEER 1.0E-8 10 +C0N0002 24- +C0N0002MAX 25- GRID 1 1 5.0 0.0 0.5 345 26- GRID 2 1 5.0 0.0 -0.5 345 27- GRID 3 1 5.0 11.0 0.5 345 28- GRID 4 1 5.0 11.0 -0.5 345 29- GRID 5 1 5.0 22.0 0.5 345 30- GRID 6 1 5.0 22.0 -0.5 345 31- GRID 7 1 5.0 33.0 0.5 345 32- GRID 8 1 5.0 33.0 -0.5 345 33- GRID 9 1 5.0 45.0 0.5 345 34- GRID 10 1 5.0 45.0 -0.5 345 35- GRID 11 1 5.0 56.0 0.5 345 36- GRID 12 1 5.0 56.0 -0.5 345 37- GRID 13 1 5.0 67.0 0.5 345 38- GRID 14 1 5.0 67.0 -0.5 345 39- GRID 15 1 5.0 78.0 0.5 345 40- GRID 16 1 5.0 78.0 -0.5 345 41- GRID 17 1 5.0 90.0 0.5 345 42- GRID 18 1 5.0 90.0 -0.5 345 43- MAT1 1 1.0E7 0.33 4.28 44- PARAM COUPMASS1 45- PLOAD2 1 1000. 1 THRU 8 46- PPSE 2 1000. 47- PQUAD2 1 1 0.1 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T13-02-2A NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- SPC 1 1 26 2 26 49- SPC 1 17 16 18 16 50- SPC 2 1 1 2 1 51- SPC 2 17 16 18 16 52- SPC 3 1 26 2 26 53- SPC 3 17 2 18 2 54- SPC 4 1 1 2 1 55- SPC 4 17 2 18 2 ENDDATA 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0*** USER WARNING MESSAGE 27, LABEL NAMED LBL15D NOT REFERENCED 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS 0 *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION GP4 INSTRUCTION NO. 117 DATA BLOCK NAMED RG ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION GP4 INSTRUCTION NO. 117 DATA BLOCK NAMED YS ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION GP4 INSTRUCTION NO. 117 DATA BLOCK NAMED USET ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION GP4 INSTRUCTION NO. 117 DATA BLOCK NAMED ASET ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION GP4 INSTRUCTION NO. 117 DATA BLOCK NAMED OGPST ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MCE1 INSTRUCTION NO. 117 DATA BLOCK NAMED GM ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MCE2 INSTRUCTION NO. 117 DATA BLOCK NAMED KNN ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 117 DATA BLOCK NAMED KFF ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 117 DATA BLOCK NAMED KFS ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 117 DATA BLOCK NAMED KSS ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SMP1 INSTRUCTION NO. 117 DATA BLOCK NAMED GO ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SMP1 INSTRUCTION NO. 117 DATA BLOCK NAMED KAA ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SMP1 INSTRUCTION NO. 117 DATA BLOCK NAMED KOO ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SMP1 INSTRUCTION NO. 117 DATA BLOCK NAMED LOO ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MCE2 INSTRUCTION NO. 117 DATA BLOCK NAMED KDNN ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION MCE2 INSTRUCTION NO. 117 DATA BLOCK NAMED MNN ALREADY APPEARED AS OUTPUT 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS 0 *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 117 DATA BLOCK NAMED KDFF ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 117 DATA BLOCK NAMED KDFS ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 117 DATA BLOCK NAMED KDSS ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SCE1 INSTRUCTION NO. 117 DATA BLOCK NAMED MFF ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SMP2 INSTRUCTION NO. 117 DATA BLOCK NAMED KDAA ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION SMP2 INSTRUCTION NO. 117 DATA BLOCK NAMED MAA ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2 INSTRUCTION NO. 117 DATA BLOCK NAMED KBLL ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2 INSTRUCTION NO. 117 DATA BLOCK NAMED KBFS ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2 INSTRUCTION NO. 117 DATA BLOCK NAMED KBSS ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2 INSTRUCTION NO. 117 DATA BLOCK NAMED PBL ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2 INSTRUCTION NO. 117 DATA BLOCK NAMED PBS ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2 INSTRUCTION NO. 117 DATA BLOCK NAMED YBS ALREADY APPEARED AS OUTPUT *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2 INSTRUCTION NO. 117 DATA BLOCK NAMED UBOOV ALREADY APPEARED AS OUTPUT 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 4 PROFILE 59 MAX WAVEFRONT 4 AVG WAVEFRONT 3.278 RMS WAVEFRONT 3.375 RMS BANDWIDTH 3.375 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 4 PROFILE 59 MAX WAVEFRONT 4 AVG WAVEFRONT 3.278 RMS WAVEFRONT 3.375 RMS BANDWIDTH 3.375 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 4 4 PROFILE (P) 59 59 MAXIMUM WAVEFRONT (C-MAX) 4 4 AVERAGE WAVEFRONT (C-AVG) 3.278 3.278 RMS WAVEFRONT (C-RMS) 3.375 3.375 RMS BANDWITCH (B-RMS) 3.375 3.375 NUMBER OF GRID POINTS (N) 18 NUMBER OF ELEMENTS (NON-RIGID) 20 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 5 MINIMUM NODAL DEGREE 3 NUMBER OF UNIQUE EDGES 41 MATRIX DENSITY, PERCENT 30.864 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION PSE3 ELEMENTS (ELEMENT TYPE 85) STARTING WITH ID 10 (STEPPING THRU ONLY. NO REAL COMPUTATION HERE FOR THIS DIFFERENTIAL STIFFNESS ELEMENT) ELEMENT 10 IS BEING PROCESSED ELEMENT 11 IS BEING PROCESSED ELEMENT 12 IS BEING PROCESSED ELEMENT 13 IS BEING PROCESSED ELEMENT 15 IS BEING PROCESSED ELEMENT 16 IS BEING PROCESSED ELEMENT 17 IS BEING PROCESSED ELEMENT 18 IS BEING PROCESSED 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION PSE4 ELEMENTS (ELEMENT TYPE 86) STARTING WITH ID 20 (STEPPING THRU ONLY. NO REAL COMPUTATION HERE FOR THIS DIFFERENTIAL STIFFNESS ELEMENT) ELEMENT 20 IS BEING PROCESSED ELEMENT 21 IS BEING PROCESSED ELEMENT 22 IS BEING PROCESSED ELEMENT 23 IS BEING PROCESSED 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION QUAD2 ELEMENTS (ELEMENT TYPE 18) STARTING WITH ID 1 ELEMENT 1 IS BEING PROCESSED 0*** SYSTEM INFORMATION MESSAGE 3107 EMGOLD CALLED BY EMGPRO TO PROCESS QUAD2 ELEMENTS. ELEMENT 2 IS BEING PROCESSED ELEMENT 3 IS BEING PROCESSED ELEMENT 4 IS BEING PROCESSED ELEMENT 5 IS BEING PROCESSED ELEMENT 6 IS BEING PROCESSED ELEMENT 7 IS BEING PROCESSED ELEMENT 8 IS BEING PROCESSED *** EMG ELEMENT PROCESSING TIME = 0 SECONDS 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 2.6358998E-16 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T13-02-2A 0 STATIC SOLUTION SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.216026E-02 0.0 0.0 0.0 0.0 0.0 2 G 2.216026E-02 0.0 0.0 0.0 0.0 0.0 3 G 2.175305E-02 4.231199E-03 0.0 0.0 0.0 -4.259074E-07 4 G 2.175305E-02 4.231199E-03 0.0 0.0 0.0 -4.259074E-07 5 G 2.054661E-02 8.307146E-03 0.0 0.0 0.0 -1.572640E-06 6 G 2.054661E-02 8.307146E-03 0.0 0.0 0.0 -1.572640E-06 7 G 1.858569E-02 1.207857E-02 0.0 0.0 0.0 -2.567732E-06 8 G 1.858569E-02 1.207857E-02 0.0 0.0 0.0 -2.567732E-06 9 G 1.567295E-02 1.567984E-02 0.0 0.0 0.0 -2.669212E-06 10 G 1.567295E-02 1.567984E-02 0.0 0.0 0.0 -2.669212E-06 11 G 1.239461E-02 1.838563E-02 0.0 0.0 0.0 -2.673929E-06 12 G 1.239461E-02 1.838563E-02 0.0 0.0 0.0 -2.673929E-06 13 G 8.660035E-03 2.041586E-02 0.0 0.0 0.0 -1.747645E-06 14 G 8.660035E-03 2.041586E-02 0.0 0.0 0.0 -1.747645E-06 15 G 4.606345E-03 2.169510E-02 0.0 0.0 0.0 -6.270882E-07 16 G 4.606345E-03 2.169510E-02 0.0 0.0 0.0 -6.270882E-07 17 G 0.0 2.217958E-02 0.0 0.0 0.0 0.0 18 G 0.0 2.217958E-02 0.0 0.0 0.0 0.0 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T13-02-2A 0 STATIC SOLUTION SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.385112E+02 2.296603E+01 0.0 0.0 0.0 0.0 2 G 2.385112E+02 2.296603E+01 0.0 0.0 0.0 0.0 3 G 4.682583E+02 9.102011E+01 0.0 0.0 0.0 0.0 4 G 4.682583E+02 9.102011E+01 0.0 0.0 0.0 0.0 5 G 4.422876E+02 1.786958E+02 0.0 0.0 0.0 0.0 6 G 4.422876E+02 1.786958E+02 0.0 0.0 0.0 0.0 7 G 4.156252E+02 2.750964E+02 0.0 0.0 0.0 0.0 8 G 4.156252E+02 2.750964E+02 0.0 0.0 0.0 0.0 9 G 3.554982E+02 3.493470E+02 0.0 0.0 0.0 0.0 10 G 3.554982E+02 3.493470E+02 0.0 0.0 0.0 0.0 11 G 2.667475E+02 3.954695E+02 0.0 0.0 0.0 0.0 12 G 2.667475E+02 3.954695E+02 0.0 0.0 0.0 0.0 13 G 1.863875E+02 4.391016E+02 0.0 0.0 0.0 0.0 14 G 1.863875E+02 4.391016E+02 0.0 0.0 0.0 0.0 15 G 9.936905E+01 4.884141E+02 0.0 0.0 0.0 0.0 16 G 9.936905E+01 4.884141E+02 0.0 0.0 0.0 0.0 17 G 2.731550E+01 2.598896E+02 0.0 0.0 0.0 0.0 18 G 2.731550E+01 2.598896E+02 0.0 0.0 0.0 0.0 0*** DS1 MODULE PROCESSING QUAD2 ELEMENTS (ELEM.TYPE 18) 0*** DS1 MODULE PROCESSING PSE3 ELEMENTS (ELEM.TYPE 85) 0*** DS1 MODULE PROCESSING PSE4 ELEMENTS (ELEM.TYPE 86) 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS 0 C O N T E N T S O F P A R A M E T E R T A B L E DET 3.675462E+03 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS 0 C O N T E N T S O F P A R A M E T E R T A B L E POWER 211 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T13-02-2A NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 1.9704693E-16 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T13-02-2A 0 SECOND ORDER STATICS SOLUTION SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.227929E-02 0.0 0.0 0.0 0.0 0.0 2 G 2.225735E-02 0.0 0.0 0.0 0.0 0.0 3 G 2.186038E-02 4.249917E-03 0.0 0.0 0.0 1.415515E-05 4 G 2.185755E-02 4.250106E-03 0.0 0.0 0.0 -1.353971E-05 5 G 2.064550E-02 8.343394E-03 0.0 0.0 0.0 -1.464868E-06 6 G 2.064639E-02 8.344118E-03 0.0 0.0 0.0 2.192695E-06 7 G 1.867405E-02 1.213061E-02 0.0 0.0 0.0 6.227188E-06 8 G 1.867433E-02 1.213117E-02 0.0 0.0 0.0 -5.712843E-06 9 G 1.574199E-02 1.574223E-02 0.0 0.0 0.0 1.042461E-06 10 G 1.575029E-02 1.575036E-02 0.0 0.0 0.0 -6.314226E-07 11 G 1.245085E-02 1.846157E-02 0.0 0.0 0.0 -7.730518E-06 12 G 1.245210E-02 1.846254E-02 0.0 0.0 0.0 7.888706E-06 13 G 8.699303E-03 2.049990E-02 0.0 0.0 0.0 6.515077E-07 14 G 8.698958E-03 2.049855E-02 0.0 0.0 0.0 6.512094E-08 15 G 4.626940E-03 2.178283E-02 0.0 0.0 0.0 1.323104E-06 16 G 4.626904E-03 2.178256E-02 0.0 0.0 0.0 -3.952430E-07 17 G 0.0 2.226867E-02 0.0 0.0 0.0 0.0 18 G 0.0 2.226882E-02 0.0 0.0 0.0 0.0 0 ROOTS BELOW 9.318945E+01 0*** USER WARNING MESSAGE 2399 ONLY THE FIRST 13 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS. 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T13-02-2A NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS 0*** USER INFORMATION MESSAGE 2392 20 MORE ACCURATE EIGENSOLUTIONS THAN THE 10 REQUESTED HAVE BEEN FOUND. USE DIAG 16 TO DETERMINE ERROR BOUNDS 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS E I G E N V A L U E A N A L Y S I S S U M M A R Y (FEER METHOD) 0 0 NUMBER OF EIGENVALUES EXTRACTED . . . . . . 30 0 NUMBER OF STARTING POINTS USED . . . . . . . 1 0 NUMBER OF STARTING POINT MOVES . . . . . . . 0 0 NUMBER OF TRIANGULAR DECOMPOSITIONS . . . . 1 0 TOTAL NUMBER OF VECTOR ITERATIONS . . . . . 29 0 REASON FOR TERMINATION . . . . . . . . . . . 0* 0 LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00 0 . . . 0 MODE PAIR . . . . . . . . . . . . . 0 0 NUMBER OF OFF-DIAGONAL MODAL MASS TERMS FAILING CRITERION . . . . . . . . 0 0 (* NORMAL TERMINATION SEE NASTRAN U.M. VOL II, SECTION 2.3.3) 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 1 -5.200633E-04 2.280490E-02 3.629512E-03 3.334377E+00 -1.734087E-03 2 2 1.148113E+03 3.388382E+01 5.392778E+00 4.198688E+00 4.820569E+03 3 3 7.363285E+03 8.580959E+01 1.365702E+01 2.088782E+00 1.538029E+04 4 4 2.031876E+04 1.425439E+02 2.268657E+01 1.163266E+00 2.363612E+04 5 5 4.391661E+04 2.095629E+02 3.335297E+01 5.851693E-01 2.569865E+04 6 6 8.470649E+04 2.910438E+02 4.632106E+01 3.365201E-01 2.850544E+04 7 7 1.521238E+05 3.900305E+02 6.207528E+01 2.027228E-01 3.083897E+04 8 8 2.647969E+05 5.145842E+02 8.189862E+01 1.238523E-01 3.279571E+04 9 9 4.059232E+05 6.371210E+02 1.014010E+02 9.731219E-02 3.950127E+04 10 10 4.656545E+05 6.823888E+02 1.086055E+02 7.505807E-02 3.495113E+04 11 11 4.880577E+05 6.986112E+02 1.111874E+02 7.236713E-02 3.531933E+04 12 12 5.175546E+05 7.194127E+02 1.144981E+02 2.079408E+00 1.076208E+06 13 13 5.264872E+05 7.255944E+02 1.154819E+02 6.238417E-02 3.284447E+04 14 14 5.737294E+05 7.574493E+02 1.205518E+02 1.882974E-01 1.080318E+05 15 15 6.449959E+05 8.031163E+02 1.278199E+02 6.497490E-02 4.190854E+04 16 16 6.818846E+05 8.257631E+02 1.314243E+02 3.505687E-01 2.390474E+05 17 17 7.739552E+05 8.797473E+02 1.400161E+02 7.938562E-02 6.144091E+04 18 18 8.581119E+05 9.263433E+02 1.474321E+02 5.913965E-02 5.074844E+04 19 19 1.122226E+06 1.059352E+03 1.686011E+02 3.491664E-02 3.918436E+04 20 20 1.319601E+06 1.148739E+03 1.828275E+02 1.660402E-02 2.191068E+04 21 21 1.443134E+06 1.201305E+03 1.911937E+02 8.716222E-03 1.257868E+04 22 22 1.752231E+06 1.323719E+03 2.106764E+02 2.802464E-02 4.910565E+04 23 23 1.958166E+06 1.399345E+03 2.227127E+02 2.582115E-02 5.056211E+04 24 24 2.176176E+06 1.475187E+03 2.347833E+02 1.636614E-02 3.561562E+04 25 25 3.379296E+06 1.838286E+03 2.925723E+02 3.944539E-02 1.332976E+05 26 26 3.780728E+06 1.944410E+03 3.094624E+02 2.589798E-02 9.791322E+04 27 27 5.718344E+06 2.391306E+03 3.805881E+02 1.231468E-02 7.041956E+04 28 28 8.170006E+06 2.858322E+03 4.549161E+02 1.483917E-02 1.212361E+05 29 29 1.097182E+07 3.312374E+03 5.271807E+02 2.078518E-01 2.280513E+06 30 30 1.407611E+07 3.751814E+03 5.971198E+02 2.560950E-01 3.604821E+06 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = -0.520063E-03 (CYCLIC FREQUENCY = 3.629512E-03 HZ) R E A L E I G E N V E C T O R N O . 1 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.000000E+00 0.0 0.0 0.0 2.000667E-01 2 G 0.0 9.999651E-01 0.0 0.0 0.0 1.999269E-01 3 G -1.908410E-01 9.816075E-01 0.0 0.0 0.0 2.000407E-01 4 G -1.907709E-01 9.816125E-01 0.0 0.0 0.0 1.999528E-01 5 G -3.746443E-01 9.271507E-01 0.0 0.0 0.0 2.000039E-01 6 G -3.745567E-01 9.271846E-01 0.0 0.0 0.0 1.999895E-01 7 G -5.446662E-01 8.386309E-01 0.0 0.0 0.0 1.999732E-01 8 G -5.445940E-01 8.386805E-01 0.0 0.0 0.0 2.000203E-01 9 G -7.071064E-01 7.070700E-01 0.0 0.0 0.0 1.999639E-01 10 G -7.070841E-01 7.071183E-01 0.0 0.0 0.0 2.000293E-01 11 G -8.290259E-01 5.591757E-01 0.0 0.0 0.0 1.999731E-01 12 G -8.290218E-01 5.591900E-01 0.0 0.0 0.0 2.000197E-01 13 G -9.204891E-01 3.907233E-01 0.0 0.0 0.0 1.999921E-01 14 G -9.204896E-01 3.907251E-01 0.0 0.0 0.0 2.000007E-01 15 G -9.781311E-01 2.079078E-01 0.0 0.0 0.0 1.999963E-01 16 G -9.781314E-01 2.079081E-01 0.0 0.0 0.0 1.999965E-01 17 G -9.999831E-01 0.0 0.0 0.0 0.0 1.999961E-01 18 G -9.999833E-01 0.0 0.0 0.0 0.0 1.999967E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.114811E+04 (CYCLIC FREQUENCY = 5.392778E+00 HZ) R E A L E I G E N V E C T O R N O . 2 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 7.022527E-01 0.0 0.0 0.0 -4.264880E-01 2 G 0.0 7.023212E-01 0.0 0.0 0.0 -4.262322E-01 3 G 3.958028E-01 7.402491E-01 0.0 0.0 0.0 -3.953770E-01 4 G 3.956809E-01 7.402345E-01 0.0 0.0 0.0 -3.952509E-01 5 G 7.215863E-01 8.363265E-01 0.0 0.0 0.0 -3.066410E-01 6 G 7.214682E-01 8.362672E-01 0.0 0.0 0.0 -3.066946E-01 7 G 9.277601E-01 9.429422E-01 0.0 0.0 0.0 -1.729430E-01 8 G 9.276996E-01 9.428833E-01 0.0 0.0 0.0 -1.730459E-01 9 G 9.995540E-01 1.000000E+00 0.0 0.0 0.0 -5.738299E-04 10 G 9.995390E-01 9.999688E-01 0.0 0.0 0.0 -6.336584E-04 11 G 9.511512E-01 9.400648E-01 0.0 0.0 0.0 1.596613E-01 12 G 9.511493E-01 9.400570E-01 0.0 0.0 0.0 1.596337E-01 13 G 8.464879E-01 7.459146E-01 0.0 0.0 0.0 2.962070E-01 14 G 8.464882E-01 7.459136E-01 0.0 0.0 0.0 2.962032E-01 15 G 7.471026E-01 4.292031E-01 0.0 0.0 0.0 3.899603E-01 16 G 7.471028E-01 4.292027E-01 0.0 0.0 0.0 3.899601E-01 17 G 7.021719E-01 0.0 0.0 0.0 0.0 4.268138E-01 18 G 7.021720E-01 0.0 0.0 0.0 0.0 4.268131E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.736328E+04 (CYCLIC FREQUENCY = 1.365702E+01 HZ) R E A L E I G E N V E C T O R N O . 3 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 2.592006E-01 0.0 0.0 0.0 -8.251778E-01 2 G 0.0 2.593047E-01 0.0 0.0 0.0 -8.248793E-01 3 G 7.028197E-01 3.265361E-01 0.0 0.0 0.0 -5.935042E-01 4 G 7.027041E-01 3.264912E-01 0.0 0.0 0.0 -5.934954E-01 5 G 9.999775E-01 4.135539E-01 0.0 0.0 0.0 -2.857688E-02 6 G 1.000000E+00 4.134965E-01 0.0 0.0 0.0 -2.891196E-02 7 G 7.688274E-01 2.920586E-01 0.0 0.0 0.0 5.538954E-01 8 G 7.689914E-01 2.921148E-01 0.0 0.0 0.0 5.537457E-01 9 G 1.838008E-01 -1.823897E-01 0.0 0.0 0.0 8.261285E-01 10 G 1.838716E-01 -1.822406E-01 0.0 0.0 0.0 8.262684E-01 11 G -2.657393E-01 -7.270606E-01 0.0 0.0 0.0 5.933034E-01 12 G -2.657235E-01 -7.270131E-01 0.0 0.0 0.0 5.934606E-01 13 G -4.143413E-01 -9.986625E-01 0.0 0.0 0.0 2.872062E-02 14 G -4.143428E-01 -9.986581E-01 0.0 0.0 0.0 2.875072E-02 15 G -3.368415E-01 -7.494626E-01 0.0 0.0 0.0 -5.536869E-01 16 G -3.368425E-01 -7.494622E-01 0.0 0.0 0.0 -5.536879E-01 17 G -2.585606E-01 0.0 0.0 0.0 0.0 -8.273371E-01 18 G -2.585612E-01 0.0 0.0 0.0 0.0 -8.273359E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.203188E+05 (CYCLIC FREQUENCY = 2.268657E+01 HZ) R E A L E I G E N V E C T O R N O . 4 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.243893E-01 0.0 0.0 0.0 -9.924301E-01 2 G 0.0 1.244775E-01 0.0 0.0 0.0 -9.923384E-01 3 G 7.274161E-01 1.938724E-01 0.0 0.0 0.0 -4.027984E-01 4 G 7.274176E-01 1.938059E-01 0.0 0.0 0.0 -4.029730E-01 5 G 5.957062E-01 1.536468E-01 0.0 0.0 0.0 6.660170E-01 6 G 5.958953E-01 1.536494E-01 0.0 0.0 0.0 6.656891E-01 7 G -1.528727E-01 -2.364795E-01 0.0 0.0 0.0 9.469200E-01 8 G -1.526571E-01 -2.363157E-01 0.0 0.0 0.0 9.469684E-01 9 G -5.806563E-01 -5.816519E-01 0.0 0.0 0.0 2.303042E-03 10 G -5.805819E-01 -5.815051E-01 0.0 0.0 0.0 2.535185E-03 11 G -2.796358E-01 -2.149846E-01 0.0 0.0 0.0 -9.074092E-01 12 G -2.796243E-01 -2.149456E-01 0.0 0.0 0.0 -9.072647E-01 13 G 1.315227E-01 5.418631E-01 0.0 0.0 0.0 -7.373115E-01 14 G 1.315209E-01 5.418665E-01 0.0 0.0 0.0 -7.372910E-01 15 G 1.998304E-01 7.547558E-01 0.0 0.0 0.0 3.116229E-01 16 G 1.998295E-01 7.547567E-01 0.0 0.0 0.0 3.116220E-01 17 G 1.212636E-01 0.0 0.0 0.0 0.0 9.999976E-01 18 G 1.212630E-01 0.0 0.0 0.0 0.0 1.000000E+00 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.439166E+05 (CYCLIC FREQUENCY = 3.335297E+01 HZ) R E A L E I G E N V E C T O R N O . 5 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -6.050985E-02 0.0 0.0 0.0 9.832539E-01 2 G 0.0 -6.056796E-02 0.0 0.0 0.0 9.833542E-01 3 G -5.745658E-01 -1.151010E-01 0.0 0.0 0.0 3.250911E-02 4 G -5.746443E-01 -1.150370E-01 0.0 0.0 0.0 3.267936E-02 5 G -5.778468E-02 3.893030E-02 0.0 0.0 0.0 -9.819034E-01 6 G -5.792462E-02 3.887764E-02 0.0 0.0 0.0 -9.819184E-01 7 G 4.861737E-01 3.213957E-01 0.0 0.0 0.0 -9.555130E-02 8 G 4.861907E-01 3.212996E-01 0.0 0.0 0.0 -9.581662E-02 9 G 4.271409E-02 -3.888064E-02 0.0 0.0 0.0 9.917422E-01 10 G 4.274698E-02 -3.880567E-02 0.0 0.0 0.0 9.916905E-01 11 G -3.278294E-01 -4.870205E-01 0.0 0.0 0.0 3.402243E-02 12 G -3.278151E-01 -4.869861E-01 0.0 0.0 0.0 3.412078E-02 13 G -7.111858E-02 -1.234451E-02 0.0 0.0 0.0 -9.836213E-01 14 G -7.111891E-02 -1.234188E-02 0.0 0.0 0.0 -9.835930E-01 15 G 1.140703E-01 5.726753E-01 0.0 0.0 0.0 -9.460600E-02 16 G 1.140696E-01 5.726743E-01 0.0 0.0 0.0 -9.460796E-02 17 G 5.480491E-02 0.0 0.0 0.0 0.0 1.000000E+00 18 G 5.480458E-02 0.0 0.0 0.0 0.0 9.999983E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.847065E+05 (CYCLIC FREQUENCY = 4.632106E+01 HZ) R E A L E I G E N V E C T O R N O . 6 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 2.920824E-02 0.0 0.0 0.0 -9.890158E-01 2 G 0.0 2.924457E-02 0.0 0.0 0.0 -9.891880E-01 3 G 4.166937E-01 6.844005E-02 0.0 0.0 0.0 3.401803E-01 4 G 4.167831E-01 6.838705E-02 0.0 0.0 0.0 3.401048E-01 5 G -2.595836E-01 -1.321875E-01 0.0 0.0 0.0 7.520615E-01 6 G -2.595526E-01 -1.321120E-01 0.0 0.0 0.0 7.522645E-01 7 G -1.958294E-01 -9.753346E-02 0.0 0.0 0.0 -8.689411E-01 8 G -1.959468E-01 -9.754854E-02 0.0 0.0 0.0 -8.687085E-01 9 G 3.136575E-01 3.144741E-01 0.0 0.0 0.0 -1.080066E-02 10 G 3.135862E-01 3.143389E-01 0.0 0.0 0.0 -1.089117E-02 11 G -6.127381E-02 -1.412648E-01 0.0 0.0 0.0 9.218851E-01 12 G -6.129195E-02 -1.413102E-01 0.0 0.0 0.0 9.217232E-01 13 G -1.518691E-01 -3.056022E-01 0.0 0.0 0.0 -6.310054E-01 14 G -1.518676E-01 -3.056037E-01 0.0 0.0 0.0 -6.310368E-01 15 G 6.467055E-02 3.810263E-01 0.0 0.0 0.0 -4.824385E-01 16 G 6.467155E-02 3.810273E-01 0.0 0.0 0.0 -4.824339E-01 17 G 2.571111E-02 0.0 0.0 0.0 0.0 9.999996E-01 18 G 2.571163E-02 0.0 0.0 0.0 0.0 1.000000E+00 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.152124E+06 (CYCLIC FREQUENCY = 6.207528E+01 HZ) R E A L E I G E N V E C T O R N O . 7 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -1.243322E-02 0.0 0.0 0.0 9.670635E-01 2 G 0.0 -1.245218E-02 0.0 0.0 0.0 9.672013E-01 3 G -2.525488E-01 -3.576179E-02 0.0 0.0 0.0 -6.462266E-01 4 G -2.526078E-01 -3.572497E-02 0.0 0.0 0.0 -6.462263E-01 5 G 3.134035E-01 1.313207E-01 0.0 0.0 0.0 -9.650955E-02 6 G 3.134222E-01 1.312517E-01 0.0 0.0 0.0 -9.661575E-02 7 G -1.657488E-01 -1.192648E-01 0.0 0.0 0.0 7.784813E-01 8 G -1.657443E-01 -1.192113E-01 0.0 0.0 0.0 7.784851E-01 9 G -1.132812E-02 6.748960E-03 0.0 0.0 0.0 -9.837554E-01 10 G -1.133028E-02 6.735579E-03 0.0 0.0 0.0 -9.836889E-01 11 G 1.540093E-01 2.049285E-01 0.0 0.0 0.0 6.542906E-01 12 G 1.540028E-01 2.049149E-01 0.0 0.0 0.0 6.542678E-01 13 G -1.311176E-01 -3.199880E-01 0.0 0.0 0.0 9.755252E-02 14 G -1.311181E-01 -3.199899E-01 0.0 0.0 0.0 9.753636E-02 15 G 3.302807E-02 2.021973E-01 0.0 0.0 0.0 -7.877339E-01 16 G 3.302836E-02 2.021984E-01 0.0 0.0 0.0 -7.877339E-01 17 G 1.306160E-02 0.0 0.0 0.0 0.0 9.999972E-01 18 G 1.306170E-02 0.0 0.0 0.0 0.0 1.000000E+00 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.264797E+06 (CYCLIC FREQUENCY = 8.189862E+01 HZ) R E A L E I G E N V E C T O R N O . 8 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 6.345713E-03 0.0 0.0 0.0 -9.890900E-01 2 G 0.0 6.352602E-03 0.0 0.0 0.0 -9.891421E-01 3 G 1.121750E-01 1.593497E-02 0.0 0.0 0.0 8.928921E-01 4 G 1.121926E-01 1.591521E-02 0.0 0.0 0.0 8.929169E-01 5 G -1.910078E-01 -7.287797E-02 0.0 0.0 0.0 -6.226808E-01 6 G -1.910277E-01 -7.283792E-02 0.0 0.0 0.0 -6.227056E-01 7 G 2.123573E-01 1.365341E-01 0.0 0.0 0.0 2.425420E-01 8 G 2.124321E-01 1.365100E-01 0.0 0.0 0.0 2.423785E-01 9 G -1.814787E-01 -1.821576E-01 0.0 0.0 0.0 5.378373E-02 10 G -1.814098E-01 -1.820461E-01 0.0 0.0 0.0 5.378030E-02 11 G 1.268417E-01 1.927239E-01 0.0 0.0 0.0 -4.611249E-01 12 G 1.268673E-01 1.927716E-01 0.0 0.0 0.0 -4.609511E-01 13 G -5.547592E-02 -1.442477E-01 0.0 0.0 0.0 7.884430E-01 14 G -5.547800E-02 -1.442526E-01 0.0 0.0 0.0 7.884928E-01 15 G 4.627754E-03 5.104284E-02 0.0 0.0 0.0 -9.646926E-01 16 G 4.625866E-03 5.103564E-02 0.0 0.0 0.0 -9.647071E-01 17 G 4.227266E-04 0.0 0.0 0.0 0.0 1.000000E+00 18 G 4.220544E-04 0.0 0.0 0.0 0.0 9.999880E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.405923E+06 (CYCLIC FREQUENCY = 1.014010E+02 HZ) R E A L E I G E N V E C T O R N O . 9 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.564126E-02 0.0 0.0 0.0 -9.916259E-01 2 G 0.0 1.564446E-02 0.0 0.0 0.0 -9.916999E-01 3 G 9.951463E-03 1.434308E-02 0.0 0.0 0.0 1.000000E+00 4 G 9.986355E-03 1.434851E-02 0.0 0.0 0.0 9.999357E-01 5 G -3.750071E-02 -1.498943E-03 0.0 0.0 0.0 -9.682799E-01 6 G -3.746050E-02 -1.477037E-03 0.0 0.0 0.0 -9.682114E-01 7 G 2.652701E-02 2.538989E-02 0.0 0.0 0.0 9.541721E-01 8 G 2.651192E-02 2.536707E-02 0.0 0.0 0.0 9.543173E-01 9 G -5.158884E-03 -6.473966E-03 0.0 0.0 0.0 -9.470764E-01 10 G -5.195362E-03 -6.505636E-03 0.0 0.0 0.0 -9.471522E-01 11 G 1.009702E-02 1.757251E-03 0.0 0.0 0.0 9.329941E-01 12 G 1.009987E-02 1.767672E-03 0.0 0.0 0.0 9.329042E-01 13 G -5.406916E-03 -3.383079E-02 0.0 0.0 0.0 -9.239667E-01 14 G -5.399241E-03 -3.381125E-02 0.0 0.0 0.0 -9.239365E-01 15 G 2.035466E-02 3.361567E-02 0.0 0.0 0.0 8.897182E-01 16 G 2.035505E-02 3.361475E-02 0.0 0.0 0.0 8.897488E-01 17 G 1.702928E-02 0.0 0.0 0.0 0.0 -9.049585E-01 18 G 1.702955E-02 0.0 0.0 0.0 0.0 -9.049788E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.465654E+06 (CYCLIC FREQUENCY = 1.086055E+02 HZ) R E A L E I G E N V E C T O R N O . 10 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -1.843599E-02 0.0 0.0 0.0 7.681016E-01 2 G 0.0 1.863965E-02 0.0 0.0 0.0 -7.677790E-01 3 G -2.644366E-01 -5.338820E-02 0.0 0.0 0.0 1.050538E-01 4 G 2.643443E-01 5.364258E-02 0.0 0.0 0.0 -1.051109E-01 5 G -7.073864E-02 -8.139038E-03 0.0 0.0 0.0 -7.719904E-01 6 G 7.061783E-02 8.262429E-03 0.0 0.0 0.0 7.721495E-01 7 G 2.271622E-01 1.555667E-01 0.0 0.0 0.0 -3.329950E-01 8 G -2.272324E-01 -1.556239E-01 0.0 0.0 0.0 3.330174E-01 9 G 7.127886E-02 4.635365E-02 0.0 0.0 0.0 8.923870E-01 10 G -7.134094E-02 -4.644728E-02 0.0 0.0 0.0 -8.923150E-01 11 G -1.477745E-01 -2.281726E-01 0.0 0.0 0.0 2.186599E-01 12 G 1.477869E-01 2.280434E-01 0.0 0.0 0.0 -2.188822E-01 13 G -4.360352E-02 -5.880691E-02 0.0 0.0 0.0 -8.274580E-01 14 G 4.370588E-02 5.870263E-02 0.0 0.0 0.0 8.275553E-01 15 G 5.326303E-02 2.705336E-01 0.0 0.0 0.0 -2.314932E-01 16 G -5.310618E-02 -2.706142E-01 0.0 0.0 0.0 2.312387E-01 17 G 1.567807E-02 0.0 0.0 0.0 0.0 1.000000E+00 18 G -1.549479E-02 0.0 0.0 0.0 0.0 -9.999415E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.488058E+06 (CYCLIC FREQUENCY = 1.111874E+02 HZ) R E A L E I G E N V E C T O R N O . 11 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.965163E-02 0.0 0.0 0.0 -5.788874E-01 2 G 0.0 -2.071602E-02 0.0 0.0 0.0 5.779193E-01 3 G 2.245782E-01 5.180693E-02 0.0 0.0 0.0 -2.665999E-01 4 G -2.241724E-01 -5.280618E-02 0.0 0.0 0.0 2.663532E-01 5 G 1.940385E-01 6.300920E-02 0.0 0.0 0.0 3.881719E-01 6 G -1.933733E-01 -6.364004E-02 0.0 0.0 0.0 -3.888303E-01 7 G -5.889940E-02 -6.287779E-02 0.0 0.0 0.0 6.551802E-01 8 G 5.953036E-02 6.278674E-02 0.0 0.0 0.0 -6.552444E-01 9 G -1.959857E-01 -1.964215E-01 0.0 0.0 0.0 1.064207E-02 10 G 1.963187E-01 1.968525E-01 0.0 0.0 0.0 -1.101448E-02 11 G -9.688177E-02 -1.063754E-01 0.0 0.0 0.0 -5.369784E-01 12 G 9.681775E-02 1.070717E-01 0.0 0.0 0.0 5.378127E-01 13 G 4.706968E-02 1.634758E-01 0.0 0.0 0.0 -6.230667E-01 14 G -4.763388E-02 -1.628603E-01 0.0 0.0 0.0 6.229098E-01 15 G 7.386551E-02 3.249733E-01 0.0 0.0 0.0 9.182185E-02 16 G -7.476906E-02 -3.245350E-01 0.0 0.0 0.0 -9.075315E-02 17 G 2.446101E-02 0.0 0.0 0.0 0.0 1.000000E+00 18 G -2.551911E-02 0.0 0.0 0.0 0.0 -9.999213E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.517555E+06 (CYCLIC FREQUENCY = 1.144981E+02 HZ) R E A L E I G E N V E C T O R N O . 12 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.000000E+00 0.0 0.0 0.0 8.379720E-01 2 G 0.0 9.984191E-01 0.0 0.0 0.0 9.218167E-01 3 G -3.356315E-01 8.778641E-01 0.0 0.0 0.0 1.970781E-01 4 G -3.601255E-01 8.732536E-01 0.0 0.0 0.0 1.841247E-01 5 G -6.096761E-01 5.282988E-01 0.0 0.0 0.0 7.653171E-01 6 G -6.043793E-01 5.319284E-01 0.0 0.0 0.0 6.941699E-01 7 G -6.013781E-01 9.644271E-02 0.0 0.0 0.0 -3.663571E-02 8 G -5.870678E-01 1.055928E-01 0.0 0.0 0.0 -1.976654E-03 9 G -3.324322E-01 -3.385343E-01 0.0 0.0 0.0 2.425030E-01 10 G -3.386381E-01 -3.453794E-01 0.0 0.0 0.0 2.625327E-01 11 G 3.991072E-02 -6.139910E-01 0.0 0.0 0.0 -5.321742E-01 12 G 4.123510E-02 -6.118892E-01 0.0 0.0 0.0 -5.696548E-01 13 G 5.065225E-01 -5.833578E-01 0.0 0.0 0.0 -7.111059E-02 14 G 5.092160E-01 -5.790248E-01 0.0 0.0 0.0 -3.050098E-02 15 G 8.500749E-01 -3.879117E-01 0.0 0.0 0.0 -8.280164E-01 16 G 8.456295E-01 -4.092866E-01 0.0 0.0 0.0 -8.002169E-01 17 G 9.984502E-01 0.0 0.0 0.0 0.0 -2.403564E-01 18 G 9.970610E-01 0.0 0.0 0.0 0.0 -3.297737E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.526487E+06 (CYCLIC FREQUENCY = 1.154819E+02 HZ) R E A L E I G E N V E C T O R N O . 13 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -1.401311E-02 0.0 0.0 0.0 1.000000E+00 2 G 0.0 1.609644E-02 0.0 0.0 0.0 -9.979921E-01 3 G -2.660059E-01 -4.678367E-02 0.0 0.0 0.0 -2.946998E-01 4 G 2.652818E-01 4.868281E-02 0.0 0.0 0.0 2.949576E-01 5 G 1.355993E-01 6.810873E-02 0.0 0.0 0.0 -7.755613E-01 6 G -1.368603E-01 -6.707685E-02 0.0 0.0 0.0 7.771531E-01 7 G 1.254282E-01 7.062425E-02 0.0 0.0 0.0 7.887670E-01 8 G -1.266022E-01 -7.046972E-02 0.0 0.0 0.0 -7.887939E-01 9 G -1.771581E-01 -1.792649E-01 0.0 0.0 0.0 1.193080E-01 10 G 1.764347E-01 1.785782E-01 0.0 0.0 0.0 -1.189202E-01 11 G 4.426894E-03 2.939919E-02 0.0 0.0 0.0 -8.395743E-01 12 G -4.357041E-03 -3.065059E-02 0.0 0.0 0.0 8.385826E-01 13 G 8.394316E-02 1.865113E-01 0.0 0.0 0.0 3.576829E-01 14 G -8.289730E-02 -1.877196E-01 0.0 0.0 0.0 -3.579073E-01 15 G -2.366211E-02 -1.480946E-01 0.0 0.0 0.0 5.238459E-01 16 G 2.542731E-02 1.472681E-01 0.0 0.0 0.0 -5.254533E-01 17 G -5.047119E-03 0.0 0.0 0.0 0.0 -8.319814E-01 18 G 7.125952E-03 0.0 0.0 0.0 0.0 8.312953E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.573729E+06 (CYCLIC FREQUENCY = 1.205518E+02 HZ) R E A L E I G E N V E C T O R N O . 14 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -4.359880E-02 0.0 0.0 0.0 8.568853E-01 2 G 0.0 4.287216E-02 0.0 0.0 0.0 -8.567839E-01 3 G -3.444123E-01 -9.875555E-02 0.0 0.0 0.0 5.922774E-01 4 G 3.446687E-01 9.822816E-02 0.0 0.0 0.0 -5.928878E-01 5 G -4.660559E-01 -1.904376E-01 0.0 0.0 0.0 2.174488E-02 6 G 4.662974E-01 1.901426E-01 0.0 0.0 0.0 -2.222851E-02 7 G -3.328567E-01 -1.833570E-01 0.0 0.0 0.0 -5.380988E-01 8 G 3.332728E-01 1.833985E-01 0.0 0.0 0.0 5.383717E-01 9 G -2.024109E-02 3.858486E-02 0.0 0.0 0.0 -9.357002E-01 10 G 2.050263E-02 -3.841669E-02 0.0 0.0 0.0 9.351533E-01 11 G 1.780141E-01 3.135513E-01 0.0 0.0 0.0 -4.536605E-01 12 G -1.780460E-01 -3.132346E-01 0.0 0.0 0.0 4.542360E-01 13 G 1.700800E-01 4.042099E-01 0.0 0.0 0.0 1.073944E-02 14 G -1.703443E-01 -4.038030E-01 0.0 0.0 0.0 -1.077765E-02 15 G 9.960520E-02 3.518693E-01 0.0 0.0 0.0 3.780988E-01 16 G -1.001232E-01 -3.516805E-01 0.0 0.0 0.0 -3.778151E-01 17 G 3.895551E-02 0.0 0.0 0.0 0.0 1.000000E+00 18 G -3.958843E-02 0.0 0.0 0.0 0.0 -9.994742E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.644996E+06 (CYCLIC FREQUENCY = 1.278199E+02 HZ) R E A L E I G E N V E C T O R N O . 15 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.077652E-02 0.0 0.0 0.0 -9.735528E-01 2 G 0.0 -1.075887E-02 0.0 0.0 0.0 9.733527E-01 3 G 1.922394E-01 3.369290E-02 0.0 0.0 0.0 5.613964E-01 4 G -1.922595E-01 -3.373517E-02 0.0 0.0 0.0 -5.612121E-01 5 G -1.865825E-01 -7.633983E-02 0.0 0.0 0.0 1.777692E-01 6 G 1.865938E-01 7.643049E-02 0.0 0.0 0.0 -1.778268E-01 7 G 1.114065E-01 8.042765E-02 0.0 0.0 0.0 -8.519841E-01 8 G -1.114330E-01 -8.047715E-02 0.0 0.0 0.0 8.519387E-01 9 G 3.045596E-02 2.266680E-02 0.0 0.0 0.0 9.883876E-01 10 G -3.044618E-02 -2.265261E-02 0.0 0.0 0.0 -9.882218E-01 11 G -8.714605E-02 -1.163944E-01 0.0 0.0 0.0 -6.527758E-01 12 G 8.714325E-02 1.163790E-01 0.0 0.0 0.0 6.526239E-01 13 G 1.129446E-01 2.691582E-01 0.0 0.0 0.0 -1.872493E-01 14 G -1.129418E-01 -2.691630E-01 0.0 0.0 0.0 1.873535E-01 15 G -7.436579E-03 -8.302300E-02 0.0 0.0 0.0 9.496505E-01 16 G 7.441982E-03 8.302313E-02 0.0 0.0 0.0 -9.496939E-01 17 G 6.327450E-07 0.0 0.0 0.0 0.0 -9.999894E-01 18 G 1.116538E-05 0.0 0.0 0.0 0.0 1.000000E+00 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.681885E+06 (CYCLIC FREQUENCY = 1.314243E+02 HZ) R E A L E I G E N V E C T O R N O . 16 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -4.143526E-02 0.0 0.0 0.0 3.012355E-01 2 G 0.0 4.137767E-02 0.0 0.0 0.0 -2.927229E-01 3 G -1.914635E-01 -8.062024E-02 0.0 0.0 0.0 7.652254E-01 4 G 1.925248E-01 8.076181E-02 0.0 0.0 0.0 -7.727025E-01 5 G -5.034750E-01 -2.376618E-01 0.0 0.0 0.0 4.465614E-01 6 G 5.017952E-01 2.371431E-01 0.0 0.0 0.0 -4.446293E-01 7 G -4.760379E-01 -3.287199E-01 0.0 0.0 0.0 1.465996E-03 8 G 4.771007E-01 3.296076E-01 0.0 0.0 0.0 1.823001E-03 9 G -4.652660E-01 -4.680362E-01 0.0 0.0 0.0 2.872824E-01 10 G 4.650967E-01 4.678141E-01 0.0 0.0 0.0 -2.939982E-01 11 G -4.159769E-01 -5.861627E-01 0.0 0.0 0.0 -3.050179E-01 12 G 4.155560E-01 5.858536E-01 0.0 0.0 0.0 3.094571E-01 13 G -2.011509E-01 -3.931033E-01 0.0 0.0 0.0 -5.679711E-01 14 G 2.015535E-01 3.936951E-01 0.0 0.0 0.0 5.660707E-01 15 G -1.010258E-01 -2.938567E-01 0.0 0.0 0.0 -2.505577E-01 16 G 1.011685E-01 2.931429E-01 0.0 0.0 0.0 2.484877E-01 17 G -4.466690E-02 0.0 0.0 0.0 0.0 -9.966330E-01 18 G 4.465631E-02 0.0 0.0 0.0 0.0 1.000000E+00 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.773955E+06 (CYCLIC FREQUENCY = 1.400161E+02 HZ) R E A L E I G E N V E C T O R N O . 17 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -4.176574E-03 0.0 0.0 0.0 -9.620442E-01 2 G 0.0 -4.189732E-03 0.0 0.0 0.0 -9.936900E-01 3 G -8.871204E-02 -1.360837E-02 0.0 0.0 0.0 9.188021E-01 4 G -9.016973E-02 -1.374730E-02 0.0 0.0 0.0 9.284890E-01 5 G 1.594141E-01 6.097342E-02 0.0 0.0 0.0 -7.674198E-01 6 G 1.606633E-01 6.137214E-02 0.0 0.0 0.0 -7.737234E-01 7 G -1.928168E-01 -1.231221E-01 0.0 0.0 0.0 5.125007E-01 8 G -1.937204E-01 -1.235991E-01 0.0 0.0 0.0 5.165494E-01 9 G 1.892304E-01 1.865611E-01 0.0 0.0 0.0 4.360770E-03 10 G 1.904479E-01 1.873198E-01 0.0 0.0 0.0 9.757719E-03 11 G -1.395495E-01 -2.122275E-01 0.0 0.0 0.0 -3.449765E-01 12 G -1.397568E-01 -2.123524E-01 0.0 0.0 0.0 -3.495222E-01 13 G 8.016175E-02 1.918633E-01 0.0 0.0 0.0 6.210759E-01 14 G 8.033673E-02 1.925016E-01 0.0 0.0 0.0 6.266881E-01 15 G -2.373563E-02 -1.324526E-01 0.0 0.0 0.0 -8.427296E-01 16 G -2.331320E-02 -1.322570E-01 0.0 0.0 0.0 -8.523687E-01 17 G -9.849630E-03 0.0 0.0 0.0 0.0 1.000000E+00 18 G -9.280056E-03 0.0 0.0 0.0 0.0 9.931021E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.858112E+06 (CYCLIC FREQUENCY = 1.474321E+02 HZ) R E A L E I G E N V E C T O R N O . 18 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 5.062176E-03 0.0 0.0 0.0 -9.760255E-01 2 G 0.0 -4.983522E-03 0.0 0.0 0.0 9.776507E-01 3 G 1.017905E-01 1.592169E-02 0.0 0.0 0.0 8.637494E-01 4 G -1.015798E-01 -1.585724E-02 0.0 0.0 0.0 -8.650308E-01 5 G -1.664687E-01 -6.371764E-02 0.0 0.0 0.0 -5.728456E-01 6 G 1.660980E-01 6.367897E-02 0.0 0.0 0.0 5.729196E-01 7 G 1.883097E-01 1.223424E-01 0.0 0.0 0.0 1.407639E-01 8 G -1.881109E-01 -1.222704E-01 0.0 0.0 0.0 -1.396067E-01 9 G -1.600693E-01 -1.598931E-01 0.0 0.0 0.0 1.004013E-01 10 G 1.600823E-01 1.599384E-01 0.0 0.0 0.0 -1.020627E-01 11 G 9.840610E-02 1.509490E-01 0.0 0.0 0.0 -5.377904E-01 12 G -9.860366E-02 -1.511687E-01 0.0 0.0 0.0 5.386818E-01 13 G -3.969763E-02 -1.044763E-01 0.0 0.0 0.0 8.413116E-01 14 G 3.985805E-02 1.047308E-01 0.0 0.0 0.0 -8.413646E-01 15 G -1.327919E-03 9.819654E-03 0.0 0.0 0.0 -9.877970E-01 16 G 1.374315E-03 -1.009996E-02 0.0 0.0 0.0 9.866938E-01 17 G -5.882789E-04 0.0 0.0 0.0 0.0 1.000000E+00 18 G 6.330072E-04 0.0 0.0 0.0 0.0 -9.985011E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.112223E+07 (CYCLIC FREQUENCY = 1.686011E+02 HZ) R E A L E I G E N V E C T O R N O . 19 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.680901E-03 0.0 0.0 0.0 -7.702415E-01 2 G 0.0 -1.566423E-03 0.0 0.0 0.0 7.930604E-01 3 G 2.218080E-02 3.335202E-03 0.0 0.0 0.0 7.795970E-01 4 G -1.901737E-02 -2.883441E-03 0.0 0.0 0.0 -7.973612E-01 5 G -3.956430E-02 -1.364900E-02 0.0 0.0 0.0 -7.911267E-01 6 G 3.517153E-02 1.193830E-02 0.0 0.0 0.0 7.928597E-01 7 G 4.843251E-02 3.272124E-02 0.0 0.0 0.0 8.264033E-01 8 G -4.548318E-02 -3.063853E-02 0.0 0.0 0.0 -8.116649E-01 9 G -4.158313E-03 -4.928707E-03 0.0 0.0 0.0 -9.027756E-01 10 G 4.538882E-03 4.909017E-03 0.0 0.0 0.0 8.795611E-01 11 G 1.277094E-02 1.605242E-02 0.0 0.0 0.0 8.658656E-01 12 G -1.475008E-02 -1.855193E-02 0.0 0.0 0.0 -8.506373E-01 13 G -1.734871E-02 -3.653962E-02 0.0 0.0 0.0 -8.646517E-01 14 G 1.915737E-02 4.062516E-02 0.0 0.0 0.0 8.627247E-01 15 G 1.201880E-02 5.811064E-02 0.0 0.0 0.0 8.834072E-01 16 G -1.253620E-02 -6.156785E-02 0.0 0.0 0.0 -8.968958E-01 17 G 2.601049E-03 0.0 0.0 0.0 0.0 -9.780911E-01 18 G -3.035790E-03 0.0 0.0 0.0 0.0 1.000000E+00 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.131960E+07 (CYCLIC FREQUENCY = 1.828275E+02 HZ) R E A L E I G E N V E C T O R N O . 20 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 4.415379E-03 0.0 0.0 0.0 -1.928814E-01 2 G 0.0 5.590766E-03 0.0 0.0 0.0 1.000000E+00 3 G 3.190516E-02 5.929251E-03 0.0 0.0 0.0 1.907969E-01 4 G 7.388076E-02 1.324565E-02 0.0 0.0 0.0 -7.820632E-01 5 G -4.772769E-02 -1.916412E-02 0.0 0.0 0.0 -3.564162E-01 6 G -1.037183E-01 -4.068987E-02 0.0 0.0 0.0 4.567186E-01 7 G 1.494553E-02 1.122246E-02 0.0 0.0 0.0 5.810568E-01 8 G 9.367429E-02 6.140788E-02 0.0 0.0 0.0 -1.153748E-01 9 G 4.880819E-02 3.784684E-02 0.0 0.0 0.0 -4.045693E-01 10 G -4.186876E-02 -4.875673E-02 0.0 0.0 0.0 -4.155214E-01 11 G -6.019552E-02 -9.145004E-02 0.0 0.0 0.0 2.008447E-01 12 G 1.320452E-03 6.782805E-04 0.0 0.0 0.0 4.218172E-01 13 G 5.377495E-02 1.248217E-01 0.0 0.0 0.0 1.756696E-01 14 G 1.321567E-02 2.999962E-02 0.0 0.0 0.0 -2.764466E-01 15 G -2.063295E-02 -1.048134E-01 0.0 0.0 0.0 -5.857372E-01 16 G -8.052472E-03 -2.476056E-02 0.0 0.0 0.0 1.021302E-01 17 G -7.811151E-03 0.0 0.0 0.0 0.0 8.336141E-01 18 G -7.728989E-03 0.0 0.0 0.0 0.0 1.538579E-02 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 44 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.144313E+07 (CYCLIC FREQUENCY = 1.911937E+02 HZ) R E A L E I G E N V E C T O R N O . 21 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 4.098476E-03 0.0 0.0 0.0 2.595256E-02 2 G 0.0 5.852876E-03 0.0 0.0 0.0 3.901586E-01 3 G 3.799985E-03 3.058942E-03 0.0 0.0 0.0 -2.334655E-01 4 G 4.745021E-02 9.680659E-03 0.0 0.0 0.0 -5.698911E-02 5 G -2.284219E-02 -9.376865E-03 0.0 0.0 0.0 2.349418E-01 6 G -5.468070E-02 -2.119111E-02 0.0 0.0 0.0 -1.636932E-01 7 G 2.544495E-02 1.418498E-02 0.0 0.0 0.0 -1.931941E-01 8 G 3.384056E-02 2.160585E-02 0.0 0.0 0.0 4.071678E-01 9 G -2.167047E-02 -2.936584E-02 0.0 0.0 0.0 1.024659E-01 10 G 2.395803E-02 1.735817E-02 0.0 0.0 0.0 -5.337440E-01 11 G 1.615573E-02 1.993732E-02 0.0 0.0 0.0 1.547792E-02 12 G -4.108285E-02 -6.859185E-02 0.0 0.0 0.0 3.458541E-01 13 G -5.163135E-03 -8.833445E-03 0.0 0.0 0.0 -4.693551E-02 14 G 4.207499E-02 9.487152E-02 0.0 0.0 0.0 -2.420180E-02 15 G 4.423479E-03 2.807801E-02 0.0 0.0 0.0 1.950799E-02 16 G -2.496865E-02 -9.910906E-02 0.0 0.0 0.0 -2.757837E-01 17 G 1.355728E-03 0.0 0.0 0.0 0.0 -5.173450E-01 18 G -1.228135E-02 0.0 0.0 0.0 0.0 1.000000E+00 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 45 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.175223E+07 (CYCLIC FREQUENCY = 2.106764E+02 HZ) R E A L E I G E N V E C T O R N O . 22 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 2.564228E-02 0.0 0.0 0.0 5.952873E-01 2 G 0.0 2.162351E-02 0.0 0.0 0.0 -7.742673E-01 3 G 3.839498E-02 2.333190E-02 0.0 0.0 0.0 4.351062E-01 4 G -7.883438E-02 5.934840E-03 0.0 0.0 0.0 -2.400088E-01 5 G 8.832233E-03 1.002148E-03 0.0 0.0 0.0 -7.463344E-01 6 G 2.479162E-02 1.376702E-02 0.0 0.0 0.0 6.354020E-01 7 G -8.407011E-02 -7.364263E-02 0.0 0.0 0.0 6.751722E-01 8 G 4.960324E-02 1.064829E-02 0.0 0.0 0.0 -7.681195E-01 9 G 6.999538E-02 4.367406E-02 0.0 0.0 0.0 1.000000E+00 10 G -1.843426E-02 -6.248400E-02 0.0 0.0 0.0 -7.468254E-01 11 G 4.633419E-02 3.139224E-02 0.0 0.0 0.0 -9.810494E-01 12 G 2.464755E-03 -1.454693E-02 0.0 0.0 0.0 5.601512E-01 13 G -4.272550E-02 -1.062472E-01 0.0 0.0 0.0 3.898786E-01 14 G 1.720355E-02 4.159661E-02 0.0 0.0 0.0 -2.695730E-01 15 G -3.082184E-03 9.279401E-02 0.0 0.0 0.0 6.270042E-01 16 G -9.936079E-03 -8.904519E-03 0.0 0.0 0.0 -3.751683E-01 17 G -3.135178E-02 0.0 0.0 0.0 0.0 -2.889804E-01 18 G -1.911560E-02 0.0 0.0 0.0 0.0 -1.214693E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 46 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.195817E+07 (CYCLIC FREQUENCY = 2.227127E+02 HZ) R E A L E I G E N V E C T O R N O . 23 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 9.474006E-03 0.0 0.0 0.0 4.346042E-01 2 G 0.0 3.961074E-03 0.0 0.0 0.0 -3.457832E-01 3 G 1.549356E-02 9.714011E-03 0.0 0.0 0.0 9.352357E-01 4 G -2.870801E-03 1.412583E-03 0.0 0.0 0.0 -9.285750E-01 5 G 9.429370E-02 3.781954E-02 0.0 0.0 0.0 -5.449356E-01 6 G -9.414382E-02 -3.938472E-02 0.0 0.0 0.0 3.053449E-01 7 G -4.382861E-02 -3.667103E-02 0.0 0.0 0.0 -8.010556E-01 8 G 5.345270E-03 3.587535E-03 0.0 0.0 0.0 1.000000E+00 9 G 2.990630E-02 2.430152E-02 0.0 0.0 0.0 -5.617539E-01 10 G 2.064585E-02 5.542045E-03 0.0 0.0 0.0 7.556299E-01 11 G -3.258572E-02 -5.366122E-02 0.0 0.0 0.0 -5.813008E-01 12 G 4.213659E-02 5.776031E-02 0.0 0.0 0.0 5.341025E-02 13 G -2.118915E-02 -3.725390E-02 0.0 0.0 0.0 7.875460E-01 14 G -1.185010E-02 -3.698484E-02 0.0 0.0 0.0 -5.031782E-01 15 G 9.795603E-03 9.884554E-02 0.0 0.0 0.0 -2.379803E-02 16 G 3.787396E-03 -7.401022E-03 0.0 0.0 0.0 2.479520E-01 17 G -1.365503E-02 0.0 0.0 0.0 0.0 -8.171623E-01 18 G 1.388472E-03 0.0 0.0 0.0 0.0 2.378805E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 47 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.217618E+07 (CYCLIC FREQUENCY = 2.347833E+02 HZ) R E A L E I G E N V E C T O R N O . 24 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -5.019812E-03 0.0 0.0 0.0 1.827151E-01 2 G 0.0 3.112553E-03 0.0 0.0 0.0 -5.293785E-01 3 G -5.213214E-02 -1.083145E-02 0.0 0.0 0.0 9.046907E-01 4 G 4.285168E-03 4.617852E-03 0.0 0.0 0.0 -7.472562E-01 5 G 3.954001E-02 1.734378E-02 0.0 0.0 0.0 1.000000E+00 6 G 1.672632E-03 1.690572E-03 0.0 0.0 0.0 -8.370885E-01 7 G 2.680980E-02 1.148826E-02 0.0 0.0 0.0 2.414088E-01 8 G -2.504288E-02 -1.592353E-02 0.0 0.0 0.0 -5.410938E-01 9 G -2.045512E-02 -2.295117E-02 0.0 0.0 0.0 3.149854E-01 10 G -7.113110E-03 -6.493937E-03 0.0 0.0 0.0 -2.564448E-01 11 G 2.013019E-03 5.061319E-03 0.0 0.0 0.0 6.252480E-01 12 G 9.250824E-03 1.959045E-02 0.0 0.0 0.0 -4.414684E-01 13 G 1.286030E-02 2.446576E-02 0.0 0.0 0.0 3.735097E-01 14 G -4.442502E-03 -1.365315E-02 0.0 0.0 0.0 -5.828649E-01 15 G 2.434385E-03 7.254926E-03 0.0 0.0 0.0 2.381630E-02 16 G -6.261670E-03 -3.705767E-02 0.0 0.0 0.0 -5.285481E-02 17 G -3.695319E-03 0.0 0.0 0.0 0.0 2.599898E-03 18 G -2.916319E-03 0.0 0.0 0.0 0.0 2.057214E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 48 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.337930E+07 (CYCLIC FREQUENCY = 2.925723E+02 HZ) R E A L E I G E N V E C T O R N O . 25 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 4.904684E-02 0.0 0.0 0.0 1.000000E+00 2 G 0.0 1.311864E-01 0.0 0.0 0.0 -5.615481E-01 3 G 3.848193E-02 1.421093E-04 0.0 0.0 0.0 6.120048E-02 4 G -5.563680E-02 6.973462E-02 0.0 0.0 0.0 1.598889E-02 5 G 1.121404E-02 -1.233675E-01 0.0 0.0 0.0 1.618258E-02 6 G -7.173613E-03 -3.914959E-03 0.0 0.0 0.0 8.749572E-02 7 G 1.235863E-01 -9.347244E-02 0.0 0.0 0.0 -2.457853E-01 8 G 3.992196E-02 -5.509943E-03 0.0 0.0 0.0 -5.037362E-02 9 G 4.913897E-02 -6.311754E-02 0.0 0.0 0.0 -5.249950E-01 10 G -4.872219E-02 6.917641E-02 0.0 0.0 0.0 -2.075837E-01 11 G -3.563253E-02 -4.125509E-02 0.0 0.0 0.0 3.262766E-01 12 G -1.450529E-01 3.078431E-02 0.0 0.0 0.0 3.404969E-01 13 G 1.513368E-03 1.626483E-02 0.0 0.0 0.0 4.180804E-01 14 G -1.249759E-01 1.004203E-01 0.0 0.0 0.0 6.178392E-01 15 G 1.239290E-01 -1.664983E-02 0.0 0.0 0.0 -7.366379E-02 16 G -7.600737E-02 5.336131E-02 0.0 0.0 0.0 -3.263422E-01 17 G 2.376319E-01 0.0 0.0 0.0 0.0 -3.305171E-01 18 G -1.209612E-03 0.0 0.0 0.0 0.0 -6.193898E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 49 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.378073E+07 (CYCLIC FREQUENCY = 3.094624E+02 HZ) R E A L E I G E N V E C T O R N O . 26 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 1.438172E-01 0.0 0.0 0.0 1.000000E+00 2 G 0.0 -1.383269E-01 0.0 0.0 0.0 -5.805678E-01 3 G 2.514647E-02 1.396348E-01 0.0 0.0 0.0 7.749102E-02 4 G 1.801882E-02 -1.354128E-01 0.0 0.0 0.0 -1.603501E-01 5 G -7.610769E-02 7.623267E-02 0.0 0.0 0.0 7.706849E-02 6 G 3.935407E-02 -9.862430E-02 0.0 0.0 0.0 -8.865640E-02 7 G -3.045652E-02 7.950126E-02 0.0 0.0 0.0 6.931782E-02 8 G 5.587149E-02 -5.676528E-02 0.0 0.0 0.0 6.977551E-02 9 G -4.061788E-02 1.006378E-02 0.0 0.0 0.0 -1.716513E-01 10 G 3.169246E-02 5.030515E-04 0.0 0.0 0.0 -3.992353E-02 11 G -2.579434E-02 -2.057293E-02 0.0 0.0 0.0 1.771608E-01 12 G 2.145563E-02 -3.105558E-02 0.0 0.0 0.0 5.384135E-02 13 G 6.876895E-04 1.867251E-04 0.0 0.0 0.0 8.215211E-02 14 G -2.157815E-03 4.727187E-02 0.0 0.0 0.0 1.712440E-01 15 G 4.738265E-02 -3.067874E-02 0.0 0.0 0.0 7.975996E-02 16 G -6.803244E-02 2.954710E-02 0.0 0.0 0.0 -1.918197E-01 17 G 1.109316E-01 0.0 0.0 0.0 0.0 1.158327E-01 18 G -6.252280E-02 0.0 0.0 0.0 0.0 -1.710514E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 50 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.571834E+07 (CYCLIC FREQUENCY = 3.805881E+02 HZ) R E A L E I G E N V E C T O R N O . 27 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -6.555416E-02 0.0 0.0 0.0 7.080632E-01 2 G 0.0 -3.483012E-02 0.0 0.0 0.0 1.000000E+00 3 G 8.195019E-02 9.332635E-04 0.0 0.0 0.0 2.736642E-01 4 G 8.710062E-02 2.205751E-02 0.0 0.0 0.0 2.799255E-01 5 G 3.539782E-02 7.428082E-02 0.0 0.0 0.0 -7.412059E-01 6 G 3.176091E-02 5.436600E-02 0.0 0.0 0.0 -7.399773E-01 7 G -6.727316E-02 -1.217390E-02 0.0 0.0 0.0 -7.282311E-01 8 G -4.809498E-02 -3.175561E-02 0.0 0.0 0.0 -7.617958E-01 9 G -3.098870E-02 -7.660427E-02 0.0 0.0 0.0 1.431498E-01 10 G -8.031639E-03 -9.711184E-02 0.0 0.0 0.0 8.537432E-02 11 G 5.407592E-03 -1.405719E-02 0.0 0.0 0.0 7.447642E-01 12 G -1.065603E-02 7.473582E-03 0.0 0.0 0.0 7.804128E-01 13 G 1.628484E-02 5.688581E-02 0.0 0.0 0.0 4.011762E-01 14 G -2.372972E-02 7.074666E-02 0.0 0.0 0.0 4.036725E-01 15 G 1.670857E-02 5.131457E-02 0.0 0.0 0.0 -4.889504E-01 16 G 4.715198E-03 4.694119E-02 0.0 0.0 0.0 -4.120600E-01 17 G 1.337976E-02 0.0 0.0 0.0 0.0 -8.538974E-01 18 G 2.366182E-02 0.0 0.0 0.0 0.0 -7.810042E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 51 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.817001E+07 (CYCLIC FREQUENCY = 4.549161E+02 HZ) R E A L E I G E N V E C T O R N O . 28 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 -1.240588E-01 0.0 0.0 0.0 9.634864E-01 2 G 0.0 -2.277335E-02 0.0 0.0 0.0 7.659667E-01 3 G 6.283390E-02 3.184974E-02 0.0 0.0 0.0 5.258089E-01 4 G 3.127934E-02 4.486299E-02 0.0 0.0 0.0 5.450770E-01 5 G 4.451809E-03 9.419473E-02 0.0 0.0 0.0 -7.713561E-02 6 G 3.079568E-02 2.214468E-02 0.0 0.0 0.0 -1.288096E-01 7 G 3.622530E-02 -1.367164E-02 0.0 0.0 0.0 -6.397517E-01 8 G 7.917430E-02 -6.966471E-02 0.0 0.0 0.0 -6.543939E-01 9 G 1.551330E-02 -8.755369E-03 0.0 0.0 0.0 -8.792543E-01 10 G -3.946207E-02 6.296684E-02 0.0 0.0 0.0 -7.983139E-01 11 G -3.029547E-02 -3.427879E-02 0.0 0.0 0.0 -5.277839E-01 12 G -6.284352E-02 -2.550134E-02 0.0 0.0 0.0 -5.327125E-01 13 G -1.738163E-02 -5.136554E-02 0.0 0.0 0.0 1.991128E-01 14 G 2.378358E-02 -7.305844E-02 0.0 0.0 0.0 1.942263E-01 15 G -1.298033E-02 -2.320697E-02 0.0 0.0 0.0 8.253684E-01 16 G 1.216887E-02 -2.398375E-02 0.0 0.0 0.0 7.461016E-01 17 G -1.646592E-02 0.0 0.0 0.0 0.0 1.000000E+00 18 G -2.659759E-02 0.0 0.0 0.0 0.0 9.338990E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 52 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.109718E+08 (CYCLIC FREQUENCY = 5.271807E+02 HZ) R E A L E I G E N V E C T O R N O . 29 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 6.306864E-01 0.0 0.0 0.0 9.074771E-01 2 G 0.0 1.500047E-01 0.0 0.0 0.0 -1.420328E-01 3 G 7.494743E-02 -4.255546E-01 0.0 0.0 0.0 -1.311725E-01 4 G 6.124309E-02 -2.898491E-01 0.0 0.0 0.0 -2.025004E-02 5 G -2.116179E-02 3.676016E-02 0.0 0.0 0.0 3.335792E-01 6 G -2.214274E-01 4.726125E-01 0.0 0.0 0.0 5.477368E-01 7 G -4.528701E-02 1.035470E-01 0.0 0.0 0.0 5.299209E-01 8 G 1.911004E-01 -3.593395E-01 0.0 0.0 0.0 3.009409E-01 9 G -3.606528E-02 -2.550558E-03 0.0 0.0 0.0 4.412903E-01 10 G -2.264526E-02 6.098498E-02 0.0 0.0 0.0 5.558437E-01 11 G 6.642874E-02 -7.025607E-02 0.0 0.0 0.0 6.819184E-01 12 G -9.737381E-02 3.810512E-02 0.0 0.0 0.0 7.162649E-01 13 G -3.203722E-02 1.959370E-02 0.0 0.0 0.0 8.135302E-01 14 G -2.617797E-02 2.559471E-03 0.0 0.0 0.0 8.732265E-01 15 G 4.556058E-02 -4.038391E-03 0.0 0.0 0.0 8.755918E-01 16 G 1.144764E-01 -2.319191E-02 0.0 0.0 0.0 6.187912E-01 17 G -1.407236E-01 0.0 0.0 0.0 0.0 1.000000E+00 18 G -5.802941E-02 0.0 0.0 0.0 0.0 7.277485E-01 1 FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL / 95 SUN SOLARIS NASTRAN / MAY 18, 95 / PAGE 53 NASTRAN TEST PROBLEM NO. T13-02-2A 0 NORMAL MODES WITH DIFFERENTIAL STIFFNESS SUBCASE 3 EIGENVALUE = 0.140761E+08 (CYCLIC FREQUENCY = 5.971198E+02 HZ) R E A L E I G E N V E C T O R N O . 30 POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 6.165289E-01 0.0 0.0 0.0 6.196898E-01 2 G 0.0 -6.060836E-01 0.0 0.0 0.0 6.974009E-01 3 G 6.350111E-02 -5.218132E-01 0.0 0.0 0.0 5.027527E-01 4 G -7.426060E-02 5.191436E-01 0.0 0.0 0.0 1.000000E+00 5 G -7.740908E-02 3.239703E-01 0.0 0.0 0.0 7.424201E-01 6 G 1.190608E-01 -3.010810E-01 0.0 0.0 0.0 4.450397E-01 7 G 2.787450E-02 -1.012868E-01 0.0 0.0 0.0 3.910620E-01 8 G -1.823312E-02 7.760706E-02 0.0 0.0 0.0 4.444542E-01 9 G 5.200273E-02 -4.583009E-02 0.0 0.0 0.0 5.746799E-01 10 G -1.235368E-01 7.961313E-02 0.0 0.0 0.0 5.946550E-01 11 G -6.951255E-02 6.206733E-02 0.0 0.0 0.0 5.530833E-01 12 G 1.604146E-01 -1.001038E-01 0.0 0.0 0.0 4.700455E-01 13 G 2.793421E-02 -1.494810E-02 0.0 0.0 0.0 4.960886E-01 14 G -5.897827E-02 3.197725E-02 0.0 0.0 0.0 4.851473E-01 15 G -3.634839E-02 1.980999E-02 0.0 0.0 0.0 3.274574E-01 16 G -1.039602E-02 1.539380E-02 0.0 0.0 0.0 5.089122E-01 17 G 1.076792E-01 0.0 0.0 0.0 0.0 1.346582E-01 18 G -2.968676E-02 0.0 0.0 0.0 0.0 4.079057E-01 * * * END OF JOB * * * 1 JOB TITLE = FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL DATE: 5/18/95 END TIME: 10:59: 5 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: demoout/t16011a.out ================================================ NASTRAN FILES = PLT2 **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T16011A,NASTRAN APP DISPLACEMENT SOL 16 DIAG 14 TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T16-01-1A 0 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T16-01-1A 3 SPC = 500 4 MPC = 600 5 LOAD = 1 6 DISP = ALL 7 SPCF = ALL 8 OLOAD = ALL 9 STRESS = ALL 10 FORCE = ALL 11 SUBCASE 1 12 LABEL = LINEAR SOLUTION OF ROTOR BLADE 13 SUBCASE 2 14 LABEL = NONLINEAR SOLUTION OF ROTOR BLADE 15 GPFORCE= ALL 16 OUTPUT(PLOT) 17 PLOTTER NASTPLT D,0 18 PAPER SIZE 10.0 X 10.0 19 SET 1 = ALL 20 ORTHOGRAPHIC PROJECTION 21 MAXIMUM DEFORMATION 0.5 22 AXES X,Y,Z 23 VIEW 0.0,0.0,0.0 24 FIND SCALE, ORIGIN 1, SET 1 25 PLOT SET 1, ORIGIN 1, LABEL 26 AXES Y,Z,X 27 FIND SCALE, ORIGIN 2, SET 1 28 PLOT SET 1, ORIGIN 2, LABEL 29 AXES Z,X,Y 30 FIND SCALE, ORIGIN 3, SET 1 31 PLOT SET 1, ORIGIN 3, LABEL 32 AXES X,Y,Z 33 VIEW 34.27,23.17,0.0 34 FIND SCALE, ORIGIN 4, SET 1 35 PLOT STATIC DEFORMATION 0, SET 1, ORIGIN 4, LABEL 36 AXES Z,X,Y 37 VIEW 0.0,0.0,0.0 38 FIND SCALE, ORIGIN 5, SET 1 39 PLOT STATIC DEFORMATION 0, SET 1, ORIGIN 5, LABEL 40 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 510, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T16-01-1A 0 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- CHEXA1 201 1 101 103 104 108 113 115 +CH1 2- +CH1 116 120 3- CHEXA1 202 1 108 104 105 107 120 116 +CH2 4- +CH2 117 119 5- CHEXA1 203 1 121 123 124 128 101 103 +CH3 6- +CH3 104 108 7- CHEXA1 204 1 128 124 125 127 108 104 +CH4 8- +CH4 105 107 9- CORD2C 1 0. 0. 0. 1.0 0. 0. +CD1 10- +CD1 0. 0. 1. 11- CTRIA2 1 2000 1 5 4 12- CTRIA2 2 2000 1 2 5 13- CTRIA2 3 2005 2 6 5 14- CTRIA2 4 2005 2 3 6 15- CTRIA2 5 2010 4 8 7 16- CTRIA2 6 2010 4 5 8 17- CTRIA2 7 2015 5 9 8 18- CTRIA2 8 2015 5 6 9 19- CTRIA2 9 2020 7 11 10 20- CTRIA2 10 2020 7 8 11 21- CTRIA2 11 2025 8 12 11 22- CTRIA2 12 2025 8 9 12 23- DTI ALGDB 0 135 0 0 0 0 0 +AL 0 24- +AL 0ENDREC +AL 1 25- DTI ALGDB 1 NASA LEWIS EXPERIMENTAL FAN +AL 2 26- +AL 2 ENDREC +AL 3 27- DTI ALGDB 2 1 1 0 0 0 0 +AL 4 28- +AL 40 0 0 0 0 0 0 0 +AL 5 29- +AL 50 0 0 0 0 0 0 0 +AL 6 30- +AL 60 0 ENDREC +AL 7 31- DTI ALGDB 3 GRID GENERATION +AL 8 32- +AL 8 ENDREC +AL 9 33- DTI ALGDB 4 4 5 3 4 30 43 +AL 10 34- +AL 102 0 2 1 0 3 0 0 +AL 11 35- +AL 112 4 1 0 0 0 0 0 +AL 12 36- +AL 120 0 ENDREC +AL 13 37- DTI* ALGDB 5 0.438399982E01 0.999999905E01 +AL 14 38- *AL 140.999999940E00 0 0.109999990E02 0 +AL 15 39- +AL 15ENDREC +AL 16 40- DTI ALGDB 6 2 0 0 0 0 0 +AL 17 41- +AL 170 0 0 0 0 0 0 0 +AL 18 42- +AL 180 0 0 0 0 0 0 0 +AL 19 43- +AL 190 0 ENDREC +AL 20 44- DTI* ALGDB 7 -0.199999905E01 0.359999943E01 +AL 21 45- *AL 210 0 0 0 +AL 22 46- +AL 22ENDREC +AL 23 47- DTI* ALGDB 8 -0.199999905E01 0.100400000E02 +AL 24 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T16-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- *AL 240 0 0 0 +AL 25 49- +AL 25ENDREC +AL 26 50- DTI* ALGDB 9 0.359999943E01 0 +AL 27 51- *AL 270 0 0 0 +AL 28 52- +AL 28ENDREC +AL 29 53- DTI* ALGDB 10 0.549999905E01 0 +AL 30 54- *AL 300 0 0 0 +AL 31 55- +AL 31ENDREC +AL 32 56- DTI* ALGDB 11 0.739999962E01 0 +AL 33 57- *AL 330 0 0 0 +AL 34 58- +AL 34ENDREC +AL 35 59- DTI* ALGDB 12 0.100400000E02 0 +AL 36 60- *AL 360 0 0 0 +AL 37 61- +AL 37ENDREC +AL 38 62- DTI ALGDB 13 4 1 ENDREC +AL 39 63- DTI* ALGDB 14 -0.898070633E00 0.378958511E01 +AL 40 64- *AL 40ENDREC +AL 41 65- DTI* ALGDB 15 -0.765281737E00 0.547675800E01 +AL 42 66- *AL 42ENDREC +AL 43 67- DTI* ALGDB 16 -0.638598502E00 0.736359024E01 +AL 44 68- *AL 44ENDREC +AL 45 69- DTI* ALGDB 17 -0.405804217E00 0.995540905E01 +AL 46 70- *AL 46ENDREC +AL 47 71- DTI* ALGDB 18 0.378958511E01 0 +AL 48 72- *AL 48ENDREC +AL 49 73- DTI* ALGDB 19 0.547675800E01 0 +AL 50 74- *AL 50ENDREC +AL 51 75- DTI* ALGDB 20 0.736359024E01 0 +AL 52 76- *AL 52ENDREC +AL 53 77- DTI* ALGDB 21 0.995540905E01 0 +AL 54 78- *AL 54ENDREC +AL 55 79- DTI ALGDB 22 4 1 ENDREC +AL 56 80- DTI* ALGDB 23 -0.707454019E-040.399898529E01 +AL 57 81- *AL 57ENDREC +AL 58 82- DTI* ALGDB 24 -0.459544128E-030.549857426E01 +AL 59 83- *AL 59ENDREC +AL 60 84- DTI* ALGDB 25 -0.911400467E-020.739762974E01 +AL 61 85- *AL 61ENDREC +AL 62 86- DTI* ALGDB 26 -0.106336363E-010.999707603E01 +AL 63 87- *AL 63ENDREC +AL 64 88- DTI* ALGDB 27 0.399898529E01 0 +AL 65 89- *AL 65ENDREC +AL 66 90- DTI* ALGDB 28 0.549857426E01 0 +AL 67 91- *AL 67ENDREC +AL 68 92- DTI* ALGDB 29 0.739762974E01 0 +AL 69 93- *AL 69ENDREC +AL 70 94- DTI* ALGDB 30 0.999707603E01 0 +AL 71 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T16-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- *AL 71ENDREC +AL 72 96- DTI ALGDB 31 4 1 ENDREC +AL 73 97- DTI* ALGDB 32 0.897929192E00 0.419198513E01 +AL 74 98- *AL 74ENDREC +AL 75 99- DTI* ALGDB 33 0.779861093E00 0.549377537E01 +AL 76 100- *AL 76ENDREC +AL 77 101- DTI* ALGDB 34 0.623993874E00 0.736712265E01 +AL 78 102- *AL 78ENDREC +AL 79 103- DTI* ALGDB 35 0.413974285E00 0.996370506E01 +AL 80 104- *AL 80ENDREC +AL 81 105- DTI* ALGDB 36 0.419198513E01 0 +AL 82 106- *AL 82ENDREC +AL 83 107- DTI* ALGDB 37 0.549377537E01 0 +AL 84 108- *AL 84ENDREC +AL 85 109- DTI* ALGDB 38 0.736712265E01 0 +AL 86 110- *AL 86ENDREC +AL 87 111- DTI* ALGDB 39 0.996370506E01 0 +AL 88 112- *AL 88ENDREC +AL 89 113- DTI ALGDB 40 2 0 0 0 0 0 +AL 90 114- +AL 900 0 0 0 0 0 0 0 +AL 91 115- +AL 910 0 0 0 0 0 0 0 +AL 92 116- +AL 920 0 ENDREC +AL 93 117- DTI* ALGDB 41 0.199999905E01 0.439999962E01 +AL 94 118- *AL 940 0 0 0 +AL 95 119- +AL 95ENDREC +AL 96 120- DTI* ALGDB 42 0.199999905E01 0.100400000E02 +AL 97 121- *AL 970 0 0 0 +AL 98 122- +AL 98ENDREC +AL 99 123- DTI* ALGDB 43 0.439999962E01 0 +AL 100 124- *AL 1000 0 0 0 +AL 101 125- +AL 101ENDREC +AL 102 126- DTI* ALGDB 44 0.549999905E01 0 +AL 103 127- *AL 1030 0 0 0 +AL 104 128- +AL 104ENDREC +AL 105 129- DTI* ALGDB 45 0.739999962E01 0 +AL 106 130- *AL 1060 0 0 0 +AL 107 131- +AL 107ENDREC +AL 108 132- DTI* ALGDB 46 0.100400000E02 0 +AL 109 133- *AL 1090 0 0 0 +AL 110 134- +AL 110ENDREC +AL 111 135- DTI* ALGDB 47 0.999999940E00 -0.381756897E02 +AL 112 136- *AL 1120.329245758E02 0 0 0.161499977E-01 +AL 113 137- +AL 113ENDREC +AL 114 138- DTI* ALGDB 48 0.979999900E-01 0.155899972E-01 +AL 115 139- *AL 1150.559999943E00 0.179599857E01 0.471492521E-01 -0.222556889E-01+AL 116 140- +AL 116ENDREC +AL 117 141- DTI* ALGDB 49 0.199999905E01 -0.437350769E02 +AL 118 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T16-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 142- *AL 118-0.468236637E 010 0 0.124260001E-01 +AL 119 143- +AL 119ENDREC +AL 120 144- DTI* ALGDB 50 0.734763145E-01 0.135056563E-01 +AL 121 145- *AL 1210.539999962E00 0.185159492E01 0.676045194E-02 -0.272210650E-01+AL 122 146- +AL 122ENDREC +AL 123 147- DTI* ALGDB 51 0.299999905E01 -0.524065857E02 +AL 124 148- *AL 124-0.400783386E 020 0 0.912010297E-02 +AL 125 149- +AL 125ENDREC +AL 126 150- DTI* ALGDB 52 0.360004082E-01 0.966010615E-02 +AL 127 151- *AL 1270.489999950E00 0.186397648E01 -0.834399834E-020.131941922E-01 +AL 128 152- +AL 128ENDREC +AL 129 153- DTI* ALGDB 53 0.399999905E01 -0.724938965E02 +AL 130 154- *AL 130-0.592066498E 020 0 0.482162833E-02 +AL 131 155- +AL 131ENDREC +AL 132 156- DTI* ALGDB 54 0.268090703E-01 0.429144874E-02 +AL 133 157- *AL 1330.479999959E00 0.186236858E01 -0.373036265E-010.498055629E-01 +AL 134 158- +AL 134ENDREC +AL 135 159- DTI ALGDB 55 1 5 1 2 2 4 +AL 136 160- +AL 1360 0 0 0 0 0 0 0 +AL 137 161- +AL 1370 0 0 0 0 0 0 0 +AL 138 162- +AL 1380 0 ENDREC +AL 139 163- DTI* ALGDB 56 0.999999940E00 0.160427969E05 +AL 140 164- *AL 1400 0 0 0 +AL 141 165- +AL 141ENDREC +AL 142 166- DTI ALGDB 57 0 0 10 0 0 0 +AL 143 167- +AL 1430 0 0 0 0 0 0 0 +AL 144 168- +AL 1440 0 0 0 0 0 0 0 +AL 145 169- +AL 1450 0 ENDREC +AL 146 170- DTI ALGDB 58 1 0 0 4 -1 -1 +AL 147 171- +AL 1470 1 0 0 0 0 0 -43 +AL 148 172- +AL 1480 0 0 0 0 0 0 0 +AL 149 173- +AL 1490 0 ENDREC +AL 150 174- DTI ALGDB 59 0 0 0 0 0 0 +AL 151 175- +AL 1510 0 0 0 0 0 0 0 +AL 152 176- +AL 1520 0 0 0 0 0 0 0 +AL 153 177- +AL 1530 0 ENDREC +AL 154 178- DTI ALGDB 60 8 0 0 1 -2 -2 +AL 155 179- +AL 155-1 0 0 2 0 0 20 -43 +AL 156 180- +AL 1560 0 0 0 0 0 0 0 +AL 157 181- +AL 1570 0 ENDREC +AL 158 182- DTI* ALGDB 61 0.419999981E01 0.499999970E-01 +AL 159 183- *AL 1590 0 0 0 +AL 160 184- +AL 160ENDREC +AL 161 185- DTI* ALGDB 62 0.461999989E01 0.499999970E-01 +AL 162 186- *AL 1620 0 0 0 +AL 163 187- +AL 163ENDREC +AL 164 188- DTI* ALGDB 63 0.549999905E01 0.499999970E-01 +AL 165 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T16-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 189- *AL 1650 0 0 0 +AL 166 190- +AL 166ENDREC +AL 167 191- DTI* ALGDB 64 0.649999905E01 0.499999970E-01 +AL 168 192- *AL 1680 0 0 0 +AL 169 193- +AL 169ENDREC +AL 170 194- DTI* ALGDB 65 0.739999962E01 0.499999970E-01 +AL 171 195- *AL 1710 0 0 0 +AL 172 196- +AL 172ENDREC +AL 173 197- DTI* ALGDB 66 0.839999962E01 0.499999970E-01 +AL 174 198- *AL 1740 0 0 0 +AL 175 199- +AL 175ENDREC +AL 176 200- DTI* ALGDB 67 0.949999905E01 0.499999970E-01 +AL 177 201- *AL 1770 0 0 0 +AL 178 202- +AL 178ENDREC +AL 179 203- DTI* ALGDB 68 0.999999905E01 0.499999970E-01 +AL 180 204- *AL 1800 0 0 0 +AL 181 205- +AL 181ENDREC +AL 182 206- DTI ALGDB 69 0 0 0 0 0 0 +AL 183 207- +AL 1830 0 0 0 0 0 0 0 +AL 184 208- +AL 1840 0 0 0 0 0 0 0 +AL 185 209- +AL 1850 0 ENDREC +AL 186 210- DTI ALGDB 70 0 0 0 0 0 0 +AL 187 211- +AL 1870 0 0 0 0 0 0 0 +AL 188 212- +AL 1880 0 0 0 0 0 0 0 +AL 189 213- +AL 1890 0 ENDREC +AL 190 214- DTI* ALGDB 71 0.249999940E00 0.249999940E00 +AL 191 215- *AL 1910 0 0 0 +AL 192 216- +AL 192ENDREC +AL 193 217- DTI* ALGDB 72 0.499999940E00 0.499999940E00 +AL 194 218- *AL 1940 0 0 0 +AL 195 219- +AL 195ENDREC +AL 196 220- DTI* ALGDB 73 0.749999940E00 0.749999940E00 +AL 197 221- *AL 1970 0 0 0 +AL 198 222- +AL 198ENDREC +AL 199 223- DTI* ALGDB 74 0.999999940E00 0.999999940E00 +AL 200 224- *AL 2000 0 0 0 +AL 201 225- +AL 201ENDREC +AL 202 226- DTI* ALGDB 75 0 0 +AL 203 227- *AL 2030.499999940E00 0 0 0 +AL 204 228- +AL 2040 0 0 0 0 0 0 0 +AL 205 229- +AL 2050 0 0 0 0 0 0 0 +AL 206 230- +AL 2060 0 ENDREC +AL 207 231- DTI ALGDB 76 AERODYNAMIC ANALYSIS OF NASA LEWIS BLADE +AL 208 232- +AL 208 ENDREC +AL 209 233- DTI ALGDB 77 0 0 0 0 0 0 +AL 210 234- +AL 2100 0 0 0 0 0 0 0 +AL 211 235- +AL 2110 0 0 0 0 0 0 0 +AL 212 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T16-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 236- +AL 2120 0 ENDREC +AL 213 237- DTI ALGDB 78 7 4 0 40 0 0 +AL 214 238- +AL 2140 1 1 0 0 0 0 0 +AL 215 239- +AL 2150 3 0 0 3 5 1 0 +AL 216 240- +AL 2160 0 ENDREC +AL 217 241- DTI ALGDB 79 3 4 5 0 0 0 +AL 218 242- +AL 2180 0 0 0 0 0 0 0 +AL 219 243- +AL 2190 0 0 0 0 0 0 0 +AL 220 244- +AL 2200 0 ENDREC +AL 221 245- DTI* ALGDB 80 0 0 +AL 222 246- *AL 2220 0.999999931E-03 0 0 +AL 223 247- +AL 2230 0 0 0 0 0 0 0 +AL 224 248- +AL 2240 0 0 0 0 0 0 0 +AL 225 249- +AL 2250 0 ENDREC +AL 226 250- DTI* ALGDB 81 0.999999940E00 0.999999940E00 +AL 227 251- *AL 2270.399999905E01 0 0.699999988E00 0.799999905E01 +AL 228 252- +AL 228ENDREC +AL 229 253- DTI ALGDB 82 0 0 0 0 0 0 +AL 230 254- +AL 2300 0 0 0 0 0 0 0 +AL 231 255- +AL 2310 0 0 0 0 0 0 0 +AL 232 256- +AL 2320 0 ENDREC +AL 233 257- DTI* ALGDB 83 0.731459961E02 0.999999940E00 +AL 234 258- *AL 2340 0 0 0 +AL 235 259- +AL 235ENDREC +AL 236 260- DTI ALGDB 84 2 0 0 0 0 0 +AL 237 261- +AL 2370 0 0 0 0 0 0 0 +AL 238 262- +AL 2380 0 0 0 0 0 0 0 +AL 239 263- +AL 2390 0 ENDREC +AL 240 264- DTI* ALGDB 85 -0.399999905E01 0.324999905E01 +AL 241 265- *AL 2410 0 0 0 +AL 242 266- +AL 242ENDREC +AL 243 267- DTI* ALGDB 86 -0.399999905E01 0.100400000E02 +AL 244 268- *AL 2440 0 0 0 +AL 245 269- +AL 245ENDREC +AL 246 270- DTI ALGDB 87 2 0 0 0 0 0 +AL 247 271- +AL 2470 0 0 0 0 0 0 0 +AL 248 272- +AL 2480 0 0 0 0 0 0 0 +AL 249 273- +AL 2490 0 ENDREC +AL 250 274- DTI* ALGDB 88 -0.199999905E01 0.359999943E01 +AL 251 275- *AL 2510 0 0 0 +AL 252 276- +AL 252ENDREC +AL 253 277- DTI* ALGDB 89 -0.199999905E01 0.100400000E02 +AL 254 278- *AL 2540 0 0 0 +AL 255 279- +AL 255ENDREC +AL 256 280- DTI ALGDB 90 4 ENDREC +AL 257 281- DTI* ALGDB 91 -0.898070633E00 0.378958511E01 +AL 258 282- *AL 258ENDREC +AL 259 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T16-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 283- DTI* ALGDB 92 -0.765281737E00 0.547675800E01 +AL 260 284- *AL 260ENDREC +AL 261 285- DTI* ALGDB 93 -0.638598502E00 0.736359024E01 +AL 262 286- *AL 262ENDREC +AL 263 287- DTI* ALGDB 94 -0.405804217E00 0.995540905E01 +AL 264 288- *AL 264ENDREC +AL 265 289- DTI ALGDB 95 4 ENDREC +AL 266 290- DTI* ALGDB 96 -0.707454019E-040.399898529E01 +AL 267 291- *AL 267ENDREC +AL 268 292- DTI* ALGDB 97 -0.459544128E-030.549857426E01 +AL 269 293- *AL 269ENDREC +AL 270 294- DTI* ALGDB 98 -0.911400467E-020.739762974E01 +AL 271 295- *AL 271ENDREC +AL 272 296- DTI* ALGDB 99 -0.106336363E-010.999707603E01 +AL 273 297- *AL 273ENDREC +AL 274 298- DTI ALGDB 100 4 ENDREC +AL 275 299- DTI* ALGDB 101 0.897929192E00 0.419198513E01 +AL 276 300- *AL 276ENDREC +AL 277 301- DTI* ALGDB 102 0.779861093E00 0.549377537E01 +AL 278 302- *AL 278ENDREC +AL 279 303- DTI* ALGDB 103 0.623993874E00 0.736712265E01 +AL 280 304- *AL 280ENDREC +AL 281 305- DTI* ALGDB 104 0.413974285E00 0.996370506E01 +AL 282 306- *AL 282ENDREC +AL 283 307- DTI ALGDB 105 2 0 0 0 0 0 +AL 284 308- +AL 2840 0 0 0 0 0 0 0 +AL 285 309- +AL 2850 0 0 0 0 0 0 0 +AL 286 310- +AL 2860 0 ENDREC +AL 287 311- DTI* ALGDB 106 0.199999905E01 0.439999962E01 +AL 288 312- *AL 2880 0 0 0 +AL 289 313- +AL 289ENDREC +AL 290 314- DTI* ALGDB 107 0.199999905E01 0.100400000E02 +AL 291 315- *AL 2910 0 0 0 +AL 292 316- +AL 292ENDREC +AL 293 317- DTI ALGDB 108 2 0 0 0 0 0 +AL 294 318- +AL 2940 0 0 0 0 0 0 0 +AL 295 319- +AL 2950 0 0 0 0 0 0 0 +AL 296 320- +AL 2960 0 ENDREC +AL 297 321- DTI* ALGDB 109 0.399999905E01 0.474999905E01 +AL 298 322- *AL 2980 0 0 0 +AL 299 323- +AL 299ENDREC +AL 300 324- DTI* ALGDB 110 0.399999905E01 0.100400000E02 +AL 301 325- *AL 3010 0 0 0 +AL 302 326- +AL 302ENDREC +AL 303 327- DTI ALGDB 111 1 0 0 0 0 0 +AL 304 328- +AL 3040 0 0 0 0 0 0 0 +AL 305 329- +AL 3050 0 0 0 0 0 0 0 +AL 306 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T16-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 330- +AL 3060 0 ENDREC +AL 307 331- DTI* ALGDB 112 0.324999905E01 0.146999998E02 +AL 308 332- *AL 3080.518699951E03 0 0 0 +AL 309 333- +AL 309ENDREC +AL 310 334- DTI ALGDB 113 0 0 0 0 0 0 +AL 311 335- +AL 3110 0 0 0 0 0 0 0 +AL 312 336- +AL 3120 0 0 0 0 0 0 0 +AL 313 337- +AL 3130 0 ENDREC +AL 314 338- DTI* ALGDB 114 0.399999905E01 0 +AL 315 339- *AL 3150 0 0 0 +AL 316 340- +AL 316ENDREC +AL 317 341- DTI* ALGDB 115 0.999999905E01 0.999999940E00 +AL 318 342- *AL 3180 0 0 0 +AL 319 343- +AL 319ENDREC +AL 320 344- DTI ALGDB 116 0 0 0 0 0 0 +AL 321 345- +AL 3210 0 0 0 0 0 0 0 +AL 322 346- +AL 3220 0 0 0 0 0 0 0 +AL 323 347- +AL 3230 0 ENDREC +AL 324 348- DTI ALGDB 117 0 0 0 0 0 0 +AL 325 349- +AL 3250 0 0 0 0 0 0 0 +AL 326 350- +AL 3260 0 0 0 0 0 0 0 +AL 327 351- +AL 3270 0 ENDREC +AL 328 352- DTI ALGDB 118 0 0 0 0 0 0 +AL 329 353- +AL 3290 0 0 0 0 0 0 0 +AL 330 354- +AL 3300 0 0 0 0 0 0 0 +AL 331 355- +AL 3310 0 ENDREC +AL 332 356- DTI ALGDB 119 0 0 0 0 0 0 +AL 333 357- +AL 3330 0 0 0 0 0 0 0 +AL 334 358- +AL 3340 0 0 0 0 0 0 0 +AL 335 359- +AL 3350 0 ENDREC +AL 336 360- DTI ALGDB 120 0 0 0 0 0 0 +AL 337 361- +AL 3370 0 0 0 0 0 0 0 +AL 338 362- +AL 3380 0 0 0 0 0 0 0 +AL 339 363- +AL 3390 0 ENDREC +AL 340 364- DTI ALGDB 121 0 0 0 0 0 0 +AL 341 365- +AL 3410 0 0 0 0 0 0 0 +AL 342 366- +AL 3420 0 0 0 0 0 0 0 +AL 343 367- +AL 3430 0 ENDREC +AL 344 368- DTI ALGDB 122 0 0 0 0 0 0 +AL 345 369- +AL 3450 0 0 0 0 0 0 0 +AL 346 370- +AL 3460 0 0 0 0 0 0 0 +AL 347 371- +AL 3470 0 ENDREC +AL 348 372- DTI ALGDB 123 0 0 0 0 0 0 +AL 349 373- +AL 3490 0 0 0 0 0 0 0 +AL 350 374- +AL 3500 0 0 0 0 0 0 0 +AL 351 375- +AL 3510 0 ENDREC +AL 352 376- DTI ALGDB 124 0 0 0 0 0 0 +AL 353 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T16-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 377- +AL 3530 0 0 0 0 0 0 0 +AL 354 378- +AL 3540 0 0 0 0 0 0 0 +AL 355 379- +AL 3550 0 ENDREC +AL 356 380- DTI ALGDB 125 6 0 0 0 0 0 +AL 357 381- +AL 3570 0 0 0 0 0 0 0 +AL 358 382- +AL 3580 0 0 0 0 0 0 0 +AL 359 383- +AL 3590 0 ENDREC +AL 360 384- DTI* ALGDB 126 0 0.599999726E-02 +AL 361 385- *AL 3610.599999726E-02 0.599999726E-02 0 0 +AL 362 386- +AL 3620 0 0 0 0 0 0 0 +AL 363 387- +AL 3630 0 0 0 0 0 0 0 +AL 364 388- +AL 3640 0 ENDREC +AL 365 389- DTI* ALGDB 127 0.199999988E00 0.699999928E-02 +AL 366 390- *AL 3660.699999928E-02 0.699999928E-02 0 0 +AL 367 391- +AL 367ENDREC +AL 368 392- DTI* ALGDB 128 0.399999976E00 0.139999986E-01 +AL 369 393- *AL 3690.139999986E-01 0.139999986E-01 0 0 +AL 370 394- +AL 370ENDREC +AL 371 395- DTI* ALGDB 129 0.599999964E00 0.299999975E-01 +AL 372 396- *AL 3720.309999995E-01 0.309999995E-01 0 0 +AL 373 397- +AL 373ENDREC +AL 374 398- DTI* ALGDB 130 0.799999952E00 0.599999987E-01 +AL 375 399- *AL 3750.599999987E-01 0.599999987E-01 0 0 +AL 376 400- +AL 376ENDREC +AL 377 401- DTI* ALGDB 131 0.999999940E00 0.124999940E00 +AL 378 402- *AL 3780.124999940E00 0.124999940E00 0 0 +AL 379 403- +AL 379ENDREC +AL 380 404- DTI ALGDB 132 2 1 0 0 0 0 +AL 381 405- +AL 3810 0 0 0 0 0 0 0 +AL 382 406- +AL 3820 0 0 0 0 0 0 0 +AL 383 407- +AL 3830 0 ENDREC +AL 384 408- DTI ALGDB 133 0 0 0 0 0 0 +AL 385 409- +AL 3850 0 0 0 0 0 0 0 +AL 386 410- +AL 3860 0 0 0 0 0 0 0 +AL 387 411- +AL 3870 0 ENDREC +AL 388 412- DTI ALGDB 134 0 0 0 0 0 0 +AL 389 413- +AL 3890 0 0 0 0 0 0 0 +AL 390 414- +AL 3900 0 0 0 0 0 0 0 +AL 391 415- +AL 3910 0 ENDREC +AL 392 416- DTI* ALGDB 135 0.999999940E00 0 +AL 393 417- *AL 3930 0 0 0 +AL 394 418- +AL 394ENDREC +AL 395 419- GRID 1 -0.8981 -0.2755 3.7796 420- GRID 2 -0.0001 0.0540 3.9986 421- GRID 3 0.8979 -0.2464 4.1847 422- GRID 4 -0.7653 -0.4830 5.4554 423- GRID 5 -0.0005 0.0209 5.4985 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T16-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 424- GRID 6 0.7799 0.2307 5.4889 425- GRID 7 -0.6386 -0.7217 7.3281 426- GRID 8 -0.0091 0.0155 7.3976 427- GRID 9 0.6240 0.6123 7.3416 428- GRID 10 -0.4058 -1.1351 9.8905 429- GRID 11 -0.0106 -0.0236 9.9970 430- GRID 12 0.4140 0.8134 9.9304 431- GRID 101 1 2.375 4.186 -0.987 1 432- GRID 103 1 2.375 4.186 0.987 1 433- GRID 104 1 2.375 0.0 0.987 1 434- GRID 105 1 2.375 -4.186 0.987 1 435- GRID 107 1 2.375 -4.186 -0.987 1 436- GRID 108 1 2.375 0.0 -0.987 1 437- GRID 113 1 3.982 4.186 -0.987 1 438- GRID 115 1 4.539 4.186 0.987 1 439- GRID 116 1 4.539 0.0 0.987 440- GRID 117 1 4.539 -4.186 0.987 1 441- GRID 119 1 3.982 -4.186 -0.987 1 442- GRID 120 1 3.982 0.0 -0.987 443- GRID 121 1 0.905 4.186 -0.987 1 444- GRID 123 1 0.905 4.186 0.987 1 445- GRID 124 1 0.905 0.0 0.987 1 446- GRID 125 1 0.905 -4.186 0.987 1 447- GRID 127 1 0.905 -4.186 -0.987 1 448- GRID 128 1 0.905 0.0 -0.987 1 449- MAT1 1 31.0E6 0.3 7.300E-4 450- MPC 600 1 1 1.0 2 1 -1.0 451- MPC 600 1 2 1.0 2 2 -1.0 452- MPC 600 1 3 1.0 2 3 -1.0 453- MPC 600 1 4 1.0 2 4 -1.0 454- MPC 600 1 5 1.0 2 5 -1.0 455- MPC 600 1 6 1.0 2 6 -1.0 456- MPC 600 3 1 1.0 2 1 -1.0 457- MPC 600 3 2 1.0 2 2 -1.0 458- MPC 600 3 3 1.0 2 3 -1.0 459- MPC 600 3 4 1.0 2 4 -1.0 460- MPC 600 3 5 1.0 2 5 -1.0 461- MPC 600 3 6 1.0 2 6 -1.0 462- MPC 600 101 1 1.0 107 1 -1.0 463- MPC 600 101 2 1.0 107 2 -1.0 464- MPC 600 101 3 1.0 107 3 -1.0 465- MPC 600 103 2 1.0 105 2 -1.0 466- MPC 600 103 3 1.0 105 3 -1.0 467- MPC 600 103 1 1.0 105 1 -1.0 468- MPC 600 113 1 1.0 119 1 -1.0 469- MPC 600 113 2 1.0 119 2 -1.0 470- MPC 600 113 3 1.0 119 3 -1.0 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T16-01-1A S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 471- MPC 600 115 1 1.0 117 1 -1.0 472- MPC 600 115 2 1.0 117 2 -1.0 473- MPC 600 115 3 1.0 117 3 -1.0 474- MPC 600 116 1 1.0 2 1 -1.0 475- MPC 600 116 2 1.0 2 2 -1.0 476- MPC 600 116 3 1.0 2 3 -1.0 477- MPC 600 120 3 1.0 2 3 -1.0 478- MPC 600 120 1 1.0 2 1 -1.0 479- MPC 600 120 2 1.0 2 2 -1.0 480- MPC 600 121 1 1.0 127 1 -1.0 481- MPC 600 123 1 1.0 125 1 -1.0 482- PARAM APRESS 1 483- PARAM ATEMP 1 484- PARAM FXCOOR 1.0 485- PARAM FYCOOR 1.0 486- PARAM FZCOOR 1.0 487- PARAM IPRTCF 1 488- PARAM IPRTCI 1 489- PARAM IPRTCL 0 490- PARAM KTOUT -1 491- PARAM PGEOM 1 492- PARAM SIGN +1.0 493- PARAM STREAML 2 494- PARAM ZORIGN 0.0 495- PTRIA2 2000 1 0.1040 0. 496- PTRIA2 2005 1 0.1040 0. 497- PTRIA2 2010 1 0.0707 0. 498- PTRIA2 2015 1 0.0707 0. 499- PTRIA2 2020 1 0.0422 0. 500- PTRIA2 2025 1 0.0422 0. 501- RFORCE 1 0 0 267.367 1.0 0.0 0.0 502- SPC1 500 23 121 123 124 125 127 128 503- SPC1 500 45 7 10 12 504- SPC1 500 456 101 103 104 105 107 108 505- SPC1 500 456 113 115 116 117 119 120 506- SPC1 500 456 121 123 124 125 127 128 507- STREAML11 1 THRU 3 508- STREAML12 4 THRU 6 509- STREAML13 7 THRU 9 510- STREAML14 10 THRU 12 ENDDATA 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T16-01-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK NOREF NOOSCAR ----------------- 1 BEGIN DISP 16 STATIC AEROTHERMOELASTIC DESIGN/ANALYSIS - APR. 1995 $ 2 PRECHK ALL $ 3 PARAM //*MPY*/CARDNO/0/0 $ 4 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N, NOGPDT/MINUS1=-1 $ 5 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 6 EQUIV MPTA,MPT/ISOP $ 7 COND ERROR3,NOGPDT $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PARAMR //*COMPLEX*//V,Y,SIGN/0.0/CSIGN $ 12 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 13 COND P1,JUMPPLOT $ 14 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/S,N, JUMPPLOT $ 15 PRTMSG PLTSETX// $ 16 PARAM //*MPY*/PLTFLG/1/1 $ 17 PARAM //*MPY*/PFILE/0/0 $ 18 COND P1,JUMPPLOT $ 19 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 20 PRTMSG PLOTX1// $ 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T16-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 LABEL P1 $ 22 GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ 23 PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ 24 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $ 25 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 26 COND ERROR1,NOSIMP $ 27 PARAM //*ADD*/NOKGGX/1/0 $ 28 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y, CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y, CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 LABEL JMPKGG $ 32 COND JMPMGG,NOMGG $ 33 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 34 PURGE MDICT,MELM/MINUS1 $ 35 LABEL JMPMGG $ 36 COND LBL1,GRDPNT $ 37 COND ERROR4,NOMGG $ 38 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ 39 OFP OGPWG,,,,,//S,N,CARDNO $ 40 LABEL LBL1 $ 41 EQUIV KGGX,KGG/NOGENL $ 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T16-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 COND LBL11,NOGENL $ 43 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 44 LABEL LBL11 $ 45 GPSTGEN KGG,SIL/GPST $ 46 PARAM //*MPY*/NSKIP/0/0 $ 47 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 48 OFP OGPST,,,,,//S,N,CARDNO $ 49 COND ERROR5,NOL $ 50 COND LBL4D,REACT $ 51 JUMP ERROR2 $ 52 LABEL LBL4D $ 53 PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG/SINGLE/ PBS,KBFS,KBSS,KDFS,KDSS/SINGLE $ 54 EQUIV KGG,KNN/MPCF1 $ 55 COND LBL2,MPCF2 $ 56 MCE1 USET,RG/GM $ 57 MCE2 USET,GM,KGG,,,/KNN,,, $ 58 LABEL LBL2 $ 59 EQUIV KNN,KFF/SINGLE $ 60 COND LBL3,SINGLE $ 61 SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ 62 LABEL LBL3 $ 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T16-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 63 EQUIV KFF,KAA/OMIT $ 64 COND LBL5,OMIT $ 65 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 66 LABEL LBL5 $ 67 RBMG2 KAA/LLL $ 68 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PGNA,,,,/LUSET/1/COMPS $ 69 PARAM //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $ 70 COND NOAL,ALOAD $ 71 ALG CASECC,,EQEXIN,,ALGDB,,/CASECCA1,GEOM3A1/S,Y,APRESS/S,Y, ATEMP/-1/-1/V,Y,IPRTCI/S,N,IFAIL $ 72 COND FINIS,IFAIL $ 73 PARAM //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $ 74 COND NOAL,ALOAD $ 75 GP3 GEOM3A1,EQEXIN,GEOM2/SLTA1,GPTTA1/NOGRAV $ 76 SSG1 SLTA1,BGPDT,CSTM,SIL,EST,MPT,GPTTA1,EDT,MGG,CASECCA1,DIT, PCOMPS/PGA1,,,,/LUSET/1/COMPS $ 77 ADD PGNA,PGA1/PG/(1.0,0.0)/(1.0,0.0) $ 78 LABEL NOAL $ 79 EQUIV PGNA,PG/ALOAD $ 80 EQUIV PG,PL/NOSET $ 81 COND LBL10,NOSET $ 82 SSG2 USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $ 83 LABEL LBL10 $ 84 SSG3 LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T16-01-1A 0 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 1/S,N,EPSI $ 85 COND LBL9,IRES $ 86 MATGPR GPL,USET,SIL,RULV//*L* $ 87 MATGPR GPL,USET,SIL,RUOV//*O* $ 88 LABEL LBL9 $ 89 SDR1 USET,,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PG1,QG/1/*DS0* $ 90 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PG, PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *DS0*////COMPS $ 91 OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ 92 OFP OEF1L,OES1L,,,,//S,N,CARDNO $ 93 COND P2,JUMPPLOT $ 94 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $ 95 PRTMSG PLOTX2// $ 96 LABEL P2 $ 97 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/ NOSIMP/0/NOGENL/GENEL $ 98 DSMG1 CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/ DSCOSET$ 99 COND NOAL0,ALOAD $ 100 EQUIV PGNA,PG $ 101 LABEL NOAL0 $ 102 PARAM //*ADD*/SHIFT/-1/0 $ 103 PARAM //*ADD*/COUNT/ALWAYS=-1/NEVER=1 $ 104 PARAMR //*ADD*/DSEPSI/0.0/0.0 $ 105 PARAML YS//*NULL*////NOYS $ 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T16-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 106 LABEL OUTLPTOP $ 107 EQUIV PG,PG1/NOYS $ 108 PARAM //*KLOCK*/TO $ 109 EQUIV KDGG,KDNN/MPCF2 $ 110 COND LBL2D,MPCF2 $ 111 MCE2 USET,GM,KDGG,,,/KDNN,,, $ 112 LABEL LBL2D $ 113 EQUIV KDNN,KDFF/SINGLE $ 114 COND LBL3D,SINGLE $ 115 SCE1 USET,KDNN,,,/KDFF,KDFS,KDSS,,, $ 116 LABEL LBL3D $ 117 EQUIV KDFF,KDAA/OMIT $ 118 COND LBL5D,OMIT $ 119 SMP2 USET,GO,KDFF/KDAA $ 120 LABEL LBL5D $ 121 ADD KAA,KDAA/KBLL/(1.0,0.0)/CSIGN $ 122 ADD KFS,KDFS/KBFS/(1.0,0.0)/CSIGN $ 123 ADD KSS,KDSS/KBSS/(1.0,0.0)/CSIGN $ 124 COND PGOK,NOYS $ 125 MPYAD KBSS,YS,/PSS/0 $ 126 MPYAD KBFS,YS,/PFS/0 $ 127 UMERGE USET,PFS,PSS/PN/*N*/*F*/*S* $ 128 EQUIV PN,PGX/MPCF2 $ 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T16-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 129 COND LBL6D,MPCF2 $ 130 UMERGE USET,PN,/PGX/*G*/*N*/*M* $ 131 LABEL LBL6D $ 132 ADD PGX,PG/PGG/(-1.0,0.0)/(1.0,0.0) $ 133 EQUIV PGG,PG1/ALWAYS $ 134 LABEL PGOK $ 135 ADD PG1,/PG0/(1.0,0.0) $ 136 COPY UGV/AUGV $ 137 RBMG2 KBLL/LBLL/S,N,POWER/S,N,DET $ 138 PRTPARM //0/*DET* $ 139 PRTPARM //0/*POWER* $ 140 LABEL INLPTOP $ 141 PARAM //*KLOCK*/TI $ 142 COND NOAL1,ALOAD $ 143 ALG CASECC,EDT,EQEXIN,AUGV,ALGDB,CSTM,BGPDT/CASECCA,GEOM3A/S,Y, APRESS/S,Y,ATEMP/-1/-1/V,Y,IPRTCL/S,N,IFAIL/V,Y,SIGN/V, Y,ZORIGN/V,Y,FXCOOR/V,Y,FYCOOR/V,Y,FZCOOR $ 144 COND DONE,IFAIL $ 145 PARAM //*MPY*/V,Y,IPRTCL/0 $ 146 PARAM //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $ 147 COND NOAL1,ALOAD $ 148 GP3 GEOM3A,EQEXIN,GEOM2/SLTA,GPTTA/NOASL/NOGRAV/NOATL $ 149 SSG1 SLTA,BGPDT,CSTM,SIL,EST,MPT,GPTTA,EDT,MGG,CASECCA,DIT,PCOMPS/ PGA,,,,/LUSET/1/COMPS $ $ 150 ADD PG1,PGA/PG2/(1.0,0.0)/(1.0,0.0) $ 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T16-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 151 LABEL NOAL1 $ 152 EQUIV PG1,PG2/ALOAD $ 153 SSG2 USET,GM,YS,KDFS,GO,,PG2/,PBO,PBS,PBL $ 154 SSG3 LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/S,N, EPSI $ 155 COND LBL9D,IRES $ 156 MATGPR GPL,USET,SIL,RUBLV//*L* $ 157 LABEL LBL9D $ 158 SDR1 USET,,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/1/*DS1* $ 159 COND NOAL2,ALOAD $ 160 EQUIV UBGV,AUGV $ 161 LABEL NOAL2 $ 162 ADD UBGV,UGV/DUGV/(-1.0,0.0)/(1.0,0.0) $ 163 DSMG1 CASECC,GPTT,SIL,EDT,DUGV,CSTM,MPT,ECPT,GPCT,DIT/DKDGG/V,N, DSCOSET $ 164 MPYAD DKDGG,UBGV,PG0/PGI1/0 $ 165 ADD PGI1,PGA/PGI2/(1.0,0.0)/(1.0,0.0) $ 166 DSCHK PG2,PGI2,UBGV//C,Y,EPSIO=1.E-5/S,N,DSEPSI/C,Y,NT=10/ TO/TI/S,N,DONE/S,N,SHIFT/S,N,COUNT/C,Y,BETAD=4 $ 167 COND DONE,DONE $ 168 COND SHIFT,SHIFT $ 169 EQUIV PG,PG1/NEVER $ 170 EQUIV PGI1,PG1/ALWAYS $ 171 EQUIV PG1,PGI1/NEVER $ 172 REPT INLPTOP,1000 $ 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T16-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 173 TABPT PGI1,PG1,PG,,// $ 174 LABEL SHIFT $ 175 ADD DKDGG,KDGG/KDGG1/(-1.0,0.0)/(1.0,0.0) $ 176 EQUIV UBGV,UGV/ALWAYS/KDGG1,KDGG/ALWAYS $ 177 EQUIV KDGG,KDGG1/NEVER/UGV,UBGV/NEVER $ 178 REPT OUTLPTOP,1000 $ 179 TABPT KDGG1,KDGG,UGV,,// $ 180 LABEL DONE $ 181 PARAM //*NOP*/V,Y,KTOUT=-1 $ 182 COND JMPKTOUT,KTOUT $ 183 ADD KGG,KDGG/KTOTAL/(1.0,0.0)/CSIGN $ 184 OUTPUT1 KTOTAL,,,,//C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $ 185 OUTPUT1, ,,,,//-3/0 $ 186 LABEL JMPKTOUT $ 187 ALG CASECC,EDT,EQEXIN,UBGV,ALGDB,CSTM,BGPDT/CASECCB,GEOM3B/ -1/-1/V,Y,STREAML/V,Y,PGEOM/V,Y,IPRTCF/S,N,IFAIL/V,Y,SIGN/ V,Y,ZORIGN/V,Y,FXCOOR/V,Y,FYCOOR/V,Y,FZCOOR $ 188 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,,, PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/ *DS1*////COMPS $ 189 OFP OUBGV1,OQBG1,OEFB1,OESB1,,//S,N,CARDNO $ 190 OFP OEFB1L,OESB1L,,,,//S,N,CARDNO $ 191 SDR1 USET,PG2,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/AUBGV,APGG,AQBG/ 1/*DS1* $ 192 GPFDR CASECC,AUBGV,KELM,KDICT,ECT,EQEXIN,GPECT,APGG,AQBG/ONRGY1, OGPFB1/*STATICS* $ 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T16-01-1A COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 193 PURGE KDICT,KELM/MINUS1 $ 194 OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ 195 COND P3,JUMPPLOT $ 196 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUBGV1,,GPECT, OESB1,OESB1L,ONRGY1/PLOTX3/NSIL/LUSET/JUMPPLOT/PLTFLG/ S,N,PFILE $ 197 PRTMSG PLOTX3// $ 198 LABEL P3 $ 199 JUMP FINIS $ 200 LABEL ERROR1 $ 201 PRTPARM //-1/*ASTA* $ 202 LABEL ERROR2 $ 203 PRTPARM //-2/*ASTA* $ 204 LABEL ERROR3 $ 205 PRTPARM //-3/*ASTA* $ 206 LABEL ERROR4 $ 207 PRTPARM //-4/*ASTA* $ 208 LABEL ERROR5 $ 209 PRTPARM //-5/*ASTA* $ 210 LABEL FINIS $ 211 PURGE DUMMY/MINUS1 $ 212 END $ 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T16-01-1A 0 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 18 PROFILE 206 MAX WAVEFRONT 16 AVG WAVEFRONT 6.867 RMS WAVEFRONT 8.091 RMS BANDWIDTH 8.343 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 14 PROFILE 159 MAX WAVEFRONT 10 AVG WAVEFRONT 5.300 RMS WAVEFRONT 5.913 RMS BANDWIDTH 6.348 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 18 14 PROFILE (P) 206 159 MAXIMUM WAVEFRONT (C-MAX) 16 10 AVERAGE WAVEFRONT (C-AVG) 6.867 5.300 RMS WAVEFRONT (C-RMS) 8.091 5.913 RMS BANDWITCH (B-RMS) 8.343 6.348 NUMBER OF GRID POINTS (N) 30 NUMBER OF ELEMENTS (NON-RIGID) 16 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 2 MAXIMUM NODAL DEGREE 17 MINIMUM NODAL DEGREE 2 NUMBER OF UNIQUE EDGES 112 MATRIX DENSITY, PERCENT 28.222 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS NO. OF SEQGP CARDS GENERATED 8 (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T16-01-1A 0 S Y S T E M G E N E R A T E D S E Q G P C A R D S SEQGP 1 4 2 2 3 1 4 7 SEQGP 5 5 6 3 7 10 8 8 SEQGP 9 6 10 12 11 11 12 9 SEQGP 101 23 103 24 104 25 105 19 SEQGP 107 20 108 26 113 13 115 14 SEQGP 116 15 117 17 119 18 120 16 SEQGP 121 30 123 29 124 28 125 21 SEQGP 127 22 128 27 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) SIGN = 0.100000E+01 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) CSIGN = ( 0.100000E+01, 0.000000E+00) (OUTPUT) 0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T16-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 PAPER SIZE = 10.0 X 10.0, PAPER TYPE = VELLUM PEN 1 - SIZE 1, BLACK PEN 2 - SIZE 1, BLACK PEN 3 - SIZE 1, BLACK PEN 4 - SIZE 1, BLACK PEN 5 - SIZE 1, BLACK PEN 6 - SIZE 1, BLACK PEN 7 - SIZE 1, BLACK PEN 8 - SIZE 1, BLACK E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 7.574033E-01 ORIGIN 1 - X0 = -4.301828E+00, Y0 = -0.612309E+00 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 1 UNDEFORMED SHAPE ORIGIN 1 USED IN THIS PLOT 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T16-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 PAPER SIZE = 10.0 X 10.0, PAPER TYPE = VELLUM PEN 1 - SIZE 1, BLACK PEN 2 - SIZE 1, BLACK PEN 3 - SIZE 1, BLACK PEN 4 - SIZE 1, BLACK PEN 5 - SIZE 1, BLACK PEN 6 - SIZE 1, BLACK PEN 7 - SIZE 1, BLACK PEN 8 - SIZE 1, BLACK E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Y,+Z,+X, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 7.721819E-01 ORIGIN 1 - X0 = -4.301828E+00, Y0 = -0.612309E+00 (INCHES) ORIGIN 2 - X0 = 2.823151E-02, Y0 = -0.474000E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 2 UNDEFORMED SHAPE ORIGIN 2 USED IN THIS PLOT 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T16-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 PAPER SIZE = 10.0 X 10.0, PAPER TYPE = VELLUM PEN 1 - SIZE 1, BLACK PEN 2 - SIZE 1, BLACK PEN 3 - SIZE 1, BLACK PEN 4 - SIZE 1, BLACK PEN 5 - SIZE 1, BLACK PEN 6 - SIZE 1, BLACK PEN 7 - SIZE 1, BLACK PEN 8 - SIZE 1, BLACK E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.227927E+00 ORIGIN 1 - X0 = -4.301828E+00, Y0 = -0.612309E+00 (INCHES) ORIGIN 2 - X0 = 2.823151E-02, Y0 = -0.474000E+01 (INCHES) ORIGIN 3 - X0 = -4.180000E+00, Y0 = -0.509836E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 3 UNDEFORMED SHAPE ORIGIN 3 USED IN THIS PLOT 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T16-01-1A 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION HEXA1 ELEMENTS (ELEMENT TYPE 41) STARTING WITH ID 201 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION TRIA2 ELEMENTS (ELEMENT TYPE 17) STARTING WITH ID 1 1 ALG MODULE - COMPRESSOR DESIGN - CONTROL SECTION ************************************************ TITLE = NASA LEWIS EXPERIMENTAL FAN NUMBER OF ANALYTIC MEALINE BLADEROWS = 1 THERE WILL BE AN ENTRY TO THE AERODYNAMIC SECTION 1 PROGRAM ALG - COMPRESSOR DESIGN - ANALYTIC MEANLINE BLADE SECTION ***************************************************************** TITLE =GRID GENERATION NUMBER OF STREAMSURFACES = 4 NUMBER OF STATIONS = 5 NUMBER OF CONSTANT-Z PLANES = 3 NUMBER OF BLADE DATA POINTS = 4 NUMBER OF POINTS ON SURFACES = 30 NUMBER OF BLADES IN BLADE ROW = 43 ISTAK = 2 IPUNCH = 0 ISECN = 2 IFCORD = 1 IFPLOT = 0 IPRINT = 3 ISPLIT = 0 INAST = 0 IRLE = 2 IRTE = 4 NSIGN = 1 ZINNER = 4.3840 ZOUTER = 10.0000 SCALE = 1.0000 STACKX = 0.0000 PLTSZE = 11.0000 STREAMSURFACE GEOMETRY SPECIFICATION COMPUTING STATION 1 NUMBER OF DESCRIBING POINTS= 2 IFANGS( 1)= 0 DESCRIPTION STREAMLINE RADII X R NUMBER -2.0000 3.6000 1 3.6000 -2.0000 10.0400 2 5.5000 3 7.4000 4 10.0400 COMPUTING STATION 2 NUMBER OF DESCRIBING POINTS= 4 IFANGS( 2)= 1 DESCRIPTION STREAMLINE RADII X R NUMBER -0.8981 3.7896 1 3.7896 -0.7653 5.4768 2 5.4768 -0.6386 7.3636 3 7.3636 -0.4058 9.9554 4 9.9554 1 COMPUTING STATION 3 NUMBER OF DESCRIBING POINTS= 4 IFANGS( 3)= 1 DESCRIPTION STREAMLINE RADII X R NUMBER -0.0001 3.9990 1 3.9990 -0.0005 5.4986 2 5.4986 -0.0091 7.3976 3 7.3976 -0.0106 9.9971 4 9.9971 COMPUTING STATION 4 NUMBER OF DESCRIBING POINTS= 4 IFANGS( 4)= 1 DESCRIPTION STREAMLINE RADII X R NUMBER 0.8979 4.1920 1 4.1920 0.7799 5.4938 2 5.4938 0.6240 7.3671 3 7.3671 0.4140 9.9637 4 9.9637 COMPUTING STATION 5 NUMBER OF DESCRIBING POINTS= 2 IFANGS( 5)= 0 DESCRIPTION STREAMLINE RADII X R NUMBER 2.0000 4.4000 1 4.4000 2.0000 10.0400 2 5.5000 3 7.4000 4 10.0400 SECTION GEOMETRY SPECIFICATION STREAMLINE INLET OUTLET Y2 LE/ Y2 TE/ LE RADIUS MAX THICK TE THICK POINT OF CHORD OR X STACK Y STACK NUMBER ANGLE ANGLE MAX VALUE MAX VALUE /CHORD /CHORD /2*CHORD MAX THICK AXIAL CD OFFSET OFFSET 1.00 -38.176 32.925 0.0000 0.0000 0.01615 0.09800 0.01559 0.5600 1.7960 0.047149 -0.022256 2.00 -43.735 -4.682 0.0000 0.0000 0.01243 0.07348 0.01351 0.5400 1.8516 0.006760 -0.027221 3.00 -52.407 -40.078 0.0000 0.0000 0.00912 0.03600 0.00966 0.4900 1.8640 -0.008344 0.013194 4.00 -72.494 -59.207 0.0000 0.0000 0.00482 0.02681 0.00429 0.4800 1.8624 -0.037304 0.049806 VOLUME OF BLADE SECTION = 8.4467E-01 ************************************ 1 BLADE CALCULATIONS FOR AERODYNAMIC ANALYSIS ******************************************* 1 STATION 2 NUMBER OF RADII= 4 RADIUS SECTION LEAN BLADE THETA ANGLE ANGLE BLOCKAGE 3.7896 -40.5049 -2.9529 0.1209 0.0728 5.4768 -43.2928 -1.9341 0.0870 0.0883 7.3636 -53.0617 -2.2474 0.0446 0.0982 9.9554 -75.0004 -3.9009 0.0113 0.1143 STATION 3 NUMBER OF RADII= 4 RADIUS SECTION LEAN BLADE THETA ANGLE ANGLE BLOCKAGE 3.9990 -1.3396 -2.7271 0.3004 -0.0135 5.4986 -23.6791 -0.7973 0.1846 -0.0038 7.3976 -46.3129 -0.3165 0.0898 -0.0021 9.9971 -66.4815 -1.3922 0.0849 0.0024 STATION 4 NUMBER OF RADII= 4 RADIUS SECTION LEAN BLADE THETA ANGLE ANGLE BLOCKAGE 4.1920 40.2985 27.1254 0.0642 0.0588 5.4938 -6.6219 13.8416 0.0772 -0.0420 7.3671 -40.7223 3.2420 0.0462 -0.0832 9.9637 -59.9504 -3.8430 0.0308 -0.0817 1 DATA INTERFACING ROUTINE - DEVIATION CALCULATIONS AND DATA FORMATTING ********************************************************************* INPUT ***** NRAD = 1 NDPTS = 5 NDATR = 1 NSWITCH = 2 NLE = 2 NTE = 4 XKSHPE = 1.0000 SPEED = 16042.8 AT LEADING EDGE (STATION,I3,9H) NOUT1 = 2 NOUT2 = 0 NOUT3 = 0 ***** NRAD = 10 NDPTS = STATION 3 NR = 1 NTERP = 0 NMACH = 0 NLOSS = 4 NL1 = -1 NL2 = -1 NEVAL = 0NCURVE = 1 NLITER = 0 NDEL = 0 NOUT1 = 0 NOUT2 = 0 NOUT3 = 0 NBLAD =-43 RADIUS LOSS DESCRIPTOR 0.0000 0.000000 STATION 4 NR = 8 NTERP = 0 NMACH = 0 NLOSS = 1 NL1 = -2 NL2 = -2 NEVAL =-1NCURVE = 0 NLITER = 0 NDEL = 2 NOUT1 = 0 NOUT2 = 0 NOUT3 =20 NBLAD =-43 RADIUS LOSS DESCRIPTOR 4.2000 0.050000 4.6200 0.050000 5.5000 0.050000 6.5000 0.050000 7.4000 0.050000 8.4000 0.050000 9.5000 0.050000 10.0000 0.050000 DEVIATION FRACTION CURVES AT 1 RADII RTE = 0.0000 DM DVFRAC 0.00000 0.00000 0.25000 0.25000 0.50000 0.50000 0.75000 0.75000 1.00000 1.00000 RDTE DELTAD AC 0.0000 0.000 0.5000 RESULTS ******* STREAMLINE BETA1 BETA2 CAMBER T/C A/C SOLIDITY ADDIT. DEVN TOTAL DEVIATION 1 38.176 -32.925 71.100 0.0980 0.5000 3.07990 0.0000 -8.7872 2 43.735 4.682 39.053 0.0735 0.5000 2.31013 0.0000 -6.5329 3 52.407 40.078 12.328 0.0360 0.5000 1.73195 0.0000 -2.9851 4 72.494 59.207 13.287 0.0268 0.5000 1.27972 0.0000 -4.8564 T 1 PROGRAM ALG - COMPRESSOR DESIGN - AERODYNAMIC SECTION ***************************************************** INPUT DATA ********** TITLE = AERODYNAMIC ANALYSIS OF NASA LEWIS BLADE SPECIFIC HEAT AT CONSTANT PRESSURE = 0.24000 GAS CONSTANT = 53.3200 GRAVITATIONAL CONSTANT = 32.1740 JOULES EQUIVALENT = 778.160 NUMBER OF STATIONS = 7 NUMBER OF STREAMLINES = 4 MAX NUMBER OF PASSES = 40 MAX NUMBER OF ARBITRARY PASSES = 40 BOUNDARY LAYER CALC INDICATOR = 0 NUMBER OF RUNNING POINTS = 1 STREAMLINE DISTRIBUTION INDICATOR = 0 NUMBER OF LOSS/D-FACTOR CURVE SETS = 1 NUMBER OF LOSS/T.E.LOSS CURVE SETS = 1 STREAMLINE INPUT INDICATOR = 0 STREAMLINE OUTPUT INDICATOR = 0 PRECISION PLOT INDICATOR = 0 MAX NUMBER OF LINES/PAGE = 60 WAKE TRANSPORT CALC INDICATOR = 0 MAINSTREAM MIXING CALC INDICATOR = 0 NO OF STATIONS FROM ANALYTIC SECN = 3 LINE-PRINTER PLOT INDICATOR = 0 MOMENTUM EQUATION FORM INDICATOR = 0 STATION NUMBER AT LEADING EDGE = 3 STATION NUMBER AT TRAILING EDGE = 5 COMPRESSOR DIR. OF ROTATION INDICATOR = 1 GEOMETRY COMES FROM ANALYTIC SECTION FOR STATIONS 3 4 5 GRAVITATIONAL CONSTANT = 32.1740 JOULES EQUIVALENT = 778.160 LINEAR DIMENSION SCALE FACTOR = 12.0000 BASIC TOLERANCE = 0.00100 KINEMATIC VISCOSITY = 0.00018 B.L. SHAPE FACTOR = 0.70000 PLOTTING SCALE FOR DIMENSIONS = 1.000 PLOTTING SCALE FOR PRESSURES = 1.000 MINIMUM RADIUS ON PLOT = 4.000 MINIMUM PRESSURE ON PLOT = 0.000 MAXIMUM M-SQUARED IN RELAXATION FACTOR = 0.7000 CONSTANT IN RELAXATION FACTOR = 8.0000 WAKE TRANSFER CONSTANT = 0.00000 TURBULENT MIXING CONSTANT = 0.00000 POINTS TO BE COMPUTED NO FLOWRATE SPEED FACTOR 1 73.146 1.000 1 ANNULUS / COMPUTING STATION GEOMETRY STATION 1 SPECIFIED BY 2 POINTS XSTN RSTN -4.0000 3.2500 -4.0000 10.0400 STATION 2 SPECIFIED BY 2 POINTS XSTN RSTN -2.0000 3.6000 -2.0000 10.0400 STATION 3 SPECIFIED BY 4 POINTS XSTN RSTN -0.8981 3.7896 -0.7653 5.4768 -0.6386 7.3636 -0.4058 9.9554 STATION 4 SPECIFIED BY 4 POINTS XSTN RSTN -0.0001 3.9990 -0.0005 5.4986 -0.0091 7.3976 -0.0106 9.9971 STATION 5 SPECIFIED BY 4 POINTS XSTN RSTN 0.8979 4.1920 0.7799 5.4938 0.6240 7.3671 0.4140 9.9637 STATION 6 SPECIFIED BY 2 POINTS XSTN RSTN 2.0000 4.4000 2.0000 10.0400 STATION 7 SPECIFIED BY 2 POINTS XSTN RSTN 4.0000 4.7500 4.0000 10.0400 1 STATION CALCULATION DATA STATION 1 NDATA= 1 NTERP= 0 NDIMEN= 0 NMACH= 0 DATAC TOTAL PRESSURE TOTAL TEMPERATURE WHIRL ANGLE 3.2500 14.7000 518.700 0.000 STATION 2 NDATA= 0 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1= 0 NL2= 0 NEVAL= 0 NCURVE= 0 NLITER= 0 NDEL= 0 NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE= 0 STATION 3 NDATA= 4 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1= 0 NL2= 0 NEVAL= 0 NCURVE= 0 NLITER= 0 NDEL= 0 NOUT1= 0 NOUT2= 0 NOUT3=10 NBLADE= 0 SPEED = 0.00 DATAC DATA1 DATA2 DATA3 DATA4 DATA5 DATA6 DATA7 DATA8 DATA9 3.7896 -40.505 0.000000 -2.9417 0.00000 0.00000 0.0000 0.0000 0.0000 0.0000 5.4768 -43.293 0.000000 -1.9294 0.00000 0.00000 0.0000 0.0000 0.0000 0.0000 7.3636 -53.062 0.000000 -2.2416 0.00000 0.00000 0.0000 0.0000 0.0000 0.0000 9.9554 -75.000 0.000000 -3.8787 0.00000 0.00000 0.0000 0.0000 0.0000 0.0000 STATION 4 NDATA= 4 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 6 NLOSS= 4 NL1= -1 NL2= -1 NEVAL= 0 NCURVE= 1 NLITER= 0 NDEL= 0 NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE=-43 SPEED = 16042.80 DATAC DATA1 DATA2 DATA3 DATA4 DATA5 DATA6 DATA7 DATA8 DATA9 3.9990 -1.340 0.000000 -2.7271 0.30043 3.07990 -4.4022 0.0000 0.0000 0.0000 5.4986 -23.679 0.000000 -0.7973 0.18458 2.31013 -3.2343 0.0000 0.0000 0.0000 7.3976 -46.313 0.000000 -0.3165 0.08978 1.73195 -1.4885 0.0000 0.0000 0.0000 9.9971 -66.481 0.000000 -1.3922 0.08494 1.27972 -2.3440 0.0000 0.0000 0.0000 STATION 5 NDATA= 4 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 6 NLOSS= 1 NL1= -2 NL2= -2 NEVAL=-1 NCURVE= 0 NLITER= 0 NDEL= 2 NOUT1= 0 NOUT2= 0 NOUT3=20 NBLADE=-43 SPEED = 16042.80 DATAC DATA1 DATA2 DATA3 DATA4 DATA5 DATA6 DATA7 DATA8 DATA9 4.1920 40.299 0.050000 27.0223 0.06421 3.07990 -8.7872 0.0000 0.0000 0.0000 5.4938 -6.622 0.050000 13.7916 0.07720 2.31013 -6.5329 0.0000 0.0000 0.0000 7.3671 -40.722 0.050000 3.2314 0.04618 1.73195 -2.9851 0.0000 0.0000 0.0000 9.9637 -59.950 0.050000 -3.8306 0.03080 1.27972 -4.8564 0.0000 0.0000 0.0000 DELC DELTA 4.0000 0.0000 10.0000 1.0000 STATION 6 NDATA= 0 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1= 0 NL2= 0 NEVAL= 0 NCURVE= 0 NLITER= 0 NDEL= 0 NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE= 0 STATION 7 NDATA= 0 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1= 0 NL2= 0 NEVAL= 0 NCURVE= 0 NLITER= 0 NDEL= 0 NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE= 0 1 BLOCKAGE FACTOR SPECIFICATIONS STATION WALL BLOCKAGE WAKE BLOCKAGE WAKE DISTRIBUTION FACTOR 1 0.00000 0.00000 0.000 2 0.00000 0.00000 0.000 3 0.00000 0.00000 0.000 4 0.00000 0.00000 0.000 5 0.00000 0.00000 0.000 6 0.00000 0.00000 0.000 7 0.00000 0.00000 0.000 LOSS PARAMETER / DIFFUSION FACTOR CURVES FOR BLADE TYPE 1 6 D-FACTORS GIVEN DIFFUSION L O S S P A R A M E T E R S FACTORS HUB MID TIP 0.000 0.00600 0.00600 0.00600 0.200 0.00700 0.00700 0.00700 0.400 0.01400 0.01400 0.01400 0.600 0.03000 0.03100 0.03100 0.800 0.06000 0.06000 0.06000 1.000 0.12500 0.12500 0.12500 FRACTIONAL LOSS DISTRIBUTION CURVES FOR BLADE CLASS 1 2 POINTS GIVEN AT 1 RADIAL LOCATIONS FRACTION OF COMPUTING STATION LENGTH AT BLADE EXIT = 0.0000 FRACTION OF MERIDIONAL CHORD LOSS/LOSS AT TRAILING EDGE 0.0000 0.0000 1.0000 0.0000 1 OUTPUT FOR POINT NO. 1 ********************** STATION 1 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 3.2500 -4.0000 0.0000 550.42 0.00 542.18 94.88 550.42 0.00 9.926 0.000 2 5.5263 -4.0000 2.2763 551.12 0.00 548.52 53.45 551.12 0.00 5.566 0.000 3 7.7854 -4.0000 4.5354 552.76 0.00 552.27 23.18 552.76 0.00 2.403 0.000 4 10.0400 -4.0000 6.7900 553.33 0.00 553.33 0.00 553.33 0.00 0.000 0.000 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.5057 14.7000 12.3461 518.700 493.490 0.067565 124.488 118.438 0.975611 0.000 9.926 2 0.5063 14.7000 12.3404 518.700 493.426 0.067543 124.488 118.422 0.975611 0.000 5.566 3 0.5079 14.7000 12.3272 518.700 493.275 0.067491 124.488 118.386 0.975611 0.000 2.403 4 0.5085 14.7000 12.3227 518.700 493.223 0.067474 124.488 118.373 0.975611 0.000 0.000 STATION 2 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 3.6000 -2.0000 0.0000 552.89 0.00 544.75 94.53 552.89 -549.50 9.844 0.000 2 5.7212 -2.0000 2.1212 565.03 0.00 561.19 65.74 565.03 42.18 6.681 0.000 3 7.8694 -2.0000 4.2694 586.32 0.00 585.67 27.56 586.32 167.94 2.694 0.000 4 10.0400 -2.0000 6.4400 572.12 0.00 571.92 -15.16 572.12 -33.92 -1.519 0.000 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.5080 14.7000 12.3262 518.700 493.263 0.067488 124.488 118.383 0.975611 0.000 9.844 2 0.5198 14.7000 12.2277 518.700 492.134 0.067102 124.488 118.112 0.975611 0.000 6.681 3 0.5405 14.7000 12.0511 518.700 490.094 0.066408 124.488 117.623 0.975611 0.000 2.694 4 0.5267 14.7000 12.1694 518.700 491.463 0.066873 124.488 117.951 0.975611 0.000 -1.519 STATION 3 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 3.7896 -0.8981 0.0000 502.55 0.00 492.55 99.71 502.55 17.38 11.444 4.564 2 5.8942 -0.7369 2.1108 599.86 0.00 588.62 115.60 599.86 8.79 11.111 4.010 3 7.9427 -0.5929 4.1645 627.24 0.00 627.00 17.33 627.24 -20.34 1.583 4.583 4 9.9554 -0.4058 6.1857 674.58 0.00 674.35 17.55 674.58 6.31 1.491 5.674 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.4597 14.7000 12.7176 518.700 497.685 0.069012 124.488 119.444 0.975611 0.000 16.008 2 0.5537 14.7000 11.9364 518.700 488.758 0.065955 124.488 117.302 0.975611 0.000 15.121 3 0.5807 14.7000 11.6989 518.700 485.962 0.065015 124.488 116.631 0.975611 0.000 6.166 4 0.6278 14.7000 11.2722 518.700 480.834 0.063312 124.488 115.400 0.975611 0.000 7.165 1 STATION 3 IS AT THE LEADING EDGE OF A BLADE ROATING AT 16042.8 RPM NUMBER OF BLADES IN ROW = 43 *************************************************************************************************** STREAM BLADE RELATIVE RELATIVE RELATIVE INCIDENCE BLADE LEAN PRESS DIFF -LINE SPEED VELOCITY MACH NO. FLOW ANGLE ANGLE ANGLE ANGLE ACROSS BLADE 1 530.54 730.77 0.6685 -46.552 7.424 -39.128 -2.942 2.3980 2 825.18 1020.18 0.9417 -53.985 10.325 -43.660 -1.867 4.9637 3 1111.98 1276.69 1.1819 -60.574 3.275 -57.299 -2.543 6.4029 4 1393.76 1548.42 1.4411 -64.173 -10.779 -74.952 -3.879 8.6056 STATION 4 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 3.9990 -0.0001 0.0000 607.39 505.51 592.70 132.79 790.23 -52.92 12.628 -0.007 2 6.0830 -0.0027 2.0840 532.40 495.76 526.06 81.93 727.48 -3.82 8.852 -0.202 3 7.9446 -0.0107 3.9456 573.55 364.85 569.51 67.89 679.76 2.54 6.797 -0.159 4 9.9971 -0.0106 5.9981 443.90 253.94 443.86 5.91 511.40 -2.24 0.763 0.080 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.7115 19.9311 14.2230 565.800 513.837 0.074754 135.792 123.321 0.975610 39.770 12.621 2 0.6360 22.9376 17.4715 588.957 544.920 0.086591 141.350 130.781 0.975610 42.959 8.650 3 0.5927 22.5681 17.7952 586.233 547.783 0.087734 140.696 131.468 0.975610 32.461 6.639 4 0.4426 21.4576 18.7580 577.849 556.086 0.091100 138.684 133.461 0.975611 29.772 0.843 STATION 4 IS WITHIN OR AT THE TRAILING EDGE OF A BLADE ROTATING AT 16042.8 RPM NUMBER OF BLADES IN ROW = 43 ************************************************************************************************************* STREAM BLADE RELATIVE RELATIVE RELATIVE DEVIATION BLADE LEAN PRESS DIFF LOSS DIFFUSION DELTA P -LINE SPEED VELOCITY MACH NO. FLOW ANGLE ANGLE ANGLE ANGLE ACROSS BLADE COEFF FACTOR ON Q 1 559.86 609.82 0.5490 -5.113 4.402 -0.710 -2.727 2.7835 -0.00001 0.2713 0.3389 2 851.62 640.38 0.5599 -33.754 2.626 -31.128 -0.423 3.6172 0.00000 0.4825 0.6017 3 1112.24 942.10 0.8215 -52.497 1.363 -51.134 -0.453 5.9956 0.00000 0.3502 0.3808 4 1399.59 1228.64 1.0633 -68.820 2.344 -66.476 -1.392 6.7137 0.00000 0.2691 0.2799 STREAM INLET THROUGH STATION 4 STATION 3 THROUGH STATION 4 MEAN VALUES INLET TO STA. 4 STA. 3 TO STA. 4 -LINE PRESSURE ISENTROPIC DELTA H PRESSURE ISENTROPIC DELTA H PRESSURE RATIO 1.5056 1.5056 RATIO EFFICIENCY ON H1 RATIO EFFICIENCY ON H1 ISEN EFFY 1.0017 1.0017 DELTA H ON H1 0.1237 0.1237 1 1.3559 1.0000 0.0908 1.3559 1.0000 0.0908 2 1.5604 1.0000 0.1354 1.5604 1.0000 0.1354 3 1.5352 1.0000 0.1302 1.5352 1.0000 0.1302 4 1.4597 1.0000 0.1140 1.4597 1.0000 0.1140 1 STATION 5 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 4.1920 0.8979 0.0000 506.48 855.21 496.47 100.19 993.93 -40.56 11.409 -5.199 2 6.1248 0.7258 1.9404 425.06 628.48 422.40 47.52 758.72 9.22 6.419 -4.869 3 8.0821 0.5661 3.9043 464.91 570.08 458.76 75.37 735.61 -7.13 9.329 -4.589 4 9.9637 0.4140 5.7920 441.26 457.71 441.21 -6.70 635.77 7.96 -0.870 -4.641 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.8895 24.4891 14.6461 602.228 520.023 0.076063 144.535 124.805 0.976473 59.364 6.210 2 0.6540 25.1538 18.8736 608.379 560.477 0.090943 146.011 134.514 0.977077 55.928 1.550 3 0.6228 27.6043 21.2536 626.046 581.018 0.098791 150.251 139.444 0.977578 50.802 4.741 4 0.5336 27.2435 22.4445 624.955 591.320 0.102508 149.989 141.917 0.978061 46.048 -5.510 STATION 5 IS WITHIN OR AT THE TRAILING EDGE OF A BLADE ROTATING AT 16042.8 RPM NUMBER OF BLADES IN ROW = 43 ************************************************************************************************************* STREAM BLADE RELATIVE RELATIVE RELATIVE DEVIATION BLADE LEAN PRESS DIFF LOSS DIFFUSION DELTA P -LINE SPEED VELOCITY MACH NO. FLOW ANGLE ANGLE ANGLE ANGLE ACROSS BLADE COEFF FACTOR ON Q 1 586.88 573.17 0.5130 27.914 8.787 36.701 27.022 0.0000 0.05000 0.3931 0.4342 2 857.47 482.82 0.4162 -28.305 5.161 -23.145 9.180 0.0000 0.05000 0.6690 0.7541 3 1131.50 728.93 0.6172 -50.370 2.764 -47.606 0.849 0.0000 0.05000 0.5644 0.5969 4 1394.92 1035.89 0.8694 -64.788 4.856 -59.932 -3.831 0.0000 0.05000 0.4462 0.4178 STREAM INLET THROUGH STATION 5 STATION 3 THROUGH STATION 5 MEAN VALUES INLET TO STA. 5 STA. 3 TO STA. 5 -LINE PRESSURE ISENTROPIC DELTA H PRESSURE ISENTROPIC DELTA H PRESSURE RATIO 1.8030 1.8030 RATIO EFFICIENCY ON H1 RATIO EFFICIENCY ON H1 ISEN EFFY 0.9545 0.9545 DELTA H ON H1 0.1920 0.1920 1 1.6659 0.9741 0.1610 1.6659 0.9741 0.1610 2 1.7111 0.9587 0.1729 1.7111 0.9587 0.1729 3 1.8778 0.9524 0.2070 1.8778 0.9524 0.2070 4 1.8533 0.9403 0.2048 1.8533 0.9403 0.2048 STATION 6 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 4.4000 2.0000 0.0000 431.07 814.78 424.11 77.13 921.78 -118.42 10.307 0.000 2 6.3393 2.0000 1.9393 394.07 607.19 389.91 57.06 723.86 -38.40 8.325 0.000 3 8.2137 2.0000 3.8137 465.65 560.94 464.20 36.71 729.03 -68.29 4.522 0.000 4 10.0400 2.0000 5.6400 424.52 454.23 424.40 10.20 621.73 -37.32 1.377 0.000 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.8160 24.4891 15.8125 602.228 531.525 0.080343 144.535 127.566 0.976473 62.118 10.307 2 0.6216 25.1538 19.3858 608.379 564.778 0.092700 146.011 135.547 0.977077 57.017 8.325 3 0.6168 27.6043 21.3566 626.046 581.820 0.099132 150.251 139.637 0.977578 50.303 4.522 4 0.5211 27.2435 22.6404 624.955 592.790 0.103147 149.989 142.270 0.978061 46.936 1.377 1 STATION 7 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 4.7500 4.0000 0.0000 405.12 754.74 399.05 69.83 856.59 0.00 9.926 0.000 2 6.5881 4.0000 1.8381 397.68 584.25 394.64 49.10 706.75 0.00 7.092 0.000 3 8.3466 4.0000 3.5966 491.97 552.01 490.89 32.60 739.42 0.00 3.800 0.000 4 10.0400 4.0000 5.2900 470.09 454.23 470.09 0.00 653.69 0.00 0.000 0.000 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.7515 24.4891 16.8407 602.228 541.171 0.084042 144.535 129.881 0.976473 61.775 9.926 2 0.6058 25.1538 19.6318 608.379 566.814 0.093539 146.011 136.035 0.977077 55.758 7.092 3 0.6263 27.6043 21.1937 626.046 580.550 0.098592 150.251 139.332 0.977578 48.292 3.800 4 0.5495 27.2435 22.1899 624.955 589.398 0.101676 149.989 141.455 0.978061 44.017 0.000 POINT NO 1 PASS 23 THE CALCULATION IS CONVERGED **************************************************** SPEED FACTOR = 1.000 FLOW = 73.146 TOTAL PRESSURE RATIO = 1.803 ISENTROPIC EFFICIENCY =0.9545 POWER = 0.2474E+04 DATA FOR NASTRAN PROGRAM FOR BLADE BETWEEN STATIONS 3 AND 5 ************************************************************* NAME CODE DELTA P ELEMENT MESHPOINTS - J I J I J I PLOAD2 60 -3.44058 1 2 3 2 4 1 3 PLOAD2 60 -3.44058 2 1 3 2 4 1 4 PLOAD2 60 -1.60015 3 1 4 2 4 2 5 PLOAD2 60 -1.60015 4 1 4 2 5 1 5 PLOAD2 60 -5.24484 5 3 3 3 4 2 3 PLOAD2 60 -5.24484 6 2 3 3 4 2 4 PLOAD2 60 -2.40318 7 2 4 3 4 3 5 PLOAD2 60 -2.40318 8 2 4 3 5 2 5 PLOAD2 60 -6.92945 9 4 3 4 4 3 3 PLOAD2 60 -6.92945 10 3 3 4 4 3 4 PLOAD2 60 -3.17732 11 3 4 4 4 4 5 PLOAD2 60 -3.17732 12 3 4 4 5 3 5 NAME CODE DELTA T NODE MESHPOINTS - J I COORDINATES - RADIAL AXIAL TEMP 70 542.12189 1 1 3 3.7896 -0.8981 TEMP 70 544.78180 2 1 4 3.9990 -0.0001 TEMP 70 547.36011 3 1 5 4.1920 0.8979 TEMP 70 575.36102 4 2 3 5.8942 -0.7369 TEMP 70 579.04382 5 2 4 6.0830 -0.0027 TEMP 70 579.87457 6 2 5 6.1248 0.7258 TEMP 70 621.59137 7 3 3 7.9427 -0.5929 TEMP 70 621.63770 8 3 4 7.9446 -0.0107 TEMP 70 625.23114 9 3 5 8.0821 0.5661 TEMP 70 680.34326 10 4 3 9.9554 -0.4058 TEMP 70 681.69922 11 4 4 9.9971 -0.0106 TEMP 70 680.61285 12 4 5 9.9637 0.4140 1 LOSS COEFFICIENT DETERMINATION FOR BLADE BETWEEN STATIONS 3 AND 5 - FOR PURPOSES OF COMPARISON ONLY BLADE TYPE 1 ******************************************************************************************************************** STREAM INLET OUTLET CASCADE DIFF LOSS DIFFUSION BLADE INCIDENCE EXPANSION INLET EXPANDED SHOCK TOTAL -LINE RADIUS RADIUS SOLIDITY FACTOR PARAMETER LOSS ANGLE ANGLE ANGLE M.NO MACH NO LOSS LOSS 1 3.790 4.192 3.0799 0.3931 0.01362 0.09492 39.128 7.424 7.389 0.6685 1.3439 0.00000 0.09492 2 5.894 6.125 2.0533 0.6691 0.03797 0.17708 43.660 10.325 10.640 0.9417 1.4568 0.00859 0.18568 3 7.943 8.082 1.5933 0.5644 0.02757 0.13772 57.299 3.275 3.932 1.1819 1.3318 0.02403 0.16175 4 9.955 9.964 1.2797 0.4462 0.01235 0.07423 74.952 -10.779 -9.786 1.4411 1.0433 0.01695 0.09118 S 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 2.8488775E-13 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 2.8488775E-13 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T16-01-1A 0 LINEAR SOLUTION OF ROTOR BLADE SUBCASE 1 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.371943E-04 -2.571315E-03 2.055175E-03 -7.896196E-03 2.686234E-03 1.609007E-03 2 G 2.371943E-04 -2.571315E-03 2.055175E-03 -7.896196E-03 2.686234E-03 1.609007E-03 3 G 2.371943E-04 -2.571315E-03 2.055175E-03 -7.896196E-03 2.686234E-03 1.609007E-03 4 G -1.293761E-02 2.308500E-02 8.461602E-03 3.845698E-03 -5.576077E-02 -2.211289E-02 5 G -4.484548E-03 9.902098E-03 4.937272E-03 -6.525645E-03 -1.706340E-02 -2.133496E-02 6 G -4.780743E-04 -6.448696E-03 4.768807E-03 7.375842E-03 -2.001781E-02 -1.930346E-02 7 G -4.479888E-02 6.133479E-02 1.769185E-02 0.0 0.0 -4.292752E-02 8 G -1.553452E-02 3.684483E-02 8.262632E-03 -3.804120E-02 3.854744E-02 -3.832487E-02 9 G 4.731231E-03 1.429906E-02 3.237346E-03 -2.495888E-02 2.401703E-02 -4.016322E-02 10 G -2.190807E-01 1.771158E-01 5.405806E-02 0.0 0.0 -1.271521E-01 11 G -1.002480E-01 1.386206E-01 1.233967E-02 -3.716482E-01 1.738767E-01 -6.244718E-02 12 G -5.243494E-02 1.124633E-01 -6.725857E-03 0.0 0.0 -6.203281E-02 101 G 1.651108E-03 1.229301E-03 7.209944E-05 0.0 0.0 0.0 103 G 1.596765E-03 1.035506E-03 -6.043270E-05 0.0 0.0 0.0 104 G 1.593915E-03 1.034726E-03 -6.020584E-05 0.0 0.0 0.0 105 G 1.596765E-03 1.035506E-03 -6.043270E-05 0.0 0.0 0.0 107 G 1.651108E-03 1.229301E-03 7.209944E-05 0.0 0.0 0.0 108 G 1.646498E-03 1.230764E-03 7.278186E-05 0.0 0.0 0.0 113 G 2.018571E-03 2.590036E-03 2.721413E-04 0.0 0.0 0.0 115 G 2.011381E-03 2.553835E-03 2.041986E-04 0.0 0.0 0.0 116 G 2.371943E-04 -2.571315E-03 2.055175E-03 0.0 0.0 0.0 117 G 2.011381E-03 2.553835E-03 2.041986E-04 0.0 0.0 0.0 119 G 2.018571E-03 2.590036E-03 2.721413E-04 0.0 0.0 0.0 120 G 2.371943E-04 -2.571315E-03 2.055175E-03 0.0 0.0 0.0 121 G 1.292840E-03 0.0 0.0 0.0 0.0 0.0 123 G 1.336822E-03 0.0 0.0 0.0 0.0 0.0 124 G 1.337291E-03 0.0 0.0 0.0 0.0 0.0 125 G 1.336822E-03 0.0 0.0 0.0 0.0 0.0 127 G 1.292840E-03 0.0 0.0 0.0 0.0 0.0 128 G 1.293340E-03 0.0 0.0 0.0 0.0 0.0 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T16-01-1A 0 LINEAR SOLUTION OF ROTOR BLADE SUBCASE 1 L O A D V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G -7.769096E-01 -2.790255E+01 4.035773E+02 0.0 0.0 0.0 2 G -2.432294E-01 9.106059E+00 5.703327E+02 0.0 0.0 0.0 3 G 1.281644E-01 -1.151588E+01 2.008776E+02 0.0 0.0 0.0 4 G -2.547371E+00 -6.569169E+01 7.764784E+02 0.0 0.0 0.0 5 G -2.308450E+00 9.780025E+00 1.482236E+03 0.0 0.0 0.0 6 G -1.128254E-01 3.085966E+01 7.052322E+02 0.0 0.0 0.0 7 G -6.777714E+00 -8.679458E+01 9.231949E+02 0.0 0.0 0.0 8 G -6.703007E+00 9.700793E+00 1.713796E+03 0.0 0.0 0.0 9 G -1.435108E+00 6.935728E+01 8.083008E+02 0.0 0.0 0.0 10 G -3.340151E+00 -4.960236E+01 4.426302E+02 0.0 0.0 0.0 11 G -6.707185E+00 8.643217E-01 1.165815E+03 0.0 0.0 0.0 12 G -1.974893E+00 5.687598E+01 6.765903E+02 0.0 0.0 0.0 101 G 9.188749E+02 0.0 0.0 0.0 0.0 0.0 103 G 5.368098E+02 0.0 0.0 0.0 0.0 0.0 104 G 1.556247E+03 0.0 0.0 0.0 0.0 0.0 105 G 1.019437E+03 0.0 0.0 0.0 0.0 0.0 107 G 4.979494E+02 0.0 0.0 0.0 0.0 0.0 108 G 1.416824E+03 0.0 0.0 0.0 0.0 0.0 113 G 3.151685E+02 0.0 0.0 0.0 0.0 0.0 115 G 1.897285E+03 0.0 0.0 0.0 0.0 0.0 116 G 0.0 0.0 2.448729E+03 0.0 0.0 0.0 117 G 5.514448E+02 0.0 0.0 0.0 0.0 0.0 119 G 1.599306E+03 0.0 0.0 0.0 0.0 0.0 120 G 0.0 0.0 1.914474E+03 0.0 0.0 0.0 121 G 1.228344E+02 0.0 0.0 0.0 0.0 0.0 123 G 1.489151E+01 0.0 0.0 0.0 0.0 0.0 124 G 1.377259E+02 0.0 0.0 0.0 0.0 0.0 125 G 1.228344E+02 0.0 0.0 0.0 0.0 0.0 127 G 1.489151E+01 0.0 0.0 0.0 0.0 0.0 128 G 1.377259E+02 0.0 0.0 0.0 0.0 0.0 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T16-01-1A 0 LINEAR SOLUTION OF ROTOR BLADE SUBCASE 1 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 7 G 0.0 0.0 0.0 6.560349E+01 9.106416E+01 0.0 10 G 0.0 0.0 0.0 1.177212E+01 3.446471E+01 0.0 12 G 0.0 0.0 0.0 1.519033E+01 1.976282E+01 0.0 121 G 0.0 3.451989E+04 -4.136795E+03 0.0 0.0 0.0 123 G 0.0 3.069054E+04 4.850128E+02 0.0 0.0 0.0 124 G 0.0 -4.283654E+03 4.672586E+03 0.0 0.0 0.0 125 G 0.0 -3.494323E+04 4.171536E+03 0.0 0.0 0.0 127 G 0.0 -3.182705E+04 -5.218942E+02 0.0 0.0 0.0 128 G 0.0 2.893779E+03 -4.637647E+03 0.0 0.0 0.0 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T16-01-1A 0 LINEAR SOLUTION OF ROTOR BLADE SUBCASE 1 F O R C E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 1 -6.355762E-01 -1.779275E+01 -3.299377E+01 -2.178152E+01 -3.757886E+01 2 -3.608165E+01 -3.429106E+01 2.291082E+01 3.575367E+01 -5.893926E+01 3 1.998121E+01 -3.333047E+01 -2.005319E+01 1.690300E+01 -7.382812E+01 4 -3.109536E+00 4.245105E+01 1.952424E+01 -9.788776E+01 1.624521E+01 5 2.400486E+01 2.101974E+00 5.268095E+00 -1.215512E+01 -1.258337E+01 6 8.546276E+00 1.669231E+00 7.166742E+00 -4.821418E+01 6.428040E+00 7 1.155983E+01 -2.146726E-01 3.078034E+00 -2.596338E+01 2.256946E+01 8 2.733558E+00 -8.758196E+00 8.158541E+00 -8.003098E+00 2.853275E+00 9 1.019639E+01 -3.288830E+00 1.076181E+00 -3.882318E+01 -4.954895E+00 10 -2.622091E+00 -9.004877E+00 4.800928E-01 -1.730677E+01 5.554525E+00 11 4.936108E+00 -1.081648E+00 1.543539E-01 -2.954523E+01 6.153748E+00 12 -8.198018E-01 -5.932956E+00 9.209311E-01 -2.891270E+00 -2.441933E+01 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T16-01-1A 0 LINEAR SOLUTION OF ROTOR BLADE SUBCASE 1 S T R E S S E S I N S O L I D H E X A H E D R O N E L E M E N T S ( C H E X A 1 ) OCTAHEDRAL PRESSURE ELEMENT-ID SIGMA-XX SIGMA-YY SIGMA-ZZ TAU-YZ TAU-XZ TAU-XY TAU-0 P 201 8.287742E+03 1.875773E+04 1.485760E+04 -7.947812E+02 8.709683E+02 1.781391E+03 4.659238E+03 -1.396769E+04 202 8.260719E+03 1.855280E+04 1.515611E+04 -2.901188E+03 8.740757E+02 1.800806E+03 5.159172E+03 -1.398987E+04 203 1.327600E+04 2.930497E+04 1.894446E+04 -3.247031E+03 4.230859E+01 2.976045E+03 7.548438E+03 -2.050848E+04 204 1.333370E+04 2.892748E+04 1.950989E+04 -3.644160E+03 -1.792444E+02 2.925159E+03 7.462605E+03 -2.059036E+04 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T16-01-1A 0 LINEAR SOLUTION OF ROTOR BLADE SUBCASE 1 S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 -5.200000E-02 3.573060E+04 -8.091830E+03 -5.496211E+03 -7.0408 3.640942E+04 -8.770651E+03 2.259004E+04 5.200000E-02 3.643575E+04 1.164864E+04 3.110930E+04 34.1391 5.752934E+04 -9.444953E+03 3.348715E+04 0 2 -5.200000E-02 -2.174904E+03 4.044692E+04 1.686488E+04 70.8214 4.631283E+04 -8.040811E+03 2.717682E+04 5.200000E-02 3.785652E+04 7.849173E+04 -8.553924E+03 -78.5842 8.021896E+04 3.612929E+04 2.204484E+04 0 3 -5.200000E-02 4.735097E+04 1.216686E+03 1.493541E+04 16.4610 5.176399E+04 -3.196338E+03 2.748017E+04 5.200000E-02 2.518247E+04 3.819575E+04 3.718377E+04 49.9627 6.943788E+04 -6.059656E+03 3.774877E+04 0 4 -5.200000E-02 7.644768E+03 5.478148E+04 1.993912E+04 69.8842 6.208440E+04 3.418477E+02 3.087128E+04 5.200000E-02 1.109470E+04 7.683426E+03 -1.722392E+03 -22.6400 1.181307E+04 6.965051E+03 2.424010E+03 0 5 -3.535000E-02 6.080794E+04 7.711569E+03 1.811475E+04 17.1535 6.639930E+04 2.120211E+03 3.213954E+04 3.535000E-02 3.178871E+03 2.665306E+03 5.467500E+03 43.6555 8.395615E+03 -2.551439E+03 5.473527E+03 0 6 -3.535000E-02 1.501712E+04 5.840951E+04 -7.785205E+02 -88.9725 5.842348E+04 1.500316E+04 2.171016E+04 3.535000E-02 -5.500143E+03 5.440214E+04 -1.798390E+04 -74.5088 5.938654E+04 -1.048454E+04 3.493554E+04 0 7 -3.535000E-02 5.687447E+04 1.261691E+04 2.545638E+04 24.5001 6.847566E+04 1.015730E+03 3.372996E+04 3.535000E-02 2.912250E+04 1.313228E+04 1.806687E+04 33.0646 4.088424E+04 1.370529E+03 1.975686E+04 0 8 -3.535000E-02 -3.365845E+01 2.623749E+04 1.914178E+04 62.2295 3.631723E+04 -1.011340E+04 2.321532E+04 3.535000E-02 -6.596182E+03 4.726351E+04 -4.446377E+02 -89.5270 4.726718E+04 -6.599854E+03 2.693352E+04 0 9 -2.110000E-02 5.402859E+04 -8.064215E+03 1.040268E+04 9.2622 5.572505E+04 -9.760672E+03 3.274286E+04 2.110000E-02 -1.467871E+04 1.409721E+04 3.150947E+03 83.8237 1.443820E+04 -1.501970E+04 1.472895E+04 0 10 -2.110000E-02 -8.583666E+03 1.938633E+03 -5.565989E+03 -66.6936 4.336460E+03 -1.098149E+04 7.658977E+03 2.110000E-02 9.085018E+03 6.261704E+04 -8.801043E+03 -80.8992 6.402686E+04 7.675191E+03 2.817584E+04 0 11 -2.110000E-02 4.557097E+04 -3.791034E+03 8.232893E+03 9.2236 4.690789E+04 -5.127959E+03 2.601793E+04 2.110000E-02 1.230953E+04 3.497534E+03 7.192795E+03 29.2551 1.633853E+04 -5.314614E+02 8.434994E+03 0 12 -2.110000E-02 -8.815663E+03 6.549336E+03 8.409610E+03 66.2064 1.025729E+04 -1.252361E+04 1.139045E+04 2.110000E-02 -3.291516E+03 4.652793E+04 2.204014E+03 87.4718 4.662524E+04 -3.388830E+03 2.500704E+04 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T16-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 PAPER SIZE = 10.0 X 10.0, PAPER TYPE = VELLUM PEN 1 - SIZE 1, BLACK PEN 2 - SIZE 1, BLACK PEN 3 - SIZE 1, BLACK PEN 4 - SIZE 1, BLACK PEN 5 - SIZE 1, BLACK PEN 6 - SIZE 1, BLACK PEN 7 - SIZE 1, BLACK PEN 8 - SIZE 1, BLACK E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 7.864423E-01 ORIGIN 1 - X0 = -4.301828E+00, Y0 = -0.612309E+00 (INCHES) ORIGIN 2 - X0 = 2.823151E-02, Y0 = -0.474000E+01 (INCHES) ORIGIN 3 - X0 = -4.180000E+00, Y0 = -0.509836E+01 (INCHES) ORIGIN 4 - X0 = -4.282722E+00, Y0 = -0.932401E+00 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 4 STATIC DEFORM. 1 - SUBCASE 1 - LOAD ORIGIN 4 USED IN THIS PLOT 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T16-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 PAPER SIZE = 10.0 X 10.0, PAPER TYPE = VELLUM PEN 1 - SIZE 1, BLACK PEN 2 - SIZE 1, BLACK PEN 3 - SIZE 1, BLACK PEN 4 - SIZE 1, BLACK PEN 5 - SIZE 1, BLACK PEN 6 - SIZE 1, BLACK PEN 7 - SIZE 1, BLACK PEN 8 - SIZE 1, BLACK E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.227927E+00 ORIGIN 1 - X0 = -4.301828E+00, Y0 = -0.612309E+00 (INCHES) ORIGIN 2 - X0 = 2.823151E-02, Y0 = -0.474000E+01 (INCHES) ORIGIN 3 - X0 = -4.180000E+00, Y0 = -0.509836E+01 (INCHES) ORIGIN 4 - X0 = -4.282722E+00, Y0 = -0.932401E+00 (INCHES) ORIGIN 5 - X0 = -4.180000E+00, Y0 = -0.509836E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 5 STATIC DEFORM. 1 - SUBCASE 1 - LOAD ORIGIN 5 USED IN THIS PLOT 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T16-01-1A 0*** USER WARNING MESSAGE 3117, DIFFERENTIAL STIFFNESS CAPABILITY NOT DEFINED FOR HEXA1 ELEMENTS (ELEMENT TYPE 41). 0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = ADD (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37) 3RD PARM = 0.000000E+00 (INPUT) 4TH PARM = 0.000000E+00 (INPUT) DSEPSI = 0.000000E+00 (OUTPUT) 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 42 NASTRAN TEST PROBLEM NO. T16-01-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E DET 2.205816E+07 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 43 NASTRAN TEST PROBLEM NO. T16-01-1A 0 0 C O N T E N T S O F P A R A M E T E R T A B L E POWER 424 0*** USER INFORMATION MESSAGE - MODULE ALG ENTERED. FOR POINT NO. 1 PASS 28 - SPEED FACTOR = 1.0000 FLOW = 73.1460 TOTAL PRESSURE RATIO = 1.8340 ISENTROPIC EFFICIENCY = 0.9552 POWER =0.2550E+04 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = 6.2260848E-15 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = 6.2260848E-15 0*** USER WARNING MESSAGE 3117, DIFFERENTIAL STIFFNESS CAPABILITY NOT DEFINED FOR HEXA1 ELEMENTS (ELEMENT TYPE 41). 0*** USER INFORMATION MESSAGE 7019, MODULE DSCHK IS EXITING FOR REASON 0 ON ITERATION NUMBER 1. PARAMETER VALUES ARE AS FOLLOWS DONE = 1 SHIFT = 1 DSEPSI = 3.6338730E-05 0*** USER INFORMATION MESSAGE - MODULE ALG ENTERED. FOR POINT NO. 1 PASS 27 - SPEED FACTOR = 1.0000 FLOW = 73.1460 TOTAL PRESSURE RATIO = 1.8380 ISENTROPIC EFFICIENCY = 0.9556 POWER =0.2559E+04 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 1, EPSILON SUB E = -1.0648572E-14 0*** USER INFORMATION MESSAGE 3035 FOR SUBCASE NUMBER 2, EPSILON SUB E = -1.0648572E-14 0*** USER WARNING MESSAGE 3117, DIFFERENTIAL STIFFNESS CAPABILITY NOT DEFINED FOR HEXA1 ELEMENTS (ELEMENT TYPE 41). 0*** USER INFORMATION MESSAGE 7019, MODULE DSCHK IS EXITING FOR REASON 1 ON ITERATION NUMBER 2. PARAMETER VALUES ARE AS FOLLOWS DONE = -1 SHIFT = 1 DSEPSI = 5.5353121E-06 1 ALG MODULE - COMPRESSOR DESIGN - CONTROL SECTION ************************************************ TITLE = NASA LEWIS EXPERIMENTAL FAN NUMBER OF ANALYTIC MEALINE BLADEROWS = 1 THERE WILL BE AN ENTRY TO THE AERODYNAMIC SECTION 1 PROGRAM ALG - COMPRESSOR DESIGN - ANALYTIC MEANLINE BLADE SECTION ***************************************************************** TITLE =GRID GENERATION NUMBER OF STREAMSURFACES = 4 NUMBER OF STATIONS = 5 NUMBER OF CONSTANT-Z PLANES = 3 NUMBER OF BLADE DATA POINTS = 4 NUMBER OF POINTS ON SURFACES = 30 NUMBER OF BLADES IN BLADE ROW = 43 ISTAK = 2 IPUNCH = 0 ISECN = 2 IFCORD = 1 IFPLOT = 0 IPRINT = 3 ISPLIT = 0 INAST = -4 IRLE = 2 IRTE = 4 NSIGN = 1 ZINNER = 4.3840 ZOUTER = 10.0000 SCALE = 1.0000 STACKX = 0.0000 PLTSZE = 11.0000 STREAMSURFACE GEOMETRY SPECIFICATION COMPUTING STATION 1 NUMBER OF DESCRIBING POINTS= 2 IFANGS( 1)= 0 DESCRIPTION STREAMLINE RADII DELTA PRESSURE X R NUMBER -2.0000 3.6000 1 3.6000 0.0000 -2.0000 10.0400 2 5.5000 0.0000 3 7.4000 0.0000 4 10.0400 0.0000 COMPUTING STATION 2 NUMBER OF DESCRIBING POINTS= 4 IFANGS( 2)= 1 DESCRIPTION STREAMLINE RADII DELTA PRESSURE X R NUMBER -0.8979 3.7817 1 3.7817 0.0000 -0.7726 5.4620 2 5.4620 0.0000 -0.6646 7.3404 3 7.3404 0.0000 -0.5238 9.9195 4 9.9195 0.0000 1 COMPUTING STATION 3 NUMBER OF DESCRIBING POINTS= 4 IFANGS( 3)= 1 DESCRIPTION STREAMLINE RADII DELTA PRESSURE X R NUMBER 0.0001 4.0007 1 4.0007 0.0000 -0.0031 5.5034 2 5.5034 0.0000 -0.0157 7.4058 3 7.4058 0.0000 -0.0320 10.0081 4 10.0081 0.0000 COMPUTING STATION 4 NUMBER OF DESCRIBING POINTS= 4 IFANGS( 4)= 1 DESCRIPTION STREAMLINE RADII DELTA PRESSURE X R NUMBER 0.8981 4.1868 1 4.1868 0.0000 0.7797 5.4935 2 5.4935 0.0000 0.6303 7.3480 3 7.3480 0.0000 0.4130 9.9364 4 9.9364 0.0000 COMPUTING STATION 5 NUMBER OF DESCRIBING POINTS= 2 IFANGS( 5)= 0 DESCRIPTION STREAMLINE RADII DELTA PRESSURE X R NUMBER 2.0000 4.4000 1 4.4000 0.0000 2.0000 10.0400 2 5.5000 0.0000 3 7.4000 0.0000 4 10.0400 0.0000 SECTION GEOMETRY SPECIFICATION STREAMLINE INLET OUTLET Y2 LE/ Y2 TE/ LE RADIUS MAX THICK TE THICK POINT OF CHORD OR X STACK Y STACK NUMBER ANGLE ANGLE MAX VALUE MAX VALUE /CHORD /CHORD /2*CHORD MAX THICK AXIAL CD OFFSET OFFSET 1.00 -38.294 32.815 0.0000 0.0000 0.01615 0.09800 0.01559 0.5600 1.7960 0.047384 -0.024824 2.00 -43.100 -3.970 0.0000 0.0000 0.01243 0.07352 0.01351 0.5400 1.8504 0.004168 -0.022847 3.00 -50.878 -38.516 0.0000 0.0000 0.00912 0.03600 0.00966 0.4900 1.8642 -0.014945 0.026789 4.00 -66.635 -57.420 0.0000 0.0000 0.00480 0.02671 0.00427 0.4800 1.8696 -0.058721 0.087130 VOLUME OF BLADE SECTION = 8.4276E-01 ************************************ 1 BLADE CALCULATIONS FOR AERODYNAMIC ANALYSIS ******************************************* 1 STATION 2 NUMBER OF RADII= 4 RADIUS SECTION LEAN BLADE THETA ANGLE ANGLE BLOCKAGE 3.7817 -40.7055 -2.2749 0.1198 0.0745 5.4620 -42.9006 -1.6628 0.0837 0.0870 7.3404 -51.9243 -2.5492 0.0407 0.0966 9.9195 -69.5253 -5.1198 0.0216 0.1167 STATION 3 NUMBER OF RADII= 4 RADIUS SECTION LEAN BLADE THETA ANGLE ANGLE BLOCKAGE 4.0007 -1.3838 -2.4968 0.3003 -0.0129 5.5034 -23.1455 -0.6748 0.1837 -0.0041 7.4058 -44.8948 -0.6603 0.0874 -0.0022 10.0081 -62.9118 -2.7027 0.0730 0.0066 STATION 4 NUMBER OF RADII= 4 RADIUS SECTION LEAN BLADE THETA ANGLE ANGLE BLOCKAGE 4.1868 39.9356 26.6940 0.0650 0.0588 5.4935 -6.1910 13.7222 0.0782 -0.0409 7.3480 -39.5714 2.8497 0.0469 -0.0812 9.9364 -59.0052 -5.7217 0.0386 -0.0738 0 NASTRAN COMPRESSOR BLADE BULK DATA ************************************ 0 *** BLADE GRID POINT DATA *** GRID 1 -0.8979 -0.2814 3.7712 GRID 2 0.0001 0.0516 4.0003 GRID 3 0.8981 -0.2461 4.1795 GRID 4 -0.7726 -0.4744 5.4413 GRID 5 -0.0031 0.0228 5.5033 GRID 6 0.7797 0.2247 5.4889 GRID 7 -0.6646 -0.7082 7.3062 GRID 8 -0.0157 0.0164 7.4058 GRID 9 0.6303 0.5962 7.3237 GRID 10 -0.5238 -1.1552 9.8520 GRID 11 -0.0320 -0.0657 10.0079 GRID 12 0.4130 0.7329 9.9093 1 DATA INTERFACING ROUTINE - DEVIATION CALCULATIONS AND DATA FORMATTING ********************************************************************* INPUT ***** NRAD = 1 NDPTS = 5 NDATR = 1 NSWITCH = 2 NLE = 2 NTE = 4 XKSHPE = 1.0000 SPEED = 16042.8 AT LEADING EDGE (STATION,I3,9H) NOUT1 = 2 NOUT2 = 0 NOUT3 = 0 ***** NRAD = 10 NDPTS = STATION 3 NR = 1 NTERP = 0 NMACH = 0 NLOSS = 4 NL1 = -1 NL2 = -1 NEVAL = 0NCURVE = 1 NLITER = 0 NDEL = 0 NOUT1 = 0 NOUT2 = 0 NOUT3 = 0 NBLAD =-43 RADIUS LOSS DESCRIPTOR 0.0000 0.000000 STATION 4 NR = 8 NTERP = 0 NMACH = 0 NLOSS = 1 NL1 = -2 NL2 = -2 NEVAL =-1NCURVE = 0 NLITER = 0 NDEL = 2 NOUT1 = 0 NOUT2 = 0 NOUT3 =20 NBLAD =-43 RADIUS LOSS DESCRIPTOR 4.2000 0.050000 4.6200 0.050000 5.5000 0.050000 6.5000 0.050000 7.4000 0.050000 8.4000 0.050000 9.5000 0.050000 10.0000 0.050000 DEVIATION FRACTION CURVES AT 1 RADII RTE = 0.0000 DM DVFRAC 0.00000 0.00000 0.25000 0.25000 0.50000 0.50000 0.75000 0.75000 1.00000 1.00000 RDTE DELTAD AC 0.0000 0.000 0.5000 RESULTS ******* STREAMLINE BETA1 BETA2 CAMBER T/C A/C SOLIDITY ADDIT. DEVN TOTAL DEVIATION 1 38.294 -32.815 71.108 0.0980 0.5000 3.08498 0.0000 -8.7939 2 43.100 3.970 39.130 0.0735 0.5000 2.31186 0.0000 -6.4771 3 50.878 38.516 12.362 0.0360 0.5000 1.73713 0.0000 -2.9103 4 66.635 57.420 9.216 0.0267 0.5000 1.28875 0.0000 -3.2501 T 1 PROGRAM ALG - COMPRESSOR DESIGN - AERODYNAMIC SECTION ***************************************************** INPUT DATA ********** TITLE = AERODYNAMIC ANALYSIS OF NASA LEWIS BLADE SPECIFIC HEAT AT CONSTANT PRESSURE = 0.24000 GAS CONSTANT = 53.3200 GRAVITATIONAL CONSTANT = 32.1740 JOULES EQUIVALENT = 778.160 NUMBER OF STATIONS = 7 NUMBER OF STREAMLINES = 4 MAX NUMBER OF PASSES = 40 MAX NUMBER OF ARBITRARY PASSES = 40 BOUNDARY LAYER CALC INDICATOR = 0 NUMBER OF RUNNING POINTS = 1 STREAMLINE DISTRIBUTION INDICATOR = 0 NUMBER OF LOSS/D-FACTOR CURVE SETS = 1 NUMBER OF LOSS/T.E.LOSS CURVE SETS = 1 STREAMLINE INPUT INDICATOR = 0 STREAMLINE OUTPUT INDICATOR = 0 PRECISION PLOT INDICATOR = 0 MAX NUMBER OF LINES/PAGE = 60 WAKE TRANSPORT CALC INDICATOR = 0 MAINSTREAM MIXING CALC INDICATOR = 0 NO OF STATIONS FROM ANALYTIC SECN = 3 LINE-PRINTER PLOT INDICATOR = 0 MOMENTUM EQUATION FORM INDICATOR = 0 STATION NUMBER AT LEADING EDGE = 3 STATION NUMBER AT TRAILING EDGE = 5 COMPRESSOR DIR. OF ROTATION INDICATOR = 1 GEOMETRY COMES FROM ANALYTIC SECTION FOR STATIONS 3 4 5 GRAVITATIONAL CONSTANT = 32.1740 JOULES EQUIVALENT = 778.160 LINEAR DIMENSION SCALE FACTOR = 12.0000 BASIC TOLERANCE = 0.00100 KINEMATIC VISCOSITY = 0.00018 B.L. SHAPE FACTOR = 0.70000 PLOTTING SCALE FOR DIMENSIONS = 1.000 PLOTTING SCALE FOR PRESSURES = 1.000 MINIMUM RADIUS ON PLOT = 4.000 MINIMUM PRESSURE ON PLOT = 0.000 MAXIMUM M-SQUARED IN RELAXATION FACTOR = 0.7000 CONSTANT IN RELAXATION FACTOR = 8.0000 WAKE TRANSFER CONSTANT = 0.00000 TURBULENT MIXING CONSTANT = 0.00000 POINTS TO BE COMPUTED NO FLOWRATE SPEED FACTOR 1 73.146 1.000 1 ANNULUS / COMPUTING STATION GEOMETRY STATION 1 SPECIFIED BY 2 POINTS XSTN RSTN -4.0000 3.2500 -4.0000 10.0400 STATION 2 SPECIFIED BY 2 POINTS XSTN RSTN -2.0000 3.6000 -2.0000 10.0400 STATION 3 SPECIFIED BY 4 POINTS XSTN RSTN -0.8979 3.7817 -0.7726 5.4620 -0.6646 7.3404 -0.5238 9.9195 STATION 4 SPECIFIED BY 4 POINTS XSTN RSTN 0.0001 4.0007 -0.0031 5.5034 -0.0157 7.4058 -0.0320 10.0081 STATION 5 SPECIFIED BY 4 POINTS XSTN RSTN 0.8981 4.1868 0.7797 5.4935 0.6303 7.3480 0.4130 9.9364 STATION 6 SPECIFIED BY 2 POINTS XSTN RSTN 2.0000 4.4000 2.0000 10.0400 STATION 7 SPECIFIED BY 2 POINTS XSTN RSTN 4.0000 4.7500 4.0000 10.0400 1 STATION CALCULATION DATA STATION 1 NDATA= 1 NTERP= 0 NDIMEN= 0 NMACH= 0 DATAC TOTAL PRESSURE TOTAL TEMPERATURE WHIRL ANGLE 3.2500 14.7000 518.700 0.000 STATION 2 NDATA= 0 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1= 0 NL2= 0 NEVAL= 0 NCURVE= 0 NLITER= 0 NDEL= 0 NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE= 0 STATION 3 NDATA= 4 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1= 0 NL2= 0 NEVAL= 0 NCURVE= 0 NLITER= 0 NDEL= 0 NOUT1= 0 NOUT2= 0 NOUT3=10 NBLADE= 0 SPEED = 0.00 DATAC DATA1 DATA2 DATA3 DATA4 DATA5 DATA6 DATA7 DATA8 DATA9 3.7817 -40.706 0.000000 -2.2669 0.00000 0.00000 0.0000 0.0000 0.0000 0.0000 5.4620 -42.901 0.000000 -1.6593 0.00000 0.00000 0.0000 0.0000 0.0000 0.0000 7.3404 -51.924 0.000000 -2.5454 0.00000 0.00000 0.0000 0.0000 0.0000 0.0000 9.9195 -69.525 0.000000 -5.1121 0.00000 0.00000 0.0000 0.0000 0.0000 0.0000 STATION 4 NDATA= 4 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 6 NLOSS= 4 NL1= -1 NL2= -1 NEVAL= 0 NCURVE= 1 NLITER= 0 NDEL= 0 NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE=-43 SPEED = 16042.80 DATAC DATA1 DATA2 DATA3 DATA4 DATA5 DATA6 DATA7 DATA8 DATA9 4.0007 -1.384 0.000000 -2.4968 0.30029 3.08498 -4.4142 0.0000 0.0000 0.0000 5.5034 -23.145 0.000000 -0.6747 0.18375 2.31186 -3.2130 0.0000 0.0000 0.0000 7.4058 -44.895 0.000000 -0.6603 0.08740 1.73713 -1.4591 0.0000 0.0000 0.0000 10.0081 -62.912 0.000000 -2.7027 0.07300 1.28875 -1.7086 0.0000 0.0000 0.0000 STATION 5 NDATA= 4 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 6 NLOSS= 1 NL1= -2 NL2= -2 NEVAL=-1 NCURVE= 0 NLITER= 0 NDEL= 2 NOUT1= 0 NOUT2= 0 NOUT3=20 NBLADE=-43 SPEED = 16042.80 DATAC DATA1 DATA2 DATA3 DATA4 DATA5 DATA6 DATA7 DATA8 DATA9 4.1868 39.936 0.050000 26.5881 0.06497 3.08498 -8.7939 0.0000 0.0000 0.0000 5.4935 -6.191 0.050000 13.6748 0.07824 2.31186 -6.4771 0.0000 0.0000 0.0000 7.3480 -39.571 0.050000 2.8407 0.04689 1.73713 -2.9103 0.0000 0.0000 0.0000 9.9364 -59.005 0.050000 -5.6998 0.03857 1.28875 -3.2501 0.0000 0.0000 0.0000 DELC DELTA 4.0000 0.0000 10.0000 1.0000 STATION 6 NDATA= 0 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1= 0 NL2= 0 NEVAL= 0 NCURVE= 0 NLITER= 0 NDEL= 0 NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE= 0 STATION 7 NDATA= 0 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1= 0 NL2= 0 NEVAL= 0 NCURVE= 0 NLITER= 0 NDEL= 0 NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE= 0 1 BLOCKAGE FACTOR SPECIFICATIONS STATION WALL BLOCKAGE WAKE BLOCKAGE WAKE DISTRIBUTION FACTOR 1 0.00000 0.00000 0.000 2 0.00000 0.00000 0.000 3 0.00000 0.00000 0.000 4 0.00000 0.00000 0.000 5 0.00000 0.00000 0.000 6 0.00000 0.00000 0.000 7 0.00000 0.00000 0.000 LOSS PARAMETER / DIFFUSION FACTOR CURVES FOR BLADE TYPE 1 6 D-FACTORS GIVEN DIFFUSION L O S S P A R A M E T E R S FACTORS HUB MID TIP 0.000 0.00600 0.00600 0.00600 0.200 0.00700 0.00700 0.00700 0.400 0.01400 0.01400 0.01400 0.600 0.03000 0.03100 0.03100 0.800 0.06000 0.06000 0.06000 1.000 0.12500 0.12500 0.12500 FRACTIONAL LOSS DISTRIBUTION CURVES FOR BLADE CLASS 1 2 POINTS GIVEN AT 1 RADIAL LOCATIONS FRACTION OF COMPUTING STATION LENGTH AT BLADE EXIT = 0.0000 FRACTION OF MERIDIONAL CHORD LOSS/LOSS AT TRAILING EDGE 0.0000 0.0000 1.0000 0.0000 1 OUTPUT FOR POINT NO. 1 ********************** STATION 1 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 3.2500 -4.0000 0.0000 551.60 0.00 543.34 95.09 551.60 0.00 9.926 0.000 2 5.5257 -4.0000 2.2757 551.16 0.00 548.06 58.39 551.16 0.00 6.081 0.000 3 7.7859 -4.0000 4.5359 552.92 0.00 552.24 27.32 552.92 0.00 2.832 0.000 4 10.0400 -4.0000 6.7900 553.71 0.00 553.71 0.00 553.71 0.00 0.000 0.000 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.5068 14.7000 12.3366 518.700 493.382 0.067528 124.488 118.412 0.975611 0.000 9.926 2 0.5064 14.7000 12.3401 518.700 493.422 0.067542 124.488 118.421 0.975611 0.000 6.081 3 0.5081 14.7000 12.3260 518.700 493.260 0.067487 124.488 118.382 0.975611 0.000 2.832 4 0.5088 14.7000 12.3196 518.700 493.187 0.067462 124.488 118.365 0.975611 0.000 0.000 STATION 2 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 3.6000 -2.0000 0.0000 545.85 0.00 538.14 91.43 545.85 -159.07 9.643 0.000 2 5.7387 -2.0000 2.1387 558.08 0.00 553.15 74.01 558.08 30.56 7.621 0.000 3 7.8849 -2.0000 4.2849 593.26 0.00 591.98 38.85 593.26 52.41 3.755 0.000 4 10.0400 -2.0000 6.4400 576.75 0.00 576.27 -23.49 576.75 -21.36 -2.334 0.000 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.5013 14.7000 12.3826 518.700 493.907 0.067708 124.488 118.538 0.975611 0.000 9.643 2 0.5131 14.7000 12.2842 518.700 492.783 0.067323 124.488 118.268 0.975611 0.000 7.621 3 0.5473 14.7000 11.9925 518.700 489.413 0.066177 124.488 117.459 0.975611 0.000 3.755 4 0.5312 14.7000 12.1310 518.700 491.020 0.066722 124.488 117.845 0.975611 0.000 -2.334 STATION 3 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 3.7817 -0.8979 0.0000 486.04 0.00 476.22 97.17 486.04 13.46 11.532 4.382 2 5.9416 -0.7423 2.1655 579.59 0.00 566.00 124.75 579.59 8.93 12.429 3.592 3 7.9971 -0.6291 4.2241 636.66 0.00 632.74 70.54 636.66 16.94 6.361 3.023 4 9.9195 -0.5238 6.1494 780.64 0.00 779.72 37.83 780.64 3.81 2.778 3.195 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.4440 14.7000 12.8395 518.700 499.043 0.069484 124.488 119.770 0.975611 0.000 15.914 2 0.5339 14.7000 12.1074 518.700 490.747 0.066629 124.488 117.779 0.975611 0.000 16.022 3 0.5900 14.7000 11.6156 518.700 484.971 0.064684 124.488 116.393 0.975611 0.000 9.385 4 0.7364 14.7000 10.2524 518.700 467.991 0.059165 124.488 112.318 0.975611 0.000 5.972 1 STATION 3 IS AT THE LEADING EDGE OF A BLADE ROATING AT 16042.8 RPM NUMBER OF BLADES IN ROW = 43 *************************************************************************************************** STREAM BLADE RELATIVE RELATIVE RELATIVE INCIDENCE BLADE LEAN PRESS DIFF -LINE SPEED VELOCITY MACH NO. FLOW ANGLE ANGLE ANGLE ANGLE ACROSS BLADE 1 529.43 718.70 0.6566 -47.447 8.033 -39.414 -2.267 2.3391 2 831.82 1013.83 0.9340 -55.132 11.848 -43.285 -1.729 5.1909 3 1119.59 1287.95 1.1936 -60.375 4.688 -55.687 -3.119 8.9959 4 1388.72 1593.09 1.5029 -60.659 -8.763 -69.421 -5.112 15.9739 STATION 4 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 4.0007 0.0001 0.0000 577.28 507.40 563.14 126.98 768.57 -26.41 12.707 -0.112 2 6.1483 -0.0066 2.1477 498.21 529.75 491.15 83.60 727.22 -3.54 9.660 -0.316 3 8.0831 -0.0204 4.0825 480.51 526.81 476.44 62.43 713.04 -29.79 7.465 -0.407 4 10.0081 -0.0320 6.0076 405.05 547.51 405.03 3.75 681.05 -1.40 0.531 -0.316 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.6899 19.9552 14.5164 565.996 516.842 0.075853 135.839 124.042 0.975611 41.314 12.595 2 0.6325 23.7142 18.1151 594.583 550.576 0.088858 142.700 132.138 0.975610 46.757 9.344 3 0.6065 27.1360 21.1669 617.910 575.603 0.099313 148.298 138.145 0.975611 47.632 7.058 4 0.5638 31.7718 25.6085 646.369 607.773 0.113793 155.129 145.865 0.975610 53.506 0.215 STATION 4 IS WITHIN OR AT THE TRAILING EDGE OF A BLADE ROTATING AT 16042.8 RPM NUMBER OF BLADES IN ROW = 43 ************************************************************************************************************* STREAM BLADE RELATIVE RELATIVE RELATIVE DEVIATION BLADE LEAN PRESS DIFF LOSS DIFFUSION DELTA P -LINE SPEED VELOCITY MACH NO. FLOW ANGLE ANGLE ANGLE ANGLE ACROSS BLADE COEFF FACTOR ON Q 1 560.09 579.68 0.5204 -5.215 4.414 -0.801 -2.497 2.6290 0.00000 0.3009 0.3892 2 860.77 598.15 0.5202 -33.596 2.555 -31.041 -0.393 3.6048 -0.00001 0.5294 0.6568 3 1131.63 772.46 0.6571 -51.531 1.243 -50.288 -1.070 5.6138 0.00000 0.5250 0.5855 4 1401.14 944.86 0.7822 -64.615 1.709 -62.907 -2.703 6.0981 0.00000 0.5372 0.5577 STREAM INLET THROUGH STATION 4 STATION 3 THROUGH STATION 4 MEAN VALUES INLET TO STA. 4 STA. 3 TO STA. 4 -LINE PRESSURE ISENTROPIC DELTA H PRESSURE ISENTROPIC DELTA H PRESSURE RATIO 1.7985 1.7985 RATIO EFFICIENCY ON H1 RATIO EFFICIENCY ON H1 ISEN EFFY 1.0129 1.0129 DELTA H ON H1 0.1801 0.1801 1 1.3575 1.0000 0.0912 1.3575 1.0000 0.0912 2 1.6132 1.0000 0.1463 1.6132 1.0000 0.1463 3 1.8460 1.0000 0.1913 1.8460 1.0000 0.1913 4 2.1613 1.0000 0.2461 2.1613 1.0000 0.2461 1 STATION 5 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 4.1868 0.8981 0.0000 484.16 839.38 474.72 95.12 969.01 -77.38 11.331 -5.158 2 6.1944 0.7217 2.0155 397.17 650.34 395.20 39.47 762.02 13.91 5.703 -4.748 3 8.1537 0.5645 3.9810 468.25 589.54 466.60 39.29 752.87 -14.00 4.814 -4.666 4 9.9364 0.4130 5.7701 484.80 471.75 484.25 -22.95 676.44 4.53 -2.713 -4.955 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.8652 24.2643 14.8922 600.580 522.447 0.076982 144.139 125.387 0.976448 60.023 6.173 2 0.6547 25.7718 19.3266 612.555 564.236 0.092505 147.013 135.417 0.977056 58.587 0.955 3 0.6360 28.3219 21.5718 630.694 583.529 0.099838 151.366 140.047 0.977594 51.541 0.148 4 0.5684 27.6635 22.2203 627.915 589.839 0.101739 150.699 141.561 0.978146 44.218 -7.668 STATION 5 IS WITHIN OR AT THE TRAILING EDGE OF A BLADE ROTATING AT 16042.8 RPM NUMBER OF BLADES IN ROW = 43 ************************************************************************************************************* STREAM BLADE RELATIVE RELATIVE RELATIVE DEVIATION BLADE LEAN PRESS DIFF LOSS DIFFUSION DELTA P -LINE SPEED VELOCITY MACH NO. FLOW ANGLE ANGLE ANGLE ANGLE ACROSS BLADE COEFF FACTOR ON Q 1 586.14 546.39 0.4878 27.611 8.794 36.405 26.588 0.0000 0.05000 0.4163 0.4764 2 867.22 452.53 0.3888 -28.633 4.977 -23.656 8.623 0.0000 0.05000 0.7029 0.7893 3 1141.52 723.84 0.6115 -49.690 2.406 -47.284 -0.213 0.0000 0.05000 0.5773 0.6104 4 1391.09 1039.34 0.8734 -62.196 3.250 -58.946 -5.700 0.0000 0.05000 0.4619 0.4346 STREAM INLET THROUGH STATION 5 STATION 3 THROUGH STATION 5 MEAN VALUES INLET TO STA. 5 STA. 3 TO STA. 5 -LINE PRESSURE ISENTROPIC DELTA H PRESSURE ISENTROPIC DELTA H PRESSURE RATIO 1.8384 1.8384 RATIO EFFICIENCY ON H1 RATIO EFFICIENCY ON H1 ISEN EFFY 0.9557 0.9557 DELTA H ON H1 0.1987 0.1987 1 1.6506 0.9745 0.1579 1.6506 0.9745 0.1579 2 1.7532 0.9608 0.1809 1.7532 0.9608 0.1809 3 1.9267 0.9536 0.2159 1.9267 0.9536 0.2159 4 1.8819 0.9396 0.2106 1.8819 0.9396 0.2106 STATION 6 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 4.4000 2.0000 0.0000 415.70 798.70 408.82 75.33 900.41 -87.95 10.440 0.000 2 6.3692 2.0000 1.9692 388.35 632.48 385.38 47.97 742.19 -68.78 7.096 0.000 3 8.2225 2.0000 3.8225 469.19 584.59 468.57 24.21 749.60 227.65 2.958 0.000 4 10.0400 2.0000 5.6400 415.33 466.88 415.11 13.54 624.88 -27.53 1.868 0.000 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.7958 24.2643 15.9851 600.580 533.118 0.080978 144.139 127.948 0.976448 62.504 10.440 2 0.6363 25.7718 19.6261 612.555 566.719 0.093528 147.013 136.012 0.977056 58.449 7.096 3 0.6331 28.3219 21.6248 630.694 583.937 0.100013 151.366 140.145 0.977594 51.250 2.958 4 0.5226 27.6635 22.9658 627.915 595.422 0.104167 150.699 142.901 0.978146 48.344 1.868 1 STATION 7 FLOW-FIELD DESCRIPTION ********************************** STREAM -----MESH-POINT COORDS------ ----------------V E L O C I T I E S,16(1H-) RADIUS OF STREAMLINE STATION -LINE RADIUS X-COORD L-COORD MERIDIONAL TANGENTIAL AXIAL RADIAL TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE 1 4.7500 4.0000 0.0000 395.28 739.85 389.36 68.14 838.82 0.00 9.926 0.000 2 6.5938 4.0000 1.8438 401.05 610.91 398.54 44.76 730.79 0.00 6.408 0.000 3 8.3334 4.0000 3.5834 490.59 576.80 489.84 27.16 757.22 0.00 3.174 0.000 4 10.0400 4.0000 5.2900 453.10 466.88 453.10 0.00 650.60 0.00 0.000 0.000 STREAM MACH ----PRESSURES---- ---TEMPERATURES-- SPECIFIC ---ENTHALPIES---- ENTROPY FLOW (PHI+GAMMA) -LINE NUMBER TOTAL STATIC TOTAL STATIC WEIGHT TOTAL STATIC ANGLE 1 0.7353 24.2643 16.9409 600.580 542.030 0.084408 144.139 130.087 0.976448 61.886 9.926 2 0.6257 25.7718 19.7961 612.555 568.116 0.094106 147.013 136.348 0.977056 56.716 6.408 3 0.6400 28.3219 21.5011 630.694 582.982 0.099604 151.366 139.916 0.977594 49.618 3.174 4 0.5454 27.6635 22.5992 627.915 592.693 0.102976 150.699 142.246 0.978146 45.858 0.000 POINT NO 1 PASS 27 THE CALCULATION IS CONVERGED **************************************************** SPEED FACTOR = 1.000 FLOW = 73.146 TOTAL PRESSURE RATIO = 1.838 ISENTROPIC EFFICIENCY =0.9557 POWER = 0.2560E+04 DATA FOR NASTRAN PROGRAM FOR BLADE BETWEEN STATIONS 3 AND 5 ************************************************************* NAME CODE DELTA P ELEMENT MESHPOINTS - J I J I J I PLOAD2 60 -3.44096 1 2 3 2 4 1 3 PLOAD2 60 -3.44096 2 1 3 2 4 1 4 PLOAD2 60 -1.55845 3 1 4 2 4 2 5 PLOAD2 60 -1.55845 4 1 4 2 5 1 5 PLOAD2 60 -5.85137 5 3 3 3 4 2 3 PLOAD2 60 -5.85137 6 2 3 3 4 2 4 PLOAD2 60 -2.30466 7 2 4 3 4 3 5 PLOAD2 60 -2.30466 8 2 4 3 5 2 5 PLOAD2 60 -9.17045 9 4 3 4 4 3 3 PLOAD2 60 -9.17045 10 3 3 4 4 3 4 PLOAD2 60 -2.92799 11 3 4 4 4 4 5 PLOAD2 60 -2.92799 12 3 4 4 5 3 5 NAME CODE DELTA T NODE MESHPOINTS - J I COORDINATES - RADIAL AXIAL TEMP 70 542.02399 1 1 3 3.7817 -0.8979 TEMP 70 544.80365 2 1 4 4.0007 0.0001 TEMP 70 547.28864 3 1 5 4.1868 0.8981 TEMP 70 576.27594 4 2 3 5.9416 -0.7423 TEMP 70 580.34808 5 2 4 6.1483 -0.0066 TEMP 70 581.27612 6 2 5 6.1944 0.7217 TEMP 70 623.00360 7 3 3 7.9971 -0.6291 TEMP 70 625.25494 8 3 4 8.0831 -0.0204 TEMP 70 627.12671 9 3 5 8.1537 0.5645 TEMP 70 679.17810 10 4 3 9.9195 -0.5238 TEMP 70 682.06042 11 4 4 10.0081 -0.0320 TEMP 70 679.72583 12 4 5 9.9364 0.4130 NASTRAN - STREAML2 - COMPRESSOR BLADE BULK DATA ************************************************* SLN NSTNS STAGGER CHORD RADIUS BSPACE MACH DEN VEL FLOWA 1 3 2.739 1.79600 3.98420 0.58217 0.656569 0.069484 718.7 47.447 2 3 23.535 1.85044 6.06801 0.88666 0.933978 0.066629 1013.8 55.132 3 3 44.697 1.86418 8.07539 1.17998 1.193555 0.064684 1287.9 60.375 4 3 62.027 1.86955 9.92792 1.45067 1.502882 0.059165 1593.1 60.659 1 LOSS COEFFICIENT DETERMINATION FOR BLADE BETWEEN STATIONS 3 AND 5 - FOR PURPOSES OF COMPARISON ONLY BLADE TYPE 1 ******************************************************************************************************************** STREAM INLET OUTLET CASCADE DIFF LOSS DIFFUSION BLADE INCIDENCE EXPANSION INLET EXPANDED SHOCK TOTAL -LINE RADIUS RADIUS SOLIDITY FACTOR PARAMETER LOSS ANGLE ANGLE ANGLE M.NO MACH NO LOSS LOSS 1 3.782 4.187 3.0850 0.4163 0.01495 0.10410 39.414 8.033 7.997 0.6566 1.3653 0.00000 0.10410 2 5.942 6.194 2.0315 0.7030 0.04230 0.19581 43.285 11.848 12.171 0.9340 1.5089 0.01110 0.20691 3 7.997 8.154 1.5818 0.5773 0.02886 0.14114 55.687 4.688 5.354 1.1936 1.3919 0.03319 0.17434 4 9.919 9.936 1.2887 0.4619 0.01490 0.08232 69.421 -8.763 -7.776 1.5029 1.2263 0.04589 0.12821 S 0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 44 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.346206E-04 -2.567862E-03 2.054804E-03 -4.456568E-03 1.062913E-03 1.031745E-03 2 G 2.346206E-04 -2.567862E-03 2.054804E-03 -4.456568E-03 1.062913E-03 1.031745E-03 3 G 2.346206E-04 -2.567862E-03 2.054804E-03 -4.456568E-03 1.062913E-03 1.031745E-03 4 G -7.302602E-03 1.202158E-02 6.582438E-03 5.918485E-04 -2.696892E-02 -1.107698E-02 5 G -2.592364E-03 4.374210E-03 4.859276E-03 -4.395328E-03 -6.154217E-03 -1.278556E-02 6 G -1.758622E-04 -6.110481E-03 4.614662E-03 6.014257E-03 -1.254696E-02 -1.251412E-02 7 G -2.597208E-02 3.013275E-02 1.231037E-02 0.0 0.0 -2.683479E-02 8 G -6.600582E-03 1.359512E-02 8.193831E-03 -2.700828E-02 3.200597E-02 -2.322220E-02 9 G 6.331908E-03 -8.768180E-04 6.375103E-03 -6.616825E-03 1.053808E-02 -2.678569E-02 10 G -1.179583E-01 7.018144E-02 2.896315E-02 0.0 0.0 -1.059000E-01 11 G -2.141758E-02 3.732414E-02 1.114722E-02 -2.170132E-01 1.174836E-01 -3.989148E-02 12 G -9.971106E-04 2.616470E-02 5.976629E-03 0.0 0.0 -3.157181E-02 101 G 1.650704E-03 1.226905E-03 7.036452E-05 0.0 0.0 0.0 103 G 1.596748E-03 1.033213E-03 -6.209120E-05 0.0 0.0 0.0 104 G 1.593895E-03 1.032435E-03 -6.186279E-05 0.0 0.0 0.0 105 G 1.596748E-03 1.033213E-03 -6.209120E-05 0.0 0.0 0.0 107 G 1.650704E-03 1.226905E-03 7.036452E-05 0.0 0.0 0.0 108 G 1.646090E-03 1.228372E-03 7.104970E-05 0.0 0.0 0.0 113 G 2.018123E-03 2.586640E-03 2.696627E-04 0.0 0.0 0.0 115 G 2.011074E-03 2.550337E-03 2.015756E-04 0.0 0.0 0.0 116 G 2.346206E-04 -2.567862E-03 2.054804E-03 0.0 0.0 0.0 117 G 2.011074E-03 2.550337E-03 2.015756E-04 0.0 0.0 0.0 119 G 2.018123E-03 2.586640E-03 2.696627E-04 0.0 0.0 0.0 120 G 2.346206E-04 -2.567862E-03 2.054804E-03 0.0 0.0 0.0 121 G 1.292570E-03 0.0 0.0 0.0 0.0 0.0 123 G 1.336771E-03 0.0 0.0 0.0 0.0 0.0 124 G 1.337239E-03 0.0 0.0 0.0 0.0 0.0 125 G 1.336771E-03 0.0 0.0 0.0 0.0 0.0 127 G 1.292570E-03 0.0 0.0 0.0 0.0 0.0 128 G 1.293070E-03 0.0 0.0 0.0 0.0 0.0 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 45 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 2.346206E-04 -2.567862E-03 2.054804E-03 -4.456568E-03 1.062913E-03 1.031745E-03 2 G 2.346206E-04 -2.567862E-03 2.054804E-03 -4.456568E-03 1.062913E-03 1.031745E-03 3 G 2.346206E-04 -2.567862E-03 2.054804E-03 -4.456568E-03 1.062913E-03 1.031745E-03 4 G -7.302602E-03 1.202158E-02 6.582438E-03 5.918485E-04 -2.696892E-02 -1.107698E-02 5 G -2.592364E-03 4.374210E-03 4.859276E-03 -4.395328E-03 -6.154217E-03 -1.278556E-02 6 G -1.758622E-04 -6.110481E-03 4.614662E-03 6.014257E-03 -1.254696E-02 -1.251412E-02 7 G -2.597208E-02 3.013275E-02 1.231037E-02 0.0 0.0 -2.683479E-02 8 G -6.600582E-03 1.359512E-02 8.193831E-03 -2.700828E-02 3.200597E-02 -2.322220E-02 9 G 6.331908E-03 -8.768180E-04 6.375103E-03 -6.616825E-03 1.053808E-02 -2.678569E-02 10 G -1.179583E-01 7.018144E-02 2.896315E-02 0.0 0.0 -1.059000E-01 11 G -2.141758E-02 3.732414E-02 1.114722E-02 -2.170132E-01 1.174836E-01 -3.989148E-02 12 G -9.971106E-04 2.616470E-02 5.976629E-03 0.0 0.0 -3.157181E-02 101 G 1.650704E-03 1.226905E-03 7.036452E-05 0.0 0.0 0.0 103 G 1.596748E-03 1.033213E-03 -6.209120E-05 0.0 0.0 0.0 104 G 1.593895E-03 1.032435E-03 -6.186279E-05 0.0 0.0 0.0 105 G 1.596748E-03 1.033213E-03 -6.209120E-05 0.0 0.0 0.0 107 G 1.650704E-03 1.226905E-03 7.036452E-05 0.0 0.0 0.0 108 G 1.646090E-03 1.228372E-03 7.104970E-05 0.0 0.0 0.0 113 G 2.018123E-03 2.586640E-03 2.696627E-04 0.0 0.0 0.0 115 G 2.011074E-03 2.550337E-03 2.015756E-04 0.0 0.0 0.0 116 G 2.346206E-04 -2.567862E-03 2.054804E-03 0.0 0.0 0.0 117 G 2.011074E-03 2.550337E-03 2.015756E-04 0.0 0.0 0.0 119 G 2.018123E-03 2.586640E-03 2.696627E-04 0.0 0.0 0.0 120 G 2.346206E-04 -2.567862E-03 2.054804E-03 0.0 0.0 0.0 121 G 1.292570E-03 0.0 0.0 0.0 0.0 0.0 123 G 1.336771E-03 0.0 0.0 0.0 0.0 0.0 124 G 1.337239E-03 0.0 0.0 0.0 0.0 0.0 125 G 1.336771E-03 0.0 0.0 0.0 0.0 0.0 127 G 1.292570E-03 0.0 0.0 0.0 0.0 0.0 128 G 1.293070E-03 0.0 0.0 0.0 0.0 0.0 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 46 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 7 G 0.0 0.0 0.0 4.001146E+01 5.800446E+01 0.0 10 G 0.0 0.0 0.0 6.963536E+00 2.038683E+01 0.0 12 G 0.0 0.0 0.0 4.055984E+00 4.510184E+00 0.0 121 G 0.0 3.451873E+04 -4.134268E+03 0.0 0.0 0.0 123 G 0.0 3.069117E+04 4.855215E+02 0.0 0.0 0.0 124 G 0.0 -4.287852E+03 4.672181E+03 0.0 0.0 0.0 125 G 0.0 -3.494844E+04 4.170538E+03 0.0 0.0 0.0 127 G 0.0 -3.181861E+04 -5.212381E+02 0.0 0.0 0.0 128 G 0.0 2.901672E+03 -4.634374E+03 0.0 0.0 0.0 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 47 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 F O R C E S O F S I N G L E - P O I N T C O N S T R A I N T POINT ID. TYPE T1 T2 T3 R1 R2 R3 7 G 0.0 0.0 0.0 4.001146E+01 5.800446E+01 0.0 10 G 0.0 0.0 0.0 6.963536E+00 2.038683E+01 0.0 12 G 0.0 0.0 0.0 4.055984E+00 4.510184E+00 0.0 121 G 0.0 3.451873E+04 -4.134268E+03 0.0 0.0 0.0 123 G 0.0 3.069117E+04 4.855215E+02 0.0 0.0 0.0 124 G 0.0 -4.287852E+03 4.672181E+03 0.0 0.0 0.0 125 G 0.0 -3.494844E+04 4.170538E+03 0.0 0.0 0.0 127 G 0.0 -3.181861E+04 -5.212381E+02 0.0 0.0 0.0 128 G 0.0 2.901672E+03 -4.634374E+03 0.0 0.0 0.0 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 48 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 F O R C E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 1 6.086863E+00 -2.961967E+00 -1.838467E+01 -2.613809E+01 -1.852490E+01 2 -2.209168E+01 -2.027921E+01 1.450272E+01 3.107613E+01 -4.676252E+01 3 1.642318E+01 -1.566589E+01 -1.388076E+01 1.115919E+01 -6.170772E+01 4 -2.463994E-01 2.798222E+01 1.212089E+01 -7.961246E+01 1.364262E+01 5 1.547767E+01 1.283455E+00 7.526836E-01 -8.601692E+00 -1.538379E+01 6 6.746757E+00 3.481077E+00 3.790626E+00 -3.375283E+01 1.573044E+01 7 8.060553E+00 2.151536E+00 6.596775E-01 -1.227872E+01 1.733340E+01 8 3.810172E+00 -1.634067E+00 5.911563E+00 1.145445E+01 -3.854065E-01 9 4.777577E+00 -6.720068E+00 -4.124002E-01 -1.694479E+01 -7.346954E+00 10 -1.924495E+00 -3.107365E+00 5.773415E-01 -8.471180E+00 9.258308E+00 11 3.925329E-02 -3.553294E+00 1.802838E+00 -1.381578E+01 1.762703E+01 12 1.066479E+00 -1.321185E+00 3.221881E-01 1.414770E+00 -6.362452E+00 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 49 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 F O R C E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) 0 ELEMENT BEND-MOMENT BEND-MOMENT TWIST-MOMENT SHEAR SHEAR ID. X Y X Y 1 6.086863E+00 -2.961967E+00 -1.838467E+01 -2.613809E+01 -1.852490E+01 2 -2.209168E+01 -2.027921E+01 1.450272E+01 3.107613E+01 -4.676252E+01 3 1.642318E+01 -1.566589E+01 -1.388076E+01 1.115919E+01 -6.170772E+01 4 -2.463994E-01 2.798222E+01 1.212089E+01 -7.961246E+01 1.364262E+01 5 1.547767E+01 1.283455E+00 7.526836E-01 -8.601692E+00 -1.538379E+01 6 6.746757E+00 3.481077E+00 3.790626E+00 -3.375283E+01 1.573044E+01 7 8.060553E+00 2.151536E+00 6.596775E-01 -1.227872E+01 1.733340E+01 8 3.810172E+00 -1.634067E+00 5.911563E+00 1.145445E+01 -3.854065E-01 9 4.777577E+00 -6.720068E+00 -4.124002E-01 -1.694479E+01 -7.346954E+00 10 -1.924495E+00 -3.107365E+00 5.773415E-01 -8.471180E+00 9.258308E+00 11 3.925329E-02 -3.553294E+00 1.802838E+00 -1.381578E+01 1.762703E+01 12 1.066479E+00 -1.321185E+00 3.221881E-01 1.414770E+00 -6.362452E+00 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 50 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 S T R E S S E S I N S O L I D H E X A H E D R O N E L E M E N T S ( C H E X A 1 ) OCTAHEDRAL PRESSURE ELEMENT-ID SIGMA-XX SIGMA-YY SIGMA-ZZ TAU-YZ TAU-XZ TAU-XY TAU-0 P 201 8.289883E+03 1.875911E+04 1.485598E+04 -7.958457E+02 8.667183E+02 1.779021E+03 4.657726E+03 -1.396833E+04 202 8.262270E+03 1.855342E+04 1.515395E+04 -2.902549E+03 8.701763E+02 1.799047E+03 5.158282E+03 -1.398988E+04 203 1.327659E+04 2.930491E+04 1.894422E+04 -3.239520E+03 3.050317E+01 2.974962E+03 7.545768E+03 -2.050857E+04 204 1.333471E+04 2.892952E+04 1.950895E+04 -3.636430E+03 -1.909380E+02 2.923000E+03 7.460197E+03 -2.059106E+04 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 51 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 -5.200000E-02 3.868979E+04 -4.928805E+02 2.071134E+03 3.0174 3.879896E+04 -6.020508E+02 1.970051E+04 5.200000E-02 3.193661E+04 2.793326E+03 2.246833E+04 28.5175 4.414479E+04 -9.414848E+03 2.677982E+04 0 2 -5.200000E-02 6.116189E+03 4.998772E+04 1.105540E+04 76.6262 5.261615E+04 3.487758E+03 2.456420E+04 5.200000E-02 3.062619E+04 7.248684E+04 -5.034890E+03 -83.2371 7.308391E+04 3.002912E+04 2.152739E+04 0 3 -5.200000E-02 4.609596E+04 1.096560E+04 1.872785E+04 23.4174 5.420700E+04 2.854566E+03 2.567621E+04 5.200000E-02 2.787498E+04 2.834640E+04 3.412810E+04 45.1979 6.223961E+04 -6.018223E+03 3.412891E+04 0 4 -5.200000E-02 8.834335E+03 4.542609E+04 1.711337E+04 68.4564 5.218229E+04 2.078139E+03 2.505207E+04 5.200000E-02 9.107708E+03 1.438073E+04 3.665635E+03 62.8628 1.625954E+04 7.228904E+03 4.515316E+03 0 5 -3.535000E-02 5.005336E+04 6.442619E+03 1.238592E+04 14.7988 5.332557E+04 3.170402E+03 2.507759E+04 3.535000E-02 1.289572E+04 3.361396E+03 1.057894E+04 32.8712 1.973199E+04 -3.474879E+03 1.160344E+04 0 6 -3.535000E-02 1.321711E+04 6.123563E+04 -5.667010E+03 -83.3596 6.189538E+04 1.255737E+04 2.466900E+04 3.535000E-02 -2.980000E+03 5.287852E+04 -1.476726E+04 -76.0664 5.654223E+04 -6.643707E+03 3.159297E+04 0 7 -3.535000E-02 5.299375E+04 1.554659E+04 2.276640E+04 25.2827 6.374697E+04 4.793375E+03 2.947680E+04 3.535000E-02 3.364258E+04 1.038134E+04 2.118270E+04 30.6152 4.617759E+04 -2.153674E+03 2.416563E+04 0 8 -3.535000E-02 7.208149E+02 3.447925E+04 1.699268E+04 67.4040 4.155122E+04 -6.351146E+03 2.395118E+04 3.535000E-02 -8.426361E+03 3.840220E+04 2.800636E+03 86.5896 3.856910E+04 -8.593263E+03 2.358118E+04 0 9 -2.110000E-02 3.550486E+04 -1.960298E+04 5.377746E+03 5.5218 3.602475E+04 -2.012287E+04 2.807381E+04 2.110000E-02 3.311667E+03 2.567948E+04 8.156661E+03 71.9480 2.833793E+04 6.532158E+02 1.384236E+04 0 10 -2.110000E-02 -6.020513E+03 2.206645E+04 -5.720284E+03 -78.9188 2.318677E+04 -7.140839E+03 1.516381E+04 2.110000E-02 6.947490E+03 4.300510E+04 -9.610638E+03 -75.9696 4.540671E+04 4.545871E+03 2.043042E+04 0 11 -2.110000E-02 2.915446E+04 -1.218556E+04 1.383487E+04 16.8976 3.335718E+04 -1.638829E+04 2.487273E+04 2.110000E-02 2.888995E+04 1.175793E+04 1.686632E+03 5.5695 2.905442E+04 1.159346E+04 8.730478E+03 0 12 -2.110000E-02 -2.630775E+03 2.203477E+04 6.568234E+03 75.9805 2.367479E+04 -4.270797E+03 1.397279E+04 2.110000E-02 -9.817131E+03 3.093743E+04 4.397204E+03 83.9114 3.140647E+04 -1.028617E+04 2.084632E+04 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 52 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 S T R E S S E S I N S O L I D H E X A H E D R O N E L E M E N T S ( C H E X A 1 ) OCTAHEDRAL PRESSURE ELEMENT-ID SIGMA-XX SIGMA-YY SIGMA-ZZ TAU-YZ TAU-XZ TAU-XY TAU-0 P 201 8.289883E+03 1.875911E+04 1.485598E+04 -7.958457E+02 8.667183E+02 1.779021E+03 4.657726E+03 -1.396833E+04 202 8.262270E+03 1.855342E+04 1.515395E+04 -2.902549E+03 8.701763E+02 1.799047E+03 5.158282E+03 -1.398988E+04 203 1.327659E+04 2.930491E+04 1.894422E+04 -3.239520E+03 3.050317E+01 2.974962E+03 7.545768E+03 -2.050857E+04 204 1.333471E+04 2.892952E+04 1.950895E+04 -3.636430E+03 -1.909380E+02 2.923000E+03 7.460197E+03 -2.059106E+04 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 53 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 S T R E S S E S I N G E N E R A L T R I A N G U L A R E L E M E N T S ( C T R I A 2 ) (IN ELEMENT COORDINATE SYSTEM) ELEMENT FIBRE STRESSES IN ELEMENT COORD SYSTEM PRINCIPAL STRESSES (ZERO SHEAR) MAX ID. DISTANCE NORMAL-X NORMAL-Y SHEAR-XY ANGLE MAJOR MINOR SHEAR 0 1 -5.200000E-02 3.868979E+04 -4.928805E+02 2.071134E+03 3.0174 3.879896E+04 -6.020508E+02 1.970051E+04 5.200000E-02 3.193661E+04 2.793326E+03 2.246833E+04 28.5175 4.414479E+04 -9.414848E+03 2.677982E+04 0 2 -5.200000E-02 6.116189E+03 4.998772E+04 1.105540E+04 76.6262 5.261615E+04 3.487758E+03 2.456420E+04 5.200000E-02 3.062619E+04 7.248684E+04 -5.034890E+03 -83.2371 7.308391E+04 3.002912E+04 2.152739E+04 0 3 -5.200000E-02 4.609596E+04 1.096560E+04 1.872785E+04 23.4174 5.420700E+04 2.854566E+03 2.567621E+04 5.200000E-02 2.787498E+04 2.834640E+04 3.412810E+04 45.1979 6.223961E+04 -6.018223E+03 3.412891E+04 0 4 -5.200000E-02 8.834335E+03 4.542609E+04 1.711337E+04 68.4564 5.218229E+04 2.078139E+03 2.505207E+04 5.200000E-02 9.107708E+03 1.438073E+04 3.665635E+03 62.8628 1.625954E+04 7.228904E+03 4.515316E+03 0 5 -3.535000E-02 5.005336E+04 6.442619E+03 1.238592E+04 14.7988 5.332557E+04 3.170402E+03 2.507759E+04 3.535000E-02 1.289572E+04 3.361396E+03 1.057894E+04 32.8712 1.973199E+04 -3.474879E+03 1.160344E+04 0 6 -3.535000E-02 1.321711E+04 6.123563E+04 -5.667010E+03 -83.3596 6.189538E+04 1.255737E+04 2.466900E+04 3.535000E-02 -2.980000E+03 5.287852E+04 -1.476726E+04 -76.0664 5.654223E+04 -6.643707E+03 3.159297E+04 0 7 -3.535000E-02 5.299375E+04 1.554659E+04 2.276640E+04 25.2827 6.374697E+04 4.793375E+03 2.947680E+04 3.535000E-02 3.364258E+04 1.038134E+04 2.118270E+04 30.6152 4.617759E+04 -2.153674E+03 2.416563E+04 0 8 -3.535000E-02 7.208149E+02 3.447925E+04 1.699268E+04 67.4040 4.155122E+04 -6.351146E+03 2.395118E+04 3.535000E-02 -8.426361E+03 3.840220E+04 2.800636E+03 86.5896 3.856910E+04 -8.593263E+03 2.358118E+04 0 9 -2.110000E-02 3.550486E+04 -1.960298E+04 5.377746E+03 5.5218 3.602475E+04 -2.012287E+04 2.807381E+04 2.110000E-02 3.311667E+03 2.567948E+04 8.156661E+03 71.9480 2.833793E+04 6.532158E+02 1.384236E+04 0 10 -2.110000E-02 -6.020513E+03 2.206645E+04 -5.720284E+03 -78.9188 2.318677E+04 -7.140839E+03 1.516381E+04 2.110000E-02 6.947490E+03 4.300510E+04 -9.610638E+03 -75.9696 4.540671E+04 4.545871E+03 2.043042E+04 0 11 -2.110000E-02 2.915446E+04 -1.218556E+04 1.383487E+04 16.8976 3.335718E+04 -1.638829E+04 2.487273E+04 2.110000E-02 2.888995E+04 1.175793E+04 1.686632E+03 5.5695 2.905442E+04 1.159346E+04 8.730478E+03 0 12 -2.110000E-02 -2.630775E+03 2.203477E+04 6.568234E+03 75.9805 2.367479E+04 -4.270797E+03 1.397279E+04 2.110000E-02 -9.817131E+03 3.093743E+04 4.397204E+03 83.9114 3.140647E+04 -1.028617E+04 2.084632E+04 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 54 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 0 1 APP-LOAD -1.998173E-01 -2.926141E+01 4.033651E+02 5.577285E-01 2.814714E-01 -2.754023E-01 1 1 TRIA2 4.229720E+02 -2.028154E+01 1.777826E+03 -1.184240E+01 -6.543108E+00 -7.789952E+00 1 2 TRIA2 1.409853E+03 4.936431E+02 -4.794470E+02 -9.476487E+00 -3.133823E+00 -1.794007E+01 1 *TOTALS* 1.832625E+03 4.441001E+02 1.701744E+03 -2.076116E+01 -9.395460E+00 -2.600543E+01 0 2 APP-LOAD -6.828099E-01 1.092883E+01 5.705005E+02 -3.887714E-01 -6.920462E-02 -1.726344E-01 2 2 TRIA2 -1.906114E+03 -7.307139E+02 3.559301E+03 2.614398E+00 1.857160E+00 -4.023248E+01 2 3 TRIA2 -2.927894E+02 -1.076771E+02 2.312758E+03 -1.694014E+01 -4.094743E+00 -2.067599E+01 2 4 TRIA2 5.943733E+02 1.736815E+02 8.027845E+02 -3.600341E+01 2.856086E+01 4.268495E+01 2 *TOTALS* -1.605213E+03 -6.537806E+02 7.245344E+03 -5.071792E+01 2.625407E+01 -1.839615E+01 0 3 APP-LOAD -1.319013E-01 -1.192908E+01 2.009023E+02 2.358849E-02 1.139595E-02 6.344404E-02 3 4 TRIA2 -2.482905E+02 1.286545E+02 7.187941E+02 7.158796E+01 -1.345794E+01 4.668312E+01 3 *TOTALS* -2.484224E+02 1.167254E+02 9.196965E+02 7.161155E+01 -1.344654E+01 4.674657E+01 0 4 APP-LOAD -2.641002E+00 -6.555304E+01 7.765549E+02 4.260484E-01 2.971697E-01 -8.346827E-02 4 1 TRIA2 -4.677010E+02 -1.591701E+02 -1.156693E+03 6.539659E+00 6.217707E+00 -1.042728E+01 4 5 TRIA2 1.550956E+02 -3.756423E+01 1.207026E+03 -8.009010E+00 -7.228173E+00 -1.121357E+01 4 6 TRIA2 3.119158E+02 2.740056E+02 -8.265136E+02 -9.840205E+00 -6.479788E+00 2.499067E+01 4 *TOTALS* -3.330597E+00 1.171823E+01 3.744507E-01 -1.088351E+01 -7.193084E+00 3.266352E+00 0 5 APP-LOAD -2.731128E+00 1.091827E+01 1.482273E+03 -9.318570E-01 -4.555690E-01 3.427876E-01 5 1 TRIA2 4.472901E+01 1.794517E+02 -6.211334E+02 -8.884875E+00 -3.924006E+00 -1.141514E+01 5 2 TRIA2 4.962606E+02 2.370708E+02 -3.079854E+03 -5.584223E+00 -2.531168E+00 2.058598E+01 5 3 TRIA2 4.244433E+02 5.961493E+01 -2.867085E+03 -1.805981E+01 -4.520793E+00 -1.497761E+01 5 6 TRIA2 -6.536879E+02 -5.145245E+02 2.658247E+03 1.922047E+01 1.266601E+01 1.756617E+01 5 7 TRIA2 -5.798462E+01 -4.537363E+01 1.678416E+03 -1.171615E+00 -1.109419E+00 -3.388997E+00 5 8 TRIA2 -2.503172E+02 6.945139E+01 7.499926E+02 2.415966E+01 3.648727E+00 -1.273564E+01 5 *TOTALS* 7.120361E-01 -3.391075E+00 8.567505E-01 8.747759E+00 3.773780E+00 -4.022453E+00 0 6 APP-LOAD 1.728638E-01 2.987254E+01 7.051938E+02 2.418957E-01 3.884261E-02 4.104747E-02 6 3 TRIA2 -1.316539E+02 4.806218E+01 5.543263E+02 3.193482E+00 1.718238E+00 -3.912337E+01 6 4 TRIA2 -3.460828E+02 -3.023360E+02 -1.521579E+03 2.257530E+01 5.516879E+00 4.435593E+01 6 8 TRIA2 4.755493E+02 2.281724E+02 2.621643E+02 -2.803808E+01 -9.029338E+00 -6.173869E+00 6 *TOTALS* -2.014465E+00 3.771072E+00 1.058044E-01 -2.027405E+00 -1.755378E+00 -9.002671E-01 0 7 APP-LOAD -8.713752E+00 -8.578720E+01 9.233867E+02 3.054081E-01 3.443168E-01 -6.544707E-03 7 F-OF-SPC 0.0 0.0 0.0 4.001146E+01 5.800446E+01 0.0 7 5 TRIA2 -6.090380E+01 3.450291E+01 -9.449326E+02 -2.077555E+01 -2.200430E+01 -1.346155E+01 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 55 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 7 9 TRIA2 4.910282E+01 -3.794910E+01 5.417636E+02 -7.109656E+00 -1.786020E+01 -6.913864E+00 7 10 TRIA2 2.879531E+01 9.109573E+01 -5.210271E+02 -1.071058E+01 -1.284880E+01 2.010298E+01 7 *TOTALS* 8.280577E+00 1.862335E+00 -8.093872E-01 1.721087E+00 5.635463E+00 -2.789726E-01 0 8 APP-LOAD -7.813404E+00 1.065885E+01 1.713894E+03 -5.015798E-01 -4.906461E-01 1.890127E-01 8 5 TRIA2 -9.419183E+01 3.061320E+00 -2.620931E+02 4.441898E+00 8.308668E+00 -1.442826E+01 8 6 TRIA2 3.417722E+02 2.405189E+02 -1.831733E+03 9.208057E+00 6.068203E+00 1.005117E+01 8 7 TRIA2 1.314105E+02 1.179621E+02 -1.825876E+03 -7.489979E+00 -7.062070E+00 -4.203946E-01 8 10 TRIA2 -1.515477E+02 -2.551847E+02 1.175189E+03 1.441823E+01 1.684959E+01 4.057904E+00 8 11 TRIA2 2.641729E+01 5.560585E+01 6.112394E+02 -3.111275E+00 -6.124613E+00 -1.261970E-01 8 12 TRIA2 -2.430510E+02 -1.707789E+02 4.193697E+02 -3.777042E-01 -1.102715E+00 -4.775659E+00 8 *TOTALS* 2.995941E+00 1.843369E+00 -9.857178E-03 1.658765E+01 1.644642E+01 -5.452430E+00 0 9 APP-LOAD -1.134913E+00 6.922975E+01 8.082831E+02 1.851889E-01 8.460750E-02 -1.271415E-01 9 7 TRIA2 -7.342585E+01 -7.258843E+01 1.474598E+02 1.828194E+00 1.732188E+00 6.021678E+00 9 8 TRIA2 -2.252322E+02 -2.976237E+02 -1.012157E+03 -3.274841E+00 -2.427846E+00 -6.722205E+00 9 12 TRIA2 2.992321E+02 3.032212E+02 5.695900E+01 -3.043527E+00 -2.556068E+00 2.284848E+00 9 *TOTALS* -5.608521E-01 2.238739E+00 5.449333E-01 -4.304986E+00 -3.167119E+00 1.457180E+00 0 10 APP-LOAD -4.381930E+00 -4.924676E+01 4.427760E+02 5.198105E-03 1.111385E-02 9.605052E-03 10 F-OF-SPC 0.0 0.0 0.0 6.963536E+00 2.038683E+01 0.0 10 9 TRIA2 -9.377535E+00 5.541270E+01 -4.405495E+02 -5.432913E+00 -1.712566E+01 2.854933E+00 10 *TOTALS* -1.375947E+01 6.165939E+00 2.226471E+00 1.535820E+00 3.272285E+00 2.864538E+00 0 11 APP-LOAD -8.327908E+00 1.640791E+00 1.165977E+03 -2.205626E-02 6.012074E-02 1.684932E-01 11 9 TRIA2 -3.972529E+01 -1.746359E+01 -1.012141E+02 -3.542132E+00 -1.084723E+00 -2.172956E+01 11 10 TRIA2 1.227524E+02 1.640890E+02 -6.541619E+02 6.815176E+00 7.885642E+00 7.402486E+00 11 11 TRIA2 -8.057104E+01 -1.377399E+02 -4.106351E+02 -2.891105E+00 -5.851166E+00 1.138620E+01 11 *TOTALS* -5.871788E+00 1.052634E+01 -3.393555E-02 3.598821E-01 1.009874E+00 -2.772373E+00 0 12 APP-LOAD -1.775301E+00 5.677698E+01 6.765817E+02 7.475752E-03 -2.254627E-02 -3.885616E-02 12 F-OF-SPC 0.0 0.0 0.0 4.055984E+00 4.510184E+00 0.0 12 11 TRIA2 5.415375E+01 8.213402E+01 -2.006044E+02 -3.186670E-03 -8.250567E-03 1.420817E-01 12 12 TRIA2 -5.618105E+01 -1.324423E+02 -4.763287E+02 -2.939478E+00 -2.762764E+00 3.126544E-01 12 *TOTALS* -3.802601E+00 6.468704E+00 -3.514404E-01 1.120795E+00 1.716624E+00 4.158800E-01 0 101 APP-LOAD 9.188749E+02 0.0 0.0 0.0 0.0 0.0 101 201 HEXA1 -5.545531E+02 -2.061482E+04 2.109401E+03 0.0 0.0 0.0 101 203 HEXA1 -3.257165E+03 -1.534276E+04 1.159523E+03 0.0 0.0 0.0 101 *TOTALS* -2.892843E+03 -3.595758E+04 3.268924E+03 0.0 0.0 0.0 0 103 APP-LOAD 5.368098E+02 0.0 0.0 0.0 0.0 0.0 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 56 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 103 201 HEXA1 -1.561017E+03 -2.114760E+04 1.651306E+02 0.0 0.0 0.0 103 203 HEXA1 -4.028373E+03 -1.789825E+04 3.411208E+03 0.0 0.0 0.0 103 *TOTALS* -5.052580E+03 -3.904585E+04 3.576339E+03 0.0 0.0 0.0 0 104 APP-LOAD 1.556247E+03 0.0 0.0 0.0 0.0 0.0 104 201 HEXA1 2.920024E+03 2.440428E+04 -2.434271E+03 0.0 0.0 0.0 104 202 HEXA1 -1.312893E+03 -2.119710E+04 1.535735E+02 0.0 0.0 0.0 104 203 HEXA1 5.122261E+02 1.459175E+04 -1.074511E+03 0.0 0.0 0.0 104 204 HEXA1 -3.675601E+03 -1.779896E+04 3.355208E+03 0.0 0.0 0.0 104 *TOTALS* 3.173828E-03 -2.343750E-02 -4.882812E-04 0.0 0.0 0.0 0 105 APP-LOAD 1.019437E+03 0.0 0.0 0.0 0.0 0.0 105 202 HEXA1 3.698980E+03 2.461676E+04 -2.529745E+03 0.0 0.0 0.0 105 204 HEXA1 3.341557E+02 1.442912E+04 -1.046593E+03 0.0 0.0 0.0 105 *TOTALS* 5.052573E+03 3.904588E+04 -3.576338E+03 0.0 0.0 0.0 0 107 APP-LOAD 4.979494E+02 0.0 0.0 0.0 0.0 0.0 107 202 HEXA1 3.062928E+03 1.748357E+04 1.508848E+02 0.0 0.0 0.0 107 204 HEXA1 -6.680239E+02 1.847399E+04 -3.419808E+03 0.0 0.0 0.0 107 *TOTALS* 2.892854E+03 3.595756E+04 -3.268923E+03 0.0 0.0 0.0 0 108 APP-LOAD 1.416824E+03 0.0 0.0 0.0 0.0 0.0 108 201 HEXA1 3.362885E+03 1.740711E+04 8.210165E+01 0.0 0.0 0.0 108 202 HEXA1 -1.630591E+03 -1.983064E+04 2.264565E+03 0.0 0.0 0.0 108 203 HEXA1 -1.772112E+02 1.807378E+04 -3.477736E+03 0.0 0.0 0.0 108 204 HEXA1 -2.971914E+03 -1.565024E+04 1.131070E+03 0.0 0.0 0.0 108 *TOTALS* -6.835938E-03 1.269531E-02 -3.662109E-04 0.0 0.0 0.0 0 113 APP-LOAD 3.151685E+02 0.0 0.0 0.0 0.0 0.0 113 201 HEXA1 -2.239955E+03 -1.433346E+04 2.019417E+03 0.0 0.0 0.0 113 *TOTALS* -1.924787E+03 -1.433346E+04 2.019417E+03 0.0 0.0 0.0 0 115 APP-LOAD 1.897285E+03 0.0 0.0 0.0 0.0 0.0 115 201 HEXA1 -2.824763E+03 -1.641934E+04 1.888185E+03 0.0 0.0 0.0 115 *TOTALS* -9.274786E+02 -1.641934E+04 1.888185E+03 0.0 0.0 0.0 0 116 APP-LOAD 0.0 0.0 2.448729E+03 0.0 0.0 0.0 116 201 HEXA1 -3.412236E+03 -1.419661E+04 -1.684708E+03 0.0 0.0 0.0 116 202 HEXA1 4.837932E+02 1.860887E+04 -6.144819E+03 0.0 0.0 0.0 116 *TOTALS* -2.928442E+03 4.412259E+03 -5.380799E+03 0.0 0.0 0.0 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 57 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 0 117 APP-LOAD 5.514448E+02 0.0 0.0 0.0 0.0 0.0 117 202 HEXA1 3.760294E+02 1.641932E+04 -1.888186E+03 0.0 0.0 0.0 117 *TOTALS* 9.274741E+02 1.641932E+04 -1.888186E+03 0.0 0.0 0.0 0 119 APP-LOAD 1.599306E+03 0.0 0.0 0.0 0.0 0.0 119 202 HEXA1 3.254835E+02 1.433346E+04 -2.019419E+03 0.0 0.0 0.0 119 *TOTALS* 1.924789E+03 1.433346E+04 -2.019419E+03 0.0 0.0 0.0 0 120 APP-LOAD 0.0 0.0 1.914474E+03 0.0 0.0 0.0 120 201 HEXA1 -4.177285E+02 -1.683789E+04 -2.730279E+03 0.0 0.0 0.0 120 202 HEXA1 3.384534E+03 1.247737E+04 -3.673084E+03 0.0 0.0 0.0 120 *TOTALS* 2.966806E+03 -4.360529E+03 -4.488889E+03 0.0 0.0 0.0 0 121 APP-LOAD 1.228344E+02 0.0 0.0 0.0 0.0 0.0 121 F-OF-SPC 0.0 3.451873E+04 -4.134268E+03 0.0 0.0 0.0 121 203 HEXA1 -5.553750E+03 -3.451873E+04 4.134268E+03 0.0 0.0 0.0 121 *TOTALS* -5.430916E+03 0.0 0.0 0.0 0.0 0.0 0 123 APP-LOAD 1.489151E+01 0.0 0.0 0.0 0.0 0.0 123 F-OF-SPC 0.0 3.069117E+04 4.855215E+02 0.0 0.0 0.0 123 203 HEXA1 -3.564659E+03 -3.069117E+04 -4.855215E+02 0.0 0.0 0.0 123 *TOTALS* -3.549767E+03 1.953125E-03 0.0 0.0 0.0 0.0 0 124 F-OF-SPC 0.0 -4.287852E+03 4.672181E+03 0.0 0.0 0.0 124 APP-LOAD 1.377259E+02 0.0 0.0 0.0 0.0 0.0 124 203 HEXA1 3.508422E+03 3.494582E+04 -4.187527E+03 0.0 0.0 0.0 124 204 HEXA1 -3.646136E+03 -3.065797E+04 -4.846544E+02 0.0 0.0 0.0 124 *TOTALS* 1.220703E-02 -1.953125E-03 -1.220703E-04 0.0 0.0 0.0 0 125 APP-LOAD 1.228344E+02 0.0 0.0 0.0 0.0 0.0 125 F-OF-SPC 0.0 -3.494844E+04 4.170538E+03 0.0 0.0 0.0 125 204 HEXA1 3.426925E+03 3.494844E+04 -4.170538E+03 0.0 0.0 0.0 125 *TOTALS* 3.549759E+03 0.0 0.0 0.0 0.0 0.0 0 127 APP-LOAD 1.489151E+01 0.0 0.0 0.0 0.0 0.0 127 F-OF-SPC 0.0 -3.181861E+04 -5.212381E+02 0.0 0.0 0.0 127 204 HEXA1 5.416015E+03 3.181861E+04 5.212381E+02 0.0 0.0 0.0 127 *TOTALS* 5.430907E+03 0.0 0.0 0.0 0.0 0.0 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 58 NASTRAN TEST PROBLEM NO. T16-01-1A 0 NONLINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 G R I D P O I N T F O R C E B A L A N C E POINT-ID ELEMENT-ID SOURCE T1 T2 T3 R1 R2 R3 0 128 F-OF-SPC 0.0 2.901672E+03 -4.634374E+03 0.0 0.0 0.0 128 APP-LOAD 1.377259E+02 0.0 0.0 0.0 0.0 0.0 128 203 HEXA1 5.330375E+03 3.177433E+04 5.202963E+02 0.0 0.0 0.0 128 204 HEXA1 -5.468096E+03 -3.467600E+04 4.114077E+03 0.0 0.0 0.0 128 *TOTALS* 4.882812E-03 3.906250E-03 0.0 0.0 0.0 0.0 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 59 NASTRAN TEST PROBLEM NO. T16-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 PAPER SIZE = 10.0 X 10.0, PAPER TYPE = VELLUM PEN 1 - SIZE 1, BLACK PEN 2 - SIZE 1, BLACK PEN 3 - SIZE 1, BLACK PEN 4 - SIZE 1, BLACK PEN 5 - SIZE 1, BLACK PEN 6 - SIZE 1, BLACK PEN 7 - SIZE 1, BLACK PEN 8 - SIZE 1, BLACK E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 34.27, BETA = 23.17, ALPHA = 0.00, AXES = +X,+Y,+Z, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 7.864423E-01 ORIGIN 1 - X0 = -4.301828E+00, Y0 = -0.612309E+00 (INCHES) ORIGIN 2 - X0 = 2.823151E-02, Y0 = -0.474000E+01 (INCHES) ORIGIN 3 - X0 = -4.180000E+00, Y0 = -0.509836E+01 (INCHES) ORIGIN 4 - X0 = -4.282722E+00, Y0 = -0.932401E+00 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 6 STATIC DEFORM. 2 - SUBCASE 1 - LOAD PLOT 7 STATIC DEFORM. 2 - SUBCASE 1 - LOAD ORIGIN 4 USED IN THIS PLOT 1 STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 60 NASTRAN TEST PROBLEM NO. T16-01-1A 0 MESSAGES FROM THE PLOT MODULE P L O T T E R D A T A THE FOLLOWING PLOTS ARE FOR A NASTPLT DRUM PLOTTER WITH TYPING CAPABILITY AN END-OF-FILE MARK FOLLOWS THE LAST PLOT THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER CSCALE = 1.00 PAPER SIZE = 10.0 X 10.0, PAPER TYPE = VELLUM PEN 1 - SIZE 1, BLACK PEN 2 - SIZE 1, BLACK PEN 3 - SIZE 1, BLACK PEN 4 - SIZE 1, BLACK PEN 5 - SIZE 1, BLACK PEN 6 - SIZE 1, BLACK PEN 7 - SIZE 1, BLACK PEN 8 - SIZE 1, BLACK E N G I N E E R I N G D A T A ORTHOGRAPHIC PROJECTION ROTATIONS (DEGREES) - GAMMA = 0.00, BETA = 0.00, ALPHA = 0.00, AXES = +Z,+X,+Y, SYMMETRIC SCALE (OBJECT-TO-PLOT SIZE) = 2.227927E+00 ORIGIN 1 - X0 = -4.301828E+00, Y0 = -0.612309E+00 (INCHES) ORIGIN 2 - X0 = 2.823151E-02, Y0 = -0.474000E+01 (INCHES) ORIGIN 3 - X0 = -4.180000E+00, Y0 = -0.509836E+01 (INCHES) ORIGIN 4 - X0 = -4.282722E+00, Y0 = -0.932401E+00 (INCHES) ORIGIN 5 - X0 = -4.180000E+00, Y0 = -0.509836E+01 (INCHES) PLOT MODULE MESSAGES CONTINUE PLOT 8 STATIC DEFORM. 2 - SUBCASE 1 - LOAD PLOT 9 STATIC DEFORM. 2 - SUBCASE 1 - LOAD ORIGIN 5 USED IN THIS PLOT * * * END OF JOB * * * 1 JOB TITLE = STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE DATE: 5/19/95 END TIME: 16:36:42 TOTAL WALL CLOCK TIME 4 SEC. ================================================ FILE: demoout/t17011a.out ================================================ **** * * * * * N A S T R A N * * * * **** SUN COMPUTER SYSTEMS SOLARIS VERSION SYSTEM RELEASE - 1995 ED. DISTRIBUTED BY COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC) UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602 PHONE: (706)542-3265 FAX: (706)542-4807 1 / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 2 0 INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' 1 / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 3 0 0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS) 1 / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 4 0 N A S T R A N E X E C U T I V E C O N T R O L D E C K E C H O 0 ID T17011A,NASTRAN $ $ THIS DEMO IS SAME AS T03131A WHERE SOLUTION 3 IS USED WITH DMAP $ ALTERS, COSDDAM $ SOL 17 APP DISP DIAG 14,25 TIME 20 CEND 0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES AND NEW BULKDATA CARDS INFORMATION 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 5 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL 0 C A S E C O N T R O L D E C K E C H O CARD COUNT 1 TITLE = DYNAMIC DESIGN ANALYSIS METHOD, DDAM 2 SUBTITLE = NASTRAN TEST PROBLEM NO. T17-01-1A 3 LABEL = HY-100 PLATFORM MODEL 4 OLOAD = ALL 5 DISP = ALL 6 METHOD = 1 7 SPC = 1 8 FORCE(SORT2) = ALL 9 STRESS(SORT2) = ALL 10 BEGIN BULK (NO. OF UNSORTED BULK DATA CARDS READ = 107, INCLUDING 0 COMMENT CARDS) 0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK. 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 6 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL 0 S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 1- BAROR 1 0. 1. 1. 1 2- CBAR 1 1 2 3- CBAR 2 2 3 4- CBAR 3 3 4 5- CBAR 4 4 5 6- CBAR 5 4 2 6 1. 0. 1. 7- CBAR 6 5 3 8 1. 0. 1. 8- CBAR 7 5 4 10 1. 0. 1. 9- CBAR 8 2 6 7 10- CBAR 9 2 7 8 11- CBAR 10 2 8 9 12- CBAR 11 2 9 10 13- CBAR 12 4 6 11 1. 0. 1. 14- CBAR 13 5 8 13 1. 0. 1. 15- CBAR 14 5 10 15 1. 0. 1. 16- CBAR 15 2 11 12 17- CBAR 16 2 12 13 18- CBAR 17 2 13 14 19- CBAR 18 2 14 15 20- CBAR 19 4 11 17 1. 0. 1. 21- CBAR 20 5 13 20 1. 0. 1. 22- CBAR 21 5 15 23 1. 0. 1. 23- CBAR 22 3 16 17 24- CBAR 23 3 17 18 25- CBAR 24 3 18 19 26- CBAR 25 3 19 20 27- CBAR 26 3 20 21 28- CBAR 27 3 21 22 29- CBAR 28 3 22 23 30- CBAR 29 3 23 24 31- CBAR 30 19 25 0. 1. -1. 32- CBAR 31 22 26 0. 1. -1. 33- CBAR 32 4 17 27 1. 0. 1. 34- CBAR 33 5 23 28 1. 0. 1. 35- CONM2 32 2 1 7.76 36- CONM2 33 4 1 7.76 37- CONM2 34 7 1 9.52 38- CONM2 35 9 1 9.52 39- CONM2 36 11 1 29.97 40- CONM2 37 12 1 4. 41- CONM2 38 14 1 4. 42- CONM2 39 15 1 29.97 43- CONM2 40 18 1 5. 44- CONM2 41 21 1 5. 45- CORD2R 1 0. 0. 0. 0. 0. 1. +COR1 46- +COR1 1. 0. 1. 47- EIGR 1 GIV 30 1.-3 +EGR1 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 7 NASTRAN TEST PROBLEM NO. T17-01-1A HY-100 PLATFORM MODEL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 48- +EGR1 MAX 49- GRID 1 0. 0. 50- GRID 2 0. 50. 51- GRID 3 0. 150. 52- GRID 4 0. 230. 53- GRID 5 0. 280. 54- GRID 6 48. 50. 55- GRID 7 48. 130. 56- GRID 8 48. 150. 57- GRID 9 48. 180. 58- GRID 10 48. 230. 59- GRID 11 120. 50. 60- GRID 12 120. 90. 61- GRID 13 120. 150. 62- GRID 14 120. 195. 63- GRID 15 120. 230. 64- GRID 16 180. 0. 65- GRID 17 180. 50. 66- GRID 18 180. 100. 67- GRID 19 180. 120. 68- GRID 20 180. 150. 69- GRID 21 180. 190. 70- GRID 22 180. 205. 71- GRID 23 180. 230. 72- GRID 24 180. 280. 73- GRID 25 180. 120. -96. 74- GRID 26 180. 205. -96. 75- GRID 27 230. 50. 76- GRID 28 230. 230. 77- MAT1 1 3.+7 .3 0. 78- OMIT1 456 1 THRU 15 79- OMIT1 456 17 THRU 23 80- OMIT1 123456 3 6 8 10 13 17 19 +OMT1 81- +OMT1 20 22 23 82- PARAM ACC1 .4 83- PARAM ACC2 1. 84- PARAM ACC3 1. 85- PARAM ACCA 10.4 86- PARAM ACCB 480. 87- PARAM ACCC 20. 88- PARAM ACCD 0. 89- PARAM LMODES 30 90- PARAM VEL1 .4 91- PARAM VEL2 1. 92- PARAM VEL3 1. 93- PARAM VELA 20. 94- PARAM VELB 480. 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 8 NASTRAN TEST PROBLEM NO. T17-01-1A HY-100 PLATFORM MODEL S O R T E D B U L K D A T A E C H O CARD COUNT ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++ 95- PARAM VELC 100. 96- PBAR 1 1 20. 332. 133. 3.8 +BAR1 97- +BAR1 4.8 5.0 4.8 -5.0 -4.8 -5. -4.8 5.0 98- PBAR 2 1 12.6 114. 51.2 1.4 +BAR2 99- +BAR2 3.6 4. 3.6 -4. -3.6 -4. -3.6 4. 100- PBAR 3 1 20. 332. 133. 3.8 +BAR3 101- +BAR3 4.8 5. 4.8 -5. -4.8 -5. -4.8 5. 102- PBAR 4 1 44. 861. 432. 30. +BAR4 103- +BAR4 5.5 6. 5.5 -6. -5.5 -6. -5.5 6. 104- PBAR 5 1 44. 861. 432. 30. +BAR5 105- +BAR5 5.5 6. 5.5 -6. -5.5 -6. -5.5 6. 106- SPC1 1 123 1 5 107- SPC1 1 123456 16 24 25 26 27 28 ENDDATA 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 9 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 0 OPTIONS IN EFFECT GO ERR=2 LIST NODECK REF NOOSCAR ----------------- 1 BEGIN DISP 17 - DYNAMIC DESIGN ANALYSIS METHOD - APR. 1995 $ 2 PRECHK ALL $ 3 FILE LAMA=APPEND/PHIA=APPEND $ 4 PARAM //*MPY*/CARDNO/0/0 $ 5 GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ 6 ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ 7 EQUIV MPTA,MPT/ISOP $ 8 PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ 9 GP2 GEOM2,EQEXIN/ECT $ 10 PARAML PCDB//*PRES*////JUMPPLOT $ 11 PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ 12 COND P1,JUMPPLOT $ 13 PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ 14 PRTMSG PLTSETX// $ 15 PARAM //*MPY*/PLTFLG/1/1 $ 16 PARAM //*MPY*/PFILE/0/0 $ 17 COND P1,JUMPPLOT $ 18 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ 19 PRTMSG PLOTX1//$ 20 LABEL P1 $ 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 10 NASTRAN TEST PROBLEM NO. T17-01-1A HY-100 PLATFORM MODEL COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 21 GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ 22 TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ 23 EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ 24 COND ERROR4,NOSIMP $ 25 PARAM //*ADD*/NOKGGX/1/0 $ 26 PARAM //*ADD*/NOMGG/1/0 $ 27 EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ 28 PURGE KGGX/NOKGGX $ 29 COND JMPKGG,NOKGGX $ 30 EMA GPECT,KDICT,KELM/KGGX $ 31 PURGE KDICT,KELM/ALWAYS $ 32 LABEL JMPKGG $ 33 COND ERROR1,NOMGG $ 34 EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ 35 PURGE MDICT,MELM/ALWAYS $ 36 COND LGPWG,GRDPNT $ 37 GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ 38 OFP OGPWG,,,,,//S,N,CARDNO $ 39 LABEL LGPWG $ 40 EQUIV KGGX,KGG/NOGENL $ 41 COND LBL11,NOGENL $ 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 11 NASTRAN TEST PROBLEM NO. T17-01-1A HY-100 PLATFORM MODEL COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 42 SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ 43 LABEL LBL11 $ 44 GPSTGEN KGG,SIL/GPST $ 45 PARAM //*MPY*/NSKIP/0/0 $ 46 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ 47 OFP OGPST,,,,,//S,N,CARDNO $ 48 COND ERROR3,NOL $ 49 PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ 50 EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ 51 COND LBL2,MPCF1 $ 52 MCE1 USET,RG/GM $ 53 MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ 54 LABEL LBL2 $ 55 EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ 56 COND LBL3,SINGLE $ 57 SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ 58 LABEL LBL3 $ 59 EQUIV KFF,KAA/OMIT $ 60 EQUIV MFF,MAA/OMIT $ 61 COND LBL5,OMIT $ 62 SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ 63 SMP2 USET,GO,MFF/MAA $ 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 12 NASTRAN TEST PROBLEM NO. T17-01-1A HY-100 PLATFORM MODEL COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 64 LABEL LBL5 $ 65 COND LBL6,REACT $ 66 RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ 67 RBMG2 KLL/LLL $ 68 RBMG3 LLL,KLR,KRR/DM $ 69 RBMG4 DM,MLL,MLR,MRR/MR $ 70 LABEL LBL6 $ 71 DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ 72 COND ERROR2,NOEED $ 73 PARAM //*MPY*/NEIGV/1/-1 $ 74 READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ 75 DIAGONAL MI/MIS/*SQUARE*/-0.5 $ 76 SMPYAD MIS,MI,MIS,,,/MINEW/3 $ --> MINEW IS NOT USED, MIS IS NO LONG U 77 OFP OEIGS,,,,,//S,N,CARDNO $ 78 COND FINIS,NEIGV $ 79 OFP LAMA,,,,,//S,N,CARDNO $ 80 SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ 81 COND NOMPCF,GRDEQ $ 82 EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ 83 OFP OQM1,,,,,//S,N,CARDNO $ 84 LABEL NOMPCF $ 85 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 13 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG*////COMPS 86 COND P2,JUMPPLOT $ 87 PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ 88 PRTMSG PLOTX2// $ 89 LABEL P2 $ 90 GENCOS BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/LUSET/S,N,NSCALE $ 91 DIAGONAL MI/MID/*SQUARE*/-1.0 $ 92 MPYAD MGG,PHIG,/MP/0 $ 93 MPYAD MP,DIRCOS,/PMD/1 $ 94 MPYAD MID,PMD,/PF/0 $ 95 DDAMAT PF,PMD/EFFW/C,Y,GG=386.4 $ 96 LAMX, ,LAMA/LAMB/-1 $ 97 GENPART PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $ 98 PARTN LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $ 99 PARAM //*GE*/TEST/C,Y,LMODES/NMODES $ 100 COND DDAM,TEST $ 101 PARTN PF,,RPPF/,PFR,,/1 $ 102 EQUIV PFR,PF $ 103 PARTN EFFW,,RPPF/,EFFWR,,/1 $ 104 EQUIV EFFWR,EFFW $ 105 PARTN MP,CPMP,/,,MPR,/1 $ 106 EQUIV MPR,MP $ 107 PARTN PHIG,CPMP,/,,PHIGR,/1 $ 108 EQUIV PHIGR,PHIG $ 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 14 NASTRAN TEST PROBLEM NO. T17-01-1A HY-100 PLATFORM MODEL COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 109 LABEL DDAM $ 110 PURGE MI,MID,DIRCOS,LAMB,RPLAMB,CPLAMB,RPPF,CPMP 111 DESVEL EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/ C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/ C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $ 112 DDAMAT PF,MINAC/PVW/1.0 $ 113 DDAMAT PF,MINOW2/PVOW/1.0 $ 114 DDAMPG PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $ 115 DDAMPG MP,PVW/PG/NMODES/NDIR $ 116 CASEGEN CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $ 117 EQUIV CASEDD,CASECC $ 118 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,,/ ,OQG3,OUGV3,OES3,OEF3,,,/*STATICS*/S,N,NOSORT2=-1/-1 $ 119 SDR3 OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $ 120 NRLSUM OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT=123/ C,Y,SQRSS=0 $ 121 OFP NRLSTR,NRLFOR,,,,//S,N,CARDNO $ 122 PURGE MP,PF,EFFW,LAMA,LAMB,SSDV,ACC,VWG,MINAC,MINOW2,PVW,OMEGA, OQG3,OUGV3,OES3,OEF3,OUGV4,OQG4,OEF4,OES4 123 COMBUGV UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $ 124 CASEGEN CASECC/CASEEE/1/NDIR/NMODES $ 125 SDR2 CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,,/ ,,OUGV5,,,,,/*STATICS*/S,N,NOSORT2/-1 $ 126 OFP OUGV5,,,,,//S,N,CARDNO $ 127 JUMP FINIS $ 128 LABEL ERROR1 $ 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 15 NASTRAN TEST PROBLEM NO. T17-01-1A HY-100 PLATFORM MODEL COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING 129 PRTPARM //-1/*MODES* $ 130 LABEL ERROR2 $ 131 PRTPARM //-2/*MODES* $ 132 LABEL ERROR3 $ 133 PRTPARM //-3/*MODES* $ 134 LABEL ERROR4 $ 135 PRTPARM //-4/*MODES* $ 136 LABEL FINIS $ 137 PURGE DUMMY/ALWAYS $ 138 END $ 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 16 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING PARAMETER TYPE DMAP STATEMENT NUMBERS ALWAYS I 0005 0031 0035 0137 CARDNO I 0004 0038 0038* 0047 0047* 0077 0077* 0079 0079* 0083 0083* 0121 0121* 0126 0126* COMPS I 0022 0022* 0023 0023 0085 GENEL I 0022 GRDEQ I 0081 0082 GRDPNT I 0036 0037 ISOP I 0006 0006* 0007 JUMPPLOT I 0010 0011 0012 0013 0013* 0017 0018 0018* 0086 0087 LUSEP I 0008 0008* 0087 LUSET I 0005 0005* 0008 0018 0022 0042 0046 0071 0090 LUSETD I 0071 MPCF1 I 0046 0046* 0049 0050 0050 0051 MPCF2 I 0046 0046* NDIR I 0114 0114* 0115 0116 0120 0123 0124 NEIGV I 0073 0074 0074* 0078 NMODES I 0097 0097* 0099 0114 0114* 0115 0116 0120 0123 0124 NOA I 0046 0046* NODLT I 0071 NOEED I 0071 0071* 0072 NOFRL I 0071 NOGENL I 0022 0022* 0040 0041 0042 NOGPDT I 0005 NOGRAV I 0021 NOKGGX I 0025 0027 0027* 0028 0029 NOL I 0046 0046* 0048 NOMGG I 0026 0027 0027* 0033 NONLFT I 0071 NOPSDL I 0071 NOSET I 0046 0046* 0049 NOSIMP I 0022 0022* 0024 0042 NOSORT2 I 0118 0118* 0125 0125* NOTFL I 0071 NOTRL I 0071 NOUE I 0071 NSCALE I 0090 0090* NSIL I 0013 0013* 0018 0087 NSKIP I 0045 0046 0046* OMIT I 0046 0046* 0049 0059 0060 0061 OPT I 0082 PFILE I 0016 0018 0018* 0087 0087* PLTFLG I 0015 0018 0018* 0087 REACT I 0046 0046* 0049 0065 REPEAT I 0046 0046* SINGLE I 0046 0046* 0049 0055 0055 0056 TEST I 0099 0100 * DENOTES APPEARANCE OF PARAMETER IN AUTOMATICALLY GENERATED SAVE INSTRUCTION 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 17 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING MODULE NAME DMAP STATEMENT NUMBERS ANISOP 0006 CASEGEN 0116 0124 COMBUGV 0123 COND 0012 0017 0024 0029 0033 0036 0041 0048 0051 0056 0061 0065 0072 0078 0081 0086 0100 DDAMAT 0095 0112 0113 DDAMPG 0114 0115 DESVEL 0111 DIAGONAL 0075 0091 DPD 0071 EMA 0030 0034 EMG 0027 EQMCK 0082 EXIT 0138 GENCOS 0090 GENPART 0097 GP1 0005 GP2 0009 GP3 0021 GP4 0046 GPSTGEN 0044 GPWG 0037 JUMP 0127 LAMX 0096 MCE1 0052 MCE2 0053 MPYAD 0092 0093 0094 NRLSUM 0120 OFP 0038 0047 0077 0079 0083 0121 0126 PARAM 0004 0015 0016 0025 0026 0045 0073 0099 PARAML 0010 PARTN 0098 0101 0103 0105 0107 PLOT 0018 0087 PLTSET 0013 PLTTRAN 0008 PRTMSG 0014 0019 0088 PRTPARM 0129 0131 0133 0135 RBMG1 0066 RBMG2 0067 RBMG3 0068 RBMG4 0069 READ 0074 SCE1 0057 SDR1 0080 SDR2 0085 0118 0125 SDR3 0119 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 18 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING MODULE NAME DMAP STATEMENT NUMBERS SMA3 0042 SMP1 0062 SMP2 0063 SMPYAD 0076 TA1 0022 XEQUIV 0007 0023 0040 0050 0055 0059 0060 0102 0104 0106 0108 0117 XPURGE 0011 0028 0031 0035 0049 0110 0122 0137 XSAVE 0005* 0006* 0008* 0013* 0018* 0022* 0027* 0038* 0046* 0047* 0071* 0074* 0077* 0079* 0083* 0087* 0090* 0097* 0114* 0118* 0121* 0125* 0126* * DENOTES AUTOMATICALLY GENERATED INSTRUCTIONS STATEMENT NUMBER REFERS TO DMAP SEQUENCE NUMBER OF PREVIOUS INSTRUCTION 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 19 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING DATA BLOCK DMAP STATEMENT NUMBERS ACC 0111* 0122 ASET 0046* BGPDP 0008* 0037 0085 BGPDT 0005* 0006 0008 0018 0022 0046 0082 0087 0090 0118 0125 CASECC 0018 0046 0074 0082 0085 0087 0116 0117 0118 0124 CASEDD 0116* 0117 CASEEE 0124* 0125 CPLAMB 0097* 0098 0110 CPMP 0097* 0105 0107 0110 CSTM 0005* 0022 0027 0037 0046 0082 0085 0090 0118 0125 DIRCOS 0090* 0093 0110 DIT 0027 0085 0118 0125 DM 0049 0068* 0069 0074 DUMMY 0137 DYNAMICS 0071 ECT 0009* 0013 0018 0022 EED 0071* 0074 EFFW 0095* 0103 0104 0111 0122 EFFWR 0103* 0104 ELSETS 0011 0013* 0018 0087 EPT 0006 0013 0022 0023 EPTX 0022* 0023 EQDYN 0071* EQEXIN 0005* 0006 0009 0013 0018 0021 0022 0037 0046 0082 0085 0087 0118 0125 EST 0022* 0027 0085 0118 0125 GEI 0022* 0042 GEOM1 0005 0006 GEOM2 0005 0009 0021 0027 GEOM3 0021 GEOM4 0046 GM 0049 0052* 0053 0080 0082 GO 0049 0062* 0063 0080 GPDT 0005* 0046 GPECT 0022* 0030 0034 0087 GPL 0005* 0071 0082 GPLD 0071* GPSETS 0011 0013* 0018 0087 GPST 0044* 0046 GPTT 0021* 0022 KAA 0059 0062* 0066 0074 KDICT 0027* 0030 0031 KELM 0027* 0030 0031 KFF 0055 0057* 0059 0062 KFS 0049 0057* 0080 KGG 0040 0042* 0044 0050 0053 0082 KGGX 0028 0030* 0040 0042 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 20 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING DATA BLOCK DMAP STATEMENT NUMBERS KLL 0066* 0067 KLR 0049 0066* 0068 KNN 0050 0053* 0055 0057 KOO 0062* KRR 0049 0066* 0068 LAMA 0074* 0079 0082 0085 0096 0122 LAMB 0096* 0098 0110 0122 LLL 0067* 0068 LOO 0062* MAA 0060 0063* 0066 0074 MDICT 0027* 0034 0035 MELM 0027* 0034 0035 MFF 0055 0057* 0060 0063 MGG 0034* 0037 0050 0053 0092 MI 0074* 0075 0076 0091 0110 MID 0091* 0094 0110 MINAC 0111* 0112 0122 MINEW 0076* MINOW2 0111* 0113 0122 MIS 0075* 0076 0076 MLL 0066* 0069 MLR 0049 0066* 0069 MNN 0050 0053* 0055 0057 MP 0092* 0093 0105 0106 0115 0122 MPR 0105* 0106 MPT 0006 0007 0022 0023 0027 0085 0118 0125 MPTA 0006* 0007 MPTX 0022* 0023 MR 0049 0069* 0074 MRR 0066* 0069 NRLFOR 0120* 0121 NRLSTR 0120* 0121 OEF1 0085* OEF1L 0085* OEF3 0118* 0119 0122 OEF4 0119* 0120 0122 OEIGS 0074* 0077 OES1 0085* 0087 OES1L 0085* 0087 OES3 0118* 0119 0122 OES4 0119* 0120 0122 OGPST 0046* 0047 OGPWG 0037* 0038 OMEGA 0098* 0111 0122 OPHIG 0085* OQG1 0085* 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 21 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL 0 COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING DATA BLOCK DMAP STATEMENT NUMBERS OQG3 0118* 0119 0122 OQG4 0119* 0122 OQM1 0082* 0083 OUGV3 0118* 0119 0122 OUGV4 0119* 0122 OUGV5 0125* 0126 PCDB 0010 0013 PCOMPS 0022* 0085 PF 0094* 0095 0097 0101 0102 0112 0113 0122 PFR 0101* 0102 PG 0115* PHIA 0074* 0080 PHIG 0080* 0082 0085 0092 0107 0108 0114 PHIGR 0107* 0108 PLOTX1 0018* 0019 PLOTX2 0087* 0088 PLTPAR 0011 0013* 0018 0087 PLTSETX 0011 0013* 0014 PMD 0093* 0094 0095 PPHIG 0085* 0087 PVOW 0113* 0114 PVW 0112* 0115 0122 QG 0049 0080* 0082 0085 0118 0125 RG 0046* 0052 RPLAMB 0097* 0098 0110 RPPF 0097* 0101 0103 0110 SIL 0005* 0008 0018 0022 0044 0071 0082 0085 0118 0125 SILD 0071* SIP 0008* 0087 SSDV 0111* 0122 UGV 0114* 0118 0123 UGVADC 0123* UGVADD 0123* UGVNRL 0123* 0125 UGVSQC 0123* UGVSQR 0123* USET 0046* 0052 0053 0057 0062 0063 0066 0071 0074 0080 0082 USETD 0071* VWG 0111* 0122 YS 0046* * DENOTES STATEMENTS IN WHICH THE DATA BLOCK APPEARSRS AS OUTPUT. 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 22 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL 0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT (CRI= 1, MTH= 3, MPC= 0, DEP=-1, PCH=-1) BEFORE RESEQUENCING - - - BANDWIDTH 11 PROFILE 117 MAX WAVEFRONT 6 AVG WAVEFRONT 4.179 RMS WAVEFRONT 4.322 RMS BANDWIDTH 4.989 AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - - BANDWIDTH 7 PROFILE 116 MAX WAVEFRONT 6 AVG WAVEFRONT 4.143 RMS WAVEFRONT 4.334 RMS BANDWIDTH 4.606 *** BANDIT SUMMARY *** BEFORE AFTER BANDWIDTH (B) 11 11 PROFILE (P) 117 117 MAXIMUM WAVEFRONT (C-MAX) 6 6 AVERAGE WAVEFRONT (C-AVG) 4.179 4.179 RMS WAVEFRONT (C-RMS) 4.322 4.322 RMS BANDWITCH (B-RMS) 4.989 4.989 NUMBER OF GRID POINTS (N) 28 NUMBER OF ELEMENTS (NON-RIGID) 43 NUMBER OF RIGID ELEMENTS PROCESSED* 0 NUMBER OF MPC EQUATIONS PROCESSED* 0 NUMBER OF COMPONENTS 1 MAXIMUM NODAL DEGREE 4 MINIMUM NODAL DEGREE 1 NUMBER OF UNIQUE EDGES 33 MATRIX DENSITY, PERCENT 11.990 NUMBER OF POINTS OF ZERO DEGREE 0 BANDIT OPEN CORE 1998969 CRITERION* RMS WAVEFRONT METHOD USED* GPS (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD) BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY 0 **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM** 0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION BAR ELEMENTS (ELEMENT TYPE 34) STARTING WITH ID 1 0*** USER INFORMATION MESSAGE 3113, EMG MODULE PROCESSING DOUBLE PRECISION CONM2 ELEMENTS (ELEMENT TYPE 30) STARTING WITH ID 32 0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS 0 SECONDS. PROBLEM SIZE IS 30, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF 1413 . 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 23 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL E I G E N V A L U E A N A L Y S I S S U M M A R Y (GIVENS METHOD) NUMBER OF EIGENVALUES EXTRACTED . . . . . . . 30 NUMBER OF EIGENVECTORS COMPUTED . . . . . . . 30 NUMBER OF EIGENVALUE CONVERGENCE FAILURES . . 0 NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. . 0 REASON FOR TERMINATION. . . . . . . . . . . . 1* LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . . 7.73E-08 . . . 29 MODE PAIR. . . . . . . . . . . . . . 22 NUMBER OF OFF-DIAG0NAL MODAL MASS TERMS FAILING CRITERION. . . . . . . . . 0 (* NORMAL TERMINATION) 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 24 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL R E A L E I G E N V A L U E S MODE EXTRACTION EIGENVALUE RADIAN CYCLIC GENERALIZED GENERALIZED NO. ORDER FREQUENCY FREQUENCY MASS STIFFNESS 1 29 2.104054E+03 4.586997E+01 7.300432E+00 2.928309E+01 6.161320E+04 2 30 1.016344E+04 1.008139E+02 1.604503E+01 4.533900E+01 4.608002E+05 3 28 1.570341E+04 1.253132E+02 1.994422E+01 4.568816E+01 7.174599E+05 4 27 1.618645E+04 1.272260E+02 2.024864E+01 7.802695E+01 1.262979E+06 5 26 1.860862E+04 1.364134E+02 2.171087E+01 2.196914E+01 4.088153E+05 6 25 2.977019E+04 1.725404E+02 2.746066E+01 1.283353E+01 3.820565E+05 7 24 3.638766E+04 1.907555E+02 3.035968E+01 2.039653E+01 7.421821E+05 8 23 4.641253E+04 2.154357E+02 3.428765E+01 1.889594E+01 8.770084E+05 9 22 6.204409E+04 2.490865E+02 3.964335E+01 5.546363E+00 3.441190E+05 10 21 7.171398E+04 2.677946E+02 4.262084E+01 1.515314E+01 1.086692E+06 11 20 7.733423E+04 2.780903E+02 4.425945E+01 4.523479E+00 3.498198E+05 12 19 1.061967E+05 3.258784E+02 5.186515E+01 5.172708E+00 5.493246E+05 13 18 1.231884E+05 3.509821E+02 5.586053E+01 6.889587E+00 8.487172E+05 14 17 1.328689E+05 3.645119E+02 5.801387E+01 2.185959E+01 2.904460E+06 15 16 1.365066E+05 3.694680E+02 5.880267E+01 6.424380E+00 8.769705E+05 16 15 1.573173E+05 3.966325E+02 6.312602E+01 6.076375E+01 9.559190E+06 17 14 2.138760E+05 4.624673E+02 7.360395E+01 5.585177E+00 1.194535E+06 18 13 3.149601E+05 5.612131E+02 8.931983E+01 2.696226E+01 8.492035E+06 19 12 3.255453E+05 5.705658E+02 9.080836E+01 2.774672E+01 9.032815E+06 20 11 5.696371E+05 7.547430E+02 1.201211E+02 5.660728E+00 3.224560E+06 21 10 7.194813E+05 8.482225E+02 1.349988E+02 5.653261E+00 4.067416E+06 22 9 1.393963E+06 1.180662E+03 1.879082E+02 9.469474E+00 1.320009E+07 23 8 1.621511E+06 1.273386E+03 2.026656E+02 1.533959E+01 2.487332E+07 24 7 1.666036E+06 1.290750E+03 2.054293E+02 1.895076E+01 3.157265E+07 25 6 1.898812E+06 1.377974E+03 2.193113E+02 1.103129E+01 2.094635E+07 26 5 1.905306E+06 1.380328E+03 2.196860E+02 1.101142E+01 2.098012E+07 27 4 2.450430E+06 1.565385E+03 2.491388E+02 1.538831E+01 3.770798E+07 28 3 2.921342E+06 1.709193E+03 2.720266E+02 7.173540E+00 2.095636E+07 29 2 4.031186E+06 2.007781E+03 3.195483E+02 9.426815E+00 3.800125E+07 30 1 4.562698E+06 2.136047E+03 3.399625E+02 6.798706E+00 3.102044E+07 0*** SYSTEM WARNING MESSAGE 2184, STRESS OR FORCE REQUEST FOR ELEMENT CONM2 (NASTRAN ELEM. TYPE = 30) WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT. 0*** SYSTEM WARNING MESSAGE 2184, STRESS OR FORCE REQUEST FOR ELEMENT CONM2 (NASTRAN ELEM. TYPE = 30) WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT. 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 25 NASTRAN TEST PROBLEM NO. T17-01-1A HY-100 PLATFORM MODEL 0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 26 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL DIRECTION 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 1 1.178790E+03 1.178791E+03 1.178791E+03 1.178790E+03 0.0 0.0 0.0 1.908183E+04 1.843211E+04 1.842893E+04 1.909144E+04 0.0 0.0 0 2 3.246815E+04 3.148989E+04 3.152558E+04 3.243316E+04 0.0 0.0 0.0 3.343917E+04 3.437664E+04 3.437654E+04 3.343966E+04 0.0 0.0 0 3 4.821773E+04 4.804644E+04 4.807116E+04 4.819211E+04 0.0 0.0 0.0 4.687209E+04 4.691547E+04 4.700289E+04 4.678652E+04 0.0 0.0 0 4 1.540778E+04 1.627876E+04 1.630153E+04 1.542827E+04 0.0 0.0 0.0 2.176439E+03 2.176437E+03 2.176437E+03 2.176439E+03 0.0 0.0 0 5 9.993179E+03 1.331252E+04 1.331255E+04 9.993160E+03 0.0 0.0 0.0 1.063326E+04 9.773314E+03 9.767684E+03 1.063971E+04 0.0 0.0 0 6 8.129687E+03 9.937537E+03 9.937777E+03 8.129443E+03 0.0 0.0 0.0 8.713049E+03 7.728199E+03 7.748788E+03 8.675994E+03 0.0 0.0 0 7 1.742439E+04 1.573233E+04 1.573219E+04 1.742453E+04 0.0 0.0 0.0 1.147027E+04 1.196116E+04 1.193640E+04 1.149368E+04 0.0 0.0 0 8 4.340386E+04 4.570248E+04 4.570418E+04 4.340203E+04 0.0 0.0 0.0 5.138514E+04 4.890187E+04 4.893790E+04 5.135182E+04 0.0 0.0 0 9 5.158394E+04 4.864233E+04 4.867581E+04 5.154818E+04 0.0 0.0 0.0 7.008777E+04 7.337635E+04 7.334931E+04 7.011454E+04 0.0 0.0 0 10 2.404755E+04 2.632583E+04 2.630614E+04 2.406790E+04 0.0 0.0 0.0 5.605316E+04 5.440032E+04 5.439816E+04 5.605539E+04 0.0 0.0 0 11 5.633305E+04 5.422484E+04 5.422278E+04 5.633540E+04 0.0 0.0 0.0 7.504202E+04 7.718702E+04 7.719223E+04 7.503688E+04 0.0 0.0 0 12 9.235566E+03 7.373854E+03 7.371533E+03 9.239488E+03 0.0 0.0 0.0 7.740750E+03 1.121086E+04 1.116488E+04 7.813707E+03 0.0 0.0 0 13 7.996412E+03 6.336864E+03 6.329872E+03 8.009531E+03 0.0 0.0 0.0 7.514286E+03 9.272699E+03 9.329328E+03 7.458526E+03 0.0 0.0 0 14 1.077471E+04 1.004266E+04 1.004687E+04 1.076662E+04 0.0 0.0 0.0 1.328446E+04 1.402298E+04 1.388890E+04 1.339253E+04 0.0 0.0 0 15 6.905577E+04 6.784570E+04 6.785236E+04 6.904927E+04 0.0 0.0 0.0 3.657754E+04 3.751709E+04 3.753154E+04 3.656389E+04 0.0 0.0 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 27 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL DIRECTION 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 16 3.664695E+04 3.749719E+04 3.751059E+04 3.663227E+04 0.0 0.0 0.0 3.544575E+04 3.501445E+04 3.505797E+04 3.539959E+04 0.0 0.0 0 17 4.575274E+04 4.625714E+04 4.627828E+04 4.573425E+04 0.0 0.0 0.0 4.056975E+04 4.199944E+04 4.198895E+04 4.058120E+04 0.0 0.0 0 18 4.065945E+04 4.188680E+04 4.187612E+04 4.067071E+04 0.0 0.0 0.0 7.811836E+04 7.638349E+04 7.638800E+04 7.811380E+04 0.0 0.0 0 19 2.675063E+04 2.467412E+04 2.464298E+04 2.679033E+04 0.0 0.0 0.0 2.742687E+04 2.702892E+04 2.700342E+04 2.744233E+04 0.0 0.0 0 20 7.971871E+03 8.354741E+03 8.379634E+03 7.959457E+03 0.0 0.0 0.0 1.137305E+04 1.192163E+04 1.195130E+04 1.135078E+04 0.0 0.0 0 21 1.601169E+04 2.122718E+04 2.109472E+04 1.611546E+04 0.0 0.0 0.0 2.084099E+04 1.855239E+04 1.849146E+04 2.096137E+04 0.0 0.0 0 22 1.264243E+04 1.116928E+04 1.115781E+04 1.269140E+04 0.0 0.0 0.0 1.337803E+04 1.470571E+04 1.470832E+04 1.337452E+04 0.0 0.0 0 23 5.712354E+04 5.733761E+04 5.735087E+04 5.711045E+04 0.0 0.0 0.0 3.233896E+04 3.188714E+04 3.192883E+04 3.229175E+04 0.0 0.0 0 24 3.229660E+04 3.192694E+04 3.196904E+04 3.224980E+04 0.0 0.0 0.0 2.013063E+04 1.995136E+04 1.992630E+04 2.014910E+04 0.0 0.0 0 25 2.013178E+04 1.988383E+04 1.994375E+04 2.008669E+04 0.0 0.0 0.0 4.165341E+04 4.200947E+04 4.208063E+04 4.158416E+04 0.0 0.0 0 26 4.583040E+04 4.632112E+04 4.630554E+04 4.584333E+04 0.0 0.0 0.0 3.510403E+04 3.453568E+04 3.445950E+04 3.518263E+04 0.0 0.0 0 27 3.517695E+04 3.446425E+04 3.438822E+04 3.525569E+04 0.0 0.0 0.0 1.779906E+04 1.715081E+04 1.716300E+04 1.779837E+04 0.0 0.0 0 28 1.773523E+04 1.711583E+04 1.708370E+04 1.775291E+04 0.0 0.0 0.0 6.622332E+04 6.668190E+04 6.667159E+04 6.623608E+04 0.0 0.0 0 29 1.530243E+04 1.764250E+04 1.771379E+04 1.525162E+04 0.0 0.0 0.0 1.262470E+04 1.023964E+04 1.026601E+04 1.255865E+04 0.0 0.0 0 30 4.216344E+02 5.636169E+02 4.161478E+02 5.419356E+02 0.0 0.0 0.0 1.546431E+04 1.550369E+04 1.546231E+04 1.550769E+04 0.0 0.0 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 28 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL DIRECTION 1 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 31 2.571862E+02 4.645767E+02 2.093839E+02 4.130486E+02 0.0 0.0 0.0 5.750908E+03 6.102871E+03 5.739330E+03 6.122879E+03 0.0 0.0 0 32 2.057437E+04 2.370996E+04 2.369729E+04 2.057491E+04 0.0 0.0 0.0 2.070261E+04 1.799298E+04 1.803163E+04 2.070591E+04 0.0 0.0 0 33 2.509552E+04 2.178979E+04 2.170314E+04 2.516778E+04 0.0 0.0 0.0 1.587497E+04 1.993111E+04 1.991058E+04 1.589727E+04 0.0 0.0 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 29 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL DIRECTION 2 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 1 3.447676E+04 3.447677E+04 3.447677E+04 3.447676E+04 0.0 0.0 0.0 8.194910E+04 7.757912E+04 7.653505E+04 8.299366E+04 0.0 0.0 0 2 8.236158E+04 8.653947E+04 8.763060E+04 8.127011E+04 0.0 0.0 0.0 8.965769E+04 8.529383E+04 8.444664E+04 9.050498E+04 0.0 0.0 0 3 7.829619E+04 7.062399E+04 7.146624E+04 7.745463E+04 0.0 0.0 0.0 7.079675E+04 7.586494E+04 7.763704E+04 6.902289E+04 0.0 0.0 0 4 8.389366E+04 8.208953E+04 8.028597E+04 8.569606E+04 0.0 0.0 0.0 3.390645E+04 3.390645E+04 3.390645E+04 3.390645E+04 0.0 0.0 0 5 5.197108E+04 5.266442E+04 5.266301E+04 5.197250E+04 0.0 0.0 0.0 3.598179E+04 3.582001E+04 3.543059E+04 3.637118E+04 0.0 0.0 0 6 5.166925E+04 5.193077E+04 5.193484E+04 5.166520E+04 0.0 0.0 0.0 4.761126E+04 4.694499E+04 4.757216E+04 4.698284E+04 0.0 0.0 0 7 5.001864E+04 4.903168E+04 4.902903E+04 5.002129E+04 0.0 0.0 0.0 3.354098E+04 3.546412E+04 3.424027E+04 3.476462E+04 0.0 0.0 0 8 9.997838E+04 1.074701E+05 1.073822E+05 1.000660E+05 0.0 0.0 0.0 8.381434E+04 7.967091E+04 7.696496E+04 8.652145E+04 0.0 0.0 0 9 7.909072E+04 8.506534E+04 8.235847E+04 8.179796E+04 0.0 0.0 0.0 6.142889E+04 6.725825E+04 6.683133E+04 6.185413E+04 0.0 0.0 0 10 8.906960E+04 9.835371E+04 9.885457E+04 8.856670E+04 0.0 0.0 0.0 4.932727E+04 4.749062E+04 4.758314E+04 4.937424E+04 0.0 0.0 0 11 4.821773E+04 4.683400E+04 4.680118E+04 4.813779E+04 0.0 0.0 0.0 8.706620E+04 9.360716E+04 9.376653E+04 8.690691E+04 0.0 0.0 0 12 2.265885E+04 2.198111E+04 2.171516E+04 2.295492E+04 0.0 0.0 0.0 8.046199E+04 8.057027E+04 7.916444E+04 8.186655E+04 0.0 0.0 0 13 2.924243E+04 2.677377E+04 2.730520E+04 2.869077E+04 0.0 0.0 0.0 6.275838E+04 6.138748E+04 6.137629E+04 6.276807E+04 0.0 0.0 0 14 2.533952E+04 2.682032E+04 2.587445E+04 2.624951E+04 0.0 0.0 0.0 7.365803E+04 7.787660E+04 7.472247E+04 7.680597E+04 0.0 0.0 0 15 4.404829E+04 5.090567E+04 5.104563E+04 4.392732E+04 0.0 0.0 0.0 1.837606E+04 2.826864E+04 2.719280E+04 1.939652E+04 0.0 0.0 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 30 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL DIRECTION 2 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 16 1.537083E+04 3.157888E+04 3.051264E+04 1.640142E+04 0.0 0.0 0.0 5.473587E+04 3.923241E+04 4.106689E+04 5.295678E+04 0.0 0.0 0 17 1.165762E+05 1.044341E+05 1.025281E+05 1.184649E+05 0.0 0.0 0.0 6.568218E+04 7.042453E+04 7.049480E+04 6.567344E+04 0.0 0.0 0 18 6.585580E+04 6.933300E+04 6.939731E+04 6.583797E+04 0.0 0.0 0.0 1.254432E+05 1.316655E+05 1.315351E+05 1.255725E+05 0.0 0.0 0 19 8.465370E+04 8.525977E+04 8.385545E+04 8.605398E+04 0.0 0.0 0.0 9.715253E+04 9.774745E+04 9.777699E+04 9.714180E+04 0.0 0.0 0 20 7.787187E+04 7.655583E+04 7.659362E+04 7.783397E+04 0.0 0.0 0.0 5.804530E+04 5.912761E+04 5.916411E+04 5.801396E+04 0.0 0.0 0 21 8.993607E+04 9.070291E+04 8.757109E+04 9.307714E+04 0.0 0.0 0.0 1.004165E+05 1.050680E+05 1.022855E+05 1.031369E+05 0.0 0.0 0 22 6.201543E+04 2.545752E+04 2.408154E+04 6.350678E+04 0.0 0.0 0.0 5.136238E+04 9.202466E+04 9.079803E+04 5.138222E+04 0.0 0.0 0 23 7.523718E+04 6.471878E+04 6.496494E+04 7.430566E+04 0.0 0.0 0.0 3.443609E+04 4.180477E+04 4.318474E+04 3.624063E+04 0.0 0.0 0 24 2.830674E+04 2.858191E+04 2.818061E+04 2.778227E+04 0.0 0.0 0.0 2.766715E+04 3.504334E+04 3.531820E+04 2.967608E+04 0.0 0.0 0 25 2.947936E+04 3.339885E+04 3.607935E+04 2.624575E+04 0.0 0.0 0.0 6.667752E+04 7.327205E+04 7.425331E+04 6.559393E+04 0.0 0.0 0 26 1.077357E+05 1.158359E+05 1.148908E+05 1.086229E+05 0.0 0.0 0.0 1.435252E+04 2.141943E+04 2.251148E+04 1.329944E+04 0.0 0.0 0 27 2.660444E+04 3.891982E+04 4.006109E+04 2.622177E+04 0.0 0.0 0.0 4.724058E+04 4.200287E+04 4.527849E+04 5.371407E+04 0.0 0.0 0 28 5.325762E+04 4.260601E+04 4.434114E+04 4.647391E+04 0.0 0.0 0.0 1.224665E+05 1.134378E+05 1.103830E+05 1.255571E+05 0.0 0.0 0 29 4.777548E+04 8.533083E+04 8.847348E+04 4.465138E+04 0.0 0.0 0.0 6.264133E+04 2.178776E+04 2.462382E+04 6.041015E+04 0.0 0.0 0 30 6.478356E+03 6.375633E+03 7.934208E+03 7.839694E+03 0.0 0.0 0.0 1.664618E+04 1.468998E+04 1.574158E+04 1.337092E+04 0.0 0.0 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 31 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL DIRECTION 2 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 31 7.229926E+03 7.158932E+03 7.233649E+03 7.162764E+03 0.0 0.0 0.0 9.891587E+03 7.577913E+03 1.010411E+04 7.145479E+03 0.0 0.0 0 32 6.209275E+04 6.511343E+04 6.521561E+04 6.196466E+04 0.0 0.0 0.0 3.345692E+04 2.897329E+04 3.064000E+04 3.180851E+04 0.0 0.0 0 33 5.503746E+04 5.793506E+04 5.518345E+04 5.785186E+04 0.0 0.0 0.0 2.809474E+04 2.696173E+04 2.726813E+04 2.774217E+04 0.0 0.0 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 32 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL DIRECTION 3 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 1 2.567285E+02 2.567288E+02 2.567287E+02 2.567283E+02 0.0 0.0 0.0 5.549499E+04 5.471775E+04 5.535395E+04 5.463441E+04 0.0 0.0 0 2 5.332703E+04 5.462971E+04 5.330300E+04 5.458227E+04 0.0 0.0 0.0 8.017577E+04 7.793514E+04 8.009752E+04 7.787291E+04 0.0 0.0 0 3 7.807268E+04 7.928255E+04 7.815756E+04 7.938162E+04 0.0 0.0 0.0 6.122169E+04 6.304927E+04 6.114656E+04 6.296275E+04 0.0 0.0 0 4 6.473193E+04 6.321254E+04 6.449573E+04 6.300733E+04 0.0 0.0 0.0 2.608415E+02 2.608419E+02 2.608346E+02 2.608342E+02 0.0 0.0 0 5 1.478923E+03 1.452996E+03 1.490965E+03 1.440763E+03 0.0 0.0 0.0 1.357793E+04 1.294812E+04 1.357461E+04 1.294576E+04 0.0 0.0 0 6 1.387180E+03 1.494680E+03 1.383783E+03 1.497184E+03 0.0 0.0 0.0 2.034799E+04 2.123089E+04 2.034015E+04 2.122262E+04 0.0 0.0 0 7 1.347791E+03 1.270137E+03 1.341595E+03 1.275993E+03 0.0 0.0 0.0 1.953533E+04 1.882884E+04 1.954425E+04 1.883760E+04 0.0 0.0 0 8 4.598664E+03 2.845709E+03 4.738092E+03 2.761879E+03 0.0 0.0 0.0 8.544122E+04 8.359920E+04 8.534745E+04 8.351069E+04 0.0 0.0 0 9 8.535356E+04 8.351663E+04 8.543491E+04 8.359306E+04 0.0 0.0 0.0 3.761988E+04 3.669824E+04 3.766497E+04 3.672368E+04 0.0 0.0 0 10 3.755671E+04 3.876746E+04 3.750352E+04 3.868031E+04 0.0 0.0 0.0 6.237957E+04 6.244950E+04 6.230128E+04 6.237043E+04 0.0 0.0 0 11 6.231410E+04 6.238287E+04 6.236627E+04 6.243658E+04 0.0 0.0 0.0 2.308956E+03 4.353183E+03 2.267583E+03 4.204636E+03 0.0 0.0 0 12 1.336039E+04 1.313825E+04 1.334310E+04 1.312194E+04 0.0 0.0 0.0 3.929434E+04 3.709136E+04 3.927221E+04 3.707370E+04 0.0 0.0 0 13 2.059188E+04 2.094562E+04 2.060620E+04 2.096141E+04 0.0 0.0 0.0 9.911844E+03 9.661546E+03 9.887971E+03 9.660266E+03 0.0 0.0 0 14 1.930336E+04 1.899980E+04 1.932783E+04 1.902361E+04 0.0 0.0 0.0 5.021713E+04 4.803618E+04 5.022994E+04 4.804588E+04 0.0 0.0 0 15 2.334757E+03 3.360701E+03 2.265307E+03 3.176755E+03 0.0 0.0 0.0 3.335259E+04 3.305411E+04 3.346638E+04 3.316077E+04 0.0 0.0 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 33 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL DIRECTION 3 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 16 3.331689E+04 3.302120E+04 3.350292E+04 3.319456E+04 0.0 0.0 0.0 5.294143E+04 5.387535E+04 5.317137E+04 5.411884E+04 0.0 0.0 0 17 5.553528E+04 5.332731E+04 5.530473E+04 5.311932E+04 0.0 0.0 0.0 3.990913E+04 3.995993E+04 3.984815E+04 3.989132E+04 0.0 0.0 0 18 3.989628E+04 3.994533E+04 3.985966E+04 3.990458E+04 0.0 0.0 0.0 4.918496E+03 3.049909E+03 5.183028E+03 3.004320E+03 0.0 0.0 0 19 3.938346E+04 3.703080E+04 3.936271E+04 3.701455E+04 0.0 0.0 0.0 4.347070E+04 4.142732E+04 4.348017E+04 4.143069E+04 0.0 0.0 0 20 1.008716E+04 9.771994E+03 1.006364E+04 9.771166E+03 0.0 0.0 0.0 1.817041E+03 1.961888E+03 1.867628E+03 1.921314E+03 0.0 0.0 0 21 5.049938E+04 4.788511E+04 5.049127E+04 4.788058E+04 0.0 0.0 0.0 7.048341E+04 6.791011E+04 7.047043E+04 6.789600E+04 0.0 0.0 0 22 6.354850E+04 6.285844E+04 6.335964E+04 6.270468E+04 0.0 0.0 0.0 5.026121E+04 4.900245E+04 5.086683E+04 4.954296E+04 0.0 0.0 0 23 4.893522E+04 5.056873E+04 4.917171E+04 5.082982E+04 0.0 0.0 0.0 3.775177E+04 3.828587E+04 3.572420E+04 3.623934E+04 0.0 0.0 0 24 3.719620E+04 3.771940E+04 3.624064E+04 3.676849E+04 0.0 0.0 0.0 4.998793E+04 5.071449E+04 5.103996E+04 5.175341E+04 0.0 0.0 0 25 3.741152E+04 3.812913E+04 3.713881E+04 3.781273E+04 0.0 0.0 0.0 1.222368E+04 1.369724E+04 1.039807E+04 1.182967E+04 0.0 0.0 0 26 1.404378E+04 1.176311E+04 1.252101E+04 1.010124E+04 0.0 0.0 0.0 5.783022E+04 5.735512E+04 5.598300E+04 5.549712E+04 0.0 0.0 0 27 5.732443E+04 5.686525E+04 5.653948E+04 5.603621E+04 0.0 0.0 0.0 5.296335E+04 5.373770E+04 5.246637E+04 5.320927E+04 0.0 0.0 0 28 4.838305E+04 4.940952E+04 4.782038E+04 4.885243E+04 0.0 0.0 0.0 7.736326E+04 7.502205E+04 7.484079E+04 7.258430E+04 0.0 0.0 0 29 7.486270E+04 7.699262E+04 7.213762E+04 7.421414E+04 0.0 0.0 0.0 6.279137E+04 6.380214E+04 6.511079E+04 6.615710E+04 0.0 0.0 0 30 2.220984E+04 2.061368E+04 3.460043E+04 3.310282E+04 0.0 0.0 0.0 2.476767E+04 2.428523E+04 1.477357E+04 1.418612E+04 0.0 0.0 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 34 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL DIRECTION 3 S T R E S S E S I N B A R E L E M E N T S ( C B A R ) ELEMENT SA1 SA2 SA3 SA4 AXIAL SA-MAX SA-MIN M.S.-T ID. SB1 SB2 SB3 SB4 STRESS SB-MAX SB-MIN M.S.-C 0 31 3.960641E+04 4.199519E+04 5.085416E+04 5.190227E+04 0.0 0.0 0.0 3.698705E+04 3.670217E+04 3.116929E+04 3.210269E+04 0.0 0.0 0 32 4.280929E+04 4.178159E+04 4.281652E+04 4.178114E+04 0.0 0.0 0.0 2.629764E+04 2.752842E+04 2.631731E+04 2.755080E+04 0.0 0.0 0 33 6.954383E+04 6.847337E+04 6.951866E+04 6.844734E+04 0.0 0.0 0.0 6.104688E+03 7.207377E+03 6.136997E+03 7.240359E+03 0.0 0.0 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 35 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL DIRECTION 1 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 1 1.577707E-03 1.352047E-01 3.270172E+03 4.977163E+05 6.540343E+01 9.954328E+03 2.357580E+04 0.0 2 3.289613E+03 8.505484E+05 3.175347E+03 9.018502E+05 3.049833E+01 1.751315E+04 1.927827E+04 1.209279E+01 3 3.093245E+03 1.280200E+06 6.187243E+03 1.247282E+06 1.110266E+02 3.158450E+04 9.527955E+03 2.011086E+01 4 6.424610E+03 4.161514E+05 1.082446E-03 7.408679E-02 1.284922E+02 8.323029E+03 4.352876E+04 0.0 5 1.209543E+01 7.080988E+05 3.156207E+03 6.100238E+05 6.594255E+01 2.660989E+04 2.289866E+05 1.790097E+02 6 3.210060E+01 6.501046E+05 5.973831E+03 5.851206E+05 1.250930E+02 2.375589E+04 4.646909E+04 9.077562E+01 7 2.011739E+01 1.078698E+06 8.065806E+03 7.560911E+05 1.684345E+02 3.778070E+04 2.059927E+05 2.477356E+02 8 1.733586E+02 5.692608E+05 4.089431E+03 6.410953E+05 5.323902E+01 1.506047E+04 3.271747E+04 3.254481E+00 9 4.089425E+03 6.410955E+05 8.710187E+02 9.180226E+05 1.748528E+02 7.726994E+04 2.965304E+04 3.254481E+00 10 9.663951E+02 3.220599E+05 1.124084E+03 7.065324E+05 3.187954E+01 3.332355E+04 2.378642E+04 4.935758E+00 11 1.124085E+03 7.065326E+05 2.314692E+02 9.733732E+05 2.586712E+01 3.344812E+04 3.233013E+04 4.935757E+00 12 3.153895E+03 4.389111E+05 1.116808E+04 5.499898E+05 1.126159E+02 1.162145E+04 2.313406E+05 3.735302E+01 13 5.966154E+03 5.101877E+05 6.326993E+03 5.987676E+05 8.532127E+01 1.399723E+04 7.077902E+04 5.293118E+01 14 8.061212E+03 6.612524E+05 2.172875E+04 9.196241E+05 1.900877E+02 2.104625E+04 2.166088E+05 4.349700E+01 15 2.316997E+02 8.754789E+05 1.910264E+03 4.725884E+05 5.338811E+01 3.240551E+04 3.487044E+04 1.680946E+00 16 1.910265E+03 4.725884E+05 2.882042E+03 4.492604E+05 2.909996E+01 1.372919E+04 3.789169E+04 1.680946E+00 17 2.916958E+03 5.884590E+05 9.086458E+02 5.279267E+05 6.112329E+01 2.152794E+04 2.625937E+04 5.493711E+00 18 9.086439E+02 5.279268E+05 2.260497E+02 9.886046E+05 3.090876E+01 4.048998E+04 2.245689E+04 5.493711E+00 19 1.116958E+04 9.361156E+05 5.034120E+03 1.036670E+06 2.556953E+02 3.217403E+04 7.988296E+05 2.276437E+02 20 6.327911E+03 5.814652E+05 8.123043E+03 8.285628E+05 6.931773E+01 1.991626E+04 5.905367E+04 8.037808E+01 21 2.173407E+04 5.632021E+05 2.259577E+04 6.523734E+05 7.336162E+02 1.916847E+04 6.891247E+05 2.055705E+02 22 5.027255E+03 3.107104E+05 3.536918E+03 3.700335E+05 1.649266E+02 1.358582E+04 3.759481E+04 9.266260E+00 23 3.406266E+03 1.522267E+06 5.998547E+03 8.540409E+05 1.451974E+02 4.643278E+04 1.056650E+04 3.026649E+03 24 5.998545E+03 8.540420E+05 6.372955E+03 5.328766E+05 1.182433E+02 2.933564E+04 9.038326E+03 3.026650E+03 25 1.163175E+04 5.321114E+05 4.338580E+03 1.112656E+06 2.530770E+02 3.111938E+04 9.347482E+03 7.038633E+03 26 4.290284E+03 1.225492E+06 5.001845E+03 9.260975E+05 2.219855E+02 4.407102E+04 1.176091E+04 1.453727E+03 27 5.001842E+03 9.260976E+05 7.708822E+03 4.645801E+05 2.096854E+02 6.510289E+04 1.319764E+04 1.453727E+03 28 1.364685E+04 4.630861E+05 9.530029E+03 1.767573E+06 8.696507E+02 6.347714E+04 1.293240E+04 3.225305E+03 29 9.690189E+03 4.374357E+05 8.321604E+03 3.015054E+05 3.601331E+02 1.475510E+04 3.933751E+04 1.652723E+01 30 1.780594E+04 1.006518E+04 2.190765E+04 4.117184E+05 4.136135E+02 4.393579E+03 2.573119E+02 2.184272E+03 31 2.073742E+04 4.678845E+03 2.200368E+04 1.574569E+05 4.450482E+02 1.688913E+03 7.408736E+02 3.226121E+03 32 4.955051E+03 5.909315E+05 8.441701E+03 2.855405E+05 1.687609E+02 1.744451E+04 7.982771E+05 4.777837E+01 33 2.134689E+04 1.022363E+06 3.707354E+03 4.688672E+05 4.737332E+02 2.980689E+04 6.948428E+05 2.510667E+01 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 36 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL DIRECTION 2 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 1 2.513616E-03 2.103029E-01 6.445730E+04 1.662447E+06 1.289146E+03 3.324894E+04 6.895353E+05 0.0 2 6.675525E+04 2.245392E+06 7.301516E+04 2.325797E+06 4.943938E+02 4.571023E+04 6.995943E+04 2.686927E+02 3 7.114540E+04 1.980087E+06 1.140906E+05 1.949895E+06 2.285557E+03 4.912280E+04 7.989680E+04 4.605802E+02 4 1.194874E+05 1.778504E+06 1.659631E-02 1.001422E-01 2.389748E+03 3.557007E+04 6.781290E+05 0.0 5 2.688844E+02 3.766690E+06 9.190689E+04 2.584368E+06 1.920168E+03 1.317753E+05 2.064398E+04 3.520914E+03 6 7.252032E+02 3.728696E+06 1.159865E+05 3.403015E+06 2.431423E+03 1.481421E+05 3.131490E+04 1.904541E+03 7 4.606120E+02 3.565404E+06 2.061089E+05 2.482468E+06 4.303516E+03 1.249254E+05 3.783397E+04 5.506275E+03 8 3.980440E+03 1.321728E+06 9.509312E+04 1.040054E+06 1.236758E+03 2.949273E+04 9.688570E+04 6.854804E+01 9 9.509311E+04 1.040054E+06 1.514747E+04 8.161240E+05 4.010574E+03 5.787884E+04 1.219375E+05 6.854804E+01 10 1.801777E+04 1.186078E+06 2.805125E+04 5.976338E+05 5.129662E+02 5.202213E+04 1.434048E+05 1.097423E+02 11 2.805126E+04 5.976338E+05 5.544989E+03 1.152916E+06 6.602510E+02 3.246822E+04 9.680942E+04 1.097422E+02 12 9.184083E+04 1.605170E+06 3.139060E+05 5.791678E+06 3.096398E+03 8.790550E+04 4.958456E+04 4.869093E+02 13 1.158101E+05 2.014144E+06 3.555260E+04 4.468088E+06 1.882420E+03 6.477689E+04 6.871477E+04 1.030279E+03 14 2.059998E+05 1.872776E+06 5.598742E+05 5.439935E+06 4.916778E+03 7.969188E+04 6.122845E+04 2.159729E+02 15 4.540024E+03 6.032798E+05 3.419612E+04 2.929028E+05 9.644222E+02 1.340200E+04 8.361025E+04 4.578294E+01 16 3.419610E+04 2.929028E+05 7.301272E+04 5.967566E+05 7.588245E+02 1.375118E+04 1.296977E+05 4.578294E+01 17 7.404617E+04 1.413868E+06 1.401291E+04 8.627872E+05 1.549134E+03 4.662720E+04 1.038070E+05 1.332999E+02 18 1.401288E+04 8.627872E+05 4.724432E+03 1.645218E+06 5.051071E+02 6.079190E+04 6.567583E+04 1.332999E+02 19 3.139503E+05 6.110958E+06 1.570422E+05 7.014318E+06 7.530526E+03 2.178864E+05 6.029775E+04 4.972271E+03 20 3.548322E+04 5.558266E+06 6.441187E+03 4.217066E+06 5.783055E+02 1.610543E+05 5.388932E+04 2.230398E+03 21 5.600069E+05 6.485117E+06 5.355976E+05 7.375064E+06 1.824292E+04 2.296206E+05 1.140147E+05 4.728164E+03 22 1.443947E+05 7.567634E+05 1.157139E+05 1.538778E+06 5.010203E+03 4.589948E+04 6.975886E+05 2.639153E+02 23 1.122316E+05 1.709254E+06 1.703325E+05 7.373278E+05 4.771468E+03 4.497959E+04 4.472912E+05 2.231929E+03 24 1.703325E+05 7.373279E+05 3.538340E+05 8.274904E+05 2.416542E+04 4.284259E+04 9.838972E+04 2.231929E+03 25 2.007243E+05 8.274010E+05 8.699416E+04 1.859316E+06 4.410687E+03 4.239589E+04 9.546980E+04 5.362732E+03 26 8.560608E+04 2.972405E+06 1.397974E+05 4.708711E+05 4.413410E+03 6.677482E+04 9.554614E+04 1.211940E+03 27 1.397974E+05 4.708717E+05 2.854577E+05 8.781862E+05 2.299502E+04 8.573836E+04 4.879855E+05 1.211940E+03 28 2.807995E+05 8.743677E+05 2.566154E+05 2.963122E+06 2.028910E+04 8.445558E+04 4.778693E+05 2.337389E+03 29 2.605233E+05 1.428995E+06 2.249135E+05 7.166039E+05 9.690521E+03 4.288532E+04 7.188046E+05 4.330412E+02 30 4.910644E+05 7.569972E+03 5.551753E+05 3.085537E+05 1.088403E+04 3.292925E+03 2.403247E+04 1.744089E+03 31 4.909341E+05 3.444293E+03 5.013028E+05 1.239418E+05 1.032199E+04 1.326281E+03 2.679873E+04 3.866940E+03 32 1.568490E+05 4.573082E+06 2.124196E+05 2.241703E+06 4.101976E+03 1.361162E+05 1.056362E+05 1.200059E+03 33 5.352826E+05 4.046608E+06 9.885097E+04 1.966598E+06 1.149867E+04 1.198298E+05 1.488351E+05 7.642048E+02 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 37 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL DIRECTION 3 F O R C E S I N B A R E L E M E N T S ( C B A R ) 0 ELEMENT BEND-MOMENT END-A BEND-MOMENT END-B - SHEAR - AXIAL ID. PLANE 1 PLANE 2 PLANE 1 PLANE 2 PLANE 1 PLANE 2 FORCE TORQUE 1 1.270716E-01 4.887753E-03 3.804006E+06 4.704599E+04 7.608009E+04 9.409199E+02 5.134572E+03 0.0 2 3.726792E+06 5.871884E+04 5.461640E+06 5.990879E+04 2.914760E+04 1.186260E+03 1.664101E+03 6.251178E+03 3 5.443065E+06 4.520869E+04 4.293301E+06 4.514342E+04 4.550991E+04 1.129378E+03 2.029117E+03 8.318733E+03 4 4.415070E+06 4.972008E+04 4.721157E+00 5.888932E-03 8.830134E+04 9.944019E+02 5.216761E+03 0.0 5 6.239297E+03 1.055234E+05 2.074168E+06 5.077942E+04 4.332762E+04 3.249513E+03 3.145975E+02 1.259485E+05 6 1.433167E+04 1.036558E+05 3.251204E+06 7.374938E+04 6.777845E+04 3.689804E+03 3.885075E+02 2.978078E+04 7 8.319506E+03 9.421064E+04 3.001500E+06 4.841012E+04 6.269326E+04 2.957695E+03 3.166300E+02 1.284097E+05 8 8.938636E+04 3.450309E+04 2.674559E+06 2.387007E+04 3.380305E+04 7.293859E+02 1.233599E+03 2.092265E+03 9 2.674556E+06 2.387007E+04 1.176312E+06 1.514899E+04 8.442534E+04 6.122199E+02 1.357412E+03 2.092266E+03 10 1.203861E+06 3.014618E+04 1.975156E+06 4.619167E+03 3.595869E+04 9.594695E+02 1.287318E+03 2.604417E+03 11 1.975148E+06 4.619166E+03 9.245567E+04 2.364565E+04 4.051586E+04 5.350431E+02 1.367642E+03 2.604416E+03 12 2.072528E+06 1.796994E+04 5.968351E+06 1.752919E+05 5.823813E+04 2.236186E+03 1.015636E+03 6.984363E+04 13 3.251882E+06 3.132602E+04 1.503910E+06 1.294882E+05 4.832173E+04 1.470076E+03 1.426498E+03 2.285779E+04 14 2.999178E+06 2.706972E+04 7.678178E+06 1.617461E+05 7.720477E+04 1.958226E+03 7.762622E+02 8.158134E+04 15 8.493378E+04 1.221327E+04 1.053065E+06 7.083024E+03 2.778971E+04 1.570584E+02 1.926978E+03 2.415713E+03 16 1.053063E+06 7.083022E+03 1.694745E+06 1.645217E+04 2.199930E+04 3.902969E+02 3.193717E+03 2.415713E+03 17 1.719350E+06 2.774821E+04 1.263470E+06 4.838742E+03 4.262195E+04 7.069878E+02 3.487859E+03 3.550002E+03 18 1.263468E+06 4.838741E+03 1.066262E+05 3.163282E+04 3.840199E+04 8.191622E+02 2.238810E+03 3.550002E+03 19 5.969566E+06 1.867619E+05 6.627001E+06 2.209934E+05 1.835923E+05 6.791746E+03 1.027171E+03 1.190835E+05 20 1.505811E+06 1.729255E+05 5.457771E+04 1.327263E+05 2.566753E+04 5.089840E+03 1.187442E+03 5.228749E+04 21 7.681225E+06 1.928080E+05 1.082408E+07 2.284954E+05 2.783992E+05 7.012393E+03 8.252943E+02 1.369845E+05 22 4.364155E+06 2.481854E+04 3.449694E+06 5.025443E+04 1.551033E+05 1.501455E+03 2.917249E+04 8.669955E+03 23 3.447479E+06 3.688454E+04 2.557627E+06 9.794354E+03 1.006518E+05 8.657345E+02 3.025662E+04 6.046088E+03 24 2.557627E+06 9.794352E+03 3.518381E+06 2.197893E+04 2.809326E+05 1.006044E+03 1.203106E+04 6.046089E+03 25 2.600914E+06 2.198311E+04 8.195394E+05 4.860776E+04 8.157145E+04 1.078786E+03 2.069212E+04 3.524555E+04 26 8.054149E+05 8.494747E+04 3.918976E+06 1.466463E+04 8.582277E+04 2.023424E+03 1.939058E+04 1.932569E+04 27 3.918978E+06 1.466464E+04 3.669330E+06 2.423733E+04 4.475514E+05 2.246330E+03 2.783128E+04 1.932569E+04 28 3.359573E+06 2.416664E+04 5.179322E+06 7.629295E+04 3.136339E+05 2.180223E+03 4.607921E+04 1.730546E+04 29 5.153813E+06 4.726579E+04 4.456063E+06 2.375722E+04 1.918005E+05 1.420439E+03 4.488772E+04 8.826476E+03 30 1.524834E+06 3.718543E+04 7.585844E+05 1.717070E+04 2.378458E+04 5.604320E+02 3.508162E+05 1.893321E+01 31 2.781786E+06 3.262743E+04 1.376136E+06 1.593760E+04 4.331144E+04 5.050276E+02 6.422513E+05 7.805434E+01 32 6.612938E+06 1.434081E+05 4.212432E+06 7.781741E+04 9.529557E+04 4.306772E+03 1.859693E+03 2.283138E+04 33 1.079797E+07 1.279244E+05 1.021742E+06 9.472962E+04 2.242953E+05 4.290958E+03 1.660925E+03 1.536767E+04 0*** SYSTEM WARNING MESSAGE 2184, STRESS OR FORCE REQUEST FOR ELEMENT CONM2 (NASTRAN ELEM. TYPE = 30) WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT. 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 38 NASTRAN TEST PROBLEM NO. T17-01-1A HY-100 PLATFORM MODEL 0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED 0*** SYSTEM WARNING MESSAGE 3001 0ATTEMPT TO OPEN DATA SET 204 IN SUBROUTINE SDR2 , WHICH WAS NOT DEFINED IN THE FIST 0*** SYSTEM WARNING MESSAGE 3001 0ATTEMPT TO OPEN DATA SET 205 IN SUBROUTINE SDR2 , WHICH WAS NOT DEFINED IN THE FIST 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 39 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 2.408433E-05 2.125423E-05 2.503151E-03 2 G 8.507232E-02 1.964650E-03 1.076181E-03 1.654876E-05 2.125423E-05 1.166044E-03 3 G 3.248062E-01 4.205368E-03 1.367646E-03 1.384512E-05 1.687112E-05 7.392348E-04 4 G 7.453994E-02 3.627396E-03 8.601210E-04 1.189493E-05 3.048224E-05 1.078911E-03 5 G 0.0 0.0 0.0 2.144290E-05 3.048224E-05 2.089794E-03 6 G 7.746251E-02 4.333700E-02 4.824267E-04 3.424846E-05 1.840060E-05 9.007379E-04 7 G 3.580019E-01 4.376385E-02 1.543740E-03 1.238011E-05 1.269203E-05 2.715531E-03 8 G 3.264085E-01 4.275973E-02 1.187386E-03 2.583665E-05 1.362107E-05 7.255600E-04 9 G 3.031619E-01 4.284486E-02 6.077479E-04 3.226356E-05 1.359101E-05 4.913347E-03 10 G 6.787747E-02 3.982852E-02 1.684850E-03 3.644203E-05 2.321332E-05 6.079635E-04 11 G 6.644145E-02 6.010950E-02 8.541651E-04 3.382837E-05 4.244076E-06 7.163574E-04 12 G 2.214594E-01 5.984584E-02 6.597343E-04 2.445565E-05 4.391792E-06 6.565919E-03 13 G 3.259774E-01 5.921902E-02 9.244730E-04 1.588932E-05 9.254926E-06 6.542595E-04 14 G 2.084376E-01 6.094531E-02 7.622641E-04 3.762243E-05 8.891500E-06 7.161902E-03 15 G 5.756101E-02 6.194190E-02 1.934400E-03 3.914507E-05 1.987223E-05 8.245090E-04 16 G 0.0 0.0 0.0 0.0 0.0 0.0 17 G 3.023776E-02 3.132901E-03 3.039854E-04 6.901320E-06 1.056679E-05 6.054559E-04 18 G 2.513025E-01 3.772506E-03 3.249593E-04 8.956088E-06 3.451355E-03 5.206004E-03 19 G 3.131175E-01 4.014303E-03 4.116990E-05 2.010393E-05 4.831918E-03 4.782407E-03 20 G 3.258844E-01 4.412070E-03 1.644052E-04 4.264237E-06 2.148924E-05 1.605411E-03 21 G 2.180096E-01 3.824196E-03 1.199093E-04 5.141216E-06 1.340623E-03 6.074841E-03 22 G 1.194289E-01 3.597364E-03 1.185398E-04 9.558600E-06 1.837934E-03 7.063506E-03 23 G 2.631980E-02 3.278126E-03 2.919262E-04 3.626519E-06 1.884684E-05 1.072051E-03 24 G 0.0 0.0 0.0 0.0 0.0 0.0 25 G 0.0 0.0 0.0 0.0 0.0 0.0 26 G 0.0 0.0 0.0 0.0 0.0 0.0 27 G 0.0 0.0 0.0 0.0 0.0 0.0 28 G 0.0 0.0 0.0 0.0 0.0 0.0 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 40 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 4.977077E-04 5.716592E-04 3.568321E-03 2 G 1.005421E-02 5.746128E-02 2.237383E-02 3.498126E-04 5.716592E-04 6.857728E-03 3 G 3.660600E-01 6.380078E-02 2.534941E-02 3.190513E-04 5.039195E-05 7.402037E-03 4 G 1.393650E-02 5.651075E-02 6.013514E-03 1.539595E-04 7.974855E-04 7.436458E-03 5 G 0.0 0.0 0.0 1.954955E-04 7.974855E-04 3.747017E-03 6 G 9.336421E-03 4.732141E-01 9.967601E-03 8.240379E-04 4.886964E-04 9.165026E-03 7 G 4.692139E-01 4.912820E-01 3.456660E-02 2.705279E-04 1.506499E-04 1.867409E-03 8 G 3.671547E-01 4.878473E-01 2.566656E-02 5.788817E-04 6.875968E-05 8.233464E-03 9 G 3.029875E-01 4.935385E-01 7.957238E-03 7.627137E-04 2.677831E-04 3.872389E-03 10 G 1.292626E-02 4.822176E-01 3.810921E-02 9.065550E-04 6.067194E-04 9.235124E-03 11 G 6.693852E-03 6.569518E-01 2.458172E-02 7.297455E-04 1.150071E-04 7.357515E-03 12 G 2.310749E-01 6.497723E-01 7.538707E-03 5.683402E-04 7.370821E-05 3.734334E-03 13 G 3.637905E-01 6.324564E-01 1.407297E-02 3.708806E-04 2.104806E-04 5.709359E-03 14 G 2.177587E-01 6.432300E-01 1.777119E-02 8.870336E-04 1.792013E-04 9.365521E-03 15 G 1.074254E-02 6.477189E-01 4.917135E-02 9.000233E-04 4.621311E-04 7.477216E-03 16 G 0.0 0.0 0.0 0.0 0.0 0.0 17 G 4.001371E-03 5.813238E-02 8.281801E-03 1.733418E-04 3.009561E-04 4.909520E-03 18 G 1.960033E-01 9.530840E-02 8.080579E-03 2.334319E-04 2.611652E-03 3.767241E-03 19 G 2.346502E-01 9.615494E-02 3.845196E-03 3.789670E-04 3.620894E-03 3.818636E-03 20 G 3.616523E-01 9.797236E-02 7.341525E-03 1.464250E-04 2.049860E-04 8.631429E-03 21 G 2.333213E-01 9.191295E-02 5.847177E-03 2.188954E-04 1.040679E-03 9.374348E-03 22 G 9.412514E-02 7.974423E-02 4.287798E-03 2.577950E-04 1.450391E-03 8.466561E-03 23 G 5.637692E-03 5.990038E-02 8.121070E-03 1.103852E-04 4.938189E-04 4.486264E-03 24 G 0.0 0.0 0.0 0.0 0.0 0.0 25 G 0.0 0.0 0.0 0.0 0.0 0.0 26 G 0.0 0.0 0.0 0.0 0.0 0.0 27 G 0.0 0.0 0.0 0.0 0.0 0.0 28 G 0.0 0.0 0.0 0.0 0.0 0.0 1 DYNAMIC DESIGN ANALYSIS METHOD, DDAM / 95 SUN SOLARIS NASTRAN / MAY 19, 95 / PAGE 41 NASTRAN TEST PROBLEM NO. T17-01-1A 0 HY-100 PLATFORM MODEL D I S P L A C E M E N T V E C T O R POINT ID. TYPE T1 T2 T3 R1 R2 R3 1 G 0.0 0.0 0.0 4.589859E-02 1.745765E-02 1.016236E-04 2 G 1.823817E-04 4.278810E-04 2.143508E+00 3.698502E-02 1.745765E-02 1.931650E-04 3 G 5.732413E-03 7.000578E-04 3.827642E+00 7.229860E-03 1.722758E-02 2.070616E-04 4 G 1.256736E-04 4.347301E-04 2.061898E+00 3.610121E-02 2.054025E-02 2.077445E-04 5 G 0.0 0.0 0.0 4.450333E-02 2.054025E-02 1.038279E-04 6 G 1.713023E-04 1.443937E-02 1.642225E+00 3.279257E-02 1.659698E-02 2.955994E-04 7 G 8.381779E-03 1.466132E-02 3.100960E+00 7.375099E-03 1.853735E-02 2.938823E-05 8 G 5.742350E-03 1.459833E-02 3.012269E+00 1.031225E-02 1.917521E-02 2.637231E-04 9 G 3.895725E-03 1.469044E-02 2.610728E+00 2.242971E-02 1.889364E-02 6.550920E-05 10 G 1.150573E-04 1.454727E-02 1.832529E+00 3.552476E-02 1.883580E-02 2.944243E-04 11 G 1.164699E-04 2.202431E-02 1.024384E+00 2.074919E-02 1.291063E-02 2.335766E-04 12 G 4.477525E-03 2.185071E-02 1.231711E+00 1.597282E-02 1.596063E-02 5.194443E-05 13 G 5.685580E-03 2.137011E-02 1.440450E+00 7.717059E-03 2.376181E-02 1.722759E-04 14 G 1.813788E-03 2.175302E-02 1.219208E+00 2.055034E-02 1.739074E-02 1.853554E-04 15 G 9.619861E-05 2.192318E-02 1.134582E+00 2.400653E-02 1.613320E-02 2.189852E-04 16 G 0.0 0.0 0.0 0.0 0.0 0.0 17 G 7.044290E-05 2.431041E-03 2.281538E-01 3.297866E-03 9.886790E-03 1.593770E-04 18 G 2.728568E-03 4.879383E-03 1.414617E-01 5.256065E-03 2.992354E-03 6.663010E-05 19 G 3.334232E-03 5.114127E-03 5.613060E-02 3.694196E-03 2.643746E-04 4.145376E-05 20 G 5.653713E-03 5.390706E-03 1.280716E-01 3.893832E-03 2.436394E-02 2.667636E-04 21 G 4.144064E-03 5.933293E-03 1.508036E-01 5.389072E-03 6.734189E-03 1.960638E-04 22 G 1.456714E-03 5.632224E-03 1.027602E-01 6.774569E-03 2.040263E-04 1.708979E-04 23 G 6.291382E-05 3.740643E-03 1.616048E-01 2.219775E-03 1.006528E-02 1.473166E-04 24 G 0.0 0.0 0.0 0.0 0.0 0.0 25 G 0.0 0.0 0.0 0.0 0.0 0.0 26 G 0.0 0.0 0.0 0.0 0.0 0.0 27 G 0.0 0.0 0.0 0.0 0.0 0.0 28 G 0.0 0.0 0.0 0.0 0.0 0.0 * * * END OF JOB * * * 1 JOB TITLE = DYNAMIC DESIGN ANALYSIS METHOD, DDAM DATE: 5/19/95 END TIME: 16:37:21 TOTAL WALL CLOCK TIME 3 SEC. ================================================ FILE: inp/d01000a.inp ================================================ NASTRAN TITLEOPT=-1 ID D01000A,PRINT RIGID FORMAT $================================================================= $ THIS DECK WILL PRINT THE NASTRAN DMAP COMPILE LISTING OF ANY $ RIGID FORMAT BY SPECIFYING THE FOLLOWING SOLUTION NUMBER AND $ APPLICATION. JOB WILL AUTOMATICALLY STOP $ SOL 6 APP DISP $================================================================= TIME 2 DIAG 14,20 CEND TITLE = TESTING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A DISP = ALL ECHO = NONE BEGIN BULK ENDDATA ================================================ FILE: inp/d01001a.inp ================================================ NASTRAN TITLEOPT=-1 ID D01001A,PRINT DIAG48 APP DISP $================================================= $ THIS JOB WILL PRINT DIAG48 MESSAGES AND STOP $ DIAG 48,20 $================================================= SOL 1 TIME 2 CEND SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-00-1A ECHO = NONE BEGIN BULK ENDDATA ================================================ FILE: inp/d01002a.inp ================================================ NASTRAN BULKDATA = -3, TITLEOPT = 0 ID D01002A,TIME CONSTANTS $============================================================= $ THIS JOB WILL PRINT 16 NASTRAN TIMING CONSTANTS AND STOP $ $ YOU MAY WANT TO RUN THIS D01002A SEVERAL TIMES AT DIFFERENT HOUR $ OF THE DAY, SO TO GET THE AVERAGE TIMING. $ $ IF THESE TIMING CONSTANTS ARE EDITED INTO THE NASINFO FILE, $ YOUR NASTRAN PROGRAM WILL NOT COMPUTE THESE CONSTANTS EACH $ TIME YOU RUN A NASTRAN JOB $ $============================================================= CEND SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-00-2A ECHO = NONE BEGIN BULK ENDDATA ================================================ FILE: inp/d01011a.inp ================================================ NASTRAN FILES=NPTP ID D01011A,NASTRAN CHKPNT YES DIAG 15 APP DISPLACEMENT SOL 1,1 TIME 15 CEND TITLE = DELTA WING WITH BICONVEX CROSS SECTION SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A LABEL = LOAD ON TRAILING EDGE SPC = 1 LOAD = 1 OUTPUT $ SET 1 HAS GRIDS ON THE UPPER SURFACE * * * * * * * * * * * * * * * $ SET 2 HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE), $ SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP) * * * * * * * * $ SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93 SET 2 = 1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50 $ DISPLACEMENTS = 1 SPCFORCE = ALL ELSTRESS = 2 BEGIN BULK CONROD 100 11 12 1 .035 CONROD 101 12 13 1 .035 CONROD 102 13 14 1 .0344 CONROD 103 14 15 1 .0325 CONROD 104 15 16 1 .03 CONROD 105 31 32 1 .091 CONROD 106 32 33 1 .091 CONROD 107 33 34 1 .088 CONROD 108 34 35 1 .0719 CONROD 109 35 36 1 .0453 CONROD 110 51 52 1 .11 CONROD 111 52 53 1 .11 CONROD 112 53 54 1 .094 CONROD 113 54 55 1 .0563 CONROD 114 71 72 1 .091 CONROD 115 72 73 1 .091 CONROD 116 73 74 1 .0649 CONROD 117 91 92 1 .035 CONROD 118 92 93 1 .035 CONROD 119 12 32 1 .063 CONROD 120 32 52 1 .1002 CONROD 121 52 72 1 .1002 CONROD 122 72 92 1 .063 CONROD 123 13 33 1 .063 CONROD 124 33 53 1 .1002 CONROD 125 53 73 1 .1002 CONROD 126 73 93 1 .063 CONROD 127 14 34 1 .0572 CONROD 128 34 54 1 .0805 CONROD 129 54 74 1 .0572 CONROD 130 15 35 1 .0474 CONROD 131 35 55 1 .0474 CONROD 132 16 36 1 .028 CONROD 133 93 74 1 .0344 CONROD 134 74 55 1 .0325 CONROD 135 55 36 1 .03 CQDMEM 1 1 11 12 32 31 CQDMEM 2 1 12 13 33 32 CQDMEM 3 1 13 14 34 33 CQDMEM 4 1 14 15 35 34 CQDMEM 5 1 15 16 36 35 CQDMEM 6 1 31 32 52 51 CQDMEM 7 1 32 33 53 52 CQDMEM 8 1 33 34 54 53 CQDMEM 9 1 34 35 55 54 CQDMEM 11 1 51 52 72 71 CQDMEM 12 1 52 53 73 72 CQDMEM 13 1 53 54 74 73 CQDMEM 15 1 71 72 92 91 CQDMEM 16 1 72 73 93 92 CROD 60 5 1 11 61 6 2 12 CROD 62 8 3 13 63 8 4 14 CROD 64 8 5 15 65 6 6 16 CROD 66 6 21 31 67 7 22 32 CROD 68 9 23 33 69 9 24 34 CROD 70 9 25 35 71 8 26 36 CROD 72 6 41 51 73 7 42 52 CROD 74 9 43 53 75 9 44 54 CROD 76 9 45 55 77 6 61 71 CROD 78 7 62 72 79 9 63 73 CROD 80 9 64 74 81 5 81 91 CROD 82 6 82 92 83 8 83 93 CSHEAR 18 2 1 2 12 11 CSHEAR 19 2 2 3 13 12 CSHEAR 20 2 3 4 14 13 CSHEAR 21 2 4 5 15 14 CSHEAR 22 2 5 6 16 15 CSHEAR 23 2 21 22 32 31 CSHEAR 24 2 22 23 33 32 CSHEAR 25 2 23 24 34 33 CSHEAR 26 2 24 25 35 34 CSHEAR 27 2 25 26 36 35 CSHEAR 28 2 41 42 52 51 CSHEAR 29 2 42 43 53 52 CSHEAR 30 2 43 44 54 53 CSHEAR 31 2 44 45 55 54 CSHEAR 32 2 61 62 72 71 CSHEAR 33 2 62 63 73 72 CSHEAR 34 2 63 64 74 73 CSHEAR 35 2 81 82 92 91 CSHEAR 36 2 82 83 93 92 CSHEAR 37 2 2 22 32 12 CSHEAR 38 2 22 42 52 32 CSHEAR 39 2 42 62 72 52 CSHEAR 40 2 62 82 92 72 CSHEAR 41 2 3 23 33 13 CSHEAR 42 2 23 43 53 33 CSHEAR 43 2 43 63 73 53 CSHEAR 44 2 63 83 93 73 CSHEAR 45 2 4 24 34 14 CSHEAR 46 2 24 44 54 34 CSHEAR 47 2 44 64 74 54 CSHEAR 48 2 5 25 35 15 CSHEAR 49 2 25 45 55 35 CSHEAR 50 2 6 26 36 16 CSHEAR 51 2 26 45 55 36 CSHEAR 52 2 45 64 74 55 CSHEAR 53 2 64 83 93 74 CTRMEM 10 3 35 36 55 CTRMEM 14 3 54 55 74 CTRMEM 17 3 73 74 93 FORCE 1 16 0 -1. .0 .0 500. FORCE 2 36 -1.0 .0 .0 500.0 GRDSET 456 GRID 1 .0 .0 .0 GRID 2 10. .0 .0 GRID 3 30. .0 .0 GRID 4 50. .0 .0 GRID 5 70. .0 .0 GRID 6 90. .0 .0 GRID 11 .0 .0 .82 GRID 12 10. .0 .82 GRID 13 30. .0 .82 GRID 14 50. .0 .795 GRID 15 70. .0 .754 GRID 16 90. .0 .67 GRID 21 .0 20. .0 GRID 22 10. 20. .0 GRID 23 30. 20. .0 GRID 24 50. 20. .0 GRID 25 70. 20. .0 GRID 26 90. 20. .0 GRID 31 .0 20. 2.02 GRID 32 10. 20. 2.02 GRID 33 30. 20. 2.02 GRID 34 50. 20. 1.795 GRID 35 70. 20. 1.42 GRID 36 90. 20. .67 GRID 41 .0 40. .0 GRID 42 10. 40. .0 GRID 43 30. 40. .0 GRID 44 50. 40. .0 GRID 45 70. 40. .0 GRID 51 .0 40. 2.42 GRID 52 10. 40. 2.42 GRID 53 30. 40. 2.42 GRID 54 50. 40. 1.795 GRID 55 70. 40. .754 GRID 61 .0 60. .0 GRID 62 10. 60. .0 GRID 63 30. 60. .0 GRID 64 50. 60. .0 GRID 71 .0 60. 2.02 GRID 72 10. 60. 2.02 GRID 73 30. 60. 2.02 GRID 74 50. 60. .795 GRID 81 .0 80. .0 GRID 82 10. 80. .0 GRID 83 30. 80. .0 GRID 91 .0 80. .82 GRID 92 10. 80. .82 GRID 93 30. 80. .82 MAT1 1 10.4 +64. +6 MAT1 2 1.04+7 4.+6 .2523-3 PARAM IRES 1 PQDMEM 1 2 .16 .0 PROD 5 1 2.1 PROD 6 1 3.5 PROD 7 1 4.91 PROD 8 1 4.2 PROD 9 1 5.6 PSHEAR 2 2 .14 .0 PTRMEM 3 2 .16 .0 SPC1 1 1 11 31 51 71 91 SPC1 1 3 13 33 53 73 93 SPC1 1 12 1 2 3 4 5 6 +SPC-A +SPC-A 21 22 23 24 25 26 41 42 +SPC-B +SPC-B 43 44 45 61 62 63 64 81 +SPC-C +SPC-C 82 83 ENDDATA ================================================ FILE: inp/d01011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Delta Wing with Biconvex Cross Section (1-1-1) $ Delta Wing, Biconvex Cross Section Using QDMEM1 and QDMEM2 Elements (1-1-2) $ Delta Wing, Biconvex Cross Section Using QDMEM1 Elements (1-1-3) $ Delta Wing, Biconvex Cross Section Using QDMEM2 Elements (1-1-4) $ $ A. Description $ $ This series illustrates the use of various NASTRAN elements in the solution of $ an actual structural problem. The delta wing model is composed of membrane, $ shear panel, and rod elements. Due to the existence of symmetry or $ antisymmetry in the structure and loading conditions, only one-quarter of the $ wing needs to be modeled. The midplane of the wing (the plane dividing the $ wing into upper and lower halves) is a plane of symmetry, as is the center $ plane (the plane that divides the wing into left and right halves). The $ loading conditions are antisymmetrical with respect to the midplane of the $ wing and symmetric with respect to the center plane. $ $ B. Input $ $ The surface skin of the wing is modeled with membrane elements while the ribs $ and spars are modeled with a combination of shear panels and rods. The shear $ load carrying capability of ribs and span is represented by shear panels. The $ bending stiffness of the ribs and spars is modeled with rod elements placed in $ the plane of the skin surface. $ $ Since a quarter model is used, the loading conditions require that an $ antisymmetric boundary be provided on the midplane and a symmetric boundary $ must be provided on the center plane. These boundary conditions are provided $ by constraining all grid points on the midplane in the x and y directions and $ all grid points on the center plane in the x direction. Supports for the $ structure are provided by constraining grid points 13, 33, 53, 73, and 93 in $ the z direction. Since no rotational rigidity is provided by the elements used $ in the model, all rotational degrees of freedom have been removed by the use $ of the GRDSET card. $ $ The problem is first modeled (Problem 1-1-1) with a load on the trailing $ edge and a checkpoint is requested. The modified restart (Problem 1-1-1A) $ capability is used to perform the analysis associated with the leading edge $ loading condition. The ability of NASTRAN to change rigid formats on a restart $ is demonstrated by the third case (Problem 1-1-1B). The natural modes of the $ structure are extracted using the Inverse Power method. Since the symmetric $ boundary conditions are used, only the modes with symmetric motion about the $ center line will be extracted. If the unsymmetric modes were required, a $ separate run with the appropriate boundary conditions could be submitted. $ $ A second variation (Problem 1-1-2) of the basic problem is obtained by $ replacing the quadrilateral membrane elements (QDMEM) with the QDMEM1 and $ QDMEM2 elements. This modification demonstrates the ability to reproduce $ previously derived theoretical results. The SORT2 format of the printed output $ allows the results obtained with a leading and trailing load to be compared. A $ third case (Problem 1-1-3) is modeled with all QDMEM elements replaced by $ QDMEM1 (Reference 26) elements. A grid point force balance is requested to $ verify that the static equilibrium of forces at a grid point (due to the load, $ constraints, and element forces) is zero. A fourth modeling of the wing $ (Problem 1-1-4) uses QDMEM2 elements in place of the QDMEM elements. In this $ case, element strain energy is requested to exhibit the energy transmitted by $ each of the elements due to the load and resultant deflections. $ $ 1. Parameters $ $ 6 2 $ E = 10.4 x 10 lb/in (modulus of elasticity) $ $ 6 2 $ G = 4.0 x 10 lb/in (shear modulus) $ $ -4 2 4 $ p = 2.523 x 10 lb sec /in (density) $ $ 2. Constraints $ $ theta sub x = theta sub y = theta sub z = 0.0 All grid points $ $ U = 0.0 Grids 13, 33, 53, 73, and 93 $ z $ $ U = 0.0 Grids 11, 31, 51, 71, and 91 $ x $ $ U = U = 0.0 Grids 1, 2, 3, 4, 5, 6, 21, 22, 23, 24, 25, 26, 41, $ x y 42, 43, 44, 45, 61, 62, 63, 64, 81, 82, and 83 $ $ 3. Loads $ $ Problems 1-1-1, 1-1-2, 1-1-3, 1-1-4 $ $ Grid 16 F = -500.0 (trailing edge) $ z $ Problem 1-1-2 $ $ Grid 36 F = -500.0 (leading edge) $ z $ $ 4. Eigenvalue extraction data $ $ Method: Inverse Power $ $ Region of interest: 30.0 <= f <= 160.0 $ $ Number of desired roots: 3 $ $ Number of estimated roots: 1 $ $ C. Results $ $ No closed-form or theoretical solution exists for this problem. However, a $ passive analog computer simulation (Reference 1) and a laboratory test $ (Reference 2) have been performed for this structural model. The displacements $ calculated by NASTRAN and the experimentally measured and simulated $ displacements are shown in Tables 1 and 2. The natural frequencies and modal $ displacements are shown in Tables 3 and 4. Table 5 presents the displacements $ for the static loading conditions when elements 1 through 9 are CQDMEM1 $ elements and the other quadrilaterals are CQDMEM2 elements. $ $ Table 1. NASTRAN and Experimental Deflections - Concentrated Load on Outboard $ Trailing Edge $ -------------------------------------------------------- $ Z DISPLACEMENT $ GRID ------------------------------------------ $ NUMBER NASTRAN EXPERIMENTAL ANALOG $ -------------------------------------------------------- $ 14 -.082 -.08 -.080 $ 15 -.221 -.22 -.210 $ 16 -.424 -.39 -.400 $ 34 -.063 -.07 -.061 $ 35 -.162 -.16 -.157 $ 36 -.293 -.28 -.286 $ 54 -.043 -.05 -.044 $ 55 -.104 -.12 -.144 $ 74 -.025 -.03 -.030 $ -------------------------------------------------------- $ $ Table 2. NASTRAN and Experimental Deflections - Concentrated Load on Outboard $ Leading Edge. $ -------------------------------------------------------- $ Z DISPLACEMENT $ GRID ------------------------------------------ $ NUMBER NASTRAN EXPERIMENTAL ANALOG $ -------------------------------------------------------- $ 14 -.063 -.06 -.060 $ 15 -.163 -.15 -.157 $ 16 -.293 -.28 -.286 $ 34 -.057 -.06 -.057 $ 35 -.148 -.15 -.150 $ 36 -.280 -.30 -.290 $ 54 -.046 -.05 -.048 $ 55 -.118 -.13 -.127 $ 74 -.030 -.04 -.035 $ -------------------------------------------------------- $ $ Table 3. NASTRAN and Analog Computer Analysis Eigenvalues $ ----------------------------------------- $ Mode No. NASTRAN (cps.) ANALOG (cps.) $ ----------------------------------------- $ 1 40.9 41.3 $ 2 115.3 131.0 $ 3 156.2 167.0 $ ----------------------------------------- $ $ Table 4. Mode Displacements For First Mode $ ------------------------- $ Z DISPLACEMENT $ GRID ---------------- $ NUMBER NASTRAN ANALOG $ ------------------------- $ 14 .250 .273 $ 15 .601 .630 $ 16 1.000 1.000 $ 34 .210 .239 $ 35 .504 .558 $ 36 .854 .902 $ 54 .162 .192 $ 55 .391 .462 $ 74 .112 .148 $ ------------------------- $ $ Table 5. Comparison of Z Displacements $ --------------------------------------------------------------- $ Trailing Edge Load Leading Edge Load $ -------------------------- ------------------------ $ CQDMEM1 and CQDMEM1 and $ Grid CQDMEM CQDMEM2 CQDMEM CQDMEM2 $ Point Elements Elements Elements Elements $ --------------------------------------------------------------- $ 14 -.082 -.082 -.063 -.064 $ 15 -.221 -.224 -.163 -.167 $ 16 -.424 -.433 -.293 -.300 $ 34 -.063 -.064 -.057 -.059 $ 35 -.162 -.166 -.148 -.154 $ 36 -.293 -.300 -.280 -.294 $ 54 -.043 -.044 -.046 -.047 $ 55 -.104 -.108 -.118 -.123 $ 74 -.025 -.026 -.030 -.031 $ --------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 1. Richard H. MacNeal and Stanley U. Benscoter, "Analysis of Multicell Delta $ Wings on Cal-Tech Analog Computer", NACA TN 3114, 1953. $ $ 2. George W. Zender, "Comparison of Theoretical Stresses and Deflections of $ Multicell Wings with Experimental Results Obtained from Plastic Models", $ NACA TN 3913. $ $ 26. Adelman, Howard E.; Walz, Joseph E.; and Rogers, James L., Jr.: "An $ Isoparametric Quadrilateral Membrane Element for NASTRAN", NASA TN X-2637, $ September, 1972, pp. 315-336. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01011b.inp ================================================ NASTRAN FILES = OPTP ID D01011B,RESTART $ INSERT THE RESTART DICTIONARY HERE READFILE,NOPRINT RSCARDS APP DISPLACEMENT SOL 1,1 TIME 5 CEND TITLE = DELTA WING RESTART SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B LABEL = LOAD ON LEADING EDGE LOAD = 2 SPC = 1 OUTPUT $ SET 1 HAS GRIDS ON THE UPPER SURFACE * * * * * * * * * * * * * * * $ SET 2 HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE), $ SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP) * * * * * * * * $ SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93 SET 2 = 1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50 $ DISPLACEMENTS = 1 SPCFORCE = ALL ELSTRESS = 2 BEGIN BULK ENDDATA ================================================ FILE: inp/d01011b.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Delta Wing with Biconvex Cross Section (1-1-1) $ Delta Wing, Biconvex Cross Section Using QDMEM1 and QDMEM2 Elements (1-1-2) $ Delta Wing, Biconvex Cross Section Using QDMEM1 Elements (1-1-3) $ Delta Wing, Biconvex Cross Section Using QDMEM2 Elements (1-1-4) $ $ A. Description $ $ This series illustrates the use of various NASTRAN elements in the solution of $ an actual structural problem. The delta wing model is composed of membrane, $ shear panel, and rod elements. Due to the existence of symmetry or $ antisymmetry in the structure and loading conditions, only one-quarter of the $ wing needs to be modeled. The midplane of the wing (the plane dividing the $ wing into upper and lower halves) is a plane of symmetry, as is the center $ plane (the plane that divides the wing into left and right halves). The $ loading conditions are antisymmetrical with respect to the midplane of the $ wing and symmetric with respect to the center plane. $ $ B. Input $ $ The surface skin of the wing is modeled with membrane elements while the ribs $ and spars are modeled with a combination of shear panels and rods. The shear $ load carrying capability of ribs and span is represented by shear panels. The $ bending stiffness of the ribs and spars is modeled with rod elements placed in $ the plane of the skin surface. $ $ Since a quarter model is used, the loading conditions require that an $ antisymmetric boundary be provided on the midplane and a symmetric boundary $ must be provided on the center plane. These boundary conditions are provided $ by constraining all grid points on the midplane in the x and y directions and $ all grid points on the center plane in the x direction. Supports for the $ structure are provided by constraining grid points 13, 33, 53, 73, and 93 in $ the z direction. Since no rotational rigidity is provided by the elements used $ in the model, all rotational degrees of freedom have been removed by the use $ of the GRDSET card. $ $ The problem is first modeled (Problem 1-1-1) with a load on the trailing $ edge and a checkpoint is requested. The modified restart (Problem 1-1-1A) $ capability is used to perform the analysis associated with the leading edge $ loading condition. The ability of NASTRAN to change rigid formats on a restart $ is demonstrated by the third case (Problem 1-1-1B). The natural modes of the $ structure are extracted using the Inverse Power method. Since the symmetric $ boundary conditions are used, only the modes with symmetric motion about the $ center line will be extracted. If the unsymmetric modes were required, a $ separate run with the appropriate boundary conditions could be submitted. $ $ A second variation (Problem 1-1-2) of the basic problem is obtained by $ replacing the quadrilateral membrane elements (QDMEM) with the QDMEM1 and $ QDMEM2 elements. This modification demonstrates the ability to reproduce $ previously derived theoretical results. The SORT2 format of the printed output $ allows the results obtained with a leading and trailing load to be compared. A $ third case (Problem 1-1-3) is modeled with all QDMEM elements replaced by $ QDMEM1 (Reference 26) elements. A grid point force balance is requested to $ verify that the static equilibrium of forces at a grid point (due to the load, $ constraints, and element forces) is zero. A fourth modeling of the wing $ (Problem 1-1-4) uses QDMEM2 elements in place of the QDMEM elements. In this $ case, element strain energy is requested to exhibit the energy transmitted by $ each of the elements due to the load and resultant deflections. $ $ 1. Parameters $ $ 6 2 $ E = 10.4 x 10 lb/in (modulus of elasticity) $ $ 6 2 $ G = 4.0 x 10 lb/in (shear modulus) $ $ -4 2 4 $ p = 2.523 x 10 lb sec /in (density) $ $ 2. Constraints $ $ theta sub x = theta sub y = theta sub z = 0.0 All grid points $ $ U = 0.0 Grids 13, 33, 53, 73, and 93 $ z $ $ U = 0.0 Grids 11, 31, 51, 71, and 91 $ x $ $ U = U = 0.0 Grids 1, 2, 3, 4, 5, 6, 21, 22, 23, 24, 25, 26, 41, $ x y 42, 43, 44, 45, 61, 62, 63, 64, 81, 82, and 83 $ $ 3. Loads $ $ Problems 1-1-1, 1-1-2, 1-1-3, 1-1-4 $ $ Grid 16 F = -500.0 (trailing edge) $ z $ Problem 1-1-2 $ $ Grid 36 F = -500.0 (leading edge) $ z $ $ 4. Eigenvalue extraction data $ $ Method: Inverse Power $ $ Region of interest: 30.0 <= f <= 160.0 $ $ Number of desired roots: 3 $ $ Number of estimated roots: 1 $ $ C. Results $ $ No closed-form or theoretical solution exists for this problem. However, a $ passive analog computer simulation (Reference 1) and a laboratory test $ (Reference 2) have been performed for this structural model. The displacements $ calculated by NASTRAN and the experimentally measured and simulated $ displacements are shown in Tables 1 and 2. The natural frequencies and modal $ displacements are shown in Tables 3 and 4. Table 5 presents the displacements $ for the static loading conditions when elements 1 through 9 are CQDMEM1 $ elements and the other quadrilaterals are CQDMEM2 elements. $ $ Table 1. NASTRAN and Experimental Deflections - Concentrated Load on Outboard $ Trailing Edge $ -------------------------------------------------------- $ Z DISPLACEMENT $ GRID ------------------------------------------ $ NUMBER NASTRAN EXPERIMENTAL ANALOG $ -------------------------------------------------------- $ 14 -.082 -.08 -.080 $ 15 -.221 -.22 -.210 $ 16 -.424 -.39 -.400 $ 34 -.063 -.07 -.061 $ 35 -.162 -.16 -.157 $ 36 -.293 -.28 -.286 $ 54 -.043 -.05 -.044 $ 55 -.104 -.12 -.144 $ 74 -.025 -.03 -.030 $ -------------------------------------------------------- $ $ Table 2. NASTRAN and Experimental Deflections - Concentrated Load on Outboard $ Leading Edge. $ -------------------------------------------------------- $ Z DISPLACEMENT $ GRID ------------------------------------------ $ NUMBER NASTRAN EXPERIMENTAL ANALOG $ -------------------------------------------------------- $ 14 -.063 -.06 -.060 $ 15 -.163 -.15 -.157 $ 16 -.293 -.28 -.286 $ 34 -.057 -.06 -.057 $ 35 -.148 -.15 -.150 $ 36 -.280 -.30 -.290 $ 54 -.046 -.05 -.048 $ 55 -.118 -.13 -.127 $ 74 -.030 -.04 -.035 $ -------------------------------------------------------- $ $ Table 3. NASTRAN and Analog Computer Analysis Eigenvalues $ ----------------------------------------- $ Mode No. NASTRAN (cps.) ANALOG (cps.) $ ----------------------------------------- $ 1 40.9 41.3 $ 2 115.3 131.0 $ 3 156.2 167.0 $ ----------------------------------------- $ $ Table 4. Mode Displacements For First Mode $ ------------------------- $ Z DISPLACEMENT $ GRID ---------------- $ NUMBER NASTRAN ANALOG $ ------------------------- $ 14 .250 .273 $ 15 .601 .630 $ 16 1.000 1.000 $ 34 .210 .239 $ 35 .504 .558 $ 36 .854 .902 $ 54 .162 .192 $ 55 .391 .462 $ 74 .112 .148 $ ------------------------- $ $ Table 5. Comparison of Z Displacements $ --------------------------------------------------------------- $ Trailing Edge Load Leading Edge Load $ -------------------------- ------------------------ $ CQDMEM1 and CQDMEM1 and $ Grid CQDMEM CQDMEM2 CQDMEM CQDMEM2 $ Point Elements Elements Elements Elements $ --------------------------------------------------------------- $ 14 -.082 -.082 -.063 -.064 $ 15 -.221 -.224 -.163 -.167 $ 16 -.424 -.433 -.293 -.300 $ 34 -.063 -.064 -.057 -.059 $ 35 -.162 -.166 -.148 -.154 $ 36 -.293 -.300 -.280 -.294 $ 54 -.043 -.044 -.046 -.047 $ 55 -.104 -.108 -.118 -.123 $ 74 -.025 -.026 -.030 -.031 $ --------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 1. Richard H. MacNeal and Stanley U. Benscoter, "Analysis of Multicell Delta $ Wings on Cal-Tech Analog Computer", NACA TN 3114, 1953. $ $ 2. George W. Zender, "Comparison of Theoretical Stresses and Deflections of $ Multicell Wings with Experimental Results Obtained from Plastic Models", $ NACA TN 3913. $ $ 26. Adelman, Howard E.; Walz, Joseph E.; and Rogers, James L., Jr.: "An $ Isoparametric Quadrilateral Membrane Element for NASTRAN", NASA TN X-2637, $ September, 1972, pp. 315-336. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01011c.inp ================================================ NASTRAN FILES = OPTP ID D01011C,RESTART $ INSERT THE RESTART DICTIONARY HERE READFILE RSCARDS TIME 5 SOL 3,1 APP DISPLACEMENT CEND TITLE = DELTA WING RESTART, REAL EIGENVALUE ANALYSIS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C LABEL = RIGID FORMAT SWITCH FROM 1 TO 3 SPC = 1 METHOD = 12 OUTPUT $ SET 1 HAS GRIDS ON THE UPPER SURFACE * * * * * * * * * * * * * * * $ SET 2 HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE), $ SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP) * * * * * * * * $ SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93 SET 2 = 1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50 $ DISPLACEMENTS = 1 SPCFORCE = ALL ELSTRESS = 2 BEGIN BULK EIGR 12 INV 30.0 160.0 1 3 0 1.-4 +EIGR12 +EIGR12 MAX ENDDATA ================================================ FILE: inp/d01011c.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Delta Wing with Biconvex Cross Section (1-1-1) $ Delta Wing, Biconvex Cross Section Using QDMEM1 and QDMEM2 Elements (1-1-2) $ Delta Wing, Biconvex Cross Section Using QDMEM1 Elements (1-1-3) $ Delta Wing, Biconvex Cross Section Using QDMEM2 Elements (1-1-4) $ $ A. Description $ $ This series illustrates the use of various NASTRAN elements in the solution of $ an actual structural problem. The delta wing model is composed of membrane, $ shear panel, and rod elements. Due to the existence of symmetry or $ antisymmetry in the structure and loading conditions, only one-quarter of the $ wing needs to be modeled. The midplane of the wing (the plane dividing the $ wing into upper and lower halves) is a plane of symmetry, as is the center $ plane (the plane that divides the wing into left and right halves). The $ loading conditions are antisymmetrical with respect to the midplane of the $ wing and symmetric with respect to the center plane. $ $ B. Input $ $ The surface skin of the wing is modeled with membrane elements while the ribs $ and spars are modeled with a combination of shear panels and rods. The shear $ load carrying capability of ribs and span is represented by shear panels. The $ bending stiffness of the ribs and spars is modeled with rod elements placed in $ the plane of the skin surface. $ $ Since a quarter model is used, the loading conditions require that an $ antisymmetric boundary be provided on the midplane and a symmetric boundary $ must be provided on the center plane. These boundary conditions are provided $ by constraining all grid points on the midplane in the x and y directions and $ all grid points on the center plane in the x direction. Supports for the $ structure are provided by constraining grid points 13, 33, 53, 73, and 93 in $ the z direction. Since no rotational rigidity is provided by the elements used $ in the model, all rotational degrees of freedom have been removed by the use $ of the GRDSET card. $ $ The problem is first modeled (Problem 1-1-1) with a load on the trailing $ edge and a checkpoint is requested. The modified restart (Problem 1-1-1A) $ capability is used to perform the analysis associated with the leading edge $ loading condition. The ability of NASTRAN to change rigid formats on a restart $ is demonstrated by the third case (Problem 1-1-1B). The natural modes of the $ structure are extracted using the Inverse Power method. Since the symmetric $ boundary conditions are used, only the modes with symmetric motion about the $ center line will be extracted. If the unsymmetric modes were required, a $ separate run with the appropriate boundary conditions could be submitted. $ $ A second variation (Problem 1-1-2) of the basic problem is obtained by $ replacing the quadrilateral membrane elements (QDMEM) with the QDMEM1 and $ QDMEM2 elements. This modification demonstrates the ability to reproduce $ previously derived theoretical results. The SORT2 format of the printed output $ allows the results obtained with a leading and trailing load to be compared. A $ third case (Problem 1-1-3) is modeled with all QDMEM elements replaced by $ QDMEM1 (Reference 26) elements. A grid point force balance is requested to $ verify that the static equilibrium of forces at a grid point (due to the load, $ constraints, and element forces) is zero. A fourth modeling of the wing $ (Problem 1-1-4) uses QDMEM2 elements in place of the QDMEM elements. In this $ case, element strain energy is requested to exhibit the energy transmitted by $ each of the elements due to the load and resultant deflections. $ $ 1. Parameters $ $ 6 2 $ E = 10.4 x 10 lb/in (modulus of elasticity) $ $ 6 2 $ G = 4.0 x 10 lb/in (shear modulus) $ $ -4 2 4 $ p = 2.523 x 10 lb sec /in (density) $ $ 2. Constraints $ $ theta sub x = theta sub y = theta sub z = 0.0 All grid points $ $ U = 0.0 Grids 13, 33, 53, 73, and 93 $ z $ $ U = 0.0 Grids 11, 31, 51, 71, and 91 $ x $ $ U = U = 0.0 Grids 1, 2, 3, 4, 5, 6, 21, 22, 23, 24, 25, 26, 41, $ x y 42, 43, 44, 45, 61, 62, 63, 64, 81, 82, and 83 $ $ 3. Loads $ $ Problems 1-1-1, 1-1-2, 1-1-3, 1-1-4 $ $ Grid 16 F = -500.0 (trailing edge) $ z $ Problem 1-1-2 $ $ Grid 36 F = -500.0 (leading edge) $ z $ $ 4. Eigenvalue extraction data $ $ Method: Inverse Power $ $ Region of interest: 30.0 <= f <= 160.0 $ $ Number of desired roots: 3 $ $ Number of estimated roots: 1 $ $ C. Results $ $ No closed-form or theoretical solution exists for this problem. However, a $ passive analog computer simulation (Reference 1) and a laboratory test $ (Reference 2) have been performed for this structural model. The displacements $ calculated by NASTRAN and the experimentally measured and simulated $ displacements are shown in Tables 1 and 2. The natural frequencies and modal $ displacements are shown in Tables 3 and 4. Table 5 presents the displacements $ for the static loading conditions when elements 1 through 9 are CQDMEM1 $ elements and the other quadrilaterals are CQDMEM2 elements. $ $ Table 1. NASTRAN and Experimental Deflections - Concentrated Load on Outboard $ Trailing Edge $ -------------------------------------------------------- $ Z DISPLACEMENT $ GRID ------------------------------------------ $ NUMBER NASTRAN EXPERIMENTAL ANALOG $ -------------------------------------------------------- $ 14 -.082 -.08 -.080 $ 15 -.221 -.22 -.210 $ 16 -.424 -.39 -.400 $ 34 -.063 -.07 -.061 $ 35 -.162 -.16 -.157 $ 36 -.293 -.28 -.286 $ 54 -.043 -.05 -.044 $ 55 -.104 -.12 -.144 $ 74 -.025 -.03 -.030 $ -------------------------------------------------------- $ $ Table 2. NASTRAN and Experimental Deflections - Concentrated Load on Outboard $ Leading Edge. $ -------------------------------------------------------- $ Z DISPLACEMENT $ GRID ------------------------------------------ $ NUMBER NASTRAN EXPERIMENTAL ANALOG $ -------------------------------------------------------- $ 14 -.063 -.06 -.060 $ 15 -.163 -.15 -.157 $ 16 -.293 -.28 -.286 $ 34 -.057 -.06 -.057 $ 35 -.148 -.15 -.150 $ 36 -.280 -.30 -.290 $ 54 -.046 -.05 -.048 $ 55 -.118 -.13 -.127 $ 74 -.030 -.04 -.035 $ -------------------------------------------------------- $ $ Table 3. NASTRAN and Analog Computer Analysis Eigenvalues $ ----------------------------------------- $ Mode No. NASTRAN (cps.) ANALOG (cps.) $ ----------------------------------------- $ 1 40.9 41.3 $ 2 115.3 131.0 $ 3 156.2 167.0 $ ----------------------------------------- $ $ Table 4. Mode Displacements For First Mode $ ------------------------- $ Z DISPLACEMENT $ GRID ---------------- $ NUMBER NASTRAN ANALOG $ ------------------------- $ 14 .250 .273 $ 15 .601 .630 $ 16 1.000 1.000 $ 34 .210 .239 $ 35 .504 .558 $ 36 .854 .902 $ 54 .162 .192 $ 55 .391 .462 $ 74 .112 .148 $ ------------------------- $ $ Table 5. Comparison of Z Displacements $ --------------------------------------------------------------- $ Trailing Edge Load Leading Edge Load $ -------------------------- ------------------------ $ CQDMEM1 and CQDMEM1 and $ Grid CQDMEM CQDMEM2 CQDMEM CQDMEM2 $ Point Elements Elements Elements Elements $ --------------------------------------------------------------- $ 14 -.082 -.082 -.063 -.064 $ 15 -.221 -.224 -.163 -.167 $ 16 -.424 -.433 -.293 -.300 $ 34 -.063 -.064 -.057 -.059 $ 35 -.162 -.166 -.148 -.154 $ 36 -.293 -.300 -.280 -.294 $ 54 -.043 -.044 -.046 -.047 $ 55 -.104 -.108 -.118 -.123 $ 74 -.025 -.026 -.030 -.031 $ --------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 1. Richard H. MacNeal and Stanley U. Benscoter, "Analysis of Multicell Delta $ Wings on Cal-Tech Analog Computer", NACA TN 3114, 1953. $ $ 2. George W. Zender, "Comparison of Theoretical Stresses and Deflections of $ Multicell Wings with Experimental Results Obtained from Plastic Models", $ NACA TN 3913. $ $ 26. Adelman, Howard E.; Walz, Joseph E.; and Rogers, James L., Jr.: "An $ Isoparametric Quadrilateral Membrane Element for NASTRAN", NASA TN X-2637, $ September, 1972, pp. 315-336. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01012a.inp ================================================ ID D01012A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 5 CEND TITLE = STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A LABEL = QDMEM1 AND QDMEM2 ELEMENTS SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93 SET 2 = 1 THRU 22,28 THRU 31,35,36,41 THRU 44,50 DISPLACEMENTS (SORT2) = 1 SPCF (SORT2) = ALL ELSTRESS (SORT2) = 2 SPC = 1 SUBCASE 1 LOAD = 1 SUBCASE 2 LOAD = 2 BEGIN BULK CONROD 100 11 12 1 .035 CONROD 101 12 13 1 .035 CONROD 102 13 14 1 .0344 CONROD 103 14 15 1 .0325 CONROD 104 15 16 1 .03 CONROD 105 31 32 1 .091 CONROD 106 32 33 1 .091 CONROD 107 33 34 1 .088 CONROD 108 34 35 1 .0719 CONROD 109 35 36 1 .0453 CONROD 110 51 52 1 .11 CONROD 111 52 53 1 .11 CONROD 112 53 54 1 .094 CONROD 113 54 55 1 .0563 CONROD 114 71 72 1 .091 CONROD 115 72 73 1 .091 CONROD 116 73 74 1 .0649 CONROD 117 91 92 1 .035 CONROD 118 92 93 1 .035 CONROD 119 12 32 1 .063 CONROD 120 32 52 1 .1002 CONROD 121 52 72 1 .1002 CONROD 122 72 92 1 .063 CONROD 123 13 33 1 .063 CONROD 124 33 53 1 .1002 CONROD 125 53 73 1 .1002 CONROD 126 73 93 1 .063 CONROD 127 14 34 1 .0572 CONROD 128 36 54 1 .0805 CONROD 129 54 74 1 .0572 CONROD 130 15 35 1 .0474 CONROD 131 35 55 1 .0474 CONROD 132 16 36 1 .028 CONROD 133 93 74 1 .0344 CONROD 134 74 55 1 .0325 CONROD 135 55 36 1 .03 CQDMEM1 1 1 11 12 32 31 CQDMEM1 2 1 12 13 33 32 CQDMEM1 3 1 13 14 34 33 CQDMEM1 4 1 14 15 35 34 CQDMEM1 5 1 15 16 36 35 CQDMEM1 6 1 31 32 52 51 CQDMEM1 7 1 32 33 53 52 CQDMEM2 8 1 33 34 54 53 CQDMEM2 9 1 34 35 55 54 CQDMEM2 11 1 51 52 72 71 CQDMEM2 12 1 52 53 73 72 CQDMEM2 13 1 53 54 74 73 CQDMEM2 15 1 71 72 92 91 CQDMEM2 16 1 72 73 93 92 CROD 60 5 1 11 61 6 2 12 CROD 62 8 3 13 63 8 4 14 CROD 64 8 5 15 65 6 6 16 CROD 66 6 21 31 67 7 22 32 CROD 68 9 23 33 69 9 24 34 CROD 70 9 25 35 71 8 26 36 CROD 72 6 41 51 73 7 42 52 CROD 74 9 43 53 75 9 44 54 CROD 76 9 45 55 77 6 61 71 CROD 78 7 62 72 79 9 63 73 CROD 80 9 64 74 81 5 81 91 CROD 82 6 82 92 83 8 83 93 CSHEAR 18 2 1 2 12 11 CSHEAR 19 2 2 3 13 12 CSHEAR 20 2 3 4 14 13 CSHEAR 21 2 4 5 15 14 CSHEAR 22 2 5 6 16 15 CSHEAR 23 2 21 22 32 31 CSHEAR 24 2 22 23 33 32 CSHEAR 25 2 23 24 34 33 CSHEAR 26 2 24 25 35 34 CSHEAR 27 2 25 26 36 35 CSHEAR 28 2 41 42 52 51 CSHEAR 29 2 42 43 53 52 CSHEAR 30 2 43 44 54 53 CSHEAR 31 2 44 45 55 54 CSHEAR 32 2 61 62 72 71 CSHEAR 33 2 62 63 73 72 CSHEAR 34 2 63 64 74 73 CSHEAR 35 2 81 82 92 91 CSHEAR 36 2 82 83 93 92 CSHEAR 37 2 2 22 32 12 CSHEAR 38 2 22 42 52 32 CSHEAR 39 2 42 62 72 52 CSHEAR 40 2 62 82 92 72 CSHEAR 41 2 3 23 33 13 CSHEAR 42 2 23 43 53 33 CSHEAR 43 2 43 63 73 53 CSHEAR 44 2 63 83 93 73 CSHEAR 45 2 4 24 34 14 CSHEAR 46 2 24 44 54 34 CSHEAR 47 2 44 64 74 54 CSHEAR 48 2 5 25 35 15 CSHEAR 49 2 25 45 55 35 CSHEAR 50 2 6 26 36 16 CSHEAR 51 2 26 45 55 36 CSHEAR 52 2 45 64 74 55 CSHEAR 53 2 64 83 93 74 CTRMEM 10 3 35 36 55 CTRMEM 14 3 54 55 74 CTRMEM 17 3 73 74 93 FORCE 1 16 0 -1.0 .0 .0 500. FORCE 2 36 -1.0 .0 .0 500. GRDSET 456 GRID 1 .0 .0 .0 GRID 2 10.0 .0 .0 GRID 3 30.0 .0 .0 GRID 4 50.0 .0 .0 GRID 5 70.0 .0 .0 GRID 6 90.0 .0 .0 GRID 11 .0 .0 .82 GRID 12 10.0 .0 .82 GRID 13 30.0 .0 .82 GRID 14 50.0 .0 .795 GRID 15 70.0 .0 .754 GRID 16 90.0 .0 .67 GRID 21 .0 20.0 .0 GRID 22 10.0 20.0 .0 GRID 23 30.0 20.0 .0 GRID 24 50.0 20.0 .0 GRID 25 70.0 20.0 .0 GRID 26 90.0 20.0 .0 GRID 31 .0 20.0 2.02 GRID 32 10.0 20.0 2.02 GRID 33 30.0 20.0 2.02 GRID 34 50.0 20.0 1.795 GRID 35 70.0 20.0 1.42 GRID 36 90.0 20.0 .67 GRID 41 .0 40.0 .0 GRID 42 10.0 40.0 .0 GRID 43 30.0 40.0 .0 GRID 44 50.0 40.0 .0 GRID 45 70.0 40.0 .0 GRID 51 .0 40.0 2.42 GRID 52 10.0 40.0 2.42 GRID 53 30.0 40.0 2.42 GRID 54 50.0 40.0 1.795 GRID 55 70.0 40.0 .754 GRID 61 .0 60.0 .0 GRID 62 10.0 60.0 .0 GRID 63 30.0 60.0 .0 GRID 64 50.0 60.0 .0 GRID 71 .0 60.0 2.02 GRID 72 10. 60.0 2.02 GRID 73 30. 60.0 2.02 GRID 74 50. 60.0 .795 GRID 81 .0 80.0 .0 GRID 82 10. 80.0 .0 GRID 83 30. 80.0 .0 GRID 91 .0 80.0 .82 GRID 92 10. 80.0 .82 GRID 93 30. 80.0 .82 MAT1 1 10.4 +6 4. +6 MAT1 2 1.04 +7 4. +6 .2523 -3 PARAM IRES 1 PQDMEM1 1 2 .16 .0 PQDMEM2 1 2 .16 .0 PROD 5 1 2.1 PROD 6 1 3.5 PROD 7 1 4.91 PROD 8 1 4.2 PROD 9 1 5.6 PSHEAR 2 2 .14 .0 PTRMEM 3 2 .16 .0 SPC1 1 1 11 31 51 71 91 SPC1 1 3 13 33 53 73 93 SPC1 1 12 1 2 3 4 5 6 +SPC-A +SPC-A 21 22 23 24 25 26 41 42 +SPC-B +SPC-B 43 44 45 61 62 63 64 81 +SPC-C +SPC-C 82 83 ENDDATA : ================================================ FILE: inp/d01012a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Delta Wing with Biconvex Cross Section (1-1-1) $ Delta Wing, Biconvex Cross Section Using QDMEM1 and QDMEM2 Elements (1-1-2) $ Delta Wing, Biconvex Cross Section Using QDMEM1 Elements (1-1-3) $ Delta Wing, Biconvex Cross Section Using QDMEM2 Elements (1-1-4) $ $ A. Description $ $ This series illustrates the use of various NASTRAN elements in the solution of $ an actual structural problem. The delta wing model is composed of membrane, $ shear panel, and rod elements. Due to the existence of symmetry or $ antisymmetry in the structure and loading conditions, only one-quarter of the $ wing needs to be modeled. The midplane of the wing (the plane dividing the $ wing into upper and lower halves) is a plane of symmetry, as is the center $ plane (the plane that divides the wing into left and right halves). The $ loading conditions are antisymmetrical with respect to the midplane of the $ wing and symmetric with respect to the center plane. $ $ B. Input $ $ The surface skin of the wing is modeled with membrane elements while the ribs $ and spars are modeled with a combination of shear panels and rods. The shear $ load carrying capability of ribs and span is represented by shear panels. The $ bending stiffness of the ribs and spars is modeled with rod elements placed in $ the plane of the skin surface. $ $ Since a quarter model is used, the loading conditions require that an $ antisymmetric boundary be provided on the midplane and a symmetric boundary $ must be provided on the center plane. These boundary conditions are provided $ by constraining all grid points on the midplane in the x and y directions and $ all grid points on the center plane in the x direction. Supports for the $ structure are provided by constraining grid points 13, 33, 53, 73, and 93 in $ the z direction. Since no rotational rigidity is provided by the elements used $ in the model, all rotational degrees of freedom have been removed by the use $ of the GRDSET card. $ $ The problem is first modeled (Problem 1-1-1) with a load on the trailing $ edge and a checkpoint is requested. The modified restart (Problem 1-1-1A) $ capability is used to perform the analysis associated with the leading edge $ loading condition. The ability of NASTRAN to change rigid formats on a restart $ is demonstrated by the third case (Problem 1-1-1B). The natural modes of the $ structure are extracted using the Inverse Power method. Since the symmetric $ boundary conditions are used, only the modes with symmetric motion about the $ center line will be extracted. If the unsymmetric modes were required, a $ separate run with the appropriate boundary conditions could be submitted. $ $ A second variation (Problem 1-1-2) of the basic problem is obtained by $ replacing the quadrilateral membrane elements (QDMEM) with the QDMEM1 and $ QDMEM2 elements. This modification demonstrates the ability to reproduce $ previously derived theoretical results. The SORT2 format of the printed output $ allows the results obtained with a leading and trailing load to be compared. A $ third case (Problem 1-1-3) is modeled with all QDMEM elements replaced by $ QDMEM1 (Reference 26) elements. A grid point force balance is requested to $ verify that the static equilibrium of forces at a grid point (due to the load, $ constraints, and element forces) is zero. A fourth modeling of the wing $ (Problem 1-1-4) uses QDMEM2 elements in place of the QDMEM elements. In this $ case, element strain energy is requested to exhibit the energy transmitted by $ each of the elements due to the load and resultant deflections. $ $ 1. Parameters $ $ 6 2 $ E = 10.4 x 10 lb/in (modulus of elasticity) $ $ 6 2 $ G = 4.0 x 10 lb/in (shear modulus) $ $ -4 2 4 $ p = 2.523 x 10 lb sec /in (density) $ $ 2. Constraints $ $ theta sub x = theta sub y = theta sub z = 0.0 All grid points $ $ U = 0.0 Grids 13, 33, 53, 73, and 93 $ z $ $ U = 0.0 Grids 11, 31, 51, 71, and 91 $ x $ $ U = U = 0.0 Grids 1, 2, 3, 4, 5, 6, 21, 22, 23, 24, 25, 26, 41, $ x y 42, 43, 44, 45, 61, 62, 63, 64, 81, 82, and 83 $ $ 3. Loads $ $ Problems 1-1-1, 1-1-2, 1-1-3, 1-1-4 $ $ Grid 16 F = -500.0 (trailing edge) $ z $ Problem 1-1-2 $ $ Grid 36 F = -500.0 (leading edge) $ z $ $ 4. Eigenvalue extraction data $ $ Method: Inverse Power $ $ Region of interest: 30.0 <= f <= 160.0 $ $ Number of desired roots: 3 $ $ Number of estimated roots: 1 $ $ C. Results $ $ No closed-form or theoretical solution exists for this problem. However, a $ passive analog computer simulation (Reference 1) and a laboratory test $ (Reference 2) have been performed for this structural model. The displacements $ calculated by NASTRAN and the experimentally measured and simulated $ displacements are shown in Tables 1 and 2. The natural frequencies and modal $ displacements are shown in Tables 3 and 4. Table 5 presents the displacements $ for the static loading conditions when elements 1 through 9 are CQDMEM1 $ elements and the other quadrilaterals are CQDMEM2 elements. $ $ Table 1. NASTRAN and Experimental Deflections - Concentrated Load on Outboard $ Trailing Edge $ -------------------------------------------------------- $ Z DISPLACEMENT $ GRID ------------------------------------------ $ NUMBER NASTRAN EXPERIMENTAL ANALOG $ -------------------------------------------------------- $ 14 -.082 -.08 -.080 $ 15 -.221 -.22 -.210 $ 16 -.424 -.39 -.400 $ 34 -.063 -.07 -.061 $ 35 -.162 -.16 -.157 $ 36 -.293 -.28 -.286 $ 54 -.043 -.05 -.044 $ 55 -.104 -.12 -.144 $ 74 -.025 -.03 -.030 $ -------------------------------------------------------- $ $ Table 2. NASTRAN and Experimental Deflections - Concentrated Load on Outboard $ Leading Edge. $ -------------------------------------------------------- $ Z DISPLACEMENT $ GRID ------------------------------------------ $ NUMBER NASTRAN EXPERIMENTAL ANALOG $ -------------------------------------------------------- $ 14 -.063 -.06 -.060 $ 15 -.163 -.15 -.157 $ 16 -.293 -.28 -.286 $ 34 -.057 -.06 -.057 $ 35 -.148 -.15 -.150 $ 36 -.280 -.30 -.290 $ 54 -.046 -.05 -.048 $ 55 -.118 -.13 -.127 $ 74 -.030 -.04 -.035 $ -------------------------------------------------------- $ $ Table 3. NASTRAN and Analog Computer Analysis Eigenvalues $ ----------------------------------------- $ Mode No. NASTRAN (cps.) ANALOG (cps.) $ ----------------------------------------- $ 1 40.9 41.3 $ 2 115.3 131.0 $ 3 156.2 167.0 $ ----------------------------------------- $ $ Table 4. Mode Displacements For First Mode $ ------------------------- $ Z DISPLACEMENT $ GRID ---------------- $ NUMBER NASTRAN ANALOG $ ------------------------- $ 14 .250 .273 $ 15 .601 .630 $ 16 1.000 1.000 $ 34 .210 .239 $ 35 .504 .558 $ 36 .854 .902 $ 54 .162 .192 $ 55 .391 .462 $ 74 .112 .148 $ ------------------------- $ $ Table 5. Comparison of Z Displacements $ --------------------------------------------------------------- $ Trailing Edge Load Leading Edge Load $ -------------------------- ------------------------ $ CQDMEM1 and CQDMEM1 and $ Grid CQDMEM CQDMEM2 CQDMEM CQDMEM2 $ Point Elements Elements Elements Elements $ --------------------------------------------------------------- $ 14 -.082 -.082 -.063 -.064 $ 15 -.221 -.224 -.163 -.167 $ 16 -.424 -.433 -.293 -.300 $ 34 -.063 -.064 -.057 -.059 $ 35 -.162 -.166 -.148 -.154 $ 36 -.293 -.300 -.280 -.294 $ 54 -.043 -.044 -.046 -.047 $ 55 -.104 -.108 -.118 -.123 $ 74 -.025 -.026 -.030 -.031 $ --------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 1. Richard H. MacNeal and Stanley U. Benscoter, "Analysis of Multicell Delta $ Wings on Cal-Tech Analog Computer", NACA TN 3114, 1953. $ $ 2. George W. Zender, "Comparison of Theoretical Stresses and Deflections of $ Multicell Wings with Experimental Results Obtained from Plastic Models", $ NACA TN 3913. $ $ 26. Adelman, Howard E.; Walz, Joseph E.; and Rogers, James L., Jr.: "An $ Isoparametric Quadrilateral Membrane Element for NASTRAN", NASA TN X-2637, $ September, 1972, pp. 315-336. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01013a.inp ================================================ ID D01013A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 15 CEND TITLE = DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A LABEL = LOAD ON TRAILING EDGE SPC = 1 LOAD = 1 OUTPUT $ SET 1 HAS GRIDS ON THE UPPER SURFACE * * * * * * * * * * * * * * * $ SET 2 HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE), $ SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP) * * * * * * * * $ SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93 SET 2 = 1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50 $ DISPLACEMENTS = 1 SPCFORCE = ALL GPFORCE = ALL FORCE = ALL ELSTRESS = 2 BEGIN BULK CONROD 100 11 12 1 .035 CONROD 101 12 13 1 .035 CONROD 102 13 14 1 .0344 CONROD 103 14 15 1 .0325 CONROD 104 15 16 1 .03 CONROD 105 31 32 1 .091 CONROD 106 32 33 1 .091 CONROD 107 33 34 1 .088 CONROD 108 34 35 1 .0719 CONROD 109 35 36 1 .0453 CONROD 110 51 52 1 .11 CONROD 111 52 53 1 .11 CONROD 112 53 54 1 .094 CONROD 113 54 55 1 .0563 CONROD 114 71 72 1 .091 CONROD 115 72 73 1 .091 CONROD 116 73 74 1 .0649 CONROD 117 91 92 1 .035 CONROD 118 92 93 1 .035 CONROD 119 12 32 1 .063 CONROD 120 32 52 1 .1002 CONROD 121 52 72 1 .1002 CONROD 122 72 92 1 .063 CONROD 123 13 33 1 .063 CONROD 124 33 53 1 .1002 CONROD 125 53 73 1 .1002 CONROD 126 73 93 1 .063 CONROD 127 14 34 1 .0572 CONROD 128 34 54 1 .0805 CONROD 129 54 74 1 .0572 CONROD 130 15 35 1 .0474 CONROD 131 35 55 1 .0474 CONROD 132 16 36 1 .028 CONROD 133 93 74 1 .0344 CONROD 134 74 55 1 .0325 CONROD 135 55 36 1 .03 CQDMEM1 1 1 11 12 32 31 CQDMEM1 2 1 12 13 33 32 CQDMEM1 3 1 13 14 34 33 CQDMEM1 4 1 14 15 35 34 CQDMEM1 5 1 15 16 36 35 CQDMEM1 6 1 31 32 52 51 CQDMEM1 7 1 32 33 53 52 CQDMEM1 8 1 33 34 54 53 CQDMEM1 9 1 34 35 55 54 CQDMEM1 11 1 51 52 72 71 CQDMEM1 12 1 52 53 73 72 CQDMEM1 13 1 53 54 74 73 CQDMEM1 15 1 71 72 92 91 CQDMEM1 16 1 72 73 93 92 CROD 60 5 1 11 61 6 2 12 CROD 62 8 3 13 63 8 4 14 CROD 64 8 5 15 65 6 6 16 CROD 66 6 21 31 67 7 22 32 CROD 68 9 23 33 69 9 24 34 CROD 70 9 25 35 71 8 26 36 CROD 72 6 41 51 73 7 42 52 CROD 74 9 43 53 75 9 44 54 CROD 76 9 45 55 77 6 61 71 CROD 78 7 62 72 79 9 63 73 CROD 80 9 64 74 81 5 81 91 CROD 82 6 82 92 83 8 83 93 CSHEAR 18 2 1 2 12 11 CSHEAR 19 2 2 3 13 12 CSHEAR 20 2 3 4 14 13 CSHEAR 21 2 4 5 15 14 CSHEAR 22 2 5 6 16 15 CSHEAR 23 2 21 22 32 31 CSHEAR 24 2 22 23 33 32 CSHEAR 25 2 23 24 34 33 CSHEAR 26 2 24 25 35 34 CSHEAR 27 2 25 26 36 35 CSHEAR 28 2 41 42 52 51 CSHEAR 29 2 42 43 53 52 CSHEAR 30 2 43 44 54 53 CSHEAR 31 2 44 45 55 54 CSHEAR 32 2 61 62 72 71 CSHEAR 33 2 62 63 73 72 CSHEAR 34 2 63 64 74 73 CSHEAR 35 2 81 82 92 91 CSHEAR 36 2 82 83 93 92 CSHEAR 37 2 2 22 32 12 CSHEAR 38 2 22 42 52 32 CSHEAR 39 2 42 62 72 52 CSHEAR 40 2 62 82 92 72 CSHEAR 41 2 3 23 33 13 CSHEAR 42 2 23 43 53 33 CSHEAR 43 2 43 63 73 53 CSHEAR 44 2 63 83 93 73 CSHEAR 45 2 4 24 34 14 CSHEAR 46 2 24 44 54 34 CSHEAR 47 2 44 64 74 54 CSHEAR 48 2 5 25 35 15 CSHEAR 49 2 25 45 55 35 CSHEAR 50 2 6 26 36 16 CSHEAR 51 2 26 45 55 36 CSHEAR 52 2 45 64 74 55 CSHEAR 53 2 64 83 93 74 CTRMEM 10 3 35 36 55 CTRMEM 14 3 54 55 74 CTRMEM 17 3 73 74 93 FORCE 1 16 0 -1. .0 .0 500. FORCE 2 36 -1.0 .0 .0 500.0 GRDSET 456 GRID 1 .0 .0 .0 GRID 2 10. .0 .0 GRID 3 30. .0 .0 GRID 4 50. .0 .0 GRID 5 70. .0 .0 GRID 6 90. .0 .0 GRID 11 .0 .0 .82 GRID 12 10. .0 .82 GRID 13 30. .0 .82 GRID 14 50. .0 .795 GRID 15 70. .0 .754 GRID 16 90. .0 .67 GRID 21 .0 20. .0 GRID 22 10. 20. .0 GRID 23 30. 20. .0 GRID 24 50. 20. .0 GRID 25 70. 20. .0 GRID 26 90. 20. .0 GRID 31 .0 20. 2.02 GRID 32 10. 20. 2.02 GRID 33 30. 20. 2.02 GRID 34 50. 20. 1.795 GRID 35 70. 20. 1.42 GRID 36 90. 20. .67 GRID 41 .0 40. .0 GRID 42 10. 40. .0 GRID 43 30. 40. .0 GRID 44 50. 40. .0 GRID 45 70. 40. .0 GRID 51 .0 40. 2.42 GRID 52 10. 40. 2.42 GRID 53 30. 40. 2.42 GRID 54 50. 40. 1.795 GRID 55 70. 40. .754 GRID 61 .0 60. .0 GRID 62 10. 60. .0 GRID 63 30. 60. .0 GRID 64 50. 60. .0 GRID 71 .0 60. 2.02 GRID 72 10. 60. 2.02 GRID 73 30. 60. 2.02 GRID 74 50. 60. .795 GRID 81 .0 80. .0 GRID 82 10. 80. .0 GRID 83 30. 80. .0 GRID 91 .0 80. .82 GRID 92 10. 80. .82 GRID 93 30. 80. .82 MAT1 1 10.4 +64. +6 MAT1 2 1.04+7 4.+6 .2523-3 PARAM IRES 1 PQDMEM1 1 2 .16 .0 PROD 5 1 2.1 PROD 6 1 3.5 PROD 7 1 4.91 PROD 8 1 4.2 PROD 9 1 5.6 PSHEAR 2 2 .14 .0 PTRMEM 3 2 .16 .0 SPC1 1 1 11 31 51 71 91 SPC1 1 3 13 33 53 73 93 SPC1 1 12 1 2 3 4 5 6 +SPC-A +SPC-A 21 22 23 24 25 26 41 42 +SPC-B +SPC-B 43 44 45 61 62 63 64 81 +SPC-C +SPC-C 82 83 ENDDATA ================================================ FILE: inp/d01013a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Delta Wing with Biconvex Cross Section (1-1-1) $ Delta Wing, Biconvex Cross Section Using QDMEM1 and QDMEM2 Elements (1-1-2) $ Delta Wing, Biconvex Cross Section Using QDMEM1 Elements (1-1-3) $ Delta Wing, Biconvex Cross Section Using QDMEM2 Elements (1-1-4) $ $ A. Description $ $ This series illustrates the use of various NASTRAN elements in the solution of $ an actual structural problem. The delta wing model is composed of membrane, $ shear panel, and rod elements. Due to the existence of symmetry or $ antisymmetry in the structure and loading conditions, only one-quarter of the $ wing needs to be modeled. The midplane of the wing (the plane dividing the $ wing into upper and lower halves) is a plane of symmetry, as is the center $ plane (the plane that divides the wing into left and right halves). The $ loading conditions are antisymmetrical with respect to the midplane of the $ wing and symmetric with respect to the center plane. $ $ B. Input $ $ The surface skin of the wing is modeled with membrane elements while the ribs $ and spars are modeled with a combination of shear panels and rods. The shear $ load carrying capability of ribs and span is represented by shear panels. The $ bending stiffness of the ribs and spars is modeled with rod elements placed in $ the plane of the skin surface. $ $ Since a quarter model is used, the loading conditions require that an $ antisymmetric boundary be provided on the midplane and a symmetric boundary $ must be provided on the center plane. These boundary conditions are provided $ by constraining all grid points on the midplane in the x and y directions and $ all grid points on the center plane in the x direction. Supports for the $ structure are provided by constraining grid points 13, 33, 53, 73, and 93 in $ the z direction. Since no rotational rigidity is provided by the elements used $ in the model, all rotational degrees of freedom have been removed by the use $ of the GRDSET card. $ $ The problem is first modeled (Problem 1-1-1) with a load on the trailing $ edge and a checkpoint is requested. The modified restart (Problem 1-1-1A) $ capability is used to perform the analysis associated with the leading edge $ loading condition. The ability of NASTRAN to change rigid formats on a restart $ is demonstrated by the third case (Problem 1-1-1B). The natural modes of the $ structure are extracted using the Inverse Power method. Since the symmetric $ boundary conditions are used, only the modes with symmetric motion about the $ center line will be extracted. If the unsymmetric modes were required, a $ separate run with the appropriate boundary conditions could be submitted. $ $ A second variation (Problem 1-1-2) of the basic problem is obtained by $ replacing the quadrilateral membrane elements (QDMEM) with the QDMEM1 and $ QDMEM2 elements. This modification demonstrates the ability to reproduce $ previously derived theoretical results. The SORT2 format of the printed output $ allows the results obtained with a leading and trailing load to be compared. A $ third case (Problem 1-1-3) is modeled with all QDMEM elements replaced by $ QDMEM1 (Reference 26) elements. A grid point force balance is requested to $ verify that the static equilibrium of forces at a grid point (due to the load, $ constraints, and element forces) is zero. A fourth modeling of the wing $ (Problem 1-1-4) uses QDMEM2 elements in place of the QDMEM elements. In this $ case, element strain energy is requested to exhibit the energy transmitted by $ each of the elements due to the load and resultant deflections. $ $ 1. Parameters $ $ 6 2 $ E = 10.4 x 10 lb/in (modulus of elasticity) $ $ 6 2 $ G = 4.0 x 10 lb/in (shear modulus) $ $ -4 2 4 $ p = 2.523 x 10 lb sec /in (density) $ $ 2. Constraints $ $ theta sub x = theta sub y = theta sub z = 0.0 All grid points $ $ U = 0.0 Grids 13, 33, 53, 73, and 93 $ z $ $ U = 0.0 Grids 11, 31, 51, 71, and 91 $ x $ $ U = U = 0.0 Grids 1, 2, 3, 4, 5, 6, 21, 22, 23, 24, 25, 26, 41, $ x y 42, 43, 44, 45, 61, 62, 63, 64, 81, 82, and 83 $ $ 3. Loads $ $ Problems 1-1-1, 1-1-2, 1-1-3, 1-1-4 $ $ Grid 16 F = -500.0 (trailing edge) $ z $ Problem 1-1-2 $ $ Grid 36 F = -500.0 (leading edge) $ z $ $ 4. Eigenvalue extraction data $ $ Method: Inverse Power $ $ Region of interest: 30.0 <= f <= 160.0 $ $ Number of desired roots: 3 $ $ Number of estimated roots: 1 $ $ C. Results $ $ No closed-form or theoretical solution exists for this problem. However, a $ passive analog computer simulation (Reference 1) and a laboratory test $ (Reference 2) have been performed for this structural model. The displacements $ calculated by NASTRAN and the experimentally measured and simulated $ displacements are shown in Tables 1 and 2. The natural frequencies and modal $ displacements are shown in Tables 3 and 4. Table 5 presents the displacements $ for the static loading conditions when elements 1 through 9 are CQDMEM1 $ elements and the other quadrilaterals are CQDMEM2 elements. $ $ Table 1. NASTRAN and Experimental Deflections - Concentrated Load on Outboard $ Trailing Edge $ -------------------------------------------------------- $ Z DISPLACEMENT $ GRID ------------------------------------------ $ NUMBER NASTRAN EXPERIMENTAL ANALOG $ -------------------------------------------------------- $ 14 -.082 -.08 -.080 $ 15 -.221 -.22 -.210 $ 16 -.424 -.39 -.400 $ 34 -.063 -.07 -.061 $ 35 -.162 -.16 -.157 $ 36 -.293 -.28 -.286 $ 54 -.043 -.05 -.044 $ 55 -.104 -.12 -.144 $ 74 -.025 -.03 -.030 $ -------------------------------------------------------- $ $ Table 2. NASTRAN and Experimental Deflections - Concentrated Load on Outboard $ Leading Edge. $ -------------------------------------------------------- $ Z DISPLACEMENT $ GRID ------------------------------------------ $ NUMBER NASTRAN EXPERIMENTAL ANALOG $ -------------------------------------------------------- $ 14 -.063 -.06 -.060 $ 15 -.163 -.15 -.157 $ 16 -.293 -.28 -.286 $ 34 -.057 -.06 -.057 $ 35 -.148 -.15 -.150 $ 36 -.280 -.30 -.290 $ 54 -.046 -.05 -.048 $ 55 -.118 -.13 -.127 $ 74 -.030 -.04 -.035 $ -------------------------------------------------------- $ $ Table 3. NASTRAN and Analog Computer Analysis Eigenvalues $ ----------------------------------------- $ Mode No. NASTRAN (cps.) ANALOG (cps.) $ ----------------------------------------- $ 1 40.9 41.3 $ 2 115.3 131.0 $ 3 156.2 167.0 $ ----------------------------------------- $ $ Table 4. Mode Displacements For First Mode $ ------------------------- $ Z DISPLACEMENT $ GRID ---------------- $ NUMBER NASTRAN ANALOG $ ------------------------- $ 14 .250 .273 $ 15 .601 .630 $ 16 1.000 1.000 $ 34 .210 .239 $ 35 .504 .558 $ 36 .854 .902 $ 54 .162 .192 $ 55 .391 .462 $ 74 .112 .148 $ ------------------------- $ $ Table 5. Comparison of Z Displacements $ --------------------------------------------------------------- $ Trailing Edge Load Leading Edge Load $ -------------------------- ------------------------ $ CQDMEM1 and CQDMEM1 and $ Grid CQDMEM CQDMEM2 CQDMEM CQDMEM2 $ Point Elements Elements Elements Elements $ --------------------------------------------------------------- $ 14 -.082 -.082 -.063 -.064 $ 15 -.221 -.224 -.163 -.167 $ 16 -.424 -.433 -.293 -.300 $ 34 -.063 -.064 -.057 -.059 $ 35 -.162 -.166 -.148 -.154 $ 36 -.293 -.300 -.280 -.294 $ 54 -.043 -.044 -.046 -.047 $ 55 -.104 -.108 -.118 -.123 $ 74 -.025 -.026 -.030 -.031 $ --------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 1. Richard H. MacNeal and Stanley U. Benscoter, "Analysis of Multicell Delta $ Wings on Cal-Tech Analog Computer", NACA TN 3114, 1953. $ $ 2. George W. Zender, "Comparison of Theoretical Stresses and Deflections of $ Multicell Wings with Experimental Results Obtained from Plastic Models", $ NACA TN 3913. $ $ 26. Adelman, Howard E.; Walz, Joseph E.; and Rogers, James L., Jr.: "An $ Isoparametric Quadrilateral Membrane Element for NASTRAN", NASA TN X-2637, $ September, 1972, pp. 315-336. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01014a.inp ================================================ ID D01014A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 5 CEND TITLE = DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A LABEL = LOAD ON TRAILING EDGE SPC = 1 LOAD = 1 OUTPUT $ SET 1 HAS GRIDS ON THE UPPER SURFACE * * * * * * * * * * * * * * * $ SET 2 HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE), $ SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP) * * * * * * * * $ SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93 SET 2 = 1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50 $ DISPLACEMENTS = 1 SPCFORCE = ALL ESE = ALL ELSTRESS = 2 BEGIN BULK CONROD 100 11 12 1 .035 CONROD 101 12 13 1 .035 CONROD 102 13 14 1 .0344 CONROD 103 14 15 1 .0325 CONROD 104 15 16 1 .03 CONROD 105 31 32 1 .091 CONROD 106 32 33 1 .091 CONROD 107 33 34 1 .088 CONROD 108 34 35 1 .0719 CONROD 109 35 36 1 .0453 CONROD 110 51 52 1 .11 CONROD 111 52 53 1 .11 CONROD 112 53 54 1 .094 CONROD 113 54 55 1 .0563 CONROD 114 71 72 1 .091 CONROD 115 72 73 1 .091 CONROD 116 73 74 1 .0649 CONROD 117 91 92 1 .035 CONROD 118 92 93 1 .035 CONROD 119 12 32 1 .063 CONROD 120 32 52 1 .1002 CONROD 121 52 72 1 .1002 CONROD 122 72 92 1 .063 CONROD 123 13 33 1 .063 CONROD 124 33 53 1 .1002 CONROD 125 53 73 1 .1002 CONROD 126 73 93 1 .063 CONROD 127 14 34 1 .0572 CONROD 128 34 54 1 .0805 CONROD 129 54 74 1 .0572 CONROD 130 15 35 1 .0474 CONROD 131 35 55 1 .0474 CONROD 132 16 36 1 .028 CONROD 133 93 74 1 .0344 CONROD 134 74 55 1 .0325 CONROD 135 55 36 1 .03 CQDMEM2 1 1 11 12 32 31 CQDMEM2 2 1 12 13 33 32 CQDMEM2 3 1 13 14 34 33 CQDMEM2 4 1 14 15 35 34 CQDMEM2 5 1 15 16 36 35 CQDMEM2 6 1 31 32 52 51 CQDMEM2 7 1 32 33 53 52 CQDMEM2 8 1 33 34 54 53 CQDMEM2 9 1 34 35 55 54 CQDMEM2 11 1 51 52 72 71 CQDMEM2 12 1 52 53 73 72 CQDMEM2 13 1 53 54 74 73 CQDMEM2 15 1 71 72 92 91 CQDMEM2 16 1 72 73 93 92 CROD 60 5 1 11 61 6 2 12 CROD 62 8 3 13 63 8 4 14 CROD 64 8 5 15 65 6 6 16 CROD 66 6 21 31 67 7 22 32 CROD 68 9 23 33 69 9 24 34 CROD 70 9 25 35 71 8 26 36 CROD 72 6 41 51 73 7 42 52 CROD 74 9 43 53 75 9 44 54 CROD 76 9 45 55 77 6 61 71 CROD 78 7 62 72 79 9 63 73 CROD 80 9 64 74 81 5 81 91 CROD 82 6 82 92 83 8 83 93 CSHEAR 18 2 1 2 12 11 CSHEAR 19 2 2 3 13 12 CSHEAR 20 2 3 4 14 13 CSHEAR 21 2 4 5 15 14 CSHEAR 22 2 5 6 16 15 CSHEAR 23 2 21 22 32 31 CSHEAR 24 2 22 23 33 32 CSHEAR 25 2 23 24 34 33 CSHEAR 26 2 24 25 35 34 CSHEAR 27 2 25 26 36 35 CSHEAR 28 2 41 42 52 51 CSHEAR 29 2 42 43 53 52 CSHEAR 30 2 43 44 54 53 CSHEAR 31 2 44 45 55 54 CSHEAR 32 2 61 62 72 71 CSHEAR 33 2 62 63 73 72 CSHEAR 34 2 63 64 74 73 CSHEAR 35 2 81 82 92 91 CSHEAR 36 2 82 83 93 92 CSHEAR 37 2 2 22 32 12 CSHEAR 38 2 22 42 52 32 CSHEAR 39 2 42 62 72 52 CSHEAR 40 2 62 82 92 72 CSHEAR 41 2 3 23 33 13 CSHEAR 42 2 23 43 53 33 CSHEAR 43 2 43 63 73 53 CSHEAR 44 2 63 83 93 73 CSHEAR 45 2 4 24 34 14 CSHEAR 46 2 24 44 54 34 CSHEAR 47 2 44 64 74 54 CSHEAR 48 2 5 25 35 15 CSHEAR 49 2 25 45 55 35 CSHEAR 50 2 6 26 36 16 CSHEAR 51 2 26 45 55 36 CSHEAR 52 2 45 64 74 55 CSHEAR 53 2 64 83 93 74 CTRMEM 10 3 35 36 55 CTRMEM 14 3 54 55 74 CTRMEM 17 3 73 74 93 FORCE 1 16 0 -1. .0 .0 500. FORCE 2 36 -1.0 .0 .0 500.0 GRDSET 456 GRID 1 .0 .0 .0 GRID 2 10. .0 .0 GRID 3 30. .0 .0 GRID 4 50. .0 .0 GRID 5 70. .0 .0 GRID 6 90. .0 .0 GRID 11 .0 .0 .82 GRID 12 10. .0 .82 GRID 13 30. .0 .82 GRID 14 50. .0 .795 GRID 15 70. .0 .754 GRID 16 90. .0 .67 GRID 21 .0 20. .0 GRID 22 10. 20. .0 GRID 23 30. 20. .0 GRID 24 50. 20. .0 GRID 25 70. 20. .0 GRID 26 90. 20. .0 GRID 31 .0 20. 2.02 GRID 32 10. 20. 2.02 GRID 33 30. 20. 2.02 GRID 34 50. 20. 1.795 GRID 35 70. 20. 1.42 GRID 36 90. 20. .67 GRID 41 .0 40. .0 GRID 42 10. 40. .0 GRID 43 30. 40. .0 GRID 44 50. 40. .0 GRID 45 70. 40. .0 GRID 51 .0 40. 2.42 GRID 52 10. 40. 2.42 GRID 53 30. 40. 2.42 GRID 54 50. 40. 1.795 GRID 55 70. 40. .754 GRID 61 .0 60. .0 GRID 62 10. 60. .0 GRID 63 30. 60. .0 GRID 64 50. 60. .0 GRID 71 .0 60. 2.02 GRID 72 10. 60. 2.02 GRID 73 30. 60. 2.02 GRID 74 50. 60. .795 GRID 81 .0 80. .0 GRID 82 10. 80. .0 GRID 83 30. 80. .0 GRID 91 .0 80. .82 GRID 92 10. 80. .82 GRID 93 30. 80. .82 MAT1 1 10.4 +64. +6 MAT1 2 1.04+7 4.+6 .2523-3 PARAM IRES 1 PQDMEM2 1 2 .16 .0 PROD 5 1 2.1 PROD 6 1 3.5 PROD 7 1 4.91 PROD 8 1 4.2 PROD 9 1 5.6 PSHEAR 2 2 .14 .0 PTRMEM 3 2 .16 .0 SPC1 1 1 11 31 51 71 91 SPC1 1 3 13 33 53 73 93 SPC1 1 12 1 2 3 4 5 6 +SPC-A +SPC-A 21 22 23 24 25 26 41 42 +SPC-B +SPC-B 43 44 45 61 62 63 64 81 +SPC-C +SPC-C 82 83 ENDDATA ================================================ FILE: inp/d01014a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Delta Wing with Biconvex Cross Section (1-1-1) $ Delta Wing, Biconvex Cross Section Using QDMEM1 and QDMEM2 Elements (1-1-2) $ Delta Wing, Biconvex Cross Section Using QDMEM1 Elements (1-1-3) $ Delta Wing, Biconvex Cross Section Using QDMEM2 Elements (1-1-4) $ $ A. Description $ $ This series illustrates the use of various NASTRAN elements in the solution of $ an actual structural problem. The delta wing model is composed of membrane, $ shear panel, and rod elements. Due to the existence of symmetry or $ antisymmetry in the structure and loading conditions, only one-quarter of the $ wing needs to be modeled. The midplane of the wing (the plane dividing the $ wing into upper and lower halves) is a plane of symmetry, as is the center $ plane (the plane that divides the wing into left and right halves). The $ loading conditions are antisymmetrical with respect to the midplane of the $ wing and symmetric with respect to the center plane. $ $ B. Input $ $ The surface skin of the wing is modeled with membrane elements while the ribs $ and spars are modeled with a combination of shear panels and rods. The shear $ load carrying capability of ribs and span is represented by shear panels. The $ bending stiffness of the ribs and spars is modeled with rod elements placed in $ the plane of the skin surface. $ $ Since a quarter model is used, the loading conditions require that an $ antisymmetric boundary be provided on the midplane and a symmetric boundary $ must be provided on the center plane. These boundary conditions are provided $ by constraining all grid points on the midplane in the x and y directions and $ all grid points on the center plane in the x direction. Supports for the $ structure are provided by constraining grid points 13, 33, 53, 73, and 93 in $ the z direction. Since no rotational rigidity is provided by the elements used $ in the model, all rotational degrees of freedom have been removed by the use $ of the GRDSET card. $ $ The problem is first modeled (Problem 1-1-1) with a load on the trailing $ edge and a checkpoint is requested. The modified restart (Problem 1-1-1A) $ capability is used to perform the analysis associated with the leading edge $ loading condition. The ability of NASTRAN to change rigid formats on a restart $ is demonstrated by the third case (Problem 1-1-1B). The natural modes of the $ structure are extracted using the Inverse Power method. Since the symmetric $ boundary conditions are used, only the modes with symmetric motion about the $ center line will be extracted. If the unsymmetric modes were required, a $ separate run with the appropriate boundary conditions could be submitted. $ $ A second variation (Problem 1-1-2) of the basic problem is obtained by $ replacing the quadrilateral membrane elements (QDMEM) with the QDMEM1 and $ QDMEM2 elements. This modification demonstrates the ability to reproduce $ previously derived theoretical results. The SORT2 format of the printed output $ allows the results obtained with a leading and trailing load to be compared. A $ third case (Problem 1-1-3) is modeled with all QDMEM elements replaced by $ QDMEM1 (Reference 26) elements. A grid point force balance is requested to $ verify that the static equilibrium of forces at a grid point (due to the load, $ constraints, and element forces) is zero. A fourth modeling of the wing $ (Problem 1-1-4) uses QDMEM2 elements in place of the QDMEM elements. In this $ case, element strain energy is requested to exhibit the energy transmitted by $ each of the elements due to the load and resultant deflections. $ $ 1. Parameters $ $ 6 2 $ E = 10.4 x 10 lb/in (modulus of elasticity) $ $ 6 2 $ G = 4.0 x 10 lb/in (shear modulus) $ $ -4 2 4 $ p = 2.523 x 10 lb sec /in (density) $ $ 2. Constraints $ $ theta sub x = theta sub y = theta sub z = 0.0 All grid points $ $ U = 0.0 Grids 13, 33, 53, 73, and 93 $ z $ $ U = 0.0 Grids 11, 31, 51, 71, and 91 $ x $ $ U = U = 0.0 Grids 1, 2, 3, 4, 5, 6, 21, 22, 23, 24, 25, 26, 41, $ x y 42, 43, 44, 45, 61, 62, 63, 64, 81, 82, and 83 $ $ 3. Loads $ $ Problems 1-1-1, 1-1-2, 1-1-3, 1-1-4 $ $ Grid 16 F = -500.0 (trailing edge) $ z $ Problem 1-1-2 $ $ Grid 36 F = -500.0 (leading edge) $ z $ $ 4. Eigenvalue extraction data $ $ Method: Inverse Power $ $ Region of interest: 30.0 <= f <= 160.0 $ $ Number of desired roots: 3 $ $ Number of estimated roots: 1 $ $ C. Results $ $ No closed-form or theoretical solution exists for this problem. However, a $ passive analog computer simulation (Reference 1) and a laboratory test $ (Reference 2) have been performed for this structural model. The displacements $ calculated by NASTRAN and the experimentally measured and simulated $ displacements are shown in Tables 1 and 2. The natural frequencies and modal $ displacements are shown in Tables 3 and 4. Table 5 presents the displacements $ for the static loading conditions when elements 1 through 9 are CQDMEM1 $ elements and the other quadrilaterals are CQDMEM2 elements. $ $ Table 1. NASTRAN and Experimental Deflections - Concentrated Load on Outboard $ Trailing Edge $ -------------------------------------------------------- $ Z DISPLACEMENT $ GRID ------------------------------------------ $ NUMBER NASTRAN EXPERIMENTAL ANALOG $ -------------------------------------------------------- $ 14 -.082 -.08 -.080 $ 15 -.221 -.22 -.210 $ 16 -.424 -.39 -.400 $ 34 -.063 -.07 -.061 $ 35 -.162 -.16 -.157 $ 36 -.293 -.28 -.286 $ 54 -.043 -.05 -.044 $ 55 -.104 -.12 -.144 $ 74 -.025 -.03 -.030 $ -------------------------------------------------------- $ $ Table 2. NASTRAN and Experimental Deflections - Concentrated Load on Outboard $ Leading Edge. $ -------------------------------------------------------- $ Z DISPLACEMENT $ GRID ------------------------------------------ $ NUMBER NASTRAN EXPERIMENTAL ANALOG $ -------------------------------------------------------- $ 14 -.063 -.06 -.060 $ 15 -.163 -.15 -.157 $ 16 -.293 -.28 -.286 $ 34 -.057 -.06 -.057 $ 35 -.148 -.15 -.150 $ 36 -.280 -.30 -.290 $ 54 -.046 -.05 -.048 $ 55 -.118 -.13 -.127 $ 74 -.030 -.04 -.035 $ -------------------------------------------------------- $ $ Table 3. NASTRAN and Analog Computer Analysis Eigenvalues $ ----------------------------------------- $ Mode No. NASTRAN (cps.) ANALOG (cps.) $ ----------------------------------------- $ 1 40.9 41.3 $ 2 115.3 131.0 $ 3 156.2 167.0 $ ----------------------------------------- $ $ Table 4. Mode Displacements For First Mode $ ------------------------- $ Z DISPLACEMENT $ GRID ---------------- $ NUMBER NASTRAN ANALOG $ ------------------------- $ 14 .250 .273 $ 15 .601 .630 $ 16 1.000 1.000 $ 34 .210 .239 $ 35 .504 .558 $ 36 .854 .902 $ 54 .162 .192 $ 55 .391 .462 $ 74 .112 .148 $ ------------------------- $ $ Table 5. Comparison of Z Displacements $ --------------------------------------------------------------- $ Trailing Edge Load Leading Edge Load $ -------------------------- ------------------------ $ CQDMEM1 and CQDMEM1 and $ Grid CQDMEM CQDMEM2 CQDMEM CQDMEM2 $ Point Elements Elements Elements Elements $ --------------------------------------------------------------- $ 14 -.082 -.082 -.063 -.064 $ 15 -.221 -.224 -.163 -.167 $ 16 -.424 -.433 -.293 -.300 $ 34 -.063 -.064 -.057 -.059 $ 35 -.162 -.166 -.148 -.154 $ 36 -.293 -.300 -.280 -.294 $ 54 -.043 -.044 -.046 -.047 $ 55 -.104 -.108 -.118 -.123 $ 74 -.025 -.026 -.030 -.031 $ --------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 1. Richard H. MacNeal and Stanley U. Benscoter, "Analysis of Multicell Delta $ Wings on Cal-Tech Analog Computer", NACA TN 3114, 1953. $ $ 2. George W. Zender, "Comparison of Theoretical Stresses and Deflections of $ Multicell Wings with Experimental Results Obtained from Plastic Models", $ NACA TN 3913. $ $ 26. Adelman, Howard E.; Walz, Joseph E.; and Rogers, James L., Jr.: "An $ Isoparametric Quadrilateral Membrane Element for NASTRAN", NASA TN X-2637, $ September, 1972, pp. 315-336. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01021a.inp ================================================ NASTRAN FILES=(NPTP,PLT2) ID D01021A,NASTRAN CHKPNT YES TIME 15 APP DISPLACEMENT SOL 1,1 CEND TITLE = SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A LOAD = 1 SPC = 2 OUTPUT DISP = ALL SPCF = ALL STRESS = ALL PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A OUTPUT(PLOT) PLOTTER NASTPLT MAXIMUM DEFORMATION 6.0 $ $ ALL ELEMENTS SET 1 = ELEMENTS TRIA2 $ $ PLOTEL - EDGES AND CENTERLINE SET 2 = PLOTEL $ VIEW 20.0, 30.0, 0.0 FIND SCALE ORIGIN 1 SET 1 PTITLE = UNDEFORMED SECTION TRIA2 ELEMENTS PLOT LABEL(BOTH), SYMBOLS 6,SHRINK PTITLE = SECTION TRIA2 ELEMENTS WITH UNDERLAY PLOT STATIC DEFORMATION 0,1, SET 1, ORIGIN 1,SHAPE, LABELS $ $ PERSPECTIVE PROJECTION $ MAXIMUM DEFORMATION 6.0 FIND SCALE, SET 2, ORIGIN 1000 FIND SCALE,ORIGIN 1000, SET 1,VANT POINT,REGION 0.35,0.1, 0.9, 0.8 PTITLE = SECTION PLOTEL ELEMENTS (PERSPECTIVE PROJECTION) PLOT SET 2, ORIGIN 1000, LABELS PTITLE = FULL MODEL (VIA SYMMETRY) TRIA2 ELEMENTS - PERSPECTIVE PLOT SET 1, ORIGIN 1000, SYMBOLS 9, SHAPE,SHRINK, SET 1, ORIGIN 1000 SYMBOLS 9 SHAPE SYMMETRY X, SET 1, ORIGIN 1000 SYMBOLS 9 SHAPE SYMMETRY Y, SET 1, ORIGIN 1000 SYMBOLS 9 SHAPE SYMMETRY XY PTITLE = FULL MODEL (VIA SYMMETRY) PLOTEL ELEMENTS - PERSPECTIVE PLOT STATIC DEFORMATION 0,1, SET 2, ORIGIN 1000, SHAPE, SET 2, ORIGIN 1000, SHAPE, SYMMETRY X, SET 2, ORIGIN 1000, SHAPE, SYMMETRY Y, SET 2, ORIGIN 1000, SHAPE, SYMMETRY XY BEGIN BULK CORD2S 2 .0 .0 .0 .0 .0 1. +COR1 +COR1 1.000 .000 .000 CTRIA2 1 31 1 6 26 .0 CTRIA2 2 31 6 11 26 .0 CTRIA2 3 31 2 7 1 .0 CTRIA2 4 31 6 1 7 .0 CTRIA2 5 31 7 12 6 .0 CTRIA2 6 31 11 6 12 .0 CTRIA2 7 31 12 16 11 .0 CTRIA2 8 31 3 8 2 .0 CTRIA2 9 31 7 2 8 .0 CTRIA2 10 31 8 13 7 .0 CTRIA2 11 31 12 7 13 .0 CTRIA2 12 31 13 17 12 .0 CTRIA2 13 31 16 12 17 .0 CTRIA2 14 31 17 20 16 .0 CTRIA2 15 31 4 9 3 .0 CTRIA2 16 31 8 3 9 .0 CTRIA2 17 31 9 14 8 .0 CTRIA2 18 31 13 8 14 .0 CTRIA2 19 31 14 18 13 .0 CTRIA2 20 31 17 13 18 .0 CTRIA2 21 31 18 21 17 .0 CTRIA2 22 31 20 17 21 .0 CTRIA2 23 31 21 23 20 .0 CTRIA2 24 31 5 10 4 .0 CTRIA2 25 31 9 4 10 .0 CTRIA2 26 31 10 15 9 .0 CTRIA2 27 31 14 9 15 .0 CTRIA2 28 31 15 19 14 .0 CTRIA2 29 31 18 14 19 .0 CTRIA2 30 31 19 22 18 .0 CTRIA2 31 31 21 18 22 .0 CTRIA2 32 31 22 24 21 .0 CTRIA2 33 31 23 21 24 .0 CTRIA2 34 31 24 25 23 .0 GRDSET 2 2 GRID 1 90. 7. .0 GRID 2 90. 14.0 .0 GRID 3 90. 21.0 .0 GRID 4 90. 28.0 .0 GRID 5 90. 35.0 .0 GRID 6 90. 7.0 45.0 GRID 7 90. 14.0 30.0 GRID 8 90. 21.0 22.5 GRID 9 90. 28.0 18.0 GRID 10 90. 35.0 15.0 GRID 11 90. 7.0 90.0 GRID 12 90. 14.0 60.0 GRID 13 90. 21.0 45.0 GRID 14 90. 28.0 36.0 GRID 15 90. 35.0 30.0 GRID 16 90. 14.0 90.0 GRID 17 90. 21.0 67.5 GRID 18 90. 28.0 54.0 GRID 19 90. 35.0 45.0 GRID 20 90. 21.0 90.0 GRID 21 90. 28.0 72.0 GRID 22 90. 35.0 60.0 GRID 23 90. 28.0 90.0 GRID 24 90. 35.0 75.0 GRID 25 90. 35.0 90.0 GRID 26 0 .0 .0 90.0 0 MAT1 1 3.+6 .1666 PLOAD2 1 -1.0 1 2 3 4 5 6 PLOAD2 1 -1.0 7 8 9 10 11 12 PLOAD2 1 -1.0 13 14 15 16 17 18 PLOAD2 1 -1.0 19 20 21 22 23 24 PLOAD2 1 -1.0 25 26 27 28 29 30 PLOAD2 1 -1.0 31 32 33 34 PLOTEL 50 26 1 51 1 2 PLOTEL 52 2 3 53 3 4 PLOTEL 54 4 5 55 5 10 PLOTEL 56 10 15 57 15 19 PLOTEL 58 19 22 59 22 24 PLOTEL 60 24 25 61 25 23 PLOTEL 62 23 20 63 20 16 PLOTEL 64 16 11 65 11 26 PLOTEL 66 3 8 67 8 13 PLOTEL 68 13 17 69 17 20 PTRIA2 31 1 3. SPC 1 26 12456 .0 SPC1 1 345 1 2 3 4 11 16 +SPC1-2 +SPC1-2 20 23 SPC1 1 123456 5 10 15 19 22 24 +SPC1-1 +SPC1-1 25 SPC1 2 2 10 15 19 22 24 SPC1 2 345 1 2 3 4 11 16 +SPC2-1 +SPC2-1 20 23 SPC1 2 2345 5 25 SPC1 2 12456 26 ENDDATA ================================================ FILE: inp/d01021a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Spherical Shell with Pressure Loading (1-2-1) $ $ A. Description $ $ This problem demonstrates the finite element approach to the modeling of a $ uniform spherical shell (Problem 1-2-1). A spherical coordinate system is $ chosen to describe the location and displacement degrees of freedom at each $ grid point. Triangular plate elements are chosen to provide a nearly uniform $ pattern. Two symmetric boundaries are used to analyze the structure with a $ symmetric pressure load. $ $ Two different sets of boundary conditions are used on the outside edge to $ demonstrate the ability of NASTRAN to restart (Problem 1-2-1A) with different $ constraint sets by simply changing the case control request. The membrane $ support, under a uniform inward pressure load, results in uniform in-plane $ compression in two directions. The clamped support produces bending moments in $ addition to in-plane stresses. $ $ The grid point numbering sequence used minimizes the computer time required to $ perform the triangular decomposition of the constrained stiffness matrix. This $ numbering sequence results in a partially banded matrix with all terms outside $ the band located in a single column. The grid points are arranged to form five $ rings; the center point is sequenced last. $ $ Orthographlc and perspective plots of the deformed and undeformed structure $ are requested. For the orthographlc projections the plots are fully labeled to $ aid in checking the model. The perspective projection uses the symmetric $ plotting capability to plot all four quadrants of the shell. A region request $ is used to find an origin location that will allow all quadrants to be $ plotted. The deformed plot uses plot elements to simplify the presentation. $ Umderlays of the undeformed structure are also shown for both projections. $ $ B. Input $ $ 1. Parameters $ $ r = 90.0 in. (radius) $ $ t = 3.0 in. (thickness) $ 6 2 $ E = 3.0 x 10 lb/in (modulus of elasticity) $ $ v = .1666 (Poisson's ratio) $ $ 2. Constraints $ $ Problem 1-2-1 $ $ a) Grids at phi = theta degrees and phi = 90 degrees are constrained $ u sub phi = theta sub r = 0.0 $ $ b) Grids at theta = 35 degrees are constrained u sub theta = 0.0 only $ $ Problem 1-2-1A $ $ a) Grids at phi = 0 degrees and phi = 90 degrees are constrained $ u sub phi = theta sub r = 0.0 $ $ b) Grids at theta = 35 degrees are constrained u sub r = u sub phi = $ u sub theta = theta sub r = theta sub phi = theta sub theta = 0.0 $ $ 3. Loads $ $ 2 $ A uniform pressure load of 1 lb/in is applied in the -R direction (acting $ inward). $ $ C. Theory $ $ Theoretical solutions for the continuum shell were obtained from Reference 4 $ using the first 20 terms of the series shown in Equation (j) of Section 94. $ $ D. Results $ $ The slight differences between theoretical and computed answers are due to the $ combined effects of the finite element theory and the structural behavior in $ the region of the clamped boundary. In the region of the clamped boundary, in- $ plane stresses and bending moments are predicted to have large variations. $ However, the elements used in the model assume a constant in-plane stress and $ linearly varying bending moment and do not accurately represent the structural $ response. In addition, the irregularities of the finite element model cause $ extra coupling between bending and membrane action. Since the elements are $ planar, the curvature is modeled, in effect, by the dihedral angles between $ elements. Since the elements are different sizes and shapes, these dihedral $ angles vary, which results in slight differences In curvature that cause small $ errors. $ $ APPLICABLE REFERENCES $ $ 4. S. Timoshemko, THEORY OF PLATES AND SHELLS. McGraw Hill, 1940. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01021b.inp ================================================ NASTRAN FILES = OPTP ID D01021B,RESTART $ INSERT THE RESTART DICTIONARY HERE READFILE RSCARDS TIME 5 APP DISPLACEMENT SOL 1,1 CEND TITLE = SPHERICAL SHELL RESTART WITH CLAMPED BOUNDARY SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B LOAD = 1 SPC = 1 OUTPUT DISPLACEMENT = ALL SPCFORCE = ALL ELFORCE = ALL STRESSES = ALL BEGIN BULK ENDDATA ================================================ FILE: inp/d01021b.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Spherical Shell with Pressure Loading (1-2-1) $ $ A. Description $ $ This problem demonstrates the finite element approach to the modeling of a $ uniform spherical shell (Problem 1-2-1). A spherical coordinate system is $ chosen to describe the location and displacement degrees of freedom at each $ grid point. Triangular plate elements are chosen to provide a nearly uniform $ pattern. Two symmetric boundaries are used to analyze the structure with a $ symmetric pressure load. $ $ Two different sets of boundary conditions are used on the outside edge to $ demonstrate the ability of NASTRAN to restart (Problem 1-2-1A) with different $ constraint sets by simply changing the case control request. The membrane $ support, under a uniform inward pressure load, results in uniform in-plane $ compression in two directions. The clamped support produces bending moments in $ addition to in-plane stresses. $ $ The grid point numbering sequence used minimizes the computer time required to $ perform the triangular decomposition of the constrained stiffness matrix. This $ numbering sequence results in a partially banded matrix with all terms outside $ the band located in a single column. The grid points are arranged to form five $ rings; the center point is sequenced last. $ $ Orthographlc and perspective plots of the deformed and undeformed structure $ are requested. For the orthographlc projections the plots are fully labeled to $ aid in checking the model. The perspective projection uses the symmetric $ plotting capability to plot all four quadrants of the shell. A region request $ is used to find an origin location that will allow all quadrants to be $ plotted. The deformed plot uses plot elements to simplify the presentation. $ Umderlays of the undeformed structure are also shown for both projections. $ $ B. Input $ $ 1. Parameters $ $ r = 90.0 in. (radius) $ $ t = 3.0 in. (thickness) $ 6 2 $ E = 3.0 x 10 lb/in (modulus of elasticity) $ $ v = .1666 (Poisson's ratio) $ $ 2. Constraints $ $ Problem 1-2-1 $ $ a) Grids at phi = theta degrees and phi = 90 degrees are constrained $ u sub phi = theta sub r = 0.0 $ $ b) Grids at theta = 35 degrees are constrained u sub theta = 0.0 only $ $ Problem 1-2-1A $ $ a) Grids at phi = 0 degrees and phi = 90 degrees are constrained $ u sub phi = theta sub r = 0.0 $ $ b) Grids at theta = 35 degrees are constrained u sub r = u sub phi = $ u sub theta = theta sub r = theta sub phi = theta sub theta = 0.0 $ $ 3. Loads $ $ 2 $ A uniform pressure load of 1 lb/in is applied in the -R direction (acting $ inward). $ $ C. Theory $ $ Theoretical solutions for the continuum shell were obtained from Reference 4 $ using the first 20 terms of the series shown in Equation (j) of Section 94. $ $ D. Results $ $ The slight differences between theoretical and computed answers are due to the $ combined effects of the finite element theory and the structural behavior in $ the region of the clamped boundary. In the region of the clamped boundary, in- $ plane stresses and bending moments are predicted to have large variations. $ However, the elements used in the model assume a constant in-plane stress and $ linearly varying bending moment and do not accurately represent the structural $ response. In addition, the irregularities of the finite element model cause $ extra coupling between bending and membrane action. Since the elements are $ planar, the curvature is modeled, in effect, by the dihedral angles between $ elements. Since the elements are different sizes and shapes, these dihedral $ angles vary, which results in slight differences In curvature that cause small $ errors. $ $ APPLICABLE REFERENCES $ $ 4. S. Timoshemko, THEORY OF PLATES AND SHELLS. McGraw Hill, 1940. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01031a.inp ================================================ ID D01031A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 20 CEND TITLE = FREE RECTANGULAR PLATE WITH THERMAL LOADING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A LABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL SPC = 1 TEMPERATURE = 1 OUTPUT SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247 SET 2 = 1 THRU 26 DISPLACEMENTS = 1 OLOAD = 2 $ STRESSES FOR POINTS ON PUBLISHED CURVES SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98, 106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176, 184,189, 197,202, 210,215, 223,228 STRESSES = 3 BEGIN BULK CNGRNT 1 14 27 40 53 66 79 92 +CNG11 +CNG11 105 118 131 144 157 170 183 196 +CNG12 +CNG12 209 222 CNGRNT 2 15 28 41 54 67 80 93 +CNG21 +CNG21 106 119 132 145 158 171 184 197 +CNG22 +CNG22 210 223 CNGRNT 3 16 29 42 55 68 81 94 +CNG31 +CNG31 107 120 133 146 159 172 185 198 +CNG32 +CNG32 211 224 CNGRNT 4 17 30 43 56 69 82 95 +CNG41 +CNG41 108 121 134 147 160 173 186 199 +CNG42 +CNG42 212 225 CNGRNT 5 18 31 44 57 70 83 96 +CNG51 +CNG51 109 122 135 148 161 174 187 200 +CNG52 +CNG52 213 226 CNGRNT 6 19 32 45 58 71 84 97 +CNG61 +CNG61 110 123 136 149 162 175 188 201 +CNG62 +CNG62 214 227 CNGRNT 7 20 33 46 59 72 85 98 +CNG71 +CNG71 111 124 137 150 163 176 189 202 +CNG72 +CNG72 215 228 CNGRNT 8 21 34 47 60 73 86 99 +CNG81 +CNG81 112 125 138 151 164 177 190 203 +CNG82 +CNG82 216 229 CNGRNT 9 22 35 48 61 74 87 100 +CNG91 +CNG91 113 126 139 152 165 178 191 204 +CNG92 +CNG92 217 230 CNGRNT 10 23 36 49 62 75 88 101 +CNG101 +CNG101 114 127 140 153 166 179 192 205 +CNG102 +CNG102 218 231 CNGRNT 11 24 37 50 63 76 89 102 +CNG111 +CNG111 115 128 141 154 167 180 193 206 +CNG112 +CNG112 219 232 CNGRNT 12 25 38 51 64 77 90 103 +CNG121 +CNG121 116 129 142 155 168 181 194 207 +CNG122 +CNG122 220 233 CQDMEM 1 21 1 2 15 14 .00 CQDMEM 2 21 2 3 16 15 .00 CQDMEM 3 21 3 4 17 16 .00 CQDMEM 4 21 4 5 18 17 .00 CQDMEM 5 21 5 6 19 18 .00 CQDMEM 6 21 6 7 20 19 .00 CQDMEM 7 21 7 8 21 20 .00 CQDMEM 8 21 8 9 22 21 .00 CQDMEM 9 21 9 10 23 22 .00 CQDMEM 10 21 10 11 24 23 .00 CQDMEM 11 21 11 12 25 24 .00 CQDMEM 12 21 12 13 26 25 .00 CQDMEM 14 21 14 15 28 27 .00 CQDMEM 15 21 15 16 29 28 .00 CQDMEM 16 21 16 17 30 29 .00 CQDMEM 17 21 17 18 31 30 .00 CQDMEM 18 21 18 19 32 31 .00 CQDMEM 19 21 19 20 33 32 .00 CQDMEM 20 21 20 21 34 33 .00 CQDMEM 21 21 21 22 35 34 .00 CQDMEM 22 21 22 23 36 35 .00 CQDMEM 23 21 23 24 37 36 .00 CQDMEM 24 21 24 25 38 37 .00 CQDMEM 25 21 25 26 39 38 .00 CQDMEM 27 21 27 28 41 40 .00 CQDMEM 28 21 28 29 42 41 .00 CQDMEM 29 21 29 30 43 42 .00 CQDMEM 30 21 30 31 44 43 .00 CQDMEM 31 21 31 32 45 44 .00 CQDMEM 32 21 32 33 46 45 .00 CQDMEM 33 21 33 34 47 46 .00 CQDMEM 34 21 34 35 48 47 .00 CQDMEM 35 21 35 36 49 48 .00 CQDMEM 36 21 36 37 50 49 .00 CQDMEM 37 21 37 38 51 50 .00 CQDMEM 38 21 38 39 52 51 .00 CQDMEM 40 21 40 41 54 53 .00 CQDMEM 41 21 41 42 55 54 .00 CQDMEM 42 21 42 43 56 55 .00 CQDMEM 43 21 43 44 57 56 .00 CQDMEM 44 21 44 45 58 57 .00 CQDMEM 45 21 45 46 59 58 .00 CQDMEM 46 21 46 47 60 59 .00 CQDMEM 47 21 47 48 61 60 .00 CQDMEM 48 21 48 49 62 61 .00 CQDMEM 49 21 49 50 63 62 .00 CQDMEM 50 21 50 51 64 63 .00 CQDMEM 51 21 51 52 65 64 .00 CQDMEM 53 21 53 54 67 66 .00 CQDMEM 54 21 54 55 68 67 .00 CQDMEM 55 21 55 56 69 68 .00 CQDMEM 56 21 56 57 70 69 .00 CQDMEM 57 21 57 58 71 70 .00 CQDMEM 58 21 58 59 72 71 .00 CQDMEM 59 21 59 60 73 72 .00 CQDMEM 60 21 60 61 74 73 .00 CQDMEM 61 21 61 62 75 74 .00 CQDMEM 62 21 62 63 76 75 .00 CQDMEM 63 21 63 64 77 76 .00 CQDMEM 64 21 64 65 78 77 .00 CQDMEM 66 21 66 67 80 79 .00 CQDMEM 67 21 67 68 81 80 .00 CQDMEM 68 21 68 69 82 81 .00 CQDMEM 69 21 69 70 83 82 .00 CQDMEM 70 21 70 71 84 83 .00 CQDMEM 71 21 71 72 85 84 .00 CQDMEM 72 21 72 73 86 85 .00 CQDMEM 73 21 73 74 87 86 .00 CQDMEM 74 21 74 75 88 87 .00 CQDMEM 75 21 75 76 89 88 .00 CQDMEM 76 21 76 77 90 89 .00 CQDMEM 77 21 77 78 91 90 .00 CQDMEM 79 21 79 80 93 92 .00 CQDMEM 80 21 80 81 94 93 .00 CQDMEM 81 21 81 82 95 94 .00 CQDMEM 82 21 82 83 96 95 .00 CQDMEM 83 21 83 84 97 96 .00 CQDMEM 84 21 84 85 98 97 .00 CQDMEM 85 21 85 86 99 98 .00 CQDMEM 86 21 86 87 100 99 .00 CQDMEM 87 21 87 88 101 100 .00 CQDMEM 88 21 88 89 102 101 .00 CQDMEM 89 21 89 90 103 102 .00 CQDMEM 90 21 90 91 104 103 .00 CQDMEM 92 21 92 93 106 105 .00 CQDMEM 93 21 93 94 107 106 .00 CQDMEM 94 21 94 95 108 107 .00 CQDMEM 95 21 95 96 109 108 .00 CQDMEM 96 21 96 97 110 109 .00 CQDMEM 97 21 97 98 111 110 .00 CQDMEM 98 21 98 99 112 111 .00 CQDMEM 99 21 99 100 113 112 .00 CQDMEM 100 21 100 101 114 113 .00 CQDMEM 101 21 101 102 115 114 .00 CQDMEM 102 21 102 103 116 115 .00 CQDMEM 103 21 103 104 117 116 .00 CQDMEM 105 21 105 106 119 118 .00 CQDMEM 106 21 106 107 120 119 .00 CQDMEM 107 21 107 108 121 120 .00 CQDMEM 108 21 108 109 122 121 .00 CQDMEM 109 21 109 110 123 122 .00 CQDMEM 110 21 110 111 124 123 .00 CQDMEM 111 21 111 112 125 124 .00 CQDMEM 112 21 112 113 126 125 .00 CQDMEM 113 21 113 114 127 126 .00 CQDMEM 114 21 114 115 128 127 .00 CQDMEM 115 21 115 116 129 128 .00 CQDMEM 116 21 116 117 130 129 .00 CQDMEM 118 21 118 119 132 131 .00 CQDMEM 119 21 119 120 133 132 .00 CQDMEM 120 21 120 121 134 133 .00 CQDMEM 121 21 121 122 135 134 .00 CQDMEM 122 21 122 123 136 135 .00 CQDMEM 123 21 123 124 137 136 .00 CQDMEM 124 21 124 125 138 137 .00 CQDMEM 125 21 125 126 139 138 .00 CQDMEM 126 21 126 127 140 139 .00 CQDMEM 127 21 127 128 141 140 .00 CQDMEM 128 21 128 129 142 141 .00 CQDMEM 129 21 129 130 143 142 .00 CQDMEM 131 21 131 132 145 144 .00 CQDMEM 132 21 132 133 146 145 .00 CQDMEM 133 21 133 134 147 146 .00 CQDMEM 134 21 134 135 148 147 .00 CQDMEM 135 21 135 136 149 148 .00 CQDMEM 136 21 136 137 150 149 .00 CQDMEM 137 21 137 138 151 150 .00 CQDMEM 138 21 138 139 152 151 .00 CQDMEM 139 21 139 140 153 152 .00 CQDMEM 140 21 140 141 154 153 .00 CQDMEM 141 21 141 142 155 154 .00 CQDMEM 142 21 142 143 156 155 .00 CQDMEM 144 21 144 145 158 157 .00 CQDMEM 145 21 145 146 159 158 .00 CQDMEM 146 21 146 147 160 159 .00 CQDMEM 147 21 147 148 161 160 .00 CQDMEM 148 21 148 149 162 161 .00 CQDMEM 149 21 149 150 163 162 .00 CQDMEM 150 21 150 151 164 163 .00 CQDMEM 151 21 151 152 165 164 .00 CQDMEM 152 21 152 153 166 165 .00 CQDMEM 153 21 153 154 167 166 .00 CQDMEM 154 21 154 155 168 167 .00 CQDMEM 155 21 155 156 169 168 .00 CQDMEM 157 21 157 158 171 170 .00 CQDMEM 158 21 158 159 172 171 .00 CQDMEM 159 21 159 160 173 172 .00 CQDMEM 160 21 160 161 174 173 .00 CQDMEM 161 21 161 162 175 174 .00 CQDMEM 162 21 162 163 176 175 .00 CQDMEM 163 21 163 164 177 176 .00 CQDMEM 164 21 164 165 178 177 .00 CQDMEM 165 21 165 166 179 178 .00 CQDMEM 166 21 166 167 180 179 .00 CQDMEM 167 21 167 168 181 180 .00 CQDMEM 168 21 168 169 182 181 .00 CQDMEM 170 21 170 171 184 183 .00 CQDMEM 171 21 171 172 185 184 .00 CQDMEM 172 21 172 173 186 185 .00 CQDMEM 173 21 173 174 187 186 .00 CQDMEM 174 21 174 175 188 187 .00 CQDMEM 175 21 175 176 189 188 .00 CQDMEM 176 21 176 177 190 189 .00 CQDMEM 177 21 177 178 191 190 .00 CQDMEM 178 21 178 179 192 191 .00 CQDMEM 179 21 179 180 193 192 .00 CQDMEM 180 21 180 181 194 193 .00 CQDMEM 181 21 181 182 195 194 .00 CQDMEM 183 21 183 184 197 196 .00 CQDMEM 184 21 184 185 198 197 .00 CQDMEM 185 21 185 186 199 198 .00 CQDMEM 186 21 186 187 200 199 .00 CQDMEM 187 21 187 188 201 200 .00 CQDMEM 188 21 188 189 202 201 .00 CQDMEM 189 21 189 190 203 202 .00 CQDMEM 190 21 190 191 204 203 .00 CQDMEM 191 21 191 192 205 204 .00 CQDMEM 192 21 192 193 206 205 .00 CQDMEM 193 21 193 194 207 206 .00 CQDMEM 194 21 194 195 208 207 .00 CQDMEM 196 21 196 197 210 209 .00 CQDMEM 197 21 197 198 211 210 .00 CQDMEM 198 21 198 199 212 211 .00 CQDMEM 199 21 199 200 213 212 .00 CQDMEM 200 21 200 201 214 213 .00 CQDMEM 201 21 201 202 215 214 .00 CQDMEM 202 21 202 203 216 215 .00 CQDMEM 203 21 203 204 217 216 .00 CQDMEM 204 21 204 205 218 217 .00 CQDMEM 205 21 205 206 219 218 .00 CQDMEM 206 21 206 207 220 219 .00 CQDMEM 207 21 207 208 221 220 .00 CQDMEM 209 21 209 210 223 222 .00 CQDMEM 210 21 210 211 224 223 .00 CQDMEM 211 21 211 212 225 224 .00 CQDMEM 212 21 212 213 226 225 .00 CQDMEM 213 21 213 214 227 226 .00 CQDMEM 214 21 214 215 228 227 .00 CQDMEM 215 21 215 216 229 228 .00 CQDMEM 216 21 216 217 230 229 .00 CQDMEM 217 21 217 218 231 230 .00 CQDMEM 218 21 218 219 232 231 .00 CQDMEM 219 21 219 220 233 232 .00 CQDMEM 220 21 220 221 234 233 .00 CQDMEM 222 21 222 223 236 235 .00 CQDMEM 223 21 223 224 237 236 .00 CQDMEM 224 21 224 225 238 237 .00 CQDMEM 225 21 225 226 239 238 .00 CQDMEM 226 21 226 227 240 239 .00 CQDMEM 227 21 227 228 241 240 .00 CQDMEM 228 21 228 229 242 241 .00 CQDMEM 229 21 229 230 243 242 .00 CQDMEM 230 21 230 231 244 243 .00 CQDMEM 231 21 231 232 245 244 .00 CQDMEM 232 21 232 233 246 245 .00 CQDMEM 233 21 233 234 247 246 .00 GRDSET 3456 GRID 1 .0 .0 .0 GRID 2 1.0 .0 .0 GRID 3 2.0 .0 .0 GRID 4 3.0 .0 .0 GRID 5 4.0 .0 .0 GRID 6 5.0 .0 .0 GRID 7 6.0 .0 .0 GRID 8 7.0 .0 .0 GRID 9 8.0 .0 .0 GRID 10 9.0 .0 .0 GRID 11 10.0 .0 .0 GRID 12 11.0 .0 .0 GRID 13 12.0 .0 .0 GRID 14 .0 1.0 .0 GRID 15 1.0 1.0 .0 GRID 16 2.0 1.0 .0 GRID 17 3.0 1.0 .0 GRID 18 4.0 1.0 .0 GRID 19 5.0 1.0 .0 GRID 20 6.0 1.0 .0 GRID 21 7.0 1.0 .0 GRID 22 8.0 1.0 .0 GRID 23 9.0 1.0 .0 GRID 24 10.0 1.0 .0 GRID 25 11.0 1.0 .0 GRID 26 12.0 1.0 .0 GRID 27 .0 2.0 .0 GRID 28 1.0 2.0 .0 GRID 29 2.0 2.0 .0 GRID 30 3.0 2.0 .0 GRID 31 4.0 2.0 .0 GRID 32 5.0 2.0 .0 GRID 33 6.0 2.0 .0 GRID 34 7.0 2.0 .0 GRID 35 8.0 2.0 .0 GRID 36 9.0 2.0 .0 GRID 37 10.0 2.0 .0 GRID 38 11.0 2.0 .0 GRID 39 12.0 2.0 .0 GRID 40 .0 3.0 .0 GRID 41 1.0 3.0 .0 GRID 42 2.0 3.0 .0 GRID 43 3.0 3.0 .0 GRID 44 4.0 3.0 .0 GRID 45 5.0 3.0 .0 GRID 46 6.0 3.0 .0 GRID 47 7.0 3.0 .0 GRID 48 8.0 3.0 .0 GRID 49 9.0 3.0 .0 GRID 50 10.0 3.0 .0 GRID 51 11.0 3.0 .0 GRID 52 12.0 3.0 .0 GRID 53 .0 4.0 .0 GRID 54 1.0 4.0 .0 GRID 55 2.0 4.0 .0 GRID 56 3.0 4.0 .0 GRID 57 4.0 4.0 .0 GRID 58 5.0 4.0 .0 GRID 59 6.0 4.0 .0 GRID 60 7.0 4.0 .0 GRID 61 8.0 4.0 .0 GRID 62 9.0 4.0 .0 GRID 63 10.0 4.0 .0 GRID 64 11.0 4.0 .0 GRID 65 12.0 4.0 .0 GRID 66 .0 5.0 .0 GRID 67 1.0 5.0 .0 GRID 68 2.0 5.0 .0 GRID 69 3.0 5.0 .0 GRID 70 4.0 5.0 .0 GRID 71 5.0 5.0 .0 GRID 72 6.0 5.0 .0 GRID 73 7.0 5.0 .0 GRID 74 8.0 5.0 .0 GRID 75 9.0 5.0 .0 GRID 76 10.0 5.0 .0 GRID 77 11.0 5.0 .0 GRID 78 12.0 5.0 .0 GRID 79 .0 6.0 .0 GRID 80 1.0 6.0 .0 GRID 81 2.0 6.0 .0 GRID 82 3.0 6.0 .0 GRID 83 4.0 6.0 .0 GRID 84 5.0 6.0 .0 GRID 85 6.0 6.0 .0 GRID 86 7.0 6.0 .0 GRID 87 8.0 6.0 .0 GRID 88 9.0 6.0 .0 GRID 89 10.0 6.0 .0 GRID 90 11.0 6.0 .0 GRID 91 12.0 6.0 .0 GRID 92 .0 7.0 .0 GRID 93 1.0 7.0 .0 GRID 94 2.0 7.0 .0 GRID 95 3.0 7.0 .0 GRID 96 4.0 7.0 .0 GRID 97 5.0 7.0 .0 GRID 98 6.0 7.0 .0 GRID 99 7.0 7.0 .0 GRID 100 8.0 7.0 .0 GRID 101 9.0 7.0 .0 GRID 102 10.0 7.0 .0 GRID 103 11.0 7.0 .0 GRID 104 12.0 7.0 .0 GRID 105 .0 8.0 .0 GRID 106 1.0 8.0 .0 GRID 107 2.0 8.0 .0 GRID 108 3.0 8.0 .0 GRID 109 4.0 8.0 .0 GRID 110 5.0 8.0 .0 GRID 111 6.0 8.0 .0 GRID 112 7.0 8.0 .0 GRID 113 8.0 8.0 .0 GRID 114 9.0 8.0 .0 GRID 115 10.0 8.0 .0 GRID 116 11.0 8.0 .0 GRID 117 12.0 8.0 .0 GRID 118 .0 9.0 .0 GRID 119 1.0 9.0 .0 GRID 120 2.0 9.0 .0 GRID 121 3.0 9.0 .0 GRID 122 4.0 9.0 .0 GRID 123 5.0 9.0 .0 GRID 124 6.0 9.0 .0 GRID 125 7.0 9.0 .0 GRID 126 8.0 9.0 .0 GRID 127 9.0 9.0 .0 GRID 128 10.0 9.0 .0 GRID 129 11.0 9.0 .0 GRID 130 12.0 9.0 .0 GRID 131 .0 10.0 .0 GRID 132 1.0 10.0 .0 GRID 133 2.0 10.0 .0 GRID 134 3.0 10.0 .0 GRID 135 4.0 10.0 .0 GRID 136 5.0 10.0 .0 GRID 137 6.0 10.0 .0 GRID 138 7.0 10.0 .0 GRID 139 8.0 10.0 .0 GRID 140 9.0 10.0 .0 GRID 141 10.0 10.0 .0 GRID 142 11.0 10.0 .0 GRID 143 12.0 10.0 .0 GRID 144 .0 11.0 .0 GRID 145 1.0 11.0 .0 GRID 146 2.0 11.0 .0 GRID 147 3.0 11.0 .0 GRID 148 4.0 11.0 .0 GRID 149 5.0 11.0 .0 GRID 150 6.0 11.0 .0 GRID 151 7.0 11.0 .0 GRID 152 8.0 11.0 .0 GRID 153 9.0 11.0 .0 GRID 154 10.0 11.0 .0 GRID 155 11.0 11.0 .0 GRID 156 12.0 11.0 .0 GRID 157 .0 12.0 .0 GRID 158 1.0 12.0 .0 GRID 159 2.0 12.0 .0 GRID 160 3.0 12.0 .0 GRID 161 4.0 12.0 .0 GRID 162 5.0 12.0 .0 GRID 163 6.0 12.0 .0 GRID 164 7.0 12.0 .0 GRID 165 8.0 12.0 .0 GRID 166 9.0 12.0 .0 GRID 167 10.0 12.0 .0 GRID 168 11.0 12.0 .0 GRID 169 12.0 12.0 .0 GRID 170 .0 13.0 .0 GRID 171 1.0 13.0 .0 GRID 172 2.0 13.0 .0 GRID 173 3.0 13.0 .0 GRID 174 4.0 13.0 .0 GRID 175 5.0 13.0 .0 GRID 176 6.0 13.0 .0 GRID 177 7.0 13.0 .0 GRID 178 8.0 13.0 .0 GRID 179 9.0 13.0 .0 GRID 180 10.0 13.0 .0 GRID 181 11.0 13.0 .0 GRID 182 12.0 13.0 .0 GRID 183 .0 14.0 .0 GRID 184 1.0 14.0 .0 GRID 185 2.0 14.0 .0 GRID 186 3.0 14.0 .0 GRID 187 4.0 14.0 .0 GRID 188 5.0 14.0 .0 GRID 189 6.0 14.0 .0 GRID 190 7.0 14.0 .0 GRID 191 8.0 14.0 .0 GRID 192 9.0 14.0 .0 GRID 193 10.0 14.0 .0 GRID 194 11.0 14.0 .0 GRID 195 12.0 14.0 .0 GRID 196 .0 15.0 .0 GRID 197 1.0 15.0 .0 GRID 198 2.0 15.0 .0 GRID 199 3.0 15.0 .0 GRID 200 4.0 15.0 .0 GRID 201 5.0 15.0 .0 GRID 202 6.0 15.0 .0 GRID 203 7.0 15.0 .0 GRID 204 8.0 15.0 .0 GRID 205 9.0 15.0 .0 GRID 206 10.0 15.0 .0 GRID 207 11.0 15.0 .0 GRID 208 12.0 15.0 .0 GRID 209 .0 16.0 .0 GRID 210 1.0 16.0 .0 GRID 211 2.0 16.0 .0 GRID 212 3.0 16.0 .0 GRID 213 4.0 16.0 .0 GRID 214 5.0 16.0 .0 GRID 215 6.0 16.0 .0 GRID 216 7.0 16.0 .0 GRID 217 8.0 16.0 .0 GRID 218 9.0 16.0 .0 GRID 219 10.0 16.0 .0 GRID 220 11.0 16.0 .0 GRID 221 12.0 16.0 .0 GRID 222 .0 17.0 .0 GRID 223 1.0 17.0 .0 GRID 224 2.0 17.0 .0 GRID 225 3.0 17.0 .0 GRID 226 4.0 17.0 .0 GRID 227 5.0 17.0 .0 GRID 228 6.0 17.0 .0 GRID 229 7.0 17.0 .0 GRID 230 8.0 17.0 .0 GRID 231 9.0 17.0 .0 GRID 232 10.0 17.0 .0 GRID 233 11.0 17.0 .0 GRID 234 12.0 17.0 .0 GRID 235 .0 18.0 .0 GRID 236 1.0 18.0 .0 GRID 237 2.0 18.0 .0 GRID 238 3.0 18.0 .0 GRID 239 4.0 18.0 .0 GRID 240 5.0 18.0 .0 GRID 241 6.0 18.0 .0 GRID 242 7.0 18.0 .0 GRID 243 8.0 18.0 .0 GRID 244 9.0 18.0 .0 GRID 245 10.0 18.0 .0 GRID 246 11.0 18.0 .0 GRID 247 12.0 18.0 .0 MAT1 75 10.400+6 .3 12.700-675. MATT1 75 100 PARAM IRES 1 PQDMEM 21 75 .25 SPC1 1 1 1 14 27 40 53 66 CSPC-A +SPC-A 79 92 105 118 131 144 157 170 CSPC-B +SPC-B 183 196 209 222 235 SPC1 1 2 1 2 3 4 5 6 CSPC-C +SPC-C 7 8 9 10 11 12 13 TABLEM1 100 +TM1 +TM1 80. 10.4+6 150. 10.15+6 200. 9.84+6 250. 9.51+6 +TM2 +TM2 300. 9.15+6 ENDT TEMP 1 1 245.000 2 232.500 3 220.000 TEMP 1 4 207.500 5 195.000 6 182.500 TEMP 1 7 170.000 8 157.500 9 145.000 TEMP 1 10 132.500 11 120.000 12 107.500 TEMP 1 13 95.000 14 245.000 15 232.500 TEMP 1 16 220.000 17 207.500 18 195.000 TEMP 1 19 182.500 20 170.000 21 157.500 TEMP 1 22 145.000 23 132.500 24 120.000 TEMP 1 25 107.500 26 95.000 27 245.000 TEMP 1 28 232.500 29 220.000 30 207.500 TEMP 1 31 195.000 32 182.500 33 170.000 TEMP 1 34 157.500 35 145.000 36 132.500 TEMP 1 37 120.000 38 107.500 39 95.000 TEMP 1 40 245.000 41 232.500 42 220.000 TEMP 1 43 207.500 44 195.000 45 182.500 TEMP 1 46 170.000 47 157.500 48 145.000 TEMP 1 49 132.500 50 120.000 51 107.500 TEMP 1 52 95.000 53 245.000 54 232.500 TEMP 1 55 220.000 56 207.500 57 195.000 TEMP 1 58 182.500 59 170.000 60 157.500 TEMP 1 61 145.000 62 132.500 63 120.000 TEMP 1 64 107.500 65 95.000 66 245.000 TEMP 1 67 232.500 68 220.000 69 207.500 TEMP 1 70 195.000 71 182.500 72 170.000 TEMP 1 73 157.500 74 145.000 75 132.500 TEMP 1 76 120.000 77 107.500 78 95.000 TEMP 1 79 245.000 80 232.500 81 220.000 TEMP 1 82 207.500 83 195.000 84 182.500 TEMP 1 85 170.000 86 157.500 87 145.000 TEMP 1 88 132.500 89 120.000 90 107.500 TEMP 1 91 95.000 92 245.000 93 232.500 TEMP 1 94 220.000 95 207.500 96 195.000 TEMP 1 97 182.500 98 170.000 99 157.500 TEMP 1 100 145.000 101 132.500 102 120.000 TEMP 1 103 107.500 104 95.000 105 245.000 TEMP 1 106 232.500 107 220.000 108 207.500 TEMP 1 109 195.000 110 182.500 111 170.000 TEMP 1 112 157.500 113 145.000 114 132.500 TEMP 1 115 120.000 116 107.500 117 95.000 TEMP 1 118 245.000 119 232.500 120 220.000 TEMP 1 121 207.500 122 195.000 123 182.500 TEMP 1 124 170.000 125 157.500 126 145.000 TEMP 1 127 132.500 128 120.000 129 107.500 TEMP 1 130 95.000 131 245.000 132 232.500 TEMP 1 133 220.000 134 207.500 135 195.000 TEMP 1 136 182.500 137 170.000 138 157.500 TEMP 1 139 145.000 140 132.500 141 120.000 TEMP 1 142 107.500 143 95.000 144 245.000 TEMP 1 145 232.500 146 220.000 147 207.500 TEMP 1 148 195.000 149 182.500 150 170.000 TEMP 1 151 157.500 152 145.000 153 132.500 TEMP 1 154 120.000 155 107.500 156 95.000 TEMP 1 157 245.000 158 232.500 159 220.000 TEMP 1 160 207.500 161 195.000 162 182.500 TEMP 1 163 170.000 164 157.500 165 145.000 TEMP 1 166 132.500 167 120.000 168 107.500 TEMP 1 169 95.000 170 245.000 171 232.500 TEMP 1 172 220.000 173 207.500 174 195.000 TEMP 1 175 182.500 176 170.000 177 157.500 TEMP 1 178 145.000 179 132.500 180 120.000 TEMP 1 181 107.500 182 95.000 183 245.000 TEMP 1 184 232.500 185 220.000 186 207.500 TEMP 1 187 195.000 188 182.500 189 170.000 TEMP 1 190 157.500 191 145.000 192 132.500 TEMP 1 193 120.000 194 107.500 195 95.000 TEMP 1 196 245.000 197 232.500 198 220.000 TEMP 1 199 207.500 200 195.000 201 182.500 TEMP 1 202 170.000 203 157.500 204 145.000 TEMP 1 205 132.500 206 120.000 207 107.500 TEMP 1 208 95.000 209 245.000 210 232.500 TEMP 1 211 220.000 212 207.500 213 195.000 TEMP 1 214 182.500 215 170.000 216 157.500 TEMP 1 217 145.000 218 132.500 219 120.000 TEMP 1 220 107.500 221 95.000 222 245.000 TEMP 1 223 232.500 224 220.000 225 207.500 TEMP 1 226 195.000 227 182.500 228 170.000 TEMP 1 229 157.500 230 145.000 231 132.500 TEMP 1 232 120.000 233 107.500 234 95.000 TEMP 1 235 245.000 236 232.500 237 220.000 TEMP 1 238 207.500 239 195.000 240 182.500 TEMP 1 241 170.000 242 157.500 243 145.000 TEMP 1 244 132.500 245 120.000 246 107.500 TEMP 1 247 95.000 ENDDATA ================================================ FILE: inp/d01031a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Free Rectangular (QDMEM) Plate with Thermal Loading (1-3-1) $ Free Rectangular (QDMEM1) Plate with Thermal Loading (1-3-2) $ Free Rectangular (QDMEM2) Plate with Thermal Loading (1-3-3) $ $ A. Description $ $ Problem 1-3-1 demonstrates the use of thermal loading conditions and $ temperature-dependent materials. The model, a rectangular plate, is given a $ temperature gradient which causes internal loads and elastic deflections. $ Since there are two planes of symmetry, only one-quarter of the structure $ needs to be modeled. The analysis has been performed using three different $ NASTRAN membrane plate elements. The two variations of this problem are $ obtained by replacing the quadrilateral membrane elements, QDMEM, with QDMEM1 $ and QDMEM2 membrane elements to illustrate their application to this type of $ problem (Problems 1-3-2 and 1-3-3, respectively). $ $ B. Input $ $ The temperature load is constant in the y direction and symmetric about the y- $ axis. Since membrane elements are used to model the structure, it is necessary $ to remove all rotational degrees of freedom and translational degrees of $ freedom normal to the membrane. The symmetric boundary conditions were modeled $ by constraining the displacements normal to the planes of symmetry. The $ material used has temperature-dependent elasticity (as defined in Reference $ 5); therefore, the INPUT module cannot be used for this application. The $ CNGRNT bulk data card can be used if the congruency is defined in one $ direction. $ $ 1. Parameters $ $ L = 36.0 in (length) $ $ W = 24.0 in (width) $ $ t = 0.25 in (thickness) $ $ 6 2 $ E = 10.4 x 10 lb/in (modulus of elasticity at T ) $ o $ v = 0.3 (Poisson's ratio) $ -6 $ alpha = 12.7 x l0 in/in/deg. F (thermal expansion coefficient) $ $ T = 75.0 deg. F (thermal expansion reference temperature) $ o $ $ 2. Constraints $ $ u = 0.0 at x = 0.0 $ x $ $ u = 0.0 at y = 0.0 $ y $ $ u = theta sub x = theta sub y = theta sub z = 0.0 at all Grids $ z $ $ 3. Loads $ $ The thermal loading is specified with TEMP Bulk Data cards. Young's modulus is $ specified as a function of temperature with MATT1 and TABLEM1 cards. $ $ C. Results $ $ There is no theoretical solution to this problem. However, this problem $ represents a model of a laboratory experiment described in Reference 5. $ $ APPLICABLE REFERENCES $ $ 5. Richard R. Heldenfels and William M. Roberts, "Experimental and Theoretical $ Determination of Thermal Stresses in a Flat Plate", NACA TN 2769, 1952. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01032a.inp ================================================ ID D01032A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 20 CEND TITLE = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS) SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A LABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL SPC = 1 TEMPERATURE = 1 OUTPUT SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247 SET 2 = 1 THRU 26 DISPLACEMENTS = 1 OLOAD = 2 $ STRESSES FOR POINTS ON PUBLISHED CURVES SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98, 106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176, 184,189, 197,202, 210,215, 223,228 STRESSES = 3 BEGIN BULK CNGRNT 1 14 27 40 53 66 79 92 +CNG11 +CNG11 105 118 131 144 157 170 183 196 +CNG12 +CNG12 209 222 CNGRNT 2 15 28 41 54 67 80 93 +CNG21 +CNG21 106 119 132 145 158 171 184 197 +CNG22 +CNG22 210 223 CNGRNT 3 16 29 42 55 68 81 94 +CNG31 +CNG31 107 120 133 146 159 172 185 198 +CNG32 +CNG32 211 224 CNGRNT 4 17 30 43 56 69 82 95 +CNG41 +CNG41 108 121 134 147 160 173 186 199 +CNG42 +CNG42 212 225 CNGRNT 5 18 31 44 57 70 83 96 +CNG51 +CNG51 109 122 135 148 161 174 187 200 +CNG52 +CNG52 213 226 CNGRNT 6 19 32 45 58 71 84 97 +CNG61 +CNG61 110 123 136 149 162 175 188 201 +CNG62 +CNG62 214 227 CNGRNT 7 20 33 46 59 72 85 98 +CNG71 +CNG71 111 124 137 150 163 176 189 202 +CNG72 +CNG72 215 228 CNGRNT 8 21 34 47 60 73 86 99 +CNG81 +CNG81 112 125 138 151 164 177 190 203 +CNG82 +CNG82 216 229 CNGRNT 9 22 35 48 61 74 87 100 +CNG91 +CNG91 113 126 139 152 165 178 191 204 +CNG92 +CNG92 217 230 CNGRNT 10 23 36 49 62 75 88 101 +CNG101 +CNG101 114 127 140 153 166 179 192 205 +CNG102 +CNG102 218 231 CNGRNT 11 24 37 50 63 76 89 102 +CNG111 +CNG111 115 128 141 154 167 180 193 206 +CNG112 +CNG112 219 232 CNGRNT 12 25 38 51 64 77 90 103 +CNG121 +CNG121 116 129 142 155 168 181 194 207 +CNG122 +CNG122 220 233 CQDMEM1 1 21 1 2 15 14 .00 CQDMEM1 2 21 2 3 16 15 .00 CQDMEM1 3 21 3 4 17 16 .00 CQDMEM1 4 21 4 5 18 17 .00 CQDMEM1 5 21 5 6 19 18 .00 CQDMEM1 6 21 6 7 20 19 .00 CQDMEM1 7 21 7 8 21 20 .00 CQDMEM1 8 21 8 9 22 21 .00 CQDMEM1 9 21 9 10 23 22 .00 CQDMEM1 10 21 10 11 24 23 .00 CQDMEM1 11 21 11 12 25 24 .00 CQDMEM1 12 21 12 13 26 25 .00 CQDMEM1 14 21 14 15 28 27 .00 CQDMEM1 15 21 15 16 29 28 .00 CQDMEM1 16 21 16 17 30 29 .00 CQDMEM1 17 21 17 18 31 30 .00 CQDMEM1 18 21 18 19 32 31 .00 CQDMEM1 19 21 19 20 33 32 .00 CQDMEM1 20 21 20 21 34 33 .00 CQDMEM1 21 21 21 22 35 34 .00 CQDMEM1 22 21 22 23 36 35 .00 CQDMEM1 23 21 23 24 37 36 .00 CQDMEM1 24 21 24 25 38 37 .00 CQDMEM1 25 21 25 26 39 38 .00 CQDMEM1 27 21 27 28 41 40 .00 CQDMEM1 28 21 28 29 42 41 .00 CQDMEM1 29 21 29 30 43 42 .00 CQDMEM1 30 21 30 31 44 43 .00 CQDMEM1 31 21 31 32 45 44 .00 CQDMEM1 32 21 32 33 46 45 .00 CQDMEM1 33 21 33 34 47 46 .00 CQDMEM1 34 21 34 35 48 47 .00 CQDMEM1 35 21 35 36 49 48 .00 CQDMEM1 36 21 36 37 50 49 .00 CQDMEM1 37 21 37 38 51 50 .00 CQDMEM1 38 21 38 39 52 51 .00 CQDMEM1 40 21 40 41 54 53 .00 CQDMEM1 41 21 41 42 55 54 .00 CQDMEM1 42 21 42 43 56 55 .00 CQDMEM1 43 21 43 44 57 56 .00 CQDMEM1 44 21 44 45 58 57 .00 CQDMEM1 45 21 45 46 59 58 .00 CQDMEM1 46 21 46 47 60 59 .00 CQDMEM1 47 21 47 48 61 60 .00 CQDMEM1 48 21 48 49 62 61 .00 CQDMEM1 49 21 49 50 63 62 .00 CQDMEM1 50 21 50 51 64 63 .00 CQDMEM1 51 21 51 52 65 64 .00 CQDMEM1 53 21 53 54 67 66 .00 CQDMEM1 54 21 54 55 68 67 .00 CQDMEM1 55 21 55 56 69 68 .00 CQDMEM1 56 21 56 57 70 69 .00 CQDMEM1 57 21 57 58 71 70 .00 CQDMEM1 58 21 58 59 72 71 .00 CQDMEM1 59 21 59 60 73 72 .00 CQDMEM1 60 21 60 61 74 73 .00 CQDMEM1 61 21 61 62 75 74 .00 CQDMEM1 62 21 62 63 76 75 .00 CQDMEM1 63 21 63 64 77 76 .00 CQDMEM1 64 21 64 65 78 77 .00 CQDMEM1 66 21 66 67 80 79 .00 CQDMEM1 67 21 67 68 81 80 .00 CQDMEM1 68 21 68 69 82 81 .00 CQDMEM1 69 21 69 70 83 82 .00 CQDMEM1 70 21 70 71 84 83 .00 CQDMEM1 71 21 71 72 85 84 .00 CQDMEM1 72 21 72 73 86 85 .00 CQDMEM1 73 21 73 74 87 86 .00 CQDMEM1 74 21 74 75 88 87 .00 CQDMEM1 75 21 75 76 89 88 .00 CQDMEM1 76 21 76 77 90 89 .00 CQDMEM1 77 21 77 78 91 90 .00 CQDMEM1 79 21 79 80 93 92 .00 CQDMEM1 80 21 80 81 94 93 .00 CQDMEM1 81 21 81 82 95 94 .00 CQDMEM1 82 21 82 83 96 95 .00 CQDMEM1 83 21 83 84 97 96 .00 CQDMEM1 84 21 84 85 98 97 .00 CQDMEM1 85 21 85 86 99 98 .00 CQDMEM1 86 21 86 87 100 99 .00 CQDMEM1 87 21 87 88 101 100 .00 CQDMEM1 88 21 88 89 102 101 .00 CQDMEM1 89 21 89 90 103 102 .00 CQDMEM1 90 21 90 91 104 103 .00 CQDMEM1 92 21 92 93 106 105 .00 CQDMEM1 93 21 93 94 107 106 .00 CQDMEM1 94 21 94 95 108 107 .00 CQDMEM1 95 21 95 96 109 108 .00 CQDMEM1 96 21 96 97 110 109 .00 CQDMEM1 97 21 97 98 111 110 .00 CQDMEM1 98 21 98 99 112 111 .00 CQDMEM1 99 21 99 100 113 112 .00 CQDMEM1 100 21 100 101 114 113 .00 CQDMEM1 101 21 101 102 115 114 .00 CQDMEM1 102 21 102 103 116 115 .00 CQDMEM1 103 21 103 104 117 116 .00 CQDMEM1 105 21 105 106 119 118 .00 CQDMEM1 106 21 106 107 120 119 .00 CQDMEM1 107 21 107 108 121 120 .00 CQDMEM1 108 21 108 109 122 121 .00 CQDMEM1 109 21 109 110 123 122 .00 CQDMEM1 110 21 110 111 124 123 .00 CQDMEM1 111 21 111 112 125 124 .00 CQDMEM1 112 21 112 113 126 125 .00 CQDMEM1 113 21 113 114 127 126 .00 CQDMEM1 114 21 114 115 128 127 .00 CQDMEM1 115 21 115 116 129 128 .00 CQDMEM1 116 21 116 117 130 129 .00 CQDMEM1 118 21 118 119 132 131 .00 CQDMEM1 119 21 119 120 133 132 .00 CQDMEM1 120 21 120 121 134 133 .00 CQDMEM1 121 21 121 122 135 134 .00 CQDMEM1 122 21 122 123 136 135 .00 CQDMEM1 123 21 123 124 137 136 .00 CQDMEM1 124 21 124 125 138 137 .00 CQDMEM1 125 21 125 126 139 138 .00 CQDMEM1 126 21 126 127 140 139 .00 CQDMEM1 127 21 127 128 141 140 .00 CQDMEM1 128 21 128 129 142 141 .00 CQDMEM1 129 21 129 130 143 142 .00 CQDMEM1 131 21 131 132 145 144 .00 CQDMEM1 132 21 132 133 146 145 .00 CQDMEM1 133 21 133 134 147 146 .00 CQDMEM1 134 21 134 135 148 147 .00 CQDMEM1 135 21 135 136 149 148 .00 CQDMEM1 136 21 136 137 150 149 .00 CQDMEM1 137 21 137 138 151 150 .00 CQDMEM1 138 21 138 139 152 151 .00 CQDMEM1 139 21 139 140 153 152 .00 CQDMEM1 140 21 140 141 154 153 .00 CQDMEM1 141 21 141 142 155 154 .00 CQDMEM1 142 21 142 143 156 155 .00 CQDMEM1 144 21 144 145 158 157 .00 CQDMEM1 145 21 145 146 159 158 .00 CQDMEM1 146 21 146 147 160 159 .00 CQDMEM1 147 21 147 148 161 160 .00 CQDMEM1 148 21 148 149 162 161 .00 CQDMEM1 149 21 149 150 163 162 .00 CQDMEM1 150 21 150 151 164 163 .00 CQDMEM1 151 21 151 152 165 164 .00 CQDMEM1 152 21 152 153 166 165 .00 CQDMEM1 153 21 153 154 167 166 .00 CQDMEM1 154 21 154 155 168 167 .00 CQDMEM1 155 21 155 156 169 168 .00 CQDMEM1 157 21 157 158 171 170 .00 CQDMEM1 158 21 158 159 172 171 .00 CQDMEM1 159 21 159 160 173 172 .00 CQDMEM1 160 21 160 161 174 173 .00 CQDMEM1 161 21 161 162 175 174 .00 CQDMEM1 162 21 162 163 176 175 .00 CQDMEM1 163 21 163 164 177 176 .00 CQDMEM1 164 21 164 165 178 177 .00 CQDMEM1 165 21 165 166 179 178 .00 CQDMEM1 166 21 166 167 180 179 .00 CQDMEM1 167 21 167 168 181 180 .00 CQDMEM1 168 21 168 169 182 181 .00 CQDMEM1 170 21 170 171 184 183 .00 CQDMEM1 171 21 171 172 185 184 .00 CQDMEM1 172 21 172 173 186 185 .00 CQDMEM1 173 21 173 174 187 186 .00 CQDMEM1 174 21 174 175 188 187 .00 CQDMEM1 175 21 175 176 189 188 .00 CQDMEM1 176 21 176 177 190 189 .00 CQDMEM1 177 21 177 178 191 190 .00 CQDMEM1 178 21 178 179 192 191 .00 CQDMEM1 179 21 179 180 193 192 .00 CQDMEM1 180 21 180 181 194 193 .00 CQDMEM1 181 21 181 182 195 194 .00 CQDMEM1 183 21 183 184 197 196 .00 CQDMEM1 184 21 184 185 198 197 .00 CQDMEM1 185 21 185 186 199 198 .00 CQDMEM1 186 21 186 187 200 199 .00 CQDMEM1 187 21 187 188 201 200 .00 CQDMEM1 188 21 188 189 202 201 .00 CQDMEM1 189 21 189 190 203 202 .00 CQDMEM1 190 21 190 191 204 203 .00 CQDMEM1 191 21 191 192 205 204 .00 CQDMEM1 192 21 192 193 206 205 .00 CQDMEM1 193 21 193 194 207 206 .00 CQDMEM1 194 21 194 195 208 207 .00 CQDMEM1 196 21 196 197 210 209 .00 CQDMEM1 197 21 197 198 211 210 .00 CQDMEM1 198 21 198 199 212 211 .00 CQDMEM1 199 21 199 200 213 212 .00 CQDMEM1 200 21 200 201 214 213 .00 CQDMEM1 201 21 201 202 215 214 .00 CQDMEM1 202 21 202 203 216 215 .00 CQDMEM1 203 21 203 204 217 216 .00 CQDMEM1 204 21 204 205 218 217 .00 CQDMEM1 205 21 205 206 219 218 .00 CQDMEM1 206 21 206 207 220 219 .00 CQDMEM1 207 21 207 208 221 220 .00 CQDMEM1 209 21 209 210 223 222 .00 CQDMEM1 210 21 210 211 224 223 .00 CQDMEM1 211 21 211 212 225 224 .00 CQDMEM1 212 21 212 213 226 225 .00 CQDMEM1 213 21 213 214 227 226 .00 CQDMEM1 214 21 214 215 228 227 .00 CQDMEM1 215 21 215 216 229 228 .00 CQDMEM1 216 21 216 217 230 229 .00 CQDMEM1 217 21 217 218 231 230 .00 CQDMEM1 218 21 218 219 232 231 .00 CQDMEM1 219 21 219 220 233 232 .00 CQDMEM1 220 21 220 221 234 233 .00 CQDMEM1 222 21 222 223 236 235 .00 CQDMEM1 223 21 223 224 237 236 .00 CQDMEM1 224 21 224 225 238 237 .00 CQDMEM1 225 21 225 226 239 238 .00 CQDMEM1 226 21 226 227 240 239 .00 CQDMEM1 227 21 227 228 241 240 .00 CQDMEM1 228 21 228 229 242 241 .00 CQDMEM1 229 21 229 230 243 242 .00 CQDMEM1 230 21 230 231 244 243 .00 CQDMEM1 231 21 231 232 245 244 .00 CQDMEM1 232 21 232 233 246 245 .00 CQDMEM1 233 21 233 234 247 246 .00 GRDSET 3456 GRID 1 .0 .0 .0 GRID 2 1.0 .0 .0 GRID 3 2.0 .0 .0 GRID 4 3.0 .0 .0 GRID 5 4.0 .0 .0 GRID 6 5.0 .0 .0 GRID 7 6.0 .0 .0 GRID 8 7.0 .0 .0 GRID 9 8.0 .0 .0 GRID 10 9.0 .0 .0 GRID 11 10.0 .0 .0 GRID 12 11.0 .0 .0 GRID 13 12.0 .0 .0 GRID 14 .0 1.0 .0 GRID 15 1.0 1.0 .0 GRID 16 2.0 1.0 .0 GRID 17 3.0 1.0 .0 GRID 18 4.0 1.0 .0 GRID 19 5.0 1.0 .0 GRID 20 6.0 1.0 .0 GRID 21 7.0 1.0 .0 GRID 22 8.0 1.0 .0 GRID 23 9.0 1.0 .0 GRID 24 10.0 1.0 .0 GRID 25 11.0 1.0 .0 GRID 26 12.0 1.0 .0 GRID 27 .0 2.0 .0 GRID 28 1.0 2.0 .0 GRID 29 2.0 2.0 .0 GRID 30 3.0 2.0 .0 GRID 31 4.0 2.0 .0 GRID 32 5.0 2.0 .0 GRID 33 6.0 2.0 .0 GRID 34 7.0 2.0 .0 GRID 35 8.0 2.0 .0 GRID 36 9.0 2.0 .0 GRID 37 10.0 2.0 .0 GRID 38 11.0 2.0 .0 GRID 39 12.0 2.0 .0 GRID 40 .0 3.0 .0 GRID 41 1.0 3.0 .0 GRID 42 2.0 3.0 .0 GRID 43 3.0 3.0 .0 GRID 44 4.0 3.0 .0 GRID 45 5.0 3.0 .0 GRID 46 6.0 3.0 .0 GRID 47 7.0 3.0 .0 GRID 48 8.0 3.0 .0 GRID 49 9.0 3.0 .0 GRID 50 10.0 3.0 .0 GRID 51 11.0 3.0 .0 GRID 52 12.0 3.0 .0 GRID 53 .0 4.0 .0 GRID 54 1.0 4.0 .0 GRID 55 2.0 4.0 .0 GRID 56 3.0 4.0 .0 GRID 57 4.0 4.0 .0 GRID 58 5.0 4.0 .0 GRID 59 6.0 4.0 .0 GRID 60 7.0 4.0 .0 GRID 61 8.0 4.0 .0 GRID 62 9.0 4.0 .0 GRID 63 10.0 4.0 .0 GRID 64 11.0 4.0 .0 GRID 65 12.0 4.0 .0 GRID 66 .0 5.0 .0 GRID 67 1.0 5.0 .0 GRID 68 2.0 5.0 .0 GRID 69 3.0 5.0 .0 GRID 70 4.0 5.0 .0 GRID 71 5.0 5.0 .0 GRID 72 6.0 5.0 .0 GRID 73 7.0 5.0 .0 GRID 74 8.0 5.0 .0 GRID 75 9.0 5.0 .0 GRID 76 10.0 5.0 .0 GRID 77 11.0 5.0 .0 GRID 78 12.0 5.0 .0 GRID 79 .0 6.0 .0 GRID 80 1.0 6.0 .0 GRID 81 2.0 6.0 .0 GRID 82 3.0 6.0 .0 GRID 83 4.0 6.0 .0 GRID 84 5.0 6.0 .0 GRID 85 6.0 6.0 .0 GRID 86 7.0 6.0 .0 GRID 87 8.0 6.0 .0 GRID 88 9.0 6.0 .0 GRID 89 10.0 6.0 .0 GRID 90 11.0 6.0 .0 GRID 91 12.0 6.0 .0 GRID 92 .0 7.0 .0 GRID 93 1.0 7.0 .0 GRID 94 2.0 7.0 .0 GRID 95 3.0 7.0 .0 GRID 96 4.0 7.0 .0 GRID 97 5.0 7.0 .0 GRID 98 6.0 7.0 .0 GRID 99 7.0 7.0 .0 GRID 100 8.0 7.0 .0 GRID 101 9.0 7.0 .0 GRID 102 10.0 7.0 .0 GRID 103 11.0 7.0 .0 GRID 104 12.0 7.0 .0 GRID 105 .0 8.0 .0 GRID 106 1.0 8.0 .0 GRID 107 2.0 8.0 .0 GRID 108 3.0 8.0 .0 GRID 109 4.0 8.0 .0 GRID 110 5.0 8.0 .0 GRID 111 6.0 8.0 .0 GRID 112 7.0 8.0 .0 GRID 113 8.0 8.0 .0 GRID 114 9.0 8.0 .0 GRID 115 10.0 8.0 .0 GRID 116 11.0 8.0 .0 GRID 117 12.0 8.0 .0 GRID 118 .0 9.0 .0 GRID 119 1.0 9.0 .0 GRID 120 2.0 9.0 .0 GRID 121 3.0 9.0 .0 GRID 122 4.0 9.0 .0 GRID 123 5.0 9.0 .0 GRID 124 6.0 9.0 .0 GRID 125 7.0 9.0 .0 GRID 126 8.0 9.0 .0 GRID 127 9.0 9.0 .0 GRID 128 10.0 9.0 .0 GRID 129 11.0 9.0 .0 GRID 130 12.0 9.0 .0 GRID 131 .0 10.0 .0 GRID 132 1.0 10.0 .0 GRID 133 2.0 10.0 .0 GRID 134 3.0 10.0 .0 GRID 135 4.0 10.0 .0 GRID 136 5.0 10.0 .0 GRID 137 6.0 10.0 .0 GRID 138 7.0 10.0 .0 GRID 139 8.0 10.0 .0 GRID 140 9.0 10.0 .0 GRID 141 10.0 10.0 .0 GRID 142 11.0 10.0 .0 GRID 143 12.0 10.0 .0 GRID 144 .0 11.0 .0 GRID 145 1.0 11.0 .0 GRID 146 2.0 11.0 .0 GRID 147 3.0 11.0 .0 GRID 148 4.0 11.0 .0 GRID 149 5.0 11.0 .0 GRID 150 6.0 11.0 .0 GRID 151 7.0 11.0 .0 GRID 152 8.0 11.0 .0 GRID 153 9.0 11.0 .0 GRID 154 10.0 11.0 .0 GRID 155 11.0 11.0 .0 GRID 156 12.0 11.0 .0 GRID 157 .0 12.0 .0 GRID 158 1.0 12.0 .0 GRID 159 2.0 12.0 .0 GRID 160 3.0 12.0 .0 GRID 161 4.0 12.0 .0 GRID 162 5.0 12.0 .0 GRID 163 6.0 12.0 .0 GRID 164 7.0 12.0 .0 GRID 165 8.0 12.0 .0 GRID 166 9.0 12.0 .0 GRID 167 10.0 12.0 .0 GRID 168 11.0 12.0 .0 GRID 169 12.0 12.0 .0 GRID 170 .0 13.0 .0 GRID 171 1.0 13.0 .0 GRID 172 2.0 13.0 .0 GRID 173 3.0 13.0 .0 GRID 174 4.0 13.0 .0 GRID 175 5.0 13.0 .0 GRID 176 6.0 13.0 .0 GRID 177 7.0 13.0 .0 GRID 178 8.0 13.0 .0 GRID 179 9.0 13.0 .0 GRID 180 10.0 13.0 .0 GRID 181 11.0 13.0 .0 GRID 182 12.0 13.0 .0 GRID 183 .0 14.0 .0 GRID 184 1.0 14.0 .0 GRID 185 2.0 14.0 .0 GRID 186 3.0 14.0 .0 GRID 187 4.0 14.0 .0 GRID 188 5.0 14.0 .0 GRID 189 6.0 14.0 .0 GRID 190 7.0 14.0 .0 GRID 191 8.0 14.0 .0 GRID 192 9.0 14.0 .0 GRID 193 10.0 14.0 .0 GRID 194 11.0 14.0 .0 GRID 195 12.0 14.0 .0 GRID 196 .0 15.0 .0 GRID 197 1.0 15.0 .0 GRID 198 2.0 15.0 .0 GRID 199 3.0 15.0 .0 GRID 200 4.0 15.0 .0 GRID 201 5.0 15.0 .0 GRID 202 6.0 15.0 .0 GRID 203 7.0 15.0 .0 GRID 204 8.0 15.0 .0 GRID 205 9.0 15.0 .0 GRID 206 10.0 15.0 .0 GRID 207 11.0 15.0 .0 GRID 208 12.0 15.0 .0 GRID 209 .0 16.0 .0 GRID 210 1.0 16.0 .0 GRID 211 2.0 16.0 .0 GRID 212 3.0 16.0 .0 GRID 213 4.0 16.0 .0 GRID 214 5.0 16.0 .0 GRID 215 6.0 16.0 .0 GRID 216 7.0 16.0 .0 GRID 217 8.0 16.0 .0 GRID 218 9.0 16.0 .0 GRID 219 10.0 16.0 .0 GRID 220 11.0 16.0 .0 GRID 221 12.0 16.0 .0 GRID 222 .0 17.0 .0 GRID 223 1.0 17.0 .0 GRID 224 2.0 17.0 .0 GRID 225 3.0 17.0 .0 GRID 226 4.0 17.0 .0 GRID 227 5.0 17.0 .0 GRID 228 6.0 17.0 .0 GRID 229 7.0 17.0 .0 GRID 230 8.0 17.0 .0 GRID 231 9.0 17.0 .0 GRID 232 10.0 17.0 .0 GRID 233 11.0 17.0 .0 GRID 234 12.0 17.0 .0 GRID 235 .0 18.0 .0 GRID 236 1.0 18.0 .0 GRID 237 2.0 18.0 .0 GRID 238 3.0 18.0 .0 GRID 239 4.0 18.0 .0 GRID 240 5.0 18.0 .0 GRID 241 6.0 18.0 .0 GRID 242 7.0 18.0 .0 GRID 243 8.0 18.0 .0 GRID 244 9.0 18.0 .0 GRID 245 10.0 18.0 .0 GRID 246 11.0 18.0 .0 GRID 247 12.0 18.0 .0 MAT1 75 10.400+6 .3 12.700-675. MATT1 75 100 PARAM IRES 1 PQDMEM1 21 75 .25 SPC1 1 1 1 14 27 40 53 66 CSPC-A +SPC-A 79 92 105 118 131 144 157 170 CSPC-B +SPC-B 183 196 209 222 235 SPC1 1 2 1 2 3 4 5 6 CSPC-C +SPC-C 7 8 9 10 11 12 13 TABLEM1 100 +TM1 +TM1 80. 10.4+6 150. 10.15+6 200. 9.84+6 250. 9.51+6 +TM2 +TM2 300. 9.15+6 ENDT TEMP 1 1 245.000 2 232.500 3 220.000 TEMP 1 4 207.500 5 195.000 6 182.500 TEMP 1 7 170.000 8 157.500 9 145.000 TEMP 1 10 132.500 11 120.000 12 107.500 TEMP 1 13 95.000 14 245.000 15 232.500 TEMP 1 16 220.000 17 207.500 18 195.000 TEMP 1 19 182.500 20 170.000 21 157.500 TEMP 1 22 145.000 23 132.500 24 120.000 TEMP 1 25 107.500 26 95.000 27 245.000 TEMP 1 28 232.500 29 220.000 30 207.500 TEMP 1 31 195.000 32 182.500 33 170.000 TEMP 1 34 157.500 35 145.000 36 132.500 TEMP 1 37 120.000 38 107.500 39 95.000 TEMP 1 40 245.000 41 232.500 42 220.000 TEMP 1 43 207.500 44 195.000 45 182.500 TEMP 1 46 170.000 47 157.500 48 145.000 TEMP 1 49 132.500 50 120.000 51 107.500 TEMP 1 52 95.000 53 245.000 54 232.500 TEMP 1 55 220.000 56 207.500 57 195.000 TEMP 1 58 182.500 59 170.000 60 157.500 TEMP 1 61 145.000 62 132.500 63 120.000 TEMP 1 64 107.500 65 95.000 66 245.000 TEMP 1 67 232.500 68 220.000 69 207.500 TEMP 1 70 195.000 71 182.500 72 170.000 TEMP 1 73 157.500 74 145.000 75 132.500 TEMP 1 76 120.000 77 107.500 78 95.000 TEMP 1 79 245.000 80 232.500 81 220.000 TEMP 1 82 207.500 83 195.000 84 182.500 TEMP 1 85 170.000 86 157.500 87 145.000 TEMP 1 88 132.500 89 120.000 90 107.500 TEMP 1 91 95.000 92 245.000 93 232.500 TEMP 1 94 220.000 95 207.500 96 195.000 TEMP 1 97 182.500 98 170.000 99 157.500 TEMP 1 100 145.000 101 132.500 102 120.000 TEMP 1 103 107.500 104 95.000 105 245.000 TEMP 1 106 232.500 107 220.000 108 207.500 TEMP 1 109 195.000 110 182.500 111 170.000 TEMP 1 112 157.500 113 145.000 114 132.500 TEMP 1 115 120.000 116 107.500 117 95.000 TEMP 1 118 245.000 119 232.500 120 220.000 TEMP 1 121 207.500 122 195.000 123 182.500 TEMP 1 124 170.000 125 157.500 126 145.000 TEMP 1 127 132.500 128 120.000 129 107.500 TEMP 1 130 95.000 131 245.000 132 232.500 TEMP 1 133 220.000 134 207.500 135 195.000 TEMP 1 136 182.500 137 170.000 138 157.500 TEMP 1 139 145.000 140 132.500 141 120.000 TEMP 1 142 107.500 143 95.000 144 245.000 TEMP 1 145 232.500 146 220.000 147 207.500 TEMP 1 148 195.000 149 182.500 150 170.000 TEMP 1 151 157.500 152 145.000 153 132.500 TEMP 1 154 120.000 155 107.500 156 95.000 TEMP 1 157 245.000 158 232.500 159 220.000 TEMP 1 160 207.500 161 195.000 162 182.500 TEMP 1 163 170.000 164 157.500 165 145.000 TEMP 1 166 132.500 167 120.000 168 107.500 TEMP 1 169 95.000 170 245.000 171 232.500 TEMP 1 172 220.000 173 207.500 174 195.000 TEMP 1 175 182.500 176 170.000 177 157.500 TEMP 1 178 145.000 179 132.500 180 120.000 TEMP 1 181 107.500 182 95.000 183 245.000 TEMP 1 184 232.500 185 220.000 186 207.500 TEMP 1 187 195.000 188 182.500 189 170.000 TEMP 1 190 157.500 191 145.000 192 132.500 TEMP 1 193 120.000 194 107.500 195 95.000 TEMP 1 196 245.000 197 232.500 198 220.000 TEMP 1 199 207.500 200 195.000 201 182.500 TEMP 1 202 170.000 203 157.500 204 145.000 TEMP 1 205 132.500 206 120.000 207 107.500 TEMP 1 208 95.000 209 245.000 210 232.500 TEMP 1 211 220.000 212 207.500 213 195.000 TEMP 1 214 182.500 215 170.000 216 157.500 TEMP 1 217 145.000 218 132.500 219 120.000 TEMP 1 220 107.500 221 95.000 222 245.000 TEMP 1 223 232.500 224 220.000 225 207.500 TEMP 1 226 195.000 227 182.500 228 170.000 TEMP 1 229 157.500 230 145.000 231 132.500 TEMP 1 232 120.000 233 107.500 234 95.000 TEMP 1 235 245.000 236 232.500 237 220.000 TEMP 1 238 207.500 239 195.000 240 182.500 TEMP 1 241 170.000 242 157.500 243 145.000 TEMP 1 244 132.500 245 120.000 246 107.500 TEMP 1 247 95.000 ENDDATA ================================================ FILE: inp/d01032a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Free Rectangular (QDMEM) Plate with Thermal Loading (1-3-1) $ Free Rectangular (QDMEM1) Plate with Thermal Loading (1-3-2) $ Free Rectangular (QDMEM2) Plate with Thermal Loading (1-3-3) $ $ A. Description $ $ Problem 1-3-1 demonstrates the use of thermal loading conditions and $ temperature-dependent materials. The model, a rectangular plate, is given a $ temperature gradient which causes internal loads and elastic deflections. $ Since there are two planes of symmetry, only one-quarter of the structure $ needs to be modeled. The analysis has been performed using three different $ NASTRAN membrane plate elements. The two variations of this problem are $ obtained by replacing the quadrilateral membrane elements, QDMEM, with QDMEM1 $ and QDMEM2 membrane elements to illustrate their application to this type of $ problem (Problems 1-3-2 and 1-3-3, respectively). $ $ B. Input $ $ The temperature load is constant in the y direction and symmetric about the y- $ axis. Since membrane elements are used to model the structure, it is necessary $ to remove all rotational degrees of freedom and translational degrees of $ freedom normal to the membrane. The symmetric boundary conditions were modeled $ by constraining the displacements normal to the planes of symmetry. The $ material used has temperature-dependent elasticity (as defined in Reference $ 5); therefore, the INPUT module cannot be used for this application. The $ CNGRNT bulk data card can be used if the congruency is defined in one $ direction. $ $ 1. Parameters $ $ L = 36.0 in (length) $ $ W = 24.0 in (width) $ $ t = 0.25 in (thickness) $ $ 6 2 $ E = 10.4 x 10 lb/in (modulus of elasticity at T ) $ o $ v = 0.3 (Poisson's ratio) $ -6 $ alpha = 12.7 x l0 in/in/deg. F (thermal expansion coefficient) $ $ T = 75.0 deg. F (thermal expansion reference temperature) $ o $ $ 2. Constraints $ $ u = 0.0 at x = 0.0 $ x $ $ u = 0.0 at y = 0.0 $ y $ $ u = theta sub x = theta sub y = theta sub z = 0.0 at all Grids $ z $ $ 3. Loads $ $ The thermal loading is specified with TEMP Bulk Data cards. Young's modulus is $ specified as a function of temperature with MATT1 and TABLEM1 cards. $ $ C. Results $ $ There is no theoretical solution to this problem. However, this problem $ represents a model of a laboratory experiment described in Reference 5. $ $ APPLICABLE REFERENCES $ $ 5. Richard R. Heldenfels and William M. Roberts, "Experimental and Theoretical $ Determination of Thermal Stresses in a Flat Plate", NACA TN 2769, 1952. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01033a.inp ================================================ ID D01033A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 20 CEND TITLE = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A LABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL SPC = 1 TEMPERATURE = 1 OUTPUT SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247 SET 2 = 1 THRU 26 OLOAD = 2 DISPLACEMENTS = 1 $ STRESSES FOR POINTS ON PUBLISHED CURVES SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98, 106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176, 184,189, 197,202, 210,215, 223,228 STRESSES = 3 BEGIN BULK CNGRNT 1 14 27 40 53 66 79 92 +CNG11 +CNG11 105 118 131 144 157 170 183 196 +CNG12 +CNG12 209 222 CNGRNT 2 15 28 41 54 67 80 93 +CNG21 +CNG21 106 119 132 145 158 171 184 197 +CNG22 +CNG22 210 223 CNGRNT 3 16 29 42 55 68 81 94 +CNG31 +CNG31 107 120 133 146 159 172 185 198 +CNG32 +CNG32 211 224 CNGRNT 4 17 30 43 56 69 82 95 +CNG41 +CNG41 108 121 134 147 160 173 186 199 +CNG42 +CNG42 212 225 CNGRNT 5 18 31 44 57 70 83 96 +CNG51 +CNG51 109 122 135 148 161 174 187 200 +CNG52 +CNG52 213 226 CNGRNT 6 19 32 45 58 71 84 97 +CNG61 +CNG61 110 123 136 149 162 175 188 201 +CNG62 +CNG62 214 227 CNGRNT 7 20 33 46 59 72 85 98 +CNG71 +CNG71 111 124 137 150 163 176 189 202 +CNG72 +CNG72 215 228 CNGRNT 8 21 34 47 60 73 86 99 +CNG81 +CNG81 112 125 138 151 164 177 190 203 +CNG82 +CNG82 216 229 CNGRNT 9 22 35 48 61 74 87 100 +CNG91 +CNG91 113 126 139 152 165 178 191 204 +CNG92 +CNG92 217 230 CNGRNT 10 23 36 49 62 75 88 101 +CNG101 +CNG101 114 127 140 153 166 179 192 205 +CNG102 +CNG102 218 231 CNGRNT 11 24 37 50 63 76 89 102 +CNG111 +CNG111 115 128 141 154 167 180 193 206 +CNG112 +CNG112 219 232 CNGRNT 12 25 38 51 64 77 90 103 +CNG121 +CNG121 116 129 142 155 168 181 194 207 +CNG122 +CNG122 220 233 CQDMEM2 1 21 1 2 15 14 .00 CQDMEM2 2 21 2 3 16 15 .00 CQDMEM2 3 21 3 4 17 16 .00 CQDMEM2 4 21 4 5 18 17 .00 CQDMEM2 5 21 5 6 19 18 .00 CQDMEM2 6 21 6 7 20 19 .00 CQDMEM2 7 21 7 8 21 20 .00 CQDMEM2 8 21 8 9 22 21 .00 CQDMEM2 9 21 9 10 23 22 .00 CQDMEM2 10 21 10 11 24 23 .00 CQDMEM2 11 21 11 12 25 24 .00 CQDMEM2 12 21 12 13 26 25 .00 CQDMEM2 14 21 14 15 28 27 .00 CQDMEM2 15 21 15 16 29 28 .00 CQDMEM2 16 21 16 17 30 29 .00 CQDMEM2 17 21 17 18 31 30 .00 CQDMEM2 18 21 18 19 32 31 .00 CQDMEM2 19 21 19 20 33 32 .00 CQDMEM2 20 21 20 21 34 33 .00 CQDMEM2 21 21 21 22 35 34 .00 CQDMEM2 22 21 22 23 36 35 .00 CQDMEM2 23 21 23 24 37 36 .00 CQDMEM2 24 21 24 25 38 37 .00 CQDMEM2 25 21 25 26 39 38 .00 CQDMEM2 27 21 27 28 41 40 .00 CQDMEM2 28 21 28 29 42 41 .00 CQDMEM2 29 21 29 30 43 42 .00 CQDMEM2 30 21 30 31 44 43 .00 CQDMEM2 31 21 31 32 45 44 .00 CQDMEM2 32 21 32 33 46 45 .00 CQDMEM2 33 21 33 34 47 46 .00 CQDMEM2 34 21 34 35 48 47 .00 CQDMEM2 35 21 35 36 49 48 .00 CQDMEM2 36 21 36 37 50 49 .00 CQDMEM2 37 21 37 38 51 50 .00 CQDMEM2 38 21 38 39 52 51 .00 CQDMEM2 40 21 40 41 54 53 .00 CQDMEM2 41 21 41 42 55 54 .00 CQDMEM2 42 21 42 43 56 55 .00 CQDMEM2 43 21 43 44 57 56 .00 CQDMEM2 44 21 44 45 58 57 .00 CQDMEM2 45 21 45 46 59 58 .00 CQDMEM2 46 21 46 47 60 59 .00 CQDMEM2 47 21 47 48 61 60 .00 CQDMEM2 48 21 48 49 62 61 .00 CQDMEM2 49 21 49 50 63 62 .00 CQDMEM2 50 21 50 51 64 63 .00 CQDMEM2 51 21 51 52 65 64 .00 CQDMEM2 53 21 53 54 67 66 .00 CQDMEM2 54 21 54 55 68 67 .00 CQDMEM2 55 21 55 56 69 68 .00 CQDMEM2 56 21 56 57 70 69 .00 CQDMEM2 57 21 57 58 71 70 .00 CQDMEM2 58 21 58 59 72 71 .00 CQDMEM2 59 21 59 60 73 72 .00 CQDMEM2 60 21 60 61 74 73 .00 CQDMEM2 61 21 61 62 75 74 .00 CQDMEM2 62 21 62 63 76 75 .00 CQDMEM2 63 21 63 64 77 76 .00 CQDMEM2 64 21 64 65 78 77 .00 CQDMEM2 66 21 66 67 80 79 .00 CQDMEM2 67 21 67 68 81 80 .00 CQDMEM2 68 21 68 69 82 81 .00 CQDMEM2 69 21 69 70 83 82 .00 CQDMEM2 70 21 70 71 84 83 .00 CQDMEM2 71 21 71 72 85 84 .00 CQDMEM2 72 21 72 73 86 85 .00 CQDMEM2 73 21 73 74 87 86 .00 CQDMEM2 74 21 74 75 88 87 .00 CQDMEM2 75 21 75 76 89 88 .00 CQDMEM2 76 21 76 77 90 89 .00 CQDMEM2 77 21 77 78 91 90 .00 CQDMEM2 79 21 79 80 93 92 .00 CQDMEM2 80 21 80 81 94 93 .00 CQDMEM2 81 21 81 82 95 94 .00 CQDMEM2 82 21 82 83 96 95 .00 CQDMEM2 83 21 83 84 97 96 .00 CQDMEM2 84 21 84 85 98 97 .00 CQDMEM2 85 21 85 86 99 98 .00 CQDMEM2 86 21 86 87 100 99 .00 CQDMEM2 87 21 87 88 101 100 .00 CQDMEM2 88 21 88 89 102 101 .00 CQDMEM2 89 21 89 90 103 102 .00 CQDMEM2 90 21 90 91 104 103 .00 CQDMEM2 92 21 92 93 106 105 .00 CQDMEM2 93 21 93 94 107 106 .00 CQDMEM2 94 21 94 95 108 107 .00 CQDMEM2 95 21 95 96 109 108 .00 CQDMEM2 96 21 96 97 110 109 .00 CQDMEM2 97 21 97 98 111 110 .00 CQDMEM2 98 21 98 99 112 111 .00 CQDMEM2 99 21 99 100 113 112 .00 CQDMEM2 100 21 100 101 114 113 .00 CQDMEM2 101 21 101 102 115 114 .00 CQDMEM2 102 21 102 103 116 115 .00 CQDMEM2 103 21 103 104 117 116 .00 CQDMEM2 105 21 105 106 119 118 .00 CQDMEM2 106 21 106 107 120 119 .00 CQDMEM2 107 21 107 108 121 120 .00 CQDMEM2 108 21 108 109 122 121 .00 CQDMEM2 109 21 109 110 123 122 .00 CQDMEM2 110 21 110 111 124 123 .00 CQDMEM2 111 21 111 112 125 124 .00 CQDMEM2 112 21 112 113 126 125 .00 CQDMEM2 113 21 113 114 127 126 .00 CQDMEM2 114 21 114 115 128 127 .00 CQDMEM2 115 21 115 116 129 128 .00 CQDMEM2 116 21 116 117 130 129 .00 CQDMEM2 118 21 118 119 132 131 .00 CQDMEM2 119 21 119 120 133 132 .00 CQDMEM2 120 21 120 121 134 133 .00 CQDMEM2 121 21 121 122 135 134 .00 CQDMEM2 122 21 122 123 136 135 .00 CQDMEM2 123 21 123 124 137 136 .00 CQDMEM2 124 21 124 125 138 137 .00 CQDMEM2 125 21 125 126 139 138 .00 CQDMEM2 126 21 126 127 140 139 .00 CQDMEM2 127 21 127 128 141 140 .00 CQDMEM2 128 21 128 129 142 141 .00 CQDMEM2 129 21 129 130 143 142 .00 CQDMEM2 131 21 131 132 145 144 .00 CQDMEM2 132 21 132 133 146 145 .00 CQDMEM2 133 21 133 134 147 146 .00 CQDMEM2 134 21 134 135 148 147 .00 CQDMEM2 135 21 135 136 149 148 .00 CQDMEM2 136 21 136 137 150 149 .00 CQDMEM2 137 21 137 138 151 150 .00 CQDMEM2 138 21 138 139 152 151 .00 CQDMEM2 139 21 139 140 153 152 .00 CQDMEM2 140 21 140 141 154 153 .00 CQDMEM2 141 21 141 142 155 154 .00 CQDMEM2 142 21 142 143 156 155 .00 CQDMEM2 144 21 144 145 158 157 .00 CQDMEM2 145 21 145 146 159 158 .00 CQDMEM2 146 21 146 147 160 159 .00 CQDMEM2 147 21 147 148 161 160 .00 CQDMEM2 148 21 148 149 162 161 .00 CQDMEM2 149 21 149 150 163 162 .00 CQDMEM2 150 21 150 151 164 163 .00 CQDMEM2 151 21 151 152 165 164 .00 CQDMEM2 152 21 152 153 166 165 .00 CQDMEM2 153 21 153 154 167 166 .00 CQDMEM2 154 21 154 155 168 167 .00 CQDMEM2 155 21 155 156 169 168 .00 CQDMEM2 157 21 157 158 171 170 .00 CQDMEM2 158 21 158 159 172 171 .00 CQDMEM2 159 21 159 160 173 172 .00 CQDMEM2 160 21 160 161 174 173 .00 CQDMEM2 161 21 161 162 175 174 .00 CQDMEM2 162 21 162 163 176 175 .00 CQDMEM2 163 21 163 164 177 176 .00 CQDMEM2 164 21 164 165 178 177 .00 CQDMEM2 165 21 165 166 179 178 .00 CQDMEM2 166 21 166 167 180 179 .00 CQDMEM2 167 21 167 168 181 180 .00 CQDMEM2 168 21 168 169 182 181 .00 CQDMEM2 170 21 170 171 184 183 .00 CQDMEM2 171 21 171 172 185 184 .00 CQDMEM2 172 21 172 173 186 185 .00 CQDMEM2 173 21 173 174 187 186 .00 CQDMEM2 174 21 174 175 188 187 .00 CQDMEM2 175 21 175 176 189 188 .00 CQDMEM2 176 21 176 177 190 189 .00 CQDMEM2 177 21 177 178 191 190 .00 CQDMEM2 178 21 178 179 192 191 .00 CQDMEM2 179 21 179 180 193 192 .00 CQDMEM2 180 21 180 181 194 193 .00 CQDMEM2 181 21 181 182 195 194 .00 CQDMEM2 183 21 183 184 197 196 .00 CQDMEM2 184 21 184 185 198 197 .00 CQDMEM2 185 21 185 186 199 198 .00 CQDMEM2 186 21 186 187 200 199 .00 CQDMEM2 187 21 187 188 201 200 .00 CQDMEM2 188 21 188 189 202 201 .00 CQDMEM2 189 21 189 190 203 202 .00 CQDMEM2 190 21 190 191 204 203 .00 CQDMEM2 191 21 191 192 205 204 .00 CQDMEM2 192 21 192 193 206 205 .00 CQDMEM2 193 21 193 194 207 206 .00 CQDMEM2 194 21 194 195 208 207 .00 CQDMEM2 196 21 196 197 210 209 .00 CQDMEM2 197 21 197 198 211 210 .00 CQDMEM2 198 21 198 199 212 211 .00 CQDMEM2 199 21 199 200 213 212 .00 CQDMEM2 200 21 200 201 214 213 .00 CQDMEM2 201 21 201 202 215 214 .00 CQDMEM2 202 21 202 203 216 215 .00 CQDMEM2 203 21 203 204 217 216 .00 CQDMEM2 204 21 204 205 218 217 .00 CQDMEM2 205 21 205 206 219 218 .00 CQDMEM2 206 21 206 207 220 219 .00 CQDMEM2 207 21 207 208 221 220 .00 CQDMEM2 209 21 209 210 223 222 .00 CQDMEM2 210 21 210 211 224 223 .00 CQDMEM2 211 21 211 212 225 224 .00 CQDMEM2 212 21 212 213 226 225 .00 CQDMEM2 213 21 213 214 227 226 .00 CQDMEM2 214 21 214 215 228 227 .00 CQDMEM2 215 21 215 216 229 228 .00 CQDMEM2 216 21 216 217 230 229 .00 CQDMEM2 217 21 217 218 231 230 .00 CQDMEM2 218 21 218 219 232 231 .00 CQDMEM2 219 21 219 220 233 232 .00 CQDMEM2 220 21 220 221 234 233 .00 CQDMEM2 222 21 222 223 236 235 .00 CQDMEM2 223 21 223 224 237 236 .00 CQDMEM2 224 21 224 225 238 237 .00 CQDMEM2 225 21 225 226 239 238 .00 CQDMEM2 226 21 226 227 240 239 .00 CQDMEM2 227 21 227 228 241 240 .00 CQDMEM2 228 21 228 229 242 241 .00 CQDMEM2 229 21 229 230 243 242 .00 CQDMEM2 230 21 230 231 244 243 .00 CQDMEM2 231 21 231 232 245 244 .00 CQDMEM2 232 21 232 233 246 245 .00 CQDMEM2 233 21 233 234 247 246 .00 GRDSET 3456 GRID 1 .0 .0 .0 GRID 2 1.0 .0 .0 GRID 3 2.0 .0 .0 GRID 4 3.0 .0 .0 GRID 5 4.0 .0 .0 GRID 6 5.0 .0 .0 GRID 7 6.0 .0 .0 GRID 8 7.0 .0 .0 GRID 9 8.0 .0 .0 GRID 10 9.0 .0 .0 GRID 11 10.0 .0 .0 GRID 12 11.0 .0 .0 GRID 13 12.0 .0 .0 GRID 14 .0 1.0 .0 GRID 15 1.0 1.0 .0 GRID 16 2.0 1.0 .0 GRID 17 3.0 1.0 .0 GRID 18 4.0 1.0 .0 GRID 19 5.0 1.0 .0 GRID 20 6.0 1.0 .0 GRID 21 7.0 1.0 .0 GRID 22 8.0 1.0 .0 GRID 23 9.0 1.0 .0 GRID 24 10.0 1.0 .0 GRID 25 11.0 1.0 .0 GRID 26 12.0 1.0 .0 GRID 27 .0 2.0 .0 GRID 28 1.0 2.0 .0 GRID 29 2.0 2.0 .0 GRID 30 3.0 2.0 .0 GRID 31 4.0 2.0 .0 GRID 32 5.0 2.0 .0 GRID 33 6.0 2.0 .0 GRID 34 7.0 2.0 .0 GRID 35 8.0 2.0 .0 GRID 36 9.0 2.0 .0 GRID 37 10.0 2.0 .0 GRID 38 11.0 2.0 .0 GRID 39 12.0 2.0 .0 GRID 40 .0 3.0 .0 GRID 41 1.0 3.0 .0 GRID 42 2.0 3.0 .0 GRID 43 3.0 3.0 .0 GRID 44 4.0 3.0 .0 GRID 45 5.0 3.0 .0 GRID 46 6.0 3.0 .0 GRID 47 7.0 3.0 .0 GRID 48 8.0 3.0 .0 GRID 49 9.0 3.0 .0 GRID 50 10.0 3.0 .0 GRID 51 11.0 3.0 .0 GRID 52 12.0 3.0 .0 GRID 53 .0 4.0 .0 GRID 54 1.0 4.0 .0 GRID 55 2.0 4.0 .0 GRID 56 3.0 4.0 .0 GRID 57 4.0 4.0 .0 GRID 58 5.0 4.0 .0 GRID 59 6.0 4.0 .0 GRID 60 7.0 4.0 .0 GRID 61 8.0 4.0 .0 GRID 62 9.0 4.0 .0 GRID 63 10.0 4.0 .0 GRID 64 11.0 4.0 .0 GRID 65 12.0 4.0 .0 GRID 66 .0 5.0 .0 GRID 67 1.0 5.0 .0 GRID 68 2.0 5.0 .0 GRID 69 3.0 5.0 .0 GRID 70 4.0 5.0 .0 GRID 71 5.0 5.0 .0 GRID 72 6.0 5.0 .0 GRID 73 7.0 5.0 .0 GRID 74 8.0 5.0 .0 GRID 75 9.0 5.0 .0 GRID 76 10.0 5.0 .0 GRID 77 11.0 5.0 .0 GRID 78 12.0 5.0 .0 GRID 79 .0 6.0 .0 GRID 80 1.0 6.0 .0 GRID 81 2.0 6.0 .0 GRID 82 3.0 6.0 .0 GRID 83 4.0 6.0 .0 GRID 84 5.0 6.0 .0 GRID 85 6.0 6.0 .0 GRID 86 7.0 6.0 .0 GRID 87 8.0 6.0 .0 GRID 88 9.0 6.0 .0 GRID 89 10.0 6.0 .0 GRID 90 11.0 6.0 .0 GRID 91 12.0 6.0 .0 GRID 92 .0 7.0 .0 GRID 93 1.0 7.0 .0 GRID 94 2.0 7.0 .0 GRID 95 3.0 7.0 .0 GRID 96 4.0 7.0 .0 GRID 97 5.0 7.0 .0 GRID 98 6.0 7.0 .0 GRID 99 7.0 7.0 .0 GRID 100 8.0 7.0 .0 GRID 101 9.0 7.0 .0 GRID 102 10.0 7.0 .0 GRID 103 11.0 7.0 .0 GRID 104 12.0 7.0 .0 GRID 105 .0 8.0 .0 GRID 106 1.0 8.0 .0 GRID 107 2.0 8.0 .0 GRID 108 3.0 8.0 .0 GRID 109 4.0 8.0 .0 GRID 110 5.0 8.0 .0 GRID 111 6.0 8.0 .0 GRID 112 7.0 8.0 .0 GRID 113 8.0 8.0 .0 GRID 114 9.0 8.0 .0 GRID 115 10.0 8.0 .0 GRID 116 11.0 8.0 .0 GRID 117 12.0 8.0 .0 GRID 118 .0 9.0 .0 GRID 119 1.0 9.0 .0 GRID 120 2.0 9.0 .0 GRID 121 3.0 9.0 .0 GRID 122 4.0 9.0 .0 GRID 123 5.0 9.0 .0 GRID 124 6.0 9.0 .0 GRID 125 7.0 9.0 .0 GRID 126 8.0 9.0 .0 GRID 127 9.0 9.0 .0 GRID 128 10.0 9.0 .0 GRID 129 11.0 9.0 .0 GRID 130 12.0 9.0 .0 GRID 131 .0 10.0 .0 GRID 132 1.0 10.0 .0 GRID 133 2.0 10.0 .0 GRID 134 3.0 10.0 .0 GRID 135 4.0 10.0 .0 GRID 136 5.0 10.0 .0 GRID 137 6.0 10.0 .0 GRID 138 7.0 10.0 .0 GRID 139 8.0 10.0 .0 GRID 140 9.0 10.0 .0 GRID 141 10.0 10.0 .0 GRID 142 11.0 10.0 .0 GRID 143 12.0 10.0 .0 GRID 144 .0 11.0 .0 GRID 145 1.0 11.0 .0 GRID 146 2.0 11.0 .0 GRID 147 3.0 11.0 .0 GRID 148 4.0 11.0 .0 GRID 149 5.0 11.0 .0 GRID 150 6.0 11.0 .0 GRID 151 7.0 11.0 .0 GRID 152 8.0 11.0 .0 GRID 153 9.0 11.0 .0 GRID 154 10.0 11.0 .0 GRID 155 11.0 11.0 .0 GRID 156 12.0 11.0 .0 GRID 157 .0 12.0 .0 GRID 158 1.0 12.0 .0 GRID 159 2.0 12.0 .0 GRID 160 3.0 12.0 .0 GRID 161 4.0 12.0 .0 GRID 162 5.0 12.0 .0 GRID 163 6.0 12.0 .0 GRID 164 7.0 12.0 .0 GRID 165 8.0 12.0 .0 GRID 166 9.0 12.0 .0 GRID 167 10.0 12.0 .0 GRID 168 11.0 12.0 .0 GRID 169 12.0 12.0 .0 GRID 170 .0 13.0 .0 GRID 171 1.0 13.0 .0 GRID 172 2.0 13.0 .0 GRID 173 3.0 13.0 .0 GRID 174 4.0 13.0 .0 GRID 175 5.0 13.0 .0 GRID 176 6.0 13.0 .0 GRID 177 7.0 13.0 .0 GRID 178 8.0 13.0 .0 GRID 179 9.0 13.0 .0 GRID 180 10.0 13.0 .0 GRID 181 11.0 13.0 .0 GRID 182 12.0 13.0 .0 GRID 183 .0 14.0 .0 GRID 184 1.0 14.0 .0 GRID 185 2.0 14.0 .0 GRID 186 3.0 14.0 .0 GRID 187 4.0 14.0 .0 GRID 188 5.0 14.0 .0 GRID 189 6.0 14.0 .0 GRID 190 7.0 14.0 .0 GRID 191 8.0 14.0 .0 GRID 192 9.0 14.0 .0 GRID 193 10.0 14.0 .0 GRID 194 11.0 14.0 .0 GRID 195 12.0 14.0 .0 GRID 196 .0 15.0 .0 GRID 197 1.0 15.0 .0 GRID 198 2.0 15.0 .0 GRID 199 3.0 15.0 .0 GRID 200 4.0 15.0 .0 GRID 201 5.0 15.0 .0 GRID 202 6.0 15.0 .0 GRID 203 7.0 15.0 .0 GRID 204 8.0 15.0 .0 GRID 205 9.0 15.0 .0 GRID 206 10.0 15.0 .0 GRID 207 11.0 15.0 .0 GRID 208 12.0 15.0 .0 GRID 209 .0 16.0 .0 GRID 210 1.0 16.0 .0 GRID 211 2.0 16.0 .0 GRID 212 3.0 16.0 .0 GRID 213 4.0 16.0 .0 GRID 214 5.0 16.0 .0 GRID 215 6.0 16.0 .0 GRID 216 7.0 16.0 .0 GRID 217 8.0 16.0 .0 GRID 218 9.0 16.0 .0 GRID 219 10.0 16.0 .0 GRID 220 11.0 16.0 .0 GRID 221 12.0 16.0 .0 GRID 222 .0 17.0 .0 GRID 223 1.0 17.0 .0 GRID 224 2.0 17.0 .0 GRID 225 3.0 17.0 .0 GRID 226 4.0 17.0 .0 GRID 227 5.0 17.0 .0 GRID 228 6.0 17.0 .0 GRID 229 7.0 17.0 .0 GRID 230 8.0 17.0 .0 GRID 231 9.0 17.0 .0 GRID 232 10.0 17.0 .0 GRID 233 11.0 17.0 .0 GRID 234 12.0 17.0 .0 GRID 235 .0 18.0 .0 GRID 236 1.0 18.0 .0 GRID 237 2.0 18.0 .0 GRID 238 3.0 18.0 .0 GRID 239 4.0 18.0 .0 GRID 240 5.0 18.0 .0 GRID 241 6.0 18.0 .0 GRID 242 7.0 18.0 .0 GRID 243 8.0 18.0 .0 GRID 244 9.0 18.0 .0 GRID 245 10.0 18.0 .0 GRID 246 11.0 18.0 .0 GRID 247 12.0 18.0 .0 MAT1 75 10.400+6 .3 12.700-675. MATT1 75 100 PARAM IRES 1 PQDMEM2 21 75 .25 SPC1 1 1 1 14 27 40 53 66 CSPC-A +SPC-A 79 92 105 118 131 144 157 170 CSPC-B +SPC-B 183 196 209 222 235 SPC1 1 2 1 2 3 4 5 6 CSPC-C +SPC-C 7 8 9 10 11 12 13 TABLEM1 100 +TM1 +TM1 80. 10.4+6 150. 10.15+6 200. 9.84+6 250. 9.51+6 +TM2 +TM2 300. 9.15+6 ENDT TEMP 1 1 245.000 2 232.500 3 220.000 TEMP 1 4 207.500 5 195.000 6 182.500 TEMP 1 7 170.000 8 157.500 9 145.000 TEMP 1 10 132.500 11 120.000 12 107.500 TEMP 1 13 95.000 14 245.000 15 232.500 TEMP 1 16 220.000 17 207.500 18 195.000 TEMP 1 19 182.500 20 170.000 21 157.500 TEMP 1 22 145.000 23 132.500 24 120.000 TEMP 1 25 107.500 26 95.000 27 245.000 TEMP 1 28 232.500 29 220.000 30 207.500 TEMP 1 31 195.000 32 182.500 33 170.000 TEMP 1 34 157.500 35 145.000 36 132.500 TEMP 1 37 120.000 38 107.500 39 95.000 TEMP 1 40 245.000 41 232.500 42 220.000 TEMP 1 43 207.500 44 195.000 45 182.500 TEMP 1 46 170.000 47 157.500 48 145.000 TEMP 1 49 132.500 50 120.000 51 107.500 TEMP 1 52 95.000 53 245.000 54 232.500 TEMP 1 55 220.000 56 207.500 57 195.000 TEMP 1 58 182.500 59 170.000 60 157.500 TEMP 1 61 145.000 62 132.500 63 120.000 TEMP 1 64 107.500 65 95.000 66 245.000 TEMP 1 67 232.500 68 220.000 69 207.500 TEMP 1 70 195.000 71 182.500 72 170.000 TEMP 1 73 157.500 74 145.000 75 132.500 TEMP 1 76 120.000 77 107.500 78 95.000 TEMP 1 79 245.000 80 232.500 81 220.000 TEMP 1 82 207.500 83 195.000 84 182.500 TEMP 1 85 170.000 86 157.500 87 145.000 TEMP 1 88 132.500 89 120.000 90 107.500 TEMP 1 91 95.000 92 245.000 93 232.500 TEMP 1 94 220.000 95 207.500 96 195.000 TEMP 1 97 182.500 98 170.000 99 157.500 TEMP 1 100 145.000 101 132.500 102 120.000 TEMP 1 103 107.500 104 95.000 105 245.000 TEMP 1 106 232.500 107 220.000 108 207.500 TEMP 1 109 195.000 110 182.500 111 170.000 TEMP 1 112 157.500 113 145.000 114 132.500 TEMP 1 115 120.000 116 107.500 117 95.000 TEMP 1 118 245.000 119 232.500 120 220.000 TEMP 1 121 207.500 122 195.000 123 182.500 TEMP 1 124 170.000 125 157.500 126 145.000 TEMP 1 127 132.500 128 120.000 129 107.500 TEMP 1 130 95.000 131 245.000 132 232.500 TEMP 1 133 220.000 134 207.500 135 195.000 TEMP 1 136 182.500 137 170.000 138 157.500 TEMP 1 139 145.000 140 132.500 141 120.000 TEMP 1 142 107.500 143 95.000 144 245.000 TEMP 1 145 232.500 146 220.000 147 207.500 TEMP 1 148 195.000 149 182.500 150 170.000 TEMP 1 151 157.500 152 145.000 153 132.500 TEMP 1 154 120.000 155 107.500 156 95.000 TEMP 1 157 245.000 158 232.500 159 220.000 TEMP 1 160 207.500 161 195.000 162 182.500 TEMP 1 163 170.000 164 157.500 165 145.000 TEMP 1 166 132.500 167 120.000 168 107.500 TEMP 1 169 95.000 170 245.000 171 232.500 TEMP 1 172 220.000 173 207.500 174 195.000 TEMP 1 175 182.500 176 170.000 177 157.500 TEMP 1 178 145.000 179 132.500 180 120.000 TEMP 1 181 107.500 182 95.000 183 245.000 TEMP 1 184 232.500 185 220.000 186 207.500 TEMP 1 187 195.000 188 182.500 189 170.000 TEMP 1 190 157.500 191 145.000 192 132.500 TEMP 1 193 120.000 194 107.500 195 95.000 TEMP 1 196 245.000 197 232.500 198 220.000 TEMP 1 199 207.500 200 195.000 201 182.500 TEMP 1 202 170.000 203 157.500 204 145.000 TEMP 1 205 132.500 206 120.000 207 107.500 TEMP 1 208 95.000 209 245.000 210 232.500 TEMP 1 211 220.000 212 207.500 213 195.000 TEMP 1 214 182.500 215 170.000 216 157.500 TEMP 1 217 145.000 218 132.500 219 120.000 TEMP 1 220 107.500 221 95.000 222 245.000 TEMP 1 223 232.500 224 220.000 225 207.500 TEMP 1 226 195.000 227 182.500 228 170.000 TEMP 1 229 157.500 230 145.000 231 132.500 TEMP 1 232 120.000 233 107.500 234 95.000 TEMP 1 235 245.000 236 232.500 237 220.000 TEMP 1 238 207.500 239 195.000 240 182.500 TEMP 1 241 170.000 242 157.500 243 145.000 TEMP 1 244 132.500 245 120.000 246 107.500 TEMP 1 247 95.000 ENDDATA ================================================ FILE: inp/d01033a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Free Rectangular (QDMEM) Plate with Thermal Loading (1-3-1) $ Free Rectangular (QDMEM1) Plate with Thermal Loading (1-3-2) $ Free Rectangular (QDMEM2) Plate with Thermal Loading (1-3-3) $ $ A. Description $ $ Problem 1-3-1 demonstrates the use of thermal loading conditions and $ temperature-dependent materials. The model, a rectangular plate, is given a $ temperature gradient which causes internal loads and elastic deflections. $ Since there are two planes of symmetry, only one-quarter of the structure $ needs to be modeled. The analysis has been performed using three different $ NASTRAN membrane plate elements. The two variations of this problem are $ obtained by replacing the quadrilateral membrane elements, QDMEM, with QDMEM1 $ and QDMEM2 membrane elements to illustrate their application to this type of $ problem (Problems 1-3-2 and 1-3-3, respectively). $ $ B. Input $ $ The temperature load is constant in the y direction and symmetric about the y- $ axis. Since membrane elements are used to model the structure, it is necessary $ to remove all rotational degrees of freedom and translational degrees of $ freedom normal to the membrane. The symmetric boundary conditions were modeled $ by constraining the displacements normal to the planes of symmetry. The $ material used has temperature-dependent elasticity (as defined in Reference $ 5); therefore, the INPUT module cannot be used for this application. The $ CNGRNT bulk data card can be used if the congruency is defined in one $ direction. $ $ 1. Parameters $ $ L = 36.0 in (length) $ $ W = 24.0 in (width) $ $ t = 0.25 in (thickness) $ $ 6 2 $ E = 10.4 x 10 lb/in (modulus of elasticity at T ) $ o $ v = 0.3 (Poisson's ratio) $ -6 $ alpha = 12.7 x l0 in/in/deg. F (thermal expansion coefficient) $ $ T = 75.0 deg. F (thermal expansion reference temperature) $ o $ $ 2. Constraints $ $ u = 0.0 at x = 0.0 $ x $ $ u = 0.0 at y = 0.0 $ y $ $ u = theta sub x = theta sub y = theta sub z = 0.0 at all Grids $ z $ $ 3. Loads $ $ The thermal loading is specified with TEMP Bulk Data cards. Young's modulus is $ specified as a function of temperature with MATT1 and TABLEM1 cards. $ $ C. Results $ $ There is no theoretical solution to this problem. However, this problem $ represents a model of a laboratory experiment described in Reference 5. $ $ APPLICABLE REFERENCES $ $ 5. Richard R. Heldenfels and William M. Roberts, "Experimental and Theoretical $ Determination of Thermal Stresses in a Flat Plate", NACA TN 2769, 1952. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01034a.inp ================================================ ID D01034A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 20 CEND TITLE = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS) SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A LABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL SPC = 1 TEMPERATURE = 1 OUTPUT SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247 SET 2 = 1 THRU 26 DISPLACEMENTS = 1 OLOAD = 2 SCAN (STRESS,CQDMEM2, SHEAR-XY) = 8, SET 1 SCAN (STRESS, 6, CQDMEM2) = +1500., -1500., SET 2 $ STRESSES FOR POINTS ON PUBLISHED CURVES SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98, 106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176, 184,189, 197,202, 210,215, 223,228 STRESSES = 3 SCAN(STRESS, QDMEM2, MAX-SHR) = 10, SET 3 BEGIN BULK CNGRNT 1 14 27 40 53 66 79 92 +CNG11 +CNG11 105 118 131 144 157 170 183 196 +CNG12 +CNG12 209 222 CNGRNT 2 15 28 41 54 67 80 93 +CNG21 +CNG21 106 119 132 145 158 171 184 197 +CNG22 +CNG22 210 223 CNGRNT 3 16 29 42 55 68 81 94 +CNG31 +CNG31 107 120 133 146 159 172 185 198 +CNG32 +CNG32 211 224 CNGRNT 4 17 30 43 56 69 82 95 +CNG41 +CNG41 108 121 134 147 160 173 186 199 +CNG42 +CNG42 212 225 CNGRNT 5 18 31 44 57 70 83 96 +CNG51 +CNG51 109 122 135 148 161 174 187 200 +CNG52 +CNG52 213 226 CNGRNT 6 19 32 45 58 71 84 97 +CNG61 +CNG61 110 123 136 149 162 175 188 201 +CNG62 +CNG62 214 227 CNGRNT 7 20 33 46 59 72 85 98 +CNG71 +CNG71 111 124 137 150 163 176 189 202 +CNG72 +CNG72 215 228 CNGRNT 8 21 34 47 60 73 86 99 +CNG81 +CNG81 112 125 138 151 164 177 190 203 +CNG82 +CNG82 216 229 CNGRNT 9 22 35 48 61 74 87 100 +CNG91 +CNG91 113 126 139 152 165 178 191 204 +CNG92 +CNG92 217 230 CNGRNT 10 23 36 49 62 75 88 101 +CNG101 +CNG101 114 127 140 153 166 179 192 205 +CNG102 +CNG102 218 231 CNGRNT 11 24 37 50 63 76 89 102 +CNG111 +CNG111 115 128 141 154 167 180 193 206 +CNG112 +CNG112 219 232 CNGRNT 12 25 38 51 64 77 90 103 +CNG121 +CNG121 116 129 142 155 168 181 194 207 +CNG122 +CNG122 220 233 CQDMEM2 1 21 1 2 15 14 .00 CQDMEM2 2 21 2 3 16 15 .00 CQDMEM2 3 21 3 4 17 16 .00 CQDMEM2 4 21 4 5 18 17 .00 CQDMEM2 5 21 5 6 19 18 .00 CQDMEM2 6 21 6 7 20 19 .00 CQDMEM2 7 21 7 8 21 20 .00 CQDMEM2 8 21 8 9 22 21 .00 CQDMEM2 9 21 9 10 23 22 .00 CQDMEM2 10 21 10 11 24 23 .00 CQDMEM2 11 21 11 12 25 24 .00 CQDMEM2 12 21 12 13 26 25 .00 CQDMEM2 14 21 14 15 28 27 .00 CQDMEM2 15 21 15 16 29 28 .00 CQDMEM2 16 21 16 17 30 29 .00 CQDMEM2 17 21 17 18 31 30 .00 CQDMEM2 18 21 18 19 32 31 .00 CQDMEM2 19 21 19 20 33 32 .00 CQDMEM2 20 21 20 21 34 33 .00 CQDMEM2 21 21 21 22 35 34 .00 CQDMEM2 22 21 22 23 36 35 .00 CQDMEM2 23 21 23 24 37 36 .00 CQDMEM2 24 21 24 25 38 37 .00 CQDMEM2 25 21 25 26 39 38 .00 CQDMEM2 27 21 27 28 41 40 .00 CQDMEM2 28 21 28 29 42 41 .00 CQDMEM2 29 21 29 30 43 42 .00 CQDMEM2 30 21 30 31 44 43 .00 CQDMEM2 31 21 31 32 45 44 .00 CQDMEM2 32 21 32 33 46 45 .00 CQDMEM2 33 21 33 34 47 46 .00 CQDMEM2 34 21 34 35 48 47 .00 CQDMEM2 35 21 35 36 49 48 .00 CQDMEM2 36 21 36 37 50 49 .00 CQDMEM2 37 21 37 38 51 50 .00 CQDMEM2 38 21 38 39 52 51 .00 CQDMEM2 40 21 40 41 54 53 .00 CQDMEM2 41 21 41 42 55 54 .00 CQDMEM2 42 21 42 43 56 55 .00 CQDMEM2 43 21 43 44 57 56 .00 CQDMEM2 44 21 44 45 58 57 .00 CQDMEM2 45 21 45 46 59 58 .00 CQDMEM2 46 21 46 47 60 59 .00 CQDMEM2 47 21 47 48 61 60 .00 CQDMEM2 48 21 48 49 62 61 .00 CQDMEM2 49 21 49 50 63 62 .00 CQDMEM2 50 21 50 51 64 63 .00 CQDMEM2 51 21 51 52 65 64 .00 CQDMEM2 53 21 53 54 67 66 .00 CQDMEM2 54 21 54 55 68 67 .00 CQDMEM2 55 21 55 56 69 68 .00 CQDMEM2 56 21 56 57 70 69 .00 CQDMEM2 57 21 57 58 71 70 .00 CQDMEM2 58 21 58 59 72 71 .00 CQDMEM2 59 21 59 60 73 72 .00 CQDMEM2 60 21 60 61 74 73 .00 CQDMEM2 61 21 61 62 75 74 .00 CQDMEM2 62 21 62 63 76 75 .00 CQDMEM2 63 21 63 64 77 76 .00 CQDMEM2 64 21 64 65 78 77 .00 CQDMEM2 66 21 66 67 80 79 .00 CQDMEM2 67 21 67 68 81 80 .00 CQDMEM2 68 21 68 69 82 81 .00 CQDMEM2 69 21 69 70 83 82 .00 CQDMEM2 70 21 70 71 84 83 .00 CQDMEM2 71 21 71 72 85 84 .00 CQDMEM2 72 21 72 73 86 85 .00 CQDMEM2 73 21 73 74 87 86 .00 CQDMEM2 74 21 74 75 88 87 .00 CQDMEM2 75 21 75 76 89 88 .00 CQDMEM2 76 21 76 77 90 89 .00 CQDMEM2 77 21 77 78 91 90 .00 CQDMEM2 79 21 79 80 93 92 .00 CQDMEM2 80 21 80 81 94 93 .00 CQDMEM2 81 21 81 82 95 94 .00 CQDMEM2 82 21 82 83 96 95 .00 CQDMEM2 83 21 83 84 97 96 .00 CQDMEM2 84 21 84 85 98 97 .00 CQDMEM2 85 21 85 86 99 98 .00 CQDMEM2 86 21 86 87 100 99 .00 CQDMEM2 87 21 87 88 101 100 .00 CQDMEM2 88 21 88 89 102 101 .00 CQDMEM2 89 21 89 90 103 102 .00 CQDMEM2 90 21 90 91 104 103 .00 CQDMEM2 92 21 92 93 106 105 .00 CQDMEM2 93 21 93 94 107 106 .00 CQDMEM2 94 21 94 95 108 107 .00 CQDMEM2 95 21 95 96 109 108 .00 CQDMEM2 96 21 96 97 110 109 .00 CQDMEM2 97 21 97 98 111 110 .00 CQDMEM2 98 21 98 99 112 111 .00 CQDMEM2 99 21 99 100 113 112 .00 CQDMEM2 100 21 100 101 114 113 .00 CQDMEM2 101 21 101 102 115 114 .00 CQDMEM2 102 21 102 103 116 115 .00 CQDMEM2 103 21 103 104 117 116 .00 CQDMEM2 105 21 105 106 119 118 .00 CQDMEM2 106 21 106 107 120 119 .00 CQDMEM2 107 21 107 108 121 120 .00 CQDMEM2 108 21 108 109 122 121 .00 CQDMEM2 109 21 109 110 123 122 .00 CQDMEM2 110 21 110 111 124 123 .00 CQDMEM2 111 21 111 112 125 124 .00 CQDMEM2 112 21 112 113 126 125 .00 CQDMEM2 113 21 113 114 127 126 .00 CQDMEM2 114 21 114 115 128 127 .00 CQDMEM2 115 21 115 116 129 128 .00 CQDMEM2 116 21 116 117 130 129 .00 CQDMEM2 118 21 118 119 132 131 .00 CQDMEM2 119 21 119 120 133 132 .00 CQDMEM2 120 21 120 121 134 133 .00 CQDMEM2 121 21 121 122 135 134 .00 CQDMEM2 122 21 122 123 136 135 .00 CQDMEM2 123 21 123 124 137 136 .00 CQDMEM2 124 21 124 125 138 137 .00 CQDMEM2 125 21 125 126 139 138 .00 CQDMEM2 126 21 126 127 140 139 .00 CQDMEM2 127 21 127 128 141 140 .00 CQDMEM2 128 21 128 129 142 141 .00 CQDMEM2 129 21 129 130 143 142 .00 CQDMEM2 131 21 131 132 145 144 .00 CQDMEM2 132 21 132 133 146 145 .00 CQDMEM2 133 21 133 134 147 146 .00 CQDMEM2 134 21 134 135 148 147 .00 CQDMEM2 135 21 135 136 149 148 .00 CQDMEM2 136 21 136 137 150 149 .00 CQDMEM2 137 21 137 138 151 150 .00 CQDMEM2 138 21 138 139 152 151 .00 CQDMEM2 139 21 139 140 153 152 .00 CQDMEM2 140 21 140 141 154 153 .00 CQDMEM2 141 21 141 142 155 154 .00 CQDMEM2 142 21 142 143 156 155 .00 CQDMEM2 144 21 144 145 158 157 .00 CQDMEM2 145 21 145 146 159 158 .00 CQDMEM2 146 21 146 147 160 159 .00 CQDMEM2 147 21 147 148 161 160 .00 CQDMEM2 148 21 148 149 162 161 .00 CQDMEM2 149 21 149 150 163 162 .00 CQDMEM2 150 21 150 151 164 163 .00 CQDMEM2 151 21 151 152 165 164 .00 CQDMEM2 152 21 152 153 166 165 .00 CQDMEM2 153 21 153 154 167 166 .00 CQDMEM2 154 21 154 155 168 167 .00 CQDMEM2 155 21 155 156 169 168 .00 CQDMEM2 157 21 157 158 171 170 .00 CQDMEM2 158 21 158 159 172 171 .00 CQDMEM2 159 21 159 160 173 172 .00 CQDMEM2 160 21 160 161 174 173 .00 CQDMEM2 161 21 161 162 175 174 .00 CQDMEM2 162 21 162 163 176 175 .00 CQDMEM2 163 21 163 164 177 176 .00 CQDMEM2 164 21 164 165 178 177 .00 CQDMEM2 165 21 165 166 179 178 .00 CQDMEM2 166 21 166 167 180 179 .00 CQDMEM2 167 21 167 168 181 180 .00 CQDMEM2 168 21 168 169 182 181 .00 CQDMEM2 170 21 170 171 184 183 .00 CQDMEM2 171 21 171 172 185 184 .00 CQDMEM2 172 21 172 173 186 185 .00 CQDMEM2 173 21 173 174 187 186 .00 CQDMEM2 174 21 174 175 188 187 .00 CQDMEM2 175 21 175 176 189 188 .00 CQDMEM2 176 21 176 177 190 189 .00 CQDMEM2 177 21 177 178 191 190 .00 CQDMEM2 178 21 178 179 192 191 .00 CQDMEM2 179 21 179 180 193 192 .00 CQDMEM2 180 21 180 181 194 193 .00 CQDMEM2 181 21 181 182 195 194 .00 CQDMEM2 183 21 183 184 197 196 .00 CQDMEM2 184 21 184 185 198 197 .00 CQDMEM2 185 21 185 186 199 198 .00 CQDMEM2 186 21 186 187 200 199 .00 CQDMEM2 187 21 187 188 201 200 .00 CQDMEM2 188 21 188 189 202 201 .00 CQDMEM2 189 21 189 190 203 202 .00 CQDMEM2 190 21 190 191 204 203 .00 CQDMEM2 191 21 191 192 205 204 .00 CQDMEM2 192 21 192 193 206 205 .00 CQDMEM2 193 21 193 194 207 206 .00 CQDMEM2 194 21 194 195 208 207 .00 CQDMEM2 196 21 196 197 210 209 .00 CQDMEM2 197 21 197 198 211 210 .00 CQDMEM2 198 21 198 199 212 211 .00 CQDMEM2 199 21 199 200 213 212 .00 CQDMEM2 200 21 200 201 214 213 .00 CQDMEM2 201 21 201 202 215 214 .00 CQDMEM2 202 21 202 203 216 215 .00 CQDMEM2 203 21 203 204 217 216 .00 CQDMEM2 204 21 204 205 218 217 .00 CQDMEM2 205 21 205 206 219 218 .00 CQDMEM2 206 21 206 207 220 219 .00 CQDMEM2 207 21 207 208 221 220 .00 CQDMEM2 209 21 209 210 223 222 .00 CQDMEM2 210 21 210 211 224 223 .00 CQDMEM2 211 21 211 212 225 224 .00 CQDMEM2 212 21 212 213 226 225 .00 CQDMEM2 213 21 213 214 227 226 .00 CQDMEM2 214 21 214 215 228 227 .00 CQDMEM2 215 21 215 216 229 228 .00 CQDMEM2 216 21 216 217 230 229 .00 CQDMEM2 217 21 217 218 231 230 .00 CQDMEM2 218 21 218 219 232 231 .00 CQDMEM2 219 21 219 220 233 232 .00 CQDMEM2 220 21 220 221 234 233 .00 CQDMEM2 222 21 222 223 236 235 .00 CQDMEM2 223 21 223 224 237 236 .00 CQDMEM2 224 21 224 225 238 237 .00 CQDMEM2 225 21 225 226 239 238 .00 CQDMEM2 226 21 226 227 240 239 .00 CQDMEM2 227 21 227 228 241 240 .00 CQDMEM2 228 21 228 229 242 241 .00 CQDMEM2 229 21 229 230 243 242 .00 CQDMEM2 230 21 230 231 244 243 .00 CQDMEM2 231 21 231 232 245 244 .00 CQDMEM2 232 21 232 233 246 245 .00 CQDMEM2 233 21 233 234 247 246 .00 GRDSET 3456 GRID 1 .0 .0 .0 GRID 2 1.0 .0 .0 GRID 3 2.0 .0 .0 GRID 4 3.0 .0 .0 GRID 5 4.0 .0 .0 GRID 6 5.0 .0 .0 GRID 7 6.0 .0 .0 GRID 8 7.0 .0 .0 GRID 9 8.0 .0 .0 GRID 10 9.0 .0 .0 GRID 11 10.0 .0 .0 GRID 12 11.0 .0 .0 GRID 13 12.0 .0 .0 GRID 14 .0 1.0 .0 GRID 15 1.0 1.0 .0 GRID 16 2.0 1.0 .0 GRID 17 3.0 1.0 .0 GRID 18 4.0 1.0 .0 GRID 19 5.0 1.0 .0 GRID 20 6.0 1.0 .0 GRID 21 7.0 1.0 .0 GRID 22 8.0 1.0 .0 GRID 23 9.0 1.0 .0 GRID 24 10.0 1.0 .0 GRID 25 11.0 1.0 .0 GRID 26 12.0 1.0 .0 GRID 27 .0 2.0 .0 GRID 28 1.0 2.0 .0 GRID 29 2.0 2.0 .0 GRID 30 3.0 2.0 .0 GRID 31 4.0 2.0 .0 GRID 32 5.0 2.0 .0 GRID 33 6.0 2.0 .0 GRID 34 7.0 2.0 .0 GRID 35 8.0 2.0 .0 GRID 36 9.0 2.0 .0 GRID 37 10.0 2.0 .0 GRID 38 11.0 2.0 .0 GRID 39 12.0 2.0 .0 GRID 40 .0 3.0 .0 GRID 41 1.0 3.0 .0 GRID 42 2.0 3.0 .0 GRID 43 3.0 3.0 .0 GRID 44 4.0 3.0 .0 GRID 45 5.0 3.0 .0 GRID 46 6.0 3.0 .0 GRID 47 7.0 3.0 .0 GRID 48 8.0 3.0 .0 GRID 49 9.0 3.0 .0 GRID 50 10.0 3.0 .0 GRID 51 11.0 3.0 .0 GRID 52 12.0 3.0 .0 GRID 53 .0 4.0 .0 GRID 54 1.0 4.0 .0 GRID 55 2.0 4.0 .0 GRID 56 3.0 4.0 .0 GRID 57 4.0 4.0 .0 GRID 58 5.0 4.0 .0 GRID 59 6.0 4.0 .0 GRID 60 7.0 4.0 .0 GRID 61 8.0 4.0 .0 GRID 62 9.0 4.0 .0 GRID 63 10.0 4.0 .0 GRID 64 11.0 4.0 .0 GRID 65 12.0 4.0 .0 GRID 66 .0 5.0 .0 GRID 67 1.0 5.0 .0 GRID 68 2.0 5.0 .0 GRID 69 3.0 5.0 .0 GRID 70 4.0 5.0 .0 GRID 71 5.0 5.0 .0 GRID 72 6.0 5.0 .0 GRID 73 7.0 5.0 .0 GRID 74 8.0 5.0 .0 GRID 75 9.0 5.0 .0 GRID 76 10.0 5.0 .0 GRID 77 11.0 5.0 .0 GRID 78 12.0 5.0 .0 GRID 79 .0 6.0 .0 GRID 80 1.0 6.0 .0 GRID 81 2.0 6.0 .0 GRID 82 3.0 6.0 .0 GRID 83 4.0 6.0 .0 GRID 84 5.0 6.0 .0 GRID 85 6.0 6.0 .0 GRID 86 7.0 6.0 .0 GRID 87 8.0 6.0 .0 GRID 88 9.0 6.0 .0 GRID 89 10.0 6.0 .0 GRID 90 11.0 6.0 .0 GRID 91 12.0 6.0 .0 GRID 92 .0 7.0 .0 GRID 93 1.0 7.0 .0 GRID 94 2.0 7.0 .0 GRID 95 3.0 7.0 .0 GRID 96 4.0 7.0 .0 GRID 97 5.0 7.0 .0 GRID 98 6.0 7.0 .0 GRID 99 7.0 7.0 .0 GRID 100 8.0 7.0 .0 GRID 101 9.0 7.0 .0 GRID 102 10.0 7.0 .0 GRID 103 11.0 7.0 .0 GRID 104 12.0 7.0 .0 GRID 105 .0 8.0 .0 GRID 106 1.0 8.0 .0 GRID 107 2.0 8.0 .0 GRID 108 3.0 8.0 .0 GRID 109 4.0 8.0 .0 GRID 110 5.0 8.0 .0 GRID 111 6.0 8.0 .0 GRID 112 7.0 8.0 .0 GRID 113 8.0 8.0 .0 GRID 114 9.0 8.0 .0 GRID 115 10.0 8.0 .0 GRID 116 11.0 8.0 .0 GRID 117 12.0 8.0 .0 GRID 118 .0 9.0 .0 GRID 119 1.0 9.0 .0 GRID 120 2.0 9.0 .0 GRID 121 3.0 9.0 .0 GRID 122 4.0 9.0 .0 GRID 123 5.0 9.0 .0 GRID 124 6.0 9.0 .0 GRID 125 7.0 9.0 .0 GRID 126 8.0 9.0 .0 GRID 127 9.0 9.0 .0 GRID 128 10.0 9.0 .0 GRID 129 11.0 9.0 .0 GRID 130 12.0 9.0 .0 GRID 131 .0 10.0 .0 GRID 132 1.0 10.0 .0 GRID 133 2.0 10.0 .0 GRID 134 3.0 10.0 .0 GRID 135 4.0 10.0 .0 GRID 136 5.0 10.0 .0 GRID 137 6.0 10.0 .0 GRID 138 7.0 10.0 .0 GRID 139 8.0 10.0 .0 GRID 140 9.0 10.0 .0 GRID 141 10.0 10.0 .0 GRID 142 11.0 10.0 .0 GRID 143 12.0 10.0 .0 GRID 144 .0 11.0 .0 GRID 145 1.0 11.0 .0 GRID 146 2.0 11.0 .0 GRID 147 3.0 11.0 .0 GRID 148 4.0 11.0 .0 GRID 149 5.0 11.0 .0 GRID 150 6.0 11.0 .0 GRID 151 7.0 11.0 .0 GRID 152 8.0 11.0 .0 GRID 153 9.0 11.0 .0 GRID 154 10.0 11.0 .0 GRID 155 11.0 11.0 .0 GRID 156 12.0 11.0 .0 GRID 157 .0 12.0 .0 GRID 158 1.0 12.0 .0 GRID 159 2.0 12.0 .0 GRID 160 3.0 12.0 .0 GRID 161 4.0 12.0 .0 GRID 162 5.0 12.0 .0 GRID 163 6.0 12.0 .0 GRID 164 7.0 12.0 .0 GRID 165 8.0 12.0 .0 GRID 166 9.0 12.0 .0 GRID 167 10.0 12.0 .0 GRID 168 11.0 12.0 .0 GRID 169 12.0 12.0 .0 GRID 170 .0 13.0 .0 GRID 171 1.0 13.0 .0 GRID 172 2.0 13.0 .0 GRID 173 3.0 13.0 .0 GRID 174 4.0 13.0 .0 GRID 175 5.0 13.0 .0 GRID 176 6.0 13.0 .0 GRID 177 7.0 13.0 .0 GRID 178 8.0 13.0 .0 GRID 179 9.0 13.0 .0 GRID 180 10.0 13.0 .0 GRID 181 11.0 13.0 .0 GRID 182 12.0 13.0 .0 GRID 183 .0 14.0 .0 GRID 184 1.0 14.0 .0 GRID 185 2.0 14.0 .0 GRID 186 3.0 14.0 .0 GRID 187 4.0 14.0 .0 GRID 188 5.0 14.0 .0 GRID 189 6.0 14.0 .0 GRID 190 7.0 14.0 .0 GRID 191 8.0 14.0 .0 GRID 192 9.0 14.0 .0 GRID 193 10.0 14.0 .0 GRID 194 11.0 14.0 .0 GRID 195 12.0 14.0 .0 GRID 196 .0 15.0 .0 GRID 197 1.0 15.0 .0 GRID 198 2.0 15.0 .0 GRID 199 3.0 15.0 .0 GRID 200 4.0 15.0 .0 GRID 201 5.0 15.0 .0 GRID 202 6.0 15.0 .0 GRID 203 7.0 15.0 .0 GRID 204 8.0 15.0 .0 GRID 205 9.0 15.0 .0 GRID 206 10.0 15.0 .0 GRID 207 11.0 15.0 .0 GRID 208 12.0 15.0 .0 GRID 209 .0 16.0 .0 GRID 210 1.0 16.0 .0 GRID 211 2.0 16.0 .0 GRID 212 3.0 16.0 .0 GRID 213 4.0 16.0 .0 GRID 214 5.0 16.0 .0 GRID 215 6.0 16.0 .0 GRID 216 7.0 16.0 .0 GRID 217 8.0 16.0 .0 GRID 218 9.0 16.0 .0 GRID 219 10.0 16.0 .0 GRID 220 11.0 16.0 .0 GRID 221 12.0 16.0 .0 GRID 222 .0 17.0 .0 GRID 223 1.0 17.0 .0 GRID 224 2.0 17.0 .0 GRID 225 3.0 17.0 .0 GRID 226 4.0 17.0 .0 GRID 227 5.0 17.0 .0 GRID 228 6.0 17.0 .0 GRID 229 7.0 17.0 .0 GRID 230 8.0 17.0 .0 GRID 231 9.0 17.0 .0 GRID 232 10.0 17.0 .0 GRID 233 11.0 17.0 .0 GRID 234 12.0 17.0 .0 GRID 235 .0 18.0 .0 GRID 236 1.0 18.0 .0 GRID 237 2.0 18.0 .0 GRID 238 3.0 18.0 .0 GRID 239 4.0 18.0 .0 GRID 240 5.0 18.0 .0 GRID 241 6.0 18.0 .0 GRID 242 7.0 18.0 .0 GRID 243 8.0 18.0 .0 GRID 244 9.0 18.0 .0 GRID 245 10.0 18.0 .0 GRID 246 11.0 18.0 .0 GRID 247 12.0 18.0 .0 MAT1 75 10.400+6 .3 12.700-675. MATT1 75 100 PARAM IRES 1 PQDMEM2 21 75 .25 SPC1 1 1 1 14 27 40 53 66 CSPC-A +SPC-A 79 92 105 118 131 144 157 170 CSPC-B +SPC-B 183 196 209 222 235 SPC1 1 2 1 2 3 4 5 6 CSPC-C +SPC-C 7 8 9 10 11 12 13 TABLEM1 100 +TM1 +TM1 80. 10.4+6 150. 10.15+6 200. 9.84+6 250. 9.51+6 +TM2 +TM2 300. 9.15+6 ENDT TEMP 1 1 245.000 2 232.500 3 220.000 TEMP 1 4 207.500 5 195.000 6 182.500 TEMP 1 7 170.000 8 157.500 9 145.000 TEMP 1 10 132.500 11 120.000 12 107.500 TEMP 1 13 95.000 14 245.000 15 232.500 TEMP 1 16 220.000 17 207.500 18 195.000 TEMP 1 19 182.500 20 170.000 21 157.500 TEMP 1 22 145.000 23 132.500 24 120.000 TEMP 1 25 107.500 26 95.000 27 245.000 TEMP 1 28 232.500 29 220.000 30 207.500 TEMP 1 31 195.000 32 182.500 33 170.000 TEMP 1 34 157.500 35 145.000 36 132.500 TEMP 1 37 120.000 38 107.500 39 95.000 TEMP 1 40 245.000 41 232.500 42 220.000 TEMP 1 43 207.500 44 195.000 45 182.500 TEMP 1 46 170.000 47 157.500 48 145.000 TEMP 1 49 132.500 50 120.000 51 107.500 TEMP 1 52 95.000 53 245.000 54 232.500 TEMP 1 55 220.000 56 207.500 57 195.000 TEMP 1 58 182.500 59 170.000 60 157.500 TEMP 1 61 145.000 62 132.500 63 120.000 TEMP 1 64 107.500 65 95.000 66 245.000 TEMP 1 67 232.500 68 220.000 69 207.500 TEMP 1 70 195.000 71 182.500 72 170.000 TEMP 1 73 157.500 74 145.000 75 132.500 TEMP 1 76 120.000 77 107.500 78 95.000 TEMP 1 79 245.000 80 232.500 81 220.000 TEMP 1 82 207.500 83 195.000 84 182.500 TEMP 1 85 170.000 86 157.500 87 145.000 TEMP 1 88 132.500 89 120.000 90 107.500 TEMP 1 91 95.000 92 245.000 93 232.500 TEMP 1 94 220.000 95 207.500 96 195.000 TEMP 1 97 182.500 98 170.000 99 157.500 TEMP 1 100 145.000 101 132.500 102 120.000 TEMP 1 103 107.500 104 95.000 105 245.000 TEMP 1 106 232.500 107 220.000 108 207.500 TEMP 1 109 195.000 110 182.500 111 170.000 TEMP 1 112 157.500 113 145.000 114 132.500 TEMP 1 115 120.000 116 107.500 117 95.000 TEMP 1 118 245.000 119 232.500 120 220.000 TEMP 1 121 207.500 122 195.000 123 182.500 TEMP 1 124 170.000 125 157.500 126 145.000 TEMP 1 127 132.500 128 120.000 129 107.500 TEMP 1 130 95.000 131 245.000 132 232.500 TEMP 1 133 220.000 134 207.500 135 195.000 TEMP 1 136 182.500 137 170.000 138 157.500 TEMP 1 139 145.000 140 132.500 141 120.000 TEMP 1 142 107.500 143 95.000 144 245.000 TEMP 1 145 232.500 146 220.000 147 207.500 TEMP 1 148 195.000 149 182.500 150 170.000 TEMP 1 151 157.500 152 145.000 153 132.500 TEMP 1 154 120.000 155 107.500 156 95.000 TEMP 1 157 245.000 158 232.500 159 220.000 TEMP 1 160 207.500 161 195.000 162 182.500 TEMP 1 163 170.000 164 157.500 165 145.000 TEMP 1 166 132.500 167 120.000 168 107.500 TEMP 1 169 95.000 170 245.000 171 232.500 TEMP 1 172 220.000 173 207.500 174 195.000 TEMP 1 175 182.500 176 170.000 177 157.500 TEMP 1 178 145.000 179 132.500 180 120.000 TEMP 1 181 107.500 182 95.000 183 245.000 TEMP 1 184 232.500 185 220.000 186 207.500 TEMP 1 187 195.000 188 182.500 189 170.000 TEMP 1 190 157.500 191 145.000 192 132.500 TEMP 1 193 120.000 194 107.500 195 95.000 TEMP 1 196 245.000 197 232.500 198 220.000 TEMP 1 199 207.500 200 195.000 201 182.500 TEMP 1 202 170.000 203 157.500 204 145.000 TEMP 1 205 132.500 206 120.000 207 107.500 TEMP 1 208 95.000 209 245.000 210 232.500 TEMP 1 211 220.000 212 207.500 213 195.000 TEMP 1 214 182.500 215 170.000 216 157.500 TEMP 1 217 145.000 218 132.500 219 120.000 TEMP 1 220 107.500 221 95.000 222 245.000 TEMP 1 223 232.500 224 220.000 225 207.500 TEMP 1 226 195.000 227 182.500 228 170.000 TEMP 1 229 157.500 230 145.000 231 132.500 TEMP 1 232 120.000 233 107.500 234 95.000 TEMP 1 235 245.000 236 232.500 237 220.000 TEMP 1 238 207.500 239 195.000 240 182.500 TEMP 1 241 170.000 242 157.500 243 145.000 TEMP 1 244 132.500 245 120.000 246 107.500 TEMP 1 247 95.000 ENDDATA ================================================ FILE: inp/d01041a.inp ================================================ ID D01041A,NASTRAN APP DISPLACEMENT TIME 30 SOL 1,1 DIAG 14 ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, GEOM1,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ EQUIV G1,GEOM1/TRUE /G2,GEOM2/TRUE /G4,GEOM4/TRUE $ ENDALTER $ CEND TITLE = 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A LABEL = SPILL CHECK SPC = 5100 LOAD = 17 OUTPUT SET 1 = 1 THRU 5,7,13,19,25,31,37,43 DISP = 1 STRESS = 1 OLOAD = ALL SPCFORCE = ALL BEGIN BULK FORCE 17 1 1.0 .9958928 FORCE 17 2 1.0 1.894301 FORCE 17 3 1.0 1.610752 FORCE 17 4 1.0 1.170742 FORCE 17 5 1.0-2 61.54956 FORCE 17 6 1.0-2 7.837847 MAT2 1234 4.0+6 2.0+6 6.0+6 3.0+6 1.0 +MATL +MATL .5 1.0 .05 10.0 .004 1.+12 2.+12 3.+12 PQUAD1 101 1234 .0833333 +PQD +PQD .5 -.5 SEQGP 1 1 2 102 3 203 4 304 SEQGP 5 405 6 506 7 2 8 103 SEQGP 9 204 10 305 11 406 12 507 SEQGP 13 3 14 104 15 205 16 306 SEQGP 17 407 18 508 19 4 20 105 SEQGP 21 206 22 307 23 408 24 509 SEQGP 25 5 26 106 27 207 28 308 SEQGP 29 409 30 510 31 6 32 107 SEQGP 33 208 34 309 35 410 36 511 SEQGP 37 7 38 108 39 209 40 310 SEQGP 41 411 42 512 43 8 44 109 SEQGP 45 210 46 311 47 412 48 513 SEQGP 49 9 50 110 51 211 52 312 SEQGP 53 413 54 514 55 10 56 111 SEQGP 57 212 58 313 59 414 60 515 SEQGP 61 11 62 112 63 213 64 314 SEQGP 65 415 66 516 67 12 68 113 SEQGP 69 214 70 315 71 416 72 517 SEQGP 73 13 74 114 75 215 76 316 SEQGP 77 417 78 518 79 14 80 115 SEQGP 81 216 82 317 83 418 84 519 SEQGP 85 15 86 116 87 217 88 318 SEQGP 89 419 90 520 91 16 92 117 SEQGP 93 218 94 319 95 420 96 521 SEQGP 97 17 98 118 99 219 100 320 SEQGP 101 421 102 522 103 18 104 119 SEQGP 105 220 106 321 107 422 108 523 SEQGP 109 19 110 120 111 221 112 322 SEQGP 113 423 114 524 115 20 116 121 SEQGP 117 222 118 323 119 424 120 525 SEQGP 121 21 122 122 123 223 124 324 SEQGP 125 425 126 526 127 22 128 123 SEQGP 129 224 130 325 131 426 132 527 SEQGP 133 23 134 124 135 225 136 326 SEQGP 137 427 138 528 139 24 140 125 SEQGP 141 226 142 327 143 428 144 529 SEQGP 145 25 146 126 147 227 148 328 SEQGP 149 429 150 530 151 26 152 127 SEQGP 153 228 154 329 155 430 156 531 SEQGP 157 27 158 128 159 229 160 330 SEQGP 161 431 162 532 163 28 164 129 SEQGP 165 230 166 331 167 432 168 533 SEQGP 169 29 170 130 171 231 172 332 SEQGP 173 433 174 534 175 30 176 131 SEQGP 177 232 178 333 179 434 180 535 SEQGP 181 31 182 132 183 233 184 334 SEQGP 185 435 186 536 187 32 188 133 SEQGP 189 234 190 335 191 436 192 537 SEQGP 193 33 194 134 195 235 196 336 SEQGP 197 437 198 538 199 34 200 135 SEQGP 201 236 202 337 203 438 204 539 SEQGP 205 35 206 136 207 237 208 338 SEQGP 209 439 210 540 211 36 212 137 SEQGP 213 238 214 339 215 440 216 541 SEQGP 217 37 218 138 219 239 220 340 SEQGP 221 441 222 542 223 38 224 139 SEQGP 225 240 226 341 227 442 228 543 SEQGP 229 39 230 140 231 241 232 342 SEQGP 233 443 234 544 235 40 236 141 SEQGP 237 242 238 343 239 444 240 545 SEQGP 241 41 242 142 243 243 244 344 SEQGP 245 445 246 546 247 42 248 143 SEQGP 249 244 250 345 251 446 252 547 SEQGP 253 43 254 144 255 245 256 346 SEQGP 257 447 258 548 259 44 260 145 SEQGP 261 246 262 347 263 448 264 549 SEQGP 265 45 266 146 267 247 268 348 SEQGP 269 449 270 550 271 46 272 147 SEQGP 273 248 274 349 275 450 276 551 SEQGP 277 47 278 148 279 249 280 350 SEQGP 281 451 282 552 283 48 284 149 SEQGP 285 250 286 351 287 452 288 553 SEQGP 289 49 290 150 291 251 292 352 SEQGP 293 453 294 554 295 50 296 151 SEQGP 297 252 298 353 299 454 300 555 SEQGP 301 51 302 152 303 253 304 354 SEQGP 305 455 306 556 307 52 308 153 SEQGP 309 254 310 355 311 456 312 557 SEQGP 313 53 314 154 315 255 316 356 SEQGP 317 457 318 558 319 54 320 155 SEQGP 321 256 322 357 323 458 324 559 SEQGP 325 55 326 156 327 257 328 358 SEQGP 329 459 330 560 331 56 332 157 SEQGP 333 258 334 359 335 460 336 561 SEQGP 337 57 338 158 339 259 340 360 SEQGP 341 461 342 562 343 58 344 159 SEQGP 345 260 346 361 347 462 348 563 SEQGP 349 59 350 160 351 261 352 362 SEQGP 353 463 354 564 355 60 356 161 SEQGP 357 262 358 363 359 464 360 565 SEQGP 361 61 362 162 363 263 364 364 SEQGP 365 465 366 566 367 62 368 163 SEQGP 369 264 370 365 371 466 372 567 SEQGP 373 63 374 164 375 265 376 366 SEQGP 377 467 378 568 379 64 380 165 SEQGP 381 266 382 367 383 468 384 569 SEQGP 385 65 386 166 387 267 388 368 SEQGP 389 469 390 570 391 66 392 167 SEQGP 393 268 394 369 395 470 396 571 SEQGP 397 67 398 168 399 269 400 370 SEQGP 401 471 402 572 403 68 404 169 SEQGP 405 270 406 371 407 472 408 573 SEQGP 409 69 410 170 411 271 412 372 SEQGP 413 473 414 574 415 70 416 171 SEQGP 417 272 418 373 419 474 420 575 SEQGP 421 71 422 172 423 273 424 374 SEQGP 425 475 426 576 427 72 428 173 SEQGP 429 274 430 375 431 476 432 577 SEQGP 433 73 434 174 435 275 436 376 SEQGP 437 477 438 578 439 74 440 175 SEQGP 441 276 442 377 443 478 444 579 SEQGP 445 75 446 176 447 277 448 378 SEQGP 449 479 450 580 451 76 452 177 SEQGP 453 278 454 379 455 480 456 581 SEQGP 457 77 458 178 459 279 460 380 SEQGP 461 481 462 582 463 78 464 179 SEQGP 465 280 466 381 467 482 468 583 SEQGP 469 79 470 180 471 281 472 382 SEQGP 473 483 474 584 475 80 476 181 SEQGP 477 282 478 383 479 484 480 585 SEQGP 481 81 482 182 483 283 484 384 SEQGP 485 485 486 586 487 82 488 183 SEQGP 489 284 490 385 491 486 492 587 SEQGP 493 83 494 184 495 285 496 386 SEQGP 497 487 498 588 499 84 500 185 SEQGP 501 286 502 387 503 488 504 589 SEQGP 505 85 506 186 507 287 508 388 SEQGP 509 489 510 590 511 86 512 187 SEQGP 513 288 514 389 515 490 516 591 SEQGP 517 87 518 188 519 289 520 390 SEQGP 521 491 522 592 523 88 524 189 SEQGP 525 290 526 391 527 492 528 593 SEQGP 529 89 530 190 531 291 532 392 SEQGP 533 493 534 594 535 90 536 191 SEQGP 537 292 538 393 539 494 540 595 SEQGP 541 91 542 192 543 293 544 394 SEQGP 545 495 546 596 547 92 548 193 SEQGP 549 294 550 395 551 496 552 597 SEQGP 553 93 554 194 555 295 556 396 SEQGP 557 497 558 598 559 94 560 195 SEQGP 561 296 562 397 563 498 564 599 SEQGP 565 95 566 196 567 297 568 398 SEQGP 569 499 570 600 571 96 572 197 SEQGP 573 298 574 399 575 500 576 601 SEQGP 577 97 578 198 579 299 580 400 SEQGP 581 501 582 602 583 98 584 199 SEQGP 585 300 586 401 587 502 588 603 SEQGP 589 99 590 200 591 301 592 402 SEQGP 593 503 594 604 595 100 596 201 SEQGP 597 302 598 403 599 504 600 605 SEQGP 601 101 602 202 603 303 604 404 SEQGP 605 505 606 606 ENDDATA 5 100 2.0E+00 2.0E+00 126 0.0 0.0 4 5 0 34 0 0 ================================================ FILE: inp/d01041a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Long, Narrow, 5 x 100 Orthotropic Plate (INPUT, 1-4-1) $ $ A. Description $ $ A long, narrow, orthotropic plate is modeled and analyzed to illustrate $ NASTRAN operations with spill logic for problems too large for available core. $ Other features of this problem include grid point resequencing, use of $ orthotropic materials, application of quarter symmetry, and use of the INPUT $ module. $ $ This model could be run if desired with an optimal bandwidth by simply $ deleting the SEQGP cards from the bulk data. $ $ B. Input $ $ 1. Parameters $ $ Material Elastic Properties $ $ | | | | | $ | sigma sub 1 | | 4.0+6 2.0+6 0. | epsilon sub 1 | $ | sigma sub 2 | = | 2.0+6 6.0+6 0. | epsilon sub 2 | $ | tau sub 12 | | 0. 0. 3.0+6 | gamma sub 12 | $ | | | | | $ $ $ I = .0833333 (area moment of inertia per unit width) $ $ C. Results $ $ The displacement and stress results from NASTRAN are presented along with $ theoretical results in Tables 1 and 2. The theoretical results are from an $ infinitely long continuous plate analyzed in Section 37 of Reference 4. $ $ Table 1. NASTRAN and Theoretical Displacements for Long, Narrow, Orthotropic $ Plate $ --------------------------- $ 4 $ Z DISPLACEMENT X 10 $ -------------------- $ GRID THEORY NASTRAN $ --------------------------- $ 1 3.048 3.037 $ 2 2.899 2.889 $ 3 2.466 2.457 $ 4 1.792 1.785 $ 5 0.942 0.939 $ 7 2.949 2.940 $ 13 2.723 2.714 $ 19 2.446 2.435 $ 25 2.157 2.145 $ 31 1.880 1.866 $ 37 1.625 1.611 $ 43 1.397 1.383 $ --------------------------- $ $ Table 2. NASTRAN and Theoretical Stresses for Long, Narrow, Orthotropic Plate $ ------------------------------------------------------------ $ STRESS X STRESS Y SHEAR STRESS $ EL. ---------------- ---------------- ---------------- $ ID. THEORY NASTRAN THEORY NASTRAN THEORY NASTRAN $ ------------------------------------------------------------ $ 1 19.05 18.90 20.35 20.40 -0.39 -0.39 $ 2 17.19 17.05 18.36 18.40 -1.12 -1.13 $ 3 13.64 13.53 14.57 14.60 -1.74 -1.76 $ 4 8.76 8.69 9.35 9.38 -2.19 -2.22 $ 5 3.02 2.99 3.22 3.23 -2.43 -2.46 $ 7 15.86 15.76 12.91 12.90 -0.84 -0.88 $ 13 13.27 13.20 8.28 8.23 -1.03 -1.06 $ 19 11.14 11.08 5.38 5.33 -1.07 -1.09 $ 25 9.37 9.33 3.55 3.51 -1.02 -1.04 $ 31 7.90 7.86 2.38 2.36 -0.94 -0.95 $ 37 6.67 6.63 1.64 1.63 -0.84 -0.85 $ ------------------------------------------------------------ $ $ APPLICABLE REFERENCES $ $ 4. S. Timoshemko, THEORY OF PLATES AND SHELLS. McGraw Hill, 1940. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01051a.inp ================================================ ID D01051A,NASTRAN TIME 35 APP DISP SOL 1,1 CEND $ TITLE = NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A LOAD = 15 AXISYM = COSINE OUTPUT SET 1 = 5,10,15,20,25,30,35,40,45,50,100,200 SET 2 = 1,6,11,16,21,26,31,36,41,46,50 DISP = 1 ELFORCE = 2 HARMONICS = ALL BEGIN BULK AXIC 20 CCONEAX 1 15 100 1 CCONEAX 2 15 1 2 CCONEAX 3 15 2 3 CCONEAX 4 15 3 4 CCONEAX 5 15 4 5 CCONEAX 6 15 5 6 CCONEAX 7 15 6 7 CCONEAX 8 15 7 8 CCONEAX 9 15 8 9 CCONEAX 10 15 9 10 CCONEAX 11 15 10 11 CCONEAX 12 15 11 12 CCONEAX 13 15 12 13 CCONEAX 14 15 13 14 CCONEAX 15 15 14 15 CCONEAX 16 15 15 16 CCONEAX 17 15 16 17 CCONEAX 18 15 17 18 CCONEAX 19 15 18 19 CCONEAX 20 15 19 20 CCONEAX 21 15 20 21 CCONEAX 22 15 21 22 CCONEAX 23 15 22 23 CCONEAX 24 15 23 24 CCONEAX 25 15 24 25 CCONEAX 26 15 25 26 CCONEAX 27 15 26 27 CCONEAX 28 15 27 28 CCONEAX 29 15 28 29 CCONEAX 30 15 29 30 CCONEAX 31 15 30 31 CCONEAX 32 15 31 32 CCONEAX 33 15 32 33 CCONEAX 34 15 33 34 CCONEAX 35 15 34 35 CCONEAX 36 15 35 36 CCONEAX 37 15 36 37 CCONEAX 38 15 37 38 CCONEAX 39 15 38 39 CCONEAX 40 15 39 40 CCONEAX 41 15 40 41 CCONEAX 42 15 41 42 CCONEAX 43 15 42 43 CCONEAX 44 15 43 44 CCONEAX 45 15 44 45 CCONEAX 46 15 45 46 CCONEAX 47 15 46 47 CCONEAX 48 15 47 48 CCONEAX 49 15 48 49 CCONEAX 50 15 49 50 MAT1 15 91.0 .3 .5 MOMAX 15 50 0 157.0796 2.0 MOMAX 15 50 1 157.0796 1.0 MOMAX 15 50 2 157.0796 1.0 MOMAX 15 50 3 157.0796 1.0 MOMAX 15 50 4 157.0796 1.0 MOMAX 15 50 5 157.0796 1.0 MOMAX 15 50 6 157.0796 1.0 MOMAX 15 50 7 157.0796 1.0 MOMAX 15 50 8 157.0796 1.0 MOMAX 15 50 9 157.0796 1.0 MOMAX 15 50 10 157.0796 1.0 MOMAX 15 50 11 157.0796 1.0 MOMAX 15 50 12 157.0796 1.0 MOMAX 15 50 13 157.0796 1.0 MOMAX 15 50 14 157.0796 1.0 MOMAX 15 50 15 157.0796 1.0 MOMAX 15 50 16 157.0796 1.0 MOMAX 15 50 17 157.0796 1.0 MOMAX 15 50 18 157.0796 1.0 MOMAX 15 50 19 157.0796 1.0 MOMAX 15 50 20 157.0796 1.0 MOMAX 15 100 0 157.0796 -2.0 MOMAX 15 100 1 157.0796 -1.0 MOMAX 15 100 2 157.0796 -1.0 MOMAX 15 100 3 157.0796 -1.0 MOMAX 15 100 4 157.0796 -1.0 MOMAX 15 100 5 157.0796 -1.0 MOMAX 15 100 6 157.0796 -1.0 MOMAX 15 100 7 157.0796 -1.0 MOMAX 15 100 8 157.0796 -1.0 MOMAX 15 100 9 157.0796 -1.0 MOMAX 15 100 10 157.0796 -1.0 MOMAX 15 100 11 157.0796 -1.0 MOMAX 15 100 12 157.0796 -1.0 MOMAX 15 100 13 157.0796 -1.0 MOMAX 15 100 14 157.0796 -1.0 MOMAX 15 100 15 157.0796 -1.0 MOMAX 15 100 16 157.0796 -1.0 MOMAX 15 100 17 157.0796 -1.0 MOMAX 15 100 18 157.0796 -1.0 MOMAX 15 100 19 157.0796 -1.0 MOMAX 15 100 20 157.0796 -1.0 PCONEAX 15 15 1.0 15 .083333315 1.0 .5 +PC +PC .0 .5 .0 90. 180. POINTAX 200 100 RINGAX 1 50.0 1.0 4 RINGAX 2 50.0 2.0 4 RINGAX 3 50.0 3. 4 RINGAX 4 50.0 4. 4 RINGAX 5 50.0 5. 4 RINGAX 6 50.0 6. 4 RINGAX 7 50.0 7. 4 RINGAX 8 50.0 8. 4 RINGAX 9 50.0 9. 4 RINGAX 10 50.0 10. 4 RINGAX 11 50.0 11. 4 RINGAX 12 50.0 12. 4 RINGAX 13 50.0 13. 4 RINGAX 14 50.0 14. 4 RINGAX 15 50.0 15. 4 RINGAX 16 50.0 16. 4 RINGAX 17 50.0 17. 4 RINGAX 18 50.0 18. 4 RINGAX 19 50.0 19. 4 RINGAX 20 50.0 20. 4 RINGAX 21 50.0 21. 4 RINGAX 22 50.0 22. 4 RINGAX 23 50.0 23. 4 RINGAX 24 50.0 24. 4 RINGAX 25 50.0 25. 4 RINGAX 26 50.0 26. 4 RINGAX 27 50.0 27. 4 RINGAX 28 50.0 28. 4 RINGAX 29 50.0 29. 4 RINGAX 30 50.0 30. 4 RINGAX 31 50.0 31. 4 RINGAX 32 50.0 32. 4 RINGAX 33 50.0 33. 4 RINGAX 34 50.0 34. 4 RINGAX 35 50.0 35. 4 RINGAX 36 50.0 36. 4 RINGAX 37 50.0 37. 4 RINGAX 38 50.0 38. 4 RINGAX 39 50.0 39. 4 RINGAX 40 50.0 40. 4 RINGAX 41 50.0 41. 4 RINGAX 42 50.0 42. 4 RINGAX 43 50.0 43. 4 RINGAX 44 50.0 44. 4 RINGAX 45 50.0 45. 4 RINGAX 46 50.0 46. 4 RINGAX 47 50.0 47. 4 RINGAX 48 50.0 48. 4 RINGAX 49 50.0 49. 4 RINGAX 50 50.0 50. 1234 RINGAX 100 50.0 .0 1234 ENDDATA ================================================ FILE: inp/d01051a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Nonsymmetric Bending of a Cylinder of Revolution (1-5-1) $ $ A. Description $ $ This problem illustrates the application of the conical shell element and its $ related special data. This element uses the Fourier components of displacement $ around an axisymmetric structure as the solution coordinates. The geometry of $ the structure is defined by rings instead of grid points. Its constraints must $ be defined by the particular Fourier harmonics, and the loads must be defined $ either with special data or in a harmonic form. This element may not be used $ in conjunction with any of the other structural elements. $ $ The structure to be solved is described in Reference 6. It consists of a $ short, wide cylinder with a moderate thickness ratio. The applied loads and $ the output stresses are pure uncoupled harmonics. The basic purpose of this $ problem is to check the harmonic deflections, element stresses, and forces. $ $ B. Input $ $ The Fourier coefficients of the applied moment per length are: $ $ m = cos(n theta) (1) $ n $ $ The applied input loads are defined as: $ $ M = integrate o to 2 pi (m cos (n theta) R d theta) (2) $ n n $ $ The values of applied moment on the MOMAX cards are: $ $ M = piR n > 0 (3) $ n phi $ $ and $ $ M = 2piR n = 0 (4) $ o phi $ $ The bending moments in the elements are defined as: $ $ M = Moment about u (5) $ v phi $ $ and $ $ M = Moment about u (6) $ u z $ $ Positive bending moments indicate compression on the outer side. $ $ 1. Parameters: $ $ R = 50 Radius $ $ s = 50 Height $ $ t = 1.0 Thickness $ $ E = 91.0 Modulus of Elasticity $ $ v = 0.3 Poisson's Ratio $ $ 2. Loads: $ $ M (100) = 157.0796 Force x Length $ n $ $ M (50) = -157.0796 Force x Length $ n $ $ 3. Single Point Constraints: $ $ Ring ID Harmonic Coordinates $ $ 50 all u ,u ,u Radial, tangential and axial translations $ r phi z $ 100 all u ,u ,u Radial, tangential and axial translations $ r phi z $ all all theta Rotation normal to surface $ r $ $ The AXISYM = COSINE statement in case control defines the motions to be $ symmetric with respect to the x-z plane. $ $ C. Results $ $ Notice that for higher harmonics the effect of the load is limited to the $ edges. A smaller element size at the edges and a relatively large size in the $ center would have given the same accuracy with fewer degrees of freedom. $ $ APPLICABLE REFERENCES $ $ 6. B. Budiansky and P. P. Radkowski, "Numerical Analysis of Unsymmetrlc $ Bending of Shells of Revolution", AIAA Journal, August, 1963. $ $------------------------------------------------------------------------------- ================================================ FILE: inp/d01061a.inp ================================================ ID D01061A,NASTRAN APP DISP SOL 1,1 TIME 5 CEND TITLE = SOLID DISC WITH RADIALLY VARYING THERMAL LOAD SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A LABEL = TRAPEZOIDAL RING ELEMENTS SPC = 16 TEMPERATURE(LOAD) = 16 OUTPUT SET 1 = 1,3,5,7,9,11,13,15,17,19,21,23,25,26 DISP = 1 ELSTRESS = ALL BEGIN BULK CTRAPRG 1 1 3 4 2 .0 12 CTRAPRG 2 3 5 6 4 .0 12 CTRAPRG 3 5 7 8 6 .0 12 CTRAPRG 4 7 9 10 8 .0 12 CTRAPRG 5 9 11 12 10 .0 12 CTRAPRG 6 11 13 14 12 .0 12 CTRAPRG 7 13 15 16 14 .0 12 CTRAPRG 8 15 17 18 16 .0 12 CTRAPRG 9 17 19 20 18 .0 12 CTRAPRG 10 19 21 22 20 .0 12 CTRAPRG 11 21 23 24 22 .0 12 CTRAPRG 12 23 25 26 24 .0 12 GRDSET 2456 GRID 1 .0 GRID 2 .0 .01 GRID 3 .005 GRID 4 .005 .01 GRID 5 .01 GRID 6 .01 .01 GRID 7 .015 GRID 8 .015 .01 GRID 9 .02 GRID 10 .02 .01 GRID 11 .03 GRID 12 .03 .01 GRID 13 .04 GRID 14 .04 .01 GRID 15 .05 GRID 16 .05 .01 GRID 17 .06 GRID 18 .06 .01 GRID 19 .07 GRID 20 .07 .01 GRID 21 .08 GRID 22 .08 .01 GRID 23 .09 GRID 24 .09 .01 GRID 25 .10 GRID 26 .10 .01 MAT1 12 1.0+7 .3 .2587-3 1.0-7 .0 SPC 16 1 13 .0 2 1 .0 TEMP 16 1 100. 2 100. 3 99.75 TEMP 16 4 99.75 5 99.0 6 99.0 TEMP 16 7 97.75 8 97.75 9 96.0 TEMP 16 10 96.0 11 91.0 12 91.0 TEMP 16 13 84.0 14 84.0 15 75.0 TEMP 16 16 75.0 17 64.0 18 64.0 TEMP 16 19 51.0 20 51.0 21 36.0 TEMP 16 22 36.0 23 19.0 24 19.0 TEMP 16 25 .0 26 .0 ENDDATA ================================================ FILE: inp/d01061a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Solid Disk with Radially Varying Thermal Load (1-6-1) $ $ A. Description $ $ This problem demonstrates the use of the NASTRAN axisymmetric solid element, $ the trapezoidal ring. The trapezoidal ring elements are used to model a solid $ circular disk which is subjected to a radially varying thermal load of the $ form $ 2 $ r $ T = 100(1 - --- ) (1) $ 2 $ b $ where $ $ r = the radius at any point in the disk, $ $ and $ $ b = the outside radius = 0.10 inches. $ $ B. Input $ $ The thermal loading on the solid disk is established via an internally $ generated thermal load vector derived from specified grid point temperature $ values. $ $ 1. Parameters $ $ R = 0.10 in (radius) $ $ t = 0.01 in (thickness) $ 7 2 $ E = 1.0 x 10 lb/in (modulus of elasticity) $ $ u = 0.3 (Poisson's ratio) $ -6 $ alpha = 0.1 x 10 in/in/deg. F (thermal expansion coefficient) $ $ 2. Constraints $ $ u = u = u = u = 0.0 at all grids (required by use of the $ 2 4 5 6 axisymmetric solid element) $ $ u = u = 0.0 at Grid 1 $ 1 3 $ $ u = 0.0 at Grid 2 $ 1 $ $ 3. Loads $ $ The thermal load is specified on TEMP Bulk Data cards. $ $ C. Results $ $ Reference 14 provides an analytical solution to this problem which is based on $ the theory of elasticity. $ $ APPLICABLE REFERENCES $ $ 14. C. T. Wang, "APPLIED ELASTICITY", McGraw-Hill, 1953. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01062a.inp ================================================ ID D01062A,NASTRAN APP DISP SOL 1,1 TIME 5 CEND TITLE = SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A LABEL = TRAPEZOIDAL RING ELEMENTS ECHO = BOTH SPC = 16 TEMPERATURE(LOAD) = 16 OUTPUT SET 1 = 1,3,5,7,9,11,13,15,17,19,21,23,25,26 DISP = 1 ELSTRESS = ALL BEGIN BULK CTRAPRG, 1,1,3,4,2,.0,12 =(11), *(1) *(2),///, == GRDSET, 8)2456 GRID,1,,.0 =(3),*(2),,*(.005) GRID,2,,.0,,.01 =(3),*(2),,*(.005),== GRID,9,,.02 =(8),*(2),,%(.10) GRID,10,,.02,,.01 =(8),*(2),,%(.10),== MAT1,12,1.0+7,,.3,.2587-3,1.0-7,.0 SPC,16,1,13,.0,2,1,.0 TEMP,16,1,100.,2,100.,3,99.75 =,=,4,99.75,5,99.0,6,99.0 =,=,7,97.75,8,97.75,9,96.0 =,=,10,96.0,11,91.0,12,91.0 =,=,13,84.0,14,84.0,15,75.0 =,=,16,75.0,17,64.0,18,64.0 =,=,19,51.0,20,51.0,21,36.0 =,=,22,36.0,23,19.0,24,19.0 =,=,25,.0,26,.0 ENDDATA ================================================ FILE: inp/d01071a.inp ================================================ ID D01071A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 5 CEND TITLE = SPHERICAL SHELL WITH TOROIDAL RING ELEMENT SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A LABEL = EXTERNAL PRESSURE LOADING SPC = 1 LOAD = 1 OUTPUT DISP = ALL OLOAD = ALL ELFORCE = ALL STRESSES = ALL BEGIN BULK CTORDRG 1 1 1 2 .0 2.0 CTORDRG 2 1 2 3 2.0 4.0 CTORDRG 3 1 3 4 4.0 6.0 CTORDRG 4 1 4 5 6.0 8.0 CTORDRG 5 1 5 6 8.0 10.0 CTORDRG 6 1 6 7 10.0 15.0 CTORDRG 7 1 7 8 15.0 20.0 CTORDRG 8 1 8 9 20.0 25.0 CTORDRG 9 1 9 10 25.0 27.0 CTORDRG 10 1 10 11 27.0 29.0 CTORDRG 11 1 11 12 29.0 31.0 CTORDRG 12 1 12 13 31.0 33.0 CTORDRG 13 1 13 14 33.0 35.0 FORCE 1 1 0 1.0 .0 .0 -8.85885 FORCE 1 2 0 1.0 -2.16381.0 -61.9635 FORCE 1 3 0 1.0 -8.64421.0 -123.618 FORCE 1 4 0 1.0 -19.4063.0 -184.639 FORCE 1 5 0 1.0 -34.4036.0 -244.795 FORCE 1 6 0 1.0 -101.669.0 -576.596 FORCE 1 7 0 1.0 -297.393.0 -1109.89 FORCE 1 8 0 1.0 -519.309.0 -1426.79 FORCE 1 9 0 1.0 -537.246.0 -1153.13 FORCE 1 10 0 1.0 -366.120.0 -718.555 FORCE 1 11 0 1.0 -417.584.0 -753.352 FORCE 1 12 0 1.0 -471.266.0 -784.318 FORCE 1 13 0 1.0 -526.891.0 -811.340 GRDSET 2 GRID 1 0 .0 .0 90.00 GRID 2 0 3.141 .0 89.9451 GRID 3 0 6.2784 .0 89.7804 GRID 4 0 9.4077 .0 89.5068 GRID 5 0 12.5253 .0 89.1243 GRID 6 0 15.6285 .0 88.6329 GRID 7 0 23.2938 .0 86.9337 GRID 8 0 30.7818 .0 84.5721 GRID 9 0 38.0358 .0 81.5679 GRID 10 0 40.8591 .0 80.1909 GRID 11 0 43.6329 .0 78.7158 GRID 12 0 46.3536 .0 77.1453 GRID 13 0 49.0176 .0 75.4803 GRID 14 0 51.6222 .0 73.7235 MAT1 12 3.0E6 .1667 12.5 E-6.0 CMAT11 MOMENT 1 2 0 1.0 14.83917.0 -10.1998 MOMENT 1 3 0 1.0 14.79298.0 -20.3822 MOMENT 1 4 0 1.0 14.73849.0 -30.5275 MOMENT 1 5 0 1.0 14.73710.0 -40.6554 MOMENT 1 6 0 1.0 629.9624.0 -503.492 MOMENT 1 7 0 1.0 223.9160.0 -1180.98 MOMENT 1 8 0 1.0 217.7740.0 -1560.45 MOMENT 1 9 0 1.0 -1125.59.0 -950.370 MOMENT 1 10 0 1.0 13.35776.0 -132.642 MOMENT 1 11 0 1.0 13.01903.0 -141.715 MOMENT 1 12 0 1.0 12.64240.0 -150.533 MOMENT 1 13 0 1.0 12.29669.0 -159.092 PTORDRG 1 12 3.0 3.0 SPC 1 1 14 .0 14 134 .0 ENDDATA ================================================ FILE: inp/d01071a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Shallow Spherical Shell Subjected to External Pressure Loading (1-7-1) $ $ A. Description $ $ The shallow spherical shell problem (see Problem 1-2-1) is again solved to $ demonstrate the applicability of the shell cap generalization of the toroidal $ ring element to this type of problem. $ $ B. Input $ $ The shallow spherical shell with a built-in edge is subjected to an external $ pressure loading of 1 psi. Due to symmetry, only one half of the shell was $ analyzed. $ $ 1. Parameters $ $ r = 90.0 in. (radius) $ $ t = 3.0 in. (thickness) $ 6 2 $ E = 3.0 x 10 lb/in (modulus of elasticity) $ $ v = .1666 (Poisson's ratio) $ $ 2. Constraints $ $ u = 0.0 all Grids $ 2 $ $ u = u = 0.0 Grid 1 $ 1 4 $ $ u = u = u = 0.0 Grid 14 $ 1 3 4 $ $ 3. Loads $ $ Forces and moments are applied to the grid points to simulate an external $ pressure load of 1 psi. $ $ C. Results $ $ The meridional bending moment is taken to characterize the behavior predicted $ for this structure. The exact solution from Reference 4 and the 13-element $ NASTRAN model solution are quite close. $ $ APPLICABLE REFERENCES $ $ 4. S. Timoshemko, THEORY OF PLATES AND SHELLS. McGraw Hill, 1940. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01081a.inp ================================================ ID D01081A,NASTRAN APP DISPLACEMENT SOL 1,3 TIME 15 CEND TITLE = 1 X 4 X 10 CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS. SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A LABEL = TWO PLANES OF SYMMETRY, PURE BENDING MOMENT SPC = 10 LOAD = 10 OUTPUT DISPLACEMENT = ALL SPCFORCE = ALL OLOAD = ALL STRESS = ALL BEGIN BULK CHEXA1 1 1 2 1 3 4 12 11 +HEX 1 +HEX 113 14 CHEXA1 2 1 4 3 5 6 14 13 +HEX 2 +HEX 215 16 CHEXA1 3 1 6 5 7 8 16 15 +HEX 3 +HEX 317 18 CHEXA1 4 1 8 7 9 10 18 17 +HEX 4 +HEX 419 20 CHEXA1 5 1 12 11 13 14 22 21 +HEX 5 +HEX 523 24 CHEXA1 6 1 14 13 15 16 24 23 +HEX 6 +HEX 625 26 CHEXA1 7 1 16 15 17 18 26 25 +HEX 7 +HEX 727 28 CHEXA1 8 1 18 17 19 20 28 27 +HEX 8 +HEX 829 30 CHEXA1 9 1 22 21 23 24 32 31 +HEX 9 +HEX 933 34 CHEXA1 10 1 24 23 25 26 34 33 +HEX 10 +HEX 1035 36 CHEXA1 11 1 26 25 27 28 36 35 +HEX 11 +HEX 1137 38 CHEXA1 12 1 28 27 29 30 38 37 +HEX 12 +HEX 1239 40 CHEXA1 13 1 32 31 33 34 42 41 +HEX 13 +HEX 1343 44 CHEXA1 14 1 34 33 35 36 44 43 +HEX 14 +HEX 1445 46 CHEXA1 15 1 36 35 37 38 46 45 +HEX 15 +HEX 1547 48 CHEXA1 16 1 38 37 39 40 48 47 +HEX 16 +HEX 1649 50 CHEXA1 17 1 42 41 43 44 52 51 +HEX 17 +HEX 1753 54 CHEXA1 18 1 44 43 45 46 54 53 +HEX 18 +HEX 1855 56 CHEXA1 19 1 46 45 47 48 56 55 +HEX 19 +HEX 1957 58 CHEXA1 20 1 48 47 49 50 58 57 +HEX 20 +HEX 2059 60 CHEXA1 21 1 52 51 53 54 62 61 +HEX 21 +HEX 2163 64 CHEXA1 22 1 54 53 55 56 64 63 +HEX 22 +HEX 2265 66 CHEXA1 23 1 56 55 57 58 66 65 +HEX 23 +HEX 2367 68 CHEXA1 24 1 58 57 59 60 68 67 +HEX 24 +HEX 2469 70 CHEXA1 25 1 62 61 63 64 72 71 +HEX 25 +HEX 2573 74 CHEXA1 26 1 64 63 65 66 74 73 +HEX 26 +HEX 2675 76 CHEXA1 27 1 66 65 67 68 76 75 +HEX 27 +HEX 2777 78 CHEXA1 28 1 68 67 69 70 78 77 +HEX 28 +HEX 2879 80 CHEXA1 29 1 72 71 73 74 82 81 +HEX 29 +HEX 2983 84 CHEXA1 30 1 74 73 75 76 84 83 +HEX 30 +HEX 3085 86 CHEXA1 31 1 76 75 77 78 86 85 +HEX 31 +HEX 3187 88 CHEXA1 32 1 78 77 79 80 88 87 +HEX 32 +HEX 3289 90 CHEXA1 33 1 82 81 83 84 92 91 +HEX 33 +HEX 3393 94 CHEXA1 34 1 84 83 85 86 94 93 +HEX 34 +HEX 3495 96 CHEXA1 35 1 86 85 87 88 96 95 +HEX 35 +HEX 3597 98 CHEXA1 36 1 88 87 89 90 98 97 +HEX 36 +HEX 3699 100 CHEXA1 37 1 92 91 93 94 102 101 +HEX 37 +HEX 37103 104 CHEXA1 38 1 94 93 95 96 104 103 +HEX 38 +HEX 38105 106 CHEXA1 39 1 96 95 97 98 106 105 +HEX 39 +HEX 39107 108 CHEXA1 40 1 98 97 99 100 108 107 +HEX 40 +HEX 40109 110 CNGRNT 1 2 THRU 40 FORCE 10 103 5.818182-1.0 .0 .0 FORCE 10 104 5.818182-1.0 .0 .0 FORCE 10 105 5.818182-2.0 .0 .0 FORCE 10 106 5.818182-2.0 .0 .0 FORCE 10 107 5.818182-3.0 .0 .0 FORCE 10 108 5.818182-3.0 .0 .0 FORCE 10 109 5.818182-2.0 .0 .0 FORCE 10 110 5.818182-2.0 .0 .0 GRID 1 .00 .00 .00 456 GRID 2 .00 .00 2.00000 456 GRID 3 .00 2.00000 .00 456 GRID 4 .00 2.00000 2.00000 456 GRID 5 .00 4.00000 .00 456 GRID 6 .00 4.00000 2.00000 456 GRID 7 .00 6.00000 .00 456 GRID 8 .00 6.00000 2.00000 456 GRID 9 .00 8.00000 .00 456 GRID 10 .00 8.00000 2.00000 456 GRID 11 2.00000 .00 .00 456 GRID 12 2.00000 .00 2.00000 456 GRID 13 2.00000 2.00000 .00 456 GRID 14 2.00000 2.00000 2.00000 456 GRID 15 2.00000 4.00000 .00 456 GRID 16 2.00000 4.00000 2.00000 456 GRID 17 2.00000 6.00000 .00 456 GRID 18 2.00000 6.00000 2.00000 456 GRID 19 2.00000 8.00000 .00 456 GRID 20 2.00000 8.00000 2.00000 456 GRID 21 4.00000 .00 .00 456 GRID 22 4.00000 .00 2.00000 456 GRID 23 4.00000 2.00000 .00 456 GRID 24 4.00000 2.00000 2.00000 456 GRID 25 4.00000 4.00000 .00 456 GRID 26 4.00000 4.00000 2.00000 456 GRID 27 4.00000 6.00000 .00 456 GRID 28 4.00000 6.00000 2.00000 456 GRID 29 4.00000 8.00000 .00 456 GRID 30 4.00000 8.00000 2.00000 456 GRID 31 6.00000 .00 .00 456 GRID 32 6.00000 .00 2.00000 456 GRID 33 6.00000 2.00000 .00 456 GRID 34 6.00000 2.00000 2.00000 456 GRID 35 6.00000 4.00000 .00 456 GRID 36 6.00000 4.00000 2.00000 456 GRID 37 6.00000 6.00000 .00 456 GRID 38 6.00000 6.00000 2.00000 456 GRID 39 6.00000 8.00000 .00 456 GRID 40 6.00000 8.00000 2.00000 456 GRID 41 8.00000 .00 .00 456 GRID 42 8.00000 .00 2.00000 456 GRID 43 8.00000 2.00000 .00 456 GRID 44 8.00000 2.00000 2.00000 456 GRID 45 8.00000 4.00000 .00 456 GRID 46 8.00000 4.00000 2.00000 456 GRID 47 8.00000 6.00000 .00 456 GRID 48 8.00000 6.00000 2.00000 456 GRID 49 8.00000 8.00000 .00 456 GRID 50 8.00000 8.00000 2.00000 456 GRID 51 10.0000 .00 .00 456 GRID 52 10.0000 .00 2.00000 456 GRID 53 10.0000 2.00000 .00 456 GRID 54 10.0000 2.00000 2.00000 456 GRID 55 10.0000 4.00000 .00 456 GRID 56 10.0000 4.00000 2.00000 456 GRID 57 10.0000 6.00000 .00 456 GRID 58 10.0000 6.00000 2.00000 456 GRID 59 10.0000 8.00000 .00 456 GRID 60 10.0000 8.00000 2.00000 456 GRID 61 12.0000 .00 .00 456 GRID 62 12.0000 .00 2.00000 456 GRID 63 12.0000 2.00000 .00 456 GRID 64 12.0000 2.00000 2.00000 456 GRID 65 12.0000 4.00000 .00 456 GRID 66 12.0000 4.00000 2.00000 456 GRID 67 12.0000 6.00000 .00 456 GRID 68 12.0000 6.00000 2.00000 456 GRID 69 12.0000 8.00000 .00 456 GRID 70 12.0000 8.00000 2.00000 456 GRID 71 14.0000 .00 .00 456 GRID 72 14.0000 .00 2.00000 456 GRID 73 14.0000 2.00000 .00 456 GRID 74 14.0000 2.00000 2.00000 456 GRID 75 14.0000 4.00000 .00 456 GRID 76 14.0000 4.00000 2.00000 456 GRID 77 14.0000 6.00000 .00 456 GRID 78 14.0000 6.00000 2.00000 456 GRID 79 14.0000 8.00000 .00 456 GRID 80 14.0000 8.00000 2.00000 456 GRID 81 16.0000 .00 .00 456 GRID 82 16.0000 .00 2.00000 456 GRID 83 16.0000 2.00000 .00 456 GRID 84 16.0000 2.00000 2.00000 456 GRID 85 16.0000 4.00000 .00 456 GRID 86 16.0000 4.00000 2.00000 456 GRID 87 16.0000 6.00000 .00 456 GRID 88 16.0000 6.00000 2.00000 456 GRID 89 16.0000 8.00000 .00 456 GRID 90 16.0000 8.00000 2.00000 456 GRID 91 18.0000 .00 .00 456 GRID 92 18.0000 .00 2.00000 456 GRID 93 18.0000 2.00000 .00 456 GRID 94 18.0000 2.00000 2.00000 456 GRID 95 18.0000 4.00000 .00 456 GRID 96 18.0000 4.00000 2.00000 456 GRID 97 18.0000 6.00000 .00 456 GRID 98 18.0000 6.00000 2.00000 456 GRID 99 18.0000 8.00000 .00 456 GRID 100 18.0000 8.00000 2.00000 456 GRID 101 20.0000 .00 .00 456 GRID 102 20.0000 .00 2.00000 456 GRID 103 20.0000 2.00000 .00 456 GRID 104 20.0000 2.00000 2.00000 456 GRID 105 20.0000 4.00000 .00 456 GRID 106 20.0000 4.00000 2.00000 456 GRID 107 20.0000 6.00000 .00 456 GRID 108 20.0000 6.00000 2.00000 456 GRID 109 20.0000 8.00000 .00 456 GRID 110 20.0000 8.00000 2.00000 456 MAT1 1 3.0+6 .2 1.0 .001 10.0 +MAT1 SPC 10 1 123 .0 2 13 .0 SPC1 10 1 3 4 5 6 7 8 +3 +3 9 10 SPC1 10 3 3 5 7 9 SPC1 10 3 11 13 15 17 19 SPC1 10 3 21 23 25 27 29 SPC1 10 3 31 33 35 37 39 SPC1 10 3 41 43 45 47 49 SPC1 10 3 51 53 55 57 59 SPC1 10 3 61 63 65 67 69 SPC1 10 3 71 73 75 77 79 SPC1 10 3 81 83 85 87 89 SPC1 10 3 91 93 95 97 99 SPC1 10 3 101 103 105 107 109 SPC1 10 13 11 12 21 22 31 32 +1 +1 41 42 51 52 61 62 71 72 +2 +2 81 82 91 92 101 102 ENDDATA ================================================ FILE: inp/d01081a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Bending of a Beam Fabricated from HEXA1 Solid Elements (1-8-1) $ $ A. Description $ $ The properties of solid bodies may be modeled with the NASTRAN tetrahedra, $ wedge, or hexahedron finite elements. This problem demonstrates the analysis $ of a solid fabricated from the six-sided HEXA1 solid elements. The problem $ consists of a rectangular parallelopiped subdivided into forty cubic $ subelements. $ $ The loads were chosen to approximate the stress distribution due to a moment $ on one end of a beam; the other end is constrained to resist the moment. Two $ planes of symmetry were used to simulate an actual problem having twice the $ width and twice the height. $ $ B. Input $ $ 1. Parameters: $ $ l = 20.0 (length) $ $ w = 4.0 (width of full section) $ $ h = 16.0 (height of full section) $ $ 6 $ E = 3.0 x 10 (modulus of elasticity) $ $ v = 0.2 (Poisson's ratio) $ $ 2. Boundary Constraints: $ $ on y = theta plane, u = u = theta (antisymmetry) $ x z $ $ on z = theta plane, u = theta (symmetry) $ z $ $ on x = theta plane, u = theta (symmetry) $ x $ $ 3. Loads: $ 3 $ Total Moment: M = 2.048 x 10 $ y $ $ This moment will produce bending about the z axis. It is modeled by a set of $ axial loads at x = l which, in turn, represent an axial stress distribution: $ $ $ sigma = 1.5y (1) $ xx $ $ C. Theory $ $ A prismatic beam with an axial stress which varies linearly over the cross $ section has an exact solution. The theoretical stress distribution is $ $ M $ sigma = --- y (2) $ xx I $ $ and $ $ sigma = sigma = tau = tau = 0 $ yz zz xy yz $ $ 1 3 $ where I = --- wh . $ 12 $ $ The displacements are: $ $ M $ u = - --- xy (4) $ x EI $ $ M 2 2 2 $ u = --- (x - vy -vz ) (5) $ y 2EI $ $ and $ M $ u = v --- yz (6) $ z EI $ $ D. Results $ $ Tables 1 and 2 are comparisons of displacements and stresses for the $ theoretical case and the NASTRAN model. $ $ Table 1. Comparisons of Displacement $ --------------------------------------- $ -4 $ DISPLACEMENT x 10 $ --------------------- $ POINT/DIRECTION THEORY NASTRAN $ --------------------------------------- $ 21/y .0400 .0417 $ 41/y .1600 .1607 $ 61/y .360 .366 $ 81/y .640 .651 $ 101/y 1.000 1.016 $ 109/x 0.800 0.844 $ 110/z .016 0.007 $ --------------------------------------- $ $ Table 2. Comparisons of Stress $ ------------------------------------------------------------ $ THEORY NASTRAN $ ELEMENT ----------------------- ---------------------- $ sigma sigma tau sigma sigma tau $ xx yy xy xx yy xy $ ------------------------------------------------------------ $ 1 -1.5 0 0 -1.56 .02 -.01 $ $ 2 -4.5 0 0 -4.53 .036 -.05 $ $ 3 -7.5 0 0 -7.39 .06 -.06 $ $ 4 -10.5 0 0 -9.95 -.11 .12 $ ------------------------------------------------------------ $ NOTE: NASTRAN stresses are average; theoretIcal stresses $ are calculated at the center of the element. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01091a.inp ================================================ ID D01091A,NASTRAN APP DISP SOL 1,3 TIME 15 CEND TITLE = 2 X 2 X 10 FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS. SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A LABEL = TWO PLANES OF SYMMETRY SPC = 2 OUTPUT DISPLACEMENTS = ALL OLOAD = ALL SUBCASE 1 LOAD = 20 LABEL = UNIFORM STRESS. SPCFORCE = ALL STRESS = ALL SUBCASE 2 TEMPERATURE(LOAD) = 30 LABEL = UNIFORM TEMPERATURE LOAD. BEGIN BULK CHEXA2 1 1 1 2 5 4 10 11 +HEX 1 +HEX 114 13 CHEXA2 2 1 2 3 6 5 11 12 +HEX 2 +HEX 215 14 CHEXA2 3 1 4 5 8 7 13 14 +HEX 3 +HEX 317 16 CHEXA2 4 1 5 6 9 8 14 15 +HEX 4 +HEX 418 17 CHEXA2 5 1 10 11 14 13 19 20 +HEX 5 +HEX 523 22 CHEXA2 6 1 11 12 15 14 20 21 +HEX 6 +HEX 624 23 CHEXA2 7 1 13 14 17 16 22 23 +HEX 7 +HEX 726 25 CHEXA2 8 1 14 15 18 17 23 24 +HEX 8 +HEX 827 26 CHEXA2 9 1 19 20 23 22 28 29 +HEX 9 +HEX 932 31 CHEXA2 10 1 20 21 24 23 29 30 +HEX 10 +HEX 1033 32 CHEXA2 11 1 22 23 26 25 31 32 +HEX 11 +HEX 1135 34 CHEXA2 12 1 23 24 27 26 32 33 +HEX 12 +HEX 1236 35 CHEXA2 13 1 28 29 32 31 37 38 +HEX 13 +HEX 1341 40 CHEXA2 14 1 29 30 33 32 38 39 +HEX 14 +HEX 1442 41 CHEXA2 15 1 31 32 35 34 40 41 +HEX 15 +HEX 1544 43 CHEXA2 16 1 32 33 36 35 41 42 +HEX 16 +HEX 1645 44 CHEXA2 17 1 37 38 41 40 46 47 +HEX 17 +HEX 1750 49 CHEXA2 18 1 38 39 42 41 47 48 +HEX 18 +HEX 1851 50 CHEXA2 19 1 40 41 44 43 49 50 +HEX 19 +HEX 1953 52 CHEXA2 20 1 41 42 45 44 50 51 +HEX 20 +HEX 2054 53 CHEXA2 21 1 46 47 50 49 55 56 +HEX 21 +HEX 2159 58 CHEXA2 22 1 47 48 51 50 56 57 +HEX 22 +HEX 2260 59 CHEXA2 23 1 49 50 53 52 58 59 +HEX 23 +HEX 2362 61 CHEXA2 24 1 50 51 54 53 59 60 +HEX 24 +HEX 2463 62 CHEXA2 25 1 55 56 59 58 64 65 +HEX 25 +HEX 2568 67 CHEXA2 26 1 56 57 60 59 65 66 +HEX 26 +HEX 2669 68 CHEXA2 27 1 58 59 62 61 67 68 +HEX 27 +HEX 2771 70 CHEXA2 28 1 59 60 63 62 68 69 +HEX 28 +HEX 2872 71 CHEXA2 29 1 64 65 68 67 73 74 +HEX 29 +HEX 2977 76 CHEXA2 30 1 65 66 69 68 74 75 +HEX 30 +HEX 3078 77 CHEXA2 31 1 67 68 71 70 76 77 +HEX 31 +HEX 3180 79 CHEXA2 32 1 68 69 72 71 77 78 +HEX 32 +HEX 3281 80 CHEXA2 33 1 73 74 77 76 82 83 +HEX 33 +HEX 3386 85 CHEXA2 34 1 74 75 78 77 83 84 +HEX 34 +HEX 3487 86 CHEXA2 35 1 76 77 80 79 85 86 +HEX 35 +HEX 3589 88 CHEXA2 36 1 77 78 81 80 86 87 +HEX 36 +HEX 3690 89 CHEXA2 37 1 82 83 86 85 91 92 +HEX 37 +HEX 3795 94 CHEXA2 38 1 83 84 87 86 92 93 +HEX 38 +HEX 3896 95 CHEXA2 39 1 85 86 89 88 94 95 +HEX 39 +HEX 3998 97 CHEXA2 40 1 86 87 90 89 95 96 +HEX 40 +HEX 4099 98 CNGRNT 1 2 THRU 40 FORCE1 20 91 .375+3 82 91 FORCE1 20 92 .75+3 83 92 FORCE1 20 93 .375+3 84 93 FORCE1 20 94 .75+3 85 94 FORCE1 20 95 1.5+3 86 95 FORCE1 20 96 .75+3 87 96 FORCE1 20 97 .375+3 88 97 FORCE1 20 98 .75+3 89 98 FORCE1 20 99 .375+3 90 99 GRID 1 0.0 0.0 0.0 456 GRID 2 0.0 0.0 1.00000 456 GRID 3 0.0 0.0 2.00000 456 GRID 4 0.0 1.00000 0.0 456 GRID 5 0.0 1.00000 1.00000 456 GRID 6 0.0 1.00000 2.00000 456 GRID 7 0.0 2.00000 0.0 456 GRID 8 0.0 2.00000 1.00000 456 GRID 9 0.0 2.00000 2.00000 456 GRID 10 -2.000000.0 0.0 456 GRID 11 -2.000000.0 1.00000 456 GRID 12 -2.000000.0 2.00000 456 GRID 13 -2.000001.00000 0.0 456 GRID 14 -2.000001.00000 1.00000 456 GRID 15 -2.000001.00000 2.00000 456 GRID 16 -2.000002.00000 0.0 456 GRID 17 -2.000002.00000 1.00000 456 GRID 18 -2.000002.00000 2.00000 456 GRID 19 -4.000000.0 0.0 456 GRID 20 -4.000000.0 1.00000 456 GRID 21 -4.000000.0 2.00000 456 GRID 22 -4.000001.00000 0.0 456 GRID 23 -4.000001.00000 1.00000 456 GRID 24 -4.000001.00000 2.00000 456 GRID 25 -4.000002.00000 0.0 456 GRID 26 -4.000002.00000 1.00000 456 GRID 27 -4.000002.00000 2.00000 456 GRID 28 -6.000000.0 0.0 456 GRID 29 -6.000000.0 1.00000 456 GRID 30 -6.000000.0 2.00000 456 GRID 31 -6.000001.00000 0.0 456 GRID 32 -6.000001.00000 1.00000 456 GRID 33 -6.000001.00000 2.00000 456 GRID 34 -6.000002.00000 0.0 456 GRID 35 -6.000002.00000 1.00000 456 GRID 36 -6.000002.00000 2.00000 456 GRID 37 -8.000000.0 0.0 456 GRID 38 -8.000000.0 1.00000 456 GRID 39 -8.000000.0 2.00000 456 GRID 40 -8.000001.00000 0.0 456 GRID 41 -8.000001.00000 1.00000 456 GRID 42 -8.000001.00000 2.00000 456 GRID 43 -8.000002.00000 0.0 456 GRID 44 -8.000002.00000 1.00000 456 GRID 45 -8.000002.00000 2.00000 456 GRID 46 -10.00000.0 0.0 456 GRID 47 -10.00000.0 1.00000 456 GRID 48 -10.00000.0 2.00000 456 GRID 49 -10.00001.00000 0.0 456 GRID 50 -10.00001.00000 1.00000 456 GRID 51 -10.00001.00000 2.00000 456 GRID 52 -10.00002.00000 0.0 456 GRID 53 -10.00002.00000 1.00000 456 GRID 54 -10.00002.00000 2.00000 456 GRID 55 -12.00000.0 0.0 456 GRID 56 -12.00000.0 1.00000 456 GRID 57 -12.00000.0 2.00000 456 GRID 58 -12.00001.00000 0.0 456 GRID 59 -12.00001.00000 1.00000 456 GRID 60 -12.00001.00000 2.00000 456 GRID 61 -12.00002.00000 0.0 456 GRID 62 -12.00002.00000 1.00000 456 GRID 63 -12.00002.00000 2.00000 456 GRID 64 -14.00000.0 0.0 456 GRID 65 -14.00000.0 1.00000 456 GRID 66 -14.00000.0 2.00000 456 GRID 67 -14.00001.00000 0.0 456 GRID 68 -14.00001.00000 1.00000 456 GRID 69 -14.00001.00000 2.00000 456 GRID 70 -14.00002.00000 0.0 456 GRID 71 -14.00002.00000 1.00000 456 GRID 72 -14.00002.00000 2.00000 456 GRID 73 -16.00000.0 0.0 456 GRID 74 -16.00000.0 1.00000 456 GRID 75 -16.00000.0 2.00000 456 GRID 76 -16.00001.00000 0.0 456 GRID 77 -16.00001.00000 1.00000 456 GRID 78 -16.00001.00000 2.00000 456 GRID 79 -16.00002.00000 0.0 456 GRID 80 -16.00002.00000 1.00000 456 GRID 81 -16.00002.00000 2.00000 456 GRID 82 -18.00000.0 0.0 456 GRID 83 -18.00000.0 1.00000 456 GRID 84 -18.00000.0 2.00000 456 GRID 85 -18.00001.00000 0.0 456 GRID 86 -18.00001.00000 1.00000 456 GRID 87 -18.00001.00000 2.00000 456 GRID 88 -18.00002.00000 0.0 456 GRID 89 -18.00002.00000 1.00000 456 GRID 90 -18.00002.00000 2.00000 456 GRID 91 -20.00000.0 0.0 456 GRID 92 -20.00000.0 1.00000 456 GRID 93 -20.00000.0 2.00000 456 GRID 94 -20.00001.00000 0.0 456 GRID 95 -20.00001.00000 1.00000 456 GRID 96 -20.00001.00000 2.00000 456 GRID 97 -20.00002.00000 0.0 456 GRID 98 -20.00002.00000 1.00000 456 GRID 99 -20.00002.00000 2.00000 456 MAT1 1 3.0+6 .2 1.0 .001 10.0 +MAT1 SPC1 100 1 1 2 3 4 5 6 SPC1 100 1 7 8 9 SPC1 100 2 1 2 3 SPC1 103 3 1 4 7 10 13 16 +1SPC103 +1SPC10319 22 25 28 31 34 37 40 +2SPC103 +2SPC10343 46 49 52 55 58 61 64 +3SPC103 +3SPC10367 70 73 76 79 82 85 88 +4SPC103 +4SPC10391 94 97 SPC1 104 2 1 2 3 10 11 12 SPC1 104 2 19 20 21 28 29 30 SPC1 104 2 37 38 39 46 47 48 SPC1 104 2 55 56 57 64 65 66 SPC1 104 2 73 74 75 82 83 84 SPC1 104 2 91 92 93 SPCADD 2 100 104 103 TEMPD 30 60.0 ENDDATA ================================================ FILE: inp/d01091a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Thermal and Applied Loads on HEXA2 Solid Elements (1-9-1) $ Thermal and Applied Loads on TRIM6 Membrane Elements (1-9-2) $ $ A. Description $ $ This problem demonstrates a static analysis of a cantilevered beam under two $ loading conditions: axial stress and thermal expansion. The analysis is $ performed twice, once with a model consisting of HEXA2 solid hexahedron $ elements (Problem 1-9-1) and once with a model built using the TRIM6 higher $ order triangular membrane element (Problem 1-9-2). $ $ Forty HEXA2 elements are used to model a symmetric quarter of the 4 x 4 x 20 $ beam. Symmetric boundary conditions are used on both the vertical and the $ horizontal planes of symmetry. $ $ Ten TRIM6 elements are used to model one half of the 4 x 4 x 20 beam. Symmetry $ boundary conditions are used on the vertical plane of symmetry (see Reference $ 31, pp. 168-172). $ $ B. Input $ $ 1. Parameters: $ $ l = 20.0 (length) $ $ w = 4.0 (width) $ $ h = 4.0 (height) $ $ 6 $ E = 3.0 x 10 (modulus of elasticity) $ $ v = 0.2 (Poisson's ratio) $ $ alpha = .001 (thermal expansion coefficient) $ $ T = 10 deg. (reference temperature) $ o $ $ 2. Support Boundary Constraints: $ $ HEXA2 Model TRIM6 Model $ $ u = 0 at x = 0 u = u = 0 at x = 0 $ x x y $ $ u = 0 at y = 0 u = 0 at y = 0 $ y y $ $ u = 0 at z = 0 u = 0 at all grid points $ z z $ $ 3. Loads $ $ Subcase 1 (HEXA2 Model): $ $ An axial force F distributed for uniform pressure over the end of the $ x $ beam where $ $ 3 $ F = 24 x 10 (total axial force) $ x $ $ Subcase 1 (TRIM6 Model): $ $ 3 $ F = 24 x 10 (total axial force) $ x $ $ Total force on symmetric part = 24/2 = 12. $ $ +----->1 $ | $ +----->4 Force divided into the ratio of $ | 1 x 12 2 x 12 1 x 12 $ - - - +----->1 1:4:1, i.e., ------- , ------- , ------ $ 6 6 6 $ $ Subcase 2 (Both Models): $ $ T = 60 deg. (uniform temperature field) $ $ T = 10 deg. (reference temperature) $ o $ $ Subcase 3 (TRIM6 Model Only): $ $ +----->1 $ | $ +----->2 Force divided into the ratio of $ | 1 x 12 2 x 12 1 x 12 $ - - - +----->1 1:2:1, i.e., ------- , ------- , ------ $ 4 4 4 $ $ $ C. Theory $ $ 1. Subcase 1 and Subcase 3 $ $ The distributed axial load is equivalent to a stress field of: $ $ 3 $ = 1.5 x 10 (1) $ xx $ $ and $ $ sigma = sigma = tai = tai = tai = 0 (2) $ yy zz xy xz yz $ $ The displacement field is $ $ sigma $ xx -3 $ u = ------- x = 0.5 x 10 x (3) $ x E $ $ -vsigma $ xx -3 $ u = --------- y = -0.1 x 10 y (4) $ y E $ $ and $ $ -vsigma $ xx -3 $ u = --------- z = -0.1 x 10 z (5) $ z E $ $ 2. Subcase 2 $ $ The uniform expansion due to temperature will not cause any stress. The $ strains, however, are uniform and equal. Therefore, the displacements are $ $ u = sigma(T-T )x = .05x (6) $ x o $ $ u = sigma(T-T )y = .05y (7) $ y o $ $ and $ $ u = sigma(T-T )z = .05z (8) $ z o $ $ where T is the uniform temperature and T is the reference temperature. $ o $ $ D. Results $ $ The results of both subcases are exact to the single precision limits of the $ particular computer used. Table 1 presents the theoretical solutions and the $ results of the TRIM6 finite element model analysis. $ $ Table 1. TRIM6 and Theoretical Solutions $ -------------------------------------------------------------------- $ Pressure Load Temperature Load $ ------------------------------------- --------------------- $ Subcase Subcase $ Exact Sol. 1 3 $ -3 -3 -3 Subcase $ X (10 ) (10 ) (10 ) Exact Sol. 2 $ -------------------------------------------------------------------- $ 0 0 0 0 0 0. $ $ 2 1 0.98 0.98 0.1 0.109 $ $ 4 2 1.98 1.98 0.2 0.2093 $ $ 6 3 2.98 2.981 0.3 0.3093 $ $ 8 4 3.98 3.98 0.4 0.4093 $ $ 10 5 4.98 4.981 0.5 0.5093 $ $ 12 6 5.98 5.981 0.6 0.6093 $ $ 14 7 6.98 6.98 0.7 0.7093 $ $ 16 8 7.98 7.98 0.8 0.8093 $ $ 18 9 8.98 8.99 0.9 0.9093 $ $ 20 10 9.98 10.026 1.0 1.00937 $ -------------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 31. Narayanaswami, R.: Addition of Higher Order Plate and Shell Elements into $ NASTRAN Computer Program, Technical Report 76-T19, Old Dominion University $ Research Foundation, Norfolk, Virginia, December, 1976. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01092a.inp ================================================ ID D01092A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 10 CEND TITLE = 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A SPC = 1 OUTPUT DISP = ALL SPCFORCE = ALL STRESS = ALL SUBCASE 1 LABEL = CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1) LOAD = 20 OLOAD = ALL SUBCASE 2 LABEL = UNIFORM TEMPERATURE LOAD TEMPERATURE(LOAD) = 30 SUBCASE 3 LABEL = LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1) LOAD = 40 OLOAD = ALL BEGIN BULK CTRIM6 1 80 9 6 3 2 1 5 +TE1 +TE1 CTRIM6 2 80 1 4 7 8 9 5 +TE2 +TE2 CTRIM6 3 80 15 12 9 8 7 11 +TE3 +TE3 CTRIM6 4 80 7 10 13 14 15 11 +TE4 +TE4 CTRIM6 5 80 21 18 15 14 13 17 +TE5 +TE5 CTRIM6 6 80 13 16 19 20 21 17 +TE6 +TE6 CTRIM6 7 80 27 24 21 20 19 23 +TE7 +TE7 CTRIM6 8 80 19 22 25 26 27 23 +TE8 +TE8 CTRIM6 9 80 33 30 27 26 25 29 +TE9 +TE9 CTRIM6 10 80 25 28 31 32 33 29 +TE10 +TE10 FORCE1 20 31 2.0+3 28 31 FORCE1 20 32 8.0+3 29 32 FORCE1 20 33 2.0+3 30 33 FORCE1 40 31 3.0+3 28 31 FORCE1 40 32 6.0+3 29 32 FORCE1 40 33 3.0+3 30 33 GRDSET 3456 GRID 1 .0 .0 .0 GRID 2 .0 1. .0 GRID 3 .0 2. .0 GRID 4 2. .0 .0 GRID 5 2. 1. .0 GRID 6 2. 2. .0 GRID 7 4. .0 .0 GRID 8 4. 1. .0 GRID 9 4. 2. .0 GRID 10 6. .0 .0 GRID 11 6. 1. .0 GRID 12 6. 2. .0 GRID 13 8. .0 .0 GRID 14 8. 1. .0 GRID 15 8. 2. .0 GRID 16 10. .0 .0 GRID 17 10. 1. .0 GRID 18 10. 2. .0 GRID 19 12. .0 .0 GRID 20 12. 1. .0 GRID 21 12. 2. .0 GRID 22 14. .0 .0 GRID 23 14. 1. .0 GRID 24 14. 2. .0 GRID 25 16. .0 .0 GRID 26 16. 1. .0 GRID 27 16. 2. .0 GRID 28 18. .0 .0 GRID 29 18. 1. .0 GRID 30 18. 2. .0 GRID 31 20. .0 .0 GRID 32 20. 1. .0 GRID 33 20. 2. .0 MAT1 90 3.0+6 .2 1. .001 10. PTRIM6 80 90 4. .0 .0 SPC1 1 2 4 7 10 13 16 19 +GJD +GJD 22 25 28 31 SPC1 1 12 1 2 3 TEMPD 30 60. ENDDATA ================================================ FILE: inp/d01092a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Thermal and Applied Loads on HEXA2 Solid Elements (1-9-1) $ Thermal and Applied Loads on TRIM6 Membrane Elements (1-9-2) $ $ A. Description $ $ This problem demonstrates a static analysis of a cantilevered beam under two $ loading conditions: axial stress and thermal expansion. The analysis is $ performed twice, once with a model consisting of HEXA2 solid hexahedron $ elements (Problem 1-9-1) and once with a model built using the TRIM6 higher $ order triangular membrane element (Problem 1-9-2). $ $ Forty HEXA2 elements are used to model a symmetric quarter of the 4 x 4 x 20 $ beam. Symmetric boundary conditions are used on both the vertical and the $ horizontal planes of symmetry. $ $ Ten TRIM6 elements are used to model one half of the 4 x 4 x 20 beam. Symmetry $ boundary conditions are used on the vertical plane of symmetry (see Reference $ 31, pp. 168-172). $ $ B. Input $ $ 1. Parameters: $ $ l = 20.0 (length) $ $ w = 4.0 (width) $ $ h = 4.0 (height) $ $ 6 $ E = 3.0 x 10 (modulus of elasticity) $ $ v = 0.2 (Poisson's ratio) $ $ alpha = .001 (thermal expansion coefficient) $ $ T = 10 deg. (reference temperature) $ o $ $ 2. Support Boundary Constraints: $ $ HEXA2 Model TRIM6 Model $ $ u = 0 at x = 0 u = u = 0 at x = 0 $ x x y $ $ u = 0 at y = 0 u = 0 at y = 0 $ y y $ $ u = 0 at z = 0 u = 0 at all grid points $ z z $ $ 3. Loads $ $ Subcase 1 (HEXA2 Model): $ $ An axial force F distributed for uniform pressure over the end of the $ x $ beam where $ $ 3 $ F = 24 x 10 (total axial force) $ x $ $ Subcase 1 (TRIM6 Model): $ $ 3 $ F = 24 x 10 (total axial force) $ x $ $ Total force on symmetric part = 24/2 = 12. $ $ +----->1 $ | $ +----->4 Force divided into the ratio of $ | 1 x 12 2 x 12 1 x 12 $ - - - +----->1 1:4:1, i.e., ------- , ------- , ------ $ 6 6 6 $ $ Subcase 2 (Both Models): $ $ T = 60 deg. (uniform temperature field) $ $ T = 10 deg. (reference temperature) $ o $ $ Subcase 3 (TRIM6 Model Only): $ $ +----->1 $ | $ +----->2 Force divided into the ratio of $ | 1 x 12 2 x 12 1 x 12 $ - - - +----->1 1:2:1, i.e., ------- , ------- , ------ $ 4 4 4 $ $ $ C. Theory $ $ 1. Subcase 1 and Subcase 3 $ $ The distributed axial load is equivalent to a stress field of: $ $ 3 $ = 1.5 x 10 (1) $ xx $ $ and $ $ sigma = sigma = tai = tai = tai = 0 (2) $ yy zz xy xz yz $ $ The displacement field is $ $ sigma $ xx -3 $ u = ------- x = 0.5 x 10 x (3) $ x E $ $ -vsigma $ xx -3 $ u = --------- y = -0.1 x 10 y (4) $ y E $ $ and $ $ -vsigma $ xx -3 $ u = --------- z = -0.1 x 10 z (5) $ z E $ $ 2. Subcase 2 $ $ The uniform expansion due to temperature will not cause any stress. The $ strains, however, are uniform and equal. Therefore, the displacements are $ $ u = sigma(T-T )x = .05x (6) $ x o $ $ u = sigma(T-T )y = .05y (7) $ y o $ $ and $ $ u = sigma(T-T )z = .05z (8) $ z o $ $ where T is the uniform temperature and T is the reference temperature. $ o $ $ D. Results $ $ The results of both subcases are exact to the single precision limits of the $ particular computer used. Table 1 presents the theoretical solutions and the $ results of the TRIM6 finite element model analysis. $ $ Table 1. TRIM6 and Theoretical Solutions $ -------------------------------------------------------------------- $ Pressure Load Temperature Load $ ------------------------------------- --------------------- $ Subcase Subcase $ Exact Sol. 1 3 $ -3 -3 -3 Subcase $ X (10 ) (10 ) (10 ) Exact Sol. 2 $ -------------------------------------------------------------------- $ 0 0 0 0 0 0. $ $ 2 1 0.98 0.98 0.1 0.109 $ $ 4 2 1.98 1.98 0.2 0.2093 $ $ 6 3 2.98 2.981 0.3 0.3093 $ $ 8 4 3.98 3.98 0.4 0.4093 $ $ 10 5 4.98 4.981 0.5 0.5093 $ $ 12 6 5.98 5.981 0.6 0.6093 $ $ 14 7 6.98 6.98 0.7 0.7093 $ $ 16 8 7.98 7.98 0.8 0.8093 $ $ 18 9 8.98 8.99 0.9 0.9093 $ $ 20 10 9.98 10.026 1.0 1.00937 $ -------------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 31. Narayanaswami, R.: Addition of Higher Order Plate and Shell Elements into $ NASTRAN Computer Program, Technical Report 76-T19, Old Dominion University $ Research Foundation, Norfolk, Virginia, December, 1976. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01101a.inp ================================================ ID D01101A,NASTRAN SOL 1,0 TIME 9 APP DISPLACEMENT CEND TITLE = THERMAL BENDING OF A BAR. SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A TEMPERATURE(LOAD) = 20 OUTPUT DISPLACEMENT = ALL SPCFORCE = ALL OLOAD = ALL ELFORCE = ALL STRESS = ALL SUBCASE 1 LABEL = CONSTRAINTS ARE - FIXED AND FREE ENDS. SPC = 1 SUBCASE 2 LABEL = CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS. SPC = 2 BEGIN BULK BAROR .0 1.00 .0 1 CBAR 101 10 1 2 CBAR 102 10 2 3 CBAR 103 10 3 4 CBAR 104 10 4 5 CBAR 105 10 5 6 CBAR 106 10 6 7 CBAR 107 10 7 8 CBAR 108 10 8 9 CBAR 109 10 9 10 CBAR 110 10 10 11 CBAR 111 10 11 12 CBAR 112 10 12 13 CBAR 113 10 13 14 CBAR 114 10 14 15 GRDSET 345 GRID 1 .0 .0 .0 GRID 2 2.4 .0 .0 GRID 3 3.7 .0 .0 GRID 4 4.7 .0 .0 GRID 5 5.5 .0 .0 GRID 6 6.2 .0 .0 GRID 7 7.2 .0 .0 GRID 8 7.8 .0 .0 GRID 9 8.3 .0 .0 GRID 10 8.7 .0 .0 GRID 11 9.0 .0 .0 GRID 12 9.3 .0 .0 GRID 13 9.6 .0 .0 GRID 14 9.8 .0 .0 GRID 15 10.0 .0 .0 MAT1 10 1.0+7 .3 1.3-5 .0 PBAR 10 10 .52 .0689333.0337333 +BAR +BAR .0 .3 .5 -0.5 SPC 1 1 126 .0 SPC 2 1 126 .0 15 2 .0 TEMPRB 20 101 .0 .0 .0 2.35083 .0 .0 +1T +1T .0 .0 .0 .0 .0 .373248 1.728 -1.728 TEMPRB 20 102 .0 .0 2.35083 8.61375 .0 .0 +2T +2T .0 .373248 1.728 -1.728 .0 1.36763 6.33163 -6.33163 TEMPRB 20 103 .0 .0 8.61375 17.6555 .0 .0 +3T +3T .0 1.36763 6.33163 -6.33163.0 2.80322 12.9779 -12.9779 TEMPRB 20 104 .0 .0 17.6555 28.2928 .0 .0 +4T +4T .0 2.80322 12.9779 -12.9779.0 4.49213 20.7969 -20.7969 TEMPRB 20 105 .0 .0 28.2928 40.5287 .0 .0 +5T +5T .0 4.49213 20.7969 -20.7969.0 6.43486 29.791 -29.791 TEMPRB 20 106 .0 .0 40.5287 63.4724 .0 .0 +6T +6T .0 6.43486 29.791 -29.791 .0 10.0777 46.656 -46.656 TEMPRB 20 107 .0 .0 63.4724 80.6995 .0 .0 +7T +7T .0 10.0777 46.656 -46.656 .0 12.8129 59.319 -59.319 TEMPRB 20 108 .0 .0 80.6995 97.2348 .0 .0 +8T +8T .0 12.8129 59.319 -59.319 .0 15.4383 71.4734 -71.4734 TEMPRB 20 109 .0 .0 97.2348 111.981 .0 .0 +9T +9T .0 15.4383 71.4734 -71.4734.0 17.7796 82.3129 -82.3129 TEMPRB 20 110 .0 .0 111.981 123.97 .0 .0 +10T +10T .0 17.7796 82.3129 -82.3129.0 19.683 91.125 -91.125 TEMPRB 20 111 .0 .0 123.97 136.784 .0 .0 +11T +11T .0 19.683 91.125 -91.125 .0 21.7176 100.545 -100.545 TEMPRB 20 112 .0 .0 136.784 150.453 .0 .0 +12T +12T .0 21.7176 100.545 -100.545.0 23.8879 110.592 -110.592 TEMPRB 20 113 .0 .0 150.453 160.054 .0 .0 +13T +13T .0 23.8879 110.592 -110.592.0 25.4122 117.649 -117.649 TEMPRB 20 114 .0 .0 160.054 170.054 .0 .0 +14T +14T .0 25.4122 117.649 -117.649.0 27.0 125.0 -125.0 ENDDATA ================================================ FILE: inp/d01101a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Thermal Bending of a Beam (1-10-1) $ $ A. Description $ $ This problem demonstrates the solution of a beam subjected to a thermal $ gradient over the cross-section. Two end conditions are solved, clamped-free $ and clamped-pinned end conditions. $ $ An equivalent linear gradient in the normal direction was used for the input $ data. However, the actual temperatures at points on the cross-section were $ input on the TEMPRB card in order to produce correct stresses. The beam was $ subdivided into 14 variable lengths for maximum efficiency. $ $ B. Input $ $ [???Fig. refs.] $ $ C. Theory $ $ For subcase 1, the effective temperature gradient, T', (see NASTRAN $ Theoretical Manual) is: $ $ 1 $ T'(x) = - integral from z integral from y T(x,y,z)y dy dz (1) $ I $ $ where $ $ I = integral from z integral from y y dy dz (2) $ $ Using the given temperature distribution the effective gradient is: $ $ 3 $ T' = T x (3) $ c $ 4 $ where T is calculated to be 0.170054 deg./in by substituting the temperature $ c $ distribution into Equation 1 and evaluating the expression: $ $ 1 $ T = - integral from z integral from y Cy dy dz (4) $ c I $ $ Since the bar is not redundantly constrained the curvature at the center line $ is: $ $ 2 $ d v 3 $ --- = -alphaT' = -alphaT x (5) $ 2 c $ dx $ $ The slope is: $ $ 2 $ dv d v alpha 4 $ -- = integral from 0 to x --- dx = - ----- T x (6) $ dx 2 4 c $ dx $ $ The deflection is: $ $ dv alpha 5 $ v(x) = integral from 0 to x -- dx = - ----- T x (7) $ dx 20 c $ $ The moment, M, shear, V, and axial stress, , are: $ x $ + $ ( 2 ) | $ (d v ) | $ M = EI (--- + T') = 0 | $ ( 2 ) | $ (dx ) | $ | $ dM | (8) $ V = -- = 0 | $ dx | $ | $ | $ sigma (x,y) = E(epsilon - alphaT) = | $ x x | $ | $ 3 3 | $ E(alphayT' - alphaT) = Ealpha(T y - Cy ) x | $ c | $ + $ 6 $ where C = 1 has dimensions of degrees/length . $ $ For subcase 2, with a simple support at x = 10.0, we calculate the deflection $ due to subcase 1 and apply a constraint load P to remove the deflection at $ the end. L $ $ alphaT $ 3EI c 2 $ P = - --- v(L) = 3EI ------- L (9) $ L 3 20 $ L $ $ Note: Transverse shear deflection is neglected. $ $ The deflections and slopes are the sum of the results for the two independent $ loads as follows. $ $ P alphaT $ L 2 3 c 5 $ deflection: v(x) = --- (3Lx - x ) - ------- x = $ 6EI 20 $ (10) $ alphaT $ c 3 2 3 2 $ ------- (3L - L x - 2x ) x $ 40 $ $ alphaT $ alphav c 3 2 3 $ slope: alpha (x) = ------ = ------- (6L - 3L x - 10x )x (11) $ z alphax 40 $ $ The net stress is the sum of the stress due to each load: $ $ M y $ 3 3 L $ sigma (x,y) = Ealpha(T y - Cy )x - --- = $ x c I $ (12) $ 3 3 3 2 $ Ealpha[(T y - Cy )x - -- T L (L - x)y] $ c 20 c $ $ $ where M is the moment due to the constraint load. $ L $ $ D. Results $ $ Tables 1 and 2 compare the analytical maximum value of displacement, $ constraint force, element force, and stress to the maximum deviation of $ NASTRAN in each category. All results are within 2.66%. $ $ Table 1. Comparison of NASTRAN and Analytical Results, Clamped-Free Ends $ (Subcase 1) $ ------------------------------------------------------- $ CATEGORY MAXIMUM MAXIMUM $ ANALYTICAL NASTRAN PERCENT $ VALUE DIFFERENCE ERROR $ ------------------------------------------------------- $ Displacement -2 -4 $ -1.1054 x 10 2.9424 x 10 2.66 $ ------------------------------------------------------- $ Constraint 0 * * $ Force $ ------------------------------------------------------- $ Element 0 * * $ Force $ ------------------------------------------------------- $ Element +3 $ Stress 5.1965 x 10 0.671 0.01 $ ------------------------------------------------------- $ $ * These results vary with the computer. The very small numbers are $ essentially zero when compared to subcase 2 results. $ $ $ Table 2. Comparison of NASTRAN and Analytical Results, Clamped-Pinned Ends $ (Subcase 2) $ ------------------------------------------------------- $ CATEGORY MAXIMUM MAXIMUM $ ANALYTICAL NASTRAN PERCENT $ VALUE DIFFERENCE ERROR $ ------------------------------------------------------- $ Displacement -3 -4 $ 4.3936 x 10 8.024 x 10 0.18 $ ------------------------------------------------------- $ Constraint +2 $ Force -2.2859 x 10 6.0841 2.66 $ ------------------------------------------------------- $ Element +2 $ Force 2.2859 x 10 6.0846 2.66 $ ------------------------------------------------------- $ Element +3 $ Stress 5.1965 x 10 4.4136 x 10 0.85 $ ------------------------------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d01111a.inp ================================================ ID D01111A,NASTRAN APP DISPLACEMENT SOL 1,3 TIME 9 CEND TITLE = SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A SPC = 1 TEMP(LOAD) = 20 OUTPUT DISPLACEMENT = ALL SPCFORCE = ALL ELFORCE = ALL STRESSES = ALL STRAIN = ALL BEGIN BULK CNGRNT 1 2 THRU 59 CORD2R 1000 .0 .0 .0 .0 .0 1.0 +COR1 +COR1 1.0 .0 .0 CQUAD1 1 101 1 2 8 7 CQUAD1 2 101 2 3 9 8 CQUAD1 3 101 3 4 10 9 CQUAD1 4 101 4 5 11 10 CQUAD1 5 101 5 6 12 11 CQUAD1 7 101 7 8 14 13 CQUAD1 8 101 8 9 15 14 CQUAD1 9 101 9 10 16 15 CQUAD1 10 101 10 11 17 16 CQUAD1 11 101 11 12 18 17 CQUAD1 13 101 13 14 20 19 CQUAD1 14 101 14 15 21 20 CQUAD1 15 101 15 16 22 21 CQUAD1 16 101 16 17 23 22 CQUAD1 17 101 17 18 24 23 CQUAD1 19 101 19 20 26 25 CQUAD1 20 101 20 21 27 26 CQUAD1 21 101 21 22 28 27 CQUAD1 22 101 22 23 29 28 CQUAD1 23 101 23 24 30 29 CQUAD1 25 101 25 26 32 31 CQUAD1 26 101 26 27 33 32 CQUAD1 27 101 27 28 34 33 CQUAD1 28 101 28 29 35 34 CQUAD1 29 101 29 30 36 35 CQUAD1 31 101 31 32 38 37 CQUAD1 32 101 32 33 39 38 CQUAD1 33 101 33 34 40 39 CQUAD1 34 101 34 35 41 40 CQUAD1 35 101 35 36 42 41 CQUAD1 37 101 37 38 44 43 CQUAD1 38 101 38 39 45 44 CQUAD1 39 101 39 40 46 45 CQUAD1 40 101 40 41 47 46 CQUAD1 41 101 41 42 48 47 CQUAD1 43 101 43 44 50 49 CQUAD1 44 101 44 45 51 50 CQUAD1 45 101 45 46 52 51 CQUAD1 46 101 46 47 53 52 CQUAD1 47 101 47 48 54 53 CQUAD1 49 101 49 50 56 55 CQUAD1 50 101 50 51 57 56 CQUAD1 51 101 51 52 58 57 CQUAD1 52 101 52 53 59 58 CQUAD1 53 101 53 54 60 59 CQUAD1 55 101 55 56 62 61 CQUAD1 56 101 56 57 63 62 CQUAD1 57 101 57 58 64 63 CQUAD1 58 101 58 59 65 64 CQUAD1 59 101 59 60 66 65 GRDSET 6 GRID 1 .00 .00 .00 GRID 2 1.00000 .00 .00 GRID 3 2.00000 .00 .00 GRID 4 3.00000 .00 .00 GRID 5 4.00000 .00 .00 GRID 6 5.00000 .00 .00 GRID 7 .00 1.00000 .00 GRID 8 1.00000 1.00000 .00 GRID 9 2.00000 1.00000 .00 GRID 10 3.00000 1.00000 .00 GRID 11 4.00000 1.00000 .00 GRID 12 5.00000 1.00000 .00 GRID 13 .00 2.00000 .00 GRID 14 1.00000 2.00000 .00 GRID 15 2.00000 2.00000 .00 GRID 16 3.00000 2.00000 .00 GRID 17 4.00000 2.00000 .00 GRID 18 5.00000 2.00000 .00 GRID 19 .00 3.00000 .00 GRID 20 1.00000 3.00000 .00 GRID 21 2.00000 3.00000 .00 GRID 22 3.00000 3.00000 .00 GRID 23 4.00000 3.00000 .00 GRID 24 5.00000 3.00000 .00 GRID 25 .00 4.00000 .00 GRID 26 1.00000 4.00000 .00 GRID 27 2.00000 4.00000 .00 GRID 28 3.00000 4.00000 .00 GRID 29 4.00000 4.00000 .00 GRID 30 5.00000 4.00000 .00 GRID 31 .00 5.00000 .00 GRID 32 1.00000 5.00000 .00 GRID 33 2.00000 5.00000 .00 GRID 34 3.00000 5.00000 .00 GRID 35 4.00000 5.00000 .00 GRID 36 5.00000 5.00000 .00 GRID 37 .00 6.00000 .00 GRID 38 1.00000 6.00000 .00 GRID 39 2.00000 6.00000 .00 GRID 40 3.00000 6.00000 .00 GRID 41 4.00000 6.00000 .00 GRID 42 5.00000 6.00000 .00 GRID 43 .00 7.00000 .00 GRID 44 1.00000 7.00000 .00 GRID 45 2.00000 7.00000 .00 GRID 46 3.00000 7.00000 .00 GRID 47 4.00000 7.00000 .00 GRID 48 5.00000 7.00000 .00 GRID 49 .00 8.00000 .00 GRID 50 1.00000 8.00000 .00 GRID 51 2.00000 8.00000 .00 GRID 52 3.00000 8.00000 .00 GRID 53 4.00000 8.00000 .00 GRID 54 5.00000 8.00000 .00 GRID 55 .00 9.00000 .00 GRID 56 1.00000 9.00000 .00 GRID 57 2.00000 9.00000 .00 GRID 58 3.00000 9.00000 .00 GRID 59 4.00000 9.00000 .00 GRID 60 5.00000 9.00000 .00 GRID 61 .00 10.0000 .00 GRID 62 1.00000 10.0000 .00 GRID 63 2.00000 10.0000 .00 GRID 64 3.00000 10.0000 .00 GRID 65 4.00000 10.0000 .00 GRID 66 5.00000 10.0000 .00 MAT1 1 3.0+5 .3 1.0 .01 .0 +MAT1 +MAT1 1000 PARAM IRES 1 PARAM STRESS 0 PQUAD1 101 1 .5 1 .0104167 +PQUAD1 +PQUAD1 .25 -0.25 SPC1 1 34 6 12 18 24 30 36 +SPC-34 +SPC-34 42 48 54 60 66 SPC1 1 35 61 62 63 64 65 66 SPC1 1 124 1 2 3 4 5 6 SPC1 1 125 7 13 19 25 31 37 +SPC-5 +SPC-5 43 49 55 61 1 TEMPP1 20 1 .0 5.90786 2.46161 -2.46161 TEMPP1 20 2 .0 5.32956 2.22065 -2.22065 TEMPP1 20 3 .0 4.22956 1.76232 -1.76232 TEMPP1 20 4 .0 2.71555 1.13148 -1.13148 TEMPP1 20 5 .0 .93571 .38988 -.38988 TEMPP1 20 7 .0 5.76239 2.40100 -2.40100 TEMPP1 20 8 .0 5.19833 2.16597 -2.16597 TEMPP1 20 9 .0 4.12542 1.71892 -1.71892 TEMPP1 20 10 .0 2.64868 1.10362 -1.10362 TEMPP1 20 11 .0 .91267 .38028 -.38028 TEMPP1 20 13 .0 5.47503 2.28126 -2.28126 TEMPP1 20 14 .0 4.93910 2.05796 -2.05796 TEMPP1 20 15 .0 3.91969 1.63320 -1.63320 TEMPP1 20 16 .0 2.51660 1.04858 -1.04858 TEMPP1 20 17 .0 .86716 .36132 -.36132 TEMPP1 20 19 .0 5.05286 2.10536 -2.10536 TEMPP1 20 20 .0 4.55825 1.89927 -1.89927 TEMPP1 20 21 .0 3.61745 1.50727 -1.50727 TEMPP1 20 22 .0 2.32254 .96773 -.96773 TEMPP1 20 23 .0 .80029 .33346 -.33346 TEMPP1 20 25 .0 4.50626 1.87761 -1.87761 TEMPP1 20 26 .0 4.06516 1.69382 -1.69382 TEMPP1 20 27 .0 3.22613 1.34422 -1.34422 TEMPP1 20 28 .0 2.07130 .86304 -.86304 TEMPP1 20 29 .0 .71372 .29738 -.29738 TEMPP1 20 31 .0 3.84871 1.60363 -1.60363 TEMPP1 20 32 .0 3.47197 1.44666 -1.44666 TEMPP1 20 33 .0 2.75537 1.14807 -1.14807 TEMPP1 20 34 .0 1.76906 .73711 -.73711 TEMPP1 20 35 .0 .60958 .25399 -.25399 TEMPP1 20 37 .0 3.09639 1.29016 -1.29016 TEMPP1 20 38 .0 2.79330 1.16387 -1.16387 TEMPP1 20 39 .0 2.21677 .92366 -.92366 TEMPP1 20 40 .0 1.42326 .59302 -.59302 TEMPP1 20 41 .0 .49042 .20434 -.20434 TEMPP1 20 43 .0 2.26783 .94493 -.94493 TEMPP1 20 44 .0 2.04584 .85243 -.85243 TEMPP1 20 45 .0 1.62359 .67650 -.67650 TEMPP1 20 46 .0 1.04241 .43434 -.43434 TEMPP1 20 47 .0 .35919 .14966 -.14966 TEMPP1 20 49 .0 1.38343 .57643 -.57643 TEMPP1 20 50 .0 1.24801 .52000 -.52000 TEMPP1 20 51 .0 .99043 .41268 -.41268 TEMPP1 20 52 .0 .63589 .26496 -.26496 TEMPP1 20 53 .0 .21911 .09130 -.09130 TEMPP1 20 55 .0 .46496 .19373 -.19373 TEMPP1 20 56 .0 .41945 .17477 -.17477 TEMPP1 20 57 .0 .33287 .13870 -.13870 TEMPP1 20 58 .0 .21372 .08905 -.08905 TEMPP1 20 59 .0 .07364 .03068 -.03068 ENDDATA *WEOR ================================================ FILE: inp/d01111a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Simply-Supported Rectangular Plate with a Thermal Gradient (1-11-1) $ Simply-Supported Rectangular Plate with a Thermal Gradient (INPUT, 1-11-2) $ $ A. Description $ $ This problem illustrates the solution of a general thermal load on a plate $ with the use of an equivalent linear thermal gradient. The thermal field is a $ function of three dimensions, demonstrated by the TEMPP1 card. The plate is $ modeled with the general quadrilateral, QUAD1, elements. Two planes of $ symmetry are used. This problem is repeated via the INPUT module to generate $ the QUAD1 elements. $ $ B. Input $ $ 5 2 $ E = 3.0 x 10 pounds/inch (Young's modulus) $ $ v = 0.3 (Poisson's ratio) $ 2 4 $ p = 1.0 pound-sec. /inch (Mass density) $ $ alpha = 0.01 inch/deg. F/inch (Thermal expansion coefficient) $ $ T = 0.0 deg. F (Reference temperature) $ R $ $ T = 2.5 deg. F (Temperature difference) $ o $ $ a = 10.0 inch (Width) $ $ b = 20.0 inch (Length) $ $ t = 0.5 inch (Thickness) $ $ The thermal field is $ $ pix piy 2z 3 $ T = T (cos ---) (cos ---)(--) $ o a b t $ $ pix piy 3 $ and = 160.0(cos ---) (cos ---) z deg. F $ 10 20 $ $ C. Theory $ $ The plate was solved using a minimum energy solution. The net moments, $ {M }, in the plate are equal to the sum of the elastic moments, {M }, and the $ N e $ thermal moments, {M }. $ t $ $ {M } = {M } + {M } (1) $ N t e $ $ where the thermal moment is $ $ + $ + + | $ | 1 | pix piy | $ {M } = alphaT' D(1+v) | 1 | cos --- cos --- | $ t o | 0 | a b | $ + + | $ 3 | (2) $ Et | $ and D = --------- | $ 2 | $ 12(1-v ) | $ + $ $ and T' = 6T /5t is the effective thermal gradient. $ o o $ $ The elastic moment is defined by the curvatures, x, with the equation: $ $ + + $ | x + vx | $ | x y | $ | | $ {M } = D | x + vx | (3) $ e | y x | $ | | $ | (1-v) | $ | ------- x | $ | 2 xy | $ + + $ $ Assuming a normal displacement function, W, of $ $ $ npix mpiy $ W = sum from n sum from m W cos ---- cos ---- (4) $ nm a b $ $ $ then $ + $ 2 | $ a W 2 n 2 npix mpiy | $ x = --- = - sum from n sum from m pi W ( - ) cos ---- cos ---- | $ x 2 nm a a b | $ ax | $ | $ 2 | $ a W 2 m 2 npix mpiy | $ x = --- = - sum from n sum from m pi W ( - ) cos ---- cos ---- | (5) $ y 2 nm a a b | $ ay | $ | $ 2 | $ a W 2 nm npix mpiy | $ x =2 ---- = - sum from n sum from m pi W (--) sin ---- sin ---- | $ xy axay nm ab a b | $ + $ The work done by the thermal load is: $ $ T 1 T $ U = integral from A {X} {M } dA + - integral from A {X} {M } dA (6) $ t 2 e $ $ where A is the surface area. Performing the substitution and integrating $ results in the energy expression: $ $ 2 2 2 $ alphaT' D(1+v)pi (a +b ) $ o D $ U = - --------------------- W + -- sum from n=1 to infinity $ 4ab 11 2 $ $ 2 (7) $ 4 ( 2 2) $ piab (n m ) 2 $ sum from n=1 to infinity ---- (-- + --) W $ 4 ( 2 2) nm $ (a b ) $ $ The static solution exists at a minimum energy: $ $ aU $ ----- = 0 (8) $ aW $ nm $ $ This results in all but W equal to zero. The displacement function is $ 11 $ therefore: $ $ 2 2 $ alphaT' (1+v)a b $ o pix piy $ W(x,y) = -------------- cos --- cos --- (9) $ 2 2 2 a b $ (a + b ) $ $ Solving for moments by differentiating W and using equation (3) results in the $ equations for element moments: $ + + $ | 2 2 | $ | b +va | pix piy $ M = alphaT'D(1+v)|1 - -------| cos --- cos --- (10) $ x o | 2 2 | a b $ | a +b | $ + + $ + + $ | 2 2 | $ | a +vb | pix piy $ M = alphaT'D(1+v)|1 - -------| cos --- cos --- (11) $ y o | 2 2 | a b $ | a +b | $ + + $ $ 2 $ alphaT'D(1-v )ab $ M o pix piy $ xy = ----------------- sin --- cos --- (12) $ 2 2 a b $ a + b $ $ D. Results $ $ The maximum errors for displacements, constraint forces, element forces, and $ element stresses are listed in Table 1. $ $ Table 1. Comparison of Analytical and NASTRAN Results $ -------------------------------------------------------- $ CATEGORY MAXIMUM MAXIMUM $ ANALYTICAL NASTRAN PERCENT $ VALUE DIFFERENCE ERROR $ -------------------------------------------------------- $ Displacement -1 -3 $ 6.2898 x 10 11.5464 x 10 -0.25 $ -------------------------------------------------------- $ Constraint $ Force 150.0 -.9594 -0.65 $ -------------------------------------------------------- $ Element Mom., 2 $ M 1.4770 x 10 -1.1767 -0.80 $ x $ -------------------------------------------------------- $ Element 3 $ Stress 7.764618 x 10 -90.33275 -1.16 $ -------------------------------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d01112a.inp ================================================ ID D01112A,NASTRAN APP DISPLACEMENT TIME 9 SOL 1,3 DIAG 14 ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT GEOM1,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ QUAD1 ELEMENT EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER $ CEND TITLE = SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A SPC = 5010 TEMP(LOAD) = 20 OUTPUT DISPLACEMENT = ALL SPCFORCE = ALL ELFORCE = ALL STRESSES = ALL STRAIN = ALL BEGIN BULK CORD2R 1000 .0 .0 .0 .0 .0 1.0 +COR1 +COR1 1.0 .0 .0 MAT1 1 3.0+5 .3 1.0 .01 .0 +MAT1 +MAT1 1000 PARAM STRESS 0 PQUAD1 101 1 .5 1 .0104167 +PQUAD1 +PQUAD1 .25 -0.25 TEMPP1 20 1 .0 5.90786 2.46161 -2.46161 TEMPP1 20 2 .0 5.32956 2.22065 -2.22065 TEMPP1 20 3 .0 4.22956 1.76232 -1.76232 TEMPP1 20 4 .0 2.71555 1.13148 -1.13148 TEMPP1 20 5 .0 .93571 .38988 -.38988 TEMPP1 20 7 .0 5.76239 2.40100 -2.40100 TEMPP1 20 8 .0 5.19833 2.16597 -2.16597 TEMPP1 20 9 .0 4.12542 1.71892 -1.71892 TEMPP1 20 10 .0 2.64868 1.10362 -1.10362 TEMPP1 20 11 .0 .91267 .38028 -.38028 TEMPP1 20 13 .0 5.47503 2.28126 -2.28126 TEMPP1 20 14 .0 4.93910 2.05796 -2.05796 TEMPP1 20 15 .0 3.91969 1.63320 -1.63320 TEMPP1 20 16 .0 2.51660 1.04858 -1.04858 TEMPP1 20 17 .0 .86716 .36132 -.36132 TEMPP1 20 19 .0 5.05286 2.10536 -2.10536 TEMPP1 20 20 .0 4.55825 1.89927 -1.89927 TEMPP1 20 21 .0 3.61745 1.50727 -1.50727 TEMPP1 20 22 .0 2.32254 .96773 -.96773 TEMPP1 20 23 .0 .80029 .33346 -.33346 TEMPP1 20 25 .0 4.50626 1.87761 -1.87761 TEMPP1 20 26 .0 4.06516 1.69382 -1.69382 TEMPP1 20 27 .0 3.22613 1.34422 -1.34422 TEMPP1 20 28 .0 2.07130 .86304 -.86304 TEMPP1 20 29 .0 .71372 .29738 -.29738 TEMPP1 20 31 .0 3.84871 1.60363 -1.60363 TEMPP1 20 32 .0 3.47197 1.44666 -1.44666 TEMPP1 20 33 .0 2.75537 1.14807 -1.14807 TEMPP1 20 34 .0 1.76906 .73711 -.73711 TEMPP1 20 35 .0 .60958 .25399 -.25399 TEMPP1 20 37 .0 3.09639 1.29016 -1.29016 TEMPP1 20 38 .0 2.79330 1.16387 -1.16387 TEMPP1 20 39 .0 2.21677 .92366 -.92366 TEMPP1 20 40 .0 1.42326 .59302 -.59302 TEMPP1 20 41 .0 .49042 .20434 -.20434 TEMPP1 20 43 .0 2.26783 .94493 -.94493 TEMPP1 20 44 .0 2.04584 .85243 -.85243 TEMPP1 20 45 .0 1.62359 .67650 -.67650 TEMPP1 20 46 .0 1.04241 .43434 -.43434 TEMPP1 20 47 .0 .35919 .14966 -.14966 TEMPP1 20 49 .0 1.38343 .57643 -.57643 TEMPP1 20 50 .0 1.24801 .52000 -.52000 TEMPP1 20 51 .0 .99043 .41268 -.41268 TEMPP1 20 52 .0 .63589 .26496 -.26496 TEMPP1 20 53 .0 .21911 .09130 -.09130 TEMPP1 20 55 .0 .46496 .19373 -.19373 TEMPP1 20 56 .0 .41945 .17477 -.17477 TEMPP1 20 57 .0 .33287 .13870 -.13870 TEMPP1 20 58 .0 .21372 .08905 -.08905 TEMPP1 20 59 .0 .07364 .03068 -.03068 ENDDATA 5 10 1.0E+00 1.0E+00 6 0.0 0.0 421 125 53 34 0 0 ================================================ FILE: inp/d01112a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Simply-Supported Rectangular Plate with a Thermal Gradient (1-11-1) $ Simply-Supported Rectangular Plate with a Thermal Gradient (INPUT, 1-11-2) $ $ A. Description $ $ This problem illustrates the solution of a general thermal load on a plate $ with the use of an equivalent linear thermal gradient. The thermal field is a $ function of three dimensions, demonstrated by the TEMPP1 card. The plate is $ modeled with the general quadrilateral, QUAD1, elements. Two planes of $ symmetry are used. This problem is repeated via the INPUT module to generate $ the QUAD1 elements. $ $ B. Input $ $ 5 2 $ E = 3.0 x 10 pounds/inch (Young's modulus) $ $ v = 0.3 (Poisson's ratio) $ 2 4 $ p = 1.0 pound-sec. /inch (Mass density) $ $ alpha = 0.01 inch/deg. F/inch (Thermal expansion coefficient) $ $ T = 0.0 deg. F (Reference temperature) $ R $ $ T = 2.5 deg. F (Temperature difference) $ o $ $ a = 10.0 inch (Width) $ $ b = 20.0 inch (Length) $ $ t = 0.5 inch (Thickness) $ $ The thermal field is $ $ pix piy 2z 3 $ T = T (cos ---) (cos ---)(--) $ o a b t $ $ pix piy 3 $ and = 160.0(cos ---) (cos ---) z deg. F $ 10 20 $ $ C. Theory $ $ The plate was solved using a minimum energy solution. The net moments, $ {M }, in the plate are equal to the sum of the elastic moments, {M }, and the $ N e $ thermal moments, {M }. $ t $ $ {M } = {M } + {M } (1) $ N t e $ $ where the thermal moment is $ $ + $ + + | $ | 1 | pix piy | $ {M } = alphaT' D(1+v) | 1 | cos --- cos --- | $ t o | 0 | a b | $ + + | $ 3 | (2) $ Et | $ and D = --------- | $ 2 | $ 12(1-v ) | $ + $ $ and T' = 6T /5t is the effective thermal gradient. $ o o $ $ The elastic moment is defined by the curvatures, x, with the equation: $ $ + + $ | x + vx | $ | x y | $ | | $ {M } = D | x + vx | (3) $ e | y x | $ | | $ | (1-v) | $ | ------- x | $ | 2 xy | $ + + $ $ Assuming a normal displacement function, W, of $ $ $ npix mpiy $ W = sum from n sum from m W cos ---- cos ---- (4) $ nm a b $ $ $ then $ + $ 2 | $ a W 2 n 2 npix mpiy | $ x = --- = - sum from n sum from m pi W ( - ) cos ---- cos ---- | $ x 2 nm a a b | $ ax | $ | $ 2 | $ a W 2 m 2 npix mpiy | $ x = --- = - sum from n sum from m pi W ( - ) cos ---- cos ---- | (5) $ y 2 nm a a b | $ ay | $ | $ 2 | $ a W 2 nm npix mpiy | $ x =2 ---- = - sum from n sum from m pi W (--) sin ---- sin ---- | $ xy axay nm ab a b | $ + $ The work done by the thermal load is: $ $ T 1 T $ U = integral from A {X} {M } dA + - integral from A {X} {M } dA (6) $ t 2 e $ $ where A is the surface area. Performing the substitution and integrating $ results in the energy expression: $ $ 2 2 2 $ alphaT' D(1+v)pi (a +b ) $ o D $ U = - --------------------- W + -- sum from n=1 to infinity $ 4ab 11 2 $ $ 2 (7) $ 4 ( 2 2) $ piab (n m ) 2 $ sum from n=1 to infinity ---- (-- + --) W $ 4 ( 2 2) nm $ (a b ) $ $ The static solution exists at a minimum energy: $ $ aU $ ----- = 0 (8) $ aW $ nm $ $ This results in all but W equal to zero. The displacement function is $ 11 $ therefore: $ $ 2 2 $ alphaT' (1+v)a b $ o pix piy $ W(x,y) = -------------- cos --- cos --- (9) $ 2 2 2 a b $ (a + b ) $ $ Solving for moments by differentiating W and using equation (3) results in the $ equations for element moments: $ + + $ | 2 2 | $ | b +va | pix piy $ M = alphaT'D(1+v)|1 - -------| cos --- cos --- (10) $ x o | 2 2 | a b $ | a +b | $ + + $ + + $ | 2 2 | $ | a +vb | pix piy $ M = alphaT'D(1+v)|1 - -------| cos --- cos --- (11) $ y o | 2 2 | a b $ | a +b | $ + + $ $ 2 $ alphaT'D(1-v )ab $ M o pix piy $ xy = ----------------- sin --- cos --- (12) $ 2 2 a b $ a + b $ $ D. Results $ $ The maximum errors for displacements, constraint forces, element forces, and $ element stresses are listed in Table 1. $ $ Table 1. Comparison of Analytical and NASTRAN Results $ -------------------------------------------------------- $ CATEGORY MAXIMUM MAXIMUM $ ANALYTICAL NASTRAN PERCENT $ VALUE DIFFERENCE ERROR $ -------------------------------------------------------- $ Displacement -1 -3 $ 6.2898 x 10 11.5464 x 10 -0.25 $ -------------------------------------------------------- $ Constraint $ Force 150.0 -.9594 -0.65 $ -------------------------------------------------------- $ Element Mom., 2 $ M 1.4770 x 10 -1.1767 -0.80 $ x $ -------------------------------------------------------- $ Element 3 $ Stress 7.764618 x 10 -90.33275 -1.16 $ -------------------------------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d01121a.inp ================================================ ID D01121A,NASTRAN TIME 30 APP HEAT SOL 1,1 CEND TITLE = LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A LABEL = SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER OLOAD = ALL SPCFORCES= ALL THERMAL(PRINT,PUNCH) = ALL ELFORCE = ALL SUBCASE 123 LABEL = TEMPERATURE SPECIFIED AT OUTER BOUNDARY SPC = 351 LOAD = 251 BEGIN BULK CHBDY 701 702 AREA4 1 12 112 101 CHEXA1 1 200 1 2 13 12 101 102 +SOL1 +SOL1 113 112 CHEXA2 2 200 2 3 14 13 102 103 +SOL2 +SOL2 114 113 CORD2C 111 0 .0 .0 .0 .0 .0 100.0 +CORD111 +CORD111100.0 .0 .0 CTETRA 3 200 104 114 3 103 CTETRA 4 200 104 15 4 3 CTETRA 5 200 115 15 104 114 CTETRA 6 200 15 14 3 114 CTETRA 7 200 114 104 3 15 CWEDGE 8 200 4 5 15 104 105 115 CWEDGE 9 200 5 16 15 105 116 115 CWEDGE 10 200 5 6 16 105 106 116 CWEDGE 11 200 6 17 16 106 117 116 CWEDGE 12 200 6 7 17 106 107 117 CWEDGE 13 200 7 18 17 107 118 117 CWEDGE 14 200 7 8 18 107 108 118 CWEDGE 15 200 8 19 18 108 119 118 CWEDGE 16 200 8 9 19 108 109 119 CWEDGE 17 200 9 20 19 109 120 119 CWEDGE 18 200 9 10 20 109 110 120 CWEDGE 19 200 10 21 20 110 121 120 CWEDGE 20 200 10 11 21 110 111 121 CWEDGE 21 200 11 22 21 111 122 121 GRDSET 111 GRID 1 111 1.0 .0 .0 GRID 2 111 1.1 .0 .0 GRID 3 111 1.2 .0 .0 GRID 4 111 1.3 .0 .0 GRID 5 111 1.4 .0 .0 GRID 6 111 1.5 .0 .0 GRID 7 111 1.6 .0 .0 GRID 8 111 1.7 .0 .0 GRID 9 111 1.8 .0 .0 GRID 10 111 1.9 .0 .0 GRID 11 111 2.0 .0 .0 GRID 12 111 1.0 4.0 .0 GRID 13 111 1.1 4.0 .0 GRID 14 111 1.2 4.0 .0 GRID 15 111 1.3 4.0 .0 GRID 16 111 1.4 4.0 .0 GRID 17 111 1.5 4.0 .0 GRID 18 111 1.6 4.0 .0 GRID 19 111 1.7 4.0 .0 GRID 20 111 1.8 4.0 .0 GRID 21 111 1.9 4.0 .0 GRID 22 111 2.0 4.0 .0 GRID 101 111 1.0 .0 1.0-1 GRID 102 111 1.1 .0 1.0-1 GRID 103 111 1.2 .0 1.0-1 GRID 104 111 1.3 .0 1.0-1 GRID 105 111 1.4 .0 1.0-1 GRID 106 111 1.5 .0 1.0-1 GRID 107 111 1.6 .0 1.0-1 GRID 108 111 1.7 .0 1.0-1 GRID 109 111 1.8 .0 1.0-1 GRID 110 111 1.9 .0 1.0-1 GRID 111 111 2.0 .0 1.0-1 GRID 112 111 1.0 4.0 1.0-1 GRID 113 111 1.1 4.0 1.0-1 GRID 114 111 1.2 4.0 1.0-1 GRID 115 111 1.3 4.0 1.0-1 GRID 116 111 1.4 4.0 1.0-1 GRID 117 111 1.5 4.0 1.0-1 GRID 118 111 1.6 4.0 1.0-1 GRID 119 111 1.7 4.0 1.0-1 GRID 120 111 1.8 4.0 1.0-1 GRID 121 111 1.9 4.0 1.0-1 GRID 122 111 2.0 4.0 1.0-1 MAT4 200 1.0 PARAM IRES 1 PHBDY 702 QBDY1 251 288.5 701 SEQGP 12 1.1 13 2.1 14 3.1 15 4.1 SEQGP 16 5.1 17 6.1 18 7.1 19 8.1 SEQGP 20 9.1 21 10.1 22 11.1 SEQGP 101 1.2 102 2.2 103 3.2 104 4.2 SEQGP 105 5.2 106 6.2 107 7.2 108 8.2 SEQGP 109 9.2 110 10.2 111 11.2 SEQGP 112 1.3 113 2.3 114 3.3 115 4.3 SEQGP 116 5.3 117 6.3 118 7.3 119 8.3 SEQGP 120 9.3 121 10.3 122 11.3 SPC 351 11 1 .0 22 1 .0 SPC 351 111 1 .0 122 1 .0 ENDDATA ================================================ FILE: inp/d01121a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1 (APP HEAT), Heat Conduction Analysis $ Linear Steady State Heat Conduction Through a Washer $ Using Solid Elements (1-12-1) $ Linear Steady State Heat Conduction Through a Washer $ Using Ring Elements (1-12-2) $ $ A. Description $ $ This problem illustrates the capability of NASTRAN to solve heat conduction $ problems. The washer has a radial heat conduction with the temperature $ specified at the outside and a film heat transfer condition at the inner edge. $ Due to symmetry about the axis and the assumption of negligible axial $ gradients, the temperature depends only upon the radius. $ $ B. Input $ $ In the first NASTRAN model, the solid elements (HEXA1, HEXA2, WEDGE, and $ TETRA) and boundary condition element (HBDY, type AREA4) are used. The $ conductivity of the material is specified on a MAT4 card. Temperatures are $ specified at the outer boundary with SPC cards. Punched temperature output is $ placed on TEMP bulk data cards suitable for static analysis. $ $ Another variation of the problem uses solid of revolution elements (TRIARG and $ TRAPRG) and boundary condition element (HBDY, type REV). The conductivity of $ the material and the convective film coefficient are specified on a MAT4 card. $ The CHBDY card references a scalar point at which the ambient temperature is $ specified using an SPC card. An SPC1 card is used to constrain the temperature $ to zero degrees at gridpoInts on the outer surface. $ $ C. Theory $ $ The mathematical theory for the continuum is simple, and can be solved in $ closed form. The differential equation is $ $ 1 a aU $ - -- (rk--) = 0 (1) $ r ar ar $ $ The boundary conditions are $ $ aU $ -k -- = H(U - U) at r = r (2) $ ar a 1 $ $ and $ $ U = 0 at r = r (3) $ 2 $ $ The solution is $ $ HU $ a $ U(r) = -------------------- ln(r /r) $ (k/r ) + H ln(r /r ) 2 $ 1 2 1 $ $ = 288.516 ln(2/r) $ $ D. Results $ $ A comparison with the NASTRAN results is shown in Table 1. $ $ Table 1. Comparison of Theoretical and NASTRAN Temperatures $ for Heat Conduction in a Washer $ ------------------------------------------------------------------------ $ Theoretical NASTRAN Temperatures NASTRAN Temperatures $ r(radius) Temperatures (Solids)* (Rings)* $ ------------------------------------------------------------------------ $ 1.0 199.984 202.396 199.932 $ $ 1.1 172.486 173.904 172.448 $ $ 1.2 147.381 148.833 147.355 $ $ 1.3 124.288 124.783 124.269 $ $ 1.4 102.906 102.852 102.894 $ $ 1.5 83.001 82.913 82.992 $ $ 1.6 64.380 64.306 64.375 $ $ 1.7 46.889 46.832 46.886 $ $ 1.8 30.398 30.356 30.397 $ $ 1.9 14.799 14.773 14.798 $ $ 2.0 0.000 0.000 0.000 $ ------------------------------------------------------------------------ $ * These are the average temperatures at a radius. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01122a.inp ================================================ ID D01122A,NASTRAN APP HEAT DIAG 14 SOL 1,0 TIME 10 CEND TITLE = LINEAR STEADY STATE CONDUCTION THROUGH A WASHER SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A LABEL = RING ELEMENTS, FILM HEAT TRANSFER OUTPUT OLOAD = ALL SPCFORCE = ALL THERMAL (PRINT,PUNCH) = ALL ELFORCE = ALL SPC = 350 BEGIN BULK CHBDY 14 100 REV 1 12 +HBDY14 +HBDY14 23 23 CTRAPRG 7 4 5 16 15 .0 200 CTRAPRG 8 5 6 17 16 .0 200 CTRAPRG 9 6 7 18 17 .0 200 CTRAPRG 10 7 8 19 18 .0 200 CTRAPRG 11 8 9 20 19 .0 200 CTRAPRG 12 9 10 21 20 .0 200 CTRAPRG 13 10 11 22 21 .0 200 CTRIARG 1 1 13 12 -45.0 200 CTRIARG 2 1 2 13 .0 200 CTRIARG 3 2 14 13 -45.0 200 CTRIARG 4 2 3 14 .0 200 CTRIARG 5 3 15 14 -45.0 200 CTRIARG 6 3 4 15 .0 200 GRID 1 1.0 .0 .0 GRID 2 1.1 .0 .0 GRID 3 1.2 .0 .0 GRID 4 1.3 .0 .0 GRID 5 1.4 .0 .0 GRID 6 1.5 .0 .0 GRID 7 1.6 .0 .0 GRID 8 1.7 .0 .0 GRID 9 1.8 .0 .0 GRID 10 1.9 .0 .0 GRID 11 2.0 .0 .0 GRID 12 1.0 .0 .1 GRID 13 1.1 .0 .1 GRID 14 1.2 .0 .1 GRID 15 1.3 .0 .1 GRID 16 1.4 .0 .1 GRID 17 1.5 .0 .1 GRID 18 1.6 .0 .1 GRID 19 1.7 .0 .1 GRID 20 1.8 .0 .1 GRID 21 1.9 .0 .1 GRID 22 2.0 .0 .1 MAT4 200 1.0 MAT4 300 1.0 PHBDY 100 300 SEQGP 12 1.1 13 2.1 14 3.1 15 4.1 SEQGP 16 5.1 17 6.1 18 7.1 19 8.1 SEQGP 20 9.1 21 10.1 22 11.1 23 1.0.5 SPC 352 23 488.5 SPC1 351 1 11 22 SPCADD 350 351 352 SPOINT 23 TEMPD 201 .0 ENDDATA ================================================ FILE: inp/d01122a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1 (APP HEAT), Heat Conduction Analysis $ Linear Steady State Heat Conduction Through a Washer $ Using Solid Elements (1-12-1) $ Linear Steady State Heat Conduction Through a Washer $ Using Ring Elements (1-12-2) $ $ A. Description $ $ This problem illustrates the capability of NASTRAN to solve heat conduction $ problems. The washer has a radial heat conduction with the temperature $ specified at the outside and a film heat transfer condition at the inner edge. $ Due to symmetry about the axis and the assumption of negligible axial $ gradients, the temperature depends only upon the radius. $ $ B. Input $ $ In the first NASTRAN model, the solid elements (HEXA1, HEXA2, WEDGE, and $ TETRA) and boundary condition element (HBDY, type AREA4) are used. The $ conductivity of the material is specified on a MAT4 card. Temperatures are $ specified at the outer boundary with SPC cards. Punched temperature output is $ placed on TEMP bulk data cards suitable for static analysis. $ $ Another variation of the problem uses solid of revolution elements (TRIARG and $ TRAPRG) and boundary condition element (HBDY, type REV). The conductivity of $ the material and the convective film coefficient are specified on a MAT4 card. $ The CHBDY card references a scalar point at which the ambient temperature is $ specified using an SPC card. An SPC1 card is used to constrain the temperature $ to zero degrees at gridpoInts on the outer surface. $ $ C. Theory $ $ The mathematical theory for the continuum is simple, and can be solved in $ closed form. The differential equation is $ $ 1 a aU $ - -- (rk--) = 0 (1) $ r ar ar $ $ The boundary conditions are $ $ aU $ -k -- = H(U - U) at r = r (2) $ ar a 1 $ $ and $ $ U = 0 at r = r (3) $ 2 $ $ The solution is $ $ HU $ a $ U(r) = -------------------- ln(r /r) $ (k/r ) + H ln(r /r ) 2 $ 1 2 1 $ $ = 288.516 ln(2/r) $ $ D. Results $ $ A comparison with the NASTRAN results is shown in Table 1. $ $ Table 1. Comparison of Theoretical and NASTRAN Temperatures $ for Heat Conduction in a Washer $ ------------------------------------------------------------------------ $ Theoretical NASTRAN Temperatures NASTRAN Temperatures $ r(radius) Temperatures (Solids)* (Rings)* $ ------------------------------------------------------------------------ $ 1.0 199.984 202.396 199.932 $ $ 1.1 172.486 173.904 172.448 $ $ 1.2 147.381 148.833 147.355 $ $ 1.3 124.288 124.783 124.269 $ $ 1.4 102.906 102.852 102.894 $ $ 1.5 83.001 82.913 82.992 $ $ 1.6 64.380 64.306 64.375 $ $ 1.7 46.889 46.832 46.886 $ $ 1.8 30.398 30.356 30.397 $ $ 1.9 14.799 14.773 14.798 $ $ 2.0 0.000 0.000 0.000 $ ------------------------------------------------------------------------ $ * These are the average temperatures at a radius. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01131a.inp ================================================ ID D01131A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 15 CEND TITLE = LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A DISP = ALL STRESS= ALL SPC = 100 SUBCASE 1 LABEL = PRESSURE LOAD LOAD = 400 SUBCASE 2 LABEL = THERMAL LOAD TEMP(LOAD) = 500 BEGIN BULK CIHEX1 1 200 1 2 20 19 7 8 +HEX1-1 +HEX1-1 26 25 CIHEX1 2 200 2 3 21 20 8 9 +HEX1-2 +HEX1-2 27 26 CIHEX1 3 200 3 4 22 21 9 10 +HEX1-3 +HEX1-3 28 27 CIHEX1 4 200 4 5 23 22 10 11 +HEX1-4 +HEX1-4 29 28 CIHEX1 5 200 5 6 24 23 11 12 +HEX1-5 +HEX1-5 30 29 CIHEX1 6 200 19 20 38 37 25 26 +HEX1-6 +HEX1-6 44 43 CIHEX1 7 200 20 21 39 38 26 27 +HEX1-7 +HEX1-7 45 44 CIHEX1 8 200 21 22 40 39 27 28 +HEX1-8 +HEX1-8 46 45 CIHEX1 9 200 22 23 41 40 28 29 +HEX1-9 +HEX1-9 47 46 CIHEX1 10 200 23 24 42 41 29 30 +HEX1-10 +HEX1-1048 47 CIHEX1 11 200 37 38 56 55 43 44 +HEX1-11 +HEX1-1162 61 CIHEX1 12 200 38 39 57 56 44 45 +HEX1-12 +HEX1-1263 62 CIHEX1 13 200 39 40 58 57 45 46 +HEX1-13 +HEX1-1364 63 CIHEX1 14 200 40 41 59 58 46 47 +HEX1-14 +HEX1-1465 64 CIHEX1 15 200 41 42 60 59 47 48 +HEX1-15 +HEX1-1566 65 CIHEX1 16 200 55 56 74 73 61 62 +HEX1-16 +HEX1-1680 79 CIHEX1 17 200 56 57 75 74 62 63 +HEX1-17 +HEX1-1781 80 CIHEX1 18 200 57 58 76 75 63 64 +HEX1-18 +HEX1-1882 81 CIHEX1 19 200 58 59 77 76 64 65 +HEX1-19 +HEX1-1983 82 CIHEX1 20 200 59 60 78 77 65 66 +HEX1-20 +HEX1-2084 83 CIHEX1 21 200 7 8 26 25 13 14 +HEX1-21 +HEX1-2132 31 CIHEX1 22 200 8 9 27 26 14 15 +HEX1-22 +HEX1-2233 32 CIHEX1 23 200 9 10 28 27 15 16 +HEX1-23 +HEX1-2334 33 CIHEX1 24 200 10 11 29 28 16 17 +HEX1-24 +HEX1-2435 34 CIHEX1 25 200 11 12 30 29 17 18 +HEX1-25 +HEX1-2536 35 CIHEX1 26 200 25 26 44 43 31 32 +HEX1-26 +HEX1-2650 49 CIHEX1 27 200 26 27 45 44 32 33 +HEX1-27 +HEX1-2751 50 CIHEX1 28 200 27 28 46 45 33 34 +HEX1-28 +HEX1-2852 51 CIHEX1 29 200 28 29 47 46 34 35 +HEX1-29 +HEX1-2953 52 CIHEX1 30 200 29 30 48 47 35 36 +HEX1-30 +HEX1-3054 53 CIHEX1 31 200 43 44 62 61 49 50 +HEX1-31 +HEX1-3168 67 CIHEX1 32 200 44 45 63 62 50 51 +HEX1-32 +HEX1-3269 68 CIHEX1 33 200 45 46 64 63 51 52 +HEX1-33 +HEX1-3370 69 CIHEX1 34 200 46 47 65 64 52 53 +HEX1-34 +HEX1-3471 70 CIHEX1 35 200 47 48 66 65 53 54 +HEX1-35 +HEX1-3572 71 CIHEX1 36 200 61 62 80 79 67 68 +HEX1-36 +HEX1-3686 85 CIHEX1 37 200 62 63 81 80 68 69 +HEX1-37 +HEX1-3787 86 CIHEX1 38 200 63 64 82 81 69 70 +HEX1-38 +HEX1-3888 87 CIHEX1 39 200 64 65 83 82 70 71 +HEX1-39 +HEX1-3989 88 CIHEX1 40 200 65 66 84 83 71 72 +HEX1-40 +HEX1-4090 89 CNGRNT 1 6 11 16 21 26 31 36 CNGRNT 2 7 12 17 22 27 32 37 CNGRNT 3 8 13 18 23 28 33 38 CNGRNT 4 9 14 19 24 29 34 39 CNGRNT 5 10 15 20 25 30 35 40 CORD2C 1 0 .0 .0 .0 .0 .0 100.0 +CORD2-1 +CORD2-1100.0 .0 .0 CORD2C 2 .0 .0 .5 .0 .0 100.0 +CORD2-2 +CORD2-2100.0 .0 2.0 CORD2C 3 .0 .0 1.0 .0 .0 100.0 +CORD2-3 +CORD2-3100.0 .0 2.0 GRDSET 1 1 456 GRID 1 4.0 -14.0 GRID 2 4.2 -14.0 GRID 3 4.4 -14.0 GRID 4 4.6 -14.0 GRID 5 4.8 -14.0 GRID 6 5.0 -14.0 GRID 7 2 4.0 -14.0 2 GRID 8 2 4.2 -14.0 2 GRID 9 2 4.4 -14.0 2 GRID 10 2 4.6 -14.0 2 GRID 11 2 4.8 -14.0 2 GRID 12 2 5.0 -14.0 2 GRID 13 3 4.0 -14.0 3 GRID 14 3 4.2 -14.0 3 GRID 15 3 4.4 -14.0 3 GRID 16 3 4.6 -14.0 3 GRID 17 3 4.8 -14.0 3 GRID 18 3 5.0 -14.0 3 GRID 19 4.0 -7.0 GRID 20 4.2 -7.0 GRID 21 4.4 -7.0 GRID 22 4.6 -7.0 GRID 23 4.8 -7.0 GRID 24 5.0 -7.0 GRID 25 2 4.0 -7.0 2 GRID 26 2 4.2 -7.0 2 GRID 27 2 4.4 -7.0 2 GRID 28 2 4.6 -7.0 2 GRID 29 2 4.8 -7.0 2 GRID 30 2 5.0 -7.0 2 GRID 31 3 4.0 -7.0 3 GRID 32 3 4.2 -7.0 3 GRID 33 3 4.4 -7.0 3 GRID 34 3 4.6 -7.0 3 GRID 35 3 4.8 -7.0 3 GRID 36 3 5.0 -7.0 3 GRID 37 4.0 GRID 38 4.2 GRID 39 4.4 GRID 40 4.6 GRID 41 4.8 GRID 42 5.0 GRID 43 2 4.0 2 GRID 44 2 4.2 2 GRID 45 2 4.4 2 GRID 46 2 4.6 2 GRID 47 2 4.8 2 GRID 48 2 5.0 2 GRID 49 3 4.0 3 GRID 50 3 4.2 3 GRID 51 3 4.4 3 GRID 52 3 4.6 3 GRID 53 3 4.8 3 GRID 54 3 5.0 3 GRID 55 4.0 7.0 GRID 56 4.2 7.0 GRID 57 4.4 7.0 GRID 58 4.6 7.0 GRID 59 4.8 7.0 GRID 60 5.0 7.0 GRID 61 2 4.0 7.0 2 GRID 62 2 4.2 7.0 2 GRID 63 2 4.4 7.0 2 GRID 64 2 4.6 7.0 2 GRID 65 2 4.8 7.0 2 GRID 66 2 5.0 7.0 2 GRID 67 3 4.0 7.0 3 GRID 68 3 4.2 7.0 3 GRID 69 3 4.4 7.0 3 GRID 70 3 4.6 7.0 3 GRID 71 3 4.8 7.0 3 GRID 72 3 5.0 7.0 3 GRID 73 4.0 14.0 GRID 74 4.2 14.0 GRID 75 4.4 14.0 GRID 76 4.6 14.0 GRID 77 4.8 14.0 GRID 78 5.0 14.0 GRID 79 2 4.0 14.0 2 GRID 80 2 4.2 14.0 2 GRID 81 2 4.4 14.0 2 GRID 82 2 4.6 14.0 2 GRID 83 2 4.8 14.0 2 GRID 84 2 5.0 14.0 2 GRID 85 3 4.0 14.0 3 GRID 86 3 4.2 14.0 3 GRID 87 3 4.4 14.0 3 GRID 88 3 4.6 14.0 3 GRID 89 3 4.8 14.0 3 GRID 90 3 5.0 14.0 3 MAT1 300 3.+7 .3 7.535-4 1.428-5 .0 PIHEX 200 300 4 4.5 10.0 PLOAD3 400 -10.0 1 1 25 21 7 31 PLOAD3 400 -10.0 6 19 43 26 25 49 PLOAD3 400 -10.0 11 37 61 31 43 67 PLOAD3 400 -10.0 16 55 79 36 61 85 SPC1 100 2 1 THRU 18 SPC1 100 2 73 THRU 90 SPC1 100 3 1 THRU 6 SPC1 100 3 13 THRU 18 SPC1 100 3 19 THRU 24 SPC1 100 3 31 THRU 36 SPC1 100 3 37 THRU 42 SPC1 100 3 49 THRU 54 SPC1 100 3 55 THRU 60 SPC1 100 3 67 THRU 72 SPC1 100 3 73 THRU 78 SPC1 100 3 85 THRU 90 TEMP 500 1 100.0 7 100.0 13 100.0 TEMP 500 2 78.14 8 78.14 14 78.14 TEMP 500 3 57.29 9 57.29 15 57.29 TEMP 500 4 37.37 10 37.37 16 37.37 TEMP 500 5 18.29 11 18.29 17 18.29 TEMP 500 19 100.0 25 100.0 31 100.0 TEMP 500 20 78.14 26 78.14 32 78.14 TEMP 500 21 57.29 27 57.29 33 57.29 TEMP 500 22 37.37 28 37.37 34 37.37 TEMP 500 23 18.29 29 18.29 35 18.29 TEMP 500 37 100.0 43 100.0 49 100.0 TEMP 500 38 78.14 44 78.14 50 78.14 TEMP 500 39 57.29 45 57.29 51 57.29 TEMP 500 40 37.37 46 37.37 52 37.37 TEMP 500 41 18.29 47 18.29 53 18.29 TEMP 500 55 100.0 61 100.0 67 100.0 TEMP 500 56 78.14 62 78.14 68 78.14 TEMP 500 57 57.29 63 57.29 69 57.29 TEMP 500 58 37.37 64 37.37 70 37.37 TEMP 500 59 18.29 65 18.29 71 18.29 TEMP 500 73 100.0 79 100.0 85 100.0 TEMP 500 74 78.14 80 78.14 86 78.14 TEMP 500 75 57.29 81 57.29 87 57.29 TEMP 500 76 37.37 82 37.37 88 37.37 TEMP 500 77 18.29 83 18.29 89 18.29 TEMPD 500 .0 ENDDATA ================================================ FILE: inp/d01131a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Thermal and Pressure Loads on a Long Pipe Using $ Linear Isoparametric Elements (1-13-1) $ Thermal and Pressure Loads on a Long Pipe Using $ Quadratic Isoparametric Elements (1-13-2) $ Thermal and Pressure Loads on a Long Pipe Using $ Cubic Isoparametric Elements (1-13-3) $ $ A. Description $ $ These problems demonstrate the use of the linear, quadratic, and cubic $ isoparametric solid elements, IHEX1, IHEX2, and IHEX3, respectively. A long $ pipe, assumed to be in a state of plane strain, is subjected to an internal $ pressure and a thermal gradient in the radial direction. $ $ B. Input $ $ 1. Parameters: $ $ r = a = 4 in. (radius to the inner surface) $ inner $ $ r = b = 5 in. (radius to the outer surface) $ outer $ $ 6 $ E = 30. x 10 psi (Young's Modulus) $ $ v = 0.3 (Poisson's Ratio) $ $ -5 $ alpha = 1.428 x 10 (thermal expansion coefficient) $ $ 2 $ -4 lb-sec $ p = 7.535 x 10 -------- (mass density) $ 4 $ in $ $ p = 10 psi (inner surface pressure) $ $ T = 100.0 deg. F (inner surface temperature) $ i $ $ T = 0.0 deg. F (outer surface temperature) $ o $ $ 2. Boundary Conditions: $ $ u sub theta = 0 at all points on the right side $ $ u sub theta = 0 at all points on the left side $ $ u = 0 at all points on the bottom surface $ z $ $ u = 0 at all points on the top surface $ z $ $ 3. Loads: $ $ Subcase 1, $ $ p = 10 psi (internal pressure) $ $ Subcase 2, $ $ (T -T $ i o) (b) 100 (5) $ T = -------- ln(-) = -------- ln(-) , where r is any radius. $ r (b) (r) ln(1.25) (r) $ ln(-) $ (a) $ $ C. Theory $ $ 1. Subcase 1 $ $ The normal stresses due to the pressure load (Reference 24) are obtained by $ $ 2 2 2 $ a b p pa $ sigma = - ------- -- + ------- (1) $ r 2 2 2 2 2 $ (b -a ) r (b -a ) $ $ 2 2 2 $ a b p pa $ sigma sub theta = ------- -- + ------- (2) $ 2 2 2 2 2 $ (b -a ) r (b -a ) $ $ and $ 2 $ pa $ sigma = 2v ------- (3) $ z 2 2 $ (b -a ) $ $ where r is the radius and all shearing stresses are zero. $ $ The displacement in the radial direction is $ $ 2 2 2 $ (l-2v)(l+v) pa (l+v) l pa b $ u = ----------- r ------- + ------ - ------- (4) $ r E 2 2 E r 2 2 $ (b -a ) (b -a ) $ $ and all other displacements are zero. $ $ 2. Subcase 2 $ $ The stresses in the radial and tangential directions due to the thermal load $ (Reference 24) are given by $ $ alphaET + 2 2 + $ i | (b) a b (b) | $ sigma = ----------- |- ln(-) - ------- (l - --) ln(-) | (5) $ r (b) | (r) 2 2 2 (a) | $ 2(l-v)ln(-) | (b -a ) r | $ (a) + + $ and $ $ alphaET + 2 2 + $ i | (b) a b (b) | $ sigma = ----------- |l - ln(-) - ------- (l + --) ln(-) | (6) $ theta (b) | (r) 2 2 2 (a) | $ 2(l-v)ln(-) | (b -a ) r | $ (a) + + $ $ The stress in the axial direction is obtained via the procedure contained in $ the reference as $ $ alphaET + 2 + $ i | 2a v (b) (b) | $ sigma = ----------- |v - ------- ln(-) - 2 ln(-) | (7) $ theta (b) | 2 2 (a) (r) | $ 2(l-v)ln(-) | (b -a ) | $ (a) + + $ $ All shearing stresses are zero. $ $ The displacement in the radial direction is $ $ ++ + + $ T || | 2 2 | $ (l + v) i || l | a b (b) | $ u = ------- alpha ----- || - - |----------- ln(-) | $ r (l + v) (b) || r | 2 2 (a) | $ ln(-) || | 2(b -a ) | $ (a) ++ + + $ $ + + ++ $ | 2 | || $ r | (b) ( 2a (b)) | || $ + - | 2 ln(-) + l + (l-2v) ( l - ------- ln(-)) | || (8) $ 4 | (r) ( 2 2 (a)) | || $ | (b -a ) | || $ + + ++ $ $ D. Results $ $ Note that five IHEX1 elements were used along the radial thickness, whereas $ one element was used for each of the IHEX2 and IHEX3 cases. Two values for the $ stress occur at the boundary of two adjacent IHEX1 elements, resulting in a $ sawtooth pattern. $ $ APPLICABLE REFERENCES $ $ 24. Timoshenko, S. P. and J. N. Goodier, Theory of Elasticity, McGraw-Hill, $ Inc., 1961. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01132a.inp ================================================ ID D01132A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 5 CEND TITLE = LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A DISP = ALL STRESS = ALL SPC = 200 SUBCASE 1 LABEL = PRESSURE LOAD LOAD = 400 SUBCASE 2 LABEL = THERMAL LOAD TEMP(LOAD) = 500 BEGIN BULK CIHEX2 1 200 1 2 3 10 15 14 +HEX-1 +HEX-1 13 9 4 5 17 16 6 7 +HEX-11 +HEX-11 8 12 20 19 18 11 CIHEX2 2 200 13 14 15 22 27 26 +HEX-21 +HEX-21 25 21 16 17 29 28 18 19 +HEX-22 +HEX-22 20 24 32 31 30 23 CNGRNT 1 2 CORD2C 10 0 .0 .0 .0 .0 .0 100.0 +CRD-1 +CRD-1 100.0 .0 .0 GRDSET 10 10 456 GRID 1 4.0 -14.0 .0 GRID 2 4.5 -14.0 .0 GRID 3 5.0 -14.0 .0 GRID 4 4.0 -14.0 .5 GRID 5 5.0 -14.0 .5 GRID 6 4.0 -14.0 1.0 GRID 7 4.5 -14.0 1.0 GRID 8 5.0 -14.0 1.0 GRID 9 4.0 -7.0 .0 GRID 10 5.0 -7.0 .0 GRID 11 4.0 -7.0 1.0 GRID 12 5.0 -7.0 1.0 GRID 13 4.0 .0 .0 GRID 14 4.5 .0 .0 GRID 15 5.0 .0 .0 GRID 16 4.0 .0 .5 GRID 17 5.0 .0 .5 GRID 18 4.0 .0 1.0 GRID 19 4.5 .0 1.0 GRID 20 5.0 .0 1.0 GRID 21 4.0 7.0 .0 GRID 22 5.0 7.0 .0 GRID 23 4.0 7.0 1.0 GRID 24 5.0 7.0 1.0 GRID 25 4.0 14.0 .0 GRID 26 4.5 14.0 .0 GRID 27 5.0 14.0 .0 GRID 28 4.0 14.0 .5 GRID 29 5.0 14.0 .5 GRID 30 4.0 14.0 1.0 GRID 31 4.5 14.0 1.0 GRID 32 5.0 14.0 1.0 MAT1 300 3.+7 .3 7.535-4 1.428-5 .0 PIHEX 200 300 4 PLOAD3 400 -10.0 1 13 6 2 25 18 SPC1 200 2 1 THRU 8 SPC1 200 2 25 THRU 32 SPC1 200 3 1 2 3 9 10 13 +SPC-A3 +SPC-A3 14 15 21 22 25 26 27 SPC1 200 3 6 7 8 11 12 18 +SPC-A4 +SPC-A4 19 20 23 24 30 31 32 TEMP 500 1 100.0 4 100.0 6 100.0 TEMP 500 9 100.0 11 100.0 13 100.0 TEMP 500 14 47.22 19 47.22 26 47.22 TEMP 500 16 100.0 18 100.0 21 100.0 TEMP 500 23 100.0 25 100.0 28 100.0 TEMP 500 30 100.0 2 47.22 7 47.22 TEMP 500 31 47.22 TEMPD 500 .0 ENDDATA ================================================ FILE: inp/d01132a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Thermal and Pressure Loads on a Long Pipe Using $ Linear Isoparametric Elements (1-13-1) $ Thermal and Pressure Loads on a Long Pipe Using $ Quadratic Isoparametric Elements (1-13-2) $ Thermal and Pressure Loads on a Long Pipe Using $ Cubic Isoparametric Elements (1-13-3) $ $ A. Description $ $ These problems demonstrate the use of the linear, quadratic, and cubic $ isoparametric solid elements, IHEX1, IHEX2, and IHEX3, respectively. A long $ pipe, assumed to be in a state of plane strain, is subjected to an internal $ pressure and a thermal gradient in the radial direction. $ $ B. Input $ $ 1. Parameters: $ $ r = a = 4 in. (radius to the inner surface) $ inner $ $ r = b = 5 in. (radius to the outer surface) $ outer $ $ 6 $ E = 30. x 10 psi (Young's Modulus) $ $ v = 0.3 (Poisson's Ratio) $ $ -5 $ alpha = 1.428 x 10 (thermal expansion coefficient) $ $ 2 $ -4 lb-sec $ p = 7.535 x 10 -------- (mass density) $ 4 $ in $ $ p = 10 psi (inner surface pressure) $ $ T = 100.0 deg. F (inner surface temperature) $ i $ $ T = 0.0 deg. F (outer surface temperature) $ o $ $ 2. Boundary Conditions: $ $ u sub theta = 0 at all points on the right side $ $ u sub theta = 0 at all points on the left side $ $ u = 0 at all points on the bottom surface $ z $ $ u = 0 at all points on the top surface $ z $ $ 3. Loads: $ $ Subcase 1, $ $ p = 10 psi (internal pressure) $ $ Subcase 2, $ $ (T -T $ i o) (b) 100 (5) $ T = -------- ln(-) = -------- ln(-) , where r is any radius. $ r (b) (r) ln(1.25) (r) $ ln(-) $ (a) $ $ C. Theory $ $ 1. Subcase 1 $ $ The normal stresses due to the pressure load (Reference 24) are obtained by $ $ 2 2 2 $ a b p pa $ sigma = - ------- -- + ------- (1) $ r 2 2 2 2 2 $ (b -a ) r (b -a ) $ $ 2 2 2 $ a b p pa $ sigma sub theta = ------- -- + ------- (2) $ 2 2 2 2 2 $ (b -a ) r (b -a ) $ $ and $ 2 $ pa $ sigma = 2v ------- (3) $ z 2 2 $ (b -a ) $ $ where r is the radius and all shearing stresses are zero. $ $ The displacement in the radial direction is $ $ 2 2 2 $ (l-2v)(l+v) pa (l+v) l pa b $ u = ----------- r ------- + ------ - ------- (4) $ r E 2 2 E r 2 2 $ (b -a ) (b -a ) $ $ and all other displacements are zero. $ $ 2. Subcase 2 $ $ The stresses in the radial and tangential directions due to the thermal load $ (Reference 24) are given by $ $ alphaET + 2 2 + $ i | (b) a b (b) | $ sigma = ----------- |- ln(-) - ------- (l - --) ln(-) | (5) $ r (b) | (r) 2 2 2 (a) | $ 2(l-v)ln(-) | (b -a ) r | $ (a) + + $ and $ $ alphaET + 2 2 + $ i | (b) a b (b) | $ sigma = ----------- |l - ln(-) - ------- (l + --) ln(-) | (6) $ theta (b) | (r) 2 2 2 (a) | $ 2(l-v)ln(-) | (b -a ) r | $ (a) + + $ $ The stress in the axial direction is obtained via the procedure contained in $ the reference as $ $ alphaET + 2 + $ i | 2a v (b) (b) | $ sigma = ----------- |v - ------- ln(-) - 2 ln(-) | (7) $ theta (b) | 2 2 (a) (r) | $ 2(l-v)ln(-) | (b -a ) | $ (a) + + $ $ All shearing stresses are zero. $ $ The displacement in the radial direction is $ $ ++ + + $ T || | 2 2 | $ (l + v) i || l | a b (b) | $ u = ------- alpha ----- || - - |----------- ln(-) | $ r (l + v) (b) || r | 2 2 (a) | $ ln(-) || | 2(b -a ) | $ (a) ++ + + $ $ + + ++ $ | 2 | || $ r | (b) ( 2a (b)) | || $ + - | 2 ln(-) + l + (l-2v) ( l - ------- ln(-)) | || (8) $ 4 | (r) ( 2 2 (a)) | || $ | (b -a ) | || $ + + ++ $ $ D. Results $ $ Note that five IHEX1 elements were used along the radial thickness, whereas $ one element was used for each of the IHEX2 and IHEX3 cases. Two values for the $ stress occur at the boundary of two adjacent IHEX1 elements, resulting in a $ sawtooth pattern. $ $ APPLICABLE REFERENCES $ $ 24. Timoshenko, S. P. and J. N. Goodier, Theory of Elasticity, McGraw-Hill, $ Inc., 1961. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01133a.inp ================================================ ID D01133A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 15 CEND TITLE = LOADS ON A LONG PIPE USING CUBIC ISOPARAMETRIC ELEMENTS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A DISPLACEMENT =ALL STRESS = ALL SPC = 200 SUBCASE 1 LABEL = PRESSURE LOAD LOAD = 80 SUBCASE 2 LABEL = THERMAL LOAD TEMP(LOAD) = 90 BEGIN BULK CIHEX3 10 60 1 2 3 4 5 6 +HEX-31 +HEX-31 7 8 9 10 11 12 13 14 +HEX-32 +HEX-32 15 16 17 18 19 20 21 22 +HEX-33 +HEX-33 23 24 25 26 27 28 29 30 +HEX-34 +HEX-34 31 32 CORD2C 111 0 .0 .0 .0 .0 .0 50.0 +COR1 +COR1 50.0 .0 .0 GRDSET 111 111 456 GRID 1 4.0 .0 .0 GRID 2 4.25 .0 .0 GRID 3 4.6 .0 .0 GRID 4 5.0 .0 .0 GRID 5 5.0 9.0 .0 GRID 6 5.0 18.0 .0 GRID 7 5.0 27.0 .0 GRID 8 4.6 27.0 .0 GRID 9 4.25 27.0 .0 GRID 10 4.0 27.0 .0 GRID 11 4.0 18.0 .0 GRID 12 4.0 9.0 .0 GRID 13 4.0 .0 .33 GRID 14 5.0 .0 .33 GRID 15 5.0 27.0 .33 GRID 16 4.0 27.0 .33 GRID 17 4.0 .0 .67 GRID 18 5.0 .0 .67 GRID 19 5.0 27.0 .67 GRID 20 4.0 27.0 .67 GRID 21 4.0 .0 1.0 GRID 22 4.25 .0 1.0 GRID 23 4.6 .0 1.0 GRID 24 5.0 .0 1.0 GRID 25 5.0 9.0 1.0 GRID 26 5.0 18.0 1.0 GRID 27 5.0 27.0 1.0 GRID 28 4.6 27.0 1.0 GRID 29 4.25 27.0 1.0 GRID 30 4.0 27.0 1.0 GRID 31 4.0 18.0 1.0 GRID 32 4.0 9.0 1.0 MAT1 70 3.+7 .3 7.535-4 1.428-5 .0 PIHEX 60 70 4 PLOAD3 80 -10.0 10 30 1 SPC1 200 2 1 2 3 4 13 14 +SPC-A2 +SPC-A2 17 18 21 22 23 24 7 8 +SPC-B2 +SPC-B2 9 10 15 16 19 20 27 28 +SPC-C2 +SPC-C2 29 30 SPC1 200 3 1 THRU 12 SPC1 200 3 21 THRU 32 TEMP 90 1 100.0 12 100.0 11 100.0 TEMP 90 2 72.83 9 72.83 22 72.83 TEMP 90 10 100.0 13 100.0 16 100.0 TEMP 90 17 100.0 20 100.0 21 100.0 TEMP 90 23 37.37 28 37.37 TEMP 90 29 72.83 3 37.37 8 37.37 TEMP 90 32 100.0 31 100.0 30 100.0 TEMPD 90 .0 ENDDATA ================================================ FILE: inp/d01133a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Thermal and Pressure Loads on a Long Pipe Using $ Linear Isoparametric Elements (1-13-1) $ Thermal and Pressure Loads on a Long Pipe Using $ Quadratic Isoparametric Elements (1-13-2) $ Thermal and Pressure Loads on a Long Pipe Using $ Cubic Isoparametric Elements (1-13-3) $ $ A. Description $ $ These problems demonstrate the use of the linear, quadratic, and cubic $ isoparametric solid elements, IHEX1, IHEX2, and IHEX3, respectively. A long $ pipe, assumed to be in a state of plane strain, is subjected to an internal $ pressure and a thermal gradient in the radial direction. $ $ B. Input $ $ 1. Parameters: $ $ r = a = 4 in. (radius to the inner surface) $ inner $ $ r = b = 5 in. (radius to the outer surface) $ outer $ $ 6 $ E = 30. x 10 psi (Young's Modulus) $ $ v = 0.3 (Poisson's Ratio) $ $ -5 $ alpha = 1.428 x 10 (thermal expansion coefficient) $ $ 2 $ -4 lb-sec $ p = 7.535 x 10 -------- (mass density) $ 4 $ in $ $ p = 10 psi (inner surface pressure) $ $ T = 100.0 deg. F (inner surface temperature) $ i $ $ T = 0.0 deg. F (outer surface temperature) $ o $ $ 2. Boundary Conditions: $ $ u sub theta = 0 at all points on the right side $ $ u sub theta = 0 at all points on the left side $ $ u = 0 at all points on the bottom surface $ z $ $ u = 0 at all points on the top surface $ z $ $ 3. Loads: $ $ Subcase 1, $ $ p = 10 psi (internal pressure) $ $ Subcase 2, $ $ (T -T $ i o) (b) 100 (5) $ T = -------- ln(-) = -------- ln(-) , where r is any radius. $ r (b) (r) ln(1.25) (r) $ ln(-) $ (a) $ $ C. Theory $ $ 1. Subcase 1 $ $ The normal stresses due to the pressure load (Reference 24) are obtained by $ $ 2 2 2 $ a b p pa $ sigma = - ------- -- + ------- (1) $ r 2 2 2 2 2 $ (b -a ) r (b -a ) $ $ 2 2 2 $ a b p pa $ sigma sub theta = ------- -- + ------- (2) $ 2 2 2 2 2 $ (b -a ) r (b -a ) $ $ and $ 2 $ pa $ sigma = 2v ------- (3) $ z 2 2 $ (b -a ) $ $ where r is the radius and all shearing stresses are zero. $ $ The displacement in the radial direction is $ $ 2 2 2 $ (l-2v)(l+v) pa (l+v) l pa b $ u = ----------- r ------- + ------ - ------- (4) $ r E 2 2 E r 2 2 $ (b -a ) (b -a ) $ $ and all other displacements are zero. $ $ 2. Subcase 2 $ $ The stresses in the radial and tangential directions due to the thermal load $ (Reference 24) are given by $ $ alphaET + 2 2 + $ i | (b) a b (b) | $ sigma = ----------- |- ln(-) - ------- (l - --) ln(-) | (5) $ r (b) | (r) 2 2 2 (a) | $ 2(l-v)ln(-) | (b -a ) r | $ (a) + + $ and $ $ alphaET + 2 2 + $ i | (b) a b (b) | $ sigma = ----------- |l - ln(-) - ------- (l + --) ln(-) | (6) $ theta (b) | (r) 2 2 2 (a) | $ 2(l-v)ln(-) | (b -a ) r | $ (a) + + $ $ The stress in the axial direction is obtained via the procedure contained in $ the reference as $ $ alphaET + 2 + $ i | 2a v (b) (b) | $ sigma = ----------- |v - ------- ln(-) - 2 ln(-) | (7) $ theta (b) | 2 2 (a) (r) | $ 2(l-v)ln(-) | (b -a ) | $ (a) + + $ $ All shearing stresses are zero. $ $ The displacement in the radial direction is $ $ ++ + + $ T || | 2 2 | $ (l + v) i || l | a b (b) | $ u = ------- alpha ----- || - - |----------- ln(-) | $ r (l + v) (b) || r | 2 2 (a) | $ ln(-) || | 2(b -a ) | $ (a) ++ + + $ $ + + ++ $ | 2 | || $ r | (b) ( 2a (b)) | || $ + - | 2 ln(-) + l + (l-2v) ( l - ------- ln(-)) | || (8) $ 4 | (r) ( 2 2 (a)) | || $ | (b -a ) | || $ + + ++ $ $ D. Results $ $ Note that five IHEX1 elements were used along the radial thickness, whereas $ one element was used for each of the IHEX2 and IHEX3 cases. Two values for the $ stress occur at the boundary of two adjacent IHEX1 elements, resulting in a $ sawtooth pattern. $ $ APPLICABLE REFERENCES $ $ 24. Timoshenko, S. P. and J. N. Goodier, Theory of Elasticity, McGraw-Hill, $ Inc., 1961. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01141a.inp ================================================ ID D01141A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 5 CEND TITLE = STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A DISPLACEMENT = ALL ELFORCE = ALL SUBCASE 1 LABEL = AXIAL LOAD LOAD = 1 SUBCASE 2 LABEL = BENDING LOAD LOAD = 2 BEGIN BULK CBAR 6 1 6 7 .0 1.0 .0 1 FORCE 1 7 1. 1. FORCE 2 7 1. 1. GENEL 1 2 1 2 2 2 6 +G11 +G11 Z .1666667.0 .0 .66666671.0 2.0 GENEL 2 2 1 2 2 2 6 +G21 +G21 3 1 3 2 3 6 +G22 +G22 K 6. .0 .0 -6. .0 .0 6. +G23 +G23 3. .0 -6. 3. 2. .0 -3. 1. +G24 +G24 6. .0 .0 6. -3. 2. GENEL 3 3 1 3 2 3 6 +G31 +G31 UD 4 1 4 2 4 6 +G32 +G32 K 6. .0 .0 6. 3. 2. +G33 +G33 S 1. .0 .0 .0 1. -1. .0 +G34 +G34 .0 1. GENEL 4 4 1 4 2 4 6 +G41 +G41 UD 5 1 5 2 5 6 +G42 +G42 K 6. .0 .0 6. 3. 2. GENEL 5 5 1 5 2 5 6 +G51 +G51 UD 6 1 6 2 6 6 +G52 +G52 Z .166666 .0 .0 .666667 -1. 2. +G53 +G53 S 1. .0 .0 .0 1. -1. .0 +G54 +G54 .0 1. GRDSET 345 GRID 1 .0 .0 .0 123456 GRID 2 1. .0 .0 GRID 3 2. .0 .0 GRID 4 3. .0 .0 GRID 5 4. .0 .0 GRID 6 5. .0 .0 GRID 7 6.0 .0 .0 MAT1 1 6. .3 PBAR 1 1 1. .083333 ENDDATA ================================================ FILE: inp/d01141a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Static Analysis of a Beam Using General Elements (1-14-1) $ $ A. Description $ $ This problem demonstrates the use of general GENEL elements having various $ types of input format in the static analysis of a cantilever beam subjected to $ tension and bending. The beam consists of five GENEL elements and one BAR $ element. $ $ The GENEL elements are constructed as follows: $ $ GENEL Element Approach Matrix Size {u } [S] $ d $ $ 1 Flexibility 3 No No $ 2 Stiffness 6 No No $ 3 Stiffness 3 Yes Yes $ 4 Stiffness 3 Yes No $ 5 Flexibility 3 Yes No $ $ B. Input $ $ 1. Parameters $ $ l = 6.0 m (length) $ $ 2 $ E = 6.0 N/m (modulus of elasticity) $ $ V = 0.3 (Poisson's ratio) $ $ 2 $ A = 1.0 m (cross-sectional area) $ $ 4 $ I = .083 m (bending moment of inertia) $ $ F = 1.0 N (axial load) $ x $ $ P = 1.0 N (transverse load) $ y $ $ C. Theory $ $ The stiffness matrix for the element in its general form is given in section 8 $ of the NASTRAN Programmer's Manual. $ $ Define [Z] as the matrix of deflection influence coefficients (flexibility $ matrix) whose terms are {u } when {u } is rigidly constrained, $ i d $ [K] as the stiffness matrix, $ [S] as a rigid body matrix whose terms are {u } due to unit motions of {u } $ i d $ when all {f } = 0, $ i $ {f } as the vector of forces applied to the element at {u }, $ i i $ and {f } as the vector of forces applied to the element at {u }. They are $ d d $ assumed to be statically related to the {f } forces, i.e., they constitute a $ i $ nonredundant set of reactions for the element. If transverse shear is neglected $ and the beam is confined to motion in the X-Y plane, then $ $ {f } = [K] {u } $ i i $ $ where $ + + $ | F | + + $ | V | | deltax | $ {f } = | 2| {u } = | deltay | $ i | M | i | deltaz | $ | 1| + + $ + + $ + + $ | AE | + + $ | -- 0 0 | | 6 0 0 | $ | l | | | $ | 12EI 6EI | | | $ [K] = | 0 ---- ---- | = | 0 6 3 | $ | 3 2 | | | $ | l l | | | $ | | | | $ | 6EI 4EI | | 0 3 2 | $ | 0 ---- ---- | + + $ | 2 l | $ | l | $ + + $ + + $ | 1 | $ | - 0 0 | $ | 6 | $ -1 | 2 | $ [F] = [K] | 0 - -1 | $ | 3 | $ | | $ | 0 -1 2 | $ + + $ $ and $ + + + + $ |1 0 ^u | | 1 0 0 | $ | y | | | $ | | | | $ [S] = |0 1 ^u | = | 0 1 -1 | $ | x | | | $ | | | | $ |0 0 1 | | 0 0 1 | $ + + + + $ $ where ^u = u - u ,i.e., the difference between the dependent displacement $ d i $ degree of freedom {u } and the independent displacement degree of freedom $ d $ {u }. $ i $ $ D. Results $ $ The theoretical maximum deflections of the cantilever beam subjected to $ tension and bending (for the input values) are $ $ F $ l $ deltax = -- = 1.0 m (tension) $ AE $ $ and $ $ 3 $ Pl $ deltay = --- = 144.0 m (bending) $ 3EI $ $ These results are obtained by NASTRAN. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01151a.inp ================================================ NASTRAN FILE=PLT2 ID D01151A,NASTRAN APP DISPLACEMENT SOL 1,1 TIME 90 CEND TITLE = ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SHELL SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A AXISYM = COSINE LOAD = 20 SET 10 = 11 THRU 34, 111 THRU 231, 235, 241, 245, 251, 255, 261, 265, 271, 275, 281, 285, 291, 295, 301, 305, 311, 315, 321, 325, 331, 335, 341, 345, 351, 355, 361, 365, 371, 375, 381, 385, 391, 395, 401, 405, 411 THRU 415 SET 9 = 111 THRU 227, 231, 234, 241, 244, 251, 254, 261, 264, 271, 274, 281, 284, 291, 294, 301, 304, 311, 314, 321, 324, 331, 334, 341, 344, 351, 354, 361, 364, 371, 374, 381, 384, 391, 394, 401 THRU 404 HARMONICS = ALL DISPLACEMENT = 10 OLOAD = ALL STRESS = 9 ELFORCE= 9 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A OUTPUT(PLOT) PLOTTER NASTPLT SET 1 = ALL $ $ CONVERT IDS TO NASTRAN IDS FOR ELEMENTS 111 THRU 227 (ID*1000+N) $ SET 2 INCLUDE ELEMENTS 111001 THRU 227001 AXES Z, X, Y VIEW 0.0, 0.0, 0.0 FIND SCALE, ORIGIN 1, SET 1 PTITLE = FULL MODEL PLOT SET 1, ORIGIN 1 FIND SCALE, ORIGIN 2, SET 2 PTITLE = LOADED SECTION (TRAPAX) AND TRANSITION SECTION (TRIAAX) PLOT SET 2, ORIGIN 2 BEGIN BULK AXIC 10 CTRAPAX 111 5 111 112 122 121 CTRAPAX 112 5 112 113 123 122 CTRAPAX 113 5 113 114 124 123 CTRAPAX 121 5 121 122 132 131 CTRAPAX 122 5 122 123 133 132 CTRAPAX 123 5 123 124 134 133 CTRAPAX 131 5 131 132 142 141 CTRAPAX 132 5 132 133 143 142 CTRAPAX 133 5 133 134 144 143 CTRAPAX 141 5 141 142 152 151 CTRAPAX 142 5 142 143 153 152 CTRAPAX 143 5 143 144 154 153 CTRAPAX 151 5 151 152 162 161 CTRAPAX 152 5 152 153 163 162 CTRAPAX 153 5 153 154 164 163 CTRAPAX 161 5 161 162 172 171 CTRAPAX 162 5 162 163 173 172 CTRAPAX 163 5 163 164 174 173 CTRAPAX 171 5 171 172 182 181 CTRAPAX 172 5 172 173 183 182 CTRAPAX 173 5 173 174 184 183 CTRAPAX 231 5 231 232 242 241 CTRAPAX 232 5 232 233 243 242 CTRAPAX 233 5 233 234 244 243 CTRAPAX 234 5 234 235 245 244 CTRAPAX 241 5 241 242 252 251 CTRAPAX 242 5 242 243 253 252 CTRAPAX 243 5 243 244 254 253 CTRAPAX 244 5 244 245 255 254 CTRAPAX 251 5 251 252 262 261 CTRAPAX 252 5 252 253 263 262 CTRAPAX 253 5 253 254 264 263 CTRAPAX 254 5 254 255 265 264 CTRAPAX 261 5 261 262 272 271 CTRAPAX 262 5 262 263 273 272 CTRAPAX 263 5 263 264 274 273 CTRAPAX 264 5 264 265 275 274 CTRAPAX 271 5 271 272 282 281 CTRAPAX 272 5 272 273 283 282 CTRAPAX 273 5 273 274 284 283 CTRAPAX 274 5 274 275 285 284 CTRAPAX 281 5 281 282 292 291 CTRAPAX 282 5 282 283 293 292 CTRAPAX 283 5 283 284 294 293 CTRAPAX 284 5 284 285 295 294 CTRAPAX 291 5 291 292 302 301 CTRAPAX 292 5 292 293 303 302 CTRAPAX 293 5 293 294 304 303 CTRAPAX 294 5 294 295 305 304 CTRAPAX 301 5 301 302 312 311 CTRAPAX 302 5 302 303 313 312 CTRAPAX 303 5 303 304 314 313 CTRAPAX 304 5 304 305 315 314 CTRAPAX 311 5 311 312 322 321 CTRAPAX 312 5 312 313 323 322 CTRAPAX 313 5 313 314 324 323 CTRAPAX 314 5 314 315 325 324 CTRAPAX 321 5 321 322 332 331 CTRAPAX 322 5 322 323 333 332 CTRAPAX 323 5 323 324 334 333 CTRAPAX 324 5 324 325 335 334 CTRAPAX 331 5 331 332 342 341 CTRAPAX 332 5 332 333 343 342 CTRAPAX 333 5 333 334 344 343 CTRAPAX 334 5 334 335 345 344 CTRAPAX 341 5 341 342 352 351 CTRAPAX 342 5 342 343 353 352 CTRAPAX 343 5 343 344 354 353 CTRAPAX 344 5 344 345 355 354 CTRAPAX 351 5 351 352 362 361 CTRAPAX 352 5 352 353 363 362 CTRAPAX 353 5 353 354 364 363 CTRAPAX 354 5 354 355 365 364 CTRAPAX 361 5 361 362 372 371 CTRAPAX 362 5 362 363 373 372 CTRAPAX 363 5 363 364 374 373 CTRAPAX 364 5 364 365 375 374 CTRAPAX 371 5 371 372 382 381 CTRAPAX 372 5 372 373 383 382 CTRAPAX 373 5 373 374 384 383 CTRAPAX 374 5 374 375 385 384 CTRAPAX 381 5 381 382 392 391 CTRAPAX 382 5 382 383 393 392 CTRAPAX 383 5 383 384 394 393 CTRAPAX 384 5 384 385 395 394 CTRAPAX 391 5 391 392 402 401 CTRAPAX 392 5 392 393 403 402 CTRAPAX 393 5 393 394 404 403 CTRAPAX 394 5 394 395 405 404 CTRAPAX 401 5 401 402 412 411 CTRAPAX 402 5 402 403 413 412 CTRAPAX 403 5 403 404 414 413 CTRAPAX 404 5 404 405 415 414 CTRIAAX 181 10 181 192 191 CTRIAAX 182 10 181 182 192 CTRIAAX 183 10 182 193 192 CTRIAAX 184 10 182 183 193 CTRIAAX 185 10 183 194 193 CTRIAAX 186 10 183 184 194 CTRIAAX 187 10 184 195 194 CTRIAAX 191 10 191 192 201 CTRIAAX 192 10 192 202 201 CTRIAAX 193 10 192 203 202 CTRIAAX 194 10 192 193 203 CTRIAAX 195 10 193 194 203 CTRIAAX 196 10 194 204 203 CTRIAAX 197 10 194 205 204 CTRIAAX 198 10 194 195 205 CTRIAAX 201 10 201 212 211 CTRIAAX 202 10 201 203 212 CTRIAAX 203 10 202 203 212 CTRIAAX 204 10 212 203 213 CTRIAAX 205 10 203 214 213 CTRIAAX 206 10 203 204 214 CTRIAAX 207 10 204 205 214 CTRIAAX 208 10 214 205 215 CTRIAAX 211 10 211 212 221 CTRIAAX 212 10 221 212 222 CTRIAAX 213 10 212 213 222 CTRIAAX 214 10 222 213 223 CTRIAAX 215 10 213 214 223 CTRIAAX 216 10 223 214 224 CTRIAAX 217 10 214 215 224 CTRIAAX 221 10 221 232 231 CTRIAAX 222 10 221 222 232 CTRIAAX 223 10 232 222 233 CTRIAAX 224 10 222 223 233 CTRIAAX 225 10 223 234 233 CTRIAAX 226 10 223 224 234 CTRIAAX 227 10 234 224 235 MAT1 15 66666.7 .3 POINTAX 11 111 .0 POINTAX 14 114 .0 POINTAX 21 121 .0 POINTAX 34 134 .0 PRESAX 20 -7.11111114 124 -7.162 7.162 PRESAX 20 -7.11111124 134 -7.162 7.162 PRESAX 20 -7.11111134 144 -7.162 7.162 PRESAX 20 -7.11111144 154 -7.162 7.162 PRESAX 20 -7.11111154 164 -7.162 7.162 PTRAPAX 5 15 .0 7.1 PTRIAAX 10 15 .0 3.581 7.162 RINGAX 111 14.5 .0 3456 RINGAX 112 14.7 .0 3456 RINGAX 113 15.3 .0 3456 RINGAX 114 15.5 .0 3456 RINGAX 121 14.5 .375 456 RINGAX 122 14.8 .375 456 RINGAX 123 15.2 .375 456 RINGAX 124 15.5 .375 456 RINGAX 131 14.5 .75 456 RINGAX 132 14.7 .75 456 RINGAX 133 15.3 .75 456 RINGAX 134 15.5 .75 456 RINGAX 141 14.5 1.125 456 RINGAX 142 14.8 1.125 456 RINGAX 143 15.2 1.125 456 RINGAX 144 15.5 1.125 456 RINGAX 151 14.5 1.5 456 RINGAX 152 14.7 1.5 456 RINGAX 153 15.3 1.5 456 RINGAX 154 15.5 1.5 456 RINGAX 161 14.5 1.875 456 RINGAX 162 14.8 1.875 456 RINGAX 163 15.2 1.875 456 RINGAX 164 15.5 1.875 456 RINGAX 171 14.5 2.25 456 RINGAX 172 14.7 2.25 456 RINGAX 173 15.3 2.25 456 RINGAX 174 15.5 2.25 456 RINGAX 181 14.5 2.625 456 RINGAX 182 14.8 2.625 456 RINGAX 183 15.2 2.625 456 RINGAX 184 15.5 2.625 456 RINGAX 191 14.5 3.0 456 RINGAX 192 14.75 3.0 456 RINGAX 193 15.0 3.0 456 RINGAX 194 15.25 3.0 456 RINGAX 195 15.5 3.0 456 RINGAX 201 14.5 3.375 456 RINGAX 202 14.75 3.375 456 RINGAX 203 15.0 3.375 456 RINGAX 204 15.25 3.375 456 RINGAX 205 15.5 3.375 456 RINGAX 211 14.5 3.75 456 RINGAX 212 14.75 3.75 456 RINGAX 213 15.0 3.75 456 RINGAX 214 15.25 3.75 456 RINGAX 215 15.5 3.75 456 RINGAX 221 14.5 4.125 456 RINGAX 222 14.8 4.125 456 RINGAX 223 15.2 4.125 456 RINGAX 224 15.5 4.125 456 RINGAX 231 14.5 4.5 456 RINGAX 232 14.7 4.5 456 RINGAX 233 15.0 4.5 456 RINGAX 234 15.3 4.5 456 RINGAX 235 15.5 4.5 456 RINGAX 241 14.5 5.5 456 RINGAX 242 14.8 5.5 456 RINGAX 243 15.0 5.5 456 RINGAX 244 15.2 5.5 456 RINGAX 245 15.5 5.5 456 RINGAX 251 14.5 6.5 456 RINGAX 252 14.7 6.5 456 RINGAX 253 15.0 6.5 456 RINGAX 254 15.3 6.5 456 RINGAX 255 15.5 6.5 456 RINGAX 261 14.5 7.5 456 RINGAX 262 14.8 7.5 456 RINGAX 263 15.0 7.5 456 RINGAX 264 15.2 7.5 456 RINGAX 265 15.5 7.5 456 RINGAX 271 14.5 8.5 456 RINGAX 272 14.7 8.5 456 RINGAX 273 15.0 8.5 456 RINGAX 274 15.3 8.5 456 RINGAX 275 15.5 8.5 456 RINGAX 281 14.5 9.5 456 RINGAX 282 14.8 9.5 456 RINGAX 283 15.0 9.5 456 RINGAX 284 15.2 9.5 456 RINGAX 285 15.5 9.5 456 RINGAX 291 14.5 10.5 456 RINGAX 292 14.7 10.5 456 RINGAX 293 15.0 10.5 456 RINGAX 294 15.3 10.5 456 RINGAX 295 15.5 10.5 456 RINGAX 301 14.5 11.5 456 RINGAX 302 14.8 11.5 456 RINGAX 303 15.0 11.5 456 RINGAX 304 15.2 11.5 456 RINGAX 305 15.5 11.5 456 RINGAX 311 14.5 12.5 456 RINGAX 312 14.7 12.5 456 RINGAX 313 15.0 12.5 456 RINGAX 314 15.3 12.5 456 RINGAX 315 15.5 12.5 456 RINGAX 321 14.5 13.5 456 RINGAX 322 14.8 13.5 456 RINGAX 323 15.0 13.5 456 RINGAX 324 15.2 13.5 456 RINGAX 325 15.5 13.5 456 RINGAX 331 14.5 14.5 456 RINGAX 332 14.7 14.5 456 RINGAX 333 15.0 14.5 456 RINGAX 334 15.3 14.5 456 RINGAX 335 15.5 14.5 456 RINGAX 341 14.5 15.5 456 RINGAX 342 14.8 15.5 456 RINGAX 343 15.0 15.5 456 RINGAX 344 15.2 15.5 456 RINGAX 345 15.5 15.5 456 RINGAX 351 14.5 16.5 456 RINGAX 352 14.7 16.5 456 RINGAX 353 15.0 16.5 456 RINGAX 354 15.3 16.5 456 RINGAX 355 15.5 16.5 456 RINGAX 361 14.5 17.5 456 RINGAX 362 14.8 17.5 456 RINGAX 363 15.0 17.5 456 RINGAX 364 15.2 17.5 456 RINGAX 365 15.5 17.5 456 RINGAX 371 14.5 18.5 456 RINGAX 372 14.7 18.5 456 RINGAX 373 15.0 18.5 456 RINGAX 374 15.3 18.5 456 RINGAX 375 15.5 18.5 456 RINGAX 381 14.5 19.5 456 RINGAX 382 14.8 19.5 456 RINGAX 383 15.0 19.5 456 RINGAX 384 15.2 19.5 456 RINGAX 385 15.5 19.5 456 RINGAX 391 14.5 20.5 456 RINGAX 392 14.7 20.5 456 RINGAX 393 15.0 20.5 456 RINGAX 394 15.3 20.5 456 RINGAX 395 15.5 20.5 456 RINGAX 401 14.5 21.5 456 RINGAX 402 14.8 21.5 456 RINGAX 403 15.0 21.5 456 RINGAX 404 15.2 21.5 456 RINGAX 405 15.5 21.5 456 RINGAX 411 14.5 22.5 12456 RINGAX 412 14.7 22.5 12456 RINGAX 413 15.0 22.5 12456 RINGAX 414 15.3 22.5 12456 RINGAX 415 15.5 22.5 12456 ENDDATA ================================================ FILE: inp/d01151a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Axisymmetric Cylindrical Thick Shell Subjected to Asymmetric Pressure Loading $ (1-15-1) $ $ A. Description $ $ This problem demonstrates the use of elements TRAPAX and TRIAAX in the $ analysis of asymmetrically loaded solids of revolution. The structure consists $ of a circular cylindrical shell loaded with a uniform external pressure over a $ small square area. $ $ The cylindrical shell wall is assumed to be simply supported, i.e., the radial $ and circumferential deflections and the bending moments are zero at the ends. $ $ Trapezoidal elements having small and large dimensions are used in the $ vicinity of the load and away from the load, respectively. A transition area, $ between the two trapezoidal configurations, is modeled with triangular $ elements to illustrate their use. $ $ The loads and deflections, not required to be axisymmetric, are expanded in $ Fourier series with respect to the azimuthal coordinate. Due to the one plane $ of symmetry of this problem with respect to the phi = 0 plane, the deflections $ are represented by a cosine series selected by the AXISYM Case Control card. $ The highest harmonic used, 10, is defined on the AXIC bulk data card. The $ pressure load is defined using PRESAX bulk data cards. $ $ B. Input $ $ 1. Parameters: $ $ r = 15 in. (Average radius) $ a $ $ t 1 in. (Thickness) $ $ l = 45 in. (Length) $ $ 2c = 3.75 in. (Load Length) $ $ beta = 0.125 radians (Load Arc (beta = c/r )) $ a $ $ E = 66666.7 psi (Modulus of Elasticity) $ $ v = 0.3 (Poisson's ratio) $ $ n = 10 (Harmonics) $ $ 2. Loads: $ $ p = 7.11111 psi (Pressure) $ $ 2 2 $ A = 14.063 in (Area of Load (A = 4c )) $ $ 3. Supports $ $ Simply supported at the ends: u = 0, u = 0 $ r phi $ $ Symmetry at the midplane: u = 0 $ z $ $ C. Theory $ $ Theoretical results for this problem are taken from Reference 20, p. 568. $ $ The following theoretical values occur at the center of the load $ l $ (z = -, phi = 0): $ 2 $ $ pA $ u = 272 --- = 0.0272 in. (Radial Deflection (inward)) $ r Er $ a $ $ M = 0.1324 pA = 13.24 in-lb/in (Circumferential Bending Moment) $ phi $ $ M = 0.1057 pA = 10.57 in-lb/in (Longitudinal Bending Moment) $ z $ $ pA $ F = -2.6125 --- = -17.42 lb/in (Circumferential Membrane Force) $ phi r $ a $ $ pA $ F = -2.320 --- = -15.47 lb/in (Longitudinal Membrane Force) $ z r $ a $ $ Theoretical stresses on the inside and outside walls at this point $ l $ (z = -, phi = 0) are computed as follows: $ 2 $ $ F 6M $ z z 47.95 psi (Inside Wall Longitudinal Stress) $ sigma = -- +/- --- = $ z t 2 -78.89 psi (Outside Wall Longitudinal Stress) $ t $ $ F 6M $ phi phi 62.02 psi (Inside Wall Circumferential Stress) $ sigma = -- +/- --- = $ phi t 2 -96.86 psi (Outside Wall Circumferential Stress) $ t $ $ D. Results $ $ The solution is near convergence with ten harmonics. $ $ Ten harmonics shows very good convergence to nearly the theoretical values $ computed above. However, seven harmonics would result in relatively poor $ convergence. Thus, displacement convergence alone may be an invalid indicator $ of an adequate solution. $ $ APPLICABLE REFERENCES $ $ 20. Biljaard, P. P., ASME "Pressure Vessel and Piping Design", Welding Journal $ Research Supplement. 1954, pp 567-575. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01161a.inp ================================================ NASTRAN FILES=PLT2 ID D01161A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 30 CEND TITLE = FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A LABEL = TEMPERATURE DEPENDENT MATERIALS. TEMPERATURE(MATERIALS) = 3000 SPC = 11 DISPLACEMENT = ALL SUBCASE 10 LABEL = DESIGN CASE - UNIFORM END LOAD SET 111 = 1 THRU 105 EXCEPT 7 STRESS = 111 LOAD = 10 SUBCASE 12 LABEL = CHECK CASE - CONTACT LOAD AT NOZZLE. LOAD = 12 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A OUTPUT(PLOT) PLOTTER NASTPLT SET 1 = 1, 7, 38, 61, 69 SET 2 INCLUDE ELEMENTS QDMEM, TRMEM MAXIMUM DEFORMATION 0.8 AXES Z, X, Y VIEW 0.0, 0.0, 0.0 FIND SCALE, ORIGIN 12, SET 1 PTITLE = ARCH MODEL PLOT SET 2, ORIGIN 12 LABEL,SHRINK PTITLE = ELEMENT AND PROPERTY ID-S PLOT SET 2, ORIGIN 12, LABEL EPID PTITLE = DEFLECTION VECTORS FOR BOTH LOADS AND EACH ITERATION PLOT STATIC DEFORMATION SET 2, ORIGIN 12, VECTOR RXY, SYMBOL 7 FIND SCALE, ORIGIN 12, SET 1, REGION 0.0, 0.0, 0.6, 1.0 PTITLE = ARCH MODEL REFLECTED ABOUT VERTICAL AXIS PLOT SET 2, ORIGIN 12, SYMMETRY X, SET 2, ORIGIN 12 PTITLE = MAJOR PRINCIPAL STRESS CONTOURS FOR OPTIMIZED CASE CONTOUR, MAJPRIN, EVEN 20, LOCAL PLOT STATIC DEFORMATION, CONTOUR 10, SET 2, ORIGIN 12, OUTLINE BEGIN BULK CQDMEM 1 11 13 3 1 CQDMEM 3 13 15 5 3 CQDMEM 5 15 15 17 7 5 CQDMEM 7 17 17 19 9 7 CQDMEM 13 23 25 15 13 CQDMEM 15 25 27 17 15 CQDMEM 17 27 29 19 17 CQDMEM 31 41 43 33 31 CQDMEM 41 51 53 43 41 CQDMEM 51 61 63 53 51 CQDMEM 61 71 73 63 61 CROD 101 48 49 102 102 49 59 CROD 103 59 69 104 104 69 78 CROD 105 78 79 CTRMEM 11 13 11 21 CTRMEM 12 21 23 13 CTRMEM 21 31 33 21 CTRMEM 22 23 21 33 CTRMEM 23 33 35 23 CTRMEM 24 25 23 35 CTRMEM 25 35 37 25 CTRMEM 26 27 25 37 CTRMEM 27 37 38 27 CTRMEM 28 38 39 27 CTRMEM 29 29 27 39 CTRMEM 32 35 33 43 CTRMEM 33 43 45 35 CTRMEM 34 37 35 45 CTRMEM 35 45 47 37 CTRMEM 36 47 38 37 CTRMEM 37 47 49 38 CTRMEM 38 49 48 38 CTRMEM 39 38 48 39 CTRMEM 42 53 55 43 CTRMEM 43 45 43 55 CTRMEM 44 55 57 45 CTRMEM 45 47 45 57 CTRMEM 46 57 59 47 CTRMEM 47 59 49 47 CTRMEM 52 63 65 53 CTRMEM 53 55 53 65 CTRMEM 54 65 67 55 CTRMEM 55 57 55 67 CTRMEM 57 67 69 57 CTRMEM 59 59 57 69 CTRMEM 62 65 63 73 CTRMEM 63 73 75 65 CTRMEM 64 67 65 75 CTRMEM 65 75 77 67 CTRMEM 67 69 67 78 CTRMEM 68 67 77 78 90.0 CTRMEM 69 77 79 78 FORCE 10 1 .3125E5 .0 1.0 .0 FORCE 10 3 .625E5 .0 1.0 .0 FORCE 10 5 .625E5 .0 1.0 .0 FORCE 10 7 .625E5 .0 1.0 .0 FORCE 10 9 .3125E5 .0 1.0 .0 FORCE 12 69 100.+1 -1.0 FORCE 12 78 200.+1 -1.0 FORCE 12 79 100.+1 -1.0 GRDSET 3456 GRID 1 -10. 15. GRID 3 -7.5 15. GRID 5 -5. 15. GRID 7 -2.5 15. GRID 9 .0 15. GRID 11 -10. 12. GRID 13 -7.5 12. GRID 15 -5. 12. GRID 17 -2.5 12. GRID 19 .0 12. GRID 21 -10. 9. GRID 23 -7.5 9. GRID 25 -5. 9. GRID 27 -2.5 9. GRID 29 .0 9. GRID 31 -10. 7.25 GRID 33 -8.5 7.25 GRID 35 -6. 7.25 GRID 37 -4. 7.25 GRID 38 -2. 6.5 GRID 39 .0 7.25 GRID 41 -10. 5.25 GRID 43 -8.5 5.25 GRID 45 -6. 5.25 GRID 47 -4. 5.5 GRID 48 .0 5. GRID 49 -2. 4.582576 GRID 51 -10. 3.5 GRID 53 -8.5 3.5 GRID 55 -6.5 3.5 GRID 57 -5. 3.75 GRID 59 -3.5707 3.5 GRID 61 -10. 1.75 GRID 63 -8.5 1.75 GRID 65 -7. 1.75 GRID 67 -5.75 1.75 GRID 69 -4.4651 2.25 GRID 71 -10. .0 GRID 73 -8.5 .0 GRID 75 -7. .0 GRID 77 -5.75 .0 GRID 78 -4.899 1. GRID 79 -5. .0 MAT1 1 30.E06 .3 .283 70.0 +CONST +CONST 12.5E3 MAT1 2 30.+6 .3 .283 70. +TDEP +TDEP 1.E3 MAT1 3 30.E06 .283 70. +MATROD +MATROD 25.E3 25.E3 MATT1 2 +MATT1 +MATT1 222 PARAM GRDPNT 0 PLIMIT QDMEM .2986858 1 THRU 61 FSD PLIMIT TRMEM .2986858 11 THRU 69 FSD POPT 5 .04 .95 2 YES FSD PQDMEM 1 1 3.348 PQDMEM 3 1 3.348 PQDMEM 13 1 3.348 PQDMEM 15 1 3.348 PQDMEM 17 1 3.348 PQDMEM 31 1 3.348 PQDMEM 41 1 3.348 PQDMEM 51 1 3.348 PQDMEM 61 1 3.348 PROD 101 3 1.674 PROD 102 3 1.674 PROD 103 3 1.674 PROD 104 3 1.674 PROD 105 3 1.674 PTRMEM 11 1 3.348 PTRMEM 12 1 3.348 PTRMEM 21 1 3.348 PTRMEM 22 1 3.348 PTRMEM 23 1 3.348 PTRMEM 24 1 3.348 PTRMEM 25 1 3.348 PTRMEM 26 1 3.348 PTRMEM 27 1 3.348 PTRMEM 28 1 3.348 PTRMEM 29 1 3.348 PTRMEM 32 1 3.348 PTRMEM 33 1 3.348 PTRMEM 34 1 3.348 PTRMEM 35 1 3.348 PTRMEM 36 1 3.348 PTRMEM 37 2 3.348 PTRMEM 38 2 3.348 PTRMEM 39 2 3.348 PTRMEM 42 1 3.348 PTRMEM 43 1 3.348 PTRMEM 44 1 3.348 PTRMEM 45 1 3.348 PTRMEM 46 2 3.348 PTRMEM 47 2 3.348 PTRMEM 52 1 3.348 PTRMEM 53 1 3.348 PTRMEM 54 1 3.348 PTRMEM 55 1 3.348 PTRMEM 57 2 3.348 PTRMEM 59 2 3.348 PTRMEM 62 1 3.348 PTRMEM 63 1 3.348 PTRMEM 64 1 3.348 PTRMEM 65 1 3.348 PTRMEM 67 2 3.348 PTRMEM 68 2 3.348 PTRMEM 69 2 3.348 SPC1 11 1 9 19 29 39 48 SPC1 11 2 71 73 75 77 79 TABLEM1 222 +TAB-M1 +TAB-M1 1. 12.5E3 10. 12.5E3 ENDT TEMPD 3000 80. ENDDATA ================================================ FILE: inp/d01161a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Fully Stressed Design of a Plate with a Reinforced Hole (1-16-1) $ $ A. Description $ $ A flat plate with a reinforced hole in the center is optimized for stresses $ due to a uniform end load. Restrictions on the minimum thickness are $ maintained. This problem has been investigated by G. G. Pope (Reference 21). $ $ Due to symmetry, only one quadrant is modeled. Due to the membrane load all $ rotations and normal displacements are constrained. The QDMEM and TRMEM $ elements are used for the plate and ROD elements for the reinforcement around $ the hole. $ $ The problem demonstrates several features unique to fully stressed design $ capability in NASTRAN. These features are: $ $ 1. Elements with no limits on the range of the property change, i.e., the ROD $ has no PLIMIT data. $ $ 2. Elements with a lower limit on the property optimization card. All membrane $ elements are required to have a resultant thickness which must not be less $ than a minimum thickness. This minimum is determined from the thickness $ obtained when the plate without a hole is subjected to an end load at a $ prescribed stress limit. $ $ 3. Elements whose stress is not inspected but being in an area of nearly $ uniform stress have their properties changed due to another element's $ stress. Element 7 has no stress request but does have the same property $ identification number as element 17. This type of optimization can save $ computer time at the expense of a design that may not be truly optimized. $ $ 4. A property whose value depends on the maximum stress of elements. Elements $ 5 and 15 have the same property card. This option may be necessary if $ insufficient core is allocated. $ $ 5. Temperature dependent stress limits for material 3. $ $ 6. Using one stress limit only. The membrane elements use the maximum $ principle shear only. This is 1/2 the major principle stress allowed. This $ stress limit was chosen to better model the octahedral limit in Reference $ 21. The rod elements use only the tension and compression stress $ appropriate to the given property, namely area. $ $ 7. An additional load case that was not included in the fully stressed design $ because a stress request was not made. The second subcase may be considered $ a displacement verification of this load case. $ $ B. Input $ $ 1. Parameters: $ $ l = 30.0 in (total length) $ w = 20.0 in (total width) $ d = 10.0 in (hole diameter) $ t = 3.348 in (initial plate thickness) $ o 2 $ A = 1.674 in (initial rod cross sectional area) $ o 6 $ E = 30.x10 psi (modulus of elasticity) $ v = 0.3 (Poisson's ratio) $ t = 1.0 in (lower limit for plate thickness corresponding to a $ e 3 $ 25.0x10 maximum principle stress) $ $ 2. Boundary conditions: $ $ on y = 0 plane, u = 0 (symmetry) $ y $ on x = 0 plane, u = 0 (symmetry) $ x $ all points u = theta = theta = theta = 0 (permanent constraints) $ z x y z $ 3. Loads: $ 3 $ First subcase: uniform load, F = 25.0x10 lb/in $ 10 $ Second subcase: at grid points 69 and 79, F = -1000.0 lb $ 12 $ at grid point 78, F = -2000.0 lb $ 12 $ (contact load on rim of hole - displacement check only) $ $ C. Theory $ $ The theoretical approach developed for the property optimization technique in $ NASTRAN is contained in the NASTRAN Theoretical Manual, Section 4.4. This $ technique is a fully stressed design approach. A mathematical programming $ technique is used in reference 21, from which the example problem was taken. $ $ The two techniques might be expected to give similar results when the same $ model is used. However, reference 21 employs elements which allow varying $ properties and stresses, while NASTRAN elements allow only constant properties $ and constant stresses. Somewhat different geometry is used in the NASTRAN $ model, i.e., the use of quadrilateral elements for illustration. Additional $ features of the NASTRAN model are discussed in items 3, 4, and 5 of Part A. $ $ D. Results $ $ The optimization process in this problem is terminated at 5 iteratlons. The $ initial weight to final weight ratio is 2.70 compared to Pope's results of $ 2.63. Tables 1 and 2 show the optimized nondimensional properties of the $ elements around the arch. Note that the results from reference 2l are averaged $ to provide an equivalent constant property element for comparison. $ $ Table 1. Optimized Nondimensional Thickness Comparisons $ ---------------------------------------------------- $ Original Reference 21 NASTRAN $ t/t Average t/t t/t $ Element e e e $ ---------------------------------------------------- $ 37 3.348 1.24 1.00 $ 38 3.348 1.00 1.04 $ 39 3.348 1.00 1.00 $ 46 3.348 2.10 1.14 $ 47 3.348 1.34 2.00 $ 57 3.348 3.32 1.34 $ 59 3.348 3.19 4.40 $ 67 3.348 4.58 5.47 $ 68 3.348 3.26 1.00 $ 69 3.348 4.52 5.49 $ ---------------------------------------------------- $ $ Table 2. Optimized Nondimensional Area Comparisons $ --------------------------------------------------------- $ Original Reference 21 NASTRAN $ A/dt Average A/dt A/dt $ Element e e e $ --------------------------------------------------------- $ 101 .1674 .0249 .00716 $ 102 .1674 .0238 0.0 effective $ 103 .1674 .0636 .05019 $ 104 .1674 .1880 .1839 $ 105 .1674 .3540 .3287 $ --------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 21. Pope, G. G., "Optimum Design of Stressed Skin Structures", AIAA Journal, $ Vol. 11, No. 11, pp 1545-1552, November 1973. $------------------------------------------------------------------------------- ================================================ FILE: inp/d01171a.inp ================================================ ID D01171A,NASTRAN APP DISP SOL 1,0 TIME 10 CEND TITLE = RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A LABEL = ELEMENT STRESS PRECISION CHECKS SPC = 10 OUTPUT DISPLACEMENT = ALL ELSTRESS = ALL NCHECK = 12 SUBCASE 1 LABEL = LOAD IN LONGITUDINAL DIRECTION LOAD = 1 SUBCASE 2 LABEL = LOAD IN TRANSVERSE DIRECTION LOAD = 2 SUBCASE 3 LABEL = LOAD NORMAL TO SURFACE LOAD = 3 SUBCASE 4 LABEL = THERMAL LOAD TEMP(LOAD) = 4 SPC = 20 BEGIN BULK CQUAD2 11 10 11 12 22 21 .0 CQUAD2 12 10 12 13 23 22 .0 CQUAD2 21 20 21 22 32 31 .0 CQUAD2 22 20 22 23 33 32 .0 CQUAD2 31 30 31 32 42 41 .0 CQUAD2 32 30 32 33 43 42 .0 CQUAD2 41 40 41 42 52 51 .0 CQUAD2 42 40 42 43 53 52 .0 FORCE 1 51 100.0 .0 1.0 .0 FORCE 1 52 400.0 .0 1.0 .0 FORCE 1 53 100.0 .0 1.0 .0 FORCE 2 52 1000.0 1.0 .0 .0 FORCE 3 52 100.0 .0 .0 1.0 GRDSET 6 GRID 11 .0 .0 .0 GRID 12 10.0 .0 .0 GRID 13 20.0 .0 .0 GRID 21 .0 10.0 .0 GRID 22 10.0 10.0 .0 GRID 23 20.0 10.0 .0 GRID 31 .0 20.0 .0 GRID 32 10.0 20.0 .0 GRID 33 20.0 20.0 .0 GRID 41 .0 30.0 .0 GRID 42 10.0 30.0 .0 GRID 43 20.0 30.0 .0 GRID 51 .0 40.0 .0 GRID 52 10.0 40.0 .0 GRID 53 20.0 40.0 .0 MAT1 10 1.0E3 .0 1.0E-6 70.0 MAT1 20 1.0E5 .0 1.0E-6 70.0 MAT1 30 1.0E7 .0 1.0E-6 70.0 MAT1 40 1.0E9 .0 1.0E-6 70.0 PQUAD2 10 10 1.0 .0 20 20 1.0 .0 PQUAD2 30 30 1.0 .0 40 40 1.0 .0 SPC1 10 23 11 13 SPC1 10 12345 12 SPC1 20 12345 11 THRU 13 SPC1 20 12345 51 THRU 53 TEMPD 4 170.0 ENDDATA ================================================ FILE: inp/d01171a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 1, Static Analysis $ Rectangular Plate With Variable Moduli of Elasticity (1-17-1) $ $ A. Description $ $ This problem illustrates the use of the element stress precision check $ feature, NCHECK. A rectangular plate is modeled using CQUAD2 elements. The $ thickness is constant, but the modulus of elasticity is varied versus distance $ along the plate length. Concentrated forces and thermal loads are applied so $ as to produce uniform stress distribution in selected directions. The problem $ is designed so that stress calculations for certain elements will involve $ operations with small differences between large numbers to produce a loss of $ precision in the calculations. $ $ B. Input $ $ The relevant data are listed below. $ $ 1. Parameters: $ $ t = 1.0 inch (Plate thickness) $ $ E = (Modulus of elasticity) $ $ v = 0.0 (Poisson's ratio) $ -6 $ alpha = 1.0 x 10 in/in/deg. F (Thermal expansion coefficient) $ $ T = 170 deg. F (Applied temperature, uniform) $ $ T = 70 deg. F (Reference temperature) $ o $ $ 2. Constraints: $ $ Subcases 1, 2, and 3 $ $ u = 0 at all Grid points $ 6 $ u = u = 0 at Grids 11 and 13 $ 2 3 $ $ u = u = u = u = u = 0 at Grid 12 $ 1 2 3 4 5 $ $ Subcase 4 $ $ u = 0 at all Grid points $ 6 $ $ u = u = u = u = u = 0 at Grid points 11, 12, 13, 51, 52, and 53 $ 1 2 3 4 5 $ $ 3. Loads: $ $ Subcase I F = 100. at Grids 51 and 53 $ y $ $ F = 400. at Grid 52 $ y $ $ Subcase 2 F = 1000. at Grid 52 $ x $ $ Subcase 3 F = 100. at Grid 52 $ z $ $ Subcase 4 T = 170. deg. F at all Grids $ $ 4. Output Requests: $ $ Displacements of all grid points $ $ Stresses of all elements $ $ Stress precision check to 12 significant figures $ $ C. Results $ $ A summary of stress precision in the number of significant digits is presented $ in Table 1. The quantities shown in the table are indicative of the general $ trends observed in all stress precision output for this problem. The trend $ shows that elements with higher moduli of elasticity provide less precise $ stresses relative to the other elements under the same loading. $ $ Table 1. Stress Precision Summary $ ------------------------------------------------------------------------- $ Case Modulus of Subcase 1 Subcase 2 Subcase 3 Subcase 4 $ (CDC) Elasticity $ ------------------------------------------------------------------------- $ Significant sigma tau M sigma $ Load or Stress y xy y y $ ------------------------------------------------------------------------- $ 3 $ Elements 11, 12 10 14.5 >12 >12 >12 $ 5 $ Elements 21, 22 10 12.1 11.4 11.9 >12 $ 7 $ Elements 31, 32 10 10.1 9.2 9.7 10.6 $ 9 $ Elements 41, 42 10 8.1 7.1 7.2 9.0 $ ------------------------------------------------------------------------- $ $ $ ------------------------------------------------------------------------- $ Case Modulus of Subcase 1 Subcase 2 Subcase 3 Subcase 4 $ (IBM) Elasticity $ ------------------------------------------------------------------------- $ Significant sigma tau M sigma $ Load or Stress y xy y y $ ------------------------------------------------------------------------- $ 3 $ Elements 11, 12 10 7.2 >12 >12 >12 $ 5 $ Elements 21, 22 10 4.9 4.2 4.7 >12 $ 7 $ Elements 31, 32 10 2.9 2.0 2.5 3.3 $ 9 $ Elements 41, 42 10 1.0 0.5 1.7 2.0 $ ------------------------------------------------------------------------- $ $ $ ------------------------------------------------------------------------- $ Case Modulus of Subcase 1 Subcase 2 Subcase 3 Subcase 4 $ (UNIVAC) Elasticity $ ------------------------------------------------------------------------- $ Significant sigma tau M sigma $ Load or Stress y xy y y $ ------------------------------------------------------------------------- $ 3 $ Elements 11, 12 10 8.1 >12 >12 >12 $ 5 $ Elements 21, 22 10 5.8 5.1 5.6 >12 $ 7 $ Elements 31, 32 10 3.8 2.9 3.4 4.3 $ 9 $ Elements 41, 42 10 1.0 0.8 0.7 2.7 $ ------------------------------------------------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d02011a.inp ================================================ ID D02011A,NASTRAN TIME 5 APP DISPLACEMENT SOL 2,1 CEND TITLE = INERTIA RELIEF ANALYSIS OF A CIRCULAR RING LABEL = CONCENTRATED AND CENTRIFUGAL LOADS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A LOAD = 3 OUTPUT DISP = ALL OLOAD = ALL SPCFORCE = ALL STRESSES = ALL SET 1 = 1,6,7,12,13,18,19,24 ELFORCE = 1 BEGIN BULK BAROR 5 1.0 .0 .0 1 CBAR 1 1 2 1 +B1 +B1 -1.0 .0 .0 -1.0 .0 .0 CBAR 2 2 3 1 +B2 +B2 -1.0 .0 .0 -1.0 .0 .0 CBAR 3 3 4 1 +B3 +B3 -1.0 .0 .0 -1.0 .0 .0 CBAR 4 4 5 1 +B4 +B4 -1.0 .0 .0 -1.0 .0 .0 CBAR 5 5 6 1 +B5 +B5 -1.0 .0 .0 -1.0 .0 .0 CBAR 6 6 7 1 +B6 +B6 -1.0 .0 .0 -1.0 .0 .0 CBAR 7 7 8 1 +B7 +B7 -1.0 .0 .0 -1.0 .0 .0 CBAR 8 8 9 1 +B8 +B8 -1.0 .0 .0 -1.0 .0 .0 CBAR 9 9 10 1 +B9 +B9 -1.0 .0 .0 -1.0 .0 .0 CBAR 10 10 11 1 +B10 +B10 -1.0 .0 .0 -1.0 .0 .0 CBAR 11 11 12 1 +B11 +B11 -1.0 .0 .0 -1.0 .0 .0 CBAR 12 12 13 1 +B12 +B12 -1.0 .0 .0 -1.0 .0 .0 CBAR 13 13 14 1 +B13 +B13 -1.0 .0 .0 -1.0 .0 .0 CBAR 14 14 15 1 +B14 +B14 -1.0 .0 .0 -1.0 .0 .0 CBAR 15 15 16 1 +B15 +B15 -1.0 .0 .0 -1.0 .0 .0 CBAR 16 16 17 1 +B16 +B16 -1.0 .0 .0 -1.0 .0 .0 CBAR 17 17 18 1 +B17 +B17 -1.0 .0 .0 -1.0 .0 .0 CBAR 18 18 19 1 +B18 +B18 -1.0 .0 .0 -1.0 .0 .0 CBAR 19 19 20 1 +B19 +B19 -1.0 .0 .0 -1.0 .0 .0 CBAR 20 20 21 1 +B20 +B20 -1.0 .0 .0 -1.0 .0 .0 CBAR 21 21 22 1 +B21 +B21 -1.0 .0 .0 -1.0 .0 .0 CBAR 22 22 23 1 +B22 +B22 -1.0 .0 .0 -1.0 .0 .0 CBAR 23 23 24 1 +B23 +B23 -1.0 .0 .0 -1.0 .0 .0 CBAR 24 24 1 1 +B24 +B24 -1.0 .0 .0 -1.0 .0 .0 CORD2C 2 0 .0 10.0 .0 .0 10.0 1.0 CCORD +CORD .0 9.0 .0 FORCE 1 13 2 100.0 1.0 .0 .0 GRDSET 2 2 345 GRID 1 11.0 .0 .0 GRID 2 11.0 15.0 .0 GRID 3 11.0 30.0 .0 GRID 4 11.0 45.0 .0 GRID 5 11.0 60.0 .0 GRID 6 11.0 75.0 .0 GRID 7 11.0 90.0 .0 GRID 8 11.0 105.0 .0 GRID 9 11.0 120.0 .0 GRID 10 11.0 135.0 .0 GRID 11 11.0 150.0 .0 GRID 12 11.0 165.0 .0 GRID 13 11.0 180. .0 GRID 14 11.0 195. .0 GRID 15 11.0 210. .0 GRID 16 11.0 225. .0 GRID 17 11.0 240. .0 GRID 18 11.0 255. .0 GRID 19 11.0 270. .0 GRID 20 11.0 285. .0 GRID 21 11.0 300. .0 GRID 22 11.0 315. .0 GRID 23 11.0 330. .0 GRID 24 11.0 345. .0 GRID 25 2 .0 .0 .0 123456 LOAD 3 1.0 1.0 1 1.0 2 MAT1 1 1000.0 400.0 .5 +MAT1 +MAT1 100. 200. 300. PARAM GRDPNT 19 PBAR 5 1 1000.0 10. 10. +P5 +P5 1.0 1.0 -1.0 -1.0 RFORCE 2 25 2 .159155 .0 .0 1.0 SUPORT 1 2 1 1 13 2 ENDDATA ================================================ FILE: inp/d02011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 2, Inertia Relief Analysis $ Inertia Relief Analysis of a Circular Ring Under Concentrated and $ Centrifugal Loads (2-1-1) $ $ A. Description $ $ This problem illustrates the use of inertia relief analysis to solve a free- $ body problem. In inertia relief the structure is under constant acceleration $ due to the applied loads; the reactions to the applied load are due to the $ masses of the structure. Ficticious, nonredundant support points must be $ provided to define a reference system attached to the body. The dlsplacements $ of the body are measured relative to the supported coordinates. $ $ The structure consists of a spinning ring with constant radial load applied to $ one point. The rotational velocity creates centrifugal loads and the point $ load causes inertia reactions. The actual dynamic motion of the whole $ structure is a cyclic motion of the center point coinciding with the rotation $ of the ring. The displacements measured by the inertia relief analysis, $ however, will be the static motion relative to the support point $ dlsplacements. $ $ The displacements are defined in a cylindrical coordinate system (u1 = u , $ 1 r $ u = u , u3 = u ). The elements used are BAR elements wIth a large cross- $ 2 phi z $ sectional area to minimize axial deformations. The BARs were offset a uniform $ radial distance from the grid points to demonstrate the offset option of the $ BAR element. $ $ B. Input $ $ 1. Parameters: $ $ R = 10.0 (radius at end of BAR elements) $ $ R = 11.0 (Radius at grid points) $ 1 $ $ I = 10.0 (Bending inertia) $ $ p = 0.5 (Mass density) $ $ E = 1000. (Modulus of elasticity) $ $ A = 1000. (Cross-sectional area) $ $ 2. Loads: $ $ P = 100 $ r,13 $ $ f = 1.59 cps (Rotational velocity, w = 1.0 radians per second) $ $ 3. Supports: $ $ a) The u direction is supported to restrict vertical translation. $ r,1 $ $ b) The u and u directions are supported to restrict rotation and $ phi,1 phi,13 $ horizontal translation. $ $ 4. Grid Point Weight Generator Input: $ $ Weight and moment of inertia are defined relative to point 19. $ $ C. Theory $ $ 1. The Element Forces and Moments may be solved by the following analysis, as $ explained in Reference 7, Chapter 12. $ $ a) Using symmetry the structure may be defined by the free-body diagram. $ $ The static equilibrium equations at any angle are $ $ A = A cos phi + mu phi sin phi (Axial Force) (1) $ o $ $ V = A sin phi + mu phi cos phi (Shear) (2) $ o $ $ M = M + r[mu(1 - cos phi - phi sin phi) + $ o $ $ A (1 - cos phi)] (Bending Moment) (3) $ o $ $ b) Using energy and Castigliano's Theorem: $ $ R 2 $ U = --- integral o to pi of M d phi (4) $ 2EI $ $ deltaU $ ------ = 0 (5) $ deltaM $ o $ $ deltaU $ ------ = 0 (6) $ deltaA $ o $ $ These are the deflections at the bottom which are fixed. The resulting $ two equations are used in step c. $ $ c) Solving the equations in (b) gives the redundant forces: $ $ 1 F $ A = - --- mu = - --- (7) $ o 2 4pi $ $ Rmu FR $ M = --- = --- (8) $ o 2 4 $ $ d) Adding a dummy load and solving the problem with the above boundary $ conditions gives the displacement due to the point load: $ $ 3 2 $ FR pi $ delta = --- ( -- - 1 ) (9) $ f piEI 8 $ $ e) The axial stress and radial displacement due to the centrifugal load is $ $ $ 2 2 2 $ delta = pR w = 5.0 x 10 (10) $ w $ $ 3 2 $ 2pR w $ delta = ------- = 1.0 (11) $ w E $ $ D. Results $ $ 1. The total result of summing the two loads is $ $ ----------------------------------------------------- $ THEORY NASTRAN $ ----------------------------------------------------- $ delta = Displacement u 1.75 1.734 $ r,13 $ M = Moment BAR #1, end A -79.5 -80.48 $ o $ M = Moment BAR #12, end B -238.5 -236.0 $ 1 $ ----------------------------------------------------- $ $ 2. The structural mass characteristics as calculated by the grid point weight $ generator are $ $ ----------------------------------------------------- $ THEORETICAL NASTRAN $ ----------------------------------------------------- $ X = 11.0 from point 19 11.0 $ CG $ 4 4 4 $ Mass = pi x 10 = 3.14159 x 10 3.1326 x 10 $ $ pi 6 6 6 $ I = I = -- x 10 = 1.5708 x 10 1.5663 x 10 $ xx yy 2 $ $ 6 6 6 $ I = pi x 10 = 3.14159 x 10 3.1326 x 10 $ zz $ ----------------------------------------------------- $ $ (Inertias are about center of gravity) $ $ NASTRAN gives slightly different answers due to the polygonal shape of the $ finite element model. $------------------------------------------------------------------------------- ================================================ FILE: inp/d02021a.inp ================================================ ID D02021A,NASTRAN APP DISPLACEMENT,SUBS SOL 2,0 TIME 10 DIAG 23 CEND SUBSTRUCTURE PHASE1 PASSWORD = DEMO SOF(1) = FT18,950,NEW $ DEC VAX RUN = STEP OPTION = K,M,P NAME = HUB SAVEPLOT = 1 SOFP TOC ENDSUBS TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A LABEL = SUBSTRUCTURE 1, RUN 1, PHASE 1 SPC = 30 SUBCASE 1 LABEL = ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE LOAD = 1 SUBCASE 2 LABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5 LOAD = 3 OUTPUT(PLOT) SET 1 = ALL CSCA = 2.0 PLOT BEGIN BULK CORD2C 1 0 .0 .0 .0 .0 .0 1.0 +COR +COR 1.0 .0 .0 CQDMEM 1 10 1 4 5 2 CQDMEM 3 10 4 7 108 5 CQDMEM 5 10 108 7 10 11 CQDMEM 7 10 13 14 11 10 CQDMEM 9 10 16 17 14 13 CQDMEM 11 10 19 20 17 16 CQDMEM 13 10 20 19 22 23 CQDMEM 15 10 25 26 23 22 CQDMEM 17 10 29 26 25 28 CQDMEM 19 10 32 29 28 31 CQDMEM 21 10 32 31 34 35 CQDMEM 23 10 37 38 35 34 CQDMEM 25 10 38 37 40 41 CQDMEM 27 10 41 40 43 44 CQDMEM 29 10 44 43 46 47 CQDMEM 31 10 1 2 47 46 FORCE1 3 4 1.0 5 4 GRDSET 3456 GRID 1 -5.0 10.0 GRID 2 -5.0 15.0 GRID 4 .0 10.0 GRID 5 .0 15.0 GRID 7 5.0 10.0 GRID 10 7.5 7.5 GRID 11 10.0 10.0 GRID 13 10.0 5.0 GRID 14 15.0 5.0 GRID 16 10.0 .0 GRID 17 15.0 .0 GRID 19 10.0 -5.0 GRID 20 15.0 -5.0 GRID 22 7.5 -7.5 GRID 23 10.0 -10.0 GRID 25 5.0 -10.0 GRID 26 5.0 -15.0 GRID 28 .0 -10.0 GRID 29 .0 -15.0 GRID 31 -5.0 -10.0 GRID 32 -5.0 -15.0 GRID 34 -7.5 -7.5 GRID 35 -10.0 -10.0 GRID 37 -10.0 -5.0 GRID 38 -15.0 -5.0 GRID 40 -10.0 .0 GRID 41 -15.0 .0 GRID 43 -10.0 5.0 GRID 44 -15.0 5.0 GRID 46 -7.5 7.5 GRID 47 -10.0 10.0 GRID 108 5.0 15.0 1 MAT1 50 1.0+7 .25 2.5E-4 1.0E-6 70.0 PQDMEM 10 50 .1 RFORCE 1 0 0 .1591579.0 .0 1.0 SPC1 30 1 13 19 37 43 SPC1 30 2 1 7 31 25 ENDDATA ================================================ FILE: inp/d02021a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT NO. 2, Inertia Relief Analysis $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 1, (2-2-1) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 2, (2-2-2) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 3, (2-2-3) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 4, (2-2-4) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 5, (2-2-5) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 6, (2-2-6) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 7, (2-2-7) $ $ A. Description $ $ This problem illustrates the fully automated multi-stage substructuring $ capability of NASTRAN. $ $ Of the total of seven runs involved, three Phase 1 runs are made, one for each $ basic substructure, using Rigid Format 2 in order to generate mass matrices. $ The combination and reduction to the final model is accomplished in seven $ distinct Phase 2 steps, plus eight equivalence operations. A static solution, $ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 $ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data $ recovery for two of the basic substructures. $ $ A seventh run is made to extract normal modes using Rigid Format 3 for the $ reduced structure. $ $ B. Input $ $ 1. Parameters: $ $ r = 50.0 in (outer radius) $ o $ $ r = 10.0 in (inner radius) $ i $ $ t = 0.1 in (plate thickness) $ $ 6 $ E = 10 x 10 psi (modulus of elasticity) $ $ v = 0.25 (Poisson's ratio) $ $ 2. Boundary Conditions: $ $ All points u = theta = theta = theta = 0 (permanent constraint) $ z x y z $ $ u = 0 at HUB grid points 13, 19, 37, 43 $ x $ $ u = 0 at HUB grid points 1, 7, 25, 31 $ y $ $ 3. Loads: $ $ First Subcase: centrifugal force due to unit angular velocity $ $ Second Subcase: unsymmetric load - right panel in tension, bottom panel $ in compression, F = 100 uniformly distributed over each $ loaded edge $ $ Third Subcase: F = 1.0 applied at HUB grid point 4 inward radially $ $ 4. Substructuring Parameters: $ $ SOF(1) SOF0,950 $ CDC $ $ SOF(1) = FT18,950 $ IBM $ $ SOF(1) = INPT,950 $ UNIVAC $ $ PASSWORD = DEMO $ $ OPTIONS = K, M, P $ $ C. Theory $ $ This problem is designed to illustrate the use of automated multi-stage $ substructuring. No closed form solution is available. Results are compared $ with non-substructured NASTRAN solutions. $ $ D. Results $ $ The solutions of the final reduced structure using both Rigid Format 1 and $ Rigid Format 3 are in excellent agreement with the non-substructured $ solutions. Displacements at selected points and eigenvalues are compared in $ Table 1. The values presented were obtained from executions on IBM equlpnent. $ Values obtained from CDC and UNIVAC are of the same order of magnitude with $ slight differences attributable to round-off of very snall numbers. $ $ Table 1. Comparison of Displacements at Selected Points $ for Windmill Panel Problem $ ----------------------------------------------------------------------------- $ Subcase 1 Subcase 2 $ ----------------------------------------------------------------------------- $ Name/Point/Comp Single Step Substructure Single Step Substructure $ ----------------------------------------------------------------------------- $ VANE1/1/X -5.6x10^-14 -5.2x10^-14 -2.19155x10^-5 -2.19155x10^-5 $ $ VANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1 8.6081x10^-1 $ $ RVANE1/1/X 4.4x10^-14 2.1x10^-13 2.19155x10^-5 2.19155x10^-5 $ $ RVANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4 -3.85997x10^-4 $ $ HUB/5/X -3.5x10^-14 -4.8x10^-14 1.04757x10^-5 1.04757x10^-5 $ $ HUB/5/Y 6.70493x10^-8 6.70488x10^-8 -6.43969x10^-7 -6.4397x10^-7 $ ------------------------------------------------------------------------------ $ Frequency, cps - - - - $ ------------------------------------------------------------------------------ $ $ ---------------------------------------------- $ Eigenvector #1 $ ---------------------------------------------- $ Name/Point/Comp Single Step Substructure $ ---------------------------------------------- $ VANE1/1/X 1.000000 -.999752 $ $ VANE1/1/Y -8.612x10^-9 3.297x10^-7 $ $ RVANE1/1/X 1.000000 -.999748 $ $ RVANE1/1/Y 1.264x10^-9 -1.688x10^-7 $ $ HUB/5/X -1.46899x10^-1 1.46636x10^-1 $ $ HUB/5/Y -3.140x10^-9 -7.8304x10^-6 $ ---------------------------------------------- $ Frequency, cps 288.3 288.3 $ ---------------------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d02022a.inp ================================================ ID D02022A,NASTRAN APP DISPLACEMENT,SUBS SOL 2,0 TIME 10 DIAG 23 CEND SUBSTRUCTURE PHASE1 PASSWORD = DEMO SOF(1) = FT18,950 $ DEC VAX RUN = STEP OPTION = K,M,P NAME = ROOT1 SAVEPLOT = 1 SOFP TOC ENDSUBS TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A LABEL = SUBSTRUCTURE 2, RUN 2, PHASE 1 LOAD = 1 OUTPUT(PLOT) SET 1 = ALL CSCA = 2.0 PLOT BEGIN BULK CQDMEM 1 10 3 4 2 1 CQDMEM 2 10 5 6 4 3 CQDMEM 3 10 6 8 7 4 GRDSET 3456 GRID 1 .0 27.5 GRID 2 5.0 27.5 GRID 3 .0 20.0 GRID 4 5.0 20.0 GRID 5 .0 15.0 GRID 6 5.0 15.0 GRID 7 12.5 12.5 GRID 8 10.0 10.0 MAT1 50 1.0+7 .25 2.5E-4 1.0E-6 70.0 PQDMEM 10 50 .1 RFORCE 1 .1591579.0 .0 1.0 ENDDATA ================================================ FILE: inp/d02022a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT NO. 2, Inertia Relief Analysis $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 1, (2-2-1) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 2, (2-2-2) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 3, (2-2-3) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 4, (2-2-4) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 5, (2-2-5) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 6, (2-2-6) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 7, (2-2-7) $ $ A. Description $ $ This problem illustrates the fully automated multi-stage substructuring $ capability of NASTRAN. $ $ Of the total of seven runs involved, three Phase 1 runs are made, one for each $ basic substructure, using Rigid Format 2 in order to generate mass matrices. $ The combination and reduction to the final model is accomplished in seven $ distinct Phase 2 steps, plus eight equivalence operations. A static solution, $ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 $ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data $ recovery for two of the basic substructures. $ $ A seventh run is made to extract normal modes using Rigid Format 3 for the $ reduced structure. $ $ B. Input $ $ 1. Parameters: $ $ r = 50.0 in (outer radius) $ o $ $ r = 10.0 in (inner radius) $ i $ $ t = 0.1 in (plate thickness) $ $ 6 $ E = 10 x 10 psi (modulus of elasticity) $ $ v = 0.25 (Poisson's ratio) $ $ 2. Boundary Conditions: $ $ All points u = theta = theta = theta = 0 (permanent constraint) $ z x y z $ $ u = 0 at HUB grid points 13, 19, 37, 43 $ x $ $ u = 0 at HUB grid points 1, 7, 25, 31 $ y $ $ 3. Loads: $ $ First Subcase: centrifugal force due to unit angular velocity $ $ Second Subcase: unsymmetric load - right panel in tension, bottom panel $ in compression, F = 100 uniformly distributed over each $ loaded edge $ $ Third Subcase: F = 1.0 applied at HUB grid point 4 inward radially $ $ 4. Substructuring Parameters: $ $ SOF(1) SOF0,950 $ CDC $ $ SOF(1) = FT18,950 $ IBM $ $ SOF(1) = INPT,950 $ UNIVAC $ $ PASSWORD = DEMO $ $ OPTIONS = K, M, P $ $ C. Theory $ $ This problem is designed to illustrate the use of automated multi-stage $ substructuring. No closed form solution is available. Results are compared $ with non-substructured NASTRAN solutions. $ $ D. Results $ $ The solutions of the final reduced structure using both Rigid Format 1 and $ Rigid Format 3 are in excellent agreement with the non-substructured $ solutions. Displacements at selected points and eigenvalues are compared in $ Table 1. The values presented were obtained from executions on IBM equlpnent. $ Values obtained from CDC and UNIVAC are of the same order of magnitude with $ slight differences attributable to round-off of very snall numbers. $ $ Table 1. Comparison of Displacements at Selected Points $ for Windmill Panel Problem $ ----------------------------------------------------------------------------- $ Subcase 1 Subcase 2 $ ----------------------------------------------------------------------------- $ Name/Point/Comp Single Step Substructure Single Step Substructure $ ----------------------------------------------------------------------------- $ VANE1/1/X -5.6x10^-14 -5.2x10^-14 -2.19155x10^-5 -2.19155x10^-5 $ $ VANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1 8.6081x10^-1 $ $ RVANE1/1/X 4.4x10^-14 2.1x10^-13 2.19155x10^-5 2.19155x10^-5 $ $ RVANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4 -3.85997x10^-4 $ $ HUB/5/X -3.5x10^-14 -4.8x10^-14 1.04757x10^-5 1.04757x10^-5 $ $ HUB/5/Y 6.70493x10^-8 6.70488x10^-8 -6.43969x10^-7 -6.4397x10^-7 $ ------------------------------------------------------------------------------ $ Frequency, cps - - - - $ ------------------------------------------------------------------------------ $ $ ---------------------------------------------- $ Eigenvector #1 $ ---------------------------------------------- $ Name/Point/Comp Single Step Substructure $ ---------------------------------------------- $ VANE1/1/X 1.000000 -.999752 $ $ VANE1/1/Y -8.612x10^-9 3.297x10^-7 $ $ RVANE1/1/X 1.000000 -.999748 $ $ RVANE1/1/Y 1.264x10^-9 -1.688x10^-7 $ $ HUB/5/X -1.46899x10^-1 1.46636x10^-1 $ $ HUB/5/Y -3.140x10^-9 -7.8304x10^-6 $ ---------------------------------------------- $ Frequency, cps 288.3 288.3 $ ---------------------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d02023a.inp ================================================ ID D02023A,NASTRAN APP DISPLACEMENT,SUBS SOL 2,0 TIME 10 DIAG 23 CEND SUBSTRUCTURE PHASE1 PASSWORD = DEMO SOF(1) = FT18,950 $ DEC VAX RUN = STEP OPTION = K,M,P NAME = VANE1 SAVEPLOT = 1 SOFP TOC ENDSUBS TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A LABEL = SUBSTRUCTURE 3, RUN 3, PHASE 1 SUBCASE 1 LABEL = ROTATIOAL FORCES ABOUT CENTER OF OVERALL STRUCTURE LOAD = 1 SUBCASE 2 LABEL = EXTENSION OF PANEL LOAD = 2 OUTPUT(PLOT) SET 1 = ALL PLOT BEGIN BULK CORD2R 1 5.0 22.5 .0 5.0 22.5 1.0 +A +A .0 22.5 .0 CQDMEM 1 10 3 4 2 1 CQDMEM 2 10 5 6 4 3 CQDMEM 3 10 7 8 6 5 FORCE1 2 1 25.0 4 2 FORCE1 2 2 25.0 4 2 GRDSET 1 3456 GRID 1 .0 22.5 GRID 2 5.0 22.5 GRID 3 .0 15.0 GRID 4 5.0 15.0 GRID 5 .0 7.5 GRID 6 5.0 7.5 GRID 7 .0 .0 GRID 8 5.0 .0 GRID 9 .0 -27.5 123456 MAT1 50 1.0+7 .25 2.5E-4 1.0E-6 70.0 PQDMEM 10 50 .1 RFORCE 1 9 .1591579.0 .0 1.0 ENDDATA ================================================ FILE: inp/d02023a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT NO. 2, Inertia Relief Analysis $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 1, (2-2-1) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 2, (2-2-2) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 3, (2-2-3) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 4, (2-2-4) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 5, (2-2-5) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 6, (2-2-6) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 7, (2-2-7) $ $ A. Description $ $ This problem illustrates the fully automated multi-stage substructuring $ capability of NASTRAN. $ $ Of the total of seven runs involved, three Phase 1 runs are made, one for each $ basic substructure, using Rigid Format 2 in order to generate mass matrices. $ The combination and reduction to the final model is accomplished in seven $ distinct Phase 2 steps, plus eight equivalence operations. A static solution, $ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 $ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data $ recovery for two of the basic substructures. $ $ A seventh run is made to extract normal modes using Rigid Format 3 for the $ reduced structure. $ $ B. Input $ $ 1. Parameters: $ $ r = 50.0 in (outer radius) $ o $ $ r = 10.0 in (inner radius) $ i $ $ t = 0.1 in (plate thickness) $ $ 6 $ E = 10 x 10 psi (modulus of elasticity) $ $ v = 0.25 (Poisson's ratio) $ $ 2. Boundary Conditions: $ $ All points u = theta = theta = theta = 0 (permanent constraint) $ z x y z $ $ u = 0 at HUB grid points 13, 19, 37, 43 $ x $ $ u = 0 at HUB grid points 1, 7, 25, 31 $ y $ $ 3. Loads: $ $ First Subcase: centrifugal force due to unit angular velocity $ $ Second Subcase: unsymmetric load - right panel in tension, bottom panel $ in compression, F = 100 uniformly distributed over each $ loaded edge $ $ Third Subcase: F = 1.0 applied at HUB grid point 4 inward radially $ $ 4. Substructuring Parameters: $ $ SOF(1) SOF0,950 $ CDC $ $ SOF(1) = FT18,950 $ IBM $ $ SOF(1) = INPT,950 $ UNIVAC $ $ PASSWORD = DEMO $ $ OPTIONS = K, M, P $ $ C. Theory $ $ This problem is designed to illustrate the use of automated multi-stage $ substructuring. No closed form solution is available. Results are compared $ with non-substructured NASTRAN solutions. $ $ D. Results $ $ The solutions of the final reduced structure using both Rigid Format 1 and $ Rigid Format 3 are in excellent agreement with the non-substructured $ solutions. Displacements at selected points and eigenvalues are compared in $ Table 1. The values presented were obtained from executions on IBM equlpnent. $ Values obtained from CDC and UNIVAC are of the same order of magnitude with $ slight differences attributable to round-off of very snall numbers. $ $ Table 1. Comparison of Displacements at Selected Points $ for Windmill Panel Problem $ ----------------------------------------------------------------------------- $ Subcase 1 Subcase 2 $ ----------------------------------------------------------------------------- $ Name/Point/Comp Single Step Substructure Single Step Substructure $ ----------------------------------------------------------------------------- $ VANE1/1/X -5.6x10^-14 -5.2x10^-14 -2.19155x10^-5 -2.19155x10^-5 $ $ VANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1 8.6081x10^-1 $ $ RVANE1/1/X 4.4x10^-14 2.1x10^-13 2.19155x10^-5 2.19155x10^-5 $ $ RVANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4 -3.85997x10^-4 $ $ HUB/5/X -3.5x10^-14 -4.8x10^-14 1.04757x10^-5 1.04757x10^-5 $ $ HUB/5/Y 6.70493x10^-8 6.70488x10^-8 -6.43969x10^-7 -6.4397x10^-7 $ ------------------------------------------------------------------------------ $ Frequency, cps - - - - $ ------------------------------------------------------------------------------ $ $ ---------------------------------------------- $ Eigenvector #1 $ ---------------------------------------------- $ Name/Point/Comp Single Step Substructure $ ---------------------------------------------- $ VANE1/1/X 1.000000 -.999752 $ $ VANE1/1/Y -8.612x10^-9 3.297x10^-7 $ $ RVANE1/1/X 1.000000 -.999748 $ $ RVANE1/1/Y 1.264x10^-9 -1.688x10^-7 $ $ HUB/5/X -1.46899x10^-1 1.46636x10^-1 $ $ HUB/5/Y -3.140x10^-9 -7.8304x10^-6 $ ---------------------------------------------- $ Frequency, cps 288.3 288.3 $ ---------------------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d02024a.inp ================================================ ID D02024A,NASTRAN APP DISPLACEMENT,SUBS SOL 1,0 TIME 30 DIAG 23 CEND SUBSTRUCTURE PHASE2 PASSWORD = DEMO SOF(1) = FT18,950 $ DEC VAX OPTIONS = K,M,P PLOT VANE1 PLOT ROOT1 PLOT HUB $ $ STEP I. COMBINE VANETOP $ SOFPRINT TOC EQUIV VANE1,VANE2 PREFIX=X COMBINE VANE1,VANE2 NAME=VANETOP TOLERANCE=0.02 OUTPUT=1,2,7,11,12,13,14,15,16,17 COMPONENT=VANE1 TRANS=100 COMPONENT=VANE2 TRANS=100 SYMT=X PLOT VANETOP SOFPRINT TOC $ $ STEP II. COMBINE ROOTTOP $ EQUIV ROOT1,ROOT2 PREFIX=X COMBINE ROOT1,ROOT2 NAME=ROOTTOP TOLERANCE=0.02 OUTPUT=1,2,7,11,12,13,14,15,16,17 COMPONENT=ROOT2 SYMT=X PLOT ROOTTOP SOFPRINT TOC $ $ STEP III. SEVEN STRUCTURE COMBINE $ EQUIV VANETOP,VANELFT PREFIX=L EQUIV VANETOP,VANERGT PREFIX=R EQUIV VANETOP,VANEBOT PREFIX=B EQUIV ROOTTOP,ROOTLFT PREFIX=L EQUIV ROOTTOP,ROOTRGT PREFIX=R EQUIV ROOTTOP,ROOTBOT PREFIX=B SOFPRINT TOC $ COMBINE VANETOP,ROOTTOP,VANELFT,ROOTLFT,VANEBOT,ROOTBOT,ROOTRGT NAME=RING TOLERANCE=0.02 OUTPUT=1,2,7,11,12,13,14,15,16,17 COMPONENT=VANELFT TRANS=400 COMPONENT=ROOTLFT TRANS=400 COMPONENT=VANEBOT SYMT=Y COMPONENT=ROOTBOT SYMT=Y COMPONENT=ROOTRGT TRANS=300 SOFPRINT TOC $ $ STEP IV. COMBINATION OF BLADES $ COMBINE RING,VANERGT NAME=BLADES TOLERANCE=0.02 OUTPUT=1,2,7,11,12,13,14,15,16,17 COMPONENT=VANERGT TRANS=500 SOFPRINT TOC $ $ STEP V. FINAL COMBINE OF WINDMILL WITH RELES OPTION $ COMBINE HUB,BLADES NAME=WINDMIL TOLERANCE=0.02 OUTPUT=1,2,9,11,12,13,14,15,16,17 CONNECT=1000 SOFPRINT TOC PLOT WINDMIL $ $ STEP VI. REDUCTION TO BOUNDARY POINTS $ REDUCE WINDMIL NAME=SMALLMIL BOUNDARY=2000 RSAVE OUTPUT=1,2,3,4,5,6,7,8,9 SOFPRINT TOC SOLVE SMALLMIL RECOVER SMALLMIL PRINT WINDMIL SAVE HUB SAVE RVANE1 SOFPRINT TOC ENDSUBS TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A LABEL = COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2 DISP = ALL OLOAD = ALL MPC = 20 SUBCASE 1 LABEL = ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE LOAD = 1 SUBCASE 2 LABEL = EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL LOAD = 2 SUBCASE 3 LABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5 LOAD = 3 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. 2-2-4 OUTPUT(PLOT) PLOTTER NASTPLT SET 1 = ALL AXES Z, X, Y VIEW 0.0, 0.0, 0.0 FIND SCALE, ORIGIN 1, SET 1, REGION 0.1, 0.1, 0.9, 0.9 PTITLE = SUBSTRUCTURES VANE1/ROOT1/HUB/VANETOP/ROOTTOP PLUS MILL PLOT SET 1, ORIGIN 1, LABEL BOTH BEGIN BULK BDYC 2000 VANE1 200 VANE2 200 LVANE1 200 +BC1 +BC1 LVANE2 200 BVANE1 200 BVANE2 200 +BC2 +BC2 RVANE1 200 RVANE2 200 ROOT1 230 +BC3 +BC3 ROOT2 210 LROOT1 210 LROOT2 210 +BC4 +BC4 BROOT1 210 BROOT2 210 RROOT1 210 +BC5 +BC5 RROOT2 210 HUB 220 BDYS1 200 12 1 2 4 6 8 BDYS1 210 12 2 4 7 BDYS1 220 1 1 7 31 25 BDYS1 220 2 13 19 37 43 BDYS1 220 12 4 10 16 22 28 34 +B1 +B1 40 46 108 BDYS1 230 12 2 4 6 7 GTRAN 100 VANE1 7 0 GTRAN 100 VANE1 8 0 GTRAN 100 VANE2 1 200 GTRAN 100 VANE2 2 200 GTRAN 100 VANE2 3 200 GTRAN 100 VANE2 4 200 GTRAN 100 VANE2 5 200 GTRAN 100 VANE2 6 200 GTRAN 100 VANE2 7 0 GTRAN 100 VANE2 8 0 LOADC 1 1.0 VANE1 1 1.0 VANE2 1 1.0 +LC1A +LC1A ROOT1 1 1.0 ROOT2 1 1.0 +LC1B +LC1B LVANE1 1 1.0 LVANE2 1 1.0 +LC1C +LC1C LROOT1 1 1.0 LROOT2 1 1.0 +LC1D +LC1D BVANE1 1 1.0 BVANE2 1 1.0 +LC1E +LC1E BROOT1 1 1.0 BROOT2 1 1.0 +LC1F +LC1F RVANE1 1 1.0 RVANE2 1 1.0 +LC1G +LC1G RROOT1 1 1.0 RROOT2 1 1.0 +LC1H +LC1H HUB 1 1.0 LOADC 2 -1.0 BVANE1 2 1.0 BVANE2 2 1.0 +LC2A +LC2A RVANE1 2 -1.0 RVANE2 2 -1.0 LOADC 3 1.0 HUB 3 1.0 MPCS 20 HUB 108 1 -1.0 +MPC1 +MPC1 ROOT1 6 2 .94868336 1 .3162278 MPCS 20 HUB 108 2 -1.0 +MPC2 +MPC2 ROOT1 6 1 -.9486836 2 .3162278 RELES 1000 HUB 5 2 17 1 29 2 +REL +REL 41 1 108 12 TRANS 100 0.0 27.5 0.0 0.0 27.5 1.0 +A +A 5.0 27.5 0.0 TRANS 200 0.0 0.0 0.0 0.0 0.0 1. +B +B -1.0 0.0 0.0 TRANS 300 .0 .0 .0 .0 .0 1.0 +D +D .0 -1.0 .0 TRANS 400 .0 .0 .0 .0 .0 1.0 +C +C .0 1.0 .0 TRANS 500 .0 .0 .0 .0 .0 1.0 +E +E .0 -1.0 .0 ENDDATA ================================================ FILE: inp/d02024a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT NO. 2, Inertia Relief Analysis $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 1, (2-2-1) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 2, (2-2-2) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 3, (2-2-3) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 4, (2-2-4) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 5, (2-2-5) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 6, (2-2-6) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 7, (2-2-7) $ $ A. Description $ $ This problem illustrates the fully automated multi-stage substructuring $ capability of NASTRAN. $ $ Of the total of seven runs involved, three Phase 1 runs are made, one for each $ basic substructure, using Rigid Format 2 in order to generate mass matrices. $ The combination and reduction to the final model is accomplished in seven $ distinct Phase 2 steps, plus eight equivalence operations. A static solution, $ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 $ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data $ recovery for two of the basic substructures. $ $ A seventh run is made to extract normal modes using Rigid Format 3 for the $ reduced structure. $ $ B. Input $ $ 1. Parameters: $ $ r = 50.0 in (outer radius) $ o $ $ r = 10.0 in (inner radius) $ i $ $ t = 0.1 in (plate thickness) $ $ 6 $ E = 10 x 10 psi (modulus of elasticity) $ $ v = 0.25 (Poisson's ratio) $ $ 2. Boundary Conditions: $ $ All points u = theta = theta = theta = 0 (permanent constraint) $ z x y z $ $ u = 0 at HUB grid points 13, 19, 37, 43 $ x $ $ u = 0 at HUB grid points 1, 7, 25, 31 $ y $ $ 3. Loads: $ $ First Subcase: centrifugal force due to unit angular velocity $ $ Second Subcase: unsymmetric load - right panel in tension, bottom panel $ in compression, F = 100 uniformly distributed over each $ loaded edge $ $ Third Subcase: F = 1.0 applied at HUB grid point 4 inward radially $ $ 4. Substructuring Parameters: $ $ SOF(1) SOF0,950 $ CDC $ $ SOF(1) = FT18,950 $ IBM $ $ SOF(1) = INPT,950 $ UNIVAC $ $ PASSWORD = DEMO $ $ OPTIONS = K, M, P $ $ C. Theory $ $ This problem is designed to illustrate the use of automated multi-stage $ substructuring. No closed form solution is available. Results are compared $ with non-substructured NASTRAN solutions. $ $ D. Results $ $ The solutions of the final reduced structure using both Rigid Format 1 and $ Rigid Format 3 are in excellent agreement with the non-substructured $ solutions. Displacements at selected points and eigenvalues are compared in $ Table 1. The values presented were obtained from executions on IBM equlpnent. $ Values obtained from CDC and UNIVAC are of the same order of magnitude with $ slight differences attributable to round-off of very snall numbers. $ $ Table 1. Comparison of Displacements at Selected Points $ for Windmill Panel Problem $ ----------------------------------------------------------------------------- $ Subcase 1 Subcase 2 $ ----------------------------------------------------------------------------- $ Name/Point/Comp Single Step Substructure Single Step Substructure $ ----------------------------------------------------------------------------- $ VANE1/1/X -5.6x10^-14 -5.2x10^-14 -2.19155x10^-5 -2.19155x10^-5 $ $ VANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1 8.6081x10^-1 $ $ RVANE1/1/X 4.4x10^-14 2.1x10^-13 2.19155x10^-5 2.19155x10^-5 $ $ RVANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4 -3.85997x10^-4 $ $ HUB/5/X -3.5x10^-14 -4.8x10^-14 1.04757x10^-5 1.04757x10^-5 $ $ HUB/5/Y 6.70493x10^-8 6.70488x10^-8 -6.43969x10^-7 -6.4397x10^-7 $ ------------------------------------------------------------------------------ $ Frequency, cps - - - - $ ------------------------------------------------------------------------------ $ $ ---------------------------------------------- $ Eigenvector #1 $ ---------------------------------------------- $ Name/Point/Comp Single Step Substructure $ ---------------------------------------------- $ VANE1/1/X 1.000000 -.999752 $ $ VANE1/1/Y -8.612x10^-9 3.297x10^-7 $ $ RVANE1/1/X 1.000000 -.999748 $ $ RVANE1/1/Y 1.264x10^-9 -1.688x10^-7 $ $ HUB/5/X -1.46899x10^-1 1.46636x10^-1 $ $ HUB/5/Y -3.140x10^-9 -7.8304x10^-6 $ ---------------------------------------------- $ Frequency, cps 288.3 288.3 $ ---------------------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d02025a.inp ================================================ ID D02025A,NASTRAN APP DISP,SUBS SOL 1,0 TIME 5 DIAG 23 CEND SUBSTRUCTURE PHASE3 PASSWORD = DEMO SOF(1) = FT18,950 $ DEC VAX SOFPRINT TOC RECOVER RVANE1 ENDSUBS TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A LABEL = RECOVER RVANE1, RUN 5, PHASE 3 DISP = ALL STRESS = ALL SUBCASE 1 LABEL = ROTATIOAL FORCES ABOUT CENTER OF OVERALL STRUCTURE SUBCASE 2 LABEL = EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL SUBCASE 3 LABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5 BEGIN BULK CORD2R 1 5.0 22.5 .0 5.0 22.5 1.0 +A +A .0 22.5 .0 CQDMEM 1 10 3 4 2 1 CQDMEM 2 10 5 6 4 3 CQDMEM 3 10 7 8 6 5 FORCE1 2 1 25.0 4 2 FORCE1 2 2 25.0 4 2 GRDSET 1 3456 GRID 1 .0 22.5 GRID 2 5.0 22.5 GRID 3 .0 15.0 GRID 4 5.0 15.0 GRID 5 .0 7.5 GRID 6 5.0 7.5 GRID 7 .0 .0 GRID 8 5.0 .0 GRID 9 .0 -27.5 123456 MAT1 50 1.0+7 .25 2.5E-4 1.0E-6 70.0 PQDMEM 10 50 .1 RFORCE 1 9 .1591579.0 .0 1.0 ENDDATA ================================================ FILE: inp/d02025a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT NO. 2, Inertia Relief Analysis $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 1, (2-2-1) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 2, (2-2-2) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 3, (2-2-3) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 4, (2-2-4) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 5, (2-2-5) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 6, (2-2-6) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 7, (2-2-7) $ $ A. Description $ $ This problem illustrates the fully automated multi-stage substructuring $ capability of NASTRAN. $ $ Of the total of seven runs involved, three Phase 1 runs are made, one for each $ basic substructure, using Rigid Format 2 in order to generate mass matrices. $ The combination and reduction to the final model is accomplished in seven $ distinct Phase 2 steps, plus eight equivalence operations. A static solution, $ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 $ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data $ recovery for two of the basic substructures. $ $ A seventh run is made to extract normal modes using Rigid Format 3 for the $ reduced structure. $ $ B. Input $ $ 1. Parameters: $ $ r = 50.0 in (outer radius) $ o $ $ r = 10.0 in (inner radius) $ i $ $ t = 0.1 in (plate thickness) $ $ 6 $ E = 10 x 10 psi (modulus of elasticity) $ $ v = 0.25 (Poisson's ratio) $ $ 2. Boundary Conditions: $ $ All points u = theta = theta = theta = 0 (permanent constraint) $ z x y z $ $ u = 0 at HUB grid points 13, 19, 37, 43 $ x $ $ u = 0 at HUB grid points 1, 7, 25, 31 $ y $ $ 3. Loads: $ $ First Subcase: centrifugal force due to unit angular velocity $ $ Second Subcase: unsymmetric load - right panel in tension, bottom panel $ in compression, F = 100 uniformly distributed over each $ loaded edge $ $ Third Subcase: F = 1.0 applied at HUB grid point 4 inward radially $ $ 4. Substructuring Parameters: $ $ SOF(1) SOF0,950 $ CDC $ $ SOF(1) = FT18,950 $ IBM $ $ SOF(1) = INPT,950 $ UNIVAC $ $ PASSWORD = DEMO $ $ OPTIONS = K, M, P $ $ C. Theory $ $ This problem is designed to illustrate the use of automated multi-stage $ substructuring. No closed form solution is available. Results are compared $ with non-substructured NASTRAN solutions. $ $ D. Results $ $ The solutions of the final reduced structure using both Rigid Format 1 and $ Rigid Format 3 are in excellent agreement with the non-substructured $ solutions. Displacements at selected points and eigenvalues are compared in $ Table 1. The values presented were obtained from executions on IBM equlpnent. $ Values obtained from CDC and UNIVAC are of the same order of magnitude with $ slight differences attributable to round-off of very snall numbers. $ $ Table 1. Comparison of Displacements at Selected Points $ for Windmill Panel Problem $ ----------------------------------------------------------------------------- $ Subcase 1 Subcase 2 $ ----------------------------------------------------------------------------- $ Name/Point/Comp Single Step Substructure Single Step Substructure $ ----------------------------------------------------------------------------- $ VANE1/1/X -5.6x10^-14 -5.2x10^-14 -2.19155x10^-5 -2.19155x10^-5 $ $ VANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1 8.6081x10^-1 $ $ RVANE1/1/X 4.4x10^-14 2.1x10^-13 2.19155x10^-5 2.19155x10^-5 $ $ RVANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4 -3.85997x10^-4 $ $ HUB/5/X -3.5x10^-14 -4.8x10^-14 1.04757x10^-5 1.04757x10^-5 $ $ HUB/5/Y 6.70493x10^-8 6.70488x10^-8 -6.43969x10^-7 -6.4397x10^-7 $ ------------------------------------------------------------------------------ $ Frequency, cps - - - - $ ------------------------------------------------------------------------------ $ $ ---------------------------------------------- $ Eigenvector #1 $ ---------------------------------------------- $ Name/Point/Comp Single Step Substructure $ ---------------------------------------------- $ VANE1/1/X 1.000000 -.999752 $ $ VANE1/1/Y -8.612x10^-9 3.297x10^-7 $ $ RVANE1/1/X 1.000000 -.999748 $ $ RVANE1/1/Y 1.264x10^-9 -1.688x10^-7 $ $ HUB/5/X -1.46899x10^-1 1.46636x10^-1 $ $ HUB/5/Y -3.140x10^-9 -7.8304x10^-6 $ ---------------------------------------------- $ Frequency, cps 288.3 288.3 $ ---------------------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d02026a.inp ================================================ ID D02026A,NASTRAN APP DISPLACEMENT,SUBS SOL 1,0 TIME 5 DIAG 23 CEND SUBSTRUCTURE PHASE3 PASSWORD = DEMO SOF(1) = FT18,950 $ DEC VAX SOFPRINT TOC BRECOVER HUB ENDSUBS TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A LABEL = RECOVER HUB, RUN 6, PHASE 3 DISP = ALL STRESS = ALL SPC = 30 SUBCASE 1 LABEL = ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE SUBCASE 2 LABEL = EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL SUBCASE 3 LABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5 BEGIN BULK CORD2C 1 0 .0 .0 .0 .0 .0 1.0 +COR +COR 1.0 .0 .0 CQDMEM 1 10 1 4 5 2 CQDMEM 3 10 4 7 108 5 CQDMEM 5 10 108 7 10 11 CQDMEM 7 10 13 14 11 10 CQDMEM 9 10 16 17 14 13 CQDMEM 11 10 19 20 17 16 CQDMEM 13 10 20 19 22 23 CQDMEM 15 10 25 26 23 22 CQDMEM 17 10 29 26 25 28 CQDMEM 19 10 32 29 28 31 CQDMEM 21 10 32 31 34 35 CQDMEM 23 10 37 38 35 34 CQDMEM 25 10 38 37 40 41 CQDMEM 27 10 41 40 43 44 CQDMEM 29 10 44 43 46 47 CQDMEM 31 10 1 2 47 46 FORCE1 3 4 1.0 5 4 GRDSET 3456 GRID 1 -5.0 10.0 GRID 2 -5.0 15.0 GRID 4 .0 10.0 GRID 5 .0 15.0 GRID 7 5.0 10.0 GRID 10 7.5 7.5 GRID 11 10.0 10.0 GRID 13 10.0 5.0 GRID 14 15.0 5.0 GRID 16 10.0 .0 GRID 17 15.0 .0 GRID 19 10.0 -5.0 GRID 20 15.0 -5.0 GRID 22 7.5 -7.5 GRID 23 10.0 -10.0 GRID 25 5.0 -10.0 GRID 26 5.0 -15.0 GRID 28 .0 -10.0 GRID 29 .0 -15.0 GRID 31 -5.0 -10.0 GRID 32 -5.0 -15.0 GRID 34 -7.5 -7.5 GRID 35 -10.0 -10.0 GRID 37 -10.0 -5.0 GRID 38 -15.0 -5.0 GRID 40 -10.0 .0 GRID 41 -15.0 .0 GRID 43 -10.0 5.0 GRID 44 -15.0 5.0 GRID 46 -7.5 7.5 GRID 47 -10.0 10.0 GRID 108 5.0 15.0 1 MAT1 50 1.0+7 .25 2.5E-4 1.0E-6 70.0 PQDMEM 10 50 .1 RFORCE 1 0 0 .1591579.0 .0 1.0 SPC1 30 1 13 19 37 43 SPC1 30 2 1 7 31 25 ENDDATA ================================================ FILE: inp/d02026a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT NO. 2, Inertia Relief Analysis $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 1, (2-2-1) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 2, (2-2-2) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 3, (2-2-3) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 4, (2-2-4) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 5, (2-2-5) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 6, (2-2-6) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 7, (2-2-7) $ $ A. Description $ $ This problem illustrates the fully automated multi-stage substructuring $ capability of NASTRAN. $ $ Of the total of seven runs involved, three Phase 1 runs are made, one for each $ basic substructure, using Rigid Format 2 in order to generate mass matrices. $ The combination and reduction to the final model is accomplished in seven $ distinct Phase 2 steps, plus eight equivalence operations. A static solution, $ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 $ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data $ recovery for two of the basic substructures. $ $ A seventh run is made to extract normal modes using Rigid Format 3 for the $ reduced structure. $ $ B. Input $ $ 1. Parameters: $ $ r = 50.0 in (outer radius) $ o $ $ r = 10.0 in (inner radius) $ i $ $ t = 0.1 in (plate thickness) $ $ 6 $ E = 10 x 10 psi (modulus of elasticity) $ $ v = 0.25 (Poisson's ratio) $ $ 2. Boundary Conditions: $ $ All points u = theta = theta = theta = 0 (permanent constraint) $ z x y z $ $ u = 0 at HUB grid points 13, 19, 37, 43 $ x $ $ u = 0 at HUB grid points 1, 7, 25, 31 $ y $ $ 3. Loads: $ $ First Subcase: centrifugal force due to unit angular velocity $ $ Second Subcase: unsymmetric load - right panel in tension, bottom panel $ in compression, F = 100 uniformly distributed over each $ loaded edge $ $ Third Subcase: F = 1.0 applied at HUB grid point 4 inward radially $ $ 4. Substructuring Parameters: $ $ SOF(1) SOF0,950 $ CDC $ $ SOF(1) = FT18,950 $ IBM $ $ SOF(1) = INPT,950 $ UNIVAC $ $ PASSWORD = DEMO $ $ OPTIONS = K, M, P $ $ C. Theory $ $ This problem is designed to illustrate the use of automated multi-stage $ substructuring. No closed form solution is available. Results are compared $ with non-substructured NASTRAN solutions. $ $ D. Results $ $ The solutions of the final reduced structure using both Rigid Format 1 and $ Rigid Format 3 are in excellent agreement with the non-substructured $ solutions. Displacements at selected points and eigenvalues are compared in $ Table 1. The values presented were obtained from executions on IBM equlpnent. $ Values obtained from CDC and UNIVAC are of the same order of magnitude with $ slight differences attributable to round-off of very snall numbers. $ $ Table 1. Comparison of Displacements at Selected Points $ for Windmill Panel Problem $ ----------------------------------------------------------------------------- $ Subcase 1 Subcase 2 $ ----------------------------------------------------------------------------- $ Name/Point/Comp Single Step Substructure Single Step Substructure $ ----------------------------------------------------------------------------- $ VANE1/1/X -5.6x10^-14 -5.2x10^-14 -2.19155x10^-5 -2.19155x10^-5 $ $ VANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1 8.6081x10^-1 $ $ RVANE1/1/X 4.4x10^-14 2.1x10^-13 2.19155x10^-5 2.19155x10^-5 $ $ RVANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4 -3.85997x10^-4 $ $ HUB/5/X -3.5x10^-14 -4.8x10^-14 1.04757x10^-5 1.04757x10^-5 $ $ HUB/5/Y 6.70493x10^-8 6.70488x10^-8 -6.43969x10^-7 -6.4397x10^-7 $ ------------------------------------------------------------------------------ $ Frequency, cps - - - - $ ------------------------------------------------------------------------------ $ $ ---------------------------------------------- $ Eigenvector #1 $ ---------------------------------------------- $ Name/Point/Comp Single Step Substructure $ ---------------------------------------------- $ VANE1/1/X 1.000000 -.999752 $ $ VANE1/1/Y -8.612x10^-9 3.297x10^-7 $ $ RVANE1/1/X 1.000000 -.999748 $ $ RVANE1/1/Y 1.264x10^-9 -1.688x10^-7 $ $ HUB/5/X -1.46899x10^-1 1.46636x10^-1 $ $ HUB/5/Y -3.140x10^-9 -7.8304x10^-6 $ ---------------------------------------------- $ Frequency, cps 288.3 288.3 $ ---------------------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d02027a.inp ================================================ ID D02027A,NASTRAN APP DISP,SUBS SOL 3,0 TIME 20 DIAG 23 CEND SUBSTRUCTURE PHASE2 PASSWORD = DEMO SOF(1) = FT18,950 $ DEC VAX SOFPRINT TOC EQUIV SMALLMIL,SMILLDYN PREFIX = D SOFPRINT TOC SOLVE SMILLDYN RECOVER SMILLDYN PRINT DWINDMIL ENDSUBS TITLE = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A LABEL = NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2 METHOD = 10 MPC = 21 VECTOR = ALL BEGIN BULK EIGR 10 INV .0 .1 1 1 PEIG +EIG MAX MPCS 21 DHUB 108 1 -1.0 +MPC1 +MPC1 DROOT1 6 2 .94868336 1 .3162278 MPCS 21 DHUB 108 2 -1.0 +MPC2 +MPC2 DROOT1 6 1 -.9486836 2 .3162278 ENDDATA ================================================ FILE: inp/d02027a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT NO. 2, Inertia Relief Analysis $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 1, (2-2-1) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 2, (2-2-2) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 3, (2-2-3) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 4, (2-2-4) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 5, (2-2-5) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 6, (2-2-6) $ Windmill Panel Sections for Automated Multi-stage Substructuring, $ Run 7, (2-2-7) $ $ A. Description $ $ This problem illustrates the fully automated multi-stage substructuring $ capability of NASTRAN. $ $ Of the total of seven runs involved, three Phase 1 runs are made, one for each $ basic substructure, using Rigid Format 2 in order to generate mass matrices. $ The combination and reduction to the final model is accomplished in seven $ distinct Phase 2 steps, plus eight equivalence operations. A static solution, $ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 $ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data $ recovery for two of the basic substructures. $ $ A seventh run is made to extract normal modes using Rigid Format 3 for the $ reduced structure. $ $ B. Input $ $ 1. Parameters: $ $ r = 50.0 in (outer radius) $ o $ $ r = 10.0 in (inner radius) $ i $ $ t = 0.1 in (plate thickness) $ $ 6 $ E = 10 x 10 psi (modulus of elasticity) $ $ v = 0.25 (Poisson's ratio) $ $ 2. Boundary Conditions: $ $ All points u = theta = theta = theta = 0 (permanent constraint) $ z x y z $ $ u = 0 at HUB grid points 13, 19, 37, 43 $ x $ $ u = 0 at HUB grid points 1, 7, 25, 31 $ y $ $ 3. Loads: $ $ First Subcase: centrifugal force due to unit angular velocity $ $ Second Subcase: unsymmetric load - right panel in tension, bottom panel $ in compression, F = 100 uniformly distributed over each $ loaded edge $ $ Third Subcase: F = 1.0 applied at HUB grid point 4 inward radially $ $ 4. Substructuring Parameters: $ $ SOF(1) SOF0,950 $ CDC $ $ SOF(1) = FT18,950 $ IBM $ $ SOF(1) = INPT,950 $ UNIVAC $ $ PASSWORD = DEMO $ $ OPTIONS = K, M, P $ $ C. Theory $ $ This problem is designed to illustrate the use of automated multi-stage $ substructuring. No closed form solution is available. Results are compared $ with non-substructured NASTRAN solutions. $ $ D. Results $ $ The solutions of the final reduced structure using both Rigid Format 1 and $ Rigid Format 3 are in excellent agreement with the non-substructured $ solutions. Displacements at selected points and eigenvalues are compared in $ Table 1. The values presented were obtained from executions on IBM equlpnent. $ Values obtained from CDC and UNIVAC are of the same order of magnitude with $ slight differences attributable to round-off of very snall numbers. $ $ Table 1. Comparison of Displacements at Selected Points $ for Windmill Panel Problem $ ----------------------------------------------------------------------------- $ Subcase 1 Subcase 2 $ ----------------------------------------------------------------------------- $ Name/Point/Comp Single Step Substructure Single Step Substructure $ ----------------------------------------------------------------------------- $ VANE1/1/X -5.6x10^-14 -5.2x10^-14 -2.19155x10^-5 -2.19155x10^-5 $ $ VANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1 8.6081x10^-1 $ $ RVANE1/1/X 4.4x10^-14 2.1x10^-13 2.19155x10^-5 2.19155x10^-5 $ $ RVANE1/1/Y -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4 -3.85997x10^-4 $ $ HUB/5/X -3.5x10^-14 -4.8x10^-14 1.04757x10^-5 1.04757x10^-5 $ $ HUB/5/Y 6.70493x10^-8 6.70488x10^-8 -6.43969x10^-7 -6.4397x10^-7 $ ------------------------------------------------------------------------------ $ Frequency, cps - - - - $ ------------------------------------------------------------------------------ $ $ ---------------------------------------------- $ Eigenvector #1 $ ---------------------------------------------- $ Name/Point/Comp Single Step Substructure $ ---------------------------------------------- $ VANE1/1/X 1.000000 -.999752 $ $ VANE1/1/Y -8.612x10^-9 3.297x10^-7 $ $ RVANE1/1/X 1.000000 -.999748 $ $ RVANE1/1/Y 1.264x10^-9 -1.688x10^-7 $ $ HUB/5/X -1.46899x10^-1 1.46636x10^-1 $ $ HUB/5/Y -3.140x10^-9 -7.8304x10^-6 $ ---------------------------------------------- $ Frequency, cps 288.3 288.3 $ ---------------------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d02031a.inp ================================================ ID D02031A,NASTRAN APP DISP,SUBS SOL 2,0 TIME 15 DIAG 23 CEND SUBSTRUCTURE PHASE1 PASSWORD = MDLSYN SOF(1) = FT19,500,NEW $ DEC VAX NAME = ABASIC SOFPRINT TOC ENDSUBS TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A LABEL = SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2 LOAD = 980 $ 1 G ACCELERATION IN -Y DIRECTION BEGIN BULK CROD 1 1 1 2 CROD 2 1 2 3 CROD 11 1 11 12 CROD 12 1 12 13 CROD 21 1 21 22 CROD 22 1 22 23 CROD 31 1 31 32 CROD 32 1 32 33 CROD 41 1 41 42 CROD 42 1 42 43 CROD 51 1 51 52 CROD 52 1 52 53 CROD 111 1 1 11 CROD 112 1 2 12 CROD 113 1 3 13 CROD 121 1 11 21 CROD 122 1 12 22 CROD 123 1 13 23 CROD 131 1 21 31 CROD 132 1 22 32 CROD 133 1 23 33 CROD 141 1 31 41 CROD 142 1 32 42 CROD 143 1 33 43 CROD 151 1 41 51 CROD 152 1 42 52 CROD 153 1 43 53 CROD 211 1 2 11 CROD 212 1 2 13 CROD 221 1 12 21 CROD 222 1 12 23 CROD 231 1 22 31 CROD 232 1 22 33 CROD 241 1 32 41 CROD 242 1 32 43 CROD 251 1 42 51 CROD 252 1 42 53 GRAV 980 980.0 .0 -1.0 .0 GRDSET 3456 GRID 1 .0 -30.0 .0 GRID 2 .0 .0 .0 GRID 3 .0 30.0 .0 GRID 11 40.0 -30.0 .0 GRID 12 40.0 .0 .0 GRID 13 40.0 30.0 .0 GRID 21 80.0 -30.0 .0 GRID 22 80.0 .0 .0 GRID 23 80.0 30.0 .0 GRID 31 120.0 -30.0 .0 GRID 32 120.0 .0 .0 GRID 33 120.0 30.0 .0 GRID 41 160.0 -30.0 .0 GRID 42 160.0 .0 .0 GRID 43 160.0 30.0 .0 GRID 51 200.0 -30.0 .0 GRID 52 200.0 .0 .0 GRID 53 200.0 30.0 .0 MAT1 1 10.0+6 .3 2.5-3 PROD 1 1 .3 ENDDATA ================================================ FILE: inp/d02031a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 2, Inertia Relief Analysis $ Truss Dynamic Analysis Using Automated Modal Synthesis, Run 1, (2-3-1) $ Truss Dynamic Analysis Using Automated Nodal Synthesis, Run 2, (2-3-2) $ Truss Dynamic Analysis Using Automated Hodal Synthesis, Run 3, (2-3-3) $ Truss Dynamic Analysis Using Automated Modal Synthesis, Run 4, (2-3-4) $ $ A. Description $ $ This problem illustrates the automated substructuring and modal synthesis $ procedures which provide accurate, efficient solutions in dynamic analysis. $ Each component substructure is reduced to modal and boundary degrees of $ freedom prior to the substructure combine operation. The combination $ structure, formulated in terms of the component modes, is also reduced to $ modal degrees of freedom for solution by the transient analysis rigid format $ (Reference 37). $ $ Four separate runs are performed. $ $ In Runs 1 and 2, the substructuring Phase 1 operations formulate the $ finite element matrices and basic static loads using Rigid Format 2. $ $ In Run 3, the basic substructures are reduced to modal coordinates and $ combined. Another modal synthesis reduction is performed on the $ combination and the resulting eigenvectors are printed. $ $ In Run 4, the second Phase 2 operation is performed on the reduced $ structure with the SOLVE operation using Rigid Format 9 (transient $ analysis). The transient output data is transformed back to the original $ grid point definitions with the RECOVER command. $ $ B. Input $ $ All members are rod elements. All grid points are constrained to include only $ in-plane displacements. The basic input and the substructure control data are $ described below. $ $ 1. Parameters: $ $ a = 40 (typical frame width) $ $ h = 30 (typical frame height) $ $ A = 0.3 (cross section of members) $ $ 6 $ E = 10 (Young's Modulus) $ $ -3 $ P = 2.5 x 10 (density) $ $ 2. Constraints: $ $ u = theta = theta = theta = 0 all points $ z x y z $ $ (Boundary conditions are applied only during solution.) $ $ 3. Loads: $ 3 $ P = 10 load on substructure BBASIC $ y42 $ $ 4. Transient Loads: $ $ U = .143 @t = 0 initial condition $ y42 $ $ 3 $ P = 10 0 < t < .12 load history $ y42 $ $ 5. Substructuring Parameters: $ $ SOF(1) = SOF1,500 $ CDC $ $ SOF(1) = FT19,500 $ IBM $ $ SOF(1) = INP1,500 $ UNIVAC $ $ PASSWORD = MDLSYN $ $ C. Results $ $ For assessing the accuracy of the modal synthesis, the whole structure is run $ in Rigid Format 3 to determine natural frequency and mode shapes. ThIs $ procedure eliminates the effects of finite element errors common to both $ methods. $ $ Natural frequencies for the combined system are shown in Table 1 along with $ the error ratios of the difference. Note that the lowest frequency component $ mode omitted from the analysis was 197.2 Hz. Below this frequency, the $ resulting modes are excellent. $ $ Table 1. Natural Frequencies and Differences for 20 Degrees of Freedom $ Mode Synthesis $ $ ------------------------------------------- $ Mode No. Frequency (Hz) % Difference $ From Full Model $ ------------------------------------------- $ 1 3.596 .0085 $ 2 17.564 .0012 $ 3 28.492 .0639 $ 4 39.507 .0011 $ 5 61.099 .0051 $ 6 80.280 .0066 $ 7 84.454 .379 $ 8 98.898 .039 $ 9 111.764 .018 $ 10 123.348 .345 $ 11 127.556 .548 $ 12 130.359 .155 $ 13 134.922 2.220 $ 14 153.606 .174 $ 15 162.019 2.98 $ 16 180.321 5.27 $ 17 200.702 14.89 $ ------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 37. Herting, D. N.: "Accuracy of Results with NASTRAN Modal Synthesis", NASA $ CP-2062, October, 1978, pp. 389-404. $------------------------------------------------------------------------------- ================================================ FILE: inp/d02032a.inp ================================================ ID D02032A,NASTRAN APP DISP,SUBS SOL 2,0 TIME 30 DIAG 23 CEND SUBSTRUCTURE PHASE1 PASSWORD = MDLSYN SOF(1) = FT19,500 $ DEC VAX NAME = BBASIC SOFPRINT TOC ENDSUBS TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A LABEL = SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2 LOAD = 980 $ 1 G ACCELERATION IN -Y DIRECTION BEGIN BULK CROD 1 1 1 2 CROD 2 1 2 3 CROD 11 1 11 12 CROD 12 1 12 13 CROD 21 1 21 22 CROD 22 1 22 23 CROD 31 1 31 32 CROD 32 1 32 33 CROD 41 1 41 42 CROD 42 1 42 43 CROD 111 1 1 11 CROD 112 1 2 12 CROD 113 1 3 13 CROD 121 1 11 21 CROD 122 1 12 22 CROD 123 1 13 23 CROD 131 1 21 31 CROD 132 1 22 32 CROD 133 1 23 33 CROD 141 1 31 41 CROD 142 1 32 42 CROD 143 1 33 43 CROD 211 1 2 11 CROD 212 1 2 13 CROD 221 1 12 21 CROD 222 1 12 23 CROD 231 1 22 31 CROD 232 1 22 33 CROD 241 1 32 41 CROD 242 1 32 43 GRAV 980 980.0 .0 -1.0 .0 GRDSET 3456 GRID 1 30.0 0.0 0.0 GRID 2 0.0 0.0 0.0 GRID 3 -30.0 0.0 0.0 GRID 11 30.0 40.0 0.0 GRID 12 0.0 40.0 0.0 GRID 13 -30.0 40.0 0.0 GRID 21 30.0 80.0 0.0 GRID 22 0.0 80.0 0.0 GRID 23 -30.0 80.0 0.0 GRID 31 30.0 120.0 0.0 GRID 32 0.0 120.0 0.0 GRID 33 -30.0 120.0 0.0 GRID 41 30.0 160.0 0.0 GRID 42 0.0 160.0 0.0 GRID 43 -30.0 160.0 0.0 MAT1 1 10.0+6 .3 2.5-3 PROD 1 1 .3 ENDDATA ================================================ FILE: inp/d02032a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 2, Inertia Relief Analysis $ Truss Dynamic Analysis Using Automated Modal Synthesis, Run 1, (2-3-1) $ Truss Dynamic Analysis Using Automated Nodal Synthesis, Run 2, (2-3-2) $ Truss Dynamic Analysis Using Automated Hodal Synthesis, Run 3, (2-3-3) $ Truss Dynamic Analysis Using Automated Modal Synthesis, Run 4, (2-3-4) $ $ A. Description $ $ This problem illustrates the automated substructuring and modal synthesis $ procedures which provide accurate, efficient solutions in dynamic analysis. $ Each component substructure is reduced to modal and boundary degrees of $ freedom prior to the substructure combine operation. The combination $ structure, formulated in terms of the component modes, is also reduced to $ modal degrees of freedom for solution by the transient analysis rigid format $ (Reference 37). $ $ Four separate runs are performed. $ $ In Runs 1 and 2, the substructuring Phase 1 operations formulate the $ finite element matrices and basic static loads using Rigid Format 2. $ $ In Run 3, the basic substructures are reduced to modal coordinates and $ combined. Another modal synthesis reduction is performed on the $ combination and the resulting eigenvectors are printed. $ $ In Run 4, the second Phase 2 operation is performed on the reduced $ structure with the SOLVE operation using Rigid Format 9 (transient $ analysis). The transient output data is transformed back to the original $ grid point definitions with the RECOVER command. $ $ B. Input $ $ All members are rod elements. All grid points are constrained to include only $ in-plane displacements. The basic input and the substructure control data are $ described below. $ $ 1. Parameters: $ $ a = 40 (typical frame width) $ $ h = 30 (typical frame height) $ $ A = 0.3 (cross section of members) $ $ 6 $ E = 10 (Young's Modulus) $ $ -3 $ P = 2.5 x 10 (density) $ $ 2. Constraints: $ $ u = theta = theta = theta = 0 all points $ z x y z $ $ (Boundary conditions are applied only during solution.) $ $ 3. Loads: $ 3 $ P = 10 load on substructure BBASIC $ y42 $ $ 4. Transient Loads: $ $ U = .143 @t = 0 initial condition $ y42 $ $ 3 $ P = 10 0 < t < .12 load history $ y42 $ $ 5. Substructuring Parameters: $ $ SOF(1) = SOF1,500 $ CDC $ $ SOF(1) = FT19,500 $ IBM $ $ SOF(1) = INP1,500 $ UNIVAC $ $ PASSWORD = MDLSYN $ $ C. Results $ $ For assessing the accuracy of the modal synthesis, the whole structure is run $ in Rigid Format 3 to determine natural frequency and mode shapes. ThIs $ procedure eliminates the effects of finite element errors common to both $ methods. $ $ Natural frequencies for the combined system are shown in Table 1 along with $ the error ratios of the difference. Note that the lowest frequency component $ mode omitted from the analysis was 197.2 Hz. Below this frequency, the $ resulting modes are excellent. $ $ Table 1. Natural Frequencies and Differences for 20 Degrees of Freedom $ Mode Synthesis $ $ ------------------------------------------- $ Mode No. Frequency (Hz) % Difference $ From Full Model $ ------------------------------------------- $ 1 3.596 .0085 $ 2 17.564 .0012 $ 3 28.492 .0639 $ 4 39.507 .0011 $ 5 61.099 .0051 $ 6 80.280 .0066 $ 7 84.454 .379 $ 8 98.898 .039 $ 9 111.764 .018 $ 10 123.348 .345 $ 11 127.556 .548 $ 12 130.359 .155 $ 13 134.922 2.220 $ 14 153.606 .174 $ 15 162.019 2.98 $ 16 180.321 5.27 $ 17 200.702 14.89 $ ------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 37. Herting, D. N.: "Accuracy of Results with NASTRAN Modal Synthesis", NASA $ CP-2062, October, 1978, pp. 389-404. $------------------------------------------------------------------------------- ================================================ FILE: inp/d02033a.inp ================================================ ID D02033A,NASTRAN APP DISP,SUBS SOL 3,0 TIME 25 DIAG 23 CEND SUBSTRUCTURE PHASE2 PASSWORD = MDLSYN SOF(1) = FT19,500 $ DEC VAX OPTIONS K,M,P SOFPRINT TOC MREDUCE ABASIC NAME MA BOUNDARY 5 FIXED 5 METHOD 9 OUTPUT 1,5,6,9,10 SOFPRINT TOC MREDUCE BBASIC NAME MB BOUNDARY 4 FIXED 4 METHOD 9 OUTPUT 1,5,6,9,10 SOFPRINT TOC COMBINE MA,MB NAME MCOMB TOLERANCE 0.001 OUTPUT 2,7,12 COMPONENT MB TRANSFORM 40 SOFPRINT TOC MREDUCE MCOMB NAME RTRUSS BOUNDARY 42 FIXED 9 METHOD 90 NMAX 18 OUTPUT 1,5,6,9,10 SOFPRINT TOC ENDSUBS TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A LABEL = MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3 $ USE 7 MODES PER COMPONENT AND 18 MODES OF COMBINATION BEGIN BULK BDYC 4 BBASIC 2 BDYC 5 ABASIC 1 BDYC 9 ABASIC 2 BDYC 42 ABASIC 2 BBASIC 42 BDYS1 1 12 1 2 3 51 52 53 BDYS1 2 12 1 2 3 BDYS1 42 2 2 EIGR 9 GIV .0 10000.0 7 +E1 +E1 MAX EIGR 90 GIV .0 10000.0 20 +E2 +E2 MAX TRANS 40 200.0 .0 .0 200.0 .0 1.0 +T1 +T1 200.0 -100.0 .0 ENDDATA ================================================ FILE: inp/d02033a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 2, Inertia Relief Analysis $ Truss Dynamic Analysis Using Automated Modal Synthesis, Run 1, (2-3-1) $ Truss Dynamic Analysis Using Automated Nodal Synthesis, Run 2, (2-3-2) $ Truss Dynamic Analysis Using Automated Hodal Synthesis, Run 3, (2-3-3) $ Truss Dynamic Analysis Using Automated Modal Synthesis, Run 4, (2-3-4) $ $ A. Description $ $ This problem illustrates the automated substructuring and modal synthesis $ procedures which provide accurate, efficient solutions in dynamic analysis. $ Each component substructure is reduced to modal and boundary degrees of $ freedom prior to the substructure combine operation. The combination $ structure, formulated in terms of the component modes, is also reduced to $ modal degrees of freedom for solution by the transient analysis rigid format $ (Reference 37). $ $ Four separate runs are performed. $ $ In Runs 1 and 2, the substructuring Phase 1 operations formulate the $ finite element matrices and basic static loads using Rigid Format 2. $ $ In Run 3, the basic substructures are reduced to modal coordinates and $ combined. Another modal synthesis reduction is performed on the $ combination and the resulting eigenvectors are printed. $ $ In Run 4, the second Phase 2 operation is performed on the reduced $ structure with the SOLVE operation using Rigid Format 9 (transient $ analysis). The transient output data is transformed back to the original $ grid point definitions with the RECOVER command. $ $ B. Input $ $ All members are rod elements. All grid points are constrained to include only $ in-plane displacements. The basic input and the substructure control data are $ described below. $ $ 1. Parameters: $ $ a = 40 (typical frame width) $ $ h = 30 (typical frame height) $ $ A = 0.3 (cross section of members) $ $ 6 $ E = 10 (Young's Modulus) $ $ -3 $ P = 2.5 x 10 (density) $ $ 2. Constraints: $ $ u = theta = theta = theta = 0 all points $ z x y z $ $ (Boundary conditions are applied only during solution.) $ $ 3. Loads: $ 3 $ P = 10 load on substructure BBASIC $ y42 $ $ 4. Transient Loads: $ $ U = .143 @t = 0 initial condition $ y42 $ $ 3 $ P = 10 0 < t < .12 load history $ y42 $ $ 5. Substructuring Parameters: $ $ SOF(1) = SOF1,500 $ CDC $ $ SOF(1) = FT19,500 $ IBM $ $ SOF(1) = INP1,500 $ UNIVAC $ $ PASSWORD = MDLSYN $ $ C. Results $ $ For assessing the accuracy of the modal synthesis, the whole structure is run $ in Rigid Format 3 to determine natural frequency and mode shapes. ThIs $ procedure eliminates the effects of finite element errors common to both $ methods. $ $ Natural frequencies for the combined system are shown in Table 1 along with $ the error ratios of the difference. Note that the lowest frequency component $ mode omitted from the analysis was 197.2 Hz. Below this frequency, the $ resulting modes are excellent. $ $ Table 1. Natural Frequencies and Differences for 20 Degrees of Freedom $ Mode Synthesis $ $ ------------------------------------------- $ Mode No. Frequency (Hz) % Difference $ From Full Model $ ------------------------------------------- $ 1 3.596 .0085 $ 2 17.564 .0012 $ 3 28.492 .0639 $ 4 39.507 .0011 $ 5 61.099 .0051 $ 6 80.280 .0066 $ 7 84.454 .379 $ 8 98.898 .039 $ 9 111.764 .018 $ 10 123.348 .345 $ 11 127.556 .548 $ 12 130.359 .155 $ 13 134.922 2.220 $ 14 153.606 .174 $ 15 162.019 2.98 $ 16 180.321 5.27 $ 17 200.702 14.89 $ ------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 37. Herting, D. N.: "Accuracy of Results with NASTRAN Modal Synthesis", NASA $ CP-2062, October, 1978, pp. 389-404. $------------------------------------------------------------------------------- ================================================ FILE: inp/d02034a.inp ================================================ ID D02034A,NASTRAN APP DISP,SUBS SOL 9,0 TIME 40 DIAG 23 CEND SUBSTRUCTURE PHASE2 PASSWORD = MDLSYN SOF(1) = FT19,500 $ DEC VAX OPTIONS K,M,P SOFPRINT TOC SOLVE RTRUSS RECOVER RTRUSS PRINT RTRUSS OLOAD = ALL PRINT ABASIC UIMPROVE YES RANGE 0.0,0.41 ENERGY ALL PRINT MA PRINT BBASIC UIMPROVE YES RANGE 0.0,0.41 ENERGY ALL PRINT MB SOFPRINT TOC ENDSUBS TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A LABEL = SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9 SET 1 = 7 THRU 13 SPC = 123 DLOAD = 101 IC = 522 TSTEP = 40 OLOAD = ALL DISP = ALL SDISP(SORT2) = 1 BEGIN BULK DAREAS 980 BBASIC 2 2 1.0+3 LOADC 980 1.0 ABASIC 980 1.0 PARAM G .05 PARAM W3 .01 SPCS1 123 ABASIC 12 1 2 3 TICS 522 BBASIC 2 2 .1 TLOAD2 101 980 .39 12.0 TSTEP 40 40 2.0-2 1 ENDDATA ================================================ FILE: inp/d02034a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 2, Inertia Relief Analysis $ Truss Dynamic Analysis Using Automated Modal Synthesis, Run 1, (2-3-1) $ Truss Dynamic Analysis Using Automated Nodal Synthesis, Run 2, (2-3-2) $ Truss Dynamic Analysis Using Automated Hodal Synthesis, Run 3, (2-3-3) $ Truss Dynamic Analysis Using Automated Modal Synthesis, Run 4, (2-3-4) $ $ A. Description $ $ This problem illustrates the automated substructuring and modal synthesis $ procedures which provide accurate, efficient solutions in dynamic analysis. $ Each component substructure is reduced to modal and boundary degrees of $ freedom prior to the substructure combine operation. The combination $ structure, formulated in terms of the component modes, is also reduced to $ modal degrees of freedom for solution by the transient analysis rigid format $ (Reference 37). $ $ Four separate runs are performed. $ $ In Runs 1 and 2, the substructuring Phase 1 operations formulate the $ finite element matrices and basic static loads using Rigid Format 2. $ $ In Run 3, the basic substructures are reduced to modal coordinates and $ combined. Another modal synthesis reduction is performed on the $ combination and the resulting eigenvectors are printed. $ $ In Run 4, the second Phase 2 operation is performed on the reduced $ structure with the SOLVE operation using Rigid Format 9 (transient $ analysis). The transient output data is transformed back to the original $ grid point definitions with the RECOVER command. $ $ B. Input $ $ All members are rod elements. All grid points are constrained to include only $ in-plane displacements. The basic input and the substructure control data are $ described below. $ $ 1. Parameters: $ $ a = 40 (typical frame width) $ $ h = 30 (typical frame height) $ $ A = 0.3 (cross section of members) $ $ 6 $ E = 10 (Young's Modulus) $ $ -3 $ P = 2.5 x 10 (density) $ $ 2. Constraints: $ $ u = theta = theta = theta = 0 all points $ z x y z $ $ (Boundary conditions are applied only during solution.) $ $ 3. Loads: $ 3 $ P = 10 load on substructure BBASIC $ y42 $ $ 4. Transient Loads: $ $ U = .143 @t = 0 initial condition $ y42 $ $ 3 $ P = 10 0 < t < .12 load history $ y42 $ $ 5. Substructuring Parameters: $ $ SOF(1) = SOF1,500 $ CDC $ $ SOF(1) = FT19,500 $ IBM $ $ SOF(1) = INP1,500 $ UNIVAC $ $ PASSWORD = MDLSYN $ $ C. Results $ $ For assessing the accuracy of the modal synthesis, the whole structure is run $ in Rigid Format 3 to determine natural frequency and mode shapes. ThIs $ procedure eliminates the effects of finite element errors common to both $ methods. $ $ Natural frequencies for the combined system are shown in Table 1 along with $ the error ratios of the difference. Note that the lowest frequency component $ mode omitted from the analysis was 197.2 Hz. Below this frequency, the $ resulting modes are excellent. $ $ Table 1. Natural Frequencies and Differences for 20 Degrees of Freedom $ Mode Synthesis $ $ ------------------------------------------- $ Mode No. Frequency (Hz) % Difference $ From Full Model $ ------------------------------------------- $ 1 3.596 .0085 $ 2 17.564 .0012 $ 3 28.492 .0639 $ 4 39.507 .0011 $ 5 61.099 .0051 $ 6 80.280 .0066 $ 7 84.454 .379 $ 8 98.898 .039 $ 9 111.764 .018 $ 10 123.348 .345 $ 11 127.556 .548 $ 12 130.359 .155 $ 13 134.922 2.220 $ 14 153.606 .174 $ 15 162.019 2.98 $ 16 180.321 5.27 $ 17 200.702 14.89 $ ------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 37. Herting, D. N.: "Accuracy of Results with NASTRAN Modal Synthesis", NASA $ CP-2062, October, 1978, pp. 389-404. $------------------------------------------------------------------------------- ================================================ FILE: inp/d02035a.inp ================================================ $ NASTRAN FILES=INP1 ID D02035A,NASTRAN APP DISP,SUBS SOL 9,0 TIME 40 DIAG 14,23 CEND SUBSTRUCTURE PHASE3 PASSWORD = MDLSYN SOF(1) = FT19,500 $ DEC VAX BRECOVER ABASIC SOFPRINT TOC ENDSUBS TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A LABEL = RECOVER ABASIC , RUN 5, PHASE 3, RF 9 MAXLINES = 100000 IC = 521 TSTEP= 40 LOAD = 980 DISP = ALL ELFO = ALL STRE = ALL BEGIN BULK CROD 1 1 1 2 CROD 2 1 2 3 CROD 11 1 11 12 CROD 12 1 12 13 CROD 21 1 21 22 CROD 22 1 22 23 CROD 31 1 31 32 CROD 32 1 32 33 CROD 41 1 41 42 CROD 42 1 42 43 CROD 51 1 51 52 CROD 52 1 52 53 CROD 111 1 1 11 CROD 112 1 2 12 CROD 113 1 3 13 CROD 121 1 11 21 CROD 122 1 12 22 CROD 123 1 13 23 CROD 131 1 21 31 CROD 132 1 22 32 CROD 133 1 23 33 CROD 141 1 31 41 CROD 142 1 32 42 CROD 143 1 33 43 CROD 151 1 41 51 CROD 152 1 42 52 CROD 153 1 43 53 CROD 211 1 2 11 CROD 212 1 2 13 CROD 221 1 12 21 CROD 222 1 12 23 CROD 231 1 22 31 CROD 232 1 22 33 CROD 241 1 32 41 CROD 242 1 32 43 CROD 251 1 42 51 CROD 252 1 42 53 GRAV 980 980.0 .0 -1.0 .0 GRDSET 3456 GRID 1 .0 -30.0 .0 GRID 2 .0 .0 .0 GRID 3 .0 30.0 .0 GRID 11 40.0 -30.0 .0 GRID 12 40.0 .0 .0 GRID 13 40.0 30.0 .0 GRID 21 80.0 -30.0 .0 GRID 22 80.0 .0 .0 GRID 23 80.0 30.0 .0 GRID 31 120.0 -30.0 .0 GRID 32 120.0 .0 .0 GRID 33 120.0 30.0 .0 GRID 41 160.0 -30.0 .0 GRID 42 160.0 .0 .0 GRID 43 160.0 30.0 .0 GRID 51 200.0 -30.0 .0 GRID 52 200.0 .0 .0 GRID 53 200.0 30.0 .0 MAT1 1 10.0+6 .3 2.5-3 PARAM GRDPNT 0 PROD 1 1 .3 TIC 521 42 2 .1 TSTEP 40 40 2.0-2 1 ENDDATA ================================================ FILE: inp/d02036a.inp ================================================ $ NASTRAN FILES=INP1 ID D02036A,NASTRAN APP DISP,SUBS SOL 9,0 TIME 40 DIAG 14,23 CEND SUBSTRUCTURE PHASE3 PASSWORD = MDLSYN SOF(1) = FT19,500 $ DEC VAX BRECOVER BBASIC SOFPRINT TOC ENDSUBS TITLE = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A LABEL = RECOVER BBASIC , RUN 6, PHASE 3, RF 9 MAXLINES = 100000 IC = 522 TSTEP = 40 LOAD = 980 DISP = ALL ELFO = ALL STRE = ALL BEGIN BULK CROD 1 1 1 2 CROD 2 1 2 3 CROD 11 1 11 12 CROD 12 1 12 13 CROD 21 1 21 22 CROD 22 1 22 23 CROD 31 1 31 32 CROD 32 1 32 33 CROD 41 1 41 42 CROD 42 1 42 43 CROD 111 1 1 11 CROD 112 1 2 12 CROD 113 1 3 13 CROD 121 1 11 21 CROD 122 1 12 22 CROD 123 1 13 23 CROD 131 1 21 31 CROD 132 1 22 32 CROD 133 1 23 33 CROD 141 1 31 41 CROD 142 1 32 42 CROD 143 1 33 43 CROD 211 1 2 11 CROD 212 1 2 13 CROD 221 1 12 21 CROD 222 1 12 23 CROD 231 1 22 31 CROD 232 1 22 33 CROD 241 1 32 41 CROD 242 1 32 43 GRAV 980 980.0 .0 -1.0 .0 GRDSET 3456 GRID 1 30.0 0.0 0.0 GRID 2 0.0 0.0 0.0 GRID 3 -30.0 0.0 0.0 GRID 11 30.0 40.0 0.0 GRID 12 0.0 40.0 0.0 GRID 13 -30.0 40.0 0.0 GRID 21 30.0 80.0 0.0 GRID 22 0.0 80.0 0.0 GRID 23 -30.0 80.0 0.0 GRID 31 30.0 120.0 0.0 GRID 32 0.0 120.0 0.0 GRID 33 -30.0 120.0 0.0 GRID 41 30.0 160.0 0.0 GRID 42 0.0 160.0 0.0 GRID 43 -30.0 160.0 0.0 MAT1 1 10.0+6 .3 2.5-3 PARAM GRDPNT 0 PROD 1 1 .3 TIC 522 2 2 .1 TSTEP 40 40 2.0-2 1 ENDDATA ================================================ FILE: inp/d03011a.inp ================================================ NASTRAN FILES=PLT2 ID D03011A,NASTRAN APP DISPLACEMENT SOL 3,1 TIME 35 CEND TITLE = VIBRATIONS OF A 10 BY 20 PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A $ SPC = 37 METHOD = 5 $ ENCLOSE 2 MODES - FINDS 3 ROOTS $ ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL) $ MODE M N FREQ $ 1 1 1 9.068997E-1 $ 2 1 2 2.267249 $ 5 1 3 4.534498 $ 6 3 1 4.534498 $ 7 3 2 5.894848 $ 9 1 4 7.708647 $ OUTPUT SET 1 = 1 THRU 11, 34 THRU 44, 56 THRU 66, 78 THRU 88, 111 THRU 121 SET 2 = 1 THRU 12, 22,23,33,34,44,45,55,56,66,67,77,78,88,89, 99,100, 110 THRU 121 DISPLACEMENTS = 1 SPCFORCE = 2 $ $ $ PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A OUTPUT(PLOT) PLOTTER NASTPLT SET 1 INCLUDE PLOTEL SET 2 INCLUDE QUAD1 MAXIMUM DEFORMATION 1.0 FIND SCALE, ORIGIN 10 PTITLE = ALL QUADS IN THE PLATE PLOT ORIGIN 10, SET 2, LABELS PLOT SET 2,SHRINK .6,NOFIND PLOT SET 2,HIDDEN,NOFIND FIND SCALE, ORIGIN 11 PTITLE = MODE SHAPES USING PLOTEL ELEMENTS PLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE BEGIN BULK CNGRNT 1 2 THRU 219 CQUAD1 1 23 1 2 13 12 .00 CQUAD1 2 23 2 3 14 13 .00 CQUAD1 3 23 3 4 15 14 .00 CQUAD1 4 23 4 5 16 15 .00 CQUAD1 5 23 5 6 17 16 .00 CQUAD1 6 23 6 7 18 17 .00 CQUAD1 7 23 7 8 19 18 .00 CQUAD1 8 23 8 9 20 19 .00 CQUAD1 9 23 9 10 21 20 .00 CQUAD1 10 23 10 11 22 21 .00 CQUAD1 12 23 12 13 24 23 .00 CQUAD1 13 23 13 14 25 24 .00 CQUAD1 14 23 14 15 26 25 .00 CQUAD1 15 23 15 16 27 26 .00 CQUAD1 16 23 16 17 28 27 .00 CQUAD1 17 23 17 18 29 28 .00 CQUAD1 18 23 18 19 30 29 .00 CQUAD1 19 23 19 20 31 30 .00 CQUAD1 20 23 20 21 32 31 .00 CQUAD1 21 23 21 22 33 32 .00 CQUAD1 23 23 23 24 35 34 .00 CQUAD1 24 23 24 25 36 35 .00 CQUAD1 25 23 25 26 37 36 .00 CQUAD1 26 23 26 27 38 37 .00 CQUAD1 27 23 27 28 39 38 .00 CQUAD1 28 23 28 29 40 39 .00 CQUAD1 29 23 29 30 41 40 .00 CQUAD1 30 23 30 31 42 41 .00 CQUAD1 31 23 31 32 43 42 .00 CQUAD1 32 23 32 33 44 43 .00 CQUAD1 34 23 34 35 46 45 .00 CQUAD1 35 23 35 36 47 46 .00 CQUAD1 36 23 36 37 48 47 .00 CQUAD1 37 23 37 38 49 48 .00 CQUAD1 38 23 38 39 50 49 .00 CQUAD1 39 23 39 40 51 50 .00 CQUAD1 40 23 40 41 52 51 .00 CQUAD1 41 23 41 42 53 52 .00 CQUAD1 42 23 42 43 54 53 .00 CQUAD1 43 23 43 44 55 54 .00 CQUAD1 45 23 45 46 57 56 .00 CQUAD1 46 23 46 47 58 57 .00 CQUAD1 47 23 47 48 59 58 .00 CQUAD1 48 23 48 49 60 59 .00 CQUAD1 49 23 49 50 61 60 .00 CQUAD1 50 23 50 51 62 61 .00 CQUAD1 51 23 51 52 63 62 .00 CQUAD1 52 23 52 53 64 63 .00 CQUAD1 53 23 53 54 65 64 .00 CQUAD1 54 23 54 55 66 65 .00 CQUAD1 56 23 56 57 68 67 .00 CQUAD1 57 23 57 58 69 68 .00 CQUAD1 58 23 58 59 70 69 .00 CQUAD1 59 23 59 60 71 70 .00 CQUAD1 60 23 60 61 72 71 .00 CQUAD1 61 23 61 62 73 72 .00 CQUAD1 62 23 62 63 74 73 .00 CQUAD1 63 23 63 64 75 74 .00 CQUAD1 64 23 64 65 76 75 .00 CQUAD1 65 23 65 66 77 76 .00 CQUAD1 67 23 67 68 79 78 .00 CQUAD1 68 23 68 69 80 79 .00 CQUAD1 69 23 69 70 81 80 .00 CQUAD1 70 23 70 71 82 81 .00 CQUAD1 71 23 71 72 83 82 .00 CQUAD1 72 23 72 73 84 83 .00 CQUAD1 73 23 73 74 85 84 .00 CQUAD1 74 23 74 75 86 85 .00 CQUAD1 75 23 75 76 87 86 .00 CQUAD1 76 23 76 77 88 87 .00 CQUAD1 78 23 78 79 90 89 .00 CQUAD1 79 23 79 80 91 90 .00 CQUAD1 80 23 80 81 92 91 .00 CQUAD1 81 23 81 82 93 92 .00 CQUAD1 82 23 82 83 94 93 .00 CQUAD1 83 23 83 84 95 94 .00 CQUAD1 84 23 84 85 96 95 .00 CQUAD1 85 23 85 86 97 96 .00 CQUAD1 86 23 86 87 98 97 .00 CQUAD1 87 23 87 88 99 98 .00 CQUAD1 89 23 89 90 101 100 .00 CQUAD1 90 23 90 91 102 101 .00 CQUAD1 91 23 91 92 103 102 .00 CQUAD1 92 23 92 93 104 103 .00 CQUAD1 93 23 93 94 105 104 .00 CQUAD1 94 23 94 95 106 105 .00 CQUAD1 95 23 95 96 107 106 .00 CQUAD1 96 23 96 97 108 107 .00 CQUAD1 97 23 97 98 109 108 .00 CQUAD1 98 23 98 99 110 109 .00 CQUAD1 100 23 100 101 112 111 .00 CQUAD1 101 23 101 102 113 112 .00 CQUAD1 102 23 102 103 114 113 .00 CQUAD1 103 23 103 104 115 114 .00 CQUAD1 104 23 104 105 116 115 .00 CQUAD1 105 23 105 106 117 116 .00 CQUAD1 106 23 106 107 118 117 .00 CQUAD1 107 23 107 108 119 118 .00 CQUAD1 108 23 108 109 120 119 .00 CQUAD1 109 23 109 110 121 120 .00 CQUAD1 111 23 111 112 123 122 .00 CQUAD1 112 23 112 113 124 123 .00 CQUAD1 113 23 113 114 125 124 .00 CQUAD1 114 23 114 115 126 125 .00 CQUAD1 115 23 115 116 127 126 .00 CQUAD1 116 23 116 117 128 127 .00 CQUAD1 117 23 117 118 129 128 .00 CQUAD1 118 23 118 119 130 129 .00 CQUAD1 119 23 119 120 131 130 .00 CQUAD1 120 23 120 121 132 131 .00 CQUAD1 122 23 122 123 134 133 .00 CQUAD1 123 23 123 124 135 134 .00 CQUAD1 124 23 124 125 136 135 .00 CQUAD1 125 23 125 126 137 136 .00 CQUAD1 126 23 126 127 138 137 .00 CQUAD1 127 23 127 128 139 138 .00 CQUAD1 128 23 128 129 140 139 .00 CQUAD1 129 23 129 130 141 140 .00 CQUAD1 130 23 130 131 142 141 .00 CQUAD1 131 23 131 132 143 142 .00 CQUAD1 133 23 133 134 145 144 .00 CQUAD1 134 23 134 135 146 145 .00 CQUAD1 135 23 135 136 147 146 .00 CQUAD1 136 23 136 137 148 147 .00 CQUAD1 137 23 137 138 149 148 .00 CQUAD1 138 23 138 139 150 149 .00 CQUAD1 139 23 139 140 151 150 .00 CQUAD1 140 23 140 141 152 151 .00 CQUAD1 141 23 141 142 153 152 .00 CQUAD1 142 23 142 143 154 153 .00 CQUAD1 144 23 144 145 156 155 .00 CQUAD1 145 23 145 146 157 156 .00 CQUAD1 146 23 146 147 158 157 .00 CQUAD1 147 23 147 148 159 158 .00 CQUAD1 148 23 148 149 160 159 .00 CQUAD1 149 23 149 150 161 160 .00 CQUAD1 150 23 150 151 162 161 .00 CQUAD1 151 23 151 152 163 162 .00 CQUAD1 152 23 152 153 164 163 .00 CQUAD1 153 23 153 154 165 164 .00 CQUAD1 155 23 155 156 167 166 .00 CQUAD1 156 23 156 157 168 167 .00 CQUAD1 157 23 157 158 169 168 .00 CQUAD1 158 23 158 159 170 169 .00 CQUAD1 159 23 159 160 171 170 .00 CQUAD1 160 23 160 161 172 171 .00 CQUAD1 161 23 161 162 173 172 .00 CQUAD1 162 23 162 163 174 173 .00 CQUAD1 163 23 163 164 175 174 .00 CQUAD1 164 23 164 165 176 175 .00 CQUAD1 166 23 166 167 178 177 .00 CQUAD1 167 23 167 168 179 178 .00 CQUAD1 168 23 168 169 180 179 .00 CQUAD1 169 23 169 170 181 180 .00 CQUAD1 170 23 170 171 182 181 .00 CQUAD1 171 23 171 172 183 182 .00 CQUAD1 172 23 172 173 184 183 .00 CQUAD1 173 23 173 174 185 184 .00 CQUAD1 174 23 174 175 186 185 .00 CQUAD1 175 23 175 176 187 186 .00 CQUAD1 177 23 177 178 189 188 .00 CQUAD1 178 23 178 179 190 189 .00 CQUAD1 179 23 179 180 191 190 .00 CQUAD1 180 23 180 181 192 191 .00 CQUAD1 181 23 181 182 193 192 .00 CQUAD1 182 23 182 183 194 193 .00 CQUAD1 183 23 183 184 195 194 .00 CQUAD1 184 23 184 185 196 195 .00 CQUAD1 185 23 185 186 197 196 .00 CQUAD1 186 23 186 187 198 197 .00 CQUAD1 188 23 188 189 200 199 .00 CQUAD1 189 23 189 190 201 200 .00 CQUAD1 190 23 190 191 202 201 .00 CQUAD1 191 23 191 192 203 202 .00 CQUAD1 192 23 192 193 204 203 .00 CQUAD1 193 23 193 194 205 204 .00 CQUAD1 194 23 194 195 206 205 .00 CQUAD1 195 23 195 196 207 206 .00 CQUAD1 196 23 196 197 208 207 .00 CQUAD1 197 23 197 198 209 208 .00 CQUAD1 199 23 199 200 211 210 .00 CQUAD1 200 23 200 201 212 211 .00 CQUAD1 201 23 201 202 213 212 .00 CQUAD1 202 23 202 203 214 213 .00 CQUAD1 203 23 203 204 215 214 .00 CQUAD1 204 23 204 205 216 215 .00 CQUAD1 205 23 205 206 217 216 .00 CQUAD1 206 23 206 207 218 217 .00 CQUAD1 207 23 207 208 219 218 .00 CQUAD1 208 23 208 209 220 219 .00 CQUAD1 210 23 210 211 222 221 .00 CQUAD1 211 23 211 212 223 222 .00 CQUAD1 212 23 212 213 224 223 .00 CQUAD1 213 23 213 214 225 224 .00 CQUAD1 214 23 214 215 226 225 .00 CQUAD1 215 23 215 216 227 226 .00 CQUAD1 216 23 216 217 228 227 .00 CQUAD1 217 23 217 218 229 228 .00 CQUAD1 218 23 218 219 230 229 .00 CQUAD1 219 23 219 220 231 230 .00 EIGR 2 INV .85 .89 1 1 0 CSIMPL-I +SIMPL-IMAX EIGR 3 INV .89 1.0 1 3 0 +EIG3-1 +EIG3-1 MAX EIGR 4 DET .89 1.0 1 1 0 +EIG4-1 +EIG4-1 MAX EIGR 5 INV .89 2.4 1 3 0 +EIG5-2 +EIG5-2 MAX EIGR 6 DET .89 2.4 2 2 0 +EIG6-2 +EIG6-2 MAX EIGR 7 INV .89 6.1 5 5 0 +EIG7-5 +EIG7-5 MAX EIGR 8 DET .89 6.1 5 5 0 +EIG8-5 +EIG8-5 MAX EIGR 9 INV .89 14.5 4 10 0 +EIG9-10 +EIG9-10MAX EIGR 10 DET .89 14.5 5 5 0 +EIG1010 +EIG1010MAX EIGR 11 INV .89 29.0 20 20 0 +EIG1120 +EIG1120MAX EIGR 12 DET .89 29.0 20 20 0 +EIG1220 +EIG1220MAX GRDSET 126 GRID 1 .00000 .00000 .00000 GRID 2 1.00000 .00000 .00000 GRID 3 2.00000 .00000 .00000 GRID 4 3.00000 .00000 .00000 GRID 5 4.00000 .00000 .00000 GRID 6 5.00000 .00000 .00000 GRID 7 6.00000 .00000 .00000 GRID 8 7.00000 .00000 .00000 GRID 9 8.00000 .00000 .00000 GRID 10 9.00000 .00000 .00000 GRID 11 10.00000.00000 .00000 GRID 12 .00000 1.00000 .00000 GRID 13 1.00000 1.00000 .00000 GRID 14 2.00000 1.00000 .00000 GRID 15 3.00000 1.00000 .00000 GRID 16 4.00000 1.00000 .00000 GRID 17 5.00000 1.00000 .00000 GRID 18 6.00000 1.00000 .00000 GRID 19 7.00000 1.00000 .00000 GRID 20 8.00000 1.00000 .00000 GRID 21 9.00000 1.00000 .00000 GRID 22 10.000001.00000 .00000 GRID 23 .00000 2.00000 .00000 GRID 24 1.00000 2.00000 .00000 GRID 25 2.00000 2.00000 .00000 GRID 26 3.00000 2.00000 .00000 GRID 27 4.00000 2.00000 .00000 GRID 28 5.00000 2.00000 .00000 GRID 29 6.00000 2.00000 .00000 GRID 30 7.00000 2.00000 .00000 GRID 31 8.00000 2.00000 .00000 GRID 32 9.00000 2.00000 .00000 GRID 33 10.000002.00000 .00000 GRID 34 .00000 3.00000 .00000 GRID 35 1.00000 3.00000 .00000 GRID 36 2.00000 3.00000 .00000 GRID 37 3.00000 3.00000 .00000 GRID 38 4.00000 3.00000 .00000 GRID 39 5.00000 3.00000 .00000 GRID 40 6.00000 3.00000 .00000 GRID 41 7.00000 3.00000 .00000 GRID 42 8.00000 3.00000 .00000 GRID 43 9.00000 3.00000 .00000 GRID 44 10.000003.00000 .00000 GRID 45 .00000 4.00000 .00000 GRID 46 1.00000 4.00000 .00000 GRID 47 2.00000 4.00000 .00000 GRID 48 3.00000 4.00000 .00000 GRID 49 4.00000 4.00000 .00000 GRID 50 5.00000 4.00000 .00000 GRID 51 6.00000 4.00000 .00000 GRID 52 7.00000 4.00000 .00000 GRID 53 8.00000 4.00000 .00000 GRID 54 9.00000 4.00000 .00000 GRID 55 10.000004.00000 .00000 GRID 56 .00000 5.00000 .00000 GRID 57 1.00000 5.00000 .00000 GRID 58 2.00000 5.00000 .00000 GRID 59 3.00000 5.00000 .00000 GRID 60 4.00000 5.00000 .00000 GRID 61 5.00000 5.00000 .00000 GRID 62 6.00000 5.00000 .00000 GRID 63 7.00000 5.00000 .00000 GRID 64 8.00000 5.00000 .00000 GRID 65 9.00000 5.00000 .00000 GRID 66 10.000005.00000 .00000 GRID 67 .00000 6.00000 .00000 GRID 68 1.00000 6.00000 .00000 GRID 69 2.00000 6.00000 .00000 GRID 70 3.00000 6.00000 .00000 GRID 71 4.00000 6.00000 .00000 GRID 72 5.00000 6.00000 .00000 GRID 73 6.00000 6.00000 .00000 GRID 74 7.00000 6.00000 .00000 GRID 75 8.00000 6.00000 .00000 GRID 76 9.00000 6.00000 .00000 GRID 77 10.000006.00000 .00000 GRID 78 .00000 7.00000 .00000 GRID 79 1.00000 7.00000 .00000 GRID 80 2.00000 7.00000 .00000 GRID 81 3.00000 7.00000 .00000 GRID 82 4.00000 7.00000 .00000 GRID 83 5.00000 7.00000 .00000 GRID 84 6.00000 7.00000 .00000 GRID 85 7.00000 7.00000 .00000 GRID 86 8.00000 7.00000 .00000 GRID 87 9.00000 7.00000 .00000 GRID 88 10.000007.00000 .00000 GRID 89 .00000 8.00000 .00000 GRID 90 1.00000 8.00000 .00000 GRID 91 2.00000 8.00000 .00000 GRID 92 3.00000 8.00000 .00000 GRID 93 4.00000 8.00000 .00000 GRID 94 5.00000 8.00000 .00000 GRID 95 6.00000 8.00000 .00000 GRID 96 7.00000 8.00000 .00000 GRID 97 8.00000 8.00000 .00000 GRID 98 9.00000 8.00000 .00000 GRID 99 10.000008.00000 .00000 GRID 100 .00000 9.00000 .00000 GRID 101 1.00000 9.00000 .00000 GRID 102 2.00000 9.00000 .00000 GRID 103 3.00000 9.00000 .00000 GRID 104 4.00000 9.00000 .00000 GRID 105 5.00000 9.00000 .00000 GRID 106 6.00000 9.00000 .00000 GRID 107 7.00000 9.00000 .00000 GRID 108 8.00000 9.00000 .00000 GRID 109 9.00000 9.00000 .00000 GRID 110 10.000009.00000 .00000 GRID 111 .00000 10.00000.00000 GRID 112 1.00000 10.00000.00000 GRID 113 2.00000 10.00000.00000 GRID 114 3.00000 10.00000.00000 GRID 115 4.00000 10.00000.00000 GRID 116 5.00000 10.00000.00000 GRID 117 6.00000 10.00000.00000 GRID 118 7.00000 10.00000.00000 GRID 119 8.00000 10.00000.00000 GRID 120 9.00000 10.00000.00000 GRID 121 10.0000010.00000.00000 GRID 122 .00000 11.00000.00000 GRID 123 1.00000 11.00000.00000 GRID 124 2.00000 11.00000.00000 GRID 125 3.00000 11.00000.00000 GRID 126 4.00000 11.00000.00000 GRID 127 5.00000 11.00000.00000 GRID 128 6.00000 11.00000.00000 GRID 129 7.00000 11.00000.00000 GRID 130 8.00000 11.00000.00000 GRID 131 9.00000 11.00000.00000 GRID 132 10.0000011.00000.00000 GRID 133 .00000 12.00000.00000 GRID 134 1.00000 12.00000.00000 GRID 135 2.00000 12.00000.00000 GRID 136 3.00000 12.00000.00000 GRID 137 4.00000 12.00000.00000 GRID 138 5.00000 12.00000.00000 GRID 139 6.00000 12.00000.00000 GRID 140 7.00000 12.00000.00000 GRID 141 8.00000 12.00000.00000 GRID 142 9.00000 12.00000.00000 GRID 143 10.0000012.00000.00000 GRID 144 .00000 13.00000.00000 GRID 145 1.00000 13.00000.00000 GRID 146 2.00000 13.00000.00000 GRID 147 3.00000 13.00000.00000 GRID 148 4.00000 13.00000.00000 GRID 149 5.00000 13.00000.00000 GRID 150 6.00000 13.00000.00000 GRID 151 7.00000 13.00000.00000 GRID 152 8.00000 13.00000.00000 GRID 153 9.00000 13.00000.00000 GRID 154 10.0000013.00000.00000 GRID 155 .00000 14.00000.00000 GRID 156 1.00000 14.00000.00000 GRID 157 2.00000 14.00000.00000 GRID 158 3.00000 14.00000.00000 GRID 159 4.00000 14.00000.00000 GRID 160 5.00000 14.00000.00000 GRID 161 6.00000 14.00000.00000 GRID 162 7.00000 14.00000.00000 GRID 163 8.00000 14.00000.00000 GRID 164 9.00000 14.00000.00000 GRID 165 10.0000014.00000.00000 GRID 166 .00000 15.00000.00000 GRID 167 1.00000 15.00000.00000 GRID 168 2.00000 15.00000.00000 GRID 169 3.00000 15.00000.00000 GRID 170 4.00000 15.00000.00000 GRID 171 5.00000 15.00000.00000 GRID 172 6.00000 15.00000.00000 GRID 173 7.00000 15.00000.00000 GRID 174 8.00000 15.00000.00000 GRID 175 9.00000 15.00000.00000 GRID 176 10.0000015.00000.00000 GRID 177 .00000 16.00000.00000 GRID 178 1.00000 16.00000.00000 GRID 179 2.00000 16.00000.00000 GRID 180 3.00000 16.00000.00000 GRID 181 4.00000 16.00000.00000 GRID 182 5.00000 16.00000.00000 GRID 183 6.00000 16.00000.00000 GRID 184 7.00000 16.00000.00000 GRID 185 8.00000 16.00000.00000 GRID 186 9.00000 16.00000.00000 GRID 187 10.0000016.00000.00000 GRID 188 .00000 17.00000.00000 GRID 189 1.00000 17.00000.00000 GRID 190 2.00000 17.00000.00000 GRID 191 3.00000 17.00000.00000 GRID 192 4.00000 17.00000.00000 GRID 193 5.00000 17.00000.00000 GRID 194 6.00000 17.00000.00000 GRID 195 7.00000 17.00000.00000 GRID 196 8.00000 17.00000.00000 GRID 197 9.00000 17.00000.00000 GRID 198 10.0000017.00000.00000 GRID 199 .00000 18.00000.00000 GRID 200 1.00000 18.00000.00000 GRID 201 2.00000 18.00000.00000 GRID 202 3.00000 18.00000.00000 GRID 203 4.00000 18.00000.00000 GRID 204 5.00000 18.00000.00000 GRID 205 6.00000 18.00000.00000 GRID 206 7.00000 18.00000.00000 GRID 207 8.00000 18.00000.00000 GRID 208 9.00000 18.00000.00000 GRID 209 10.0000018.00000.00000 GRID 210 .00000 19.00000.00000 GRID 211 1.00000 19.00000.00000 GRID 212 2.00000 19.00000.00000 GRID 213 3.00000 19.00000.00000 GRID 214 4.00000 19.00000.00000 GRID 215 5.00000 19.00000.00000 GRID 216 6.00000 19.00000.00000 GRID 217 7.00000 19.00000.00000 GRID 218 8.00000 19.00000.00000 GRID 219 9.00000 19.00000.00000 GRID 220 10.0000019.00000.00000 GRID 221 .00000 20.00000.00000 GRID 222 1.00000 20.00000.00000 GRID 223 2.00000 20.00000.00000 GRID 224 3.00000 20.00000.00000 GRID 225 4.00000 20.00000.00000 GRID 226 5.00000 20.00000.00000 GRID 227 6.00000 20.00000.00000 GRID 228 7.00000 20.00000.00000 GRID 229 8.00000 20.00000.00000 GRID 230 9.00000 20.00000.00000 GRID 231 10.0000020.00000.00000 MAT1 2 3.0+7 .300 200.0 +MAT1 +MAT1 30000. 28000. PARAM GRDPNT 111 PLOTEL 300 23 1 PLOTEL 301 1 11 302 11 231 PLOTEL 303 231 221 304 221 199 PLOTEL 305 199 201 306 201 203 PLOTEL 307 203 205 308 205 207 PLOTEL 309 207 209 310 187 185 PLOTEL 311 185 183 312 183 181 PLOTEL 313 181 179 314 179 177 PLOTEL 315 199 177 316 177 155 PLOTEL 317 155 157 318 157 159 PLOTEL 319 159 161 320 161 163 PLOTEL 321 163 165 322 143 141 PLOTEL 323 141 139 324 139 137 PLOTEL 325 137 135 326 135 133 PLOTEL 327 155 133 328 133 111 PLOTEL 329 111 113 330 113 115 PLOTEL 331 115 117 332 117 119 PLOTEL 333 119 121 334 99 97 PLOTEL 335 97 95 336 95 93 PLOTEL 337 93 91 338 91 89 PLOTEL 339 111 89 340 89 67 PLOTEL 341 67 69 342 69 71 PLOTEL 343 71 73 344 73 75 PLOTEL 345 75 77 346 55 53 PLOTEL 347 53 51 348 51 49 PLOTEL 349 49 47 350 47 45 PLOTEL 351 67 45 352 45 23 PLOTEL 353 23 25 354 25 27 PLOTEL 355 27 29 356 29 31 PLOTEL 357 31 33 358 9 31 PLOTEL 359 31 53 360 53 75 PLOTEL 361 75 97 362 97 119 PLOTEL 363 119 141 364 141 163 PLOTEL 365 163 185 366 185 207 PLOTEL 367 207 229 368 227 205 PLOTEL 369 205 183 370 183 161 PLOTEL 371 161 139 372 139 117 PLOTEL 373 117 95 374 95 73 PLOTEL 375 73 51 376 51 29 PLOTEL 377 29 7 378 5 27 PLOTEL 379 27 49 380 49 71 PLOTEL 381 71 93 382 93 115 PLOTEL 383 115 137 384 137 159 PLOTEL 385 159 181 386 181 203 PLOTEL 387 203 225 388 223 201 PLOTEL 389 201 179 390 179 157 PLOTEL 391 157 135 392 135 113 PLOTEL 393 113 91 394 91 69 PLOTEL 395 69 47 396 47 36 PLOTEL 397 36 25 398 25 3 PQUAD1 23 2 1.0 2 .0833333 6.04393 +PQUAD1 +PQUAD1 .5 .0 SPC1 37 5 1 12 23 34 45 56 +31001H +31001H 67 78 89 100 111 122 133 144 +31002H +31002H 155 166 177 188 199 210 221 SPC1 37 34 11 22 33 44 55 66 +11001H +11001H 77 88 99 110 121 132 143 154 +11002H +11002H 165 176 187 198 209 220 231 SPC1 37 35 1 2 3 4 5 6 +41001H +41001H 7 8 9 10 11 SPC1 37 35 221 222 223 224 225 226 +21001H +21001H 227 228 229 230 231 ENDDATA ================================================ FILE: inp/d03011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3, Real Eigenvalue Analysis $ Vibration of a 10x20 Plate (3-1-1) $ Vibration of a 20x40 Plate (3-1-2) $ Vibration of a 10x20 Plate (INPUT, 3-1-3) $ Vibration of a 20x40 Plate (INPUT, 3-1-4) $ $ A. Description $ $ This problem demonstrates the solution for natural frequencies of a large- $ order problem. The structural model consists of a square plate with hinged $ supports on all boundaries. The 10x20 model (Problem 3-1-1) represents one $ half of the structure with symmetric boundary constraints on the mid-line to $ reduce the order of the problem and the bandwidth by one half. The 20x40 model $ (Problem 3-1-2) has the same dimensions, but with a finer mesh. Both $ configurations are developed via the INPUT module (Problems 3-1-3 and 3-1-4 $ for coarse mesh and fine mesh, respectively) to generate the QUAD1 elements. $ $ Because only the bending modes are desired, the in-plane deflections and $ rotations normal to the plane are constrained. The inverse power method of $ eigenvalue extraction is selected for the smaller model and the FEER method $ (Reference 32) is selected for the larger model. Both structural mass density $ and non-structural mass-per-area are used to define the mass matrix. $ $ An undeformed structure plot is executed without plot elements. This is $ expensive on most plotters since all four sides of each quadrilateral are $ drawn. For the deformed plots of each eigenvector, plot elements are used to $ draw an edge only once and to draw only selected coordinate lines (every $ second or fourth line depending on the model used). $ $ B. Input $ $ 1. Parameters: $ $ l = w = 20.0 (Length and width) $ $ I = 1/12 (Moment of inertia) $ $ t = 1.0 (Thickness) $ $ 7 $ E = 3.0 x 10 (Modu1us of elasticity) $ $ v = 0.30 (Poisson's ratio) $ $ p = 206.0439 (Mass density, 200.0 structural and 6.0439 non-structural $ mass) $ $ 2. Boundary constraints: $ $ along x = 0, theta = 0 Symmetric Boundary $ y $ + $ along y = 0, u = theta = 0 | $ z y | $ | $ along x = 10, u = theta = 0 | Hinged Supports $ z x | $ | $ along y = 20, u = theta = 0 | $ z y | $ + $ 3. Eigenvalue extraction data: $ $ Method: Inverse Power and FEER $ $ Region of interest for inverse power: .89 <= f <= 1.0 $ $ Center point for FEER: .87 $ $ Number of desired roots: 3 $ $ Number of estimated roots: 1 $ $ C. Results $ $ Table 1 lists the NASTRAN and theoretical natural frequencies as defined in $ Reference 8. $ $ Table 1. Natural Frequencies, cps. $ $ ------------------------------------- $ NASTRAN NASTRAN $ Mode Theoretical 10x20 20x40 $ No. (INV) (FEER) $ ------------------------------------- $ 1 .9069 .9056 .9066 $ $ 2 2.2672 2.2634 2.2663 $ $ 3 4.5345 4.5329 4.5340 $ ------------------------------------- $ $ APPLICABLE REFERENCES $ $ 8. W. F. Stokey, "Vibration of Systems Having Distributed Mass and $ Elasticity", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E. $ Crede, Editors, McGraw-Hill, 1961. $ $ 32. Newman, Malcolm and Flanaga, Paul F.: Eigenvalue Extraction in NASTRAN by $ the Tridiagonal Reduction (FEER) Method - Real Eigenvalue Analysis, NASA $ CR-2731, August, 1976. $------------------------------------------------------------------------------- ================================================ FILE: inp/d03012a.inp ================================================ NASTRAN FILES=PLT2 ID D03012A,NASTRAN APP DISPLACEMENT SOL 3,1 TIME 65 CEND TITLE = VIBRATION OF A 20 X 40 HALF PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A $ METHOD = 20 $ FEER - NO MODES SPC = 37 $ ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL) $ MODE M N FREQ $ 1 1 1 9.068997E-1 $ 2 1 2 2.267249 $ 5 1 3 4.534498 $ 6 3 1 4.534498 $ 7 3 2 5.894848 $ 9 1 4 7.708647 $ OUTPUT SET 1 = 1 THRU 21, 64 THRU 84, 127 THRU 147, 190 THRU 210, 253 THRU 273, 316 THRU 336, 379 THRU 399, 442 THRU 462, 505 THRU 525, 568 THRU 588, 631 THRU 651, 694 THRU 714, 757 THRU 777, 820 THRU 840, 841 THRU 861 DISPLACEMENTS = 1 $ $ $ PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A OUTPUT(PLOT) PLOTTER NASTPLT SET 1 INCLUDE PLOTEL SET 2 INCLUDE QUAD1 MAXIMUM DEFORMATION 1.0 FIND SCALE, ORIGIN 10 PTITLE = ALL QUADS IN THE PLATE PLOT ORIGIN 10, SET 2, LABELS FIND SCALE, ORIGIN 11 PTITLE = MODE SHAPES USING PLOTEL ELEMENTS PLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE BEGIN BULK CNGRNT 1 2 THRU 839 CQUAD1 1 101 1 2 23 22 .0 CQUAD1 2 101 2 3 24 23 .0 CQUAD1 3 101 3 4 25 24 .0 CQUAD1 4 101 4 5 26 25 .0 CQUAD1 5 101 5 6 27 26 .0 CQUAD1 6 101 6 7 28 27 .0 CQUAD1 7 101 7 8 29 28 .0 CQUAD1 8 101 8 9 30 29 .0 CQUAD1 9 101 9 10 31 30 .0 CQUAD1 10 101 10 11 32 31 .0 CQUAD1 11 101 11 12 33 32 .0 CQUAD1 12 101 12 13 34 33 .0 CQUAD1 13 101 13 14 35 34 .0 CQUAD1 14 101 14 15 36 35 .0 CQUAD1 15 101 15 16 37 36 .0 CQUAD1 16 101 16 17 38 37 .0 CQUAD1 17 101 17 18 39 38 .0 CQUAD1 18 101 18 19 40 39 .0 CQUAD1 19 101 19 20 41 40 .0 CQUAD1 20 101 20 21 42 41 .0 CQUAD1 22 101 22 23 44 43 .0 CQUAD1 23 101 23 24 45 44 .0 CQUAD1 24 101 24 25 46 45 .0 CQUAD1 25 101 25 26 47 46 .0 CQUAD1 26 101 26 27 48 47 .0 CQUAD1 27 101 27 28 49 48 .0 CQUAD1 28 101 28 29 50 49 .0 CQUAD1 29 101 29 30 51 50 .0 CQUAD1 30 101 30 31 52 51 .0 CQUAD1 31 101 31 32 53 52 .0 CQUAD1 32 101 32 33 54 53 .0 CQUAD1 33 101 33 34 55 54 .0 CQUAD1 34 101 34 35 56 55 .0 CQUAD1 35 101 35 36 57 56 .0 CQUAD1 36 101 36 37 58 57 .0 CQUAD1 37 101 37 38 59 58 .0 CQUAD1 38 101 38 39 60 59 .0 CQUAD1 39 101 39 40 61 60 .0 CQUAD1 40 101 40 41 62 61 .0 CQUAD1 41 101 41 42 63 62 .0 CQUAD1 43 101 43 44 65 64 .0 CQUAD1 44 101 44 45 66 65 .0 CQUAD1 45 101 45 46 67 66 .0 CQUAD1 46 101 46 47 68 67 .0 CQUAD1 47 101 47 48 69 68 .0 CQUAD1 48 101 48 49 70 69 .0 CQUAD1 49 101 49 50 71 70 .0 CQUAD1 50 101 50 51 72 71 .0 CQUAD1 51 101 51 52 73 72 .0 CQUAD1 52 101 52 53 74 73 .0 CQUAD1 53 101 53 54 75 74 .0 CQUAD1 54 101 54 55 76 75 .0 CQUAD1 55 101 55 56 77 76 .0 CQUAD1 56 101 56 57 78 77 .0 CQUAD1 57 101 57 58 79 78 .0 CQUAD1 58 101 58 59 80 79 .0 CQUAD1 59 101 59 60 81 80 .0 CQUAD1 60 101 60 61 82 81 .0 CQUAD1 61 101 61 62 83 82 .0 CQUAD1 62 101 62 63 84 83 .0 CQUAD1 64 101 64 65 86 85 .0 CQUAD1 65 101 65 66 87 86 .0 CQUAD1 66 101 66 67 88 87 .0 CQUAD1 67 101 67 68 89 88 .0 CQUAD1 68 101 68 69 90 89 .0 CQUAD1 69 101 69 70 91 90 .0 CQUAD1 70 101 70 71 92 91 .0 CQUAD1 71 101 71 72 93 92 .0 CQUAD1 72 101 72 73 94 93 .0 CQUAD1 73 101 73 74 95 94 .0 CQUAD1 74 101 74 75 96 95 .0 CQUAD1 75 101 75 76 97 96 .0 CQUAD1 76 101 76 77 98 97 .0 CQUAD1 77 101 77 78 99 98 .0 CQUAD1 78 101 78 79 100 99 .0 CQUAD1 79 101 79 80 101 100 .0 CQUAD1 80 101 80 81 102 101 .0 CQUAD1 81 101 81 82 103 102 .0 CQUAD1 82 101 82 83 104 103 .0 CQUAD1 83 101 83 84 105 104 .0 CQUAD1 85 101 85 86 107 106 .0 CQUAD1 86 101 86 87 108 107 .0 CQUAD1 87 101 87 88 109 108 .0 CQUAD1 88 101 88 89 110 109 .0 CQUAD1 89 101 89 90 111 110 .0 CQUAD1 90 101 90 91 112 111 .0 CQUAD1 91 101 91 92 113 112 .0 CQUAD1 92 101 92 93 114 113 .0 CQUAD1 93 101 93 94 115 114 .0 CQUAD1 94 101 94 95 116 115 .0 CQUAD1 95 101 95 96 117 116 .0 CQUAD1 96 101 96 97 118 117 .0 CQUAD1 97 101 97 98 119 118 .0 CQUAD1 98 101 98 99 120 119 .0 CQUAD1 99 101 99 100 121 120 .0 CQUAD1 100 101 100 101 122 121 .0 CQUAD1 101 101 101 102 123 122 .0 CQUAD1 102 101 102 103 124 123 .0 CQUAD1 103 101 103 104 125 124 .0 CQUAD1 104 101 104 105 126 125 .0 CQUAD1 106 101 106 107 128 127 .0 CQUAD1 107 101 107 108 129 128 .0 CQUAD1 108 101 108 109 130 129 .0 CQUAD1 109 101 109 110 131 130 .0 CQUAD1 110 101 110 111 132 131 .0 CQUAD1 111 101 111 112 133 132 .0 CQUAD1 112 101 112 113 134 133 .0 CQUAD1 113 101 113 114 135 134 .0 CQUAD1 114 101 114 115 136 135 .0 CQUAD1 115 101 115 116 137 136 .0 CQUAD1 116 101 116 117 138 137 .0 CQUAD1 117 101 117 118 139 138 .0 CQUAD1 118 101 118 119 140 139 .0 CQUAD1 119 101 119 120 141 140 .0 CQUAD1 120 101 120 121 142 141 .0 CQUAD1 121 101 121 122 143 142 .0 CQUAD1 122 101 122 123 144 143 .0 CQUAD1 123 101 123 124 145 144 .0 CQUAD1 124 101 124 125 146 145 .0 CQUAD1 125 101 125 126 147 146 .0 CQUAD1 127 101 127 128 149 148 .0 CQUAD1 128 101 128 129 150 149 .0 CQUAD1 129 101 129 130 151 150 .0 CQUAD1 130 101 130 131 152 151 .0 CQUAD1 131 101 131 132 153 152 .0 CQUAD1 132 101 132 133 154 153 .0 CQUAD1 133 101 133 134 155 154 .0 CQUAD1 134 101 134 135 156 155 .0 CQUAD1 135 101 135 136 157 156 .0 CQUAD1 136 101 136 137 158 157 .0 CQUAD1 137 101 137 138 159 158 .0 CQUAD1 138 101 138 139 160 159 .0 CQUAD1 139 101 139 140 161 160 .0 CQUAD1 140 101 140 141 162 161 .0 CQUAD1 141 101 141 142 163 162 .0 CQUAD1 142 101 142 143 164 163 .0 CQUAD1 143 101 143 144 165 164 .0 CQUAD1 144 101 144 145 166 165 .0 CQUAD1 145 101 145 146 167 166 .0 CQUAD1 146 101 146 147 168 167 .0 CQUAD1 148 101 148 149 170 169 .0 CQUAD1 149 101 149 150 171 170 .0 CQUAD1 150 101 150 151 172 171 .0 CQUAD1 151 101 151 152 173 172 .0 CQUAD1 152 101 152 153 174 173 .0 CQUAD1 153 101 153 154 175 174 .0 CQUAD1 154 101 154 155 176 175 .0 CQUAD1 155 101 155 156 177 176 .0 CQUAD1 156 101 156 157 178 177 .0 CQUAD1 157 101 157 158 179 178 .0 CQUAD1 158 101 158 159 180 179 .0 CQUAD1 159 101 159 160 181 180 .0 CQUAD1 160 101 160 161 182 181 .0 CQUAD1 161 101 161 162 183 182 .0 CQUAD1 162 101 162 163 184 183 .0 CQUAD1 163 101 163 164 185 184 .0 CQUAD1 164 101 164 165 186 185 .0 CQUAD1 165 101 165 166 187 186 .0 CQUAD1 166 101 166 167 188 187 .0 CQUAD1 167 101 167 168 189 188 .0 CQUAD1 169 101 169 170 191 190 .0 CQUAD1 170 101 170 171 192 191 .0 CQUAD1 171 101 171 172 193 192 .0 CQUAD1 172 101 172 173 194 193 .0 CQUAD1 173 101 173 174 195 194 .0 CQUAD1 174 101 174 175 196 195 .0 CQUAD1 175 101 175 176 197 196 .0 CQUAD1 176 101 176 177 198 197 .0 CQUAD1 177 101 177 178 199 198 .0 CQUAD1 178 101 178 179 200 199 .0 CQUAD1 179 101 179 180 201 200 .0 CQUAD1 180 101 180 181 202 201 .0 CQUAD1 181 101 181 182 203 202 .0 CQUAD1 182 101 182 183 204 203 .0 CQUAD1 183 101 183 184 205 204 .0 CQUAD1 184 101 184 185 206 205 .0 CQUAD1 185 101 185 186 207 206 .0 CQUAD1 186 101 186 187 208 207 .0 CQUAD1 187 101 187 188 209 208 .0 CQUAD1 188 101 188 189 210 209 .0 CQUAD1 190 101 190 191 212 211 .0 CQUAD1 191 101 191 192 213 212 .0 CQUAD1 192 101 192 193 214 213 .0 CQUAD1 193 101 193 194 215 214 .0 CQUAD1 194 101 194 195 216 215 .0 CQUAD1 195 101 195 196 217 216 .0 CQUAD1 196 101 196 197 218 217 .0 CQUAD1 197 101 197 198 219 218 .0 CQUAD1 198 101 198 199 220 219 .0 CQUAD1 199 101 199 200 221 220 .0 CQUAD1 200 101 200 201 222 221 .0 CQUAD1 201 101 201 202 223 222 .0 CQUAD1 202 101 202 203 224 223 .0 CQUAD1 203 101 203 204 225 224 .0 CQUAD1 204 101 204 205 226 225 .0 CQUAD1 205 101 205 206 227 226 .0 CQUAD1 206 101 206 207 228 227 .0 CQUAD1 207 101 207 208 229 228 .0 CQUAD1 208 101 208 209 230 229 .0 CQUAD1 209 101 209 210 231 230 .0 CQUAD1 211 101 211 212 233 232 .0 CQUAD1 212 101 212 213 234 233 .0 CQUAD1 213 101 213 214 235 234 .0 CQUAD1 214 101 214 215 236 235 .0 CQUAD1 215 101 215 216 237 236 .0 CQUAD1 216 101 216 217 238 237 .0 CQUAD1 217 101 217 218 239 238 .0 CQUAD1 218 101 218 219 240 239 .0 CQUAD1 219 101 219 220 241 240 .0 CQUAD1 220 101 220 221 242 241 .0 CQUAD1 221 101 221 222 243 242 .0 CQUAD1 222 101 222 223 244 243 .0 CQUAD1 223 101 223 224 245 244 .0 CQUAD1 224 101 224 225 246 245 .0 CQUAD1 225 101 225 226 247 246 .0 CQUAD1 226 101 226 227 248 247 .0 CQUAD1 227 101 227 228 249 248 .0 CQUAD1 228 101 228 229 250 249 .0 CQUAD1 229 101 229 230 251 250 .0 CQUAD1 230 101 230 231 252 251 .0 CQUAD1 232 101 232 233 254 253 .0 CQUAD1 233 101 233 234 255 254 .0 CQUAD1 234 101 234 235 256 255 .0 CQUAD1 235 101 235 236 257 256 .0 CQUAD1 236 101 236 237 258 257 .0 CQUAD1 237 101 237 238 259 258 .0 CQUAD1 238 101 238 239 260 259 .0 CQUAD1 239 101 239 240 261 260 .0 CQUAD1 240 101 240 241 262 261 .0 CQUAD1 241 101 241 242 263 262 .0 CQUAD1 242 101 242 243 264 263 .0 CQUAD1 243 101 243 244 265 264 .0 CQUAD1 244 101 244 245 266 265 .0 CQUAD1 245 101 245 246 267 266 .0 CQUAD1 246 101 246 247 268 267 .0 CQUAD1 247 101 247 248 269 268 .0 CQUAD1 248 101 248 249 270 269 .0 CQUAD1 249 101 249 250 271 270 .0 CQUAD1 250 101 250 251 272 271 .0 CQUAD1 251 101 251 252 273 272 .0 CQUAD1 253 101 253 254 275 274 .0 CQUAD1 254 101 254 255 276 275 .0 CQUAD1 255 101 255 256 277 276 .0 CQUAD1 256 101 256 257 278 277 .0 CQUAD1 257 101 257 258 279 278 .0 CQUAD1 258 101 258 259 280 279 .0 CQUAD1 259 101 259 260 281 280 .0 CQUAD1 260 101 260 261 282 281 .0 CQUAD1 261 101 261 262 283 282 .0 CQUAD1 262 101 262 263 284 283 .0 CQUAD1 263 101 263 264 285 284 .0 CQUAD1 264 101 264 265 286 285 .0 CQUAD1 265 101 265 266 287 286 .0 CQUAD1 266 101 266 267 288 287 .0 CQUAD1 267 101 267 268 289 288 .0 CQUAD1 268 101 268 269 290 289 .0 CQUAD1 269 101 269 270 291 290 .0 CQUAD1 270 101 270 271 292 291 .0 CQUAD1 271 101 271 272 293 292 .0 CQUAD1 272 101 272 273 294 293 .0 CQUAD1 274 101 274 275 296 295 .0 CQUAD1 275 101 275 276 297 296 .0 CQUAD1 276 101 276 277 298 297 .0 CQUAD1 277 101 277 278 299 298 .0 CQUAD1 278 101 278 279 300 299 .0 CQUAD1 279 101 279 280 301 300 .0 CQUAD1 280 101 280 281 302 301 .0 CQUAD1 281 101 281 282 303 302 .0 CQUAD1 282 101 282 283 304 303 .0 CQUAD1 283 101 283 284 305 304 .0 CQUAD1 284 101 284 285 306 305 .0 CQUAD1 285 101 285 286 307 306 .0 CQUAD1 286 101 286 287 308 307 .0 CQUAD1 287 101 287 288 309 308 .0 CQUAD1 288 101 288 289 310 309 .0 CQUAD1 289 101 289 290 311 310 .0 CQUAD1 290 101 290 291 312 311 .0 CQUAD1 291 101 291 292 313 312 .0 CQUAD1 292 101 292 293 314 313 .0 CQUAD1 293 101 293 294 315 314 .0 CQUAD1 295 101 295 296 317 316 .0 CQUAD1 296 101 296 297 318 317 .0 CQUAD1 297 101 297 298 319 318 .0 CQUAD1 298 101 298 299 320 319 .0 CQUAD1 299 101 299 300 321 320 .0 CQUAD1 300 101 300 301 322 321 .0 CQUAD1 301 101 301 302 323 322 .0 CQUAD1 302 101 302 303 324 323 .0 CQUAD1 303 101 303 304 325 324 .0 CQUAD1 304 101 304 305 326 325 .0 CQUAD1 305 101 305 306 327 326 .0 CQUAD1 306 101 306 307 328 327 .0 CQUAD1 307 101 307 308 329 328 .0 CQUAD1 308 101 308 309 330 329 .0 CQUAD1 309 101 309 310 331 330 .0 CQUAD1 310 101 310 311 332 331 .0 CQUAD1 311 101 311 312 333 332 .0 CQUAD1 312 101 312 313 334 333 .0 CQUAD1 313 101 313 314 335 334 .0 CQUAD1 314 101 314 315 336 335 .0 CQUAD1 316 101 316 317 338 337 .0 CQUAD1 317 101 317 318 339 338 .0 CQUAD1 318 101 318 319 340 339 .0 CQUAD1 319 101 319 320 341 340 .0 CQUAD1 320 101 320 321 342 341 .0 CQUAD1 321 101 321 322 343 342 .0 CQUAD1 322 101 322 323 344 343 .0 CQUAD1 323 101 323 324 345 344 .0 CQUAD1 324 101 324 325 346 345 .0 CQUAD1 325 101 325 326 347 346 .0 CQUAD1 326 101 326 327 348 347 .0 CQUAD1 327 101 327 328 349 348 .0 CQUAD1 328 101 328 329 350 349 .0 CQUAD1 329 101 329 330 351 350 .0 CQUAD1 330 101 330 331 352 351 .0 CQUAD1 331 101 331 332 353 352 .0 CQUAD1 332 101 332 333 354 353 .0 CQUAD1 333 101 333 334 355 354 .0 CQUAD1 334 101 334 335 356 355 .0 CQUAD1 335 101 335 336 357 356 .0 CQUAD1 337 101 337 338 359 358 .0 CQUAD1 338 101 338 339 360 359 .0 CQUAD1 339 101 339 340 361 360 .0 CQUAD1 340 101 340 341 362 361 .0 CQUAD1 341 101 341 342 363 362 .0 CQUAD1 342 101 342 343 364 363 .0 CQUAD1 343 101 343 344 365 364 .0 CQUAD1 344 101 344 345 366 365 .0 CQUAD1 345 101 345 346 367 366 .0 CQUAD1 346 101 346 347 368 367 .0 CQUAD1 347 101 347 348 369 368 .0 CQUAD1 348 101 348 349 370 369 .0 CQUAD1 349 101 349 350 371 370 .0 CQUAD1 350 101 350 351 372 371 .0 CQUAD1 351 101 351 352 373 372 .0 CQUAD1 352 101 352 353 374 373 .0 CQUAD1 353 101 353 354 375 374 .0 CQUAD1 354 101 354 355 376 375 .0 CQUAD1 355 101 355 356 377 376 .0 CQUAD1 356 101 356 357 378 377 .0 CQUAD1 358 101 358 359 380 379 .0 CQUAD1 359 101 359 360 381 380 .0 CQUAD1 360 101 360 361 382 381 .0 CQUAD1 361 101 361 362 383 382 .0 CQUAD1 362 101 362 363 384 383 .0 CQUAD1 363 101 363 364 385 384 .0 CQUAD1 364 101 364 365 386 385 .0 CQUAD1 365 101 365 366 387 386 .0 CQUAD1 366 101 366 367 388 387 .0 CQUAD1 367 101 367 368 389 388 .0 CQUAD1 368 101 368 369 390 389 .0 CQUAD1 369 101 369 370 391 390 .0 CQUAD1 370 101 370 371 392 391 .0 CQUAD1 371 101 371 372 393 392 .0 CQUAD1 372 101 372 373 394 393 .0 CQUAD1 373 101 373 374 395 394 .0 CQUAD1 374 101 374 375 396 395 .0 CQUAD1 375 101 375 376 397 396 .0 CQUAD1 376 101 376 377 398 397 .0 CQUAD1 377 101 377 378 399 398 .0 CQUAD1 379 101 379 380 401 400 .0 CQUAD1 380 101 380 381 402 401 .0 CQUAD1 381 101 381 382 403 402 .0 CQUAD1 382 101 382 383 404 403 .0 CQUAD1 383 101 383 384 405 404 .0 CQUAD1 384 101 384 385 406 405 .0 CQUAD1 385 101 385 386 407 406 .0 CQUAD1 386 101 386 387 408 407 .0 CQUAD1 387 101 387 388 409 408 .0 CQUAD1 388 101 388 389 410 409 .0 CQUAD1 389 101 389 390 411 410 .0 CQUAD1 390 101 390 391 412 411 .0 CQUAD1 391 101 391 392 413 412 .0 CQUAD1 392 101 392 393 414 413 .0 CQUAD1 393 101 393 394 415 414 .0 CQUAD1 394 101 394 395 416 415 .0 CQUAD1 395 101 395 396 417 416 .0 CQUAD1 396 101 396 397 418 417 .0 CQUAD1 397 101 397 398 419 418 .0 CQUAD1 398 101 398 399 420 419 .0 CQUAD1 400 101 400 401 422 421 .0 CQUAD1 401 101 401 402 423 422 .0 CQUAD1 402 101 402 403 424 423 .0 CQUAD1 403 101 403 404 425 424 .0 CQUAD1 404 101 404 405 426 425 .0 CQUAD1 405 101 405 406 427 426 .0 CQUAD1 406 101 406 407 428 427 .0 CQUAD1 407 101 407 408 429 428 .0 CQUAD1 408 101 408 409 430 429 .0 CQUAD1 409 101 409 410 431 430 .0 CQUAD1 410 101 410 411 432 431 .0 CQUAD1 411 101 411 412 433 432 .0 CQUAD1 412 101 412 413 434 433 .0 CQUAD1 413 101 413 414 435 434 .0 CQUAD1 414 101 414 415 436 435 .0 CQUAD1 415 101 415 416 437 436 .0 CQUAD1 416 101 416 417 438 437 .0 CQUAD1 417 101 417 418 439 438 .0 CQUAD1 418 101 418 419 440 439 .0 CQUAD1 419 101 419 420 441 440 .0 CQUAD1 421 101 421 422 443 442 .0 CQUAD1 422 101 422 423 444 443 .0 CQUAD1 423 101 423 424 445 444 .0 CQUAD1 424 101 424 425 446 445 .0 CQUAD1 425 101 425 426 447 446 .0 CQUAD1 426 101 426 427 448 447 .0 CQUAD1 427 101 427 428 449 448 .0 CQUAD1 428 101 428 429 450 449 .0 CQUAD1 429 101 429 430 451 450 .0 CQUAD1 430 101 430 431 452 451 .0 CQUAD1 431 101 431 432 453 452 .0 CQUAD1 432 101 432 433 454 453 .0 CQUAD1 433 101 433 434 455 454 .0 CQUAD1 434 101 434 435 456 455 .0 CQUAD1 435 101 435 436 457 456 .0 CQUAD1 436 101 436 437 458 457 .0 CQUAD1 437 101 437 438 459 458 .0 CQUAD1 438 101 438 439 460 459 .0 CQUAD1 439 101 439 440 461 460 .0 CQUAD1 440 101 440 441 462 461 .0 CQUAD1 442 101 442 443 464 463 .0 CQUAD1 443 101 443 444 465 464 .0 CQUAD1 444 101 444 445 466 465 .0 CQUAD1 445 101 445 446 467 466 .0 CQUAD1 446 101 446 447 468 467 .0 CQUAD1 447 101 447 448 469 468 .0 CQUAD1 448 101 448 449 470 469 .0 CQUAD1 449 101 449 450 471 470 .0 CQUAD1 450 101 450 451 472 471 .0 CQUAD1 451 101 451 452 473 472 .0 CQUAD1 452 101 452 453 474 473 .0 CQUAD1 453 101 453 454 475 474 .0 CQUAD1 454 101 454 455 476 475 .0 CQUAD1 455 101 455 456 477 476 .0 CQUAD1 456 101 456 457 478 477 .0 CQUAD1 457 101 457 458 479 478 .0 CQUAD1 458 101 458 459 480 479 .0 CQUAD1 459 101 459 460 481 480 .0 CQUAD1 460 101 460 461 482 481 .0 CQUAD1 461 101 461 462 483 482 .0 CQUAD1 463 101 463 464 485 484 .0 CQUAD1 464 101 464 465 486 485 .0 CQUAD1 465 101 465 466 487 486 .0 CQUAD1 466 101 466 467 488 487 .0 CQUAD1 467 101 467 468 489 488 .0 CQUAD1 468 101 468 469 490 489 .0 CQUAD1 469 101 469 470 491 490 .0 CQUAD1 470 101 470 471 492 491 .0 CQUAD1 471 101 471 472 493 492 .0 CQUAD1 472 101 472 473 494 493 .0 CQUAD1 473 101 473 474 495 494 .0 CQUAD1 474 101 474 475 496 495 .0 CQUAD1 475 101 475 476 497 496 .0 CQUAD1 476 101 476 477 498 497 .0 CQUAD1 477 101 477 478 499 498 .0 CQUAD1 478 101 478 479 500 499 .0 CQUAD1 479 101 479 480 501 500 .0 CQUAD1 480 101 480 481 502 501 .0 CQUAD1 481 101 481 482 503 502 .0 CQUAD1 482 101 482 483 504 503 .0 CQUAD1 484 101 484 485 506 505 .0 CQUAD1 485 101 485 486 507 506 .0 CQUAD1 486 101 486 487 508 507 .0 CQUAD1 487 101 487 488 509 508 .0 CQUAD1 488 101 488 489 510 509 .0 CQUAD1 489 101 489 490 511 510 .0 CQUAD1 490 101 490 491 512 511 .0 CQUAD1 491 101 491 492 513 512 .0 CQUAD1 492 101 492 493 514 513 .0 CQUAD1 493 101 493 494 515 514 .0 CQUAD1 494 101 494 495 516 515 .0 CQUAD1 495 101 495 496 517 516 .0 CQUAD1 496 101 496 497 518 517 .0 CQUAD1 497 101 497 498 519 518 .0 CQUAD1 498 101 498 499 520 519 .0 CQUAD1 499 101 499 500 521 520 .0 CQUAD1 500 101 500 501 522 521 .0 CQUAD1 501 101 501 502 523 522 .0 CQUAD1 502 101 502 503 524 523 .0 CQUAD1 503 101 503 504 525 524 .0 CQUAD1 505 101 505 506 527 526 .0 CQUAD1 506 101 506 507 528 527 .0 CQUAD1 507 101 507 508 529 528 .0 CQUAD1 508 101 508 509 530 529 .0 CQUAD1 509 101 509 510 531 530 .0 CQUAD1 510 101 510 511 532 531 .0 CQUAD1 511 101 511 512 533 532 .0 CQUAD1 512 101 512 513 534 533 .0 CQUAD1 513 101 513 514 535 534 .0 CQUAD1 514 101 514 515 536 535 .0 CQUAD1 515 101 515 516 537 536 .0 CQUAD1 516 101 516 517 538 537 .0 CQUAD1 517 101 517 518 539 538 .0 CQUAD1 518 101 518 519 540 539 .0 CQUAD1 519 101 519 520 541 540 .0 CQUAD1 520 101 520 521 542 541 .0 CQUAD1 521 101 521 522 543 542 .0 CQUAD1 522 101 522 523 544 543 .0 CQUAD1 523 101 523 524 545 544 .0 CQUAD1 524 101 524 525 546 545 .0 CQUAD1 526 101 526 527 548 547 .0 CQUAD1 527 101 527 528 549 548 .0 CQUAD1 528 101 528 529 550 549 .0 CQUAD1 529 101 529 530 551 550 .0 CQUAD1 530 101 530 531 552 551 .0 CQUAD1 531 101 531 532 553 552 .0 CQUAD1 532 101 532 533 554 553 .0 CQUAD1 533 101 533 534 555 554 .0 CQUAD1 534 101 534 535 556 555 .0 CQUAD1 535 101 535 536 557 556 .0 CQUAD1 536 101 536 537 558 557 .0 CQUAD1 537 101 537 538 559 558 .0 CQUAD1 538 101 538 539 560 559 .0 CQUAD1 539 101 539 540 561 560 .0 CQUAD1 540 101 540 541 562 561 .0 CQUAD1 541 101 541 542 563 562 .0 CQUAD1 542 101 542 543 564 563 .0 CQUAD1 543 101 543 544 565 564 .0 CQUAD1 544 101 544 545 566 565 .0 CQUAD1 545 101 545 546 567 566 .0 CQUAD1 547 101 547 548 569 568 .0 CQUAD1 548 101 548 549 570 569 .0 CQUAD1 549 101 549 550 571 570 .0 CQUAD1 550 101 550 551 572 571 .0 CQUAD1 551 101 551 552 573 572 .0 CQUAD1 552 101 552 553 574 573 .0 CQUAD1 553 101 553 554 575 574 .0 CQUAD1 554 101 554 555 576 575 .0 CQUAD1 555 101 555 556 577 576 .0 CQUAD1 556 101 556 557 578 577 .0 CQUAD1 557 101 557 558 579 578 .0 CQUAD1 558 101 558 559 580 579 .0 CQUAD1 559 101 559 560 581 580 .0 CQUAD1 560 101 560 561 582 581 .0 CQUAD1 561 101 561 562 583 582 .0 CQUAD1 562 101 562 563 584 583 .0 CQUAD1 563 101 563 564 585 584 .0 CQUAD1 564 101 564 565 586 585 .0 CQUAD1 565 101 565 566 587 586 .0 CQUAD1 566 101 566 567 588 587 .0 CQUAD1 568 101 568 569 590 589 .0 CQUAD1 569 101 569 570 591 590 .0 CQUAD1 570 101 570 571 592 591 .0 CQUAD1 571 101 571 572 593 592 .0 CQUAD1 572 101 572 573 594 593 .0 CQUAD1 573 101 573 574 595 594 .0 CQUAD1 574 101 574 575 596 595 .0 CQUAD1 575 101 575 576 597 596 .0 CQUAD1 576 101 576 577 598 597 .0 CQUAD1 577 101 577 578 599 598 .0 CQUAD1 578 101 578 579 600 599 .0 CQUAD1 579 101 579 580 601 600 .0 CQUAD1 580 101 580 581 602 601 .0 CQUAD1 581 101 581 582 603 602 .0 CQUAD1 582 101 582 583 604 603 .0 CQUAD1 583 101 583 584 605 604 .0 CQUAD1 584 101 584 585 606 605 .0 CQUAD1 585 101 585 586 607 606 .0 CQUAD1 586 101 586 587 608 607 .0 CQUAD1 587 101 587 588 609 608 .0 CQUAD1 589 101 589 590 611 610 .0 CQUAD1 590 101 590 591 612 611 .0 CQUAD1 591 101 591 592 613 612 .0 CQUAD1 592 101 592 593 614 613 .0 CQUAD1 593 101 593 594 615 614 .0 CQUAD1 594 101 594 595 616 615 .0 CQUAD1 595 101 595 596 617 616 .0 CQUAD1 596 101 596 597 618 617 .0 CQUAD1 597 101 597 598 619 618 .0 CQUAD1 598 101 598 599 620 619 .0 CQUAD1 599 101 599 600 621 620 .0 CQUAD1 600 101 600 601 622 621 .0 CQUAD1 601 101 601 602 623 622 .0 CQUAD1 602 101 602 603 624 623 .0 CQUAD1 603 101 603 604 625 624 .0 CQUAD1 604 101 604 605 626 625 .0 CQUAD1 605 101 605 606 627 626 .0 CQUAD1 606 101 606 607 628 627 .0 CQUAD1 607 101 607 608 629 628 .0 CQUAD1 608 101 608 609 630 629 .0 CQUAD1 610 101 610 611 632 631 .0 CQUAD1 611 101 611 612 633 632 .0 CQUAD1 612 101 612 613 634 633 .0 CQUAD1 613 101 613 614 635 634 .0 CQUAD1 614 101 614 615 636 635 .0 CQUAD1 615 101 615 616 637 636 .0 CQUAD1 616 101 616 617 638 637 .0 CQUAD1 617 101 617 618 639 638 .0 CQUAD1 618 101 618 619 640 639 .0 CQUAD1 619 101 619 620 641 640 .0 CQUAD1 620 101 620 621 642 641 .0 CQUAD1 621 101 621 622 643 642 .0 CQUAD1 622 101 622 623 644 643 .0 CQUAD1 623 101 623 624 645 644 .0 CQUAD1 624 101 624 625 646 645 .0 CQUAD1 625 101 625 626 647 646 .0 CQUAD1 626 101 626 627 648 647 .0 CQUAD1 627 101 627 628 649 648 .0 CQUAD1 628 101 628 629 650 649 .0 CQUAD1 629 101 629 630 651 650 .0 CQUAD1 631 101 631 632 653 652 .0 CQUAD1 632 101 632 633 654 653 .0 CQUAD1 633 101 633 634 655 654 .0 CQUAD1 634 101 634 635 656 655 .0 CQUAD1 635 101 635 636 657 656 .0 CQUAD1 636 101 636 637 658 657 .0 CQUAD1 637 101 637 638 659 658 .0 CQUAD1 638 101 638 639 660 659 .0 CQUAD1 639 101 639 640 661 660 .0 CQUAD1 640 101 640 641 662 661 .0 CQUAD1 641 101 641 642 663 662 .0 CQUAD1 642 101 642 643 664 663 .0 CQUAD1 643 101 643 644 665 664 .0 CQUAD1 644 101 644 645 666 665 .0 CQUAD1 645 101 645 646 667 666 .0 CQUAD1 646 101 646 647 668 667 .0 CQUAD1 647 101 647 648 669 668 .0 CQUAD1 648 101 648 649 670 669 .0 CQUAD1 649 101 649 650 671 670 .0 CQUAD1 650 101 650 651 672 671 .0 CQUAD1 652 101 652 653 674 673 .0 CQUAD1 653 101 653 654 675 674 .0 CQUAD1 654 101 654 655 676 675 .0 CQUAD1 655 101 655 656 677 676 .0 CQUAD1 656 101 656 657 678 677 .0 CQUAD1 657 101 657 658 679 678 .0 CQUAD1 658 101 658 659 680 679 .0 CQUAD1 659 101 659 660 681 680 .0 CQUAD1 660 101 660 661 682 681 .0 CQUAD1 661 101 661 662 683 682 .0 CQUAD1 662 101 662 663 684 683 .0 CQUAD1 663 101 663 664 685 684 .0 CQUAD1 664 101 664 665 686 685 .0 CQUAD1 665 101 665 666 687 686 .0 CQUAD1 666 101 666 667 688 687 .0 CQUAD1 667 101 667 668 689 688 .0 CQUAD1 668 101 668 669 690 689 .0 CQUAD1 669 101 669 670 691 690 .0 CQUAD1 670 101 670 671 692 691 .0 CQUAD1 671 101 671 672 693 692 .0 CQUAD1 673 101 673 674 695 694 .0 CQUAD1 674 101 674 675 696 695 .0 CQUAD1 675 101 675 676 697 696 .0 CQUAD1 676 101 676 677 698 697 .0 CQUAD1 677 101 677 678 699 698 .0 CQUAD1 678 101 678 679 700 699 .0 CQUAD1 679 101 679 680 701 700 .0 CQUAD1 680 101 680 681 702 701 .0 CQUAD1 681 101 681 682 703 702 .0 CQUAD1 682 101 682 683 704 703 .0 CQUAD1 683 101 683 684 705 704 .0 CQUAD1 684 101 684 685 706 705 .0 CQUAD1 685 101 685 686 707 706 .0 CQUAD1 686 101 686 687 708 707 .0 CQUAD1 687 101 687 688 709 708 .0 CQUAD1 688 101 688 689 710 709 .0 CQUAD1 689 101 689 690 711 710 .0 CQUAD1 690 101 690 691 712 711 .0 CQUAD1 691 101 691 692 713 712 .0 CQUAD1 692 101 692 693 714 713 .0 CQUAD1 694 101 694 695 716 715 .0 CQUAD1 695 101 695 696 717 716 .0 CQUAD1 696 101 696 697 718 717 .0 CQUAD1 697 101 697 698 719 718 .0 CQUAD1 698 101 698 699 720 719 .0 CQUAD1 699 101 699 700 721 720 .0 CQUAD1 700 101 700 701 722 721 .0 CQUAD1 701 101 701 702 723 722 .0 CQUAD1 702 101 702 703 724 723 .0 CQUAD1 703 101 703 704 725 724 .0 CQUAD1 704 101 704 705 726 725 .0 CQUAD1 705 101 705 706 727 726 .0 CQUAD1 706 101 706 707 728 727 .0 CQUAD1 707 101 707 708 729 728 .0 CQUAD1 708 101 708 709 730 729 .0 CQUAD1 709 101 709 710 731 730 .0 CQUAD1 710 101 710 711 732 731 .0 CQUAD1 711 101 711 712 733 732 .0 CQUAD1 712 101 712 713 734 733 .0 CQUAD1 713 101 713 714 735 734 .0 CQUAD1 715 101 715 716 737 736 .0 CQUAD1 716 101 716 717 738 737 .0 CQUAD1 717 101 717 718 739 738 .0 CQUAD1 718 101 718 719 740 739 .0 CQUAD1 719 101 719 720 741 740 .0 CQUAD1 720 101 720 721 742 741 .0 CQUAD1 721 101 721 722 743 742 .0 CQUAD1 722 101 722 723 744 743 .0 CQUAD1 723 101 723 724 745 744 .0 CQUAD1 724 101 724 725 746 745 .0 CQUAD1 725 101 725 726 747 746 .0 CQUAD1 726 101 726 727 748 747 .0 CQUAD1 727 101 727 728 749 748 .0 CQUAD1 728 101 728 729 750 749 .0 CQUAD1 729 101 729 730 751 750 .0 CQUAD1 730 101 730 731 752 751 .0 CQUAD1 731 101 731 732 753 752 .0 CQUAD1 732 101 732 733 754 753 .0 CQUAD1 733 101 733 734 755 754 .0 CQUAD1 734 101 734 735 756 755 .0 CQUAD1 736 101 736 737 758 757 .0 CQUAD1 737 101 737 738 759 758 .0 CQUAD1 738 101 738 739 760 759 .0 CQUAD1 739 101 739 740 761 760 .0 CQUAD1 740 101 740 741 762 761 .0 CQUAD1 741 101 741 742 763 762 .0 CQUAD1 742 101 742 743 764 763 .0 CQUAD1 743 101 743 744 765 764 .0 CQUAD1 744 101 744 745 766 765 .0 CQUAD1 745 101 745 746 767 766 .0 CQUAD1 746 101 746 747 768 767 .0 CQUAD1 747 101 747 748 769 768 .0 CQUAD1 748 101 748 749 770 769 .0 CQUAD1 749 101 749 750 771 770 .0 CQUAD1 750 101 750 751 772 771 .0 CQUAD1 751 101 751 752 773 772 .0 CQUAD1 752 101 752 753 774 773 .0 CQUAD1 753 101 753 754 775 774 .0 CQUAD1 754 101 754 755 776 775 .0 CQUAD1 755 101 755 756 777 776 .0 CQUAD1 757 101 757 758 779 778 .0 CQUAD1 758 101 758 759 780 779 .0 CQUAD1 759 101 759 760 781 780 .0 CQUAD1 760 101 760 761 782 781 .0 CQUAD1 761 101 761 762 783 782 .0 CQUAD1 762 101 762 763 784 783 .0 CQUAD1 763 101 763 764 785 784 .0 CQUAD1 764 101 764 765 786 785 .0 CQUAD1 765 101 765 766 787 786 .0 CQUAD1 766 101 766 767 788 787 .0 CQUAD1 767 101 767 768 789 788 .0 CQUAD1 768 101 768 769 790 789 .0 CQUAD1 769 101 769 770 791 790 .0 CQUAD1 770 101 770 771 792 791 .0 CQUAD1 771 101 771 772 793 792 .0 CQUAD1 772 101 772 773 794 793 .0 CQUAD1 773 101 773 774 795 794 .0 CQUAD1 774 101 774 775 796 795 .0 CQUAD1 775 101 775 776 797 796 .0 CQUAD1 776 101 776 777 798 797 .0 CQUAD1 778 101 778 779 800 799 .0 CQUAD1 779 101 779 780 801 800 .0 CQUAD1 780 101 780 781 802 801 .0 CQUAD1 781 101 781 782 803 802 .0 CQUAD1 782 101 782 783 804 803 .0 CQUAD1 783 101 783 784 805 804 .0 CQUAD1 784 101 784 785 806 805 .0 CQUAD1 785 101 785 786 807 806 .0 CQUAD1 786 101 786 787 808 807 .0 CQUAD1 787 101 787 788 809 808 .0 CQUAD1 788 101 788 789 810 809 .0 CQUAD1 789 101 789 790 811 810 .0 CQUAD1 790 101 790 791 812 811 .0 CQUAD1 791 101 791 792 813 812 .0 CQUAD1 792 101 792 793 814 813 .0 CQUAD1 793 101 793 794 815 814 .0 CQUAD1 794 101 794 795 816 815 .0 CQUAD1 795 101 795 796 817 816 .0 CQUAD1 796 101 796 797 818 817 .0 CQUAD1 797 101 797 798 819 818 .0 CQUAD1 799 101 799 800 821 820 .0 CQUAD1 800 101 800 801 822 821 .0 CQUAD1 801 101 801 802 823 822 .0 CQUAD1 802 101 802 803 824 823 .0 CQUAD1 803 101 803 804 825 824 .0 CQUAD1 804 101 804 805 826 825 .0 CQUAD1 805 101 805 806 827 826 .0 CQUAD1 806 101 806 807 828 827 .0 CQUAD1 807 101 807 808 829 828 .0 CQUAD1 808 101 808 809 830 829 .0 CQUAD1 809 101 809 810 831 830 .0 CQUAD1 810 101 810 811 832 831 .0 CQUAD1 811 101 811 812 833 832 .0 CQUAD1 812 101 812 813 834 833 .0 CQUAD1 813 101 813 814 835 834 .0 CQUAD1 814 101 814 815 836 835 .0 CQUAD1 815 101 815 816 837 836 .0 CQUAD1 816 101 816 817 838 837 .0 CQUAD1 817 101 817 818 839 838 .0 CQUAD1 818 101 818 819 840 839 .0 CQUAD1 820 101 820 821 842 841 .0 CQUAD1 821 101 821 822 843 842 .0 CQUAD1 822 101 822 823 844 843 .0 CQUAD1 823 101 823 824 845 844 .0 CQUAD1 824 101 824 825 846 845 .0 CQUAD1 825 101 825 826 847 846 .0 CQUAD1 826 101 826 827 848 847 .0 CQUAD1 827 101 827 828 849 848 .0 CQUAD1 828 101 828 829 850 849 .0 CQUAD1 829 101 829 830 851 850 .0 CQUAD1 830 101 830 831 852 851 .0 CQUAD1 831 101 831 832 853 852 .0 CQUAD1 832 101 832 833 854 853 .0 CQUAD1 833 101 833 834 855 854 .0 CQUAD1 834 101 834 835 856 855 .0 CQUAD1 835 101 835 836 857 856 .0 CQUAD1 836 101 836 837 858 857 .0 CQUAD1 837 101 837 838 859 858 .0 CQUAD1 838 101 838 839 860 859 .0 CQUAD1 839 101 839 840 861 860 .0 EIGR 2 INV .85 .89 1 1 0 CSIMPL-I +SIMPL-IMAX EIGR 3 INV .89 1.0 1 3 0 +EIG3-I +EIG3-I MAX EIGR 4 DET .89 1.0 1 1 0 +EIG4-D +EIG4-D MAX EIGR 5 INV .89 2.4 1 3 0 +EIG5-2 +EIG5-2 MAX EIGR 6 DET .89 2.4 2 2 0 +EIG6-2 +EIG6-2 MAX EIGR 7 INV .89 6.1 5 5 0 +EIG7-5 +EIG7-5 MAX EIGR 9 INV .89 14.5 4 10 0 +EIG9-10 +EIG9-10MAX EIGR 11 INV .89 29.0 20 20 0 +EIG1120 +EIG1120MAX EIGR 20 FEER .87 1 +FEER +FEER MAX GRDSET 126 GRID 1 0 .0 .0 .0 0 126 GRID 2 0 .5 .0 .0 0 126 GRID 3 0 1.0 .0 .0 0 126 GRID 4 0 1.5 .0 .0 0 126 GRID 5 0 2.0 .0 .0 0 126 GRID 6 0 2.5 .0 .0 0 126 GRID 7 0 3.0 .0 .0 0 126 GRID 8 0 3.5 .0 .0 0 126 GRID 9 0 4.0 .0 .0 0 126 GRID 10 0 4.5 .0 .0 0 126 GRID 11 0 5.0 .0 .0 0 126 GRID 12 0 5.5 .0 .0 0 126 GRID 13 0 6.0 .0 .0 0 126 GRID 14 0 6.5 .0 .0 0 126 GRID 15 0 7.0 .0 .0 0 126 GRID 16 0 7.5 .0 .0 0 126 GRID 17 0 8.0 .0 .0 0 126 GRID 18 0 8.5 .0 .0 0 126 GRID 19 0 9.0 .0 .0 0 126 GRID 20 0 9.5 .0 .0 0 126 GRID 21 0 10.0 .0 .0 0 126 GRID 22 0 .0 .5 .0 0 126 GRID 23 0 .5 .5 .0 0 126 GRID 24 0 1.0 .5 .0 0 126 GRID 25 0 1.5 .5 .0 0 126 GRID 26 0 2.0 .5 .0 0 126 GRID 27 0 2.5 .5 .0 0 126 GRID 28 0 3.0 .5 .0 0 126 GRID 29 0 3.5 .5 .0 0 126 GRID 30 0 4.0 .5 .0 0 126 GRID 31 0 4.5 .5 .0 0 126 GRID 32 0 5.0 .5 .0 0 126 GRID 33 0 5.5 .5 .0 0 126 GRID 34 0 6.0 .5 .0 0 126 GRID 35 0 6.5 .5 .0 0 126 GRID 36 0 7.0 .5 .0 0 126 GRID 37 0 7.5 .5 .0 0 126 GRID 38 0 8.0 .5 .0 0 126 GRID 39 0 8.5 .5 .0 0 126 GRID 40 0 9.0 .5 .0 0 126 GRID 41 0 9.5 .5 .0 0 126 GRID 42 0 10.0 .5 .0 0 126 GRID 43 0 .0 1.0 .0 0 126 GRID 44 0 .5 1.0 .0 0 126 GRID 45 0 1.0 1.0 .0 0 126 GRID 46 0 1.5 1.0 .0 0 126 GRID 47 0 2.0 1.0 .0 0 126 GRID 48 0 2.5 1.0 .0 0 126 GRID 49 0 3.0 1.0 .0 0 126 GRID 50 0 3.5 1.0 .0 0 126 GRID 51 0 4.0 1.0 .0 0 126 GRID 52 0 4.5 1.0 .0 0 126 GRID 53 0 5.0 1.0 .0 0 126 GRID 54 0 5.5 1.0 .0 0 126 GRID 55 0 6.0 1.0 .0 0 126 GRID 56 0 6.5 1.0 .0 0 126 GRID 57 0 7.0 1.0 .0 0 126 GRID 58 0 7.5 1.0 .0 0 126 GRID 59 0 8.0 1.0 .0 0 126 GRID 60 0 8.5 1.0 .0 0 126 GRID 61 0 9.0 1.0 .0 0 126 GRID 62 0 9.5 1.0 .0 0 126 GRID 63 0 10.0 1.0 .0 0 126 GRID 64 0 .0 1.5 .0 0 126 GRID 65 0 .5 1.5 .0 0 126 GRID 66 0 1.0 1.5 .0 0 126 GRID 67 0 1.5 1.5 .0 0 126 GRID 68 0 2.0 1.5 .0 0 126 GRID 69 0 2.5 1.5 .0 0 126 GRID 70 0 3.0 1.5 .0 0 126 GRID 71 0 3.5 1.5 .0 0 126 GRID 72 0 4.0 1.5 .0 0 126 GRID 73 0 4.5 1.5 .0 0 126 GRID 74 0 5.0 1.5 .0 0 126 GRID 75 0 5.5 1.5 .0 0 126 GRID 76 0 6.0 1.5 .0 0 126 GRID 77 0 6.5 1.5 .0 0 126 GRID 78 0 7.0 1.5 .0 0 126 GRID 79 0 7.5 1.5 .0 0 126 GRID 80 0 8.0 1.5 .0 0 126 GRID 81 0 8.5 1.5 .0 0 126 GRID 82 0 9.0 1.5 .0 0 126 GRID 83 0 9.5 1.5 .0 0 126 GRID 84 0 10.0 1.5 .0 0 126 GRID 85 0 .0 2.0 .0 0 126 GRID 86 0 .5 2.0 .0 0 126 GRID 87 0 1.0 2.0 .0 0 126 GRID 88 0 1.5 2.0 .0 0 126 GRID 89 0 2.0 2.0 .0 0 126 GRID 90 0 2.5 2.0 .0 0 126 GRID 91 0 3.0 2.0 .0 0 126 GRID 92 0 3.5 2.0 .0 0 126 GRID 93 0 4.0 2.0 .0 0 126 GRID 94 0 4.5 2.0 .0 0 126 GRID 95 0 5.0 2.0 .0 0 126 GRID 96 0 5.5 2.0 .0 0 126 GRID 97 0 6.0 2.0 .0 0 126 GRID 98 0 6.5 2.0 .0 0 126 GRID 99 0 7.0 2.0 .0 0 126 GRID 100 0 7.5 2.0 .0 0 126 GRID 101 0 8.0 2.0 .0 0 126 GRID 102 0 8.5 2.0 .0 0 126 GRID 103 0 9.0 2.0 .0 0 126 GRID 104 0 9.5 2.0 .0 0 126 GRID 105 0 10.0 2.0 .0 0 126 GRID 106 0 .0 2.5 .0 0 126 GRID 107 0 .5 2.5 .0 0 126 GRID 108 0 1.0 2.5 .0 0 126 GRID 109 0 1.5 2.5 .0 0 126 GRID 110 0 2.0 2.5 .0 0 126 GRID 111 0 2.5 2.5 .0 0 126 GRID 112 0 3.0 2.5 .0 0 126 GRID 113 0 3.5 2.5 .0 0 126 GRID 114 0 4.0 2.5 .0 0 126 GRID 115 0 4.5 2.5 .0 0 126 GRID 116 0 5.0 2.5 .0 0 126 GRID 117 0 5.5 2.5 .0 0 126 GRID 118 0 6.0 2.5 .0 0 126 GRID 119 0 6.5 2.5 .0 0 126 GRID 120 0 7.0 2.5 .0 0 126 GRID 121 0 7.5 2.5 .0 0 126 GRID 122 0 8.0 2.5 .0 0 126 GRID 123 0 8.5 2.5 .0 0 126 GRID 124 0 9.0 2.5 .0 0 126 GRID 125 0 9.5 2.5 .0 0 126 GRID 126 0 10.0 2.5 .0 0 126 GRID 127 0 .0 3.0 .0 0 126 GRID 128 0 .5 3.0 .0 0 126 GRID 129 0 1.0 3.0 .0 0 126 GRID 130 0 1.5 3.0 .0 0 126 GRID 131 0 2.0 3.0 .0 0 126 GRID 132 0 2.5 3.0 .0 0 126 GRID 133 0 3.0 3.0 .0 0 126 GRID 134 0 3.5 3.0 .0 0 126 GRID 135 0 4.0 3.0 .0 0 126 GRID 136 0 4.5 3.0 .0 0 126 GRID 137 0 5.0 3.0 .0 0 126 GRID 138 0 5.5 3.0 .0 0 126 GRID 139 0 6.0 3.0 .0 0 126 GRID 140 0 6.5 3.0 .0 0 126 GRID 141 0 7.0 3.0 .0 0 126 GRID 142 0 7.5 3.0 .0 0 126 GRID 143 0 8.0 3.0 .0 0 126 GRID 144 0 8.5 3.0 .0 0 126 GRID 145 0 9.0 3.0 .0 0 126 GRID 146 0 9.5 3.0 .0 0 126 GRID 147 0 10.0 3.0 .0 0 126 GRID 148 0 .0 3.5 .0 0 126 GRID 149 0 .5 3.5 .0 0 126 GRID 150 0 1.0 3.5 .0 0 126 GRID 151 0 1.5 3.5 .0 0 126 GRID 152 0 2.0 3.5 .0 0 126 GRID 153 0 2.5 3.5 .0 0 126 GRID 154 0 3.0 3.5 .0 0 126 GRID 155 0 3.5 3.5 .0 0 126 GRID 156 0 4.0 3.5 .0 0 126 GRID 157 0 4.5 3.5 .0 0 126 GRID 158 0 5.0 3.5 .0 0 126 GRID 159 0 5.5 3.5 .0 0 126 GRID 160 0 6.0 3.5 .0 0 126 GRID 161 0 6.5 3.5 .0 0 126 GRID 162 0 7.0 3.5 .0 0 126 GRID 163 0 7.5 3.5 .0 0 126 GRID 164 0 8.0 3.5 .0 0 126 GRID 165 0 8.5 3.5 .0 0 126 GRID 166 0 9.0 3.5 .0 0 126 GRID 167 0 9.5 3.5 .0 0 126 GRID 168 0 10.0 3.5 .0 0 126 GRID 169 0 .0 4.0 .0 0 126 GRID 170 0 .5 4.0 .0 0 126 GRID 171 0 1.0 4.0 .0 0 126 GRID 172 0 1.5 4.0 .0 0 126 GRID 173 0 2.0 4.0 .0 0 126 GRID 174 0 2.5 4.0 .0 0 126 GRID 175 0 3.0 4.0 .0 0 126 GRID 176 0 3.5 4.0 .0 0 126 GRID 177 0 4.0 4.0 .0 0 126 GRID 178 0 4.5 4.0 .0 0 126 GRID 179 0 5.0 4.0 .0 0 126 GRID 180 0 5.5 4.0 .0 0 126 GRID 181 0 6.0 4.0 .0 0 126 GRID 182 0 6.5 4.0 .0 0 126 GRID 183 0 7.0 4.0 .0 0 126 GRID 184 0 7.5 4.0 .0 0 126 GRID 185 0 8.0 4.0 .0 0 126 GRID 186 0 8.5 4.0 .0 0 126 GRID 187 0 9.0 4.0 .0 0 126 GRID 188 0 9.5 4.0 .0 0 126 GRID 189 0 10.0 4.0 .0 0 126 GRID 190 0 .0 4.5 .0 0 126 GRID 191 0 .5 4.5 .0 0 126 GRID 192 0 1.0 4.5 .0 0 126 GRID 193 0 1.5 4.5 .0 0 126 GRID 194 0 2.0 4.5 .0 0 126 GRID 195 0 2.5 4.5 .0 0 126 GRID 196 0 3.0 4.5 .0 0 126 GRID 197 0 3.5 4.5 .0 0 126 GRID 198 0 4.0 4.5 .0 0 126 GRID 199 0 4.5 4.5 .0 0 126 GRID 200 0 5.0 4.5 .0 0 126 GRID 201 0 5.5 4.5 .0 0 126 GRID 202 0 6.0 4.5 .0 0 126 GRID 203 0 6.5 4.5 .0 0 126 GRID 204 0 7.0 4.5 .0 0 126 GRID 205 0 7.5 4.5 .0 0 126 GRID 206 0 8.0 4.5 .0 0 126 GRID 207 0 8.5 4.5 .0 0 126 GRID 208 0 9.0 4.5 .0 0 126 GRID 209 0 9.5 4.5 .0 0 126 GRID 210 0 10.0 4.5 .0 0 126 GRID 211 0 .0 5.0 .0 0 126 GRID 212 0 .5 5.0 .0 0 126 GRID 213 0 1.0 5.0 .0 0 126 GRID 214 0 1.5 5.0 .0 0 126 GRID 215 0 2.0 5.0 .0 0 126 GRID 216 0 2.5 5.0 .0 0 126 GRID 217 0 3.0 5.0 .0 0 126 GRID 218 0 3.5 5.0 .0 0 126 GRID 219 0 4.0 5.0 .0 0 126 GRID 220 0 4.5 5.0 .0 0 126 GRID 221 0 5.0 5.0 .0 0 126 GRID 222 0 5.5 5.0 .0 0 126 GRID 223 0 6.0 5.0 .0 0 126 GRID 224 0 6.5 5.0 .0 0 126 GRID 225 0 7.0 5.0 .0 0 126 GRID 226 0 7.5 5.0 .0 0 126 GRID 227 0 8.0 5.0 .0 0 126 GRID 228 0 8.5 5.0 .0 0 126 GRID 229 0 9.0 5.0 .0 0 126 GRID 230 0 9.5 5.0 .0 0 126 GRID 231 0 10.0 5.0 .0 0 126 GRID 232 0 .0 5.5 .0 0 126 GRID 233 0 .5 5.5 .0 0 126 GRID 234 0 1.0 5.5 .0 0 126 GRID 235 0 1.5 5.5 .0 0 126 GRID 236 0 2.0 5.5 .0 0 126 GRID 237 0 2.5 5.5 .0 0 126 GRID 238 0 3.0 5.5 .0 0 126 GRID 239 0 3.5 5.5 .0 0 126 GRID 240 0 4.0 5.5 .0 0 126 GRID 241 0 4.5 5.5 .0 0 126 GRID 242 0 5.0 5.5 .0 0 126 GRID 243 0 5.5 5.5 .0 0 126 GRID 244 0 6.0 5.5 .0 0 126 GRID 245 0 6.5 5.5 .0 0 126 GRID 246 0 7.0 5.5 .0 0 126 GRID 247 0 7.5 5.5 .0 0 126 GRID 248 0 8.0 5.5 .0 0 126 GRID 249 0 8.5 5.5 .0 0 126 GRID 250 0 9.0 5.5 .0 0 126 GRID 251 0 9.5 5.5 .0 0 126 GRID 252 0 10.0 5.5 .0 0 126 GRID 253 0 .0 6.0 .0 0 126 GRID 254 0 .5 6.0 .0 0 126 GRID 255 0 1.0 6.0 .0 0 126 GRID 256 0 1.5 6.0 .0 0 126 GRID 257 0 2.0 6.0 .0 0 126 GRID 258 0 2.5 6.0 .0 0 126 GRID 259 0 3.0 6.0 .0 0 126 GRID 260 0 3.5 6.0 .0 0 126 GRID 261 0 4.0 6.0 .0 0 126 GRID 262 0 4.5 6.0 .0 0 126 GRID 263 0 5.0 6.0 .0 0 126 GRID 264 0 5.5 6.0 .0 0 126 GRID 265 0 6.0 6.0 .0 0 126 GRID 266 0 6.5 6.0 .0 0 126 GRID 267 0 7.0 6.0 .0 0 126 GRID 268 0 7.5 6.0 .0 0 126 GRID 269 0 8.0 6.0 .0 0 126 GRID 270 0 8.5 6.0 .0 0 126 GRID 271 0 9.0 6.0 .0 0 126 GRID 272 0 9.5 6.0 .0 0 126 GRID 273 0 10.0 6.0 .0 0 126 GRID 274 0 .0 6.5 .0 0 126 GRID 275 0 .5 6.5 .0 0 126 GRID 276 0 1.0 6.5 .0 0 126 GRID 277 0 1.5 6.5 .0 0 126 GRID 278 0 2.0 6.5 .0 0 126 GRID 279 0 2.5 6.5 .0 0 126 GRID 280 0 3.0 6.5 .0 0 126 GRID 281 0 3.5 6.5 .0 0 126 GRID 282 0 4.0 6.5 .0 0 126 GRID 283 0 4.5 6.5 .0 0 126 GRID 284 0 5.0 6.5 .0 0 126 GRID 285 0 5.5 6.5 .0 0 126 GRID 286 0 6.0 6.5 .0 0 126 GRID 287 0 6.5 6.5 .0 0 126 GRID 288 0 7.0 6.5 .0 0 126 GRID 289 0 7.5 6.5 .0 0 126 GRID 290 0 8.0 6.5 .0 0 126 GRID 291 0 8.5 6.5 .0 0 126 GRID 292 0 9.0 6.5 .0 0 126 GRID 293 0 9.5 6.5 .0 0 126 GRID 294 0 10.0 6.5 .0 0 126 GRID 295 0 .0 7.0 .0 0 126 GRID 296 0 .5 7.0 .0 0 126 GRID 297 0 1.0 7.0 .0 0 126 GRID 298 0 1.5 7.0 .0 0 126 GRID 299 0 2.0 7.0 .0 0 126 GRID 300 0 2.5 7.0 .0 0 126 GRID 301 0 3.0 7.0 .0 0 126 GRID 302 0 3.5 7.0 .0 0 126 GRID 303 0 4.0 7.0 .0 0 126 GRID 304 0 4.5 7.0 .0 0 126 GRID 305 0 5.0 7.0 .0 0 126 GRID 306 0 5.5 7.0 .0 0 126 GRID 307 0 6.0 7.0 .0 0 126 GRID 308 0 6.5 7.0 .0 0 126 GRID 309 0 7.0 7.0 .0 0 126 GRID 310 0 7.5 7.0 .0 0 126 GRID 311 0 8.0 7.0 .0 0 126 GRID 312 0 8.5 7.0 .0 0 126 GRID 313 0 9.0 7.0 .0 0 126 GRID 314 0 9.5 7.0 .0 0 126 GRID 315 0 10.0 7.0 .0 0 126 GRID 316 0 .0 7.5 .0 0 126 GRID 317 0 .5 7.5 .0 0 126 GRID 318 0 1.0 7.5 .0 0 126 GRID 319 0 1.5 7.5 .0 0 126 GRID 320 0 2.0 7.5 .0 0 126 GRID 321 0 2.5 7.5 .0 0 126 GRID 322 0 3.0 7.5 .0 0 126 GRID 323 0 3.5 7.5 .0 0 126 GRID 324 0 4.0 7.5 .0 0 126 GRID 325 0 4.5 7.5 .0 0 126 GRID 326 0 5.0 7.5 .0 0 126 GRID 327 0 5.5 7.5 .0 0 126 GRID 328 0 6.0 7.5 .0 0 126 GRID 329 0 6.5 7.5 .0 0 126 GRID 330 0 7.0 7.5 .0 0 126 GRID 331 0 7.5 7.5 .0 0 126 GRID 332 0 8.0 7.5 .0 0 126 GRID 333 0 8.5 7.5 .0 0 126 GRID 334 0 9.0 7.5 .0 0 126 GRID 335 0 9.5 7.5 .0 0 126 GRID 336 0 10.0 7.5 .0 0 126 GRID 337 0 .0 8.0 .0 0 126 GRID 338 0 .5 8.0 .0 0 126 GRID 339 0 1.0 8.0 .0 0 126 GRID 340 0 1.5 8.0 .0 0 126 GRID 341 0 2.0 8.0 .0 0 126 GRID 342 0 2.5 8.0 .0 0 126 GRID 343 0 3.0 8.0 .0 0 126 GRID 344 0 3.5 8.0 .0 0 126 GRID 345 0 4.0 8.0 .0 0 126 GRID 346 0 4.5 8.0 .0 0 126 GRID 347 0 5.0 8.0 .0 0 126 GRID 348 0 5.5 8.0 .0 0 126 GRID 349 0 6.0 8.0 .0 0 126 GRID 350 0 6.5 8.0 .0 0 126 GRID 351 0 7.0 8.0 .0 0 126 GRID 352 0 7.5 8.0 .0 0 126 GRID 353 0 8.0 8.0 .0 0 126 GRID 354 0 8.5 8.0 .0 0 126 GRID 355 0 9.0 8.0 .0 0 126 GRID 356 0 9.5 8.0 .0 0 126 GRID 357 0 10.0 8.0 .0 0 126 GRID 358 0 .0 8.5 .0 0 126 GRID 359 0 .5 8.5 .0 0 126 GRID 360 0 1.0 8.5 .0 0 126 GRID 361 0 1.5 8.5 .0 0 126 GRID 362 0 2.0 8.5 .0 0 126 GRID 363 0 2.5 8.5 .0 0 126 GRID 364 0 3.0 8.5 .0 0 126 GRID 365 0 3.5 8.5 .0 0 126 GRID 366 0 4.0 8.5 .0 0 126 GRID 367 0 4.5 8.5 .0 0 126 GRID 368 0 5.0 8.5 .0 0 126 GRID 369 0 5.5 8.5 .0 0 126 GRID 370 0 6.0 8.5 .0 0 126 GRID 371 0 6.5 8.5 .0 0 126 GRID 372 0 7.0 8.5 .0 0 126 GRID 373 0 7.5 8.5 .0 0 126 GRID 374 0 8.0 8.5 .0 0 126 GRID 375 0 8.5 8.5 .0 0 126 GRID 376 0 9.0 8.5 .0 0 126 GRID 377 0 9.5 8.5 .0 0 126 GRID 378 0 10.0 8.5 .0 0 126 GRID 379 0 .0 9.0 .0 0 126 GRID 380 0 .5 9.0 .0 0 126 GRID 381 0 1.0 9.0 .0 0 126 GRID 382 0 1.5 9.0 .0 0 126 GRID 383 0 2.0 9.0 .0 0 126 GRID 384 0 2.5 9.0 .0 0 126 GRID 385 0 3.0 9.0 .0 0 126 GRID 386 0 3.5 9.0 .0 0 126 GRID 387 0 4.0 9.0 .0 0 126 GRID 388 0 4.5 9.0 .0 0 126 GRID 389 0 5.0 9.0 .0 0 126 GRID 390 0 5.5 9.0 .0 0 126 GRID 391 0 6.0 9.0 .0 0 126 GRID 392 0 6.5 9.0 .0 0 126 GRID 393 0 7.0 9.0 .0 0 126 GRID 394 0 7.5 9.0 .0 0 126 GRID 395 0 8.0 9.0 .0 0 126 GRID 396 0 8.5 9.0 .0 0 126 GRID 397 0 9.0 9.0 .0 0 126 GRID 398 0 9.5 9.0 .0 0 126 GRID 399 0 10.0 9.0 .0 0 126 GRID 400 0 .0 9.5 .0 0 126 GRID 401 0 .5 9.5 .0 0 126 GRID 402 0 1.0 9.5 .0 0 126 GRID 403 0 1.5 9.5 .0 0 126 GRID 404 0 2.0 9.5 .0 0 126 GRID 405 0 2.5 9.5 .0 0 126 GRID 406 0 3.0 9.5 .0 0 126 GRID 407 0 3.5 9.5 .0 0 126 GRID 408 0 4.0 9.5 .0 0 126 GRID 409 0 4.5 9.5 .0 0 126 GRID 410 0 5.0 9.5 .0 0 126 GRID 411 0 5.5 9.5 .0 0 126 GRID 412 0 6.0 9.5 .0 0 126 GRID 413 0 6.5 9.5 .0 0 126 GRID 414 0 7.0 9.5 .0 0 126 GRID 415 0 7.5 9.5 .0 0 126 GRID 416 0 8.0 9.5 .0 0 126 GRID 417 0 8.5 9.5 .0 0 126 GRID 418 0 9.0 9.5 .0 0 126 GRID 419 0 9.5 9.5 .0 0 126 GRID 420 0 10.0 9.5 .0 0 126 GRID 421 0 .0 10.0 .0 0 126 GRID 422 0 .5 10.0 .0 0 126 GRID 423 0 1.0 10.0 .0 0 126 GRID 424 0 1.5 10.0 .0 0 126 GRID 425 0 2.0 10.0 .0 0 126 GRID 426 0 2.5 10.0 .0 0 126 GRID 427 0 3.0 10.0 .0 0 126 GRID 428 0 3.5 10.0 .0 0 126 GRID 429 0 4.0 10.0 .0 0 126 GRID 430 0 4.5 10.0 .0 0 126 GRID 431 0 5.0 10.0 .0 0 126 GRID 432 0 5.5 10.0 .0 0 126 GRID 433 0 6.0 10.0 .0 0 126 GRID 434 0 6.5 10.0 .0 0 126 GRID 435 0 7.0 10.0 .0 0 126 GRID 436 0 7.5 10.0 .0 0 126 GRID 437 0 8.0 10.0 .0 0 126 GRID 438 0 8.5 10.0 .0 0 126 GRID 439 0 9.0 10.0 .0 0 126 GRID 440 0 9.5 10.0 .0 0 126 GRID 441 0 10.0 10.0 .0 0 126 GRID 442 0 .0 10.5 .0 0 126 GRID 443 0 .5 10.5 .0 0 126 GRID 444 0 1.0 10.5 .0 0 126 GRID 445 0 1.5 10.5 .0 0 126 GRID 446 0 2.0 10.5 .0 0 126 GRID 447 0 2.5 10.5 .0 0 126 GRID 448 0 3.0 10.5 .0 0 126 GRID 449 0 3.5 10.5 .0 0 126 GRID 450 0 4.0 10.5 .0 0 126 GRID 451 0 4.5 10.5 .0 0 126 GRID 452 0 5.0 10.5 .0 0 126 GRID 453 0 5.5 10.5 .0 0 126 GRID 454 0 6.0 10.5 .0 0 126 GRID 455 0 6.5 10.5 .0 0 126 GRID 456 0 7.0 10.5 .0 0 126 GRID 457 0 7.5 10.5 .0 0 126 GRID 458 0 8.0 10.5 .0 0 126 GRID 459 0 8.5 10.5 .0 0 126 GRID 460 0 9.0 10.5 .0 0 126 GRID 461 0 9.5 10.5 .0 0 126 GRID 462 0 10.0 10.5 .0 0 126 GRID 463 0 .0 11.0 .0 0 126 GRID 464 0 .5 11.0 .0 0 126 GRID 465 0 1.0 11.0 .0 0 126 GRID 466 0 1.5 11.0 .0 0 126 GRID 467 0 2.0 11.0 .0 0 126 GRID 468 0 2.5 11.0 .0 0 126 GRID 469 0 3.0 11.0 .0 0 126 GRID 470 0 3.5 11.0 .0 0 126 GRID 471 0 4.0 11.0 .0 0 126 GRID 472 0 4.5 11.0 .0 0 126 GRID 473 0 5.0 11.0 .0 0 126 GRID 474 0 5.5 11.0 .0 0 126 GRID 475 0 6.0 11.0 .0 0 126 GRID 476 0 6.5 11.0 .0 0 126 GRID 477 0 7.0 11.0 .0 0 126 GRID 478 0 7.5 11.0 .0 0 126 GRID 479 0 8.0 11.0 .0 0 126 GRID 480 0 8.5 11.0 .0 0 126 GRID 481 0 9.0 11.0 .0 0 126 GRID 482 0 9.5 11.0 .0 0 126 GRID 483 0 10.0 11.0 .0 0 126 GRID 484 0 .0 11.5 .0 0 126 GRID 485 0 .5 11.5 .0 0 126 GRID 486 0 1.0 11.5 .0 0 126 GRID 487 0 1.5 11.5 .0 0 126 GRID 488 0 2.0 11.5 .0 0 126 GRID 489 0 2.5 11.5 .0 0 126 GRID 490 0 3.0 11.5 .0 0 126 GRID 491 0 3.5 11.5 .0 0 126 GRID 492 0 4.0 11.5 .0 0 126 GRID 493 0 4.5 11.5 .0 0 126 GRID 494 0 5.0 11.5 .0 0 126 GRID 495 0 5.5 11.5 .0 0 126 GRID 496 0 6.0 11.5 .0 0 126 GRID 497 0 6.5 11.5 .0 0 126 GRID 498 0 7.0 11.5 .0 0 126 GRID 499 0 7.5 11.5 .0 0 126 GRID 500 0 8.0 11.5 .0 0 126 GRID 501 0 8.5 11.5 .0 0 126 GRID 502 0 9.0 11.5 .0 0 126 GRID 503 0 9.5 11.5 .0 0 126 GRID 504 0 10.0 11.5 .0 0 126 GRID 505 0 .0 12.0 .0 0 126 GRID 506 0 .5 12.0 .0 0 126 GRID 507 0 1.0 12.0 .0 0 126 GRID 508 0 1.5 12.0 .0 0 126 GRID 509 0 2.0 12.0 .0 0 126 GRID 510 0 2.5 12.0 .0 0 126 GRID 511 0 3.0 12.0 .0 0 126 GRID 512 0 3.5 12.0 .0 0 126 GRID 513 0 4.0 12.0 .0 0 126 GRID 514 0 4.5 12.0 .0 0 126 GRID 515 0 5.0 12.0 .0 0 126 GRID 516 0 5.5 12.0 .0 0 126 GRID 517 0 6.0 12.0 .0 0 126 GRID 518 0 6.5 12.0 .0 0 126 GRID 519 0 7.0 12.0 .0 0 126 GRID 520 0 7.5 12.0 .0 0 126 GRID 521 0 8.0 12.0 .0 0 126 GRID 522 0 8.5 12.0 .0 0 126 GRID 523 0 9.0 12.0 .0 0 126 GRID 524 0 9.5 12.0 .0 0 126 GRID 525 0 10.0 12.0 .0 0 126 GRID 526 0 .0 12.5 .0 0 126 GRID 527 0 .5 12.5 .0 0 126 GRID 528 0 1.0 12.5 .0 0 126 GRID 529 0 1.5 12.5 .0 0 126 GRID 530 0 2.0 12.5 .0 0 126 GRID 531 0 2.5 12.5 .0 0 126 GRID 532 0 3.0 12.5 .0 0 126 GRID 533 0 3.5 12.5 .0 0 126 GRID 534 0 4.0 12.5 .0 0 126 GRID 535 0 4.5 12.5 .0 0 126 GRID 536 0 5.0 12.5 .0 0 126 GRID 537 0 5.5 12.5 .0 0 126 GRID 538 0 6.0 12.5 .0 0 126 GRID 539 0 6.5 12.5 .0 0 126 GRID 540 0 7.0 12.5 .0 0 126 GRID 541 0 7.5 12.5 .0 0 126 GRID 542 0 8.0 12.5 .0 0 126 GRID 543 0 8.5 12.5 .0 0 126 GRID 544 0 9.0 12.5 .0 0 126 GRID 545 0 9.5 12.5 .0 0 126 GRID 546 0 10.0 12.5 .0 0 126 GRID 547 0 .0 13.0 .0 0 126 GRID 548 0 .5 13.0 .0 0 126 GRID 549 0 1.0 13.0 .0 0 126 GRID 550 0 1.5 13.0 .0 0 126 GRID 551 0 2.0 13.0 .0 0 126 GRID 552 0 2.5 13.0 .0 0 126 GRID 553 0 3.0 13.0 .0 0 126 GRID 554 0 3.5 13.0 .0 0 126 GRID 555 0 4.0 13.0 .0 0 126 GRID 556 0 4.5 13.0 .0 0 126 GRID 557 0 5.0 13.0 .0 0 126 GRID 558 0 5.5 13.0 .0 0 126 GRID 559 0 6.0 13.0 .0 0 126 GRID 560 0 6.5 13.0 .0 0 126 GRID 561 0 7.0 13.0 .0 0 126 GRID 562 0 7.5 13.0 .0 0 126 GRID 563 0 8.0 13.0 .0 0 126 GRID 564 0 8.5 13.0 .0 0 126 GRID 565 0 9.0 13.0 .0 0 126 GRID 566 0 9.5 13.0 .0 0 126 GRID 567 0 10.0 13.0 .0 0 126 GRID 568 0 .0 13.5 .0 0 126 GRID 569 0 .5 13.5 .0 0 126 GRID 570 0 1.0 13.5 .0 0 126 GRID 571 0 1.5 13.5 .0 0 126 GRID 572 0 2.0 13.5 .0 0 126 GRID 573 0 2.5 13.5 .0 0 126 GRID 574 0 3.0 13.5 .0 0 126 GRID 575 0 3.5 13.5 .0 0 126 GRID 576 0 4.0 13.5 .0 0 126 GRID 577 0 4.5 13.5 .0 0 126 GRID 578 0 5.0 13.5 .0 0 126 GRID 579 0 5.5 13.5 .0 0 126 GRID 580 0 6.0 13.5 .0 0 126 GRID 581 0 6.5 13.5 .0 0 126 GRID 582 0 7.0 13.5 .0 0 126 GRID 583 0 7.5 13.5 .0 0 126 GRID 584 0 8.0 13.5 .0 0 126 GRID 585 0 8.5 13.5 .0 0 126 GRID 586 0 9.0 13.5 .0 0 126 GRID 587 0 9.5 13.5 .0 0 126 GRID 588 0 10.0 13.5 .0 0 126 GRID 589 0 .0 14.0 .0 0 126 GRID 590 0 .5 14.0 .0 0 126 GRID 591 0 1.0 14.0 .0 0 126 GRID 592 0 1.5 14.0 .0 0 126 GRID 593 0 2.0 14.0 .0 0 126 GRID 594 0 2.5 14.0 .0 0 126 GRID 595 0 3.0 14.0 .0 0 126 GRID 596 0 3.5 14.0 .0 0 126 GRID 597 0 4.0 14.0 .0 0 126 GRID 598 0 4.5 14.0 .0 0 126 GRID 599 0 5.0 14.0 .0 0 126 GRID 600 0 5.5 14.0 .0 0 126 GRID 601 0 6.0 14.0 .0 0 126 GRID 602 0 6.5 14.0 .0 0 126 GRID 603 0 7.0 14.0 .0 0 126 GRID 604 0 7.5 14.0 .0 0 126 GRID 605 0 8.0 14.0 .0 0 126 GRID 606 0 8.5 14.0 .0 0 126 GRID 607 0 9.0 14.0 .0 0 126 GRID 608 0 9.5 14.0 .0 0 126 GRID 609 0 10.0 14.0 .0 0 126 GRID 610 0 .0 14.5 .0 0 126 GRID 611 0 .5 14.5 .0 0 126 GRID 612 0 1.0 14.5 .0 0 126 GRID 613 0 1.5 14.5 .0 0 126 GRID 614 0 2.0 14.5 .0 0 126 GRID 615 0 2.5 14.5 .0 0 126 GRID 616 0 3.0 14.5 .0 0 126 GRID 617 0 3.5 14.5 .0 0 126 GRID 618 0 4.0 14.5 .0 0 126 GRID 619 0 4.5 14.5 .0 0 126 GRID 620 0 5.0 14.5 .0 0 126 GRID 621 0 5.5 14.5 .0 0 126 GRID 622 0 6.0 14.5 .0 0 126 GRID 623 0 6.5 14.5 .0 0 126 GRID 624 0 7.0 14.5 .0 0 126 GRID 625 0 7.5 14.5 .0 0 126 GRID 626 0 8.0 14.5 .0 0 126 GRID 627 0 8.5 14.5 .0 0 126 GRID 628 0 9.0 14.5 .0 0 126 GRID 629 0 9.5 14.5 .0 0 126 GRID 630 0 10.0 14.5 .0 0 126 GRID 631 0 .0 15.0 .0 0 126 GRID 632 0 .5 15.0 .0 0 126 GRID 633 0 1.0 15.0 .0 0 126 GRID 634 0 1.5 15.0 .0 0 126 GRID 635 0 2.0 15.0 .0 0 126 GRID 636 0 2.5 15.0 .0 0 126 GRID 637 0 3.0 15.0 .0 0 126 GRID 638 0 3.5 15.0 .0 0 126 GRID 639 0 4.0 15.0 .0 0 126 GRID 640 0 4.5 15.0 .0 0 126 GRID 641 0 5.0 15.0 .0 0 126 GRID 642 0 5.5 15.0 .0 0 126 GRID 643 0 6.0 15.0 .0 0 126 GRID 644 0 6.5 15.0 .0 0 126 GRID 645 0 7.0 15.0 .0 0 126 GRID 646 0 7.5 15.0 .0 0 126 GRID 647 0 8.0 15.0 .0 0 126 GRID 648 0 8.5 15.0 .0 0 126 GRID 649 0 9.0 15.0 .0 0 126 GRID 650 0 9.5 15.0 .0 0 126 GRID 651 0 10.0 15.0 .0 0 126 GRID 652 0 .0 15.5 .0 0 126 GRID 653 0 .5 15.5 .0 0 126 GRID 654 0 1.0 15.5 .0 0 126 GRID 655 0 1.5 15.5 .0 0 126 GRID 656 0 2.0 15.5 .0 0 126 GRID 657 0 2.5 15.5 .0 0 126 GRID 658 0 3.0 15.5 .0 0 126 GRID 659 0 3.5 15.5 .0 0 126 GRID 660 0 4.0 15.5 .0 0 126 GRID 661 0 4.5 15.5 .0 0 126 GRID 662 0 5.0 15.5 .0 0 126 GRID 663 0 5.5 15.5 .0 0 126 GRID 664 0 6.0 15.5 .0 0 126 GRID 665 0 6.5 15.5 .0 0 126 GRID 666 0 7.0 15.5 .0 0 126 GRID 667 0 7.5 15.5 .0 0 126 GRID 668 0 8.0 15.5 .0 0 126 GRID 669 0 8.5 15.5 .0 0 126 GRID 670 0 9.0 15.5 .0 0 126 GRID 671 0 9.5 15.5 .0 0 126 GRID 672 0 10.0 15.5 .0 0 126 GRID 673 0 .0 16.0 .0 0 126 GRID 674 0 .5 16.0 .0 0 126 GRID 675 0 1.0 16.0 .0 0 126 GRID 676 0 1.5 16.0 .0 0 126 GRID 677 0 2.0 16.0 .0 0 126 GRID 678 0 2.5 16.0 .0 0 126 GRID 679 0 3.0 16.0 .0 0 126 GRID 680 0 3.5 16.0 .0 0 126 GRID 681 0 4.0 16.0 .0 0 126 GRID 682 0 4.5 16.0 .0 0 126 GRID 683 0 5.0 16.0 .0 0 126 GRID 684 0 5.5 16.0 .0 0 126 GRID 685 0 6.0 16.0 .0 0 126 GRID 686 0 6.5 16.0 .0 0 126 GRID 687 0 7.0 16.0 .0 0 126 GRID 688 0 7.5 16.0 .0 0 126 GRID 689 0 8.0 16.0 .0 0 126 GRID 690 0 8.5 16.0 .0 0 126 GRID 691 0 9.0 16.0 .0 0 126 GRID 692 0 9.5 16.0 .0 0 126 GRID 693 0 10.0 16.0 .0 0 126 GRID 694 0 .0 16.5 .0 0 126 GRID 695 0 .5 16.5 .0 0 126 GRID 696 0 1.0 16.5 .0 0 126 GRID 697 0 1.5 16.5 .0 0 126 GRID 698 0 2.0 16.5 .0 0 126 GRID 699 0 2.5 16.5 .0 0 126 GRID 700 0 3.0 16.5 .0 0 126 GRID 701 0 3.5 16.5 .0 0 126 GRID 702 0 4.0 16.5 .0 0 126 GRID 703 0 4.5 16.5 .0 0 126 GRID 704 0 5.0 16.5 .0 0 126 GRID 705 0 5.5 16.5 .0 0 126 GRID 706 0 6.0 16.5 .0 0 126 GRID 707 0 6.5 16.5 .0 0 126 GRID 708 0 7.0 16.5 .0 0 126 GRID 709 0 7.5 16.5 .0 0 126 GRID 710 0 8.0 16.5 .0 0 126 GRID 711 0 8.5 16.5 .0 0 126 GRID 712 0 9.0 16.5 .0 0 126 GRID 713 0 9.5 16.5 .0 0 126 GRID 714 0 10.0 16.5 .0 0 126 GRID 715 0 .0 17.0 .0 0 126 GRID 716 0 .5 17.0 .0 0 126 GRID 717 0 1.0 17.0 .0 0 126 GRID 718 0 1.5 17.0 .0 0 126 GRID 719 0 2.0 17.0 .0 0 126 GRID 720 0 2.5 17.0 .0 0 126 GRID 721 0 3.0 17.0 .0 0 126 GRID 722 0 3.5 17.0 .0 0 126 GRID 723 0 4.0 17.0 .0 0 126 GRID 724 0 4.5 17.0 .0 0 126 GRID 725 0 5.0 17.0 .0 0 126 GRID 726 0 5.5 17.0 .0 0 126 GRID 727 0 6.0 17.0 .0 0 126 GRID 728 0 6.5 17.0 .0 0 126 GRID 729 0 7.0 17.0 .0 0 126 GRID 730 0 7.5 17.0 .0 0 126 GRID 731 0 8.0 17.0 .0 0 126 GRID 732 0 8.5 17.0 .0 0 126 GRID 733 0 9.0 17.0 .0 0 126 GRID 734 0 9.5 17.0 .0 0 126 GRID 735 0 10.0 17.0 .0 0 126 GRID 736 0 .0 17.5 .0 0 126 GRID 737 0 .5 17.5 .0 0 126 GRID 738 0 1.0 17.5 .0 0 126 GRID 739 0 1.5 17.5 .0 0 126 GRID 740 0 2.0 17.5 .0 0 126 GRID 741 0 2.5 17.5 .0 0 126 GRID 742 0 3.0 17.5 .0 0 126 GRID 743 0 3.5 17.5 .0 0 126 GRID 744 0 4.0 17.5 .0 0 126 GRID 745 0 4.5 17.5 .0 0 126 GRID 746 0 5.0 17.5 .0 0 126 GRID 747 0 5.5 17.5 .0 0 126 GRID 748 0 6.0 17.5 .0 0 126 GRID 749 0 6.5 17.5 .0 0 126 GRID 750 0 7.0 17.5 .0 0 126 GRID 751 0 7.5 17.5 .0 0 126 GRID 752 0 8.0 17.5 .0 0 126 GRID 753 0 8.5 17.5 .0 0 126 GRID 754 0 9.0 17.5 .0 0 126 GRID 755 0 9.5 17.5 .0 0 126 GRID 756 0 10.0 17.5 .0 0 126 GRID 757 0 .0 18.0 .0 0 126 GRID 758 0 .5 18.0 .0 0 126 GRID 759 0 1.0 18.0 .0 0 126 GRID 760 0 1.5 18.0 .0 0 126 GRID 761 0 2.0 18.0 .0 0 126 GRID 762 0 2.5 18.0 .0 0 126 GRID 763 0 3.0 18.0 .0 0 126 GRID 764 0 3.5 18.0 .0 0 126 GRID 765 0 4.0 18.0 .0 0 126 GRID 766 0 4.5 18.0 .0 0 126 GRID 767 0 5.0 18.0 .0 0 126 GRID 768 0 5.5 18.0 .0 0 126 GRID 769 0 6.0 18.0 .0 0 126 GRID 770 0 6.5 18.0 .0 0 126 GRID 771 0 7.0 18.0 .0 0 126 GRID 772 0 7.5 18.0 .0 0 126 GRID 773 0 8.0 18.0 .0 0 126 GRID 774 0 8.5 18.0 .0 0 126 GRID 775 0 9.0 18.0 .0 0 126 GRID 776 0 9.5 18.0 .0 0 126 GRID 777 0 10.0 18.0 .0 0 126 GRID 778 0 .0 18.5 .0 0 126 GRID 779 0 .5 18.5 .0 0 126 GRID 780 0 1.0 18.5 .0 0 126 GRID 781 0 1.5 18.5 .0 0 126 GRID 782 0 2.0 18.5 .0 0 126 GRID 783 0 2.5 18.5 .0 0 126 GRID 784 0 3.0 18.5 .0 0 126 GRID 785 0 3.5 18.5 .0 0 126 GRID 786 0 4.0 18.5 .0 0 126 GRID 787 0 4.5 18.5 .0 0 126 GRID 788 0 5.0 18.5 .0 0 126 GRID 789 0 5.5 18.5 .0 0 126 GRID 790 0 6.0 18.5 .0 0 126 GRID 791 0 6.5 18.5 .0 0 126 GRID 792 0 7.0 18.5 .0 0 126 GRID 793 0 7.5 18.5 .0 0 126 GRID 794 0 8.0 18.5 .0 0 126 GRID 795 0 8.5 18.5 .0 0 126 GRID 796 0 9.0 18.5 .0 0 126 GRID 797 0 9.5 18.5 .0 0 126 GRID 798 0 10.0 18.5 .0 0 126 GRID 799 0 .0 19.0 .0 0 126 GRID 800 0 .5 19.0 .0 0 126 GRID 801 0 1.0 19.0 .0 0 126 GRID 802 0 1.5 19.0 .0 0 126 GRID 803 0 2.0 19.0 .0 0 126 GRID 804 0 2.5 19.0 .0 0 126 GRID 805 0 3.0 19.0 .0 0 126 GRID 806 0 3.5 19.0 .0 0 126 GRID 807 0 4.0 19.0 .0 0 126 GRID 808 0 4.5 19.0 .0 0 126 GRID 809 0 5.0 19.0 .0 0 126 GRID 810 0 5.5 19.0 .0 0 126 GRID 811 0 6.0 19.0 .0 0 126 GRID 812 0 6.5 19.0 .0 0 126 GRID 813 0 7.0 19.0 .0 0 126 GRID 814 0 7.5 19.0 .0 0 126 GRID 815 0 8.0 19.0 .0 0 126 GRID 816 0 8.5 19.0 .0 0 126 GRID 817 0 9.0 19.0 .0 0 126 GRID 818 0 9.5 19.0 .0 0 126 GRID 819 0 10.0 19.0 .0 0 126 GRID 820 0 .0 19.5 .0 0 126 GRID 821 0 .5 19.5 .0 0 126 GRID 822 0 1.0 19.5 .0 0 126 GRID 823 0 1.5 19.5 .0 0 126 GRID 824 0 2.0 19.5 .0 0 126 GRID 825 0 2.5 19.5 .0 0 126 GRID 826 0 3.0 19.5 .0 0 126 GRID 827 0 3.5 19.5 .0 0 126 GRID 828 0 4.0 19.5 .0 0 126 GRID 829 0 4.5 19.5 .0 0 126 GRID 830 0 5.0 19.5 .0 0 126 GRID 831 0 5.5 19.5 .0 0 126 GRID 832 0 6.0 19.5 .0 0 126 GRID 833 0 6.5 19.5 .0 0 126 GRID 834 0 7.0 19.5 .0 0 126 GRID 835 0 7.5 19.5 .0 0 126 GRID 836 0 8.0 19.5 .0 0 126 GRID 837 0 8.5 19.5 .0 0 126 GRID 838 0 9.0 19.5 .0 0 126 GRID 839 0 9.5 19.5 .0 0 126 GRID 840 0 10.0 19.5 .0 0 126 GRID 841 0 .0 20.0 .0 0 126 GRID 842 0 .5 20.0 .0 0 126 GRID 843 0 1.0 20.0 .0 0 126 GRID 844 0 1.5 20.0 .0 0 126 GRID 845 0 2.0 20.0 .0 0 126 GRID 846 0 2.5 20.0 .0 0 126 GRID 847 0 3.0 20.0 .0 0 126 GRID 848 0 3.5 20.0 .0 0 126 GRID 849 0 4.0 20.0 .0 0 126 GRID 850 0 4.5 20.0 .0 0 126 GRID 851 0 5.0 20.0 .0 0 126 GRID 852 0 5.5 20.0 .0 0 126 GRID 853 0 6.0 20.0 .0 0 126 GRID 854 0 6.5 20.0 .0 0 126 GRID 855 0 7.0 20.0 .0 0 126 GRID 856 0 7.5 20.0 .0 0 126 GRID 857 0 8.0 20.0 .0 0 126 GRID 858 0 8.5 20.0 .0 0 126 GRID 859 0 9.0 20.0 .0 0 126 GRID 860 0 9.5 20.0 .0 0 126 GRID 861 0 10.0 20.0 .0 0 126 MAT1 2 3.0+7 .300 200.0 +MAT1 +MAT1 30000. 28000. PARAM GRDPNT 421 PLOTEL 1000 1 21 1001 21 861 PLOTEL 1002 861 841 1003 841 757 PLOTEL 1004 757 673 1005 673 589 PLOTEL 1006 589 505 1007 505 421 PLOTEL 1008 421 337 1009 337 253 PLOTEL 1010 253 169 1011 169 85 PLOTEL 1012 85 1 1013 5 89 PLOTEL 1014 89 173 1015 173 257 PLOTEL 1016 257 341 1017 341 425 PLOTEL 1018 425 509 1019 509 593 PLOTEL 1020 593 677 1021 677 761 PLOTEL 1022 761 845 1023 849 765 PLOTEL 1024 765 681 1025 681 597 PLOTEL 1026 597 513 1027 513 429 PLOTEL 1028 429 345 1029 345 261 PLOTEL 1030 261 177 1031 177 93 PLOTEL 1032 93 9 1033 13 97 PLOTEL 1034 97 181 1035 181 265 PLOTEL 1036 265 349 1037 349 433 PLOTEL 1038 433 517 1039 517 601 PLOTEL 1040 601 685 1041 685 769 PLOTEL 1042 769 853 1043 857 773 PLOTEL 1044 773 689 1045 689 605 PLOTEL 1046 605 521 1047 521 437 PLOTEL 1048 437 353 1049 353 269 PLOTEL 1050 269 185 1051 185 101 PLOTEL 1052 101 17 1053 105 101 PLOTEL 1054 101 97 1055 97 93 PLOTEL 1056 93 89 1057 89 85 PLOTEL 1058 169 173 1059 173 177 PLOTEL 1060 177 181 1061 181 185 PLOTEL 1062 185 189 1063 273 269 PLOTEL 1064 269 265 1065 265 261 PLOTEL 1066 261 257 1067 257 253 PLOTEL 1068 337 341 1069 341 345 PLOTEL 1070 345 349 1071 349 353 PLOTEL 1072 353 357 1073 441 437 PLOTEL 1074 437 433 1075 433 429 PLOTEL 1076 429 425 1077 425 421 PLOTEL 1078 505 509 1079 509 513 PLOTEL 1080 513 517 1081 517 521 PLOTEL 1082 521 525 1083 609 605 PLOTEL 1084 605 601 1085 601 597 PLOTEL 1086 597 593 1087 593 589 PLOTEL 1088 673 677 1089 677 681 PLOTEL 1090 681 685 1091 685 689 PLOTEL 1092 689 693 1093 777 773 PLOTEL 1094 773 769 1095 769 765 PLOTEL 1096 765 761 1097 761 757 PQUAD1 101 2 1.0 2 .0833333 6.04393 +PQUAD1 +PQUAD1 .5 .0 SPC1 37 5 1 22 43 64 85 106 +31001H +31001H 127 148 169 190 211 232 253 274 +31002H +31002H 295 316 337 358 379 400 421 442 +31003H +31003H 463 484 505 526 547 568 589 610 +31004H +31004H 631 652 673 694 715 736 757 778 +31005H +31005H 799 820 841 SPC1 37 34 21 42 63 84 105 126 +11001H +11001H 147 168 189 210 231 252 273 294 +11002H +11002H 315 336 357 378 399 420 441 462 +11003H +11003H 483 504 525 546 567 588 609 630 +11004H +11004H 651 672 693 714 735 756 777 798 +11005H +11005H 819 840 861 SPC1 37 35 1 2 3 4 5 6 +41001H +41001H 7 8 9 10 11 12 13 14 +41002H +41002H 15 16 17 18 19 20 21 SPC1 37 35 841 842 843 844 845 846 +21001H +21001H 847 848 849 850 851 852 853 854 +21002H +21002H 855 856 857 858 859 860 861 ENDDATA *WEOR TYPE 1 ================================================ FILE: inp/d03012a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3, Real Eigenvalue Analysis $ Vibration of a 10x20 Plate (3-1-1) $ Vibration of a 20x40 Plate (3-1-2) $ Vibration of a 10x20 Plate (INPUT, 3-1-3) $ Vibration of a 20x40 Plate (INPUT, 3-1-4) $ $ A. Description $ $ This problem demonstrates the solution for natural frequencies of a large- $ order problem. The structural model consists of a square plate with hinged $ supports on all boundaries. The 10x20 model (Problem 3-1-1) represents one $ half of the structure with symmetric boundary constraints on the mid-line to $ reduce the order of the problem and the bandwidth by one half. The 20x40 model $ (Problem 3-1-2) has the same dimensions, but with a finer mesh. Both $ configurations are developed via the INPUT module (Problems 3-1-3 and 3-1-4 $ for coarse mesh and fine mesh, respectively) to generate the QUAD1 elements. $ $ Because only the bending modes are desired, the in-plane deflections and $ rotations normal to the plane are constrained. The inverse power method of $ eigenvalue extraction is selected for the smaller model and the FEER method $ (Reference 32) is selected for the larger model. Both structural mass density $ and non-structural mass-per-area are used to define the mass matrix. $ $ An undeformed structure plot is executed without plot elements. This is $ expensive on most plotters since all four sides of each quadrilateral are $ drawn. For the deformed plots of each eigenvector, plot elements are used to $ draw an edge only once and to draw only selected coordinate lines (every $ second or fourth line depending on the model used). $ $ B. Input $ $ 1. Parameters: $ $ l = w = 20.0 (Length and width) $ $ I = 1/12 (Moment of inertia) $ $ t = 1.0 (Thickness) $ $ 7 $ E = 3.0 x 10 (Modu1us of elasticity) $ $ v = 0.30 (Poisson's ratio) $ $ p = 206.0439 (Mass density, 200.0 structural and 6.0439 non-structural $ mass) $ $ 2. Boundary constraints: $ $ along x = 0, theta = 0 Symmetric Boundary $ y $ + $ along y = 0, u = theta = 0 | $ z y | $ | $ along x = 10, u = theta = 0 | Hinged Supports $ z x | $ | $ along y = 20, u = theta = 0 | $ z y | $ + $ 3. Eigenvalue extraction data: $ $ Method: Inverse Power and FEER $ $ Region of interest for inverse power: .89 <= f <= 1.0 $ $ Center point for FEER: .87 $ $ Number of desired roots: 3 $ $ Number of estimated roots: 1 $ $ C. Results $ $ Table 1 lists the NASTRAN and theoretical natural frequencies as defined in $ Reference 8. $ $ Table 1. Natural Frequencies, cps. $ $ ------------------------------------- $ NASTRAN NASTRAN $ Mode Theoretical 10x20 20x40 $ No. (INV) (FEER) $ ------------------------------------- $ 1 .9069 .9056 .9066 $ $ 2 2.2672 2.2634 2.2663 $ $ 3 4.5345 4.5329 4.5340 $ ------------------------------------- $ $ APPLICABLE REFERENCES $ $ 8. W. F. Stokey, "Vibration of Systems Having Distributed Mass and $ Elasticity", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E. $ Crede, Editors, McGraw-Hill, 1961. $ $ 32. Newman, Malcolm and Flanaga, Paul F.: Eigenvalue Extraction in NASTRAN by $ the Tridiagonal Reduction (FEER) Method - Real Eigenvalue Analysis, NASA $ CR-2731, August, 1976. $------------------------------------------------------------------------------- ================================================ FILE: inp/d03013a.inp ================================================ NASTRAN FILES=PLT2 ID D03013A,NASTRAN ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,GEOM2,,,/G1,G2,,G4,/C,N,3/C,N,1 $ EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER $ APP DISPLACEMENT SOL 3,1 DIAG 14 TIME 35 CEND TITLE = VIBRATIONS OF A 10 BY 20 PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A $ SPC = 10020 METHOD = 5 $ ENCLOSE 2 MODES - FINDS 3 ROOTS $ ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL) $ MODE M N FREQ $ 1 1 1 9.068997E-1 $ 2 1 2 2.267249 $ 5 1 3 4.534498 $ 6 3 1 4.534498 $ 7 3 2 5.894848 $ 9 1 4 7.708647 $ OUTPUT SET 1 = 1 THRU 11, 34 THRU 44, 56 THRU 66, 78 THRU 88, 111 THRU 121 SET 2 = 1 THRU 12, 22,23,33,34,44,45,55,56,66,67,77,78,88,89, 99,100, 110 THRU 121 DISPLACEMENTS = 1 SPCFORCE = 2 $ PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A OUTPUT(PLOT) PLOTTER NASTPLT SET 1 INCLUDE PLOTEL SET 2 INCLUDE QUAD1 MAXIMUM DEFORMATION 1.0 FIND SCALE, ORIGIN 10 PTITLE = ALL QUADS IN THE PLATE PLOT ORIGIN 10, SET 2, LABELS FIND SCALE, ORIGIN 11 PTITLE = MODE SHAPES USING PLOTEL ELEMENTS PLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE BEGIN BULK EIGR 2 INV .85 .89 1 1 0 CSIMPL-I +SIMPL-IMAX EIGR 3 INV .89 1.0 1 3 0 +EIG3-1 +EIG3-1 MAX EIGR 4 DET .89 1.0 1 1 0 +EIG4-1 +EIG4-1 MAX EIGR 5 INV .89 2.4 1 3 0 +EIG5-2 +EIG5-2 MAX EIGR 6 DET .89 2.4 2 2 0 +EIG6-2 +EIG6-2 MAX EIGR 7 INV .89 6.1 5 5 0 +EIG7-5 +EIG7-5 MAX EIGR 8 DET .89 6.1 5 5 0 +EIG8-5 +EIG8-5 MAX EIGR 9 INV .89 14.5 4 10 0 +EIG9-10 +EIG9-10MAX EIGR 10 DET .89 14.5 5 5 0 +EIG1010 +EIG1010MAX EIGR 11 INV .89 29.0 20 20 0 +EIG1120 +EIG1120MAX EIGR 12 DET .89 29.0 20 20 0 +EIG1220 +EIG1220MAX MAT1 2 3.0+7 .300 200.0 +MAT1 +MAT1 30000. 28000. PARAM GRDPNT 111 PLOTEL 300 23 1 PLOTEL 301 1 11 302 11 231 PLOTEL 303 231 221 304 221 199 PLOTEL 305 199 201 306 201 203 PLOTEL 307 203 205 308 205 207 PLOTEL 309 207 209 310 187 185 PLOTEL 311 185 183 312 183 181 PLOTEL 313 181 179 314 179 177 PLOTEL 315 199 177 316 177 155 PLOTEL 317 155 157 318 157 159 PLOTEL 319 159 161 320 161 163 PLOTEL 321 163 165 322 143 141 PLOTEL 323 141 139 324 139 137 PLOTEL 325 137 135 326 135 133 PLOTEL 327 155 133 328 133 111 PLOTEL 329 111 113 330 113 115 PLOTEL 331 115 117 332 117 119 PLOTEL 333 119 121 334 99 97 PLOTEL 335 97 95 336 95 93 PLOTEL 337 93 91 338 91 89 PLOTEL 339 111 89 340 89 67 PLOTEL 341 67 69 342 69 71 PLOTEL 343 71 73 344 73 75 PLOTEL 345 75 77 346 55 53 PLOTEL 347 53 51 348 51 49 PLOTEL 349 49 47 350 47 45 PLOTEL 351 67 45 352 45 23 PLOTEL 353 23 25 354 25 27 PLOTEL 355 27 29 356 29 31 PLOTEL 357 31 33 358 9 31 PLOTEL 359 31 53 360 53 75 PLOTEL 361 75 97 362 97 119 PLOTEL 363 119 141 364 141 163 PLOTEL 365 163 185 366 185 207 PLOTEL 367 207 229 368 227 205 PLOTEL 369 205 183 370 183 161 PLOTEL 371 161 139 372 139 117 PLOTEL 373 117 95 374 95 73 PLOTEL 375 73 51 376 51 29 PLOTEL 377 29 7 378 5 27 PLOTEL 379 27 49 380 49 71 PLOTEL 381 71 93 382 93 115 PLOTEL 383 115 137 384 137 159 PLOTEL 385 159 181 386 181 203 PLOTEL 387 203 225 388 223 201 PLOTEL 389 201 179 390 179 157 PLOTEL 391 157 135 392 135 113 PLOTEL 393 113 91 394 91 69 PLOTEL 395 69 47 396 47 36 PLOTEL 397 36 25 398 25 3 PQUAD1 101 2 1.0 2 .0833333 6.04393 +PQUAD1 +PQUAD1 .5 .0 ENDDATA 10 20 1.0E+00 1.0E+00 126 0.0 0.0 35 5 35 34 0 0 ================================================ FILE: inp/d03013a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3, Real Eigenvalue Analysis $ Vibration of a 10x20 Plate (3-1-1) $ Vibration of a 20x40 Plate (3-1-2) $ Vibration of a 10x20 Plate (INPUT, 3-1-3) $ Vibration of a 20x40 Plate (INPUT, 3-1-4) $ $ A. Description $ $ This problem demonstrates the solution for natural frequencies of a large- $ order problem. The structural model consists of a square plate with hinged $ supports on all boundaries. The 10x20 model (Problem 3-1-1) represents one $ half of the structure with symmetric boundary constraints on the mid-line to $ reduce the order of the problem and the bandwidth by one half. The 20x40 model $ (Problem 3-1-2) has the same dimensions, but with a finer mesh. Both $ configurations are developed via the INPUT module (Problems 3-1-3 and 3-1-4 $ for coarse mesh and fine mesh, respectively) to generate the QUAD1 elements. $ $ Because only the bending modes are desired, the in-plane deflections and $ rotations normal to the plane are constrained. The inverse power method of $ eigenvalue extraction is selected for the smaller model and the FEER method $ (Reference 32) is selected for the larger model. Both structural mass density $ and non-structural mass-per-area are used to define the mass matrix. $ $ An undeformed structure plot is executed without plot elements. This is $ expensive on most plotters since all four sides of each quadrilateral are $ drawn. For the deformed plots of each eigenvector, plot elements are used to $ draw an edge only once and to draw only selected coordinate lines (every $ second or fourth line depending on the model used). $ $ B. Input $ $ 1. Parameters: $ $ l = w = 20.0 (Length and width) $ $ I = 1/12 (Moment of inertia) $ $ t = 1.0 (Thickness) $ $ 7 $ E = 3.0 x 10 (Modu1us of elasticity) $ $ v = 0.30 (Poisson's ratio) $ $ p = 206.0439 (Mass density, 200.0 structural and 6.0439 non-structural $ mass) $ $ 2. Boundary constraints: $ $ along x = 0, theta = 0 Symmetric Boundary $ y $ + $ along y = 0, u = theta = 0 | $ z y | $ | $ along x = 10, u = theta = 0 | Hinged Supports $ z x | $ | $ along y = 20, u = theta = 0 | $ z y | $ + $ 3. Eigenvalue extraction data: $ $ Method: Inverse Power and FEER $ $ Region of interest for inverse power: .89 <= f <= 1.0 $ $ Center point for FEER: .87 $ $ Number of desired roots: 3 $ $ Number of estimated roots: 1 $ $ C. Results $ $ Table 1 lists the NASTRAN and theoretical natural frequencies as defined in $ Reference 8. $ $ Table 1. Natural Frequencies, cps. $ $ ------------------------------------- $ NASTRAN NASTRAN $ Mode Theoretical 10x20 20x40 $ No. (INV) (FEER) $ ------------------------------------- $ 1 .9069 .9056 .9066 $ $ 2 2.2672 2.2634 2.2663 $ $ 3 4.5345 4.5329 4.5340 $ ------------------------------------- $ $ APPLICABLE REFERENCES $ $ 8. W. F. Stokey, "Vibration of Systems Having Distributed Mass and $ Elasticity", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E. $ Crede, Editors, McGraw-Hill, 1961. $ $ 32. Newman, Malcolm and Flanaga, Paul F.: Eigenvalue Extraction in NASTRAN by $ the Tridiagonal Reduction (FEER) Method - Real Eigenvalue Analysis, NASA $ CR-2731, August, 1976. $------------------------------------------------------------------------------- ================================================ FILE: inp/d03014a.inp ================================================ NASTRAN FILES=PLT2 ID D03014A,NASTRAN ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,GEOM2,,,/G1,G2,,G4,/C,N,3/C,N,1 $ EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER $ APP DISPLACEMENT SOL 3,1 DIAG 14 TIME 65 CEND TITLE = VIBRATION OF A 20 X 40 HALF PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A $ METHOD = 20 $ FEER - NO MODES SPC = 20040 $ INPUT VERSION $ ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL) $ MODE M N FREQ $ 1 1 1 9.068997E-1 $ 2 1 2 2.267249 $ 5 1 3 4.534498 $ 6 3 1 4.534498 $ 7 3 2 5.894848 $ 9 1 4 7.708647 $ OUTPUT SET 1 = 1 THRU 21, 64 THRU 84, 127 THRU 147, 190 THRU 210, 253 THRU 273, 316 THRU 336, 379 THRU 399, 442 THRU 462, 505 THRU 525, 568 THRU 588, 631 THRU 651, 694 THRU 714, 757 THRU 777, 820 THRU 840, 841 THRU 861 DISPLACEMENTS = 1 $ PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A OUTPUT(PLOT) PLOTTER NASTPLT SET 1 INCLUDE PLOTEL SET 2 INCLUDE QUAD1 MAXIMUM DEFORMATION 1.0 FIND SCALE, ORIGIN 10 PTITLE = ALL QUADS IN THE PLATE PLOT ORIGIN 10, SET 2, LABELS FIND SCALE, ORIGIN 11 PTITLE = MODE SHAPES USING PLOTEL ELEMENTS PLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE BEGIN BULK EIGR 2 INV .85 .89 1 1 0 CSIMPL-I +SIMPL-IMAX EIGR 3 INV .89 1.0 1 3 0 +EIG3-I +EIG3-I MAX EIGR 4 DET .89 1.0 1 1 0 +EIG4-D +EIG4-D MAX EIGR 5 INV .89 2.4 1 3 0 +EIG5-2 +EIG5-2 MAX EIGR 6 DET .89 2.4 2 2 0 +EIG6-2 +EIG6-2 MAX EIGR 7 INV .89 6.1 5 5 0 +EIG7-5 +EIG7-5 MAX EIGR 9 INV .89 14.5 4 10 0 +EIG9-10 +EIG9-10MAX EIGR 11 INV .89 29.0 20 20 0 +EIG1120 +EIG1120MAX EIGR 20 FEER .87 1 +FEER +FEER MAX MAT1 2 3.0+7 .300 200.0 +MAT1 +MAT1 30000. 28000. PARAM GRDPNT 421 PLOTEL 1000 1 21 1001 21 861 PLOTEL 1002 861 841 1003 841 757 PLOTEL 1004 757 673 1005 673 589 PLOTEL 1006 589 505 1007 505 421 PLOTEL 1008 421 337 1009 337 253 PLOTEL 1010 253 169 1011 169 85 PLOTEL 1012 85 1 1013 5 89 PLOTEL 1014 89 173 1015 173 257 PLOTEL 1016 257 341 1017 341 425 PLOTEL 1018 425 509 1019 509 593 PLOTEL 1020 593 677 1021 677 761 PLOTEL 1022 761 845 1023 849 765 PLOTEL 1024 765 681 1025 681 597 PLOTEL 1026 597 513 1027 513 429 PLOTEL 1028 429 345 1029 345 261 PLOTEL 1030 261 177 1031 177 93 PLOTEL 1032 93 9 1033 13 97 PLOTEL 1034 97 181 1035 181 265 PLOTEL 1036 265 349 1037 349 433 PLOTEL 1038 433 517 1039 517 601 PLOTEL 1040 601 685 1041 685 769 PLOTEL 1042 769 853 1043 857 773 PLOTEL 1044 773 689 1045 689 605 PLOTEL 1046 605 521 1047 521 437 PLOTEL 1048 437 353 1049 353 269 PLOTEL 1050 269 185 1051 185 101 PLOTEL 1052 101 17 1053 105 101 PLOTEL 1054 101 97 1055 97 93 PLOTEL 1056 93 89 1057 89 85 PLOTEL 1058 169 173 1059 173 177 PLOTEL 1060 177 181 1061 181 185 PLOTEL 1062 185 189 1063 273 269 PLOTEL 1064 269 265 1065 265 261 PLOTEL 1066 261 257 1067 257 253 PLOTEL 1068 337 341 1069 341 345 PLOTEL 1070 345 349 1071 349 353 PLOTEL 1072 353 357 1073 441 437 PLOTEL 1074 437 433 1075 433 429 PLOTEL 1076 429 425 1077 425 421 PLOTEL 1078 505 509 1079 509 513 PLOTEL 1080 513 517 1081 517 521 PLOTEL 1082 521 525 1083 609 605 PLOTEL 1084 605 601 1085 601 597 PLOTEL 1086 597 593 1087 593 589 PLOTEL 1088 673 677 1089 677 681 PLOTEL 1090 681 685 1091 685 689 PLOTEL 1092 689 693 1093 777 773 PLOTEL 1094 773 769 1095 769 765 PLOTEL 1096 765 761 1097 761 757 PQUAD1 101 2 1.0 2 .0833333 6.04393 +PQUAD1 +PQUAD1 .5 .0 ENDDATA 20 40 5.0E-01 5.0E-01 126 0.0 0.0 35 5 35 34 0 0 ================================================ FILE: inp/d03014a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3, Real Eigenvalue Analysis $ Vibration of a 10x20 Plate (3-1-1) $ Vibration of a 20x40 Plate (3-1-2) $ Vibration of a 10x20 Plate (INPUT, 3-1-3) $ Vibration of a 20x40 Plate (INPUT, 3-1-4) $ $ A. Description $ $ This problem demonstrates the solution for natural frequencies of a large- $ order problem. The structural model consists of a square plate with hinged $ supports on all boundaries. The 10x20 model (Problem 3-1-1) represents one $ half of the structure with symmetric boundary constraints on the mid-line to $ reduce the order of the problem and the bandwidth by one half. The 20x40 model $ (Problem 3-1-2) has the same dimensions, but with a finer mesh. Both $ configurations are developed via the INPUT module (Problems 3-1-3 and 3-1-4 $ for coarse mesh and fine mesh, respectively) to generate the QUAD1 elements. $ $ Because only the bending modes are desired, the in-plane deflections and $ rotations normal to the plane are constrained. The inverse power method of $ eigenvalue extraction is selected for the smaller model and the FEER method $ (Reference 32) is selected for the larger model. Both structural mass density $ and non-structural mass-per-area are used to define the mass matrix. $ $ An undeformed structure plot is executed without plot elements. This is $ expensive on most plotters since all four sides of each quadrilateral are $ drawn. For the deformed plots of each eigenvector, plot elements are used to $ draw an edge only once and to draw only selected coordinate lines (every $ second or fourth line depending on the model used). $ $ B. Input $ $ 1. Parameters: $ $ l = w = 20.0 (Length and width) $ $ I = 1/12 (Moment of inertia) $ $ t = 1.0 (Thickness) $ $ 7 $ E = 3.0 x 10 (Modu1us of elasticity) $ $ v = 0.30 (Poisson's ratio) $ $ p = 206.0439 (Mass density, 200.0 structural and 6.0439 non-structural $ mass) $ $ 2. Boundary constraints: $ $ along x = 0, theta = 0 Symmetric Boundary $ y $ + $ along y = 0, u = theta = 0 | $ z y | $ | $ along x = 10, u = theta = 0 | Hinged Supports $ z x | $ | $ along y = 20, u = theta = 0 | $ z y | $ + $ 3. Eigenvalue extraction data: $ $ Method: Inverse Power and FEER $ $ Region of interest for inverse power: .89 <= f <= 1.0 $ $ Center point for FEER: .87 $ $ Number of desired roots: 3 $ $ Number of estimated roots: 1 $ $ C. Results $ $ Table 1 lists the NASTRAN and theoretical natural frequencies as defined in $ Reference 8. $ $ Table 1. Natural Frequencies, cps. $ $ ------------------------------------- $ NASTRAN NASTRAN $ Mode Theoretical 10x20 20x40 $ No. (INV) (FEER) $ ------------------------------------- $ 1 .9069 .9056 .9066 $ $ 2 2.2672 2.2634 2.2663 $ $ 3 4.5345 4.5329 4.5340 $ ------------------------------------- $ $ APPLICABLE REFERENCES $ $ 8. W. F. Stokey, "Vibration of Systems Having Distributed Mass and $ Elasticity", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E. $ Crede, Editors, McGraw-Hill, 1961. $ $ 32. Newman, Malcolm and Flanaga, Paul F.: Eigenvalue Extraction in NASTRAN by $ the Tridiagonal Reduction (FEER) Method - Real Eigenvalue Analysis, NASA $ CR-2731, August, 1976. $------------------------------------------------------------------------------- ================================================ FILE: inp/d03021a.inp ================================================ ID D03021A,NASTRAN APP DISPLACEMENT SOL 3,3 TIME 20 CEND TITLE = VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK. SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A METHOD = 1 AXISYMMETRIC = FLUID OUTPUT HARMONICS = ALL SET 1 = 1000 THRU 2030, 2090,2150,3022,3090,3157,4018,4090, 4162,5015,5090,5165,6012,6089,6167,7011,7090,7168, 8010,8090,8170,9009,9090,9171,10000 THRU 10180 PRESSURE = 1 BEGIN BULK AXIF 100 .001 1.0+3 NO +AXIF +AXIF 0 THRU 2 CFLUID2 1 1090 1045 CFLUID2 2 1135 1090 CFLUID2 3 1045 2030 CFLUID2 10 2150 1135 CFLUID2 11 2030 3022 CFLUID2 22 3157 2150 CFLUID2 23 3022 4018 CFLUID2 38 4162 3157 CFLUID2 39 4018 5015 CFLUID2 58 5165 4162 CFLUID2 59 5015 6012 CFLUID2 82 6167 5165 CFLUID2 83 6012 7011 CFLUID2 110 7168 6167 CFLUID2 111 7011 8010 CFLUID2 142 8170 7168 CFLUID2 143 8010 9009 CFLUID2 178 9171 8170 CFLUID2 179 9009 10008 CFLUID2 218 10171 9171 CFLUID3 4 2060 2030 1045 CFLUID3 5 1045 1090 2060 CFLUID3 6 2090 2060 1090 CFLUID3 7 2120 2090 1090 CFLUID3 8 1090 1135 2120 CFLUID3 9 2150 2120 1135 CFLUID3 12 3045 3022 2030 CFLUID3 13 2030 2060 3045 CFLUID3 14 3067 3045 2060 CFLUID3 15 2060 2090 3067 CFLUID3 16 3090 3067 2090 CFLUID3 17 3112 3090 2090 CFLUID3 18 2090 2120 3112 CFLUID3 19 3135 3112 2120 CFLUID3 20 2120 2150 3135 CFLUID3 21 3157 3135 2150 CFLUID3 24 4036 4018 3022 CFLUID3 25 3022 3045 4036 CFLUID3 26 4054 4036 3045 CFLUID3 27 3045 3067 4054 CFLUID3 28 4072 4054 3067 CFLUID3 29 3067 3090 4072 CFLUID3 30 4090 4072 3090 CFLUID3 31 4108 4090 3090 CFLUID3 32 3090 3112 4108 CFLUID3 33 4126 4108 3112 CFLUID3 34 3112 3135 4126 CFLUID3 35 4144 4126 3135 CFLUID3 36 3135 3157 4144 CFLUID3 37 4162 4144 3157 CFLUID3 40 5030 5015 4018 CFLUID3 41 4018 4036 5030 CFLUID3 42 5045 5030 4036 CFLUID3 43 4036 4054 5045 CFLUID3 44 5060 5045 4054 CFLUID3 45 4054 4072 5060 CFLUID3 46 5075 5060 4072 CFLUID3 47 4072 4090 5075 CFLUID3 48 5090 5075 4090 CFLUID3 49 5105 5090 4090 CFLUID3 50 4090 4108 5105 CFLUID3 51 5120 5105 4108 CFLUID3 52 4108 4126 5120 CFLUID3 53 5135 5120 4126 CFLUID3 54 4126 4144 5135 CFLUID3 55 5150 5135 4144 CFLUID3 56 4144 4162 5150 CFLUID3 57 5165 5150 4162 CFLUID3 60 6025 6012 5015 CFLUID3 61 5015 5030 6025 CFLUID3 62 6038 6025 5030 CFLUID3 63 5030 5045 6038 CFLUID3 64 6051 6038 5045 CFLUID3 65 5045 5060 6051 CFLUID3 66 6064 6051 5060 CFLUID3 67 5060 5075 6064 CFLUID3 68 6077 6064 5075 CFLUID3 69 5075 5090 6077 CFLUID3 70 6089 6077 5090 CFLUID3 71 6102 6089 5090 CFLUID3 72 5090 5105 6102 CFLUID3 73 6115 6102 5105 CFLUID3 74 5105 5120 6115 CFLUID3 75 6128 6115 5120 CFLUID3 76 5120 5135 6128 CFLUID3 77 6141 6128 5135 CFLUID3 78 5135 5150 6141 CFLUID3 79 6154 6141 5150 CFLUID3 80 5150 5165 6154 CFLUID3 81 6167 6154 5165 CFLUID3 84 7022 7011 6012 CFLUID3 85 6012 6025 7022 CFLUID3 86 7033 7022 6025 CFLUID3 87 6025 6038 7033 CFLUID3 88 7045 7033 6038 CFLUID3 89 6038 6051 7045 CFLUID3 90 7056 7045 6051 CFLUID3 91 6051 6064 7056 CFLUID3 92 7067 7056 6064 CFLUID3 93 6064 6077 7067 CFLUID3 94 7078 7067 6077 CFLUID3 95 6077 6089 7078 CFLUID3 96 7090 7078 6089 CFLUID3 97 7101 7090 6089 CFLUID3 98 6089 6102 7101 CFLUID3 99 7112 7101 6102 CFLUID3 100 6102 6115 7112 CFLUID3 101 7123 7112 6115 CFLUID3 102 6115 6128 7123 CFLUID3 103 7135 7123 6128 CFLUID3 104 6128 6141 7135 CFLUID3 105 7146 7135 6141 CFLUID3 106 6141 6154 7146 CFLUID3 107 7157 7146 6154 CFLUID3 108 6154 6167 7157 CFLUID3 109 7168 7157 6167 CFLUID3 112 8020 8010 7011 CFLUID3 113 7011 7022 8020 CFLUID3 114 8030 8020 7022 CFLUID3 115 7022 7033 8030 CFLUID3 116 8040 8030 7033 CFLUID3 117 7033 7045 8040 CFLUID3 118 8050 8040 7045 CFLUID3 119 7045 7056 8050 CFLUID3 120 8060 8050 7056 CFLUID3 121 7056 7067 8060 CFLUID3 122 8070 8060 7067 CFLUID3 123 7067 7078 8070 CFLUID3 124 8080 8070 7078 CFLUID3 125 7078 7090 8080 CFLUID3 126 8090 8080 7090 CFLUID3 127 8100 8090 7090 CFLUID3 128 7090 7101 8100 CFLUID3 129 8110 8100 7101 CFLUID3 130 7101 7112 8110 CFLUID3 131 8120 8110 7112 CFLUID3 132 7112 7123 8120 CFLUID3 133 8130 8120 7123 CFLUID3 134 7123 7135 8130 CFLUID3 135 8140 8130 7135 CFLUID3 136 7135 7146 8140 CFLUID3 137 8150 8140 7146 CFLUID3 138 7146 7157 8150 CFLUID3 139 8160 8150 7157 CFLUID3 140 7157 7168 8160 CFLUID3 141 8170 8160 7168 CFLUID3 144 9018 9009 8010 CFLUID3 145 8010 8020 9018 CFLUID3 146 9027 9018 8020 CFLUID3 147 8020 8030 9027 CFLUID3 148 9036 9027 8030 CFLUID3 149 8030 8040 9036 CFLUID3 150 9045 9036 8040 CFLUID3 151 8040 8050 9045 CFLUID3 152 9054 9045 8050 CFLUID3 153 8050 8060 9054 CFLUID3 154 9063 9054 8060 CFLUID3 155 8060 8070 9063 CFLUID3 156 9072 9063 8070 CFLUID3 157 8070 8080 9072 CFLUID3 158 9081 9072 8080 CFLUID3 159 8080 8090 9081 CFLUID3 160 9090 9081 8090 CFLUID3 161 9099 9090 8090 CFLUID3 162 8090 8100 9099 CFLUID3 163 9108 9099 8100 CFLUID3 164 8100 8110 9108 CFLUID3 165 9117 9108 8110 CFLUID3 166 8110 8120 9117 CFLUID3 167 9126 9117 8120 CFLUID3 168 8120 8130 9126 CFLUID3 169 9135 9126 8130 CFLUID3 170 8130 8140 9135 CFLUID3 171 9144 9135 8140 CFLUID3 172 8140 8150 9144 CFLUID3 173 9153 9144 8150 CFLUID3 174 8150 8160 9153 CFLUID3 175 9162 9153 8160 CFLUID3 176 8160 8170 9162 CFLUID3 177 9171 9162 8170 CFLUID3 180 10016 10008 9009 CFLUID3 181 9009 9018 10016 CFLUID3 182 10024 10016 9018 CFLUID3 183 9018 9027 10024 CFLUID3 184 10032 10024 9027 CFLUID3 185 9027 9036 10032 CFLUID3 186 10040 10032 9036 CFLUID3 187 9036 9045 10040 CFLUID3 188 10049 10040 9045 CFLUID3 189 9045 9054 10049 CFLUID3 190 10057 10049 9054 CFLUID3 191 9054 9063 10057 CFLUID3 192 10065 10057 9063 CFLUID3 193 9063 9072 10065 CFLUID3 194 10073 10065 9072 CFLUID3 195 9072 9081 10073 CFLUID3 196 10081 10073 9081 CFLUID3 197 9081 9090 10081 CFLUID3 198 10089 10081 9090 CFLUID3 199 10098 10089 9090 CFLUID3 200 9090 9099 10098 CFLUID3 201 10106 10098 9099 CFLUID3 202 9099 9108 10106 CFLUID3 203 10114 10106 9108 CFLUID3 204 9108 9117 10114 CFLUID3 205 10122 10114 9117 CFLUID3 206 9117 9126 10122 CFLUID3 207 10130 10122 9126 CFLUID3 208 9126 9135 10130 CFLUID3 209 10139 10130 9135 CFLUID3 210 9135 9144 10139 CFLUID3 211 10147 10139 9144 CFLUID3 212 9144 9153 10147 CFLUID3 213 10155 10147 9153 CFLUID3 214 9153 9162 10155 CFLUID3 215 10163 10155 9162 CFLUID3 216 9162 9171 10163 CFLUID3 217 10171 10163 9171 CORD2S 100 0 .0 .0 10.0 .0 .0 20.0 +CORD2S +CORD2S .0 1.0 .0 EIGR 1 INV 14.0 60.0 2 7 1.0-6 +EIGR-1 +EIGR-1 MAX RINGFL 1045 1.00000 45.0000 1090 1.00000 90.0000 RINGFL 1135 1.00000 135.000 RINGFL 2030 2.00000 30.0000 2060 2.00000 60.0000 RINGFL 2090 2.00000 90.0000 2120 2.00000 120.000 RINGFL 2150 2.00000 150.000 RINGFL 3022 3.00000 22.5000 3045 3.00000 45.0000 RINGFL 3067 3.00000 67.5000 3090 3.00000 90.0000 RINGFL 3112 3.00000 112.500 3135 3.00000 135.000 RINGFL 3157 3.00000 157.500 RINGFL 4018 4.00000 18.0000 4036 4.00000 36.0000 RINGFL 4054 4.00000 54.0000 4072 4.00000 72.0000 RINGFL 4090 4.00000 90.0000 4108 4.00000 108.000 RINGFL 4126 4.00000 126.000 4144 4.00000 144.000 RINGFL 4162 4.00000 162.000 RINGFL 5015 5.00000 15.0000 5030 5.00000 30.0000 RINGFL 5045 5.00000 45.0000 5060 5.00000 60.0000 RINGFL 5075 5.00000 75.0000 5090 5.00000 90.0000 RINGFL 5105 5.00000 105.000 5120 5.00000 120.000 RINGFL 5135 5.00000 135.000 5150 5.00000 150.000 RINGFL 5165 5.00000 165.000 RINGFL 6012 6.00000 12.8571 6025 6.00000 25.7143 RINGFL 6038 6.00000 38.5714 6051 6.00000 51.4286 RINGFL 6064 6.00000 64.2857 6077 6.00000 77.1429 RINGFL 6089 6.00000 90.0000 6102 6.00000 102.857 RINGFL 6115 6.00000 115.714 6128 6.00000 128.571 RINGFL 6141 6.00000 141.429 6154 6.00000 154.286 RINGFL 6167 6.00000 167.143 RINGFL 7011 7.00000 11.2500 7022 7.00000 22.5000 RINGFL 7033 7.00000 33.7500 7045 7.00000 45.0000 RINGFL 7056 7.00000 56.2500 7067 7.00000 67.5000 RINGFL 7078 7.00000 78.7500 7090 7.00000 90.0000 RINGFL 7101 7.00000 101.250 7112 7.00000 112.500 RINGFL 7123 7.00000 123.750 7135 7.00000 135.000 RINGFL 7146 7.00000 146.250 7157 7.00000 157.500 RINGFL 7168 7.00000 168.750 RINGFL 8010 8.00000 10.0000 8020 8.00000 20.0000 RINGFL 8030 8.00000 30.0000 8040 8.00000 40.0000 RINGFL 8050 8.00000 50.0000 8060 8.00000 60.0000 RINGFL 8070 8.00000 70.0000 8080 8.00000 80.0000 RINGFL 8090 8.00000 90.0000 8100 8.00000 100.000 RINGFL 8110 8.00000 110.000 8120 8.00000 120.000 RINGFL 8130 8.00000 130.000 8140 8.00000 140.000 RINGFL 8150 8.00000 150.000 8160 8.00000 160.000 RINGFL 8170 8.00000 170.000 RINGFL 9009 9.00000 9.00000 9018 9.00000 18.0000 RINGFL 9027 9.00000 27.0000 9036 9.00000 36.0000 RINGFL 9045 9.00000 45.0000 9054 9.00000 54.0000 RINGFL 9063 9.00000 63.0000 9072 9.00000 72.0000 RINGFL 9081 9.00000 81.0000 9090 9.00000 90.0000 RINGFL 9099 9.00000 99.0000 9108 9.00000 108.000 RINGFL 9117 9.00000 117.000 9126 9.00000 126.000 RINGFL 9135 9.00000 135.000 9144 9.00000 144.000 RINGFL 9153 9.00000 153.000 9162 9.00000 162.000 RINGFL 9171 9.00000 171.000 RINGFL 10008 10.0000 8.18182 10016 10.0000 16.3636 RINGFL 10024 10.0000 24.5455 10032 10.0000 32.7273 RINGFL 10040 10.0000 40.9091 10049 10.0000 49.0909 RINGFL 10057 10.0000 57.2727 10065 10.0000 65.4545 RINGFL 10073 10.0000 73.6364 10081 10.0000 81.8182 RINGFL 10089 10.0000 90.0000 10098 10.0000 98.1818 RINGFL 10106 10.0000 106.364 10114 10.0000 114.545 RINGFL 10122 10.0000 122.727 10130 10.0000 130.909 RINGFL 10139 10.0000 139.091 10147 10.0000 147.273 RINGFL 10155 10.0000 155.455 10163 10.0000 163.636 RINGFL 10171 10.0000 171.818 ENDDATA ================================================ FILE: inp/d03021a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3, Real Eigenvalue Analysis $ Vibration of a Compressible Gas in a Rigid Spherical Tank (3-2-1) $ $ A. Description $ $ This problem demonstrates a compressible gas in a rigid spherical container. $ In NASTRAN a rigid boundary is the default for the fluid and, as such, no $ elements or boundary lists are necessary to model the container. $ $ Aside from the NASTRAN bulk data cards currently implemented, this problem $ demonstrates the use of the hydroelastic data cards: AXIF, CFLUID2, CFLUID3, $ and RINGFL. $ $ The lowest mode frequencies and their mode shapes for n = 0, 1, and 2 are $ analyzed where n is the Fourier harmonic number. Only the cosine series is $ analyzed. $ $ B. Model $ $ 1. Parameters $ $ R = 10.0 m (Radius of sphere) $ $ -3 3 $ p = 1.0 x 10 Kg/m (Mass density of fluid) $ $ 3 2 $ B = 1.0 x 10 Newton/m (Bulk modulus of fluid) $ $ 2. The last 3 digits of the RINGFL identification number correspond $ approximately to the angle, theta, from the polar axis along a meridian. $ $ C. Theory $ $ From Reference 18, the pressure in the cylinder is proportional to a series $ of functions: $ $ J (X) $ m+1/2 n $ Q = ----------- p (cos theta) cos n phi , n <= m (1) $ n,m sqrt(X) m m = 0,1,2 $ $ $ where: $ $ Q Pressure coefficient for each mode $ n,m $ w $ mk $ X Nondimensional radius = ---- r $ a $ $ w Natural frequency for the kth mode number and mth radial number in $ mk radlans per second $ $ $ J Bessel function of the first kind $ m+1/2 $ $ r radius $ $ a = sqrt(B/p) speed of sound in the gas $ $ n $ p associated Legendre functions $ m $ $ theta meridional angle $ $ phi circumferential angle $ $ n harmonic number $ $ m number of radial node lines $ $ The solution for X and hence w is found by the use of the boundary $ mk $ condition that the flow through the container is zero. $ $ + + + + $ | | J (X) | | $ | d | m+1/2 | | $ | --- | ----------- | | = 0.0 (2) $ | dX | sqrt(X) | | $ + + + + r=R $ $ where R is the outer radius. $ $ This results in zero frequency for the first root. Multiple roots for other $ modes can be seen in Table 1. The finite element model assumes different $ pressure distributions in the two angular directions, which causes the $ difference in frequencies. $ $ D. Results $ $ Table 1 summarizes the NASTRAN and analytic results for the lowest nonzero $ root in each harmonic. Table 1 lists the theoretical natural frequencies, the $ NASTRAN frequencies, the percent error in frequency, and the maximum percent $ error in pressure at the wall as compared to the maximum value. Theoretical $ 0 $ pressure distributions correspond to the Legendre functions P (cos theta), $ o $ 1 2 $ P (cos theta), and P (cos theta), which are proportiomal to cos theta, $ o o $ 2 $ sin theta, and sin theta, respectively. $ $ Table 1. Comparison of NASTRAN and Analytical Results. $ $ --------------------------------------------------------- $ Natural Frequency (Hertz) $ -------------------------------- Pressure $ Max. % Error $ Harmonic Analytical NASTRAN % Error at Wall $ --------------------------------------------------------- $ 0 33.1279 33.2383 0.33 1.19 $ $ 1 33.1279 33.2060 0.24 0.47 $ $ 2 53.1915 53.3352 0.27 0.91 $ --------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 18. B. Raylelgh, THE THEORY OF SOUND. Section 330, 331, MacMillan Co., 1945. $------------------------------------------------------------------------------- ================================================ FILE: inp/d03031a.inp ================================================ ID D03031A,NASTRAN APP DISPLACEMENT SOL 3,3 TIME 20 CEND TITLE = VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE. SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A METHOD = 1 AXISYMMETRIC = FLUID OUTPUT HARMONICS = ALL SET 1 = 1 THRU 1000,1090,2090,3090,4090,5090,6089,7090,8090, 9090,10089,11090,12089,13089,14090,15090,16089,17090, 18089,19090,20089 PRESSURE = 1 BEGIN BULK AXIF 100 10.0 1.255014.0 YES +AXIF +AXIF 1 CFLUID2 1 1135 1090 CFLUID2 5 2150 1135 CFLUID2 11 3157 2150 CFLUID2 19 4162 3157 CFLUID2 29 5165 4162 CFLUID2 41 6167 5165 CFLUID2 55 7168 6167 CFLUID2 71 8170 7168 CFLUID2 89 9171 8170 CFLUID2 109 10171 9171 CFLUID2 131 11172 10171 CFLUID2 155 12173 11172 CFLUID2 181 13173 12173 CFLUID2 209 14174 13173 CFLUID2 239 15174 14174 CFLUID2 271 16174 15174 CFLUID2 305 17175 16174 CFLUID2 341 18175 17175 CFLUID2 379 19175 18175 CFLUID2 419 20175 19175 CFLUID3 2 2120 2090 1090 CFLUID3 3 1090 1135 2120 CFLUID3 4 2150 2120 1135 CFLUID3 6 3112 3090 2090 CFLUID3 7 2090 2120 3112 CFLUID3 8 3135 3112 2120 CFLUID3 9 2120 2150 3135 CFLUID3 10 3157 3135 2150 CFLUID3 12 4108 4090 3090 CFLUID3 13 3090 3112 4108 CFLUID3 14 4126 4108 3112 CFLUID3 15 3112 3135 4126 CFLUID3 16 4144 4126 3135 CFLUID3 17 3135 3157 4144 CFLUID3 18 4162 4144 3157 CFLUID3 20 5105 5090 4090 CFLUID3 21 4090 4108 5105 CFLUID3 22 5120 5105 4108 CFLUID3 23 4108 4126 5120 CFLUID3 24 5135 5120 4126 CFLUID3 25 4126 4144 5135 CFLUID3 26 5150 5135 4144 CFLUID3 27 4144 4162 5150 CFLUID3 28 5165 5150 4162 CFLUID3 30 6102 6089 5090 CFLUID3 31 5090 5105 6102 CFLUID3 32 6115 6102 5105 CFLUID3 33 5105 5120 6115 CFLUID3 34 6128 6115 5120 CFLUID3 35 5120 5135 6128 CFLUID3 36 6141 6128 5135 CFLUID3 37 5135 5150 6141 CFLUID3 38 6154 6141 5150 CFLUID3 39 5150 5165 6154 CFLUID3 40 6167 6154 5165 CFLUID3 42 7101 7090 6089 CFLUID3 43 6089 6102 7101 CFLUID3 44 7112 7101 6102 CFLUID3 45 6102 6115 7112 CFLUID3 46 7123 7112 6115 CFLUID3 47 6115 6128 7123 CFLUID3 48 7135 7123 6128 CFLUID3 49 6128 6141 7135 CFLUID3 50 7146 7135 6141 CFLUID3 51 6141 6154 7146 CFLUID3 52 7157 7146 6154 CFLUID3 53 6154 6167 7157 CFLUID3 54 7168 7157 6167 CFLUID3 56 8100 8090 7090 CFLUID3 57 7090 7101 8100 CFLUID3 58 8110 8100 7101 CFLUID3 59 7101 7112 8110 CFLUID3 60 8120 8110 7112 CFLUID3 61 7112 7123 8120 CFLUID3 62 8130 8120 7123 CFLUID3 63 7123 7135 8130 CFLUID3 64 8140 8130 7135 CFLUID3 65 7135 7146 8140 CFLUID3 66 8150 8140 7146 CFLUID3 67 7146 7157 8150 CFLUID3 68 8160 8150 7157 CFLUID3 69 7157 7168 8160 CFLUID3 70 8170 8160 7168 CFLUID3 72 9099 9090 8090 CFLUID3 73 8090 8100 9099 CFLUID3 74 9108 9099 8100 CFLUID3 75 8100 8110 9108 CFLUID3 76 9117 9108 8110 CFLUID3 77 8110 8120 9117 CFLUID3 78 9126 9117 8120 CFLUID3 79 8120 8130 9126 CFLUID3 80 9135 9126 8130 CFLUID3 81 8130 8140 9135 CFLUID3 82 9144 9135 8140 CFLUID3 83 8140 8150 9144 CFLUID3 84 9153 9144 8150 CFLUID3 85 8150 8160 9153 CFLUID3 86 9162 9153 8160 CFLUID3 87 8160 8170 9162 CFLUID3 88 9171 9162 8170 CFLUID3 90 10098 10089 9090 CFLUID3 91 9090 9099 10098 CFLUID3 92 10106 10098 9099 CFLUID3 93 9099 9108 10106 CFLUID3 94 10114 10106 9108 CFLUID3 95 9108 9117 10114 CFLUID3 96 10122 10114 9117 CFLUID3 97 9117 9126 10122 CFLUID3 98 10130 10122 9126 CFLUID3 99 9126 9135 10130 CFLUID3 100 10139 10130 9135 CFLUID3 101 9135 9144 10139 CFLUID3 102 10147 10139 9144 CFLUID3 103 9144 9153 10147 CFLUID3 104 10155 10147 9153 CFLUID3 105 9153 9162 10155 CFLUID3 106 10163 10155 9162 CFLUID3 107 9162 9171 10163 CFLUID3 108 10171 10163 9171 CFLUID3 110 11097 11090 10089 CFLUID3 111 10089 10098 11097 CFLUID3 112 11105 11097 10098 CFLUID3 113 10098 10106 11105 CFLUID3 114 11112 11105 10106 CFLUID3 115 10106 10114 11112 CFLUID3 116 11120 11112 10114 CFLUID3 117 10114 10122 11120 CFLUID3 118 11127 11120 10122 CFLUID3 119 10122 10130 11127 CFLUID3 120 11135 11127 10130 CFLUID3 121 10130 10139 11135 CFLUID3 122 11142 11135 10139 CFLUID3 123 10139 10147 11142 CFLUID3 124 11150 11142 10147 CFLUID3 125 10147 10155 11150 CFLUID3 126 11157 11150 10155 CFLUID3 127 10155 10163 11157 CFLUID3 128 11165 11157 10163 CFLUID3 129 10163 10171 11165 CFLUID3 130 11172 11165 10171 CFLUID3 132 12096 12089 11090 CFLUID3 133 11090 11097 12096 CFLUID3 134 12103 12096 11097 CFLUID3 135 11097 11105 12103 CFLUID3 136 12110 12103 11105 CFLUID3 137 11105 11112 12110 CFLUID3 138 12117 12110 11112 CFLUID3 139 11112 11120 12117 CFLUID3 140 12124 12117 11120 CFLUID3 141 11120 11127 12124 CFLUID3 142 12131 12124 11127 CFLUID3 143 11127 11135 12131 CFLUID3 144 12138 12131 11135 CFLUID3 145 11135 11142 12138 CFLUID3 146 12145 12138 11142 CFLUID3 147 11142 11150 12145 CFLUID3 148 12152 12145 11150 CFLUID3 149 11150 11157 12152 CFLUID3 150 12159 12152 11157 CFLUID3 151 11157 11165 12159 CFLUID3 152 12166 12159 11165 CFLUID3 153 11165 11172 12166 CFLUID3 154 12173 12166 11172 CFLUID3 156 13096 13089 12089 CFLUID3 157 12089 12096 13096 CFLUID3 158 13102 13096 12096 CFLUID3 159 12096 12103 13102 CFLUID3 160 13109 13102 12103 CFLUID3 161 12103 12110 13109 CFLUID3 162 13115 13109 12110 CFLUID3 163 12110 12117 13115 CFLUID3 164 13122 13115 12117 CFLUID3 165 12117 12124 13122 CFLUID3 166 13128 13122 12124 CFLUID3 167 12124 12131 13128 CFLUID3 168 13134 13128 12131 CFLUID3 169 12131 12138 13134 CFLUID3 170 13141 13134 12138 CFLUID3 171 12138 12145 13141 CFLUID3 172 13147 13141 12145 CFLUID3 173 12145 12152 13147 CFLUID3 174 13154 13147 12152 CFLUID3 175 12152 12159 13154 CFLUID3 176 13160 13154 12159 CFLUID3 177 12159 12166 13160 CFLUID3 178 13167 13160 12166 CFLUID3 179 12166 12173 13167 CFLUID3 180 13173 13167 12173 CFLUID3 182 14096 14090 13089 CFLUID3 183 13089 13096 14096 CFLUID3 184 14102 14096 13096 CFLUID3 185 13096 13102 14102 CFLUID3 186 14108 14102 13102 CFLUID3 187 13102 13109 14108 CFLUID3 188 14114 14108 13109 CFLUID3 189 13109 13115 14114 CFLUID3 190 14120 14114 13115 CFLUID3 191 13115 13122 14120 CFLUID3 192 14126 14120 13122 CFLUID3 193 13122 13128 14126 CFLUID3 194 14132 14126 13128 CFLUID3 195 13128 13134 14132 CFLUID3 196 14138 14132 13134 CFLUID3 197 13134 13141 14138 CFLUID3 198 14144 14138 13141 CFLUID3 199 13141 13147 14144 CFLUID3 200 14150 14144 13147 CFLUID3 201 13147 13154 14150 CFLUID3 202 14156 14150 13154 CFLUID3 203 13154 13160 14156 CFLUID3 204 14162 14156 13160 CFLUID3 205 13160 13167 14162 CFLUID3 206 14168 14162 13167 CFLUID3 207 13167 13173 14168 CFLUID3 208 14174 14168 13173 CFLUID3 210 15095 15090 14090 CFLUID3 211 14090 14096 15095 CFLUID3 212 15101 15095 14096 CFLUID3 213 14096 14102 15101 CFLUID3 214 15106 15101 14102 CFLUID3 215 14102 14108 15106 CFLUID3 216 15112 15106 14108 CFLUID3 217 14108 14114 15112 CFLUID3 218 15118 15112 14114 CFLUID3 219 14114 14120 15118 CFLUID3 220 15123 15118 14120 CFLUID3 221 14120 14126 15123 CFLUID3 222 15129 15123 14126 CFLUID3 223 14126 14132 15129 CFLUID3 224 15135 15129 14132 CFLUID3 225 14132 14138 15135 CFLUID3 226 15140 15135 14138 CFLUID3 227 14138 14144 15140 CFLUID3 228 15146 15140 14144 CFLUID3 229 14144 14150 15146 CFLUID3 230 15151 15146 14150 CFLUID3 231 14150 14156 15151 CFLUID3 232 15157 15151 14156 CFLUID3 233 14156 14162 15157 CFLUID3 234 15163 15157 14162 CFLUID3 235 14162 14168 15163 CFLUID3 236 15168 15163 14168 CFLUID3 237 14168 14174 15168 CFLUID3 238 15174 15168 14174 CFLUID3 240 16095 16089 15090 CFLUID3 241 15090 15095 16095 CFLUID3 242 16100 16095 15095 CFLUID3 243 15095 15101 16100 CFLUID3 244 16105 16100 15101 CFLUID3 245 15101 15106 16105 CFLUID3 246 16111 16105 15106 CFLUID3 247 15106 15112 16111 CFLUID3 248 16116 16111 15112 CFLUID3 249 15112 15118 16116 CFLUID3 250 16121 16116 15118 CFLUID3 251 15118 15123 16121 CFLUID3 252 16127 16121 15123 CFLUID3 253 15123 15129 16127 CFLUID3 254 16132 16127 15129 CFLUID3 255 15129 15135 16132 CFLUID3 256 16137 16132 15135 CFLUID3 257 15135 15140 16137 CFLUID3 258 16142 16137 15140 CFLUID3 259 15140 15146 16142 CFLUID3 260 16148 16142 15146 CFLUID3 261 15146 15151 16148 CFLUID3 262 16153 16148 15151 CFLUID3 263 15151 15157 16153 CFLUID3 264 16158 16153 15157 CFLUID3 265 15157 15163 16158 CFLUID3 266 16164 16158 15163 CFLUID3 267 15163 15168 16164 CFLUID3 268 16169 16164 15168 CFLUID3 269 15168 15174 16169 CFLUID3 270 16174 16169 15174 CFLUID3 272 17095 17090 16089 CFLUID3 273 16089 16095 17095 CFLUID3 274 17100 17095 16095 CFLUID3 275 16095 16100 17100 CFLUID3 276 17105 17100 16100 CFLUID3 277 16100 16105 17105 CFLUID3 278 17110 17105 16105 CFLUID3 279 16105 16111 17110 CFLUID3 280 17115 17110 16111 CFLUID3 281 16111 16116 17115 CFLUID3 282 17120 17115 16116 CFLUID3 283 16116 16121 17120 CFLUID3 284 17125 17120 16121 CFLUID3 285 16121 16127 17125 CFLUID3 286 17130 17125 16127 CFLUID3 287 16127 16132 17130 CFLUID3 288 17135 17130 16132 CFLUID3 289 16132 16137 17135 CFLUID3 290 17140 17135 16137 CFLUID3 291 16137 16142 17140 CFLUID3 292 17145 17140 16142 CFLUID3 293 16142 16148 17145 CFLUID3 294 17150 17145 16148 CFLUID3 295 16148 16153 17150 CFLUID3 296 17155 17150 16153 CFLUID3 297 16153 16158 17155 CFLUID3 298 17160 17155 16158 CFLUID3 299 16158 16164 17160 CFLUID3 300 17165 17160 16164 CFLUID3 301 16164 16169 17165 CFLUID3 302 17170 17165 16169 CFLUID3 303 16169 16174 17170 CFLUID3 304 17175 17170 16174 CFLUID3 306 18094 18089 17090 CFLUID3 307 17090 17095 18094 CFLUID3 308 18099 18094 17095 CFLUID3 309 17095 17100 18099 CFLUID3 310 18104 18099 17100 CFLUID3 311 17100 17105 18104 CFLUID3 312 18108 18104 17105 CFLUID3 313 17105 17110 18108 CFLUID3 314 18113 18108 17110 CFLUID3 315 17110 17115 18113 CFLUID3 316 18118 18113 17115 CFLUID3 317 17115 17120 18118 CFLUID3 318 18123 18118 17120 CFLUID3 319 17120 17125 18123 CFLUID3 320 18127 18123 17125 CFLUID3 321 17125 17130 18127 CFLUID3 322 18132 18127 17130 CFLUID3 323 17130 17135 18132 CFLUID3 324 18137 18132 17135 CFLUID3 325 17135 17140 18137 CFLUID3 326 18142 18137 17140 CFLUID3 327 17140 17145 18142 CFLUID3 328 18146 18142 17145 CFLUID3 329 17145 17150 18146 CFLUID3 330 18151 18146 17150 CFLUID3 331 17150 17155 18151 CFLUID3 332 18156 18151 17155 CFLUID3 333 17155 17160 18156 CFLUID3 334 18161 18156 17160 CFLUID3 335 17160 17165 18161 CFLUID3 336 18165 18161 17165 CFLUID3 337 17165 17170 18165 CFLUID3 338 18170 18165 17170 CFLUID3 339 17170 17175 18170 CFLUID3 340 18175 18170 17175 CFLUID3 342 19094 19090 18089 CFLUID3 343 18089 18094 19094 CFLUID3 344 19099 19094 18094 CFLUID3 345 18094 18099 19099 CFLUID3 346 19103 19099 18099 CFLUID3 347 18099 18104 19103 CFLUID3 348 19108 19103 18104 CFLUID3 349 18104 18108 19108 CFLUID3 350 19112 19108 18108 CFLUID3 351 18108 18113 19112 CFLUID3 352 19117 19112 18113 CFLUID3 353 18113 18118 19117 CFLUID3 354 19121 19117 18118 CFLUID3 355 18118 18123 19121 CFLUID3 356 19126 19121 18123 CFLUID3 357 18123 18127 19126 CFLUID3 358 19130 19126 18127 CFLUID3 359 18127 18132 19130 CFLUID3 360 19135 19130 18132 CFLUID3 361 18132 18137 19135 CFLUID3 362 19139 19135 18137 CFLUID3 363 18137 18142 19139 CFLUID3 364 19144 19139 18142 CFLUID3 365 18142 18146 19144 CFLUID3 366 19148 19144 18146 CFLUID3 367 18146 18151 19148 CFLUID3 368 19153 19148 18151 CFLUID3 369 18151 18156 19153 CFLUID3 370 19157 19153 18156 CFLUID3 371 18156 18161 19157 CFLUID3 372 19162 19157 18161 CFLUID3 373 18161 18165 19162 CFLUID3 374 19166 19162 18165 CFLUID3 375 18165 18170 19166 CFLUID3 376 19171 19166 18170 CFLUID3 377 18170 18175 19171 CFLUID3 378 19175 19171 18175 CFLUID3 380 20094 20089 19090 CFLUID3 381 19090 19094 20094 CFLUID3 382 20098 20094 19094 CFLUID3 383 19094 19099 20098 CFLUID3 384 20102 20098 19099 CFLUID3 385 19099 19103 20102 CFLUID3 386 20107 20102 19103 CFLUID3 387 19103 19108 20107 CFLUID3 388 20111 20107 19108 CFLUID3 389 19108 19112 20111 CFLUID3 390 20115 20111 19112 CFLUID3 391 19112 19117 20115 CFLUID3 392 20119 20115 19117 CFLUID3 393 19117 19121 20119 CFLUID3 394 20124 20119 19121 CFLUID3 395 19121 19126 20124 CFLUID3 396 20128 20124 19126 CFLUID3 397 19126 19130 20128 CFLUID3 398 20132 20128 19130 CFLUID3 399 19130 19135 20132 CFLUID3 400 20137 20132 19135 CFLUID3 401 19135 19139 20137 CFLUID3 402 20141 20137 19139 CFLUID3 403 19139 19144 20141 CFLUID3 404 20145 20141 19144 CFLUID3 405 19144 19148 20145 CFLUID3 406 20149 20145 19148 CFLUID3 407 19148 19153 20149 CFLUID3 408 20154 20149 19153 CFLUID3 409 19153 19157 20154 CFLUID3 410 20158 20154 19157 CFLUID3 411 19157 19162 20158 CFLUID3 412 20162 20158 19162 CFLUID3 413 19162 19166 20162 CFLUID3 414 20167 20162 19166 CFLUID3 415 19166 19171 20167 CFLUID3 416 20171 20167 19171 CFLUID3 417 19171 19175 20171 CFLUID3 418 20175 20171 19175 CORD2S 100 0 .0 .0 10.0 .0 .0 20.0 +CORD2S +CORD2S .0 1.0 .0 EIGR 1 INV .1 .5 6 7 1.0-5 +EIGR-1 +EIGR-1 MAX FREEPT 4090 109 90.0 118 180.0 127 270.0 FREEPT 8090 209 90.0 218 180.0 227 270.0 FREEPT 12089 309 90.0 318 180.0 327 270.0 FREEPT 16089 409 90.0 418 180.0 427 270.0 FSLIST AXIS 1090 2090 3090 4090 5090 6089 +1-FSL +1-FSL 7090 8090 9090 10089 11090 12089 13089 14090 +2-FSL +2-FSL 15090 16089 17090 18089 19090 20089 RINGFL 1090 .50000 90.0000 1135 .50000 135.000 RINGFL 2090 1.00000 90.0000 2120 1.00000 120.000 RINGFL 2150 1.00000 150.000 RINGFL 3090 1.50000 90.0000 3112 1.50000 112.500 RINGFL 3135 1.50000 135.000 3157 1.50000 157.500 RINGFL 4090 2.00000 90.0000 4108 2.00000 108.000 RINGFL 4126 2.00000 126.000 4144 2.00000 144.000 RINGFL 4162 2.00000 162.000 RINGFL 5090 2.50000 90.0000 5105 2.50000 105.000 RINGFL 5120 2.50000 120.000 5135 2.50000 135.000 RINGFL 5150 2.50000 150.000 5165 2.50000 165.000 RINGFL 6089 3.00000 90.0000 6102 3.00000 102.857 RINGFL 6115 3.00000 115.714 6128 3.00000 128.571 RINGFL 6141 3.00000 141.429 6154 3.00000 154.286 RINGFL 6167 3.00000 167.143 RINGFL 7090 3.50000 90.0000 7101 3.50000 101.250 RINGFL 7112 3.50000 112.500 7123 3.50000 123.750 RINGFL 7135 3.50000 135.000 7146 3.50000 146.250 RINGFL 7157 3.50000 157.500 7168 3.50000 168.750 RINGFL 8090 4.00000 90.0000 8100 4.00000 100.000 RINGFL 8110 4.00000 110.000 8120 4.00000 120.000 RINGFL 8130 4.00000 130.000 8140 4.00000 140.000 RINGFL 8150 4.00000 150.000 8160 4.00000 160.000 RINGFL 8170 4.00000 170.000 RINGFL 9090 4.50000 90.0000 9099 4.50000 99.0000 RINGFL 9108 4.50000 108.000 9117 4.50000 117.000 RINGFL 9126 4.50000 126.000 9135 4.50000 135.000 RINGFL 9144 4.50000 144.000 9153 4.50000 153.000 RINGFL 9162 4.50000 162.000 9171 4.50000 171.000 RINGFL 10089 5.00000 90.0000 10098 5.00000 98.1818 RINGFL 10106 5.00000 106.364 10114 5.00000 114.545 RINGFL 10122 5.00000 122.727 10130 5.00000 130.909 RINGFL 10139 5.00000 139.091 10147 5.00000 147.273 RINGFL 10155 5.00000 155.455 10163 5.00000 163.636 RINGFL 10171 5.00000 171.818 RINGFL 11090 5.50000 90.0000 11097 5.50000 97.5000 RINGFL 11105 5.50000 105.000 11112 5.50000 112.500 RINGFL 11120 5.50000 120.000 11127 5.50000 127.500 RINGFL 11135 5.50000 135.000 11142 5.50000 142.500 RINGFL 11150 5.50000 150.000 11157 5.50000 157.500 RINGFL 11165 5.50000 165.000 11172 5.50000 172.500 RINGFL 12089 6.00000 90.0000 12096 6.00000 96.9231 RINGFL 12103 6.00000 103.846 12110 6.00000 110.769 RINGFL 12117 6.00000 117.692 12124 6.00000 124.615 RINGFL 12131 6.00000 131.538 12138 6.00000 138.462 RINGFL 12145 6.00000 145.385 12152 6.00000 152.308 RINGFL 12159 6.00000 159.231 12166 6.00000 166.154 RINGFL 12173 6.00000 173.077 RINGFL 13089 6.50000 90.0000 13096 6.50000 96.4286 RINGFL 13102 6.50000 102.857 13109 6.50000 109.286 RINGFL 13115 6.50000 115.714 13122 6.50000 122.143 RINGFL 13128 6.50000 128.571 13134 6.50000 135.000 RINGFL 13141 6.50000 141.429 13147 6.50000 147.857 RINGFL 13154 6.50000 154.286 13160 6.50000 160.714 RINGFL 13167 6.50000 167.143 13173 6.50000 173.571 RINGFL 14090 7.00000 90.0000 14096 7.00000 96.0000 RINGFL 14102 7.00000 102.000 14108 7.00000 108.000 RINGFL 14114 7.00000 114.000 14120 7.00000 120.000 RINGFL 14126 7.00000 126.000 14132 7.00000 132.000 RINGFL 14138 7.00000 138.000 14144 7.00000 144.000 RINGFL 14150 7.00000 150.000 14156 7.00000 156.000 RINGFL 14162 7.00000 162.000 14168 7.00000 168.000 RINGFL 14174 7.00000 174.000 RINGFL 15090 7.50000 90.0000 15095 7.50000 95.6250 RINGFL 15101 7.50000 101.250 15106 7.50000 106.875 RINGFL 15112 7.50000 112.500 15118 7.50000 118.125 RINGFL 15123 7.50000 123.750 15129 7.50000 129.375 RINGFL 15135 7.50000 135.000 15140 7.50000 140.625 RINGFL 15146 7.50000 146.250 15151 7.50000 151.875 RINGFL 15157 7.50000 157.500 15163 7.50000 163.125 RINGFL 15168 7.50000 168.750 15174 7.50000 174.375 RINGFL 16089 8.00000 90.0000 16095 8.00000 95.2941 RINGFL 16100 8.00000 100.588 16105 8.00000 105.882 RINGFL 16111 8.00000 111.176 16116 8.00000 116.471 RINGFL 16121 8.00000 121.765 16127 8.00000 127.059 RINGFL 16132 8.00000 132.353 16137 8.00000 137.647 RINGFL 16142 8.00000 142.941 16148 8.00000 148.235 RINGFL 16153 8.00000 153.529 16158 8.00000 158.824 RINGFL 16164 8.00000 164.118 16169 8.00000 169.412 RINGFL 16174 8.00000 174.706 RINGFL 17090 8.50000 90.0000 17095 8.50000 95.0000 RINGFL 17100 8.50000 100.000 17105 8.50000 105.000 RINGFL 17110 8.50000 110.000 17115 8.50000 115.000 RINGFL 17120 8.50000 120.000 17125 8.50000 125.000 RINGFL 17130 8.50000 130.000 17135 8.50000 135.000 RINGFL 17140 8.50000 140.000 17145 8.50000 145.000 RINGFL 17150 8.50000 150.000 17155 8.50000 155.000 RINGFL 17160 8.50000 160.000 17165 8.50000 165.000 RINGFL 17170 8.50000 170.000 17175 8.50000 175.000 RINGFL 18089 9.00000 90.0000 18094 9.00000 94.7368 RINGFL 18099 9.00000 99.4737 18104 9.00000 104.211 RINGFL 18108 9.00000 108.947 18113 9.00000 113.684 RINGFL 18118 9.00000 118.421 18123 9.00000 123.158 RINGFL 18127 9.00000 127.895 18132 9.00000 132.632 RINGFL 18137 9.00000 137.368 18142 9.00000 142.105 RINGFL 18146 9.00000 146.842 18151 9.00000 151.579 RINGFL 18156 9.00000 156.316 18161 9.00000 161.053 RINGFL 18165 9.00000 165.789 18170 9.00000 170.526 RINGFL 18175 9.00000 175.263 RINGFL 19090 9.50000 90.0000 19094 9.50000 94.5000 RINGFL 19099 9.50000 99.0000 19103 9.50000 103.500 RINGFL 19108 9.50000 108.000 19112 9.50000 112.500 RINGFL 19117 9.50000 117.000 19121 9.50000 121.500 RINGFL 19126 9.50000 126.000 19130 9.50000 130.500 RINGFL 19135 9.50000 135.000 19139 9.50000 139.500 RINGFL 19144 9.50000 144.000 19148 9.50000 148.500 RINGFL 19153 9.50000 153.000 19157 9.50000 157.500 RINGFL 19162 9.50000 162.000 19166 9.50000 166.500 RINGFL 19171 9.50000 171.000 19175 9.50000 175.500 RINGFL 20089 10.0000 90.0000 20094 10.0000 94.2857 RINGFL 20098 10.0000 98.5714 20102 10.0000 102.857 RINGFL 20107 10.0000 107.143 20111 10.0000 111.429 RINGFL 20115 10.0000 115.714 20119 10.0000 120.000 RINGFL 20124 10.0000 124.286 20128 10.0000 128.571 RINGFL 20132 10.0000 132.857 20137 10.0000 137.143 RINGFL 20141 10.0000 141.429 20145 10.0000 145.714 RINGFL 20149 10.0000 150.000 20154 10.0000 154.286 RINGFL 20158 10.0000 158.571 20162 10.0000 162.857 RINGFL 20167 10.0000 167.143 20171 10.0000 171.429 RINGFL 20175 10.0000 175.714 ENDDATA ================================================ FILE: inp/d03031a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3, Real Eigenvalue Analysis $ Vibration of a Liquid in a Half-Filled Rigid Sphere (3-3-1) $ $ A. Description $ $ The model is similar to Demonstration Problem No. 3-2-1 except that a $ hemispherical fluid model with a free surface is analyzed. Additional cards $ demonstrated are the free surface list (FSLIST) free surface points (FREEPT). $ The effective gravity for the fluid is found on the AXIF card. The fluid is $ considered incompressible. $ $ The lowest three eigenvalues and eigenvectors for the cosine and sine series $ of n = 1 are analyzed, where n is the harmonic order. $ $ B. Input $ $ 1. Parameters $ $ 2 $ g = 10.0 ft/sec (Gravity) $ $ R = 10.0 ft (Radius of hemisphere) $ $ 2 4 $ p = 1.255014 lb-sec /ft (Fluid mass density] $ $ B = infinity (Bulk modulus of fluid, incompressible) $ $ C. Results $ $ Reference 17 gives the derivations and analytical results. In particular, the $ parameters used in the reference are: $ $ e = 0 (half-filled sphere) $ $ 2 (1) $ w R $ lambda = ---- (dimensionless eigenvalue) $ g $ $ Table 2 of Reference 17 lists the eigenvalues, lambda , lambda , and $ 1 2 $ lambda , for the first three modes. Figure 13 of Reference 17 shows the mode $ 3 $ shapes. $ $ The analytic and NASTRAN results are compared in Table 1. The frequencies are $ listed and the resulting percentage errors are given. The maximum percent $ error of the surface displacement, relative to the largest displacement, is $ tabulated for each mode. $ $ The free surface displacements may be obtained by the equation: $ $ p $ u = -- (2) $ pg $ $ where p is the pressure at the free surface recorded in the NASTRAN output. $ Note that, since an Eulerian reference frame is used, the pressure at the $ original (undisturbed) surface is equal to the gravity head produced by $ motions of the surface. Special FREEPT data cards could also have been used $ for output. Since the results are scaled for normalization anyway, the $ harmonic pressures may be used directly as displacements. $ $ $ Because the cosine series and the sine series produce identical eigenvalues, $ the resulting eigenvectors may be linear combinations of both series. In other $ words the points of maximum displacement will not necessarily occur at phi = 0 $ degrees or phi = 90 degrees. Since the results are scaled, however, and the $ results at phi = 0 are proportional to the results at any other angle, the $ results at phi = 0 were used. $ $ Table 1. Comparison of Natural Frequencies and Free Surface Mode Shapes $ from the Reference and NASTRAN $ $ --------------------------------------------------------- $ Natural Frequency (Hertz) $ -------------------------------- Mode Shape $ Mode NASTRAN Max. % Error $ Number Reference NASTRAN % Error epsilon $ --------------------------------------------------------- $ 1 0.1991 0.1988 -0.1 < 1 $ $ 2 0.3678 0.3691 0.3 < 2.6 $ $ 3 0.4684 0.4766 1.8 < 4 $ --------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 17. B. Budiansky, "Sloshing of Liquids in Circular Canals and Spherical $ Tanks", Journal of the Aerospace Sciences, Vol. 27, No. 3, pp 161-173, $ March 1960. $------------------------------------------------------------------------------- ================================================ FILE: inp/d03041a.inp ================================================ NASTRAN FILES=PLT2 ID D03041A,NASTRAN APP DISPLACEMENT SOL 3,0 TIME 30 CEND TITLE = ACOUSTIC CAVITY ANALYSIS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A SET 1 = 1 THRU 210 SET 2 = 101 THRU 131, 200 THRU 230, 300 THRU 321, 401 THRU 430, 523 THRU 530, 624 THRU 630, 725 THRU 730, 825 THRU 830, 926 THRU 930, 1026 THRU 1030 METHOD = 1 PRESSURE = 1 STRESS = 2 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A OUTPUT(PLOT) PLOTTER NASTPLT SET 1 INCLUDE PLOTEL MAXIMUM DEFORMATION 5.0 AXES MZ,Y,X VIEW -20.0, 45.0, 0.0 FIND SCALE, ORIGIN 1, SET 1 PTITLE = ROCKET MOTOR CAVITY USING PLOTEL ELEMENTS PLOT SET 1, ORIGIN 1, LABEL GRID POINTS PTITLE = MODE SHAPES OF MOTOR CAVITY USING PLOTEL ELEMENTS PLOT MODAL DEFORMATION, SET 1, ORIGIN 1, VECTOR R BEGIN BULK AXSLOT .1143-6 20.58 0 4. 6 CAXIF2 101 11 12 CAXIF2 102 12 19 CAXIF2 103 19 26 CAXIF2 104 26 32 CAXIF2 107 32 37 CAXIF2 108 37 41 CAXIF2 109 41 45 CAXIF2 110 45 49 CAXIF2 111 49 53 CAXIF2 112 53 57 CAXIF2 113 57 61 CAXIF2 114 61 65 CAXIF2 115 65 69 CAXIF2 116 69 73 CAXIF2 117 73 77 CAXIF2 119 77 81 CAXIF2 120 81 85 CAXIF2 121 85 91 CAXIF2 123 91 97 CAXIF2 124 97 104 CAXIF2 125 104 112 CAXIF2 126 112 122 CAXIF2 127 122 142 CAXIF2 128 142 162 CAXIF2 129 162 182 CAXIF2 130 182 202 CAXIF2 131 202 201 CAXIF3 200 12 19 13 CAXIF3 201 13 19 20 CAXIF3 202 19 26 20 CAXIF3 203 20 26 27 CAXIF3 204 26 32 27 CAXIF3 205 27 32 33 CAXIF3 218 77 82 78 CAXIF3 219 77 81 82 CAXIF3 221 85 91 86 CAXIF3 222 86 91 92 CAXIF3 300 13 20 14 CAXIF3 301 14 20 21 CAXIF3 302 20 27 21 CAXIF3 303 21 27 28 CAXIF3 304 27 33 28 CAXIF3 305 28 33 34 CAXIF3 306 33 38 34 CAXIF3 307 34 38 39 CAXIF3 318 78 83 79 CAXIF3 319 78 82 83 CAXIF3 321 86 92 87 CAXIF3 401 1 2 3 CAXIF3 408 28 34 29 CAXIF3 410 34 39 35 CAXIF4 207 32 37 38 33 CAXIF4 208 37 41 42 38 CAXIF4 209 41 45 46 42 CAXIF4 210 45 49 50 46 CAXIF4 211 49 53 54 50 CAXIF4 212 53 57 58 54 CAXIF4 213 57 61 62 58 CAXIF4 214 61 65 66 62 CAXIF4 215 65 69 70 66 CAXIF4 216 69 73 74 70 CAXIF4 217 73 77 78 74 CAXIF4 220 81 85 86 82 CAXIF4 223 91 97 98 92 CAXIF4 224 97 104 105 98 CAXIF4 225 104 112 113 105 CAXIF4 226 112 122 123 113 CAXIF4 227 122 142 143 123 CAXIF4 228 142 162 163 143 CAXIF4 229 162 182 183 163 CAXIF4 230 182 202 203 183 CAXIF4 308 38 42 43 39 CAXIF4 309 42 46 47 43 CAXIF4 310 46 50 51 47 CAXIF4 311 50 54 55 51 CAXIF4 312 54 58 59 55 CAXIF4 313 58 62 63 59 CAXIF4 314 62 66 67 63 CAXIF4 315 66 70 71 67 CAXIF4 316 70 74 75 71 CAXIF4 317 74 78 79 75 CAXIF4 320 82 86 87 83 CAXIF4 402 2 4 5 3 CAXIF4 403 4 6 7 5 CAXIF4 404 6 8 9 7 CAXIF4 405 8 16 17 9 CAXIF4 406 16 23 24 17 CAXIF4 407 23 29 30 24 CAXIF4 409 29 34 35 30 CSLOT3 422 89 94 95 CSLOT3 523 95 101 102 CSLOT3 624 102 109 110 CSLOT3 725 110 118 119 CSLOT3 825 119 129 120 CSLOT3 826 120 129 130 CSLOT3 926 120 130 131 CSLOT3 930 190 210 191 CSLOT3 1026 131 151 132 CSLOT3 1027 132 151 152 CSLOT3 1029 171 192 172 CSLOT3 1030 171 191 192 CSLOT4 423 94 100 101 95 CSLOT4 424 100 107 108 101 CSLOT4 425 107 115 116 108 CSLOT4 426 115 125 126 116 CSLOT4 427 125 145 146 126 CSLOT4 428 145 165 166 146 CSLOT4 429 165 185 186 166 CSLOT4 430 185 205 206 186 CSLOT4 524 101 108 109 102 CSLOT4 525 108 116 117 109 CSLOT4 526 116 126 127 117 CSLOT4 527 126 146 147 127 CSLOT4 528 146 166 167 147 CSLOT4 529 166 186 187 167 CSLOT4 530 186 206 207 187 CSLOT4 625 109 117 118 110 CSLOT4 626 117 127 128 118 CSLOT4 627 127 147 148 128 CSLOT4 628 147 167 168 148 CSLOT4 629 167 187 188 168 CSLOT4 630 187 207 208 188 CSLOT4 726 118 128 129 119 CSLOT4 727 128 148 149 129 CSLOT4 728 148 168 169 149 CSLOT4 729 168 188 189 169 CSLOT4 730 188 208 209 189 CSLOT4 827 129 149 150 130 CSLOT4 828 149 169 170 150 CSLOT4 829 169 189 190 170 CSLOT4 830 189 209 210 190 CSLOT4 927 130 150 151 131 CSLOT4 928 150 170 171 151 CSLOT4 929 170 190 191 171 CSLOT4 1028 151 171 172 152 EIGR 1 INV 100.0 500.0 6 7 +EIG1 +EIG1 MAX GRID 500 .0 65.25 123456 GRID 501 .0 11.4 123456 GRIDF 1 10. GRIDF 2 9.15 1.8 GRIDF 3 10.6 2.6 GRIDF 4 8.1 4. GRIDF 5 9.85 4.65 GRIDF 6 7.3 6.2 GRIDF 7 9. 6.8 GRIDF 8 6.55 8.6 GRIDF 9 8.6 8.9 GRIDF 11 .7 11.4 GRIDF 12 .7 12. GRIDF 13 1.8 12. GRIDF 14 3.3 12.1 GRIDF 16 5.9 10.8 GRIDF 17 8.3 10.6 GRIDF 19 1. 13.3 GRIDF 20 2.5 13.3 GRIDF 21 3.6 13.9 GRIDF 23 6.07 13. GRIDF 24 8.3 13. GRIDF 26 1.3 15. GRIDF 27 2.8 15. GRIDF 28 4.8 15. GRIDF 29 6. 14.8 GRIDF 30 8.3 15.25 GRIDF 32 1.6 16.7 GRIDF 33 4. 16.7 GRIDF 34 5.5 17.2 GRIDF 35 6.9 17.7 GRIDF 37 2. 18.82 GRIDF 38 4.4 18.82 GRIDF 39 6.89 18.82 GRIDF 41 2. 21. GRIDF 42 4.4 21. GRIDF 43 6.875 21. GRIDF 45 2. 23.2 GRIDF 46 4.4 23.2 GRIDF 47 6.85 23.2 GRIDF 49 2. 25.4 GRIDF 50 4.4 25.4 GRIDF 51 6.825 25.4 GRIDF 53 2. 27.6 GRIDF 54 4.4 27.6 GRIDF 55 6.8 27.6 GRIDF 57 2. 29.8 GRIDF 58 4.4 29.8 GRIDF 59 6.775 29.8 GRIDF 61 2. 32. GRIDF 62 4.4 32. GRIDF 63 6.75 32. GRIDF 65 2. 34.2 GRIDF 66 4.4 34.2 GRIDF 67 6.725 34.2 GRIDF 69 2. 36.4 GRIDF 70 4.4 36.4 GRIDF 71 6.7 36.4 GRIDF 73 2. 38.6 GRIDF 74 4.4 38.6 GRIDF 75 6.675 38.6 GRIDF 77 2. 40.3 GRIDF 78 4.4 40.3 GRIDF 79 6.55 40.3 GRIDF 81 2. 41.85 GRIDF 82 3.4 41.85 GRIDF 83 4.6 41.85 GRIDF 85 2. 43.85 GRIDF 86 3.4 43.85 GRIDF 91 2. 46.25 GRIDF 97 2. 48.5 GRIDF 104 2. 50.8 GRIDF 112 2. 52.8 GRIDF 122 2. 55. GRIDF 142 2. 57.2 GRIDF 162 2. 59.4 GRIDF 182 2. 61.6 GRIDF 201 2.5 65.25 GRIDF 202 2.5 63.7 GRIDS 89 4.6 43.85 87 GRIDS 94 4.3 46.25 92 GRIDS 95 6.9 46.25 GRIDS 100 4.3 48.5 98 GRIDS 101 6.5 48.5 GRIDS 102 9.04 48.5 GRIDS 107 4.3 50.8 3.541 105 GRIDS 108 6.5 50.8 3.528 GRIDS 109 8.7 50.8 3.514 GRIDS 110 11.25 50.8 3.497 GRIDS 115 4.3 52.8 2.991 113 GRIDS 116 6.5 52.8 2.961 GRIDS 117 8.7 52.8 2.93 GRIDS 118 10.9 52.8 2.9 GRIDS 119 13.6 52.8 2.863 GRIDS 120 15.3 53.9 2.84 GRIDS 125 4.3 55. 2.991 123 GRIDS 126 6.5 55. 2.961 GRIDS 127 8.7 55. 2.93 GRIDS 128 10.9 55. 2.9 GRIDS 129 13.1 55. 2.87 GRIDS 130 15.3 55. 2.84 GRIDS 131 17.5 55.05 2.81 GRIDS 132 18.65 56. 2.794 GRIDS 145 4.3 57.2 2.991 143 GRIDS 146 6.5 57.2 2.961 GRIDS 147 8.7 57.2 2.93 GRIDS 148 10.9 57.2 2.9 GRIDS 149 13.1 57.2 2.87 GRIDS 150 15.3 57.2 2.84 GRIDS 151 17.5 57.2 2.81 GRIDS 152 19.35 57.2 2.784 GRIDS 165 4.3 59.4 2.991 163 GRIDS 166 6.5 59.4 2.961 GRIDS 167 8.7 59.4 2.93 GRIDS 168 10.9 59.4 2.9 GRIDS 169 13.1 59.4 2.87 GRIDS 170 15.3 59.4 2.84 GRIDS 171 17.5 59.4 2.81 GRIDS 172 19.35 59.4 2.784 GRIDS 185 4.3 61.6 2.991 183 GRIDS 186 6.5 61.6 2.961 GRIDS 187 8.7 61.6 2.93 GRIDS 188 10.9 61.6 2.9 GRIDS 189 13.1 61.6 2.87 GRIDS 190 15.3 61.6 2.84 GRIDS 191 17.5 61.5 2.81 GRIDS 192 18.5 60.65 2.795 GRIDS 205 4.3 63.65 2.991 203 GRIDS 206 6.5 63.6 2.961 GRIDS 207 8.7 63.55 2.93 GRIDS 208 10.9 63.5 2.9 GRIDS 209 13.1 63.3 2.87 GRIDS 210 15.3 62.63 2.84 PLOTEL 1 201 500 2 500 501 PLOTEL 3 501 11 SLBDY 89 94 100 107 115 125 +BDY +BDY 145 165 185 205 SUPORT 1 1 ENDDATA ================================================ FILE: inp/d03041a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3, Real Eigenvalue Analysis $ Acoustic Cavity Analysis (3-4-1) $ $ A. Description $ $ This problem illustrates the use of NASTRAN to determine the acoustic modes in $ a cavity containing both axisymmetric regions and evenly spaced radial slots. $ The motor cavity of Stage IlI of the Minuteman III missile is selected for $ analysis. The finite element model consists of six slots and a long, slender $ central cavity of irregular shape. The model consists of AXIF2, AXIF3, and $ AXIF4 finite elements in the central cavity, and SLOT3 and SLOT4 finite $ elements in the slotted region. $ $ The axisymmetric radial and longitudinal acoustic modes are desired (N = 0) $ for this problem. The harmonic index N specifies the Fourier Series terms to $ be analyzed. For example, N = 1 defines the lateral motion where the velocity $ is normal to the center axis. Repeated runs with N = 0, 1, ...M/2 may be $ necessary to extract all possible modes, where M is the number of radial slots $ specified. $ $ B. Input $ $ Parameters: $ -7 $ p = 1.143 x 10 (Fluid density) $ $ beta = 20.58 (Fluid bulk modulus) $ $ N = 0 (Harmonic index) $ $ WD = 4.0 (Slot width) $ $ MD = 6 (Number of slots) $ $ C. Results $ $ The vibration mode frequencies for harmonic n = 0 as determined with NASTRAN $ are shown in Table 1. Also shown are the vibration mode frequencies as $ determined with an acoustic model and reported in Reference 19. $ $ Table 1. Natural Frequencies for the Third Stage, Minuteman III, Motor Cavity $ $ Frequency, Hz $ ---------------------- $ NASTRAN Experi- $ Mode mental $ ---------------------------- $ 1 0.0 0.0 $ $ 2 90.1 93.0 $ $ 3 199.5 200.0 $ $ 4 310.4 312.0 $ $ 5 388.0 388.0 $ $ 6 449.1 466.0 $ $ 7 512.8 518.0 $ ---------------------------- $ $ APPLICABLE REFERENCES $ $ 19. Herting, David N.; Joseph, Jerrard A.; Kuusinen, Loren R.; and MacNeal, $ Richard H.: Acoustic Analysis of Solid Rocket Motor Cavities by a Finite $ Element Method. NASA TN X-2378, September, 1971, pp. 285-324. $------------------------------------------------------------------------------- ================================================ FILE: inp/d03051a.inp ================================================ ID D03051A,NASTRAN APP HEAT DIAG 18 SOL 3,1 TIME 10 CEND TITLE = NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A OLOAD = ALL SPCFORCE = ALL THERMAL(PRINT,PUNCH) = ALL ELFORCE = ALL TEMPERATURE(MATERIAL) = 201 SPC = 350 LOAD = 252 BEGIN BULK CBAR 1 101 1 2 .0 1.0 .0 1 CHBDY 5 105 POINT 1 +HBDY5 +HBDY5 -1.0 .0 .0 CONROD 3 2 3 200 3.14159 CROD 2 102 3 4 CTUBE 4 103 4 5 GRID 1 .0 .0 .0 GRID 2 1.0 .0 .0 GRID 3 2.0 .0 .0 GRID 4 3.0 .0 .0 GRID 5 4.0 .0 .0 MAT4 200 1.0 MATT4 200 200 PARAM EPSHT .001 HEAT PARAM IRES 1 PARAM MAXIT 30 HEAT PBAR 101 200 3.14159 PHBDY 105 3.14159 PROD 102 200 3.14159 PTUBE 103 200 2.0 .0 QVOL 252 12.5 1 THRU 4 SPC 350 5 .0 TABLEM3 200 .0 1.0 +T200 +T200 .0 1.0 100.0 2.0 ENDT TEMPD 201 .0 ENDDATA ================================================ FILE: inp/d03051a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3 (APP HEAT), Nonlinear Heat Conduction $ Nonlinear Heat Transfer in an Infinite Slab (3-5-1) $ $ A. Description $ $ This problem demonstrates NASTRAN's capability to solve nonlinear steady state $ heat conduction problems. The infinite slab is subjected to uniform heat $ addition per unit volume. There is no heat flux on one face and the other face $ is kept at zero degrees. The conductivity is temperature dependent. This is a $ one dimensional problem, since there is no temperature gradient parallel to $ the surfaces of the slab. $ $ B. Input $ $ Linear elements BAR, CONROD, ROD, and TUBE with areas of pi square units and $ boundary condition element HBDY (POINT) are used. The heat addition is $ specified on a QVOL card and is referenced in Case Control by a LOAD card. The $ area factor for the HBDY is given on the PHBDY card and heat flux is zero. The $ initial temperatures are given on a TEMPD card and referenced in Case Control $ by a TEMP (MATERIAL) card. The conductlvity is specified on a MAT4 card and is $ made temperature dependent by the MATT4 card referencing table TABLEM3. The $ convergence parameter, the maximum number of iterations, and an option to have $ the residual vector output are specified on PARAM cards. The temperature at $ the outer surface is specified by an SPC card. Temperature output is punched $ on TEMP bulk data cards for future use in static analysis. $ $ C. Theory $ $ The conductivity, k, is defined by $ $ k(T) = 1 + T/l00 (1) $ $ where T is the temperature. $ $ The heat flow per area, q, is $ $ dT dT $ q(x) = - k -- = - (1 + T/100) -- (2) $ dx dx $ $ The heat input per volume, q , affects the heat flow by the equatIon $ v $ $ dq(x) $ ----- = q (3) $ dx v $ $ A convenient substitution of variables in Equations (2) and (3) is $ $ 2 $ u = - integral of q(x)dx = (T + T /200) (4) $ $ Differentiation and substitution for q in Equation (3) results in the second- $ order equation in u: $ $ 2 $ d u $ --- = -q (5) $ 2 v $ dx $ $ From the following boundary conditions $ $ u = 0 at x = l $ $ and $ $ du $ -- = 0 at x = 0 $ dx $ $ the solution to Equation (5) is $ $ q $ v 2 2 $ u = -- ( l - x ) (6) $ 2 $ $ Therefore the solution for the temperature is $ $ 2 2 1/2 $ T = 100 [ -1 +/- (1 + q (l - x )/100) ] (7) $ v $ $ Since heat is flowing into the system, the positive temperature solution will $ occur. $ $ D. Results $ $ A comparison with NASTRAN results is shown in Table 1. $ $ Table 1. Comparison of Theoretical and NASTRAN Temperatures $ for Nonlinear Heat Conduction in an Infinite Slab $ ---------------------------------- $ Grid Theoretical NASTRAN $ Point Temperature Solution $ ---------------------------------- $ 1 73.20 73.13 $ 2 69.56 69.53 $ 3 58.11 58.11 $ 4 36.93 36.93 $ 5 0.00 0.00 $ ---------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d03061a.inp ================================================ ID D03061A,NASTRAN TIME 15 APP HEAT SOL 3,1 CEND TITLE = NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A LOAD = 102 TEMP(MATERIAL) = 201 OUTPUT THERMAL = ALL OLOAD = ALL ELFORCE = ALL BEGIN BULK CHBDY 21 101 LINE 20 1 +B1 +B1 1.0 CHBDY 22 101 LINE 1 2 +B2 +B2 1.0 CHBDY 23 101 LINE 2 3 +B3 +B3 1.0 CHBDY 24 101 LINE 3 4 +B4 +B4 1.0 CHBDY 25 101 LINE 4 5 +B5 +B5 1.0 CHBDY 26 101 LINE 5 6 +B6 +B6 -1.0 CHBDY 27 101 LINE 6 7 +B7 +B7 -1.0 CHBDY 28 101 LINE 7 8 +B8 +B8 -1.0 CHBDY 29 101 LINE 8 9 +B9 +B9 -1.0 CHBDY 30 101 LINE 9 10 +B10 +B10 -1.0 CHBDY 31 101 LINE 10 11 +B11 +B11 -1.0 CHBDY 32 101 LINE 11 12 +B12 +B12 -1.0 CHBDY 33 101 LINE 12 13 +B13 +B13 -1.0 CHBDY 34 101 LINE 13 14 +B14 +B14 -1.0 CHBDY 35 101 LINE 14 15 +B15 +B15 -1.0 CHBDY 36 101 LINE 15 16 +B16 +B16 1.0 CHBDY 37 101 LINE 16 17 +B17 +B17 1.0 CHBDY 38 101 LINE 17 18 +B18 +B18 1.0 CHBDY 39 101 LINE 18 19 +B19 +B19 1.0 CHBDY 40 101 LINE 19 20 +B20 +B20 1.0 CHBDY 41 101 LINE 20 1 CHBDY 42 101 LINE 1 2 CHBDY 43 101 LINE 2 3 CHBDY 44 101 LINE 3 4 CHBDY 45 101 LINE 4 5 CHBDY 46 101 LINE 5 6 CHBDY 47 101 LINE 6 7 CHBDY 48 101 LINE 7 8 CHBDY 49 101 LINE 8 9 CHBDY 50 101 LINE 9 10 CHBDY 51 101 LINE 10 11 CHBDY 52 101 LINE 11 12 CHBDY 53 101 LINE 12 13 CHBDY 54 101 LINE 13 14 CHBDY 55 101 LINE 14 15 CHBDY 56 101 LINE 15 16 CHBDY 57 101 LINE 16 17 CHBDY 58 101 LINE 17 18 CHBDY 59 101 LINE 18 19 CHBDY 60 101 LINE 19 20 CORD2C 1 1.0 +CORD1 +CORD1 1.0 CROD 1 100 20 1 2 100 1 2 CROD 3 100 2 3 4 100 3 4 CROD 5 100 4 5 6 100 5 6 CROD 7 100 6 7 8 100 7 8 CROD 9 100 8 9 10 100 9 10 CROD 11 100 10 11 12 100 11 12 CROD 13 100 12 13 14 100 13 14 CROD 15 100 14 15 16 100 15 16 CROD 17 100 16 17 18 100 17 18 CROD 19 100 18 19 20 100 19 20 GRDSET 1 GRID 1 2.0 18. GRID 2 2.0 36. GRID 3 2.0 54. GRID 4 2.0 72. GRID 5 2.0 90. GRID 6 2.0 108. GRID 7 2.0 126. GRID 8 2.0 144. GRID 9 2.0 162. GRID 10 2.0 180. GRID 11 2.0 198. GRID 12 2.0 216. GRID 13 2.0 234. GRID 14 2.0 252. GRID 15 2.0 270. GRID 16 2.0 288. GRID 17 2.0 306. GRID 18 2.0 324. GRID 19 2.0 342. GRID 20 2.0 .0 MAT4 100 94.5 36.7 PARAM EPSHT .001 HEAT PARAM MAXIT 20 HEAT PARAM SIGMA .174-8 HEAT PARAM TABS 460. HEAT PHBDY 101 20.306 .1 PROD 100 100 .020306 QVECT 102 425. -1. .0 .0 21 22 23 +Q102 +Q102 24 25 26 27 28 29 30 31 +Q102A +Q102A 32 33 34 35 36 37 38 39 +Q102B +Q102B 40 RADLST 21 THRU 40 41 THRU 60 RADMTX 21 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R21 +R21 .89101 .95106 .98769 1.0 .98769 .95106 .89101 .80902 +R21A +R21A .70711 .58779 .45399 .30902 .15643 RADMTX 22 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R22 +R22 .89101 .95106 .98769 1.0 .98769 .95106 .89101 .80902 +R22A +R22A .70711 .58779 .45399 .30902 RADMTX 23 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R23 +R23 .89101 .95106 .98769 1.0 .98769 .95106 .89101 .80902 +R23A +R23A .70711 .58779 .45399 RADMTX 24 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R24 +R24 .89101 .95106 .98769 1.0 .98769 .95106 .89101 .80902 +R24A +R24A .70711 .58779 RADMTX 25 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R25 +R25 .89101 .95106 .98769 1.0 .98769 .95106 .89101 .80902 +R25A +R25A .70711 RADMTX 26 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R26 +R26 .89101 .95106 .98769 1.0 .98769 .95106 .89101 .80902 RADMTX 27 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R27 +R27 .89101 .95106 .98769 1.0 .98769 .95106 .89101 RADMTX 28 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R28 +R28 .89101 .95106 .98769 1.0 .98769 .95106 RADMTX 29 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R29 +R29 .89101 .95106 .98769 1.0 .98769 RADMTX 30 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R30 +R30 .89101 .95106 .98769 1.0 RADMTX 31 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R31 +R31 .89101 .95106 .98769 RADMTX 32 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R32 +R32 .89101 .95106 RADMTX 33 .0 .15643 .30902 .45399 .58779 .70711 .80902 +R33 +R33 .89101 RADMTX 34 .0 .15643 .30902 .45399 .58779 .70711 .80902 RADMTX 35 .0 .15643 .30902 .45399 .58779 .70711 RADMTX 36 .0 .15643 .30902 .45399 .58779 RADMTX 37 .0 .15643 .30902 .45399 RADMTX 38 .0 .15643 .30902 RADMTX 39 .0 .15643 TEMPD 201 200.0 ENDDATA ================================================ FILE: inp/d03061a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3, Approach Heat, $ Nonlinear Radiation and Conduction of a Cylinder (3-6-1) $ $ A. Description $ $ This problem illustrates the solution of a combined conduction and radiation $ heat transfer analysis. The model is a two-dimensional representation of a $ long cylinder subject to radiant heat from a distant source. The shell has $ internal radiation exchange, external radiation loss, and conduction around $ the circumference. $ $ B. Input $ $ The NASTRAN model uses ROD elements to represent the circumferential heat flow $ and HBDY elements to represent the inside and outside surfaces. The radiation $ exchange factors for the inside of the cylinder are defined on the RADMTX data $ cards. The incoming vector flux is defined on the QVECT data card. The model $ parameters are: $ $ R = 2.0 ft (Radius of shell) $ $ t = .001 ft (Thickness) $ $ l = 20.306 ft (Axial length) $ $ epsilon = alpha = 0.1 (Emissivity and absorptivity) $ $ 2 $ q = 425 BTU/(ft -hr) (Source flux density) $ v $ $ k = 94.5 BTU/(hr-ft-deg. F) (Conductivity of shell) $ $ -8 2 4 $ sigma = .174 x 10 BTU/(ft -hr-deg. R ) (Stefan-Boltzmann radiation $ constant) $ $ C. Theory $ $ A closed-form solution to this problem is not available. However, the solution $ may be validated by checking the global net heat flow, the local net heat $ exchange, and the estimated average temperature. $ $ An estimate of the average temperature may be obtained from the equations: $ $ Q = alpha q lR integral from -pi/2 to pi/2 of cos theta d theta = $ in v $ (1) $ 2 alpha lRq $ v $ $ and $ $ _4 $ Q = epsilon sigma T (2 pi Rl) (2) $ out $ $ where Q is the total input from the source, Q is the net flux radiated $ in _ out $ outward and T is the average absolute temperature. $ $ Since the net heat flow must be zero in a steady-state analysis, Equations (1) $ and (2) are equated to obtain: $ $ q $ _4 v $ T = -------- (3) $ pi sigma $ $ D. Results $ $ The average value of temperature from the NASTRAN results shows 57.87 degrees $ F. The estimated average temperature from Equation (3) above is 68 degrees. $ The difference is due to the non-uniform radiation effects. $ $ A second check is provided by computing the global net heat flow error in the $ system. Summing the net flow into each element gives a net heat flow error $ several orders of magnitude less than the total heat from the source. As a $ further check, the local net heat flow error at grid point 2 was calculated by $ summing the contributions from the connected elements. The heat flow terms, as $ calculated by NASTRAN, were: $ $ Q = 59.420 (Flow through ROD #2 (flux - area)) $ 2 $ $ Q = 97.862 (Flow through ROD #3 (flux - area)) $ 3 $ $ Q = -133.564 (Inside radiation flow into HBDY #42) $ r42 $ $ Q = -85.352 (Inside radiation flow into HBDY #43) $ r43 $ $ Q = -305.418 (Outside radiation into HBDY #22) $ r22 $ $ Q = -257.930 (Outside radiation into HBDY #23) $ r23 $ $ Q = 481.157 (Vector flux input to HBDY #22) $ v22 $ $ Q = 381.848 (Vector flux input to HBDY #23) $ v23 $ $ The net flow error into grid point 2 is: $ $ _ 1 $ Q = - (Q + Q + Q + Q + Q + Q ) + Q - Q = 1.9 BTU (4) $ 2 2 r22 r23 r42 r43 v22 v23 2 3 $ $ This error is less than 1% of the total heat flow input at the point. $------------------------------------------------------------------------------- ================================================ FILE: inp/d03071a.inp ================================================ ID D03071A,NASTRAN APP DISPLACEMENT SOL 3,0 TIME 60 CEND TITLE = VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A METHOD = 3 SPC = 2 OUTPUT VECTOR = ALL BEGIN BULK CTRPLT1 1 6 13 8 3 2 1 9 +TR1 +TR1 CTRPLT1 2 7 1 10 11 12 13 9 +TR2 +TR2 CTRPLT1 3 8 23 18 13 12 11 19 +TR3 +TR3 CTRPLT1 4 9 11 20 21 22 23 19 +TR4 +TR4 CTRPLT1 5 10 33 28 23 22 21 29 +TR5 +TR5 CTRPLT1 6 11 21 30 31 32 33 29 +TR6 +TR6 CTRPLT1 7 12 43 38 33 32 31 39 +TR7 +TR7 CTRPLT1 8 13 31 40 41 42 43 39 +TR8 +TR8 CTRPLT1 9 14 15 6 5 4 3 7 +TR9 +TR9 CTRPLT1 10 15 3 8 13 14 15 7 +TR10 +TR10 CTRPLT1 11 16 25 16 15 14 13 17 +TR11 +TR11 CTRPLT1 12 17 13 18 23 24 25 17 +TR12 +TR12 CTRPLT1 13 18 35 26 25 24 23 27 +TR13 +TR13 CTRPLT1 14 19 23 28 33 34 35 27 +TR14 +TR14 CTRPLT1 15 20 45 36 35 34 33 37 +TR15 +TR15 CTRPLT1 16 21 33 38 43 44 45 37 +TR16 +TR16 EIGR 3 INV .0001 4000.0 8 8 0 +ABC +ABC MAX GRDSET 126 GRID 1 0.0 0.0 0.0 GRID 2 0.0 .625 0.0 GRID 3 0.0 1.25 0.0 GRID 4 0.0 1.875 0.0 GRID 5 0.0 2.5 0.0 GRID 6 .625 2.5 0.0 GRID 7 .625 1.875 0.0 GRID 8 .625 1.25 0.0 GRID 9 .625 .625 0.0 GRID 10 .625 0.0 0.0 GRID 11 1.25 0.0 0.0 GRID 12 1.25 .625 0.0 GRID 13 1.25 1.25 0.0 GRID 14 1.25 1.875 0.0 GRID 15 1.25 2.5 0.0 GRID 16 1.875 2.5 0.0 GRID 17 1.875 1.875 0.0 GRID 18 1.875 1.25 0.0 GRID 19 1.875 .625 0.0 GRID 20 1.875 0.0 0.0 GRID 21 2.5 0.0 0.0 GRID 22 2.5 .625 0.0 GRID 23 2.5 1.25 0.0 GRID 24 2.5 1.875 0.0 GRID 25 2.5 2.5 0.0 GRID 26 3.125 2.5 0.0 GRID 27 3.125 1.875 0.0 GRID 28 3.125 1.25 0.0 GRID 29 3.125 .625 0.0 GRID 30 3.125 0.0 0.0 GRID 31 3.75 0.0 0.0 GRID 32 3.75 .625 0.0 GRID 33 3.75 1.25 0.0 GRID 34 3.75 1.875 0.0 GRID 35 3.75 2.5 0.0 GRID 36 4.375 2.5 0.0 GRID 37 4.375 1.875 0.0 GRID 38 4.315 1.25 0.0 GRID 39 4.375 .625 0.0 GRID 40 4.375 0.0 0.0 GRID 41 5.0 0.0 0.0 GRID 42 5.0 .625 0.0 GRID 43 5.0 1.25 0.0 GRID 44 5.0 1.875 0.0 GRID 45 5.0 2.5 0.0 MAT1 4 3.0+7 .3 7.3698-4 PARAM COUPMASS1 PTRPLT1 6 4 4.3877-5 1.0E-10 +TP2 +TP2 PTRPLT1 7 4 1.0E-10 4.3877-5 +TP3 +TP3 PTRPLT1 8 4 4.3877-5 1.0E-10 +TP4 +TP4 PTRPLT1 9 4 1.0E-10 4.3877-5 +TP5 +TP5 PTRPLT1 10 4 4.3877-5 1.0E-10 +TP6 +TP6 PTRPLT1 11 4 1.0E-10 4.3877-5 +TP7 +TP7 PTRPLT1 12 4 4.3877-5 1.0E-10 +TP8 +TP8 PTRPLT1 13 4 1.0E-10 4.3877-5 +TP9 +TP9 PTRPLT1 14 4 3.5101-4 4.3877-5 +TP10 +TP10 PTRPLT1 15 4 4.3877-5 3.5101-4 +TP11 +TP11 PTRPLT1 16 4 3.5101-4 4.3877-5 +TP12 +TP12 PTRPLT1 17 4 4.3877-5 3.5101-4 +TP13 +TP13 PTRPLT1 18 4 3.5101-4 4.3877-5 +TP14 +TP14 PTRPLT1 19 4 4.3877-5 3.5101-4 +TP15 +TP15 PTRPLT1 20 4 3.5101-4 4.3877-5 +TP16 +TP16 PTRPLT1 21 4 4.3877-5 3.5101-4 +TP17 +TP17 SPC1 2 345 1 2 3 4 5 ENDDATA ================================================ FILE: inp/d03071a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3, Real Eigenvalue Analysis $ Vibrations of a Linear Tapered Cantilever Plate (3-7-1) $ $ A. Description $ $ This problem demonstrates the use of the higher order triangular bending $ element TRPLT1 to solve a normal modes analysis. The structural model is that $ of a thin isotropic plate with tapered cross section, cantilevered at one end. $ $ B. Input $ $ 7 2 $ E = 3.0 x 10 lb/in (Modulus of elasticity) $ $ -5 4 $ I = 4.3877 x 10 in (Maximum bending inertia) $ o $ $ t = 0.0807 in (Maximum thickness) $ o $ $ a = 5.0 in (Length) $ $ v = .3 (Poisson's ratio) $ $ 2 4 $ p = 7.3698 lb sec /in (Mass density) $ $ C. Theory $ $ The theory for the tapered plate elements is developed in Reference 33. In $ this reference, a frequency parameter is defined as $ $ 2 $ omega = w a sqrt (pt / D ) (1) $ o o $ $ where $ $ a = length $ $ p = mass density $ $ w = circular frequency $ $ t = thickness $ o $ $ The bending rigidity, D , is defined as $ o $ $ 3 $ Et $ o $ D = ---------- (2) $ o 2 $ 12(1 - v ) $ $ D. Results $ $ The results of the NASTRAN analysis using the TRPLT1 element are presented in $ Table 1. For purposes of comparison, results are presented from an experiment $ described by Plunkett in Reference 34. In this table the modes are identified $ by m and n, where m represents the number of nodal lines perpendicular to the $ support and n represents the number of nodal limes parallel to the support. $ $ Table 1. Frequency Parameters for a Linearly Tapered $ Rectangular Cantilever Plate; v = 0.3 $ ---------------------------------------------- $ Frequency Parameter $ 2 1/2 $ omega =w a (pt /D ) $ Mode mn mn o o $ ---------------------------------------------- $ m n TRPLT1 Experiment $ ---------------------------------------------- $ 0 0 2.25 2.47 $ $ 1 0 10.0 10.6 $ $ 0 1 13.6 14.5 $ $ 1 1 27.0 28.7 $ $ 0 2 32.8 34.4 $ $ 0 3 47.3 47.4 $ $ 2 0 53.3 52.5 $ $ 1 2 57.7 54.0 $ ---------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 33. Leissa, A. W.: Vibration of Plates, NASA SP-160, 1969, Chapter 11. $ $ 34. Plunkett, R.: "Natural Frequencies of Uniform and Non-Uniform Rectangular $ Cantilever Plates", J. Mech. Engr. Sci., Vol 5, 1963, pp. 146-156. $------------------------------------------------------------------------------- ================================================ FILE: inp/d03081a.inp ================================================ ID D03081A,NASTRAN APP DISPLACEMENT SOL 3,0 TIME 14 DIAG 21, 22 CEND TITLE = HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0) LABEL = NORMAL MODES ANALYSIS USING RIGID ELEMENTS METHOD = 1000 OUTPUT ECHO = BOTH VECTOR = ALL MPCFORCE = ALL BEGIN BULK CBAR 3530251 353025 200070 200078 1.0 .0 .0 1 MR G/B CBAR 4500050 450007 200079 200086 1.0 .0 .0 1 MRBRG1 +MRBRG1 56 CBAR 4500070 450007 200086 200095 1.0 .0 .0 1 MR MAST CBAR 4500071 450007 200095 200101 1.0 .0 .0 1 MR MAST CBAR 4500072 450007 200101 200106 1.0 .0 .0 1 MR MAST CBAR 4500073 450007 200106 200114 1.0 .0 .0 1 MR MAST CBAR 4500074 450007 200114 200121 1.0 .0 .0 1 MR MAST CBAR 4500075 450007 200121 200129 1.0 .0 .0 1 MR MAST CBAR 4500076 450007 200129 200137 1.0 .0 .0 1 MR MAST CBAR 4500077 450007 200137 200145 1.0 .0 .0 1 MR MAST CBAR 4500078 450007 200145 200153 1.0 .0 .0 1 MR MAST CBAR 4500079 450007 200153 200155 1.0 .0 .0 1 MR MAST CELAS2 189831 28125. 189073 1 18983 1 FWD R X CELAS2 189832 28125. 189073 2 18983 2 FWD R Y CELAS2 189833 4500. 189073 3 18983 3 FWD R Z CELAS2 189871 28125. 189077 1 18987 1 FWD L X CELAS2 189872 28125. 189077 2 18987 2 FWD L Y CELAS2 189873 4500. 189077 3 18987 3 FWD L Z CELAS2 211831 28125. 211073 1 21183 1 AFT R X CELAS2 211832 28125. 211073 2 21183 2 AFT R Y CELAS2 211833 4500. 211073 3 21183 3 AFT R Z CELAS2 211871 28125. 211077 1 21187 1 AFT L X CELAS2 211872 28125. 211077 2 21187 2 AFT L Y CELAS2 211873 4500. 211077 3 21187 3 AFT L Z CELAS2 214853 20000. 214075 3 21485 3 AFT C Z CONM2 209 209 0 7297.399 BASICWT +BASICWT4.7561+6 5.3412+7 5.3697+7 CONM2 109765 19765 12.896 CONM2 290070 200070 34.465 CONM2 290078 200078 22.740 CONM2 290079 200079 51.048 CONM2 290086 200086 60.052 CONM2 290087 200087 60.052 CONM2 290095 200095 64.933 CONM2 290096 200096 64.933 CONM2 290101 200101 57.277 CONM2 290106 200106 47.013 CONM2 290114 200114 66.626 CONM2 290121 200121 54.350 CONM2 290129 200129 13.810 CONM2 290137 200137 9.253 CONM2 290145 200145 12.065 CONM2 290153 200153 5.852 CONM2 290155 200155 6.124 CONM2 390153 200153 458.000 MR BLADE CONM2 490153 200153 489.500 MR HUB CONM2 9200070 200070 26.100 BASIC CRIGD1 200078 200078 189073 189077 211073 CRIGD1 353252 200078 200079 CRIGD1 353253 200079 200087 CRIGD1 353254 200087 200096 CRIGD2 2091 209 19765 1236 CRIGD2 2092 209 18983 12356 18987 12356 CRIGD2 2093 209 21183 12356 21187 12356 CRIGD2 2094 209 21485 234 CRIGD2 353255 200096 200101 123 CRIGD3 200078 200078 456 189073 1 189077 2 +CRG31 +CRG31 211073 3 +CRG32 +CRG32 MSET 211077 123456 214075 123456 CRIGDR 357000 19765 200078 3 EIGR 1000 GIV 15 +EIGR +EIGR MAX GRID 209 0 191.7117.001757 56.030010 GRID 18983 0 189.94 12.375 77.57 0 4 GRID 18987 0 189.94 -12.375 77.57 0 4 GRID 19765 0 196.90 .0 64.63 0 45 GRID 21183 0 211.72 12.375 77.57 0 4 GRID 21187 0 211.72 -12.375 77.57 0 4 GRID 21485 0 214.50 .0 77.57 0 156 GRID 189073 0 189.94 12.375 77.57 0 0 GRID 189077 0 189.94 -12.375 77.57 0 0 GRID 200070 0 200.00 .0 70.00 0 0 GRID 200078 0 200.00 .0 77.57 0 0 GRID 200079 0 200.00 .0 79.05 0 0 GRID 200086 0 200.00 .0 86.25 0 0 GRID 200087 0 200.00 .0 86.25 0 0 GRID 200095 0 200.00 .0 95.00 0 0 GRID 200096 0 200.00 .0 95.00 0 0 GRID 200101 0 200.00 .0 100.675 0 0 GRID 200106 0 200.00 .0 106.00 0 0 GRID 200114 0 200.00 .0 114.00 0 0 GRID 200121 0 200.00 .0 121.00 0 0 GRID 200129 0 200.00 .0 129.00 0 0 GRID 200137 0 200.00 .0 137.00 0 0 GRID 200145 0 200.00 .0 145.00 0 0 GRID 200153 0 200.00 .0 152.76 0 0 GRID 200155 0 200.00 .0 154.97 0 0 GRID 211073 0 211.72 12.375 77.57 0 0 GRID 211077 0 211.72 -12.375 77.57 0 0 GRID 214075 0 214.50 .0 77.57 0 0 MAT1 1 1.0+6 1.0+6 MAT1 10 1.0 1.0 MAT1 57 3.2+6 .8+6 .32 MAT1 76 3.2+6 .8+6 .32 MAT1 2014 10.5+6 4.0+6 MAT1 2024 10.5+6 4.0+6 MAT1 4130 29.0+6 11.0+6 MAT1 4340 29.0+6 11.0+6 MAT1 4620 29.0+6 11.0+6 MAT1 7075 10.3+6 3.9+6 MAT1 9046 17.5+6 6.5+6 OMIT 200070 456 OMIT 200078 456 OMIT 200086 456 OMIT 200095 456 OMIT 200101 456 OMIT 200106 456 OMIT 200114 456 OMIT 200121 456 OMIT 200129 456 OMIT 200137 456 OMIT 200145 456 OMIT 200153 456 OMIT 200155 456 PARAM GRDEQ 0 PARAM GRDPNT 0 PARAM WTMASS .00259 PBAR 353025 1 100. 1950. 1950. 1480. PBAR 450007 1 100. 120.07 120.07 91.088 SUPORT 209 123456 ENDDATA ================================================ FILE: inp/d03081a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3, Real Eigenvalue Analysis $ Vibration of a Helicopter Main Rotor Pylon on a Rigid Body Fuselage (3-8-1) $ $ A. Description $ $ The use of rigid elements in modeling a helicopter main rotor pylon on a rigid $ body fuselage is illustrated with this problem. $ $ The forces of multi point constraint created by the rigid elements are $ recovered using a rigid format alter and the EQMCK module (Reference 35). $ $ B. Input $ $ The details of this model are discussed in Reference 36. In addition to rigid $ elements, the finite element model utilizes bars, scalar springs, and $ concentrated masses. $ $ C. Results $ $ The computed normal mode frequencies and generalized masses are presented in $ Table 1. $ $ Table 1. Results for Helicopter Main Rotor Pylon $ on Rigid Body Fuselage $ ---------------------------------------------------------------- $ Mode 2 $ No. Natural Frequencies (Hz) Generalized Masses (lb-sec /in) $ ---------------------------------------------------------------- $ 1 0.0 23.088 $ $ 2 0.0 23.088 $ $ 3 0.0 23.088 $ $ 4 0.0 4.7452 $ $ 5 0.0 21.991 $ $ 6 0.0 3051.5 $ $ 7 2.987 3.058 $ $ 8 3.372 6.502 $ $ 9 24.47 .8486 $ $ 10 26.82 .8414 $ $ 11 61.54 .5886 $ $ 12 70.34 .4855 $ $ 13 113.3 .3867 $ $ 14 117.4 .3940 $ $ 15 165.6 1.257 $ ---------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 35. Universal Analytics, Inc.: NASTRAN DMAP Improvements, Matrix Conditioning, $ and Other Checks, NASA CR-144897, (undated). $ $ 36. Pamidi, P. R. and Cronkhite, J. D.: "Addition of Rigid Elements to $ NASTRAN", NASA CP-2018, October, 1977, pp. 449-468. $------------------------------------------------------------------------------- ================================================ FILE: inp/d03082a.inp ================================================ ID D03082A,NASTRAN APP DISPLACEMENT SOL 3,0 TIME 14 DIAG 21,22 CEND TITLE = HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1) LABEL = NORMAL MODES ANALYSIS USING RIGID ELEMENTS METHOD = 1000 OUTPUT ECHO = BOTH VECTOR = ALL MPCFORCE = ALL BEGIN BULK CBAR 3530251 353025 200070 200078 1.0 .0 .0 1 MR G/B CBAR 4500050 450007 200079 200086 1.0 .0 .0 1 MRBRG1 +MRBRG1 56 CBAR 4500070 450007 200086 200095 1.0 .0 .0 1 MR MAST CBAR 4500071 450007 200095 200101 1.0 .0 .0 1 MR MAST CBAR 4500072 450007 200101 200106 1.0 .0 .0 1 MR MAST CBAR 4500073 450007 200106 200114 1.0 .0 .0 1 MR MAST CBAR 4500074 450007 200114 200121 1.0 .0 .0 1 MR MAST CBAR 4500075 450007 200121 200129 1.0 .0 .0 1 MR MAST CBAR 4500076 450007 200129 200137 1.0 .0 .0 1 MR MAST CBAR 4500077 450007 200137 200145 1.0 .0 .0 1 MR MAST CBAR 4500078 450007 200145 200153 1.0 .0 .0 1 MR MAST CBAR 4500079 450007 200153 200155 1.0 .0 .0 1 MR MAST CELAS2 189831 28125. 189073 1 18983 1 FWD R X CELAS2 189832 28125. 189073 2 18983 2 FWD R Y CELAS2 189833 4500. 189073 3 18983 3 FWD R Z CELAS2 189871 28125. 189077 1 18987 1 FWD L X CELAS2 189872 28125. 189077 2 18987 2 FWD L Y CELAS2 189873 4500. 189077 3 18987 3 FWD L Z CELAS2 211831 28125. 211073 1 21183 1 AFT R X CELAS2 211832 28125. 211073 2 21183 2 AFT R Y CELAS2 211833 4500. 211073 3 21183 3 AFT R Z CELAS2 211871 28125. 211077 1 21187 1 AFT L X CELAS2 211872 28125. 211077 2 21187 2 AFT L Y CELAS2 211873 4500. 211077 3 21187 3 AFT L Z CELAS2 214853 20000. 214075 3 21485 3 AFT C Z CONM2 209 209 0 7297.399 BASICWT +BASICWT4.7561+6 5.3412+7 5.3697+7 CONM2 109765 19765 12.896 CONM2 290070 200070 34.465 CONM2 290078 200078 22.740 CONM2 290079 200079 51.048 CONM2 290086 200086 60.052 CONM2 290087 200087 60.052 CONM2 290095 200095 64.933 CONM2 290096 200096 64.933 CONM2 290101 200101 57.277 CONM2 290106 200106 47.013 CONM2 290114 200114 66.626 CONM2 290121 200121 54.350 CONM2 290129 200129 13.810 CONM2 290137 200137 9.253 CONM2 290145 200145 12.065 CONM2 290153 200153 5.852 CONM2 290155 200155 6.124 CONM2 390153 200153 458.000 MR BLADE CONM2 490153 200153 489.500 MR HUB CONM2 9200070 200070 26.100 BASIC CRIGD1 200078 200078 189073 189077 211073 CRIGD1 353252 200078 200079 CRIGD1 353253 200079 200087 CRIGD1 353254 200087 200096 CRIGD2 2091 209 19765 1236 CRIGD2 2092 209 18983 12356 18987 12356 CRIGD2 2093 209 21183 12356 21187 12356 CRIGD2 2094 209 21485 234 CRIGD2 353255 200096 200101 123 CRIGD3 200078 200078 456 189073 1 189077 2 +CRG31 +CRG31 211073 3 +CRG32 +CRG32 MSET 211077 123456 214075 123456 CRIGDR 357000 19765 200078 3 EIGR 1000 GIV 15 +EIGR +EIGR MAX GRID 209 0 191.7117.001757 56.030010 GRID 18983 0 189.94 12.375 77.57 0 4 GRID 18987 0 189.94 -12.375 77.57 0 4 GRID 19765 0 196.90 .0 64.63 0 45 GRID 21183 0 211.72 12.375 77.57 0 4 GRID 21187 0 211.72 -12.375 77.57 0 4 GRID 21485 0 214.50 .0 77.57 0 156 GRID 189073 0 189.94 12.375 77.57 0 0 GRID 189077 0 189.94 -12.375 77.57 0 0 GRID 200070 0 200.00 .0 70.00 0 0 GRID 200078 0 200.00 .0 77.57 0 0 GRID 200079 0 200.00 .0 79.05 0 0 GRID 200086 0 200.00 .0 86.25 0 0 GRID 200087 0 200.00 .0 86.25 0 0 GRID 200095 0 200.00 .0 95.00 0 0 GRID 200096 0 200.00 .0 95.00 0 0 GRID 200101 0 200.00 .0 100.675 0 0 GRID 200106 0 200.00 .0 106.00 0 0 GRID 200114 0 200.00 .0 114.00 0 0 GRID 200121 0 200.00 .0 121.00 0 0 GRID 200129 0 200.00 .0 129.00 0 0 GRID 200137 0 200.00 .0 137.00 0 0 GRID 200145 0 200.00 .0 145.00 0 0 GRID 200153 0 200.00 .0 152.76 0 0 GRID 200155 0 200.00 .0 154.97 0 0 GRID 211073 0 211.72 12.375 77.57 0 0 GRID 211077 0 211.72 -12.375 77.57 0 0 GRID 214075 0 214.50 .0 77.57 0 0 MAT1 1 1.0+6 1.0+6 MAT1 10 1.0 1.0 MAT1 57 3.2+6 .8+6 .32 MAT1 76 3.2+6 .8+6 .32 MAT1 2014 10.5+6 4.0+6 MAT1 2024 10.5+6 4.0+6 MAT1 4130 29.0+6 11.0+6 MAT1 4340 29.0+6 11.0+6 MAT1 4620 29.0+6 11.0+6 MAT1 7075 10.3+6 3.9+6 MAT1 9046 17.5+6 6.5+6 OMIT 200070 456 OMIT 200078 456 OMIT 200086 456 OMIT 200095 456 OMIT 200101 456 OMIT 200106 456 OMIT 200114 456 OMIT 200121 456 OMIT 200129 456 OMIT 200137 456 OMIT 200145 456 OMIT 200153 456 OMIT 200155 456 PARAM GRDEQ 0 PARAM GRDPNT 0 PARAM OPT 1 PARAM WTMASS .00259 PBAR 353025 1 100. 1950. 1950. 1480. PBAR 450007 1 100. 120.07 120.07 91.088 SUPORT 209 123456 ENDDATA ================================================ FILE: inp/d03082a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3, Real Eigenvalue Analysis $ Vibration of a Helicopter Main Rotor Pylon on a Rigid Body Fuselage (3-8-1) $ $ A. Description $ $ The use of rigid elements in modeling a helicopter main rotor pylon on a rigid $ body fuselage is illustrated with this problem. $ $ The forces of multi point constraint created by the rigid elements are $ recovered using a rigid format alter and the EQMCK module (Reference 35). $ $ B. Input $ $ The details of this model are discussed in Reference 36. In addition to rigid $ elements, the finite element model utilizes bars, scalar springs, and $ concentrated masses. $ $ C. Results $ $ The computed normal mode frequencies and generalized masses are presented in $ Table 1. $ $ Table 1. Results for Helicopter Main Rotor Pylon $ on Rigid Body Fuselage $ ---------------------------------------------------------------- $ Mode 2 $ No. Natural Frequencies (Hz) Generalized Masses (lb-sec /in) $ ---------------------------------------------------------------- $ 1 0.0 23.088 $ $ 2 0.0 23.088 $ $ 3 0.0 23.088 $ $ 4 0.0 4.7452 $ $ 5 0.0 21.991 $ $ 6 0.0 3051.5 $ $ 7 2.987 3.058 $ $ 8 3.372 6.502 $ $ 9 24.47 .8486 $ $ 10 26.82 .8414 $ $ 11 61.54 .5886 $ $ 12 70.34 .4855 $ $ 13 113.3 .3867 $ $ 14 117.4 .3940 $ $ 15 165.6 1.257 $ ---------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 35. Universal Analytics, Inc.: NASTRAN DMAP Improvements, Matrix Conditioning, $ and Other Checks, NASA CR-144897, (undated). $ $ 36. Pamidi, P. R. and Cronkhite, J. D.: "Addition of Rigid Elements to $ NASTRAN", NASA CP-2018, October, 1977, pp. 449-468. $------------------------------------------------------------------------------- ================================================ FILE: inp/d03083a.inp ================================================ ID D03083A,NASTRAN APP DISPLACEMENT SOL 3,0 TIME 14 DIAG 21,22 CEND TITLE = HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1) LABEL = NORMAL MODES ANALYSIS USING RIGID ELEMENTS METHOD = 1000 OUTPUT ECHO = BOTH VECTOR = ALL MPCFORCE = ALL BEGIN BULK CBAR 3530251 353025 200070 200078 1.0 .0 .0 1 MR G/B CBAR 4500050 450007 200079 200086 1.0 .0 .0 1 MRBRG1 +MRBRG1 56 CBAR 4500070 450007 200086 200095 1.0 .0 .0 1 MR MAST CBAR 4500071 450007 200095 200101 1.0 .0 .0 1 MR MAST CBAR 4500072 450007 200101 200106 1.0 .0 .0 1 MR MAST CBAR 4500073 450007 200106 200114 1.0 .0 .0 1 MR MAST CBAR 4500074 450007 200114 200121 1.0 .0 .0 1 MR MAST CBAR 4500075 450007 200121 200129 1.0 .0 .0 1 MR MAST CBAR 4500076 450007 200129 200137 1.0 .0 .0 1 MR MAST CBAR 4500077 450007 200137 200145 1.0 .0 .0 1 MR MAST CBAR 4500078 450007 200145 200153 1.0 .0 .0 1 MR MAST CBAR 4500079 450007 200153 200155 1.0 .0 .0 1 MR MAST CELAS2 189831 28125. 189073 1 18983 1 FWD R X CELAS2 189832 28125. 189073 2 18983 2 FWD R Y CELAS2 189833 4500. 189073 3 18983 3 FWD R Z CELAS2 189871 28125. 189077 1 18987 1 FWD L X CELAS2 189872 28125. 189077 2 18987 2 FWD L Y CELAS2 189873 4500. 189077 3 18987 3 FWD L Z CELAS2 211831 28125. 211073 1 21183 1 AFT R X CELAS2 211832 28125. 211073 2 21183 2 AFT R Y CELAS2 211833 4500. 211073 3 21183 3 AFT R Z CELAS2 211871 28125. 211077 1 21187 1 AFT L X CELAS2 211872 28125. 211077 2 21187 2 AFT L Y CELAS2 211873 4500. 211077 3 21187 3 AFT L Z CELAS2 214853 20000. 214075 3 21485 3 AFT C Z CONM2 209 209 0 7297.399 BASICWT +BASICWT4.7561+6 5.3412+7 5.3697+7 CONM2 109765 19765 12.896 CONM2 290070 200070 34.465 CONM2 290078 200078 22.740 CONM2 290079 200079 51.048 CONM2 290086 200086 60.052 CONM2 290087 200087 60.052 CONM2 290095 200095 64.933 CONM2 290096 200096 64.933 CONM2 290101 200101 57.277 CONM2 290106 200106 47.013 CONM2 290114 200114 66.626 CONM2 290121 200121 54.350 CONM2 290129 200129 13.810 CONM2 290137 200137 9.253 CONM2 290145 200145 12.065 CONM2 290153 200153 5.852 CONM2 290155 200155 6.124 CONM2 390153 200153 458.000 MR BLADE CONM2 490153 200153 489.500 MR HUB CONM2 9200070 200070 26.100 BASIC CRIGD1 200078 200078 189073 189077 211073 CRIGD1 353252 200078 200079 CRIGD1 353253 200079 200087 CRIGD1 353254 200087 200096 CRIGD2 2091 209 19765 1236 CRIGD2 2092 209 18983 12356 18987 12356 CRIGD2 2093 209 21183 12356 21187 12356 CRIGD2 2094 209 21485 234 CRIGD2 353255 200096 200101 123 CRIGD3 200078 200078 456 189073 1 189077 2 +CRG31 +CRG31 211073 3 +CRG32 +CRG32 MSET 211077 123456 214075 123456 CRIGDR 357000 19765 200078 3 EIGR 1000 GIV 15 +EIGR +EIGR MAX GRID 209 0 191.7117.001757 56.030010 GRID 18983 0 189.94 12.375 77.57 0 4 GRID 18987 0 189.94 -12.375 77.57 0 4 GRID 19765 0 196.90 .0 64.63 0 45 GRID 21183 0 211.72 12.375 77.57 0 4 GRID 21187 0 211.72 -12.375 77.57 0 4 GRID 21485 0 214.50 .0 77.57 0 156 GRID 189073 0 189.94 12.375 77.57 0 0 GRID 189077 0 189.94 -12.375 77.57 0 0 GRID 200070 0 200.00 .0 70.00 0 0 GRID 200078 0 200.00 .0 77.57 0 0 GRID 200079 0 200.00 .0 79.05 0 0 GRID 200086 0 200.00 .0 86.25 0 0 GRID 200087 0 200.00 .0 86.25 0 0 GRID 200095 0 200.00 .0 95.00 0 0 GRID 200096 0 200.00 .0 95.00 0 0 GRID 200101 0 200.00 .0 100.675 0 0 GRID 200106 0 200.00 .0 106.00 0 0 GRID 200114 0 200.00 .0 114.00 0 0 GRID 200121 0 200.00 .0 121.00 0 0 GRID 200129 0 200.00 .0 129.00 0 0 GRID 200137 0 200.00 .0 137.00 0 0 GRID 200145 0 200.00 .0 145.00 0 0 GRID 200153 0 200.00 .0 152.76 0 0 GRID 200155 0 200.00 .0 154.97 0 0 GRID 211073 0 211.72 12.375 77.57 0 0 GRID 211077 0 211.72 -12.375 77.57 0 0 GRID 214075 0 214.50 .0 77.57 0 0 MAT1 1 1.0+6 1.0+6 MAT1 10 1.0 1.0 MAT1 57 3.2+6 .8+6 .32 MAT1 76 3.2+6 .8+6 .32 MAT1 2014 10.5+6 4.0+6 MAT1 2024 10.5+6 4.0+6 MAT1 4130 29.0+6 11.0+6 MAT1 4340 29.0+6 11.0+6 MAT1 4620 29.0+6 11.0+6 MAT1 7075 10.3+6 3.9+6 MAT1 9046 17.5+6 6.5+6 OMIT 200070 456 OMIT 200078 456 OMIT 200086 456 OMIT 200095 456 OMIT 200101 456 OMIT 200106 456 OMIT 200114 456 OMIT 200121 456 OMIT 200129 456 OMIT 200137 456 OMIT 200145 456 OMIT 200153 456 OMIT 200155 456 PARAM GRDEQ 0 PARAM GRDPNT 0 PARAM OPT -1 PARAM WTMASS .00259 PBAR 353025 1 100. 1950. 1950. 1480. PBAR 450007 1 100. 120.07 120.07 91.088 SUPORT 209 123456 ENDDATA ================================================ FILE: inp/d03083a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 3, Real Eigenvalue Analysis $ Vibration of a Helicopter Main Rotor Pylon on a Rigid Body Fuselage (3-8-1) $ $ A. Description $ $ The use of rigid elements in modeling a helicopter main rotor pylon on a rigid $ body fuselage is illustrated with this problem. $ $ The forces of multi point constraint created by the rigid elements are $ recovered using a rigid format alter and the EQMCK module (Reference 35). $ $ B. Input $ $ The details of this model are discussed in Reference 36. In addition to rigid $ elements, the finite element model utilizes bars, scalar springs, and $ concentrated masses. $ $ C. Results $ $ The computed normal mode frequencies and generalized masses are presented in $ Table 1. $ $ Table 1. Results for Helicopter Main Rotor Pylon $ on Rigid Body Fuselage $ ---------------------------------------------------------------- $ Mode 2 $ No. Natural Frequencies (Hz) Generalized Masses (lb-sec /in) $ ---------------------------------------------------------------- $ 1 0.0 23.088 $ $ 2 0.0 23.088 $ $ 3 0.0 23.088 $ $ 4 0.0 4.7452 $ $ 5 0.0 21.991 $ $ 6 0.0 3051.5 $ $ 7 2.987 3.058 $ $ 8 3.372 6.502 $ $ 9 24.47 .8486 $ $ 10 26.82 .8414 $ $ 11 61.54 .5886 $ $ 12 70.34 .4855 $ $ 13 113.3 .3867 $ $ 14 117.4 .3940 $ $ 15 165.6 1.257 $ ---------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 35. Universal Analytics, Inc.: NASTRAN DMAP Improvements, Matrix Conditioning, $ and Other Checks, NASA CR-144897, (undated). $ $ 36. Pamidi, P. R. and Cronkhite, J. D.: "Addition of Rigid Elements to $ NASTRAN", NASA CP-2018, October, 1977, pp. 449-468. $------------------------------------------------------------------------------- ================================================ FILE: inp/d04011a.inp ================================================ ID D04011A,NASTRAN APP DISP SOL 4,0 TIME 10 CEND TITLE = DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A LABEL = INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY DISP = ALL SPCF = ALL LOAD = 32 SPC = 2 STRESS = ALL FORCE = ALL SUBCASE 1 OLOAD = ALL LABEL = LINEAR SOLUTION SUBCASE 2 LABEL = NONLINEAR SOLUTION BEGIN BULK BAROR -1.2 1.0 0.0 1 CBAR 10 10 10 11 CBAR 11 10 11 12 CBAR 12 10 12 13 CBAR 13 10 13 14 CBAR 14 10 14 15 CBAR 15 10 15 16 CBAR 16 10 16 17 CBAR 17 10 17 18 CBAR 18 10 18 19 CORD2C 10 0 .0 .0 .0 .0 .0 1.0 +CS1 +CS1 1.0 .0 .0 GRAV 32 0 32.2 0.0 1.0 .0 GRDSET 10 0 345 GRID 10 10.0 .0 GRID 11 10.0 10.0 GRID 12 10.0 20.0 GRID 13 10.0 30.0 GRID 14 10.0 40.0 GRID 15 10.0 50.0 GRID 16 10.0 60.0 GRID 17 10.0 70.0 GRID 18 10.0 80.0 GRID 19 10.0 90.0 MAT1 1 5.5+5 .3 .4 PARAM BETAD 8 DIFFSTIF PARAM EPSIO 1.0-5 DIFFSTIF PARAM NT 18 DIFFSTIF PBAR 10 1 .1 1.0-6 1.0-6 SPC 2 10 12 .0 19 1 .0 ENDDATA ================================================ FILE: inp/d04011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 4, Differential Stiffness Analysis $ Differential Stiffness Analysis for a Hanging Cable (4-1-1) $ $ A. Description $ $ NASTRAN provides an iteration procedure for nonlinear differential stiffness $ (or geometric stiffness) solutions. As described in Section 7 of the NASTRAN $ Theoretical Manual, the internal loads are recalculated for each iteration. $ The changes in direction of these internal loads are used to correct the $ previous solution. External loads retain their original orientation; however, $ they do travel with the grid point. $ $ A classical nonlinear geometric problem is that of a hanging cable which $ assumes the shape of a catenary when a uniform gravity load is applied. The $ model is given a circular shape initially. The resulting displacements of the $ grid points, when added to their original locations, provide a close $ approximation to the catenary. $ $ B. Input $ $ The NASTRAN model consists of nine BAR elements connected to ten GRID points $ evenly spaced on a quarter circle. The bending stiffness of the elements is a $ nominally small value necessary to provide a non-singular, linear solution. $ $ The axial stiffness of the elements is a sufficiently large value to limit $ extensional displacements. The basic parameters are $ $ R = 10.0 ft (initial radius) $ $ w = 1.288 lb/ft (Height per length) $ $ L = 5 pi $ $ C. Theory $ $ The coordinate positions of the initial circular shape are defined by the $ equations $ $ x = R cos theta (1) $ $ y = R sin theta (2) $ $ s = R theta (3) $ $ where s is the arc length and is measured in radians. Solving Equation (3) for $ theta and substituting into Equations (1) and (2), the expressions for the $ circular shape are $ _ $ x = R cos (s/R) (4) $ _ $ y = R sin (s/R) (5) $ $ The differential equation for the deformed shape (see Reference 25) is $ $ dy' w 2 1/2 $ --- = - ( 1 + (y') ) (6) $ dx H $ $ where $ $ w is the weight per unit length $ $ H is the tension at x = 0, $ $ y' = dy/dx is the slope of the resulting curve $ $ Dividing both sides of Equation (6) by the radical term and integrating, $ results in the equation $ $ -1 wx $ sinh y' = -- + C (7) $ H 1 $ $ Since y' = 0 at x = 0 and C = a, then $ 1 $ $ wx $ y' = sinh ( -- ) (8) $ H $ $ Integrating again and applying the known boundary condition y = 0 at x = 0, $ the equation for the shape is $ $ H wx $ y = - [ cosh -- -1 ] (9) $ W H $ $ Since the length of the cable is known but the horizontal force H is unknown, $ the two may be related by integrating for the arc length L which is $ $ wx $ H o $ L = - sinh --- (10) $ w H $ $ $ where x is one-half the distance between supports. If w, x , and L are given, $ o o $ Equation (10) is solved for H (for x = 10.0, w/H = .1719266) and Equation (9) $ o $ is evaluated to obtain the actual shape. However, for a given position s along $ the cable, the coordinates x and y would be $ $ H -1 ws $ x = - sinh ( -- ) (11) $ w H $ $ H ws 2 1/2 $ y = - [ ( 1 + ( -- ) ) - 1 ] (12) $ w H $ $ The location of points on the initial circular shape are defined in the $ coordinate system used for the deflected shape using $ _ $ x = x (13) $ o $ _ $ y = R - y (14) $ o $ $ The deflections of points on the cable are computed with the equations $ $ u = x - x (15) $ x o $ $ u = y - y (16) $ y o $ $ D. Results $ $ NASTRAN and theoretical results are presented In Table 1 below. Deflections $ are measured from the initial shape at selected locations. $ $ Table 1. Comparison of NASTRAN Results to Theoretical Predictions $ ---------------------------------------------------------------------- $ u - Horizontal u - Vertical $ Grid x y $ Point s theta Theory NASTRAN Theory NASTRAN $ ---------------------------------------------------------------------- $ 11 13.962 10 -.4856 -.4739 -.1119 -.0408 $ $ 13 10.472 30 -.8043 -.7666 -.2286 -.1269 $ $ 15 6.981 50 -.5175 -.4612 .0030 .1470 $ $ 17 3.491 70 -.1110 -.0877 .5698 .7973 $ $ 19 .0 90 .0 .0 .9338 1.2167 $ ---------------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 25. Spiegel, Murray R.: Applied Differential Equations. Prentice-Hall, Inc., $ 1958, pp. 105-108. $------------------------------------------------------------------------------- ================================================ FILE: inp/d05011a.inp ================================================ NASTRAN FILES=PLT2 ID D05011A,NASTRAN APP DISPLACEMENT SOL 5,1 TIME 26 CEND TITLE = SYMMETRIC BUCKLING OF A CYLINDER SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A SPC = 1 OUTPUT SET 1 = 1 THRU 33 SET 2 = 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62,66,70, 74,78 DISPLACEMENTS = 1 SPCFORCE = ALL ELFORCE = 2 ELSTRESS = 2 $ SUBCASE 1 LABEL = STATIC SOLUTION LOAD = 100 OUTPUT OLOAD = ALL $ SUBCASE 2 LABEL = BUCKLING SOLUTION METHOD = 300 $ $ PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A OUTPUT(PLOT) PLOTTER NASTPLT SET 1 INCLUDE TRIA1 $ PERSPECTIVE PROJECTION AXES Y, X, MZ MAXIMUM DEFORMATION 3.0 FIND SCALE,ORIGIN 1, VANTAGE POINT PTITLE = PERSPECTIVE VIEW OF MODEL PLOT LABELS,SYMBOLS 6,5 $ ORTHOGRAPHIC PROJECTION MAXIMUM DEFORMATION 3.0 FIND SCALE, ORIGIN 2 PTITLE = STATIC LOAD UNDERLAY OF CYLINDRICAL SURFACE PLOT STATIC DEFORMATION 0,1, ORIGIN 2, LABELS, SHAPE PTITLE = MODE SHAPES OF CYLINDRICAL SURFACE WITH VECTORS PLOT MODAL DEFORMATION 2, RANGE 0.5, 3.0, ORIGIN 2, VECTOR R, SYMBOLS 5,6 VIEW 0.0, 0.0, 0.0 FIND SCALE, ORIGIN 1 PTITLE = LONGITUDINAL EDGE VIEW SHOWING BUCKLING MODES PLOT MODAL DEFORMATION 0,2, RANGE 0.0, 200.0, ORIGIN 1, SHAPE BEGIN BULK CNGRNT 1 5 9 13 17 21 25 29 +CNG11 +CNG11 33 37 41 45 49 53 57 61 +CNG12 +CNG12 65 69 73 77 CNGRNT 2 6 10 14 18 22 26 30 +CNG21 +CNG21 34 38 42 46 50 54 58 62 +CNG22 +CNG22 66 70 74 78 CNGRNT 3 7 11 15 19 23 27 31 +CNG31 +CNG31 35 39 43 47 51 55 59 63 +CNG32 +CNG32 67 71 75 79 CNGRNT 4 8 12 16 20 24 28 32 +CNG41 +CNG41 36 40 44 48 52 56 60 64 +CNG42 +CNG42 68 72 76 80 CORD2C 100 0 25.0 .0 80.0 50.0 .0 80.0 +CORD100 +CORD10025.0 .0 .0 CTRIA1 1 200 1 2 51 .0 CTRIA1 2 200 1 4 51 .0 CTRIA1 3 200 4 5 51 .0 CTRIA1 4 200 5 2 51 .0 CTRIA1 5 200 2 3 52 .0 CTRIA1 6 200 2 5 52 .0 CTRIA1 7 200 5 6 52 .0 CTRIA1 8 200 6 3 52 .0 CTRIA1 9 200 4 5 54 .0 CTRIA1 10 200 4 7 54 .0 CTRIA1 11 200 7 8 54 .0 CTRIA1 12 200 8 5 54 .0 CTRIA1 13 200 5 6 55 .0 CTRIA1 14 200 5 8 55 .0 CTRIA1 15 200 8 9 55 .0 CTRIA1 16 200 9 6 55 .0 CTRIA1 17 200 7 8 57 .0 CTRIA1 18 200 7 10 57 .0 CTRIA1 19 200 10 11 57 .0 CTRIA1 20 200 11 8 57 .0 CTRIA1 21 200 8 9 58 .0 CTRIA1 22 200 8 11 58 .0 CTRIA1 23 200 11 12 58 .0 CTRIA1 24 200 12 9 58 .0 CTRIA1 25 200 10 11 60 .0 CTRIA1 26 200 10 13 60 .0 CTRIA1 27 200 13 14 60 .0 CTRIA1 28 200 14 11 60 .0 CTRIA1 29 200 11 12 61 .0 CTRIA1 30 200 11 14 61 .0 CTRIA1 31 200 14 15 61 .0 CTRIA1 32 200 15 12 61 .0 CTRIA1 33 200 13 14 63 .0 CTRIA1 34 200 13 16 63 .0 CTRIA1 35 200 16 17 63 .0 CTRIA1 36 200 17 14 63 .0 CTRIA1 37 200 14 15 64 .0 CTRIA1 38 200 14 17 64 .0 CTRIA1 39 200 17 18 64 .0 CTRIA1 40 200 18 15 64 .0 CTRIA1 41 200 16 17 66 .0 CTRIA1 42 200 16 19 66 .0 CTRIA1 43 200 19 20 66 .0 CTRIA1 44 200 20 17 66 .0 CTRIA1 45 200 17 18 67 .0 CTRIA1 46 200 17 20 67 .0 CTRIA1 47 200 20 21 67 .0 CTRIA1 48 200 21 18 67 .0 CTRIA1 49 200 19 20 69 .0 CTRIA1 50 200 19 22 69 .0 CTRIA1 51 200 22 23 69 .0 CTRIA1 52 200 23 20 69 .0 CTRIA1 53 200 20 21 70 .0 CTRIA1 54 200 20 23 70 .0 CTRIA1 55 200 23 24 70 .0 CTRIA1 56 200 24 21 70 .0 CTRIA1 57 200 22 23 72 .0 CTRIA1 58 200 22 25 72 .0 CTRIA1 59 200 25 26 72 .0 CTRIA1 60 200 26 23 72 .0 CTRIA1 61 200 23 24 73 .0 CTRIA1 62 200 23 26 73 .0 CTRIA1 63 200 26 27 73 .0 CTRIA1 64 200 27 24 73 .0 CTRIA1 65 200 25 26 75 .0 CTRIA1 66 200 25 28 75 .0 CTRIA1 67 200 28 29 75 .0 CTRIA1 68 200 29 26 75 .0 CTRIA1 69 200 26 27 76 .0 CTRIA1 70 200 26 29 76 .0 CTRIA1 71 200 29 30 76 .0 CTRIA1 72 200 30 27 76 .0 CTRIA1 73 200 28 29 78 .0 CTRIA1 74 200 28 31 78 .0 CTRIA1 75 200 31 32 78 .0 CTRIA1 76 200 32 29 78 .0 CTRIA1 77 200 29 30 79 .0 CTRIA1 78 200 29 32 79 .0 CTRIA1 79 200 32 33 79 .0 CTRIA1 80 200 33 30 79 .0 EIGB 300 UDET .10 2.5 4 4 0 1.5E-05 +EIGB300 +EIGB300MAX FORCE 1 1 100 1.0+3 .0 .0 .5 FORCE 1 2 100 1.0+3 .0 .0 1.0 FORCE 1 3 100 1.0+3 .0 .0 .5 FORCE 1 31 100 1.0+3 .0 .0 -0.5 FORCE 1 32 100 1.0+3 .0 .0 -1.0 FORCE 1 33 100 1.0+3 .0 .0 -0.5 GRDSET 462 GRID 1 100 80.0 -3.0 -25.0 100 GRID 2 100 80.0 .0 -25.0 100 GRID 3 100 80.0 3.0 -25.0 100 GRID 4 100 80.0 -3.0 -20.0 100 GRID 5 100 80.0 .0 -20.0 100 GRID 6 100 80.0 3.0 -20.0 100 GRID 7 100 80.0 -3.0 -15.0 100 GRID 8 100 80.0 .0 -15.0 100 GRID 9 100 80.0 3.0 -15.0 100 GRID 10 100 80.0 -3.0 -10.0 100 GRID 11 100 80.0 .0 -10.0 100 GRID 12 100 80.0 3.0 -10.0 100 GRID 13 100 80.0 -3.0 -05.0 100 GRID 14 100 80.0 .0 -05.0 100 GRID 15 100 80.0 3.0 -05.0 100 GRID 16 100 80.0 -3.0 +0.0 100 GRID 17 100 80.0 .0 +0.0 100 GRID 18 100 80.0 3.0 +0.0 100 GRID 19 100 80.0 -3.0 +5.0 100 GRID 20 100 80.0 .0 +5.0 100 GRID 21 100 80.0 3.0 +5.0 100 GRID 22 100 80.0 -3.0 10.0 100 GRID 23 100 80.0 .0 10.0 100 GRID 24 100 80.0 3.0 10.0 100 GRID 25 100 80.0 -3.0 15.0 100 GRID 26 100 80.0 .0 15.0 100 GRID 27 100 80.0 3.0 15.0 100 GRID 28 100 80.0 -3.0 20.0 100 GRID 29 100 80.0 .0 20.0 100 GRID 30 100 80.0 3.0 20.0 100 GRID 31 100 80.0 -3.0 25.0 100 GRID 32 100 80.0 .0 25.0 100 GRID 33 100 80.0 3.0 25.0 100 GRID 51 100 80.0 -1.5 -22.5 100 GRID 52 100 80.0 1.5 -22.5 100 GRID 54 100 80.0 -1.5 -17.5 100 GRID 55 100 80.0 1.5 -17.5 100 GRID 57 100 80.0 -1.5 -12.5 100 GRID 58 100 80.0 1.5 -12.5 100 GRID 60 100 80.0 -1.5 -07.5 100 GRID 61 100 80.0 1.5 -07.5 100 GRID 63 100 80.0 -1.5 -02.5 100 GRID 64 100 80.0 1.5 -02.5 100 GRID 66 100 80.0 -1.5 2.5 100 GRID 67 100 80.0 1.5 2.5 100 GRID 69 100 80.0 -1.5 7.5 100 GRID 70 100 80.0 1.5 7.5 100 GRID 72 100 80.0 -1.5 12.5 100 GRID 73 100 80.0 1.5 12.5 100 GRID 75 100 80.0 -1.5 17.5 100 GRID 76 100 80.0 1.5 17.5 100 GRID 78 100 80.0 -1.5 22.5 100 GRID 79 100 80.0 1.5 22.5 100 LOAD 100 1.0 1.89745 1 MAT1 400 10000.00 .0 PARAM IRES 1 PTRIA1 200 400 2.5 400 1.30208 +PTRIA1* +PTRIA1*1.51022 0.00 SEQGP 51 2.5 52 3.5 54 5.5 55 6.5 SEQGP 57 8.5 58 9.5 60 11.5 61 12.5 SEQGP 63 14.5 64 15.5 66 17.5 67 18.5 SEQGP 69 20.5 70 21.5 72 23.5 73 24.5 SEQGP 75 26.5 76 27.5 78 29.5 79 30.5 SPC 50038 17 3 .0 SPC1 50037 1 1 2 3 31 32 33 SPCADD 1 50037 50038 ENDDATA ================================================ FILE: inp/d05011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 5, Buckling Analysis $ Symmetric Buckling of a Cylinder (5-1-1) $ $ A. Description $ $ This problem demonstrates the use of buckling analysis to extract the critical $ loads and the resulting displacements of a cylinder under axial loads. The $ Buckling Analysis rigid format solves the statics problem to obtain the $ internal loads in the elements. The internal loads define the differential $ d $ stiffness matrix [K ], which is proportional to the applied load. The load $ factors, lambda , which cause buckling are defined by the equation: $ i $ $ d $ [lambda [K ] + [K]] {u } = 0 (1) $ i i $ $ where [K] is the linear stiffness matrix. This equation is solved by the real $ eigenvalue analysis methods for positive values of lambda . The vectors {u } $ i i $ are treated in the same manner as in real eigenvalue analysis. $ $ The problem consists of a short, large radius cylinder under a purely axial $ compression load. A section of arc of 6 degrees is used to model the $ axisymmetric motions of the whole cylinder. $ $ All three types of structure plots are requested: undeformed, static, and $ modal deformed. The undeformed perspective plot is fully labeled for checkout $ of the problem. The modal orthographic plots specify a range of vectors {u } $ i $ which includes all roots. A longitudinal edge view of the model is also $ plotted for easy identification of mode shapes. $ $ B. Input $ $ 1. Parameters: $ $ R = 80 (Radius) $ $ h = 50 (Height) $ $ 4 $ E = 1.0 x 10 (Modulus of elasticity) $ $ v = 0.0 (Poisson's ratio) $ $ t = 2.5 (Thickness) $ $ I = 1.30208 (Bending inertia) $ b $ $ 2. Loads: $ 3 $ p = 1.89745 x 10 /3 deg. ARC $ $ 3. Constraints: $ $ a) The center point (17) is constrained in u . $ z $ $ c) All points are constrained in u , theta , and theta . $ theta r z $ $ d) The top and bottom edges are constrained in u . $ r $ $ 4. Eigenvalue Extraction Data: $ $ a) Method: Unsymmetrical Determinant $ $ b) Region of Interest: .10 < lambda < 2.5 $ $ c) Number of estimated roots = 4 $ $ d) Number of desired roots = 4 $ $ e) Normalization: Maximum deflection $ $ C. Results $ $ The solution to this problem is derived In Reference 9, p. 439. For $ axisymmetric buckling, the number of half-waves which occur when the shell $ buckles at minimum load are: $ $ 2 $ ~ h 12 (1-v ) $ m = -- 4th root of ( --------- ) (2) $ pi 2 2 $ R t $ $ where m is the closest integer to the right-hand values. $ $ The corresponding critical stress is: $ $ 2 2 2 2 $ Et m pi Eh $ sigma = --------- + ------- (3) $ cr 2 2 2 2 2 $ 12h (1-v ) R m pi $ $ Using the values given, the lowest buckling mode consists of a full sine wave. $ The NASTRAN results and the theoretical solutions for the critical load for $ each buckling mode are listed below: $ $ --------------------------------- $ Number of $ Half Waves $ m NASTRAN ANALYTICAL $ --------------------------------- $ 1 2.2889 2.2978 $ 2 .99424 1.0 $ 3 1.2744 1.26402 $ 4 2.0070 1.86420 $ --------------------------------- $ $ APPLICABLE REFERENCES $ $ 9. S. Timoshenko, THEORY OF ELASTIC STABILITY. MGraw-Hi11, 1936. $------------------------------------------------------------------------------- ================================================ FILE: inp/d05021a.inp ================================================ ID D05021A,NASTRAN APP DISPLACEMENT SOL 5,0 TIME 10 CEND TITLE = BUCKLING OF A TAPERED COLUMN FIXED AT THE BASE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A LABEL = CONCENTRATED LOAD AT THE CENTER ALONG Y-AXIS OUTPUT DISP = ALL ELSTRESS = ALL SPC = 2 SUBCASE 1 LABEL = STATIC SOLUTION LOAD = 3 OLOAD = ALL SUBCASE 2 LABEL = BUCKLING SOLUTION METHOD= 4 BEGIN BULK CTRSHL 1 6 1 2 3 5 7 4 +TR1 +TR1 CTRSHL 2 7 9 8 7 5 3 6 +TR2 +TR2 CTRSHL 3 8 7 8 9 11 13 10 +TR3 +TR3 CTRSHL 4 9 15 14 13 11 9 12 +TR4 +TR4 EIGB 4 INV .0 10.0 1 1 0 +ABC +ABC MAX FORCE 3 13 1.6666+2 -1.0 FORCE 3 14 6.6666+2 -1.0 FORCE 3 15 1.6666+2 -1.0 GRDSET 56 GRID 1 .0 .0 .0 GRID 2 GRID 3 1.495349.0 .0 GRID 4 GRID 5 GRID 6 GRID 7 .0 1.5 .0 GRID 8 GRID 9 1.2476741.5 .0 GRID 10 GRID 11 GRID 12 GRID 13 .0 3.0 .0 GRID 14 GRID 15 1.0 3.0 .0 MAT1 5 3.0+7 1.5+7 PTRSHL 6 5 2.990698 2.4953485 2.229135 +PT1 +PT1 1.294828 +PT2 +PT2 PTRSHL 7 5 2.495348 2.9906985 1.294828 +PT3 +PT3 2.229135 +PT4 +PT4 PTRSHL 8 5 2.495348 2.0 5 1.294828 +PT5 +PT5 .666667 +PT6 +PT6 PTRSHL 9 5 2.0 2.4953485 .666667 +PT7 +PT7 1.294828 +PT8 +PT8 SPC1 2 1 4 7 10 13 SPC1 2 1234 1 2 3 ENDDATA ================================================ FILE: inp/d05021a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 5, Buckling Analysis $ Buckling of a Tapered Column Fixed at the Base (5-2-1) $ $ A. Description $ $ A buckling analysis of a tapered column fixed at the base is presented. The $ shallow shell element TRSHL, with membrane and bending stiffness combined, is $ utilized for modeling the column. (See Reference 31, pp. 190-194). Note that a $ vertical plane of symmetry is utilized, allowing the model to represent only $ half the structure. $ $ B. Input $ $ 1. Parameters: $ $ 7 2 $ E = 3.0 x 10 pounds/inch (Young's modulus) $ $ 7 2 $ G = 1.5 x 10 pounds/inch (Shear modulus) $ $ L = 3.0 inches (Height) $ $ a = 6.056 inches (Length) $ $ The area moment of inertia at any cross section is expressed as $ $ x 4 $ I = I ( - ) (1) $ x 1 a $ $ I and I are the moments of inertia at the top (x=a) and bottom (x=0) $ 1 2 $ of the column respectively and I /I = 0.2. For this problem 3I = 2 and $ 1 2 1 $ 3I = 10. The thickness varies linearly from the top (t = 2.0) to the $ 2 $ bottom (t = 3.0) of the column. $ $ 2. Constraints: $ $ theta , theta = 0 (All grid points) $ y z $ $ x, y, z, theta = 0 (Grids 1, 2, and 3) $ x $ x = 0 (Grids 4, 7, 10, 13) $ $ 3. Loads: $ $ F = -166.66 (Grids 13 and 15) $ y $ $ F = -666.66 (Grid 14) $ y $ $ The theoretical solution to this problem is developed on pages 125-130 of $ Reference 23. The reference defines the buckling factor as $ $ 2 $ P L $ cr $ lambda = ------ (2) $ EI $ 2 $ $ where, for this problem, lambda = 1.505. $ $ D. Results $ $ NASTRAN results for this problem, as modeled with the TRSHL element, are $ presented below. $ $ --------------------------------- $ 2 $ P L $ cr $ Buckling Factor lambda = ------ $ EI $ 2 $ --------------------------------- $ TRSHL Theory $ --------------------------------- $ 1.543 1.505 $ --------------------------------- $ $ APPLICABLE REFERENCES $ $ 23. Timoshenko, S. P., Theory of Elastic Stability, McGraw-Hill, 1961, p 159. $ $ 31. Narayanaswami, R.: Addition of Higher Order Plate and Shell Elements into $ NASTRAN Computer Program, Technical Report 76-T19, Old Dominion University $ Research Foundation, Norfolk, Virginia, December, 1976. $------------------------------------------------------------------------------- ================================================ FILE: inp/d06011a.inp ================================================ ID D06011A,NASTRAN APP DISPLACEMENT TIME 100 SOL 6,1 CEND TITLE = PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A MAXLINES = 50000 $ ECHO = NONE SPC = 10 LOAD = 600 PLCOEFFICIENT = 23 OUTPUT $ SET 1 = 1 THRU 26,42,43,50,77,107,137,167,195,222,249,272,293,341,347, 348 SET 2 = 1 THRU 36, 196, 200 $ DISPLACEMENT = 2 OLOAD = ALL SPCFORCE = ALL STRESS = 1 BEGIN BULK CTRMEM 1 1 7 8 9 CTRMEM 2 1 8 12 9 CTRMEM 3 1 9 10 12 CTRMEM 4 1 10 11 12 CTRMEM 5 1 12 13 11 CTRMEM 6 1 13 14 11 CTRMEM 7 1 15 16 1 CTRMEM 8 1 1 2 16 CTRMEM 9 1 16 17 2 CTRMEM 10 1 2 3 17 CTRMEM 11 1 17 18 3 CTRMEM 12 1 3 4 18 CTRMEM 13 1 18 19 4 CTRMEM 14 1 19 20 4 CTRMEM 15 1 4 5 20 CTRMEM 16 1 5 6 20 CTRMEM 17 1 20 21 6 CTRMEM 18 1 21 22 6 CTRMEM 19 1 6 7 22 CTRMEM 20 1 7 22 9 90.0 CTRMEM 21 1 22 23 9 CTRMEM 22 1 9 10 23 CTRMEM 23 1 10 11 23 CTRMEM 24 1 23 24 11 CTRMEM 25 1 14 24 11 90.0 CTRMEM 26 1 14 26 24 CTRMEM 27 1 24 25 26 CTRMEM 28 1 15 16 27 CTRMEM 29 1 27 28 16 CTRMEM 30 1 16 17 28 CTRMEM 31 1 28 29 17 CTRMEM 32 1 17 18 29 CTRMEM 33 1 29 30 18 CTRMEM 34 1 18 19 30 CTRMEM 35 1 19 20 30 CTRMEM 36 1 30 31 20 CTRMEM 37 1 31 32 20 CTRMEM 38 1 20 21 32 CTRMEM 39 1 21 22 32 CTRMEM 40 1 32 33 22 CTRMEM 41 1 33 34 22 CTRMEM 42 1 22 23 34 CTRMEM 43 1 23 24 34 CTRMEM 44 1 34 35 24 CTRMEM 45 1 35 36 24 CTRMEM 46 1 24 25 36 CTRMEM 47 1 25 38 36 CTRMEM 48 1 36 37 38 CTRMEM 49 1 25 38 26 CTRMEM 50 1 26 39 38 CTRMEM 51 1 40 41 27 CTRMEM 52 1 27 28 41 CTRMEM 53 1 41 42 28 CTRMEM 54 1 28 29 42 CTRMEM 55 1 42 43 29 CTRMEM 56 1 29 30 43 CTRMEM 57 1 43 44 30 CTRMEM 58 1 44 45 30 CTRMEM 59 1 30 31 45 CTRMEM 60 1 31 32 45 CTRMEM 61 1 45 46 32 CTRMEM 62 1 46 47 32 CTRMEM 63 1 32 33 47 CTRMEM 64 1 33 34 47 CTRMEM 65 1 47 48 34 CTRMEM 66 1 48 49 34 CTRMEM 67 1 34 35 49 CTRMEM 68 1 35 36 49 CTRMEM 69 1 49 50 36 CTRMEM 70 1 50 51 36 CTRMEM 71 1 36 37 51 CTRMEM 72 1 37 53 51 CTRMEM 73 1 51 52 53 CTRMEM 74 1 37 53 38 CTRMEM 75 1 38 54 53 CTRMEM 76 1 38 54 55 CTRMEM 77 1 39 55 38 CTRMEM 78 1 40 41 56 CTRMEM 79 1 56 57 41 CTRMEM 80 1 41 42 57 CTRMEM 81 1 57 58 42 CTRMEM 82 1 42 43 58 CTRMEM 83 1 58 59 43 CTRMEM 84 1 43 44 59 CTRMEM 85 1 44 45 59 CTRMEM 86 1 59 60 45 CTRMEM 87 1 60 61 45 CTRMEM 88 1 45 46 61 CTRMEM 89 1 46 47 61 CTRMEM 90 1 61 62 47 CTRMEM 91 1 62 63 47 CTRMEM 92 1 47 48 63 CTRMEM 93 1 48 49 63 CTRMEM 94 1 63 64 49 CTRMEM 95 1 64 65 49 CTRMEM 96 1 49 50 65 CTRMEM 97 1 50 51 65 CTRMEM 98 1 65 66 51 CTRMEM 99 1 66 67 51 CTRMEM 100 1 51 52 67 CTRMEM 101 1 52 69 67 CTRMEM 102 1 67 68 69 CTRMEM 103 1 52 69 53 CTRMEM 104 1 70 69 53 90.0 CTRMEM 105 1 54 70 53 CTRMEM 106 1 54 70 55 CTRMEM 107 1 55 71 70 CTRMEM 108 1 72 73 56 CTRMEM 109 1 56 57 73 CTRMEM 110 1 73 74 57 CTRMEM 111 1 57 58 74 CTRMEM 112 1 74 75 58 CTRMEM 113 1 58 59 75 CTRMEM 114 1 75 76 59 CTRMEM 115 1 59 60 76 CTRMEM 116 1 60 61 76 CTRMEM 117 1 76 77 61 CTRMEM 118 1 77 78 61 CTRMEM 119 1 61 62 78 CTRMEM 120 1 62 63 78 CTRMEM 121 1 78 79 63 CTRMEM 122 1 79 80 63 CTRMEM 123 1 63 64 80 CTRMEM 124 1 64 65 80 CTRMEM 125 1 80 81 65 CTRMEM 126 1 81 82 65 CTRMEM 127 1 65 66 82 CTRMEM 128 1 66 67 82 CTRMEM 129 1 82 83 67 CTRMEM 130 1 83 84 67 CTRMEM 131 1 67 68 84 CTRMEM 132 1 68 85 84 CTRMEM 133 1 68 85 69 CTRMEM 134 1 86 85 69 90.0 CTRMEM 135 1 70 69 86 90.0 CTRMEM 136 1 87 86 70 90.0 CTRMEM 137 1 71 87 70 CTRMEM 138 1 72 73 88 CTRMEM 139 1 88 89 73 CTRMEM 140 1 73 74 89 CTRMEM 141 1 89 90 74 CTRMEM 142 1 74 75 90 CTRMEM 143 1 90 91 75 CTRMEM 144 1 75 76 91 CTRMEM 145 1 91 92 76 CTRMEM 146 1 76 77 92 CTRMEM 147 1 77 78 92 CTRMEM 148 1 92 93 78 CTRMEM 149 1 93 94 78 CTRMEM 150 1 78 79 94 CTRMEM 151 1 79 80 94 CTRMEM 152 1 94 95 80 CTRMEM 153 1 95 96 80 CTRMEM 154 1 80 81 96 CTRMEM 155 1 81 82 96 CTRMEM 156 1 96 97 82 CTRMEM 157 1 97 98 82 CTRMEM 158 1 82 83 98 CTRMEM 159 1 83 84 98 CTRMEM 160 1 98 99 84 CTRMEM 161 1 85 99 84 90.0 CTRMEM 162 1 85 99 100 90.0 CTRMEM 163 1 101 100 85 90.0 CTRMEM 164 1 86 85 101 90.0 CTRMEM 165 1 102 101 86 90.0 CTRMEM 166 1 86 87 102 90.0 CTRMEM 167 1 87 103 102 CTRMEM 168 1 104 105 88 CTRMEM 169 1 88 89 105 CTRMEM 170 1 105 106 89 CTRMEM 171 1 89 90 106 CTRMEM 172 1 106 107 90 CTRMEM 173 1 90 91 107 CTRMEM 174 1 107 108 91 CTRMEM 175 1 91 92 108 CTRMEM 176 1 108 109 92 CTRMEM 177 1 92 93 109 CTRMEM 178 1 93 94 109 CTRMEM 179 1 109 110 94 CTRMEM 180 1 94 95 110 CTRMEM 181 1 95 96 110 CTRMEM 182 1 110 111 96 CTRMEM 183 1 96 97 111 CTRMEM 184 1 97 98 111 CTRMEM 185 1 111 112 98 CTRMEM 186 1 98 99 112 CTRMEM 187 1 112 113 99 CTRMEM 188 1 100 113 99 90.0 CTRMEM 189 1 100 113 114 90.0 CTRMEM 190 1 115 114 100 90.0 CTRMEM 191 1 101 100 115 90.0 CTRMEM 192 1 116 115 101 90.0 CTRMEM 193 1 102 101 116 90.0 CTRMEM 194 1 116 117 102 90.0 CTRMEM 195 1 103 117 102 CTRMEM 196 1 104 105 118 CTRMEM 197 1 118 119 105 CTRMEM 198 1 105 106 119 CTRMEM 199 1 119 120 106 CTRMEM 200 1 106 107 120 CTRMEM 201 1 120 121 107 CTRMEM 202 1 107 108 121 CTRMEM 203 1 121 122 108 CTRMEM 204 1 108 109 122 CTRMEM 205 1 122 123 109 CTRMEM 206 1 109 110 123 CTRMEM 207 1 123 124 110 CTRMEM 208 1 110 111 124 CTRMEM 209 1 124 125 111 CTRMEM 210 1 111 112 125 CTRMEM 211 1 125 126 112 CTRMEM 212 1 112 113 126 CTRMEM 213 1 126 127 113 CTRMEM 214 1 114 127 113 90.0 CTRMEM 215 1 114 129 127 CTRMEM 216 1 127 128 129 CTRMEM 217 1 114 129 115 CTRMEM 218 1 115 130 129 CTRMEM 219 1 115 130 131 CTRMEM 220 1 116 131 115 CTRMEM 221 1 116 131 117 CTRMEM 222 1 117 132 131 CTRMEM 223 1 118 119 133 CTRMEM 224 1 133 134 119 CTRMEM 225 1 134 135 119 CTRMEM 226 1 119 120 135 CTRMEM 227 1 120 121 135 CTRMEM 228 1 135 136 121 CTRMEM 229 1 136 137 121 CTRMEM 230 1 121 122 137 CTRMEM 231 1 122 123 137 CTRMEM 232 1 137 138 123 CTRMEM 233 1 138 139 123 CTRMEM 234 1 123 124 139 CTRMEM 235 1 124 125 139 CTRMEM 236 1 139 140 125 CTRMEM 237 1 140 141 125 CTRMEM 238 1 125 126 141 CTRMEM 239 1 126 127 141 CTRMEM 240 1 141 142 127 CTRMEM 241 1 142 143 127 CTRMEM 242 1 127 128 143 CTRMEM 243 1 128 144 143 CTRMEM 244 1 128 144 129 CTRMEM 245 1 145 144 129 90.0 CTRMEM 246 1 130 145 129 CTRMEM 247 1 130 145 131 CTRMEM 248 1 146 145 131 90.0 CTRMEM 249 1 132 146 131 CTRMEM 250 1 147 148 133 CTRMEM 251 1 133 134 148 CTRMEM 252 1 134 135 148 CTRMEM 253 1 148 149 135 CTRMEM 254 1 135 136 149 CTRMEM 255 1 136 137 149 CTRMEM 256 1 149 150 137 CTRMEM 257 1 137 138 150 CTRMEM 258 1 138 139 150 CTRMEM 259 1 150 151 139 CTRMEM 260 1 139 140 151 CTRMEM 261 1 140 141 151 CTRMEM 262 1 151 152 141 CTRMEM 263 1 141 142 152 CTRMEM 264 1 142 143 152 CTRMEM 265 1 152 153 143 CTRMEM 266 1 144 153 143 90.0 CTRMEM 267 1 153 154 144 CTRMEM 268 1 144 155 154 CTRMEM 269 1 144 155 156 CTRMEM 270 1 145 156 144 CTRMEM 271 1 145 156 146 CTRMEM 272 1 146 157 156 CTRMEM 273 1 147 148 158 CTRMEM 274 1 158 159 148 CTRMEM 275 1 148 149 159 CTRMEM 276 1 159 160 149 CTRMEM 277 1 149 150 160 CTRMEM 278 1 160 161 150 CTRMEM 279 1 150 151 161 CTRMEM 280 1 161 162 151 CTRMEM 281 1 151 152 162 CTRMEM 282 1 162 163 152 CTRMEM 283 1 152 153 163 CTRMEM 284 1 163 164 153 CTRMEM 285 1 153 154 164 CTRMEM 286 1 164 165 154 CTRMEM 287 1 154 166 165 CTRMEM 288 1 154 166 167 CTRMEM 289 1 155 167 154 CTRMEM 290 1 155 167 156 CTRMEM 291 1 156 168 167 CTRMEM 292 1 156 168 169 CTRMEM 293 1 157 169 156 CTRMEM 294 1 170 171 158 CTRMEM 295 1 158 159 171 CTRMEM 296 1 159 160 171 CTRMEM 297 1 171 172 160 CTRMEM 298 1 172 173 160 CTRMEM 299 1 160 161 173 CTRMEM 300 1 161 162 173 CTRMEM 301 1 173 174 162 CTRMEM 302 1 174 175 162 CTRMEM 303 1 162 163 175 CTRMEM 304 1 163 164 175 CTRMEM 305 1 175 176 164 CTRMEM 306 1 176 177 164 CTRMEM 307 1 164 165 177 CTRMEM 308 1 170 171 178 CTRMEM 309 1 178 179 171 CTRMEM 310 1 171 172 179 CTRMEM 311 1 179 180 172 CTRMEM 312 1 172 173 180 CTRMEM 313 1 173 174 180 CTRMEM 314 1 180 181 174 CTRMEM 315 1 174 175 181 CTRMEM 316 1 181 182 175 CTRMEM 317 1 175 176 182 CTRMEM 318 1 182 183 176 CTRMEM 319 1 176 177 183 CTRMEM 320 1 184 185 178 CTRMEM 321 1 178 179 185 CTRMEM 322 1 179 180 185 CTRMEM 323 1 185 186 180 CTRMEM 324 1 186 187 180 CTRMEM 325 1 180 181 187 CTRMEM 326 1 181 182 187 CTRMEM 327 1 187 188 182 CTRMEM 328 1 188 189 182 CTRMEM 329 1 182 183 189 CTRMEM 330 1 184 185 190 CTRMEM 331 1 190 191 185 CTRMEM 332 1 191 192 185 CTRMEM 333 1 185 186 192 CTRMEM 334 1 186 187 192 CTRMEM 335 1 192 193 187 CTRMEM 336 1 193 194 187 CTRMEM 337 1 187 188 194 CTRMEM 338 1 188 189 194 CTRMEM 339 1 194 195 189 CTRMEM 340 1 190 191 196 CTRMEM 341 1 196 197 191 CTRMEM 342 1 191 192 197 CTRMEM 343 1 197 198 192 CTRMEM 344 1 192 193 198 CTRMEM 345 1 198 199 193 CTRMEM 346 1 193 194 199 CTRMEM 347 1 199 200 194 CTRMEM 348 1 194 195 200 FORCE 600 196 100. 0.0 .375 FORCE 600 197 100. 0.0 .75 FORCE 600 198 100. 0.0 .75 FORCE 600 199 100. 0.0 .75 FORCE 600 200 100. 0.0 .375 GRDSET 3456 GRID 1 0.0 0.0 GRID 2 .2 .0 GRID 3 .4 .0 GRID 4 .6 .0 GRID 5 .7 .0 GRID 6 .8 .0 GRID 7 .9 .0 GRID 8 .95 .0 GRID 9 .95 .05 GRID 10 1.0 .05 GRID 11 1.05 .05 GRID 12 1.0 .0 GRID 13 1.05 .0 GRID 14 1.1 .0 GRID 15 .0 .1 GRID 16 .1 .1 GRID 17 .3 .1 GRID 18 .5 .1 GRID 19 .6 .1 GRID 20 .7 .1 GRID 21 .8 .1 GRID 22 .9 .1 GRID 23 1.0 .1 GRID 24 1.1 .1 GRID 25 1.2 .1 GRID 26 1.2 .0 GRID 27 .0 .2 GRID 28 .2 .2 GRID 29 .4 .2 GRID 30 .6 .2 GRID 31 .7 .2 GRID 32 .8 .2 GRID 33 .9 .2 GRID 34 1.0 .2 GRID 35 1.1 .2 GRID 36 1.2 .2 GRID 37 1.3 .2 GRID 38 1.3 .1 GRID 39 1.3 .0 GRID 40 .0 .3 GRID 41 .1 .3 GRID 42 .3 .3 GRID 43 .5 .3 GRID 44 .6 .3 GRID 45 .7 .3 GRID 46 .8 .3 GRID 47 .9 .3 GRID 48 1.0 .3 GRID 49 1.1 .3 GRID 50 1.2 .3 GRID 51 1.3 .3 GRID 52 1.4 .3 GRID 53 1.4 .2 GRID 54 1.4 .1 GRID 55 1.4 .0 GRID 56 .0 .4 GRID 57 .2 .4 GRID 58 .4 .4 GRID 59 .6 .4 GRID 60 .7 .4 GRID 61 .8 .4 GRID 62 .9 .4 GRID 63 1.0 .4 GRID 64 1.1 .4 GRID 65 1.2 .4 GRID 66 1.3 .4 GRID 67 1.4 .4 GRID 68 1.5 .4 GRID 69 1.5 .3 GRID 70 1.5 .1 GRID 71 1.5 .0 GRID 72 .0 .5 GRID 73 .1 .5 GRID 74 .3 .5 GRID 75 .5 .5 GRID 76 .7 .5 GRID 77 .8 .5 GRID 78 .9 .5 GRID 79 1.0 .5 GRID 80 1.1 .5 GRID 81 1.2 .5 GRID 82 1.3 .5 GRID 83 1.4 .5 GRID 84 1.5 .5 GRID 85 1.6 .4 GRID 86 1.6 .2 GRID 87 1.6 .0 GRID 88 .0 .6 GRID 89 .2 .6 GRID 90 .4 .6 GRID 91 .6 .6 GRID 92 .8 .6 GRID 93 .9 .6 GRID 94 1.0 .6 GRID 95 1.1 .6 GRID 96 1.2 .6 GRID 97 1.3 .6 GRID 98 1.4 .6 GRID 99 1.6 .6 GRID 100 1.7 .5 GRID 101 1.7 .3 GRID 102 1.7 .1 GRID 103 1.7 .0 GRID 104 .0 .7 GRID 105 .1 .7 GRID 106 .3 .7 GRID 107 .5 .7 GRID 108 .7 .7 GRID 109 .9 .7 GRID 110 1.1 .7 GRID 111 1.3 .7 GRID 112 1.5 .7 GRID 113 1.7 .7 GRID 114 1.8 .6 GRID 115 1.8 .4 GRID 116 1.8 .2 GRID 117 1.8 .0 GRID 118 .0 .8 GRID 119 .2 .8 GRID 120 .4 .8 GRID 121 .6 .8 GRID 122 .8 .8 GRID 123 1.0 .8 GRID 124 1.2 .8 GRID 125 1.4 .8 GRID 126 1.6 .8 GRID 127 1.8 .8 GRID 128 2.0 .8 GRID 129 2.0 .6 GRID 130 2.0 .4 GRID 131 2.0 .2 GRID 132 2.0 .0 GRID 133 .0 1.0 GRID 134 .2 1.0 GRID 135 .4 1.0 GRID 136 .6 1.0 GRID 137 .8 1.0 GRID 138 1.0 1.0 GRID 139 1.2 1.0 GRID 140 1.4 1.0 GRID 141 1.6 1.0 GRID 142 1.8 1.0 GRID 143 2.0 1.0 GRID 144 2.2 .8 GRID 145 2.2 .4 GRID 146 2.2 .0 GRID 147 .0 1.2 GRID 148 .2 1.2 GRID 149 .6 1.2 GRID 150 1.0 1.2 GRID 151 1.4 1.2 GRID 152 1.8 1.2 GRID 153 2.2 1.2 GRID 154 2.6 1.2 GRID 155 2.6 .8 GRID 156 2.6 .4 GRID 157 2.6 .0 GRID 158 .0 1.6 GRID 159 .4 1.6 GRID 160 .8 1.6 GRID 161 1.2 1.6 GRID 162 1.6 1.6 GRID 163 2.0 1.6 GRID 164 2.5 1.6 GRID 165 3.0 1.6 GRID 166 3.0 1.2 GRID 167 3.0 .8 GRID 168 3.0 .4 GRID 169 3.0 .0 GRID 170 .0 2.1 GRID 171 .4 2.1 GRID 172 .8 2.1 GRID 173 1.2 2.1 GRID 174 1.6 2.1 GRID 175 2.0 2.1 GRID 176 2.5 2.1 GRID 177 3.0 2.1 GRID 178 .0 2.6 GRID 179 .6 2.6 GRID 180 1.2 2.6 GRID 181 1.8 2.6 GRID 182 2.4 2.6 GRID 183 3.0 2.6 GRID 184 .0 3.2 GRID 185 .6 3.2 GRID 186 1.2 3.2 GRID 187 1.8 3.2 GRID 188 2.4 3.2 GRID 189 3.0 3.2 GRID 190 .0 3.8 GRID 191 .6 3.8 GRID 192 1.2 3.8 GRID 193 1.8 3.8 GRID 194 2.4 3.8 GRID 195 3.0 3.8 GRID 196 .0 4.5 GRID 197 .75 4.5 GRID 198 1.5 4.5 GRID 199 2.25 4.5 GRID 200 3.0 4.5 LOAD 2300 23. 1.0 600 MAT1 60 10.8+6 .3333 +M1 +M1 11.5+3 11.5+3 MATS1 60 101 PLFACT 23 23. 25. 28. 31. 34. 37. 40. +A-PLF +A-PLF 44. 48. 52. 56. 60. 65. 70. 75. +B-PLF +B-PLF 80. 85. 90. 95. 100. 105. 110. 115. +C-PLF +C-PLF 120. 125. 130. PTRMEM 1 60 1.0 SPC1 10 1 1 15 27 40 56 72 + SPC1-1 + SPC1-188 104 118 133 147 158 170 178 + SPC2-1 + SPC2-1184 190 196 SPC1 10 2 12 13 14 26 39 55 + SPC1-2 + SPC1-271 87 103 117 132 146 157 169 TABLES1 101 *TAB100 *TAB100 -8.4495168E-02 -3.4765000E 04 -8.2418240E-02 -3.453E 04 *TAB101 *TAB101 -8.0372998E-02 -3.4295000E 04 -7.8359272E-02 -3.406E 04 *TAB102 *TAB102 -7.6376893E-02 -3.3825000E 04 -7.4425689E-02 -3.359E 04 *TAB103 *TAB103 -7.2505489E-02 -3.3355000E 04 -7.0616119E-02 -3.312E 04 *TAB104 *TAB104 -6.8757406E-02 -3.2885000E 04 -6.6929175E-02 -3.265E 04 *TAB105 *TAB105 -6.5131251E-02 -3.2415000E 04 -6.3363456E-02 -3.218E 04 *TAB106 *TAB106 -6.1625615E-02 -3.1945000E 04 -5.9917548E-02 -3.171E 04 *TAB107 *TAB107 -5.8239075E-02 -3.1475000E 04 -5.65918E-02 -3.124E 04 *TAB108 *TAB108 -5.497193E-02 -3.1005000E 04 -5.3379419E-02 -3.077E 04 *TAB109 *TAB109 -5.1817513E-02 -3.0535000E 04 -5.0284289E-02 -3.030E 04 *TAB110 *TAB110 -4.8779562E-02 -3.0065000E 04 -4.7303146E-02 -2.983E 04 *TAB111 *TAB111 -4.5854852E-02 -2.9595000E 04 -4.4434491E-02 -2.936E 04 *TAB112 *TAB112 -4.3041873E-02 -2.9125000E 04 -4.1676807E-02 -2.889E 04 *TAB113 *TAB113 -4.0339100E-02 -2.8655000E 04 -3.9028558E-02 -2.842E 04 *TAB114 *TAB114 -3.7744987E-02 -2.8185000E 04 -3.6488188E-02 -2.795E 04 *TAB115 *TAB115 -3.5257966E-02 -2.7715000E 04 -3.4054121E-02 -2.748E 04 *TAB116 *TAB116 -3.2876451E-02 -2.7245000E 04 -3.1724757E-02 -2.701E 04 *TAB117 *TAB117 -3.0598832E-02 -2.6775000E 04 -2.9498474E-02 -2.654E 04 *TAB118 *TAB118 -2.8423475E-02 -2.6305000E 04 -2.7373628E-02 -2.607E 04 *TAB119 *TAB119 -2.6348724E-02 -2.5835000E 04 -2.5348551E-02 -2.560E 04 *TAB120 *TAB120 -2.4372896E-02 -2.5365000E 04 -2.3421545E-02 -2.513E 04 *TAB121 *TAB121 -2.2494282E-02 -2.4895000E 04 -2.159888E-02 -2.466E 04 *TAB122 *TAB122 -2.0711145E-02 -2.4425000E 04 -1.9854830E-02 -2.419E 04 *TAB123 *TAB123 -1.9021719E-02 -2.3955000E 04 -1.8211588E-02 -2.372E 04 *TAB124 *TAB124 -1.7424207E-02 -2.3485000E 04 -1.6659349E-02 -2.325E 04 *TAB125 *TAB125 -1.5916779E-02 -2.3015000E 04 -1.5196266E-02 -2.278E 04 *TAB126 *TAB126 -1.4497571E-02 -2.2545000E 04 -1.382457E-02 -2.231E 04 *TAB127 *TAB127 -1.3164682E-02 -2.2075000E 04 -1.2532E-02 -2.184E 04 *TAB128 *TAB128 -1.1916171E-02 -2.1605000E 04 -1.1322939E-02 -2.137E 04 *TAB129 *TAB129 -1.07556E-02 -2.1135000E 04 -1.0197266E-02 -2.090E 04 *TAB130 *TAB130 -9.6643119E-03 -2.0665000E 04 -9.1509324E-03 -2.043E 04 *TAB131 *TAB131 -8.6568637E-03 -2.0195000E 04 -8.1818386E-03 -1.996E 04 *TAB132 *TAB132 -7.7255861E-03 -1.9725000E 04 -7.2878319E-03 -1.949E 04 *TAB133 *TAB133 -6.8682978E-03 -1.9255000E 04 -6.4667017E-03 -1.902E 04 *TAB134 *TAB134 -6.0827573E-03 -1.8785000E 04 -5.7161741E-03 -1.855E 04 *TAB135 *TAB135 -5.3666571E-03 -1.8315000E 04 -5.0339064E-03 -1.808E 04 *TAB136 *TAB136 -4.7176173E-03 -1.7845000E 04 -4.4174798E-03 -1.761E 04 *TAB137 *TAB137 -4.1331784E-03 -1.7375000E 04 -3.8643916E-03 -1.714E 04 *TAB138 *TAB138 -3.6107919E-03 -1.6905000E 04 -3.372451E-03 -1.667E 04 *TAB139 *TAB139 -3.1478101E-03 -1.6435000E 04 -2.9377381E-03 -1.620E 04 *TAB140 *TAB140 -2.7414724E-03 -1.5965000E 04 -2.5586479E-03 -1.573E 04 *TAB141 *TAB141 -2.3888897E-03 -1.5495000E 04 -2.2318132E-03 -1.526E 04 *TAB142 *TAB142 -2.087227E-03 -1.5025000E 04 -1.9541106E-03 -1.479E 04 *TAB143 *TAB143 -1.8326559E-03 -1.4555000E 04 -1.7222231E-03 -1.432E 04 *TAB144 *TAB144 -1.6223604E-03 -1.4085000E 04 -1.5325975E-03 -1.385E 04 *TAB145 *TAB145 -1.4524432E-03 -1.3615000E 04 -1.3813823E-03 -1.338E 04 *TAB146 *TAB146 -1.3188712E-03 -1.3145000E 04 -1.2643326E-03 -1.291E 04 *TAB147 *TAB147 -1.2171483E-03 -1.2675000E 04 -1.1766480E-03 -1.244E 04 *TAB148 *TAB148 -1.142932E-03 -1.2205000E 04 -1.1126483E-03 -1.197E 04 *TAB149 *TAB149 -1.0873249E-03 -1.1735000E 04 -1.0648148E-03 -1.150E 04 *TAB150 *TAB150 0. 0. 1.0648148E-03 1.150E 04 *TAB151 *TAB151 1.0873249E-03 1.1735000E 04 1.1126483E-03 1.197E 04 *TAB152 *TAB152 1.142932E-03 1.2205000E 04 1.1766480E-03 1.244E 04 *TAB153 *TAB153 1.2171483E-03 1.2675000E 04 1.2643326E-03 1.291E 04 *TAB154 *TAB154 1.3188712E-03 1.3145000E 04 1.3813823E-03 1.338E 04 *TAB155 *TAB155 1.4524432E-03 1.3615000E 04 1.5325975E-03 1.385E 04 *TAB156 *TAB156 1.6223604E-03 1.4085000E 04 1.7222231E-03 1.432E 04 *TAB157 *TAB157 1.8326559E-03 1.4555000E 04 1.9541106E-03 1.479E 04 *TAB158 *TAB158 2.087227E-03 1.5025000E 04 2.2318132E-03 1.526E 04 *TAB159 *TAB159 2.3888897E-03 1.5495000E 04 2.5586479E-03 1.573E 04 *TAB160 *TAB160 2.7414724E-03 1.5965000E 04 2.9377381E-03 1.620E 04 *TAB161 *TAB161 3.1478101E-03 1.6435000E 04 3.372451E-03 1.667E 04 *TAB162 *TAB162 3.6107919E-03 1.6905000E 04 3.8643916E-03 1.714E 04 *TAB163 *TAB163 4.1331784E-03 1.7375000E 04 4.4174798E-03 1.761E 04 *TAB164 *TAB164 4.7176173E-03 1.7845000E 04 5.0339064E-03 1.808E 04 *TAB165 *TAB165 5.3666571E-03 1.8315000E 04 5.7161741E-03 1.855E 04 *TAB166 *TAB166 6.0827573E-03 1.8785000E 04 6.4667017E-03 1.902E 04 *TAB167 *TAB167 6.8682978E-03 1.9255000E 04 7.2878319E-03 1.949E 04 *TAB168 *TAB168 7.7255861E-03 1.9725000E 04 8.1818386E-03 1.996E 04 *TAB169 *TAB169 8.6568637E-03 2.0195000E 04 9.1509324E-03 2.043E 04 *TAB170 *TAB170 9.6643119E-03 2.0665000E 04 1.0197266E-02 2.090E 04 *TAB171 *TAB171 1.07556E-02 2.1135000E 04 1.1322939E-02 2.137E 04 *TAB172 *TAB172 1.1916171E-02 2.1605000E 04 1.2532E-02 2.184E 04 *TAB173 *TAB173 1.3164682E-02 2.2075000E 04 1.382457E-02 2.231E 04 *TAB174 *TAB174 1.4497571E-02 2.2545000E 04 1.5196266E-02 2.278E 04 *TAB175 *TAB175 1.5916779E-02 2.3015000E 04 1.6659349E-02 2.325E 04 *TAB176 *TAB176 1.7424207E-02 2.3485000E 04 1.8211588E-02 2.372E 04 *TAB177 *TAB177 1.9021719E-02 2.3955000E 04 1.9854830E-02 2.419E 04 *TAB178 *TAB178 2.0711145E-02 2.4425000E 04 2.159888E-02 2.466E 04 *TAB179 *TAB179 2.2494282E-02 2.4895000E 04 2.3421545E-02 2.513E 04 *TAB180 *TAB180 2.4372896E-02 2.5365000E 04 2.5348551E-02 2.560E 04 *TAB181 *TAB181 2.6348724E-02 2.5835000E 04 2.7373628E-02 2.607E 04 *TAB182 *TAB182 2.8423475E-02 2.6305000E 04 2.9498474E-02 2.654E 04 *TAB183 *TAB183 3.0598832E-02 2.6775000E 04 3.1724757E-02 2.701E 04 *TAB184 *TAB184 3.2876451E-02 2.7245000E 04 3.4054121E-02 2.748E 04 *TAB185 *TAB185 3.5257966E-02 2.7715000E 04 3.6488188E-02 2.795E 04 *TAB186 *TAB186 3.7744987E-02 2.8185000E 04 3.9028558E-02 2.842E 04 *TAB187 *TAB187 4.0339100E-02 2.8655000E 04 4.1676807E-02 2.889E 04 *TAB188 *TAB188 4.3041873E-02 2.9125000E 04 4.4434491E-02 2.936E 04 *TAB189 *TAB189 4.5854852E-02 2.9595000E 04 4.7303146E-02 2.983E 04 *TAB190 *TAB190 4.8779562E-02 3.0065000E 04 5.0284289E-02 3.030E 04 *TAB191 *TAB191 5.1817513E-02 3.0535000E 04 5.3379419E-02 3.077E 04 *TAB192 *TAB192 5.497193E-02 3.1005000E 04 5.65918E-02 3.124E 04 *TAB193 *TAB193 5.8239075E-02 3.1475000E 04 5.9917548E-02 3.171E 04 *TAB194 *TAB194 6.1625615E-02 3.1945000E 04 6.3363456E-02 3.218E 04 *TAB195 *TAB195 6.5131251E-02 3.2415000E 04 6.6929175E-02 3.265E 04 *TAB196 *TAB196 6.8757406E-02 3.2885000E 04 7.0616119E-02 3.312E 04 *TAB197 *TAB197 7.2505489E-02 3.3355000E 04 7.4425689E-02 3.359E 04 *TAB198 *TAB198 7.6376893E-02 3.3825000E 04 7.8359272E-02 3.406E 04 *TAB199 *TAB199 8.0372998E-02 3.4295000E 04 8.2418240E-02 3.453E 04 *TAB200 *TAB200 8.4495168E-02 3.4765000E 04 ENDT ENDDATA ================================================ FILE: inp/d06011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 6, Piecewise Linear Analysis $ Piecewise Linear Analysis of a Cracked Plate (6-1-1) $ $ A. Description $ $ This problem illustrates elastic-plastic deformation of a thin plate $ uniaxially loaded across a crack at the center of the plate. The same problem $ was solved by J. L. Swedlow (Reference 10). $ $ Piecewise Linear Analysis involves loading the plate in increments and $ recalculating the material properties for each element as a function of the $ element stresses for the last load increment. $ $ B. Input $ $ 1. Parameters: $ $ L = 9.0 inch (Total length of plate) $ $ W = 6.0 inch (Total width of plate) $ $ w = 2.0 inch (Total width of crack) $ $ t = 1.0 inch (thickness) $ $ 6 2 $ E = 10.8 x 10 lb/in (Modulus of elasticity at zero strain) $ o $ $ v = .3333 (Poisson's Ratio at zero strain) $ o $ _____ $ 2. Loads: sigma is the applied load. $ $ _____ 2 _____ 2 $ Load Factor sigma lb/in Load Factor sigma lb/in $ $ 1 2,300 14 7,000 $ 2 2,500 15 7,500 $ 3 2,800 I6 8,000 $ 4 3,100 17 8,500 $ 5 3,400 18 9,000 $ 6 3,700 19 9,500 $ 7 4,000 20 10,000 $ 8 4,400 21 10,500 $ 9 4,800 22 11,000 $ 10 5,200 23 11,500 $ 11 5,600 24 12,000 $ 12 6,000 25 12,500 $ 13 6,500 26 13,000 $ $ 3. Constraints: $ $ a) All grid points are constrained in u , theta , theta , and theta . $ z x y z $ $ b) Grid points along the Y-axis are constrained in the u direction. $ x $ $ c) Grid points along the X-axis from the crack tip (x = 1.0) to the edge $ (x = 3.0) are constrained in the u direction. $ y $ $ C. Theory $ $ The finite element model utilizes two planes of symmetry, so only one quarter $ of the structure (the first quadrant) is modeled. All membrane elements use $ stress-dependent materials, duplicating the model in Reference 10. $ $ The octahedral stress used in the determination of the material properties was $ defined in Reference 10 as: $ $ sqrt(2) 2 2 2 $ tau = ------- sqrt( sigma - sigma sigma + sigma + 3 sigma ) (1) $ o 3 x x y y xy $ $ The octahedral strain was defined by: $ $ + $ | tau (1+v )/E tau <= tau $ | o o o o limit $ epsilon = | (2) $ o | tau (1+v )/E + epsilon tau > tau $ | o o o p o limit $ + $ $ where $ $ -3 -1 1/0.3964 $ epsilon = 9.716 x 10 (tau /tau ) $ p o limit $ $ tau = (sqrt(2/3)) sigma $ limit limit $ $ 2 $ sigma = 11,500 lb/in $ limit $ $ NASTRAN uses an equivalent uniaxia1 stress-strain curve defined by $ $ sigma = 3/sqrt(2) tau (3) $ o $ $ and $ $ epsilon = sigma/E + sqrt(2) epsilon p (4) $ $ A complete discussion of the equations may be found in Reference 10. $ $ D. Results $ $ In the NASTRAN analysis, the octahedral stress is calculated for each load $ factor as a function of the current values of the stresses. In Reference 10 $ the current value of the octahedral stress is obtained by accumulating $ incremental values of the octahedral stress. This procedure results in a $ generally more flexible model. The resulting differences in calculated $ stresses are particularly noticeable at the higher load levels. $ $ APPLICABLE REFERENCES $ $ 10. J. L. Swedlow, "The Thickness Effect and Plastic Flow in Cracked Plates", $ Office of Aerospace Research, USAF, APL 65-216. $------------------------------------------------------------------------------- ================================================ FILE: inp/d07011a.inp ================================================ ID D07011A,NASTRAN TIME 15 APP DISP SOL 7,1 CEND TITLE = COMPLEX EIGENVALUES OF A 500 CELL STRING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A CMETHOD = 1 $ FEER OUTPUT SET 1 = 1,51,101,151,201,251,301,351,401,451,501 DISP = 1 BEGIN BULK CDAMP3 60002 401 2 0 CDAMP3 60003 401 3 0 60004 401 4 0 CDAMP3 60005 401 5 0 60006 401 6 0 CDAMP3 60007 401 7 0 60008 401 8 0 CDAMP3 60009 401 9 0 60010 401 10 0 CDAMP3 60011 401 11 0 60012 401 12 0 CDAMP3 60013 401 13 0 60014 401 14 0 CDAMP3 60015 401 15 0 60016 401 16 0 CDAMP3 60017 401 17 0 60018 401 18 0 CDAMP3 60019 401 19 0 60020 401 20 0 CDAMP3 60021 401 21 0 60022 401 22 0 CDAMP3 60023 401 23 0 60024 401 24 0 CDAMP3 60025 401 25 0 60026 401 26 0 CDAMP3 60027 401 27 0 60028 401 28 0 CDAMP3 60029 401 29 0 60030 401 30 0 CDAMP3 60031 401 31 0 60032 401 32 0 CDAMP3 60033 401 33 0 60034 401 34 0 CDAMP3 60035 401 35 0 60036 401 36 0 CDAMP3 60037 401 37 0 60038 401 38 0 CDAMP3 60039 401 39 0 60040 401 40 0 CDAMP3 60041 401 41 0 60042 401 42 0 CDAMP3 60043 401 43 0 60044 401 44 0 CDAMP3 60045 401 45 0 60046 401 46 0 CDAMP3 60047 401 47 0 60048 401 48 0 CDAMP3 60049 401 49 0 60050 401 50 0 CDAMP3 60051 401 51 0 60052 401 52 0 CDAMP3 60053 401 53 0 60054 401 54 0 CDAMP3 60055 401 55 0 60056 401 56 0 CDAMP3 60057 401 57 0 60058 401 58 0 CDAMP3 60059 401 59 0 60060 401 60 0 CDAMP3 60061 401 61 0 60062 401 62 0 CDAMP3 60063 401 63 0 60064 401 64 0 CDAMP3 60065 401 65 0 60066 401 66 0 CDAMP3 60067 401 67 0 60068 401 68 0 CDAMP3 60069 401 69 0 60070 401 70 0 CDAMP3 60071 401 71 0 60072 401 72 0 CDAMP3 60073 401 73 0 60074 401 74 0 CDAMP3 60075 401 75 0 60076 401 76 0 CDAMP3 60077 401 77 0 60078 401 78 0 CDAMP3 60079 401 79 0 60080 401 80 0 CDAMP3 60081 401 81 0 60082 401 82 0 CDAMP3 60083 401 83 0 60084 401 84 0 CDAMP3 60085 401 85 0 60086 401 86 0 CDAMP3 60087 401 87 0 60088 401 88 0 CDAMP3 60089 401 89 0 60090 401 90 0 CDAMP3 60091 401 91 0 60092 401 92 0 CDAMP3 60093 401 93 0 60094 401 94 0 CDAMP3 60095 401 95 0 60096 401 96 0 CDAMP3 60097 401 97 0 60098 401 98 0 CDAMP3 60099 401 99 0 60100 401 100 0 CDAMP3 60101 401 101 0 60102 401 102 0 CDAMP3 60103 401 103 0 60104 401 104 0 CDAMP3 60105 401 105 0 60106 401 106 0 CDAMP3 60107 401 107 0 60108 401 108 0 CDAMP3 60109 401 109 0 60110 401 110 0 CDAMP3 60111 401 111 0 60112 401 112 0 CDAMP3 60113 401 113 0 60114 401 114 0 CDAMP3 60115 401 115 0 60116 401 116 0 CDAMP3 60117 401 117 0 60118 401 118 0 CDAMP3 60119 401 119 0 60120 401 120 0 CDAMP3 60121 401 121 0 60122 401 122 0 CDAMP3 60123 401 123 0 60124 401 124 0 CDAMP3 60125 401 125 0 60126 401 126 0 CDAMP3 60127 401 127 0 60128 401 128 0 CDAMP3 60129 401 129 0 60130 401 130 0 CDAMP3 60131 401 131 0 60132 401 132 0 CDAMP3 60133 401 133 0 60134 401 134 0 CDAMP3 60135 401 135 0 60136 401 136 0 CDAMP3 60137 401 137 0 60138 401 138 0 CDAMP3 60139 401 139 0 60140 401 140 0 CDAMP3 60141 401 141 0 60142 401 142 0 CDAMP3 60143 401 143 0 60144 401 144 0 CDAMP3 60145 401 145 0 60146 401 146 0 CDAMP3 60147 401 147 0 60148 401 148 0 CDAMP3 60149 401 149 0 60150 401 150 0 CDAMP3 60151 401 151 0 60152 401 152 0 CDAMP3 60153 401 153 0 60154 401 154 0 CDAMP3 60155 401 155 0 60156 401 156 0 CDAMP3 60157 401 157 0 60158 401 158 0 CDAMP3 60159 401 159 0 60160 401 160 0 CDAMP3 60161 401 161 0 60162 401 162 0 CDAMP3 60163 401 163 0 60164 401 164 0 CDAMP3 60165 401 165 0 60166 401 166 0 CDAMP3 60167 401 167 0 60168 401 168 0 CDAMP3 60169 401 169 0 60170 401 170 0 CDAMP3 60171 401 171 0 60172 401 172 0 CDAMP3 60173 401 173 0 60174 401 174 0 CDAMP3 60175 401 175 0 60176 401 176 0 CDAMP3 60177 401 177 0 60178 401 178 0 CDAMP3 60179 401 179 0 60180 401 180 0 CDAMP3 60181 401 181 0 60182 401 182 0 CDAMP3 60183 401 183 0 60184 401 184 0 CDAMP3 60185 401 185 0 60186 401 186 0 CDAMP3 60187 401 187 0 60188 401 188 0 CDAMP3 60189 401 189 0 60190 401 190 0 CDAMP3 60191 401 191 0 60192 401 192 0 CDAMP3 60193 401 193 0 60194 401 194 0 CDAMP3 60195 401 195 0 60196 401 196 0 CDAMP3 60197 401 197 0 60198 401 198 0 CDAMP3 60199 401 199 0 60200 401 200 0 CDAMP3 60201 401 201 0 60202 401 202 0 CDAMP3 60203 401 203 0 60204 401 204 0 CDAMP3 60205 401 205 0 60206 401 206 0 CDAMP3 60207 401 207 0 60208 401 208 0 CDAMP3 60209 401 209 0 60210 401 210 0 CDAMP3 60211 401 211 0 60212 401 212 0 CDAMP3 60213 401 213 0 60214 401 214 0 CDAMP3 60215 401 215 0 60216 401 216 0 CDAMP3 60217 401 217 0 60218 401 218 0 CDAMP3 60219 401 219 0 60220 401 220 0 CDAMP3 60221 401 221 0 60222 401 222 0 CDAMP3 60223 401 223 0 60224 401 224 0 CDAMP3 60225 401 225 0 60226 401 226 0 CDAMP3 60227 401 227 0 60228 401 228 0 CDAMP3 60229 401 229 0 60230 401 230 0 CDAMP3 60231 401 231 0 60232 401 232 0 CDAMP3 60233 401 233 0 60234 401 234 0 CDAMP3 60235 401 235 0 60236 401 236 0 CDAMP3 60237 401 237 0 60238 401 238 0 CDAMP3 60239 401 239 0 60240 401 240 0 CDAMP3 60241 401 241 0 60242 401 242 0 CDAMP3 60243 401 243 0 60244 401 244 0 CDAMP3 60245 401 245 0 60246 401 246 0 CDAMP3 60247 401 247 0 60248 401 248 0 CDAMP3 60249 401 249 0 60250 401 250 0 CDAMP3 60251 401 251 0 60252 401 252 0 CDAMP3 60253 401 253 0 60254 401 254 0 CDAMP3 60255 401 255 0 60256 401 256 0 CDAMP3 60257 401 257 0 60258 401 258 0 CDAMP3 60259 401 259 0 60260 401 260 0 CDAMP3 60261 401 261 0 60262 401 262 0 CDAMP3 60263 401 263 0 60264 401 264 0 CDAMP3 60265 401 265 0 60266 401 266 0 CDAMP3 60267 401 267 0 60268 401 268 0 CDAMP3 60269 401 269 0 60270 401 270 0 CDAMP3 60271 401 271 0 60272 401 272 0 CDAMP3 60273 401 273 0 60274 401 274 0 CDAMP3 60275 401 275 0 60276 401 276 0 CDAMP3 60277 401 277 0 60278 401 278 0 CDAMP3 60279 401 279 0 60280 401 280 0 CDAMP3 60281 401 281 0 60282 401 282 0 CDAMP3 60283 401 283 0 60284 401 284 0 CDAMP3 60285 401 285 0 60286 401 286 0 CDAMP3 60287 401 287 0 60288 401 288 0 CDAMP3 60289 401 289 0 60290 401 290 0 CDAMP3 60291 401 291 0 60292 401 292 0 CDAMP3 60293 401 293 0 60294 401 294 0 CDAMP3 60295 401 295 0 60296 401 296 0 CDAMP3 60297 401 297 0 60298 401 298 0 CDAMP3 60299 401 299 0 60300 401 300 0 CDAMP3 60301 401 301 0 60302 401 302 0 CDAMP3 60303 401 303 0 60304 401 304 0 CDAMP3 60305 401 305 0 60306 401 306 0 CDAMP3 60307 401 307 0 60308 401 308 0 CDAMP3 60309 401 309 0 60310 401 310 0 CDAMP3 60311 401 311 0 60312 401 312 0 CDAMP3 60313 401 313 0 60314 401 314 0 CDAMP3 60315 401 315 0 60316 401 316 0 CDAMP3 60317 401 317 0 60318 401 318 0 CDAMP3 60319 401 319 0 60320 401 320 0 CDAMP3 60321 401 321 0 60322 401 322 0 CDAMP3 60323 401 323 0 60324 401 324 0 CDAMP3 60325 401 325 0 60326 401 326 0 CDAMP3 60327 401 327 0 60328 401 328 0 CDAMP3 60329 401 329 0 60330 401 330 0 CDAMP3 60331 401 331 0 60332 401 332 0 CDAMP3 60333 401 333 0 60334 401 334 0 CDAMP3 60335 401 335 0 60336 401 336 0 CDAMP3 60337 401 337 0 60338 401 338 0 CDAMP3 60339 401 339 0 60340 401 340 0 CDAMP3 60341 401 341 0 60342 401 342 0 CDAMP3 60343 401 343 0 60344 401 344 0 CDAMP3 60345 401 345 0 60346 401 346 0 CDAMP3 60347 401 347 0 60348 401 348 0 CDAMP3 60349 401 349 0 60350 401 350 0 CDAMP3 60351 401 351 0 60352 401 352 0 CDAMP3 60353 401 353 0 60354 401 354 0 CDAMP3 60355 401 355 0 60356 401 356 0 CDAMP3 60357 401 357 0 60358 401 358 0 CDAMP3 60359 401 359 0 60360 401 360 0 CDAMP3 60361 401 361 0 60362 401 362 0 CDAMP3 60363 401 363 0 60364 401 364 0 CDAMP3 60365 401 365 0 60366 401 366 0 CDAMP3 60367 401 367 0 60368 401 368 0 CDAMP3 60369 401 369 0 60370 401 370 0 CDAMP3 60371 401 371 0 60372 401 372 0 CDAMP3 60373 401 373 0 60374 401 374 0 CDAMP3 60375 401 375 0 60376 401 376 0 CDAMP3 60377 401 377 0 60378 401 378 0 CDAMP3 60379 401 379 0 60380 401 380 0 CDAMP3 60381 401 381 0 60382 401 382 0 CDAMP3 60383 401 383 0 60384 401 384 0 CDAMP3 60385 401 385 0 60386 401 386 0 CDAMP3 60387 401 387 0 60388 401 388 0 CDAMP3 60389 401 389 0 60390 401 390 0 CDAMP3 60391 401 391 0 60392 401 392 0 CDAMP3 60393 401 393 0 60394 401 394 0 CDAMP3 60395 401 395 0 60396 401 396 0 CDAMP3 60397 401 397 0 60398 401 398 0 CDAMP3 60399 401 399 0 60400 401 400 0 CDAMP3 60401 401 401 0 60402 401 402 0 CDAMP3 60403 401 403 0 60404 401 404 0 CDAMP3 60405 401 405 0 60406 401 406 0 CDAMP3 60407 401 407 0 60408 401 408 0 CDAMP3 60409 401 409 0 60410 401 410 0 CDAMP3 60411 401 411 0 60412 401 412 0 CDAMP3 60413 401 413 0 60414 401 414 0 CDAMP3 60415 401 415 0 60416 401 416 0 CDAMP3 60417 401 417 0 60418 401 418 0 CDAMP3 60419 401 419 0 60420 401 420 0 CDAMP3 60421 401 421 0 60422 401 422 0 CDAMP3 60423 401 423 0 60424 401 424 0 CDAMP3 60425 401 425 0 60426 401 426 0 CDAMP3 60427 401 427 0 60428 401 428 0 CDAMP3 60429 401 429 0 60430 401 430 0 CDAMP3 60431 401 431 0 60432 401 432 0 CDAMP3 60433 401 433 0 60434 401 434 0 CDAMP3 60435 401 435 0 60436 401 436 0 CDAMP3 60437 401 437 0 60438 401 438 0 CDAMP3 60439 401 439 0 60440 401 440 0 CDAMP3 60441 401 441 0 60442 401 442 0 CDAMP3 60443 401 443 0 60444 401 444 0 CDAMP3 60445 401 445 0 60446 401 446 0 CDAMP3 60447 401 447 0 60448 401 448 0 CDAMP3 60449 401 449 0 60450 401 450 0 CDAMP3 60451 401 451 0 60452 401 452 0 CDAMP3 60453 401 453 0 60454 401 454 0 CDAMP3 60455 401 455 0 60456 401 456 0 CDAMP3 60457 401 457 0 60458 401 458 0 CDAMP3 60459 401 459 0 60460 401 460 0 CDAMP3 60461 401 461 0 60462 401 462 0 CDAMP3 60463 401 463 0 60464 401 464 0 CDAMP3 60465 401 465 0 60466 401 466 0 CDAMP3 60467 401 467 0 60468 401 468 0 CDAMP3 60469 401 469 0 60470 401 470 0 CDAMP3 60471 401 471 0 60472 401 472 0 CDAMP3 60473 401 473 0 60474 401 474 0 CDAMP3 60475 401 475 0 60476 401 476 0 CDAMP3 60477 401 477 0 60478 401 478 0 CDAMP3 60479 401 479 0 60480 401 480 0 CDAMP3 60481 401 481 0 60482 401 482 0 CDAMP3 60483 401 483 0 60484 401 484 0 CDAMP3 60485 401 485 0 60486 401 486 0 CDAMP3 60487 401 487 0 60488 401 488 0 CDAMP3 60489 401 489 0 60490 401 490 0 CDAMP3 60491 401 491 0 60492 401 492 0 CDAMP3 60493 401 493 0 60494 401 494 0 CDAMP3 60495 401 495 0 60496 401 496 0 CDAMP3 60497 401 497 0 60498 401 498 0 CDAMP3 60499 401 499 0 60500 401 500 0 CELAS3 1 101 0 2 2 101 2 3 CELAS3 3 101 3 4 4 101 4 5 CELAS3 5 101 5 6 6 101 6 7 CELAS3 7 101 7 8 8 101 8 9 CELAS3 9 101 9 10 10 101 10 11 CELAS3 11 101 11 12 12 101 12 13 CELAS3 13 101 13 14 14 101 14 15 CELAS3 15 101 15 16 16 101 16 17 CELAS3 17 101 17 18 18 101 18 19 CELAS3 19 101 19 20 20 101 20 21 CELAS3 21 101 21 22 22 101 22 23 CELAS3 23 101 23 24 24 101 24 25 CELAS3 25 101 25 26 26 101 26 27 CELAS3 27 101 27 28 28 101 28 29 CELAS3 29 101 29 30 30 101 30 31 CELAS3 31 101 31 32 32 101 32 33 CELAS3 33 101 33 34 34 101 34 35 CELAS3 35 101 35 36 36 101 36 37 CELAS3 37 101 37 38 38 101 38 39 CELAS3 39 101 39 40 40 101 40 41 CELAS3 41 101 41 42 42 101 42 43 CELAS3 43 101 43 44 44 101 44 45 CELAS3 45 101 45 46 46 101 46 47 CELAS3 47 101 47 48 48 101 48 49 CELAS3 49 101 49 50 50 101 50 51 CELAS3 51 101 51 52 52 101 52 53 CELAS3 53 101 53 54 54 101 54 55 CELAS3 55 101 55 56 56 101 56 57 CELAS3 57 101 57 58 58 101 58 59 CELAS3 59 101 59 60 60 101 60 61 CELAS3 61 101 61 62 62 101 62 63 CELAS3 63 101 63 64 64 101 64 65 CELAS3 65 101 65 66 66 101 66 67 CELAS3 67 101 67 68 68 101 68 69 CELAS3 69 101 69 70 70 101 70 71 CELAS3 71 101 71 72 72 101 72 73 CELAS3 73 101 73 74 74 101 74 75 CELAS3 75 101 75 76 76 101 76 77 CELAS3 77 101 77 78 78 101 78 79 CELAS3 79 101 79 80 80 101 80 81 CELAS3 81 101 81 82 82 101 82 83 CELAS3 83 101 83 84 84 101 84 85 CELAS3 85 101 85 86 86 101 86 87 CELAS3 87 101 87 88 88 101 88 89 CELAS3 89 101 89 90 90 101 90 91 CELAS3 91 101 91 92 92 101 92 93 CELAS3 93 101 93 94 94 101 94 95 CELAS3 95 101 95 96 96 101 96 97 CELAS3 97 101 97 98 98 101 98 99 CELAS3 99 101 99 100 100 101 100 101 CELAS3 101 101 101 102 102 101 102 103 CELAS3 103 101 103 104 104 101 104 105 CELAS3 105 101 105 106 106 101 106 107 CELAS3 107 101 107 108 108 101 108 109 CELAS3 109 101 109 110 110 101 110 111 CELAS3 111 101 111 112 112 101 112 113 CELAS3 113 101 113 114 114 101 114 115 CELAS3 115 101 115 116 116 101 116 117 CELAS3 117 101 117 118 118 101 118 119 CELAS3 119 101 119 120 120 101 120 121 CELAS3 121 101 121 122 122 101 122 123 CELAS3 123 101 123 124 124 101 124 125 CELAS3 125 101 125 126 126 101 126 127 CELAS3 127 101 127 128 128 101 128 129 CELAS3 129 101 129 130 130 101 130 131 CELAS3 131 101 131 132 132 101 132 133 CELAS3 133 101 133 134 134 101 134 135 CELAS3 135 101 135 136 136 101 136 137 CELAS3 137 101 137 138 138 101 138 139 CELAS3 139 101 139 140 140 101 140 141 CELAS3 141 101 141 142 142 101 142 143 CELAS3 143 101 143 144 144 101 144 145 CELAS3 145 101 145 146 146 101 146 147 CELAS3 147 101 147 148 148 101 148 149 CELAS3 149 101 149 150 150 101 150 151 CELAS3 151 101 151 152 152 101 152 153 CELAS3 153 101 153 154 154 101 154 155 CELAS3 155 101 155 156 156 101 156 157 CELAS3 157 101 157 158 158 101 158 159 CELAS3 159 101 159 160 160 101 160 161 CELAS3 161 101 161 162 162 101 162 163 CELAS3 163 101 163 164 164 101 164 165 CELAS3 165 101 165 166 166 101 166 167 CELAS3 167 101 167 168 168 101 168 169 CELAS3 169 101 169 170 170 101 170 171 CELAS3 171 101 171 172 172 101 172 173 CELAS3 173 101 173 174 174 101 174 175 CELAS3 175 101 175 176 176 101 176 177 CELAS3 177 101 177 178 178 101 178 179 CELAS3 179 101 179 180 180 101 180 181 CELAS3 181 101 181 182 182 101 182 183 CELAS3 183 101 183 184 184 101 184 185 CELAS3 185 101 185 186 186 101 186 187 CELAS3 187 101 187 188 188 101 188 189 CELAS3 189 101 189 190 190 101 190 191 CELAS3 191 101 191 192 192 101 192 193 CELAS3 193 101 193 194 194 101 194 195 CELAS3 195 101 195 196 196 101 196 197 CELAS3 197 101 197 198 198 101 198 199 CELAS3 199 101 199 200 200 101 200 201 CELAS3 201 101 201 202 202 101 202 203 CELAS3 203 101 203 204 204 101 204 205 CELAS3 205 101 205 206 206 101 206 207 CELAS3 207 101 207 208 208 101 208 209 CELAS3 209 101 209 210 210 101 210 211 CELAS3 211 101 211 212 212 101 212 213 CELAS3 213 101 213 214 214 101 214 215 CELAS3 215 101 215 216 216 101 216 217 CELAS3 217 101 217 218 218 101 218 219 CELAS3 219 101 219 220 220 101 220 221 CELAS3 221 101 221 222 222 101 222 223 CELAS3 223 101 223 224 224 101 224 225 CELAS3 225 101 225 226 226 101 226 227 CELAS3 227 101 227 228 228 101 228 229 CELAS3 229 101 229 230 230 101 230 231 CELAS3 231 101 231 232 232 101 232 233 CELAS3 233 101 233 234 234 101 234 235 CELAS3 235 101 235 236 236 101 236 237 CELAS3 237 101 237 238 238 101 238 239 CELAS3 239 101 239 240 240 101 240 241 CELAS3 241 101 241 242 242 101 242 243 CELAS3 243 101 243 244 244 101 244 245 CELAS3 245 101 245 246 246 101 246 247 CELAS3 247 101 247 248 248 101 248 249 CELAS3 249 101 249 250 250 101 250 251 CELAS3 251 101 251 252 252 101 252 253 CELAS3 253 101 253 254 254 101 254 255 CELAS3 255 101 255 256 256 101 256 257 CELAS3 257 101 257 258 258 101 258 259 CELAS3 259 101 259 260 260 101 260 261 CELAS3 261 101 261 262 262 101 262 263 CELAS3 263 101 263 264 264 101 264 265 CELAS3 265 101 265 266 266 101 266 267 CELAS3 267 101 267 268 268 101 268 269 CELAS3 269 101 269 270 270 101 270 271 CELAS3 271 101 271 272 272 101 272 273 CELAS3 273 101 273 274 274 101 274 275 CELAS3 275 101 275 276 276 101 276 277 CELAS3 277 101 277 278 278 101 278 279 CELAS3 279 101 279 280 280 101 280 281 CELAS3 281 101 281 282 282 101 282 283 CELAS3 283 101 283 284 284 101 284 285 CELAS3 285 101 285 286 286 101 286 287 CELAS3 287 101 287 288 288 101 288 289 CELAS3 289 101 289 290 290 101 290 291 CELAS3 291 101 291 292 292 101 292 293 CELAS3 293 101 293 294 294 101 294 295 CELAS3 295 101 295 296 296 101 296 297 CELAS3 297 101 297 298 298 101 298 299 CELAS3 299 101 299 300 300 101 300 301 CELAS3 301 101 301 302 302 101 302 303 CELAS3 303 101 303 304 304 101 304 305 CELAS3 305 101 305 306 306 101 306 307 CELAS3 307 101 307 308 308 101 308 309 CELAS3 309 101 309 310 310 101 310 311 CELAS3 311 101 311 312 312 101 312 313 CELAS3 313 101 313 314 314 101 314 315 CELAS3 315 101 315 316 316 101 316 317 CELAS3 317 101 317 318 318 101 318 319 CELAS3 319 101 319 320 320 101 320 321 CELAS3 321 101 321 322 322 101 322 323 CELAS3 323 101 323 324 324 101 324 325 CELAS3 325 101 325 326 326 101 326 327 CELAS3 327 101 327 328 328 101 328 329 CELAS3 329 101 329 330 330 101 330 331 CELAS3 331 101 331 332 332 101 332 333 CELAS3 333 101 333 334 334 101 334 335 CELAS3 335 101 335 336 336 101 336 337 CELAS3 337 101 337 338 338 101 338 339 CELAS3 339 101 339 340 340 101 340 341 CELAS3 341 101 341 342 342 101 342 343 CELAS3 343 101 343 344 344 101 344 345 CELAS3 345 101 345 346 346 101 346 347 CELAS3 347 101 347 348 348 101 348 349 CELAS3 349 101 349 350 350 101 350 351 CELAS3 351 101 351 352 352 101 352 353 CELAS3 353 101 353 354 354 101 354 355 CELAS3 355 101 355 356 356 101 356 357 CELAS3 357 101 357 358 358 101 358 359 CELAS3 359 101 359 360 360 101 360 361 CELAS3 361 101 361 362 362 101 362 363 CELAS3 363 101 363 364 364 101 364 365 CELAS3 365 101 365 366 366 101 366 367 CELAS3 367 101 367 368 368 101 368 369 CELAS3 369 101 369 370 370 101 370 371 CELAS3 371 101 371 372 372 101 372 373 CELAS3 373 101 373 374 374 101 374 375 CELAS3 375 101 375 376 376 101 376 377 CELAS3 377 101 377 378 378 101 378 379 CELAS3 379 101 379 380 380 101 380 381 CELAS3 381 101 381 382 382 101 382 383 CELAS3 383 101 383 384 384 101 384 385 CELAS3 385 101 385 386 386 101 386 387 CELAS3 387 101 387 388 388 101 388 389 CELAS3 389 101 389 390 390 101 390 391 CELAS3 391 101 391 392 392 101 392 393 CELAS3 393 101 393 394 394 101 394 395 CELAS3 395 101 395 396 396 101 396 397 CELAS3 397 101 397 398 398 101 398 399 CELAS3 399 101 399 400 400 101 400 401 CELAS3 401 101 401 402 402 101 402 403 CELAS3 403 101 403 404 404 101 404 405 CELAS3 405 101 405 406 406 101 406 407 CELAS3 407 101 407 408 408 101 408 409 CELAS3 409 101 409 410 410 101 410 411 CELAS3 411 101 411 412 412 101 412 413 CELAS3 413 101 413 414 414 101 414 415 CELAS3 415 101 415 416 416 101 416 417 CELAS3 417 101 417 418 418 101 418 419 CELAS3 419 101 419 420 420 101 420 421 CELAS3 421 101 421 422 422 101 422 423 CELAS3 423 101 423 424 424 101 424 425 CELAS3 425 101 425 426 426 101 426 427 CELAS3 427 101 427 428 428 101 428 429 CELAS3 429 101 429 430 430 101 430 431 CELAS3 431 101 431 432 432 101 432 433 CELAS3 433 101 433 434 434 101 434 435 CELAS3 435 101 435 436 436 101 436 437 CELAS3 437 101 437 438 438 101 438 439 CELAS3 439 101 439 440 440 101 440 441 CELAS3 441 101 441 442 442 101 442 443 CELAS3 443 101 443 444 444 101 444 445 CELAS3 445 101 445 446 446 101 446 447 CELAS3 447 101 447 448 448 101 448 449 CELAS3 449 101 449 450 450 101 450 451 CELAS3 451 101 451 452 452 101 452 453 CELAS3 453 101 453 454 454 101 454 455 CELAS3 455 101 455 456 456 101 456 457 CELAS3 457 101 457 458 458 101 458 459 CELAS3 459 101 459 460 460 101 460 461 CELAS3 461 101 461 462 462 101 462 463 CELAS3 463 101 463 464 464 101 464 465 CELAS3 465 101 465 466 466 101 466 467 CELAS3 467 101 467 468 468 101 468 469 CELAS3 469 101 469 470 470 101 470 471 CELAS3 471 101 471 472 472 101 472 473 CELAS3 473 101 473 474 474 101 474 475 CELAS3 475 101 475 476 476 101 476 477 CELAS3 477 101 477 478 478 101 478 479 CELAS3 479 101 479 480 480 101 480 481 CELAS3 481 101 481 482 482 101 482 483 CELAS3 483 101 483 484 484 101 484 485 CELAS3 485 101 485 486 486 101 486 487 CELAS3 487 101 487 488 488 101 488 489 CELAS3 489 101 489 490 490 101 490 491 CELAS3 491 101 491 492 492 101 492 493 CELAS3 493 101 493 494 494 101 494 495 CELAS3 495 101 495 496 496 101 496 497 CELAS3 497 101 497 498 498 101 498 499 CELAS3 499 101 499 500 500 101 500 0 CMASS3 40002 301 2 0 CMASS3 40003 301 3 0 40004 301 4 0 CMASS3 40005 301 5 0 40006 301 6 0 CMASS3 40007 301 7 0 40008 301 8 0 CMASS3 40009 301 9 0 40010 301 10 0 CMASS3 40011 301 11 0 40012 301 12 0 CMASS3 40013 301 13 0 40014 301 14 0 CMASS3 40015 301 15 0 40016 301 16 0 CMASS3 40017 301 17 0 40018 301 18 0 CMASS3 40019 301 19 0 40020 301 20 0 CMASS3 40021 301 21 0 40022 301 22 0 CMASS3 40023 301 23 0 40024 301 24 0 CMASS3 40025 301 25 0 40026 301 26 0 CMASS3 40027 301 27 0 40028 301 28 0 CMASS3 40029 301 29 0 40030 301 30 0 CMASS3 40031 301 31 0 40032 301 32 0 CMASS3 40033 301 33 0 40034 301 34 0 CMASS3 40035 301 35 0 40036 301 36 0 CMASS3 40037 301 37 0 40038 301 38 0 CMASS3 40039 301 39 0 40040 301 40 0 CMASS3 40041 301 41 0 40042 301 42 0 CMASS3 40043 301 43 0 40044 301 44 0 CMASS3 40045 301 45 0 40046 301 46 0 CMASS3 40047 301 47 0 40048 301 48 0 CMASS3 40049 301 49 0 40050 301 50 0 CMASS3 40051 301 51 0 40052 301 52 0 CMASS3 40053 301 53 0 40054 301 54 0 CMASS3 40055 301 55 0 40056 301 56 0 CMASS3 40057 301 57 0 40058 301 58 0 CMASS3 40059 301 59 0 40060 301 60 0 CMASS3 40061 301 61 0 40062 301 62 0 CMASS3 40063 301 63 0 40064 301 64 0 CMASS3 40065 301 65 0 40066 301 66 0 CMASS3 40067 301 67 0 40068 301 68 0 CMASS3 40069 301 69 0 40070 301 70 0 CMASS3 40071 301 71 0 40072 301 72 0 CMASS3 40073 301 73 0 40074 301 74 0 CMASS3 40075 301 75 0 40076 301 76 0 CMASS3 40077 301 77 0 40078 301 78 0 CMASS3 40079 301 79 0 40080 301 80 0 CMASS3 40081 301 81 0 40082 301 82 0 CMASS3 40083 301 83 0 40084 301 84 0 CMASS3 40085 301 85 0 40086 301 86 0 CMASS3 40087 301 87 0 40088 301 88 0 CMASS3 40089 301 89 0 40090 301 90 0 CMASS3 40091 301 91 0 40092 301 92 0 CMASS3 40093 301 93 0 40094 301 94 0 CMASS3 40095 301 95 0 40096 301 96 0 CMASS3 40097 301 97 0 40098 301 98 0 CMASS3 40099 301 99 0 40100 301 100 0 CMASS3 40101 301 101 0 40102 301 102 0 CMASS3 40103 301 103 0 40104 301 104 0 CMASS3 40105 301 105 0 40106 301 106 0 CMASS3 40107 301 107 0 40108 301 108 0 CMASS3 40109 301 109 0 40110 301 110 0 CMASS3 40111 301 111 0 40112 301 112 0 CMASS3 40113 301 113 0 40114 301 114 0 CMASS3 40115 301 115 0 40116 301 116 0 CMASS3 40117 301 117 0 40118 301 118 0 CMASS3 40119 301 119 0 40120 301 120 0 CMASS3 40121 301 121 0 40122 301 122 0 CMASS3 40123 301 123 0 40124 301 124 0 CMASS3 40125 301 125 0 40126 301 126 0 CMASS3 40127 301 127 0 40128 301 128 0 CMASS3 40129 301 129 0 40130 301 130 0 CMASS3 40131 301 131 0 40132 301 132 0 CMASS3 40133 301 133 0 40134 301 134 0 CMASS3 40135 301 135 0 40136 301 136 0 CMASS3 40137 301 137 0 40138 301 138 0 CMASS3 40139 301 139 0 40140 301 140 0 CMASS3 40141 301 141 0 40142 301 142 0 CMASS3 40143 301 143 0 40144 301 144 0 CMASS3 40145 301 145 0 40146 301 146 0 CMASS3 40147 301 147 0 40148 301 148 0 CMASS3 40149 301 149 0 40150 301 150 0 CMASS3 40151 301 151 0 40152 301 152 0 CMASS3 40153 301 153 0 40154 301 154 0 CMASS3 40155 301 155 0 40156 301 156 0 CMASS3 40157 301 157 0 40158 301 158 0 CMASS3 40159 301 159 0 40160 301 160 0 CMASS3 40161 301 161 0 40162 301 162 0 CMASS3 40163 301 163 0 40164 301 164 0 CMASS3 40165 301 165 0 40166 301 166 0 CMASS3 40167 301 167 0 40168 301 168 0 CMASS3 40169 301 169 0 40170 301 170 0 CMASS3 40171 301 171 0 40172 301 172 0 CMASS3 40173 301 173 0 40174 301 174 0 CMASS3 40175 301 175 0 40176 301 176 0 CMASS3 40177 301 177 0 40178 301 178 0 CMASS3 40179 301 179 0 40180 301 180 0 CMASS3 40181 301 181 0 40182 301 182 0 CMASS3 40183 301 183 0 40184 301 184 0 CMASS3 40185 301 185 0 40186 301 186 0 CMASS3 40187 301 187 0 40188 301 188 0 CMASS3 40189 301 189 0 40190 301 190 0 CMASS3 40191 301 191 0 40192 301 192 0 CMASS3 40193 301 193 0 40194 301 194 0 CMASS3 40195 301 195 0 40196 301 196 0 CMASS3 40197 301 197 0 40198 301 198 0 CMASS3 40199 301 199 0 40200 301 200 0 CMASS3 40201 301 201 0 40202 301 202 0 CMASS3 40203 301 203 0 40204 301 204 0 CMASS3 40205 301 205 0 40206 301 206 0 CMASS3 40207 301 207 0 40208 301 208 0 CMASS3 40209 301 209 0 40210 301 210 0 CMASS3 40211 301 211 0 40212 301 212 0 CMASS3 40213 301 213 0 40214 301 214 0 CMASS3 40215 301 215 0 40216 301 216 0 CMASS3 40217 301 217 0 40218 301 218 0 CMASS3 40219 301 219 0 40220 301 220 0 CMASS3 40221 301 221 0 40222 301 222 0 CMASS3 40223 301 223 0 40224 301 224 0 CMASS3 40225 301 225 0 40226 301 226 0 CMASS3 40227 301 227 0 40228 301 228 0 CMASS3 40229 301 229 0 40230 301 230 0 CMASS3 40231 301 231 0 40232 301 232 0 CMASS3 40233 301 233 0 40234 301 234 0 CMASS3 40235 301 235 0 40236 301 236 0 CMASS3 40237 301 237 0 40238 301 238 0 CMASS3 40239 301 239 0 40240 301 240 0 CMASS3 40241 301 241 0 40242 301 242 0 CMASS3 40243 301 243 0 40244 301 244 0 CMASS3 40245 301 245 0 40246 301 246 0 CMASS3 40247 301 247 0 40248 301 248 0 CMASS3 40249 301 249 0 40250 301 250 0 CMASS3 40251 301 251 0 40252 301 252 0 CMASS3 40253 301 253 0 40254 301 254 0 CMASS3 40255 301 255 0 40256 301 256 0 CMASS3 40257 301 257 0 40258 301 258 0 CMASS3 40259 301 259 0 40260 301 260 0 CMASS3 40261 301 261 0 40262 301 262 0 CMASS3 40263 301 263 0 40264 301 264 0 CMASS3 40265 301 265 0 40266 301 266 0 CMASS3 40267 301 267 0 40268 301 268 0 CMASS3 40269 301 269 0 40270 301 270 0 CMASS3 40271 301 271 0 40272 301 272 0 CMASS3 40273 301 273 0 40274 301 274 0 CMASS3 40275 301 275 0 40276 301 276 0 CMASS3 40277 301 277 0 40278 301 278 0 CMASS3 40279 301 279 0 40280 301 280 0 CMASS3 40281 301 281 0 40282 301 282 0 CMASS3 40283 301 283 0 40284 301 284 0 CMASS3 40285 301 285 0 40286 301 286 0 CMASS3 40287 301 287 0 40288 301 288 0 CMASS3 40289 301 289 0 40290 301 290 0 CMASS3 40291 301 291 0 40292 301 292 0 CMASS3 40293 301 293 0 40294 301 294 0 CMASS3 40295 301 295 0 40296 301 296 0 CMASS3 40297 301 297 0 40298 301 298 0 CMASS3 40299 301 299 0 40300 301 300 0 CMASS3 40301 301 301 0 40302 301 302 0 CMASS3 40303 301 303 0 40304 301 304 0 CMASS3 40305 301 305 0 40306 301 306 0 CMASS3 40307 301 307 0 40308 301 308 0 CMASS3 40309 301 309 0 40310 301 310 0 CMASS3 40311 301 311 0 40312 301 312 0 CMASS3 40313 301 313 0 40314 301 314 0 CMASS3 40315 301 315 0 40316 301 316 0 CMASS3 40317 301 317 0 40318 301 318 0 CMASS3 40319 301 319 0 40320 301 320 0 CMASS3 40321 301 321 0 40322 301 322 0 CMASS3 40323 301 323 0 40324 301 324 0 CMASS3 40325 301 325 0 40326 301 326 0 CMASS3 40327 301 327 0 40328 301 328 0 CMASS3 40329 301 329 0 40330 301 330 0 CMASS3 40331 301 331 0 40332 301 332 0 CMASS3 40333 301 333 0 40334 301 334 0 CMASS3 40335 301 335 0 40336 301 336 0 CMASS3 40337 301 337 0 40338 301 338 0 CMASS3 40339 301 339 0 40340 301 340 0 CMASS3 40341 301 341 0 40342 301 342 0 CMASS3 40343 301 343 0 40344 301 344 0 CMASS3 40345 301 345 0 40346 301 346 0 CMASS3 40347 301 347 0 40348 301 348 0 CMASS3 40349 301 349 0 40350 301 350 0 CMASS3 40351 301 351 0 40352 301 352 0 CMASS3 40353 301 353 0 40354 301 354 0 CMASS3 40355 301 355 0 40356 301 356 0 CMASS3 40357 301 357 0 40358 301 358 0 CMASS3 40359 301 359 0 40360 301 360 0 CMASS3 40361 301 361 0 40362 301 362 0 CMASS3 40363 301 363 0 40364 301 364 0 CMASS3 40365 301 365 0 40366 301 366 0 CMASS3 40367 301 367 0 40368 301 368 0 CMASS3 40369 301 369 0 40370 301 370 0 CMASS3 40371 301 371 0 40372 301 372 0 CMASS3 40373 301 373 0 40374 301 374 0 CMASS3 40375 301 375 0 40376 301 376 0 CMASS3 40377 301 377 0 40378 301 378 0 CMASS3 40379 301 379 0 40380 301 380 0 CMASS3 40381 301 381 0 40382 301 382 0 CMASS3 40383 301 383 0 40384 301 384 0 CMASS3 40385 301 385 0 40386 301 386 0 CMASS3 40387 301 387 0 40388 301 388 0 CMASS3 40389 301 389 0 40390 301 390 0 CMASS3 40391 301 391 0 40392 301 392 0 CMASS3 40393 301 393 0 40394 301 394 0 CMASS3 40395 301 395 0 40396 301 396 0 CMASS3 40397 301 397 0 40398 301 398 0 CMASS3 40399 301 399 0 40400 301 400 0 CMASS3 40401 301 401 0 40402 301 402 0 CMASS3 40403 301 403 0 40404 301 404 0 CMASS3 40405 301 405 0 40406 301 406 0 CMASS3 40407 301 407 0 40408 301 408 0 CMASS3 40409 301 409 0 40410 301 410 0 CMASS3 40411 301 411 0 40412 301 412 0 CMASS3 40413 301 413 0 40414 301 414 0 CMASS3 40415 301 415 0 40416 301 416 0 CMASS3 40417 301 417 0 40418 301 418 0 CMASS3 40419 301 419 0 40420 301 420 0 CMASS3 40421 301 421 0 40422 301 422 0 CMASS3 40423 301 423 0 40424 301 424 0 CMASS3 40425 301 425 0 40426 301 426 0 CMASS3 40427 301 427 0 40428 301 428 0 CMASS3 40429 301 429 0 40430 301 430 0 CMASS3 40431 301 431 0 40432 301 432 0 CMASS3 40433 301 433 0 40434 301 434 0 CMASS3 40435 301 435 0 40436 301 436 0 CMASS3 40437 301 437 0 40438 301 438 0 CMASS3 40439 301 439 0 40440 301 440 0 CMASS3 40441 301 441 0 40442 301 442 0 CMASS3 40443 301 443 0 40444 301 444 0 CMASS3 40445 301 445 0 40446 301 446 0 CMASS3 40447 301 447 0 40448 301 448 0 CMASS3 40449 301 449 0 40450 301 450 0 CMASS3 40451 301 451 0 40452 301 452 0 CMASS3 40453 301 453 0 40454 301 454 0 CMASS3 40455 301 455 0 40456 301 456 0 CMASS3 40457 301 457 0 40458 301 458 0 CMASS3 40459 301 459 0 40460 301 460 0 CMASS3 40461 301 461 0 40462 301 462 0 CMASS3 40463 301 463 0 40464 301 464 0 CMASS3 40465 301 465 0 40466 301 466 0 CMASS3 40467 301 467 0 40468 301 468 0 CMASS3 40469 301 469 0 40470 301 470 0 CMASS3 40471 301 471 0 40472 301 472 0 CMASS3 40473 301 473 0 40474 301 474 0 CMASS3 40475 301 475 0 40476 301 476 0 CMASS3 40477 301 477 0 40478 301 478 0 CMASS3 40479 301 479 0 40480 301 480 0 CMASS3 40481 301 481 0 40482 301 482 0 CMASS3 40483 301 483 0 40484 301 484 0 CMASS3 40485 301 485 0 40486 301 486 0 CMASS3 40487 301 487 0 40488 301 488 0 CMASS3 40489 301 489 0 40490 301 490 0 CMASS3 40491 301 491 0 40492 301 492 0 CMASS3 40493 301 493 0 40494 301 494 0 CMASS3 40495 301 495 0 40496 301 496 0 CMASS3 40497 301 497 0 40498 301 498 0 CMASS3 40499 301 499 0 40500 301 500 0 EIGC 1 FEER MAX +CFEER +CFEER -1.0 12.0 EIGC 7 DET MAX 1.0-5 +EIGC7 +EIGC7 -.5 5.0 -.9 16.0 10.0 2 2 PARAM G .05 PDAMP 401 6.283185 PELAS 101 1.0+07 .05 10.0 PMASS 301 10.0 ENDDATA ================================================ FILE: inp/d07011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 7, Complex Eigenvalue Analysis - Direct Formulation $ Complex Eigenvalue Analysis of a 500-Cell String (7-1-1) $ Complex Eigenvalue Analysis of a 500-Cell String (INPUT, 7-1-2) $ $ A. Description $ $ This problem demonstrates both the use of direct complex eigenvalue analysis $ and the various methods of supplying damping to the structure. The simulated $ model is a string under tension having uniform viscous and structural damping. $ The stiffness due to tension is modeled with scalar springs, the mass is $ represented by scalar masses, and the viscous damping is provided by scalar $ dampers connected on one end to the points and fixed on the other end. The $ structural damping is provided by the scalar springs and an overall damping $ factor, g . The INPUT module is used to generate the scalar springs, dampers, $ 3 $ and masses. $ $ B. Input $ $ 1. Parameters: $ $ 7 $ k = 1.0 x 10 (scalar springs) $ i $ $ m = 10.0 (scalar masses) $ i $ $ b = 6.28318 (scalar dampers) $ i $ $ g = 0.05 (structural element damping) $ s $ $ g = 0.05 (overall damping parameter) $ 3 $ $ N = 500 (number of scalar springs) $ $ 2. Constraints: $ $ The end scalar springs are fixed on the outer ends so constraints are $ unnecessary. $ $ 3. Eigenvalue ExtractIon Data: $ $ Method: FEER $ $ Center Point: (r,i) = (-1.0, 15.0) $ $ Normalization: Maximum deflection $ $ C. Theory $ $ Complex Eigenvalue Analysis is used to solve the following general matrix $ equation: $ $ 2 $ ([M]p + [B]p + [K]){u} = 0 (1) $ $ where $ $ p is the complex root $ $ [M] is the complex mass matrix $ $ [B] is the complex damping matrix for viscous damping $ $ [K] is the complex stiffness matrix which contains imaginary components $ representing the structural damping. $ $ According to Reference 11, Chapter 6, the differential equation for a string $ under tension is $ $ 2 2 $ a u a u au $ T --- = -mu --- - beta -- (2) $ 2 2 at $ ax at $ $ where $ $ T is the string tension $ $ mu is the mass per unit length $ $ beta is the viscous damping per unit length $ $ The finite difference representation for this equation is $ $ 2 $ d u du $ T i i $ -------- (u - 2u + u ) = -mu ----- -beta --- (3) $ 2 i-1 i i+1 2 dt $ delta x dt $ $ The equation of the finite element model which corresponds to this equation is $ $ .. . $ m u + b u + (1 + ig)k (u - 2u + u ) = F (4) $ i i i i i i-1 i i+1 i $ $ where $ $ g = g + g (additional structural damping defined for the $ 3 s NASTRAN solution) $ $ m = mu delta x (element mass) $ i $ $ b = beta delta x (element vi scorns damping) $ i $ $ T $ k = -------- (element stiffness) $ i 2 $ delta x $ $ The natural frequency for an undamped string, according to Reference 11, is $ $ pi n pi n $ w = ---- sqrt(T/mu) = ---- sqrt(k /m ) = 2 pi n (5) $ n l N i i $ $ Its deflection shape is $ $ n pi x $ u(x) = sin ------- (6) $ l $ $ and $ $ n pi i $ phi = sin ------ (7) $ in N $ $ The modal masses are $ $ m N $ 2 mu l i $ M = integral from o to l mu u (x)dx = ---- = --- (8) $ n 2 2 $ $ Substituting the real eigenvectors and eigenvalues into the complex equation $ for complex roots we obtain for each mode, n, $ $ 2 2 $ M p + (b /m ) M p + (1 + ig) w M = 0 (9) $ n i i n n n $ $ The solution is $ $ b $ i 2 2 $ p = - ---- +/- sqrt((b /2m ) - (1+ig)w ) (10) $ 2m i i n $ i $ $ D. Results $ $ The theoretical and NASTRAN complex roots are presented below in Table 1. The $ eigenvectors, which are the same as the real eigenvectors, are nearly exact $ for the finite element model. $ $ Table 1. NASTRAN and Analytical Complex Roots $ ------------------------------------------------------------------- $ Real Natural $ Frequency Theoretical Roots NASTRAN Roots $ n (Hz) (radians per second) (radians per second) $ ------------------------------------------------------------------- $ 1 1.0 - .6283 +/- 6.2832i - .6283 +/- 6.2832i $ $ 2 2.0 - .9419 +/- 12.578i - .9419 +/- 12.578i $ $ 3 3.0 -1.2556 +/- 18.870i -1.2556 +/- 18.870i $ $ 4 4.0 -1.5693 +/- 25.162i -1.5693 +/- 25.161i $ ------------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 11. I. S. Sokolnikoff and R. M. Redheffer, MATHEMATICS OF PHYSICS AND MODERN $ ENGINEERING. McGraw-Hill, 1958. $------------------------------------------------------------------------------- ================================================ FILE: inp/d07012a.inp ================================================ ID D07012A,NASTRAN TIME 15 APP DISP SOL 7,1 DIAG 14 ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/,G2,,,/C,N,5 $ EQUIV G2,GEOM2/TRUE $ ENDALTER $ CEND TITLE = COMPLEX EIGENVALUES OF A 500 CELL STRING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A CMETHOD = 1 $ FEER OUTPUT SET 1 = 1,51,101,151,201,251,301,351,401,451,501 DISP = 1 BEGIN BULK EIGC 1 FEER MAX +CFEER +CFEER -1.0 12.0 EIGC 7 DET MAX 1.0-5 +EIGC7 +EIGC7 -.5 5.0 -.9 16.0 10.0 2 2 PARAM G .10 ENDDATA 500 1.0E+07 0.0 1.0E+01 6.3E+00 ================================================ FILE: inp/d07012a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 7, Complex Eigenvalue Analysis - Direct Formulation $ Complex Eigenvalue Analysis of a 500-Cell String (7-1-1) $ Complex Eigenvalue Analysis of a 500-Cell String (INPUT, 7-1-2) $ $ A. Description $ $ This problem demonstrates both the use of direct complex eigenvalue analysis $ and the various methods of supplying damping to the structure. The simulated $ model is a string under tension having uniform viscous and structural damping. $ The stiffness due to tension is modeled with scalar springs, the mass is $ represented by scalar masses, and the viscous damping is provided by scalar $ dampers connected on one end to the points and fixed on the other end. The $ structural damping is provided by the scalar springs and an overall damping $ factor, g . The INPUT module is used to generate the scalar springs, dampers, $ 3 $ and masses. $ $ B. Input $ $ 1. Parameters: $ $ 7 $ k = 1.0 x 10 (scalar springs) $ i $ $ m = 10.0 (scalar masses) $ i $ $ b = 6.28318 (scalar dampers) $ i $ $ g = 0.05 (structural element damping) $ s $ $ g = 0.05 (overall damping parameter) $ 3 $ $ N = 500 (number of scalar springs) $ $ 2. Constraints: $ $ The end scalar springs are fixed on the outer ends so constraints are $ unnecessary. $ $ 3. Eigenvalue ExtractIon Data: $ $ Method: FEER $ $ Center Point: (r,i) = (-1.0, 15.0) $ $ Normalization: Maximum deflection $ $ C. Theory $ $ Complex Eigenvalue Analysis is used to solve the following general matrix $ equation: $ $ 2 $ ([M]p + [B]p + [K]){u} = 0 (1) $ $ where $ $ p is the complex root $ $ [M] is the complex mass matrix $ $ [B] is the complex damping matrix for viscous damping $ $ [K] is the complex stiffness matrix which contains imaginary components $ representing the structural damping. $ $ According to Reference 11, Chapter 6, the differential equation for a string $ under tension is $ $ 2 2 $ a u a u au $ T --- = -mu --- - beta -- (2) $ 2 2 at $ ax at $ $ where $ $ T is the string tension $ $ mu is the mass per unit length $ $ beta is the viscous damping per unit length $ $ The finite difference representation for this equation is $ $ 2 $ d u du $ T i i $ -------- (u - 2u + u ) = -mu ----- -beta --- (3) $ 2 i-1 i i+1 2 dt $ delta x dt $ $ The equation of the finite element model which corresponds to this equation is $ $ .. . $ m u + b u + (1 + ig)k (u - 2u + u ) = F (4) $ i i i i i i-1 i i+1 i $ $ where $ $ g = g + g (additional structural damping defined for the $ 3 s NASTRAN solution) $ $ m = mu delta x (element mass) $ i $ $ b = beta delta x (element vi scorns damping) $ i $ $ T $ k = -------- (element stiffness) $ i 2 $ delta x $ $ The natural frequency for an undamped string, according to Reference 11, is $ $ pi n pi n $ w = ---- sqrt(T/mu) = ---- sqrt(k /m ) = 2 pi n (5) $ n l N i i $ $ Its deflection shape is $ $ n pi x $ u(x) = sin ------- (6) $ l $ $ and $ $ n pi i $ phi = sin ------ (7) $ in N $ $ The modal masses are $ $ m N $ 2 mu l i $ M = integral from o to l mu u (x)dx = ---- = --- (8) $ n 2 2 $ $ Substituting the real eigenvectors and eigenvalues into the complex equation $ for complex roots we obtain for each mode, n, $ $ 2 2 $ M p + (b /m ) M p + (1 + ig) w M = 0 (9) $ n i i n n n $ $ The solution is $ $ b $ i 2 2 $ p = - ---- +/- sqrt((b /2m ) - (1+ig)w ) (10) $ 2m i i n $ i $ $ D. Results $ $ The theoretical and NASTRAN complex roots are presented below in Table 1. The $ eigenvectors, which are the same as the real eigenvectors, are nearly exact $ for the finite element model. $ $ Table 1. NASTRAN and Analytical Complex Roots $ ------------------------------------------------------------------- $ Real Natural $ Frequency Theoretical Roots NASTRAN Roots $ n (Hz) (radians per second) (radians per second) $ ------------------------------------------------------------------- $ 1 1.0 - .6283 +/- 6.2832i - .6283 +/- 6.2832i $ $ 2 2.0 - .9419 +/- 12.578i - .9419 +/- 12.578i $ $ 3 3.0 -1.2556 +/- 18.870i -1.2556 +/- 18.870i $ $ 4 4.0 -1.5693 +/- 25.162i -1.5693 +/- 25.161i $ ------------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 11. I. S. Sokolnikoff and R. M. Redheffer, MATHEMATICS OF PHYSICS AND MODERN $ ENGINEERING. McGraw-Hill, 1958. $------------------------------------------------------------------------------- ================================================ FILE: inp/d07021a.inp ================================================ ID D07021A,NASTRAN APP DISPLACEMENT SOL 7,3 TIME 100 CEND TITLE = COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A LABEL = HARMONIC 3 USING 1/12 SYMMETRY. CMETHOD = 1 SPC = 3 AXISYMMETRIC = FLUID OUTPUT HARMONICS = 3 SET 100 = 10,11, 26,27, 42,43, 58,59, 74,75, 81 THRU 96, 106,107, 122,123, 138,139, 154,155, 170,171 DISPLACEMENT = 100 BEGIN BULK AXIF 1 .0 1.8-2 2.88+3 NO +AXIF +AXIF 3 BDYLIST 10 26 42 58 74 90 106 +BDY-1 +BDY-1 122 138 154 170 CFLUID2 1001 17 1 CFLUID2 2001 33 17 CFLUID2 3001 49 33 CFLUID2 4001 65 49 CFLUID2 5001 81 65 CFLUID2 6001 97 81 CFLUID2 7001 113 97 CFLUID2 8001 129 113 CFLUID2 9001 145 129 CFLUID2 10001 161 145 CFLUID4 1002 18 2 1 17 CFLUID4 1003 19 3 2 18 CFLUID4 1004 20 4 3 19 CFLUID4 1005 21 5 4 20 CFLUID4 1006 22 6 5 21 CFLUID4 1007 23 7 6 22 CFLUID4 1008 24 8 7 23 CFLUID4 1009 25 9 8 24 CFLUID4 1010 26 10 9 25 CFLUID4 2002 34 18 17 33 CFLUID4 2003 35 19 18 34 CFLUID4 2004 36 20 19 35 CFLUID4 2005 37 21 20 36 CFLUID4 2006 38 22 21 37 CFLUID4 2007 39 23 22 38 CFLUID4 2008 40 24 23 39 CFLUID4 2009 41 25 24 40 CFLUID4 2010 42 26 25 41 CFLUID4 3002 50 34 33 49 CFLUID4 3003 51 35 34 50 CFLUID4 3004 52 36 35 51 CFLUID4 3005 53 37 36 52 CFLUID4 3006 54 38 37 53 CFLUID4 3007 55 39 38 54 CFLUID4 3008 56 40 39 55 CFLUID4 3009 57 41 40 56 CFLUID4 3010 58 42 41 57 CFLUID4 4002 66 50 49 65 CFLUID4 4003 67 51 50 66 CFLUID4 4004 68 52 51 67 CFLUID4 4005 69 53 52 68 CFLUID4 4006 70 54 53 69 CFLUID4 4007 71 55 54 70 CFLUID4 4008 72 56 55 71 CFLUID4 4009 73 57 56 72 CFLUID4 4010 74 58 57 73 CFLUID4 5002 82 66 65 81 CFLUID4 5003 83 67 66 82 CFLUID4 5004 84 68 67 83 CFLUID4 5005 85 69 68 84 CFLUID4 5006 86 70 69 85 CFLUID4 5007 87 71 70 86 CFLUID4 5008 88 72 71 87 CFLUID4 5009 89 73 72 88 CFLUID4 5010 90 74 73 89 CFLUID4 6002 98 82 81 97 CFLUID4 6003 99 83 82 98 CFLUID4 6004 100 84 83 99 CFLUID4 6005 101 85 84 100 CFLUID4 6006 102 86 85 101 CFLUID4 6007 103 87 86 102 CFLUID4 6008 104 88 87 103 CFLUID4 6009 105 89 88 104 CFLUID4 6010 106 90 89 105 CFLUID4 7002 114 98 97 113 CFLUID4 7003 115 99 98 114 CFLUID4 7004 116 100 99 115 CFLUID4 7005 117 101 100 116 CFLUID4 7006 118 102 101 117 CFLUID4 7007 119 103 102 118 CFLUID4 7008 120 104 103 119 CFLUID4 7009 121 105 104 120 CFLUID4 7010 122 106 105 121 CFLUID4 8002 130 114 113 129 CFLUID4 8003 131 115 114 130 CFLUID4 8004 132 116 115 131 CFLUID4 8005 133 117 116 132 CFLUID4 8006 134 118 117 133 CFLUID4 8007 135 119 118 134 CFLUID4 8008 136 120 119 135 CFLUID4 8009 137 121 120 136 CFLUID4 8010 138 122 121 137 CFLUID4 9002 146 130 129 145 CFLUID4 9003 147 131 130 146 CFLUID4 9004 148 132 131 147 CFLUID4 9005 149 133 132 148 CFLUID4 9006 150 134 133 149 CFLUID4 9007 151 135 134 150 CFLUID4 9008 152 136 135 151 CFLUID4 9009 153 137 136 152 CFLUID4 9010 154 138 137 153 CFLUID4 10002 162 146 145 161 CFLUID4 10003 163 147 146 162 CFLUID4 10004 164 148 147 163 CFLUID4 10005 165 149 148 164 CFLUID4 10006 166 150 149 165 CFLUID4 10007 167 151 150 166 CFLUID4 10008 168 152 151 167 CFLUID4 10009 169 153 152 168 CFLUID4 10010 170 154 153 169 CORD2C 1 .0 .0 .0 .0 .0 1.0 +CORD2C +CORD2C 1.0 .0 .0 CQUAD1 1011 1 27 28 12 11 CQUAD1 1012 1 28 29 13 12 CQUAD1 1013 1 29 30 14 13 CQUAD1 1014 1 30 31 15 14 CQUAD1 1015 1 31 32 16 15 CQUAD1 2011 1 43 44 28 27 CQUAD1 2012 1 44 45 29 28 CQUAD1 2013 1 45 46 30 29 CQUAD1 2014 1 46 47 31 30 CQUAD1 2015 1 47 48 32 31 CQUAD1 3011 1 59 60 44 43 CQUAD1 3012 1 60 61 45 44 CQUAD1 3013 1 61 62 46 45 CQUAD1 3014 1 62 63 47 46 CQUAD1 3015 1 63 64 48 47 CQUAD1 4011 1 75 76 60 59 CQUAD1 4012 1 76 77 61 60 CQUAD1 4013 1 77 78 62 61 CQUAD1 4014 1 78 79 63 62 CQUAD1 4015 1 79 80 64 63 CQUAD1 5011 1 91 92 76 75 CQUAD1 5012 1 92 93 77 76 CQUAD1 5013 1 93 94 78 77 CQUAD1 5014 1 94 95 79 78 CQUAD1 5015 1 95 96 80 79 CQUAD1 6011 1 107 108 92 91 CQUAD1 6012 1 108 109 93 92 CQUAD1 6013 1 109 110 94 93 CQUAD1 6014 1 110 111 95 94 CQUAD1 6015 1 111 112 96 95 CQUAD1 7011 1 123 124 108 107 CQUAD1 7012 1 124 125 109 108 CQUAD1 7013 1 125 126 110 109 CQUAD1 7014 1 126 127 111 110 CQUAD1 7015 1 127 128 112 111 CQUAD1 8011 1 139 140 124 123 CQUAD1 8012 1 140 141 125 124 CQUAD1 8013 1 141 142 126 125 CQUAD1 8014 1 142 143 127 126 CQUAD1 8015 1 143 144 128 127 CQUAD1 9011 1 155 156 140 139 CQUAD1 9012 1 156 157 141 140 CQUAD1 9013 1 157 158 142 141 CQUAD1 9014 1 158 159 143 142 CQUAD1 9015 1 159 160 144 143 CQUAD1 10011 1 171 172 156 155 CQUAD1 10012 1 172 173 157 156 CQUAD1 10013 1 173 174 158 157 CQUAD1 10014 1 174 175 159 158 CQUAD1 10015 1 175 176 160 159 EIGC 1 DET MAX +EIGC +EIGC .1 9.8 .1 10.8 1.0 1 1 FLSYM 12 S A FSLIST AXIS 1 2 3 4 5 6 +FSL-2 +FSL-2 7 8 9 10 FSLIST 170 169 168 167 166 165 164 +FSL-1 +FSL-1 163 162 161 AXIS GRIDB 11 .00 1 10 GRIDB 12 6.00000 1 10 GRIDB 13 12.0000 1 10 GRIDB 14 18.0000 1 10 GRIDB 15 24.0000 1 10 GRIDB 16 30.0000 1 10 GRIDB 27 .00 1 26 GRIDB 28 6.00000 1 26 GRIDB 29 12.0000 1 26 GRIDB 30 18.0000 1 26 GRIDB 31 24.0000 1 26 GRIDB 32 30.0000 1 26 GRIDB 43 .00 1 42 GRIDB 44 6.00000 1 42 GRIDB 45 12.0000 1 42 GRIDB 46 18.0000 1 42 GRIDB 47 24.0000 1 42 GRIDB 48 30.0000 1 42 GRIDB 59 .00 1 58 GRIDB 60 6.00000 1 58 GRIDB 61 12.0000 1 58 GRIDB 62 18.0000 1 58 GRIDB 63 24.0000 1 58 GRIDB 64 30.0000 1 58 GRIDB 75 .00 1 74 GRIDB 76 6.00000 1 74 GRIDB 77 12.0000 1 74 GRIDB 78 18.0000 1 74 GRIDB 79 24.0000 1 74 GRIDB 80 30.0000 1 74 GRIDB 91 .00 1 90 GRIDB 92 6.00000 1 90 GRIDB 93 12.0000 1 90 GRIDB 94 18.0000 1 90 GRIDB 95 24.0000 1 90 GRIDB 96 30.0000 1 90 GRIDB 107 .00 1 106 GRIDB 108 6.00000 1 106 GRIDB 109 12.0000 1 106 GRIDB 110 18.0000 1 106 GRIDB 111 24.0000 1 106 GRIDB 112 30.0000 1 106 GRIDB 123 .00 1 122 GRIDB 124 6.00000 1 122 GRIDB 125 12.0000 1 122 GRIDB 126 18.0000 1 122 GRIDB 127 24.0000 1 122 GRIDB 128 30.0000 1 122 GRIDB 139 .00 1 138 GRIDB 140 6.00000 1 138 GRIDB 141 12.0000 1 138 GRIDB 142 18.0000 1 138 GRIDB 143 24.0000 1 138 GRIDB 144 30.0000 1 138 GRIDB 155 .00 1 154 GRIDB 156 6.00000 1 154 GRIDB 157 12.0000 1 154 GRIDB 158 18.0000 1 154 GRIDB 159 24.0000 1 154 GRIDB 160 30.0000 1 154 GRIDB 171 .00 1 170 GRIDB 172 6.00000 1 170 GRIDB 173 12.0000 1 170 GRIDB 174 18.0000 1 170 GRIDB 175 24.0000 1 170 GRIDB 176 30.0000 1 170 MAT1 2 1.6+5 6.0+4 6.0-2 PQUAD1 1 2 .01 2 8.3333-8 +PQUAD1 +PQUAD1 .0 .005 RINGFL 1 1.00000 10.0000 2 2.00000 10.0000 RINGFL 3 3.00000 10.0000 4 4.00000 10.0000 RINGFL 5 5.00000 10.0000 6 6.00000 10.0000 RINGFL 7 7.00000 10.0000 8 8.00000 10.0000 RINGFL 9 9.00000 10.0000 10 10.0000 10.0000 RINGFL 17 1.00000 9.00000 18 2.00000 9.00000 RINGFL 19 3.00000 9.00000 20 4.00000 9.00000 RINGFL 21 5.00000 9.00000 22 6.00000 9.00000 RINGFL 23 7.00000 9.00000 24 8.00000 9.00000 RINGFL 25 9.00000 9.00000 26 10.0000 9.00000 RINGFL 33 1.00000 8.00000 34 2.00000 8.00000 RINGFL 35 3.00000 8.00000 36 4.00000 8.00000 RINGFL 37 5.00000 8.00000 38 6.00000 8.00000 RINGFL 39 7.00000 8.00000 40 8.00000 8.00000 RINGFL 41 9.00000 8.00000 42 10.0000 8.00000 RINGFL 49 1.00000 7.00000 50 2.00000 7.00000 RINGFL 51 3.00000 7.00000 52 4.00000 7.00000 RINGFL 53 5.00000 7.00000 54 6.00000 7.00000 RINGFL 55 7.00000 7.00000 56 8.00000 7.00000 RINGFL 57 9.00000 7.00000 58 10.0000 7.00000 RINGFL 65 1.00000 6.00000 66 2.00000 6.00000 RINGFL 67 3.00000 6.00000 68 4.00000 6.00000 RINGFL 69 5.00000 6.00000 70 6.00000 6.00000 RINGFL 71 7.00000 6.00000 72 8.00000 6.00000 RINGFL 73 9.00000 6.00000 74 10.0000 6.00000 RINGFL 81 1.00000 5.00000 82 2.00000 5.00000 RINGFL 83 3.00000 5.00000 84 4.00000 5.00000 RINGFL 85 5.00000 5.00000 86 6.00000 5.00000 RINGFL 87 7.00000 5.00000 88 8.00000 5.00000 RINGFL 89 9.00000 5.00000 90 10.0000 5.00000 RINGFL 97 1.00000 4.00000 98 2.00000 4.00000 RINGFL 99 3.00000 4.00000 100 4.00000 4.00000 RINGFL 101 5.00000 4.00000 102 6.00000 4.00000 RINGFL 103 7.00000 4.00000 104 8.00000 4.00000 RINGFL 105 9.00000 4.00000 106 10.0000 4.00000 RINGFL 113 1.00000 3.00000 114 2.00000 3.00000 RINGFL 115 3.00000 3.00000 116 4.00000 3.00000 RINGFL 117 5.00000 3.00000 118 6.00000 3.00000 RINGFL 119 7.00000 3.00000 120 8.00000 3.00000 RINGFL 121 9.00000 3.00000 122 10.0000 3.00000 RINGFL 129 1.00000 2.00000 130 2.00000 2.00000 RINGFL 131 3.00000 2.00000 132 4.00000 2.00000 RINGFL 133 5.00000 2.00000 134 6.00000 2.00000 RINGFL 135 7.00000 2.00000 136 8.00000 2.00000 RINGFL 137 9.00000 2.00000 138 10.0000 2.00000 RINGFL 145 1.00000 1.00000 146 2.00000 1.00000 RINGFL 147 3.00000 1.00000 148 4.00000 1.00000 RINGFL 149 5.00000 1.00000 150 6.00000 1.00000 RINGFL 151 7.00000 1.00000 152 8.00000 1.00000 RINGFL 153 9.00000 1.00000 154 10.0000 1.00000 RINGFL 161 1.00000 .00 162 2.00000 .00 RINGFL 163 3.00000 .00 164 4.00000 .00 RINGFL 165 5.00000 .00 166 6.00000 .00 RINGFL 167 7.00000 .00 168 8.00000 .00 RINGFL 169 9.00000 .00 170 10.0000 .00 SPC1 3 126 11 12 13 14 15 16 H=3 SPC1 3 126 171 172 173 174 175 176 H=3 SPC1 3 135 16 32 48 64 80 96 H=3 SPC1 3 135 112 128 144 160 176 H=3 SPC1 3 246 11 27 43 59 75 91 H=3 SPC1 3 246 107 123 139 155 171 H=3 ENDDATA ================================================ FILE: inp/d07021a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 7, Complex Eigenvalue Analysis - Direct Formulation $ Third Harmonic Complex Eigenvalue Analysis of a Gas-Filled $ Thin Elastic Cylinder (7-2-1) $ Fifth Harmonic Complex Eigenvalue Analysis of a Gas-Filled $ Thin Elastic Cylinder (7-2-2) $ $ A. Description $ $ This problem demonstrates the use of symmetry to analyze specific harmonics of $ a fluid-filled structure. The problem to be solved consists of a cylindrical $ section filled with a compressible fluid. The end conditions for the cylinder $ and the fluid are two planes of antisymmetry, perpendicular to the axis. These $ end conditions correspond to the conditions that exist at periodic intervals $ along a long, fluid-filled pipe vibrating in one of its vibration modes. The $ antisymmetric boundary for the structure is defined by constraining the $ motions which lie in the plane. An antisymmetric boundary for the fluid $ corresponds to zero pressure. This may be modeled, in NASTRAN, by defining the $ plane of antisymmetry as a free surface with zero gravity. $ $ The lowest natural frequencies and mode shapes for the third and fifth $ harmonics are analyzed separately. For the third harmonic, the structure is $ defined by a section of a cylinder having an arc of 30 degrees or 1/12 of a $ circle. The fifth harmonic analysis uses a section having an arc of 18 degrees $ or 1/20 of a circle. The longitudinal edges, which were cut, are planes of $ symmetry and antisymmetry in order to model a quarter cosine wave length. $ $ The bulk data cards used are; AXIF, BDYLIST, CFLUID2, CFLUID4, CORD2C, CQUAD1, $ EIGC, FLSYM, FSLIST, GRIDB, MAT1, PQUAD1, RINGFL, and SPC1. $ $ B. Input $ $ The finite element model for the third harmonic uses the following parameters: $ $ 3 2 $ B = 2.88 x 10 lb/in (Bulk modulus of fluid) $ $ -2 2 4 $ p = 1.8 x 10 lb-sec /in (Fluid mass density) $ f $ -2 2 4 $ p = 6.0 x 10 lb-sec /in (Structure mass density) $ s $ $ 5 2 $ E = 1.6 x 10 lb/in (Young's modulus for structure) $ $ 4 2 $ G = 6.0 x 10 lb/in (Shear modulus for structure) $ $ a = 10.0 inch (Radius of cylinder) $ $ l = 10.0 inch (Length of cylinder) $ $ h = 0.01 inch (Thickness of cylinder) $ $ The model for the fifth harmonic is similar to the third harmonic model except $ that the angle covered by the structure is 18 degrees instead of 30 degrees. $ This is accomplished by simply removing the structural elements and boundary $ GRIDB points corresponding to the two right-hand layers of structure (between $ 18 degrees and 30 degrees). The FLSYM, FSLIST, and SPC1 cards are changed to $ reflect the 1/20 symmetry. $ $ C. Theory $ $ The derivations and results for this problem are described in Reference 16. $ The results for various dimensionless parameters are listed. The particular $ parameters for the problem at hand are: $ $ p a $ f $ n = --- = 300.0 $ p h $ s $ $ Gp $ f $ C = sqrt(---) = 2.5 $ Bp $ x $ $ P a $ o $ omega = --- = 0.0 $ Gh $ $ where n is the ratio of fluid mass to structure mass. C is the ratio of the $ wave velocity in the structure material to the wave velocity in the fluid. $ Omega is the factor describing static pressurization, P . $ o $ $ The basic assumptions for this analysis are: $ $ 1. Thin shell theory is used for the structure. The bending moment terms in $ the force equilibrium equations are ignored in the results. $ $ 2. The fluid is nonviscous and irrotational, and small motions are only $ considered. $ $ This particular problem becomes relatively easy to solve since the mode shapes $ for the fluid in a rigid container and the modes of the structure with no $ enclosed fluid have the same spatial function at the interface. Each mode of $ the fluid is excited by only one mode of the structure and each mode of the $ structure is excited by one mode of the fluid. The pressure in the fluid is $ assumed to be a series of functions: $ $ iwt pi z $ p = p e cos n phi sin ---- Q (r,w) (1) $ n l n $ $ where Q is a Bessel Function or a modified Bessel Function of the first kind. $ n $ $ The characteristic shapes of the structure are a series of the form: $ $ iwt pi z $ u = A e cos n phi sin ---- (2) $ l $ $ where u is the displacement normal to the surface. The fundamental momentum $ equation for the fluid flow at the boundary is: $ $ .. $ gradient (P(r)) e = - p u (3) $ r f $ $ $ where e is a unit vector in the radial direction. $ r $ $ The forces on the structure at the boundary are: $ $ 2 $ a F $ 1 1 .. $ P(a) = - ---- - p hu (4) $ a 2 s $ az $ $ where the function F is defined by the differential equation on the surface: $ 1 $ $ 2 $ 4 Eh a u $ gradient F = -- --- (5) $ 1 a 2 $ az $ $ The solution for F is obtained by assuming that $ 1 $ $ iwt pi z $ F = B e cos n phi sin ---- (6) $ 1 l $ $ Combining Equations 1 through 6 results in the relationships: $ $ aQ (r,w) | $ 2 n | $ pw A = P -------- | (7) $ n ar |r=a $ $ + + $ | 2 4 | $ | a pi Eh 2 | $ Q (a,w) P = | --------------- + p hw | A (8) $ n n | 2 2 s | $ | 4 pi a 2 2 | $ | l (----- + n ) | $ + 2 + $ l $ $ Equation (7) is a statement of the continuity of displacement. Equation (8) $ states the balance of the pressures. The above equations may be solved by $ iterating on w. Reference 16 provides solutions for w over a wide range of $ parameters. $ $ D. Results $ $ The analytic and NASTRAN eigenvalues are listed in Table 1. The corresponding $ errors in the eigenvalues are tabulated and the maximum errors in displacement $ at the container wall are given as the percentage of the maximum value. $ $ Table 1. Comparison of Analytical and NASTRAN Results $ -------------------------------------------------------------------- $ Natural Frequency (Hz) Mode Shape $ --------------------------- --------------------------- $ Harmonic Analytical NASTRAN Error Max. Error in Radial Displ. $ -------------------------------------------------------------------- $ 3 1.579 1.595 1.0 0.0 $ $ 5 1.011 1.049 3.4 0.5 $ -------------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 16. J. G. Berry and E. Reissner, "The Effect of an Internal Compressible Fluid $ Column on the Breathing Vibrations of a Thin Pressurized Cylindrical $ Shell", Journal of the Aeronautical Sciences, Vol. 25, No. 5, pp 288-294, $ May 1958. $------------------------------------------------------------------------------- ================================================ FILE: inp/d07022a.inp ================================================ ID D07022A,NASTRAN APP DISPLACEMENT SOL 7,3 TIME 40 CEND TITLE = COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A LABEL = HARMONIC 5 USING 1/20 SYMMETRY. CMETHOD = 1 SPC = 3 AXISYMMETRIC = FLUID OUTPUT HARMONICS = 5 SET 100 = 10,11, 26,27, 42,43, 58,59, 74,75, 81 THRU 96, 106,107, 122,123, 138,139, 154,155, 170,171 DISPLACEMENT = 100 BEGIN BULK AXIF 1 .0 1.8-2 2.88+3 NO +AXIF +AXIF 5 BDYLIST 10 26 42 58 74 90 106 +BDY-1 +BDY-1 122 138 154 170 CFLUID2 1001 17 1 CFLUID2 2001 33 17 CFLUID2 3001 49 33 CFLUID2 4001 65 49 CFLUID2 5001 81 65 CFLUID2 6001 97 81 CFLUID2 7001 113 97 CFLUID2 8001 129 113 CFLUID2 9001 145 129 CFLUID2 10001 161 145 CFLUID4 1002 18 2 1 17 CFLUID4 1003 19 3 2 18 CFLUID4 1004 20 4 3 19 CFLUID4 1005 21 5 4 20 CFLUID4 1006 22 6 5 21 CFLUID4 1007 23 7 6 22 CFLUID4 1008 24 8 7 23 CFLUID4 1009 25 9 8 24 CFLUID4 1010 26 10 9 25 CFLUID4 2002 34 18 17 33 CFLUID4 2003 35 19 18 34 CFLUID4 2004 36 20 19 35 CFLUID4 2005 37 21 20 36 CFLUID4 2006 38 22 21 37 CFLUID4 2007 39 23 22 38 CFLUID4 2008 40 24 23 39 CFLUID4 2009 41 25 24 40 CFLUID4 2010 42 26 25 41 CFLUID4 3002 50 34 33 49 CFLUID4 3003 51 35 34 50 CFLUID4 3004 52 36 35 51 CFLUID4 3005 53 37 36 52 CFLUID4 3006 54 38 37 53 CFLUID4 3007 55 39 38 54 CFLUID4 3008 56 40 39 55 CFLUID4 3009 57 41 40 56 CFLUID4 3010 58 42 41 57 CFLUID4 4002 66 50 49 65 CFLUID4 4003 67 51 50 66 CFLUID4 4004 68 52 51 67 CFLUID4 4005 69 53 52 68 CFLUID4 4006 70 54 53 69 CFLUID4 4007 71 55 54 70 CFLUID4 4008 72 56 55 71 CFLUID4 4009 73 57 56 72 CFLUID4 4010 74 58 57 73 CFLUID4 5002 82 66 65 81 CFLUID4 5003 83 67 66 82 CFLUID4 5004 84 68 67 83 CFLUID4 5005 85 69 68 84 CFLUID4 5006 86 70 69 85 CFLUID4 5007 87 71 70 86 CFLUID4 5008 88 72 71 87 CFLUID4 5009 89 73 72 88 CFLUID4 5010 90 74 73 89 CFLUID4 6002 98 82 81 97 CFLUID4 6003 99 83 82 98 CFLUID4 6004 100 84 83 99 CFLUID4 6005 101 85 84 100 CFLUID4 6006 102 86 85 101 CFLUID4 6007 103 87 86 102 CFLUID4 6008 104 88 87 103 CFLUID4 6009 105 89 88 104 CFLUID4 6010 106 90 89 105 CFLUID4 7002 114 98 97 113 CFLUID4 7003 115 99 98 114 CFLUID4 7004 116 100 99 115 CFLUID4 7005 117 101 100 116 CFLUID4 7006 118 102 101 117 CFLUID4 7007 119 103 102 118 CFLUID4 7008 120 104 103 119 CFLUID4 7009 121 105 104 120 CFLUID4 7010 122 106 105 121 CFLUID4 8002 130 114 113 129 CFLUID4 8003 131 115 114 130 CFLUID4 8004 132 116 115 131 CFLUID4 8005 133 117 116 132 CFLUID4 8006 134 118 117 133 CFLUID4 8007 135 119 118 134 CFLUID4 8008 136 120 119 135 CFLUID4 8009 137 121 120 136 CFLUID4 8010 138 122 121 137 CFLUID4 9002 146 130 129 145 CFLUID4 9003 147 131 130 146 CFLUID4 9004 148 132 131 147 CFLUID4 9005 149 133 132 148 CFLUID4 9006 150 134 133 149 CFLUID4 9007 151 135 134 150 CFLUID4 9008 152 136 135 151 CFLUID4 9009 153 137 136 152 CFLUID4 9010 154 138 137 153 CFLUID4 10002 162 146 145 161 CFLUID4 10003 163 147 146 162 CFLUID4 10004 164 148 147 163 CFLUID4 10005 165 149 148 164 CFLUID4 10006 166 150 149 165 CFLUID4 10007 167 151 150 166 CFLUID4 10008 168 152 151 167 CFLUID4 10009 169 153 152 168 CFLUID4 10010 170 154 153 169 CORD2C 1 .0 .0 .0 .0 .0 1.0 +CORD2C +CORD2C 1.0 .0 .0 CQUAD1 1011 1 27 28 12 11 CQUAD1 1012 1 28 29 13 12 CQUAD1 1013 1 29 30 14 13 CQUAD1 2011 1 43 44 28 27 CQUAD1 2012 1 44 45 29 28 CQUAD1 2013 1 45 46 30 29 CQUAD1 3011 1 59 60 44 43 CQUAD1 3012 1 60 61 45 44 CQUAD1 3013 1 61 62 46 45 CQUAD1 4011 1 75 76 60 59 CQUAD1 4012 1 76 77 61 60 CQUAD1 4013 1 77 78 62 61 CQUAD1 5011 1 91 92 76 75 CQUAD1 5012 1 92 93 77 76 CQUAD1 5013 1 93 94 78 77 CQUAD1 6011 1 107 108 92 91 CQUAD1 6012 1 108 109 93 92 CQUAD1 6013 1 109 110 94 93 CQUAD1 7011 1 123 124 108 107 CQUAD1 7012 1 124 125 109 108 CQUAD1 7013 1 125 126 110 109 CQUAD1 8011 1 139 140 124 123 CQUAD1 8012 1 140 141 125 124 CQUAD1 8013 1 141 142 126 125 CQUAD1 9011 1 155 156 140 139 CQUAD1 9012 1 156 157 141 140 CQUAD1 9013 1 157 158 142 141 CQUAD1 10011 1 171 172 156 155 CQUAD1 10012 1 172 173 157 156 CQUAD1 10013 1 173 174 158 157 EIGC 1 DET MAX +EIGC +EIGC 1.0 .0 1.0 20.0 20.0 1 1 FLSYM 20 S A FSLIST AXIS 1 2 3 4 5 6 +FSL-2 +FSL-2 7 8 9 10 FSLIST 170 169 168 167 166 165 164 +FSL-1 +FSL-1 163 162 161 AXIS GRIDB 11 .00 1 10 GRIDB 12 6.00000 1 10 GRIDB 13 12.0000 1 10 GRIDB 14 18.0000 1 10 GRIDB 27 .00 1 26 GRIDB 28 6.00000 1 26 GRIDB 29 12.0000 1 26 GRIDB 30 18.0000 1 26 GRIDB 43 .00 1 42 GRIDB 44 6.00000 1 42 GRIDB 45 12.0000 1 42 GRIDB 46 18.0000 1 42 GRIDB 59 .00 1 58 GRIDB 60 6.00000 1 58 GRIDB 61 12.0000 1 58 GRIDB 62 18.0000 1 58 GRIDB 75 .00 1 74 GRIDB 76 6.00000 1 74 GRIDB 77 12.0000 1 74 GRIDB 78 18.0000 1 74 GRIDB 91 .00 1 90 GRIDB 92 6.00000 1 90 GRIDB 93 12.0000 1 90 GRIDB 94 18.0000 1 90 GRIDB 107 .00 1 106 GRIDB 108 6.00000 1 106 GRIDB 109 12.0000 1 106 GRIDB 110 18.0000 1 106 GRIDB 123 .00 1 122 GRIDB 124 6.00000 1 122 GRIDB 125 12.0000 1 122 GRIDB 126 18.0000 1 122 GRIDB 139 .00 1 138 GRIDB 140 6.00000 1 138 GRIDB 141 12.0000 1 138 GRIDB 142 18.0000 1 138 GRIDB 155 .00 1 154 GRIDB 156 6.00000 1 154 GRIDB 157 12.0000 1 154 GRIDB 158 18.0000 1 154 GRIDB 171 .00 1 170 GRIDB 172 6.00000 1 170 GRIDB 173 12.0000 1 170 GRIDB 174 18.0000 1 170 MAT1 2 1.6+5 6.0+4 6.0-2 PQUAD1 1 2 .01 2 8.3333-8 +PQUAD1 +PQUAD1 .0 .005 RINGFL 1 1.00000 10.0000 2 2.00000 10.0000 RINGFL 3 3.00000 10.0000 4 4.00000 10.0000 RINGFL 5 5.00000 10.0000 6 6.00000 10.0000 RINGFL 7 7.00000 10.0000 8 8.00000 10.0000 RINGFL 9 9.00000 10.0000 10 10.0000 10.0000 RINGFL 17 1.00000 9.00000 18 2.00000 9.00000 RINGFL 19 3.00000 9.00000 20 4.00000 9.00000 RINGFL 21 5.00000 9.00000 22 6.00000 9.00000 RINGFL 23 7.00000 9.00000 24 8.00000 9.00000 RINGFL 25 9.00000 9.00000 26 10.0000 9.00000 RINGFL 33 1.00000 8.00000 34 2.00000 8.00000 RINGFL 35 3.00000 8.00000 36 4.00000 8.00000 RINGFL 37 5.00000 8.00000 38 6.00000 8.00000 RINGFL 39 7.00000 8.00000 40 8.00000 8.00000 RINGFL 41 9.00000 8.00000 42 10.0000 8.00000 RINGFL 49 1.00000 7.00000 50 2.00000 7.00000 RINGFL 51 3.00000 7.00000 52 4.00000 7.00000 RINGFL 53 5.00000 7.00000 54 6.00000 7.00000 RINGFL 55 7.00000 7.00000 56 8.00000 7.00000 RINGFL 57 9.00000 7.00000 58 10.0000 7.00000 RINGFL 65 1.00000 6.00000 66 2.00000 6.00000 RINGFL 67 3.00000 6.00000 68 4.00000 6.00000 RINGFL 69 5.00000 6.00000 70 6.00000 6.00000 RINGFL 71 7.00000 6.00000 72 8.00000 6.00000 RINGFL 73 9.00000 6.00000 74 10.0000 6.00000 RINGFL 81 1.00000 5.00000 82 2.00000 5.00000 RINGFL 83 3.00000 5.00000 84 4.00000 5.00000 RINGFL 85 5.00000 5.00000 86 6.00000 5.00000 RINGFL 87 7.00000 5.00000 88 8.00000 5.00000 RINGFL 89 9.00000 5.00000 90 10.0000 5.00000 RINGFL 97 1.00000 4.00000 98 2.00000 4.00000 RINGFL 99 3.00000 4.00000 100 4.00000 4.00000 RINGFL 101 5.00000 4.00000 102 6.00000 4.00000 RINGFL 103 7.00000 4.00000 104 8.00000 4.00000 RINGFL 105 9.00000 4.00000 106 10.0000 4.00000 RINGFL 113 1.00000 3.00000 114 2.00000 3.00000 RINGFL 115 3.00000 3.00000 116 4.00000 3.00000 RINGFL 117 5.00000 3.00000 118 6.00000 3.00000 RINGFL 119 7.00000 3.00000 120 8.00000 3.00000 RINGFL 121 9.00000 3.00000 122 10.0000 3.00000 RINGFL 129 1.00000 2.00000 130 2.00000 2.00000 RINGFL 131 3.00000 2.00000 132 4.00000 2.00000 RINGFL 133 5.00000 2.00000 134 6.00000 2.00000 RINGFL 135 7.00000 2.00000 136 8.00000 2.00000 RINGFL 137 9.00000 2.00000 138 10.0000 2.00000 RINGFL 145 1.00000 1.00000 146 2.00000 1.00000 RINGFL 147 3.00000 1.00000 148 4.00000 1.00000 RINGFL 149 5.00000 1.00000 150 6.00000 1.00000 RINGFL 151 7.00000 1.00000 152 8.00000 1.00000 RINGFL 153 9.00000 1.00000 154 10.0000 1.00000 RINGFL 161 1.00000 .00 162 2.00000 .00 RINGFL 163 3.00000 .00 164 4.00000 .00 RINGFL 165 5.00000 .00 166 6.00000 .00 RINGFL 167 7.00000 .00 168 8.00000 .00 RINGFL 169 9.00000 .00 170 10.0000 .00 SPC1 3 126 11 12 13 14 H=5 SPC1 3 126 171 172 173 174 H=5 SPC1 3 135 14 30 46 62 78 94 H=5 SPC1 3 135 110 126 142 158 174 H=5 SPC1 3 246 11 27 43 59 75 91 H=5 SPC1 3 246 107 123 139 155 171 H=5 ENDDATA ================================================ FILE: inp/d07022a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 7, Complex Eigenvalue Analysis - Direct Formulation $ Third Harmonic Complex Eigenvalue Analysis of a Gas-Filled $ Thin Elastic Cylinder (7-2-1) $ Fifth Harmonic Complex Eigenvalue Analysis of a Gas-Filled $ Thin Elastic Cylinder (7-2-2) $ $ A. Description $ $ This problem demonstrates the use of symmetry to analyze specific harmonics of $ a fluid-filled structure. The problem to be solved consists of a cylindrical $ section filled with a compressible fluid. The end conditions for the cylinder $ and the fluid are two planes of antisymmetry, perpendicular to the axis. These $ end conditions correspond to the conditions that exist at periodic intervals $ along a long, fluid-filled pipe vibrating in one of its vibration modes. The $ antisymmetric boundary for the structure is defined by constraining the $ motions which lie in the plane. An antisymmetric boundary for the fluid $ corresponds to zero pressure. This may be modeled, in NASTRAN, by defining the $ plane of antisymmetry as a free surface with zero gravity. $ $ The lowest natural frequencies and mode shapes for the third and fifth $ harmonics are analyzed separately. For the third harmonic, the structure is $ defined by a section of a cylinder having an arc of 30 degrees or 1/12 of a $ circle. The fifth harmonic analysis uses a section having an arc of 18 degrees $ or 1/20 of a circle. The longitudinal edges, which were cut, are planes of $ symmetry and antisymmetry in order to model a quarter cosine wave length. $ $ The bulk data cards used are; AXIF, BDYLIST, CFLUID2, CFLUID4, CORD2C, CQUAD1, $ EIGC, FLSYM, FSLIST, GRIDB, MAT1, PQUAD1, RINGFL, and SPC1. $ $ B. Input $ $ The finite element model for the third harmonic uses the following parameters: $ $ 3 2 $ B = 2.88 x 10 lb/in (Bulk modulus of fluid) $ $ -2 2 4 $ p = 1.8 x 10 lb-sec /in (Fluid mass density) $ f $ -2 2 4 $ p = 6.0 x 10 lb-sec /in (Structure mass density) $ s $ $ 5 2 $ E = 1.6 x 10 lb/in (Young's modulus for structure) $ $ 4 2 $ G = 6.0 x 10 lb/in (Shear modulus for structure) $ $ a = 10.0 inch (Radius of cylinder) $ $ l = 10.0 inch (Length of cylinder) $ $ h = 0.01 inch (Thickness of cylinder) $ $ The model for the fifth harmonic is similar to the third harmonic model except $ that the angle covered by the structure is 18 degrees instead of 30 degrees. $ This is accomplished by simply removing the structural elements and boundary $ GRIDB points corresponding to the two right-hand layers of structure (between $ 18 degrees and 30 degrees). The FLSYM, FSLIST, and SPC1 cards are changed to $ reflect the 1/20 symmetry. $ $ C. Theory $ $ The derivations and results for this problem are described in Reference 16. $ The results for various dimensionless parameters are listed. The particular $ parameters for the problem at hand are: $ $ p a $ f $ n = --- = 300.0 $ p h $ s $ $ Gp $ f $ C = sqrt(---) = 2.5 $ Bp $ x $ $ P a $ o $ omega = --- = 0.0 $ Gh $ $ where n is the ratio of fluid mass to structure mass. C is the ratio of the $ wave velocity in the structure material to the wave velocity in the fluid. $ Omega is the factor describing static pressurization, P . $ o $ $ The basic assumptions for this analysis are: $ $ 1. Thin shell theory is used for the structure. The bending moment terms in $ the force equilibrium equations are ignored in the results. $ $ 2. The fluid is nonviscous and irrotational, and small motions are only $ considered. $ $ This particular problem becomes relatively easy to solve since the mode shapes $ for the fluid in a rigid container and the modes of the structure with no $ enclosed fluid have the same spatial function at the interface. Each mode of $ the fluid is excited by only one mode of the structure and each mode of the $ structure is excited by one mode of the fluid. The pressure in the fluid is $ assumed to be a series of functions: $ $ iwt pi z $ p = p e cos n phi sin ---- Q (r,w) (1) $ n l n $ $ where Q is a Bessel Function or a modified Bessel Function of the first kind. $ n $ $ The characteristic shapes of the structure are a series of the form: $ $ iwt pi z $ u = A e cos n phi sin ---- (2) $ l $ $ where u is the displacement normal to the surface. The fundamental momentum $ equation for the fluid flow at the boundary is: $ $ .. $ gradient (P(r)) e = - p u (3) $ r f $ $ $ where e is a unit vector in the radial direction. $ r $ $ The forces on the structure at the boundary are: $ $ 2 $ a F $ 1 1 .. $ P(a) = - ---- - p hu (4) $ a 2 s $ az $ $ where the function F is defined by the differential equation on the surface: $ 1 $ $ 2 $ 4 Eh a u $ gradient F = -- --- (5) $ 1 a 2 $ az $ $ The solution for F is obtained by assuming that $ 1 $ $ iwt pi z $ F = B e cos n phi sin ---- (6) $ 1 l $ $ Combining Equations 1 through 6 results in the relationships: $ $ aQ (r,w) | $ 2 n | $ pw A = P -------- | (7) $ n ar |r=a $ $ + + $ | 2 4 | $ | a pi Eh 2 | $ Q (a,w) P = | --------------- + p hw | A (8) $ n n | 2 2 s | $ | 4 pi a 2 2 | $ | l (----- + n ) | $ + 2 + $ l $ $ Equation (7) is a statement of the continuity of displacement. Equation (8) $ states the balance of the pressures. The above equations may be solved by $ iterating on w. Reference 16 provides solutions for w over a wide range of $ parameters. $ $ D. Results $ $ The analytic and NASTRAN eigenvalues are listed in Table 1. The corresponding $ errors in the eigenvalues are tabulated and the maximum errors in displacement $ at the container wall are given as the percentage of the maximum value. $ $ Table 1. Comparison of Analytical and NASTRAN Results $ -------------------------------------------------------------------- $ Natural Frequency (Hz) Mode Shape $ --------------------------- --------------------------- $ Harmonic Analytical NASTRAN Error Max. Error in Radial Displ. $ -------------------------------------------------------------------- $ 3 1.579 1.595 1.0 0.0 $ $ 5 1.011 1.049 3.4 0.5 $ -------------------------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 16. J. G. Berry and E. Reissner, "The Effect of an Internal Compressible Fluid $ Column on the Breathing Vibrations of a Thin Pressurized Cylindrical $ Shell", Journal of the Aeronautical Sciences, Vol. 25, No. 5, pp 288-294, $ May 1958. $------------------------------------------------------------------------------- ================================================ FILE: inp/d08011a.inp ================================================ ID D08011A,NASTRAN APP DISPLACEMENT SOL 8,1 TIME 12 CEND TITLE = FREQUENCY RESPONSE OF A 10X10 PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A SPC = 37 DLOAD = 8 FREQUENCY= 8 OUTPUT SET 1 = 1,4,7,11 45,55, 78,88, 111,114,117,121 DISPLACEMENT(SORT2,PHASE) = 1 SPCFORCE(SORT2,PHASE) = 1 BEGIN BULK CNGRNT 1 2 THRU 109 CQUAD1 1 23 1 2 13 12 .00 CQUAD1 2 23 2 3 14 13 .00 CQUAD1 3 23 3 4 15 14 .00 CQUAD1 4 23 4 5 16 15 .00 CQUAD1 5 23 5 6 17 16 .00 CQUAD1 6 23 6 7 18 17 .00 CQUAD1 7 23 7 8 19 18 .00 CQUAD1 8 23 8 9 20 19 .00 CQUAD1 9 23 9 10 21 20 .00 CQUAD1 10 23 10 11 22 21 .00 CQUAD1 12 23 12 13 24 23 .00 CQUAD1 13 23 13 14 25 24 .00 CQUAD1 14 23 14 15 26 25 .00 CQUAD1 15 23 15 16 27 26 .00 CQUAD1 16 23 16 17 28 27 .00 CQUAD1 17 23 17 18 29 28 .00 CQUAD1 18 23 18 19 30 29 .00 CQUAD1 19 23 19 20 31 30 .00 CQUAD1 20 23 20 21 32 31 .00 CQUAD1 21 23 21 22 33 32 .00 CQUAD1 23 23 23 24 35 34 .00 CQUAD1 24 23 24 25 36 35 .00 CQUAD1 25 23 25 26 37 36 .00 CQUAD1 26 23 26 27 38 37 .00 CQUAD1 27 23 27 28 39 38 .00 CQUAD1 28 23 28 29 40 39 .00 CQUAD1 29 23 29 30 41 40 .00 CQUAD1 30 23 30 31 42 41 .00 CQUAD1 31 23 31 32 43 42 .00 CQUAD1 32 23 32 33 44 43 .00 CQUAD1 34 23 34 35 46 45 .00 CQUAD1 35 23 35 36 47 46 .00 CQUAD1 36 23 36 37 48 47 .00 CQUAD1 37 23 37 38 49 48 .00 CQUAD1 38 23 38 39 50 49 .00 CQUAD1 39 23 39 40 51 50 .00 CQUAD1 40 23 40 41 52 51 .00 CQUAD1 41 23 41 42 53 52 .00 CQUAD1 42 23 42 43 54 53 .00 CQUAD1 43 23 43 44 55 54 .00 CQUAD1 45 23 45 46 57 56 .00 CQUAD1 46 23 46 47 58 57 .00 CQUAD1 47 23 47 48 59 58 .00 CQUAD1 48 23 48 49 60 59 .00 CQUAD1 49 23 49 50 61 60 .00 CQUAD1 50 23 50 51 62 61 .00 CQUAD1 51 23 51 52 63 62 .00 CQUAD1 52 23 52 53 64 63 .00 CQUAD1 53 23 53 54 65 64 .00 CQUAD1 54 23 54 55 66 65 .00 CQUAD1 56 23 56 57 68 67 .00 CQUAD1 57 23 57 58 69 68 .00 CQUAD1 58 23 58 59 70 69 .00 CQUAD1 59 23 59 60 71 70 .00 CQUAD1 60 23 60 61 72 71 .00 CQUAD1 61 23 61 62 73 72 .00 CQUAD1 62 23 62 63 74 73 .00 CQUAD1 63 23 63 64 75 74 .00 CQUAD1 64 23 64 65 76 75 .00 CQUAD1 65 23 65 66 77 76 .00 CQUAD1 67 23 67 68 79 78 .00 CQUAD1 68 23 68 69 80 79 .00 CQUAD1 69 23 69 70 81 80 .00 CQUAD1 70 23 70 71 82 81 .00 CQUAD1 71 23 71 72 83 82 .00 CQUAD1 72 23 72 73 84 83 .00 CQUAD1 73 23 73 74 85 84 .00 CQUAD1 74 23 74 75 86 85 .00 CQUAD1 75 23 75 76 87 86 .00 CQUAD1 76 23 76 77 88 87 .00 CQUAD1 78 23 78 79 90 89 .00 CQUAD1 79 23 79 80 91 90 .00 CQUAD1 80 23 80 81 92 91 .00 CQUAD1 81 23 81 82 93 92 .00 CQUAD1 82 23 82 83 94 93 .00 CQUAD1 83 23 83 84 95 94 .00 CQUAD1 84 23 84 85 96 95 .00 CQUAD1 85 23 85 86 97 96 .00 CQUAD1 86 23 86 87 98 97 .00 CQUAD1 87 23 87 88 99 98 .00 CQUAD1 89 23 89 90 101 100 .00 CQUAD1 90 23 90 91 102 101 .00 CQUAD1 91 23 91 92 103 102 .00 CQUAD1 92 23 92 93 104 103 .00 CQUAD1 93 23 93 94 105 104 .00 CQUAD1 94 23 94 95 106 105 .00 CQUAD1 95 23 95 96 107 106 .00 CQUAD1 96 23 96 97 108 107 .00 CQUAD1 97 23 97 98 109 108 .00 CQUAD1 98 23 98 99 110 109 .00 CQUAD1 100 23 100 101 112 111 .00 CQUAD1 101 23 101 102 113 112 .00 CQUAD1 102 23 102 103 114 113 .00 CQUAD1 103 23 103 104 115 114 .00 CQUAD1 104 23 104 105 116 115 .00 CQUAD1 105 23 105 106 117 116 .00 CQUAD1 106 23 106 107 118 117 .00 CQUAD1 107 23 107 108 119 118 .00 CQUAD1 108 23 108 109 120 119 .00 CQUAD1 109 23 109 110 121 120 .00 DAREA *37 1 3 2.5000000E-01 DAREA *37 2 3 4.9384417E-01 DAREA *37 3 3 4.7552826E-01 DAREA *37 4 3 4.4550326E-01 DAREA *37 5 3 4.0450850E-01 DAREA *37 6 3 3.5355339E-01 DAREA *37 7 3 2.9389263E-01 DAREA *37 8 3 2.2699525E-01 DAREA *37 9 3 1.5450850E-01 DAREA *37 10 3 7.8217242E-02 DAREA *37 12 3 4.9384417E-01 DAREA *37 13 3 9.7552826E-01 DAREA *37 14 3 9.3934743E-01 DAREA *37 15 3 8.8003676E-01 DAREA *37 16 3 7.9905665E-01 DAREA *37 17 3 6.9840112E-01 DAREA *37 18 3 5.8054864E-01 DAREA *37 19 3 4.4840113E-01 DAREA *37 20 3 3.0521249E-01 DAREA *37 21 3 1.5450851E-01 DAREA *37 23 3 4.7552826E-01 DAREA *37 24 3 9.3934743E-01 DAREA *37 25 3 9.0450849E-01 DAREA *37 26 3 8.4739757E-01 DAREA *37 27 3 7.6942088E-01 DAREA *37 28 3 6.7249851E-01 DAREA *37 29 3 5.5901700E-01 DAREA *37 30 3 4.3177063E-01 DAREA *37 31 3 2.9389264E-01 DAREA *37 32 3 1.4877803E-01 DAREA *37 34 3 4.4550326E-01 DAREA *37 35 3 8.8003676E-01 DAREA *37 36 3 8.4739757E-01 DAREA *37 37 3 7.9389263E-01 DAREA *37 38 3 7.2083942E-01 DAREA *37 39 3 6.3003676E-01 DAREA *37 40 3 5.2372050E-01 DAREA *37 41 3 4.0450851E-01 DAREA *37 42 3 2.7533617E-01 DAREA *37 43 3 1.3938414E-01 DAREA *37 45 3 4.0450850E-01 DAREA *37 46 3 7.9905665E-01 DAREA *37 47 3 7.6942088E-01 DAREA *37 48 3 7.2083942E-01 DAREA *37 49 3 6.5450849E-01 DAREA *37 50 3 5.7206140E-01 DAREA *37 51 3 4.7552826E-01 DAREA *37 52 3 3.6728603E-01 DAREA *37 53 3 2.5000001E-01 DAREA *37 54 3 1.2655815E-01 DAREA *37 56 3 3.5355339E-01 DAREA *37 57 3 6.9840112E-01 DAREA *37 58 3 6.7249851E-01 DAREA *37 59 3 6.3003676E-01 DAREA *37 60 3 5.7206140E-01 DAREA *37 61 3 5.0000000E-01 DAREA *37 62 3 4.1562694E-01 DAREA *37 63 3 3.2101976E-01 DAREA *37 64 3 2.1850802E-01 DAREA *37 65 3 1.1061588E-01 DAREA *37 67 3 2.9389263E-01 DAREA *37 68 3 5.8054864E-01 DAREA *37 69 3 5.5901700E-01 DAREA *37 70 3 5.2372050E-01 DAREA *37 71 3 4.7552826E-01 DAREA *37 72 3 4.1562694E-01 DAREA *37 73 3 3.4549151E-01 DAREA *37 74 3 2.6684893E-01 DAREA *37 75 3 1.8163564E-01 DAREA *37 76 3 9.1949883E-02 DAREA *37 78 3 2.2699525E-01 DAREA *37 79 3 4.4840113E-01 DAREA *37 80 3 4.3177063E-01 DAREA *37 81 3 4.0450851E-01 DAREA *37 82 3 3.6728603E-01 DAREA *37 83 3 3.2101976E-01 DAREA *37 84 3 2.6684893E-01 DAREA *37 85 3 2.0610738E-01 DAREA *37 86 3 1.4029079E-01 DAREA *37 87 3 7.1019771E-02 DAREA *37 89 3 1.5450850E-01 DAREA *37 90 3 3.0521249E-01 DAREA *37 91 3 2.9389264E-01 DAREA *37 92 3 2.7533617E-01 DAREA *37 93 3 2.5000001E-01 DAREA *37 94 3 2.1850802E-01 DAREA *37 95 3 1.8163564E-01 DAREA *37 96 3 1.4029079E-01 DAREA *37 97 3 9.5491510E-02 DAREA *37 98 3 4.8340916E-02 DAREA *37 100 3 7.8217242E-02 DAREA *37 101 3 1.5450851E-01 DAREA *37 102 3 1.4877803E-01 DAREA *37 103 3 1.3938414E-01 DAREA *37 104 3 1.2655815E-01 DAREA *37 105 3 1.1061588E-01 DAREA *37 106 3 9.1949883E-02 DAREA *37 107 3 7.1019771E-02 DAREA *37 108 3 4.8340916E-02 DAREA *37 109 3 2.4471748E-02 FREQ 8 .0 8.0 9.0 10.0 11.0 GRDSET 126 GRID 1 .0 .0 .0 GRID 2 1.0 .0 .0 GRID 3 2.0 .0 .0 GRID 4 3.0 .0 .0 GRID 5 4.0 .0 .0 GRID 6 5.0 .0 .0 GRID 7 6.0 .0 .0 GRID 8 7.0 .0 .0 GRID 9 8.0 .0 .0 GRID 10 9.0 .0 .0 GRID 11 10.0 .0 .0 GRID 12 .0 1.0 .0 GRID 13 1.0 1.0 .0 GRID 14 2.0 1.0 .0 GRID 15 3.0 1.0 .0 GRID 16 4.0 1.0 .0 GRID 17 5.0 1.0 .0 GRID 18 6.0 1.0 .0 GRID 19 7.0 1.0 .0 GRID 20 8.0 1.0 .0 GRID 21 9.0 1.0 .0 GRID 22 10.0 1.0 .0 GRID 23 .0 2.0 .0 GRID 24 1.0 2.0 .0 GRID 25 2.0 2.0 .0 GRID 26 3.0 2.0 .0 GRID 27 4.0 2.0 .0 GRID 28 5.0 2.0 .0 GRID 29 6.0 2.0 .0 GRID 30 7.0 2.0 .0 GRID 31 8.0 2.0 .0 GRID 32 9.0 2.0 .0 GRID 33 10.0 2.0 .0 GRID 34 .0 3.0 .0 GRID 35 1.0 3.0 .0 GRID 36 2.0 3.0 .0 GRID 37 3.0 3.0 .0 GRID 38 4.0 3.0 .0 GRID 39 5.0 3.0 .0 GRID 40 6.0 3.0 .0 GRID 41 7.0 3.0 .0 GRID 42 8.0 3.0 .0 GRID 43 9.0 3.0 .0 GRID 44 10.0 3.0 .0 GRID 45 .0 4.0 .0 GRID 46 1.0 4.0 .0 GRID 47 2.0 4.0 .0 GRID 48 3.0 4.0 .0 GRID 49 4.0 4.0 .0 GRID 50 5.0 4.0 .0 GRID 51 6.0 4.0 .0 GRID 52 7.0 4.0 .0 GRID 53 8.0 4.0 .0 GRID 54 9.0 4.0 .0 GRID 55 10.0 4.0 .0 GRID 56 .0 5.0 .0 GRID 57 1.0 5.0 .0 GRID 58 2.0 5.0 .0 GRID 59 3.0 5.0 .0 GRID 60 4.0 5.0 .0 GRID 61 5.0 5.0 .0 GRID 62 6.0 5.0 .0 GRID 63 7.0 5.0 .0 GRID 64 8.0 5.0 .0 GRID 65 9.0 5.0 .0 GRID 66 10.0 5.0 .0 GRID 67 .0 6.0 .0 GRID 68 1.0 6.0 .0 GRID 69 2.0 6.0 .0 GRID 70 3.0 6.0 .0 GRID 71 4.0 6.0 .0 GRID 72 5.0 6.0 .0 GRID 73 6.0 6.0 .0 GRID 74 7.0 6.0 .0 GRID 75 8.0 6.0 .0 GRID 76 9.0 6.0 .0 GRID 77 10.0 6.0 .0 GRID 78 .0 7.0 .0 GRID 79 1.0 7.0 .0 GRID 80 2.0 7.0 .0 GRID 81 3.0 7.0 .0 GRID 82 4.0 7.0 .0 GRID 83 5.0 7.0 .0 GRID 84 6.0 7.0 .0 GRID 85 7.0 7.0 .0 GRID 86 8.0 7.0 .0 GRID 87 9.0 7.0 .0 GRID 88 10.0 7.0 .0 GRID 89 .0 8.0 .0 GRID 90 1.0 8.0 .0 GRID 91 2.0 8.0 .0 GRID 92 3.0 8.0 .0 GRID 93 4.0 8.0 .0 GRID 94 5.0 8.0 .0 GRID 95 6.0 8.0 .0 GRID 96 7.0 8.0 .0 GRID 97 8.0 8.0 .0 GRID 98 9.0 8.0 .0 GRID 99 10.0 8.0 .0 GRID 100 .0 9.0 .0 GRID 101 1.0 9.0 .0 GRID 102 2.0 9.0 .0 GRID 103 3.0 9.0 .0 GRID 104 4.0 9.0 .0 GRID 105 5.0 9.0 .0 GRID 106 6.0 9.0 .0 GRID 107 7.0 9.0 .0 GRID 108 8.0 9.0 .0 GRID 109 9.0 9.0 .0 GRID 110 10.0 9.0 .0 GRID 111 .0 10.0 .0 GRID 112 1.0 10.0 .0 GRID 113 2.0 10.0 .0 GRID 114 3.0 10.0 .0 GRID 115 4.0 10.0 .0 GRID 116 5.0 10.0 .0 GRID 117 6.0 10.0 .0 GRID 118 7.0 10.0 .0 GRID 119 8.0 10.0 .0 GRID 120 9.0 10.0 .0 GRID 121 10.0 10.0 .0 MAT1 8 3.0+7 .300 PQUAD1 23 8 .6666667 13.55715 RLOAD1 8 37 1 SPC1 37 4 1 2 3 4 5 6 +41001H +41001H 7 8 9 10 11 SPC1 37 5 1 12 23 34 45 56 +31001H +31001H 67 78 89 100 111 SPC1 37 34 11 22 33 44 55 66 +11001H +11001H 77 88 99 110 121 SPC1 37 35 111 112 113 114 115 116 +21001H +21001H 117 118 119 120 121 TABLED1 1 +T1 +T1 .0 10.0 100.0 40.0 ENDT ENDDATA ================================================ FILE: inp/d08011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 8, Frequency Response Analysis - Direct Formulation $ Frequency Response of a 10x10 Plate (8-1-1) $ Frequency Response of a 20x20 Plate (8-1-2) $ Frequency Response of a 10x10 Plate (INPUT, 8-1-3) $ Frequency Response of a 20x20 Plate (INPUT, 8-1-4) $ $ A. Description $ $ This problem illustrates the use of the direct method of determining $ structural response to steady-state sinusoidal loads, The applied load is $ given in terms of complex numbers which reflect the amplitudes and phases at $ each selected frequency. The steady-state response of the structure at each $ frequency is calculated in terms of complex numbers which reflect the $ magnitudes and phases of the results. Both configurations are duplicated via $ the INPUT module to generate the QUAD1 elements. $ $ The particular model for this analysis is a square plate composed of $ quadrilateral plate elements. The exterior edges are supported on hinged $ supports and symmetric boundaries are used along x = 0 and y = 0. The applied $ load is sinusoidally distributed over the panel and increases with respect to $ frequency. Although the applied load excites only the first node, the direct $ formulation algorithm does not use this shortcut and solves the problem as $ though the load were completely general. $ $ B. Input $ $ 1. Parameters: $ $ a = b = 10 - length and width of quarter model $ $ t = 2.0 - thickness $ $ 7 $ E = 3.0 x 10 - Young's Modulus $ $ v = 0.3 - Poisson's Ratio $ $ mu = 13.55715 - nonstructural mass per area $ $ 2. Loads: $ $ The frequency dependent pressure function is: $ $ pi x pi y $ P(x,y,f) = F(f) cos ---- cos ---- (1) $ 2a 2b $ $ where $ $ F(f) = 10. + 0.3f (2) $ $ 3. Constraints: $ $ Only vertical notions and bending rotations are allowed, The exterior $ edges are hinged supports. The interior edges are planes of symmetry, This $ implies: $ $ along x = 0, theta = 0 $ y $ $ along y = 0, theta = 0 $ x $ $ along x = a, u = theta = 0 $ z x $ $ along y = b, u = theta = 0 $ z y $ $ all points, u = u = theta = 0 $ x y z $ $ C. Theory $ $ The excitation of the plate is orthogonal to the theoretical first mode, An $ explanation of the equations is given in Reference 8. The equations of $ response are: $ $ F(f) $ u (f) = ------------------ (3) $ z 2 2 2 $ (2 pi) mu(f - f ) $ 1 $ $ where f is the first natural frequency (10 Hz). $ 1 $ $ D. Results $ $ The following table gives the theoretical and NASTRAN results: $ $ --------------------------------------------------- $ 4 $ u x 10 $ z,1 $ Frequency -------------------------------------- $ Hz Theory 10x10 NASTRAN 20x20 NASTRAN $ --------------------------------------------------- $ 0 1.868 1.874 1.869 $ $ 8 6.435 6.49 6.45 $ $ 9 12.489 12.69 12.53 $ $ 10 infinite -824.92 -3284.4 $ $ 11 -11.833 -11.67 -11.79 $ --------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 8. W. F. Stokey, "Vibration of Systems Having Distributed Mass and $ Elasticity", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E. $ Crede, Editors, McGraw-Hill, 1961. $------------------------------------------------------------------------------- ================================================ FILE: inp/d08012a.inp ================================================ ID D08012A,NASTRAN APP DISPLACEMENT SOL 8,1 TIME 30 CEND TITLE = FREQUENCY RESPONSE OF A 20X20 PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A SPC = 37 DLOAD = 8 FREQUENCY= 8 OUTPUT SET 1 = 1,7,13,21, 169,189, 295,315, 421,427,433,441 DISPLACEMENT(SORT2,PHASE) = 1 SPCFORCE(SORT2,PHASE) = 1 BEGIN BULK CNGRNT 1 2 THRU 419 CQUAD1 1 23 1 2 23 22 .00 CQUAD1 2 23 2 3 24 23 .00 CQUAD1 3 23 3 4 25 24 .00 CQUAD1 4 23 4 5 26 25 .00 CQUAD1 5 23 5 6 27 26 .00 CQUAD1 6 23 6 7 28 27 .00 CQUAD1 7 23 7 8 29 28 .00 CQUAD1 8 23 8 9 30 29 .00 CQUAD1 9 23 9 10 31 30 .00 CQUAD1 10 23 10 11 32 31 .00 CQUAD1 11 23 11 12 33 32 .00 CQUAD1 12 23 12 13 34 33 .00 CQUAD1 13 23 13 14 35 34 .00 CQUAD1 14 23 14 15 36 35 .00 CQUAD1 15 23 15 16 37 36 .00 CQUAD1 16 23 16 17 38 37 .00 CQUAD1 17 23 17 18 39 38 .00 CQUAD1 18 23 18 19 40 39 .00 CQUAD1 19 23 19 20 41 40 .00 CQUAD1 20 23 20 21 42 41 .00 CQUAD1 22 23 22 23 44 43 .00 CQUAD1 23 23 23 24 45 44 .00 CQUAD1 24 23 24 25 46 45 .00 CQUAD1 25 23 25 26 47 46 .00 CQUAD1 26 23 26 27 48 47 .00 CQUAD1 27 23 27 28 49 48 .00 CQUAD1 28 23 28 29 50 49 .00 CQUAD1 29 23 29 30 51 50 .00 CQUAD1 30 23 30 31 52 51 .00 CQUAD1 31 23 31 32 53 52 .00 CQUAD1 32 23 32 33 54 53 .00 CQUAD1 33 23 33 34 55 54 .00 CQUAD1 34 23 34 35 56 55 .00 CQUAD1 35 23 35 36 57 56 .00 CQUAD1 36 23 36 37 58 57 .00 CQUAD1 37 23 37 38 59 58 .00 CQUAD1 38 23 38 39 60 59 .00 CQUAD1 39 23 39 40 61 60 .00 CQUAD1 40 23 40 41 62 61 .00 CQUAD1 41 23 41 42 63 62 .00 CQUAD1 43 23 43 44 65 64 .00 CQUAD1 44 23 44 45 66 65 .00 CQUAD1 45 23 45 46 67 66 .00 CQUAD1 46 23 46 47 68 67 .00 CQUAD1 47 23 47 48 69 68 .00 CQUAD1 48 23 48 49 70 69 .00 CQUAD1 49 23 49 50 71 70 .00 CQUAD1 50 23 50 51 72 71 .00 CQUAD1 51 23 51 52 73 72 .00 CQUAD1 52 23 52 53 74 73 .00 CQUAD1 53 23 53 54 75 74 .00 CQUAD1 54 23 54 55 76 75 .00 CQUAD1 55 23 55 56 77 76 .00 CQUAD1 56 23 56 57 78 77 .00 CQUAD1 57 23 57 58 79 78 .00 CQUAD1 58 23 58 59 80 79 .00 CQUAD1 59 23 59 60 81 80 .00 CQUAD1 60 23 60 61 82 81 .00 CQUAD1 61 23 61 62 83 82 .00 CQUAD1 62 23 62 63 84 83 .00 CQUAD1 64 23 64 65 86 85 .00 CQUAD1 65 23 65 66 87 86 .00 CQUAD1 66 23 66 67 88 87 .00 CQUAD1 67 23 67 68 89 88 .00 CQUAD1 68 23 68 69 90 89 .00 CQUAD1 69 23 69 70 91 90 .00 CQUAD1 70 23 70 71 92 91 .00 CQUAD1 71 23 71 72 93 92 .00 CQUAD1 72 23 72 73 94 93 .00 CQUAD1 73 23 73 74 95 94 .00 CQUAD1 74 23 74 75 96 95 .00 CQUAD1 75 23 75 76 97 96 .00 CQUAD1 76 23 76 77 98 97 .00 CQUAD1 77 23 77 78 99 98 .00 CQUAD1 78 23 78 79 100 99 .00 CQUAD1 79 23 79 80 101 100 .00 CQUAD1 80 23 80 81 102 101 .00 CQUAD1 81 23 81 82 103 102 .00 CQUAD1 82 23 82 83 104 103 .00 CQUAD1 83 23 83 84 105 104 .00 CQUAD1 85 23 85 86 107 106 .00 CQUAD1 86 23 86 87 108 107 .00 CQUAD1 87 23 87 88 109 108 .00 CQUAD1 88 23 88 89 110 109 .00 CQUAD1 89 23 89 90 111 110 .00 CQUAD1 90 23 90 91 112 111 .00 CQUAD1 91 23 91 92 113 112 .00 CQUAD1 92 23 92 93 114 113 .00 CQUAD1 93 23 93 94 115 114 .00 CQUAD1 94 23 94 95 116 115 .00 CQUAD1 95 23 95 96 117 116 .00 CQUAD1 96 23 96 97 118 117 .00 CQUAD1 97 23 97 98 119 118 .00 CQUAD1 98 23 98 99 120 119 .00 CQUAD1 99 23 99 100 121 120 .00 CQUAD1 100 23 100 101 122 121 .00 CQUAD1 101 23 101 102 123 122 .00 CQUAD1 102 23 102 103 124 123 .00 CQUAD1 103 23 103 104 125 124 .00 CQUAD1 104 23 104 105 126 125 .00 CQUAD1 106 23 106 107 128 127 .00 CQUAD1 107 23 107 108 129 128 .00 CQUAD1 108 23 108 109 130 129 .00 CQUAD1 109 23 109 110 131 130 .00 CQUAD1 110 23 110 111 132 131 .00 CQUAD1 111 23 111 112 133 132 .00 CQUAD1 112 23 112 113 134 133 .00 CQUAD1 113 23 113 114 135 134 .00 CQUAD1 114 23 114 115 136 135 .00 CQUAD1 115 23 115 116 137 136 .00 CQUAD1 116 23 116 117 138 137 .00 CQUAD1 117 23 117 118 139 138 .00 CQUAD1 118 23 118 119 140 139 .00 CQUAD1 119 23 119 120 141 140 .00 CQUAD1 120 23 120 121 142 141 .00 CQUAD1 121 23 121 122 143 142 .00 CQUAD1 122 23 122 123 144 143 .00 CQUAD1 123 23 123 124 145 144 .00 CQUAD1 124 23 124 125 146 145 .00 CQUAD1 125 23 125 126 147 146 .00 CQUAD1 127 23 127 128 149 148 .00 CQUAD1 128 23 128 129 150 149 .00 CQUAD1 129 23 129 130 151 150 .00 CQUAD1 130 23 130 131 152 151 .00 CQUAD1 131 23 131 132 153 152 .00 CQUAD1 132 23 132 133 154 153 .00 CQUAD1 133 23 133 134 155 154 .00 CQUAD1 134 23 134 135 156 155 .00 CQUAD1 135 23 135 136 157 156 .00 CQUAD1 136 23 136 137 158 157 .00 CQUAD1 137 23 137 138 159 158 .00 CQUAD1 138 23 138 139 160 159 .00 CQUAD1 139 23 139 140 161 160 .00 CQUAD1 140 23 140 141 162 161 .00 CQUAD1 141 23 141 142 163 162 .00 CQUAD1 142 23 142 143 164 163 .00 CQUAD1 143 23 143 144 165 164 .00 CQUAD1 144 23 144 145 166 165 .00 CQUAD1 145 23 145 146 167 166 .00 CQUAD1 146 23 146 147 168 167 .00 CQUAD1 148 23 148 149 170 169 .00 CQUAD1 149 23 149 150 171 170 .00 CQUAD1 150 23 150 151 172 171 .00 CQUAD1 151 23 151 152 173 172 .00 CQUAD1 152 23 152 153 174 173 .00 CQUAD1 153 23 153 154 175 174 .00 CQUAD1 154 23 154 155 176 175 .00 CQUAD1 155 23 155 156 177 176 .00 CQUAD1 156 23 156 157 178 177 .00 CQUAD1 157 23 157 158 179 178 .00 CQUAD1 158 23 158 159 180 179 .00 CQUAD1 159 23 159 160 181 180 .00 CQUAD1 160 23 160 161 182 181 .00 CQUAD1 161 23 161 162 183 182 .00 CQUAD1 162 23 162 163 184 183 .00 CQUAD1 163 23 163 164 185 184 .00 CQUAD1 164 23 164 165 186 185 .00 CQUAD1 165 23 165 166 187 186 .00 CQUAD1 166 23 166 167 188 187 .00 CQUAD1 167 23 167 168 189 188 .00 CQUAD1 169 23 169 170 191 190 .00 CQUAD1 170 23 170 171 192 191 .00 CQUAD1 171 23 171 172 193 192 .00 CQUAD1 172 23 172 173 194 193 .00 CQUAD1 173 23 173 174 195 194 .00 CQUAD1 174 23 174 175 196 195 .00 CQUAD1 175 23 175 176 197 196 .00 CQUAD1 176 23 176 177 198 197 .00 CQUAD1 177 23 177 178 199 198 .00 CQUAD1 178 23 178 179 200 199 .00 CQUAD1 179 23 179 180 201 200 .00 CQUAD1 180 23 180 181 202 201 .00 CQUAD1 181 23 181 182 203 202 .00 CQUAD1 182 23 182 183 204 203 .00 CQUAD1 183 23 183 184 205 204 .00 CQUAD1 184 23 184 185 206 205 .00 CQUAD1 185 23 185 186 207 206 .00 CQUAD1 186 23 186 187 208 207 .00 CQUAD1 187 23 187 188 209 208 .00 CQUAD1 188 23 188 189 210 209 .00 CQUAD1 190 23 190 191 212 211 .00 CQUAD1 191 23 191 192 213 212 .00 CQUAD1 192 23 192 193 214 213 .00 CQUAD1 193 23 193 194 215 214 .00 CQUAD1 194 23 194 195 216 215 .00 CQUAD1 195 23 195 196 217 216 .00 CQUAD1 196 23 196 197 218 217 .00 CQUAD1 197 23 197 198 219 218 .00 CQUAD1 198 23 198 199 220 219 .00 CQUAD1 199 23 199 200 221 220 .00 CQUAD1 200 23 200 201 222 221 .00 CQUAD1 201 23 201 202 223 222 .00 CQUAD1 202 23 202 203 224 223 .00 CQUAD1 203 23 203 204 225 224 .00 CQUAD1 204 23 204 205 226 225 .00 CQUAD1 205 23 205 206 227 226 .00 CQUAD1 206 23 206 207 228 227 .00 CQUAD1 207 23 207 208 229 228 .00 CQUAD1 208 23 208 209 230 229 .00 CQUAD1 209 23 209 210 231 230 .00 CQUAD1 211 23 211 212 233 232 .00 CQUAD1 212 23 212 213 234 233 .00 CQUAD1 213 23 213 214 235 234 .00 CQUAD1 214 23 214 215 236 235 .00 CQUAD1 215 23 215 216 237 236 .00 CQUAD1 216 23 216 217 238 237 .00 CQUAD1 217 23 217 218 239 238 .00 CQUAD1 218 23 218 219 240 239 .00 CQUAD1 219 23 219 220 241 240 .00 CQUAD1 220 23 220 221 242 241 .00 CQUAD1 221 23 221 222 243 242 .00 CQUAD1 222 23 222 223 244 243 .00 CQUAD1 223 23 223 224 245 244 .00 CQUAD1 224 23 224 225 246 245 .00 CQUAD1 225 23 225 226 247 246 .00 CQUAD1 226 23 226 227 248 247 .00 CQUAD1 227 23 227 228 249 248 .00 CQUAD1 228 23 228 229 250 249 .00 CQUAD1 229 23 229 230 251 250 .00 CQUAD1 230 23 230 231 252 251 .00 CQUAD1 232 23 232 233 254 253 .00 CQUAD1 233 23 233 234 255 254 .00 CQUAD1 234 23 234 235 256 255 .00 CQUAD1 235 23 235 236 257 256 .00 CQUAD1 236 23 236 237 258 257 .00 CQUAD1 237 23 237 238 259 258 .00 CQUAD1 238 23 238 239 260 259 .00 CQUAD1 239 23 239 240 261 260 .00 CQUAD1 240 23 240 241 262 261 .00 CQUAD1 241 23 241 242 263 262 .00 CQUAD1 242 23 242 243 264 263 .00 CQUAD1 243 23 243 244 265 264 .00 CQUAD1 244 23 244 245 266 265 .00 CQUAD1 245 23 245 246 267 266 .00 CQUAD1 246 23 246 247 268 267 .00 CQUAD1 247 23 247 248 269 268 .00 CQUAD1 248 23 248 249 270 269 .00 CQUAD1 249 23 249 250 271 270 .00 CQUAD1 250 23 250 251 272 271 .00 CQUAD1 251 23 251 252 273 272 .00 CQUAD1 253 23 253 254 275 274 .00 CQUAD1 254 23 254 255 276 275 .00 CQUAD1 255 23 255 256 277 276 .00 CQUAD1 256 23 256 257 278 277 .00 CQUAD1 257 23 257 258 279 278 .00 CQUAD1 258 23 258 259 280 279 .00 CQUAD1 259 23 259 260 281 280 .00 CQUAD1 260 23 260 261 282 281 .00 CQUAD1 261 23 261 262 283 282 .00 CQUAD1 262 23 262 263 284 283 .00 CQUAD1 263 23 263 264 285 284 .00 CQUAD1 264 23 264 265 286 285 .00 CQUAD1 265 23 265 266 287 286 .00 CQUAD1 266 23 266 267 288 287 .00 CQUAD1 267 23 267 268 289 288 .00 CQUAD1 268 23 268 269 290 289 .00 CQUAD1 269 23 269 270 291 290 .00 CQUAD1 270 23 270 271 292 291 .00 CQUAD1 271 23 271 272 293 292 .00 CQUAD1 272 23 272 273 294 293 .00 CQUAD1 274 23 274 275 296 295 .00 CQUAD1 275 23 275 276 297 296 .00 CQUAD1 276 23 276 277 298 297 .00 CQUAD1 277 23 277 278 299 298 .00 CQUAD1 278 23 278 279 300 299 .00 CQUAD1 279 23 279 280 301 300 .00 CQUAD1 280 23 280 281 302 301 .00 CQUAD1 281 23 281 282 303 302 .00 CQUAD1 282 23 282 283 304 303 .00 CQUAD1 283 23 283 284 305 304 .00 CQUAD1 284 23 284 285 306 305 .00 CQUAD1 285 23 285 286 307 306 .00 CQUAD1 286 23 286 287 308 307 .00 CQUAD1 287 23 287 288 309 308 .00 CQUAD1 288 23 288 289 310 309 .00 CQUAD1 289 23 289 290 311 310 .00 CQUAD1 290 23 290 291 312 311 .00 CQUAD1 291 23 291 292 313 312 .00 CQUAD1 292 23 292 293 314 313 .00 CQUAD1 293 23 293 294 315 314 .00 CQUAD1 295 23 295 296 317 316 .00 CQUAD1 296 23 296 297 318 317 .00 CQUAD1 297 23 297 298 319 318 .00 CQUAD1 298 23 298 299 320 319 .00 CQUAD1 299 23 299 300 321 320 .00 CQUAD1 300 23 300 301 322 321 .00 CQUAD1 301 23 301 302 323 322 .00 CQUAD1 302 23 302 303 324 323 .00 CQUAD1 303 23 303 304 325 324 .00 CQUAD1 304 23 304 305 326 325 .00 CQUAD1 305 23 305 306 327 326 .00 CQUAD1 306 23 306 307 328 327 .00 CQUAD1 307 23 307 308 329 328 .00 CQUAD1 308 23 308 309 330 329 .00 CQUAD1 309 23 309 310 331 330 .00 CQUAD1 310 23 310 311 332 331 .00 CQUAD1 311 23 311 312 333 332 .00 CQUAD1 312 23 312 313 334 333 .00 CQUAD1 313 23 313 314 335 334 .00 CQUAD1 314 23 314 315 336 335 .00 CQUAD1 316 23 316 317 338 337 .00 CQUAD1 317 23 317 318 339 338 .00 CQUAD1 318 23 318 319 340 339 .00 CQUAD1 319 23 319 320 341 340 .00 CQUAD1 320 23 320 321 342 341 .00 CQUAD1 321 23 321 322 343 342 .00 CQUAD1 322 23 322 323 344 343 .00 CQUAD1 323 23 323 324 345 344 .00 CQUAD1 324 23 324 325 346 345 .00 CQUAD1 325 23 325 326 347 346 .00 CQUAD1 326 23 326 327 348 347 .00 CQUAD1 327 23 327 328 349 348 .00 CQUAD1 328 23 328 329 350 349 .00 CQUAD1 329 23 329 330 351 350 .00 CQUAD1 330 23 330 331 352 351 .00 CQUAD1 331 23 331 332 353 352 .00 CQUAD1 332 23 332 333 354 353 .00 CQUAD1 333 23 333 334 355 354 .00 CQUAD1 334 23 334 335 356 355 .00 CQUAD1 335 23 335 336 357 356 .00 CQUAD1 337 23 337 338 359 358 .00 CQUAD1 338 23 338 339 360 359 .00 CQUAD1 339 23 339 340 361 360 .00 CQUAD1 340 23 340 341 362 361 .00 CQUAD1 341 23 341 342 363 362 .00 CQUAD1 342 23 342 343 364 363 .00 CQUAD1 343 23 343 344 365 364 .00 CQUAD1 344 23 344 345 366 365 .00 CQUAD1 345 23 345 346 367 366 .00 CQUAD1 346 23 346 347 368 367 .00 CQUAD1 347 23 347 348 369 368 .00 CQUAD1 348 23 348 349 370 369 .00 CQUAD1 349 23 349 350 371 370 .00 CQUAD1 350 23 350 351 372 371 .00 CQUAD1 351 23 351 352 373 372 .00 CQUAD1 352 23 352 353 374 373 .00 CQUAD1 353 23 353 354 375 374 .00 CQUAD1 354 23 354 355 376 375 .00 CQUAD1 355 23 355 356 377 376 .00 CQUAD1 356 23 356 357 378 377 .00 CQUAD1 358 23 358 359 380 379 .00 CQUAD1 359 23 359 360 381 380 .00 CQUAD1 360 23 360 361 382 381 .00 CQUAD1 361 23 361 362 383 382 .00 CQUAD1 362 23 362 363 384 383 .00 CQUAD1 363 23 363 364 385 384 .00 CQUAD1 364 23 364 365 386 385 .00 CQUAD1 365 23 365 366 387 386 .00 CQUAD1 366 23 366 367 388 387 .00 CQUAD1 367 23 367 368 389 388 .00 CQUAD1 368 23 368 369 390 389 .00 CQUAD1 369 23 369 370 391 390 .00 CQUAD1 370 23 370 371 392 391 .00 CQUAD1 371 23 371 372 393 392 .00 CQUAD1 372 23 372 373 394 393 .00 CQUAD1 373 23 373 374 395 394 .00 CQUAD1 374 23 374 375 396 395 .00 CQUAD1 375 23 375 376 397 396 .00 CQUAD1 376 23 376 377 398 397 .00 CQUAD1 377 23 377 378 399 398 .00 CQUAD1 379 23 379 380 401 400 .00 CQUAD1 380 23 380 381 402 401 .00 CQUAD1 381 23 381 382 403 402 .00 CQUAD1 382 23 382 383 404 403 .00 CQUAD1 383 23 383 384 405 404 .00 CQUAD1 384 23 384 385 406 405 .00 CQUAD1 385 23 385 386 407 406 .00 CQUAD1 386 23 386 387 408 407 .00 CQUAD1 387 23 387 388 409 408 .00 CQUAD1 388 23 388 389 410 409 .00 CQUAD1 389 23 389 390 411 410 .00 CQUAD1 390 23 390 391 412 411 .00 CQUAD1 391 23 391 392 413 412 .00 CQUAD1 392 23 392 393 414 413 .00 CQUAD1 393 23 393 394 415 414 .00 CQUAD1 394 23 394 395 416 415 .00 CQUAD1 395 23 395 396 417 416 .00 CQUAD1 396 23 396 397 418 417 .00 CQUAD1 397 23 397 398 419 418 .00 CQUAD1 398 23 398 399 420 419 .00 CQUAD1 400 23 400 401 422 421 .00 CQUAD1 401 23 401 402 423 422 .00 CQUAD1 402 23 402 403 424 423 .00 CQUAD1 403 23 403 404 425 424 .00 CQUAD1 404 23 404 405 426 425 .00 CQUAD1 405 23 405 406 427 426 .00 CQUAD1 406 23 406 407 428 427 .00 CQUAD1 407 23 407 408 429 428 .00 CQUAD1 408 23 408 409 430 429 .00 CQUAD1 409 23 409 410 431 430 .00 CQUAD1 410 23 410 411 432 431 .00 CQUAD1 411 23 411 412 433 432 .00 CQUAD1 412 23 412 413 434 433 .00 CQUAD1 413 23 413 414 435 434 .00 CQUAD1 414 23 414 415 436 435 .00 CQUAD1 415 23 415 416 437 436 .00 CQUAD1 416 23 416 417 438 437 .00 CQUAD1 417 23 417 418 439 438 .00 CQUAD1 418 23 418 419 440 439 .00 CQUAD1 419 23 419 420 441 440 .00 DAREA *37 1 3 2.5000000E-01 DAREA *37 2 3 4.9845867E-01 DAREA *37 3 3 4.9384417E-01 DAREA *37 4 3 4.8618496E-01 DAREA *37 5 3 4.7552826E-01 DAREA *37 6 3 4.6193977E-01 DAREA *37 7 3 4.4550326E-01 DAREA *37 8 3 4.2632008E-01 DAREA *37 9 3 4.0450850E-01 DAREA *37 10 3 3.8020299E-01 DAREA *37 11 3 3.5355339E-01 DAREA *37 12 3 3.2472403E-01 DAREA *37 13 3 2.9389263E-01 DAREA *37 14 3 2.6124929E-01 DAREA *37 15 3 2.2699525E-01 DAREA *37 16 3 1.9134172E-01 DAREA *37 17 3 1.5450850E-01 DAREA *37 18 3 1.1672269E-01 DAREA *37 19 3 7.8217242E-02 DAREA *37 20 3 3.9229557E-02 DAREA *37 22 3 4.9845867E-01 DAREA *37 23 3 9.9384417E-01 DAREA *37 24 3 9.8464362E-01 DAREA *37 25 3 9.6937243E-01 DAREA *37 26 3 9.4812473E-01 DAREA *37 27 3 9.2103152E-01 DAREA *37 28 3 8.8825985E-01 DAREA *37 29 3 8.5001176E-01 DAREA *37 30 3 8.0652306E-01 DAREA *37 31 3 7.5806189E-01 DAREA *37 32 3 7.0492700E-01 DAREA *37 33 3 6.4744603E-01 DAREA *37 34 3 5.8597331E-01 DAREA *37 35 3 5.2088789E-01 DAREA *37 36 3 4.5259101E-01 DAREA *37 37 3 3.8150376E-01 DAREA *37 38 3 3.0806441E-01 DAREA *37 39 3 2.3272575E-01 DAREA *37 40 3 1.5595225E-01 DAREA *37 41 3 7.8217250E-02 DAREA *37 43 3 4.9384417E-01 DAREA *37 44 3 9.8464362E-01 DAREA *37 45 3 9.7552826E-01 DAREA *37 46 3 9.6039844E-01 DAREA *37 47 3 9.3934743E-01 DAREA *37 48 3 9.1250504E-01 DAREA *37 49 3 8.8003676E-01 DAREA *37 50 3 8.4214275E-01 DAREA *37 51 3 7.9905665E-01 DAREA *37 52 3 7.5104411E-01 DAREA *37 53 3 6.9840112E-01 DAREA *37 54 3 6.4145228E-01 DAREA *37 55 3 5.8054864E-01 DAREA *37 56 3 5.1606575E-01 DAREA *37 57 3 4.4840113E-01 DAREA *37 58 3 3.7797197E-01 DAREA *37 59 3 3.0521249E-01 DAREA *37 60 3 2.3057128E-01 DAREA *37 61 3 1.5450851E-01 DAREA *37 62 3 7.7493152E-02 DAREA *37 64 3 4.8618496E-01 DAREA *37 65 3 9.6937243E-01 DAREA *37 66 3 9.6039844E-01 DAREA *37 67 3 9.4550326E-01 DAREA *37 68 3 9.2477875E-01 DAREA *37 69 3 8.9835267E-01 DAREA *37 70 3 8.6638795E-01 DAREA *37 71 3 8.2908165E-01 DAREA *37 72 3 7.8666379E-01 DAREA *37 73 3 7.3939589E-01 DAREA *37 74 3 6.8756936E-01 DAREA *37 75 3 6.3150375E-01 DAREA *37 76 3 5.7154471E-01 DAREA *37 77 3 5.0806190E-01 DAREA *37 78 3 4.4144671E-01 DAREA *37 79 3 3.7210987E-01 DAREA *37 80 3 3.0047884E-01 DAREA *37 81 3 2.2699527E-01 DAREA *37 82 3 1.5211219E-01 DAREA *37 83 3 7.6291282E-02 DAREA *37 85 3 4.7552826E-01 DAREA *37 86 3 9.4812473E-01 DAREA *37 87 3 9.3934743E-01 DAREA *37 88 3 9.2477875E-01 DAREA *37 89 3 9.0450849E-01 DAREA *37 90 3 8.7866165E-01 DAREA *37 91 3 8.4739757E-01 DAREA *37 92 3 8.1090898E-01 DAREA *37 93 3 7.6942088E-01 DAREA *37 94 3 7.2318906E-01 DAREA *37 95 3 6.7249851E-01 DAREA *37 96 3 6.1766180E-01 DAREA *37 97 3 5.5901700E-01 DAREA *37 98 3 4.9692567E-01 DAREA *37 99 3 4.3177063E-01 DAREA *37 100 3 3.6395358E-01 DAREA *37 101 3 2.9389264E-01 DAREA *37 102 3 2.2201975E-01 DAREA *37 103 3 1.4877803E-01 DAREA *37 104 3 7.4619051E-02 DAREA *37 106 3 4.6193977E-01 DAREA *37 107 3 9.2103152E-01 DAREA *37 108 3 9.1250504E-01 DAREA *37 109 3 8.9835267E-01 DAREA *37 110 3 8.7866165E-01 DAREA *37 111 3 8.5355339E-01 DAREA *37 112 3 8.2318269E-01 DAREA *37 113 3 7.8773680E-01 DAREA *37 114 3 7.4743424E-01 DAREA *37 115 3 7.0252351E-01 DAREA *37 116 3 6.5328148E-01 DAREA *37 117 3 6.0001177E-01 DAREA *37 118 3 5.4304276E-01 DAREA *37 119 3 4.8272574E-01 DAREA *37 120 3 4.1943254E-01 DAREA *37 121 3 3.5355340E-01 DAREA *37 122 3 2.8549449E-01 DAREA *37 123 3 2.1567541E-01 DAREA *37 124 3 1.4452662E-01 DAREA *37 125 3 7.2486769E-02 DAREA *37 127 3 4.4550326E-01 DAREA *37 128 3 8.8825985E-01 DAREA *37 129 3 8.8003676E-01 DAREA *37 130 3 8.6638795E-01 DAREA *37 131 3 8.4739757E-01 DAREA *37 132 3 8.2318269E-01 DAREA *37 133 3 7.9389263E-01 DAREA *37 134 3 7.5970795E-01 DAREA *37 135 3 7.2083942E-01 DAREA *37 136 3 6.7752668E-01 DAREA *37 137 3 6.3003676E-01 DAREA *37 138 3 5.7866246E-01 DAREA *37 139 3 5.2372050E-01 DAREA *37 140 3 4.6554964E-01 DAREA *37 141 3 4.0450851E-01 DAREA *37 142 3 3.4097344E-01 DAREA *37 143 3 2.7533617E-01 DAREA *37 144 3 2.0800136E-01 DAREA *37 145 3 1.3938414E-01 DAREA *37 146 3 6.9907582E-02 DAREA *37 148 3 4.2632008E-01 DAREA *37 149 3 8.5001176E-01 DAREA *37 150 3 8.4214275E-01 DAREA *37 151 3 8.2908165E-01 DAREA *37 152 3 8.1090898E-01 DAREA *37 153 3 7.8773680E-01 DAREA *37 154 3 7.5970795E-01 DAREA *37 155 3 7.2699525E-01 DAREA *37 156 3 6.8980038E-01 DAREA *37 157 3 6.4835268E-01 DAREA *37 158 3 6.0290764E-01 DAREA *37 159 3 5.5374550E-01 DAREA *37 160 3 5.0116932E-01 DAREA *37 161 3 4.4550327E-01 DAREA *37 162 3 3.8709054E-01 DAREA *37 163 3 3.2629127E-01 DAREA *37 164 3 2.6348031E-01 DAREA *37 165 3 1.9904491E-01 DAREA *37 166 3 1.3338232E-01 DAREA *37 167 3 6.6897391E-02 DAREA *37 169 3 4.0450850E-01 DAREA *37 170 3 8.0652306E-01 DAREA *37 171 3 7.9905665E-01 DAREA *37 172 3 7.8666379E-01 DAREA *37 173 3 7.6942088E-01 DAREA *37 174 3 7.4743424E-01 DAREA *37 175 3 7.2083942E-01 DAREA *37 176 3 6.8980038E-01 DAREA *37 177 3 6.5450849E-01 DAREA *37 178 3 6.1518135E-01 DAREA *37 179 3 5.7206140E-01 DAREA *37 180 3 5.2541451E-01 DAREA *37 181 3 4.7552826E-01 DAREA *37 182 3 4.2271023E-01 DAREA *37 183 3 3.6728603E-01 DAREA *37 184 3 3.0959741E-01 DAREA *37 185 3 2.5000001E-01 DAREA *37 186 3 1.8886128E-01 DAREA *37 187 3 1.2655815E-01 DAREA *37 188 3 6.3474756E-02 DAREA *37 190 3 3.8020299E-01 DAREA *37 191 3 7.5806189E-01 DAREA *37 192 3 7.5104411E-01 DAREA *37 193 3 7.3939589E-01 DAREA *37 194 3 7.2318906E-01 DAREA *37 195 3 7.0252351E-01 DAREA *37 196 3 6.7752668E-01 DAREA *37 197 3 6.4835268E-01 DAREA *37 198 3 6.1518135E-01 DAREA *37 199 3 5.7821724E-01 DAREA *37 200 3 5.3768822E-01 DAREA *37 201 3 4.9384418E-01 DAREA *37 202 3 4.4695542E-01 DAREA *37 203 3 3.9731104E-01 DAREA *37 204 3 3.4521709E-01 DAREA *37 205 3 2.9099477E-01 DAREA *37 206 3 2.3497838E-01 DAREA *37 207 3 1.7751326E-01 DAREA *37 208 3 1.1895372E-01 DAREA *37 209 3 5.9660778E-02 DAREA *37 211 3 3.5355339E-01 DAREA *37 212 3 7.0492700E-01 DAREA *37 213 3 6.9840112E-01 DAREA *37 214 3 6.8756936E-01 DAREA *37 215 3 6.7249851E-01 DAREA *37 216 3 6.5328148E-01 DAREA *37 217 3 6.3003676E-01 DAREA *37 218 3 6.0290764E-01 DAREA *37 219 3 5.7206140E-01 DAREA *37 220 3 5.3768822E-01 DAREA *37 221 3 5.0000000E-01 DAREA *37 222 3 4.5922913E-01 DAREA *37 223 3 4.1562694E-01 DAREA *37 224 3 3.6946229E-01 DAREA *37 225 3 3.2101976E-01 DAREA *37 226 3 2.7059806E-01 DAREA *37 227 3 2.1850802E-01 DAREA *37 228 3 1.6507082E-01 DAREA *37 229 3 1.1061588E-01 DAREA *37 230 3 5.5478971E-02 DAREA *37 232 3 3.2472403E-01 DAREA *37 233 3 6.4744603E-01 DAREA *37 234 3 6.4145228E-01 DAREA *37 235 3 6.3150375E-01 DAREA *37 236 3 6.1766180E-01 DAREA *37 237 3 6.0001177E-01 DAREA *37 238 3 5.7866246E-01 DAREA *37 239 3 5.5374550E-01 DAREA *37 240 3 5.2541451E-01 DAREA *37 241 3 4.9384418E-01 DAREA *37 242 3 4.5922913E-01 DAREA *37 243 3 4.2178278E-01 DAREA *37 244 3 3.8173600E-01 DAREA *37 245 3 3.3933569E-01 DAREA *37 246 3 2.9484325E-01 DAREA *37 247 3 2.4853302E-01 DAREA *37 248 3 2.0069049E-01 DAREA *37 249 3 1.5161065E-01 DAREA *37 250 3 1.0159607E-01 DAREA *37 251 3 5.0955119E-02 DAREA *37 253 3 2.9389263E-01 DAREA *37 254 3 5.8597331E-01 DAREA *37 255 3 5.8054864E-01 DAREA *37 256 3 5.7154471E-01 DAREA *37 257 3 5.5901700E-01 DAREA *37 258 3 5.4304276E-01 DAREA *37 259 3 5.2372050E-01 DAREA *37 260 3 5.0116932E-01 DAREA *37 261 3 4.7552826E-01 DAREA *37 262 3 4.4695542E-01 DAREA *37 263 3 4.1562694E-01 DAREA *37 264 3 3.8173600E-01 DAREA *37 265 3 3.4549151E-01 DAREA *37 266 3 3.0711696E-01 DAREA *37 267 3 2.6684893E-01 DAREA *37 268 3 2.2493569E-01 DAREA *37 269 3 1.8163564E-01 DAREA *37 270 3 1.3721576E-01 DAREA *37 271 3 9.1949883E-02 DAREA *37 272 3 4.6117110E-02 DAREA *37 274 3 2.6124929E-01 DAREA *37 275 3 5.2088789E-01 DAREA *37 276 3 5.1606575E-01 DAREA *37 277 3 5.0806190E-01 DAREA *37 278 3 4.9692567E-01 DAREA *37 279 3 4.8272574E-01 DAREA *37 280 3 4.6554964E-01 DAREA *37 281 3 4.4550327E-01 DAREA *37 282 3 4.2271023E-01 DAREA *37 283 3 3.9731104E-01 DAREA *37 284 3 3.6946229E-01 DAREA *37 285 3 3.3933569E-01 DAREA *37 286 3 3.0711696E-01 DAREA *37 287 3 2.7300476E-01 DAREA *37 288 3 2.3720939E-01 DAREA *37 289 3 1.9995156E-01 DAREA *37 290 3 1.6146095E-01 DAREA *37 291 3 1.2197488E-01 DAREA *37 292 3 8.1736795E-02 DAREA *37 293 3 4.0994775E-02 DAREA *37 295 3 2.2699525E-01 DAREA *37 296 3 4.5259101E-01 DAREA *37 297 3 4.4840113E-01 DAREA *37 298 3 4.4144671E-01 DAREA *37 299 3 4.3177063E-01 DAREA *37 300 3 4.1943254E-01 DAREA *37 301 3 4.0450851E-01 DAREA *37 302 3 3.8709054E-01 DAREA *37 303 3 3.6728603E-01 DAREA *37 304 3 3.4521709E-01 DAREA *37 305 3 3.2101976E-01 DAREA *37 306 3 2.9484325E-01 DAREA *37 307 3 2.6684893E-01 DAREA *37 308 3 2.3720939E-01 DAREA *37 309 3 2.0610738E-01 DAREA *37 310 3 1.7373465E-01 DAREA *37 311 3 1.4029079E-01 DAREA *37 312 3 1.0598199E-01 DAREA *37 313 3 7.1019771E-02 DAREA *37 314 3 3.5619693E-02 DAREA *37 316 3 1.9134172E-01 DAREA *37 317 3 3.8150376E-01 DAREA *37 318 3 3.7797197E-01 DAREA *37 319 3 3.7210987E-01 DAREA *37 320 3 3.6395358E-01 DAREA *37 321 3 3.5355340E-01 DAREA *37 322 3 3.4097344E-01 DAREA *37 323 3 3.2629127E-01 DAREA *37 324 3 3.0959741E-01 DAREA *37 325 3 2.9099477E-01 DAREA *37 326 3 2.7059806E-01 DAREA *37 327 3 2.4853302E-01 DAREA *37 328 3 2.2493569E-01 DAREA *37 329 3 1.9995156E-01 DAREA *37 330 3 1.7373465E-01 DAREA *37 331 3 1.4644662E-01 DAREA *37 332 3 1.1825569E-01 DAREA *37 333 3 8.9335684E-02 DAREA *37 334 3 5.9864887E-02 DAREA *37 335 3 3.0025004E-02 DAREA *37 337 3 1.5450850E-01 DAREA *37 338 3 3.0806441E-01 DAREA *37 339 3 3.0521249E-01 DAREA *37 340 3 3.0047884E-01 DAREA *37 341 3 2.9389264E-01 DAREA *37 342 3 2.8549449E-01 DAREA *37 343 3 2.7533617E-01 DAREA *37 344 3 2.6348031E-01 DAREA *37 345 3 2.5000001E-01 DAREA *37 346 3 2.3497838E-01 DAREA *37 347 3 2.1850802E-01 DAREA *37 348 3 2.0069049E-01 DAREA *37 349 3 1.8163564E-01 DAREA *37 350 3 1.6146095E-01 DAREA *37 351 3 1.4029079E-01 DAREA *37 352 3 1.1825569E-01 DAREA *37 353 3 9.5491510E-02 DAREA *37 354 3 7.2138594E-02 DAREA *37 355 3 4.8340916E-02 DAREA *37 356 3 2.4245200E-02 DAREA *37 358 3 1.1672269E-01 DAREA *37 359 3 2.3272575E-01 DAREA *37 360 3 2.3057128E-01 DAREA *37 361 3 2.2699527E-01 DAREA *37 362 3 2.2201975E-01 DAREA *37 363 3 2.1567541E-01 DAREA *37 364 3 2.0800136E-01 DAREA *37 365 3 1.9904491E-01 DAREA *37 366 3 1.8886128E-01 DAREA *37 367 3 1.7751326E-01 DAREA *37 368 3 1.6507082E-01 DAREA *37 369 3 1.5161065E-01 DAREA *37 370 3 1.3721576E-01 DAREA *37 371 3 1.2197488E-01 DAREA *37 372 3 1.0598199E-01 DAREA *37 373 3 8.9335684E-02 DAREA *37 374 3 7.2138594E-02 DAREA *37 375 3 5.4496748E-02 DAREA *37 376 3 3.6518908E-02 DAREA *37 377 3 1.8315918E-02 DAREA *37 379 3 7.8217242E-02 DAREA *37 380 3 1.5595225E-01 DAREA *37 381 3 1.5450851E-01 DAREA *37 382 3 1.5211219E-01 DAREA *37 383 3 1.4877803E-01 DAREA *37 384 3 1.4452662E-01 DAREA *37 385 3 1.3938414E-01 DAREA *37 386 3 1.3338232E-01 DAREA *37 387 3 1.2655815E-01 DAREA *37 388 3 1.1895372E-01 DAREA *37 389 3 1.1061588E-01 DAREA *37 390 3 1.0159607E-01 DAREA *37 391 3 9.1949883E-02 DAREA *37 392 3 8.1736795E-02 DAREA *37 393 3 7.1019771E-02 DAREA *37 394 3 5.9864887E-02 DAREA *37 395 3 4.8340916E-02 DAREA *37 396 3 3.6518908E-02 DAREA *37 397 3 2.4471748E-02 DAREA *37 398 3 1.2273711E-02 DAREA *37 400 3 3.9229557E-02 DAREA *37 401 3 7.8217250E-02 DAREA *37 402 3 7.7493152E-02 DAREA *37 403 3 7.6291282E-02 DAREA *37 404 3 7.4619051E-02 DAREA *37 405 3 7.2486769E-02 DAREA *37 406 3 6.9907582E-02 DAREA *37 407 3 6.6897391E-02 DAREA *37 408 3 6.3474756E-02 DAREA *37 409 3 5.9660778E-02 DAREA *37 410 3 5.5478971E-02 DAREA *37 411 3 5.0955119E-02 DAREA *37 412 3 4.6117110E-02 DAREA *37 413 3 4.0994775E-02 DAREA *37 414 3 3.5619693E-02 DAREA *37 415 3 3.0025004E-02 DAREA *37 416 3 2.4245200E-02 DAREA *37 417 3 1.8315918E-02 DAREA *37 418 3 1.2273711E-02 DAREA *37 419 3 6.1558325E-03 FREQ 8 .0 8.0 9.0 10.0 11.0 GRDSET 126 GRID 1 .0 .0 .0 GRID 2 .5 .0 .0 GRID 3 1.0 .0 .0 GRID 4 1.5 .0 .0 GRID 5 2.0 .0 .0 GRID 6 2.5 .0 .0 GRID 7 3.0 .0 .0 GRID 8 3.5 .0 .0 GRID 9 4.0 .0 .0 GRID 10 4.5 .0 .0 GRID 11 5.0 .0 .0 GRID 12 5.5 .0 .0 GRID 13 6.0 .0 .0 GRID 14 6.5 .0 .0 GRID 15 7.0 .0 .0 GRID 16 7.5 .0 .0 GRID 17 8.0 .0 .0 GRID 18 8.5 .0 .0 GRID 19 9.0 .0 .0 GRID 20 9.5 .0 .0 GRID 21 10.0 .0 .0 GRID 22 .0 .5 .0 GRID 23 .5 .5 .0 GRID 24 1.0 .5 .0 GRID 25 1.5 .5 .0 GRID 26 2.0 .5 .0 GRID 27 2.5 .5 .0 GRID 28 3.0 .5 .0 GRID 29 3.5 .5 .0 GRID 30 4.0 .5 .0 GRID 31 4.5 .5 .0 GRID 32 5.0 .5 .0 GRID 33 5.5 .5 .0 GRID 34 6.0 .5 .0 GRID 35 6.5 .5 .0 GRID 36 7.0 .5 .0 GRID 37 7.5 .5 .0 GRID 38 8.0 .5 .0 GRID 39 8.5 .5 .0 GRID 40 9.0 .5 .0 GRID 41 9.5 .5 .0 GRID 42 10.0 .5 .0 GRID 43 .0 1.0 .0 GRID 44 .5 1.0 .0 GRID 45 1.0 1.0 .0 GRID 46 1.5 1.0 .0 GRID 47 2.0 1.0 .0 GRID 48 2.5 1.0 .0 GRID 49 3.0 1.0 .0 GRID 50 3.5 1.0 .0 GRID 51 4.0 1.0 .0 GRID 52 4.5 1.0 .0 GRID 53 5.0 1.0 .0 GRID 54 5.5 1.0 .0 GRID 55 6.0 1.0 .0 GRID 56 6.5 1.0 .0 GRID 57 7.0 1.0 .0 GRID 58 7.5 1.0 .0 GRID 59 8.0 1.0 .0 GRID 60 8.5 1.0 .0 GRID 61 9.0 1.0 .0 GRID 62 9.5 1.0 .0 GRID 63 10.0 1.0 .0 GRID 64 .0 1.5 .0 GRID 65 .5 1.5 .0 GRID 66 1.0 1.5 .0 GRID 67 1.5 1.5 .0 GRID 68 2.0 1.5 .0 GRID 69 2.5 1.5 .0 GRID 70 3.0 1.5 .0 GRID 71 3.5 1.5 .0 GRID 72 4.0 1.5 .0 GRID 73 4.5 1.5 .0 GRID 74 5.0 1.5 .0 GRID 75 5.5 1.5 .0 GRID 76 6.0 1.5 .0 GRID 77 6.5 1.5 .0 GRID 78 7.0 1.5 .0 GRID 79 7.5 1.5 .0 GRID 80 8.0 1.5 .0 GRID 81 8.5 1.5 .0 GRID 82 9.0 1.5 .0 GRID 83 9.5 1.5 .0 GRID 84 10.0 1.5 .0 GRID 85 .0 2.0 .0 GRID 86 .5 2.0 .0 GRID 87 1.0 2.0 .0 GRID 88 1.5 2.0 .0 GRID 89 2.0 2.0 .0 GRID 90 2.5 2.0 .0 GRID 91 3.0 2.0 .0 GRID 92 3.5 2.0 .0 GRID 93 4.0 2.0 .0 GRID 94 4.5 2.0 .0 GRID 95 5.0 2.0 .0 GRID 96 5.5 2.0 .0 GRID 97 6.0 2.0 .0 GRID 98 6.5 2.0 .0 GRID 99 7.0 2.0 .0 GRID 100 7.5 2.0 .0 GRID 101 8.0 2.0 .0 GRID 102 8.5 2.0 .0 GRID 103 9.0 2.0 .0 GRID 104 9.5 2.0 .0 GRID 105 10.0 2.0 .0 GRID 106 .0 2.5 .0 GRID 107 .5 2.5 .0 GRID 108 1.0 2.5 .0 GRID 109 1.5 2.5 .0 GRID 110 2.0 2.5 .0 GRID 111 2.5 2.5 .0 GRID 112 3.0 2.5 .0 GRID 113 3.5 2.5 .0 GRID 114 4.0 2.5 .0 GRID 115 4.5 2.5 .0 GRID 116 5.0 2.5 .0 GRID 117 5.5 2.5 .0 GRID 118 6.0 2.5 .0 GRID 119 6.5 2.5 .0 GRID 120 7.0 2.5 .0 GRID 121 7.5 2.5 .0 GRID 122 8.0 2.5 .0 GRID 123 8.5 2.5 .0 GRID 124 9.0 2.5 .0 GRID 125 9.5 2.5 .0 GRID 126 10.0 2.5 .0 GRID 127 .0 3.0 .0 GRID 128 .5 3.0 .0 GRID 129 1.0 3.0 .0 GRID 130 1.5 3.0 .0 GRID 131 2.0 3.0 .0 GRID 132 2.5 3.0 .0 GRID 133 3.0 3.0 .0 GRID 134 3.5 3.0 .0 GRID 135 4.0 3.0 .0 GRID 136 4.5 3.0 .0 GRID 137 5.0 3.0 .0 GRID 138 5.5 3.0 .0 GRID 139 6.0 3.0 .0 GRID 140 6.5 3.0 .0 GRID 141 7.0 3.0 .0 GRID 142 7.5 3.0 .0 GRID 143 8.0 3.0 .0 GRID 144 8.5 3.0 .0 GRID 145 9.0 3.0 .0 GRID 146 9.5 3.0 .0 GRID 147 10.0 3.0 .0 GRID 148 .0 3.5 .0 GRID 149 .5 3.5 .0 GRID 150 1.0 3.5 .0 GRID 151 1.5 3.5 .0 GRID 152 2.0 3.5 .0 GRID 153 2.5 3.5 .0 GRID 154 3.0 3.5 .0 GRID 155 3.5 3.5 .0 GRID 156 4.0 3.5 .0 GRID 157 4.5 3.5 .0 GRID 158 5.0 3.5 .0 GRID 159 5.5 3.5 .0 GRID 160 6.0 3.5 .0 GRID 161 6.5 3.5 .0 GRID 162 7.0 3.5 .0 GRID 163 7.5 3.5 .0 GRID 164 8.0 3.5 .0 GRID 165 8.5 3.5 .0 GRID 166 9.0 3.5 .0 GRID 167 9.5 3.5 .0 GRID 168 10.0 3.5 .0 GRID 169 .0 4.0 .0 GRID 170 .5 4.0 .0 GRID 171 1.0 4.0 .0 GRID 172 1.5 4.0 .0 GRID 173 2.0 4.0 .0 GRID 174 2.5 4.0 .0 GRID 175 3.0 4.0 .0 GRID 176 3.5 4.0 .0 GRID 177 4.0 4.0 .0 GRID 178 4.5 4.0 .0 GRID 179 5.0 4.0 .0 GRID 180 5.5 4.0 .0 GRID 181 6.0 4.0 .0 GRID 182 6.5 4.0 .0 GRID 183 7.0 4.0 .0 GRID 184 7.5 4.0 .0 GRID 185 8.0 4.0 .0 GRID 186 8.5 4.0 .0 GRID 187 9.0 4.0 .0 GRID 188 9.5 4.0 .0 GRID 189 10.0 4.0 .0 GRID 190 .0 4.5 .0 GRID 191 .5 4.5 .0 GRID 192 1.0 4.5 .0 GRID 193 1.5 4.5 .0 GRID 194 2.0 4.5 .0 GRID 195 2.5 4.5 .0 GRID 196 3.0 4.5 .0 GRID 197 3.5 4.5 .0 GRID 198 4.0 4.5 .0 GRID 199 4.5 4.5 .0 GRID 200 5.0 4.5 .0 GRID 201 5.5 4.5 .0 GRID 202 6.0 4.5 .0 GRID 203 6.5 4.5 .0 GRID 204 7.0 4.5 .0 GRID 205 7.5 4.5 .0 GRID 206 8.0 4.5 .0 GRID 207 8.5 4.5 .0 GRID 208 9.0 4.5 .0 GRID 209 9.5 4.5 .0 GRID 210 10.0 4.5 .0 GRID 211 .0 5.0 .0 GRID 212 .5 5.0 .0 GRID 213 1.0 5.0 .0 GRID 214 1.5 5.0 .0 GRID 215 2.0 5.0 .0 GRID 216 2.5 5.0 .0 GRID 217 3.0 5.0 .0 GRID 218 3.5 5.0 .0 GRID 219 4.0 5.0 .0 GRID 220 4.5 5.0 .0 GRID 221 5.0 5.0 .0 GRID 222 5.5 5.0 .0 GRID 223 6.0 5.0 .0 GRID 224 6.5 5.0 .0 GRID 225 7.0 5.0 .0 GRID 226 7.5 5.0 .0 GRID 227 8.0 5.0 .0 GRID 228 8.5 5.0 .0 GRID 229 9.0 5.0 .0 GRID 230 9.5 5.0 .0 GRID 231 10.0 5.0 .0 GRID 232 .0 5.5 .0 GRID 233 .5 5.5 .0 GRID 234 1.0 5.5 .0 GRID 235 1.5 5.5 .0 GRID 236 2.0 5.5 .0 GRID 237 2.5 5.5 .0 GRID 238 3.0 5.5 .0 GRID 239 3.5 5.5 .0 GRID 240 4.0 5.5 .0 GRID 241 4.5 5.5 .0 GRID 242 5.0 5.5 .0 GRID 243 5.5 5.5 .0 GRID 244 6.0 5.5 .0 GRID 245 6.5 5.5 .0 GRID 246 7.0 5.5 .0 GRID 247 7.5 5.5 .0 GRID 248 8.0 5.5 .0 GRID 249 8.5 5.5 .0 GRID 250 9.0 5.5 .0 GRID 251 9.5 5.5 .0 GRID 252 10.0 5.5 .0 GRID 253 .0 6.0 .0 GRID 254 .5 6.0 .0 GRID 255 1.0 6.0 .0 GRID 256 1.5 6.0 .0 GRID 257 2.0 6.0 .0 GRID 258 2.5 6.0 .0 GRID 259 3.0 6.0 .0 GRID 260 3.5 6.0 .0 GRID 261 4.0 6.0 .0 GRID 262 4.5 6.0 .0 GRID 263 5.0 6.0 .0 GRID 264 5.5 6.0 .0 GRID 265 6.0 6.0 .0 GRID 266 6.5 6.0 .0 GRID 267 7.0 6.0 .0 GRID 268 7.5 6.0 .0 GRID 269 8.0 6.0 .0 GRID 270 8.5 6.0 .0 GRID 271 9.0 6.0 .0 GRID 272 9.5 6.0 .0 GRID 273 10.0 6.0 .0 GRID 274 .0 6.5 .0 GRID 275 .5 6.5 .0 GRID 276 1.0 6.5 .0 GRID 277 1.5 6.5 .0 GRID 278 2.0 6.5 .0 GRID 279 2.5 6.5 .0 GRID 280 3.0 6.5 .0 GRID 281 3.5 6.5 .0 GRID 282 4.0 6.5 .0 GRID 283 4.5 6.5 .0 GRID 284 5.0 6.5 .0 GRID 285 5.5 6.5 .0 GRID 286 6.0 6.5 .0 GRID 287 6.5 6.5 .0 GRID 288 7.0 6.5 .0 GRID 289 7.5 6.5 .0 GRID 290 8.0 6.5 .0 GRID 291 8.5 6.5 .0 GRID 292 9.0 6.5 .0 GRID 293 9.5 6.5 .0 GRID 294 10.0 6.5 .0 GRID 295 .0 7.0 .0 GRID 296 .5 7.0 .0 GRID 297 1.0 7.0 .0 GRID 298 1.5 7.0 .0 GRID 299 2.0 7.0 .0 GRID 300 2.5 7.0 .0 GRID 301 3.0 7.0 .0 GRID 302 3.5 7.0 .0 GRID 303 4.0 7.0 .0 GRID 304 4.5 7.0 .0 GRID 305 5.0 7.0 .0 GRID 306 5.5 7.0 .0 GRID 307 6.0 7.0 .0 GRID 308 6.5 7.0 .0 GRID 309 7.0 7.0 .0 GRID 310 7.5 7.0 .0 GRID 311 8.0 7.0 .0 GRID 312 8.5 7.0 .0 GRID 313 9.0 7.0 .0 GRID 314 9.5 7.0 .0 GRID 315 10.0 7.0 .0 GRID 316 .0 7.5 .0 GRID 317 .5 7.5 .0 GRID 318 1.0 7.5 .0 GRID 319 1.5 7.5 .0 GRID 320 2.0 7.5 .0 GRID 321 2.5 7.5 .0 GRID 322 3.0 7.5 .0 GRID 323 3.5 7.5 .0 GRID 324 4.0 7.5 .0 GRID 325 4.5 7.5 .0 GRID 326 5.0 7.5 .0 GRID 327 5.5 7.5 .0 GRID 328 6.0 7.5 .0 GRID 329 6.5 7.5 .0 GRID 330 7.0 7.5 .0 GRID 331 7.5 7.5 .0 GRID 332 8.0 7.5 .0 GRID 333 8.5 7.5 .0 GRID 334 9.0 7.5 .0 GRID 335 9.5 7.5 .0 GRID 336 10.0 7.5 .0 GRID 337 .0 8.0 .0 GRID 338 .5 8.0 .0 GRID 339 1.0 8.0 .0 GRID 340 1.5 8.0 .0 GRID 341 2.0 8.0 .0 GRID 342 2.5 8.0 .0 GRID 343 3.0 8.0 .0 GRID 344 3.5 8.0 .0 GRID 345 4.0 8.0 .0 GRID 346 4.5 8.0 .0 GRID 347 5.0 8.0 .0 GRID 348 5.5 8.0 .0 GRID 349 6.0 8.0 .0 GRID 350 6.5 8.0 .0 GRID 351 7.0 8.0 .0 GRID 352 7.5 8.0 .0 GRID 353 8.0 8.0 .0 GRID 354 8.5 8.0 .0 GRID 355 9.0 8.0 .0 GRID 356 9.5 8.0 .0 GRID 357 10.0 8.0 .0 GRID 358 .0 8.5 .0 GRID 359 .5 8.5 .0 GRID 360 1.0 8.5 .0 GRID 361 1.5 8.5 .0 GRID 362 2.0 8.5 .0 GRID 363 2.5 8.5 .0 GRID 364 3.0 8.5 .0 GRID 365 3.5 8.5 .0 GRID 366 4.0 8.5 .0 GRID 367 4.5 8.5 .0 GRID 368 5.0 8.5 .0 GRID 369 5.5 8.5 .0 GRID 370 6.0 8.5 .0 GRID 371 6.5 8.5 .0 GRID 372 7.0 8.5 .0 GRID 373 7.5 8.5 .0 GRID 374 8.0 8.5 .0 GRID 375 8.5 8.5 .0 GRID 376 9.0 8.5 .0 GRID 377 9.5 8.5 .0 GRID 378 10.0 8.5 .0 GRID 379 .0 9.0 .0 GRID 380 .5 9.0 .0 GRID 381 1.0 9.0 .0 GRID 382 1.5 9.0 .0 GRID 383 2.0 9.0 .0 GRID 384 2.5 9.0 .0 GRID 385 3.0 9.0 .0 GRID 386 3.5 9.0 .0 GRID 387 4.0 9.0 .0 GRID 388 4.5 9.0 .0 GRID 389 5.0 9.0 .0 GRID 390 5.5 9.0 .0 GRID 391 6.0 9.0 .0 GRID 392 6.5 9.0 .0 GRID 393 7.0 9.0 .0 GRID 394 7.5 9.0 .0 GRID 395 8.0 9.0 .0 GRID 396 8.5 9.0 .0 GRID 397 9.0 9.0 .0 GRID 398 9.5 9.0 .0 GRID 399 10.0 9.0 .0 GRID 400 .0 9.5 .0 GRID 401 .5 9.5 .0 GRID 402 1.0 9.5 .0 GRID 403 1.5 9.5 .0 GRID 404 2.0 9.5 .0 GRID 405 2.5 9.5 .0 GRID 406 3.0 9.5 .0 GRID 407 3.5 9.5 .0 GRID 408 4.0 9.5 .0 GRID 409 4.5 9.5 .0 GRID 410 5.0 9.5 .0 GRID 411 5.5 9.5 .0 GRID 412 6.0 9.5 .0 GRID 413 6.5 9.5 .0 GRID 414 7.0 9.5 .0 GRID 415 7.5 9.5 .0 GRID 416 8.0 9.5 .0 GRID 417 8.5 9.5 .0 GRID 418 9.0 9.5 .0 GRID 419 9.5 9.5 .0 GRID 420 10.0 9.5 .0 GRID 421 .0 10.0 .0 GRID 422 .5 10.0 .0 GRID 423 1.0 10.0 .0 GRID 424 1.5 10.0 .0 GRID 425 2.0 10.0 .0 GRID 426 2.5 10.0 .0 GRID 427 3.0 10.0 .0 GRID 428 3.5 10.0 .0 GRID 429 4.0 10.0 .0 GRID 430 4.5 10.0 .0 GRID 431 5.0 10.0 .0 GRID 432 5.5 10.0 .0 GRID 433 6.0 10.0 .0 GRID 434 6.5 10.0 .0 GRID 435 7.0 10.0 .0 GRID 436 7.5 10.0 .0 GRID 437 8.0 10.0 .0 GRID 438 8.5 10.0 .0 GRID 439 9.0 10.0 .0 GRID 440 9.5 10.0 .0 GRID 441 10.0 10.0 .0 MAT1 8 3.0+7 .300 PQUAD1 23 8 .6666667 13.55715 RLOAD1 8 37 1 SPC1 37 4 1 2 3 4 5 6 +41001H +41001H 7 8 9 10 11 12 13 14 +41002H +41002H 15 16 17 18 19 20 21 SPC1 37 5 1 22 43 64 85 106 +31001H +31001H 127 148 169 190 211 232 253 274 +31002H +31002H 295 316 337 358 379 400 421 SPC1 37 34 21 42 63 84 105 126 +11001H +11001H 147 168 189 210 231 252 273 294 +11002H +11002H 315 336 357 378 399 420 441 SPC1 37 35 421 422 423 424 425 426 +21001H +21001H 427 428 429 430 431 432 433 434 +21002H +21002H 435 436 437 438 439 440 441 TABLED1 1 +T1 +T1 .0 2.5 100.0 10.0 ENDT ENDDATA ================================================ FILE: inp/d08012a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 8, Frequency Response Analysis - Direct Formulation $ Frequency Response of a 10x10 Plate (8-1-1) $ Frequency Response of a 20x20 Plate (8-1-2) $ Frequency Response of a 10x10 Plate (INPUT, 8-1-3) $ Frequency Response of a 20x20 Plate (INPUT, 8-1-4) $ $ A. Description $ $ This problem illustrates the use of the direct method of determining $ structural response to steady-state sinusoidal loads, The applied load is $ given in terms of complex numbers which reflect the amplitudes and phases at $ each selected frequency. The steady-state response of the structure at each $ frequency is calculated in terms of complex numbers which reflect the $ magnitudes and phases of the results. Both configurations are duplicated via $ the INPUT module to generate the QUAD1 elements. $ $ The particular model for this analysis is a square plate composed of $ quadrilateral plate elements. The exterior edges are supported on hinged $ supports and symmetric boundaries are used along x = 0 and y = 0. The applied $ load is sinusoidally distributed over the panel and increases with respect to $ frequency. Although the applied load excites only the first node, the direct $ formulation algorithm does not use this shortcut and solves the problem as $ though the load were completely general. $ $ B. Input $ $ 1. Parameters: $ $ a = b = 10 - length and width of quarter model $ $ t = 2.0 - thickness $ $ 7 $ E = 3.0 x 10 - Young's Modulus $ $ v = 0.3 - Poisson's Ratio $ $ mu = 13.55715 - nonstructural mass per area $ $ 2. Loads: $ $ The frequency dependent pressure function is: $ $ pi x pi y $ P(x,y,f) = F(f) cos ---- cos ---- (1) $ 2a 2b $ $ where $ $ F(f) = 10. + 0.3f (2) $ $ 3. Constraints: $ $ Only vertical notions and bending rotations are allowed, The exterior $ edges are hinged supports. The interior edges are planes of symmetry, This $ implies: $ $ along x = 0, theta = 0 $ y $ $ along y = 0, theta = 0 $ x $ $ along x = a, u = theta = 0 $ z x $ $ along y = b, u = theta = 0 $ z y $ $ all points, u = u = theta = 0 $ x y z $ $ C. Theory $ $ The excitation of the plate is orthogonal to the theoretical first mode, An $ explanation of the equations is given in Reference 8. The equations of $ response are: $ $ F(f) $ u (f) = ------------------ (3) $ z 2 2 2 $ (2 pi) mu(f - f ) $ 1 $ $ where f is the first natural frequency (10 Hz). $ 1 $ $ D. Results $ $ The following table gives the theoretical and NASTRAN results: $ $ --------------------------------------------------- $ 4 $ u x 10 $ z,1 $ Frequency -------------------------------------- $ Hz Theory 10x10 NASTRAN 20x20 NASTRAN $ --------------------------------------------------- $ 0 1.868 1.874 1.869 $ $ 8 6.435 6.49 6.45 $ $ 9 12.489 12.69 12.53 $ $ 10 infinite -824.92 -3284.4 $ $ 11 -11.833 -11.67 -11.79 $ --------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 8. W. F. Stokey, "Vibration of Systems Having Distributed Mass and $ Elasticity", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E. $ Crede, Editors, McGraw-Hill, 1961. $------------------------------------------------------------------------------- ================================================ FILE: inp/d08013a.inp ================================================ ID D08013A,NASTRAN APP DISPLACEMENT SOL 8,1 DIAG 14 TIME 12 ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER $ CEND TITLE = FREQUENCY RESPONSE OF A 10X10 PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A SPC = 10010 DLOAD = 8 FREQUENCY= 8 OUTPUT SET 1 = 1,4,7,11 45,55, 78,88, 111,114,117,121 DISPLACEMENT(SORT2,PHASE) = 1 SPCFORCE(SORT2,PHASE) = 1 BEGIN BULK DAREA *37 1 3 2.5000000E-01 DAREA *37 2 3 4.9384417E-01 DAREA *37 3 3 4.7552826E-01 DAREA *37 4 3 4.4550326E-01 DAREA *37 5 3 4.0450850E-01 DAREA *37 6 3 3.5355339E-01 DAREA *37 7 3 2.9389263E-01 DAREA *37 8 3 2.2699525E-01 DAREA *37 9 3 1.5450850E-01 DAREA *37 10 3 7.8217242E-02 DAREA *37 12 3 4.9384417E-01 DAREA *37 13 3 9.7552826E-01 DAREA *37 14 3 9.3934743E-01 DAREA *37 15 3 8.8003676E-01 DAREA *37 16 3 7.9905665E-01 DAREA *37 17 3 6.9840112E-01 DAREA *37 18 3 5.8054864E-01 DAREA *37 19 3 4.4840113E-01 DAREA *37 20 3 3.0521249E-01 DAREA *37 21 3 1.5450851E-01 DAREA *37 23 3 4.7552826E-01 DAREA *37 24 3 9.3934743E-01 DAREA *37 25 3 9.0450849E-01 DAREA *37 26 3 8.4739757E-01 DAREA *37 27 3 7.6942088E-01 DAREA *37 28 3 6.7249851E-01 DAREA *37 29 3 5.5901700E-01 DAREA *37 30 3 4.3177063E-01 DAREA *37 31 3 2.9389264E-01 DAREA *37 32 3 1.4877803E-01 DAREA *37 34 3 4.4550326E-01 DAREA *37 35 3 8.8003676E-01 DAREA *37 36 3 8.4739757E-01 DAREA *37 37 3 7.9389263E-01 DAREA *37 38 3 7.2083942E-01 DAREA *37 39 3 6.3003676E-01 DAREA *37 40 3 5.2372050E-01 DAREA *37 41 3 4.0450851E-01 DAREA *37 42 3 2.7533617E-01 DAREA *37 43 3 1.3938414E-01 DAREA *37 45 3 4.0450850E-01 DAREA *37 46 3 7.9905665E-01 DAREA *37 47 3 7.6942088E-01 DAREA *37 48 3 7.2083942E-01 DAREA *37 49 3 6.5450849E-01 DAREA *37 50 3 5.7206140E-01 DAREA *37 51 3 4.7552826E-01 DAREA *37 52 3 3.6728603E-01 DAREA *37 53 3 2.5000001E-01 DAREA *37 54 3 1.2655815E-01 DAREA *37 56 3 3.5355339E-01 DAREA *37 57 3 6.9840112E-01 DAREA *37 58 3 6.7249851E-01 DAREA *37 59 3 6.3003676E-01 DAREA *37 60 3 5.7206140E-01 DAREA *37 61 3 5.0000000E-01 DAREA *37 62 3 4.1562694E-01 DAREA *37 63 3 3.2101976E-01 DAREA *37 64 3 2.1850802E-01 DAREA *37 65 3 1.1061588E-01 DAREA *37 67 3 2.9389263E-01 DAREA *37 68 3 5.8054864E-01 DAREA *37 69 3 5.5901700E-01 DAREA *37 70 3 5.2372050E-01 DAREA *37 71 3 4.7552826E-01 DAREA *37 72 3 4.1562694E-01 DAREA *37 73 3 3.4549151E-01 DAREA *37 74 3 2.6684893E-01 DAREA *37 75 3 1.8163564E-01 DAREA *37 76 3 9.1949883E-02 DAREA *37 78 3 2.2699525E-01 DAREA *37 79 3 4.4840113E-01 DAREA *37 80 3 4.3177063E-01 DAREA *37 81 3 4.0450851E-01 DAREA *37 82 3 3.6728603E-01 DAREA *37 83 3 3.2101976E-01 DAREA *37 84 3 2.6684893E-01 DAREA *37 85 3 2.0610738E-01 DAREA *37 86 3 1.4029079E-01 DAREA *37 87 3 7.1019771E-02 DAREA *37 89 3 1.5450850E-01 DAREA *37 90 3 3.0521249E-01 DAREA *37 91 3 2.9389264E-01 DAREA *37 92 3 2.7533617E-01 DAREA *37 93 3 2.5000001E-01 DAREA *37 94 3 2.1850802E-01 DAREA *37 95 3 1.8163564E-01 DAREA *37 96 3 1.4029079E-01 DAREA *37 97 3 9.5491510E-02 DAREA *37 98 3 4.8340916E-02 DAREA *37 100 3 7.8217242E-02 DAREA *37 101 3 1.5450851E-01 DAREA *37 102 3 1.4877803E-01 DAREA *37 103 3 1.3938414E-01 DAREA *37 104 3 1.2655815E-01 DAREA *37 105 3 1.1061588E-01 DAREA *37 106 3 9.1949883E-02 DAREA *37 107 3 7.1019771E-02 DAREA *37 108 3 4.8340916E-02 DAREA *37 109 3 2.4471748E-02 FREQ 8 .0 8.0 9.0 10.0 11.0 MAT1 8 3.0+7 .300 PQUAD1 101 8 .6666667 13.55715 RLOAD1 8 37 1 TABLED1 1 +T1 +T1 .0 10.0 100.0 40.0 ENDT ENDDATA 10 10 1.0E+00 1.0E+00 126 0.0 0.0 4 5 35 34 0 0 ================================================ FILE: inp/d08013a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 8, Frequency Response Analysis - Direct Formulation $ Frequency Response of a 10x10 Plate (8-1-1) $ Frequency Response of a 20x20 Plate (8-1-2) $ Frequency Response of a 10x10 Plate (INPUT, 8-1-3) $ Frequency Response of a 20x20 Plate (INPUT, 8-1-4) $ $ A. Description $ $ This problem illustrates the use of the direct method of determining $ structural response to steady-state sinusoidal loads, The applied load is $ given in terms of complex numbers which reflect the amplitudes and phases at $ each selected frequency. The steady-state response of the structure at each $ frequency is calculated in terms of complex numbers which reflect the $ magnitudes and phases of the results. Both configurations are duplicated via $ the INPUT module to generate the QUAD1 elements. $ $ The particular model for this analysis is a square plate composed of $ quadrilateral plate elements. The exterior edges are supported on hinged $ supports and symmetric boundaries are used along x = 0 and y = 0. The applied $ load is sinusoidally distributed over the panel and increases with respect to $ frequency. Although the applied load excites only the first node, the direct $ formulation algorithm does not use this shortcut and solves the problem as $ though the load were completely general. $ $ B. Input $ $ 1. Parameters: $ $ a = b = 10 - length and width of quarter model $ $ t = 2.0 - thickness $ $ 7 $ E = 3.0 x 10 - Young's Modulus $ $ v = 0.3 - Poisson's Ratio $ $ mu = 13.55715 - nonstructural mass per area $ $ 2. Loads: $ $ The frequency dependent pressure function is: $ $ pi x pi y $ P(x,y,f) = F(f) cos ---- cos ---- (1) $ 2a 2b $ $ where $ $ F(f) = 10. + 0.3f (2) $ $ 3. Constraints: $ $ Only vertical notions and bending rotations are allowed, The exterior $ edges are hinged supports. The interior edges are planes of symmetry, This $ implies: $ $ along x = 0, theta = 0 $ y $ $ along y = 0, theta = 0 $ x $ $ along x = a, u = theta = 0 $ z x $ $ along y = b, u = theta = 0 $ z y $ $ all points, u = u = theta = 0 $ x y z $ $ C. Theory $ $ The excitation of the plate is orthogonal to the theoretical first mode, An $ explanation of the equations is given in Reference 8. The equations of $ response are: $ $ F(f) $ u (f) = ------------------ (3) $ z 2 2 2 $ (2 pi) mu(f - f ) $ 1 $ $ where f is the first natural frequency (10 Hz). $ 1 $ $ D. Results $ $ The following table gives the theoretical and NASTRAN results: $ $ --------------------------------------------------- $ 4 $ u x 10 $ z,1 $ Frequency -------------------------------------- $ Hz Theory 10x10 NASTRAN 20x20 NASTRAN $ --------------------------------------------------- $ 0 1.868 1.874 1.869 $ $ 8 6.435 6.49 6.45 $ $ 9 12.489 12.69 12.53 $ $ 10 infinite -824.92 -3284.4 $ $ 11 -11.833 -11.67 -11.79 $ --------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 8. W. F. Stokey, "Vibration of Systems Having Distributed Mass and $ Elasticity", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E. $ Crede, Editors, McGraw-Hill, 1961. $------------------------------------------------------------------------------- ================================================ FILE: inp/d08014a.inp ================================================ ID D08014A,NASTRAN APP DISPLACEMENT SOL 8,1 DIAG 14 TIME 30 ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER $ CEND TITLE = FREQUENCY RESPONSE OF A 20X20 PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A SPC = 20020 DLOAD = 8 FREQUENCY= 8 OUTPUT SET 1 = 1,7,13,21, 169,189, 295,315, 421,427,433,441 DISPLACEMENT(SORT2,PHASE) = 1 SPCFORCE(SORT2,PHASE) = 1 BEGIN BULK DAREA *37 1 3 2.5000000E-01 DAREA *37 2 3 4.9845867E-01 DAREA *37 3 3 4.9384417E-01 DAREA *37 4 3 4.8618496E-01 DAREA *37 5 3 4.7552826E-01 DAREA *37 6 3 4.6193977E-01 DAREA *37 7 3 4.4550326E-01 DAREA *37 8 3 4.2632008E-01 DAREA *37 9 3 4.0450850E-01 DAREA *37 10 3 3.8020299E-01 DAREA *37 11 3 3.5355339E-01 DAREA *37 12 3 3.2472403E-01 DAREA *37 13 3 2.9389263E-01 DAREA *37 14 3 2.6124929E-01 DAREA *37 15 3 2.2699525E-01 DAREA *37 16 3 1.9134172E-01 DAREA *37 17 3 1.5450850E-01 DAREA *37 18 3 1.1672269E-01 DAREA *37 19 3 7.8217242E-02 DAREA *37 20 3 3.9229557E-02 DAREA *37 22 3 4.9845867E-01 DAREA *37 23 3 9.9384417E-01 DAREA *37 24 3 9.8464362E-01 DAREA *37 25 3 9.6937243E-01 DAREA *37 26 3 9.4812473E-01 DAREA *37 27 3 9.2103152E-01 DAREA *37 28 3 8.8825985E-01 DAREA *37 29 3 8.5001176E-01 DAREA *37 30 3 8.0652306E-01 DAREA *37 31 3 7.5806189E-01 DAREA *37 32 3 7.0492700E-01 DAREA *37 33 3 6.4744603E-01 DAREA *37 34 3 5.8597331E-01 DAREA *37 35 3 5.2088789E-01 DAREA *37 36 3 4.5259101E-01 DAREA *37 37 3 3.8150376E-01 DAREA *37 38 3 3.0806441E-01 DAREA *37 39 3 2.3272575E-01 DAREA *37 40 3 1.5595225E-01 DAREA *37 41 3 7.8217250E-02 DAREA *37 43 3 4.9384417E-01 DAREA *37 44 3 9.8464362E-01 DAREA *37 45 3 9.7552826E-01 DAREA *37 46 3 9.6039844E-01 DAREA *37 47 3 9.3934743E-01 DAREA *37 48 3 9.1250504E-01 DAREA *37 49 3 8.8003676E-01 DAREA *37 50 3 8.4214275E-01 DAREA *37 51 3 7.9905665E-01 DAREA *37 52 3 7.5104411E-01 DAREA *37 53 3 6.9840112E-01 DAREA *37 54 3 6.4145228E-01 DAREA *37 55 3 5.8054864E-01 DAREA *37 56 3 5.1606575E-01 DAREA *37 57 3 4.4840113E-01 DAREA *37 58 3 3.7797197E-01 DAREA *37 59 3 3.0521249E-01 DAREA *37 60 3 2.3057128E-01 DAREA *37 61 3 1.5450851E-01 DAREA *37 62 3 7.7493152E-02 DAREA *37 64 3 4.8618496E-01 DAREA *37 65 3 9.6937243E-01 DAREA *37 66 3 9.6039844E-01 DAREA *37 67 3 9.4550326E-01 DAREA *37 68 3 9.2477875E-01 DAREA *37 69 3 8.9835267E-01 DAREA *37 70 3 8.6638795E-01 DAREA *37 71 3 8.2908165E-01 DAREA *37 72 3 7.8666379E-01 DAREA *37 73 3 7.3939589E-01 DAREA *37 74 3 6.8756936E-01 DAREA *37 75 3 6.3150375E-01 DAREA *37 76 3 5.7154471E-01 DAREA *37 77 3 5.0806190E-01 DAREA *37 78 3 4.4144671E-01 DAREA *37 79 3 3.7210987E-01 DAREA *37 80 3 3.0047884E-01 DAREA *37 81 3 2.2699527E-01 DAREA *37 82 3 1.5211219E-01 DAREA *37 83 3 7.6291282E-02 DAREA *37 85 3 4.7552826E-01 DAREA *37 86 3 9.4812473E-01 DAREA *37 87 3 9.3934743E-01 DAREA *37 88 3 9.2477875E-01 DAREA *37 89 3 9.0450849E-01 DAREA *37 90 3 8.7866165E-01 DAREA *37 91 3 8.4739757E-01 DAREA *37 92 3 8.1090898E-01 DAREA *37 93 3 7.6942088E-01 DAREA *37 94 3 7.2318906E-01 DAREA *37 95 3 6.7249851E-01 DAREA *37 96 3 6.1766180E-01 DAREA *37 97 3 5.5901700E-01 DAREA *37 98 3 4.9692567E-01 DAREA *37 99 3 4.3177063E-01 DAREA *37 100 3 3.6395358E-01 DAREA *37 101 3 2.9389264E-01 DAREA *37 102 3 2.2201975E-01 DAREA *37 103 3 1.4877803E-01 DAREA *37 104 3 7.4619051E-02 DAREA *37 106 3 4.6193977E-01 DAREA *37 107 3 9.2103152E-01 DAREA *37 108 3 9.1250504E-01 DAREA *37 109 3 8.9835267E-01 DAREA *37 110 3 8.7866165E-01 DAREA *37 111 3 8.5355339E-01 DAREA *37 112 3 8.2318269E-01 DAREA *37 113 3 7.8773680E-01 DAREA *37 114 3 7.4743424E-01 DAREA *37 115 3 7.0252351E-01 DAREA *37 116 3 6.5328148E-01 DAREA *37 117 3 6.0001177E-01 DAREA *37 118 3 5.4304276E-01 DAREA *37 119 3 4.8272574E-01 DAREA *37 120 3 4.1943254E-01 DAREA *37 121 3 3.5355340E-01 DAREA *37 122 3 2.8549449E-01 DAREA *37 123 3 2.1567541E-01 DAREA *37 124 3 1.4452662E-01 DAREA *37 125 3 7.2486769E-02 DAREA *37 127 3 4.4550326E-01 DAREA *37 128 3 8.8825985E-01 DAREA *37 129 3 8.8003676E-01 DAREA *37 130 3 8.6638795E-01 DAREA *37 131 3 8.4739757E-01 DAREA *37 132 3 8.2318269E-01 DAREA *37 133 3 7.9389263E-01 DAREA *37 134 3 7.5970795E-01 DAREA *37 135 3 7.2083942E-01 DAREA *37 136 3 6.7752668E-01 DAREA *37 137 3 6.3003676E-01 DAREA *37 138 3 5.7866246E-01 DAREA *37 139 3 5.2372050E-01 DAREA *37 140 3 4.6554964E-01 DAREA *37 141 3 4.0450851E-01 DAREA *37 142 3 3.4097344E-01 DAREA *37 143 3 2.7533617E-01 DAREA *37 144 3 2.0800136E-01 DAREA *37 145 3 1.3938414E-01 DAREA *37 146 3 6.9907582E-02 DAREA *37 148 3 4.2632008E-01 DAREA *37 149 3 8.5001176E-01 DAREA *37 150 3 8.4214275E-01 DAREA *37 151 3 8.2908165E-01 DAREA *37 152 3 8.1090898E-01 DAREA *37 153 3 7.8773680E-01 DAREA *37 154 3 7.5970795E-01 DAREA *37 155 3 7.2699525E-01 DAREA *37 156 3 6.8980038E-01 DAREA *37 157 3 6.4835268E-01 DAREA *37 158 3 6.0290764E-01 DAREA *37 159 3 5.5374550E-01 DAREA *37 160 3 5.0116932E-01 DAREA *37 161 3 4.4550327E-01 DAREA *37 162 3 3.8709054E-01 DAREA *37 163 3 3.2629127E-01 DAREA *37 164 3 2.6348031E-01 DAREA *37 165 3 1.9904491E-01 DAREA *37 166 3 1.3338232E-01 DAREA *37 167 3 6.6897391E-02 DAREA *37 169 3 4.0450850E-01 DAREA *37 170 3 8.0652306E-01 DAREA *37 171 3 7.9905665E-01 DAREA *37 172 3 7.8666379E-01 DAREA *37 173 3 7.6942088E-01 DAREA *37 174 3 7.4743424E-01 DAREA *37 175 3 7.2083942E-01 DAREA *37 176 3 6.8980038E-01 DAREA *37 177 3 6.5450849E-01 DAREA *37 178 3 6.1518135E-01 DAREA *37 179 3 5.7206140E-01 DAREA *37 180 3 5.2541451E-01 DAREA *37 181 3 4.7552826E-01 DAREA *37 182 3 4.2271023E-01 DAREA *37 183 3 3.6728603E-01 DAREA *37 184 3 3.0959741E-01 DAREA *37 185 3 2.5000001E-01 DAREA *37 186 3 1.8886128E-01 DAREA *37 187 3 1.2655815E-01 DAREA *37 188 3 6.3474756E-02 DAREA *37 190 3 3.8020299E-01 DAREA *37 191 3 7.5806189E-01 DAREA *37 192 3 7.5104411E-01 DAREA *37 193 3 7.3939589E-01 DAREA *37 194 3 7.2318906E-01 DAREA *37 195 3 7.0252351E-01 DAREA *37 196 3 6.7752668E-01 DAREA *37 197 3 6.4835268E-01 DAREA *37 198 3 6.1518135E-01 DAREA *37 199 3 5.7821724E-01 DAREA *37 200 3 5.3768822E-01 DAREA *37 201 3 4.9384418E-01 DAREA *37 202 3 4.4695542E-01 DAREA *37 203 3 3.9731104E-01 DAREA *37 204 3 3.4521709E-01 DAREA *37 205 3 2.9099477E-01 DAREA *37 206 3 2.3497838E-01 DAREA *37 207 3 1.7751326E-01 DAREA *37 208 3 1.1895372E-01 DAREA *37 209 3 5.9660778E-02 DAREA *37 211 3 3.5355339E-01 DAREA *37 212 3 7.0492700E-01 DAREA *37 213 3 6.9840112E-01 DAREA *37 214 3 6.8756936E-01 DAREA *37 215 3 6.7249851E-01 DAREA *37 216 3 6.5328148E-01 DAREA *37 217 3 6.3003676E-01 DAREA *37 218 3 6.0290764E-01 DAREA *37 219 3 5.7206140E-01 DAREA *37 220 3 5.3768822E-01 DAREA *37 221 3 5.0000000E-01 DAREA *37 222 3 4.5922913E-01 DAREA *37 223 3 4.1562694E-01 DAREA *37 224 3 3.6946229E-01 DAREA *37 225 3 3.2101976E-01 DAREA *37 226 3 2.7059806E-01 DAREA *37 227 3 2.1850802E-01 DAREA *37 228 3 1.6507082E-01 DAREA *37 229 3 1.1061588E-01 DAREA *37 230 3 5.5478971E-02 DAREA *37 232 3 3.2472403E-01 DAREA *37 233 3 6.4744603E-01 DAREA *37 234 3 6.4145228E-01 DAREA *37 235 3 6.3150375E-01 DAREA *37 236 3 6.1766180E-01 DAREA *37 237 3 6.0001177E-01 DAREA *37 238 3 5.7866246E-01 DAREA *37 239 3 5.5374550E-01 DAREA *37 240 3 5.2541451E-01 DAREA *37 241 3 4.9384418E-01 DAREA *37 242 3 4.5922913E-01 DAREA *37 243 3 4.2178278E-01 DAREA *37 244 3 3.8173600E-01 DAREA *37 245 3 3.3933569E-01 DAREA *37 246 3 2.9484325E-01 DAREA *37 247 3 2.4853302E-01 DAREA *37 248 3 2.0069049E-01 DAREA *37 249 3 1.5161065E-01 DAREA *37 250 3 1.0159607E-01 DAREA *37 251 3 5.0955119E-02 DAREA *37 253 3 2.9389263E-01 DAREA *37 254 3 5.8597331E-01 DAREA *37 255 3 5.8054864E-01 DAREA *37 256 3 5.7154471E-01 DAREA *37 257 3 5.5901700E-01 DAREA *37 258 3 5.4304276E-01 DAREA *37 259 3 5.2372050E-01 DAREA *37 260 3 5.0116932E-01 DAREA *37 261 3 4.7552826E-01 DAREA *37 262 3 4.4695542E-01 DAREA *37 263 3 4.1562694E-01 DAREA *37 264 3 3.8173600E-01 DAREA *37 265 3 3.4549151E-01 DAREA *37 266 3 3.0711696E-01 DAREA *37 267 3 2.6684893E-01 DAREA *37 268 3 2.2493569E-01 DAREA *37 269 3 1.8163564E-01 DAREA *37 270 3 1.3721576E-01 DAREA *37 271 3 9.1949883E-02 DAREA *37 272 3 4.6117110E-02 DAREA *37 274 3 2.6124929E-01 DAREA *37 275 3 5.2088789E-01 DAREA *37 276 3 5.1606575E-01 DAREA *37 277 3 5.0806190E-01 DAREA *37 278 3 4.9692567E-01 DAREA *37 279 3 4.8272574E-01 DAREA *37 280 3 4.6554964E-01 DAREA *37 281 3 4.4550327E-01 DAREA *37 282 3 4.2271023E-01 DAREA *37 283 3 3.9731104E-01 DAREA *37 284 3 3.6946229E-01 DAREA *37 285 3 3.3933569E-01 DAREA *37 286 3 3.0711696E-01 DAREA *37 287 3 2.7300476E-01 DAREA *37 288 3 2.3720939E-01 DAREA *37 289 3 1.9995156E-01 DAREA *37 290 3 1.6146095E-01 DAREA *37 291 3 1.2197488E-01 DAREA *37 292 3 8.1736795E-02 DAREA *37 293 3 4.0994775E-02 DAREA *37 295 3 2.2699525E-01 DAREA *37 296 3 4.5259101E-01 DAREA *37 297 3 4.4840113E-01 DAREA *37 298 3 4.4144671E-01 DAREA *37 299 3 4.3177063E-01 DAREA *37 300 3 4.1943254E-01 DAREA *37 301 3 4.0450851E-01 DAREA *37 302 3 3.8709054E-01 DAREA *37 303 3 3.6728603E-01 DAREA *37 304 3 3.4521709E-01 DAREA *37 305 3 3.2101976E-01 DAREA *37 306 3 2.9484325E-01 DAREA *37 307 3 2.6684893E-01 DAREA *37 308 3 2.3720939E-01 DAREA *37 309 3 2.0610738E-01 DAREA *37 310 3 1.7373465E-01 DAREA *37 311 3 1.4029079E-01 DAREA *37 312 3 1.0598199E-01 DAREA *37 313 3 7.1019771E-02 DAREA *37 314 3 3.5619693E-02 DAREA *37 316 3 1.9134172E-01 DAREA *37 317 3 3.8150376E-01 DAREA *37 318 3 3.7797197E-01 DAREA *37 319 3 3.7210987E-01 DAREA *37 320 3 3.6395358E-01 DAREA *37 321 3 3.5355340E-01 DAREA *37 322 3 3.4097344E-01 DAREA *37 323 3 3.2629127E-01 DAREA *37 324 3 3.0959741E-01 DAREA *37 325 3 2.9099477E-01 DAREA *37 326 3 2.7059806E-01 DAREA *37 327 3 2.4853302E-01 DAREA *37 328 3 2.2493569E-01 DAREA *37 329 3 1.9995156E-01 DAREA *37 330 3 1.7373465E-01 DAREA *37 331 3 1.4644662E-01 DAREA *37 332 3 1.1825569E-01 DAREA *37 333 3 8.9335684E-02 DAREA *37 334 3 5.9864887E-02 DAREA *37 335 3 3.0025004E-02 DAREA *37 337 3 1.5450850E-01 DAREA *37 338 3 3.0806441E-01 DAREA *37 339 3 3.0521249E-01 DAREA *37 340 3 3.0047884E-01 DAREA *37 341 3 2.9389264E-01 DAREA *37 342 3 2.8549449E-01 DAREA *37 343 3 2.7533617E-01 DAREA *37 344 3 2.6348031E-01 DAREA *37 345 3 2.5000001E-01 DAREA *37 346 3 2.3497838E-01 DAREA *37 347 3 2.1850802E-01 DAREA *37 348 3 2.0069049E-01 DAREA *37 349 3 1.8163564E-01 DAREA *37 350 3 1.6146095E-01 DAREA *37 351 3 1.4029079E-01 DAREA *37 352 3 1.1825569E-01 DAREA *37 353 3 9.5491510E-02 DAREA *37 354 3 7.2138594E-02 DAREA *37 355 3 4.8340916E-02 DAREA *37 356 3 2.4245200E-02 DAREA *37 358 3 1.1672269E-01 DAREA *37 359 3 2.3272575E-01 DAREA *37 360 3 2.3057128E-01 DAREA *37 361 3 2.2699527E-01 DAREA *37 362 3 2.2201975E-01 DAREA *37 363 3 2.1567541E-01 DAREA *37 364 3 2.0800136E-01 DAREA *37 365 3 1.9904491E-01 DAREA *37 366 3 1.8886128E-01 DAREA *37 367 3 1.7751326E-01 DAREA *37 368 3 1.6507082E-01 DAREA *37 369 3 1.5161065E-01 DAREA *37 370 3 1.3721576E-01 DAREA *37 371 3 1.2197488E-01 DAREA *37 372 3 1.0598199E-01 DAREA *37 373 3 8.9335684E-02 DAREA *37 374 3 7.2138594E-02 DAREA *37 375 3 5.4496748E-02 DAREA *37 376 3 3.6518908E-02 DAREA *37 377 3 1.8315918E-02 DAREA *37 379 3 7.8217242E-02 DAREA *37 380 3 1.5595225E-01 DAREA *37 381 3 1.5450851E-01 DAREA *37 382 3 1.5211219E-01 DAREA *37 383 3 1.4877803E-01 DAREA *37 384 3 1.4452662E-01 DAREA *37 385 3 1.3938414E-01 DAREA *37 386 3 1.3338232E-01 DAREA *37 387 3 1.2655815E-01 DAREA *37 388 3 1.1895372E-01 DAREA *37 389 3 1.1061588E-01 DAREA *37 390 3 1.0159607E-01 DAREA *37 391 3 9.1949883E-02 DAREA *37 392 3 8.1736795E-02 DAREA *37 393 3 7.1019771E-02 DAREA *37 394 3 5.9864887E-02 DAREA *37 395 3 4.8340916E-02 DAREA *37 396 3 3.6518908E-02 DAREA *37 397 3 2.4471748E-02 DAREA *37 398 3 1.2273711E-02 DAREA *37 400 3 3.9229557E-02 DAREA *37 401 3 7.8217250E-02 DAREA *37 402 3 7.7493152E-02 DAREA *37 403 3 7.6291282E-02 DAREA *37 404 3 7.4619051E-02 DAREA *37 405 3 7.2486769E-02 DAREA *37 406 3 6.9907582E-02 DAREA *37 407 3 6.6897391E-02 DAREA *37 408 3 6.3474756E-02 DAREA *37 409 3 5.9660778E-02 DAREA *37 410 3 5.5478971E-02 DAREA *37 411 3 5.0955119E-02 DAREA *37 412 3 4.6117110E-02 DAREA *37 413 3 4.0994775E-02 DAREA *37 414 3 3.5619693E-02 DAREA *37 415 3 3.0025004E-02 DAREA *37 416 3 2.4245200E-02 DAREA *37 417 3 1.8315918E-02 DAREA *37 418 3 1.2273711E-02 DAREA *37 419 3 6.1558325E-03 FREQ 8 .0 8.0 9.0 10.0 11.0 MAT1 8 3.0+7 .300 PQUAD1 101 8 .6666667 13.55715 RLOAD1 8 37 1 TABLED1 1 +T1 +T1 .0 2.5 100.0 10.0 ENDT ENDDATA 20 20 5.0E-01 5.0E-01 126 0.0 0.0 4 5 35 34 0 0 ================================================ FILE: inp/d08014a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 8, Frequency Response Analysis - Direct Formulation $ Frequency Response of a 10x10 Plate (8-1-1) $ Frequency Response of a 20x20 Plate (8-1-2) $ Frequency Response of a 10x10 Plate (INPUT, 8-1-3) $ Frequency Response of a 20x20 Plate (INPUT, 8-1-4) $ $ A. Description $ $ This problem illustrates the use of the direct method of determining $ structural response to steady-state sinusoidal loads, The applied load is $ given in terms of complex numbers which reflect the amplitudes and phases at $ each selected frequency. The steady-state response of the structure at each $ frequency is calculated in terms of complex numbers which reflect the $ magnitudes and phases of the results. Both configurations are duplicated via $ the INPUT module to generate the QUAD1 elements. $ $ The particular model for this analysis is a square plate composed of $ quadrilateral plate elements. The exterior edges are supported on hinged $ supports and symmetric boundaries are used along x = 0 and y = 0. The applied $ load is sinusoidally distributed over the panel and increases with respect to $ frequency. Although the applied load excites only the first node, the direct $ formulation algorithm does not use this shortcut and solves the problem as $ though the load were completely general. $ $ B. Input $ $ 1. Parameters: $ $ a = b = 10 - length and width of quarter model $ $ t = 2.0 - thickness $ $ 7 $ E = 3.0 x 10 - Young's Modulus $ $ v = 0.3 - Poisson's Ratio $ $ mu = 13.55715 - nonstructural mass per area $ $ 2. Loads: $ $ The frequency dependent pressure function is: $ $ pi x pi y $ P(x,y,f) = F(f) cos ---- cos ---- (1) $ 2a 2b $ $ where $ $ F(f) = 10. + 0.3f (2) $ $ 3. Constraints: $ $ Only vertical notions and bending rotations are allowed, The exterior $ edges are hinged supports. The interior edges are planes of symmetry, This $ implies: $ $ along x = 0, theta = 0 $ y $ $ along y = 0, theta = 0 $ x $ $ along x = a, u = theta = 0 $ z x $ $ along y = b, u = theta = 0 $ z y $ $ all points, u = u = theta = 0 $ x y z $ $ C. Theory $ $ The excitation of the plate is orthogonal to the theoretical first mode, An $ explanation of the equations is given in Reference 8. The equations of $ response are: $ $ F(f) $ u (f) = ------------------ (3) $ z 2 2 2 $ (2 pi) mu(f - f ) $ 1 $ $ where f is the first natural frequency (10 Hz). $ 1 $ $ D. Results $ $ The following table gives the theoretical and NASTRAN results: $ $ --------------------------------------------------- $ 4 $ u x 10 $ z,1 $ Frequency -------------------------------------- $ Hz Theory 10x10 NASTRAN 20x20 NASTRAN $ --------------------------------------------------- $ 0 1.868 1.874 1.869 $ $ 8 6.435 6.49 6.45 $ $ 9 12.489 12.69 12.53 $ $ 10 infinite -824.92 -3284.4 $ $ 11 -11.833 -11.67 -11.79 $ --------------------------------------------------- $ $ APPLICABLE REFERENCES $ $ 8. W. F. Stokey, "Vibration of Systems Having Distributed Mass and $ Elasticity", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E. $ Crede, Editors, McGraw-Hill, 1961. $------------------------------------------------------------------------------- ================================================ FILE: inp/d09011a.inp ================================================ NASTRAN FILES=PLT2 ID D09011A,NASTRAN APP DISPLACEMENT SOL 9,1 TIME 20 CEND TITLE = TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A TSTEP = 32 IC = 32 DLOAD = 32 K2PP = KCOMP M2PP = MCOMP B2PP = BCOMP OUTPUT SVELO = ALL DISP(SORT2)=ALL OLOAD(SORT2)=ALL PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A OUTPUT(XYOUT) PLOTTER = NASTPLT CAMERA = 3 SKIP BETWEEN FRAMES = 1 TCURVE = * * * * EPOINT DISPLACEMENT(INCHES) * * * * * * * XTITLE = TIME (SECONDS) $ YVALUE PRINT SKIP = 1 XDIVISIONS = 25 XVALUE PRINT SKIP = 1 $ * * * * * * * * * * * * * * * FULL FRAME PLOTS * * * * * * * * * * * YGRID LINES = YES XGRID LINES = YES YDIVISIONS = 22 $ YTITLE = EPOINT 10 DISPLACEMENT *INCH* XYPLOT DISP / 10(T1) $ YDIVISIONS = 20 YTITLE = EPOINT 11 DISPLACEMENT *INCH* XYPLOT DISP / 11(T1) $ YTITLE = EPOINT 12 DISPLACEMENT *INCH* XYPLOT DISP / 12(T1) $ YTITLE = EPOINT 13 DISPLACEMENT *INCH* XYPLOT DISP / 13(T1) BEGIN BULK DAREA 1 10 -1.5 11 -1.0 DAREA 1 12 -13.5 13 36.0 DELAY 1 10 1.0 11 1.0 DELAY 1 12 1.0 13 1.0 DMIG BCOMP 0 1 1 2 DMIG BCOMP 11 0 10 0 -15.0 +BC1 +BC1 11 0 30.0 12 0 -15.0 DMIG BCOMP 12 0 11 0 -24.0 +BC2 +BC2 12 0 48.0 13 0 -24.0 DMIG BCOMP 13 0 12 0 -2.0 +BC3 +BC3 13 0 4.0 DMIG KCOMP 0 1 1 2 DMIG KCOMP 10 0 10 0 2000. +KC1 +KC1 11 0 -1000. DMIG KCOMP 12 0 11 0 -100.0 +KC2 +KC2 12 0 200.0 13 0 -100.0 DMIG KCOMP 13 0 12 0 -20.0 +KC3 +KC3 13 0 40.0 DMIG MCOMP 0 1 1 2 DMIG MCOMP 10 0 10 0 20.0 +MC1 +MC1 11 0 -10.0 DMIG MCOMP 11 0 10 0 -1.5 +MC2 +MC2 11 0 3.0 12 0 -1.5 DMIG MCOMP 12 0 11 0 -4.0 +MC4 +MC4 12 0 8.0 13 0 -4.0 EPOINT 10 11 12 13 TABLED1 1 +T1 +T1 -1.0 .0 .0 .0 .00 1.0 100.0 1.0 +T2 +T2 ENDT TIC 32 10 .0 10. TIC 32 11 .0 .5 TIC 32 12 .0 .0 TIC 32 13 -10.0 .0 TLOAD1 32 1 1 1 TSTEP 32 200 .005 10 +S1 +S1 100 .015 5 ENDDATA ================================================ FILE: inp/d09011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 9, Transient Analysis - Direct Formulation $ Transient Analysis with Direct Matrix Input (9-1-1) $ $ A. Description $ $ This problem demonstrates the capability of NASTRAN to perform transient $ analysis on a system having nonsymmetric stiffness, damping, and mass $ matrices. The problem also illustrates the use of time step changes, selection $ of printout intervals, application of loads, initial conditions, and a simple $ curve plot package. $ $ The matrices and loads used are actually the product of a transformation $ matrix and diagonal matrices. The resulting answers are easily calculated $ while the input matrices are of general form. The matrix equation solved is $ $ .. . $ [M]{u} + [B]{u} + [K]{u} = {P(t)} (1) $ $ The problem is actually four disjoint single degree of freedom problems which $ have been transformed to a general matrix problem. $ $ The resulting diagonal matrices are pre-multiplied by the matrix: $ $ + + $ | 2 -1 0 0 | $ | | $ | -1 2 -1 0 | $ [X] = | | (2) $ | 0 -1 2 -1 | $ | | $ | 0 0 -1 2 | $ + + $ $ The answers for the disjoint problem above will be the same as for the general $ matrix problem since the general case: $ $ .. . $ [X]([M ]{u} + [B ]{u} + [K ]{u} = [X]{P} (3) $ o o o $ $ has the same results as the disjoint case: $ $ .. . $ [M ]{u} + [B ]{u} + [K ]{u} = {P} (4) $ o o o $ $ B. Input $ $ 1. The actual matrix input is: $ $ + + $ | 20 -1.5 0 0 | $ | | $ |-10 3.0 -4 0 | $ [M] = | | $ | 0 -1.5 8 0 | $ | | $ | 0 0.0 -4 0 | $ + + $ $ + + $ | 0 -15 0 0 | $ | | $ | 0 30 -24 0 | $ [B] = | | $ | 0 -15 28 -2 | $ | | $ | 0 0 -24 4 | $ + + $ $ + + $ | 2000 0 0 0 | $ | | $ | -1000 0 -100 0 | $ [K] = | | $ | 0 0 200 -20 | $ | | $ | 0 0 -100 40 | $ + + $ $ 2. The initial conditions are: $ . $ u = 0 u = 10.0 $ 10 10 $ . $ u = 0 u = 0.5 $ 11 11 $ . $ u = 0 u = 0 $ 12 12 $ . $ u = -10.0 u = 0 $ 13 13 $ $ 3. At t = 1.0 a step load is applied to each point. The load on the uncoupled $ problems is: $ $ | 0 | $ | 1.5 | $ P = | 4.0 | $ o | 20 | $ $ The transformed load is: $ $ | -1.5 | $ | -1.0 | $ {P} = [X]{P } = | -13.5 | $ o | 36.0 | $ $ C. Theory $ $ The results are responses of single degree of freedom systems. Equations are $ given in Reference 12, Chapter 9. $ $ 0 < t < 1.0 , delta t = .005 $ $ . $ u = sin 10t u = 10 cos 10t $ 10 10 $ $ -10t . -10t $ u = 0.05(1 - e ) u = 0.5e $ 11 11 $ . $ u = 0 u = 0 $ 12 12 $ $ -10t . -10t $ u = -10e u = 100e $ 13 13 $ $ t > 1.0 , delta t = .015 $ $ u = sin 10t $ 10 $ -10t -10(t-1) $ u = 0.05(1 - e ) + 0.1(t - 1.1 + .1e ) $ 11 $ -3t $ u = 0.04 {1 - e [cos4(t-1) + 3/4 sin4(t-1)]} $ 12 $ $ -10t -10(t-1) $ u = -10e + 1 - e $ 13 $ $ D. Results $ $ The deviations of the NASTRAN results and the theoretical response are due to $ the selection of time steps. For instance point 11 has a time constant equal $ to two time steps. The initial error in velocity due to the first step causes $ the displacement error to accumulate. Using a smaller time step has resulted $ in much better results. $ $ APPLICABLE REFERENCES $ $ 12. H. Yeh and J. I. Abram, MECHANICS OF SOLIDS AND FLUIDS. Vo1. I, Particle $ and Rigid Body Mechanics. NcGraw-Hill, 1960. $------------------------------------------------------------------------------- ================================================ FILE: inp/d09021a.inp ================================================ ID D09021A,NASTRAN TIME 26 APP DISP SOL 9,1 CEND TITLE = TRANSIENT ANALYSIS OF A 1000 CELL STRING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A LABEL = TRAVELING WAVE PROBLEM TSTEP = 9 IC = 9 OUTPUT SET 1 = 2,4,5,6,10,12,14,16,18,20,22,24,26,28,30,40,50, 100,200,500 DISPLACEMENT = 1 VELOCITY = 1 BEGIN BULK CELAS3 1 101 0 2 2 101 2 3 CELAS3 3 101 3 4 4 101 4 5 CELAS3 5 101 5 6 6 101 6 7 CELAS3 7 101 7 8 8 101 8 9 CELAS3 9 101 9 10 10 101 10 11 CELAS3 11 101 11 12 12 101 12 13 CELAS3 13 101 13 14 14 101 14 15 CELAS3 15 101 15 16 16 101 16 17 CELAS3 17 101 17 18 18 101 18 19 CELAS3 19 101 19 20 20 101 20 21 CELAS3 21 101 21 22 22 101 22 23 CELAS3 23 101 23 24 24 101 24 25 CELAS3 25 101 25 26 26 101 26 27 CELAS3 27 101 27 28 28 101 28 29 CELAS3 29 101 29 30 30 101 30 31 CELAS3 31 101 31 32 32 101 32 33 CELAS3 33 101 33 34 34 101 34 35 CELAS3 35 101 35 36 36 101 36 37 CELAS3 37 101 37 38 38 101 38 39 CELAS3 39 101 39 40 40 101 40 41 CELAS3 41 101 41 42 42 101 42 43 CELAS3 43 101 43 44 44 101 44 45 CELAS3 45 101 45 46 46 101 46 47 CELAS3 47 101 47 48 48 101 48 49 CELAS3 49 101 49 50 50 101 50 51 CELAS3 51 101 51 52 52 101 52 53 CELAS3 53 101 53 54 54 101 54 55 CELAS3 55 101 55 56 56 101 56 57 CELAS3 57 101 57 58 58 101 58 59 CELAS3 59 101 59 60 60 101 60 61 CELAS3 61 101 61 62 62 101 62 63 CELAS3 63 101 63 64 64 101 64 65 CELAS3 65 101 65 66 66 101 66 67 CELAS3 67 101 67 68 68 101 68 69 CELAS3 69 101 69 70 70 101 70 71 CELAS3 71 101 71 72 72 101 72 73 CELAS3 73 101 73 74 74 101 74 75 CELAS3 75 101 75 76 76 101 76 77 CELAS3 77 101 77 78 78 101 78 79 CELAS3 79 101 79 80 80 101 80 81 CELAS3 81 101 81 82 82 101 82 83 CELAS3 83 101 83 84 84 101 84 85 CELAS3 85 101 85 86 86 101 86 87 CELAS3 87 101 87 88 88 101 88 89 CELAS3 89 101 89 90 90 101 90 91 CELAS3 91 101 91 92 92 101 92 93 CELAS3 93 101 93 94 94 101 94 95 CELAS3 95 101 95 96 96 101 96 97 CELAS3 97 101 97 98 98 101 98 99 CELAS3 99 101 99 100 100 101 100 101 CELAS3 101 101 101 102 102 101 102 103 CELAS3 103 101 103 104 104 101 104 105 CELAS3 105 101 105 106 106 101 106 107 CELAS3 107 101 107 108 108 101 108 109 CELAS3 109 101 109 110 110 101 110 111 CELAS3 111 101 111 112 112 101 112 113 CELAS3 113 101 113 114 114 101 114 115 CELAS3 115 101 115 116 116 101 116 117 CELAS3 117 101 117 118 118 101 118 119 CELAS3 119 101 119 120 120 101 120 121 CELAS3 121 101 121 122 122 101 122 123 CELAS3 123 101 123 124 124 101 124 125 CELAS3 125 101 125 126 126 101 126 127 CELAS3 127 101 127 128 128 101 128 129 CELAS3 129 101 129 130 130 101 130 131 CELAS3 131 101 131 132 132 101 132 133 CELAS3 133 101 133 134 134 101 134 135 CELAS3 135 101 135 136 136 101 136 137 CELAS3 137 101 137 138 138 101 138 139 CELAS3 139 101 139 140 140 101 140 141 CELAS3 141 101 141 142 142 101 142 143 CELAS3 143 101 143 144 144 101 144 145 CELAS3 145 101 145 146 146 101 146 147 CELAS3 147 101 147 148 148 101 148 149 CELAS3 149 101 149 150 150 101 150 151 CELAS3 151 101 151 152 152 101 152 153 CELAS3 153 101 153 154 154 101 154 155 CELAS3 155 101 155 156 156 101 156 157 CELAS3 157 101 157 158 158 101 158 159 CELAS3 159 101 159 160 160 101 160 161 CELAS3 161 101 161 162 162 101 162 163 CELAS3 163 101 163 164 164 101 164 165 CELAS3 165 101 165 166 166 101 166 167 CELAS3 167 101 167 168 168 101 168 169 CELAS3 169 101 169 170 170 101 170 171 CELAS3 171 101 171 172 172 101 172 173 CELAS3 173 101 173 174 174 101 174 175 CELAS3 175 101 175 176 176 101 176 177 CELAS3 177 101 177 178 178 101 178 179 CELAS3 179 101 179 180 180 101 180 181 CELAS3 181 101 181 182 182 101 182 183 CELAS3 183 101 183 184 184 101 184 185 CELAS3 185 101 185 186 186 101 186 187 CELAS3 187 101 187 188 188 101 188 189 CELAS3 189 101 189 190 190 101 190 191 CELAS3 191 101 191 192 192 101 192 193 CELAS3 193 101 193 194 194 101 194 195 CELAS3 195 101 195 196 196 101 196 197 CELAS3 197 101 197 198 198 101 198 199 CELAS3 199 101 199 200 200 101 200 201 CELAS3 201 101 201 202 202 101 202 203 CELAS3 203 101 203 204 204 101 204 205 CELAS3 205 101 205 206 206 101 206 207 CELAS3 207 101 207 208 208 101 208 209 CELAS3 209 101 209 210 210 101 210 211 CELAS3 211 101 211 212 212 101 212 213 CELAS3 213 101 213 214 214 101 214 215 CELAS3 215 101 215 216 216 101 216 217 CELAS3 217 101 217 218 218 101 218 219 CELAS3 219 101 219 220 220 101 220 221 CELAS3 221 101 221 222 222 101 222 223 CELAS3 223 101 223 224 224 101 224 225 CELAS3 225 101 225 226 226 101 226 227 CELAS3 227 101 227 228 228 101 228 229 CELAS3 229 101 229 230 230 101 230 231 CELAS3 231 101 231 232 232 101 232 233 CELAS3 233 101 233 234 234 101 234 235 CELAS3 235 101 235 236 236 101 236 237 CELAS3 237 101 237 238 238 101 238 239 CELAS3 239 101 239 240 240 101 240 241 CELAS3 241 101 241 242 242 101 242 243 CELAS3 243 101 243 244 244 101 244 245 CELAS3 245 101 245 246 246 101 246 247 CELAS3 247 101 247 248 248 101 248 249 CELAS3 249 101 249 250 250 101 250 251 CELAS3 251 101 251 252 252 101 252 253 CELAS3 253 101 253 254 254 101 254 255 CELAS3 255 101 255 256 256 101 256 257 CELAS3 257 101 257 258 258 101 258 259 CELAS3 259 101 259 260 260 101 260 261 CELAS3 261 101 261 262 262 101 262 263 CELAS3 263 101 263 264 264 101 264 265 CELAS3 265 101 265 266 266 101 266 267 CELAS3 267 101 267 268 268 101 268 269 CELAS3 269 101 269 270 270 101 270 271 CELAS3 271 101 271 272 272 101 272 273 CELAS3 273 101 273 274 274 101 274 275 CELAS3 275 101 275 276 276 101 276 277 CELAS3 277 101 277 278 278 101 278 279 CELAS3 279 101 279 280 280 101 280 281 CELAS3 281 101 281 282 282 101 282 283 CELAS3 283 101 283 284 284 101 284 285 CELAS3 285 101 285 286 286 101 286 287 CELAS3 287 101 287 288 288 101 288 289 CELAS3 289 101 289 290 290 101 290 291 CELAS3 291 101 291 292 292 101 292 293 CELAS3 293 101 293 294 294 101 294 295 CELAS3 295 101 295 296 296 101 296 297 CELAS3 297 101 297 298 298 101 298 299 CELAS3 299 101 299 300 300 101 300 301 CELAS3 301 101 301 302 302 101 302 303 CELAS3 303 101 303 304 304 101 304 305 CELAS3 305 101 305 306 306 101 306 307 CELAS3 307 101 307 308 308 101 308 309 CELAS3 309 101 309 310 310 101 310 311 CELAS3 311 101 311 312 312 101 312 313 CELAS3 313 101 313 314 314 101 314 315 CELAS3 315 101 315 316 316 101 316 317 CELAS3 317 101 317 318 318 101 318 319 CELAS3 319 101 319 320 320 101 320 321 CELAS3 321 101 321 322 322 101 322 323 CELAS3 323 101 323 324 324 101 324 325 CELAS3 325 101 325 326 326 101 326 327 CELAS3 327 101 327 328 328 101 328 329 CELAS3 329 101 329 330 330 101 330 331 CELAS3 331 101 331 332 332 101 332 333 CELAS3 333 101 333 334 334 101 334 335 CELAS3 335 101 335 336 336 101 336 337 CELAS3 337 101 337 338 338 101 338 339 CELAS3 339 101 339 340 340 101 340 341 CELAS3 341 101 341 342 342 101 342 343 CELAS3 343 101 343 344 344 101 344 345 CELAS3 345 101 345 346 346 101 346 347 CELAS3 347 101 347 348 348 101 348 349 CELAS3 349 101 349 350 350 101 350 351 CELAS3 351 101 351 352 352 101 352 353 CELAS3 353 101 353 354 354 101 354 355 CELAS3 355 101 355 356 356 101 356 357 CELAS3 357 101 357 358 358 101 358 359 CELAS3 359 101 359 360 360 101 360 361 CELAS3 361 101 361 362 362 101 362 363 CELAS3 363 101 363 364 364 101 364 365 CELAS3 365 101 365 366 366 101 366 367 CELAS3 367 101 367 368 368 101 368 369 CELAS3 369 101 369 370 370 101 370 371 CELAS3 371 101 371 372 372 101 372 373 CELAS3 373 101 373 374 374 101 374 375 CELAS3 375 101 375 376 376 101 376 377 CELAS3 377 101 377 378 378 101 378 379 CELAS3 379 101 379 380 380 101 380 381 CELAS3 381 101 381 382 382 101 382 383 CELAS3 383 101 383 384 384 101 384 385 CELAS3 385 101 385 386 386 101 386 387 CELAS3 387 101 387 388 388 101 388 389 CELAS3 389 101 389 390 390 101 390 391 CELAS3 391 101 391 392 392 101 392 393 CELAS3 393 101 393 394 394 101 394 395 CELAS3 395 101 395 396 396 101 396 397 CELAS3 397 101 397 398 398 101 398 399 CELAS3 399 101 399 400 400 101 400 401 CELAS3 401 101 401 402 402 101 402 403 CELAS3 403 101 403 404 404 101 404 405 CELAS3 405 101 405 406 406 101 406 407 CELAS3 407 101 407 408 408 101 408 409 CELAS3 409 101 409 410 410 101 410 411 CELAS3 411 101 411 412 412 101 412 413 CELAS3 413 101 413 414 414 101 414 415 CELAS3 415 101 415 416 416 101 416 417 CELAS3 417 101 417 418 418 101 418 419 CELAS3 419 101 419 420 420 101 420 421 CELAS3 421 101 421 422 422 101 422 423 CELAS3 423 101 423 424 424 101 424 425 CELAS3 425 101 425 426 426 101 426 427 CELAS3 427 101 427 428 428 101 428 429 CELAS3 429 101 429 430 430 101 430 431 CELAS3 431 101 431 432 432 101 432 433 CELAS3 433 101 433 434 434 101 434 435 CELAS3 435 101 435 436 436 101 436 437 CELAS3 437 101 437 438 438 101 438 439 CELAS3 439 101 439 440 440 101 440 441 CELAS3 441 101 441 442 442 101 442 443 CELAS3 443 101 443 444 444 101 444 445 CELAS3 445 101 445 446 446 101 446 447 CELAS3 447 101 447 448 448 101 448 449 CELAS3 449 101 449 450 450 101 450 451 CELAS3 451 101 451 452 452 101 452 453 CELAS3 453 101 453 454 454 101 454 455 CELAS3 455 101 455 456 456 101 456 457 CELAS3 457 101 457 458 458 101 458 459 CELAS3 459 101 459 460 460 101 460 461 CELAS3 461 101 461 462 462 101 462 463 CELAS3 463 101 463 464 464 101 464 465 CELAS3 465 101 465 466 466 101 466 467 CELAS3 467 101 467 468 468 101 468 469 CELAS3 469 101 469 470 470 101 470 471 CELAS3 471 101 471 472 472 101 472 473 CELAS3 473 101 473 474 474 101 474 475 CELAS3 475 101 475 476 476 101 476 477 CELAS3 477 101 477 478 478 101 478 479 CELAS3 479 101 479 480 480 101 480 481 CELAS3 481 101 481 482 482 101 482 483 CELAS3 483 101 483 484 484 101 484 485 CELAS3 485 101 485 486 486 101 486 487 CELAS3 487 101 487 488 488 101 488 489 CELAS3 489 101 489 490 490 101 490 491 CELAS3 491 101 491 492 492 101 492 493 CELAS3 493 101 493 494 494 101 494 495 CELAS3 495 101 495 496 496 101 496 497 CELAS3 497 101 497 498 498 101 498 499 CELAS3 499 101 499 500 500 101 500 501 CELAS3 501 101 501 502 502 101 502 503 CELAS3 503 101 503 504 504 101 504 505 CELAS3 505 101 505 506 506 101 506 507 CELAS3 507 101 507 508 508 101 508 509 CELAS3 509 101 509 510 510 101 510 511 CELAS3 511 101 511 512 512 101 512 513 CELAS3 513 101 513 514 514 101 514 515 CELAS3 515 101 515 516 516 101 516 517 CELAS3 517 101 517 518 518 101 518 519 CELAS3 519 101 519 520 520 101 520 521 CELAS3 521 101 521 522 522 101 522 523 CELAS3 523 101 523 524 524 101 524 525 CELAS3 525 101 525 526 526 101 526 527 CELAS3 527 101 527 528 528 101 528 529 CELAS3 529 101 529 530 530 101 530 531 CELAS3 531 101 531 532 532 101 532 533 CELAS3 533 101 533 534 534 101 534 535 CELAS3 535 101 535 536 536 101 536 537 CELAS3 537 101 537 538 538 101 538 539 CELAS3 539 101 539 540 540 101 540 541 CELAS3 541 101 541 542 542 101 542 543 CELAS3 543 101 543 544 544 101 544 545 CELAS3 545 101 545 546 546 101 546 547 CELAS3 547 101 547 548 548 101 548 549 CELAS3 549 101 549 550 550 101 550 551 CELAS3 551 101 551 552 552 101 552 553 CELAS3 553 101 553 554 554 101 554 555 CELAS3 555 101 555 556 556 101 556 557 CELAS3 557 101 557 558 558 101 558 559 CELAS3 559 101 559 560 560 101 560 561 CELAS3 561 101 561 562 562 101 562 563 CELAS3 563 101 563 564 564 101 564 565 CELAS3 565 101 565 566 566 101 566 567 CELAS3 567 101 567 568 568 101 568 569 CELAS3 569 101 569 570 570 101 570 571 CELAS3 571 101 571 572 572 101 572 573 CELAS3 573 101 573 574 574 101 574 575 CELAS3 575 101 575 576 576 101 576 577 CELAS3 577 101 577 578 578 101 578 579 CELAS3 579 101 579 580 580 101 580 581 CELAS3 581 101 581 582 582 101 582 583 CELAS3 583 101 583 584 584 101 584 585 CELAS3 585 101 585 586 586 101 586 587 CELAS3 587 101 587 588 588 101 588 589 CELAS3 589 101 589 590 590 101 590 591 CELAS3 591 101 591 592 592 101 592 593 CELAS3 593 101 593 594 594 101 594 595 CELAS3 595 101 595 596 596 101 596 597 CELAS3 597 101 597 598 598 101 598 599 CELAS3 599 101 599 600 600 101 600 601 CELAS3 601 101 601 602 602 101 602 603 CELAS3 603 101 603 604 604 101 604 605 CELAS3 605 101 605 606 606 101 606 607 CELAS3 607 101 607 608 608 101 608 609 CELAS3 609 101 609 610 610 101 610 611 CELAS3 611 101 611 612 612 101 612 613 CELAS3 613 101 613 614 614 101 614 615 CELAS3 615 101 615 616 616 101 616 617 CELAS3 617 101 617 618 618 101 618 619 CELAS3 619 101 619 620 620 101 620 621 CELAS3 621 101 621 622 622 101 622 623 CELAS3 623 101 623 624 624 101 624 625 CELAS3 625 101 625 626 626 101 626 627 CELAS3 627 101 627 628 628 101 628 629 CELAS3 629 101 629 630 630 101 630 631 CELAS3 631 101 631 632 632 101 632 633 CELAS3 633 101 633 634 634 101 634 635 CELAS3 635 101 635 636 636 101 636 637 CELAS3 637 101 637 638 638 101 638 639 CELAS3 639 101 639 640 640 101 640 641 CELAS3 641 101 641 642 642 101 642 643 CELAS3 643 101 643 644 644 101 644 645 CELAS3 645 101 645 646 646 101 646 647 CELAS3 647 101 647 648 648 101 648 649 CELAS3 649 101 649 650 650 101 650 651 CELAS3 651 101 651 652 652 101 652 653 CELAS3 653 101 653 654 654 101 654 655 CELAS3 655 101 655 656 656 101 656 657 CELAS3 657 101 657 658 658 101 658 659 CELAS3 659 101 659 660 660 101 660 661 CELAS3 661 101 661 662 662 101 662 663 CELAS3 663 101 663 664 664 101 664 665 CELAS3 665 101 665 666 666 101 666 667 CELAS3 667 101 667 668 668 101 668 669 CELAS3 669 101 669 670 670 101 670 671 CELAS3 671 101 671 672 672 101 672 673 CELAS3 673 101 673 674 674 101 674 675 CELAS3 675 101 675 676 676 101 676 677 CELAS3 677 101 677 678 678 101 678 679 CELAS3 679 101 679 680 680 101 680 681 CELAS3 681 101 681 682 682 101 682 683 CELAS3 683 101 683 684 684 101 684 685 CELAS3 685 101 685 686 686 101 686 687 CELAS3 687 101 687 688 688 101 688 689 CELAS3 689 101 689 690 690 101 690 691 CELAS3 691 101 691 692 692 101 692 693 CELAS3 693 101 693 694 694 101 694 695 CELAS3 695 101 695 696 696 101 696 697 CELAS3 697 101 697 698 698 101 698 699 CELAS3 699 101 699 700 700 101 700 701 CELAS3 701 101 701 702 702 101 702 703 CELAS3 703 101 703 704 704 101 704 705 CELAS3 705 101 705 706 706 101 706 707 CELAS3 707 101 707 708 708 101 708 709 CELAS3 709 101 709 710 710 101 710 711 CELAS3 711 101 711 712 712 101 712 713 CELAS3 713 101 713 714 714 101 714 715 CELAS3 715 101 715 716 716 101 716 717 CELAS3 717 101 717 718 718 101 718 719 CELAS3 719 101 719 720 720 101 720 721 CELAS3 721 101 721 722 722 101 722 723 CELAS3 723 101 723 724 724 101 724 725 CELAS3 725 101 725 726 726 101 726 727 CELAS3 727 101 727 728 728 101 728 729 CELAS3 729 101 729 730 730 101 730 731 CELAS3 731 101 731 732 732 101 732 733 CELAS3 733 101 733 734 734 101 734 735 CELAS3 735 101 735 736 736 101 736 737 CELAS3 737 101 737 738 738 101 738 739 CELAS3 739 101 739 740 740 101 740 741 CELAS3 741 101 741 742 742 101 742 743 CELAS3 743 101 743 744 744 101 744 745 CELAS3 745 101 745 746 746 101 746 747 CELAS3 747 101 747 748 748 101 748 749 CELAS3 749 101 749 750 750 101 750 751 CELAS3 751 101 751 752 752 101 752 753 CELAS3 753 101 753 754 754 101 754 755 CELAS3 755 101 755 756 756 101 756 757 CELAS3 757 101 757 758 758 101 758 759 CELAS3 759 101 759 760 760 101 760 761 CELAS3 761 101 761 762 762 101 762 763 CELAS3 763 101 763 764 764 101 764 765 CELAS3 765 101 765 766 766 101 766 767 CELAS3 767 101 767 768 768 101 768 769 CELAS3 769 101 769 770 770 101 770 771 CELAS3 771 101 771 772 772 101 772 773 CELAS3 773 101 773 774 774 101 774 775 CELAS3 775 101 775 776 776 101 776 777 CELAS3 777 101 777 778 778 101 778 779 CELAS3 779 101 779 780 780 101 780 781 CELAS3 781 101 781 782 782 101 782 783 CELAS3 783 101 783 784 784 101 784 785 CELAS3 785 101 785 786 786 101 786 787 CELAS3 787 101 787 788 788 101 788 789 CELAS3 789 101 789 790 790 101 790 791 CELAS3 791 101 791 792 792 101 792 793 CELAS3 793 101 793 794 794 101 794 795 CELAS3 795 101 795 796 796 101 796 797 CELAS3 797 101 797 798 798 101 798 799 CELAS3 799 101 799 800 800 101 800 801 CELAS3 801 101 801 802 802 101 802 803 CELAS3 803 101 803 804 804 101 804 805 CELAS3 805 101 805 806 806 101 806 807 CELAS3 807 101 807 808 808 101 808 809 CELAS3 809 101 809 810 810 101 810 811 CELAS3 811 101 811 812 812 101 812 813 CELAS3 813 101 813 814 814 101 814 815 CELAS3 815 101 815 816 816 101 816 817 CELAS3 817 101 817 818 818 101 818 819 CELAS3 819 101 819 820 820 101 820 821 CELAS3 821 101 821 822 822 101 822 823 CELAS3 823 101 823 824 824 101 824 825 CELAS3 825 101 825 826 826 101 826 827 CELAS3 827 101 827 828 828 101 828 829 CELAS3 829 101 829 830 830 101 830 831 CELAS3 831 101 831 832 832 101 832 833 CELAS3 833 101 833 834 834 101 834 835 CELAS3 835 101 835 836 836 101 836 837 CELAS3 837 101 837 838 838 101 838 839 CELAS3 839 101 839 840 840 101 840 841 CELAS3 841 101 841 842 842 101 842 843 CELAS3 843 101 843 844 844 101 844 845 CELAS3 845 101 845 846 846 101 846 847 CELAS3 847 101 847 848 848 101 848 849 CELAS3 849 101 849 850 850 101 850 851 CELAS3 851 101 851 852 852 101 852 853 CELAS3 853 101 853 854 854 101 854 855 CELAS3 855 101 855 856 856 101 856 857 CELAS3 857 101 857 858 858 101 858 859 CELAS3 859 101 859 860 860 101 860 861 CELAS3 861 101 861 862 862 101 862 863 CELAS3 863 101 863 864 864 101 864 865 CELAS3 865 101 865 866 866 101 866 867 CELAS3 867 101 867 868 868 101 868 869 CELAS3 869 101 869 870 870 101 870 871 CELAS3 871 101 871 872 872 101 872 873 CELAS3 873 101 873 874 874 101 874 875 CELAS3 875 101 875 876 876 101 876 877 CELAS3 877 101 877 878 878 101 878 879 CELAS3 879 101 879 880 880 101 880 881 CELAS3 881 101 881 882 882 101 882 883 CELAS3 883 101 883 884 884 101 884 885 CELAS3 885 101 885 886 886 101 886 887 CELAS3 887 101 887 888 888 101 888 889 CELAS3 889 101 889 890 890 101 890 891 CELAS3 891 101 891 892 892 101 892 893 CELAS3 893 101 893 894 894 101 894 895 CELAS3 895 101 895 896 896 101 896 897 CELAS3 897 101 897 898 898 101 898 899 CELAS3 899 101 899 900 900 101 900 901 CELAS3 901 101 901 902 902 101 902 903 CELAS3 903 101 903 904 904 101 904 905 CELAS3 905 101 905 906 906 101 906 907 CELAS3 907 101 907 908 908 101 908 909 CELAS3 909 101 909 910 910 101 910 911 CELAS3 911 101 911 912 912 101 912 913 CELAS3 913 101 913 914 914 101 914 915 CELAS3 915 101 915 916 916 101 916 917 CELAS3 917 101 917 918 918 101 918 919 CELAS3 919 101 919 920 920 101 920 921 CELAS3 921 101 921 922 922 101 922 923 CELAS3 923 101 923 924 924 101 924 925 CELAS3 925 101 925 926 926 101 926 927 CELAS3 927 101 927 928 928 101 928 929 CELAS3 929 101 929 930 930 101 930 931 CELAS3 931 101 931 932 932 101 932 933 CELAS3 933 101 933 934 934 101 934 935 CELAS3 935 101 935 936 936 101 936 937 CELAS3 937 101 937 938 938 101 938 939 CELAS3 939 101 939 940 940 101 940 941 CELAS3 941 101 941 942 942 101 942 943 CELAS3 943 101 943 944 944 101 944 945 CELAS3 945 101 945 946 946 101 946 947 CELAS3 947 101 947 948 948 101 948 949 CELAS3 949 101 949 950 950 101 950 951 CELAS3 951 101 951 952 952 101 952 953 CELAS3 953 101 953 954 954 101 954 955 CELAS3 955 101 955 956 956 101 956 957 CELAS3 957 101 957 958 958 101 958 959 CELAS3 959 101 959 960 960 101 960 961 CELAS3 961 101 961 962 962 101 962 963 CELAS3 963 101 963 964 964 101 964 965 CELAS3 965 101 965 966 966 101 966 967 CELAS3 967 101 967 968 968 101 968 969 CELAS3 969 101 969 970 970 101 970 971 CELAS3 971 101 971 972 972 101 972 973 CELAS3 973 101 973 974 974 101 974 975 CELAS3 975 101 975 976 976 101 976 977 CELAS3 977 101 977 978 978 101 978 979 CELAS3 979 101 979 980 980 101 980 981 CELAS3 981 101 981 982 982 101 982 983 CELAS3 983 101 983 984 984 101 984 985 CELAS3 985 101 985 986 986 101 986 987 CELAS3 987 101 987 988 988 101 988 989 CELAS3 989 101 989 990 990 101 990 991 CELAS3 991 101 991 992 992 101 992 993 CELAS3 993 101 993 994 994 101 994 995 CELAS3 995 101 995 996 996 101 996 997 CELAS3 997 101 997 998 998 101 998 999 CELAS3 999 101 999 1000 1000 101 1000 0 CMASS3 40002 301 2 0 CMASS3 40003 301 3 0 40004 301 4 0 CMASS3 40005 301 5 0 40006 301 6 0 CMASS3 40007 301 7 0 40008 301 8 0 CMASS3 40009 301 9 0 40010 301 10 0 CMASS3 40011 301 11 0 40012 301 12 0 CMASS3 40013 301 13 0 40014 301 14 0 CMASS3 40015 301 15 0 40016 301 16 0 CMASS3 40017 301 17 0 40018 301 18 0 CMASS3 40019 301 19 0 40020 301 20 0 CMASS3 40021 301 21 0 40022 301 22 0 CMASS3 40023 301 23 0 40024 301 24 0 CMASS3 40025 301 25 0 40026 301 26 0 CMASS3 40027 301 27 0 40028 301 28 0 CMASS3 40029 301 29 0 40030 301 30 0 CMASS3 40031 301 31 0 40032 301 32 0 CMASS3 40033 301 33 0 40034 301 34 0 CMASS3 40035 301 35 0 40036 301 36 0 CMASS3 40037 301 37 0 40038 301 38 0 CMASS3 40039 301 39 0 40040 301 40 0 CMASS3 40041 301 41 0 40042 301 42 0 CMASS3 40043 301 43 0 40044 301 44 0 CMASS3 40045 301 45 0 40046 301 46 0 CMASS3 40047 301 47 0 40048 301 48 0 CMASS3 40049 301 49 0 40050 301 50 0 CMASS3 40051 301 51 0 40052 301 52 0 CMASS3 40053 301 53 0 40054 301 54 0 CMASS3 40055 301 55 0 40056 301 56 0 CMASS3 40057 301 57 0 40058 301 58 0 CMASS3 40059 301 59 0 40060 301 60 0 CMASS3 40061 301 61 0 40062 301 62 0 CMASS3 40063 301 63 0 40064 301 64 0 CMASS3 40065 301 65 0 40066 301 66 0 CMASS3 40067 301 67 0 40068 301 68 0 CMASS3 40069 301 69 0 40070 301 70 0 CMASS3 40071 301 71 0 40072 301 72 0 CMASS3 40073 301 73 0 40074 301 74 0 CMASS3 40075 301 75 0 40076 301 76 0 CMASS3 40077 301 77 0 40078 301 78 0 CMASS3 40079 301 79 0 40080 301 80 0 CMASS3 40081 301 81 0 40082 301 82 0 CMASS3 40083 301 83 0 40084 301 84 0 CMASS3 40085 301 85 0 40086 301 86 0 CMASS3 40087 301 87 0 40088 301 88 0 CMASS3 40089 301 89 0 40090 301 90 0 CMASS3 40091 301 91 0 40092 301 92 0 CMASS3 40093 301 93 0 40094 301 94 0 CMASS3 40095 301 95 0 40096 301 96 0 CMASS3 40097 301 97 0 40098 301 98 0 CMASS3 40099 301 99 0 40100 301 100 0 CMASS3 40101 301 101 0 40102 301 102 0 CMASS3 40103 301 103 0 40104 301 104 0 CMASS3 40105 301 105 0 40106 301 106 0 CMASS3 40107 301 107 0 40108 301 108 0 CMASS3 40109 301 109 0 40110 301 110 0 CMASS3 40111 301 111 0 40112 301 112 0 CMASS3 40113 301 113 0 40114 301 114 0 CMASS3 40115 301 115 0 40116 301 116 0 CMASS3 40117 301 117 0 40118 301 118 0 CMASS3 40119 301 119 0 40120 301 120 0 CMASS3 40121 301 121 0 40122 301 122 0 CMASS3 40123 301 123 0 40124 301 124 0 CMASS3 40125 301 125 0 40126 301 126 0 CMASS3 40127 301 127 0 40128 301 128 0 CMASS3 40129 301 129 0 40130 301 130 0 CMASS3 40131 301 131 0 40132 301 132 0 CMASS3 40133 301 133 0 40134 301 134 0 CMASS3 40135 301 135 0 40136 301 136 0 CMASS3 40137 301 137 0 40138 301 138 0 CMASS3 40139 301 139 0 40140 301 140 0 CMASS3 40141 301 141 0 40142 301 142 0 CMASS3 40143 301 143 0 40144 301 144 0 CMASS3 40145 301 145 0 40146 301 146 0 CMASS3 40147 301 147 0 40148 301 148 0 CMASS3 40149 301 149 0 40150 301 150 0 CMASS3 40151 301 151 0 40152 301 152 0 CMASS3 40153 301 153 0 40154 301 154 0 CMASS3 40155 301 155 0 40156 301 156 0 CMASS3 40157 301 157 0 40158 301 158 0 CMASS3 40159 301 159 0 40160 301 160 0 CMASS3 40161 301 161 0 40162 301 162 0 CMASS3 40163 301 163 0 40164 301 164 0 CMASS3 40165 301 165 0 40166 301 166 0 CMASS3 40167 301 167 0 40168 301 168 0 CMASS3 40169 301 169 0 40170 301 170 0 CMASS3 40171 301 171 0 40172 301 172 0 CMASS3 40173 301 173 0 40174 301 174 0 CMASS3 40175 301 175 0 40176 301 176 0 CMASS3 40177 301 177 0 40178 301 178 0 CMASS3 40179 301 179 0 40180 301 180 0 CMASS3 40181 301 181 0 40182 301 182 0 CMASS3 40183 301 183 0 40184 301 184 0 CMASS3 40185 301 185 0 40186 301 186 0 CMASS3 40187 301 187 0 40188 301 188 0 CMASS3 40189 301 189 0 40190 301 190 0 CMASS3 40191 301 191 0 40192 301 192 0 CMASS3 40193 301 193 0 40194 301 194 0 CMASS3 40195 301 195 0 40196 301 196 0 CMASS3 40197 301 197 0 40198 301 198 0 CMASS3 40199 301 199 0 40200 301 200 0 CMASS3 40201 301 201 0 40202 301 202 0 CMASS3 40203 301 203 0 40204 301 204 0 CMASS3 40205 301 205 0 40206 301 206 0 CMASS3 40207 301 207 0 40208 301 208 0 CMASS3 40209 301 209 0 40210 301 210 0 CMASS3 40211 301 211 0 40212 301 212 0 CMASS3 40213 301 213 0 40214 301 214 0 CMASS3 40215 301 215 0 40216 301 216 0 CMASS3 40217 301 217 0 40218 301 218 0 CMASS3 40219 301 219 0 40220 301 220 0 CMASS3 40221 301 221 0 40222 301 222 0 CMASS3 40223 301 223 0 40224 301 224 0 CMASS3 40225 301 225 0 40226 301 226 0 CMASS3 40227 301 227 0 40228 301 228 0 CMASS3 40229 301 229 0 40230 301 230 0 CMASS3 40231 301 231 0 40232 301 232 0 CMASS3 40233 301 233 0 40234 301 234 0 CMASS3 40235 301 235 0 40236 301 236 0 CMASS3 40237 301 237 0 40238 301 238 0 CMASS3 40239 301 239 0 40240 301 240 0 CMASS3 40241 301 241 0 40242 301 242 0 CMASS3 40243 301 243 0 40244 301 244 0 CMASS3 40245 301 245 0 40246 301 246 0 CMASS3 40247 301 247 0 40248 301 248 0 CMASS3 40249 301 249 0 40250 301 250 0 CMASS3 40251 301 251 0 40252 301 252 0 CMASS3 40253 301 253 0 40254 301 254 0 CMASS3 40255 301 255 0 40256 301 256 0 CMASS3 40257 301 257 0 40258 301 258 0 CMASS3 40259 301 259 0 40260 301 260 0 CMASS3 40261 301 261 0 40262 301 262 0 CMASS3 40263 301 263 0 40264 301 264 0 CMASS3 40265 301 265 0 40266 301 266 0 CMASS3 40267 301 267 0 40268 301 268 0 CMASS3 40269 301 269 0 40270 301 270 0 CMASS3 40271 301 271 0 40272 301 272 0 CMASS3 40273 301 273 0 40274 301 274 0 CMASS3 40275 301 275 0 40276 301 276 0 CMASS3 40277 301 277 0 40278 301 278 0 CMASS3 40279 301 279 0 40280 301 280 0 CMASS3 40281 301 281 0 40282 301 282 0 CMASS3 40283 301 283 0 40284 301 284 0 CMASS3 40285 301 285 0 40286 301 286 0 CMASS3 40287 301 287 0 40288 301 288 0 CMASS3 40289 301 289 0 40290 301 290 0 CMASS3 40291 301 291 0 40292 301 292 0 CMASS3 40293 301 293 0 40294 301 294 0 CMASS3 40295 301 295 0 40296 301 296 0 CMASS3 40297 301 297 0 40298 301 298 0 CMASS3 40299 301 299 0 40300 301 300 0 CMASS3 40301 301 301 0 40302 301 302 0 CMASS3 40303 301 303 0 40304 301 304 0 CMASS3 40305 301 305 0 40306 301 306 0 CMASS3 40307 301 307 0 40308 301 308 0 CMASS3 40309 301 309 0 40310 301 310 0 CMASS3 40311 301 311 0 40312 301 312 0 CMASS3 40313 301 313 0 40314 301 314 0 CMASS3 40315 301 315 0 40316 301 316 0 CMASS3 40317 301 317 0 40318 301 318 0 CMASS3 40319 301 319 0 40320 301 320 0 CMASS3 40321 301 321 0 40322 301 322 0 CMASS3 40323 301 323 0 40324 301 324 0 CMASS3 40325 301 325 0 40326 301 326 0 CMASS3 40327 301 327 0 40328 301 328 0 CMASS3 40329 301 329 0 40330 301 330 0 CMASS3 40331 301 331 0 40332 301 332 0 CMASS3 40333 301 333 0 40334 301 334 0 CMASS3 40335 301 335 0 40336 301 336 0 CMASS3 40337 301 337 0 40338 301 338 0 CMASS3 40339 301 339 0 40340 301 340 0 CMASS3 40341 301 341 0 40342 301 342 0 CMASS3 40343 301 343 0 40344 301 344 0 CMASS3 40345 301 345 0 40346 301 346 0 CMASS3 40347 301 347 0 40348 301 348 0 CMASS3 40349 301 349 0 40350 301 350 0 CMASS3 40351 301 351 0 40352 301 352 0 CMASS3 40353 301 353 0 40354 301 354 0 CMASS3 40355 301 355 0 40356 301 356 0 CMASS3 40357 301 357 0 40358 301 358 0 CMASS3 40359 301 359 0 40360 301 360 0 CMASS3 40361 301 361 0 40362 301 362 0 CMASS3 40363 301 363 0 40364 301 364 0 CMASS3 40365 301 365 0 40366 301 366 0 CMASS3 40367 301 367 0 40368 301 368 0 CMASS3 40369 301 369 0 40370 301 370 0 CMASS3 40371 301 371 0 40372 301 372 0 CMASS3 40373 301 373 0 40374 301 374 0 CMASS3 40375 301 375 0 40376 301 376 0 CMASS3 40377 301 377 0 40378 301 378 0 CMASS3 40379 301 379 0 40380 301 380 0 CMASS3 40381 301 381 0 40382 301 382 0 CMASS3 40383 301 383 0 40384 301 384 0 CMASS3 40385 301 385 0 40386 301 386 0 CMASS3 40387 301 387 0 40388 301 388 0 CMASS3 40389 301 389 0 40390 301 390 0 CMASS3 40391 301 391 0 40392 301 392 0 CMASS3 40393 301 393 0 40394 301 394 0 CMASS3 40395 301 395 0 40396 301 396 0 CMASS3 40397 301 397 0 40398 301 398 0 CMASS3 40399 301 399 0 40400 301 400 0 CMASS3 40401 301 401 0 40402 301 402 0 CMASS3 40403 301 403 0 40404 301 404 0 CMASS3 40405 301 405 0 40406 301 406 0 CMASS3 40407 301 407 0 40408 301 408 0 CMASS3 40409 301 409 0 40410 301 410 0 CMASS3 40411 301 411 0 40412 301 412 0 CMASS3 40413 301 413 0 40414 301 414 0 CMASS3 40415 301 415 0 40416 301 416 0 CMASS3 40417 301 417 0 40418 301 418 0 CMASS3 40419 301 419 0 40420 301 420 0 CMASS3 40421 301 421 0 40422 301 422 0 CMASS3 40423 301 423 0 40424 301 424 0 CMASS3 40425 301 425 0 40426 301 426 0 CMASS3 40427 301 427 0 40428 301 428 0 CMASS3 40429 301 429 0 40430 301 430 0 CMASS3 40431 301 431 0 40432 301 432 0 CMASS3 40433 301 433 0 40434 301 434 0 CMASS3 40435 301 435 0 40436 301 436 0 CMASS3 40437 301 437 0 40438 301 438 0 CMASS3 40439 301 439 0 40440 301 440 0 CMASS3 40441 301 441 0 40442 301 442 0 CMASS3 40443 301 443 0 40444 301 444 0 CMASS3 40445 301 445 0 40446 301 446 0 CMASS3 40447 301 447 0 40448 301 448 0 CMASS3 40449 301 449 0 40450 301 450 0 CMASS3 40451 301 451 0 40452 301 452 0 CMASS3 40453 301 453 0 40454 301 454 0 CMASS3 40455 301 455 0 40456 301 456 0 CMASS3 40457 301 457 0 40458 301 458 0 CMASS3 40459 301 459 0 40460 301 460 0 CMASS3 40461 301 461 0 40462 301 462 0 CMASS3 40463 301 463 0 40464 301 464 0 CMASS3 40465 301 465 0 40466 301 466 0 CMASS3 40467 301 467 0 40468 301 468 0 CMASS3 40469 301 469 0 40470 301 470 0 CMASS3 40471 301 471 0 40472 301 472 0 CMASS3 40473 301 473 0 40474 301 474 0 CMASS3 40475 301 475 0 40476 301 476 0 CMASS3 40477 301 477 0 40478 301 478 0 CMASS3 40479 301 479 0 40480 301 480 0 CMASS3 40481 301 481 0 40482 301 482 0 CMASS3 40483 301 483 0 40484 301 484 0 CMASS3 40485 301 485 0 40486 301 486 0 CMASS3 40487 301 487 0 40488 301 488 0 CMASS3 40489 301 489 0 40490 301 490 0 CMASS3 40491 301 491 0 40492 301 492 0 CMASS3 40493 301 493 0 40494 301 494 0 CMASS3 40495 301 495 0 40496 301 496 0 CMASS3 40497 301 497 0 40498 301 498 0 CMASS3 40499 301 499 0 40500 301 500 0 CMASS3 40501 301 501 0 40502 301 502 0 CMASS3 40503 301 503 0 40504 301 504 0 CMASS3 40505 301 505 0 40506 301 506 0 CMASS3 40507 301 507 0 40508 301 508 0 CMASS3 40509 301 509 0 40510 301 510 0 CMASS3 40511 301 511 0 40512 301 512 0 CMASS3 40513 301 513 0 40514 301 514 0 CMASS3 40515 301 515 0 40516 301 516 0 CMASS3 40517 301 517 0 40518 301 518 0 CMASS3 40519 301 519 0 40520 301 520 0 CMASS3 40521 301 521 0 40522 301 522 0 CMASS3 40523 301 523 0 40524 301 524 0 CMASS3 40525 301 525 0 40526 301 526 0 CMASS3 40527 301 527 0 40528 301 528 0 CMASS3 40529 301 529 0 40530 301 530 0 CMASS3 40531 301 531 0 40532 301 532 0 CMASS3 40533 301 533 0 40534 301 534 0 CMASS3 40535 301 535 0 40536 301 536 0 CMASS3 40537 301 537 0 40538 301 538 0 CMASS3 40539 301 539 0 40540 301 540 0 CMASS3 40541 301 541 0 40542 301 542 0 CMASS3 40543 301 543 0 40544 301 544 0 CMASS3 40545 301 545 0 40546 301 546 0 CMASS3 40547 301 547 0 40548 301 548 0 CMASS3 40549 301 549 0 40550 301 550 0 CMASS3 40551 301 551 0 40552 301 552 0 CMASS3 40553 301 553 0 40554 301 554 0 CMASS3 40555 301 555 0 40556 301 556 0 CMASS3 40557 301 557 0 40558 301 558 0 CMASS3 40559 301 559 0 40560 301 560 0 CMASS3 40561 301 561 0 40562 301 562 0 CMASS3 40563 301 563 0 40564 301 564 0 CMASS3 40565 301 565 0 40566 301 566 0 CMASS3 40567 301 567 0 40568 301 568 0 CMASS3 40569 301 569 0 40570 301 570 0 CMASS3 40571 301 571 0 40572 301 572 0 CMASS3 40573 301 573 0 40574 301 574 0 CMASS3 40575 301 575 0 40576 301 576 0 CMASS3 40577 301 577 0 40578 301 578 0 CMASS3 40579 301 579 0 40580 301 580 0 CMASS3 40581 301 581 0 40582 301 582 0 CMASS3 40583 301 583 0 40584 301 584 0 CMASS3 40585 301 585 0 40586 301 586 0 CMASS3 40587 301 587 0 40588 301 588 0 CMASS3 40589 301 589 0 40590 301 590 0 CMASS3 40591 301 591 0 40592 301 592 0 CMASS3 40593 301 593 0 40594 301 594 0 CMASS3 40595 301 595 0 40596 301 596 0 CMASS3 40597 301 597 0 40598 301 598 0 CMASS3 40599 301 599 0 40600 301 600 0 CMASS3 40601 301 601 0 40602 301 602 0 CMASS3 40603 301 603 0 40604 301 604 0 CMASS3 40605 301 605 0 40606 301 606 0 CMASS3 40607 301 607 0 40608 301 608 0 CMASS3 40609 301 609 0 40610 301 610 0 CMASS3 40611 301 611 0 40612 301 612 0 CMASS3 40613 301 613 0 40614 301 614 0 CMASS3 40615 301 615 0 40616 301 616 0 CMASS3 40617 301 617 0 40618 301 618 0 CMASS3 40619 301 619 0 40620 301 620 0 CMASS3 40621 301 621 0 40622 301 622 0 CMASS3 40623 301 623 0 40624 301 624 0 CMASS3 40625 301 625 0 40626 301 626 0 CMASS3 40627 301 627 0 40628 301 628 0 CMASS3 40629 301 629 0 40630 301 630 0 CMASS3 40631 301 631 0 40632 301 632 0 CMASS3 40633 301 633 0 40634 301 634 0 CMASS3 40635 301 635 0 40636 301 636 0 CMASS3 40637 301 637 0 40638 301 638 0 CMASS3 40639 301 639 0 40640 301 640 0 CMASS3 40641 301 641 0 40642 301 642 0 CMASS3 40643 301 643 0 40644 301 644 0 CMASS3 40645 301 645 0 40646 301 646 0 CMASS3 40647 301 647 0 40648 301 648 0 CMASS3 40649 301 649 0 40650 301 650 0 CMASS3 40651 301 651 0 40652 301 652 0 CMASS3 40653 301 653 0 40654 301 654 0 CMASS3 40655 301 655 0 40656 301 656 0 CMASS3 40657 301 657 0 40658 301 658 0 CMASS3 40659 301 659 0 40660 301 660 0 CMASS3 40661 301 661 0 40662 301 662 0 CMASS3 40663 301 663 0 40664 301 664 0 CMASS3 40665 301 665 0 40666 301 666 0 CMASS3 40667 301 667 0 40668 301 668 0 CMASS3 40669 301 669 0 40670 301 670 0 CMASS3 40671 301 671 0 40672 301 672 0 CMASS3 40673 301 673 0 40674 301 674 0 CMASS3 40675 301 675 0 40676 301 676 0 CMASS3 40677 301 677 0 40678 301 678 0 CMASS3 40679 301 679 0 40680 301 680 0 CMASS3 40681 301 681 0 40682 301 682 0 CMASS3 40683 301 683 0 40684 301 684 0 CMASS3 40685 301 685 0 40686 301 686 0 CMASS3 40687 301 687 0 40688 301 688 0 CMASS3 40689 301 689 0 40690 301 690 0 CMASS3 40691 301 691 0 40692 301 692 0 CMASS3 40693 301 693 0 40694 301 694 0 CMASS3 40695 301 695 0 40696 301 696 0 CMASS3 40697 301 697 0 40698 301 698 0 CMASS3 40699 301 699 0 40700 301 700 0 CMASS3 40701 301 701 0 40702 301 702 0 CMASS3 40703 301 703 0 40704 301 704 0 CMASS3 40705 301 705 0 40706 301 706 0 CMASS3 40707 301 707 0 40708 301 708 0 CMASS3 40709 301 709 0 40710 301 710 0 CMASS3 40711 301 711 0 40712 301 712 0 CMASS3 40713 301 713 0 40714 301 714 0 CMASS3 40715 301 715 0 40716 301 716 0 CMASS3 40717 301 717 0 40718 301 718 0 CMASS3 40719 301 719 0 40720 301 720 0 CMASS3 40721 301 721 0 40722 301 722 0 CMASS3 40723 301 723 0 40724 301 724 0 CMASS3 40725 301 725 0 40726 301 726 0 CMASS3 40727 301 727 0 40728 301 728 0 CMASS3 40729 301 729 0 40730 301 730 0 CMASS3 40731 301 731 0 40732 301 732 0 CMASS3 40733 301 733 0 40734 301 734 0 CMASS3 40735 301 735 0 40736 301 736 0 CMASS3 40737 301 737 0 40738 301 738 0 CMASS3 40739 301 739 0 40740 301 740 0 CMASS3 40741 301 741 0 40742 301 742 0 CMASS3 40743 301 743 0 40744 301 744 0 CMASS3 40745 301 745 0 40746 301 746 0 CMASS3 40747 301 747 0 40748 301 748 0 CMASS3 40749 301 749 0 40750 301 750 0 CMASS3 40751 301 751 0 40752 301 752 0 CMASS3 40753 301 753 0 40754 301 754 0 CMASS3 40755 301 755 0 40756 301 756 0 CMASS3 40757 301 757 0 40758 301 758 0 CMASS3 40759 301 759 0 40760 301 760 0 CMASS3 40761 301 761 0 40762 301 762 0 CMASS3 40763 301 763 0 40764 301 764 0 CMASS3 40765 301 765 0 40766 301 766 0 CMASS3 40767 301 767 0 40768 301 768 0 CMASS3 40769 301 769 0 40770 301 770 0 CMASS3 40771 301 771 0 40772 301 772 0 CMASS3 40773 301 773 0 40774 301 774 0 CMASS3 40775 301 775 0 40776 301 776 0 CMASS3 40777 301 777 0 40778 301 778 0 CMASS3 40779 301 779 0 40780 301 780 0 CMASS3 40781 301 781 0 40782 301 782 0 CMASS3 40783 301 783 0 40784 301 784 0 CMASS3 40785 301 785 0 40786 301 786 0 CMASS3 40787 301 787 0 40788 301 788 0 CMASS3 40789 301 789 0 40790 301 790 0 CMASS3 40791 301 791 0 40792 301 792 0 CMASS3 40793 301 793 0 40794 301 794 0 CMASS3 40795 301 795 0 40796 301 796 0 CMASS3 40797 301 797 0 40798 301 798 0 CMASS3 40799 301 799 0 40800 301 800 0 CMASS3 40801 301 801 0 40802 301 802 0 CMASS3 40803 301 803 0 40804 301 804 0 CMASS3 40805 301 805 0 40806 301 806 0 CMASS3 40807 301 807 0 40808 301 808 0 CMASS3 40809 301 809 0 40810 301 810 0 CMASS3 40811 301 811 0 40812 301 812 0 CMASS3 40813 301 813 0 40814 301 814 0 CMASS3 40815 301 815 0 40816 301 816 0 CMASS3 40817 301 817 0 40818 301 818 0 CMASS3 40819 301 819 0 40820 301 820 0 CMASS3 40821 301 821 0 40822 301 822 0 CMASS3 40823 301 823 0 40824 301 824 0 CMASS3 40825 301 825 0 40826 301 826 0 CMASS3 40827 301 827 0 40828 301 828 0 CMASS3 40829 301 829 0 40830 301 830 0 CMASS3 40831 301 831 0 40832 301 832 0 CMASS3 40833 301 833 0 40834 301 834 0 CMASS3 40835 301 835 0 40836 301 836 0 CMASS3 40837 301 837 0 40838 301 838 0 CMASS3 40839 301 839 0 40840 301 840 0 CMASS3 40841 301 841 0 40842 301 842 0 CMASS3 40843 301 843 0 40844 301 844 0 CMASS3 40845 301 845 0 40846 301 846 0 CMASS3 40847 301 847 0 40848 301 848 0 CMASS3 40849 301 849 0 40850 301 850 0 CMASS3 40851 301 851 0 40852 301 852 0 CMASS3 40853 301 853 0 40854 301 854 0 CMASS3 40855 301 855 0 40856 301 856 0 CMASS3 40857 301 857 0 40858 301 858 0 CMASS3 40859 301 859 0 40860 301 860 0 CMASS3 40861 301 861 0 40862 301 862 0 CMASS3 40863 301 863 0 40864 301 864 0 CMASS3 40865 301 865 0 40866 301 866 0 CMASS3 40867 301 867 0 40868 301 868 0 CMASS3 40869 301 869 0 40870 301 870 0 CMASS3 40871 301 871 0 40872 301 872 0 CMASS3 40873 301 873 0 40874 301 874 0 CMASS3 40875 301 875 0 40876 301 876 0 CMASS3 40877 301 877 0 40878 301 878 0 CMASS3 40879 301 879 0 40880 301 880 0 CMASS3 40881 301 881 0 40882 301 882 0 CMASS3 40883 301 883 0 40884 301 884 0 CMASS3 40885 301 885 0 40886 301 886 0 CMASS3 40887 301 887 0 40888 301 888 0 CMASS3 40889 301 889 0 40890 301 890 0 CMASS3 40891 301 891 0 40892 301 892 0 CMASS3 40893 301 893 0 40894 301 894 0 CMASS3 40895 301 895 0 40896 301 896 0 CMASS3 40897 301 897 0 40898 301 898 0 CMASS3 40899 301 899 0 40900 301 900 0 CMASS3 40901 301 901 0 40902 301 902 0 CMASS3 40903 301 903 0 40904 301 904 0 CMASS3 40905 301 905 0 40906 301 906 0 CMASS3 40907 301 907 0 40908 301 908 0 CMASS3 40909 301 909 0 40910 301 910 0 CMASS3 40911 301 911 0 40912 301 912 0 CMASS3 40913 301 913 0 40914 301 914 0 CMASS3 40915 301 915 0 40916 301 916 0 CMASS3 40917 301 917 0 40918 301 918 0 CMASS3 40919 301 919 0 40920 301 920 0 CMASS3 40921 301 921 0 40922 301 922 0 CMASS3 40923 301 923 0 40924 301 924 0 CMASS3 40925 301 925 0 40926 301 926 0 CMASS3 40927 301 927 0 40928 301 928 0 CMASS3 40929 301 929 0 40930 301 930 0 CMASS3 40931 301 931 0 40932 301 932 0 CMASS3 40933 301 933 0 40934 301 934 0 CMASS3 40935 301 935 0 40936 301 936 0 CMASS3 40937 301 937 0 40938 301 938 0 CMASS3 40939 301 939 0 40940 301 940 0 CMASS3 40941 301 941 0 40942 301 942 0 CMASS3 40943 301 943 0 40944 301 944 0 CMASS3 40945 301 945 0 40946 301 946 0 CMASS3 40947 301 947 0 40948 301 948 0 CMASS3 40949 301 949 0 40950 301 950 0 CMASS3 40951 301 951 0 40952 301 952 0 CMASS3 40953 301 953 0 40954 301 954 0 CMASS3 40955 301 955 0 40956 301 956 0 CMASS3 40957 301 957 0 40958 301 958 0 CMASS3 40959 301 959 0 40960 301 960 0 CMASS3 40961 301 961 0 40962 301 962 0 CMASS3 40963 301 963 0 40964 301 964 0 CMASS3 40965 301 965 0 40966 301 966 0 CMASS3 40967 301 967 0 40968 301 968 0 CMASS3 40969 301 969 0 40970 301 970 0 CMASS3 40971 301 971 0 40972 301 972 0 CMASS3 40973 301 973 0 40974 301 974 0 CMASS3 40975 301 975 0 40976 301 976 0 CMASS3 40977 301 977 0 40978 301 978 0 CMASS3 40979 301 979 0 40980 301 980 0 CMASS3 40981 301 981 0 40982 301 982 0 CMASS3 40983 301 983 0 40984 301 984 0 CMASS3 40985 301 985 0 40986 301 986 0 CMASS3 40987 301 987 0 40988 301 988 0 CMASS3 40989 301 989 0 40990 301 990 0 CMASS3 40991 301 991 0 40992 301 992 0 CMASS3 40993 301 993 0 40994 301 994 0 CMASS3 40995 301 995 0 40996 301 996 0 CMASS3 40997 301 997 0 40998 301 998 0 CMASS3 40999 301 999 0 41000 301 1000 0 PELAS 101 1.0+7 10.0 PMASS 301 10.000 TIC 9 2 .2 TIC 9 3 .4 TIC 9 4 .6 TIC 9 5 .8 TIC 9 6 1.0 TIC 9 7 1.2 TIC 9 8 1.4 TIC 9 9 1.6 TIC 9 10 1.8 TIC 9 11 2.0 TIC 9 12 1.8 TIC 9 13 1.6 TIC 9 14 1.4 TIC 9 15 1.2 TIC 9 16 1.0 TIC 9 17 .8 TIC 9 18 .6 TIC 9 19 .4 TIC 9 20 .2 TSTEP 9 50 .5-3 1 ENDDATA ================================================ FILE: inp/d09021a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 9, Transient Analysis - Direct Formulation $ Transient Analysis of a 1000 Cell String, Traveling Wave Problem (9-2-1) $ Transient Analysis of a 1000 Cell String, Traveling Wave Problem $ (INPUT, 9-2-2) $ $ A. Description $ $ This problem illustrates the ability of NASTRAN to perform time integration $ studies using the structural matrices directly. At each time step the applied $ loads, the structural matrices, and the previous displacements are used to $ calculate a new set of displacements, velocities, and accelerations. Initial $ displacements and velocities are also allowed for all unconstrained $ coordinates. The INPUT module is used to generate the scalar springs and $ masses. $ $ The structural model consists of a 1000 cell string under constant tension $ modeled by scalar elements. The string is given an initial condition at one $ end consisting of a triangular shaped set of initial displacements. The wave $ will then travel along the string, retaining its initial shape. The ends of $ the string are fixed, causing the wave to reflect with a sign reversal. $ $ B. Input $ $ 1. Parameters: $ $ T 7 $ k = ------- = 10 - scalar spring rates $ i delta x $ $ m = mu delta x = 10 - scalar masses $ i $ $ N = 1000 - number of cells $ $ where $ $ T is the tension $ $ delta x is the incremental length $ $ mu is the mass per unit length $ $ 2. Loads: $ $ The initial displacements are; $ $ u = .2 u = 1.8 $ 2 12 $ $ u = .4 u = 1.6 $ 3 13 $ : $ u = .6 : $ 4 u = 0.0 $ : 21 $ : $ u = 2.0 u = 0, i > 21 $ 11 i $ $ C. Theory $ $ As shown in Reference 11, Chapter 6, the wave velocity c is, $ $ c = +/- sqrt(T/mu) = +/- x sqrt(k /m ) = +/-1000 points/unit time (1) $ i i $ $ The initial displacement may be divided into two waves, traveling in opposite $ directions. The first wave travels outward; the second wave travels toward the $ fixed support and reflects with a sign change. $ $ D. Results $ $ The theoretical and NASTRAN results are quite close, when both waves have $ traveled their complete width. $ $ APPLICABLE REFERENCES $ $ 11. I. S. Sokolnikoff and R. M. Redheffer, MATHEMATICS OF PHYSICS AND MODERN $ ENGINEERING. McGraw-Hill, 1958. $------------------------------------------------------------------------------- ================================================ FILE: inp/d09022a.inp ================================================ ID D09022A,NASTRAN ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/,G2,,,/C,N,5 $ EQUIV G2,GEOM2/TRUE $ ENDALTER $ TIME 16 APP DISP SOL 9,1 DIAG 14 CEND TITLE = TRANSIENT ANALYSIS OF A 1000 CELL STRING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A LABEL = TRAVELING WAVE PROBLEM TSTEP = 9 IC = 9 OUTPUT SET 1 = 2,4,5,6,10,12,14,16,18,20,22,24,26,28,30,40,50, 100,200,500 DISPLACEMENT = 1 VELOCITY = 1 BEGIN BULK TIC 9 2 .2 TIC 9 3 .4 TIC 9 4 .6 TIC 9 5 .8 TIC 9 6 1.0 TIC 9 7 1.2 TIC 9 8 1.4 TIC 9 9 1.6 TIC 9 10 1.8 TIC 9 11 2.0 TIC 9 12 1.8 TIC 9 13 1.6 TIC 9 14 1.4 TIC 9 15 1.2 TIC 9 16 1.0 TIC 9 17 .8 TIC 9 18 .6 TIC 9 19 .4 TIC 9 20 .2 TSTEP 9 50 .5-3 1 ENDDATA 1000 1.0E+07 0.0 1.0E+01 0.0 ================================================ FILE: inp/d09022a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 9, Transient Analysis - Direct Formulation $ Transient Analysis of a 1000 Cell String, Traveling Wave Problem (9-2-1) $ Transient Analysis of a 1000 Cell String, Traveling Wave Problem $ (INPUT, 9-2-2) $ $ A. Description $ $ This problem illustrates the ability of NASTRAN to perform time integration $ studies using the structural matrices directly. At each time step the applied $ loads, the structural matrices, and the previous displacements are used to $ calculate a new set of displacements, velocities, and accelerations. Initial $ displacements and velocities are also allowed for all unconstrained $ coordinates. The INPUT module is used to generate the scalar springs and $ masses. $ $ The structural model consists of a 1000 cell string under constant tension $ modeled by scalar elements. The string is given an initial condition at one $ end consisting of a triangular shaped set of initial displacements. The wave $ will then travel along the string, retaining its initial shape. The ends of $ the string are fixed, causing the wave to reflect with a sign reversal. $ $ B. Input $ $ 1. Parameters: $ $ T 7 $ k = ------- = 10 - scalar spring rates $ i delta x $ $ m = mu delta x = 10 - scalar masses $ i $ $ N = 1000 - number of cells $ $ where $ $ T is the tension $ $ delta x is the incremental length $ $ mu is the mass per unit length $ $ 2. Loads: $ $ The initial displacements are; $ $ u = .2 u = 1.8 $ 2 12 $ $ u = .4 u = 1.6 $ 3 13 $ : $ u = .6 : $ 4 u = 0.0 $ : 21 $ : $ u = 2.0 u = 0, i > 21 $ 11 i $ $ C. Theory $ $ As shown in Reference 11, Chapter 6, the wave velocity c is, $ $ c = +/- sqrt(T/mu) = +/- x sqrt(k /m ) = +/-1000 points/unit time (1) $ i i $ $ The initial displacement may be divided into two waves, traveling in opposite $ directions. The first wave travels outward; the second wave travels toward the $ fixed support and reflects with a sign change. $ $ D. Results $ $ The theoretical and NASTRAN results are quite close, when both waves have $ traveled their complete width. $ $ APPLICABLE REFERENCES $ $ 11. I. S. Sokolnikoff and R. M. Redheffer, MATHEMATICS OF PHYSICS AND MODERN $ ENGINEERING. McGraw-Hill, 1958. $------------------------------------------------------------------------------- ================================================ FILE: inp/d09031a.inp ================================================ NASTRAN FILES=PLT2 ID D09031A,NASTRAN APP DISPLACEMENT SOL 9,3 TIME 100 CEND TITLE = TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER. SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A LABEL = THIRD HARMONIC ANALYSIS. TSTEP = 10 DLOAD = 10 SPC = 3 AXISYMMETRIC = FLUID OUTPUT HARMONICS = 3 SET 100 = 10,11, 26,27, 42,43, 58,59, 74,75, 81 THRU 96, 106,107, 122,123, 138,139, 154,155, 170,171 DISPLACEMENT = 100 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A OUTPUT(XYPLOT) PLOTTER = NASTPLT XTGRID = YES YTGRID = YES XBGRID = YES YBGRID = YES XDIVISIONS = 10 CURVELINESYMBOL = 1 XTITLE = TIME (SECONDS) YTTITLE = R DISP -INCHES- YBTITLE = R DISP -INCHES- $ TCURVE = PLOTTED *TOP GRID 91(Z=5,A=0), *BOTTOM GRID 110(Z=5,A=18) XYPLOT DISP /91(T1,), 110(,T1) TCURVE = PLOTTED GRID(A=0,18) *TOP - 59,62(Z=7) *BOTTOM 123,126(Z=3) XYPLOT DISP /59(T1,), 62(T1,), 123(,T1),126(,T1) $ YTTITLE = PRESSURE *LB/INCH* YBTITLE = PRESSURE *LB/INCH* TCURVE = PLOTTED PRESPT (Z=5,A=0) *TOP 5301(R=3) *BOTTOM 5801(R=8) XYPLOT DISP / 5301(T1,), 5801(,T1) TCURVE = PLOTTED PRESPT (R=5,A=0,Z=3,5,7)*TOP 3501,5501 *BOT 7501,5501 XYPLOT DISP / 5501(T1,T1), 3501(T1,), 7501(,T1) YTITLE = R DISP -INCH- TCURVE = PLOTTED DISP AT MIDPOINT(Z=5.), ANGLE = 0.0 AND 18.0 DEGREES. XYPLOT DISP / 91(T1), 110(T1) YTITLE = HARMONIC PRESSURE TCURVE = PLOTTED RINGFL (R=5,Z=5) * 85 XYPLOT DISP / 4000085 (T1) $ BEGIN BULK AXIF 1 .0 1.8-2 .00 NO +AXIF +AXIF 3 BDYLIST 10 26 42 58 74 90 106 +BDY-1 +BDY-1 122 138 154 170 CFLUID2 1001 17 1 CFLUID2 2001 33 17 CFLUID2 3001 49 33 CFLUID2 4001 65 49 CFLUID2 5001 81 65 CFLUID2 6001 97 81 CFLUID2 7001 113 97 CFLUID2 8001 129 113 CFLUID2 9001 145 129 CFLUID2 10001 161 145 CFLUID4 1002 18 2 1 17 CFLUID4 1003 19 3 2 18 CFLUID4 1004 20 4 3 19 CFLUID4 1005 21 5 4 20 CFLUID4 1006 22 6 5 21 CFLUID4 1007 23 7 6 22 CFLUID4 1008 24 8 7 23 CFLUID4 1009 25 9 8 24 CFLUID4 1010 26 10 9 25 CFLUID4 2002 34 18 17 33 CFLUID4 2003 35 19 18 34 CFLUID4 2004 36 20 19 35 CFLUID4 2005 37 21 20 36 CFLUID4 2006 38 22 21 37 CFLUID4 2007 39 23 22 38 CFLUID4 2008 40 24 23 39 CFLUID4 2009 41 25 24 40 CFLUID4 2010 42 26 25 41 CFLUID4 3002 50 34 33 49 CFLUID4 3003 51 35 34 50 CFLUID4 3004 52 36 35 51 CFLUID4 3005 53 37 36 52 CFLUID4 3006 54 38 37 53 CFLUID4 3007 55 39 38 54 CFLUID4 3008 56 40 39 55 CFLUID4 3009 57 41 40 56 CFLUID4 3010 58 42 41 57 CFLUID4 4002 66 50 49 65 CFLUID4 4003 67 51 50 66 CFLUID4 4004 68 52 51 67 CFLUID4 4005 69 53 52 68 CFLUID4 4006 70 54 53 69 CFLUID4 4007 71 55 54 70 CFLUID4 4008 72 56 55 71 CFLUID4 4009 73 57 56 72 CFLUID4 4010 74 58 57 73 CFLUID4 5002 82 66 65 81 CFLUID4 5003 83 67 66 82 CFLUID4 5004 84 68 67 83 CFLUID4 5005 85 69 68 84 CFLUID4 5006 86 70 69 85 CFLUID4 5007 87 71 70 86 CFLUID4 5008 88 72 71 87 CFLUID4 5009 89 73 72 88 CFLUID4 5010 90 74 73 89 CFLUID4 6002 98 82 81 97 CFLUID4 6003 99 83 82 98 CFLUID4 6004 100 84 83 99 CFLUID4 6005 101 85 84 100 CFLUID4 6006 102 86 85 101 CFLUID4 6007 103 87 86 102 CFLUID4 6008 104 88 87 103 CFLUID4 6009 105 89 88 104 CFLUID4 6010 106 90 89 105 CFLUID4 7002 114 98 97 113 CFLUID4 7003 115 99 98 114 CFLUID4 7004 116 100 99 115 CFLUID4 7005 117 101 100 116 CFLUID4 7006 118 102 101 117 CFLUID4 7007 119 103 102 118 CFLUID4 7008 120 104 103 119 CFLUID4 7009 121 105 104 120 CFLUID4 7010 122 106 105 121 CFLUID4 8002 130 114 113 129 CFLUID4 8003 131 115 114 130 CFLUID4 8004 132 116 115 131 CFLUID4 8005 133 117 116 132 CFLUID4 8006 134 118 117 133 CFLUID4 8007 135 119 118 134 CFLUID4 8008 136 120 119 135 CFLUID4 8009 137 121 120 136 CFLUID4 8010 138 122 121 137 CFLUID4 9002 146 130 129 145 CFLUID4 9003 147 131 130 146 CFLUID4 9004 148 132 131 147 CFLUID4 9005 149 133 132 148 CFLUID4 9006 150 134 133 149 CFLUID4 9007 151 135 134 150 CFLUID4 9008 152 136 135 151 CFLUID4 9009 153 137 136 152 CFLUID4 9010 154 138 137 153 CFLUID4 10002 162 146 145 161 CFLUID4 10003 163 147 146 162 CFLUID4 10004 164 148 147 163 CFLUID4 10005 165 149 148 164 CFLUID4 10006 166 150 149 165 CFLUID4 10007 167 151 150 166 CFLUID4 10008 168 152 151 167 CFLUID4 10009 169 153 152 168 CFLUID4 10010 170 154 153 169 CORD2C 1 .0 .0 .0 .0 .0 1.0 +CORD2C +CORD2C 1.0 .0 .0 CQUAD1 1011 1 27 28 12 11 CQUAD1 1012 1 28 29 13 12 CQUAD1 1013 1 29 30 14 13 CQUAD1 1014 1 30 31 15 14 CQUAD1 1015 1 31 32 16 15 CQUAD1 2011 1 43 44 28 27 CQUAD1 2012 1 44 45 29 28 CQUAD1 2013 1 45 46 30 29 CQUAD1 2014 1 46 47 31 30 CQUAD1 2015 1 47 48 32 31 CQUAD1 3011 1 59 60 44 43 CQUAD1 3012 1 60 61 45 44 CQUAD1 3013 1 61 62 46 45 CQUAD1 3014 1 62 63 47 46 CQUAD1 3015 1 63 64 48 47 CQUAD1 4011 1 75 76 60 59 CQUAD1 4012 1 76 77 61 60 CQUAD1 4013 1 77 78 62 61 CQUAD1 4014 1 78 79 63 62 CQUAD1 4015 1 79 80 64 63 CQUAD1 5011 1 91 92 76 75 CQUAD1 5012 1 92 93 77 76 CQUAD1 5013 1 93 94 78 77 CQUAD1 5014 1 94 95 79 78 CQUAD1 5015 1 95 96 80 79 CQUAD1 6011 1 107 108 92 91 CQUAD1 6012 1 108 109 93 92 CQUAD1 6013 1 109 110 94 93 CQUAD1 6014 1 110 111 95 94 CQUAD1 6015 1 111 112 96 95 CQUAD1 7011 1 123 124 108 107 CQUAD1 7012 1 124 125 109 108 CQUAD1 7013 1 125 126 110 109 CQUAD1 7014 1 126 127 111 110 CQUAD1 7015 1 127 128 112 111 CQUAD1 8011 1 139 140 124 123 CQUAD1 8012 1 140 141 125 124 CQUAD1 8013 1 141 142 126 125 CQUAD1 8014 1 142 143 127 126 CQUAD1 8015 1 143 144 128 127 CQUAD1 9011 1 155 156 140 139 CQUAD1 9012 1 156 157 141 140 CQUAD1 9013 1 157 158 142 141 CQUAD1 9014 1 158 159 143 142 CQUAD1 9015 1 159 160 144 143 CQUAD1 10011 1 171 172 156 155 CQUAD1 10012 1 172 173 157 156 CQUAD1 10013 1 173 174 158 157 CQUAD1 10014 1 174 175 159 158 CQUAD1 10015 1 175 176 160 159 DAREA 1 27 1 .32345 28 1 .61525 DAREA 1 29 1 .52336 30 1 .38024 DAREA 1 31 1 .19991 32 1 3.23-10 DAREA 1 43 1 .61525 44 1 1.17027 DAREA 1 45 1 .99549 46 1 .72327 DAREA 1 47 1 .38024 48 1 6.14-10 DAREA 1 59 1 .84681 60 1 1.61074 DAREA 1 61 1 1.37017 62 1 .99549 DAREA 1 63 1 .52336 64 1 8.44-10 DAREA 1 75 1 .99549 76 1 1.89353 DAREA 1 77 1 1.61074 78 1 1.17027 DAREA 1 79 1 .61525 80 1 9.93-10 DAREA 1 91 1 1.04672 92 1 1.99098 DAREA 1 93 1 1.69363 94 1 1.23049 DAREA 1 95 1 .64691 96 1 1.044-9 DAREA 1 107 1 .99549 108 1 1.89353 DAREA 1 109 1 1.61074 110 1 1.17027 DAREA 1 111 1 .61525 112 1 9.93-10 DAREA 1 123 1 .84681 124 1 1.61074 DAREA 1 125 1 1.37017 126 1 .99549 DAREA 1 127 1 .52336 128 1 8.44-10 DAREA 1 139 1 .61525 140 1 1.17027 DAREA 1 141 1 .99549 142 1 .72327 DAREA 1 143 1 .38024 144 1 6.14-10 DAREA 1 155 1 .32345 156 1 .61525 DAREA 1 157 1 .52336 158 1 .38024 DAREA 1 159 1 .19991 160 1 3.23-10 FLSYM 12 S A FSLIST AXIS 1 2 3 4 5 6 +FSL-1 +FSL-1 7 8 9 10 FSLIST 170 169 168 167 166 165 164 +FSL-2 +FSL-2 163 162 161 AXIS GRIDB 11 0.0 1 4 10 GRIDB 12 6.00000 1 4 10 GRIDB 13 12.0000 1 4 10 GRIDB 14 18.0000 1 4 10 GRIDB 15 24.0000 1 4 10 GRIDB 16 30.0000 1 4 10 GRIDB 27 0.0 1 4 26 GRIDB 28 6.00000 1 4 26 GRIDB 29 12.0000 1 4 26 GRIDB 30 18.0000 1 4 26 GRIDB 31 24.0000 1 4 26 GRIDB 32 30.0000 1 4 26 GRIDB 43 0.0 1 4 42 GRIDB 44 6.00000 1 4 42 GRIDB 45 12.0000 1 4 42 GRIDB 46 18.0000 1 4 42 GRIDB 47 24.0000 1 4 42 GRIDB 48 30.0000 1 4 42 GRIDB 59 0.0 1 4 58 GRIDB 60 6.00000 1 4 58 GRIDB 61 12.0000 1 4 58 GRIDB 62 18.0000 1 4 58 GRIDB 63 24.0000 1 4 58 GRIDB 64 30.0000 1 4 58 GRIDB 75 0.0 1 4 74 GRIDB 76 6.00000 1 4 74 GRIDB 77 12.0000 1 4 74 GRIDB 78 18.0000 1 4 74 GRIDB 79 24.0000 1 4 74 GRIDB 80 30.0000 1 4 74 GRIDB 91 0.0 1 4 90 GRIDB 92 6.00000 1 4 90 GRIDB 93 12.0000 1 4 90 GRIDB 94 18.0000 1 4 90 GRIDB 95 24.0000 1 4 90 GRIDB 96 30.0000 1 4 90 GRIDB 107 0.0 1 4 106 GRIDB 108 6.00000 1 4 106 GRIDB 109 12.0000 1 4 106 GRIDB 110 18.0000 1 4 106 GRIDB 111 24.0000 1 4 106 GRIDB 112 30.0000 1 4 106 GRIDB 123 0.0 1 4 122 GRIDB 124 6.00000 1 4 122 GRIDB 125 12.0000 1 4 122 GRIDB 126 18.0000 1 4 122 GRIDB 127 24.0000 1 4 122 GRIDB 128 30.0000 1 4 122 GRIDB 139 0.0 1 4 138 GRIDB 140 6.00000 1 4 138 GRIDB 141 12.0000 1 4 138 GRIDB 142 18.0000 1 4 138 GRIDB 143 24.0000 1 4 138 GRIDB 144 30.0000 1 4 138 GRIDB 155 0.0 1 4 154 GRIDB 156 6.00000 1 4 154 GRIDB 157 12.0000 1 4 154 GRIDB 158 18.0000 1 4 154 GRIDB 159 24.0000 1 4 154 GRIDB 160 30.0000 1 4 154 GRIDB 171 0.0 1 4 170 GRIDB 172 6.00000 1 4 170 GRIDB 173 12.0000 1 4 170 GRIDB 174 18.0000 1 4 170 GRIDB 175 24.0000 1 4 170 GRIDB 176 30.0000 1 4 170 MAT1 2 1.6+5 6.0+4 6.0-2 PQUAD1 1 2 .01 2 8.3333-8 +PQUAD1 +PQUAD1 .0 .005 PRESPT 21 1501 +0.0 PRESPT 53 3501 +0.0 PRESPT 81 5101 +0.0 PRESPT 82 5201 +0.0 PRESPT 83 5301 +0.0 PRESPT 84 5401 +0.0 PRESPT 85 5501 +0.0 5502 30.0 5503 60.0 PRESPT 86 5601 +0.0 PRESPT 87 5701 +0.0 PRESPT 88 5801 +0.0 PRESPT 89 5901 +0.0 PRESPT 117 7501 +0.0 PRESPT 149 9501 +0.0 RINGFL 1 1.00000 10.0000 2 2.00000 10.0000 RINGFL 3 3.00000 10.0000 4 4.00000 10.0000 RINGFL 5 5.00000 10.0000 6 6.00000 10.0000 RINGFL 7 7.00000 10.0000 8 8.00000 10.0000 RINGFL 9 9.00000 10.0000 10 10.0000 10.0000 RINGFL 17 1.00000 9.00000 18 2.00000 9.00000 RINGFL 19 3.00000 9.00000 20 4.00000 9.00000 RINGFL 21 5.00000 9.00000 22 6.00000 9.00000 RINGFL 23 7.00000 9.00000 24 8.00000 9.00000 RINGFL 25 9.00000 9.00000 26 10.0000 9.00000 RINGFL 33 1.00000 8.00000 34 2.00000 8.00000 RINGFL 35 3.00000 8.00000 36 4.00000 8.00000 RINGFL 37 5.00000 8.00000 38 6.00000 8.00000 RINGFL 39 7.00000 8.00000 40 8.00000 8.00000 RINGFL 41 9.00000 8.00000 42 10.0000 8.00000 RINGFL 49 1.00000 7.00000 50 2.00000 7.00000 RINGFL 51 3.00000 7.00000 52 4.00000 7.00000 RINGFL 53 5.00000 7.00000 54 6.00000 7.00000 RINGFL 55 7.00000 7.00000 56 8.00000 7.00000 RINGFL 57 9.00000 7.00000 58 10.0000 7.00000 RINGFL 65 1.00000 6.00000 66 2.00000 6.00000 RINGFL 67 3.00000 6.00000 68 4.00000 6.00000 RINGFL 69 5.00000 6.00000 70 6.00000 6.00000 RINGFL 71 7.00000 6.00000 72 8.00000 6.00000 RINGFL 73 9.00000 6.00000 74 10.0000 6.00000 RINGFL 81 1.00000 5.00000 82 2.00000 5.00000 RINGFL 83 3.00000 5.00000 84 4.00000 5.00000 RINGFL 85 5.00000 5.00000 86 6.00000 5.00000 RINGFL 87 7.00000 5.00000 88 8.00000 5.00000 RINGFL 89 9.00000 5.00000 90 10.0000 5.00000 RINGFL 97 1.00000 4.00000 98 2.00000 4.00000 RINGFL 99 3.00000 4.00000 100 4.00000 4.00000 RINGFL 101 5.00000 4.00000 102 6.00000 4.00000 RINGFL 103 7.00000 4.00000 104 8.00000 4.00000 RINGFL 105 9.00000 4.00000 106 10.0000 4.00000 RINGFL 113 1.00000 3.00000 114 2.00000 3.00000 RINGFL 115 3.00000 3.00000 116 4.00000 3.00000 RINGFL 117 5.00000 3.00000 118 6.00000 3.00000 RINGFL 119 7.00000 3.00000 120 8.00000 3.00000 RINGFL 121 9.00000 3.00000 122 10.0000 3.00000 RINGFL 129 1.00000 2.00000 130 2.00000 2.00000 RINGFL 131 3.00000 2.00000 132 4.00000 2.00000 RINGFL 133 5.00000 2.00000 134 6.00000 2.00000 RINGFL 135 7.00000 2.00000 136 8.00000 2.00000 RINGFL 137 9.00000 2.00000 138 10.0000 2.00000 RINGFL 145 1.00000 1.00000 146 2.00000 1.00000 RINGFL 147 3.00000 1.00000 148 4.00000 1.00000 RINGFL 149 5.00000 1.00000 150 6.00000 1.00000 RINGFL 151 7.00000 1.00000 152 8.00000 1.00000 RINGFL 153 9.00000 1.00000 154 10.0000 1.00000 RINGFL 161 1.00000 0.0 162 2.00000 0.0 RINGFL 163 3.00000 0.0 164 4.00000 0.0 RINGFL 165 5.00000 0.0 166 6.00000 0.0 RINGFL 167 7.00000 0.0 168 8.00000 0.0 RINGFL 169 9.00000 0.0 170 10.0000 0.0 SPC1 3 126 11 12 13 14 15 16 SPC1 3 126 171 172 173 174 175 176 SPC1 3 135 16 32 48 64 80 96 H=3 SPC1 3 135 112 128 144 160 176 H=3 SPC1 3 246 11 27 43 59 75 91 H=3 SPC1 3 246 107 123 139 155 171 H=3 TLOAD2 10 1 .0 1.0 .0 .0 TSTEP 10 50 .02 2 ENDDATA ================================================ FILE: inp/d09031a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 9, Transient Analysis - Direct Formulation $ Transient Analysis of a Fluid-Filled Elastic Cylinder (9-3-1) $ $ A. Description $ $ The fluid-filled shell used for analysis of the third harmonic in $ Demonstration Problem No. 7-2-1 is subjected to a step change in external $ pressure at t = 0 of the form $ $ pi z $ p = p sin ---- cos n phi $ o l $ $ The fluid is assumed incompressible in order to obtain an analytical solution $ with reasonable effort. The harmonic used is n = 3. $ $ In addition to the cards of Demonstration Problem No. 7-2-1, DAREA, PRESPT, $ TLOAD2, and TSTEP cards are also used. Selected displacements and pressures $ are plotted against time. $ $ B. Input $ $ Parameters used are: $ $ B = infinity (Bulk modulus of fluid - incompressible) $ $ -2 2 4 $ p = 1.8 x 10 lb-sec /in (Fluid mass density) $ f $ $ -2 2 4 $ p = 6.0 x 10 lb-sec /in (Structure mass density) $ s $ 5 2 $ E = 1.6 x 10 lb/in (Young's modulus for structure) $ $ 4 2 $ G = 6.0 x 10 lb/in (Shear modulus for structure) $ $ a = 10.0 inch (Radius of cylinder) $ $ l = 10.0 inch (Length of cylinder) $ $ h = 0.01 inch (Thickness of cylinder wall) $ $ p = 2.0 (Pressure load coefficient) $ o $ $ C. Theory $ $ The theory was derived with the aid of Reference 16 as in Demonstration $ Problem No. 7-2-1. Since the fluid is incompressible, it acts on the structure $ like a pure mass. Neglecting the bending stiffness, the equation of force on $ the structure is: $ $ 2 $ .. 1 a F $ p = (m + m ) w + - --- (1) $ s f a 2 $ aZ $ $ where: $ $ p is the loading pressure on the structure (positive outward). $ s $ $ m = p h is the mass per area of the structure. $ s $ $ m is the apparent mass of the fluid. $ f $ $ w is the normal displacement (positive outward). $ $ The function F is defined by the equation, $ $ 2 $ 4 Eh a w $ gradient F = -- --- (2) $ a 2 $ az $ $ The spatial functions of pressure, displacement, and function F may be written $ in the form: $ $ pi z $ p = p sin ---- cos n phi $ s o l $ $ pi z $ w = w sin ---- cos n phi (3) $ o l $ $ pi z $ F = F sin ---- cos n phi $ o l $ $ where p , w , and F are variables with respect to time only. $ o o o $ $ Substituting Equations 3 into Equation 2 we obtain: $ $ w $ Eh 2 o $ F = - -- (l/pi) ----------------- (4) $ o a 2 2 $ [1 + (nl/pi a) ] $ $ Substituting Equations 3 and 4 into Equation 1 we obtain: $ $ .. Eh $ p = (m + m ) w + ------------------- w (5) $ o f o 2 2 2 o $ a [1 + (nl/pi a) ] $ $ The incompressible fluid is described by the differential equation: $ $ 2 $ gradient p = 0 (6) $ $ Applying the appropriate boundary conditions to Equation 6 results in the $ pressure distribution: $ $ pi z pi r $ p = p sin ---- cos (n phi) I (----) (7) $ r l n l $ $ where I is the modified Bessel function of the first kind and is an $ n $ undetermined variable. The balance of pressure and flow at the boundary of the $ fluid, with no structural effects, is described by the equations: $ $ pi a $ p = - p I (----) (8) $ o r n l $ $ .. ap | $ p w = - -- | (9) $ f ar |r=a $ $ Substituting Equations 3 and 7 into Equation 9 results in: $ $ .. pi pi a $ p w = -- I' (----) p (10) $ f o l n l r $ $ Eliminating P with Equations 8 and 10 gives the expression for apparent mass, $ f $ m : $ f $ $ .. $ p w $ pi a f o .. $ p = I (----) ------------ = m w (11) $ o n l pi pi a f o $ -- I' (----) $ l n l $ $ Substituting the expression for mf from Equation 11 into Equation 5 results in $ a simple single degree of freedom system. When the applied loading pressure $ is a step function at t = 0, $ $ p $ o pi z $ w = -- (1 - cos n phi) sin ---- cos n phi (12) $ k l $ $ where $ $ w = sqrt(k/m ) $ T $ $ and $ $ Eh $ k = ------------------- $ 2 2 2 $ a [1 + (nl/pi a) ] $ $ and $ $ I (pi a/l) $ l n $ m = m + m = p h + p -- ---------- $ T f s f pi I'(pi a/l) $ n $ $ D. Results $ $ A transient analysis was performed for the case n = 3 on the model and various $ displacements and pressures were output versus time up to one second. The $ theoretical frequency is calculated to be 1.580 Hertz and the period is 0.633 $ seconds. The displacements at two points on the structure (Point 91 is located $ at phi = 0, z = 5.0; Point 94 is located at phi = 18 degrees, z = 5.0) were $ plotted versus time. $ $ The maximum error for the first full cycle occurs at the end of the cycle. $ The ratio of the error to maximum displacement is 4.75%. Changes in the time $ step used in the transient integration algorithm did not affect the accuracy $ to any great extent. The most probable causes for error were the mesh size of $ the model and the method used to apply the distributed load. The applied load $ was calculated by multiplying the pressure value at the point by an associated $ area. The "consistent method" of assuming a cubic polynomial displacement and $ integrating would eliminate the extraneous response of higher modes. The $ method chosen in this problem, however, is typical of actual applications. $ $ APPLICABLE REFERENCES $ $ 16. J. G. Berry and E. Reissner, "The Effect of an Internal Compressible Fluid $ Column on the Breathing Vibrations of a Thin Pressurized Cylindrical $ Shell", Journal of the Aeronautical Sciences, Vol. 25, No. 5, pp 288-294, $ May 1958. $------------------------------------------------------------------------------- ================================================ FILE: inp/d09041a.inp ================================================ ID D09041A,NASTRAN APP HEAT SOL 9,1 TIME 10 CEND TITLE = LINEAR TRANSIENT HEAT ANALYSIS OF A PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A TEMP(MATERIAL) = 60 SPC = 21 IC = 60 DLOAD = 70 TSTEP = 80 SET 21 = 21 OUTPUT THERMAL= ALL OLOAD = ALL SPCF = 21 BEGIN BULK CELAS2 28 3.0+8 20 1 21 1 CHBDY 31 2 LINE 10 12 CHBDY 33 2 LINE 12 14 CHBDY 35 2 LINE 14 16 CHBDY 37 2 LINE 16 18 CHBDY 39 2 LINE 18 20 CROD 11 1 10 12 13 1 12 14 CROD 15 1 14 16 17 1 16 18 CROD 19 1 18 20 DAREA 70 20 0 1.5+8 GRID 10 .0 .0 .0 GRID 12 .2 .0 .0 GRID 14 .4 .0 .0 GRID 16 .6 .0 .0 GRID 18 .8 .0 .0 GRID 20 1.0 .0 .0 GRID 21 1.0 MAT4 1 1.0 2.4674 PHBDY 2 1.0 PROD 1 1 1.0 QBDY1 70 100.0 31 33 35 37 39 SPC 21 21 1 TEMPD 60 .0 TLOAD2 70 70 0 .0 100.0 TSTEP 80 100 .05 2 ENDDATA ================================================ FILE: inp/d09041a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 9 (APP HEAT), Linear Transient Heat Transfer Analysis $ Plate with Suddenly Applied Flux and Edge Temperature (9-4-1) $ $ A. Description $ $ The time history of the temperature in a long thin plate initially at zero $ degrees is analyzed using NASTRAN's transient heat analysis capability. At $ time t=0 a heat flux is applied on one surface of the plate and simultaneously $ the temperature along the edges is increased. These temperatures are $ maintained at a value by using a large heat flux through a good conductor to $ ground. The problem is one dimensional since it is assumed that no temperature $ variation exists along the length or through the thickness. Since the plate is $ symmetric about the center plane, only one half of the plate is modeled. $ $ B. Input $ $ The idealized NASTRAN model is represented by five ROD elements going from the $ centerplane to the edge. The conductor-ground arrangement is modeled by an $ ELAS2 element and an SPC card referenced in Case Control. The injected heat $ flux at the edge is specified using DAREA and TLOAD2 cards which are $ referenced in Case Control through a DLOAD card. The surface heat flux is $ specified on a QBDY1 card and references the TLOAD2 card. The time step $ intervals at which the solution is generated are given on the TSTEP card. The $ initial temperature conditions are specified on the TEMPD card and referenced $ in Case Control by an IC card. The heat capacity and conductivity are given on $ the MAT4 card. $ $ C. Theory $ $ The analytic solution is $ $ n 2 $ 4 (-1) -(2n+1) t $ T(x,t) = 0.5 [ 1 - -- sum from n=0 to infinity ------ e $ pi (2n+1) $ $ 2 32 $ cos(2n+1) pi x/2 ] + 50. [ (1 - x ) - --- (1) $ 3 $ pi $ $ n 2 $ (-1) -(2n+1) t $ sum from n=0 to infinity ------- e cos(2n+1)pi x/2 ] $ 3 $ (2n+1) $ $ D. Results $ $ A comparison of theoretical and NASTRAN results is given in Table 1. $ $ Table 1. Theoretical and NASTRAN Temperatures $ --------------------------------------------------------------------- $ GRID(X) $ --------------------------------------------------- $ 10(0.) 12(.2) 14(.4) 16(.6) 18(.8) 20(1.) $ --------------------------------------------------------------------- $ Theory* 0. 0. 0. 0. 0. 0. $ t = 0 $ NASTRAN 0. 0. 0. 0. 0. 0. $ --------------------------------------------------------------------- $ Theory* 31.282 30.222 26.952 21.204 12.562 .500 $ t = 1 $ NASTRAN 30.641 29.612 26.433 20.826 12.362 .500 $ --------------------------------------------------------------------- $ Theory* 43.430 41.776 36.780 28.344 16.316 .500 $ t = 2 $ NASTRAN 43.117 41.478 36.527 28.160 16.218 .500 $ --------------------------------------------------------------------- $ Theory* 47.916 46.026 40.396 30.971 17.696 .500 $ t = 3 $ NASTRAN 47.755 45.890 40.280 30.887 17.652 .500 $ --------------------------------------------------------------------- $ t = infinity $ Theory 50.500 48.500 42.500 32.500 18.500 .500 $ --------------------------------------------------------------------- $ * n = 0 term only. $------------------------------------------------------------------------------- ================================================ FILE: inp/d10011a.inp ================================================ ID D10011A,NASTRAN TIME 25 APP DISPLACEMENT SOL 10,1 DIAG 14 ALTER 88 $ MATGPR GPLD,USETD,SILD,PHIA // C,N,H / C,N,A $ ENDALTER $ CEND TITLE = COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A LABEL = FLEXIBLE STRUCTURE CASE MPC = 101 METHOD = 2 TFL = 20 CMETHOD = 11 OUTPUT SET 1 = 1,100,101,1010 THRU 1090 SVECTOR(SORT1,PHASE) = ALL DISPLACEMENT(SORT1,PHASE) = 1 BEGIN BULK BAROR .0 10.0 .0 1 CBAR 1 10 1 2 CBAR 2 10 2 3 CBAR 3 10 3 4 CBAR 4 10 4 5 CBAR 5 10 5 6 CBAR 6 10 6 7 CBAR 7 10 7 8 CBAR 8 10 8 9 CBAR 9 10 9 10 CBAR 10 20 10 11 CBAR 11 20 11 12 CBAR 12 20 12 13 CBAR 13 20 13 14 CBAR 14 20 14 15 CBAR 15 20 15 16 CELAS4 1001 2.0261+71001 1002 32.417+71002 CELAS4 1003 164.11+71003 1004 518.68+71004 CMASS4 2001 2.5+3 1001 2001 2002 2.5+3 1002 2002 CMASS4 2003 2.5+3 1003 2003 2004 2.5+3 1004 2004 CONM2 101 1 3333.333 CONM2 102 2 6666.667 CONM2 103 3 6666.667 CONM2 104 4 6666.667 CONM2 105 5 6666.667 CONM2 106 6 6666.667 CONM2 107 7 6666.667 CONM2 108 8 6666.667 CONM2 109 9 6666.667 CONM2 110 10 5000.000 CONM2 111 11 3333.333 CONM2 112 12 3333.333 CONM2 113 13 3333.333 CONM2 114 14 3333.333 CONM2 115 15 3333.333 CONM2 116 16 2500.0 CONM2 117 17 1666.667 CONM2 118 18 1666.667 CONM2 119 19 833.333 EIGC 11 DET MAX +EC +EC -2.0 -1.0 -2.0 10.0 10.0 6 6 EIGC 12 INV MAX +EC1 +EC1 .0 -1.0 .0 10.0 10.0 6 6 EIGC 13 INV MAX EIGC13 +IGC13 -1.0 .0 -1.0 10.0 10.0 6 6 EIGP 11 .0 .0 2 EIGR 1 INV .0 1.0 1 2 2 +E1 +E1 MASS EIGR 2 INV .0 12.0 5 7 +E2 +E2 MASS EPOINT 1010 1011 1030 1040 1050 1060 1070 1080 EPOINT 1020 1021 GRDSET 1345 GRID 1 .0 .0 .0 GRID 2 16.66667.0 .0 GRID 3 33.33333.0 .0 GRID 4 50.0 .0 .0 GRID 5 66.66666.0 .0 GRID 6 83.33333.0 .0 GRID 7 100.0 .0 .0 GRID 8 116.6667.0 .0 GRID 9 133.3333.0 .0 GRID 10 150.000 .0 .0 GRID 11 166.6667.0 .0 GRID 12 183.3333.0 .0 GRID 13 200.00 .0 .0 GRID 14 216.6667.0 .0 GRID 15 233.3333.0 .0 GRID 16 250.000 .0 .0 GRID 17 266.6667.0 .0 123456 GRID 18 283.3333.0 .0 123456 GRID 19 300.000 .0 .0 GRID 100 166.176 .0 .0 GRID 101 116.176 .0 .0 MAT1 1 10.4+6 4.0+6 MPC 3 16 6 -1.0 1001 .0628318 +161 +161 1002 .12566371003 .1884955 +162 +162 1004 .251327419 2 .02 +163 +163 16 2 -.02 MPC 3 19 6 -1.0 1001 -.062832 +191 +191 1002 .12566371003 -.188496 +192 +192 1004 .251327419 2 .02 +193 +193 16 2 -0.02 MPC 3 2001 1.57079616 2 1.0 +201 +201 19 2 1.0 MPC 3 2002 1.57079616 2 .5 +202 +202 19 2 -0.5 MPC 3 2003 1.57079616 2 .3333333 +203 +203 19 2 .3333333 MPC 3 2004 1.57079616 2 .25 +204 +204 19 2 -0.25 MPC 100 8 2 1.0 101 2 -1.0 +MPC2 +MPC2 101 6 -.491 MPC 100 8 6 1.0 101 6 -1.0 MPC 100 11 2 1.0 100 2 -1.0 +MPC1 +MPC1 100 6 -.491 MPC 100 11 6 1.0 100 6 -1.0 MPCADD 101 100 3 PARAM GRDPNT 101 PARAM LMODES 4 PBAR 10 1 4.0+2 6.0+4 6.0+4 PBAR 20 1 2.0+2 2.0+4 2.0+4 SEQGP 100 10.5 101 7.5 SPOINT 1001 1002 1003 1004 2001 2002 2003 2004 SUPORT 101 2 101 6 TF 20 1 2 .0 .0 50.0 +T6 +T6 1 6 .0 .0 -150.0 +T61 +T61 1070 0 -4.25+6 -150.0 TF 20 1 6 +T7 +T7 1060 1.0 +T71 TF 20 1010 1.0 +T8 +T8 100 2 -1.0 +T81 +T81 1080 -1.0 .0 .0 TF 20 1011 1.0 +T9 +T9 100 6 -1.0+2 TF 20 1020 1.0 TF 20 1021 .01 TF 20 1030 1.0 +T1 +T1 1020 -16.0 +T11 +T11 1021 -15.0 +T12 +T12 1010 -16.0 -28.0 +T13 +T13 1011 -15.0 -7.0 TF 20 1040 1.0 +T2 +T2 1030 -1.0 +T21 +T21 1070 100.0 14.14 TF 20 1050 1.0 +T3 +T3 1040 -1.0 TF 20 1060 1.0 +T4 +T4 1050 -500.0 TF 20 1070 .0 .0 500.0 +T5 +T5 1060 -1.0 +T51 +T51 1 6 .0 .0 500.0 +T52 +T52 1 2 .0 .0 -150.0 TF 20 1080 8.5+4 +TX +TX 1 6 -4.25+6 ENDDATA ================================================ FILE: inp/d10011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 10, Complex Eigenvalue Analysis - Modal Formulation $ Rocket Guidance and Control Problem (10-1-1) $ $ A. Description $ $ This problem, although a simplified model, contains all of the elements used $ in a linear control system analysis. The flexible structure consists of three $ sections: two sections are constructed of structural finite elements; the $ third section is formulated in terms of its modal coordinates. A sensor is $ located at an arbitrary point on the structure and connected to a structural $ point with multipoint constraints. The measured attitude and position of the $ sensor point is used to generate a control voltage for the gimbal angle of the $ thrust nozzle. The nozzle control is in itself a servomechanism consisting of $ an amplifier, a motor, and a position and velocity feedback control. The $ nozzle produces a force on the structure due to its mass and the angle of $ thrust. The motion of any point on the structure is dependent on the elastic $ motions, free-body notions, and large angle effects due to free-body rotation. $ $ The definitions for the variables and coefficients along with values for the $ coefficients are given in Table 1. The use of the Transfer Function data card $ (TF) allows the direct definition of the various relations. $ $ B. Theory $ $ A section of the structure is defined by its modaI coordinates by using a $ modification of the method given in the NASTRAN Theoretical Manual. The $ algorithm is given as follows: $ $ Define xi , i = 1, n - modal deflections scalar points $ i $ u - grid point components used as nonredundant $ r supports for modal test. These may or may not be $ connected to the rest of the structure. $ $ u - grid point components to be connected to the $ c remaining structure (not u points) $ r $ $ x i = 1, n - rigid body component degrees of freedom for the $ i nonzero nodes $ $ The relations between these variables are defined by using multipoint $ constraints with the following relationships: $ $ {u } = [phi ]{xi } + [D ]{u } (1) $ c ci i cr r $ $ where phi is the angular deflection of point u for mode i. D is the $ ci c cr $ deflection of point u when the structure is rigid and point u is given a $ c r $ unit deflection. $ $ -1 T $ {x } = [K ] [H] {u } = [G]{u } (2) $ i i r r $ $ where [K ] is a diagonal matrix. Each term K , the modal stiffness, is defined $ i i $ as: $ $ 2 $ K = m w (w not equal 0) (3) $ i i i i $ $ where m is the modal mass and w is the natural frequency in radians per $ i i $ second. [H] is determined by the forces on the support points due to each $ nonzero eigenvector: $ $ P = - sum from i H xi (w not equal 0) (4) $ r ri i i $ $ The structure to be added in this problem consists of a simply supported $ uniform bed. The support points, u , are y and y . The additional degree of $ r 16 19 $ freedom to be connected is u = theta . Four modes are used in the test $ c 16 $ problem. The following data is used to define and connect the modal $ coordinates of this substructure. The mode shapes are $ $ n pi x $ phi (x) = sin ------ (5) $ n l $ $ The modal frequencies, masses, and stiffness in terms of normal beam $ terminology are $ $ 2 2 $ n pi EI $ w = ----- -- (n = 1, 2, 3, 4) (6) $ n 2 pA $ l $ $ pAl $ m = --- (7) $ n 2 $ $ 4 4 $ n pi EI $ K = ------- (8) $ n 3 $ 2l $ $ The forces of support for each mode are $ $ 3 $ EIpi 3 $ P (16) = sum - ----- n (9) $ y 3 $ l $ $ 3 $ n EIpi 3 $ P (19) = sum (-1) ----- n (10) $ y 3 $ l $ $ The motion theta is defined by multipoint constraints: $ 16 $ $ 1 n pi $ theta = - (y - y ) + sum from n ---- xi (11) $ 16 l 19 16 l n $ $ The free-body components of the modes are defined, using multipoint constraints, $ as: $ $ + + + + $ | x | | 1 1 | $ | 1 | | | $ | | | | + + $ | x | 3 3 | 1/2 -1/2 | | y | $ | 2 | 2l EIpi | | | 16 | $ | | = - (-----) (-----) | | | | (12) $ | x | 4 3 | 1/3 1/3 | | y | $ | 3 | pi EI l | | | 19 | $ | | | | + + $ | x | | 1/4 -1/4 | $ | 4 | | | $ + + + + $ $ The mass of the nozzle would normally be included with the structural $ modeling. However, to demonstrate the flexibility of the Transfer Function $ data, it is modeled as part of the guidance system. Defining the angle of $ thrust, gamma, to be measured relative to the deformed structure, the forces $ which result are $ $ 2 .. .. .. $ T = (I + x m )(gamma + theta ) - m x y (13) $ no n i 1 n n 1 $ $ .. .. $ F = m y - x m (gamma + theta ) - F gamma (14) $ y n 1 n n 1 n $ $ Using the thrust force, F , as a constant, the transfer functions are $ n $ $ 2 2 2 $ I s gamma - T + I s theta - x m s y = 0 (15) $ n n 1 n n 1 $ $ 2 2 2 $ m s y - (x m s + F ) gamma - x m s theta = 0 (16) $ n 1 n n n n n 1 $ $ (0) theta + T = 0 (17) $ 1 $ $ where $ $ 2 $ I = I + x m = 500 (18) $ n no n n $ $ The large angle motion must be included in the analysis since it contributes $ to the linear terms. The equations of motion of the structure are formed $ relative to a coordinate system parallel to the body. The accelerations are $ coupled when the body rotates. $ .. $ Since the axial acceleration, x, is constant throughout the body, the $ vertical acceleration at any point, to the first order, is $ $ .. .. .. .. .. $ y = y + x theta = y + y (19) $ abs rel 1 rel theta $ $ An extra degree of freedom y is added to the problem and coupled by $ theta $ the equations: $ $ .. $ my = F theta (20) $ theta n 1 $ $ y = y + y (21) $ abs rel theta $ $ The center of gravity (point 101) and the sensor location (point 100) are $ rigidly connected to the nearest structural point with multipoint constraints. $ For instance the sensor point is located a distance of 4.91 from point 8. $ $ It is desired to leave point 101 as an independent variable point. Therefore $ point 8 is defined in terms of point 101 by the equations: $ $ y = y + 4.91 theta (22) $ 8 101 101 $ $ theta = theta (23) $ 8 101 $ $ C. Results $ $ A comparison of the NASTRAN complex roots and those derived by a conventional $ analysis described below are given in Table 2. The resulting eigenvectors were $ substituted into the equations of motion to check their validity. The $ equations of motion for a polynomial solution may be written in terms of the $ rigid body motions of the center of gravity plus the modal displacements. The $ equations of motion using Laplace transforms are $ $ 2 $ ms y = F (theta + gamma) (24) $ cg n 1 $ $ 2 $ Is theta = - F x gamma (25) $ cg n 1 $ $ The inertia forces of the nozzle on the structure may be ignored. $ $ The motion of the nozzle, as explained above, is $ $ 2 2 $ s ~ s $ (---- + tau s = 1) gamma = (a + bs)y + (c + ds)theta - ---- + $ beta s x beta $ $ 2 $ s m x $ n n $ ------- y (26) $ beta I 1 $ n $ $ where gamma is defined as the relative angle between the nozzle and the $ structure. $ $ The flexible motions at the sensor point, y and theta , may be defined in $ s s $ terms of the modal coefficients and the rigid motions of the center of $ gravity: $ $ y = y + x theta + sum from i phi xi (27) $ s cg 2 cg 100,i i $ $ theta = theta + sum from i phi xi (28) $ s cg 100,i i $ $ The motions of the nozzle point, in terms of the modal and center of gravity $ motions are $ $ ' $ theta = theta + sum from i phi xi (29) $ 1 cg 1,i i $ $ y = y - x theta + sum from i phi xi (30) $ 1 cg 1 cg 1,i i $ $ The modal displacements are due primarily to the vertical component of the $ nozzle force. Their equation of motion is $ $ 2 2 $ m (s + w )xi = F gamma (31) $ i i i n $ $ where $ $ phi is the deflection of point j for mode i $ j,i $ $ ' $ phi is the rotation of point j for mode i $ j,i $ $ m is the nodal mass of mode i $ i $ $ w is the natural frequency of mode i $ i $ $ xi is the modal displacement of mode i $ i $ $ The determinant of the matrix forms a polynomial of order 10. The roots of $ this polynomial were obtained by a standard computer library routine and are $ presented in Table 2 as the analytical results. The rigid body solution is $ also presented. $ $ The differences between the two sets of answers is due to the differences in $ models. The NASTRAN model produces errors due to the finite difference $ approximation and the number of modes chosen to model the third stage. The $ polynomial solution produces errors due to the approximations used in the $ equations of motion as applied to control system problems. $ $ As a further check the first eigenvalue (lambda = -1.41) was substituted into $ the matrix and the matrix was normalized by dividing each row by its diagonal $ value. The NASTRAN eigenvector was multiplied by the matrix, resulting in an $ error vector which theoretically should be zero. Dividing each term in the $ error vector by its corresponding term in the eigenvector resulted in very $ small error ratios. $ $ Table 1. Variables and Parameters $ $ EXTRA $ POINT $ NUMBER SYMBOL DESCRIPTION $ $ 1010 e Voltage describing y $ y $ 1011 e Voltage describing theta $ theta $ 1020 E Control voltage for y (Input) $ yc $ 1021 E Control voltage for theta (Input) $ thetac $ 1030 E Attitude error function $ gamma $ 1040 epsilon Nozzle position error $ gamma $ 1050 E Voltage for nozzle servo $ m $ 1060 T Torque for nozzle servo $ $ 1070 tau Nozzle thrust angle relative to structure $ $ 1080 y Position increment due to attitude $ theta $ $ $ PARAMETER VALUE DESCRIPTION $ $ K 1.0 Servo amplifier gain $ s $ $ K 500 Servo gain $ m $ $ tau .1414 Nozzle angular velocity feedback $ $ x 3.0 Distance from nozzle c.g. to gimbal axis $ n $ $ I 500.0 Inertia of nozzle about gimbal axis $ n $ 6 $ F 4.25x10 Thrust of nozzle $ n $ $ m 50 Nozzle mass $ n $ $ beta 100.0 Overall voltage-to-angle ratio $ theta $ $ beta 1.0 Overall voltage-to-position ratio $ y $ $ a .16 Position feedback coefficient $ $ b .28 Velocity feedback coefficient $ $ c 15.0 Angle feedback coefficient $ $ d 7.0 Angular velocity feedback coefficient $ 4 $ m 8.5x10 Mass of structure $ $ Table 2. Comparison of Complex Roots for NASTRAN Modeling vs. $ Simplified Polynomial Expansion $ -------------------------------------------------------------------- $ Rigid Body Model Flexible Modes Model $ -------------------------------------------------------------------- $ NASTRAN POLYNOMIAL NASTRAN POLYNOMIAL $ -------------------------------------------------------------------- $ -.540 +/- .821i -.522 +/- .802i -.507 +/- .819i -.494 +/- .801i $ $ -1.68 +/- 0i -1.74 +/- 0i -1.41 +/- 0i -1.46 +/- 0i $ $ +.751 +/- 5.96i +.774 +/- 5.98i +.520 +/- 3.82i +.522 +/- 3.83i $ -------------------------------------------------------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/d10021a.inp ================================================ ID D10021A,NASTRAN APP AERO SOL 10,0 TIME 10 DIAG 14,18 ALTER 66 $ MATGPR GPL,USET,SIL,PHIA//C,N,FE,/C,N,A $ ENDALTER $ CEND TITLE = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD) LABEL = K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) ECHO = BOTH SPC = 1 METHOD = 10 CMETHOD = 20 FMETHOD = 30 OUTPUT(XYOUT) XTITLE = VELOCITY YTTITLE = DAMPING (G) YBTITLE = FREQUENCY (F) TCURVE = V-G AND V-F DATA POINTS CURVELINESYMBOL = -1 XYPAPERPLOT VG / 1(G,F) 2(G,F) 3(G,F) 4(G,F) 5(G,F) 6(G,F) BEGIN BULK AERO 0 1.3+4 2.0706 1.145-7 CAERO1 101 1 1 6 4 1 +CA101 +CA101 -1. -.26795 0.0 2.0706 -1. 5.45205 0.0 2.0706 CBAR 1 1 1 2 0.0 0.0 1. 1 CBAR 2 1 2 3 0.0 0.0 1. 1 CBAR 3 1 3 4 0.0 0.0 1. 1 CBAR 4 1 4 5 0.0 0.0 1. 1 CBAR 5 1 5 6 0.0 0.0 1. 1 CBAR 6 1 6 7 0.0 0.0 1. 1 CBAR 7 1 7 8 0.0 0.0 1. 1 CBAR 8 1 8 9 0.0 0.0 1. 1 CBAR 9 1 9 10 0.0 0.0 1. 1 CBAR 10 1 10 11 0.0 0.0 1. 1 CMASS2 12 2.8-6 2 5 CMASS2 13 2.8-6 3 5 CMASS2 14 2.8-6 4 5 CMASS2 15 2.8-6 5 5 CMASS2 16 2.8-6 6 5 CMASS2 17 2.8-6 7 5 CMASS2 18 2.8-6 8 5 CMASS2 19 2.8-6 9 5 CMASS2 20 2.8-6 10 5 CMASS2 21 1.4-6 11 5 CORD2R 1 0.0 0.0 0.0 0.0 0.0 1. +C1 +C1 .96593 -.25882 0.0 EIGC 20 HESS MAX +EC +EC 3 EIGR 10 GIV .3 .1 6 +ER +ER MAX FLFACT 1 .967 FLFACT 2 .45 FLFACT 3 .2 .16667 .14286 .125 .11111 .1 FLUTTER 30 KE 1 2 3 L 3 GRDSET 1 1 126 GRID 1 0.0 .0 0.0 GRID 2 0.0 .572 0.0 GRID 3 0.0 1.144 0.0 GRID 4 0.0 1.716 0.0 GRID 5 0.0 2.288 0.0 GRID 6 0.0 2.86 0.0 GRID 7 0.0 3.432 0.0 GRID 8 0.0 4.004 0.0 GRID 9 0.0 4.576 0.0 GRID 10 0.0 5.148 0.0 GRID 11 0.0 5.72 0.0 MAT1 1 10.4+6 3.9+6 2.61-4 MKAERO1 .45 +MK +MK .0001 .1 .2 PAERO1 1 PARAM COUPMASS1 PARAM LMODES 3 PBAR 1 1 7.175-2 9.83-6 36.8-6 SET1 100 1 THRU 11 SPC1 1 345 1 SPLINE2 100 101 101 124 100 0.0 1. 1 +SP +SP 0.0 0.0 ENDDATA ================================================ FILE: inp/d10021a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 10 (APP AERO), Aeroelastic Analysis $ Aeroelastic Flutter Analysis of a 15 Degree Swept Wing (10-2-1) $ $ A. Description $ $ This problem illustrates the use of the aeroelastic analysis to determine $ flutter frequencies and mode shapes for an untapered wing having 15 degree $ sweep and an aspect ratio of 5.34. $ $ B. Input $ $ Bulk data cards used include CAERO1, PAERO1, SPLINE2, SET1, AERO, MKAERO1, $ FLUTTER, and FLFACT as illustrated in User's Manual Section 1.11. $ $ C. Theory $ $ Reference 22 specifies the reduced frequency k = .1314 (p.17) frequency $ ratio w/w = 0.51 (p.35) and torsion frequency w = 1488 (p.17). $ alpha alpha $ $ The flutter velocity is found from $ $ REFC w $ ---- x w x ------ $ 2 alpha w $ bw alpha $ V = -- = ----------------------- = 5980 in/sec. (1) $ k k $ $ where REFC is the reference length input on the AERO bulk data card. $ $ The flutter frequency is found from $ $ w $ w x ------ $ alpha w $ alpha $ f = ---------------- = 121 Hz (2) $ 2 pi $ $ D. Results $ $ The results obtained are compared with both theoretical results using the $ modified strip analysis method and with experimental results. The flutter $ velocity is in good agreement. $ $ Frequencies are automatically output while mode shapes used in the modal $ formulation are obtained using an ALTER to the Rigid Format following the Real $ Eigenvalue Analysis Module. $ $ Mode shapes for all points in the model may be obtained by checkpointing the $ problem using the Normal Mode Analysis (Rigid Format 3) and subsequently $ restarting using the Aeroelastic Analysis. $ $ APPLICABLE REFERENCES $ $ 22. Yates. E. C. and R. M. Bennett, "Use of Aerodynamic Parameters From $ Nonlinear Theory in Modified-Strip-Analysis Flutter Calculations for $ Finite-Span Wings at Supersonic Speeds"; NASA TN D-l824, July 1963. $------------------------------------------------------------------------------- ================================================ FILE: inp/d10022a.inp ================================================ ID D10022A,NASTRAN APP AERO SOL 10,0 TIME 10 DIAG 14,18 ALTER 66 $ MATGPR GPL,USET,SIL,PHIA//C,N,FE/C,N,A $ ENDALTER $ CEND TITLE = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD) LABEL = K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) ECHO = BOTH SPC = 1 METHOD = 10 CMETHOD = 20 FMETHOD = 30 OUTPUT(XYOUT) XTITLE = VELOCITY YTTITLE = DAMPING (G) YBTITLE = FREQUENCY (F) TCURVE = V-G AND V-F DATA POINTS CURVELINESYMBOL = -1 XYPAPERPLOT VG / 1(G,F) 2(G,F) 3(G,F) 4(G,F) 5(G,F) 6(G,F) BEGIN BULK AERO 0 1.3+4 2.0706 1.145-7 CAERO1 101 1 1 6 4 1 +CA101 +CA101 -1. -.26795 0.0 2.0706 -1. 5.45205 0.0 2.0706 CBAR 1 1 1 2 0.0 0.0 1. 1 CBAR 2 1 2 3 0.0 0.0 1. 1 CBAR 3 1 3 4 0.0 0.0 1. 1 CBAR 4 1 4 5 0.0 0.0 1. 1 CBAR 5 1 5 6 0.0 0.0 1. 1 CBAR 6 1 6 7 0.0 0.0 1. 1 CBAR 7 1 7 8 0.0 0.0 1. 1 CBAR 8 1 8 9 0.0 0.0 1. 1 CBAR 9 1 9 10 0.0 0.0 1. 1 CBAR 10 1 10 11 0.0 0.0 1. 1 CMASS2 12 2.8-6 2 5 CMASS2 13 2.8-6 3 5 CMASS2 14 2.8-6 4 5 CMASS2 15 2.8-6 5 5 CMASS2 16 2.8-6 6 5 CMASS2 17 2.8-6 7 5 CMASS2 18 2.8-6 8 5 CMASS2 19 2.8-6 9 5 CMASS2 20 2.8-6 10 5 CMASS2 21 1.4-6 11 5 CORD2R 1 0.0 0.0 0.0 0.0 0.0 1. +C1 +C1 .96593 -.25882 0.0 EIGC 20 HESS MAX +EC +EC 3 EIGR 10 GIV .3 .1 6 +ER +ER MAX FLFACT 1 .967 FLFACT 2 .45 FLFACT 3 .2 .16667 .14286 .125 .11111 .1 FLUTTER 30 K 1 2 3 L 3 GRDSET 1 1 126 GRID 1 0.0 .0 0.0 GRID 2 0.0 .572 0.0 GRID 3 0.0 1.144 0.0 GRID 4 0.0 1.716 0.0 GRID 5 0.0 2.288 0.0 GRID 6 0.0 2.86 0.0 GRID 7 0.0 3.432 0.0 GRID 8 0.0 4.004 0.0 GRID 9 0.0 4.576 0.0 GRID 10 0.0 5.148 0.0 GRID 11 0.0 5.72 0.0 MAT1 1 10.4+6 3.9+6 2.61-4 MKAERO1 .45 +MK +MK .0001 .1 .2 PAERO1 1 PARAM COUPMASS1 PARAM LMODES 3 PBAR 1 1 7.175-2 9.83-6 36.8-6 SET1 100 1 THRU 11 SPC1 1 345 1 SPLINE2 100 101 101 124 100 0.0 1. 1 +SP +SP 0.0 0.0 ENDDATA ================================================ FILE: inp/d10023a.inp ================================================ ID D10023A,NASTRAN APP AERO SOL 10,0 TIME 10 DIAG 14,18 ALTER 66 $ MATGPR GPL,USET,SIL,PHIA//C,N,FE/C,N,A $ ENDALTER $ CEND TITLE = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD) LABEL = K VALUES .200(*) .167(0) .143(1) .125(2) .111(3) .100(4) ECHO = BOTH SPC = 1 METHOD = 10 CMETHOD = 20 FMETHOD = 30 OUTPUT(XYOUT) XTITLE = VELOCITY YTTITLE = DAMPING (G) YBTITLE = FREQUENCY (F) TCURVE = V-G AND V-F DATA POINTS CURVELINESYMBOL = -1 XYPAPERPLOT VG / 1(G,F) 2(G,F) 3(G,F) 4(G,F) 5(G,F) 6(G,F) BEGIN BULK AERO 0 1.3+4 2.0706 1.145-7 CAERO1 101 1 1 6 4 1 +CA101 +CA101 -1. -.26795 0.0 2.0706 -1. 5.45205 0.0 2.0706 CBAR 1 1 1 2 0.0 0.0 1. 1 CBAR 2 1 2 3 0.0 0.0 1. 1 CBAR 3 1 3 4 0.0 0.0 1. 1 CBAR 4 1 4 5 0.0 0.0 1. 1 CBAR 5 1 5 6 0.0 0.0 1. 1 CBAR 6 1 6 7 0.0 0.0 1. 1 CBAR 7 1 7 8 0.0 0.0 1. 1 CBAR 8 1 8 9 0.0 0.0 1. 1 CBAR 9 1 9 10 0.0 0.0 1. 1 CBAR 10 1 10 11 0.0 0.0 1. 1 CMASS2 12 2.8-6 2 5 CMASS2 13 2.8-6 3 5 CMASS2 14 2.8-6 4 5 CMASS2 15 2.8-6 5 5 CMASS2 16 2.8-6 6 5 CMASS2 17 2.8-6 7 5 CMASS2 18 2.8-6 8 5 CMASS2 19 2.8-6 9 5 CMASS2 20 2.8-6 10 5 CMASS2 21 1.4-6 11 5 CORD2R 1 0.0 0.0 0.0 0.0 0.0 1. +C1 +C1 .96593 -.25882 0.0 EIGC 20 HESS MAX +EC +EC 3 EIGR 10 GIV .3 .1 6 +ER +ER MAX FLFACT 1 .967 FLFACT 2 .45 FLFACT 3 .2 .16667 .14286 .125 .11111 .1 FLFACT 4 4000. 5000. 5500. 5980. 6100. 6200. FLUTTER 30 PK 1 2 4 L 3 GRDSET 1 1 126 GRID 1 0.0 .0 0.0 GRID 2 0.0 .572 0.0 GRID 3 0.0 1.144 0.0 GRID 4 0.0 1.716 0.0 GRID 5 0.0 2.288 0.0 GRID 6 0.0 2.86 0.0 GRID 7 0.0 3.432 0.0 GRID 8 0.0 4.004 0.0 GRID 9 0.0 4.576 0.0 GRID 10 0.0 5.148 0.0 GRID 11 0.0 5.72 0.0 MAT1 1 10.4+6 3.9+6 2.61-4 MKAERO1 .45 +MK +MK .0001 .1 .2 PAERO1 1 PARAM COUPMASS1 PARAM LMODES 3 PBAR 1 1 7.175-2 9.83-6 36.8-6 SET1 100 1 THRU 11 SPC1 1 345 1 SPLINE2 100 101 101 124 100 0.0 1. 1 +SP +SP 0.0 0.0 ENDDATA ================================================ FILE: inp/d11011a.inp ================================================ NASTRAN FILES=(NPTP,PLT2) ID D11011A,NASTRAN CHKPNT YES APP DISPLACEMENT SOL 11,3 DIAG 14 TIME 25 ALTER 86 $ MATPRN PHIA,,,,// $ ENDALTER $ CEND MAXLINES = 50000 TITLE = FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A SPC = 11 METHOD = 2 FREQUENCY= 508 RANDOM = 11 SDAMPING = 11 OUTPUT SET 2 = 5,10 SET 6 = 6 SET 10 = 6,11 DISP(SORT2,PHASE) = 10 ACCELER(SORT2,PHASE) = 10 OLOAD = 6 ELFORCE(SORT2,PHASE) = 2 SUBCASE 1 LABEL = THREE POINTS LOADED WITH TWO SETS DLOAD = 506 SUBCASE 2 LABEL = ONE POINT LOADED WITH TWO SETS AND TIME DELAYS DLOAD = 507 SUBCASE 3 LABEL = ONE POINT LOADED WITH TWO TABULAR LOADS DLOAD = 510 $ $ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * $ $ PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A OUTPUT(XYOUT) PLOTTER = NASTPLT CAMERA = 3 SKIP BETWEEN FRAMES = 1 XGRID LINE = YES YGRID LINE = YES XTITLE = FREQUENCY (HERTZ) YTITLE = S TCURVE = POWER SPECTRAL DENSITY OF POINT 6 DISPLACEMENT XYPLOT,XYPRINT DISP PSDF / 6(T3) $ TCURVE = POWER SPECTRAL DENSITY OF POINT 6 ACCELERATION XYPLOT ACCELERATION PSDF / 6(T3) $ XTITLE = TIME LAG (SECONDS) YTITLE = R TCURVE = AUTOCORRELATION FUNCTION FOR POINT 6 DISPLACEMENT XYPLOT,XYPRINT DISP AUTO / 6(T3) BEGIN BULK CBAR 3 1 3 4 20. .0 1. 1 CBAR 4 1 4 5 20. .0 1. 1 CBAR 5 1 5 6 20. .0 1. 1 CBAR 6 1 6 7 20. .0 1. 1 CBAR 7 1 7 8 20. .0 1. 1 CBAR 8 1 8 9 20. .0 1. 1 CBAR 9 1 9 10 20. .0 1. 1 CBAR 10 1 10 11 20. .0 1. 1 CONM2 *11 1 5.34604-3 *M1 *M1 .0 CONM2 *12 2 1.069208-2 *M2 *M2 .0 .0 CONM2 *13 3 5.34604-3 *M3 *M3 DAREA 2 5 5 -100. DAREA 2 6 3 50. 5 3 50. DAREA 2 7 3 50. 7 5 100. DAREA 3 6 3 100. DAREA 510 6 3 1.0 DELAY 1 6 3 .5555-2 DLOAD 506 1. 1. 5 1. 6 DLOAD 507 1. 1. 5 1. 7 DLOAD 510 2.0 1.0 5101 1.0 5102 DPHASE 1 6 3 30. DPHASE 5102 6 3 -30.0 EIGR 2 INV 40.0 1000.0 3 5 +EG +EG MASS FREQ1 508 .0 5.0 40 GENEL 1101 2 1 2 3 2 5 +1 +1 3 1 3 3 3 5 +2 +2 UD 1 1 1 3 1 5 *30 *30 Z .89044935-8 .0 .0 *31 *31 .89044935-8 .0 .0 3.08928-6 *40 *40 -2.31696-6 .0 7.7232005-6 -2.31696-6 *41 *41 2.31696-6 .0 -6.950884-6 2.31696-6 *50 *50 1.7808987-8 .0 .0 24.714241-6 *51 *51 -9.26784-6 4.6339203-6 +60 +60 S 1.0 .0 .0 .0 1.0 -2.0 .0 +70 +70 .0 1.0 1.0 .0 .0 .0 1.0 -4.0 +80 +80 .0 .0 1.0 GRDSET 246 GRID 1 .0 .0 .0 GRID 2 2. .0 .0 GRID 3 4. .0 .0 GRID 4 6. .0 .0 GRID 5 8. .0 .0 GRID 6 10. .0 .0 GRID 7 12. .0 .0 GRID 8 14. .0 .0 GRID 9 16. .0 .0 GRID 10 18. .0 .0 GRID 11 20. .0 .0 MAT1 1 10.4+6 4.+6 .2523-3 PARAM GRDPNT 0 PARAM LMODES 4 PBAR 1 1 21.18922.083 .083 RANDPS 11 1 1 .5 11 RANDPS 11 1 3 .5 11 RANDPS 11 2 2 1.0 11 RANDPS 11 3 3 .5 11 RANDT1 11 100 .0 .1 RLOAD1 5101 510 5101 RLOAD1 5102 510 5102 5102 RLOAD2 5 2 1 RLOAD2 6 3 1 1 2 RLOAD2 7 3 1 1 SPC 1 1 13 11 13 SPC 11 1 13 11 3 TABDMP1 11 +DAMP +DAMP .0 .0 50.0 .02 ENDT TABLED1 1 +TAUU +TAUU .0 1. 100. 1. ENDT TABLED1 2 +TAD21 +TAD21 .0 30. 100. 30. ENDT TABLED1 5101 +TAD30 +TAD30 .0 75.0 100. 75.0 ENDT TABLED1 5102 +TAD31 +TAD31 .0 50.0 100. 50.0 ENDT TABRND1 11 +TR +TR -1.0 .0 .0 100.0 100.0 100.0 100.0 .0 +TR2 +TR2 101.0 .0 ENDT ENDDATA ================================================ FILE: inp/d11011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 11, Frequency Response - Modal Analysis $ Frequency Response and Random Analysis of a Ten-Cell Beam (11-1-1) $ $ A. Description $ $ This problem demonstrates the frequency response solution of a structure using $ uncoupled modal formulation. With modal formulation, the structural degrees of $ freedom used in the solution are the uncoupled modal displacements. The $ solution equations are simple and efficient. The saving in time, however, is $ offset by the operations necessary to extract the modes, transform the loads $ to modal coordinates, and transform the modal displacements to structural $ displacements. $ $ This problem also illustrates the various methods of applying frequency $ response loads. Loads may be input as complex numbers, with phase lag angles $ and/or time lag factors. The loads may be added together for each subcase. $ $ The structure to be solved consists of a beam with simple supports on the end. $ The parameters selected produce natural frequencies of 50, 200, 450, and 800 $ cps. The applied loads for the three subcases are applied to the center with $ variations in phase angles, time lags, and input formats. The first two $ subcases use three loaded points which, in essence, simulate a load on the $ center. $ $ Included in the structural representation is a "general element" representing $ the first two cells of the ten-cell bean. The flexibility matrix, [Z], of the $ element represents the displacements of grid points 2 and 3 when point 1 is $ fixed. The rigid body matrix, [S], represents the rigid body motions of points $ 2 and 3 when point 1 is displaced in the x, z, or theta directions. $ y $ $ The random analysis data consists of a flat power spectral density function $ ("white noise") for the three loading subcases. The first subcase spectral $ density is connected to the third subcase spectral density, simulating two $ interdependent probability functions. The XY-plotter is used to plot the $ displacement and acceleration power spectral density function of grid 6 $ (center of the beam). The displacement autocorrelation function is also $ plotted for the same point. All values are tabulated in the printout. $ $ A static analysis restart of the frequency response problem is demonstrated. $ Gravity and element enforced deformation loads are used with a change in the $ single-point constraints. $ $ B. Input $ $ 1. Parameters: $ $ l = 20 - length $ $ I = .083 - bending inertia $ 1 $ $ A = 21.18922 - cross sectional area $ $ 6 $ E = 10.4 x 10 - modulus of elasticity $ $ -3 $ p = .2523 x 10 - mass density $ $ M = pAl - total mass $ $ 2. Constraints: $ $ u = theta = theta = 0 - all points $ y x z $ $ u = u = u = 0 - frequency response $ x1 z1 z11 $ $ u = u = u = u = 0 - static analysis $ x1 z1 x11 z11 $ $ 3. Modal Data: $ $ Interval: 40 < f < 1000 cps $ $ Normalization: Modal Mass = 1.0 $ $ Number of modes used in formulation: 4 $ $ -4 $ Modal Damping ratio: g = 4 x 10 f $ $ 4. Loads, Frequency Response: $ $ The loading functions for subcase 1 are: $ $ P = 50 $ z,5 $ $ M = -100 $ y,5 $ $ P = 50 + 100 (cos 60 degrees + i sin 60 degrees) $ z,6 --------------------------------------- $ SET 6 $ $ P = 50 $ z,7 $ $ M = 100 $ y,7 $ $ The loading for subcase 2 is: $ $ P = 50 $ z,5 $ $ M = -100 $ y,5 $ $ P = 50 + 100 (cos2f degrees - i sin2f degrees) $ z,6 ------------------------------------- $ SET 7, tau = .005555 $ $ P = 50 $ z,7 $ $ M = 100 $ y,7 $ $ The load for subcase 3 is: $ $ P = 2[75 + 50i(cos30 degrees - i sin30 degrees)] = 200 + 86.6i $ z,6 $ $ Note: At f = 30 cps the three subcases are nearly identical. $ $ 5. Random Analysis Data $ $ The nonzero factors for the three subcases are: $ $ S = 50 | $ 11 | $ | $ S = S = 50 | $ 13 31 | $ | 0 < f < 100 $ S = 100 | $ 22 | $ | $ S = 50 | $ 33 | $ $ S = 0 , f > 100 $ ij $ $ The time lags selected for the autocorrelation function calculations are: $ $ T = 0.0, 0.001, 0.002,..., 0.1 $ $ 6. Static Loads for Restart $ $ The problem is run first as a frequency response analysis. It is restarted $ as a static analysis with the following loads: $ $ Gravity vector: g = 32.2 $ z $ $ Element Deformation: delta = 0.089045 (expansion) $ 10 $ $ C. Theory $ $ 1. The theoretical eigenvalue data according to Reference 8 is $ $ 2 2 $ n pi $ f = ------- sqrt(EI/A) = 50, 200, 450, 800 ... (natural freqs.) (1) $ n 2 $ (2pi)l $ $ m = 1.0 (modal mass) (2) $ n $ $ 2 n pi x -1/2 $ phi (x) = [integral from o to l pA sin ------ dx] $ n l $ $ n pi x n pi x $ sin(------) = sqrt(2/M) sin(------) (mode shape) (3) $ l l $ $ 2. The theoretical frequency response at the center point is essentially $ the response of the first mode which is $ $ sum from j phi P (w) phi $ 1,6 j 1,j $ u (w) = ----------------------------- (j = deg. of freedom no.) (4) $ 6 2 2 $ m (w - w + igww ) $ 1 i 1 $ $ At the first natural frequency of 50 cps, the response will be nearly $ equal to the response of the first mode. The responses at the center $ point for the three subcases are $ $ 1 3 94.764 + 41.033i $ u = u = ---------------- (Subcases 1 and 3) (5) $ 6 6 2 $ (50 - f ) + if $ $ 2 23.691(3 + 2cos2f - 2i sin2f) $ u = ----------------------------- (Subcase 2) (6) $ 6 2 $ (50 - f ) + if $ $ 3. The random analysis is explained in Reference 15. The power spectral $ response coefficients for the three subcases are given by the matrix: $ $ + + $ | 0.5 0 0.5 | $ | | $ [S ] = 100 | 0 1.0 0 | (7) $ i | | $ | 0.5 0 0.5 | $ + + $ $ If {H } is the vector of the responses of a point, i, to the three $ j $ loading cases, the power spectral response, S is $ j $ $ _ T _ $ S = {H } [S]{H } (H is the complex conjugate) (8) $ j j j j $ $ or $ $ 2 _ _ 2 2 $ S = 100[0.5|H | +0.5(H H +H H )+|H | +0.5|H | ] (9) $ j 1j 1j 3j 3j 1j 2j 3j $ $ Since H = H , then: $ 1j 3j $ $ 2 2 $ S = 200|H | + 100|H | (10) $ j 1j 2j $ $ The mean square response is obtained by integrating the power spectral $ density over the frequency. In this particular case the frequency $ increments are uniform and the mean square response is simply $ $ E = sum from i pi [S (f ) - S (f )] gradient f (11) $ i j i+1 j i $ $ The analytic solution for the displacement spectral density response of $ the center point due to the first mode is: $ $ 4 3 $ 200(1.066x10 ) + 100(.5613x10 )(13 + 12cos2f) $ S (f) = --------------------------------------------- = $ j 2 2 2 2 $ [(50 - f ) + f ] $ $ 6 6 $ 2.862x10 + .6735x10 cos2f $ --------------------------- (12) $ 4 2 4 $ (f - 4999f + 50 ) $ $ The mean deviation, sigma , is $ j $ $ E $ i $ sigma = sqrt(--------------) (13) $ j 2 pi (f - f ) $ n o $ $ where f and f are the upper and lower frequency limits. $ n o $ $ 4. The results of the static analysis restart are $ $ a. The gravity load produces normal displacements (in the z direction) $ and element moments as follows: $ $ pAgx 3 2 3 $ u (x) = ---- (l - 2lx + x ) (14) $ z 24EI $ $ pAg 2 $ M (x) = --- (x - lx) (15) $ 1 2 $ $ b. The element deformation produces the following axial forces and $ displacements: $ $ delta 10 $ F = AE -------- (16) $ x l $ $ F $ x $ u = - -- x (x < 18) (17) $ x AE $ $ D. Results $ $ The responses at the center point for Subcases 1 and 3 are: $ $ ---------------------------------------------- $ $ f u (one mode) u (NASTRAN) $ 6 6 $ ---------------------------------------------- $ 0 .0413 @ 23.42 deg. .0429 @ 22.9 deg. $ $ 30 .0646 @ 22.34 deg. .0668 @ 21.8 deg. $ $ 50 2.066 @ 293.42 deg. 2.074 @ 281.5 deg. $ ---------------------------------------------- $ $ The response at the center point for Subcase 2 is: $ $ ---------------------------------------------- $ $ f u (one mode) u (NASTRAN) $ 6 6 $ ---------------------------------------------- $ 0 .047 @ 0 deg. .049 @ 0 deg. $ $ 30 .0646 @ -22.34 deg. .0668 @ -23.97 deg. $ $ 50 1.565 @ 233.4 deg. 1.577 @ 223.0 deg. $ ---------------------------------------------- $ $ In numerical terms, the displacements of the center point (x = l/2) are: $ $ Theoretical NASTRAN $ $ -2 -2 $ u = 4.452 x 10 4.435 x 10 $ x6 $ -4 -4 $ u = 4.155 x 10 4.121 x 10 $ z6 $ $ The element forces at the center of the beam are: $ $ Theoretical NASTRAN $ $ 6 6 $ F = -.9811 x 10 -.9848 x 10 $ x5 $ $ M = -8.607 -8.607 $ 6 $------------------------------------------------------------------------------- ================================================ FILE: inp/d11011b.inp ================================================ NASTRAN FILES = OPTP ID D11011B,RESTART $ INSERT THE RESTART DICTIONARY HERE READFILE RSCARDS APP DISPLACEMENT SOL 1,9 TIME 5 CEND TITLE = 10 CELL BEAM RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B LABEL = RIGID FORMAT SWITCH FROM 11 TO 1 SPC = 1 DEFORM = 1102 LOAD = 1101 OUTPUT DISPLACEMENTS = ALL OLOAD = ALL ELFORCE = ALL BEGIN BULK DEFORM 1102 10 0.089045 GRAV 1101 32.2 0.0 0.0 1.0 ENDDATA ================================================ FILE: inp/d11021a.inp ================================================ NASTRAN FILES=PLT2 ID D11021A,NASTRAN APP DISPLACEMENT TIME 35 SOL 11,1 CEND TITLE = FREQUENCY RESPONSE OF A 500 CELL STRING OUTPUT SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A METHOD = 10 FREQ = 11 DLOAD = 11 OUTPUT SET 1 = 51, 101, 151, 201, 251, 301, 351, 401, 451 SET 2 = 1 THRU 5 DISPLACEMENT(PHASE,SORT2) = 1 SDISPLACEMENT(PHASE,SORT2) = 2 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A OUTPUT(XYOUT) PLOTTER = NASTPLT CAMERA = 3 SKIP BETWEEN FRAMES = 1 CURVE LINE AND SYMBOLS = 1 XLOG = YES YTLOG = YES XTGRID = YES XBGRID = YES YTGRID = YES YBGRID = YES XTITLE = FREQUENCY (HERTZ) YTTITLE= MAGNITUDE *INCH* YBTITLE= PHASE *DEGREE* $ $ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * $ TCURVE = * * * * * * SPOINT 5 1 * * * * * * * * * * * * * * * * XYPLOT DISP / 51(T1RM,T1IP) TCURVE = * * * * * * SPOINT 1 0 1 * * * * * * * * * * * * * * * XYPLOT DISP / 101(T1RM,T1IP) TCURVE = * * * * * * SPOINT 1 5 1 * * * * * * * * * * * * * * * XYPLOT DISP / 151(T1RM,T1IP) TCURVE = * * * * * * SPOINT 2 0 1 * * * * * * * * * * * * * * * XYPLOT DISP / 201(T1RM,T1IP) TCURVE = * * * * * * SPOINT 2 5 1 * * * * * * * * * * * * * * * XYPLOT DISP / 251(T1RM,T1IP) $ $ * * * * * * * * * * * * * * * * * * * * * * * * $ YLOG = YES YTITLE = MAGNITUDE *INCH* XGRID LINES = YES YGRID LINES = YES TCURVE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * XYPLOT DISP / 51(3), 101(3), 151(3), 201(3), 251(3) YLOG = NO YTITLE = REAL PART *POUNDS* TCURVE = * * * * * * * FORCE IN STRING ELEMENT 251 * * * * * * * * XYPLOT, XYPRINT ELFORCE RESPONSE / 251(2) $ BEGIN BULK CELAS3 1 101 0 2 2 101 2 3 CELAS3 3 101 3 4 4 101 4 5 CELAS3 5 101 5 6 6 101 6 7 CELAS3 7 101 7 8 8 101 8 9 CELAS3 9 101 9 10 10 101 10 11 CELAS3 11 101 11 12 12 101 12 13 CELAS3 13 101 13 14 14 101 14 15 CELAS3 15 101 15 16 16 101 16 17 CELAS3 17 101 17 18 18 101 18 19 CELAS3 19 101 19 20 20 101 20 21 CELAS3 21 101 21 22 22 101 22 23 CELAS3 23 101 23 24 24 101 24 25 CELAS3 25 101 25 26 26 101 26 27 CELAS3 27 101 27 28 28 101 28 29 CELAS3 29 101 29 30 30 101 30 31 CELAS3 31 101 31 32 32 101 32 33 CELAS3 33 101 33 34 34 101 34 35 CELAS3 35 101 35 36 36 101 36 37 CELAS3 37 101 37 38 38 101 38 39 CELAS3 39 101 39 40 40 101 40 41 CELAS3 41 101 41 42 42 101 42 43 CELAS3 43 101 43 44 44 101 44 45 CELAS3 45 101 45 46 46 101 46 47 CELAS3 47 101 47 48 48 101 48 49 CELAS3 49 101 49 50 50 101 50 51 CELAS3 51 101 51 52 52 101 52 53 CELAS3 53 101 53 54 54 101 54 55 CELAS3 55 101 55 56 56 101 56 57 CELAS3 57 101 57 58 58 101 58 59 CELAS3 59 101 59 60 60 101 60 61 CELAS3 61 101 61 62 62 101 62 63 CELAS3 63 101 63 64 64 101 64 65 CELAS3 65 101 65 66 66 101 66 67 CELAS3 67 101 67 68 68 101 68 69 CELAS3 69 101 69 70 70 101 70 71 CELAS3 71 101 71 72 72 101 72 73 CELAS3 73 101 73 74 74 101 74 75 CELAS3 75 101 75 76 76 101 76 77 CELAS3 77 101 77 78 78 101 78 79 CELAS3 79 101 79 80 80 101 80 81 CELAS3 81 101 81 82 82 101 82 83 CELAS3 83 101 83 84 84 101 84 85 CELAS3 85 101 85 86 86 101 86 87 CELAS3 87 101 87 88 88 101 88 89 CELAS3 89 101 89 90 90 101 90 91 CELAS3 91 101 91 92 92 101 92 93 CELAS3 93 101 93 94 94 101 94 95 CELAS3 95 101 95 96 96 101 96 97 CELAS3 97 101 97 98 98 101 98 99 CELAS3 99 101 99 100 100 101 100 101 CELAS3 101 101 101 102 102 101 102 103 CELAS3 103 101 103 104 104 101 104 105 CELAS3 105 101 105 106 106 101 106 107 CELAS3 107 101 107 108 108 101 108 109 CELAS3 109 101 109 110 110 101 110 111 CELAS3 111 101 111 112 112 101 112 113 CELAS3 113 101 113 114 114 101 114 115 CELAS3 115 101 115 116 116 101 116 117 CELAS3 117 101 117 118 118 101 118 119 CELAS3 119 101 119 120 120 101 120 121 CELAS3 121 101 121 122 122 101 122 123 CELAS3 123 101 123 124 124 101 124 125 CELAS3 125 101 125 126 126 101 126 127 CELAS3 127 101 127 128 128 101 128 129 CELAS3 129 101 129 130 130 101 130 131 CELAS3 131 101 131 132 132 101 132 133 CELAS3 133 101 133 134 134 101 134 135 CELAS3 135 101 135 136 136 101 136 137 CELAS3 137 101 137 138 138 101 138 139 CELAS3 139 101 139 140 140 101 140 141 CELAS3 141 101 141 142 142 101 142 143 CELAS3 143 101 143 144 144 101 144 145 CELAS3 145 101 145 146 146 101 146 147 CELAS3 147 101 147 148 148 101 148 149 CELAS3 149 101 149 150 150 101 150 151 CELAS3 151 101 151 152 152 101 152 153 CELAS3 153 101 153 154 154 101 154 155 CELAS3 155 101 155 156 156 101 156 157 CELAS3 157 101 157 158 158 101 158 159 CELAS3 159 101 159 160 160 101 160 161 CELAS3 161 101 161 162 162 101 162 163 CELAS3 163 101 163 164 164 101 164 165 CELAS3 165 101 165 166 166 101 166 167 CELAS3 167 101 167 168 168 101 168 169 CELAS3 169 101 169 170 170 101 170 171 CELAS3 171 101 171 172 172 101 172 173 CELAS3 173 101 173 174 174 101 174 175 CELAS3 175 101 175 176 176 101 176 177 CELAS3 177 101 177 178 178 101 178 179 CELAS3 179 101 179 180 180 101 180 181 CELAS3 181 101 181 182 182 101 182 183 CELAS3 183 101 183 184 184 101 184 185 CELAS3 185 101 185 186 186 101 186 187 CELAS3 187 101 187 188 188 101 188 189 CELAS3 189 101 189 190 190 101 190 191 CELAS3 191 101 191 192 192 101 192 193 CELAS3 193 101 193 194 194 101 194 195 CELAS3 195 101 195 196 196 101 196 197 CELAS3 197 101 197 198 198 101 198 199 CELAS3 199 101 199 200 200 101 200 201 CELAS3 201 101 201 202 202 101 202 203 CELAS3 203 101 203 204 204 101 204 205 CELAS3 205 101 205 206 206 101 206 207 CELAS3 207 101 207 208 208 101 208 209 CELAS3 209 101 209 210 210 101 210 211 CELAS3 211 101 211 212 212 101 212 213 CELAS3 213 101 213 214 214 101 214 215 CELAS3 215 101 215 216 216 101 216 217 CELAS3 217 101 217 218 218 101 218 219 CELAS3 219 101 219 220 220 101 220 221 CELAS3 221 101 221 222 222 101 222 223 CELAS3 223 101 223 224 224 101 224 225 CELAS3 225 101 225 226 226 101 226 227 CELAS3 227 101 227 228 228 101 228 229 CELAS3 229 101 229 230 230 101 230 231 CELAS3 231 101 231 232 232 101 232 233 CELAS3 233 101 233 234 234 101 234 235 CELAS3 235 101 235 236 236 101 236 237 CELAS3 237 101 237 238 238 101 238 239 CELAS3 239 101 239 240 240 101 240 241 CELAS3 241 101 241 242 242 101 242 243 CELAS3 243 101 243 244 244 101 244 245 CELAS3 245 101 245 246 246 101 246 247 CELAS3 247 101 247 248 248 101 248 249 CELAS3 249 101 249 250 250 101 250 251 CELAS3 251 101 251 252 252 101 252 253 CELAS3 253 101 253 254 254 101 254 255 CELAS3 255 101 255 256 256 101 256 257 CELAS3 257 101 257 258 258 101 258 259 CELAS3 259 101 259 260 260 101 260 261 CELAS3 261 101 261 262 262 101 262 263 CELAS3 263 101 263 264 264 101 264 265 CELAS3 265 101 265 266 266 101 266 267 CELAS3 267 101 267 268 268 101 268 269 CELAS3 269 101 269 270 270 101 270 271 CELAS3 271 101 271 272 272 101 272 273 CELAS3 273 101 273 274 274 101 274 275 CELAS3 275 101 275 276 276 101 276 277 CELAS3 277 101 277 278 278 101 278 279 CELAS3 279 101 279 280 280 101 280 281 CELAS3 281 101 281 282 282 101 282 283 CELAS3 283 101 283 284 284 101 284 285 CELAS3 285 101 285 286 286 101 286 287 CELAS3 287 101 287 288 288 101 288 289 CELAS3 289 101 289 290 290 101 290 291 CELAS3 291 101 291 292 292 101 292 293 CELAS3 293 101 293 294 294 101 294 295 CELAS3 295 101 295 296 296 101 296 297 CELAS3 297 101 297 298 298 101 298 299 CELAS3 299 101 299 300 300 101 300 301 CELAS3 301 101 301 302 302 101 302 303 CELAS3 303 101 303 304 304 101 304 305 CELAS3 305 101 305 306 306 101 306 307 CELAS3 307 101 307 308 308 101 308 309 CELAS3 309 101 309 310 310 101 310 311 CELAS3 311 101 311 312 312 101 312 313 CELAS3 313 101 313 314 314 101 314 315 CELAS3 315 101 315 316 316 101 316 317 CELAS3 317 101 317 318 318 101 318 319 CELAS3 319 101 319 320 320 101 320 321 CELAS3 321 101 321 322 322 101 322 323 CELAS3 323 101 323 324 324 101 324 325 CELAS3 325 101 325 326 326 101 326 327 CELAS3 327 101 327 328 328 101 328 329 CELAS3 329 101 329 330 330 101 330 331 CELAS3 331 101 331 332 332 101 332 333 CELAS3 333 101 333 334 334 101 334 335 CELAS3 335 101 335 336 336 101 336 337 CELAS3 337 101 337 338 338 101 338 339 CELAS3 339 101 339 340 340 101 340 341 CELAS3 341 101 341 342 342 101 342 343 CELAS3 343 101 343 344 344 101 344 345 CELAS3 345 101 345 346 346 101 346 347 CELAS3 347 101 347 348 348 101 348 349 CELAS3 349 101 349 350 350 101 350 351 CELAS3 351 101 351 352 352 101 352 353 CELAS3 353 101 353 354 354 101 354 355 CELAS3 355 101 355 356 356 101 356 357 CELAS3 357 101 357 358 358 101 358 359 CELAS3 359 101 359 360 360 101 360 361 CELAS3 361 101 361 362 362 101 362 363 CELAS3 363 101 363 364 364 101 364 365 CELAS3 365 101 365 366 366 101 366 367 CELAS3 367 101 367 368 368 101 368 369 CELAS3 369 101 369 370 370 101 370 371 CELAS3 371 101 371 372 372 101 372 373 CELAS3 373 101 373 374 374 101 374 375 CELAS3 375 101 375 376 376 101 376 377 CELAS3 377 101 377 378 378 101 378 379 CELAS3 379 101 379 380 380 101 380 381 CELAS3 381 101 381 382 382 101 382 383 CELAS3 383 101 383 384 384 101 384 385 CELAS3 385 101 385 386 386 101 386 387 CELAS3 387 101 387 388 388 101 388 389 CELAS3 389 101 389 390 390 101 390 391 CELAS3 391 101 391 392 392 101 392 393 CELAS3 393 101 393 394 394 101 394 395 CELAS3 395 101 395 396 396 101 396 397 CELAS3 397 101 397 398 398 101 398 399 CELAS3 399 101 399 400 400 101 400 401 CELAS3 401 101 401 402 402 101 402 403 CELAS3 403 101 403 404 404 101 404 405 CELAS3 405 101 405 406 406 101 406 407 CELAS3 407 101 407 408 408 101 408 409 CELAS3 409 101 409 410 410 101 410 411 CELAS3 411 101 411 412 412 101 412 413 CELAS3 413 101 413 414 414 101 414 415 CELAS3 415 101 415 416 416 101 416 417 CELAS3 417 101 417 418 418 101 418 419 CELAS3 419 101 419 420 420 101 420 421 CELAS3 421 101 421 422 422 101 422 423 CELAS3 423 101 423 424 424 101 424 425 CELAS3 425 101 425 426 426 101 426 427 CELAS3 427 101 427 428 428 101 428 429 CELAS3 429 101 429 430 430 101 430 431 CELAS3 431 101 431 432 432 101 432 433 CELAS3 433 101 433 434 434 101 434 435 CELAS3 435 101 435 436 436 101 436 437 CELAS3 437 101 437 438 438 101 438 439 CELAS3 439 101 439 440 440 101 440 441 CELAS3 441 101 441 442 442 101 442 443 CELAS3 443 101 443 444 444 101 444 445 CELAS3 445 101 445 446 446 101 446 447 CELAS3 447 101 447 448 448 101 448 449 CELAS3 449 101 449 450 450 101 450 451 CELAS3 451 101 451 452 452 101 452 453 CELAS3 453 101 453 454 454 101 454 455 CELAS3 455 101 455 456 456 101 456 457 CELAS3 457 101 457 458 458 101 458 459 CELAS3 459 101 459 460 460 101 460 461 CELAS3 461 101 461 462 462 101 462 463 CELAS3 463 101 463 464 464 101 464 465 CELAS3 465 101 465 466 466 101 466 467 CELAS3 467 101 467 468 468 101 468 469 CELAS3 469 101 469 470 470 101 470 471 CELAS3 471 101 471 472 472 101 472 473 CELAS3 473 101 473 474 474 101 474 475 CELAS3 475 101 475 476 476 101 476 477 CELAS3 477 101 477 478 478 101 478 479 CELAS3 479 101 479 480 480 101 480 481 CELAS3 481 101 481 482 482 101 482 483 CELAS3 483 101 483 484 484 101 484 485 CELAS3 485 101 485 486 486 101 486 487 CELAS3 487 101 487 488 488 101 488 489 CELAS3 489 101 489 490 490 101 490 491 CELAS3 491 101 491 492 492 101 492 493 CELAS3 493 101 493 494 494 101 494 495 CELAS3 495 101 495 496 496 101 496 497 CELAS3 497 101 497 498 498 101 498 499 CELAS3 499 101 499 500 500 101 500 0 CMASS3 40002 301 2 0 CMASS3 40003 301 3 0 40004 301 4 0 CMASS3 40005 301 5 0 40006 301 6 0 CMASS3 40007 301 7 0 40008 301 8 0 CMASS3 40009 301 9 0 40010 301 10 0 CMASS3 40011 301 11 0 40012 301 12 0 CMASS3 40013 301 13 0 40014 301 14 0 CMASS3 40015 301 15 0 40016 301 16 0 CMASS3 40017 301 17 0 40018 301 18 0 CMASS3 40019 301 19 0 40020 301 20 0 CMASS3 40021 301 21 0 40022 301 22 0 CMASS3 40023 301 23 0 40024 301 24 0 CMASS3 40025 301 25 0 40026 301 26 0 CMASS3 40027 301 27 0 40028 301 28 0 CMASS3 40029 301 29 0 40030 301 30 0 CMASS3 40031 301 31 0 40032 301 32 0 CMASS3 40033 301 33 0 40034 301 34 0 CMASS3 40035 301 35 0 40036 301 36 0 CMASS3 40037 301 37 0 40038 301 38 0 CMASS3 40039 301 39 0 40040 301 40 0 CMASS3 40041 301 41 0 40042 301 42 0 CMASS3 40043 301 43 0 40044 301 44 0 CMASS3 40045 301 45 0 40046 301 46 0 CMASS3 40047 301 47 0 40048 301 48 0 CMASS3 40049 301 49 0 40050 301 50 0 CMASS3 40051 301 51 0 40052 301 52 0 CMASS3 40053 301 53 0 40054 301 54 0 CMASS3 40055 301 55 0 40056 301 56 0 CMASS3 40057 301 57 0 40058 301 58 0 CMASS3 40059 301 59 0 40060 301 60 0 CMASS3 40061 301 61 0 40062 301 62 0 CMASS3 40063 301 63 0 40064 301 64 0 CMASS3 40065 301 65 0 40066 301 66 0 CMASS3 40067 301 67 0 40068 301 68 0 CMASS3 40069 301 69 0 40070 301 70 0 CMASS3 40071 301 71 0 40072 301 72 0 CMASS3 40073 301 73 0 40074 301 74 0 CMASS3 40075 301 75 0 40076 301 76 0 CMASS3 40077 301 77 0 40078 301 78 0 CMASS3 40079 301 79 0 40080 301 80 0 CMASS3 40081 301 81 0 40082 301 82 0 CMASS3 40083 301 83 0 40084 301 84 0 CMASS3 40085 301 85 0 40086 301 86 0 CMASS3 40087 301 87 0 40088 301 88 0 CMASS3 40089 301 89 0 40090 301 90 0 CMASS3 40091 301 91 0 40092 301 92 0 CMASS3 40093 301 93 0 40094 301 94 0 CMASS3 40095 301 95 0 40096 301 96 0 CMASS3 40097 301 97 0 40098 301 98 0 CMASS3 40099 301 99 0 40100 301 100 0 CMASS3 40101 301 101 0 40102 301 102 0 CMASS3 40103 301 103 0 40104 301 104 0 CMASS3 40105 301 105 0 40106 301 106 0 CMASS3 40107 301 107 0 40108 301 108 0 CMASS3 40109 301 109 0 40110 301 110 0 CMASS3 40111 301 111 0 40112 301 112 0 CMASS3 40113 301 113 0 40114 301 114 0 CMASS3 40115 301 115 0 40116 301 116 0 CMASS3 40117 301 117 0 40118 301 118 0 CMASS3 40119 301 119 0 40120 301 120 0 CMASS3 40121 301 121 0 40122 301 122 0 CMASS3 40123 301 123 0 40124 301 124 0 CMASS3 40125 301 125 0 40126 301 126 0 CMASS3 40127 301 127 0 40128 301 128 0 CMASS3 40129 301 129 0 40130 301 130 0 CMASS3 40131 301 131 0 40132 301 132 0 CMASS3 40133 301 133 0 40134 301 134 0 CMASS3 40135 301 135 0 40136 301 136 0 CMASS3 40137 301 137 0 40138 301 138 0 CMASS3 40139 301 139 0 40140 301 140 0 CMASS3 40141 301 141 0 40142 301 142 0 CMASS3 40143 301 143 0 40144 301 144 0 CMASS3 40145 301 145 0 40146 301 146 0 CMASS3 40147 301 147 0 40148 301 148 0 CMASS3 40149 301 149 0 40150 301 150 0 CMASS3 40151 301 151 0 40152 301 152 0 CMASS3 40153 301 153 0 40154 301 154 0 CMASS3 40155 301 155 0 40156 301 156 0 CMASS3 40157 301 157 0 40158 301 158 0 CMASS3 40159 301 159 0 40160 301 160 0 CMASS3 40161 301 161 0 40162 301 162 0 CMASS3 40163 301 163 0 40164 301 164 0 CMASS3 40165 301 165 0 40166 301 166 0 CMASS3 40167 301 167 0 40168 301 168 0 CMASS3 40169 301 169 0 40170 301 170 0 CMASS3 40171 301 171 0 40172 301 172 0 CMASS3 40173 301 173 0 40174 301 174 0 CMASS3 40175 301 175 0 40176 301 176 0 CMASS3 40177 301 177 0 40178 301 178 0 CMASS3 40179 301 179 0 40180 301 180 0 CMASS3 40181 301 181 0 40182 301 182 0 CMASS3 40183 301 183 0 40184 301 184 0 CMASS3 40185 301 185 0 40186 301 186 0 CMASS3 40187 301 187 0 40188 301 188 0 CMASS3 40189 301 189 0 40190 301 190 0 CMASS3 40191 301 191 0 40192 301 192 0 CMASS3 40193 301 193 0 40194 301 194 0 CMASS3 40195 301 195 0 40196 301 196 0 CMASS3 40197 301 197 0 40198 301 198 0 CMASS3 40199 301 199 0 40200 301 200 0 CMASS3 40201 301 201 0 40202 301 202 0 CMASS3 40203 301 203 0 40204 301 204 0 CMASS3 40205 301 205 0 40206 301 206 0 CMASS3 40207 301 207 0 40208 301 208 0 CMASS3 40209 301 209 0 40210 301 210 0 CMASS3 40211 301 211 0 40212 301 212 0 CMASS3 40213 301 213 0 40214 301 214 0 CMASS3 40215 301 215 0 40216 301 216 0 CMASS3 40217 301 217 0 40218 301 218 0 CMASS3 40219 301 219 0 40220 301 220 0 CMASS3 40221 301 221 0 40222 301 222 0 CMASS3 40223 301 223 0 40224 301 224 0 CMASS3 40225 301 225 0 40226 301 226 0 CMASS3 40227 301 227 0 40228 301 228 0 CMASS3 40229 301 229 0 40230 301 230 0 CMASS3 40231 301 231 0 40232 301 232 0 CMASS3 40233 301 233 0 40234 301 234 0 CMASS3 40235 301 235 0 40236 301 236 0 CMASS3 40237 301 237 0 40238 301 238 0 CMASS3 40239 301 239 0 40240 301 240 0 CMASS3 40241 301 241 0 40242 301 242 0 CMASS3 40243 301 243 0 40244 301 244 0 CMASS3 40245 301 245 0 40246 301 246 0 CMASS3 40247 301 247 0 40248 301 248 0 CMASS3 40249 301 249 0 40250 301 250 0 CMASS3 40251 301 251 0 40252 301 252 0 CMASS3 40253 301 253 0 40254 301 254 0 CMASS3 40255 301 255 0 40256 301 256 0 CMASS3 40257 301 257 0 40258 301 258 0 CMASS3 40259 301 259 0 40260 301 260 0 CMASS3 40261 301 261 0 40262 301 262 0 CMASS3 40263 301 263 0 40264 301 264 0 CMASS3 40265 301 265 0 40266 301 266 0 CMASS3 40267 301 267 0 40268 301 268 0 CMASS3 40269 301 269 0 40270 301 270 0 CMASS3 40271 301 271 0 40272 301 272 0 CMASS3 40273 301 273 0 40274 301 274 0 CMASS3 40275 301 275 0 40276 301 276 0 CMASS3 40277 301 277 0 40278 301 278 0 CMASS3 40279 301 279 0 40280 301 280 0 CMASS3 40281 301 281 0 40282 301 282 0 CMASS3 40283 301 283 0 40284 301 284 0 CMASS3 40285 301 285 0 40286 301 286 0 CMASS3 40287 301 287 0 40288 301 288 0 CMASS3 40289 301 289 0 40290 301 290 0 CMASS3 40291 301 291 0 40292 301 292 0 CMASS3 40293 301 293 0 40294 301 294 0 CMASS3 40295 301 295 0 40296 301 296 0 CMASS3 40297 301 297 0 40298 301 298 0 CMASS3 40299 301 299 0 40300 301 300 0 CMASS3 40301 301 301 0 40302 301 302 0 CMASS3 40303 301 303 0 40304 301 304 0 CMASS3 40305 301 305 0 40306 301 306 0 CMASS3 40307 301 307 0 40308 301 308 0 CMASS3 40309 301 309 0 40310 301 310 0 CMASS3 40311 301 311 0 40312 301 312 0 CMASS3 40313 301 313 0 40314 301 314 0 CMASS3 40315 301 315 0 40316 301 316 0 CMASS3 40317 301 317 0 40318 301 318 0 CMASS3 40319 301 319 0 40320 301 320 0 CMASS3 40321 301 321 0 40322 301 322 0 CMASS3 40323 301 323 0 40324 301 324 0 CMASS3 40325 301 325 0 40326 301 326 0 CMASS3 40327 301 327 0 40328 301 328 0 CMASS3 40329 301 329 0 40330 301 330 0 CMASS3 40331 301 331 0 40332 301 332 0 CMASS3 40333 301 333 0 40334 301 334 0 CMASS3 40335 301 335 0 40336 301 336 0 CMASS3 40337 301 337 0 40338 301 338 0 CMASS3 40339 301 339 0 40340 301 340 0 CMASS3 40341 301 341 0 40342 301 342 0 CMASS3 40343 301 343 0 40344 301 344 0 CMASS3 40345 301 345 0 40346 301 346 0 CMASS3 40347 301 347 0 40348 301 348 0 CMASS3 40349 301 349 0 40350 301 350 0 CMASS3 40351 301 351 0 40352 301 352 0 CMASS3 40353 301 353 0 40354 301 354 0 CMASS3 40355 301 355 0 40356 301 356 0 CMASS3 40357 301 357 0 40358 301 358 0 CMASS3 40359 301 359 0 40360 301 360 0 CMASS3 40361 301 361 0 40362 301 362 0 CMASS3 40363 301 363 0 40364 301 364 0 CMASS3 40365 301 365 0 40366 301 366 0 CMASS3 40367 301 367 0 40368 301 368 0 CMASS3 40369 301 369 0 40370 301 370 0 CMASS3 40371 301 371 0 40372 301 372 0 CMASS3 40373 301 373 0 40374 301 374 0 CMASS3 40375 301 375 0 40376 301 376 0 CMASS3 40377 301 377 0 40378 301 378 0 CMASS3 40379 301 379 0 40380 301 380 0 CMASS3 40381 301 381 0 40382 301 382 0 CMASS3 40383 301 383 0 40384 301 384 0 CMASS3 40385 301 385 0 40386 301 386 0 CMASS3 40387 301 387 0 40388 301 388 0 CMASS3 40389 301 389 0 40390 301 390 0 CMASS3 40391 301 391 0 40392 301 392 0 CMASS3 40393 301 393 0 40394 301 394 0 CMASS3 40395 301 395 0 40396 301 396 0 CMASS3 40397 301 397 0 40398 301 398 0 CMASS3 40399 301 399 0 40400 301 400 0 CMASS3 40401 301 401 0 40402 301 402 0 CMASS3 40403 301 403 0 40404 301 404 0 CMASS3 40405 301 405 0 40406 301 406 0 CMASS3 40407 301 407 0 40408 301 408 0 CMASS3 40409 301 409 0 40410 301 410 0 CMASS3 40411 301 411 0 40412 301 412 0 CMASS3 40413 301 413 0 40414 301 414 0 CMASS3 40415 301 415 0 40416 301 416 0 CMASS3 40417 301 417 0 40418 301 418 0 CMASS3 40419 301 419 0 40420 301 420 0 CMASS3 40421 301 421 0 40422 301 422 0 CMASS3 40423 301 423 0 40424 301 424 0 CMASS3 40425 301 425 0 40426 301 426 0 CMASS3 40427 301 427 0 40428 301 428 0 CMASS3 40429 301 429 0 40430 301 430 0 CMASS3 40431 301 431 0 40432 301 432 0 CMASS3 40433 301 433 0 40434 301 434 0 CMASS3 40435 301 435 0 40436 301 436 0 CMASS3 40437 301 437 0 40438 301 438 0 CMASS3 40439 301 439 0 40440 301 440 0 CMASS3 40441 301 441 0 40442 301 442 0 CMASS3 40443 301 443 0 40444 301 444 0 CMASS3 40445 301 445 0 40446 301 446 0 CMASS3 40447 301 447 0 40448 301 448 0 CMASS3 40449 301 449 0 40450 301 450 0 CMASS3 40451 301 451 0 40452 301 452 0 CMASS3 40453 301 453 0 40454 301 454 0 CMASS3 40455 301 455 0 40456 301 456 0 CMASS3 40457 301 457 0 40458 301 458 0 CMASS3 40459 301 459 0 40460 301 460 0 CMASS3 40461 301 461 0 40462 301 462 0 CMASS3 40463 301 463 0 40464 301 464 0 CMASS3 40465 301 465 0 40466 301 466 0 CMASS3 40467 301 467 0 40468 301 468 0 CMASS3 40469 301 469 0 40470 301 470 0 CMASS3 40471 301 471 0 40472 301 472 0 CMASS3 40473 301 473 0 40474 301 474 0 CMASS3 40475 301 475 0 40476 301 476 0 CMASS3 40477 301 477 0 40478 301 478 0 CMASS3 40479 301 479 0 40480 301 480 0 CMASS3 40481 301 481 0 40482 301 482 0 CMASS3 40483 301 483 0 40484 301 484 0 CMASS3 40485 301 485 0 40486 301 486 0 CMASS3 40487 301 487 0 40488 301 488 0 CMASS3 40489 301 489 0 40490 301 490 0 CMASS3 40491 301 491 0 40492 301 492 0 CMASS3 40493 301 493 0 40494 301 494 0 CMASS3 40495 301 495 0 40496 301 496 0 CMASS3 40497 301 497 0 40498 301 498 0 CMASS3 40499 301 499 0 40500 301 500 0 DAREA 11 2 1.0 3 1.0 DAREA 11 4 1.0 5 1.0 DAREA 11 6 1.0 7 1.0 DAREA 11 8 1.0 9 1.0 DAREA 11 10 1.0 11 1.0 DAREA 11 12 1.0 13 1.0 DAREA 11 14 1.0 15 1.0 DAREA 11 16 1.0 17 1.0 DAREA 11 18 1.0 19 1.0 DAREA 11 20 1.0 21 1.0 DAREA 11 22 1.0 23 1.0 DAREA 11 24 1.0 25 1.0 DAREA 11 26 1.0 27 1.0 DAREA 11 28 1.0 29 1.0 DAREA 11 30 1.0 31 1.0 DAREA 11 32 1.0 33 1.0 DAREA 11 34 1.0 35 1.0 DAREA 11 36 1.0 37 1.0 DAREA 11 38 1.0 39 1.0 DAREA 11 40 1.0 41 1.0 DAREA 11 42 1.0 43 1.0 DAREA 11 44 1.0 45 1.0 DAREA 11 46 1.0 47 1.0 DAREA 11 48 1.0 49 1.0 DAREA 11 50 1.0 51 1.0 DAREA 11 52 1.0 53 1.0 DAREA 11 54 1.0 55 1.0 DAREA 11 56 1.0 57 1.0 DAREA 11 58 1.0 59 1.0 DAREA 11 60 1.0 61 1.0 DAREA 11 62 1.0 63 1.0 DAREA 11 64 1.0 65 1.0 DAREA 11 66 1.0 67 1.0 DAREA 11 68 1.0 69 1.0 DAREA 11 70 1.0 71 1.0 DAREA 11 72 1.0 73 1.0 DAREA 11 74 1.0 75 1.0 DAREA 11 76 1.0 77 1.0 DAREA 11 78 1.0 79 1.0 DAREA 11 80 1.0 81 1.0 DAREA 11 82 1.0 83 1.0 DAREA 11 84 1.0 85 1.0 DAREA 11 86 1.0 87 1.0 DAREA 11 88 1.0 89 1.0 DAREA 11 90 1.0 91 1.0 DAREA 11 92 1.0 93 1.0 DAREA 11 94 1.0 95 1.0 DAREA 11 96 1.0 97 1.0 DAREA 11 98 1.0 99 1.0 DAREA 11 100 1.0 101 1.0 DAREA 11 102 1.0 103 1.0 DAREA 11 104 1.0 105 1.0 DAREA 11 106 1.0 107 1.0 DAREA 11 108 1.0 109 1.0 DAREA 11 110 1.0 111 1.0 DAREA 11 112 1.0 113 1.0 DAREA 11 114 1.0 115 1.0 DAREA 11 116 1.0 117 1.0 DAREA 11 118 1.0 119 1.0 DAREA 11 120 1.0 121 1.0 DAREA 11 122 1.0 123 1.0 DAREA 11 124 1.0 125 1.0 DAREA 11 126 1.0 127 1.0 DAREA 11 128 1.0 129 1.0 DAREA 11 130 1.0 131 1.0 DAREA 11 132 1.0 133 1.0 DAREA 11 134 1.0 135 1.0 DAREA 11 136 1.0 137 1.0 DAREA 11 138 1.0 139 1.0 DAREA 11 140 1.0 141 1.0 DAREA 11 142 1.0 143 1.0 DAREA 11 144 1.0 145 1.0 DAREA 11 146 1.0 147 1.0 DAREA 11 148 1.0 149 1.0 DAREA 11 150 1.0 151 1.0 DAREA 11 152 1.0 153 1.0 DAREA 11 154 1.0 155 1.0 DAREA 11 156 1.0 157 1.0 DAREA 11 158 1.0 159 1.0 DAREA 11 160 1.0 161 1.0 DAREA 11 162 1.0 163 1.0 DAREA 11 164 1.0 165 1.0 DAREA 11 166 1.0 167 1.0 DAREA 11 168 1.0 169 1.0 DAREA 11 170 1.0 171 1.0 DAREA 11 172 1.0 173 1.0 DAREA 11 174 1.0 175 1.0 DAREA 11 176 1.0 177 1.0 DAREA 11 178 1.0 179 1.0 DAREA 11 180 1.0 181 1.0 DAREA 11 182 1.0 183 1.0 DAREA 11 184 1.0 185 1.0 DAREA 11 186 1.0 187 1.0 DAREA 11 188 1.0 189 1.0 DAREA 11 190 1.0 191 1.0 DAREA 11 192 1.0 193 1.0 DAREA 11 194 1.0 195 1.0 DAREA 11 196 1.0 197 1.0 DAREA 11 198 1.0 199 1.0 DAREA 11 200 1.0 201 1.0 DAREA 11 202 1.0 203 1.0 DAREA 11 204 1.0 205 1.0 DAREA 11 206 1.0 207 1.0 DAREA 11 208 1.0 209 1.0 DAREA 11 210 1.0 211 1.0 DAREA 11 212 1.0 213 1.0 DAREA 11 214 1.0 215 1.0 DAREA 11 216 1.0 217 1.0 DAREA 11 218 1.0 219 1.0 DAREA 11 220 1.0 221 1.0 DAREA 11 222 1.0 223 1.0 DAREA 11 224 1.0 225 1.0 DAREA 11 226 1.0 227 1.0 DAREA 11 228 1.0 229 1.0 DAREA 11 230 1.0 231 1.0 DAREA 11 232 1.0 233 1.0 DAREA 11 234 1.0 235 1.0 DAREA 11 236 1.0 237 1.0 DAREA 11 238 1.0 239 1.0 DAREA 11 240 1.0 241 1.0 DAREA 11 242 1.0 243 1.0 DAREA 11 244 1.0 245 1.0 DAREA 11 246 1.0 247 1.0 DAREA 11 248 1.0 249 1.0 DAREA 11 250 1.0 251 1.0 DAREA 11 252 1.0 253 1.0 DAREA 11 254 1.0 255 1.0 DAREA 11 256 1.0 257 1.0 DAREA 11 258 1.0 259 1.0 DAREA 11 260 1.0 261 1.0 DAREA 11 262 1.0 263 1.0 DAREA 11 264 1.0 265 1.0 DAREA 11 266 1.0 267 1.0 DAREA 11 268 1.0 269 1.0 DAREA 11 270 1.0 271 1.0 DAREA 11 272 1.0 273 1.0 DAREA 11 274 1.0 275 1.0 DAREA 11 276 1.0 277 1.0 DAREA 11 278 1.0 279 1.0 DAREA 11 280 1.0 281 1.0 DAREA 11 282 1.0 283 1.0 DAREA 11 284 1.0 285 1.0 DAREA 11 286 1.0 287 1.0 DAREA 11 288 1.0 289 1.0 DAREA 11 290 1.0 291 1.0 DAREA 11 292 1.0 293 1.0 DAREA 11 294 1.0 295 1.0 DAREA 11 296 1.0 297 1.0 DAREA 11 298 1.0 299 1.0 DAREA 11 300 1.0 301 1.0 DAREA 11 302 1.0 303 1.0 DAREA 11 304 1.0 305 1.0 DAREA 11 306 1.0 307 1.0 DAREA 11 308 1.0 309 1.0 DAREA 11 310 1.0 311 1.0 DAREA 11 312 1.0 313 1.0 DAREA 11 314 1.0 315 1.0 DAREA 11 316 1.0 317 1.0 DAREA 11 318 1.0 319 1.0 DAREA 11 320 1.0 321 1.0 DAREA 11 322 1.0 323 1.0 DAREA 11 324 1.0 325 1.0 DAREA 11 326 1.0 327 1.0 DAREA 11 328 1.0 329 1.0 DAREA 11 330 1.0 331 1.0 DAREA 11 332 1.0 333 1.0 DAREA 11 334 1.0 335 1.0 DAREA 11 336 1.0 337 1.0 DAREA 11 338 1.0 339 1.0 DAREA 11 340 1.0 341 1.0 DAREA 11 342 1.0 343 1.0 DAREA 11 344 1.0 345 1.0 DAREA 11 346 1.0 347 1.0 DAREA 11 348 1.0 349 1.0 DAREA 11 350 1.0 351 1.0 DAREA 11 352 1.0 353 1.0 DAREA 11 354 1.0 355 1.0 DAREA 11 356 1.0 357 1.0 DAREA 11 358 1.0 359 1.0 DAREA 11 360 1.0 361 1.0 DAREA 11 362 1.0 363 1.0 DAREA 11 364 1.0 365 1.0 DAREA 11 366 1.0 367 1.0 DAREA 11 368 1.0 369 1.0 DAREA 11 370 1.0 371 1.0 DAREA 11 372 1.0 373 1.0 DAREA 11 374 1.0 375 1.0 DAREA 11 376 1.0 377 1.0 DAREA 11 378 1.0 379 1.0 DAREA 11 380 1.0 381 1.0 DAREA 11 382 1.0 383 1.0 DAREA 11 384 1.0 385 1.0 DAREA 11 386 1.0 387 1.0 DAREA 11 388 1.0 389 1.0 DAREA 11 390 1.0 391 1.0 DAREA 11 392 1.0 393 1.0 DAREA 11 394 1.0 395 1.0 DAREA 11 396 1.0 397 1.0 DAREA 11 398 1.0 399 1.0 DAREA 11 400 1.0 401 1.0 DAREA 11 402 1.0 403 1.0 DAREA 11 404 1.0 405 1.0 DAREA 11 406 1.0 407 1.0 DAREA 11 408 1.0 409 1.0 DAREA 11 410 1.0 411 1.0 DAREA 11 412 1.0 413 1.0 DAREA 11 414 1.0 415 1.0 DAREA 11 416 1.0 417 1.0 DAREA 11 418 1.0 419 1.0 DAREA 11 420 1.0 421 1.0 DAREA 11 422 1.0 423 1.0 DAREA 11 424 1.0 425 1.0 DAREA 11 426 1.0 427 1.0 DAREA 11 428 1.0 429 1.0 DAREA 11 430 1.0 431 1.0 DAREA 11 432 1.0 433 1.0 DAREA 11 434 1.0 435 1.0 DAREA 11 436 1.0 437 1.0 DAREA 11 438 1.0 439 1.0 DAREA 11 440 1.0 441 1.0 DAREA 11 442 1.0 443 1.0 DAREA 11 444 1.0 445 1.0 DAREA 11 446 1.0 447 1.0 DAREA 11 448 1.0 449 1.0 DAREA 11 450 1.0 451 1.0 DAREA 11 452 1.0 453 1.0 DAREA 11 454 1.0 455 1.0 DAREA 11 456 1.0 457 1.0 DAREA 11 458 1.0 459 1.0 DAREA 11 460 1.0 461 1.0 DAREA 11 462 1.0 463 1.0 DAREA 11 464 1.0 465 1.0 DAREA 11 466 1.0 467 1.0 DAREA 11 468 1.0 469 1.0 DAREA 11 470 1.0 471 1.0 DAREA 11 472 1.0 473 1.0 DAREA 11 474 1.0 475 1.0 DAREA 11 476 1.0 477 1.0 DAREA 11 478 1.0 479 1.0 DAREA 11 480 1.0 481 1.0 DAREA 11 482 1.0 483 1.0 DAREA 11 484 1.0 485 1.0 DAREA 11 486 1.0 487 1.0 DAREA 11 488 1.0 489 1.0 DAREA 11 490 1.0 491 1.0 DAREA 11 492 1.0 493 1.0 DAREA 11 494 1.0 495 1.0 DAREA 11 496 1.0 497 1.0 DAREA 11 498 1.0 499 1.0 DAREA 11 500 1.0 EIGR 10 FEER 10.5 20 +FEER +FEER MAX EIGR 11 INV .0 21.0 20 20 +EIGR +EIGR MAX FREQ2 11 .1 10.0 15 PARAM LMODES 20 PARAM MODACC 1 PELAS 101 1.0+7 PMASS 301 10.000 RLOAD1 11 11 1 TABLED1 1 *T1 *T1 -10.0 310.022767 100.0 310.022767 *T2 *T2 ENDT ENDDATA ================================================ FILE: inp/d11021a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 11, Frequency Response Analysis - Modal Formulation $ Frequency Response of a 500-Cell String (11-2-1) $ Frequency Response of a 500-Cell String (INPUT, 11-2-2) $ $ A. Description $ $ This problem illustrates the solution of a large frequency response problem $ using modal coordinates. When large numbers of frequency steps are used, or $ the problem is very large, the relative efficiency of the modal formulation is $ more attractive than the direct formulation. The structural model consists of $ scalar points, springs, and masses which simulate the transverse motions of a $ string under tension, T, with a mass per length of mu. A duplicate model is $ obtained via the INPUT module to generate the scalar springs and masses. $ $ Selected scalar point displacements and scalar element forces are plotted $ versus frequency. The magnitude and phase of the displacements are plotted $ separately, each on one-half of the plotter frame. The magnitude plots for the $ selected points are all drawn on a whole plotter frame for comparisons. The $ center spring element has the magnitude of its internal force plotted versus $ frequency. $ $ B. Input $ $ 1. Parameters: $ $ m = 10 - mass $ i $ 7 $ K = 10 - spring rate $ i $ $ N = 500 - number of cells $ $ where $ T $ K = ------- , m = mu delta x $ i delta x i $ $ 2. Loads $ $ The load on each point is: $ $ 3 $ P (w) = delta xp = 10 pi $ i x $ $ where p is the load per length of string. $ x $ $ The steady state frequency response is desired from .1 to 10 cycles per $ second in 15 logarithmic increments. $ $ 3. Real Eigenvalue Data $ $ Method: FEER $ $ Center of neighborhood: 10.5 $ $ Normalization: maximum deflection $ $ Number of modes used in formulation: 20 $ $ C. Theory $ $ The analysis of the string is given in Reference 11, Chapter 6. The response, $ xi , of mode number n is given by the equation: $ n $ $ n pi x $ integral o to l P(x) sin(------) dx $ l $ xi = ----------------------------------- (1) $ n 2 n pi x 2 2 $ [integral o to l mu sin (------)[w - w ] $ l n $ $ where w , the natural frequencies, are (n pi/N)sqrt(K /m ) for the theoretical $ n i i $ continuous string. $ $ For a uniform load: $ 2p l 2P N 4 2 $ n pi x x i 10 pi $ integral o to l P(x) sin(------) dx = ---- = ---- = ------ (2) $ l n pi n pi n $ $ Nm $ 2 n pi x ul i 3 $ integral o to l mu sin (------) dx = -- = --- = 2.5 x 10 (3) $ l 2 2 $ $ The displacement of the center point is: $ $ l n pi $ u(-) = sum xi sin ---- = xi - xi + xi -xi + ... (4) $ 2 n 2 1 3 5 7 $ $ D. Results $ $ At f = 0.1, the response due to 20 modes is: $ $ l $ u(-) = .97895 (Theory) $ 2 $ $ u = .97888 (NASTRAN) $ 251 $ $ APPLICABLE REFERENCES $ $ 11. I. S. Sokolnikoff and R. M. Redheffer, MATHEMATICS OF PHYSICS AND MODERN $ ENGINEERING. McGraw-Hill, 1958. $------------------------------------------------------------------------------- ================================================ FILE: inp/d11022a.inp ================================================ NASTRAN FILES=PLT2 ID D11022A,NASTRAN APP DISPLACEMENT TIME 26 SOL 11,1 DIAG 14 ALTER 1 $ PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/,G2,,,/C,N,5 $ EQUIV G2,GEOM2/TRUE $ ENDALTER $ CEND TITLE = FREQUENCY RESPONSE OF A 500 CELL STRING SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A METHOD = 10 FREQ = 11 DLOAD = 11 OUTPUT SET 1 = 51, 101, 151, 201, 251, 301, 351, 401, 451 SET 2 = 1 THRU 5 DISPLACEMENT(PHASE,SORT2) = 1 SDISPLACEMENT(PHASE,SORT2) = 2 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A OUTPUT(XYOUT) PLOTTER = NASTPLT CAMERA = 3 SKIP BETWEEN FRAMES = 1 CURVE LINE AND SYMBOLS = 1 XLOG = YES YTLOG = YES XTGRID = YES XBGRID = YES YTGRID = YES YBGRID = YES XTITLE = FREQUENCY (HERTZ) YTTITLE = MAGNITUDE *INCH* YBTITLE = PHASE *DEGREE* $ $ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * $ TCURVE = * * * * * * SPOINT 5 1 * * * * * * * * * * * * * * * * XYPLOT DISP / 51(T1RM,T1IP) TCURVE = * * * * * * SPOINT 1 0 1 * * * * * * * * * * * * * * * XYPLOT DISP / 101(T1RM,T1IP) TCURVE = * * * * * * SPOINT 1 5 1 * * * * * * * * * * * * * * * XYPLOT DISP / 151(T1RM,T1IP) TCURVE = * * * * * * SPOINT 2 0 1 * * * * * * * * * * * * * * * XYPLOT DISP / 201(T1RM,T1IP) TCURVE = * * * * * * SPOINT 2 5 1 * * * * * * * * * * * * * * * XYPLOT DISP / 251(T1RM,T1IP) $ $ * * * * * * * * * * * * * * * * * * * * * * * * $ YLOG = YES YTITLE = MAGNITUDE *INCH* XGRID LINES = YES YGRID LINES = YES TCURVE = * * * * * SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * * XYPLOT DISP / 51(3), 101(3), 151(3), 201(3), 251(3) YLOG = NO YTITLE = REAL PART *POUNDS* TCURVE = * * * * * * * FORCE IN STRING ELEMENT 251 * * * * * * * * XYPLOT, XYPRINT ELFORCE RESPONSE / 251(2) $ BEGIN BULK DAREA 11 2 1.0 3 1.0 DAREA 11 4 1.0 5 1.0 DAREA 11 6 1.0 7 1.0 DAREA 11 8 1.0 9 1.0 DAREA 11 10 1.0 11 1.0 DAREA 11 12 1.0 13 1.0 DAREA 11 14 1.0 15 1.0 DAREA 11 16 1.0 17 1.0 DAREA 11 18 1.0 19 1.0 DAREA 11 20 1.0 21 1.0 DAREA 11 22 1.0 23 1.0 DAREA 11 24 1.0 25 1.0 DAREA 11 26 1.0 27 1.0 DAREA 11 28 1.0 29 1.0 DAREA 11 30 1.0 31 1.0 DAREA 11 32 1.0 33 1.0 DAREA 11 34 1.0 35 1.0 DAREA 11 36 1.0 37 1.0 DAREA 11 38 1.0 39 1.0 DAREA 11 40 1.0 41 1.0 DAREA 11 42 1.0 43 1.0 DAREA 11 44 1.0 45 1.0 DAREA 11 46 1.0 47 1.0 DAREA 11 48 1.0 49 1.0 DAREA 11 50 1.0 51 1.0 DAREA 11 52 1.0 53 1.0 DAREA 11 54 1.0 55 1.0 DAREA 11 56 1.0 57 1.0 DAREA 11 58 1.0 59 1.0 DAREA 11 60 1.0 61 1.0 DAREA 11 62 1.0 63 1.0 DAREA 11 64 1.0 65 1.0 DAREA 11 66 1.0 67 1.0 DAREA 11 68 1.0 69 1.0 DAREA 11 70 1.0 71 1.0 DAREA 11 72 1.0 73 1.0 DAREA 11 74 1.0 75 1.0 DAREA 11 76 1.0 77 1.0 DAREA 11 78 1.0 79 1.0 DAREA 11 80 1.0 81 1.0 DAREA 11 82 1.0 83 1.0 DAREA 11 84 1.0 85 1.0 DAREA 11 86 1.0 87 1.0 DAREA 11 88 1.0 89 1.0 DAREA 11 90 1.0 91 1.0 DAREA 11 92 1.0 93 1.0 DAREA 11 94 1.0 95 1.0 DAREA 11 96 1.0 97 1.0 DAREA 11 98 1.0 99 1.0 DAREA 11 100 1.0 101 1.0 DAREA 11 102 1.0 103 1.0 DAREA 11 104 1.0 105 1.0 DAREA 11 106 1.0 107 1.0 DAREA 11 108 1.0 109 1.0 DAREA 11 110 1.0 111 1.0 DAREA 11 112 1.0 113 1.0 DAREA 11 114 1.0 115 1.0 DAREA 11 116 1.0 117 1.0 DAREA 11 118 1.0 119 1.0 DAREA 11 120 1.0 121 1.0 DAREA 11 122 1.0 123 1.0 DAREA 11 124 1.0 125 1.0 DAREA 11 126 1.0 127 1.0 DAREA 11 128 1.0 129 1.0 DAREA 11 130 1.0 131 1.0 DAREA 11 132 1.0 133 1.0 DAREA 11 134 1.0 135 1.0 DAREA 11 136 1.0 137 1.0 DAREA 11 138 1.0 139 1.0 DAREA 11 140 1.0 141 1.0 DAREA 11 142 1.0 143 1.0 DAREA 11 144 1.0 145 1.0 DAREA 11 146 1.0 147 1.0 DAREA 11 148 1.0 149 1.0 DAREA 11 150 1.0 151 1.0 DAREA 11 152 1.0 153 1.0 DAREA 11 154 1.0 155 1.0 DAREA 11 156 1.0 157 1.0 DAREA 11 158 1.0 159 1.0 DAREA 11 160 1.0 161 1.0 DAREA 11 162 1.0 163 1.0 DAREA 11 164 1.0 165 1.0 DAREA 11 166 1.0 167 1.0 DAREA 11 168 1.0 169 1.0 DAREA 11 170 1.0 171 1.0 DAREA 11 172 1.0 173 1.0 DAREA 11 174 1.0 175 1.0 DAREA 11 176 1.0 177 1.0 DAREA 11 178 1.0 179 1.0 DAREA 11 180 1.0 181 1.0 DAREA 11 182 1.0 183 1.0 DAREA 11 184 1.0 185 1.0 DAREA 11 186 1.0 187 1.0 DAREA 11 188 1.0 189 1.0 DAREA 11 190 1.0 191 1.0 DAREA 11 192 1.0 193 1.0 DAREA 11 194 1.0 195 1.0 DAREA 11 196 1.0 197 1.0 DAREA 11 198 1.0 199 1.0 DAREA 11 200 1.0 201 1.0 DAREA 11 202 1.0 203 1.0 DAREA 11 204 1.0 205 1.0 DAREA 11 206 1.0 207 1.0 DAREA 11 208 1.0 209 1.0 DAREA 11 210 1.0 211 1.0 DAREA 11 212 1.0 213 1.0 DAREA 11 214 1.0 215 1.0 DAREA 11 216 1.0 217 1.0 DAREA 11 218 1.0 219 1.0 DAREA 11 220 1.0 221 1.0 DAREA 11 222 1.0 223 1.0 DAREA 11 224 1.0 225 1.0 DAREA 11 226 1.0 227 1.0 DAREA 11 228 1.0 229 1.0 DAREA 11 230 1.0 231 1.0 DAREA 11 232 1.0 233 1.0 DAREA 11 234 1.0 235 1.0 DAREA 11 236 1.0 237 1.0 DAREA 11 238 1.0 239 1.0 DAREA 11 240 1.0 241 1.0 DAREA 11 242 1.0 243 1.0 DAREA 11 244 1.0 245 1.0 DAREA 11 246 1.0 247 1.0 DAREA 11 248 1.0 249 1.0 DAREA 11 250 1.0 251 1.0 DAREA 11 252 1.0 253 1.0 DAREA 11 254 1.0 255 1.0 DAREA 11 256 1.0 257 1.0 DAREA 11 258 1.0 259 1.0 DAREA 11 260 1.0 261 1.0 DAREA 11 262 1.0 263 1.0 DAREA 11 264 1.0 265 1.0 DAREA 11 266 1.0 267 1.0 DAREA 11 268 1.0 269 1.0 DAREA 11 270 1.0 271 1.0 DAREA 11 272 1.0 273 1.0 DAREA 11 274 1.0 275 1.0 DAREA 11 276 1.0 277 1.0 DAREA 11 278 1.0 279 1.0 DAREA 11 280 1.0 281 1.0 DAREA 11 282 1.0 283 1.0 DAREA 11 284 1.0 285 1.0 DAREA 11 286 1.0 287 1.0 DAREA 11 288 1.0 289 1.0 DAREA 11 290 1.0 291 1.0 DAREA 11 292 1.0 293 1.0 DAREA 11 294 1.0 295 1.0 DAREA 11 296 1.0 297 1.0 DAREA 11 298 1.0 299 1.0 DAREA 11 300 1.0 301 1.0 DAREA 11 302 1.0 303 1.0 DAREA 11 304 1.0 305 1.0 DAREA 11 306 1.0 307 1.0 DAREA 11 308 1.0 309 1.0 DAREA 11 310 1.0 311 1.0 DAREA 11 312 1.0 313 1.0 DAREA 11 314 1.0 315 1.0 DAREA 11 316 1.0 317 1.0 DAREA 11 318 1.0 319 1.0 DAREA 11 320 1.0 321 1.0 DAREA 11 322 1.0 323 1.0 DAREA 11 324 1.0 325 1.0 DAREA 11 326 1.0 327 1.0 DAREA 11 328 1.0 329 1.0 DAREA 11 330 1.0 331 1.0 DAREA 11 332 1.0 333 1.0 DAREA 11 334 1.0 335 1.0 DAREA 11 336 1.0 337 1.0 DAREA 11 338 1.0 339 1.0 DAREA 11 340 1.0 341 1.0 DAREA 11 342 1.0 343 1.0 DAREA 11 344 1.0 345 1.0 DAREA 11 346 1.0 347 1.0 DAREA 11 348 1.0 349 1.0 DAREA 11 350 1.0 351 1.0 DAREA 11 352 1.0 353 1.0 DAREA 11 354 1.0 355 1.0 DAREA 11 356 1.0 357 1.0 DAREA 11 358 1.0 359 1.0 DAREA 11 360 1.0 361 1.0 DAREA 11 362 1.0 363 1.0 DAREA 11 364 1.0 365 1.0 DAREA 11 366 1.0 367 1.0 DAREA 11 368 1.0 369 1.0 DAREA 11 370 1.0 371 1.0 DAREA 11 372 1.0 373 1.0 DAREA 11 374 1.0 375 1.0 DAREA 11 376 1.0 377 1.0 DAREA 11 378 1.0 379 1.0 DAREA 11 380 1.0 381 1.0 DAREA 11 382 1.0 383 1.0 DAREA 11 384 1.0 385 1.0 DAREA 11 386 1.0 387 1.0 DAREA 11 388 1.0 389 1.0 DAREA 11 390 1.0 391 1.0 DAREA 11 392 1.0 393 1.0 DAREA 11 394 1.0 395 1.0 DAREA 11 396 1.0 397 1.0 DAREA 11 398 1.0 399 1.0 DAREA 11 400 1.0 401 1.0 DAREA 11 402 1.0 403 1.0 DAREA 11 404 1.0 405 1.0 DAREA 11 406 1.0 407 1.0 DAREA 11 408 1.0 409 1.0 DAREA 11 410 1.0 411 1.0 DAREA 11 412 1.0 413 1.0 DAREA 11 414 1.0 415 1.0 DAREA 11 416 1.0 417 1.0 DAREA 11 418 1.0 419 1.0 DAREA 11 420 1.0 421 1.0 DAREA 11 422 1.0 423 1.0 DAREA 11 424 1.0 425 1.0 DAREA 11 426 1.0 427 1.0 DAREA 11 428 1.0 429 1.0 DAREA 11 430 1.0 431 1.0 DAREA 11 432 1.0 433 1.0 DAREA 11 434 1.0 435 1.0 DAREA 11 436 1.0 437 1.0 DAREA 11 438 1.0 439 1.0 DAREA 11 440 1.0 441 1.0 DAREA 11 442 1.0 443 1.0 DAREA 11 444 1.0 445 1.0 DAREA 11 446 1.0 447 1.0 DAREA 11 448 1.0 449 1.0 DAREA 11 450 1.0 451 1.0 DAREA 11 452 1.0 453 1.0 DAREA 11 454 1.0 455 1.0 DAREA 11 456 1.0 457 1.0 DAREA 11 458 1.0 459 1.0 DAREA 11 460 1.0 461 1.0 DAREA 11 462 1.0 463 1.0 DAREA 11 464 1.0 465 1.0 DAREA 11 466 1.0 467 1.0 DAREA 11 468 1.0 469 1.0 DAREA 11 470 1.0 471 1.0 DAREA 11 472 1.0 473 1.0 DAREA 11 474 1.0 475 1.0 DAREA 11 476 1.0 477 1.0 DAREA 11 478 1.0 479 1.0 DAREA 11 480 1.0 481 1.0 DAREA 11 482 1.0 483 1.0 DAREA 11 484 1.0 485 1.0 DAREA 11 486 1.0 487 1.0 DAREA 11 488 1.0 489 1.0 DAREA 11 490 1.0 491 1.0 DAREA 11 492 1.0 493 1.0 DAREA 11 494 1.0 495 1.0 DAREA 11 496 1.0 497 1.0 DAREA 11 498 1.0 499 1.0 DAREA 11 500 1.0 EIGR 10 FEER 10.5 20 +FEER +FEER MAX EIGR 11 INV .0 21.0 20 20 +EIGR +EIGR MAX FREQ2 11 .1 10.0 15 PARAM LMODES 20 PARAM MODACC 1 RLOAD1 11 11 1 TABLED1 1 *T1 *T1 -10.0 310.022767 100.0 310.022767 *T2 *T2 ENDT ENDDATA 500 1.0E+07 0.0 1.0E+01 0.0 ================================================ FILE: inp/d11022a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 11, Frequency Response Analysis - Modal Formulation $ Frequency Response of a 500-Cell String (11-2-1) $ Frequency Response of a 500-Cell String (INPUT, 11-2-2) $ $ A. Description $ $ This problem illustrates the solution of a large frequency response problem $ using modal coordinates. When large numbers of frequency steps are used, or $ the problem is very large, the relative efficiency of the modal formulation is $ more attractive than the direct formulation. The structural model consists of $ scalar points, springs, and masses which simulate the transverse motions of a $ string under tension, T, with a mass per length of mu. A duplicate model is $ obtained via the INPUT module to generate the scalar springs and masses. $ $ Selected scalar point displacements and scalar element forces are plotted $ versus frequency. The magnitude and phase of the displacements are plotted $ separately, each on one-half of the plotter frame. The magnitude plots for the $ selected points are all drawn on a whole plotter frame for comparisons. The $ center spring element has the magnitude of its internal force plotted versus $ frequency. $ $ B. Input $ $ 1. Parameters: $ $ m = 10 - mass $ i $ 7 $ K = 10 - spring rate $ i $ $ N = 500 - number of cells $ $ where $ T $ K = ------- , m = mu delta x $ i delta x i $ $ 2. Loads $ $ The load on each point is: $ $ 3 $ P (w) = delta xp = 10 pi $ i x $ $ where p is the load per length of string. $ x $ $ The steady state frequency response is desired from .1 to 10 cycles per $ second in 15 logarithmic increments. $ $ 3. Real Eigenvalue Data $ $ Method: FEER $ $ Center of neighborhood: 10.5 $ $ Normalization: maximum deflection $ $ Number of modes used in formulation: 20 $ $ C. Theory $ $ The analysis of the string is given in Reference 11, Chapter 6. The response, $ xi , of mode number n is given by the equation: $ n $ $ n pi x $ integral o to l P(x) sin(------) dx $ l $ xi = ----------------------------------- (1) $ n 2 n pi x 2 2 $ [integral o to l mu sin (------)[w - w ] $ l n $ $ where w , the natural frequencies, are (n pi/N)sqrt(K /m ) for the theoretical $ n i i $ continuous string. $ $ For a uniform load: $ 2p l 2P N 4 2 $ n pi x x i 10 pi $ integral o to l P(x) sin(------) dx = ---- = ---- = ------ (2) $ l n pi n pi n $ $ Nm $ 2 n pi x ul i 3 $ integral o to l mu sin (------) dx = -- = --- = 2.5 x 10 (3) $ l 2 2 $ $ The displacement of the center point is: $ $ l n pi $ u(-) = sum xi sin ---- = xi - xi + xi -xi + ... (4) $ 2 n 2 1 3 5 7 $ $ D. Results $ $ At f = 0.1, the response due to 20 modes is: $ $ l $ u(-) = .97895 (Theory) $ 2 $ $ u = .97888 (NASTRAN) $ 251 $ $ APPLICABLE REFERENCES $ $ 11. I. S. Sokolnikoff and R. M. Redheffer, MATHEMATICS OF PHYSICS AND MODERN $ ENGINEERING. McGraw-Hill, 1958. $------------------------------------------------------------------------------- ================================================ FILE: inp/d11031a.inp ================================================ ID D11031A,NASTRAN APP AERO SOL 11,0 TIME 25 CEND TITLE = JET TRANSPORT WING DYNAMIC ANALYSIS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A LABEL = SYMMETRIC RESPONSE , STIFF AILERON ECHO = BOTH $ $ MODEL DESCRIPTION JET TRANSPORT WING EXAMPLE $ SYMMETRIC RESPONSE TO A RANDOM $ GUST WITH A STIFF AILERON $ SPC = 14 $ SYM , NO PITCH MPC = 1 METHOD = 10 $ GIVENS SDAMP = 2000 FREQ = 40 RANDOM = 1031 $ EMPIRICAL PSDF OUTPUT $ $ SOLUTION RANDOM ANALYSIS USING $ DOUBLET-LATTICE METHOD AERODYNAMICS $ AT MACH NO. OF .62 $ SET 1 = 1 , 2 , 12 $ SET 2 = 1 , 9 THRU 12 , 1040 SET 3 = 11 SET 4 = 1001 , 1022 , 1023 , 1040 , 1041 $ SDISP(IMAG) = 1 DISP(IMAG) = 2 SPCF(IMAG) = 3 AEROF = 4 SUBCASE 1 LABEL = RANDOM GUST ANALYSIS GUST = 3002 $ $ PRODUCES XY PAPER PLOTS OF MODAL AND GRID POINT DISPLACEMENT $ AND WING ROOT BENDING MOMENTS $ OUTPUT(XYOUT) $ FREQ RESP PACKAGE (COMPLEX NUMBERS) CURVELINESYMBOL = 1 XTITLE = FREQUENCY(HERTZ) JET TRANSPORT , FREQUENCY RESPONSE YTITLE = MODAL DEFLECTION TCURVE = FIRST MODE (PLUNGE) XYPAPERPLOT SDISP / 1(T1RM) , 1(T1IP) TCURVE = SECOND MODE (WING BENDING) XYPAPERPLOT SDISP / 2(T1RM) , 2(T1IP) TCURVE = TWELFTH MODE (AILERON) XYPAPERPLOT SDISP / 12(T1RM) , 12(T1IP) YTITLE = PHYSICAL DEFLECTION TCURVE = WING ( 3/4 CHORD , 1/4 CHORD , STA 458 ) XYPAPERPLOT DISP / 9(T3RM) , 9(T3IP) , 10(T3RM) , 10(T3IP) TCURVE = FUSELAGE PLUNGE XYPAPERPLOT DISP / 11(T3RM) , 11(T3IP) TCURVE = AILERON DEFLECTION XYPAPERPLOT DISP / 12(R2RM) , 12(R2IP) TCURVE = AERODYNAMIC BOX NEAR TIP , PITCH XYPAPERPLOT DISP / 1040(R2RM) , 1040(R2IP) TCURVE = WING ROOT BENDING MOMENT YTITLE = ROTATIONAL CONSTRAINTS XYPAPERPLOT SPCF / 11(R3RM) , 11(R3IP) $ RANDOM ANALYSIS OUTPUT REQUESTS XTITLE = FREQUENCY (HERTZ) JET TRANSPORT , RANDOM ANALYSIS TCURVE = POWER SPECTRAL DENSITY FUNCTION YTITLE = FUSELAGE PLUNGE (11T3) , PSDF , GUST LOAD XYPAPERPLOT DISP PSDF / 11(T3) YTITLE = WING TIP DISPLACEMENT (9T3) , PSDF , GUST LOAD XYPAPERPLOT DISP PSDF / 9(T3) YTITLE = WING ROOT BENDING MOMENT (11R3) , PSDF , GUST LOAD XYPAPERPLOT SPCF PSDF / 11(R3) BEGIN BULK AEFACT 1 0.0 .09 .21 .33 .45 .56 .66 +AE1 +AE1 .74 AEFACT 2 .74 .82 .90 .974 AEFACT 3 .974 1.00 AEFACT 4 0.0 .375 .750 1.00 AEFACT 5 0.0 .1875 .375 .625 .750 .875 1.00 AERO 1 8360. 131.232 1.1468-71 SYM CAERO1 1001 1000 0 1 4 1 +CA01 +CA01 78.75 0.0 0.0 225. 35. 500. 0.0 100. CAERO1 1022 1000 0 2 5 1 +CA22 +CA22 78.75 0.0 0.0 225. 35. 500. 0.0 100. CAERO1 1040 1000 0 3 4 1 +CA40 +CA40 78.75 0.0 0.0 225. 35. 500. 0.0 100. CELAS2 3 5142671.12 5 CMASS2 2 13967.2 12 5 CMASS2 121 5248.7 1 3 CMASS2 122 134.9 1 3 2 3 CMASS2 123 790.3 2 3 CMASS2 341 9727. 3 3 CMASS2 342 11005. 3 3 4 3 CMASS2 343 473. 4 3 CMASS2 561 3253.6 5 3 CMASS2 562 -139.7 5 3 6 3 CMASS2 563 946.3 6 3 CMASS2 781 2617.8 7 3 CMASS2 782 21. 7 3 8 3 CMASS2 783 782.3 8 3 CMASS2 9101 494.8 9 3 CMASS2 9102 -7.3 9 3 10 3 CMASS2 9103 185.2 10 3 CONM1 1 11 +51 +51 17400. 4.37+7 +52 +52 4.35+09 CORD2R 1 0.0 0.0 0.0 0.0 0.0 -1. +C1 +C1 -1. 0.0 0.0 DAREA 9999 11 1 1. DUMMY EIGR 10 GIV 0.0 1. 12 +EIGR +EIGR MAX FREQ1 40 0.0 .25 39 GENEL 432 1 3 2 3 3 3 +01 +01 4 3 5 3 6 3 7 3 +02 +02 8 3 9 3 10 3 +03 +03 UD 11 3 11 4 11 5 +03A +03A 11 6 +04 +04 Z 8.7172-61.3361-61.2778-56.2720-61.6251-51.0492-52.0478-5+05 +05 1.5630-52.4285-52.0403-53.0861-56.2720-63.2297-51.0492-53.3529-5+06 +06 1.5630-53.5021-52.0257-53.5785-52.7732-51.5726-54.8255-53.7628-5+07 +07 7.3284-56.4338-59.5810-58.8378-56.3749-53.7628-58.0136-56.4338-5+08 +08 1.0012-48.8378-51.1811-41.2758-41.1344-41.9350-41.8160-42.5283-4+09 +09 2.4294-41.6999-41.8160-42.2920-42.4294-42.8249-43.6862-43.5052-4+10 +10 5.2675-45.1171-44.2292-45.1171-45.7187-48.4840-48.2340-49.2340-4+11 +11 S 1.0 90.0 -20.25 45.0 1.0 90.0 81.0 +12 +12 45.0 1.0 186.0 -17.85 141.0 1.0 186.0 71.4 +13 +13 141.0 1.0 268.0 -15.80 223.0 1.0 268.0 63.2 +14 +14 223.0 1.0 368.0 -13.30 323.0 1.0 368.0 53.2 +15 +15 323.0 1.0 458.0 -11.05 413.0 1.0 458.0 44.2 +16 +16 413.0 GRID 1 20.25 90. 12456 GRID 2 -81. 90. 12456 GRID 3 17.85 186. 12456 GRID 4 -71.4 186. 12456 GRID 5 15.8 268. 12456 GRID 6 -63.2 268. 12456 GRID 7 13.3 368. 12456 GRID 8 -53.2 368. 12456 GRID 9 11.05 458. 12456 GRID 10 -44.2 458. 12456 GRID 11 .0 .0 126 GRID 12 -86.45 368. 1246 GUST 3002 3002 1.1962-40.0 8360. MKAERO1 .62 +MK +MK .02 .10 .50 MPC 1 12 3 -1.0 8 3 1.5 +MPC1 +MPC1 7 3 -0.5 12 5 33.25 PAERO1 1000 PARAM GUSTAERO1 PARAM LMODES 12 PARAM MACH .62 PARAM Q 4.00747 PARAM WTMASS .0025907 RANDPS 1031 1 1 1. 1032 RLOAD1 3002 9999 1004 SET1 14 1 THRU 11 SET1 15 8 10 12 SPC 14 11 45 SPLINE1 104 1022 1026 1039 15 SPLINE2 101 1001 1001 1021 14 0.0 2. 0 +SP1 +SP1 -1.0 -1.0 SPLINE2 102 1022 1022 1037 14 0.0 2. 0 +SP2 +SP2 -1.0 -1.0 SPLINE2 103 1040 1040 1042 14 0.0 2. 0 +SP3 +SP3 -1.0 -1.0 SUPORT 11 3 TABDMP1 2000 +T2000 +T2000 0.0 .06 10. .06 ENDT TABLED1 1004 T1004 +T1004 0.0 0.0 .01 1. 10. 1. ENDT TABRND1 1032 +001 +001 .00 2.8708+0.25 1.2641+0.50 4.7188-1.75 2.3080-1+002 +002 1.00 1.3456-11.25 8.7595-21.50 6.1402-21.75 4.5369-2+003 +003 2.00 3.4865-22.25 2.7618-22.50 2.2412-22.75 1.8547-2+004 +004 3.00 1.5601-23.25 1.3304-23.50 1.1478-23.75 1.0004-2+005 +005 4.00 8.7964-34.25 7.7947-34.50 6.9547-34.75 6.2434-3+006 +006 5.00 5.6359-35.25 5.1128-35.50 4.6593-35.75 4.2636-3+007 +007 6.00 3.9162-36.25 3.6095-36.50 3.3375-36.75 3.0951-3+008 +008 7.00 2.8782-37.25 2.6833-37.50 2.5076-37.75 2.3485-3+009 +009 8.00 2.2042-38.25 2.0727-38.50 1.9526-38.75 1.8427-3+010 +010 9.00 1.7418-39.25 1.6490-39.50 1.5634-39.75 1.4843-3+011 +011 ENDT TSTEP 41 40 .1 1 ENDDATA ================================================ FILE: inp/d11031a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 11 (APP AERO), Aeroelastic Response $ Jet Transport Wing Dynamic Analysis, Frequency Response (11-3-1) $ Jet Transport Wing Dynamic Analysis, Transient Response (11-3-2) $ $ A. Description $ $ This example illustrates the use of the aeroelastic response analysis to $ perform frequency, random, and transient response calculations for a structure $ excited by aerodynamic loadings. This problem is also discussed in Section $ 1.11.5 of the User's Manual. $ $ For this demonstration problem, the aileron is locked and the fuselage to $ which the wing is attached is a rigid body represented by grid point 11. Only $ out-of-plane motions are retained in the model. The wing is modeled with GENEL $ data defining the flexibility matrix, [Z], and a free-body matrix, [S]. The $ aileron also is modeled as a rigid body with the hinge line at point 8. The $ vertical flap deflection at point 12 is defined by an MPC equation. $ $ The aerodynamic model consists of 42 doublet lattice aerodynamic boxes, $ forming one coupled group. Three CAERO1 aerodynamic elements are used to $ define the areas of uniform mesh on the wing. The aerodynamic degrees of $ freedom, implicitly defined by the CAERO data, are coupled to the structure $ with surface splines defined on SPLINE2 data cards. $ $ B. Input $ $ Two separate analyses are performed with this structural model. Problem 11-3-1 $ performs a frequency response analysis for a smooth gust shape and generates $ spectral density output plots for a random gust magnitude. Problem 11-3-2 $ produces a transient response solution using a Fourier transform of the $ frequency response solution. $ $ 1. Parameters: $ $ V = 5183.2 (Airstream velocity) $ $ M = 0.62 (Airstream mach number) $ $ -7 $ p = 1.1468 x 1O (Air density) $ $ g = 0.06 (Structural damping) $ $ 2. Constraints: $ $ theta = theta = 0 Grid 11 (No fuselage isolation) $ y z $ $ u = u = theta = 0 All Grids $ x y z $ $ theta = theta = 0 All Grids except 11 and 12 $ x y $ $ 3. Loads: $ $ Problem 11-3-1. Frequency Response Analysis $ $ 8360 $ V = ---- (1 - cos 2 pi t) (t < 1) Gust Velocity $ g 2 $ $ Problem 11-3-2. Transient Analysis $ $ 8360 t < 1.0 $ V = Gust Velocity $ g -16720 t > 1.0 $ $ C. Theory $ $ No theoretical results are available to confirm the NASTRAN results. $ $ D. Results $ $ ??? (fig. refs. only) $------------------------------------------------------------------------------- ================================================ FILE: inp/d11032a.inp ================================================ ID D11032A,NASTRAN APP AERO SOL 11,0 TIME 15 CEND TITLE = JET TRANSPORT WING DYNAMIC ANALYSIS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A LABEL = SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS ECHO = BOTH $ $ MODEL DESCRIPTION JET TRANSPORT WING EXAMPLE $ SYMMETRIC RESPONSE TO A SQUARE $ EDGE GUST WITH A STIFF AILERON $ SPC = 14 $ SYM , NO PITCH MPC = 1 METHOD = 10 $ GIVENS SDAMP = 2000 FREQ = 40 TSTEP = 41 $$$$$$$ TWELVE MODES AND FORTY TWO BOXES AERO CALC THREE K VALUES GUST = 1011 $ SQUARE DLOAD = 9999 $ NEEDED TO FORCE APPROACH TRANSIENT GUST OUTPUT $ $ SOLUTION TRANSIENT ANALYSIS USING $ DOUBLET-LATTICE METHOD AERODYNAMICS $ AT MACH NO. OF 0.62 $ SET 1 = 1 , 2 , 12 $ SET 2 = 1 , 9 THRU 12 , 1040 SET 3 = 11 SDISP = 1 DISP = 2 SPCF = 3 $ $ PRODUCES XY PAPER PLOTS OF MODAL AND GRID POINT DISPLACEMENT $ AND WING ROOT BENDING MOMENT TIME HISTORIES $ OUTPUT(XYOUT) $ TRANSIENT PACKAGE (REAL NUMBERS) CURVELINESYMBOL = 1 XTITLE = TIME(SECONDS) JET TRANSPORT , SQUARE GUST TCURVE = FIRST MODE (PLUNGE) YTITLE = MODAL DEFLECTION XYPAPERPLOT SDISP / 1(T1) TCURVE = SECOND MODE (WING BENDING) XYPAPERPLOT SDISP / 2(T1) TCURVE = TWELFTH MODE (AILERON) XYPAPERPLOT SDISP / 12(T1) YTITLE = PHYSICAL DEFLECTION TCURVE = WING ( 3/4 CHORD , 1/4 CHORD , STA 458 ) XYPAPERPLOT DISP / 9(T3) , 10(T3) TCURVE = FUSELAGE PLUNGE XYPAPERPLOT DISP / 11(T3) TCURVE = AILERON DEFLECTION XYPAPERPLOT DISP / 12(R2) TCURVE = AERODYNAMIC BOX NEAR TIP , PITCH XYPAPERPLOT DISP / 1040(R2) YTITLE = ROTATIONAL CONSTRAINTS TCURVE = WING ROOT BENDING MOMENT XYPAPERPLOT SPCF / 11(R3) BEGIN BULK AEFACT 1 0.0 .09 .21 .33 .45 .56 .66 +AE1 +AE1 .74 AEFACT 2 .74 .82 .90 .974 AEFACT 3 .974 1.00 AEFACT 4 0.0 .375 .750 1.00 AEFACT 5 0.0 .1875 .375 .625 .750 .875 1.00 AERO 1 8360. 131.232 1.1468-71 SYM CAERO1 1001 1000 0 1 4 1 +CA01 +CA01 78.75 0.0 0.0 225. 35. 500. 0.0 100. CAERO1 1022 1000 0 2 5 1 +CA22 +CA22 78.75 0.0 0.0 225. 35. 500. 0.0 100. CAERO1 1040 1000 0 3 4 1 +CA40 +CA40 78.75 0.0 0.0 225. 35. 500. 0.0 100. CELAS2 3 5142671.12 5 CMASS2 2 13967.2 12 5 CMASS2 121 5248.7 1 3 CMASS2 122 134.9 1 3 2 3 CMASS2 123 790.3 2 3 CMASS2 341 9727. 3 3 CMASS2 342 11005. 3 3 4 3 CMASS2 343 473. 4 3 CMASS2 561 3253.6 5 3 CMASS2 562 -139.7 5 3 6 3 CMASS2 563 946.3 6 3 CMASS2 781 2617.8 7 3 CMASS2 782 21. 7 3 8 3 CMASS2 783 782.3 8 3 CMASS2 9101 494.8 9 3 CMASS2 9102 -7.3 9 3 10 3 CMASS2 9103 185.2 10 3 CONM1 1 11 +51 +51 17400. 4.37+7 +52 +52 4.35+09 CORD2R 1 0.0 0.0 0.0 0.0 0.0 -1. +C1 +C1 -1. 0.0 0.0 DAREA 1001 12 5 5142671. DAREA 9999 11 1 1. DUMMY EIGR 10 GIV 0.0 1. 12 +EIGR +EIGR MAX FREQ1 40 0.0 .25 39 GENEL 432 1 3 2 3 3 3 +01 +01 4 3 5 3 6 3 7 3 +02 +02 8 3 9 3 10 3 +03 +03 UD 11 3 11 4 11 5 +03A +03A 11 6 +04 +04 Z 8.7172-61.3361-61.2778-56.2720-61.6251-51.0492-52.0478-5+05 +05 1.5630-52.4285-52.0403-53.0861-56.2720-63.2297-51.0492-53.3529-5+06 +06 1.5630-53.5021-52.0257-53.5785-52.7732-51.5726-54.8255-53.7628-5+07 +07 7.3284-56.4338-59.5810-58.8378-56.3749-53.7628-58.0136-56.4338-5+08 +08 1.0012-48.8378-51.1811-41.2758-41.1344-41.9350-41.8160-42.5283-4+09 +09 2.4294-41.6999-41.8160-42.2920-42.4294-42.8249-43.6862-43.5052-4+10 +10 5.2675-45.1171-44.2292-45.1171-45.7187-48.4840-48.2340-49.2340-4+11 +11 S 1.0 90.0 -20.25 45.0 1.0 90.0 81.0 +12 +12 45.0 1.0 186.0 -17.85 141.0 1.0 186.0 71.4 +13 +13 141.0 1.0 268.0 -15.80 223.0 1.0 268.0 63.2 +14 +14 223.0 1.0 368.0 -13.30 323.0 1.0 368.0 53.2 +15 +15 323.0 1.0 458.0 -11.05 413.0 1.0 458.0 44.2 +16 +16 413.0 GRID 1 20.25 90. 12456 GRID 2 -81. 90. 12456 GRID 3 17.85 186. 12456 GRID 4 -71.4 186. 12456 GRID 5 15.8 268. 12456 GRID 6 -63.2 268. 12456 GRID 7 13.3 368. 12456 GRID 8 -53.2 368. 12456 GRID 9 11.05 458. 12456 GRID 10 -44.2 458. 12456 GRID 11 .0 .0 126 GRID 12 -86.45 368. 1246 GUST 1011 1000 1. 0.0 8360. MKAERO1 .62 +MK +MK .02 .10 .50 MPC 1 12 3 -1.0 8 3 1.5 +MPC1 +MPC1 7 3 -0.5 12 5 33.25 PAERO1 1000 PARAM GUSTAERO1 PARAM IFTM 0 PARAM LMODES 12 PARAM MACH .62 PARAM Q 4.00747 PARAM WTMASS .0025907 SET1 14 1 THRU 11 SET1 15 8 10 12 SPC 14 11 45 SPLINE1 104 1022 1026 1039 15 SPLINE2 101 1001 1001 1021 14 0.0 2. 0 +SP1 +SP1 -1.0 -1.0 SPLINE2 102 1022 1022 1037 14 0.0 2. 0 +SP2 +SP2 -1.0 -1.0 SPLINE2 103 1040 1040 1042 14 0.0 2. 0 +SP3 +SP3 -1.0 -1.0 SUPORT 11 3 TABDMP1 2000 +T2000 +T2000 0.0 .06 10. .06 ENDT TABLED1 1003 +T1003 +T1003 0.0 1. 1. 1. 1. -1. 2. -1. +T1003A +T1003A ENDT TLOAD1 1000 1001 1003 TLOAD1 9999 9999 1003 DUMIE TSTEP 41 40 .1 1 ENDDATA ================================================ FILE: inp/d11032a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 11 (APP AERO), Aeroelastic Response $ Jet Transport Wing Dynamic Analysis, Frequency Response (11-3-1) $ Jet Transport Wing Dynamic Analysis, Transient Response (11-3-2) $ $ A. Description $ $ This example illustrates the use of the aeroelastic response analysis to $ perform frequency, random, and transient response calculations for a structure $ excited by aerodynamic loadings. This problem is also discussed in Section $ 1.11.5 of the User's Manual. $ $ For this demonstration problem, the aileron is locked and the fuselage to $ which the wing is attached is a rigid body represented by grid point 11. Only $ out-of-plane motions are retained in the model. The wing is modeled with GENEL $ data defining the flexibility matrix, [Z], and a free-body matrix, [S]. The $ aileron also is modeled as a rigid body with the hinge line at point 8. The $ vertical flap deflection at point 12 is defined by an MPC equation. $ $ The aerodynamic model consists of 42 doublet lattice aerodynamic boxes, $ forming one coupled group. Three CAERO1 aerodynamic elements are used to $ define the areas of uniform mesh on the wing. The aerodynamic degrees of $ freedom, implicitly defined by the CAERO data, are coupled to the structure $ with surface splines defined on SPLINE2 data cards. $ $ B. Input $ $ Two separate analyses are performed with this structural model. Problem 11-3-1 $ performs a frequency response analysis for a smooth gust shape and generates $ spectral density output plots for a random gust magnitude. Problem 11-3-2 $ produces a transient response solution using a Fourier transform of the $ frequency response solution. $ $ 1. Parameters: $ $ V = 5183.2 (Airstream velocity) $ $ M = 0.62 (Airstream mach number) $ $ -7 $ p = 1.1468 x 1O (Air density) $ $ g = 0.06 (Structural damping) $ $ 2. Constraints: $ $ theta = theta = 0 Grid 11 (No fuselage isolation) $ y z $ $ u = u = theta = 0 All Grids $ x y z $ $ theta = theta = 0 All Grids except 11 and 12 $ x y $ $ 3. Loads: $ $ Problem 11-3-1. Frequency Response Analysis $ $ 8360 $ V = ---- (1 - cos 2 pi t) (t < 1) Gust Velocity $ g 2 $ $ Problem 11-3-2. Transient Analysis $ $ 8360 t < 1.0 $ V = Gust Velocity $ g -16720 t > 1.0 $ $ C. Theory $ $ No theoretical results are available to confirm the NASTRAN results. $ $ D. Results $ $ ??? (fig. refs. only) $------------------------------------------------------------------------------- ================================================ FILE: inp/d12011a.inp ================================================ NASTRAN FILES=PLT2 ID D12011A,NASTRAN APP DISPLACEMENT SOL 12,3 TIME 100 CEND TITLE = TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A DLOAD = 516 SDAMP = 15 TSTEP = 516 METHOD = 2 OUTPUT SET 1 = 1, 26, 51, 75, 100 SET 2 = 1, 26, 76 DISPLACEMENT = 2 STRESS = 1 PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A OUTPUT(PLOT) PLOTTER NASTPLT CAMERA = 3 CSCALE = 2.0 SET 1 INCLUDE BAR, EXCLUDE GRID POINTS 1,2,3,4,5,6,7,8,9,10,12,13,14,15,16,17,18, 19,20,22,23,24,25,26,27,28,29,30,32,33,34,35,36,37,38,39,40, 42,43,44,45,46,47,48,49,50,52,53,54,55,56,57,58,59,60,62,63, 64,65,66,67,68,69,70,72,73,74,75,76,77,78,79,80,82,83,84,85, 86,87,88,89,90,92,93,94,95,96,97,98,99,100 MAXIMUM DEFORMATION 2.0 STEREO PROJECTION FIND SCALE, ORIGIN 100, VANTAGE POINT, SET 1 PTITLE = PAPER COPY OF STEREOSCOPIC PROJECTION OF DEFORMATIONS PLOT TRANSIENT DEFORMATION 1, TIME 0.012, 0.013, MAXIMUM DEFORMATION 0.76, SET 1, ORIGIN 100, SHAPE ORTHOGRAPHIC PROJECTION FIND SCALE, ORIGIN 1, REGION 0.0,0.0,1.0,0.5 FIND SCALE, ORIGIN 2, REGION 0.0,0.5,1.0,1.0 PTITLE = DEFLECTIONS OF BARS WITH VECTORS PLOT TRANSIENT DEFORMATION 1, TIME .012, .016, MAXIMUM DEFORMATION 1.0, SET 1, ORIGIN 1, SHAPE , SET 1, ORIGIN 2, VECTOR Z $ $ OUTPUT(XYOUT) PLOTTER = NASTPLT CAMERA = 3 SKIP BETWEEN FRAMES = 1 YGRID LINES = YES XGRID LINES = YES YDIVISIONS = 10 XDIVISIONS = 10 XVALUE PRINT SKIP = 1 YVALUE PRINT SKIP = 1 XTITLE = TIME (SECONDS) YTITLE = D I S P * INCH * TCURVE = * * * * * * * G R I D 5 1 * * * * * * * * * * * * * XYPLOT,XYPRINT,DISP RESP / 51(T3) TCURVE = * * * * * * * G R I D 1 0 1 * * * * * * * * * * * * XYPLOT,XYPRINT,DISP RESP / 101(T3) YTITLE = ACCELERATION TCURVE = * * * * * * * G R I D 5 1 * * * * * * * * * * * * * XYPLOT,XYPRINT,ACCE RESP / 51(T3) TCURVE = * * * * * * * G R I D 1 0 1 * * * * * * * * * * * * XYPLOT,XYPRINT,ACCE RESP / 101(T3) BEGIN BULK BAROR 10.0 .0 100.0 1 CBAR 1 17 1 2 CBAR 2 17 2 3 CBAR 3 17 3 4 CBAR 4 17 4 5 CBAR 5 17 5 6 CBAR 6 17 6 7 CBAR 7 17 7 8 CBAR 8 17 8 9 CBAR 9 17 9 10 CBAR 10 17 10 11 CBAR 11 17 11 12 CBAR 12 17 12 13 CBAR 13 17 13 14 CBAR 14 17 14 15 CBAR 15 17 15 16 CBAR 16 17 16 17 CBAR 17 17 17 18 CBAR 18 17 18 19 CBAR 19 17 19 20 CBAR 20 17 20 21 CBAR 21 17 21 22 CBAR 22 17 22 23 CBAR 23 17 23 24 CBAR 24 17 24 25 CBAR 25 17 25 26 CBAR 26 17 26 27 CBAR 27 17 27 28 CBAR 28 17 28 29 CBAR 29 17 29 30 CBAR 30 17 30 31 CBAR 31 17 31 32 CBAR 32 17 32 33 CBAR 33 17 33 34 CBAR 34 17 34 35 CBAR 35 17 35 36 CBAR 36 17 36 37 CBAR 37 17 37 38 CBAR 38 17 38 39 CBAR 39 17 39 40 CBAR 40 17 40 41 CBAR 41 17 41 42 CBAR 42 17 42 43 CBAR 43 17 43 44 CBAR 44 17 44 45 CBAR 45 17 45 46 CBAR 46 17 46 47 CBAR 47 17 47 48 CBAR 48 17 48 49 CBAR 49 17 49 50 CBAR 50 17 50 51 CBAR 51 17 51 52 CBAR 52 17 52 53 CBAR 53 17 53 54 CBAR 54 17 54 55 CBAR 55 17 55 56 CBAR 56 17 56 57 CBAR 57 17 57 58 CBAR 58 17 58 59 CBAR 59 17 59 60 CBAR 60 17 60 61 CBAR 61 17 61 62 CBAR 62 17 62 63 CBAR 63 17 63 64 CBAR 64 17 64 65 CBAR 65 17 65 66 CBAR 66 17 66 67 CBAR 67 17 67 68 CBAR 68 17 68 69 CBAR 69 17 69 70 CBAR 70 17 70 71 CBAR 71 17 71 72 CBAR 72 17 72 73 CBAR 73 17 73 74 CBAR 74 17 74 75 CBAR 75 17 75 76 CBAR 76 17 76 77 CBAR 77 17 77 78 CBAR 78 17 78 79 CBAR 79 17 79 80 CBAR 80 17 80 81 CBAR 81 17 81 82 CBAR 82 17 82 83 CBAR 83 17 83 84 CBAR 84 17 84 85 CBAR 85 17 85 86 CBAR 86 17 86 87 CBAR 87 17 87 88 CBAR 88 17 88 89 CBAR 89 17 89 90 CBAR 90 17 90 91 CBAR 91 17 91 92 CBAR 92 17 92 93 CBAR 93 17 93 94 CBAR 94 17 94 95 CBAR 95 17 95 96 CBAR 96 17 96 97 CBAR 97 17 97 98 CBAR 98 17 98 99 CBAR 99 17 99 100 CBAR 100 17 100 101 CONM2 20 1 10.0 +M1 +M1 1666.66 DAREA 1 101 3 100. EIGR 2 INV .0 1500. 5 6 PEG +EG MASS GRDSET 1246 GRID 1 .00 .00 .00 GRID 2 .20 .00 .00 GRID 3 .40 .00 .00 GRID 4 .60 .00 .00 GRID 5 .80 .00 .00 GRID 6 1.00 .00 .00 GRID 7 1.20 .00 .00 GRID 8 1.40 .00 .00 GRID 9 1.60 .00 .00 GRID 10 1.80 .00 .00 GRID 11 2.00 .00 .00 GRID 12 2.20 .00 .00 GRID 13 2.40 .00 .00 GRID 14 2.60 .00 .00 GRID 15 2.80 .00 .00 GRID 16 3.00 .00 .00 GRID 17 3.20 .00 .00 GRID 18 3.40 .00 .00 GRID 19 3.60 .00 .00 GRID 20 3.80 .00 .00 GRID 21 4.00 .00 .00 GRID 22 4.20 .00 .00 GRID 23 4.40 .00 .00 GRID 24 4.60 .00 .00 GRID 25 4.80 .00 .00 GRID 26 5.00 .00 .00 GRID 27 5.20 .00 .00 GRID 28 5.40 .00 .00 GRID 29 5.60 .00 .00 GRID 30 5.80 .00 .00 GRID 31 6.00 .00 .00 GRID 32 6.20 .00 .00 GRID 33 6.40 .00 .00 GRID 34 6.60 .00 .00 GRID 35 6.80 .00 .00 GRID 36 7.00 .00 .00 GRID 37 7.20 .00 .00 GRID 38 7.40 .00 .00 GRID 39 7.60 .00 .00 GRID 40 7.80 .00 .00 GRID 41 8.00 .00 .00 GRID 42 8.20 .00 .00 GRID 43 8.40 .00 .00 GRID 44 8.60 .00 .00 GRID 45 8.80 .00 .00 GRID 46 9.00 .00 .00 GRID 47 9.20 .00 .00 GRID 48 9.40 .00 .00 GRID 49 9.60 .00 .00 GRID 50 9.80 .00 .00 GRID 51 10.00 .00 .00 GRID 52 10.20 .00 .00 GRID 53 10.40 .00 .00 GRID 54 10.60 .00 .00 GRID 55 10.80 .00 .00 GRID 56 11.00 .00 .00 GRID 57 11.20 .00 .00 GRID 58 11.40 .00 .00 GRID 59 11.60 .00 .00 GRID 60 11.80 .00 .00 GRID 61 12.00 .00 .00 GRID 62 12.20 .00 .00 GRID 63 12.40 .00 .00 GRID 64 12.60 .00 .00 GRID 65 12.80 .00 .00 GRID 66 13.00 .00 .00 GRID 67 13.20 .00 .00 GRID 68 13.40 .00 .00 GRID 69 13.60 .00 .00 GRID 70 13.80 .00 .00 GRID 71 14.00 .00 .00 GRID 72 14.20 .00 .00 GRID 73 14.40 .00 .00 GRID 74 14.60 .00 .00 GRID 75 14.80 .00 .00 GRID 76 15.00 .00 .00 GRID 77 15.20 .00 .00 GRID 78 15.40 .00 .00 GRID 79 15.60 .00 .00 GRID 80 15.80 .00 .00 GRID 81 16.00 .00 .00 GRID 82 16.20 .00 .00 GRID 83 16.40 .00 .00 GRID 84 16.60 .00 .00 GRID 85 16.80 .00 .00 GRID 86 17.00 .00 .00 GRID 87 17.20 .00 .00 GRID 88 17.40 .00 .00 GRID 89 17.60 .00 .00 GRID 90 17.80 .00 .00 GRID 91 18.00 .00 .00 GRID 92 18.20 .00 .00 GRID 93 18.40 .00 .00 GRID 94 18.60 .00 .00 GRID 95 18.80 .00 .00 GRID 96 19.00 .00 .00 GRID 97 19.20 .00 .00 GRID 98 19.40 .00 .00 GRID 99 19.60 .00 .00 GRID 100 19.80 .00 .00 GRID 101 20.00 .00 .00 MAT1 1 10.4+6 4.+6 .2523-3 +MAT1 +MAT1 111.111 11.1111 OMIT1 53 2 3 4 5 6 7 8 +100 +100 9 10 12 13 14 15 16 17 +200 +200 18 19 20 22 23 24 25 26 +300 +300 27 28 29 30 32 33 34 35 +400 +400 36 37 38 39 40 42 43 44 +500 +500 45 46 47 48 49 50 52 53 +600 +600 54 55 56 57 58 59 60 62 +700 +700 63 64 65 66 67 68 69 70 +800 +800 72 73 74 75 76 77 78 79 +900 +900 80 82 83 84 85 86 87 88 +101 +101 89 90 92 93 94 95 96 97 +201 +201 98 99 100 PARAM GRDPNT 0 PARAM LMODES 6 PBAR 17 1 1. .083 .083 +PBAR +PBAR 1.11111 -1.11111 SUPORT 1 3 1 5 TABDMP1 15 +TD11 +TD11 10. .01 100. .1 3000. .1 ENDT TLOAD2 516 1 .0 .1 60. TSTEP 516 104 .001388 1 ENDDATA ================================================ FILE: inp/d12011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 12, Transient Analysis - Modal Formulation $ Transient Analysis of a Free One Hundred Cell Beam (12-1-1) $ $ A. Description $ $ $ The problem demonstrates the transient analysis of a free-body using the $ integration algorithm for uncoupled modal formulations. The model is a $ hundred-cell beam with a very large mass attached to one end. Modal damping is $ included as a function of natural frequency. It does not affect the free-body $ (zero frequency) modes. The omitted coordinate feature was used to reduce the $ analysis set of displacements to correspond to eleven grid points. $ $ Both structure plots and curve plots are requested. The types are as follows: $ $ 1. Stereoscopic structure plots of the deformed structure are drawn for a $ specified time step. $ $ 2. Orthographic projections of the deformed structure are plotted. However, $ two variations are plotted on each frame. The bottom region of the frame $ shows the deformed shape and the top region shows vectors at every tenth $ grid point which are proportional to the z-displacement at each specified $ time step. $ $ 3. Curve plots and printout of displacement versus time and of acceleration $ versus time are requested. $ $ When a structure is used without additional transfer functions or direct $ matrix inputs, the transient analysis solves exact equations for the uncoupled $ modes. The only errors will be in the discarded modes and the straight line $ approximation of the loads between time steps. The speed of this solution is $ offset by the fact that the eigenvalue calculation is relatively costly and $ the transformation of the vectors to and from modal coordinates could be time $ consuming. $ $ The mass and inertia on point (1) were selected to be much larger than values $ of the beam. The answers will therefore approximate a beam with a fixed end. $ $ B. Input $ $ 1. Parameters $ $ Beam: $ $ l = 20 (Length) $ $ I = .083 (Bending inertia) $ $ A = 1.0 (Cross sectional area) $ 6 $ E = 10.4 x 10 (Modulus of elasticity) $ -3 $ p = .2523 x 10 (Mass density) $ $ Lumped Mass: $ $ m = 10.0, I = 1666.66 $ 1 22,1 $ $ 2. Damping: $ $ The damping coefficient for each mode is a function of the natural $ frequency. The function is: $ $ -3 $ g = 10 f $ $ 3. Load: $ $ P = 100 sin(2 pi 60t) $ z,101 $ $ 4. Real Eigenvalue Data $ $ Method: Inverse Power $ $ Region of Interest: 0 < f < 1000 $ $ Normalization: Mass $ $ D. Results $ $ The modal mass may be calculated using the formula for the mode shape given in $ Reference 8. The modal displacement is a single degree of freedom response $ with a closed form solution. $ $ APPLICABLE REFERENCES $ $ 8. W. F. Stokey, "Vibration of Systems Having Distributed Mass and $ Elasticity", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E. $ Crede, Editors, McGraw-Hill, 1961. $------------------------------------------------------------------------------- ================================================ FILE: inp/d13011a.inp ================================================ ID D13011A,NASTRAN APP DISPLACEMENT SOL 13,0 TIME 25 CEND TITLE = NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A SPC = 2 SET 1 = 11,21,31,41,51,61,71,81,91 DISPLACEMENT = 1 ELFORCE = 1 SUBCASE 20 LABEL = STATICS SOLUTION. LOAD = 100 OLOAD = ALL SUBCASE 40 LABEL = SECOND ORDER STATICS SOLUTION. DSCOEFFICIENT = DEFAULT SUBCASE 80 LABEL = NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS METHOD = 101 BEGIN BULK BAROR .0 1. .0 1 CBAR 1 1 1 2 CBAR 2 1 2 3 CBAR 3 1 3 4 CBAR 4 1 4 5 CBAR 5 1 5 6 CBAR 6 1 6 7 CBAR 7 1 7 8 CBAR 8 1 8 9 CBAR 9 1 9 10 CBAR 10 1 10 11 CBAR 11 1 11 12 CBAR 12 1 12 13 CBAR 13 1 13 14 CBAR 14 1 14 15 CBAR 15 1 15 16 CBAR 16 1 16 17 CBAR 17 1 17 18 CBAR 18 1 18 19 CBAR 19 1 19 20 CBAR 20 1 20 21 CBAR 21 1 21 22 CBAR 22 1 22 23 CBAR 23 1 23 24 CBAR 24 1 24 25 CBAR 25 1 25 26 CBAR 26 1 26 27 CBAR 27 1 27 28 CBAR 28 1 28 29 CBAR 29 1 29 30 CBAR 30 1 30 31 CBAR 31 1 31 32 CBAR 32 1 32 33 CBAR 33 1 33 34 CBAR 34 1 34 35 CBAR 35 1 35 36 CBAR 36 1 36 37 CBAR 37 1 37 38 CBAR 38 1 38 39 CBAR 39 1 39 40 CBAR 40 1 40 41 CBAR 41 1 41 42 CBAR 42 1 42 43 CBAR 43 1 43 44 CBAR 44 1 44 45 CBAR 45 1 45 46 CBAR 46 1 46 47 CBAR 47 1 47 48 CBAR 48 1 48 49 CBAR 49 1 49 50 CBAR 50 1 50 51 CBAR 51 1 51 52 CBAR 52 1 52 53 CBAR 53 1 53 54 CBAR 54 1 54 55 CBAR 55 1 55 56 CBAR 56 1 56 57 CBAR 57 1 57 58 CBAR 58 1 58 59 CBAR 59 1 59 60 CBAR 60 1 60 61 CBAR 61 1 61 62 CBAR 62 1 62 63 CBAR 63 1 63 64 CBAR 64 1 64 65 CBAR 65 1 65 66 CBAR 66 1 66 67 CBAR 67 1 67 68 CBAR 68 1 68 69 CBAR 69 1 69 70 CBAR 70 1 70 71 CBAR 71 1 71 72 CBAR 72 1 72 73 CBAR 73 1 73 74 CBAR 74 1 74 75 CBAR 75 1 75 76 CBAR 76 1 76 77 CBAR 77 1 77 78 CBAR 78 1 78 79 CBAR 79 1 79 80 CBAR 80 1 80 81 CBAR 81 1 81 82 CBAR 82 1 82 83 CBAR 83 1 83 84 CBAR 84 1 84 85 CBAR 85 1 85 86 CBAR 86 1 86 87 CBAR 87 1 87 88 CBAR 88 1 88 89 CBAR 89 1 89 90 CBAR 90 1 90 91 CBAR 91 1 91 92 CBAR 92 1 92 93 CBAR 93 1 93 94 CBAR 94 1 94 95 CBAR 95 1 95 96 CBAR 96 1 96 97 CBAR 97 1 97 98 CBAR 98 1 98 99 CBAR 99 1 99 100 CBAR 100 1 100 101 EIGR 101 INV .0 200.0 3 3 3 1.-4 +EIG1 +EIG1 MAX FORCE1 100 101 3423.17 101 1 GRDSET 345 GRID 1 .0 GRID 2 1.0 GRID 3 2.0 GRID 4 3.0 GRID 5 4.0 GRID 6 5.0 GRID 7 6.0 GRID 8 7.0 GRID 9 8.0 GRID 10 9.0 GRID 11 10.0 GRID 12 11.0 GRID 13 12.0 GRID 14 13.0 GRID 15 14.0 GRID 16 15.0 GRID 17 16.0 GRID 18 17.0 GRID 19 18.0 GRID 20 19.0 GRID 21 20.0 GRID 22 21.0 GRID 23 22.0 GRID 24 23.0 GRID 25 24.0 GRID 26 25.0 GRID 27 26.0 GRID 28 27.0 GRID 29 28.0 GRID 30 29.0 GRID 31 30.0 GRID 32 31.0 GRID 33 32.0 GRID 34 33.0 GRID 35 34.0 GRID 36 35.0 GRID 37 36.0 GRID 38 37.0 GRID 39 38.0 GRID 40 39.0 GRID 41 40.0 GRID 42 41.0 GRID 43 42.0 GRID 44 43.0 GRID 45 44.0 GRID 46 45.0 GRID 47 46.0 GRID 48 47.0 GRID 49 48.0 GRID 50 49.0 GRID 51 50.0 GRID 52 51.0 GRID 53 52.0 GRID 54 53.0 GRID 55 54.0 GRID 56 55.0 GRID 57 56.0 GRID 58 57.0 GRID 59 58.0 GRID 60 59.0 GRID 61 60.0 GRID 62 61.0 GRID 63 62.0 GRID 64 63.0 GRID 65 64.0 GRID 66 65.0 GRID 67 66.0 GRID 68 67.0 GRID 69 68.0 GRID 70 69.0 GRID 71 70.0 GRID 72 71.0 GRID 73 72.0 GRID 74 73.0 GRID 75 74.0 GRID 76 75.0 GRID 77 76.0 GRID 78 77.0 GRID 79 78.0 GRID 80 79.0 GRID 81 80.0 GRID 82 81.0 GRID 83 82.0 GRID 84 83.0 GRID 85 84.0 GRID 86 85.0 GRID 87 86.0 GRID 88 87.0 GRID 89 88.0 GRID 90 89.0 GRID 91 90.0 GRID 92 91.0 GRID 93 92.0 GRID 94 93.0 GRID 95 94.0 GRID 96 95.0 GRID 97 96.0 GRID 98 97.0 GRID 99 98.0 GRID 100 99.0 GRID 101 100.0 MAT1 22 10.4E6 .3 2.0E-4 PBAR 1 22 2.0 .666667 .666667 SPC 2 1 12 .0 101 2 .0 ENDDATA ================================================ FILE: inp/d13011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 13 Normal Modes with Differential Stiffness $ Normal Modes of a 100-Ce1l Beam with Differential Stiffness (13-1-1) $ $ A. Description $ $ This problem illustrates the effects of differential stiffness on the solution $ for the normal modes of a beam under axial compression. $ $ The natural frequencies of the beam are affected by this load as shown in $ Reference 23. The loading specified here is one half of the Euler value for $ compression buckling, which decreases the unloaded natural frequency, w, $ proportional to $ $ + + $ | 2 | 1/2 $ | pi EI | $ | ----- - F | $ | 2 | $ | l | $ + + $ $ where F is the applied load. $ $ The structural model is a uniform 100 cell beam hinged at both ends. $ $ B. Input $ $ 1. Parameters: $ $ A = 2.0 (cross sectional area) $ $ I = 0.667 (bending inertia) $ $ 6 $ E = 10.4 x 10 (modulus of elasticity) $ $ l = 100.0 (length) $ -4 $ p = 2.0 x 10 (mass density) $ $ 2. Constraints: $ $ u = theta = 0 = 0 (all points) $ z x y $ $ u = 0 (point 101) $ y $ $ u = u = 0 (point 1) $ x y $ $ 3. Loads: $ $ F = 3423.17 $ 101,x $ $ B = 1.0 (default load factor) $ $ C. Theory $ $ The theoretical natural frequency for the first mode is given by $ $ + + $ | 2 | 1/2 $ | l pi EI | $ f = | ------ (----- - F) | (1) $ | 2 2 | $ | 4pA l l | $ + + $ $ For this loading of one half the Euler buckling value, the theoretical value $ is 14.6269 Hertz for the bending mode. $ $ D. Results $ $ The natural frequency computed using NASTRAN is 14.62325 Hertz. $ $ APPLICABLE REFERENCES $ $ 23. Timoshenko, S. P., Theory of Elastic Stability, McGraw-Hill, 1961, p 159. $------------------------------------------------------------------------------- ================================================ FILE: inp/d14011a.inp ================================================ ID D14011A,NASTRAN APP DISPLACEMENT SOL 14,0 TIME 15 CEND TITLE = STATIC ANALYSIS OF A CIRCULAR PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A LABEL = DIHEDRAL CYCLIC SYMMETRY SPC = 101 OUTPUT OLOAD = ALL DISP = ALL SPCF = ALL SUBCASE 1 LABEL = SEGMENT 1 RIGHT SUBCASE 2 LABEL = SEGMENT 1 LEFT SUBCASE 3 LABEL = SEGMENT 2 RIGHT LOAD = 102 SUBCASE 4 LABEL = SEGMENT 2 LEFT LOAD = 102 SUBCASE 5 LABEL = SEGMENT 3 RIGHT SUBCASE 6 LABEL = SEGMENT 3 LEFT SUBCASE 7 LABEL = SEGMENT 4 RIGHT SUBCASE 8 LABEL = SEGMENT 4 LEFT SUBCASE 9 LABEL = SEGMENT 5 RIGHT SUBCASE 10 LABEL = SEGMENT 5 LEFT SUBCASE 11 LABEL = SEGMENT 6 RIGHT SUBCASE 12 LABEL = SEGMENT 6 LEFT BEGIN BULK CBAR 1 1 10 20 .0 .0 1. 1 CBAR 2 1 20 30 .0 .0 1. 1 CBAR 3 1 30 40 .0 .0 1. 1 CBAR 4 1 40 50 .0 .0 1. 1 CBAR 5 1 50 60 .0 .0 1. 1 CNGRNT 10 11 CNGRNT 20 21 CNGRNT 30 31 CNGRNT 40 41 CNGRNT 50 51 CORD2C 1 0 .0 .0 .0 .0 .0 1. +C1 +C1 1. .0 .0 CQUAD2 10 1 10 11 21 20 CQUAD2 11 1 11 12 22 21 CQUAD2 20 1 20 21 31 30 CQUAD2 21 1 21 22 32 31 CQUAD2 30 1 30 31 41 40 CQUAD2 31 1 31 32 42 41 CQUAD2 40 1 40 41 51 50 CQUAD2 41 1 41 42 52 51 CQUAD2 50 1 50 51 61 60 CQUAD2 51 1 51 52 62 61 CYJOIN 1 C 10 20 30 40 50 60 CYC SYM CYJOIN 2 C 12 22 32 42 52 62 CYC SYM GRDSET 1 1 GRID 10 1.0 .0 .0 GRID 11 1.0 15.0 .0 GRID 12 1.0 30.0 .0 GRID 20 .68 .0 .0 GRID 21 .68 15.0 .0 GRID 22 .68 30.0 .0 GRID 30 .46 .0 .0 GRID 31 .46 15.0 .0 GRID 32 .46 30.0 .0 GRID 40 .31 .0 .0 GRID 41 .31 15.0 .0 GRID 42 .31 30.0 .0 GRID 50 .21 .0 .0 GRID 51 .21 15.0 .0 GRID 52 .21 30.0 .0 GRID 60 .14 .0 .0 GRID 61 .14 15.0 .0 GRID 62 .14 30.0 .0 MAT1 1 10.6 +6 .325 2.59 -4 12.9 -6 PARAM CTYPE DRL CYC SYM PARAM KMAX 2 CYC SYM PARAM NLOAD 1 CYC SYM PARAM NSEGS 6 CYC SYM PBAR 1 1 1.8 -3 5.4 -7 5.4 -7 1.0 -6 +PB1 +PB1 .0 .03 .03 .0 .03 .03 .03 -.03 PLOAD2 102 200. 10 20 30 40 50 PLOAD2 102 200. 11 21 31 41 51 PQUAD2 1 1 .01 SPC1 110 12346 10 11 12 SPC1 112 126 10 11 12 20 21 22 SPC1 112 126 30 31 32 40 41 42 SPC1 112 126 50 51 52 60 61 62 SPCADD 101 110 112 ENDDATA ================================================ FILE: inp/d14011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 14, Static Analysis with Cyclic Symmetry $ Circular Plate Using Cyclic Symmetry (14-1-1) $ $ A. Description $ $ A constant thickness circular plate with six radial stiffeners and a central $ hole is analyzed using dihedral symmetry. The plate is subjected to a uniform $ pressure load applied over a 60 degree segment of the plate. $ $ The stringers are 60 degrees apart but only 30 degrees of the structure needs $ to be modeled when using the dihedral symmetry option. There are 12 subcases $ since these are 2 half segments in a 60 degree segment and only one loading $ condition. The CYJOIN bulk data card defines those points in the middle of the $ segment (SIDE 2) and those points on the boundary between segments (SIDE 1). $ $ B. Input $ $ 1. Parameters: $ $ R = 1.0 (outside radius) $ o $ $ R = .14 (inside radius) $ i $ $ t = .01 (plate thickness) $ $ a = .06 (height and width of stiffeners) $ $ 6 $ E = 10.6 x 10 (modulus of elasticity) $ $ v = .325 (Poisson's ratio) $ $ 2. Boundary Conditions: $ $ U = U = theta = 0 (all points) $ r theta z $ $ U = theta = 0 (along r = 1.0) $ z r $ $ 3. Applied loads: $ $ Pressure = 200.0 between theta = 60 degrees and 120 degrees $ $ 4. Cyclic symmetry parameters: $ $ CTYPE = DRL $ $ KMAX = 2 $ $ NSEGS = 6 $ $ NLOAD = 1 $ $ C. Results $ $ The structure can be analyzed using rotational symmetry or dihedral symmetry $ described here and the results will be identical. $ $ The results for the normal displacements are given in Table 1 for r = 0.46. $ $ Table 1. Displacements of Circular Plate Under Pressure Load at r = 0.46 $ -------------------------------- $ DIHEDRAL $ METHOD $ ------------ $ theta Subcase Grid Value $ -------------------------------- $ 0 1 30 1.365 $ 15 1 31 1.379 $ 30 1 32 $ 2 32 $ 45 2 31 1.412 $ 60 2 30 $ 3 30 1.430 $ 75 3 31 1.464 $ 90 3 32 $ 4 32 1.484 $ 105 4 31 $ 120 4 30 $ 5 30 1.430 $ 135 5 31 1.412 $ 150 5 32 $ 6 32 1.396 $ 165 6 31 1.379 $ 180 6 30 $ 7 30 1.365 $ 195 7 31 1.359 $ 210 7 32 $ 8 32 1.354 $ 225 8 31 1.349 $ 240 8 30 $ 9 30 1.345 $ 255 9 31 1.344 $ 270 9 32 $ 10 32 1.345 $ 285 10 31 1.344 $ 300 10 30 $ 11 30 1.345 $ 315 11 31 1.349 $ 330 11 32 $ 12 32 1.354 $ 345 12 31 1.359 $ 360 12 30 1.365 $------------------------------------------------------------------------------- ================================================ FILE: inp/d15011a.inp ================================================ ID D15011A,NASTRAN APP DISPLACEMENT SOL 15,3 TIME 30 CEND TITLE = NORMAL MODES ANALYSIS OF A CIRCULAR PLATE SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A LABEL = ROTATIONAL CYCLIC SYMMETRY SPC = 101 METHOD = 1 VECTOR = ALL BEGIN BULK CBAR 1 1 10 20 .0 .0 1. 1 CBAR 2 1 20 30 .0 .0 1. 1 CBAR 3 1 30 40 .0 .0 1. 1 CBAR 4 1 40 50 .0 .0 1. 1 CBAR 5 1 50 60 .0 .0 1. 1 CBAR 110 1 14 24 .0 .0 1.0 1 CBAR 120 1 24 34 .0 .0 1.0 1 CBAR 130 1 34 44 .0 .0 1.0 1 CBAR 140 1 44 54 .0 .0 1.0 1 CBAR 150 1 54 64 .0 .0 1.0 1 CNGRNT 1 110 CNGRNT 2 120 CNGRNT 3 130 CNGRNT 4 140 CNGRNT 5 150 CNGRNT 10 11 12 13 CNGRNT 20 21 22 23 CNGRNT 30 31 32 33 CNGRNT 40 41 42 43 CNGRNT 50 51 52 53 CORD2C 1 0 .0 .0 .0 .0 .0 1. +C1 +C1 1. .0 .0 CQUAD2 10 1 10 11 21 20 CQUAD2 11 1 11 12 22 21 CQUAD2 12 1 12 13 23 22 CQUAD2 13 1 13 14 24 23 CQUAD2 20 1 20 21 31 30 CQUAD2 21 1 21 22 32 31 CQUAD2 22 1 22 23 33 32 CQUAD2 23 1 23 24 34 33 CQUAD2 30 1 30 31 41 40 CQUAD2 31 1 31 32 42 41 CQUAD2 32 1 32 33 43 42 CQUAD2 33 1 33 34 44 43 CQUAD2 40 1 40 41 51 50 CQUAD2 41 1 41 42 52 51 CQUAD2 42 1 42 43 53 52 CQUAD2 43 1 43 44 54 53 CQUAD2 50 1 50 51 61 60 CQUAD2 51 1 51 52 62 61 CQUAD2 52 1 52 53 63 62 CQUAD2 53 1 53 54 64 63 CYJOIN 1 C 10 20 30 40 50 60 CYC SYM CYJOIN 2 C 14 24 34 44 54 64 CYC SYM EIGR 1 INV .0 12000.0 6 6 +EIG1 +EIG1 MAX GRDSET 1 1 GRID 10 1.0 .0 .0 GRID 11 1.0 15.0 .0 GRID 12 1.0 30.0 .0 GRID 13 1.0 45.0 .0 GRID 14 1.0 60.0 .0 GRID 20 .68 .0 .0 GRID 21 .68 15.0 .0 GRID 22 .68 30.0 .0 GRID 23 .68 45.0 .0 GRID 24 .68 60.0 .0 GRID 30 .46 .0 .0 GRID 31 .46 15.0 .0 GRID 32 .46 30.0 .0 GRID 33 .46 45.0 .0 GRID 34 .46 60.0 .0 GRID 40 .31 .0 .0 GRID 41 .31 15.0 .0 GRID 42 .31 30.0 .0 GRID 43 .31 45.0 .0 GRID 44 .31 60.0 .0 GRID 50 .21 .0 .0 GRID 51 .21 15.0 .0 GRID 52 .21 30.0 .0 GRID 53 .21 45.0 .0 GRID 54 .21 60.0 .0 GRID 60 .14 .0 .0 GRID 61 .14 15.0 .0 GRID 62 .14 30.0 .0 GRID 63 .14 45.0 .0 GRID 64 .14 60.0 .0 MAT1 1 10.6 +6 .325 2.59-4 12.9-6 PARAM CTYPE ROT CYC SYM PARAM KINDEX 2 CYC SYM PARAM NSEGS 6 CYC SYM PBAR 1 1 1.8 -3 5.4 -7 5.4 -7 1.0 -6 +PB1 +PB1 .0 .03 .03 .0 .03 .03 .03 -.03 PQUAD2 1 1 .01 SPC1 110 12346 10 THRU 14 SPC1 112 126 10 THRU 14 SPC1 112 126 20 THRU 24 SPC1 112 126 30 THRU 34 SPC1 112 126 40 THRU 44 SPC1 112 126 50 THRU 54 SPC1 112 126 60 THRU 64 SPCADD 101 110 112 ENDDATA ================================================ FILE: inp/d15011a.txt ================================================ $------------------------------------------------------------------------------- $ RIGID FORMAT No. 15, Normal Modes Analysis Using Cyclic Symmetry $ Modal Analysis of a Circular Plate Using Cyclic Symmetry (15-1-1) $ $ A. Description $ $ The natural frequencies of a constant thickness circular plate with six radial $ stiffeners and a central hole are obtained using the rotational symmetry $ option. The structure is simply supported at the outer circumference. $ $ The finite element model represents only sixty degrees of the plate. Note that $ since the stiffeners are on the symmetry boundary, only 1/2 of the actual $ properties are used. The bulk data cards demonstrated are the CYJOIN and $ PARAM. $ $ B. Input $ $ 1. Parameters: $ $ R = 1.0 (outside radius) $ o $ $ R = .14 (inside radius) $ i $ $ t = .01 (plate thickness) $ $ a = .06 (height and width of stiffeners) $ 6 $ E = 10.6 x 10 (modulus of elasticity) $ $ v = .325 (Poisson's ratio) $ -4 $ p = 2.59 x 10 (mass density of plate and stiffeners) $ $ 2. Boundary conditions: $ $ u = u = theta = 0 (all points) $ r theta z $ $ u = theta = 0 (along r = 1.0) $ z r $ $ 3. Eigenvalue extraction data: $ $ Method: Inverse power $ $ Region of interest: 0.0 <= f <= 8000 $ $ Number of desired roots: 3 $ $ Normalization: maximum $ $ 4. Cyclic symmetry parameters: $ $ CTYPE ROT $ $ KINDEX 2 $ $ NSEGS 6 $ $ C. Results $ $ Solutions can be obtained using the dihedral symmetry or rotational symmetry $ described here. $ $ Results are accurate to approximately six significant figures. $ $ Table 1. Natural Frequencies $ --------------------- $ Mode Frequency (Hz) $ --------------------- $ 1 4288.2 $ $ 2 4288.2 $ $ 3 6844.3 $ $ 4 6844.3 $ $ 5 11524.3 $ $ 6 11524.3 $ --------------------- $------------------------------------------------------------------------------- ================================================ FILE: inp/t00001a.inp ================================================ NASTRAN FILES=(INPT1,INPT2) ID T00001A,NASTRAN $ $ THIS DEMO PROBLEM DEMONSTRATES AN EASY WAY TO GENERATE VARIOUS $ FORMS OF NASTRAN GINO DATA BLOCKS USING THE NEW INPUTT4 MODULE, $ AND TO ALTER DATA BLOCK TRAILER BY THE NEW MATGEN, OPTION 10 $ $ TO COPY FROM INP1 THE FOLLOWING MATRICES $ A 4X4 SQUARE MATRIX OF FORM 1 TO SQR $ A 2X5 RECTANGULAR MATRIX OF FORM 2 TO REC $ A 1X6 DIAGONAL MATRIX OF FORM 3 TO DI1 $ A 5X5 DIAONGL MATRIX OF FORM 2 TO DI5 $ A 4X4 SYMMETRIC MATRIX OF FORM 6 TO SYM $ TO COPY FROM INP2 THE FOLLOWING MATRICES $ A 1X6 ROW VECTOR OF FORM 7 TO RV1 $ A 6X1 ROW VECTOR OF FORM 2 TO RV6 $ A 1X4 IDENTITY MATRIX OF FORM 8 TO ID1 $ A 4X4 IDENTITY MATRIX OF FORM 2 TO ID4 $ A 1X6 COLUMN MATRIX OF FORM 2 TO CMX $ AND TO ALTER THE TRAILER OF SYM, FROM SYMMETRIC TO SQUARE $ $ NOTE - THERE IS NO DOCUMENTATION AVAILABLE IN THE USER'S MANUAL $ 4/93 ABOUT THE NEW CAPABILITIES BEING PERFORMED HERE. $ - USER CAN GENERATE GINO DATA BLOCKS THRU THE DMIG CARDS. $ HOWEVER, INPUT VIA DMIG CARDS IS LIMITED TO ONLY SQAURE $ (FORM 1), RECTANGULAR (FORM 2) AND SYMMETRIC (FORM 6) $ MATRICES $ APP DMAP DIAG 8,15 BEGIN $ $ $ CDC USER, USE FORTRAN UNITS 11(UT1) AND 12(UT2) INSTEAD OF 15(INP1) $ AND 16(INP2) HERE. $ REWIND TAPE BEFORE READING, PARAMETER -1 $ INP1 & INP2 TAPES ARE ASCII FORMATTED TAPES, PARAMETERS -15 & -16 $ RECORDS IN MSC/OUTPUT4 FORMAT, 80 COLUMN PER RECORD, PARAMETER -4 $ (COSMIC/OUTPUT4 AND INPUTT4 USE 132-COLUMN-PER-RECORD FORMAT) $ MATPRN MUST HAVE A $ AT END OF LINE. ELSEWHERE $ SIGN IS OPTIONAL. $ INPUTT4 /SQR,REC,DI1,DI5,SYM/-1/-15//-4 INPUTT4 /RV1,RV6,ID1,ID4,CMX/-1/-16//-4 $ MATPRN SQR,REC,DI1,DI5,SYM// $ MATPRN RV1,RV6,ID1,ID4,CMX// $ $ MATGEN SYM//10///1 $ OPTION 10, CHANGING THE 3RD TRAILER WORD TO 1 MATPRN SYM,,,,// $ END $ TIME 5 CEND BEGIN ENDDATA $ $ MOVE THE FOLLWING DATA TO T00001A.INP1. $ (INTEGERS IN 3I8, BCD IN 2A4, AND REAL IN 5E16.9 OR 5F16.X) 4 4 1 2SQUARE 1 1 4 1.234567890E+03 2.224567890E+02-3.334567890E+00-0.034567890E+02 2 2 3 1.234567890E+03-2.234567890E+03 3 1 3 2.234567890E+03 7.224567890E+02-6.334567890E+00 4 3 4 -9.034567890E+02-6.234567890E+03 5 1 1 0.000000000E+00 2 5 2 1RECTANG 1 1 4 1.234567890E+03 2.224567890E+02-3.334567890E+00-0.034567890E+02 2 3 4 -0.034567890E+02-2.234567890E+03 3 1 1 1.000000000E+03 1 6 3 2DIAGONAL 1 1 6 1100. 220. -3300.0 440. 55000. -660.0 2 1 1 0.0 5 5 2 2DIAGON2 1 1 1 1111.1 2 2 1 222. 3 3 1 -3.333333 4 4 1 4440.4 5 5 1 550000. 6 1 1 0.0 4 4 6 2SYMMETRC 1 1 3 1.100000000E+03 2.200000000E+03-3.300000000E+03 2 1 4 2.200000000E+03-4.400000000E+02 5.500000000E+04-6.600000000E+04 3 1 4 -3.300000000E+03 5.500000000E+03-7.700000000E+03 8.800000000E+03 4 2 4 -6.600000000E+03 8.800000000E+03-9.900000000E+03 5 1 1 0.000000000E+00 $ MOVE THE FOLLWING DATA TO T00001A.INP2. 1 6 7 1ROWVEC 1 1 6 1.100000000E+03 2.200000000E+03-3.300000000E+03 4.400000000E+02 5.500000000E+04 -6.600000000E+02 2 1 1 1.000000000E+03 6 1 2 2COLVEC 1 1 1 9.876543210 2 1 1 -8.876543210 3 1 1 -7.776543210 4 1 1 6.676543210 5 1 1 5.576543210 6 1 1 -4.476543210 7 1 1 -3.376543210 1 4 8 2IDENT 1 1 4 1.0 1.0 1.0 1.0 2 1 1 .0 4 4 2 2IDENT 1 1 1 1.0 2 1 1 1.0 3 1 1 1.0 4 1 1 1.0 5 1 1 0.0 1 6 2 2COLMAT 1 1 6 1.111 22.222 333.333 -44.4 5.5 -66666.666 2 1 1 0.0 ================================================ FILE: inp/t01181a.inp ================================================ ID T01181A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 20 CEND TITLE = 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW) SUBTITLE = NASTRAN TEST PROBLEM NO. T01-18-1A LABEL = POINT TEMPERATURE AND GRAVITY LOAD LOAD = 10 TEMPERATURE(LOAD) = 2 SPC = 1 OUTPUT DISPLACEMENTS = ALL ELSTRESS = ALL OLOAD = ALL ELFORCE = ALL SPCFORCES = ALL BEGIN BULK LOAD 10 1. 1. 1 1. 3 GRID 1 0. 105. 0. GRID 2 -15. 120. 0. GRID 3 -120. 120. 0. GRID 4 -133. 120. 0. GRID 5 -200. 120. 0. GRID 6 -200. 225. 0. GRID 7 -215. 240. 0. GRID 8 -440. 240. 0. GRID 9 -235. 120. 0. GRID 10 -250. 120. 15. GRID 11 -250. 120. 120. GRID 12 -250. 120. 240. GRID 13 0. 0. 0. GRID 14 -245. 120. 0. GRID 15 -250. 130. 120. GRID 16 -240. 120. 240. GRID 17 -250. 130. 240. GRID 18 -250. 120. 250. SPC1 1 123 12 SPC1 1 456 12 SPC1 1 123456 13 THRU 18 SPC 1 12 3 0.3 SPC 1 12 2 0.1 SPC 1 12 1 0.2 CELAS2 101 1.0+4 9 1 14 1 CELAS2 102 1.0+5 11 2 15 2 CELBOW 2 10 1 2 -15.0 0.0 0.0 1 CELBOW 7 10 6 7 -15.0 0.0 0.0 1 CELBOW 10 10 9 10 0.0 0.0 15.0 1 PELBOW 10 11 16.085 211.33 211.33 422.66 6.61 +P1 +P1 5.37 0. 5.37 90. 5.37 180. 5.37 270. +P2 +P2 2.0 2.0 1.0 1.0 5.767 5.767 15. 90. MAT1 11 27.9+6 0.333 6.81-6 0. CBAR 1 20 13 1 0. 0. 1.0 1 CBAR 3 20 2 3 0. 0. 1. 1 CBAR 4 21 3 4 0. 0. 1. 1 CBAR 5 20 4 5 0. 0. 1. 1 CBAR 6 20 5 6 0. 0. 1. 1 CBAR 8 20 7 8 0. 0. 1. 1 CBAR 9 20 5 9 0. 0. 1. 1 CBAR 11 20 10 11 0. 1. 0. 1 CBAR 12 20 11 12 0. 1. 0. 1 PBAR 20 11 16.085 211.33 211.33 422.66 6.61 PBAR 21 11 54.915 551.8 551.8 1103.6 6.61 FORCE 1 3 1000. 0. 1. 0. FORCE 1 4 -200. 0. 1. 0. FORCE 1 8 3000. 1. 0. 0. FORCE 1 8 2000. 0. 0. 1. FORCE 1 8 1000. 0. 1. 0. GRAV 3 0 1. 0. -1. 0. TEMPD 2 740. ENDDATA ================================================ FILE: inp/t01191a.inp ================================================ ID T01191A,NASTRAN DIAG 14 APP HEAT SOL 1 TIME 20 ALTER 67,67 $ MAGBDY GEOM1,HEQEXIN/PER/S,N,IPG $ SSG1 HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,PER/ HPG,HCFLD,REMFLD,HCCEN,NSLT/HLUSET/NSKIP $ ALTER 77 $ SDR1, ,HCFLD,,,,,,,,, /,HCFLDG,/V,N,NSKIP/C,N,STATICS $ SDR1, ,HCCEN,,,,,,,,, /,HCCENG,/V,N,NSKIP/C,N,STATICS $ SDR1, ,REMFLD,,,,,,,,,/,REMFLG,/V,N,NSKIP/C,N,STATICS $ ALTER 84 $ EMFLD HOEF1,HEST,CASECC,HCFLDG,MPT,DIT,REMFLG,GEOM1,CSTM, HCCENG/HOEH1/V,N,HLUSET $ ALTER 85 $ OFP HOEH1,,,,,//S,N,CARDNO $ PROLATE GEOM1,HEQEXIN,BGPDT,CASECC,NSLT,HUGV,REMFLG,HEST,MPT,DIT/PROCOF$ OUTPUT2 PROCOF,,,,//0/11 $ TABPT PROCOF,,,,// $ ENDALTER $ CEND TITLE = ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS SUBTITLE = NASTRAN TEST PROBLEM NO. T01-19-1A DISP = ALL OLOAD = ALL ELFORCE = ALL SUBCASE 1 LOAD = 6 SUBCASE 2 LOAD = 5 SUBCASE 3 LOAD = 7 SUBCOM 4 SUBSEQ = .5,.5,0. SUBCASE 5 LOAD = 13 SUBCASE 6 LOAD = 12 SUBCASE 7 LOAD = 11 SUBCASE 100 LOAD = 100 BEGIN BULK GRID 1 0. 0. 1 GRID 4 0. 0. 1 GRID 7 0. 0. 1 GRID 26 0. 0. 1 GRID 14 0. 0. 1 GRID 18 0. 0. 1 GRID 22 0. 0. 1 GRID 15 2.82842 2.82842 GRID 19 2.82842 2.82842 GRID 23 2.82842 2.82842 GRID 2 2.82842 2.82842 GRID 5 2.82842 2.82842 GRID 8 2.82842 2.82842 GRID 27 2.82842 2.82842 GRID 3 1.41421 1.41421 2. GRID 6 1.41421 1.41421 2. GRID 9 1.41421 1.41421 2. GRID 28 1.41421 1.41421 2. GRID 16 2.82842 2.82842 2. GRID 20 2.82842 2.82842 2. GRID 24 2.82842 2.82842 2. GRID 17 0. 0. 2. GRID 21 0. 0. 2. GRID 25 0. 0. 2. GRID 10 0. 0. 1 GRID 11 2.82842 2.82842 GRID 12 2.82842 2.82842 2. GRID 13 0. 0. 2. GRID 110 0. 0. 1 GRID 111 2.82842 2.82842 GRID 112 2.82842 2.82842 2. GRID 113 0. 0. 2. GRID 210 1.41421 1.41421 GRID 211 2.82842 2.82842 1. GRID 212 1.41421 1.41421 2. GRID 213 0. 0. 1. CIS2D8 100 1 110 111 112 113 210 211 +CIS +CIS 212 213 PIS2D8 1 1 2. SPCFLD 5 10. 20. 30. 1 10 110 SPCFLD 5 25. 30. 32. 2 11 111 SPCFLD 5 41. 44. 53. 3 12 13 SPCFLD 5 41. 44. 53. 112 113 REMFLUX 6 7312.5 8625. 10500. 1 THRU 4 REMFLUX 6 7312.5 8625. 10500. 100 SPCFLD 5 17.5 25. 31. 210 SPCFLD 5 33. 37. 42.5 211 SPCFLD 5 41. 44. 53. 212 SPCFLD 5 25.5 32. 41.5 213 SPCFLD 100 10. 20. 30. 10 THRU 13 SPCFLD 100 10. 20. 30. 110 THRU 113 SPCFLD 100 10. 20. 30. 210 THRU 213 GEMLOOP 13 5. 5. 0. 0. 4.94 .65 +G1 +G1 0. 4.77 1.28 0. 4.5 1.88 0. 4.12 +G2 +G2 2.41 0. 3.66 2.87 0. 3.13 3.25 0. +G3 +G3 2.53 3.52 0. 1.9 3.69 0. 1.25 3.75 +G4 +G4 0. .6 3.69 0. -.03 3.52 0. -.62 +G5 +G5 3.25 0. -1.16 2.87 0. -1.62 2.41 0. +G6 +G6 ENDT GEMLOOP 13 5. -1.62 2.41 0. -2. 1.87 +G7 +G7 0. -2.27 1.28 0. -2.44 .65 0. -2.5 +G8 +G8 0. 0. -2.44 -.65 0. -2.27 -1.28 0. +G9 +G9 -2. -1.87 0. -1.62 -2.41 0. -1.16 -2.87 +G10 +G10 0. -.62 -3.25 0. -.03 -3.52 0. .6 +G11 +G11 -3.69 0. 1.25 -3.75 0. 1.9 -3.69 0. +G12 +G12 ENDT GEMLOOP 13 5. 1.9 -3.69 0. 2.53 -3.52 +G13 +G13 0. 3.12 -3.25 0. 3.66 -2.87 0. 4.12 +G14 +G14 -2.41 0. 4.5 -1.87 0. 4.77 -1.28 0. +G15 +G15 4.94 -.65 0. 5. 0. 0. ENDT MDIPOLE 11 0 5. 0. 0. 10. 10. 10. +M1 +M1 0. 0. CEMLOOP 12 5. 0 5. 0. 0. 1.25 3.75 +CM12 +CM12 0. 1.25 0. 0. CORD2R 2 0. 0. 0. 0. 0. 1. +C2 +C2 -1. 0. 1. CORD2R 1 0. 0. 0. 0. 0. 1. +C1 +C1 0. 1. 1. BFIELD 1 5 1 2 3 100 BFIELD 0 6 THRU 8 BFIELD 2 -1 LOAD 7 1. 1. 5 1. 6 REMFLUX 6 6333.3337833.3339583.3336 5 8 REMFLUX 6 6333.3337833.3339583.3337 SPCFLD 5 41. 44. 53. 6 16 17 SPCFLD 5 41. 44. 53. 9 20 21 SPCFLD 5 41. 44. 53. 28 24 25 SPCFLD 5 25. 30. 32. 5 15 SPCFLD 5 25. 30. 32. 8 19 SPCFLD 5 25. 30. 32. 27 23 SPCFLD 5 10. 20. 30. 4 14 SPCFLD 5 10. 20. 30. 7 18 SPCFLD 5 10. 20. 30. 26 22 MAT4 1 250. CTRMEM 8 6 1 2 3 PTRMEM 6 1 2. CQDMEM 1 1 10 11 12 13 CQUAD1 2 2 15 14 17 16 CQDMEM 3 1 21 18 19 20 CQUAD2 4 3 24 25 22 23 CTRIA1 5 4 5 4 6 CTRIA2 6 5 9 7 8 CTRIA2 7 5 27 28 26 PQDMEM 1 1 2. PQUAD1 2 1 2. 1 2. 1 2. PQUAD2 3 1 2. PTRIA1 4 1 2. 1 2. 1 2. PTRIA2 5 1 2. ENDDATA ================================================ FILE: inp/t01201a.inp ================================================ ID T01201A,NASTRAN APP HEAT SOL 1,0 TIME 10 DIAG 14 ALTER 67,67 $ SSG1 HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,/ HPG,HCFLD,REMFLD,HCCEN,NSLT/HLUSET/NSKIP $ ALTER 84 $ EMFLD HOEF1,HEST,CASECC,HCFLD,MPT,DIT,REMFLD,GEOM1,CSTM,HCCEN/HOEH1/ V,N,HLUSET $ ALTER 85 $ OFP HOEH1,,,,,//S,N,CARDNO$ ENDALTER $ CEND TITLE = ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS SUBTITLE = NASTRAN TEST PROBLEM NO. T01-20-1A DISP = ALL ELFORCE = ALL OLOAD = ALL SUBCASE 1 LOAD = 50 SUBCASE 2 LOAD = 51 SUBCASE 3 LOAD = 12 SUBCOM 20 SUBSEQ = .5,.5,0. BEGIN BULK CEMLOOP 12 5. 0 5. 0. 0. 1.25 3.75 +CM12 +CM12 0. 1.25 0. 0. CEMLOOP 12 5. 0 5. 0. 0. 1.25 3.75 +CM13 +CM13 0. 1.25 0. 0. MDIPOLE 12 0 5. 0. 0. 10. 10. 10. +M1 +M1 0. 0. REMFLUX 51 500. 0. 250. 16 REMFLUX 51 250. 500. 750. 18 REMFLUX 51 750. 1000. 500. 20 REMFLUX 51 1000. 250. 750. 22 CHEXA1 20 2 21 22 23 24 25 26+E1 +E1 27 28 CHEXA2 22 2 31 32 33 34 35 36+E2 +E2 37 38 CTETRA 16 2 1 2 3 4 CWEDGE 18 2 11 12 13 14 15 16 GRID 1 1. 0. 3. 1 GRID 2 2. 0. 3. GRID 3 3. 2. 3. GRID 4 2. 1. 5. GRID 11 1. 2. 1. 1 GRID 12 3. 1. -3. GRID 13 6. 2. 2. GRID 14 1. 6. 1. GRID 15 4. 4. -3. GRID 16 5. 6. 1. GRID 21 1. 2. 1. 1 GRID 22 2. .5 3. GRID 23 7. 2. 4. GRID 24 5. 3. 2. GRID 25 1.5 5. 2. GRID 26 2.5 5. 3. GRID 27 7. 6. 4. GRID 28 6. 9. 3. GRID 31 1. 2. 1. 1 GRID 32 2. .5 3. GRID 33 7. 2. 4. GRID 34 5. 3. 2. GRID 35 1.5 5. 2. GRID 36 2.5 5. 3. GRID 37 7. 6. 4. GRID 38 6. 9. 3. MAT4 2 250. SPCFLD 50 0 2. 0. 1. 1 2 3 SPCFLD 50 0 2. 0. 1. 4 SPCFLD 50 01. 2. 3. 11 12 13 SPCFLD 50 01. 2. 3. 14 15 16 SPCFLD 50 03. 4. 2. 21 THRU 28 SPCFLD 50 04. 1. 3. 31 THRU 38 ENDDATA ================================================ FILE: inp/t01211a.inp ================================================ NASTRAN BANDTMTH=2 ID T01211A,NASTRAN DIAG 14 TIME 5 SOL 1 APP DISP ALTER 41 $ MATPRN KGGX,,,,//$ EXIT $ ENDALTER $ CEND TITLE = WEDGE ELEMENT PROBLEM SUBTITLE = NASTRAN TEST PROBLEM NO. T01-21-1A BEGIN BULK CHEXA2 1 1 21 22 23 24 25 26 +C1 +C1 27 28 CWEDGE 2 1 11 12 13 15 16 17 CTETRA 3 1 31 32 33 35 CWEDGE 30 1 41 42 43 45 46 47 CWEDGE 4 1 41 43 44 45 47 48 CTETRA 5 1 1 2 3 5 CTETRA 6 1 1 2 3 5 CTETRA 7 1 1 2 3 6 CTETRA 8 1 1 2 3 6 CTETRA 9 1 1 2 3 7 CTETRA 10 1 1 2 3 7 CTETRA 11 1 1 5 6 7 CTETRA 12 1 1 5 6 7 CTETRA 13 1 2 5 6 7 CTETRA 14 1 2 5 6 7 CTETRA 15 1 3 5 6 7 CTETRA 16 1 3 5 6 7 CTETRA 17 1 1 2 5 7 CTETRA 18 1 2 3 5 7 CTETRA 19 1 1 3 5 6 CTETRA 20 1 2 3 5 6 CTETRA 21 1 1 3 6 7 CTETRA 22 1 1 2 6 7 GRID 1 GRID 11 GRID 21 GRID 31 GRID 41 GRID 2 2. GRID 12 2. GRID 22 2. GRID 32 2. GRID 42 2. GRID 3 2. 3. GRID 13 2. 3. GRID 23 2. 3. GRID 33 2. 3. GRID 43 2. 3. GRID 4 0. 3. GRID 14 0. 3. GRID 24 0. 3. GRID 34 0. 3. GRID 44 0. 3. GRID 5 0. 0. 4. GRID 15 0. 0. 4. GRID 25 0. 0. 4. GRID 35 0. 0. 4. GRID 45 0. 0. 4. GRID 6 2. 0. 4. GRID 16 2. 0. 4. GRID 26 2. 0. 4. GRID 36 2. 0. 4. GRID 46 2. 0. 4. GRID 7 2. 3. 4. GRID 17 2. 3. 4. GRID 27 2. 3. 4. GRID 37 2. 3. 4. GRID 47 2. 3. 4. GRID 8 0. 3. 4. GRID 18 0. 3. 4. GRID 28 0. 3. 4. GRID 38 0. 3. 4. GRID 48 0. 3. 4. MAT1 1 3.+7 .3 ENDDATA ================================================ FILE: inp/t01221a.inp ================================================ ID T01221A,NASTRAN DIAG 14 APP DISP SOL 1,0 TIME 20 CEND TITLE = ANISOTROPIC IHEX2 ELEMENT PROBLEM SUBTITLE = NASTRAN TEST PROBLEM NO. T01-22-1A SPCF = ALL SPC = 11 OLOAD = ALL DISP = ALL STRESS= ALL SUBCASE 1 LOAD = 29 BEGIN BULK CORD2R 30 0. 0. 0. 0. 0. 1. +C1 +C1 1. 0. 1. PIHEX 1 31 30 3 MAT6 31 .232+7 -.211+7 .0316+7 .158+7 .105+7 .0526+7 .737+7 +M1 +M1 -.211+7 -.553+7 -.368+7 -.184+7 .232+7 .158+7 .105+7 .0526+7 +M2 +M2 .664+7 .276+7 .138+7 .434+7 .0921+7 .296+7 7.324-4 SPC1 11 1 1 29 41 SPC1 11 2 1 2 3 29 30 41 SPC1 11 2 42 43 SPC1 11 123 1 PLOAD3 29 -10. 10501 26 68 GRDSET 456 CIHEX2 10101 1 1 2 3 5 8 7CIH 1 +IH 1 6 4 29 30 32 31 41 42CIH 2 +IH 2 43 45 48 47 46 44 CIHEX2 10201 1 6 7 8 10 13 12CIH 3 +IH 3 11 9 31 32 34 33 46 47CIH 4 +IH 4 48 50 53 52 51 49 CIHEX2 10301 1 11 12 13 15 18 17CIH 5 +IH 5 16 14 33 34 36 35 51 52CIH 6 +IH 6 53 55 58 57 56 54 CIHEX2 10401 1 16 17 18 20 23 22CIH 7 +IH 7 21 19 35 36 38 37 56 57CIH 8 +IH 8 58 60 63 62 61 59 CIHEX2 10501 1 21 22 23 25 28 27CIH 9 +IH 9 26 24 37 38 40 39 61 62CIH 10 +IH 10 63 65 68 67 66 64 GRID 1 .000 0.000 0.000 GRID 2 .500 0.000 0.000 GRID 3 1.000 0.000 0.000 GRID 4 .000 1.000 0.000 GRID 5 1.000 1.000 0.000 GRID 6 .000 2.000 0.000 GRID 7 .500 2.000 0.000 GRID 8 1.000 2.000 0.000 GRID 9 .000 3.000 0.000 GRID 10 1.000 3.000 0.000 GRID 11 .000 4.000 0.000 GRID 12 .500 4.000 0.000 GRID 13 1.000 4.000 0.000 GRID 14 -.000 5.000 0.000 GRID 15 1.000 5.000 0.000 GRID 16 -.000 6.000 0.000 GRID 17 .500 6.000 0.000 GRID 18 1.000 6.000 0.000 GRID 19 .000 7.000 0.000 GRID 20 1.000 7.000 0.000 GRID 21 .000 8.000 0.000 GRID 22 .500 8.000 0.000 GRID 23 1.000 8.000 0.000 GRID 24 .000 9.000 0.000 GRID 25 1.000 9.000 0.000 GRID 26 .000 10.000 0.000 GRID 27 .500 10.000 0.000 GRID 28 1.000 10.000 0.000 GRID 29 -.000 0.000 .500 GRID 30 1.000 0.000 .500 GRID 31 -.000 2.000 .500 GRID 32 1.000 2.000 .500 GRID 33 -.000 4.000 .500 GRID 34 1.000 4.000 .500 GRID 35 -.000 6.000 .500 GRID 36 1.000 6.000 .500 GRID 37 -.000 8.000 .500 GRID 38 1.000 8.000 .500 GRID 39 -.000 10.000 .500 GRID 40 1.000 10.000 .500 GRID 41 .000 0.000 1.000 GRID 42 .500 0.000 1.000 GRID 43 1.000 0.000 1.000 GRID 44 .000 1.000 1.000 GRID 45 1.000 1.000 1.000 GRID 46 .000 2.000 1.000 GRID 47 .500 2.000 1.000 GRID 48 1.000 2.000 1.000 GRID 49 .000 3.000 1.000 GRID 50 1.000 3.000 1.000 GRID 51 .000 4.000 1.000 GRID 52 .500 4.000 1.000 GRID 53 1.000 4.000 1.000 GRID 54 -.000 5.000 1.000 GRID 55 1.000 5.000 1.000 GRID 56 -.000 6.000 1.000 GRID 57 .500 6.000 1.000 GRID 58 1.000 6.000 1.000 GRID 59 .000 7.000 1.000 GRID 60 1.000 7.000 1.000 GRID 61 .000 8.000 1.000 GRID 62 .500 8.000 1.000 GRID 63 1.000 8.000 1.000 GRID 64 .000 9.000 1.000 GRID 65 1.000 9.000 1.000 GRID 66 .000 10.000 1.000 GRID 67 .500 10.000 1.000 GRID 68 1.000 10.000 1.000 ENDDATA ================================================ FILE: inp/t01231a.inp ================================================ NASTRAN FILES=(INP1,INP2) ID T01231A,NASTRAN APP DISP SOL 1 DIAG 8,15,-2,-14,-7 TIME 30 $ ALTER 113 $ $ $PRINT OQG1 TABLE FOR LATER COMPARISION OFP OQG1,,,,, //S,N,CARDNO $ $ $CDC USERS, USE UT1 (UNIT 11) AND UT2 (UNIT 12) INSTEAD OF INP1 AND INP2 $IN THIS DEMO PROBLEM $ $COPY TABLE OQG1 TO INP1 (UNIT 15) AND COPY OQG1 TO MYFOOT (IN PACKED $GINO FILE) DUMMOD5 OQG1,,OQG1,,/,,MYFOOT,,/6/15/6/0/0/+1 $ $ $PRINT MYFOOT, IN MATRIX FORMAT, WHICH SHOULD CONTAIN OQG1 DATA $PRINT MATRIX KGG FOR LATER COMPARISON MATPRN MYFOOT,KGG,,,// $ $ $COPY MYFOOT AND KGG TO INP2 (UNIT 16), SEQUENTIAL FORMATTED TAPE OUTPUT5 MYFOOT,KGG,,,//-1/16/*YOURFEET*/1 $ $ $RECOVER THE 2 FILES FROM INP2 (UNIT 16) AND MAKE THEM NASTRAN GINO FILES INPUTT5 /OMYFOOT,OKGG,,,/-1/16/*YOURFEET*/1 $ $ $RECOVER THE BINARY FILE IN INP1 (UNIT 15) WHICH WAS SAVED IN DUMMOD5 INPUTT5 /OQG1X,,,,/-1/15/*XXXXXXXX*/0 $ $ $TABLE PRINT OQG1X AND OMYFOOT, AND MATRIX PRINT OKGG FOR VERIFICATION TABPT OQG1X,OMYFOOT,,, // $ MATPRN OKGG,,,, // $ $ $JUMP TO FINISH JUMP FINIS $ $ ENDALTER $ CEND TITLE = DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5 SUBTITLE = NASTRAN TEST PROBLEM NO. T01-23-1A LOAD = 10 SPC = 1 SPCFORCE= ALL DISP = NONE BEGIN BULK GRDSET,8)246 GRID,1,,200.,0.0,10.0 =,2,,200.,=,0.0 =,3,,150.0,0.0,10.0 =,4,,=,=,0.0 =,5,,100.,=,10.0 =,6,,100.,=,0.0 =,7,,76.,=,10.0 =,8,,50.0,=,0.0 =,9,,25.86,=,10.0 =,10,,0.,=,0.0 =,11,,-24.,=,10.0 SPC1,1,13,10,11 SPC1,1,3,1,2,4,6 CBAR,1,2,1,2,1.0,0.0,0.0,1 =,2,5,1,3 =,3,=,3,5 =,4,=,7,9 =,5,=,9,11 =,6,5,2,4 =,7,=,4,6 =,8,=,6,8 =,9,=,8,10 =,10,=,5,7 =,11,3,7,6 =,12,=,5,6,1.0,0.0,0.0,1 BAROR,,5,,,0.,0.,1.,1 PBAR,1,6061,100.,100.,100.,100.,,,+P1 =,2,=,1.359,.752,.752,1.504,,,+P2 =,3,=,.25,.08,.08,.09,,,+P3 =,4,=,.25,.08,.08,.09,,,+P4 =,5,=,2.718,1.504,1.504,3.0,,,+P5 MAT1,6061,1.+7,,0.3,0.1 +P1,-1.0,1.0,1.0,1.0,1.0,-1.0,-1.0,-1.0 +P2,== +P3,-.25,1.0,.25,1.0,.25,-1.0,-.25,1.0 +P4,== +P5,-1.0,6.0,1.0,6.0,1.0,-6.0,-1.0,-6.0 SPCD,10,1,3,-1.0 SPCD,10,2,3,-1.0 SPCD,10,4,3,-1.0 SPCD,10,6,3,-1.0 FORCE,10,1,,110.0,0.0,0.0,-1.0 ENDDATA ================================================ FILE: inp/t01241a.inp ================================================ NASTRAN TITLEOPT=-1, BANDIT=-1 ID T01241A,NASTRAN APP DISPLACEMENT SOL 1,0 TIME 10 ALTER 58 TABPT EPT,,,, // $ MATPRN KGGX,,,, // $ PARAML EPT //*TABLE1*/1/6 /V,N,RSP $ PARAML EPT //*TABLE1*/1/4 //V,N,INT $ PARAML EPT //*TABLE2*/1/4 //V,N,INT2 $ INTENTIONAL ERROR PARAML EPT //*TABLE2*/1/6 ///V,N,RDP $ PARAML EPT //*TABLE2*/1/6 /RSPX/INTX/V,N,RDPX $ PARAML EPT //*TABLE1*/1/1 ////V,N,BCD $ PARAML EPT //*TABLE2*/1/6 /////V,N,SCPLX $ PARAML EPT //*TABLE2*/1/6 //////V,N,DCPLX $ PARAML EPT //*TABLE4*/1/6 //////V,N,DCPLX4 $ PARAML EPT //*TABLE2*/1/9 /V,N,LAST $ PARAML EPT //*TABLE1*/1/9 /V,N,LAST1 $ PARAML KGGX//*MATRIX*/7/1 /V,N,R1 $ PARAML KGGX//*MATRIX*/3/1 //V,N,I1 $ PARAML KGGX//*MATRIX*/1/3 ///V,N,D1 $ PARAML KGGX//*MATRIX*/1/3 ////V,N,B1 $ PARAML KGGX//*MATRIX*/7/13 /////V,N,CS1 $ PARAML KGGX//*MATRIX*/13/7//////V,N,CD1 $ PARAML KGGX//*MATRIX*/13/19 ///V,N,D13 $ SCALAR KGGX// 1/1 /V,N,SP1 $ SCALAR KGGX// 1/3 /V,N,SP2 $ SCALAR KGGX// 3/1 /V,N,SP3 $ SCALAR KGGX// 7/13 /V,N,SP4 $ SCALAR KGGX// 19/13 //V,N,DP4 $ SCALAR KGGX// 7/13 ///V,N,CSP4 $ SCALAR KGGX// 13/7 ////V,N,CDP4 $ PARAMR //*ADD* /V,N,R1SP4 /V,N,R1 /V,N,SP4 $ PARAMR //*SUB* /V,N,R1SP4 /V,N,R1 /V,N,SP4 $ PARAMR //*ABS* /V,N,ABSR1 /V,N,R1 $ PARAMR //*ABS* /V,N,ABSRX //V,N,R1 $ INTENTIONAL ERROR INPUT PARAMR //*SQRT* /V,N,SQTR1 /V,N,R1 $ PARAMR //*SQRT* /V,N,SQTR1 /V,N,ABSR1 $ PARAMR //*MPYC* ////V,N,CMPY /V,N,SCPLX /V,N,CS1 $ PARAMR //*COMPLEX*//V,N,R1 /V,N,SP4 /V,N,OUTC $ PARAMR //*LE* //V,N,R1 /V,N,SP4////V,N,LEFLG $ PARAMD //*MPY* /V,N,RDPDP /V,N,RDPX /V,N,RDPX $ PARAMD //*MPY* /V,N,RDPDX //V,N,RDPX /V,N,RDPY $ ERROR INPUT PARAMD //*DIV* /V,N,DP4X /V,N,DP4 /V,N,RDPX $ PARAMD //*EXP* /V,N,EXPX /V,N,DP4 /V,N,RDP $ PARAMD //*CONJ* ////V,N,CONJX /V,N,CDP4 $ PARAMD //*DIVC* ////V,N,DIVCX /V,N,DCPLX4/V,N,CDP4 $ PARAMD //*EQ* //V,N,EXPX /V,N,DP4////V,N,EQFLG $ PRTPARM // 0 $ JUMP FINIS $ ENDALTER CEND TITLE = TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES SUBTITLE = NASTRAN TEST PROBLEM NO. T01-24-1A SPC = 1 LOAD = 1 DISP = ALL BEGIN BULK CROD 60 5 1 2 61 5 2 3 CROD 62 5 3 4 FORCE 1 4 0 -1. .0 .0 100. GRDSET 456 GRID 1 .0 .0 .0 GRID 2 10. .0 .0 GRID 3 30. .0 .0 GRID 4 50. .0 .0 PROD 5 6 2.1 MAT1 6 1.04+7 4.+6 SPC1 1 123 1 ENDDATA ================================================ FILE: inp/t01251a.inp ================================================ ID T01251A,NASTRAN SOL 1,0 APP DISP TIME 30 DIAG 48 CEND TITLE = LAMINATED COMPOSITE PLATE - PURE TWIST LOADING SUBTITLE = NASTRAN TEST PROBLEM NO. T01-25-1A $ $ MODEL: A SQUARE PLATE OF A 4X4 MESH WITH THREE CORNERS $ PINNED AND A TRANSVERSE POINT LOAD AT THE FREE $ CORNER TO SIMULATE A PURE TWIST LOADING. THE $ LAMINATE LAYUP IS OF A CROSS-PLY CONFIGURATION $ [0/90/0]. $ $ * * T3 DEFLECTION AT GRID 1 * * $ $ THEORETICAL $ ----------------------------------------------- $ -3.750E-2 $ $ $ * * TAU FOR ELEMENT 1, ALL LAYERS * * $ $ THEORETICAL $ ----------------------------------------------- $ PLY 1 -5.0E1 $ PLY 2 0.0 $ PLY 3 5.0E1 $ $ $ $ REFERENCES: JONES R. M., MECHANICS OF COMPOSITE MATERIALS. $ M GRAW-HILL BOOK COMPANY. (PAGE 181) $ $ $ SPC = 1 SUBCASE 1 LABEL = LAYER STRESS REQUEST DISP = ALL STRESS(LAYER) = ALL FORCE = ALL LOAD = 1 BEGIN BULK CQUAD4 1 3 1 2 5 4 CQUAD4 2 3 2 3 6 5 CQUAD4 3 3 4 5 8 7 CQUAD4 4 3 5 6 9 8 FORCE 1 1 1.0 0.0 0.0 -1.0 GRID 1 0.0 0.0 GRID 2 2.5 0.0 GRID 3 5.0 0.0 GRID 4 0.0 2.5 GRID 5 2.5 2.5 GRID 6 5.0 2.5 GRID 7 0.0 5.0 GRID 8 2.5 5.0 GRID 9 5.0 5.0 MAT8 3 2.0 E+75.0 E+5.25 25.0E+04 +MAT8 +MAT8 1.6 E+051.2 E+042.0 E+053.0 E+041.5 E+04 PCOMP1 3 1.2 E+04HILL 3 .0666666 +PCOMP1 +PCOMP1 0.0 90.0 0.0 SPC1 1 6 1 2 4 5 6 8 SPC1 1 1236 3 7 9 ENDDATA ================================================ FILE: inp/t01261a.inp ================================================ ID T01261A,NASTRAN DIAG 40 SOL 1,0 APP DISP TIME 30 CEND TITLE = COMP01 **COSMIC** QUAD4 FLAT PLATE TEST SUBTITLE = NASTRAN TEST PROBLEM NO. T01-26-1A LABEL = MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] $ $ MODEL: A QUARTER MODEL OF A SIMPLY SUPPORTED FLAT PLATE $ OF A SYMMETRIC CROSS-PLY CONFIGURATION [0/90/0]. $ UNDER A UNIFORM PRESSURE LOADING. $ $ * * T3 DEFLECTION AT GRID 25 * * $ $ THEORETICAL $ ---------------------------------------------- $ -1.836E-3 $ $ $ $ REFERENCE: JONES,R.M. , MECHANICS OF COMPOSITE MATERIALS. $ M GRAW-HILL BOOK COMPANY. (PAGE 248-250) $ $ SET 1 = 2,7,12,17 DISP = ALL STRESS(LAYER) = 1 FORCE = 1 SUBCASE 1 SUBTITLE = SIMPLE SUPPORTS, UNIFORM LOAD SPC = 1 LOAD = 1 BEGIN BULK MAT8 1 20.0E+06.50 E+6.25 .250 E+6 PARAM AUTOSPC 1 PCOMP 1 -.001 +PC1 +PC1 1 .000666 0.0 YES 1 .000666 90.0 YES +PC2 +PC2 1 .000666 0.0 YES PLOAD4 1 2 -1.0E-04 THRU 17 SPC1 1 15 22 23 24 SPC1 1 24 10 15 20 SPC1 1 1234 2 3 4 5 SPC1 1 1235 6 11 16 21 SPC1 1 1245 25 SPC1 1 12345 1 GRID 1 0.000 0.000 0.000 GRID 2 0.000 .250 0.000 GRID 3 0.000 .500 0.000 GRID 4 0.000 .750 0.000 GRID 5 0.000 1.000 0.000 GRID 6 .250 0.000 0.000 GRID 7 .250 .250 0.000 GRID 8 .250 .500 0.000 GRID 9 .250 .750 0.000 GRID 10 .250 1.000 0.000 GRID 11 .500 0.000 0.000 GRID 12 .500 .250 0.000 GRID 13 .500 .500 0.000 GRID 14 .500 .750 0.000 GRID 15 .500 1.000 0.000 GRID 16 .750 0.000 0.000 GRID 17 .750 .250 0.000 GRID 18 .750 .500 0.000 GRID 19 .750 .750 0.000 GRID 20 .750 1.000 0.000 GRID 21 1.000 0.000 0.000 GRID 22 1.000 .250 0.000 GRID 23 1.000 .500 0.000 GRID 24 1.000 .750 0.000 GRID 25 1.000 1.000 0.000 CQUAD4 2 1 1 6 7 2 CQUAD4 3 1 6 11 12 7 CQUAD4 4 1 11 16 17 12 CQUAD4 5 1 16 21 22 17 CQUAD4 6 1 2 7 8 3 CQUAD4 7 1 7 12 13 8 CQUAD4 8 1 12 17 18 13 CQUAD4 9 1 17 22 23 18 CQUAD4 10 1 3 8 9 4 CQUAD4 11 1 8 13 14 9 CQUAD4 12 1 13 18 19 14 CQUAD4 13 1 18 23 24 19 CQUAD4 14 1 4 9 10 5 CQUAD4 15 1 9 14 15 10 CQUAD4 16 1 14 19 20 15 CQUAD4 17 1 19 24 25 20 ENDDATA ================================================ FILE: inp/t01271a.inp ================================================ NASTRAN FILES=PLT2 ID T01271A,NASTRAN DIAG 40 SOL 1,0 APP DISP TIME 100 CEND TITLE = QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S SUBTITLE = NASTRAN TEST PROBLEM NO. T01-27-1A LABEL = TUBE UNDER CONSTANT PRESSURE P $ $ $ MODEL: SECTION OF A OPEN TUBE RADIUS R, UNDER PRESSURE P. $ SYMMETRIC LAYUP [45/-45/0/90/90/0/-45/45] $ $ * * HOOP LOADING FY FOR ELEMENT ID 8 * * $ $ $ HOOP LOADING FY = P * R = 10.5 * 50 = 5.25E5 $ $ THEORETICAL $ ------------------------------------------------ $ 5.25E2 $ $ $ * * LAYER STRESSES FOR ELEMENT ID 8 * * $ $ ------------------------------------------------------ $ SIG1 SIG2 TAU12 $ LAYER 1 2.524E2 1.741E1 2.277E1 $ LAYER 2 2.494E2 1.751E1 -2.276E1 $ LAYER 3 -2.259E2 3.231E1 1.944E-2 $ LAYER 4 7.271E2 2.652E0 1.556E-2 $ LAYER 5 7.270E2 2.660E0 5.054E-2 $ LAYER 6 -2.253E2 3.230E1 -8.551E-2 $ LAYER 7 2.534E2 1.741E1 -2.273E1 $ LAYER 8 2.477E2 1.759E1 2.272E1 $ $ $ SPC = 1 SET 1 = 29,45,61,77 SET 2 = 8,24 DISP(PRINT) = 1 STRESS(LAYER) = 2 FORCE(PRINT) = 2 SUBCASE 1 LOAD = 1 OUTPUT(PLOT) SET 1 = ALL PLOT SET 1 PLOT SET 1, HIDD BEGIN BULK CORD2C 1 0.0 0.0 0.0 0.0 0.0 1.0 +MOR1001 +MOR10011.0 0.0 0.0 MAT8 1 73.8 E+33.75 E+30.4 1.74 E+3 +MA1 +MA1 1680. -229.0 20.9 -137.0 82.9 PCOMP 2 -0.96 10000.0 HILL SYM +PC1 +PC1 1 .24 45.0 YES -45.0 YES +PC2 +PC2 0.0 YES 90.0 YES PLOAD4 1 1 10.5 THRU 128 SPC1 1 3 1 9 16 24 SPC1 1 145 9 24 136 137 SPC1 1 245 1 16 129 144 GRID 1 1 50.000 180.000 0.000 GRID 2 1 50.000 202.500 0.000 GRID 3 1 50.000 157.500 0.000 GRID 4 1 50.000 225.000 0.000 GRID 5 1 50.000 135.000 0.000 GRID 6 1 50.000 247.500 0.000 GRID 7 1 50.000 112.500 0.000 GRID 8 1 50.000 270.000 0.000 GRID 9 1 50.000 90.000 0.000 GRID 10 1 50.000 292.500 0.000 GRID 11 1 50.000 67.500 0.000 GRID 12 1 50.000 315.000 0.000 GRID 13 1 50.000 45.000 0.000 GRID 14 1 50.000 337.500 0.000 GRID 15 1 50.000 22.500 0.000 GRID 16 1 50.000 0.000 0.000 GRID 17 1 50.000 180.000 10.000 GRID 18 1 50.000 202.500 10.000 GRID 19 1 50.000 157.500 10.000 GRID 20 1 50.000 225.000 10.000 GRID 21 1 50.000 135.000 10.000 GRID 22 1 50.000 247.500 10.000 GRID 23 1 50.000 112.500 10.000 GRID 24 1 50.000 270.000 10.000 GRID 25 1 50.000 90.000 10.000 GRID 26 1 50.000 292.500 10.000 GRID 27 1 50.000 67.500 10.000 GRID 28 1 50.000 315.000 10.000 GRID 29 1 50.000 45.000 10.000 GRID 30 1 50.000 337.500 10.000 GRID 31 1 50.000 22.500 10.000 GRID 32 1 50.000 0.000 10.000 GRID 33 1 50.000 180.000 20.000 GRID 34 1 50.000 202.500 20.000 GRID 35 1 50.000 157.500 20.000 GRID 36 1 50.000 225.000 20.000 GRID 37 1 50.000 135.000 20.000 GRID 38 1 50.000 247.500 20.000 GRID 39 1 50.000 112.500 20.000 GRID 40 1 50.000 270.000 20.000 GRID 41 1 50.000 90.000 20.000 GRID 42 1 50.000 292.500 20.000 GRID 43 1 50.000 67.500 20.000 GRID 44 1 50.000 315.000 20.000 GRID 45 1 50.000 45.000 20.000 GRID 46 1 50.000 337.500 20.000 GRID 47 1 50.000 22.500 20.000 GRID 48 1 50.000 0.000 20.000 GRID 49 1 50.000 180.000 30.000 GRID 50 1 50.000 202.500 30.000 GRID 51 1 50.000 157.500 30.000 GRID 52 1 50.000 225.000 30.000 GRID 53 1 50.000 135.000 30.000 GRID 54 1 50.000 247.500 30.000 GRID 55 1 50.000 112.500 30.000 GRID 56 1 50.000 270.000 30.000 GRID 57 1 50.000 90.000 30.000 GRID 58 1 50.000 292.500 30.000 GRID 59 1 50.000 67.500 30.000 GRID 60 1 50.000 315.000 30.000 GRID 61 1 50.000 45.000 30.000 GRID 62 1 50.000 337.500 30.000 GRID 63 1 50.000 22.500 30.000 GRID 64 1 50.000 0.000 30.000 GRID 65 1 50.000 180.000 40.000 GRID 66 1 50.000 202.500 40.000 GRID 67 1 50.000 157.500 40.000 GRID 68 1 50.000 225.000 40.000 GRID 69 1 50.000 135.000 40.000 GRID 70 1 50.000 247.500 40.000 GRID 71 1 50.000 112.500 40.000 GRID 72 1 50.000 270.000 40.000 GRID 73 1 50.000 90.000 40.000 GRID 74 1 50.000 292.500 40.000 GRID 75 1 50.000 67.500 40.000 GRID 76 1 50.000 315.000 40.000 GRID 77 1 50.000 45.000 40.000 GRID 78 1 50.000 337.500 40.000 GRID 79 1 50.000 22.500 40.000 GRID 80 1 50.000 0.000 40.000 GRID 81 1 50.000 180.000 50.000 GRID 82 1 50.000 202.500 50.000 GRID 83 1 50.000 157.500 50.000 GRID 84 1 50.000 225.000 50.000 GRID 85 1 50.000 135.000 50.000 GRID 86 1 50.000 247.500 50.000 GRID 87 1 50.000 112.500 50.000 GRID 88 1 50.000 270.000 50.000 GRID 89 1 50.000 90.000 50.000 GRID 90 1 50.000 292.500 50.000 GRID 91 1 50.000 67.500 50.000 GRID 92 1 50.000 315.000 50.000 GRID 93 1 50.000 45.000 50.000 GRID 94 1 50.000 337.500 50.000 GRID 95 1 50.000 22.500 50.000 GRID 96 1 50.000 0.000 50.000 GRID 97 1 50.000 180.000 60.000 GRID 98 1 50.000 202.500 60.000 GRID 99 1 50.000 157.500 60.000 GRID 100 1 50.000 225.000 60.000 GRID 101 1 50.000 135.000 60.000 GRID 102 1 50.000 247.500 60.000 GRID 103 1 50.000 112.500 60.000 GRID 104 1 50.000 270.000 60.000 GRID 105 1 50.000 90.000 60.000 GRID 106 1 50.000 292.500 60.000 GRID 107 1 50.000 67.500 60.000 GRID 108 1 50.000 315.000 60.000 GRID 109 1 50.000 45.000 60.000 GRID 110 1 50.000 337.500 60.000 GRID 111 1 50.000 22.500 60.000 GRID 112 1 50.000 0.000 60.000 GRID 113 1 50.000 180.000 70.000 GRID 114 1 50.000 202.500 70.000 GRID 115 1 50.000 157.500 70.000 GRID 116 1 50.000 225.000 70.000 GRID 117 1 50.000 135.000 70.000 GRID 118 1 50.000 247.500 70.000 GRID 119 1 50.000 112.500 70.000 GRID 120 1 50.000 270.000 70.000 GRID 121 1 50.000 90.000 70.000 GRID 122 1 50.000 292.500 70.000 GRID 123 1 50.000 67.500 70.000 GRID 124 1 50.000 315.000 70.000 GRID 125 1 50.000 45.000 70.000 GRID 126 1 50.000 337.500 70.000 GRID 127 1 50.000 22.500 70.000 GRID 128 1 50.000 0.000 70.000 GRID 129 1 50.000 180.000 80.000 GRID 130 1 50.000 202.500 80.000 GRID 131 1 50.000 157.500 80.000 GRID 132 1 50.000 225.000 80.000 GRID 133 1 50.000 135.000 80.000 GRID 134 1 50.000 247.500 80.000 GRID 135 1 50.000 112.500 80.000 GRID 136 1 50.000 270.000 80.000 GRID 137 1 50.000 90.000 80.000 GRID 138 1 50.000 292.500 80.000 GRID 139 1 50.000 67.500 80.000 GRID 140 1 50.000 315.000 80.000 GRID 141 1 50.000 45.000 80.000 GRID 142 1 50.000 337.500 80.000 GRID 143 1 50.000 22.500 80.000 GRID 144 1 50.000 0.000 80.000 CQUAD4 1 2 17 33 35 19 CQUAD4 2 2 19 35 37 21 CQUAD4 3 2 17 18 34 33 CQUAD4 4 2 18 20 36 34 CQUAD4 5 2 24 26 42 40 CQUAD4 6 2 26 28 44 42 CQUAD4 7 2 24 40 38 22 CQUAD4 8 2 22 38 36 20 CQUAD4 9 2 25 23 39 41 CQUAD4 10 2 23 21 37 39 CQUAD4 11 2 25 41 43 27 CQUAD4 12 2 27 43 45 29 CQUAD4 13 2 32 48 46 30 CQUAD4 14 2 30 46 44 28 CQUAD4 15 2 32 31 47 48 CQUAD4 16 2 31 29 45 47 CQUAD4 17 2 33 49 51 35 CQUAD4 18 2 35 51 53 37 CQUAD4 19 2 33 34 50 49 CQUAD4 20 2 34 36 52 50 CQUAD4 21 2 40 42 58 56 CQUAD4 22 2 42 44 60 58 CQUAD4 23 2 40 56 54 38 CQUAD4 24 2 38 54 52 36 CQUAD4 25 2 41 39 55 57 CQUAD4 26 2 39 37 53 55 CQUAD4 27 2 41 57 59 43 CQUAD4 28 2 43 59 61 45 CQUAD4 29 2 48 64 62 46 CQUAD4 30 2 46 62 60 44 CQUAD4 31 2 48 47 63 64 CQUAD4 32 2 47 45 61 63 CQUAD4 33 2 49 65 67 51 CQUAD4 34 2 51 67 69 53 CQUAD4 35 2 49 50 66 65 CQUAD4 36 2 50 52 68 66 CQUAD4 37 2 56 58 74 72 CQUAD4 38 2 58 60 76 74 CQUAD4 39 2 56 72 70 54 CQUAD4 40 2 54 70 68 52 CQUAD4 41 2 57 55 71 73 CQUAD4 42 2 55 53 69 71 CQUAD4 43 2 57 73 75 59 CQUAD4 44 2 59 75 77 61 CQUAD4 45 2 64 80 78 62 CQUAD4 46 2 62 78 76 60 CQUAD4 47 2 64 63 79 80 CQUAD4 48 2 63 61 77 79 CQUAD4 49 2 65 81 83 67 CQUAD4 50 2 67 83 85 69 CQUAD4 51 2 65 66 82 81 CQUAD4 52 2 66 68 84 82 CQUAD4 53 2 72 74 90 88 CQUAD4 54 2 74 76 92 90 CQUAD4 55 2 72 88 86 70 CQUAD4 56 2 70 86 84 68 CQUAD4 57 2 73 71 87 89 CQUAD4 58 2 71 69 85 87 CQUAD4 59 2 73 89 91 75 CQUAD4 60 2 75 91 93 77 CQUAD4 61 2 80 96 94 78 CQUAD4 62 2 78 94 92 76 CQUAD4 63 2 80 79 95 96 CQUAD4 64 2 79 77 93 95 CQUAD4 65 2 81 97 99 83 CQUAD4 66 2 83 99 101 85 CQUAD4 67 2 81 82 98 97 CQUAD4 68 2 82 84 100 98 CQUAD4 69 2 88 90 106 104 CQUAD4 70 2 90 92 108 106 CQUAD4 71 2 88 104 102 86 CQUAD4 72 2 86 102 100 84 CQUAD4 73 2 89 87 103 105 CQUAD4 74 2 87 85 101 103 CQUAD4 75 2 89 105 107 91 CQUAD4 76 2 91 107 109 93 CQUAD4 77 2 96 112 110 94 CQUAD4 78 2 94 110 108 92 CQUAD4 79 2 96 95 111 112 CQUAD4 80 2 95 93 109 111 CQUAD4 81 2 97 113 115 99 CQUAD4 82 2 99 115 117 101 CQUAD4 83 2 97 98 114 113 CQUAD4 84 2 98 100 116 114 CQUAD4 85 2 104 106 122 120 CQUAD4 86 2 106 108 124 122 CQUAD4 87 2 104 120 118 102 CQUAD4 88 2 102 118 116 100 CQUAD4 89 2 105 103 119 121 CQUAD4 90 2 103 101 117 119 CQUAD4 91 2 105 121 123 107 CQUAD4 92 2 107 123 125 109 CQUAD4 93 2 112 128 126 110 CQUAD4 94 2 110 126 124 108 CQUAD4 95 2 112 111 127 128 CQUAD4 96 2 111 109 125 127 CQUAD4 97 2 113 129 131 115 CQUAD4 98 2 115 131 133 117 CQUAD4 99 2 113 114 130 129 CQUAD4 100 2 114 116 132 130 CQUAD4 101 2 120 122 138 136 CQUAD4 102 2 122 124 140 138 CQUAD4 103 2 120 136 134 118 CQUAD4 104 2 118 134 132 116 CQUAD4 105 2 121 119 135 137 CQUAD4 106 2 119 117 133 135 CQUAD4 107 2 121 137 139 123 CQUAD4 108 2 123 139 141 125 CQUAD4 109 2 128 144 142 126 CQUAD4 110 2 126 142 140 124 CQUAD4 111 2 128 127 143 144 CQUAD4 112 2 127 125 141 143 CQUAD4 113 2 1 17 19 3 CQUAD4 114 2 3 19 21 5 CQUAD4 115 2 1 2 18 17 CQUAD4 116 2 2 4 20 18 CQUAD4 117 2 8 10 26 24 CQUAD4 118 2 10 12 28 26 CQUAD4 119 2 8 24 22 6 CQUAD4 120 2 6 22 20 4 CQUAD4 121 2 9 7 23 25 CQUAD4 122 2 7 5 21 23 CQUAD4 123 2 9 25 27 11 CQUAD4 124 2 11 27 29 13 CQUAD4 125 2 16 32 30 14 CQUAD4 126 2 14 30 28 12 CQUAD4 127 2 16 15 31 32 CQUAD4 128 2 15 13 29 31 ENDDATA ================================================ FILE: inp/t01281a.inp ================================================ ID T01281A,NASTRAN DIAG 40 SOL 1,0 APP DISP TIME 30 CEND TITLE = COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST SUBTITLE = NASTRAN TEST PROBLEM NO. T01-28-1A LABEL = REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES) $ $ MODEL: CANTILEVERED BEAM MODEL UNDER A) EXTENSIONAL AND $ B) BENDING LOADINGS. SIMULATION OF EQUIVALENT $ ISOTROPIC PROPERTIES. LAMINATE CONFIGURATION $ [0/0/0/0] $ $ * * T1 DEFLECTION AT GRIDS 13 AND 14 * * $ $ THEORETICAL $ -------------------------------------------------- $ SUBCASE 1 (EXTENSIONAL) $ $ GRID 13 3.0E-5 $ GRID 14 3.0E-5 $ $ * * T3 DEFLECTION AT GRIDS 13 AND 14 * * $ $ THEORETICAL $ -------------------------------------------------- $ SUBCASE 2 (BENDING) $ $ GRID 13 4.320E-1 $ GRID 14 4.320E-1 $ $ $ * * BENDING MOMENT DISTRIBUTION FROM * * $ * * THE FREE END TO THE CANTILEVERED END * * $ NOTE: THE BENDING MOMENTS ARE AT THE ELEMENT CENTER $ $ THEORETICAL $ ---------------------------------------------------- $ 2.500E0 $ 7.500E0 $ 1.250E1 $ 1.750E1 $ 2.250E1 $ 2.750E1 $ $ $ * * DIRECT LAYER BENDING STRESS * * $ * * ELEMENT 6 (LARGEST BENDING MOMENT) * * $ $ -------------------------------------- $ $ LAYER 1 1.238E4 $ LAYER 2 4.125E3 $ LAYER 3 -4.125E3 $ LAYER 4 -1.238E4 $ $ $ STRESS(LAYER) = ALL DISP = ALL FORCE = ALL SPC = 1 SUBCASE 1 SUBTITLE = EXTENSION LOAD = 1 SUBCASE 2 SUBTITLE = OUT-OF-PLANE SHEAR LOAD = 2 BEGIN BULK CQUAD4 1 1 3 5 6 4 CQUAD4 2 1 5 7 8 6 CQUAD4 3 1 7 9 10 8 CQUAD4 4 1 9 11 12 10 CQUAD4 5 1 11 13 14 12 CQUAD4 6 1 1 3 4 2 FORCE 1 13 0.5 1.0 0.0 0.0 FORCE 1 14 0.5 1.0 0.0 0.0 FORCE 2 13 0.5 0.0 0.0 1.0 FORCE 2 14 0.5 0.0 0.0 1.0 GRID 1 0.0 0.0 0.0 GRID 2 0.0 0.200 0.0 GRID 3 1.0 0.0 0.0 GRID 4 1.0 0.2 0.0 GRID 5 2.0 0.0 0.0 GRID 6 2.0 0.2 0.0 GRID 7 3.0 0.0 0.0 GRID 8 3.0 0.2 0.0 GRID 9 4.0 0.0 0.0 GRID 10 4.0 0.2 0.0 GRID 11 5.0 0.0 0.0 GRID 12 5.0 0.2 0.0 GRID 13 6.0 0.0 0.0 GRID 14 6.0 0.2 0.0 MAT1 1 .100E+08 0.300 PARAM AUTOSPC 1 PCOMP2 1 1 SYM +PC1 +PC1 0.025 0.0 0.025 0.0 SPC1 1 123456 1 2 ENDDATA ================================================ FILE: inp/t01291a.inp ================================================ ID T01291A,NASTRAN DIAG 40 SOL 1,0 APP DISP TIME 30 CEND TITLE = COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL SUBTITLE = NASTRAN TEST PROBLEM NO. T01-29-1A $ $ $ MODEL: LAMINATED COMPOSITE SHELL ROOF MODEL. $ SYMMETRIC ANGLE PLY LAYUP $ [ 45/-45/15/-15/-15/15/-45/45 ] $ $ SPC = 1 LOAD = 1 DISP = ALL BEGIN BULK GRID 1 1 25.000 0.000 0.000 1 GRID 2 1 25.000 5.000 0.000 1 GRID 3 1 25.000 10.000 0.000 1 GRID 4 1 25.000 15.000 0.000 1 GRID 5 1 25.000 20.000 0.000 1 GRID 6 1 25.000 25.000 0.000 1 GRID 7 1 25.000 30.000 0.000 1 GRID 8 1 25.000 35.000 0.000 1 GRID 9 1 25.000 40.000 0.000 1 GRID 10 1 25.000 0.000 3.125 1 GRID 11 1 25.000 5.000 3.125 1 GRID 12 1 25.000 10.000 3.125 1 GRID 13 1 25.000 15.000 3.125 1 GRID 14 1 25.000 20.000 3.125 1 GRID 15 1 25.000 25.000 3.125 1 GRID 16 1 25.000 30.000 3.125 1 GRID 17 1 25.000 35.000 3.125 1 GRID 18 1 25.000 40.000 3.125 1 GRID 19 1 25.000 0.000 6.250 1 GRID 20 1 25.000 5.000 6.250 1 GRID 21 1 25.000 10.000 6.250 1 GRID 22 1 25.000 15.000 6.250 1 GRID 23 1 25.000 20.000 6.250 1 GRID 24 1 25.000 25.000 6.250 1 GRID 25 1 25.000 30.000 6.250 1 GRID 26 1 25.000 35.000 6.250 1 GRID 27 1 25.000 40.000 6.250 1 GRID 28 1 25.000 0.000 9.375 1 GRID 29 1 25.000 5.000 9.375 1 GRID 30 1 25.000 10.000 9.375 1 GRID 31 1 25.000 15.000 9.375 1 GRID 32 1 25.000 20.000 9.375 1 GRID 33 1 25.000 25.000 9.375 1 GRID 34 1 25.000 30.000 9.375 1 GRID 35 1 25.000 35.000 9.375 1 GRID 36 1 25.000 40.000 9.375 1 GRID 37 1 25.000 0.000 12.500 1 GRID 38 1 25.000 5.000 12.500 1 GRID 39 1 25.000 10.000 12.500 1 GRID 40 1 25.000 15.000 12.500 1 GRID 41 1 25.000 20.000 12.500 1 GRID 42 1 25.000 25.000 12.500 1 GRID 43 1 25.000 30.000 12.500 1 GRID 44 1 25.000 35.000 12.500 1 GRID 45 1 25.000 40.000 12.500 1 GRID 46 1 25.000 0.000 15.625 1 GRID 47 1 25.000 5.000 15.625 1 GRID 48 1 25.000 10.000 15.625 1 GRID 49 1 25.000 15.000 15.625 1 GRID 50 1 25.000 20.000 15.625 1 GRID 51 1 25.000 25.000 15.625 1 GRID 52 1 25.000 30.000 15.625 1 GRID 53 1 25.000 35.000 15.625 1 GRID 54 1 25.000 40.000 15.625 1 GRID 55 1 25.000 0.000 18.750 1 GRID 56 1 25.000 5.000 18.750 1 GRID 57 1 25.000 10.000 18.750 1 GRID 58 1 25.000 15.000 18.750 1 GRID 59 1 25.000 20.000 18.750 1 GRID 60 1 25.000 25.000 18.750 1 GRID 61 1 25.000 30.000 18.750 1 GRID 62 1 25.000 35.000 18.750 1 GRID 63 1 25.000 40.000 18.750 1 GRID 64 1 25.000 0.000 21.875 1 GRID 65 1 25.000 5.000 21.875 1 GRID 66 1 25.000 10.000 21.875 1 GRID 67 1 25.000 15.000 21.875 1 GRID 68 1 25.000 20.000 21.875 1 GRID 69 1 25.000 25.000 21.875 1 GRID 70 1 25.000 30.000 21.875 1 GRID 71 1 25.000 35.000 21.875 1 GRID 72 1 25.000 40.000 21.875 1 GRID 73 1 25.000 0.000 25.000 1 GRID 74 1 25.000 5.000 25.000 1 GRID 75 1 25.000 10.000 25.000 1 GRID 76 1 25.000 15.000 25.000 1 GRID 77 1 25.000 20.000 25.000 1 GRID 78 1 25.000 25.000 25.000 1 GRID 79 1 25.000 30.000 25.000 1 GRID 80 1 25.000 35.000 25.000 1 GRID 81 1 25.000 40.000 25.000 1 GRID 5001 1 25.0 40.0 25.0 3 CQUAD4 2 1 1 2 11 10 CQUAD4 3 1 2 3 12 11 CQUAD4 4 1 3 4 13 12 CQUAD4 5 1 4 5 14 13 CQUAD4 6 1 5 6 15 14 CQUAD4 7 1 6 7 16 15 CQUAD4 8 1 7 8 17 16 CQUAD4 9 1 8 9 18 17 CQUAD4 10 1 10 11 20 19 CQUAD4 11 1 11 12 21 20 CQUAD4 12 1 12 13 22 21 CQUAD4 13 1 13 14 23 22 CQUAD4 14 1 14 15 24 23 CQUAD4 15 1 15 16 25 24 CQUAD4 16 1 16 17 26 25 CQUAD4 17 1 17 18 27 26 CQUAD4 18 1 19 20 29 28 CQUAD4 19 1 20 21 30 29 CQUAD4 20 1 21 22 31 30 CQUAD4 21 1 22 23 32 31 CQUAD4 22 1 23 24 33 32 CQUAD4 23 1 24 25 34 33 CQUAD4 24 1 25 26 35 34 CQUAD4 25 1 26 27 36 35 CQUAD4 26 1 28 29 38 37 CQUAD4 27 1 29 30 39 38 CQUAD4 28 1 30 31 40 39 CQUAD4 29 1 31 32 41 40 CQUAD4 30 1 32 33 42 41 CQUAD4 31 1 33 34 43 42 CQUAD4 32 1 34 35 44 43 CQUAD4 33 1 35 36 45 44 CQUAD4 34 1 37 38 47 46 CQUAD4 35 1 38 39 48 47 CQUAD4 36 1 39 40 49 48 CQUAD4 37 1 40 41 50 49 CQUAD4 38 1 41 42 51 50 CQUAD4 39 1 42 43 52 51 CQUAD4 40 1 43 44 53 52 CQUAD4 41 1 44 45 54 53 CQUAD4 42 1 46 47 56 55 CQUAD4 43 1 47 48 57 56 CQUAD4 44 1 48 49 58 57 CQUAD4 45 1 49 50 59 58 CQUAD4 46 1 50 51 60 59 CQUAD4 47 1 51 52 61 60 CQUAD4 48 1 52 53 62 61 CQUAD4 49 1 53 54 63 62 CQUAD4 50 1 55 56 65 64 CQUAD4 51 1 56 57 66 65 CQUAD4 52 1 57 58 67 66 CQUAD4 53 1 58 59 68 67 CQUAD4 54 1 59 60 69 68 CQUAD4 55 1 60 61 70 69 CQUAD4 56 1 61 62 71 70 CQUAD4 57 1 62 63 72 71 CQUAD4 58 1 64 65 74 73 CQUAD4 59 1 65 66 75 74 CQUAD4 60 1 66 67 76 75 CQUAD4 61 1 67 68 77 76 CQUAD4 62 1 68 69 78 77 CQUAD4 63 1 69 70 79 78 CQUAD4 64 1 70 71 80 79 CQUAD4 65 1 71 72 81 80 CORD2C 1 0.0 0.0 0.0 -1.0 0.0 0.0 +MOR1001 +MOR10010.0 0.0 1.0 CORD2R 2 0 0.0 0.0 0.0 0.0 0.0 1.0 +C2 +C2 1.0 0.0 0.0 CORD2R 3 0 0.0 0.0 0.0 0.0 0.0 1.0 +C3 +C3 1.0 0.0 0.0 MAT8 1 20.0 E+70.5 E+070.25 0.25 E+70.25 E+70.25 E+7 PARAM AUTOSPC 1 PCOMP 1 +PC1 +PC1 1 .03125 45.0 YES -45.0 YES +PC2 +PC2 1 .03125 15.0 YES -15.0 YES +PC3 +PC3 1 .03125 -15.0 YES 15.0 YES +PC4 +PC4 1 .03125 -45.0 YES 45.0 YES PLOAD4 1 2 90.0 THRU 65 +PL1 +PL1 2 0.0 0.0 -1.0 CRIGD1 1 81 5001 SPC1 1 12 1 2 3 4 5 6 +SP10001 +SP100017 8 9 SPC1 1 26 1 10 19 28 37 46 +SP10005 +SP1000555 64 73 SPC1 1 35 73 74 75 76 77 78 +SP10003 +SP1000379 80 81 ENDDATA ================================================ FILE: inp/t01301a.inp ================================================ NASTRAN FILES=(INP1,INP2) ID T01301A,NASTRAN SOL 1 TIME 10 APP DISP $DIAG 15,-2,-14 ALTER 110 DATABASE EQEXIN,BGPDT,GEOM2,CSTM,OUGV1,,//C,N,15/C,N,+1/C,N,+1 $ $ALTER 131 $DATABASE EQEXIN,BGPDT,GEOM2,CSTM,OES1,,//C,N,16/C,N,+1 $ ALTER 147 DATABASE EQEXIN,BGPDT,GEOM2,CSTM,OES1,,//C,N,16/C,N,+1 $ JUMP FINIS ENDALTER CEND TITLE = TESTING DATABASE MODULE SUBTITLE = NASTRAN TEST PROBLEM NO. T01-30-1A SPC = 10 DISP = ALL STRES = ALL ELFOR = ALL ECHO = NONE LOAD = 20 BEGIN BULK CQUAD4,1,1,1,2,3,4 CQUAD4,2,1,4,3,6,5 GRID,1,,0.0 =,2,,0.0,1.0 =,3,,1.0,1.0 =,4,,1.0,0.0 =,5,,2.0,0.0 =,6,,2.0,1.0 MAT1,100,3.0E+7,,.3,1.0 PSHELL,1,100,.1,100,1.0,100,.8333 SPC1,10,123456,1,2 SPC1,10,6,1,THRU,6 FORCE,20,6,,10.0,1.0,1.0,1.0 FORCE,25,4,,-1.0,1.0,1.0,1.0 ENDDATA ================================================ FILE: inp/t01311a.inp ================================================ ID T01311A,NASTRAN SOL 1 APP DISP TIME 10 DIAG 2,8,15 ALTER 50 GINOFILE /XXX/C,N,303 $ MATPRN XXX,,,, // $ JUMP FINIS $ ENDALTER CEND TITLE = TESTING GINOFILE MODULE SUBTITLE = NASTRAN TEST PROBLEM NO. T01-31-1A LABEL = TO CAPTURE SCRATCH 3 OF GPWG MODULE SPC = 10 DISP = ALL STRES = ALL ELFOR = ALL $ECHO = NONE LOAD = 20 BEGIN BULK PARAM,GRDPNT,1 CQUAD4,1,1,1,2,3,4 CQUAD4,2,1,4,3,6,5 GRID,1,,0.0 =,2,,0.0,1.0 =,3,,1.0,1.0 =,4,,1.0,0.0 =,5,,2.0,0.0 =,6,,2.0,1.0 MAT1,100,3.0E+7,,.3,1.0 PSHELL,1,100,.1,100,1.0,100,.8333 SPC1,10,123456,1,2 SPC1,10,6,1,THRU,6 FORCE,20,6,,10.0,1.0,1.0,1.0 FORCE,25,4,,-1.0,1.0,1.0,1.0 ENDDATA ================================================ FILE: inp/t01321a.inp ================================================ ID T01321A,NASTRAN SOL 1,0 DIAG 40 APP DISP TIME 10 CEND TITLE = CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD SUBTITLE = NASTRAN TEST PROBLEM NO. T01-32-1A LABEL = MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0] $ $ MODEL: A QUARTER MODEL OF A SIMPLY SUPPORTED FLAT PLATE $ OF A SYMMETRIC CROSS-PLY CONFIGURATION [0/90/0]. $ UNDER A UNIFORM PRESSURE LOADING. $ $ * * COMPARISON OF T3 DEFLECTION AT GRID 25 * * $ $ COSMIC/NASTRAN MSC/NASTRAN $ CTRIA3 CQUAD4 CTRIA3 THEORETICAL $ -------------------------------------------------------- $ -1.685E-3* -1.855E-3 -1.622E-3 -1.836E-3 $ * PLOAD CARDS WERE USED, NOT PLOAD4 $ $ $ REFERENCE: JONES,R.M. , MECHANICS OF COMPOSITE MATERIALS. $ M GRAW-HILL BOOK COMPANY. (PAGE 248-250) $ $ SET 1 = 2,7,12,17 DISP = ALL OLOAD = ALL FORCE = 1 SPC = 1 LOAD = 1 STRESS(LAYER) = 1 BEGIN BULK MAT8 1 20.0+06 .50+6 .25 .250+6 PCOMP 1 -.001 +PC1 +PC1 1 .000666 0.0 YES 1 .000666 90.0 YES +PC2 +PC2 1 .000666 0.0 YES SPC1 1 15 22 23 24 SPC1 1 24 10 15 20 SPC1 1 1234 2 3 4 5 SPC1 1 1235 6 11 16 21 SPC1 1 1245 25 SPC1 1 12345 1 SPC1 1 6 1 THRU 25 GRID 1 0.000 0.000 0.000 GRID 2 0.000 0.250 0.000 GRID 3 0.000 0.500 0.000 GRID 4 0.000 0.750 0.000 GRID 5 0.000 1.000 0.000 GRID 6 0.250 0.000 0.000 GRID 7 0.250 0.250 0.000 GRID 8 0.250 0.500 0.000 GRID 9 0.250 0.750 0.000 GRID 10 0.250 1.000 0.000 GRID 11 0.500 0.000 0.000 GRID 12 0.500 0.250 0.000 GRID 13 0.500 0.500 0.000 GRID 14 0.500 0.750 0.000 GRID 15 0.500 1.000 0.000 GRID 16 0.750 0.000 0.000 GRID 17 0.750 0.250 0.000 GRID 18 0.750 0.500 0.000 GRID 19 0.750 0.750 0.000 GRID 20 0.750 1.000 0.000 GRID 21 1.000 0.000 0.000 GRID 22 1.000 0.250 0.000 GRID 23 1.000 0.500 0.000 GRID 24 1.000 0.750 0.000 GRID 25 1.000 1.000 0.000 CTRIA3 1 1 1 6 2 CTRIA3 2 1 2 6 7 45.0 CTRIA3 3 1 6 11 7 CTRIA3 4 1 7 11 12 45.0 CTRIA3 5 1 11 16 12 CTRIA3 6 1 12 16 17 45.0 CTRIA3 7 1 16 21 17 CTRIA3 8 1 17 21 22 45.0 CTRIA3 9 1 2 7 3 CTRIA3 10 1 3 7 8 45.0 CTRIA3 11 1 7 12 8 CTRIA3 12 1 8 12 13 45.0 CTRIA3 13 1 12 17 13 CTRIA3 14 1 13 17 18 45.0 CTRIA3 15 1 17 22 18 CTRIA3 16 1 18 22 23 45.0 CTRIA3 17 1 3 8 4 CTRIA3 18 1 4 8 9 45.0 CTRIA3 19 1 8 13 9 CTRIA3 20 1 9 13 14 45.0 CTRIA3 21 1 13 18 14 CTRIA3 22 1 14 18 19 45.0 CTRIA3 23 1 18 23 19 CTRIA3 24 1 19 23 24 45.0 CTRIA3 25 1 4 9 5 CTRIA3 26 1 5 9 10 45.0 CTRIA3 27 1 9 14 10 CTRIA3 28 1 10 14 15 45.0 CTRIA3 29 1 14 19 15 CTRIA3 30 1 15 19 20 45.0 CTRIA3 31 1 19 24 20 CTRIA3 32 1 20 24 25 45.0 PLOAD4 1 1 -1.0-04 THRU 32 ENDDATA ================================================ FILE: inp/t01331a.inp ================================================ ID T01331A,NASTRAN SOL 1,0 APP DISP TIME 30 CEND TITLE = CTRIA3 3-NODE SHELL ROOF TEST SUBTITLE = NASTRAN TEST PROBLEM NO. T01-33-1A LABEL = LAMINATED COMPOSITE SHELL $ $ $ MODEL: LAMINATED COMPOSITE SHELL ROOF MODEL. $ SYMMETRIC ANGLE PLY LAYUP $ [ 45/-45/15/-15/-15/15/-45/45 ] $ $ $ * * COMPARISION OF T1 DEFLECTIONS AT * * $ * * GRID POINTS 34,35,36,43,44,45 * * $ $ COSMIC/NASTRAN MSC/NASTRAN $ USING: CTRIA3 CQUAD4 CTRIA3 CQUAD4 $ ----------------------------------------------- $ GRID 34 -0.9839 -1.1187 -0.9928 -1.0662 $ GRID 35 -1.2566 -1.4143 -1.2466 -1.3441 $ GRID 36 -1.5126 -1.6911 -1.5300 -1.6074 $ GRID 43 -1.2343 -1.3918 -1.2262 -1.3267 $ GRID 44 -1.5792 -1.7590 -1.5955 -1.6739 $ GRID 45 -1.9093 -2.1082 -1.9309 -2.0079 $ $ SPC = 1 LOAD = 1 DISP = ALL BEGIN BULK GRID 1 1 25.000 0.000 0.000 1 GRID 2 1 25.000 5.000 0.000 1 GRID 3 1 25.000 10.000 0.000 1 GRID 4 1 25.000 15.000 0.000 1 GRID 5 1 25.000 20.000 0.000 1 GRID 6 1 25.000 25.000 0.000 1 GRID 7 1 25.000 30.000 0.000 1 GRID 8 1 25.000 35.000 0.000 1 GRID 9 1 25.000 40.000 0.000 1 GRID 10 1 25.000 0.000 3.125 1 GRID 11 1 25.000 5.000 3.125 1 GRID 12 1 25.000 10.000 3.125 1 GRID 13 1 25.000 15.000 3.125 1 GRID 14 1 25.000 20.000 3.125 1 GRID 15 1 25.000 25.000 3.125 1 GRID 16 1 25.000 30.000 3.125 1 GRID 17 1 25.000 35.000 3.125 1 GRID 18 1 25.000 40.000 3.125 1 GRID 19 1 25.000 0.000 6.250 1 GRID 20 1 25.000 5.000 6.250 1 GRID 21 1 25.000 10.000 6.250 1 GRID 22 1 25.000 15.000 6.250 1 GRID 23 1 25.000 20.000 6.250 1 GRID 24 1 25.000 25.000 6.250 1 GRID 25 1 25.000 30.000 6.250 1 GRID 26 1 25.000 35.000 6.250 1 GRID 27 1 25.000 40.000 6.250 1 GRID 28 1 25.000 0.000 9.375 1 GRID 29 1 25.000 5.000 9.375 1 GRID 30 1 25.000 10.000 9.375 1 GRID 31 1 25.000 15.000 9.375 1 GRID 32 1 25.000 20.000 9.375 1 GRID 33 1 25.000 25.000 9.375 1 GRID 34 1 25.000 30.000 9.375 1 GRID 35 1 25.000 35.000 9.375 1 GRID 36 1 25.000 40.000 9.375 1 GRID 37 1 25.000 0.000 12.500 1 GRID 38 1 25.000 5.000 12.500 1 GRID 39 1 25.000 10.000 12.500 1 GRID 40 1 25.000 15.000 12.500 1 GRID 41 1 25.000 20.000 12.500 1 GRID 42 1 25.000 25.000 12.500 1 GRID 43 1 25.000 30.000 12.500 1 GRID 44 1 25.000 35.000 12.500 1 GRID 45 1 25.000 40.000 12.500 1 GRID 46 1 25.000 0.000 15.625 1 GRID 47 1 25.000 5.000 15.625 1 GRID 48 1 25.000 10.000 15.625 1 GRID 49 1 25.000 15.000 15.625 1 GRID 50 1 25.000 20.000 15.625 1 GRID 51 1 25.000 25.000 15.625 1 GRID 52 1 25.000 30.000 15.625 1 GRID 53 1 25.000 35.000 15.625 1 GRID 54 1 25.000 40.000 15.625 1 GRID 55 1 25.000 0.000 18.750 1 GRID 56 1 25.000 5.000 18.750 1 GRID 57 1 25.000 10.000 18.750 1 GRID 58 1 25.000 15.000 18.750 1 GRID 59 1 25.000 20.000 18.750 1 GRID 60 1 25.000 25.000 18.750 1 GRID 61 1 25.000 30.000 18.750 1 GRID 62 1 25.000 35.000 18.750 1 GRID 63 1 25.000 40.000 18.750 1 GRID 64 1 25.000 0.000 21.875 1 GRID 65 1 25.000 5.000 21.875 1 GRID 66 1 25.000 10.000 21.875 1 GRID 67 1 25.000 15.000 21.875 1 GRID 68 1 25.000 20.000 21.875 1 GRID 69 1 25.000 25.000 21.875 1 GRID 70 1 25.000 30.000 21.875 1 GRID 71 1 25.000 35.000 21.875 1 GRID 72 1 25.000 40.000 21.875 1 GRID 73 1 25.000 0.000 25.000 1 GRID 74 1 25.000 5.000 25.000 1 GRID 75 1 25.000 10.000 25.000 1 GRID 76 1 25.000 15.000 25.000 1 GRID 77 1 25.000 20.000 25.000 1 GRID 78 1 25.000 25.000 25.000 1 GRID 79 1 25.000 30.000 25.000 1 GRID 80 1 25.000 35.000 25.000 1 GRID 81 1 25.000 40.000 25.000 1 GRID 5001 1 25.0 40.0 25.0 3 CORD2C 1 0.0 0.0 0.0 -1.0 0.0 0.0 +MOR1001 +MOR10010.0 0.0 1.0 CORD2R 2 0 0.0 0.0 0.0 0.0 0.0 1.0 +C2 +C2 1.0 0.0 0.0 CORD2R 3 0 0.0 0.0 0.0 0.0 0.0 1.0 +C3 +C3 1.0 0.0 0.0 MAT8 1 20.0 E+70.5 E+070.25 0.25 E+70.25 E+70.25 E+7 PARAM AUTOSPC 1 PCOMP 1 +PC1 +PC1 1 .03125 45.0 YES -45.0 YES +PC2 +PC2 1 .03125 15.0 YES -15.0 YES +PC3 +PC3 1 .03125 -15.0 YES 15.0 YES +PC4 +PC4 1 .03125 -45.0 YES 45.0 YES CRIGD1 1 81 5001 SPC1 1 12 1 2 3 4 5 6 +SP10001 +SP100017 8 9 SPC1 1 26 1 10 19 28 37 46 +SP10005 +SP1000555 64 73 SPC1 1 35 73 74 75 76 77 78 +SP10003 +SP1000379 80 81 CTRIA3 1 1 1 2 10 PLOAD 1-0.9E+02 1 2 10 CTRIA3 2 1 10 2 11 45.000 PLOAD 1-0.9E+02 10 2 11 CTRIA3 3 1 2 3 11 PLOAD 1-0.9E+02 2 3 11 CTRIA3 4 1 11 3 12 45.000 PLOAD 1-0.9E+02 11 3 12 CTRIA3 5 1 3 4 12 PLOAD 1-0.9E+02 3 4 12 CTRIA3 6 1 12 4 13 45.000 PLOAD 1-0.9E+02 12 4 13 CTRIA3 7 1 4 5 13 PLOAD 1-0.9E+02 4 5 13 CTRIA3 8 1 13 5 14 45.000 PLOAD 1-0.9E+02 13 5 14 CTRIA3 9 1 5 6 14 PLOAD 1-0.9E+02 5 6 14 CTRIA3 10 1 14 6 15 45.000 PLOAD 1-0.9E+02 14 6 15 CTRIA3 11 1 6 7 15 PLOAD 1-0.9E+02 6 7 15 CTRIA3 12 1 15 7 16 45.000 PLOAD 1-0.9E+02 15 7 16 CTRIA3 13 1 7 8 16 PLOAD 1-0.9E+02 7 8 16 CTRIA3 14 1 16 8 17 45.000 PLOAD 1-0.9E+02 16 8 17 CTRIA3 15 1 8 9 17 PLOAD 1-0.9E+02 8 9 17 CTRIA3 16 1 17 9 18 45.000 PLOAD 1-0.9E+02 17 9 18 CTRIA3 17 1 10 11 19 PLOAD 1-0.9E+02 10 11 19 CTRIA3 18 1 19 11 20 45.000 PLOAD 1-0.9E+02 19 11 20 CTRIA3 19 1 11 12 20 PLOAD 1-0.9E+02 11 12 20 CTRIA3 20 1 20 12 21 45.000 PLOAD 1-0.9E+02 20 12 21 CTRIA3 21 1 12 13 21 PLOAD 1-0.9E+02 12 13 21 CTRIA3 22 1 21 13 22 45.000 PLOAD 1-0.9E+02 21 13 22 CTRIA3 23 1 13 14 22 PLOAD 1-0.9E+02 13 14 22 CTRIA3 24 1 22 14 23 45.000 PLOAD 1-0.9E+02 22 14 23 CTRIA3 25 1 14 15 23 PLOAD 1-0.9E+02 14 15 23 CTRIA3 26 1 23 15 24 45.000 PLOAD 1-0.9E+02 23 15 24 CTRIA3 27 1 15 16 24 PLOAD 1-0.9E+02 15 16 24 CTRIA3 28 1 24 16 25 45.000 PLOAD 1-0.9E+02 24 16 25 CTRIA3 29 1 16 17 25 PLOAD 1-0.9E+02 16 17 25 CTRIA3 30 1 25 17 26 45.000 PLOAD 1-0.9E+02 25 17 26 CTRIA3 31 1 17 18 26 PLOAD 1-0.9E+02 17 18 26 CTRIA3 32 1 26 18 27 45.000 PLOAD 1-0.9E+02 26 18 27 CTRIA3 33 1 19 20 28 PLOAD 1-0.9E+02 19 20 28 CTRIA3 34 1 28 20 29 45.000 PLOAD 1-0.9E+02 28 20 29 CTRIA3 35 1 20 21 29 PLOAD 1-0.9E+02 20 21 29 CTRIA3 36 1 29 21 30 45.000 PLOAD 1-0.9E+02 29 21 30 CTRIA3 37 1 21 22 30 PLOAD 1-0.9E+02 21 22 30 CTRIA3 38 1 30 22 31 45.000 PLOAD 1-0.9E+02 30 22 31 CTRIA3 39 1 22 23 31 PLOAD 1-0.9E+02 22 23 31 CTRIA3 40 1 31 23 32 45.000 PLOAD 1-0.9E+02 31 23 32 CTRIA3 41 1 23 24 32 PLOAD 1-0.9E+02 23 24 32 CTRIA3 42 1 32 24 33 45.000 PLOAD 1-0.9E+02 32 24 33 CTRIA3 43 1 24 25 33 PLOAD 1-0.9E+02 24 25 33 CTRIA3 44 1 33 25 34 45.000 PLOAD 1-0.9E+02 33 25 34 CTRIA3 45 1 25 26 34 PLOAD 1-0.9E+02 25 26 34 CTRIA3 46 1 34 26 35 45.000 PLOAD 1-0.9E+02 34 26 35 CTRIA3 47 1 26 27 35 PLOAD 1-0.9E+02 26 27 35 CTRIA3 48 1 35 27 36 45.000 PLOAD 1-0.9E+02 35 27 36 CTRIA3 49 1 28 29 37 PLOAD 1-0.9E+02 28 29 37 CTRIA3 50 1 37 29 38 45.000 PLOAD 1-0.9E+02 37 29 38 CTRIA3 51 1 29 30 38 PLOAD 1-0.9E+02 29 30 38 CTRIA3 52 1 38 30 39 45.000 PLOAD 1-0.9E+02 38 30 39 CTRIA3 53 1 30 31 39 PLOAD 1-0.9E+02 30 31 39 CTRIA3 54 1 39 31 40 45.000 PLOAD 1-0.9E+02 39 31 40 CTRIA3 55 1 31 32 40 PLOAD 1-0.9E+02 31 32 40 CTRIA3 56 1 40 32 41 45.000 PLOAD 1-0.9E+02 40 32 41 CTRIA3 57 1 32 33 41 PLOAD 1-0.9E+02 32 33 41 CTRIA3 58 1 41 33 42 45.000 PLOAD 1-0.9E+02 41 33 42 CTRIA3 59 1 33 34 42 PLOAD 1-0.9E+02 33 34 42 CTRIA3 60 1 42 34 43 45.000 PLOAD 1-0.9E+02 42 34 43 CTRIA3 61 1 34 35 43 PLOAD 1-0.9E+02 34 35 43 CTRIA3 62 1 43 35 44 45.000 PLOAD 1-0.9E+02 43 35 44 CTRIA3 63 1 35 36 44 PLOAD 1-0.9E+02 35 36 44 CTRIA3 64 1 44 36 45 45.000 PLOAD 1-0.9E+02 44 36 45 CTRIA3 65 1 37 38 46 PLOAD 1-0.9E+02 37 38 46 CTRIA3 66 1 46 38 47 45.000 PLOAD 1-0.9E+02 46 38 47 CTRIA3 67 1 38 39 47 PLOAD 1-0.9E+02 38 39 47 CTRIA3 68 1 47 39 48 45.000 PLOAD 1-0.9E+02 47 39 48 CTRIA3 69 1 39 40 48 PLOAD 1-0.9E+02 39 40 48 CTRIA3 70 1 48 40 49 45.000 PLOAD 1-0.9E+02 48 40 49 CTRIA3 71 1 40 41 49 PLOAD 1-0.9E+02 40 41 49 CTRIA3 72 1 49 41 50 45.000 PLOAD 1-0.9E+02 49 41 50 CTRIA3 73 1 41 42 50 PLOAD 1-0.9E+02 41 42 50 CTRIA3 74 1 50 42 51 45.000 PLOAD 1-0.9E+02 50 42 51 CTRIA3 75 1 42 43 51 PLOAD 1-0.9E+02 42 43 51 CTRIA3 76 1 51 43 52 45.000 PLOAD 1-0.9E+02 51 43 52 CTRIA3 77 1 43 44 52 PLOAD 1-0.9E+02 43 44 52 CTRIA3 78 1 52 44 53 45.000 PLOAD 1-0.9E+02 52 44 53 CTRIA3 79 1 44 45 53 PLOAD 1-0.9E+02 44 45 53 CTRIA3 80 1 53 45 54 45.000 PLOAD 1-0.9E+02 53 45 54 CTRIA3 81 1 46 47 55 PLOAD 1-0.9E+02 46 47 55 CTRIA3 82 1 55 47 56 45.000 PLOAD 1-0.9E+02 55 47 56 CTRIA3 83 1 47 48 56 PLOAD 1-0.9E+02 47 48 56 CTRIA3 84 1 56 48 57 45.000 PLOAD 1-0.9E+02 56 48 57 CTRIA3 85 1 48 49 57 PLOAD 1-0.9E+02 48 49 57 CTRIA3 86 1 57 49 58 45.000 PLOAD 1-0.9E+02 57 49 58 CTRIA3 87 1 49 50 58 PLOAD 1-0.9E+02 49 50 58 CTRIA3 88 1 58 50 59 45.000 PLOAD 1-0.9E+02 58 50 59 CTRIA3 89 1 50 51 59 PLOAD 1-0.9E+02 50 51 59 CTRIA3 90 1 59 51 60 45.000 PLOAD 1-0.9E+02 59 51 60 CTRIA3 91 1 51 52 60 PLOAD 1-0.9E+02 51 52 60 CTRIA3 92 1 60 52 61 45.000 PLOAD 1-0.9E+02 60 52 61 CTRIA3 93 1 52 53 61 PLOAD 1-0.9E+02 52 53 61 CTRIA3 94 1 61 53 62 45.000 PLOAD 1-0.9E+02 61 53 62 CTRIA3 95 1 53 54 62 PLOAD 1-0.9E+02 53 54 62 CTRIA3 96 1 62 54 63 45.000 PLOAD 1-0.9E+02 62 54 63 CTRIA3 97 1 55 56 64 PLOAD 1-0.9E+02 55 56 64 CTRIA3 98 1 64 56 65 45.000 PLOAD 1-0.9E+02 64 56 65 CTRIA3 99 1 56 57 65 PLOAD 1-0.9E+02 56 57 65 CTRIA3 100 1 65 57 66 45.000 PLOAD 1-0.9E+02 65 57 66 CTRIA3 101 1 57 58 66 PLOAD 1-0.9E+02 57 58 66 CTRIA3 102 1 66 58 67 45.000 PLOAD 1-0.9E+02 66 58 67 CTRIA3 103 1 58 59 67 PLOAD 1-0.9E+02 58 59 67 CTRIA3 104 1 67 59 68 45.000 PLOAD 1-0.9E+02 67 59 68 CTRIA3 105 1 59 60 68 PLOAD 1-0.9E+02 59 60 68 CTRIA3 106 1 68 60 69 45.000 PLOAD 1-0.9E+02 68 60 69 CTRIA3 107 1 60 61 69 PLOAD 1-0.9E+02 60 61 69 CTRIA3 108 1 69 61 70 45.000 PLOAD 1-0.9E+02 69 61 70 CTRIA3 109 1 61 62 70 PLOAD 1-0.9E+02 61 62 70 CTRIA3 110 1 70 62 71 45.000 PLOAD 1-0.9E+02 70 62 71 CTRIA3 111 1 62 63 71 PLOAD 1-0.9E+02 62 63 71 CTRIA3 112 1 71 63 72 45.000 PLOAD 1-0.9E+02 71 63 72 CTRIA3 113 1 64 65 73 PLOAD 1-0.9E+02 64 65 73 CTRIA3 114 1 73 65 74 45.000 PLOAD 1-0.9E+02 73 65 74 CTRIA3 115 1 65 66 74 PLOAD 1-0.9E+02 65 66 74 CTRIA3 116 1 74 66 75 45.000 PLOAD 1-0.9E+02 74 66 75 CTRIA3 117 1 66 67 75 PLOAD 1-0.9E+02 66 67 75 CTRIA3 118 1 75 67 76 45.000 PLOAD 1-0.9E+02 75 67 76 CTRIA3 119 1 67 68 76 PLOAD 1-0.9E+02 67 68 76 CTRIA3 120 1 76 68 77 45.000 PLOAD 1-0.9E+02 76 68 77 CTRIA3 121 1 68 69 77 PLOAD 1-0.9E+02 68 69 77 CTRIA3 122 1 77 69 78 45.000 PLOAD 1-0.9E+02 77 69 78 CTRIA3 123 1 69 70 78 PLOAD 1-0.9E+02 69 70 78 CTRIA3 124 1 78 70 79 45.000 PLOAD 1-0.9E+02 78 70 79 CTRIA3 125 1 70 71 79 PLOAD 1-0.9E+02 70 71 79 CTRIA3 126 1 79 71 80 45.000 PLOAD 1-0.9E+02 79 71 80 CTRIA3 127 1 71 72 80 PLOAD 1-0.9E+02 71 72 80 CTRIA3 128 1 80 72 81 45.000 PLOAD 1-0.9E+02 80 72 81 ENDDATA ================================================ FILE: inp/t01341a.inp ================================================ ID T01341A,NASTRAN APP DISP SOL 1 TIME 30 CEND TITLE = TESTING ENFORCE DISPLACEMENT WITH SPCD SUBTITLE = NASTRAN TEST PROBLEM NO. T01-34-1A ECHO = BOTH LOAD = 10 SPC = 1 SPCFORCE = ALL DISP = ALL STRESS = ALL BEGIN BULK GRDSET,8)246 GRID,10,,0.0, 0.0, 0.0 =(9),*(-1),,*(10.),== SPC1,1,13,10 SPC1,1,3,1 THRU 9 CBAR,1,2,1,2, 0.0,1.0,0.0,1 =(8),*(1),=,*(1),/,== PBAR,2,6061,100.,100.,100.,100. ,-1.0,1.0,1.0,1.0,1.0,-1.0,-1.0,-1.0 MAT1,6061,1.+7,,0.3,0.1 SPCD,10,1,3,-1.00 SPCD,10,2,3,-0.82 SPCD,10,3,3,-0.74 SPCD,10,4,3,-0.58 SPCD,10,5,3,-0.40 SPCD,10,6,3,-0.29 SPCD,10,7,3,-0.16 SPCD,10,8,3,-0.07 SPCD,10,9,3,-0.01 FORCE,10,1,,110.0,0.0,0.0,-1.0 ENDDATA ================================================ FILE: inp/t03091a.inp ================================================ ID T03091A,NASTRAN SOL 3 TIME 20 APP DISP CEND TITLE = TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM SUBTITLE = NASTRAN TEST PROBLEM NO. T03-09-1A METHOD = 1 AXISYM = COSINE SUBCASE 1 DISP = ALL MODES = 5 SUBCASE 6 DISP = NONE BEGIN BULK AXIC 1 PTRAPAX 1 1 PARAM COUPMASS1 MAT1 1 3.+7 .3 7.8-3 EIGR 1 INV 0. 5000. 10 10 1.-3 +E +E MAX RINGAX 1 5.0000 2.0000 2456 RINGAX 2 5.4167 2.0000 2456 RINGAX 3 5.8333 2.0000 2456 RINGAX 4 6.2500 2.0000 2456 RINGAX 5 5.0000 2.2917 2456 RINGAX 6 5.4167 2.2917 2456 RINGAX 7 5.8333 2.2917 2456 RINGAX 8 6.2500 2.2917 2456 RINGAX 9 5.0000 2.5833 2456 RINGAX 10 5.4167 2.5833 2456 RINGAX 11 5.8333 2.5833 2456 RINGAX 12 6.2500 2.5833 2456 RINGAX 13 5.0000 2.8750 2456 RINGAX 14 5.4167 2.8750 2456 RINGAX 15 5.8333 2.8750 2456 RINGAX 16 6.2500 2.8750 2456 RINGAX 17 5.0000 3.1667 2456 RINGAX 18 5.4167 3.1667 2456 RINGAX 19 5.8333 3.1667 2456 RINGAX 20 6.2500 3.1667 2456 RINGAX 21 5.0000 3.4583 2456 RINGAX 22 5.4167 3.4583 2456 RINGAX 23 5.8333 3.4583 2456 RINGAX 24 6.2500 3.4583 2456 RINGAX 25 5.0000 3.7500 2456 RINGAX 26 5.4167 3.7500 2456 RINGAX 27 5.8333 3.7500 2456 RINGAX 28 6.2500 3.7500 2456 RINGAX 29 5.0000 4.0417 2456 RINGAX 30 5.4167 4.0417 2456 RINGAX 31 5.8333 4.0417 2456 RINGAX 32 6.2500 4.0417 2456 RINGAX 33 5.0000 4.3333 2456 RINGAX 34 5.4167 4.3333 2456 RINGAX 35 5.8333 4.3333 2456 RINGAX 36 6.2500 4.3333 2456 RINGAX 37 5.0000 4.6250 2456 RINGAX 38 5.4167 4.6250 2456 RINGAX 39 5.8333 4.6250 2456 RINGAX 40 6.2500 4.6250 2456 RINGAX 41 5.0000 4.9167 2456 RINGAX 42 5.4167 4.9167 2456 RINGAX 43 5.8333 4.9167 2456 RINGAX 44 6.2500 4.9167 2456 RINGAX 45 5.0000 5.2083 2456 RINGAX 46 5.4167 5.2083 2456 RINGAX 47 5.8333 5.2083 2456 RINGAX 48 6.2500 5.2083 2456 RINGAX 49 5.0000 5.5000 2456 RINGAX 50 5.4167 5.5000 2456 RINGAX 51 5.8333 5.5000 2456 RINGAX 52 6.2500 5.5000 2456 CTRAPAX 11 1 2 6 5 CTRAPAX 21 2 3 7 6 CTRAPAX 31 3 4 8 7 CTRAPAX 51 5 6 10 9 CTRAPAX 61 6 7 11 10 CTRAPAX 71 7 8 12 11 CTRAPAX 91 9 10 14 13 CTRAPAX 101 10 11 15 14 CTRAPAX 111 11 12 16 15 CTRAPAX 131 13 14 18 17 CTRAPAX 141 14 15 19 18 CTRAPAX 151 15 16 20 19 CTRAPAX 171 17 18 22 21 CTRAPAX 181 18 19 23 22 CTRAPAX 191 19 20 24 23 CTRAPAX 211 21 22 26 25 CTRAPAX 221 22 23 27 26 CTRAPAX 231 23 24 28 27 CTRAPAX 251 25 26 30 29 CTRAPAX 261 26 27 31 30 CTRAPAX 271 27 28 32 31 CTRAPAX 291 29 30 34 33 CTRAPAX 301 30 31 35 34 CTRAPAX 311 31 32 36 35 CTRAPAX 331 33 34 38 37 CTRAPAX 341 34 35 39 38 CTRAPAX 351 35 36 40 39 CTRAPAX 371 37 38 42 41 CTRAPAX 381 38 39 43 42 CTRAPAX 391 39 40 44 43 CTRAPAX 411 41 42 46 45 CTRAPAX 421 42 43 47 46 CTRAPAX 431 43 44 48 47 CTRAPAX 451 45 46 50 49 CTRAPAX 461 46 47 51 50 CTRAPAX 471 47 48 52 51 ENDDATA ================================================ FILE: inp/t03101a.inp ================================================ ID T03101A,NASTRAN SOL 3 TIME 20 APP DISP CEND TITLE = TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM SUBTITLE = NASTRAN TEST PROBLEM NO. T03-10-1A METHOD = 1 SUBCASE 1 DISP = ALL MODES = 5 SUBCASE 6 DISP = NONE BEGIN BULK PARAM COUPMASS1 GRDSET 2456 MAT1 1 3.+7 .3 7.8-3 EIGR 1 INV 0. 5000. 10 10 1.-3 +E +E MAX GRID 1 5.0000 2.0000 GRID 2 5.4167 2.0000 GRID 3 5.8333 2.0000 GRID 4 6.2500 2.0000 GRID 5 5.0000 2.2917 GRID 6 5.4167 2.2917 GRID 7 5.8333 2.2917 GRID 8 6.2500 2.2917 GRID 9 5.0000 2.5833 GRID 10 5.4167 2.5833 GRID 11 5.8333 2.5833 GRID 12 6.2500 2.5833 GRID 13 5.0000 2.8750 GRID 14 5.4167 2.8750 GRID 15 5.8333 2.8750 GRID 16 6.2500 2.8750 GRID 17 5.0000 3.1667 GRID 18 5.4167 3.1667 GRID 19 5.8333 3.1667 GRID 20 6.2500 3.1667 GRID 21 5.0000 3.4583 GRID 22 5.4167 3.4583 GRID 23 5.8333 3.4583 GRID 24 6.2500 3.4583 GRID 25 5.0000 3.7500 GRID 26 5.4167 3.7500 GRID 27 5.8333 3.7500 GRID 28 6.2500 3.7500 GRID 29 5.0000 4.0417 GRID 30 5.4167 4.0417 GRID 31 5.8333 4.0417 GRID 32 6.2500 4.0417 GRID 33 5.0000 4.3333 GRID 34 5.4167 4.3333 GRID 35 5.8333 4.3333 GRID 36 6.2500 4.3333 GRID 37 5.0000 4.6250 GRID 38 5.4167 4.6250 GRID 39 5.8333 4.6250 GRID 40 6.2500 4.6250 GRID 41 5.0000 4.9167 GRID 42 5.4167 4.9167 GRID 43 5.8333 4.9167 GRID 44 6.2500 4.9167 GRID 45 5.0000 5.2083 GRID 46 5.4167 5.2083 GRID 47 5.8333 5.2083 GRID 48 6.2500 5.2083 GRID 49 5.0000 5.5000 GRID 50 5.4167 5.5000 GRID 51 5.8333 5.5000 GRID 52 6.2500 5.5000 CTRAPRG 1 1 2 6 5 1 CTRAPRG 2 2 3 7 6 1 CTRAPRG 3 3 4 8 7 1 CTRAPRG 5 5 6 10 9 1 CTRAPRG 6 6 7 11 10 1 CTRAPRG 7 7 8 12 11 1 CTRAPRG 9 9 10 14 13 1 CTRAPRG 10 10 11 15 14 1 CTRAPRG 11 11 12 16 15 1 CTRAPRG 13 13 14 18 17 1 CTRAPRG 14 14 15 19 18 1 CTRAPRG 15 15 16 20 19 1 CTRAPRG 17 17 18 22 21 1 CTRAPRG 18 18 19 23 22 1 CTRAPRG 19 19 20 24 23 1 CTRAPRG 21 21 22 26 25 1 CTRAPRG 22 22 23 27 26 1 CTRAPRG 23 23 24 28 27 1 CTRAPRG 25 25 26 30 29 1 CTRAPRG 26 26 27 31 30 1 CTRAPRG 27 27 28 32 31 1 CTRAPRG 29 29 30 34 33 1 CTRAPRG 30 30 31 35 34 1 CTRAPRG 31 31 32 36 35 1 CTRAPRG 33 33 34 38 37 1 CTRAPRG 34 34 35 39 38 1 CTRAPRG 35 35 36 40 39 1 CTRAPRG 37 37 38 42 41 1 CTRAPRG 38 38 39 43 42 1 CTRAPRG 39 39 40 44 43 1 CTRAPRG 41 41 42 46 45 1 CTRAPRG 42 42 43 47 46 1 CTRAPRG 43 43 44 48 47 1 CTRAPRG 45 45 46 50 49 1 CTRAPRG 46 46 47 51 50 1 CTRAPRG 47 47 48 52 51 1 ENDDATA ================================================ FILE: inp/t03111a.inp ================================================ NASTRAN FILES=NPTP ID T03111A,NASTRAN CHKPNT YES APP DISP SOL 3,0 DIAG 14 TIME 10 $INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) AFTER THIS CARD READFILE COSHYD1 $INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) BEFORE THIS CARD CEND TITLE = HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT SUBTITLE = NASTRAN TEST PROBLEM NO. T03-11-1A $ TEST PROBLEM I.1 - FULL SOLUTION DISP = ALL SPCF = ALL METHOD = 50 SPC = 10 BEGIN BULK CFFREE 1 100 6 CFHEX2 1 200 1 2 4 3 5 6 +CFH1 +CFH1 8 7 CFLSTR 1 100 101 THRU 104 CQUAD2 101 100 101 102 106 105 CQUAD2 102 100 102 104 108 106 CQUAD2 103 100 104 103 107 108 CQUAD2 104 100 101 103 104 102 EIGR 50 GIV 0.0 20.0 6 6 0 +E1 +E1 MAX GRAV 100 386.0 0.0 0.0 -1.0 GRID 1 0.0 0.0 0.0 GRID 2 6.0 0.0 0.0 GRID 3 0.0 12.0 0.0 GRID 4 6.0 12.0 0.0 GRID 5 0.0 0.0 12.0 GRID 6 6.0 0.0 12.0 GRID 7 0.0 12.0 12.0 GRID 8 6.0 12.0 12.0 GRID 101 0.0 0.0 0.0 GRID 102 6.0 0.0 0.0 GRID 103 0.0 12.0 0.0 GRID 104 6.0 12.0 0.0 GRID 105 0.0 0.0 12.0 GRID 106 6.0 0.0 12.0 GRID 107 0.0 12.0 12.0 GRID 108 6.0 12.0 12.0 MAT1 100 10.6+6 .3 .92-3 MATF 200 9.355-4 OMIT1 4 101 103 105 107 OMIT1 456 102 104 106 108 PQUAD2 100 100 .06 SPC1 10 1256 101 103 105 107 ENDDATA ================================================ FILE: inp/t03111b.inp ================================================ NASTRAN BANDIT = -1, FILES = OPTP ID T03111B,NASTRAN $ $ NOTES - FOLLOWING STEPS MUST BE DONE FIRST BEFORE RUNNING THIS DEMO. $ (1) REFER TO COSMIC/NASTRAN DMAP COMPILER SOURCE LISTING IN T03111A $ AND LOCATE THE DMAP NUMBER OF 'LABEL NEWM' (ASSUME IT IS NO. M) $ (2) LOOK FOR THE 'REENTER AT DMAP SEQUENCE NUMBER N' IN THE T03111A $ CHECKPOINT DICTIONARY DECK (T03111A.PCH OR .DIC), WHERE N IS $ GREATER THAN THE LOCATION M OF (1) $ (3) REMOVE ALL THE CARDS FROM THIS 'REENTER AT DMAP SEQ. NO. N' TO $ THE END OF THE T03111A CHECKPOINT DICTIONARY DECK. $ THE LAST '$ END OF CHECKPOINT DICTIONARY' IS OPTIONAL. $ (4) FATAL ERROR IN QOPEN IF THESE CARDS WERE NOT REMOVED. $ (5) IN 1993 VERSION, M IN (1) IS 67, AND N IN (2) IS 69 $ READFILE RSCARDS TIME 20 SOL 3,0 APP DISP $ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) AFTER THIS CARD READFILE COSHYD1 $ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) BEFORE THIS CARD CEND TITLE = HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES SUBTITLE = NASTRAN TEST PROBLEM NO. T03-11-1B $ REFERENCE PROBLEM I.2 DISP = ALL SPCF = ALL METHOD = 50 SPC = 10 BEGIN BULK $ $ NEW EIGR CARD FOR DIFFERENT MODES $ / 9 10 EIGR 50 GIV 100.0 2500.0 0 +E1 +E1 MAX $ $ PARAMETER TO SKIP UNNEEDED DMAP $ PARAM NEWMODE -1 ENDDATA ================================================ FILE: inp/t03121a.inp ================================================ NASTRAN FILES=NPTP ID T03121A,NASTRAN DIAG 14 TIME 10 SOL 3,0 APP DISP CHKPNT YES $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) AFTER THIS CARD READFILE COSHYD2 $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) BEFORE THIS CARD CEND TITLE = HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT SUBTITLE = NASTRAN TEST PROBLEM NO. T03-12-1A $ REFERENCE PROBLEM IV.1 SPC = 10 DISP = ALL SUBCASE 1 LABEL = MODES OF EMPTY STRUCTURE METHOD = 50 SUBCASE 2 LABEL = MODES WITH FLUID INCLUDED METHOD = 60 SPCF = ALL BEGIN BULK CFFREE 1 100 6 CFHEX2 1 200 1 2 4 3 5 6 +CFH1 +CFH1 8 7 CFLSTR 1 100 101 THRU 104 CQUAD2 101 100 101 102 106 105 CQUAD2 102 100 102 104 108 106 CQUAD2 103 100 104 103 107 108 CQUAD2 104 100 101 103 104 102 EIGR 50 GIV 0.0 2600.0 10 10 0 +EMOD1 +EMOD1 MAX EIGR 60 GIV 0.0 10.0 6 6 0 +E1 +E1 MAX GRAV 100 386.0 0.0 0.0 -1.0 GRID 1 0.0 0.0 0.0 GRID 2 6.0 0.0 0.0 GRID 3 0.0 12.0 0.0 GRID 4 6.0 12.0 0.0 GRID 5 0.0 0.0 12.0 GRID 6 6.0 0.0 12.0 GRID 7 0.0 12.0 12.0 GRID 8 6.0 12.0 12.0 GRID 101 0.0 0.0 0.0 GRID 102 6.0 0.0 0.0 GRID 103 0.0 12.0 0.0 GRID 104 6.0 12.0 0.0 GRID 105 0.0 0.0 12.0 GRID 106 6.0 0.0 12.0 GRID 107 0.0 12.0 12.0 GRID 108 6.0 12.0 12.0 MAT1 100 10.6+6 .3 .92-3 MATF 200 9.355-4 OMIT1 4 101 103 105 107 OMIT1 456 102 104 106 108 PQUAD2 100 100 .06 SPC1 10 1256 101 103 105 107 ENDDATA ================================================ FILE: inp/t03121b.inp ================================================ NASTRAN FILES = OPTP ID T03121B,NASTRAN $ $ NOTES - FOLLOWING STEPS MUST BE DONE FIRST BEFORE RUNNING THIS DEMO. $ (1) LOOK FOR 'CASE2' IN THE T03121A CHECKPOINT DICTIONARY DECK $ (T03121A.PCH OR .DIC). DELETE ALL THE CARDS FROM THE 'REENTER $ AT DMAP SEQUENCE NUMBER' CARD IMMEDIATELY BELOW THE 'CASE2' TO $ THE END OF THE DECK. $ (DELETE CARDS 216 THRU 271 IN 1993 VERSION) $ (2) NASTRAN FATAL ERROR IF THESE CARDS ARE NOT REMOVED. $ (3) SINCE T03121C USES THE FULL CHECKPOINT DICTIONARY DECK FROM $ T03121A, YOU MAY WANT TO RUN DEMO T03121C FIRST BEFORE THIS $ DEMO. $ READFILE RSCARDS TIME 10 SOL 3,0 APP DISP $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) AFTER THIS CARD READFILE COSHYD2 $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) BEFORE THIS CARD CEND TITLE = HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES SUBTITLE = NASTRAN TEST PROBLEM NO. T03-12-1B $ REFERENCE PROBLEM IV.2 SPC = 10 DISP = ALL SUBCASE 2 LABEL = MODES WITH FLUID INCLUDED METHOD = 70 SPCF = ALL BEGIN BULK $ $ NEW EIGR CARD FOR DIFFERENT MODE $ / 11 12 EIGR 70 GIV 100.0 2500.0 0 +EMOD2 +EMOD2 MAX $ $ PARAMETER TO TURN OFF UNNEEDED DMAP $ PARAM NEWMODE -1 ENDDATA ================================================ FILE: inp/t03121c.inp ================================================ NASTRAN FILES = OPTP ID T03121C,NASTRAN $ $ INSERT T03121A (NOT T03121B) CHECKPOINT DICTIONARY $ READFILE RSCARDS TIME 10 SOL 3,0 APP DISP $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) AFTER THIS CARD READFILE COSHYD2 $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) BEFORE THIS CARD CEND TITLE = HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL SUBTITLE = NASTRAN TEST PROBLEM NO. T03-12-1C $ REFERENCE PROBLEM IV.3 SPC = 10 DISP = ALL SUBCASE 2 LABEL = MODES WITH FLUID INCLUDED METHOD = 60 SPCF = ALL BEGIN BULK $ $ NEW FLUID MODEL $ / 1 4 CFWEDGE 1 200 1 2 3 5 6 7 CFWEDGE 2 200 2 4 3 6 8 7 CFFREE 1 100 5 2 100 5 CFLSTR 1 100 101 104 CFLSTR 2 100 102 103 104 $ $ *** NOTE *** AT LEAST ONE GRID MUST BE ALTERED IN TO FORCE $ REEXECUTION OF PROPER MODULES $ / 14 GRID 1 .0 .0 .0 $ $ PARAMETER TO SKIP RECOMPUTATION OF UNCHANGED STRUCTURE $ PARAM OLDSTR -1 ENDDATA ================================================ FILE: inp/t03131a.inp ================================================ ID T03131A,NASTRAN $ $ THIS DEMO IS SAME AS T17011A WHERE SOLUTION 17 IS USED AND NO $ DMAP ALTERS $ DIAG 25 $ $ INSERT ALTERS FOR DYNAMIC DESIGN ANALYSIS METHOD (COSDDAM) HERE $ READFILE COSDDAM $ SOL 3 APP DISP TIME 20 CEND TITLE = NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM) SUBTITLE = NASTRAN TEST PROBLEM NO. T03-13-1A LABEL = HY-100 PLATFORM MODEL OLOAD = ALL DISP = ALL METHOD = 1 SPC = 1 FORCE(SORT2) = ALL STRESS(SORT2) = ALL BEGIN BULK BAROR 1 0. 1. 1. 1 CBAR 1 1 2 CBAR 2 2 3 CBAR 3 3 4 CBAR 4 4 5 CBAR 5 4 2 6 1. 0. 1. CBAR 6 5 3 8 1. 0. 1. CBAR 7 5 4 10 1. 0. 1. CBAR 8 2 6 7 CBAR 9 2 7 8 CBAR 10 2 8 9 CBAR 11 2 9 10 CBAR 12 4 6 11 1. 0. 1. CBAR 13 5 8 13 1. 0. 1. CBAR 14 5 10 15 1. 0. 1. CBAR 15 2 11 12 CBAR 16 2 12 13 CBAR 17 2 13 14 CBAR 18 2 14 15 CBAR 19 4 11 17 1. 0. 1. CBAR 20 5 13 20 1. 0. 1. CBAR 21 5 15 23 1. 0. 1. CBAR 22 3 16 17 CBAR 23 3 17 18 CBAR 24 3 18 19 CBAR 25 3 19 20 CBAR 26 3 20 21 CBAR 27 3 21 22 CBAR 28 3 22 23 CBAR 29 3 23 24 CBAR 30 19 25 0. 1. -1. CBAR 31 22 26 0. 1. -1. CBAR 32 4 17 27 1. 0. 1. CBAR 33 5 23 28 1. 0. 1. CONM2 32 2 1 7.76 CONM2 33 4 1 7.76 CONM2 34 7 1 9.52 CONM2 35 9 1 9.52 CONM2 36 11 1 29.97 CONM2 37 12 1 4. CONM2 38 14 1 4. CONM2 39 15 1 29.97 CONM2 40 18 1 5. CONM2 41 21 1 5. CORD2R 1 0. 0. 0. 0. 0. 1. +COR1 +COR1 1. 0. 1. EIGR 1 GIV 30 1.-3 +EGR1 +EGR1 MAX GRID 1 0. 0. GRID 2 0. 50. GRID 3 0. 150. GRID 4 0. 230. GRID 5 0. 280. GRID 6 48. 50. GRID 7 48. 130. GRID 8 48. 150. GRID 9 48. 180. GRID 10 48. 230. GRID 11 120. 50. GRID 12 120. 90. GRID 13 120. 150. GRID 14 120. 195. GRID 15 120. 230. GRID 16 180. 0. GRID 17 180. 50. GRID 18 180. 100. GRID 19 180. 120. GRID 20 180. 150. GRID 21 180. 190. GRID 22 180. 205. GRID 23 180. 230. GRID 24 180. 280. GRID 25 180. 120. -96. GRID 26 180. 205. -96. GRID 27 230. 50. GRID 28 230. 230. MAT1 1 3.+7 .3 0. OMIT1 456 1 THRU 15 OMIT1 456 17 THRU 23 OMIT1 123456 3 6 8 10 13 17 19 +OMT1 +OMT1 20 22 23 PBAR 1 1 20. 332. 133. 3.8 +BAR1 +BAR1 4.8 5.0 4.8 -5.0 -4.8 -5. -4.8 5.0 PBAR 2 1 12.6 114. 51.2 1.4 +BAR2 +BAR2 3.6 4. 3.6 -4. -3.6 -4. -3.6 4. PBAR 3 1 20. 332. 133. 3.8 +BAR3 +BAR3 4.8 5. 4.8 -5. -4.8 -5. -4.8 5. PBAR 4 1 44. 861. 432. 30. +BAR4 +BAR4 5.5 6. 5.5 -6. -5.5 -6. -5.5 6. PBAR 5 1 44. 861. 432. 30. +BAR5 +BAR5 5.5 6. 5.5 -6. -5.5 -6. -5.5 6. SPC1 1 123 1 5 SPC1 1 123456 16 24 25 26 27 28 PARAM ACCA 10.4 PARAM ACCB 480. PARAM ACCC 20. PARAM ACCD 0. PARAM ACC1 .4 PARAM ACC2 1. PARAM ACC3 1. PARAM VELA 20. PARAM VELB 480. PARAM VELC 100. PARAM VEL1 .4 PARAM VEL2 1. PARAM VEL3 1. PARAM LMODES 30 ENDDATA ================================================ FILE: inp/t04021a.inp ================================================ NASTRAN FILES=NPTP ID T04021A,NASTRAN DIAG 14 TIME 10 CHKPNT YES APP DISP SOL 4,6 ALTER 2,2 $ ALTER 91 $ CHKPNT KDGG $ EXIT $ ENDALTER $ CEND TITLE = HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM SUBTITLE = NASTRAN TEST PROBLEM NO. T04-02-1A $ REFERENCE PROBLEM III.1 SPC = 10 LOAD = 10 DISP = ALL SUBCASE 1 LABEL = STATIC SOLUTION SUBCASE 2 LABEL = DIFFERENTIAL STIFFNESS SOLUTION BEGIN BULK CQUAD2 101 100 101 102 106 105 CQUAD2 102 100 102 104 108 106 CQUAD2 103 100 104 103 107 108 CQUAD2 104 100 101 103 104 102 GRID 101 0.0 0.0 0.0 GRID 102 6.0 0.0 0.0 GRID 103 0.0 12.0 0.0 GRID 104 6.0 12.0 0.0 GRID 105 0.0 0.0 12.0 GRID 106 6.0 0.0 12.0 GRID 107 0.0 12.0 12.0 GRID 108 6.0 12.0 12.0 MAT1 100 10.6+6 .3 .92-3 PLOAD2 10 1.0 101 THRU 104 PQUAD2 100 100 .06 SPC1 10 12356 101 103 105 107 ENDDATA ================================================ FILE: inp/t04021b.inp ================================================ NASTRAN FILES = OPTP ID T04021B,NASTRAN $ INSERT CHECKPOINT DICTIONARY READFILE RSCARDS TIME 10 APP DISP SOL 3,0 $ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) AFTER THIS CARD READFILE COSHYD1 $ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) BEFORE THIS CARD CEND TITLE = HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART SUBTITLE = NASTRAN TEST PROBLEM NO. T04-02-1B $ REFERENCE PROBLEM III.2 DISP = ALL SPCF = ALL METHOD = 50 SPC = 10 BEGIN BULK $ $ *** NOTE - STRUCTURE BULK DATA IS ON RESTART TAPE $ GRID 1 0.0 0.0 0.0 GRID 2 6.0 0.0 0.0 GRID 3 0.0 12.0 0.0 GRID 4 6.0 12.0 0.0 GRID 5 0.0 0.0 12.0 GRID 6 6.0 0.0 12.0 GRID 7 0.0 12.0 12.0 GRID 8 6.0 12.0 12.0 CFHEX2 1 200 1 2 4 3 5 6 +C1 +C1 8 7 CFFREE 1 100 6 CFLSTR 1 100 101 THRU 104 MATF 200 9.355-4 OMIT1 4 101 103 105 107 OMIT1 456 102 104 106 108 GRAV 100 386.0 0.0 0.0 -1.0 EIGR 50 GIV 0.0 20.0 6 6 0 +E12 +E12 MAX $ $ PARAMETERS TO TRIGGER ADDITION OF ULLAGE PRESSURE $ PARAM DIFSTIF -1 PARAM DIFSCALE 14.7 ENDDATA ================================================ FILE: inp/t05031a.inp ================================================ ID T05031A,NASTRAN SOL 5,0 APP DISP TIME 200 CEND TITLE = BUCKLING ANALYSIS USING CIS2D8 ELEMENTS SUBTITLE = NASTRAN TEST PROBLEM NO. T05-03-1A STRESS = ALL DISP = ALL OLOAD = ALL SUBCASE 1 LABEL = STATIC SOLUTION LOAD = 4 TEMP(LOAD)=3 SUBCASE 2 LABEL = BUCKLING SOLUTION METHOD= 1 BEGIN BULK CIS2D8 1 1 1 7 9 3 4 8 +C1 +C1 6 2 3 CIS2D8 2 1 7 13 15 9 10 14 +C2 +C2 12 8 3 CIS2D8 3 1 13 19 21 15 16 20 +C3 +C3 18 14 3 CIS2D8 4 1 19 25 27 21 22 26 +C4 +C4 24 20 3 CIS2D8 5 1 25 31 33 27 28 32 +C5 +C5 30 26 3 EIGB 1 INV 5. 10. 1 1 0 +EIGB +EIGB MAX FORCE 1 31 0 166.6667-1. 0. 0. FORCE 1 32 0 666.6666-1. 0. 0. FORCE 1 33 0 166.6667-1. 0. 0. GRAV 2 5. 0. 1. 0. GRDSET 3456 GRID 1 0. 0. 123456 GRID 2 0. .5 123456 GRID 3 0. 1. 123456 GRID 4 1. 0. GRID 6 1. 1. GRID 7 2. 0. GRID 8 2. .5 GRID 9 2. 1. GRID 10 3. 0. GRID 12 3. 1. GRID 13 4. 0. GRID 14 4. .5 GRID 15 4. 1. GRID 16 5. 0. GRID 18 5. 1. GRID 19 6. 0. GRID 20 6. .5 GRID 21 6. 1. GRID 22 7. 0. GRID 24 7. 1. GRID 25 8. 0. GRID 26 8. .5 GRID 27 8. 1. GRID 28 9. 0. GRID 30 9. 1. GRID 31 10. 0. GRID 32 10. .5 GRID 33 10. 1. LOAD 4 1. 1. 1 1. 2 MAT1 1 3.+7 .3 7.324-4 .001 5. PIS2D8 1 1 .1 TEMPD 3 20. ENDDATA /EOF +C1 6 2 3 ================================================ FILE: inp/t08021a.inp ================================================ NASTRAN FILES = PLT2 ID T08021A,NASTRAN APP DISP SOL 8 DIAG 14 TIME 50 $ READFILE COSDFVA $ CEND TITLE = ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O) SUBTITLE = NASTRAN TEST PROBLEM NO. T08-02-1A $ SPC = 30 FREQ = 1 OUTPUT SET 1 = 8,16,18 SET 2 = 11 OLOAD = 1 DISP(SORT2,PHASE) = 1 STRESS(SORT2,PHASE) = 2 SUBCASE 1 LABEL = KINDEX 0 DLOAD = 1 $ FREQ DEPENDENT LOADS $ AXIAL BASE ACCN LOADS VIA PARAM BXTID,BXPTID SUBCASE 2 LABEL = KINDEX 1C $ LATERAL BASE ACCN LOADS VIA PARAM BYTID SUBCASE 3 LABEL = KINDEX 1S $ LATERAL BASE ACCN LOADS VIA PARAM BZTID SUBCASE 4 LABEL = KINDEX 2C DLOAD = 1 $ FREQ DEPENDENT LOADS SUBCASE 5 LABEL = KINDEX 2S OUTPUT(XYPLOT) PLOTTER NASTPLT D,0 XPAPER = 8.0 YPAPER = 10.5 XAXIS = YES YAXIS = YES XGRID LINES = YES YGRID LINES = YES CURVELINESYMBOL = 1 XTITLE = FREQUENCY (HERTZ) YTITLE = GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH ) YLOG = YES TCURVE = 8(T3RM),18(T3RM) XYPLOT,XYPRINT DISP RESPONSE 1 /8(T3RM),18(T3RM) XYPLOT,XYPRINT DISP RESPONSE 2 /8(T3RM),18(T3RM) XYPLOT,XYPRINT DISP RESPONSE 3 /8(T3RM),18(T3RM) XYPLOT,XYPRINT DISP RESPONSE 4 /8(T3RM),18(T3RM) YTITLE = GRID POINT DISPLACEMENTS ( PHASE,DEGREE ) YLOG = NO TCURVE = 8(T3IP),18(T3IP) XYPLOT,XYPRINT DISP RESPONSE 2 /8(T3IP),18(T3IP) YTITLE = ELEMENT STRESSES ( MAGNITUDE,PSI ) YLOG = YES TCURVE = 11(3),11(5),11(7),11(10),11(12),11(14) XYPLOT,XYPRINT STRESS RESPONSE 1 /11(3),11(5),11(7), 11(10),11(12),11(14) XYPLOT,XYPRINT STRESS RESPONSE 2 /11(3),11(5),11(7), 11(10),11(12),11(14) XYPLOT,XYPRINT STRESS RESPONSE 3 /11(3),11(5),11(7), 11(10),11(12),11(14) XYPLOT,XYPRINT STRESS RESPONSE 4 /11(3),11(5),11(7), 11(10),11(12),11(14) BEGIN BULK CORD2C 1 0.0 0.0 0.0 1.0 0.0 0.0 +COR12 +COR12 0.0 1.0 0.0 CQUAD2 4 2 2 3 7 6 CQUAD2 5 2 6 7 12 11 CQUAD2 6 2 3 4 8 7 CQUAD2 7 2 7 8 13 12 CQUAD2 8 2 4 5 9 8 CQUAD2 10 2 8 15 14 13 CQUAD2 11 3 9 16 18 15 CQUAD2 12 3 16 17 19 18 CTRIA2 1 1 1 6 10 CTRIA2 2 1 1 2 6 CTRIA2 3 1 10 6 11 CTRIA2 9 1 8 9 15 CYJOIN 1 1 2 3 4 5 CYJOIN 2 10 11 12 13 14 DAREA 1 8 3 -1.0 DAREA 1 16 3 1.0 DAREA 1 18 3 1.0 FREQ 1 1700.0 1750.0 1777.6 1795.7 1813.8541832.0 1850.1 +FR1 +FR1 1880.0 1920.0 GRDSET 1 1 GRID 1 2.0 30.0 0.0 GRID 2 3.1 30.0 0.0 GRID 3 4.3 30.0 0.0 GRID 4 5.2 30.0 0.0 GRID 5 7.1 30.0 0.0 GRID 6 3.1 45.0 0.0 GRID 7 4.3 45.0 0.0 GRID 8 5.2 45.0 0.0 GRID 9 7.1 40.0 0.0 GRID 10 2.0 60.0 0.0 GRID 11 3.1 60.0 0.0 GRID 12 4.3 60.0 0.0 GRID 13 5.2 60.0 0.0 GRID 14 7.1 60.0 0.0 GRID 15 7.1 50.0 0.0 GRID 16 8.5 40.0 -.25 GRID 17 9.7 40.0 -.50 GRID 18 8.5 50.0 0.25 GRID 19 9.7 50.0 0.50 MAT1 1 30.0+6 .3 7.4-4 PARAM BXTID 9001 PARAM BXPTID 9002 PARAM BYTID 9003 PARAM BZTID 9004 PARAM CYCIO -1 PARAM G .02 PARAM GKAD FREQRESP PARAM KMAX 2 PARAM KMIN 0 PARAM LGKAD 1 PARAM NSEGS 12 PARAM RPS 600.0 PQUAD2 2 1 .25 PQUAD2 3 1 .125 PTRIA2 1 1 .25 RLOAD1 1 1 100 SPC1 30 123456 1 10 SPC1 30 6 1 THRU 19 TABLED1 100 +TBD1 +TBD1 0.0 1.0 1000.0 1.0 ENDT TABLED1 9001 +TAB11 +TAB11 1000. 0.0 2000.0 1000.0 ENDT TABLED1 9002 +TAB21 +TAB21 1000. -180. 2000.0 0.0 ENDT TABLED1 9003 +TAB31 +TAB31 1000. 1000.0 2000.0 1000.0 ENDT TABLED1 9004 +TAB41 +TAB41 1000. 500.0 2000.0 500.0 ENDT ENDDATA ================================================ FILE: inp/t08022a.inp ================================================ ID T08022A,NASTRAN APP DISP SOL 8 DIAG 14 TIME 20 $ READFILE COSDFVA $ CEND TITLE = ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O) SUBTITLE = NASTRAN TEST PROBLEM NO. T08-02-2A $ SPC = 30 TSTEP = 1 OUTPUT SET 1 = 8,16,18 SET 2 = 11 OLOAD = 1 DISP(SORT2,PHASE) = 1 STRESS(SORT2,PHASE) = 2 SUBCASE 1 LABEL = SEGMENT 1 DLOAD = 1 $ TIME DEPENDENT LOADS SUBCASE 2 LABEL = SEGMENT 2 DLOAD = 2 $ TIME DEPENDENT LOADS SUBCASE 3 LABEL = SEGMENT 3 DLOAD = 3 $ TIME DEPENDENT LOADS SUBCASE 4 LABEL = SEGMENT 4 DLOAD = 4 $ TIME DEPENDENT LOADS SUBCASE 5 LABEL = SEGMENT 5 DLOAD = 5 $ TIME DEPENDENT LOADS SUBCASE 6 LABEL = SEGMENT 6 DLOAD = 6 $ TIME DEPENDENT LOADS SUBCASE 7 LABEL = SEGMENT 7 DLOAD = 7 $ TIME DEPENDENT LOADS SUBCASE 8 LABEL = SEGMENT 8 DLOAD = 8 $ TIME DEPENDENT LOADS SUBCASE 9 LABEL = SEGMENT 9 DLOAD = 9 $ TIME DEPENDENT LOADS SUBCASE 10 LABEL = SEGMENT 10 DLOAD = 10 $ TIME DEPENDENT LOADS SUBCASE 11 LABEL = SEGMENT 11 DLOAD = 11 $ TIME DEPENDENT LOADS SUBCASE 12 LABEL = SEGMENT 12 DLOAD = 12 $ TIME DEPENDENT LOADS BEGIN BULK CORD2C 1 0.0 0.0 0.0 1.0 0.0 0.0 +COR12 +COR12 0.0 1.0 0.0 CQUAD2 4 2 2 3 7 6 CQUAD2 5 2 6 7 12 11 CQUAD2 6 2 3 4 8 7 CQUAD2 7 2 7 8 13 12 CQUAD2 8 2 4 5 9 8 CQUAD2 10 2 8 15 14 13 CQUAD2 11 3 9 16 18 15 CQUAD2 12 3 16 17 19 18 CTRIA2 1 1 1 6 10 CTRIA2 2 1 1 2 6 CTRIA2 3 1 10 6 11 CTRIA2 9 1 8 9 15 CYJOIN 1 1 2 3 4 5 CYJOIN 2 10 11 12 13 14 DAREA 1 8 3 -1.0 DAREA 1 16 3 1.0 DAREA 1 18 3 1.0 DAREA 2 8 3 -0.5 DAREA 2 16 3 0.5 DAREA 2 18 3 0.5 DAREA 3 8 3 0.5 DAREA 3 16 3 -0.5 DAREA 3 18 3 -0.5 DAREA 4 8 3 1.0 DAREA 4 16 3 -1.0 DAREA 4 18 3 -1.0 DAREA 5 8 3 0.5 DAREA 5 16 3 -0.5 DAREA 5 18 3 -0.5 DAREA 6 8 3 -0.5 DAREA 6 16 3 0.5 DAREA 6 18 3 0.5 DAREA 7 8 3 -1.0 DAREA 7 16 3 1.0 DAREA 7 18 3 1.0 DAREA 8 8 3 -0.5 DAREA 8 16 3 0.5 DAREA 8 18 3 0.5 DAREA 9 8 3 0.5 DAREA 9 16 3 -0.5 DAREA 9 18 3 -0.5 DAREA 10 8 3 1.0 DAREA 10 16 3 -1.0 DAREA 10 18 3 -1.0 DAREA 11 8 3 0.5 DAREA 11 16 3 -0.5 DAREA 11 18 3 -0.5 DAREA 12 8 3 -0.5 DAREA 12 16 3 0.5 DAREA 12 18 3 0.5 GRDSET 1 1 GRID 1 2.0 30.0 0.0 GRID 2 3.1 30.0 0.0 GRID 3 4.3 30.0 0.0 GRID 4 5.2 30.0 0.0 GRID 5 7.1 30.0 0.0 GRID 6 3.1 45.0 0.0 GRID 7 4.3 45.0 0.0 GRID 8 5.2 45.0 0.0 GRID 9 7.1 40.0 0.0 GRID 10 2.0 60.0 0.0 GRID 11 3.1 60.0 0.0 GRID 12 4.3 60.0 0.0 GRID 13 5.2 60.0 0.0 GRID 14 7.1 60.0 0.0 GRID 15 7.1 50.0 0.0 GRID 16 8.5 40.0 -.25 GRID 17 9.7 40.0 -.50 GRID 18 8.5 50.0 0.25 GRID 19 9.7 50.0 0.50 MAT1 1 30.0+6 .3 7.4-4 PARAM CYCIO +1 PARAM G .02 PARAM GKAD FREQRESP PARAM KMAX 2 PARAM KMIN 2 PARAM LGKAD 1 PARAM LMAX 1 PARAM NSEGS 12 PARAM RPS 600.0 PQUAD2 2 1 .25 PQUAD2 3 1 .125 PTRIA2 1 1 .25 SPC1 30 123456 1 10 SPC1 30 6 1 THRU 19 TLOAD2 1 1 0.0 5.5131-41813.854 -90.0 TLOAD2 2 2 0.0 5.5131-41813.854 -90.0 TLOAD2 3 3 0.0 5.5131-41813.854 -90.0 TLOAD2 4 4 0.0 5.5131-41813.854 -90.0 TLOAD2 5 5 0.0 5.5131-41813.854 -90.0 TLOAD2 6 6 0.0 5.5131-41813.854 -90.0 TLOAD2 7 7 0.0 5.5131-41813.854 -90.0 TLOAD2 8 8 0.0 5.5131-41813.854 -90.0 TLOAD2 9 9 0.0 5.5131-41813.854 -90.0 TLOAD2 10 10 0.0 5.5131-41813.854 -90.0 TLOAD2 11 11 0.0 5.5131-41813.854 -90.0 TLOAD2 12 12 0.0 5.5131-41813.854 -90.0 TSTEP 1 10 4.5943-5 1 ENDDATA ================================================ FILE: inp/t08031a.inp ================================================ NASTRAN SYSTEM(93)=1 ID T08031A,NASTRAN APP DISP SOL 8 DIAG 14 TIME 500 $ READFILE COSMFVA $ CEND TITLE = FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS SUBTITLE = NASTRAN TEST PROBLEM NO. T08-03-1A LABEL = K = 0 MODES, OSCILLATORY AIRLOADS PRESENT $ SPC = 1 MPC = 1 METHOD = 1 FREQUENCY = 1 DLOAD = 1000 $ DISP(SORT1,PHASE) = ALL STRESS(SORT1,PHASE) = ALL $ $ NOTE --- $ THE FOLLOWING DATA IS FOR A RIGID HUB AND UNIFORM FLOW $ BEGIN BULK CORD2R 77 0 .0 .0 .0 .0 .0 1. +C2R +C2R 10. -0.618 .0 CTRIA2 1 1 10 9 8 CTRIA2 2 2 11 10 8 CTRIA2 3 3 8 7 11 CTRIA2 4 4 12 11 7 CTRIA2 5 5 7 1 12 CTRIA2 6 6 13 12 1 CTRIA2 7 7 1 2 13 CTRIA2 8 8 14 13 2 CTRIA2 9 9 2 3 14 CTRIA2 10 10 15 14 3 CTRIA2 11 11 3 4 15 CTRIA2 12 12 16 15 4 CTRIA2 13 13 4 5 16 CTRIA2 14 14 17 16 5 CTRIA2 15 15 5 6 17 CTRIA2 16 16 20 19 18 CTRIA2 17 17 21 20 18 CTRIA2 18 18 18 9 21 CTRIA2 19 19 22 21 9 CTRIA2 20 20 9 10 22 CTRIA2 21 21 10 11 22 CTRIA2 22 22 23 22 11 CTRIA2 23 23 11 12 23 CTRIA2 24 24 24 23 12 CTRIA2 25 25 12 13 24 CTRIA2 26 26 25 24 13 CTRIA2 27 27 13 14 25 CTRIA2 28 28 14 15 25 CTRIA2 29 29 26 25 15 CTRIA2 30 30 15 16 26 CTRIA2 31 31 27 26 16 CTRIA2 32 32 16 17 27 CTRIA2 33 33 29 28 19 CTRIA2 34 34 30 29 19 CTRIA2 35 35 19 20 30 CTRIA2 36 36 31 30 20 CTRIA2 37 37 20 21 31 CTRIA2 38 38 32 31 21 CTRIA2 39 39 21 22 32 CTRIA2 40 40 33 32 22 CTRIA2 41 41 22 23 33 CTRIA2 42 42 23 24 33 CTRIA2 43 43 34 33 24 CTRIA2 44 44 24 25 34 CTRIA2 45 45 35 34 25 CTRIA2 46 46 25 26 35 CTRIA2 47 47 36 35 26 CTRIA2 48 48 26 27 36 CTRIA2 49 49 38 37 28 CTRIA2 50 50 28 29 39 CTRIA2 51 51 39 38 28 CTRIA2 52 52 40 39 29 CTRIA2 53 53 29 30 40 CTRIA2 54 54 30 31 40 CTRIA2 55 55 41 40 31 CTRIA2 56 56 31 32 41 CTRIA2 57 57 42 41 32 CTRIA2 58 58 32 33 42 CTRIA2 59 59 43 42 33 CTRIA2 60 60 33 34 43 CTRIA2 61 61 44 43 34 CTRIA2 62 62 34 35 44 CTRIA2 63 63 45 44 35 CTRIA2 64 64 35 36 45 CTRIA2 65 65 47 46 37 CTRIA2 66 66 37 38 47 CTRIA2 67 67 48 47 38 CTRIA2 68 68 38 39 48 CTRIA2 69 69 49 48 39 CTRIA2 70 70 39 40 49 CTRIA2 71 71 50 49 40 CTRIA2 72 72 40 41 50 CTRIA2 73 73 51 50 41 CTRIA2 74 74 41 42 51 CTRIA2 75 75 52 51 42 CTRIA2 76 76 42 43 52 CTRIA2 77 77 53 52 43 CTRIA2 78 78 43 44 53 CTRIA2 79 79 54 53 44 CTRIA2 80 80 44 45 54 CTRIA2 81 81 56 55 46 CTRIA2 82 82 46 47 56 CTRIA2 83 83 57 56 47 CTRIA2 84 84 47 48 57 CTRIA2 85 85 58 57 48 CTRIA2 86 86 48 49 58 CTRIA2 87 87 59 58 49 CTRIA2 88 88 49 50 59 CTRIA2 89 89 60 59 50 CTRIA2 90 90 50 51 60 CTRIA2 91 91 61 60 51 CTRIA2 92 92 51 52 61 CTRIA2 93 93 62 61 52 CTRIA2 94 94 52 53 62 CTRIA2 95 95 63 62 53 CTRIA2 96 96 53 54 63 CTRIA2 97 97 65 64 55 CTRIA2 98 98 55 56 65 CTRIA2 99 99 66 65 56 CTRIA2 100 100 56 57 66 CTRIA2 101 101 67 66 57 CTRIA2 102 102 57 58 67 CTRIA2 103 103 68 67 58 CTRIA2 104 104 58 59 68 CTRIA2 105 105 69 68 59 CTRIA2 106 106 59 60 69 CTRIA2 107 107 70 69 60 CTRIA2 108 108 60 61 70 CTRIA2 109 109 71 70 61 CTRIA2 110 110 61 62 71 CTRIA2 111 111 72 71 62 CTRIA2 112 112 62 63 72 CTRIA2 113 113 74 73 64 CTRIA2 114 114 64 65 74 CTRIA2 115 115 75 74 65 CTRIA2 116 116 65 66 75 CTRIA2 117 117 76 75 66 CTRIA2 118 118 66 67 76 CTRIA2 119 119 77 76 67 CTRIA2 120 120 67 68 77 CTRIA2 121 121 78 77 68 CTRIA2 122 122 68 69 78 CTRIA2 123 123 79 78 69 CTRIA2 124 124 69 70 79 CTRIA2 125 125 80 79 70 CTRIA2 126 126 70 71 80 CTRIA2 127 127 81 80 71 CTRIA2 128 128 71 72 81 CTRIA2 129 129 82 81 72 CTRIA2 130 130 87 86 73 CTRIA2 131 131 73 74 87 CTRIA2 132 132 88 87 74 CTRIA2 133 133 74 75 88 CTRIA2 134 134 89 88 75 CTRIA2 135 135 75 76 89 CTRIA2 136 136 90 89 76 CTRIA2 137 137 76 77 90 CTRIA2 138 138 91 90 77 CTRIA2 139 139 77 78 91 CTRIA2 140 140 92 91 78 CTRIA2 141 141 78 79 92 CTRIA2 142 142 79 80 83 CTRIA2 143 143 79 83 92 CTRIA2 144 144 93 92 83 CTRIA2 145 145 80 81 84 CTRIA2 146 146 84 83 80 CTRIA2 147 147 83 84 94 CTRIA2 148 148 94 93 83 CTRIA2 149 149 81 82 85 CTRIA2 150 150 85 84 81 CTRIA2 151 151 84 85 95 CTRIA2 152 152 95 94 84 CTRIA2 153 153 100 99 86 CTRIA2 154 154 86 87 100 CTRIA2 155 155 101 100 87 CTRIA2 156 156 87 88 101 CTRIA2 157 157 102 101 88 CTRIA2 158 158 88 89 102 CTRIA2 159 159 103 102 89 CTRIA2 160 160 89 90 103 CTRIA2 161 161 104 103 90 CTRIA2 162 162 90 91 104 CTRIA2 163 163 105 104 91 CTRIA2 164 164 91 92 105 CTRIA2 165 165 92 93 96 CTRIA2 166 166 92 96 105 CTRIA2 167 167 106 105 96 CTRIA2 168 168 93 94 97 CTRIA2 169 169 97 96 93 CTRIA2 170 170 96 97 107 CTRIA2 171 171 107 106 96 CTRIA2 172 172 94 95 98 CTRIA2 173 173 98 97 94 CTRIA2 174 174 97 98 108 CTRIA2 175 175 108 107 97 CTRIA2 176 176 113 112 99 CTRIA2 177 177 99 100 113 CTRIA2 178 178 114 113 100 CTRIA2 179 179 100 101 114 CTRIA2 180 180 115 114 101 CTRIA2 181 181 101 102 115 CTRIA2 182 182 116 115 102 CTRIA2 183 183 102 103 116 CTRIA2 184 184 117 116 103 CTRIA2 185 185 103 104 117 CTRIA2 186 186 118 117 104 CTRIA2 187 187 104 105 118 CTRIA2 188 188 105 106 109 CTRIA2 189 189 105 109 118 CTRIA2 190 190 119 118 109 CTRIA2 191 191 106 107 110 CTRIA2 192 192 110 109 106 CTRIA2 193 193 109 110 120 CTRIA2 194 194 120 119 109 CTRIA2 195 195 107 108 111 CTRIA2 196 196 111 110 107 CTRIA2 197 197 110 111 121 CTRIA2 198 198 121 120 110 CTRIA2 199 199 112 113 125 CTRIA2 200 200 126 125 113 CTRIA2 201 201 113 114 126 CTRIA2 202 202 127 126 114 CTRIA2 203 203 114 115 127 CTRIA2 204 204 128 127 115 CTRIA2 205 205 115 116 128 CTRIA2 206 206 129 128 116 CTRIA2 207 207 116 117 129 CTRIA2 208 208 130 129 117 CTRIA2 209 209 117 118 130 CTRIA2 210 210 131 130 118 CTRIA2 211 211 118 119 122 CTRIA2 212 212 118 122 131 CTRIA2 213 213 132 131 122 CTRIA2 214 214 119 120 122 CTRIA2 215 215 123 122 120 CTRIA2 216 216 122 123 132 CTRIA2 217 217 133 132 123 CTRIA2 218 218 120 121 123 CTRIA2 219 219 124 123 121 CTRIA2 220 220 123 124 133 CTRIA2 221 221 134 133 124 CTRIA2 222 222 125 126 138 CTRIA2 223 223 139 138 126 CTRIA2 224 224 126 127 139 CTRIA2 225 225 140 139 127 CTRIA2 226 226 127 128 140 CTRIA2 227 227 141 140 128 CTRIA2 228 228 128 129 141 CTRIA2 229 229 142 141 129 CTRIA2 230 230 129 130 142 CTRIA2 231 231 143 142 130 CTRIA2 232 232 130 131 143 CTRIA2 233 233 144 143 131 CTRIA2 234 234 131 132 135 CTRIA2 235 235 131 135 144 CTRIA2 236 236 145 144 135 CTRIA2 237 237 132 133 135 CTRIA2 238 238 136 135 133 CTRIA2 239 239 135 136 145 CTRIA2 240 240 146 145 136 CTRIA2 241 241 133 134 136 CTRIA2 242 242 137 136 134 CTRIA2 243 243 136 137 146 CTRIA2 244 244 147 146 137 CTRIA2 245 245 138 139 148 CTRIA2 246 246 149 148 139 CTRIA2 247 247 139 140 149 CTRIA2 248 248 150 149 140 CTRIA2 249 249 140 141 150 CTRIA2 250 250 151 150 141 CTRIA2 251 251 141 142 151 CTRIA2 252 252 152 151 142 CTRIA2 253 253 142 143 152 CTRIA2 254 254 153 152 143 CTRIA2 255 255 143 144 153 CTRIA2 256 256 154 153 144 CTRIA2 257 257 144 145 154 CTRIA2 258 258 155 154 145 CTRIA2 259 259 145 146 155 CTRIA2 260 260 156 155 146 CTRIA2 261 261 146 147 156 CTRIA2 262 262 148 149 157 CTRIA2 263 263 158 157 149 CTRIA2 264 264 149 150 158 CTRIA2 265 265 159 158 150 CTRIA2 266 266 160 159 150 CTRIA2 267 267 150 151 160 CTRIA2 268 268 161 160 151 CTRIA2 269 269 151 152 162 CTRIA2 270 270 162 161 151 CTRIA2 271 271 163 162 152 CTRIA2 272 272 164 163 152 CTRIA2 273 273 152 153 164 CTRIA2 274 274 165 164 153 CTRIA2 275 275 166 165 153 CTRIA2 276 276 153 154 166 CTRIA2 277 277 167 166 154 CTRIA2 278 278 154 155 167 CTRIA2 279 279 155 156 167 CTRIA2 280 280 157 158 175 CTRIA2 281 281 206 175 158 CTRIA2 282 282 158 159 206 CTRIA2 283 283 176 206 159 CTRIA2 284 284 159 160 176 CTRIA2 285 285 176 177 160 CTRIA2 286 286 160 161 168 CTRIA2 287 287 168 177 160 CTRIA2 288 288 168 178 177 CTRIA2 289 289 169 168 161 CTRIA2 290 290 161 162 169 CTRIA2 291 291 170 169 162 CTRIA2 292 292 162 163 170 CTRIA2 293 293 171 170 163 CTRIA2 294 294 172 171 163 CTRIA2 295 295 163 164 172 CTRIA2 296 296 173 172 164 CTRIA2 297 297 164 165 173 CTRIA2 298 298 174 173 165 CTRIA2 299 299 168 169 179 CTRIA2 300 300 179 178 168 CTRIA2 301 301 169 170 180 CTRIA2 302 302 180 179 169 CTRIA2 303 303 170 171 181 CTRIA2 304 304 181 180 170 CTRIA2 305 305 171 172 182 CTRIA2 306 306 182 181 171 CTRIA2 307 307 172 173 183 CTRIA2 308 308 183 182 172 CTRIA2 309 309 173 174 184 CTRIA2 310 310 184 183 173 CTRIA2 311 311 178 179 185 CTRIA2 312 312 186 185 179 CTRIA2 313 313 179 180 186 CTRIA2 314 314 187 186 180 CTRIA2 315 315 180 181 187 CTRIA2 316 316 188 187 181 CTRIA2 317 317 181 182 188 CTRIA2 318 318 189 188 182 CTRIA2 319 319 182 183 189 CTRIA2 320 320 190 189 183 CTRIA2 321 321 183 184 190 CTRIA2 322 322 191 190 184 CTRIA2 323 323 185 186 192 CTRIA2 324 324 193 192 186 CTRIA2 325 325 186 187 193 CTRIA2 326 326 194 193 187 CTRIA2 327 327 187 188 194 CTRIA2 328 328 195 194 188 CTRIA2 329 329 188 189 195 CTRIA2 330 330 196 195 189 CTRIA2 331 331 189 190 196 CTRIA2 332 332 197 196 190 CTRIA2 333 333 190 191 197 CTRIA2 334 334 198 197 191 CTRIA2 335 335 200 199 192 CTRIA2 336 336 192 193 200 CTRIA2 337 337 201 200 193 CTRIA2 338 338 193 194 201 CTRIA2 339 339 202 201 194 CTRIA2 340 340 194 195 202 CTRIA2 341 341 195 196 202 CTRIA2 342 342 203 202 196 CTRIA2 343 343 196 197 203 CTRIA2 344 344 204 203 197 CTRIA2 345 345 197 198 204 CTRIA2 346 346 205 204 198 CYJOIN 1 199 CYJOIN 2 205 EIGR 1 FEER 4 +EIG1 +EIG1 MAX GRDSET 77 GRID 1 1.808 1.839 12.250 GRID 3 2.376 2.347 12.250 GRID 4 2.625 2.558 12.250 GRID 5 2.877 2.765 12.250 GRID 6 3.134 2.966 12.250 GRID 7 1.556 1.589 12.033 GRID 8 1.304 1.339 11.817 GRID 9 1.052 1.088 11.600 GRID 10 1.293 1.308 11.600 GRID 12 1.791 1.730 11.600 GRID 13 2.044 1.937 11.600 GRID 14 2.298 2.141 11.600 GRID 15 2.555 2.343 11.600 GRID 16 2.814 2.542 11.600 GRID 17 3.078 2.733 11.600 GRID 18 0.737 0.793 11.300 GRID 19 0.423 0.498 11.000 GRID 20 0.725 0.761 11.000 GRID 22 1.347 1.264 11.000 GRID 23 1.663 1.510 11.000 GRID 24 1.981 1.753 11.000 GRID 25 2.302 1.993 11.000 GRID 26 2.626 2.228 11.000 GRID 27 2.956 2.454 11.000 GRID 28 -0.168 -0.013 10.400 GRID 29 0.186 0.281 10.400 GRID 31 0.917 0.842 10.400 GRID 32 1.288 1.115 10.400 GRID 33 1.661 1.385 10.400 GRID 34 2.038 1.650 10.400 GRID 35 2.418 1.910 10.400 GRID 36 2.806 2.158 10.400 GRID 37 -0.702 -0.430 9.800 GRID 38 -0.306 -0.118 9.800 GRID 40 0.512 0.476 9.800 GRID 41 0.926 0.764 9.800 GRID 42 1.344 1.048 9.800 GRID 43 1.766 1.326 9.800 GRID 44 2.191 1.598 9.800 GRID 45 2.625 1.856 9.800 GRID 46 -1.193 -0.766 9.187 GRID 47 -0.760 -0.445 9.187 GRID 49 0.130 0.162 9.187 GRID 50 0.582 0.456 9.187 GRID 51 1.037 0.745 9.187 GRID 52 1.495 1.027 9.187 GRID 53 1.959 1.303 9.187 GRID 54 2.430 1.563 9.187 GRID 55 -1.612 -1.013 8.600 GRID 56 -1.149 -0.691 8.600 GRID 58 -0.199 -0.083 8.600 GRID 59 0.282 0.210 8.600 GRID 60 0.768 0.498 8.600 GRID 61 1.257 0.778 8.600 GRID 62 1.750 1.051 8.600 GRID 63 2.252 1.308 8.600 GRID 64 -1.985 -1.192 8.000 GRID 65 -1.496 -0.874 8.000 GRID 67 -0.494 -0.277 8.000 GRID 68 0.013 0.010 8.000 GRID 69 0.525 0.291 8.000 GRID 70 1.040 0.564 8.000 GRID 71 1.560 0.829 8.000 GRID 72 2.086 1.078 8.000 GRID 73 -2.301 -1.303 7.400 GRID 74 -1.790 -0.995 7.400 GRID 76 -0.747 -0.418 7.400 GRID 77 -0.218 -0.141 7.400 GRID 78 0.314 0.128 7.400 GRID 79 0.850 0.390 7.400 GRID 80 1.390 0.642 7.400 GRID 81 1.664 0.760 7.400 GRID 82 1.937 0.878 7.400 GRID 83 1.324 0.567 7.100 GRID 84 1.602 0.681 7.100 GRID 85 1.880 0.795 7.100 GRID 86 -2.556 -1.354 6.800 GRID 87 -2.028 -1.058 6.800 GRID 89 -0.948 -0.508 6.800 GRID 90 -0.402 -0.245 6.800 GRID 91 0.147 0.010 6.800 GRID 92 0.701 0.256 6.800 GRID 93 1.258 0.493 6.800 GRID 94 1.541 0.603 6.800 GRID 95 1.823 0.712 6.800 GRID 96 1.227 0.439 6.500 GRID 97 1.512 0.544 6.500 GRID 98 1.798 0.649 6.500 GRID 99 -2.716 -1.339 6.200 GRID 100 -2.173 -1.060 6.200 GRID 102 -1.066 -0.542 6.200 GRID 103 -0.507 -0.296 6.200 GRID 104 0.057 -0.059 6.200 GRID 105 0.624 0.169 6.200 GRID 106 1.195 0.386 6.200 GRID 107 1.484 0.486 6.200 GRID 108 1.772 0.586 6.200 GRID 109 1.195 0.352 5.900 GRID 110 1.484 0.447 5.900 GRID 111 1.773 0.542 5.900 GRID 112 -2.748 -1.254 5.600 GRID 113 -2.198 -0.996 5.600 GRID 115 -1.083 -0.519 5.600 GRID 116 -0.519 -0.294 5.600 GRID 117 0.049 -0.079 5.600 GRID 118 0.620 0.125 5.600 GRID 119 1.195 0.318 5.600 GRID 120 1.485 0.408 5.600 GRID 121 1.775 0.498 5.600 GRID 122 1.216 0.301 5.300 GRID 123 1.504 0.386 5.300 GRID 124 1.792 0.471 5.300 GRID 125 -2.670 -1.111 5.000 GRID 126 -2.124 -0.880 5.000 GRID 128 -1.017 -0.453 5.000 GRID 129 -0.459 -0.254 5.000 GRID 130 0.104 -0.065 5.000 GRID 131 0.669 0.114 5.000 GRID 132 1.238 0.283 5.000 GRID 133 1.523 0.363 5.000 GRID 134 1.809 0.444 5.000 GRID 135 1.274 0.278 4.700 GRID 136 1.556 0.355 4.700 GRID 137 1.837 0.432 4.700 GRID 138 -2.513 -0.927 4.400 GRID 139 -1.976 -0.727 4.400 GRID 141 -0.891 -0.359 4.400 GRID 142 -0.344 -0.189 4.400 GRID 143 0.206 -0.028 4.400 GRID 144 0.758 0.125 4.400 GRID 145 1.311 0.274 4.400 GRID 146 1.588 0.347 4.400 GRID 147 1.865 0.420 4.400 GRID 148 -2.273 -0.686 3.715 GRID 149 -1.742 -0.524 3.715 GRID 151 -0.672 -0.233 3.715 GRID 152 -0.133 -0.099 3.715 GRID 153 0.406 0.031 3.715 GRID 154 0.946 0.159 3.715 GRID 155 1.485 0.291 3.715 GRID 156 2.021 0.433 3.715 GRID 157 -2.051 -0.483 3.180 GRID 158 -1.675 -0.394 3.180 GRID 159 -1.296 -0.309 3.180 GRID 161 -0.548 -0.089 3.180 GRID 162 -0.274 -0.044 3.180 GRID 163 0.000 0.000 3.180 GRID 164 0.274 0.044 3.180 GRID 165 0.548 0.089 3.180 GRID 166 1.037 0.214 3.358 GRID 167 1.527 0.328 3.537 GRID 168 -0.548 -0.089 2.930 GRID 169 -0.365 -0.059 2.930 GRID 170 -0.183 -0.030 2.930 GRID 171 0.000 0.000 2.930 GRID 172 0.183 0.030 2.930 GRID 173 0.365 0.059 2.930 GRID 174 0.548 0.089 2.930 GRID 175 -1.804 -0.270 2.650 GRID 176 -1.188 -0.182 2.650 GRID 177 -0.750 -0.123 2.740 GRID 178 -0.550 -0.072 2.600 GRID 179 -0.367 -0.048 2.600 GRID 180 -0.184 -0.024 2.600 GRID 181 0.000 0.000 2.600 GRID 182 0.184 0.024 2.600 GRID 183 0.367 0.048 2.600 GRID 184 0.550 0.072 2.600 GRID 185 -0.550 -0.072 2.350 GRID 186 -0.367 -0.048 2.350 GRID 187 -0.184 -0.024 2.350 GRID 188 0.000 0.000 2.350 GRID 189 0.184 0.024 2.350 GRID 190 0.367 0.048 2.350 GRID 191 0.550 0.072 2.350 GRID 192 -0.550 -0.072 2.070 GRID 193 -0.367 -0.048 2.070 GRID 194 -0.184 -0.024 2.070 GRID 195 0.000 0.000 2.070 GRID 196 0.184 0.024 2.070 GRID 197 0.367 0.048 2.070 GRID 198 0.550 0.072 2.070 GRID 199 -0.699 -0.091 1.920 GRID 200 -0.466 -0.061 1.920 GRID 201 -0.233 -0.030 1.920 GRID 202 0.000 0.000 1.920 GRID 203 0.233 0.030 1.920 GRID 204 0.466 0.061 1.920 GRID 205 0.699 0.091 1.920 GRID 206 -1.496 -0.226 2.650 GRID 2 2.129 2.133 12.250 GRID 11 1.541 1.520 11.600 GRID 21 1.034 1.014 11.000 GRID 30 0.550 0.564 10.400 GRID 39 0.101 0.182 9.800 GRID 48 -0.317 -0.138 9.187 GRID 57 -0.677 -0.383 8.600 GRID 66 -0.998 -0.572 8.000 GRID 75 -1.271 -0.702 7.400 GRID 88 -1.490 -0.779 6.800 GRID 101 -1.621 -0.796 6.200 GRID 114 -1.642 -0.753 5.600 GRID 127 -1.572 -0.662 5.000 GRID 140 -1.435 -0.538 4.400 GRID 150 -1.208 -0.374 3.715 GRID 160 -0.917 -0.229 3.180 MAT1 1 1.6 E7 .35 .0004141 MPC 1 5 4 1.0 4 4 -1.0 MPC 1 6 4 1.0 4 4 -1.0 MPC 1 7 4 1.0 1 4 -1.0 PTRIA2 1 1 .01570 PTRIA2 2 1 .02827 PTRIA2 3 1 .01897 PTRIA2 4 1 .03380 PTRIA2 5 1 .02043 PTRIA2 6 1 .03623 PTRIA2 7 1 .02917 PTRIA2 8 1 .04440 PTRIA2 9 1 .03830 PTRIA2 10 1 .04253 PTRIA2 11 1 .03677 PTRIA2 12 1 .03397 PTRIA2 13 1 .02740 PTRIA2 14 1 .01673 PTRIA2 15 1 .00823 PTRIA2 16 1 .01970 PTRIA2 17 1 .03550 PTRIA2 18 1 .02390 PTRIA2 19 1 .04250 PTRIA2 20 1 .03487 PTRIA2 21 1 .04743 PTRIA2 22 1 .05847 PTRIA2 23 1 .05413 PTRIA2 24 1 .06033 PTRIA2 25 1 .05580 PTRIA2 26 1 .05663 PTRIA2 27 1 .05230 PTRIA2 28 1 .04877 PTRIA2 29 1 .04293 PTRIA2 30 1 .03390 PTRIA2 31 1 .02023 PTRIA2 32 1 .00963 PTRIA2 33 1 .02363 PTRIA2 34 1 .04273 PTRIA2 35 1 .03977 PTRIA2 36 1 .06260 PTRIA2 37 1 .05863 PTRIA2 38 1 .07160 PTRIA2 39 1 .06707 PTRIA2 40 1 .07400 PTRIA2 41 1 .06923 PTRIA2 42 1 .06910 PTRIA2 43 1 .06850 PTRIA2 44 1 .06057 PTRIA2 45 1 .05280 PTRIA2 46 1 .04220 PTRIA2 47 1 .02500 PTRIA2 48 1 .01207 PTRIA2 49 1 .02780 PTRIA2 50 1 .04730 PTRIA2 51 1 .05020 PTRIA2 52 1 .07393 PTRIA2 53 1 .07003 PTRIA2 54 1 .07890 PTRIA2 55 1 .08777 PTRIA2 56 1 .08443 PTRIA2 57 1 .08887 PTRIA2 58 1 .08297 PTRIA2 59 1 .08140 PTRIA2 60 1 .07273 PTRIA2 61 1 .06277 PTRIA2 62 1 .05077 PTRIA2 63 1 .02983 PTRIA2 64 1 .01467 PTRIA2 65 1 .03187 PTRIA2 66 1 .04680 PTRIA2 67 1 .07307 PTRIA2 68 1 .07707 PTRIA2 69 1 .09197 PTRIA2 70 1 .09173 PTRIA2 71 1 .10140 PTRIA2 72 1 .09827 PTRIA2 73 1 .10277 PTRIA2 74 1 .09670 PTRIA2 75 1 .09440 PTRIA2 76 1 .08500 PTRIA2 77 1 .07300 PTRIA2 78 1 .05943 PTRIA2 79 1 .03483 PTRIA2 80 1 .01723 PTRIA2 81 1 .03637 PTRIA2 82 1 .05337 PTRIA2 83 1 .08310 PTRIA2 84 1 .08787 PTRIA2 85 1 .10477 PTRIA2 86 1 .10487 PTRIA2 87 1 .11580 PTRIA2 88 1 .11257 PTRIA2 89 1 .11757 PTRIA2 90 1 .11090 PTRIA2 91 1 .10817 PTRIA2 92 1 .09773 PTRIA2 93 1 .08390 PTRIA2 94 1 .06857 PTRIA2 95 1 .04017 PTRIA2 96 1 .02000 PTRIA2 97 1 .04190 PTRIA2 98 1 .06107 PTRIA2 99 1 .09537 PTRIA2 100 1 .10040 PTRIA2 101 1 .12033 PTRIA2 102 1 .11993 PTRIA2 103 1 .13323 PTRIA2 104 1 .12900 PTRIA2 105 1 .13550 PTRIA2 106 1 .12730 PTRIA2 107 1 .12473 PTRIA2 108 1 .11227 PTRIA2 109 1 .09677 PTRIA2 110 1 .07883 PTRIA2 111 1 .04630 PTRIA2 112 1 .02297 PTRIA2 113 1 .04790 PTRIA2 114 1 .07000 PTRIA2 115 1 .10907 PTRIA2 116 1 .11527 PTRIA2 117 1 .13790 PTRIA2 118 1 .13793 PTRIA2 119 1 .15300 PTRIA2 120 1 .14870 PTRIA2 121 1 .15617 PTRIA2 122 1 .14720 PTRIA2 123 1 .14463 PTRIA2 124 1 .13037 PTRIA2 125 1 .11300 PTRIA2 126 1 .09187 PTRIA2 127 1 .06993 PTRIA2 128 1 .04230 PTRIA2 129 1 .01937 PTRIA2 130 1 .05410 PTRIA2 131 1 .07907 PTRIA2 132 1 .12273 PTRIA2 133 1 .13063 PTRIA2 134 1 .15583 PTRIA2 135 1 .15690 PTRIA2 136 1 .17377 PTRIA2 137 1 .16983 PTRIA2 138 1 .17853 PTRIA2 139 1 .16917 PTRIA2 140 1 .16647 PTRIA2 141 1 .15090 PTRIA2 142 1 .10750 PTRIA2 143 1 .13113 PTRIA2 144 1 .12383 PTRIA2 145 1 .06393 PTRIA2 146 1 .08037 PTRIA2 147 1 .07120 PTRIA2 148 1 .09103 PTRIA2 149 1 .01970 PTRIA2 150 1 .03663 PTRIA2 151 1 .02113 PTRIA2 152 1 .03927 PTRIA2 153 1 .06227 PTRIA2 154 1 .09003 PTRIA2 155 1 .14073 PTRIA2 156 1 .14847 PTRIA2 157 1 .17940 PTRIA2 158 1 .17887 PTRIA2 159 1 .20047 PTRIA2 160 1 .19430 PTRIA2 161 1 .20483 PTRIA2 162 1 .19300 PTRIA2 163 1 .18800 PTRIA2 164 1 .17083 PTRIA2 165 1 .12680 PTRIA2 166 1 .14623 PTRIA2 167 1 .12853 PTRIA2 168 1 .07737 PTRIA2 169 1 .09420 PTRIA2 170 1 .07600 PTRIA2 171 1 .09090 PTRIA2 172 1 .02237 PTRIA2 173 1 .04063 PTRIA2 174 1 .02237 PTRIA2 175 1 .04090 PTRIA2 176 1 .07267 PTRIA2 177 1 .10533 PTRIA2 178 1 .16657 PTRIA2 179 1 .17420 PTRIA2 180 1 .21267 PTRIA2 181 1 .21013 PTRIA2 182 1 .23567 PTRIA2 183 1 .22653 PTRIA2 184 1 .23553 PTRIA2 185 1 .22000 PTRIA2 186 1 .20763 PTRIA2 187 1 .18747 PTRIA2 188 1 .12633 PTRIA2 189 1 .15213 PTRIA2 190 1 .12827 PTRIA2 191 1 .07373 PTRIA2 192 1 .08800 PTRIA2 193 1 .07187 PTRIA2 194 1 .08633 PTRIA2 195 1 .02223 PTRIA2 196 1 .04017 PTRIA2 197 1 .02113 PTRIA2 198 1 .03857 PTRIA2 199 1 .07367 PTRIA2 200 1 .12303 PTRIA2 201 1 .18327 PTRIA2 202 1 .21377 PTRIA2 203 1 .23553 PTRIA2 204 1 .25797 PTRIA2 205 1 .26063 PTRIA2 206 1 .27393 PTRIA2 207 1 .25797 PTRIA2 208 1 .25653 PTRIA2 209 1 .22173 PTRIA2 210 1 .20550 PTRIA2 211 1 .12690 PTRIA2 212 1 .15470 PTRIA2 213 1 .12620 PTRIA2 214 1 .08497 PTRIA2 215 1 .06900 PTRIA2 216 1 .08243 PTRIA2 217 1 .06653 PTRIA2 218 1 .03707 PTRIA2 219 1 .01923 PTRIA2 220 1 .03527 PTRIA2 221 1 .01803 PTRIA2 222 1 .08143 PTRIA2 223 1 .13560 PTRIA2 224 1 .20770 PTRIA2 225 1 .23597 PTRIA2 226 1 .26447 PTRIA2 227 1 .28117 PTRIA2 228 1 .28797 PTRIA2 229 1 .29323 PTRIA2 230 1 .27777 PTRIA2 231 1 .26773 PTRIA2 232 1 .23027 PTRIA2 233 1 .20870 PTRIA2 234 1 .12567 PTRIA2 235 1 .15577 PTRIA2 236 1 .12690 PTRIA2 237 1 .08110 PTRIA2 238 1 .06640 PTRIA2 239 1 .08210 PTRIA2 240 1 .06740 PTRIA2 241 1 .03460 PTRIA2 242 1 .01817 PTRIA2 243 1 .03527 PTRIA2 244 1 .01850 PTRIA2 245 1 .08470 PTRIA2 246 1 .14377 PTRIA2 247 1 .22293 PTRIA2 248 1 .25577 PTRIA2 249 1 .28550 PTRIA2 250 1 .31427 PTRIA2 251 1 .31520 PTRIA2 252 1 .34400 PTRIA2 253 1 .31200 PTRIA2 254 1 .33630 PTRIA2 255 1 .27047 PTRIA2 256 1 .28763 PTRIA2 257 1 .19700 PTRIA2 258 1 .17977 PTRIA2 259 1 .09497 PTRIA2 260 1 .06357 PTRIA2 261 1 .01923 PTRIA2 262 1 .09560 PTRIA2 263 1 .17233 PTRIA2 264 1 .25333 PTRIA2 265 1 .31430 PTRIA2 266 1 .39720 PTRIA2 267 1 .38410 PTRIA2 268 1 .48943 PTRIA2 269 1 .46790 PTRIA2 270 1 .54337 PTRIA2 271 1 .58850 PTRIA2 272 1 .61167 PTRIA2 273 1 .49710 PTRIA2 274 1 .61533 PTRIA2 275 1 .51933 PTRIA2 276 1 .37560 PTRIA2 277 1 .31070 PTRIA2 278 1 .20550 PTRIA2 279 1 .10433 PTRIA2 280 1 .16253 PTRIA2 281 1 .29247 PTRIA2 282 1 .36323 PTRIA2 283 1 .50120 PTRIA2 284 1 .52317 PTRIA2 285 1 .67620 PTRIA2 286 1 .64723 PTRIA2 287 1 .72723 PTRIA2 288 1 .65833 PTRIA2 289 1 .76263 PTRIA2 290 1 .71047 PTRIA2 291 1 .80953 PTRIA2 292 1 .76303 PTRIA2 293 1 .85827 PTRIA2 294 1 .90487 PTRIA2 295 1 .83280 PTRIA2 296 1 .86773 PTRIA2 297 1 .76483 PTRIA2 298 1 .60217 PTRIA2 299 1 .83203 PTRIA2 300 1 .64773 PTRIA2 301 1 .93570 PTRIA2 302 1 .90603 PTRIA2 303 1 .99047 PTRIA2 304 1 1.02140 PTRIA2 305 1 1.01607 PTRIA2 306 1 1.03707 PTRIA2 307 1 .89447 PTRIA2 308 1 .97073 PTRIA2 309 1 .43940 PTRIA2 310 1 .62880 PTRIA2 311 1 .45607 PTRIA2 312 1 .62880 PTRIA2 313 1 .89447 PTRIA2 314 1 .97073 PTRIA2 315 1 1.06800 PTRIA2 316 1 1.08900 PTRIA2 317 1 1.08900 PTRIA2 318 1 1.06800 PTRIA2 319 1 .97073 PTRIA2 320 1 .89447 PTRIA2 321 1 .62880 PTRIA2 322 1 .43940 PTRIA2 323 1 .43940 PTRIA2 324 1 .62880 PTRIA2 325 1 .89447 PTRIA2 326 1 .97073 PTRIA2 327 1 1.06800 PTRIA2 328 1 1.08900 PTRIA2 329 1 1.08900 PTRIA2 330 1 1.06800 PTRIA2 331 1 .97073 PTRIA2 332 1 .89447 PTRIA2 333 1 .62880 PTRIA2 334 1 .43940 PTRIA2 335 1 .55867 PTRIA2 336 1 .70640 PTRIA2 337 1 1.06620 PTRIA2 338 1 1.06487 PTRIA2 339 1 1.13913 PTRIA2 340 1 1.06600 PTRIA2 341 1 1.06600 PTRIA2 342 1 1.13913 PTRIA2 343 1 1.06487 PTRIA2 344 1 1.06620 PTRIA2 345 1 .70640 PTRIA2 346 1 .55867 SEQGP 1 9 2 8 3 7 4 4 SEQGP 5 2 6 1 7 10 8 11 SEQGP 9 20 10 19 11 18 12 17 SEQGP 13 16 14 15 15 12 16 5 SEQGP 17 3 18 21 19 30 20 29 SEQGP 21 28 22 27 23 26 24 25 SEQGP 25 22 26 13 27 6 28 39 SEQGP 29 38 30 37 31 36 32 35 SEQGP 33 34 34 31 35 23 36 14 SEQGP 37 47 38 48 39 46 40 45 SEQGP 41 44 42 43 43 40 44 32 SEQGP 45 24 46 56 47 57 48 55 SEQGP 49 54 50 53 51 52 52 49 SEQGP 53 41 54 33 55 66 56 67 SEQGP 57 65 58 64 59 63 60 62 SEQGP 61 58 62 50 63 42 64 76 SEQGP 65 77 66 75 67 74 68 73 SEQGP 69 72 70 68 71 59 72 51 SEQGP 73 86 74 87 75 85 76 84 SEQGP 77 83 78 82 79 78 80 69 SEQGP 81 61 82 60 83 79 84 71 SEQGP 85 70 86 88 87 99 88 98 SEQGP 89 97 90 96 91 95 92 91 SEQGP 93 92 94 81 95 80 96 103 SEQGP 97 94 98 93 99 89 100 100 SEQGP 101 110 102 109 103 108 104 107 SEQGP 105 104 106 114 107 106 108 105 SEQGP 109 115 110 118 111 117 112 90 SEQGP 113 101 114 111 115 121 116 120 SEQGP 117 119 118 116 119 127 120 128 SEQGP 121 132 122 130 123 139 124 145 SEQGP 125 102 126 112 127 122 128 134 SEQGP 129 133 130 129 131 131 132 142 SEQGP 133 150 134 157 135 144 136 156 SEQGP 137 169 138 113 139 123 140 135 SEQGP 141 146 142 140 143 141 144 143 SEQGP 145 154 146 167 147 179 148 124 SEQGP 149 136 150 147 151 151 152 152 SEQGP 153 153 154 155 155 166 156 178 SEQGP 157 125 158 137 159 148 160 158 SEQGP 161 160 162 161 163 162 164 163 SEQGP 165 165 166 164 167 168 168 170 SEQGP 169 172 170 173 171 174 172 175 SEQGP 173 176 174 177 175 126 176 149 SEQGP 177 159 178 171 179 180 180 182 SEQGP 181 183 182 184 183 185 184 186 SEQGP 185 181 186 187 187 190 188 191 SEQGP 189 192 190 193 191 194 192 188 SEQGP 193 195 194 197 195 198 196 199 SEQGP 197 200 198 201 199 189 200 196 SEQGP 201 202 202 203 203 204 204 205 SEQGP 205 206 206 138 SPC1 1 5 17 27 36 14 10 45 SPC1 1 5 23 54 37 112 146 185 SPC1 1 5 186 192 187 188 189 190 SPC1 1 5 191 193 194 195 196 197 SPC1 1 5 198 SPC1 1 123456 199 THRU 205 PARAM LMODES 5 PARAM KGGIN -1 AERO* 0 0.91639E+04 0.28149E+01 0.91790E-07 *AERO *AERO PARAM CYCIO -1 PARAM IREF 60 PARAM MAXMACH 0.950 PARAM MINMACH 1.010 PARAM NSEGS 8 PARAM RPS 133.33 PARAM* Q 0.3854121E+01 *PARAMQ *PARAMQ PARAM* BOV 0.1535890E-03 *PARAMB *PARAMB STREAML1 10 175 177 163 166 156 STREAML2 10 5 7.79 4.032 0.322 2.085 0.786.9179- 7+2 10 +2 10 10316.6 -14.88 STREAML1 20 138 140 129 131 121 STREAML2 20 5 17.14 4.675 0.108 3.508 0.827.9179- 7+2 20 +2 20 10859.5 -12.13 STREAML1 30 99 101 103 105 111 STREAML2 30 5 18.27 4.876 -0.178 4.955 0.877.9179- 7+2 30 +2 30 11513.1 6.97 STREAML1 40 64 75 77 92 108 STREAML2 40 5 18.50 4.529 -0.312 6.339 0.826.9179- 7+2 40 +2 40 10848.5 26.04 STREAML1 50 37 49 60 70 82 STREAML2 50 5 21.10 3.799 -0.408 7.703 0.742.9179- 7+2 50 +2 50 9745.6 40.02 STREAML1 60 18 21 33 44 54 STREAML2 60 5 24.78 2.815 -0.570 8.894 0.698.9179- 7+2 60 +2 60 9163.9 47.18 STREAML1 70 1 13 14 15 27 STREAML2 70 5 31.02 1.805 -0.570 9.716 0.834.9179- 7+2 70 +2 70 10952.6 40.07 FREQ 1 133.3 MKAERO2 -45.000 0.129 PARAM KMAX 0 PARAM KMIN 0 RLOAD1 1000 11 12 13 TABLED1*13 *TB13A *TB13A *TB13B *TB13B 0.0 0.0 133.19667 0.0 *TB13C *TB13C 133.19667 1.0 133.46333 1.0 *TB13D *TB13D 133.46333 0.0 1.0E10 0.0 *TB13E *TB13E ENDT DAREA* 11 175 1 0.16697867E+00 DPHASE* 12 175 1 38.30 DAREA* 11 175 2 0.11229591E+01 DPHASE* 12 175 2 -141.70 DAREA* 11 175 3 0.11429680E+00 DPHASE* 12 175 3 -141.70 DAREA* 11 177 1 0.15455769E+00 DPHASE* 12 177 1 47.47 DAREA* 11 177 2 0.10394259E+01 DPHASE* 12 177 2 -132.53 DAREA* 11 177 3 0.10579464E+00 DPHASE* 12 177 3 -132.53 DAREA* 11 163 1 0.91613639E-01 DPHASE* 12 163 1 62.64 DAREA* 11 163 2 0.61611682E+00 DPHASE* 12 163 2 -117.36 DAREA* 11 163 3 0.62709480E-01 DPHASE* 12 163 3 -117.36 DAREA* 11 166 1 0.68733418E-01 DPHASE* 12 166 1 73.66 DAREA* 11 166 2 0.46224357E+00 DPHASE* 12 166 2 -106.34 DAREA* 11 166 3 0.47047983E-01 DPHASE* 12 166 3 -106.34 DAREA* 11 156 1 0.21958183E-01 DPHASE* 12 156 1 84.65 DAREA* 11 156 2 0.14767240E+00 DPHASE* 12 156 2 -95.35 DAREA* 11 156 3 0.15030363E-01 DPHASE* 12 156 3 -95.35 DAREA* 11 138 1 0.57418266E+00 DPHASE* 12 138 1 16.20 DAREA* 11 138 2 0.19500249E+01 DPHASE* 12 138 2 -163.80 DAREA* 11 138 3 0.20845945E+00 DPHASE* 12 138 3 -163.80 DAREA* 11 140 1 0.60323770E+00 DPHASE* 12 140 1 29.39 DAREA* 11 140 2 0.20487010E+01 DPHASE* 12 140 2 -150.61 DAREA* 11 140 3 0.21900801E+00 DPHASE* 12 140 3 -150.61 DAREA* 11 129 1 0.33933484E+00 DPHASE* 12 129 1 55.33 DAREA* 11 129 2 0.11524406E+01 DPHASE* 12 129 2 -124.67 DAREA* 11 129 3 0.12319696E+00 DPHASE* 12 129 3 -124.67 DAREA* 11 131 1 0.21757333E+00 DPHASE* 12 131 1 75.16 DAREA* 11 131 2 0.73891717E+00 DPHASE* 12 131 2 -104.84 DAREA* 11 131 3 0.78990923E-01 DPHASE* 12 131 3 -104.84 DAREA* 11 121 1 0.68323975E-01 DPHASE* 12 121 1 88.12 DAREA* 11 121 2 0.23204020E+00 DPHASE* 12 121 2 -91.88 DAREA* 11 121 3 0.24805310E-01 DPHASE* 12 121 3 -91.88 DAREA* 11 99 1 0.52604476E+00 DPHASE* 12 99 1 -7.05 DAREA* 11 99 2 0.15372548E+01 DPHASE* 12 99 2 172.95 DAREA* 11 99 3 0.14154789E+00 DPHASE* 12 99 3 172.95 DAREA* 11 101 1 0.60993456E+00 DPHASE* 12 101 1 8.77 DAREA* 11 101 2 0.17824051E+01 DPHASE* 12 101 2 -171.23 DAREA* 11 101 3 0.16412092E+00 DPHASE* 12 101 3 -171.23 DAREA* 11 103 1 0.34096106E+00 DPHASE* 12 103 1 37.70 DAREA* 11 103 2 0.99638677E+00 DPHASE* 12 103 2 -142.30 DAREA* 11 103 3 0.91745648E-01 DPHASE* 12 103 3 -142.30 DAREA* 11 105 1 0.16581230E+00 DPHASE* 12 105 1 61.75 DAREA* 11 105 2 0.48455145E+00 DPHASE* 12 105 2 -118.25 DAREA* 11 105 3 0.44616697E-01 DPHASE* 12 105 3 -118.25 DAREA* 11 111 1 0.35667474E-01 DPHASE* 12 111 1 77.85 DAREA* 11 111 2 0.10423067E+00 DPHASE* 12 111 2 -102.15 DAREA* 11 111 3 0.95973878E-02 DPHASE* 12 111 3 -102.15 DAREA* 11 64 1 0.60110915E+00 DPHASE* 12 64 1 8.85 DAREA* 11 64 2 0.14405499E+01 DPHASE* 12 64 2 -171.15 DAREA* 11 64 3 0.54113474E-01 DPHASE* 12 64 3 8.85 DAREA* 11 75 1 0.66993644E+00 DPHASE* 12 75 1 17.25 DAREA* 11 75 2 0.16054936E+01 DPHASE* 12 75 2 -162.75 DAREA* 11 75 3 0.60309493E-01 DPHASE* 12 75 3 17.25 DAREA* 11 77 1 0.37152123E+00 DPHASE* 12 77 1 35.10 DAREA* 11 77 2 0.89034558E+00 DPHASE* 12 77 2 -144.90 DAREA* 11 77 3 0.33445348E-01 DPHASE* 12 77 3 35.10 DAREA* 11 92 1 0.20735313E+00 DPHASE* 12 92 1 53.41 DAREA* 11 92 2 0.49691896E+00 DPHASE* 12 92 2 -126.59 DAREA* 11 92 3 0.18666491E-01 DPHASE* 12 92 3 53.41 DAREA* 11 108 1 0.55394205E-01 DPHASE* 12 108 1 68.02 DAREA* 11 108 2 0.13275146E+00 DPHASE* 12 108 2 -111.98 DAREA* 11 108 3 0.49867364E-02 DPHASE* 12 108 3 68.02 DAREA* 11 37 1 0.79817915E+00 DPHASE* 12 37 1 25.97 DAREA* 11 37 2 0.14759277E+01 DPHASE* 12 37 2 -154.03 DAREA* 11 37 3 0.20008119E+00 DPHASE* 12 37 3 25.97 DAREA* 11 49 1 0.71490322E+00 DPHASE* 12 49 1 31.01 DAREA* 11 49 2 0.13219407E+01 DPHASE* 12 49 2 -148.99 DAREA* 11 49 3 0.17920624E+00 DPHASE* 12 49 3 31.01 DAREA* 11 60 1 0.27469639E+00 DPHASE* 12 60 1 40.23 DAREA* 11 60 2 0.50794615E+00 DPHASE* 12 60 2 -139.77 DAREA* 11 60 3 0.68858701E-01 DPHASE* 12 60 3 40.23 DAREA* 11 70 1 0.17440697E+00 DPHASE* 12 70 1 49.76 DAREA* 11 70 2 0.32249913E+00 DPHASE* 12 70 2 -130.24 DAREA* 11 70 3 0.43718948E-01 DPHASE* 12 70 3 49.76 DAREA* 11 82 1 0.67720352E-01 DPHASE* 12 82 1 59.47 DAREA* 11 82 2 0.12522295E+00 DPHASE* 12 82 2 -120.53 DAREA* 11 82 3 0.16975598E-01 DPHASE* 12 82 3 59.47 DAREA* 11 18 1 0.40443266E+00 DPHASE* 12 18 1 34.14 DAREA* 11 18 2 0.63937426E+00 DPHASE* 12 18 2 -145.86 DAREA* 11 18 3 0.13156524E+00 DPHASE* 12 18 3 34.14 DAREA* 11 21 1 0.61634525E+00 DPHASE* 12 21 1 36.35 DAREA* 11 21 2 0.97439037E+00 DPHASE* 12 21 2 -143.65 DAREA* 11 21 3 0.20050213E+00 DPHASE* 12 21 3 36.35 DAREA* 11 33 1 0.38572686E+00 DPHASE* 12 33 1 41.14 DAREA* 11 33 2 0.60980195E+00 DPHASE* 12 33 2 -138.86 DAREA* 11 33 3 0.12548009E+00 DPHASE* 12 33 3 41.14 DAREA* 11 44 1 0.16265719E+00 DPHASE* 12 44 1 47.73 DAREA* 11 44 2 0.25714743E+00 DPHASE* 12 44 2 -132.27 DAREA* 11 44 3 0.52913708E-01 DPHASE* 12 44 3 47.73 DAREA* 11 54 1 0.36674013E-01 DPHASE* 12 54 1 56.96 DAREA* 11 54 2 0.57978552E-01 DPHASE* 12 54 2 -123.04 DAREA* 11 54 3 0.11930355E-01 DPHASE* 12 54 3 56.96 DAREA* 11 1 1 0.30489490E+00 DPHASE* 12 1 1 30.96 DAREA* 11 1 2 0.43567597E+00 DPHASE* 12 1 2 -149.04 DAREA* 11 1 3 0.99471353E-01 DPHASE* 12 1 3 30.96 DAREA* 11 13 1 0.23555727E+00 DPHASE* 12 13 1 33.94 DAREA* 11 13 2 0.33659678E+00 DPHASE* 12 13 2 -146.06 DAREA* 11 13 3 0.76850090E-01 DPHASE* 12 13 3 33.94 DAREA* 11 14 1 0.78612371E-01 DPHASE* 12 14 1 38.54 DAREA* 11 14 2 0.11233222E+00 DPHASE* 12 14 2 -141.46 DAREA* 11 14 3 0.25647129E-01 DPHASE* 12 14 3 38.54 DAREA* 11 15 1 0.10624694E+00 DPHASE* 12 15 1 43.11 DAREA* 11 15 2 0.15182032E+00 DPHASE* 12 15 2 -136.89 DAREA* 11 15 3 0.34662853E-01 DPHASE* 12 15 3 43.11 DAREA* 11 27 1 0.48804804E-01 DPHASE* 12 27 1 49.89 DAREA* 11 27 2 0.69739050E-01 DPHASE* 12 27 2 -130.11 DAREA* 11 27 3 0.15922470E-01 DPHASE* 12 27 3 49.89 ENDDATA ================================================ FILE: inp/t09051a.inp ================================================ ID T09051A,NASTRAN APP AERO SOL 9 DIAG 14 TIME 20 CEND TITLE = MODAL FLUTTER ANALYSIS OF A ROTOR BLADE SUBTITLE = NASTRAN TEST PROBLEM NO. T09-05-1A SPC = 500 MPC = 600 FMETHOD = 30 METHOD = 10 CMETHOD = 20 DISP = ALL OUTPUT(XYOUT) XTITLE = VELOCITY-V YTTITLE = DAMPING-G YBTITLE = FREQUENCY-F XYPAPERPLOT VG /1(G,F),4(G,F),7(G,F)/2(G,F),5(G,F),8(G,F)/ 3(G,F),6(G,F),9(G,F) BEGIN BULK AERO 0 1.3+4 1.86958 1.507-6 CHEXA1 201 1 101 103 104 108 113 115 +CH1 +CH1 116 120 CHEXA1 202 1 108 104 105 107 120 116 +CH2 +CH2 117 119 CHEXA1 203 1 121 123 124 128 101 103 +CH3 +CH3 104 108 CHEXA1 204 1 128 124 125 127 108 104 +CH4 +CH4 105 107 CORD2C 1 0. 0. 0. 1.0 0. 0. +CD1 +CD1 0. 0. 1. CTRIA2 1 2000 1 5 4 CTRIA2 2 2000 1 2 5 CTRIA2 3 2005 2 6 5 CTRIA2 4 2005 2 3 6 CTRIA2 5 2010 4 8 7 CTRIA2 6 2010 4 5 8 CTRIA2 7 2015 5 9 8 CTRIA2 8 2015 5 6 9 CTRIA2 9 2020 7 11 10 CTRIA2 10 2020 7 8 11 CTRIA2 11 2025 8 12 11 CTRIA2 12 2025 8 9 12 CYJOIN 1 121 101 113 123 103 115 CYJOIN 2 127 107 119 125 105 117 EIGC 20 HESS MAX +EIGC20 +EIGC20 4 EIGR 10 INV 200.0 2000.0 8 5 +EIGR10 +EIGR10 MAX FLFACT 1 .059164 .118328 .177492 FLFACT 2 180.0 FLFACT 3 0.3 0.7 1.0 FLUTTER 30 K 1 2 3 L 4 GRID 1 -0.8979 -0.2814 3.7712 GRID 2 0.0001 0.0516 4.0003 GRID 3 0.8981 -0.2461 4.1795 GRID 4 -0.7726 -0.4744 5.4413 GRID 5 -0.0031 0.0228 5.5033 GRID 6 0.7797 0.2247 5.4889 GRID 7 -0.6646 -0.7082 7.3062 GRID 8 -0.0157 0.0164 7.4058 GRID 9 0.6303 0.5962 7.3237 GRID 10 -0.5237 -1.1552 9.8520 GRID 11 -0.0320 -0.0656 10.0079 GRID 12 0.4130 0.7329 9.9093 GRID 101 1 2.375 4.186 -0.987 1 GRID 103 1 2.375 4.186 0.987 1 GRID 104 1 2.375 0.0 0.987 1 GRID 105 1 2.375 -4.186 0.987 1 GRID 107 1 2.375 -4.186 -0.987 1 GRID 108 1 2.375 0.0 -0.987 1 GRID 113 1 3.982 4.186 -0.987 1 GRID 115 1 4.539 4.186 0.987 1 GRID 116 1 4.539 0.0 0.987 GRID 117 1 4.539 -4.186 0.987 1 GRID 119 1 3.982 -4.186 -0.987 1 GRID 120 1 3.982 0.0 -0.987 GRID 121 1 0.905 4.186 -0.987 1 GRID 123 1 0.905 4.186 0.987 1 GRID 124 1 0.905 0.0 0.987 1 GRID 125 1 0.905 -4.186 0.987 1 GRID 127 1 0.905 -4.186 -0.987 1 GRID 128 1 0.905 0.0 -0.987 1 MAT1 1 31.0E6 0.3 7.300E-4 MKAERO1 180.0 +MKA1 +MKA1 0.3 0.7 1.0 MPC 600 1 1 1.0 2 1 -1.0 MPC 600 1 2 1.0 2 2 -1.0 MPC 600 1 3 1.0 2 3 -1.0 MPC 600 1 4 1.0 2 4 -1.0 MPC 600 1 5 1.0 2 5 -1.0 MPC 600 1 6 1.0 2 6 -1.0 MPC 600 3 1 1.0 2 1 -1.0 MPC 600 3 2 1.0 2 2 -1.0 MPC 600 3 3 1.0 2 3 -1.0 MPC 600 3 4 1.0 2 4 -1.0 MPC 600 3 5 1.0 2 5 -1.0 MPC 600 3 6 1.0 2 6 -1.0 MPC 600 116 1 1.0 2 1 -1.0 MPC 600 116 2 1.0 2 2 -1.0 MPC 600 116 3 1.0 2 3 -1.0 MPC 600 120 1 1.0 2 1 -1.0 MPC 600 120 2 1.0 2 2 -1.0 MPC 600 120 3 1.0 2 3 -1.0 PARAM CTYPE ROT PARAM IREF 4 PARAM KGGIN -1 PARAM KINDEX 0 PARAM LMODES 4 PARAM MAXMACH 0.90 PARAM MINMACH 1.00 PARAM MTYPE COSINE PARAM NSEGS 43 PARAM PRINT YESB PTRIA2 2000 1 0.1040 0. PTRIA2 2005 1 0.1040 0. PTRIA2 2010 1 0.0707 0. PTRIA2 2015 1 0.0707 0. PTRIA2 2020 1 0.0422 0. PTRIA2 2025 1 0.0422 0. SPC1 500 23 121 123 124 125 127 128 SPC1 500 45 7 10 12 SPC1 500 456 101 103 104 105 107 108 SPC1 500 456 113 115 116 117 119 120 SPC1 500 456 121 123 124 125 127 128 STREAML1 1 1 2 3 STREAML1 2 4 5 6 STREAML1 3 7 8 9 STREAML1 4 10 11 12 STREAML2 1 3 2.739 1.79600 3.98420 0.582170.6568460.069472+STRL 1 +STRL 1 719.0 47.423 STREAML2 2 3 23.534 1.85044 6.06853 0.886740.9343880.066610+STRL 2 +STRL 2 1014.2 55.107 STREAML2 3 3 44.697 1.86419 8.07620 1.180101.1936660.064685+STRL 3 +STRL 3 1288.1 60.380 STREAML2 4 3 62.028 1.86958 9.92791 1.450671.5022760.059201+STRL 4 +STRL 4 1592.6 60.687 ENDDATA ================================================ FILE: inp/t09061a.inp ================================================ NASTRAN SYSTEM(93)=1, FILES=PLT2 ID T09061A,NASTRAN APP AERO SOL 9 DIAG 14 TIME 1000 CEND TITLE = MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP SUBTITLE = NASTRAN TEST PROBLEM NO. T09-06-1A LABEL = 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO. $ SPC = 1 METHOD = 1 FMETHOD = 1 $ OUTPUT(XYOUT) $ PLOTTER NASTPLT D,0 XPAPER = 8.5 YPAPER = 11.0 YAXIS = YES XINTERCEPT = 7046.0 $ OPERATING VELOCITY XTAXIS = YES XBAXIS = YES CURVELINESYMBOL = 6 XDIVISIONS = 10 YTDIVISIONS = 10 YBDIVISIONS = 10 YTGRID LINES = YES YBGRID LINES = YES XTGRID LINES = YES XBGRID LINES = YES XTITLE = VELOCITY VSBAR , IN/SEC....REF VSBAR = 7046 IN/SEC, CASE 3 YTTITLE = DAMPING G YBTITLE = FREQUENCY F, HZ TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=0.0 XYPLOT,XYPRINT VG/ 1(G,F), 2(G,F), 3(G,F), 4(G,F), 5(G,F), 6(G,F) TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=36.0 XYPLOT,XYPRINT VG/ 7(G,F), 8(G,F), 9(G,F),10(G,F),11(G,F),12(G,F) TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=72.0 XYPLOT,XYPRINT VG/13(G,F),14(G,F),15(G,F),16(G,F),17(G,F),18(G,F) TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=108.0 XYPLOT,XYPRINT VG/19(G,F),20(G,F),21(G,F),22(G,F),23(G,F),24(G,F) TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=144.0 XYPLOT,XYPRINT VG/25(G,F),26(G,F),27(G,F),28(G,F),29(G,F),30(G,F) TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=180.0 XYPLOT,XYPRINT VG/31(G,F),32(G,F),33(G,F),34(G,F),35(G,F),36(G,F) TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-144.0 XYPLOT,XYPRINT VG/37(G,F),38(G,F),39(G,F),40(G,F),41(G,F),42(G,F) TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-108.0 XYPLOT,XYPRINT VG/43(G,F),44(G,F),45(G,F),46(G,F),47(G,F),48(G,F) TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-72.0 XYPLOT,XYPRINT VG/49(G,F),50(G,F),51(G,F),52(G,F),53(G,F),54(G,F) TCURVE = K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-36.0 XYPLOT,XYPRINT VG/55(G,F),56(G,F),57(G,F),58(G,F),59(G,F),60(G,F) BEGIN BULK CORD2R 1 0.0 0.0 0.0 -.0277 -.9996 0.0 +C2R1 +C2R1 .9996 -.0277 0.0 GRDSET 1 1 GRID* 1 2.419817E+00 1.244079E+01*GD 1 *GD 1 -2.031032E+00 GRID* 2 2.457173E+00 1.238143E+01*GD 2 *GD 2 -2.058249E+00 GRID* 3 2.551602E+00 1.225216E+01*GD 3 *GD 3 -2.114527E+00 GRID* 4 2.683628E+00 1.202870E+01*GD 4 *GD 4 -2.173213E+00 GRID* 5 2.865225E+00 1.172653E+01*GD 5 *GD 5 -2.216011E+00 GRID* 6 2.990463E+00 1.158475E+01*GD 6 *GD 6 -2.254392E+00 GRID* 7 3.126074E+00 1.140011E+01*GD 7 *GD 7 -2.266630E+00 GRID* 8 2.194761E+00 1.228047E+01*GD 8 *GD 8 -1.843213E+00 GRID* 9 2.250464E+00 1.216055E+01*GD 9 *GD 9 -1.876635E+00 GRID* 10 2.377542E+00 1.206568E+01*GD 10 *GD 10 -1.963854E+00 GRID* 11 2.548495E+00 1.179959E+01*GD 11 *GD 11 -2.027197E+00 GRID* 12 2.733165E+00 1.150046E+01*GD 12 *GD 12 -2.066389E+00 GRID* 13 2.832836E+00 1.132142E+01*GD 13 *GD 13 -2.069136E+00 GRID* 14 2.996484E+00 1.108674E+01*GD 14 *GD 14 -2.097482E+00 GRID* 15 1.964924E+00 1.211923E+01*GD 15 *GD 15 -1.666834E+00 GRID* 16 2.043783E+00 1.199233E+01*GD 16 *GD 16 -1.720535E+00 GRID* 17 2.109893E+00 1.187122E+01*GD 17 *GD 17 -1.744548E+00 GRID* 18 2.348317E+00 1.154853E+01*GD 18 *GD 18 -1.835006E+00 GRID* 19 2.540135E+00 1.125291E+01*GD 19 *GD 19 -1.870254E+00 GRID* 20 2.675576E+00 1.106813E+01*GD 20 *GD 20 -1.882862E+00 GRID* 21 2.839677E+00 1.085337E+01*GD 21 *GD 21 -1.909663E+00 GRID* 22 1.631763E+00 1.188205E+01*GD 22 *GD 22 -1.396830E+00 GRID* 23 1.673820E+00 1.179605E+01*GD 23 *GD 23 -1.420859E+00 GRID* 24 1.815764E+00 1.160683E+01*GD 24 *GD 24 -1.491647E+00 GRID* 25 2.063309E+00 1.124282E+01*GD 25 *GD 25 -1.576361E+00 GRID* 26 2.302190E+00 1.087758E+01*GD 26 *GD 26 -1.640171E+00 GRID* 27 2.437845E+00 1.068192E+01*GD 27 *GD 27 -1.643727E+00 GRID* 28 2.632743E+00 1.045467E+01*GD 28 *GD 28 -1.652845E+00 GRID* 29 1.311218E+00 1.164496E+01*GD 29 *GD 29 -1.141120E+00 GRID* 30 1.360893E+00 1.154351E+01*GD 30 *GD 30 -1.161242E+00 GRID* 31 1.501914E+00 1.131251E+01*GD 31 *GD 31 -1.229293E+00 GRID* 32 1.786772E+00 1.089894E+01*GD 32 *GD 32 -1.340499E+00 GRID* 33 2.047144E+00 1.055134E+01*GD 33 *GD 33 -1.383823E+00 GRID* 34 2.220435E+00 1.030633E+01*GD 34 *GD 34 -1.413691E+00 GRID* 35 2.465178E+00 1.012088E+01*GD 35 *GD 35 -1.453387E+00 GRID* 36 9.178853E-01 1.134436E+01*GD 36 *GD 36 -8.344505E-01 GRID* 37 9.881784E-01 1.123093E+01*GD 37 *GD 37 -8.854066E-01 GRID* 38 1.129425E+00 1.096814E+01*GD 38 *GD 38 -9.357375E-01 GRID* 39 1.453193E+00 1.050240E+01*GD 39 *GD 39 -1.043262E+00 GRID* 40 1.781501E+00 1.010489E+01*GD 40 *GD 40 -1.113802E+00 GRID* 41 1.955276E+00 9.860262E+00*GD 41 *GD 41 -1.142711E+00 GRID* 42 2.199200E+00 9.625038E+00*GD 42 *GD 42 -1.183993E+00 GRID* 43 4.878750E-01 1.099476E+01*GD 43 *GD 43 -5.068682E-01 GRID* 44 5.593370E-01 1.085660E+01*GD 44 *GD 44 -5.470380E-01 GRID* 45 7.476242E-01 1.062701E+01*GD 45 *GD 45 -6.576909E-01 GRID* 46 1.137788E+00 1.008176E+01*GD 46 *GD 46 -8.041450E-01 GRID* 47 1.466719E+00 9.623438E+00*GD 47 *GD 47 -8.569880E-01 GRID* 48 1.670425E+00 9.369388E+00*GD 48 *GD 48 -8.965883E-01 GRID* 49 1.905910E+00 9.134694E+00*GD 49 *GD 49 -9.252617E-01 GRID* 50 -1.396976E-02 1.059563E+01*GD 50 *GD 50 -1.396792E-01 GRID* 51 7.075590E-02 1.044524E+01*GD 51 *GD 51 -2.047331E-01 GRID* 52 2.875357E-01 1.012399E+01*GD 52 *GD 52 -3.129540E-01 GRID* 53 7.360002E-01 9.570383E+00*GD 53 *GD 53 -5.007564E-01 GRID* 54 1.103680E+00 9.064291E+00*GD 54 *GD 54 -5.847520E-01 GRID* 55 1.308623E+00 8.811132E+00*GD 55 *GD 55 -6.212754E-01 GRID* 56 1.586562E+00 8.499916E+00*GD 56 *GD 56 -6.411608E-01 GRID* 57 -4.000301E-01 1.022161E+01*GD 57 *GD 57 1.274626E-01 GRID* 58 -3.109443E-01 1.007667E+01*GD 58 *GD 58 6.474346E-02 GRID* 59 -4.257504E-02 9.746097E+00*GD 59 *GD 59 -9.011447E-02 GRID* 60 4.317413E-01 9.133682E+00*GD 60 *GD 60 -2.848848E-01 GRID* 61 8.400738E-01 8.629044E+00*GD 61 *GD 61 -3.864452E-01 GRID* 62 1.075119E+00 8.326850E+00*GD 62 *GD 62 -4.330833E-01 GRID* 63 1.372284E+00 7.998097E+00*GD 63 *GD 63 -4.656390E-01 GRID* 64 -8.876041E-01 9.747480E+00*GD 64 *GD 64 4.344531E-01 GRID* 65 -7.852193E-01 9.579490E+00*GD 65 *GD 65 3.506024E-01 GRID* 66 -4.903399E-01 9.209817E+00*GD 66 *GD 66 1.900352E-01 GRID* 67 8.824563E-02 8.577651E+00*GD 67 *GD 67 -4.811718E-02 GRID* 68 5.764167E-01 8.055484E+00*GD 68 *GD 68 -1.965310E-01 GRID* 69 8.417380E-01 7.754916E+00*GD 69 *GD 69 -2.687562E-01 GRID* 70 1.127948E+00 7.304899E+00*GD 70 *GD 70 -3.480781E-01 GRID* 71 -1.340348E+00 9.248205E+00*GD 71 *GD 71 6.895647E-01 GRID* 72 -1.211896E+00 9.064268E+00*GD 72 *GD 72 5.941403E-01 GRID* 73 -8.663878E-01 8.684826E+00*GD 73 *GD 73 4.148975E-01 GRID* 74 -1.849050E-01 7.997163E+00*GD 74 *GD 74 1.370639E-01 GRID* 75 3.419222E-01 7.404170E+00*GD 75 *GD 75 -6.006306E-02 GRID* 76 6.469184E-01 7.104341E+00*GD 76 *GD 76 -1.762950E-01 GRID* 77 9.723798E-01 6.754175E+00*GD 77 *GD 77 -2.997903E-01 GRID* 78 -1.721028E+00 8.748784E+00*GD 78 *GD 78 8.876511E-01 GRID* 79 -1.560428E+00 8.580663E+00*GD 79 *GD 79 7.867939E-01 GRID* 80 -1.135652E+00 8.151909E+00*GD 80 *GD 80 5.662700E-01 GRID* 81 -4.147282E-01 7.403061E+00*GD 81 *GD 81 2.401156E-01 GRID* 82 1.852081E-01 6.753466E+00*GD 82 *GD 82 -9.743430E-03 GRID* 83 5.310093E-01 6.498033E+00*GD 83 *GD 83 -1.498038E-01 GRID* 84 9.002047E-01 6.103145E+00*GD 84 *GD 84 -2.552683E-01 GRID* 85 -2.167293E+00 7.999124E+00*GD 85 *GD 85 1.095234E+00 GRID* 86 -1.965024E+00 7.748323E+00*GD 86 *GD 86 9.662098E-01 GRID* 87 -1.447637E+00 7.370351E+00*GD 87 *GD 87 7.037064E-01 GRID* 88 -5.651237E-01 6.672748E+00*GD 88 *GD 88 2.690339E-01 GRID* 89 1.080579E-01 6.122757E+00*GD 89 *GD 89 9.317569E-03 GRID* 90 4.961708E-01 5.802341E+00*GD 90 *GD 90 -1.257418E-01 GRID* 91 9.450005E-01 5.499189E+00*GD 91 *GD 91 -2.549328E-01 GRID* 92 -2.501855E+00 6.998549E+00*GD 92 *GD 92 1.159885E+00 GRID* 93 -2.243557E+00 6.869573E+00*GD 93 *GD 93 1.004043E+00 GRID* 94 -1.663980E+00 6.498133E+00*GD 94 *GD 94 6.963711E-01 GRID* 95 -6.590906E-01 5.998307E+00*GD 95 *GD 95 2.671809E-01 GRID* 96 1.295218E-01 5.498876E+00*GD 96 *GD 96 -1.361039E-02 GRID* 97 5.590804E-01 5.251667E+00*GD 97 *GD 97 -1.359098E-01 GRID* 98 1.008383E+00 5.000014E+00*GD 98 *GD 98 -2.679553E-01 GRID* 99 -2.658578E+00 5.997640E+00*GD 99 *GD 99 1.050546E+00 GRID* 100 -2.343632E+00 5.902313E+00*GD 100 *GD 100 9.020252E-01 GRID* 101 -1.669497E+00 5.672649E+00*GD 101 *GD 101 6.170529E-01 GRID* 102 -5.963364E-01 5.302208E+00*GD 102 *GD 102 2.088603E-01 GRID* 103 1.954939E-01 4.999296E+00*GD 103 *GD 103 -4.400190E-02 GRID* 104 6.204426E-01 4.870985E+00*GD 104 *GD 104 -1.597679E-01 GRID* 105 1.050502E+00 4.750490E+00*GD 105 *GD 105 -2.685744E-01 GRID* 106 -2.496761E+00 4.997375E+00*GD 106 *GD 106 8.496489E-01 GRID* 107 -2.194051E+00 4.997557E+00*GD 107 *GD 107 7.381414E-01 GRID* 108 -1.543487E+00 4.903041E+00*GD 108 *GD 108 4.893306E-01 GRID* 109 -5.069078E-01 4.751890E+00*GD 109 *GD 109 1.591752E-01 GRID* 110 2.414709E-01 4.620979E+00*GD 110 *GD 110 -6.520444E-02 GRID* 111 6.511260E-01 4.550488E+00*GD 111 *GD 111 -1.757268E-01 GRID* 112 1.101048E+00 4.450042E+00*GD 112 *GD 112 -2.750542E-01 GRID* 113 -2.273488E+00 4.304033E+00*GD 113 *GD 113 6.919722E-01 GRID* 114 -1.994164E+00 4.303668E+00*GD 114 *GD 114 5.999017E-01 GRID* 115 -1.405457E+00 4.402983E+00*GD 115 *GD 115 3.958974E-01 GRID* 116 -4.174645E-01 4.351565E+00*GD 116 *GD 116 1.095533E-01 GRID* 117 3.215386E-01 4.300690E+00*GD 117 *GD 117 -8.331943E-02 GRID* 118 7.212664E-01 4.250240E+00*GD 118 *GD 118 -1.836711E-01 GRID* 119 1.151106E+00 4.249871E+00*GD 119 *GD 119 -2.738665E-01 GRID* 120 -1.996529E+00 3.623911E+00*GD 120 *GD 120 5.362222E-01 GRID* 121 -1.717033E+00 3.593472E+00*GD 121 *GD 121 4.447856E-01 GRID* 122 -1.167562E+00 3.662519E+00*GD 122 *GD 122 2.925791E-01 GRID* 123 -2.483512E-01 3.751040E+00*GD 123 *GD 123 4.970558E-02 GRID* 124 4.511786E-01 3.800256E+00*GD 124 *GD 124 -1.118595E-01 GRID* 125 8.409850E-01 3.799903E+00*GD 125 *GD 125 -2.023238E-01 GRID* 126 1.290810E+00 3.799548E+00*GD 126 *GD 126 -2.828727E-01 GRID* 127 -1.608941E+00 2.873360E+00*GD 127 *GD 127 3.625186E-01 GRID* 128 -1.308840E+00 2.992764E+00*GD 128 *GD 128 2.919613E-01 GRID* 129 -9.387804E-01 3.101987E+00*GD 129 *GD 129 2.111757E-01 GRID* 130 -8.885711E-02 3.300630E+00*GD 130 *GD 130 1.195536E-01 GRID* 131 5.608683E-01 3.500004E+00*GD 131 *GD 131 -1.414182E-01 GRID* 132 9.507490E-01 3.499724E+00*GD 132 *GD 132 -2.217990E-01 GRID* 133 1.369986E+00 3.600738E+00*GD 133 *GD 133 -2.995755E-01 GRID* 134 -1.368847E+00 2.576391E+00*GD 134 *GD 134 2.804042E-01 GRID* 135 -1.139708E+00 2.642426E+00*GD 135 *GD 135 2.214295E-01 GRID* 136 -7.496524E-01 2.721577E+00*GD 136 *GD 136 1.307743E-01 GRID* 137 -4.592137E-01 3.001000E+00*GD 137 *GD 137 9.034532E-02 GRID* 138 -4.695653E-01 2.760897E+00*GD 138 *GD 138 7.035846E-02 GRID* 139 -2.695652E-01 2.800594E+00*GD 139 *GD 139 3.012025E-02 GRID* 140 3.953020E-04 2.830271E+00*GD 140 *GD 140 -2.015355E-02 GRID* 141 2.705058E-01 2.980117E+00*GD 141 *GD 141 -5.050298E-02 GRID* 142 4.705606E-01 3.069980E+00*GD 142 *GD 142 -8.079284E-02 GRID* 143 7.906197E-01 3.199841E+00*GD 143 *GD 143 -1.611942E-01 GRID* 144 1.100652E+00 3.339638E+00*GD 144 *GD 144 -2.316611E-01 GRID* 145 1.475051E+00 3.454741E+00*GD 145 *GD 145 -2.780864E-01 GRID* 146 -4.697902E-01 2.440455E+00*GD 146 *GD 146 9.014469E-02 GRID* 147 -2.698651E-01 2.440315E+00*GD 147 *GD 147 4.007889E-02 GRID* 148 8.703647E-05 2.440156E+00*GD 148 *GD 148 -1.476011E-05 GRID* 149 2.700679E-01 2.440040E+00*GD 149 *GD 149 -4.009397E-02 GRID* 150 4.700607E-01 2.439936E+00*GD 150 *GD 150 -8.013493E-02 GRID* 151 -4.700000E-01 2.060000E+00*GD 151 *GD 151 8.999997E-02 GRID* 152 -2.700000E-01 2.060000E+00*GD 152 *GD 152 4.000000E-02 GRID* 153 0.0 2.060000E+00*GD 153 *GD 153 0.0 GRID* 154 2.700000E-01 2.060000E+00*GD 154 *GD 154 -4.000000E-02 GRID* 155 4.700000E-01 2.060000E+00*GD 155 *GD 155 -8.999997E-02 PQUAD2 1 1 .012 PQUAD2 2 1 .024 PQUAD2 3 1 .032 PQUAD2 4 1 .036 PQUAD2 5 1 .030 PQUAD2 6 1 .018 PQUAD2 7 1 .014 PQUAD2 8 1 .028 PQUAD2 9 1 .037 PQUAD2 10 1 .043 PQUAD2 11 1 .036 PQUAD2 12 1 .022 PQUAD2 13 1 .016 PQUAD2 14 1 .032 PQUAD2 15 1 .048 PQUAD2 16 1 .051 PQUAD2 17 1 .042 PQUAD2 18 1 .023 PQUAD2 19 1 .018 PQUAD2 20 1 .034 PQUAD2 21 1 .053 PQUAD2 22 1 .058 PQUAD2 23 1 .046 PQUAD2 24 1 .025 PQUAD2 25 1 .021 PQUAD2 26 1 .042 PQUAD2 27 1 .061 PQUAD2 28 1 .066 PQUAD2 29 1 .051 PQUAD2 30 1 .027 PQUAD2 31 1 .024 PQUAD2 32 1 .049 PQUAD2 33 1 .070 PQUAD2 34 1 .073 PQUAD2 35 1 .057 PQUAD2 36 1 .030 PQUAD2 37 1 .028 PQUAD2 38 1 .054 PQUAD2 39 1 .078 PQUAD2 40 1 .082 PQUAD2 41 1 .065 PQUAD2 42 1 .035 PQUAD2 43 1 .031 PQUAD2 44 1 .061 PQUAD2 45 1 .088 PQUAD2 46 1 .093 PQUAD2 47 1 .075 PQUAD2 48 1 .039 PQUAD2 49 1 .038 PQUAD2 50 1 .068 PQUAD2 51 1 .098 PQUAD2 52 1 .103 PQUAD2 53 1 .083 PQUAD2 54 1 .046 PQUAD2 55 1 .041 PQUAD2 56 1 .076 PQUAD2 57 1 .110 PQUAD2 58 1 .118 PQUAD2 59 1 .091 PQUAD2 60 1 .047 PQUAD2 61 1 .043 PQUAD2 62 1 .083 PQUAD2 63 1 .120 PQUAD2 64 1 .129 PQUAD2 65 1 .100 PQUAD2 66 1 .044 PQUAD2 67 1 .045 PQUAD2 68 1 .090 PQUAD2 69 1 .135 PQUAD2 70 1 .138 PQUAD2 71 1 .100 PQUAD2 72 1 .048 PQUAD2 73 1 .053 PQUAD2 74 1 .106 PQUAD2 75 1 .152 PQUAD2 76 1 .148 PQUAD2 77 1 .099 PQUAD2 78 1 .044 PQUAD2 79 1 .063 PQUAD2 80 1 .123 PQUAD2 81 1 .171 PQUAD2 82 1 .157 PQUAD2 83 1 .099 PQUAD2 84 1 .046 PQUAD2 85 1 .071 PQUAD2 86 1 .141 PQUAD2 87 1 .206 PQUAD2 88 1 .177 PQUAD2 89 1 .112 PQUAD2 90 1 .048 PQUAD2 91 1 .084 PQUAD2 92 1 .172 PQUAD2 93 1 .232 PQUAD2 94 1 .198 PQUAD2 95 1 .135 PQUAD2 96 1 .062 PQUAD2 97 1 .119 PQUAD2 98 1 .206 PQUAD2 99 1 .266 PQUAD2 100 1 .230 PQUAD2 101 1 .152 PQUAD2 102 1 .071 PQUAD2 103 1 .161 PQUAD2 104 1 .237 PQUAD2 105 1 .347 PQUAD2 106 1 .319 PQUAD2 107 1 .167 PQUAD2 108 1 .075 PQUAD2 109 1 .222 PQUAD2 110 1 .373 PQUAD2 121 1 .242 PQUAD2 122 1 .089 PQUAD2 123 1 .441 PQUAD2 124 1 .830 PQUAD2 125 1 .830 PQUAD2 126 1 .441 PQUAD2 127 1 .441 PQUAD2 128 1 .830 PQUAD2 129 1 .830 PQUAD2 130 1 .441 PTRIA2 111 1 .531 PTRIA2 112 1 .532 PTRIA2 113 1 .396 PTRIA2 114 1 .544 PTRIA2 115 1 .590 PTRIA2 116 1 .591 PTRIA2 117 1 .557 PTRIA2 118 1 .519 PTRIA2 119 1 .396 PTRIA2 120 1 .377 CQUAD2 1 1 1 2 9 8 CQUAD2 2 2 2 3 10 9 CQUAD2 3 3 3 4 11 10 CQUAD2 4 4 4 5 12 11 CQUAD2 5 5 5 6 13 12 CQUAD2 6 6 6 7 14 13 CQUAD2 7 7 8 9 16 15 CQUAD2 8 8 9 10 17 16 CQUAD2 9 9 10 11 18 17 CQUAD2 10 10 11 12 19 18 CQUAD2 11 11 12 13 20 19 CQUAD2 12 12 13 14 21 20 CQUAD2 13 13 15 16 23 22 CQUAD2 14 14 16 17 24 23 CQUAD2 15 15 17 18 25 24 CQUAD2 16 16 18 19 26 25 CQUAD2 17 17 19 20 27 26 CQUAD2 18 18 20 21 28 27 CQUAD2 19 19 22 23 30 29 CQUAD2 20 20 23 24 31 30 CQUAD2 21 21 24 25 32 31 CQUAD2 22 22 25 26 33 32 CQUAD2 23 23 26 27 34 33 CQUAD2 24 24 27 28 35 34 CQUAD2 25 25 29 30 37 36 CQUAD2 26 26 30 31 38 37 CQUAD2 27 27 31 32 39 38 CQUAD2 28 28 32 33 40 39 CQUAD2 29 29 33 34 41 40 CQUAD2 30 30 34 35 42 41 CQUAD2 31 31 36 37 44 43 CQUAD2 32 32 37 38 45 44 CQUAD2 33 33 38 39 46 45 CQUAD2 34 34 39 40 47 46 CQUAD2 35 35 40 41 48 47 CQUAD2 36 36 41 42 49 48 CQUAD2 37 37 43 44 51 50 CQUAD2 38 38 44 45 52 51 CQUAD2 39 39 45 46 53 52 CQUAD2 40 40 46 47 54 53 CQUAD2 41 41 47 48 55 54 CQUAD2 42 42 48 49 56 55 CQUAD2 43 43 50 51 58 57 CQUAD2 44 44 51 52 59 58 CQUAD2 45 45 52 53 60 59 CQUAD2 46 46 53 54 61 60 CQUAD2 47 47 54 55 62 61 CQUAD2 48 48 55 56 63 62 CQUAD2 49 49 57 58 65 64 CQUAD2 50 50 58 59 66 65 CQUAD2 51 51 59 60 67 66 CQUAD2 52 52 60 61 68 67 CQUAD2 53 53 61 62 69 68 CQUAD2 54 54 62 63 70 69 CQUAD2 55 55 64 65 72 71 CQUAD2 56 56 65 66 73 72 CQUAD2 57 57 66 67 74 73 CQUAD2 58 58 67 68 75 74 CQUAD2 59 59 68 69 76 75 CQUAD2 60 60 69 70 77 76 CQUAD2 61 61 71 72 79 78 CQUAD2 62 62 72 73 80 79 CQUAD2 63 63 73 74 81 80 CQUAD2 64 64 74 75 82 81 CQUAD2 65 65 75 76 83 82 CQUAD2 66 66 76 77 84 83 CQUAD2 67 67 78 79 86 85 CQUAD2 68 68 79 80 87 86 CQUAD2 69 69 80 81 88 87 CQUAD2 70 70 81 82 89 88 CQUAD2 71 71 82 83 90 89 CQUAD2 72 72 83 84 91 90 CQUAD2 73 73 85 86 93 92 CQUAD2 74 74 86 87 94 93 CQUAD2 75 75 87 88 95 94 CQUAD2 76 76 88 89 96 95 CQUAD2 77 77 89 90 97 96 CQUAD2 78 78 90 91 98 97 CQUAD2 79 79 92 93 100 99 CQUAD2 80 80 93 94 101 100 CQUAD2 81 81 94 95 102 101 CQUAD2 82 82 95 96 103 102 CQUAD2 83 83 96 97 104 103 CQUAD2 84 84 97 98 105 104 CQUAD2 85 85 99 100 107 106 CQUAD2 86 86 100 101 108 107 CQUAD2 87 87 101 102 109 108 CQUAD2 88 88 102 103 110 109 CQUAD2 89 89 103 104 111 110 CQUAD2 90 90 104 105 112 111 CQUAD2 91 91 106 107 114 113 CQUAD2 92 92 107 108 115 114 CQUAD2 93 93 108 109 116 115 CQUAD2 94 94 109 110 117 116 CQUAD2 95 95 110 111 118 117 CQUAD2 96 96 111 112 119 118 CQUAD2 97 97 113 114 121 120 CQUAD2 98 98 114 115 122 121 CQUAD2 99 99 115 116 123 122 CQUAD2 100 100 116 117 124 123 CQUAD2 101 101 117 118 125 124 CQUAD2 102 102 118 119 126 125 CQUAD2 103 103 120 121 128 127 CQUAD2 104 104 121 122 129 128 CQUAD2 105 105 122 123 130 129 CQUAD2 106 106 123 124 131 130 CQUAD2 107 107 124 125 132 131 CQUAD2 108 108 125 126 133 132 CQUAD2 109 109 127 128 135 134 CQUAD2 110 110 128 129 136 135 CQUAD2 121 121 131 132 144 143 CQUAD2 122 122 132 133 145 144 CQUAD2 123 123 138 139 147 146 CQUAD2 124 124 139 140 148 147 CQUAD2 125 125 140 141 149 148 CQUAD2 126 126 141 142 150 149 CQUAD2 127 127 146 147 152 151 CQUAD2 128 128 147 148 153 152 CQUAD2 129 129 148 149 154 153 CQUAD2 130 130 149 150 155 154 CTRIA2 111 111 129 138 136 CTRIA2 112 112 129 137 138 CTRIA2 113 113 129 130 137 CTRIA2 114 114 137 130 140 CTRIA2 115 115 138 137 139 CTRIA2 116 116 139 137 140 CTRIA2 117 117 140 130 141 CTRIA2 118 118 141 130 142 CTRIA2 119 119 130 131 142 CTRIA2 120 120 142 131 143 MAT1 1 1.6 E7 .35 .0004141 SPC1 1 123456 151 THRU 155 SPC1 1 6 7 91 98 134 145 SPC1 1 4 1 57 RFORCE 1 0 113.34 1.0 0.0 0.0 EIGR 1 INV 100.0 2000.0 10 8 +E1 +E1 MAX CYJOIN 1 155 CYJOIN 2 151 PARAM CTYPE ROT PARAM KINDEX 0 PARAM NSEGS 10 $ $ AERODYNAMIC DATA FOR FLUTTER ANALYSIS $ AERO 0 1.0 2.905 9.763E-8 FLFACT 1 1.0 FLFACT 2 0.0 36.0 72.0 108.0 144.0 180.0 -144.0 +FL21 +FL21 -108.0 -72. -36. FLFACT 3 .10 .20 .30 .6 .9 1.2 1.5 FLUTTER 1 KE 1 2 3 L 6 MKAERO2 0.0 .001 0.0 .3 0.0 .6 0.0 .9 MKAERO2 36. .001 36. .3 36. .6 36. .9 MKAERO2 72. .001 72. .3 72. .6 72. .9 MKAERO2 108. .001 108. .3 108. .6 108. .9 MKAERO2 144. .001 144. .3 144. .6 144. .9 MKAERO2 180. .001 180. .3 180. .6 180. .9 MKAERO2 -144. .001 -144. .3 -144. .6 -144. .9 MKAERO2 -108. .001 -108. .3 -108. .6 -108. .9 MKAERO2 -72. .001 -72. .3 -72. .6 -72. .9 MKAERO2 -36. .001 -36. .3 -36. .6 -36. .9 MKAERO2 0.0 1.2 0.0 1.5 0.0 .15 MKAERO2 36. 1.2 36. 1.5 36.0 .15 MKAERO2 72. 1.2 72. 1.5 72.0 .15 MKAERO2 108. 1.2 108. 1.5 108. .15 MKAERO2 144. 1.2 144. 1.5 144. .15 MKAERO2 180. 1.2 180. 1.5 180. .15 MKAERO2 -144. 1.2 -144. 1.5 -144. .15 MKAERO2 -108. 1.2 -108. 1.5 -108. .15 MKAERO2 -72. 1.2 -72. 1.5 -72. .15 MKAERO2 -36. 1.2 -36. 1.5 -36. .15 PARAM IREF 6 PARAM LMODES 6 PARAM MAXMACH 0.95 PARAM MINMACH 1.01 PARAM MTYPE COSINE PARAM PRINT YESB STREAML1 1 134 136 143 145 STREAML1 2 113 115 117 119 STREAML1 3 99 101 103 105 STREAML1 4 85 87 89 91 STREAML1 5 71 73 75 77 STREAML1 6 57 59 61 63 STREAML1 7 43 45 47 49 STREAML1 8 29 31 33 35 STREAML1 9 15 17 19 21 STREAML1 10 1 3 5 7 STREAML2 1 4 11.075 3.028 0.278 1.626 0.6869.763E-8+STR 1 +STR 1 9152. -15.899 STREAML2 2 4 13.895 3.559 0.336 2.733 0.7349.763E-8+STR 4 +STR 4 9794. 2.890 STREAML2 3 4 14.946 4.129 0.152 3.818 0.7139.763E-8+STR 6 +STR 6 9512. 20.206 STREAML2 4 4 16.492 4.214 -0.355 5.068 0.6189.763E-8+STR 8 +STR 8 8246. 38.813 STREAML2 5 4 17.712 3.542 -0.389 5.825 0.5679.763E-8+STR 10 +STR 10 7558. 46.112 STREAML2 6 4 16.167 2.905 -0.367 6.423 0.5289.763E-8+STR 12 +STR 12 7046. 50.138 STREAML2 7 4 17.910 2.376 -0.316 6.915 0.5359.763E-8+STR 14 +STR 14 7139. 50.796 STREAML2 8 4 19.990 1.937 -0.369 7.350 0.5569.763E-8+STR 16 +STR 16 7419. 50.323 STREAML2 9 4 23.516 1.558 -0.294 7.682 0.5579.763E-8+STR 18 +STR 18 7424. 51.910 STREAML2 10 4 27.788 1.280 -0.541 7.913 0.5879.763E-8+STR 20 +STR 20 7830. 50.992 ENDDATA ================================================ FILE: inp/t09071a.inp ================================================ ID T09071A,NASTRAN APP DISP TIME 40 SOL 9 DIAG 14 READFILE COSDBCL CEND TITLE = DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER SUBTITLE = NASTRAN TEST PROBLEM NO. T09-07-1A LABEL = A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING DISP = ALL SPC = 4 SUBCASE 1 DLOAD = 4 TSTEP = 7 STRESS = ALL SUBCASE 2 METHOD = 25 BEGIN BULK CBAR, 1, 1, 1, 2, 0. 0. 1.0 1 =(9),*(1),=,*(1),/, == DAREA, 8, 1, 2, +1.0 DMI TIP1 0 2 1 1 1000 1 DMI TIP1 1 1 1.0 DMI BAS1 0 2 1 1 1000 1 DMI BAS1 1 1000 1.0 EIGB, 25 INV 0.01 1.0 2 , MAX GRID, 1 ,, 0.0 0.0 0.0 =(10), *(1),, =, *(10.),== MAT1,11 10.0+6, 16.5+6,, 2.59-4 PBAR, 1 11 .785 .049 .049 .098 SPC, 4 11 123456 TABLED1, 4 )+S4 ), 0.0 0.0 25.E-6 120.9 1.0 120.9 ENDT TLOAD1, 4 8 0,, 4 TSTEP, 6 20 0.0002 1 TSTEP, 7 200 12.5-6 4 ENDDATA ================================================ FILE: inp/t13021a.inp ================================================ ID T13021A,NASTRAN APP DISP SOL 13 DIAG 38 TIME 10 CEND TITLE = OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A ECHO = BOTH DISP = ALL SPC = 1 SUBCASE 1 LABEL = STATIC SOLUTION LOAD = 1 OLOAD = ALL SUBCASE 2 LABEL = SECOND ORDER STATICS SOLUTION DSCOEFFICIENT = DEFAULT SUBCASE 3 LABEL = NORMAL MODES WITH DIFFERENTIAL STIFFNESS METHOD = 1 BEGIN BULK SPC,1,1,126 CORD2C, 1 0 0. 0. 0. 0. 0. 1. , 1. 0. 0. CONM2, 9 1,, 5.74025 0. 0. 0. )+C-21 =(7), *(1),*(1),,== +C-21, 5.74025 0.0 5.74025, 0. 0. 5.74025 =(7),== FORCE1, 1 1 26516.5 5 1 =(3), =,*(1), = *(1),/ FORCE1, 1 5 26516.5 1 5 =(3), =,*(1), = *(1),/ GRID, 1 0 0. 75. 0. 0 345 GRID, 2 0 53.033 53.033 == GRID, 3 0 75. 0. == GRID, 4 0 53.033 -53.033 == GRID, 5 0 0. -75. == GRID, 6 0 -53.033 -53.033 == GRID, 7 0 -75. 0. == GRID, 8 0 -53.033 53.033 == BAROR,,1,,, 1. 0. 0. CBAR, 1 1 1 2 =(6),*(1),=, *(1),/ CBAR, 8 1 8 1 PBAR, 1 1 1. .83333 .83333 CPSE2,17 2 1 2 =(6),*(1),=, *(1),/ CPSE2,24 2 8 1 PPSE, 2 500. MAT1, 1 1.E7,, 0.3 EIGR, 1 FEER,, 1.0E-8,, 10 , MAX ENDDATA ================================================ FILE: inp/t13022a.inp ================================================ ID T13022A,NASTRAN APP DISP DIAG 38 SOL 13 TIME 20 $ $ THIS PROBLEM DEMONSTRATES THE EFFECTS OF PRESSURE ON THE DYNAMICS OF $ PRE-STIFFENED STRUCTURE USEING CPSE3 AND CPSE4 DIFFERNTIAL STIFFNESS $ ELEMENTS $ $ THIS FREE-FREE UNIT LENGTH CYLINDER PROBLEM GIVES THE FOLLOWING $ NATURAL FREQUENCIES (HZ) $ $ WITHOUT THE PRESSURE WITH THE PRESSURE $ STIFFNESS ELEMENTS STIFFNESS ELEMENTS $ -------------------- ------------------ $ 3.4432 0.0053 $ 4.6821 5.3927 $ 13.2614 13.6570 $ 22.4341 22.6865 $ 33.1777 33.3529 $ 46.1936 46.3210 $ 61.9870 62.0752 $ 81.8336 81.8986 $ $ THE FOLLOWING DMAP ALTER ALLOWS SOL 13 TO USE DIFFERENT BOUNDARY $ CONDITION SPC'S FOR THE STATIC SOLUTION (SUBCASE 1 AND 2) AND THE $ NORMAL MODE SOLUTION (SUBCASE 3) $ $ THIS DMAP ALTER WILL CAUSE A NUMBER OF WARNING MESSAGES OF POTENTIAL $ ERRORS PRINTED, BUT IT WORKS OK $ ALTER 117 $ AFTER OFP MODULE AND BEFORE DPD IN RIGID FORMAT 13 GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,ASET,OGPST/ LUSET/S,N,MPCF1/S,N,MPCF2/,S,N,SINGLE/S,N,OMIT/S,N,REACT/ S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/ S,N,AUTOSPC $ PARAM //*AND*/NOSR/SINGLE/REACT $ PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS/SINGLE/QG/NOSR $ OFP OGPST,,,,,//S,N,CARDNO $ LABEL LBL15D $ EQUIV KGG,KNN/MPCF1 $ COND LBL16D,MPCF1 $ MCE1 USET,RG/GM $ MCE2 USET,GM,KGG,,,/KNN,,, $ LABEL LBL16D $ EQUIV KNN,KFF/SINGLE $ COND LBL17D,SINGLE $ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ LABEL LBL17D $ EQUIV KFF,KAA/OMIT $ COND LBL18D,OMIT $ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ LABEL LBL18D $ EQUIV KDGG,KDNN/MPCF2 /MGG,MNN/MPCF2 $ COND LBL19D,MPCF2 $ MCE2 USET,GM,KDGG,MGG,,/KDNN,MNN,, $ LABEL LBL19D $ EQUIV KDNN,KDFF/SINGLE /MNN,MFF/SINGLE $ COND LBL20D,SINGLE $ SCE1 USET,KDNN,MNN,,/KDFF,KDFS,KDSS,MFF,, $ LABEL LBL20D $ EQUIV KDFF,KDAA/OMIT /MFF,MAA/OMIT $ COND LBL21D,OMIT $ SMP2 USET,GO,KDFF/KDAA $ SMP2 USET,GO,MFF/MAA $ LABEL LBL21D $ PARAM //*ADD*/DSCOSET/-1/0 $ PARAM //*MPY*/NDSKIP/0/0 $ DSMG2 MPT,KAA,KDAA,KFS,KDFS,KSS,KDSS,PL,PS,YS,UOOV/KBLL,KBFS,KBSS, PBL,PBS,YBS,UBOOV/S,N,NDSKIP/S,N,REPEATD/DSCOSET $ ENDALTER $ $ CEND TITLE = FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL SUBTITLE = NASTRAN TEST PROBLEM NO. T13-02-2A LABEL = NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS ECHO = BOTH DISP = ALL $ SUBCASE 1 LABEL = STATIC SOLUTION LOAD = 1 SPC = 1 OLOAD = ALL $ SUBCASE 2 LABEL = SECOND ORDER STATICS SOLUTION SPC = 4 DSCOEFFICIENT = DEFAULT $ SUBCASE 3 LABEL = NORMAL MODES WITH DIFFERENTIAL STIFFNESS SPC = 4 METHOD = 1 $ BEGIN BULK PARAM,COUPMASS,1 CORD2C,1 0 0. 0. 0. 0. 0. 1. , 1. 0. 0. GRID, 1 1 5.0 0.0 0.5,, 345 GRID, 2 1 5.0 0.0 -0.5, == GRID, 3 1 5.0 11.0 0.5, == GRID, 4 1 5.0 11.0 -0.5, == GRID, 5 1 5.0 22.0 0.5, == GRID, 6 1 5.0 22.0 -0.5, == GRID, 7 1 5.0 33.0 0.5, == GRID, 8 1 5.0 33.0 -0.5, == GRID, 9 1 5.0 45.0 0.5, == GRID, 10 1 5.0 45.0 -0.5, == GRID, 11 1 5.0 56.0 0.5, == GRID, 12 1 5.0 56.0 -0.5, == GRID, 13 1 5.0 67.0 0.5, == GRID, 14 1 5.0 67.0 -0.5, == GRID, 15 1 5.0 78.0 0.5, == GRID, 16 1 5.0 78.0 -0.5, == GRID, 17 1 5.0 90.0 0.5, == GRID, 18 1 5.0 90.0 -0.5, == $ $ SPC=1 FOR SYMMETRY-SYMMETRY BC'S $ SPC, 1 1 26,, 2 26 SPC, 1 17 16,, 18 16 $ $ SPC=2 FOR SYMMETRY-ANTISYMMETRY BC'S $ SPC, 2 1 1,, 2 1 SPC, 2 17 16,, 18 16 $ $ SPC=3 FOR ANTISYMMETRY-SYMMETRY BC'S $ SPC, 3 1 26,, 2 26 SPC, 3 17 2,, 18 2 $ $ SPC=4 FOR ANTISYMMETRY-ANTISYMMETRY BC'S $ SPC, 4, 1, 1,, 2, 1 SPC, 4,17, 2,, 18, 2 $ CQUAD2, 1, 1, 1, 2, 4, 3 =(7), *(1),=,*(2), /// PQUAD2, 1, 1, 0.1 $ CPSE3, 10 2 1 2 4 =(3), *(1),=,*(2), // CPSE3, 15 2 4 3 1 =(3), *(1),=,*(2), // $ CPSE4, 20 2 9 10 12 11 =(3), *(1),=,*(2), /// $ PPSE, 2 1000. PLOAD2,1 1000. 1 THRU 8 MAT1, 1 1.0E7,, 0.33 4.28 EIGR, 1 FEER,, 1.0E-8,, 10 , MAX ENDDATA ================================================ FILE: inp/t16011a.inp ================================================ NASTRAN FILES = PLT2 ID T16011A,NASTRAN APP DISPLACEMENT SOL 16 DIAG 14 TIME 20 CEND TITLE = STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE SUBTITLE = NASTRAN TEST PROBLEM NO. T16-01-1A SPC = 500 MPC = 600 LOAD = 1 DISP = ALL SPCF = ALL OLOAD = ALL STRESS = ALL FORCE = ALL SUBCASE 1 LABEL = LINEAR SOLUTION OF ROTOR BLADE SUBCASE 2 LABEL = NONLINEAR SOLUTION OF ROTOR BLADE GPFORCE= ALL OUTPUT(PLOT) PLOTTER NASTPLT D,0 PAPER SIZE 10.0 X 10.0 SET 1 = ALL ORTHOGRAPHIC PROJECTION MAXIMUM DEFORMATION 0.5 AXES X,Y,Z VIEW 0.0,0.0,0.0 FIND SCALE, ORIGIN 1, SET 1 PLOT SET 1, ORIGIN 1, LABEL AXES Y,Z,X FIND SCALE, ORIGIN 2, SET 1 PLOT SET 1, ORIGIN 2, LABEL AXES Z,X,Y FIND SCALE, ORIGIN 3, SET 1 PLOT SET 1, ORIGIN 3, LABEL AXES X,Y,Z VIEW 34.27,23.17,0.0 FIND SCALE, ORIGIN 4, SET 1 PLOT STATIC DEFORMATION 0, SET 1, ORIGIN 4, LABEL AXES Z,X,Y VIEW 0.0,0.0,0.0 FIND SCALE, ORIGIN 5, SET 1 PLOT STATIC DEFORMATION 0, SET 1, ORIGIN 5, LABEL BEGIN BULK CHEXA1 201 1 101 103 104 108 113 115 +CH1 +CH1 116 120 CHEXA1 202 1 108 104 105 107 120 116 +CH2 +CH2 117 119 CHEXA1 203 1 121 123 124 128 101 103 +CH3 +CH3 104 108 CHEXA1 204 1 128 124 125 127 108 104 +CH4 +CH4 105 107 CORD2C 1 0. 0. 0. 1.0 0. 0. +CD1 +CD1 0. 0. 1. CTRIA2 1 2000 1 5 4 CTRIA2 2 2000 1 2 5 CTRIA2 3 2005 2 6 5 CTRIA2 4 2005 2 3 6 CTRIA2 5 2010 4 8 7 CTRIA2 6 2010 4 5 8 CTRIA2 7 2015 5 9 8 CTRIA2 8 2015 5 6 9 CTRIA2 9 2020 7 11 10 CTRIA2 10 2020 7 8 11 CTRIA2 11 2025 8 12 11 CTRIA2 12 2025 8 9 12 DTI ALGDB 0 135 0 0 0 0 0+AL 0 +AL 0ENDREC +AL 1 DTI ALGDB 1NASA LEWIS EXPERIMENTAL FAN +AL 2 +AL 2 ENDREC +AL 3 DTI ALGDB 2 1 1 0 0 0 0+AL 4 +AL 4 0 0 0 0 0 0 0 0+AL 5 +AL 5 0 0 0 0 0 0 0 0+AL 6 +AL 6 0 0ENDREC +AL 7 DTI ALGDB 3GRID GENERATION +AL 8 +AL 8 ENDREC +AL 9 DTI ALGDB 4 4 5 3 4 30 43+AL 10 +AL 10 2 0 2 1 0 3 0 0+AL 11 +AL 11 2 4 1 0 0 0 0 0+AL 12 +AL 12 0 0ENDREC +AL 13 DTI* ALGDB 5 0.438399982E 01 0.999999905E 01+AL 14 *AL 14 0.999999940E 00 0 0.109999990E 02 0+AL 15 +AL 15ENDREC +AL 16 DTI ALGDB 6 2 0 0 0 0 0+AL 17 +AL 17 0 0 0 0 0 0 0 0+AL 18 +AL 18 0 0 0 0 0 0 0 0+AL 19 +AL 19 0 0ENDREC +AL 20 DTI* ALGDB 7-0.199999905E 01 0.359999943E 01+AL 21 *AL 21 0 0 0 0+AL 22 +AL 22ENDREC +AL 23 DTI* ALGDB 8-0.199999905E 01 0.100400000E 02+AL 24 *AL 24 0 0 0 0+AL 25 +AL 25ENDREC +AL 26 DTI* ALGDB 9 0.359999943E 01 0+AL 27 *AL 27 0 0 0 0+AL 28 +AL 28ENDREC +AL 29 DTI* ALGDB 10 0.549999905E 01 0+AL 30 *AL 30 0 0 0 0+AL 31 +AL 31ENDREC +AL 32 DTI* ALGDB 11 0.739999962E 01 0+AL 33 *AL 33 0 0 0 0+AL 34 +AL 34ENDREC +AL 35 DTI* ALGDB 12 0.100400000E 02 0+AL 36 *AL 36 0 0 0 0+AL 37 +AL 37ENDREC +AL 38 DTI ALGDB 13 4 1ENDREC +AL 39 DTI* ALGDB 14-0.898070633E 00 0.378958511E 01+AL 40 *AL 40ENDREC +AL 41 DTI* ALGDB 15-0.765281737E 00 0.547675800E 01+AL 42 *AL 42ENDREC +AL 43 DTI* ALGDB 16-0.638598502E 00 0.736359024E 01+AL 44 *AL 44ENDREC +AL 45 DTI* ALGDB 17-0.405804217E 00 0.995540905E 01+AL 46 *AL 46ENDREC +AL 47 DTI* ALGDB 18 0.378958511E 01 0+AL 48 *AL 48ENDREC +AL 49 DTI* ALGDB 19 0.547675800E 01 0+AL 50 *AL 50ENDREC +AL 51 DTI* ALGDB 20 0.736359024E 01 0+AL 52 *AL 52ENDREC +AL 53 DTI* ALGDB 21 0.995540905E 01 0+AL 54 *AL 54ENDREC +AL 55 DTI ALGDB 22 4 1ENDREC +AL 56 DTI* ALGDB 23-0.707454019E-04 0.399898529E 01+AL 57 *AL 57ENDREC +AL 58 DTI* ALGDB 24-0.459544128E-03 0.549857426E 01+AL 59 *AL 59ENDREC +AL 60 DTI* ALGDB 25-0.911400467E-02 0.739762974E 01+AL 61 *AL 61ENDREC +AL 62 DTI* ALGDB 26-0.106336363E-01 0.999707603E 01+AL 63 *AL 63ENDREC +AL 64 DTI* ALGDB 27 0.399898529E 01 0+AL 65 *AL 65ENDREC +AL 66 DTI* ALGDB 28 0.549857426E 01 0+AL 67 *AL 67ENDREC +AL 68 DTI* ALGDB 29 0.739762974E 01 0+AL 69 *AL 69ENDREC +AL 70 DTI* ALGDB 30 0.999707603E 01 0+AL 71 *AL 71ENDREC +AL 72 DTI ALGDB 31 4 1ENDREC +AL 73 DTI* ALGDB 32 0.897929192E 00 0.419198513E 01+AL 74 *AL 74ENDREC +AL 75 DTI* ALGDB 33 0.779861093E 00 0.549377537E 01+AL 76 *AL 76ENDREC +AL 77 DTI* ALGDB 34 0.623993874E 00 0.736712265E 01+AL 78 *AL 78ENDREC +AL 79 DTI* ALGDB 35 0.413974285E 00 0.996370506E 01+AL 80 *AL 80ENDREC +AL 81 DTI* ALGDB 36 0.419198513E 01 0+AL 82 *AL 82ENDREC +AL 83 DTI* ALGDB 37 0.549377537E 01 0+AL 84 *AL 84ENDREC +AL 85 DTI* ALGDB 38 0.736712265E 01 0+AL 86 *AL 86ENDREC +AL 87 DTI* ALGDB 39 0.996370506E 01 0+AL 88 *AL 88ENDREC +AL 89 DTI ALGDB 40 2 0 0 0 0 0+AL 90 +AL 90 0 0 0 0 0 0 0 0+AL 91 +AL 91 0 0 0 0 0 0 0 0+AL 92 +AL 92 0 0ENDREC +AL 93 DTI* ALGDB 41 0.199999905E 01 0.439999962E 01+AL 94 *AL 94 0 0 0 0+AL 95 +AL 95ENDREC +AL 96 DTI* ALGDB 42 0.199999905E 01 0.100400000E 02+AL 97 *AL 97 0 0 0 0+AL 98 +AL 98ENDREC +AL 99 DTI* ALGDB 43 0.439999962E 01 0+AL 100 *AL 100 0 0 0 0+AL 101 +AL 101ENDREC +AL 102 DTI* ALGDB 44 0.549999905E 01 0+AL 103 *AL 103 0 0 0 0+AL 104 +AL 104ENDREC +AL 105 DTI* ALGDB 45 0.739999962E 01 0+AL 106 *AL 106 0 0 0 0+AL 107 +AL 107ENDREC +AL 108 DTI* ALGDB 46 0.100400000E 02 0+AL 109 *AL 109 0 0 0 0+AL 110 +AL 110ENDREC +AL 111 DTI* ALGDB 47 0.999999940E 00-0.381756897E 02+AL 112 *AL 112 0.329245758E 02 0 0 0.161499977E-01+AL 113 +AL 113ENDREC +AL 114 DTI* ALGDB 48 0.979999900E-01 0.155899972E-01+AL 115 *AL 115 0.559999943E 00 0.179599857E 01 0.471492521E-01-0.222556889E-01+AL 116 +AL 116ENDREC +AL 117 DTI* ALGDB 49 0.199999905E 01-0.437350769E 02+AL 118 *AL 118-0.468236637E 01 0 0 0.124260001E-01+AL 119 +AL 119ENDREC +AL 120 DTI* ALGDB 50 0.734763145E-01 0.135056563E-01+AL 121 *AL 121 0.539999962E 00 0.185159492E 01 0.676045194E-02-0.272210650E-01+AL 122 +AL 122ENDREC +AL 123 DTI* ALGDB 51 0.299999905E 01-0.524065857E 02+AL 124 *AL 124-0.400783386E 02 0 0 0.912010297E-02+AL 125 +AL 125ENDREC +AL 126 DTI* ALGDB 52 0.360004082E-01 0.966010615E-02+AL 127 *AL 127 0.489999950E 00 0.186397648E 01-0.834399834E-02 0.131941922E-01+AL 128 +AL 128ENDREC +AL 129 DTI* ALGDB 53 0.399999905E 01-0.724938965E 02+AL 130 *AL 130-0.592066498E 02 0 0 0.482162833E-02+AL 131 +AL 131ENDREC +AL 132 DTI* ALGDB 54 0.268090703E-01 0.429144874E-02+AL 133 *AL 133 0.479999959E 00 0.186236858E 01-0.373036265E-01 0.498055629E-01+AL 134 +AL 134ENDREC +AL 135 DTI ALGDB 55 1 5 1 2 2 4+AL 136 +AL 136 0 0 0 0 0 0 0 0+AL 137 +AL 137 0 0 0 0 0 0 0 0+AL 138 +AL 138 0 0ENDREC +AL 139 DTI* ALGDB 56 0.999999940E 00 0.160427969E 05+AL 140 *AL 140 0 0 0 0+AL 141 +AL 141ENDREC +AL 142 DTI ALGDB 57 0 0 10 0 0 0+AL 143 +AL 143 0 0 0 0 0 0 0 0+AL 144 +AL 144 0 0 0 0 0 0 0 0+AL 145 +AL 145 0 0ENDREC +AL 146 DTI ALGDB 58 1 0 0 4 -1 -1+AL 147 +AL 147 0 1 0 0 0 0 0 -43+AL 148 +AL 148 0 0 0 0 0 0 0 0+AL 149 +AL 149 0 0ENDREC +AL 150 DTI ALGDB 59 0 0 0 0 0 0+AL 151 +AL 151 0 0 0 0 0 0 0 0+AL 152 +AL 152 0 0 0 0 0 0 0 0+AL 153 +AL 153 0 0ENDREC +AL 154 DTI ALGDB 60 8 0 0 1 -2 -2+AL 155 +AL 155 -1 0 0 2 0 0 20 -43+AL 156 +AL 156 0 0 0 0 0 0 0 0+AL 157 +AL 157 0 0ENDREC +AL 158 DTI* ALGDB 61 0.419999981E 01 0.499999970E-01+AL 159 *AL 159 0 0 0 0+AL 160 +AL 160ENDREC +AL 161 DTI* ALGDB 62 0.461999989E 01 0.499999970E-01+AL 162 *AL 162 0 0 0 0+AL 163 +AL 163ENDREC +AL 164 DTI* ALGDB 63 0.549999905E 01 0.499999970E-01+AL 165 *AL 165 0 0 0 0+AL 166 +AL 166ENDREC +AL 167 DTI* ALGDB 64 0.649999905E 01 0.499999970E-01+AL 168 *AL 168 0 0 0 0+AL 169 +AL 169ENDREC +AL 170 DTI* ALGDB 65 0.739999962E 01 0.499999970E-01+AL 171 *AL 171 0 0 0 0+AL 172 +AL 172ENDREC +AL 173 DTI* ALGDB 66 0.839999962E 01 0.499999970E-01+AL 174 *AL 174 0 0 0 0+AL 175 +AL 175ENDREC +AL 176 DTI* ALGDB 67 0.949999905E 01 0.499999970E-01+AL 177 *AL 177 0 0 0 0+AL 178 +AL 178ENDREC +AL 179 DTI* ALGDB 68 0.999999905E 01 0.499999970E-01+AL 180 *AL 180 0 0 0 0+AL 181 +AL 181ENDREC +AL 182 DTI ALGDB 69 0 0 0 0 0 0+AL 183 +AL 183 0 0 0 0 0 0 0 0+AL 184 +AL 184 0 0 0 0 0 0 0 0+AL 185 +AL 185 0 0ENDREC +AL 186 DTI ALGDB 70 0 0 0 0 0 0+AL 187 +AL 187 0 0 0 0 0 0 0 0+AL 188 +AL 188 0 0 0 0 0 0 0 0+AL 189 +AL 189 0 0ENDREC +AL 190 DTI* ALGDB 71 0.249999940E 00 0.249999940E 00+AL 191 *AL 191 0 0 0 0+AL 192 +AL 192ENDREC +AL 193 DTI* ALGDB 72 0.499999940E 00 0.499999940E 00+AL 194 *AL 194 0 0 0 0+AL 195 +AL 195ENDREC +AL 196 DTI* ALGDB 73 0.749999940E 00 0.749999940E 00+AL 197 *AL 197 0 0 0 0+AL 198 +AL 198ENDREC +AL 199 DTI* ALGDB 74 0.999999940E 00 0.999999940E 00+AL 200 *AL 200 0 0 0 0+AL 201 +AL 201ENDREC +AL 202 DTI* ALGDB 75 0 0+AL 203 *AL 203 0.499999940E 00 0 0 0+AL 204 +AL 204 0 0 0 0 0 0 0 0+AL 205 +AL 205 0 0 0 0 0 0 0 0+AL 206 +AL 206 0 0ENDREC +AL 207 DTI ALGDB 76AERODYNAMIC ANALYSIS OF NASA LEWIS BLADE +AL 208 +AL 208 ENDREC +AL 209 DTI ALGDB 77 0 0 0 0 0 0+AL 210 +AL 210 0 0 0 0 0 0 0 0+AL 211 +AL 211 0 0 0 0 0 0 0 0+AL 212 +AL 212 0 0ENDREC +AL 213 DTI ALGDB 78 7 4 0 40 0 0+AL 214 +AL 214 0 1 1 0 0 0 0 0+AL 215 +AL 215 0 3 0 0 3 5 1 0+AL 216 +AL 216 0 0ENDREC +AL 217 DTI ALGDB 79 3 4 5 0 0 0+AL 218 +AL 218 0 0 0 0 0 0 0 0+AL 219 +AL 219 0 0 0 0 0 0 0 0+AL 220 +AL 220 0 0ENDREC +AL 221 DTI* ALGDB 80 0 0+AL 222 *AL 222 0 0.999999931E-03 0 0+AL 223 +AL 223 0 0 0 0 0 0 0 0+AL 224 +AL 224 0 0 0 0 0 0 0 0+AL 225 +AL 225 0 0ENDREC +AL 226 DTI* ALGDB 81 0.999999940E 00 0.999999940E 00+AL 227 *AL 227 0.399999905E 01 0 0.699999988E 00 0.799999905E 01+AL 228 +AL 228ENDREC +AL 229 DTI ALGDB 82 0 0 0 0 0 0+AL 230 +AL 230 0 0 0 0 0 0 0 0+AL 231 +AL 231 0 0 0 0 0 0 0 0+AL 232 +AL 232 0 0ENDREC +AL 233 DTI* ALGDB 83 0.731459961E 02 0.999999940E 00+AL 234 *AL 234 0 0 0 0+AL 235 +AL 235ENDREC +AL 236 DTI ALGDB 84 2 0 0 0 0 0+AL 237 +AL 237 0 0 0 0 0 0 0 0+AL 238 +AL 238 0 0 0 0 0 0 0 0+AL 239 +AL 239 0 0ENDREC +AL 240 DTI* ALGDB 85-0.399999905E 01 0.324999905E 01+AL 241 *AL 241 0 0 0 0+AL 242 +AL 242ENDREC +AL 243 DTI* ALGDB 86-0.399999905E 01 0.100400000E 02+AL 244 *AL 244 0 0 0 0+AL 245 +AL 245ENDREC +AL 246 DTI ALGDB 87 2 0 0 0 0 0+AL 247 +AL 247 0 0 0 0 0 0 0 0+AL 248 +AL 248 0 0 0 0 0 0 0 0+AL 249 +AL 249 0 0ENDREC +AL 250 DTI* ALGDB 88-0.199999905E 01 0.359999943E 01+AL 251 *AL 251 0 0 0 0+AL 252 +AL 252ENDREC +AL 253 DTI* ALGDB 89-0.199999905E 01 0.100400000E 02+AL 254 *AL 254 0 0 0 0+AL 255 +AL 255ENDREC +AL 256 DTI ALGDB 90 4ENDREC +AL 257 DTI* ALGDB 91-0.898070633E 00 0.378958511E 01+AL 258 *AL 258ENDREC +AL 259 DTI* ALGDB 92-0.765281737E 00 0.547675800E 01+AL 260 *AL 260ENDREC +AL 261 DTI* ALGDB 93-0.638598502E 00 0.736359024E 01+AL 262 *AL 262ENDREC +AL 263 DTI* ALGDB 94-0.405804217E 00 0.995540905E 01+AL 264 *AL 264ENDREC +AL 265 DTI ALGDB 95 4ENDREC +AL 266 DTI* ALGDB 96-0.707454019E-04 0.399898529E 01+AL 267 *AL 267ENDREC +AL 268 DTI* ALGDB 97-0.459544128E-03 0.549857426E 01+AL 269 *AL 269ENDREC +AL 270 DTI* ALGDB 98-0.911400467E-02 0.739762974E 01+AL 271 *AL 271ENDREC +AL 272 DTI* ALGDB 99-0.106336363E-01 0.999707603E 01+AL 273 *AL 273ENDREC +AL 274 DTI ALGDB 100 4ENDREC +AL 275 DTI* ALGDB 101 0.897929192E 00 0.419198513E 01+AL 276 *AL 276ENDREC +AL 277 DTI* ALGDB 102 0.779861093E 00 0.549377537E 01+AL 278 *AL 278ENDREC +AL 279 DTI* ALGDB 103 0.623993874E 00 0.736712265E 01+AL 280 *AL 280ENDREC +AL 281 DTI* ALGDB 104 0.413974285E 00 0.996370506E 01+AL 282 *AL 282ENDREC +AL 283 DTI ALGDB 105 2 0 0 0 0 0+AL 284 +AL 284 0 0 0 0 0 0 0 0+AL 285 +AL 285 0 0 0 0 0 0 0 0+AL 286 +AL 286 0 0ENDREC +AL 287 DTI* ALGDB 106 0.199999905E 01 0.439999962E 01+AL 288 *AL 288 0 0 0 0+AL 289 +AL 289ENDREC +AL 290 DTI* ALGDB 107 0.199999905E 01 0.100400000E 02+AL 291 *AL 291 0 0 0 0+AL 292 +AL 292ENDREC +AL 293 DTI ALGDB 108 2 0 0 0 0 0+AL 294 +AL 294 0 0 0 0 0 0 0 0+AL 295 +AL 295 0 0 0 0 0 0 0 0+AL 296 +AL 296 0 0ENDREC +AL 297 DTI* ALGDB 109 0.399999905E 01 0.474999905E 01+AL 298 *AL 298 0 0 0 0+AL 299 +AL 299ENDREC +AL 300 DTI* ALGDB 110 0.399999905E 01 0.100400000E 02+AL 301 *AL 301 0 0 0 0+AL 302 +AL 302ENDREC +AL 303 DTI ALGDB 111 1 0 0 0 0 0+AL 304 +AL 304 0 0 0 0 0 0 0 0+AL 305 +AL 305 0 0 0 0 0 0 0 0+AL 306 +AL 306 0 0ENDREC +AL 307 DTI* ALGDB 112 0.324999905E 01 0.146999998E 02+AL 308 *AL 308 0.518699951E 03 0 0 0+AL 309 +AL 309ENDREC +AL 310 DTI ALGDB 113 0 0 0 0 0 0+AL 311 +AL 311 0 0 0 0 0 0 0 0+AL 312 +AL 312 0 0 0 0 0 0 0 0+AL 313 +AL 313 0 0ENDREC +AL 314 DTI* ALGDB 114 0.399999905E 01 0+AL 315 *AL 315 0 0 0 0+AL 316 +AL 316ENDREC +AL 317 DTI* ALGDB 115 0.999999905E 01 0.999999940E 00+AL 318 *AL 318 0 0 0 0+AL 319 +AL 319ENDREC +AL 320 DTI ALGDB 116 0 0 0 0 0 0+AL 321 +AL 321 0 0 0 0 0 0 0 0+AL 322 +AL 322 0 0 0 0 0 0 0 0+AL 323 +AL 323 0 0ENDREC +AL 324 DTI ALGDB 117 0 0 0 0 0 0+AL 325 +AL 325 0 0 0 0 0 0 0 0+AL 326 +AL 326 0 0 0 0 0 0 0 0+AL 327 +AL 327 0 0ENDREC +AL 328 DTI ALGDB 118 0 0 0 0 0 0+AL 329 +AL 329 0 0 0 0 0 0 0 0+AL 330 +AL 330 0 0 0 0 0 0 0 0+AL 331 +AL 331 0 0ENDREC +AL 332 DTI ALGDB 119 0 0 0 0 0 0+AL 333 +AL 333 0 0 0 0 0 0 0 0+AL 334 +AL 334 0 0 0 0 0 0 0 0+AL 335 +AL 335 0 0ENDREC +AL 336 DTI ALGDB 120 0 0 0 0 0 0+AL 337 +AL 337 0 0 0 0 0 0 0 0+AL 338 +AL 338 0 0 0 0 0 0 0 0+AL 339 +AL 339 0 0ENDREC +AL 340 DTI ALGDB 121 0 0 0 0 0 0+AL 341 +AL 341 0 0 0 0 0 0 0 0+AL 342 +AL 342 0 0 0 0 0 0 0 0+AL 343 +AL 343 0 0ENDREC +AL 344 DTI ALGDB 122 0 0 0 0 0 0+AL 345 +AL 345 0 0 0 0 0 0 0 0+AL 346 +AL 346 0 0 0 0 0 0 0 0+AL 347 +AL 347 0 0ENDREC +AL 348 DTI ALGDB 123 0 0 0 0 0 0+AL 349 +AL 349 0 0 0 0 0 0 0 0+AL 350 +AL 350 0 0 0 0 0 0 0 0+AL 351 +AL 351 0 0ENDREC +AL 352 DTI ALGDB 124 0 0 0 0 0 0+AL 353 +AL 353 0 0 0 0 0 0 0 0+AL 354 +AL 354 0 0 0 0 0 0 0 0+AL 355 +AL 355 0 0ENDREC +AL 356 DTI ALGDB 125 6 0 0 0 0 0+AL 357 +AL 357 0 0 0 0 0 0 0 0+AL 358 +AL 358 0 0 0 0 0 0 0 0+AL 359 +AL 359 0 0ENDREC +AL 360 DTI* ALGDB 126 0 0.599999726E-02+AL 361 *AL 361 0.599999726E-02 0.599999726E-02 0 0+AL 362 +AL 362 0 0 0 0 0 0 0 0+AL 363 +AL 363 0 0 0 0 0 0 0 0+AL 364 +AL 364 0 0ENDREC +AL 365 DTI* ALGDB 127 0.199999988E 00 0.699999928E-02+AL 366 *AL 366 0.699999928E-02 0.699999928E-02 0 0+AL 367 +AL 367ENDREC +AL 368 DTI* ALGDB 128 0.399999976E 00 0.139999986E-01+AL 369 *AL 369 0.139999986E-01 0.139999986E-01 0 0+AL 370 +AL 370ENDREC +AL 371 DTI* ALGDB 129 0.599999964E 00 0.299999975E-01+AL 372 *AL 372 0.309999995E-01 0.309999995E-01 0 0+AL 373 +AL 373ENDREC +AL 374 DTI* ALGDB 130 0.799999952E 00 0.599999987E-01+AL 375 *AL 375 0.599999987E-01 0.599999987E-01 0 0+AL 376 +AL 376ENDREC +AL 377 DTI* ALGDB 131 0.999999940E 00 0.124999940E 00+AL 378 *AL 378 0.124999940E 00 0.124999940E 00 0 0+AL 379 +AL 379ENDREC +AL 380 DTI ALGDB 132 2 1 0 0 0 0+AL 381 +AL 381 0 0 0 0 0 0 0 0+AL 382 +AL 382 0 0 0 0 0 0 0 0+AL 383 +AL 383 0 0ENDREC +AL 384 DTI ALGDB 133 0 0 0 0 0 0+AL 385 +AL 385 0 0 0 0 0 0 0 0+AL 386 +AL 386 0 0 0 0 0 0 0 0+AL 387 +AL 387 0 0ENDREC +AL 388 DTI ALGDB 134 0 0 0 0 0 0+AL 389 +AL 389 0 0 0 0 0 0 0 0+AL 390 +AL 390 0 0 0 0 0 0 0 0+AL 391 +AL 391 0 0ENDREC +AL 392 DTI* ALGDB 135 0.999999940E 00 0+AL 393 *AL 393 0 0 0 0+AL 394 +AL 394ENDREC +AL 395 GRID 1 -0.8981 -0.2755 3.7796 GRID 2 -0.0001 0.0540 3.9986 GRID 3 0.8979 -0.2464 4.1847 GRID 4 -0.7653 -0.4830 5.4554 GRID 5 -0.0005 0.0209 5.4985 GRID 6 0.7799 0.2307 5.4889 GRID 7 -0.6386 -0.7217 7.3281 GRID 8 -0.0091 0.0155 7.3976 GRID 9 0.6240 0.6123 7.3416 GRID 10 -0.4058 -1.1351 9.8905 GRID 11 -0.0106 -0.0236 9.9970 GRID 12 0.4140 0.8134 9.9304 GRID 101 1 2.375 4.186 -0.987 1 GRID 103 1 2.375 4.186 0.987 1 GRID 104 1 2.375 0.0 0.987 1 GRID 105 1 2.375 -4.186 0.987 1 GRID 107 1 2.375 -4.186 -0.987 1 GRID 108 1 2.375 0.0 -0.987 1 GRID 113 1 3.982 4.186 -0.987 1 GRID 115 1 4.539 4.186 0.987 1 GRID 116 1 4.539 0.0 0.987 GRID 117 1 4.539 -4.186 0.987 1 GRID 119 1 3.982 -4.186 -0.987 1 GRID 120 1 3.982 0.0 -0.987 GRID 121 1 0.905 4.186 -0.987 1 GRID 123 1 0.905 4.186 0.987 1 GRID 124 1 0.905 0.0 0.987 1 GRID 125 1 0.905 -4.186 0.987 1 GRID 127 1 0.905 -4.186 -0.987 1 GRID 128 1 0.905 0.0 -0.987 1 MAT1 1 31.0E6 0.3 7.300E-4 MPC 600 1 1 1.0 2 1 -1.0 MPC 600 1 2 1.0 2 2 -1.0 MPC 600 1 3 1.0 2 3 -1.0 MPC 600 1 4 1.0 2 4 -1.0 MPC 600 1 5 1.0 2 5 -1.0 MPC 600 1 6 1.0 2 6 -1.0 MPC 600 3 1 1.0 2 1 -1.0 MPC 600 3 2 1.0 2 2 -1.0 MPC 600 3 3 1.0 2 3 -1.0 MPC 600 3 4 1.0 2 4 -1.0 MPC 600 3 5 1.0 2 5 -1.0 MPC 600 3 6 1.0 2 6 -1.0 MPC 600 116 1 1.0 2 1 -1.0 MPC 600 116 2 1.0 2 2 -1.0 MPC 600 116 3 1.0 2 3 -1.0 MPC 600 120 1 1.0 2 1 -1.0 MPC 600 120 2 1.0 2 2 -1.0 MPC 600 120 3 1.0 2 3 -1.0 MPC 600 121 1 1.0 127 1 -1.0 MPC 600 101 1 1.0 107 1 -1.0 MPC 600 101 2 1.0 107 2 -1.0 MPC 600 101 3 1.0 107 3 -1.0 MPC 600 113 1 1.0 119 1 -1.0 MPC 600 113 2 1.0 119 2 -1.0 MPC 600 113 3 1.0 119 3 -1.0 MPC 600 123 1 1.0 125 1 -1.0 MPC 600 103 1 1.0 105 1 -1.0 MPC 600 103 2 1.0 105 2 -1.0 MPC 600 103 3 1.0 105 3 -1.0 MPC 600 115 1 1.0 117 1 -1.0 MPC 600 115 2 1.0 117 2 -1.0 MPC 600 115 3 1.0 117 3 -1.0 PARAM APRESS 1 PARAM ATEMP 1 PARAM FXCOOR 1.0 PARAM FYCOOR 1.0 PARAM FZCOOR 1.0 PARAM IPRTCF 1 PARAM IPRTCI 1 PARAM IPRTCL 0 PARAM KTOUT -1 PARAM PGEOM 1 PARAM SIGN +1.0 PARAM STREAML 2 PARAM ZORIGN 0.0 PTRIA2 2000 1 0.1040 0. PTRIA2 2005 1 0.1040 0. PTRIA2 2010 1 0.0707 0. PTRIA2 2015 1 0.0707 0. PTRIA2 2020 1 0.0422 0. PTRIA2 2025 1 0.0422 0. RFORCE 1 0 0 267.367 1.0 0.0 0.0 SPC1 500 23 121 123 124 125 127 128 SPC1 500 45 7 10 12 SPC1 500 456 101 103 104 105 107 108 SPC1 500 456 113 115 116 117 119 120 SPC1 500 456 121 123 124 125 127 128 STREAML1 1 1 THRU 3 STREAML1 2 4 THRU 6 STREAML1 3 7 THRU 9 STREAML1 4 10 THRU 12 ENDDATA ================================================ FILE: inp/t17011a.inp ================================================ ID T17011A,NASTRAN $ $ THIS DEMO IS SAME AS T03131A WHERE SOLUTION 3 IS USED WITH DMAP $ ALTERS, COSDDAM $ SOL 17 APP DISP DIAG 14,25 TIME 20 CEND TITLE = DYNAMIC DESIGN ANALYSIS METHOD, DDAM SUBTITLE = NASTRAN TEST PROBLEM NO. T17-01-1A LABEL = HY-100 PLATFORM MODEL OLOAD = ALL DISP = ALL METHOD = 1 SPC = 1 FORCE(SORT2) = ALL STRESS(SORT2) = ALL BEGIN BULK BAROR 1 0. 1. 1. 1 CBAR 1 1 2 CBAR 2 2 3 CBAR 3 3 4 CBAR 4 4 5 CBAR 5 4 2 6 1. 0. 1. CBAR 6 5 3 8 1. 0. 1. CBAR 7 5 4 10 1. 0. 1. CBAR 8 2 6 7 CBAR 9 2 7 8 CBAR 10 2 8 9 CBAR 11 2 9 10 CBAR 12 4 6 11 1. 0. 1. CBAR 13 5 8 13 1. 0. 1. CBAR 14 5 10 15 1. 0. 1. CBAR 15 2 11 12 CBAR 16 2 12 13 CBAR 17 2 13 14 CBAR 18 2 14 15 CBAR 19 4 11 17 1. 0. 1. CBAR 20 5 13 20 1. 0. 1. CBAR 21 5 15 23 1. 0. 1. CBAR 22 3 16 17 CBAR 23 3 17 18 CBAR 24 3 18 19 CBAR 25 3 19 20 CBAR 26 3 20 21 CBAR 27 3 21 22 CBAR 28 3 22 23 CBAR 29 3 23 24 CBAR 30 19 25 0. 1. -1. CBAR 31 22 26 0. 1. -1. CBAR 32 4 17 27 1. 0. 1. CBAR 33 5 23 28 1. 0. 1. CONM2 32 2 1 7.76 CONM2 33 4 1 7.76 CONM2 34 7 1 9.52 CONM2 35 9 1 9.52 CONM2 36 11 1 29.97 CONM2 37 12 1 4. CONM2 38 14 1 4. CONM2 39 15 1 29.97 CONM2 40 18 1 5. CONM2 41 21 1 5. CORD2R 1 0. 0. 0. 0. 0. 1. +COR1 +COR1 1. 0. 1. EIGR 1 GIV 30 1.-3 +EGR1 +EGR1 MAX GRID 1 0. 0. GRID 2 0. 50. GRID 3 0. 150. GRID 4 0. 230. GRID 5 0. 280. GRID 6 48. 50. GRID 7 48. 130. GRID 8 48. 150. GRID 9 48. 180. GRID 10 48. 230. GRID 11 120. 50. GRID 12 120. 90. GRID 13 120. 150. GRID 14 120. 195. GRID 15 120. 230. GRID 16 180. 0. GRID 17 180. 50. GRID 18 180. 100. GRID 19 180. 120. GRID 20 180. 150. GRID 21 180. 190. GRID 22 180. 205. GRID 23 180. 230. GRID 24 180. 280. GRID 25 180. 120. -96. GRID 26 180. 205. -96. GRID 27 230. 50. GRID 28 230. 230. MAT1 1 3.+7 .3 0. OMIT1 456 1 THRU 15 OMIT1 456 17 THRU 23 OMIT1 123456 3 6 8 10 13 17 19 +OMT1 +OMT1 20 22 23 PBAR 1 1 20. 332. 133. 3.8 +BAR1 +BAR1 4.8 5.0 4.8 -5.0 -4.8 -5. -4.8 5.0 PBAR 2 1 12.6 114. 51.2 1.4 +BAR2 +BAR2 3.6 4. 3.6 -4. -3.6 -4. -3.6 4. PBAR 3 1 20. 332. 133. 3.8 +BAR3 +BAR3 4.8 5. 4.8 -5. -4.8 -5. -4.8 5. PBAR 4 1 44. 861. 432. 30. +BAR4 +BAR4 5.5 6. 5.5 -6. -5.5 -6. -5.5 6. PBAR 5 1 44. 861. 432. 30. +BAR5 +BAR5 5.5 6. 5.5 -6. -5.5 -6. -5.5 6. SPC1 1 123 1 5 SPC1 1 123456 16 24 25 26 27 28 PARAM ACCA 10.4 PARAM ACCB 480. PARAM ACCC 20. PARAM ACCD 0. PARAM ACC1 .4 PARAM ACC2 1. PARAM ACC3 1. PARAM VELA 20. PARAM VELB 480. PARAM VELC 100. PARAM VEL1 .4 PARAM VEL2 1. PARAM VEL3 1. PARAM LMODES 30 ENDDATA ================================================ FILE: mds/DSIOF.COM ================================================ PARAMETER ( MAXPRI = 80, MAXFCB = 89 ) COMMON / DSIO / IEOR *, IOERR , IPRVOP, IRETRN, IRWORD, IDATAD *, IDSN , LCW , LWORDS, MASKH1, MASKH2 *, MASKE1, MASKE2, MASKE3, MASKE4, MAXDSN, NWORDS *, NBUFF , IOBLK , NBFZ , NLR *, MASKQ1, MASKQ2, MASKQ3, MASKQ4, IDSX , IDSP *, IDSC , IDSRH , IDSRT , IDSSB , IDSSE , IDSCH *, IDSCT , IDSSH , IDSST , IDSSD , IDSEB , IDSEF *, IBLOCK, LASNAM, MCBMAS, MULQ1 , MULQ2 , MULQ3 *, LHALF *, LENDSP, LENWPB, NWRDEL(4) COMMON /DSNAME/ MDSNAM(MAXFCB) COMMON /DSDEVC/ NUMDEV, DEV(10) CHARACTER*2 DEV CHARACTER*80 MDSNAM COMMON /DBM / IDBBAS, IDBFRE, IDBDIR, INDBAS, INDCLR, INDCBP *, NBLOCK, LENALC, IOCODE, IFILEX, NAME, MAXALC *, MAXBLK, MAXDSK, IDBLEN, IDBADR, IBASBF, INDDIR *, NUMOPN, NUMCLS, NUMWRI, NUMREA, LENOPC INTEGER FCB COMMON / FCB / FCB(17,MAXFCB) ================================================ FILE: mds/GINOX.COM ================================================ PARAMETER ( NUMFCB=89, NUMSOF=10 ) COMMON / GINOX / LGINOX, IDSLIM, MDSFCB( 3,NUMFCB ), & LENSOF( NUMSOF ) ================================================ FILE: mds/NASNAMES.COM ================================================ COMMON / DOSNAM / DIRTRY, RFDIR, INPUT, OUTPUT, LOG , PUNCH &, PLOT, NPTP , DIC , OPTP , RDIC, IN12, OUT11 &, INP1, INP2 CHARACTER * 72 DIRTRY, RFDIR, INPUT, OUTPUT, LOG , PUNCH CHARACTER * 72 PLOT , NPTP , DIC , OPTP , RDIC, IN12, OUT11 CHARACTER * 72 INP1, INP2 COMMON / DSNAME / DSNAMES(89) CHARACTER * 80 DSNAMES ================================================ FILE: mds/PAKBLK.COM ================================================ COMMON / PAKBLK / ITYPI, ITYPO, ITRAIL, IBLKA(15), IBLKB(15), * IBLKC(15) , IBLKD(15)  ================================================ FILE: mds/XNSTRN.COM ================================================ COMMON / ZZZZZZ / IBASE(700000) ================================================ FILE: mds/ZZZZZZ.COM ================================================ COMMON / ZZZZZZ /MEM(10) ================================================ FILE: mds/bckrec.f ================================================ SUBROUTINE BCKREC ( FILE ) INCLUDE 'DSIOF.COM' INTEGER FILE NAME = FILE CALL DSGEFL CALL DSBRC1 CALL DSSDCB RETURN END ================================================ FILE: mds/bldpk.f ================================================ SUBROUTINE BLDPK ( ITYPIN, ITYPOT, FILE, BLOCK, IFLAG ) INCLUDE 'PAKBLK.COM' INCLUDE 'DSIOF.COM' INTEGER BLOCK(15), FILE ITRAIL = IFLAG ITYPI = ITYPIN ITYPO = ITYPOT NAME = FILE IF ( ITYPI .LT. 1 .OR. ITYPI .GT. 4 ) GO TO 40 IF ( ITYPO .LT. 1 .OR. ITYPO .GT. 4 ) GO TO 40 IF ( IFLAG .EQ. 0 ) GO TO 20 CALL DSBLPK ( BLOCK ) GO TO 30 20 ITRAIL = 0 CALL DSBLPK ( IBLKA ) 30 GO TO 700 40 IF ( IFLAG .EQ. 0 ) CALL DSMSG1 ( IBLKA ) IF ( IFLAG .NE. 0 ) CALL DSMSG1 ( BLOCK ) CALL DSMSG( 118 ) 700 RETURN END ================================================ FILE: mds/bldpki.f ================================================ SUBROUTINE BLDPKI ( A, I, FILE, BLOCK ) INTEGER BLOCK(15), A(4), FILE INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' NAME = FILE BLOCK( 15 ) = I ITYPIN = BLOCK( 13 ) NWORDS = NWRDEL( ITYPIN ) IF ( BLOCK( 2 ) .GE. 3 ) GO TO 5 INCCNT = 1 GO TO 8 5 INCCNT = 2 8 CONTINUE DO 10 K = 1, NWORDS IF ( A( K ) .NE. 0 ) GO TO 20 10 CONTINUE GO TO 7000 20 IF ( BLOCK( 4 ) .EQ. 0 ) GO TO 35 NEXROW = BLOCK( 4 ) + BLOCK( 7 ) ICROW = BLOCK( 15 ) IF ( ICROW .GE. NEXROW ) GO TO 30 CALL DSMSG1( BLOCK ) CALL DSMSG( 119 ) 30 IF ( ICROW .EQ. NEXROW ) GO TO 40 CALL ENDPUT( BLOCK ) CALL PUTSTR( BLOCK ) BLOCK( 7 ) = 0 35 ICROW = BLOCK( 15 ) BLOCK( 4 ) = ICROW 40 INDEX = ( BLOCK( 5 ) - 1 ) * BLOCK( 14 ) + 1 IF ( ITYPIN .NE. BLOCK( 2 ) ) GO TO 100 CDIR$ NOVECTOR DO 70 KK = 1, NWORDS IBASE( INDEX + KK - 1 ) = A( KK ) 70 CONTINUE CDIR$ VECTOR GO TO 200 100 CALL DSUPKC ( ITYPIN, BLOCK( 2 ), A, IBASE( INDEX ) ) 200 CONTINUE BLOCK( 5 ) = BLOCK( 5 ) + INCCNT BLOCK( 7 ) = BLOCK( 7 ) + 1 BLOCK(10 ) = BLOCK(10 ) + BLOCK( 11 ) IF ( BLOCK( 6 ) .GT. BLOCK( 7 ) ) GO TO 7000 CALL ENDPUT( BLOCK ) CALL PUTSTR( BLOCK ) BLOCK( 4 ) = 0 BLOCK( 7 ) = 0 7000 RETURN END ================================================ FILE: mds/bldpkn.f ================================================ SUBROUTINE BLDPKN ( FILE, BLOCK, MCB ) INCLUDE 'PAKBLK.COM' INCLUDE 'DSIOF.COM' INTEGER FILE, BLOCK( 15 ), MCB( 7 ) NAME = FILE IF ( BLOCK( 1) .EQ. 0 ) GO TO 10 CALL DSBPNK ( BLOCK, MCB ) GO TO 20 10 CALL DSBPNK ( IBLKA, MCB ) 20 CONTINUE RETURN END ================================================ FILE: mds/bpack.f ================================================ SUBROUTINE BPACK (IG,I,J,L) C IMPLICIT INTEGER (A-Z) C CDC NEXT 2 LINES FOR CDC AND UNIVAC ONLY C EXTERNAL ORF, LSHIFT C INTEGER IG(1) C C NEXT LINE FOR IBM, VAX, AND MACHINES THAT HAVE INTEGER*2 INTEGER*2 IG(1) C COMMON /BANDB / NBIT, DUM3B(3), IPASS, NW, DUM1B, 1 NBPW COMMON /BANDS / DUM4S(4), II1, DUM5S(5), MASK C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C PACK INTERNAL GRID NO. INTO IG TABLE. SEE BUNPK FOR UNPACKING C TABLE IG IS PACKED COLUMN-WISE. C USE APPROP. PORTION OF THIS ROUTINE FOR DIFFERENT TYPE OF MACHINE. C IPASS=COUNTER ON NUMBER OF CALLS TO PACK/UNPACK C C NOTE - THIS ROUTINE DOES NOT CHECK NOR ZERO OUT THE PACKING SLOT C BEFORE PACKING. C L IS ASSUMED TO BE A POSITIVE INTEGER, NBIT BITS OR LESS C IPASS=IPASS+1 LOC =J-1 C C ******************************************** C UNIVAC AND CDC MACHINES C (IG SHOULD BE IN INTEGER*4 HERE) C ******************************************** C C N1 =II1*(LOC/NW)+I C N2 =MOD(LOC,NW)*NBIT+NBIT C LOC=ORF(IG(N1),LSHIFT(L,NBPW-N2)) C IG(N1)=LOC C C RETURN C C ******************************************** C IBM AND VAX MACHINES C (IG IS SET TO INTEGER*2 IN BPACK AND BUNPK, ELSEWHERE INTEGER*4) C INTEGER*2 IG(1) C ******************************************** C N1=II1*LOC+I IG(N1)=L RETURN END ================================================ FILE: mds/btstrp.f ================================================ SUBROUTINE BTSTRP C C BASED ON MACHINE NUMBER, BTSTRP WILL DEFINE ALL THE C MACHINE-DEPENDENT CONSTANTS NEEDED IN NASTRAN. THESE CONSTANTS C ARE SAVED IN LABEL COMMONS /SYSTEM/, /LHPWX/, /MACHIN/ & /CHMACH/ C C SEE ALSO PRTPRM, SDCMPS, SDR2E, AND UPCASE WHEN NASTRAN SOURCE C CODE IS PORTED TO OTHER (NEW) MACHINE C C === C EXTERNAL LSHIFT ,RSHIFT ,ANDF ,COMPLF CHARACTER MCHNAM*11, MACHOS*7, COMPUT(22)*11, COMPOS(22)*7 INTEGER SYSBUF ,OUTTAP ,TWO ,COMPLF ,RSHIFT , 1 FCB ,ORDER ,IDATE(3), 2 ABCD ,AK ,RECL ,ANDF , 3 SPERLK ,QP ,M1(110) ,M2(110) ,MCONST(220), 4 HIGHPW REAL XX ,YY COMMON /MACHIN/ MACHX ,IHALF ,JHALF ,LQRO COMMON /CHMACH/ MCHNAM, MACHOS COMMON /SEM / A ,MASK2 ,MASK3 ,LNKNOS(15) COMMON /LHPWX / LOWPW ,HIGHPW ,NWPIC ,NUDFLW ,MXFL , 1 KSHIFT ,MTISA COMMON /SYSTEM/ B(100) COMMON /TWO / TWO(32),MZERO COMMON /XXREAD/ DUM(3) ,IBMCDC EQUIVALENCE (B( 1),SYSBUF) ,(B(22),LINKNO) ,(B(40),NBPW ) , 1 (B( 2),OUTTAP) ,(B(41),NCPW ) , (B(42),IDATE(1)), 2 (B( 4),INTP ) ,(B(34),IDRUM ) ,(B(55),IPREC) , 3 (B( 9),NLPP ) ,(B(39),NBPC ) ,(B(91),LPCH ) , 4 (B(92),LDICT ) ,(B(95),SPERLK) ,(MACHX,MACH ) , 5 (M1(1),MCONST(1)) ,(M2(1) ,MCONST(111) ) C C DEFINE SYSTEM RELEASE DATE C DATA IMNTH, IYR1, IYR2 /4HAPR., 3H 19, 2H95 / C DATA XX , YY / 1.2E-38, 0.3E-38 / DATA MVAX , ABCD , KA / 1H1, 4HABCD ,4HA / C C MACH = MACHX = HOST MACHINE C ANY SUBROUTINE, THAT USES 'MACHX' INSTEAD OF 'MACH' IN C LABEL COMMON /MACHIN/, CONTAINES MACHINE CONSTANTS THAT C ARE USED LOCALLY. C NMACH = NUMBER OF MACHINES C MCONST = ARRAY CONTAINING MACHINE DEPENDENT CONSTANTS C C C COSMIC/NASTRAN SUPPORTS ONLY MACHINES 2, 5, 6, 7, 8, 9, 10, 16, C 21, & 22. CONSTANTS FOR OTHER MACHINES MAY NOT BE EXACT C C -MACHINE- IBM/ UNIVAC CDC DEC/ DEC/ SUN IBM/ HP C DUMMY MVS FTN FTN5 VMS ULTRIX SOLARIS AIX UX C MACH = -1- ---2- ---3- ---4- ---5- ---6- ---7- ---8- ---9- C C SGI MAC CRAY CONVEX NEC FUJITSU SUN AMDAHL PRIME C IRIS UNICOS SUNOS C --10- --11- --12- --13- --14- --15- --16- --17- --18- C C PC DEC/ DEC/ C MS/DOS DUMMY OPENVMS OSF C --19- --20- --21- --22- C C MACHINE NAMES C DATA COMPUT/ 1 'DUMMY ', 'IBM ', 'UNIVAC ', 2 'CDC ', 'DEC-VAX ', 'DEC-MIPS ', 3 'SUN ', 'IBM RS6000 ', 'HP ', 4 'SGI ', 'MACINTOCH ', 'CRAY ', 5 'CONVEX ', 'NEC ', 'FUJITSU ', 6 'SUN ', 'AMDAHL ', 'PRIME ', 7 'PC ', 'DUMMY ', 'DEC-ALPHA ', 8 'DEC-ALPHA '/ C C MACHINE OPERATING SYSTEM C DATA COMPOS/ 1 ' ', 'MVS ', 'FTN ', 2 'FTN5 ', 'VMS ', 'ULTRIX ', 3 'SOLARIS', 'AIX ', 'HP-UX ', 4 'IRIX ', ' ', 'UNICOS ', 5 ' ', ' ', ' ', 6 'SUNOS ', ' ', ' ', 7 'MS-DOS ', ' ', 'OPENVMS', 8 'OSF '/ C DATA NMACH / 22 /, M1/ C C SYSBUF = LENGTH OF NASTRAN I/O BUFFER C 1 200, 4100, 871, 1042, 1028, 1028, 1028, 1028, 1028, 2 1028, 1028, 2052, 1028, 2052, 2052, 1028, 1028, 1028, 3 1028, 1028, 1028, 1028, C C INTP(X100) = FORTRAN UNIT NO. FOR INPUT DATA C OUTTAP = FORTRAN UNIT NO. FOR PRINTED OUTPUT C 4 5 06, 5 06, 5 06, 5 06, 5 06, 5 06, 5 06, 5 06, 5 06, 5 5 06, 5 06, 5 06, 5 06, 5 06, 5 06, 5 06, 5 06, 5 06, 6 5 06, 5 06, 5 06, 5 06, C C C NLPP(X100) = NUMBER OF LINES PRINTED PER PAGE C NWPIC = NUMBER OF WORDS PER INPUT CARD, USED ONLY IN XGPIBS C 7 50 00, 55 18, 55 18, 42 08, 55 18, 55 18, 55 18, 55 18, 55 18, 8 55 18, 55 18, 55 09, 55 18, 55 00, 55 00, 55 00, 55 00, 55 00, 9 55 00, 55 00, 55 18, 55 0, C C NBPC(X100) = NUMBER OF BITS PER CHARACTER C NBPW = NUMBER OF BITS PER WORD C O 6 36, 8 32, 9 36, 6 60, 8 32, 8 32, 8 32, 8 32, 8 32, 1 8 32, 8 32, 8 64, 8 32, 8 64, 8 64, 8 32, 8 32, 8 32, 2 8 32, 8 32, 8 32, 8 32, C C IPREC(X100) = PRECISION (1 = S.P., 2 = D.P.) C RECL(X10) = DIRECT FILE RECORD LENGTH (USED IN FORTRAN OPEN C STATEMENT) BY WORDS (= 1), OR BYTE (= NCPW) C QP = REAL*16 PRECISION FLAG (1 = YES, 0 = NO) C CWKBR3 2 0 0, 2 4 0, 2 1 1, 1 1 0, 2 1 1, 2 1 0, 2 4 0, 2 4 1, 2 4 1, 3 2 0 0, 2 4 0, 2 1 0, 1 1 0, 2 1 0, 2 1 0, 2 4 0, 2 4 0, 2 4 0, 4 2 1 0, 2 0 0, 1 8 0, 2 4 0, 1 0 0, 1 0 0, 2 0 0, 2 0 0, 2 0 0, 5 2 0 0, 2 0 0, 2 1 0, 2 0 0 / C C DATA M2/ C C LPCH(X100) = FORTRAN UNIT NO. FOR PUNCHED OUTPUT C LDICT = FORTRAN UNIT NO. FOR RESTART DICTIONARY PUNCH C 1 7 03, 7 07, 1 03, 7 07, 1 04, 1 04, 1 04, 1 04, 1 04, 2 1 04, 1 04, 1 04, 1 04, 1 04, 1 04, 1 04, 1 04, 1 04, 3 1 04, 1 04, 1 04, 1 04, C C LOWPW, HIGHPW = MACHINE NUMERIC RANGE FOR S. P. REAL NUMBER, C USED ONLY BY RCARD, RCARD2, XRCARD AND YRCARD C 4 38, 75, 38, 321, 38, 38, 38, 38, 38, 5 38, 38, 2465, 38, 0, 0, 0, 0, 0, 6 0, 0, 38, 0, C C NUDFLW(X100) = FLOATING NUMBER UNDERFLOW CONTROL C (USED ONLY BY FQRW AND FQRWV) C MXFL = MAXINUM FILES MAXFIL CAN REQUEST VIA THE NASTRAN C CARD, USED ONLY IN NASCAR C 7 16 50, 16 50, 18 49, 14 75, 8 75, 16 75, 16 75, 16 75, 16 75, 8 16 75, 16 75, 16 75, 16 75, 16 75, 16 75, 16 75, 16 75, 16 75, 9 16 75, 16 75, 9 75, 16 75, C C KSHIFT = SHIFT COUNTS USED IN A DIVIDE TO CONVERT A GINO LOC C RETURNED FROM SAVPOS TO GINO BLOCK NUMBER, USED IN EMA C O 1, 4096, 4096,262144, 4096, 4096, 4096, 4096, 4096, 1 4096, 4096, 4096, 4096, 0, 0, 0, 0, 0, 2 0, 0, 4096, 0, C C MANTISSA BITS, USED ONLY IN SDCMPS C 3 0 00, 24 26, 27 60, 48 96, 23 55, 23 55, 23 52, 23 55, 23 55, 4 23 55, 23 55, 48 96, 23 52, 48 96, 48 96, 23 55, 23 55, 23 55, 5 0 00, 0 00, 23 55, 0 00/ C C DEFINE SYSTEM (42), SYSTEM(43), SYSTEM(44) C IDATE(1) = IMNTH IDATE(2) = IYR1 IDATE(3) = IYR2 C C MACHINE TYPE IS SET HERE C +++++++++++++++++++++++++++++++ 100 MACH = 7 MCHNAM = COMPUT(MACH) MACHOS = COMPOS(MACH) SYSBUF = MCONST(MACH) IBMCDC = 1 IF (MACH.EQ.2 .OR. MACH.EQ.4) IBMCDC = 0 C I = MACH + NMACH INTP = MCONST(I)/100 OUTTAP = MOD(MCONST(I),100) C I = I + NMACH NLPP = MCONST(I)/100 NWPIC = MOD(MCONST(I),100) C I = I + NMACH NBPC = MCONST(I)/100 NBPW = MOD(MCONST(I),100) C I = I + NMACH IPREC = MCONST(I)/100 RECL = MOD(MCONST(I),100)/10 QP = MOD(MCONST(I),10) C C I = I + NMACH LPCH = MCONST(I)/100 LDICT = MOD(MCONST(I),100) C C MACHINE S.P. RANGE C I = I + NMACH HIGHPW = MCONST(I) LOWPW = 1 - HIGHPW IF (MACH .EQ. 2) LOWPW = -78 IF (MACH .EQ. 4) LOWPW = -292 C C FLOATING NUMBER UNDERFLOW CONTROL C MAXINUM FILES FOR MAXFIL CHECK C I = I + NMACH NUDFLW = MCONST(I)/100 MXFL = MOD(MCONST(I),100) C C SHIFT COUNTER FOR EMA SUBROUTINE C I = I + NMACH KSHIFT = MCONST(I) C C MANTISSA BITS C I = I + NMACH MTISA = MCONST(I)/100 IF (IPREC .EQ. 2) MTISA = MOD(MCONST(I),100) C C NUMBER OF BITS PER HALF WORD, USED MAINLY FOR INTEGER PACKING C C IHALF = NBPW/2 C JHALF = 2**IHALF - 1 IHALF = 16 JHALF = 65535 C C NUMBER OF CHARACTERS PER WORD C NCPW = NBPW/NBPC C C ZERO FIELD KA, AK AND GENERATE A MASK FOR FIRST BYTE C AK = KHRFN1(0,1,KA,4) KA = KHRFN1(0,1,KA,1) I = 2**NBPC - 1 MASK = LSHIFT(I,NBPW-NBPC) C C CHECK BCD WORD (NOT CHARACTER WORD) STORING ORDER. C IF 'ABCD' IS STORED INTERNALLY IN A-B-C-D ORDER, SET ORDER TO 0, C OR IF IT IS STORED IN REVERSED ORDER, D-C-B-A, SET ORDER TO 1 C I = ANDF(ABCD,MASK) ORDER = 0 IF (NBPW.LT.60 .AND. I.NE.KA .AND. I.NE.AK) ORDER = 1 C C CHECK SYSTEM LOC OR %LOC FUNCTION. C IF SYSTEM LOC FUNCTION IS WORD COUNT, SET LOCF TO 1 C IF SYSTEM LOC FUNCTION IS BYTE COUNT, SET LOCF TO NCPW C LQRO = 1000 I = LOCFX(B(11)) - LOCFX(B(1)) LOCF = I/10 C C MERGE LOCF, QP, RECL, AND ORDER INTO LQRO C LQRO = LOCF*1000 + QP*100 + RECL*10 + ORDER C C C GENERATE MASKS C 7094 360 1108 6600 C MASK2 = 777777007777,FFFFFFF0,777777607777,77777760777777777777 C MASK3 = 377777777777,7FFFFFFF,377777777777,37777777777777777777 C TWO(1) = 020000000000,80000000,020000000000,00000000020000000000 C MASK2 = COMPLF(LSHIFT(2**NBPC-1, NBPW-4*NBPC)) MASK3 = RSHIFT(COMPLF(0),1) MZERO = LSHIFT(1,NBPW-1) TWO(1) = LSHIFT(1,31) C C TWO(1) = LSHIFT(1,31) = 2**31 C = +2147483648 IN MACHINES WITH MORE THAN 32-BIT WORD C = -2147483648 IN 32-BIT MACHINES. A NEGATIVE NUMBER! C = -0.000E0 IN SOME 32-BIT MACHINES C = +0.000E0 IN OTHER 32-BIT MACHINES C NOTICE FOR THE 32-BIT MACHINES, IABS(-2147483648) IS FATAL! C C DEFINE COMMONLY USED PHYSICAL CONSTANTS C CALL CNSTDD LINKNO = LNKNOS(1) C RETURN END ================================================ FILE: mds/bufchk.f ================================================ SUBROUTINE BUFCHK C IMPLICIT INTEGER (A-Z) LOGICAL OD,OS,OR,STRDAT INTEGER I(4) REAL S(4) DOUBLE PRECISION D(2) CHARACTER*8 NAM,IIBL COMMON /ZZZZZZ/ B(1) COMMON /BUFCOM/ OFFSET,OUTBGN,OUTEND,OUTLVL EQUIVALENCE (I(1),S(1),D(1)) DATA NOUT , NAM , IIBL / 1 6 , 'BUFCHK@','II,B(L)=' / C VAX: DATA RECTRL , RCTRLL , RCTRLC , COLHDR, COLTRL / 1 '1'X , '2'X , '3'X , '4'X , '8'X / DATA RECHDR , RCHDST , STRDUM , EOBSTR / 1 'F1111'X, 'F2222'X , 'FAAAA'X, 'FBBBB'X / DATA EOB , EOF , STRHDR , STRTRL / 1 'F5555'X, 'F7777'X , 'F8888'X, 'F9999'X / C UNIX: C DATA RECTRL , RCTRLL , RCTRLC , COLHDR, COLTRL / C 1 X'1' , X'2' , X'3' , X'4' , X'8' / C DATA RECHDR , RCHDST , STRDUM , EOBSTR / C 1 X'F1111', X'F2222' , X'FAAAA', X'FBBBB' / C DATA EOB , EOF , STRHDR , STRTRL / C 1 X'F5555', X'F7777' , X'F8888', X'F9999' / C C***** LSHIFT(K,J) = ISHFT(K, J) RSHIFT(K,J) = ISHFT(K,-J) C WHERE ISHFT(K,+J) IS LEFT-SHIFT K BY J BITS, ZERO FILL C ISHFT(K,-J) IS RIGHT-SHIFT K BY J BITS, ZERO FILL C AND ISHFT IS SYSTEM ROUTINE C C UNIX: C REMOVE ABOVE 2 ON-LINE FUNCTIONS IF THE SYSTEM ISHFT FUNCTION IS C NOT AVAILABLE. LSHIFT AND RSHIFT ARE ALREADY ENTRY POINTS IN C SUBROUTINE MAPFNS. C***** C L = OFFSET - 1 DATBGN = L + 1 DATEND = L + 8 DATTYP = 5 SKP = 0 C DO 700 II = 1,10000 IF (II .LE. OUTEND) GO TO 110 IF (OD) WRITE (NOUT,100) NAM,II 100 FORMAT (5X,A7,'100 LIMIT POINTER REACHED. II=',I6) GO TO 900 110 L = L + 1 OD = II.GE.OUTBGN .AND. OUTLVL.GT.0 OS = II.GE.OUTBGN .AND. OUTLVL.GT.1 OR = II.GE.OUTBGN .AND. OUTLVL.GT.2 SKP = SKP - 1 IF (SKP .GT. 0) GO TO 700 IF (L.GE.DATBGN .AND. L.LE.DATEND) GO TO 500 W = B(L) F1 = RSHIFT( W ,28) F2 = RSHIFT(LSHIFT(W, 4),16) F3 = RSHIFT(LSHIFT(W,20),20) F12 = RSHIFT( W ,12) F31 = RSHIFT(LSHIFT(W,20),24) F32 = RSHIFT(LSHIFT(W,28),28) IF (F12 .NE. RECHDR) GO TO 160 DATBGN = L + 1 DATEND = L + F3 DATTYP = 5 IF (OD) WRITE (NOUT,150) NAM,IIBL,II,B(L) 150 FORMAT (5X,A7,'150 REC HDR - NO STRING. ',A8,I6,Z8) GO TO 700 160 IF (F12 .NE. RCHDST) GO TO 180 IF (OD) WRITE (NOUT,170) NAM,IIBL,II,B(L) 170 FORMAT (5X,A7,'170 REC HDR - STRING. ',A8,I6,Z8) STRDAT = .TRUE. GO TO 700 180 IF (.NOT.(F1.EQ.RECTRL .OR. F1.EQ.RCTRLL)) GO TO 210 IF (OD) WRITE (NOUT,200) NAM,IIBL,II,B(L) 200 FORMAT (5X,A7,'200 REC TRAILR - END OF RECORD. ',A8,I6,Z8) GO TO 700 210 IF (F1 .NE. RCTRLC) GO TO 240 IF (OD) WRITE (NOUT,230) NAM,IIBL,II,B(L) 230 FORMAT (5X,A7,'230 REC TRAILER - RECORD CONTINUES. ',A8,I6,Z8) GO TO 700 240 IF (F12 .NE. EOB) GO TO 260 IF (OD) WRITE (NOUT,250) NAM,IIBL,II,B(L) 250 FORMAT (5X,A7,'250 END OF BLOCK. ',A8,I6,Z8) GO TO 700 260 IF (F12 .NE. EOF) GO TO 280 IF (OD) WRITE (NOUT,270) NAM,IIBL,II,B(L) 270 FORMAT (5X,A7,'270 END OF FILE. ',A8,I6,Z8) GO TO 700 280 IF (F1 .NE. COLHDR) GO TO 310 IF (OD) WRITE (NOUT,300) NAM,IIBL,II,B(L),F2 300 FORMAT (5X,A7,'300 COLUMN HEADER. ',A7,',F2=',I6,Z8,I8) DATTYP = F31 GO TO 700 310 IF (F1 .NE. COLTRL) GO TO 340 IF (OD) WRITE (NOUT,330) NAM,IIBL,II,B(L),F2 330 FORMAT (5X,A7,'330 COLUMN TRAILER. ',A7,',F2=',I6,Z8,I8) GO TO 700 340 IF (F12 .NE. STRHDR) GO TO 360 IF (OD) WRITE (NOUT,350) NAM,IIBL,II,B(L),B(L+1),F3 350 FORMAT (5X,A7,'350 STRING HEADER. ',A7,',B(L+1),F3=',I6,2Z8,I8) SKP = 2 DATBGN = L + 1 DATEND = L + F3 GO TO 700 360 IF (F12 .NE. STRTRL) GO TO 380 IF (OD) WRITE (NOUT,370) NAM,IIBL,II,B(L),B(L+1),F3 370 FORMAT (5X,A7,'370 STRING TRAILER. ',A7,',B(L+1),F3=',I6,2Z8,I8) SKP = 2 GO TO 700 380 IF (F12 .NE. STRDUM) GO TO 410 IF (OD) WRITE (NOUT,400) NAM,IIBL,II,B(L) 400 FORMAT (5X,A7,'400 STRING DUMMY WORD. ',A8,I6,Z8) GO TO 700 410 WRITE (NOUT,430) NAM,IIBL,II,B(L) 430 FORMAT (5X,A7,'430 INVALID CONTROL WORD. ',A8,I6,Z8) GO TO 800 C 500 CONTINUE DO 510 J = 1,4 510 I(J) = B(L+J-1) GO TO (610,620,630,640,650) DATTYP WRITE (NOUT,550) NAM,DATTYP 550 FORMAT (5X,A7,'550 BAD DATA TYP, DATTYP=',I6) GO TO 800 610 IF (OS) WRITE (NOUT,615) NAM,II,S(1) 615 FORMAT (5X,A7,'615 II,S(1)=',I6,E13.6) GO TO 700 620 IF (OS) WRITE (NOUT,625) NAM,II,D(1) 625 FORMAT (5X,A7,'625 II,D(1)=',I6,D17.9) SKP = 2 GO TO 700 630 IF (OS) WRITE (NOUT,635) NAM,II,S(1),S(2) 635 FORMAT (5X,A7,'635 II,S(1),S(2)=',I6,2E13.6) SKP = 2 GO TO 700 640 IF (OS) WRITE (NOUT,645) NAM,II,D(1),D(2) 645 FORMAT (5X,A7,'645 II,D(1),D(2)=',I6,2D17.9) SKP = 4 GO TO 700 650 IF (OR) WRITE (NOUT,660) NAM,II,I(1) 660 FORMAT (5X,A7,'615 II,I(1)=',I6,I14) 700 CONTINUE C WRITE (NOUT,750) NAM 750 FORMAT (5X,A7,'750 BLOCK TOO LONG') 800 CALL VAXEND 900 RETURN END ================================================ FILE: mds/bunpak.f ================================================ SUBROUTINE BUNPAK (IG,I,NJ,JG) C C THIS ROUTINE WORKS SIMILARLY AS BUNPK EXCEPT IT UNPACKS A WHOLE C (I-TH) ROW OF GRID NUMBERS (1 THRU NJ) FROM IG TABLE, AND SAVES C THE UNPACKED DATA IN JG ARRAY. C (BUNPK UNPACKS ONLY AN ELEMENT OF GRID NUMBER IN IG TABLE) C C THIS ROUTINE GREATLY INCREASES BANDIT INTERNAL EFFICIENCY C WRITTEN BY G.CHAN/UNISYS, MAY 1988 C IMPLICIT INTEGER (A-Z) C CDC NEXT 2 LINES FOR CDC AND UNIVAC ONLY C EXTERNAL ANDF, RSHIFT C INTEGER ANDF, RSHIFT ,IG(1) C C NEXT LINE FOR IBM, VAX, AND MACHINES THAT HAVE INTEGER*2 INTEGER*2 IG(1) C INTEGER JG(1), NAM(2) COMMON /SYSTEM/ IBUF, NOUT COMMON /BANDB / NBIT, DUM3B(3), IPASS, NW COMMON /BANDS / DUM4S(4), II1, MAXDEG, DUM4(4), MASK DATA NAM / 4HUNPA , 4HK / C IF (NJ .LE. MAXDEG) GO TO 20 WRITE (NOUT,10) NJ,MAXDEG 10 FORMAT ('0 *** BUNPAK .GT. MAXDEG',2I7) CALL ERRTRC (NAM) C 20 IPASS = IPASS+NJ N1 = I C C ******************************************** C UNIVAC AND CDC MACHINES C ******************************************** C C DO 40 N=1,NJ,NW C N2 = IG(N1) C N3 = N+NW-1 C DO 30 M=1,NW C JG(N3) = ANDF(N2,MASK) C IF (M .EQ. NW) GO TO 40 C N2 = RSHIFT(N2,NBIT) C 30 N3 = N3-1 C 40 N1 = N1+II1 C RETURN C C ******************************************** C IBM AND VAX MACHINES C ******************************************** C DO 50 N=1,NJ JG(N) = IG(N1) 50 N1 = N1+II1 RETURN END ================================================ FILE: mds/bunpk.f ================================================ INTEGER FUNCTION BUNPK (IG,I,J) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C UNPACK INTEGER GRID NO. FROM IG TABLE. SEE BPACK FOR PACKING C USE APPROP. PORTION OF THIS ROUTINE FOR DIFFERENT TYPE OF MACHINE. C INTEGER*2 IG(1) C COMMON /BANDB / NBIT, DUM3B(3), IPASS, NW, DUM1B, 1 NBPW COMMON /BANDS / DUM4S(4), II1, DUM5S(5), MASK C IPASS=IPASS+1 LOC =J-1 C C ******************************************** C UNIVAC AND CDC MACHINES C ******************************************** C INTEGER RSHIFT, ANDF C C N1 =II1*(LOC/NW)+I C N2 =MOD(LOC,NW)*NBIT+NBIT C LOC=RSHIFT(IG(N1),NBPW-N2) C BUNPK=ANDF(LOC,MASK) C RETURN C C ******************************************** C IBM AND VAX MACHINES C (IG IS SET TO INTEGER*2 IN BPACK AND BUNPK, ELSEWHERE INTEGER*4) C INTEGER*2 IG(1) C ******************************************** C N1=II1*LOC+I BUNPK=IG(N1) RETURN END ================================================ FILE: mds/chkfil.f ================================================ program chkfil character*80 card read(5,901) card 901 format(a80) inptp = index( card, 'NPTP' ) iplt2 = index( card, 'PLT' ) iexit = 0 if ( inptp .ne. 0 ) iexit = 1 if ( iplt2 .ne. 0 ) iexit = iexit + 10 if ( iexit .eq. 0 ) go to 700 if ( iexit .eq. 1 ) open ( 77, file='nogood1', status='unknown' ) if ( iexit .eq. 10) open ( 77, file='nogood2', status='unknown' ) if ( iexit .eq. 11) open ( 77, file='nogood3', status='unknown' ) write ( 77, * ) ' iexit=',iexit close ( 77 ) 700 call exit( iexit ) end ================================================ FILE: mds/close.f ================================================ SUBROUTINE CLOSE ( FILE, IOP ) C*************************************************************** C NOTICE C C THIS PROGRAM BELONGS TO RPK CORPORATION. IT IS CONSIDERED C A TRADE SECRET AND IS NOT TO BE DIVULGED OR USED BY PARTIES C WHO HAVE NOT RECEIVED WRITTEN AUTHORIZATION FROM RPK. C*************************************************************** INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER*2 IUNIT COMMON / DSUNIT / IUNIT( 220 ) COMMON / SYSTEM / ISYSBF, DUM1( 77 ), IDIAG, DUM2( 21 ) INTEGER FILE NAME = FILE IOCODE = IOP IRETRN = 77 CALL DSGEFL IF ( IFILEX .EQ. 0 ) GO TO 50 IRETRN = 0 IF ( IAND( IDIAG,2**14 ).NE. 0 ) CALL DSMSG( 2 ) IF ( IOCODE .NE. 1 ) GO TO 20 IF ( IPRVOP .EQ. 0 ) GO TO 10 CALL DSEFWR IF ( ( INDCLR-INDBAS ) .EQ. 5 ) GO TO 5 IBASE( INDBAS+4 ) = INDCLR - INDBAS + 1 CALL DBMMGR( 4 ) 5 CALL DSXFSZ 10 CONTINUE CALL DBMMGR( 2 ) NBLOCK = 1 INDCLR = INDBAS + 5 INDCBP = INDCLR GO TO 40 20 IF ( IPRVOP .EQ. 0 ) GO TO 30 CALL DSEFWR IBASE( INDBAS+4 ) = INDCLR - INDBAS + 1 C SAVE INDBAS TO ALLOW DSBRC1 TO CORRECTLY BACKSPACE FILE OPENNED FOR WRITE ISAVE = INDBAS CALL DBMMGR( 4 ) CALL DSXFSZ INDBAS = ISAVE IF ( IOCODE .NE. -2 ) CALL DSBRC1 C CALL DSGNCL CALL DBMMGR( 2 ) GO TO 40 30 IF ( INDCBP .EQ. INDCLR ) GO TO 35 CALL DSSKRC 35 CONTINUE CALL DBMMGR( 2 ) 40 CALL DSSDCB FCB( 2,IFILEX ) = 0 FCB(12,IFILEX ) = 0 IF ( NAME .LT. 101 .OR. NAME .GT. 320 ) GO TO 50 IUNIT( NAME-100 ) = 0 50 RETURN C*************************************************************** C NOTICE C C THIS PROGRAM BELONGS TO RPK CORPORATION. IT IS CONSIDERED C A TRADE SECRET AND IS NOT TO BE DIVULGED OR USED BY PARTIES C WHO HAVE NOT RECEIVED WRITTEN AUTHORIZATION FROM RPK. C*************************************************************** END ================================================ FILE: mds/corwds.f ================================================ FUNCTION CORWDS (I,J) C INTEGER CORWDS C CORWDS = IABS(LOCFX(I) - LOCFX(J)) + 1 RETURN END ================================================ FILE: mds/cputim.f ================================================ SUBROUTINE CPUTIM (ICPUSC,RCPUSC,IFLAG) C C THIS ROUTINE IS MACHINE DEPENDENT C C THIS ROUTINE OBTAINS THE CURRENT CPU TIME IN SECONDS. C IF IFLAG .EQ. 0, CPU TIME IS RETURNED AS AN INTEGER VALUE. C IF IFLAG .NE. 0, CPU TIME IS RETURNED AS A REAL VALUE. C C DESIGN REQUIREMENT: C RCPUSC MUST OVER THE RANGE OF 10**-3 TO 10**5 CPU SECONDS C C DEC VAX/VMS VERSION C =================== C C INCLUDE '($JPIDEF)' C C INTEGER BUF_ADDR, ZERO, CPU_TIME C INTEGER*2 BUF_LNGTH, ITEM_CODE C C COMMON /CPU_LIST/ BUF_LNGTH, ITEM_CODE, BUF_ADDR, LNGTH_ADDR, C 1 ZERO C C DATA BUF_LNGTH, LNGTH_ADDR, ZERO /4, 2*0/ C DATA ITEM_CODE /JPI$_CPUTIM/ C C BUF_ADDR = %LOC (CPU_TIME) C CALL SYS$GETJPI (,,,BUF_LNGTH,,,) C IF (IFLAG.EQ.0) ICPUSC = CPU_TIME/100 C IF (IFLAG.NE.0) RCPUSC = CPU_TIME/100.0 C RETURN C C C SUBROUTINE CPUTIM (ICPUSC,RCPUSC,IFLAG) C C UNIX VERSION C ============ C C THIS ROUTINE OBTAINS THE CURRENT CPU TIME IN SECONDS C IF IFLAG.EQ.0, CPU TIME IS RETURNED AS AN INTEGER VALUE IN ICPUSC C IF IFLAG.NE.0, CPU TIME IS RETURNED AS A REAL VALUE IN RCPUSC, C C DESIGN REQUIREMENT - C RCPUSC MUST COVER THE RANGE OF 1.0**-3 TO 1.0**+5 CPU SECONDS C C NOTE - THE CURRENT CALL TO CPUTIM MUST GIVE A TIME VALUE BIGGER C THAN PREVIOUS CPUTIME CALL. OTHERWISE, CALLING ROUTINE MAY GET C INTO TROUBLE, SUCH AS DIVIDED BY ZERO. C C REAL ARRAY(2) C C CALL ETIME (ARRAY) C IF (IFLAG .NE. 0) GO TO 10 C ICPUSC = ARRAY(2) + .49 C GO TO 20 C 10 SAVE = RCPUSC C RCPUSC = ARRAY(2) C IF (RCPUSC .LE. SAVE) RCPUSC = RCPUSC + 0.0001 C 20 RETURN C C C C SUBROUTINE CPUTIM (ICPUSC,RCPUSC,IFLAG) C C UNIVERSAL VERSION C ================= C C THIS ROUTINE OBTAINS THE CURRENT CPU TIME IN SECONDS C IF IFLAG.EQ.0, CPU TIME IS RETURNED AS AN INTEGER VALUE IN ICPUSC C IF IFLAG.NE.0, CPU TIME IS RETURNED AS A REAL VALUE IN RCPUSC, C C DESIGN REQUIREMENT - C RCPUSC MUST COVER THE RANGE OF 1.0**-3 TO 1.0**+5 CPU SECONDS C (SECNDS MAY BE ACCURATE ONLY TO 1/60, OR 0.001 SECOND) C C NOTE - THE CURRENT CALL TO CPUTIM MUST GIVE A TIME VALUE BIGGER C THAN PREVIOUS CPUTIME CALL. OTHERWISE, CALLING ROUTINE MAY GET C INTO TROUBLE, SUCH AS DIVIDED BY ZERO. C REAL ARRAY(2) CALL ETIME(ARRAY) T=ARRAY(2) IF (IFLAG .NE. 0) GO TO 30 ICPUSC = T + .49 GO TO 40 30 SAVE = RCPUSC RCPUSC = T IF (RCPUSC .LE. SAVE) RCPUSC = RCPUSC + 0.0001 40 RETURN C END ================================================ FILE: mds/dbmalb.f ================================================ SUBROUTINE DBMALB ( LENREQ, INDEX ) C******************************************************************** C DBMALB - ALLOCATES A MEMORY BLOCK OF LENGTH "LENREQ" C FROM THE FREE CHAIN AND RETURNS THE C POINTER IN MEMORY FOR THE BLOCK IN "INDEX" (RELATIVE TO. C /DBM/. C C EACH FREE BLOCK IN MEMORY HAS THE FOLLOWING FORMAT: C WORD 1 POINTER TO PREVIOUS FREE BLOCK (=0, IF FIRST) C WORD 2 POINTER TO NEXT FREE BLOCK (=0, IF END OF CHAIN) C WORD 3 NUMBER OF WORDS AVAILABLE IN THIS FREE BLOCK C C NOTE: IDBFRE POINTS TO THE FIRST FREE BLOCK OF THE CHAIN C******************************************************************** INCLUDE 'DSIOF.COM' INCLUDE 'ZZZZZZ.COM' NEXT = IDBFRE IF ( IDBFRE .EQ. 0 ) GO TO 701 C OBTAIN THE LENGTH OF THE FREE BLOCK 10 LENAVL = MEM( NEXT + 2 ) IF ( LENAVL .GE. LENREQ ) GO TO 100 C MEMORY NOT AVAILABLE IN THIS BLOCK, CHECK FOR OTHER BLOCKS NEXT = MEM( NEXT + 1 ) C IF NO MORE FREE BLOCKS, RETURN WITH INDEX SET TO -1 IF ( NEXT .EQ. 0 ) GO TO 701 GO TO 10 C RETURN POINTER FOR THIS BLOCK 100 INDEX = NEXT IF ( LENREQ .NE. LENAVL ) GO TO 200 C COME HERE WHEN REQUESTED BLOCK SAME SIZE AS FREE BLOCK NEXT = MEM( NEXT+1 ) IPREV = MEM(INDEX ) IF ( IPREV .EQ. 0 ) GO TO 110 IF ( NEXT .EQ. 0 ) GO TO 120 C CONNECT THE PREVIOUS FREE BLOCK WITH THE NEXT FREE BLOCK MEM( IPREV+1 ) = NEXT MEM( NEXT ) = IPREV GO TO 700 110 IF ( NEXT .EQ. 0 ) GO TO 130 C NO PREVIOUS BLOCK, SET IDBFRE TO POINT TO NEW FIRST FREE BLOCK IDBFRE = NEXT MEM( NEXT ) = 0 GO TO 700 C PREVIOUS BLOCK EXITS BUT BLOCK ALLOCATED WAS LAST IN CHAIN 120 MEM( IPREV+1 ) = 0 GO TO 700 C NO MORE FREE BLOCKS EXIST, SET IDBFRE TO ZERO 130 IDBFRE = 0 GO TO 700 C COME HERE WHEN FREE BLOCK HAS MORE SPACE THEN REQUESTED 200 NEWIND = INDEX + LENREQ + 4 IPREV = MEM( INDEX ) NEXT = MEM( INDEX+1) C CHECK TO DETERMINE IF ANY SPACE REMAINS IF ( ( LENAVL-LENREQ-4 ) .LE. 0 ) GO TO 240 C RECOMPUTE FREE SPACE AND SET UP CHAIN WORDS MEM( NEWIND+2 ) = LENAVL - LENREQ - 4 IF ( IPREV .EQ. 0 ) GO TO 210 IF ( NEXT .EQ. 0 ) GO TO 220 C CONNECT TO PREVIOUS AND NEXT FREE BLOCK MEM( NEWIND ) = IPREV MEM( NEWIND+1) = NEXT MEM( IPREV+1 ) = NEWIND MEM( NEXT ) = NEWIND GO TO 700 210 IF ( NEXT .EQ. 0 ) GO TO 230 C NO PREVIOUS BLOCK, NEWLY CREATED BLOCK BECOMES THE FIRST FREE BLOCK IDBFRE = NEWIND MEM( NEWIND ) = 0 MEM( NEWIND+1) = NEXT MEM( NEXT ) = NEWIND GO TO 700 C PREVIOUS BLOCK EXISTS BUT THE NEWLY CREATED BLOCK IS LAST 220 MEM( IPREV+1 ) = NEWIND MEM( NEWIND ) = IPREV MEM( NEWIND+1) = 0 GO TO 700 C NEW BLOCK IS THE ONLY FREE BLOCK 230 IDBFRE = NEWIND MEM( NEWIND ) = 0 MEM( NEWIND+1) = 0 GO TO 700 C FREE CHAIN IS EXHAUSTED 240 IDBFRE = 0 701 INDEX = -1 RETURN 700 CONTINUE RETURN END ================================================ FILE: mds/dbmdfc.f ================================================ SUBROUTINE DBMDFC C******************************************************************** C DBMDFC - DUMPS THE FREE CHAIN C******************************************************************** INCLUDE 'DSIOF.COM' INCLUDE 'ZZZZZZ.COM' COMMON / SYSTEM / ISYSBF, IWR WRITE ( IWR, 906 ) WRITE ( IWR, 907 ) NEXT = IDBFRE ITOTAL = 0 ITOTBK = 0 ICNT = 0 IF ( NEXT .EQ. 0 ) GO TO 40 30 ICNT = ICNT + 1 IF ( NEXT .EQ. 0 ) GO TO 50 IVAL = NEXT IVALP= MEM(NEXT) IVALN= MEM(NEXT+1) IF ( MEM(NEXT ) .EQ. 0 ) IVALP = 0 IF ( MEM(NEXT+1) .EQ. 0 ) IVALN = 0 ITOTAL = ITOTAL + MEM(NEXT+2) ITOTBK = ITOTBK + 1 WRITE ( IWR, 908 ) ICNT,IVALP,IVAL,IVALN,MEM(NEXT+2) NEXT = MEM( NEXT+1 ) GO TO 30 40 CONTINUE WRITE( IWR, 909 ) GO TO 60 50 CONTINUE WRITE( IWR, 910 ) ITOTAL, ITOTBK 60 CONTINUE 700 RETURN 906 FORMAT(///,31X,' DUMP OF FREE CHAIN',/ &,13X,' ( BLOCK ADDRESSES IN WORDS, BLOCK LENGTHS IN WORDS )',/) 907 FORMAT(10X, &' BLOCK NO PREV. BLOCK BLOCK ADDRESS NEXT BLOCK LENGTH') 908 FORMAT( I17,I20,I13,I13,I10) 909 FORMAT(//' *************** NO FREE SPACE REMAINS **************') 910 FORMAT(///,' TOTAL FREE SPACE IN WORDS =',I10 &,/, ' NUMBER OF BLOCKS IN FREE SPACE CHAIN =',I10) END ================================================ FILE: mds/dbmdia.f ================================================ SUBROUTINE DBMDIA C******************************************************************** C DBMDIA - DUMPS THE IN MEMORY DATA BASE DIRECTORY C******************************************************************** INCLUDE 'DSIOF.COM' INCLUDE 'ZZZZZZ.COM' COMMON / SYSTEM / ISYSBF, IWR INTEGER SCRATCH(2) DATA SCRATCH / 'SCRA','TCHX' / IBLKSZ = ISYSBF - 4 ITOTI = 0 ITOTX = 0 WRITE ( IWR, 903 ) DO 20 I = 1, 80 IF ( I .EQ. 7 ) GO TO 20 IF ( FCB( 9,I ) .EQ. 0 .AND. FCB( 5,I ) .EQ. 0 ) GO TO 20 INDEX = FCB( 10, I ) IINTB = 0 IEXTB = 0 IF ( FCB( 9,I ) .NE. 0 ) IINTB = MEM( INDEX+3 ) ITOTI = ITOTI + IINTB IF ( FCB( 5,I ) .NE. 0 ) IEXTB = FCB(6,I) - FCB( 5,I) + 1 IF ( IEXTB .GE. FCB( 7, IFILEX ) ) GO TO 20 ITOTX = ITOTX + IEXTB IF ( FCB( 13,I ) .NE. 0 ) GO TO 15 FCB( 13,I ) = SCRATCH(1) FCB( 14,I ) = SCRATCH(2) 15 CONTINUE WRITE ( IWR, 904 ) I, FCB( 13,I ), FCB( 14,I ), FCB( 4,I ) &, IINTB, IEXTB 20 CONTINUE WRITE ( IWR, 905 ) ITOTI, ITOTX C WRITE ( IWR, 906 ) MAXBLK, MAXDSK, MAXALC, IBLKSZ 700 RETURN 903 FORMAT(///,27X,' MEMORY DATA BASE DIRECTORY',//, &' UNIT NAME CURRENT IN-MEM' &,' DISK ',/, &' BLOCK BLOCKS' &,' BLOCKS ',/) 904 FORMAT(I7,3X,2A4,2X,I6,2X,I6,2X,I6 ) 905 FORMAT(/,' CURRENT IN-MEMORY BLOCKS =',I8 & ,/,' CURRENT DISK BLOCKS =',I8 ) 906 FORMAT(/,' MAXIMUM IN-MEMORY BLOCKS USED =',I8 & ,/,' MAXIMUM DISK BLOCKS WRITTEN =',I8 & ,/,' BLOCKS INITIALLY ALLOCATED FOR THE IN-MEMORY DB =',I8 & ,/,' BLOCK SIZE =',I8 ) END ================================================ FILE: mds/dbmdmp.f ================================================ SUBROUTINE DBMDMP C******************************************************************** C DBMDMP - DUMPS THE IN MEMORY DATA BASE DIRECTORY C******************************************************************** INCLUDE 'DSIOF.COM' COMMON / ZZZZZZ / MEM(4) COMMON / SYSTEM / ISYSBF, IWR WRITE ( IWR, 900 ) IDBBAS, IDBFRE, IDBDIR, INDBAS, INDCLR, INDCBP &, NBLOCK, LENALC, IOCODE, IFILEX, NAME, MAXALC &, MAXBLK, MAXDSK, IDBLEN, IDBADR, IBASBF, INDDIR &, NUMOPN, NUMCLS, NUMWRI, NUMREA, LENOPC 900 FORMAT(/,' CONTENTS OF / DBM / FOLLOW:' &,/,' IDBBAS =',I8,' IDBFRE =',I8,' IDBDIR =',I8,' INDBAS =',I8 &,/,' INDCLR =',I8,' INDCBP =',I8,' NBLOCK =',I8,' LENALC =',I8 &,/,' IOCODE =',I8,' IFILEX =',I8,' NAME =',I8,' MAXALC =',I8 &,/,' MAXBLK =',I8,' MAXDSK =',I8,' IDBLEN =',I8,' IDBADR =',I8 &,/,' IBASBF =',I8,' INDDIR =',I8,' NUMOPN =',I8,' NUMCLS =',I8 &,/,' NUMWRI =',I8,' NUMREA -',I8,' LENOPC =',I8 ) WRITE ( IWR, 901 ) 901 FORMAT(/,' CONTENTS OF FCB FOLLOW:',/) DO 10 I = 1, 80 WRITE ( IWR, 902 ) I, ( FCB(K,I),K=1,15) 902 FORMAT(I3,'-',I3,I7,4I5,I12,I2,4I7,2A4,I4) 10 CONTINUE CALL DBMDIA C WRITE ( IWR, 906 ) C WRITE ( IWR, 907 ) NEXT = IDBFRE ITOTAL = 0 ITOTBK = 0 ICNT = 0 IF ( NEXT .EQ. 0 ) GO TO 40 30 ICNT = ICNT + 1 IF ( NEXT .EQ. 0 ) GO TO 50 IVAL = NEXT IVALP= MEM(NEXT) IVALN= MEM(NEXT+1) IF ( MEM(NEXT ) .EQ. 0 ) IVALP = 0 IF ( MEM(NEXT+1) .EQ. 0 ) IVALN = 0 ITOTAL = ITOTAL + MEM(NEXT+2) ITOTBK = ITOTBK + 1 C WRITE ( IWR, 908 ) ICNT,IVAL,IVALP,IVALN,MEM(NEXT+2) NEXT = MEM( NEXT+1 ) GO TO 30 40 CONTINUE C WRITE( IWR, 909 ) GO TO 60 50 CONTINUE C WRITE( IWR, 910 ) ITOTAL, ITOTBK 60 CONTINUE 700 RETURN 906 FORMAT(///,31X,' DUMP OF FREE CHAIN',/ &,13X,' ( BLOCK ADDRESSES IN BYTES, BLOCK LENGTHS IN WORDS )',/) 907 FORMAT(10X, &' BLOCK NO BLOCK ADDRESS PREV. BLOCK NEXT BLOCK LENGTH') 908 FORMAT( I17,I20,I13,I13,I10) 909 FORMAT(//' *************** NO FREE SPACE REMAINS **************') 910 FORMAT(///,' TOTAL FREE SPACE IN WORDS =',I10 &,/, ' NUMBER OF BLOCKS IN FREE SPACE CHAIN =',I10) END ================================================ FILE: mds/dbmfdp.f ================================================ SUBROUTINE DBMFDP C******************************************************************** C DBMFDP- DUMPS THE DIRECTORY CHAIN OF A GIVEN FILE. C ARGUMENT IDIR IS THE IN-MEMORY DIRECTORY FOR THE FILE C******************************************************************** COMMON / SYSTEM / ISYSBF, IWR INCLUDE 'ZZZZZZ.COM' INCLUDE 'DSIOF.COM' IBASE = LOCFX( MEM ) IVAL2 = IBASE + FCB( 9, IFILEX ) IVAL3 = IBASE + FCB( 10, IFILEX ) IVAL4 = IBASE + FCB( 11, IFILEX ) INDEX = FCB( 10, IFILEX ) LBLOCK = MEM( INDEX+3 ) WRITE ( IWR, 902 ) IFILEX, IVAL2, IVAL3, IVAL4, FCB(12,IFILEX) WRITE ( IWR, 903 ) NEXT = FCB( 9, IFILEX ) ICNT = 0 IF ( NEXT .EQ. 0 ) GO TO 25 20 ICNT = ICNT + 1 IF ( NEXT .EQ. 0 ) GO TO 30 IVAL = IBASE + NEXT IVALP= IBASE + MEM(NEXT) IVALN= IBASE + MEM(NEXT+1) IF ( MEM( NEXT ) .EQ. 0 ) IVALP = 0 IF ( MEM( NEXT+1 ) .EQ. 0 ) IVALN = 0 WRITE ( IWR, 904 ) & MEM(NEXT+3),MEM(NEXT+7),IVAL,IVALP,IVALN,MEM(NEXT+2) 990 FORMAT( 12(8(1X,I8),/)) NEXT = MEM( NEXT+1 ) GO TO 20 25 WRITE( IWR, 907 ) 30 CONTINUE WRITE( IWR, 908 ) RETURN 902 FORMAT(///,25X,' DUMP OF FILE CHAIN FOR UNIT=',I6,/ &,14X,'( BLOCK ADDRESSES ARE IN WORDS, BLOCK LENGTHS IN WORDS)',/ &,/,7X, &' FIRST BLOCK ADDRESS ',I12,' LAST BLOCK ADDRESS ',I12 &,/,7X, &' CURRENT BLOCK ADDRESS ',I12,' ORIGINAL BUFFER ADDRESS ',I12) 903 FORMAT(/, & ' IN-MEM BUFFER',/ &,' BLOCK NO. BLOCK NO BLOCK ADDRESS PREV. BLOCK NEXT BLOCK ' &,' LENGTH') 904 FORMAT( I9,I11,5X,I12,7X,I12,5X,I12,I12) 907 FORMAT(//' *************** NO BLOCK ALLOCATED TO FILE **********') 908 FORMAT(///) END ================================================ FILE: mds/dbmint.f ================================================ SUBROUTINE DBMINT C******************************************************************** C DBMINT - INITIALIZES ALL PARAMETERS AND THE FREE BLOCK CHAIN C FOR THE IN-MEMORY DATA BASE. C C ARGUMENTS C IDBADR - (INPUT)-BEGINNING ADDRESS FOR IN-MEMORY DATA BASE C IDBLEN - (INPUT)-NUMBER OF MEMORY WORDS FOR IN-MEMORY C DATA BASE C / DBMPAR/ C IDBBAS - (OUTPUT)-INDEX TO IN-MEMORY DATA BASE RELATIVE C TO /DBM/ C IDBFRE - (OUTPUT)-INDEX TO FREE CHAIN OF IN-MEMORY DATA C BASE RELATIVE TO /DBM/ C IDBDIR - (OUTPUT)-INDEX TO FIRST DIRECTORY BLOCK C FREE CHAIN FORMAT C IDBFRE==> WORD 0 - 0 (POINTS TO PREVIOUS FREE BLOCK C IN CHAIN, ALWAYS 0 FOR 1ST BLK) C WORD 1 - 0 (POINTS TO NEXT BLOCK IN CHAIN C -INITIALLY SET TO ZERO) C WORD 2 - L (NUMBER OF FREE WORDS IN BLOCK) C DIRECTORY FORMAT C THE FIRST TWO WORDS OF THE DIRECTORY BLOCK CONTAIN: C WORD 0 - MAXIMUM NUMBER OF ENTRIES IN DIRECTORY C WORD 1 - CURRENT ENTRIES IN THE DIRECTORY C EACH ENTRY IN THE DIRECTORY HAS THE FOLLOWING FORMAT C (NOTE, FIRST ENTRY BEGINS AT WORD 3 OF BLOCK) C WORD 0 - UNIT NUMBER OF DMAP FILE AS FOUND IN FIAT C WORD 1 - INDEX TO FIRST IN-MEMORY DATA BLOCK C WORD 2 - INDEX TO LAST IN-MEMORY DATA BLOCK C WORD 3 - INDEX TO CURRENT IN-MEMORY DATA BLOCK C WORD 4 - CURRENT BLOCK NUMBER BEING PROCESSED C WORD 5 - LAST BLOCK NUMBER C WORD 6 - ORIGINAL BUFFER ADDRESS C WORD 7 - TOTAL BLOCKS (EXT. FILE + IN M. DB) C WORD 8 - OPEN FLAG FOR EXT. FILE (0,NO;1,YES) C WORDS 9-10 - DMAP FILE NAME C WORDS 11-16 - DMAP FILE TRAILER C******************************************************************** INCLUDE 'DSIOF.COM' COMMON / SYSTEM / ISYSBF, IWR COMMON / ZZZZZZ / MEM( 4 ) IDBDIR = 0 IF ( IDBLEN .EQ. 0 ) GO TO 700 C INITIALIZE THE CHAIN OF FREE BLOCKS AS ONE BIG FREE BLOCK IDBBAS = LOCFX( MEM ) IDBFRE = IDBADR - IDBBAS + 1 MEM( IDBFRE ) = 0 MEM( IDBFRE+1) = 0 MEM( IDBFRE+2) = IDBLEN - 2 MAXALC = IDBLEN / ( ISYSBF-3+4 ) IDBDIR = 1 700 CONTINUE END ================================================ FILE: mds/dbmio.f ================================================ SUBROUTINE DBMIO ( OPCODE ) INCLUDE 'DSIOF.COM' INCLUDE 'GINOX.COM' INCLUDE 'XNSTRN.COM' C C OPCODE C = 1 OPEN, IOCODE = 0 OPEN FOR READ WITH REWIND C = 1 OPEN FOR WRITE WITH REWIND C = 2 OPEN FOR READ WITHOUT REWIND C = 3 OPEN FOR WRITE WITHOUT REWIND C = 2 CLOSE, IOCODE = 1 CLOSE WITH REWIND C OTHERWISE, NO REWIND C = 3 REWIND C = 4 WRITE ONE BLOCK C = 5 READ ONE BLOCK C = 6 POSITION C = 7 DELETE FILE C = 8 WRTBLK CODE C = 9 RDBLK CODE C----------------------------------------------------------------------- INTEGER OPCODE C PRINT *,' DBMIO CALLED WITH OPCODE,IFILEX=',OPCODE,IFILEX C PRINT *,' DBMIO,NBLOCK,IOCODE=',NBLOCK,IOCODE C WRITE(6,40646)(FCB(K,IFILEX),K=1,15) 40646 FORMAT(' DBMIO-ENTRY,FCB=',/ & I3,I7,4I5,I7,I2,4I7,1X,2A4,I4) GO TO (100,200,300,400,500,600,700,800,900),OPCODE C-OPEN ------------------------------ C OPEN FILE ACCORDING TO IOCODE C =0, OPEN AND READ FIRST BLOCK C =1, OPEN AND RETURN ( OPEN FOR WRITE ) C =2, OPEN AND READ THE CURRENT BLOCK WHEN FILE WAS CLOSED C =3, OPEN AND READ THE CURRENT BLOCK WHEN FILE WAS CLOSED 100 CONTINUE CALL DSGNOP FCB( 15, IFILEX ) = 700+IOCODE FCB( 1, IFILEX ) = IOCODE IF ( IOCODE .EQ. 0 ) GO TO 110 IF ( IOCODE .EQ. 1 ) GO TO 111 IF ( IOCODE .EQ. 2 ) GO TO 112 IF ( IOCODE .EQ. 3 ) GO TO 113 110 CONTINUE FCB( 4, IFILEX ) = NBLOCK GO TO 600 111 CONTINUE FCB( 4, IFILEX ) = NBLOCK FCB( 5, IFILEX ) = NBLOCK FCB( 6, IFILEX ) = NBLOCK GO TO 7000 112 CONTINUE 113 CONTINUE NBLOCK = FCB( 4, IFILEX ) IF ( FCB( 5, IFILEX ) .NE. 0 ) GO TO 600 NBLOCK = 1 GO TO 111 C-CLOSE ----------------------------- 200 CONTINUE CALL DSGNCL IF ( IOCODE .EQ. 0 ) FCB( 4, IFILEX ) = 1 IF ( FCB( 15, IFILEX ) .NE. 701 .AND. FCB( 15, IFILEX ) .NE. 703 ) & GO TO 210 FCB( 4, IFILEX ) = FCB( 4, IFILEX ) - 1 FCB( 6, IFILEX ) = FCB( 6, IFILEX ) - 1 210 CONTINUE FCB( 15, IFILEX ) = 0 GO TO 7000 C-REWIND ---------------------------- 300 CONTINUE FCB( 4, IFILEX ) = 1 NBLOCK = 1 IF ( FCB( 15, IFILEX ) .EQ. 701 .OR. & FCB( 15, IFILEX ) .EQ. 703 ) GO TO 7000 GO TO 600 C-WRITE ----------------------------- 400 CONTINUE CALL DSGNWR FCB( 4, IFILEX ) = FCB( 4, IFILEX ) + 1 IF ( FCB( 4, IFILEX ) .GT. FCB( 6, IFILEX ) ) & FCB( 6, IFILEX ) = FCB( 4, IFILEX ) GO TO 7000 C-READ 500 CONTINUE FCB( 4, IFILEX ) = FCB( 4, IFILEX ) + 1 NBLOCK = FCB( 4, IFILEX ) CALL DSGNRD GO TO 7000 C-POSITION AND READ BLOCK "NBLOCK" 600 CONTINUE CALL DSGNRD GO TO 7000 C-DELETE FILE 700 CONTINUE OPEN (IFILEX, FILE=MDSNAM(IFILEX), STATUS='UNKNOWN') CLOSE (IFILEX, STATUS='DELETE') FCB( 5, IFILEX ) = 0 FCB( 6, IFILEX ) = 0 GO TO 7000 C-SPECIAL RDBLK CALL 900 CONTINUE PRINT *,' ERROR, DBMIO CALLED FOR RDBLK CALL' STOP C-SPECIAL WRTBLK CALL 800 CONTINUE PRINT *,' ERROR, DBMIO CALLED FOR WRTBLK CALL' STOP 7000 CONTINUE C WRITE(6,40647)(FCB(K,IFILEX),K=1,15) 40647 FORMAT(' DBMIO-EXIT,FCB=',/ & I3,I7,4I5,I7,I2,4I7,1X,2A4,I4) RETURN END ================================================ FILE: mds/dbmlbk.f ================================================ SUBROUTINE DBMLBK ( LASBLK ) C C THIS SUBROUTINE WILL RETURN THE LAST BLOCK NUMBER ALLOCATED TO THE C UNIT "IFILEX" C INCLUDE 'DSIOF.COM' INCLUDE 'ZZZZZZ.COM' LASBLK = FCB( 6, IFILEX ) IF ( LASBLK .NE. 0 ) GO TO 7000 INDEX = FCB( 10, IFILEX ) IF ( INDEX .EQ. 0 ) GO TO 200 LASBLK = MEM( INDEX+3 ) GO TO 7000 200 LASBLK = 0 7000 CONTINUE RETURN END ================================================ FILE: mds/dbmmgr.f ================================================ SUBROUTINE DBMMGR ( OPCODE ) C********************************************************************* C / FCB / C FCB(1,I) - OPEN FLAG C FCB(2,I) - BUFFER ADDRESS C FCB(3,I) - CURRENT CLR C FCB(4,I) - CURRENT BLOCK NUMBER C FCB(5,I) - FIRST BLOCK NUMBER WRITTEN TO THIS FILE C FCB(6,I) - LAST BLOCK NUMBER WRITTEN TO THIS FILE C FCB(7,I) - MAXIMUM NUMBER OF BLOCKS TO BE ALLOCATED C TO THIS FILE C FCB(8,I) - =0, IF NO MATRIX STRINGS WRITTEN TO FILE C =1, OTHERWISE, USED TO INITIALIZE COLUMN C NUMBER TO 1. C FCB(9,I) - INDEX TO FIRST IN-MEMORY BLOCK C FCB(10,I)- INDEX TO LAST IN-MEMORY BLOCK C FCB(11,I)- INDEX TO CURRENT IN-MEMORY BLOCK C FCB(12,I)- ORIGINAL BUFFER ADDRESS C FCB(13-14,I) - DMAP FILE NAME (2A4) C FCB(15,I)- OPEN FLAG FOR EXTERNAL FILE C / DBM/ C IDBBAS - (INPUT)-INDEX TO IN-MEMORY DATA BASE RELATIVE C TO /DBM/ C IDBFRE - (INPUT)-INDEX TO FREE CHAIN OF IN-MEMORY DATA C BASE RELATIVE TO /DBM/ C IDBDIR - (INPUT)-INDEX TO FIRST DIRECTORY BLOCK C MAXALC - (OUTPUT)-MAXIMUM NUMBER OF BLOCKS AVAILABLE FOR C JOB C MAXBLK - (OUTPUT)-MAXIMUM NUMBER OF BLOCKS ALLOCATED(JOB) C MAXDSK - (OUTPUT)-MAXIMUM NUMBER OF BLOCKS WRITTEN TO C TO DISK C LENALC - (OUTPUT)-LENGTH OF EACH ALLOCATED BLOCK C IOCODE - (INPUT) -IO-CODE FOR OPEN/CLOSE CALL C IFILEX - (INPUT) -FILE NUMBER FOR GINO FILE IN /XFIAT/ C NBLOCK - (INPUT/OUTPUT) -BLOCK NUMBER BEING REFERENCED C NAME - (INPUT) -GINO FILE NAME (E.G., 101,201,303,...) C INDBAS - INDEX TO START OF BUFFER RELATIVE TO /ZZZZZZ/ C INDCLR - INDEX TO CLR WITHIN BUFFER RELATIVE TO /ZZZZZZ/ C INDCBP - INDEX TO CBP WITHIN BUFFER RELATIVE TO /ZZZZZZ/ C FREE CHAIN FORMAT (ALSO, ALL BLOCKS ALLOCATED) C IDBFRE==> WORD 0 POINTER TO PREVIOUS FREE BLOCK C IN CHAIN, ALWAYS 0 FOR 1ST BLK) C WORD 1 POINTER TO NEXT BLOCK IN CHAIN C -INITIALLY SET TO ZERO) C WORD 2 NUMBER OF FREE WORDS IN BLOCK C WORD 3 RELATIVE BLOCK NUMBER C C OPCODE C 1 OPEN C /GINOX/ IOCODE = 0 ; READ WITH REWIND C = 1 ; WRITE WITH REWIND C = 2 ; READ WITHOUT REWIND C = 3 ; WRITE WITHOUT REWIND C 2 CLOSE C /GINOX/ IOCODE = 1 ; CLOSE WITH REWIND C (OTHERWISE NO REWIND) C 3 REWIND C 4 WRITE C 5 READ C 6 POSITION FILE C NBLOCK = BLOCK NUMBER TO POSITION TO C 7 DELETE FILE C 8 PROCESS WRTBLK REQUEST (SUBSTRUCTURING) C 9 PROCESS RDBLK REQUEST (SUBSTRUCTURING) C******************************************************************** INTEGER OPCODE INTEGER CASE / 4HCASE / INTEGER XYCD / 4HXYCD / INTEGER PCDB / 4HPCDB / INTEGER POOL / 4HPOOL / INTEGER XPDT / 4HXPDT / INCLUDE 'DSIOF.COM' COMMON / XFIST / FIST(10) COMMON / XFIAT / FIAT(10) COMMON / ZZZZZZ / MEM(4) COMMON / SYSTEM / ISYSBF, IWR DATA LENBUF / 0 / IF ( LENBUF .NE. 0 ) GO TO 10 C SET UP BLOCK ALLOCATIONS FOR DOUBLE WORD BOUNDARIES IBASBF = LOCFX( MEM ) LENBUF = ISYSBF - 3 + 8 LENALC = LENBUF NBUFF3 = ISYSBF - 4 ITEST = MOD( LENBUF,2) IF ( ITEST .NE. 0 ) LENBUF = LENBUF + 1 10 IF ( IDBDIR .NE. 0 ) GO TO 30 C OPCODES OF 8 AND 9 HAVE NO PURPOSE WHEN THERE IS NO USE OF THE C IN-MEMORY DATA BASE IF ( OPCODE .EQ. 8 .OR. OPCODE .EQ. 9 ) GO TO 7777 C CALL DBMIO DIRECTLY, NO IN-MEMORY DATA BASE 20 CALL DBMIO ( OPCODE ) GO TO 7777 30 IF ( NAME .GT. 100 .AND. NAME .LT. 400 ) GO TO 50 C30 IF ( NAME .GT. 300 .AND. NAME .LT. 400 ) GO TO 50 C CHECK FOR CASECC, XYCD, AND PCDB (SETUP IN FIAT FOR PREFACE) IF ( NAME .EQ. CASE ) GO TO 50 IF ( NAME .EQ. XYCD ) GO TO 50 IF ( NAME .EQ. PCDB ) GO TO 50 IF ( NAME .EQ. XPDT ) GO TO 50 IF ( NAME .EQ. POOL ) GO TO 50 C OPCODES OF 8 AND 9 HAVE NO PURPOSE WHEN THERE IS NO USE OF THE C IN-MEMORY DATA BASE IF ( OPCODE .EQ. 8 .OR. OPCODE .EQ. 9 ) GO TO 7777 C CALL DBMIO DIRECTLY BECAUSE THIS IS AN EXECUTIVE FILE IF ( FCB( 9, IFILEX ) .NE. 0 ) CALL DBMREL GO TO 20 50 CONTINUE C IF ( IFILEX .NE. 48 ) GO TO 55 C IF ( NAME .NE. 307 ) GO TO 55 C WRITE(IWR,40646)OPCODE,IOCODE,NBLOCK,IFILEX,NAME,INDBAS 40646 FORMAT(/,' OPCODE,IOCODE,NBLOCK,IFILEX,NAME,INDBAS=',6I6) C WRITE(IWR,40647)(MEM(INDBAS+KB),KB=-4,20) 40647 FORMAT(' INPUT BUFFER HAS=',/,10(4(1X,Z8),/)) C WRITE(6,44770)(FCB(K,IFILEX),K=1,15) 44770 FORMAT(' ENTERRED FCB=',/,2(5I8,/),2I8,4X,2A4,4X,I8) C CALL DBMFDP 55 CONTINUE GO TO ( 100,200,300,400,500,600,700,800,900),OPCODE C**************** C OPEN CODE ********************************************************* C**************** 100 CONTINUE FCB( 1, IFILEX ) = IOCODE FCB( 12, IFILEX ) = FCB( 2, IFILEX ) IF ( FCB( 9, IFILEX ) .NE. 0 ) GO TO 130 C CHECK TO SEE IF FILE IS SELF CONTAINED ON DISK IF ( FCB( 5, IFILEX ) .NE. 0 ) GO TO 120 105 CONTINUE IF ( IOCODE .NE. 0 .AND. IOCODE .NE. 2 ) GO TO 108 WRITE ( IWR, 9900 ) IFILEX, FCB( 13, IFILEX), FCB( 14, IFILEX ) 9900 FORMAT(///,' DBMMGR ERROR, ATTEMPT TO OPEN FOR READ OR WRITE APP' &,'END:' &,/,' UNIT-',I4,' NAME=',2A4,' WHICH DOES NOT EXIST.') C CALL DBMDMP CALL DSMSG ( 777 ) CALL MESAGE ( -61, 0, 0 ) 108 CONTINUE C NEW FILE NAME FOR IFILEX, RELEASE ANY PREVIOUSLY ALLOCATED BLOCKS IF ( FCB( 9, IFILEX ) .NE. 0 ) CALL DBMREL C CREATE FILE ENTRY IN FCB DO 110 I = 3,11 IF ( I .EQ. 7 ) GO TO 110 FCB( I, IFILEX ) = 0 110 CONTINUE FCB( 4, IFILEX ) = 1 NBLOCK = 1 115 CONTINUE C ALLOCATE FIRST BLOCK CALL DBMALB ( LENBUF, NEXBLK ) IF ( NEXBLK .LE. 0 ) GO TO 120 FCB( 9, IFILEX ) = NEXBLK FCB( 10, IFILEX ) = NEXBLK FCB( 11, IFILEX ) = NEXBLK C INITIALIZE PREVIOUS, NEXT, LENGTH AND BLOCK NUMBER FOR ALLOCATED BLK MEM( NEXBLK ) = 0 MEM( NEXBLK+1 ) = 0 MEM( NEXBLK+2 ) = LENBUF MEM( NEXBLK+3 ) = 1 FCB( 2, IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1 CALL DBMMOV ( INDBAS, NEXBLK+4, 4) GO TO 7000 C NO MORE SPACE WITHIN IN-MEMORY DATA BASE, USE I/O 120 CALL DBMIO ( OPCODE ) GO TO 7777 C FILE EXISTS IN IN-MEMORY DATA BASE 130 CONTINUE IF ( IOCODE .EQ. 0 ) GO TO 150 IF ( IOCODE .EQ. 1 ) GO TO 160 IF ( IOCODE .EQ. 2 ) GO TO 170 IF ( IOCODE .EQ. 3 ) GO TO 180 C FILE IS OPENED FOR READ WITH REWIND 150 CONTINUE NEXBLK = FCB( 9, IFILEX ) IF ( NEXBLK .GT. 0 ) GO TO 155 WRITE ( IWR, 9910 ) IFILEX 9910 FORMAT(///,' DBMMGR ERROR, ATTEMPT TO READ FILE WITH NO BLOCKS' & /,' UNIT=',I4) C CALL DBMDMP CALL DSMSG ( 777 ) CALL MESAGE( -61, 0, 0 ) 155 CONTINUE FCB( 11, IFILEX ) = NEXBLK FCB( 4, IFILEX ) = 1 NBLOCK = 1 FCB( 2, IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1 CALL DBMMOV ( INDBAS, NEXBLK+4, 3 ) GO TO 7000 C FILE IS OPENED FOR WRITE WITH REWIND 160 CONTINUE GO TO 105 C FILE IS OPENED FOR READ WITHOUT REWIND 170 CONTINUE NEXBLK = FCB( 10, IFILEX ) LASTIB = MEM( NEXBLK+3 ) NBLOCK = FCB( 4, IFILEX ) IF ( FCB( 4, IFILEX ) .GT. LASTIB ) GO TO 120 IF ( FCB( 4, IFILEX ) .EQ. 1 ) GO TO 150 NEXBLK = FCB( 11, IFILEX ) IBLK1 = FCB( 4, IFILEX ) IBLK2 = MEM( NEXBLK+3 ) IBLK3 = MEM( NEXBLK+7 ) FCB( 2, IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1 C CHECK THAT CURRENT BLOCK NUMBER MATCHES BLOCK NO. IN IN-MEM BLK IF ( IBLK1 .EQ. IBLK2 .AND. IBLK1 .EQ. IBLK3 ) GO TO 7000 GO TO 190 C FILE IS OPENED FOR WRITE WITHOUT REWIND 180 CONTINUE NEXBLK = FCB( 10, IFILEX ) LASTIB = MEM( NEXBLK+3 ) IF ( FCB( 4, IFILEX ) .GT. LASTIB ) GO TO 120 C====== IF ( FCB( 4, IFILEX ) .EQ. 1 ) GO TO 160 NEXBLK = FCB( 11, IFILEX ) C IGNORE ANY PREVIOUSLY WRITTEN BLOCKS FOR THIS FILE FCB( 5, IFILEX ) = 0 FCB( 6, IFILEX ) = 0 IBLK1 = FCB( 4, IFILEX ) IBLK2 = MEM( NEXBLK+3 ) IBLK3 = MEM( NEXBLK+7 ) FCB( 2, IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1 C CHECK THAT CURRENT BLOCK NUMBER MATCHES BLOCK NO. IN IN-MEM BLK IF ( IBLK1 .EQ. IBLK2 .AND. IBLK1 .EQ. IBLK3 ) GO TO 7000 190 CONTINUE WRITE ( IWR, 9911 ) IFILEX, IBLK1, IBLK2, IBLK3 9911 FORMAT(///' BLOCK NUMBERS INCONSISTANT ON OPEN IN DBMMGR' &,/,' UNIT =',I4 &,/,' BLOCK NUMBER EXPECTED (IN FCB) =',I8 &,/,' BLOCK NUMBER IN IN-MEMORY BLOCK =',I8 &,/,' BLOCK NUMBER IN BUFFER =',I8 ) C CALL DBMDMP CALL DBMFDP CALL DSMSG ( 777 ) CALL MESAGE ( -61, 0, 0 ) C**************** C CLOSE CODE ******************************************************** C**************** 200 CONTINUE C CHECK TO SEE IF FILE HAS IN-MEMORY BLOCKS IF ( FCB( 9, IFILEX ) .NE. 0 ) GO TO 220 210 CALL DBMIO ( OPCODE ) GO TO 7000 220 CONTINUE CWKBDB SPR94012 10/94 C IF ( IOCODE .NE. 1 ) GO TO 225 CC CLOSE FILE WITH REWIND C FCB( 11, IFILEX ) = FCB( 9, IFILEX ) C FCB( 4, IFILEX ) = 1 C IF ( FCB( 5, IFILEX ) .NE. 0 ) GO TO 210 CWKBDE SPR94012 10/94 C IF FILE IS OPENED FOR READ THAN GO COMPUTE STATISTICS 225 IF ( FCB( 1, IFILEX ) .EQ. 0.OR. & FCB( 1, IFILEX ) .EQ. 2 ) GO TO 240 IF ( FCB( 15, IFILEX ) .NE. 0 ) GO TO 240 C FILE OPENED FOR WRITE AND FILE NOT SPILLED TO DISK, THEN C RELEASE LAST ALLOCATED BLOCK, BECAUSE IT WAS NOT USED NEXBLK = FCB( 11, IFILEX ) C RESET LAST BLOCK POINTER, GET PREVIOUS BLOCK ALLOCATED CWKBNB SPR94012 10/94 228 IBLOCK = MEM( NEXBLK+3 ) C CHECK IF LAST BLOCK NOT USED, THERE COULD HAVE BEEN A BACKPSPACE BACK C TO A PREVIOUS USED BLOCK (CAUSED BY CLOSE CALLING DSBRC1 TO BACKSPACE C OVER AN EOF THAT WAS AT THE END OF A PREVIOUS BLOCK). IF ( IBLOCK .GT. NBLOCK ) GO TO 230 NEXBLK = MEM( NEXBLK+1 ) IF ( NEXBLK .EQ. 0 ) GO TO 240 GO TO 228 230 CONTINUE CWKBNE SPR94012 10/94 INDBLK = MEM( NEXBLK ) FCB( 10, IFILEX ) = INDBLK FCB( 11, IFILEX ) = INDBLK FCB( 4, IFILEX ) = MEM( INDBLK+3 ) FCB( 2, IFILEX ) = LOCFX( MEM( INDBLK+4 ) ) - IBASBF + 1 CALL DBMRLB( NEXBLK ) CWKBNB SPR94012 10/94 240 IF ( IOCODE .NE. 1 ) GO TO 245 C CLOSE FILE WITH REWIND FCB( 11, IFILEX ) = FCB( 9, IFILEX ) FCB( 4, IFILEX ) = 1 CWKBNE SPR94012 10/94 CWKBR SPR94012 10/94 C240 IF ( FCB( 5, IFILEX ) .NE. 0 ) CALL DBMIO ( OPCODE ) 245 IF ( FCB( 5, IFILEX ) .NE. 0 ) CALL DBMIO ( OPCODE ) IF ( FCB( 5, IFILEX ) .LE. FCB( 6, IFILEX ) ) GO TO 7000 C SPECIAL CASE, LAST BLOCK ALLOCATED WAS FOR DISK BUT NEVER USED, RESET C INDBAS BACK TO LAST IN-MEMORY BLOCK NEXBLK = FCB( 10, IFILEX ) FCB( 2, IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1 FCB( 5, IFILEX ) = 0 FCB( 6, IFILEX ) = 0 FCB(11, IFILEX ) = FCB( 10, IFILEX ) GO TO 7000 C**************** C REWIND OPCODE ***************************************************** C**************** 300 CONTINUE C IF FILE IS ON EXTERNAL FILE CALL DBMIO DIRECTLY IF ( FCB( 9, IFILEX ) .NE. 0 ) GO TO 320 CALL DBMIO ( OPCODE ) GO TO 7777 320 CONTINUE NEXBLK = FCB( 9, IFILEX ) FCB( 11, IFILEX ) = NEXBLK FCB( 4, IFILEX ) = 1 C REPLACE BUFFER ADDRESS IN FCB FCB( 2,IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1 CALL DBMMOV ( INDBAS, NEXBLK+4, 3 ) IOCODE = 0 IF ( FCB( 5, IFILEX ) .NE. 0 ) CALL DBMIO ( 2 ) GO TO 7000 C**************** C WRITE CODE ******************************************************** C**************** 400 CONTINUE C CHECK TO SEE IF THIS BLOCK IS ON EXTERNAL FILE IF ( FCB( 15, IFILEX ) .NE. 0 ) GO TO 450 C CHECK THAT BLOCK NUMBER MATCHES NEXBLK = FCB( 11, IFILEX ) IBLK1 = FCB( 4, IFILEX ) IBLK2 = MEM( NEXBLK+3 ) IBLK3 = MEM( NEXBLK+7 ) IF ( IBLK1 .EQ. IBLK2 .AND. IBLK1 .EQ. IBLK3 ) GO TO 410 WRITE ( IWR, 9940 ) IFILEX, IBLK1, IBLK2, IBLK3 9940 FORMAT(///' BLOCK NUMBERS INCONSISTANT ON WRITE IN DBMMGR' &,/,' UNIT = ',I4 &,/,' BLOCK NUMBER EXPECTED (IN FCB) =',I8 &,/,' BLOCK NUMBER IN IN-MEMORY BLOCK =',I8 &,/,' BLOCK NUMBER IN BUFFER =',I8 ) C CALL DBMDMP CALL DBMFDP CALL DSMSG ( 777 ) CALL MESAGE ( -61, 0, 0 ) 410 CONTINUE FCB( 4, IFILEX ) = FCB( 4, IFILEX ) + 1 NEXBLK = MEM( INDBAS-3 ) IF ( NEXBLK .EQ. 0 ) GO TO 420 C USE EXISTING BLOCK ALREADY ALLOCATED FROM PREVIOUS OPEN FOR WRITE FCB( 11, IFILEX) = NEXBLK FCB( 2,IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1 CALL DBMMOV ( INDBAS, NEXBLK+4, 4 ) GO TO 7000 420 CONTINUE CALL DBMALB ( LENBUF, NEXBLK ) IF ( NEXBLK .LE. 0 ) GO TO 440 C ANOTHER BLOCK SUCCESSFULLY ALLOCATED, CONNECT TO CHAIN INDBLK = FCB( 11, IFILEX ) MEM( INDBLK+1 ) = NEXBLK MEM( NEXBLK ) = INDBLK MEM( NEXBLK+1 ) = 0 MEM( NEXBLK+2 ) = LENBUF MEM( NEXBLK+3 ) = FCB( 4, IFILEX ) FCB( 10, IFILEX) = NEXBLK FCB( 11, IFILEX) = NEXBLK FCB( 2,IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1 CALL DBMMOV ( INDBAS, NEXBLK+4, 4 ) GO TO 7000 C NO MORE SPACE IN IN-MEMORY DATA BASE, WRITE DATA TO FILE 440 CONTINUE C CALL DBMIO TO OPEN EXTERNAL FILE WITH REWIND ISAVE = IOCODE ISAVEB = NBLOCK IOCODE = 1 NBLOCK = FCB( 4, IFILEX ) IPRBLK = INDBAS C RESET BUFFER ADDRESS TO BUFFER IN USER'S OPEN CORE FCB( 2,IFILEX ) = FCB( 12, IFILEX ) INDBAS = FCB( 2, IFILEX ) CALL DBMIO ( 1 ) IOCODE = ISAVE NBLOCK = ISAVEB C WRITE(6,88771)(MEM(IPRBLK+K),K=-4,4) 88771 FORMAT(' MEMPRBLK=',9(1X,Z8)) C WRITE(6,88772)(MEM(INDBAS+K),K=-4,4) 88772 FORMAT(' MEMINDBAS=',9(1X,Z8)) C PRINT *,' IFILEX,NBLOCK,IPRBLK,INDBAS=',IFILEX,NBLOCK, C & IPRBLK,INDBAS CALL DBMMOV ( IPRBLK, INDBAS, 4 ) C PRINT *,' MEM(IPRBLK=',MEM(IPRBLK) C WRITE(6,88771)(MEM(IPRBLK+K),K=-4,4) C WRITE(6,88772)(MEM(INDBAS+K),K=-4,4) GO TO 7000 450 CONTINUE CALL DBMIO ( OPCODE ) GO TO 7777 C**************** C READ CODE ********************************************************* C**************** 500 CONTINUE IF ( FCB( 5, IFILEX ) .EQ. 0 ) GO TO 505 IF ( FCB( 4, IFILEX ) .GE. ( FCB( 5, IFILEX ) - 1 ) ) GO TO 540 505 FCB( 4, IFILEX ) = FCB( 4, IFILEX ) + 1 NEXBLK = MEM( INDBAS-3 ) IF ( NEXBLK .GT. 0 ) GO TO 510 WRITE ( IWR, 9950 ) FCB( 4, IFILEX ), IFILEX 9950 FORMAT(///,' ERROR IN DBMMGR DURING READ',/,' EXPECTED ANOTHER ' &,' IN-MEMORY BLOCK FOR BLOCK=',I8,' UNIT=',I3) C CALL DBMDMP CALL DBMFDP CALL DSMSG ( 777 ) CALL MESAGE ( -61, 0, 0 ) 510 FCB( 2, IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1 FCB( 11, IFILEX ) = NEXBLK CALL DBMMOV ( INDBAS, NEXBLK+4, 3 ) IBLK1 = FCB( 4, IFILEX) IBLK2 = MEM( NEXBLK+3 ) IBLK3 = MEM( NEXBLK+7 ) IF ( IBLK1 .EQ. IBLK2 .AND. IBLK1 .EQ. IBLK3 ) GO TO 7000 WRITE ( IWR, 9951 ) IFILEX, IBLK1, IBLK2, IBLK3 9951 FORMAT(///' BLOCK NUMBERS INCONSISTANT ON READ IN DBMMGR' &,/,' UNIT =',I4 &,/,' BLOCK NUMBER (IN FCB) =',I8 &,/,' BLOCK NUMBER IN IN-MEMORY BLOCK =',I8 &,/,' BLOCK NUMBER IN BUFFER =',I8 ) C CALL DBMDMP CALL DBMFDP CALL DSMSG ( 777 ) CALL MESAGE ( -61, 0, 0 ) C BLOCK IS NOT IN MEMORY, CALL DBMIO 540 CONTINUE IF ( FCB( 15, IFILEX ) .NE. 0 ) GO TO 550 ISAVE = IOCODE ISAVEB = NBLOCK IOCODE = 0 NBLOCK = FCB( 4, IFILEX ) + 1 IPRBLK = INDBAS INDBAS = FCB( 12, IFILEX ) FCB( 2, IFILEX ) = INDBAS CALL DBMIO ( 1 ) IOCODE = ISAVE NBLOCK = ISAVEB CALL DBMMOV ( IPRBLK, INDBAS, 3 ) GO TO 7777 550 CONTINUE IF ( FCB( 4, IFILEX ) .GT. FCB( 6, IFILEX ) ) GO TO 570 INDBAS = FCB( 12, IFILEX ) FCB( 2, IFILEX ) = INDBAS CALL DBMIO ( OPCODE ) GO TO 7777 570 CONTINUE WRITE ( IWR, 9052 ) IFILEX 9052 FORMAT(///,' DBMMGR ERROR, ATTEMPT TO READ BEYOND EOF' &,/' UNIT=',I5) C CALL DBMDMP CALL DBMFDP CALL DSMSG ( 777 ) CALL MESAGE ( -61, 0, 0 ) C**************** C POSITION CODE ***************************************************** C**************** 600 CONTINUE IF ( FCB( 5, IFILEX ) .EQ. 0 ) GO TO 605 IF ( NBLOCK .GE. FCB( 5, IFILEX ) ) GO TO 690 605 CONTINUE C BLOCK IS IN THE IN-MEMORY DATA BASE, WALK CHAIN TO CORRECT BLOCK IOFF = 1 NBLK = NBLOCK - 1 NEXBLK = FCB( 9, IFILEX ) IF ( NBLOCK .EQ. 1 ) GO TO 670 ICNDEX = FCB( 11, IFILEX ) IF ( ICNDEX .EQ. 0 ) GO TO 610 NEXBLK = ICNDEX ICBLK = MEM( ICNDEX+3 ) IF ( ICBLK .EQ. NBLOCK ) GO TO 670 IDIFF = NBLOCK - ICBLK NBLK = IABS( IDIFF ) IF ( IDIFF .LT. 0 ) IOFF = 0 610 CONTINUE DO 620 I = 1, NBLK NEXBLK = MEM( NEXBLK+IOFF ) 620 CONTINUE C SET DIRECTORY ENTRIES FOR THE POSITIONED BLOCK 670 FCB( 11, IFILEX ) = NEXBLK FCB( 4, IFILEX ) = NBLOCK FCB( 2, IFILEX ) = LOCFX( MEM(NEXBLK+4) ) - IBASBF + 1 CALL DBMMOV ( INDBAS, NEXBLK+4, 3 ) GO TO 7000 690 CONTINUE IF ( FCB( 15, IFILEX ) .NE. 0 ) GO TO 695 ISAVE = IOCODE IOCODE = 0 IPRBLK = INDBAS INDBAS = FCB( 12, IFILEX ) FCB( 2, IFILEX ) = INDBAS FCB( 4, IFILEX ) = NBLOCK CALL DBMIO( 1 ) IOCODE = ISAVE CALL DBMMOV ( IPRBLK, INDBAS, 3 ) GO TO 7777 695 CONTINUE FCB( 4, IFILEX ) = NBLOCK INDBAS = FCB( 12, IFILEX ) FCB( 2, IFILEX ) = INDBAS CALL DBMIO ( OPCODE ) GO TO 7777 C**************** C DELETE CODE ******************************************************* C**************** 700 CONTINUE IF ( FCB( 9, IFILEX ) .EQ. 0 ) GO TO 710 CALL DBMREL 710 CONTINUE CALL DBMIO ( 7 ) DO 720 K = 1,15 IF ( K .EQ. 7 ) GO TO 720 FCB( K, IFILEX ) = 0 720 CONTINUE GO TO 7777 C**************** C WRTBLK CODE ******************************************************* C**************** C SPECIAL ENTRY FOR SUBSTRUCTURING, MOVE DATA FROM OPENCORE BUFFER C CALLED BY WRTBLK OF GINO 800 CONTINUE IF ( FCB( 15, IFILEX ) .EQ. 0 ) GO TO 810 C ORIGINAL BUFFER IS BEING USED BY GINO, JUST RETURN GO TO 7777 810 IND1 = FCB( 2, IFILEX ) IND2 = FCB( 12, IFILEX ) IND1 = IND1 + 2 IND2 = IND2 + 2 C PRINT *,' DBMMGR,WRTBLK,IND1,IND2,NBUFF3=',IND1,IND2,NBUFF3 C PRINT *,' DBMMGR,WRTBLK,INDBAS=',INDBAS C WRITE(6,44771)(FCB(K,IFILEX),K=1,15) C WRITE(6,44772)(MEM(IND2+K),K=1,8) 44772 FORMAT(' DBMMGR,BUFFER,IND2=',8(1X,Z8)) DO 820 I = 1, NBUFF3 MEM( IND1+I ) = MEM( IND2+I ) 820 CONTINUE GO TO 7000 C**************** C RDBLK CODE ******************************************************* C**************** C SPECIAL ENTRY FOR SUBSTRUCTURING, MOVE DATA TO ORIGINAL BUFFER IF C THE IN-MEMORY DATA BASE IS BEING USED C CALLED BY RDBLK 900 CONTINUE IF ( FCB( 15, IFILEX ) .EQ. 0 ) GO TO 910 C ORIGINAL BUFFER IS BEING USED, JUST RETURN GO TO 7777 910 IND1 = FCB( 2, IFILEX ) IND2 = FCB( 12, IFILEX ) IND1 = IND1 + 2 IND2 = IND2 + 2 C PRINT *,' DBMMGR,RDBLK,IND1,IND2,NBUFF3=',IND1,IND2,NBUFF3 C PRINT *,' DBMMGR,RDBLK,INDBAS=',INDBAS C WRITE(6,44771)(FCB(K,IFILEX),K=1,15) C WRITE(6,44773)(MEM(IND1+K),K=1,8) 44773 FORMAT(' DBMMGR,BUFFER,IND1=',8(1X,Z8)) DO 920 I = 1, NBUFF3 MEM( IND2+I ) = MEM( IND1+I ) 920 CONTINUE GO TO 7000 7000 CONTINUE C SET INDBAS TO POINT TO CURRENT BUFFER INDBAS = FCB( 2, IFILEX ) C IF ( NAME .NE. 307 ) GO TO 7777 C IF ( IFILEX .NE. 48 ) GO TO 7777 C PRINT *,' DBMMGR RETURNING,IFILEX,INDBAS=',IFILEX,INDBAS C PRINT *,' DBMMGR RETURNING,INDCLR,INDCBP=',INDCLR,INDCBP C write(6,40648)(mem(kb),kb=indbas-4,indbas+8) 40648 format(' returned buffer=',/,10(4(1x,z8),/)) C WRITE(6,44771)(FCB(K,IFILEX),K=1,15) C CALL DBMFDP 44771 FORMAT(' returned FCB=',/,2(5I8,/),2I8,4X,2A4,4X,I8) 7777 CONTINUE RETURN END ================================================ FILE: mds/dbmmov.f ================================================ SUBROUTINE DBMMOV ( INDEX1, INDEX2, NO ) INCLUDE 'ZZZZZZ.COM' DO 10 I = 1, NO MEM( INDEX2+I-1 ) = MEM( INDEX1+I-1 ) 10 CONTINUE RETURN END ================================================ FILE: mds/dbmnam.f ================================================ SUBROUTINE DBMNAM ( IGNAME, NAME, IFILEX ) C******************************************************************** C DBMNAM RETURNS THE DMAP NAME AND TRAILER FOR A GIVEN GINO FILE C ARGUMENTS C IGNAME (INPUT ) GINO FILE NAME (E.G., 101,201,301) C FIST (INPUT ) COMMON BLOCK /XFIST/ C FIAT (INPUT ) COMMON BLOCK /XFIAT/ C NAME (OUTPUT) (2A4) DMAP FILE NAME C******************************************************************** INTEGER FIST(100), FIAT(100), NAME(2) INTEGER BLANK, POOL COMMON / XFIST / FIST COMMON / XFIAT / FIAT DATA POOL / 4HPOOL /, BLANK / 4H / IF ( IGNAME .LE. 100 .OR. IGNAME .GE. 400 ) GO TO 100 LIM = FIST(2)*2 - 1 DO 10 I = 1, LIM, 2 IF ( IGNAME .NE. FIST(2+I) ) GO TO 10 INDEX = FIST(3+I) NAME(1) = FIAT( INDEX+2 ) NAME(2) = FIAT( INDEX+3 ) GO TO 700 10 CONTINUE NAME(1) = 0 NAME(2) = 0 GO TO 700 100 NAME(1) = IGNAME NAME(2) = BLANK IF ( IFILEX .EQ. 22 ) NAME(1) = POOL 700 RETURN END ================================================ FILE: mds/dbmrel.f ================================================ SUBROUTINE DBMREL C******************************************************************** C DBMREL - RELEASES IN-MEMORY BLOCKS THAT ARE CURRENTLY C ALLOCATED TO AN IN-MEMORY FILE C******************************************************************** INCLUDE 'DSIOF.COM' INCLUDE 'ZZZZZZ.COM' COMMON / SYSTEM / ISYSBF, IWR IF ( FCB( 9, IFILEX ) .EQ. 0 .OR. FCB( 10, IFILEX ) .EQ. 0 ) & GO TO 701 IF ( IDBFRE .NE. 0 ) GO TO 10 C FREE CHAIN IS EMPTY, THIS CHAIN BECOMES FREE CHAIN IDBFRE = FCB( 9, IFILEX ) GO TO 777 C SET FIRST OF BLOCKS TO BE FREED AT FIRST OF FREE CHAIN AND C THEN CONNECT LAST OF BLOCKS TO BE FREED WITH FIRST OF EXISTING C FREE CHAIN 10 CONTINUE IF ( FCB( 9, IFILEX ) .EQ. FCB( 10, IFILEX ) ) GO TO 20 ISAVE = IDBFRE IDBFRE = FCB( 9, IFILEX ) MEM( ISAVE ) = FCB( 10, IFILEX ) INDEX = FCB( 10, IFILEX ) MEM( INDEX+1 ) = ISAVE GO TO 777 C FILE HAD ONLY ONLY ONE BLOCK ALLOCATED TO IT 20 CONTINUE ISAVE = IDBFRE IDBFRE = FCB( 9, IFILEX ) MEM( ISAVE ) = IDBFRE MEM( IDBFRE+1) = ISAVE GO TO 777 701 WRITE( IWR, 901 ) 901 FORMAT(///,' ERROR IN ATTEMPT TO FREE BLOCKS TO FREE CHAIN', & /,' CONTENTS OF THE DIRECTORY ARE AS FOLLOWS') CALL DBMDMP CALL MESAGE ( -61, 0, 0 ) 777 CONTINUE FCB( 9, IFILEX ) = 0 FCB( 10, IFILEX ) = 0 FCB( 11, IFILEX ) = 0 RETURN END ================================================ FILE: mds/dbmrlb.f ================================================ SUBROUTINE DBMRLB ( INDEX ) C******************************************************************** C DBMRLB - RELEASES AN IN-MEMORY BLOCK THAT IS CURRENTLY C ALLOCATED AS THE LAST BLOCK OF AN IN-MEMORY FILE. C THIS IS USED TO RELEASE THE NEXT ALLOCATED BLOCK FOR A C FILE OPENED FOR WRITE BUT WAS NEVER USED BECAUSE THE C FILE WAS CLOSED--I.E., THE LAST BLOCK ALLOCATED FOR A C FILE OPENED FOR WRITE IS NEVER USED BUT IT MUST HAVE C BEEN ALLOCATED JUST IN CASE THE FILE IS NOT TO BE CLOSED. C******************************************************************** INCLUDE 'DSIOF.COM' COMMON / ZZZZZZ / MEM(4) COMMON / SYSTEM / ISYSBF, IWR INDEXL = INDEX C CHECK IF OTHER BLOCKS ARE CHAINED TO THE END OF THIS BLOCK IF ( MEM( INDEX+1 ) .NE. 0 ) GO TO 100 C SET "NEXT" OF PREVIOUS BLOCK TO ZERO, IF IT EXISTS 5 LINDEX = MEM( INDEX ) IF ( LINDEX .EQ. 0 ) GO TO 10 MEM( LINDEX+1 ) = 0 10 IF ( IDBFRE .NE. 0 ) GO TO 20 C FREE CHAIN IS EMPTY, THIS BLOCK BECOMES FREE CHAIN IDBFRE = INDEX C SET "NEXT" AND "PREVIOUS" OF THIS CHAIN TO ZERO MEM( INDEX ) = 0 MEM( INDEXL+1 ) = 0 GO TO 700 C SET BLOCKS TO BE FREED AT FIRST OF FREE CHAIN AND C THEN CONNECT FREE CHAIN TO THIS BLOCK 20 ISAVE = IDBFRE IDBFRE = INDEX MEM( ISAVE ) = INDEXL MEM( INDEX ) = 0 MEM( INDEXL+1 ) = ISAVE GO TO 700 C MORE THAN ONE BLOCK IN THIS CHAIN TO RELEASE BACK TO FREE CHAIN 100 CONTINUE 110 IF ( MEM( INDEXL+1 ) .EQ. 0 ) GO TO 5 CWKBR SPR94012 10/94 INDEXL = MEM( INDEX+1 ) INDEXL = MEM( INDEXL+1 ) GO TO 110 700 CONTINUE RETURN END ================================================ FILE: mds/dbmsrf.f ================================================ SUBROUTINE DBMSRF ( NAME, IFILEX ) C******************************************************************** C DBMNAM RETURNS THE UNIT NUMBER ASSOCIATED WITH A DMAP FILE NAME C ARGUMENTS C NAME (INPUT) (2A4) DMAP FILE NAME C IFILEX (OUTPUT) (I) UNIT ASSOCIATED WITH FILE NAME IN FIAT C******************************************************************** INTEGER FIST(100), FIAT(100), NAME(2) COMMON / XFIST / FIST COMMON / XFIAT / FIAT LIM = FIAT(2)*11 + 3 DO 10 I = 4, LIM, 11 IF ( NAME( 1 ) .NE. FIAT( I+1 ) .OR. NAME( 2 ) .NE. FIAT( I+2 ) ) & GO TO 10 IFILEX = IAND( FIAT( I ), 32767 ) GO TO 700 10 CONTINUE IFILEX = 0 700 RETURN END ================================================ FILE: mds/dbmstf.f ================================================ SUBROUTINE DBMSTF INCLUDE 'DSIOF.COM' COMMON / SYSTEM / ISYSBF, IWR COMMON / LOGOUT / LOUT IBLKSZ = ISYSBF - 4 IF ( MAXBLK .NE. 0 ) PERC1 = MAXBLK*1.0 / MAXALC IPERC1 = PERC1 * 100. IMEMNU = ( MAXALC - MAXBLK ) * LENALC WRITE( LOUT, 901 ) LENOPC, IDBLEN, MAXBLK, MAXALC, IPERC1, MAXDSK &, IBLKSZ, NUMOPN, NUMCLS, NUMWRI, NUMREA IF ( IDBDIR .NE. 0 ) WRITE( LOUT, 902 ) IMEMNU 901 FORMAT(1H1 &,5X,'STATISTICS ON IN-MEMORY DATA BASE AND DISK I/O USAGE',/ &,/,8X,' LENGTH (IN WORDS) OF OPEN CORE ALLOCATED ',I8 &,/,8X,' LENGTH (IN WORDS) OF IN-MEMORY DATA BASE ALLOCATED',I8 &,/,8X,' NUMBER OF BLOCKS USED IN THE IN-MEMORY DATA BASE ',I8 &,/,8X,' NUMBER OF BLOCKS ALLOCATED FOR THE IN-MEMORY DATA ',I8 &,/,8X,' PERCENTAGE OF IN-MEMORY DATA USED ',I8,'%' &,/,8X,' TOTAL BLOCKS WRITTEN TO DISK ',I8 &,/,8X,' BLOCK SIZE (IN WORDS) ',I8 &,/,8X,' NUMBER OF OPENS TO DISK FILES ',I8 &,/,8X,' NUMBER OF CLOSES TO DISK FILES ',I8 &,/,8X,' NUMBER OF WRITES TO DISK FILES ',I8 &,/,8X,' NUMBER OF READS FROM DISK FILES ',I8) 902 FORMAT( & 8X,' MEMORY (IN WORDS) NOT USED BY IN-MEM. DATA BASE ',I8 & ) RETURN END ================================================ FILE: mds/defcor.f ================================================ SUBROUTINE DEFCOR RETURN END ================================================ FILE: mds/delscr.f ================================================ SUBROUTINE DELSCR C C THIS SUBROUTINE IS CALLED AT THE BEGINNING OF EACH FUNCTIONAL C MODULE TO PHYSICALLY DELETE ALL SCRATCH FILES USED BY A C PREVIOUS FUNCTIONAL MODULE C INTEGER*2 IUNIT C COMMON /DSUNIT/ IUNIT(220) COMMON /XFIST / IFIST(2) COMMON /XPFIST/ IPFIST INCLUDE 'DSIOF.COM' C DATA MASK / 32767 / C NFILES = IFIST(2) - IPFIST IF (NFILES .EQ. 0) RETURN ISTR = IPFIST + 1 IEND = IFIST(2) DO 100 I = ISTR, IEND IFILE = IFIST(2*I+1) IF (IFILE.LT.301 .OR. IFILE.GT.320) GO TO 100 IFILEX = 0 CALL GETURN (IFILE) IF (IFILEX .EQ. MASK) GO TO 100 CALL DBMMGR ( 7 ) 100 CONTINUE RETURN END ================================================ FILE: mds/dmpmat.f ================================================ SUBROUTINE DMPMAT (IFILE,Z ,LZ) C C DUMPS A FILE ON DIAG 20 SETTING. C INTEGER SYSBUF,OUTPT,BUF,FILE,NAME(2) integer itrail(7) REAL Z(2) COMMON /SYSTEM/ SYSBUF,OUTPT COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS COMMON /UNPAKX/ IOUT,IROW,NROW,INCR DATA NAME / 4HDMPF,2HIL / C 1 FORMAT (1H0,I5,10(1X,I10,1X)) 2 FORMAT (1H ,5X,10(1X,1P,E11.4)) 3 FORMAT (1H ,5X,10(4X,A4,4X)) C c CALL SSWTCH (20,L) c IF (L .EQ. 0) RETURN C FILE = IABS(IFILE) BUF = LZ - SYSBUF + 1 IF (BUF .LT. 6) GO TO 91 LCORE = (BUF-1)/5 LCORE = LCORE*5 CALL OPEN (*90,FILE,Z(BUF),RDREW) WRITE (OUTPT,10) FILE 10 FORMAT (14H1DUMP OF FILE ,I3) GO TO 100 C 70 itrail(1) = FILE CALL CLOSE (FILE,CLSREW) CALL RDTRL (itrail) WRITE (OUTPT,80) (itrail(I),I=1,7) 80 FORMAT (4H0EOF ,//,8H0TRAILER ,/,7(1X,I12 /)) 90 RETURN C 91 CALL MESAGE (8,0,NAME) GO TO 90 C 100 CALL READ (*70,*101,FILE,Z,2,1,IWORDS) 101 WRITE (OUTPT,102) Z(1),Z(2) 102 FORMAT (14H0HEADER RECORD ,/1H0,2A4) itrail(1) = FILE CALL RDTRL (itrail) NCOLS = itrail(2) IF (NCOLS .GT. 300) NCOLS = 100 IOUT = 1 INCR = 1 IF (NCOLS) 70,70,110 110 DO 150 J = 1,NCOLS WRITE (OUTPT,115) J 115 FORMAT (7H0COLUMN ,I5) IROW = 0 NROW = 0 CALL UNPACK (*140,FILE,Z) WRITE (OUTPT,118) IROW,NROW 118 FORMAT (1H+,20X,3HROW ,I4,11H THRU ROW ,I5) IF (NROW .GT. 300) NROW = 100 NELS = NROW - IROW + 1 IF (NELS .LE. 0) GO TO 150 WRITE (OUTPT,119) (Z(K),K=1,NELS) write (outpt,1119) (z(k),k=1,nels) 1119 format( 10z9) 119 FORMAT (1P,10E13.4) GO TO 150 140 WRITE (OUTPT,141) 141 FORMAT (13H NULL COLUMN ) 150 CONTINUE GO TO 70 C END ================================================ FILE: mds/dsblpk.f ================================================ SUBROUTINE DSBLPK ( BLOCK ) INCLUDE 'DSIOF.COM' INCLUDE 'PAKBLK.COM' INCLUDE 'XNSTRN.COM' INTEGER BLOCK(15) BLOCK( 1 ) = NAME BLOCK( 2 ) = ITYPO IF ( ITRAIL .EQ. -1 ) GO TO 10 BLOCK( 3 ) = 0 GO TO 20 10 BLOCK( 3 ) = 1 20 CONTINUE BLOCK( 4 ) = 0 BLOCK( 7 ) = 0 BLOCK( 8 ) = -1 BLOCK(10 ) = 0 BLOCK(12 ) = BLOCK( 12 ) + 1 BLOCK(13 ) = ITYPI CALL PUTSTR( BLOCK ) IFLAG = FCB( 8, IFILEX ) IF ( IFLAG .NE. 0 ) GO TO 700 BLOCK( 12 ) = 1 FCB( 8, IFILEX ) = 1 IBASE( INDCLR + 2 ) = 1 GO TO 700 700 RETURN END ================================================ FILE: mds/dsbpnk.f ================================================ SUBROUTINE DSBPNK ( BLOCK, MCB ) INCLUDE 'DSIOF.COM' INTEGER BLOCK( 15 ), MCB( 7 ) IF ( BLOCK( 1 ) .EQ. NAME ) GO TO 10 CALL DSMSG1( BLOCK ) CALL DSMSG( 120 ) 10 CONTINUE IF ( MCB( 2 ) .EQ. 0 ) MCB( 7 ) = MCBMAS MCB( 2 ) = MCB( 2 ) + 1 NUM = BLOCK( 10 ) IF ( MCB( 6 ) .GT. NUM ) GO TO 20 MCB( 6 ) = NUM 20 MCB( 7 ) = MCB( 7 ) + NUM BLOCK( 8 ) = 1 CALL ENDPUT ( BLOCK ) RETURN END ================================================ FILE: mds/dsbrc1.f ================================================ SUBROUTINE DSBRC1 INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' C PRINT *,' DSBRC1-1,NBLOCK,INDCLR,INDBAS=',NBLOCK,INDCLR,INDBAS IF ( INDCLR .NE. INDCBP ) GO TO 20 IF ( ( INDCLR-INDBAS ) .NE. 5 ) GO TO 10 IF ( NBLOCK .EQ. 1 ) GO TO 100 CALL DSRDPB INDCBP = INDCBP - 1 GO TO 100 10 INDCBP = INDCBP - 1 GO TO 100 20 INDCBP = INDCLR 100 IF ( NBLOCK .NE. 1 ) GO TO 110 IF ( ( INDCLR-INDBAS ) .NE. 5 ) GO TO 110 GO TO 7000 110 ID = IAND( IBASE( INDCBP ), MASKQ1 ) IF ( ID .EQ. IDSEF ) GO TO 7000 IF ( ID .NE. IDSRT ) GO TO 120 INDCBP = INDBAS + ( IAND( IBASE( INDCBP ), MASKH2 ) ) - 1 ID = IAND( IBASE( INDCBP ), MASKQ1 ) 120 IF ( ID .EQ. IDSRH ) GO TO 140 IF ( ID .EQ. IDSSB ) GO TO 140 IF ( ID .EQ. IDSEB ) GO TO 130 CALL DSMSG( 106 ) 130 INDCBP = INDCBP - 1 GO TO 100 140 IFLAG = IAND( IBASE( INDCBP ), MASKQ2 ) IF ( IFLAG .EQ. IDSC ) GO TO 7000 IF ( IFLAG .EQ. IDSP ) GO TO 7000 IF ( ( INDCBP-INDBAS ) .LE. 5 ) GO TO 150 INDCBP = INDCBP - 1 GO TO 100 150 IF ( NBLOCK .EQ. 1 ) GO TO 7000 CALL DSRDPB INDCBP = INDCBP - 1 GO TO 100 7000 INDCLR = INDCBP C PRINT *,' DSBRC1-2,NBLOCK,INDCLR,INDBAS=',NBLOCK,INDCLR,INDBAS RETURN END ================================================ FILE: mds/dsclos.f ================================================ SUBROUTINE DSCLOS ( IUNIT ) INCLUDE 'DSIOF.COM' c print *,' dsclos,iunit=',iunit CLOSE ( IUNIT ) NUMCLS = NUMCLS + 1 RETURN END ================================================ FILE: mds/dscpos.f ================================================ SUBROUTINE DSCPOS ( FILE, ICBLK, ICLR, ICBP ) C C RETURNS THE CURRENT BLOCK NUMBER "ICBLK", CURRENT LOGICAL RECORD C POINTER "ICLR" AND CURRENT BUFFER POINT "ICBP" FOR "FILE" C INCLUDE 'DSIOF.COM' INTEGER FILE NAME = FILE CALL DSGEFL ICBLK = FCB( 4, IFILEX ) ICLR = INDCLR - INDBAS + 1 ICBP = INDCBP - INDBAS + 1 RETURN END ================================================ FILE: mds/dsefwr.f ================================================ SUBROUTINE DSEFWR INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' IF ( IPRVOP .NE. 0 ) GO TO 10 CALL DSMSG ( 7 ) 10 IF ( INDCLR .EQ. INDCBP ) GO TO 20 IBASE( INDCBP+1 ) = IDSRT + IDSC + ( INDCLR-INDBAS+1 ) INDCLR = INDCBP + 2 INDCBP = INDCLR 20 IF ( ( INDCLR-INDBAS-2 ) .LT. NBUFF ) GO TO 30 IBASE( INDCLR ) = IDSEB CALL DSWRNB 30 IBASE( INDCLR ) = IDSEF IBASE( INDCLR+1 ) = IDSEB INDCLR = INDCLR + 1 INDCBP = INDCLR IF ( ( INDCLR-INDBAS ) .LE. NBUFF ) GO TO 40 CALL DSWRNB 40 RETURN END ================================================ FILE: mds/dsfwr1.f ================================================ SUBROUTINE DSFWR1 INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' CALL DSSKRC ID = IAND( IBASE( INDCLR-1 ), MASKQ1 ) IF ( ID .EQ. IDSEF ) GO TO 10 IRETRN = 0 GO TO 7000 10 IRETRN = 1 7000 RETURN END ================================================ FILE: mds/dsgefl.f ================================================ SUBROUTINE DSGEFL INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER*2 IUNIT COMMON / DSUNIT / IUNIT(220) IF ( NAME .GE. 101 .AND. NAME .LE. 320 ) GO TO 10 CALL GETURN ( NAME ) GO TO 20 10 IFILEX = IUNIT( NAME-100 ) 20 IF ( IFILEX .NE. 0 ) GO TO 30 IF ( IRETRN .EQ. 77 ) GO TO 50 CALL DSMSG ( 107 ) 30 IOBUF = FCB( 2, IFILEX ) IF ( IOBUF .EQ. 0 ) GO TO 40 IPRVOP = FCB( 1,IFILEX ) IF ( IPRVOP .EQ. 2 ) IPRVOP = 0 INDBAS = IOBUF INDCBP = INDBAS + IBASE( INDBAS+1 ) - 1 INDCLR = INDBAS + IBASE( INDBAS+2 ) - 1 NBLOCK = FCB( 4, IFILEX ) LCW = IBASE( INDBAS+4 ) LASNAM = NAME GO TO 50 40 IFILEX = 0 50 CONTINUE RETURN END ================================================ FILE: mds/dsgncl.f ================================================ SUBROUTINE DSGNCL INCLUDE 'DSIOF.COM' INCLUDE 'GINOX.COM' IDSN = MDSFCB( 2, IFILEX ) CALL DSCLOS( IDSN ) MDSFCB( 1,IDSN ) = IAND( MDSFCB( 1,IDSN ), MASKH1 ) RETURN END ================================================ FILE: mds/dsgnop.f ================================================ SUBROUTINE DSGNOP INCLUDE 'DSIOF.COM' INCLUDE 'GINOX.COM' INCLUDE 'XNSTRN.COM' CHARACTER*4 CBUFF( 3 ) EQUIVALENCE (CBUFF,IBASE) IDSN = IFILEX IF ( IOCODE .GE. 2 ) GO TO 10 IF ( IOCODE .NE. 1 ) GO TO 30 CALL DSRLSE GO TO 30 10 INEXT = IAND( MDSFCB( 3, IDSN ), MASKH2 ) IF ( INEXT .EQ. 0 ) GO TO 30 ITEST = FCB( 6, IDSN ) IF ( NBLOCK .LE. ITEST ) GO TO 30 IDSN = INEXT GO TO 10 30 IOP = MOD ( IOCODE,2 ) MDSFCB( 2,IFILEX ) = IDSN MDSFCB( 1,IDSN ) = IOR( MDSFCB( 1,IDSN ), MASKH2 ) 40 CONTINUE CALL DSOPEN( MDSNAM( IDSN ), IDSN, IOCODE) RETURN END ================================================ FILE: mds/dsgnrd.f ================================================ SUBROUTINE DSGNRD INCLUDE 'XNSTRN.COM' INCLUDE 'DSIOF.COM' INCLUDE 'GINOX.COM' CHARACTER*4 CBUFF(2) EQUIVALENCE (CBUFF,IBASE) IDSN = MDSFCB( 2, IFILEX ) IDSNR = IDSN 10 ISTRB = FCB( 5, IDSNR ) IF ( NBLOCK .GE. ISTRB ) GO TO 20 IDSNR = MDSFCB( 3, IDSNR ) / MULQ2 GO TO 30 20 IEND = FCB( 6, IDSNR ) IF ( NBLOCK .LE. IEND ) GO TO 40 IDSNR = IAND( MDSFCB( 3, IDSNR ), MASKH2 ) 30 IF ( IDSNR .GE. 1 .AND. IDSNR .LE. MAXDSN ) GO TO 10 CALL DSMSG( 121 ) 40 IF ( IDSN .EQ. IDSNR ) GO TO 50 CALL DSCLOS( IDSN ) MDSFCB( 1,IDSN ) = IAND( MDSFCB( 1,IDSN ), MASKH1 ) IDSN = IDSNR MDSFCB( 1, IDSN ) = IOR ( MDSFCB( 1,IDSN ), MASKH2 ) MDSFCB( 2, IFILEX ) = IDSN ISAVE = IOP IOP = 0 CALL DSOPEN( MDSNAM(IDSN), IDSN, IOP ) IOP = ISAVE CBUFF( INDBAS ) = MDSNAM( IDSN ) 50 IOBLK = NBLOCK - ISTRB + 1 CALL DSREAD( IDSN, IBASE(INDBAS+3), NBUFF, IOBLK ) RETURN END ================================================ FILE: mds/dsgnwr.f ================================================ SUBROUTINE DSGNWR COMMON /SYSTEM/ ISYBUF, IWR INCLUDE 'XNSTRN.COM' INCLUDE 'GINOX.COM' INCLUDE 'DSIOF.COM' CHARACTER*4 CBUFF(3) EQUIVALENCE (CBUFF,IBASE) IDSN = MDSFCB( 2,IFILEX ) IDSNR = IDSN 10 ISTRB = FCB( 5,IDSNR ) IF ( NBLOCK .GE. ISTRB ) GO TO 20 INEXT = MDSFCB( 3,IDSNR ) / MULQ2 GO TO 40 20 IALLOC = FCB( 7, IDSNR ) IF ( NBLOCK .LE. ( IALLOC+ISTRB-1 ) ) GO TO 50 IF ( IDSN .EQ. 8 ) CALL DSMSG( 9 ) INEXT = IAND( MDSFCB( 3,IDSNR ), MASKH2 ) IF ( INEXT .NE. 0 ) GO TO 40 MAXPR1 = MAXPRI + 1 DO 30 I = MAXPR1, MAXFCB IAVAIL = MDSFCB( 3,I ) IF ( IAVAIL .NE. 0 ) GO TO 30 IFIRST = IALLOC + ISTRB IALLOC = 20000000 FCB( 5,I ) = IFIRST FCB( 6,I ) = IFIRST-1 MDSFCB( 3,I ) = IDSNR * MULQ2 INEXT = I MDSFCB( 3,IDSNR ) = IOR( MDSFCB( 3,IDSNR ), I ) GO TO 40 30 CONTINUE 40 IDSNR = INEXT IF ( IDSNR .GE. 1 .AND. IDSNR .LE. MAXDSN ) GO TO 10 CALL DSMSG ( 122 ) 50 IF ( IDSN .EQ. IDSNR ) GO TO 60 CALL DSCLOS( IDSN ) MDSFCB( 1,IDSN ) = IAND( MDSFCB( 1,IDSN ), MASKH1 ) IDSN = IDSNR MDSFCB( 1,IDSN ) = IOR( MDSFCB( 1,IDSN ), MASKH2 ) MDSFCB( 2,IFILEX ) = IDSN CALL DSMSG( 8 ) IDEVIC = 0 DO 55 KK = 1, NUMDEV MDSNAM(IDSN)(1:2) = DEV(KK) ISAVE = IOP IOP = 0 CALL DSOPEN( MDSNAM( IDSN ), IDSN, IOP ) IOP = ISAVE CBUFF( INDBAS ) = MDSNAM( IDSN ) CALL DSWRIT( IDSN, IBASE( INDBAS+3 ), NBUFF, IOBLK, ICCER ) IF ( ICCER .EQ. 0 ) GO TO 60 CALL DSCLOS (IDSN) 55 CONTINUE 57 WRITE ( IWR, 901 ) 901 FORMAT(///,' NO MORE DISK SPACE AVAILABLE, JOB ABORTED.') CALL DSMSG( 122 ) 60 IOBLK = NBLOCK - ISTRB + 1 CALL DSWRIT( IDSN, IBASE( INDBAS+3 ), NBUFF, IOBLK, ICCER ) IF ( ICCER .NE. 0 ) GO TO 70 LASBLK = FCB( 6,IDSN ) IF ( LASBLK .GE. NBLOCK ) GO TO 7000 FCB( 6,IDSN ) = FCB( 6,IDSN ) + 1 GO TO 7000 70 IF ( ICCER .NE. 28 ) CALL DSMSG( 101 ) IF ( IDSN .LE. 21 .AND. IDSN .NE. 8 .AND. IDSN .NE. 9) GO TO 80 C ALLOW XPDT TO EXTEND (IDSN=9)---NOTE IDSN=8 IS THE NPTP ITEST = INDEX( MDSNAM(8), 'ZAP' ) IF ( IDSN .EQ. 8 .AND. ITEST .EQ. 0 ) GO TO 80 FCB( 7,IFILEX ) = FCB( 6,IFILEX ) IDSNR = IDSN GO TO 10 80 WRITE ( IWR, 902 ) 902 FORMAT(///,' NO MORE DISK SPACE AVAILABLE IN DEFAULT DIRECTORY', & ' FOR PERMANENT FILES',/,' JOB ABORTED') CALL DSMSG( 122 ) 7000 RETURN END ================================================ FILE: mds/dshxdd.f ================================================ SUBROUTINE DSHXDD ( II,IARR, LEN) INTEGER IARR( 10000) COMMON / DSBUFF / IIBUFF(2048) DO 10 K = 1, LEN 10 IIBUFF(K) = IARR(K) WRITE ( 6, 901 ) II,(IIBUFF(I),I=1,LEN ) 901 FORMAT(I5,200(8(1X,Z8),/)) RETURN END ================================================ FILE: mds/dshxdp.f ================================================ SUBROUTINE DSHXDP ( IARR, LEN ) INTEGER IARR( 10000) WRITE ( 6, 901 ) (IARR(I),I=1,LEN ) 901 FORMAT(200(8(1X,Z8),/)) RETURN END ================================================ FILE: mds/dsinqr.f ================================================ SUBROUTINE DSINQR ( DSN, ISTAT, ISIZE ) C DSINQR DETERMINES THE EXISTANCE OF A FILE: C DSN ( INPUT ) FILE NAME C ISTAT ( OUTPUT ) =0, IF NOT EXIST; =1, IF EXIST C ISIZE ( OUTPUT ) = FILE SIZE IN GINO BLOCKS C LOGICAL AVAIL CHARACTER*(*) DSN INQUIRE( FILE=DSN, EXIST=AVAIL, NEXTREC = NREC ) ISTAT = 0 IF ( AVAIL ) ISTAT = 1 ISIZE = NREC - 1 RETURN END ================================================ FILE: mds/dsiodd.f ================================================ SUBROUTINE DSIODD INCLUDE 'GINOX.COM' INCLUDE 'DSIOF.COM' LGINOX = 5*NUMFCB + NUMSOF + 2 LHALF = 16 LENDSP = 0 LENWPB = 0 MASKH1 = 'FFFF0000'X MASKH2 = '0000FFFF'X MASKE1 = 'FF000000'X MASKE2 = '00FF0000'X MASKE3 = '0000FF00'X MASKE4 = '000000FF'X MCBMAS = '40000000'X MAXDSN = NUMFCB MASKQ1 = MASKE1 MASKQ2 = MASKE2 MASKQ3 = MASKE3 MASKQ4 = MASKE4 MULQ1 = 2**24 MULQ2 = 2**16 MULQ3 = 2**8 IDSX = '00EE0000'X IDSP = '000E0000'X IDSC = '000C0000'X IDSRH = '11000000'X IDSRT = '77000000'X IDSSB = '22000000'X IDSSE = '7F000000'X IDSCH = '3B000000'X IDSCT = '3F000000'X IDSSH = '4B000000'X IDSST = '4F000000'X IDSSD = 'DD000000'X IDSEB = 'EB000000'X IDSEF = 'EF000000'X NWRDEL( 1 ) = 1 NWRDEL( 2 ) = 2 NWRDEL( 3 ) = 2 NWRDEL( 4 ) = 4 RETURN END ================================================ FILE: mds/dsipk1.f ================================================ SUBROUTINE DSIPK1 ( BLOCK, ITYPOT ) INCLUDE 'DSIOF.COM' INTEGER BLOCK( 15 ) IRETRN = 0 BLOCK( 1 ) = NAME BLOCK( 8 ) = -1 IF ( ITYPOT .GT. 0 ) GO TO 10 IFLAG = IABS( ITYPOT ) + 64 GO TO 20 10 IFLAG = ITYPOT 20 BLOCK( 13) = IFLAG CALL GETSTR( *777, BLOCK ) BLOCK( 7 ) = 0 IF ( IFLAG .GE. 1 .AND. IFLAG .LE. 4 ) GO TO 30 IF ( IFLAG .GE. 65 .AND. IFLAG .LE. 68 ) GO TO 30 CALL DSMSG1( BLOCK ) CALL DSMSG( 118 ) 30 CONTINUE GO TO 700 777 IRETRN = 1 700 RETURN END ================================================ FILE: mds/dsmsg.f ================================================ SUBROUTINE DSMSG ( IFLAG ) INCLUDE 'DSIOF.COM' COMMON / DSIO / MSSOFT INCLUDE 'GINOX.COM' COMMON / LOGOUT / LOUT INCLUDE 'XNSTRN.COM' COMMON / DDIOSV / IFLPOS(2,MAXPRI) COMMON / SOFCOM / NFILES,FILNAM(10),FILSIZ(10) COMMON / SYS / BLKSIZ,DIRSIZ,SUPSIZ,AVBLKS,HIBLK COMMON / SYSTEM / ISYSTM(175) C INTEGER XNAME(2), BLANK INTEGER FILNAM,FILSIZ,BLKSIZ,DIRSIZ,SUPSIZ,AVBLKS,HIBLK INTEGER GINO(52) C EQUIVALENCE ( IEOR, GINO(1) ) EQUIVALENCE (ISYSTM( 2), IWR ), * (ISYSTM(151), NLLOG ), * (ISYSTM(152), LOGLIN) C DATA BLANK / 1H / DATA INAME /4HDSMS/ C CALL FNAME ( NAME, XNAME ) IF ( XNAME( 1 ) .NE. 0 ) GO TO 4 XNAME( 1 ) = BLANK XNAME( 2 ) = BLANK 4 CONTINUE IF ( IABS(IFLAG) .EQ. 777 ) GO TO 7770 IF ( IFLAG .NE. 1 .AND. IFLAG .NE. 2 .AND. IFLAG .NE. 8 ) C WRITE( IWR, 5 ) IFLAG 5 FORMAT(' I/O SUBSYSTEM ERROR NUMBER',I10) IF ( IFLAG .GT. 100 ) GO TO 1000 GO TO ( 10, 20, 30, 40, 50, 60, 70, 80, 90 ),IFLAG 10 CONTINUE WRITE ( LOUT, 15 ) 'OPEN ',XNAME, IOCODE LOGLIN = LOGLIN + 1 GO TO 90000 20 CONTINUE WRITE ( LOUT, 15 ) 'CLOSE ', XNAME, IOCODE LOGLIN = LOGLIN + 1 GO TO 90000 30 WRITE ( IWR, 35 ) XNAME, IFILEX GO TO 99999 40 WRITE ( IWR, 45 ) XNAME, IFILEX GO TO 7000 50 WRITE ( IWR, 55 ) XNAME, IFILEX GO TO 99999 60 WRITE ( IWR, 65 ) XNAME, IFILEX GO TO 99999 70 WRITE ( IWR, 75 ) XNAME, IFILEX GO TO 7000 80 CONTINUE WRITE ( LOUT, 85 ) XNAME, IFILEX, IDSN GO TO 90000 90 WRITE ( IWR, 95 ) NBLOCK GO TO 99999 100 CONTINUE GO TO 7000 1000 ITEMP = IFLAG - 100 GO TO ( 1010, 1020, 1030, 1040, 1050, 1060, 1070, 1080 * ,1090, 1100, 1110, 1120, 1130, 1140, 1150, 1160 * ,1170, 1180, 1190, 1200, 1210, 1220, 1230, 1240 * ), ITEMP C1010 WRITE ( IWR, 1015 ) IOERR 1010 GO TO 7000 1020 WRITE ( IWR, 1025 ) XNAME, IFILEX GO TO 7000 1030 WRITE ( IWR, 1035 ) XNAME, IFILEX GO TO 7000 1040 WRITE ( IWR, 1045 ) XNAME, IFILEX GO TO 7000 1050 WRITE ( IWR, 1055 ) XNAME, IFILEX GO TO 7000 1060 WRITE ( IWR, 1065 ) XNAME, IFILEX GO TO 7000 1070 WRITE ( IWR, 1075 ) XNAME, IFILEX GO TO 7000 1080 WRITE ( IWR, 1085 ) XNAME, IFILEX GO TO 7000 1090 WRITE ( IWR, 1095 ) XNAME, IFILEX GO TO 7000 1100 WRITE ( IWR, 1105 ) XNAME, IFILEX GO TO 7000 1110 WRITE ( IWR, 1115 ) XNAME, IFILEX GO TO 7000 1120 WRITE ( IWR, 1125 ) XNAME, IFILEX GO TO 7000 1130 WRITE ( IWR, 1135 ) XNAME, IFILEX GO TO 7000 1140 WRITE ( IWR, 1145 ) XNAME, IFILEX GO TO 7000 1150 WRITE ( IWR, 1155 ) XNAME, IFILEX GO TO 7000 1160 WRITE ( IWR, 1165 ) XNAME, IFILEX GO TO 7000 1170 WRITE ( IWR, 1175 ) XNAME, IFILEX GO TO 7000 1180 WRITE ( IWR, 1185 ) XNAME, IFILEX GO TO 7000 1190 WRITE ( IWR, 1195 ) XNAME, IFILEX GO TO 7000 1200 WRITE ( IWR, 1205 ) XNAME, IFILEX GO TO 7000 1210 WRITE ( IWR, 1215 ) XNAME, IFILEX GO TO 7000 1220 WRITE ( IWR, 1225 ) XNAME, IFILEX GO TO 7000 1230 CONTINUE 1240 CONTINUE 7000 CONTINUE 7770 CONTINUE WRITE ( IWR, 91000 ) IOERR, NAME, XNAME, IFILEX WRITE ( IWR, 92000 ) DO 7772 I = 1, MAXFCB CALL DSHXDD ( I, MDSFCB( 1, I ), 3 ) 7772 CONTINUE WRITE( IWR, 92001 ) DO 7773 I = 1, 80 CWKBR NCL93007 11/94 C WRITE ( IWR, 92003 ) I, ( FCB(K,I),K=1,15) WRITE ( IWR, 92003 ) I, ( FCB(K,I),K=1,17) CWKBR NCL93007 11/04 C92003 FORMAT(I3,'-',I3,I7,4I5,I12,I2,4I7,1X,2A4,I4) 92003 FORMAT(I3,'-',I3,I7,4I5,I12,I2,4I7,1X,2A4,I4,2I8) 7773 CONTINUE WRITE ( IWR, 92002)IDBBAS, IDBFRE, IDBDIR, INDBAS, INDCLR, INDCBP &, NBLOCK, LENALC, IOCODE, IFILEX, NAME, MAXALC &, MAXBLK, MAXDSK, IDBLEN, IDBADR, IBASBF, INDDIR &, NUMOPN, NUMCLS, NUMWRI, NUMREA, LENOPC 92002 FORMAT(/,' CONTENTS OF / DBM / FOLLOW:' &,/,' IDBBAS =',I8,' IDBFRE =',I8,' IDBDIR =',I8,' INDBAS =',I8 &,/,' INDCLR =',I8,' INDCBP =',I8,' NBLOCK =',I8,' LENALC =',I8 &,/,' IOCODE =',I8,' IFILEX =',I8,' NAME =',I8,' MAXALC =',I8 &,/,' MAXBLK =',I8,' MAXDSK =',I8,' IDBLEN =',I8,' IDBADR =',I8 &,/,' IBASBF =',I8,' INDDIR =',I8,' NUMOPN =',I8,' NUMCLS =',I8 &,/,' NUMWRI =',I8,' NUMREA =',I8,' LENOPC =',I8) IF ( IFLAG .GE. 118 .AND. IFLAG .LE. 120 ) GO TO 946 WRITE ( IWR, 95020 ) CALL DSHXDP ( NFILES, 16 ) WRITE ( IWR, 95030 ) CALL DSHXDP ( BLKSIZ, 1 ) WRITE ( IWR, 96000 ) CALL DSHXDP ( IEOR, 59 ) WRITE ( IWR, 97000 ) DO 944 I = 1, MAXPRI WRITE ( IWR, 97001 ) I, IFLPOS(1,I), IFLPOS(2,I) 97001 FORMAT(I5,2I10) 944 CONTINUE LOOP = (NBUFF+LENDSP) / 8 + 4 INDEX = INDBAS WRITE ( IWR, 94510 ) DO 945 I = 1, LOOP III = (I-1) * 8 + 1 CALL DSHXDD ( III, IBASE( INDEX ), 8 ) INDEX = INDEX + 8 945 CONTINUE CALL DBMDIA 946 IF ( IFLAG .NE. 777 ) GO TO 99999 C CALL TRBK( IWR ) RETURN 91000 FORMAT(' I/O ERROR #',I6,' ON FILE ',Z8,' NAME=',2A4,' UNIT=',I4) 92000 FORMAT(//' CONTENTS OF MDSFCB' ) 92001 FORMAT(//' CONTENTS OF FCB' ) 94510 FORMAT(//' CONTENTS OF I/O BUFFER' ) 95020 FORMAT(//' CONTENTS OF SOFCOM ') 95030 FORMAT(//' CONTENTS OF SYS ') 96000 FORMAT(//' CONTENTS OF /DSIO/') 97000 FORMAT(//' CONTENTS OF /DDIOSV/') 99999 CALL MESAGE (-61, 0, 0) 90000 CONTINUE RETURN 15 FORMAT( 40X, A6, 2A4, 2X, I2 ) 35 FORMAT( ' BUFFER CONFLICTS WITH EXISTING BUFFERS', * ' ON FILE ',2A4, ' LOGICAL UNIT', I4 ) 45 FORMAT(' ATTEMPT TO READ FILE OPENED FOR WRITE', * ' FILE=',2A4,' UNIT=',I4 ) 55 FORMAT(' FILE IS ALREADY OPENED-FILE ',2A4, * ' UNIT=', I4 ) 65 FORMAT(' ATTEMPT TO WRITE LESS THAN ONE WORD', * ' ON FILE ',2A4,' UNIT= ',I4 ) 75 FORMAT(' ATTEMPT TO WRITE ON FILE OPENED FOR READ ', * '-FILE=',2A4,' UNIT =',I4) 85 FORMAT(//,' ****** GINO SUBSYSTEM WILL EXTEND FILE ',2A4, * ' ON UNIT',I4,' TO UNIT',I4,' ******' ) 95 FORMAT(//,' INSUFFICIENT SPACE ALLOCATION ON FILE NPTP', * ' -, NUMBER OF BLOCKS WRITTEN WERE ',I10) 1015 FORMAT(' ERROR DURING I/O REQUEST - ERROR FLAG=',Z8) 1025 FORMAT(' INCORRECT BLOCK NUMBER ENCOUNTERED', * ' ON FILE ',2A4,' UNIT=',I4) 1035 FORMAT(' EXPECTED RH, SB, EF, OR EB CONTROL WORD', * ' ON FILE ',2A4,' UNIT=',I4) 1045 FORMAT(' EXPECTED RT CONTROL WORD ON FILE ',2A4, * ' UNIT=',I4) 1055 FORMAT(' EXPECTED RH OR EF CONTROL WORD ON FILE ',2A4, * ' UNIT=',I4) 1065 FORMAT(' EXPECTED RH, EB OR SB CONTROL WORD ON FILE ',2A4, * ' UNIT=',I4) 1075 FORMAT(' REFERENCE IS MADE TO FILE ',2A4, * ' THAT IS NOT OPENED-UNIT=',I4) 1085 FORMAT(' INSUFFICIENT SPACE FOR I/O CONTROL WORDS ON FILE ' * ,2A4,' UNIT=',I4) 1095 FORMAT(' TOO MANY TERMS WRITTEN TO STRING ON FILE ',2A4, * ' UNIT=',I4) 1105 FORMAT(' EXPECTED A SB OR EB CONTROL WORD ON FILE ',2A4, * ' UNIT=',I4) 1115 FORMAT(' EXPECTED A CH CONTROL WORD ON FILE ',2A4, * ' UNIT=',I4) 1125 FORMAT(' EXPECTED A SE, SD, CT, OR SH CONTROL WORD ON FILE ', * 2A4,' UNIT=',I4) 1135 FORMAT(' ERROR - CLR.GT. LCW ON FILE ',2A4, ' UNIT=',I4) 1145 FORMAT(' EXPECTED A RT CONTROL WORD ON FILE ',2A4, ' UNIT=',I4) 1155 FORMAT(' EXPECTED A CH CONTROL WORD ON FILE ',2A4,' UNIT=',I4) 1165 FORMAT(' EXPECTED A CH,ST,SH,SD,RT, OR SE CONTROL WORD ON FILE ', * 2A4,' UNIT=',I4) 1175 FORMAT(' EXPECTED A ST CONTROL WORD ON FILE ',2A4, ' UNIT=',I4) 1185 FORMAT(' TYPIN OR TYPOUT FOR MATRIX PACK IS OUT OF RANGE ON', * ' FILE ',2A4,' UNIT=',I4) 1195 FORMAT(' NON-ASCENDING ROW NUMBER GIVEN', * ' ON FILE ',2A4, ' UNIT=',I10) 1205 FORMAT(' FILE NAME DOES NOT MATCH STRING CONTROL BLOCK FOR ', * 'FILE ',2A4,' UNIT=',I4) 1215 FORMAT(' INVALID UNIT NUMBER IN MDSFCB FOR FILE ',2A4,' UNIT=',I4) 1225 FORMAT(' INSUFFICIENT NUMBER OF FILES AVAILABLE FOR FILE ', * 2A4,' UNIT=',I4) END ================================================ FILE: mds/dsmsg1.f ================================================ SUBROUTINE DSMSG1 ( BLOCK ) COMMON / ZBLPKX / A1(4), IROW1 COMMON / ZNTPKX / A2(4), IROW2, IEOL2, IEOR2 COMMON / PACKX / ITIN3, ITOUT3, IROW3, NROW3, INCR3 COMMON / UNPAKX / ITOUT4,IROW4, NROW4, INCR4 COMMON / SYSTEM / NONE, IWR INTEGER BLOCK(15) WRITE( IWR, 9000 ) WRITE( IWR, 9010 ) WRITE( IWR, 9015 ) BLOCK WRITE( IWR, 9020 ) WRITE( IWR, 9015 ) A1, IROW1 WRITE( IWR, 9030 ) WRITE( IWR, 9015 ) A2, IROW2, IEOL2, IEOR2 WRITE( IWR, 9040 ) WRITE( IWR, 9015 ) ITIN3, ITOUT3, IROW3, NROW3, INCR3 WRITE( IWR, 9050 ) WRITE( IWR, 9015 ) ITOUT4, IROW4, NROW4, INCR4 9000 FORMAT(' *** ERROR OCCURRED IN PAKUNPK I/O SUBSYSTEM ***') 9010 FORMAT(' CONTENTS OF THE STRING CONTROL BLOCK') 9015 FORMAT(10(5(1X,Z8),/)) 9020 FORMAT(' CONTENTS OF /ZBLPKX/') 9030 FORMAT(' CONTENTS OF /ZNTPKX/') 9040 FORMAT(' CONTENTS OF /PACKX/ ') 9050 FORMAT(' CONTENTS OF /UNPAKX/') RETURN END ================================================ FILE: mds/dsnmdd.f ================================================ SUBROUTINE DSNMDD INCLUDE 'DSIOF.COM' INCLUDE 'NASNAMES.COM' CHARACTER*12 FILNAM(100) C COMMON /SYSTEM/ SYSBUF, IWR C DATA FILNAM/'PUNCH','LINK' ,'LOG ' ,'RDICT ' , 'INPUT ' *,'OUTPUT ' , 'OPTP' ,'NPTP.ZAP' ,'XPDT.ZAP' , 'PLOT ' *,'UT1' , 'UT2' ,'UT3' ,'UT4' , 'UT5' *,'INPT' , 'INP1' ,'INP2' ,'INP3' , 'INP4' *,'INP5' , 'POOL.ZAP','SCR23.ZAP','SCR24.ZAP','SCR25.ZAP' *,'SCR26.ZAP','SCR27.ZAP','SCR28.ZAP','SCR29.ZAP','SCR30.ZAP' *,'SCR31.ZAP','SCR32.ZAP','SCR33.ZAP','SCR34.ZAP','SCR35.ZAP' *,'SCR36.ZAP','SCR37.ZAP','SCR38.ZAP','SCR39.ZAP','SCR40.ZAP' *,'SCR41.ZAP','SCR42.ZAP','SCR43.ZAP','SCR44.ZAP','SCR45.ZAP' *,'SCR46.ZAP','SCR47.ZAP','SCR48.ZAP','SCR49.ZAP','SCR50.ZAP' *,'SCR51.ZAP','SCR52.ZAP','SCR53.ZAP','SCR54.ZAP','SCR55.ZAP' *,'SCR56.ZAP','SCR57.ZAP','SCR58.ZAP','SCR59.ZAP','SCR60.ZAP' *,'SCR61.ZAP','SCR62.ZAP','SCR63.ZAP','SCR64.ZAP','SCR65.ZAP' *,'SCR66.ZAP','SCR67.ZAP','SCR68.ZAP','SCR69.ZAP','SCR70.ZAP' *,'SCR71.ZAP','SCR72.ZAP','SCR73.ZAP','SCR74.ZAP','SCR75.ZAP' *,'SCR76.ZAP','SCR77.ZAP','SCR78.ZAP','SCR79.ZAP','SCR80.ZAP' *,'SCR81.ZAP','SCR82.ZAP','SCR83.ZAP','SCR84.ZAP','SCR85.ZAP' *,'SCR86.ZAP','SCR87.ZAP','SCR88.ZAP','SCR89.ZAP','SCR90.ZAP' *,'SCR91.ZAP','SCR92.ZAP','SCR93.ZAP','SCR94.ZAP','SCR95.ZAP' *,'SCR96.ZAP','SCR97.ZAP','SCR98.ZAP','SCR99.ZAP','SCR00.ZAP'/ LENDIR = INDEX( DIRTRY, ' ' ) - 1 DO 15 K = 1, 21 MDSNAM( K ) = FILNAM(K) 15 CONTINUE MDSNAM( 8 ) = DIRTRY(1:LENDIR) // '/' // FILNAM( 8 ) MDSNAM( 9 ) = DIRTRY(1:LENDIR) // '/' // FILNAM( 9 ) DO 20 K = 22, MAXFCB MDSNAM( K ) = DIRTRY(1:LENDIR) // '/' // FILNAM( K ) 20 CONTINUE 700 RETURN END ================================================ FILE: mds/dsnmrd.f ================================================ SUBROUTINE DSNMRD (IUNITU) INCLUDE 'DSIOF.COM' COMMON /GNDATE/ IGNDAT(2) READ (IUNITU) FCB, NUMDEV, DEV, MDSNAM, IGNDAT, MAXBLK, MAXDSK READ (IUNITU) NUMOPN, NUMCLS, NUMWRI, NUMREA DO 10 I = 1, 80 FCB( 9, I ) = 0 FCB(10, I ) = 0 FCB(11, I ) = 0 10 CONTINUE RETURN END ================================================ FILE: mds/dsnmwr.f ================================================ SUBROUTINE DSNMWR (IUNITU) C C THIS SUBROUTINE IS CALLED BY ENDSYS C INCLUDE 'DSIOF.COM' COMMON /GNDATE/ IGNDAT(2) WRITE (IUNITU) FCB, NUMDEV, DEV, MDSNAM, IGNDAT,MAXBLK,MAXDSK WRITE (IUNITU) NUMOPN, NUMCLS, NUMWRI, NUMREA RETURN END ================================================ FILE: mds/dsocff.f ================================================ SUBROUTINE DSOCFF ( DSNAME, IUNIT, ISTATUS ) CHARACTER*72 DSNAME COMMON / SYSTEM / SYSBUF, IWR COMMON / MACHIN / MAC(3), LQRO INCLUDE 'DSIOF.COM' C OPEN AND CLOSE FILE IN ORDER TO DELETE SPACE OPEN ( UNIT=IUNIT, FILE=DSNAME , IOSTAT=ISTATUS, ERR=100 &, STATUS='UNKNOWN' ) 100 CLOSE ( UNIT=IUNIT, STATUS='DELETE', IOSTAT=ISTATUS, ERR=701 ) C NOW, OPEN FILE AS NEW FOR NASTRAN c print *,' dsocff,nbuff=',nbuff nbuff4 = nbuff * ( MOD(LQRO,100) / 10 ) OPEN ( UNIT=IUNIT, FILE=DSNAME, RECL=NBUFF4, STATUS='NEW' &, access='direct', form='unformatted',IOSTAT=ISTATUS &, ERR=702 ) GO TO 777 701 WRITE ( IWR, 901 ) IUNIT, ISTATUS, DSNAME 901 FORMAT(//,' FATAL ERROR IN DSOCFF, UNABLE TO CLOSE UNIT=',I4 &, ' STATUS='I4 &, /,' FILE NAME=',A72 ) ICCERR = ISTATUS CALL DSMSG ( 101 ) CALL MESAGE ( -61, 0, 0 ) 702 WRITE ( IWR, 902 ) IUNIT, ISTATUS, DSNAME 902 FORMAT(//,' FATAL ERROR IN DSOCFF, UNABLE TO OPEN UNIT=',I4 &, ' STATUS=',I4 &, /,' FILE NAME=',A72 ) ICCERR = ISTATUS CALL DSMSG ( 101 ) CALL MESAGE ( -61, 0, 0 ) 777 RETURN END ================================================ FILE: mds/dsopen.f ================================================ SUBROUTINE DSOPEN ( DSNAME, IUNIT, IOP ) CHARACTER*72 DSNAME INCLUDE 'DSIOF.COM' C print *,' dsopen,iunit,iop,dsname=',iunit,iop,dsname IF ( IOP .NE. 1 ) CALL DSOPFF ( DSNAME, IUNIT, ICCER ) IF ( IOP .EQ. 1 ) CALL DSOCFF ( DSNAME, IUNIT, ICCER ) NUMOPN = NUMOPN + 1 700 RETURN END ================================================ FILE: mds/dsopff.f ================================================ SUBROUTINE DSOPFF ( DSNAME, IUNIT, ISTATUS ) CHARACTER*72 DSNAME COMMON / SYSTEM / SYSBUF, IWR COMMON / MACHIN / MAC(3), LQRO INCLUDE 'DSIOF.COM' NBUFF4 = NBUFF * ( MOD(LQRO,100) / 10 ) OPEN ( UNIT=IUNIT, FILE=DSNAME, RECL=NBUFF4, FORM='UNFORMATTED' &, ACCESS='DIRECT', IOSTAT=ISTATUS, ERR=701 &, STATUS='UNKNOWN' ) GO TO 777 701 WRITE ( IWR, 901 ) IUNIT, ISTATUS, DSNAME 901 FORMAT(//,' FATAL ERROR IN DSOPFF, UNABLE TO OPEN UNIT=',I4 & ,' IOSTAT=',I5 & ,/,' FILE NAME=',A72 ) ICCERR = ISTATUS CALL DSMSG ( 101 ) CALL MESAGE ( -61, 0, 0 ) 777 RETURN END ================================================ FILE: mds/dsprcl.f ================================================ SUBROUTINE DSPRCL ( BLOCK ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER BLOCK( 15 ) INTEGER IDIV( 4 ) DATA IDIV / 1, 2, 1, 2 / BLOCK( 2 ) = IAND( IBASE( INDCBP ), MASKQ4 ) BLOCK( 3 ) = IAND( IBASE( INDCBP ), MASKQ3 ) BLOCK( 3 ) = BLOCK( 3 ) / MULQ3 BLOCK( 11 ) = NWRDEL( BLOCK( 2 ) ) BLOCK( 12 ) = IBASE( INDCBP+1 ) BLOCK( 14 ) = IDIV( BLOCK( 2 ) ) RETURN END ================================================ FILE: mds/dsrdmb.f ================================================ SUBROUTINE DSRDMB ( IDATA, M ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER IDATA(2) IRWORD = 0 10 LEN = IAND( IBASE( INDCLR ) , MASKH2 ) IF ( LEN .EQ. 0 ) GO TO 40 IDIFF = INDCBP - INDCLR IWORDS = LEN - IDIFF IREQ = IABS( NWORDS ) IF ( IREQ .GT. ( IWORDS+IRWORD ) ) GO TO 40 INUM = IREQ - IRWORD IF ( INUM .EQ. 0 ) GO TO 7000 IF ( NWORDS .LT. 0 ) GO TO 30 DO 20 K = 1, INUM IDATA( IRWORD+K ) = IBASE( INDCBP+K ) 20 CONTINUE 30 INDCBP = INDCBP + INUM GO TO 7000 40 ID = IAND( IBASE( INDCLR+LEN+1 ), MASKQ2 ) IF ( LEN .EQ. 0 ) GO TO 65 IF ( NWORDS .LT. 0 ) GO TO 60 DO 50 K = 1, IWORDS IDATA( IRWORD+K ) = IBASE( INDCBP+K ) 50 CONTINUE 60 IRWORD = IRWORD + IWORDS 65 IF ( ID .EQ. IDSC ) GO TO 70 CALL DSRDNB GO TO 10 70 IRETRN = 2 IEOR = 1 M = IRWORD 7000 RETURN END ================================================ FILE: mds/dsrdnb.f ================================================ SUBROUTINE DSRDNB INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' CALL DBMMGR( 5 ) NBLOCK = FCB( 4, IFILEX ) INDCLR = INDBAS + 5 INDCBP = INDCLR LCW = IBASE( INDBAS+4 ) IBLK = IBASE( INDBAS+3 ) IF ( IBLK .EQ. NBLOCK ) GO TO 10 CALL DSMSG ( 102 ) 10 RETURN END ================================================ FILE: mds/dsrdpb.f ================================================ SUBROUTINE DSRDPB INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' NBLOCK = NBLOCK - 1 CALL DBMMGR( 6 ) INDCLR = IBASE( INDBAS+4 ) + INDBAS - 1 INDCBP = INDCLR IBLK = IBASE( INDBAS+3 ) IF ( IBLK .EQ. NBLOCK ) GO TO 10 CALL DSMSG( 102 ) 10 RETURN END ================================================ FILE: mds/dsread.f ================================================ SUBROUTINE DSREAD ( IUNIT, BUFF, LEN, IREC ) INTEGER BUFF( LEN ) COMMON / SYSTEM / SYSBUF, IWR INCLUDE 'DSIOF.COM' IF ( IREC .LT. 0 ) GO TO 701 c PRINT *,' DSREAD,LEN,IREC,IUNIT=',LEN,IREC,IUNIT ISTAT=0 READ ( IUNIT, REC=IREC, ERR=702, IOSTAT=ISTAT ) & BUFF IF ( ISTAT .EQ. 0 ) GO TO 777 IOERR = ISTAT CALL DSMSG ( 101 ) CALL MESAGE ( -61, 0, 0 ) 701 WRITE ( IWR, 901 ) IUNIT, IREC, MDSNAM( IUNIT ) 901 FORMAT(//' ERROR IN DSREAD-BAD REC NO., UNIT=',I4,' REC=',I4 &, /,' FILE NAME=',A72) ICCERR = 0 CALL DSMSG ( 101 ) CALL MESAGE ( -61, 0, 0 ) GO TO 777 702 WRITE( IWR, 902 ) IUNIT, IREC, ISTAT, MDSNAM( IUNIT ) 902 FORMAT(//', ERROR ENCOUNTERED IN DSREAD, UNIT=',I5,' RECORD=' &, I5,' STATUS=',I9,/' DSNAME=',A72 ) ICCERR = ISTAT CALL DSMSG( 101 ) CALL MESAGE( -61, 0, 0 ) GO TO 777 777 CONTINUE NUMREA = NUMREA + 1 RETURN END ================================================ FILE: mds/dsrlse.f ================================================ SUBROUTINE DSRLSE INCLUDE 'DSIOF.COM' INCLUDE 'GINOX.COM' INEXT = IFILEX 10 NEXDSN = IAND( MDSFCB( 3,INEXT ), MASKH2 ) IF ( NEXDSN .EQ. 0 ) GO TO 20 MDSFCB( 1, INEXT ) = IAND( MDSFCB( 1,INEXT ), MASKH1 ) MDSFCB( 2, INEXT ) = 0 MDSFCB( 3, INEXT ) = 0 C C OPEN AND CLOSE FILE TO DELETE SPACE ALLOCATION C CALL DSOPEN ( MDSNAM(NEXDSN), NEXDSN, 1 ) CALL DSCLOS ( NEXDSN ) INEXT = NEXDSN GO TO 10 20 RETURN END ================================================ FILE: mds/dssdcb.f ================================================ SUBROUTINE DSSDCB INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' ICLR = INDCLR - INDBAS + 1 FCB( 3, IFILEX ) = ICLR FCB( 4, IFILEX ) = NBLOCK IBASE( INDBAS+1 ) = INDCBP - INDBAS + 1 IBASE( INDBAS+2 ) = ICLR LASNAM = NAME C WRITE(6,40646)IFILEX,NBLOCK,ICLR,INDBAS,INDCLR 40646 FORMAT(' DSSDCB,IFILEX,NBLOCK,ICLR,BAS,CLR=',I3,I5,6I7) RETURN END ================================================ FILE: mds/dssend.f ================================================ SUBROUTINE DSSEND ( FILE ) C C DSSEND (Dataset Set to End) will position a file to the end C to allow for closing a file for read and opening it for write C append. This eliminates having to read sequentially to the end C of the file before closing for read. C INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER FILE NAME = FILE CALL DSGEFL C C GET LAST BLOCK NUMBER IN THIS FILE FROM FCB C NBLOCK = FCB( 6, IFILEX ) C C GET CURRENT BLOCK NUMBER IN THIS FILE FROM FCB C ICBLK = FCB( 4, IFILEX ) IF ( ICBLK .EQ. NBLOCK ) GO TO 10 CALL DBMMGR( 6 ) 10 CONTINUE INDCLR = IBASE( INDBAS+4) + INDBAS - 1 INDCBP = INDCLR CALL DSSDCB RETURN END ================================================ FILE: mds/dssize.f ================================================ SUBROUTINE DSSIZE ( NAMFIL, NCOLS, NTERMS, NSTRGS, NWDTRM ) C C DSSIZE DETERMINES THE SIZE OF A GIVEN MATRIX FILE C NCOLS = NUMBER OF COLUMNS C NTERMS = TOTAL NUMBER OF NON-ZERO TERMS IN MATRIX C NSTRGS = TOTAL NUMBER OF STRINGS OF CONSECUTIVE TERMS IN MATRIX C NWDTRM = NUMBER OF WORDS PER TERM C INCLUDE 'DSIOF.COM' COMMON / ZZZZZZ / MEM( 4 ) INTEGER MCB(7) CALL GETURN( NAMFIL ) IF ( IFILEX .EQ. 0 ) GO TO 701 MCB( 1 ) = NAMFIL CALL RDTRL ( MCB ) NCOLS = MCB( 2 ) NSTRGS = FCB( 16, IFILEX ) NTERMS = FCB( 17, IFILEX ) NWDTRM = 2 IF ( MCB( 5 ) .EQ. 1 ) NWDTRM = 1 IF ( MCB( 5 ) .EQ. 4 ) NWDTRM = 4 GO TO 777 701 NTERMS = 0 NSTRGS = 0 NCOLS = 0 NWDTRM = 0 777 CONTINUE RETURN END ================================================ FILE: mds/dsskfb.f ================================================ SUBROUTINE DSSKFB( NN ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' N = NN 10 IF ( N .EQ. 0 ) GO TO 7000 20 CALL DSBRC1 ID = IAND( IBASE( INDCLR ), MASKQ1 ) IF ( ID .EQ. IDSEF ) GO TO 30 IF ( NBLOCK .NE. 1 ) GO TO 20 IF ( ( INDCLR-INDBAS ) .LE. 5 ) GO TO 7000 GO TO 20 30 N = N + 1 GO TO 10 7000 RETURN END ================================================ FILE: mds/dsskff.f ================================================ SUBROUTINE DSSKFF ( NN ) INCLUDE 'DSIOF.COM' N = NN 10 IF ( N .EQ. 0 ) GO TO 7000 20 CALL DSFWR1 IF ( IRETRN .EQ. 0 ) GO TO 20 N = N - 1 GO TO 10 7000 RETURN END ================================================ FILE: mds/dsskrc.f ================================================ SUBROUTINE DSSKRC INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' 10 ID = IAND( IBASE( INDCLR ), MASKQ1 ) IF ( ID .EQ. IDSRH ) GO TO 40 IF ( ID .EQ. IDSSB ) GO TO 40 IF ( ID .EQ. IDSEF ) GO TO 30 IF ( ID .EQ. IDSEB ) GO TO 20 CALL DSMSG ( 103 ) 20 CALL DSRDNB GO TO 10 30 INDCLR = INDCLR + 1 INDCBP = INDCLR GO TO 7000 40 LEN = IAND( IBASE( INDCLR ), MASKH2 ) ICLR = INDCLR + LEN + 1 ID = IAND( IBASE( ICLR ), MASKQ1 ) IF ( ID .EQ. IDSRT ) GO TO 50 CALL DSMSG ( 104 ) 50 IFLG = IAND( IBASE( ICLR ), MASKQ2 ) IF ( IFLG .EQ. IDSC ) GO TO 60 CALL DSRDNB GO TO 10 60 INDCLR = ICLR + 1 INDCBP = INDCLR 7000 RETURN END ================================================ FILE: mds/dsspos.f ================================================ SUBROUTINE DSSPOS( FILE, KCBLK, KCLR, KCBP ) C C DSSPOS REPOSITIONS THE "FILE" TO BLOCK "KCBLK" WITH THE CURRENT C LOGICAL RECORD POINTER SET TO "KCLR" AND THE CURRENT BUFFER C POINTER SET TO "KCBP" C INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER FILE NAME = FILE CALL DSGEFL ICBLK = FCB( 4, IFILEX ) IF ( ICBLK .EQ. KCBLK ) GO TO 10 NBLOCK = KCBLK CALL DBMMGR( 6 ) 10 CONTINUE INDCLR = KCLR + INDBAS - 1 INDCBP = KCBP + INDBAS - 1 CALL DSSDCB RETURN END ================================================ FILE: mds/dsupkc.f ================================================ SUBROUTINE DSUPKC ( ITIN, ITOUT, A, B ) COMMON / SYSTEM / ISYSBF, IWR REAL A(4), B(4), AA(4), BB(4) INTEGER NWORDS(4) REAL RS1, RS2 DOUBLE PRECISION RD1, RD2, RDI1, RDI2 EQUIVALENCE (AA,RS1,RD1), (BB,RS2,RD2) EQUIVALENCE ( AA(3), RDI1 ), ( BB(3), RDI2 ) DATA NWORDS / 1,2,2,4/ IWRD1 = NWORDS( ITIN ) IF ( ITIN .NE. ITOUT ) GO TO 20 CDIR$ NEXTSCALAR DO 10 K = 1, IWRD1 B( K ) = A( K ) 10 CONTINUE GO TO 7777 20 IF ( ITOUT .GT. 64 ) GO TO 30 ITOUT2 = ITOUT IWRD2 = NWORDS( ITOUT ) SSIGN = 1.0 GO TO 40 30 ITOUT2 = ITOUT - 64 IWRD2 = NWORDS( ITOUT2 ) SSIGN = -1.0 CDIR$ NEXTSCALAR 40 DO 50 K = 1, IWRD1 AA( K ) = A( K ) 50 CONTINUE GO TO ( 1000, 2000, 3000, 4000 ), ITIN 1000 GO TO ( 1100, 1200, 1300, 1400 ), ITOUT2 1100 RS2 = SSIGN * RS1 GO TO 7000 1200 RD2 = SSIGN * RS1 GO TO 7000 1300 BB( 1 ) = SSIGN * RS1 BB( 2 ) = 0. GO TO 7000 1400 RD2 = SSIGN * RS1 RDI2 = 0. GO TO 7000 2000 GO TO ( 2100, 2200, 2300, 2400 ), ITOUT2 2100 RS2 = SSIGN * RD1 GO TO 7000 2200 RD2 = SSIGN * RD1 GO TO 7000 2300 BB( 1 ) = SSIGN * RD1 BB( 2 ) = 0. GO TO 7000 2400 RD2 = SSIGN * RD1 RDI2 = 0. GO TO 7000 3000 GO TO ( 3100, 3200, 3300, 3400 ), ITOUT2 3100 RS2 = SSIGN * AA( 1 ) GO TO 7000 3200 RD2 = SSIGN * AA( 1 ) GO TO 7000 3300 BB( 1 ) = SSIGN * AA( 1 ) BB( 2 ) = SSIGN * AA( 2 ) GO TO 7000 3400 RD2 = SSIGN * AA( 1 ) RDI2 = SSIGN * AA( 2 ) GO TO 7000 4000 GO TO ( 4100, 4200, 4300, 4400 ), ITOUT2 4100 RS2 = SSIGN * RD1 GO TO 7000 4200 RD2 = SSIGN * RD1 GO TO 7000 4300 BB( 1 ) = SSIGN * RD1 BB( 2 ) = SSIGN * RDI1 GO TO 7000 4400 RD2 = SSIGN * RD1 RDI2 = SSIGN * RDI1 GO TO 7000 CDIR$ NEXTSCALAR 7000 DO 7200 K = 1, IWRD2 B( K ) = BB( K ) 7200 CONTINUE 7777 RETURN END ================================================ FILE: mds/dswrit.f ================================================ SUBROUTINE DSWRIT ( IUNIT, BUFF, LEN, IREC, ICCERR ) INTEGER BUFF( LEN ) COMMON / SYSTEM / SYSBUF, IWR INCLUDE 'DSIOF.COM' c print *,' dswrit,len,IREC,UNIT=',len,irec,iunit IF ( IREC .LE. 0 ) GO TO 701 WRITE ( IUNIT, REC=IREC, IOSTAT=ISTAT, ERR=702 ) BUFF ICCERR = 0 GO TO 777 701 WRITE( IWR, 901 ) IUNIT, IREC, MDSNAM( IUNIT ) 901 FORMAT(//' ERROR IN DSWRIT, BAD RECORD NO., UNIT=',I4,' REC=',I5 &, /,' FILE NAME=',A72 ) ICCERR = ISTAT CALL DSMSG ( 101 ) CALL MESAGE ( -61, 0, 0 ) 702 WRITE( IWR, 902 ) IUNIT, IREC, ISTAT, MDSNAM( IUNIT ) 902 FORMAT(//', ERROR ENCOUNTERED IN DSWRCC, UNIT=',I5,' RECORD=' &, I5,' STATUS=',I9,/' DSNAME=',A72 ) ICCERR = ISTAT CALL DSMSG ( 101 ) CALL MESAGE ( -61, 0, 0 ) 777 CONTINUE NUMWRI = NUMWRI + 1 RETURN END ================================================ FILE: mds/dswrnb.f ================================================ SUBROUTINE DSWRNB INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' IBASE( INDBAS+4 ) = INDCLR - INDBAS + 1 CALL DBMMGR( 4 ) NBLOCK = FCB( 4, IFILEX ) INDCLR = INDBAS + 5 IBASE( INDBAS+3 ) = NBLOCK INDCBP = INDCLR RETURN END ================================================ FILE: mds/dswrt1.f ================================================ SUBROUTINE DSWRT1 ( IDATA ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER IDATA( 2 ) INEXT = 0 IF ( LWORDS .LE. -1 ) GO TO 50 IF ( NBLOCK .EQ. IBLOCK ) GO TO 10 IFLG = IDSX GO TO 20 10 IFLG = IDSP 20 IF ( LWORDS .LE. 0 ) GO TO 40 ICOUNT = IAND( IBASE( INDCLR ), MASKH2 ) IBASE( INDCLR ) = IDSRH + IFLG + ICOUNT + LWORDS DO 30 I = 1, LWORDS IBASE( INDCBP + I ) = IDATA( I ) 30 CONTINUE INDCBP = INDCBP + LWORDS + 1 IBASE( INDCBP ) = IDSRT + IFLG + ( INDCLR-INDBAS+1 ) INDCLR = INDCBP + 1 IBASE( INDCBP+1 ) = IDSEB IFLG = IDSX GO TO 60 40 IBASE( INDCLR ) = IAND( IBASE( INDCLR ), NOT( MASKQ2 ) ) IBASE( INDCLR ) = IOR( IFLG, IBASE( INDCLR ) ) IBASE( INDCBP+1 ) = IDSRT + IFLG + ( INDCLR-INDBAS+1 ) IBASE( INDCBP+2 ) = IDSEB LWORDS = 0 INDCLR = INDCBP + 2 INDCBP = INDCLR IFLG = IDSX GO TO 60 50 IBASE( INDCLR ) = IDSEB LWORDS = 0 IFLG = IDSX IF ( IBLOCK .EQ. NBLOCK ) IFLG = IDSC 60 CALL DSWRNB IRWORDS = NWORDS - LWORDS INEXT = INEXT + LWORDS 70 IF ( IRWORDS .GT. ( NBUFF-5 ) ) GO TO 80 IFIN = 1 NWORDS = IRWORDS GO TO 90 80 IFIN = 0 IF ( IFLG .EQ. IDSC ) IFLG = IDSP NWORDS = NBUFF - 5 90 IBASE( INDCLR ) = IDSRH + IFLG + NWORDS DO 100 I = 1, NWORDS IBASE( INDCBP+I ) = IDATA( INEXT+I ) 100 CONTINUE INDCBP = INDCBP + NWORDS IF ( IFIN .EQ. 1 ) GO TO 110 INEXT = INEXT + NWORDS IBASE( INDCBP+1 ) = IDSRT + IFLG + ( INDCLR-INDBAS+1 ) IBASE( INDCBP+2 ) = IDSEB IRWORDS = IRWORDS - NWORDS IFLG = IDSX INDCLR = INDCLR + NWORDS + 2 CALL DSWRNB GO TO 70 110 IF ( IEOR .EQ. 0 ) GO TO 120 IBASE( INDCBP+1 ) = IDSRT + IDSC + ( INDCLR-INDBAS+1 ) INDCLR = INDCBP + 2 INDCBP = INDCLR 120 RETURN END ================================================ FILE: mds/dsxfsz.f ================================================ SUBROUTINE DSXFSZ INCLUDE 'DSIOF.COM' INCLUDE 'GINOX.COM' COMMON / XFIST / LFIST, NFIST, IFIST( 100 ) COMMON / XFIAT / IFIAT( 643 ) COMMON / ZZZZZZ/ MEM(2) IDSN = IFILEX NUN = 0 ITOTAL = 0 10 LASBLK = FCB( 6,IDSN ) IFRBLK = FCB( 5,IDSN ) NUMBLK = LASBLK - IFRBLK + 1 IF ( IDSN .EQ. IFILEX ) GO TO 20 NUN = NUN + 1 ITOTAL = ITOTAL + NUMBLK GO TO 40 20 IPBLKS = NUMBLK IF ( FCB( 10, IFILEX ) .EQ. 0 ) GO TO 40 INDEX = FCB( 10, IFILEX ) LBLOCK = MEM( INDEX+3 ) IPBLKS = IPBLKS + LBLOCK 40 IDSN = IAND( MDSFCB( 3,IDSN ), MASKH2 ) IF ( IDSN .NE. 0 ) GO TO 10 LIM = 2 * NFIST DO 50 I = 1,LIM,2 IF ( NAME .NE. IFIST( I ) ) GO TO 50 IF ( IFIST( I+1 ) .LE. 0 ) GO TO 70 INDX = IFIST( I+1 ) IFIAT( INDX+7 ) = IPBLKS * 2**16 + NUN * 2**8 IFIAT( INDX+8 ) = ITOTAL * 2**16 GO TO 70 50 CONTINUE 70 CONTINUE MAXUSM = 0 MAXUSD = 0 C ACCUMULATE TOTAL I/O USAGE STATISTICS DO 100 I = 1, 80 IF ( I .EQ. 7 ) GO TO 100 ITOTL1 = 0 ITOTL2 = 0 IF ( FCB( 4, I ) .EQ. 0 ) GO TO 100 NEXBLK = FCB( 10, I ) IF ( NEXBLK .NE. 0 ) ITOTL1 = MEM( NEXBLK+3 ) IF ( FCB( 5, I ) .NE. 0 ) & ITOTL2 = FCB( 6, I ) - FCB( 5, I ) + 1 MAXUSM = MAXUSM + ITOTL1 MAXUSD = MAXUSD + ITOTL2 100 CONTINUE IF ( MAXBLK .LT. MAXUSM ) MAXBLK = MAXUSM IF ( MAXDSK .LT. MAXUSD ) MAXDSK = MAXUSD RETURN END ================================================ FILE: mds/dszbkk.f ================================================ SUBROUTINE DSZBKK ( BLOCK, A ) INTEGER BLOCK(15), A(4) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' ITYPIN = BLOCK( 13 ) NWORDS = NWRDEL( ITYPIN ) IF ( BLOCK( 2 ) .GE. 3 ) GO TO 5 INCCNT = 1 GO TO 8 5 INCCNT = 2 8 CONTINUE DO 10 K = 1, NWORDS IF ( A( K ) .NE. 0 ) GO TO 20 10 CONTINUE GO TO 7000 20 IF ( BLOCK( 4 ) .EQ. 0 ) GO TO 35 NEXROW = BLOCK( 4 ) + BLOCK( 7 ) ICROW = BLOCK( 15 ) IF ( ICROW .GE. NEXROW ) GO TO 30 CALL DSMSG1( BLOCK ) CALL DSMSG( 119 ) 30 IF ( ICROW .EQ. NEXROW ) GO TO 40 CALL ENDPUT( BLOCK ) CALL PUTSTR( BLOCK ) BLOCK( 7 ) = 0 35 ICROW = BLOCK( 15 ) BLOCK( 4 ) = ICROW 40 INDEX = ( BLOCK( 5 ) - 1 ) * BLOCK( 14 ) + 1 CALL DSUPKC ( ITYPIN, BLOCK( 2 ), A, IBASE( INDEX ) ) BLOCK( 5 ) = BLOCK( 5 ) + INCCNT BLOCK( 7 ) = BLOCK( 7 ) + 1 BLOCK(10 ) = BLOCK(10 ) + BLOCK( 11 ) IF ( BLOCK( 6 ) .GT. BLOCK( 7 ) ) GO TO 7000 CALL ENDPUT( BLOCK ) CALL PUTSTR( BLOCK ) BLOCK( 4 ) = 0 BLOCK( 7 ) = 0 7000 RETURN END ================================================ FILE: mds/dummy.f ================================================ SUBROUTINE DUMMY C C NOTE: C THIS DUMMY.MIS ROUTINE CONTAINS 4 MACHINE VERSIONS (IBM,CDC,VAX, C AND UNIVAC). MOVE THIS SUBROUTINE TO THE MDS GROUP AND C REPLACE ALL THE 'C+' BY 2 SPACES IF MACHINE IS IBM, OR C REPLACE ALL THE 'C-' BY 2 SPACES IF MACHINE IS CDC, OR C REPLACE ALL THE 'C=' BY 2 SPACES IF MACHINE IS VAX, AND UNIX, OR C REPLACE ALL THE 'C*' BY 2 SPACES IF MACHINE IS UNIVAC C REPLACE ALL THE 'C.' BY 2 SPACES IF MACHINE TYPE IS 1, AND 11-20 C C **** C IBM VERSION C C THIS SUBROUTINE PROVIDES ENTRIES FOR THE DUMMY ROUTINES C USED BY OTHER COMPUTER MACHINES, AND ARE REFERENCED IN C VARIOUS NASTRAN LINKS C C THIS SUBROUTINE INCLUDES ALSO SOME DUMMY ROUTINES NOT YET C WRITTEN C C THIS ROUTINE SHOULD BE MOVED TO NASTRAN MACHINE-DEPENDENT C SECTION (MDS) C **** C C+ DIMENSION N(1) C+ CHARACTER*8 NAME C C+ COMMON /MACHIN/ MACH C+ COMMON /SYSTEM/ ISYSBF, NOUT C C+ IF (MACH .EQ. 2) GO TO 250 C+ WRITE (NOUT,20) MACH C+ 20 FORMAT (/,' MACH =',I7) C+ NAME = 'DUMMY' C+ GO TO 100 C C **** C ROUTINES USED ONLY IN UNIVAC MACHINE C **** C C C+ ENTRY NTRAN (I,J,K) C+ NAME = 'NTRAN' C+ GO TO 100 C C+ ENTRY CONTIN C+ NAME = 'CONTIN' C+ GO TO 100 C C+ ENTRY FACIL (I,J) C+ NAME = 'FACIL' C+ GO TO 100 C C+ ENTRY FACSF (I) C+ NAME = 'FACSF' C+ GO TO 100 C C+ ENTRY UNVOPN (I) C+ NAME = 'UNVOPN' C+ GO TO 100 C C+ ENTRY UNVCLS (I) C+ NAME = 'UNVCLS' C+ GO TO 100 C C+ ENTRY ADDCRD (I,J) C+ NAME = 'ADDCRD' C+ GO TO 100 C C **** C ROUTINES USED BY UNIVAC AND IBM C **** C C ENTRY RETURN C GO TO 250 C C+ ENTRY MSGUNI C+ IF (MACH .EQ. 2) GO TO 250 C+ NAME = 'MSGUNI' C+ GO TO 100 C C+ ENTRY XEOT (I,J,K,L) C+ IF (MACH .EQ. 2) GO TO 250 C+ NAME = 'XEOT' C+ GO TO 100 C C ENTRY TPSWIT (I,J,K,L) C NAME = 'TPSWIT' C GO TO 100 C C **** C ROUTINES USED ONLY IN IBM MACHINE C **** C C ENTRY UMFTRN (I) C NAME = 'UMFTRN' C GO TO 100 C C ENTRY TAPSWI (I,J,K,L) C NAME = 'TAPSWI' C GO TO 100 C C ENTRY SOFIOI C NAME = 'SOFIOI' C GO TO 100 C C ENTRY SEARCH (I) C NAME = 'SEARCH' C GO TO 100 C C ... NEXT THREE ARE SYSTEM ROUTINES THAT OPEN FILE DYNAMICALLY WITHOUT C THE USE OF JCL. THESE ROUTINES ARE COMMONLY 'LOCAL INSTALLED'. C C IQADDN CHECKS WHETHER A FILE EXISTS OR NOT C QQDCBF BUILDS AN ATTRIBUTE LIST BY DDNAME C QQGETF ALLOCATES FILE IN TSO OR BATCH C C ENTRY IQZDDN (I) C NAME = 'IQZDDN' C GO TO 100 C C ENTRY QQDCBF (I,J,K,L,M,N) C NAME = 'QQDCBF' C GO TO 100 C C ENTRY QQGETF (I,J,K) C NAME = 'QQGETF' C GO TO 100 C C **** C ROUTINE USED ONLY BY IBM AND VAX C **** C C ENTRY SOFIOF C NAME = 'SOFIOF' C GO TO 100 C C THE FOLLOWING THREE ARE FUNCTIONS FOR QUAD WORD OPERATIONS C (REAL*16) C ENTRY QABS (I) C NAME = 'QABS' C GO TO 100 C C ENTRY SNGLQ (I) C NAME = 'SNGLQ' C GO TO 100 C C ENTRY DBLEQ (I) C NAME = 'DBLEQ' C GO TO 100 C C ENTRY QSQRT (I) C NAME = 'QSQRT' C GO TO 100 C C ENTRY QLOG (I) C NAME = 'QLOG' C GO TO 100 C C ENTRY QEXTD (I) C NAME = 'QEXTD' C GO TO 100 C C **** C ROUTINE USED BY UNIVAC AND VAX C **** C C+ ENTRY DEFCOR C+ NAME = 'DEFCOR' C+ GO TO 100 C C **** C ROUTINES USED BY ALL MACHINES, EXCEPT VAX C **** C C ENTRY GPERR C NAME = 'GPERR' C GO TO 100 C C ENTRY PDUMP C GO TO 250 C C ENTRY MPY1 C NAME = 'MPY1' C GO TO 100 C C ENTRY MPY2NT C NAME = 'MPY2NT' C GO TO 100 C C ENTRY MPY2T C NAME = 'MPY2T' C GO TO 100 C C **** C ROUTINES USED ONLY IN CDC MACHINE C **** C C+ ENTRY LINK (I,J,K) C+ NAME = 'LINK' C+ GO TO 100 C C+ ENTRY REMARK (I) C+ NAME = 'REMARK' C+ GO TO 100 C C+ ENTRY CDCBUG (I,J,K,L) C+ NAME = 'CDCBUG' C+ GO TO 100 C C+ ENTRY CDCOPN (I) C+ NAME = 'CDCOPN' C+ GO TO 100 C C+ ENTRY CDCCLS (I) C+ NAME = 'CDCCLS' C+ GO TO 100 C C+ ENTRY CDCKSZ (I) C+ NAME = 'CDCKSZ' C+ GO TO 100 C C+ ENTRY PF (I,J,K) C+ NAME = 'PF' C+ GO TO 100 C C+ ENTRY ISWAP (I) C+ NAME = 'ISWAP' C+ GO TO 100 C C **** C ROUTINES USED ONLY IN VAX MACHINE C **** C C+ ENTRY VAXEND C+ NAME = 'VAXEND' C+ GO TO 100 C C+ ENTRY VAXERR (L) C+ WRITE (NOUT,50) L C+ 50 FORMAT (/,' *** GINO ERROR AT LOC',I5) C+ GO TO 220 C C+ ENTRY VAXSCH C+ NAME = 'VAXSCH' C+ GO TO 100 C C+ ENTRY VAXBRK C+ NAME = 'VAXBRK' C+ GO TO 100 C C+ ENTRY MPY1V (I,J,K) C+ NAME = 'MPY1V' C+ GO TO 100 C C+ ENTRY MPY2NV (I,J,K) C+ NAME = 'MPY2NV' C+ GO TO 100 C C+ ENTRY MPY2TV (I,J,K) C+ NAME = 'MPY2TV' C+ GO TO 100 C C **** C ROUTINES THAT PERFORM NO PARTICULAR FUNCTIONS, BUT THEY C ARE STILL CALLED BY NASTRAN C **** C C+ ENTRY UNLOAD (I) C CALLED BY INPTT1 C+ GO TO 250 C C **** C THE FOLLOWING ROUTINES SEEM TO BE NO LONGER USED IN NASTRAN C **** C C+ ENTRY JIDINT (I) C+ NAME = 'JIDINT' C+ GO TO 100 C C+ ENTRY OPMESG C+ NAME = 'OPMESG' C+ GO TO 100 C C ENTRY PDUM1,PDUM2,...,PDUM9 HAD BEEN REPLACED BY PDUMI C ENTRY QDMM3, SQDM31, AND SQDM32 ARE NOW OBSOLETE C C+ ENTRY SEMTRN C+ NAME = 'SEMTRN' C+ GO TO 100 C C **** C DUMMY ROUTINES REFERENCED ONLY IN LINK 2, ALL MACHINES C **** C C+ ENTRY PDUMI (*,*,*,I,J,K,L,M,N,O) C+ NAME = 'PDUMI' C+ GO TO 100 C C **** C DUMMY ROUTINES REFERENCED ONLY IN LINK 5, ALL MACHINES C **** C C+ ENTRY PLBAR1 (I,J) C+ NAME = 'PLBAR1' C+ GO TO 100 C C+ ENTRY PLOADX C+ NAME = 'PLOADX' C+ GO TO 100 C C+ ENTRY ERRTRC (NAM) C ================== C ERROR TRACEBACK C C+ GO TO 220 C C+100 WRITE (NOUT,150) NAME C+150 FORMAT ('0*** SYSTEM FATAL ERROR --- JOB TERMINATED', C+ 1 ' DUE TO CALL TO DUMMY SUBROUTINE. ENTRY NAME IS ', A8) C+ GO TO 220 C C **** C TO FORCE A SYSTEM FATAL ERROR FOR TRACEBACK C **** C C+220 WRITE (NOUT,230) C+230 FORMAT ('0*** ERROR TRACEBACK IN SYSTEM LOG FILE') C+ I = 987654321 C+ N(I) = 1 C+250 RETURN C C C SUBROUTINE DUMMY C C **** C CDC VERSION C C THIS SUBROUTINE PROVIDES ENTRIES FOR THE DUMMY ROUTINES C USED BY OTHER COMPUTER MACHINES, AND ARE REFERENCED IN C VARIOUS NASTRAN LINKS C C THIS SUBROUTINE INCLUDES ALSO SOME DUMMY ROUTINES NOT YET C WRITTEN C C THIS ROUTINE SHOULD BE MOVED TO NASTRAN MACHINE-DEPENDENT C SECTION (MDS) C **** C C- CHARACTER*8 NAME C C- COMMON /MACHIN/ MACH C- COMMON /SYSTEM/ ISYSBF, NOUT C C- IF (MACH .EQ. 4) GO TO 250 C- WRITE (NOUT,20) MACH C- 20 FORMAT (/,' MACH =',I7) C- NAME = 'DUMMY' C- GO TO 100 C C **** C ROUTINES USED ONLY IN UNIVAC MACHINE C **** C C- ENTRY NTRAN (I,J,K) C- NAME = 'NTRAN' C- GO TO 100 C C- ENTRY CONTIN C- NAME = 'CONTIN' C- GO TO 100 C C- ENTRY FACIL (I,J) C- NAME = 'FACIL' C- GO TO 100 C C- ENTRY FACSF (I) C- NAME = 'FACSF' C- GO TO 100 C C- ENTRY UNVOPN (I) C- NAME = 'UNVOPN' C- GO TO 100 C C- ENTRY UNVCLS (I) C- NAME = 'UNVCLS' C- GO TO 100 C C- ENTRY ADDCRD (I,J) C- NAME = 'ADDCRD' C- GO TO 100 C C **** C ROUTINES USED BY UNIVAC AND IBM C **** C C- ENTRY RETURN C- GO TO 250 C C- ENTRY MSGUNI C- IF (MACH .EQ. 2) GO TO 250 C- NAME = 'MSGUNI' C- GO TO 100 C C- ENTRY XEOT (I,J,K,L) C- IF (MACH .EQ. 2) GO TO 250 C- NAME = 'XEOT' C- GO TO 100 C C- ENTRY TPSWIT (I,J,K,L) C- NAME = 'TPSWIT' C- GO TO 100 C C **** C ROUTINES USED ONLY IN IBM MACHINE C **** C C- ENTRY UMFTRN (I) C- NAME = 'UMFTRN' C- GO TO 100 C C- ENTRY TAPWSI (I,J,K,L) C- NAME = 'TAPSWI' C- GO TO 100 C C- ENTRY SEARCH (I) C- NAME = 'SEARCH' C- GO TO 100 C C- ENTRY SOFIOI C- NAME = 'SOFIOI' C- GO TO 100 C C- ENTRY IQZDDN (I) C- NAME = 'IQZDDN' C- GO TO 100 C C- ENTRY QQDCBF (I,J,K,L,M,N) C- NAME = 'QQDCBF' C- GO TO 100 C C- ENTRY QQGETF (I,J,K) C- NAME = 'QQGETF' C- GO TO 100 C C **** C ROUTINE USED ONLY BY IBM AND VAX C **** C C- ENTRY SOFIOF C- NAME = 'SOFIOF' C- GO TO 100 C C THE FOLLOWING THREE ARE FUNCTIONS FOR QUAD WORD OPERATIONS C (REAL*16) C- ENTRY QABS (I) C- NAME = 'QABS' C- GO TO 100 C C- ENTRY SNGLQ (I) C- NAME = 'SNGLQ' C- GO TO 100 C C- ENTRY DBLEQ (I) C- NAME = 'DBLEQ' C- GO TO 100 C C- ENTRY QSQRT (I) C- NAME = 'QSQRT' C- GO TO 100 C C- ENTRY QLOG (I) C- NAME = 'QLOG' C- GO TO 100 C C- ENTRY QEXTD (I) C- NAME = 'QEXTD' C- GO TO 100 C C **** C ROUTINE USED BY UNIVAC AND VAX C **** C C- ENTRY DEFCOR C- NAME = 'DEFCOR' C- GO TO 100 C C **** C ROUTINES USEDS BY ALL MACHINES, EXCEPT VAX C **** C C ENTRY GPERR (I,J) C NAME = 'GPERR' C GO TO 100 C C ENTRY PDUMP C NAME = 'PDUMP' C GO TO 250 C C ENTRY MPY1 C NAME = 'MPY1' C GO TO 100 C C ENTRY MPY2NT C NAME = 'MPY2NT' C GO TO 100 C C ENTRY MPY2T C NAME = 'MPY2T' C GO TO 100 C C **** C ROUTINES USED ONLY IN CDC MACHINE C **** C C ENTRY LINK (I,J,K) C NAME = 'LINK' C GO TO 100 C C ENTRY REMARK (I) C NAME = 'REMARK' C GO TO 100 C C ENTRY CDCBUG (I,J,K,L) C NAME = 'CDCBUG' C GO TO 100 C C ENTRY CDCOPN (I) C NAME = 'CDCOPN' C GO TO 100 C C ENTRY CDCCLS (I) C NAME = 'CDCCLS' C GO TO 100 C C ENTRY PF (I,J,K) C NAME = 'PF' C GO TO 100 C C ENTRY ISWAP (I) C NAME = 'ISWAP' C GO TO 100 C C- ENTRY CDCKSZ (I) C- ENCODE (20,30,A) I C- 30 FORMAT ('OPEN CORE =',I7,2X) C- CALL REMARK (A) C- GO TO 250 C C **** C ROUTINES USED ONLY IN VAX MACHINE C **** C C- ENTRY VAXEND C- NAME = 'VAXEND' C- GO TO 100 C C- ENTRY VAXERR (L) C- WRITE (NOUT,50) L C- 50 FORMAT (/,' *** GINO ERROR AT LOC',I5) C- GO TO 220 C C- ENTRY VAXSCH C- NAME = 'VAXSCH' C- GO TO 100 C C- ENTRY VAXBRK C- NAME = 'VAXBRK' C- GO TO 100 C C- ENTRY MPY1V (I,J,K) C- NAME = 'MPY1V' C- GO TO 100 C C- ENTRY MPY2NV (I,J,K) C- NAME = 'MPY2NV' C- GO TO 100 C C- ENTRY MPY2TV (I,J,K) C- NAME = 'MPY2TV' C- GO TO 100 C C **** C ROUTINES THAT PERFORM NO PARTICULAR FUNCTIONS, BUT THEY C ARE STILL CALLED BY NASTRAN C **** C C- ENTRY UNLOAD (I) C CALLED BY INPTT1 C- GO TO 250 C C **** C THE FOLLOWING ROUTINES SEEM TO BE NO LONGER USED IN NASTRAN C **** C C- ENTRY JIDINT (I) C- NAME = 'JIDINT' C- GO TO 100 C C- ENTRY OPMESG C- NAME = 'OPMESG' C- GO TO 100 C C ENTRY PDUM1,PDUM2,...,PDUM9 HAD BEEN REPLACED BY PDUMI C ENTRY QDMM3, SQDM31, AND SQDM32 ARE NOW OBSOLETE C C- ENTRY SEMTRN C- NAME = 'SEMTRN' C- GO TO 100 C C **** C DUMMY ROUTINES REFERENCED ONLY IN LINK 2, ALL MACHINES C **** C C- ENTRY PDUMI (*,*,*,I,J,K,L,M,N,O) C- NAME = 'PDUMI' C- GO TO 100 C C **** C DUMMY ROUTINES REFERENCED ONLY IN LINK 5, ALL MACHINES C **** C C- ENTRY PLBAR1 (I,J) C- NAME = 'PLBAR1' C- GO TO 100 C C- ENTRY PLOADX C- NAME = 'PLOADX' C- GO TO 100 C C- ENTRY ERRTRC (NAM) C ================== C ERROR TRACEBACK C C- GO TO 220 C C-100 WRITE (NOUT,150) NAME C-150 FORMAT ('0*** SYSTEM FATAL ERROR --- JOB TERMINATED', C- 1 ' DUE TO CALL TO DUMMY SUBROUTINE. ENTRY NAME IS ', A8) C- GO TO 220 C C **** C TO FORCE A SYSTEM FATAL ERROR FOR TRACEBACK C **** C C-220 WRITE (NOUT,230) C-230 FORMAT ('0*** ERROR TRACEBACK IN SYSTEM LOG FILE') C- I =-3 C- READ (I) J,K,M,N,O C-250 RETURN C C C SUBROUTINE DUMMY C C **** C VAX VERSION (MODIFIED FOR DEC/ULTRIX) C C THIS SUBROUTINE PROVIDES ENTRIES FOR THE DUMMY ROUTINES C USED BY OTHER COMPUTER MACHINES, AND ARE REFERENCED IN C VARIOUS NASTRAN LINKS C C THIS SUBROUTINE INCLUDES ALSO SOME DUMMY ROUTINES NOT YET C WRITTEN C C THIS ROUTINE SHOULD BE MOVED TO NASTRAN MACHINE-DEPENDENT C SECTION (MDS) C **** C DIMENSION N(1) CHARACTER*8 NAME C COMMON /MACHIN/ MACH COMMON /SYSTEM/ ISYSBF, NOUT C IF (MACH .EQ. 6) GO TO 250 WRITE (NOUT,20) MACH 20 FORMAT (/,' MACH =',I7) NAME = 'DUMMY' GO TO 100 C C **** C ROUTINES USED ONLY IN UNIVAC MACHINE C **** C ENTRY ZCORSZ (I) NAME = 'ZCORSZ' GO TO 100 C ENTRY MVBITS (I1,I2,I3,I4,I5) NAME = 'MVBITS' GO TO 100 C ENTRY CODKEY (CODE,KEY) NAME = 'CODKEY' GO TO 100 C ENTRY KCONEQ NAME = 'KCONEQ' GO TO 100 C ENTRY FNXTVQ (V1,V2,V3,V4,V5,ZB,I) NAME = 'FNXTVQ' GO TO 100 C ENTRY NTRAN (I,J,K) NAME = 'NTRAN' GO TO 100 C ENTRY CONTIN NAME = 'CONTIN' GO TO 100 C ENTRY FACIL (I,J) NAME = 'FACIL' GO TO 100 C ENTRY FACSF (I) NAME = 'FACSF' GO TO 100 C ENTRY UNVOPN (I) NAME = 'UNVOPN' GO TO 100 C ENTRY UNVCLS (I) NAME = 'UNVCLS' GO TO 100 C ENTRY ADDCRD (I,J) NAME = 'ADDCRD' GO TO 100 C C **** C ROUTINES USED BY UNIVAC AND IBM C **** C ENTRY RETURN GO TO 250 C ENTRY MSGUNI IF (MACH .EQ. 2) GO TO 250 NAME = 'MSGUNI' GO TO 100 C ENTRY XEOT (I,J,K,L) IF (MACH .EQ. 2) GO TO 250 NAME = 'XEOT' GO TO 100 C ENTRY TPSWIT (I,J,K,L) NAME = 'TPSWIT' GO TO 100 C C **** C ROUTINES USED ONLY IN IBM MACHINE C **** C ENTRY UMFTRN (I) NAME = 'UMFTRN' GO TO 100 C ENTRY TAPSWI (I,J,K,L) NAME = 'TAPSWI' GO TO 100 C ENTRY SEARCH (I) NAME = 'SEARCH' GO TO 100 C ENTRY SOFIOI NAME = 'SOFIOI' GO TO 100 C ENTRY IQZDDN (I) NAME = 'IQZDDN' GO TO 100 C ENTRY QQDCBF (I,J,K,L,M,N) NAME = 'QQDCBF' GO TO 100 C ENTRY QQGETF (I,J,K) NAME = 'QQGETF' GO TO 100 C C **** C ROUTINE USED ONLY BY IBM AND VAX C **** C C ENTRY SOFIOF C NAME = 'SOFIOF' C GO TO 100 C C THE FOLLOWING THREE ARE FUNCTIONS FOR QUAD WORD OPERATIONS C (REAL*16) ENTRY QABS (I) NAME = 'QABS' GO TO 100 C ENTRY SNGLQ (I) NAME = 'SNGLQ' GO TO 100 C ENTRY DBLEQ (I) NAME = 'DBLEQ' GO TO 100 C ENTRY QSQRT (I) NAME = 'QSQRT' GO TO 100 C ENTRY QLOG (I) NAME = 'QLOG' GO TO 100 C ENTRY QEXTD (I) NAME = 'QEXTD' GO TO 100 C C **** C ROUTINE USED BY UNIVAC AND VAX C **** C C ENTRY DEFCOR C NAME = 'DEFCOR' C GO TO 100 C C **** C ROUTINES USED BY ALL MACHINES, EXCEPT VAX C **** C ENTRY GPERR (I,J) NAME = 'GPERR' GO TO 100 C ENTRY PDUMP GO TO 250 C ENTRY MPY1 NAME = 'MPY1' GO TO 100 C ENTRY MPY2NT NAME = 'MPY2NT' GO TO 100 C ENTRY MPY2T NAME = 'MPY2T' GO TO 100 C C **** C ROUTINES USED ONLY IN CDC MACHINE C **** C ENTRY LINK (I,J,K) NAME = 'LINK' GO TO 100 C ENTRY REMARK (I) NAME = 'REMARK' GO TO 100 C ENTRY CDCBUG (I,J,K,L) NAME = 'CDCBUG' GO TO 100 C ENTRY CDCOPN (I) NAME = 'CDCOPN' GO TO 100 C ENTRY CDCCLS (I) NAME = 'CDCCLS' GO TO 100 C ENTRY CDCKSZ (I) NAME = 'CDCKSZ' GO TO 100 C ENTRY PF (I,J,K) NAME = 'PF' GO TO 100 C ENTRY ISWAP (I) NAME = 'ISWAP' GO TO 100 C C **** C ROUTINES USED ONLY IN VAX MACHINE C **** C ENTRY VAXEND NAME = 'VAXEND' GO TO 100 C ENTRY VAXERR (L) WRITE (NOUT,50) L 50 FORMAT (/,' *** GINO ERROR AT LOC',I5) GO TO 220 C C ENTRY VAXSCH C NAME = 'VAXSCH' C GO TO 100 C ENTRY VAXBRK NAME = 'VAXBRK' GO TO 100 C C ENTRY MPY1V (I,J,K) C NAME = 'MPY1V' C GO TO 100 C C ENTRY MPY2NV (I,J,K) C NAME = 'MPY2NV' C GO TO 100 C C ENTRY MPY2TV (I,J,K) C NAME = 'MPY2TV' C GO TO 100 C C **** C ROUTINES THAT PERFORM NO PARTICULAR FUNCTIONS, BUT THEY C ARE STILL CALLED BY NASTRAN C **** C ENTRY UNLOAD (I) C CALLED BY INPTT1 GO TO 250 C C **** C THE FOLLOWING ROUTINES SEEM TO BE NO LONGER USED IN NASTRAN C **** C ENTRY JIDINT (I) NAME = 'JIDINT' GO TO 100 C ENTRY OPMESG NAME = 'OPMESG' GO TO 100 C C ENTRY PDUM1,PDUM2,...,PDUM9 HAD BEEN REPLACED BY PDUMI C ENTRY QDMM3, SQDM31, AND SQDM32 ARE NOW OBSOLETE C ENTRY SEMTRN NAME = 'SEMTRN' GO TO 100 C C **** C DUMMY ROUTINES REFERENCED ONLY IN LINK 2, ALL MACHINES C **** C ENTRY PDUMI (*,*,*,I,J,K,L,M,N,O) NAME = 'PDUMI' GO TO 100 C C **** C DUMMY ROUTINES REFERENCED ONLY IN LINK 5, ALL MACHINES C **** C ENTRY PLBAR1 (I,J) NAME = 'PLBAR1' GO TO 100 C ENTRY PLOADX NAME = 'PLOADX' GO TO 100 C CWKBD ENTRY ERRTRC (NAM) C ================== C ERROR TRACEBACK C CWKBD GO TO 220 C 100 WRITE (NOUT,150) NAME 150 FORMAT ('0*** SYSTEM FATAL ERROR --- JOB TERMINATED', 1 ' DUE TO CALL TO DUMMY SUBROUTINE. ENTRY NAME IS ', A8) GO TO 220 C C **** C TO FORCE A SYSTEM FATAL ERROR FOR TRACEBACK (VAX ONLY, NOT UNIX) C **** C 220 IF (MACH .NE. 5) GO TO 240 WRITE (NOUT,230) 230 FORMAT ('0*** ERROR TRACEBACK IN SYSTEM LOG FILE') I = 987654321 N(I) = 0 240 STOP 250 RETURN C C C SUBROUTINE DUMMY C C **** C UNIVAC VERSION C C THIS SUBROUTINE PROVIDES ENTRIES FOR THE DUMMY ROUTINES C USED BY OTHER COMPUTER MACHINES, AND ARE REFERENCED IN C VARIOUS NASTRAN LINKS C C THIS SUBROUTINE INCLUDES ALSO SOME DUMMY ROUTINES NOT YET C WRITTEN C C THIS ROUTINE SHOULD BE MOVED TO NASTRAN MACHINE-DEPENDENT C SECTION (MDS) C **** C C* CHARACTER*8 NAME C C* COMMON /MACHIN/ MACH C* COMMON /SYSTEM/ ISYSBF, NOUT C C* IF (MACH .EQ. 3) GO TO 250 C* WRITE (NOUT,20) MACH C* 20 FORMAT (/,' MACH =',I7) C* NAME = 'DUMMY' C* GO TO 100 C C **** C ROUTINES USED ONLY IN UNIVAC MACHINE C **** C C ENTRY NTRAN (I,J,K) C NAME = 'NTRAN' C GO TO 100 C C ENTRY CONTIN C NAME = 'CONTIN' C GO TO 100 C C ENTRY FACIL (I,J) C NAME = 'FACIL' C GO TO 100 C C ENTRY FACSF (I) C NAME = 'FACSF' C GO TO 100 C C ENTRY UNVOPN (I) C NAME = 'UNVOPN' C GO TO 100 C C ENTRY UNVCLS (I) C NAME = 'UNVCLS' C GO TO 100 C C ENTRY ADDCRD (I,J) C NAME = 'ADDCRD' C GO TO 100 C C **** C ROUTINES USED BY UNIVAC AND IBM C **** C C* ENTRY RETURN C* GO TO 250 C C ENTRY MSGUNI C IF (MACH .EQ. 2) GO TO 250 C NAME = 'MSGUNI' C GO TO 100 C C ENTRY XEOT (I,J,K,L) C IF (MACH .EQ. 2) GO TO 250 C NAME = 'XEOT' C GO TO 100 C C ENTRY TPSWIT (I,J,K,L) C NAME = 'TPSWIT' C GO TO 100 C C **** C ROUTINES USED ONLY IN IBM MACHINE C **** C C* ENTRY UMFTRN (I) C* NAME = 'UMFTRN' C* GO TO 100 C C* ENTRY TAPSWI (I,J,K,L) C* NAME = 'TAPWSI' C* GO TO 100 C C* ENTRY SEARCH (I) C* NAME = 'SEARCH' C* GO TO 100 C C* ENTRY SOFIOI C* NAME = 'SOFIOI' C* GO TO 100 C C* ENTRY IQZDDN (I) C* NAME = 'IQZDDN' C* GO TO 100 C C* ENTRY QQDCBF (I,J,K,L,M,N) C* NAME = 'QQDCBF' C* GO TO 100 C C* ENTRY QQGETF (I,J,K) C* NAME = 'QQGETF' C* GO TO 100 C C **** C ROUTINE USED ONLY BY IBM AND VAX C **** C C* ENTRY SOFIOF C* NAME = 'SOFIOF' C* GO TO 100 C C THE FOLLOWING THREE ARE FUNCTIONS FOR QUAD WORD OPERATIONS C (REAL*16) C* ENTRY QABS (I) C* NAME = 'QABS' C* GO TO 100 C C* ENTRY SNGLQ (I) C* NAME = 'SNGLQ' C* GO TO 100 C C* ENTRY DBLEQ (I) C* NAME = 'DBLEQ' C* GO TO 100 C C* ENTRY QSQRT (I) C* NAME = 'QSQRT' C* GO TO 100 C C* ENTRY QLOG (I) C* NAME = 'QLOG' C* GO TO 100 C C* ENTRY QEXTD (I) C* NAME = 'QEXTD' C* GO TO 100 C C **** C ROUTINE USED BY UNIVAC AND VAX C **** C C ENTRY DEFCOR C NAME = 'DEFCOR' C GO TO 100 C C **** C ROUTINES USED BY ALL MACHINES, EXCEPT VAX C **** C C ENTRY GPERR (I,J) C NAME = 'GPERR' C GO TO 100 C C ENTRY PDUMP C GO TO 250 C C ENTRY MPY1 C NAME = 'MPY1' C GO TO 100 C C ENTRY MPY2NT C NAME = 'MPY2NT' C GO TO 100 C C ENTRY MPY2T C NAME = 'MPY2T' C GO TO 100 C C **** C ROUTINES USED ONLY IN CDC MACHINE C **** C C* ENTRY LINK (I,J,K) C* NAME = 'LINK' C* GO TO 100 C C* ENTRY REMARK (I) C* NAME = 'REMARK' C* GO TO 100 C C* ENTRY CDCBUG (I,J,K,L) C* NAME = 'CDCBUG' C* GO TO 100 C C* ENTRY CDCOPN (I) C* NAME = 'CDCOPN' C* GO TO 100 C C* ENTRY CDCCLS (I) C* NAME = 'CDCCLS' C* GO TO 100 C C* ENTRY CDCKSZ (I) C* NAME = 'CDCKSZ' C* GO TO 100 C C* ENTRY PF (I,J,K) C* NAME = 'PF' C* GO TO 100 C C* ENTRY ISWAP (I) C* NAME = 'ISWAP' C* GO TO 100 C C **** C ROUTINES USED ONLY IN VAX MACHINE C **** C C* ENTRY VAXEND C* NAME = 'VAXEND' C* GO TO 100 C C* ENTRY VAXERR (L) C* WRITE (NOUT,50) L C* 50 FORMAT (/,' *** GINO ERROR AT LOC',I5) C* GO TO 220 C C* ENTRY VAXSCH C* NAME = 'VAXSCH' C* GO TO 100 C C* ENTRY VAXBRK C* NAME = 'VAXBRK' C* GO TO 100 C C* ENTRY MPY1V (I,J,K) C* NAME = 'MPY1V' C* GO TO 100 C C* ENTRY MPY2NV (I,J,K) C* NAME = 'MPY2NV' C* GO TO 100 C C* ENTRY MPY2TV (I,J,K) C* NAME = 'MPY2TV' C* GO TO 100 C C **** C ROUTINES THAT PERFORM NO PARTICULAR FUNCTIONS, BUT THEY C ARE STILL CALLED BY NASTRAN C **** C C* ENTRY UNLOAD (I) C CALLED BY INPTT1 C* GO TO 250 C C **** C THE FOLLOWING ROUTINES SEEM TO BE NO LONGER USED IN NASTRAN C **** C C* ENTRY JIDINT (I) C* NAME = 'JIDINT' C* GO TO 100 C C* ENTRY OPMESG C* NAME = 'OPMESG' C* GO TO 100 C C ENTRY PDUM1,PDUM2,...,PDUM9 HAD BEEN REPLACED BY PDUMI C ENTRY QDMM3, SQDM31, AND SQDM32 ARE NOW OBSOLETE C C* ENTRY SEMTRN C* NAME = 'SEMTRN' C* GO TO 100 C C **** C DUMMY ROUTINES REFERENCED ONLY IN LINK 2, ALL MACHINES C **** C C* ENTRY PDUMI (*,*,*,I,J,K,L,M,N,O) C* NAME = 'PDUMI' C* GO TO 100 C C **** C DUMMY ROUTINES REFERENCED ONLY IN LINK 5, ALL MACHINES C **** C C* ENTRY PLBAR1 (I,J) C* NAME = 'PLBAR1' C* GO TO 100 C C* ENTRY PLOADX C* NAME = 'PLOADX' C* GO TO 100 C C* ENTRY ERRTRC (NAM) C ================== C ERROR TRACEBACK C C* GO TO 220 C C*100 WRITE (NOUT,150) NAME C*150 FORMAT ('0*** SYSTEM FATAL ERROR --- JOB TERMINATED', C* 1 ' DUE TO CALL TO DUMMY SUBROUTINE. ENTRY NAME IS ', A8) C* GO TO 220 C C **** C TO FORCE A SYSTEM FATAL ERROR FOR TRACEBACK C **** C C*220 WRITE (NOUT,230) C*230 FORMAT ('0*** ERROR TRACEBACK IN SYSTEM LOG FILE') C* X =-1.0 C* X = SQRT(X) C*250 RETURN C C C SUBROUTINE DUMMY C C **** C MACHINES 1, AND 6 THRU 20 VERSION C C THIS SUBROUTINE PROVIDES ENTRIES FOR THE DUMMY ROUTINES C USED BY OTHER COMPUTER MACHINES, AND ARE REFERENCED IN C VARIOUS NASTRAN LINKS C C THIS SUBROUTINE INCLUDES ALSO SOME DUMMY ROUTINES NOT YET C WRITTEN C C THIS ROUTINE SHOULD BE MOVED TO NASTRAN MACHINE-DEPENDENT C SECTION (MDS) C **** C C. DIMENSION N(1) C. CHARACTER*8 NAME C C. COMMON /MACHIN/ MACH C. COMMON /SYSTEM/ ISYSBF, NOUT C C. IF (MACH.EQ.1 .AND. MACH.GE.6) GO TO RETURN C. WRITE (NOUT,150) NAME,MACH C.150 FORMAT ('0*** SYSTEM FATAL ERROR --- JOB TERMINATED', /5X, C. 1 'SUBROUTINE DUMMY FOR MACHINE TYPE',I4,' IS NOT AVAILABLE') C. I = 987654321 C. N(I) = 0 C. STOP C END ================================================ FILE: mds/emgsoc.f ================================================ SUBROUTINE EMGSOC (ICORE,NCORE,HEAT) C C THIS .MDS VERSION IS USED ONLY IN THE VIRTUAL MACHINES (IBM, VAX, C AND UNIX) C CDC & UNIVAC, NON-VIRTUAL MACHINES, SHOULD USE THE EMGSOC.MIS C VERSION C C ICORE = RELATIVE ADDRESS OF FIRST WORD OF OPEN CORE. C NCORE = RELATIVE ADDRESS OF FINAL WORD OF OPEN CORE. C C IFILE = GINO FILE WHOSE TRAILER BITS INDICATE ACTIVE COMMON GROUPS C C BOUNDARY ALIGNMENT IS ASSURED BY THE FACT THAT ALL COMMON BLOCKS C START AT AN ODD ADDRESS. C COMMON /MACHIN/ MACH COMMON /ZZEMGX/ IXXX C NCORE = KORSZ(IXXX) ICORE = 3 IF (MACH.EQ.3 .OR. MACH.EQ.4) STOP ' EMGSOC' RETURN END ================================================ FILE: mds/endget.f ================================================ SUBROUTINE ENDGET( BLOCK ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER BLOCK( 15 ) NAME = BLOCK( 1 ) CALL DSGEFL NWORDS = BLOCK( 11 ) NELM = IAND( IBASE( INDCBP-2 ), MASKH2 ) INDCBP = INDCBP + NELM*NWORDS + BLOCK(3)*2 CALL DSSDCB RETURN END ================================================ FILE: mds/endgtb.f ================================================ SUBROUTINE ENDGTB ( BLOCK ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER BLOCK( 15 ) NAME = BLOCK( 1) CALL DSGEFL ID = IAND( IBASE( INDCBP ), MASKQ1 ) IF ( ID .NE. IDSST ) CALL DSMSG ( 117 ) LEN = IAND ( IBASE( INDCBP ), MASKH2 ) * BLOCK( 11 ) INDCBP = INDCBP - LEN - 2 CALL DSSDCB RETURN END ================================================ FILE: mds/endput.f ================================================ SUBROUTINE ENDPUT ( BLOCK ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER BLOCK( 15 ) LIM = NBUFF - BLOCK( 3 )*2 NAME = BLOCK( 1 ) CALL DSGEFL IF ( BLOCK( 7 ) .LE. 0 ) GO TO 10 IF ( BLOCK( 6 ) .GE. BLOCK( 7 ) ) GO TO 5 CALL DSMSG1( BLOCK ) CALL DSMSG ( 109 ) 5 IBASE( INDCBP+1 ) = IDSSH + BLOCK(7) IBASE( INDCBP+2 ) = BLOCK(4) NWORDS = BLOCK( 11 ) INDCBP = INDCBP + ( BLOCK( 7 ) * NWORDS ) + 2 IF ( ( INDCBP-INDBAS ) .GT. LIM ) CALL DSMSG( 108 ) IF ( BLOCK( 3 ) .EQ. 0 ) GO TO 10 IBASE( INDCBP+1 ) = IDSST + BLOCK( 7 ) IBASE( INDCBP+2 ) = BLOCK(4) + BLOCK(7) - 1 INDCBP = INDCBP + 2 10 IF ( BLOCK( 8 ) .NE. 1 ) GO TO 20 IBASE( INDCBP+1 ) = IDSCT + BLOCK(3)*MULQ3 + BLOCK(2) IBASE( INDCBP+2 ) = BLOCK( 12 ) IBASE( INDCBP+3 ) = IDSRT + IDSC + ( INDCLR-INDBAS+1 ) IBASE( INDCLR ) = IDSSB + BLOCK( 9 ) + INDCBP-INDCLR+2 INDCBP = INDCBP + 4 INDCLR = INDCBP 20 IF ( BLOCK( 6 ) .NE. BLOCK( 7 ) ) GO TO 50 IF ( BLOCK ( 8 ) .NE. 1 ) GO TO 30 IBASE( INDCBP ) = IDSEB GO TO 40 30 IFLG = BLOCK( 9 ) IF ( IFLG .EQ. IDSX ) GO TO 45 IFLG = IDSP BLOCK( 9 ) = IDSX 45 IBASE( INDCLR ) = IDSSB + IFLG + ( INDCBP-INDCLR ) IBASE( INDCBP + 1 ) = IDSRT + IFLG + ( INDCLR-INDBAS+1 ) IBASE( INDCBP + 2 ) = IDSEB INDCLR = INDCBP + 2 INDCBP = INDCLR 40 CALL DSWRNB CWKBD NCL93007 11/94 C 50 CALL DSSDCB CWKBNB NCL93007 11/94 C ACCUMULATE THE TOTAL NUMBER OF TERMS AND STRINGS 50 FCB( 16, IFILEX ) = FCB( 16, IFILEX ) + 1 FCB( 17, IFILEX ) = FCB( 17, IFILEX ) + BLOCK( 7 ) CALL DSSDCB CWKBNE NCL93007 11/94 RETURN END ================================================ FILE: mds/eof.f ================================================ SUBROUTINE EOF ( FILE ) INCLUDE 'DSIOF.COM' INTEGER FILE NAME = FILE IRETRN = 0 CALL DSGEFL CALL DSEFWR CALL DSSDCB RETURN END ================================================ FILE: mds/errtrc.f ================================================ SUBROUTINE ERRTRC ( NAME, IVAL ) CHARACTER *(*) NAME COMMON / SYSTEM / ISYSBF, NOUT WRITE ( NOUT, * ) ' ERRTRC CALLED' WRITE ( NOUT, * ) ' NAME=',NAME WRITE ( NOUT, * ) ' IVAL=',IVAL RETURN END ================================================ FILE: mds/exford.f ================================================ SUBROUTINE EXFORD & ( IUN, IPREC, FORM, InDATA, NWDS ) C******************************************************************** C EXPECTED TYPES OF FORMAT CODES ARE AS FOLLOWS C NH------ NENN.N NDNN.N NX C NFNN.N NINN NGNN.N NAN C NPENN.N NPFNN.N NPN(----) C SPECIAL CHARACTERS: /(), C ICHAR = CURRENT CHARACTER NUMBER BEING PROCESSED IN "FORM" C ICOL = CURRENT CHARACTER COLUMN POSITION WITHIN THE LINE C NCNT = NUMBER OF VALUES OF IDATA AND DATA THAT HAVE BEEN PROCESSE C******************************************************************** CHARACTER*1 FORM(1000) CHARACTER*1 SLASH , BLANK CHARACTER*1 LPAREN, RPAREN, PERIOD, COMMA, NUMBER(10) CHARACTER*1 H, E, D, X, F, I, G, A, P CHARACTER*2 PFACT CHARACTER*4 CDATA(200) CHARACTER*132 LINE CHARACTER*132 TFORM INTEGER*4 IDATA(200) REAL*4 DATA(200) REAL*8 DDATA(100) integer*4 indata(nwds) COMMON /SYSTEM/ ISYSBF, IWR equivalence (idata, data, ddata, cdata ) DATA H/'H'/, E/'E'/, D/'D'/, X/'X'/, F/'F'/ DATA I/'I'/, G/'G'/, A/'A'/, P/'P'/ DATA LPAREN /'('/, RPAREN/')'/, PERIOD/'.'/ DATA COMMA /','/, SLASH /'/'/, BLANK /' '/ DATA NUMBER /'0','1','2','3','4','5','6','7','8','9'/ if ( nwds .le. 200 ) go to 3 print *,' word limit exceeded in exford-limit=200' return 3 do 4 kb = 1, 200 idata(kb) = indata(kb) 4 continue READ ( IUN, 900 ) LINE ILOOP = 0 ICHAR = 1 NCNT = 1 ICOL = 1 PFACT = BLANK ICYCLE= 0 5 IF ( FORM(ICHAR) .EQ. LPAREN ) GO TO 75 ICHAR = ICHAR + 1 IF ( ICHAR .LE. 1000 ) GO TO 5 GO TO 7702 70 IF ( ICHAR .GT. 1000 ) GO TO 7702 IF ( NCNT .GT. NWDS ) GO TO 1200 IF ( FORM(ICHAR) .EQ. BLANK ) GO TO 75 IF ( FORM(ICHAR) .EQ. SLASH ) GO TO 100 IF ( FORM(ICHAR) .GE. NUMBER(1) .AND. & FORM(ICHAR) .LE. NUMBER(10) ) GO TO 200 IF ( FORM(ICHAR) .EQ. A ) GO TO 300 IF ( FORM(ICHAR) .EQ. I ) GO TO 400 IF ( FORM(ICHAR) .EQ. X ) GO TO 600 IF ( FORM(ICHAR) .EQ. P ) GO TO 700 IF ( FORM(ICHAR) .EQ. F ) GO TO 800 IF ( FORM(ICHAR) .EQ. G ) GO TO 800 IF ( FORM(ICHAR) .EQ. D ) GO TO 800 IF ( FORM(ICHAR) .EQ. E ) GO TO 800 IF ( FORM(ICHAR) .EQ. LPAREN ) GO TO 1000 IF ( FORM(ICHAR) .EQ. RPAREN ) GO TO 1100 IF ( FORM(ICHAR) .NE. COMMA ) GO TO 7702 IF ( ICYCLE .EQ. 0 ) PFACT = BLANK 75 ICHAR = ICHAR + 1 GO TO 70 C PROCESS SLASH 100 CONTINUE READ ( IUN,900 ) LINE 900 FORMAT(A132) IF ( ICYCLE .EQ. 0 ) PFACT = BLANK ICOL = 1 GO TO 75 C GET MULTIPLIER FOR FIELD CONVERSION 200 CALL FORNUM ( FORM, ICHAR, IMULT ) GO TO 70 C PROCESS ALPHA FIELD--FORMAT(NNANNN) (NN=IMULT,NNN=IFIELD) 300 ICHAR = ICHAR + 1 IF ( NCNT .GT. NWDS ) GO TO 1200 CALL FORNUM ( FORM, ICHAR, IFIELD ) IF ( IMULT .EQ. 0 ) IMULT = 1 WRITE ( TFORM, 902 ) IMULT, IFIELD 902 FORMAT('(',I2,'A',I2,')') I1 = ICOL LENGTH = IMULT*IFIELD NEND = NCNT + IMULT - 1 LAST = ICOL + LENGTH - 1 IF ( NEND .GT. NWDS ) NEND = NWDS READ( LINE(ICOL:LAST), TFORM ) (CDATA(KK),KK=NCNT,NEND) ICOL = ICOL + LENGTH NCNT = NCNT + IMULT IMULT = 1 GO TO 70 C PROCESS INTEGER FIELD -- FORMAT(NNINNN) (NN=IMULT,NNN=IFIELD) 400 ICHAR = ICHAR + 1 IF ( NCNT .GT. NWDS ) GO TO 1200 CALL FORNUM ( FORM, ICHAR, IFIELD ) IF ( IMULT .EQ. 0 ) IMULT = 1 WRITE ( TFORM, 903 ) IMULT, IFIELD 903 FORMAT('(',I2,'I',I2,')') I1 = ICOL LENGTH = IMULT*IFIELD NEND = NCNT + IMULT - 1 LAST = ICOL + LENGTH - 1 IF ( NEND .GT. NWDS ) NEND = NWDS READ( LINE(ICOL:LAST), TFORM ) (IDATA(KK),KK=NCNT,NEND) ICOL = ICOL + LENGTH NCNT = NCNT + IMULT IMULT = 1 GO TO 70 C PROCESS X FIELD -- FORMAT(NNX) (NN=IMULT) 600 LAST = ICOL + IMULT - 1 ICOL = ICOL + IMULT IMULT = 1 GO TO 75 C PROCESS P FACTOR FOR FLOATING FORMAT 700 WRITE ( PFACT,904 ) FORM(ICHAR-1), FORM(ICHAR) 904 FORMAT(132A1) IF ( NCNT .GT. NWDS ) GO TO 1200 GO TO 75 C PROCESS FLOATING FIELD -- FORMAT(NPNNXNNN.NNNN) WHERE C (NP = PFACT, NN=IMULT, NNN=IFIELD, NNNN=IDEC) 800 ITYPE = ICHAR IF ( NCNT .GT. NWDS ) GO TO 1200 ICHAR = ICHAR + 1 CALL FORNUM ( FORM, ICHAR, IFIELD ) 810 IF ( FORM( ICHAR ) .EQ. PERIOD ) GO TO 820 ICHAR = ICHAR + 1 GO TO 810 820 ICHAR = ICHAR + 1 CALL FORNUM ( FORM, ICHAR, IDEC ) IF ( IMULT .EQ. 0 ) IMULT = 1 WRITE ( TFORM, 906 ) PFACT, IMULT, FORM(ITYPE),IFIELD, IDEC 906 FORMAT('(',A2,I2,A1,I2,'.',I2,')') I1 = ICOL LENGTH = IMULT*IFIELD NEND = NCNT + IMULT - 1 LAST = ICOL + LENGTH - 1 IF ( NEND .GT. NWDS ) NEND = NWDS IF ( IPREC .EQ. 2 ) & READ( LINE(ICOL:LAST), TFORM ) (DDATA(KK),KK=NCNT,NEND) IF ( IPREC .NE. 2 ) & READ( LINE(ICOL:LAST), TFORM ) (DATA(KK),KK=NCNT,NEND) ICOL = ICOL + LENGTH NCNT = NCNT + IMULT IMULT = 1 GO TO 70 C PROCESS LEFT PAREN (NOT THE FIRST LEFT PAREN BUT ONE FOR A GROUP) C IMULT HAS THE MULTIPLIER TO BE APPLIED TO THE GROUP 1000 ICYCLE = IMULT-1 ICSAVE = ICHAR+1 ILOOP = 1 IMULT = 1 GO TO 75 C PROCESS RIGHT PAREN ( CHECK IF IT IS THE LAST OF THE FORMAT) C IF IT IS PART OF A GROUP, THEN ICYCLE WILL BE NON-ZERO 1100 IF ( ICYCLE .GT. 0 ) GO TO 1110 IF ( ILOOP .NE. 0 ) GO TO 1120 IF ( NCNT .GT. NWDS ) GO TO 1200 C NO GROUP, THEREFORE MUST RE CYCLE THROUGH FORMAT C UNTIL LIST IS SATISFIED READ( IUN,900 ) LINE ICHAR = 2 PFACT = BLANK ICOL = 1 GO TO 70 C GROUP BEING PROCESSED, DECREMENT COUNT AND RESET ICHAR TO BEGINNING C OF THE GROUP 1110 ICYCLE = ICYCLE - 1 ICHAR = ICSAVE GO TO 70 C FINISHED WITH LOOP, CONTINUE WITH FORMAT 1120 ILOOP = 0 ICYCLE = 0 GO TO 75 1200 CONTINUE 7000 CONTINUE RETURN 7702 WRITE( IWR, 9901 ) ICHAR, FORM 9901 FORMAT(///' SUBROUTINE EXFORD UNABLE TO DECIPHER THE FOLLOWING' & ,' FORMAT AT CHARACTER ',I4,/,' FORMAT GIVEN WAS THE FOLLOWING:' & ,/,(1X,131A1)) END ================================================ FILE: mds/exfort.f ================================================ SUBROUTINE EXFORT (RW,U,F,BUF,NWDS,PREC,DBUF) C***** C C *** IBM 360/370, VAX/780 VERSION *** C C EXFORT PERFORMS FORTRAN FORMATTED IO FOR MODULE EXIO C C***** INTEGER RW,U,F,BUF(NWDS),PREC,FP,FMT,FRMT(10) DOUBLE PRECISION DBUF(1) COMMON /BLANK / X1(26),LBUF COMMON /EXIO2P/ NF,FP(5,1) COMMON /EXIO2F/ FMT(1) C COMMON /EXIO2X/ ==> /ZZEXO2/ UNIVAC ONLY C DATA LEOF / 4H&EOF/ C IF (NWDS .LE. 0) RETURN IF (F .LE. 0) GO TO 8 IFMT = FP(1,F)-1 DO 5 I = 1,10 5 FRMT(I) = FMT(IFMT+I) 8 GO TO (10,20,80,150), RW 10 GO TO (30,50), PREC 20 GO TO (40,60), PREC C C READ -- SINGLE PRECISION C 30 READ (U,FRMT,ERR=35) BUF 35 IF (BUF(1) .EQ. LEOF) GOTO 70 RETURN C C WRITE -- SINGLE PRECISION C 40 WRITE (U,FRMT,ERR=45) BUF 45 RETURN C C READ -- DOUBLE PRECISION C 50 N = NWDS/3 READ (U,FRMT) (BUF(4*I-3),DBUF(2*I),I=1,N) RETURN C C WRITE -- DOUBLE PRECISION C 60 N = NWDS/3 WRITE (U,FRMT) (BUF(4*I-3),DBUF(2*I),I=1,N) RETURN C C END OF FILE C 70 BUF(3) = -1 RETURN C C POSITION THE FILE C 80 GO TO (90,100,100), NWDS 90 REWIND U RETURN 100 N = LBUF/33+1 DO 110 I = 1,N 110 BACKSPACE U 120 READ (U,160) N IF (N .NE. LEOF) GO TO 120 BACKSPACE U RETURN C C WRITE LOGICAL EOF C 150 N = LBUF/33 DO 170 I = 1,N WRITE (U,160) LEOF 160 FORMAT (A4,128X) 170 CONTINUE RETURN END ================================================ FILE: mds/exfowr.f ================================================ SUBROUTINE EXFOWR & ( IUN, IPREC, FORM, InDATA, NWDS ) C******************************************************************** C EXPECTED TYPES OF FORMAT CODES ARE AS FOLLOWS C NH------ NENN.N NDNN.N NX C NFNN.N NINN NGNN.N NAN C NPENN.N NPFNN.N NPN(----) C SPECIAL CHARACTERS: /(), C ICHAR = CURRENT CHARACTER NUMBER BEING PROCESSED IN "FORM" C ICOL = CURRENT CHARACTER COLUMN POSITION WITHIN THE LINE C NCNT = NUMBER OF VALUES OF IDATA AND DATA THAT HAVE BEEN PROCESSE C******************************************************************** CHARACTER*1 FORM(1000) CHARACTER*1 SLASH , BLANK CHARACTER*1 LPAREN, RPAREN, PERIOD, COMMA, NUMBER(10) CHARACTER*1 H, E, D, X, F, I, G, A, P CHARACTER*2 PFACT CHARACTER*4 CDATA(200) CHARACTER*132 LINE CHARACTER*132 TFORM INTEGER*4 IDATA(200) REAL*4 DATA(200) REAL*8 DDATA(100) integer*4 indata(200) COMMON /SYSTEM/ ISYSBF, IWR equivalence ( idata, data, ddata, cdata ) DATA H/'H'/, E/'E'/, D/'D'/, X/'X'/, F/'F'/ DATA I/'I'/, G/'G'/, A/'A'/, P/'P'/ DATA LPAREN /'('/, RPAREN/')'/, PERIOD/'.'/ DATA COMMA /','/, SLASH /'/'/, BLANK /' '/ DATA NUMBER /'0','1','2','3','4','5','6','7','8','9'/ if ( nwds .le. 200 ) go to 2 print *,' word limit exceeded in exfowr, limit=200' return 2 do 3 kb = 1, nwds idata( kb ) = indata( kb ) 3 continue ILOOP = 0 ICHAR = 1 NCNT = 1 ICOL = 1 LINE = BLANK PFACT = BLANK ICYCLE= 0 5 IF ( FORM(ICHAR) .EQ. LPAREN ) GO TO 75 ICHAR = ICHAR + 1 IF ( ICHAR .LE. 1000 ) GO TO 5 GO TO 7702 70 IF ( ICHAR .GT. 1000 ) GO TO 7702 IF ( NCNT .GT. NWDS ) GO TO 1200 IF ( FORM(ICHAR) .EQ. BLANK ) GO TO 75 IF ( FORM(ICHAR) .EQ. SLASH ) GO TO 100 IF ( FORM(ICHAR) .GE. NUMBER(1) .AND. & FORM(ICHAR) .LE. NUMBER(10) ) GO TO 200 IF ( FORM(ICHAR) .EQ. A ) GO TO 300 IF ( FORM(ICHAR) .EQ. I ) GO TO 400 IF ( FORM(ICHAR) .EQ. H ) GO TO 500 IF ( FORM(ICHAR) .EQ. X ) GO TO 600 IF ( FORM(ICHAR) .EQ. P ) GO TO 700 IF ( FORM(ICHAR) .EQ. F ) GO TO 800 IF ( FORM(ICHAR) .EQ. G ) GO TO 800 IF ( FORM(ICHAR) .EQ. D ) GO TO 800 IF ( FORM(ICHAR) .EQ. E ) GO TO 800 IF ( FORM(ICHAR) .EQ. LPAREN ) GO TO 1000 IF ( FORM(ICHAR) .EQ. RPAREN ) GO TO 1100 IF ( FORM(ICHAR) .NE. COMMA ) GO TO 7702 IF ( ICYCLE .EQ. 0 ) PFACT = BLANK 75 ICHAR = ICHAR + 1 GO TO 70 C PROCESS SLASH 100 CONTINUE IF ( LINE .NE. BLANK ) WRITE ( IWR,900 ) LINE 900 FORMAT(A132) IF ( LINE .EQ. BLANK ) WRITE ( IWR,901 ) 901 FORMAT(/) LINE = BLANK IF ( ICYCLE .EQ. 0 ) PFACT = BLANK ICOL = 1 GO TO 75 C GET MULTIPLIER FOR FIELD CONVERSION 200 CALL FORNUM ( FORM, ICHAR, IMULT ) GO TO 70 C PROCESS ALPHA FIELD--FORMAT(NNANNN) (NN=IMULT,NNN=IFIELD) 300 ICHAR = ICHAR + 1 IF ( NCNT .GT. NWDS ) GO TO 1200 CALL FORNUM ( FORM, ICHAR, IFIELD ) IF ( IMULT .EQ. 0 ) IMULT = 1 WRITE ( TFORM, 902 ) IMULT, IFIELD 902 FORMAT('(',I2,'A',I2,')') I1 = ICOL LENGTH = IMULT*IFIELD NEND = NCNT + IMULT - 1 IF ( NEND .GT. NWDS ) NEND = NWDS LAST = ICOL + LENGTH - 1 WRITE( LINE(ICOL:LAST), TFORM ) (CDATA(KK),KK=NCNT,NEND) ICOL = ICOL + LENGTH NCNT = NCNT + IMULT IMULT = 1 GO TO 70 C PROCESS INTEGER FIELD -- FORMAT(NNINNN) (NN=IMULT,NNN=IFIELD) 400 ICHAR = ICHAR + 1 IF ( NCNT .GT. NWDS ) GO TO 1200 CALL FORNUM ( FORM, ICHAR, IFIELD ) IF ( IMULT .EQ. 0 ) IMULT = 1 WRITE ( TFORM, 903 ) IMULT, IFIELD 903 FORMAT('(',I2,'I',I2,')') I1 = ICOL LENGTH = IMULT*IFIELD NEND = NCNT + IMULT - 1 LAST = ICOL + LENGTH - 1 IF ( NEND .GT. NWDS ) NEND = NWDS WRITE( LINE(ICOL:LAST), TFORM ) (IDATA(KK),KK=NCNT,NEND) ICOL = ICOL + LENGTH NCNT = NCNT + IMULT IMULT = 1 GO TO 70 C PROCESS HOLERITH FIELD -- FORMAT(NNH----) (NN=IMULT) 500 LAST = ICOL + IMULT - 1 ICHAR = ICHAR + 1 LCHAR = ICHAR + IMULT - 1 WRITE ( LINE(ICOL:LAST), 904 ) (FORM(KK),KK=ICHAR,LCHAR) 904 FORMAT(133A1) ICOL = ICOL + IMULT ICHAR = LCHAR IMULT = 1 GO TO 75 C PROCESS X FIELD -- FORMAT(NNX) (NN=IMULT) 600 WRITE ( TFORM, 905 ) IMULT 905 FORMAT('(',I2,'X',')') LAST = ICOL + IMULT - 1 WRITE( LINE(ICOL:LAST), TFORM ) ICOL = ICOL + IMULT IMULT = 1 GO TO 75 C PROCESS P FACTOR FOR FLOATING FORMAT 700 WRITE ( PFACT,904 ) FORM(ICHAR-1), FORM(ICHAR) IF ( NCNT .GT. NWDS ) GO TO 1200 GO TO 75 C PROCESS FLOATING FIELD -- FORMAT(NPNNXNNN.NNNN) WHERE C (NP = PFACT, NN=IMULT, NNN=IFIELD, NNNN=IDEC) 800 ITYPE = ICHAR IF ( NCNT .GT. NWDS ) GO TO 1200 ICHAR = ICHAR + 1 CALL FORNUM ( FORM, ICHAR, IFIELD ) 810 IF ( FORM( ICHAR ) .EQ. PERIOD ) GO TO 820 ICHAR = ICHAR + 1 GO TO 810 820 ICHAR = ICHAR + 1 CALL FORNUM ( FORM, ICHAR, IDEC ) IF ( IMULT .EQ. 0 ) IMULT = 1 WRITE ( TFORM, 906 ) PFACT, IMULT, FORM(ITYPE),IFIELD, IDEC 906 FORMAT('(',A2,I2,A1,I2,'.',I2,')') I1 = ICOL LENGTH = IMULT*IFIELD NEND = NCNT + IMULT - 1 LAST = ICOL + LENGTH - 1 IF ( NEND .GT. NWDS ) NEND = NWDS IF ( IPREC .EQ. 2 ) & WRITE( LINE(ICOL:LAST), TFORM ) (DDATA(KK),KK=NCNT,NEND) IF ( IPREC .NE. 2 ) & WRITE( LINE(ICOL:LAST), TFORM ) (DATA(KK),KK=NCNT,NEND) ICOL = ICOL + LENGTH NCNT = NCNT + IMULT IMULT = 1 GO TO 70 C PROCESS LEFT PAREN (NOT THE FIRST LEFT PAREN BUT ONE FOR A GROUP) C IMULT HAS THE MULTIPLIER TO BE APPLIED TO THE GROUP 1000 ICYCLE = IMULT-1 ICSAVE = ICHAR+1 ILOOP = 1 IMULT = 1 GO TO 75 C PROCESS RIGHT PAREN ( CHECK IF IT IS THE LAST OF THE FORMAT) C IF IT IS PART OF A GROUP, THEN ICYCLE WILL BE NON-ZERO 1100 IF ( ICYCLE .GT. 0 ) GO TO 1110 IF ( ILOOP .NE. 0 ) GO TO 1120 IF ( NCNT .GT. NWDS ) GO TO 1200 C NO GROUP, THEREFORE MUST RE CYCLE THROUGH FORMAT C UNTIL LIST IS SATISFIED WRITE ( IUN,900 ) LINE ICHAR = 2 LINE = BLANK PFACT = BLANK ICOL = 1 GO TO 70 C GROUP BEING PROCESSED, DECREMENT COUNT AND RESET ICHAR TO BEGINNING C OF THE GROUP 1110 ICYCLE = ICYCLE - 1 ICHAR = ICSAVE GO TO 70 C FINISHED WITH LOOP, CONTINUE WITH FORMAT 1120 ILOOP = 0 ICYCLE = 0 GO TO 75 1200 WRITE ( IUN,900 ) LINE IF ( NCNT .GT. NWDS ) GO TO 7000 LINE = BLANK GO TO 70 7000 CONTINUE RETURN 7702 WRITE( IWR, 9901 ) ICHAR, FORM 9901 FORMAT(///' SUBROUTINE EXFOWR UNABLE TO DECIPHER THE FOLLOWING' & ,' FORMAT AT CHARACTER ',I4,/,' FORMAT GIVEN WAS THE FOLLOWING:' & ,/,(1X,131A1)) END ================================================ FILE: mds/fbsv.f ================================================ SUBROUTINE FBSV (*,ZS,ZD) C C GIVEN A LOWER UNIT TRIANGULAR FACTOR WITH DIAGONAL SUPERIMPOSED C AND WRITTEN WITH TRAILING STRING DEFINITION WORDS, FBSV WILL C PERFORM THE FORWARD-BACKWARD SUBSTITUTION NECESSARY TO SOLVE A C LINEAR SYSTEM OF EQUATIONS. C C THIS FBSV.MDS ROUTINE IS ALMOST SAME AS FBS.MIS C IT IS INTENDED TO BE USED FOR VAX, A VIRTUAL MEMORY MACHINE. C FBSV.MDS DIFFERS FROM FBS.MIS IN C 1. THREE BUFFERS ARE USED C 2. OPEN CORE IS REDUCED. THE INTENTION HERE IS TO AVOID C ACCESSIVE SYSTEM PAGING. C C FBSV IS CALLED ONLY BY FBS ROUTINE. C IT IS INTRODUCED INTO NASTRAN REPERTORY BY G.CHAN/UNISYS, 10/88 C LOGICAL IDENT INTEGER DBL ,DBU ,DBB ,DBX ,PREC ,SIGN , 1 SYSBUF ,PRC ,WORDS ,RLCMPX ,BUF1 ,BUF2 , 2 BUF3 ,TYPEL ,TYPEB ,TYPEX ,SUBNAM(2),BEGN , 3 END ,BUF(2) ,RC ,EOL ,RD ,RDREW , 4 WRT ,WRTREW ,REW ,EOFNRW ,SWITCH ,RSP , 5 RDP ,CSP ,CDP ,BLOCK(15),HICORE ,SYS34 REAL ZS(1) ,XS(4) ,YS(4) DOUBLE PRECISION ZD(1) ,XD ,YD COMMON /FBSX / DBL(7) ,DBU(7) ,DBB(7) ,DBX(7) ,LCORE , 1 PREC ,SIGN COMMON /SYSTEM/ SYSBUF ,NOUT ,SY1(28) ,HICORE ,SY2(2) , 1 SYS34 COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,REW , 1 NOREW ,EOFNRW ,RSP ,RDP ,CSP , 2 CDP COMMON /TYPE / PRC(2) ,WORDS(4) ,RLCMPX(4) COMMON /PACKX / ITYPE1 ,ITYPE2 ,I1 ,J1 ,INCR1 COMMON /UNPAKX/ ITYPE3 ,I2 ,J2 ,INCR2 COMMON /ZNTPKX/ XD(2) ,IX ,EOL COMMON /ZBLPKX/ YD(2) ,IY EQUIVALENCE (DBL(5),TYPEL) , (DBB(5),TYPEB) , (DBX(5),TYPEX) , 1 (XD(1) ,XS(1)) , (DBL(2),NL ) , (YD(1) ,YS(1)) DATA SUBNAM/ 4HFBSV, 1H / , BEGN/ 4HBEGN / , END/ 3HEND / C C C CHECK OPEN CORE SITUATION. IF SYS34 (PAGECNTL) IS NOT ZERO, SET C OPEN CORE SIZE TO SIZE SPECIFIED BY SYS34 (MINUS OVERHEAD OF 6000 C WORDS). TOO BIG A CORE SIZE MAY CAUSE EXCESSIVE PAGING AND SLOW C DOWN FBS OPERATION C C KORCHG = 0 IF (SYS34 .EQ. 0) GO TO 50 KORCHG = HICORE - SYS34 + 6000 IF (KORCHG .LE. 0) GO TO 80 LCORE = LCORE- KORCHG WRITE (NOUT,40) SYS34 40 FORMAT ('0*** SYSTEM INFORMATION MESSAGE - OPEN CORE FOR FBS IS', 1 ' SET TO',I7,' WORDS BY PAGECNTL OF /SYSTEM/',/) GO TO 80 50 IF (HICORE .GT. 130001) WRITE (NOUT,60) HICORE 60 FORMAT ('0*** SYSTEM INFORMATION MESSAGE - PRESENT OPEN CORE =', 1 I7, /5X,'FURTHER INCREASE OF OPEN CORE MAY ACTUALLY ', 2 'SLOW DOWN FBS''S OPERATION.', //5X, 3 'SUGGESTION: TO OPTIMIZE CORE USAGE AND USER''S PROBLEM,', 4 ' AND TO MINIMIZE VAX''S PAGE FAULTS,', /5X, 4 'CHECK WORKING_SET PAGE LIMIT ASSIGNED TO USER, AND SET ', 6 'NASTRAN PAGECNTL WORD OF /SYSTEM/ TO MATCH, BUT NOT TO ', 7 'EXCEED, THE CURRENT SETTING',/) C C GENERAL INITIALIZATION C 80 BUF3 = LCORE- SYSBUF BUF2 = BUF3 - SYSBUF BUF1 = BUF2 - SYSBUF NNN = BUF1 - 1 BUF(1) = SUBNAM(1) BUF(2) = BEGN CALL CONMSG (BUF,2,0) NBRLOD = DBB(2) RC = RLCMPX(TYPEB) I2 = 1 J2 = NL INCR2 = 1 I1 = 1 J1 = NL INCR1 = 1 ITYPE1 = TYPEL ITYPE2 = TYPEX ITYPE3 = SIGN*TYPEL NWDS = WORDS(TYPEL)*NL NVECS = NNN/NWDS IF (NVECS .EQ. 0) CALL MESAGE(-8,NWDS-NNN,SUBNAM) SWITCH = 1 IF (TYPEL.EQ.RSP .AND. RC.EQ.2) SWITCH = 2 IF (TYPEL.EQ.RDP .AND. RC.EQ.2) SWITCH = 3 IF (SWITCH .NE. 1) NVECS = NVECS/2 K1 = 1 BLOCK(1) = DBL(1) DBX(2) = 0 DBX(6) = 0 DBX(7) = 0 IDENT = .FALSE. IF (DBB(4) .EQ. 8) IDENT = .TRUE. NNNDBL = NNN/2 NTERMS = RLCMPX(TYPEL)*NL IF (IDENT) NBRLOD = NL C C OPEN OUTPUT FILE (DBX), LOAD VECTORS FILE (DBB), AND LOWER C TRIANGULAR FACTOR FILE (DBL) C CALL GOPEN (DBX,ZS(BUF3),WRTREW) CALL GOPEN (DBL,ZS(BUF1),RDREW ) IF (.NOT.IDENT) CALL GOPEN (DBB,ZS(BUF2),RDREW) C C CHECK TIMING AND ISSUE MESSAGE C NPASS = (NBRLOD+NVECS-1)/NVECS CALL SSWTCH (11,L11) IF (NPASS .GE. 10) L11=1 IF (L11 .NE. 1) GO TO 140 CALL PAGE2 (-4) WRITE (NOUT,100) TYPEL,NPASS 100 FORMAT ('0*** USER INFORMATION MESSAGE FROM FBS',I1,' - NO. OF ', 1 'PASSES NEEDED TO COMPLETE FBS OPERATION =',I5) IF (NPASS .GT. 15) WRITE (NOUT,110) 110 FORMAT (5X,'INCREASE OF OPEN CORE MAY ACTUALLY SLOW DOWN FBS ', 1 'OPERATION.') GO TO 140 120 IF (L11 .LT. 0) GO TO 150 CALL CPUTIM (J,T2,1) T2 = T2-T1 IF (L11 .GT. 0) WRITE (NOUT,130) T2 130 FORMAT (5X,'TIME TO COMPLETE ONE PASS =',F10.4,' CPU SECONDS',//) L11 = -1 CALL TMTOGO (J) I = NPASS*T2 IF (J .LT. I) CALL MESAGE (-50,I,SUBNAM) GO TO 150 140 CALL CPUTIM (J,T1,1) C C COMPUTE EXTENT OF THIS PASS C 150 KN = MIN0(K1+NVECS-1,NBRLOD) LAST = 1 + (KN-K1)*NWDS IF (IDENT) GO TO 190 GO TO (160,170,180), SWITCH C C NORMAL CASE - FILL CORE WITH LOAD VECTORS C 160 DO 168 L=1,LAST,NWDS CALL UNPACK (*162,DBB,ZS(L)) GO TO 168 162 LN = L+NWDS-1 DO 164 LL=L,LN 164 ZS(LL) = 0. 168 CONTINUE GO TO 200 C C SPECIAL CASE - FACTOR IS RSP AND VECTORS ARE CSP C 170 LAST = 1 + 2*(KN-K1)*NWDS + NWDS L = 0 DO 171 K=1,NNNDBL 171 ZD(K) = 0. DO 178 K=K1,KN ICSPSG = CSP*SIGN CALL INTPK (*176,DBB,0,ICSPSG,0) 172 CALL ZNTPKI ZS(L+IX ) = XS(1) ZS(L+IX+NL) = XS(2) IF (EOL .EQ. 0) GO TO 172 176 L = L + 2*NL 178 CONTINUE GO TO 200 C C SPECIAL CASE - FACTOR IS RDP AND VECTORS ARE CDP C 180 LAST = 1 + 2*(KN-K1)*NWDS + NWDS L = 0 DO 181 K=1,NNNDBL 181 ZD(K) = 0. DO 188 K=K1,KN ICDPSG = CDP*SIGN CALL INTPK (*186,DBB,0,ICDPSG,0) 182 CALL ZNTPKI ZD(L+IX ) = XD(1) ZD(L+IX+NL) = XD(2) IF (EOL .EQ. 0) GO TO 182 186 L = L + 2*NL 188 CONTINUE GO TO 200 C C SPECIAL CASE - GENERATE IDENTITY MATRIX C 190 L = 0 DO 197 K=1,NNNDBL 197 ZD(K) = 0. DO 198 K=K1,KN GO TO (191,192,193,194), TYPEL 191 ZS(L+K) = 1.0 GO TO 196 192 ZD(L+K) = 1.0D0 GO TO 196 193 ZS(L+2*K-1) = 1.0 GO TO 196 194 ZD(L+2*K-1) = 1.0D0 196 L = L + NTERMS 198 CONTINUE C C COMPUTE FORWARD-BACKWARD SUBSTITUTION ON LOAD VECTORS NOW IN CORE C 200 CALL REWIND (DBL) CALL FWDREC (*270,DBL) C GO TO (201,202,203,204), TYPEL C 201 CALL FBS1 (BLOCK,ZS,ZS(LAST),NWDS) GO TO 210 202 CALL FBS2 (BLOCK,ZS,ZS(LAST),NWDS) GO TO 210 203 CALL FBS3 (BLOCK,ZS,ZS(LAST),NWDS) GO TO 210 204 CALL FBS4 (BLOCK,ZS,ZS(LAST),NWDS) C C PACK SOLUTION VECTORS ONTO OUTPUT FILE C 210 GO TO (220,230,240), SWITCH C C NORMAL CASE - CALL PACK C 220 DO 228 L=1,LAST,NWDS CALL PACK (ZS(L),DBX,DBX) 228 CONTINUE GO TO 250 C C SPECIAL CASE - FACTOR IS RSP AND VECTORS ARE CSP, CALL BLDPK C 230 L = 0 DO 238 K=K1,KN CALL BLDPK (CSP,TYPEX,DBX,0,0) DO 234 I=1,NL YS(1) = ZS(L+I ) YS(2) = ZS(L+I+NL) IY = I CALL ZBLPKI 234 CONTINUE CALL BLDPKN (DBX,0,DBX) L = L + 2*NL 238 CONTINUE GO TO 250 C C SPECIAL CASE - FACTOR IS RDP AND VECTORS ARE CDP, CALL BLDPK C 240 L = 0 DO 248 K=K1,KN CALL BLDPK (CDP,TYPEX,DBX,0,0) DO 244 I=1,NL YD(1) = ZD(L+I ) YD(2) = ZD(L+I+NL) IY = I CALL ZBLPKI 244 CONTINUE CALL BLDPKN (DBX,0,DBX) L = L + 2*NL 248 CONTINUE C C TEST FOR MORE PASSES C 250 IF (KN .EQ. NBRLOD) GO TO 300 K1 = KN + 1 GO TO 120 C C ERROR C 270 CALL MESAGE (-2,DBL,SUBNAM) C 300 IF (.NOT.IDENT) CALL CLOSE (DBB,REW) CALL CLOSE (DBL,REW) CALL CLOSE (DBX,REW) BUF(2) = END CALL CONMSG (BUF,2,0) RETURN 1 END ================================================ FILE: mds/filpos.f ================================================ SUBROUTINE FILPOS ( FILE, IPOS ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER FILE NAME = FILE CALL DSGEFL NBLOCK = IAND( IPOS, MASKH2 ) ICBLK = FCB( 4, IFILEX ) IF ( ICBLK .EQ. NBLOCK ) GO TO 10 CALL DBMMGR( 6 ) 10 CONTINUE INDCLR = IPOS/MULQ2 + INDBAS - 1 INDCBP = INDCLR CALL DSSDCB RETURN END ================================================ FILE: mds/forwrt.f ================================================ SUBROUTINE FORWRT ( FORM, INDATA, NWDS ) C******************************************************************** C EXPECTED TYPES OF FORMAT CODES ARE AS FOLLOWS C NH------ NENN.N NDNN.N NX C NFNN.N NINN NGNN.N NAN C NPENN.N NPFNN.N NPN(----) NP,ENN.N C NP,FNN.N NP,N(----) C SPECIAL CHARACTERS: /(), C ICHAR = CURRENT CHARACTER NUMBER BEING PROCESSED IN "FORM" C ICOL = CURRENT CHARACTER COLUMN POSITION WITHIN THE LINE C NCNT = NUMBER OF VALUES OF IDATA AND DATA THAT HAVE BEEN PROCESSE C******************************************************************** CHARACTER*1 FORM(1000) CHARACTER*1 SLASH , BLANK CHARACTER*1 LPAREN, RPAREN, PERIOD, COMMA, NUMBER(10) CHARACTER*1 H, E, D, X, F, I, G, A, P CHARACTER*2 PFACT CHARACTER*4 CDATA(200) CHARACTER*132 LINE CHARACTER*132 TFORM INTEGER*4 INDATA(NWDS), IDATA(200) REAL*4 DATA(200) REAL*8 DDATA(100) COMMON /SYSTEM/ ISYSBF, IWR EQUIVALENCE (IDATA, DATA, DDATA, CDATA ) DATA H/'H'/, E/'E'/, D/'D'/, X/'X'/, F/'F'/ DATA I/'I'/, G/'G'/, A/'A'/, P/'P'/ DATA LPAREN /'('/, RPAREN/')'/, PERIOD/'.'/ DATA COMMA /','/, SLASH /'/'/, BLANK /' '/ DATA NUMBER /'0','1','2','3','4','5','6','7','8','9'/ IF ( NWDS .LE. 200 ) GO TO 2 PRINT *,' LIMIT OF WORDS REACHED IN FORWRT, LIMIT=200' CALL PEXIT 2 DO 3 KB = 1, NWDS IDATA( KB ) = INDATA( KB ) 3 CONTINUE ILOOP = 0 ICHAR = 1 NCNT = 1 ICOL = 1 LINE = BLANK PFACT = BLANK ICYCLE= 0 5 IF ( FORM(ICHAR) .EQ. LPAREN ) GO TO 75 ICHAR = ICHAR + 1 IF ( ICHAR .LE. 1000 ) GO TO 5 GO TO 7702 70 IF ( ICHAR .GT. 1000 ) GO TO 7702 IF ( FORM(ICHAR) .EQ. BLANK ) GO TO 75 IF ( FORM(ICHAR) .EQ. SLASH ) GO TO 100 IF ( FORM(ICHAR) .GE. NUMBER(1) .AND. & FORM(ICHAR) .LE. NUMBER(10) ) GO TO 200 IF ( FORM(ICHAR) .EQ. A ) GO TO 300 IF ( FORM(ICHAR) .EQ. I ) GO TO 400 IF ( FORM(ICHAR) .EQ. H ) GO TO 500 IF ( FORM(ICHAR) .EQ. X ) GO TO 600 IF ( FORM(ICHAR) .EQ. P ) GO TO 700 IF ( FORM(ICHAR) .EQ. F ) GO TO 800 IF ( FORM(ICHAR) .EQ. G ) GO TO 800 IF ( FORM(ICHAR) .EQ. D ) GO TO 800 IF ( FORM(ICHAR) .EQ. E ) GO TO 800 IF ( FORM(ICHAR) .EQ. LPAREN ) GO TO 1000 IF ( FORM(ICHAR) .EQ. RPAREN ) GO TO 1100 IF ( FORM(ICHAR) .NE. COMMA ) GO TO 7702 IF ( ICYCLE .EQ. 0 ) PFACT = BLANK 75 ICHAR = ICHAR + 1 GO TO 70 C PROCESS SLASH 100 CONTINUE IF ( LINE .NE. BLANK ) WRITE ( IWR,900 ) LINE 900 FORMAT(A132) IF ( LINE .EQ. BLANK ) WRITE ( IWR,901 ) 901 FORMAT(/) LINE = BLANK IF ( ICYCLE .EQ. 0 ) PFACT = BLANK ICOL = 1 GO TO 75 C GET MULTIPLIER FOR FIELD CONVERSION 200 CALL FORNUM ( FORM, ICHAR, IMULT ) GO TO 70 C PROCESS ALPHA FIELD--FORMAT(NNANNN) (NN=IMULT,NNN=IFIELD) 300 ICHAR = ICHAR + 1 IF ( NCNT .GT. NWDS ) GO TO 1200 CALL FORNUM ( FORM, ICHAR, IFIELD ) ILEFT = NWDS - NCNT + 1 IF ( ILEFT .LT. IMULT ) IMULT = ILEFT IF ( IMULT .EQ. 0 ) IMULT = 1 WRITE ( TFORM, 902 ) IMULT, IFIELD 902 FORMAT('(',I2,'A',I2,')') I1 = ICOL LENGTH = IMULT*IFIELD NEND = NCNT + IMULT - 1 LAST = ICOL + LENGTH - 1 WRITE( LINE(ICOL:LAST), TFORM ) (CDATA(KK),KK=NCNT,NEND) ICOL = ICOL + LENGTH NCNT = NCNT + IMULT IMULT = 1 GO TO 70 C PROCESS INTEGER FIELD -- FORMAT(NNINNN) (NN=IMULT,NNN=IFIELD) 400 ICHAR = ICHAR + 1 IF ( NCNT .GT. NWDS ) GO TO 1200 CALL FORNUM ( FORM, ICHAR, IFIELD ) IF ( IMULT .EQ. 0 ) IMULT = 1 WRITE ( TFORM, 903 ) IMULT, IFIELD 903 FORMAT('(',I2,'I',I2,')') I1 = ICOL LENGTH = IMULT*IFIELD NEND = NCNT + IMULT - 1 LAST = ICOL + LENGTH - 1 WRITE( LINE(ICOL:LAST), TFORM ) (IDATA(KK),KK=NCNT,NEND) ICOL = ICOL + LENGTH NCNT = NCNT + IMULT IMULT = 1 GO TO 70 C PROCESS HOLERITH FIELD -- FORMAT(NNH----) (NN=IMULT) 500 LAST = ICOL + IMULT - 1 ICHAR = ICHAR + 1 LCHAR = ICHAR + IMULT - 1 WRITE ( LINE(ICOL:LAST), 904 ) (FORM(KK),KK=ICHAR,LCHAR) 904 FORMAT(133A1) ICOL = ICOL + IMULT ICHAR = LCHAR IMULT = 1 GO TO 75 C PROCESS X FIELD -- FORMAT(NNX) (NN=IMULT) 600 WRITE ( TFORM, 905 ) IMULT 905 FORMAT('(',I2,'X',')') LAST = ICOL + IMULT - 1 WRITE( LINE(ICOL:LAST), TFORM ) ICOL = ICOL + IMULT IMULT = 1 GO TO 75 C PROCESS P FACTOR FOR FLOATING FORMAT 700 WRITE ( PFACT,904 ) FORM(ICHAR-1), FORM(ICHAR) IF ( NCNT .GT. NWDS ) GO TO 1200 710 IF ( FORM( ICHAR+1 ) .NE. BLANK .AND. FORM( ICHAR+1 ) .NE. & COMMA ) GO TO 75 ICHAR = ICHAR + 1 IF ( ICHAR .GT. 1000 ) GO TO 7702 GO TO 710 C PROCESS FLOATING FIELD -- FORMAT(NPNNXNNN.NNNN) WHERE C (NP = PFACT, NN=IMULT, NNN=IFIELD, NNNN=IDEC) 800 ITYPE = ICHAR IF ( NCNT .GT. NWDS ) GO TO 1200 ICHAR = ICHAR + 1 CALL FORNUM ( FORM, ICHAR, IFIELD ) 810 IF ( FORM( ICHAR ) .EQ. PERIOD ) GO TO 820 ICHAR = ICHAR + 1 GO TO 810 820 ICHAR = ICHAR + 1 CALL FORNUM ( FORM, ICHAR, IDEC ) IF ( IMULT .EQ. 0 ) IMULT = 1 WRITE ( TFORM, 906 ) PFACT, IMULT, FORM(ITYPE),IFIELD, IDEC 906 FORMAT('(',A2,I2,A1,I2,'.',I2,')') I1 = ICOL LENGTH = IMULT*IFIELD NEND = NCNT + IMULT - 1 LAST = ICOL + LENGTH - 1 IF ( FORM(ITYPE) .EQ. D ) & WRITE( LINE(ICOL:LAST), TFORM ) (DDATA(KK),KK=NCNT,NEND) IF ( FORM(ITYPE) .NE. D ) & WRITE( LINE(ICOL:LAST), TFORM ) (DATA(KK),KK=NCNT,NEND) ICOL = ICOL + LENGTH NCNT = NCNT + IMULT IMULT = 1 GO TO 70 C PROCESS LEFT PAREN (NOT THE FIRST LEFT PAREN BUT ONE FOR A GROUP) C IMULT HAS THE MULTIPLIER TO BE APPLIED TO THE GROUP 1000 ICYCLE = IMULT-1 ICSAVE = ICHAR+1 ILOOP = 1 IMULT = 1 GO TO 75 C PROCESS RIGHT PAREN ( CHECK IF IT IS THE LAST OF THE FORMAT) C IF IT IS PART OF A GROUP, THEN ICYCLE WILL BE NON-ZERO 1100 IF ( ICYCLE .GT. 0 ) GO TO 1110 IF ( ILOOP .NE. 0 ) GO TO 1120 IF ( NCNT .GT. NWDS ) GO TO 1200 C NO GROUP, THEREFORE MUST RE CYCLE THROUGH FORMAT C UNTIL LIST IS SATISFIED WRITE ( IWR,900 ) LINE ICHAR = 2 LINE = BLANK PFACT = BLANK ICOL = 1 GO TO 70 C GROUP BEING PROCESSED, DECREMENT COUNT AND RESET ICHAR TO BEGINNING C OF THE GROUP 1110 ICYCLE = ICYCLE - 1 ICHAR = ICSAVE GO TO 70 C FINISHED WITH LOOP, CONTINUE WITH FORMAT 1120 ILOOP = 0 ICYCLE = 0 GO TO 75 1200 WRITE ( IWR,900 ) LINE 7000 CONTINUE RETURN 7702 WRITE( IWR, 9901 ) ICHAR, FORM 9901 FORMAT(///' SUBROUTINE FORWRT UNABLE TO DECIPHER THE FOLLOWING' & ,' FORMAT AT CHARACTER ',I4,/,' FORMAT GIVEN WAS THE FOLLOWING:' & ,/,(1X,131A1)) END ================================================ FILE: mds/fwdrec.f ================================================ SUBROUTINE FWDREC ( *, FILE ) INCLUDE 'DSIOF.COM' INTEGER FILE NAME = FILE CALL DSGEFL CALL DSFWR1 CALL DSSDCB IF ( IRETRN .EQ. 1 ) RETURN 1 RETURN END ================================================ FILE: mds/getstb.f ================================================ SUBROUTINE GETSTB ( *, BLOCK ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER BLOCK( 15 ) IRETRN = 0 NAME = BLOCK( 1 ) CALL DSGEFL IF ( BLOCK( 8 ) .NE. -1 ) GO TO 100 IF ( ( INDCLR-INDBAS ) .GT. 5 ) GO TO 10 CALL DSRDPB 10 INDCBP = INDCBP - 1 ID = IAND( IBASE( INDCBP ), MASKQ1 ) IF ( ID .NE. IDSRT ) CALL DSMSG( 114 ) INDCBP = INDCBP - 2 ID = IAND( IBASE( INDCBP ), MASKQ1 ) IF ( ID .NE. IDSCT ) CALL DSMSG ( 115 ) CALL DSPRCL( BLOCK ) BLOCK( 8 ) = 0 100 INDCBP = INDCBP - 2 IF ( ( INDCBP-INDBAS ) .GT. 5 ) GO TO 110 CALL DSRDPB INDCBP = INDCBP + 1 GO TO 100 110 ID = IAND( IBASE( INDCBP ), MASKQ1 ) IF ( ID .EQ. IDSCH ) GO TO 130 IF ( ID .EQ. IDSST ) GO TO 120 IF ( ID .EQ. IDSSH ) GO TO 100 IF ( ID .EQ. IDSRT ) GO TO 100 IF ( ID .EQ. IDSSD ) GO TO 100 IF ( ID .EQ. IDSSE ) GO TO 100 CWKBNB 1/94 ID = IAND( IBASE( INDCBP+1 ), MASKQ1 ) IF ( ID .NE. IDSSD ) GO TO 116 INDCBP = INDCBP + 1 GO TO 100 CWKBNE 1/94 CWKBR 1/94 CALL DSMSG ( 116 ) 116 CALL DSMSG ( 116 ) 120 BLOCK( 4 ) = IBASE( INDCBP+1 ) BLOCK( 6 ) = IAND( IBASE( INDCBP ), MASKH2 ) IDIV = MIN0( 2, BLOCK( 11 ) ) BLOCK( 5 ) = INDCBP-1 IF ( BLOCK( 2 ) .EQ. 2 ) BLOCK( 5 ) = ( INDCBP-1 ) / IDIV IF ( BLOCK( 2 ) .EQ. 3 ) BLOCK( 5 ) = INDCBP-2 IF ( BLOCK( 2 ) .EQ. 4 ) BLOCK( 5 ) = ( INDCBP-3 ) / IDIV GO TO 7000 130 INDCBP = INDCBP - 1 INDCLR = INDCBP BLOCK( 8 ) = 1 IRETRN = 1 7000 CALL DSSDCB IF ( IRETRN .EQ. 1 ) RETURN 1 RETURN END ================================================ FILE: mds/getstr.f ================================================ SUBROUTINE GETSTR ( *, BLOCK ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER BLOCK( 15 ) IRETRN = 0 NAME = BLOCK( 1 ) CALL DSGEFL IF ( BLOCK( 8 ) .NE. -1 ) GO TO 100 10 IF ( ( INDCLR-INDBAS+1 ) .GT. LCW ) CALL DSMSG( 113 ) ID = IAND( IBASE( INDCLR ), MASKQ1 ) IF ( ID .EQ. IDSSB ) GO TO 30 IF ( ID .EQ. IDSEB ) GO TO 20 CALL DSMSG ( 110 ) 20 CALL DSRDNB GO TO 10 30 ID = IAND( IBASE( INDCBP+1 ), MASKQ1 ) IF ( ID .EQ. IDSCH ) GO TO 40 CALL DSMSG1( BLOCK ) CALL DSMSG( 111 ) 40 CONTINUE INDCBP = INDCBP + 1 CALL DSPRCL( BLOCK ) INDCBP = INDCBP + 2 BLOCK( 8 ) = 0 100 ID = IAND( IBASE( INDCBP ), MASKQ1 ) INDCBP = INDCBP + 1 IF ( ID .EQ. IDSSH ) GO TO 130 IF ( ID .EQ. IDSSD ) GO TO 100 IF ( ID .EQ. IDSCT ) GO TO 120 IF ( ID .EQ. IDSSE ) GO TO 110 IF ( ID .EQ. IDSRT ) GO TO 110 CALL DSMSG ( 112 ) 110 CALL DSRDNB INDCBP = INDCBP + 1 GO TO 100 120 CALL DSSKRC BLOCK( 6 ) = 0 BLOCK( 8 ) = 1 IRETRN = 1 GO TO 7000 130 BLOCK( 4 ) = IBASE( INDCBP ) BLOCK( 6 ) = IAND( IBASE( INDCBP-1 ), MASKH2 ) INDCBP = INDCBP + 1 BLOCK( 5 ) = ( INDCBP-1 ) / BLOCK( 14 ) + 1 7000 CALL DSSDCB IF ( IRETRN .EQ. 1 ) RETURN 1 RETURN END ================================================ FILE: mds/geturn.f ================================================ SUBROUTINE GETURN ( NAMFIL ) INCLUDE 'DSIOF.COM' COMMON / XFIST / IFSTMX, IFSTCA, IFIST( 100 ) COMMON / XFIAT / IFATUF, IFATMX, IFATCA, IFIAT( 640 ) COMMON / XXFIAT / IXFIAT( 19 ) INTEGER*2 IUNIT COMMON / DSUNIT / IUNIT( 220 ) DATA MASK / '00007FFF'X / IF ( NAMFIL .EQ. LASNAM .AND. IFILEX .NE. 0 ) GO TO 20 IFILEX = 0 LIM = 2 * IFSTCA - 1 DO 15 IFST = 1, LIM, 2 IF ( NAMFIL .NE. IFIST( IFST ) ) GO TO 15 IF ( NAMFIL .GE. 101 .AND. NAMFIL .LE. 320 ) GO TO 10 IF ( IFIST( IFST + 1 ) .GT. 0 ) GO TO 5 IFILEX = IXFIAT( IABS( IFIST( IFST+1 ) ) + 1 ) IF (IFILEX .LE. MAXPRI) GO TO 20 2 IFILEX = 0 GO TO 200 5 IFILEX = IAND( IFIAT( IFIST( IFST+1 ) - 2 ), MASK ) GO TO 20 10 IFILEX = IAND( IFIAT( IFIST( IFST+1 ) - 2 ), MASK ) IF (IFILEX .GT. MAXPRI) GO TO 2 IUNIT( NAMFIL-100 ) = IFILEX GO TO 20 15 CONTINUE GO TO 200 20 IPRVOP = FCB( 1, IFILEX ) IF ( IPRVOP .EQ. 2 ) IPRVOP = 0 NLR = FCB( 3, IFILEX ) NBLOCK = FCB( 4, IFILEX ) LASNAM = NAMFIL 200 CONTINUE RETURN END ================================================ FILE: mds/gnfiat.f ================================================ SUBROUTINE GNFIAT C C C FORMAT OF THE MEMBER DATASET FILE CONTROL BLOCK (MDSFCB) C (ONE ENTRY FOR EVERY FILE) C 0 8 16 24 31 C *************************************************************** C 1 * OPEN FLAG * C *************************************************************** C 2 * CURRENT DSN * C *************************************************************** C 3 * PREVIOUS DSN * NEXT DSN * C *************************************************************** C C FORMAT OF THE FCB C *************************************************************** C 1 * OPEN FLAG (0 - READ, 1 - WRITE ) * C *************************************************************** C 2 * BUFFER ADDRESS * C *************************************************************** C 3 * CURRENT LOGICAL RECORD (CLR) * C *************************************************************** C 4 * CURRENT BLOCK NUMBER * C *************************************************************** C 5 * FIRST BLOCK NUMBER ON EXTERNAL FILE * C *************************************************************** C 6 * LAST BLOCK NUMBER ON EXTERNAL FILE * C *************************************************************** C 7 * NUMBER OF BLOCKS ALLOCATED TO THIS FILE * C *************************************************************** C 8 * FLAG FOR WRITING THE FIRST COLUMN ON FILE (0-NO, 1=YES) * C *************************************************************** C 9 * INDEX TO FIRST IN-MEMORY BLOCK * C *************************************************************** C10 * INDEX TO LAST IN-MEMORY BLOCK * C *************************************************************** C11 * INDEX TO CURRENT IN-MEMORY BLOCK * C *************************************************************** C12 * ORIGINAL BUFFER ADDRESS (ON OPEN) * C *************************************************************** C13 * DMAP FILE NAME * C14 * * C *************************************************************** C15 * OPEN FLAG FOR EXTERNAL FILE * C *************************************************************** C16 * TOTAL NUMBER OF STRINGS IN THIS MATRIX * C *************************************************************** C17 * TOTAL NUMBER OF TERMS IN THIS MATRIX * C *************************************************************** C C C C C I/O BUFFER FORMAT C *************************************************************** C 1 * DMAP FILE NAME * C *************************************************************** C 2 * CBP * C *************************************************************** C 3 * CLR * C *************************************************************** C 4 * BLOCK NUMBER * C *************************************************************** C 5 * LCW * C *************************************************************** C 6 * I/O BUFFER (4 THRU NBUFF+3 ARE WRITTEN) * C *************************************************************** C * * C *************************************************************** C C C C C I/O BUFFER CONTROL WORDS C DEFINITION WORD 0 8 16 24 31 C ***************************************** C RECORD HEADER * '11' * FLAG * NUMBER OF WORDS * C ***************************************** C RECORD TRAILER * '77' * FLAG * CLR * C ***************************************** C STRING DATA * '22' * FLAG * NUMBER OF WORDS * C ***************************************** C EOB STRING * '7F' * FLAG * * C ***************************************** C COLUMN HEADER * '3B' * * FORMAT * TYPE * C ***************************************** C * COLUMN NUMBER * C ***************************************** C COLUMN TRAILER * '3F' * * FORMAT * TYPE * C ***************************************** C * COLUMN NUMBER * C ***************************************** C STRING HEADER * '4B' * * NUMBER OF TERMS * C ***************************************** C * ROW NUMBER * C ***************************************** C STRING TRAILER * '4E' * * NUMBER OF TERMS * C ***************************************** C * ROW NUMBER * C ***************************************** C DUMMY STRING * 'DD' * * C ***************************************** C END OF BLOCK * 'EB' * * C ***************************************** C * 'EF' * * C ***************************************** C C FLAG = C-COMPLETE, E-EXTENDED, F-FURTHER EXTENDED C TYPE = 1-RSP, 2-RDP, 3-CSP, 4-CDP C FORMAT = 1-TRAILERS, 0-NO TRAILERS C * IPERM OF /SYSTEM/ HAS BITS DESIGNATED FOR THE FOLLOWING FILES * * BIT FILE * 7 INPT * 8-16 INP1-INP9 * * ////////////////////////////////////////////////////////////////// * * PERMANENT FILES IN /XXFIAT/ ARE ALLOCATED ACCORDING TO THE * FOLLOWING: * * XFIAT(1) = UNIT FOR POOL = 22 * XFIAT(2) = UNIT FOR OPTP = 7 * XFIAT(3) = UNIT FOR NPTP = 8 * XFIAT(8) = UNIT FOR INPT = 16 * XFIAT(9) = UNIT FOR INP1 = 17 * XFIAT(10)= UNIT FOR INP2 = 18 * XFIAT(11)= UNIT FOR INP3 = 19 * XFIAT(12)= UNIT FOR INP4 = 20 * XFIAT(13)= UNIT FOR INP5 = 21 * XFIAT(18)= UNIT FOR XPTD = 9 * * FORTRAN UNITS ARE ASSIGNED AS FOLLOWS: * * PUNCH = 1 * LINK = 2 * LOG = 3 * RDICT = 4 * INPUT = 5 * OUTPUT= 6 * PLOT = 10 * UT1 = 11 * UT2 = 12 * UT3 = 13 * UT4 = 14 * UT5 = 15 * SOF = 90 * ///////////////////////////////////////////////////////////////// C INCLUDE 'NASNAMES.COM' INCLUDE 'DSIOF.COM' INCLUDE 'GINOX.COM' COMMON / XFIAT / IFUFA , IFMXE , IFCAE , FIAT(640) COMMON / XPFIST / NPFIST COMMON / XXFIAT / XFIAT(19) COMMON / SYSTEM / ISYSBF , DUM1(43), IPERM , DUM2(110), * INMBLK INTEGER*2 IUNIT COMMON / DSUNIT / IUNIT(220) INTEGER FIAT , XFIAT, ANDF C EQUIVALENCE (DUM1(1), NOUT) C CALL DSIODD IFUFA = 0 IDSLIM = INMBLK NUMBLK = 1 IF( LENWPB .NE. 0 ) NUMBLK = ISYSBF / LENWPB DO 15 I = 1, NUMSOF LENSOF( I ) = 0 15 CONTINUE DO 16 I = 1, MAXFCB MDSFCB( 1,I ) = 0 MDSFCB( 2,I ) = 0 MDSFCB( 3,I ) = 0 16 CONTINUE DO 20 I = 1, MAXFCB DO 17 K = 1, 17 FCB( K, I ) = 0 17 CONTINUE FCB( 7,I ) = 20000000 20 CONTINUE DO 30 I =1, 220 IUNIT( I ) = 0 30 CONTINUE IF (ANDF(4, IPERM) .EQ. 0) GO TO 40 MDSNAM( 8 ) = NPTP 40 MDSNAM( 7 ) = OPTP DO 50 I = 1, NPFIST XFIAT( I ) = 4095 50 CONTINUE DO 60 I = 7, 22 IF ( DSNAMES( I ) .EQ. 'none' ) GO TO 60 IF ( DSNAMES( I ) .EQ. 'NONE' ) GO TO 60 CALL DSINQR ( DSNAMES( I ), ISTAT, ISIZE ) IF (ISTAT.EQ.0) GO TO 60 FCB( 3,I ) = 6 FCB( 4,I ) = 1 FCB( 5,I ) = 1 FCB( 6,I ) = FCB(7,I) IF ( I .EQ. 7 ) XFIAT( 2 ) = 7 60 CONTINUE DO 70 I = 23, MAXPRI IFUFA = IFUFA + 1 IND = IFUFA * 11 - 10 FIAT( IND ) = I 70 CONTINUE XFIAT( 1 ) = 22 XFIAT( 3 ) = 8 XFIAT( 8 ) = 16 XFIAT( 9 ) = 17 XFIAT( 10) = 18 XFIAT( 11) = 19 XFIAT( 12) = 20 XFIAT( 13) = 21 XFIAT( 18) = 9 IFCAE = IFUFA 700 RETURN END ================================================ FILE: mds/ibmopn.f ================================================ SUBROUTINE IBMOPN (*,*,LU,FNAME) C C THIS MDS SUBROUTINE OPENS AN IBM FORTRAN LOGICAL UNIT WHICH HAS C NOT BEEN ASSIGNED EXTERNALLY. C C THIS SUBROUTINE USES THE FOLLOWING 3 IBM SYSTEM ROUTINES: C C IQZDDN - TO DETERMINE WHETHER FILE ALREADY EXISTS OR NOT C QQDCBF - TO DYNAMICALLY BUILD AN ATTRIBUTE LIST BY DDNAME C QQGETF - TO DYNAMICALLY ALLOCATE FILE IN TSO OR BATCH C C ALTERNATE RETURN 1: FILE OPENED SUCESSFULLY C ALTERNATE RETURN 2: ERROR OPENING FILE C CHARACTER FNAME*8, OLD*3, NEW*3, ODNW*3 DATA OLD, NEW / 'OLD', 'NEW' / C ISTUS = IQZDDN(FNAME) ODNW = OLD IF (ISTUS .NE. 0) GO TO 10 ODNW = NEW CALL QQDCBF (FNAME,0,'F ',80,80,DA) 10 CALL QQGETF (LU,FNAME,IERR) IF (IERR .NE. 0) GO TO 20 OPEN (UNIT=LU,FILE=FNAME,STATUS=ODNW,ERR=20) RETURN 1 C C ERROR C 20 RETURN 2 END ================================================ FILE: mds/intpk.f ================================================ SUBROUTINE INTPK ( *, FILE, BLOCK, ITYPOT, IFLAG ) INCLUDE 'DSIOF.COM' INCLUDE 'PAKBLK.COM' COMMON / ZNTPKX / A(4), IROW, IEOL, IENDRC INTEGER BLOCK( 15 ), FILE NAME = FILE IF ( IFLAG .EQ. 0 ) GO TO 10 CALL DSIPK1( BLOCK, ITYPOT ) GO TO 700 10 IEOL = 0 IENDRC = 0 CALL DSIPK1( IBLKB, ITYPOT ) 700 CONTINUE IF ( IRETRN .NE. 0 ) RETURN 1 RETURN END ================================================ FILE: mds/intpki.f ================================================ SUBROUTINE INTPKI ( A, I, FILE, BLOCK, IEOL ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER A(4), BLOCK(15), FILE NAME = FILE IRETRN = 0 I = BLOCK( 4 ) INDEX = ( BLOCK(5)-1 )*BLOCK(14) + 1 + BLOCK(7)*BLOCK(11) ITYPOT = BLOCK( 13 ) IF ( BLOCK(2) .NE. ITYPOT ) GO TO 50 NUM = NWRDEL( ITYPOT ) CDIR$ NOVECTOR DO 40 KK = 1, NUM A( KK ) = IBASE( INDEX + KK - 1 ) 40 CONTINUE CDIR$ VECTOR GO TO 60 50 CALL DSUPKC( BLOCK(2), ITYPOT, IBASE( INDEX ), A ) 60 CONTINUE BLOCK( 4 ) = BLOCK( 4 ) + 1 BLOCK( 7 ) = BLOCK( 7 ) + 1 BLOCK(10 ) = BLOCK( 4 ) IF ( BLOCK( 7 ) .LT. BLOCK( 6 ) ) GO TO 200 CALL ENDGET( BLOCK ) CALL GETSTR( *100, BLOCK ) 100 BLOCK( 7 ) = 0 200 CONTINUE IF ( IRETRN .NE. 0 ) GO TO 300 IEOL = 0 GO TO 700 300 IEOL = 1 700 RETURN END ================================================ FILE: mds/k2b.f ================================================ SUBROUTINE K2B (K,B,N) C C MOVE ONLY THE APPROPRIATE PORTION OF THIS ROUTINE TO THE MDS GROUP C C VAX, IBM, UNIX AND UNIVAC VERSION C ================================= C C TO CONVERT CHARACTER STRING TO BCD WORDS, ONE CHARACTER PER WORD C AND BLANK FILLED. SAME RESULT AS C READ (Kn,10) B C 10 FORMAT (nA1) WHERE Kn IS IN CHARACTER*n C C (NOTE - THE INTERNAL FILE READ AND WRITE ARE SLOW IN MOST MACHINES C AND IS EXTREMELY SLOW IN CDC) C INTEGER B(1),A CHARACTER*1 K(1),C CHARACTER*4 C4,D4 C CHARACTER*n C4,D4 C Where n = 4 for IBM, VAX and UNIVAC, 8 for 64-BIT UNIX MACHINE EQUIVALENCE (A,C,C4) DATA D4 / ' ' / C C4 = D4 I = 1 10 C = K(I) B(I) = A I = I + 1 IF (I .LE. N) GO TO 10 RETURN C ENTRY B2K (B,K,N) C ================= C C TO MERGE FROM ONE-CHARACTER BCD WORDS TO A CHARACTER STRING C SAME RESULT AS C WRITE (Kn,10) B C 10 FORMAT (nA1) WHERE Kn IS IN CHARACTER*n C I = 1 20 A = B(I) K(I) = C I = I + 1 IF (I .LE. N) GO TO 20 RETURN C C C SUBROUTINE K2B (K,B,N) C C CDC VERSION C =========== C C TO CONVERT CHARACTER STRING TO BCD WORDS, ONE CHARACTER PER WORD C AND BLANK FILLED. SAME RESULT AS C READ (Kn,10) B C 10 FORMAT (nA1) WHERE Kn IS IN CHARACTER*n C C (NOTE - THE INTERNAL FILE READ AND WRITE ARE SLOW IN MOST MACHINES C AND IS EXTREMELY SLOW IN CDC) C C INTEGER K(1),B(1) C DATA NBPC,NCPW,NCPWP1 / 6, 10, 11 / C DATA MASK /O"77000000000000000000" / C C IE = 1 + N/NCPW C KK = 0 C DO 40 I = 1,IE C KI = K(I) C DO 30 J = 1,NCPW C KK = KK + 1 C IF (KK .GT. N) GO TO 50 C B(KK) = AND(KI,MASK) C KI = SHIFT(KI,NBPC) C30 CONTINUE C40 CONTINUE C50 RETURN C C C ENTRY B2K (B,K,N) C ================= C C TO MERGE FROM ONE-CHARACTER BCD WORDS TO A CHARACTER STRING C SAME RESULT AS C WRITE (Kn,10) B C 10 FORMAT (nA1) WHERE Kn IS IN CHARACTER*n C C IE = 1 + N/NCPW C KK = 0 C DO 70 I = 1,IE C KK = KK + 1 C KI = AND(B(KK),MASK) C DO 60 J = 2,NCPW C KI = SHIFT(KI,NBPC) C KK = KK + 1 C IF (KK .GT. N) GO TO 80 C KI = OR(KI,AND(B(KK),MASK)) C60 CONTINUE C70 K(I) = SHIFT(KI,NBPC) C GO TO 90 C80 J = NCPWP1 - MOD(KK,NCPW) C IF (J .GT. NCPW) J = 1 C K(IE) = SHIFT(KI,J*NBPC) C90 RETURN C END ================================================ FILE: mds/khrbcd.f ================================================ SUBROUTINE KHRBCD (KHR80,BCD4) C C MOVE ONLY THE APPROPRIATE PORTION OF THIS ROUTINE TO THE MDS GROUP C C VAX, IBM, AND UNIVAC VERSION C ============================ C C THESE GROUP OF ROUTINES ARE MAINLY USED BY XREAD, RCARD2, AND C XRCARD IN LINK1 C C THESE GROUP OF ROUTINES CONVERT CHARACTER STRING (IN KHR100, C KHR80, KHR2), TO BCD4 ARRAY, OF 4 BYTES EACH WORD. C SAME OPERATION AS: C C READ (KHRi,15) BCD4 C 15 FORMAT (20A4), or (25A4), or (2A4) C C (THE READ OPERATION IS I/O BOUND, AND IS SLOW IN MOST MACHINES) C C INTEGER B4(2) ,BCD4(2) CHARACTER*100 KHR100,K100 CHARACTER*80 KHR80 ,K80 CHARACTER*72 KHR72 ,K72 CHARACTER*8 KHR8 ,K8 EQUIVALENCE (K100,K80,K72,K8,B4(1)) C C ROUTINE KHRBCD (KAR80,BCD4) C =========================== C A80 ---> 20A4 C K80=KHR80 DO 10 I=1,20 10 BCD4(I)=B4(I) RETURN C C ENTRY KHRBC1 (KHR100,BCD4) C ========================== C A100 ---> 25A4 C K100=KHR100 DO 20 I=1,25 20 BCD4(I)=B4(I) RETURN C C ENTRY KHRBC2 (KHR8,BCD4) C ======================== C A8 ---> 2A4 C K8=KHR8 BCD4(1)=B4(1) BCD4(2)=B4(2) RETURN C C C THE FOLLOWING ROUTINES, BCDKHi, CONVERT FROM BCD ARRAY TO C CHARACTER STRING. SAME OPERATION AS: C C WRITE (KHRi,25) BCD4 C 25 FORMAT (20A4), or (18A4), or (2A4) C C WHERE KHRi IS KHR80, KHR72, OR KHR8 ACCORDINGLY C (THE WRITE OPERATION IS I/O BOUND, AND IS SLOW IN MOST MACHINES) C C ENTRY BCDKH8 (BCD4,KHR80) C ========================= C 20A4 ---> A80 C DO 30 I=1,20 30 B4(I)=BCD4(I) KHR80=K80 RETURN C C ENTRY BCDKH7 (BCD4,KHR72) C ========================= C 18A4 ---> A72 C DO 40 I=1,18 40 B4(I)=BCD4(I) KHR72=K72 RETURN C C ENTRY BCDKH2 (BCD4,KHR8) C ======================== C 2A4 ---> A8 C B4(1)=BCD4(1) B4(2)=BCD4(2) KHR8=K8 RETURN C END C C C C SUBROUTINE KHRBCD (KHR,BCD4) C C CDC VERSION C =========== C C THIS GROUP OF ROUTINES ARE CALLED BY XREAD, RCARD2, AND XRCARD C C THESE GROUP OF ROUTINES CONVERT CHARACTER STRINGS TO BCD ARRAY, C 4 BYTES EACH WORD, AND VISE VERSA. SIMILARY TO - C C METHOD 1: C -------- C READ (KHR80,10) BCD4 and WRITE (KHR72,20) BCD4 C 10 FORMAT (20A4) 20 FORMAT (18A4) C C METHOD 2: C -------- C I2=0 and I2=0 C DO 10 I=1,NWDS DO 20 I=1,NWDS C I1=I2+1 I1=I2+1 C I2=I2+4 I2=I2+4 C 10 BCD4(I)(1:4)=KHR(I1:I2) 20 KHR(I1:I2)=BCD4(I)(1:4) C C HOWEVER THE INTERNAL-FILE READ AND WRITE (METHOD 1) AND THE C CHARACTER MANIPULATION (METHOD 2) ARE EXTREMELY SLOW IN CDC C (METHOD 1 IS ABOUT 18 TIMES SLOWER THAN SHIFT/AND/OR OPERATIONS C THAT ACCOMPLISH THE SAME THING. METHOD 2 IS 2 TO 4 TIMES SLOWER) C C THE CALLING ROUTINES ACTUALLY PASS THE KHR ARGUMENTS IN CHARACTER C STRINGS (CHARACTER*100, CHARACTER*80, CHARACTER*2), WHEREAS, THEY C ARE PICKED UP HERE IN THIS ROUTINE AS INTEGER-BCD ARRAYS, 10 BYTES C EACH WORDS. ONLY THE FIRST 4 BYTES ARE USED IN NASTRAN. C C (THE FOLLOWING CODE ASSUMES NO BREAK ON THE 1ST AND 4TH BCD WORDS C IN A GROUP OF 5) C C INPUT - KHR = CHARACTER STRING IN CHARACTER*80, CHARACTER*100, C AND CHARACTER*2 C OUTPUT - BCD4 = BCD ARRAYS (OF DIMENSION NWDS) C EACH BCD4 WORD HOLDS ONLY 4 BYTES OF DATA C C INTEGER BCD4(1),KHR(1),BLANK,BLK90 C 1 2 3 4 5 6 7 8 9 10 C DATA M1234,M12,M34 / O"77777777000000000000", C 1 O"77770000000000000000", C 2 O"00007777000000000000"/ C DATA M5678,M90 / O"00000000777777770000", C 1 O"00000000000000007777"/ C DATA M3456,M7890 / O"00007777777700000000", C 1 O"00000000000077777777"/ C DATA BLANK,BLK90 / O"00000000555555555555", C 1 O"00000000000000005555"/ C 1 2 3 4 5 6 7 8 9 10 C C SUBROUTINE KHRBCD (KHR,BCD4) C ============================ C A80 ----> 20A4 C C NWDS = 20 C GO TO 40 C C C ENTRY KHRBC1 (KHR,BCD4) C ======================= C A100 ----> 25A4 C C NWDS = 25 C GO TO 40 C C C ENTRY KHRBC2 (KHR,BCD4) C ======================= C A8 ----> 2A4 C C NWDS = 2 C C40 I =-5 C II = 0 C50 I = I+5 C IF (I .GE. NWDS) GO TO 80 C II = II+1 C NW1 = KHR(II) C NN = AND(NW1,M1234) C BCD4(I+1) = OR(NN,BLANK) C NW1 = SHIFT(NW1,24) C NN = AND(NW1,M1234) C BCD4(I+2) = OR(NN,BLANK) C IF (I+2 .GE. NWDS) GO TO 80 C NW1 = SHIFT(NW1,24) C II=II+1 C NW2 = KHR(II) C IF (I+3 .LT. NWDS) GO TO 60 C NW2 = SHIFT(NW2,-12) C GO TO 70 C60 NW2 = SHIFT(NW2,12) C NN = AND(NW2,M1234) C BCD4(I+4) = OR(NN,BLANK) C NW2 = SHIFT(NW2,24) C NN = AND(NW2,M1234) C BCD4(I+5) = OR(NN,BLANK) C NW2 = SHIFT(NW2,12) C70 NW1 = AND(NW1,M12) C NW2 = AND(NW2,M34) C NN = OR(NW1,NW2) C BCD4(I+3) = OR(NN,BLANK) C GO TO 50 C80 CONTINUE C GO TO 140 C C C ENTRY BCDKH8 (BCD4,KHR) C ======================= C 20A4 ----> A80 C C INPUT - BCD4 = BCD ARRAYS (OF DIMENSION NWDS). BCD DATA ARE IN C A4 FORMAT C OUTPUT - KHR = CHARACTER STRING IN CHARACTER*80, CHARACTER*100, C AND CHARACTER*2 C C NWDS = 20 C GO TO 100 C C ENTRY BCDKH7 (BCD4,KHR) C ======================= C 18A4 ----> A72 C C NWDS = 18 C GO TO 100 C C ENTRY BCDKH2 (BCD4,KHR) C ======================= C 2A4 ----> A8 C C NWDS = 2 C C100 I =-5 C II = 0 C110 I = I+5 C IF (I .GE. NDWS) GO TO 140 C II = II+1 C NW1 = AND(BCD4(I+1),M1234) C NW2 = SHIFT(BCD4(I+2),-24) C NW2 = AND(NW2,M5678) C KHR(II) = OR(NW1,NW2) C IF (I+2 .GE. NWDS) GO TO 120 C NW3 = SHIFT(BCD4(I+3),12) C NW2 = AND(NW3,M90) C KHR(II) = OR(KHR(II),NW2) C II = II+1 C KHR(II) = AND(NW3,M12) C NW3 = SHIFT(BCD4(I+4),-12) C NW1 = AND(NW3,M3456) C NM3 = SHIFT(BCD4(I+5),-36) C NW2 = AND(NW3,M7890) C NW3 = OR(NW1,NW2) C KHR(II) = OR(KHR(II),NW3) C GO TO 110 C120 KHR(II) = OR(KHR(II),BLK90) C C140 RETURN C END C C C SUBROUTINE KHRBCD (KHR80,BCD4) C C 64-BIT MACHINE, UNIX VERSION C ============================ C C THIS GROUP OF ROUTINES ARE CALLED BY XREAD, RCARD2, AND XRCARD C C CHARACTER*100 KHR100, KDUM C CHARACTER*80 KHR80 , K80 C CHARACTER*72 KHR72 , K72 C CHARACTER*8 KHR8 , K8, BCD4(1) C C EQUIVALENCE (KDUM,K100,K80,K72,K8) C C C SUBROUTINE KHRBCD (KHR80,BCD4) C ============================== C A80 ----> 20A4 C C K80 = KHR80 C NWDS = 20 C GO TO 100 C C C ENTRY KHRBC1 (KHR100,BCD4) C ========================== C A100 ----> 25A4 C C KDUM = KHR100 C NWDS = 25 C GO TO 100 C C C ENTRY KHRBC2 (KHR8,BCD4) C ======================== C A8 ----> 2A4 C C K8 = KHR8 C NWDS = 2 C C 100 I2 = 0 C DO 200 I = 1,NWDS C I1 = I2 + 1 C I2 = I2 + 4 C BCD4(I) = KDUM(I1:I2) C 200 CONTINUE C GO TO 800 C C C ENTRY BCDKH8 (BCD4,KHR80) C ========================= C 20A4 ----> A80 C C NWDS = 20 C GO TO 300 C C C ENTRY BCDKH7 (BCD4,KHR72) C ========================= C 18A4 ----> A72 C C NWDS = 18 C GO TO 300 C C C ENTRY BCDKH2 (BCD4,KHR8) C ======================== C 2A4 ----> A8 C C NWDS = 2 C C 300 I2 = 0 C DO 400 I = 1,NWDS C I1 = I2 + 1 C I2 = I2 + 4 C KDUM(I1:I2) = BCD4(I) C 400 CONTINUE C IF (NWDS-18) 500,600,700 C C 500 KHR8 = K8 C GO TO 800 C C 600 KHR72 = K72 C GO TO 800 C C 700 KHR80 = K80 C 800 RETURN C END ================================================ FILE: mds/khrfn1.f ================================================ INTEGER FUNCTION KHRFN1 (WORD1,I,WORD2,J) C C CHARACTER-FUNCTIONS 1,2,3,4, AND 5 WERE WRITTEN BY G.CHAN/UNISYS C TO STANDARDIZE NASTRAN BCD-WORD BYTE PROCESSING. C C NOTE - THE INPUT WORD(S) ARE INTEGERS OR REALS, HOLDING BCD TYPE C DATA. (NOT CHARACTER) C BYTE COUNTS FROM LEFT TO RIGHT C C THESE FIVE CHARACTER FUNCTIONS ARE COMPLETELY MACHINE INDEPENDENT C C KHRFN1 REPLACES THE I-TH BYTE OF WORD 1 BY THE J-TH BYTE OF WORD2 C E.G. WORD1=ABCD, WORD2=1234 C KHRFN1(WORD1,3,WORD2,2) GIVES AB2D C C ABSOLUTE VALUES OF I AND J ARE USED C C THE CODE BELOW WORKS WITH ALL MACHINES. HOWEVER, SEE THE C SIMPLIFIED VERSION FURTHER DOWN. C C INTEGER WORD1(1),WORD2(1),TEMP(2) C CHARACTER*8 TEMP8 C C TEMP(1) = WORD1(1) C TEMP(2) = WORD2(1) C CALL BCDKH2 (TEMP,TEMP8) C II = IABS(I) C JJ = IABS(J) + 4 C TEMP8(II:II) = TEMP8(JJ:JJ) C CALL KHRBC2 (TEMP8,TEMP) C KHRFN1 = TEMP(1) C C SIMPLIFIED VERSION C C FOR MACHINES (CDC, IBM, VAX, AND GRAY) THAT ALLOW EQUIVALENCE C BETWEEN CHARACTERS AND INTEGER VARIABLES, THE FOLLOWING SIMPLIFIED C CODE CAN BE USED. C INTEGER WORD1(1),WORD2(1),TEMP1,TEMP2 CHARACTER*4 TEMPC1,TEMPC2 C CHARACTER*n TEMPC1,TEMPC2 C (WHERE n is 10 for CDC, 8 for 64-BIT UNIX and C 4 for VAX and IBM) EQUIVALENCE (TEMP1,TEMPC1), (TEMP2,TEMPC2) C TEMP1 = WORD1(1) TEMP2 = WORD2(1) II = IABS(I) JJ = IABS(J) TEMPC1(II:II) = TEMPC2(JJ:JJ) KHRFN1 = TEMP1 RETURN C C DEC/ULTRIX VERSION C ================== C THE ABOVE VAX VERSION DOES NOT WORK IN DEC/ULTRIX(RISC) C C INTEGER TEMP1,TEMP2,WORD1,WORD2 C CHARACTER*1 TMP1(4),TMP2(4) C EQUIVALENCE (TEMP1,TMP1(1)),(TEMP2,TMP2(1)) C C TEMP1 = WORD1 C TEMP2 = WORD2 C II = IABS(I) C JJ = IABS(J) C TMP1(II) = TMP2(JJ) C KHR = TEMP1 C RETURN C C CDC VERSION C =========== C THE CHARACTER OPERATIONS IN CDC MACHINE ARE EXTREMELY SLOW. C THE FOLLOWING CODE, USING SHIFT/AND/OR IS 2 TO 3 TIMES C FASTER C C INTEGER WORD1,WORD2,MASK1(4),MASK2(4),BLANK C DATA MASK1 / O"77000000000000000000", O"00770000000000000000", C 1 O"00007700000000000000", O"00000077000000000000"/ C DATA MASK2 / O"00777777000000000000", O"77007777000000000000", C 1 O"77770077000000000000", O"77777700000000000000"/ C DATA BLANK / O"00000000555555555555"/ C C II = IABS(I) C JJ = IABS(J) C KK = (JJ-II)*6 C JJ = SHIFT(WORD2,KK) C KK = AND(JJ,MASK1(II)) C JJ = AND(WORD1,MASK2(II)) C II = OR(JJ,KK) C KHRFN1 = OR(II,BLANK) C RETURN C C C UNIVAC VERSION (1988 ORIGINAL) C ============================== C C INTEGER WORD1(1),WORD2(1) C CHARACTER W1(8)*1 ,W4*4, W8*8 C EUIVALENCE (W1(1),W4,W8) C C WRITE (W8,10) WORD1(1),WORD2(1) C 10 FORMAT (2A4) C II = IABS(I) C JJ = IABS(J) + 4 C W1(II) = W1(JJ) C READ (W4,20) KHRFN1 C 20 FORMAT (A4) C RETURN C END ================================================ FILE: mds/khrfn4.f ================================================ INTEGER FUNCTION KHRFN4 (WORD) C C REVERSE BYTES FOR SORTING (USED MAINLY BY THE VAX MACHINE) C INTEGER WORD(1), W1, W2 CHARACTER*1 C1(4), C2(4) EQUIVALENCE (C1(1),W1),(C2(1),W2) C W1=WORD(1) C2(1)=C1(4) C2(2)=C1(3) C2(3)=C1(2) C2(4)=C1(1) KHRFN4=W2 RETURN C C CDC VERSION C =========== C C CHARACTER*1 WORD(10),C2(10) C C C2(1)=WORD(4) C C2(2)=WORD(3) C C2(3)=WORD(2) C C2(4)=WORD(1) C DO 10 J=5,10 C 10 C2(J)=WORD(J) C KHRFN4=ISWAP(C2) C END ================================================ FILE: mds/klock.f ================================================ SUBROUTINE KLOCK (ICPUSC) C C THIS SUBROUTINE OBTAINS THE CURRENT CPU TIME AS AN INTEGER VALUE C CALL CPUTIM (ICPUSC, ICPUSC, 0) RETURN END ================================================ FILE: mds/mapfns.f ================================================ FUNCTION MAPFNS (I) C C THIS FUNCTION PROVIDES ENTRIES FOR VARIOUS FUNCTIONS C ON THE VAX VERSION OF NASTRAN C (THIS ROUTINE WAS PREVIOUSLY CALLED 'VAXFNS') C INTEGER AND, ANDF, COMPLF, ORF, RSHIFT, XORF COMMON /MACHIN/ M(3), LQRO C MAPFNS = 0 RETURN C ENTRY AND (I,J) C ============== AND = IAND(I,J) RETURN C ENTRY ANDF (I,J) C ================ ANDF = IAND(I,J) RETURN C ENTRY COMPLF (I) C ================ COMPLF = NOT(I) RETURN C ENTRY LOCFX (I) C =============== K = LQRO/1000 LOCFX = LOC(I)/K RETURN C ENTRY LSHIFT (I,J) C ================== LSHIFT = ISHFT(I,J) RETURN C ENTRY ORF (I,J) C =============== ORF = IOR (I,J) RETURN C ENTRY RSHIFT (I,J) C ================== RSHIFT = ISHFT(I,-J) RETURN C ENTRY XORF (I,J) C ================ XORF = IEOR (I,J) RETURN C END ================================================ FILE: mds/nasopn.f ================================================ SUBROUTINE NASOPN ( *, LU, DSN ) CHARACTER*80 IFILE, DSN INCLUDE 'NASNAMES.COM' LOGICAL IEXIST KLEN = INDEX( RFDIR, ' ' ) IFILE = RFDIR(1:KLEN-1) // '/NASINFO' DSN = IFILE INQUIRE ( FILE=IFILE, EXIST=IEXIST ) IF ( .NOT. IEXIST ) GO TO 100 OPEN ( UNIT=LU, FILE=IFILE, STATUS='OLD', ERR=100 ) RETURN 100 RETURN 1 END ================================================ FILE: mds/nastim.f ================================================ SUBROUTINE NASTIM (IHR, IMN, ISC, CPUSEC) REAL ARRAY(2) CALL ETIME(ARRAY) SECS = ARRAY(2) IHR = SECS / 3600. IMN = ( SECS - 3600.*IHR ) / 60. ISC = SECS - ( 3600.*IHR ) - ( 60.*IMN ) CPUSEC = SECS RETURN END ================================================ FILE: mds/nastrn.f ================================================ PROGRAM NASTRN C CHARACTER*80 VALUE CHARACTER*5 TMP INTEGER SPERLK REAL SYSTM(94) COMMON / LSTADD / LASTAD COMMON / SYSTEM / ISYSTM(94),SPERLK COMMON / SOFDSN / SDSN(10) COMMON / LOGOUT / LOUT COMMON / RESDIC / IRDICT, IROPEN COMMON / ZZZZZZ / IZ(14000000) COMMON / DBM / IDBBAS, IDBFRE, IDBDIR, INDBAS, INDCLR, INDCBP &, NBLOCK, LENALC, IOCODE, IFILEX, NAME, MAXALC &, MAXBLK, MAXDSK, IDBLEN, IDBADR, IBASBF, INDDIR &, NUMOPN, NUMCLS, NUMWRI, NUMREA, LENOPC INCLUDE 'NASNAMES.COM' CHARACTER*80 SDSN EQUIVALENCE ( ISYSTM, SYSTM ) LENOPC = 14000000 C C SAVE STARTING CPU TIME AND WALL CLOCK TIME IN /SYSTEM/ C ISYSTM(18) = 0 CALL SECOND (SYSTM(18)) CALL WALTIM (ISYSTM(32)) C C EXECUTE NASTRAN SUPER LINK C LEN = 80 VALUE = ' ' CALL BTSTRP CALL GETENV ( 'DBMEM', VALUE ) READ ( VALUE, * ) IDBLEN CALL GETENV ( 'OCMEM', VALUE ) READ ( VALUE, * ) IOCMEM IF ( IOCMEM .LE. LENOPC ) GO TO 10 PRINT *,' LARGEST VALUE FOR OPEN CORE ALLOWED IS:',LENOPC CALL MESAGE ( -61, 0, 0 ) 10 IF ( IDBLEN .NE. 0 ) IDBLEN = LENOPC - IOCMEM LASTAD = LOCFX( IZ( IOCMEM ) ) IF ( IDBLEN .NE. 0 ) IDBADR = LOCFX( IZ( IOCMEM+1 ) ) LENOPC = IOCMEM CALL DBMINT LOUT = 3 IRDICT = 4 SPERLK = 1 ISYSTM(11) = 1 VALUE = ' ' CALL GETENV ( 'RFDIR', RFDIR ) VALUE = ' ' CALL GETENV ( 'DIRCTY', DIRTRY ) LEN = INDEX( DIRTRY, ' ' ) - 1 DO 20 I = 1, 90 IF ( I .LE. 9 ) WRITE ( TMP, 901 ) I IF ( I .GT. 9 ) WRITE ( TMP, 902 ) I 901 FORMAT('scr',I1) 902 FORMAT('scr',I2) DSNAMES( I ) = DIRTRY(1:LEN)//'/'//TMP 20 CONTINUE CALL GETENV ( 'LOGNM', LOG ) DSNAMES(3) = LOG CALL GETENV ( 'OPTPNM', OPTP ) DSNAMES(7) = OPTP CALL GETENV ( 'NPTPNM', NPTP ) DSNAMES(8) = NPTP CALL GETENV ( 'FTN11', OUT11 ) DSNAMES(11) = OUT11 CALL GETENV ( 'FTN12', IN12 ) DSNAMES(12) = IN12 CALL GETENV ( 'FTN13', VALUE ) DSNAMES(13) = VALUE CALL GETENV ( 'FTN14', VALUE ) DSNAMES(14) = VALUE CALL GETENV ( 'FTN15', VALUE ) DSNAMES(15) = VALUE CALL GETENV ( 'FTN16', VALUE ) DSNAMES(16) = VALUE CALL GETENV ( 'FTN17', VALUE ) DSNAMES(17) = VALUE CALL GETENV ( 'FTN18', VALUE ) DSNAMES(18) = VALUE CALL GETENV ( 'FTN19', VALUE ) DSNAMES(19) = VALUE CALL GETENV ( 'FTN20', VALUE ) DSNAMES(20) = VALUE CALL GETENV ( 'FTN21', VALUE ) DSNAMES(21) = VALUE CALL GETENV ( 'PLTNM', PLOT ) DSNAMES(10) = PLOT CALL GETENV ( 'DICTNM', DIC ) DSNAMES(4) = DIC CALL GETENV ( 'PUNCHNM', PUNCH ) DSNAMES(1) = PUNCH CALL GETENV ( 'SOF1', VALUE ) SDSN(1) = VALUE CALL GETENV ( 'SOF2', VALUE ) SDSN(2) = VALUE CALL GETENV ( 'SOF3', VALUE ) SDSN(3) = VALUE CALL GETENV ( 'SOF4', VALUE ) SDSN(4) = VALUE CALL GETENV ( 'SOF5', VALUE ) SDSN(5) = VALUE CALL GETENV ( 'SOF6', VALUE ) SDSN(6) = VALUE CALL GETENV ( 'SOF7', VALUE ) SDSN(7) = VALUE CALL GETENV ( 'SOF8', VALUE ) SDSN(8) = VALUE CALL GETENV ( 'SOF9', VALUE ) SDSN(9) = VALUE CALL GETENV ( 'SOF10', VALUE ) SDSN(10) = VALUE OPEN ( 3, FILE=DSNAMES(3) ,STATUS='UNKNOWN') IF ( DSNAMES(11) .NE. 'none' ) & OPEN ( 11, FILE=DSNAMES(11),STATUS='UNKNOWN') IF ( DSNAMES(12) .NE. 'none' ) & OPEN ( 12, FILE=DSNAMES(12),STATUS='UNKNOWN') IF ( DSNAMES(10) .NE. 'none' ) & OPEN ( 10, FILE=DSNAMES(10),STATUS='UNKNOWN') IF ( DSNAMES(4) .NE. 'none' ) & OPEN ( 4, FILE=DSNAMES(4),STATUS='UNKNOWN') IF ( DSNAMES(1) .NE. 'none' ) & OPEN ( 1, FILE=DSNAMES(1),STATUS='UNKNOWN') CALL XSEM00 STOP END ================================================ FILE: mds/numtyp.f ================================================ FUNCTION NUMTYP ( IVALUE ) C CHARACTER * 2 BYTE(4) CHARACTER * 8 WORD C EQUIVALENCE ( BYTE, WORD ) C C WRITE(6,40646) IVALUE 40646 FORMAT(' NUMTYP,IVALUE=',Z9) IF ( IVALUE .EQ. 0 ) GO TO 200 WRITE ( WORD, 2000 ) IVALUE IF ( BYTE(1) .EQ. ' ' ) GO TO 210 IF ( BYTE(1) .EQ. '00' ) GO TO 210 IF ((BYTE(1) .EQ. '07'.OR. BYTE(1) .EQ. ' 7') .AND. & BYTE(2) .EQ. 'FF' .AND. & BYTE(3) .EQ. 'FF' .AND. & BYTE(4) .EQ. 'FF' ) GO TO 210 IF ( BYTE(1) .EQ. '7F' .AND. & BYTE(2) .EQ. 'FF' .AND. & BYTE(3) .EQ. 'FF' .AND. & BYTE(4) .EQ. 'FF' ) GO TO 210 IF ( BYTE(1) .EQ. 'FF' ) GO TO 210 DO 100 I = 1, 4 IF ( BYTE(I) .LT. '1F' .OR. BYTE(I) .GT. '5E' ) GO TO 220 100 CONTINUE GO TO 230 C C VALUE IS ZERO C 200 NUMTYP = 0 GO TO 700 C C VALUE IS INTEGER C 210 NUMTYP = 1 GO TO 700 C C VALUE IS REAL C 220 NUMTYP = 2 GO TO 700 C C VALUE IS ALPHA C 230 NUMTYP = 3 C 700 CONTINUE RETURN C***** 2000 FORMAT(Z8) C***** END ================================================ FILE: mds/open.f ================================================ SUBROUTINE OPEN(*,NAMFIL,BUFF,OP) C****** C C OPEN IS AN INTERMEDIARY TO ENTRY POINT QOPEN IN SUBROUTINE GINO. C THE MAIN TASK OF OPEN IS TO INSURE THAT DATA BLOCKS WHICH WERE C WRITTEN AND CLOSED OFF THE LOAD POINT HAVE AN END-OF-FILE BEFORE C THEY ARE READ. C C****** INTEGER BUFF(1), OP, XOP, XNAME COMMON /SYSTEM/ ISYSTM(157) INCLUDE 'DSIOF.COM' C C C TEST FOR CONDITION IN WHICH END-OF-FILE IS TO BE WRITTEN C DATA INIT / 0 / IF ( INIT .NE. 0 ) GO TO 5 CALL DSIODD INIT = 1 5 CONTINUE XNAME = NAMFIL IFILEX = 0 CALL GETURN( XNAME ) IF(IFILEX.EQ.0)RETURN 1 10 IF( OP.EQ.1 .OR. OP.EQ.3 ) GO TO 80 IF( NBLOCK+NLR .GT. 7 ) GO TO 12 11 IF( OP .EQ. -2 ) RETURN GO TO 80 12 IF( IPRVOP .EQ. 0 ) GO TO 11 C C DATA BLOCK WAS PREVIOUSLY OPENED TO WRITE AND IS NOW OFF LOAD POINT. C WRITE AN END-OF-FILE. IF SPECIAL CALL, RETURN C CALL QOPEN(*88,NAMFIL,BUFF,3) CALL EOF( NAMFIL ) XOP = 2 IF( OP .EQ. -2 ) XOP = 1 CALL CLOSE( NAMFIL, XOP ) IF( OP .EQ. -2 ) RETURN C C NOW OPEN ACCORDING TO OP. IF NECESSARY, POSITION PRIOR TO EOF C LASNAM = 0 CALL GETURN( NAMFIL ) CALL QOPEN(*88,NAMFIL,BUFF,OP) IF( OP .EQ. 2 ) CALL BCKREC( NAMFIL ) RETURN C C NORMAL OPEN CALL C 80 CALL QOPEN(*88,NAMFIL,BUFF,OP) CWKBNB NCL93007 11/94 C SET THE COUNT FOR THE TOTAL NUMBER OF STRINGS AND TERMS C TO ZERO IF FILE IS BEING OPENED FOR WRITE IF ( OP .NE. 1 ) GO TO 70 FCB( 16, IFILEX ) = 0 FCB( 17, IFILEX ) = 0 70 CONTINUE CWKBNE NCL93007 11/94 RETURN 88 RETURN 1 END ================================================ FILE: mds/pack.f ================================================ SUBROUTINE PACK ( A, FILE, MCB ) INCLUDE 'DSIOF.COM' INCLUDE 'PAKBLK.COM' INCLUDE 'XNSTRN.COM' COMMON / PACKX / ITYPIN, ITYPOT, IROBGN, LASROW, INCR COMMON / DDIOSV / IFLPOS( 2,80 ) INTEGER FILE, MCB(7) INTEGER A(4) NAME = FILE IBLKC( 1 ) = NAME IBLKC( 2 ) = ITYPOT IBLKC( 3 ) = 0 IBLKC( 4 ) = 0 IBLKC( 7 ) = 0 IBLKC( 8 ) = -1 IBLKC( 9 ) = ITYPIN IBLKC(10 ) = 0 IF ( ITYPIN .LE. 0 .OR. ITYPIN .GT. 4 ) GO TO 10 IF ( ITYPOT .LE. 0 .OR. ITYPOT .GT. 4 ) GO TO 10 GO TO 20 10 CALL DSMSG1( IBLKC ) CALL DSMSG( 118 ) 20 NWDIN = NWRDEL( ITYPIN ) IBLKC( 12) = MCB( 2 ) + 1 CALL DSGEFL IFLPOS( 1,IFILEX ) = FCB( 3, IFILEX ) IFLPOS( 2,IFILEX ) = FCB( 4, IFILEX ) CALL PUTSTR( IBLKC ) IEOR = 0 INDEXA = 0 IROW = IROBGN INDEXB = ( IBLKC( 5 ) - 1 ) * IBLKC( 14 ) + 1 CDIR$ NOVECTOR 100 DO 110 K = 1, NWDIN IF ( A( INDEXA+K ) .NE. 0 ) GO TO 120 110 CONTINUE CDIR$ VECTOR LASIND = (LASROW-IROW+1)*INCR*NWDIN KLIM = LASIND + INCR KLAST = KLIM INCRR = INCR*NWDIN DO 116 KK = 1, NWDIN INDEA1 = INDEXA - 1 + KK DO 115 K = 1, LASIND, INCRR IF ( A(INDEA1 + K) .EQ. 0 ) GO TO 115 IF ( K .LT. KLAST ) KLAST = K GO TO 116 115 CONTINUE 116 CONTINUE NCNT = (( KLAST-1 ) / INCRR) - 1 IF ( KLAST .EQ. KLIM ) NCNT = LASROW - IROW IROW = IROW + NCNT INDEXA= INDEXA + NCNT*(NWDIN*INCR) IEOR = 1 GO TO 150 120 IF ( IBLKC( 7 ) .EQ. 0 ) GO TO 130 IF ( IEOR .EQ. 0 ) GO TO 140 CALL ENDPUT( IBLKC ) CALL PUTSTR( IBLKC ) IBLKC( 7 ) = 0 INDEXB = ( IBLKC( 5 ) - 1 ) * IBLKC( 14 ) + 1 130 IBLKC( 4 ) = IROW 140 IF ( ITYPIN .NE. ITYPOT ) GO TO 1400 CDIR$ NOVECTOR DO 141 K = 1, NWDIN IBASE( INDEXB + K - 1 ) = A( INDEXA + K ) 141 CONTINUE CDIR$ VECTOR GO TO 1401 1400 CALL DSUPKC( ITYPIN, ITYPOT, A( INDEXA+1 ), IBASE( INDEXB )) 1401 CONTINUE IEOR = 0 INDEXB = INDEXB + IBLKC( 11 ) IBLKC( 7 ) = IBLKC( 7 ) + 1 IBLKC(10 ) = IBLKC( 10 ) + IBLKC( 11 ) IF ( IBLKC( 7 ) .LT. IBLKC( 6 ) ) GO TO 150 CALL ENDPUT( IBLKC ) CALL PUTSTR( IBLKC ) IBLKC( 7 ) = 0 INDEXB = ( IBLKC( 5 ) - 1 ) * IBLKC( 14 ) + 1 150 INDEXA = INDEXA + ( INCR*NWDIN ) IROW = IROW + 1 IF ( IROW .LE. LASROW ) GO TO 100 CALL DSBPNK( IBLKC, MCB ) RETURN END ================================================ FILE: mds/putstr.f ================================================ SUBROUTINE PUTSTR ( BLOCK ) ******************************************************** * * FORMAT OF THE I/O MATRIX CONTROL TABLE * * WORD QUARTER DESCRIPTION * 1 - GINO FILE NAME * 2 - TYPE OF ELEMENTS (1,2,3,4) - REFERS TO TYPE * BEING WRITTEN (BLDPK--) TO THE BUFFER OR * TYPE OF ELEMENTS READ (INTPK--) FROM THE BUFFER * 3 - TRAILERS TO BE INCLUDED (0=NO,1=YES) ON WRITE * TO BUFFER OR ARE INCLUDED ON READ FROM BUFFER * 4 - ROW NUMBER * 5 - INDEX TO STRING (RELATIVE TO /XNSTRN/) * 6 - NUMBER OF ELEMENTS AVAIL. OR RESIDE IN STRING * 7 - NUMBER OF ELEMENTS WRITTEN TO STRING BY USER * 8 - BEGIN/END FLAG (-1, FIRST CALL FOR COLUMN, * =0, INTERMEDIATE CALL; =1, LAST CALL) * 9 - INTERIM FLAG FOR COLUMN ('C','P','X') * 10 - COUNT OF NON-ZERO WORDS PER COLUMN * 11 - NUMBER OF WORDS PER ELEMENT (SEE WORD 2) * 12 - COLUMN NUMBER * 13 - TYPE OF INPUT (BLDPK) OR OUTPUT (INTPK) * 14 - DIVISOR FOR COMPUTING BLOCK(5) * 15 - ROW NUMBER ON INPUT (BLDPK) * ********************************************************************** INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER BLOCK( 15 ), IDIV( 4 ) DATA IDIV / 1, 2, 1, 2 / NAME = BLOCK( 1 ) CALL DSGEFL LIM = INDBAS + NBUFF + 2 IF ( BLOCK( 8 ) .EQ. -1 ) GO TO 10 NWORDS = BLOCK( 11 ) IFLG = BLOCK( 9 ) GO TO 30 10 NWORDS = NWRDEL( BLOCK( 2 ) ) BLOCK( 14 ) = IDIV( BLOCK( 2 ) ) BLOCK( 11 ) = NWORDS BLOCK( 8 ) = 0 BLOCK( 9 ) = IDSC IFLG = IDSC IF ( ( LIM-INDCBP-6-BLOCK(3)*2 ).GE. NWORDS ) GO TO 20 IBASE( INDCBP ) = IDSEB CALL DSWRNB LIM = INDBAS + NBUFF + 2 20 IBASE( INDCBP+1 ) = IDSCH + BLOCK( 3 )*MULQ3 + BLOCK( 2 ) IBASE( INDCBP+2 ) = BLOCK( 12 ) INDCBP = INDCBP + 2 30 NLR = IABS( MOD( INDCBP+2, BLOCK( 14 ) ) ) NELM = ( LIM - INDCBP - NLR - 6 - BLOCK( 3 )*2 ) / NWORDS IF ( NELM .GE. 1 ) GO TO 50 IFLG = BLOCK( 9 ) IF ( IFLG .EQ. IDSX ) GO TO 40 IFLG = IDSP BLOCK( 9 ) = IDSX 40 IBASE( INDCLR ) = IDSSB + IFLG + ( INDCBP - INDCLR ) IBASE( INDCBP + 1 ) = IDSRT + IFLG + ( INDCLR-INDBAS+1 ) IBASE( INDCBP + 2 ) = IDSEB INDCLR = INDCBP + 2 CALL DSWRNB LIM = INDBAS + NBUFF + 2 GO TO 30 50 BLOCK( 6 ) = NELM BLOCK( 7 ) = 0 BLOCK( 5 ) = ( INDCBP+NLR+2 ) / BLOCK( 14 ) + 1 IF ( NLR .EQ. 0 ) GO TO 70 IBASE( INDCBP + 1 ) = IDSSD INDCBP = INDCBP + 1 70 CALL DSSDCB RETURN END ================================================ FILE: mds/qopen.f ================================================ SUBROUTINE QOPEN ( *, NAMFIL, BUFF, IOP ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' COMMON / SYSTEM / ISYSBF, DUM1(77), IDIAG, DUM2(21) INTEGER BUFF(10), DNAME(2), ITRL(7) DATA INIT / 0 / NAME = NAMFIL IOCODE = IOP IF ( INIT .NE. 0 ) GO TO 10 IBASBF = LOCFX( IBASE ) CALL DSIODD NBUFF = ISYSBF - 4 NBFZ = 1 IF ( LENWPB .NE. 0 ) NBFZ = NBUFF / LENWPB + .1 INIT = 1 10 IF ( IAND( IDIAG, 2**14 ) .NE. 0 ) CALL DSMSG ( 1 ) LOCBUF = LOCFX( BUFF ) INDBAS = LOCBUF - IBASBF + 1 IF ( MOD( INDBAS,2 ) .EQ. 0 ) INDBAS = INDBAS + 1 IF ( FCB( 2, IFILEX ) .EQ. 0 ) GO TO 20 CALL DSMSG( 5 ) 20 DO 30 I =1, MAXPRI IBASTS = FCB( 2, I ) IF ( IBASTS .EQ. 0 ) GO TO 30 IBASHI = IBASTS + ISYSBF - 2 IBASLO = IBASTS - ISYSBF IF( INDBAS .LE. IBASLO .OR. INDBAS .GT. IBASHI ) GO TO 30 CALL DSMSG( 3 ) 30 CONTINUE IBASE( INDBAS ) = NAMFIL FCB( 2, IFILEX ) = INDBAS FCB(12, IFILEX ) = INDBAS CALL DBMNAM ( NAME, DNAME, IFILEX ) IF( IOCODE .LE. 1 ) GO TO 40 IF( FCB( 13, IFILEX ) .EQ. DNAME( 1 ) .AND. & FCB( 14, IFILEX ) .EQ. DNAME( 2 ) ) GO TO 35 C CALL DBMSRF( DNAME, IUNI ) C IF ( IUNI .EQ. IFILEX ) GO TO 35 ITRL(1) = NAME CALL RDTRL( ITRL ) DO 32 I = 2, 7 IF ( ITRL(I) .NE. 0 ) GO TO 35 32 CONTINUE IF ( IOCODE .EQ. 3 ) IOCODE = 1 IF ( IOCODE .EQ. 2 ) IOCODE = 0 GO TO 40 35 CONTINUE NBLOCK = FCB( 4,IFILEX ) IF ( NBLOCK .EQ. 0 ) GO TO 40 CALL DBMMGR ( 1 ) INDCLR = FCB( 3, IFILEX ) + INDBAS - 1 INDCBP = INDCLR GO TO 60 40 NBLOCK = 1 FCB( 13, IFILEX ) = DNAME( 1 ) FCB( 14, IFILEX ) = DNAME( 2 ) CALL DBMMGR ( 1 ) INDCLR = INDBAS + 5 INDCBP = INDCLR IF( IOCODE .EQ. 0 ) GO TO 60 IBASE( INDBAS+3 ) = 1 IBASE( INDBAS+4 ) = 0 FCB( 8, IFILEX ) = 0 60 IF ( NBLOCK .EQ. IBASE( INDBAS+3 ) ) GO TO 70 CALL DSMSG ( 102 ) 70 CALL DSSDCB C PRINT *,' QOPEN,UN,CLR,BLK,IOP=',IFILEX,FCB(3,IFILEX), C & FCB(4,IFILEX),IOP RETURN END ================================================ FILE: mds/rdblk.f ================================================ SUBROUTINE RDBLK ( *, FILE, IFIRST, LEFT ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER FILE NAME = FILE CALL DSGEFL C PRINT *,' RDBLK,NAME,IFILEX,INDBAS=',NAME,IFILEX,INDBAS C WRITE(6,40646)(IBASE(INDBAS+K),K=1,8) 40646 FORMAT(' BUFFER=',8(1X,Z8)) IF ( IPRVOP .NE. 0 ) CALL DSMSG( 4 ) IF ( IFIRST .NE. 0 ) GO TO 10 CALL DSRDNB 10 CALL DBMMGR( 9 ) C WRITE(6,44771)(FCB(K,IFILEX),K=1,15) 44771 FORMAT(' RDBLK,FCB=',/,2(5I8,/),2I8,4X,2A4,4X,I8) C INNN = FCB( 12, IFILEX ) C PRINT *,' RDBLK-2,IFILEX,INNN=',IFILEX,INNN C WRITE(6,40646)(IBASE(INNN+K),K=0,7) IBASE( INDBAS+1 ) = IBASE( INDBAS+4 ) IBASE( INDBAS+2 ) = IBASE( INDBAS+4 ) LEFT = NBUFF + 3 - LCW IF ( IBASE( INDBAS+LCW-2) .EQ. IDSEF ) RETURN 1 RETURN END ================================================ FILE: mds/read.f ================================================ SUBROUTINE READ ( *, *, FILE, IDATA, N, IEORFL, M ) INCLUDE 'DSIOF.COM' INCLUDE 'GINOX.COM' INCLUDE 'XNSTRN.COM' INTEGER FILE, IDATA( 2 ) NAME = FILE NWORDS = N IEOR = IEORFL IRETRN = 0 CALL DSGEFL IF ( IPRVOP .EQ. 0 ) GO TO 10 CALL DSMSG ( 4 ) 10 ID = IAND( IBASE( INDCLR ), MASKQ1 ) IF ( ID .NE. IDSEB ) GO TO 30 CALL DBMLBK( LASBLK ) IF ( LASBLK .GT. NBLOCK ) GO TO 20 IRETRN = 1 GO TO 7000 20 CALL DSRDNB ID = IAND( IBASE( INDCLR ), MASKQ1 ) 30 IF ( ID .EQ. IDSRH ) GO TO 50 IF ( ID .EQ. IDSEF ) GO TO 40 CALL DSMSG ( 105 ) 40 INDCLR = INDCLR + 1 INDCBP = INDCLR IRETRN = 1 GO TO 7000 50 IWORDS = IAND( IBASE( INDCLR ), MASKH2 ) IDIFF = INDCBP - INDCLR IWORDS = IWORDS - IDIFF IREQ = IABS( NWORDS ) IF ( IREQ .GT. IWORDS ) GO TO 80 IF ( NWORDS .LE. 0 ) GO TO 70 L = 1 ILIM = INDCBP + NWORDS - 1 DO 60 K = INDCBP, ILIM IDATA( L ) = IBASE( K+1 ) L = L + 1 60 CONTINUE 70 INDCBP = INDCBP + IREQ GO TO 90 80 CALL DSRDMB ( IDATA, M ) 90 IF ( IEOR .EQ. 0 ) GO TO 7000 CALL DSSKRC 7000 CALL DSSDCB IF ( IRETRN .EQ. 2 ) RETURN 2 IF ( IRETRN .EQ. 1 ) RETURN 1 RETURN END ================================================ FILE: mds/rectyp.f ================================================ SUBROUTINE RECTYP ( FILE, ITYPE ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER FILE NAME = FILE CALL DSGEFL 5 ID = IAND( IBASE( INDCLR ), MASKQ1 ) IF ( ID .EQ. IDSSB ) GO TO 10 IF ( ID .EQ. IDSEB ) GO TO 20 ITYPE = 0 GO TO 7000 10 ITYPE = 1 GO TO 7000 20 CALL DSRDNB CALL DSSDCB GO TO 5 7000 RETURN END ================================================ FILE: mds/rewind.f ================================================ SUBROUTINE REWIND ( FILE ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER FILE NAME = FILE CALL DSGEFL C CALL DBMMGR FOR REWIND SO TO SET BUFFER ADDRESS CORRECTLY CALL DBMMGR ( 3 ) NBLOCK = FCB( 4, IFILEX ) IF ( IPRVOP .EQ. 0 ) GO TO 30 C IF FILE OPEN FOR WRITE, THEN INITIAL BUFFER AND BLOCK NUMBER IBASE( INDBAS+3 ) = 1 IBASE( INDBAS+4 ) = 6 CWKBNB NCL93007 11/94 C SET THE COUNTER FOR NUMBER OF STRINGS AND TERMS TO ZERO FCB( 16, IFILEX ) = 0 FCB( 17, IFILEX ) = 0 CWKBNE NCL93007 11/94 30 INDCLR = INDBAS+5 INDCBP = INDCLR CALL DSSDCB RETURN END ================================================ FILE: mds/rfopen.f ================================================ SUBROUTINE RFOPEN (MEMBER,LU) C C THIS .MIS ROUTINE OPENS THE RIGID FORMAT FILE, AS AN ORDINARY C FORTRAN FILE. USE REGULAR FORTRAN READ TO READ THE FILE C C ENTRY POINT RFCLSE TO CLOSE IT C C IF RIGID FORMAT FILE OPENS OK, LU IS THE FORTRAN UNIT NUMBER C OTHERWISE, LU = 0 C C THIS ROUTINE REPLACES ALL THE MACHINE DEPENDENT DSXOPN, DSXCLS, C DSXREA, AND DSXFRE ROUTINES. PLUS DSXRDS, DSXIO, AND DSXSIO IN C IBM VERSION, AND DSXRET AND DSXZER IN CDC C C NOTE - FORTRAN UNIT 'IN' IS USED TO READ THE RIGID FORMAT FILE. C UNIT 'IN' IS SYNCHRONOUS WITH ANY READFILE OR NESTED C READFILE OPERATION. C C WRITTEN BY G.CHAN/UNISYS. 10/1990 C INTEGER MEMBER(2),FACSF CHARACTER*1 BK,MB1(8) CHARACTER MB5*5,MB6*6 CHARACTER*8 MB8,FREE8,ADD(3) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 CWKBI CHARACTER*44 RFDIR, DSN COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /MACHIN/ MACH COMMON /XXREAD/ IN COMMON /SYSTEM/ IBUF,NOUT,NOGO EQUIVALENCE (MB1(1),MB5,MB6,MB8) DATA BK, ADD(1), ADD(3), FREE8 / 1 ' ' , '@ADD,E ',' . ', '@FREE '/ C CALL A42K8 (MEMBER(1),MEMBER(2),MB8) IF (MACH .EQ. 3) GO TO 30 IN = IN + 1 IF (IN .LT. 60) IN = 60 J = 5 IF (MB1(6) .NE. BK) J = 6 C C DUMMY IBM UNVC CDC VAX ULTRIX SUN AIX HP C S/G MAC CRAY CNVX NEC FUJTSU DG AMDL PRIME C 486 DUMMY ALFA RESV C ---- ---- ---- ---- ---- ------ ---- ---- ----- GO TO ( 60, 50, 30, 50, 50, 50, 50, 50, 50, 1 50, 70, 70, 70, 70, 70, 70, 70, 70, 2 50, 60, 50, 70), MACH C C UNIVAC ONLY - C ADD FILE TO INPUT STREAM C 30 ADD(2) = MB8 J = FACSF(ADD) LU = 5 GO TO 130 50 CONTINUE RFDIR = ' ' CALL GETENV ( 'RFDIR', RFDIR ) DO 55 I = 44, 1, -1 IF ( RFDIR( I:I ) .EQ. ' ' ) GO TO 55 LENR = I GO TO 56 55 CONTINUE LENR = 44 56 DSN = ' ' DSN = RFDIR(1:LENR) // '/' // MB6 CWKBR IF (J .EQ. 6) OPEN (UNIT=IN,FILE=MB6,ACCESS='SEQUENTIAL',ERR=100, OPEN (UNIT=IN,FILE=DSN,ACCESS='SEQUENTIAL',ERR=100, 1 FORM='FORMATTED',STATUS='OLD') GO TO 80 C C OTHERS - C 60 GO TO 100 C 70 OPEN (UNIT=IN,FILE=MB8,ACCESS='SEQUENTIAL',ERR=100,STATUS='OLD', 1 FORM='FORMATTED') C C VERIFY FILE EXISTANCE C 80 READ (IN,90,ERR=100,END=100) J 90 FORMAT (A1) REWIND IN LU = IN GO TO 130 C CWKBR100 WRITE (NOUT,110) SFM,MB8 100 WRITE (NOUT,110) SFM,DSN CWKBR 110 FORMAT (A25,', RFOPEN CAN NOT OPEN ',A8) 110 FORMAT (A25,', RFOPEN CAN NOT OPEN ',A44) C IF (MACH.GT.7 .AND. MACH.NE.21) WRITE (NOUT,120) MACH 120 FORMAT (5X,'MACHINE',I4,' IS NOT AVAILABLE/RFOPEN') LU = 0 NOGO = 1 C 130 RETURN C C ENTRY RFCLSE (LU) C ================= C IF (MACH .EQ. 3) GO TO 150 IF (LU .LT. 60) WRITE (NOUT,140) SFM,LU 140 FORMAT (A25,'. RFCLSE/RFOPEN ERROR. LU =',I4) CLOSE (UNIT=LU) IN = IN - 1 IF (IN .LT. 60) IN = 0 GO TO 160 C 150 ADD(1) = FREE8 J = FACSF(ADD) 160 LU = 0 RETURN END ================================================ FILE: mds/savpos.f ================================================ SUBROUTINE SAVPOS ( FILE, IPOS ) INCLUDE 'DSIOF.COM' COMMON / DDIOSV / IFLPOS( 2,80 ) INTEGER FILE NAME = FILE CALL DSGEFL IPOS = IFLPOS( 1,IFILEX )*MULQ2 + IFLPOS( 2, IFILEX ) IF (IPRVOP .EQ. 0) & IPOS = FCB(3,IFILEX)*MULQ2 + FCB(4,IFILEX) RETURN END ================================================ FILE: mds/second.f ================================================ SUBROUTINE SECOND (RCPUSC) C C THIS SUBROUTINE OBTAINS THE CURRENT CPU TIME AS A REAL VALUE C CALL CPUTIM (RCPUSC, RCPUSC, 1) RETURN END ================================================ FILE: mds/sgino.f ================================================ SUBROUTINE SGINO C C REVISED 9/90 BY G.CHAN/UNISYS. TO REACTIVATE PLT1 FILE C C THE HIGH POINTS OF PLT1 FILE ARE C NEW 130 COLUMN FORMAT RECORD C MACHINE PORTABLE FILE C NO DATA RECONSTRUCTION REQUIRED WHEN PLT1 IS USED BY AN EXTERNAL C TRANSLATOR PROGRAM C PLT2 FILE PLT1 FILE C --------------------------------- ------------- -------------- C FILE TYPE, SEQUENTIAL FORMATTED NO CARRIGE CTRL CARRIAGE CTRL C RECORD TYPE ASSCII/BINARY* ASCII C RECORD LENGTH 3000 BYTES 130 COLUMNS C FORTRAN FORMAT (10(180A4))* (5(2I3,4I5)) C PLOT COMMANDS PER PHYSICAL RECORD 100 5 C DATA TYPE PER COMMAND (TOTAL) 30 BYTES 26 DECIMALS C COMMAND, P (SEE USER'S MANUAL 1 BYTE 3 DIGITS C CONTROL, C PAGE 4.4-2) 1 BYTE 3 DITITS C FIRST VALUE, R 5 BYTES 5 DIGITS C SECOND VALUE, S 5 BYTES 5 DIGITS C THIRD VALUE, T 5 BYTES 5 DIGITS C FOURTH VALUE, U 5 BYTES 5 DIGITS C FILLER (ALL ZEROS) 8 BYTES NONE C DATA BYTE PACKING YES NO C FILE - EDITED, PRINTED, SCREEN VIEWING NO YES C PORTABLE FILE AMONG MACHINES NO YES C FORTRAN UNIT NUMBER 13 12 C DISC STORAGE REQUIREMENT - 25% LESS C IF MAGNETIC TAPE - TRACK AND PARITY 9,ODD 9,ODD C (* 1. ASCII RECORD, BUT DATA STORED IN BINARY BYTES. C (IN EARLY NASTRAN PLOT TAPE DESIGN, A BYTE HAD 6 C BITS. BUT IT IS NO LONGER TRUE. NOW, A BYTE CAN C BE 6, 8 OR 9 BITS, DEPENDING ON THE MACHINE) C 2. SINCE THE RECORD LENGTH IS 3000 BYTES, A FORMAT C OF (750A4) IS SUFFICIENT) C IMPLICIT INTEGER (A-Z) LOGICAL OPEN,NOPACK INTEGER BUF(1),LBUF(1),A(1),NAME(2),FORMAT(3),FORMTX(3) CHARACTER*7 FORTN,NONE COMMON /SYSTEM/ IDUM1,NOUT,SKPSYS(36),NBPC,NBPW,NCPW CWKBNB CHARACTER*80 DSNAMES COMMON / DSNAME / DSNAMES(80) CWKBNE DATA OPEN /.FALSE. /, NAME / 4H SGI, 2HNO / DATA PLT1,PLT2,PLTX / 4HPLT1, 4HPLT2, 0 / DATA FORMAT/ 4H(10( , 4H180A, 4H4)) /, 1 FORMTX/ 4H(5(2 , 4HI3,4, 4HI5)) / DATA FORTN , NONE / 'FORTRAN', 'NONE ' / DATA SHIFT , NBITS / 0, 0 / C GO TO 250 C C ENTRY SOPEN (*,PLTAPE,BUF,IBFSZ) C ================================ C C PLT2 FILE - C IBFSZ (FIRST WORD OF /XXPARM/), IS THE PLOT FILE BUFFER SIZE. IT C IS SET EQUAL TO PDATA(12,1)/NCPW IN PLTSET. PDATA(12,1) IS C INITIALIZED IN PLOTBD VIA DATA(12,1) WHICH IS EQUIVALENT TO C PBFSIZ(1,1). COMPLICATED ISN'T IT? C C (PBFSIZ(1,1)=3000, NCPW=4, IBFSZ AND BFSZ ARE THEREFORE =750 EACH C EACH PHYSICAL RECORD HOLDS 100 (=3000/30) PLOT COMMANDS) C C NOTE - BOTH PLT2 AND PLT1 ARE SEQUENTIAL FILES, NOT DIRECT ACCESS C FILES. THE RECORD LENGTH, IF USED, IS BASED ON NO. CHARACTERS PER C WORD C PTAPE = 10 IF (PLTAPE.NE.PLT1 .AND. PLTAPE.NE.PLT2) RETURN 1 PLTX = PLTAPE NOPACK = PLTX .EQ. PLT1 IF (NOPACK) GO TO 10 C C PLT2 - C BFSZ = IBFSZ IRECSZ = NCPW*BFSZ NOFF = LOCFX(BUF(1)) - LOCFX(LBUF(1)) GO TO 20 C C PLT1 - C CWKBR 10 PTAPE = 12 10 CONTINUE NOPACK = .TRUE. BFSZ = 30 IRECSZ = (BFSZ/6)*(2*3 + 4*5) NONE = FORTN FORMAT(1) = FORMTX(1) FORMAT(2) = FORMTX(2) FORMAT(3) = FORMTX(3) C C NOFF CAN BE SET TO ZERO IF LBUF IS LOCALLY DIMENSIONED TO 30 WORDS C AND OPEN CORE IS NOT USED C NOFF = LOCFX(BUF(1)) - LOCFX(LBUF(1)) C C OPEN STATEMENT ADDED TO SET OUTPUT RECORDSIZE GREATER THAN DEFAULT C (COMMENTS FORM G.C./UNISYS 1989 - C RECORDSIZE IS NOT ALLOWED FOR SEQUENTIAL FILE IN SOME COMPILERS, C (e.g. DEC/ULTRIX(RISC), AND BLOCKSIZE AND ORGANINZATION ARE NOT C DEFINED. RECORDTYPE='FIXED' IS ALSO NOT ALLOWED FOR SEQUENTIAL C FORMATTED FILE. C FOR UNICOS, RECL IS NOT ALLOWED IF ASSCESS=SEQUENTIAL) C C FOR MACHINES THAT DO NOT HAVE 'APPEN' FEATURE C 20 IF (OPEN) GO TO 80 C MA = 'A' C IF (NONE .EQ. 'NONE') MA = 'M' C IF (MACH .EQ IBM) CALL FILEDEF (PTAPE,RECFM,FB(MA)) OPEN (UNIT = PTAPE, CWKBI 1 FILE = DSNAMES(10), 1 STATUS = 'OLD', 2 FORM = 'FORMATTED', 3 ACCESS = 'SEQUENTIAL', 4 IOSTAT = J CHP 5 ,CARRIAGECONTROL = NONE CHP 6 ,RECL = IRECSZ C RECL IS NEEDED BY VAX, AND POSSIBLY OTHER MACHINES) 6 ) IF (J .NE. 0) GO TO 60 30 READ (PTAPE,40,END=50) J 40 FORMAT (A1) GO TO 30 50 BACKSPACE PTAPE GO TO 80 C 60 OPEN (UNIT = PTAPE, CWKBI 1 FILE = DSNAMES(10), 1 STATUS = 'NEW', 2 FORM = 'FORMATTED', 3 ACCESS = 'SEQUENTIAL', 4 IOSTAT = J CHP 5 ,CARRIAGECONTROL = NONE CHP 6 ,RECL = IRECSZ C RECL IS NEEDED BY VAX, AND POSSIBLY OTHER MACHINES) 6 ) IF (J .EQ. 0) GO TO 80 WRITE (NOUT,70) PLTX,PTAPE 70 FORMAT ('0*** SYSTEM FATAL ERROR. SGINO CAN NOT OPEN ',A4, 1 ' FILE, FORTRAN UNIT',I5) CALL MESAGE (-61,0,0) C 80 OPEN = .TRUE. NB = 1 IF (NOPACK) GO TO 210 ASSIGN 100 TO TRA WORD = 0 NBITS = NBPW - NBPC SHIFT = NBITS GO TO 250 C C ENTRY SWRITE (PLTAPE,A,N,EORX) C ============================== C C SWRITE IS CALLED ONLY BY WPLT10 C IF (PLTAPE .NE. PLTX) GO TO 180 EOR = EORX NW = 1 90 IF (NOPACK) GO TO 120 C C ORIGINAL BYTE PACKING LOGIC C 100 IF (NW .GT. N) GO TO 110 CUNIX IF (A(NW) .NE. 0) WORD = OR(ISHFT(A(NW),SHIFT),WORD) IF (A(NW) .NE. 0) WORD = IOR(ISHFT(A(NW),SHIFT),WORD) NW = NW + 1 IF (SHIFT .EQ. 0) GO TO 105 SHIFT = SHIFT - NBPC GO TO 100 105 LBUF(NB+NOFF) = WORD IF (NB .EQ. BFSZ) GO TO 200 WORD = 0 NB = NB + 1 SHIFT = NBITS GO TO 100 C 110 IF (EOR .EQ. 0) GO TO 250 EOR = 0 IF (SHIFT .NE. NBITS) GO TO 115 NB = NB - 1 IF (NB) 190,190,200 C 115 LBUF(NB+NOFF) = WORD GO TO 200 C C NON BYTE PACKING LOGIC C 120 IF (NW .GT. N) GO TO 125 LBUF(NB+NOFF) = A(NW) NW = NW + 1 NB = NB + 1 IF (NB .LE. BFSZ) GO TO 120 NB = NB - 1 GO TO 200 C 125 IF (EOR .EQ. 0) GO TO 250 EOR = 0 IF (NB .GE. BFSZ) GO TO 135 DO 130 J = NB,BFSZ 130 LBUF(J+NOFF) = 0 135 NB = BFSZ GO TO 200 C C ENTRY SCLOSE (PLTAPE) C ===================== C EOF = 0 C 150 IF (PLTAPE .NE. PLTX) GO TO 180 IF (.NOT.NOPACK .AND. SHIFT.NE.NBITS) GO TO 155 NB = NB - 1 IF (NB) 170,170,160 155 LBUF(NB+NOFF) = WORD 160 ASSIGN 165 TO TRA GO TO 200 165 ASSIGN 100 TO TRA IF (NOPACK) ASSIGN 120 TO TRA 170 IF (EOF .EQ. 0) GO TO 175 ENDFILE PTAPE GO TO 190 175 PLTX = 0 GO TO 190 C 180 WRITE (NOUT,185) PLTX,PLTAPE 185 FORMAT ('0*** SYSTEM FATAL ERROR FROM SGINO. ',A4,' FILE OR ',A4, 1 ' FILE GOT LOST') CALL ERRTRC (NAME) C C ENTRY SEOF (PLTAPE) C =================== C EOF = 1 GO TO 150 C 190 NB = 1 GO TO 250 C 200 WRITE (PTAPE,FORMAT) (LBUF(NOFF+J),J=1,NB) NB = 1 WORD = 0 SHIFT = NBITS GO TO TRA, (100,120,165) C 210 ASSIGN 120 TO TRA C 250 RETURN END ================================================ FILE: mds/skpfil.f ================================================ SUBROUTINE SKPFIL ( FILE, N ) INCLUDE 'DSIOF.COM' INTEGER FILE IF ( N .EQ. 0 ) GO TO 7777 NAME = FILE CALL DSGEFL IRWORD = N IF ( N .GT. 0 ) GO TO 20 IF ( ( INDCLR-INDBAS ) .NE. 5 ) GO TO 10 IF ( NBLOCK .EQ. 1 ) GO TO 7000 10 CALL DSSKFB( N ) GO TO 7000 20 IF ( IPRVOP .NE. 0 ) CALL DSMSG( 4 ) CALL DSSKFF( N ) 7000 CALL DSSDCB 7777 RETURN END ================================================ FILE: mds/sofio.f ================================================ SUBROUTINE SOFIO ( ISOP, IBLKNM, BUF ) INCLUDE 'GINOX.COM' INCLUDE 'DSIOF.COM' COMMON / SOFCOM / NFILES, FILNAM( 10 ), FILSIZ( 10 ) COMMON / SYS / BLKSIZ, DIRSIZ, SUPSIZ, AVBLKS, HIBLK COMMON / SYSTEM / ISYSBF, IWR common / sofdsn / sofdsn(10) CHARACTER*4 FILNAM CHARACTER*80 DSNAME character*80 sofdsn INTEGER FILSIZ, HIBLK, BUF(10) IF ( LENSOF( 1 ) .NE. 0 ) GO TO 20 NUMBLK = 1 IF ( LENWPB .NE. 0 ) NUMBLK = ISYSBF / LENWPB DO 10 K = 1, NFILES LENSOF( K ) = 0 DSNAME = sofdsn(K) CALL DSINQR ( DSNAME, ISTAT, ISIZE) IF (ISTAT .EQ. 0) GO TO 10 LENSOF( K ) = FILSIZ( K ) 10 CONTINUE LASFIL = 0 20 CONTINUE IF ( ISOP .EQ. 7 ) GO TO 200 IBLK = IBLKNM IF ( IBLK .LE. 0 ) GO TO 700 IFILE = 0 DO 50 K = 1, NFILES IF ( IBLK .LE. FILSIZ( K ) )GO TO 30 IBLK = IBLK - FILSIZ( K ) GO TO 50 30 IFILE = K GO TO 100 50 CONTINUE WRITE( IWR, 9910 ) IBLKNM 9910 FORMAT(' *** SUBSTRUCTURING ERROR - BLOCK NUMBER OUT OF RANGE ', * ' - BLOCK NUMBER IS ',I10) WRITE( IWR, 9915 ) 9915 FORMAT( //,' THE FOLLOWING SOF FILES WERE AVAILABLE',//) DO 60 K = 1, NFILES WRITE( IWR, 9920 ) sofdsn( K ), FILSIZ( K ), LENSOF( K ) 9920 FORMAT(' FILE ',A72' HAS ',I10, ' BLOCKS - BLOCKS USED ',I10) 60 CONTINUE CALL MESAGE (-61, 0, 0) 100 IF ( LASFIL .EQ. IFILE ) GO TO 120 IF ( LASFIL .NE. 0 ) CALL DSCLOS ( 90 ) IALLOC = NUMBLK * FILSIZ(IFILE) dsname = sofdsn( IFILE ) IOP = 0 CALL DSOPEN ( DSNAME, 90, IOP ) LASFIL = IFILE 120 IF ( ISOP .EQ. 1 ) GO TO 140 IF ( ( IBLK - LENSOF( IFILE ) ) .LE. 1 ) GO TO 130 NUM = IBLK - LENSOF( IFILE ) - 1 IF ( NUM .EQ. 0 ) GO TO 130 DO 125 K = 1, NUM LENSOF( IFILE ) = LENSOF( IFILE ) + 1 CALL DSWRIT ( 90, BUF(4), NBUFF, LENSOF( IFILE ),ICERR ) IF ( ICERR .NE. 0 ) GO TO 701 125 CONTINUE 130 CONTINUE CALL DSWRIT ( 90, BUF(4), NBUFF, IBLK, ICERR ) IF ( ICERR .NE. 0 ) GO TO 701 IF ( IBLK .GT. LENSOF( IFILE ) ) LENSOF( IFILE ) = IBLK IF ( IBLKNM .GT. HIBLK ) HIBLK = IBLKNM GO TO 700 140 CALL DSREAD ( 90, BUF(4), NBUFF, IBLK ) GO TO 700 200 CALL DSCLOS( 90 ) LASFIL = 0 700 GO TO 7000 701 IF ( ICERR .EQ. 28 ) WRITE ( IWR, 901 ) IF ( ICERR .NE. 28 ) WRITE ( IWR, 902 ) CALL MESAGE (-61, 0, 0) 901 FORMAT(///,' INSUFFICIENT SPACE FOR SOF FILE ON DEFAULT', & ' DEVICE---JOB ABORTED.') 902 FORMAT(///,' I/O ERROR OCCURRED ON SOF FILE, JOB ABORTED') 7000 RETURN END ================================================ FILE: mds/tdate.f ================================================ SUBROUTINE TDATE (DATE) C C VAX VERSION C =========== C (ALSO SiliconGraphics, DEC/ultrix, and SUN. C CRAY AND HP DO NOT HAVE IDATE) C C THIS ROUTINE OBTAINS THE MONTH, DAY AND YEAR, IN INTEGER FORMAT C INTEGER DATE(3), DATE1(3) C CALL IDATE (DATE1) C DAY MONTH YEAR C THESE DATES HAD TO BE INTERCHANGED FOR THE SUN DATE(1)=DATE1(2) DATE(2)=DATE1(1) DATE(3)=DATE1(3)-1900 RETURN END ================================================ FILE: mds/umffd.f ================================================ SUBROUTINE UMFFD RETURN END ================================================ FILE: mds/unpack.f ================================================ SUBROUTINE UNPACK ( *, FILE, A ) INCLUDE 'PAKBLK.COM' INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' COMMON / UNPAKX / ITYPOT, IROBGN, LASROW, INCR INTEGER FILE REAL A(4), IBASE DATA LARGE / 65536 / NAME = FILE NUM = NWRDEL( IABS( ITYPOT ) ) CALL DSIPK1( IBLKD, ITYPOT ) IF ( IRETRN .EQ. 1 ) GO TO 7700 IF ( IROBGN .LE. 0 .OR. LASROW .LE. 0 ) GO TO 10 IROW = IROBGN ILSROW = LASROW GO TO 20 10 IROBGN = IBLKD( 4 ) IROW = IROBGN ILSROW = LARGE 20 CONTINUE INDEX2 = 1 ITYPE = IBLKD( 13 ) INDEX1 = ( IBLKD( 5 ) - 1 ) * IBLKD( 14 ) + 1 NUMINC = NUM * INCR 90 IF ( IBLKD( 4 ) .GT. ILSROW ) GO TO 200 IF ( ( IBLKD( 4 ) + IBLKD( 6 ) - 1 ) .LT. IROBGN ) GO TO 145 100 IDIFF = ( IBLKD( 4 ) + IBLKD( 7 ) ) - IROW IBLKD( 7 ) = IBLKD( 7 ) + 1 IF ( IDIFF .EQ. 0 ) GO TO 140 IF ( IDIFF .LT. 0 ) GO TO 142 DO 130 K = 1, NUM DO 110 KKK = 1, IDIFF A( INDEX2 + K - 1 + (KKK-1)*NUMINC ) = 0. 110 CONTINUE 130 CONTINUE INDEX2 = INDEX2 + IDIFF*NUMINC IROW = IROW + IDIFF 140 IF ( IBLKD(2) .NE. ITYPE ) GO TO 1400 CDIR$ NOVECTOR DO 141 K = 1, NUM A( INDEX2 + K - 1 ) = IBASE( INDEX1 + K - 1 ) 141 CONTINUE CDIR$ VECTOR GO TO 1401 1400 CALL DSUPKC( IBLKD( 2 ), ITYPE, IBASE( INDEX1 ), A( INDEX2 ) ) 1401 CONTINUE IF ( IROW .GE. ILSROW ) GO TO 225 IROW = IROW + 1 INDEX2 = INDEX2 + NUMINC 142 INDEX1 = INDEX1 + IBLKD( 11 ) IF ( IBLKD( 7 ) .NE. IBLKD( 6 ) ) GO TO 100 145 CALL ENDGET( IBLKD ) CALL GETSTR( *200, IBLKD ) INDEX1 = ( IBLKD( 5 ) - 1 ) * IBLKD( 14 ) + 1 IBLKD( 7 ) = 0 150 IF ( IBLKD( 8 ) .LT. 1 ) GO TO 90 200 IF ( ILSROW .EQ. LARGE ) GO TO 230 NUMLEF = LASROW - IROW + 1 IF ( NUMLEF .LE. 0 ) GO TO 225 DO 220 KK = 1, NUM DO 210 K = 1, NUMLEF A( INDEX2 + KK - 1 + (K-1)*NUMINC ) = 0. 210 CONTINUE 220 CONTINUE 225 IF ( IBLKD( 8 ) .GE. 1 ) GO TO 240 CALL DSSKRC CALL DSSDCB GO TO 240 230 LASROW = IROW - 1 240 RETURN 7700 RETURN 1 END ================================================ FILE: mds/vaxsch.f ================================================ SUBROUTINE VAXSCH (NIN,NOUT) C C TO SEARCH UNIT NIN FOR END OF BULK DATA DECK C CHARACTER*8 E1,E2,E3,CHR DATA E1,E2,E3 / 'ENDDATA ', 'END DATA', 'ENDATA ' / C C 60 READ (NIN,70,END=80) CHR 70 FORMAT (A8) IF (CHR.EQ.E1 .OR. CHR.EQ.E2 .OR. CHR.EQ.E3) GO TO 100 GO TO 60 C C ENDDATA CARD NOT FOUND C 80 WRITE (NOUT,90) 90 FORMAT ('0*** USER FATAL MESSAGE: "ENDDATA" CARD NOT FOUND BY ', 1 'INPUT MODULE') CALL VAXEND C 100 RETURN END ================================================ FILE: mds/waltim.f ================================================ SUBROUTINE WALTIM (WALSEC) C C THIS ROUTINE OBTAINS THE CURRENT WALL CLOCK TIME IN SECONDS, C PASS MID-NIGHT C INTEGER WALSEC, TIME(3) C CALL ITIME ( TIME ) WALSEC = TIME(1) * 3600 + TIME(2) * 60 + TIME(3) RETURN END ================================================ FILE: mds/write.f ================================================ SUBROUTINE WRITE ( FILE, IDATA, N, EORFLG ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' COMMON / DDIOSV / IFLPOS( 2,80 ) INTEGER FILE, EORFLG, IDATA( 2 ) IEOR = EORFLG NAME = FILE NWORDS = N IF ( NWORDS .GE. 0 ) GO TO 10 CALL DSMSG( 6 ) 10 CALL DSGEFL IF ( NWORDS .EQ. 0 ) GO TO 25 IF ( IPRVOP .NE. 0 ) GO TO 20 CALL DSMSG( 7 ) 20 IF ( INDCLR .NE. INDCBP ) GO TO 30 IFLPOS( 1,IFILEX ) = FCB( 3, IFILEX ) IFLPOS( 2,IFILEX ) = FCB( 4, IFILEX ) IBASE( INDCLR ) = IDSRH + IDSC IBLOCK = NBLOCK IBASE( INDBAS + NBUFF + 2 ) = NBLOCK GO TO 40 25 IF ( INDCBP .NE. INDCLR ) GO TO 70 LWORDS = NBUFF - ( INDCLR - INDBAS ) - 2 IF ( LWORDS .GT. 0 ) GO TO 70 IBASE( INDCLR ) = IDSEB CALL DSWRNB IBASE( INDCLR ) = IDSRH + IDSC IBASE( INDCLR + 1 ) = IDSRT + IDSC + ( INDCLR - INDBAS + 1 ) INDCBP = INDCBP + 2 INDCLR = INDCBP GO TO 80 30 IBLOCK = IBASE( INDBAS + NBUFF + 2 ) 40 LWORDS = NBUFF - ( INDCBP-INDBAS ) IF ( LWORDS .GE. NWORDS ) GO TO 50 CALL DSWRT1( IDATA ) CWKBI SPR94013 11/94 IBASE( INDBAS + NBUFF + 2 ) = IBLOCK GO TO 80 50 DO 60 I = 1, NWORDS IBASE( INDCBP + I ) = IDATA( I ) 60 CONTINUE IBASE( INDCLR ) = IBASE( INDCLR ) + NWORDS INDCBP = INDCBP + NWORDS 70 IF ( IEOR .EQ. 0 ) GO TO 80 IF ( INDCBP .NE. INDCLR ) GO TO 75 IBASE( INDCBP ) = IDSRH + IDSC IFLPOS( 1,IFILEX ) = FCB( 3, IFILEX ) IFLPOS( 2,IFILEX ) = FCB( 4, IFILEX ) 75 IBASE( INDCBP+1 ) = IDSRT + IDSC + ( INDCLR-INDBAS+1 ) INDCBP = INDCBP + 2 INDCLR = INDCBP 80 CALL DSSDCB RETURN END ================================================ FILE: mds/wrtblk.f ================================================ SUBROUTINE WRTBLK ( FILE, IEND ) INCLUDE 'DSIOF.COM' INCLUDE 'XNSTRN.COM' INTEGER FILE NAME = FILE CALL DSGEFL C PRINT *,' WRTBLK,NAME,IFILEX,INDBAS=',NAME,IFILEX,INDBAS C WRITE(6,40646)(IBASE(INDBAS+K),K=0,7) 40646 FORMAT(' WRTBLK,BUFFER=',8(1X,Z8)) CALL DBMMGR( 8 ) INDCLR = IBASE( INDBAS+4 ) NBLOCK = IBASE( INDBAS+3 ) IBASE( INDBAS+1 ) = IBASE( INDBAS+4 ) IBASE( INDBAS+2 ) = IBASE( INDBAS+4 ) FCB( 3,IFILEX ) = INDCLR FCB( 4,IFILEX ) = NBLOCK C INNN = FCB(12, IFILEX) C PRINT *,' WRTBLK-2,IFILEX,INNN=',IFILEX,INNN C WRITE(6,40646)(IBASE(INNN+K),K=0,7) IF ( IEND .EQ. 1 ) GO TO 700 CALL DBMMGR( 4 ) 700 RETURN END ================================================ FILE: mds/wrtfmt.f ================================================ SUBROUTINE WRTFMT ( IOUT, NWDS, IFMT ) CHARACTER*1 IFMT(*) CALL FORWRT ( IFMT, IOUT, NWDS ) RETURN END ================================================ FILE: mds/zblpki.f ================================================ SUBROUTINE ZBLPKI INTEGER A INCLUDE 'DSIOF.COM' INCLUDE 'PAKBLK.COM' INCLUDE 'XNSTRN.COM' COMMON / ZBLPKX / A(4), I IBLKA(15) = I ITYPIN = IBLKA( 13 ) NWORDS = NWRDEL( ITYPIN ) IF ( IBLKA( 2 ) .GE. 3 ) GO TO 5 INCCNT = 1 GO TO 8 5 INCCNT = 2 8 CONTINUE DO 10 K = 1, NWORDS IF ( A( K ) .NE. 0 ) GO TO 20 10 CONTINUE GO TO 7000 20 IF ( IBLKA( 4 ) .EQ. 0 ) GO TO 35 NEXROW = IBLKA( 4 ) + IBLKA( 7 ) ICROW = IBLKA( 15 ) IF ( ICROW .GE. NEXROW ) GO TO 30 CALL DSMSG1( IBLKA ) CALL DSMSG( 119 ) 30 IF ( ICROW .EQ. NEXROW ) GO TO 40 CALL ENDPUT( IBLKA ) CALL PUTSTR( IBLKA ) IBLKA( 7 ) = 0 35 ICROW = IBLKA( 15 ) IBLKA( 4 ) = ICROW 40 INDEX = ( IBLKA( 5 ) - 1 ) * IBLKA( 14 ) + 1 IF ( ITYPIN .NE. IBLKA(2) ) GO TO 100 CDIR$ NOVECTOR DO 50 KK = 1, NWORDS IBASE( INDEX + KK - 1 ) = A( KK ) 50 CONTINUE CDIR$ VECTOR GO TO 200 100 CALL DSUPKC ( ITYPIN, IBLKA( 2 ), A, IBASE( INDEX ) ) 200 CONTINUE IBLKA( 5 ) = IBLKA( 5 ) + INCCNT IBLKA( 7 ) = IBLKA( 7 ) + 1 IBLKA(10 ) = IBLKA(10 ) + IBLKA( 11 ) IF ( IBLKA( 6 ) .GT. IBLKA( 7 ) ) GO TO 7000 CALL ENDPUT( IBLKA ) CALL PUTSTR( IBLKA ) IBLKA( 4 ) = 0 IBLKA( 7 ) = 0 7000 RETURN END ================================================ FILE: mds/zntpki.f ================================================ SUBROUTINE ZNTPKI INCLUDE 'DSIOF.COM' COMMON / ZNTPKX / A(4), I, IEOL, IENDRC INCLUDE 'PAKBLK.COM' INCLUDE 'XNSTRN.COM' INTEGER A IRETRN = 0 I = IBLKB( 4 ) INDEX = ( IBLKB(5)-1 )*IBLKB(14) + 1 + IBLKB(7)*IBLKB(11) ITYPOT = IBLKB( 13 ) CDIR$ NOVECTOR IF ( ITYPOT .NE. IBLKB(2) ) GO TO 50 NUM = NWRDEL( ITYPOT ) DO 40 KK = 1, NUM A( KK ) = IBASE( INDEX + KK - 1 ) 40 CONTINUE CDIR$ VECTOR GO TO 70 50 CALL DSUPKC( IBLKB(2), ITYPOT, IBASE( INDEX ), A ) 70 CONTINUE IBLKB( 4 ) = IBLKB( 4 ) + 1 IBLKB( 7 ) = IBLKB( 7 ) + 1 IBLKB(10 ) = IBLKB( 4 ) IF ( IBLKB( 7 ) .LT. IBLKB( 6 ) ) GO TO 200 CALL ENDGET( IBLKB ) CALL GETSTR( *100, IBLKB ) 100 IBLKB( 7 ) = 0 200 CONTINUE IF ( IRETRN .NE. 0 ) GO TO 300 IEOL = 0 IENDRC = 0 GO TO 700 300 IEOL = 1 IENDRC = 1 700 RETURN END ================================================ FILE: mis/MMACOM.COM ================================================ COMMON / MMACOM / IFILE , LASIND, SIGN , ITYPE , IAX , IDX 1, IDX2 , IDX4 , IBROW , NWDD , NWDB , NCOLPP 2, OFILE , IPASS , NASTOR, NBSTOR, NWDDNDR,IBX 3, NWDDNBR,IRFILE, IRCOL1, IRCOLN, LASMEM, IRPOS(3) 4, IAX2 , LASINDM,METHOD ================================================ FILE: mis/SMCOMX.COM ================================================ DOUBLE PRECISION DAJJR ,DAJJI ,DDR ,DDC ,MINDD INTEGER POWER ,STURM ,CHLSKY LOGICAL OPNSCR COMMON /SMCOMX/ NCOL ,IERROR ,IVWRDS ,MAXNAC ,NSPILL &, MAXINLOP,IDBASE ,IDBMAX ,IBUF1 ,IBUF2 &, OPNSCR ,IOLOOP ,IILOOP ,LASCOL ,KROW &, KROWS ,KROWN ,KRIDX ,KRIDXN ,JRIDXN &, JROW ,JROWS ,JROWN ,JRIDX ,JVIDX &, IROW1 ,IROWN ,KFRCOL ,KLSCOL ,KLSROW &, IOL ,IIL ,KTYPE ,ISKIP ,INDEXV &, INDEXVD ,JCOL ,KAROWS ,MXRECL ,NVTERM &, KCOL ,MAXNCOL ,MEMFRE ,MEMCOL1 ,MEMLCK &, MEMLAS ,MEMCOLN ,ISPILL ,KPREC ,NBANDW &, MAXNAR ,MBLK(15),MOBLK(15) COMMON /SMCOMY/ DAJJR ,DAJJI ,AJJR ,AJJI COMMON /SYSTEM/ ISYSBF ,NOUT ,DUM1(37),NBPW ,DUM2(14) &, ISPREC COMMON /SFACT / MCB(7) ,LLL(7) ,DBC(7) ,ISCR1 ,ISCR2 &, LCORE ,DDR ,DDC ,POWER ,SCR3 &, MINDD ,CHLSKY COMMON /STURMX/ STURM ,SHFTPT ,KEEP ,PTSHFT ,NR ================================================ FILE: mis/a42a8.f ================================================ SUBROUTINE A4 2 A8 (A,B,C) C C MERGES TWO A4 BCD WORDS (A AND B) TO ONE A8 BCD WORD (C) C CHARACTER*4 KA, KB CHARACTER*8 KC, D REAL A, B REAL C(2) COMMON /SYSTEM/ DUMMY(40), NCPW C WRITE (D,10) A,B IF (NCPW .LT. 8) READ (D,10) C(1),C(2) IF (NCPW .GE. 8) READ (D,20) C(1) 10 FORMAT (2A4) 20 FORMAT ( A8) RETURN C C ENTRY A4 2 K8 (A,B,KC) C ====================== C C MERGES TWO A4 BCD WORDS (A AND B) TO ONE A8 CHARACTER WORD (KC) C WRITE (KC,10) A,B RETURN C C ENTRY A4 2 K4 (A,KA,NOTUSE) C =========================== C C CONVERTS ONE A4 BCD WORD (A) TO ONE A4 CHARACTER WORD (KA) C WRITE (KA,30) A 30 FORMAT (A4) RETURN C C ENTRY A8 2 K8 (C,KC,NOTUSE) C =========================== C C CONVERTS ONE A8 BCD WORD (C) TO ONE A4 CHARACTER WORD (KC) C IF (NCPW .LT. 8) WRITE (KC,10) C(1),C(2) IF (NCPW .GE. 8) WRITE (KC,20) C(1) RETURN C C ENTRY K4 2 K8 (KA,KB,KC) C ======================== C C MERGES TWO A4 CHARACTER WORDS (KA AND KB) TO ONE A8 CHARACTER C WORD (KC) C C NOTE - SOME MACHINES, SUCH AS UNIVAC, HANDLE BCD WORD AND C CHARACTER WORD QUIT DIFFERENTLY C WRITE (KC,10) KA,KB RETURN C C ENTRY K4 2 A8 (KA,KB,C) C ======================= C C MERGES TWO A4 CHARACTER WORDS (KA AND KB) TO ONE A8 BCD WORD (C) C WRITE (D,10) KA,KB IF (NCPW .LT. 8) READ (D,10) C(1),C(2) IF (NCPW .GE. 8) READ (D,20) C(1) RETURN C C ENTRY K4 2 A4 (KA,A,NOTUSE) C =========================== C C CONVERTS ONE A4 CHARACTER WORD (KA) TO ONE A4 BCD WORD (A) C READ (KA,30) A RETURN C C ENTRY K8 2 A8 (KC,C,NOTUSE) C =========================== C C CONVERTS ONE A8 CHARACTER WORD (KC) TO ONE A8 BCD WORD (C) C IF (NCPW .LT. 8) READ (KC,10) C(1),C(2) IF (NCPW .GE. 8) READ (KC,20) C(1) RETURN C END ================================================ FILE: mis/a82int.f ================================================ SUBROUTINE A8 2 INT (*,A,N,B,INT) C CHARACTER*8 C REAL A(2) COMMON /XREADX/ NOUT C C THESE ROUTINES PERFORM IN THE OPPOSITE DIRECTION AS THOSE OF THE C INT2A8 GROUP OF ROUTINES C THIS ROUTINE IS MACHINE INDEPENDENT C C ENTRY POINTS A8 2 INT (BCD-INTEGER VERSION) C K8 2 INT (CHARACTER-INTEGER VERSION) C A8 2 FP (BCD-REAL VERSION) C K8 2 FP (CHARACTER-REAL VERSION) C NT = +1 GO TO 20 C ENTRY K8 2 INT (*,C,N,B,INT) C **************************** C NT = +1 GO TO 30 C ENTRY A8 2 FP (*,A,N,B,INT) C *************************** C NT = -1 C 20 IF (N .GT. 8) GO TO 50 INT = NT CALL NA12IF (*80,A,N,B,INT) RETURN C ENTRY K8 2 FP (*,C,N,B,INT) C *************************** C NT = -1 C 30 IF (N .GT. 8) GO TO 50 INT = NT CALL NK12IF (*80,C,N,B,INT) RETURN C 50 WRITE (NOUT,60) N,NT 60 FORMAT (' N.GT.8/A82INT',I5,7X,'NT=',I2) 80 RETURN 1 END ================================================ FILE: mis/adr.f ================================================ SUBROUTINE ADR C C AERODYNAMIC DATA RECOVERY - FORCE OUTPUT BY SET SELECTION C C DMAP C FLUTTER C ADR CPHIH1,CASEZZ,QKHL,CLAMAL1,SPLINE,SILA,USETA/PKF/C,N,BOV/C, C N,MACH=0.0/C,N,APP $ C DYNAMICS C ADR UHVT1,CASECC,QKHL,TOL1,SPLINE,SILA,USETA/PKF/V,N,BOV/C,Y, C MACH=0.0/C,N,APP $ C INTEGER SYSBUF,OUT,CASECC,DISP,QKHL,LOAD,SPLINE,SILA, 1 USETA,IZ(1),PKF,APP,FLUT,FREQ,SCR1,SCR2,SCR3,SCR4, 2 MCB(7) REAL MACH CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / BOV,MACH,APP COMMON /SYSTEM/ SYSBUF,OUT COMMON /CONDAS/ PI,TWOPI COMMON /UNPAKX/ IOUT,INN,NNN,INCR1 COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)) DATA IAERO / 176/ DATA FLUT / 4HFLUT/, FREQ /4HFREQ/ DATA DISP / 101/ , CASECC /102/ , QKHL /103/ , LOAD /104/ DATA SPLINE/ 105/ , SILA /106/ , USETA/107/ , PKF /201/ DATA SCR1 / 301/ , SCR2 /302/ , SCR3 /303/ , SCR4 /304/ C C C BUILD P = Q * U C KF KH H C WHERE QKH INTERPOLATED FOR A EIGENVALUE OR FREQUENCY - MACH DEP. C UH - EIGENVALUE OR FREQUENCY C C C INITIALIZE - LOOK FOR A REQUEST C IF (APP.EQ.FLUT .OR. APP.EQ.FREQ) GO TO 5 GO TO 1000 5 NCORE = KORSZ(Z) IBUF1 = NCORE - SYSBUF CALL OPEN (*1000,CASECC,IZ(IBUF1),0) CALL FWDREC (*1000,CASECC) CALL READ (*1000,*10,CASECC,Z,IBUF1,0,NW) 10 IF (IZ(IAERO) .EQ. 0) GO TO 1000 CALL CLOSE (CASECC,1) C C BUILD INTERPOLATED MATRIX FROM QHKL ON SCR1 C DEPENDENT LIST C IF CLAMAL1 PICK UP FREQUENCY FROM OFP TABLE C IF TOL1 PICK UP FREQUENCY FROM HEADER C INDEPENDENT LIST ON QKHL C CALL OPEN (*1000,LOAD,IZ(IBUF1),0) IF (APP .EQ. FLUT) GO TO 30 C C TOL1 = LOAD C MCB(1) = CASECC CALL RDTRL (MCB) CALL READ (*1000,*1000,LOAD,IZ,-2,0,NFREQ) CALL READ (*1000,*20,LOAD,IZ,IBUF1,0,NFREQ) GO TO 999 20 NLOAD = MCB(2) GO TO 60 C C CLAMAL1 = LOAD C 30 CALL FWDREC (*1000,LOAD) CALL FWDREC (*1000,LOAD) CALL READ (*1000,*40,LOAD,IZ,IBUF1,0,NFREQ) GO TO 999 40 NFREQ = NFREQ/6 IF(BOV .EQ. 0.0) GO TO 997 DO 50 I = 1,NFREQ K = I*6 - 1 Z(I) = Z(K)/(TWOPI*BOV) 50 CONTINUE NLOAD = 1 C C CALL ADRI TO BUILD (AFTER ADRI FREQUENCY*2PI*BOV IS IN Z AT EVERY C OTHER SLOT 0.0 ,W FOR NFREQ*2 C 60 CALL CLOSE (LOAD,1) CALL ADRI (Z,NFREQ,NCORE,QKHL,SCR1,SCR2,SCR3,SCR4,NROW,NCOL,NOGO) IF (NOGO .NE. 0) GO TO 1000 C C SCR1 NOW HAS QKH INTERPOLATED NROW*NCOL(ROW5) NFREQ(COLUMNS) C IPQ = NFREQ*2 + 1 C C BUILD PKF C IOUT = 3 ITI = 3 ITO = 3 INCR = 1 INCR1 = 1 MCB(1)= DISP CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 1000 IF (MCB(3) .NE. NCOL) GO TO 998 NNS1 = NROW*NCOL II = 1 NN = NROW INN = 1 IBUF2 = IBUF1 - SYSBUF CALL GOPEN (PKF,Z(IBUF2),1) IBUF3 = IBUF2 - SYSBUF CALL GOPEN (DISP,Z(IBUF3),0) CALL GOPEN (SCR1,Z(IBUF1),0) MCB(1) = PKF MCB(2) = 0 MCB(3) = NN MCB(6) = 0 MCB(7) = 0 NTERMS = NNS1*2 NTERMD = NCOL*2 NTERMA = NROW*2 IPD = IPQ + NTERMS IPA = IPD + NTERMD NEXT = IPA + NTERMA IF (NEXT .GT. IBUF3) GO TO 999 DO 150 I = 1,NLOAD DO 140 J = 1,NFREQ C C UNPACK INTERPOLATED MATRIX COLUMN THEN DISP VECTOR MULTIPLY AND C PACK OUT C NNN = NNS1 CALL UNPACK (*70,SCR1,Z(IPQ)) C C MULTIPLY BACK BY FREQUENCY (K) C DO 71 L = 1,NTERMS,2 M = J*2 Z(IPQ+L) = Z(IPQ+L)*Z(M) 71 CONTINUE GO TO 75 70 CALL ZEROC (Z(IPQ),NTERMS) 75 NNN = NCOL CALL UNPACK (*80,DISP,Z(IPD)) GO TO 90 80 CALL ZEROC (Z(IPD),NTERMD) 90 CALL GMMATC (Z(IPD),1,NCOL,0,Z(IPQ),NCOL,NROW,0,Z(IPA)) CALL PACK (Z(IPA),PKF,MCB) 140 CONTINUE IF (I .EQ. NLOAD) GO TO 150 CALL REWIND (SCR1) CALL SKPREC (SCR1,1) 150 CONTINUE CALL CLOSE (SCR1,1) CALL CLOSE (DISP,1) CALL CLOSE (PKF, 1) CALL WRTTRL (MCB) CALL DMPFIL (-PKF,Z(IPQ),IBUF3-IPQ) C C PUT FREQUENCY BACK TO ORIGINAL VALUE C DO 160 I = 1,NFREQ Z(I) = Z(I*2)/(TWOPI*BOV) 160 CONTINUE C C PRINT RESULTS C CALL ADRPRT (CASECC,PKF,SPLINE,SILA,USETA,Z,NFREQ,NCORE,NLOAD) C C STOP CLOSE ALL POSSIBLE OPENS C 1000 CALL CLOSE (CASECC,1) CALL CLOSE (LOAD ,1) CALL CLOSE (PKF ,1) CALL CLOSE (DISP ,1) RETURN C C ERROR MESSAGES C 999 CALL MESAGE (8,0,NAM) GO TO 1000 998 CALL MESAGE (7,0,NAM) GO TO 1000 997 WRITE (OUT,9970) UIM 9970 FORMAT (A29,' 2272, NO FLUTTER CALCULATIONS CAN BE MADE IN ', 1 'MODULE ADR SINCE BOV = 0.0.') GO TO 1000 END ================================================ FILE: mis/adri.f ================================================ SUBROUTINE ADRI (FL,NFREQ,NCORE,QHHL,SCR2,SCR1,SCR3,SCR4,NROW, 1 NCOL,NOGO) C INTEGER QHHL,SCR1,SCR2,SCR3,SCR4,TRL(7),OUT DIMENSION FL(1),MCB(7),NAME(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / BOV,RM COMMON /CONDAS/ PI,TWOPI COMMON /SYSTEM/ ISYS,OUT,DUM(52),IPREC COMMON /UNPAKX/ IOUT,INN,NNN,INCR1 COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /TYPE / P(2),IWC(4) DATA NHFRDI, NAME /4HFRDI,4HADRI,4H / C IBUF1 = NCORE - ISYS IBUF2 = IBUF1 - ISYS NROW = 0 INCR = 1 INCR1 = 1 II = 1 INN = 1 MCB(1)= QHHL CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 250 NROW = MCB(3) CALL OPEN (*250,QHHL,FL(IBUF2),0) CALL GOPEN (SCR1,FL(IBUF1),1) CALL READ (*220,*220,QHHL,FL(1),-2,0,FLAG) CALL READ (*220,*220,QHHL,NCOL,1,0,FLAG) CALL READ (*220,*220,QHHL,N,1,0,FLAG) N = N + N NI = (MCB(2)/NCOL)*2 NI = MIN0(NI,N) NNN = NROW NN = NCOL*NROW ITI = 3 ITO = ITI IOUT = ITI NWC = IWC(ITI) CALL MAKMCB (TRL,SCR1,NN,MCB(4),ITO) C C MAKE DEPENDENT FREQ LIST C IPD = 1 NL = 2*NFREQ N = NFREQ + 1 IPI = IPD + NL DO 10 I = 1,NFREQ FL(NL ) = FL(N-I)*TWOPI*BOV FL(NL-1) = 0.0 NL = NL -2 10 CONTINUE C C MAKE INDEPENDENT FREQ LIST C CALL READ (*220,*220,QHHL,FL(IPI),NI,1,FLAG) C C FIND M"S CLOSEST TO RM C ICP = IPI + NI RMI = 1.E20 RMS = 0.0 DO 30 I = 1,NI,2 RMX = ABS(FL(IPI+I-1) - RM) RMI = AMIN1(RMI,RMX) IF (RMX .GT. RMI) GO TO 30 RMS = FL(IPI+I-1) 30 CONTINUE RMI = RMS C C DO ALL K"S ASSOCIATED WITH RMI C K = 0 DO 150 I = 1,NI,2 IF (FL(IPI+I-1) .EQ. RMI) GO TO 120 C C SKIP MATRIX C CALL SKPREC (QHHL,NCOL) GO TO 150 C C MAKE MATRIX INTO COLUMN C 120 FL(IPI+K+1) = FL(IPI+I) K = K + 2 JI = ICP N = NROW*NWC DO 130 J = 1,NCOL CALL UNPACK (*131,QHHL,FL(JI)) GO TO 135 131 CALL ZEROC (FL(JI),N) 135 JI = JI + N 130 CONTINUE C C DIVIDE IMAG PART OF QHHL BY FREQUENCY C JJ = ICP + 1 KK = JI - 1 DO 132 J = JJ,KK,2 FL(J) = FL(J)/FL(IPI+I) 132 CONTINUE CALL PACK (FL(ICP),SCR1,TRL) 150 CONTINUE CALL CLOSE (QHHL,1) CALL CLOSE (SCR1,1) CALL WRTTRL (TRL) CALL BUG (NHFRDI,150,K ,1) CALL BUG (NHFRDI,150,NFREQ,1) CALL BUG (NHFRDI,150,FL(1),ICP) C C SETUP TO CALL MINTRP C NI = K/2 NOGO = 0 NC = NCORE - ICP CALL DMPFIL (-SCR1,FL(ICP),NC) IM = 0 IK = 1 CALL MINTRP (NI,FL(IPI),NFREQ,FL(IPD),-1,IM,IK,0.0,SCR1,SCR2, 1 SCR3,SCR4,FL(ICP),NC,NOGO,IPREC) IF (NOGO .EQ. 1) GO TO 200 CALL DMPFIL (-SCR2,FL(ICP),NC) RETURN C 200 WRITE (OUT,210) UFM 210 FORMAT (A23,' 2271, INTERPOLATION MATRIX IS SINGULAR') CIBMR 6/93 GO TO 240 !* GO TO 240 220 CALL MESAGE (3,QHHL,NAME) 240 NOGO = 1 250 CALL CLOSE (QHHL,1) RETURN END ================================================ FILE: mis/adrprt.f ================================================ SUBROUTINE ADRPRT (CASECC,PKF,SPLINE,SILA,USETA,FREQ,NFREQ, 1 NCORE,NLOAD) C C ADRPRT FORMATS PKF BY USER SET REQUEST FOR EACH FREQUENCY C EXTERNAL ANDF INTEGER CASECC,PKF,SPLINE,SILA,USETA,SYSBUF,OUT,NAM(2), 1 LSP(2),ANDF,SETNO,ALL,EXTID,TRL(7) REAL FREQ(1),Z(1),BUF(12),TSAVE(96) COMMON /SYSTEM/ SYSBUF,OUT,DUM1(6),NLPP COMMON /UNPAKX/ ITO,II,NN,INCR COMMON /TWO / ITWO(32) COMMON /BITPOS/ IBIT(64) COMMON /OUTPUT/ HEAD(96) COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (Z(1),IZ(1)) DATA IAERO / 176 /, LCS /200/ DATA NHFSSU, NAM / 4HFSSU,4HADRP,4HRT / DATA LSP / 200,2/ C C CORE LAYOUT C FREQ LIST NFREQ C SPLINE TRIPLETS 3*K POINTS C SILS FOR K POINTS 1 PER K C USET MASKS 6*K POINTS C CASECC RECORD TRL(4) LONG C LOAD VECTOR K SIZE C BUFFERS 2 * SYSBUF C MASK = IBIT(19) MASK = ITWO(MASK) DO 5 I = 1,96 5 TSAVE(I) = HEAD(I) IBUF1 = NCORE - SYSBUF - 1 IBUF2 = IBUF1 - SYSBUF IZSPL = NFREQ NR = IBUF2 - IZSPL CALL PRELOC (*1000,Z(IBUF1),SPLINE) CALL LOCATE (*1000,Z(IBUF1),LSP,DUM) CALL READ (*1000,*10,SPLINE,Z(IZSPL+1),NR,0,NWR) GO TO 999 10 NSPL = NWR IZSIL = IZSPL + NWR CALL CLOSE (SPLINE,1) C C FIND SMALLEST SILGA POINTER (-1+NEXTRA = NSKIP ON SILA) C ISMAL = 1000000 DO 20 I = 1,NSPL,3 ISMAL = MIN0(ISMAL,IZ(IZSPL+I+1)) 20 CONTINUE ISMAL = ISMAL - 1 TRL(1)= SILA CALL RDTRL (TRL) IF (TRL(1) .LT. 0) GO TO 1000 NEXTRA = TRL(3) CALL GOPEN (SILA,Z(IBUF1),0) NSKIP = ISMAL + NEXTRA NR = IBUF2 - IZSIL CALL READ (*1000,*1000,SILA,Z(IZSIL+1),-NSKIP,0,NWR) CALL READ (*1000,*30,SILA,Z(IZSIL+1),NR,0,NWR) GO TO 999 30 NSIL = NWR CALL CLOSE (SILA,1) IZUSET = IZSIL + NWR NR = IBUF2 - IZUSET NSKIP = IZ(IZSIL+1) -1 CALL OPEN (*1000,USETA,Z(IBUF1),0) CALL FWDREC (*1000,USETA) CALL READ (*1000,*1000,USETA,Z(IZUSET+1),-NSKIP,0,NWR) CALL READ (*1000,*40,USETA,Z(IZUSET+1),NR,0,NWR) GO TO 999 40 ICC = IZUSET + NWR CALL CLOSE (USETA,1) C C ADJUST SILA AND USET POINTERS FOR SHRUNKEN LISTS C DO 50 I = 1,NSPL,3 IZ(IZSPL+I+1) = IZ(IZSPL+I+1) - ISMAL 50 CONTINUE DO 60 I = 1,NSIL IZ(IZSIL+I) = IZ(IZSIL+I) - NSKIP 60 CONTINUE CALL BUG (NHFSSU,60,Z,ICC) TRL(1) = CASECC CALL RDTRL (TRL) LCC = TRL(4) + 1 IZVECT = ICC + LCC TRL(1) = PKF CALL RDTRL (TRL) ITO = 3 II = 1 NN = TRL(3) INCR = 1 NVECT = TRL(3)*2 IEND = IZVECT + NVECT IF (IEND .GT. IBUF2) GO TO 999 CALL OPEN (*1000,CASECC,Z(IBUF1),0) CALL FWDREC (*1000,CASECC) CALL OPEN (*1000,PKF,Z(IBUF2),0) CALL FWDREC (*1000,PKF) C C LOOP OVER NLOAD (CASECC RECORDS) C THEN LOOP OVER NFREQ (PKF COLUMNS) C OUTPUT K POINTS FOR SET LIST C DO 300 K = 1,NLOAD CALL READ (*1000,*65,CASECC,Z(ICC+1),LCC,1,NWR) 65 SETNO = IZ(ICC+IAERO) ALL = 0 DO 61 I = 1,96 61 HEAD(I) = Z(ICC+I+38) IF(SETNO) 70,250,80 70 ALL = 1 GO TO 100 80 ISETNO = LCS + IZ(ICC+LCS) + 1 + ICC 90 ISET = ISETNO + 2 NSET = IZ(ISETNO+1) + ISET - 1 IF (IZ(ISETNO) .EQ. SETNO) GO TO 100 ISETNO = NSET +1 IF (ISETNO .LT. IZVECT) GO TO 90 ALL = 1 100 DO 240 J = 1,NFREQ NLPPP = NLPP CALL UNPACK (*110,PKF,Z(IZVECT+1)) GO TO 120 110 CALL ZEROC (Z(IZVECT+1),NVECT) C C PRINT LOOP C 120 IF (ALL .EQ. 0) GO TO 150 ASSIGN 140 TO IRET L = 1 GO TO 181 140 L = L + 3 IF (L .GE. NSPL) GO TO 240 GO TO 181 150 I = ISET 155 IF (I .EQ. NSET) GO TO 170 IF (IZ(I+1) .GT. 0) GO TO 170 ID = IZ(I ) N =-IZ(I+1) I = I+1 ASSIGN 160 TO IRET1 GO TO 180 160 ID = ID + 1 IF (ID .LE. N) GO TO 180 GO TO 175 170 ID = IZ(I) ASSIGN 175 TO IRET1 GO TO 180 175 I = I + 1 IF (I .LE. NSET) GO TO 155 GO TO 240 C C LOCATE ELEMENT THEN PRINT DATA C 180 ASSIGN 190 TO IRET CALL BISLOC (*190,ID,IZ(IZSPL+1),3,NSPL/3,L) 181 EXTID = IZ(IZSPL+L) IPSIL = IZ(IZSPL+L+1) IROW = IZ(IZSPL+L+2) *2 - 1 + IZVECT IPUSET= IZ(IZSIL+IPSIL) + IZUSET - 1 GO TO 200 190 GO TO IRET1, (160,175) C C PRINT C 200 IF (NLPPP .LT. NLPP) GO TO 210 CALL PAGE1 WRITE (OUT,201) J,FREQ(J) 201 FORMAT (44X,42HAERODYNAMIC LOADS (UNIT DYNAMIC PRESSURE), / 1 30X,7HVECTOR ,I8,10X,12HFREQUENCY = ,1P,E14.6,7H HERTZ, /, 2 11H BOX OR ,12X,7HT1 / R1,23X,7HT2 / R2,23X,7HT3 / R3, /, 3 11H BODY ELMT., 3(4X,4HREAL,10X,12HIMAGINARY )) NLPPP = 1 210 DO 220 M = 1,6 MM = M*2 - 1 BUF(MM ) = 0.0 BUF(MM+1) = 0.0 IF (ANDF(IZ(IPUSET+M),MASK) .EQ. 0) GO TO 220 BUF(MM ) = Z(IROW ) BUF(MM+1) = Z(IROW+1) IROW = IROW + 2 220 CONTINUE WRITE (OUT,221) EXTID,BUF 221 FORMAT (1H0,I10,6(1P,E15.6), /11X,6(1P,E15.6)) NLPPP = NLPPP + 3 GO TO IRET, (140,190) 240 CONTINUE 250 IF (K .EQ. NLOAD) GO TO 300 CALL REWIND (PKF) CALL SKPREC (PKF,1) 300 CONTINUE C C CLOSE UP AND RETURN C 1000 CALL CLOSE (CASECC,1) CALL CLOSE (PKF,1) CALL CLOSE (SILA,1) CALL CLOSE (SPLINE,1) DO 1001 I = 1,96 1001 HEAD(I) = TSAVE(I) CALL PAGE2 (1) RETURN C C ERROR MESSAGES C 999 CALL MESAGE (8,0,NAM) GO TO 1000 END ================================================ FILE: mis/af.f ================================================ SUBROUTINE AF (F,N,A,B,C,C1,C2,C3,T1,T3,T5,JUMP) C C THIS AREA INTEGRATION ROUTINE IS USED IN TRIM6, TRPLT1 AND TRSHL C IT COMPUTES THE F FUNCTION, AND CONSTANTS C1, C2, C3 C C FAC ARE THE FACTORIALS 1 THRU 36 C B IS DISTANCE OF GRID POINT 1 C A IS DISTANCE OF GRID POINT 3 C C IS DISTANCE OF GRID POINT 5 C T1 IS ASSOCIATIVE VARIABLE AT GRID POINT 1 C T3 IS ASSOCIATIVE VARIABLE AT GRID POINT 3 C T5 IS ASSOCIATIVE VARIABLE AT GRID POINT 5 C N IS DIMENSION OF AREA FUNCTION F C C C REAL F(N,N) DOUBLE PRECISION FAC(20), TEMP DATA FAC / 1.D0,1.D0, 2.D0,6.D0, 2.4D1, 1.2D2, 7.2D2, 5.04D3, 1 4.032D4, 3.6288D5, 3.6288D6, 3.99168D7, 2 4.790016D8, 6.227021D9, 8.7178291D10, 1.307674D12, 3 2.092279D13, 3.556874D14, 6.402374D15, 1.216451D17/ C IF (JUMP .GT. 0) GO TO 30 IF (N .GT. 18) STOP 'IN AF' DO 10 I=1,N DO 10 J=1,N 10 F(I,J)=0.0 DO 20 I=1,N I1=I DO 15 J=1,I TEMP = DBLE(C**J) * FAC(I1) / FAC(I+2) TEMP = DBLE(A**I1-(-B)**I1) * TEMP * FAC(J) F(I1,J) = SNGL(TEMP) I1=I1-1 15 CONTINUE 20 CONTINUE IF (JUMP .LT. 0) RETURN C 30 AB=A-B IF (A .EQ. B .AND. A .NE. 0.0) AB=A+B IF (AB .EQ. 0.0) CALL MESAGE (-37,0,0) C1=(T1*A-T3*B)/AB C2=(T3-T1)/AB C3=(T5-C1)/C RETURN END ================================================ FILE: mis/ai.f ================================================ FUNCTION AI (I,J,K,L,M,N,IP,IQ,R,Z) C DIMENSION R(1),Z(1) C IF (R(I) .EQ. R(J)) GO TO 20 RD = R(J) IF (R(J) .EQ. 0.0) RD = R(I) ABS1 = ABS((R(I)-R(J))/RD) IF (ABS1 .LE. .0001) GO TO 20 AMKL = (R(L)*Z(K)-R(K)*Z(L))/(R(L)-R(K)) AKKL = (Z(L)-Z(K))/(R(L)-R(K)) AMMN = (R(N)*Z(M)-R(M)*Z(N))/(R(N)-R(M)) AKMN = (Z(N)-Z(M))/(R(N)-R(M)) IF (AKMN.NE.AKKL .OR. AMMN.NE.AMKL) GO TO 30 20 AI = 0.0 GO TO 510 30 CONTINUE ISS = IABS(IP) IRR = IABS(IQ) IF (IQ + 1) 100,300,50 50 CONTINUE MM = IP NN = IQ + 1 AI = BINT(I,J,AMMN,AKMN,MM,NN,R,Z) - BINT(I,J,AMKL,AKKL,MM,NN,R,Z) GO TO 510 100 CONTINUE IF (IP .LT. 0) GO TO 200 MM = IP NN = IRR - 1 AI = F89(I,AMKL,AKKL,MM,NN,R) - F89(I,AMMN,AKMN,MM,NN,R) 1 - F89(J,AMKL,AKKL,MM,NN,R) + F89(J,AMMN,AKMN,MM,NN,R) ARR= IRR AI = (1.0/(1.0 - ARR))*AI GO TO 510 200 CONTINUE MM = ISS NN = IRR - 1 AI = FF100(I,AMKL,AKKL,MM,NN,R) -FF100(I,AMMN,AKMN,MM,NN,R) 1 - FF100(J,AMKL,AKKL,MM,NN,R) +FF100(J,AMMN,AKMN,MM,NN,R) ARR= IRR AI = (1.0/(1.0-ARR))*AI GO TO 510 300 CONTINUE IF (IP + 1) 400,500,301 301 CONTINUE MM = IP + 1 AMM= MM XX = R(I)**MM/AMM AI = ( 1 +XX*ALOG(ABS(AMKL+AKKL*R(I)))-AKKL/AMM*F89(I,AMKL,AKKL,MM,1,R) 2 -XX*ALOG(ABS(AMMN+AKMN*R(I)))+AKMN/AMM*F89(I,AMMN,AKMN,MM,1,R) 3 ) XX = R(J)**MM/AMM AI = ( 1 -XX*ALOG(ABS(AMKL+AKKL*R(J)))+AKKL/AMM*F89(J,AMKL,AKKL,MM,1,R) 2 +XX*ALOG(ABS(AMMN+AKMN*R(J)))-AKMN/AMM*F89(J,AMMN,AKMN,MM,1,R) 3 ) + AI GO TO 510 400 CONTINUE MM = ISS - 1 AMM= MM XX = AMM*R(I)**MM AI = ( 1 -ALOG(ABS(AMKL+AKKL*R(I)))/XX+AKKL/AMM*FF100(I,AMKL,AKKL,MM,1,R) 2 +ALOG(ABS(AMMN+AKMN*R(I)))/XX-AKMN/AMM*FF100(I,AMMN,AKMN,MM,1,R) 3 ) XX = AMM*R(J)**M AI = ( 1 +ALOG(ABS(AMKL+AKKL*R(J)))/XX-AKKL/AMM*FF100(J,AMKL,AKKL,MM,1,R) 2 -ALOG(ABS(AMMN+AKMN*R(J)))/XX+AKMN/AMM*FF100(J,AMMN,AKMN,MM,1,R) 3 ) + AI GO TO 510 500 CONTINUE AI = F6211(I,AMKL,AKKL,R) - F6211(I,AMMN,AKMN,R) 1 - F6211(J,AMKL,AKKL,R) + F6211(J,AMMN,AKMN,R) 510 CONTINUE RETURN END ================================================ FILE: mis/ais.f ================================================ REAL FUNCTION AIS (NP,I,L,RR,ZZ) C C THIS ROUTINE CALCULATES THE SINGLE PRECISION DELTA(IJ) INTEGRALS C FOR AXISYMMETRIC SOLIDS IN SDR2. CALCULATIONS DONE IN DOUBLE C PRECISION C C INPUT C NP = NUMBER OF POINTS (3 OR 4. MORE THAN 4 WILL FAIL FSN-5) C I,L = THE INTEGRAL DESIRED (I SERIES STARTS WITH -1) C R = RADIUS ARRAY (NP LONG) C Z = Z-CORD ARRAY (NP LONG) C C OUTPUT C DKL = DESIRED INTEGRAL C INTEGER NAM(2) DOUBLE PRECISION A,AJ,AR,BETA,DR,DZ,DFACT,DZJ,DL1,DKL,EPS,FACT, 1 GKL,ZERO,ONE,TWO,THREE,PR,RA,RB,R(4),RAK,RBK, 2 ZA,ZB,Z(4) DIMENSION RR(4),ZZ(4) DATA EPS / .01D0 / DATA ZERO, ONE,TWO,THREE / 0.0D0, 1.0D0, 2.0D0, 3.0D0 / DATA NAM / 4HAIS , 1H / C DO 5 M = 1,NP R(M) = RR(M) 5 Z(M) = ZZ(M) DKL = ZERO L1 = L + 1 L2 = L + 2 DL1 = L1 K = I + 1 C C LOOP ON NUMBER OF POINTS C IF (R(1) .LE. ZERO) GO TO 300 DO 200 M = 1,NP J = M + 1 IF (M .EQ. NP) J = 1 RA = R(M) RB = R(J) ZA = Z(M) ZB = Z(J) DR = RB - RA DZ = ZB - ZA C C TEST IF RADIUS IS .LE. 0 (DRIVER SHOULD FIND THIS) C IF (RB .LE. ZERO) GO TO 300 GKL = ZERO PR = RA + RB AR = PR/TWO C C CHECK FOR APPROXIMATION, DR/AVE(R) C IF ( DABS ( DR/AR ) .LT. EPS ) GO TO 70 C A = ZA*DR - RA*DZ BETA = A/DR C C CHECK FOR BETA .EQ. 0 CASE C IF (DABS(BETA/AR) .GT. EPS) GO TO 10 C IF (DZ .EQ. ZERO) GO TO 200 LK = L + K + 1 AR = LK GKL = (DZ/DR)**L1*(RA**LK-RB**LK)/(DL1*AR) GO TO 200 C C GENERAL CASE C 10 RAK = RA**K RBK = RB**K IF (K) 300,20,30 C C GENERAL CASE, K.EQ.0, CONSTANT TERM C 20 GKL = DLOG(RA/RB)/DL1 GO TO 40 C C GENERAL CASE, CONSTANT TERM C 30 AR = K*L1 GKL = (RAK-RBK)/AR C C GENERAL CASE, SUMMATION C 40 IF (DZ .EQ. ZERO) GO TO 65 LFACT = 1 C C CALCULATE FACTORIAL (L+1) C DO 50 J = 2,L 50 LFACT = LFACT*J FACTL = LFACT JFACT = 1 AJ = ONE DZJ = ONE LMJF = LFACT*L1 DO 60 J = 1,L1 JFACT = JFACT*J C C CALCULATE (L+1-J) FACTORIAL IN LMJF C LMJF = LMJF /(L2-J) FACT = FACTL/FLOAT (JFACT*LMJF) DFACT = K + J DFACT = FACT /DFACT AJ = AJ *A RAK = RAK*RA RBK = RBK*RB DZJ = DZJ*DZ 60 GKL = GKL + (DFACT*DZJ*(RAK-RBK))/AJ C 65 GKL = GKL*BETA**L1 GO TO 200 C C APPROXIMATE CODE C 70 CONTINUE IF (DR .EQ. ZERO) GO TO 200 DZJ = L1*L2 RBK = ZB**L1 J = K - 1 GKL =-DR*AR**J*RBK/DL1 C IF (DZ .EQ. ZERO) GO TO 200 GKL = GKL + (((TWO*RA+RB)/THREE)**J*DR*DABS(ZA**L2-RBK*ZB)) 1 /(DZJ*DZ) C 200 DKL = DKL + GKL C C ALL DONE C 210 AIS = DKL RETURN C C ERROR C 300 CALL MESAGE (-7,K,NAM) GO TO 210 END ================================================ FILE: mis/akapm.f ================================================ SUBROUTINE AKAPM (ARG,BKPM) C C SUBROUTINE FOR COMPUTING KAPPA MINUS C COMPLEX BKPM,C1,AI,C1TEST,BSYCON,ARG, 1 AT2,AT3,ALP0,ALP,ALN CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IBBOUT COMMON /BLK1 / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES COMMON /BLK2 / BSYCON C C1 = CEXP(-AI*ARG/2.0*(SPS-SNS)) GAM0 = SPS*DEL - SIGMA PI2 = 2.0*PI S1 = SPS/(DSTR**2) S2 = SNS/DSTR C2Q = GAM0/DSTR - SCRK C3Q = GAM0/DSTR + SCRK NN = 0 CSEC = C2Q*C3Q IF (CSEC .LT. 0.0) NN = 1 T1 = GAM0*S1 T2 = S2*SQRT(ABS(CSEC)) IF (C2Q.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2 IF (NN .EQ. 0) ALP0 = T1 + T2 IF (NN .EQ. 1) ALP0 = CMPLX(T1,T2) C1 = C1*(1.0-ARG/ALP0) A1 = PI2/(SPS-SNS) A2 =-A1 B1 = GAM0/(SPS-SNS) C1TEST = 0.0 DO 20 I = 1,200 R = I GAMP = PI2*R + GAM0 GAMN =-PI2*R + GAM0 C2P = GAMP/DSTR - SCRK C2Q = GAMP/DSTR + SCRK C2N = GAMN/DSTR - SCRK C3Q = GAMN/DSTR + SCRK NN = 0 CSEC = C2P*C2Q IF (CSEC .LT. 0.0) NN = 1 T1 = GAMP*S1 T2 = S2*SQRT(ABS(CSEC)) IF (C2P.LT.0.0 .AND. C2Q.LT.0.0) T2 =-T2 IF (NN .EQ. 0) ALP = T1 + T2 IF (NN .EQ. 1) ALP = CMPLX(T1,T2) NN = 0 CSEC = C2N*C3Q IF (CSEC .LT. 0.0) NN = 1 T1 = GAMN*S1 T2 = S2*SQRT(ABS(CSEC)) IF (C2N.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2 IF (NN .EQ. 0) ALN = T1 + T2 IF (NN .EQ. 1) ALN = CMPLX(T1,T2) AT2 = (ALP-A1*R-B1)/(A1*R+B1-ARG) AT3 = (ALN-A2*R-B1)/(A2*R+B1-ARG) C1 = C1*(1.0+AT2)*(1.0+AT3) IF (CABS((C1-C1TEST)/C1) .LT. 0.0009) GO TO 50 C1TEST = C1 20 CONTINUE GO TO 70 50 CONTINUE C1 = C1*B1/(ARG-B1)*CSIN(PI/A1*(ARG-B1))/(SIN(PI*B1/A1)) C1 = C1*BSYCON BKPM = C1 RETURN C 70 WRITE (IBBOUT,80) UFM 80 FORMAT (A23,' - AMG MODULE -SUBROUTINE AKAPM') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/akappa.f ================================================ SUBROUTINE AKAPPA (ARG,BKAPPA) C C SUBROUTINE FOR COMPUTING KAPPA C COMPLEX AI C COMMON/BLK1/SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES C SCRK1 = ABS (SCRK) ARG1 = ABS (ARG) IF ( SCRK1 .GT. ARG1) GO TO 10 GAM=SQRT(ARG**2-SCRK**2) S1=SNS*GAM C1=BETA*GAM*SIN(S1) C2=COS(S1)-COS((ARG-DEL)*SPS+SIGMA) BKAPPA=C1/C2 RETURN 10 CONTINUE GAM=SQRT(SCRK**2-ARG**2) S1=SNS*GAM C1=-BETA*GAM*SINH(S1) C2=COSH(S1)-COS((ARG-DEL)*SPS+SIGMA) BKAPPA=C1/C2 RETURN END ================================================ FILE: mis/akp2.f ================================================ SUBROUTINE AKP2 C COMPLEX AI C COMMON/BLK1/SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES C GAM=SQRT(DEL**2-SCRK**2) S1=SNS*GAM C1=(SIGMA-S1)/2.0 C2=(SIGMA+S1)/2.0 DGDA=DEL/GAM D1=SPS/2.0 D2=SNS/2.0*DGDA DC1DA=D1-D2 DC2DA=D1+D2 RES=1.0/GAM*DGDA+SNS*COS(S1)/SIN(S1)*DGDA 1-COS(C1)/SIN(C1)*DC1DA-COS(C2)/SIN(C2)*DC2DA RETURN END ================================================ FILE: mis/alamda.f ================================================ SUBROUTINE ALAMDA (ARG,Y,BLAMDA) C C SUBROUTINE FOR COMPUTING LAMDA C COMPLEX BLAMDA,AI,C1 C COMMON/BLK1/SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES C SCRK1= ABS(SCRK) ARG1= ABS(ARG) S1=(ARG-DEL)*SPS+SIGMA IF( SCRK1.GT.ARG1) GO TO 10 GAM=SQRT(ARG**2-SCRK**2) C1=COS(GAM*(SNS-Y))-CEXP(AI*S1)*COS(GAM*Y) C2=COS(SNS*GAM)-COS(S1) BLAMDA=C1/C2 RETURN 10 CONTINUE GAM=SQRT(SCRK**2-ARG**2) C1=COSH(GAM*(SNS-Y))-CEXP(AI*S1)*COSH(GAM*Y) C2=COSH(SNS*GAM)-COS(S1) BLAMDA=C1/C2 RETURN END ================================================ FILE: mis/alg.f ================================================ SUBROUTINE ALG C C THIS IS THE DRIVER SUBROUTINE FOR THE ALG MODULE C INTEGER APRESS,ATEMP,STRML,PGEOM,NAME(2),SYSBUF, 1 TITLE1(18),WD(2),ALGDB CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / APRESS,ATEMP,STRML,PGEOM,IPRTK,IFAIL,SIGN,ZORIGN, 1 FXCOOR,FYCOOR,FZCOOR COMMON /SYSTEM/ SYSBUF,NOUT COMMON /ALGINO/ ISCR3,ALGDB COMMON /UDSTR2/ NBLDES,STAG(21),CHORDD(21) COMMON /UD3PRT/ IPRTC,ISTRML,IPGEOM COMMON /ZZZZZZ/ IZ(1) COMMON /CONTRL/ NANAL,NAERO,NARBIT,LOG1,LOG2,LOG3,LOG4,LOG5,LOG6 DATA NAME / 4HALG ,4H / DATA WD / 2HNO ,2HAN / DATA ISCR1 , ISCR2 / 301,302 / C ISCR3 = 303 ISCR4 = 304 ISTRML = STRML IPGEOM = PGEOM IF (IPGEOM .EQ. 3) IPGEOM = 1 IPRTC = IPRTK NZ = KORSZ(IZ) IBUF1 = NZ - SYSBUF + 1 IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF IF (3*SYSBUF .GT. NZ) CALL MESAGE (-8,0,NAME) CALL ALGPR (IERR) IF (IERR .LT. 0) GO TO 400 ALGDB = ISCR1 IF (IERR .EQ. 1) ALGDB = ISCR2 LOG1 = ALGDB LOG2 = NOUT LOG3 = 7 LOG4 = ALGDB LOG5 = ISCR4 LOG6 = 9 CALL GOPEN (LOG1,IZ(IBUF1),0) CALL FREAD (LOG1,TITLE1,18,1) CALL FREAD (LOG1,NANAL,1,0) CALL FREAD (LOG1,NAERO,1,1) NARBIT = 0 IF (IPRTC .EQ. 1) WRITE (LOG2,20) TITLE1,NANAL,WD(NAERO+1) IF (IPRTC .EQ. 0) WRITE (LOG2,40) UIM 20 FORMAT (1H1,/40X,48HALG MODULE - COMPRESSOR DESIGN - CONTROL SECTI 1ON , /40X,48(1H*), //10X,8HTITLE = ,18A4, /10X,39HNUMBER OF ANALYT 2IC MEALINE BLADEROWS = ,I3, /10X,14HTHERE WILL BE ,A2,33H ENTRY TO 3 THE AERODYNAMIC SECTION ) 40 FORMAT (A29,' - MODULE ALG ENTERED.') C IF (NANAL .EQ. 0) GO TO 200 IFILE = LOG5 CALL OPEN (*500,LOG5,IZ(IBUF2),1) CALL ALGAN CALL CLOSE (LOG5,1) 200 IF (NAERO .EQ. 0) GO TO 300 IFILE = LOG5 CALL OPEN (*500,LOG5,IZ(IBUF2),0) IFILE = ISCR3 CALL OPEN (*500,ISCR3,IZ(IBUF3),1) CALL ALGAR CALL CLOSE (ISCR3,1) CALL CLOSE (LOG5,1) 300 CALL CLOSE (LOG1,1) CALL ALGPO (ISCR3) 400 GO TO 600 500 CALL MESAGE(-1,IFILE,NAME) C 600 RETURN END ================================================ FILE: mis/alg01.f ================================================ SUBROUTINE ALG01 (XDATA,YDATA,NDATA,XIN,YOUT,SLOPE,NXY,NTYPE,NWOT) C REAL M C DIMENSION XDATA(2),YDATA(2),XIN(1),YOUT(1),SLOPE(1),A(21),B(21), 1 D(21),M(21) C IF (NTYPE.EQ.1.OR.NDATA.LT.3) GO TO 210 A(1)=1.0 B(1)=0.0 D(1)=0.0 N=NDATA-1 DO 110 I=2,N A(I)=(XDATA(I+1)-XDATA(I-1))/3.0-(XDATA(I)-XDATA(I-1))*B(I-1)/(6.0 1*A(I-1)) B(I)=(XDATA(I+1)-XDATA(I))/6.0 110 D(I)=(YDATA(I+1)-YDATA(I))/(XDATA(I+1)-XDATA(I))-(YDATA(I)-YDATA(I 1-1))/(XDATA(I)-XDATA(I-1))-(XDATA(I)-XDATA(I-1))*D(I-1)/(6.0*A(I-1 2)) A(NDATA)=0.0 B(NDATA)=1.0 D(NDATA)=0.0 M(NDATA)=A(NDATA)*D(N)/(A(NDATA)*B(N)-A(N)*B(NDATA)) DO 120 II=2,NDATA I=NDATA+1-II 120 M(I)=(D(I)-B(I)*M(I+1))/A(I) ASSIGN 150 TO IY IF (NWOT.EQ.1) ASSIGN 160 TO IY ASSIGN 160 TO ISLOPE IF (NWOT.EQ.0) ASSIGN 200 TO ISLOPE J=2 DO 200 I=1,NXY IF (XIN(I).LT.XDATA(1)) GO TO 170 IF (XIN(I).GT.XDATA(NDATA)) GO TO 180 130 IF (XIN(I).LE.XDATA(J)) GO TO 140 J=J+1 GO TO 130 140 DX=XDATA(J)-XDATA(J-1) GO TO IY, (150,160) 150 YOUT(I)=M(J-1)/(6.0*DX)*(XDATA(J)-XIN(I))**3+M(J)/(6.0*DX)*(XIN(I) 1-XDATA(J-1))**3+(XDATA(J)-XIN(I))*(YDATA(J-1)/DX-M(J-1)/6.0*DX)+(X 2IN(I)-XDATA(J-1))*(YDATA(J)/DX-M(J)/6.0*DX) GO TO ISLOPE, (160,200) 160 SLOPE(I)=(-M(J-1)*(XDATA(J)-XIN(I))**2/2.0+M(J)*(XIN(I)-XDATA(J-1) 1)**2/2.0+YDATA(J)-YDATA(J-1))/DX-(M(J)-M(J-1))/6.0*DX GO TO 200 170 JP=1 KP=2 GO TO 190 180 JP=NDATA KP=N 190 YPRIME=(YDATA(KP)-YDATA(JP))/(XDATA(KP)-XDATA(JP))-M(KP)/6.0*(XDAT 1A(KP)-XDATA(JP)) IF (NWOT.NE.1) YOUT(I)=YDATA(JP)+(XIN(I)-XDATA(JP))*YPRIME IF (NWOT.NE.0) SLOPE(I)=YPRIME 200 CONTINUE RETURN 210 IF (NDATA.NE.1) GO TO 230 DO 220 I=1,NXY 220 YOUT(I)=YDATA(1) RETURN 230 IF (NWOT.EQ.1) GO TO 254 J=2 DO 250 I=1,NXY 240 IF (XIN(I).LE.XDATA(J).OR.J.EQ.NDATA) GO TO 250 J=J+1 GO TO 240 250 YOUT(I)=YDATA(J-1)+(YDATA(J)-YDATA(J-1))/(XDATA(J)-XDATA(J-1))*(XI 1N(I)-XDATA(J-1)) IF (NWOT.NE.2) RETURN 254 YPRIME=(YDATA(2)-YDATA(1))/(XDATA(2)-XDATA(1)) DO 260 I=1,NXY 260 SLOPE(I)=YPRIME RETURN END ================================================ FILE: mis/alg02.f ================================================ SUBROUTINE ALG02 C LOGICAL DEBUG REAL LOSS,LAMI,LAMIP1,LAMIM1 DIMENSION II(21,30),JJ(21,30),IDATA(24),RDATA(6),NAME(2) COMMON /UD3PRT/ IPRTC COMMON /UDSIGN/ NSIGN COMMON /UPAGE / LIMIT,LQ COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD, 1 NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS, 2 I,IVFAIL,IFFAIL,NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB, 3 IMID,IFAIL,ITER,LOG1,LOG2,LOG3,LOG4,LOG5,LOG6, 4 IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30), 5 NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30), 6 NL2(30),NDIMEN(30),IS1(30),IS2(30),IS3(30), 7 NEVAL(30),NDIFF(4),NDEL(30),NLITER(30),NM(2), 8 NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30), 9 NOUT3(30),NBLADE(30),DM(11,5,2),WFRAC(11,5,2), O R(21,30),XL(21,30),X(21,30),H(21,30),S(21,30), 1 VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4), 2 FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2), 3 DATAC(100),DATA1(100),DATA2(100),DATA3(100), 4 DATA4(100),DATA5(100),DATA6(100),DATA7(100), 5 DATA8(100),DATA9(100),FLOW(10),SPEED(30), 6 SPDFAC(10),BBLOCK(30),BDIST(30),WBLOCK(30), 7 WWBL(30),XSTN(150),RSTN(150),DELF(30),DELC(100), 8 DELTA(100),TITLE(18),DRDM2(30),RIM1(30),XIM1(30) COMMON /UD300C/ WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21), 1 DELW(21),LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21), 2 CR(21),GAMA(21),SPPG(21),CPPG(21),HKEEP(21), 3 SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK,SHAPE, 4 SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX, 5 RCONST,FM2,HMIN,C1,PI,CONTR,CONMX EQUIVALENCE (H(1,1),II(1,1)),(S(1,1),JJ(1,1)) DATA NAME / 4HALG0, 4H2 / C DEBUG = .FALSE. CALL SSWTCH (20,J) IF (J .EQ. 1) DEBUG =.TRUE. NEVAL(1) = 0 CALL FREAD (LOG1,TITLE,18,1) IF (IPRTC .EQ. 1) WRITE (LOG2,110) TITLE 110 FORMAT (10X,10HINPUT DATA, /10X,10(1H*), //10X,5HTITLE,34X,2H= , 1 18A4) LNCT = LNCT + 4 CALL ALG1 (LNCT) CALL FREAD (LOG1,IDATA,21,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',111,IDATA,21) NSTNS = IDATA( 1) NSTRMS = IDATA( 2) NMAX = IDATA( 3) NFORCE = IDATA( 4) NBL = IDATA( 5) NCASE = IDATA( 6) NSPLIT = IDATA( 7) NSET1 = IDATA( 8) NSET2 = IDATA( 9) NREAD = IDATA(10) NPUNCH = IDATA(11) NPLOT = IDATA(12) NPAGE = IDATA(13) NTRANS = IDATA(14) NMIX = IDATA(15) NMANY = IDATA(16) NSTPLT = IDATA(17) NEQN = IDATA(18) NLE = IDATA(19) NTE = IDATA(20) NSIGN = IDATA(21) IF (NSTRMS .EQ. 0) NSTRMS = 11 IF (NMAX .EQ. 0) NMAX = 40 IF (NFORCE .EQ. 0) NFORCE = 10 IF (NCASE .EQ. 0) NCASE = 1 IF (NPAGE .EQ. 0) NPAGE = 60 LQ = LOG2 LIMIT = NPAGE CALL ALG03 (LNCT,19) IF (IPRTC .EQ. 1) WRITE (LOG2,130) NSTNS,NSTRMS,NMAX,NFORCE,NBL, 1 NCASE,NSPLIT,NSET1,NSET2,NREAD,NPUNCH,NPLOT,NPAGE,NTRANS, 2 NMIX,NMANY,NSTPLT,NEQN,NLE,NTE,NSIGN 130 FORMAT (//10X,'NUMBER OF STATIONS',21X,1H=,I3, /10X,'NUMBER OF ', 1 'STREAMLINES',18X,1H=,I3, /10X,20HMAX NUMBER OF PASSES,19X, 2 1H=,I3, /10X,30HMAX NUMBER OF ARBITRARY PASSES,9X,1H=,I3, 3 /10X,29HBOUNDARY LAYER CALC INDICATOR,10X,1H=,I3, /10X, 4 24HNUMBER OF RUNNING POINTS,15X,1H=,I3, /10X, 5 33HSTREAMLINE DISTRIBUTION INDICATOR,6X,1H=,I3, /10X, 6 34HNUMBER OF LOSS/D-FACTOR CURVE SETS,5X,1H=,I3, /10X, 7 34HNUMBER OF LOSS/T.E.LOSS CURVE SETS,5X,1H=,I3, /10X, 8 26HSTREAMLINE INPUT INDICATOR,13X,1H=,I3, /10X, 9 27HSTREAMLINE OUTPUT INDICATOR,12X,1H=,I3, /10X, O 24HPRECISION PLOT INDICATOR,15X,1H=,I3, /10X, 1 24HMAX NUMBER OF LINES/PAGE,15X,1H=,I3, /10X, 2 29HWAKE TRANSPORT CALC INDICATOR,10X,1H=,I3, /10X, 3 32HMAINSTREAM MIXING CALC INDICATOR,7X,1H=,I3, /10X, 4 33HNO OF STATIONS FROM ANALYTIC SECN,6X,1H=,I3, /10X, 5 27HLINE-PRINTER PLOT INDICATOR,12X,1H=,I3, /10X, 6 32HMOMENTUM EQUATION FORM INDICATOR,7X,1H=,I3, /10X, 7 30HSTATION NUMBER AT LEADING EDGE,9X,1H=,I3, /10X, 8 31HSTATION NUMBER AT TRAILING EDGE,8X,1H=,I3, /10X, 9 37HCOMPRESSOR DIR. OF ROTATION INDICATOR,2X,1H=,I3) ITUB = NSTRMS - 1 IMID = NSTRMS/2 + 1 IF (NMANY .EQ. 0) GO TO 136 CALL FREAD (LOG1,NWHICH,NMANY,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',132,NWHICH,NMANY) CALL ALG03 (LNCT,2) IF (IPRTC .EQ. 1) WRITE (LOG2,134) (NWHICH(I),I=1,NMANY) 134 FORMAT (//10X,'GEOMETRY COMES FROM ANALYTIC SECTION FOR STATIONS', 1 23I3) 136 CALL ALG03 (LNCT,7) CALL FREAD (LOG1,RDATA,6,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',136,RDATA,6) G = RDATA(1) EJ = RDATA(2) SCLFAC = RDATA(3) TOLNCE = RDATA(4) VISK = RDATA(5) SHAPE = RDATA(6) IF (G .EQ. 0.0) G = 32.174 IF (EJ .EQ. 0.0) EJ = 778.16 IF (SCLFAC .EQ. 0.) SCLFAC = 12.0 IF (TOLNCE .EQ. 0.) TOLNCE = 0.001 IF (VISK .EQ. 0.0) VISK = 0.00018 IF (SHAPE.EQ. 0.0) SHAPE = 0.7 IF (IPRTC .EQ. 1) WRITE (LOG2,150) G,EJ,SCLFAC,TOLNCE,VISK,SHAPE 150 FORMAT (//10X,22HGRAVITATIONAL CONSTANT,17X,1H=,F8.4, /10X, 1 17HJOULES EQUIVALENT,22X,1H=,F8.3, /10X, 2 29HLINEAR DIMENSION SCALE FACTOR,10X,1H=,F8.4, /10X, 3 15HBASIC TOLERANCE,24X,1H=,F8.5, /10X, 4 19HKINEMATIC VISCOSITY,20X,1H=,F8.5, /10X, 5 17HB.L. SHAPE FACTOR,22X,1H=,F8.5) CALL ALG03 (LNCT,7) CALL FREAD (LOG1,RDATA,6,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',151,RDATA,6) XSCALE = RDATA(1) PSCALE = RDATA(2) RLOW = RDATA(3) PLOW = RDATA(4) XMMAX = RDATA(5) RCONST = RDATA(6) IF (XMMAX .EQ.0.0) XMMAX = 0.6 IF (RCONST.EQ.0.0) RCONST = 6.0 IF (IPRTC .EQ. 1) WRITE (LOG2,160) XSCALE,PSCALE,RLOW,PLOW,XMMAX, 1 RCONST 160 FORMAT (//10X,29HPLOTTING SCALE FOR DIMENSIONS,10X,1H=,F7.3, /10X, 1 28HPLOTTING SCALE FOR PRESSURES,11X,1H=,F7.3, /10X, 2 22HMINIMUM RADIUS ON PLOT,17X,1H=,F7.3, /10X, 3 24HMINIMUM PRESSURE ON PLOT,15X,1H=,F7.3, /10X, 4 40HMAXIMUM M-SQUARED IN RELAXATION FACTOR =,F8.4, /10X, 5 29HCONSTANT IN RELAXATION FACTOR,10X,1H=,F8.4) CALL ALG03 (LNCT,3) CALL FREAD (LOG1,RDATA,2,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',162,RDATA,2) CONTR = RDATA(1) CONMX = RDATA(2) IF (IPRTC .EQ. 1) WRITE (LOG2,164) CONTR,CONMX 164 FORMAT (//10X,22HWAKE TRANSFER CONSTANT,17X,1H=,F8.5, /10X, 1 25HTURBULENT MIXING CONSTANT,14X,1H=,F8.5) CALL ALG03 (LNCT,5+NCASE) DO 168 K = 1,NCASE CALL FREAD (LOG1,FLOW(K),1,0) 168 CALL FREAD (LOG1,SPDFAC(K),1,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',171,FLOW,NCASE) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',172,SPDFAC,NCASE) IF (IPRTC .EQ. 1) WRITE(LOG2,180) (K,FLOW(K),SPDFAC(K),K=1,NCASE) 180 FORMAT (//10X,21HPOINTS TO BE COMPUTED, //10X,2HNO,6X,8HFLOWRATE, 1 4X,12HSPEED FACTOR, //,(10X,I2,F13.3,F14.3)) CALL FREAD (LOG1,L1,1,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',180,L1,1) DO 185 K = 1,L1 CALL FREAD (LOG1,XSTN(K),1,0) 185 CALL FREAD (LOG1,RSTN(K),1,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',191,XSTN,L1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',192,RSTN,L1) ISTAG = 0 IF (RSTN(1) .EQ. 0.0) ISTAG = 1 NSPEC(1) = L1 CALL ALG03 (LNCT,7+L1) IF (IPRTC .EQ. 1) WRITE (LOG2,200) L1,(XSTN(K),RSTN(K),K=1,L1) 200 FORMAT (//10X,'ANNULUS / COMPUTING STATION GEOMETRY', //10X, 1 24HSTATION 1 SPECIFIED BY,I3,7H POINTS, //17X,4HXSTN,8X, 2 4HRSTN,//,(F22.4,F12.4)) IS1(1) = 1 LAST = L1 DO 220 I = 2,NSTNS CALL FREAD (LOG1,L1,1,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',210,L1,1) NEXT = LAST + 1 LAST = LAST + L1 IF (LAST .GT. 150) GO TO 550 DO 215 K = NEXT,LAST CALL FREAD (LOG1,XSTN(K),1,0) 215 CALL FREAD (LOG1,RSTN(K),1,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',215,XSTN(NEXT),LAST-NEXT+1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',216,RSTN(NEXT),LAST-NEXT+1) IF (RSTN(NEXT) .EQ. 0.0) ISTAG = I CALL ALG03 (LNCT,5+L1) IS1(I) = NEXT NSPEC(I) = L1 220 IF (IPRTC .EQ. 1) WRITE (LOG2,230) I,L1,(XSTN(K),RSTN(K), 1 K=NEXT,LAST) 230 FORMAT (//10X,7HSTATION,I3,14H SPECIFIED BY,I3,7H POINTS, //17X, 1 4HXSTN,8X,4HRSTN, //,(F22.4,F12.4)) SPEED(1) = 0.0 CALL FREAD (LOG1,IDATA,4,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',233,IDATA,4) L1 = IDATA(1) NTERP(1) = IDATA(2) NDIMEN(1) = IDATA(3) NMACH(1) = IDATA(4) DO 335 K = 1,L1 CALL FREAD (LOG1,RDATA,4,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',234,RDATA,4) DATAC(K) = RDATA(1) DATA1(K) = RDATA(2) DATA2(K) = RDATA(3) 335 DATA3(K) = RDATA(4) CALL ALG03 (LNCT,7+L1) IS2(1) = 1 NDATA(1) = L1 LAST = L1 IF (IPRTC .EQ. 1) WRITE (LOG2,250) L1,NTERP(1),NDIMEN(1),NMACH(1), 1 (DATAC(K),DATA1(K),DATA2(K),DATA3(K),K=1,L1) 250 FORMAT (//10X,24HSTATION CALCULATION DATA, //7X, 1 18HSTATION 1 NDATA=,I3,7H NTERP=,I2,8H NDIMEN=,I2, 2 7H NMACH=,I2, //11X,5HDATAC,6X,14HTOTAL PRESSURE,4X, 3 17HTOTAL TEMPERATURE,4X,11HWHIRL ANGLE, //, 4 (5X,F12.4,F15.4,F19.3,F18.3)) DO 252 K = 1,L1 252 DATA1(K) = DATA1(K)*SCLFAC**2 LASTD = 0 NOUT1(1) = 0 NOUT2(1) = 0 DO 320 I = 2,NSTNS LOGN = LOG1 IF (NMANY .EQ. 0) GO TO 258 DO 254 L1 = 1,NMANY IF (NWHICH(L1) .EQ. I) GO TO 256 254 CONTINUE GO TO 258 256 LOGN = LOG5 258 CALL FREAD (LOGN,IDATA,16,1) CWKBD IF (DEBUG .AND. LOGN.EQ.LOG1) CALL BUG1 ('ALG02 ',258,IDATA,16) NDATA(I) = IDATA(1) NTERP(I) = IDATA(2) NDIMEN(I) = IDATA(3) NMACH(I) = IDATA(4) NWORK(I) = IDATA(5) NLOSS(I) = IDATA(6) NL1(I) = IDATA(7) NL2(I) = IDATA(8) NEVAL(I) = IDATA(9) NCURVE(I) = IDATA(10) NLITER(I) = IDATA(11) NDEL(I) = IDATA(12) NOUT1(I) = IDATA(13) NOUT2(I) = IDATA(14) NOUT3(I) = IDATA(15) NBLADE(I) = IDATA(16) L1 = 3 IF (NDATA(I) .NE. 0) L1 = L1 + 5 + NDATA(I) IF (NDEL(I) .NE. 0) L1 = L1 + 3 + NDEL(I) CALL ALG03 (LNCT,L1) IF (IPRTC .EQ. 1) WRITE (LOG2,270) I,NDATA(I),NTERP(I),NDIMEN(I), 1 NMACH(I),NWORK(I),NLOSS(I),NL1(I),NL2(I),NEVAL(I),NCURVE(I) 2, NLITER(I),NDEL(I),NOUT1(I),NOUT2(I),NOUT3(I),NBLADE(I) 270 FORMAT (//7X,7HSTATION,I3, 8H NDATA=,I3,7H NTERP=,I2,8H NDIMEN=, 1 I2,7H NMACH=,I2,7H NWORK=,I2,7H NLOSS=,I2,5H NL1=,I3, 2 5H NL2=,I3,7H NEVAL=,I2,8H NCURVE=,I2,8H NLITER=,I3, 3 6H NDEL=,I3, /19X,6HNOUT1=,I2,7H NOUT2=,I2,7H NOUT3=,I2, 4 8H NBLADE=,I3) SPEED(I) = 0.0 IF (NDATA(I) .EQ. 0) GO TO 320 NEXT = LAST + 1 LAST = LAST + NDATA(I) IS2(I) = NEXT IF (LAST .GT. 100) GO TO 550 CALL FREAD (LOGN,SPEED(I),1,1) CWKBD IF (DEBUG .AND.LOGN.EQ.LOG1) CALL BUG1 ('ALG02 ',271,SPEED(I),1) DO 275 K = NEXT,LAST CALL FREAD (LOGN,RDATA,6,1) CWKBD IF (DEBUG .AND. LOGN.EQ.LOG1) CALL BUG1 ('ALG02 ',272,RDATA,6) DATAC(K) = RDATA(1) DATA1(K) = RDATA(2) DATA2(K) = RDATA(3) DATA3(K) = RDATA(4) DATA4(K) = RDATA(5) DATA5(K) = RDATA(6) CALL FREAD (LOGN,RDATA,4,1) CWKBD IF (DEBUG .AND. LOGN.EQ.LOG1) CALL BUG1 ('ALG02 ',273,RDATA,4) DATA6(K) = RDATA(1) DATA7(K) = RDATA(2) DATA8(K) = RDATA(3) 275 DATA9(K) = RDATA(4) IF (IPRTC .EQ. 1) WRITE (LOG2,290) SPEED(I),(DATAC(K),DATA1(K), 1 DATA2(K),DATA3(K),DATA4(K),DATA5(K),DATA6(K),DATA7(K), 2 DATA8(K),DATA9(K),K=NEXT,LAST) 290 FORMAT (//10X,7HSPEED =,F9.2, //13X,5HDATAC,7X,5HDATA1,7X,5HDATA2, 1 7X,5HDATA3,7X,5HDATA4,7X,5HDATA5,7X,5HDATA6,7X,5HDATA7,7X, 2 5HDATA8,7X,5HDATA9, //, 3 (10X,F9.4,F12.3,F13.6,F11.4,F12.5,F12.5,4F12.4)) IF (NWORK(I) .NE. 1) GO TO 296 DO 294 K = NEXT,LAST 294 DATA1(K) = DATA1(K)*SCLFAC**2 296 IF (NEVAL(I).GT.0 .AND. NSTRMS.GT.NDATA(I)) LAST = LAST + NSTRMS - 1 NDATA(I) IF (NDEL(I) .EQ. 0) GO TO 320 NEXT = LASTD + 1 LASTD = LASTD + NDEL(I) IS3(I) = NEXT IF (LASTD .GT. 100) GO TO 550 DO 298 K = NEXT,LASTD CALL FREAD (LOG1,DELC(K), 1,0) 298 CALL FREAD (LOG1,DELTA(K),1,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',298,DELC(NEXT),LASTD-NEXT+1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',299,DELTA(NEXT),LASTD-NEXT+1) IF (IPRTC .EQ. 1) WRITE(LOG2,310)(DELC(K),DELTA(K),K=NEXT,LASTD) 310 FORMAT (//13X,4HDELC,8X,5HDELTA, //,(10X,F9.4,F12.4)) 320 CONTINUE CALL ALG03 (LNCT,5+NSTNS) DO 325 I = 1,NSTNS CALL FREAD (LOG1,RDATA,3,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',323,RDATA,3) WBLOCK(I) = RDATA(1) BBLOCK(I) = RDATA(2) 325 BDIST(I) = RDATA(3) IF (IPRTC .EQ. 1) WRITE (LOG2,340) (I,WBLOCK(I),BBLOCK(I), 1 BDIST(I),I=1,NSTNS) 340 FORMAT (//10X,'BLOCKAGE FACTOR SPECIFICATIONS', //10X,'STATION ', 1 ' WALL BLOCKAGE WAKE BLOCKAGE WAKE DISTRIBUTION FACTOR', 2 //,(10X,I4,F16.5,F16.5,F19.3)) IF (NSET1 .EQ. 0) GO TO 380 DO 370 K = 1,NSET1 CALL FREAD (LOG1,L1,1,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',342,L1,1) DO 345 J = 1,L1 CALL FREAD (LOG1,RDATA,4,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',343,RDATA,4) DIFF(J,K) = RDATA(1) FDHUB(J,K) = RDATA(2) FDMID(J,K) = RDATA(3) 345 FDTIP(J,K) = RDATA(4) CALL ALG03 (LNCT,6+L1) IF (IPRTC .EQ. 1) WRITE (LOG2,360) K,L1,(DIFF(J,K),FDHUB(J,K), 1 FDMID(J,K),FDTIP(J,K),J=1,L1) 360 FORMAT (//10X,'LOSS PARAMETER / DIFFUSION FACTOR CURVES FOR BLADE' 1, ' TYPE',I2,I5,' D-FACTORS GIVEN', //15X,9HDIFFUSION,5X, 2 'L O S S P A R A M E T E R S', /16X,7HFACTORS,8X,3HHUB, 3 9X,3HMID,8X,3HTIP,//,(15X,F8.3,F13.5,F12.5,F11.5)) 370 NDIFF(K) = L1 380 IF (NSET2 .EQ. 0) GO TO 450 DO 440 K = 1,NSET2 CALL FREAD (LOG1,IDATA,2,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',385,IDATA,2) L1 = IDATA(1) L2 = IDATA(2) CALL ALG03 (LNCT,7+L1) NM(K) = L1 NRAD(K) = L2 CALL FREAD (LOG1,TERAD(1,K),1,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',391,TERAD(1,K),1) DO 398 J = 1,L1 CALL FREAD (LOG1,RDATA,2,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',398,RDATA,2) DM(J,1,K) = RDATA(1) 398 WFRAC(J,1,K) = RDATA(2) IF (IPRTC .EQ. 1) WRITE (LOG2,410) K,L1,L2,TERAD(1,K),(DM(J,1,K), 1 WFRAC(J,1,K),J=1,L1) 410 FORMAT (//10X,'FRACTIONAL LOSS DISTRIBUTION CURVES FOR BLADE ', 1 'CLASS',I2,I5,' POINTS GIVEN AT',I3,' RADIAL LOCATIONS', // 2 10X,'FRACTION OF COMPUTING STATION LENGTH AT BLADE EXIT =', 3 F7.4, //10X,'FRACTION OF MERIDIONAL CHORD',4X, 4 'LOSS/LOSS AT TRAILING EDGE', //,(15X,F11.4,20X,F11.4)) IF (L2 .EQ. 1) GO TO 440 DO 420 L = 2,L2 CALL ALG03 (LNCT,5+L1) CALL FREAD (LOG1,TERAD(L,K),1,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',411,TERAD(L,K),1) DO 415 J = 1,L1 CALL FREAD (LOG1,RDATA,2,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',412,RDATA,2) DM(J,L,K) = RDATA(1) 415 WFRAC(J,L,K) = RDATA(2) 420 IF (IPRTC .EQ. 1) WRITE (LOG2,430) TERAD(L,K),(DM(J,L,K), 1 WFRAC(J,L,K),J=1,L1) 430 FORMAT (//10X,'FRACTION OF COMPUTING STATION LENGTH AT BLADE ', 1 'EXIT =',F7.4, //10X,'FRACTION OF MERIDIONAL CHORD',4X, 2 'LOSS/LOSSAT TRAILING EDGE', //,(15X,F11.4,20X,F11.4)) 440 CONTINUE 450 IF (NSPLIT.EQ.0 .AND. NREAD.EQ.0) GO TO 570 DO 455 J = 1,NSTRMS,6 455 CALL FREAD (LOG1,DELF(J),6,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',455,DELF,NSTRMS) L1 = 5 IF (NSTRMS .GE. 16) L1 = 8 CALL ALG03 (LNCT,L1) IF (IPRTC .EQ. 1) WRITE (LOG2,470) L1 = NSTRMS IF (NSTRMS .GT. 15) L1 = 15 IF (IPRTC .EQ. 1) WRITE (LOG2,480) (J,J=1,L1) 480 FORMAT (//10X,'STREAMLINE',I5,14I7) 470 FORMAT (//10X,'PROPORTIONS OF TOTAL FLOW BETWEEN HUB AND EACH ', 1 'STREAMLINE ARE TO BE AS FOLLOWS') IF (IPRTC .EQ. 1) WRITE(LOG2,490) (DELF(J),J=1,L1) 490 FORMAT (10X,4HFLOW,7X,15F7.4) IF (NSTRMS .LE. 15) GO TO 500 L1 = L1 + 1 IF (IPRTC .EQ. 1) WRITE (LOG2,480) (J,J=L1,NSTRMS) IF (IPRTC .EQ. 1) WRITE (LOG2,490) (DELF(J),J=L1,NSTRMS) 500 IF (NREAD .EQ. 0) GO TO 570 DO 505 I = 1,NSTNS DO 505 J = 1,NSTRMS CALL FREAD (LOG1,RDATA,3,0) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',501,RDATA,3) R(J,I) = RDATA(1) X(J,I) = RDATA(2) XL(J,I) = RDATA(3) CALL FREAD (LOG1,IDATA,2,1) CWKBD IF (DEBUG) CALL BUG1 ('ALG02 ',502,IDATA,2) II(J,I) = IDATA(1) 505 JJ(J,I) = IDATA(2) CALL ALG03 (LNCT,5+NSTRMS) IF (IPRTC .EQ. 1) WRITE (LOG2,520) 520 FORMAT (//10X,'ESTIMATED STREAMLINE COORDINATES') DO 530 I = 1,NSTNS IF (I .GT. 1) CALL ALG03 (LNCT,3+NSTRMS) 530 IF (IPRTC .EQ. 1) WRITE (LOG2,540) (I,J,R(J,I),X(J,I),XL(J,I), 1 II(J,I),JJ(J,I),J=1,NSTRMS) 540 FORMAT (//10X,'STATION STREAMLINE RADIUS AXIAL COORDINATE ', 1 'L -COORDINATE CHECKS- I J', //, 2 (3X,2I11,F14.4,F12.4,F16.4,I17,I5)) GO TO 570 550 WRITE (LOG2,560) 560 FORMAT (////10X,'JOB STOPPED - TOO MUCH INPUT DATA') CALL MESAGE (-37,0,NAME) 570 RETURN END ================================================ FILE: mis/alg03.f ================================================ SUBROUTINE ALG03 (LNCT,L) C COMMON /UPAGE / LIMIT,LQ COMMON /UD3PRT/ IPRTC C LNCT=LNCT+L IF(LNCT.LE.LIMIT)RETURN LNCT=1+L IF (IPRTC .NE. 0) WRITE(LQ,100) 100 FORMAT(1H1) RETURN END ================================================ FILE: mis/alg04.f ================================================ SUBROUTINE ALG04(H,S,VW,R1,R2,X1,X2,VM,EPS,SCLFAC,G,EJ,HMIN,VMIN, 1PSMID,NSTRMS,LOG2,LNCT,IFAIL) C DIMENSION H(1),S(1),VW(1),R1(1),R2(1),X1(1),X2(1),VM(1) DIMENSION VZUP(21),VZDN(21),PSDN(21),HUP(21),VWUP(21),SUP(21),RMID 1(20),DELR(20),PSUP(21),HSUP(21),VWFUN(21),VZFUN(21),SDN(21),HSDN(2 21),VWDN(21),HDN(21),XX1(21),XX2(21),R(21) C DO 80 J=1,NSTRMS 80 R(J)=(R1(J)+R2(J))*0.5 Q1=R(NSTRMS)-R(1) Q2=VM(1) DO 90 J=2,NSTRMS IF(R(J)-R(J-1).LT.Q1)Q1=R(J)-R(J-1) IF(VM(J).LT.Q2)Q2=VM(J) 90 CONTINUE DELZ=Q2*Q1**2/(EPS*SCLFAC)*0.25 Q1=(X2(1)+X2(NSTRMS)-X1(1)-X1(NSTRMS))*0.5 ISTEP=Q1/DELZ+1.0 DELZ=Q1/FLOAT(ISTEP) VM2=VMIN**2 ITUB=NSTRMS-1 IMID=NSTRMS/2+1 DO 110 J=1,NSTRMS PSUP(J)=PSMID HUP(J)=H(J) VWUP(J)=VW(J) 110 SUP(J)=S(J) DO 120 J=1,ITUB RMID(J)=(R(J)+R(J+1))*0.5 120 DELR(J)=R(J+1)-R(J) IFAIL=0 KSTEP=1 130 CALL ALG29(VWUP,R,XX2,NSTRMS) DO 150 J=1,NSTRMS 150 VWFUN(J)=EPS/R(J)*(XX2(J)-VWUP(J)/R(J))*SCLFAC IF(KSTEP.GT.1)GO TO 280 JSTEP=1 J1=IMID 190 J2=J1+JSTEP JJ=J1 IF(JSTEP.EQ.-1)JJ=J2 Q1=((VWUP(J1)+VWUP(J2))*0.5)**2/RMID(JJ) Q1=DELR(JJ)*Q1*FLOAT(JSTEP) X3=(SUP(J1)+SUP(J2))*0.5 K=1 200 Q2=ALG2(X3,(PSUP(J1)+PSUP(J2))*0.5) IF(Q2.GE.HMIN)GO TO 210 IFAIL=1 GO TO 600 210 Q2=ALG5(Q2,X3)/G X4=PSUP(J2) PSUP(J2)=PSUP(J1)+Q1*Q2 IF(ABS(X4/PSUP(J2)-1.0).LE.1.0E-5)GO TO 220 K=K+1 IF(K.LE.10)GO TO 200 IFAIL=2 GO TO 600 220 IF(J2.EQ.1)GO TO 240 IF(J2.EQ.NSTRMS)GO TO 230 J1=J2 GO TO 190 230 JSTEP=-1 J1=IMID GO TO 190 240 DO 260 J=1,NSTRMS HSUP(J)=ALG2(SUP(J),PSUP(J)) IF(HSUP(J).GE.HMIN)GO TO 250 IFAIL=3 GO TO 600 250 Q1=2.0*G*EJ*(HUP(J)-HSUP(J))-VWUP(J)**2 IF(Q1.GE.VM2)GO TO 260 IFAIL=4 GO TO 600 260 VZUP(J)=SQRT(Q1) FLOW=0.0 DO 270 J=1,ITUB 270 FLOW=FLOW+(R(J+1)**2-R(J)**2)*(VZUP(J)+VZUP(J+1))*ALG5((HSUP(J)+HS 1UP(J+1))*0.5,(SUP(J)+SUP(J+1))*0.5) 280 CALL ALG29(HSUP,R,XX2,NSTRMS) DO 300 J=1,NSTRMS 300 HDN(J)=HUP(J)+DELZ/VZUP(J)*EPS/R(J)*XX2(J)*SCLFAC DO 310 J=1,NSTRMS 310 VWDN(J)=VWUP(J)+DELZ/VZUP(J)*VWFUN(J) CALL ALG29(VZUP,R,VZFUN,NSTRMS) DO 330 J=1,NSTRMS VZFUN(J)=DELZ*EPS*SCLFAC*VZFUN(J)/R(J) SDN(J)=SUP(J) 330 PSDN(J)=PSUP(J) KK=1 340 J1=IMID JSTEP=1 350 J2=J1+JSTEP JJ=J1 IF(JSTEP.EQ.-1)JJ=J2 Q1=((VWDN(J1)+VWDN(J2))*0.5)**2/RMID(JJ) Q1=DELR(JJ)*Q1*FLOAT(JSTEP) X3=(SDN(J1)+SDN(J2))*0.5 K=1 360 Q2=ALG2(X3,(PSDN(J1)+PSDN(J2))*0.5) IF(Q2.GE.HMIN)GO TO 370 IFAIL=5 GO TO 600 370 Q2=ALG5(Q2,X3)/G X4=PSDN(J2) PSDN(J2)=PSDN(J1)+Q1*Q2 IF(ABS(X4/PSDN(J2)-1.0).LE.1.0E-5)GO TO 380 K=K+1 IF(K.LE.10)GO TO 360 IFAIL=6 GO TO 600 380 IF(J2.EQ.1)GO TO 400 IF(J2.EQ.NSTRMS)GO TO 390 J1=J2 GO TO 350 390 J1=IMID JSTEP=-1 GO TO 350 400 DO 410 J=1,NSTRMS VZDN(J)=VZUP(J)+(VZFUN(J)-(PSDN(J)-PSUP(J))/ALG5(HSUP(J),SUP(J))*G 1)/VZUP(J) HSDN(J)=HDN(J)-(VZDN(J)**2+VWDN(J)**2)/(2.0*G*EJ) IF(HSDN(J).GE.HMIN)GO TO 410 IFAIL=7 GO TO 600 410 SDN(J)=ALG3(PSDN(J),HSDN(J)) XX1(1)=0.0 DO 420 J=1,ITUB 420 XX1(J+1)=XX1(J)+(R(J+1)**2-R(J)**2)*(VZDN(J+1)+VZDN(J))*ALG5((HSDN 1(J)+HSDN(J+1))*0.5,(SDN(J)+SDN(J+1))*0.5) Q1=XX1(NSTRMS) IF(ABS(Q1/FLOW-1.0).LE.1.0E-5.AND.KK.GT.1)GO TO 450 IF(KK.LE.15)GO TO 430 IFAIL=8 GO TO 600 430 Q2=ALG9(HSDN(IMID),SDN(IMID),VZDN(IMID)**2) Q1=(Q1-FLOW)*PSDN(IMID)*Q2/(FLOW*(1.0-Q2)) DO 440 J=1,NSTRMS 440 PSDN(J)=PSDN(J)+Q1 KK=KK+1 GO TO 340 450 IF(KSTEP.EQ.ISTEP)GO TO 510 DO 500 J=1,NSTRMS PSUP(J)=PSDN(J) HSUP(J)=HSDN(J) VZUP(J)=VZDN(J) VWUP(J)=VWDN(J) HUP(J)=HDN(J) 500 SUP(J)=SDN(J) KSTEP=KSTEP+1 GO TO 130 510 DO 520 J=1,NSTRMS H(J)=HDN(J) S(J)=SDN(J) 520 VW(J)=VWDN(J) RETURN 600 CALL ALG03(LNCT,1) WRITE(LOG2,610)IFAIL 610 FORMAT(5X,30HMIXING CALCULATION FAILURE NO.,I2) RETURN END ================================================ FILE: mis/alg05.f ================================================ SUBROUTINE ALG05 C REAL LOSS,LAMI,LAMIP1,LAMIM1 C DIMENSION XX1(21),XX2(21),XX3(21),XX4(21),XX5(21) C COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD, 1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL, 2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3, 3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30), 4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30) 5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30), 6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30), 7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30), 8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4), 9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100), 1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100), 2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10), 3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150), 4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30), 5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21), 6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21), 7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK, 8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST, 9FM2,HMIN,C1,PI,CONTR,CONMX C L1=NDIMEN(I)+1 GO TO(100,120,140,160),L1 100 DO 110 J=1,NSTRMS 110 XX5(J)=R(J,I) GO TO 180 120 DO 130 J=1,NSTRMS 130 XX5(J)=R(J,I)/R(NSTRMS,I) GO TO 180 140 DO 150 J=1,NSTRMS 150 XX5(J)=XL(J,I) GO TO 180 160 DO 170 J=1,NSTRMS 170 XX5(J)=XL(J,I)/XL(NSTRMS,I) 180 L2=IS2(I) L3=NDATA(I) L4=NTERP(I) CALL ALG01(DATAC(L2),DATA1(L2),L3,XX5,WORK ,X1,NSTRMS,L4,0) CALL ALG01(DATAC(L2),DATA3(L2),L3,XX5,TANEPS,X1,NSTRMS,L4,0) DO 190 J=1,NSTRMS 190 TANEPS(J)=TAN(TANEPS(J)/C1) IW=NWORK(I) IL=NLOSS(I) IF(IW.EQ.7.OR.IL.LE.3) 1CALL ALG01(DATAC(L2),DATA2(L2),L3,XX5,LOSS ,X1,NSTRMS,L4,0) IF(IW.GE.5) 1CALL ALG01(DATAC(L2),DATA6(L2),L3,XX5,XX1,X1,NSTRMS,L4,0) IF(IL.NE.4)GO TO 350 DO 200 II=I,NSTNS IF(NLOSS(II).EQ.1)GO TO 210 200 CONTINUE 210 L2=IS2(II) L3=NDATA(II) L4=NTERP(II) L1=NDIMEN(II)+1 GO TO(220,240,260,280),L1 220 DO 230 J=1,NSTRMS 230 XX5(J)=R(J,II) GO TO 300 240 DO 250 J=1,NSTRMS 250 XX5(J)=R(J,II)/R(NSTRMS,II) GO TO 300 260 DO 270 J=1,NSTRMS 270 XX5(J)=XL(J,II) GO TO 300 280 DO 290 J=1,NSTRMS 290 XX5(J)=XL(J,II)/XL(NSTRMS,II) 300 CALL ALG01(DATAC(L2),DATA2(L2),L3,XX5,LOSS,X1,NSTRMS,L4,0) III=I+NL1(I)+1 DO 320 J=1,NSTRMS XX2(J)=0.0 DO 310 IK=III,II XX2(J)=XX2(J)+SQRT((X(J,IK)-X(J,IK-1))**2+(R(J,IK)-R(J,IK-1))**2) IF(IK.EQ.I)XX3(J)=XX2(J) 310 CONTINUE 320 XX3(J)=XX3(J)/XX2(J) L1=NCURVE(I) L2=NM(L1) L3=NRAD(L1) DO 340 J=1,NSTRMS DO 330 K=1,L3 330 CALL ALG01(DM(1,K,L1),WFRAC(1,K,L1),L2,XX3(J),XX2(K),X1,1,0,0) X2=(R(J,II)-R(1,II))/(R(NSTRMS,II)-R(1,II)) CALL ALG01(TERAD(1,L1),XX2,L3,X2,X1,X1,1,0,0) 340 LOSS(J)=LOSS(J)*X1 350 IF(IW.LT.5)GO TO 420 IF(IW.NE.5)GO TO 370 DO 360 J=1,NSTRMS 360 TBETA(J,I)=TAN((WORK(J)+XX1(J))/C1) GO TO 420 370 IF(IW.EQ.7)GO TO 400 DO 380 J=1,NSTRMS 380 XX2(J)=TAN((ATAN((R(J,I+1)-R(J,I))/(X(J,I+1)-X(J,I)))+ATAN((R(J,I) 1-R(J,I-1))/(X(J,I)-X(J,I-1))))/2.0) L1=IS1(I) CALL ALG01(RSTN(L1),XSTN(L1),NSPEC(I),R(1,I),X1,XX3,NSTRMS,0,1) DO 390 J=1,NSTRMS 390 TBETA(J,I)=TAN(ATAN((TAN(WORK(J)/C1)*(1.0-XX3(J)*XX2(J))-XX2(J)*TA 1NEPS(J)*SQRT(1.0+XX3(J)**2))/SQRT(1.0+XX2(J)**2))+XX1(J)/C1) GO TO 420 400 XN=SPEED(I)*SPDFAC(ICASE)*PI/(30.0*SCLFAC) CALL ALG01(DATAC(L2),DATA7(L2),L3,XX5,XX2,X1,NSTRMS,L4,0) CALL ALG01(DATAC(L2),DATA8(L2),L3,XX5,XX3,X1,NSTRMS,L4,0) CALL ALG01(DATAC(L2),DATA9(L2),L3,XX5,XX4,X1,NSTRMS,L4,0) II=I+NL1(I) DO 410 J=1,NSTRMS X1=C1*ATAN((VW(J,II)-XN*R(J,II))/VM(J,II)) X2=XX3(J) IF(X1.LT.XX1(J))X2=XX4(J) LOSS(J)=LOSS(J)*(1.0+((X1-XX1(J))/(X2-XX1(J)))**2) IF(LOSS(J).GT.0.5)LOSS(J)=0.5 410 TBETA(J,I)=TAN((WORK(J)+(X1-XX1(J))*XX2(J))/C1) 420 RETURN END ================================================ FILE: mis/alg06.f ================================================ SUBROUTINE ALG06(R1,R2,X1,X2,H,S,VM,TB1,TB2,W,XK,SCLFAC,SPEED,SPD 1FAC,G,EJ,HMIN,NSTRMS,PI) C DIMENSION R1(1),R2(1),X1(1),X2(1),H(1),S(1),VM(1),TB1(1),TB2(1),W( 11) DIMENSION R(150),W2D(150),W3D(150),XX1(150),XX2(150),XX3(150),XX5( 19,9),B(150) C EQUIVALENCE (XX2(1),XX5(1,1)) C NTUB=NSTRMS-1 DO 50 J=1,NSTRMS Q1=H(J)-VM(J)**2*(1.0+(TB2(J)+R2(J)*SPEED*SPDFAC*PI/(SCLFAC*30.0*V 1M(J)))**2)/(2.0*G*EJ) IF(Q1.LT.HMIN)Q1=HMIN XX1(J)=ALG4(Q1,S(J)) 50 XX2(J)=ALG5(Q1,S(J)) CALL ALG01(R2,XX1,NSTRMS,R2,Q1,XX3,NSTRMS,0,1) DO 60 J=1,NSTRMS 60 XX1(J)=XX3(J)*G/XX2(J) Q1=(R2(NSTRMS)-R2(1))/149.0 R(1)=R2(1) DO 70 J=2,150 70 R(J)=R(J-1)+Q1 CALL ALG01(R2,XX1,NSTRMS,R,XX2,Q1,150,0,0) DO 80 J=1,NSTRMS 80 XX3(J)=((R2(J)-R1(J))**2+(X2(J)-X1(J))**2)*(1.0+((TB1(J)+TB2(J))*0 1.5)**2) CALL ALG01(R2,XX3,NSTRMS,R,XX1,Q1,150,0,0) DO 90 J=1,NSTRMS 90 W2D(J)=VM(J)**2*(1.0+TB2(J)**2) CALL ALG01(R2,W2D,NSTRMS,R,XX3,Q1,150,0,0) CALL ALG01(R2,W ,NSTRMS,R,W2D,Q1,150,0,0) NKEEP=NSTRMS NSTRMS=150 NTUB=149 Q2=(SPEED*SPDFAC*PI/(30.0*SCLFAC))**2 DO 100 J=1,NSTRMS 100 W3D(J)=0.0 B(1)=(R(2)-R(1))/2.0 B(NSTRMS)=(R(NSTRMS)-R(NTUB))/2.0 DO 110 J=2,NTUB 110 B(J)=(R(J+1)-R(J-1))/2.0 DO 270 J=1,NSTRMS DR=XK*XX1(J)/XX3(J)*(Q2*R(J)-XX2(J)) IF(DR)130,120,200 120 W3D(J)=W3D(J)+W2D(J) GO TO 270 130 IF(J.EQ.1)GO TO 120 IF(R(J)+DR.LE.R(1))GO TO 180 DO 140 JJ=2,J JJJ=J-JJ+1 IF(R(J)+DR.GE.R(JJJ))GO TO 150 140 CONTINUE 150 JJJ=JJJ+1 Q1=W2D(J)*B(J)/(B(J)-DR) DO 170 JJ=JJJ,J 170 W3D(JJ)=W3D(JJ)+Q1 GO TO 270 180 A=B(J)*W2D(J)/(R(NSTRMS)-R(1)) IF(J.NE.NSTRMS)A=B(J)*W2D(J)/((R(J+1)+R(J))*0.5-R(1)) DO 190 JJ=1,J 190 W3D(JJ)=W3D(JJ)+A GO TO 270 200 IF(J.EQ.NSTRMS)GO TO 120 IF(R(J)+DR.GE.R(NSTRMS))GO TO 250 DO 210 JJ=J,NSTRMS IF(R(J)+DR.LT.R(JJ))GO TO 220 210 CONTINUE 220 JJ=JJ-1 Q1=W2D(J)*B(J)/(B(J)+DR) DO 240 JJJ=J,JJ 240 W3D(JJJ)=W3D(JJJ)+Q1 GO TO 270 250 A=B(J)*W2D(J)/(R(NSTRMS)-R(1)) IF(J.NE.1)A=B(J)*W2D(J)/(R(NSTRMS)-(R(J)+R(J-1))*0.5) DO 260 JJ=J,NSTRMS 260 W3D(JJ)=W3D(JJ)+A 270 CONTINUE NSTRMS=NKEEP XX1(1)=0.0 DO 280 LL=1,150 280 XX1(1)=XX1(1)+W3D(LL) DO 290 L=2,9 XX1(L)=0.0 DO 290 LL=1,150 290 XX1(L)=XX1(L)+R(LL)**(L-1)*W3D(LL) DO 330 L=1,9 DO 320 J=L,9 IF(J.EQ.1)GO TO 310 XX5(L,J)=0.0 DO 300 LL=1,150 300 XX5(L,J)=XX5(L,J)+R(LL)**(L+J-2) GO TO 320 310 XX5(1,1)=150 320 XX5(J,L)=XX5(L,J) 330 CONTINUE CALL ALG30(XX5,XX1) DO 340 J=1,NSTRMS 340 W(J)=(((((((XX1(9)*R2(J)+XX1(8))*R2(J)+XX1(7))*R2(J)+XX1(6))*R2(J) 1+XX1(5))*R2(J)+XX1(4))*R2(J)+XX1(3))*R2(J)+XX1(2))*R2(J)+XX1(1) RETURN END ================================================ FILE: mis/alg07.f ================================================ SUBROUTINE ALG07 C REAL LOSS,LAMI,LAMIP1,LAMIM1 C COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD, 1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL, 2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3, 3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30), 4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30) 5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30), 6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30), 7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30), 8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4), 9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100), 1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100), 2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10), 3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150), 4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30), 5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21), 6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21), 7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK, 8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST, 9FM2,HMIN,C1,PI,CONTR,CONMX C L1=I+NL1(I) L2=I+NL2(I) IW=NWORK(I) IL=NLOSS(I) XN=SPEED(I)*SPDFAC(ICASE)*PI/(30.0*SCLFAC) GO TO(100,250,270,290,440,440,440),IW 100 GO TO(110,190,210,110),IL 110 IF(L2.NE.I)GO TO 150 DO 140 J=1,NSTRMS IF(IPASS.EQ.1.AND.ITER.EQ.0)GO TO 120 IF(ITER.EQ.0)VV(J)=VM(J,I) X1=H(J,I)-(VV(J)**2+VW(J,I)**2)/(2.0*G*EJ) X2=H(J,I)-(VW(J,I)**2-(VW(J,I)-XN*R(J,I))**2)/(2.0*G*EJ) IF(X1.LT.HMIN)X1=HMIN IF(X2.LT.HMIN)X2=HMIN X3=1.0/(1.0+LOSS(J)*(1.0-ALG4(X1,S(J,I))/ALG4(X2,S(J,I)))) GO TO 130 120 X3=1.0 130 H(J,I)=ALG2(S(J,L1),WORK(J)/X3) 140 S(J,I)=ALG3(WORK(J),H(J,I)) GO TO 230 150 DO 180 J=1,NSTRMS IF(IPASS.EQ.1.AND.L2.GT.I)GO TO 160 X1=H(J,L1)-(VW(J,L1)**2-(VW(J,L1)-XN*R(J,L1))**2)/(2.0*G*EJ)+XN**2 1*(R(J,I)**2-R(J,L1)**2)/(2.0*G*EJ) IF(X1.LT.HMIN)X1=HMIN X2=H(J,L2)-(VM(J,L2)**2+VW(J,L2)**2)/(2.0*G*EJ) X3=H(J,L2)-(VW(J,L2)**2-(VW(J,L2)-XN*R(J,L2))**2)/(2.0*G*EJ) IF(X2.LT.HMIN)X2=HMIN IF(X3.LT.HMIN)X3=HMIN X4=1.0-LOSS(J)/ALG4(X1,S(J,L1))*(ALG4(X3,S(J,L2))-ALG4(X2,S(J,L2)) 1) GO TO 170 160 X4=1.0 170 H(J,I)=ALG2(S(J,L1),WORK(J)/X4) 180 S(J,I)=ALG3(WORK(J),H(J,I)) GO TO 230 190 DO 200 J=1,NSTRMS H(J,I)=H(J,L1)+(ALG2(S(J,L1),WORK(J))-H(J,L1))/LOSS(J) 200 S(J,I)=ALG3(WORK(J),H(J,I)) GO TO 230 210 DO 220 J=1,NSTRMS S(J,I)=S(J,L1)+LOSS(J) 220 H(J,I)=ALG2(S(J,I),WORK(J)) 230 DO 240 J=1,NSTRMS 240 VW(J,I)=(XN*RIM1(J)*VW(J,I-1)+(H(J,I)-H(J,I-1))*G*EJ)/(XN*R(J,I)) GO TO 570 250 DO 260 J=1,NSTRMS H(J,I)=WORK(J) 260 VW(J,I)=(XN*RIM1(J)*VW(J,I-1)+(H(J,I)-H(J,I-1))*G*EJ)/(XN*R(J,I)) GO TO 330 270 DO 280 J=1,NSTRMS 280 VW(J,I)=WORK(J)/R(J,I) GO TO 310 290 DO 300 J=1,NSTRMS 300 VW(J,I)=WORK(J) 310 DO 320 J=1,NSTRMS 320 H(J,I)=H(J,I-1)+XN*(R(J,I)*VW(J,I)-RIM1(J)*VW(J,I-1))/(G*EJ) 330 GO TO(340,400,420,340),IL 340 IF(L2.NE.I)GO TO 370 DO 360 J=1,NSTRMS IF(IPASS.EQ.1.AND.ITER.EQ.0)GO TO 350 IF(ITER.EQ.0)VV(J)=VM(J,I) X1=H(J,I)-(VV(J)**2+VW(J,I)**2)/(2.0*G*EJ) X2=H(J,I)-(VW(J,I)**2-(VW(J,I)-XN*R(J,I))**2)/(2.0*G*EJ) IF(X1.LT.HMIN)X1=HMIN IF(X2.LT.HMIN)X2=HMIN X3=1.0/(1.0+LOSS(J)*(1.0-ALG4(X1,S(J,I))/ALG4(X2,S(J,I)))) GO TO 360 350 X3=1.0 360 S(J,I)=ALG3(X3*ALG4(H(J,I),S(J,L1)),H(J,I)) GO TO 570 370 DO 390 J=1,NSTRMS IF(IPASS.EQ.1.AND.L2.GT.I)GO TO 380 X1=H(J,L1)-(VW(J,L1)**2-(VW(J,L1)-XN*R(J,L1))**2)/(2.0*G*EJ)+XN**2 1*(R(J,I)**2-R(J,L1)**2)/(2.0*G*EJ) IF(X1.LT.HMIN)X1=HMIN X2=H(J,L2)-(VM(J,L2)**2+VW(J,L2)**2)/(2.0*G*EJ) X3=H(J,L2)-(VW(J,L2)**2-(VW(J,L2)-XN*R(J,L2))**2)/(2.0*G*EJ) IF(X2.LT.HMIN)X2=HMIN IF(X3.LT.HMIN)X3=HMIN X4=1.0-LOSS(J)/ALG4(X1,S(J,L1))*(ALG4(X3,S(J,L2))-ALG4(X2,S(J,L2)) 1) GO TO 390 380 X4=1.0 390 S(J,I)=ALG3(X4*ALG4(H(J,I),S(J,L1)),H(J,I)) GO TO 570 400 DO 410 J=1,NSTRMS 410 S(J,I)=ALG3(ALG4(H(J,L1)+LOSS(J)*(H(J,I)-H(J,L1)),S(J,L1)),H(J,I)) GO TO 570 420 DO 430 J=1,NSTRMS 430 S(J,I)=S(J,L1)+LOSS(J) GO TO 570 440 DO 450 J=1,NSTRMS 450 XI(J)=H(J,I-1)-XN*RIM1(J)*VW(J,I-1)/(G*EJ) GO TO(460,510,550,460),IL 460 IF(L2.NE.I)GO TO 490 DO 480 J=1,NSTRMS X2=XI(J)+(XN*R(J,I))**2/(2.0*G*EJ) IF(IPASS.EQ.1.AND.ITER.EQ.0) GO TO 470 IF(ITER.EQ.0) VV(J) = VM(J,I) X1=X2-VV(J)**2*(1.0+TBETA(J,I)**2)/(2.0*G*EJ) IF(X1.LT.HMIN)X1=HMIN IF(X2.LT.HMIN)X2=HMIN X3=1.0/(1.0+LOSS(J)*(1.0-ALG4(X1,S(J,I))/ALG4(X2,S(J,I)))) GO TO 480 470 X3=1.0 480 S(J,I)=ALG3(X3*ALG4(X2,S(J,L1)),X2) GO TO 570 490 DO 500 J=1,NSTRMS X4=XI(J)+(XN*R(J,I))**2/(2.0*G*EJ) IF(X4.LT.HMIN)X4=HMIN X1=ALG4(X4,S(J,L1)) IF(IPASS.EQ.1.AND.L2.GT.I)GO TO 500 X2=XI(J)+(XN*R(J,L2))**2/(2.0*G*EJ) X3=H(J,L2)-(VM(J,L2)**2+VW(J,L2)**2)/(2.0*G*EJ) IF(X2.LT.HMIN)X2=HMIN IF(X3.LT.HMIN)X3=HMIN X1=X1-LOSS(J)*(ALG4(X2,S(J,L2))-ALG4(X3,S(J,L2))) 500 S(J,I)=ALG3(X1,X4) GO TO 570 510 IF(IPASS.EQ.1.AND.ITER.EQ.0)GO TO 530 DO 520 J=1,NSTRMS IF(ITER.EQ.0)VV(J)=VM(J,I) X1=H(J,I-1)+XN*(VV(J)*(TBETA(J,I)+XN*R(J,I)/VV(J))*R(J,I)-RIM1(J)* 1VW(J,I-1))/(G*EJ) IF(X1.LT.HMIN)X1=HMIN X2=ALG4(H(J,L1)+(X1-H(J,L1))*LOSS(J),S(J,L1)) 520 S(J,I)=ALG3(X2,X1) GO TO 570 530 DO 540 J=1,NSTRMS 540 S(J,I)=S(J,L1) GO TO 570 550 DO 560 J=1,NSTRMS 560 S(J,I)=S(J,L1)+LOSS(J) 570 RETURN END ================================================ FILE: mis/alg08.f ================================================ SUBROUTINE ALG08 C REAL LOSS,LAMI,LAMIP1,LAMIM1 C DIMENSION XX1(21),DLADM(21),DSDM(21),DRVWDM(21),DL(21),DSDL(21),DP 1HIDL(21),FX1(21),FX2(21),VVOLD(21),AFUN(20),BFUN(20),HS(20),XM2(20 2),VMMAX(21),DVMDVM(20),TEIP1(21),TBIP1(21) C COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD, 1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL, 2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3, 3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30), 4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30) 5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30), 6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30), 7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30), 8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4), 9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100), 1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100), 2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10), 3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150), 4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30), 5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21), 6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21), 7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK, 8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST, 9FM2,HMIN,C1,PI,CONTR,CONMX C ITMAX=20 LPMAX=10 K=1 IF(I.EQ.ISTAG)K=2 XN=SPEED(I)*SPDFAC(ICASE)*PI/(30.0*SCLFAC) IF(I.EQ.1)GO TO 234 DO 100 J=1,NSTRMS LAMIM1(J)=LAMI(J) LAMI(J)=LAMIP1(J) 100 LAMIP1(J)=1.0 IF(I.EQ.NSTNS)GO TO 234 IF(NDATA(I+1).EQ.0)GO TO 210 L1=NDIMEN(I+1)+1 GO TO(110,130,150,170),L1 110 DO 120 J=1,NSTRMS 120 XX1(J)=R(J,I+1) GO TO 190 130 DO 140 J=1,NSTRMS 140 XX1(J)=R(J,I+1)/R(NSTRMS,I+1) GO TO 190 150 DO 160 J=1,NSTRMS 160 XX1(J)=XL(J,I+1) GO TO 190 170 DO 180 J=1,NSTRMS 180 XX1(J)=XL(J,I+1)/XL(NSTRMS,I+1) 190 L1=IS2(I+1) CALL ALG01(DATAC(L1),DATA4(L1),NDATA(I+1),XX1,XX1,X1,NSTRMS,NTERP 1(I+1),0) DO 200 J=1,NSTRMS 200 LAMIP1(J)=1.0-XX1(J) 210 DO 220 J=1,NSTRMS X1=SQRT((R(J,I+1)-R(J,I))**2+(X(J,I+1)-X(J,I))**2) X2=SQRT((R(J,I)-RIM1(J))**2+(X(J,I)-XIM1(J))**2) X3=ATAN2(R(J,I+1)-R(J,I),X(J,I+1)-X(J,I)) X4=ATAN2(R(J,I)-RIM1(J),X(J,I)-XIM1(J)) PHI(J)=(X3+X4)/2.0 CR(J)=(X3-X4)/(X1+X2)*2.0 DSDM(J)=0.0 DRVWDM(J)=0.0 DLADM(J)=((LAMIP1(J)-LAMI(J))/X1+(LAMI(J)-LAMIM1(J))/X2)/2.0 IF(IPASS.EQ.1)GO TO 220 DSDM(J)=((S(J,I+1)-S(J,I))/X1+(S(J,I)-S(J,I-1))/X2)/2.0*G*EJ DRVWDM(J)=((R(J,I+1)*VW(J,I+1)-R(J,I)*VW(J,I))/X1+(R(J,I)*VW(J,I)- 1RIM1(J)*VW(J,I-1))/X2)/(2.0*R(J,I)) 220 CONTINUE IF(IPASS.EQ.1.OR.NDATA(I).EQ.0.OR.NEQN.EQ.1.OR.NWORK(I).NE.0.OR.NW 1ORK(I+1).EQ.0)GO TO 390 L1=NDIMEN(I)+1 GO TO(221,223,225,227),L1 221 DO 222 J=1,NSTRMS 222 TEIP1(J)=R(J,I) GO TO 229 223 DO 224 J=1,NSTRMS 224 TEIP1(J)=R(J,I)/R(NSTRMS,I) GO TO 229 225 DO 226 J=1,NSTRMS 226 TEIP1(J)=XL(J,I) GO TO 229 227 DO 228 J=1,NSTRMS 228 TEIP1(J)=XL(J,I)/XL(NSTRMS,I) 229 L1=IS2(I) CALL ALG01(DATAC(L1),DATA3(L1),NDATA(I),TEIP1,TEIP1,X1,NSTRMS,NTE 1RP(I),0) X1=SPEED(I+1)*SPDFAC(ICASE)*PI/(30.0*SCLFAC) DO 230 J=1,NSTRMS TEIP1(J)=TAN(TEIP1(J)/C1) 230 TBIP1(J)=(VW(J,I)-X1*R(J,I))/VM(J,I) GO TO 390 234 DO 240 J=1,NSTRMS DLADM(J)=0.0 DSDM(J)=0.0 DRVWDM(J)=0.0 240 CR(J)=0.0 IF(I.EQ.1)GO TO 244 DO 246 J=1,NSTRMS 246 PHI(J)=ATAN2(R(J,I)-RIM1(J),X(J,I)-XIM1(J)) GO TO 390 244 DO 260 J=1,NSTRMS 260 PHI(J)=ATAN2(R(J,2)-R(J,1),X(J,2)-X(J,1)) DO 270 J=1,NSTRMS XI(J)=H(J,1) LAMI(J)=1.0 270 LAMIP1(J)=1.0 IF(NDATA(2).EQ.0)GO TO 390 L2=NDIMEN(2)+1 GO TO(290,310,330,350),L2 290 DO 300 J=1,NSTRMS 300 XX1(J)=R(J,2) GO TO 370 310 DO 320 J=1,NSTRMS 320 XX1(J)=R(J,2)/R(NSTRMS,2) GO TO 370 330 DO 340 J=1,NSTRMS 340 XX1(J)=XL(J,2) GO TO 370 350 DO 360 J=1,NSTRMS 360 XX1(J)=XL(J,2)/XL(NSTRMS,2) 370 L1=IS2(2) CALL ALG01(DATAC(L1),DATA4(L1),NDATA(2),XX1,XX1,X1,NSTRMS,NTERP(2 1),0) DO 380 J=1,NSTRMS 380 LAMIP1(J)=1.0-XX1(J) 390 CALL ALG01(R(1,I),X(1,I),NSTRMS,R(1,I),X1,GAMA,NSTRMS,0,1) DO 400 J=1,NSTRMS GAMA(J)=ATAN(GAMA(J)) SPPG(J)=GAMA(J)+PHI(J) CPPG(J)=COS(SPPG(J)) SPPG(J)=SIN(SPPG(J)) 400 VV(J)=VM(J,I) DO 410 J=1,ITUB DL(J)=XL(J+1,I)-XL(J,I) DSDL(J)=(S(J+1,I)-S(J,I))/DL(J)*G*EJ 410 DPHIDL(J)=(PHI(J+1)-PHI(J))/DL(J) IF(I.EQ.1.OR.NWORK(I).GE.5)GO TO 430 DO 420 J=1,ITUB DVMDVM(J)=0.0 FX1(J)=(VW(J+1,I)+VW(J,I))/(R(J+1,I)+R(J,I))*(R(J+1,I)*VW(J+1,I)-R 1(J,I)*VW(J,I))/DL(J) 420 FX2(J)=(H(J+1,I)-H(J,I))/DL(J)*G*EJ DO 426 J=1,NSTRMS X1=ALG8(H(J,I),S(J,I)) X1=(2.0/ALG9(H(J,I),S(J,I),1.0)-VW(J,I)**2*(X1-1.0))/(X1+1.0) IF(X1.GT.1.0)GO TO 426 IF(IPASS.LE.NFORCE)GO TO 424 CALL ALG03(LNCT,1) WRITE(LOG2,422)IPASS,I,J,X1 422 FORMAT(5X,4HPASS,I3,9H STATION,I3,12H STREAMLINE,I3,40H LIMITIN 1G MERIDIONAL VELOCITY SQUARED =,E12.5) 424 X1=6250000.0 IF(IFAILO.EQ.0)IFAILO=I 426 VMMAX(J)=SQRT(X1) GO TO 450 430 DO 440 J=1,ITUB FX1(J)=(TBETA(J+1,I)+TBETA(J,I))/(R(J+1,I)+R(J,I))*(R(J+1,I)*TBETA 1(J+1,I)-R(J,I)*TBETA(J,I))/DL(J) 440 FX2(J)=(XI(J+1)-XI(J))/DL(J)*G*EJ DO 446 J=1,NSTRMS X1=XI(J)+(XN*R(J,I))**2/(2.0*G*EJ) X1=1.0/(ALG9(X1,S(J,I),1.0)*(1.0+(ALG8(X1,S(J,I))-1.0)*(1.0+TBETA( 1J,I)**2)/2.0)) IF(X1.GT.1.0)GO TO 446 IF(IPASS.LE.NFORCE)GO TO 442 CALL ALG03(LNCT,1) WRITE(LOG2,422)IPASS,I,J,X1 442 X1=6250000.0 IF(IFAILO.EQ.0)IFAILO=I 446 VMMAX(J)=SQRT(X1) 450 VMAX=0.0 VMIN=1.05*VMMAX(IMID) ITER=0 460 ITER=ITER+1 IFAIL=0 ICONF1=0 DO 470 J=1,NSTRMS 470 VVOLD(J)=VV(J) IF(I.EQ.1.OR.NWORK(I).GE.5)GO TO 810 DO 580 J=1,ITUB X1=(H(J,I)+H(J+1,I))/2.0-(((VVOLD(J)+VVOLD(J+1))/2.0)**2+((VW(J,I) 1+VW(J+1,I))/2.0)**2)/(2.0*G*EJ) IF(X1.GE.HMIN)GO TO 520 IF(IPASS.LE.NFORCE)GO TO 510 IF(LNCT.LT.NPAGE)GO TO 480 WRITE(LOG2,500) LNCT=1 480 LNCT=LNCT+1 WRITE(LOG2,490)IPASS,I,ITER,J,X1 490 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMTU 1BE,I3,53H STATIC ENTHALPY BELOW LIMIT IN MOMENTUM EQUATION AT,E13 2.5) 500 FORMAT(1H1) 510 IFAIL=1 X1=HMIN 520 X2=(S(J,I)+S(J+1,I))/2.0 X6=ALG8(X1,X2) X7=ALG7(X1,X2) X1=ALG9(X1,X2,((VVOLD(J)+VVOLD(J+1))/2.0)**2) XQ=X1 IF(X1.LE.0.9801)GO TO 560 IF(IPASS.LE.NFORCE)GO TO 550 IF(LNCT.LT.NPAGE)GO TO 530 WRITE(LOG2,500) LNCT=1 530 LNCT=LNCT+1 X1=SQRT(X1) WRITE(LOG2,540)IPASS,I,ITER,J,X1 540 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMTU 1BE,I3,39H MERIDIONAL MACH NUMBER ABOVE LIMIT AT,E13.5) 550 IFAIL=1 X1=0.9801 560 X2=(CPPG(J)+CPPG(J+1))/2.0 X3=(SPPG(J)+SPPG(J+1))/2.0 AFUN(J)=-2.0/(1.0-X1)*((1.0-X2*X2*XQ)*(CR(J)+CR(J+1))/(2.0*X2)-X3/ 1X2*DPHIDL(J)-X3*(SIN((PHI(J)+PHI(J+1))/2.0)/(R(J,I)+R(J+1,I))*2.0* 2(1.0+X1*((VW(J,I)+VW(J+1,I))/(VVOLD(J)+VVOLD(J+1)))**2)+(DLADM(J)+ 3DLADM(J+1))/(LAMI(J)+LAMI(J+1)))) BFUN(J)=2.0*(FX2(J)-X7*DSDL(J)-FX1(J)) IF(I.EQ.NSTNS.OR.IPASS.EQ.1)GO TO 580 IF(NEQN.EQ.1.OR.NDATA(I).EQ.0.OR.(NWORK(I).EQ.0.AND.NWORK(I+1).EQ. 10))GO TO 570 IF(NWORK(I).EQ.0)GO TO 564 X4=(TBETA(J,I)+TBETA(J+1,I))/2.0 X5=(TANEPS(J)+TANEPS(J+1))/2.0 562 BFUN(J)=BFUN(J)+2.0*(X7*(DSDM(J)+DSDM(J+1))/2.0*(X3*(1.0/(1.0+X4*X 14)+X6*X1/(1.0-X1))-X5*X4/(1.0+X4*X4))-(VVOLD(J)+VVOLD(J+1))*.25*(D 2RVWDM(J)+DRVWDM(J+1))*(X5-X3*X1/(1.0-X1)*X4)) GO TO 580 564 X4=(TBIP1(J)+TBIP1(J+1))*0.5 X5=(TEIP1(J)+TEIP1(J+1))*0.5 GO TO 562 570 BFUN(J)=BFUN(J)+X7*(DSDM(J)+DSDM(J+1))*X3*(1.0-X1*(X6-1.0))/(1.0-X 11) 580 CONTINUE VV(IMID)=VVOLD(IMID)**2 J=IMID JINC=1 590 JOLD=J J=J+JINC JJ=JOLD IF(JINC.EQ.-1)JJ=J IF(ABS(AFUN(JJ)).LE.1.0E-5) GO TO 660 X1=-AFUN(JJ)*(XL(J,I)-XL(JOLD,I)) IF(X1.LE.88.0)GO TO 630 IF(IPASS.LE.NFORCE)GO TO 620 IF(LNCT.LT.NPAGE)GO TO 600 WRITE(LOG2,500) LNCT=1 600 LNCT=LNCT+1 WRITE(LOG2,610)IPASS,I,ITER,JJ,X1 610 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMTU 1BE,I3,43H MOMENTUM EQUATION EXPONENT ABOVE LIMIT AT,E13.5) 620 IFAIL=1 X1=88.0 630 X1=EXP(X1) VV(J)=VV(JOLD)*X1+(1.0-X1)*BFUN(JJ)/AFUN(JJ) 640 IF(J.EQ.K)GO TO 670 IF(J.EQ.NSTRMS)GO TO 650 GO TO 590 650 J=IMID JINC=-1 GO TO 590 660 VV(J)=VV(JOLD)+BFUN(JJ)*(XL(J,I)-XL(JOLD,I)) GO TO 640 670 DO 710 J=K,NSTRMS IF(VV(J).LE.4.0*VVOLD(IMID)**2)GO TO 676 IFAIL=1 IF(IPASS.LE.NFORCE)GO TO 674 CALL ALG03(LNCT,1) WRITE(LOG2,672)IPASS,I,ITER,J 672 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,50H MERIDIONAL VELOCITY GREATER THAN TWICE MID VALUE) 674 VV(J)=4.0*VVOLD(IMID)**2 676 IF(VV(J).GE.1.0)GO TO 702 IF(IPASS.LE.NFORCE)GO TO 700 IF(LNCT.LT.NPAGE)GO TO 680 WRITE(LOG2,500) LNCT=1 680 LNCT=LNCT+1 WRITE(LOG2,690)IPASS,I,ITER,J,VV(J) 690 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,46H (MERIDIONAL VELOCITY) SQUARED BELOW LIMIT AT,E13.5) 700 VV(J)=1.0 IFAIL=1 GO TO 710 702 VV(J)=SQRT(VV(J)) IF(VV(J).LE.VMMAX(J))GO TO 710 IFAIL=1 IF(IPASS.LE.NFORCE)GO TO 708 CALL ALG03(LNCT,1) WRITE(LOG2,706)IPASS,I,ITER,J,VV(J),VMMAX(J) 706 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,44H MERIDIONAL VELOCITY ABOVE SOUND SPEED VM=,F8.2,3H A=,F 28.2) 708 VV(J)=VMMAX(J) 710 CONTINUE X1=0.0 DO 712 J=K,ITUB 712 X1=X1+(XL(J+1,I)-XL(J,I))*ABS((VV(J+1)+VV(J))/(VVOLD(J+1)+VVOLD(J) 1)-1.0) X1=X1/(XL(NSTRMS,I)-XL(K,I)) X2=0.1 IF(X1.LT.0.2)X2=EXP(-11.52*X1) DO 715 J=K,NSTRMS 715 VV(J)=VVOLD(J)+X2*(VV(J)-VVOLD(J)) IF(NLOSS(I).EQ.1.AND.NL2(I).EQ.0)CALL ALG07 DO 800 J=1,ITUB HS(J)=(H(J,I)+H(J+1,I))/2.0-(((VV(J)+VV(J+1))/2.0)**2+((VW(J,I)+VW 1(J+1,I))/2.0)**2)/(2.0*G*EJ) IF(HS(J).GE.HMIN)GO TO 800 IF(IPASS.LE.NFORCE)GO TO 790 IF(LNCT.LT.NPAGE)GO TO 770 WRITE(LOG2,500) LNCT=1 770 LNCT=LNCT+1 WRITE(LOG2,780)IPASS,I,ITER,J,HS(J) 780 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMTU 1BE,I3,55H STATIC ENTHALPY BELOW LIMIT IN CONTINUITY EQUATION AT,E 213.5) 790 IFAIL=1 HS(J)=HMIN 800 XM2(J)=ALG9(HS(J),(S(J,I)+S(J+1,I))/2.0,((VV(J)+VV(J+1))/2.0)**2) GO TO 1100 810 J=IMID JINC=1 820 LOOP=1 JOLD=J J=J+JINC JJ=JOLD IF(JINC.EQ.-1)JJ=J 830 VOLD=VV(J) VAV=(VOLD+VV(JOLD))/2.0 IFAIE=0 ICONF2=0 X2=(TBETA(J,I)+TBETA(JOLD,I))/2.0 X1=(XI(J)+XI(JOLD))/2.0+((XN*(R(J,I)+R(JOLD,I))/2.0)**2-VAV**2*(1. 10+X2*X2))/(2.0*G*EJ) IF(X1.GE.HMIN)GO TO 870 IF(IPASS.LE.NFORCE)GO TO 860 IF(LNCT.LT.NPAGE)GO TO 840 WRITE(LOG2,500) LNCT=1 840 LNCT=LNCT+1 WRITE(LOG2,850)IPASS,I,ITER,JJ,LOOP,X1 850 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMTU 1BE,I3,6H LOOP,I3,43H STATIC H IN MOMENTUM EQUN. BELOW LIMIT AT,E 213.5) 860 IFAIE=1 ICONF2 = 1 X1=HMIN 870 X3=(S(J,I)+S(JOLD,I))/2.0 X6=ALG8(X1,X3) X7=ALG7(X1,X3) X1=ALG9(X1,X3,VAV*VAV) IF(X1.LE.0.9801)GO TO 910 IF(IPASS.LE.NFORCE)GO TO 900 IF(LNCT.LT.NPAGE)GO TO 880 WRITE(LOG2,500) LNCT=1 880 LNCT=LNCT+1 X1=SQRT(X1) WRITE(LOG2,890)IPASS,I,ITER,JJ,LOOP,X1 890 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMTU 1BE,I3,6H LOOP,I3,39H MERIDIONAL MACH NUMBER ABOVE LIMIT AT,E13.5 2) 900 IFAIE=1 ICONF2=1 X1=0.9801 910 X4=(SPPG(J)+SPPG(JOLD))/2.0 X5=(CPPG(J)+CPPG(JOLD))/2.0 X9=(R(J,I)+R(JOLD,I))*0.5 X10=SIN((PHI(J)+PHI(JOLD))*0.5) X11=(1.0-X5*X5*X1)*(CR(J)+CR(JOLD))*0.5/X5-X4/X5*DPHIDL(JJ)-X4*(X1 10/X9*(1.0+X1*(X2+XN*X9/VAV)**2)+(DLADM(J)+DLADM(JOLD))/(LAMI(J)+LA 2MI(JOLD))) DV2DL=FX2(JJ)-X7*DSDL(JJ)-2.0*XN*VAV*X2*COS((GAMA(J)+GAMA(JOLD))*0 1.5)+VAV*VAV*(X11/(1.0-X1)-FX1(JJ)) X12=1.0/(1.0+X2*X2) DVMDVM(JJ)=X12*((X7*DSDL(JJ)-FX2(JJ))/VAV**2-FX1(JJ)+X11/(1.0-X1)) IF(I.EQ.1.OR.I.EQ.NSTNS.OR.IPASS.EQ.1)GO TO 920 IF(NEQN.EQ.1)GO TO 914 X8=(TANEPS(J)+TANEPS(JOLD))*0.5 X5=0.5*(DSDM(J)+DSDM(JOLD))*X7*(X4*(X12+X6*X1/(1.0-X1))-X8*X2*X12) DV2DL=DV2DL+X5-VAV*(DRVWDM(J)+DRVWDM(JOLD))*0.5*(X8-X4*X1*X2/(1.0- 1X1)) DVMDVM(JJ)=DVMDVM(JJ)-X5*X12/VAV**2 GO TO 920 914 X5=0.5*(DSDM(J)+DSDM(JOLD))*X7*X4*(1.0-X1*(X6-1.0))/(1.0-X1) DV2DL=DV2DL+X5 DVMDVM(JJ)=DVMDVM(JJ)-X5*X12/VAV**2 920 DV2DL=DV2DL*2.0*X12 X1=VV(JOLD)**2+DV2DL*(XL(J,I)-XL(JOLD,I)) IF(X1.LE.9.0*VVOLD(IMID)**2)GO TO 938 ICONF2=1 IFAIE=1 IF(IPASS.LE.NFORCE)GO TO 936 CALL ALG03(LNCT,1) X1=SQRT(X1) X2=3.0*VVOLD(IMID) WRITE(LOG2,934)IPASS,I,ITER,J,LOOP,X1,X2 934 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,6H LOOP,I3,33H MERIDIONAL VELOCITY ABOVE LIMIT,E13.5,9H L 2IMIT =,E13.5) 936 X1=9.0*VVOLD(IMID)**2 938 IF(X1.GE.1.0)GO TO 950 IF(IPASS.LE.NFORCE)GO TO 944 IF(LNCT.LT.NPAGE)GO TO 930 WRITE(LOG2,500) LNCT=1 930 LNCT=LNCT+1 WRITE(LOG2,940)IPASS,I,ITER,J ,LOOP,X1 940 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,6H LOOP,I3,46H (MERIDIONAL VELOCITY) SQUARED BELOW LIMIT A 2T,E13.5) 944 X1=1.0 IFAIE=1 ICONF2=1 950 VV(J)=SQRT(X1) IF(VV(J).LE.VMMAX(J))GO TO 958 IFAIE=1 ICONF2=1 IF(IPASS.LE.NFORCE)GO TO 956 CALL ALG03(LNCT,1) WRITE(LOG2,706)IPASS,I,ITER,J,VV(J),VMMAX(J) 956 VV(J)=VMMAX(J) 958 IF(ABS(VV(J)/VOLD-1.0).LE.TOLNCE*0.2)GO TO 990 IF(LOOP.GE.LPMAX)GO TO 960 LOOP=LOOP+1 GO TO 830 960 ICONF2=1 IF(IPASS.LE.NFORCE)GO TO 990 IF(LNCT.LT.NPAGE)GO TO 970 WRITE(LOG2,500) LNCT=1 970 LNCT=LNCT+1 WRITE(LOG2,980)IPASS,I,ITER,J,VV(J),VOLD 980 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,38H MERIDIONAL VELOCITY UNCONVERGED VM=,E13.6,9H VM(OLD)=, 2E13.6) 990 IF(IFAIE.EQ.1)IFAIL=1 IF(ICONF2.EQ.1)ICONF1=1 IF(J.EQ.NSTRMS)GO TO 1000 IF(J.EQ.1)GO TO 1010 GO TO 820 1000 J=IMID JINC=-1 GO TO 820 1010 IF(I.EQ.1)GO TO 1014 IF(NLOSS(I).EQ.2.OR.(NLOSS(I).EQ.1.AND.NL2(I).EQ.0))CALL ALG07 1014 DO 1090 J=1,ITUB X1=((VV(J)+VV(J+1))/2.0)**2*(1.0+((TBETA(J,I)+TBETA(J+1,I))/2.0)** 12) HS(J)=(XI(J)+XI(J+1))/2.0+((XN*(R(J,I)+R(J+1,I))/2.0)**2-X1)/(2.0* 1G*EJ) IF(HS(J).GE.HMIN)GO TO 1080 IF(IPASS.LE.NFORCE)GO TO 1070 IF(LNCT.LT.NPAGE)GO TO 1060 WRITE(LOG2,500) LNCT=1 1060 LNCT=LNCT+1 WRITE(LOG2,780)IPASS,I,ITER,J,HS(J) 1070 IFAIL=1 HS(J)=HMIN 1080 XM2(J)=ALG9(HS(J),(S(J,I)+S(J+1,I))/2.0,X1) IF(I.EQ.1.OR.NLOSS(I).NE.1.OR.NL2(I).NE.0)GO TO 1090 X1=(S(J,I)+S(J+1,I))/2.0 X2=ALG4(HS(J),X1) X4=ALG8(HS(J),X1) X3=(XI(J)+XI(J))/2.0+(XN*((R(J,I)+R(J+1,I))/2.0))**2/(2.0*G*EJ) X3=ALG4(X3,X1) XM2(J)=XM2(J)*(1.0+X4*(LOSS(J)+LOSS(J+1))/2.0*X2/(X3*(1.0+(LOSS(J) 1+LOSS(J+1))/2.0*(1.0-X2/X3)))) 1090 CONTINUE 1100 DELW(1)=0.0 DWDV=0.0 X2=BBLOCK(I)*BDIST(I) X3=BBLOCK(I)*(1.0-BDIST(I))*2.0/XL(NSTRMS,I) DO 1200 J=1,ITUB X1=DL(J)*(R(J+1,I)+R(J,I))*ALG5(HS(J),(S(J,I)+S(J+1,I))/2.0)*(VV(J 1)+VV(J+1))*(CPPG(J)+CPPG(J+1))*PI/(4.0*SCLFAC**2) X1=X1*((LAMI(J)+LAMI(J+1))/2.0-WWBL(I)-X2-X3*(XL(J,I)+XL(J+1,I))) DELW(J+1)=DELW(J)+X1 X4=0.0 IF(J.GE.IMID)GO TO 1130 L1=J 1110 X4=X4+DVMDVM(L1) IF(L1.GE.IMID-1)GO TO 1120 L1=L1+1 GO TO 1110 1120 X4=X4/FLOAT(IMID-J) GO TO 1200 1130 L1=IMID+1 1140 X4=X4+DVMDVM(L1) IF(L1.GE.J)GO TO 1150 L1=L1+1 GO TO 1140 1150 X4=X4/FLOAT(J-IMID+1) 1200 DWDV=DWDV+X1*(1.0-XM2(J))*2.0/((VV(J)+VV(J+1))*(1.0-((XL(J,I)+XL(J 1+1,I))*0.5-XL(IMID,I))*X4)) W=DELW(NSTRMS) FM2=DWDV/W*VV(IMID) DO 1210 J=2,NSTRMS 1210 DELW(J)=DELW(J)/W IF(DWDV.LE.0.0)GO TO 1280 IF(NMACH(I).EQ.1)GO TO 1330 IF(W.LT.FLOW(ICASE).AND.ICONF1.EQ.0)VMAX=VV(IMID) 1220 DV=(FLOW(ICASE)-W)/DWDV IF(DV.LT.-0.1*VV(IMID))DV=-0.1*VV(IMID) IF(DV.GT. 0.1*VV(IMID))DV= 0.1*VV(IMID) 1230 IF(IPASS.EQ.1.OR.(I.NE.1.AND.NWORK(I).LE.4))GO TO 1234 IF(VV(IMID)+DV.LT.VMIN)GO TO 1232 DV=(VMIN-VV(IMID))*0.5 1232 IF(VV(IMID)+DV.GT.VMAX)GO TO 1234 DV=(VMAX-VV(IMID))*0.5 1234 DO 1270 J=K,NSTRMS VV(J)=VV(J)+DV IF(VV(J).LE.VMMAX(J))GO TO 1238 IFAIL=1 VV(J)=VMMAX(J) 1238 IF(VV(J).GE.1.0)GO TO 1270 IF(IPASS.LE.NFORCE)GO TO 1260 IF(LNCT.LT.NPAGE)GO TO 1240 WRITE(LOG2,500) LNCT=1 1240 LNCT=LNCT+1 WRITE(LOG2,1250)IPASS,I,ITER,J,VV(J) 1250 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,50H MERIDIONAL VELOCITY BELOW LIMIT IN CONTINUITY AT,E13.5) 1260 VV(J)=1.0 IFAIL=1 1270 CONTINUE GO TO 1340 1280 IF(NMACH(I).EQ.0)GO TO 1290 IF(W.LT.FLOW(ICASE).AND.ICONF1.EQ.0)VMIN=VV(IMID) GO TO 1220 1290 IF(VV(IMID).LT.VMIN.AND.ICONF1.EQ.0)VMIN=VV(IMID) DV=-.1*VV(IMID) 1300 IFAIL=1 IF(IPASS.LE.NFORCE)GO TO 1230 IF(LNCT.LT.NPAGE)GO TO 1310 WRITE(LOG2,500) LNCT=1 1310 LNCT=LNCT+1 WRITE(LOG2,1320)IPASS,I,ITER 1320 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,43H OTHER CO 1NTINUITY EQUATION BRANCH REQUIRED) GO TO 1230 1330 IF(VV(IMID).GT.VMAX.AND.ICONF1.EQ.0)VMAX=VV(IMID) DV=0.1*VV(IMID) GO TO 1300 1340 X1=TOLNCE/5.0 IF(NEVAL(I).GT.0)X1=X1/2.0 IF(ABS(W/FLOW(ICASE)-1.0).GT.X1)GO TO 1354 DO 1350 J=K,NSTRMS IF(ABS(VV(J)/VVOLD(J)-1.0).GT.X1)GO TO 1354 1350 CONTINUE GO TO 1390 1354 IF(ITER.GE.ITMAX)GO TO 1360 IF(I.EQ.1)GO TO 460 IF((NLOSS(I).EQ.1.AND.NL2(I).EQ.0).OR.(NWORK(I).GE.5.AND.NLOSS(I). 1EQ.2))CALL ALG07 GO TO 460 1360 IF(IPASS.LE.NFORCE)GO TO 1390 IF(LNCT.LT.NPAGE)GO TO 1370 WRITE(LOG2,500) LNCT=1 1370 LNCT=LNCT+1 X1=W/FLOW(ICASE) X2=VV(K)/VVOLD(K) X3=VV(IMID)/VVOLD(IMID) X4=VV(NSTRMS)/VVOLD(NSTRMS) WRITE(LOG2,1380)IPASS,I,X1,X2,X3,X4 1380 FORMAT(5X,4HPASS,I3,9H STATION,I3,49H MOMENTUM AND/OR CONTINUITY 1 UNCONVERGED W/WSPEC=,F8.5,16H VM/VM(OLD) HUB=,F8.5,5H MID=,F8.5,5 2H TIP=,F8.5) 1390 IF(IFAIL.NE.0.AND.IFAILO.EQ.0)IFAILO=I DO 1400 J=1,NSTRMS 1400 VM(J,I)=VV(J) IF(I.NE.1)GO TO 1420 DO 1410 J=1,NSTRMS 1410 VW(J,1)=VV(J)*TBETA(J,1) GO TO 1480 1420 IF(NMIX.NE.1)GO TO 1440 DO 1430 J=1,NSTRMS S(J,I-1)=SKEEP(J) H(J,I-1)=HKEEP(J) 1430 VW(J,I-1)=VWKEEP(J) 1440 IF(NWORK(I).GE.5)GO TO 1460 TBETA(1,I)=0.0 DO 1450 J=K,NSTRMS 1450 TBETA(J,I)=(VW(J,I)-XN*R(J,I))/VV(J) GO TO 1480 1460 DO 1470 J=1,NSTRMS VW(J,I)=VV(J)*TBETA(J,I)+XN*R(J,I) 1470 H(J,I)=XI(J)+XN*R(J,I)*VW(J,I)/(G*EJ) 1480 CONTINUE RETURN END ================================================ FILE: mis/alg09.f ================================================ SUBROUTINE ALG09 C REAL LOSS,LAMI,LAMIP1,LAMIM1 C DIMENSION XX1(21),XX2(21),XX3(21),XX4(21),XX5(21),XX6(21),SOL(21), 1WPARA(21),WD(21),DIF(21),WS(21),PM1(21),XINC(21),BETA1(21),TALPH1( 221),ANG(21),HIGHM(21),WT(21),XMR(21) C COMMON /UD3PRT/ IPRTC COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD, 1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL, 2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3, 3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30), 4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30) 5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30), 6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30), 7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30), 8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4), 9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100), 1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100), 2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10), 3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150), 4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30), 5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21), 6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21), 7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK, 8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST, 9FM2,HMIN,C1,PI,CONTR,CONMX C WMAX=0.7 L1=I+NL1(I) XN=SPEED(I)*SPDFAC(ICASE)*PI/(30.0*SCLFAC) IF(IPRINT.EQ.0)GO TO 116 L2=ABS(FLOAT(NEVAL(I))) CALL ALG03(LNCT,7+NSTRMS) LNCT=LNCT-3 IF(NEVAL(I).GT.0.AND.IPRTC.EQ.1) WRITE(LOG2,100) L1,I,L2 IF(NEVAL(I).LT.0.AND.IPRTC.EQ.1) WRITE(LOG2,110) L1,I,L2 100 FORMAT(2X,/,8X,57HLOSS COEFFICIENT DETERMINATION FOR BLADE BETWEEN 1 STATIONS,I3,4H AND,I3,47H - AS INCORPORATED IN ABOVE RESULTS BLA 1DE TYPE,I2,/,8X,116(1H*),/,2X) 110 FORMAT(2X,/,8X,57HLOSS COEFFICIENT DETERMINATION FOR BLADE BETWEEN 1 STATIONS,I3,4H AND,I3,47H - FOR PURPOSES OF COMPARISON ONLY BLA 2DE TYPE,I2,/,8X,116(1H*),/,2X) 116 L2=NDIMEN(I)+1 GO TO(120,140,160,180),L2 120 DO 130 J=1,NSTRMS XX2(J)=R(J,L1) 130 XX6(J)=R(J,I) GO TO 200 140 DO 150 J=1,NSTRMS XX2(J)=R(J,L1)/R(NSTRMS,L1) 150 XX6(J)=R(J,I)/R(NSTRMS,I) GO TO 200 160 DO 170 J=1,NSTRMS XX2(J)=XL(J,L1) 170 XX6(J)=XL(J,I) GO TO 200 180 DO 190 J=1,NSTRMS XX2(J)=XL(J,L1)/XL(NSTRMS,L1) 190 XX6(J)=XL(J,I)/XL(NSTRMS,I) 200 L2=IS2(I) CALL ALG01(DATAC(L2),DATA5(L2),NDATA(I),XX6,SOL,X1,NSTRMS,NTERP(I 1),0) Q=1.0 IF(SPEED(I).LT.0.0)GO TO 208 IF(SPEED(I).GT.0.0)GO TO 206 IF(I.LT.3)GO TO 208 II=I-1 204 IF(SPEED(II).NE.0.0)GO TO 205 IF(II.EQ.2)GO TO 208 II=II-1 GO TO 204 205 IF(SPEED(II).LT.0.0)Q=-1.0 GO TO 208 206 Q=-1.0 208 DO 210 J=1,NSTRMS TALPH1(J)=(VW(J,L1)-XN*R(J,L1))/VM(J,L1) 210 DIF(J)=1.0-VM(J,I)/VM(J,L1)*SQRT((1.0+TBETA(J,I)**2)/(1.0+TALPH1(J 1)**2))+(VM(J,L1)*TALPH1(J)-VM(J,I)*TBETA(J,I))/(2.0*SOL(J)*VM(J,L1 2)*SQRT(1.0+TALPH1(J)**2))*Q L2=ABS(FLOAT(NEVAL(I))) L3=NDIFF(L2) CALL ALG01(DIFF(1,L2),FDHUB(1,L2),L3,DIF,XX3,X1,NSTRMS,0,0) CALL ALG01(DIFF(1,L2),FDMID(1,L2),L3,DIF,XX4,X1,NSTRMS,0,0) CALL ALG01(DIFF(1,L2),FDTIP(1,L2),L3,DIF,XX5,X1,NSTRMS,0,0) XX1(1)=0.1 XX1(2)=0.5 XX1(3)=0.9 DO 220 J=1,NSTRMS XX1(4)=XX3(J) XX1(5)=XX4(J) XX1(6)=XX5(J) X1=(R(J,I)-R(1,I))/(R(NSTRMS,I)-R(1,I)) 220 CALL ALG01(XX1,XX1(4),3,X1,WPARA(J),X1,1,0,0) DO 230 J=1,NSTRMS XMR(J)=0.0 HIGHM(J)=0.0 ANG(J)=0.0 WS(J)=0.0 XINC(J)=0.0 BETA1(J)=0.0 WD(J)=WPARA(J)*2.0*SOL(J)*SQRT(1.0+TBETA(J,I)**2) 230 WT(J)=WD(J) IF(NDEL(I).EQ.0)GO TO 384 L2=IS3(I) CALL ALG01(DELC(L2),DELTA(L2),NDEL(I),XX2,PM1,X1,NSTRMS,1,0) IF(NDATA(L1).EQ.0)GO TO 340 CALL ALG01(R(1,L1),X(1,L1),NSTRMS,R(1,L1),X1,XX1,NSTRMS,0,1) L2=NDIMEN(L1)+1 GO TO(240,260,280,300),L2 240 DO 250 J=1,NSTRMS 250 XX2(J)=R(J,L1) GO TO 320 260 DO 270 J=1,NSTRMS 270 XX2(J)=R(J,L1)/R(J,NSTRMS) GO TO 320 280 DO 290 J=1,NSTRMS 290 XX2(J)=XL(J,L1) GO TO 320 300 DO 310 J=1,NSTRMS 310 XX2(J)=XL(J,L1)/XL(NSTRMS,L1) 320 L2=IS2(L1) L3=NDATA(L1) CALL ALG01(DATAC(L2),DATA1(L2),L3,XX2,XX3,X1,NSTRMS,NTERP(L1),0) CALL ALG01(DATAC(L2),DATA3(L2),L3,XX2,XX4,X1,NSTRMS,NTERP(L1),0) DO 330 J=1,NSTRMS X1=(ATAN((R(J,L1+1)-R(J,L1))/(X(J,L1+1)-X(J,L1)))+ATAN((R(J,L1)-R( 1J,L1-1))/(X(J,L1)-X(J,L1-1))))/2.0 BETA1(J)=ATAN((TAN(XX3(J)/C1)*(1.0-XX1(J)*TAN(X1))-TAN(X1)*TAN(XX4 1(J)/C1)*SQRT(1.0+XX1(J)**2))*COS(X1)) 330 XINC(J)=(ATAN(TALPH1(J))-BETA1(J))*Q 340 DO 380 J=1,NSTRMS ANG(J)=XINC(J)+PM1(J)/C1 X1=H(J,L1)-(VM(J,L1)**2+VW(J,L1)**2)/(2.0*G*EJ) IF(X1.LT.HMIN)X1=HMIN X4=ALG8(X1,S(J,L1)) X2=(X4+1.0)/(X4-1.0) X3=SQRT(X2) X5=ALG9(X1,S(J,L1),VM(J,L1)**2*(1.0+TALPH1(J)**2)) XMR(J)=SQRT(X5) X6=X5 IF(X6.LT.1.0)X6=1.0 X7=X3*ATAN(SQRT(X6-1.0)/X3)-ATAN(SQRT(X6-1.0))+ANG(J) X10=0.0 IF(X7.LE.0.0)GO TO 376 X8=0.4*PI*(X3-1.0) IF(X7.GT.X8)GO TO 374 X9 = 1.0 K=1 350 X10=X9-(X2+X9*X9)*(1.0+X9*X9)/(X9*X9*(X2-1.0))*(X3*ATAN(X9/X3)-ATA 1N(X9)-X7) IF(ABS(X10-X9).LE.0.00001)GO TO 376 IF(K.GT.20)GO TO 360 K=K+1 X9=X10 GO TO 350 360 IF(IPRINT.EQ.0)GO TO 374 CALL ALG03(LNCT,1) WRITE(LOG2,370)IPASS,I,J 370 FORMAT(5X,4HPASS,I3,9H STATION,I3,12H STREAMLINE,I3,58H PRANDTL 1-MEYER FUNCTION NOT CONVERGED - USE INLET MACH NO) 374 X10=SQRT(X6-1.0) 376 HIGHM(J)=SQRT(1.0+X10*X10) X1=(HIGHM(J)+SQRT(X6))/2.0 IF(X5.LT.1.0)X1=X1*SQRT(X5) IF(X1.LE.1.0)GO TO 380 X1=X1*X1 WS(J)=(((X4+1.0)*X1/((X4-1.0)*X1+2.0))**(X4/(X4-1.0))*((X4+1.0)/(2 1.0*X4*X1-X4+1.0))**(1.0/(X4-1.0))-1.0)/((1.0+(X4-1.0)/2.0*X5)**(X4 2/(1.0-X4))-1.0) 380 WT(J)=WD(J)+WS(J) 384 IF(IPRINT.EQ.1)GO TO 400 L2=IS2(I) L3=NTERP(I) L4=NDATA(I) IF(NWORK(I).GE.5) 1CALL ALG01(DATAC(L2),DATA6(L2),L4,XX6,XX5,X1,NSTRMS,L3,0) CALL ALG01(DATAC(L2),DATA1(L2),L4,XX6,XX1,X1,NSTRMS,L3,0) CALL ALG01(DATAC(L2),DATA4(L2),L4,XX6,XX4,X1,NSTRMS,L3,0) CALL ALG01(DATAC(L2),DATA3(L2),L4,XX6,XX3,X1,NSTRMS,L3,0) NDATA(I)=NSTRMS L2=L2-1 DO 390 J=1,NSTRMS K=L2+J DATAC(K)=XX6(J) IF(NWORK(I).GE.5) 1DATA6(K)=XX5(J) DATA1(K)=XX1(J) IF(WT(J).GT.WMAX)WT(J)=WMAX DATA2(K)=WT(J) DATA3(K)=XX3(J) DATA4(K)=XX4(J) 390 DATA5(K)=SOL(J) GO TO 450 400 IF(LNCT+3.LE.NPAGE)GO TO 420 IF(IPRTC.NE.0) WRITE(LOG2,410) 410 FORMAT(1H1) LNCT=4+NSTRMS 420 IF(IPRTC.EQ.1) WRITE(LOG2,430) 430 FORMAT(5X, 'STREAM INLET OUTLET CASCADE DIFF LOSS 1DIFFUSION BLADE INCIDENCE EXPANSION INLET EXPANDED SHOCK TOT 2AL',/,5X, '-LINE RADIUS RADIUS SOLIDITY FACTOR PARAMETER 3LOSS ANGLE ANGLE ANGLE M.NO MACH NO LOSS LOSS 4',/,2X) LNCT=LNCT+3 DO 440 J=1,NSTRMS X1=BETA1(J)*C1*Q X2=XINC(J)*C1 X3=ANG(J)*C1 440 IF(IPRTC.EQ.1) *WRITE(LOG2,460)J,R(J,L1),R(J,I),SOL(J),DIF(J),WPARA(J),WD(J),X1,X2 1,X3,XMR(J),HIGHM(J),WS(J),WT(J) 450 CONTINUE 460 FORMAT(I9,F10.3,F8.3,2F9.4,F10.5,F9.5,2F9.3,F10.3,F10.4,F8.4,F8.5, 1F9.5) RETURN END ================================================ FILE: mis/alg1.f ================================================ SUBROUTINE ALG1 (LNCT) C DIMENSION RDATA(4) COMMON /GAS / G,EJ,R,CP,GAMMA,ROJCP COMMON /SYSTEM/ SYSBUF,NOUT COMMON /ALGINO/ DUM,NALGDB COMMON /UD3PRT/ IPRTC C LOG1 = NALGDB LOG2 = NOUT CALL FREAD (LOG1,RDATA,4,1) CP = RDATA(1) R = RDATA(2) G = RDATA(3) EJ = RDATA(4) IF (CP .EQ. 0.0) CP = 0.24 IF (R .EQ. 0.0) R = 53.32 IF (G .EQ. 0.0) G = 32.174 IF (EJ .EQ. 0.0) EJ = 778.16 IF (IPRTC .EQ. 1) WRITE(LOG2,10) CP,R,G,EJ 10 FORMAT (/10X,'SPECIFIC HEAT AT CONSTANT PRESSURE',5X,1H=,F8.5, 1 /10X,'GAS CONSTANT',27X,1H=,F8.4, 2 /10X,'GRAVITATIONAL CONSTANT',17X,1H=,F8.4, 3 /10X,'JOULES EQUIVALENT',22X,1H=,F8.3) LNCT = LNCT + 5 ROJCP = R/(EJ*CP) GAMMA = 1.0/(1.0-ROJCP) RETURN END ================================================ FILE: mis/alg10.f ================================================ SUBROUTINE ALG10 C REAL LOSS,LAMI,LAMIP1,LAMIM1 C COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD, 1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL, 2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3, 3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30), 4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30) 5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30), 6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30), 7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30), 8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4), 9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100), 1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100), 2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10), 3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150), 4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30), 5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21), 6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21), 7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK, 8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST, 9FM2,HMIN,C1,PI,CONTR,CONMX C IF(I.GT.1)GO TO 130 V5=VISK**0.2 VINH=0.0 VINT=0.0 IF(WWBL(1).GT.0.0)GO TO 100 C1H=0.0 C1T=0.0 DELH(1)=0.0 DELT(1)=0.0 GO TO 150 100 IF(ISTAG.GT.0)GO TO 110 X1=WWBL(1)*XL(NSTRMS,1)*(CPPG(1)+CPPG(NSTRMS))/4.0 DELH(1)=X1 DELT(1)=X1 X1=X1/(SCLFAC*SHAPE) C1H=(X1*VM(1,1)**3.4/V5)**1.25 C1T=(X1*VM(NSTRMS,1)**3.4/V5)**1.25 GO TO 150 110 DELH(1)=0.0 C1H=0.0 IF(ABS(PHI(NSTRMS)).GT.PI/2.0-0.00015.AND.ABS(PHI(NSTRMS)).LT.PI/2 1.0+0.00015)GO TO 120 X1=(R(NSTRMS,1)-SQRT(R(NSTRMS,1)**2-COS(PHI(NSTRMS))*CPPG(NSTRMS)* 1WWBL(1)*(R(NSTRMS,1)+R(1,1))*XL(NSTRMS,I)))/COS(PHI(NSTRMS)) DELT(1)=X1 C1T=(X1/(SHAPE*SCLFAC*V5)*VM(NSTRMS,1)**3.4)**1.25 GO TO 150 120 DELT(1)=WWBL(1)*XL(NSTRMS,1)/CPPG(NSTRMS) C1T=(DELT(1)*VM(NSTRMS,1)**3.4/(V5*SCLFAC*SHAPE))**1.25 GO TO 150 130 VINT=VINT+SQRT((X(NSTRMS,I)-X(NSTRMS,I-1))**2+(R(NSTRMS,I)-R(NSTRM 1S,I-1))**2)*((VM(NSTRMS,I)+VM(NSTRMS,I-1))/2.0)**4/SCLFAC DELT(I)=V5*(C1T+0.016*VINT)**0.8/VM(NSTRMS,I)**3.4*SCLFAC*SHAPE DELH(I)=0.0 IF(I.LE.ISTAG)GO TO 140 VINH=VINH+SQRT((X(1,I)-X(1,I-1))**2+(R(1,I)-R(1,I-1))**2)*((VM(1,I 1)+VM(1,I-1))/2.0)**4/SCLFAC DELH(I)=V5*(C1H+0.016*VINH)**0.8/VM(1,I)**3.4*SCLFAC*SHAPE 140 WWBL(I)=0.5*WWBL(I)+0.5*(((2.0*R(NSTRMS,I)-DELT(I)*COS(PHI(NSTRMS) 1))*DELT(I)/CPPG(NSTRMS)+(2.0*R(1,I)+DELH(I)*COS(PHI(1)))*DELH(I)/C 2PPG(1))/((R(NSTRMS,I)+R(1,I))*XL(NSTRMS,I))) IF(WWBL(I).GT.0.3)WWBL(I)=0.3 IF(WWBL(I).LT.0.0)WWBL(I)=0.3 150 CONTINUE RETURN END ================================================ FILE: mis/alg11.f ================================================ SUBROUTINE ALG11 C REAL LOSS,LAMI,LAMIP1,LAMIM1 DIMENSION XM(21),PPG(21),V(21),PT(21),PS(21),WT(21),PN(21), 1 P1(21),DELTP(21,30),TS(21),SOLID(21),DELTB(21), 2 TR(21,30),RMDV(21,6),IDATA(6),RDATA(6),NAME1(2), 3 NAME2(2) COMMON /SYSTEM/ KSYSTM(90),LPUNCH COMMON /UD3PRT/ IPRTC,ISTRML,IPGEOM COMMON /ALGINO/ ISCR COMMON /UDSTR2/ NBLDES,STAG(21),CHORDD(21) COMMON /UDSIGN/ NSIGN COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD, 1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL, 2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3, 3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30), 4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30) 5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30), 6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30), 7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30), 8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4), 9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100), 1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100), 2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10), 3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150), 4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30), 5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21), 6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21), 7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK, 8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST, 9FM2,HMIN,C1,PI,CONTR,CONMX EQUIVALENCE (IDATA(1),RDATA(1)) DATA NAME1, NAME2 /4HPLOA,4HD2 ,4HTEMP,4H / C OPR = 0.0 OEFF = 1.0 PFAC = 550.0 ILAST = NSTNS C C LOCATE COMPUTING STATION NUMBER AT THE BLADE LEADING EDGE AND C AT THE BLADE TRAILING EDGE. C LEDGEB = 0 ITRLEB = 0 DO 10 IBLE = 1,NSTNS NOUT3S = NOUT3(IBLE)/10 IF (NOUT3(IBLE).EQ.1 .OR. NOUT3S.EQ.1) LEDGEB = IBLE IF (NOUT3(IBLE).EQ.2 .OR. NOUT3S.EQ.2) ITRLEB = IBLE 10 CONTINUE IF (IFAILO .NE. 0) ILAST = IFAILO DO 700 I = 1,ILAST CALL ALG03 (LNCT,7+NSTRMS) IF (IPRTC .EQ. 1) WRITE(LOG2,100) I 100 FORMAT (//10X,'STATION',I3,' FLOW-FIELD DESCRIPTION', /10X, 1 34(1H*), //,' STREAM -----MESH-POINT COORDS------', 2 3X,16(1H-),'V E L O C I T I E S,16(1H-) RADIUS OF ', 3 'STREAMLINE STATION',/,' -LINE RADIUS X-COORD' 4, ' L-COORD MERIDIONAL TANGENTIAL AXIAL',6X,'RADIAL', 5 4X,'TOTAL CURVATURE SLOPE ANGLE LEAN ANGLE',/) CALL ALG01 (R(1,I),X(1,I),NSTRMS,R(1,I),X1,GAMA,NSTRMS,0,1) IF (I.NE.1 .AND. I.NE.NSTNS) GO TO 130 L1 = 1 L2 = 2 IF (I .EQ. 1) GO TO 110 L2 = NSTNS L1 = L2 - 1 110 DO 120 J = 1,NSTRMS CR(J) = 0.0 120 PHI(J) = ATAN2(R(J,L2)-R(J,L1),X(J,L2)-X(J,L1)) GO TO 150 130 DO 140 J = 1,NSTRMS X1 = SQRT((R(J,I+1)-R(J,I))**2+(X(J,I+1)-X(J,I))**2) X2 = SQRT((R(J,I)-R(J,I-1))**2+(X(J,I)-X(J,I-1))**2) X3 = ATAN2(R(J,I+1)-R(J,I),X(J,I+1)-X(J,I)) X4 = ATAN2(R(J,I)-R(J,I-1),X(J,I)-X(J,I-1)) CR(J) = (X3-X4)/(X1+X2)*2.0 IF (CR(J) .NE. 0.0) CR(J) = 1.0/CR(J) 140 PHI(J) = (X3+X4)/2.0 150 DO 160 J = 1,NSTRMS VA = VM(J,I)*COS(PHI(J)) VR = VM(J,I)*SIN(PHI(J)) FI = PHI(J)*C1 GA = ATAN(GAMA(J))*C1 PPG(J) = FI + GA V(J) = SQRT(VM(J,I)**2+VW(J,I)**2) C C STORE RADIUS AT BLADE LEADING AND TRAILING EDGES, ALL STREAMLINES C IF (ICASE.EQ.1 .AND. I.EQ.LEDGEB) RMDV(J,5) = R(J,I) IF (ICASE.EQ.1 .AND. I.EQ.ITRLEB) RMDV(J,6) = R(J,I) 160 IF (IPRTC .EQ. 1) WRITE (LOG2,170) J,R(J,I),X(J,I),XL(J,I), 1 VM(J,I),VW(J,I),VA,VR,V(J),CR(J),FI,GA 170 FORMAT (I6,F14.4,2F11.4,5F11.2,1X,F10.2,2F11.3) CALL ALG03 (LNCT,NSTRMS+4) IF (IPRTC .EQ. 1) WRITE (LOG2,180) 180 FORMAT (/8H STREAM,7X,4HMACH,6X,4(1H-),9HPRESSURES,4(1H-),5X, 1 17H---TEMPERATURES--,4X,8HSPECIFIC,4X,17H---ENTHALPIES----, 2 4X,7HENTROPY,6X,4HFLOW,3X,11H(PHI+GAMMA), /,7H -LINE,7X, 3 6HNUMBER,5X,5HTOTAL,6X,6HSTATIC,5X,5HTOTAL,6X,6HSTATIC,5X, 4 6HWEIGHT,5X,5HTOTAL,6X,6HSTATIC,16X,5HANGLE,/) DO 190 J = 1,NSTRMS DELTB(J) = 0.0 HS = H(J,I) - V(J)**2/(2.0*G*EJ) IF (HS .LT. HMIN) HS = HMIN XM(J) = SQRT(ALG9(HS,S(J,I),V(J)**2)) PT(J) = ALG4(H(J,I),S(J,I)) PTINS = PT(J)/SCLFAC**2 PS(J) = ALG4(HS,S(J,I)) PSINS = PS(J)/SCLFAC**2 TT = ALG7(H(J,I),S(J,I)) TS(J) = ALG7(HS,S(J,I)) WT(J) = ALG5(HS,S(J,I)) ALPHA = 0.0 IF (I.NE.ISTAG .OR. J.NE.1) ALPHA = C1*ATAN(VW(J,I)/VM(J,I)) C C STORE DENSITY AT BLADE LEADING EDGE FOR ALL STREAMLINES C IF (ICASE.EQ.1 .AND. I.EQ.LEDGEB) RMDV(J,2) = WT(J) 190 IF (IPRTC .EQ. 1) WRITE (LOG2,200) J,XM(J),PTINS,PSINS,TT,TS(J), 1 WT(J),H(J,I),HS,S(J,I),ALPHA,PPG(J) 200 FORMAT (I6,F14.4,2F11.4,2F11.3,F12.6,F10.3,F11.3,F12.6,F10.3, 1 F11.3) IF (I .NE. 1) GO TO 220 P1BAR = 0.0 H1BAR = 0.0 P1(1) = PT(1) PN(1) = PT(1) DO 210 J = 1,ITUB P1(J+1) = PT(J+1) PN(J+1) = PT(J+1) X1 = (DELF(J+1)-DELF(J))/2.0 P1BAR = P1BAR + X1*(PT(J)+PT(J+1)) 210 H1BAR = H1BAR + X1*(H(J,1)+H(J+1,1)) HBAR = H1BAR S1BAR = ALG3(P1BAR,H1BAR) PNBAR = P1BAR HNBAR = H1BAR SNBAR = S1BAR L1KEEP= 1 GO TO 700 220 IFLE = 0 IFTE = 0 IF (NWORK(I) .EQ. 0) GO TO 230 IFTE = 1 IF (I.EQ.NSTNS .OR. NWORK(I+1).EQ.0 .OR. SPEED(I).EQ.SPEED(I+1)) 1 GO TO 240 IFLE = 1 GO TO 240 230 IF (I.EQ.NSTNS .OR. NWORK(I+1).EQ.0) GO TO 240 IFLE = 1 240 IF (IFTE .EQ. 0) GO TO 500 CALL ALG03 (LNCT,NSTRMS+8) XN = SPEED(I)*SPDFAC(ICASE) XBLADE= 10.0 IF (NBLADE(I) .NE. 0) XBLADE = ABS(FLOAT(NBLADE(I))) L1 = XBLADE IF (IPRTC .EQ. 1) WRITE (LOG2,250) I,XN,L1 250 FORMAT (/10X,'STATION',I3,' IS WITHIN OR AT THE TRAILING EDGE OF', 1 ' A BLADE ROTATING AT',F8.1,' RPM NUMBER OF BLADES IN ', 2 'ROW =',I3, /10X,109(1H*), //,' STREAM BLADE ', 2 'RELATIVE RELATIVE RELATIVE DEVIATION BLADE ', 3 ' LEAN PRESS DIFF LOSS DIFFUSION DELTA P', 5 /,' -LINE',7X,'SPEED VELOCITY MACH NO. FLOW', 6 ' ANGLE ANGLE ANGLE ANGLE ACROSS BLADE ', 7 'COEFF FACTOR ON Q',/) Q = 1.0 IF (SPEED(I) .LT. 0.0) GO TO 290 IF (SPEED(I) .GT. 0.0) GO TO 280 IF (I .LT. 3) GO TO 290 II = I - 1 260 IF (SPEED(II) .NE. 0.0) GO TO 270 IF (II .EQ. 2) GO TO 290 II = II - 1 GO TO 260 270 IF (SPEED(II) .LT. 0.0) Q = -1.0 GO TO 290 280 Q = -1.0 290 L1 = NDIMEN(I) + 1 GO TO (300,320,340,360), L1 300 DO 310 J = 1,NSTRMS 310 TANEPS(J) = R(J,I) GO TO 380 320 DO 330 J = 1,NSTRMS 330 TANEPS(J) = R(J,I)/R(NSTRMS,I) GO TO 380 340 DO 350 J = 1,NSTRMS 350 TANEPS(J) = XL(J,I) GO TO 380 360 DO 370 J = 1,NSTRMS 370 TANEPS(J) = XL(J,I)/XL(NSTRMS,I) 380 L1 = IS2(I) IF (NWORK(I).EQ.5 .OR. NWORK(I).EQ.6) CALL ALG01 (DATAC(L1), 1 DATA6(L1),NDATA(I),TANEPS,DELTB,X1,NSTRMS,NTERP(I),0) CALL ALG01 (DATAC(L1),DATA5(L1),NDATA(I),TANEPS,SOLID,X1,NSTRMS, 1 NTERP(I),0) CALL ALG01 (DATAC(L1),DATA3(L1),NDATA(I),TANEPS,TANEPS,X1,NSTRMS, 1 NTERP(I),0) L1 = I + NL1(I) L2 = L1 IF (NLOSS(I).EQ.1 .OR. NLOSS(I).EQ.4 .OR. NWORK(I).EQ.7) 1 L2 = I + NL2(I) XN = XN*PI/(30.0*SCLFAC) DO 430 J = 1,NSTRMS U = XN*R(J,I) VR = SQRT(VM(J,I)**2+(VW(J,I)-U)**2) XMR = XM(J)*VR/V(J) BETA = ATAN(TBETA(J,I))*C1 BBETA= 0.0 IF (NWORK(I).EQ.5 .OR. NWORK(I).EQ.6) BBETA = BETA - DELTB(J) DELTB(J) = DELTB(J)*Q DELP = 0.0 IF (I.EQ.NSTNS .OR. NWORK(I+1).EQ.0 .OR. SPEED(I).NE.SPEED(I+1)) 1 GO TO 390 X1 = SQRT((R(J,I+1)-R(J,I))**2+(X(J,I+1)-X(J,I))**2) X2 = SQRT((R(J,I)-R(J,I-1))**2+(X(J,I)-X(J,I-1))**2) X3 = XBLADE DELP = PI*R(J,I)*WT(J)/(SCLFAC**2*X3*G)*(TBETA(J,I)/ 1 (1.0+TBETA(J,I)**2)*TS(J)*G*EJ*((S(J,I+1)-S(J,I))/X1 + 2 (S(J,I)-S(J,I-1))/X2)+VM(J,I)/R(J,I)*((R(J,I+1)*VW(J,I+1) - 3 R(J,I)*VW(J,I))/X1+(R(J,I)*VW(J,I)-R(J,I-1)*VW(J,I-1))/X2)) DELTP(J,I) = DELP 390 HRI = H(J,I) - (V(J)**2-VR**2)/(2.0*G*EJ) PRD = ALG4(HRI,S(J,L1)) PR = ALG4(HRI,S(J,I)) TR(J,I) = ALG7(HRI,S(J,I)) PRL2 = PR PSL2 = PS(J)*SCLFAC**2 IF (L2 .EQ. I) GO TO 400 PRL2 = H(J,L2) - (VW(J,L2)**2 - (VW(J,L2) - XN*R(J,L2))**2)/ 1 (2.0*G*EJ) PRL2 = ALG4(PRL2,S(J,L2)) PSL2 = H(J,L2) - (VW(J,L2)**2+VM(J,L2)**2)/(2.0*G*EJ) PSL2 = ALG4(PSL2,S(J,L2)) 400 COEF = (PRD-PR)/(PRL2-PSL2) DIF = 0.0 IF (SOLID(J) .EQ. 0.0) GO TO 410 X2 = VW(J,L1) - XN*R(J,L1) X1 = SQRT(VM(J,L1)**2+X2**2) X3 = VW(J,I) - U DIF = 1.0 - VR/X1 + (X2-X3)/(2.0*X1*SOLID(J))*Q 410 PRL1 = PRL2 PSL1 = PSL2 IF (L2 .EQ. L1) GO TO 420 PSL1 = H(J,L1) - (VW(J,L1)**2 + VM(J,L1)**2)/(2.0*G*EJ) PRL1 = PSL1 + (VM(J,L1)**2 + (VW(J,L1)-XN*R(J,L1))**2)/(2.0*G*EJ) PSL1 = ALG4(PSL1,S(J,L1)) PRL1 = ALG4(PRL1,S(J,L1)) 420 DPQ = (PS(J)-PSL1)/(PRL1-PSL1) 430 IF (IPRTC .EQ. 1) WRITE (LOG2,434) J,U,VR,XMR,BETA,DELTB(J),BBETA, 1 TANEPS(J),DELP,COEF,DIF,DPQ 434 FORMAT (I6,F14.2,F11.2,F11.4,4F11.3,F11.4,F11.5,F10.4,F11.4) CALL ALG03 (LNCT,NSTRMS+5) PBAR = 0.0 HBAR = 0.0 DO 440 J = 1,ITUB X1 = (DELF(J+1)-DELF(J))/2.0 PBAR = PBAR + X1*(PT(J)+PT(J+1)) 440 HBAR = HBAR + X1*(H(J,I)+H(J+1,I)) RBAR1= PBAR/P1BAR DH1 = (HBAR-H1BAR)/H1BAR EFF1 = 0.0 IF (HBAR .NE. H1BAR) EFF1 = (ALG2(S1BAR,PBAR)-H1BAR)/(HBAR-H1BAR) OPR = RBAR1 IF (EFF1 .NE. 0.0) OEFF = EFF1 IF (L1 .EQ. L1KEEP) GO TO 460 L1KEEP= L1 PNBAR = 0.0 HNBAR = 0.0 DO 444 J = 1,NSTRMS 444 PN(J) = ALG4(H(J,L1),S(J,L1)) DO 450 J = 1,ITUB X1 = (DELF(J+1)-DELF(J))/2.0 PNBAR = PNBAR + X1*(PN(J)+PN(J+1)) 450 HNBAR = HNBAR + X1*(H(J,L1)+H(J+1,L1)) SNBAR = ALG3(PNBAR,HNBAR) 460 EFFN = 0.0 IF (HNBAR .NE. HBAR) EFFN = (ALG2(SNBAR,PBAR)-HNBAR)/(HBAR-HNBAR) RBARN = PBAR/PNBAR DHN = (HBAR-HNBAR)/HNBAR IF (IPRTC .EQ. 1) WRITE (LOG2,470) I,L1,I,I,L1,I,RBAR1,RBARN,EFF1, 1 EFFN,DH1,DHN 470 FORMAT (/,' STREAM',7X,'INLET THROUGH STATION',I3,7X,'STATION', 1 I3,' THROUGH STATION',I3,5X,'MEAN VALUES',6X, 2 'INLET TO STA.',I2,' STA.',I2,' TO STA.',I2, /, 3 ' -LINE',6X,'PRESSURE ISENTROPIC DELTA H PRESSURE ', 4 'ISENTROPIC DELTA H PRESSURE RATIO',F14.4,F19.4, /15X, 5 'RATIO EFFICIENCY ON H1 RATIO EFFICIENCY ON ', 6 'H1 ISEN EFFY',2F19.4, /80X,'DELTA H ON H1',F15.4, 7 F19.4) DO 480 J = 1,NSTRMS RBAR1 = PT(J)/P1(J) EFF1 = 0.0 IF (H(J,I) .NE. H(J,1)) EFF1 = (ALG2(S(J,1),PT(J))-H(J,1))/ 1 (H(J,I)-H(J,1)) DH1 = (H(J,I)-H(J,1))/H(J,1) RBARN = PT(J)/PN(J) EFFN = 0.0 IF (H(J,I) .NE. H(J,L1)) EFFN = (ALG2(S(J,L1),PT(J))-H(J,L1))/ 1 (H(J,I)-H(J,L1)) DHN = (H(J,I)-H(J,L1))/H(J,L1) 480 IF (IPRTC .EQ. 1) WRITE (LOG2,490) J,RBAR1,EFF1,DH1,RBARN,EFFN,DHN 490 FORMAT (I6,F14.4,F10.4,F11.4,F12.4,F10.4,F11.4) 500 IF (IFLE .EQ. 0) GO TO 700 CALL ALG03 (LNCT,NSTRMS+8) XN = SPEED(I+1)*SPDFAC(ICASE) IP = I + 1 XBLADE = 10.0 IF (NBLADE(IP) .NE. 0) XBLADE = ABS(FLOAT(NBLADE(IP))) L1 = XBLADE IF (IPRTC .EQ. 1) WRITE (LOG2,510) I,XN,L1 510 FORMAT (/10X,'STATION',I3,' IS AT THE LEADING EDGE OF A BLADE ', 1 'ROATING AT',F9.1,' RPM NUMBER OF BLADES IN ROW =',I3, 2 /10X,99(1H*), //,' STREAM BLADE RELATIVE ', 3 'RELATIVE RELATIVE INCIDENCE BLADE LEAN ', 4 'PRESS DIFF', /,' -LINE SPEED VELOCITY MACH', 5 ' NO. FLOW ANGLE ANGLE ANGLE ANGLE ACROSS', 6 ' BLADE',/) XN = XN*PI/(30.0*SCLFAC) Q = 1.0 IF (SPEED(IP) .LT. 0.0) GO TO 550 IF (SPEED(IP) .GT. 0.0) GO TO 540 IF (IP .LT. 3) GO TO 550 II = IP - 1 520 IF (SPEED(II) .NE. 0.0) GO TO 530 IF (II .EQ. 2) GO TO 550 II = II - 1 GO TO 520 530 IF (SPEED(II) .LT. 0.0) Q = -1.0 GO TO 550 540 Q = -1.0 550 DO 560 J = 1,NSTRMS CR(J) = 0.0 560 TANEPS(J) = 0.0 IF (NWORK(I).NE.0 .OR. NDATA(I).EQ.0) GO TO 660 L1 = NDIMEN(I) + 1 GO TO (570,590,610,630), L1 570 DO 580 J = 1,NSTRMS 580 TANEPS(J) = R(J,I) GO TO 650 590 DO 600 J = 1,NSTRMS 600 TANEPS(J) = R(J,I)/R(NSTRMS,I) GO TO 650 610 DO 620 J = 1,NSTRMS 620 TANEPS(J) = XL(J,I) GO TO 650 630 DO 640 J = 1,NSTRMS 640 TANEPS(J) = XL(J,I)/XL(NSTRMS,I) 650 L1 = IS2(I) CALL ALG01 (DATAC(L1),DATA1(L1),NDATA(I),TANEPS,CR,X1,NSTRMS, 1 NTERP(I),0) CALL ALG01 (DATAC(L1),DATA3(L1),NDATA(I),TANEPS,TANEPS,X1,NSTRMS, 1 NTERP(I),0) 660 BBETA = 0.0 DO 680 J = 1,NSTRMS U = XN*R(J,I) VR = SQRT(VM(J,I)**2 + (VW(J,I)-U)**2) XMR = XM(J)*VR/V(J) TR(J,I) = ALG7(H(J,I)-(V(J)**2-VR**2)/(2.0*G*EJ),S(J,I)) BETA = ATAN((VW(J,I)-U)/VM(J,I))*C1 C C STORE REL. MACH, REL. VEL AND REL. FLOW ANGLE FOR ALL STREAMLINES C AT THE BLADE LEADING EDGE C IF (ICASE.NE.1 .OR. I.NE.LEDGEB) GO TO 675 RMDV(J,1) = XMR RMDV(J,3) = VR RMDV(J,4) = BETA 675 CONTINUE DELTB(J) = 0.0 IF (NWORK(I).NE.0 .OR. NDATA(I).EQ.0) GO TO 670 BBETA = ATAN((TAN(CR(J)/C1)*(1.0-GAMA(J)*TAN(PHI(J))) - 1 TAN(PHI(J))*TAN(TANEPS(J)/C1)*SQRT(1.0+GAMA(J)**2))* 2 COS(PHI(J)))*C1 DELTB(J) = (BETA-BBETA)*Q 670 X1 = SQRT((R(J,I+1)-R(J,I))**2+(X(J,I+1)-X(J,I))**2) DELP = PI*R(J,I)*2.0*WT(J)/(SCLFAC**2*XBLADE*G)*(SIN(BETA/C1)* 1 COS(BETA/C1)*G*EJ*TS(J)*(S(J,I+1)-S(J,I))/X1+VM(J,I)/ 2 (R(J,I)*X1)*(R(J,I+1)*VW(J,I+1)-R(J,I)*VW(J,I))) DELTP(J,I) = DELP 680 IF (IPRTC .EQ. 1) WRITE (LOG2,690) J,U,VR,XMR,BETA,DELTB(J),BBETA, 1 TANEPS(J),DELP 690 FORMAT (I6,F14.2,F11.2,F11.4,4F11.3,F11.4) 700 CONTINUE IF (NBL .EQ. 0) GO TO 770 L1 = (ILAST-1)/10 + 1 CALL ALG03 (LNCT,3+5*L1) IF (IPRTC .NE. 1) GO TO 770 WRITE (LOG2,710) 710 FORMAT (/10X,'ANNULUS WALL BOUNDARY LAYER CALCULATION RESULTS', 1 /10X,47(1H*)) DO 720 K = 1,L1 L2 = 10*(K-1) + 1 L3 = L2 + 9 IF (L3 .GT. ILAST) L3 = ILAST WRITE (LOG2,730) (I,I=L2,L3) WRITE (LOG2,740) (DELH(I),I=L2,L3) WRITE (LOG2,750) (DELT(I),I=L2,L3) WRITE (LOG2,760) (WWBL(I),I=L2,L3) 720 CONTINUE 730 FORMAT (/,' STATION NUMBER',14X,10I10) 740 FORMAT (' HUB DISPLACEMENT THICKNESS',4X,10F10.5) 750 FORMAT (' CASE DISPLACEMENT THICKNESS',3X,10F10.5) 760 FORMAT (' BLOCKAGE AREA FRACTION',8X,10F10.5) 770 CALL ALG03 (LNCT,4) IF (IPRTC.EQ.1 .AND. IVFAIL.EQ.0.AND.IFFAIL.EQ.0) WRITE (LOG2,780) 1 ICASE,IPASS IF (IFAILO .NE. 0) WRITE (LOG2,790) ICASE,IPASS,IFAILO IF (IFAILO.EQ.0 .AND. (IVFAIL.NE.0.OR.IFFAIL.NE.0)) 1 WRITE (LOG2,800) ICASE,IPASS,IVFAIL,IFFAIL 780 FORMAT (/10X,'POINT NO',I3,' PASS',I3,' THE CALCULATION IS ', 1 'CONVERGED', /10X,52(1H*)) 790 FORMAT (/10X,'POINT NO',I3,' PASS',I3,' THE CALCULATION FAIL', 1 'ED AT STATION',I3, /10X,60(1H*)) 800 FORMAT (/10X,'POINT NO',I3,' PASS',I3,' THE CALCULATION IS ', 1 'NOT FULLY CONVERGED IVFAIL =',I3,' IFFAIL =',I3, /10X, 2 88(1H*)) POWER = FLOW(ICASE)*(HBAR-H1BAR)*EJ/PFAC IF (IPRTC .EQ. 1) WRITE (LOG2,810) SPDFAC(ICASE),FLOW(ICASE),OPR, 1 OEFF,POWER 810 FORMAT (10X,'SPEED FACTOR =',F10.3,' FLOW =',F8.3,' TOTAL PRES', 1 'SURE RATIO =',F7.3,' ISENTROPIC EFFICIENCY =',F6.4, 2 ' POWER =',E11.4) IF (IPRTC .EQ. 0) WRITE (LOG2,815) ICASE,IPASS,SPDFAC(ICASE), 1 FLOW(ICASE),OPR,OEFF,POWER 815 FORMAT (18H FOR POINT NO.,I3,5H PASS,I3,15H - SPEED FACTOR, 1 10X,1H=,F10.4 / 32X,4HFLOW,18X,1H=,F10.4, / 2 32X,23HTOTAL PRESSURE RATIO =,F10.4, /32X,'ISENTROPIC ', 3 'EFFICIENCY =',F10.4, /32X,'POWER',17X,1H=,E10.4) IF (IFAILO .NE. 0) GO TO 920 L1 = 2 820 DO 830 I = L1,NSTNS NOUT3S = NOUT3(I)/10 IF (NOUT3S .EQ. 0) NOUT3S = NOUT3(I) IF (NOUT3S.EQ.1 .OR. NOUT3S.EQ.3) GO TO 840 830 CONTINUE GO TO 920 840 L2 = I L3 = I + 1 DO 850 I = L3,NSTNS NOUT3S = NOUT3(I)/10 NOUT3T = NOUT3(I) - NOUT3S*10 IF (NOUT3S .EQ. 0) NOUT3T = 1 IF (NOUT3S .EQ. 0) NOUT3S = NOUT3(I) IF (NOUT3S.EQ.2 .OR. NOUT3S.EQ.3) GO TO 860 850 CONTINUE 860 L3 = I CALL ALG03 (LNCT,10) IF (IPRTC .EQ. 1) WRITE (LOG2,870) L2,L3 870 FORMAT (/10X,'DATA FOR NASTRAN PROGRAM FOR BLADE BETWEEN STATIONS' 1, I3,' AND',I3, /10X,61(1H*),//) IF (NOUT3T .EQ. 2) GO TO 891 IF (IPRTC .EQ. 1) WRITE (LOG2,871) 871 FORMAT (' NAME CODE DELTA P ELEMENT',7X, 1 'MESHPOINTS - J I',9X,'J I',9X,'J I',/) LNCT = LNCT - 4 IELEM = 0 XSIGN =-FLOAT(NSIGN) L4 = L2 + 1 IDATA(1) = NAME1(1) IDATA(2) = NAME1(2) IDATA(3) = 60 DO 890 J = 1,ITUB DO 890 I = L4,L3 CALL ALG03 (LNCT,2) IELEM = IELEM + 1 L5 = I - 1 L6 = J + 1 IF (I .EQ. L3) GO TO 880 PLOAD = XSIGN*((DELTP(J,L5)+DELTP(L6,L5)+DELTP(L6,I))/3.0) IF (NBLADE(I) .LT. 0) PLOAD = XSIGN*((DELTP(J,L5)+DELTP(J,I) + 1 DELTP(L6,L5)+DELTP(L6,I))*0.25) IF (IPRTC .EQ. 1) WRITE (LOG2,900) PLOAD,IELEM,L6,L5,L6,I,J,L5 RDATA(4) = PLOAD IDATA(5) = IELEM CALL WRITE (ISCR,IDATA,5,1) IELEM = IELEM + 1 IF (NBLADE(I) .GE. 0) PLOAD = XSIGN*((DELTP(J,L5)+DELTP(L6,I)+ 1 DELTP(J,I))/3.0) IF (IPRTC .EQ. 1) WRITE (LOG2,900) PLOAD,IELEM,J,L5,L6,I,J,I RDATA(4) = PLOAD IDATA(5) = IELEM CALL WRITE (ISCR,IDATA,5,1) GO TO 890 880 PLOAD = XSIGN*((DELTP(J,L5)+DELTP(L6,L5))/3.0) IF (NBLADE(I) .LT. 0) PLOAD = PLOAD*0.75 IF (IPRTC .EQ. 1) WRITE (LOG2,900) PLOAD,IELEM,J,L5,L6,L5,L6,I RDATA(4) = PLOAD IDATA(5) = IELEM CALL WRITE (ISCR,IDATA,5,1) IELEM = IELEM + 1 IF (NBLADE(I) .GE. 0) PLOAD = XSIGN*(DELTP(J,L5)/3.0) IF (IPRTC .EQ. 1) WRITE (LOG2,900) PLOAD,IELEM,J,L5,L6,I,J,I RDATA(4) = PLOAD IDATA(5) = IELEM CALL WRITE (ISCR,IDATA,5,1) 890 CONTINUE 900 FORMAT (' PLOAD2 60',F12.5,I7,14X,3(I10,I4)) L1 = L3 891 IF (NOUT3T .EQ. 1) GO TO 820 C C OUTPUT RELATIVE TOTAL TEMPERATURES AT NODES ON *TEMP* CARDS C CALL ALG03 (LNCT,10) LNCT = LNCT - 6 IF (IPRTC .EQ. 1) WRITE (LOG2,892) 892 FORMAT (//,' NAME CODE DELTA T NODE',10X,'MESHPOINTS - ', 1 'J I COORDINATES - RADIAL AXIAL',/) INODE = 1 IDATA(1) = NAME2(1) IDATA(2) = NAME2(2) IDATA(3) = 70 DO 894 J = 1,NSTRMS DO 894 I = L2,L3 CALL ALG03(LNCT,1) IDATA(4) = INODE RDATA(5) = TR(J,I) CALL WRITE (ISCR,IDATA,5,1) IF (IPRTC .EQ. 1) WRITE (LOG2,912) TR(J,I),INODE,J,I,R(J,I),X(J,I) 894 INODE = INODE + 1 912 FORMAT (' TEMP 70',F12.5,I6,21X,2I4,16X,F10.4,2X,F10.4) GO TO 820 920 CONTINUE C C PUNCH STREAML2 BULK DATA CARDS FOR EACH STREAMLINE C CHANGE THE SIGN ON THE STAGGER AND FLOW ANGLES FOR STREAML2 CARDS. C THIS CHANGE IS NECESSARY BECAUSE OF THE AERODYNAMIC PROGRAMS IN C NASTRAN MODULE AMG THAT USE THESE ANGLES. C IF (LEDGEB*ITRLEB .EQ. 0) GO TO 940 IF (ISTRML.EQ.-1 .OR. ISTRML.EQ.1) GO TO 940 WRITE (LOG2,931) NSTNSX = ITRLEB - LEDGEB + 1 DO 930 ILEB = 1,NSTRMS RADIUS = (RMDV(ILEB,5)+RMDV(ILEB,6))/2.0 BSPACE = (6.283185*RADIUS)/FLOAT(NBLDES) STAG(ILEB ) = -1.0*STAG(ILEB ) RMDV(ILEB,4) = -1.0*RMDV(ILEB,4) WRITE (LPUNCH,932) ILEB,NSTNSX,STAG(ILEB),CHORDD(ILEB),RADIUS, 1 BSPACE,RMDV(ILEB,1),RMDV(ILEB,2),ILEB,ILEB,RMDV(ILEB,3), 2 RMDV(ILEB,4) WRITE (LOG2,933) ILEB,NSTNSX,STAG(ILEB),CHORDD(ILEB),RADIUS, 1 BSPACE,RMDV(ILEB,1),RMDV(ILEB,2),RMDV(ILEB,3),RMDV(ILEB,4) 930 CONTINUE 931 FORMAT (//10X,47HNASTRAN - STREAML2 - COMPRESSOR BLADE BULK DATA, 1 /10X,49(1H*), /,' SLN NSTNS STAGGER CHORD RADIUS', 2 ' BSPACE MACH DEN VEL FLOWA',/) 932 FORMAT (8HSTREAML2,2I8,F8.3,3F8.5,2F8.6,5H+STRL,I2,5H+STRL,I2, 1 F8.1,F8.3 ) 933 FORMAT (I5,I6,2X,F8.3,3(2X,F8.5),2(2X,F8.6),2X,F8.1,2X,F8.3) 940 CONTINUE RETURN END ================================================ FILE: mis/alg12.f ================================================ SUBROUTINE ALG12 C REAL LOSS,LAMI,LAMIP1,LAMIM1 C DIMENSION PSTAT(32),XX(32) C COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD, 1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL, 2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3, 3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30), 4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30) 5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30), 6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30), 7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30), 8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4), 9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100), 1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100), 2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10), 3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150), 4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30), 5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21), 6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21), 7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK, 8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST, 9FM2,HMIN,C1,PI,CONTR,CONMX C XMAX=X(1,NSTNS) XMIN=X(1,1) DO 100 J=2,NSTRMS IF(X(J,1).LT.XMIN)XMIN=X(J,1) IF(X(J,NSTNS).GT.XMAX)XMAX=X(J,NSTNS) 100 CONTINUE IF(XMIN.LT.0.0)XMIN=XMIN-1.0 L1=XMIN-1.0 XMIN=FLOAT(L1) L1=XMAX+1.0 XMAX=FLOAT(L1) DELX=(XMAX-XMIN)/XSCALE+0.01 XX(NSTNS+1)=XMIN XX(NSTNS+2)=XSCALE IF(NPLOT.EQ.2)GO TO 134 PSTAT(NSTNS+1)=PLOW PSTAT(NSTNS+2)=PSCALE J=1 K=1 110 DO 120 I=1,NSTNS HS=H(J,I)-(VW(J,I)**2+VM(J,I)**2)/(2.0*G*EJ) IF(HS.LT.HMIN)HS=HMIN PSTAT(I)=ALG4(HS,S(J,I))/SCLFAC**2 120 XX(I)=X(J,I) IF(J.EQ.NSTRMS)GO TO 130 K=K+1 IF(J.EQ.IMID)J=NSTRMS IF(J.EQ.1)J=IMID GO TO 110 130 CONTINUE IF(NPLOT.EQ.1)GO TO 180 134 CONTINUE PSTAT(NSTNS+1)=RLOW PSTAT(NSTNS+2)=XSCALE DO 150 J=1,NSTRMS DO 140 I=1,NSTNS XX(I)=X(J,I) 140 PSTAT(I)=R(J,I) 150 CONTINUE PSTAT(NSTRMS+1)=RLOW PSTAT(NSTRMS+2)=XSCALE XX(NSTRMS+1)=XMIN XX(NSTRMS+2)=XSCALE DO 170 I=1,NSTNS DO 160 J=1,NSTRMS PSTAT(J)=R(J,I) 160 XX(J)=X(J,I) 170 CONTINUE 180 RETURN END ================================================ FILE: mis/alg13.f ================================================ SUBROUTINE ALG13 (IBL,YS,YP,XS,XP,YSEMI,XSEMI,LOG1,LOG2,N,IPRINT, 1 BETA1,BETA2,P,Q,YZERO,T,YONE,XDEL,YDEL,Z,AXIALC, 2 LNCT,IFCORD,SQ,SB,ISECN,XSEMJ,YSEMJ,ISTAK,XHERE, 3 X,SS,NSTNS,R,DX,Y,DY,SS1,BX,SIGMA,CCORD,ISPLIT, 4 YZEROS,TS,YONES,ZSPMXT,PERSPJ,INAST,IRLE,IRTE, 5 THARR) C REAL IX,IY,IXY,IPX,IPY,IXD,IYD,IXN,IYN,IXYN DIMENSION CCORD(1),NAME(2),XXM(81),SNADUM(10),THARR(21,10) DIMENSION YS(21,80),YP(21,80),XS(21,80),XP(21,80), 1 YSEMI(21,31),XSEMI(21,31),S(80),PHI(11), 2 THICK2(80),XM(81),YM(80),AM(80),XSEMJ(21,31), 3 YSEMJ(21,31),XHERE(100),X(100),SS(100),R(10,21), 4 DX(100),DY(100),SS1(80,4),Y(100),SIGMA(100) DIMENSION XSPLTM(45),YSPLTM(45),SSPLTM(45),XSPLTS(45), 1 YSPLTS(45),XSPLTP(45),YSPLTP(45),THICK(45) COMMON /UDSTR2/ NBLDES,STAG(21),CHORDD(21) DATA NAME / 4HALG1, 4H3 / C F1(A) = A*EXP(1.0-A*SQ)*SQ F2(A) = (SQ-1.0)*A*EXP(1.0+A*(1.0-SQ)) F3(A,B,C,D) = B/A**3*EXP(A*XD)*(A*XD-2.0) + C*(XD+SQ) + D F4(A,B) = ABS(A-B)/(A-B) F5(A,B,C) = B/A**2*EXP(A*XD)*(A*XD-1.0) + C F6(XAB) = SQRT(RDIUS**2-(XAB-X1)**2) + Y1 F7(XAB) =-SQRT(RDIUS**2-(XAB-X1)**2) + Y1 F8(XAB) =-1./SQRT(RDIUS**2-(XAB-X1)**2)*(XAB-X1) C 10 FORMAT (1H1) A = 0. D = 0. BTA1 = BETA1 BTA2 = BETA2 BETA3= 0.0 PI = 3.1415926535 C1 = 180.0/PI IF (IPRINT .GE. 2) GO TO 40 WRITE (LOG2,20) IBL,P,Q,BETA1,BETA2,YZERO,T,YONE,Z,AXIALC 20 FORMAT (1H1,44X,43HSTREAMSURFACE GEOMETRY ON STREAMLINE NUMBER,I3, 1 /45X,46(1H*), //20X,1HP,1 25X,1H=,F7.4,6X,72H(D2YDX2 OF MEANLINE AT LEADING EDGE AS A FRACTIO 3N OF ITS MAXIMUM VALUE.), /20X,1HQ,15X,1H=,F7.4,6X,73H(D2YDX2 OF M 4EANLINE AT TRAILING EDGE AS A FRACTION OF ITS MAXIMUM VALUE.), /20 5X,5HBETA1,11X,1H=,F7.3,6X,20H(BLADE INLET ANGLE.), /20X,5HBETA2,11 6X,1H=,F7.3,6X,21H(BLADE OUTLET ANGLE.), /20X,5HYZERO,11X,1H=,F8.5, 75X,51H(BLADE LEADING EDGE RADIUS AS A FRACTION OF CHORD.), /20X,1H 8T,15X,1H=,F8.5,5X,49H(BLADE MAXIMUM THICKNESS AS A FRACTION OF CHO 9RD.), /20X,4HYONE,12X,1H=,F8.5,5X,60H(BLADE TRAILING EDGE HALF-THI OCKNESS AS A FRACTION OF CHORD.), /20X,1HZ,15X,1H=,F7.4,6X,59H(LOCA 1TION OF MAXIMUM THICKNESS AS A FRACTION OF MEAN LINE.), /20X,4HCOR 2D,12X,1H=,F7.4,6X,39H(CHORD OR MERIDIONAL CHORD OF SECTION.)) IF (ISECN.EQ.1 .OR. ISECN.EQ.3) WRITE (LOG2,30) SQ,SB 30 FORMAT (20X,1HS,15X,1H=,F7.4,6X,53H(INFLECTION POINT AS A FRACTION 1 OF MERIDIONAL CHORD.), /20X,5HBETA3,11X,1H=,F7.3,6X,36H(CHANGE IN 2 ANGLE FROM LEADING EDGE.)) 40 IF (IPRINT .EQ. 3) GO TO 55 LNCT = LNCT + 2 IF (LNCT .LE. 60)GO TO 45 LNCT = 3 WRITE (LOG2,10) 45 WRITE (LOG2,50) IBL,P,Q,BETA1,BETA2,YZERO,T,YONE,Z,AXIALC 50 FORMAT (2X, /5X,4HLINE,I3,4H P=,F7.4,4H Q=,F7.4,8H BETA1=,F7.3, 18H BETA2=,F7.3,8H YZERO=,F7.5,6H T/C=,F7.5,7H YONE=,F7.5,4H Z 2=,F7.4,6H AXC=,F7.3) 55 IF (ISECN .EQ. 1) GO TO 60 IF (ISECN .EQ. 3) GO TO 130 IF (ISECN .EQ. 2) GO TO 150 H = 1.0/(1.0+SQRT((1.0-Q)/(1.0-P))) HH = H*H OA = 4.0*(TAN(BETA1/C1)-TAN(BETA2/C1))/(P/(1.0-P)*HH+H-1.0/3.0) OA48 = OA/48.0 XK2 =-HH/(8.0*(1.0-P))*OA B = HH*H/12.0*OA+TAN(BETA1/C1) C =-HH*HH*OA48 XMLC = SQRT(1.0+(OA48*(1.0-H)**4+XK2+B+C)**2) GO TO 160 60 NQ = 1 SB = BETA1+SB G1 = 1.0/SQ R1 = F1(G1) G2 = G1+5.0 R2 = F1(G2) S2 = F4(R2,P) 70 G3 = G2+(P-R2)*(G2-G1)/(R2-R1) R3 = F1(G3) S3 = F4(R3,P) IF (ABS(R3-P) .LE. 0.0001) GO TO 90 IF (NQ .GT. 50) GO TO 1290 NQ = NQ + 1 IF (ABS(S2-S3) .LE. 0.0001) GO TO 80 G1 = G3 R1 = R3 GO TO 70 80 G2 = G3 R2 = R3 S2 = S3 GO TO 70 90 A1 = G3 NQ = 1 G1 = 1.0/(SQ-1.0) R1 = F2(G1) G2 = G1-5.0 R2 = F2(G2) S2 = F4(R2,Q) 100 G3 = G2+(Q-R2)*(G2-G1)/(R2-R1) R3 = F2(G3) S3 = F4(R3,Q) IF (ABS(R3-Q) .LE. 0.0001) GO TO 120 IF (NQ .GT. 50) GO TO 1290 NQ = NQ + 1 IF (ABS(S2-S3) .LE. 0.0001) GO TO 110 G1 = G3 R1 = R3 GO TO 100 110 G2 = G3 R2 = R3 S2 = S3 GO TO 100 120 A2 = G3 B1 = A1**2*(TAN(BETA1/C1)-TAN(SB/C1))/ 1 (1.0-(A1*SQ+1.0)*EXP(-A1*SQ)) CC1= TAN(SB/C1)+B1/A1**2 E1 = (A1*SQ+2.0)*B1/A1**3*EXP(-A1*SQ) B2 = A2**2*(TAN(BETA2/C1)-TAN(SB/C1))/ 1 (1.0+(A2*(1.0-SQ)-1.0)*EXP(A2*(1.0-SQ))) CC2= TAN(SB/C1)+B2/A2**2 D2 = 2.*(B2/A2**3-B1/A1**3)+SQ*(CC1-CC2) + E1 XD = 1.0-SQ R2 = F3(A2,B2,CC2,D2) XMLC = SQRT(1.0+R2**2) GO TO 160 130 I1 = 1 BETA3 = BETA1+SB S0 = 0. X0 = 0. Y0 = 0. Y21= 0.0 I2 = FLOAT(N)*SQ IF (I2 .LE. 1) SQ = 0.0 IF (I2 .LE. 1) BETA3 = BETA1 IF (I2 .LE. 1) GO TO 140 XRNGE = SQ FACT = SQ CALL ALG18 (BETA1,BETA3,I1,I2,FACT,X0,Y0,S0,XRNGE,Y11,X11,Y21, 1 RDIUS1,S,C1) I1 = I2 X0 = SQ Y0 = Y21 S0 = S(I1) 140 I2 = N FACT = 1.-SQ XRNGE = FACT CALL ALG18 (BETA3,BETA2,I1,I2,FACT,X0,Y0,S0,XRNGE,Y12,X12,Y22, 1 RDIUS2,S,C1) XMLC = SQRT(1.0+Y22**2) GO TO 160 150 CALL ALG18 (BETA1,BETA2,1,N,1.0,0.0,0.0,0.0,1.0,Y1,X1,Y2,RDIUS, 1 S,C1) XMLC = SQRT(1.+Y2**2) CHORD = XMLC/(1.-2.*YZERO*(1.-XMLC)) FCSLMN= 1.0 - CHORD*2.*YZERO GO TO 170 160 CHORD = XMLC/(1.0-YZERO+XMLC*(YZERO+ABS(YONE*SIN(BETA2/C1)))) FCSLMN= 1.0 - CHORD*(YZERO+ABS(YONE*SIN(BETA2/C1))) 170 IF (IFCORD .EQ. 1) AXIALC = AXIALC/CHORD YZERO = YZERO*CHORD/FCSLMN YONE = YONE*CHORD/FCSLMN T = T*CHORD/FCSLMN S(1)= 0.0 XX = 0.0 XN = N IF (ISECN .EQ. 2) GO TO 240 AT = (YZERO-T/2.0)/(2.0*Z**3) CT = (T/2.0-YZERO)*3.0/(2.0*Z) DT = YZERO ET = (YONE-T/2.0)/(1.0-Z)**3 - 1.5*(YZERO-T/2.0)/(Z**2*(1.0-Z)) FT = 1.5*(YZERO-T/2.0)/Z**2 HT = T/2.0 IF (ISECN .EQ. 3) GO TO 240 DELX = 1.0/(10.0*(XN-1.0)) ASSIGN 190 TO ISEC1 ASSIGN 290 TO ISEC2 IF (ISECN .EQ. 0) GO TO 180 ASSIGN 200 TO ISEC1 ASSIGN 300 TO ISEC2 180 DO 230 J = 2,N DO 220 JJ = 1,11 GO TO ISEC1, (190,200) 190 PHI(JJ) = SQRT(1.0+(OA/12.0*(XX-H)**3+XK2*2.0*XX+B)**2) GO TO 220 200 XD = XX - SQ IF (XD .GT. 0.0) GO TO 210 PHI(JJ) = SQRT(1.0+(F5(A1,B1,CC1))**2) GO TO 220 210 PHI(JJ) = SQRT(1.+(F5(A2,B2,CC2))**2) 220 XX = XX + DELX XX = XX - DELX 230 S(J) = S(J-1)+ (PHI(1)+ PHI(11)+ 4.0*(PHI(2)+PHI(4)+PHI(6)+PHI(8)+ 1 PHI(10))+2.0*(PHI(3)+PHI(5)+PHI(7)+PHI(9)))/(30.0*(XN-1.0)) 240 DELX = 1.0/(XN-1.0) IF (ISECN .NE. 2) GO TO 250 T2 = T/2. TPRIM2 = T2 - YZERO C2 = 2.*C1 AFORM = (TPRIM2+RDIUS*(1.-COS((BETA1-BETA2)/C2)))/XMLC*2. PHIS = ACOS((1.-AFORM**2)/(1.+AFORM**2)) RS = YZERO + XMLC/2./SIN(PHIS) YSS = RDIUS - RS + T2 BFORM = (RDIUS*(1.-COS((BETA1-BETA2)/C2))-TPRIM2)/XMLC*2. PHIP = ACOS((1.-BFORM**2)/(1.+BFORM**2)) PHI2 = ABS((BETA1-BETA2)/C1) 250 XM(1) = 0.0 IF (ISECN .NE. 3) GO TO 260 YMM = 0.0 XMM = 0.0 I2 = SQ*FLOAT(N) I3 = I2 IF (I2 .LE. 1) I2 = N + 1 DELX= SQ/FLOAT(I2-1) IF (I3 .NE. I2) I3 = 1 DELXX = (1.-SQ)/FLOAT(N-I3) IF (I2 .EQ. N+1) DELX = DELXX 260 DO 380 J = 1,N SN = S(J)/S(N) IF (ISECN .EQ. 2) GO TO 340 IF (SN .GT. Z) GO TO 270 THICK2(J) = (AT*SN**2+CT)*SN + DT GO TO 280 270 SN = SN - Z THICK2(J) = (ET*SN+FT)*SN**2 + HT 280 IF (ISECN .EQ. 3) GO TO 320 GO TO ISEC2, (290,300) 290 YM(J) = OA48*(XM(J)-H)**4+XK2*XM(J)**2 + B*XM(J) + C YPRIME = OA/12.0*(XM(J)-H)**3 + XK2*2.0*XM(J) + B GO TO 370 300 XD = XM(J) - SQ IF (XD .GT. 0.0) GO TO 310 YM(J) = F3(A1,B1,CC1,E1) YPRIME = F5(A1,B1,CC1) GO TO 370 310 YM(J) = F3(A2,B2,CC2,D2) YPRIME = F5(A2,B2,CC2) GO TO 370 320 IF (XM(J)-SQ.GT.0.0 .OR. XM(J).EQ.0.0 .AND. SQ.EQ.0.0) GO TO 330 IF (BETA1 .EQ. BETA3) GO TO 360 BTA1 = BETA1 BTA2 = BETA3 RDIUS = RDIUS1 Y1 = Y11 X1 = X11 GO TO 350 330 IF (BETA2 .EQ. BETA3) GO TO 360 RDIUS = RDIUS2 X1 = X12 Y1 = Y12 BTA1 = BETA3 BTA2 = BETA2 GO TO 350 340 PHIX = (SN-0.5)*PHI2 THICK2(J) = YSS*COS(PHIX) + SQRT(RS**2-YSS**2*SIN(PHIX)**2) -RDIUS 350 YM(J) = F6(XM(J)) YPRIME = F8(XM(J)) IF (BTA1-BTA2 .LT. 0.0) YPRIME = -YPRIME IF (BTA1-BTA2 .LT. 0.0) YM(J) = F7(XM(J)) IF (ISECN .EQ. 2) GO TO 370 IF (J .EQ. I3) DELX = DELXX GO TO 370 360 YPRIME = TAN(BETA3/C1) IF (J .NE. 1) XMM = XM(J-1)/FCSLMN - YZERO IF (J .NE. 1) YMM = YM(J-1)/FCSLMN YM(J) = YPRIME*(XM(J)-XMM) + YMM IF (J .EQ. I3) DELX = DELXX 370 XM(J+1) = XM(J) + DELX FYPR = 1.0/SQRT(1.0+YPRIME**2) XS(IBL,J) = (XM(J)-THICK2(J)*YPRIME*FYPR+YZERO)*FCSLMN YS(IBL,J) = (YM(J)+THICK2(J)*FYPR)*FCSLMN XP(IBL,J) = (XM(J)+THICK2(J)*YPRIME*FYPR+YZERO)*FCSLMN YP(IBL,J) = (YM(J)-THICK2(J)*FYPR)*FCSLMN AM(J) = ATAN(YPRIME)*C1 XXM(J) = XM(J) IF(J .EQ. N) STAGER = ATAN(YM(N)/XM(N))*C1 IF(J .EQ. N) STAG(IBL) = STAGER XM(J) = (XM(J)+YZERO)*FCSLMN YM(J) = YM(J)*FCSLMN THICK2(J) = THICK2(J)*FCSLMN 380 S(J) = S(J)*FCSLMN IF (ISPLIT .EQ. 0) GO TO 530 XSPLTM(1) = 1. - PERSPJ K1 = 25 XSPLTM(K1) = 1. K11 = K1 - 1 DELXX = PERSPJ/FLOAT(K11) DO 390 J = 2,K11 390 XSPLTM(J) = XSPLTM(J-1) + DELXX CALL ALG15 (XM,YM,N,XSPLTM,YSPLTM,K1,1) YLE = YSPLTM(1) CALL ALG15 (XM,S,N,XSPLTM,SSPLTM,K1,1) CALL ALG15 (XM,AM,N,XSPLTM,SS1(1,3),K1,1) SSPLS = SSPLTM(1) DO 400 J = 1,K1 400 SSPLTM(J) = SSPLTM(J) - SSPLS GO TO (410,420), ISPLIT 410 XNORMS = SQRT((XSPLTM(K1)-XSPLTM(1))**2+(YSPLTM(K1)-YSPLTM(1))**2) CHORDS = XNORMS/(1.-YZEROS+XNORMS*(YZEROS+ABS(YONES*SIN(BETA2/ 1 C1)))) FCSLMS = (PERSPJ-CHORDS*(YZEROS+ABS(YONES*SIN(BETA2/C1))))/PERSPJ YZEROS = YZEROS*CHORDS/FCSLMS YONES = YONES *CHORDS/FCSLMS TS = TS*CHORDS/FCSLMS AT = (YZEROS-TS/2.)/(2.*ZSPMXT**3) CT = (TS/2.-YZEROS)*3./(2.*ZSPMXT) DT = YZEROS ET = (YONES-TS/2.)/(1.-ZSPMXT)**3-1.5*(YZEROS-TS/2.)/ 1 (ZSPMXT**2*(1.-ZSPMXT)) FT = 1.5*(YZEROS-TS/2.)/ZSPMXT**2 HT = TS/2. GO TO 450 420 YZS = YZEROS TS1 = TS BETA1 = SS1(1,3) Y1 =-COS(BETA1/C1)/(SIN(BETA1/C1)-SIN(BETA2/C1)) X1 = SIN(BETA1/C1)/(SIN(BETA1/C1)-SIN(BETA2/C1)) RDIUS = ABS(1./(SIN(BETA1/C1)-SIN(BETA2/C1))) Y2 = TAN((BETA1+BETA2)/(2.*C1)) XMLCS = SQRT(1.+Y2**2) CHORDS = XMLCS/(1.0-2.*YZEROS*(1.0-XMLCS)) FCSLMS = 1.0-CHORDS*2.*YZEROS YZEROS = YZEROS*CHORDS/FCSLMS TS = TS*CHORDS/FCSLMS SS1(1,1) = 0. DELX = 1./(XN-1.) T2 = TS/2. TPRIM2= T2-YZEROS C2 = 2.*C1 AFORM = (TPRIM2+RDIUS*(1.-COS((BETA1-BETA2)/C2)))/XMLCS*2. PHIS = ACOS((1.-AFORM**2)/(1.+AFORM**2)) RS = YZEROS + XMLCS/2./SIN(PHIS) YSS = RDIUS - RS + T2 BFORM = (RDIUS*(1.-COS((BETA1-BETA2)/C2))-TPRIM2)/XMLCS*2. PHIP = ACOS((1.-BFORM**2)/(1.+BFORM**2)) RP = XMLCS/2./SIN(PHIP)-YZEROS YPP = RDIUS - RP - T2 XX = 0. DO 430 J = 2,N XX = XX + DELX PHI1 = ATAN(-1./SQRT(RDIUS**2-(XX-X1)**2)*(XX-X1)) IF (BETA1 .LT. 0.) PHI1 = -PHI1 PHI2 = ABS(BETA1/C1-PHI1) 430 SS1(J,1) = RDIUS*PHI2 DO 440 J = 1,N SS1(J,1) = SS1(J,1)/SS1(N,1) PHIX = (SS1(J,1)-.5)*PHI2 440 SS1(J,2) =(YSS*COS(PHIX)+SQRT(RS**2-YSS**2*SIN(PHIX)**2)-RDIUS)/T2 CALL ALG14 (XSPLTM,YSPLTM,K1,XSPLTM,XDUM,SS1(1,3),K1,1) XNORMS = SQRT(PERSPJ**2+(YSPLTM(K1)-YSPLTM(1))**2) CHORDS = XNORMS/(1.-2.*YZS*(1.-XNORMS)) FCSLMS = (PERSPJ-CHORDS*2.*YZS)/PERSPJ TS = TS1*CHORDS/FCSLMS YZEROS = YZS*CHORDS/FCSLMS 450 DO 500 J = 1,K1 SN = SSPLTM(J)/SSPLTM(K1) IF (ISPLIT .GT. 1) GO TO 480 IF (SN .GT. ZSPMXT) GO TO 460 THICK(J) = (AT*SN**2+CT)*SN + DT GO TO 470 460 SN = SN - ZSPMXT THICK(J) = (ET*SN+FT)*SN**2 + HT 470 FYPR = 1./SQRT(1.+TAN(SS1(J,3)/C1)**2) YPRIME = TAN(SS1(J,3)/C1) GO TO 490 480 CALL ALG15 (SS1,SS1(1,2),N,SN,THICK(J),1,1) THICK(J) = THICK(J)*TS/2. FYPR = 1.0/SQRT(1.0+SS1(J,3)**2) YPRIME = SS1(J,3) 490 XSPLTP(J) = (XSPLTM(J)-(1.-PERSPJ)+THICK(J)*YPRIME*FYPR+YZEROS)* 1 FCSLMS+(1.-PERSPJ) XSPLTS(J) = (XSPLTM(J)-(1.-PERSPJ)-THICK(J)*YPRIME*FYPR+YZEROS)* 1 FCSLMS+(1.-PERSPJ) YSPLTP(J) = (YSPLTM(J)-YLE-THICK(J)*FYPR)*FCSLMS+YLE YSPLTS(J) = (YSPLTM(J)-YLE+THICK(J)*FYPR)*FCSLMS+YLE XSPLTM(J) = (XSPLTM(J)-(1.-PERSPJ)+YZEROS)*FCSLMS+(1.-PERSPJ) YSPLTM(J) = (YSPLTM(J)-YLE)*FCSLMS+YLE THICK(J) = THICK(J)*FCSLMS 500 SSPLTM(J) = SSPLTM(J)*FCSLMS IF (ISPLIT .GT. 1) SS1(1,3) = ATAN(SS1(1,3))*C1 YZEROS = YZEROS*FCSLMS AREAS = PI/2.*YZEROS**2 AREA2 = AREAS YINT =-4./(3.*PI)*YZEROS*AREAS*SIN(SS1(1,3)/C1) XINT = YZEROS*(1.-COS(SS1(1,3)/C1)*4./(3.*PI))*AREAS DO 510 J = 2,K1 DELA = (THICK(J)+THICK(J-1))*(SSPLTM(J)-SSPLTM(J-1)) AREAS = AREAS + DELA XINT = XINT + DELA*(XSPLTM(J)+XSPLTM(J-1))/2. 510 YINT = YINT + DELA*(YSPLTM(J)+YSPLTM(J-1))/2. IF (ISPLIT .LT. 2) GO TO 520 XINT = XINT + AREA2*(XSPLTM(K1)+4.*YZEROS/(3.*PI)*COS(BETA2/C1)) YINT = YINT + AREA2*(YSPLTM(K1)+4.*YZEROS/(3.*PI)*SIN(BETA2/C1)) AREAS = AREAS + AREA2 520 XBARS = XINT/AREAS YBARS = YINT/AREAS 530 CONTINUE YZERO = YZERO*FCSLMN IF (INAST .EQ. 0) GO TO 550 NASNUM = IRTE - IRLE + 1 CALL ALG15 (X,SS,100,XHERE(IRLE),SNADUM(IRLE),NASNUM,1) SNDUM1 = SNADUM(IRLE) SNDUM2 = SNADUM(IRTE) DO 540 J = IRLE,IRTE SNADUM(J) = (SNADUM(J)-SNDUM1)/(SNDUM2-SNDUM1) CALL ALG15 (XXM,THICK2,N,SNADUM(J),THARR(IBL,J),1,1) 540 THARR(IBL,J) = THARR(IBL,J)*2.*AXIALC 550 CONTINUE AREA = PI/2.0*YZERO**2 XINT = YZERO*(1.0-COS(BETA1/C1)*4.0/(3.0*PI))*AREA YINT =-4.0/(3.0*PI)*YZERO*AREA*SIN(BETA1/C1) DO 560 J = 2,N DELA = (THICK2(J)+THICK2(J-1))*(S(J)-S(J-1)) AREA = AREA + DELA XINT = XINT + DELA*(XM(J)+XM(J-1))/2.0 560 YINT = YINT + DELA*(YM(J)+YM(J-1))/2.0 IF (ISECN .NE. 2) GO TO 570 AREA2= PI/2.*YZERO**2 XINT = XINT + AREA2*(XM(N)+4.*YZERO/(3.*PI)*COS(BETA2/C1)) YINT = YINT + AREA2*(YM(N)+4.*YZERO/(3.*PI)*SIN(BETA2/C1)) AREA = AREA + AREA2 570 XBAR = XINT/AREA YBAR = YINT/AREA XBARB= XBAR YBARB= YBAR YBAR = YBAR + YDEL/AXIALC XBAR = XBAR + XDEL/AXIALC AX = 1./99. DX(1)= 0. DO 580 IK = 2,100 580 DX(IK) = DX(IK-1) + AX YMM = 0.0 XMM = 0.0 DO 660 IK = 1,100 XAB = DX(IK) IF (ISECN .EQ. 0) GO TO 590 IF (ISECN .EQ. 1) GO TO 600 IF (ISECN .EQ. 2) GO TO 640 IF (ISECN .EQ. 3) GO TO 620 590 Y(IK) = (OA48*(XAB-H)**4+XAB**2*XK2+B*XAB+C)*FCSLMN SS1(IK,1) = OA/12.*(XAB-H)**3+XK2*2.*XAB+B GO TO 660 600 XD = XAB - SQ IF (XD .GT. 0.) GO TO 610 Y(IK) = F3(A1,B1,CC1,E1)*FCSLMN SS1(IK,1) = F5(A1,B1,CC1) GO TO 660 610 Y(IK) = F3(A2,B2,CC2,D2)*FCSLMN SS1(IK,1) = F5(A2,B2,CC2) GO TO 660 620 IF (XAB-SQ.GT.0.0 .OR. XAB.EQ.0.0 .AND. SQ.EQ.0.0) GO TO 630 IF (BETA1 .EQ. BETA3) GO TO 650 RDIUS = RDIUS1 X1 = X11 Y1 = Y11 BTA1 = BETA1 BTA2 = BETA3 GO TO 640 630 IF (BETA2 .EQ. BETA3) GO TO 650 RDIUS = RDIUS2 X1 = X12 Y1 = Y12 BTA1 = BETA3 BTA2 = BETA2 640 Y(IK) = F6(XAB)*FCSLMN SS1(IK,1) = F8(XAB) IF (BTA1-BTA2 .LT. 0.0) SS1(IK,1) = -SS1(IK,1) IF (BTA1-BTA2 .LT. 0.0) Y(IK) = F7(XAB)*FCSLMN GO TO 660 650 SS1(IK,1) = TAN(BETA3/C1) IF (IK .NE. 1) YMM = Y(IK-1)/FCSLMN IF (IK .NE. 1) XMM = DX(IK-1) Y(IK) = (SS1(IK,1)*(XAB-XMM)+YMM)*FCSLMN 660 SIGMA(IK) = DX(IK)*FCSLMN + YZERO CALL ALG15 (SIGMA,Y,100,DX,DY,100,1) CALL ALG15 (SIGMA,SS1(1,1),100,DX,Y,100,1) CALL ALG15 (DX,DY,100,XBAR,XAB,1,1) CALL ALG15 (DX,Y,100,XBAR,XBC,1,1) XBAR = XBARB YBAR = YBARB IX = 0.0 IY = 0.0 IXY = 0.0 DO 670 J = 2,N DELA = (THICK2(J)+THICK2(J-1))*(S(J)-S(J-1)) IXD = (THICK2(J)+THICK2(J-1))**3*(S(J)-S(J-1))/12.0 IYD = (THICK2(J)+THICK2(J-1))*(S(J)-S(J-1))**3/12.0 COSANG = COS((AM(J)+AM(J-1))/C1) IXN = (IXD+IYD+(IXD-IYD)*COSANG)/2.0 IYN = (IXD+IYD-(IXD-IYD)*COSANG)/2.0 IXYN = 0.0 IF (AM(J)+AM(J-1) .NE. 0.0) IXYN = ((IXN-IYN)*COSANG-IXD+IYD)/ 1 (2.0*SIN((AM(J)+AM(J-1))/C1)) IX = IX + IXN + DELA*((YM(J)+YM(J-1))/2.0-YBAR)**2 IY = IY + IYN + DELA*((XM(J)+XM(J-1))/2.0-XBAR)**2 670 IXY = IXY+ IXYN+ DELA*(YBAR-(YM(J)+YM(J-1))/2.0)*(XBAR-(XM(J)+ 1 XM(J-1))/2.0) ANG = ATAN(2.0*IXY/(IY-IX)) IPX = (IX+IY)/2.0+(IX-IY)/2.0*COS(ANG)-IXY*SIN(ANG) IPY = (IX+IY)/2.0-(IX-IY)/2.0*COS(ANG)+IXY*SIN(ANG) ANG = ANG/2.0*C1 XML = XM(N) YML = YM(N) CAMBER = BETA1 - BETA2 IF (IPRINT .GE. 2) GO TO 790 LNCT = 47 IF (ISECN.EQ.1 .OR. ISECN.EQ.3) LNCT = 49 WRITE (LOG2,680) CHORD,STAGER,CAMBER,AREA,XBAR,YBAR,IX,IY,IXY,ANG, 1 IPX,ANG,IPY,ANG 680 FORMAT ( /16X,100HNORMALISED RESULTS - ALL THE FOLLOWING REFER TO 1ABLADE HAVING A MERIDIONAL CHORD PROJECTION OF UNITY, /16X,100(1H* 2),//20X,11HBLADE CHORD,4X,1H=,F7.4, //20X,16HSTAGGER ANGLE =,F7.3 3, //20X,16HCAMBER ANGLE =,F7.3, //20X,16HSECTION AREA =,F7.5, 4//20X,45HLOCATION OF CENTROID RELATIVE TO LEADING EDGE, //30X,6HXB 5AR =,F8.5, /30X,6HYBAR =,F8.5, //20X,37HSECOND MOMENTS OF AREA ABO 6UT CENTROID, //30X,6HIX =,F8.5, /30X,6HIY =,F8.5, /30X,6HIXY 7=,F8.5, //20X,58HANGLE OF INCLINATION OF (ONE) PRINCIPAL AXIS TO 8X AXIS =,F7.3, //20X,47HPRINCIPAL SECOND MOMENTS OF AREA ABOUT CE 9NTROID, //30X,6HIPX =,F7.5,6X,3H(AT,F7.3,15H WITH X AXIS), /30X $,6HIPY =,F7.5,6X,3H(AT,F7.3,15H WITH Y AXIS), //) 690 FORMAT (27X,5HPOINT,8X,24HM E A N L I N E D A T A,13X,23HSURFACE 1COORDINATE DATA, /27X,6HNUMBER,5X,1HX,7X,1HY,5X,15HANGLE THICKNESS 2,9X,2HX1,6X,2HY1,6X,2HX2,6X,2HY2, //) WRITE (LOG2,690) DO 710 J = 1,N IF (LNCT .NE. 60) GO TO 700 WRITE (LOG2,10) WRITE (LOG2,690) LNCT = 4 700 LNCT = LNCT + 1 TM = THICK2(J)*2.0 710 WRITE (LOG2,720) J,XM(J),YM(J),AM(J),TM,XS(IBL,J),YS(IBL,J), 1 XP(IBL,J),YP(IBL,J) 720 FORMAT (27X,I3,F13.5,F8.5,F7.3,F8.5,F16.5,3F8.5) IF (ISPLIT .EQ. 0) GO TO 760 IF (LNCT .LE. 40) GO TO 730 WRITE (LOG2,10) LNCT = 1 730 WRITE (LOG2,740) 740 FORMAT (//10X,20HSPLITTER COORDINATES, /10X,21(1H*), //2X) WRITE (LOG2,690) LNCT = LNCT + 11 N = K1 DO 750 J = 1,N TM = THICK(J)*2. XS(IBL,J) = XSPLTS(J) XP(IBL,J) = XSPLTP(J) YP(IBL,J) = YSPLTP(J) YS(IBL,J) = YSPLTS(J) WRITE (LOG2,720) J,XSPLTM(J),YSPLTM(J),SS1(J,3),TM,XS(IBL,J), 1 YS(IBL,J),XP(IBL,J),YP(IBL,J) LNCT = LNCT + 1 IF (LNCT .LE. 60) GO TO 750 WRITE (LOG2,10) WRITE (LOG2,690) LNCT = 4 750 CONTINUE 760 CONTINUE DO 770 J = 1,N XM(J) = XS(IBL,J) YM(J) = YS(IBL,J) AM(J) = XP(IBL,J) 770 THICK2(J) = YP(IBL,J) WRITE (LOG2,780) IBL 780 FORMAT (1H1,45X,33HNORMALISED PLOT OF SECTION NUMBER,I3, /2X) CALL ALG16 (N,LOG2,XM,YM,AM,THICK2) 790 A2 = AXIALC**2 A4 = A2**2 IX = IX*A4 IY = IY*A4 IXY = IXY*A4 IPX = IPX*A4 IPY = IPY*A4 IF (ISTAK .GT. 1) GO TO 800 XBAR= ISTAK IF (ISTAK .EQ. 0) YBAR = 0. IF (ISTAK .EQ. 1) YBAR = YML 800 RLE = YZERO*AXIALC IF (ISPLIT .NE. 0) GO TO 810 CHORD = CHORD*AXIALC CCORD(IBL) = CHORD AREA = AREA*A2 XC = RLE - XBAR*AXIALC - XDEL YC =-YBAR*AXIALC - YDEL XTC = (XML-XBAR)*AXIALC - XDEL YTC = (YML-YBAR)*AXIALC - YDEL GO TO 860 810 RLE = YZEROS*AXIALC CHORD = CHORDS*AXIALC AREAS = AREAS*AXIALC**2 XC = (XSPLTM(1)-XBAR)*AXIALC - XDEL YC = (YSPLTM(1)-YBAR)*AXIALC - YDEL XTC = (XSPLTM(K1)-XBAR)*AXIALC - XDEL YTC = (YSPLTM(K1)-YBAR)*AXIALC - YDEL XBARS = (XBARS-XBAR)*AXIALC - XDEL YBARS = (YBARS-YBAR)*AXIALC - YDEL IF (IPRINT .GE. 2) GO TO 940 GO TO (820,840), ISPLIT 820 WRITE (LOG2,830) CHORD,RLE,XC,YC,XBARS,YBARS,AREAS 830 FORMAT (1H1,31X,69HDIMENSIONAL RESULTS - ALL RESULTS REFER TO A BL 1ADE OF SPECIFIED CHORD, /32X,69(1H*), //20X,11HBLADE CHORD,4X,1H=, 21P,E12.5,//20X,10HEND RADIUS,5X,1H=,1P,E12.5,8X,14HCENTERED AT X=, 31P,E12.5,3H Y=,1P,E13.5, //20X,26HLOCATION OF CENTROID AT X=, 41P,E12.5,7H AND Y=,1P,E12.5, //20X,16HSECTION AREA =,1P,E12.5, 5 //2X) GO TO 900 840 WRITE (LOG2,850) CHORD,RLE,XC,YC,XTC,YTC,XBARS,YBARS,AREAS 850 FORMAT (1H1,31X,69HDIMENSIONAL RESULTS - ALL RESULTS REFER TO A BL 1ADE OF SPECIFIED CHORD, /32X,69(1H*), //20X,11HBLADE CHORD,4X,1H=, 21P,E12.5,//20X,10HEND RADIUS,5X,1H=,1P,E12.5,8X,14HCENTERED AT X=, 31P,E12.5,3H Y=,1P,E13.5, /64X,6HAND X=,1P,E12.5,3H Y=,1P,E13.5, 4 /20X,26HLOCATION OF CENTROID AT X=,1P,E12.5,7H AND Y=,1P,E12.5, 5 //20X,16HSECTION AREA =,1P,E12.5, //2X) GO TO 900 860 CONTINUE IF (IPRINT .GE. 2) GO TO 940 IF (ISECN .EQ. 2) GO TO 880 WRITE (LOG2,870) CHORD,RLE,XC,YC,AREA,IX,IY,IXY,IPX,ANG,IPY,ANG 870 FORMAT (1H1,31X,69HDIMENSIONAL RESULTS - ALL RESULTS REFER TO A BL 1ADE OF SPECIFIED CHORD, /32X,69(1H*),//20X,11HBLADE CHORD,4X,1H=, 31P,E12.5,//20X,10HL.E.RADIUS,5X,1H=,1P,E12.5,8X,14HCENTERED AT X=, 41P,E13.5,3H Y=,1P,E13.5, //20X,16HSECTION AREA =,1P,E12.5,//20X, 537HSECOND MOMENTS OF AREA ABOUT CENTROID, //30X,6HIX =,1P,E12.5, 6 /30X,6HIY =,1P,E12.5, /30X,6HIXY =,1P,E12.5, //20X,47HPRINCIPA 7L SECOND MOMENTS OF AREA ABOUT CENTROID, //30X,6HIPX =,1P,E12.5, 85H (AT,0P,F7.3,15H WITH X AXIS), /30X,6HIPY =,1P,E12.5, 95H (AT,0P,F7.3,15H WITH Y AXIS), //) GO TO 910 880 CONTINUE WRITE (LOG2,890) CHORD,RLE,XC,YC,XTC,YTC,AREA,IX,IY,IXY,IPX,ANG, 1 IPY,ANG 890 FORMAT (1H1,31X,69HDIMENSIONAL RESULTS - ALL RESULTS REFER TO A BL 1ADE OF SPECIFIED CHORD, /32X,69(1H*),//20X,11HBLADE CHORD,4X,1H=, 21P,E12.5, //20X,9HEND RADII,6X,1H=,1P,E12.5,8X,14HCENTERED AT X=, 31P,E13.5,3H Y=,1P,E13.5, /64X,6HAND X=,1P,E13.5,3H Y=,1P,E13.5, 4 /20X,16HSECTION AREA =,1P,E12.5, //20X,37HSECOND MOMENTS OF ARE 5A ABOUT CENTROID, //30X,6HIX =,1P,E12.5, /30X,6HIY =,1P,E12.5, 6 /30X,6HIXY =,1P,E12.5, //20X,47HPRINCIPAL SECOND MOMENTS OF AREA 7 ABOUT CENTROID, //30X,6HIPX =,1P,E12.5,5H (AT,0P,F7.3, 815H WITH X AXIS), /30X,6HIPY =,1P,E12.5,5H (AT,0P,F7.3, 915H WITH Y AXIS), //) 900 CONTINUE 910 WRITE (LOG2,920) WRITE (LOG2,930) 920 FORMAT(4X,2HPT,5X,7HSURFACE,10(1H-),3HONE,8X,7HSURFACE,10(1H-),3HT 1WO,10X,2HPT,5X,7HSURFACE,10(1H-),3HONE,8X,7HSURFACE,10(1H-),3HTWO) 930 FORMAT (4X,2HNO,8X,1HX,13X,1HY,13X,1HX,13X,1HY,12X,2HNO,8X,1HX,13X 1,1HY,13X,1HX,13X,1HY, //) LNCT = 24 940 DO 970 J = 1,N XS(IBL,J) = (XS(IBL,J) - XBAR)*AXIALC - XDEL YS(IBL,J) = (YS(IBL,J) - YBAR)*AXIALC - YDEL XP(IBL,J) = (XP(IBL,J) - XBAR)*AXIALC - XDEL YP(IBL,J) = (YP(IBL,J) - YBAR)*AXIALC - YDEL IF (IPRINT .GE. 2) GO TO 970 IF ((J/2)*2 .NE. J) GO TO 970 IF (LNCT .NE. 60) GO TO 950 LNCT = 4 WRITE (LOG2,10) WRITE (LOG2,920) WRITE (LOG2,930) 950 LNCT = LNCT + 1 JM1 = J - 1 WRITE (LOG2,960) JM1,XS(IBL,JM1),YS(IBL,JM1),XP(IBL,JM1), 1 YP(IBL,JM1),J,XS(IBL,J),YS(IBL,J),XP(IBL,J), 2 YP(IBL,J) 960 FORMAT (3X,I3,4(2X,1P,E12.5),6X,I3,4(2X,1P,E12.5)) 970 CONTINUE CHORDD(IBL) = CHORD IF (ISPLIT .GT. 1) ISECN = ISPLIT IF (IPRINT .GE. 2) GO TO 1000 IF (LNCT .GT. 24) WRITE (LOG2,980) 980 FORMAT (1H1) IF (LNCT .GT. 24) LNCT = 2 LNCT = LNCT + 5 IF (ISECN .EQ. 2) GO TO 1030 WRITE (LOG2,990) 990 FORMAT (//48X,37HPOINTS DESCRIBING LEADING EDGE RADIUS, //48X, 1 9HPOINT NO.,6X,1HX,13X,1HY, /2X) 1000 EPS = BETA1 + 180.0 IF (ISECN .EQ. 2) GO TO 1030 DO 1020 J = 1,31 XSEMI(IBL,J) = XC - RLE*SIN(EPS/C1) YSEMI(IBL,J) = YC + RLE*COS(EPS/C1) EPS = EPS - 6.0 IF (IPRINT .GE. 2) GO TO 1020 WRITE (LOG2,1010) J,XSEMI(IBL,J),YSEMI(IBL,J) LNCT = LNCT + 1 1010 FORMAT (48X,I5,1P,E17.5,1P,E14.5) 1020 CONTINUE GO TO 1090 1030 PHISS = PHIS - ABS((BETA1-BETA2)/C2) PHIPP = ABS((BETA1-BETA2))/C2 - PHIP EPS = BETA1 + 180.0 EPS2 = BETA2 + 90. DELEP = (180.-(PHISS+PHIPP)*C1)/28. DO 1060 J = 1,31 IF (J .NE. 1) GO TO 1040 XSEMI(IBL,J) = XP(IBL,1) YSEMI(IBL,J) = YP(IBL,1) XSEMJ(IBL,J) = XS(IBL,N) YSEMJ(IBL,J) = YS(IBL,N) EPS = EPS - PHIPP*C1 EPS2 = EPS2 - PHISS*C1 GO TO 1060 1040 IF (J .NE. 31) GO TO 1050 XSEMI(IBL,J) = XS(IBL,1) YSEMI(IBL,J) = YS(IBL,1) YSEMJ(IBL,J) = YP(IBL,N) XSEMJ(IBL,J) = XP(IBL,N) GO TO 1060 1050 XSEMI(IBL,J) = XC - RLE*SIN(EPS/C1) YSEMI(IBL,J) = YC + RLE*COS(EPS/C1) XSEMJ(IBL,J) = XTC + RLE*COS(EPS2/C1) YSEMJ(IBL,J) = YTC + RLE*SIN(EPS2/C1) EPS = EPS - DELEP EPS2 = EPS2 - DELEP 1060 CONTINUE IF (IPRINT .GE. 2) GO TO 1090 WRITE (LOG2,1070) 1070 FORMAT (//39X,44HPOINTS DESCRIBING LEADING AND TRAILING EDGES, 1 /25X,12HLEADING EDGE,22X,13HTRAILING EDGE, /2X,9HPOINT NO.,4X,8X, 2 1HX,14X,1HY,12X,8X,1HX,14X,1HY, /2X) WRITE (LOG2,1080) (J,XSEMI(IBL,J),YSEMI(IBL,J),XSEMJ(IBL,J), 1 YSEMJ(IBL,J),J=1,31) LNCT = LNCT + 31 1080 FORMAT (6X,I2,7X,1P,E17.5,1P,E14.5,2X,1P,E17.5,1P,E14.5) 1090 SSURF = AXIALC SS2 = BX - AXIALC*XBAR - XDEL SBAR = SS2 + AXIALC*XBARB + XDEL DO 1100 IK = 1,100 1100 SS(IK) = SS(IK) - SBAR CALL ALG15 (SS,X,100,0.0,SBAR,1,1) CALL ALG15 (XHERE,R(1,IBL),NSTNS,SBAR,RXBAR,1,0) XBARC = XBAR YBARC = YBAR XBAR = XBARB + XDEL/AXIALC YBAR = YBARB + YDEL/AXIALC SS1(1,1) = SS(1) S23 = AXIALC/99. SS(1) = SS(1) + SS2 DO 1110 IK = 2,100 SS1(IK,1) = SS(IK) 1110 SS(IK) = SS(IK-1) + S23 SIGMAO = (XAB-YBAR)/RXBAR*AXIALC DO 1120 IK = 2,100 IF (XBAR .EQ. DX(IK)) GO TO 1140 IF (XBAR.GT.DX(IK-1) .AND. XBAR.LT.DX(IK)) GO TO 1150 1120 CONTINUE WRITE (LOG2,1130) 1130 FORMAT (1H1,23H XBAR CANNOT BE LOCATED) 1140 SIGMA(IK) = SIGMAO KL = IK + 1 GO TO 1160 1150 KL = IK SIGMA(IK-1) = SIGMAO 1160 SSDUM = SS(KL-1) SS(KL-1) = 0. YP1 = XBC RX1 = RXBAR DO 1170 IK = KL,100 XSURF = SS2 + DX(IK)*SSURF + SS1(1,1) CALL ALG15 (SS1(1,1),X,100,XSURF,XDUM,1,1) CALL ALG15 (XHERE,R(1,IBL),NSTNS,XDUM,RX2,1,0) SIGMA(IK) = SIGMA(IK-1) + (Y(IK)/RX2+YP1/RX1)/2.*(SS(IK)-SS(IK-1)) YP1 = Y(IK) 1170 RX1 = RX2 SS(KL-1) = SSDUM SSDUM = SS(KL) SIGDUM = SIGMA(KL) SIGMA(KL) = SIGMAO SS(KL) = 0. RX1 = RXBAR YP1 = XBC KM = KL - 1 DO 1180 IK = 1,KM KJ = KL - IK XSURF = SS2 + DX(KJ)*SSURF + SS1(1,1) CALL ALG15 (SS1(1,1),X,100,XSURF,XDUM,1,1) CALL ALG15 (XHERE,R(1,IBL),NSTNS,XDUM,RX2,1,0) SIGMA(KJ) = SIGMA(KJ+1)-(Y(KJ)/RX2+YP1/RX1)/2.*(SS(KJ+1)-SS(KJ)) YP1 = Y(KJ) 1180 RX1 = RX2 SIGMA(KL) = SIGDUM SS(KL) = SSDUM DO 1190 IK = 1,100 1190 SS(IK) = SS1(IK,1) XBAR = XBARC YBAR = YBARC DO 1200 IK = 1,N SS1(IK,1) = SS2 + ((XS(IBL,IK)+XDEL)/AXIALC+XBAR)*SSURF+SS(1) 1200 SS1(IK,2) = SS2 + ((XP(IBL,IK)+XDEL)/AXIALC+XBAR)*SSURF+SS(1) DO 1210 IK =1,31 1210 SS1(IK,3) = SS2 + ((XSEMI(IBL,IK)+XDEL)/AXIALC+XBAR)*SSURF+SS(1) IF (ISECN .NE. 2) GO TO 1230 DO 1220 IK = 1,31 1220 SS1(IK,4) = SS2 + ((XSEMJ(IBL,IK)+XDEL)/AXIALC+XBAR)*SSURF+SS(1) CALL ALG15 (SS,X,100,SS1(1,4),SS1(1,4),31,1) 1230 CALL ALG15 (SS,X,100,SS1(1,1),SS1(1,1),N,1) CALL ALG15 (SS,X,100,SS1(1,2),SS1(1,2),N,1) CALL ALG15 (SS,X,100,SS1(1,3),SS1(1,3),31,1) IF (ISTAK .GT. 1) GO TO 1250 IF (ISTAK .EQ. 1) SIGMAO = SIGMA(100) IF (ISTAK .EQ. 0) SIGMAO = SIGMA(1) DO 1240 IK = 1,100 1240 SIGMA(IK) = SIGMA(IK) - SIGMAO 1250 DO 1260 IK = 1,100 DX(IK) = (DX(IK)-XBAR)*AXIALC - XDEL 1260 DY(IK) = (DY(IK)-YBAR)*AXIALC - YDEL DO 1280 MK = 1,4 IF (ISECN.NE.2 .AND. MK.EQ.4) GO TO 1280 IF (MK.EQ.4 .OR. MK.EQ.3) NNN = 31 IF (MK.EQ.1 .OR. MK.EQ.2) NNN = N DO 1270 IK = 1,NNN IF (MK .EQ. 1) YP1 = YS(IBL,IK) IF (MK .EQ. 2) YP1 = YP(IBL,IK) IF (MK .EQ. 3) YP1 = YSEMI(IBL,IK) IF (MK .EQ. 4) YP1 = YSEMJ(IBL,IK) IF (MK .EQ. 1) RX1 = XS(IBL,IK) IF (MK .EQ. 2) RX1 = XP(IBL,IK) IF (MK .EQ. 3) RX1 = XSEMI(IBL,IK) IF (MK .EQ. 4) RX1 = XSEMJ(IBL,IK) CALL ALG15 (DX,DY,100,RX1,RXBAR,1,1) DELLY = YP1 - RXBAR CALL ALG15 (XHERE,R(1,IBL),NSTNS,SS1(IK,MK),RAB,1,0) DELSIG = DELLY/RAB CALL ALG15 (DX,SIGMA,100,RX1,XAB,1,1) 1270 SS1(IK,MK) = XAB + DELSIG 1280 CONTINUE RETURN C 1290 WRITE (LOG2,1300) 1300 FORMAT (1H1,10X,54HITERATIVE SOLUTION FOR CONSTANT FAILS - CASE AB 1ANDONED) CALL MESAGE (-37,0,NAME) END ================================================ FILE: mis/alg14.f ================================================ SUBROUTINE ALG14 (XDATA,YDATA,NDATA,XIN,YOUT,YPRIME,NXY,NWOT) C C THIS SPLINE ROUTINE DETERMINES Y AND/OR YPRIME LINEAR EXTRAPOLATI C XDATA AND XIN MUST BE IN ASCENDING ORDER E1 AND E2 ARE D2YDX2 LAS C D2YDX2 LAST-BUT-ONE AT ENDS OF SPECIFIED REGION OF BEAM C REAL M C DIMENSION A(65), B(65), D(65), M(65), XDATA(2), YDATA(2), XIN(1), 1YOUT(1), YPRIME(1) C IF (NDATA-2) 240,10,70 10 IF (NWOT-1) 20,40,20 20 DO 30 I=1,NXY 30 YOUT(I)=((YDATA(2)-YDATA(1))/(XDATA(2)-XDATA(1)))*(XIN(I)-XDATA(1) 1)+YDATA(1) 40 IF (NWOT) 240,240,50 50 DO 60 I=1,NXY 60 YPRIME(I)=(YDATA(2)-YDATA(1))/(XDATA(2)-XDATA(1)) GO TO 240 70 CONTINUE E1=1.0 E2=1.0 A(1)=1.0 B(1)=-E1 D(1)=0.0 N=NDATA-1 DO 80 I=2,N A(I)=(XDATA(I+1)-XDATA(I-1))/3.0-(XDATA(I)-XDATA(I-1))*B(I-1)/(6.0 1*A(I-1)) B(I)=(XDATA(I+1)-XDATA(I))/6.0 80 D(I)=(YDATA(I+1)-YDATA(I))/(XDATA(I+1)-XDATA(I))-(YDATA(I)-YDATA(I 1-1))/(XDATA(I)-XDATA(I-1))-(XDATA(I)-XDATA(I-1))*D(I-1)/6.0/A(I-1) A(NDATA)=-E2 B(NDATA)=1.0 D(NDATA)=0.0 M(NDATA)=A(NDATA)*D(N)/(A(NDATA)*B(N)-A(N)*B(NDATA)) DO 90 II=2,NDATA I=NDATA+1-II 90 M(I)=(D(I)-B(I)*M(I+1))/A(I) J=1 I=1 100 IF (XIN(I)-XDATA(1)) 190,190,110 110 IF (XIN(I)-XDATA(J+1)) 140,140,120 120 IF (J+1-NDATA) 130,140,140 130 J=J+1 GO TO 110 140 IF (XIN(I)-XDATA(NDATA)) 150,220,220 150 DX=XDATA(J+1)-XDATA(J) IF (NWOT-1) 160,170,160 160 YOUT(I)=M(J)/(6.0*DX)*(XDATA(J+1)-XIN(I))**3+M(J+1)/(6.0*DX)*(XIN( 1I)-XDATA(J))**3+(XDATA(J+1)-XIN(I))*(YDATA(J)/DX-M(J)/6.0*DX)+(XIN 2(I)-XDATA(J))*(YDATA(J+1)/DX-M(J+1)/6.0*DX) IF (NWOT) 170,180,170 170 YPRIME(I)=(-M(J)*(XDATA(J+1)-XIN(I))**2/2.0+M(J+1)*(XIN(I)-XDATA(J 1))**2/2.0+YDATA(J+1)-YDATA(J))/DX-(M(J+1)-M(J))/6.0*DX 180 I=I+1 IF (I-NXY) 100,100,240 190 YDASH=(YDATA(2)-YDATA(1))/(XDATA(2)-XDATA(1))-(M(1)/3.0+M(2)/6.0)* 1(XDATA(2)-XDATA(1)) IF (NWOT-1) 200,210,200 200 YOUT(I)=YDATA(1)-YDASH*(XDATA(1)-XIN(I)) IF (NWOT) 210,180,210 210 YPRIME(I)=YDASH GO TO 180 220 YDASH=(YDATA(NDATA)-YDATA(N))/(XDATA(NDATA)-XDATA(N))+(M(NDATA)/3. 10+M(N)/6.0)*(XDATA(NDATA)-XDATA(N)) IF (NWOT-1) 230,210,230 230 YOUT(I)=YDATA(NDATA)+YDASH*(XIN(I)-XDATA(NDATA)) IF (NWOT) 210,180,210 240 RETURN END ================================================ FILE: mis/alg15.f ================================================ SUBROUTINE ALG15 (XDATA,YDATA,NDATA,XIN,YOUT,NXY,NTYPE) C REAL M C DIMENSION M(21), A(21), B(21), D(21), XDATA(2), YDATA(2), XIN(1), 1YOUT(1) C IF (NDATA-1) 10,10,30 10 DO 20 I=1,NXY 20 YOUT(I)=YDATA(1) RETURN 30 IF (NDATA-2) 50,50,40 40 IF (NTYPE) 180,180,50 50 J=1 I=1 60 IF (XIN(I)-XDATA(2)) 130,130,70 70 IF (XIN(I)-XDATA(NDATA-1)) 80,140,140 80 IF (XIN(I)-XDATA(J)) 100,120,90 90 IF (XIN(I)-XDATA(J+1)) 120,120,100 100 J=J+1 IF (J-NDATA) 80,110,110 110 J=1 GO TO 80 120 YOUT(I)=YDATA(J)+(YDATA(J+1)-YDATA(J))/(XDATA(J+1)-XDATA(J))*(XIN( 1I)-XDATA(J)) GO TO 150 130 YOUT(I)=YDATA(1)+(YDATA(2)-YDATA(1))/(XDATA(2)-XDATA(1))*(XIN(I)-X 1DATA(1)) GO TO 150 140 YOUT(I)=YDATA(NDATA-1)+(YDATA(NDATA)-YDATA(NDATA-1))/(XDATA(NDATA) 1-XDATA(NDATA-1))*(XIN(I)-XDATA(NDATA-1)) 150 IF (I-NXY) 160,170,170 160 I=I+1 GO TO 60 170 RETURN 180 A(1)=1.0 B(1)=0.0 D(1)=0.0 N=NDATA-1 DO 190 I=2,N A(I)=(XDATA(I+1)-XDATA(I-1))/3.0-(XDATA(I)-XDATA(I-1))*B(I-1)/(6.0 1*A(I-1)) B(I)=(XDATA(I+1)-XDATA(I))/6.0 190 D(I)=(YDATA(I+1)-YDATA(I))/(XDATA(I+1)-XDATA(I))-(YDATA(I)-YDATA(I 1-1))/(XDATA(I)-XDATA(I-1))-(XDATA(I)-XDATA(I-1))*D(I-1)/6.0/A(I-1) M(NDATA)=0.0 DO 200 II=2,N I=NDATA+1-II 200 M(I)=(D(I)-B(I)*M(I+1))/A(I) M(1)=0.0 J=1 I=1 210 IF (XIN(I)-XDATA(1)) 230,260,220 220 IF (XIN(I)-XDATA(NDATA)) 280,270,240 230 JP=1 KP=2 GO TO 250 240 JP=NDATA KP=NDATA-1 250 YPRIME=(YDATA(KP)-YDATA(JP))/(XDATA(KP)-XDATA(JP))-M(KP)/6.0*(XDAT 1A(KP)-XDATA(JP)) YOUT(I)=YDATA(JP)+(XIN(I)-XDATA(JP))*YPRIME GO TO 350 260 YOUT(I)=YDATA(1) GO TO 350 270 YOUT(I)=YDATA(NDATA) GO TO 350 280 IF (XIN(I)-XDATA(J)) 300,320,290 290 IF (XIN(I)-XDATA(J+1)) 340,330,300 300 J=J+1 IF (J-NDATA) 280,310,310 310 J=1 GO TO 280 320 YOUT(I)=YDATA(J) GO TO 350 330 YOUT(I)=YDATA(J+1) GO TO 350 340 DX=XDATA(J+1)-XDATA(J) YOUT(I)=M(J)/(6.0*DX)*(XDATA(J+1)-XIN(I))**3+M(J+1)/(6.0*DX)*(XIN( 1I)-XDATA(J))**3+(XDATA(J+1)-XIN(I))*(YDATA(J)/DX-M(J)/6.0*DX)+(XIN 2(I)-XDATA(J))*(YDATA(J+1)/DX-M(J+1)/6.0*DX) 350 IF (I-NXY) 360,370,370 360 I=I+1 GO TO 210 370 RETURN END ================================================ FILE: mis/alg16.f ================================================ SUBROUTINE ALG16 (IX,LOG1,X1,Y1,X2,Y2) C REAL LINE C DIMENSION X1(1), Y1(1), X2(1), Y2(1), LINE(121), XNUM(13) C DATA SYMBOL/1H*/,DASH/1H-/,CROSS/1H+/,BLANK/1H /,XI/1HI/ C YMIN=Y1(1) XMIN=X1(1) YMAX=YMIN XMAX=XMIN DO 10 I=1,IX IF (Y2(I).LT.YMIN) YMIN=Y2(I) IF (Y2(I).GT.YMAX) YMAX=Y2(I) IF (X2(I).LT.XMIN) XMIN=X2(I) IF (X2(I).GT.XMAX) XMAX=X2(I) IF (Y1(I).GT.YMAX) YMAX=Y1(I) IF (X1(I).GT.XMAX) XMAX=X1(I) 10 CONTINUE IF (XMAX.EQ.XMIN.OR.YMIN.EQ.YMAX) GO TO 170 YH=YMAX+(YMAX-YMIN)/25.0 YL=YMIN-(YMAX-YMIN)/25.0 XH=XMAX+(XMAX-XMIN)/38.3333 XL=XMIN-(XMAX-XMIN)/38.3333 IF ((YH-YL)/(XH-XL).GT.0.75) XH=1.3333*(YH-YL)+XL IF ((YH-YL)/(XH-XL).LT.0.75) YH=0.75*(XH-XL)+YL XMAX=(XMIN+XMAX-XH+XL)/2.0 XH=XH-XL+XMAX XL=XMAX XMAX=(YMIN+YMAX-YH+YL)/2.0 YH=YH-YL+XMAX YL=XMAX XMAX=ABS(XH) XMIN=ABS(XL) YMIN=ABS(YL) YMAX=ABS(YH) IF (XMIN.GT.XMAX) XMAX=XMIN IF (YMIN.GT.YMAX) YMAX=YMIN XMAX=ALOG10(XMAX) YMAX=ALOG10(YMAX) IF (XMAX.LT.0.0) XMAX=XMAX-1.0 IF (YMAX.LT.0.0) YMAX=YMAX-1.0 MX=-XMAX MY=-YMAX WRITE (LOG1,20) MX,MY 20 FORMAT (20X,46HSCALES - X IS SHOWN TIMES 10 TO THE POWER OF,I3,4 10H Y IS SHOWN TIMES 10 TO THE POWER OF,I3,/) YINC=(YH-YL)/54.0 YINC2=YINC/2.0 XRANGE=XH-XL DO 140 KLINE=1,55 IF (KLINE.EQ.1.OR.KLINE.EQ.55) GO TO 50 DO 30 L=2,120 30 LINE(L)=BLANK IF (KLINE.EQ.7.OR.KLINE.EQ.13.OR.KLINE.EQ.19.OR.KLINE.EQ.25.OR.KLI 1NE.EQ.31.OR.KLINE.EQ.37.OR.KLINE.EQ.43.OR.KLINE.EQ.49) GO TO 40 LINE(1)=XI LINE(121)=XI GO TO 80 40 LINE(1)=DASH LINE(121)=DASH GO TO 80 50 DO 60 L=2,120 60 LINE(L)=DASH LINE(1)=CROSS LINE(121)=CROSS DO 70 L=11,111,10 70 LINE(L)=XI GO TO 120 80 DO 100 I=1,IX IF (Y2(I).GT.YH+YINC2.OR.Y2(I).LE.YH-YINC2) GO TO 90 L=(X2(I)-XL)/XRANGE*120.0+1.5 LINE(L)=SYMBOL 90 IF (Y1(I).GT.YH+YINC2.OR.Y1(I).LE.YH-YINC2) GO TO 100 L=(X1(I)-XL)/XRANGE*120.0+1.5 LINE(L)=SYMBOL 100 CONTINUE IF (KLINE.EQ.1.OR.KLINE.EQ.7.OR.KLINE.EQ.13.OR.KLINE.EQ.19.OR.KLIN 1E.EQ.25.OR.KLINE.EQ.31.OR.KLINE.EQ.37.OR.KLINE.EQ.43.OR.KLINE.EQ.4 29.OR.KLINE.EQ.55) GO TO 120 WRITE (LOG1,110) LINE 110 FORMAT (8X,121A1) GO TO 140 120 YNUM=YH*10.0**MY WRITE (LOG1,130) YNUM,LINE 130 FORMAT (1X,F6.3,1X,121A1) 140 YH=YH-YINC XNUM(1)=XL*10.0**MX XINC=((XH-XL)/12.0)*10.0**MX DO 150 I=2,13 150 XNUM(I)=XNUM(I-1)+XINC WRITE (LOG1,160) XNUM 160 FORMAT (6X,12(F6.3,4X),F6.3) RETURN 170 WRITE (LOG1,180) 180 FORMAT (//,35X,54HNO PLOT HAS BEEN MADE BECAUSE X OR Y RANGE I 1S ZERO) RETURN END ================================================ FILE: mis/alg17.f ================================================ SUBROUTINE ALG17 (ISTAK,PLTSZE,ITRIG,TITLE,IKDUM,IFPLOT) C DIMENSION TITLE(18) C PLTTIT=PLTSZE*.1 IF (ISTAK.LT.2) GO TO 10 BAL=.35*PLTSZE XLEN1=.3*PLTSZE XLEN2=XLEN1 YLEN1=.25*PLTSZE YLEN2=-1.*YLEN1 XBACK1=-1.9 XBACK2=-6.2 GO TO 50 10 IF (ISTAK.EQ.0) GO TO 20 XLEN1=.70*PLTSZE XLEN2=.15*PLTSZE XBACK1=-1.9-.20*PLTSZE XBACK2=-6.2-.20*PLTSZE IF (IKDUM.EQ.1) GO TO 30 GO TO 40 20 CONTINUE XLEN1=.15*PLTSZE XLEN2=.70*PLTSZE XBACK1=-1.9+.20*PLTSZE XBACK2=-6.2+.20*PLTSZE IF (IKDUM.EQ.1) GO TO 40 30 BAL=.25*PLTSZE YLEN1=.50*PLTSZE YLEN2=-.15*PLTSZE GO TO 50 40 BAL=.50*PLTSZE YLEN1=.15*PLTSZE YLEN2=-.50*PLTSZE 50 CONTINUE YBACK1=-(.35+BAL) YBACK2=YBACK1-.01*PLTSZE-.175 GO TO (60,70), ITRIG 60 CONTINUE GO TO 80 70 XBACK1=XBACK1+0.35 80 CONTINUE RETURN END ================================================ FILE: mis/alg18.f ================================================ SUBROUTINE ALG18 (BETA1,BETA2,I1,I2,FACT,X0,Y0,S0,XR,Y1,X1,Y2,RDI 1US,S,C1) C DIMENSION S(80) C DELX=XR/FLOAT(I2-I1) XX=X0 I3=I1+1 IF (BETA1.EQ.BETA2) GO TO 20 Y1=-COS(BETA1/C1)/(SIN(BETA1/C1)-SIN(BETA2/C1)) X1=SIN(BETA1/C1)/(SIN(BETA1/C1)-SIN(BETA2/C1)) Y2=TAN((BETA1+BETA2)/(2.0*C1)) RDIUS=ABS(1.0/(SIN(BETA1/C1)-SIN(BETA2/C1))) Y2=Y2*FACT+Y0 Y1=Y1*FACT+Y0 X1=X1*FACT+X0 RDIUS=RDIUS*FACT DO 10 J=I3,I2 XX=XX+DELX PHI1=ATAN(-1./SQRT(RDIUS**2-(XX-X1)**2)*(XX-X1)) IF ((BETA1-BETA2).LT.0.0) PHI1=-PHI1 PHI2=ABS(BETA1/C1-PHI1) 10 S(J)=RDIUS*PHI2+S0 RETURN 20 AM=TAN(BETA1/C1) DO 30 J=I3,I2 XX=XX+DELX 30 S(J)=(XX-X0)*SQRT(AM*AM+1.0)+S0 Y2=AM*(XX-X0)+Y0 RETURN END ================================================ FILE: mis/alg19.f ================================================ SUBROUTINE ALG19 (LOG1,LOG2,LOG3,LOG5,NLINES,NSPEC,KPTS,RSTA, 1 XSTA,R,ZR,B1,B2,TC,PI,C1,NBLADE,CCORD,BLOCK, 2 ALPB,EPSLON,IFANGS,IPUNCH,NAERO) C DIMENSION IDATA(24),RDATA(6),KPTS(1),RSTA(21,10), 1 XSTA(21,10),R(10,21),ZR(1),B1(1),B2(1),TC(1), 2 CCORD(1),BLOCK(10,21),ALPB(10,21),EPSLON(10,21), 3 NR(10),NTERP(10),NMACH(10),NLOSS(10),NL1(10), 4 NL2(10),NEVAL(10),NCURVE(10),NLITER(10),NDEL(10), 5 RR(21,10),XLOSS(21,10),RTE(5),DM(11,5), 6 DVFRAC(11,5),RDTE(21),DELTAD(21),AC(21),F137B(8), 7 F137S(5),F142TC(7),F161D(8,5),F195M(8,2),F164XB(8) 8, F172K(7),NOUT1(10),NOUT2(10),SOL(21),DEV(10,21), 9 DEVV(10,5),DX(10),X(10),DOO(5),IFANGS(1), O NOUT3(10),NBLAD(10) COMMON /UD3PRT/ IPRTC DATA F137B / 0.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0/ DATA F137S / 0.4,0.8,1.2,1.6,2.0/ DATA F142TC/ 0.0,0.02,0.04,0.06,0.08,0.10,0.12/ DATA F161D / 0.0,0.009,0.17,0.29,0.42,0.59,0.79,1.05,0.0,0.12, 1 0.30,0.51,0.75,1.05,1.47,2.07,0.0,0.16,0.33,0.61, 2 0.95,1.42,2.12,3.07,0.0,0.17,0.40,0.72,1.11,1.71, 3 2.62,3.95,0.0,0.2,0.44,0.78,1.21,1.90,3.01,4.75/ DATA F195M / 0.17,0.173,0.179,0.189,0.206,0.232,0.269,0.310, 1 0.25,0.255,0.261,0.268,0.278,0.292,0.312,0.342 / DATA F164XB/ 0.965,0.945,0.921,0.890,0.850,0.782,0.679,0.550/ DATA F172K / 0.0,0.160,0.331,0.521,0.74,1.0,1.300/ C LMAX = 60 CALL FREAD (LOG1,IDATA,6,1) NRAD = IDATA(1) NDPTS = IDATA(2) NDATR = IDATA(3) NSWITC = IDATA(4) NLE = IDATA(5) NTE = IDATA(6) CALL FREAD (LOG1,RDATA,2,1) XKSHPE = RDATA(1) SPEED = RDATA(2) CALL FREAD (LOG1,IDATA,3,1) NOUT1(NLE) = IDATA(1) NOUT2(NLE) = IDATA(2) NOUT3(NLE) = IDATA(3) IF (IPRTC .EQ. 1) WRITE (LOG2,20) NRAD,NDPTS,NDATR,NSWITC,NLE,NTE, 1 XKSHPE,SPEED,NLE,NOUT1(NLE),NOUT2(NLE),NOUT3(NLE) 20 FORMAT (1H1,9X,'DATA INTERFACING ROUTINE - DEVIATION CALCULATIONS' 1, ' AND DATA FORMATTING', /10X,69(1H*), /10X,5HINPUT, /10X, 2 5(1H*), //10X,6HNRAD =,I3,9H NDPTS =,I3,9H NDATR =,I3, 3 11H NSWITCH =,I2,7H NLE =,I2,7H NTE =,I3, //10X, 4 8HXKSHPE =,F7.4,9H SPEED =,F9.1, //10X,'AT LEADING EDGE ', 5 '(STATION,I3,9H) NOUT1 =',I2,9H NOUT2 =,I2,9H NOUT3 =,I2) LNCT = 10 K = NLE + 1 DO 80 I = K,NTE CALL FREAD (LOG1,IDATA,14,1) NR(I) = IDATA(1) NTERP(I) = IDATA(2) NMACH(I) = IDATA(3) NLOSS(I) = IDATA(4) NL1(I) = IDATA(5) NL2(I) = IDATA(6) NEVAL(I) = IDATA(7) NCURVE(I) = IDATA(8) NLITER(I) = IDATA(9) NDEL(I) = IDATA(10) NOUT1(I) = IDATA(11) NOUT2(I) = IDATA(12) NOUT3(I) = IDATA(13) NBLAD(I) = IDATA(14) IF (LNCT+6+NR(I) .LE. LMAX) GO TO 50 IF (IPRTC .NE. 0) WRITE (LOG2,40) 40 FORMAT (1H1) LNCT = 1 50 LNCT = LNCT + 6 + NR(I) IF (IPRTC .EQ. 1) WRITE (LOG2,60) I,NR(I),NTERP(I),NMACH(I), 1 NLOSS(I),NL1(I),NL2(I),NEVAL(I),NCURVE(I),NLITER(I), 2 NDEL(I),NOUT1(I),NOUT2(I),NOUT3(I),NBLAD(I) 60 FORMAT (/10X,7HSTATION,I3,7H NR =,I3,9H NTERP =,I2,9H NMACH =, 1 I2,9H NLOSS =,I2,7H NL1 =,I3,7H NL2 =,I3,9H NEVAL =,I2, 2 8HNCURVE =,I2,10H NLITER =,I3,8H NDEL =,I2, /22X, 3 7HNOUT1 =,I2,9H NOUT2 =,I2,9H NOUT3 =,I2,9H NBLAD =,I3) L1 = NR(I) DO 70 J = 1,L1 CALL FREAD (LOG1,RDATA,2,1) RR(J,I) = RDATA(1) 70 XLOSS(J,I) = RDATA(2) 80 IF (IPRTC .EQ. 1) WRITE (LOG2,90) (RR(J,I),XLOSS(J,I),J=1,L1) 90 FORMAT (/14X,6HRADIUS,6X,15HLOSS DESCRIPTOR,//,(F20.4,F17.6)) IF (LNCT+7+NDPTS .LE. LMAX) GO TO 100 IF (IPRTC .NE. 0) WRITE (LOG2,40) LNCT = 1 100 LNCT = LNCT + 2 IF (IPRTC .EQ. 1) WRITE (LOG2,110) NRAD 110 FORMAT (/10X,28HDEVIATION FRACTION CURVES AT,I2,6H RADII) DO 140 K = 1,NRAD IF (LNCT+5+NDPTS .LE. LMAX) GO TO 120 IF (IPRTC .NE. 0) WRITE (LOG2,40) LNCT = 1 120 LNCT = LNCT + 5 + NDPTS CALL FREAD (LOG1,RTE(K),1,1) DO 130 J = 1,NDPTS CALL FREAD (LOG1,RDATA,2,1) DM(J,K) = RDATA(1) 130 DVFRAC(J,K) = RDATA(2) 140 IF (IPRTC .EQ. 1) WRITE (LOG2,150) RTE(K),(DM(J,K),DVFRAC(J,K), 1 J=1,NDPTS) 150 FORMAT (/10X,5HRTE =,F8.4, //15X,2HDM,10X,6HDVFRAC, //, 1 (F20.5,F13.5)) DO 160 J = 1,NDATR CALL FREAD (LOG1,RDATA,3,1) RDTE(J) = RDATA(1) DELTAD(J) = RDATA(2) 160 AC(J) = RDATA(3) IF (LNCT+3+NDATR .LE. LMAX) GO TO 170 IF (IPRTC .NE. 0) WRITE (LOG2,40) LNCT = 1 170 LNCT = LNCT + 3 + NDATR IF (IPRTC .EQ. 1) WRITE (LOG2,180) (RDTE(J),DELTAD(J),AC(J), 1 J=1,NDATR) 180 FORMAT (/15X,4HRDTE,6X,6HDELTAD,9X,2HAC,//,(F20.4,F11.3,F13.4)) IF (LNCT+6+NLINES .LE. LMAX) GO TO 190 IF (IPRTC .NE. 0) WRITE (LOG2,40) LNCT = 1 190 LNCT = LNCT + 6 + NLINES IF (IPRTC .EQ. 1) WRITE (LOG2,200) 200 FORMAT (/10X,7HRESULTS, /,10X,7(1H*)) IF (IPRTC .EQ. 1) WRITE (LOG2,210) 210 FORMAT (/5X,10HSTREAMLINE,5X,5HBETA1,6X,5HBETA2,5X,6HCAMBER,7X, 1 3HT/C,8X,3HA/C,6X,8HSOLIDITY,4X,11HADDIT. DEVN,4X, 2 15HTOTAL DEVIATION,/) DO 290 J = 1,NLINES XJ = J CALL ALG15 (ZR,B1,NSPEC,XJ,BETA1,1,0) CALL ALG15 (ZR,B2,NSPEC,XJ,BETA2,1,0) CALL ALG15 (ZR,TC,NSPEC,XJ,THICK,1,0) Q = 1.0 IF (SPEED .GT. 0.0) Q = -1.0 CAMBER = (BETA1-BETA2)*Q SOLID = CCORD(J)*FLOAT(NBLADE)/(PI*(R(NLE,J)+R(NTE,J))) BETA1 = BETA1*Q CALL ALG15 (F137B,F195M(1,NSWITC),8,BETA1,XMS,1,0) CALL ALG15 (F137B,F164XB,8,BETA1,XB,1,0) CALL ALG15 (F142TC,F172K,7,THICK,XKDT,1,0) DO 220 K = 1,5 220 CALL ALG15 (F137B,F161D(1,K),8,BETA1,DOO(K),1,0) CALL ALG15 (F137S,DOO,5,SOLID,DO,1,1) CALL ALG15 (RDTE,DELTAD,NDATR,R(NTE,J),DADD,1,0) CALL ALG15 (RDTE,AC,NDATR,R(NTE,J),AONC,1,0) SOL(J) = SOLID DEV(NTE,J) = (DADD+DO*XKSHPE*XKDT+CAMBER*SOLID**(-XB)* 1 (XMS+0.5*(AONC-0.5)))*Q BETA2 = BETA2*Q DO 230 I = NLE,NTE 230 CALL ALG15 (RSTA(1,I),XSTA(1,I),KPTS(I),R(I,J),X(I),1,0) DX(NLE) = 0.0 K = NLE + 1 DO 240 I = K,NTE 240 DX(I) = DX(I-1) + SQRT((X(I)-X(I-1))**2+(R(I,J)-R(I-1,J))**2) X1 = DX(NTE) DO 250 I = K,NTE 250 DX(I) = DX(I)/X1 L2 = NTE - NLE - 1 K = NLE + 1 DO 260 L1 = 1,NRAD 260 CALL ALG15 (DM(1,L1),DVFRAC(1,L1),NDPTS,DX(K),DEVV(K,L1),L2,0) KK = NTE - 1 DO 280 I = K,KK DO 270 L1 = 1,NRAD 270 DOO(L1) = DEVV(I,L1) CALL ALG15 (RTE,DOO,NRAD,R(NTE,J),DEVFR,1,0) 280 DEV(I,J) = DEV(NTE,J)*DEVFR 290 IF (IPRTC .EQ. 1) WRITE (LOG2,300) J,BETA1,BETA2,CAMBER,THICK, 1 AONC,SOLID,DADD,DEV(NTE,J) 300 FORMAT (I11,F14.3,2F11.3,2F11.4,F12.5,F14.4,F17.4) IF (IFANGS(NLE) .EQ. 0) GO TO 340 IF (NAERO .EQ. 0) GO TO 330 IDATA(1) = NLINES IDATA(2) = 0 IDATA(3) = 0 IDATA(4) = 0 IDATA(5) = 0 IDATA(6) = 0 IDATA(7) = 0 IDATA(8) = 0 IDATA(9) = 0 IDATA(10) = 0 IDATA(11) = 0 IDATA(12) = 0 IDATA(13) = NOUT1(NLE) IDATA(14) = NOUT2(NLE) IDATA(15) = NOUT3(NLE) IDATA(16) = 0 CALL WRITE (LOG5,IDATA,16,1) CALL WRITE (LOG5,0.0,1,1) 310 FORMAT (I3,11(2X,1H0),3I3,3H 0, /,4H 0.0) DO 315 J = 1,NLINES RDATA(1) = R(NLE,J) RDATA(2) = ALPB(NLE,J) RDATA(3) = 0.0 RDATA(4) = EPSLON(NLE,J) RDATA(5) = 0.0 RDATA(6) = 0.0 CALL WRITE (LOG5,RDATA,6,1) RDATA(1) = 0.0 RDATA(2) = 0.0 RDATA(3) = 0.0 RDATA(4) = 0.0 315 CALL WRITE (LOG5,RDATA,4,1) 320 FORMAT (2F12.7,12X,F12.7,24X,/,4H 0.0,44X) IF (IPUNCH .EQ. 0) GO TO 340 330 WRITE (LOG3,310) NLINES,NOUT1(NLE),NOUT2(NLE),NOUT3(NLE) WRITE (LOG3,320) (R(NLE,J),ALPB(NLE,J),EPSLON(NLE,J),J=1,NLINES) 340 DO 370 I = K,NTE DO 350 J = 1,NLINES 350 RDTE(J) = R(I,J) CALL ALG15 (RR(1,I),XLOSS(1,I),NR(I),RDTE,DELTAD,NLINES,0) NX = LOG5 IF (NAERO .EQ. 0) NX = LOG3 IF (NX .EQ. LOG3) GO TO 360 IDATA(1) = NLINES IDATA(2) = NTERP(I) IDATA(3) = 0 IDATA(4) = NMACH(I) IDATA(5) = 6 IDATA(6) = NLOSS(I) IDATA(7) = NL1(I) IDATA(8) = NL2(I) IDATA(9) = NEVAL(I) IDATA(10) = NCURVE(I) IDATA(11) = NLITER(I) IDATA(12) = NDEL(I) IDATA(13) = NOUT1(I) IDATA(14) = NOUT2(I) IDATA(15) = NOUT3(I) IDATA(16) = NBLAD(I) CALL WRITE (LOG5,IDATA,16,1) CALL WRITE (LOG5,SPEED,1,1) DO 355 J = 1,NLINES RDATA(1) = R(I,J) RDATA(2) = ALPB(I,J) RDATA(3) = DELTAD(J) RDATA(4) = EPSLON(I,J) RDATA(5) = BLOCK(I,J) RDATA(6) = SOL(J) CALL WRITE (LOG5,RDATA,6,1) RDATA(1) = DEV(I,J) RDATA(2) = 0.0 RDATA(3) = 0.0 RDATA(4) = 0.0 355 CALL WRITE (LOG5,RDATA,4,1) GO TO 365 360 WRITE (NX,380) NLINES,NTERP(I),NMACH(I),NLOSS(I),NL1(I),NL2(I), 1 NEVAL(I),NCURVE(I),NLITER(I),NDEL(I),NOUT1(I),NOUT2(I), 2 NOUT3(I),NBLAD(I),SPEED,(R(I,J),ALPB(I,J),DELTAD(J), 3 EPSLON(I,J),BLOCK(I,J),SOL(J),DEV(I,J),J=1,NLINES) 365 IF (NX .EQ. LOG3) GO TO 370 NX = LOG3 IF (NAERO.NE.0 .AND. IPUNCH.NE.0) GO TO 360 370 CONTINUE 380 FORMAT (2I3,3H 0,I3,3H 6,11I3, /,F12.3,/,(6F12.7, /,F12.7,36X)) RETURN END ================================================ FILE: mis/alg2.f ================================================ FUNCTION ALG2 (S,P) C COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP C ALG2=CP*EXP(S/CP+ROJCP*ALOG(P)) RETURN END ================================================ FILE: mis/alg25.f ================================================ SUBROUTINE ALG25 (IX,LX,LOG1,X,Y1) C REAL LINE DIMENSION X(1),Y1(1),SYMBOL(1),LINE(121),XNUM(13) DATA SYMBOL/1H*/, DASH/1H-/, CROSS/1H+/, BLANK/1H /, XI/1HI/ C YMIN = Y1(1) YMAX = YMIN DO 200 I = 1,IX IF (Y1(I) .LT. YMIN) YMIN = Y1(I) IF (Y1(I) .GT. YMAX) YMAX = Y1(I) 200 CONTINUE IF (YMIN .EQ. YMAX) GO TO 900 YH = YMAX + (YMAX-YMIN)/18.0 YL = YMIN - (YMAX-YMIN)/18.0 XH = 60.0 IF (LX .GT. 59) XH = FLOAT(LX) + 1.0 XL = XH - 60.0 XMAX = ABS(XH) XMIN = ABS(XL) YMIN = ABS(YL) YMAX = ABS(YH) IF (XMIN .GT. XMAX) XMAX = XMIN IF (YMIN .GT. YMAX) YMAX = YMIN XMAX = ALOG10(XMAX) YMAX = ALOG10(YMAX) IF (XMAX .LT. 0.0) XMAX = XMAX - 1.0 IF (YMAX .LT. 0.0) YMAX = YMAX - 1.0 MX = -XMAX MY = -YMAX WRITE (LOG1,250) MX,MY 250 FORMAT (20X,46HSCALES - 'X' IS SHOWN TIMES 10 TO THE POWER OF,I3, 1 40H 'Y' IS SHOWN TIMES 10 TO THE POWER OF,I3,/) YINC = (YH-YL)/54.0 YINC2 = YINC/2.0 XRANGE= XH - XL DO 750 KLINE = 1,55 IF (KLINE.EQ.1 .OR. KLINE.EQ.55) GO TO 350 DO 265 L = 2,120 265 LINE(L) = BLANK IF (KLINE.EQ. 7 .OR. KLINE.EQ.13 .OR. KLINE.EQ.19 .OR. 1 KLINE.EQ.25 .OR. KLINE.EQ.31 .OR. KLINE.EQ.37 .OR. 2 KLINE.EQ.43 .OR. KLINE.EQ.49) GO TO 300 LINE( 1) = XI LINE(121) = XI GO TO 400 300 LINE( 1) = DASH LINE(121) = DASH GO TO 400 350 DO 360 L = 2,120 360 LINE(L) = DASH LINE(1) = CROSS LINE(121) = CROSS DO 365 L = 11,111,10 365 LINE(L) = XI GO TO 650 400 DO 600 I = 1,IX IF (Y1(I).GT.YH+YINC2 .OR. Y1(I).LE.YH-YINC2) GO TO 600 L = (X(I)-XL)/XRANGE*120.0 + 1.5 LINE(L) = SYMBOL( 1) 600 CONTINUE IF (KLINE.EQ. 1 .OR. KLINE.EQ. 7 .OR. KLINE.EQ.13 .OR. 1 KLINE.EQ.19 .OR. KLINE.EQ.25 .OR. KLINE.EQ.31 .OR. 2 KLINE.EQ.37 .OR. KLINE.EQ.43 .OR. KLINE.EQ.49 .OR. 3 KLINE.EQ.55) GO TO 650 WRITE (LOG1,610) LINE 610 FORMAT (8X,121A1) GO TO 750 650 YNUM = YH*10.0**MY WRITE (LOG1,655) YNUM,LINE 655 FORMAT (1X,F6.3,1X,121A1) 750 YH = YH - YINC XNUM(1) = XL*10.0**MX XINC = ((XH-XL)/12.0)*10.0**MX DO 800 I = 2,13 800 XNUM(I) = XNUM(I-1) + XINC WRITE (LOG1,820) XNUM 820 FORMAT (6X,12(F6.3,4X),F6.3) RETURN C 900 WRITE (LOG1,910) 910 FORMAT (//35X,54HNO PLOT HAS BEEN MADE BECAUSE 'X' OR 'Y' RANGE IS 1 ZERO) RETURN END ================================================ FILE: mis/alg26.f ================================================ SUBROUTINE ALG26 C REAL LOSS,LAMI,LAMIP1,LAMIM1 C DIMENSION XX1(21),DSDM(21),DRVWDM(21),DL(21),DSDL(21),FX1(21),FX2( 121),VVOLD(21),AFUN(20),BFUN(20),HS(20),XM2(20),DVMDVM(20),DVMDM(21 2),TBIP1(21),TEIP1(21) C COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD, 1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL, 2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3, 3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30), 4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30) 5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30), 6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30), 7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30), 8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4), 9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100), 1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100), 2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10), 3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150), 4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30), 5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21), 6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21), 7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK, 8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST, 9FM2,HMIN,C1,PI,CONTR,CONMX C ITMAX=20 LPMAX=10 K=1 IF(I.EQ.ISTAG)K=2 XN=SPEED(I)*SPDFAC(ICASE)*PI/(30.0*SCLFAC) IF(I.EQ.1)GO TO 234 DO 100 J=1,NSTRMS LAMI(J)=LAMIP1(J) 100 LAMIP1(J)=1.0 IF(I.EQ.NSTNS)GO TO 234 IF(NDATA(I+1).EQ.0)GO TO 210 L1=NDIMEN(I+1)+1 GO TO(110,130,150,170),L1 110 DO 120 J=1,NSTRMS 120 XX1(J)=R(J,I+1) GO TO 190 130 DO 140 J=1,NSTRMS 140 XX1(J)=R(J,I+1)/R(NSTRMS,I+1) GO TO 190 150 DO 160 J=1,NSTRMS 160 XX1(J)=XL(J,I+1) GO TO 190 170 DO 180 J=1,NSTRMS 180 XX1(J)=XL(J,I+1)/XL(NSTRMS,I+1) 190 L1=IS2(I+1) CALL ALG01(DATAC(L1),DATA4(L1),NDATA(I+1),XX1,XX1,X1,NSTRMS,NTERP 1(I+1),0) DO 200 J=1,NSTRMS 200 LAMIP1(J)=1.0-XX1(J) 210 DO 220 J=1,NSTRMS X1=SQRT((R(J,I+1)-R(J,I))**2+(X(J,I+1)-X(J,I))**2) X2=SQRT((R(J,I)-RIM1(J))**2+(X(J,I)-XIM1(J))**2) X3=ATAN2(R(J,I+1)-R(J,I),X(J,I+1)-X(J,I)) X4=ATAN2(R(J,I)-RIM1(J),X(J,I)-XIM1(J)) PHI(J)=(X3+X4)/2.0 CR(J)=(X3-X4)/(X1+X2)*2.0 DSDM(J)=0.0 DRVWDM(J)=0.0 DVMDM(J)=0.0 IF(IPASS.EQ.1)GO TO 220 DSDM(J)=((S(J,I+1)-S(J,I))/X1+(S(J,I)-S(J,I-1))/X2)/2.0*G*EJ DRVWDM(J)=((R(J,I+1)*VW(J,I+1)-R(J,I)*VW(J,I))/X1+(R(J,I)*VW(J,I)- 1RIM1(J)*VW(J,I-1))/X2)/(2.0*R(J,I)) DVMDM(J)=((VM(J,I+1)-VM(J,I))/X1+(VM(J,I)-VM(J,I-1))/X2)*0.5 220 CONTINUE IF(IPASS.EQ.1.OR.NDATA(I).EQ.0.OR.NEQN.EQ.3.OR.NWORK(I).NE.0.OR.NW 1ORK(I+1).EQ.0)GO TO 390 L1=NDIMEN(I)+1 GO TO(221,223,225,227),L1 221 DO 222 J=1,NSTRMS 222 TEIP1(J)=R(J,I) GO TO 229 223 DO 224 J=1,NSTRMS 224 TEIP1(J)=R(J,I)/R(NSTRMS,I) GO TO 229 225 DO 226 J=1,NSTRMS 226 TEIP1(J)=XL(J,I) GO TO 229 227 DO 228 J=1,NSTRMS 228 TEIP1(J)=XL(J,I)/XL(NSTRMS,I) 229 L1=IS2(I) CALL ALG01(DATAC(L1),DATA3(L1),NDATA(I),TEIP1,TEIP1,X1,NSTRMS,NTE 1RP(I),0) X1=SPEED(I+1)*SPDFAC(ICASE)*PI/(30.0*SCLFAC) DO 230 J=1,NSTRMS TEIP1(J)=TAN(TEIP1(J)/C1) 230 TBIP1(J)=(VW(J,I)-X1*R(J,I))/VM(J,I) GO TO 390 234 DO 240 J=1,NSTRMS DVMDM(J)=0.0 DSDM(J)=0.0 DRVWDM(J)=0.0 240 CR(J)=0.0 IF(I.EQ.1)GO TO 244 DO 246 J=1,NSTRMS 246 PHI(J)=ATAN2(R(J,I)-RIM1(J),X(J,I)-XIM1(J)) GO TO 390 244 DO 260 J=1,NSTRMS 260 PHI(J)=ATAN2(R(J,2)-R(J,1),X(J,2)-X(J,1)) DO 270 J=1,NSTRMS XI(J)=H(J,1) LAMI(J)=1.0 270 LAMIP1(J)=1.0 IF(NDATA(2).EQ.0)GO TO 390 L2=NDIMEN(2)+1 GO TO(290,310,330,350),L2 290 DO 300 J=1,NSTRMS 300 XX1(J)=R(J,2) GO TO 370 310 DO 320 J=1,NSTRMS 320 XX1(J)=R(J,2)/R(NSTRMS,2) GO TO 370 330 DO 340 J=1,NSTRMS 340 XX1(J)=XL(J,2) GO TO 370 350 DO 360 J=1,NSTRMS 360 XX1(J)=XL(J,2)/XL(NSTRMS,2) 370 L1=IS2(2) CALL ALG01(DATAC(L1),DATA4(L1),NDATA(2),XX1,XX1,X1,NSTRMS,NTERP(2 1),0) DO 380 J=1,NSTRMS 380 LAMIP1(J)=1.0-XX1(J) 390 CALL ALG01(R(1,I),X(1,I),NSTRMS,R(1,I),X1,GAMA,NSTRMS,0,1) DO 400 J=1,NSTRMS GAMA(J)=ATAN(GAMA(J)) SPPG(J)=GAMA(J)+PHI(J) CPPG(J)=COS(SPPG(J)) SPPG(J)=SIN(SPPG(J)) 400 VV(J)=VM(J,I) DO 410 J=1,ITUB DL(J)=XL(J+1,I)-XL(J,I) 410 DSDL(J)=(S(J+1,I)-S(J,I))*G*EJ/DL(J) IF(I.EQ.1.OR.NWORK(I).GE.5)GO TO 430 DO 420 J=1,ITUB DVMDVM(J)=0.0 FX1(J)=(VW(J+1,I)+VW(J,I))/(R(J+1,I)+R(J,I))*(R(J+1,I)*VW(J+1,I)-R 1(J,I)*VW(J,I))/DL(J) 420 FX2(J)=(H(J+1,I)-H(J,I))/DL(J)*G*EJ GO TO 450 430 DO 440 J=1,ITUB FX1(J)=(TBETA(J+1,I)+TBETA(J,I))/(R(J+1,I)+R(J,I))*(R(J+1,I)*TBETA 1(J+1,I)-R(J,I)*TBETA(J,I))/DL(J) 440 FX2(J)=(XI(J+1)-XI(J))/DL(J)*G*EJ 450 VMAX=0.0 VMIN=2500.0 ITER=0 460 ITER=ITER+1 IFAIL=0 ICONF1=0 DO 470 J=1,NSTRMS 470 VVOLD(J)=VV(J) IF(I.EQ.1.OR.NWORK(I).GE.5)GO TO 810 DO 580 J=1,ITUB X1=(H(J,I)+H(J+1,I))/2.0-(((VVOLD(J)+VVOLD(J+1))/2.0)**2+((VW(J,I) 1+VW(J+1,I))/2.0)**2)/(2.0*G*EJ) IF(X1.GE.HMIN)GO TO 520 IF(IPASS.LE.NFORCE)GO TO 510 IF(LNCT.LT.NPAGE)GO TO 480 WRITE(LOG2,500) LNCT=1 480 LNCT=LNCT+1 WRITE(LOG2,490)IPASS,I,ITER,J,X1 490 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMTU 1BE,I3,53H STATIC ENTHALPY BELOW LIMIT IN MOMENTUM EQUATION AT,E13 2.5) 500 FORMAT(1H1) 510 IFAIL=1 X1=HMIN 520 X2=(S(J,I)+S(J+1,I))/2.0 X7=ALG7(X1,X2) X2=(CPPG(J)+CPPG(J+1))*0.5 X3=(SPPG(J)+SPPG(J+1))*0.5 AFUN(J)=-2.0*X3*(DVMDM(J)+DVMDM(J+1))/(VVOLD(J)+VVOLD(J+1))-X2*(CR 1(J)+CR(J+1)) BFUN(J)=2.0*(FX2(J)-X7*DSDL(J)-FX1(J)) IF(IPASS.EQ.1.OR.I.EQ.NSTNS)GO TO 580 IF(NDATA(I).EQ.0.OR.NEQN.EQ.3.OR.(NWORK(I).EQ.0.AND.NWORK(I+1).EQ. 10))GO TO 560 IF(NWORK(I).EQ.0)GO TO 540 X4=(TBETA(J,I)+TBETA(J+1,I))*0.5 X5=(TANEPS(J)+TANEPS(J+1))*0.5 530 BFUN(J)=BFUN(J)+X7*(DSDM(J)+DSDM(J+1))*(X3/(1.0+X4*X4)-X5*X4/(1.0+ 1X4*X4)*0.5)-X5*(DRVWDM(J)+DRVWDM(J+1))*(VVOLD(J)+VVOLD(J+1))*0.5 GO TO 580 540 X4=(TBIP1(J)+TBIP1(J+1))*0.5 X5 = (TEIP1(J)+TEIP1(J+1))*0.5 GO TO 530 560 BFUN(J)=BFUN(J)+X7*(DSDM(J)+DSDM(J+1))*X3 580 VV(IMID)=VVOLD(IMID)**2 J=IMID JINC=1 590 JOLD=J J=J+JINC JJ=JOLD IF(JINC.EQ.-1)JJ=J IF(ABS(AFUN(J)).LE.1.0E-5) GO TO 660 X1=-AFUN(JJ)*(XL(J,I)-XL(JOLD,I)) IF(ABS(X1).LE.1.0E-10)GO TO 660 IF(X1.LE.88.0)GO TO 630 IF(IPASS.LE.NFORCE)GO TO 620 IF(LNCT.LT.NPAGE)GO TO 600 WRITE(LOG2,500) LNCT=1 600 LNCT=LNCT+1 WRITE(LOG2,610)IPASS,I,ITER,JJ,X1 610 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMTU 1BE,I3,43H MOMENTUM EQUATION EXPONENT ABOVE LIMIT AT,E13.5) 620 IFAIL=1 X1=88.0 630 X1=EXP(X1) VV(J)=VV(JOLD)*X1+(1.0-X1)*BFUN(JJ)/AFUN(JJ) 640 IF(J.EQ.K)GO TO 670 IF(J.EQ.NSTRMS)GO TO 650 GO TO 590 650 J=IMID JINC=-1 GO TO 590 660 VV(J)=VV(JOLD)+BFUN(JJ)*(XL(J,I)-XL(JOLD,I)) GO TO 640 670 DO 710 J=K,NSTRMS IF(VV(J).LE.4.0*VVOLD(IMID)**2)GO TO 676 IFAIL=1 IF(IPASS.LE.NFORCE)GO TO 674 CALL ALG03(LNCT,1) WRITE(LOG2,672)IPASS,I,ITER,J 672 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,50H MERIDIONAL VELOCITY GREATER THAN TWICE MID VALUE) 674 VV(J)=4.0*VVOLD(IMID)**2 676 IF(VV(J).GE.1.0)GO TO 702 IF(IPASS.LE.NFORCE)GO TO 700 IF(LNCT.LT.NPAGE)GO TO 680 WRITE(LOG2,500) LNCT=1 680 LNCT=LNCT+1 WRITE(LOG2,690)IPASS,I,ITER,J,VV(J) 690 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,46H (MERIDIONAL VELOCITY) SQUARED BELOW LIMIT AT,E13.5) 700 VV(J)=1.0 IFAIL=1 GO TO 710 702 VV(J)=SQRT(VV(J)) 710 CONTINUE X1=0.0 DO 712 J=K,ITUB 712 X1=X1+(XL(J+1,I)-XL(J,I))*ABS((VV(J+1)+VV(J))/(VVOLD(J+1)+VVOLD(J) 1)-1.0) X1=X1/(XL(NSTRMS,I)-XL(K,I)) X2=0.1 IF(X1.LT.0.2)X2=EXP(-11.52*X1) DO 715 J=K,NSTRMS 715 VV(J)=VVOLD(J)+X2*(VV(J)-VVOLD(J)) IF(NLOSS(I).EQ.1.AND.NL2(I).EQ.0)CALL ALG07 DO 800 J=1,ITUB HS(J)=(H(J,I)+H(J+1,I))/2.0-(((VV(J)+VV(J+1))/2.0)**2+((VW(J,I)+VW 1(J+1,I))/2.0)**2)/(2.0*G*EJ) IF(HS(J).GE.HMIN)GO TO 800 IF(IPASS.LE.NFORCE)GO TO 790 IF(LNCT.LT.NPAGE)GO TO 770 WRITE(LOG2,500) LNCT=1 770 LNCT=LNCT+1 WRITE(LOG2,780)IPASS,I,ITER,J,HS(J) 780 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMTU 1BE,I3,55H STATIC ENTHALPY BELOW LIMIT IN CONTINUITY EQUATION AT,E 213.5) 790 IFAIL=1 HS(J)=HMIN 800 XM2(J)=ALG9(HS(J),(S(J,I)+S(J+1,I))/2.0,((VV(J)+VV(J+1))/2.0)**2) GO TO 1100 810 J=IMID JINC=1 820 LOOP=1 JOLD=J J=J+JINC JJ=JOLD IF(JINC.EQ.-1)JJ=J 830 VOLD=VV(J) VAV=(VOLD+VV(JOLD))/2.0 IFAIE=0 ICONF2=0 X2=(TBETA(J,I)+TBETA(JOLD,I))/2.0 X1=(XI(J)+XI(JOLD))/2.0+((XN*(R(J,I)+R(JOLD,I))/2.0)**2-VAV**2*(1. 10+X2*X2))/(2.0*G*EJ) IF(X1.GE.HMIN)GO TO 870 IF(IPASS.LE.NFORCE)GO TO 860 IF(LNCT.LT.NPAGE)GO TO 840 WRITE(LOG2,500) LNCT=1 840 LNCT=LNCT+1 WRITE(LOG2,850)IPASS,I,ITER,JJ,LOOP,X1 850 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMTU 1BE,I3,6H LOOP,I3,43H STATIC H IN MOMENTUM EQUN. BELOW LIMIT AT,E 213.5) 860 IFAIE=1 ICONF2 = 1 X1=HMIN 870 X3=(S(J,I)+S(JOLD,I))/2.0 X7=ALG7(X1,X3) X4=(SPPG(J)+SPPG(JOLD))*0.5 X5=(CPPG(J)+CPPG(JOLD))*0.5 X1=X5*(CR(J)+CR(JOLD))*0.5-FX1(JJ) X12=1.0/(1.0+X2*X2) X8=(TANEPS(J)+TANEPS(JOLD))*0.5 X11=FX2(JJ)-X7*DSDL(JJ) X6=X4*(DVMDM(J)+DVMDM(JOLD))*0.5-2.0*XN*X2*COS((GAMA(J)+GAMA(JOLD) 1)*0.5) IF(IPASS.EQ.1.OR.I.EQ.1.OR.I.EQ.NSTNS)GO TO 920 IF(NEQN.EQ.3)GO TO 900 X11=X11+X7*(DSDM(J)+DSDM(JOLD))*0.5*(X4*X12-X8*X2*X12) X6=X6-X8*(DRVWDM(J)+DRVWDM(JOLD))*0.5 GO TO 920 900 X11=X11+X7*(DSDM(J)+DSDM(JOLD))*0.5*X4 920 DV2DL=2.0*X12*(VAV*(X6+VAV*X1)+X11) DVMDVM(JJ)=X12*(X1-X11/VAV**2) X1=VV(JOLD)**2+DV2DL*(XL(J,I)-XL(JOLD,I)) IF(X1.LE.9.0*VVOLD(IMID)**2)GO TO 938 ICONF2=1 IFAIE=1 IF(IPASS.LE.NFORCE)GO TO 936 CALL ALG03(LNCT,1) X1=SQRT(X1) X2=3.0*VVOLD(IMID) WRITE(LOG2,934)IPASS,I,ITER,J,LOOP,X1,X2 934 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,6H LOOP,I3,33H MERIDIONAL VELOCITY ABOVE LIMIT,E13.5,9H L 2IMIT =,E13.5) 936 X1=9.0*VVOLD(IMID)**2 938 IF(X1.GE.1.0)GO TO 950 IF(IPASS.LE.NFORCE)GO TO 944 IF(LNCT.LT.NPAGE)GO TO 930 WRITE(LOG2,500) LNCT=1 930 LNCT=LNCT+1 WRITE(LOG2,940)IPASS,I,ITER,J ,LOOP,X1 940 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,6H LOOP,I3,46H (MERIDIONAL VELOCITY) SQUARED BELOW LIMIT A 2T,E13.5) 944 X1=1.0 IFAIE=1 ICONF2=1 950 VV(J)=SQRT(X1) IF(ABS(VV(J)/VOLD-1.0).LE.TOLNCE/5.0)GO TO 990 IF(LOOP.GE.LPMAX)GO TO 960 LOOP=LOOP+1 GO TO 830 960 ICONF2=1 IF(IPASS.LE.NFORCE)GO TO 990 IF(LNCT.LT.NPAGE)GO TO 970 WRITE(LOG2,500) LNCT=1 970 LNCT=LNCT+1 WRITE(LOG2,980)IPASS,I,ITER,J,VV(J),VOLD 980 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,38H MERIDIONAL VELOCITY UNCONVERGED VM=,E13.6,9H VM(OLD)=, 2E13.6) 990 IF(IFAIE.EQ.1)IFAIL=1 IF(ICONF2.EQ.1)ICONF1=1 IF(J.EQ.NSTRMS)GO TO 1000 IF(J.EQ.1)GO TO 1010 GO TO 820 1000 J=IMID JINC=-1 GO TO 820 1010 IF(I.EQ.1)GO TO 1014 IF(NLOSS(I).EQ.2.OR.(NLOSS(I).EQ.1.AND.NL2(I).EQ.0))CALL ALG07 1014 DO 1090 J=1,ITUB X1=((VV(J)+VV(J+1))/2.0)**2*(1.0+((TBETA(J,I)+TBETA(J+1,I))/2.0)** 12) HS(J)=(XI(J)+XI(J+1))/2.0+((XN*(R(J,I)+R(J+1,I))/2.0)**2-X1)/(2.0* 1G*EJ) IF(HS(J).GE.HMIN)GO TO 1080 IF(IPASS.LE.NFORCE)GO TO 1070 IF(LNCT.LT.NPAGE)GO TO 1060 WRITE(LOG2,500) LNCT=1 1060 LNCT=LNCT+1 WRITE(LOG2,780)IPASS,I,ITER,J,HS(J) 1070 IFAIL=1 HS(J)=HMIN 1080 XM2(J)=ALG9(HS(J),(S(J,I)+S(J+1,I))/2.0,X1) IF(I.EQ.1.OR.NLOSS(I).NE.1.OR.NL2(I).NE.0)GO TO 1090 X1=(S(J,I)+S(J+1,I))/2.0 X2=ALG4(HS(J),X1) X4=ALG8(HS(J),X1) X3=(XI(J)+XI(J))/2.0+(XN*((R(J,I)+R(J+1,I))/2.0))**2/(2.0*G*EJ) X3=ALG4(X3,X1) XM2(J)=XM2(J)*(1.0+X4*(LOSS(J)+LOSS(J+1))/2.0*X2/(X3*(1.0+(LOSS(J) 1+LOSS(J+1))/2.0*(1.0-X2/X3)))) 1090 CONTINUE 1100 DELW(1)=0.0 DWDV=0.0 X2=BBLOCK(I)*BDIST(I) X3=BBLOCK(I)*(1.0-BDIST(I))/XL(NSTRMS,I) DO 1200 J=1,ITUB X1=DL(J)*(R(J+1,I)+R(J,I))*ALG5(HS(J),(S(J,I)+S(J+1,I))/2.0)*(VV(J 1)+VV(J+1))*(CPPG(J)+CPPG(J+1))*PI/(4.0*SCLFAC**2) X1=X1*((LAMI(J)+LAMI(J+1))/2.0-WWBL(I)-X2-X3*(XL(J,I)+XL(J+1,I))) DELW(J+1)=DELW(J)+X1 X4=0.0 IF(J.GE.IMID)GO TO 1130 L1=J 1110 X4=X4+DVMDVM(L1) IF(L1.GE.IMID-1)GO TO 1120 L1=L1+1 GO TO 1110 1120 X4=X4/FLOAT(IMID-J) GO TO 1200 1130 L1=IMID+1 1140 X4=X4+DVMDVM(L1) IF(L1.GE.J)GO TO 1150 L1=L1+1 GO TO 1140 1150 X4=X4/FLOAT(J-IMID+1) 1200 DWDV=DWDV+X1*(1.0-XM2(J))*2.0/((VV(J)+VV(J+1))*(1.0-((XL(J,I)+XL(J 1+1,I))*0.5-XL(IMID,I))*X4)) W=DELW(NSTRMS) FM2=DWDV/W*VV(IMID) DO 1210 J=2,NSTRMS 1210 DELW(J)=DELW(J)/W IF(DWDV.LE.0.0)GO TO 1280 IF(NMACH(I).EQ.1)GO TO 1330 IF(W.LT.FLOW(ICASE).AND.ICONF1.EQ.0)VMAX=VV(IMID) 1220 DV=(FLOW(ICASE)-W)/DWDV IF(DV.LT.-0.1*VV(IMID))DV=-0.1*VV(IMID) IF(DV.GT. 0.1*VV(IMID))DV= 0.1*VV(IMID) 1230 IF(IPASS.EQ.1.OR.(I.NE.1.AND.NWORK(I).LE.4))GO TO 1234 IF(VV(IMID)+DV.LT.VMIN)GO TO 1232 DV=(VMIN-VV(IMID))*0.5 1232 IF(VV(IMID)+DV.GT.VMAX)GO TO 1234 DV=(VMAX-VV(IMID))*0.5 1234 DO 1270 J=K,NSTRMS VV(J)=VV(J)+DV IF(VV(J).GE.1.0)GO TO 1270 IF(IPASS.LE.NFORCE)GO TO 1260 IF(LNCT.LT.NPAGE)GO TO 1240 WRITE(LOG2,500) LNCT=1 1240 LNCT=LNCT+1 WRITE(LOG2,1250)IPASS,I,ITER,J,VV(J) 1250 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,12H STREAMLI 1NE,I3,50H MERIDIONAL VELOCITY BELOW LIMIT IN CONTINUITY AT,E13.5) 1260 VV(J)=1.0 IFAIL=1 1270 CONTINUE GO TO 1340 1280 IF(NMACH(I).EQ.0)GO TO 1290 IF(W.LT.FLOW(ICASE).AND.ICONF1.EQ.0)VMIN=VV(IMID) GO TO 1220 1290 IF(VV(IMID).LT.VMIN.AND.ICONF1.EQ.0)VMIN=VV(IMID) DV=-.1*VV(IMID) 1300 IFAIL=1 IF(IPASS.LE.NFORCE)GO TO 1230 IF(LNCT.LT.NPAGE)GO TO 1310 WRITE(LOG2,500) LNCT=1 1310 LNCT=LNCT+1 WRITE(LOG2,1320)IPASS,I,ITER 1320 FORMAT(5X,4HPASS,I3,9H STATION,I3,11H ITERATION,I3,43H OTHER CO 1NTINUITY EQUATION BRANCH REQUIRED) GO TO 1230 1330 IF(VV(IMID).GT.VMAX.AND.ICONF1.EQ.0)VMAX=VV(IMID) DV=0.1*VV(IMID) GO TO 1300 1340 X1=TOLNCE/5.0 IF(NEVAL(I).GT.0)X1=X1/2.0 IF(ABS(W/FLOW(ICASE)-1.0).GT.X1)GO TO 1354 DO 1350 J=K,NSTRMS IF(ABS(VV(J)/VVOLD(J)-1.0).GT.X1)GO TO 1354 1350 CONTINUE GO TO 1390 1354 IF(ITER.GE.ITMAX)GO TO 1360 IF(I.EQ.1)GO TO 460 IF((NLOSS(I).EQ.1.AND.NL2(I).EQ.0).OR.(NWORK(I).GE.5.AND.NLOSS(I). 1EQ.2))CALL ALG07 GO TO 460 1360 IF(IPASS.LE.NFORCE)GO TO 1390 IF(LNCT.LT.NPAGE)GO TO 1370 WRITE(LOG2,500) LNCT=1 1370 LNCT=LNCT+1 X1=W/FLOW(ICASE) X2=VV(K)/VVOLD(K) X3=VV(IMID)/VVOLD(IMID) X4=VV(NSTRMS)/VVOLD(NSTRMS) WRITE(LOG2,1380)IPASS,I,X1,X2,X3,X4 1380 FORMAT(5X,4HPASS,I3,9H STATION,I3,49H MOMENTUM AND/OR CONTINUITY 1 UNCONVERGED W/WSPEC=,F8.5,16H VM/VM(OLD) HUB=,F8.5,5H MID=,F8.5,5 2H TIP=,F8.5) 1390 IF(IFAIL.NE.0.AND.IFAILO.EQ.0)IFAILO=I DO 1400 J=1,NSTRMS 1400 VM(J,I)=VV(J) IF(I.NE.1)GO TO 1420 DO 1410 J=1,NSTRMS 1410 VW(J,1)=VV(J)*TBETA(J,1) GO TO 1480 1420 IF(NMIX.NE.1)GO TO 1440 DO 1430 J=1,NSTRMS S(J,I-1)=SKEEP(J) H(J,I-1)=HKEEP(J) 1430 VW(J,I-1)=VWKEEP(J) 1440 IF(NWORK(I).GE.5)GO TO 1460 TBETA(1,I)=0.0 DO 1450 J=K,NSTRMS 1450 TBETA(J,I)=(VW(J,I)-XN*R(J,I))/VV(J) GO TO 1480 1460 DO 1470 J=1,NSTRMS VW(J,I)=VV(J)*TBETA(J,I)+XN*R(J,I) 1470 H(J,I)=XI(J)+XN*R(J,I)*VW(J,I)/(G*EJ) 1480 CONTINUE RETURN END ================================================ FILE: mis/alg29.f ================================================ SUBROUTINE ALG29 (Y,X,FXY,N) C DIMENSION Y(3),X(3),FXY(3) C X1=(X(3)+X(2))*(Y(3)-Y(2))/(X(3)-X(2)) FXY(2)=X1/(X(3)-X(1)) N2=N-2 DO 100 J=3,N2 X2=(X(J+1)+X(J))*(Y(J+1)-Y(J))/(X(J+1)-X(J)) FXY(J)=(X2-X1)/(X(J+1)-X(J-1)) 100 X1=X2 FXY(N-1)=-X1/(X(N)-X(N-2)) FXY(1)=FXY(2)-(FXY(3)-FXY(2))/(X(3)-X(2))*(X(2)-X(1)) FXY(N)=FXY(N-1)+(FXY(N-1)-FXY(N-2))/(X(N-1)-X(N-2))*(X(N)-X(N-1)) RETURN END ================================================ FILE: mis/alg3.f ================================================ FUNCTION ALG3 (P,H) C COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP C ALG3=CP*ALOG(H/CP)-R/EJ*ALOG(P) RETURN END ================================================ FILE: mis/alg30.f ================================================ SUBROUTINE ALG30 (A,B) C DIMENSION A(9,9),B(9),INDEX(9) C N=9 DO 100 J=1,N 100 INDEX(J)=0 110 AMAX=-1.0 DO 120 J=1,N IF(INDEX(J).NE.0)GO TO 120 DO 115 L=1,N IF(INDEX(L).NE.0)GO TO 115 PV=ABS(A(J,L)) IF(PV.LE.AMAX)GO TO 115 IR=J IC=L AMAX=PV 115 CONTINUE 120 CONTINUE IF(AMAX.LE.0.0)RETURN INDEX(IC)=IR IF(IC.EQ.IR)GO TO 150 DO 140 L=1,N PV=A(IR,L) A(IR,L)=A(IC,L) A(IC,L)=PV IF(L.GT.1)GO TO 140 PV=B(IR) B(IR)=B(IC) B(IC)=PV 140 CONTINUE 150 PV=1.0/A(IC,IC) A(IC,IC)=1.0 DO 160 L=1,N A(IC,L)=A(IC,L)*PV IF(L.GT.1)GO TO 160 B(IC)=B(IC)*PV 160 CONTINUE DO 180 L1=1,N IF(L1.EQ.IC)GO TO 180 PV=A(L1,IC) A(L1,IC)=0.0 DO 170 L=1,N 170 A(L1,L)=A(L1,L)-A(IC,L)*PV B(L1)=B(L1)-B(IC)*PV 180 CONTINUE GO TO 110 END ================================================ FILE: mis/alg4.f ================================================ FUNCTION ALG4 (H,S) C COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP C ALG4=EXP(ALOG(H/CP)/ROJCP-EJ/R*S) RETURN END ================================================ FILE: mis/alg5.f ================================================ FUNCTION ALG5 (H,S) C COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP C ALG5=ALG4(H,S)/(R*H)*CP RETURN END ================================================ FILE: mis/alg6.f ================================================ FUNCTION ALG6 (P,T) C COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP C ALG6=CP*T RETURN END ================================================ FILE: mis/alg7.f ================================================ FUNCTION ALG7 (H,S) C COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP C ALG7=H/CP RETURN END ================================================ FILE: mis/alg8.f ================================================ FUNCTION ALG8 (H,S) C COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP C ALG8=GAMMA RETURN END ================================================ FILE: mis/alg9.f ================================================ FUNCTION ALG9 (H,S,V2) C COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP C ALG9=CP*V2/(GAMMA*G*R*H) RETURN END ================================================ FILE: mis/algan.f ================================================ SUBROUTINE ALGAN C REAL IX,IY,IXY,IPX,IPY,IXN,IYN,IXYN,IXD,IYD DIMENSION RLES(21),TCS(21),TES(21),ZZS(21),PERSPT(21), 1 ALPB(10,21),BLOCK(10,21),EPSLON(10,21),CCORD(21), 2 YS(21,70),YP(21,70),XP(21,70),XS(21,70),ZS(21,70), 3 ZQ(21),TQ(21),BLAFOR(10,21),XCAMB(21,10), 4 THARR(21,10),TITLE(18),IDATA(24),RDATA(6) COMMON /SYSTEM/ KSYSTM(90),LPUNCH COMMON /UD3PRT/ IPRTC,ISTRML,IPGEOM COMMON /UDSTR2/ NBLDES,STAG(21),CHORDD(21) COMMON /CONTRL/ NANAL,NAERO,NARBIT,LOG1,LOG2,LOG3,LOG4,LOG5,LOG6 COMMON /UD3ANC/ EPZ(80,4),R(10,21),ZOUT(21),SS(100),X(100), 1 YPRIME(100),YSEMI(21,31),XSEMI(21,31),ZP(21,70), 2 ZSEMI(21,31),TITLE2(18),XHERE(10),XTEMP(100), 3 RAD(100),TEMP1(21),TEMP2(21),TEMP3(21),TEMP4(21), 4 ZR(21),B1(21),B2(21),PP(21),QQ(21),ZZ(21),RLE(21), 5 TC(21),TE(21),CORD(21),DELX(21),DELY(21),S(21), 6 BS(21),XSEMJ(21,31),YSEMJ(21,31),ZSEMJ(21,31), 7 XSTA(21,10),RSTA(21,10),KPTS(21),SIGMA(100), 8 TANPHI(10,21),ZCAMB(21,10),YCAMB(21,10), 9 IFANGS(10),THETA(21,10),ALPHA(21,10) EQUIVALENCE (TITLE(1),TITLE2(1)) C PI = 4.0*ATAN(1.0) C1 = 180.0/PI CALL FREAD (LOG1,TITLE2,18,1) IF (IPRTC .EQ. 1) WRITE (LOG2,120) TITLE2 120 FORMAT (1H1,31X,'PROGRAM ALG - COMPRESSOR DESIGN - ANALYTIC MEAN', 1 'LINE BLADE SECTION', /32X,65(1H*), //10X,5HTITLE,25X,1H=, 2 18A4) CALL FREAD (LOG1,IDATA,17,1) NLINES = IDATA(1) NSTNS = IDATA(2) NZ = IDATA(3) NSPEC = IDATA(4) NPOINT = IDATA(5) NBLADE = IDATA(6) ISTAK = IDATA(7) IPUNCH = IDATA(8) ISECN = IDATA(9) IFCORD = IDATA(10) IFPLOT = IDATA(11) IPRINT = IDATA(12) ISPLIT = IDATA(13) INAST = IDATA(14) IRLE = IDATA(15) IRTE = IDATA(16) NSIGN = IDATA(17) NBLDES = NBLADE IF (IPRTC .EQ. 0) IPRINT = 3 IF (INAST.EQ.0 .AND. IPGEOM.NE.-1) INAST = -4 IF (IPRTC .EQ. 1) WRITE (LOG2,140) NLINES,NSTNS,NZ,NSPEC,NPOINT, 1 NBLADE,ISTAK,IPUNCH,ISECN,IFCORD,IFPLOT,IPRINT,ISPLIT,INAST, 2 IRLE,IRTE,NSIGN 140 FORMAT (10X,24HNUMBER OF STREAMSURFACES,6X,1H=,I3, /10X,18HNUMBER 1OF STATIONS,12X,1H=,I3, /10X,27HNUMBER OF CONSTANT-Z PLANES,3X,1H= 2,I3, /10X,27HNUMBER OF BLADE DATA POINTS,3X,1H=,I3, /10X,31HNUMBER 3 OF POINTS ON SURFACES =,I3, /10X,29HNUMBER OF BLADES IN BLADE RO 4W,1X,1H=,I3, /10X,5HISTAK,25X,1H=,I3, /10X,6HIPUNCH,24X,1H=,I3, /1 50X,5HISECN,25X,1H=,I3,/,10X,6HIFCORD,24X,1H=,I3, /10X,6HIFPLOT,24X 6,1H=,I3, /10X,6HIPRINT,24X,1H=,I3, /10X,6HISPLIT,24X,1H=,I3, /10X, 75HINAST,25X,1H=,I3, /10X,4HIRLE,26X,1H=,I3, /10X,4HIRTE,26X,1H=,I3 8, /10X,5HNSIGN,25X,1H=,I3) CALL FREAD (LOG1,RDATA,5,1) ZINNER = RDATA(1) ZOUTER = RDATA(2) SCALE = RDATA(3) STACKX = RDATA(4) PLTSZE = RDATA(5) IF (IPRTC .EQ. 1) WRITE (LOG2,160) ZINNER,ZOUTER,SCALE,STACKX, 1 PLTSZE 160 FORMAT (/10X,6HZINNER,24X,1H=,F8.4, /10X,6HZOUTER,24X,1H=,F8.4, / 110X,5HSCALE,25X,1H=,F8.4, /10X,6HSTACKX,24X,1H=,F8.4, /10X,6HPLTSZ 2E,24X,1H=,F8.4, //20X,36HSTREAMSURFACE GEOMETRY SPECIFICATION) LNCT = 30 DO 300 I = 1,NSTNS CALL FREAD (LOG1,IDATA,2,1) KPTS(I) = IDATA(1) IFANGS(I) = IDATA(2) KPT = KPTS(I) DO 165 K = 1,KPT CALL FREAD (LOG1,RDATA,2,1) XSTA(K,I) = RDATA(1) 165 RSTA(K,I) = RDATA(2) IF (KPTS(I) .GE. 2) GO TO 170 KPTS(I) = 2 XSTA(2,I) = XSTA(1,I) RSTA(2,I) = RSTA(1,I) + 1.0 170 DO 180 J = 1,NLINES CALL FREAD (LOG1,RDATA,2,1) R(I,J) = RDATA(1) 180 BLAFOR(I,J) = RDATA(2) IDUM = KPTS(I) IF (NLINES .GT. IDUM) IDUM = NLINES IF (LNCT .LE. 54-IDUM) GO TO 210 IF (IPRTC .NE. 0) WRITE (LOG2,200) 200 FORMAT (1H1) LNCT = 2 210 LNCT = LNCT + IDUM + 7 IF (INAST .NE. 0) GO TO 240 IF (IPRTC .EQ. 1) WRITE (LOG2,220) I,KPTS(I),I,IFANGS(I) 220 FORMAT (/10X,'COMPUTING STATION',I3,5X,'NUMBER OF DESCRIBING ', 1 'POINTS=',I3,6X,7HIFANGS(,I2,2H)=,I3, //6X,'DESCRIPTION', 2 9X,'STREAMLINE',5X,5HRADII,/6X,1HX,9X,1HR,11X,6HNUMBER,//) DO 230 K = 1,IDUM IF (IPRTC.EQ.1 .AND. K.LE.KPTS(I).AND.K.LE.NLINES) 1 WRITE (LOG2,260) XSTA(K,I),RSTA(K,I),K,R(I,K) IF (IPRTC.EQ.1 .AND. K.LE.KPTS(I).AND.K.GT.NLINES) 1 WRITE (LOG2,270) XSTA(K,I),RSTA(K,I) IF (IPRTC.EQ.1 .AND. K.GT.KPTS(I).AND.K.LE.NLINES) 1 WRITE (LOG2,280) K,R(I,K) 230 CONTINUE IF (INAST .EQ. 0) GO TO 300 240 IF (IPRTC .EQ. 1) WRITE (LOG2,290) I,KPTS(I),I,IFANGS(I) DO 250 K = 1,IDUM IF (IPRTC.EQ.1 .AND. K.LE.KPTS(I).AND.K.LE.NLINES) 1 WRITE (LOG2,260) XSTA(K,I),RSTA(K,I),K,R(I,K),BLAFOR(I,K) IF (IPRTC.EQ.1 .AND. K.LE.KPTS(I).AND.K.GT.NLINES) 1 WRITE (LOG2,270) XSTA(K,I),RSTA(K,I) IF (IPRTC.EQ.1 .AND. K.GT.KPTS(I).AND.K.LE.NLINES) 1 WRITE (LOG2,280) K,R(I,K),BLAFOR(I,K) 250 CONTINUE 260 FORMAT (3X,F8.4,2X,F8.4,8X,I2,9X,F8.4,9X,F8.4) 270 FORMAT (3X,F8.4,2X,F8.4) 280 FORMAT (29X,I2,9X,F8.4,9X,F8.4) 290 FORMAT (/10X,'COMPUTING STATION',I3,5X,'NUMBER OF DESCRIBING ', 1 'POINTS=',I3,6X,7HIFANGS(,I2,2H)=,I3, //6X,'DESCRIPTION', 2 9X,'STREAMLINE',5X,5HRADII,9X,'DELTA PRESSURE', /6X,1HX, 3 9X,1HR,11X,6HNUMBER, //) 300 CONTINUE SQ = 0.0 SB = 0.0 IF (ISECN.EQ.1 .OR. ISECN.EQ.3) GO TO 340 DO 305 ISBS = 1,NSPEC S(ISBS) = 0.0 305 BS(ISBS) = 0.0 IF (LNCT .LE. 54-NSPEC) GO TO 310 IF (IPRTC .NE. 0) WRITE (LOG2,200) LNCT = 1 310 LNCT = LNCT + NSPEC + 6 DO 315 J = 1,NSPEC CALL FREAD (LOG1,RDATA,6,1) ZR(J) = RDATA(1) B1(J) = RDATA(2) B2(J) = RDATA(3) PP(J) = RDATA(4) QQ(J) = RDATA(5) RLE(J) = RDATA(6) CALL FREAD (LOG1,RDATA,6,1) TC(J) = RDATA(1) TE(J) = RDATA(2) ZZ(J) = RDATA(3) CORD(J) = RDATA(4) DELX(J) = RDATA(5) 315 DELY(J) = RDATA(6) IF (IPRTC .EQ. 1) WRITE (LOG2,330) (ZR(J),B1(J),B2(J),PP(J),QQ(J), 1 RLE(J),TC(J),TE(J),ZZ(J),CORD(J),DELX(J),DELY(J),J=1,NSPEC) 330 FORMAT (/20X,'SECTION GEOMETRY SPECIFICATION', //10X,'STREAMLINE', 1 ' INLET',5X,6HOUTLET,4X,6HY2 LE/,4X,6HY2 TE/,3X,48HLE RADI 2US MAX THICK TE THICK POINT OF CHORD OR,3X,7HX STACK,3X,7HY STAC 3K, /11X,6HNUMBER,5X,5HANGLE,5X,5HANGLE,3X,19HMAX VALUE MAX VALUE,3 4X,6H/CHORD,4X,6H/CHORD,3X,8H/2*CHORD,2X,18HMAX THICK AXIAL CD,4X,6 5HOFFSET,4X,6HOFFSET, //,(10X,F7.2,3X,F8.3,F10.3,2F10.4,3F10.5, 62F10.4,F11.6,F10.6)) GO TO 390 340 IF (LNCT .LE. 50-2*NSPEC) GO TO 350 IF (IPRTC .NE. 0) WRITE (LOG2,200) LNCT = 1 350 LNCT = LNCT + 10 + 2*NSPEC DO 360 J = 1,NSPEC CALL FREAD (LOG1,RDATA,6,1) ZR(J) = RDATA(1) B1(J) = RDATA(2) B2(J) = RDATA(3) PP(J) = RDATA(4) QQ(J) = RDATA(5) RLE(J) = RDATA(6) CALL FREAD (LOG1,RDATA,6,1) TC(J) = RDATA(1) TE(J) = RDATA(2) ZZ(J) = RDATA(3) CORD(J) = RDATA(4) DELX(J) = RDATA(5) DELY(J) = RDATA(6) CALL FREAD (LOG1,RDATA,2,1) S(J) = RDATA(1) 360 BS(J) = RDATA(2) IF (IPRTC .EQ. 1) WRITE (LOG2,330) (ZR(J),B1(J),B2(J),PP(J),QQ(J), 1 RLE(J),TC(J),TE(J),ZZ(J),CORD(J),DELX(J),DELY(J),J=1,NSPEC) IF (IPRTC.EQ.1 .AND. ISECN.EQ.1) WRITE (LOG2,370) (ZR(J),S(J), 1 BS(J),J=1,NSPEC) 370 FORMAT (/10X,'STREAMLINE INFLECTION INFLECTION', /11X,'NUMBER', 1 8X,5HPOINT,7X,5HANGLE, //,(10X,F7.2,F14.5,F11.3)) IF (IPRTC.EQ.1 .AND. ISECN.EQ.3) WRITE (LOG2,380) (ZR(J),S(J), 1 BS(J),J=1,NSPEC) 380 FORMAT (/10X,'STREAMLINE TRANSITION DEL ANGLE', /11X,'NUMBER', 1 8X,5HPOINT,6X,7HFROM LE, //,(10X,F7.2,F14.5,F11.3)) 390 IF (ISPLIT .EQ. 0) GO TO 430 DO 400 J = 1,NSPEC CALL FREAD (LOG1,RDATA,5,1) RLES(J) = RDATA(1) TCS(J) = RDATA(2) TES(J) = RDATA(3) ZZS(J) = RDATA(4) 400 PERSPT(J) = RDATA(5) IF (IPRTC .EQ. 1) WRITE (LOG2,410) 410 FORMAT (/20X,13HSPLITTER DATA, //10X,10HSTREAMLINE,2X,47HLE RADIUS 1 MAX THICK TE THICK POINT OF PER CENT, /11X,6HNUMBER,7X,6H/CHORD, 2 4X,6H/CHORD,3X,8H/2*CHORD,2X,9HMAX THICK,2X,8HSPLITTER, /) IF (IPRTC .EQ. 1) WRITE (LOG2,420) (ZR(J),RLES(J),TCS(J),TES(J), 1 ZZS(J),PERSPT(J),J=1,NSPEC) 420 FORMAT (10X,F7.2,3X,F8.3,F10.3,3F10.4) 430 CONTINUE IF (IFPLOT.EQ.0 .OR. IFPLOT.EQ.4) GO TO 440 IKDUM = 0 IF (B1(1) .LT. 0.0) IKDUM = 1 IF (IFPLOT.EQ.1 .OR. IFPLOT.EQ.3) CALL ALG17 (ISTAK,PLTSZE,1, 1 TITLE,IKDUM,IFPLOT) 440 NDUM = NPOINT IIDUM = ISECN DO 870 J = 1,NLINES NPOINT = NDUM ISECN = IIDUM DO 450 I = 1,NSTNS KPT = KPTS(I) 450 CALL ALG15 (RSTA(1,I),XSTA(1,I),KPT,R(I,J),XHERE(I),1,0) X(1) = XHERE(1) X(100) = XHERE(NSTNS) AX = (X(100)-X(1))/99.0 DO 460 I = 2,99 460 X(I) = X(I-1) + AX CALL ALG14 (XHERE,R(1,J),NSTNS,X,XDUM,YPRIME,100,1) CALL ALG14 (XHERE,R(1,J),NSTNS,XHERE,XDUM,TANPHI(1,J),NSTNS,1) SS(1) = 0.0 DO 470 I = 2,100 470 SS(I) = SS(I-1) + AX*SQRT(1.0+((YPRIME(I)+YPRIME(I-1))/2.0)**2) XJ = J CALL ALG15 (ZR,B1,NSPEC,XJ,BETA1,1,0) CALL ALG15 (ZR,B2,NSPEC,XJ,BETA2,1,0) CALL ALG15 (ZR,PP,NSPEC,XJ,P,1,0) CALL ALG15 (ZR,QQ,NSPEC,XJ,Q,1,0) CALL ALG15 (ZR,RLE,NSPEC,XJ,YZERO,1,0) CALL ALG15 (ZR,TC,NSPEC,XJ,T,1,0) CALL ALG15 (ZR,TE,NSPEC,XJ,YONE,1,0) CALL ALG15 (ZR,DELX,NSPEC,XJ,XDEL,1,0) CALL ALG15 (ZR,DELY,NSPEC,XJ,YDEL,1,0) CALL ALG15 (ZR,ZZ,NSPEC,XJ,Z,1,0) CALL ALG15 (ZR,CORD,NSPEC,XJ,CHD,1,0) IF (ISECN.EQ.0 .OR. ISECN.EQ.2) GO TO 480 CALL ALG15 (ZR,S,NSPEC,XJ,SQ,1,0) CALL ALG15 (ZR,BS,NSPEC,XJ,SB,1,0) 480 IF (ISPLIT .EQ. 0) GO TO 490 CALL ALG15 (ZR,RLES,NSPEC,XJ,YZEROS,1,1) CALL ALG15 (ZR,TCS,NSPEC,XJ,TS,1,1) CALL ALG15 (ZR,TES,NSPEC,XJ,YONES,1,1) CALL ALG15 (ZR,ZZS,NSPEC,XJ,ZSPMXT,1,1) CALL ALG15 (ZR,PERSPT,NSPEC,XJ,PERSPJ,1,1) 490 CALL ALG15 (X,SS,100,STACKX,BX,1,1) CALL ALG13 (J,YS,YP,XS,XP,YSEMI,XSEMI,LOG1,LOG2,NPOINT,IPRINT, 1 BETA1,BETA2,P,Q,YZERO,T,YONE,XDEL,YDEL,Z,CHD,LNCT,IFCORD,SQ, 2 SB,ISECN,XSEMJ,YSEMJ,ISTAK,XHERE,X,SS,NSTNS,R,XTEMP,YPRIME, 3 RAD,EPZ,BX,SIGMA,CCORD,ISPLIT,YZEROS,TS,YONES,ZSPMXT,PERSPJ, 4 INAST,IRLE,IRTE,THARR) CALL ALG15 (X,SS,100,STACKX,BX,1,1) DO 500 I = 1,100 X(I) = X(I) - STACKX 500 SS(I) = SS(I)- BX DO 510 I = 1,NSTNS 510 XHERE(I) = XHERE(I) - STACKX IF (IFPLOT.EQ.0 .OR. IFPLOT.EQ.2 .OR. IFPLOT.EQ.4) GO TO 570 XPLOT = XS(J,1)*SCALE YPLOT = YS(J,1)*SCALE DO 520 I = 2,NPOINT XPLOT = XS(J,I)*SCALE YPLOT = YS(J,I)*SCALE 520 CONTINUE IF (ISECN .NE. 2) GO TO 540 DO 530 I = 2,30 XPLOT = XSEMJ(J,I)*SCALE YPLOT = YSEMJ(J,I)*SCALE 530 CONTINUE 540 DO 550 II = 1,NPOINT I = NPOINT - II + 1 XPLOT = XP(J,I)*SCALE YPLOT = YP(J,I)*SCALE 550 CONTINUE DO 560 I = 2,30 XPLOT = XSEMI(J,I)*SCALE YPLOT = YSEMI(J,I)*SCALE 560 CONTINUE XPLOT = XS(J,1)*SCALE YPLOT = YS(J,1)*SCALE 570 IJDUM = 0 DO 580 I = 1,NSTNS IF (IFANGS(I).GE.1) IJDUM = 1 580 CONTINUE IF (IJDUM.EQ.0 .AND. INAST.EQ.0) GO TO 600 CALL ALG15 (SS,X,100,XTEMP,XTEMP,100,1) DO 590 I = 1,NSTNS CALL ALG15 (XTEMP,SIGMA,100,XHERE(I),THETA(J,I),1,1) CALL ALG15 (XTEMP,YPRIME,100,XHERE(I),ALPHA(J,I),1,1) ZCAMB(J,I) = R(I,J)*COS(THETA(J,I)) XCAMB(J,I) = XHERE(I) 590 YCAMB(J,I) = R(I,J)*SIN(THETA(J,I)) 600 DO 610 I = 1,NPOINT 610 XTEMP(I) = XS(J,I) CALL ALG15 (SS,X,100,XTEMP,XTEMP,NPOINT,1) CALL ALG15 (XHERE,R(1,J),NSTNS,XTEMP,RAD,NPOINT,0) K = 1 DO 620 I = 1,NPOINT EPS = EPZ(I,K) ZS(J,I) = RAD(I)*COS(EPS) YS(J,I) = RAD(I)*SIN(EPS) 620 XS(J,I) = XTEMP(I) DO 630 I = 1,NPOINT 630 XTEMP(I) = XP(J,I) CALL ALG15 (SS,X,100,XTEMP,XTEMP,NPOINT,1) CALL ALG15 (XHERE,R(1,J),NSTNS,XTEMP,RAD,NPOINT,0) K = 2 DO 640 I = 1,NPOINT EPS = EPZ(I,K) ZP(J,I) = RAD(I)*COS(EPS) YP(J,I) = RAD(I)*SIN(EPS) 640 XP(J,I) = XTEMP(I) DO 650 I = 1,31 650 XTEMP(I) = XSEMI(J,I) CALL ALG15 (SS,X,100,XTEMP,XTEMP,31,1) CALL ALG15 (XHERE,R(1,J),NSTNS,XTEMP,RAD,31,0) K = 3 DO 660 I = 1,31 EPS = EPZ(I,K) ZSEMI(J,I) = RAD(I)*COS(EPS) YSEMI(J,I) = RAD(I)*SIN(EPS) 660 XSEMI(J,I) = XTEMP(I) IF (ISECN .NE. 2) GO TO 690 DO 670 I = 1,31 670 XTEMP(I) = XSEMJ(J,I) CALL ALG15 (SS,X,100,XTEMP,XTEMP,31,1) CALL ALG15 (XHERE,R(1,J),NSTNS,XTEMP,RAD,31,0) K = 4 DO 680 I = 1,31 EPS = EPZ(I,K) ZSEMJ(J,I) = RAD(I)*COS(EPS) YSEMJ(J,I) = RAD(I)*SIN(EPS) 680 XSEMJ(J,I) = XTEMP(I) 690 IF (IPRINT .GE. 2) GO TO 870 IF (LNCT .LE. 50) GO TO 700 IF (IPRTC .NE. 1) WRITE (LOG2,200) LNCT = 1 700 LNCT = LNCT + 5 IF (IPRTC .EQ. 1) WRITE (LOG2,710) J 710 FORMAT (/10X,38HCARTESIAN COORDINATES ON STREAMSURFACE,I3, //10X, 1 8HPOINT NO,5X,2HZ1,12X,2HX1,12X,2HY1,16X,2HZ2,12X,2HX2, 2 12X,2HY2, /) I = 1 720 IF (IPRTC .EQ. 1) WRITE (LOG2,730) I,ZS(J,I),XS(J,I),YS(J,I), 1 ZP(J,I),XP(J,I),YP(J,I) 730 FORMAT (10X,I5,3X,1P,3E14.5,4X,1P,3E14.5) I = I + 1 LNCT = LNCT + 1 IF (I .GT. NPOINT) GO TO 750 IF (LNCT .LE. 59) GO TO 720 IF (IPRTC .EQ. 1) WRITE (LOG2,740) 740 FORMAT (1H1,9X,8HPOINT NO,5X,2HZ1,12X,2HX1,12X,2HY1,16X,2HZ2,12X, 1 2HX2,12X,2HY2, /) LNCT = 2 GO TO 720 750 IF (LNCT .LE. 50) GO TO 760 IF (IPRTC .NE. 0) WRITE (LOG2,200) LNCT = 1 760 LNCT = LNCT + 3 IF (ISECN .NE. 2) GO TO 770 GO TO 820 770 IF (IPRTC .EQ. 1) WRITE (LOG2,780) 780 FORMAT (/10X,8HPOINT NO,4X,5HZSEMI,9X,5HXSEMI,9X,5HYSEMI, /) 790 FORMAT (/10X,8HPOINT NO,4X,5HZSEMI,9X,5HXSEMI,9X,5HYSEMI,13X, 15HZSEMJ,9X,5HXSEMJ,9X,5HYSEMJ, /) I = 1 800 IF (IPRTC .EQ. 1) WRITE (LOG2,810) I,ZSEMI(J,I),XSEMI(J,I), 1 YSEMI(J,I) 810 FORMAT (10X,I5,3X,1P,3E14.5) GO TO 850 820 IF (IPRTC .EQ. 1) WRITE (LOG2,790) I = 1 830 IF (IPRTC .EQ. 1) WRITE (LOG2,840) I,ZSEMI(J,I),XSEMI(J,I), 1 YSEMI(J,I),ZSEMJ(J,I),XSEMJ(J,I),YSEMJ(J,I) 840 FORMAT (10X,I5,3X,1P,3E14.5,4X,1P,3E14.5) 850 I = I + 1 LNCT = LNCT + 1 IF (I .GT. 31) GO TO 870 IF (LNCT.LE.59 .AND. ISECN.EQ.2) GO TO 830 IF (ISECN .NE. 2) GO TO 860 IF (IPRTC .NE. 0) WRITE (LOG2,200) IF (IPRTC .EQ. 1) WRITE (LOG2,790) LNCT = 4 GO TO 830 860 IF (LNCT .LE. 59) GO TO 800 IF (IPRTC .NE. 0) WRITE (LOG2,200) IF (IPRTC .EQ. 1) WRITE (LOG2,780) LNCT = 4 GO TO 800 870 CONTINUE IF (IPRINT .EQ. 1) GO TO 1030 VOL = 0.0 DO 880 J = 2,NLINES VOL = VOL + (((XS(J,1)-XP(J,1))**2+(YS(J,1)-YP(J,1))**2) + 1 ((XS(J-1,1)-XP(J-1,1))**2 + (YS(J-1,1)-YP(J-1,1))**2))* 2 (ZS(J,1)+ZP(J,1)-ZS(J-1,1) - ZP(J-1,1))*PI/32.0 DO 880 I = 2,NPOINT 880 VOL = VOL + ((SQRT((XS(J,I)-XP(J,I))**2+(YS(J,I)-YP(J,I))**2) + 1 SQRT((XS(J,I-1)-XP(J,I-1))**2+(YS(J,I-1)-YP(J,I-1))**2))* 2 (SQRT((XS(J,I-1)-XS(J,I))**2+(YS(J,I-1)-YS(J,I))**2) + 3 SQRT((XP(J,I-1)-XP(J,I))**2+(YP(J,I-1)-YP(J,I))**2)) + 4 (SQRT((XS(J-1,I)-XP(J-1,I))**2+(YS(J-1,I)-YP(J-1,I))**2) + 5 SQRT((XS(J-1,I-1)-XP(J-1,I-1))**2+(YS(J-1,I-1)-YP(J-1,I-1)) 6 **2))*(SQRT((XS(J-1,I-1)-XS(J-1,I))**2+(YS(J-1,I-1)- 7 YS(J-1,I))**2)+SQRT((XP(J-1,I-1)-XP(J-1,I))**2+(YP(J-1,I-1)- 8 YP(J-1,I))**2)))*(ZS(J,I)+ZS(J,I-1)+ZP(J,I)+ZP(J,I-1)- 9 ZS(J-1,I)-ZS(J-1,I-1)-ZP(J-1,I)-ZP(J-1,I-1))/32.0 IF (LNCT .LE. 56) GO TO 890 LNCT = 1 IF (IPRTC .NE. 0) WRITE (LOG2,200) 890 LNCT = LNCT + 4 IF (IPRTC .EQ. 1) WRITE (LOG2,900) VOL 900 FORMAT (//40X,25HVOLUME OF BLADE SECTION =,1P,E11.4, /40X,36(1H*)) IF (IJDUM .EQ. 0) GO TO 1030 IF (IPRINT .NE. 3) WRITE (LOG2,200) IF (IPRINT .EQ. 3) WRITE (LOG2,910) 910 FORMAT (//) IF (IPRTC .EQ. 1) WRITE (LOG2,920) 920 FORMAT (1H1,42X,43HBLADE CALCULATIONS FOR AERODYNAMIC ANALYSIS, 1 /43X,43(1H*)) IDUM = 7 LNCT = LNCT + 4 IF (IPRINT .NE. 3) LNCT = 3 DO 1020 I = 1,NSTNS IF (IFANGS(I).EQ.0 .OR. (ISPLIT.GE.1 .AND. IFANGS(I).EQ.1)) 1 GO TO 1020 DO 940 J = 1,NLINES CALL ALG15 (RSTA(1,I),XSTA(1,I),KPTS(I),R(I,J),XDUM,1,0) CALL ALG14 (RSTA(1,I),XSTA(1,I),KPTS(I),R(I,J),XDUM,ZQ(J),1,1) DO 930 K = 1,NPOINT SS(K) = XS(J,K) RAD(K) = YS(J,K) XTEMP(K) = XP(J,K) 930 X(K) = YP(J,K) XDUM = XDUM - STACKX CALL ALG15 (SS,RAD,NPOINT,XDUM,YY1,1,1) CALL ALG15 (XTEMP,X,NPOINT,XDUM,YY2,1,1) W1 = YY1/R(I,J) W2 = YY2/R(I,J) TQ(J) = ABS(ATAN(W1/SQRT(1.-W1**2))-ATAN(W2/SQRT(1.-W2**2)))/ 1 (2.*PI)*FLOAT(NBLADE) 940 CONTINUE CALL ALG14 (ZCAMB(1,I),YCAMB(1,I),NLINES,ZCAMB(1,I),XDUM,RLE, 1 NLINES,1) IF (LNCT+IDUM+NLINES .LE. 59) GO TO 950 IF (IPRTC .NE. 0) WRITE (LOG2,200) LNCT = 2 950 LNCT = LNCT + IDUM + NLINES IF (IPRTC .EQ. 1) WRITE (LOG2,960) I,NLINES 960 FORMAT (///48X,8HSTATION ,I2,5X,17HNUMBER OF RADII= ,I2, //36X,6H 1RADIUS,5X,7HSECTION,6X,4HLEAN,9X,5HBLADE,7X,5HTHETA, /48X,5HANGLE, 26X,5HANGLE,7X,8HBLOCKAGE, /) DO 1000 J = 1,NLINES EPS = (THETA(J,I)-ATAN(RLE(J)))*C1 ALPHB = ALPHA(J,I) ALP = (ATAN((TANPHI(I,J)*TAN(EPS/C1)+ALPHB*SQRT(1.+TANPHI(I,J)**2) 1 )/(1.-TANPHI(I,J)*ZQ(J))))*C1 ALPB(I,J) = ALP EPSLON(I,J) = ATAN(TAN(EPS/C1)/SQRT(1.0+ZQ(J)**2))*C1 IF (ISPLIT .LT. 1) GO TO 990 CALL FREAD (LOG1,RDATA,4,1) XB = RDATA(4) IF (IPRTC .EQ. 1) WRITE (LOG2,980) XB,I,J 980 FORMAT(90X,14HADDIT. BLOCK =,F7.5,3H I=,I2,3H J=,I2) TQ(J) = TQ(J) + XB 990 IF (IPRTC .EQ.1) WRITE (LOG2,1010) R(I,J),ALP,EPS,TQ(J),THETA(J,I) 1000 BLOCK(I,J) = TQ(J) 1010 FORMAT (30X,5F12.4) 1020 CONTINUE 1030 IF (IFPLOT.LT.2 .OR. IFPLOT.EQ.4) GO TO 1040 CALL ALG17 (ISTAK,PLTSZE,2,TITLE,IKDUM,IFPLOT) 1040 IF (IPRINT.EQ.1 .OR. IPRINT.EQ.3) GO TO 1060 LNCT = 2 IF (IPRTC .EQ. 1) WRITE (LOG2,1050) 1050 FORMAT (1H1,27X,74HBLADE SURFACE GEOMETRY IN CARTESIAN COORDINATES 1 AT SPECIFIED VALUES OF Z , /28X,18(4H****),2H**) 1060 IF (IPRINT.EQ.1 .AND. IFPLOT.LE.1) GO TO 1470 XZ = NZ - 1 DZ = (ZOUTER-ZINNER)/XZ ZOUT(1) = ZINNER DO 1070 J = 3,NZ 1070 ZOUT(J-1) = ZOUT(J-2) + DZ ZOUT(NZ) = ZOUTER DO 1080 I = 1,NPOINT CALL ALG15 (ZS(1,I),XS(1,I),NLINES,ZOUT,TEMP1,NZ,0) CALL ALG15 (ZS(1,I),YS(1,I),NLINES,ZOUT,TEMP2,NZ,0) CALL ALG15 (ZP(1,I),XP(1,I),NLINES,ZOUT,TEMP3,NZ,0) CALL ALG15 (ZP(1,I),YP(1,I),NLINES,ZOUT,TEMP4,NZ,0) DO 1080 J = 1,NZ XS(J,I) = TEMP1(J) YS(J,I) = TEMP2(J) XP(J,I) = TEMP3(J) 1080 YP(J,I) = TEMP4(J) DO 1090 I = 1,31 CALL ALG15 (ZSEMI(1,I),XSEMI(1,I),NLINES,ZOUT,TEMP1,NZ,0) CALL ALG15 (ZSEMI(1,I),YSEMI(1,I),NLINES,ZOUT,TEMP2,NZ,0) DO 1090 J = 1,NZ XSEMI(J,I) = TEMP1(J) 1090 YSEMI(J,I) = TEMP2(J) IF (ISECN .NE. 2) GO TO 1110 DO 1100 I = 1,31 CALL ALG15 (ZSEMJ(1,I),XSEMJ(1,I),NLINES,ZOUT,TEMP1,NZ,0) CALL ALG15 (ZSEMJ(1,I),YSEMJ(1,I),NLINES,ZOUT,TEMP2,NZ,0) DO 1100 J = 1,NZ XSEMJ(J,I) = TEMP1(J) 1100 YSEMJ(J,I) = TEMP2(J) 1110 DO 1460 J = 1,NZ RD = SQRT((XS(J,1)-XP(J,1))**2+(YS(J,1)-YP(J,1))**2)/2.0 AREA = PI*RD**2/2.0 BETA1 = ATAN((YS(J,2)+YP(J,2)-YS(J,1)-YP(J,1))/(XS(J,2)+XP(J,2)- 1 XS(J,1)-XP(J,1))) XINT = AREA*((XP(J,1)+XS(J,1))/2.0-COS(BETA1)*4.0/(3.0*PI)*RD) YINT = AREA*((YP(J,1)+YS(J,1))/2.0-SIN(BETA1)*4.0/(3.0*PI)*RD) IF (ISECN .NE. 2) GO TO 1120 N1 = NPOINT N = N1 N2 = N1 - 1 BETA2 = ATAN((YS(J,N1)+YP(J,N1)-YS(J,N2)-YP(J,N2))/(XS(J,N1)+ 1 XP(J,N1)-XS(J,N2)-XP(J,N2))) XINT = XINT + AREA*((XP(J,N)+XS(J,N))/2.+COS(BETA2)*4./(3.*PI)*RD) YINT = YINT + AREA*((YP(J,N)+YS(J,N))/2.+SIN(BETA2)*4./(3.*PI)*RD) AREA = 2.*AREA 1120 DO 1130 I = 2,NPOINT DELA = (SQRT((XS(J,I)-XP(J,I))**2+(YS(J,I)-YP(J,I))**2)+ 1 SQRT((XS(J,I-1)-XP(J,I-1))**2+(YS(J,I-1)-YP(J,I-1))**2))* 2 (SQRT((XS(J,I-1)-XS(J,I))**2+(YS(J,I-1)-YS(J,I))**2)+ 3 SQRT((XP(J,I-1)-XP(J,I))**2+(YP(J,I-1)-YP(J,I))**2))/4.0 AREA = AREA + DELA XINT = XINT + DELA*(XS(J,I)+XS(J,I-1)+XP(J,I)+XP(J,I-1))/4.0 1130 YINT = YINT + DELA*(YS(J,I)+YS(J,I-1)+YP(J,I)+YP(J,I-1))/4.0 YINT = YINT/AREA XINT = XINT/AREA X1 = (XS(J,1)+XP(J,1))/2. Y1 = (YS(J,1)+YP(J,1))/2. T1 = SQRT((XS(J,1)-XP(J,1))**2+(YS(J,1)-YP(J,1))**2) F = 0. U = 0. DO 1140 I = 2,NPOINT T2 = SQRT((XS(J,I)-XP(J,I))**2+(YS(J,I)-YP(J,I))**2) X2 = (XS(J,I)+XP(J,I))/2. Y2 = (YS(J,I)+YP(J,I))/2. DELU = SQRT((X2-X1)**2+(Y2-Y1)**2) U = U + DELU TAV3 = (T1**3+T2**3)/2. F = F + TAV3*DELU X1 = X2 Y1 = Y2 1140 T1 = T2 TORCON = ((1./3.)*F)/(1.+(4./3.)*F/AREA/U**2) IX = 0.0 IY = 0.0 IXY = 0.0 DO 1150 I = 2,NPOINT XD = (SQRT((XS(J,I-1)-XP(J,I-1))**2+(YS(J,I-1)-YP(J,I-1))**2)+ 1 SQRT((XS(J,I)-XP(J,I))**2+(YS(J,I)-YP(J,I))**2))/2.0 YD = (SQRT((XS(J,I)-XS(J,I-1))**2+(YS(J,I)-YS(J,I-1))**2)+ 1 SQRT((XP(J,I)-XP(J,I-1))**2+(YP(J,I)-YP(J,I-1))**2))/2.0 IXD = YD*YD*YD*XD/12.0 IYD = XD*XD*XD*YD/12.0 ANG = ATAN((YS(J,I)+YP(J,I)-YS(J,I-1)-YP(J,I-1))/(XP(J,I)+XS(J,I) 1 -XP(J,I-1)-XS(J,I-1))) COSANG = COS(2.0*ANG) IXN = (IXD+IYD+(IXD-IYD)*COSANG)/2.0 IYN = (IXD+IYD-(IXD-IYD)*COSANG)/2.0 IXYN = 0.0 IF (ANG .NE. 0.0) IXYN = ((IXN-IYN)*COSANG-IXD+IYD)/ 1 (2.0*SIN(2.0*ANG)) DELA = XD*YD YMN = (YS(J,I)+YS(J,I-1)+YP(J,I)+YP(J,I-1))/4.0-YINT XMN = (XS(J,I)+XS(J,I-1)+XP(J,I)+XP(J,I-1))/4.0-XINT IX = IX + IXN + DELA*YMN*YMN IY = IY + IYN + DELA*XMN*XMN 1150 IXY = IXY+ IXYN+ DELA*YMN*XMN ANG = ATAN(2.0*IXY/(IY-IX)) IPX = (IX+IY)/2.0+(IX-IY)/2.0*COS(ANG)-IXY*SIN(ANG) IPY = (IX+IY)/2.0-(IX-IY)/2.0*COS(ANG)+IXY*SIN(ANG) ANG = ANG/2.0*C1 IF (IPRINT.EQ.1 .OR. IPRINT.EQ.3) GO TO 1320 IF (LNCT .LE. 45) GO TO 1160 IF (IPRTC .NE. 0) WRITE (LOG2,200) LNCT = 1 1160 LNCT = LNCT + 16 IF (IPRTC .EQ. 1) WRITE (LOG2,1170) J,ZOUT(J),AREA,XINT,YINT,IX, 1 IY,IXY,IPX,ANG,IPY,ANG 1170 FORMAT (/50X,14HSECTION NUMBER,I3,3X,5H Z =,F9.4, /50X, 34H*** 1*******************************, ///20X,18HSECTION PROPERTIES,7X,1 22HSECTION AREA,26X,1H=,1P,E12.4,//45X,20HLOCATION OF CENTROID,11X, 34HXBAR,3X,1H=,E12.4, /45X,22HRELATIVE TO STACK AXIS,9X,4HYBAR,3X,1 4H=,E12.4, //45X,22HSECOND MOMENTS OF AREA,9X,2HIX,5X,1H=,E12.4, /4 55X,14HABOUT CENTROID,17X,2HIY,5X,1H=,E12.4, /76X,3HIXY,4X,1H=,E12. 64, //45X,24HPRINCIPAL SECOND MOMENTS,7X,3HIPX,4X,1H=,E12.4,4H (AT, 70P,F7.2,21H DEGREES TO X AXIS),/45X,22HOF AREA ABOUT CENTROID,9X 8,3HIPY,4X,1H=,1P,E12.4,4H (AT,0P,F7.2,21H DEGREES TO Y AXIS)) IF (IPRTC .EQ. 1) WRITE (LOG2,1180) TORCON 1180 FORMAT (/45X,18HTORSIONAL CONSTANT,20X,1H=,1P,E12.4, /) LNCT = LNCT + 3 IF (LNCT .LE. 50) GO TO 1190 IF(IPRTC .NE. 0) WRITE (LOG2,200) LNCT = 1 1190 LNCT = LNCT + 5 IF (IPRTC .EQ. 1) WRITE (LOG2,1200) 1200 FORMAT (/20X,19HSECTION COORDINATES, /) IF (IPRTC .EQ. 1) WRITE (LOG2,1210) 1210 FORMAT (31X,8HPOINT NO,5X,2HX1,12X,2HY1,16X,2HX2,12X,2HY2, /) DO 1220 I = 1,NPOINT LNCT = LNCT + 1 IF (LNCT .LE. 60) GO TO 1220 LNCT = 4 IF (IPRTC .NE. 0) WRITE (LOG2,200) IF (IPRTC .EQ. 1) WRITE (LOG2,1210) 1220 IF (IPRTC .EQ. 1) WRITE (LOG2,1230) I,XS(J,I),YS(J,I),XP(J,I), 1 YP(J,I) 1230 FORMAT (31X,I5,3X,1P,2E14.5,4X,1P,2E14.5) IF (LNCT.LE.55) GO TO 1240 LNCT = 1 IF (IPRTC .NE. 0) WRITE (LOG2,200) 1240 LNCT = LNCT + 3 IF (IPRTC.EQ.1 .AND. ISECN.EQ.2) WRITE (LOG2,1260) IF (ISECN .EQ. 2) GO TO 1270 IF (IPRTC .EQ. 1) WRITE (LOG2,1250) 1250 FORMAT (/31X,8HPOINT NO,5X,5HXSEMI,9X,5HYSEMI, /) 1260 FORMAT (/31X,8HPOINT NO,5X,5HXSEMI,9X,5HYSEMI,12X,5HXSEMJ,9X, 1 5HYSEMJ, /) 1270 DO 1300 I = 1,31 LNCT = LNCT + 1 IF (LNCT .LE. 60) GO TO 1290 IF (IPRTC .NE. 0) WRITE (LOG2,200) IF (IPRTC.EQ.1 .AND. ISECN.EQ.2) WRITE (LOG2,1260) IF (ISECN .EQ. 2) GO TO 1280 IF (IPRTC .EQ. 1) WRITE (LOG2,1250) 1280 LNCT = 4 1290 IF (IPRTC.EQ.1 .AND. ISECN.EQ.2) WRITE (LOG2,1230) I,XSEMI(J,I), 1 YSEMI(J,I),XSEMJ(J,I),YSEMJ(J,I) IF (ISECN .EQ. 2) GO TO 1300 IF (IPRTC .EQ. 1) WRITE (LOG2,1310) I,XSEMI(J,I),YSEMI(J,I) 1300 CONTINUE 1310 FORMAT (31X,I5,3X,1P,2E14.5) 1320 IF (IFPLOT .LT. 2) GO TO 1460 IF (IFPLOT .EQ. 4) GO TO 1380 XPLOT = XS(J,1)*SCALE YPLOT = YS(J,1)*SCALE DO 1330 I = 2,NPOINT XPLOT = XS(J,I)*SCALE YPLOT = YS(J,I)*SCALE 1330 CONTINUE IF (ISECN .NE. 2) GO TO 1350 DO 1340 I = 2,30 XPLOT = XSEMJ(J,I)*SCALE YPLOT = YSEMJ(J,I)*SCALE 1340 CONTINUE 1350 DO 1360 II = 1,NPOINT I = NPOINT + 1 - II XPLOT = XP(J,I)*SCALE YPLOT = YP(J,I)*SCALE 1360 CONTINUE DO 1370 I = 2,30 XPLOT = XSEMI(J,I)*SCALE YPLOT = YSEMI(J,I)*SCALE 1370 CONTINUE XPLOT = XS(J,1)*SCALE YPLOT = YS(J,1)*SCALE GO TO 1460 1380 CONTINUE XJ = J STAGER = ATAN((YS(J,NPOINT)+YP(J,NPOINT)-YS(J,1)-YP(J,1))/ 1 (XS(J,NPOINT)+XP(J,NPOINT)-XS(J,1)-XP(J,1)))*C1 XSIGN = FLOAT(NSIGN) SINSTG = SIN(STAGER/C1) COSSTG = COS(STAGER/C1) YPLOT = 4.75 XPLOT = 4.75*SINSTG/COSSTG IF (ABS(XPLOT) .LE. 22.0) GO TO 1390 XPLOT = 22.0 YPLOT =-22.0/SINSTG*COSSTG 1390 CONTINUE XPLOT = -XPLOT YPLOT = -YPLOT XPLOT = 22.0 YPLOT =-22.0*SINSTG/COSSTG IF (ABS(YPLOT) .LE. 4.75) GO TO 1400 YPLOT =-4.75 XPLOT = 4.75/SINSTG*COSSTG 1400 CONTINUE XPLOT = -XPLOT YPLOT = -YPLOT XPLOT = SCALE*(XS(J,1)*COSSTG+YS(J,1)*SINSTG) YPLOT = SCALE*(YS(J,1)*COSSTG-XS(J,1)*SINSTG) DO 1410 I = 2,NPOINT XPLOT = SCALE*(XS(J,I)*COSSTG+YS(J,I)*SINSTG) YPLOT = SCALE*(YS(J,I)*COSSTG-XS(J,I)*SINSTG) 1410 CONTINUE IF (ISECN.NE.2) GO TO 1430 DO 1420 I = 2,30 XPLOT = SCALE*(XSEMJ(J,I)*COSSTG+YSEMJ(J,I)*SINSTG) YPLOT = SCALE*(YSEMJ(J,I)*COSSTG-XSEMJ(J,I)*SINSTG) 1420 CONTINUE 1430 DO 1440 II = 1,NPOINT I = NPOINT + 1 - II XPLOT = SCALE*(XP(J,I)*COSSTG+YP(J,I)*SINSTG) YPLOT = SCALE*(YP(J,I)*COSSTG-XP(J,I)*SINSTG) 1440 CONTINUE DO 1450 I = 2,30 XPLOT = SCALE*(XSEMI(J,I)*COSSTG+YSEMI(J,I)*SINSTG) YPLOT = SCALE*(YSEMI(J,I)*COSSTG-XSEMI(J,I)*SINSTG) 1450 CONTINUE XPLOT = SCALE*(XS(J,1)*COSSTG+YS(J,1)*SINSTG) YPLOT = SCALE*(YS(J,1)*COSSTG-XS(J,1)*SINSTG) 1460 CONTINUE 1470 CONTINUE IF (INAST .EQ. 0) GO TO 1580 XSIGN = FLOAT(NSIGN) WRITE (LOG2,1471) 1471 FORMAT (1H0,10X,34HNASTRAN COMPRESSOR BLADE BULK DATA , /10X, 1 36(1H*), //) IF (IPGEOM .EQ. 1) GO TO 1562 WRITE (LOG2,1472) 1472 FORMAT (11X,30H*** CTRIA2 AND PTRIA2 DATA ***, /) NSTAD = IRTE - IRLE + 1 JLOOP = 0 NELEM = 0 NSTRD = NLINES - 1 IRT = IRTE - 1 NT = 1995 DO 1520 J = 1,NSTRD DO 1510 I = IRLE,IRT NELEM = NELEM + 1 IGRD1 = I - 1 + JLOOP IGRD3 = IGRD1 + NSTAD IGRD2 = IGRD1 + NSTAD + 1 NT = NT + 5 WRITE (LPUNCH,1530) NELEM,NT,IGRD1,IGRD2,IGRD3 WRITE (LOG2,1531) NELEM,NT,IGRD1,IGRD2,IGRD3 IF (ABS(FLOAT(INAST)) .GT. 3.5) GO TO 1480 THCK = (THARR(J,I)+THARR(J+1,I)+THARR(J+1,I+1))/3. PRES =-XSIGN*(BLAFOR(I,J)+BLAFOR(I,J+1)+BLAFOR(I+1,J+1))/3. GO TO 1490 1480 THCK = (THARR(J,I)+THARR(J+1,I)+THARR(J+1,I+1)+THARR(J,I+1))/4. PRES =-XSIGN*(BLAFOR(I,J)+BLAFOR(I,J+1)+BLAFOR(I+1,J+1)+ 1 BLAFOR(I+1,J))/4. 1490 WRITE (LPUNCH,1540) NT,THCK WRITE (LOG2,1541) NT,THCK IF (INAST .GT. 0) WRITE (LPUNCH,1550) PRES,NELEM IF (INAST .GT. 0) WRITE (LOG2,1551) PRES,NELEM NELEM = NELEM + 1 IGRD3 = IGRD2 IGRD2 = IGRD1 + 1 IF (ABS(FLOAT(INAST)) .GT. 3.5) GO TO 1500 NT = NT + 5 THCK = (THARR(J,I)+THARR(J,I+1)+THARR(J+1,I+1))/3. PRES = -XSIGN*(BLAFOR(I,J)+BLAFOR(I+1,J)+BLAFOR(I+1,J+1))/3. WRITE (LPUNCH,1540) NT,THCK WRITE (LOG2,1541) NT,THCK 1500 WRITE (LPUNCH,1530) NELEM,NT,IGRD1,IGRD2,IGRD3 WRITE (LOG2,1531) NELEM,NT,IGRD1,IGRD2,IGRD3 IF (INAST .GT. 0) WRITE (LPUNCH,1550) PRES,NELEM IF (INAST .GT. 0) WRITE (LOG2,1551) PRES,NELEM 1510 CONTINUE 1520 JLOOP = JLOOP + NSTAD 1530 FORMAT (6HCTRIA2,7X,I3,4X,I4,3(5X,I3)) 1531 FORMAT (1X,6HCTRIA2,7X,I3,4X,I4,3(5X,I3)) 1540 FORMAT (6HPTRIA2,6X,I4,7X,1H1,F8.4,6X,2H0.) 1541 FORMAT (1X,6HPTRIA2,6X,I4,7X,1H1,F8.4,6X,2H0.) 1550 FORMAT (6HPLOAD2,8X,2H60,F8.4,5X,I3) 1551 FORMAT (1X,6HPLOAD2,8X,2H60,F8.4,5X,I3) 1560 FORMAT (4HGRID,9X,I3,8X,3F8.4) 1561 FORMAT (1X,4HGRID,9X,I3,8X,3F8.4) 1562 CONTINUE WRITE (LOG2,1563) 1563 FORMAT (1H0,10X,29H*** BLADE GRID POINT DATA *** ,/) JD = 0 DO 1570 J = 1,NLINES DO 1570 I = IRLE,IRTE JD = JD + 1 YCAMB(J,I) = -XSIGN*YCAMB(J,I) WRITE (LOG2,1561) JD,XCAMB(J,I),YCAMB(J,I),ZCAMB(J,I) 1570 WRITE (LPUNCH,1560) JD,XCAMB(J,I),YCAMB(J,I),ZCAMB(J,I) IF (ISTRML.EQ.-1 .OR. ISTRML.EQ.2) GO TO 1580 WRITE (LOG2,1571) 1571 FORMAT (1H0,10X,27H*** BLADE STREAML1 DATA ***,/) NSTAD = IRTE - IRLE + 1 NSTAD1 = NSTAD - 1 DO 1572 J = 1,NLINES ND1 = (J-1)*NSTAD + 1 ND2 = ND1 + NSTAD1 WRITE (LPUNCH, 1573) J,ND1,ND2 1572 WRITE (LOG2,1574) J,ND1,ND2 1573 FORMAT (8HSTREAML1,I8,I8,8H THRU ,I8) 1574 FORMAT (1X,8HSTREAML1,I8,I8,8H THRU ,I8) 1580 CONTINUE IF (NAERO.EQ.1 .OR. IPUNCH.EQ.1) CALL ALG19 (LOG1,LOG2,LOG3,LOG5, 1 NLINES,NSPEC,KPTS,RSTA,XSTA,R,ZR,B1,B2,TC,PI,C1,NBLADE,CCORD, 2 BLOCK,ALPB,EPSLON,IFANGS,IPUNCH,NAERO) C IF (IFPLOT .NE. 0) CALL PLOT (0.0,0.0,-3) RETURN END ================================================ FILE: mis/algap.f ================================================ SUBROUTINE ALGAP (IFNAME,IFNM) C C THIS ROUTINE IS A MODIFIED VERSION OF SUBROUTINE TABPCH. IT WILL C ONLY PUNCH ONE TABLE INTO DTI CHARDS. C C CONTINUATION CARD CHARACTERS ARE - AL. C C SINGLE FIELD CARDS WILL BE MADE UNLESS REAL NUMBERS ARE TO BE MADE C ALL REAL NUMBERS ARE ASSUMED TO BE SINGLE PRECISION. C C $MIXED_FORMATS C INTEGER SYSBUF ,IZ(10) ,NAME(2) ,INT(2) ,IREAL(2) , 1 MCB(7) ,FILE ,TABNM(2) ,DTI(2) ,DTIS(2) , 2 IDATA(20),ENDREC(2),OUT ,IFORM(20),BLANK , 3 IBCD(2) ,INTD(2) ,IBCDD(2) ,PFORM(30),LL(4) , 4 FORM(30,2) ,FORMS(30,2) REAL RDATA(20) CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /SYSTEM/ KSYSTM(100) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (KSYSTM( 1),SYSBUF),(KSYSTM(2),OUT ), 1 (KSYSTM(91),LPUNCH),(IZ(1) ,Z(1)), 2 (IDATA(1),RDATA(1)) DATA BLANK / 1H / DATA DTI / 4HDTI , 1H / DATA DTIS / 4HDTI*, 1H / DATA ENDREC/ 4HENDR, 4HEC / DATA FORMS / 4H(2A4, 26*4H ,4H,1H+ ,4HA2,I,4H5) , 1 4H(A1,, 4HA2,I ,4H5 ,24*4H ,4H,1H+ , 2 4HA2,I, 4H5) / DATA IBCD / 4H,2A4, 1H / DATA IBCDD / 4H,2A4, 4H,8X / DATA INT / 4H,I8 , 1H / DATA INTD / 4H,I16, 1H / DATA IPLUS / 1H+ / DATA IREAL / 4H,E16, 4H.9 / DATA ISTAR / 1H* / DATA NAME / 4HALGA, 4HP / DATA N1 / 2HAL / DATA LL / 3, 1, 3, 2 / C NZ = KORSZ(Z) IBUF = NZ - SYSBUF + 1 NZ = IBUF - 1 IF (NZ .LE. 10) CALL MESAGE (-8,0,NAME) NREAD = NZ/2 - 2 NLIST = NREAD + 3 DO 5 J = 1,2 DO 5 I = 1,30 FORM(I,J) = FORMS(I,J) 5 CONTINUE C C FOR EACH TABLE DEFINED C MCB(1) = IFNM CALL RDTRL(MCB) IF (MCB(1) .LE. 0) GO TO 310 C C TABLE EXISTS SET IT UP C FILE = IFNM CALL OPEN (*320,FILE,IZ(IBUF),0) CALL READ (*340,*350,FILE,IZ(1),-2,0,ILEN) CALL FNAME (IFNAME,TABNM) IRECNO = 0 ICHR = N1 IZ(3) = 0 C C SET UP FIRST RECORD C IZ(1) = TABNM(1) IZ(2) = TABNM(2) IZ(4) = MCB(2) IZ(5) = MCB(3) IZ(6) = MCB(4) IZ(7) = MCB(5) IZ(8) = MCB(6) IZ(9) = MCB(7) CALL READ (*290,*10,FILE,IZ(10),NREAD,0,ILEN) CALL MESAGE (-8,0,NAME) 10 ILEN = ILEN + 11 11 IZ(ILEN-1) = ENDREC(1) IZ(ILEN ) = ENDREC(2) GO TO 40 C C BRING IN NEXT RECORD C 20 CALL READ (*290,*30,FILE,IZ(4),NREAD,0,ILEN) CALL MESAGE (-8,0,NAME) 30 IZ(3) = IZ(3) + 1 IF (ILEN .EQ. 0) GO TO 20 ILEN = ILEN + 5 GO TO 11 C C BUILD FORMAT VECTOR 1= INTEGER, 2 =BCD, 3=REAL C 40 DO 50 K = 1,ILEN M = NLIST + K - 1 J = NUMTYP(IZ(K)) IZ(M) = LL(J+1) 50 CONTINUE C C MOVE DATA/FORMAT TO DATA AREA 8 FIELDS AT A TIME--SET D.F. FLAG C ID = 1 IF = NLIST IFRS = 1 C C HERE FOR EIGHT MORE WORDS C 60 IDF = 0 IDT = 1 IFT = 1 NF = 1 C C HERE FOR EACH FIELD C 70 IDATA(IDT) = IZ(ID) IFORM(IFT) = IZ(IF) IF (IFORM(IFT) .EQ. 3) IDF = 1 IF (IFORM(IFT) .NE. 2) GO TO 80 C C BCD IS TWO WORDS C IDATA(IDT+1) = IZ(ID+1) C C MAY BE FALSE BCD, CHECK FORMAT OF SECOND WORD ALSO C ( SOME REAL NUMBER BIT PATTERNS LOOK LIKE BCD ). C IF (IZ(IF+1) .EQ. 2) GO TO 100 C C SECOND WORD IS NOT BCD, ASSUME FIRST WORD IS REAL. C IDF = 1 IFORM(IFT) = 3 GO TO 80 100 IDT = IDT + 2 IFT = IFT + 1 ID = ID + 2 IF = IF + 2 GO TO 90 C C REAL OR INTEGER C 80 IDT = IDT + 1 IFT = IFT + 1 ID = ID + 1 IF = IF + 1 C C BUMP FIELD COUNTER C 90 NF = NF + 1 IF (NF .GT. 8) GO TO 110 IF (ID .LT. ILEN) GO TO 70 C C FILL WITH BLANKS C IDATA(IDT ) = BLANK IDATA(IDT+1) = BLANK IFORM(IFT ) = 2 GO TO 100 C C PUNCH OUT 8 FIELDS OF DATA C 110 IDT = 0 IF (IDF .NE. 0) GO TO 200 C C SINGLE FIELD CARD C NF = 1 120 M = 2*NF + 2 IF (IFORM(NF)-2) 130,150,160 C C INTEGER C 130 FORM(M ,IFRS) = INT(1) FORM(M+1,IFRS) = INT(2) C C GET NEXT ITEM C IDT = IDT + 1 140 NF = NF + 1 IF (NF .LE. 8) GO TO 120 GO TO 170 C C BCD C 150 FORM(M ,IFRS) = IBCD(1) FORM(M+1,IFRS) = IBCD(2) IDT = IDT + 2 GO TO 140 C C REAL NOT LEGAL C 160 CALL MESAGE (-61,0,NAME) RETURN C C PUNCH OUT SINGLE CARD C 170 IF (IFRS .NE. 1) GO TO 190 DO 171 J = 1,30 PFORM(J) = FORM(J,1) 171 CONTINUE WRITE (LPUNCH,PFORM,ERR=173) DTI,(RDATA(M),M=1,IDT),ICHR,IRECNO 173 IRECNO = IRECNO + 1 IFRS = 2 DO 175 J = 1,30 175 FORM(J,1) = FORMS(J,1) 180 IF (ID .GE. ILEN) GO TO 20 GO TO 60 C C CONTINUATION CARD C 190 IRCNM1 = IRECNO - 1 DO 191 J = 1,30 PFORM(J) = FORM(J,2) 191 CONTINUE WRITE (LPUNCH,PFORM,ERR=193) 1 IPLUS,ICHR,IRCNM1,(RDATA(M),M=1,IDT),ICHR,IRECNO 193 IRECNO = IRECNO + 1 DO 195 J = 1,30 195 FORM(J,2) = FORMS(J,2) GO TO 180 C C DOUBLE FIELD CARDS C 200 NF = 1 IS = 1 IT = 4 IDT= 0 M = 2 210 M = M + 2 IF (IFORM(NF)-2) 211,240,250 C C INTEGER C 211 FORM(M ,IFRS) = INTD(1) FORM(M+1,IFRS) = INTD(2) 220 IDT = IDT + 1 230 NF = NF + 1 IF (M .LE. 8) GO TO 210 GO TO 260 C C BCD C 240 FORM(M ,IFRS) = IBCDD(1) FORM(M+1,IFRS) = IBCDD(2) IDT = IDT + 2 GO TO 230 C C REAL C 250 FORM(M ,IFRS) = IREAL(1) FORM(M+1,IFRS) = IREAL(2) GO TO 220 C C PUNCH OUT DOUBLE FIELD CARD C 260 IF (IFRS .NE. 1) GO TO 280 DO 261 J = 1,30 PFORM(J) = FORM(J,1) 261 CONTINUE WRITE (LPUNCH,PFORM,ERR=263) DTIS,(RDATA(M),M=IS,IDT),ICHR,IRECNO 263 IRECNO = IRECNO + 1 DO 265 J = 1,30 265 FORM(J,1) = FORMS(J,1) IFRS = 2 270 IT = 8 M = 2 IS = IDT + 1 GO TO 210 C C CONTINUATION CARD C 280 IRCNM1 = IRECNO - 1 DO 281 J = 1,30 PFORM(J) = FORM(J,2) 281 CONTINUE WRITE (LPUNCH,PFORM,ERR=283) 1 ISTAR,ICHR,IRCNM1,(RDATA(M),M=IS,IDT),ICHR,IRECNO 283 IRECNO = IRECNO + 1 DO 285 J = 1,30 285 FORM(J,2) = FORMS(J,2) IF (IT .EQ. 4) GO TO 270 GO TO 180 C C CLOSE OFF FILES C 290 CALL CLOSE (FILE,1) WRITE (OUT,300) UIM,TABNM,IRECNO 300 FORMAT (A29,' 4015.', /5X,'TABLE NAMED ',2A4,' PUNCHED ONTO',I9, 1 ' CARDS.') 310 CONTINUE WRITE (LPUNCH,311) 311 FORMAT (1H , /,1H , /,1H ) RETURN C C ERROR MESAGES C 320 IP1 = -1 330 CALL MESAGE (IP1,FILE,NAME) CALL MESAGE (-61,0,NAME) 340 IP1 =-2 GO TO 330 350 IP1 =-3 GO TO 330 END ================================================ FILE: mis/algar.f ================================================ SUBROUTINE ALGAR C REAL LOSS,LAMI,LAMIP1,LAMIM1 C DIMENSION XX1(21),XX2(21),XX3(21),XX4(21),VMOLD(21),VMLOLD(21) DIMENSION DELTAR(59,30),PASS(59) C COMMON /UD3PRT/ IPRTC COMMON /CONTRL/ NANAL,NAERO,NARBIT,LOQ1,LOQ2,LOQ3,LOQ4,LOQ5,LOQ6 COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD, 1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL, 2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3, 3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30), 4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30) 5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30), 6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30), 7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30), 8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4), 9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100), 1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100), 2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10), 3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150), 4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30), 5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21), 6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21), 7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK, 8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST, 9FM2,HMIN,C1,PI,CONTR,CONMX C IF = 0 LOG1=LOQ1 LOG2=LOQ2 LOG3=LOQ3 LOG5=LOQ5 LOG6=LOQ6 IF (IPRTC .EQ. 1) WRITE(LOG2,1) 1 FORMAT(1HT) PI=3.141592653589 C1=180.0/PI HMIN=50.0 VMIN = 25.0 IF (IPRTC .EQ. 1) WRITE(LOG2,50) 50 FORMAT(1H1,37X, 53HPROGRAM ALG - COMPRESSOR DESIGN - AERODYNAMIC S 1ECTION,/,38X,53(1H*)) LNCT=2 CALL ALG02 ICASE=1 100 IF (IPRTC .EQ. 1) WRITE(LOG2,104) ICASE 104 FORMAT(1H1,9X,20HOUTPUT FOR POINT NO.,I2,/,10X,22(1H*)) LNCT=2 DO 106 I=1,30 DO 106 J=1,59 106 DELTAR(J,I)=0.0 IF((ICASE.EQ.1.AND.NREAD.EQ.1).OR.(ICASE.GT.1.AND.IFAILK.EQ.0))GO 1TO 254 IF(NSPLIT.EQ.1)GO TO 170 L1=NSPEC(1) XX1(1)=0.0 DO 110 K=2,L1 110 XX1(K)=XX1(K-1)+SQRT((RSTN(K)-RSTN(K-1))**2+(XSTN(K)-XSTN(K-1))**2 1) X1=1.0/XX1(L1) DO 120 K=2,L1 120 XX1(K)=XX1(K)*X1 DO 130 K=1,11 130 XX2(K)=FLOAT(K-1)*0.1 CALL ALG01(XX1,XSTN,L1,XX2,XX3,X1,11,0,0) CALL ALG01(XX1,RSTN,L1,XX2,XX4,X1,11,0,0) DO 136 K=2,11 XX1(K)=XX1(K-1)+SQRT((XX3(K)-XX3(K-1))**2+(XX4(K)-XX4(K-1))**2) 136 XX3(K-1)=(XX1(K)+XX1(K-1))*0.5 L2=IS1(2) XX2(1)=ATAN2(RSTN(L2)-RSTN(1),XSTN(L2)-XSTN(1)) L2=L2+NSPEC(2)-1 XX2(2)=ATAN2(RSTN(L2)-RSTN(L1),XSTN(L2)-XSTN(L1)) XI(1)=0.0 XI(2)=XX1(11) CALL ALG01(XI,XX2,2,XX3,PHI,X1,10,1,0) CALL ALG01(RSTN,XSTN,L1,XX3,X1,GAMA,10,0,1) XX3(1)=0.0 DO 140 K=2,11 140 XX3(K)=XX3(K-1)+COS(PHI(K-1)+ATAN(GAMA(K-1)))*(XX4(K)+XX4(K-1))*(X 1X1(K)-XX1(K-1)) X1=1.0/XX3(11) X2=1.0/XX1(11) DO 150 K=2,11 XX1(K)=XX1(K)*X2 150 XX3(K)=XX3(K)*X1 X1=1.0/FLOAT(ITUB) DO 160 K=1,NSTRMS 160 XX2(K)=FLOAT(K-1)*X1 CALL ALG01(XX1,XX3,11,XX2,DELF,X1,NSTRMS,1,0) 170 DO 250 I=1,NSTNS L1=IS1(I) L2=NSPEC(I) XX1(1)=0.0 VV(1)=0.0 DO 180 K=2,L2 L3=L1+K-1 180 VV(K)=VV(K-1)+SQRT((RSTN(L3)-RSTN(L3-1))**2+(XSTN(L3)-XSTN(L3-1))* 1*2) X1=1.0/VV(L2) DO 190 K=2,L2 190 XX1(K)=VV(K)*X1 DO 200 K=1,11 200 XX2(K)=FLOAT(K-1)*0.1 CALL ALG01(XX1,XSTN(L1),L2,XX2,XX3,X1,11,0,0) CALL ALG01(XX1,RSTN(L1),L2,XX2,XX4,X1,11,0,0) DO 230 K=2,11 XX1(K)=XX1(K-1)+SQRT((XX3(K)-XX3(K-1))**2+(XX4(K)-XX4(K-1))**2) GAMA(K-1)=(XX4(K)+XX4(K-1))*0.5 230 XX3(K-1)=(XX1(K)+XX1(K-1))*0.5 IF(I.EQ.1.OR.I.EQ.NSTNS)GO TO 234 L3=IS1(I+1) L4=IS1(I-1) L5=L1 XX2(1)=(ATAN2(RSTN(L3)-RSTN(L5),XSTN(L3)-XSTN(L5))+ATAN2(RSTN(L5)- 1RSTN(L4),XSTN(L5)-XSTN(L4)))*0.5 L3=L3+NSPEC(I+1)-1 L4=L4+NSPEC(I-1)-1 L5=L5+L2-1 XX2(2)=(ATAN2(RSTN(L3)-RSTN(L5),XSTN(L3)-XSTN(L5))+ATAN2(RSTN(L5)- 1RSTN(L4),XSTN(L5)-XSTN(L4)))*0.5 GO TO 238 234 IF(I.EQ.NSTNS)GO TO 236 L3=IS1(2) XX2(1)=ATAN2(RSTN(L3)-RSTN(1),XSTN(L3)-XSTN(1)) L4=NSPEC(1) L3=L3+NSPEC(2)-1 XX2(2)=ATAN2(RSTN(L3)-RSTN(L4),XSTN(L3)-XSTN(L4)) GO TO 238 236 L4=IS1(I-1) XX2(1)=ATAN2(RSTN(L1)-RSTN(L4),XSTN(L1)-XSTN(L4)) L4=L4+NSPEC(I-1)-1 L3=L1+L2-1 XX2(2)=ATAN2(RSTN(L3)-RSTN(L4),XSTN(L3)-XSTN(L4)) 238 XI(1)=0.0 XI(2)=XX1(11) CALL ALG01(XI,XX2,2,XX3,PHI,X1,10,1,0) CALL ALG01(RSTN(L1),XSTN(L1),L2,GAMA,X1,GAMA,10,0,1) XX3(1)=0.0 DO 240 K=2,11 240 XX3(K)=XX3(K-1)+COS(PHI(K-1)+ATAN(GAMA(K-1)))*(XX4(K)+XX4(K-1))*(X 1X1(K)-XX1(K-1)) X1=1.0/XX3(11) DO 244 K=2,11 244 XX3(K)=XX3(K)*X1 CALL ALG01(XX3,XX1,11,DELF,XL(1,I),X1,NSTRMS,1,0) X1=VV(L2)/XX1(11) DO 246 J=2,NSTRMS 246 XL(J,I)=XL(J,I)*X1 CALL ALG01(VV,XSTN(L1),L2,XL(1,I),X(1,I),X1,NSTRMS,0,0) 250 CALL ALG01(VV,RSTN(L1),L2,XL(1,I),R(1,I),X1,NSTRMS,0,0) 254 IF(ICASE.GT.1)GO TO 270 X1=(X(IMID,2)-X(IMID,1))**2+(R(IMID,2)-R(IMID,1))**2 DRDM2(1)=((R(NSTRMS,1)-R(1,1))**2+(X(NSTRMS,1)-X(1,1))**2)/X1 L1=NSTNS-1 DO 260 I=2,L1 X2=(X(IMID,I+1)-X(IMID,I))**2+(R(IMID,I+1)-R(IMID,I))**2 X3=X2 IF(X1.LT.X3)X3=X1 DRDM2(I)=((R(NSTRMS,I)-R(1,I))**2+(X(NSTRMS,I)-X(1,I))**2)/X3 260 X1=X2 DRDM2(NSTNS)=((R(NSTRMS,NSTNS)-R(1,NSTNS))**2+(X(NSTRMS,NSTNS)-X(1 1,NSTNS))**2)/X2 270 DO 280 I=1,NSTNS 280 WWBL(I)=WBLOCK(I) IPASS=1 290 I=1 IF((IPASS.GT.1.OR.ICASE.GT.1).AND.NDATA(1).EQ.1)GO TO 400 L1=NDIMEN(1)+1 GO TO(300,320,340,360),L1 300 DO 310 J=1,NSTRMS 310 XX1(J)=R(J,1) GO TO 380 320 DO 330 J=1,NSTRMS 330 XX1(J)=R(J,1)/R(NSTRMS,1) GO TO 380 340 DO 350 J=1,NSTRMS 350 XX1(J)=XL(J,1) GO TO 380 360 DO 370 J=1,NSTRMS 370 XX1(J)=XL(J,1)/XL(NSTRMS,1) 380 L1=NTERP(1) L2=NDATA(1) CALL ALG01(DATAC,DATA1,L2,XX1,S ,X1,NSTRMS,L1,0) CALL ALG01(DATAC,DATA2,L2,XX1,H ,X1,NSTRMS,L1,0) CALL ALG01(DATAC,DATA3,L2,XX1,TBETA,X1,NSTRMS,L1,0) DO 390 J=1,NSTRMS H(J,1)=ALG6(S(J,1),H(J,1)) S(J,1)=ALG3(S(J,1),H(J,1)) 390 TBETA(J,1)=TAN(TBETA(J,1)/C1) 400 IF(IPASS.GT.1.OR.ICASE.GT.1)GO TO 420 X1=FLOW(1)/(ALG5(H,S)*PI*(R(NSTRMS,1)+R(1,1))*XL(NSTRMS,1))*SCLFAC 1**2 DO 410 J=1,NSTRMS 410 VM(J,1)=X1 IF(ISTAG.EQ.1)VM(1,1)=0.0 420 IFAILO=0 IFFAIL=0 IVFAIL=0 DO 430 J=1,NSTRMS 430 VMOLD(J)=VM(J,1) GO TO 500 440 IF(IPASS.GT.1)GO TO 460 DO 450 J=1,NSTRMS 450 VM(J,I)=VM(J,I-1) IF(I-1.EQ.ISTAG)VM(1,I)=VM(2,I) IF(I.EQ.ISTAG)VM(1,I)=0.0 460 ILOSS=1 DO 464 J=1,NSTRMS 464 VMOLD(J)=VM(J,I) 470 DO 474 J=1,NSTRMS VWKEEP(J)=VW(J,I-1) SKEEP(J)=S(J,I-1) 474 HKEEP(J)=H(J,I-1) X1=H(IMID,I-1)-(VM(IMID,I-1)**2+VW(IMID,I-1)**2)/(2.0*G*EJ) IF(X1.LT.HMIN)X1=HMIN PSMID=ALG4(X1,S(IMID,I-1)) IF(NMIX.EQ.1)CALL ALG04(H(1,I-1),S(1,I-1),VW(1,I-1),R(1,I-1),R(1, 1I),X(1,I-1),X(1,I),VM(1,I-1),CONMX,SCLFAC,G,EJ,HMIN,VMIN,PSMID,NST 2RMS,LOG2,LNCT,IF) IF(IF.EQ.0)GO TO 478 IFAILO=I-1 GO TO 640 478 IF(NWORK(I).EQ.0)GO TO 480 CALL ALG05 IF(NTRANS.EQ.1.AND.IPASS.GT.1)CALL ALG06(R(1,I-1),R(1,I),X(1,I-1) 1,X(1,I),H(1,I),S(1,I),VM(1,I),TBETA(1,I-1),TBETA(1,I),LOSS,CONTR,S 2CLFAC,SPEED(I),SPDFAC(ICASE),G,EJ,HMIN,NSTRMS,PI) ITER=0 CALL ALG07 GO TO 500 480 DO 490 J=1,NSTRMS H(J,I)=H(J,I-1) S(J,I)=S(J,I-1) VW(J,I)=0.0 IF(I.GT.ISTAG.OR.J.NE.1)VW(J,I)=VW(J,I-1)*RIM1(J)/R(J,I) 490 CONTINUE 500 DO 510 J=1,NSTRMS 510 VMLOLD(J)=VM(J,I) IF(NEQN.GE.2)GO TO 514 CALL ALG08 GO TO 516 514 CALL ALG26 516 IF(NEVAL(I).LE.0)GO TO 590 IPRINT=0 CALL ALG09 IF(IFAILO.NE.0.AND.IPASS.GT.NFORCE)GO TO 550 DO 520 J=1,NSTRMS IF(ABS(VM(J,I)/VMLOLD(J)-1.0).GT.TOLNCE/5.0)GO TO 530 520 CONTINUE GO TO 590 530 IF(ILOSS.GE.NLITER(I))GO TO 550 ILOSS=ILOSS+1 DO 540 J=1,NSTRMS 540 VMLOLD(J)=VM(J,I) GO TO 470 550 IF(IPASS.LE.NFORCE)GO TO 590 IF(LNCT+1.LE.NPAGE)GO TO 570 IF (IPRTC .EQ. 1) WRITE(LOG2,560) 560 FORMAT(1H1) LNCT=1 570 LNCT=LNCT+1 X1=VM(1,I)/VMLOLD(1) X2=VM(IMID,I)/VMLOLD(IMID) X3=VM(NSTRMS,I)/VMLOLD(NSTRMS) IF (IPRTC .EQ. 1) WRITE(LOG2,580) IPASS,I,X1,X2,X3 580 FORMAT(5X,4HPASS,I3,9H STATION,I3,66H VM PROFILE NOT CONVERGED W 1ITH LOSS RECALC VM NEW/VM PREV HUB=,F9.6,6H MID=,F9.6,7H CASE 2=,F9.6) 590 IF(NBL.EQ.1.AND.(IFAILO.EQ.0.OR.IPASS.LE.NFORCE))CALL ALG10 DO 600 J=1,NSTRMS XIM1(J)=X(J,I) RIM1(J)=R(J,I) IF(I.EQ.ISTAG.AND.J.EQ.1)GO TO 600 IF(ABS(VM(J,I)/VMOLD(J)-1.0).GT.TOLNCE)IVFAIL=IVFAIL+1 IF(ABS(DELW(J)-DELF(J)).GT.TOLNCE)IFFAIL=IFFAIL+1 600 CONTINUE IF(NMAX.EQ.1.OR.(IPASS.EQ.1.AND.NREAD.EQ.1))GO TO 624 X1=FM2 IF(X1.LT.1.0-XMMAX)X1=1.0-XMMAX X2=1.0 IF(I.EQ.1.OR.NWORK(I).GE.5)X2=1.0+TBETA(IMID,I)**2 X1=1.0/(1.0+X1*DRDM2(I)/(RCONST*X2)) L3=NSTRMS-2 CALL ALG01(DELW,XL(1,I),NSTRMS,DELF(2),XX1(2),X1,L3,1,0) XX=XL(IMID,I) DO 610 J=2,ITUB 610 XL(J,I)=XL(J,I)+X1*(XX1(J)-XL(J,I)) L1=IPASS IF(L1.LE.59)GO TO 618 L1=59 DO 616 K=1,58 616 DELTAR(K,I)=DELTAR(K+1,I) 618 DELTAR(L1,I)=XL(IMID,I)-XX L1=IS1(I) L2=NSPEC(I) XX1(1)=0.0 DO 620 K=2,L2 KK=L1-1+K 620 XX1(K)=XX1(K-1)+SQRT((XSTN(KK)-XSTN(KK-1))**2+(RSTN(KK)-RSTN(KK-1) 1)**2) CALL ALG01(XX1,RSTN(L1),L2,XL(2,I),R(2,I),X1,L3,0,0) CALL ALG01(XX1,XSTN(L1),L2,XL(2,I),X(2,I),X1,L3,0,0) 624 IF(IPASS.GT.NFORCE.AND.IFAILO.NE.0)GO TO 640 IF(I.EQ.NSTNS)GO TO 630 I=I+1 GO TO 440 630 IF(IPASS.GE.NMAX)GO TO 640 IF(IFAILO.NE.0)GO TO 635 IF(IVFAIL.EQ.0.AND.IFFAIL.EQ.0)GO TO 640 635 IPASS=IPASS+1 GO TO 290 640 CALL ALG11 L1=NSTNS IF(IFAILO.NE.0)L1=IFAILO IPRINT=1 DO 650 I=2,L1 IF(NEVAL(I).NE.0)CALL ALG09 650 CONTINUE IF(NPLOT.NE.0)CALL ALG12 IF(IFAILO.NE.0)GO TO 750 IF(NPUNCH.EQ.0)GO TO 680 WRITE(LOG3,660)(DELF(J),J=1,NSTRMS) 660 FORMAT(6F12.8) WRITE(LOG3,670)((R(J,I),X(J,I),XL(J,I),I,J,J=1,NSTRMS),I=1,NSTNS) 670 FORMAT(3F12.8,2I3) 680 DO 700 I=1,NSTNS IF(NOUT1(I).EQ.0)GO TO 700 WRITE(LOG3,690)(R(J,I),J,I,J=1,NSTRMS) 690 FORMAT(F12.8,60X,2I4) 700 CONTINUE L1=LOG3 IF(NARBIT.NE.0)L1=LOG6 DO 740 I=1,NSTNS IF(NOUT2(I).EQ.0)GO TO 740 L2=IS1(I) L3=L2+NSPEC(I)-1 WRITE(L1,710)NSPEC(I),(XSTN(K),RSTN(K),K=L2,L3) 710 FORMAT(I3,/,(2F12.7)) XN=SPEED(I) IF(I.EQ.NSTNS)GO TO 714 IF(SPEED(I).NE.SPEED(I+1).AND.NWORK(I+1).NE.0)XN=SPEED(I+1) 714 XN=XN*SPDFAC(ICASE)*PI/(30.0*SCLFAC) DO 720 J=1,NSTRMS 720 XX1(J)=ATAN((VW(J,I)-XN*R(J,I))/VM(J,I))*C1 WRITE(L1,730)(R(J,I),XX1(J),J,I,J=1,NSTRMS) 730 FORMAT(2F12.8,48X,2I4) 740 CONTINUE 750 IF(NSTPLT.EQ.0)GO TO 759 L1=IPASS IF(L1.GT.59)L1=59 DO 754 K=1,L1 754 PASS(K)=FLOAT(K) DO 758 K=1,NSTNS IF (IPRTC .EQ. 1) WRITE(LOG2,756) K 756 FORMAT(1H1,53X,19HDELTA L FOR STATION,I3,/,2X) 758 CALL ALG25(L1,IPASS,LOG2,PASS,DELTAR(1,K)) 759 IF(ICASE.GE.NCASE)GO TO 760 ICASE=ICASE+1 IFAILK=IFAILO GO TO 100 760 IF (IPRTC .EQ. 1) WRITE(LOG2,770) 770 FORMAT(1HS) RETURN END ================================================ FILE: mis/algpb.f ================================================ SUBROUTINE ALGPB (IDAT,NTYPE) C INTEGER NA(4) DATA NA / 2 , 2 , 3 , 1 / C ZERO, INTEGER, REAL, ALPHA C C RETURN FROM NUMTYP IS SET NTYPE TO C 0 - ZERO 1 - ALPHA C 1 - INTEGER 2 - INTEGER C 2 - REAL 3 - REAL C 3 - BCD C C BLANK IS ALPHA, ZERO IS INTEGER UNLESS NUMTYP SET IT TO REAL C ITYPE = NUMTYP(IDAT) + 1 NTYPE = NA(ITYPE) RETURN END ================================================ FILE: mis/algpo.f ================================================ SUBROUTINE ALGPO (SCR1) C EXTERNAL ORF INTEGER APRESS,ATEMP,STRML,NAME(2),CORWDS,ITRL(7),TWO(32), 1 ORF,CASECC,CASECA,GEOM3A,SCR1,LEND(3),SYSBUF, 2 PGEOM,RD,RDREW,WRT,WRTREW,REW,NOREW,PLOAD2(3), 3 TEMP(3),TEMPD(3),LREC(5) DIMENSION RREC(5) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / APRESS,ATEMP,STRML,PGEOM,IPRTK,IFAIL COMMON /SYSTEM/ SYSBUF,NOUT COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW,NOREW COMMON /TWO / TWO COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (LREC(1),RREC(1)) DATA LEND / 3*2147483647 / DATA NAME / 4HALG ,4H / DATA LABP / 4HPLOA/ , LABT /4HTEMP/ DATA PLOAD2/ 6809,68,199 /, TEMP/5701,57,27/, TEMPD/5641,65,98/ DATA CASECC, CASECA,GEOM3A /101,201,202/ C C ALG WILL USE OPEN CORE AT IZ C ALLOCATE OPEN CORE C NZ = KORSZ(IZ) IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF - 1 LAST = IBUF2 - 1 C C CHECK FOR SUFFICIENT CORE C IF (LAST .LE. 0) CALL MESAGE (-8,0,NAME) LEFT = CORWDS(IZ(1),IZ(LAST)) KAPERR = 0 KATERR = 0 IFAIL = 1 C C OPEN GEOM3A FOR OUTPUT OF PLOAD2 AND TEMP DATA C CALL GOPEN (GEOM3A,IZ(IBUF1),WRTREW) C C AERODYNAMIC PRESSURE SECTION C IF (APRESS .LT. 0) GO TO 20 IFILE = SCR1 CALL OPEN (*901,SCR1,IZ(IBUF2),RDREW) 8 CALL READ (*11,*10,SCR1,LREC,5,1,NWAR) 10 IF (LREC(1) .EQ. LABP) GO TO 12 GO TO 8 C C NO PLOAD2 CARDS ON SCR1 FILE C 11 KAPERR = 1 IDP = 0 CALL REWIND (SCR1) WRITE (NOUT,2001) UWM GO TO 20 12 CONTINUE C C CREATE PLOAD2 RECORD C CALL WRITE (GEOM3A,PLOAD2,3,0) IDP = LREC(3) GO TO 16 14 CALL READ (*18,*15,SCR1,LREC,5,1,NWAR) 15 IF (LREC(1) .NE. LABP) GO TO 18 16 CALL WRITE (GEOM3A,LREC(3),3,0) GO TO 14 18 CALL WRITE (GEOM3A,IZ,0,1) CALL REWIND (SCR1) C C AERODYNAMIC TEMPERATURE SECTION C 20 IF (ATEMP .LT. 0) GO TO 35 IF (APRESS .LT. 0) CALL OPEN (*901,SCR1,IZ(IBUF2),RDREW) 21 CALL READ (*23,*22,SCR1,LREC,5,1,NWAR) 22 IF (LREC(1) .EQ. LABT) GO TO 24 GO TO 21 C C NO TEMP CARDS ON SCR1 FILE C 23 KATERR = 1 IDT = 0 WRITE (NOUT,2002) UWM GO TO 35 24 CONTINUE C C CREATE TEMP RECORD C CALL WRITE (GEOM3A,TEMP,3,0) IDT = LREC(3) DTEMP = RREC(5) ITPD = 1 GO TO 28 26 CALL READ (*30,*27,SCR1,LREC,5,1,NWAR) 27 IF (LREC(1) .NE. LABT) GO TO 30 28 CALL WRITE (GEOM3A,LREC(3),3,0) ITPD = ITPD + 1 IF (ITPD .LE. 3) DTEMP = DTEMP + RREC(5) GO TO 26 30 CALL WRITE (GEOM3A,IZ,0,1) C C CREATE TEMPD RECORD. AVERAGE FIRST THREE TEMPS. ON BLADE ROOT. C CALL WRITE (GEOM3A,TEMPD,3,0) CALL WRITE (GEOM3A,IDT,1,0) DTEMP = DTEMP/3.0 CALL WRITE (GEOM3A,DTEMP,1,1) C C CLOSE GEOM3A C 35 CALL WRITE (GEOM3A,LEND,3,1) CALL CLOSE (GEOM3A,1) ITRL(1) = GEOM3A ITRL(2) = 0 ITRL(3) = 0 ITRL(4) = 0 ITRL(5) = 0 ITRL(6) = 0 ITRL(7) = 0 IF (APRESS.LT.0 .OR. KAPERR.EQ.1) GO TO 40 IBIT = 68 I1 = (IBIT-1)/16 + 2 I2 = IBIT - (I1-2)*16 + 16 ITRL(I1) = ORF(ITRL(I1),TWO(I2)) 40 IF (ATEMP.LT.0 .OR. KATERR.EQ.1) GO TO 50 IBIT = 57 I1 = (IBIT-1)/16 + 2 I2 = IBIT - (I1-2)*16 + 16 ITRL(I1) = ORF(ITRL(I1),TWO(I2)) IBIT = 65 I1 = (IBIT-1)/16 + 2 I2 = IBIT - (I1-2)*16 + 16 ITRL(I1) = ORF(ITRL(I1),TWO(I2)) 50 CALL WRTTRL (ITRL) C C CLOSE SCR1 C IF (APRESS.GE.0 .OR. ATEMP.GE.0) CALL CLOSE (SCR1,1) IF (KAPERR .EQ. 1) APRESS = -1 IF (KATERR .EQ. 1) ATEMP = -1 C C SET IFAIL TO INDICATE ALG MODULE FAILED. CONDITIONAL JUMP BASED C ON VALUE OF IFAIL IS PERFORMED AFTER EXITING FROM ALG MODULE. C IF (APRESS.EQ.-1 .AND. ATEMP.EQ.-1) IFAIL = -1 C C NEW CASE CONTROL DATA BLOCK C OPEN CASECC AND COPY ALL SUBCASES WITH CHANGES MADE TO C STATIC AND THERMAL LOAD ID-S C IFILE = CASECC CALL OPEN (*901,CASECC,IZ(IBUF1),RDREW) CALL FWDREC (*902,CASECC) CALL GOPEN (CASECA,IZ(IBUF2),WRTREW) 60 CALL READ (*70,*65,CASECC,IZ,LEFT,1,NWDS) 65 IZX = 4 IZ(IZX) = IDP IZX = 7 IZ(IZX) = IDT CALL WRITE (CASECA,IZ,NWDS,1) GO TO 60 70 CALL CLOSE (CASECC,1) CALL CLOSE (CASECA,1) ITRL(1) = CASECC CALL RDTRL (ITRL) ITRL(1) = CASECA CALL WRTTRL (ITRL) GO TO 999 901 CALL MESAGE (-1,IFILE,NAME) GO TO 999 902 CALL MESAGE (-2,IFILE,NAME) GO TO 999 999 RETURN C 2001 FORMAT (A25,' - ALG MODULE - AERODYNAMIC PRESSURES REQUESTED VIA', 1 ' PARAM APRESS, BUT NOUT3=0 IN AERODYNAMIC INPUT', /41X, 2 'OR AERODYNAMIC CALCULATION FAILED. REQUEST IGNORED.') 2002 FORMAT (A25,' - ALG MODULE - AERODYNAMIC TEMPERATURES REQUESTED ', 1 'VIA PARAM ATEMP, BUT NOUT3=0 IN AERODYNAMIC INPUT' ,/41X, 2 'OR AERODYNAMIC CALCULATION FAILED. REQUEST IGNORED.') END ================================================ FILE: mis/algpr.f ================================================ SUBROUTINE ALGPR (IERR) C LOGICAL DEBUG INTEGER SYSBUF,NAME(2),EDT,EQEXIN,CSTM,UGV,FILE,CORWDS, 1 PGEOM,BUF1,BUF2,SCR1,SCR2,RET2,TYPOUT,BGPDT, 2 ITRL(7),STREAM(3),APRESS,ATEMP,STRML,ALGDB, 3 IDATA(24),KPTSA(10),IFANGS(10),RD,RDREW,WRT, 4 WRTREW,CLSREW,NOREW,LEN(3),IFILL(3),ALGDD REAL RFILL(3),Z(1),TA(9),RDATA(6),XSTA(21,10), 1 RSTA(21,10),R(21,10),B1(21),B2(21),RLE(21), 2 TC(21),TE(21),CORD(21),DELX(21),DELY(21),ZED(21), 3 PHI(2,21),ZR(21),PP(21),QQ(21),CORD2(21), 4 FCHORD(21),JZ(21),XB(21,10),YB(21,10),ZB(21,10), 5 DISPT(3),DISPR(3),DISPT1(21,10),DISPT2(21,10), 6 DISPT3(21,10),BLAFOR(21,10),DISPR1(21,10), 7 DISPR2(21,10),DISPR3(21,10) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / APRESS,ATEMP,STRML,PGEOM,IPRTK,IFAIL,SIGN,ZORIGN, 1 FXCOOR,FYCOOR,FZCOOR COMMON /SYSTEM/ SYSBUF,NOUT COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,NOREW COMMON /ZZZZZZ/ IZ(1) COMMON /CONDAS/ PI,TWOPI,RADEG COMMON /UNPAKX/ TYPOUT,IR1,IR2,INCR EQUIVALENCE (IZ(1),Z(1)),(IDATA(1),RDATA(1)), 1 (IFILL(1),RFILL(1)) DATA NAME / 4HALGP,4HR / DATA STREAM/ 3292, 92,292 / DATA LEN / 18, 24, 6 / DATA IBLK , IZERO,RZERO / 4H , 0, 0.0 / DATA EDT , EQEXIN,UGV,ALGDD,CSTM,BGPDT, SCR1,SCR2 / 1 102 , 103 ,104,105 ,106 ,107 , 301 ,302 / C C C PERFORM GENERAL INITIALIZATION C DEBUG =.FALSE. CALL SSWTCH (20,J) IF (J .EQ. 1) DEBUG =.TRUE. BUF1 = KORSZ(IZ) - SYSBUF BUF2 = BUF1 - SYSBUF LEFT = CORWDS(IZ(1),IZ(BUF2-1)) M8 =-8 IF (LEFT .LE. 0) CALL MESAGE (M8,0,NAME) IR1 = 1 INCR = 1 TYPOUT = 1 IERR = 0 C IFILL(1) = IBLK IFILL(2) = IZERO RFILL(3) = RZERO C C CREATE ALGDB WITH CORRECT LENGTH RECORDS - C BCD(18 WORDS), INTEGER(24 WORDS), REAL(6 WORDS) C CALL GOPEN (ALGDD,IZ(BUF1),RDREW) CALL GOPEN (SCR2,IZ(BUF2),WRTREW) ITRL(1) = ALGDD CALL RDTRL (ITRL) ITRL(1) = SCR2 CALL WRTTRL (ITRL) 1 CALL READ (*7,*2,ALGDD,IDATA,99,1,NWAR) 2 CALL ALGPB (IDATA(1),NTYPE) LENGTH = LEN(NTYPE) C C REMOVE NUMERIC ZEROS FROM BCD STRING C IF (NTYPE .NE. 1) GO TO 4 3 IF (IDATA(NWAR) .NE. 0) GO TO 4 NWAR = NWAR - 1 IF (NWAR .GT. 0) GO TO 3 4 IF (NWAR .GE. LENGTH) GO TO 6 NWAR1 = NWAR + 1 DO 5 I = NWAR1,LENGTH 5 IDATA(I) = IFILL(NTYPE) 6 CALL WRITE (SCR2,IDATA,LENGTH,1) GO TO 1 7 CALL CLOSE (ALGDD,CLSREW) CALL CLOSE (SCR2,CLSREW) ALGDB = SCR2 C C IF UGV IS NOT IN FIST (PURGED) THEN THERE WILL BE NO DATA C MODIFICATION C ITRL(1) = UGV CALL RDTRL (ITRL) IF (ITRL(1) .LT. 0) GO TO 997 C C READ EQEXIN INTO CORE C FILE = EQEXIN CALL GOPEN (EQEXIN,IZ(BUF1),RDREW) CALL READ (*901,*10,EQEXIN,IZ(1),LEFT,1,NEQEX) CALL MESAGE (M8,0,NAME) 10 CALL FREAD (EQEXIN,IZ(NEQEX+1),NEQEX,1) CALL CLOSE (EQEXIN,CLSREW) KN = NEQEX/2 IF (DEBUG) CALL BUG1 ('EQEX ',10,IZ(1),NEQEX) IF (DEBUG) CALL BUG1 ('EQEX ',10,IZ(NEQEX+1),NEQEX) C C READ CSTM INTO CORE (CSTM MAY BE PURGED) C FILE = CSTM ICSTM = 2*NEQEX + 1 NCSTM = 0 CALL OPEN (*30,CSTM,Z(BUF1),RDREW) CALL FWDREC (*901,CSTM) CALL READ (*901,*20,CSTM,IZ(ICSTM),BUF1-ICSTM,1,NCSTM) CALL MESAGE (M8,0,NAME) 20 CALL CLOSE (CSTM,CLSREW) IF (DEBUG) CALL BUG1 ('CSTM ',20,IZ(ICSTM),NCSTM) C C SET-UP FOR CALLS TO TRANSS C CALL PRETRS (IZ(ICSTM),NCSTM) C C UNPACK UGV DISPLACEMENT VECTOR (SUBCASE 2) INTO CORE C 30 IVEC = ICSTM + NCSTM FILE = UGV ITRL(1) = FILE CALL RDTRL (ITRL) C C CHECK FOR VALID UGV VECTOR C THIS ROUTINE WILL ONLY PROCESS A REAL S.P. RECT. VECTOR C OF SIZE G X 2 C (EXPANDED TO INCLUDE REAL D.P. RECT. VECTOR, G X 2, C BY G.CHAN/UNISYS) C NVECTS = ITRL(2) KFORM = ITRL(4) KTYPE = ITRL(5) IF (NVECTS.NE.2 .OR. KFORM.NE.2) GO TO 902 IVECN = IVEC + KTYPE*ITRL(3) - 1 IF (IVECN .GE. BUF1) CALL MESAGE (M8,0,NAME) C C OPEN UGV AND SKIP FIRST COLUMN (SUBCASE 1) C CALL GOPEN (UGV,IZ(BUF1),RDREW) CALL FWDREC (*901,UGV) IR2 = ITRL(3) CALL UNPACK (*40,UGV,IZ(IVEC)) GO TO 60 C C NULL COLUMN C 40 DO 50 I = IVEC,IVECN 50 Z(I) = 0.0 60 CALL CLOSE (UGV,CLSREW) IF (DEBUG) CALL BUG1 ('UGV ',60,IZ(IVEC),IR2) C C LOCATE STREAML1 CARDS ON EDT AND STORE IN CORE C FILE = EDT ICHORD = IVECN + 1 CALL PRELOC (*903,IZ(BUF1),EDT) CALL LOCATE (*904,IZ(BUF1),STREAM,IDX) CALL READ (*901,*70,EDT,IZ(ICHORD),BUF1-ICHORD,1,NCHORD) CALL MESAGE (M8,0,NAME) 70 CALL CLOSE (EDT,CLSREW) IF (DEBUG) CALL BUG1 ('CHOR ',70,IZ(ICHORD),NCHORD) LCHORD = ICHORD + NCHORD -1 C C READ THE BGPDT INTO CORE C IBGPDT = LCHORD + 1 FILE = BGPDT CALL GOPEN (BGPDT,IZ(BUF1),RDREW) CALL READ (*901,*80,BGPDT,IZ(IBGPDT),BUF1-IBGPDT,1,NBGPDT) CALL MESAGE (M8,0,NAME) 80 CALL CLOSE (BGPDT,CLSREW) IF (DEBUG) CALL BUG1 ('BGPD ',80,IZ(IBGPDT),NBGPDT) C C FOR EACH STREAML1 CARD - C (1) FIND BLADE NODES C (2) FIND EQUIVALENT INTERNAL NUMBERS OF THESE NODES C (3) LOCATE CORRESPONDING COMPONENTS OF DISPLACEMENT AND C CONVERT THEN TO BASIC VIA CSTM C (4) LOCATE BASIC GRID POINT DATA FOR BLADE NODES C IC = ICHORD + 1 ICC = ICHORD JCHORD = 1 NNODES = 0 100 ISTATN = 0 110 ID = IZ(IC) IF (ID .NE. -1) GO TO 120 ICC = IC + 1 IC = IC + 2 NNODES = NNODES + ISTATN JCHORD = JCHORD + 1 IF (IC .GE. LCHORD) GO TO 150 GO TO 100 120 ISTATN = ISTATN + 1 GO TO 1005 C C STORE BASIC GRID POINT COORDINATES FROM BGPDT C 130 XB(JCHORD,ISTATN) = Z(ICID+1) YB(JCHORD,ISTATN) = Z(ICID+2) ZB(JCHORD,ISTATN) = Z(ICID+3) DISPT1(JCHORD,ISTATN) = DISPT(1) DISPT2(JCHORD,ISTATN) = DISPT(2) DISPT3(JCHORD,ISTATN) = DISPT(3) DISPR1(JCHORD,ISTATN) = DISPR(1) DISPR2(JCHORD,ISTATN) = DISPR(2) DISPR3(JCHORD,ISTATN) = DISPR(3) IF (DEBUG) CALL BUG1 ('NODE ',ID,Z(ICID+1),3) IF (DEBUG) CALL BUG1 ('NODE ',ID,DISPT,3) IF (DEBUG) CALL BUG1 ('NODE ',ID,DISPR,3) IC = IC + 1 GO TO 110 150 CONTINUE JCHORD = JCHORD - 1 IF (JCHORD .GT. 21) GO TO 906 C C MODIFY AERODYNAMIC INPUT (OPEN ALGDB DATA BLOCK) C FILE = ALGDB CALL GOPEN (ALGDB,IZ(BUF1),RDREW) CALL FWDREC (*907,ALGDB) CALL READ (*901,*908,ALGDB,IDATA,2,1,NWAR) NAERO = IDATA(2) CALL SKPREC (ALGDB,1) CALL FREAD (ALGDB,IDATA,17,1) NLINES = IDATA(1) NSTNS = IDATA(2) NSPEC = IDATA(4) IPUNCH = IDATA(8) ISECN = IDATA(9) IFCORD = IDATA(10) ISPLIT = IDATA(13) IRLE = IDATA(15) IRTE = IDATA(16) NSIGN = IDATA(17) CALL SKPREC (ALGDB,1) DO 204 ISK = 1,NSTNS CALL FREAD (ALGDB,IDATA,2,1) KPTSA(ISK) = IDATA(1) IFANGS(ISK)= IDATA(2) CALL SKPREC (ALGDB,IDATA(1)) DO 202 INL = 1,NLINES CALL FREAD (ALGDB,RDATA,2,1) 202 BLAFOR(INL,ISK) = RDATA(2) 204 CONTINUE DO 210 ISK = 1,NSPEC CALL FREAD (ALGDB,RDATA,6,1) ZR(ISK) = RDATA(1) JZ(ISK) = RDATA(1) + 0.4 B1(ISK) = RDATA(2) B2(ISK) = RDATA(3) PP(ISK) = RDATA(4) QQ(ISK) = RDATA(5) RLE(ISK) = RDATA(6) CALL FREAD (ALGDB,RDATA,6,1) TC(ISK) = RDATA(1) TE(ISK) = RDATA(2) ZED(ISK) = RDATA(3) CORD(ISK)= RDATA(4) DELX(ISK)= RDATA(5) DELY(ISK)= RDATA(6) IF (ISECN.EQ.1 .OR. ISECN.EQ.3) CALL SKPREC (ALGDB,1) 210 CONTINUE CALL CLOSE (ALGDB,CLSREW) C C NUMBER OF BLADE STATIONS C NBLSTN = IRTE - IRLE + 1 IF (NLINES .NE. JCHORD) GO TO 909 IF (NNODES .NE. NLINES*NBLSTN) GO TO 909 C C COMPUTE FCORD AND PHI C DO 305 K = 1,NSPEC J = JZ(K) TEMP = (XB(J,NBLSTN)-XB(J,1))**2 + (ZB(J,NBLSTN)-ZB(J,1))**2 IF (IFCORD .EQ. 1) TEMP = TEMP + (YB(J,NBLSTN)-YB(J,1))**2 FCHORD(K) = CORD(K)/SQRT(TEMP) PHI(1,K) = ATAN((ZB(J,2)-ZB(J,1))/(XB(J,2)-XB(J,1))) PHI(2,K) = ATAN((ZB(J,NBLSTN)-ZB(J,NBLSTN-1))/ 1 (XB(J,NBLSTN)-XB(J,NBLSTN-1))) 305 CONTINUE C COMPUTE NEW COORDINATES C GENERATE XSTA, RSTA AND R , SET KPTS = NLINES DO 310 I = 1,NLINES DO 310 J = 1,NBLSTN XB(I,J) = XB(I,J) + SIGN*DISPT1(I,J)*FXCOOR YB(I,J) = YB(I,J) + SIGN*DISPT2(I,J)*FYCOOR ZB(I,J) = ZB(I,J) + SIGN*DISPT3(I,J)*FZCOOR XSTA(I,J) = XB(I,J) RSTA(I,J) = ZB(I,J) + ZORIGN R(I,J) = RSTA(I,J) 310 CONTINUE C C COMPUTE CORD2 C DO 315 K = 1,NSPEC J = JZ(K) TEMP = (XB(J,NBLSTN)-XB(J,1))**2 + (ZB(J,NBLSTN)-ZB(J,1))**2 IF (IFCORD .EQ. 1) TEMP = TEMP + (YB(J,NBLSTN)-YB(J,1))**2 CORD2(K) = FCHORD(K)*SQRT(TEMP) 315 CONTINUE C C MODIFY B1, B2, RLE, TC, TE, CORD, DELX AND DELY C I1 = (NBLSTN+1)/2 I2 = I1 IF (I1*2 .NE. NBLSTN+1) I2 = I2 + 1 DO 318 K = 1,NSPEC J = JZ(K) B1(K) = B1(K) - NSIGN*SIGN*RADEG*(DISPR3(J,1)*COS(PHI(1,K)) - 1 DISPR1(J,1)*SIN(PHI(1,K))) B2(K) = B2(K) - NSIGN*SIGN*RADEG*(DISPR3(J,NBLSTN)*COS(PHI(2,K)) - 1 DISPR1(J,NBLSTN)*SIN(PHI(2,K))) TEMP = CORD(K)/CORD2(K) RLE(K) = RLE(K) *TEMP TC(K) = TC(K) *TEMP TE(K) = TE(K) *TEMP CORD(K) = CORD2(K) DELX(K) = DELX(K) + 0.5*SIGN*FXCOOR*(DISPT1(J,I1)+DISPT1(J,I2)) DELY(K) = DELY(K) + 0.5*SIGN*FYCOOR*(DISPT2(J,I1)+DISPT2(J,I2)) 318 CONTINUE C C GENERATE NEW ALGDB DATA BLOCK C CALL GOPEN (ALGDB,IZ(BUF1),RDREW) CALL GOPEN (SCR1,IZ(BUF2),WRTREW) ITRL(1) = ALGDB CALL RDTRL (ITRL) C C MODIFY THE NUMBER OF CARDS IN ALGDB C NCDSX = 0 DO 320 KPT = IRLE,IRTE 320 NCDSX = NCDSX + NLINES - KPTSA(KPT) ITRL(2) = ITRL(2) + NCDSX ITRL(1) = SCR1 CALL WRTTRL (ITRL) ASSIGN 322 TO RET2 NREC = 5 GO TO 1300 C C COPY DATA FOR STATIONS 1 THRU (IRLE-1) C 322 IF (IRLE .EQ. 1) GO TO 335 NLES = IRLE - 1 NREC = NLES + NLES*NLINES DO 324 IKP = 1,NLES 324 NREC = NREC + KPTSA(IKP) ASSIGN 326 TO RET2 GO TO 1300 C C SKIP OVER EXISTING RECORDS FOR STATIONS IRLE THRU IRTE C 326 NREC = NBLSTN + NBLSTN*NLINES DO 328 IKP = IRLE,IRTE 328 NREC = NREC + KPTSA(IKP) CALL SKPREC (ALGDB,NREC) C C CREATE NEW DATA RECORDS FOR STATIONS IRLE THRU IRTE C KSTA = 0 DO 334 JSTA = IRLE,IRTE KSTA = KSTA + 1 IDATA(1) = NLINES IDATA(2) = IFANGS(JSTA) CALL WRITE (SCR1,IDATA,2,1) IF (DEBUG) CALL BUG1 ('ALGPR ',329,IDATA,2) DO 330 I = 1,NLINES RDATA(1) = XSTA(I,KSTA) RDATA(2) = RSTA(I,KSTA) IF (DEBUG) CALL BUG1 ('ALGPR ',330,RDATA,2) 330 CALL WRITE(SCR1,RDATA,2,1) DO 332 I = 1,NLINES RDATA(1) = R(I,KSTA) RDATA(2) = BLAFOR(I,KSTA) IF (DEBUG) CALL BUG1 ('ALGPR ',332,RDATA,2) 332 CALL WRITE (SCR1,RDATA,2,1) 334 CONTINUE 335 CONTINUE C C COPY DATA FOR STATIONS (IRTE+1) THRU NSTNS C IF (IRTE .EQ. NSTNS) GO TO 338 IRTE1 = IRTE + 1 IRTE2 = NSTNS - IRTE NREC = IRTE2 + IRTE2*NLINES DO 336 IKP = IRTE1,NSTNS 336 NREC = NREC + KPTSA(IKP) ASSIGN 338 TO RET2 GO TO 1300 338 CONTINUE C C MODIFY THE NEXT NSPEC RECORDS C DO 340 I = 1,NSPEC CALL SKPREC(ALGDB,2) RDATA(1) = ZR(I) RDATA(2) = B1(I) RDATA(3) = B2(I) RDATA(4) = PP(I) RDATA(5) = QQ(I) RDATA(6) = RLE(I) CALL WRITE (SCR1,RDATA,6,1) IF (DEBUG) CALL BUG1 ('ALGPR ',338,RDATA,6) RDATA(1) = TC(I) RDATA(2) = TE(I) RDATA(3) = ZED(I) RDATA(4) = CORD(I) RDATA(5) = DELX(I) RDATA(6) = DELY(I) CALL WRITE (SCR1,RDATA,6,1) IF (DEBUG) CALL BUG1 ('ALGPR ',339,RDATA,6) IF (ISECN.NE.1 .AND. ISECN.NE.3) GO TO 340 CALL FREAD (ALGDB,RDATA,2,1) CALL WRITE (SCR1,RDATA,2,1) IF (DEBUG) CALL BUG1 ('ALGPR ',340,RDATA,2) 340 CONTINUE C C COPY REST OF ANALYTIC DATA C IF (ISPLIT .LT. 1) GO TO 344 NREC = NSPEC DO 342 I = 1,NSTNS IF (IFANGS(I) .EQ. 2) NREC = NREC + NLINES 342 CONTINUE ASSIGN 344 TO RET2 GO TO 1300 344 CONTINUE IF (NAERO.NE.1 .AND. IPUNCH.NE.1) GO TO 352 NREC = 1 ASSIGN 346 TO RET2 GO TO 1300 346 NRAD = IDATA(1) NDPTS = IDATA(2) NDATR = IDATA(3) ASSIGN 347 TO RET2 NREC = 2 GO TO 1300 347 NB = NBLSTN - 1 I = 1 348 NREC = 1 ASSIGN 349 TO RET2 GO TO 1300 349 NREC = IDATA(1) ASSIGN 350 TO RET2 GO TO 1300 350 I = I + 1 IF (I .LE. NB) GO TO 348 NREC = NRAD*(NDPTS+1) + NDATR ASSIGN 352 TO RET2 GO TO 1300 C C PROCESS AERODYNAMIC INPUT C 352 IF (NAERO .EQ. 0) GO TO 366 ASSIGN 354 TO RET2 NREC = 3 GO TO 1300 354 NSTNS = IDATA(1) NCASE = IDATA(6) NMANY = IDATA(16) NLE = IDATA(19) NTE = IDATA(20) NSIGN = IDATA(21) IF (NSTNS .EQ. 0) NSTNS = 11 IF (NCASE .EQ. 0) NCASE = 1 NREC = NCASE + 3 IF (NMANY .GT. 0) NREC = NCASE + 4 ASSIGN 356 TO RET2 GO TO 1300 356 CONTINUE C C COPY DATA FOR STATIONS 1 THRU (NLE-1) C IF (NLE .EQ. 1) GO TO 361 NLE1 = NLE - 1 I = 1 357 NREC = 1 ASSIGN 358 TO RET2 GO TO 1300 358 NREC = IDATA(1) ASSIGN 360 TO RET2 GO TO 1300 360 I = I + 1 IF (I .LE. NLE1) GO TO 357 361 JSTA = 0 C C MODIFY DATA FOR STATIONS NLE THRU NTE C DO 364 I = NLE,NTE JSTA = JSTA + 1 CALL FREAD (ALGDB,NSPEC,1,1) CALL SKPREC (ALGDB,NSPEC) CALL WRITE (SCR1,NLINES,1,1) IF (DEBUG) CALL BUG1 ('ALGPR ',361,NLINS,1) DO 362 NL = 1,NLINES RDATA(1) = XSTA(NL,JSTA) RDATA(2) = RSTA(NL,JSTA) IF (DEBUG) CALL BUG1 ('ALGPR ',362,RDATA,2) 362 CALL WRITE (SCR1,RDATA,2,1) 364 CONTINUE C C COPY REST OF DATA C ASSIGN 366 TO RET2 NREC = 65000 GO TO 1300 C C CLOSE ALGDB AND SCR1 C 366 CALL CLOSE (ALGDB,CLSREW) CALL CLOSE (SCR1,CLSREW) C C PUNCH NEW ALGDB TABLE INTO DTI CARDS IF PGEOM=3. C IF (PGEOM .EQ. 3) CALL ALGAP (ALGDD,SCR1) GO TO 999 C C C INTERNAL BINARY SEARCH ROUTINE C C SEARCH EQEXIN FOR INTERNAL NUMBER AND SIL NUMBER OF EXTERNAL NODE C 1005 KLO = 1 KHI = KN 1010 K = (KLO + KHI + 1) / 2 1020 IF (ID - IZ(2*K-1)) 1030,1090,1040 1030 KHI = K GO TO 1050 1040 KLO = K 1050 IF (KHI - KLO - 1) 905,1060,1010 1060 IF (K .EQ. KLO) GO TO 1070 K = KLO GO TO 1080 1070 K = KHI 1080 KLO = KHI GO TO 1020 1090 INTN = IZ(2*K) ISIL = IZ(2*K+NEQEX)/10 KODE = IZ(2*K+NEQEX) - 10*ISIL IF (DEBUG) CALL BUG1('ISTL ',1090,ISIL,1) IF (DEBUG) CALL BUG1('KODE ',1090,KODE,1) C C LOCATE COORDINATE SYSTEM ID FOR THIS NODE IN THE BGPDT C ICID = 4*(INTN-1) + IBGPDT C C SET-UP COORDINATE SYSTEM TRANSFORMATION FOR DISPLACEMENTS. C IF (IZ(ICID) .GT. 0) CALL TRANSS (IZ(ICID),TA) C C COMPUTE POINTER INTO UGV C JVEC = IVEC + KTYPE *(ISIL-1) C JVEC = IVEC + TYPOUT*(ISIL-1) C C PICK-UP DISPLACEMENTS C IF (KODE .EQ. 1) GO TO 1092 C C SCALAR POINT C DISPT(1) = Z(JVEC) DISPT(2) = 0.0 DISPT(3) = 0.0 DISPR(1) = 0.0 DISPR(2) = 0.0 DISPR(3) = 0.0 GO TO 1100 C C GRID POINT C 1092 IF (IZ(ICID) .GT. 0) GO TO 1094 C C DISPLACEMENTS ALREADY IN BASIC SYSTEM C DISPT(1) = Z(JVEC ) DISPT(2) = Z(JVEC+1) DISPT(3) = Z(JVEC+2) DISPR(1) = Z(JVEC+3) DISPR(2) = Z(JVEC+4) DISPR(3) = Z(JVEC+5) GO TO 1100 C C DISPLACEMENTS MUST BE TRANSFORMED TO BASIC C 1094 CALL GMMATS (TA,3,3,0,Z(JVEC ),3,1,0,DISPT) CALL GMMATS (TA,3,3,0,Z(JVEC+3),3,1,0,DISPR) 1100 CONTINUE GO TO 130 1300 DO 1304 ICOPY = 1,NREC CALL READ (*1306,*1302,ALGDB,IDATA,99,1,NWAR) 1302 CALL WRITE (SCR1,IDATA,NWAR,1) IF (DEBUG) CALL BUG1 ('ALGPR ',1302,IDATA,NWAR) 1304 CONTINUE IF (NREC .LT. 65000) GO TO 1306 WRITE (NOUT,1305) 1305 FORMAT (/,' *** NO. OF RECORDS EXCEEDS HARDWARE LIMIT/ALGPR') CALL MESAGE (-37,0,0) 1306 GO TO RET2, (322,326,338,344,346,347,349,350,352,354,356,358, 1 360,366) C 901 CALL MESAGE (-2,FILE,NAME) GO TO 998 902 WRITE (NOUT,2001) UFM GO TO 998 903 WRITE (NOUT,2002) UFM GO TO 998 904 WRITE (NOUT,2003) UFM GO TO 998 905 WRITE (NOUT,2004) UFM,IZ(ICC),ID GO TO 998 906 WRITE (NOUT,2005) UWM GO TO 999 907 WRITE (NOUT,2006) UFM GO TO 998 908 CALL MESAGE (-3,FILE,NAME) GO TO 998 909 WRITE (NOUT,2007) UFM GO TO 998 997 IERR = 1 GO TO 999 998 IERR = -1 999 RETURN C 2001 FORMAT (A23,' - ALG MODULE - UGV DATA BLOCK IS NOT A REAL S.P. ', 1 'RECTANGULAR MATRIX OF ORDER G BY 2.') 2002 FORMAT (A23,' - ALG MODULE - EDT DATA BLOCK MAY NOT BE PURGED.') 2003 FORMAT (A23,' - ALG MODULE - STREAML1 BULK DATA CARD MISSING ', 1 'FROM BULK DATA DECK.') 2004 FORMAT (A23,' - ALG MODULE - STREAML1 BULK DATA CARD (SLN NO. =', 1 I3,') REFERENCES UNDEFINED NODE NO.',I8) 2005 FORMAT (A25,' - ALG MODULE - MORE THAN 21 STREAML1 CARDS READ. ', 1 'FIRST 21 WILL BE USED.') 2006 FORMAT (A23,' - ALG MODULE - ALGDB DATA BLOCK (FILE 105) DOES ', 1 'NOT HAVE ENOUGH RECORDS.') 2007 FORMAT (A23,' - ALG MODULE - INPUT IN ALGDB DATA BLOCK (FILE 105', 1 ') INCONSISTENT WITH DATA ON STREAML1 BULK DATA CARDS.', 2 /39X,'CHECK THE NUMBER OF COMPUTING STATIONS AND THE ', 3 'NUMBER OF STREAMSURFACES ON THE BLADE.') END ================================================ FILE: mis/allmat.f ================================================ SUBROUTINE ALLMAT (A,LAMBDA,H,HL,VECT,MULT,INTH,INT,M,NCAL,IOPT1) C C SUBROUTINE ALLMAT (A,LAMBDA,M,IA,NCAL) C C A ON ENTRY = MATRIX TO BE ITERATED C A ON RETURN = EIGENVECTORS (OPTIONAL) C LAMBDA = EIGENVALUES C M = FIRST DIMENSION OF (A) C NCAL ON ENTRY = FLAG .NE. 0. COMPUTE VECTORS C .EQ. 0. NO VECTORS C NCAL ON RETURN = NUMBER OF EIGENVALUES C C C PROG. AUTHORS JOHN RINZEL AND R.E.FUNDERLIC, UNION CARBIDE CORP. C NUCLEAR DIVISION,CENTRAL DATA PROCESSING FACILITY, C OAK RIDGE, TENNESSEE C LOGICAL INTH(1),TWICE INTEGER INT(1),R,RP1,RP2 COMPLEX A(M,M),H(M,M),HL(M,M),LAMBDA(2),VECT(1),MULT(1), 1 SHIFT(3),TEMP,SIN,COS,TEMP1,TEMP2 C NVEC = NCAL N = M NCAL = N IF (N .NE. 1) GO TO 1 LAMBDA(1) = A(1,1) A(1,1) = 1. GO TO 62 1 ICOUNT = 0 SHIFT(1) = 0. IF (N .NE. 2) GO TO 4 2 TEMP = (A(1,1)+A(2,2) + CSQRT((A(1,1)+A(2,2))*(A(1,1)+A(2,2)) - 1 4.*(A(2,2)*A(1,1)-A(2,1)*A(1,2))))/2. IF (REAL(TEMP).NE.0. .OR. AIMAG(TEMP).NE.0.) GO TO 3 LAMBDA(M ) = SHIFT(1) LAMBDA(M-1) = A(1,1) + A(2,2) + SHIFT(1) GO TO 37 3 LAMBDA(M ) = TEMP + SHIFT(1) LAMBDA(M-1) = (A(2,2)*A(1,1)-A(2,1)*A(1,2))/(LAMBDA(M)-SHIFT(1)) 1 + SHIFT(1) GO TO 37 C C REDUCE MATRIX A TO HESSENBERG FORM C 4 NM2 = N - 2 DO 15 R = 1,NM2 RP1 = R + 1 RP2 = R + 2 ABIG= 0. INT(R) = RP1 DO 5 I = RP1,N ABSSQ = REAL(A(I,R))**2 + AIMAG(A(I,R))**2 IF (ABSSQ .LE. ABIG) GO TO 5 INT(R) = I ABIG = ABSSQ 5 CONTINUE IF (ABIG .EQ. 0.) GO TO 15 INTER = INT(R) IF (INTER .EQ. RP1) GO TO 8 DO 6 I = R,N TEMP = A(RP1,I) A(RP1,I) = A(INTER,I) 6 A(INTER,I) = TEMP DO 7 I = 1,N TEMP = A(I,RP1) A(I,RP1) = A(I,INTER) 7 A(I,INTER) = TEMP 8 DO 9 I = RP2,N MULT(I) = A(I,R)/A(RP1,R) 9 A(I,R) = MULT(I) DO 11 I = 1,RP1 TEMP = 0. DO 10 J = RP2,N 10 TEMP = TEMP + A(I,J)*MULT(J) 11 A(I,RP1) = A(I,RP1) + TEMP DO 13 I = RP2,N TEMP = 0. DO 12 J = RP2,N 12 TEMP = TEMP + A(I,J)*MULT(J) 13 A(I,RP1) = A(I,RP1) + TEMP - MULT(I)*A(RP1,RP1) DO 14 I = RP2,N DO 14 J = RP2,N 14 A(I,J) = A(I,J) - MULT(I)*A(RP1,J) 15 CONTINUE C C CALCULATE EPSILON C EPS = 0. DO 16 I = 1,N 16 EPS = EPS + CABS(A(1,I)) DO 18 I = 2,N SUM = 0. IM1 = I - 1 DO 17 J = IM1,N 17 SUM = SUM + CABS(A(I,J)) 18 IF (SUM .GT. EPS) EPS = SUM EPS = SQRT(FLOAT(N))*EPS*1.E-12 IF (EPS .EQ. 0.) EPS = 1.E-12 DO 19 I = 1,N DO 19 J = 1,N 19 H(I,J) = A(I,J) 20 IF (N .NE. 1) GO TO 21 LAMBDA(M) = A(1,1) + SHIFT(1) GO TO 37 21 IF (N .EQ. 2) GO TO 2 22 MN1 = M - N + 1 ARD = REAL (A(N,N)) AID = AIMAG(A(N,N)) ARN = REAL (A(N,N-1)) AIN = AIMAG(A(N,N-1)) IF (ARD.EQ.0.0 .AND. AID.EQ.0.0) GO TO 23 TERM1 = ABS(ARD*ARN + AID*AIN) TERM2 = ABS(ARD*AIN - AID*ARN) TERM3 = ARD*ARD + AID*AID IF ((TERM1+TERM2) .LE. 1.0E-9*TERM3) GO TO 24 23 IF ((ABS(ARN)+ABS(AIN)) .GE. EPS) GO TO 25 24 LAMBDA(MN1) = A(N,N) + SHIFT(1) ICOUNT = 0 N = N - 1 GO TO 21 C C DETERMINE SHIFT C 25 SHIFT(2) = (A(N-1,N-1)+A(N,N) + CSQRT((A(N-1,N-1)+A(N,N))* 1 (A(N-1,N-1)+A(N,N)) - 4.*(A(N,N)*A(N-1,N-1)-A(N,N-1)* 2 A(N-1,N))))/2. IF (REAL(SHIFT(2)).NE.0. .OR. AIMAG(SHIFT(2)).NE.0.) GO TO 26 SHIFT(3) = A(N-1,N-1) + A(N,N) GO TO 27 26 SHIFT(3) = (A(N,N)*A(N-1,N-1) - A(N,N-1)*A(N-1,N))/SHIFT(2) 27 IF (CABS(SHIFT(2)-A(N,N)) .LT. CABS(SHIFT(3)-A(N,N))) GO TO 28 INDEX = 3 GO TO 29 28 INDEX = 2 29 IF (CABS(A(N-1,N-2)) .GE. EPS) GO TO 30 LAMBDA(MN1 ) = SHIFT(2) + SHIFT(1) LAMBDA(MN1+1) = SHIFT(3) + SHIFT(1) ICOUNT = 0 N = N - 2 GO TO 20 30 SHIFT(1) = SHIFT(1) + SHIFT(INDEX) DO 31 I = 1,N 31 A(I,I) = A(I,I) - SHIFT(INDEX) C C PERFORM GIVENS ROTATIONS, QR ITERATES C IF (ICOUNT .LE. 20) GO TO 32 NCAL = M - N GO TO 37 32 NM1 = N - 1 TEMP1 = A(1,1) TEMP2 = A(2,1) DO 36 R = 1,NM1 RP1 = R + 1 RHO = SQRT(REAL(TEMP1)**2 + AIMAG(TEMP1)**2 + 1 REAL(TEMP2)**2 + AIMAG(TEMP2)**2) IF (RHO .EQ. 0.) GO TO 36 COS = TEMP1/RHO SIN = TEMP2/RHO INDEX = MAX0(R-1,1) DO 33 I = INDEX,N TEMP = CONJG(COS)*A(R,I) + CONJG(SIN)*A(RP1,I) A(RP1,I) =-SIN*A(R,I) + COS*A(RP1,I) 33 A(R,I) = TEMP TEMP1 = A(RP1,RP1) TEMP2 = A(R+2,R+1) DO 34 I = 1,R TEMP = COS*A(I,R) + SIN*A(I,RP1) A(I,RP1) =-CONJG(SIN)*A(I,R) + CONJG(COS)*A(I,RP1) 34 A(I,R) = TEMP INDEX = MIN0(R+2,N) DO 35 I = RP1,INDEX A(I,R) = SIN*A(I,RP1) 35 A(I,RP1) = CONJG(COS)*A(I,RP1) 36 CONTINUE ICOUNT = ICOUNT + 1 GO TO 22 C C CALCULATE VECTORS C 37 IF (NCAL.EQ.0 .OR. NVEC.EQ.0) GO TO 62 N = M NM1 = N - 1 IF (N .NE. 2) GO TO 38 EPS = AMAX1(CABS(LAMBDA(1)),CABS(LAMBDA(2)))*1.E-8 IF (EPS .EQ. 0.) EPS = 1.E-12 H(1,1) = A(1,1) H(1,2) = A(1,2) H(2,1) = A(2,1) H(2,2) = A(2,2) 38 DO 56 L = 1,NCAL DO 40 I = 1,N DO 39 J = 1,N 39 HL(I,J) = H(I,J) 40 HL(I,I) = HL(I,I) - LAMBDA(L) DO 44 I = 1,NM1 MULT(I) = 0. INTH(I) = .FALSE. IP1 = I + 1 IF (CABS(HL(I+1,I)) .LE. CABS(HL(I,I))) GO TO 42 INTH(I) = .TRUE. DO 41 J = I,N TEMP = HL(I+1,J) HL(I+1,J) = HL(I,J) 41 HL(I,J ) = TEMP 42 IF (REAL(HL(I,I)).EQ.0. .AND. AIMAG(HL(I,I)).EQ.0.) GO TO 44 MULT(I) = -HL(I+1,I)/HL(I,I) DO 43 J = IP1,N 43 HL(I+1,J) = HL(I+1,J) + MULT(I)*HL(I,J) 44 CONTINUE DO 45 I = 1,N 45 VECT(I) = 1. TWICE = .FALSE. 46 IF (REAL(HL(N,N)).EQ.0. .AND. AIMAG(HL(N,N)).EQ.0.) HL(N,N) = EPS VECT(N) = VECT(N)/HL(N,N) DO 48 I = 1,NM1 K = N - I DO 47 J = K,NM1 47 VECT(K) = VECT(K) - HL(K,J+1)*VECT(J+1) IF (REAL(HL(K,K)).EQ.0. .AND. AIMAG(HL(K,K)).EQ.0.) HL(K,K) = EPS 48 VECT(K) = VECT(K)/HL(K,K) BIG = 0. DO 49 I = 1,N SUM = ABS(REAL(VECT(I))) + ABS(AIMAG(VECT(I))) 49 IF (SUM .GT. BIG) BIG = SUM DO 50 I = 1,N 50 VECT(I) = VECT(I)/BIG IF (TWICE) GO TO 52 DO 51 I = 1,NM1 IF (.NOT.INTH(I)) GO TO 51 TEMP = VECT(I) VECT(I ) = VECT(I+1) VECT(I+1) = TEMP 51 VECT(I+1) = VECT(I+1) + MULT(I)*VECT(I) TWICE = .TRUE. GO TO 46 52 IF (N .EQ. 2) GO TO 55 NM2 = N - 2 DO 54 I = 1,NM2 N1I = N - 1 - I NI1 = N - I + 1 DO 53 J = NI1,N 53 VECT(J) = H(J,N1I)*VECT(N1I+1) + VECT(J) INDEX = INT(N1I) TEMP = VECT(N1I+1) VECT(N1I+1) = VECT(INDEX) 54 VECT(INDEX) = TEMP 55 DO 56 I = 1,N 56 A(I,L) = VECT(I) DO 61 J = 1,NCAL TE = 0. DO 58 I = 1,N TEM = CABS(A(I,J)) IF (TE .GT. TEM) GO TO 58 L = I TE = TEM 58 CONTINUE TEMP1 = A(L,J) DO 60 I = 1,N 60 A(I,J) = A(I,J)/TEMP1 61 CONTINUE 62 RETURN END ================================================ FILE: mis/amatrx.f ================================================ SUBROUTINE AMATRX (D,V,C,CA, CA2, VA, DM, DB, YI) C C C THIS ROUTINE COMPUTES THE STIFFNESS MATRIX IN FIELD COORDINATES FOR C THE TOROIDAL RING C C C NOTE THE DOUBLE SUBSCRIPTING USED IN AMATRIX SUBROUTINE IS C COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS C IS A (11X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING C PROGRAM AND IT IS A (6X11) DOUBLY SUBSCRIPTED ARRAY (STORED C COLUMNWISE) IN AMATRX ROUTINE. C C DIMENSION D (10,10) , YI (6,11) C C ------------------------------------------------------------------ C D(1,1) = DM * (CA2*YI(1,1) + 2.*VA*YI(2,1) + YI(3,1)) D(2,1) = DM * (CA2*YI(1,2) + 2.*VA*YI(2,2) + YI(3,2)) D(3,1) = DM * (CA2*YI(1,3) + 2.*VA*YI(2,3) + YI(3,3)) D(4,1) = DM * (CA2*YI(1,4) + 2.*VA*YI(2,4) + YI(3,4)) D(5,1) = DM * (CA2*YI(1,5) + 2.*VA*YI(2,5) + YI(3,5)) D(6,1) = DM * (CA2*YI(1,6) + 2.*VA*YI(2,6) + YI(3,6)) D(7,1) = DM * (VA*YI(4,1) + YI(5,1)) D(8,1) = DM * (CA*YI(1,1) + VA*YI(4,2) + V*YI(2,1) + YI(5,2)) D(9,1) = DM * (2.*CA*YI(1,2) + VA*YI(4,3) + 2.*V*YI(2,2) + YI(5 1 ,3)) D(10,1) = DM * (3.*CA*YI(1,3) + VA*YI(4,4) + 3.*V*YI(2,3) + YI(5 1 ,4)) D(2,2) = DB * YI(6,1) + D(3,1) D(3,2) = DB * (2.*V*YI(4,1) + 2.*YI(6,2)) + D(4,1) D(4,2) = DB * (6.*V*YI(4,2) + 3.*YI(6,3)) + D(5,1) D(5,2) = DB * (12.*V*YI(4,3) + 4.*YI(6,4)) + D(6,1) D(6,2) = DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7)) + 1 DB * (20.*V*YI(4,4) + 5.*YI(6,5)) D (7,2) = DM * (VA*YI(4,2) + YI(5,2)) D(8,2) = DM * (CA*YI(1,2) + VA*YI(4,3) + V*YI(2,2) + YI(5,3)) D(9,2) = DM * (2.*CA*YI(1,3) + VA*YI(4,4) + 2.*V*YI(2,3) + YI(5 1 ,4)) D(10,2) = DM * (3.*CA*YI(1,4) + VA*YI(4,5) + 3.*V*YI(2,4) + YI(5 1 ,5)) D(3,3) = DB * 4.*(C*YI(1,1) + 2.*V*YI(4,2) + YI(6,3)) + D(5,1) D(4,3) = DB * 6.*(2.*C*YI(1,2) + 3.*V*YI(4,3) + YI(6,4))+D(6,1) D(5,3) = DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7)) + 1 DB * 2.*(12.*C*YI(1,3)+ 16.*V*YI(4,4)+ 4.*YI(6,5)) D(6,3) = DM * (CA2*YI(1,8) + 2.*VA*YI(2,8) + YI(3,8)) + 1 DB * 10.*(4.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6)) D (7,3) = DM * (VA*YI(4,3) + YI(5,3)) D(8,3) = DM * (CA*YI(1,3) + VA*YI(4,4) + V*YI(2,3) + YI(5,4)) D(9,3) = DM * (2.*CA*YI(1,4) + VA*YI(4,5) + 2.*V*YI(2,4) + YI(5 1 ,5)) D(10,3) = DM * (3.*CA*YI(1,5) + VA*YI(4,6) + 3.*V*YI(2,5) + YI(5 1 ,6)) D(4,4) = DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7)) + 1 DB * 9.*(4.*C*YI(1,3) + 4.*V*YI(4,4) + YI(6,5)) D(5,4) = DM * (CA2*YI(1,8) + 2.*VA*YI(2,8) + YI(3,8)) + 1 DB * 12.*(6.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6)) D(6,4) = DM * (CA2*YI(1,9) + 2.*VA*YI(2,9) + YI(3,9)) + 1 DB * 15.*(8.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7)) D (7,4) = DM * (VA*YI(4,4) + YI(5,4)) D(8,4) = DM * (CA*YI(1,4) + VA*YI(4,5) + V*YI(2,4) + YI(5,5)) D(9,4) = DM * (2.*CA*YI(1,5) + VA*YI(4,6) + 2.*V*YI(2,5) + YI(5 1 ,6)) D(10,4) = DM * (3.*CA*YI(1,6) + VA*YI(4,7) + 3.*V*YI(2,6) + 1 YI(5,7)) D(5,5) = DM * (CA2*YI(1,9) + 2.*VA*YI(2,9) + YI(3,9)) + 1 DB * 16.*(9.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7)) D(6,5) = DM * (CA2*YI(1,10) + 2.*VA*YI(2,10) + YI(3,10)) + 1 DB * 20.*(12.*C*YI(1,6) + 7.*V*YI(4,7) + YI(6,8)) D (7,5) = DM * (VA*YI(4,5) + YI(5,5)) D(8,5) = DM * (CA*YI(1,5) + VA*YI(4,6) + V*YI(2,5) + YI(5,6)) D(9,5) = DM * (2.*CA*YI(1,6) + VA*YI(4,7) + 2.*V*YI(2,6) + YI(5 1 ,7)) D(10,5) = DM * (3.*CA*YI(1,7) + VA*YI(4,8) + 3.*V*YI(2,7) + YI(5 1 ,8)) D(6,6) = DM * (CA2*YI(1,11) + 2.*VA*YI(2,11) + YI(3,11)) + 1 DB * 25.*(16.*C*YI(1,7) + 8.*V*YI(4,8) + YI(6,9)) D (7,6) = DM * (VA*YI(4,6) + YI(5,6)) D(8,6) = DM * (CA*YI(1,6) + VA*YI(4,7) + V*YI(2,6) + YI(5,7)) D(9,6) = DM * (2.*CA*YI(1,7) + VA*YI(4,8) + 2.*V*YI(2,7) + YI(5 1 ,8)) D(10,6) = DM * (3.*CA*YI(1,8) + VA*YI(4,9) + 3.*V*YI(2,8) + YI(5 1 ,9)) D (7,7) = DM * YI(6,1) D (8,7) = DM * (V*YI(4,1) + YI(6,2)) D (9,7) = DM * (2.*V*YI(4,2) + YI(6,3)) D (10,7) = DM * (3.*V*YI(4,3) + YI(6,4)) D(8,8) = DM * (C*YI(1,1) + 2.*V*YI(4,2) + YI(6,3)) D(9,8) = DM * (2.*C*YI(1,2) + 3.*V*YI(4,3) + YI(6,4)) D(10,8) = DM * (3.*C*YI(1,3) + 4.*V *YI(4,4)+ YI(6,5)) D(9,9) = DM * (4.*C*YI(1,3) + 4.*V*YI(4,4) + YI(6,5)) D(10,9) = DM * (6.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6)) D(10,10) = DM * (9.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7)) DO 147 I=1,10 DO 147 J=1,I D(J,I) = D(I,J) 147 CONTINUE RETURN END ================================================ FILE: mis/amg.f ================================================ SUBROUTINE AMG C C THIS IS THE MAIN DRIVER FOR AEROELASTIC MATRIX GENERATION C C NOTES ON NEW METHOD IMPLIMENTATION C 1. ACPT FILE WILL BE POSITIONED READY TO READ AN INPUT RECORD C LEAVE FILE READY TO READ NEXT RECORD. C C 2. ALWAYS PACK OUT A COLUMN (REALY A ROW) OF NJ LENGTH C OUTPUT FILE, PACKX, AND TRAILER(MCB) WILL BE SET UP C C 3. YOUR ROW POSITION WILL START AT NROW + 1 C C 4. ALWAYS BUMP NROW BY THE NUMBER OF ROWS WHICH EXIST IN C YOUR INPUT RECORD C C 5. COMPUTATIONS FOR AJJK MATRIX WILL HAVE 3 BUFFERS OF CORE USED C COMPUTATIONS FOR OTHER MATRICES WILL HAVE 4 BUFFERS USED C LOGICAL DEBUG INTEGER SYSBUF,BUF1,BUF2,BUF3,AERO,ACPT,AJJL,SKJ,W1JK, 1 W2JK,TSKJ,TW1JK,TW2JK DIMENSION FMACH(1),ND(1),NAME(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / NK,NJ COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK COMMON /AMGP2 / TW1JK(7),TW2JK(7) COMMON /SYSTEM/ SYSBUF,IOUT COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /AMGBUG/ DEBUG COMMON /ZZZZZZ/ IZ(1) DATA NAME / 4HAMG ,4H / DATA AERO / 101/, ACPT /102/, AJJL /201/, 1 SKJ / 202/, W1JK /203/, W2JK /204/ C DEBUG =.FALSE. CALL SSWTCH (20,J) IF (J .EQ. 1) DEBUG =.TRUE. C C USE IZ TO COMPUTE BUFFERS C ICORE = KORSZ(IZ) IFILE = 4*SYSBUF + 3*NJ IF (ICORE .LE. IFILE) GO TO 460 C C OPEN INPUT STRUCTURAL DATA C ICORE = ICORE - SYSBUF CALL GOPEN (ACPT,IZ(ICORE+1),0) C C OPEN AND SKIP HEADER ON AERO C IFILE = AERO BUF1 = ICORE - SYSBUF CALL GOPEN (AERO,IZ(BUF1+1),0) C C READ 3 INPUT WORDS INTO COMMON C CALL READ (*450,*450,AERO,ND,3,1,N) C C OPEN OUTPUT FILE FOR AJJL MATRIX, SET UP TRAILER AND WRITE HEADER C BUF2 = BUF1 - SYSBUF IFILE = AJJL CALL OPEN (*440,AJJL,IZ(BUF2+1),1) CALL FNAME (AJJL,MCB) CALL WRITE (AJJL,MCB,2,0) CALL WRITE (AJJL,NJ,1,0) CALL WRITE (AJJL,NK,1,0) BUF3 = BUF2 - SYSBUF CALL GOPEN (SKJ,IZ(BUF3+1),1) IFILE = AERO CALL READ (*440,*10,AERO,IZ,BUF3,0,N) GO TO 460 10 NMK = N/2 CALL REWIND (AERO) CALL FWDREC (*450,AERO) CALL FWDREC (*450,AERO) CALL WRITE (AJJL,NMK,1,0) CALL WRITE (AJJL,IZ,N,0) IFILE = ACPT IZ(1) = 0 N1 = 2 20 CALL READ (*90,*90,ACPT,METHOD,1,0,N) IZ( 1) = IZ(1) + 1 IZ(N1) = METHOD GO TO (30,40,50,50,50,60,70), METHOD C C DOUBLET LATTICE METHOD C 30 CONTINUE CALL READ (*440,*450,ACPT,MCB,3,1,N) C C NUMBER OF COLUMNS ADDED EQUAL NUMBER OF BOXES C IZ(N1+1) = MCB(3) IZ(N1+2) = MCB(3) GO TO 80 C C DOUBLET LATTICE WITH BODIES C 40 CALL READ (*440,*450,ACPT,MCB,2,1,N) IZ(N1+1) = MCB(1) IZ(N1+2) = MCB(2) GO TO 80 C C MACH BOX STRIP THEORY PISTON THEORY C 50 CALL READ (*440,*450,ACPT,MCB,1,1,N) IZ(N1+1) = MCB(1) IZ(N1+2) = MCB(1) GO TO 80 C C COMPRESSOR BLADE METHOD C 60 CALL READ (*440,*450,ACPT,MCB,5,1,N) C C NUMBER OF COLUMNS ADDED IS NJ = NK = (NSTNS*NLINES) FOR THE BLADE C IZ(N1+1) = MCB(4)*MCB(5) IZ(N1+2) = IZ(N1+1) GO TO 80 C C SWEPT TURBOPROP BLADE METHOD C 70 CALL READ (*440,*450,ACPT,MCB,5,1,N) C C NUMBER OF COLUMNS ADDED IS NJ = NK = (2*NSTNS*NLINES) FOR THE PROP C IZ(N1+1) = 2*MCB(4)*MCB(5) IZ(N1+2) = IZ(N1+1) 80 N1 = N1 + 3 GO TO 20 90 CALL REWIND (ACPT) CALL WRITE (AJJL,IZ,N1-1,1) MCB(1) = AJJL MCB(2) = 0 MCB(3) = NJ MCB(4) = 2 MCB(5) = 3 MCB(6) = 0 MCB(7) = 0 INCR = 1 TSKJ(1) = SKJ TSKJ(2) = 0 TSKJ(3) = NK TSKJ(4) = 2 TSKJ(5) = 3 TSKJ(6) = 0 TSKJ(7) = 0 IFILE = ACPT C C READ MACH NUMBER AND REDUCED FREQUENCY AND LOOP UNTIL COMPLETED C 100 CALL READ (*210,*210,AERO,FMACH,2,0,N) C C NUMBER OF ROWS ADDED BY EACH RECORD ON ACPT C NROW = 0 ISK = 1 NSK = 0 C C SKIP HEADER C CALL FWDREC (*450,ACPT) C C READ A RECORD AND LOOP BY METHOD UNTIL EOF C NSK IS BUMPED BY DRIVERS = COLUMNS BUILT ISK = NEXT COLUMN C 110 CALL READ (*200,*200,ACPT,METHOD,1,0,N) GO TO (120,130,140,150,160,170,180), METHOD C C DOUBLET LATTICE METHOD C 120 CALL DLAMG (ACPT,AJJL,SKJ) GO TO 190 C C DOUBLET LATTICE WITH BODIES C 130 CALL DLAMBY (ACPT,AJJL,SKJ) GO TO 190 C C MACH BOX C 140 CALL MBAMG (ACPT,AJJL,SKJ) GO TO 190 C C STRIP THEORY C 150 CALL STPDA (ACPT,AJJL,SKJ) GO TO 190 C C PISTON THEORY C 160 CALL PSTAMG (ACPT,AJJL,SKJ) GO TO 190 C C COMPRESSOR BLADE METHOD C 170 CALL AMGB1 (ACPT,AJJL,SKJ) GO TO 190 C C SWEPT TURBOPROP BLADE METHOD C 180 CALL AMGT1 (ACPT,AJJL,SKJ) 190 IF (NSK .GT. NK) GO TO 400 IF (NROW.GT. NJ) GO TO 420 GO TO 110 200 CALL REWIND (ACPT) GO TO 100 210 CALL CLOSE (AERO,1) CALL CLOSE (AJJL,1) CALL CLOSE (SKJ,1) CALL WRTTRL (TSKJ) CALL WRTTRL (MCB) C C COMPUTE W1JK - W2JK C C C OPEN OUTPUT FILES C CALL FWDREC (*450,ACPT) IFILE = W1JK CALL GOPEN (W1JK,IZ(BUF1+1),1) IFILE = W2JK CALL GOPEN (W2JK,IZ(BUF2+1),1) IFILE = ACPT C C SET UP PACKX AND TRAILERS C INCR = 1 ITI = 1 ITO = 1 C C II AND NN ARE BUMPED BY METHOD DRIVERS C II = 1 DO 220 I = 2,7 TW1JK(I) = 0 TW2JK(I) = 0 220 CONTINUE TW1JK(1) = W1JK TW2JK(1) = W2JK TW1JK(3) = NK TW1JK(4) = 2 TW1JK(5) = 1 TW2JK(3) = NK TW2JK(4) = 2 TW2JK(5) = 1 C C READ A RECORD AND LOOP ON METHOD UNTIL EOR C 230 CALL READ (*300,*300,ACPT,METHOD,1,0,N) GO TO (240,250,260,260,260,270,280), METHOD C C DOUBLET LATTICE METHOD C 240 CALL DLPT2 (ACPT,W1JK,W2JK) GO TO 290 C C DOUBLET LATTICE WITH BODIES C 250 CALL DLBPT2 (ACPT,W1JK,W2JK) GO TO 290 C C STRIP THEORY PISTON THEORY C MACH BOX C 260 CALL STPPT2 (ACPT,W1JK,W2JK) GO TO 290 C C COMPRESSOR BLADE METHOD C 270 CALL AMGB2 (ACPT,W1JK,W2JK) GO TO 290 C C SWEPT TURBOPROP BLADE METHOD C 280 CALL AMGT2 (ACPT,W1JK,W2JK) 290 IF (NN .GT. NK) GO TO 410 GO TO 230 C C DONE C 300 CALL CLOSE (ACPT,1) CALL CLOSE (W1JK,1) CALL CLOSE (W2JK,1) CALL WRTTRL (TW1JK) CALL WRTTRL (TW2JK) RETURN C C ERROR MESSAGES C C NROW IN RECORDS DID NOT MATCH NJ PARAMETER C 400 NROW = NSK NJ = NK GO TO 420 410 NROW = NN NJ = NK 420 WRITE (IOUT,430) SFM,NROW,NJ 430 FORMAT (A25,' 2264, NUMBER OF ROWS COMPUTED (',I4,') WAS GREATER', 1 ' THAN SIZE REQUESTED FOR OUTPUT MATRIX (',I4,2H).) CALL MESAGE (-61,N,NAME) 440 NMS = -1 GO TO 470 450 NMS = -2 GO TO 470 460 NMS = -8 470 CALL MESAGE (NMS,IFILE,NAME) RETURN END ================================================ FILE: mis/amgb1.f ================================================ SUBROUTINE AMGB1 (INPUT,MATOUT,SKJ) C C DRIVER FOR COMPRESSOR BLADE THEORY. C COMPUTATIONS ARE FOR THE AJJL AND SKJ MATRICES. C FOR COMPRESSOR BLADES K-SET = J-SET = NLINES*NSTNS. C SKJ = W*F(INVERS)TRANSPOSE. C C LOGICAL TSONIC,DEBUG INTEGER ECORE,SYSBUF,IZ(1),NAME(2),SLN,SKJ,TSKJ REAL MINMAC,MAXMAC,MACH,RADII(50) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ,TSKJ(7),ISK, 1 NSK COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ COMMON /BAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAGER, 2 CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC,XSIGN COMMON /ZZZZZZ/ WORK(1) COMMON /SYSTEM/ SYSBUF,IOUT COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /BLANK / NK,NJ COMMON /AMGBUG/ DEBUG EQUIVALENCE (WORK(1),IZ(1)) DATA NAME / 4HAMGB,4H1 / C C READ PARAMETERS IREF,MINMAC,MAXMAC,NLINES AND NSTNS C CALL READ (*999,*999,INPUT,IREF,5,0,N) IF (DEBUG) CALL BUG1 ('ACPT-REF ',5,IREF,5) C C READ REST OF ACPT RECORD INTO OPEN CORE AND LOCATE REFERENCE C PARAMETERS REFSTG,REFCRD,REFMAC,REFDEN,REFVEL AND REFFLO C STORE STREAMLINE RADIUS FOR ALL STREAMLINES C ECORE = KORSZ(IZ) - 4*SYSBUF CALL READ (*10,*10,INPUT,IZ,ECORE,1,NWAR) GO TO 998 10 IRSLN = 0 IF (DEBUG) CALL BUG1 ('ACPT-REST ',10,IZ,NWAR) NTSONX= 0 NDATA = 3*NSTNS + 10 NLINE = 0 DO 20 I = 1,NWAR,NDATA C C LOCATE REFERENCE STREAMLINE NUMBER (IREF = SLN) C IF (IREF .EQ. IZ(I)) IRSLN = I C C STORE AMACH FOR LATER DATA CHECK. COUNT TRANSONIC STREAMLINES C AMACHL = WORK(I+6)*COS(DEGRA*(WORK(I+9)-WORK(I+2))) IF (AMACHL.GT.MAXMAC .AND. AMACHL.LT.MINMAC) NTSONX = NTSONX + 1 NLINE = NLINE + 1 WORK(NWAR+NLINE) = AMACHL RADII(NLINE) = WORK(I+4) 20 CONTINUE C C DETERMINE DIRECTION OF BLADE ROTATION VIA Y-COORDINATES AT TIP C STREAMLINE. USE COORDINATES OF FIRST 2 NODES ON STREAMLINE. C IPTR = NDATA*(NLINES-1) XSIGN = 1.0 IF (WORK(IPTR+15) .LT. WORK(IPTR+12)) XSIGN = -1.0 C IF (DEBUG) CALL BUG1 ('RADII ',25,RADII,NLINES) C C INPUT CHECKS - C (1) AMACH MUST INCREASE FROM BLADE ROOT TO BLADE TIP C (2) ALL TRANSONIC AMACH-S ARE NOT ALLOWED AT PRESENT C IBAD = 0 IF (NTSONX .LT. NLINES) GO TO 30 IBAD = 1 WRITE (IOUT,1001) UFM 30 CONTINUE NW1 = NWAR + 1 NW2 = NWAR + NLINES - 1 DO 35 I = NW1,NW2 IF (WORK(I) .GT. WORK(I+1)) GO TO 40 35 CONTINUE GO TO 45 40 IBAD = 1 ISLN = (I-NWAR-1)*NDATA + 1 WRITE (IOUT,1002) UFM,IZ(ISLN) 45 IF (IBAD .NE. 0) GO TO 997 C C SET TSONIC IF THERE ARE ANY TRANSONIC STREAMLINES C TSONIC = .FALSE. IF (NTSONX .GT. 0) TSONIC = .TRUE. C C STORE REFERENCE PARAMETERS C DID IREF MATCH AN SLN OR IS THE DEFAULT TO BE TAKEN (BLADE TIP) C IF (IRSLN .EQ. 0) IRSLN = (NLINES-1)*NDATA + 1 REFSTG = WORK(IRSLN+2) REFCRD = WORK(IRSLN+3) REFMAC = WORK(IRSLN+6) REFDEN = WORK(IRSLN+7) REFVEL = WORK(IRSLN+8) REFFLO = WORK(IRSLN+9) C C REPOSITION ACPT TO BEGINNING OF COMPRESSOR BLADE DATA C CALL BCKREC (INPUT) CALL FREAD (INPUT,0,-6,0) IF (DEBUG) CALL BUG1 ('BAMG1L ',47,IREF,26) C C COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE C IP1 AND IP2 ARE COMPLEX POINTERS C NAJJC = NSTNS NTSONX = 1 IF (TSONIC) NAJJC = NLINES*NSTNS IF (TSONIC) NTSONX = NLINES IP1 = 1 IP2 = IP1 + 2*(NSTNS*NAJJC) IP3 = IP2 + 2*NSTNS IP4 = IP3 + NTSONX IP5 = IP4 + NTSONX NEXT = IP5 + NTSONX IF (NEXT .GT. ECORE) GO TO 998 C C CALL ROUTINE TO COMPUTE AND OUTPUT AJJL. C ITI = 3 ITO = 3 C CALL AMGB1A (INPUT,MATOUT,WORK(IP1),WORK(IP2),WORK(IP3), 1 WORK(IP4),WORK(IP5)) IF (DEBUG) CALL BUG1 ('AJJL ',48,WORK(IP1),IP2-1) C C COMPUTE F(INVERSE) AND W(FACTOR) FOR EACH STREAMLINE C C COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE C NSNS = NSTNS*NSTNS IP1 = 1 IP2 = IP1 + NSNS NEXT = IP2 + 3*NSTNS IF (NEXT .GT. ECORE) GO TO 998 C C REPOSITION ACPT TO BEGINNING OF COMPRESSOR BLADE DATA C CALL BCKREC (INPUT) CALL FREAD (INPUT,0,-6,0) C ITI = 1 ITO = 3 C II = ISK NSK = NSK + NSTNS NN = NSK DO 100 NLINE = 1,NLINES CALL AMGB1S (INPUT,WORK(IP1),WORK(IP2),WORK(IP2),RADII,WFACT, 1 NLINE) C C OUTPUT SKJ (= WFACT*F(INVERS)TRANSPOSE) FOR THIS STREAMLINE C IP3 = IP2 + NSTNS - 1 DO 60 I = 1,NSTNS K = I DO 50 J = IP2,IP3 WORK(J) = WORK(K)*WFACT 50 K = K + NSTNS CALL PACK (WORK(IP2),SKJ,TSKJ) IF (DEBUG) CALL BUG1 ('SKJ ',55,WORK(IP2),NSTNS) 60 CONTINUE II = II + NSTNS IF (NLINE .EQ. NLINES) GO TO 100 NN = NN + NSTNS 100 CONTINUE C C UPDATE NROW AND PACK POINTERS C NROW = NROW + NLINES*NSTNS IF (DEBUG) CALL BUG1 ('NEW-NROW ',110,NROW,1) ISK = II NSK = NN RETURN C C ERROR MESSAGES C C BAD STREAMLINE DATA C 997 CALL MESAGE (-61,0,0) C C NOT ENOUGH CORE C 998 CALL MESAGE (-8,0,NAME) C C INPUT NOT POSITIONED PROPERLY OR INCORRECTLY WRITTEN C 999 CALL MESAGE (-7,0,NAME) RETURN C 1001 FORMAT (A23,' -AMG MODULE- ALL TRANSONIC STREAMLINES NOT ALLOWED', 1 /39X,'CHECK MACH ON STREAML2 BULK DATA CARDS OR', /39X, 2 'CHANGE PARAMETERS MINMACH AND MAXMACH.') 1002 FORMAT (A23,' -AMG MODULE- MACH NUMBERS MUST INCREASE FROM BLADE', 1 ' ROOT TO BLADE TIP.', /39X, 2 'CHECK STREAML2 BULK DATA CARD WITH SLN =',I3) END ================================================ FILE: mis/amgb1a.f ================================================ SUBROUTINE AMGB1A (INPUT,MATOUT,AJJ,AJJT,TSONX,TAMACH,TREDF) C C COMPUTE AJJ MATRIX FOR COMPRESSOR BLADES C LOGICAL TSONIC,DEBUG INTEGER SLN,NAME(2),TSONX(1) REAL MINMAC,MAXMAC,MACH COMPLEX AJJ(NSTNS,1),AJJT(NSTNS) DIMENSION TAMACH(1),TREDF(1) COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /BAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAGER, 2 CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC COMMON /AMGBUG/ DEBUG DATA NAME / 4HAMGB,4H1A / C C LOOP ON STREAMLINES, COMPUTE AJJ FOR EACH STREAMLINE AND THEN C PACK AJJ INTO AJJL MATRIX AT CORRECT POSITION C II = 0 NN = 0 NSTNS3 = 3*NSTNS DO 100 LINE = 1,NLINES C C READ STREAMLINE DATA (SKIP COORDINATE DATA) C CALL READ (*999,*999,INPUT,SLN,10,0,NWAR) CALL READ (*999,*999,INPUT,0,-NSTNS3,0,NWAR) C C COMPUTE PARAMETERS C AMACH = MACH*COS(DEGRA*(FLOWA-STAGER)) REDF = RFREQ*(CHORD/REFCRD)*(REFVEL/VEL)*(MACH/AMACH) BLSPC = BSPACE/CHORD IF (DEBUG) CALL BUG1 ('BAMG1L ',5,IREF,26) C C COMPUTE POINTER FOR LOCATION INTO AJJ MATRIX C IAJJC = 1 IF (TSONIC) IAJJC = NSTNS*(LINE-1) + 1 C C BRANCH TO SUBSONIC, SUPERSONIC OR TRANSONIC CODE C TAMACH(LINE) = AMACH TREDF(LINE) = REDF IF (AMACH .LE. MAXMAC) GO TO 10 IF (AMACH .GE. MINMAC) GO TO 20 C C TRANSONIC STREAMLINE. STORE DATA FOR TRANSONIC INTERPOLATION C TSONX(LINE) = IAJJC GO TO 100 C C SUBSONIC STREAMLINE C 10 CALL AMGB1B (AJJ(1,IAJJC)) GO TO 30 C C SUPERSONIC STREAMLINE C 20 CALL AMGB1C (AJJ(1,IAJJC)) 30 CONTINUE C C IF THERE ARE NO TRANSONIC STREAMLINES OUTPUT THIS AJJ SUBMATRIX C IF (TSONIC) GO TO 60 II = NN + 1 NN = NN + NSTNS C C OUTPUT AJJ MATRIX C DO 50 I = 1,NSTNS IF (DEBUG) CALL BUG1 ('SS-AJJL ',40,AJJ(1,I),NSTNS*2) CALL PACK (AJJ(1,I),MATOUT,MCB) 50 CONTINUE GO TO 100 60 TSONX(LINE) = 0 100 CONTINUE C C PERFORM TRANSONIC INTERPOLATION, IF NECESSARY C IF (.NOT.TSONIC) GO TO 300 IF (DEBUG) CALL BUG1 ('TSONX ',102,TSONX,NLINES) IF (DEBUG) CALL BUG1 ('TAMACH ',103,TAMACH,NLINES) IF (DEBUG) CALL BUG1 ('TREDF ',104,TREDF,NLINES) CALL AMGB1D (AJJ,TSONX,TAMACH,TREDF) C C OUTPUT AJJ FOR EACH STREAMLINE C DO 200 NLINE = 1,NLINES II = NN + 1 NN = NN + NSTNS DO 120 I = II,NN IF (DEBUG) CALL BUG1 ('STS-AJJL ',110,AJJ(1,I),NSTNS*2) CALL PACK (AJJ(1,I),MATOUT,MCB) 120 CONTINUE 200 CONTINUE 300 RETURN C C ERROR MESSAGES C C INPUT NOT POSITIONED PROPERLY OR INCORRECTLY WRITTEN C 999 CALL MESAGE (-7,0,NAME) RETURN END ================================================ FILE: mis/amgb1b.f ================================================ SUBROUTINE AMGB1B (Q) C C SUBSONIC RAO (CASCADES) C INTEGER SLN REAL M,KAPPA,MU,MUS,LAMDA,LAMDM,NU, 1 X(20),DISP(20,10),W(8) COMPLEX Q(NSTNS,NSTNS),LOADS(21),STT(20),SUM, 1 AN(401),AB(401),FK(401),CN(401),CB(401),PD(401), 2 SO(100),S1(100),P(50),A(20,30), 3 FF,ST,STP,FG,FS,FO,SLOPE CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAG, 2 CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ COMMON /SYSTEM/ IBUF,IOUT DATA W / 1.48283,.89414,.83521,.66721, 1 .64172,.55519,.54026,.48547 / C C THEORY DEPENDENT RESTRICTION OF NO MORE THAN 10 COMPUTING C STATIONS PER STREAMLINE IS REFLECTED IN CODING. C IF (NSTNS .GT. 10) GO TO 1000 M = AMACH OMEGA = REDF SS = 2*BLSPC DELTM =-SIGMA XLAM = STAG NM = NSTNS N = 20 PI = 3.141593 PI2 = PI*2 CON = 1.0E-5 NNN = 100 KKK = 2*NNN + 1 DELTM = DELTM/360 XL = XLAM*PI/180 B = 1.0/N B2 = 2*B D = SS*SIN(XL) HH = SS*COS(XL) BETA = SQRT(1. - M**2) H = HH*BETA ZER = 0.0 S = SQRT(H**2 + D**2) LAMDM = ATAN(D/H) CL = COS(LAMDM) SL = SIN(LAMDM) NU = OMEGA/BETA**2 KAPPA = M*NU LAMDA = M*KAPPA DELTA = DELTM + LAMDA*D/PI2 MU = KAPPA*S/PI2 MUS = MU**2 FF = (0.0,1.0) FG = CMPLX(ZER,NU*S) L = 1 CC = DELTA**2 - MUS IF (CC .EQ. 0.0) GO TO 200 IF (CC .LT. 0.0) FK(L) = SQRT(-CC)*FF IF (CC .GT. 0.0) FK(L) = SQRT(CC) AN(L) = FK(L)*CL + FF*DELTA*SL AB(L) = FK(L)*CL - FF*DELTA*SL PD(L) = FK(L)*(PI2*AB(L) + FG) CK = PI2*B/S CN(L) = CEXP(-AN(L)*CK) CB(L) = CEXP(-AB(L)*CK) DO 20 I = 1,NNN L = L + 1 CC = (DELTA+I)**2 - MUS IF (CC .EQ. 0.0) GO TO 200 IF (CC .LT. 0.0) FK(L) = SQRT(-CC)*FF IF (CC .GT. 0.0) FK(L) = SQRT(CC) AN(L) = FK(L)*CL + (DELTA+I)*FF*SL AB(L) = FK(L)*CL - (DELTA+I)*FF*SL PD(L) = FK(L)*(PI2*AB(L)+FG) CN(L) = CEXP(-AN(L)*CK) CB(L) = CEXP(-AB(L)*CK) L = L + 1 CC = (DELTA-I)**2 - MUS IF (CC .EQ. 0.0) GO TO 200 IF (CC .GT. 0.0) FK(L) = SQRT(CC) IF (CC .LT. 0.0) FK(L) = SQRT(-CC)*FF AN(L) = FK(L)*CL+(DELTA-I)*FF*SL AB(L) = FK(L)*CL-(DELTA-I)*FF*SL PD(L) = FK(L)*(PI2*AB(L)+FG) CN(L) = CEXP(-AN(L)*CK) CB(L) = CEXP(-AB(L)*CK) 20 CONTINUE STP = 0.0 L = 1 ST = ((1-CN(L))/AN(L) + (1-CB(L))/AB(L))/FK(L) DO 25 I = 2,KKK,2 L = I ST = ((1-CN(L))/AN(L) + (1-CB(L))/AB(L))/FK(L) + ST L = L + 1 ST = ((1-CN(L))/AN(L) + (1-CB(L))/AB(L))/FK(L) + ST IF (CABS(ST-STP) .LT. CON) GO TO 30 STP = ST 25 CONTINUE 30 CONTINUE SO(1) =-ST*S/(2*PI2*B2) DO 40 J = 2,N JK = 2*(J-1) L = 1 STP = 0.0 ST = CN(L)**JK/FK(L) DO 32 I = 2,KKK,2 L = L + 1 ST = CN(L)**JK/FK(L) + ST L = L + 1 ST = CN(L)**JK/FK(L) + ST IF (CABS(ST-STP) .LT. CON) GO TO 35 32 STP = ST 35 SO(J) =-0.5*ST 40 CONTINUE N1 = N + 1 N2 = 3*N - 1 DO 50 J = N1,N2 JK = J - N STP = 0.0 L = 1 ST = CB(L)**JK/FK(L) DO 42 I = 2,KKK,2 L = L + 1 ST = CB(L)**JK/FK(L) + ST L = L + 1 ST = CB(L)**JK/FK(L) + ST IF (CABS(ST-STP) .LT. CON) GO TO 45 42 STP = ST 45 SO(J) =-0.5*ST 50 CONTINUE DO 55 J = 1,N JK = (J-1)*2 + 1 L = 1 STP = 0.0 ST = AN(L)*CN(L)**JK/FK(L) DO 52 I = 2,KKK,2 L = L + 1 ST = AN(L)*CN(L)**JK/FK(L) + ST L = L + 1 ST = AN(L)*CN(L)**JK/FK(L) + ST IF (CABS(ST-STP) .LT. CON) GO TO 54 STP = ST 52 CONTINUE 54 S1(J) =-PI/S*ST 55 CONTINUE N1 = N + 1 N2 = 2*N DO 60 J = N1,N2 JK = (J-N1)*2 + 1 L = 1 STP = 0.0 ST = AB(L)*CB(L)**JK/FK(L) DO 57 I = 2,KKK,2 L = L + 1 ST = AB(L)*CB(L)**JK/FK(L) + ST L = L + 1 ST = AB(L)*CB(L)**JK/FK(L) + ST IF (CABS(ST-STP) .LT. CON) GO TO 59 STP = ST 57 CONTINUE 59 S1(J) = PI/S*ST 60 CONTINUE DO 64 J = 1,N JK = (J-1)*2 + 1 L = 1 STP = 0.0 ST = CB(L)**JK/PD(L) DO 61 I = 2,KKK,2 L = L + 1 ST = CB(L)**JK/PD(L) + ST L = L + 1 ST = CB(L)**JK/PD(L) + ST IF (CABS(ST-STP) .LT. CON) GO TO 62 STP = ST 61 CONTINUE 62 P(J) =-S/2*ST 64 CONTINUE FG = CMPLX(ZER,-NU*B) FG = 1/(CEXP(FG) + CMPLX(ZER,NU*B2)) FS = CMPLX(ZER,NU) CJ = (NU*BETA)**2 L = 0 CT = 2*KAPPA**2*B DO 70 J = 1,N DO 70 I = 1,N L = L + 1 NK = I - J + 1 NK1 = I - J NK2 = NK1 + 1 IF (I .EQ. J) NK1 = N + 1 IF (I .EQ. J) NK2 = 1 IF (J .LE. I) GO TO 65 NK1 = N + J - I + 1 NK2 = NK1 - 1 NK = N + 2*(J-I) 65 A(I,J)= S1(NK1) - S1(NK2) + CT*SO(NK) IF (J .NE. N) GO TO 70 NK = N + 2*(J-I) + 1 NK2 = J - I + 1 A(I,J)= A(I,J) - FG*(S1(NK1) + SO(NK)*FS + CJ*P(NK2)) 70 CONTINUE X(1) =-1.0 + B DO 81 I = 2,N 81 X(I) = X(I-1) + B2 N1 = N + NM N1N = N - 1 N1M = NM- 1 N11 = N + 1 N22 = N + 2 FO = FF*OMEGA DO 75 I = 1,N DISP(I,1) =-1.0 DISP(I,2) =-1.0 - X(I) STT(I)= CEXP(-FF*LAMDA*X(I))*PI2/BETA A(I,N11) = STT(I)*FO*DISP(I,1) 75 A(I,N22) = STT(I)*(FO*DISP(I,2)-1.) DO 83 JJ = 3,NM NF = N + JJ CON2 = PI*(JJ-2)/2 DO 83 I = 1,N CON = CON2*DISP(I,2) DISP(I,JJ) =SIN(CON) 83 A(I,NF) = STT(I)*(FO*DISP(I,JJ) - CON2*COS(CON)) CWKBR SPR93019 10/93 CALL GAUSS (A,N,N1) CALL GAUSS2 (A,N,N1) DO 95 J = 1,NM NF = N + J DO 84 I = 1,N 84 LOADS(I) = A(I,NF) C SLOPE = LOADS(2)/3./B A(1,NF)= 2.*CEXP(LAMDA*FF*X(1))*(FF*NU*LOADS(1) + SLOPE) C SLOPE = (LOADS(N) - LOADS(N1N))/B2 A(N,NF)= 2.*CEXP(LAMDA*FF*X(N))*(FF*NU*LOADS(N) + SLOPE) C DO 85 I = 2,N1N SLOPE = (LOADS(I+1) - LOADS(I-1))/4./B 85 A(I,NF)= 2.*CEXP(LAMDA*FF*X(I))*(FF*NU*LOADS(I) + SLOPE) 95 CONTINUE DO 86 I = 1,N A(I,1) = SQRT((1-X(I))/(1+X(I))) DO 87 J = 2,N1M 87 A(I,J) =-DISP(I,J+1) DO 86 J = NM,N CON2 =-PI*(J-1)*DISP(I,2)/2 86 A(I,J) = SIN(CON2) CWKBR SPR93019 10/93 CALL GAUSS (A,N,N1) CALL GAUSS2 (A,N,N1) A(1,1) = PI CON = 1. DO 88 J = 1,N1N A(1,J+1) = CON*4/J/PI 88 CON = 1. - CON A(2,1) = PI/2 CON = 0. DO 89 J = 1,N1N A(2,J+1) = A(1,J+1) - CON*4/J/PI 89 CON = 1. - CON DO 90 I = 3,NM DO 90 J = 2,N CON = 0. IF ((I-1) .EQ. J) CON = 1. 90 A(I,J) = CON DO 91 J = 3,NM 91 A(J,1) = W(J-2) DO 160 J = 1,NM DO 160 K = 1,NM NF = N + K SUM = (0.,0.) DO150 I = 1,N 150 SUM = SUM + A(J,I)*A(I,NF) 160 Q(J,K)= SUM 200 RETURN C 1000 WRITE (IOUT,3001) UFM,SLN,NSTNS 3001 FORMAT (A23,' - AMG MODULE - NUMBER OF COMPUTING STATIONS ON ', 1 'STREAMLINE',I8,4H IS ,I3,1H., /39X,'SUBSONIC CASCADE ', 2 'ROUTINE AMGB1B ALLOWS ONLY A MAXIMUM OF 10.') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/amgb1c.f ================================================ SUBROUTINE AMGB1C (Q) C C UNSTEADY FLOW ANALYSIS OF A SUPERSONIC CASCADE C INTEGER SLN COMPLEX SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4, 1 AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5, 2 AM5T,AI,A,B,BSYCON,ALP,F1,AM1,ALN,BLKAPM,BKDEL3, 3 F1S,C1,C2P,C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1, 4 SUM2,F2,BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T, 5 C1P,C1N,BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC, 6 BC2,BC3,BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT, 7 PRES1,PRES2,PRES3,PRES4,QRES4,FQA,FQB,FQ7,PRESU, 8 PRESL,Q,GUSAMP DIMENSION GYE(29,29),GEE(29,40),PRESU(29),PRESL(29),XUP(29), 1 XTEMP(29),GEETMP(29,20),XLOW(29),AYE(10,29), 2 INDEX(29,3),Q(NSTNS,NSTNS),PRES1(21),PRES2(21), 3 PRES3(21),PRES4(21),QRES4(21),SBKDE1(201), 4 SBKDE2(201),SUMSV1(201),SUMSV2(201),SVKL1(201), 5 SVKL2(201),XLSV1(21),XLSV2(21),XLSV3(21),XLSV4(21) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IBBOUT COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGM ,RFREQ COMMON /BAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STG, 2 CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACHD, 3 REDFD,BLSPC,AMACHR,TSONIC COMMON /BLK1 / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES COMMON /BLK2 / BSYCON COMMON /BLK3 / SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4, 1 AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5, 2 AM5T,A,B,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,C2P, 3 C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2, 4 BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,C1P,C1N, 5 BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,BC2,BC3, 6 BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,PRES1,PRES2, 7 PRES3,PRES4,QRES4,FQA,FQB,FQ7 COMMON /BLK4 / I,R,Y,A1,B1,C4,C5,GL,I6,I7,JL,NL,RI,RT,R5,SN,SP, 1 XL,Y1,AMU,GAM,IDX,INX,NL2,RL1,RL2,RQ1,RQ2,XL1, 2 ALP1,ALP2,GAMN,GAMP,INER,IOUT,REDF,STAG,STEP, 3 AMACH,BETNN,BETNP,BKAP1,XLSV1,XLSV2,XLSV3,XLSV4, 4 ALPAMP,AMOAXS,GUSAMP,DISAMP,PITAXS,PITCOR C C THEORY DEPENDENT RESTRICTION OF NO MORE THAN 10 COMPUTING C STATIONS PER STREAMLINE IS REFLECTED IN CODING. C IF (NSTNS .GT. 10) GO TO 420 C REDF = REDFD AMACH = AMACHD AI = CMPLX(0.0,1.0) PI = 3.1415927 PITCOR= BLSPC STAG = 90.0 - STG SIGMA = -SIGM*PI/180.0 BETA = SQRT(AMACH**2 - 1.0) SCRK = REDF*AMACH/(BETA**2) DEL = SCRK*AMACH AMU = REDF/(BETA**2) SP = PITCOR*COS(STAG*PI/180.0)*2.0 SN = PITCOR*SIN(STAG*PI/180.0)*2.0 SPS = SP SNS = SN*BETA DSTR = SQRT(SPS**2 - SNS**2) SPS1 = ABS(SPS - SNS) IF (SPS1 .LT. .00001) GO TO 400 C C ZERO OUT GEE C NSTNS2 = 2*NSTNS NSTNS4 = 4*NSTNS DO 10 I = 1,29 DO 10 J = 1,NSTNS4 10 GEE(I,J) = 0.0 PITAXS = 0.0 AMOAXS = 0. CALL ASYCON CALL AKP2 RL1 = 9 S1 = SPS - SNS AA = S1/RL1 XLSV1(1) = 0.0 DO 20 JL = 1,9 20 XLSV1(JL+1) = JL*AA AA = SPS - SNS RL2 = 19 S1 = 2.0 + SNS - SPS TEMP= S1/RL2 XL = AA DO 30 JL = 1,20 XLSV2(JL) = XL XLSV3(JL) = XL + SNS - SPS 30 XL = XL + TEMP XL = SNS + 2.0 - SPS TEMP= (SPS-SNS)/RL1 DO 40 JL = 1,10 XLSV4(JL) = XL 40 XL = XL + TEMP C C ACCUMULATE PRESSURE VECTORS INTO G-MATRIX C DO 140 NM = 1,NSTNS NTIMES = 1 IF (NM .GT.2) NTIMES = 2 DO 130 NMM = 1,NTIMES C C DEFINE ----------------------------- C ALPAMP - PITCHING AMP C DISAMP - PLUNGING AMP C GUSAMP - GUST AMP C GL -GUST WAVE NUMBER C ALPAMP = 0.0 IF (NM .EQ. 2) ALPAMP = 1.0 DISAMP = 0.0 IF (NM .EQ. 1) DISAMP = 1.0 GUSAMP = 0.0 GL = 0.0 IF (NM.GT.2 .AND. NMM.EQ.1) GUSAMP =-REDF/2.0 + (NM-2)*PI/4.0 IF (NM.GT.2 .AND. NMM.EQ.1) GL = (NM-2)*PI/2.0 IF (NM.GT.2 .AND. NMM.EQ.2) GUSAMP = REDF/2.0 + (NM-2)*PI/4.0 IF (NM.GT.2 .AND. NMM.EQ.2) GL =-(NM-2)*PI/2.0 C A = (1.0+AI*REDF*PITAXS)*ALPAMP - AI*REDF*DISAMP B =-AI*REDF*ALPAMP IF (GL .EQ. 0.0) GO TO 50 A = GUSAMP B = 0.0 50 CONTINUE CALL SUBA C C FIND DELTA P(LOWER-UPPER) C DO 80 NX = 1,10 PRESU(NX) = PRES1(NX) XUP(NX) = XLSV1(NX) IF (NX .EQ. 10) GO TO 60 NXX = NX + 20 PRESL(NXX) = PRES4(NX+1) XLOW( NXX) = XLSV4(NX+1) GO TO 70 60 PRESU(NX) = (PRES1(10) + PRES2(1))/2.0 XUP(10) = (XLSV1(10) + XLSV2(1))/2.0 70 CONTINUE 80 CONTINUE DO 110 NX = 1,20 NXX = NX + 10 IF (NX .EQ. 20) GO TO 90 PRESU(NXX) = PRES2(NX+1) XUP (NXX) = XLSV2(NX+1) PRESL(NX) = PRES3(NX) XLOW( NX) = XLSV3(NX) GO TO 100 90 PRESL(20) = (PRES3(20) + PRES4(1))/2.0 XLOW(20) = (XLSV3(20) + XLSV4(1))/2.0 100 CONTINUE 110 CONTINUE NM2 = NM + NSTNS NM3 = NM + 2*NSTNS NM4 = NM + 3*NSTNS DO 120 NMMM = 1,29 GEE(NMMM,NM) = GEE(NMMM,NM ) + REAL(PRESL(NMMM)) GEE(NMMM,NM2) = GEE(NMMM,NM2) + AIMAG(PRESL(NMMM)) GEE(NMMM,NM3) = GEE(NMMM,NM3) + REAL(PRESU(NMMM)) GEE(NMMM,NM4) = GEE(NMMM,NM4) + AIMAG(PRESU(NMMM)) 120 CONTINUE 130 CONTINUE 140 CONTINUE C C NOW DEFINE I-MATRIX (NSTNS X 29) C AYE(1,1) = 2.0 CON = 1.0 AYE(1,2) = 2.0 N1N = 27 DO 150 J = 1,N1N AYE(1,J+2) = CON*4.0/J/PI 150 CON = 1.0 - CON AYE(2,1) = 2.0 AYE(2,2) = 2.66666667 CON = 1.0 DO 160 J = 1,N1N AYE(2,J+2) = CON*4/J/PI 160 CON = -CON DO 170 I = 3,NSTNS DO 170 J = 2,28 CON = 0.0 IF ((I-1) .EQ. J) CON = 1.0 170 AYE(I,J+1) = CON DO 180 J = 3,NSTNS AYE(J,1) = AYE(1,J) 180 AYE(J,2) = AYE(2,J) C C Q DUE TO PRESL ONLY C C NOW DEFINE LARGE G MATRIX C DO 190 I = 1,29 GYE(1,I) = 0.0 190 GYE(I,1) = 1.0 C C PUT XLOW IN XTEMP C DO 200 I = 1,29 200 XTEMP(I) = XLOW(I) DO 210 J = 3,29 CONST = (J-2)*PI/2.0 DO 210 I = 2,29 GYE(I,J) = SIN(CONST*XTEMP(I)) 210 CONTINUE DO 220 I = 2,29 220 GYE(I,2) = XTEMP(I) C C PUT PRESL PART OF GEE IN GEETMP C DO 230 I = 1,29 DO 230 J = 1,NSTNS2 230 GEETMP(I,J) = GEE(I,J) C C SOLVE FOR G-INVERSE G IN GEE MATRIV C ISING = 1 NON-SINGULAR (GYE) C ISING = 2 SIGULAR (GYE) C INDEX IS WORK STORAGE FOR ROUTINE INVERS C ISING = -1 CALL INVERS (29,GYE,29,GEETMP,NSTNS2,DETERM,ISING,INDEX) IF (ISING .EQ. 2) GO TO 410 C C NOW MULTIPLY I*G-INVERSE*G(DELTA P'S) C DO 250 J = 1,NSTNS DO 250 K = 1,NSTNS NF = K + NSTNS SUMI = 0.0 SUMR = 0.0 DO 240 I = 1,29 SUMR = AYE(J,I)*GEETMP(I,K ) + SUMR SUMI = AYE(J,I)*GEETMP(I,NF) + SUMI 240 CONTINUE C C NOTE - NOTE THAT DUE TO CEXP( - I*OMEGA*T) TYPE OF TIME DEPENDENCE C IN UCAS DEVELOPMENT, Q IS DEFINED AS THE COMPLEX CONJUGATE C OF 'USUAL' Q C 250 Q(J,K) = 2.0*CMPLX(SUMR,-SUMI) C C FINALLY, Q DUE TO (PRESL-PRESU) IS COMPUTED BY SUBTRACTING Q DUE C TO PRESU FROM Q DUE TO PRESL ABOVE C C LARGE G MATRIX C DO 260 I = 1,29 GYE(1,I) = 0.0 260 GYE(I,1) = 1.0 C C PUT XUP IN XTEMP C DO 270 I = 1,29 270 XTEMP(I) = XUP(I) DO 280 J = 3,29 CONST = (J-2)*PI/2.0 DO 280 I = 2,29 GYE(I,J) = SIN(CONST*XTEMP(I)) 280 CONTINUE DO 290 I = 2, 29 290 GYE(I,2) = XTEMP(I) C C PUT PRESU PART OF GEE IN GEETMP C DO 300 I = 1,29 DO 300 J = 1,NSTNS2 C NSNS2 = NSTNS2 + J 300 GEETMP(I,J) = GEE(I,NSNS2) C C SOLVE FOR G-INVERSE G IN GEETMP MATRIX C ISING = 1 NON-SINGULAR (GYE) C ISING = 2 SINGULAR GYE C INDEX IS WORK STORAGE FOR ROUTINE INVERS C ISING = -1 CALL INVERS (29,GYE,29,GEETMP,NSTNS2,DETERM,ISING,INDEX) C IF (ISING .EQ. 2) GO TO 410 C C MULTIPLY I*G-INVERS*G C DO 320 J = 1,NSTNS DO 320 K = 1,NSTNS NF = K + NSTNS SUMI = 0.0 SUMR = 0.0 DO 310 I = 1,29 C SUMR = AYE(J,I)*GEETMP(I,K ) + SUMR SUMI = AYE(J,I)*GEETMP(I,NF) + SUMI C 310 CONTINUE C 320 Q(J,K) = Q(J,K) - 2.0*CMPLX(SUMR,-SUMI) C RETURN C 400 WRITE (IBBOUT,500) UFM GO TO 430 410 WRITE (IBBOUT,510) UFM GO TO 430 420 WRITE (IBBOUT,520) UFM,SLN,NSTNS 430 CALL MESAGE (-61,0,0) RETURN C 500 FORMAT (A23,' - AMG MODULE -SUBROUTINE AMGB1C', /39X, 1 'AXIAL MACH NUMB. IS EQUAL TO OR GREATER THAN ONE.') 510 FORMAT (A23,' - AMG MODULE - LARGE G-MATRIX IS SINGULAR IN ', 2 'ROUTINE AMGBIC.') 520 FORMAT (A23,' - AMG MODULE - NUMBER OF COMPUTING STATIONS ON ', 1 'STREAMLINE',I8,4H IS ,I3,1H. , /39X,'SUPERSONIC CASCADE', 2 ' ROUTINE AMGB1C ALLOWS ONLY A MAXIMUM OF 10.') END ================================================ FILE: mis/amgb1d.f ================================================ SUBROUTINE AMGB1D (AJJ,TSONX,TAMACH,TREDF) C C THIS ROUTINE INTERPOLATES TRANSONIC AJJ MATRICES C COMPLEX AJJ(NSTNS,1) C INTEGER TSONX(1) C DIMENSION TAMACH(1),TREDF(1) C COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ COMMON /BAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAGER, 2 CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC C NUMM = 2 * NSTNS * NSTNS DO 100 NLINE = 1,NLINES IF(TSONX(NLINE).EQ. 0) GO TO 100 NS = 0 IF(NLINE .EQ. 1) GO TO 90 IF(TAMACH(NLINE) .GE. 1.0) GO TO 20 C SUBSONIC IF(NLINE . EQ.2) NLINE1=1 IF(NLINE . EQ.2) GO TO 93 17 NLINE1 = NLINE -2 NLINE2 = NLINE -1 GO TO 70 C SUPERSONIC 20 IF( NLINE .EQ. NLINES) GO TO 17 NS =1 GO TO 90 30 IF(NLINE1 .EQ. 0) GO TO 17 IF(NLINE2 .NE. 0) GO TO 70 NLINE2 = NLINE1 NLINE1 = NLINE-1 70 CALL INTERT(NLINE,NLINE1,NLINE2,NUMM,AJJ,TAMACH) GO TO 100 C SEARCH FOR 1ST--2--KNOWN STREAMLINES 90 NLINE1 = 0 93 NLINE2 = 0 NNLINE = NLINE + 1 DO 96 I=NNLINE,NLINES IF(NLINE2 .NE. 0) GO TO 97 IF(TSONX(I).NE. 0) GO TO 96 IF(NLINE1 .EQ. 0) NLINE1 = I IF(NLINE1 .NE. I) NLINE2 = I 96 CONTINUE 97 IF(NS .EQ. 0) GO TO 70 GO TO 30 100 CONTINUE RETURN END ================================================ FILE: mis/amgb1s.f ================================================ SUBROUTINE AMGB1S (INPUT,FMAT,XYZB,INDEX,RADII,WFACT,NLINE) C C COMPUTE F(INVERSE) AND WFACT FOR THIS STREAMLINE C LOGICAL TSONIC,DEBUG INTEGER SLN REAL MINMAC,MAXMAC,MACH DIMENSION FMAT(NSTNS,NSTNS),XYZB(3,NSTNS),INDEX(1),RADII(1), 1 TBL(3,3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IOUT COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISO COMMON /BAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAGER, 2 CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC,XSIGN COMMON /AMGBUG/ DEBUG C C READ STREAMLINE DATA C NSTNS3 = 3*NSTNS CALL FREAD (INPUT,SLN,10,0) CALL FREAD (INPUT,XYZB,NSTNS3,0) IF (DEBUG) CALL BUG1 ('ACPT-SLN ',11,SLN,10) IF (DEBUG) CALL BUG1 ('XYZB ',12,XYZB,NSTNS3) C C COMPUTE PARAMETERS C AMACH = MACH *COS(DEGRA*(FLOWA-STAGER)) AMACHR = REFMAC*COS(DEGRA*(REFFLO-REFSTG)) IF (DEBUG) CALL BUG1 ('AMACH ',13,AMACH,1) IF (DEBUG) CALL BUG1 ('AMACHR ',14,AMACHR,1) C C (1) COMPUTE BASIC TO LOCAL TRANSFORMATION C XYZB ARRAY CONTAINS X,Y,Z COORDINATES IN BASIC SYSTEM C FOR ALL NODES ON THE STREAMLINE LEADING EDGE TO TRAILING EDGE C (2) TRANSFORM BASIC X,Y,Z ON STREAMLINE TO LOCAL X,Y,Z-S C (3) COMPUTE FMAT(NSTNS X NSTNS) C (4) COMPUTE FMAT(INVERS) - USE - C CALL INVERS(NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX) C (5) COMPUTE WFACT FOR THIS STREAMLINE - NOTE - ALL RADIUS HAVE C ALREADY BEEN STORED IN ARRAY RADII FOR ALL STREAMLINES C XA = XYZB(1,1) YA = XYZB(2,1) ZA = XYZB(3,1) XB = XYZB(1,NSTNS) YB = XYZB(2,NSTNS) ZB = XYZB(3,NSTNS) C C EVALUATE TBL ROW 2 C XBA = XB - XA YBA = YB - YA ZBA = ZB - ZA AL2SQ = XBA**2 + YBA**2 AL2 = SQRT(AL2SQ) AL1SQ = AL2SQ + ZBA**2 AL1= SQRT(AL1SQ) TBL(2,1) =-XSIGN*(YBA/AL2) TBL(2,2) = XSIGN*(XBA/AL2) TBL(2,3) = 0.0 C C EVAL TBL ROW 1 C TBL(1,1) = XBA/AL1 TBL(1,2) = YBA/AL1 TBL(1,3) = ZBA/AL1 C C EVALUATE TBL ROW 3 C TBL(3,1) =-TBL(1,3)*(XBA/AL2) TBL(3,2) =-TBL(1,3)*(YBA/AL2) TBL(3,3) = AL2/AL1 FMAT(1,1)= 1.0 PIC = PI/CHORD CH2 = 2.0/CHORD DO 40 I = 2,NSTNS X = TBL(1,1)*(XYZB(1,I)-XYZB(1,1)) 1 + TBL(1,2)*(XYZB(2,I)-XYZB(2,1)) 2 + TBL(1,3)*(XYZB(3,I)-XYZB(3,1)) FMAT(1,I) = 0.0 FMAT(I,1) = 1.0 FMAT(I,2) = CH2*X DO 30 J = 3,NSTNS AN = J - 2 ARG = PIC*AN*X 30 FMAT(I,J) = SIN(ARG) 40 CONTINUE IF (DEBUG) CALL BUG1 ('FMAT ',50,FMAT,NSTNS*NSTNS) ISING = -1 CALL INVERS (NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX) IF (DEBUG) CALL BUG1 ('FMAT-INV ',60,FMAT,NSTNS*NSTNS) IF (ISING .EQ. 2) GO TO 80 K = NLINE + 1 L = K - 2 IF (NLINE .EQ. 1) L = 1 IF (NLINE .EQ. NLINES) K = NLINES C C COMPUT WFACT FOR THIS STREAMLINE C WFACT = (DEN/REFDEN)*(VEL/REFVEL)**2 * 1 ((AMACH*REFMAC)/(MACH*AMACHR))**2 * 2 (RADII(K) - RADII(L))*0.5 IF (DEBUG) CALL BUG1 ('WFACT ',70,WFACT,1) RETURN C C ERROR MESSAGE, SINGULAR MATRIX C 80 WRITE (IOUT,90) UFM,SLN 90 FORMAT (A23,' -AMG MODULE- SINGULAR MATRIX IN ROUTINE AMGB1S FOR', 1 ' STREAML2, SLN =',I3, /39X,'CHECK STREAML2 BULK DATA CARD.') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/amgb2.f ================================================ SUBROUTINE AMGB2 (INPUT,D1JK,D2JK) C C DRIVER FOR COMPRESSOR BLADE THEORY C COMPUTATIONS ARE FOR D1JK AND D2JK MATRICES C FOR COMPRESSOR BLADES K-SET = J-SET = NLINES*NSTNS C D1JK = F(INVERSE)TRANSPOSE C NOTE - AMP MODULE TAKES D1JK(TRANSPOSE) SO OUTPUT C F(INVERSE)TRANSPOSE TO GET EFFECT OF F(INVERSE) IN AMP. C C D2JK = NULL C LOGICAL TSONIC,DEBUG INTEGER D1JK,D2JK,TD1JK,TD2JK,ECORE,SYSBUF,NAME(2),SLN REAL MINMAC,MAXMAC,MACH DIMENSION IZ(1) COMMON /AMGP2 / TD1JK(7),TD2JK(7) COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /SYSTEM/ SYSBUF,IOUT COMMON /ZZZZZZ/ WORK(1) COMMON /BLANK / NK,NJ COMMON /BAMG2L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAGER, 2 CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC,XSIGN COMMON /AMGBUG/ DEBUG EQUIVALENCE (WORK(1),IZ(1)) DATA NAME / 4HAMGB,4H2 / C C READ PARAMETERS IREF,MINMAC,MAXMAC,NLINES AND NSTNS C CALL FREAD (INPUT,IREF,5,0) IF (DEBUG) CALL BUG1 ('ACPT-REF ',5,IREF,5) C C READ REST OF ACPT RECORD INTO OPEN CORE AND LOCATE REFERENCE C PARAMETERS REFSTG,REFCRD,REFMAC,REFDEN,REFVEL AND REFFLO C ECORE = KORSZ(IZ) - 3*SYSBUF CALL READ (*10,*10,INPUT,IZ,ECORE,1,NWAR) GO TO 120 10 NDATA = 3*NSTNS + 10 IF (DEBUG) CALL BUG1 ('ACPT-REST ',10,IZ,NWAR) IRSLN = 0 NLINE = 0 DO 20 I = 1,NWAR,NDATA IF (IREF .EQ. IZ(I)) IRSLN = I NLINE = NLINE + 1 20 CONTINUE C C DETERMINE DIRECTION OF BLADE ROTATION VIA Y-COORDINATES AT TIP C STREAMLINE. USE COORDINATES OF FIRST 2 NODES ON STREAMLINE. C IPTR = NDATA*(NLINES-1) XSIGN = 1.0 IF (WORK(IPTR+15) .LT. WORK(IPTR+12)) XSIGN = -1.0 C IF (DEBUG) CALL BUG1 ('RADII ',20,RADII,NLINES) C C DID IREF MATCH AN SLN OR IS THE DEFAULT TO BE TAKEN (BLADE TIP) C IF (IRSLN .EQ. 0) IRSLN = (NLINES-1)*NDATA + 1 REFSTG = WORK(IRSLN+2) REFCRD = WORK(IRSLN+3) REFMAC = WORK(IRSLN+6) REFDEN = WORK(IRSLN+7) REFVEL = WORK(IRSLN+8) REFFLO = WORK(IRSLN+9) C C REPOSITION ACPT TO BEGINNING OF COMPRESSOR BLADE DATA C CALL BCKREC (INPUT) CALL FREAD (INPUT,0,-6,0) C IF (DEBUG) CALL BUG1 ('BAMG2L ',22,IREF,27) C C COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE C NSNS = NSTNS*NSTNS IP1 = 1 IP2 = IP1 + NSNS NEXT = IP2 + 3*NSTNS IF (NEXT .GT. ECORE) GO TO 120 C C COMPUTE F(INVERSE) FOR EACH STREAMLINE C NN = II + NSTNS - 1 DO 100 NLINE = 1,NLINES CALL AMGB2A (INPUT,WORK(IP1),WORK(IP2),WORK(IP2)) C C OUTPUT D1JK (=F(INVERSE)TRANSPOSE) FOR THIS STREAMLINE. C NOTE - AMP MODULE TAKES D1JK(TRANSPOSE) SO OUTPUT C F(INVERSE)TRANSPOSE TO GET EFFECT OF F(INVERSE) IN AMP. C IP3 = IP2 + NSTNS - 1 DO 50 I = 1,NSTNS K = I DO 30 J = IP2,IP3 WORK(J) = WORK(K) 30 K = K + NSTNS CALL PACK (WORK(IP2),D1JK,TD1JK) IF (DEBUG) CALL BUG1 ('D1JK ',31,WORK(IP2),NSTNS) 50 CONTINUE II = II +NSTNS IF (NLINE .EQ. NLINES) GO TO 100 NN = NN + NSTNS 100 CONTINUE C C OUTPUT D2JK = NULL C DO 110 ICOL = 1,NK CALL BLDPK (ITI,ITO,D2JK,0,0) 110 CALL BLDPKN (D2JK,0,TD2JK) RETURN C C ERROR MESSAGES C C NOT ENOUGH CORE C 120 CALL MESAGE (-8,0,NAME) RETURN END ================================================ FILE: mis/amgb2a.f ================================================ SUBROUTINE AMGB2A (INPUT,FMAT,XYZB,INDEX) C C COMPUTE F(INVERSE) FOR THIS STREAMLINE C LOGICAL TSONIC,DEBUG INTEGER SLN REAL MINMAC,MAXMAC,MACH DIMENSION FMAT(NSTNS,NSTNS),XYZB(3,NSTNS),INDEX(1), 1 TBL(3,3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IOUT COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISO COMMON /BAMG2L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAGER, 2 CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC,XSIGN COMMON /AMGBUG/ DEBUG C C READ STREAMLINE DATA C NSTNS3 = 3*NSTNS CALL FREAD (INPUT,SLN,10,0) CALL FREAD (INPUT,XYZB,NSTNS3,0) IF (DEBUG) CALL BUG1 ('ACPT-SLN ',10,SLN,10) IF (DEBUG) CALL BUG1 ('XYZB ',20,XYZB,NSTNS3) C C (1) COMPUTE BASIC TO LOCAL TRANSFORMATION C XYZB ARRAY CONTAINS X,Y,Z COORDINATES IN BASIC SYSTEM C FOR ALL NODES ON THE STREAMLINE LEADING EDGE TO TRAILING EDGE C (2) TRANSFORM BASIC X,Y,Z ON STREAMLINE TO LOCAL X,Y,Z-S C (3) COMPUTE FMAT(NSTNS X NSTNS) C (4) COMPUTE FMAT(INVERS) - USE - C CALL INVERS(NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX) C XA = XYZB(1,1) YA = XYZB(2,1) ZA = XYZB(3,1) XB = XYZB(1,NSTNS) YB = XYZB(2,NSTNS) ZB = XYZB(3,NSTNS) C C EVALUATE TBL ROW 2 C XBA = XB - XA YBA = YB - YA ZBA = ZB - ZA AL2SQ = XBA**2 + YBA**2 AL2 = SQRT(AL2SQ) AL1SQ = AL2SQ + ZBA**2 AL1 = SQRT(AL1SQ) TBL(2,1) =-XSIGN*(YBA/AL2) TBL(2,2) = XSIGN*(XBA/AL2) TBL(2,3) = 0.0 C C EVAL TBL ROW 1 C TBL(1,1) = XBA/AL1 TBL(1,2) = YBA/AL1 TBL(1,3) = ZBA/AL1 C C EVALUATE TBL ROW 3 C TBL(3,1) = -TBL(1,3)*(XBA/AL2) TBL(3,2) = -TBL(1,3)*(YBA/AL2) TBL(3,3) = AL2/AL1 FMAT(1,1) = 1.0 PIC = PI/CHORD CH2 = 2.0/CHORD DO 40 I = 2,NSTNS X = TBL(1,1)*(XYZB(1,I)-XYZB(1,1)) 1 + TBL(1,2)*(XYZB(2,I)-XYZB(2,1)) 2 + TBL(1,3)*(XYZB(3,I)-XYZB(3,1)) FMAT(1,I) = 0.0 FMAT(I,1) = 1.0 FMAT(I,2) = CH2*X DO 30 J = 3,NSTNS AN = J - 2 ARG = PIC*AN*X 30 FMAT(I,J) = SIN(ARG) 40 CONTINUE IF (DEBUG) CALL BUG1 ('FMAT ',50,FMAT,NSTNS*NSTNS) ISING = -1 CALL INVERS (NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX) IF (DEBUG) CALL BUG1 ('FMAT-INV ',60,FMAT,NSTNS*NSTNS) IF (ISING .EQ. 2) GO TO 70 RETURN C C ERROR MESSAGE, SINGULAR MATRIX C 70 WRITE (IOUT,80) UFM,SLN 80 FORMAT (A23,' -AMG MODULE- SINGULAR MATRIX IN ROUTINE AMGB2A FOR', 1 ' STREAML2, SLN =',I3, /39X,'CHECK STREAML2 BULK DATA CARD.') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/amgbfs.f ================================================ SUBROUTINE AMGBFS (SKJ,EE,DELX,NC,NBA,XIS2,XIS1,A0,A0P,NSBE) C C BUILD SKJ CALL BFSMAT THEN SHUFFEL AND DEAL C INTEGER SKJ,NAME(2),TSKJ,SYSBUF,SCR1,SCR2,ECORE DIMENSION EE(1),DELX(1),NC(1),NBA(1),XIS2(1),XIS1(1),A0(1), 1 A0P(1),NSBE(1) COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK COMMON /DLBDY / NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS, 1 INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA, 2 IZB,IYB,IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122, 3 IZS,IYS,ICS,IEE,ISG,ICG,IXIJ,IX,IDELX,IXIC,IXLAM, 4 IA0,IXIS1,IXIS2,IA0P,IRIA,INASB,IFLA1,IFLA2,ITH1A, 5 ITH2A,ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5 COMMON /SYSTEM/ SYSBUF COMMON /ZBLPKX/ A(4),IIS COMMON /ZZZZZZ/ Z(1) DATA NAME / 4HAMGB,4HFS / DATA NHBFS , NHG,NHA / 4HBFS ,4HG ,4HA / C NSB = NTYS + NTZS NZY2 = NSB*2 NT02 = NT0*2 NTP2 = NTP*2 LENGTH= NT0 + NSB ISL = ISK - 1 II = ISK + LENGTH NN = NSK + NZY2 + NTP2 IBUF2 = ECORE IF (NSB .EQ. 0) GO TO 40 IBUF2 = ECORE - SYSBUF C C CALL BFSMAT C SCR1 HAS NTZS + NTYS ROWS WITH NTO*2 THEN NTZS+NTYS*2 TERMS C ROWS ARE Z FOR Z , Y THEN Z FOR ZY , AND Y FOR Y C CALL GOPEN (SCR1,Z(IBUF2),1) ICORR = NEXT IF (NEXT+LENGTH*4 .GT. IBUF2) GO TO 998 CALL BFSMAT (ND,NE,NB,NP,NTP,LENGTH,NT0,SCR1,JF,JL,Z(INAS),FMACH, 1 Z(IYB),Z(IZB),Z(IYS),Z(IZS),Z(IX),DELX,EE,Z(IXIC), 2 Z(ISG),Z(ICG),Z(IARB),Z(IRIA),Z(INBEA1),Z(INBEA2), 3 Z(INASB),Z(INB),NC,Z(ICORR),Z(IAVR),REFC,A0,XIS1, 4 XIS2,RFK,NSBE,NT0) CALL WRITE (SCR1,0,0,1) CALL CLOSE (SCR1,1) CALL DMPFIL (SCR1,Z(NEXT),IBUF2-NEXT) CALL GOPEN (SCR1,Z(IBUF2),0) NCORE = NT0*NZY2*2 IF (NCORE+NEXT .GT. IBUF2) GO TO 998 CALL ZEROC (Z(NEXT),NCORE) I = NEXT IZBF = 1 DO 30 J = 1,NSB CALL FREAD (SCR1,Z(I),NT02,0) CALL FREAD (SCR1,Z(I),-NZY2,0) I = I + NT02 IF (JF .EQ. 0) GO TO 20 IF (J.LT.JF .OR. J.GT.JL) GO TO 20 IZBF = -IZBF IF (IZBF .LT. 0) GO TO 30 I = I + NT02 20 I = I + NT02 30 CONTINUE CALL BCKREC (SCR1) C C BUILD NT0 COLUMNS OF SKJ C 40 IF (NT0 .EQ. 0) GO TO 100 IBF = NEXT - 2 K = 1 KS = 1 NBXR = NC(K) DO 70 I = 1,NT0 CALL BLDPK (3,3,SKJ,0,0) IF (I .GT. NTP) GO TO 45 A(1) = 2.0*EE(KS)*DELX(I) A(2) = 0.0 IIS = ISL + (I-1)*2 + 1 CALL ZBLPKI A(1) = (EE(KS)*DELX(I)**2)/2.0 IIS = IIS + 1 CALL ZBLPKI IF (I .EQ. NTP) GO TO 45 IF (I .EQ. NBA(K)) K = K + 1 IF (I .EQ. NBXR) GO TO 44 GO TO 45 44 KS = KS + 1 NBXR = NBXR + NC(K) 45 IF (NSB .EQ. 0) GO TO 60 IBF = IBF + 2 DO 50 J = 1,NZY2 L = (J-1)*NT02 A(1) = Z(IBF+L ) A(2) = Z(IBF+L+1) IIS = ISL + NTP2 + J CALL ZBLPKI 50 CONTINUE 60 CALL BLDPKN (SKJ,0,TSKJ) 70 CONTINUE C C SLENDER BODY ONLY PART OF SKJ BFS * G C 100 IF (NSB .EQ. 0) GO TO 900 NCORE = NZY2*NSB*4 + NSB*NSB*2 IF (NCORE+NEXT .GT. IBUF2) GO TO 998 CALL ZEROC (Z(NEXT),NCORE) I = NEXT IZBF = 1 DO 130 J = 1,NSB CALL FREAD (SCR1,Z(I),-NT02,0) CALL FREAD (SCR1,Z(I), NZY2,0) I = I + NZY2 IF (JF .EQ. 0) GO TO 120 IF (J.LT.JF .OR. J.GT.JL) GO TO 120 IZBF = -IZBF IF (IZBF .LT. 0) GO TO 130 I = I + NZY2 120 I = I + NZY2 130 CONTINUE C C BFS AT NEXT G AT IG C IG = I IA = IG + NSB*NSB*2 NFYB = NB + 1 - NBY IROW = IG RFKOC= 2.0*RFK/REFC IBZY = 0 P5 = .5 IF (NTZS .EQ. 0) GO TO 170 NFSE = 1 NLSE = 0 NFB = 1 NBX = NBZ 141 DO 160 IB = NFB,NBX NLSE = NLSE + NSBE(IB) DO 150 IT = NFSE,NLSE DX = XIS2(IT) - XIS1(IT) A02P = 2.0/A0(IT)*A0P(IT) IF (NFSE .EQ. NLSE) GO TO 148 IF (IT .NE. NFSE) GO TO 142 X2 = P5*(XIS2(IT+1) + XIS1(IT+1)) X1 = P5*(XIS2(IT ) + XIS1(IT )) Z(IROW ) = (-1.0/(X2-X1))*DX Z(IROW+2) = -Z(IROW)*(A0(IT)/A0(IT+1))**2 GO TO 148 142 IF (IT .EQ. NLSE) GO TO 145 X1 = P5*(XIS2(IT-1) + XIS1(IT-1)) X2 = P5*(XIS2(IT ) + XIS1(IT )) X3 = P5*(XIS2(IT+1) + XIS1(IT+1)) Z(IROW-2) = (1.0/(X3-X1) - 1.0/(X2-X1))*DX*(A0(IT)/A0(IT-1))**2 Z(IROW) = (1.0/(X2-X1) - 1.0/(X3-X2))*DX Z(IROW+2) = (1.0/(X3-X2) - 1.0/(X3-X1))*DX*(A0(IT)/A0(IT+1))**2 GO TO 148 145 X1 = P5*(XIS2(IT-1) + XIS1(IT-1)) X2 = P5*(XIS2(IT ) + XIS1(IT )) Z(IROW ) = (1.0/(X2-X1))*DX Z(IROW-2) =-Z(IROW)*(A0(IT)/A0(IT-1))**2 148 Z(IROW ) = Z(IROW) + DX*A02P Z(IROW+1) = DX*RFKOC IROW = IROW + NZY2 + 2 150 CONTINUE NFSE = NFSE + NSBE(IB) 160 CONTINUE 170 IF (IBZY .EQ. 1) GO TO 200 IBZY = 1 IF (NTYS .EQ. 0) GO TO 200 NFB = NFYB NBX = NB NFSE = 1 NLSE = 0 NL = NFYB - 1 IF (NL .EQ. 0) GO TO 141 DO 172 J = 1,NL NLSE = NLSE + NSBE(J) NFSE = NFSE + NSBE(J) 172 CONTINUE GO TO 141 C C MULTIPLY BFS * G C 200 CALL BUG (NHBFS ,200,Z(NEXT),NZY2*NZY2) CALL BUG (NHG ,200,Z(IG),NSB*NSB*2) CALL GMMATC (Z(NEXT),NZY2,NSB,0,Z(IG),NSB,NSB,0,Z(IA)) CALL BUG (NHA ,200,Z(IA),NZY2*NSB*2) IROW = IA - 2 DO 220 I = 1,NSB CALL BLDPK (3,3,SKJ,0,0) IROW = IROW + 2 K = IROW DO 210 J = 1,NZY2 A(1) = Z(K ) A(2) = Z(K+1) IIS = ISL + NTP2 + J CALL ZBLPKI K = K + NZY2 210 CONTINUE CALL BLDPKN (SKJ,0,TSKJ) 220 CONTINUE 900 ISK = II NSK = NN CALL CLOSE (SCR1,1) 1000 RETURN C C ERROR MESSAGES C 998 CALL MESAGE (-8,0,NAME) GO TO 1000 END ================================================ FILE: mis/amgrod.f ================================================ SUBROUTINE AMGROD(D,BETA) INTEGER NAME(2),SYSBUF INTEGER SCR1,SCR2,ECORE C D IS REALLY A 2-D ARRAY D(2,NTZS) DIMENSION D(1) COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS, * INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB, * IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG, * ICG,IXIJ,IX,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA * ,INASB,IFLA1,IFLA2,ITH1A,ITH2A, * ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5 COMMON /ZZZZZZ / Z(1) COMMON /SYSTEM/ SYSBUF DATA NAME /4HAMGR,4HOD / CALL SSWTCH(30,IPRNT) NFZB = 1 NLZB = NBZ NFYB = NB+1-NBY NLYB = NB IBUF1 = ECORE - SYSBUF C C CALCULATE DZ ON SCR1 C IF(NTZS.EQ.0) GO TO 100 IF(NEXT+2*NTZS.GT.IBUF1) CALL MESAGE(-8,0,NAME) CALL GOPEN(SCR1,Z(IBUF1),1) IDZDY = 0 CALL DZYMAT(D,NFZB,NLZB,NTZS,IDZDY,SCR1,Z(IX),BETA,IPRNT,Z(INB), * Z(INC),Z(IYS),Z(IZS),Z(ISG),Z(ICG),Z(IYB),Z(IZB),Z(INBEA1)) CALL CLOSE(SCR1,1) 100 IF(NTYS.EQ.0) GO TO 200 IF(NEXT+2*NTYS.GT.IBUF1) CALL MESAGE(-8,0,NAME) CALL GOPEN(SCR2,Z(IBUF1),1) IDZDY = 1 CALL DZYMAT(D,NFYB,NLYB,NTYS,IDZDY,SCR2,Z(IX),BETA,IPRNT ,Z(INB), * Z(INC),Z(IYS),Z(IZS),Z(ISG),Z(ICG),Z(IYB),Z(IZB),Z(INBEA1)) CALL CLOSE(SCR2,1) 200 RETURN END ================================================ FILE: mis/amgsba.f ================================================ SUBROUTINE AMGSBA(AJJL,A0,AR,NSBE,A,YB,ZB) C C BUILD AJJL FOR DOUBLET LATTICE WITH BODIES C INTEGER SYSBUF,ECORE,AJJL,NAME(2),SCR1,SCR2,SCR5 DIMENSION A(1),A0(1),AR(1),NSBE(1) DIMENSION YB(1),ZB(1) COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS, * INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB, * IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG, * ICG,IXIJ,IX,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA * ,INASB,IFLA1,IFLA2,ITH1A,ITH2A, * ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5 COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ / Z(1) COMMON /PACKX/ ITI,ITO,II,NN,INCR COMMON /CONDAS/ PI,TWOPI DATA NAME /4HAMGS,4HBA / II = NROW +1 NN = NROW + NJ1 IF(NEXT+2*NJ1.GT.ECORE) CALL MESAGE(-8,0,NAME) INCR = 1 ITI = 3 ITO = 3 IF(NT0.EQ.0) GO TO 100 NBUF = 1 IF(NTZS.NE.0) NBUF = NBUF +1 IF(NTYS.NE.0) NBUF = NBUF +1 IBUF1 = ECORE - NBUF*SYSBUF IBUF2 = IBUF1 IF(NTZS.NE.0) IBUF2 = IBUF1+SYSBUF IBUF3 = IBUF2 IF(NTYS.NE.0) IBUF3 = IBUF2+SYSBUF NS5 = NT0*2 NS1 = NTZS*2 NS2 = NTYS*2 NTOT = NS5+NS1+NS2 IF(NEXT+NTOT.GT.IBUF3) CALL MESAGE(-8,0,NAME) C C BUILD PANEL AND BODY PART OF AJJL C CALL GOPEN(SCR5,Z(IBUF1),0) IF(NTZS.NE.0) CALL GOPEN(SCR1,Z(IBUF2),0) IF(NTYS.NE.0) CALL GOPEN(SCR2,Z(IBUF3),0) DO 50 I=1,NT0 CALL FREAD(SCR5,A,NS5,0) IF(NTZS.NE.0) CALL FREAD(SCR1,A(NS5+1),NS1,0) IF(NTYS.NE.0) CALL FREAD(SCR2,A(NS5+NS1+1),NS2,0) CALL PACK(A,AJJL,MCB) 50 CONTINUE CALL CLOSE(SCR5,1) CALL CLOSE(SCR1,1) CALL CLOSE(SCR2,1) 100 CALL ZEROC(A,2*NJ1) C C ADD DIAGIONAL TERMS OF AJJL FOR SLENDER BODIES C IF(NTZS.EQ.0.AND.NTYS.EQ.0) GO TO 1000 I = NT0*2+1 DEN=TWOPI*2.0 IF(NTZS.EQ.0) GO TO 200 NFSBEB = 1 NLSBEB = 0 DO 150 IB = 1,NBZ NLSBEB = NLSBEB + NSBE(IB) DO 140 IT = NFSBEB,NLSBEB A(I) = 1.0 / (DEN*A0(IT)**2) IF(ABS(YB(IB)).LT..00001) A(I) = (1.0+FLOAT(ND))*A(I) IF(ABS(ZB(IB)).LT..00001) A(I) = (1.0+FLOAT(NE))*A(I) CALL PACK(A,AJJL,MCB) A(I) = 0.0 I = I+2 140 CONTINUE NFSBEB = NFSBEB + NSBE(IB) 150 CONTINUE 200 IF(NTYS.EQ.0) GO TO 1000 NFYB = NB+1-NBY NFSBEB = 1 NLSBEB = 0 NL = NFYB-1 IF(NL.EQ.0) GO TO 220 DO 210 J=1,NL NLSBEB = NLSBEB+NSBE(J) NFSBEB = NFSBEB+NSBE(J) 210 CONTINUE 220 DO 250 IB = NFYB,NB NLSBEB = NLSBEB+NSBE(IB) DO 240 IT = NFSBEB,NLSBEB A(I) = 1.0 / (DEN*A0(IT)**2) IF(ABS(YB(IB)).LT..00001) A(I) = (1.0-FLOAT(ND))*A(I) IF(ABS(ZB(IB)).LT..00001) A(I) = (1.0-FLOAT(NE))*A(I) CALL PACK(A,AJJL,MCB) A(I) = 0.0 I = I+2 240 CONTINUE NFSBEB = NFSBEB+NSBE(IB) 250 CONTINUE 1000 RETURN END ================================================ FILE: mis/amgt1.f ================================================ SUBROUTINE AMGT1 (INPUT,MATOUT,SKJ) C C DRIVER FOR SWEPT TURBOPROP BLADES (AEROELASTIC THEORY 7). C C COMPUTATIONS ARE FOR THE AJJL AND SKJ MATRICES. C FOR SWEPT TURBOPROPS K-SET = J-SET = 2*NSTNS*NLINES. C SKJ = F(INVERS)TRANSPOSE. C LOGICAL TSONIC,DEBUG INTEGER ECORE,SYSBUF,IZ(1),NAME(2),SLN,SKJ,TSKJ REAL MINMAC,MAXMAC,MACH CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ,TSKJ(7),ISK, 1 NSK COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ COMMON /TAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAGER, 2 CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC,XSIGN COMMON /AMGBUG/ DEBUG COMMON /ZZZZZZ/ WORK(1) COMMON /SYSTEM/ SYSBUF,IOUT COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /BLANK / NK,NJ EQUIVALENCE (WORK(1),IZ(1)) DATA NAME / 4HAMGT,4H1 / C C READ PARAMETERS IREF,MINMAC,MAXMAC,NLINES AND NSTNS C CALL READ (*999,*999,INPUT,IREF,5,0,N) IF (DEBUG) CALL BUG1 ('ACPT-REF ',5,IREF,5) C C READ REST OF ACPT RECORD INTO OPEN CORE AND LOCATE REFERENCE C PARAMETERS REFSTG,REFCRD,REFMAC,REFDEN,REFVEL AND REFSWP C ECORE = KORSZ(IZ) - 4*SYSBUF CALL READ (*10,*10,INPUT,IZ,ECORE,1,NWAR) GO TO 998 10 IRSLN = 0 IF (DEBUG) CALL BUG1 ('ACPT-REST ',10,IZ,NWAR) NTSONX= 0 NDATA = 3*NSTNS + 10 NLINE = 0 DO 20 I = 1,NWAR,NDATA C C LOCATE REFERENCE STREAMLINE NUMBER (IREF = SLN) C IF (IREF .EQ. IZ(I)) IRSLN = I C C STORE MACH NUMBERS FOR LATER DATA CHECK. C MACH = WORK(I+6) IF (MACH.GT.MAXMAC .AND. MACH.LT.MINMAC) NTSONX = NTSONX + 1 NLINE = NLINE + 1 WORK(NWAR+NLINE) = MACH 20 CONTINUE C C DETERMINE DIRECTION OF BLADE ROTATION VIA Y-COORDINATES AT TIP C STREAMLINE. USE COORDINATES OF FIRST 2 NODES ON STREAMLINE. C IPTR = NDATA*(NLINES-1) XSIGN = 1.0 IF (WORK(IPTR+15) .LT. WORK(IPTR+12)) XSIGN = -1.0 C C INPUT CHECKS - C C (1) MACH NUMBERS MUST INCREASE FROM BLADE ROOT TO BLADE TIP. C NOTE - THIS CHECK WILL NOT BE MADE FOR SWEPT TURBOPROPS. C (2) SUPERSONIC CASCADE CODE HAS BEEN INSTALLED IN SUB.AMGT1C C (3) LINEAR INTERPOLATION EXISTS FOR TRANSONIC STREAMLINES C (4) ALL TRANSONIC STREAMLINES ARE NEVER ALLOWED. C C C CHECK FOR ALL TRANSONIC STREAMLINES. C IBAD = 0 IF (NTSONX .LT. NLINES ) GO TO 30 IBAD = 1 WRITE (IOUT,1001) UFM 30 CONTINUE C C MACH NUMBERS MUST INCREASE FROM BLADE ROOT TO BLADE TIP. C C NOTE - THIS CHECK WILL NOT BE MADE FOR SWEPT TURBOPROPS. C IF (IBAD .NE. 0) GO TO 997 C C SET TSONIC IF THERE ARE ANY TRANSONIC STREAMLINES C TSONIC = .FALSE. IF (NTSONX .GT. 0) TSONIC = .TRUE. C C STORE REFERENCE PARAMETERS C DID IREF MATCH AN SLN OR IS THE DEFAULT TO BE TAKEN (BLADE TIP) C IF (IRSLN .EQ. 0) IRSLN = (NLINES-1)*NDATA + 1 REFSTG = WORK(IRSLN+2) REFCRD = WORK(IRSLN+3) REFMAC = WORK(IRSLN+6) REFDEN = WORK(IRSLN+7) REFVEL = WORK(IRSLN+8) REFSWP = WORK(IRSLN+9) C C REPOSITION ACPT TO BEGINNING OF BLADE DATA. C CALL BCKREC (INPUT) CALL FREAD (INPUT,0,-6,0) IF (DEBUG) CALL BUG1 ('TAMG1L ',46,IREF,26) C C COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE. C IP1 AND IP2 ARE COMPLEX POINTERS. C NSTNS2 = 2*NSTNS NAJJC = NSTNS2 NTSONX = 1 IF (TSONIC) NAJJC = NLINES*NSTNS2 IF (TSONIC) NTSONX = NLINES IP1 = 1 IP2 = IP1 + 2*(NSTNS2*NAJJC) IP3 = IP2 + 1 IP4 = IP3 + NTSONX IP5 = IP4 + NTSONX NEXT = IP5 + NTSONX IF (NEXT .GT. ECORE) GO TO 998 C C CALL ROUTINE TO COMPUTE AND OUTPUT AJJL. C ITI = 3 ITO = 3 C CALL AMGT1A (INPUT,MATOUT,WORK(IP1),WORK(IP3),WORK(IP4),WORK(IP5), 1 NSTNS2) IF (DEBUG) CALL BUG1 ('AJJL ',48,WORK(IP1),IP2-1) C C COMPUTE F(INVERSE) FOR EACH STREAMLINE C C COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE C NSNS = NSTNS*NSTNS IP1 = 1 IP2 = IP1 + NSNS NEXT = IP2 + 3*NSTNS IF (NEXT .GT. ECORE) GO TO 998 C C REPOSITION ACPT TO BEGINNING OF BLADE DATA. C CALL BCKREC (INPUT) CALL FREAD (INPUT,0,-6,0) C ITI = 1 ITO = 3 C II = ISK NSK = NSK + NSTNS NN = NSK DO 100 NLINE = 1,NLINES CALL AMGT1S (INPUT,WORK(IP1),WORK(IP2),WORK(IP2)) C C OUTPUT SKJ (= F(INVERS)TRANSPOSE) FOR THIS STREAMLINE C IP3 = IP2 + NSTNS - 1 DO 60 I = 1,NSTNS K = I DO 50 J = IP2,IP3 WORK(J) = WORK(K) 50 K = K + NSTNS CALL PACK (WORK(IP2),SKJ,TSKJ) IF (DEBUG) CALL BUG1 ('SKJ ',55,WORK(IP2),NSTNS) 60 CONTINUE II = II + NSTNS NN = NN + NSTNS DO 80 I = 1,NSTNS K = I DO 70 J = IP2,IP3 WORK(J) = WORK(K) 70 K = K + NSTNS CALL PACK (WORK(IP2),SKJ,TSKJ) IF (DEBUG) CALL BUG1 ('SKJ ',75,WORK(IP2),NSTNS) 80 CONTINUE II = II + NSTNS IF (NLINE .EQ. NLINES) GO TO 100 NN = NN + NSTNS 100 CONTINUE C C UPDATE NROW AND PACK POINTERS C NROW = NROW + NLINES*NSTNS2 IF (DEBUG) CALL BUG1 ('NEW-NROW ',110,NROW,1) ISK = II NSK = NN RETURN C C ERROR MESSAGES C C BAD STREAMLINE DATA C 997 CALL MESAGE (-61,0,0) C C NOT ENOUGH CORE C 998 CALL MESAGE (-8,0,NAME) C C INPUT NOT POSITIONED PROPERLY OR INCORRECTLY WRITTEN C 999 CALL MESAGE (-7,0,NAME) RETURN C 1001 FORMAT (A23,' -AMG MODULE- ALL TRANSONIC STREAMLINES NOT ALLOWED', 1 /39X,'CHECK MACH ON STREAML2 BULK DATA CARDS OR', /39X, 2 'CHANGE PARAMETERS MINMACH AND MAXMACH.') END ================================================ FILE: mis/amgt1a.f ================================================ SUBROUTINE AMGT1A (INPUT,MATOUT,AJJ,TSONX,TAMACH,TREDF,NSTNS2) C C COMPUTE AJJ MATRIX FOR SWEPT TURBOPROP BLADES. C LOGICAL TSONIC,DEBUG INTEGER SLN,NAME(2),TSONX(1) REAL MINMAC,MAXMAC,MACH COMPLEX AJJ(NSTNS2,1) DIMENSION TAMACH(1),TREDF(1) COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /TAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAGER, 2 CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC COMMON /AMGBUG/ DEBUG DATA NAME / 4HAMGT,4H1A / C C LOOP ON STREAMLINES, COMPUTE AJJ FOR EACH STREAMLINE AND THEN C PACK AJJ INTO AJJL MATRIX AT CORRECT POSITION C II = 0 NN = 0 NSTNS3 = 3*NSTNS DO 70 LINE = 1,NLINES C C READ STREAMLINE DATA (SKIP COORDINATE DATA) C CALL READ (*400,*400,INPUT,SLN,10,0,NWAR) C C COMPUTE PARAMETERS C AMACH = MACH REDF = RFREQ*(CHORD/REFCRD)*(REFVEL/VEL) BLSPC = BSPACE/CHORD C C COMPUTE C3 AND C4 FOR THIS STREAMLINE. C C INPUT IS POSITIONED AT THE FIRST 10 WORDS OF THE NEXT C STREAMLINE WHEN IT RETURNS FROM AMGT1T C CALL AMGT1T (NLINES,LINE,INPUT,NSTNS,C3,C4) C IF (DEBUG) CALL BUG1 ('TAMG1L ',5,IREF,26) C C COMPUTE POINTER FOR LOCATION INTO AJJ MATRIX C IAJJC = 1 IF (TSONIC) IAJJC = NSTNS2*(LINE-1) + 1 C C BRANCH TO SUBSONIC, SUPERSONIC OR TRANSONIC CODE C TAMACH(LINE) = AMACH TREDF(LINE) = REDF IF (AMACH .LE. MAXMAC) GO TO 10 IF (AMACH .GE. MINMAC) GO TO 20 C C TRANSONIC STREAMLINE. STORE DATA FOR TRANSONIC INTERPOLATION C TSONX(LINE) = IAJJC GO TO 70 C C SUBSONIC STREAMLINE C 10 CALL AMGT1B (AJJ(1,IAJJC),NSTNS2,C3,C4) GO TO 30 C C SUPERSONIC STREAMLINE C 20 CALL AMGT1C (AJJ(1,IAJJC),NSTNS2,C3,C4) 30 CONTINUE C C IF THERE ARE NO TRANSONIC STREAMLINES OUTPUT THIS AJJ SUBMATRIX C IF (TSONIC) GO TO 60 II = NN + 1 NN = NN + NSTNS2 C C OUTPUT AJJ MATRIX C DO 50 I = 1,NSTNS2 IF (DEBUG) CALL BUG1 ('SS-AJJL ',40,AJJ(1,I),NSTNS2*2) CALL PACK (AJJ(1,I),MATOUT,MCB) 50 CONTINUE GO TO 70 60 TSONX(LINE) = 0 70 CONTINUE C C PERFORM TRANSONIC INTERPOLATION, IF NECESSARY C IF (.NOT.TSONIC) GO TO 300 IF (DEBUG) CALL BUG1 ('TSONX ', 80,TSONX,NLINES) IF (DEBUG) CALL BUG1 ('TAMACH ', 90,TAMACH,NLINES) IF (DEBUG) CALL BUG1 ('TREDF ',100,TREDF,NLINES) CALL AMGT1D (AJJ,TSONX,TAMACH,TREDF,NSTNS2) C C OUTPUT AJJ FOR EACH STREAMLINE C DO 200 NLINE = 1,NLINES II = NN + 1 NN = NN + NSTNS2 DO 120 I = II,NN IF (DEBUG) CALL BUG1 ('STS-AJJL ',110,AJJ(1,I),NSTNS2*2) CALL PACK (AJJ(1,I),MATOUT,MCB) 120 CONTINUE 200 CONTINUE 300 RETURN C C ERROR MESSAGES C C INPUT NOT POSITIONED PROPERLY OR INCORRECTLY WRITTEN C 400 CALL MESAGE (-7,0,NAME) RETURN END ================================================ FILE: mis/amgt1b.f ================================================ SUBROUTINE AMGT1B (Q,NSTNS2,C1SBAR,C2SBAR) C C SUBSONIC RAO (CASCADES) CODE FOR SWEPT TURBOPROPS. C INTEGER SLN REAL M,KAPPA,MU,MUS,LAMDA,LAMDM,NU,X(20),DISP(20,10), 1 W(8),WW(8),M2SBAR COMPLEX Q(NSTNS2,NSTNS2),LOADS(21),STT(20),SUM1,SUM2,STTI, 1 AN(401),AB(401),FK(401),CN(401),CB(401),PD(401), 2 SO(100),S1(100),P(50),A(20,40),FF,ST,STP,FG,FS,FO, 3 SLOPE CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /TAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAG, 2 CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ COMMON /SYSTEM/ IBUF,IOUT DATA W / 1.48283, .89414, .83521, .66721, 1 .64172, .55519, .54026, .48547 / DATA WW / 1.13333,-0.00036,0.18796,-0.00027, 1 0.08469,-0.00022,0.05049,-0.00019 / C C THEORY DEPENDENT RESTRICTION OF NO MORE THAN 10 COMPUTING C STATIONS PER STREAMLINE IS REFLECTED IN CODING. C IF (NSTNS .GT. 10) GO TO 1000 C M = AMACH OMEGA = REDF SS = 2*BLSPC DELTM =-SIGMA XLAM = STAG NM = NSTNS NNM = NSTNS2 CSBAR = .25*(DEN*VEL**2*CHORD**2)/(REFDEN*REFVEL**2) CSBAR1 = 2.0/CHORD M2SBAR =-DCBDZB/CHORD C2SSCH = CSBAR1*C2SBAR CSBLSB = CSBAR*CSBAR1 CSBM2S = CSBAR*M2SBAR N = 20 PI = 3.141593 PI2 = PI*2 CON = 1.0E-5 NNN = 100 KKK = 2*NNN + 1 DELTM = DELTM/360 XL = XLAM*PI/180 B = 1.0/N B2 = 2*B D = SS*SIN(XL) HH = SS*COS(XL) BETA = SQRT(1. - M**2) H = HH*BETA ZER = 0.0 S = SQRT(H**2 + D**2) LAMDM = ATAN(D/H) CL = COS(LAMDM) SL = SIN(LAMDM) NU = OMEGA/BETA**2 KAPPA = M*NU LAMDA = M*KAPPA DELTA = DELTM + LAMDA*D/PI2 MU = KAPPA*S/PI2 MUS = MU**2 FF = (0.0,1.0) FG = CMPLX(ZER,NU*S) L = 1 CC = DELTA**2 - MUS IF (CC .EQ. 0.0) GO TO 200 IF (CC .LT. 0.0) FK(L) = SQRT(-CC)*FF IF (CC .GT. 0.0) FK(L) = SQRT(CC) AN(L) = FK(L)*CL + FF*DELTA*SL AB(L) = FK(L)*CL - FF*DELTA*SL PD(L) = FK(L)*(PI2*AB(L) + FG) CK = PI2*B/S CN(L) = CEXP(-AN(L)*CK) CB(L) = CEXP(-AB(L)*CK) DO 20 I = 1,NNN L = L + 1 CC = (DELTA+I)**2 - MUS IF (CC .EQ. 0.0) GO TO 200 IF (CC .LT. 0.0) FK(L) = SQRT(-CC)*FF IF (CC .GT. 0.0) FK(L) = SQRT(CC) AN(L) = FK(L)*CL + (DELTA+I)*FF*SL AB(L) = FK(L)*CL - (DELTA+I)*FF*SL PD(L) = FK(L)*(PI2*AB(L) + FG) CN(L) = CEXP(-AN(L)*CK) CB(L) = CEXP(-AB(L)*CK) L = L + 1 CC = (DELTA-I)**2 - MUS IF (CC .EQ. 0.0) GO TO 200 IF (CC .GT. 0.0) FK(L) = SQRT(CC) IF (CC .LT. 0.0) FK(L) = SQRT(-CC)*FF AN(L) = FK(L)*CL + (DELTA-I)*FF*SL AB(L) = FK(L)*CL - (DELTA-I)*FF*SL PD(L) = FK(L)*(PI2*AB(L) + FG) CN(L) = CEXP(-AN(L)*CK) CB(L) = CEXP(-AB(L)*CK) 20 CONTINUE STP = 0.0 L = 1 ST = ((1-CN(L))/AN(L) + (1-CB(L))/AB(L))/FK(L) DO 25 I = 2,KKK,2 L = I ST = ((1-CN(L))/AN(L) + (1-CB(L))/AB(L))/FK(L) + ST L = L + 1 ST = ((1-CN(L))/AN(L) + (1-CB(L))/AB(L))/FK(L) + ST IF (CABS(ST-STP) .LT. CON) GO TO 30 STP = ST 25 CONTINUE 30 CONTINU E SO(1) =-ST*S/(2*PI2*B2) DO 40 J = 2,N JK = 2*(J-1) L = 1 STP = 0.0 ST = CN(L)**JK/FK(L) DO 32 I = 2,KKK,2 L = L + 1 ST = CN(L)**JK/FK(L) + ST L = L + 1 ST = CN(L)**JK/FK(L) + ST IF (CABS(ST-STP) .LT. CON) GO TO 35 32 STP = ST 35 SO(J) =-0.5*ST 40 CONTINUE N1 = N + 1 N2 = 3*N - 1 DO 50 J = N1,N2 JK = J - N STP = 0.0 L = 1 ST = CB(L)**JK/FK(L) DO 42 I = 2,KKK,2 L = L + 1 ST = CB(L)**JK/FK(L) + ST L = L + 1 ST = CB(L)**JK/FK(L) + ST IF (CABS(ST-STP) .LT. CON) GO TO 45 42 STP = ST 45 SO(J) =-0.5*ST 50 CONTINUE DO 55 J = 1,N JK = (J-1)*2 + 1 L = 1 STP = 0.0 ST = AN(L)*CN(L)**JK/FK(L) DO 52 I = 2,KKK,2 L = L + 1 ST = AN(L)*CN(L)**JK/FK(L) + ST L = L + 1 ST = AN(L)*CN(L)**JK/FK(L) + ST IF (CABS(ST-STP) .LT. CON) GO TO 54 STP = ST 52 CONTINUE 54 S1(J) =-PI/S*ST 55 CONTINUE N1 = N + 1 N2 = 2*N DO 60 J = N1,N2 JK = (J-N1)*2 + 1 L = 1 STP = 0.0 ST = AB(L)*CB(L)**JK/FK(L) DO 57 I = 2,KKK,2 L = L + 1 ST = AB(L)*CB(L)**JK/FK(L) + ST L = L + 1 ST = AB(L)*CB(L)**JK/FK(L) + ST IF (CABS(ST-STP) .LT. CON) GO TO 59 STP = ST 57 CONTINUE 59 S1(J) = PI/S*ST 60 CONTINUE DO 64 J = 1,N JK = (J-1)*2 + 1 L = 1 STP = 0.0 ST = CB(L)**JK/PD(L) DO 61 I = 2,KKK,2 L = L + 1 ST = CB(L)**JK/PD(L) + ST L = L + 1 ST = CB(L)**JK/PD(L) + ST IF (CABS(ST-STP) .LT. CON) GO TO 62 STP = ST 61 CONTINUE 62 P(J) =-S/2*ST 64 CONTINUE FG = CMPLX(ZER,-NU*B) FG = 1/(CEXP(FG) + CMPLX(ZER,NU*B2)) FS = CMPLX(ZER,NU) CJ = (NU*BETA)**2 L = 0 CT = 2*KAPPA**2*B DO 70 J = 1,N DO 70 I = 1,N L = L + 1 NK = I - J + 1 NK1 = I - J NK2 = NK1 + 1 IF (I .EQ. J) NK1 = N + 1 IF (I .EQ. J) NK2 = 1 IF (J .LE. I) GO TO 65 NK1 = N + J - I + 1 NK2 = NK1 - 1 NK = N + 2*(J-I) 65 A(I,J) = S1(NK1) - S1(NK2) + CT*SO(NK) IF (J .NE. N) GO TO 70 NK = N + 2*(J-I) + 1 NK2 = J - I + 1 A(I,J) = A(I,J) - FG*(S1(NK1) + SO(NK)*FS + CJ*P(NK2)) 70 CONTINUE X(1) =-1.0 + B DO 81 I = 2,N 81 X(I) = X(I-1) + B2 N1 = N + NM NN = N1 NN1 = NN + NM N1N = N - 1 N1M = NM - 1 N11 = N + 1 NN11 = NN + 1 N22 = N + 2 NN22 = NN + 2 FO = FF*OMEGA TANLAM = TAN(SWEEP*PI/180.0) DLSDZB = DCBDZB/2.0 TD = TANLAM*DLSDZB DO 75 I = 1,N DISP(I,1) =-1.0 DISP(I,2) =-1.0 - X(I) STT(I) = CEXP(-FF*LAMDA*X(I))*PI2/BETA STTI = STT(I) A(I,N11 ) = STTI*DISP(I,1)*(FO+TD) A(I,NN11) = STTI*DISP(I,1)*TANLAM A(I,N22 ) = STTI*(DISP(I,2)*(FO+TD)-1.) 75 A(I,NN22) = STTI*DISP(I,2)*TANLAM DO 83 JJ = 3,NM NF = N + JJ NNF = NN + JJ CON2 = PI*(JJ-2)/2 DO 83 I = 1,N CON = CON2*DISP(I,2) DISP(I,JJ) = SIN(CON) A(I,NF ) = STT(I)*(DISP(I,JJ)*(FO+TD)-CON2*COS(CON)) 83 A(I,NNF) = STT(I)*DISP(I,JJ)*TANLAM CWKBR SPR93019 10/93 CALL GAUSS (A,N,NN1) CALL GAUSS2 (A,N,NN1) DO 95 J = 1,NNM NF = N + J DO 84 I = 1, N 84 LOADS(I) = A(I,NF) C SLOPE = LOADS(2)/3./B A(1,NF) = 2.*CEXP(LAMDA*FF*X(1))*(FF*NU*LOADS(1) + SLOPE) C SLOPE = (LOADS(N) - LOADS(N1N))/B2 A(N,NF) = 2.*CEXP(LAMDA*FF*X(N))*(FF*NU*LOADS(N) + SLOPE) C DO 85 I = 2,N1N SLOPE = (LOADS(I+1) - LOADS(I-1))/4./B 85 A(I,NF) = 2.*CEXP(LAMDA*FF*X(I))*(FF*NU*LOADS(I) + SLOPE) 95 CONTINUE DO 86 I = 1,N A(I,1) = SQRT((1-X(I))/(1+X(I))) DO 87 J = 2,N1M 87 A(I,J) =-DISP(I,J+1) DO 86 J = NM,N CON2 =-PI*(J-1)*DISP(I,2)/2 86 A(I,J) = SIN(CON2) CWKBR SPR93019 10/93 CALL GAUSS (A,N,NN1) CALL GAUSS2 (A,N,NN1) A(1,1) = C2SSCH*PI+C1SBAR*PI/2. A(2,1) = (C2SSCH+C1SBAR)*PI/2. CON = 1. CONN = 1. DO 88 J = 1,N1N A(1,J+1) = (C2SSCH*CON+C1SBAR*CONN)*4./J/PI A(2,J+1) = (C2SSCH+2.*C1SBAR)*CONN*4./J/PI-CON*C1SBAR*32./ 1 (J*PI)**3 CON = 1. - CON 88 CONN =-CONN DO 90 I = 3,NM IR = I - 2 DO 90 J = 2,N IS = J - 1 IF (IR .EQ. IS) GO TO 901 IF ((IR+IS)/2*2.EQ.(IR+IS)) GO TO 902 A(I,J) =-C1SBAR*16.*IR*IS/(PI*(IR+IS)*(IR-IS))**2 GO TO 90 902 A(I,J) = (0.,0.) GO TO 90 901 A(I,J) = C2SSCH + C1SBAR 90 CONTINUE DO 91 J = 3,NM 91 A(J,1) = C2SSCH*W(J-2)+C1SBAR*WW(J-2) DO 160 J = 1,NM DO 160 K = 1,NM NF = N + K NNF = NN + K SUM1 = (0.,0.) SUM2 = (0.,0.) DO150 I = 1,N SUM1 = SUM1 + A(J,I)*A(I,NF) 150 SUM2 = SUM2 + A(J,I)*A(I,NNF) Q(J,K ) = CSBLSB*SUM1 + CSBM2S*SUM2 Q(J,K+NM) = CSBAR*SUM2 Q(J+NM,K) = (0.,0.) 160 Q(J+NM,K+NM) = (0.,0.) 200 RETURN C 1000 WRITE (IOUT,3001) UFM,SLN,NSTNS 3001 FORMAT (A23,' - AMG MODULE - NUMBER OF COMPUTING STATIONS ON ', 1 'STREAMLINE',I8,4H IS ,I3,1H., /39X,'SUBSONIC CASCADE ', 2 'ROUTINE AMGT1B ALLOWS ONLY A MAXIMUM OF 10.') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/amgt1c.f ================================================ SUBROUTINE AMGT1C (Q,NSTNS2,C1SBAR,C2SBAR) C C SUPERSONIC CASCADE CODE FOR SWEPT TURBOPROPS. C INTEGER SLN REAL M2SBAR COMPLEX SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4, 1 AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5, 2 AM5T,AI,A,B,BSYCON,ALP,F1,AM1,ALN,BLKAPM,BKDEL3, 3 F1S,C1,C2P,C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1, 4 SUM2,F2,BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T, 5 C1P,C1N,BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC, 6 BC2,BC3,BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT, 7 PRES1,PRES2,PRES3,PRES4,QRES4,FQA,FQB,FQ7,PRESU, 8 PRESL,Q,GUSAMP DIMENSION GYE(29,29),GEE(29,80),PRESU(29),PRESL(29),XUP(29), 1 XTEMP(29),GEETMP(29,40),XLOW(29),AYE(10,29), 2 INDEX(29,3),Q(NSTNS2,NSTNS2),PRES1(21),PRES2(21), 3 PRES3(21),PRES4(21),QRES4(21),SBKDE1(201), 4 SBKDE2(201),SUMSV1(201),SUMSV2(201),SVKL1(201), 5 SVKL2(201),XLSV1(21),XLSV2(21),XLSV3(21),XLSV4(21) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IBBOUT COMMON /TAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STG, 2 CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACHD, 3 REDFD,BLSPC,AMACHR,TSONIC COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGM,RFREQ COMMON /BLK1 / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES COMMON /BLK2 / BSYCON COMMON /BLK3 / SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4, 1 AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5, 2 AM5T,A,B,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,C2P, 3 C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2, 4 BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,C1P,C1N, 5 BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,BC2,BC3, 6 BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,PRES1,PRES2, 7 PRES3,PRES4,QRES4,FQA,FQB,FQ7 COMMON /BLK4 / I,R,Y,A1,B1,C4,C5,GL,I6,I7,JL,NL,RI,RT,R5,SN,SP, 1 XL,Y1,AMU,GAM,IDX,INX,NL2,RL1,RL2,RQ1,RQ2,XL1, 2 ALP1,ALP2,GAMN,GAMP,INER,IOUT,REDF,STAG,STEP, 3 AMACH,BETNN,BETNP,BKAP1,XLSV1,XLSV2,XLSV3,XLSV4, 4 ALPAMP,AMOAXS,GUSAMP,DISAMP,PITAXS,PITCOR C C C THEORY DEPENDENT RESTRICTION OF NO MORE THAN 10 COMPUTING C STATIONS PER STREAMLINE IS REFLECTED IN CODING. C IF (NSTNS .GT. 10) GO TO 9993 C REDF = REDFD AMACH = AMACHD AI = CMPLX(0.0,1.0) PI = 3.1415927 PITCOR= BLSPC STAG = 90.0 - STG SIGMA = -SIGM*PI/180.0 BETA = SQRT(AMACH**2-1.0) SCRK = REDF*AMACH/(BETA**2) DEL = SCRK*AMACH AMU = REDF/(BETA**2) SP = PITCOR*COS(STAG*PI/180.0)*2.0 SN = PITCOR*SIN(STAG*PI/180.0)*2.0 SPS = SP SNS = SN*BETA DSTR = SQRT(SPS**2-SNS**2) SPS1 = ABS(SPS-SNS) IF (SPS1 .LT. .00001) GO TO 9991 C C PARAMETERS RELATED TO SWEEP CHANGES C CSBAR = .25*(DEN*VEL**2*CHORD**2)/(REFDEN*REFVEL**2) CSBAR1 = 2.0/CHORD M2SBAR = -DCBDZB/CHORD C2SSCH = CSBAR1*C2SBAR CSBLSB = CSBAR*CSBAR1 CSBM2S = CSBAR*M2SBAR TANLAM = TAN(SWEEP*PI/180.) DLSDZB = DCBDZB/2.0 TD = TANLAM*DLSDZB C C ZERO OUT GEE C NSTNS4 = 4*NSTNS NSTNS8 = 8 * NSTNS DO 50 I = 1,29 DO 50 J = 1,NSTNS8 50 GEE(I,J) = 0.0 PITAXS = 0.0 AMOAXS = 0. CALL ASYCON CALL AKP2 RL1 = 9 S1 = SPS - SNS AA = S1/RL1 XLSV1(1) = 0.0 DO 4541 JL = 1,9 4541 XLSV1(JL+1) = JL*AA AA = SPS - SNS RL2 = 19 S1 = 2.0 + SNS - SPS TEMP= S1/RL2 XL = AA DO 4571 JL = 1,20 XLSV2(JL) = XL XLSV3(JL) = XL + SNS - SPS 4571 XL = XL + TEMP XL = SNS + 2.0 - SPS TEMP = (SPS-SNS)/RL1 DO 458 JL = 1,10 XLSV4(JL) = XL 458 XL = XL + TEMP C C ACCUMULATE PRESSURE VECTORS INTO G-MATRIX C DO 100 NM = 1,NSTNS NTIMES = 1 IF (NM .GT. 2) NTIMES = 2 DO 100 NMM = 1,NTIMES C JNDX = 0 5000 IF (JNDX .EQ. 0) GO TO 5010 C IF (NM .GT. 2) GO TO 5020 C GL = 0.0 IF (NM .EQ. 1) A = TANLAM/CSBAR1 IF (NM .EQ. 1) B = 0.0 IF (NM .EQ. 2) A = 0.0 IF (NM .EQ. 2) B = TANLAM/CSBAR1 C GO TO 2047 C 5020 IF (NMM .EQ. 1) GUSAMP =-AI*TANLAM/CSBAR1/2.0 IF (NMM .EQ. 1) GL = (NM-2)*PI/2.0 IF (NMM .EQ. 2) GUSAMP = AI*TANLAM/CSBAR1/2.0 IF (NMM .EQ. 2) GL =-(NM-2)*PI/2.0 C A = GUSAMP B = 0.0 C GO TO 2047 C C DEFINE ----------------------------- C ALPAMP - PITCHING AMP C DISAMP - PLUNGING AMP C GUSAMP - GUST AMP C GL -GUST WAVE NUMBER 5010 ALPAMP = 0.0 IF (NM .EQ. 2) ALPAMP = 1.0 DISAMP = 0.0 IF (NM .EQ. 1) DISAMP = 1.0 GUSAMP = 0.0 GL = 0.0 IF (NM.GT.2 .AND. NMM.EQ.1) GUSAMP =-(REDF+AI*TD)/2.+(NM-2)*PI/4. IF (NM.GT.2 .AND. NMM.EQ.1) GL = (NM-2)*PI/2.0 IF (NM.GT.2 .AND. NMM.EQ.2) GUSAMP = (REDF+AI*TD)/2.+(NM-2)*PI/4. IF (NM.GT.2 .AND. NMM.EQ.2) GL =-(NM-2)*PI/2.0 C A = (1.0+AI*REDF*PITAXS)*ALPAMP - (AI*REDF-TD)*DISAMP B =-(AI*REDF-TD)*ALPAMP IF (GL .EQ. 0.0) GO TO 2047 A = GUSAMP B = 0.0 2047 CONTINUE C CALL SUBA C C FIND DELTA P(LOWER-UPPER) C DO 60 NX = 1,10 PRESU(NX) = PRES1(NX) XUP(NX) = XLSV1(NX) IF (NX .EQ. 10) GO TO 55 NXX = NX + 20 PRESL(NXX) = PRES4(NX+1) XLOW( NXX) = XLSV4(NX+1) GO TO 610 55 PRESU(NX) = (PRES1(10) + PRES2(1))/2.0 XUP(10) = (XLSV1(10) + XLSV2(1))/2.0 610 CONTINUE 60 CONTINUE DO 70 NX = 1,20 NXX = NX + 10 IF (NX .EQ. 20) GO TO 65 PRESU(NXX) = PRES2(NX+1) XUP (NXX) = XLSV2(NX+1) PRESL(NX) = PRES3(NX ) XLOW( NX) = XLSV3(NX ) GO TO 710 65 PRESL(20) = (PRES3(20) + PRES4(1))/2.0 XLOW(20) = (XLSV3(20) + XLSV4(1))/2.0 710 CONTINUE 70 CONTINUE C JX = JNDX*4*NSTNS NMZ = NM + JX NM2Z = NM + NSTNS + JX NM3Z = NM + 2*NSTNS + JX NM4Z = NM + 3*NSTNS + JX C DO 101 NMMM = 1,29 GEE(NMMM,NMZ ) = GEE(NMMM,NMZ ) + REAL(PRESL(NMMM)) GEE(NMMM,NM2Z) = GEE(NMMM,NM2Z) + AIMAG(PRESL(NMMM)) GEE(NMMM,NM3Z) = GEE(NMMM,NM3Z) + REAL(PRESU(NMMM)) GEE(NMMM,NM4Z) = GEE(NMMM,NM4Z) + AIMAG(PRESU(NMMM)) C 101 CONTINUE C IF (JNDX .NE. 0) GO TO 100 JNDX = 1 GO TO 5000 C 100 CONTINUE C C NOW DEFINE I-MATRIX (NSTNS X 29) C AYE(1,1) = C1SBAR*2.0 + C2SSCH*2.0 AYE(1,2) = C1SBAR*8.0/3.0 + C2SSCH*2.0 AYE(2,1) = C1SBAR*8.0/3.0 + C2SSCH*2.0 AYE(2,2) = C1SBAR*4.0 + C2SSCH*8.0/3.0 C CONZ1 = 1.0 C DO 280 I = 3,NSTNS CONZ4 = (1.+CONZ1 )*2./(PI*(J-2)) CONZ5 = CONZ1*4./ (PI*(J-2)) CONZ6 = CONZ1*8./(PI*(J-2)) - (1.+CONZ1)*16./(PI*(J-2))**3 C AYE(I,1) = C1SBAR*CONZ5 + C2SSCH*CONZ4 AYE(I,2) = C1SBAR*CONZ6 + C2SSCH*CONZ5 280 CONZ1 = -CONZ1 C CONZ1 = 1.0 C DO 282 J = 3,29 CONZ4 = (1.+CONZ1)*2./(PI*(J-2)) CONZ5 = CONZ1*4./(PI*(J-2)) CONZ6 = CONZ1*8./(PI*(J-2)) - (1.+CONZ1)*16./(PI*(J-2))**3 C AYE(1,J) = C1SBAR*CONZ5 + C2SSCH*CONZ4 AYE(2,J) = C1SBAR*CONZ6 + C2SSCH*CONZ5 282 CONZ1 = -CONZ1 C DO 284 I = 3, NSTNS C DO 284 J = 3,29 CONZ1 = 0.0 IF (J .EQ. I) GO TO 286 IF ((I+J)/2*2 .EQ. (I+J)) GO TO 285 CONZ1 = -16.*(I-2)*(J-2)/(PI*PI*(I-J)*(I-J)*(I+J-4)**2) 285 CONZ2 = 0.0 GO TO 284 286 CONZ1 = 1.0 CONZ2 = 1.0 284 AYE(I,J) = C1SBAR*CONZ1 + C2SSCH*CONZ2 C C C Q DUE TO PRESL ONLY C C NOW DEFINE LARGE G MATRIX C DO 110 I = 1,29 GYE(1,I) = 0.0 110 GYE(I,1) = 1.0 C C PUT XLOW IN XTEMP C DO 120 I = 1,29 120 XTEMP(I) = XLOW(I) DO 160 J = 3,29 CONST = (J-2)*PI/2.0 DO 160 I = 2,29 GYE(I,J) = SIN(CONST*XTEMP(I)) 160 CONTINUE DO 165 I = 2,29 165 GYE(I,2) = XTEMP(I) C C PUT PRESL PARTS OF GEE IN GEETMP (UNPRIMED AND PRIMED TERMS) C DO 1655 I = 1,29 DO 1655 J = 1,NSTNS2 GEETMP(I,J) = GEE(I,J) 1655 GEETMP(I,J+NSTNS2) = GEE(I,J+NSTNS4) C C SOLVE FOR G-INVERSE G IN GEE MATRIV C ISING = 1 NON-SINGULAR (GYE) C ISING = 2 SIGULAR (GYE) C INDEX IS WORK STORAGE FOR ROUTINE INVERS C ISING = -1 CALL INVERS (29,GYE,29,GEETMP,NSTNS4,DETERM,ISING,INDEX) IF (ISING .EQ. 2) GO TO 9992 C C NOW MULTIPLY I*G-INVERSE*G(DELTA P'S) C DO 360 J = 1,NSTNS DO 360 K = 1,NSTNS C SUMR1 = 0.0 SUMI1 = 0.0 SUMR2 = 0.0 SUMI2 = 0.0 C DO 350 I = 1,29 SUMR1 = SUMR1 + AYE(J,I)*GEETMP(I,K) SUMI1 = SUMI1 + AYE(J,I)*GEETMP(I,K+NSTNS) SUMR2 = SUMR2 + AYE(J,I)*GEETMP(I,K+NSTNS4) 350 SUMI2 = SUMI2 + AYE(J,I)*GEETMP(I,K+NSTNS+NSTNS4) C CONZ1 = CSBLSB*SUMR1 + CSBM2S*SUMR2 CONZ2 = CSBLSB*SUMI1 + CSBM2S*SUMI2 CONZ3 = CSBAR*SUMR2 CONZ4 = CSBAR*SUMI2 C Q(J,K ) = 2.0*CMPLX(CONZ1,-CONZ2) Q(J,K+NSTNS) = 2.0*CMPLX(CONZ3,-CONZ4) Q(J+NSTNS,K) = (0.0,0.0) 360 Q(J+NSTNS,K+NSTNS) = (0.0,0.0) C C FINALLY, Q DUE TO (PRESL-PRESU) IS COMPUTED BY SUBTRACTING Q DUE C TO PRESU FROM Q DUE TO PRESL ABOVE C C LARGE G MATRIX C DO 1101 I = 1,29 GYE(1,I) = 0.0 1101 GYE(I,1) = 1.0 C C PUT XUP IN XTEMP C DO 1201 I = 1,29 1201 XTEMP(I) = XUP(I) DO 1601 J = 3,29 CONST = (J-2)*PI/2.0 DO 1601 I = 2,29 GYE(I,J) = SIN(CONST*XTEMP(I)) 1601 CONTINUE DO 1651 I = 2,29 1651 GYE(I,2) = XTEMP(I) C C PUT PRESU PARTS OF GEE IN GEETMP (UNPRIMED AND PRIMED TERMS) C DO 2655 I = 1,29 DO 2655 J = 1,NSTNS2 C NSNS2 = NSTNS2 + J GEETMP(I,J) = GEE(I,NSNS2) 2655 GEETMP(I,NSNS2) = GEE(I,NSNS2+NSTNS4) C C SOLVE FOR G-INVERSE G IN GEETMP MATRIX C ISING = 1 NON-SINGULAR (GYE) C ISING = 2 SINGULAR GYE C INDEX IS WORK STORAGE FOR ROUTINE INVERS C ISING = -1 CALL INVERS (29,GYE,29,GEETMP,NSTNS4,DETERM,ISING,INDEX) C IF (ISING .EQ. 2) GO TO 9992 C C MULTIPLY I*G-INVERS*G C DO 3601 J = 1,NSTNS DO 3601 K = 1,NSTNS C SUMR1 = 0.0 SUMI1 = 0.0 SUMR2 = 0.0 SUMI2 = 0.0 C DO 3501 I = 1, 29 SUMR1 = SUMR1 + AYE(J,I)*GEETMP(I,K) SUMI1 = SUMI1 + AYE(J,I)*GEETMP(I,K+NSTNS) SUMR2 = SUMR2 + AYE(J,I)*GEETMP(I,K+NSTNS4) 3501 SUMI2 = SUMI2 + AYE(J,I)*GEETMP(I,K+NSTNS+NSTNS4) C CONZ1 = CSBLSB*SUMR1 + CSBM2S*SUMR2 CONZ2 = CSBLSB*SUMI1 + CSBM2S*SUMI2 CONZ3 = CSBAR*SUMR2 CONZ4 = CSBAR*SUMI2 C Q(J,K ) = Q(J,K) - 2.0*CMPLX(CONZ1,-CONZ2) 3601 Q(J,K+NSTNS) = Q(J,K+NSTNS) - 2.0*CMPLX(CONZ3,-CONZ4) RETURN C 9991 WRITE (IBBOUT,3000) UFM GO TO 9999 9992 WRITE (IBBOUT,3001) UFM GO TO 9999 9993 WRITE (IBBOUT,3002) UFM,SLN,NSTNS 9999 CALL MESAGE (-61,0,0) RETURN C 3000 FORMAT (A23,' - AMG MODULE -SUBROUTINE AMGT1C', /39X, 1 'AXIAL MACH NUMB. IS EQUAL TO OR GREATER THAN ONE.') 3001 FORMAT (A23,' - AMG MODULE - LARGE G-MATRIX IS SINGULAR IN ', 1 'ROUTINE AMGT1C.') 3002 FORMAT (A23,' - AMG MODULE - NUMBER OF COMPUTING STATIONS ON ', 1 'STREAMLINE',I8,4H IS ,I3,1H. ,/39X,'SUPERSONIC CASCADE ', 2 'ROUTINE AMGT1C ALLOWS ONLY A MAXIMUM OF 10.') END ================================================ FILE: mis/amgt1d.f ================================================ SUBROUTINE AMGT1D (AJJ,TSONX,TAMACH,TREDF,NSTNS2) C C TRANSONIC INTERPOLATION CODE FOR SWEPT TURBOPROPS. C INTEGER SLN INTEGER TSONX(1) C COMPLEX AJJ(NSTNS2,1) C DIMENSION TAMACH(1),TREDF(1) C COMMON /TAMG1L/IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAG, 2 CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC COMMON /AMGMN /MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ C NUMM = 2 * NSTNS2 * NSTNS2 DO 100 NLINE = 1,NLINES IF(TSONX(NLINE).EQ. 0) GO TO 100 NS = 0 IF(NLINE .EQ. 1) GO TO 90 IF(TAMACH(NLINE) .GE. 1.0) GO TO 20 C SUBSONIC IF(NLINE . EQ.2) NLINE1=1 IF(NLINE . EQ.2) GO TO 93 17 NLINE1 = NLINE -2 NLINE2 = NLINE -1 GO TO 70 C SUPERSONIC 20 IF( NLINE .EQ. NLINES) GO TO 17 NS =1 GO TO 90 30 IF(NLINE1 .EQ. 0) GO TO 17 IF(NLINE2 .NE. 0) GO TO 70 NLINE2 = NLINE1 NLINE1 = NLINE-1 70 CALL INTERT(NLINE,NLINE1,NLINE2,NUMM,AJJ,TAMACH) GO TO 100 C SEARCH FOR 1ST--2--KNOWN STREAMLINES 90 NLINE1 = 0 93 NLINE2 = 0 NNLINE = NLINE + 1 DO 96 I=NNLINE,NLINES IF(NLINE2 .NE. 0) GO TO 97 IF(TSONX(I).NE. 0) GO TO 96 IF(NLINE1 .EQ. 0) NLINE1 = I IF(NLINE1 .NE. I) NLINE2 = I 96 CONTINUE 97 IF(NS .EQ. 0) GO TO 70 GO TO 30 100 CONTINUE RETURN END ================================================ FILE: mis/amgt1s.f ================================================ SUBROUTINE AMGT1S (INPUT,FMAT,XYZB,INDEX) C C COMPUTE F(INVERSE) FOR THIS STREAMLINE C LOGICAL TSONIC,DEBUG INTEGER SLN REAL MINMAC,MAXMAC,MACH DIMENSION FMAT(NSTNS,NSTNS),XYZB(3,NSTNS),INDEX(1),TBL(3,3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IOUT COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISO COMMON /TAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAGER, 2 CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC,XSIGN COMMON /AMGBUG/ DEBUG C C READ STREAMLINE DATA C NSTNS3 = 3*NSTNS CALL FREAD (INPUT,SLN,10,0) CALL FREAD (INPUT,XYZB,NSTNS3,0) IF (DEBUG) CALL BUG1 ('ACPT-SLN ',10,SLN,10) IF (DEBUG) CALL BUG1 ('XYZB ',20,XYZB,NSTNS3) C C (1) COMPUTE BASIC TO LOCAL TRANSFORMATION C XYZB ARRAY CONTAINS X,Y,Z COORDINATES IN BASIC SYSTEM C FOR ALL NODES ON THE STREAMLINE LEADING EDGE TO TRAILING EDGE C (2) TRANSFORM BASIC X,Y,Z ON STREAMLINE TO LOCAL X,Y,Z-S C (3) COMPUTE FMAT(NSTNS X NSTNS) C (4) COMPUTE FMAT(INVERS) - USE - C CALL INVERS(NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX) C XA = XYZB(1,1) YA = XYZB(2,1) ZA = XYZB(3,1) XB = XYZB(1,NSTNS) YB = XYZB(2,NSTNS) ZB = XYZB(3,NSTNS) XBA = XB - XA YBA = YB - YA ZBA = ZB - ZA AL2SQ = XBA**2 + YBA**2 AL1SQ = AL2SQ + ZBA**2 AL1 = SQRT(AL1SQ) TBL(1,1) = XBA/AL1 TBL(1,2) = YBA/AL1 TBL(1,3) = ZBA/AL1 FMAT(1,1)= 1.0 PIC = PI/CHORD CH2 = 2.0/CHORD DO 40 I = 2,NSTNS X = TBL(1,1)*(XYZB(1,I) - XYZB(1,1)) 1 + TBL(1,2)*(XYZB(2,I) - XYZB(2,1)) 2 + TBL(1,3)*(XYZB(3,I) - XYZB(3,1)) FMAT(1,I) = 0.0 FMAT(I,1) = 1.0 FMAT(I,2) = CH2*X DO 30 J = 3,NSTNS AN = J - 2 ARG = PIC*AN*X 30 FMAT(I,J) = SIN(ARG) 40 CONTINUE IF (DEBUG) CALL BUG1 ('FMAT ',50,FMAT,NSTNS*NSTNS) ISING = -1 CALL INVERS (NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX) IF (DEBUG) CALL BUG1 ('FMAT-INV ',60,FMAT,NSTNS*NSTNS) IF (ISING .EQ. 2) GO TO 70 RETURN C C ERROR MESSAGE, SINGULAR MATRIX C 70 WRITE (IOUT,80) UFM,SLN 80 FORMAT (A23,' -AMG MODULE- SINGULAR MATRIX IN ROUTINE AMGT1S FOR', 1 ' STREAML2, SLN =',I3, /39X,'CHECK STREAML2 BULK DATA CARD.') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/amgt1t.f ================================================ SUBROUTINE AMGT1T (NLINE,NL,ACPT,NSTNS,C3T,C4T) C C GENERATE CONSTANTS C3T AND C4T FOR C STREAMLINE NL OF SWEPT TURBOPROP BLADE. C REAL L1,L2,L3 INTEGER ACPT,FILE,NAME(2) DIMENSION PN(3),P1(3),FN(3),F1(3),S1(3),SN(3),DATA(3) DATA FILE/ 102 /, NAME / 4HAMGT,4H1T / C C INPUT VARIABLES - C NLINE TOTAL NO. OF STREAMLINES C NL PRESENT STEAMLINE C ACPT SCRATCH UNIT WITH BASIC COORDINATES OF NODES C NSTNS TOTAL NO. OF STATIONS C C OUTPUT VARIABLES - C C3T CONSTANTS USED BY SUB. AND SUP. AERODYNAMIC ROUTINES C C4T USED IN DEFINING DATA BLOCK AJJ C C LOCAL VARIABLES - C PN COORDINATES TRAILING EDGE PREVIOUS STREAMLINE C P1 COORDINATES LEADING EDGE PREVIOUS STREAMLINE C FN COORDINATES TRAILING EDGE NEXT STREAMLINE C F1 COORDINATES LEADING EDGE NEXT STREAMLINE C S1 COORDINATES OF LEADING EDGE OF CURRENT STREAMLINE C SN COORDINATES OF TRAILING EDGE OF CURRENT STREAMLINE C C EXTRACT LEADING COORDINATES OF CURRENT STREAMLINE C CALL FREAD (ACPT,DATA,3,0) DO 1 I = 1,3 1 S1(I) = DATA(I) C C SKIP TO TRAILING EDGE COORDINATES OF CURRENT STREAMLINE C NSKIP = (2-NSTNS)*3 CALL READ (*905,*900,ACPT,DATA,NSKIP,0,MM) CALL FREAD (ACPT,DATA,3,0) DO 2 I = 1,3 2 SN(I) = DATA(I) C C EXTRACT COORDINATES FOR PREVIOUS--P-FOR FIRST STREAMLINE C IF (NL .NE. 1) GO TO 10 DO 5 I = 1,3 PN(I) = SN(I) 5 P1(I) = S1(I) C C NOW COORDINATES FOR NEXT -F- FOR LAST STREAMLINE C 10 IF (NL .NE. NLINE) GO TO 15 DO 12 I = 1,3 FN(I) = SN(I) 12 F1(I) = S1(I) GO TO 50 C C NOW COORDINATES FOR NEXT -F- FOR ALL OTHER STREAMLINES C C SKIP FIRST 10 WORDS OF NEXT STREAMLINE C 15 CALL READ (*905,*900,ACPT,DATA,-10,0,MM) CALL FREAD (ACPT,DATA,3,0) F1(1) = DATA(1) F1(2) = DATA(2) F1(3) = DATA(3) C C COMPUTE SKIP TO TRAILING EDGE COORDINATES C NSKIP = (2-NSTNS)*3 CALL READ (*905,*900,ACPT,DATA,NSKIP,0,MM) CALL FREAD (ACPT,DATA,3,0) FN(1) = DATA(1) FN(2) = DATA(2) FN(3) = DATA(3) 50 A1 = SN(1) - S1(1) B1 = SN(2) - S1(2) C1 = SN(3) - S1(3) C A2 = FN(1) - P1(1) B2 = FN(2) - P1(2) C2 = FN(3) - P1(3) C A3 = PN(1) - F1(1) B3 = PN(2) - F1(2) C3 = PN(3) - F1(3) C A4 = B2*C1 - B1*C2 B4 = C2*A1 - C1*A2 C4 = A2*B1 - A1*B2 C A5 = B1*C3 - B3*C1 B5 = C1*A3 - C3*A1 C5 = A1*B3 - A3*B1 C L1 = SQRT(A1**2 + B1**2 + C1**2) L2 = SQRT(A4**2 + B4**2 + C4**2) L3 = SQRT(A5**2 + B5**2 + C5**2) C A6 = 0.5*(A4/L2 + A5/L3) B6 = 0.5*(B4/L2 + B5/L3) C6 = 0.5*(C4/L2 + C5/L3) C A7 = (B1*C6 - B6*C1)/L1 B7 = (C1*A6 - C6*A1)/L1 C7 = (A1*B6 - A6*B1)/L1 C A8 = F1(1) - P1(1) B8 = F1(2) - P1(2) C8 = F1(3) - P1(3) C A9 = FN(1) - PN(1) B9 = FN(2) - PN(2) C9 = FN(3) - PN(3) C W1 = A7*A8 + B7*B8 + C7*C8 W2 = A7*A9 + B7*B9 + C7*C9 C C3T = (W2-W1)/(2.0*L1) C4T = W1/2.0 C IF (NL .EQ. NLINE) RETURN C C RETURN TO START OF RECORD C CALL BCKREC (ACPT) C C COMPUTE SKIP TO NEXT STREAMLINE AT EXIT FROM THIS ROUTINE C NSKIP = -6 - (10+3*NSTNS)*NL CALL READ (*905,*900,ACPT,DATA,NSKIP,0,MM) C C SET PREVIOUS COORDINATES -P- TO PRESENT STREAMLINE COORDINATES C DO 800 I = 1,3 PN(I) = SN(I) 800 P1(I) = S1(I) RETURN C C E-O-R ENCOUNTERED 900 IP1 = -3 GO TO 999 C C E-O-F ENCOUNTERED C 905 IP1 = -2 999 CALL MESAGE (IP1,FILE,NAME) RETURN END ================================================ FILE: mis/amgt2.f ================================================ SUBROUTINE AMGT2 (INPUT,D1JK,D2JK) C C DRIVER FOR SWEPT TURBOPROP BLADES (AEROELASTIC THEORY 7). C C COMPUTATIONS ARE FOR D1JK AND D2JK MATRICES. C FOR SWEPT TURBOPROPS K-SET = J-SET = 2*NSTNS*NLINES. C C D1JK = F(INVERSE)TRANSPOSE C C D2JK = NULL C LOGICAL TSONIC,DEBUG INTEGER D1JK,D2JK,TD1JK,TD2JK,ECORE,SYSBUF,NAME(2),SLN REAL MINMAC,MAXMAC,MACH DIMENSION IZ(1) COMMON /AMGP2 / TD1JK(7),TD2JK(7) COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /SYSTEM/ SYSBUF,IOUT COMMON /ZZZZZZ/ WORK(1) COMMON /BLANK / NK,NJ COMMON /TAMG2L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAGER, 2 CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC,XSIGN COMMON /AMGBUG/ DEBUG EQUIVALENCE (WORK(1),IZ(1)) DATA NAME / 4HAMGT,4H2 / C C READ PARAMETERS IREF,MINMAC,MAXMAC,NLINES AND NSTNS C CALL FREAD (INPUT,IREF,5,0) IF (DEBUG) CALL BUG1 ('ACPT-REF ',5,IREF,5) C C READ REST OF ACPT RECORD INTO OPEN CORE AND LOCATE REFERENCE C PARAMETERS REFSTG,REFCRD,REFMAC,REFDEN,REFVEL AND REFSWP C ECORE = KORSZ(IZ) - 3*SYSBUF CALL READ (*10,*10,INPUT,IZ,ECORE,1,NWAR) GO TO 120 10 NDATA = 3*NSTNS + 10 IF (DEBUG) CALL BUG1 ('ACPT-REST ',10,IZ,NWAR) IRSLN = 0 NLINE = 0 DO 20 I = 1,NWAR,NDATA IF (IREF .EQ. IZ(I)) IRSLN = I NLINE = NLINE + 1 20 CONTINUE C C DETERMINE DIRECTION OF BLADE ROTATION VIA Y-COORDINATES AT TIP C STREAMLINE. USE COORDINATES OF FIRST 2 NODES ON STREAMLINE. C IPTR = NDATA*(NLINES-1) XSIGN = 1.0 IF (WORK(IPTR+15) .LT. WORK(IPTR+12)) XSIGN = -1.0 C C DID IREF MATCH AN SLN OR IS THE DEFAULT TO BE TAKEN (BLADE TIP) C IF (IRSLN .EQ. 0) IRSLN = (NLINES-1)*NDATA + 1 REFSTG = WORK(IRSLN+2) REFCRD = WORK(IRSLN+3) REFMAC = WORK(IRSLN+6) REFDEN = WORK(IRSLN+7) REFVEL = WORK(IRSLN+8) REFSWP = WORK(IRSLN+9) C C REPOSITION ACPT TO BEGINNING OF BLADE DATA. C CALL BCKREC (INPUT) CALL FREAD (INPUT,0,-6,0) C IF (DEBUG) CALL BUG1 ('TAMG2L ',22,IREF,27) C C COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE C NSTNS2 = 2*NSTNS NSNS = NSTNS*NSTNS IP1 = 1 IP2 = IP1 + NSNS NEXT = IP2 + 3*NSTNS IF (NEXT .GT. ECORE) GO TO 120 C C COMPUTE F(INVERSE) FOR EACH STREAMLINE C NN = II + NSTNS - 1 DO 100 NLINE = 1,NLINES CALL AMGT2A (INPUT,WORK(IP1),WORK(IP2),WORK(IP2)) C C OUTPUT D1JK (=F(INVERSE)TRANSPOSE) FOR THIS STREAMLINE. C IP3 = IP2 + NSTNS - 1 DO 50 I = 1,NSTNS K = I DO 30 J = IP2,IP3 WORK(J) = WORK(K) 30 K = K + NSTNS CALL PACK (WORK(IP2),D1JK,TD1JK) IF (DEBUG) CALL BUG1 ('D1JK ',40,WORK(IP2),NSTNS) 50 CONTINUE II = II + NSTNS NN = NN + NSTNS DO 80 I = 1,NSTNS K = I DO 70 J = IP2,IP3 WORK(J) = WORK(K) 70 K = K + NSTNS CALL PACK (WORK(IP2),D1JK,TD1JK) IF (DEBUG) CALL BUG1 ('D1JK ',70,WORK(IP2),NSTNS) 80 CONTINUE II = II + NSTNS IF (NLINE .EQ. NLINES) GO TO 100 NN = NN + NSTNS 100 CONTINUE C C OUTPUT D2JK = NULL C DO 110 ICOL = 1,NK CALL BLDPK (ITI,ITO,D2JK,0,0) 110 CALL BLDPKN (D2JK,0,TD2JK) RETURN C C ERROR MESSAGES C C NOT ENOUGH CORE C 120 CALL MESAGE (-8,0,NAME) RETURN END ================================================ FILE: mis/amgt2a.f ================================================ SUBROUTINE AMGT2A (INPUT,FMAT,XYZB,INDEX) C C COMPUTE F(INVERSE) FOR THIS STREAMLINE C LOGICAL TSONIC,DEBUG INTEGER SLN REAL MINMAC,MAXMAC,MACH DIMENSION FMAT(NSTNS,NSTNS),XYZB(3,NSTNS),INDEX(1),TBL(3,3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IOUT COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISO COMMON /TAMG2L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD, 1 REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAGER, 2 CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH, 3 REDF,BLSPC,AMACHR,TSONIC,XSIGN COMMON /AMGBUG/ DEBUG C C READ STREAMLINE DATA C NSTNS3 = 3*NSTNS CALL FREAD (INPUT,SLN,10,0) CALL FREAD (INPUT,XYZB,NSTNS3,0) IF (DEBUG) CALL BUG1 ('ACPT-SLN ',10,SLN,10) IF (DEBUG) CALL BUG1 ('XYZB ',20,XYZB,NSTNS3) C C (1) COMPUTE BASIC TO LOCAL TRANSFORMATION C XYZB ARRAY CONTAINS X,Y,Z COORDINATES IN BASIC SYSTEM C FOR ALL NODES ON THE STREAMLINE LEADING EDGE TO TRAILING EDGE C (2) TRANSFORM BASIC X,Y,Z ON STREAMLINE TO LOCAL X,Y,Z-S C (3) COMPUTE FMAT(NSTNS X NSTNS) C (4) COMPUTE FMAT(INVERS) - USE - C CALL INVERS(NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX) C XA = XYZB(1,1) YA = XYZB(2,1) ZA = XYZB(3,1) XB = XYZB(1,NSTNS) YB = XYZB(2,NSTNS) ZB = XYZB(3,NSTNS) XBA = XB - XA YBA = YB - YA ZBA = ZB - ZA AL2SQ = XBA**2 + YBA**2 AL1SQ = AL2SQ + ZBA**2 AL1 = SQRT(AL1SQ) C C EVAL TBL ROW 1 C TBL(1,1) = XBA/AL1 TBL(1,2) = YBA/AL1 TBL(1,3) = ZBA/AL1 FMAT(1,1)= 1.0 PIC = PI/CHORD CH2 = 2.0/CHORD DO 40 I = 2,NSTNS X = TBL(1,1)*(XYZB(1,I) - XYZB(1,1)) 1 + TBL(1,2)*(XYZB(2,I) - XYZB(2,1)) 2 + TBL(1,3)*(XYZB(3,I) - XYZB(3,1)) FMAT(1,I) = 0.0 FMAT(I,1) = 1.0 FMAT(I,2) = CH2*X DO 30 J = 3,NSTNS AN = J - 2 ARG = PIC*AN*X 30 FMAT(I,J) = SIN(ARG) 40 CONTINUE IF (DEBUG) CALL BUG1 ('FMAT ',50,FMAT,NSTNS*NSTNS) ISING = -1 CALL INVERS (NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX) IF (DEBUG) CALL BUG1 ('FMAT-INV ',60,FMAT,NSTNS*NSTNS) IF (ISING .EQ. 2) GO TO 70 RETURN C C ERROR MESSAGE. SINGULAR MATRIX C 70 WRITE (IOUT,80) UFM,SLN 80 FORMAT (A23,' -AMG MODULE- SINGULAR MATRIX IN ROUTINE AMGT2A FOR', 1 ' STREAML2, SLN =',I3, /39X,'CHECK STREAML2 BULK DATA CARD.') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/amp.f ================================================ SUBROUTINE AMP C C THIS IS THE DMAP DRIVER FOR AMP C C DMAP CALLING SEQUENCE C C AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETA,AERO/ C QHHL,QJHL/V,N,NOVE/V,N,XQHHL $ C C D1JE AND D2JE MAY BE PURGED C C QHHL AND QJHL ARE APPEND TYPE FILES C C QJHL MAY BE PURGED C C DATA BLOCK ASSIGNMENTS COMPUTED BY USE C C SCR1 --OLD QHHL AMPA A,D C SCR2 --OLD QJHL AMPA A,C C SCR3 --INDEX OF WORK TO BE DONE AMPA A,MOD C SCR4 --DJH1 AMPB B,C C SCR5 --DJH2 AMPB B,C C SCR6 --GKI AMPB B,D C SCR7 --DJH AMPC C,C C SCR8 --QJHUA AMPC C,D C SCR9 --SCRATCH FILE B,C,D C SCR10 --SCRATCH FILE B,C,D C SCR11 --SCRATCH FILE B,C,D C SCR12 --SCRATCH FILE C C SCR13 --SCRATCH FILE C C SCR14 --SCRATCH FILE C C C VARIABLES C NAME MEANING C ------- --------------- C NCOL NUMBER OF COLUMNS IN SUBMATRIX OF AJJL C NSUB ACTUAL NUMBER OF SUBMATRICES ON AJJL C XM CURRENT M C XK CURRENT K C AJJCOL COLUMN NUMBER IN AJJL WHERE CURRENT SUBMATRIX STARTS C QHHCOL COLUMN NUMBER IN QHH AND QJH WHERE SUBMATRIX STARTS C 0 MEANS RECOMPUTE C NGP NUMBER OF GROUPS IN AJJL C NGPD PAIRS FOR EACH GROUP - 1--THEORY -1 =D.L. C 2--NUMBER OF COLUM C 2--NUMBER OF COLS IN GROUP C NOH NUMBER OF H D.O.F. C IDJH FLAG TO RECOMPUTE DJH IF K CHANGES C IMAX NUMBER OF M-K PAIRS C IANY FLAG TO INDICATE SOME CALCULATION MUST BE PERFORMED C ITL MAXIMUM TIME FOR ANY LOOP C XKO OLD VALUE OF K C C INTEGER AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETA,AERO,QHHL, 1 QJHL, SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7, SCR8,SCR9, 2 SCR10,SCR11,SCR12,SCR13,SCR14,SYSBUF,XQHHL,AJJCOL,QHHCOL, 3 MCB(7),NAME(2) INTEGER QHJL COMMON /SYSTEM/SYSBUF,NOUT COMMON /BLANK/NOUE,XQHHL,IGUST COMMON /AMPCOM/NCOL,NSUB,XM,XK,AJJCOL,QHHCOL,NGP,NGPD(2,30), 1 MCBQHH(7),MCBQJH(7),NOH,IDJH 1 ,MCBRJH(7) COMMON /CDCMPX/ISK(32),IB,IBBAR COMMON /ZZZZZZ/ IZ(1) DATA AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETA,AERO/ 1 101 ,102 ,103 ,104 ,105 ,106 ,107 ,108 ,109 ,110 / DATA QHHL,QJHL,NAME /201,202,4HAMP ,1H / DATA QHJL /203/ DATA SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,SCR9,SCR10,SCR11, 1SCR12,SCR13,SCR14/301,302,303,304,305,306,307,308,309,310,311,312, 2 313,314 / C C INITIALIZE C IBUF1 = KORSZ(IZ) -SYSBUF+1 MCB(1) = PHIDH CALL RDTRL(MCB(1)) NOH=MCB(2) MCBRJH(1)=QHJL IB = 0 IBBAR = 0 C C BUILD INDEXES C CALL AMPA(AERO,QJHL,QHHL,AJJL,SCR1,SCR2,SCR3,IMAX,IANY) C C COMPUTE DJH AND GKI C C C IF NO NEW VALUES ARE TO BE COMPUTED SKIP AMPB C IF(IANY.NE.0)GO TO 90 CALL AMPB(PHIDH,GTKA,D1JK,D2JK,D1JE,D2JE,USETA,SCR4,SCR5,SCR6, 1 SCR9,SCR10,SCR11) 90 CONTINUE C C LOOP ON MK PAIRS C XKO=-1.0 IOP=0 ITL=0 DO 100 I = 1, IMAX CALL KLOCK(ITS) CALL GOPEN(SCR3,IZ(IBUF1),IOP) IOP=2 CALL FREAD(SCR3,XM,4,1) CALL CLOSE(SCR3,2) C C COMPUTE QJH C IDJH=0 IF(XK.EQ.XKO)IDJH=1 CALL AMPC(SCR4,SCR5,SCR7,AJJL,QJHL,SCR2,SCR8,SCR9,SCR10,SCR11, 1 SCR12,SCR13,SCR14) IF(QHHCOL .EQ. 0) XKO = XK C C COMPUTE QHH C IF(MCBQHH(1).LE.0)GO TO 50 CALL AMPD(SCR8,SCR1,SKJ,SCR6,QHHL,SCR9,SCR10,SCR11,SCR12) 50 CONTINUE IF(I.EQ.IMAX)GO TO 100 C C CHECK TIME C CALL KLOCK(ITF) CALL TMTOGO(ITMTO) ITL=MAX0(ITF-ITS,1,ITL) IF(1.1*ITL.GE.ITMTO)GO TO 200 100 CONTINUE C C FINISH UP C 110 IF(MCBQHH(1).GT.0)CALL WRTTRL(MCBQHH) IF(MCBQJH(1).GT.0)CALL WRTTRL(MCBQJH) XQHHL=-1 IF(IGUST .LE. 0) RETURN C C COMPUTE QHJL C NOTE QHJL IS REALLY QJHL C C FIRST COMPUTE GKH ONTO SCR4 C C CALL AMPE(PHIDH,GTKA,SCR4,SCR5,SCR6,USETA) C C LOOP ON GROUPS WITHIN MK PAIRS FOR QHJL C CALL AMPF(SKJ,SCR4,AJJL,QHJL,SCR3,IMAX,SCR5,SCR6,SCR7,SCR8,SCR9, 1 SCR10,SCR11,SCR12,SCR13,SCR1) RETURN C C INSUFFICIENT TIME TO COMPLETE C 200 CALL MESAGE(45,IMAX-I,NAME) GO TO 110 END ================================================ FILE: mis/ampa.f ================================================ SUBROUTINE AMPA (AERO,QJH,QHH,AJJL,QHHLO,QJHLO,INDEX,IMAX,IANY) C C THE PURPOSE OF THIS ROUTINE IS TO C 1. INITIALIZE QHJ AND QHH C 2. COPY USEFUL DATA FROM QJH AND QHH TO QHHLO AND QJHLO C 3. SET UP INDEX, IMAX,IANY, AND AMPCOM C C OPEN CORE IS LAID OUT AS FOLLOWS C C CONTENTS POINTER LENGTH C -------- ------- ------ C AJJL HEADER C NCOL C NSUB C M-K PAIRS IAJJL 2*NSUB +2 C . C . C . C AERO RECORD 2 IAERO 2* IMAX C M- K PAIRS C . C . C . C QHH HEADER RECORD(RST) C NOH (OLD) C M- K PAIRS IQHH 2*NQHH C . C . C . C BUFFER2 IBUF2 C BUFFER1 IBUF1 C C C SPECIAL CODE EXISTS IN CASE AJJK HEADER HAS ONLY 2 WORDS C INTEGER AERO,QJH,QHH,AJJL,QHHLO,QJHLO,XQHHL,SYSBUF, 1 NAME(2),MCBAJJ(7),FILE,AJJCOL,QHHCOL REAL Z(1) COMMON /UNPAKX/ IT1,II,JJ,INCR COMMON /PACKX / IT2,IT3,II1,JJ1,INCR1 COMMON /SYSTEM/ SYSBUF,NOUT,SKP(52),IPREC COMMON /BLANK / NOUE,XQHHL,IGUST COMMON /AMPCOM/ NCOL,NSUB,XM,XK,AJJCOL,QHHCOL,NGP,NGPD(2,30), 1 MCBQHH(7),MCBQJH(7),NOH,IDJH,MCBRJH(7) COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (Z(1),IZ(1)) DATA NAME / 4HAMPA,4H..../ C C INITIALIZE C MCBAJJ(1) = AJJL CALL RDTRL (MCBAJJ) MCBQHH(1) = QHH CALL RDTRL (MCBQHH) MCBQJH(1) = QJH CALL RDTRL (MCBQJH) IANY = 1 IBUF1= KORSZ(IZ) - SYSBUF + 1 IBUF2= IBUF1 - SYSBUF C C EXTRACT DATA FROM AJJL HEADER C FILE = AJJL CALL OPEN (*900,AJJL,IZ(IBUF1),0) CALL READ (*910,*920,AJJL,IZ,-2,0,IFLAG) CALL READ (*910,*30,AJJL,IZ,IBUF2-1,0,IFLAG) GO TO 980 C C PROCESS AJJL DATA C 30 CALL CLOSE (AJJL,1) NOAJJH= 0 IAJJL = 4 IF (IFLAG .EQ. 0) GO TO 50 NCOL = IZ(1) IZX = 3 NSUB = MIN0(IZ(IZX),MCBAJJ(2)/NCOL) NGP = IZ(2*NSUB+4) K = 2*NSUB + 5 IAERO= K - 1 DO 35 I = 1,NGP NGPD(1,I) = IZ(K ) NGPD(2,I) = IZ(K+1) K = K + 3 35 CONTINUE GO TO 55 C C NO AJJ HEADER DATA C 50 NOAJJH = 1 IAERO = 3 C C BRING IN AERO DATA C 55 CONTINUE CALL GOPEN (AERO,IZ(IBUF1),0) FILE = AERO CALL FWDREC (*910,AERO) NZ = IBUF2 - IAERO CALL READ (*910,*60,AERO,IZ(IAERO),NZ,0,IFLAG) GO TO 980 C C AERO DATA IN CORE C 60 CALL CLOSE (AERO,1) IMAX = IFLAG/2 IF (NOAJJH .EQ. 0) GO TO 70 C C FIX UP FOR AJJ MISSING HEADER C NCOL = MCBAJJ(2)/IMAX NSUB = IMAX NGP = 1 NGPD(1,1) = 1 NGPD(2,1) = NCOL IAERO = IFLAG + 3 K = IAERO DO 65 I = 1, IFLAG IZ(K) = IZ(I+2) K = K+1 65 CONTINUE C C PUT HEADERS FROM OLD QHH IN CORE C 70 IF (XQHHL .EQ. 1) GO TO 80 FILE = QHH CALL OPEN (*900,QHH,IZ(IBUF1),0) CALL FREAD (QHH,IZ,-2,0) IQHH = IAERO + 2*IMAX + 2 NZ = NZ - 2*IMAX CALL READ (*910,*75,QHH,IZ(IQHH),NZ,0,IFLAG) GO TO 980 75 CALL CLOSE (QHH,1) IQHH = IQHH + 2 NQHH = MIN0((IFLAG-2)/2,MCBQHH(2)/NOH) C C BUILD INDEX FILE C 80 CONTINUE I = 0 CALL GOPEN (INDEX,IZ(IBUF1),1) 90 CONTINUE XM = Z(IAERO+I ) XK = Z(IAERO+I+1) C C SEARCH FOR COLUMN NUMBER IN AJJL C J = 0 100 CONTINUE XMA = Z(IAJJL+J ) XKA = Z(IAJJL+J+1) IF (XMA.EQ.XM .AND. XKA.EQ.XK) GO TO 120 J = J + 2 IF (J .GE. 2*NSUB) CALL MESAGE (-7,0,NAME) GO TO 100 C C FOUND IN AJJL C 120 CONTINUE AJJCOL = (J/2)*NCOL + 1 C C SEARCH FOR COLUMN NUMBER IN QHH C QHHCOL = 0 IF (XQHHL .EQ. 1) GO TO 140 J = 0 130 CONTINUE XMA = Z(IQHH+J ) XKA = Z(IQHH+J+1) IF (XMA.EQ.XM .AND. XKA.EQ.XK) GO TO 150 J = J + 2 IF (J .GE. 2*NQHH) GO TO 140 GO TO 130 C C FOUND IN QHH C 150 QHHCOL = (J/2)*NOH + 1 C C WRITE ON INDEX C 140 CALL WRITE (INDEX,XM,4,1) IF (QHHCOL .EQ. 0) IANY = 0 I = I + 2 IF (I .GE. 2*IMAX) GO TO 200 GO TO 90 C C DONE WITH INDEX C 200 CALL CLOSE (INDEX,1) C C COPY OLD QHH ONTO QHHLO C IF (XQHHL .EQ. 1) GO TO 300 IT1 = MCBQHH(5) IT2 = IT1 IT3 = IT1 INCR = 1 INCR1= 1 IF (MCBQHH(1) .LE. 0) GO TO 230 CALL GOPEN (QHH,IZ(IBUF1),0) CALL GOPEN (QHHLO,IZ(IBUF2),1) NCLQHH = MCBQHH(2) MCBQHH(2) = 0 MCBQHH(6) = 0 MCBQHH(7) = 0 MCBQHH(1) = QHHLO CALL CYCT2B (QHH,QHHLO,NCLQHH,IZ,MCBQHH) CALL CLOSE (QHH,1) CALL CLOSE (QHHLO,1) CALL WRTTRL (MCBQHH) C C COPY OLD QJH ONTO QJHLO C 230 CONTINUE C C COPY QJH ONTO QJHLO C IF (MCBQJH(1) .LE. 0) GO TO 250 CALL GOPEN (QJH,IZ(IBUF1),0) CALL GOPEN (QJHLO,IZ(IBUF2),1) NCLQJH = MCBQJH(2) MCBQJH(1) = QJHLO MCBQJH(2) = 0 MCBQJH(6) = 0 MCBQJH(7) = 0 CALL CYCT2B (QJH,QJHLO,NCLQJH,IZ,MCBQJH) CALL CLOSE (QJH,1) CALL CLOSE (QJHLO,1) CALL WRTTRL (MCBQJH) 250 CONTINUE C C PUT HEADERS ON NEW OUTPUT FILES C 300 CONTINUE IF (MCBQHH(1) .LE. 0) GO TO 350 FILE = QHH CALL OPEN (*900,QHH,IZ(IBUF1),1) CALL FNAME (QHH,MCBQHH) CALL WRITE (QHH,MCBQHH,2,0) CALL WRITE (QHH,NOH,1,0) CALL WRITE (QHH,IMAX,1,0) CALL WRITE (QHH,IZ(IAERO),2*IMAX,1) CALL CLOSE (QHH,3) MCBQHH(1) = QHH MCBQHH(2) = 0 MCBQHH(3) = NOH MCBQHH(4) = 2 MCBQHH(5) = 2 + IPREC MCBQHH(6) = 0 MCBQHH(7) = 0 350 CONTINUE IF (MCBQJH(1) .LE. 0) GO TO 360 FILE = QJH CALL OPEN (*900,QJH,IZ(IBUF1),1) CALL FNAME (QJH,MCBQJH) CALL WRITE (QJH,MCBQJH,2,0) CALL WRITE (QJH,NOH,1,0) CALL WRITE (QJH,IMAX,1,0) CALL WRITE (QJH,IZ(IAERO),2*IMAX,1) CALL CLOSE (QJH,3) MCBQJH(1) = QJH MCBQJH(2) = 0 MCBQJH(3) = NCOL MCBQJH(4) = 2 MCBQJH(5) = 2 + IPREC MCBQJH(6) = 0 MCBQJH(7) = 0 360 CONTINUE IANY = 0 C C PUT HEADER ON QHJL C IF (IGUST .LE. 0) RETURN FILE = MCBRJH(1) CALL OPEN (*900,FILE,IZ(IBUF1),1) CALL FNAME (FILE,MCBRJH(2)) CALL WRITE (FILE,MCBRJH(2),2,0) CALL WRITE (FILE,NOH,1,0) CALL WRITE (FILE,IMAX,1,0) CALL WRITE (FILE,IZ(IAERO),2*IMAX,1) CALL CLOSE (FILE,3) CALL MAKMCB (MCBRJH,FILE,NCOL,2,2+IPREC) CALL WRTTRL (MCBRJH) RETURN C C ERROR MESSAGES C 900 IP1 = -1 901 CALL MESAGE (IP1,FILE,NAME) 910 IP1 = -2 GO TO 901 920 IP1 = -3 GO TO 901 980 IP1 = -8 GO TO 901 END ================================================ FILE: mis/ampb.f ================================================ SUBROUTINE AMPB(PHIDH,GTKA,D1JK,D2JK,D1JE,D2JE,USETA, 1 DJH1,DJH2,GKI,SCR1,SCR2,SCR3) C C THE PURPOSE OF THIS SUBROUTINE IS TO SOLVE FOR THE DJH MATRICES. C IT ALSO COMPUTES GKI FOR LATER USE. C THE STEPS ARE, C C 1. PHIDH GOES TO 1 1 1 C 1 PHIA 1 1 C 1 ----- 1 ---- 1 C 1 1 1 C 1 1 1 C C 2. GKI =GTKA$PHIA C C 3. DJI1=D1JK*GKI C 4. DJI2=D2JK*GKI C 5. C 6. DJH1= 1 DJI1 1 D1JE 1 C 1 1 1 C 7. DJH2= 1 DJI2 1 D2JE 1 C C C INTEGER PHIDH,GTKA,D1JK,D2JK,D1JE,D2JE,USETA,DJH1,DJH2,GKI, 1 SCR1,SCR2,SCR3,PHIA,DJI1,DJI2,MCB(7),UD,UA,UE C COMMON /BLANK/NOUE COMMON /PATX/LC,NS0,NS1,NS2,IUSET COMMON /BITPOS/UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE,UD 1 ,UPS,USA,UK,UPA COMMON/ZZZZZZ/Z(1) COMMON/SYSTEM/SYSBUF,NOUT,SKIP(52),IPREC COMMON /AMPCOM/ NCOLJ C C----------------------------------------------------------------------- C MCB(1)=PHIDH CALL RDTRL(MCB) NOH=MCB(2) C C DETERMINE IF PHIDH MUST BE MODIFIED C IF(NOUE.EQ.-1)GO TO 20 C C BUILD PARTITIONING VECTORS C IUSET = USETA LC=KORSZ(Z) CALL CALCV(SCR1,UD,UA,UE,Z) CALL AMPB1(SCR2,NOH-NOUE,NOUE) C C PERFORM PARTITION C RP CP CALL AMPB2(PHIDH,SCR3,0,0,0,SCR2,SCR1,0,0) PHIA=SCR3 GO TO 30 C C NO MOD REQUIRED C 20 PHIA=PHIDH 30 CONTINUE C C COMPUTE GKI C CALL SSG2B(GTKA,PHIA,0,GKI,1,IPREC,1,SCR1) C C START COMPUTATION OF DJH MATRICES C DJI1=SCR3 DJI2=SCR3 IF(NOUE.GT.0)GO TO 40 DJI1=DJH1 DJI2=DJH2 40 CONTINUE CALL SSG2B(D1JK,GKI,0,DJI1,1,IPREC,1,SCR1) IF(NOUE.EQ.-1)GO TO 50 CALL MERGED(DJI1,D1JE,0,0,DJH1,SCR2,0,0,NCOLJ) 50 CONTINUE CALL SSG2B(D2JK,GKI,0,DJI2,1,IPREC,1,SCR1) IF(NOUE.EQ.-1)GO TO 60 CALL MERGED(DJI2,D2JE,0,0,DJH2,SCR2,0,0,NCOLJ) 60 CONTINUE RETURN END ================================================ FILE: mis/ampb1.f ================================================ SUBROUTINE AMPB1(IPVCT,NOH,NOE) C C THIS ROUTINE BUILDS A PARTITIONING VECTOR WHICH WILL APPEND NOE C TERM(OR COLUMNS) C INTEGER SYSBUF,MCB(7) C COMMON /ZBLPKX/A(4),II COMMON /SYSTEM/SYSBUF COMMON /ZZZZZZ/ Z(1) C C----------------------------------------------------------------------- C IBUF1=KORSZ(Z)-SYSBUF+1 CALL GOPEN(IPVCT,Z(IBUF1),1) CALL MAKMCB(MCB,IPVCT,NOH+NOE,2,1) CALL BLDPK(1,1,IPVCT,0,0) II=NOH DO 10 I=1,NOE A(1)=1.0 II=II+1 CALL ZBLPKI 10 CONTINUE CALL BLDPKN(IPVCT,0,MCB) CALL CLOSE(IPVCT,1) CALL WRTTRL(MCB) RETURN END ================================================ FILE: mis/ampb2.f ================================================ SUBROUTINE AMPB2(A,A11,A12,A21,A22,RP,CP,N1,N2) C C THIS SUBROUTINE IS A GENERAL DRIVER FOR PARTN C INTEGER A11,A12,A21,A22,A,RP,CP,RULE,MCB(20),MCB1(20) C COMMON /PARMEG/MCBA(7),MCBA11(7),MCBA21(7),MCBA12(7),MCBA22(7), 1 NX,RULE COMMON /ZZZZZZ/ IZ(1) C C----------------------------------------------------------------------- C MCB(1)=RP CALL RDTRL(MCB) MCB1(1)=CP CALL RDTRL(MCB1) NX=KORSZ(IZ) RULE=0 MCBA11(1)=A11 IF(A11.EQ.0)GO TO 10 CALL RDTRL(MCBA11) IF(MCBA11(1).LE.0)MCBA11(1)=0 10 CONTINUE MCBA21(1)=A21 IF(A21.LE.0)GO TO 20 CALL RDTRL(MCBA21) IF(MCBA21(1).LE.0)MCBA21(1)=0 20 CONTINUE MCBA12(1)=A12 IF(A12.EQ.0)GO TO 30 CALL RDTRL(MCBA12) IF(MCBA12(1).LE.0)MCBA12(1)=0 30 CONTINUE MCBA22(1)=A22 IF(A22.EQ.0)GO TO 40 CALL RDTRL(MCBA22) IF(MCBA22(1).LE.0)MCBA22(1)=0 40 CONTINUE MCBA(1)=A CALL RDTRL(MCBA) MCBA11(2) = MCBA(2) - MCB(6) MCBA11(3) = MCBA(3) -MCB1(6) MCBA12(2) = MCBA(2) -MCBA11(2) MCBA12(3) = MCBA11(3) MCBA21(2) = MCBA11(2) MCBA21(3) = MCBA(3) -MCBA11(3) MCBA22(2) = MCB(6) MCBA22(3) = MCB1(6) MCBA11(4)=2 MCBA21(4)=2 MCBA12(4)=2 MCBA22(4)=2 MCBA11(5)=MCBA(5) MCBA21(5)=MCBA(5) MCBA12(5)=MCBA(5) MCBA22(5)=MCBA(5) CALL PARTN(MCB,MCB1,IZ) IF(MCBA11(1).GT.0)CALL WRTTRL(MCBA11) IF(MCBA21(1).GT.0)CALL WRTTRL(MCBA21) IF(MCBA12(1).GT.0)CALL WRTTRL(MCBA12) IF(MCBA22(1).GT.0)CALL WRTTRL(MCBA22) RETURN END ================================================ FILE: mis/ampc.f ================================================ SUBROUTINE AMPC (DJH1,DJH2,DJH,AJJL,QJH,QJHO,QJHUA,SCR1,SCR2,SCR3, 1 SCR4,SCR5,SCR6) C C THE PURPOSE OF THIS ROUTINE IS TO COMPUTE (OR RETRIEVE QJH) C C IF QJH MUST BE COMPUTED C C 1. FORM DJH FOR THIS K (IF IDJH.EQ.0) C DJH = DJH1 + I*K*DJH2 C 2. FOR EACH CONSTANT THEORY C A. RETRIEVE AJJ PORTION = AJJTH C B. PERFORM THEORY FOR QJH C 1) DOUBLET LATTICE C A) DECOMPOSE AJJTH C B) FIND PROPER DJH PORTION DJHTH C C) FBS FOR QJHTH C D) ADD TO BOTTOM OF QJHUA(CYCLE) C 6) COMPRESSOR BLADES (IONCE = 1). C A) COMPUTE QJHTH = (AJJ)*DJH. C B) QJHUA = QJHTH SINCE ONLY ONE BLADE AND GROUP (NGP = 1) C 7) SWEPT TURBOPROPS (IONCE = 1). C A) COMPUTE QJHTH = (AJJ)*DJH. C B) QJHUA = QJHTH SINCE ONLY ONE BLADE AND GROUP (NGP = 1) C INTEGER DJH1,DJH2,DJH,AJJL,QJH,QJHO,QJHUA,AJJCOL,QHHCOL, 1 SYSBUF,FILE,NAME(2),IBLOCK(11),MCB(7),SCR1,SCR2, 2 SCR3,SCR4,SCR5,SCR6,QJHTH REAL BLOCK(11) COMMON /AMPCOM/ NCOLJ,NSUB,XM,XK,AJJCOL,QHHCOL,NGP,NGPD(2,30), 1 MCBQHH(7),MCBQJH(7),NOH,IDJH COMMON /SYSTEM/ SYSBUF,NOUT,SKP(52),IPREC COMMON /ZZZZZZ/ IZ(1) COMMON /UNPAKX/ ITC,II,JJ,INCR COMMON /PACKX / ITC1,ITC2,II1,JJ1,INCR1 COMMON /CDCMPX/ DUM32(32),IB EQUIVALENCE (IBLOCK(1),BLOCK(1)) DATA NAME / 4HAMPC,4H / DATA IBLOCK(1),IBLOCK(7),BLOCK(2),BLOCK(3),BLOCK(8) / 1 3, 3, 1.0, 0., 0. / C C INITIALIZE C IBUF1 = KORSZ(IZ) - SYSBUF + 1 IBUF2 = IBUF1 - SYSBUF ITC = MCBQHH(5) INCR = 1 ITC1 = ITC ITC2 = ITC1 INCR1 = INCR II1 = 1 C C IS QJH ON SAVE FILE C IF (QHHCOL .EQ. 0) GO TO 100 C C COPY QJH FROM OLD FILE TO QJH C IF (MCBQJH(1) .LE. 0) GO TO 10 CALL GOPEN (QJHO,IZ(IBUF1),0) CALL GOPEN (QJH, IZ(IBUF2),3) K = QHHCOL - 1 IF (K .EQ. 0) GO TO 20 FILE = QJHO DO 30 I = 1,K CALL FWDREC (*910,QJHO) 30 CONTINUE 20 CONTINUE CALL CYCT2B (QJHO,QJH,NOH,IZ,MCBQJH) CALL CLOSE (QJHO,1) CALL CLOSE (QJH,3) 10 CONTINUE RETURN C C COMPUTE QJH C 100 CONTINUE C C HAS DJH ALREADY BEEN COMPUTED C IF (IDJH .NE. 0) GO TO 110 BLOCK(9) = XK CALL SSG2C (DJH1,DJH2,DJH,1,BLOCK) C C POSITION AJJL C 110 CALL GOPEN (AJJL,IZ(IBUF1),0) K = AJJCOL - 1 IF (K .EQ. 0) GO TO 120 FILE = AJJL DO 130 I = 1,K CALL FWDREC (*910,AJJL) 130 CONTINUE 120 CONTINUE CALL CLOSE (AJJL,2) C C SET UP TO LOOP ON CONSTANT THEORY C NGPS = 1 NTH = NGPD(1,NGPS) NCOLTH = 0 135 NCLOLD = NCOLTH + 1 140 IF (NGPS .GT. NGP) GO TO 150 IF (NGPD(1,NGPS) .NE. NTH) GO TO 150 NCOLTH = NCOLTH + NGPD(2,NGPS) NGPS = NGPS + 1 GO TO 140 C C BRANCH ON THEORY C 150 CONTINUE IONCE = 0 IF (NCLOLD.EQ.1 .AND. NGPS.GT.NGP) IONCE = 1 C C COPY AJJL TO SCR1 C CALL GOPEN (AJJL,IZ(IBUF1),2) CALL GOPEN (SCR1,IZ(IBUF2),1) MCB(1) = AJJL CALL RDTRL (MCB) MCB(1) = SCR1 MCB(2) = 0 MCB(3) = NCOLTH MCB(6) = 0 MCB(7) = 0 II = NC LOLD JJ = NCOLTH II1 = 1 JJ1 = NCOLTH - NC LOLD + 1 ITC = MCB(5) ITC1 = ITC ITC2 = ITC INCR = 1 INCR1 = 1 CALL AMPC1 (AJJL,SCR1,NCOLTH,IZ,MCB) CALL CLOSE (AJJL,2) CALL CLOSE (SCR1,1) CALL WRTTRL (MCB) GO TO (1000,2000,3000,4000,5000,6000,7000), NTH C C DOUBLET LATTICE WITH SLENDER BODIES C 1000 CONTINUE 2000 CONTINUE C C TRANSPOSE MATRIX C CALL TRANP1 (SCR1,SCR4,4,SCR2,SCR3,SCR5,SCR6,0,0,0,0) C C DECOMPOSE MATRIX C IB = 0 CALL CFACTR (SCR4,SCR2,SCR3,SCR1,SCR5,SCR6,IOPT) C C MACH BOX C PISTON C C C COMPRESSOR BLADE AND SWEPT TURBOPROP THEORIES - C ONE BLADE ALLOWED, ONE GROUP, USE WHOLE AJJ AND DJH MATRICES. C 3000 CONTINUE 4000 CONTINUE 5000 CONTINUE 6000 CONTINUE 7000 CONTINUE C C COPY PROPER ROWS OF DJH TO SCR4 C IDJHA = DJH IF (IONCE .NE. 0) GO TO 1010 II = NC LOLD JJ = NCOLTH II1 = 1 JJ1 = NCOLTH-NC LOLD+1 MCB(1) = DJH CALL RDTRL (MCB) ITC = MCB(5) ITC1 = ITC ITC2 = ITC INCR = 1 INCR1 = 1 MCB(2) = 0 MCB(3) = JJ1 MCB(6) = 0 MCB(7) = 0 MCB(1) = SCR4 CALL GOPEN (DJH,IZ(IBUF1),0) CALL GOPEN (SCR4,IZ(IBUF2),1) CALL AMPC1 (DJH,SCR4,NOH,IZ,MCB) CALL CLOSE (DJH,1) CALL CLOSE (SCR4,1) CALL WRTTRL (MCB) IDJHA = SCR4 1010 CONTINUE QJHTH = SCR5 IF (IONCE .NE. 0) QJHTH = QJHUA GO TO (1001,2001,3001,4001,5001,6001,7001), NTH 1001 CONTINUE 2001 CONTINUE C C SOLVE FOR THIS PORTION OF QJH C CALL CFBSOR (SCR2,SCR3,IDJHA,QJHTH,IOPT) 1020 CONTINUE C C COPY ACCUMULATIVELY ONTO QJHUA C IF (IONCE .NE. 0) GO TO 8000 CALL AMPC2 (SCR5,QJHUA,SCR1) IF (NGPS .GT. NGP) GO TO 8000 GO TO 135 C C COMPUTE THIS PORTION OF QJH = AJJ*DJH C 3001 CONTINUE 4001 CONTINUE 5001 CONTINUE 6001 CONTINUE 7001 CONTINUE CALL SSG2B (SCR1,IDJHA,0,QJHTH,0,IPREC,1,SCR6) GO TO 1020 C C ALL GROUPS / THEORIES COMPLETE C 8000 CONTINUE GO TO 10 C C ERROR MESSAGES C 901 CALL MESAGE (IP1,FILE,NAME) 910 IP1 = -2 GO TO 901 END ================================================ FILE: mis/ampc1.f ================================================ SUBROUTINE AMPC1(INPUT,OUTPUT,NCOL,Z,MCB) C C THE PURPOSE OF THIS ROUTINE IS TO COPY NCOL COLUMNS FROM INPUT C TO OUTPUT VIA UNPACK AND PACK. C C THE PACK COMMON BLOCKS HAVE BEEN INITIALIZED OUTSIDE THE ROUTINE C INTEGER OUTPUT,MCB(7),Z(1) C COMMON /PACKX/IT1,IT2,II,NN,INCR C C----------------------------------------------------------------------- C DO 10 I=1,NCOL CALL UNPACK(*20,INPUT,Z) CALL PACK(Z,OUTPUT,MCB) GO TO 10 C C NULL COLUMN C 20 CALL BLDPK(IT1,IT2,OUTPUT,0,0) CALL BLDPKN(OUTPUT,0,MCB) 10 CONTINUE RETURN END ================================================ FILE: mis/ampc2.f ================================================ SUBROUTINE AMPC2 (INP,OUTP,SCRF) C C THE PURPOSE OF THIS ROUTINE IS TO COPY SCR5 ONTO THE BOTTOM OF C OUTPUT C INTEGER OUTP,SCRF,SYSBUF,MCBI(7),MCBO(7) COMMON /PACKX / IT1,IT2,II,JJ,INCR COMMON /UNPAKX/ IT3,II1,JJ1,INCR1 COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ IZ(1) COMMON /TYPE / ISK(2),IWORD(4) C C MCBI(1) = INP CALL RDTRL (MCBI) MCBO(1) = OUTP CALL RDTRL (MCBO) C C IS THIS THE FIRST ENTRY C IF (MCBO(2) .NE. 0) GO TO 10 C C SWITCH SCRATCH FILES C CALL FILSWI (INP,OUTP) RETURN C C MUST DO COPY C 10 CALL FILSWI (OUTP,SCRF) IBUF1 = KORSZ(IZ) - SYSBUF + 1 IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF CALL GOPEN (INP,IZ(IBUF1),0) CALL GOPEN (SCRF,IZ(IBUF2),0) CALL GOPEN (OUTP,IZ(IBUF2),1) NCOL = MCBI(2) NROWO = MCBI(3) + MCBO(3) IT1 = MCBI(5) IT2 = IT1 IT3 = IT1 INCR = 1 INCR1 = 1 NTERM = NROWO*IWORD(IT1) II = 1 JJ = NROWO NROWIS= MCBO(3)*IWORD(IT1) + 1 II1 = 1 NRI = MCBI(3) NRO = MCBO(3) MCBO(2) = 0 MCBO(6) = 0 MCBO(7) = 0 MCBO(3) = NROWO DO 20 I = 1,NCOL DO 30 J = 1,NTERM IZ(J) = 0 30 CONTINUE JJ1 = NRO CALL UNPACK (*40,SCRF,IZ) 40 CONTINUE JJ1 = NRI CALL UNPACK (*50,INP,IZ(NROWIS)) 50 CALL PACK (IZ,OUTP,MCBO) 20 CONTINUE CALL CLOSE (SCRF,1) CALL CLOSE (INP,1) CALL CLOSE (OUTP,1) CALL WRTTRL (MCBO) RETURN END ================================================ FILE: mis/ampd.f ================================================ SUBROUTINE AMPD (QJHUA,QHHO,SKJ,GKI,QHH,SCR1,SCR2,SCR3,SCR4) C C THE PURPOSE OF THIS ROUTINE IS TO COMPUTE(OR RETRIEVE) QHH C C QHH EITHER EXISTS ON QHHO (AS COLUMN QCOL) OR MUST BE COMPUTED C AS FOLLOWS C C 1. QKH = SKJ*QJH C 2. QIH = GKI(T)*QKH C 3. QHH = 1 QIH 1 C 1-----1 C 1 0 1 C 1 1 C INTEGER QJHUA,QHHO,SKJ,GKI,QHH,AJJCOL,QHHCOL,SYSBUF,FILE, 1 SCR1,SCR2,SCR3,NAME(2),MCB(7),SCR4,QKH COMMON /AMPCOM/ NCOL,NSUB,XM,XK,AJJCOL,QHHCOL,NGP,NGPD(2,30), 1 MCBQHH(7),MCBQJH(7),NOH COMMON /ZZZZZZ/ IZ(1) COMMON /SYSTEM/ SYSBUF,NOUT,SKP(52),IPREC COMMON /UNPAKX/ ITC,II,JJ,INCR COMMON /BLANK / NOUE DATA NAME / 4HAMPD,4H / C IBUF1 = KORSZ(IZ) - SYSBUF + 1 IBUF2 = IBUF1 - SYSBUF INCR = 1 ITC = MCBQHH(5) C C DETERMINE IF QHH EXISTS ON QHHO C IF (QHHCOL .EQ. 0) GO TO 100 C C COPY FROM QHHO TO QHH C CALL GOPEN (QHH,IZ(IBUF1),3) CALL GOPEN (QHHO,IZ(IBUF2),0) K = QHHCOL - 1 IF (K .EQ. 0) GO TO 20 FILE = QHHO DO 10 I = 1,K CALL FWDREC (*910,QHHO) 10 CONTINUE 20 CONTINUE CALL CYCT2B (QHHO,QHH,NOH,IZ,MCBQHH) CALL CLOSE (QHHO,1) CALL CLOSE (QHH,3) RETURN C C QHH MUST BE COMPUTED C 100 CONTINUE C C COPY SKJ TO SCR4 FOR PROPER M-K PAIR C CALL GOPEN (SKJ,IZ(IBUF1),0) CALL GOPEN (SCR4,IZ(IBUF2),1) K = AJJCOL - 1 CALL SKPREC (SKJ,K) MCB(1) = QJHUA CALL RDTRL (MCB) NCOLJ = MCB(3) MCB(1) = SKJ CALL RDTRL (MCB) MCBQJH(3) = MCB(3) MCB(1) = SCR4 MCB(2) = 0 MCB(6) = 0 MCB(7) = 0 ITC = MCB(5) CALL CYCT2B (SKJ,SCR4,NCOLJ,IZ,MCB) CALL CLOSE (SKJ,1) CALL CLOSE (SCR4,1) CALL WRTTRL (MCB) CALL SSG2B (SCR4,QJHUA,0,SCR1,0,IPREC,1,SCR2) C C COPY SCR1(QKH) TO OUTPUT C QKH = MCBQJH(1) IF (QKH .LE. 0) GO TO 200 ITC = MCBQJH(5) INCR = 1 CALL GOPEN (SCR1,IZ(IBUF1),0) CALL GOPEN (QKH,IZ(IBUF2),3) CALL CYCT2B (SCR1,QKH,NOH,IZ,MCBQJH) CALL CLOSE (QKH,3) CALL CLOSE (SCR1,1) 200 CONTINUE CALL SSG2B (GKI,SCR1,0,SCR3,1,IPREC,1,SCR2) C C COPY TO QHH C CALL GOPEN (QHH,IZ(IBUF1),3) CALL GOPEN (SCR3,IZ(IBUF2),0) ITC = MCBQHH(5) INCR = 1 CALL CYCT2B (SCR3,QHH,NOH,IZ,MCBQHH) CALL CLOSE (SCR3,1) CALL CLOSE (QHH,3) RETURN C C ERRORS C 910 IP1 = -2 CALL MESAGE (IP1,FILE,NAME) GO TO 910 END ================================================ FILE: mis/ampe.f ================================================ SUBROUTINE AMPE (PHIDH,GTKA,GKH,SCR1,SCR2,USETA) C C THE PURPOSE OF THIS ROUTINE IS TO COMPUTE GKH C INTEGER PHIDH,GTKA,GKH,SCR1,SCR2,USETA,PHIAH COMMON /BLANK / NOUE COMMON /PATX / LC,NS0,NS1,NS2,IUSET COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE, 1 UD,UPS,USA,UK,UPA COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,NOUT,SKIP(52),IPREC COMMON /PATX / XXX,NROW1,NROW2 C PHIAH = PHIDH C C DETERMINE IF PHIDH MUST BE MODIFIED C IF (NOUE .EQ. -1) GO TO 20 C C BUILD PARTITIONING VECTORS C IUSET = USETA LC = KORSZ(Z) CALL CALCV (SCR1,UD,UA,UE,Z) C C PERFORM PARTITION C NROW1 = NS0 NROW2 = NS1 PHIAH = SCR2 CALL SSG2A (PHIDH,PHIAH,0,SCR1) C C COMPUTE GKH C 20 CONTINUE CALL SSG2B (GTKA,PHIAH,0,GKH,1,IPREC,1,SCR1) RETURN END ================================================ FILE: mis/ampf.f ================================================ SUBROUTINE AMPF (SKJ,GKH,AJJL,QHJL,PLAN,IMAX,SCR1,SCR2,SCR3,SCR4, 1 SCR5,SCR6,SCR7,SCR8,SCR9,SCR10) C C THE PURPOSE OF THIS ROUTINE IS TO SOLVE FOR QHJL C C THE STEPS ARE AS FOLLOWS C C I. FOR EACH M-K PAIR C C A. FIND SKJ FROM SKJ LIST C T C B. COMPUTE S(K) = SKJ(K) *GKH C C C. FOR EACH GROUP C G C 1. BREAK S(K) INTO GROUPS = S(K) C C 2. SOLVE FOR RJH C -1 G C D.L. AND D.L. WITH BODIES RGH= AJJ *S(K) C T G C OTHERS RGH= AJJ *S(K) C C 3. MERGE RESULTS C C 1 G11 C 1 RJH 1 C 1------1 = RJH(K) C 1 G21 C 1 RJH 1 C 1 1 C C C D. APPEND RJH ONTO GROWING QHJL C 1 1 1 C 1RJH(K1)1RJH(K2)1 = QHJL C 1 1 1 C 1 1 1 C INTEGER SKJ,GKH,AJJL,QHJL,PLAN,MCB(7),SYSBUF,NAME(2), 1 AJJCOL,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8, 2 SCR9,SCR10,RJH COMMON /AMPCOM/ NCOLJ,NSUB,XM,XK,AJJCOL,QHHCOL,NGP,NGPD(2,30), 1 MCBQHH(7),MCBQJH(7),NOH,IDJH COMMON /SYSTEM/ SYSBUF,NOUT,SKP(52),IPREC COMMON /ZZZZZZ/ Z(1) COMMON /CDCMPX/ DUM32(32),IB COMMON /UNPAKX/ ITC,II,JJ,INCR COMMON /PACKX / ITC1,ITC2,II1,JJ1,INCR1 DATA NAME / 4HAMPF,1H / C C INITIALIZE C IBUF1 = KORSZ(Z) - SYSBUF + 1 IBUF2 = IBUF1 - SYSBUF IOP = 0 ITL = 0 DO 9000 ILOOP = 1,IMAX CALL KLOCK (ITS) CALL GOPEN (PLAN,Z(IBUF1),IOP) IOP = 2 CALL FREAD (PLAN,XM,4,1) CALL CLOSE (PLAN,2) C C FIND SKJ(K) IN SKJL C CALL GOPEN (SKJ,Z(IBUF1),0) CALL GOPEN (SCR1,Z(IBUF2),1) K = AJJCOL - 1 CALL SKPREC (SKJ,K) MCB(1) = SKJ CALL RDTRL (MCB) CALL MAKMCB (MCB,SCR1,MCB(3),MCB(4),MCB(5)) INCR = 1 ITC = MCB(5) CALL CYCT2B (SKJ,SCR1,NCOLJ,Z,MCB) CALL CLOSE (SKJ,1) CALL CLOSE (SCR1,1) CALL WRTTRL (MCB) C T C MULTIPLY SKJ(K) *GKH ONTO SCR2 C CALL SSG2B (SCR1,GKH,0,SCR2,1,IPREC,1,SCR3) C C POSITION AJJL C CALL GOPEN (AJJL,Z(IBUF1),0) K = AJJCOL - 1 CALL SKPREC (AJJL,K) CALL CLOSE (AJJL,2) C C SET UP TO LOOP ON CONSTANT THEORY C NGPS = 1 NTH = NGPD(1,NGPS) NCOLTH = 0 135 NCLOLD = NCOLTH + 1 140 IF (NGPS .GT. NGP) GO TO 150 IF (NGPD(1,NGPS) .NE. NTH) GO TO 150 NCOLTH = NCOLTH + NGPD(2,NGPS) NGPS = NGPS + 1 GO TO 140 150 CONTINUE IONCE = 0 IF (NCLOLD.EQ.1 .AND. NGPS.GT.NGP) IONCE = 1 C G C COPY AJJL(K) TO SCR1 (AJJ(K) ) C CALL GOPEN (AJJL,Z(IBUF1),2) CALL GOPEN (SCR1,Z(IBUF2),1) MCB(1) = AJJL CALL RDTRL (MCB) CALL MAKMCB (MCB,SCR1,NCOLTH,MCB(4),MCB(5)) II = NCLOLD JJ = NCOLTH II1 = 1 JJ1 = NCOLTH - NCLOLD + 1 ITC = MCB(5) ITC1 = ITC ITC2 = ITC INCR = 1 INCR1= 1 CALL AMPC1 (AJJL,SCR1,NCOLTH,Z,MCB) CALL CLOSE (AJJL,2) CALL CLOSE (SCR1,1) CALL WRTTRL (MCB) C G C COPY SKJ(K) ONTO SCR3 (SKJ(K) ) C CALL GOPEN (SCR2,Z(IBUF1),0) CALL GOPEN (SCR3,Z(IBUF2),1) MCB(1) = SCR2 CALL RDTRL (MCB) CALL MAKMCB (MCB,SCR3,NCOLTH,MCB(4),MCB(5)) ITC = MCB(5) ITC1 = ITC ITC2 = ITC CALL AMPC1 (SCR2,SCR3,NOH,Z,MCB) CALL CLOSE (SCR2,1) CALL CLOSE (SCR3,1) CALL WRTTRL (MCB) RJH = SCR10 IF (IONCE .NE. 0) RJH = SCR9 C C BRANCH ON THEORY C GO TO (1000,2000,3000,4000,5000), NTH C C DOUBLET LATTICE--D.L. WITH SLENDER BODIES C 1000 CONTINUE 2000 CONTINUE C G C DECOMPOSE AJJ(K) C IB = 0 CALL CFACTR (SCR1,SCR4,SCR5,SCR6,SCR7,SCR8,IOPT) CALL CFBSOR (SCR4,SCR5,SCR3,RJH,IOPT) GO TO 1020 C C OTHER THEORIES C 3000 CONTINUE 4000 CONTINUE 5000 CONTINUE CALL SSG2B (SCR1,SCR3,0,RJH,1,IPREC,1,SCR4) C C COPY ACCUMULATIVELY ONTO RJH(K) C 1020 IF (IONCE .NE. 0) GO TO 8000 CALL AMPC2 (RJH,SCR9,SCR1) IF (NGPS .GT. NGP) GO TO 8000 GO TO 135 C C ALL GROUPS /THEORIES COMPLETE C 8000 CONTINUE C C COPY ONTO QHJL C CALL GOPEN (SCR9,Z(IBUF1),0) CALL GOPEN (QHJL,Z(IBUF2),3) MCB(1) = QHJL CALL RDTRL (MCB(1)) ITC = MCB(5) INCR = 1 CALL CYCT2B (SCR9,QHJL,NOH,Z,MCB) CALL CLOSE (QHJL,2) CALL CLOSE (SCR9,1) CALL WRTTRL (MCB) C C END LOOP ON M-K PAIRS C IF (ILOOP .EQ. IMAX) GO TO 9000 C C CHECK TIME C CALL KLOCK (ITF) CALL TMTOGO (ITMTO) ITL= MAX0(ITF-ITS,1,ITL) IF (1.1*ITL .GE. ITMTO) GO TO 9010 9000 CONTINUE RETURN C C INSUFFICIENT TIME TO COMPLETE C 9010 CALL MESAGE (45,IMAX-ILOOP,NAME) RETURN END ================================================ FILE: mis/angtrs.f ================================================ SUBROUTINE ANGTRS (THETA,K,TRANS) C & ENTRY ANGTRD C C ROUTINE TO CALCULATE AND OUTPUT THE INPLANE ROTATION C TRANSFORMATION IN 3-D USING THE ANGLE OF ROTATION. C C IF K=1, TRANS OR TRAND WILL BE TRANSPOSED AND THEN RETURNED. C C SINGLE PRECISION - C REAL TRANS(9) DOUBLE PRECISION TRAND(9), THETAD C DO 10 I = 1,9 10 TRANS(I) = 0.0 C TRANS(1) = COS(THETA) TRANS(2) = SIN(THETA) TRANS(4) = -TRANS(2) TRANS(5) = TRANS(1) TRANS(9) = 1.0 C IF (K .NE. 1) GO TO 30 TRANS(2) = -TRANS(2) TRANS(4) = -TRANS(4) RETURN C ENTRY ANGTRD (THETAD,K,TRAND) C ============================= C C DOUBLE PRECISION - C DO 20 I = 1,9 20 TRAND(I) = 0.0D0 C TRAND(1) = DCOS(THETAD) TRAND(2) = DSIN(THETAD) TRAND(4) = -TRAND(2) TRAND(5) = TRAND(1) TRAND(9) = 1.0D0 C IF (K .NE. 1) GO TO 30 TRAND(2) = -TRAND(2) TRAND(4) = -TRAND(4) 30 RETURN END ================================================ FILE: mis/anisop.f ================================================ SUBROUTINE ANISOP C C COMPUTES DIRECTION COSINES FOR RECTANGULAR COORD. SYSTEMS C (W.R.T. BASIC COORD. SYSTEM) DESCRIBING ORIENTATION OF ANIS. C MATERIAL FOR ISOPARAMETRIC SOLIDS C C ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ C EQUIV MPTA,MPT/ISOP $ C ISOP=-1 MEANS SUCH MATERIALS EXIST C INTEGER GEOM1,EPT,BGPDT,FILE,BUF1,BUF2,EQEXIN DIMENSION IZ(1),NAM(2),IC1(2),IC2(2),IPI(2),IMAT6(2), 1 IDUM(31),A(3),B(3),C(3),XP(3),YP(3),ZP(3), 2 STORE(9),XD(9),ITRL(7),MAT1(2) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / ISOP COMMON /SYSTEM/ IBUF,NOUT COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)) DATA GEOM1 , EPT,BGPDT,EQEXIN,MPT,MPTA / 1 101 , 102,103 ,104 ,105,201 / DATA IPI / 7002,70/ ,IC1 / 1801,18 /, IC2 / 2101,21 /, 1 IMAT6 / 2503,25/ ,MAT1/ 103, 1 / DATA NAM / 4HANIS, 4HOP / C ISOP = 1 LCORE = KORSZ(Z) BUF1 = LCORE - IBUF - 1 BUF2 = BUF1 - IBUF LCORE = BUF2 - 1 IF (LCORE .LE. 0) GO TO 1008 C C GET LIST OF MAT1 AND MAT6 ID-S C NMAT1 = 0 NMAT6 = 0 I = 0 CWKBI SPR93033 5/94 FILE = MPT CALL PRELOC (*1001,Z(BUF1),MPT) CALL LOCATE (*2,Z(BUF1),MAT1,IDX) CWKBD SPR93022 5/94 FILE = MPT 1 CALL READ (*1002,*2,MPT,IDUM,12,0,M) NMAT1 = NMAT1 + 1 I = I + 1 IF (I .GT. LCORE) GO TO 1008 IZ(I) = IDUM(1) GO TO 1 C C DONE WITH MAT1 C 2 CALL LOCATE (*4,Z(BUF1),IMAT6,IDX) 3 CALL READ (*1002,*4,MPT,IDUM,31,0,M) NMAT6 = NMAT6 + 1 I = I + 1 IF (I .GT. LCORE) GO TO 1008 IZ(I) = IDUM(1) GO TO 3 4 CALL CLOSE (MPT,1) C C LOCATE PIHEX CARDS ON EPT AND FORM A LIST OF MATERIAL COORD. C SYSTEM ID C CWKBI SPR93033 5/94 FILE = EPT CALL PRELOC (*310,Z(BUF1),EPT) CALL LOCATE (*310,Z(BUF1),IPI,IDX) CWKBD SPR93033 5/94 FILE = EPT 10 CALL READ (*1002,*40,EPT,IDUM,7,0,M) C ICID = IDUM(3) MID = IDUM(2) C C IF CID = 0, MID MUST BE MAT1 C IF CID IS NOT 0, MID MUST BE MAT6 C IF (ICID .GT. 0) GO TO 11 IF (NMAT1 .EQ. 0) GO TO 14 II = 1 NN = NMAT1 GO TO 12 11 IF (NMAT6 .EQ. 0) GO TO 14 II = NMAT1 + 1 NN = NMAT1 + NMAT6 12 DO 13 III = II,NN IF (MID .EQ. IZ(III)) GO TO 1141 13 CONTINUE 14 WRITE (NOUT,1140) UFM,MID 1140 FORMAT (A23,', MATERIAL',I8,', SPECIFIED ON A PIHEX CARD, DOES ', 1 'NOT REFERENCE THE PROPER MATERIAL TYPE', /5X, 2 'CID = 0 MEANS MAT1, CID NOT 0 MEANS MAT6') GO TO 115 1141 CONTINUE C C STORE ALL CID,MID PAIRS WHERE CID IS NOT 0 C IF (ICID .EQ. 0) GO TO 10 I = I + 1 IZ(I) = ICID I = I + 1 IZ(I) = MID GO TO 10 C C LIST IS MADE. MOVE IT UP TO IZ(1) C 40 CALL CLOSE (EPT,1) NCID = I - NMAT1 - NMAT6 IF (NCID .EQ. 0) RETURN C DO 41 II = 1,NCID JJ = NMAT1 + NMAT6 + II IZ(II) = IZ(JJ) 41 CONTINUE C C NOW MAKE A UNIQUE LIST OF CID-S C IJK = NCID + 1 NUM = 1 IZ(IJK) = IZ(1) IF (NCID .EQ. 2) GO TO 44 DO 43 II = 3,NCID,2 ICID = IZ(II) DO 42 JJ = 1,NUM NCJJ = NCID + JJ IF (ICID .EQ. IZ(NCJJ)) GO TO 43 42 CONTINUE C C UNIQUE - LIST IT C IJK = IJK + 1 NUM = NUM + 1 IF (IJK .GT. LCORE) GO TO 1008 IZ(IJK) = ICID 43 CONTINUE C C UNIQUE LIST IS MADE- CHECK AGAINST CORD1R AND CORD2R ID-S C 44 ICORD = NCID + NUM + 1 C NCORD1 = 0 NCORD2 = 0 FILE = GEOM1 CALL PRELOC (*1001,Z(BUF1),GEOM1) CALL LOCATE (*70,Z(BUF1),IC1,IDX) 45 IF (ICORD+12 .GT. LCORE) GO TO 1008 CALL READ (*1002,*70,GEOM1,Z(ICORD),6,0,M) C C COMPARE AGAINST CIDS ON PIHEX-S C DO 50 JJ = 1,NUM J = NCID + JJ IF (IZ(ICORD) .EQ. IZ(J)) GO TO 60 50 CONTINUE GO TO 45 C C MATCH- RESERVE 13 WORDS SINCE THIS CORD1R WILL BE CONVERTED TO C CORD2R TYPE ENTRY LATER C 60 IZ(J) =-IZ(J) NCORD1 = NCORD1 + 1 ICORD = ICORD + 13 IF (NCORD1 .EQ. NUM) GO TO 120 GO TO 45 C C TRY CORD2R C 70 CALL LOCATE (*100,Z(BUF1),IC2,IDX) 75 IF (ICORD+12 .GT. LCORE) GO TO 1008 CALL READ (*1002,*100,GEOM1,Z(ICORD),13,0,M) C C COMPARE C DO 80 JJ = 1,NUM J = NCID + JJ IF (IZ(ICORD) .EQ. IZ(J)) GO TO 90 80 CONTINUE GO TO 75 C C MATCH ON CORD2R. CHECK FOR RID. MUST BE 0 C 90 IF (IZ(ICORD+3) .NE. 0) GO TO 330 C IZ(J) =-IZ(J) NCORD2 = NCORD2 + 1 ICORD = ICORD + 13 IF (NCORD1+NCORD2 .EQ. NUM) GO TO 120 GO TO 75 C C EXHAUSTED CORD2R-S, BUT NOT ALL CID-S ARE LOCATED C 100 DO 110 JJ = 1,NUM J = NCID + JJ IF (IZ(J) .LT. 0) GO TO 110 WRITE (NOUT,105) UFM,IZ(J) 105 FORMAT (A23,', CID',I8,' ON A PIHEX CARD IS NOT DEFINED TO BE ', 1 'CORD1R OR CORD2R') 110 CONTINUE 115 CALL MESAGE (-61,0,NAM) C C C MATCHING IS COMPLETE C 120 CALL CLOSE (GEOM1,1) C C CID,MATID PAIRS ARE IN Z(1)-Z(NCID). UNIQUE CID LIST IS IN C Z(NCID+1)-Z(NCID+NUM). THERE ARE NCORD1 CORD1R-S AND NCORD2 C CORD2R-S AT 13 WORDS EACH STARTING AT Z(NCID+NUM+1). C NEXT AVAILABLE OPEN CORE IS AT Z(ICORD) C DO 130 JJ = 1,NUM J = NCID + JJ 130 IZ(J) =-IZ(J) C C FOR CID-S ON CORD1R WE MUST OBTAIN THE BASIC COORDINATES OF EACH C POINT FROM BGPDT. FIRST, THE EXTERNAL POINT NUMBERS ON CORD1R MUST C BE CONVERTED TO INTERNAL. C LCORE = LCORE - (ICORD-1) IF (LCORE .LE. 0) GO TO 1008 MCORE = LCORE IBGPDT = ICORD IF (NCORD1 .EQ. 0) GO TO 200 CALL GOPEN (BGPDT,Z(BUF1),0) FILE = BGPDT CALL READ (*1002,*140,BGPDT,Z(IBGPDT),LCORE,0,M) GO TO 1008 140 CALL CLOSE (BGPDT,1) IEQ = IBGPDT + M LCORE = LCORE - M CALL GOPEN (EQEXIN,Z(BUF1),0) FILE = EQEXIN CALL READ (*1002,*150,EQEXIN,Z(IEQ),LCORE,0,M) GO TO 1008 150 CALL CLOSE (EQEXIN,1) LCORE = LCORE - M C C FOR EACH CORD1R ENTRY, FIND THE BASIC COORDINATES FOR EACH POINT C AND FORM A CORD2R ENTRY BACK WHERE THE CORD1R IS STORED C DO 190 J = 1,NCORD1 IPOINT = 13*(J-1) + NCID + NUM ICID = IZ(IPOINT+1) DO 170 K = 1,3 ISUBK = IPOINT + 3 + K K3 = 3*(K-1) IGRID = IZ(ISUBK) CALL BISLOC (*350,IGRID,Z(IEQ),2,M/2,JP) C C IM IS POINTER TO INTERNAL NUMBER. NOW FIND BGPDT ENTRY C IM = IEQ + JP IP = 4*(IZ(IM)-1) DO 160 L = 1,3 ISUBB = IBGPDT + IP + L ISUBL = K3 + L STORE(ISUBL) = Z(ISUBB) 160 CONTINUE 170 CONTINUE C C WE HAVE THE BASIC COORDINATES OF THE 3 POINTS. STORE IT BACK INTO C THE CORD1R ENTRY. THE ENTRY STARTS AT Z(IPOINT+1) C IP4 = IPOINT + 4 IZ(IP4) = 0 DO 180 L = 1,9 ISUBL = IP4 + L Z(ISUBL) = STORE(L) 180 CONTINUE C C GO BACK FOR ANOTHER CORD1R C 190 CONTINUE C C FOR EACH COORDINATE SYSTEM, COMPUTE THE 9 DIRECTION COSINES FROM C THE BASIC COORDINATE SYSTEM. Z(ICORD) IS THE NEXT AVAILABLE C LOCATION OF OPEN CORE SINCE WE NO LONGER NEED EQEXIN OR BGPDT C INFO. C 200 LCORE = MCORE CALL GOPEN (MPT,Z(BUF1),0) CALL GOPEN (MPTA,Z(BUF2),1) IF (ICORD+30 .GT. LCORE) GO TO 1008 C C COPY MPT TO MPTA UNTIL MAT6 IS REACHED C FILE = MPT 210 CALL READ (*280,*1003,MPT,Z(ICORD),3,0,M) CALL WRITE (MPTA,Z(ICORD),3,0) IF (IZ(ICORD) .EQ. IMAT6(1)) GO TO 240 220 CALL READ (*1002,*230,MPT,Z(ICORD),LCORE,0,M) CALL WRITE (MPTA,Z(ICORD),LCORE,0) GO TO 220 230 CALL WRITE (MPTA,Z(ICORD),M,1) GO TO 210 C C MAT6 RECORD FOUND. EACH MAT6 CONTAINS 31 WORDS. INCREASE THAT C TO 40 C 240 CALL READ (*1002,*270,MPT,Z(ICORD),31,0,M) C C SEE IF THIS ID MATCHES A CID ON PIHEX) IT NEED NOT C DO 250 J = 2,NCID,2 IF (IZ(J) .EQ. IZ(ICORD)) GO TO 258 250 CONTINUE C C NO MATCH. MAT6 NOT REFERENCED BY PIHEX. COPY IT TO MAT6 AND FILL C IN ALL 3 DIRECTION COSINES. THIS MAT6 IS NOT REFERENCED BY PIHEX C DO 255 K = 1,9 255 XD(K) = 0. GO TO 265 C C MATCH. NOW FIND IT IN CORD1R,CORD2R LIST C 258 ICID = IZ(J-1) DO 259 II = 1,NUM IPOINT = NCID + NUM + 13*(II-1) IF (ICID .EQ. IZ(IPOINT+1)) GO TO 260 259 CONTINUE C C LOGIC ERROR C GO TO 370 C 260 IZ(IPOINT+1) = -IZ(IPOINT+1) A(1) = Z(IPOINT+ 5) A(2) = Z(IPOINT+ 6) A(3) = Z(IPOINT+ 7) B(1) = Z(IPOINT+ 8) B(2) = Z(IPOINT+ 9) B(3) = Z(IPOINT+10) C(1) = Z(IPOINT+11) C(2) = Z(IPOINT+12) C(3) = Z(IPOINT+13) C C ZP AXIS IS B-A. YP IS ZP X (C-A). XP IS YP X ZP C ZP(1) = B(1) - A(1) ZP(2) = B(2) - A(2) ZP(3) = B(3) - A(3) STORE(1) = C(1) - A(1) STORE(2) = C(2) - A(2) STORE(3) = C(3) - A(3) YP(1) = ZP(2)*STORE(3) - ZP(3)*STORE(2) YP(2) = ZP(3)*STORE(1) - ZP(1)*STORE(3) YP(3) = ZP(1)*STORE(2) - ZP(2)*STORE(1) XP(1) = YP(2)*ZP(3) - YP(3)*ZP(2) XP(2) = YP(3)*ZP(1) - YP(1)*ZP(3) XP(3) = YP(1)*ZP(2) - YP(2)*ZP(1) C C NOW COMPUTE DIRECTION COSINES BETWEEN XP,YP, ZP AND BASIC X,Y,Z C X=(1,0,0),Y=(0,1,0),Z=(0,0,1) C COS(THETA)=(DP.D)/(LENGTH OF DP)*(LENGTH OF D) WHERE DP=XP,YP,OR C ZP AND D=X,Y,OR Z. LENGTH OF D=1 C DL = SQRT(XP(1)**2 + XP(2)**2 + XP(3)**2) XD(1) = XP(1)/DL XD(2) = XP(2)/DL XD(3) = XP(3)/DL DL = SQRT(YP(1)**2 + YP(2)**2 + YP(3)**2) XD(4) = YP(1)/DL XD(5) = YP(2)/DL XD(6) = YP(3)/DL DL = SQRT(ZP(1)**2 + ZP(2)**2 + ZP(3)**2) XD(7) = ZP(1)/DL XD(8) = ZP(2)/DL XD(9) = ZP(3)/DL C C WRITE OUT NEW MAT6 RECORD WITH DIRECTION COSINES APPENDED C 265 CALL WRITE (MPTA,Z(ICORD),31,0) CALL WRITE (MPTA,XD,9,0) C C GET ANOTHER MAT6 C GO TO 240 C C MAT6 RECORD FINISHED. WRITE EOR, COPY REMAINDER OF MPT, AND CHECK C TO SEE THAT ALL PIHEX CID-S HAVE BEEN ACCOUNTED FOR. C 270 CALL WRITE (MPTA,0,0,1) GO TO 210 C C MPT EXHAUSTED C 280 CALL CLOSE (MPT,1) CALL CLOSE (MPTA,1) ITRL(1) = MPT CALL RDTRL (ITRL) ITRL(1) = MPTA CALL WRTTRL (ITRL) ISOP = -1 285 RETURN C CWKBDB 5/94 SPR 93033 C 310 WRITE (NOUT,320) UWM C 320 FORMAT (A25,', EITHER EPT IS PURGED OR NO PIHEX CARDS FOUND ON ', C 1 'EPT IN ANISOP') CWKBDE 5/94 SPR 93033 CWKBI SPR 93033 5/94 310 CALL CLOSE ( EPT, 1 ) GO TO 285 330 WRITE (NOUT,340) UFM,IZ(J) 340 FORMAT (A23,', CORD2R',I8,' DEFINES A PIHEX CID BUT HAS NONZERO', 1 ' RID') GO TO 115 350 WRITE (NOUT,360) UFM,IGRID 360 FORMAT (A23,', EXTERNAL GRID',I8,' CANNOT BE FOUND ON EQEXIN IN ', 1 'ANISOP') GO TO 115 370 WRITE (NOUT,380) UFM 380 FORMAT (A23,', NON-UNIQUE COORDINATE SYSTEMS ON PIHEX CARDS', /5X, 1 '(SEE USER MANUAL P.2.4-233(05/30/86))') GO TO 115 C CWKBDB SPR93033 5/94 C 1001 N = -1 C GO TO 1010 CWKBDE SPR93033 5/94 CWKBIB SPR93033 5/94 1001 CALL CLOSE ( MPT, 1 ) CALL CLOSE ( GEOM1, 1 ) GO TO 285 CWKBIE SPR93033 5/94 1002 N = -2 GO TO 1010 1003 N = -3 GO TO 1010 1008 FILE = 0 N = -8 1010 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/apd.f ================================================ SUBROUTINE APD C EXTERNAL ANDF,ORF LOGICAL LMKAER ,LSKIP,LSET,LSPLIN INTEGER IZ(1),FLAG,SILGP INTEGER EID,PID,CP,CIDBX,ACSID,SILB,SCR1,SCR2,SCR3,SCR4, 1 SCR5,ECTA,BGPA,GPLA,USETA,SILA,CSTMA,ACPT,BUF10, 2 BUF11,BUF12 INTEGER CAERO2(3),CAERO3(3),CAERO4(3),CAERO5(3) INTEGER PAERO2(3),PAERO3(3),PAERO4(3),PAERO5(3) INTEGER KSPL(3),ANDF,FILE INTEGER SPLIN3(3) INTEGER CAERO1(3),PAERO1(3),AERO(3),SPLIN 1(3),SPLIN 2(3), 1 SET1(3),SET2(3),MKAER 2(3),MKAER 1(3),FLUTT R(3), 2 AEFACT(3),FLFACT(3),BUF(7),MSG(7), 3 BUF1,BUF2,BUF3,BUF4,BUF5,BUF6,BUF7,BUF8,BUF9, 4 EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM, 5 EQAERO,SPLINE,AEROR,FLIST,GPLD,NAM(2), 6 AERX(3),SYMXZ,SYMXY,CORWDS,RDREW,CLSREW, 7 ORF,SYSBUF,WTREW,PSPA,NBCA(3) INTEGER CA2S,CA2E,CA3S,CA3E,CA4S,CA4E,CA5S,CA5E INTEGER PA2S,PA2E,PA3S,PA3E,PA4S,PA4E,PA5S,PA5E INTEGER MSG1(9),MSG2(5),MSG3(6),MSG4(10) COMMON /BLANK / NK,NJ,LUSETA,BOV COMMON /SYSTEM/ SYSBUF,NOT COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID, 1 X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM, 2 NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD, 3 SCR1,SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA, 4 SILA,CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN, 5 NCAM,NAEF1,NAEF2,NCA1,NCA2,CA2S,CA2E,CA3S,CA3E, 6 CA4S,CA4E,NPA1,NPA2,PA2S,PA2E,PA3S,PA3E,PA4S,PA4E, 7 CA5S,CA5E,PA5S,PA5E COMMON /TWO / ITWO(32) COMMON /BITPOS/ IBIT(64) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1), IZ(1)) EQUIVALENCE (AERX(1),SYMXZ),(AERX(2),SYMXY),(AERX(3),BREF) DATA RDREW , CLSREW,WTREW /0,1,1 / DATA MSG1 / 4HSETI,4H AND,4H/OR ,4HSPLI,4HNEI ,4HCARD,4HS RE, 1 4HQUIR,4HED / DATA MSG2 / 4HNO A,4HERO ,4HCARD,4H FOU,4HND / DATA MSG3 / 4HNO C,4HAERO,4H CA,4HARDS,4HFOUN,4HD / DATA MSG4 / 4HNEIT,4HHER ,4HMKAE,4HRO1 ,4HOR ,4HMKAE,4HRO2 , 1 4HCARD,4HS FO,4HUND / DATA CAERO2/ 4301,43, 0/ , CAERO3 /4401,44, 0 / DATA CAERO4/ 4501,45, 0/ , PAERO2 /4601,46, 0 / DATA PAERO3/ 4701,47, 0/ , PAERO4 /4801,48, 0 / DATA CAERO5/ 5001,50, 0/ , PAERO5 /5101,51, 0 / DATA SPLIN3/ 4901,49, 0/ DATA KSPL / 200 , 2, 0/ DATA CAERO1/ 3002,30,16 /, PAERO1 /3102,31,0 /, 1 AERO / 3202,32,0 /, SPLIN1 /3302,33,0 /, 2 SPLIN2/ 3402,34,0 /, SET1 /3502,35,0 /, 3 SET2 / 3602,36,0 /, MKAER2 /3702,37,0 /, 4 MKAER1/ 3802,38,0 /, FLUTTR /3902,39,0 /, 5 AEFACT/ 4002,40,0 /, FLFACT /4102,41,0 /, 6 NBCA / 3002,46,0/ DATA EDT , EQDYN, ECT, BGPDT, SILD, USETD, CSTM, GPLD / 1 101 , 102, 103, 104, 105, 106, 107, 108 / DATA EQAERO, SPLINE, AEROR, FLIST / 1 201 , 206, 207, 209 / 2 DATA MSG / 7*0 /, NAM / 4HAPD ,4H / C LCA = CAERO1(3) NOGO = 0 BUF1 = KORSZ(IZ) - SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF BUF5 = BUF4 - SYSBUF BUF6 = BUF5 - SYSBUF BUF7 = BUF6 - SYSBUF BUF8 = BUF7 - SYSBUF BUF9 = BUF8 - SYSBUF BUF10= BUF9 - SYSBUF BUF11= BUF10- SYSBUF BUF12= BUF11- SYSBUF SCR1 = 301 SCR2 = 302 SCR3 = 303 SCR4 = 304 SCR5 = 305 ECTA = 202 BGPA = 203 SILA = 204 USETA= 205 ACPT = 208 CSTMA= 210 GPLA = 211 SILGP= 212 LAST = BUF12 - 1 IF (LAST .LE. 0) GO TO 995 NJ = 0 NK = 0 I17 = IBIT(17) I20 = IBIT(20) PSPA = ORF(ITWO(I17),ITWO(I20)) C C READ AERO CARDS C LEFT = LAST FILE = EDT CALL PRELOC (*940,Z(BUF1),EDT) CALL LOCATE (*800,Z(BUF1),AERO,FLAG) CALL READ (*960,*970,EDT,Z(1),6,1,FLAG) ACSID= IZ(1) IZX = 2 VSOUND = Z(IZX) IZX = 3 BREF = Z(IZX) BOV = 0.0 IF (VSOUND .NE. 0.0) BOV = BREF/(2.0*VSOUND) IZX = 5 SYMXZ= IZ(IZX) IZX = 6 SYMXY= IZ(IZX) C C READ AEFACT CARDS C NAEF2 = 0 CALL APDR (EDT,Z,LEFT,NAEF1,NAEF2,FLAG,BUF1,AEFACT) C C READ CSTM TABLE C FILE = CSTM NCST2 = NAEF2 NCST1 = 0 MCSTM = 0 BUF(1)= CSTM CALL RDTRL(BUF) IF (BUF(1) .NE. CSTM) GO TO 100 CALL GOPEN (CSTM,Z(BUF2),RDREW) NCST1 = NCST2 + 1 CALL READ (*980,*80,CSTM,Z(NCST1),LEFT,0,NCST2) GO TO 970 80 CALL CLOSE (CSTM,CLSREW) LEFT = LEFT - NCST2 NCST2 = NCST1 + NCST2 - 1 C C FIND LARGEST CID OF CSTM C DO 90 J = NCST1,NCST2,14 IF (IZ(J) .LT. MCSTM) GO TO 90 MCSTM = IZ(J) 90 CONTINUE C C FIND AC TRANS C 100 IF (ACSID .EQ. 0) GO TO 120 IF (NCST1 .EQ. 0) GO TO 880 DO 110 IACS = NCST1,NCST2,14 IF (IZ(IACS) .EQ. ACSID) GO TO 120 110 CONTINUE GO TO 880 C C WRITE CSTM TO CSTMA C 120 CALL GOPEN (CSTMA,Z(BUF2),WTREW) IF (MCSTM .NE. 0) CALL WRITE (CSTMA,Z(NCST1),NCST2-NCST1+1,0) NCSA = MCSTM C C READ EQDYN INTO CORE C NEXT = NCST2 + 1 FILE = EQDYN CALL GOPEN (EQDYN,Z(BUF3),RDREW) CALL SKPREC (EQDYN,1) CALL READ (*980,*140,EQDYN,Z(NEXT),LEFT,0,NX) GO TO 970 140 CALL CLOSE (EQDYN,CLSREW) BUF(1) = EQDYN CALL RDTRL (BUF) NEXTRA = BUF(3) C C CIDBX = LARGEST ID C NCRD = NUMBER OF GRID AND SCALAR POINTS C NCRD = BUF(2) - NEXTRA NCRDO = NCRD CIDBX = 1000000 C C WRITE SECOND RECORD OF EQDYN ONTO SCR1 C CALL GOPEN (SCR1,Z(BUF3),WTREW) CALL WRITE (SCR1,Z(NEXT),NX,0) C C READ BGPDT C FILE = BGPDT CALL GOPEN (BGPDT,Z(BUF4),RDREW) CALL READ (*980,*150,BGPDT,Z(NEXT),LEFT,0,NX) GO TO 970 150 CALL CLOSE (BGPDT,CLSREW) C C WRITE BGPDT TO BGPA C CALL GOPEN (BGPA,Z(BUF4),WTREW) CALL WRITE (BGPA,Z(NEXT),NX,0) C C READ USETD C FILE = USETD CALL GOPEN (USETD,Z(BUF5),RDREW) CALL READ (*980,*160,USETD,Z(NEXT),LEFT,0,NX) GO TO 970 160 CALL CLOSE (USETD,CLSREW) C C MASK IN PS AND PA BITS C N2 = NEXT + NX - 1 DO 170 I = NEXT,N2 170 IZ(I) = ORF(IZ(I),PSPA) C C WRITE USETD TO USETA C FILE = USETA CALL GOPEN (USETA,Z(BUF5),WTREW) CALL WRITE (USETA,Z(NEXT),NX,0) C C READ ECT C FILE = ECT BUF(1) = ECT CALL GOPEN (ECTA,Z(BUF6),WTREW) CALL RDTRL (BUF) IF (BUF(1) .NE. ECT) GO TO 210 CALL GOPEN (ECT,Z(BUF7),RDREW) 180 CALL READ (*200,*190,ECT,Z(NEXT),LEFT,0,NX) GO TO 970 190 CALL WRITE (ECTA,Z(NEXT),NX,1) GO TO 180 200 CALL CLOSE (ECT,CLSREW) 210 CALL WRITE (ECTA,NBCA,3,0) C C READ FIRST RECORD OF SILD INTO CORE C FILE = SILD CALL GOPEN (SILD,Z(BUF8),RDREW) CALL READ (*980,*220,SILD,Z(NEXT),LEFT,0,NX) GO TO 970 C C WRITE FIRST RECORD OF SILD ONTO SILA C 220 BUF(1) = SILD CALL RDTRL (BUF) C C SILB + 6 = NEXT DOF IN PROBLEM C ISILN + 6 = NEXT DOF WITHOUT EXTRA POINTS C SILB = BUF(2) - 5 ISILN = SILB - NEXTRA CALL GOPEN (SILA,Z(BUF7),WTREW) CALL WRITE (SILA,Z(NEXT),NX,0) C C READ SECOND RECORD OF SILD INTO CORE C CALL READ (*980,*230,SILD,Z(NEXT),LEFT,0,NX) GO TO 970 230 CALL CLOSE (SILD,CLSREW) C C WRITE SECOND RECORD OF SILD ONTO SCR2 C CALL GOPEN (SCR2,Z(BUF8),WTREW) CALL WRITE (SCR2,Z(NEXT),NX,0) C C COPY GPLD TO GPLA C FILE = GPLD CALL GOPEN (GPLD,Z(BUF9),RDREW) CALL READ (*980,*235,GPLD,Z(NEXT),LEFT,0,NX) GO TO 970 235 CALL CLOSE (GPLD,CLSREW) CALL GOPEN (GPLA,Z(BUF9),WTREW) CALL WRITE (GPLA,Z(NEXT),NX,0) C C READ CAERO CARDS INTO CORE C NCA2 = NCST2 LCAS = NCA2 + 1 CALL APDR (EDT,Z,LEFT,NCA1,NCA2,FLAG,BUF1,CAERO1) CA2E = NCA2 CALL APDR (EDT,Z,LEFT,CA2S,CA2E,FLAG,BUF1,CAERO2) CA3E = CA2E CALL APDR (EDT,Z,LEFT,CA3S,CA3E,FLAG,BUF1,CAERO3) CA4E = CA3E CALL APDR (EDT,Z,LEFT,CA4S,CA4E,FLAG,BUF1,CAERO4) CA5E = CA4E CALL APDR (EDT,Z,LEFT,CA5S,CA5E,FLAG,BUF1,CAERO5) LCAE = MAX0(NCA2,CA2E,CA3E,CA4E,CA5E) C C READ PAERO CARDS INTO CORE C NPA2 = CA5E CALL APDR (EDT,Z,LEFT,NPA1,NPA2,FLAG,BUF1,PAERO1) PA2E = NPA2 CALL APDR (EDT,Z,LEFT,PA2S,PA2E,FLAG,BUF1,PAERO2) PA3E = PA2E CALL APDR (EDT,Z,LEFT,PA3S,PA3E,FLAG,BUF1,PAERO3) PA4E = PA3E CALL APDR (EDT,Z,LEFT,PA4S,PA4E,FLAG,BUF1,PAERO4) PA5E = PA4E CALL APDR (EDT,Z,LEFT,PA5S,PA5E,FLAG,BUF1,PAERO5) NEXT = PA5E + 1 CALL CLOSE (EDT,CLSREW) IF (NCA1.EQ.0 .AND. CA2S.EQ.0 .AND. CA3S.EQ.0 .AND. CA4S.EQ.0 1 .AND. CA5S.EQ.0) GO TO 820 C C OPEN ACPT C CALL GOPEN (ACPT,Z(BUF1),WTREW) C C CALL CAERO TYPE C IF (NCA1.NE.0 .OR. CA2S.NE.0) CALL APD12 IF (CA3S .NE. 0) CALL APD3 IF (CA4S .NE. 0) CALL APD4 IF (CA5S .NE. 0) CALL APD5 LUSETA = LUSETA + 5 CALL WRITE (CSTMA,0,0,1) CALL CLOSE (CSTMA,CLSREW) CALL CLOSE (ACPT,CLSREW) CALL WRITE (ECTA,0,0,1) CALL CLOSE (ECTA,CLSREW) CALL WRITE (BGPA,0,0,1) CALL CLOSE (BGPA,CLSREW) CALL WRITE (GPLA,0,0,1) CALL CLOSE (GPLA,CLSREW) CALL WRITE (USETA,0,0,1) CALL CLOSE (USETA,CLSREW) CALL WRITE (SILA,0,0,1) CALL WRITE (SCR1,0,0,1) CALL CLOSE (SCR1,CLSREW) CALL WRITE (SCR2,0,0,1) CALL CLOSE (SCR2,CLSREW) C C READ SECOND RECORD OF EQAERO TABLE OFF SCR1 C FILE = SCR1 CALL GOPEN (SCR1,Z(BUF3),RDREW) I = NEXT 411 CONTINUE IF (I+2 .GT. NEXT+LEFT) GO TO 970 CALL READ (*980,*420,SCR1,Z(I),2,0,NX) IZ(I+2) = 0 I = I + 3 GO TO 411 420 CALL CLOSE (SCR1,CLSREW) NX = I - NEXT C C SORT TABLE ON SILD VALUE C CALL SORT (0,0,3,2,Z(NEXT),NX) NY = NEXT + NX - 1 C C REPLACE THIRD ENTRIES WITH INTERNAL GRID ID WITH OUT EXTRA C K = 0 DO 412 I = NEXT,NY,3 IF (IZ(I+1)-(IZ(I+1)/10)*10 .EQ. 3) GO TO 412 K = K + 1 IZ(I+2) = K 412 CONTINUE C C SORT EQAERO TABLE C CALL SORT (0,0,3,1,Z(NEXT),NX) C C CHECK FOR DUPLICATE EXT ID C N1 = NEXT + 3 DO 430 I = N1,NY,3 IF (IZ(I-3) .NE. IZ(I)) GO TO 430 CALL EMSG (0,2329,1,2,0) NOGO = 1 WRITE (NOT,421) IZ(I) 421 FORMAT (10X,26HDUPLICATE EXTERNAL ID NO. ,I8,11H GENERATED.) 430 CONTINUE C C WRITE FIRST RECORD OF EQAERO TABLE C CALL GOPEN (EQAERO,Z(BUF3),WTREW) DO 440 I = NEXT,NY,3 BUF(1) = IZ(I ) BUF(2) = IZ(I+2) 440 CALL WRITE (EQAERO,BUF,2,0) CALL WRITE (EQAERO,0,0,1) C C WRITE SECOND RECORD OF EQAERO TABLE C DO 441 I = NEXT,NY,3 441 CALL WRITE (EQAERO,IZ(I),2,0) CALL WRITE (EQAERO,0,0,1) CALL CLOSE (EQAERO,CLSREW) C C PUT ON SPLINE A RECORD OF K POINTS WITH C EXTERNAL ID , BGPA POINTERS, AND K COLUMN NUMBER C FILE = USETA N1 = NEXT + NX CALL GOPEN (USETA,Z(BUF3),RDREW) CALL READ (*980,*442,USETA,Z(N1),LEFT-NX,0,N2) GO TO 970 442 CALL CLOSE (USETA,CLSREW) CALL GOPEN (SPLINE,Z(BUF3),WTREW) CALL WRITE (SPLINE,KSPL,3,0) MASK = IBIT(19) MASK = ITWO(MASK) KO = 1 N3 = (NCRDO+NEXTRA)*3 + NEXT DO 444 I = NEXT,NY,3 IF (MOD(IZ(I+1),10) .NE. 1) GO TO 444 K = 0 N4 = IZ(I+1)/10 - 2 DO 443 J = 1,6 IF (ANDF(IZ(N1+N4+J),MASK) .NE. 0) K = K + 1 443 CONTINUE IF (K .EQ. 0) GO TO 444 BUF(1) = IZ(I ) BUF(2) = IZ(I+2) BUF(3) = KO CALL WRITE (SPLINE,BUF,3,0) KO = KO + K 444 CONTINUE CALL WRITE (SPLINE,0,0,1) CALL CLOSE (SPLINE,2) C C READ SECOND RECORD OF SILA TABLE C CALL GOPEN (SCR2,Z(BUF8),RDREW) CALL READ (*980,*450,SCR2,Z(NEXT),LEFT,0,NX) GO TO 970 450 CALL CLOSE (SCR2,CLSREW) CALL WRITE (SILA,Z(NEXT),NX,1) CALL CLOSE (SILA,CLSREW) C C BUILD SILGP TABLE C CALL GOPEN (SILGP,Z(BUF8),W TREW) NY = NEXT + NX - 1 K = 0 DO 451 I = NEXT,NY,2 IZ(NEXT+K) = IZ(I) K = K + 1 451 CONTINUE CALL WRITE (SILGP,IZ(NEXT),K,1) CALL CLOSE (SILGP,CLSREW) C C WRITE RECORD C CALL GOPEN (AEROR,Z(BUF2),WTREW) CALL WRITE (AEROR,AERX,3,1) C C READ IN MKAERO1 CARDS C FILE = EDT CALL PRELOC (*940,Z(BUF1),EDT) LMKAER = .FALSE. CALL LOCATE (*510,Z(BUF1),MKAER1,FLAG) CALL READ (*980,*460,EDT,Z(NEXT),LEFT,0,NX) GO TO 970 460 N1 = NEXT LMKAER = .TRUE. 470 N2 = N1 + 7 DO 490 I = N1,N2 IF (IZ(I) .EQ. -1) GO TO 500 BUF(1) = IZ(I) N3 = N2 + 1 N4 = N3 + 7 DO 480 J = N3,N4 IF (IZ(J) .EQ. -1) GO TO 490 BUF(2) = IZ(J) 480 CALL WRITE (AEROR,BUF,2,0) 490 CONTINUE 500 IF (N4-NEXT+1 .GE. NX) GO TO 510 N1 = N1 + 16 GO TO 470 C C READ IN MKAER2 CARDS C 510 CALL LOCATE (*530,Z(BUF1),MKAER2,FLAG) CALL READ (*980,*520,EDT,Z(NEXT),LEFT,0,NX) GO TO 970 520 CALL WRITE (AEROR,Z(NEXT),NX,0) LMKAER =.TRUE. 530 CALL WRITE (AEROR,0,0,1) CALL CLOSE (AEROR,CLSREW) IF (LMKAER) GO TO 540 GO TO 870 C C PROCESS SET1 CARDS C 540 CALL OPEN (*940,SPLINE,Z(BUF2),3) LSET =.FALSE. CALL LOCATE (*610,Z(BUF1),SET1,FLAG) LSET =.TRUE. CALL READ (*980,*550,EDT,Z(NEXT),LEFT,0,NX) GO TO 970 550 N3 = NEXT + NX CALL GOPEN (EQAERO,Z(BUF3),RDREW) LEFT = CORWDS(IZ(N3),IZ(LAST)) FILE = EQAERO CALL READ (*980,*560,EQAERO,Z(N3),LEFT,0,N4) GO TO 970 560 N1 = NEXT FILE = EDT N2 = N1 + NX - 1 CALL CLOSE (EQAERO,CLSREW) LEFT = CORWDS(IZ(NEXT),IZ(LAST)) C C CONVERT SET1 TO INTERNAL COOR NO C LSKIP = .TRUE. DO 600 I = N1,N2 IF (IZ(I) .EQ. -1) GO TO 590 IF (LSKIP) GO TO 580 KID = IZ(I) CALL BISLOC (*930,KID,IZ(N3),2,N4/2,JP) K = N3 + JP IF (IZ(K) .GT. NCRDO) GO TO 930 IZ(I) = IZ(K) GO TO 600 580 LSKIP =.FALSE. GO TO 600 930 CALL EMSG (0,2330,1,2,0) NOGO = 1 WRITE (NOT,931) IZ(N1),IZ(I) 931 FORMAT (10X,24HSET1 OR SPLIN3 CARD NO. ,I8,28H REFERENCES EXTERNAL 1 ID NO. ,I8,22H WHICH DOES NOT EXIST.) GO TO 600 590 LSKIP = .TRUE. 600 CONTINUE C C WRITE OUT SET1 CARD ON SPLINE C CALL WRITE (SPLINE,SET1,3,0) CALL WRITE (SPLINE,Z(NEXT),NX,1) C C PROCESS SET2 CARDS C 610 CALL LOCATE (*660,Z(BUF1),SET2,FLAG) LSET =.TRUE. CALL WRITE (SPLINE,SET2,3,0) 620 CALL READ (*980,*650,EDT,Z(NEXT),8,0,NX) CALL WRITE (SPLINE,Z(NEXT),10,0) NX = IZ(NEXT+1) DO 630 I = LCAS,LCAE,LCA IF (IZ(I) .EQ. NX) GO TO 640 630 CONTINUE GO TO 830 640 CALL WRITE (SPLINE,Z(I),LCA,0) GO TO 620 650 CALL WRITE (SPLINE,0,0,1) C C PROCESS SPLINE1 CARDS C 660 LSPLIN =.FALSE. CALL LOCATE (*710,Z(BUF1),SPLIN1,FLAG) LSPLIN =.TRUE. CALL WRITE (SPLINE,SPLIN 1,3,0) ASSIGN 670 TO IRET 670 CALL READ (*980,*700,EDT,Z(NEXT),6,0,NX) GO TO 671 C C INTERNAL ROUTINE TO ATTACH CAERO DATA TO SPLINE C 671 CONTINUE CALL WRITE (SPLINE,Z(NEXT),10,0) NX = IZ(NEXT+1) DO 680 I = LCAS,LCAE,LCA IF (IZ(I) .EQ. NX) GO TO 690 680 CONTINUE GO TO 810 690 CALL WRITE (SPLINE,Z(I),LCA,0) IF (IZ(NEXT+2) .GT. IZ(NEXT+3)) GO TO 691 J1 = IZ(I+4)*IZ(I+3) + IZ(I) - 1 IF (IZ(NEXT+2).LT.IZ(I) .OR. IZ(NEXT+3).GT.J1) GO TO 691 GO TO 693 691 NOGO = 1 CALL EMSG (0,2331,1,2,0) WRITE (NOT,692) IZ(NEXT),IZ(I) 692 FORMAT (10X,30HBOX PICKED ON SPLINE CARD NO. ,I8,32HNOT GENERATED 1BY CAERO CARD NO. ,I8,1H.) 693 GO TO IRET, (670,720,7651) 700 CALL WRITE (SPLINE,0,0,1) C C PROCESS SPLINE2 CARDS C 710 CALL LOCATE (*760,Z(BUF1),SPLIN2,FLAG) LSPLIN =.TRUE. CALL WRITE (SPLINE,SPLIN 2,3,0) ASSIGN 720 TO IRET 720 CALL READ (*980,*750,EDT,Z(NEXT),10,0,NX) GO TO 671 750 CALL WRITE (SPLINE,0,0,1) C C PROCESS SPLINE3 CARDS C 760 NSPLIE = NEXT - 1 CALL APDR (EDT,Z,LEFT,NSPLIS,NSPLIE,FLAG,BUF1,SPLIN3) IF (NSPLIS .EQ. 0) GO TO 769 FILE = EQAERO N3 = NSPLIE + 1 CALL GOPEN (EQAERO,Z(BUF3),RDREW) CALL READ (*980,*761,EQAERO,Z(N3),LEFT,0,N4) GO TO 970 761 FILE = EDT CALL CLOSE (EQAERO,CLSREW) N4 = N4/2 LSET = .TRUE. LEFT = LEFT + FLAG LSPLIN = .TRUE. ASSIGN 7651 TO IRET CALL WRITE (SPLINE,SPLIN3,3,0) ISP = NSPLIS NLS = 0 C C PICK UP NEXT SPLIN3 AND ATTACHED CAERO C 765 ISP = ISP + NLS IF (ISP .GE. NSPLIE) GO TO 768 CALL APDOE (IZ(ISP),Z,ISP,NSPLIE,FLAG,NLS) NLS = NLS + 1 NX = IZ(ISP+1) DO 766 I = LCAS,LCAE,LCA J = I IF (IZ(I) .EQ. NX) GO TO 767 766 CONTINUE GO TO 810 767 J1 = IZ(I+3)*IZ(I+4) + NX - 1 IZ(NEXT) = IZ(ISP) IF (IZ(ISP+2) .LT. IZ(ISP+1)) GO TO 691 IF (IZ(ISP+2) .GT. J1) GO TO 691 C C CONVERT TO INTERNAL ID C N2 = NLS - 4 DO 7652 I = 1,N2,3 N1 = IZ(ISP+I+3) CALL BISLOC (*7653,N1,IZ(N3),2,N4,JP) IF (IZ(N3+JP) .GT. NCRDO) GO TO 7653 IZ(ISP+I+3) = IZ(N3+JP) 7652 CONTINUE 7651 CALL WRITE (SPLINE,NLS+LCA,1,0) CALL WRITE (SPLINE,IZ(ISP),NLS,0) NLS = NLS + 1 CALL WRITE (SPLINE,IZ(J),LCA,0) GO TO 765 7653 NOGO = 1 CALL EMSG (0,2330,1,2,0) WRITE (NOT,931) IZ(ISP),N1 GO TO 7651 768 CALL WRITE (SPLINE,0,0,1) 769 CALL CLOSE (SPLINE,CLSREW) C C CREATE FLIST TABLE C CALL GOPEN (FLIST,Z(BUF2),WTREW) CALL LOCATE (*800,Z(BUF1),AERO,FLAG) CALL READ (*980,*770,EDT,Z(NEXT),LEFT,0,NX) GO TO 970 770 CALL WRITE (FLIST,AERO,3,0) CALL WRITE (FLIST,Z(NEXT),NX,1) CALL LOCATE (*785,Z(BUF1),FLFACT,FLAG) CALL READ (*980,*780,EDT,Z(NEXT),LEFT,1,NX) GO TO 970 780 CALL WRITE (FLIST,FLFACT,3,0) CALL WRITE (FLIST,Z(NEXT),NX,1) 785 CALL LOCATE (*900,Z(BUF1),FLUTTR,FLAG) CALL READ (*980,*790,EDT,Z(NEXT),LEFT,0,NX) GO TO 970 790 CALL WRITE (FLIST,FLUTT R,3,0) CALL WRITE (FLIST,Z(NEXT),NX,1) 900 CALL CLOSE (FLIST,CLSREW) CALL CLOSE (EDT,CLSREW) MSG(1) = AEROR MSG(2) = 1 CALL WRTTRL (MSG) MSG(1) = EQDYN CALL RDTRL (MSG) MSG(1) = EQAERO MSG(2) = NCRD + NEXTRA CALL WRTTRL (MSG) MSG(1) = BGPDT CALL RDTRL (MSG(1)) MSG(3) = NCRD - MSG(2) MSG(1) = BGPA MSG(2) = NCRD CALL WRTTRL (MSG) MSG(1) = SILA MSG(2) = LUSETA MSG(3) = NEXTRA CALL WRTTRL (MSG) MSG(1) = ACPT MSG(2) = 1 CALL WRTTRL (MSG) MSG(1) = GPLA MSG(2) = NCRD + NEXTRA CALL WRTTRL (MSG) MSG(1) = CSTM CALL RDTRL (MSG) IF (MSG(1) .LT.0) MSG(3) = 0 MSG(1) = CSTMA MSG(3) = MSG(3) + MCSTM - NCSA CALL WRTTRL (MSG) MSG(1) = USETA MSG(2) = LUSETA MSG(3) = NEXTRA MSG(4) = PSPA CALL WRTTRL (MSG) MSG(1) = EDT CALL RDTRL (MSG) MSG(1) = FLIST CALL WRTTRL (MSG) MSG(1) = EDT CALL RDTRL (MSG) MSG(1) = SPLINE MSG(2) = ORF(MSG(2),ITWO(18)) CALL WRTTRL (MSG) MSG(1) = ECT CALL RDTRL (MSG) N1 = (NBCA(2)-1)/16 + 2 N2 = NBCA(2) - (N1-2)*16 + 16 MSG(N1)= ORF(MSG(N1),ITWO(N2)) MSG(1) = ECTA CALL WRTTRL (MSG) C C PUT OUT SILGP TRAILER C MSG(1) = SILGP MSG(2) = NCRD MSG(3) = LUSETA - NEXTRA MSG(4) = 0 MSG(5) = 0 MSG(6) = 0 MSG(7) = 0 CALL WRTTRL (MSG) IF (NOGO .EQ. 1) CALL MESAGE (-37,0,NAM) IF (LSET .AND. LSPLIN) RETURN C C ERROR MESSAGES C CALL EMSG (35,-2328,1,2,MSG1) 800 CALL EMSG (18,-2318,1,3,MSG2) 810 CALL EMSG (0,-2324,1,2,0) WRITE (NOT,811) NX 811 FORMAT (10X,19HCAERO ELEMENT NO. ,I8, 1 45H REFERENCED ON A SPLINEI CARD DOES NOT EXIST.) 812 CALL MESAGE (-61,0,NAM) 820 CALL EMSG (21,-2319,1,2,MSG3) 830 CALL EMSG (0,-2325,1,2,0) WRITE (NOT,831) NX 831 FORMAT (10X,19HCAERO ELEMENT NO. ,I8, 1 42H REFERENCED ON A SET2 CARD DOES NOT EXIST.) GO TO 812 870 CALL EMSG (38,-2322,1,2,MSG4) 880 CALL MESAGE (-30,25,ACSID) 940 IP1 = -1 950 CALL MESAGE (IP1,FILE,NAM) 995 IP1 = -8 GO TO 950 960 IP1 = -2 GO TO 950 970 IP1 = 3 GO TO 950 980 GO TO 960 END ================================================ FILE: mis/apd1.f ================================================ SUBROUTINE APD1 (FST,NS,FCT,NC,LS,LC) C LOGICAL LS,LC INTEGER IZ(1),NAME(2),FILE,NCARY(2),SILC,NECTA(6), 1 CP,ACSID,EID,EIDB,CID(5),CIDBX,AUSET(6,2),SILB, 2 RDREW,CLSREW,AYS(5),KEY(5),SILDX(4),ACSIX(4),BACK, 3 SCR1,SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA, 4 SILA,CSTMA,ACPT,BUF10,BUF11,BUF12,WTREW,ACSIB,PID REAL RB1(3),ACPL(3,3),VX1(3),VX2(3),AXIC(3),FST(1), 1 FCT(1),XB(5) COMMON /BLANK / NK,NJ,LUSETA COMMON /SYSTEM/ SYSBUF,NOT COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID, 1 X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM, 2 NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD, 3 SCR1,SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA, 4 SILA,CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN COMMON /APD1D / ICPL(14),YP4,S1,C1,XP2,XP3,XP4,RA1(3) COMMON /APD12C/ KEY,AUSET,USA,UK,NCAM2,NASB,IPPC COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (ICPL(3),RB1(1)),(ICPL(6),ACPL(1,1)), 1 (NECTA(2),CID(1)),(KEY(2),NP),(KEY(3),NSTRIP), 2 (KEY(4),NTP),(KEY(5),F),(AYS(1),YS),(AYS(2),ZS), 3 (AYS(3),EE),(AYS(4),SG),(AYS(5),CG),(AXIC(1),XIC), 4 (AXIC(2),DELX),(AXIC(3),XLAM),(SILDX(1),ICID), 5 (SILDX(3),SILC),(ACSIX(1),ACSIB),(Z(1),IZ(1)), 6 (ACSIX(2),VX2(1)),(NECTA(1),EIDB) DATA RDREW , CLSREW,WTREW / 0,1,1 / DATA NAME / 4HAPD1,1H / C KEY(1) = 1 SILC = SILB C C IF NEW IGRID SET INITIALIZE C IF (.NOT.LS) GO TO 30 NP = 0 NTP = 0 NBOX = 0 NASB = 0 NSTRIP = 0 CALL GOPEN (SCR3,Z(BUF10),WTREW) CALL GOPEN (SCR4,Z(BUF11),WTREW) CALL GOPEN (SCR5,Z(BUF12),WTREW) C C MAKE COORD SYSTEM AND GET POINTS IN PROPER SYSTEM C 30 CALL APDCS SG = S1 CG = C1 ACSIB = MCSTM C C CHECK FOR ASSOCIATED BODIES C DO 40 J = 1,6 IF (IZ(IPPC+J) .EQ. 0) GO TO 45 40 NASB = NASB + 1 45 CONTINUE C C GENERATE BOXES C NCRDP= NCRD NP = NP + 1 FSJ1 = APDF(FST,1,NSPAN) YJ1 = FSJ1*YP4 DJ1 = FSJ1*XP4 CJ1 = (1.0-FSJ1)*XP2 + FSJ1*(XP3-XP4) EIDB = EID - 1 DO 370 J = 1,NS YJ = YJ1 DJ = DJ1 CJ = CJ1 FSJ1 = APDF(FST,J+1,NSPAN) YJ1 = FSJ1*YP4 DJ1 = FSJ1*XP4 CJ1 = (1.0-FSJ1)*XP2 + FSJ1*(XP3-XP4) EE = .5*(YJ1-YJ) YSP = YJ + EE NSTRIP = NSTRIP + 1 FCI1 = APDF(FCT,1,NCHORD) XI1J = DJ + FCI1*CJ XI1J1= DJ1+ FCI1*CJ1 DS = 1.0/(YJ1-YJ) YS = YSP*CG + RA1(2) ZS = YSP*SG + RA1(3) CALL WRITE (SCR3,AYS(1),5,0) DO 370 I = 1,NC NTP = NTP + 1 XIJ = XI1J XIJ1 = XI1J1 FCI1 = APDF(FCT,I+1,NCHORD) XI1J = DJ + FCI1*CJ XI1J1= DJ1+ FCI1*CJ1 AIJ = (1.0-XOP)*XIJ + XOP*XI1J AIJ1 = (1.0-XOP)*XIJ1 + XOP*XI1J1 XIC = .5*(AIJ+AIJ1) + RA1(1) XLAM = (AIJ1-AIJ)*DS DELX = .50*(-XIJ+XI1J - XIJ1+XI1J1) CALL WRITE (SCR4,AXIC(1),3,0) XIC = XIC - RA1(1) EIDB = EIDB + 1 NBOX = NBOX + 1 CID(1) = CIDBX + I + (NC+1)*(J-1) CID(2) = CID(1) + 1 CID(3) = CID(1) + NC + 1 CID(4) = CID(3) + 1 CID(5) = EIDB NCID = CID(4) NJ = NJ + 1 NK = NK + 2 VX1(3) = 0 IF (J .NE. 1) GO TO 310 IF (I .NE. 1) GO TO 300 ASSIGN 300 TO BACK ICID = CID(1) VX1(1) = XIJ VX1(2) = YJ KK = 1 GO TO 340 300 ASSIGN 310 TO BACK ICID = CID(2) VX1(1) = XI1J VX1(2) = YJ KK = 1 GO TO 340 310 IF (I .NE. 1) GO TO 320 ASSIGN 320 TO BACK ICID = CID(3) VX1(1) = XIJ1 VX1(2) = YJ1 KK = 1 GO TO 340 320 ASSIGN 330 TO BACK ICID = CID(4) VX1(1) = XI1J1 VX1(2) = YJ1 KK = 1 GO TO 340 330 ASSIGN 360 TO BACK ICID = CID(5) VX1(1) = XIC + .25*DELX VX1(2) = YSP KK = 2 340 CALL GMMATS (ACPL,3,3,0, VX1,3,1,0, VX2) DO 350 K = 1,3 350 VX2(K) = VX2(K) + RB1(K) CALL WRITE (BGPA,ACSIX,4,0) CALL WRITE (GPLA,ICID,1,0) CALL WRITE (USETA,AUSET(1,KK),6,0) NCRD = NCRD + 1 SILC = SILC + 6 ISILN= ISILN + 6 SILDX(4) = ISILN LUSETA = SILC SILDX(2) = 10*SILC + 1 CALL WRITE (SILA,SILC,1,0) CALL WRITE (SCR2,ISILN,1,0) CALL WRITE (SCR2,SILC,1,0) CALL WRITE (SCR1,ICID,2,0) GO TO BACK, (300,310,320,330,360) 360 CID(1) = IAPD(I ,J ,NC,NCRDP) CID(2) = IAPD(I+1,J ,NC,NCRDP) CID(4) = IAPD(I ,J+1,NC,NCRDP) CID(3) = IAPD(I+1,J+1,NC,NCRDP) CID(5) = CID(3) + 1 CALL WRITE (ECTA,NECTA(1),6,0) 370 CONTINUE CIDBX = NCID NCARY(1) = NC NCARY(2) = NBOX CALL WRITE (SCR5,NCARY,2,0) C C ADD PROPERITY CARD POINTERS FOR APD2 C CALL WRITE (SCR5,IPPC,1,0) SILB = SILC IF(.NOT.LC) RETURN C C WRITE ACPT TABLE C F = X1P - XOP CALL WRITE (ACPT,KEY,5,0) C C COPY STUFF FROM SCRATCH FILES TO ACPT C FILE = SCR5 K = 3 ASSIGN 410 TO IRET GO TO 375 410 ASSIGN 420 TO IRET FILE = SCR3 K = 5 GO TO 375 420 ASSIGN 430 TO IRET FILE = SCR4 K = 3 375 CALL WRITE (FILE,0,0,1) CALL CLOSE (FILE,CLSREW) CALL GOPEN (FILE,Z(BUF12),RDREW) DO 400 I = 1,K 380 CALL READ (*480,*390,FILE,XB(1),K,0,J) C C SKIP PROPERTY CARD POINTERS C IF (I.EQ.3 .AND. FILE.EQ.SCR5) GO TO 380 CALL WRITE (ACPT,XB(I),1,0) GO TO 380 390 CALL REWIND (FILE) CALL SKPREC (FILE,1) 400 CONTINUE CALL CLOSE (FILE,CLSREW) GO TO IRET, (410,420,430) 430 CALL WRITE (ACPT,0,0,1) RETURN C C ERROR MESAGES C 480 IP1 = -2 CALL MESAGE (IP1,FILE,NAME) RETURN END ================================================ FILE: mis/apd12.f ================================================ SUBROUTINE APD12 C EXTERNAL ORF LOGICAL LS,LC,DLB INTEGER AUSET(6,2),ORF,PSPA,UK,USA,IZ(1),NAM(2), 1 EID,PID,CP,CIDBX,ACSID,SILB,SCR1,SCR2,SCR3,SCR4, 2 SCR5,ECTA,BGPA,GPLA,USETA,SILA,CSTMA,ACPT,BUF10, 3 BUF11,BUF12,IAX(20), 4 CA2S,CA2E,CA3S,CA3E,CA4S,CA4E, 5 PA2S,PA2E,PA3S,PA3E,PA4S,PA4E COMMON /SYSTEM/ SYSBUF,IUT COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID, 1 X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM, 2 NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD,SCR1, 3 SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,SILA, 4 CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN, 5 NCAM,NAEF1,NAEF2,NCA1,NCA2,CA2S,CA2E,CA3S,CA3E, 6 CA4S,CA4E,NPA1,NPA2,PA2S,PA2E,PA3S,PA3E,PA4S,PA4E COMMON /APD12C/ KEY(5),AUSET,USA,UK,NCAM2,NASB,IPPC COMMON /BITPOS/ IBIT(64) COMMON /TWO / ITWO(32) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)),(EID,IAX(1)) DATA NAM /4HAPD1,4H2 / C I17 = IBIT(17) I18 = IBIT(18) I19 = IBIT(19) I20 = IBIT(20) PSPA= ORF(ITWO(I17),ITWO(I20)) USA = ORF(PSPA,ITWO(I18)) UK = ORF(ITWO(I19),ITWO(I20)) DO 10 J = 1,2 DO 10 I = 1,6 10 AUSET(I,J) = USA AUSET(3,2) = UK AUSET(5,2) = UK NCAM = ((NCA2-NCA1)+1)/16 IF (NCA1 .EQ. 0) NCAM = 0 NCAM2 = ((CA2E-CA2S)+1)/16 IF (CA2S .EQ. 0) NCAM2 = 0 LCA = 16 C C CREATE IGID SEQUENCE ARRAY C NIGID1 = NEXT IGID2 = NEXT NIGID = NEXT NX = NCA1 J = NIGID1 IF (NCAM .EQ. 0) GO TO 15 DO 240 I = 1,NCAM IZ(J) = IZ(NX+7) J = J + 1 IZ(J) = NX NX = NX + LCA 240 J = J + 1 C C SORT IGID ARRAY ON IGID C CALL SORT (0,0,2,1,IZ(NIGID1),2*NCAM) 15 IF (NCAM2 .EQ. 0) GO TO 30 NX = CA2S NIGID2 = J DO 20 I = 1,NCAM2 IZ(J) = IZ(NX+7) J = J + 1 IZ(J) = NX NX = NX + LCA 20 J = J + 1 CALL SORT (0,0,2,1,IZ(NIGID2),2*NCAM2) IGID2 = NIGID2 30 NEXTC = J IF (NCAM .EQ. 0) GO TO 500 NIGID = NIGID1 C C OUTTER LOOP PROCESSES CAERO1 CARDS C DO 410 I = 1,NCAM C C SET APD1 INPUT COMMON BLOCK C NC = IZ(NIGID+1) - 1 C C MOVE CAERO TO COMMON C DO 250 J = 1,16 N1 = J + NC 250 IAX(J) = IZ(N1) MCSTM = MCSTM + 1 IZ(NC+2) = MCSTM C C FIND PAERO1 CARD C IF (NPA1 .EQ. 0) GO TO 890 DO 260 J = NPA1,NPA2,8 IPPC = J IF (PID .EQ. IZ(J)) GO TO 270 260 CONTINUE GO TO 890 270 XOP = .25 X1P = .75 ALZO = 0.0 C C FIND AEFACT ARRAYS IF PRESENT C JSPAN = NSPAN JCHORD = NCHORD IF (LSPAN .EQ. 0) GO TO 280 CALL APDOE (LSPAN,IZ,NAEF1,NAEF2,ISPAN,JSPAN) IF (ISPAN .EQ. 0) GO TO 850 ISPAN = ISPAN + 1 JSPAN = JSPAN - 1 280 IF (LCHORD .EQ. 0) GO TO 350 CALL APDOE (LCHORD,IZ,NAEF1,NAEF2,ICHORD,JCHORD) IF (ICHORD .EQ. 0) GO TO 860 ICHORD = ICHORD + 1 JCHORD = JCHORD - 1 350 CONTINUE C C CHECK IF FIRST OR LAST ENTRY IN IGID SET C LS = .FALSE. IF (I .EQ. 1) GO TO 370 IF (IZ(NIGID) .EQ. IZ(NIGID-2)) GO TO 380 370 LS = .TRUE. 380 LC = .FALSE. DLB= .FALSE. IF (I .EQ. NCAM) GO TO 390 IF (IZ(NIGID) .EQ. IZ(NIGID+2)) GO TO 400 390 LC = .TRUE. C C CHECK FOR CAERO2 ELEMENT C IF (NCAM2 .EQ. 0) GO TO 400 IF (NIGID2 .GT. NEXTC) GO TO 50 40 IF (IZ(NIGID2) .GT. IZ(NIGID)) GO TO 50 IF (IZ(NIGID) .EQ. IZ(NIGID2)) DLB = .TRUE. IF (DLB) GO TO 50 NIGID2 = NIGID2 + 2 IF (NIGID2 .GT. NEXTC) GO TO 50 GO TO 40 50 CONTINUE IF (DLB) LC = .FALSE. C C CALL APD1 TO MANUFACTURE BOXES C 400 CALL APD1 (Z(ISPAN),JSPAN,Z(ICHORD),JCHORD,LS,LC) NCHORD = JCHORD NSPAN = JSPAN IZ(NC+4) = NSPAN IZ(NC+5) = NCHORD IZ(NC+8) = 1 IF (.NOT.DLB) GO TO 410 C C PROCESS CAERO2 WITH CAERO1 C CALL APD2 (1,IZ(NEXT),IZ(IGID2 ),NEXTC,IZ(NIGID)) 410 NIGID = NIGID + 2 C C PROCESS CAERO2 CARDS NOT PROCESSED YET C 500 IF (NCAM2 .EQ. 0) GO TO 1000 CALL APD2 (0,IZ(NEXT),IZ(IGID2 ),NEXTC,IZ(NIGID)) 1000 RETURN C C ERROR MESSAGES C 812 CALL MESAGE (-61,0,NAM) 850 CALL EMSG (0,2326,1,2,0) WRITE (IUT,851) EID,LSPAN 851 FORMAT (10X,19HCAERO1 ELEMENT NO. ,I8,28H REFERENCES AEFACT CARD N 1O. ,I8,22H WHICH DOES NOT EXIST.) GO TO 812 860 CALL EMSG (0,2327,1,2,0) WRITE (IUT,851) EID,LCHORD GO TO 812 890 CALL EMSG (0,2323,1,2,0) WRITE (IUT,891) PID,EID 891 FORMAT (10X,16HPAERO1 CARD NO. , I8,31H REFERENCED BY CAERO1 CARD 1NO. ,I8,20H BUT DOES NOT EXIST.) GO TO 812 END ================================================ FILE: mis/apd2.f ================================================ SUBROUTINE APD2 (IOPT,CAO1,CAO2,NCORE,ID) C INTEGER PA2S,PA2E,CA2S,CA2E,IZ(1),NAM(2),IAX(1),CAO1(1), 1 CAO2(1),PC,PPC,BET,TYPE(3), 2 CP,ACSID,EID,EIDB,CID(5),CIDBX,AUSET(6,2),SILB, 3 UK,USA,NECTA(6),KEY(5),SILDX(2),ACSIX(4),BACK, 4 SCR1,SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA, 5 SILA,CSTMA,ACPT,BUF10,BUF11,BUF12,ACSIB,PID REAL RB1(3),ACPL(3,3),VX1(3),VX2(3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / NK,NJ,LUSETA COMMON /SYSTEM/ SYSBUF,NOT COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID, 1 X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM, 2 NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD, 3 SCR1,SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA, 4 SILA,CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN, 5 NCAM,NAEF1,NAEF2, 6 NCA1,NCA2,CA2S,CA2E,CA3S,CA3E,CA4S,CA4E, 7 NPA1,NPA2,PA2S,PA2E,PA3S,PA3E,PA4S,PA4E COMMON /APD1D / ICPL(14),YP4,S1,C1,XP2,XP3,XP4,RA1(3) COMMON /APD12C/ KEY,AUSET,USA,UK,NCAM2,NASB COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)),(ICPL(3),RB1(1)),(ICPL(6),ACPL(1,1)), 1 (NECTA(1),EIDB),(NECTA(2),CID(1)),(KEY(2),NP), 2 (KEY(3),NSTRIP),(KEY(4),NTP),(EID,IAX(1)), 3 (SILDX(1),ICID),(ACSIX(1),ACSIB),(ACSIX(2),VX2(1)) DATA TYPE / 1HZ,2HZY,1HY / DATA NAM / 4HAPD2,4H / DATA PIO180/ .0174532925 / C IBC = 0 NB = 0 IF (IOPT .EQ. 1) GO TO 200 C C PROCESS CAERO2 WITHOUT CAERO1 ATTACHED C NP = 0 NSTRIP= 0 NTP = 0 NAS = 0 IPC = 1 IDS = CAO2(1) 10 IF (CAO2(IPC) .LT. 0) GO TO 191 11 PC = CAO2(IPC+1) - 1 IF (IBC .NE. NB) GO TO 31 C C LOOP OVER ALL CAERO2 WITH CURRENT ID TO SET UP POINTERS C NB = 0 IBC = 0 NBZ = 0 NBY = 0 NTZ = 0 NTY = 0 NTZS = 0 NTYS = 0 NBEA1 = 0 NSBEA = 0 NFL = 0 NT121 = 0 NT122 = 0 K = IPC 12 IF (CAO2(K) .NE. IDS) GO TO 19 NB = NB + 1 L = CAO2(K+1) - 1 DO 13 M = 1,7 13 IAX(M) = IZ(L+M) ASSIGN 14 TO IRET GO TO 29 14 CONTINUE GO TO (15,15,16), BET 15 NBZ = NBZ + 1 NTZ = NTZ + NINT NTZS = NTZS + NSB IF (BET .EQ. 1) GO TO 17 16 NBY = NBY + 1 NTY = NTY + NINT NTYS = NTYS + NSB 17 CONTINUE NBEA1 = NBEA1 + NINT NSBEA = NSBEA + NSB NT121 = NT121 + NTH1 NT122 = NT122 + NTH2 NFL = NFL + KT1 K = K + 2 IF (K .GT. NCAM2*2) GO TO 19 GO TO 12 19 IDS = CAO2(K) NTO = NTP + NTZ + NTY NAS = NASB C C NOW SET UP POINTERS TO BUILD ACPT IN CORE C I = NCORE IZ(I ) = 2 IZ(I+ 1) = NTP IZ(I+ 2) = NTP*2 IZ(I+ 3) = NP IZ(I+ 4) = NB IZ(I+ 5) = NTP IZ(I+ 6) = NBZ IZ(I+ 7) = NBY IZ(I+ 8) = NTZ IZ(I+ 9) = NTY IZ(I+10) = NTO IZ(I+11) = NTZS IZ(I+12) = NTYS IZ(I+13) = NSTRIP INC = I + 14 INB = INC + NP INAS = INB + NP INBEA1 = INAS + NP INBEA2 = INBEA1 + NB INSBEA = INBEA2 + NB IZB = INSBEA + NB IYB = IZB + NB IAVR = IYB + NB IARB = IAVR + NB INFL = IARB + NB IXLE = INFL + NB IXTE = IXLE + NB INT121 = IXTE + NB INT122 = INT121 + NB IZS = INT122 + NB IYS = IZS + NB + NSTRIP IEE = IYS + NB + NSTRIP ISG = IEE + NSTRIP ICG = ISG + NSTRIP IX = ICG + NSTRIP IDELX = IX + NTP + NBEA1 IXIC = IDELX + NTP + NBEA1 IXLAM = IXIC + NTP IAO = IXLAM + NTP IXIS1 = IAO + NSBEA IXIS2 = IXIS1 + NSBEA IAOP = IXIS2 + NSBEA IRIA = IAOP + NSBEA INASB = IRIA + NBEA1 IFLA1 = INASB + NAS IFLA2 = IFLA1 + NFL ITH1A = IFLA2 + NFL ITH2A = ITH1A + NT121 NWR = ITH2A + NT122 - NCORE NA = ITH2A + NT122 - 1 I = NA + NP*6 +1 IF (I .GT. LEFT) CALL MESAGE (-8,0,NAM) C C IF PANELS EXIST INSERT DATA FROM SCRATCH FILES C IF(NP.EQ.0) GO TO 31 NASS = NA CALL WRITE (SCR3,0,0,1) CALL WRITE (SCR4,0,0,1) CALL WRITE (SCR5,0,0,1) CALL CLOSE (SCR3,1) CALL CLOSE (SCR4,1) CALL CLOSE (SCR5,1) CALL GOPEN (SCR3,Z(BUF10),0) CALL GOPEN (SCR4,Z(BUF11),0) CALL GOPEN (SCR5,Z(BUF12),0) DO 21 I = 1,NP CALL FREAD (SCR5,IZ(INC),1,0) CALL FREAD (SCR5,IZ(INB),1,0) CALL FREAD (SCR5,K,1,0) DO 22 J = 1,6 22 IZ(NA+J) = IZ(K+J) INC = INC + 1 INB = INB + 1 21 NA = NA + 6 DO 23 I = 1,NSTRIP CALL FREAD (SCR3,IZ(IYS),1,0) CALL FREAD (SCR3,IZ(IZS),1,0) CALL FREAD (SCR3,IZ(IEE),1,0) CALL FREAD (SCR3,IZ(ISG),1,0) CALL FREAD (SCR3,IZ(ICG),1,0) IYS = IYS + 1 IZS = IZS + 1 IEE = IEE + 1 ISG = ISG + 1 23 ICG = ICG + 1 DO 24 I = 1,NTP CALL FREAD (SCR4,IZ(IXIC),1,0) CALL FREAD (SCR4,IZ(IDELX),1,0) CALL FREAD (SCR4,IZ(IXLAM),1,0) Z(IX) = Z(IXIC) + .5*Z(IDELX) IXIC = IXIC + 1 IDELX = IDELX + 1 IXLAM = IXLAM + 1 24 IX = IX + 1 CALL CLOSE (SCR3,1) CALL CLOSE (SCR4,1) CALL CLOSE (SCR5,1) C C FILL IN ASSOCIATED BODIES C NA = NASS DO 26 I = 1,NP L = 0 DO 25 J = 1,6 IF (IZ(NA+J) .EQ. 0) GO TO 25 L = L + 1 IBT = IPC DO 27 K = 1,NB M = CAO2(IBT+1) IF (IZ(M) .NE. IZ(NA+J)) GO TO 28 IZ(INASB) = K INASB = INASB +1 GO TO 25 28 IBT = IBT + 2 27 CONTINUE GO TO 880 25 CONTINUE IZ(INAS) = L INAS = INAS + 1 NA = NA + 6 26 CONTINUE 31 CONTINUE IBC = IBC + 1 C C MOVE TO COMMON C DO 20 J = 1,16 20 IAX(J) = IZ(J+PC) IZ(PC+2) = ACSID ACSIB = ACSID X4 = X1 Y4 = Y1 + 1.0 Z4 = Z1 X43 = X12 IGID =-IGID CALL APDCS IGID =-IGID C C MOVE AERO CORD SYS TO ICPL C IF (ACSID .EQ. 0) GO TO 35 DO 34 I = 1,14 ICPL(I) = IZ(IACS+I-1) 34 CONTINUE 35 CONTINUE ASSIGN 85 TO IRET GO TO 29 C C FIND PAERO2 CARD C 29 CONTINUE IF (PA2S .EQ. 0) GO TO 990 DO 30 J = PA2S,PA2E,15 IF (PID .EQ. IZ(J)) GO TO 40 30 CONTINUE GO TO 990 40 PPC = J C C GET BODY TYPE AND NUMBER OF ELEMENTS C NSB = NSPAN NINT = NCHORD BET = IZ(PPC+1) DO 50 J = 1,3 IF (BET .EQ. TYPE(J)) GO TO 60 50 CONTINUE 60 BET = J LTH1 = IZ(PPC+7) LTH2 = IZ(PPC+8) NTH1 = 0 NTH2 = 0 KT1 = 0 IF (LSPAN .EQ. 0) GO TO 70 CALL APDOE (LSPAN,IZ,NAEF1,NAEF2,ISPAN,JSPAN) IF (ISPAN .EQ. 0) GO TO 950 NSB = JSPAN - 1 70 IF (LCHORD .EQ. 0) GO TO 79 CALL APDOE (LCHORD,IZ,NAEF1,NAEF2,ICHORD,JCHORD) IF (ICHORD .EQ. 0) GO TO 960 NINT = JCHORD - 1 79 IF (NINT .EQ. 0) GO TO 80 KT1 = KT1 + 1 IF (IZ(PPC+ 9) .EQ. 0) GO TO 920 IF (IZ(PPC+11) .EQ. 0) GO TO 75 KT1 = KT1 + 1 IF (IZ(PPC+13) .EQ. 0) GO TO 75 KT1 = KT1 + 1 75 IF (LTH1 .EQ. 0) GO TO 940 CALL APDOE (LTH1,IZ,NAEF1,NAEF2,ITH1,NTH1) IF (ITH1 .EQ. 0) GO TO 940 IF (LTH2 .EQ. 0) GO TO 80 CALL APDOE (LTH2,IZ,NAEF1,NAEF2,ITH2,NTH2) IF (ITH2 .EQ. 0) GO TO 930 80 IF (NSB .LT. 2) GO TO 970 GO TO IRET, (14,85) C C PUT IN TERMS FOR SOME BODY ARRAYS C 85 IZ(INBEA1) = NINT IF(IBC.GT.1 .AND. BET.LT.IZ(INBEA2-1)) GO TO 870 IZ(INBEA2) = BET IZ(INSBEA) = NSB Z(IZB) = RA1(3) Z(IYB) = RA1(2) Z(IZS) = RA1(3) Z(IYS) = RA1(2) Z(IAVR) = Z(PPC+3) Z(IARB) = Z(PPC+4) IZ(INFL)= KT1 IZ(INT121) = NTH1 IZ(INT122) = NTH2 INBEA1 = INBEA1 + 1 INBEA2 = INBEA2 + 1 INSBEA = INSBEA+1 IZB = IZB + 1 IYB = IYB + 1 IZS = IZS + 1 IYS = IYS + 1 IAVR = IAVR+ 1 IARB = IARB+ 1 INFL = INFL+ 1 INT121 = INT121 + 1 INT122 = INT122 + 1 C C ADD SOME MISC ARRAYS C IF (NTH1 .EQ. 0) GO TO 89 DO 86 I = 1,NTH1 Z(ITH1A) = Z(ITH1+I)*PIO180 86 ITH1A = ITH1A + 1 IF (NTH2 .EQ. 0) GO TO 88 DO 87 I = 1,NTH2 Z(ITH2A) = Z(ITH2+I)*PIO180 87 ITH2A = ITH2A + 1 88 K = PPC + 9 IF (IZ(K).NE.1 .AND. IZ(K+1).NE.NINT .AND. NTH2.EQ.0) GO TO 910 DO 81 I = 1,KT1 IZ(IFLA1) = IZ(K) IZ(IFLA2) = IZ(K+1) K = K + 2 IF (IZ(IFLA1) .GT. IZ(IFLA2)) GO TO 910 IF (IZ(IFLA2) .GT. NINT) GO TO 910 IF (I .EQ. 1) GO TO 82 IF (IZ(IFLA1) .LE. IZ(IFLA2-1)) GO TO 910 82 IFLA1 = IFLA1 + 1 IFLA2 = IFLA2 + 1 81 CONTINUE 89 LRSB = IZ(PPC+5) LRIB = IZ(PPC+6) IF (LRSB .EQ. 0) GO TO 91 CALL APDOE (LRSB,IZ,NAEF1,NAEF2,IRSB,NRSB) IF (IRSB .EQ. 0) GO TO 900 IF (NRSB .NE. NSB+1) GO TO 900 91 IF (LRIB .EQ. 0) GO TO 92 CALL APDOE (LRIB,IZ,NAEF1,NAEF2,IRIB,NRIB) IF (IRIB .EQ. 0) GO TO 890 IF (NRIB .NE. NINT+1) GO TO 890 92 CONTINUE WIDTH = Z(PPC+3) C C GENERATE ELEMENTS C EIDB = EID - 1 CIDBX = CIDBX + 1 VX1(2) = RA1(2) VX1(3) = RA1(3) C C PUT IN PROPER MASKS FOR USET C IF (BET .EQ. 1) GO TO 90 AUSET(2,2) = UK AUSET(6,2) = UK IF (BET .EQ. 2) GO TO 90 AUSET(3,2) = USA AUSET(5,2) = USA 90 CONTINUE C C BUMP NJ AND NK C NJA = NSB + NINT NKA = NSB*2 NJ = NJ + NJA NK = NK + NKA IZ(NCORE+1) = IZ(NCORE+1) + NJA IZ(NCORE+2) = IZ(NCORE+2) + NKA IF (BET .NE. 2) GO TO 94 NJ = NJ + NJA NK = NK + NKA IZ(NCORE+1) = IZ(NCORE+1) + NJA IZ(NCORE+2) = IZ(NCORE+2) + NKA 94 I = 1 95 EIDB = EIDB + 1 CID(1) = CIDBX CIDBX = CIDBX + 1 CID(2) = CIDBX CID(5) = EIDB C C GRID POINTS IN AERO SYSTEM C IF (I .NE. 1) GO TO 110 ASSIGN 110 TO BACK ICID = CID(1) IF (LSPAN .EQ. 0) VX1(1) = RA1(1) + (X12/NSB)*(I-1) IF (LSPAN .NE. 0) VX1(1) = RA1(1) + Z(ISPAN+I)*X12 OLDX = VX1(1) Z(IXLE) = OLDX Z(IXIS1) = OLDX IXIS1 = IXIS1 + 1 KK = 1 GO TO 130 110 ASSIGN 120 TO BACK ICID = CID(2) IF (LSPAN .EQ. 0) VX1(1) = RA1(1) + (X12/NSB)*I IF (LSPAN .NE. 0) VX1(1) = RA1(1) + Z(ISPAN+I+1)*X12 Z(IXTE ) = VX1(1) Z(IXIS2) = VX1(1) IXIS2 = IXIS2 + 1 IF (I .NE. 1) Z(IXIS1) = OLDX IF (I .NE. 1) IXIS1 = IXIS1 + 1 KK = 1 GO TO 130 120 ASSIGN 160 TO BACK C C A0 AND AOP C Z(IAO ) = WIDTH Z(IAOP) = 0.0 IF (LRSB .EQ. 0) GO TO 125 Z(IAO ) = (Z(IRSB+I ) + Z(IRSB+I+1))*.5 Z(IAOP) = (Z(IRSB+I+1) - Z(IRSB+I))/(VX1(1)-OLDX) 125 IAO = IAO + 1 IAOP = IAOP + 1 TEMP = (VX1(1)+OLDX)/2.0 OLDX = VX1(1) VX1(1) = TEMP ICID = CID(5) KK = 2 C C CONVERT TO BASIC C 130 IF (ACSID .EQ. 0) GO TO 140 CALL GMMATS (ACPL,3,3,0,VX1,3,1,0,VX2) DO 135 K = 1,3 135 VX2(K) = VX2(K) + RB1(K) GO TO 150 140 DO 145 K = 1,3 145 VX2(K) = VX1(K) C C PUT OUT BGPDT GPL USET C 150 CALL WRITE (BGPA,ACSIX,4,0) CALL WRITE (GPLA,ICID,1,0) CALL WRITE (USETA,AUSET(1,KK),6,0) C C BUMP POINTERS C PUT OUT SIL EQEXIN SILGA C NCRD = NCRD + 1 SILB = SILB + 6 ISILN = ISILN+ 6 LUSETA = SILB SILDX(2) = 10*SILB + 1 CALL WRITE (SILA,SILB,1,0) CALL WRITE (SCR2,ISILN,1,0) CALL WRITE (SCR2,SILB,1,0) CALL WRITE (SCR1,ICID,2,0) GO TO BACK, (110,120,160) C C PUT OUT ECT C 160 CID(1) = NCRD - 3 IF (I .EQ. 1) CID(1) = CID(1) + 1 CID(2) = NCRD - 1 CID(3) = CID(1) CID(4) = CID(2) CID(5) = NCRD CALL WRITE (ECTA,NECTA,6,0) I = I + 1 IF (I .LE. NSB) GO TO 95 C C INTEFERENCE CALCULATIONS AND ARRAYS C IF (NINT .EQ. 0) GO TO 170 P1 = 1.0/NINT DO 165 J = 1,NINT Z(IRIA) = WIDTH IF (LRIB .NE. 0) Z(IRIA) = .5*(Z(IRIB+J)+Z(IRIB+J+1)) IRIA = IRIA + 1 D1 = P1*(J-1) D2 = P1*J IF (LCHORD .NE. 0) D1 = Z(ICHORD+J ) IF (LCHORD .NE. 0) D2 = Z(ICHORD+J+1) Z(IDELX) = X12*(D2-D1) Z(IX) = RA1(1) + X12*(D1+D2)/2.0 IF (J .EQ. 1) Z(IXLE) = RA1(1) + D1*X12 IF (J .EQ. NINT) Z(IXTE) = RA1(1) + D2*X12 IDELX = IDELX + 1 IX = IX + 1 165 CONTINUE 170 CONTINUE IXLE = IXLE + 1 IXTE = IXTE + 1 IZ(PC+ 4) = NSB IZ(PC+ 5) = 1 IZ(PC+ 8) = 2 IZ(PC+16) = BET IF (BET .EQ. 1) GO TO 190 AUSET(2,2) = USA AUSET(6,2) = USA AUSET(3,2) = UK AUSET(5,2) = UK 190 IF (IBC .EQ. NB) CALL WRITE (ACPT,IZ(NCORE),NWR,1) 191 IF (IOPT .EQ. 1) GO TO 230 IPC = IPC + 2 IF (IPC .LT. NCAM2*2) GO TO 10 GO TO 1000 C C CAERO2 WITH CAERO1 ATTACHED C 200 IPC = 1 IDS = ID 210 IF (CAO2(IPC) .EQ. ID) GO TO 11 220 IPC = IPC + 2 IF (IPC .LT. NCAM2*2) GO TO 210 GO TO 1000 230 CAO2(IPC) = -CAO2(IPC) GO TO 220 1000 RETURN C C ERROR MESSAGES C 912 CALL MESAGE (-61,0,NAM) 870 WRITE (NOT,8777) UFM,EID 8777 FORMAT (A23,' 2273, CAERO2',I9,' NOT INPUT IN Z, ZY, Y SEQUENCE.') GO TO 912 880 WRITE (NOT,8888) UFM,IZ(NA+J),CAO2(IBT) 8888 FORMAT (A23,' 2274, ASSOCIATED BODY',I9,' WAS NOT FOUND WITH ', 1 'CAERO2 GROUP',I9,1H.) GO TO 912 890 J = LRIB GO TO 941 900 J = LRSB GO TO 941 910 WRITE (NOT,9111) UFM,EID 9111 FORMAT (A23,' 2275, CAERO2',I9,' HAS INCONSISTENT USE FOR THI OR', 1 ' THN, OR LTH2 IS REQUIRED.') GO TO 912 920 WRITE (NOT,9222) UFM,EID 9222 FORMAT (A23,' 2276, THI1 AND THN1 REQUIRED FOR CAERO2',I9,1H.) GO TO 912 930 J = LTH2 GO TO 941 940 J = LTH1 941 WRITE (NOT,9999) UFM,J,EID 9999 FORMAT (A23,' 2429, WRONG NUMBER OF WORDS OR CARD NOT FOUND FOR', 1 ' CARD ID',I9, /28X,'ASSOCIATED WITH CAERO2 ID',I9) GO TO 912 950 CALL EMSG (0,2326,1,2,0) WRITE (NOT,951) EID,LSPAN 951 FORMAT (10X,'CAERO2 ELEMENT NO.',I9,' REFERENCES AEFACT CARD NO.', 1 I9,' WHICH DOES NOT EXIST.') GO TO 912 960 CALL EMSG (0,2327,1,2,0) WRITE (NOT,951) EID,LCHORD GO TO 912 970 WRITE (NOT,971) UFM,EID 971 FORMAT (A23,' 2277, CAERO2 BODY',I9,' DOES NOT HAVE ENOUGH ', 1 'SLENDER ELEMENTS.') GO TO 912 990 CALL EMSG (0,2323,1,2,0) WRITE (NOT,991) PID,EID 991 FORMAT (10X,'PAERO2 CARD NO.',I9,' REFERENCED BY CAERO2 CARD NO.', 1 I9,' BUT DOES NOT EXIST.') GO TO 912 END ================================================ FILE: mis/apd3.f ================================================ SUBROUTINE APD3 C EXTERNAL ORF LOGICAL CNTRL1,CNTRL2,CRANK1,CRANK2 INTEGER NAM(2),IZ(1),BACK,PSPA,RET,IC(16),EID,PID,CIDBX, 1 SILB,SCR1,ECTA,BGPA,GPLA,USETA,SILA,ACPT,BUF10, 2 CA3S,CA3E,PA3S,PA3E,AUSET(6,2),SILC,ORF,USA,UK, 3 EIDB,SILDX(2),ACSIX(4),CID(5),NECTA(2) REAL VX1(3),VX2(3),ACPL(3,3),RB1(3) DIMENSION IHEAD(10),BND(24) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / NK,NJ,LUSETA COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID, 1 X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM, 2 NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD,SCR1, 3 SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,SILA, 4 CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN, 5 NCAM,NAEF1,NAEF2, 6 NCA1,NCA2,CA2S,CA2E,CA3S,CA3E,CA4S,CA4E, 7 NPA1,NPA2,PA2S,PA2E,PA3S,PA3E,PA4S,PA4E COMMON /APD1D / ICPL(14),YP4,S1,C1,XP2,XP3,XP4,RA1(3) COMMON /ZZZZZZ/ Z(1) COMMON /BITPOS/ IBIT(64) COMMON /TWO / ITWO(32) COMMON /SYSTEM/ SYSBUF,NOT EQUIVALENCE (ICPL(3),RB1(1)),(ICPL(6),ACPL(1,1)), 1 (NECTA(1),EIDB),(NECTA(2),CID(1)), 2 (ACSIX(2),VX2(1)),(SILDX(1),ICID), 3 (Z(1),IZ(1)),(EID,IC(1)), 4 (CRANK1,IHEAD(3)),(CRANK2,IHEAD(4)), 5 (CNTRL1,IHEAD(5)),(CNTRL2,IHEAD(6)) DATA NAM / 4HAPD3,4H / C NOGO = 0 LCA = 16 NC3 = ((CA3E-CA3S)+1)/LCA NCAM = NCAM+NC3 C C INITIAL SETUP C I17 = IBIT(17) I18 = IBIT(18) I19 = IBIT(19) I20 = IBIT(20) PSPA= ORF(ITWO(I17),ITWO(I20)) USA = ORF(PSPA,ITWO(I18)) UK = ORF(ITWO(I19),ITWO(I20)) DO 5 J = 1,2 DO 5 I = 1,6 5 AUSET(I,J) = USA AUSET(3,2) = UK IHEAD(1) = 3 SILC = SILB C C LOOP ON NC3 MOVING CAERO3 CARD TO COMMON C DO 400 I = 1,NC3 N = (I-1)*LCA - 1 DO 10 J = 1,LCA IC(J) = IZ(CA3S+N+J) 10 CONTINUE MCSTM = MCSTM + 1 IZ(CA3S+N+2) = MCSTM IZ(CA3S+N+8) = 3 ACSIX(1) = MCSTM C C GET POINTS IN PROPER COORD SYSTEM C CALL APDCS C C FIND PAERO3 CARD C J = PA3S 20 IF (J .GE. PA3E) GO TO 999 IF (IZ(J) .EQ. PID) GO TO 30 J = J + 4 + IZ(J+3) GO TO 20 30 IPID = J IHEAD(7) = IZ(IPID+1) CRANK1 = .FALSE. CRANK2 = .FALSE. IF (Z(IPID+5) .GT. 0.0) CRANK1 = .TRUE. IF (Z(IPID+7) .GT. 0.0) CRANK2 = .TRUE. CNTRL1 = .FALSE. CNTRL2 = .FALSE. IF (IZ(IPID+2) .GT. 0 ) CNTRL1 = .TRUE. IF (IZ(IPID+2) .EQ. 2 ) CNTRL2 = .TRUE. C C GENERATE AERO POINTS FOR CAERO3 PUT POINTS 1-4 IN BGPDT C DO 40 J = 13,24 40 BND(J) = 0.0 VX1(3) = 0.0 KK = 1 ASSIGN 50 TO BACK IBS = NCRD + 1 VX1(1) = 0.0 VX1(2) = 0.0 BND(1) = 0.0 BND(2) = 0.0 GO TO 300 50 ASSIGN 60 TO BACK VX1(1) = X12 VX1(2) = 0.0 BND(7) = X12 BND(8) = 0.0 GO TO 300 60 VX1(1) = XP4 VX1(2) = YP4 BND(5) = XP4 BND(6) = YP4 ASSIGN 70 TO BACK GO TO 300 70 ASSIGN 80 TO BACK VX1(1) = XP4 + X43 VX1(2) = YP4 BND(11) = VX1(1) BND(12) = VX1(2) GO TO 300 C C ADD POINTS 5 AND 6 IF THEY EXIST C 80 BND(3) = BND(5) BND(4) = BND(6) IF (.NOT.CRANK1) GO TO 90 VX1(1) = Z(IPID+4) VX1(2) = Z(IPID+5) BND(3) = VX1(1) BND(4) = VX1(2) ASSIGN 90 TO BACK GO TO 300 90 BND(9) = BND(11) BND(10) = BND(12) IF (.NOT.CRANK2) GO TO 100 VX1(1) = Z(IPID+6) VX1(2) = Z(IPID+7) BND(9) = VX1(1) BND(10)= VX1(2) ASSIGN 100 TO BACK GO TO 300 C C ADD CONTROLS C 100 IF (.NOT.CNTRL1) GO TO 120 ASSIGN 101 TO BACK VX1(1) = Z(IPID+8) VX1(2) = Z(IPID+9) BND(15) = VX1(1) BND(16) = VX1(2) GO TO 300 101 ASSIGN 102 TO BACK VX1(1) = Z(IPID+10) VX1(2) = Z(IPID+11) BND(13) = VX1(1) BND(14) = VX1(2) GO TO 300 102 ASSIGN 103 TO BACK VX1(1) = Z(IPID+12) VX1(2) = Z(IPID+13) BND(17) = VX1(1) BND(18) = VX1(2) GO TO 300 103 ASSIGN 104 TO BACK VX1(1) = Z(IPID+14) VX1(2) = Z(IPID+15) BND(21) = VX1(1) BND(22) = VX1(2) GO TO 300 104 IF (.NOT.CNTRL2) GO TO 120 ASSIGN 105 TO BACK VX1(1) = Z(IPID+16) VX1(2) = Z(IPID+17) BND(19) = VX1(1) BND(20) = VX1(2) GO TO 300 105 ASSIGN 120 TO BACK VX1(1) = Z(IPID+18) VX1(2) = Z(IPID+19) BND(23) = VX1(1) BND(24) = VX1(2) GO TO 300 C C CONNECT POINT TO BOXES FOR ECTA C 120 EIDB = EID CID(1) = IBS CID(2) = IBS + 1 CID(5) = IBS IF (CRANK1) GO TO 121 IF (CRANK2) GO TO 122 CID(3) = IBS + 3 CID(4) = IBS + 2 GO TO 124 121 IF (CRANK2) GO TO 123 CID(3) = IBS + 3 CID(4) = IBS + 4 GO TO 124 122 CID(3) = IBS + 4 CID(4) = IBS + 2 GO TO 124 123 CID(3) = IBS + 5 CID(4) = IBS + 4 124 CONTINUE CALL WRITE (ECTA,NECTA,6,0) EIDB = EIDB + 1 CID(1) = IBS + 2 CID(2) = IBS + 3 CID(5) = IBS + 2 IBS = IBS + 4 IF (.NOT.CRANK1 .AND. .NOT.CRANK2) GO TO 130 IF (CRANK1 .AND. CRANK2) GO TO 125 CID(3) = IBS CID(4) = CID(5) IBS = IBS + 1 GO TO 129 125 CID(3) = IBS + 1 CID(4) = IBS IBS = IBS + 2 129 CALL WRITE (ECTA,NECTA,6,0) EIDB = EIDB + 1 130 IF (.NOT.CNTRL1) GO TO 135 CID(1) = IBS + 2 CID(2) = IBS + 3 CID(3) = IBS + 1 CID(4) = IBS CID(5) = IBS + 2 CALL WRITE (ECTA,NECTA,6,0) EIDB = EIDB + 1 IF (.NOT.CNTRL2) GO TO 135 CID(3) = IBS+5 CID(4) = IBS+4 CALL WRITE (ECTA,NECTA,6,0) C C FIND CONTROL POINTS FOR ELEMENT C 135 CALL APDOE (NSPAN,IZ,NAEF1,NAEF2,ILW,NWW) IF (ILW .EQ. 0) GO TO 998 IF (NWW .LT. 6) GO TO 998 IF (MOD(NWW,2) .NE. 0) GO TO 998 ILC1 = 0 ILC2 = 0 NWC1 = 0 NWC2 = 0 IF (.NOT.CNTRL1) GO TO 140 CALL APDOE (NCHORD,IZ,N AEF1,NAEF2,ILC1,NWC1) IF (ILC1 .EQ. 0) GO TO 997 IF (NWC1 .LT. 6) GO TO 997 IF (MOD(NWC1,2) .NE. 0) GO TO 997 IF (.NOT.CNTRL2) GO TO 140 CALL APDOE (LSPAN,IZ,NAEF1,NAEF2,ILC2,NWC2) IF (ILC2 .EQ. 0) GO TO 996 IF (NWC2 .LT. 6) GO TO 996 IF (MOD(NWC2,2) .NE. 0) GO TO 996 140 IHEAD( 8) = NWW/2 IHEAD( 9) = NWC1/2 IHEAD(10) = NWC2/2 IHEAD( 2) = IHEAD(8)+IHEAD(9)+IHEAD(10) NK = NK + IHEAD(2) NJ = NJ + IHEAD(2) IZ(CA3S+N+4) = IHEAD(2) IZ(CA3S+N+5) = 1 C C START THE ACPT AND ADD THE CONTROL POINTS IN A LOOP C CALL WRITE (ACPT,IHEAD,10,0) CALL WRITE (ACPT,BND,24,0) EIDB = EID - 1 KK = 2 NN = NWW KKK = ILW - 1 ASSIGN 150 TO RET GO TO 190 150 IF (IHEAD(9) .EQ. 0) GO TO 180 ASSIGN 160 TO RET NN = NWC1 KKK = ILC1 - 1 GO TO 190 160 IF (IHEAD(10) .EQ. 0) GO TO 180 ASSIGN 180 TO RET NN = NWC2 KKK = ILC2 - 1 GO TO 190 180 CALL WRITE (ACPT,0,0,1) C C GEOMETRY CHECKS C NM = 0 IF (BND(1) .GT. BND(3)) NM = 1 IF (BND(3) .GT. BND(5)) NM = 1 IF (BND(15).GT. BND(17)) NM = 1 IF (CNTRL2 .AND. BND(17).GT.BND(19)) NM = 1 IF (BND(16) .LT. BND(14)) NM = 1 IF (BND(18) .LT. BND(22)) NM = 1 IF (BND(20) .LT. BND(24)) NM = 1 IF (NM .EQ. 1) NOGO = 1 IF (NM .EQ. 1) WRITE (NOT,1851) UFM,EID 1851 FORMAT (A23,' 2278, PLANFORM GEOMETRY FOR CAERO3 ID',I9, 1 ' IS IN ERROR', /5X,'CHECK SWEEP ANGLE FOR LEADING EDGE ', 2 'OR CONTROL SURFACE HINGE LINE.') GO TO 400 C C PUT CONTROL POINTS IN TABLE C 190 J = 2 195 CONTINUE VX1(1) = Z(KKK+J ) VX1(2) = Z(KKK+J+1) CALL WRITE (ACPT,VX1,2,0) ASSIGN 200 TO BACK GO TO 300 200 CONTINUE J = J + 2 IF (J .LE. NN) GO TO 195 GO TO RET, (150,160,180) C C BGPA GPL USET C 300 CALL GMMATS (ACPL,3,3,0,VX1,3,1,0,VX2) DO 310 K = 1,3 310 VX2(K) = VX2(K) + RB1(K) CALL WRITE (BGPA,ACSIX,4,0) IF (KK .EQ. 2) GO TO 320 CIDBX = CIDBX + 1 ICID = CIDBX GO TO 330 320 EIDB = EIDB + 1 ICID = EIDB 330 CALL WRITE (GPLA,ICID,1,0) CALL WRITE (USETA,AUSET(1,KK),6,0) C C SIL AND EQEXIN C NCRD = NCRD + 1 SILC = SILC + 6 ISILN = ISILN + 6 LUSETA= SILC SILDX(2) = 10*SILC + 1 CALL WRITE (SILA,SILC,1,0) CALL WRITE (SCR2,ISILN,1,0) CALL WRITE (SCR2,SILC,1,0) CALL WRITE (SCR1,ICID,2,0) GO TO BACK, (50,60,70,80,90,100,101,102,103,104,105,120,200) 400 CONTINUE SILB = SILC IF (NOGO .EQ. 1) GO TO 1001 1000 RETURN C C ERROR MESSAGES C 996 I = LSPAN GO TO 9941 997 I = NCHORD GO TO 9941 998 I = NSPAN 9941 WRITE (NOT,9942) UFM,I,EID 9942 FORMAT (A23,' 2429, WRONG NUMBER OF WORDS OR CARD NOT FOUND FOR ', 1 'CARD ID',I9, /29X,'ASSOCIATED WITH CAERO3 ID',I9) GO TO 1001 999 CALL EMSG (0,2323,1,2,0) WRITE (NOT,891) PID,EID 891 FORMAT (10X,16HPAERO3 CARD NO. ,I8,31H REFERENCED BY CAERO3 CARD N *O. ,I8,15H DOES NOT EXIST) 1001 CALL MESAGE (-61,0,NAM) GO TO 1000 END ================================================ FILE: mis/apd4.f ================================================ SUBROUTINE APD4 C EXTERNAL ORF INTEGER NAM(2),IZ(1),BACK,PSPA,IC(16),EID,PID,CIDBX,SILB, 1 SCR1,ECTA,BGPA,GPLA,USETA,SILA,ACPT,BUF10,CA4S, 2 CA4E,PA4S,PA4E,AUSET(6,2),SILC,ORF,USA,UK,EIDB, 3 SILDX(4),ACSIX(4),CID(5),NECTA(2) REAL VX1(3),VX2(3),ACPL(3,3),RB1(3) DIMENSION AI(6),HEAD(9),IHEAD(9) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / NK,NJ,LUSETA COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID, 1 X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM, 2 NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD,SCR1, 3 SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,SILA, 4 CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN, 5 NCAM,NAEF1,NAEF2, 6 NCA1,NCA2,CA2S,CA2E,CA3S,CA3E,CA4S,CA4E, 7 NPA1,NPA2,PA2S,PA2E,PA3S,PA3E,PA4S,PA4E COMMON /APD1D / ICPL(14),YP4,S1,C1,XP2,XP3,XP4,RA1(3) COMMON /ZZZZZZ/ Z(1) COMMON /BITPOS/ IBIT(64) COMMON /TWO / ITWO(32) COMMON /SYSTEM/ SYSBUF,NOT EQUIVALENCE (ICPL(3),RB1(1)),(ICPL(6),ACPL(1,1)), 1 (NECTA(1),EIDB),(NECTA(2),CID(1)), 2 (ACSIX(2),VX2(1)),(Z(1),IZ(1)),(EID,IC(1)), 3 (SILDX(1),ICID),(SILDX(3),SILC), 4 (AI(1),DY),(AI(2),BLOC),(AI(3),D),(AI(4),CA), 5 (AI(5),GAP),(AI(6),NSIZE),(HEAD(1),IHEAD(1)) DATA NAM / 4HAPD4,4H / C LCA = 16 NC4 = ((CA4E-CA4S)+1)/LCA NCAM = NCAM + NC4 C C INITIAL SETUP C I17 = IBIT(17) I18 = IBIT(18) I19 = IBIT(19) I20 = IBIT(20) PSPA= ORF(ITWO(I17),ITWO(I20)) USA = ORF(PSPA,ITWO(I18)) UK = ORF(ITWO(I19),ITWO(I20)) DO 5 J = 1,2 DO 5 I = 1,6 5 AUSET(I,J) = USA AUSET(3,2) = UK AUSET(5,2) = UK IHEAD(1) = 4 SILC = SILB C C LOOP ON NC4 MOVING CAERO4 CARD TO COMMON C DO 400 I = 1,NC4 NTOT = 0 N = (I-1)*LCA - 1 DO 10 J = 1,LCA IC(J) = IZ(CA4S+N+J) 10 CONTINUE MCSTM = MCSTM + 1 IZ(CA4S+N+2) = MCSTM IZ(CA4S+N+8) = 4 ACSIX(1) = MCSTM C C FIND PAERO4 CARD C CALL APDOE (PID,IZ,PA4S,PA4E,IPID,NPC) IF (IPID .EQ. 0) GO TO 999 C C FIND NUMBER OF STRIPS C ISPAN = NSPAN IAST = 0 IF (NSPAN .NE. 0) GO TO 20 CALL APDOE (NCHORD,IZ,NAEF1,NAEF2,IAST,NSPAN) IF (IAST .EQ. 0) GO TO 998 NSPAN = NSPAN - 1 IAST = IAST + 1 20 IZ(CA4S+N+4) = NSPAN IZ(CA4S+N+5) = 1 IPP = IPID + 5 NPC = NPC - 4 NPC = NPC/3 IF (NPC .LT. NSPAN ) GO TO 997 IHEAD(8) = NSPAN C C GET POINTS IN PROPER COORD SYSTEM C CALL APDCS HEAD(9) = 1.0/SQRT(1.0+((XP4+.25*(X43-X12))/YP4)**2) IF (NEXT+6*NSPAN .GT. LEFT) GO TO 996 IOC = NEXT C C GENERATE DATA FOR BOXES C NCRDP = NCRD FSJ1 = APDF(Z(IAST),1,ISPAN) YJ1 = FSJ1*YP4 DJ1 = FSJ1*XP4 CJ1 = X12 + FSJ1*(X43-X12) XIJ1 = DJ1 XI1J1 = DJ1 + CJ1 EIDB = EID - 1 DO 100 J = 1,NSPAN YJ = YJ1 FSJ1 = APDF(Z( IAST),J+1,ISPAN) YJ1 = FSJ1*YP4 DJ1 = FSJ1*XP4 CJ1 = X12 + FSJ1*(X43-X12) DY = (YJ1 - YJ) YA = .5*DY + YJ YSP = YA CLOC = X12 - (X12-X43)*YA/YP4 BLOC = CLOC*.5 DOC = Z(IPP) CAOC = Z(IPP+1) GAPOC = Z(IPP+2) IPP = IPP + 3 D = DOC*CLOC CA = CAOC*CLOC GAP = GAPOC*CLOC NSIZE = 2 IF (CAOC .NE. 0.0) NSIZE = 3 NJ = NJ + NSIZE NK = NK + NSIZE NTOT = NTOT + NSIZE KK = 0 DO 40 K = 1,6 Z(IOC+J+KK) = AI(K) KK = KK + NSPAN 40 CONTINUE C C EXTERNAL ID S C EIDB = EIDB + 1 CID(1) = CIDBX + 1 + 2*(J-1) CID(2) = CID(1) + 1 CID(3) = CID(1) + 2 CID(4) = CID(3) + 1 CID(5) = EIDB NCID = CID(4) C C BGPDT , SPL, AND USET C XIJ = XIJ1 XI1J = XI1J1 XIJ1 = DJ1 XI1J1 = DJ1 + CJ1 XIC = (XIJ+XIJ1+BLOC)*.5 VX1(3) = 0 IF (J .NE. 1) GO TO 310 ASSIGN 300 TO BACK ICID = CID(1) VX1(1) = XIJ VX1(2) = YJ KK = 1 GO TO 340 300 ASSIGN 310 TO BACK ICID = CID(2) VX1(1) = XI1J VX1(2) = YJ KK = 1 GO TO 340 310 ASSIGN 320 TO BACK ICID = CID(3) VX1(1) = XIJ1 VX1(2) = YJ1 KK = 1 GO TO 340 320 ASSIGN 330 TO BACK ICID = CID(4) VX1(1) = XI1J1 VX1(2) = YJ1 KK = 1 GO TO 340 330 ASSIGN 360 TO BACK ICID = CID(5) VX1(1) = XIC IF (NSIZE .EQ. 3) AUSET(6,2) = UK VX1(2) = YSP KK = 2 340 CALL GMMATS (ACPL,3,3,0,VX1,3,1,0,VX2) DO 350 K = 1,3 350 VX2(K) = VX2(K) + RB1(K) CALL WRITE (BGPA,ACSIX,4,0) CALL WRITE (GPLA,ICID,1,0) CALL WRITE (USETA,AUSET(1,KK),6,0) C C SIL AND EQEXIN C NCRD = NCRD + 1 SILC = SILC + 6 ISILN = ISILN +6 SILDX(4) = ISILN LUSETA = SILC SILDX(2) = 10*SILC + 1 CALL WRITE (SILA,SILC,1,0) CALL WRITE (SCR2,ISILN,1,0) CALL WRITE (SCR2,SILC,1,0) CALL WRITE (SCR1,ICID,2,0) GO TO BACK, (300,310,320,330,360) C C ECT C 360 CID(1) = IAPD(1,J ,1,NCRDP) CID(2) = IAPD(2,J ,1,NCRDP) CID(4) = IAPD(1,J+1,1,NCRDP) CID(3) = IAPD(2,J+1,1,NCRDP) CID(5) = CID(3) + 1 CALL WRITE (ECTA,NECTA(1),6,0) AUSET(6,2) = USA 100 CONTINUE CIDBX = NCID C C PUT OUT ACPT REC C IHEAD(2) = NTOT IHEAD(3) = IZ(IPID+1) LCLA = IHEAD(3) IHEAD(4) = IZ(IPID+2) IHEAD(5) = IZ(IPID+3) ICIRC = IHEAD(5) IHEAD(6) = IZ(IPID+4) IHEAD(7) = 0 IL = 0 IN = NSPAN + 1 C C PROPERTY DATA C IF (LCLA.EQ.0 .AND. ICIRC.EQ.0) GO TO 70 IF (LCLA .EQ. 0) GO TO 50 CALL APDOE (IHEAD(4),IZ,NAEF1,NAEF2,IL,NW) IF (IL .EQ. 0) GO TO 994 IF (MOD(NW,IN) .NE. 0) GO TO 994 IHEAD(7) = NW/IN GO TO 70 50 IF (ICIRC .EQ. 0) GO TO 70 CALL APDOE (IHEAD(6),IZ,NAEF1,NAEF2,IL,NW) IF (IL .EQ. 0) GO TO 995 IN = 2 + 2*ICIRC IF (MOD(NW,IN) .NE. 0) GO TO 995 IHEAD(7) = NW/IN 70 CALL WRITE (ACPT,IHEAD,9,0) CALL WRITE (ACPT,Z(IOC+1),NSPAN*6,0) IF (IL .NE. 0) CALL WRITE (ACPT,Z(IL+1),NW,0) CALL WRITE (ACPT,0,0,1) 400 CONTINUE SILB = SILC 1001 RETURN C C ERROR MESSAGES C 994 I = IHEAD(4) 9941 WRITE (NOT,9942) UFM,I,EID 9942 FORMAT (A23,' 2429, WRONG NUMBER OF WORDS OR CARD NOT FOUND FOR ', 1 'CARD ID',I9, /29X,'ASSOCIATED WITH CAERO4 ID',I9) GO TO 1000 995 I = IHEAD(6) GO TO 9941 996 CALL MESAGE (-8,0,NAM) 997 I = PID GO TO 9941 998 I = NCHORD GO TO 9941 999 CALL EMSG (0,2323,1,2,0) WRITE (NOT,891) PID,EID 891 FORMAT (10X,16HPAERO4 CARD NO. ,I8,31H REFERENCED BY CAERO4 CARD N *O. ,I8,15H DOES NOT EXIST) GO TO 1000 1000 CALL MESAGE (-61,0,NAM) GO TO 1001 END ================================================ FILE: mis/apd5.f ================================================ SUBROUTINE APD5 C EXTERNAL ORF INTEGER NAM(2),IZ(1),BACK,PSPA,IC(16),EID,PID,CIDBX,SILB, 1 SCR1,ECTA,BGPA,GPLA,USETA,SILA,ACPT,BUF10,CA5S, 2 CA5E,PA5S,PA5E,AUSET(6,2),SILC,ORF,USA,UK,EIDB, 3 SILDX(4),ACSIX(4),CID(5),NECTA(2) REAL VX1(3),VX2(3),ACPL(3,3),RB1(3) DIMENSION AI(3),HEAD(10),IHEAD(10) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / NK,NJ,LUSETA COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,NTHRY,NTHICK,IGID, 1 X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM, 2 NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD,SCR1, 3 SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,SILA, 4 CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN, 5 NCAM,NAEF1,NAEF2, 6 NCA1,NCA2,CA2S,CA2E,CA3S,CA3E,CA4S,CA4E, 7 NPA1,NPA2,PA2S,PA2E,PA3S,PA3E,PA4S,PA4E,CA5S,CA5E, 8 PA5S,PA5E COMMON /APD1D / ICPL(14),YP4,S1,C1,XP2,XP3,XP4,RA1(3) COMMON /ZZZZZZ/ Z(1) COMMON /BITPOS/ IBIT(64) COMMON /TWO / ITWO(32) COMMON /SYSTEM/ SYSBUF,NOT EQUIVALENCE (ICPL(3),RB1(1)),(ICPL(6),ACPL(1,1)), 1 (NECTA(1),EIDB),(NECTA(2),CID(1)), 2 (ACSIX(2),VX2(1)),(Z(1),IZ(1)),(EID,IC(1)), 3 (SILDX(1),ICID),(SILDX(3),SILC), 4 (AI(1),DY),(AI(2),BLOC),(AI(3),CA), 5 (HEAD(1),IHEAD(1)) DATA NAM / 4HAPD5,4H / C LCA = 16 NC5 = ((CA5E-CA5S)+1)/LCA NCAM = NCAM + NC5 C C INITIAL SETUP C I17 = IBIT(17) I18 = IBIT(18) I19 = IBIT(19) I20 = IBIT(20) PSPA = ORF(ITWO(I17),ITWO(I20)) USA = ORF(PSPA,ITWO(I18)) UK = ORF(ITWO(I19),ITWO(I20)) DO 5 J = 1,2 DO 5 I = 1,6 5 AUSET(I,J) = USA AUSET(3,2) = UK AUSET(5,2) = UK IHEAD(1) = 5 SILC = SILB C C LOOP ON NC5 MOVING CAERO5 CARD TO COMMON C DO 400 I = 1,NC5 NTOT = 0 N = (I-1)*LCA - 1 DO 10 J = 1,LCA IC(J) = IZ(CA5S+N+J) 10 CONTINUE MCSTM = MCSTM + 1 IZ(CA5S+N+2) = MCSTM IZ(CA5S+N+8) = 5 ACSIX(1) = MCSTM C C FIND PAERO5 CARD C CALL APDOE (PID,IZ,PA5S,PA5E,IPID,NPC) IF (IPID .EQ. 0) GO TO 999 C C FIND NUMBER OF STRIPS C ISPAN = NSPAN IAST = 0 IF (NSPAN .NE. 0) GO TO 20 CALL APDOE (NCHORD,IZ,NAEF1,NAEF2,IAST,NSPAN) IF (IAST .EQ. 0) GO TO 998 NSPAN = NSPAN - 1 IAST = IAST + 1 20 IZ(CA5S+N+4) = NSPAN IZ(CA5S+N+5) = 1 IPP = IPID + 7 NPC = NPC - 6 IF (NPC .LT. NSPAN) GO TO 997 IHEAD(9) = NSPAN C C GET POINTS IN PROPER COORD SYSTEM C CALL APDCS HEAD(10) = SQRT(1.0+(XP4/YP4)**2) IF (NEXT+3*NSPAN .GT. LEFT) GO TO 996 IOC = NEXT C C GENERATE DATA FOR BOXES C NCRDP= NCRD FSJ1 = APDF(Z(IAST),1,ISPAN) YJ1 = FSJ1*YP4 DJ1 = FSJ1*XP4 CJ1 = X12 + FSJ1*(X43-X12) XIJ1 = DJ1 XI1J1= DJ1 + CJ1 EIDB = EID - 1 DO 100 J = 1,NSPAN YJ = YJ1 FSJ1 = APDF(Z(IAST),J+1,ISPAN) YJ1 = FSJ1*YP4 DJ1 = FSJ1*XP4 CJ1 = X12 + FSJ1*(X43-X12) DY = YJ1 - YJ YA = .5*DY + YJ YSP = YA CLOC = X12 - (X12-X43)*YA/YP4 BLOC = CLOC*.5 CAOC = Z(IPP) IPP = IPP + 1 CA = CAOC*CLOC NSIZE= 2 IF (CAOC .NE. 0.0) NSIZE = 3 NJ = NJ + NSIZE NK = NK + NSIZE NTOT = NTOT + NSIZE KK = 0 DO 40 K = 1,3 Z(IOC+J+KK) = AI(K) KK = KK + NSPAN 40 CONTINUE C C EXTERNAL ID S C EIDB = EIDB + 1 CID(1) = CIDBX + 1 + 2*(J-1) CID(2) = CID(1) + 1 CID(3) = CID(1) + 2 CID(4) = CID(3) + 1 CID(5) = EIDB NCID = CID(4) C C BGPDT, SPL, AND USET C XIJ = XIJ1 XI1J = XI1J1 XIJ1 = DJ1 XI1J1= DJ1 + CJ1 XIC = (XIJ+XIJ1+BLOC)*.5 VX1(3) = 0 IF (J .NE. 1) GO TO 310 ASSIGN 300 TO BACK ICID = CID(1) VX1(1) = XIJ VX1(2) = YJ KK = 1 GO TO 340 300 ASSIGN 310 TO BACK ICID = CID(2) VX1(1) = XI1J VX1(2) = YJ KK = 1 GO TO 340 310 ASSIGN 320 TO BACK ICID = CID(3) VX1(1) = XIJ1 VX1(2) = YJ1 KK = 1 GO TO 340 320 ASSIGN 330 TO BACK ICID = CID(4) VX1(1) = XI1J1 VX1(2) = YJ1 KK = 1 GO TO 340 330 ASSIGN 360 TO BACK ICID = CID(5) VX1(1) = XIC IF (NSIZE .EQ. 3) AUSET(6,2) = UK VX1(2) = YSP KK = 2 340 CALL GMMATS (ACPL,3,3,0,VX1,3,1,0,VX2) DO 350 K = 1,3 350 VX2(K) = VX2(K) + RB1(K) CALL WRITE (BGPA,ACSIX,4,0) CALL WRITE (GPLA,ICID,1,0) CALL WRITE (USETA,AUSET(1,KK),6,0) C C SIL AND EQEXIN C NCRD = NCRD + 1 SILC = SILC + 6 ISILN = ISILN +6 SILDX(4) = ISILN LUSETA = SILC SILDX(2) = 10*SILC + 1 CALL WRITE (SILA,SILC,1,0) CALL WRITE (SCR2,ISILN,1,0) CALL WRITE (SCR2,SILC,1,0) CALL WRITE (SCR1,ICID,2,0) GO TO BACK, (300,310,320,330,360) C C ECT C 360 CID(1) = IAPD(1,J ,1,NCRDP) CID(2) = IAPD(2,J ,1,NCRDP) CID(4) = IAPD(1,J+1,1,NCRDP) CID(3) = IAPD(2,J+1,1,NCRDP) CID(5) = CID(3) + 1 CALL WRITE (ECTA,NECTA(1),6,0) AUSET(6,2) = USA 100 CONTINUE CIDBX = NCID C C PUT OUT ACPT REC C IHEAD(2) = NTOT IHEAD(4) = NTHRY IF (NTHRY .EQ. 1) HEAD(10) = 0.0 IHEAD(5) = NTHICK IHEAD(6) = IZ(IPID+1) IHEAD(7) = IZ(IPID+3) IHEAD(8) = IZ(IPID+5) C C PROPERTY DATA C IL = 0 IN = NSPAN + 1 C C ALPHAS C CALL APDOE (IZ(IPID+2),IZ,NAEF1,NAEF2,IL,NW) IF (IL .EQ. 0) GO TO 994 IF (IHEAD(6) .EQ. 1) GO TO 50 IHEAD(3) = NW/IN IF (MOD(NW,IN) .NE. 0) GO TO 994 IHEAD(6) = NSPAN GO TO 60 50 IHEAD(3) = NW/2 IF (MOD(NW,2) .NE. 0) GO TO 994 C C INTEGRALS C 60 INT = 0 ITN = 0 IF (NTHICK .EQ. 0) GO TO 70 CALL APDOE (NTHICK,IZ,NAEF1,NAEF2,INT,NWI) IF (INT .EQ. 0) GO TO 995 IF (IHEAD(7).EQ.0 .AND. NWI.LT. 6) GO TO 995 IF (IHEAD(7).NE.0 .AND. NWI.NE.12) GO TO 995 GO TO 90 C C TAUS C 70 CALL APDOE (Z(IPID+6),IZ,NAEF1,NAEF2,ITN,NWT) IF (INT .EQ. 0) GO TO 993 IF (IHEAD(8) .EQ. 0) GO TO 993 IF (IHEAD(8) .EQ. 1) GO TO 80 IF (NWT .NE. 3*NSPAN) GO TO 993 IHEAD(8) = NSPAN GO TO 90 80 IF (NWT .NE. 3) GO TO 993 C C THICKNESSES C 90 ITK = 0 IF (NTHICK.NE.0 .AND. IHEAD(7).EQ.0) GO TO 99 CALL APDOE (Z(IPID+4),IZ,NAEF1,NAEF2,ITK,NWTK) IF (ITK .EQ. 0) GO TO 992 IF (INT .EQ. 0) GO TO 92 IF (IHEAD(7) .NE. 1) IHEAD(7) = NSPAN IF (IHEAD(7).EQ.NSPAN .AND. NWTK.LT.NSPAN) GO TO 992 GO TO 99 92 IF (NWTK .LT. 2) GO TO 992 IF (IHEAD(8).EQ.NSPAN .AND. NWTK.LT.2*NSPAN) GO TO 992 99 CALL WRITE (ACPT,IHEAD,10,0) CALL WRITE (ACPT,Z(IOC+1),NSPAN*3,0) CALL WRITE (ACPT,Z(IL+1),NW,0) IF (INT .NE. 0) CALL WRITE (ACPT,Z(INT+1),NWI,0) IF (INT.NE.0 .AND. ITK.NE.0) CALL WRITE (ACPT,Z(ITK+1),NWTK,0) IF (ITN .NE. 0) CALL WRITE (ACPT,Z(ITN+1),NWT,0) IF (ITN .NE. 0) CALL WRITE (ACPT,Z(ITK+1),NWTK,0) CALL WRITE (ACPT,0,0,1) 400 CONTINUE SILB = SILC 1001 RETURN C C ERROR MESSAGES C 992 I = IZ(IPID+4) GO TO 9941 993 I = IZ(IPID+6) GO TO 9941 994 I = IHEAD(6) 9941 WRITE (NOT,9942) UFM,I,EID 9942 FORMAT (A23,' 2429, WRONG NUMBER OF WORDS OR CARD NOT FOUND FOR ', 1 'CARD ID',I9, /29X,'ASSOCIATED WITH CAERO5 ID',I9) GO TO 1000 995 I = NTHICK GO TO 9941 996 CALL MESAGE (-8,0,NAM) 997 I = PID GO TO 9941 998 I = NCHORD GO TO 9941 999 CALL EMSG (0,2323,1,2,0) WRITE (NOT,891) PID,EID 891 FORMAT (10X,16HPAERO5 CARD NO. ,I8,31H REFERENCED BY CAERO5 CARD N 1O. ,I8,15H DOES NOT EXIST) GO TO 1000 1000 CALL MESAGE (-61,0,NAM) GO TO 1001 END ================================================ FILE: mis/apdb.f ================================================ SUBROUTINE APDB C C AERODYNAMIC POOL DISTRIBUTOR AND GEOMETRY INTERPOLATOR FOR C COMPRESSOR BLADES (AERODYNAMIC THEORY 6) AND SWEPT TURBOPROP C BLADES (AERODYNAMIC THEORY 7). C C THIS IS THE DMAP DRIVER FOR APDB C C DMAP CALLING SEQUENCE C C APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO / AEROB,ACPT,FLIST, C GTKA,PVECT / V,N,NK/V,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/ C V,Y,IREF/V,Y,MTYPE/V,N,NEIGV/V,Y,KINDEX $ C C INPUT DATA BLOCKS CSTM, GM AND GO MAY BE PURGED C OUTPUT DATA BLOCK PVECT MAY BE PURGED C PARAMETERS NK AND NJ ARE OUTPUT, THE OTHERS ARE INPUT C C LOGICAL LMKAER,FIRST,DEBUG INTEGER SYSBUF,RD,RDREW,WRT,WRTREW,CLSREW,NOREW,EOFNRW, 1 NAME(2),AERO(3),MKAER1(3),MKAER2(3),FLUTTR(3), 2 FLFACT(3),ITRL(7),STRML1(3),STRML2(3),SCR1,FILE, 3 FLAG,NAME1(6,2),BUF(7),EDT,BGPDT,CSTM,EQEXIN, 4 AEROB,ACPT,FLIST,PVECT,CORWDS,PSTRM(100),TYPIN, 5 TYPOUT,SINE,IZ(6) REAL MINMAC,MAXMAC CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / NK,NJ,MINMAC,MAXMAC,IREF,MTYPE(2),NEIGV,KINDEX COMMON /SYSTEM/ SYSBUF,IOUT,NSYS(91) COMMON /APDBUG/ DEBUG COMMON /PACKX / TYPIN,TYPOUT,II,NN,INCR COMMON /ZZZZZZ/ Z(1) COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,NOREW,EOFNRW C NAMES -VALUE = 2 0 3 1 1 2 3 EQUIVALENCE (Z(1),IZ(1)), (MINMAC,MACMIN), (MAXMAC,MACMAX) DATA AERO / 3202,32,0/, MKAER1 /3802,38,0/, MKAER2 /3702,37,0/ DATA FLUTTR/ 3902,39,0/, FLFACT /4102,41,0/ DATA STRML1/ 3292,92,0/, STRML2 /3293,93,0/ DATA EDT , BGPDT,CSTM,EQEXIN / 1 101 , 103 ,104 ,105 / DATA AEROB , ACPT ,FLIST,PVECT / 1 201 , 202 ,203 ,205 / DATA NAME / 4HAPDB,4H /, SCR1 /301/ DATA ITRL / 7*0 / , FIRST / .TRUE./, SINE / 4HSINE/ DATA NAME1(1,1),NAME1(1,2) / 4HAERO,4H / DATA NAME1(2,1),NAME1(2,2) / 4HMKAE,4HRO / DATA NAME1(3,1),NAME1(3,2) / 4HFLFA,4HCT / DATA NAME1(4,1),NAME1(4,2) / 4HFLUT,4HTER / DATA NAME1(5,1),NAME1(5,2) / 4HSTRE,4HAML1 / DATA NAME1(6,1),NAME1(6,2) / 4HSTRE,4HAML2 / C DEBUG = .FALSE. CALL SSWTCH (20,J) IF (J .EQ. 1) DEBUG = .TRUE. C C SELECT AERODYNAMIC THEORY C C COMPRESSOR BLADES (AERODYNAMIC THEORY 6). C SWEPT TURBOPROPS (AERODYNAMIC THEORY 7). C C AT PRESENT THE USER SELECTS THE THEORY VIA THE NASTRAN CARD. C SET SYSTEM(93)=0 FOR THEORY 6 OR SYSTEM(93)=1 FOR THEORY 7. C NOTE - THE DEFAULT IS THEORY 6 (SYSTEM(93)=0). C C FOR EXAMPLE, TO SELECT THEORY 7, USE THE FOLLOWING CARD - C NASTRAN SYSTEM(93)=1 C IF (NSYS(91) .EQ. 0) MTHD = 6 IF (NSYS(91) .EQ. 1) MTHD = 7 C IF (DEBUG) CALL BUG1 ('BLANK COMM',1,NK,9) NOGO = 0 MAXSL = 100 IBUF1 = KORSZ(Z) - SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF LAST = IBUF3 - SYSBUF - 1 IF (LAST .LE. 0) GO TO 991 LEFT = CORWDS(Z(1),Z(LAST)) C C CREATE AEROB DATA BLOCK C CALL GOPEN (AEROB,Z(IBUF2),WRTREW) C C READ AERO CARD VALUES - BREF, SYMXZ AND SYMXY C FILE = EDT CALL PRELOC (*992,Z(IBUF1),EDT) CALL LOCATE (*981,Z(IBUF1),AERO,FLAG) CALL READ (*993,*994,EDT,Z(1),6,1,FLAG) IF (DEBUG) CALL BUG1 ('AERO CARD ',2,Z,6) IZ(1) = IZ(5) IZ(2) = IZ(6) CALL WRITE (AEROB,Z,3,1) C C READ IN MKAERO1 CARDS C LMKAER = .FALSE. NEXT = 1 CALL LOCATE (*60,Z(IBUF1),MKAER1,FLAG) CALL READ (*993,*10,EDT,Z(NEXT),LEFT,1,NX) GO TO 991 10 N1 = NEXT IF (DEBUG) CALL BUG1 ('MKAERO1 ',10,Z(N1),NX) LMKAER = .TRUE. 20 N2 = N1 + 7 DO 40 I = N1,N2 IF (IZ(I) .EQ. -1) GO TO 50 BUF(1) = IZ(I) N3 = N2 + 1 N4 = N3 + 7 DO 30 J = N3,N4 IF (IZ(J) .EQ. -1) GO TO 40 BUF(2) = IZ(J) 30 CALL WRITE (AEROB,BUF,2,0) 40 CONTINUE 50 IF (N4-NEXT+1 .GE. NX) GO TO 60 N1 = N1 + 16 GO TO 20 C C READ IN MKAERO2 CARDS C 60 CALL LOCATE (*80,Z(IBUF1),MKAER2,FLAG) CALL READ (*993,*70,EDT,Z(NEXT),LEFT,1,NX) GO TO 991 70 CALL WRITE (AEROB,Z(NEXT),NX,0) IF (DEBUG) CALL BUG1 ('MKAERO2 ',70,Z(NEXT),NX) LMKAER = .TRUE. 80 CALL WRITE (AEROB,0,0,1) CALL CLOSE (AEROB,CLSREW) IF (.NOT.LMKAER) GO TO 982 ITRL(1) = AEROB ITRL(2) = 1 CALL WRTTRL (ITRL) C C CREATE FLIST TABLE C CALL OPEN (*85,FLIST,Z(IBUF2),WRTREW) CALL FNAME (FLIST,IZ(NEXT)) CALL WRITE (FLIST,IZ(NEXT),2,1) CALL LOCATE (*981,Z(IBUF1),AERO,FLAG) CALL READ (*993,*90,EDT,Z(NEXT),LEFT,1,NX) GO TO 991 C C FLIST CAN BE PURGED IF THE APPROACH IS NOT AERO C 85 IF (IABS(NSYS(19)) .NE. 4) GO TO 115 FILE = FLIST GO TO 992 90 CALL WRITE (FLIST,AERO,3,0) CALL WRITE (FLIST,Z(NEXT),NX,1) IF (DEBUG) CALL BUG1 ('FLIST AERO',90,Z(NEXT),NX) CALL LOCATE (*983,Z(IBUF1),FLFACT,FLAG) CALL READ (*993,*100,EDT,Z(NEXT),LEFT,1,NX) GO TO 991 100 CALL WRITE (FLIST,FLFACT,3,0) CALL WRITE (FLIST,Z(NEXT),NX,1) IF (DEBUG) CALL BUG1 ('FLIST FLFA',100,Z(NEXT),NX) CALL LOCATE (*984,Z(IBUF1),FLUTTR,FLAG) CALL READ (*993,*110,EDT,Z(NEXT),LEFT,1,NX) GO TO 991 110 CALL WRITE (FLIST,FLUTTR,3,0) CALL WRITE (FLIST,Z(NEXT),NX,1) IF (DEBUG) CALL BUG1 ('FLIST FLUT',110,Z(NEXT),NX) CALL CLOSE (FLIST,CLSREW) ITRL(1) = EDT CALL RDTRL (ITRL) ITRL(1) = FLIST CALL WRTTRL (ITRL) 115 CONTINUE C C CREATE ACPT TABLE C CALL GOPEN (ACPT,Z(IBUF2),WRTREW) C C STORE EXTERNAL NODE NUMBER, INTERNAL NODE NUMBER AND BASIC C COORDINATES OF ALL NODES ON BLADE ON SCR1 C CALL GOPEN (SCR1,Z(IBUF3),WRTREW) C C READ STREAML1 AND STREAML2 CARDS. STORE IN-CORE C NSL1A = NEXT CALL LOCATE (*985,Z(IBUF1),STRML1,FLAG) CALL READ (*993,*120,EDT,Z(NSL1A),LEFT,1,NSL1L) GO TO 991 120 NSL1B = NSL1A + NSL1L - 1 IF (DEBUG) CALL BUG1 ('STREAML1 ',120,Z(NSL1A),NSL1L) NSL2A = NSL1B + 1 LEFT = CORWDS(Z(NSL2A),Z(LAST)) CALL LOCATE (*986,Z(IBUF1),STRML2,FLAG) CALL READ (*993,*130,EDT,Z(NSL2A),LEFT,1,NSL2L) GO TO 991 130 NSL2B = NSL2A + NSL2L - 1 IF (DEBUG) CALL BUG1 ('STREAML2 ',130,Z(NSL2A),NSL2L) CALL CLOSE (EDT,CLSREW) C C INPUT CHECKS (ALL ARE THEORY DEPENDENT RESTRICTIONS) C STREAML1 - ALL CARDS MUST HAVE THE SAME NUMBER OF NODES C STREAML2 - THERE MUST BE AT LEAST THREE(3) STREAML2 CARDS. C (THIS IS A THEORY DEPENDENT RESTRICTION, C SEE AMG MODULE - COMPRESSOR BLADE CODE FOR AJJL) C - NSTNS MUST BE THE SAME FOR ALL STREAML2 CARDS C AND MUST EQUAL THE NO. OF NODES ON THE STRAML1 CARD C C COUNT THE NUMBER OF STREAML2 CARDS C NLINES = NSL2L/10 IF (DEBUG) CALL BUG1 ('NLINES ',131,NLINES,1) IF (NLINES .GE. 3) GO TO 135 NOGO = 1 WRITE (IOUT,3001) UFM,NLINES 135 IF (NLINES .GT. MAXSL) GO TO 988 C C LOCATE STREAML1 CARDS THAT CORRESPOND TO STREAML2 CARDS BY C MATCHING SLN VALUES C NLINE = 0 DO 140 ISLN = NSL2A,NSL2B,10 NLINE = NLINE + 1 140 PSTRM(NLINE) = -IZ(ISLN) C C LOCATE SLN AND COUNT THE NUMBER OF COMPUTING STATIONS C IPOS = NSL1A 145 DO 150 NS = IPOS,NSL1B IF (IZ(NS) .EQ. -1) GO TO 155 150 CONTINUE C C CHECK FOR VALID SLN C 155 DO 160 NLINE = 1,NLINES IF (IZ(IPOS) .EQ. -PSTRM(NLINE)) GO TO 165 160 CONTINUE GO TO 175 165 PSTRM(NLINE) = IPOS NSTNSX = NS - IPOS - 1 IF (.NOT.FIRST) GO TO 170 NSTNS = NSTNSX FIRST = .FALSE. GO TO 175 C C ALL NSTNSX MUST BE THE SAME C 170 IF (NSTNSX .EQ. NSTNS) GO TO 175 NOGO = 2 WRITE (IOUT,3002) UFM,IZ(IPOS) 175 IPOS = NS + 1 IF (IPOS .LT. NSL1B) GO TO 145 C C IS THERE A STREAML1 CARD FOR EVERY STREAML2 CARD C DO 180 NLINE = 1,NLINES IF (PSTRM(NLINE) .GT. 0) GO TO 180 NOGO = 3 ISLN = -PSTRM(NLINE) WRITE (IOUT,3003) UFM,ISLN 180 CONTINUE IF (NOGO .GT. 0) GO TO 1000 C C READ BGPDT C NBG1 = NSL2B + 1 LEFT = CORWDS(Z(NBG1),Z(LAST)) FILE = BGPDT CALL GOPEN (BGPDT,Z(IBUF1),RDREW) CALL READ (*993,*200,BGPDT,Z(NBG1),LEFT,1,NBGL) GO TO 991 200 CALL CLOSE (BGPDT,CLSREW) IF (DEBUG) CALL BUG1 ('BGPDT ',200,Z(NBG1),NBGL) NBG2 = NBG1 + NBGL - 1 C C READ EQEXIN (RECORD 1) C NEQ1 = NBG2 + 1 LEFT = CORWDS(Z(NEQ1),Z(LAST)) FILE = EQEXIN CALL GOPEN (EQEXIN,Z(IBUF1),RDREW) CALL READ (*993,*210,EQEXIN,Z(NEQ1),LEFT,1,NEQL) GO TO 991 210 NEQ2 = NEQ1 + NEQL - 1 IF (DEBUG) CALL BUG1 ('EQEXIN R1 ',210,Z(NEQ1),NEQL) C C READ EQEXIN (RECORD 2) C NEQ21 = NEQ2 + 1 LEFT = CORWDS(Z(NEQ21),Z(LAST)) CALL READ (*993,*215,EQEXIN,Z(NEQ21),LEFT,1,NEQ2L) GO TO 991 215 NEQ22 = NEQ2 + NEQ2L - 1 IF (DEBUG) CALL BUG1 ('EQEXIN R2 ',212,Z(NEQ21),NEQ2L) CALL CLOSE (EQEXIN,CLSREW) C C WRITE ACPT C C KEY WORD = 6 FOR COMPRESSOR BLADES, I.E. METHOD ID = 6 C KEY WORD = 7 FOR SWEPT TURBOPROPS , I.E. METHOD ID = 7 C C WRITE CONSTANT PARAMETERS, WORDS 1 - 6 C BUF(1) = MTHD BUF(2) = IREF BUF(3) = MACMIN BUF(4) = MACMAX BUF(5) = NLINES BUF(6) = NSTNS CALL WRITE (ACPT,BUF,6,0) IF (DEBUG) CALL BUG1 ('ACPT WRT 1',216,BUF,6) C C WRITE STREAMLINE DATA C KN = NEQL/2 NLINE = 0 DO 240 NSL = NSL2A,NSL2B,10 C C MAKE SURE NSTNS ON ALL STREAML2 CARDS IS THE SAME C IF (IZ(NSL+1) .EQ. NSTNS) GO TO 217 WRITE (IOUT,3004) UWM,IZ(NSL) IZ(NSL+1) = NSTNS C C WRITE STREAML2 DATA C 217 CALL WRITE (ACPT,Z(NSL),10,0) IF (DEBUG) CALL BUG1 ('ACPT WRT 2',217,Z(NSL),10) C C WRITE BASIC X, Y AND Z FOR EACH NODE ON STREAML1 CARD C NLINE = NLINE + 1 IPOS = PSTRM(NLINE) IPOS1 = IPOS + 1 IPOS2 = IPOS + NSTNS DO 230 IGDP = IPOS1,IPOS2 C C LOCATE INTERNAL NUMBER THAT CORRESOONDS TO THIS EXTERNAL NODE C CALL BISLOC (*220,IZ(IGDP),IZ(NEQ1),2,KN,JLOC) GO TO 225 C C STREAML1 REFERNCES AN EXTERNAL ID THAT DOES NOT EXIST C 220 NOGO = 5 WRITE (IOUT,3005) UFM,IZ(IPOS),IZ(IGDP) GO TO 230 C C PICK-UP BASIC GRID DATA FOR THIS NODE C 225 INTRL = IZ(NEQ1+JLOC) ISILC = IZ(NEQ21+JLOC) JLOC = NBG1 + (INTRL-1)*4 BUF(1) = IZ(IGDP) BUF(2) = INTRL BUF(3) = ISILC BUF(4) = IZ(JLOC ) BUF(5) = IZ(JLOC+1) BUF(6) = IZ(JLOC+2) BUF(7) = IZ(JLOC+3) C C TEST FOR SCALAR POINT (CID = -1) C IF (BUF(4) .GE. 0) GO TO 227 NOGO = 6 WRITE (IOUT,3006) UFM,IZ(IPOS),IZ(IGDP) 227 CALL WRITE (ACPT,BUF(5),3,0) CALL WRITE (SCR1,BUF,7,0) IF (DEBUG) CALL BUG1 ('ACPT WRT 3',227,BUF,7) C C-----DETERMINE DIRECTION OF BLADE ROTATION VIA Y-COORDINATES AT TIP C-----STREAMLINE. USE COORDINATES OF FIRST 2 NODES ON STREAMLINE. C IF (NLINE.EQ.NLINES .AND. IGDP.EQ.IPOS1) YTIP1 = Z(JLOC+2) IF (NLINE.EQ.NLINES .AND. IGDP.EQ.IPOS1+1) YTIP2 = Z(JLOC+2) C 230 CONTINUE 240 CONTINUE C XSIGN = 1.0 IF (YTIP2 .LT. YTIP1) XSIGN = -1.0 IF (DEBUG) CALL BUG1 ('XSIN ',240,XSIGN,1) CALL WRITE (ACPT,0,0,1) CALL WRITE (SCR1,0,0,1) CALL CLOSE (ACPT,CLSREW) CALL CLOSE (SCR1,CLSREW) ITRL(1) = ACPT ITRL(2) = 1 ITRL(3) = 0 ITRL(4) = 0 ITRL(5) = 0 ITRL(6) = 0 ITRL(7) = 0 CALL WRTTRL (ITRL) IF (NOGO .GT. 0) GO TO 1000 C C SET OUTPUT PARAMETERS NK AND NJ FOR APPROPRIATE THEORY. C C COMPRESSOR BLADES (THEORY 6) - NK = NJ = NSTNS*NLINES. C SWEPT TURBOPROPS (THEORY 7) - NK = NJ = 2*NSTNS*NLINES. C IF (MTHD .EQ. 6) NK = NSTNS*NLINES IF (MTHD .EQ. 7) NK = 2*NSTNS*NLINES NJ = NK IF (DEBUG) CALL BUG1 ('BLANK COM ',241,NK,9) C C CREATE PVECT PARTITIONING VECTOR (PVECT MAY BE PURGED) C PVECT IS A COLUMN PARTITIONING VECTOR TO BE USED BY MODULE PARTN C TO PARTITION OUT EITHER THE SINE OR COSINE COLUMNS OF MATRIX C PHIA WHICH IS OUTPUT BY THE CYCT2 MODULE WHEN DOING A CYCLIC C NORMAL MODES ANALYSIS C PARAMETER MTYPE=SINE OR COSINE (DEFAULT IS COSINE) C C OPEN PVECT AND WRITE HEADER C CALL OPEN (*270,PVECT,Z(IBUF2),WRTREW) C C TEST FOR VALID NEIGV AND KINDEX C IF (NEIGV.LE.0 .OR. KINDEX.LT.0) GO TO 987 C CALL FNAME (PVECT,BUF) CALL WRITE (PVECT,BUF,2,1) C C PVECT IS TO BE GENERATED C LEFT = LEFT - NEQ2 NCOL = NEIGV IF (KINDEX .GT. 0) NCOL = 2*NCOL IPOS1 = NEQ2 + 1 IPOS2 = NEQ2 + NCOL DO 250 IPV = IPOS1,IPOS2 250 Z(IPV) = 0.0 IF (KINDEX .EQ. 0) GO TO 260 IPOS3 = IPOS1 IF (MTYPE(1) .NE. SINE) IPOS3 = IPOS1 + 1 DO 255 IPV = IPOS3,IPOS2,2 255 Z(IPV) = 1.0 260 TYPIN = 1 TYPOUT = 1 II = 1 NN = NCOL INCR = 1 CALL MAKMCB (ITRL,PVECT,NCOL,2,1) CALL PACK (Z(IPOS1),PVECT,ITRL) IF (DEBUG) CALL BUG1 ('PVECT ',260,Z(IPOS1),NCOL) CALL CLOSE (PVECT,CLSREW) CALL WRTTRL (ITRL) 270 CONTINUE C C GENERATE GTKA TRANSFORMATION MATRIX C C READ CSTM INTO CORE C NCSTM1 = 1 NCSTML = 0 FILE = CSTM ITRL(1)= CSTM CALL RDTRL (ITRL) IF (ITRL(1) .NE. CSTM) GO TO 300 LEFT = CORWDS(Z(NCSTM1),Z(LAST)) CALL GOPEN (CSTM,Z(IBUF1),RDREW) CALL READ (*993,*300,CSTM,Z(NCSTM1),LEFT,1,NCSTML) GO TO 991 300 NCSTM2 = NCSTM1 + NCSTML - 1 IF (DEBUG) CALL BUG1 ('CSTM ',300,Z(NCSTM1),NCSTML) CALL CLOSE (CSTM,CLSREW) C C ALLOCATE WORK STORAGE C IP1 = NCSTM2 + 1 IP2 = IP1 + NSTNS IP3 = IP2 + NSTNS IP4 = IP3 + NSTNS NEXT = IP4 + 4*NSTNS LEFT = LEFT - NEXT + 1 IF (LEFT .LE. 0) GO TO 991 C C GENERATE GTKA TRANSFORMATION MATRIX FOR APPROPRIATE THEORY. C C COMPRESSOR BLADES (AERODYNAMIC THEORY 6). C IF (MTHD .EQ. 6) CALL APDB1 (IBUF1,IBUF2,NEXT,LEFT,NSTNS,NLINES, 1 XSIGN,NCSTML,Z(NCSTM1),Z(IP1),Z(IP2),Z(IP3),Z(IP4)) C C SWEPT TURBOPROPS (AERODYNAMIC THEORY 7). C IF (MTHD .EQ. 7) CALL APDB2 (IBUF1,IBUF2,NEXT,LEFT,NSTNS,NLINES, 1 XSIGN,NCSTML,Z(NCSTM1),Z(IP1),Z(IP2),Z(IP3),Z(IP4)) GO TO 1000 C C ERROR MESSAGES C C NO AERO CARD FOUND 981 KODE = 1 GO TO 989 C C NO MKAERO1 OR MKAERO2 CARDS FOUND C 982 KODE = 2 GO TO 989 C C NO FLFACT CARD FOUND C 983 KODE = 3 GO TO 989 C C NO FLUTTER CARD FOUND C 984 KODE = 4 GO TO 989 C C NO STREAML1 CARD FOUND C 985 KODE = 5 GO TO 989 C C NO STREAML2 CARD FOUND C 986 KODE = 6 GO TO 989 C C NEIGV OR KINDEX INVALID C 987 WRITE (IOUT,2987) UFM,NEIGV,KINDEX GO TO 1091 C C MAXIMUM NUMBER OF STREAML2 CARDS EXCEEDED FOR C LOCAL ARRAY PSTRM. SEE ERROR MESSAGE FOR FIX. C 988 WRITE (IOUT,3007) UFM,MAXSL GO TO 1091 989 WRITE (IOUT,2989) UFM,NAME1(KODE,1),NAME1(KODE,2) GO TO 1091 C C NOT ENOUGH CORE C 991 IP1 = -8 GO TO 999 C C DATA SET NOT IN FIST C 992 IP1 = -1 GO TO 999 C C E-O-F ENCOUNTERED C 993 IP1 = -2 GO TO 999 C C E-O-L ENCOUNTERED C 994 IP1 = -3 999 CALL MESAGE (IP1,FILE,NAME) C 1000 IF (NOGO .EQ. 0) GO TO 1099 1091 CALL MESAGE (-37,0,NAME) 1099 RETURN C 2987 FORMAT (A23,' - APDB MODULE - INVALID PARAMETER NEIGV OR KINDEX', 1 ' INPUT.', /40X, 2 'DATA BLOCK PVECT (FILE 205) CANNOT BE GENERATED.', /40X, 3 7HNEIGV =,I8,10H, KINDEX =,I8) 2989 FORMAT (A23,' - MODULE APDB - BULK DATA CARD ',2A4, 1 ' MISSING FROM INPUT DECK.') 3001 FORMAT (A23,' - APDB MODULE - THE NO. OF STREAML2 CARDS INPUT =', 1 I3, /40X,'THERE MUST BE AT LEAST THREE(3) STREAML2 CARDS', 2 ' INPUT.') 3002 FORMAT (A23,' - APDB MODULE - ILLEGAL NO. OF NODES ON STREAML1 ', 1 'CARD WITH SLN =',I8, /40X, 2 'ALL STREAML1 CARDS MUST HAVE THE SAME NUMBER OF NODES.') 3003 FORMAT (A23,' - APDB MODULE - NO STREAML1 CARD FOR THE STREAML2', 1 ' WITH SLN =',I8) 3004 FORMAT (A25,' - APDB MODULE - STREAML2 WITH SLN =',I8, /42X, 1 'NSTNS INCONSISTENT WITH NO. OF NODES ON STREAML2 CARD ', 2 'FOR BLADE ROOT.', /42X,'CORRECT VALUE OF NSTNS WILL BE ', 3 'SUBSTITUTED ON STREAML2 CARD.') 3005 FORMAT (A23,' - APDB MODULE - STREAML1 CARD WITH SLN =',I8, 1 ' REFERENCES NON-EXISTENT EXTERNAL NODE =',I8) 3006 FORMAT (A23,' - APDB MODULE - STREAML1 CARD WITH SLN =',I8, 1 ' REFERENCES A SCALAR POINT WITH EXTERNAL ID =',I8, /40X, 2 'SCALAR POINTS ARE ILLEGAL. USE A GRID POINT.') 3007 FORMAT (A23,' - APDB MODULE - MAXIMUM NUMBER OF STREAML2 CARDS ', 1 'EXCEEDED FOR LOCAL ARRAY PSTRM.', /40X, 2 'UPDATE VARABLE MAXSL AND ARRAY PSTRM IN ROUTINE APDB.', 3 /40X,'CURRENT VALUE OF MAXSL AND DIMENSION OF PSTRM =',I4) END ================================================ FILE: mis/apdb1.f ================================================ SUBROUTINE APDB1 (IBUF1,IBUF2,NEXT,LEFT,NSTNS,NLINES,XSIGN, 1 LCSTM,ACSTM,NODEX,NODEI,ISILC,XYZB) C C GENERATE GTKA TRANSFORMATION MATRIX C EXTERNAL ANDF LOGICAL MULTI,OMIT,SINGLE,DEBUG INTEGER GM,GO,GTKA,SCR1,SCR2,CORE, 1 UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,USET1,IDATA(7), 2 GTKG,GKNB,GKM,GKAB,GKF,GKS,GKO,GKN,GSIZE, 3 ANDF,RD,RDREW,WRT,WRTREW,CLSREW,TGKG(7) DIMENSION ITRL(7),XYZB(4,NSTNS),IZ(1),Z(1),RDATA(7),TA(3,3), 1 TBL(3),TBLA(3),ACSTM(1),NODEX(1),NODEI(1),ISILC(1) COMMON /SYSTEM/ KSYSTM(54),IPREC COMMON /TWO / ITWO(32) COMMON /ZZZZZZ/ CORE(1) COMMON /ZBLPKX/ AP(4),II COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG COMMON /PATX / LC,N,NO,NY,USET1,IBC(7) COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW COMMON /APDBUG/ DEBUG EQUIVALENCE (Z(1),CORE(1)) EQUIVALENCE (Z(1),IZ(1)), (IDATA(1),RDATA(1)) DATA SINGLE, MULTI,OMIT /.TRUE.,.TRUE.,.TRUE./ C USET = 102 GM = 106 GO = 107 GTKA = 204 SCR1 = 301 SCR2 = 302 GKNB = 303 GKM = 304 GKAB = 305 ITRL(1) = USET CALL RDTRL(ITRL) GSIZE = ITRL(3) IF (ANDF(ITRL(5),ITWO(UM)) .EQ. 0) MULTI = .FALSE. IF (ANDF(ITRL(5),ITWO(US)) .EQ. 0) SINGLE= .FALSE. IF (ANDF(ITRL(5),ITWO(UO)) .EQ. 0) OMIT = .FALSE. IF (.NOT.(MULTI .OR. SINGLE .OR. OMIT)) SCR2 = GTKA GTKG = SCR2 C C OPEN SCR1 TO READ BLADE NODE DATA C C T C OPEN SCR2 TO WRITE G MATRIX OF ORDER (GSIZE X KSIZE) C KG C CALL GOPEN (SCR1,Z(IBUF1),RDREW) CALL GOPEN (GTKG,Z(IBUF2),WRTREW) TGKG(1) = GTKG TGKG(2) = 0 TGKG(3) = GSIZE TGKG(4) = 2 TGKG(5) = 1 TGKG(6) = 0 TGKG(7) = 0 C C SET-UP CALL TO TRANSS VIA PRETRS C IF (LCSTM .GT. 0) CALL PRETRS (ACSTM,LCSTM) C C LOOP ON STREAMLINES C DO 50 NLINE = 1,NLINES C C READ STREAMLINE NODE DATA FROM SCR1 C DO 10 NST = 1,NSTNS CALL FREAD (SCR1,IDATA,7,0) IF (DEBUG) CALL BUG1 ('SCR1 IDATA',10,IDATA,7) NODEX(NST) = IDATA(1) NODEI(NST) = IDATA(2) ISILC(NST) = IDATA(3) XYZB(1,NST)= RDATA(4) XYZB(2,NST)= RDATA(5) XYZB(3,NST)= RDATA(6) XYZB(4,NST)= RDATA(7) 10 CONTINUE C C GENERATE BASIC TO LOCAL TRANSFORMATION MATRIX FOR THIS STREAMLINE C XBMXA = XYZB(2,NSTNS) - XYZB(2,1) YBMYA = XYZB(3,NSTNS) - XYZB(3,1) ZBMZA = XYZB(4,NSTNS) - XYZB(4,1) RL1 = SQRT(XBMXA*XBMXA + YBMYA*YBMYA + ZBMZA*ZBMZA) RL2 = SQRT(RL1*RL1 - ZBMZA*ZBMZA) TBL(1) = -XSIGN*(YBMYA/RL2) TBL(2) = XSIGN*(XBMXA/RL2) TBL(3) = 0.0 IF (DEBUG) CALL BUG1 ('MAT-TBL ',15,TBL,3) C C LOOP ON COMPUTING STATIONS C DO 40 NCS = 1,NSTNS C C LOCATE GLOBAL TO BASIC TRANSFORMATION MATRIX C RDATA(1) = XYZB(1,NCS) IF (LCSTM.EQ.0 .OR. IDATA(1).EQ.0) GO TO 20 CALL TRANSS (XYZB(1,NCS),TA) CALL GMMATS (TBL,1,3,0, TA,3,3,0, TBLA) GO TO 25 20 TBLA(1) = TBL(1) TBLA(2) = TBL(2) TBLA(3) = TBL(3) 25 CONTINUE IF (DEBUG) CALL BUG1 ('MAT-TBLA ',25,TBLA,3) C C COMPUTE LOCATION IN G-SET USING SIL C KODE = 1 FOR GRID POINT C KODE = 2 FOR SCALAR POINT (NOT ALLOWED, CHECK WAS MADE BY APDB) C ISIL = ISILC(NCS)/10 CALL BLDPK (1,1,GTKG,0,0) C C OUTPUT GKG(TRANSPOSE) = GTKG C II IS ROW POSITION C DO 30 ICOL = 1,3 II = ISIL AP(1) = TBLA(ICOL) IF (DEBUG) CALL BUG1 ('ISIL ',28,ISIL,1) IF (DEBUG) CALL BUG1 ('MAT-AP ',29,AP,1) CALL ZBLPKI ISIL = ISIL + 1 30 CONTINUE CALL BLDPKN (GTKG,0,TGKG) 40 CONTINUE 50 CONTINUE CALL CLOSE (SCR1,CLSREW) CALL CLOSE (GTKG,CLSREW) CALL WRTTRL (TGKG) C C CREATE GTKA MATRIX C IF (MULTI .OR. SINGLE .OR. OMIT) GO TO 60 GO TO 100 60 CONTINUE LC = KORSZ(CORE) GKF = GKNB GKS = GKM GKO = GKS USET1 = USET C C REDUCE TO N-SET IF MULTI POINT CONSTRAINTS C GKN = GTKG IF (.NOT.MULTI) GO TO 70 IF (.NOT.SINGLE .AND. .NOT.OMIT) GKN = GTKA CALL CALCV (SCR1,UG,UN,UM,CORE) CALL SSG2A (GTKG,GKNB,GKM,SCR1) CALL SSG2B (GM,GKM,GKNB,GKN,1,IPREC,1,SCR1) C C PARTITION INTO F-SET IF SINGLE POINT CONSTRAINTS C 70 IF (.NOT.SINGLE) GO TO 80 IF (.NOT.OMIT ) GKF = GTKA CALL CALCV (SCR1,UN,UF,US,CORE) CALL SSG2A (GKN,GKF,0,SCR1) GO TO 90 C C REDUCE TO A-SET IF OMITS C 80 GKF = GKN 90 IF (.NOT.OMIT) GO TO 100 CALL CALCV (SCR1,UF,UA,UO,CORE) CALL SSG2A (GKF,GKAB,GKO,SCR1) CALL SSG2B (GO,GKO,GKAB,GTKA,1,IPREC,1,SCR1) 100 RETURN END ================================================ FILE: mis/apdb2.f ================================================ SUBROUTINE APDB2 (IBUF1,IBUF2,NEXT,LEFT,NSTNS,NLINES,XSIGN, 1 LCSTM,ACSTM,NODEX,NODEI,ISILC,XYZB) C C GENERATE GTKA TRANSFORMATION MATRIX FOR SWEPT TURBOPROP C BLADES (AERODYNAMIC THEORY NUMBER 7). C EXTERNAL ANDF LOGICAL MULTI,OMIT,SINGLE,DEBUG INTEGER GM,GO,GTKA,SCR1,SCR2,CORE,IDATA(7), 1 UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,USET1, 2 GTKG,GKNB,GKM,GKAB,GKF,GKS,GKO,GKN,GSIZE, 3 ANDF,RD,RDREW,WRT,WRTREW,CLSREW,TGKG(7) DIMENSION ITRL(7),XYZB(4,NSTNS),IZ(1),Z(1),RDATA(7), 1 TA(3,3),TBL(3),TBLA(3),TBLT(3),TBLR(3), 2 ACSTM(1),NODEX(1),NODEI(1),ISILC(1) COMMON /SYSTEM/ KSYSTM(54),IPREC COMMON /TWO / ITWO(32) COMMON /ZZZZZZ/ CORE(1) COMMON /ZBLPKX/ AP(4),II COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG COMMON /PATX / LC,N,NO,NY,USET1,IBC(7) COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW COMMON /APDBUG/ DEBUG EQUIVALENCE (Z(1),CORE(1)) EQUIVALENCE (Z(1),IZ(1)), (IDATA(1),RDATA(1)) DATA SINGLE, MULTI,OMIT /.TRUE.,.TRUE.,.TRUE./ C USET = 102 GM = 106 GO = 107 GTKA = 204 SCR1 = 301 SCR2 = 302 GKNB = 303 GKM = 304 GKAB = 305 ITRL(1) = USET CALL RDTRL (ITRL) GSIZE = ITRL(3) IF (ANDF(ITRL(5),ITWO(UM)) .EQ. 0) MULTI = .FALSE. IF (ANDF(ITRL(5),ITWO(US)) .EQ. 0) SINGLE= .FALSE. IF (ANDF(ITRL(5),ITWO(UO)) .EQ. 0) OMIT = .FALSE. IF (.NOT.(MULTI .OR. SINGLE .OR. OMIT)) SCR2 = GTKA GTKG = SCR2 C C OPEN SCR1 TO READ BLADE NODE DATA C C T C OPEN SCR2 TO WRITE G MATRIX OF ORDER (GSIZE X KSIZE) C KG C CALL GOPEN (SCR1,Z(IBUF1),RDREW) CALL GOPEN (GTKG,Z(IBUF2),WRTREW) TGKG(1) = GTKG TGKG(2) = 0 TGKG(3) = GSIZE TGKG(4) = 2 TGKG(5) = 1 TGKG(6) = 0 TGKG(7) = 0 C C SET-UP CALL TO TRANSS VIA PRETRS C IF (LCSTM .GT. 0) CALL PRETRS (ACSTM,LCSTM) C C LOOP ON STREAMLINES C DO 50 NLINE = 1,NLINES C C READ STREAMLINE NODE DATA FROM SCR1 C DO 10 NST = 1,NSTNS CALL FREAD (SCR1,IDATA,7,0) IF (DEBUG) CALL BUG1 ('SCR1 IDATA',10,IDATA,7) NODEX(NST) = IDATA(1) NODEI(NST) = IDATA(2) ISILC(NST) = IDATA(3) XYZB(1,NST)= RDATA(4) XYZB(2,NST)= RDATA(5) XYZB(3,NST)= RDATA(6) XYZB(4,NST)= RDATA(7) 10 CONTINUE C C GENERATE BASIC TO LOCAL TRANSFORMATION MATRIX FOR THIS STREAMLINE C CALL APDB2A (NLINES,NLINE,SCR1,NSTNS,XSIGN,XYZB(2,1), 1 XYZB(2,NSTNS),TBLT,TBLR) C C SET TRANSFORMATION TO TRANSLATION FIRST C DO 15 NN = 1,3 15 TBL(NN) = TBLT(NN) C C LOOP FOR TRANSLATION THEN ROTATION C NDEG = 0 DO 45 NLOOP = 1,2 IF (DEBUG) CALL BUG1 ('MAT-TBL ' ,18,TBL,3) C C LOOP ON COMPUTING STATIONS C DO 40 NCS = 1,NSTNS C C LOCATE GLOBAL TO BASIC TRANSFORMATION MATRIX C RDATA(1) = XYZB(1,NCS) IF (LCSTM.EQ.0 .OR. IDATA(1).EQ.0) GO TO 20 CALL TRANSS (XYZB(1,NCS),TA) CALL GMMATS (TBL,1,3,0,TA,3,3,0,TBLA) GO TO 25 20 TBLA(1) = TBL(1) TBLA(2) = TBL(2) TBLA(3) = TBL(3) 25 CONTINUE IF (DEBUG) CALL BUG1 ('MAT-TBLA ',25,TBLA,3) C C COMPUTE LOCATION IN G-SET USING SIL C KODE = 1 FOR GRID POINT C KODE = 2 FOR SCALAR POINT (NOT ALLOWED, CHECK WAS MADE BY APDB) C ISIL = ISILC(NCS)/10 CALL BLDPK (1,1,GTKG,0,0) C C OUTPUT GKG(TRANSPOSE) = GTKG C II IS ROW POSITION C DO 30 ICOL = 1,3 II = ISIL + NDEG AP(1) = TBLA(ICOL) IF (DEBUG) CALL BUG1 ('ISIL ',28,ISIL,1) IF (DEBUG) CALL BUG1 ('MAT-AP ',29,AP,1) CALL ZBLPKI ISIL = ISIL + 1 30 CONTINUE CALL BLDPKN (GTKG,0,TGKG) 40 CONTINUE C C CHANGE BASIC TO LOCAL TRANSFORMATION TO ROTATION C DO 43 NN = 1,3 43 TBL(NN) = TBLR(NN) NDEG = 3 45 CONTINUE 50 CONTINUE CALL CLOSE (SCR1,CLSREW) CALL CLOSE (GTKG,CLSREW) CALL WRTTRL (TGKG) C C CREATE GTKA MATRIX C IF (MULTI .OR. SINGLE .OR. OMIT) GO TO 60 GO TO 100 60 CONTINUE LC = KORSZ(CORE) GKF = GKNB GKS = GKM GKO = GKS USET1 = USET C C REDUCE TO N-SET IF MULTI POINT CONSTRAINTS C GKN = GTKG IF (.NOT.MULTI) GO TO 70 IF (.NOT.SINGLE .AND. .NOT.OMIT) GKN = GTKA CALL CALCV (SCR1,UG,UN,UM,CORE) CALL SSG2A (GTKG,GKNB,GKM,SCR1) CALL SSG2B (GM,GKM,GKNB,GKN,1,IPREC,1,SCR1) C C PARTITION INTO F-SET IF SINGLE POINT CONSTRAINTS C 70 IF (.NOT.SINGLE) GO TO 80 IF (.NOT.OMIT ) GKF = GTKA CALL CALCV (SCR1,UN,UF,US,CORE) CALL SSG2A (GKN,GKF,0,SCR1) GO TO 90 C C REDUCE TO A-SET IF OMITS C 80 GKF = GKN 90 IF (.NOT.OMIT) GO TO 100 CALL CALCV (SCR1,UF,UA,UO,CORE) CALL SSG2A (GKF,GKAB,GKO,SCR1) CALL SSG2B (GO,GKO,GKAB,GTKA,1,IPREC,1,SCR1) 100 RETURN END ================================================ FILE: mis/apdb2a.f ================================================ SUBROUTINE APDB2A (NLINE,NL,SCR1,NSTNS,M1,S1,SN,TBLT,TBLR) C C GENERATE BASIC TO LOCAL TRANSFORMATION MATRIX FOR C STREAMLINE NL OF SWEPT TURBOPROP BLADE. C REAL L1,L2,L3,M1 C INTEGER SCR1,FILE,NAME(2) C DIMENSION PN(3),P1(3),FN(3),F1(3),S1(3),SN(3),TBLT(3),TBLR(3) DIMENSION DATA(7) C DATA FILE/301/,NAME /4HAPDB,4H2A / C C--------------------------------------------------------------------- C INPUT VARIABLES-- C NLINE TOTAL NO. OF STREAMLINES C NL PRESENT STEAMLINE C SCR1 SCRATCH UNIT WITH BASIC COORDINATES OF NODES C NSTNS TOTAL NO. OF STATIONS C M1 SIGN BASED ON ROTATION OF BLADE C S1 COORDINATES OF LEADING EDGE OF CURRENT STREAMLINE C SN COORDINATES OF TRAILING EDGE OF CURRENT STREAMLINE C C OUTPUT VARIABLES-- C TBLT BASIC TO LOCAL TRANSFORMATION FOR TRANSLATION C TBLR BASIC TO LOCAL TRANSFORMATION FOR ROTATION C C LOCAL VARIABLES-- C PN COORDINATES TRAILING EDGE PREVIOUS STREAMLINE C P1 COORDINATES LEADING EDGE PREVIOUS STREAMLINE C FN COORDINATES TRAILING EDGE NEXT STREAMLINE C F1 COORDINATES LEADING EDGE NEXT STREAMLINE C--------------------------------------------------------------------- C EXTRACT COORDINATES FOR PREVIOUS--P-FOR FIRST STREAMLINE C--------------------------------------------------------------------- IF(NL.NE.1)GO TO 10 DO 5 I=1,3 PN(I)=SN(I) 5 P1(I)=S1(I) C---------------------------------------------------------------------- C NOW COORDINATES FOR NEXT--F-FOR LAST STREAMLINE C---------------------------------------------------------------------- 10 IF(NL.NE.NLINE)GO TO 15 DO 12 I=1,3 FN(I)=SN(I) 12 F1(I)=S1(I) GO TO 50 C---------------------------------------------------------------------- C NOW COORDINATES FOR NEXT--F-FOR ALL OTHER STREAMLINES C--------------------------------------------------------------------- 15 CALL FREAD(SCR1,DATA,7,0) F1(1)=DATA(5) F1(2)=DATA(6) F1(3)=DATA(7) C---------------------------------------------------------------------- C COMPUTE SKIP TO TRAILING EDGE COORDINATES C----------------------------------------------------------------------- NSKIP=(2-NSTNS)*7 CALL READ(*905,*900,SCR1,DATA,NSKIP,0,MM) CALL FREAD(SCR1,DATA,7,0) FN(1)=DATA(5) FN(2)=DATA(6) FN(3)=DATA(7) C---------------------------------------------------------------------- C RETURN TO START OF RECORD C---------------------------------------------------------------------- CALL BCKREC(SCR1) C--------------------------------------------------------------------- C COMPUTE SKIP TO ORIGINAL LOCATION AT ENTRY TO THIS ROUTINE C--------------------------------------------------------------------- NSKIP=-NSTNS*NL*7 CALL READ(*905,*900,SCR1,DATA,NSKIP,0,MM) 50 A1=SN(1)-S1(1) B1=SN(2)-S1(2) C1=SN(3)-S1(3) C A2=FN(1)-P1(1) B2=FN(2)-P1(2) C2=FN(3)-P1(3) C A3=PN(1)-F1(1) B3=PN(2)-F1(2) C3=PN(3)-F1(3) C A4=B2*C1-B1*C2 B4=C2*A1-C1*A2 C4=A2*B1-A1*B2 C A5=B1*C3-B3*C1 B5=C1*A3-C3*A1 C5=A1*B3-A3*B1 C L1=SQRT(A1**2+B1**2+C1**2) L2=SQRT(A4**2+B4**2+C4**2) L3=SQRT(A5**2+B5**2+C5**2) C A6=0.5 *(A4/L2 + A5/L3) B6=0.5 *(B4/L2 + B5/L3) C6=0.5 *(C4/L2 + C5/L3) C--------------------------------------------------------------------- C BASIC TO LOCAL TRANSFORMATION FOR TRANSLATION C--------------------------------------------------------------------- TBLT(1)= A6*M1 TBLT(2)= B6*M1 TBLT(3)= C6*M1 C---------------------------------------------------------------------- C BASIC TO LOCAL TRANSFORMATION FOR ROTATION C--------------------------------------------------------------------- TBLR(1)= -M1*A1/L1 TBLR(2)= -M1*B1/L1 TBLR(3)= -M1*C1/L1 IF(NL.EQ.NLINE)RETURN C--------------------------------------------------------------------- C SET PREVIOUS COORDINATES--P- TO PRESENT STREAMLINE C--------------------------------------------------------------------- DO 800 I=1,3 PN(I)=SN(I) 800 P1(I)=S1(I) RETURN C E-O-R ENCOUNTERED 900 IP1 = -3 GO TO 999 C E-O-F ENCOUNTERED 905 IP1 = -2 999 CALL MESAGE(IP1,FILE,NAME) RETURN END ================================================ FILE: mis/apdcs.f ================================================ SUBROUTINE APDCS INTEGER CP,ACSID,CSTMA,IZ(1) REAL RCP1(3),RCP4(3),RB1(3),RB4(3),RX1(3),RX4(3) 1, RA2(3),RA3(3),RA4(3),RB2(3),RB3(3),VX1(3),VX2(3) 2, VX3(3),ACPL(3,3),V1(3),V2(3) COMMON /APD1C/ EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID 1, X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM 2, NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD 3, SCR1,SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,SILA 4, CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN COMMON /APD1D/ ICPL(14),YP4,SG,CG,XP2,XP3,XP4,RA1(3) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)) EQUIVALENCE (ICPL(3),RB1(1)),(ICPL(6),ACPL(1,1)) 1, (V1(1),RCP1(1)),(V2(1),RCP4(1)) DATA DEGR/.017453293/ ICPL(2) = 1 C CREATE PANEL COORDINATE SYSTEM C FIND CP TRANSFORMATION AND CONVERT POINT 1 AND 4 TO BASIC IF(CP.EQ.0) GO TO 120 IF(NCST1.EQ.0) GO TO 470 DO 40 ICP=NCST1,NCST2,14 IF(IZ(ICP).EQ.CP) GO TO 50 40 CONTINUE GO TO 470 50 IF(IZ(ICP+1)-2) 60,70,80 C CP RECTANGULAR 60 RCP1(1)=X1 RCP1(2)=Y1 RCP1(3)=Z1 RCP4(1)=X4 RCP4(2)=Y4 RCP4(3)=Z4 GO TO 90 C CP CYLINDRICAL 70 RCP1(1)=X1*COS(Y1*DEGR) RCP1(2)=X1*SIN(Y1*DEGR) RCP1(3)=Z1 RCP4(1)=X4*COS(Y4*DEGR) RCP4(2) = X4*SIN(Y4*DEGR) RCP4(3)=Z4 GO TO 90 C CP SPHERICAL 80 RCP1(1)=X1*SIN(Y1*DEGR)*COS(Z1*DEGR) RCP1(2)=X1*SIN(Y1*DEGR)*SIN(Z1*DEGR) RCP1(3)=X1*COS(Y1*DEGR) RCP4(1)=X4*SIN(Y4*DEGR)*COS(Z4*DEGR) RCP4(2)=X4*SIN(Y4*DEGR)*SIN(Z4*DEGR) RCP4(3)=X4*COS(Y4*DEGR) C CONVERT TO BASIC 90 CALL GMMATS(Z(ICP+5),3,3,0,RCP1,3,1,0,RB1) CALL GMMATS(Z(ICP+5),3,3,0,RCP4,3,1,0,RB4) J=ICP+1 DO 100 I=1,3 K=J+I 100 RB1(I)=RB1(I)+Z(K) DO 110 I=1,3 K=J+I 110 RB4(I)=RB4(I)+Z(K) GO TO 130 C COORDS ARE IN BASIC 120 RB1(1)=X1 RB1(2)=Y1 RB1(3)=Z1 RB4(1)=X4 RB4(2)=Y4 RB4(3)=Z4 C FIND R1 THRU IN R4 AERO CS 130 IF(ACSID.EQ.0) GO TO 150 J=IACS+1 DO 140 I=1,3 K=J+I RX1(I)=RB1(I)-Z(K) 140 RX4(I)=RB4(I)-Z(K) CALL GMMATS(Z(IACS+5),3,3,1,RX1,3,1,0,RA1) CALL GMMATS (Z(IACS+5),3,3,1,RX4,3,1,0,RA4) GO TO 170 150 DO 160 I=1,3 RA1(I)=RB1(I) 160 RA4(I)=RB4(I) C C STOP IF BODY C IF(IGID.LT.0) GO TO 1000 C CALCULATE R2 AND R3 IN AC CS 170 DO 180 I=2,3 RA2(I)=RA1(I) 180 RA3(I)=RA4(I) RA2(1)=RA1(1)+X12 RA3(1)=RA4(1)+X43 EE=SQRT((RA4(3)-RA1(3))**2 + (RA4(2)-RA1(2))**2) SG=(RA4(3)-RA1(3))/EE CG=(RA4(2)-RA1(2))/EE C LOCATE POINTS 2,3,4 IN PANEL CORDINATE SYSTEM XP2=X12 XP4=RA4(1)-RA1(1) XP3=RA3(1)-RA1(1) YP4=EE C TRANSFORM R2 AND R3 INTO BASIC IF(ACSID.EQ.0) GO TO 200 CALL GMMATS(Z(IACS+5),3,3,0,RA2,3,1,0,RB2) CALL GMMATS(Z(IACS+5),3,3,0,RA3,3,1,0,RB3) J=IACS+1 DO 190 I=1,3 K=J+I RB2(I) = RB2(I) + Z(K) 190 RB3(I) = RB3(I) + Z(K) GO TO 220 200 DO 210 I=1,3 RB2(I)=RA2(I) 210 RB3(I)=RA3(I) C FIND PANEL COORDINATE SYSTEM 220 DO 230 I=1,3 VX1(I)=RB2(I)-RB1(I) VX2(I)=RB4(I)-RB1(I) VX3(I) = RB3(I) - RB1(I) 230 IF ( X12. EQ. 0.0 ) VX1(I) = VX3(I) CALL SAXB(VX1,VX2,V1) SX1=SADOTB(V1,V1) CALL SAXB(VX1,VX3,V2) SX2=SADOTB(V2,V2) IF(SX1.LT.SX2) GO TO 250 SX1=1.0/SQRT(SX1) DO 240 I=1,3 240 VX3(I)=V1(I)*SX1 GO TO 270 250 SX2=1.0/SQRT(SX2) DO 260 I=1,3 260 VX3(I)=V2(I)*SX2 270 IF(ACSID .NE. 0) GO TO 275 VX1(1) = 1.0 VX1(2) = 0.0 VX1(3) = 0.0 GO TO 285 275 J=IACS+5 DO 280 I=1,3 K=J+3*(I-1) 280 VX1(I)=Z(K) 285 CONTINUE CALL SAXB(VX3,VX1,VX2) DO 290 I=1,3 ACPL(1,I)=VX1(I) ACPL(2,I)=VX2(I) 290 ACPL(3,I)=VX3(I) C WRITE TRANSFORMATION ON CSTMA ICPL(1)=MCSTM CALL WRITE(CSTMA,ICPL(1),14,0) 1000 RETURN 470 CALL MESAGE(-30,25,CP) GO TO 1000 END ================================================ FILE: mis/apdf.f ================================================ FUNCTION APDF (F,IN,NS) C REAL F(1) C C IF (NS .EQ. 0) GO TO 10 C APDF = FLOAT(IN-1)/FLOAT(NS) C RETURN C 10 APDF = F(IN) C RETURN C APDF = F(IN) IF (NS .NE. 0) APDF = FLOAT(IN-1)/FLOAT(NS) RETURN END ================================================ FILE: mis/apdoe.f ================================================ SUBROUTINE APDOE(ID,Z,START,END,FOUND,COUNT) C C APDOE FINDS AND OPEN ENDED CARD FOR ID C GIVEN A LIST Z(START ) TO Z(END) C FOUND = 0 IF NOT FOUND C FOUND = POINTER TO START OF CARD Z(FOUND) C COUNT = NUMBER OF DATA ITEMS NOT COUNTING THE ID C INTEGER START,END,FOUND,COUNT,Z(1) LOGICAL LOOK FOUND = 0 LOOK = .TRUE. COUNT = 0 IF(START.EQ.0) GO TO 50 DO 10 I = START,END IF(LOOK) GO TO 20 IF(Z(I).EQ.-1) LOOK = .TRUE. GO TO 10 20 IF(Z(I).EQ.ID) GO TO 30 LOOK = .FALSE. 10 CONTINUE GO TO 50 30 FOUND = I J = I + 2 COUNT = COUNT + 1 C C START COUNT AT + 2 BECAUSE PAERO4 CARD CAN HAVE -1 IN FIELD 2 C DO 40 I=J,END IF(Z(I).EQ.-1) GO TO 50 COUNT = COUNT + 1 40 CONTINUE 50 RETURN END ================================================ FILE: mis/apdr.f ================================================ SUBROUTINE APDR (FILE,Z,CORE,IN,OUT,WR,BUF,TYPE) C INTEGER FILE,OUT,CORE,WR,BUF,FLAG,Z(1),TYPE(3),NAME(2) DATA NAME /4HAPD ,4HR / C WR = 0 IN = 0 CALL LOCATE (*20,Z(BUF),TYPE,FLAG) IN = OUT + 1 CALL READ (*90,*10,FILE,Z(IN),CORE,0,WR) GO TO 80 10 OUT = IN + WR - 1 20 CORE = CORE - WR RETURN C 80 CALL MESAGE (-3,FILE,NAME) 90 CALL MESAGE (-2,FILE,NAME) GO TO 20 END ================================================ FILE: mis/area.f ================================================ FUNCTION AREA (G,I,J,K) C C THIS ROUTINE IS CALLED BY SFAREA WHICH IS CALLED BY EMGFIN TO C COMPUTE THE SURFACE AREAS OF THE SOLID ELEMENTS C DIMENSION G(1) AREA = 0.5*SQRT( 1 ((G(J+2)-G(I+2))*(G(K+3)-G(I+3))-(G(J+3)-G(I+3))*(G(K+2)-G(I+2))) 2 **2 3+((G(J+3)-G(I+3))*(G(K+1)-G(I+1))-(G(J+1)-G(I+1))*(G(K+3)-G(I+3))) 4 **2 5+((G(J+1)-G(I+1))*(G(K+2)-G(I+2))-(G(J+2)-G(I+2))*(G(K+1)-G(I+1))) 6 **2) RETURN END ================================================ FILE: mis/arrm.f ================================================ SUBROUTINE ARRM(P,D,ND) C C SCALED ARITHMETIC ROUTINES--ARRANGING ROUTINE C DOUBLE PRECISION DX,D,P,PX DIMENSION P(3),D(3),ND(3) DO 30 I=1,3 IF(D(I) .EQ. 0.0D0) GO TO 30 10 IF(DABS(D(I)) .GE. 1.0) GO TO 20 D(I) = D(I)*10.0 ND(I) = ND(I)-1 GO TO 10 20 IF(DABS(D(I)) .LT. 10.0) GO TO 30 D(I) = D(I)*0.1 ND(I) = ND(I)+1 GO TO 20 30 CONTINUE IF(ND(1) .GT. ND(2) .AND. ND(2) .GT. ND(3)) RETURN IF(ND(1) .GT. ND(2) .AND. ND(1) .GT. ND(3)) GO TO 110 IF(ND(2) - ND(3)) 50,40,80 40 IF(DABS(D(2)) .GE. DABS(D(3))) GO TO 80 50 IF(ND(1) - ND(3)) 70,60,110 60 IF(DABS(D(1)) .GE. DABS(D(3))) GO TO 110 70 NX=ND(1) DX=D(1) PX=P(1) ND(1)=ND(3) D(1)=D(3) P(1)=P(3) ND(3)=NX D(3)=DX P(3)=PX GO TO 110 80 IF(ND(1) - ND(2)) 100,90,110 90 IF(DABS(D(1)) .GE. DABS(D(2))) GO TO 110 100 NX=ND(1) DX=D(1) PX=P(1) ND(1)=ND(2) D(1)=D(2) P(1)=P(2) ND(2)=NX D(2)=DX P(2)=PX 110 IF(ND(2) - ND(3)) 130,120,140 120 IF(DABS(D(2)) .GE. DABS(D(3))) RETURN 130 NX=ND(2) DX=D(2) PX=P(2) ND(2)=ND(3) D(2)=D(3) P(2)=P(3) ND(3)=NX D(3)=DX P(3)=PX 140 RETURN END ================================================ FILE: mis/ascm01.f ================================================ SUBROUTINE ASCM01 (NAME,IPHASE,ISOL,NOGO) C C SUBSTRUCTURE COMMAND DMAP DATA C C COMMENTS FROM G.CHAN/UNISYS 8/1991 C IN SOME UNIX MACHINES, SUCH AS SiliconGraphics, THE FORTRAN C COMPILER IS A SUBSET OF THE C COMPILER. THE SYMBOL /* IS A COMMENT C MARKER FOR C, AND ANYTHING AFTER /* IS NOT PASS OVER TO THE C FORTRAN COMPILER. THEREFORE, ALL /* SYMBOLS IN RDMAP ARRAY ARE C REPLACED BY C THE ! WILL BE CHANGED BACK TO / IN THE EXECUTABLE CODE. C INTEGER COMND(6,3),XTRA(3),SUBNAM(2),ISAVE(21), 1 RDMAP(18,29),RDMAP1(18,9),RDMAP2(18,9), 2 RDMAP3(18,9),RDMAP4(18,2),OCT(3,13),OCT1(3,13), 3 PTBS(7,16),PTBS1(7,16) COMMON /PHAS11/ IPAS11(8) COMMON /PHAS31/ IPAS31(2) COMMON /ASDBD / IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(684) EQUIVALENCE (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1,1)), 1 (RDMAP2(1,1),RDMAP(1,10)),(PTBS1(1,1),PTBS(1,1)), 2 (RDMAP3(1,1),RDMAP(1,19)), 3 (RDMAP4(1,1),RDMAP(1,28)) DATA COMND / 1 4HSUBS , 29 , 3 , 13 , 16 , 8 , 2 4HSUBS , 8 , 1 , 0 , 3 , 0 , 3 4HSUBS , 8 , 1 , 0 , 3 , 2 / DATA SLASH / 1H/ / DATA ISAVE / 1 3,13,1, 19,8,2, 26,13,3, 26,15,2, 26,17,1, 27,5,1, 28,4,3 / DATA RDMAP 1 / 1 4HALTE,4HR ,4H (B,4HEGIN,4H) $ ,13*4H , 2 4HPARA,4HM ,4H //,4H*NOP,4H*/AL,4HLWAY,4HS=-1,4H $ ,4H , * 4H ,8*4H , 3 4HSGEN,4H ,4H CA,4HSECC,4H,,,/,4HCASE,4HSS,C,4HASEI,4H,,,,, * 4H,,,,,4H/S,N,4H,DRY,4H!*XX,4HXXXX,4HXX*/,4HS,N,,4HLUSE,4HT/ , 4 4H ,4H ,4H S,,4HN,NO,4HGPDT,4H $ ,12*4H , 5 4HEQUI,4HV ,4H CA,4HSEI,,4HCASE,4HCC/A,4HLLWA,4HYS $,4H , * 4H ,8*4H , 6 4HALTE,4HR ,4H (A,4HFTGP,4H4) $,13*4H , 7 4HPARA,4HM ,4H //,4H*ADD,4H*/DR,4HY/-1,4H /0 ,4H$ ,4H , * 4H ,8*4H , 8 4HLABE,4HL ,4H LB,4HSBEG,4H $ ,13*4H , 9 4HCOND,4H ,4H LB,4HLIS,,4HDRY ,4H$ ,12*4H / DATA RDMAP 2 / O 4HSSG1,4H ,4H SL,4HT,BG,4HPDT,,4HCSTM,4H,SIL,4H,EST,4H,MPT, * 4H,GPT,4HT,ED,4HT,MG,4HG,CA,4HSECC,4H,DIT,4H,/PG,4H,,,,,4H/ , 1 4H ,4H ,4H LU,4HSET/,4HNSKI,4HP $ ,12*4H , 2 4HCHKP,4HNT ,4H PG,4H $ ,14*4H , 3 4HALTE,4HR ,4H (S,4HOLVE,4H) $ ,13*4H , 4 4HSSG2,4H ,4H US,4HET,G,4HM,,K,4HFS,G,4HO,,P,4HG/QR,4H,PO,, * 4HPS,P,4HL $ ,7*4H , 5 4HCHKP,4HNT ,4H PO,4H,PS,,4HPL $,13*4H , 6 4HLABE,4HL ,4H LB,4HLIS ,4H$ ,13*4H , 7 4HALTE,4HR ,4H (S,4HDR) ,4H$ ,13*4H , 8 4HSUBP,4HH1 ,4H CA,4HSECC,4H,EQE,4HXIN,,4HUSET,4H,BGP,4HDT,C, * 4HSTM,,4HGPSE,4HTS,E,4HLSET,4HS//S,4H,N,D,4HRY/ ,4H ,4H / DATA RDMAP 3 / 9 4H ,4H ,4H *N,4HAME ,4H *,4H/XPL,4HOTID,4H !*P,4HVEC*, * 4H $ ,8*4H , O 4HCOND,4H ,4H LB,4HSEND,4H,DRY,4H $ ,12*4H , 1 4HEQUI,4HV ,4H PG,4H,PL/,4HNOSE,4HT $ ,12*4H , 2 4HCOND,4H ,4H LB,4HL10,,4HNOSE,4HT $ ,12*4H , 3 4HSSG2,4H ,4H US,4HET,G,4HM,YS,4H,KFS,4H,GO,,4H,PG/,4HQR,P, * 4HO,PS,4H,PL ,4H$ ,6*4H , 4 4HCHKP,4HNT ,4H PO,4H,PS,,4HPL $,13*4H , 5 4HLABE,4HL ,4H LB,4HL10 ,4H$ ,13*4H , 6 4HSOFO,4H ,4H ,K,4HAA,M,4HAA,P,4HL,BA,4HA,K4,4HAA//,4HS,N,, * 4HDRY/,4H*XXX,4HXXXX,4HX*!*,4HKMTX,4H*!*M,4HMTX*,4H!*PV,4HEC*/, 7 4H ,4H ,4H *B,4HMTX*,4H!*K4,4HMX* ,4H$ ,4H ,4H , * 4H ,8*4H / DATA RDMAP 4 / 8 4HLODA,4HPP ,4H PL,4H,/!*,4HNAME,4H ,4H*/S,,4HN,DR,4HY $ , * 4H ,8*4H , 9 4HEQUI,4HV ,4H CA,4HSESS,4H,CAS,4HECC/,4HALWA,4HYS $,4H , * 4H ,8*4H / DATA XTRA / 1 4HSAVE,4HNAME,4HRUN / DATA OCT 1 / 1 9 , 524288 , 0 , 2 10 , 983040 , 12 , 3 11 , 983040 , 12 , 4 12 , 983040 , 12 , 5 14 , 983040 , 12 , 6 15 , 983040 , 12 , 7 16 , 524288 , 0 , 8 21 , 1572864 , 12 , 9 22 , 1572864 , 12 , O 23 , 1572864 , 12 , 1 24 , 1572864 , 12 , 2 25 , 1572864 , 12 , 3 28 , 524288 , 8 / DATA PTBS 1 / 1 1 , 11 , 11 , 7 , 4 , 0 , 0 , 2 6 , 11 , 11 , 8 , 1 , 0 , 0 , 3 7 , 22 , 23 , 3 ,4HRUN , 0 , 0 , 4 13 , 11 , 11 , 7 , 2 , 0 , 0 , 5 17 , 11 , 11 , 5 , 3 , 0 , 0 , 6 19 , 11 , 12 , 8 ,4HNAME , 0 , 0 , 7 19 , 21 , 22 , 8 ,4HSAVE , 0 , 0 , 8 19 , 30 , 32 , 4 ,4HPITM , 524300 , 0 , 9 26 , 12 , 15 , 0 ,4HNAME , 1 , 0 , O 26 , 16 , 19 , 0 ,4HNAME , 2 , 0 , 1 26 , 20 , 22 , 0 ,4HNAME , 12 , 0 , 2 26 , 23 , 26 , 0 ,4HNAME , 16 , 0 , 3 26 , 27 , 31 , 0 ,4HNAME , 32 , 0 , 4 26 , 40 , 42 , 8 ,4HNAME , 0 , 0 , 5 26 , 65 , 67 , 4 ,4HPITM , 524288 , 0 , 6 28 , 15 , 17 , 8 ,4HNAME , 0 , 0 / DATA SUBNAM / 4HASCM,2H01 / C C RESTORE ORIGINAL DATA BY REPLACING ! BY / IN RDMAP C DO 20 L = 1,21,3 I = ISAVE(L+1) J = ISAVE(L ) K = ISAVE(L+2) RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1) 20 CONTINUE C C VALIDATE COMMAND AND SET POINTERS C IF (NAME .NE. COMND(1,IPHASE)) GO TO 1000 ICOMND = IPHASE IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 35 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 35 CONTINUE C C MOVE XTRA DATA C IF (NXTRA .EQ. 0) GO TO 45 DO 40 I = 1,NXTRA K = K + 1 40 IDAT(K) = XTRA(I) 45 CONTINUE C C MOVE OCT DATA C IF (NOCT .EQ. 0) GO TO 55 DO 50 J = 1,NOCT DO 50 I = 1,3 K = K + 1 50 IDAT(K) = OCT(I,J) 55 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 65 DO 60 J = 1,NPTBS DO 60 I = 1,7 K = K + 1 60 IDAT(K) = PTBS(I,J) 65 CONTINUE C C MOVE PHASE 1 DATA C IF (IPHASE.NE.1 .OR. NPH.EQ.0) GO TO 80 DO 70 I = 3,8 K = K + 1 70 IDAT(K) = IPAS11(I) DO 75 I = 1,2 K = K + 1 IDAT(K) = IPAS11(I) 75 CONTINUE GO TO 200 80 CONTINUE C C MOVE PHASE 3 DATA C IF (IPHASE.NE.3 .OR. NPH.EQ.0) GO TO 200 DO 110 I = 1,NPH K = K + 1 110 IDAT(K) = IPAS31(I) C 200 RETURN C C INPUT ERROR C 1000 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/ascm02.f ================================================ SUBROUTINE ASCM02 (NAME,IPHASE,ISOL,NOGO) C C RUN COMMAND DATA C INTEGER COMND(6,2),SUBNAM(2),RDMAP(18,6),PTBS(7,1) COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(117) DATA COMND/ 1 4HRUN , 1 , 0 , 0 , 1 , 0 , 2 4HENDD , 6 , 0 , 0 , 0 , 0 / DATA RDMAP/ 1 4HPARA,4HM ,4H //,4H*ADD,4H*/DR,4HY/-1,4H /0 ,4H$ ,4H , * 4H , 8*4H , 2 4HLABE,4HL ,4H LB,4HSEND,4H $ ,13*4H , 3 4HPARA,4HM ,4H //,4H*ADD,4H*/DR,4HY/DR,4HY/1 ,4H$ ,4H , * 4H , 8*4H , 4 4HCOND,4H ,4H FI,4HNIS,,4HDRY ,4H$ ,12*4H , 5 4HREPT,4H ,4H LB,4HSBEG,4H,1 $,13*4H , 6 4HJUMP,4H ,4H FI,4HNIS ,4H$ ,13*4H / DATA PTBS / 1 1, 22, 23, 3, 4HRUN , 0, 0 / C DATA SUBNAM/ 4HASCM,2H02 / C C VALIDATE COMMAND AND SET POINTERS C DO 10 I = 1, 2 IF (NAME .EQ. COMND(1,I)) GO TO 20 10 CONTINUE GO TO 70 20 ICOMND = I IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 40 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 40 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 60 DO 50 J = 1,NPTBS DO 50 I = 1,7 K = K + 1 50 IDAT(K) = PTBS(I,J) 60 CONTINUE C RETURN C C INPUT ERROR C 70 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/ascm03.f ================================================ SUBROUTINE ASCM03 (NAME,IPHASE,ISOL,NOGO) C C COMBINE COMMAND DMAP DATA C INTEGER COMND(6,1),XTRA(10),SUBNAM(2),ISAVE(111), 1 RDMAP(18,24),RDMAP1(18,9),RDMAP2(18,9), 2 RDMAP3(18,6),OCT(3,21),OCT1(3,18),OCT2(3,3), 3 PTBS(7,93),PTBS1(7,18),PTBS2(7,18),PTBS3(7,18), 4 PTBS4(7,18),PTBS5(7,18),PTBS6(7,3) COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(1156) EQUIVALENCE (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1, 1)), 1 (RDMAP2(1,1),RDMAP(1,10)),(OCT2(1,1),OCT(1,19)), 2 (RDMAP3(1,1),RDMAP(1,19)), 3 (PTBS 1(1,1),PTBS (1, 1)),(PTBS2(1,1),PTBS(1,19)), 4 (PTBS 3(1,1),PTBS(1, 37)),(PTBS4(1,1),PTBS(1,55)), 5 (PTBS 5(1,1),PTBS(1, 73)),(PTBS6(1,1),PTBS(1,91)) DATA COMND / 1 4HCOMB , 24 , 10 , 21 , 93 , 0 / DATA SLASH / 1H/ / DATA ISAVE / 1 3,15,3, 3,16,3, 4, 6,1, 4,11,3, 4,14,2, 5, 6,1, 6, 8,1, 2 7,15,3, 7,16,3, 8, 6,1, 8,11,3, 8,14,2, 9, 6,1, 10, 8,1, 3 11,15,3, 11,16,3, 12, 6,1, 12,11,3, 12,14,2, 13, 6,1, 14, 8,1, 4 15,15,3, 15,16,3, 16, 6,1, 16,11,3, 16,14,2, 17, 6,1, 18, 8,1, 5 19,17,3, 20, 5,1, 20,10,3, 20,13,2, 20,16,1, 21, 6,1, 22, 8,2, 6 22,11,1, 24, 5,1 / DATA RDMAP 1 / 1 4HCOMB,4H1 ,4H CA,4HSECC,4H,GEO,4HM4//,4HSTP/,4HS,N,,4HDRY/, * 4H*PVE,4HC* $, 7*4H , 2 4HCOND,4H ,4H LB,4HSTP,,4HDRY ,4H$ ,12*4H , 3 4HCOMB,4H2 ,4H ,K,4HN01,,4HKN02,4H,KN0,4H3,KN,4H04,K,4HN05,, * 4HKN06,4H,KN0,4H7/KN,4HSC/S,4H,N,D,4HRY!*,4HK*!*,4H ,4H*/ , 4 4H ,4H ,4H *N,4HAME0,4H001*,4H!*NA,4HME00,4H02*/,4H*NAM, * 4HE000,4H3*!*,4HNAME,4H0004,4H*!*N,4HAME0,4H005*,4H/ ,4H , 5 4H ,4H ,4H *N,4HAME0,4H006*,4H!*NA,4HME00,4H07* ,4H$ , * 4H , 8*4H , 6 4HSOFO,4H ,4H ,K,4HNSC,,4H,,,/,4H/S,N,4H,DRY,4H!*NA,4HMEC , * 4H */,4H*KMT,4HX* $, 6*4H , 7 4HCOMB,4H2 ,4H ,M,4HN01,,4HMN02,4H,MN0,4H3,MN,4H04,M,4HN05,, * 4HMN06,4H,MN0,4H7/MN,4HSC/S,4H,N,D,4HRY!*,4HM*!*,4H ,4H*/ , 8 4H ,4H ,4H *N,4HAME0,4H001*,4H!*NA,4HME00,4H02*/,4H*NAM, * 4HE000,4H3*!*,4HNAME,4H0004,4H*!*N,4HAME0,4H005*,4H/ ,4H , 9 4H ,4H ,4H *N,4HAME0,4H006*,4H!*NA,4HME00,4H07* ,4H$ , * 4H , 8*4H / DATA RDMAP 2 / O 4HSOFO,4H ,4H ,M,4HNSC,,4H,,,/,4H/S,N,4H,DRY,4H!*NA,4HMEC , * 4H */,4H*MMT,4HX* $, 6*4H , 1 4HCOMB,4H2 ,4H ,P,4HN01,,4HPN02,4H,PN0,4H3,PN,4H04,P,4HN05,, * 4HPN06,4H,PN0,4H7/PN,4HSC/S,4H,N,D,4HRY!*,4HP*!*,4HPVEC,4H*/ , 2 4H ,4H ,4H *N,4HAME0,4H001*,4H!*NA,4HME00,4H02*/,4H*NAM, * 4HE000,4H3*!*,4HNAME,4H0004,4H*!*N,4HAME0,4H005*,4H/ ,4H , 3 4H ,4H ,4H *N,4HAME0,4H006*,4H!*NA,4HME00,4H07* ,4H$ , * 4H , 8*4H , 4 4HSOFO,4H ,4H ,P,4HNSC,,4H,,,/,4H/S,N,4H,DRY,4H!*NA,4HMEC , * 4H */,4H*PVE,4HC* $, 6*4H , 5 4HCOMB,4H2 ,4H ,B,4HN01,,4HBN02,4H,BN0,4H3,BN,4H04,B,4HN05,, * 4HBN06,4H,BN0,4H7/BN,4HSC/S,4H,N,D,4HRY!*,4HB*!*,4H ,4H*/ , 6 4H ,4H ,4H *N,4HAME0,4H001*,4H!*NA,4HME00,4H02*/,4H*NAM, * 4HE000,4H3*!*,4HNAME,4H0004,4H*!*N,4HAME0,4H005*,4H/ ,4H , 7 4H ,4H ,4H *N,4HAME0,4H006*,4H!*NA,4HME00,4H07* ,4H$ , * 4H , 8*4H , 8 4HSOFO,4H ,4H ,B,4HNSC,,4H,,,/,4H/S,N,4H,DRY,4H!*NA,4HMEC , * 4H */,4H*BMT,4HX* $, 6*4H / DATA RDMAP 3 / 9 4HCOMB,4H2 ,4H ,K,4H4N01,4H,K4N,4H02,K,4H4N03,4H,K4N,4H04,K, * 4H4N05,4H,K4N,4H06,K,4H4N07,4H/K4N,4HSC/S,4H,N,D,4HRY!*,4HK4*/, O 4H ,4H ,4H * ,4H *,4H!*NA,4HME00,4H01*/,4H*NAM,4HE000, * 4H2*!*,4HNAME,4H0003,4H*!*N,4HAME0,4H004*,4H!*NA,4HME00,4H05*/, 1 4H ,4H ,4H *N,4HAME0,4H006*,4H!*NA,4HME00,4H07* ,4H$ , * 4H , 8*4H , 2 4HSOFO,4H ,4H ,K,4H4NSC,4H,,,,,4H//S,,4HN,DR,4HY!*N,4HAMEC, * 4H *,4H!*K4,4HMX* ,4H$ , 5*4H , 3 4HLABE,4HL ,4H LB,4HSTP ,4H$ ,13*4H , 4 4HLODA,4HPP ,4H PN,4HSC,/,4H!*NA,4HMEC ,4H */,4HS,N,,4HDRY , * 4H$ , 8*4H / DATA XTRA / 1 4HSORT,4HNAME,4HNAMS,4HTOLE,4HCONN,4HCOMP,4HTRAN , 2 4HSYMT,4HSEAR,4HOUTP/ DATA OCT 1 / 1 3 , 0 , 1 , 2 4 , 0 , 1 , 3 5 , 0 , 1 , 4 6 , 0 , 1 , 5 7 , 0 , 2 , 6 8 , 0 , 2 , 7 9 , 0 , 2 , 8 10 , 0 , 2 , 9 11 , 0 , 12 , O 12 , 0 , 12 , 1 13 , 0 , 12 , 2 14 , 0 , 12 , 3 15 , 0 , 16 , 4 16 , 0 , 16 , 5 17 , 0 , 16 , 6 18 , 0 , 16 , 7 19 , 0 , 32 , 8 20 , 0 , 32 / DATA OCT 2 / 1 21 , 0 , 32 , 2 22 , 0 , 32 , 3 24 , 0 , 8 / DATA PTBS 1 / 1 1 , 24 , 25 , 3 ,4HNSTP , 0 , 0 , 2 1 , 36 , 38 , 4 ,4HPITM , 12 , 0 , 3 2 , 13 , 13 , 3 ,4HNSTP , 0 , 0 , 4 3 , 12 , 13 , 3 ,4HN1 , 0 , 1 , 5 3 , 17 , 18 , 3 ,4HN2 , 0 , 1 , 6 3 , 22 , 23 , 3 ,4HN3 , 0 , 1 , 7 3 , 27 , 28 , 3 ,4HN4 , 0 , 1 , 8 3 , 32 , 33 , 3 ,4HN5 , 0 , 1 , 9 3 , 37 , 38 , 3 ,4HN6 , 0 , 1 , O 3 , 42 , 43 , 3 ,4HN7 , 0 , 1 , 1 3 , 47 , 48 , 3 ,4HNCNO , 1 , -1 , 2 4 , 11 , 12 , 8 ,4HNA1 , 0 , 0 , 3 4 , 21 , 23 , 8 ,4HNA2 , 0 , 0 , 4 4 , 32 , 34 , 8 ,4HNA3 , 0 , 0 , 5 4 , 43 , 45 , 8 ,4HNA4 , 0 , 0 , 6 4 , 54 , 56 , 8 ,4HNA5 , 0 , 0 , 7 5 , 11 , 12 , 8 ,4HNA6 , 0 , 0 , 8 5 , 21 , 23 , 8 ,4HNA7 , 0 , 0 / DATA PTBS 2 / 1 6 , 12 , 13 , 3 ,4HNCNO , 1 , 1 , 2 6 , 29 , 31 , 8 ,4HNAMC , 0 , 0 , 3 7 , 12 , 13 , 3 ,4HN1 , 0 , 1 , 4 7 , 17 , 18 , 3 ,4HN2 , 0 , 1 , 5 7 , 22 , 23 , 3 ,4HN3 , 0 , 1 , 6 7 , 27 , 28 , 3 ,4HN4 , 0 , 1 , 7 7 , 32 , 33 , 3 ,4HN5 , 0 , 1 , 8 7 , 37 , 38 , 3 ,4HN6 , 0 , 1 , 9 7 , 42 , 43 , 3 ,4HN7 , 0 , 1 , O 7 , 47 , 48 , 3 ,4HNCNO , 2 , -1 , 1 8 , 11 , 12 , 8 ,4HNA1 , 0 , 0 , 2 8 , 21 , 23 , 8 ,4HNA2 , 0 , 0 , 3 8 , 32 , 34 , 8 ,4HNA3 , 0 , 0 , 4 8 , 43 , 45 , 8 ,4HNA4 , 0 , 0 , 5 8 , 54 , 56 , 8 ,4HNA5 , 0 , 0 , 6 9 , 11 , 12 , 8 ,4HNA6 , 0 , 0 , 7 9 , 21 , 23 , 8 ,4HNA7 , 0 , 0 , 8 10 , 12 , 13 , 3 ,4HNCNO , 2 , 1 / DATA PTBS 3 / 1 10 , 29 , 31 , 8 ,4HNAMC , 0 , 0 , 2 11 , 12 , 13 , 3 ,4HN1 , 0 , 1 , 3 11 , 17 , 18 , 3 ,4HN2 , 0 , 1 , 4 11 , 22 , 23 , 3 ,4HN3 , 0 , 1 , 5 11 , 27 , 28 , 3 ,4HN4 , 0 , 1 , 6 11 , 32 , 33 , 3 ,4HN5 , 0 , 1 , 7 11 , 37 , 38 , 3 ,4HN6 , 0 , 1 , 8 11 , 42 , 43 , 3 ,4HN7 , 0 , 1 , 9 11 , 47 , 48 , 3 ,4HNCNO , 12 , -1 , O 11 , 63 , 65 , 4 ,4HPITM , 0 , 0 , 1 12 , 11 , 12 , 8 ,4HNA1 , 0 , 0 , 2 12 , 21 , 23 , 8 ,4HNA2 , 0 , 0 , 3 12 , 32 , 34 , 8 ,4HNA3 , 0 , 0 , 4 12 , 43 , 45 , 8 ,4HNA4 , 0 , 0 , 5 12 , 54 , 56 , 8 ,4HNA5 , 0 , 0 , 6 13 , 11 , 12 , 8 ,4HNA6 , 0 , 0 , 7 13 , 21 , 23 , 8 ,4HNA7 , 0 , 0 , 8 14 , 12 , 13 , 3 ,4HNCNO , 12 , 1 / DATA PTBS 4 / 1 14 , 29 , 31 , 8 ,4HNAMC , 0 , 0 , 2 14 , 40 , 42 , 4 ,4HPITM , 0 , 0 , 3 15 , 12 , 13 , 3 ,4HN1 , 0 , 1 , 4 15 , 17 , 18 , 3 ,4HN2 , 0 , 1 , 5 15 , 22 , 23 , 3 ,4HN3 , 0 , 1 , 6 15 , 27 , 28 , 3 ,4HN4 , 0 , 1 , 7 15 , 32 , 33 , 3 ,4HN5 , 0 , 1 , 8 15 , 37 , 38 , 3 ,4HN6 , 0 , 1 , 9 15 , 42 , 43 , 3 ,4HN7 , 0 , 1 , O 15 , 47 , 48 , 3 ,4HNCNO , 16 , -1 , 1 16 , 11 , 12 , 8 ,4HNA1 , 0 , 0 , 2 16 , 21 , 23 , 8 ,4HNA2 , 0 , 0 , 3 16 , 32 , 34 , 8 ,4HNA3 , 0 , 0 , 4 16 , 43 , 45 , 8 ,4HNA4 , 0 , 0 , 5 16 , 54 , 56 , 8 ,4HNA5 , 0 , 0 , 6 17 , 11 , 12 , 8 ,4HNA6 , 0 , 0 , 7 17 , 21 , 23 , 8 ,4HNA7 , 0 , 0 , 8 18 , 12 , 13 , 3 ,4HNCNO , 16 , 1 / DATA PTBS 5 / 1 18 , 29 , 31 , 8 ,4HNAMC , 0 , 0 , 2 19 , 12 , 14 , 3 ,4HN1 , 0 , 1 , 3 19 , 18 , 20 , 3 ,4HN2 , 0 , 1 , 4 19 , 24 , 26 , 3 ,4HN3 , 0 , 1 , 5 19 , 30 , 32 , 3 ,4HN4 , 0 , 1 , 6 19 , 36 , 38 , 3 ,4HN5 , 0 , 1 , 7 19 , 42 , 44 , 3 ,4HN6 , 0 , 1 , 8 19 , 48 , 50 , 3 ,4HN7 , 0 , 1 , 9 19 , 54 , 56 , 3 ,4HNCNO , 32 , -1 , O 20 , 17 , 19 , 8 ,4HNA1 , 0 , 0 , 1 20 , 28 , 30 , 8 ,4HNA2 , 0 , 0 , 2 20 , 39 , 41 , 8 ,4HNA3 , 0 , 0 , 3 20 , 50 , 52 , 8 ,4HNA4 , 0 , 0 , 4 20 , 61 , 63 , 8 ,4HNA5 , 0 , 0 , 5 21 , 11 , 12 , 8 ,4HNA6 , 0 , 0 , 6 21 , 21 , 23 , 8 ,4HNA7 , 0 , 0 , 7 22 , 12 , 14 , 3 ,4HNCNO , 32 , 1 , 8 22 , 30 , 32 , 8 ,4HNAMC , 0 , 0 / DATA PTBS 6 / 1 23 , 11 , 13 , 3 ,4HNSTP , 0 , 0 , 2 24 , 11 , 12 , 3 ,4HNCNO , 0 , 1 , 3 24 , 17 , 19 , 8 ,4HNAMC , 0 , 0 / DATA SUBNAM / 4HASCM,2H03 / C C RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY C (SEE ASCM01 FOR EXPLANATION)) C DO 20 L = 1,111,3 I = ISAVE(L+1) J = ISAVE(L ) K = ISAVE(L+2) RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1) 20 CONTINUE C C VALIDATE COMMAND AND SET POINTERS C IF (NAME .NE. COMND(1,1)) GO TO 70 ICOMND = 1 IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 35 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 35 CONTINUE C C MOVE XTRA DATA C IF (NXTRA .EQ. 0) GO TO 45 DO 40 I = 1,NXTRA K = K + 1 40 IDAT(K) = XTRA(I) 45 CONTINUE C C MOVE OCT DATA C IF (NOCT .EQ. 0) GO TO 55 DO 50 J = 1,NOCT DO 50 I = 1,3 K = K + 1 50 IDAT(K) = OCT(I,J) 55 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 65 DO 60 J = 1,NPTBS DO 60 I = 1,7 K = K + 1 60 IDAT(K) = PTBS(I,J) 65 CONTINUE C RETURN C C INPUT ERROR C 70 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/ascm04.f ================================================ SUBROUTINE ASCM04 (NAME,IPHASE,ISOL,NOGO) C C REDUCE COMMAND DMAP DATA C INTEGER COMND(6,1),XTRA(4),SUBNAM(2),ISAVE(54), 1 RDMAP(18,23),RDMAP1(18,9),RDMAP2(18,9), 2 RDMAP3(18,5),OCT(3,16),OCT1(3,16),PTBS(7,67), 3 PTBS1(7,18),PTBS2(7,18),PTBS3(7,18),PTBS4(7,13) COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(935) EQUIVALENCE (RDMAP1(1,1),RDMAP(1,1)),(RDMAP2(1,1),RDMAP(1,10)), 1 (RDMAP3(1,1),RDMAP(1,19)),(OCT1(1,1),OCT(1,1)), 2 (PTBS 1(1,1),PTBS(1, 1)),(PTBS2(1,1),PTBS(1,19)), 3 (PTBS 3(1,1),PTBS(1,37)),(PTBS4(1,1),PTBS(1,55)) DATA COMND / 1 4HREDU , 23 , 4 , 16 , 67 , 0 / DATA SLASH / 1H/ / DATA ISAVE / 1 1,14,1, 3,12,1, 3,16,3, 4, 5,1, 8, 8,2, 8,11,1, 9, 7,1, 2 10,10,3, 12, 7,1, 14, 7,1, 16, 7,2, 16,10,1, 19, 7,2, 19,10,1, 3 20, 7,2, 20,10,1, 21, 7,1, 23, 6,2 / DATA RDMAP 1 / 1 4HREDU,4HCE ,4H CA,4HSECC,4H,GEO,4HM4/P,4HVNOA,4H,USS,4HTP,I, * 4HNSTP,4H/STP,4H/S,N,4H,DRY,4H!*PV,4HEC* ,4H$ ,4H ,4H , 2 4HCOND,4H ,4H LB,4HRSTP,4H,DRY,4H $ ,12*4H , 3 4HSOFI,4H ,4H /K,4HNOA,,4HMNOA,4H,PNO,4HA,BN,4HOA,K,4H4NOA, * 4H/S,N,4H,DRY,4H!*NA,4HME00,4H0A*/,4H*KMT,4HX*!*,4HMMTX,4H*/ , 4 4H ,4H ,4H *P,4HVEC*,4H!*BM,4HTX*/,4H*K4M,4HX* $,4H , * 4H , 8*4H , 5 4HCOND,4H ,4H LB,4HRSTP,4H,DRY,4H $ ,12*4H , 6 4HSMP1,4H ,4H US,4HSTP,,4HKNOA,4H,,,/,4HGONO,4HA,KN,4HOB,K, * 4HONOA,4H,LON,4HOA,,,4H,,, ,4H$ , 4*4H , 7 4HMERG,4HE ,4H GO,4HNOA,,4HINST,4HP,,,,4H,PVN,4HOA/G,4HNOA/, * 4H1/TY,4HP/2 ,4H$ , 6*4H , 8 4HSOFO,4H ,4H ,G,4HNOA,,4HLONO,4HA,,,,4H//DR,4HY!*N,4HAME0, * 4H00A*,4H!*HO,4HRG*/,4H*LMT,4HX* $, 4*4H , 9 4HSOFO,4H ,4H ,K,4HNOB,,4H,,,/,4H/DRY,4H!*NA,4HME00,4H0B*/, * 4H*KMT,4HX* $, 7*4H / DATA RDMAP 2 / O 4HSOFI,4H ,4H /G,4HNOA,,4H,,,/,4HS,N,,4HDRY/,4H*NAM,4HE000, * 4HA*!*,4HHORG,4H* $ , 6*4H , 1 4HMPY3,4H ,4H GN,4HOA,M,4HNOA,,4H/MNO,4HB/0/,4H0 $ ,4H , * 4H , 8*4H , 2 4HSOFO,4H ,4H ,M,4HNOB,,4H,,,/,4H/DRY,4H!*NA,4HME00,4H0B*/, * 4H*MMT,4HX* $, 7*4H , 3 4HMPY3,4H ,4H GN,4HOA,B,4HNOA,,4H/BNO,4HB/0/,4H0 $ ,4H , * 4H , 8*4H , 4 4HSOFO,4H ,4H ,B,4HNOB,,4H,,,/,4H/DRY,4H!*NA,4HME00,4H0B*/, * 4H*BMT,4HX* $, 7*4H , 5 4HMPY3,4H ,4H GN,4HOA,K,4H4NOA,4H,/K4,4HNOB/,4H0/0 ,4H$ , * 4H , 8*4H , 6 4HSOFO,4H ,4H ,K,4H4NOB,4H,,,,,4H//DR,4HY!*N,4HAME0,4H00B*, * 4H!*K4,4HMX* ,4H$ , 6*4H , 7 4HPART,4HN ,4H PN,4HOA,,,4HPVNO,4HA/PO,4HNOA,,4H,,/1,4H/1/2, * 4H $ , 8*4H , 8 4HMPYA,4HD ,4H GN,4HOA,P,4HNOA,,4H/PNO,4HB/1/,4H1/0/,4H1 $ , * 4H , 8*4H / DATA RDMAP 3 / 9 4HSOFO,4H ,4H ,P,4HONOA,4H,,,,,4H//DR,4HY!*N,4HAME0,4H00A*, * 4H!*PO,4HVE* ,4H$ , 6*4H , O 4HSOFO,4H ,4H ,P,4HVNOA,4H,,,,,4H//DR,4HY!*N,4HAME0,4H00A*, * 4H!*UP,4HRT* ,4H$ , 6*4H , 1 4HSOFO,4H ,4H ,P,4HNOB,,4H,,,/,4H/DRY,4H!*NA,4HME00,4H0B*/, * 4H*PVE,4HC* $, 7*4H , 2 4HLABE,4HL ,4H LB,4HRSTP,4H $ ,13*4H , 3 4HLODA,4HPP ,4H PN,4HOB,P,4HONOA,4H/!*N,4HAME0,4H00B*,4H/S,N, * 4H,DRY,4H $ , 7*4H / DATA XTRA / 1 4HOUTP,4HNAME,4HBOUN,4HRSAV / DATA OCT 1 / 1 6 , 0 , 1 , 2 7 , 0 , 1 , 3 8 , 0 , 1 , 4 9 , 0 , 1 , 5 10 , 1 , 62 , 6 11 , 0 , 2 , 7 12 , 0 , 2 , 8 13 , 0 , 16 , 9 14 , 0 , 16 , O 15 , 0 , 32 , 1 16 , 0 , 32 , 2 17 , 0 , 12 , 3 18 , 0 , 12 , 4 19 , 0 , 12 , 5 21 , 0 , 12 , 6 23 , 0 , 8 / DATA PTBS 1 / 1 1 , 24 , 26 , 3 ,4HNONA , 0 , 0 , 2 1 , 32 , 32 , 3 ,4HSTEP , 0 , 0 , 3 1 , 38 , 38 , 3 ,4HSTEP , 0 , 0 , 4 1 , 41 , 42 , 3 ,4HSTEP , 0 , 0 , 5 1 , 53 , 55 , 4 ,4HPITM , 0 , 0 , 6 2 , 14 , 14 , 3 ,4HSTEP , 0 , 0 , 7 3 , 12 , 13 , 3 ,4HNONA , 1 , -1 , 8 3 , 17 , 18 , 3 ,4HNONA , 2 , -1 , 9 3 , 22 , 23 , 3 ,4HNONA , 12 , -1 , O 3 , 27 , 28 , 3 ,4HNONA , 16 , -1 , 1 3 , 32 , 34 , 3 ,4HNONA , 32 , -1 , 2 3 , 45 , 47 , 8 ,4HNAMA , 0 , 0 , 3 4 , 11 , 12 , 4 ,4HPITM , 0 , 0 , 4 5 , 14 , 14 , 3 ,4HSTEP , 0 , 0 , 5 6 , 11 , 13 , 3 ,4HSTEP , 0 , 0 , 6 6 , 17 , 18 , 3 ,4HNONA , 0 , 0 , 7 6 , 25 , 27 , 3 ,4HNONA , 0 , -1 , 8 6 , 31 , 32 , 3 ,4HNONB , 0 , -1 / DATA PTBS 2 / 1 6 , 36 , 38 , 3 ,4HNONA , 0 , 0 , 2 6 , 42 , 44 , 3 ,4HNONA , 0 , 0 , 3 7 , 11 , 13 , 3 ,4HNONA , 0 , 0 , 4 7 , 17 , 19 , 3 ,4HSTEP , 0 , 0 , 5 7 , 26 , 28 , 3 ,4HNONA , 0 , 0 , 6 7 , 32 , 33 , 3 ,4HNONA , 0 , -1 , 7 7 , 38 , 39 , 3 ,4HPREC , 0 , 0 , 8 8 , 12 , 13 , 3 ,4HNONA , 0 , 0 , 9 8 , 17 , 19 , 3 ,4HNONA , 0 , 0 , O 8 , 17 , 21 , 0 ,4HRSAV , 0 , 0 , 1 8 , 30 , 32 , 8 ,4HNAMA , 0 , 0 , 2 8 , 48 , 54 , 0 ,4HRSAV , 0 , 0 , 3 9 , 12 , 13 , 3 ,4HNONB , 0 , 0 , 4 9 , 25 , 27 , 8 ,4HNAMB , 0 , 0 , 5 10 , 12 , 13 , 3 ,4HNONA , 0 , -1 , 6 10 , 28 , 30 , 8 ,4HNAMA , 0 , 0 , 7 11 , 11 , 12 , 3 ,4HNONA , 0 , 0 , 8 11 , 16 , 17 , 3 ,4HNONA , 0 , 0 / DATA PTBS 3 / 1 11 , 22 , 23 , 3 ,4HNONB , 0 , -1 , 2 12 , 12 , 13 , 3 ,4HNONB , 0 , 0 , 3 12 , 25 , 27 , 8 ,4HNAMB , 0 , 0 , 4 13 , 11 , 12 , 3 ,4HNONA , 0 , 0 , 5 13 , 16 , 17 , 3 ,4HNONA , 0 , 0 , 6 13 , 22 , 23 , 3 ,4HNONB , 0 , -1 , 7 14 , 12 , 13 , 3 ,4HNONB , 0 , 0 , 8 14 , 25 , 27 , 8 ,4HNAMB , 0 , 0 , 9 15 , 11 , 12 , 3 ,4HNONA , 0 , 0 , O 15 , 16 , 18 , 3 ,4HNONA , 0 , 0 , 1 15 , 23 , 25 , 3 ,4HNONB , 0 , -1 , 2 16 , 12 , 14 , 3 ,4HNONB , 0 , 0 , 3 16 , 26 , 28 , 8 ,4HNAMB , 0 , 0 , 4 17 , 11 , 12 , 3 ,4HNONA , 0 , 0 , 5 17 , 17 , 19 , 3 ,4HNONA , 0 , 0 , 6 17 , 23 , 25 , 3 ,4HNONA , 0 , 0 , 7 18 , 11 , 12 , 3 ,4HNONA , 0 , 0 , 8 18 , 16 , 17 , 3 ,4HNONA , 0 , 0 / DATA PTBS 4 / 1 18 , 22 , 23 , 3 ,4HNONB , 0 , -1 , 2 19 , 12 , 14 , 3 ,4HNONA , 0 , 0 , 3 19 , 26 , 28 , 8 ,4HNAMA , 0 , 0 , 4 19 , 37 , 39 , 4 ,4HPOIT , 0 , 0 , 5 20 , 12 , 14 , 3 ,4HNONA , 0 , 0 , 6 20 , 26 , 28 , 8 ,4HNAMA , 0 , 0 , 7 21 , 12 , 13 , 3 ,4HNONB , 0 , 1 , 8 21 , 25 , 27 , 8 ,4HNAMB , 0 , 0 , 9 21 , 36 , 38 , 4 ,4HPITM , 0 , 0 , O 22 , 14 , 14 , 3 ,4HSTEP , 0 , 0 , 1 23 , 11 , 12 , 3 ,4HNONB , 0 , 1 , 2 23 , 16 , 18 , 3 ,4HNONA , 0 , 1 , 3 23 , 22 , 24 , 8 ,4HNAMB , 0 , 0 / C DATA SUBNAM / 4HASCM,2H04 / C C RESTORE TO ORIGINAL DATA BY REPLACEING !* BY /* IN RDMAP ARRAY C (SEE ASCM01 FOR EXPLANATION) C DO 20 L = 1,51,3 I = ISAVE(L+1) J = ISAVE(L ) K = ISAVE(L+2) RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1) 20 CONTINUE C C VALIDATE COMMAND AND SET POINTERS C IF (NAME .NE. COMND(1,1)) GO TO 70 ICOMND = 1 IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 35 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 35 CONTINUE C C MOVE XTRA DATA C IF (NXTRA .EQ. 0) GO TO 45 DO 40 I = 1,NXTRA K = K + 1 40 IDAT(K) = XTRA(I) 45 CONTINUE C C MOVE OCT DATA C IF (NOCT .EQ. 0) GO TO 55 DO 50 J = 1,NOCT DO 50 I = 1,3 K = K + 1 50 IDAT(K) = OCT(I,J) 55 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 65 DO 60 J = 1,NPTBS DO 60 I = 1,7 K = K + 1 60 IDAT(K) = PTBS(I,J) 65 CONTINUE C RETURN C C INPUT ERROR C 70 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/ascm05.f ================================================ SUBROUTINE ASCM05 (NAME,IPHASE,ISOL,NOGO) C C SOLVE COMMAND DMAP DATA C INTEGER COMND(6,1),SUBNAM(2),RDMAP(18,28),RDMAP1(18,9), 1 RDMAP2(18,9),RDMAP3(18,9),RDMAP4(18,1),OCT(3,5), 2 OCT1(3,5),PTBS(7,20),PTBS1(7,18),PTBS2(7,2) COMMON /PHAS25/ IPAS25(14) COMMON /ASDBD / IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(673) EQUIVALENCE (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1,1)), 1 (RDMAP2(1,1),RDMAP(1,10)),(PTBS1(1,1),PTBS(1,1)), 2 (RDMAP3(1,1),RDMAP(1,19)),(PTBS 2(1,1),PTBS(1,19)) 3, (RDMAP4(1,1),RDMAP(1,28)) DATA COMND / 1 4HSOLV , 28 , 0 , 5 , 20 , 14 / DATA SLASH / 1H/ / DATA RDMAP 1 / 1 4HALTE,4HR ,4H (G,4HP1) ,4H$ ,13*4H , 2 4HPARA,4HM ,4H //,4H*NOP,4H*/AL,4HWAYS,4H=-1 ,4H$ ,4H , * 4H ,8*4H , 3 4HSGEN,4H ,4H CA,4HSECC,4H,GEO,4HM3,G,4HEOM4,4H,DYN,4HAMIC, * 4HS/CA,4HSESS,4H,CAS,4HEI,G,4HPL,E,4HQEXI,4HN,GP,4HDT, ,4H , 4 4H ,4H ,4H BG,4HPDT,,4HSIL,,4HGE3S,4H,GE4,4HS,DY,4HNS/S, * 4H,N,D,4HRY!*,4HNAME,4HSOLS,4H*/S,,4HN,LU,4HSET/,4H ,4H , 5 4H ,4H ,4H S,,4HN,NO,4HGPDT,4H $ ,12*4H , 6 4HPURG,4HE ,4H CS,4HTM $,14*4H , 7 4HEQUI,4HV ,4H GE,4H3S,G,4HEOM3,4H/ALW,4HAYS/,4HGE4S,4H,GEO, * 4HM4/A,4HLWAY,4HS/CA,4HSEI,,4HCASE,4HCC/A,4HLWAY,4HS/ ,4H , 8 4H ,4H ,4H DY,4HNS,D,4HYNAM,4HICS/,4HALWA,4HYS $,4H , * 4H ,8*4H , 9 4HCOND,4H ,4H LB,4HSTP,,4HDRY ,4H$ ,12*4H / DATA RDMAP 2 / O 4HALTE,4HR ,4H (P,4HLOT),4H $ ,13*4H , 1 4HALTE,4HR ,4H (C,4HOND),4H $ ,13*4H , 2 4HCOND,4H ,4H LB,4HSOL,,4HNOSI,4HMP $,12*4H , 3 4HALTE,4HR ,4H (O,4HPTP),4H $ ,13*4H , 4 4HCOND,4H ,4H LB,4HSOL,,4HNOMG,4HG $ ,12*4H , 5 4HALTE,4HR ,4H (S,4HMA3),4H $ ,13*4H , 6 4HLABE,4HL ,4H LB,4HSOL ,4H$ ,13*4H , 7 4HSOFI,4H ,4H /K,4HNOS,,4HMNOS,4H,,,/,4HDRY/,4H*NAM,4HESOL, * 4HS*!*,4HKMTX,4H*!*M,4HMTX*,4H $ , 4*4H , 8 4HEQUI,4HV ,4H KN,4HOS,K,4HGG/N,4HOSIM,4HP $ ,4H ,4H , * 4H ,8*4H / DATA RDMAP 3 / 9 4HEQUI,4HV ,4H MN,4HOS,M,4HGG/N,4HOSIM,4HP $ ,4H ,4H , * 4H ,8*4H , O 4HCOND,4H ,4H LB,4HSTP,,4HNOSI,4HMP $,12*4H , 1 4HADD ,4H ,4H KG,4HGX,K,4HNOS/,4HKGG/,4H(1.0,4H,0.0,4H)/(1, * 4H.0,0,4H.0) ,4H$ ,6*4H , 2 4HADD ,4H ,4H MG,4HG,MN,4HOS/M,4HGGX/,4H(1.0,4H,0.0,4H)/(1, * 4H.0,0,4H.0) ,4H$ ,6*4H , 3 4HEQUI,4HV ,4H MG,4HGX,M,4HGG/A,4HLWAY,4HS $ ,4H ,4H , * 4H ,8*4H , 4 4HLABE,4HL ,4H LB,4HSTP ,4H$ ,13*4H , 5 4HCHKP,4HNT ,4H MG,4HG $ ,14*4H , 6 4HALTE,4HR ,4H (G,4HP4) ,4H$ ,13*4H , 7 4HCOND,4H ,4H LB,4HSEND,4H,DRY,4H $ ,12*4H / DATA RDMAP 4 / 8 4HALTE,4HR ,4H (S,4HDR2),4H $ ,13*4H / DATA OCT 1 / 1 18 , 0 , 1 , 2 19 , 0 , 2 , 3 21 , 0 , 1 , 4 22 , 0 , 2 , 5 23 , 0 , 2 / DATA PTBS 1 / 1 1 , 11 , 11 , 5 , 1 , 0 , 0 , 2 4 , 43 , 45 , 8 ,4HNAME , 0 , 0 , 3 9 , 13 , 13 , 3 ,4HSTEP , 0 , 0 , 4 10 , 11 , 11 , 6 , 2 , 0 , 0 , 5 11 , 11 , 11 , 6 , 6 , 0 , 0 , 6 12 , 50 , 50 , 0 ,4HSOL , 0 , 0 , 7 13 , 11 , 11 , 6 , 7 , 0 , 0 , 8 14 , 50 , 50 , 0 ,4HMSKP , 0 , 0 , 9 15 , 11 , 11 , 6 , 3 , 0 , 0 , O 17 , 12 , 13 , 3 ,4HNANO , 1 , -1 , 1 17 , 17 , 18 , 3 ,4HNANO , 2 , -1 , 2 17 , 28 , 30 , 8 ,4HNAME , 0 , 0 , 3 18 , 11 , 12 , 3 ,4HNANO , 0 , 0 , 4 19 , 11 , 12 , 3 ,4HNANO , 0 , 0 , 5 20 , 13 , 13 , 3 ,4HSTEP , 0 , 0 , 6 21 , 16 , 17 , 3 ,4HNANO , 0 , 0 , 7 22 , 15 , 16 , 3 ,4HNANO , 0 , 0 , 8 24 , 13 , 13 , 3 ,4HSTEP , 0 , 0 / DATA PTBS 2 / 1 26 , 11 , 11 , 5 , 4 , 0 , 0 , 2 28 , 11 , 11 , 6 , 5 , 0 , 0 / DATA SUBNAM / 4HASCM,2H05 / C C RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY C (SEE ASCM01 FOR EXPLANATION)) C RDMAP(11, 4) = KHRFN1(RDMAP(11, 4),3,SLASH,1) RDMAP(10,17) = KHRFN1(RDMAP(10,17),3,SLASH,1) RDMAP(12,17) = KHRFN1(RDMAP(12,17),2,SLASH,1) C C VALIDATE COMMAND AND SET POINTERS C IF (NAME .NE. COMND(1,1)) GO TO 1000 ICOMND = 1 IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 35 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 35 CONTINUE C C MOVE OCT DATA C IF (NOCT .EQ. 0) GO TO 55 DO 50 J = 1,NOCT DO 50 I = 1,3 K = K + 1 50 IDAT(K) = OCT(I,J) 55 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 65 DO 60 J = 1,NPTBS DO 60 I = 1,7 K = K + 1 60 IDAT(K) = PTBS(I,J) 65 CONTINUE C C MOVE PHASE 2 DATA C IF (IPHASE.NE.2 .OR. NPH.EQ.0) GO TO 100 DO 70 I = 1,4 K = K + 1 70 IDAT(K) = IPAS25(I) DO 80 I = 9,14 K = K + 1 80 IDAT(K) = IPAS25(I) DO 90 I = 5,8 K = K + 1 90 IDAT(K) = IPAS25(I) GO TO 200 100 CONTINUE C 200 RETURN C C INPUT ERROR C 1000 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/ascm06.f ================================================ SUBROUTINE ASCM06 (NAME,IPHASE,ISOL,NOGO) C C RECOVER, MRECOVER COMMAND DMAP DATA C INTEGER COMND(6,2),XTRA(15),SUBNAM(2),RDMAP(18,17), 1 RDMAP1(18,9),RDMAP2(18,8),OCT(3,1),OCT1(3,1), 2 PTBS(7,31),PTBS1(7,18),PTBS2(7,13) COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(543) EQUIVALENCE (RDMAP1(1,1),RDMAP(1, 1)),(PTBS1(1,1),PTBS(1,1)), 1 (RDMAP2(1,1),RDMAP(1,10)),(PTBS2(1,1),PTBS(1,19)), 2 (OCT1(1,1),OCT(1,1)) DATA COMND / 1 4HRECO , 17 , 15 , 1 , 31 , 0 , 2 4HMREC , 17 , 15 , 1 , 31 , 0 / DATA SLASH / 1H/ / DATA RDMAP 1 / 1 4HFILE,4H ,4H U1,4H=APP,4HEND/,4HU2=A,4HPPEN,4HD/U3,4H=APP, * 4HEND/,4HU4=A,4HPPEN,4HD/U5,4H=APP,4HEND ,4H$ ,4H ,4H , 2 4HPARA,4HM ,4H //,4H*ADD,4H*/IL,4HOOP/,4H0/0 ,4H$ ,4H , * 4H , 8*4H , 3 4HLABE,4HL ,4H LB,4HSTP ,4H$ ,13*4H , 4 4HRCOV,4HR ,4H CA,4HSESS,4H,GEO,4HM4,K,4HGG,M,4HGG,P,4HGG,U, * 4HGV ,,4HDIT,,4HDLT,,4HBGG,,4HK4GG,4H,PPF,4H/OUG,4HV1 ,,4H , 5 4H ,4H ,4H OP,4HG1,O,4HQG1,,4HU1,U,4H2,U3,4H,U4,,4HU5/S, * 4H,N,D,4HRY/S,4H,N,I,4HLOOP,4H/STP,4H!*NA,4HMEFS,4HS */,4H , 6 4H ,4H ,4H NS,4HOL/N,4HEIGV,4H/S,N,4H,LUI,4H/S,N,4H,U1N, * 4H/S,N,4H,U2N,4H/S,N,4H,U3N,4H/S,N,4H,U4N,4H/S,N,4H,U5N,4H/ , 7 4H ,4H ,4H S,,4HN,NO,4HSORT,4H2/V,,4HY,UT,4HHRES,4HH/V,, * 4HY,PT,4HHRES,4HH/V,,4HY,QT,4HHRES,4HH $ , 3*4H , 8 4HEQUI,4HV ,4H OU,4HGV1 ,4H,OUG,4HV /N,4HOSOR,4HT2/O,4HQG1,, * 4HOQG/,4HNOSO,4HRT2 ,4H$ , 5*4H , 9 4HEQUI,4HV ,4H OP,4HG1,O,4HPG/N,4HOSOR,4HT2 $,4H ,4H , * 4H , 8*4H / DATA RDMAP 2 / O 4HCOND,4H ,4H NS,4HT2ST,4HP,NO,4HSORT,4H2 $ ,4H ,4H , * 4H , 8*4H , 1 4HSDR3,4H ,4H OU,4HGV1 ,4H,OPG,4H1,OQ,4HG1,,,4H,/OU,4HGV ,, * 4HOPG,,4HOQG,,4H,, $, 6*4H , 2 4HLABE,4HL ,4H NS,4HT2ST,4HP $ ,13*4H , 3 4HOFP ,4H ,4H OU,4HGV ,,4HOPG,,4HOQG,,4H,,//,4HS,N,,4HCARD, * 4HNO $, 8*4H , 4 4HCOND,4H ,4H LB,4HBSTP,4H,ILO,4HOP $,12*4H , 5 4HREPT,4H ,4H LB,4HSTP,,4H100 ,4H$ ,12*4H , 6 4HLABE,4HL ,4H LB,4HBSTP,4H $ ,13*4H , 7 4HSOFO,4H ,4H ,U,4H1,U2,4H,U3,,4HU4,U,4H5//-,4H1!*X,4HXXXX, * 4HXXX*,4H $ , 7*4H / DATA XTRA / 1 4HPRIN,4HSAVE,4HDISP,4HOLOA,4HSPCF,4HMODE,4HRANG , 2 4HSUBC,4HSORT,4HBASI,4HVELO,4HACCE,4HENER,4HUIMP , 3 4HSTEP / DATA OCT 1 / 1 9 , 262144 , 0 / DATA PTBS 1 / 1 3 , 13 , 13 , 3 ,4HSTEP , 0 , 0 , 2 4 , 11 , 15 , 2 ,4HCASE , 0 , 0 , 3 4 , 18 , 18 , 5 ,4HGORL , 0 , 0 , 4 4 , 24 , 27 , 0 ,4HNAME , 1 , 0 , 5 4 , 28 , 31 , 0 ,4HNAME , 2 , 0 , 6 4 , 32 , 32 , 3 ,4HPVEC , 0 , 0 , 7 4 , 36 , 36 , 4 ,4HUVEC , 0 , 0 , 8 4 , 41 , 44 , 0 ,4HNAME , 458752 , 0 , 9 4 , 45 , 48 , 0 ,4HNAME , 458752 , 0 , O 4 , 49 , 52 , 0 ,4HNAME , 458768 , 0 , 1 4 , 53 , 57 , 0 ,4HNAME , 458784 , 0 , 2 4 , 58 , 58 , 3 ,4HPFTL , 0 , 0 , 3 4 , 62 , 62 , 6 ,4HOVEC , 0 , 0 , 4 5 , 11 , 15 , 0 ,4HNAME , 262144 , 0 , 5 5 , 54 , 54 , 3 ,4HSTEP , 0 , 0 , 6 5 , 57 , 59 , 8 ,4HNAME , 0 , 0 , 7 6 , 11 , 11 , 4 ,4HSOL , 0 , 0 , 8 6 , 16 , 21 , 0 ,4HNAME , 1769472 , 0 / DATA PTBS 2 / 1 8 , 11 , 11 , 6 ,4HOVEC , 0 , 0 , 2 8 , 18 , 18 , 5 ,4HOVC2 , 0 , 0 , 3 10 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 4 11 , 11 , 11 , 6 ,4HOVEC , 0 , 0 , 5 11 , 18 , 22 , 0 ,4HNAME , 262144 , 0 , 6 11 , 31 , 31 , 5 ,4HOVC2 , 0 , 0 , 7 11 , 37 , 40 , 0 ,4HNAME , 262144 , 0 , 8 12 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 9 13 , 11 , 11 , 5 ,4HOVC2 , 0 , 0 , O 13 , 17 , 20 , 0 ,4HNAME , 262144 , 0 , 1 14 , 14 , 14 , 3 ,4HSTEP , 0 , 0 , 2 15 , 13 , 13 , 3 ,4HSTEP , 0 , 0 , 3 16 , 14 , 14 , 3 ,4HSTEP , 0 , 0 / DATA SUBNAM / 4HASCM,2H06 / C C RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY C (SEE ASCM01 FOR EXPLANATION)) C RDMAP(15,5) = KHRFN1(RDMAP(15,5),1,SLASH,1) RDMAP(8,17) = KHRFN1(RDMAP(8,17),2,SLASH,1) C C VALIDATE COMMAND AND SET POINTERS C DO 10 I = 1,2 IF (NAME .EQ. COMND(1,I)) GO TO 20 10 CONTINUE GO TO 70 20 ICOMND = I IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 35 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 35 CONTINUE C C MOVE XTRA DATA C IF (NXTRA .EQ. 0) GO TO 45 DO 40 I = 1,NXTRA K = K + 1 40 IDAT(K) = XTRA(I) 45 CONTINUE C C MOVE OCT DATA C IF (NOCT .EQ. 0) GO TO 55 DO 50 J = 1,NOCT DO 50 I = 1,3 K = K + 1 50 IDAT(K) = OCT(I,J) 55 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 65 DO 60 J = 1,NPTBS DO 60 I = 1,7 K = K + 1 60 IDAT(K) = PTBS(I,J) 65 CONTINUE C RETURN C C INPUT ERROR C 70 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/ascm07.f ================================================ SUBROUTINE ASCM07 (NAME,IPHASE,ISOL,NOGO) C C BRECOVER COMMAND DMAP DATA C INTEGER COMND(6,1),SUBNAM(2),RDMAP(18,21),RDMAP1(18,9), 1 RDMAP2(18,9),RDMAP3(18,3),OCT(3,13),OCT1(3,13), 2 PTBS(7,26),PTBS1(7,18),PTBS2(7,8) COMMON /PHAS37/ IPAS37(6) COMMON /ASDBD / IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(605) EQUIVALENCE (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1,1)), 1 (RDMAP2(1,1),RDMAP(1,10)),(PTBS1(1,1),PTBS(1,1)), 2 (RDMAP3(1,1),RDMAP(1,19)),(PTBS2(1,1),PTBS(1,19)) DATA COMND / 1 4HBREC , 21 , 0 , 13 , 26 , 6 / DATA SLASH / 1H/ / DATA RDMAP 1 / 1 4HALTE,4HR ,4H (S,4HOLVE,4H) $ ,13*4H , 2 4HPARA,4HM ,4H //,4H*NOP,4H*/AL,4HWAYS,4H=-1 ,4H$ ,4H , * 4H , 8*4H , 3 4HSSG1,4H ,4H SL,4HT,BG,4HPDT,,4HCSTM,4H,SIL,4H,EST,4H,MPT, * 4H,GPT,4HT,ED,4HT,MG,4HG,CA,4HSECC,4H,DIT,4H,/PG,4H,,,,,4H/ , 4 4H ,4H ,4H LU,4HSET/,4HNSKI,4HP $ ,12*4H , 5 4HSSG2,4H ,4H US,4HET,G,4HM,YS,4H,KFS,4H,GO,,4H,PG/,4HQR,P, * 4HO,PS,4H,PL ,4H$ , 6*4H , 6 4HRCOV,4HR3 ,4H ,P,4HG,PS,4H,PO,,4HYS/U,4HAS ,,4HQAS,,4HPGS,, * 4HPSS,,4HPOS,,4HYSS,,4HLAMA,4H/SOL,4HN!*N,4HAME ,4H *,4H/ , 7 4H ,4H ,4H NO,4HUE $,14*4H , 8 4HEQUI,4HV ,4H PG,4HS,PG,4H/ALW,4HAYS ,4H$ ,4H ,4H , * 4H , 8*4H , 9 4HEQUI,4HV ,4H PS,4HS,PS,4H/ALW,4HAYS ,4H$ ,4H ,4H , * 4H , 8*4H / DATA RDMAP 2 / O 4HEQUI,4HV ,4H PO,4HS,PO,4H/ALW,4HAYS ,4H$ ,4H ,4H , * 4H , 8*4H , 1 4HEQUI,4HV ,4H YS,4HS,YS,4H/ALW,4HAYS ,4H$ ,4H ,4H , * 4H , 8*4H , 2 4HCOND,4H ,4H LB,4HSSTP,4H,OMI,4HT $ ,12*4H , 3 4HFBS ,4H ,4H LO,4HO,,P,4HOS/U,4HOOV/,4H1/1/,4HPREC,4H/0 $, * 4H , 8*4H , 4 4HLABE,4HL ,4H LB,4HSSTP,4H $ ,13*4H , 5 4HOFP ,4H ,4H LA,4HMA,,,4H,,,/,4H/CAR,4HDNO ,4H$ ,4H , * 4H , 8*4H , 6 4HALTE,4HR ,4H (S,4HDR1),4H $ ,13*4H , 7 4HUMER,4HGE ,4H US,4HET,Q,4HAS,/,4HQGS/,4H*G*/,4H*A*/,4H*O* , * 4H$ , 8*4H , 8 4HADD ,4H ,4H QG,4H ,QG,4HS/QG,4HT/ ,4H(1.0,4H,0.0,4H)/(1, * 4H.0,0,4H.0) ,4H$ ,6*4H / DATA RDMAP 3 / 9 4HEQUI,4HV ,4H QG,4HT,QG,4H /AL,4HWAYS,4H $ ,4H ,4H , * 4H , 8*4H , O 4HEQUI,4HV ,4H CA,4HSECC,4H,CAS,4HEXX/,4HALWA,4HYS $,4H , * 4H , 8*4H , 1 4HALTE,4HR ,4H (R,4HEPT),4H $ ,13*4H / DATA OCT 1 / 1 3 , 983040 , 12 , 2 4 , 983040 , 12 , 3 5 , 524288 , 12 , 4 8 , 1835008 , 12 , 5 9 , 1835008 , 12 , 6 10 , 1835008 , 12 , 7 11 , 1835008 , 12 , 8 12 , 1835008 , 12 , 9 13 , 1835008 , 12 , O 14 , 1835008 , 12 , 1 15 , 1769472 , 0 , 2 20 , 458752 , 0 , 3 21 , 458752 , 0 / DATA PTBS 1 / 1 1 , 11 , 11 , 0 , 1 , 0 , 0 , 2 5 , 1 , 1 , 0 ,4HNAME , 0 , 0 , 3 5 , 19 , 21 , 0 ,4HNAME , 1048576 , 0 , 4 5 , 33 , 35 , 0 ,4HNAME , 0 , 0 , 5 5 , 36 , 38 , 0 ,4HNAME , 0 , 0 , 6 5 , 42 , 44 , 0 ,4HNAME , 0 , 0 , 7 6 , 12 , 14 , 0 ,4HNAME , 524300 , 0 , 8 6 , 15 , 17 , 0 ,4HNAME , 524300 , 0 , 9 6 , 18 , 20 , 0 ,4HNAME , 1572876 , 0 , O 6 , 21 , 23 , 0 ,4HNAME , 1572876 , 0 , 1 6 , 24 , 24 , 4 ,4HUAPH , 0 , 0 , 2 6 , 33 , 33 , 3 ,4HPGVC , 0 , 0 , 3 6 , 37 , 37 , 3 ,4HPSVC , 0 , 0 , 4 6 , 41 , 44 , 0 ,4HNAME , 1572876 , 0 , 5 6 , 45 , 48 , 0 ,4HNAME , 1572876 , 0 , 6 6 , 49 , 49 , 4 ,4HDYNT , 196608 , 0 , 7 6 , 54 , 54 , 4 ,4HSOL , 0 , 0 , 8 6 , 60 , 60 , 8 ,4HNAME , 0 , 0 / DATA PTBS 2 / 1 7 , 11 , 15 , 0 ,4HNAME , 458752 , 0 , 2 12 , 14 , 14 , 3 ,4HSTEP , 0 , 0 , 3 13 , 29 , 29 , 4 ,4HPREC , 0 , 0 , 4 14 , 14 , 14 , 3 ,4HSTEP , 0 , 0 , 5 16 , 11 , 11 , 0 , 2 , 0 , 0 , 6 18 , 11 , 11 , 3 ,4HQVEC , 0 , 0 , 7 19 , 15 , 15 , 3 ,4HQVEC , 0 , 0 , 8 21 , 11 , 11 , 0 , 3 , 0 , 0 / DATA SUBNAM / 4HASCM,2H07 / C C RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY C (SEE ASCM01 FOR EXPLANATION)) C RDMAP(15,6) = KHRFN1(RDMAP(15,6),2,SLASH,1) C C VALIDATE COMMAND AND SET POINTERS C IF (NAME .NE. COMND(1,1)) GO TO 1000 ICOMND = 1 IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 35 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 35 CONTINUE C C MOVE OCT DATA C IF (NOCT .EQ. 0) GO TO 55 DO 50 J = 1,NOCT DO 50 I = 1,3 K = K + 1 50 IDAT(K) = OCT(I,J) 55 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 65 DO 60 J = 1,NPTBS DO 60 I = 1,7 K = K + 1 60 IDAT(K) = PTBS(I,J) 65 CONTINUE C C MOVE PHASE 3 DATA C IF (IPHASE.NE.3 .OR. NPH.EQ.0) GO TO 200 DO 110 I = 1,NPH K = K + 1 110 IDAT(K) = IPAS37(I) C 200 RETURN C C INPUT ERROR C 1000 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/ascm08.f ================================================ SUBROUTINE ASCM08 (NAME,IPHASE,ISOL,NOGO) C C SOLVE COMMAND DMAP DATA FOR DYNAMIC ANALYSIS C INTEGER COMND(6,1),SUBNAM(2),ISAVE(21),RDMAP(18,55), 1 RDMAP1(18,9),RDMAP2(18,9),RDMAP3(18,9), 2 RDMAP4(18,9),RDMAP5(18,9),RDMAP6(18,9), 3 RDMAP7(18,1),OCT(3,23),OCT1(3,18),OCT2(3,5), 4 PTBS(7,25),PTBS1(7,18),PTBS2(7,7) COMMON /PHAS28/ IPAS28(14) COMMON /ASDBD / IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(1248) EQUIVALENCE (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1,1)), 1 (RDMAP2(1,1),RDMAP(1,10)),(OCT2(1,1),OCT(1,19)), 2 (RDMAP3(1,1),RDMAP(1,19)),(PTBS1(1,1),PTBS(1,1)), 3 (RDMAP4(1,1),RDMAP(1,28)),(PTBS2(1,1),PTBS(1,19)), 4 (RDMAP5(1,1),RDMAP(1,37)), 5 (RDMAP6(1,1),RDMAP(1,46)), 6 (RDMAP7(1,1),RDMAP(1,55)) DATA COMND / 1 4HSOLV , 55 , 0 , 23 , 25 , 14 / DATA SLASH / 1H/ / DATA ISAVE / 1 4,11,3, 13,10,1, 13,14,3, 13,16,2, 54,8,2, 54,9,2, 54,10,2 / DATA RDMAP 1 / 1 4HALTE,4HR ,4H (G,4HP1) ,4H$ ,13*4H , 2 4HPARA,4HM ,4H //,4H*NOP,4H*/AL,4HWAYS,4H=-1 ,4H$ ,4H , * 4H ,8*4H , 3 4HSGEN,4H ,4H CA,4HSECC,4H,GEO,4HM3,G,4HEOM4,4H,DYN,4HAMIC, * 4HS/CA,4HSESS,4H,CAS,4HEI,G,4HPL,E,4HQEXI,4HN,GP,4HDT, ,4H , 4 4H ,4H ,4H BG,4HPDT,,4HSIL,,4HGE3S,4H,GE4,4HS,DY,4HNS/S, * 4H,N,D,4HRY!*,4HNAME,4HSOLS,4H*/S,,4HN,LU,4HSET/,4H ,4H , 5 4H ,4H ,4H S,,4HN,NO,4HGPDT,4H $ ,12*4H , 6 4HPURG,4HE ,4H CS,4HTM $,14*4H , 7 4HEQUI,4HV ,4H GE,4H3S,G,4HEOM3,4H/ALW,4HAYS/,4HGE4S,4H,GEO, * 4HM4/A,4HLWAY,4HS/CA,4HSEI,,4HCASE,4HCC/A,4HLWAY,4HS/ ,4H , 8 4H ,4H ,4H DY,4HNS,D,4HYNAM,4HICS/,4HALWA,4HYS $,4H , * 4H ,8*4H , 9 4HCOND,4H ,4H LB,4HSTP,,4HDRY ,4H$ ,12*4H / DATA RDMAP 2 / O 4HALTE,4HR ,4H (P,4HLOT),4H $ ,13*4H , 1 4HALTE,4HR ,4H (C,4HOND),4H $ ,13*4H , 2 4HALTE,4HR ,4H (G,4HPWG),4H $ ,13*4H , 3 4HSOFI,4H ,4H /K,4HNOS,,4HMNOS,4H,BNO,4HS,K4,4HNOS,,4H/DRY, * 4H!*NA,4HMESO,4HLS*/,4H*KMT,4HX*!*,4HMMTX,4H*!*B,4HMTX*,4H/ , 4 4H ,4H ,4H *K,4H4MX*,4H $ ,13*4H , 5 4HEQUI,4HV ,4H KN,4HOS,K,4HGG/N,4HOKGG,4HX $ ,4H ,4H , * 4H ,8*4H , 6 4HCOND,4H ,4H LB,4H2K,N,4HOKGG,4HX $ ,12*4H , 7 4HADD ,4H ,4H KG,4HGX,K,4HNOS/,4HKGG/,4H(1.0,4H,0.0,4H)/(1, * 4H.0,0,4H.0) ,4H$ ,6*4H , 8 4HLABE,4HL ,4H LB,4H2K $,14*4H / DATA RDMAP 3 / 9 4HEQUI,4HV ,4H MN,4HOS,M,4HGG/N,4HOMGG,4H $ ,4H ,4H , * 4H ,8*4H , O 4HCOND,4H ,4H LB,4H2M,N,4HOMGG,4H $ ,12*4H , 1 4HADD ,4H ,4H MG,4HG,MN,4HOS/M,4HGGX/,4H(1.0,4H,0.0,4H)/(1, * 4H.0,0,4H.0) ,4H$ ,6*4H , 2 4HEQUI,4HV ,4H MG,4HGX,M,4HGG/A,4HLWAY,4HS $ ,4H ,4H , * 4H ,8*4H , 3 4HLABE,4HL ,4H LB,4H2M $,14*4H , 4 4HEQUI,4HV ,4H BN,4HOS,B,4HGG/N,4HOBGG,4H $ ,4H ,4H , * 4H ,8*4H , 5 4HCOND,4H ,4H LB,4H2B,N,4HOBGG,4H $ ,12*4H , 6 4HADD ,4H ,4H BG,4HG,BN,4HOS/B,4HGGX/,4H(1.0,4H,0.0,4H)/(1, * 4H.0,0,4H.0) ,4H$ ,6*4H , 7 4HEQUI,4HV ,4H BG,4HGX,B,4HGG/A,4HLWAY,4HS $ ,4H ,4H , * 4H ,8*4H / DATA RDMAP 4 / 8 4HLABE,4HL ,4H LB,4H2B $,14*4H , 9 4HEQUI,4HV ,4H K4,4HNOS,,4HK4GG,4H/NOK,4H4GG ,4H$ ,4H , * 4H ,8*4H , O 4HCOND,4H ,4H LB,4H2K4,,4HNOK4,4HGG $,12*4H , 1 4HADD ,4H ,4H K4,4HGG,K,4H4NOS,4H/K4G,4HGX/ ,4H(1.0,4H,0.0, * 4H)/(1,4H.0,0,4H.0) ,4H$ ,5*4H , 2 4HEQUI,4HV ,4H K4,4HGGX,,4HK4GG,4H/ALW,4HAYS ,4H$ ,4H , * 4H ,8*4H , 3 4HLABE,4HL ,4H LB,4H2K4 ,4H$ ,13*4H , 4 4HLABE,4HL ,4H LB,4HSTP ,4H$ ,13*4H , 5 4HCHKP,4HNT ,4H MG,4HG,BG,4HG,K4,4HGG $,12*4H , 6 4HALTE,4HR ,4H (P,4HARAM,4H) $ ,13*4H / DATA RDMAP 5 / 7 4HPARA,4HM ,4H //,4H*AND,4H*/MD,4HEMA/,4HNOUE,4H/NOM,4H2PP , * 4H$ ,8*4H , 8 4HPARA,4HM ,4H //,4H*ADD,4H*/KD,4HEK2/,4H1/0 ,4H$ ,4H , * 4H ,8*4H , 9 4HPARA,4HM ,4H //,4H*ADD,4H*/NO,4HMGG/,4H1/0 ,4H$ ,4H , * 4H ,8*4H , O 4HPARA,4HM ,4H //,4H*ADD,4H*/NO,4HBGG/,4H1/0 ,4H$ ,4H , * 4H ,8*4H , 1 4HPARA,4HM ,4H //,4H*ADD,4H*/NO,4HK4GG,4H/1/0,4H $ ,4H , * 4H ,8*4H , 2 4HALTE,4HR ,4H (E,4HQUIV,4H) $ ,13*4H , 3 4HEQUI,4HV ,4H K2,4HDD,K,4HDD/K,4HDEK2,4H $ ,4H ,4H , * 4H ,8*4H , 4 4HEQUI,4HV ,4H M2,4HDD,M,4HDD/N,4HOMGG,4H $ ,4H ,4H , * 4H ,8*4H , 5 4HEQUI,4HV ,4H B2,4HDD,B,4HDD/N,4HOBGG,4H $ ,4H ,4H , * 4H ,8*4H / DATA RDMAP 6 / 6 4HALTE,4HR ,4H (S,4HDR2),4H $ ,13*4H , 7 4HEQUI,4HV ,4H UP,4HVF,U,4HPVC/,4HNOA ,4H$ ,4H ,4H , * 4H ,8*4H , 8 4HCOND,4H ,4H LB,4HL19,,4HNOA ,4H$ ,12*4H , 9 4HSDR1,4H ,4H US,4HETD,,4H,UDV,4HF,,,,4HGOD,,4HGMD,,4H,,,/, * 4HUPVC,4H,,/1,4H/DYN,4HAMIC,4HS $ , 4*4H , O 4HLABE,4HL ,4H LB,4HL19 ,4H$ ,13*4H , 1 4HCHKP,4HNT ,4H UP,4HVC $,14*4H , 2 4HEQUI,4HV ,4H UP,4HVC,U,4HGV/N,4HOUE ,4H$ ,4H ,4H , * 4H ,8*4H , 3 4HCOND,4H ,4H LB,4HUE,N,4HOUE ,4H$ ,12*4H , 4 4HUPAR,4HTN ,4H US,4HET,U,4HPVC/,4HUGV,,4HUEV,,4H,!*P,4H*!*G, * 4H*!*E,4H* $ ,7*4H / DATA RDMAP 7 / 5 4HLABE,4HL ,4H LB,4HUE $,14*4H / DATA OCT 1 / 1 15 , 0 , 1 , 2 16 , 0 , 1 , 3 17 , 0 , 1 , 4 18 , 0 , 1 , 5 19 , 0 , 2 , 6 20 , 0 , 2 , 7 21 , 0 , 2 , 8 22 , 0 , 2 , 9 23 , 0 , 2 , O 24 , 0 , 16 , 1 25 , 0 , 16 , 2 26 , 0 , 16 , 3 27 , 0 , 16 , 4 28 , 0 , 16 , 5 29 , 0 , 32 , 6 30 , 0 , 32 , 7 31 , 0 , 32 , 8 32 , 0 , 32 / DATA OCT 2 / 1 33 , 0 , 32 , 2 38 , 0 , 1 , 3 39 , 0 , 2 , 4 40 , 0 , 16 , 5 41 , 0 , 32 / DATA PTBS 1 / 1 1 , 11 , 11 , 5 , 1 , 0 , 0 , 2 4 , 43 , 45 , 8 ,4HNAME , 0 , 0 , 3 9 , 13 , 13 , 3 ,4HSTEP , 0 , 0 , 4 10 , 11 , 11 , 6 , 2 , 0 , 0 , 5 11 , 11 , 11 , 6 , 3 , 0 , 0 , 6 12 , 11 , 11 , 6 , 4 , 0 , 0 , 7 13 , 12 , 13 , 3 ,4HNANO , 1 , -1 , 8 13 , 17 , 18 , 3 ,4HNANO , 2 , -1 , 9 13 , 22 , 23 , 3 ,4HNANO , 16 , -1 , O 13 , 27 , 29 , 3 ,4HNANO , 32 , -1 , 1 13 , 37 , 39 , 8 ,4HNAME , 0 , 0 , 2 15 , 11 , 12 , 3 ,4HNANO , 0 , 0 , 3 17 , 16 , 17 , 3 ,4HNANO , 0 , 0 , 4 19 , 11 , 12 , 3 ,4HNANO , 0 , 0 , 5 21 , 15 , 16 , 3 ,4HNANO , 0 , 0 , 6 24 , 11 , 12 , 3 ,4HNANO , 0 , 0 , 7 26 , 15 , 16 , 3 ,4HNANO , 0 , 0 , 8 29 , 11 , 13 , 3 ,4HNANO , 0 , 0 / DATA PTBS 2 / 1 31 , 16 , 18 , 3 ,4HNANO , 0 , 0 , 2 34 , 13 , 13 , 3 ,4HSTEP , 0 , 0 , 3 36 , 11 , 11 , 7 , 5 , 0 , 0 , 4 42 , 11 , 11 , 7 , 6 , 0 , 0 , 5 46 , 11 , 11 , 6 , 7 , 0 , 0 , 6 47 , 11 , 11 , 4 ,4HDVEC , 0 , 0 , 7 49 , 18 , 18 , 4 ,4HDVEC , 0 , 0 / DATA SUBNAM / 4HASCM,2H08 / C C RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY C (SEE ASCM01 FOR EXPLANATION)) C DO 20 L = 1,21,3 I = ISAVE(L+1) J = ISAVE(L ) K = ISAVE(L+2) RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1) 20 CONTINUE C C VALIDATE COMMAND AND SET POINTERS C IF (NAME .NE. COMND(1,1)) GO TO 1000 ICOMND = 1 IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 35 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 35 CONTINUE C C MOVE OCT DATA C IF (NOCT .EQ. 0) GO TO 55 DO 50 J = 1,NOCT DO 50 I = 1,3 K = K + 1 50 IDAT(K) = OCT(I,J) 55 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 65 DO 60 J = 1,NPTBS DO 60 I = 1,7 K = K + 1 60 IDAT(K) = PTBS(I,J) 65 CONTINUE C C MOVE PHASE 2 DATA C IF (IPHASE.NE.2 .OR. NPH.EQ.0) GO TO 100 DO 90 I = 1,NPH K = K + 1 90 IDAT(K) = IPAS28(I) GO TO 200 100 CONTINUE C 200 RETURN C C INPUT ERROR C 1000 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/ascm09.f ================================================ SUBROUTINE ASCM09 (NAME,IPHASE,ISOL,NOGO) C C MREDUCE COMMAND DMAP DATA C INTEGER COMND(6,1),XTRA(13),SUBNAM(2),ISAVE(30), 1 RDMAP(18,25),RDMAP1(18,9),RDMAP2(18,9), 2 RDMAP3(18,7),OCT(3,16),OCT1(3,16),PTBS(7,53), 3 PTBS1(7,18),PTBS2(7,18),PTBS3(7,17) COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(882) EQUIVALENCE (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1,1)), 1 (RDMAP2(1,1),RDMAP(1,10)),(PTBS1(1,1),PTBS(1,1)), 2 (RDMAP3(1,1),RDMAP(1,19)),(PTBS2(1,1),PTBS(1,19)), 3 (PTBS3(1,1),PTBS(1,37)) DATA COMND / 1 4HMRED , 25 , 13 , 16 , 53 , 0 / DATA SLASH / 1H/ / DATA ISAVE / 1 1,15,1, 2,11,2, 4,12,1, 4,16,3, 5, 5,1, 19, 7,3, 19, 8,3, 2 19, 9,3, 22,15,2, 24, 6,2 / DATA RDMAP 1 / 1 4HMRED,4H1 ,4H CA,4HSECC,4H,GEO,4HM4,D,4HYNAM,4HICS,,4HCSTM, * 4H/USE,4HTR,E,4HEDR,,4HEQST,4H,DMR,4H!*NA,4HMEA ,4H */,4H , 2 4H ,4H ,4H S,,4HN,DR,4HY/ST,4HP/S,,4HN,NO,4HFIX/,4HS,N,, * 4HSKIP,4HM!*R,4HEAL*,4H $ , 5*4H , 3 4HCOND,4H ,4H LB,4HM3ST,4HP,DR,4HY $ ,12*4H , 4 4HSOFI,4H ,4H /K,4HNOA,,4HMNOA,4H,PNO,4HA,BN,4HOA,K,4H4NOA, * 4H/S,N,4H,DRY,4H!*NA,4HMEA ,4H */,4H*KMT,4HX*!*,4HMMTX,4H*/ , 5 4H ,4H ,4H *P,4HVEC*,4H!*BM,4HTX*/,4H*K4M,4HX* $,4H , * 4H , 8*4H , 6 4HCOND,4H ,4H LB,4HM2ST,4HP,SK,4HIPM ,4H$ ,4H ,4H , * 4H , 8*4H , 7 4HEQUI,4HV ,4H KN,4HOA,K,4HFFX/,4HNOFI,4HX $ ,4H ,4H , * 4H , 8*4H , 8 4HEQUI,4HV ,4H MN,4HOA,M,4HFFX/,4HNOFI,4HX $ ,4H ,4H , * 4H , 8*4H , 9 4HEQUI,4HV ,4H BN,4HOA,B,4HFFX/,4HNOFI,4HX $ ,4H ,4H , * 4H , 8*4H / DATA RDMAP 2 / O 4HEQUI,4HV ,4H K4,4HNOA,,4HK4FF,4HX/NO,4HFIX ,4H$ ,4H , * 4H , 8*4H , 1 4HCOND,4H ,4H LB,4HM1ST,4HP,NO,4HFIX ,4H$ ,4H ,4H , * 4H , 8*4H , 2 4HSCE1,4H ,4H US,4HETR,,4HKNOA,4H,MNO,4HA,BN,4HOA,K,4H4NOA, * 4H/KFF,4HX,KF,4HSX,K,4HSSX,,4HMFFX,4H,BFF,4HX,K4,4HFFX ,4H$ , 3 4HLABE,4HL ,4H LB,4HM1ST,4HP $ ,13*4H , 4 4HREAD,4H ,4H KF,4HFX,M,4HFFX,,4HBFFX,4H,K4F,4HFX,E,4HEDR,, * 4HUSET,4HR,/L,4HAMAR,4H,PHI,4HR,MI,4HR,OE,4HIGR/,4H*MOD,4HES*/, 5 4H ,4H ,4H NE,4HIGVS,4H $ ,13*4H , 6 4HOFP ,4H ,4H LA,4HMAR,,4HOEIG,4HR,,,,4H,// ,4H$ ,4H , * 4H , 8*4H , 7 4HEQUI,4HV ,4H PH,4HIR,P,4HHIS/,4HNOFI,4HX $ ,4H ,4H , * 4H , 8*4H , 8 4HCOND,4H ,4H LB,4HM2ST,4HP,NO,4HFIX ,4H$ ,4H ,4H , * 4H , 8*4H / DATA RDMAP 3 / 9 4HUMER,4HGE ,4H US,4HETR,,4HPHIR,4H,/PH,4HIS!*,4HN*!*,4HF*!*, * 4HS* $, 8*4H , O 4HLABE,4HL ,4H LB,4HM2ST,4HP $ ,13*4H , 1 4HMRED,4H2 ,4H CA,4HSECC,4H,LAM,4HAR,P,4HHIS,,4HEQST,4H,USE, * 4HTR,K,4HNOA,,4HMNOA,4H,BNO,4HA,K4,4HNOA,,4HPNOA,4H,DMR,4H, , 2 4H ,4H ,4H QS,4HM/KN,4HOB,M,4HNOB,,4HBNOB,4H,K4N,4HOB,P, * 4HNOB,,4HPONO,4HB/ST,4HP/S,,4HN,DR,4HY!*P,4HVEC*,4H $ ,4H , 3 4HLABE,4HL ,4H LB,4HM3ST,4HP $ ,13*4H , 4 4HLODA,4HPP ,4H PN,4HOB,P,4HONOB,4H/!*N,4HAMEB,4H *,4H/S,N, * 4H,DRY,4H $ , 7*4H , 5 4HCOND,4H ,4H FI,4HNIS,,4HDRY ,4H$ ,12*4H / DATA XTRA / 1 4HNAME,4HBOUN,4HFIXE,4HMETH,4HRANG,4HNMAX,4HOLDM , 2 4HOLDB,4HUSER,4HOUTP,4HRGRI,4HRNAM,4HRSAV / DATA OCT 1 / 1 6 , 8 , 0 , 2 7 , 8 , 1 , 3 8 , 8 , 2 , 4 9 , 8 , 16 , 5 10 , 8 , 32 , 6 11 , 8 , 0 , 7 12 , 8 , 0 , 8 13 , 8 , 0 , 9 14 , 8 , 0 , O 15 , 8 , 0 , 1 16 , 8 , 0 , 2 17 , 8 , 0 , 3 18 , 8 , 0 , 4 19 , 8 , 0 , 5 20 , 8 , 0 , 6 24 , 0 , 8 / DATA PTBS 1 / 1 1 , 59 , 59 , 8 ,4HNAMA , 0 , 0 , 2 2 , 19 , 19 , 3 ,4HSTEP , 0 , 0 , 3 3 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 4 4 , 12 , 13 , 3 ,4HNONA , 1 , -1 , 5 4 , 17 , 18 , 3 ,4HNONA , 2 , -1 , 6 4 , 22 , 23 , 3 ,4HNONA , 12 , -1 , 7 4 , 27 , 28 , 3 ,4HNONA , 16 , -1 , 8 4 , 32 , 34 , 3 ,4HNONA , 32 , -1 , 9 4 , 47 , 47 , 8 ,4HNAMA , 0 , 0 , O 5 , 12 , 12 , 4 ,4HPITM , 0 , 0 , 1 6 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 2 7 , 11 , 12 , 3 ,4HNONA , 0 , 0 , 3 8 , 11 , 12 , 3 ,4HNONA , 0 , 0 , 4 9 , 11 , 12 , 3 ,4HNONA , 0 , 0 , 5 10 , 11 , 13 , 3 ,4HNONA , 0 , 0 , 6 11 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 7 12 , 17 , 18 , 3 ,4HNONA , 1 , 0 , 8 12 , 22 , 23 , 3 ,4HNONA , 2 , 0 / DATA PTBS 2 / 1 12 , 27 , 28 , 3 ,4HNONA , 16 , 0 , 2 12 , 32 , 34 , 3 ,4HNONA , 32 , 0 , 3 12 , 38 , 42 , 0 ,4HNAMA , 1 , 0 , 4 12 , 43 , 47 , 0 ,4HNAMA , 1 , 0 , 5 12 , 48 , 52 , 0 ,4HNAMA , 1 , 0 , 6 12 , 53 , 57 , 0 ,4HNAMA , 2 , 0 , 7 12 , 58 , 62 , 0 ,4HNAMA , 16 , 0 , 8 12 , 63 , 68 , 0 ,4HNAMA , 32 , 0 , 9 13 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , O 14 , 11 , 15 , 0 ,4HNAMA , 1 , 0 , 1 14 , 16 , 20 , 0 ,4HNAMA , 2 , 0 , 2 14 , 21 , 25 , 0 ,4HNAMA , 16 , 0 , 3 14 , 26 , 31 , 0 ,4HNAMA , 32 , 0 , 4 18 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 5 20 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 6 21 , 18 , 23 , 0 ,4HNAMA , 55 , 0 , 7 21 , 24 , 28 , 0 ,4HNAMA , 55 , 0 , 8 21 , 40 , 41 , 3 ,4HNONA , 1 , 0 / DATA PTBS 3 / 1 21 , 45 , 46 , 3 ,4HNONA , 2 , 0 , 2 21 , 50 , 51 , 3 ,4HNONA , 16 , 0 , 3 21 , 55 , 57 , 3 ,4HNONA , 32 , 0 , 4 21 , 61 , 62 , 3 ,4HNONA , 12 , 0 , 5 22 , 11 , 14 , 0 ,4HNAMA , 131072 , 0 , 6 22 , 15 , 16 , 3 ,4HNONB , 1 , -1 , 7 22 , 20 , 21 , 3 ,4HNONB , 2 , -1 , 8 22 , 25 , 26 , 3 ,4HNONB , 16 , -1 , 9 22 , 30 , 32 , 3 ,4HNONB , 32 , -1 , O 22 , 36 , 37 , 3 ,4HNONB , 12 , -1 , 1 22 , 41 , 43 , 3 ,4HNONB , 12 , -1 , 2 22 , 47 , 47 , 3 ,4HSTEP , 0 , 0 , 3 22 , 60 , 60 , 4 ,4HPITM , 12 , 0 , 4 23 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 5 24 , 11 , 12 , 3 ,4HNONB , 0 , 0 , 6 24 , 16 , 18 , 3 ,4HNONB , 0 , 0 , 7 24 , 24 , 24 , 8 ,4HNAMB , 0 , 0 / DATA SUBNAM / 4HASCM,2H09 / C C RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY C (SEE ASCM01 FOR EXPLANATION)) C DO 20 L = 1,30,3 I = ISAVE(L+1) J = ISAVE(L ) K = ISAVE(L+2) RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1) 20 CONTINUE C C VALIDATE COMMAND AND SET POINTERS C IF (NAME .NE. COMND(1,1)) GO TO 70 ICOMND = 1 IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 35 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 35 CONTINUE C C MOVE XTRA DATA C IF (NXTRA .EQ. 0) GO TO 45 DO 40 I = 1,NXTRA K = K + 1 40 IDAT(K) = XTRA(I) 45 CONTINUE C C MOVE OCT DATA C IF (NOCT .EQ. 0) GO TO 55 DO 50 J = 1,NOCT DO 50 I = 1,3 K = K + 1 50 IDAT(K) = OCT(I,J) 55 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 65 DO 60 J = 1,NPTBS DO 60 I = 1,7 K = K + 1 60 IDAT(K) = PTBS(I,J) 65 CONTINUE C RETURN C C INPUT ERROR C 70 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/ascm10.f ================================================ SUBROUTINE ASCM10 (NAME,IPHASE,ISOL,NOGO) C C SUBSTRUCTURE UTILITY COMMANDS DMAP DATA C INTEGER COMND(6,6),XTRA(1),SUBNAM(2),RDMAP(18,2),PTBS(7,10) COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(109) DATA COMND/ 1 4HDEST , 2 , 0 , 0 , 3 , 0 , 2 4HEDIT , 2 , 0 , 0 , 3 , 0 , 3 4HEQUI , 2 , 1 , 0 , 5 , 0 , 4 4HSOFP , 2 , 0 , 0 , 10 , 0 , 5 4HDELE , 2 , 0 , 0 , 10 , 0 , 6 4HRENA , 2 , 0 , 0 , 5 , 0 / DATA SLASH/ 1H/ / DATA RDMAP/ 1 4HSOFU,4HT ,4H //,4HDRY/,4H*NAM,4HE ,4H *!*,4HOPER,4H*/OP, * 4HT!*N,4HAME0,4H002*,4H!*PR,4HEF*/,4H*ITM,4H1*!*,4HITM2,4H*/ , 2 4H ,4H ,4H *I,4HTM3*,4H!*IT,4HM4*/,4H*ITM,4H5* $,4H , * 4H ,8*4H / DATA XTRA / 4HPREF / DATA PTBS / 1 1 , 16 , 18 , 8 ,4HNAME , 0 , 0 , 2 1 , 27 , 29 , 4 ,4HOPER , 0 , 0 , 3 1 , 34 , 35 , 3 ,4HOPTI , 0 , 0 , 4 1 , 38 , 40 , 8 ,4HNEW , 0 , 0 , 5 1 , 49 , 51 , 4 ,4HPREF , 0 , 0 , 6 1 , 56 , 58 , 4 ,4HITM1 , 0 , 0 , 7 1 , 63 , 65 , 4 ,4HITM2 , 0 , 0 , 8 2 , 11 , 12 , 4 ,4HITM3 , 0 , 0 , 9 2 , 17 , 19 , 4 ,4HITM4 , 0 , 0 , O 2 , 24 , 26 , 4 ,4HITM5 , 0 , 0 / DATA SUBNAM / 4HASCM,2H10 / C C RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY C (SEE ASCM01 FOR EXPLANATION)) C RDMAP(7, 1) = KHRFN1(RDMAP(7, 1),3,SLASH,1) RDMAP(10,1) = KHRFN1(RDMAP(10,1),2,SLASH,1) RDMAP(13,1) = KHRFN1(RDMAP(13,1),1,SLASH,1) RDMAP(16,1) = KHRFN1(RDMAP(16,1),3,SLASH,1) RDMAP(5, 2) = KHRFN1(RDMAP(5, 2),1,SLASH,1) C C VALIDATE COMMAND AND SET POINTERS C DO 10 I = 1,6 IF (NAME .EQ. COMND(1,I)) GO TO 20 10 CONTINUE GO TO 70 20 ICOMND = I IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 35 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 35 CONTINUE C C MOVE XTRA DATA C IF (NXTRA .EQ. 0) GO TO 45 DO 40 I = 1,NXTRA K = K + 1 40 IDAT(K) = XTRA(I) 45 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 65 DO 60 J = 1,NPTBS DO 60 I = 1,7 K = K + 1 60 IDAT(K) = PTBS(I,J) 65 CONTINUE C RETURN C C INPUT ERROR C 70 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/ascm11.f ================================================ SUBROUTINE ASCM11 (NAME,IPHASE,ISOL,NOGO) C C EXIO COMMANDS DMAP DATA C INTEGER COMND(6,7),SUBNAM(2),RDMAP(18,2),XTRA(4), 1 PTBS(7,12),ISAVE(21) COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(126) DATA COMND/ 1 4HSOFI , 2 , 4 , 0 , 12 , 0 , 2 4HSOFO , 2 , 4 , 0 , 12 , 0 , 3 4HREST , 2 , 4 , 0 , 12 , 0 , 4 4HDUMP , 2 , 4 , 0 , 12 , 0 , 5 4HCHEC , 2 , 4 , 0 , 12 , 0 , 6 4HCOMP , 2 , 4 , 0 , 12 , 0 , 7 4HAPPE , 2 , 4 , 0 , 12 , 0 / DATA SLASH/ 1H/ / DATA ISAVE/ 1 1, 7,1, 1,11,3, 1,13,2, 1,15,1, 2, 6,1, 2,11,3, 2,14,2/ DATA RDMAP/ 1 4HEXIO,4H ,4H //,4HS,N,,4HDRY/,4HMACH,4H!*DE,4HVI*/,4H*UNI, * 4HTNAM,4HE*!*,4HFORM,4H*!*M,4HODE*,4H!*PO,4HSI*/,4H*ITE,4HM*/ , 2 4H ,4H ,4H *N,4HAME0,4H001*,4H!*NA,4HME00,4H02*/,4H*NAM, * 4HE000,4H3*!*,4HNAME,4H0004,4H*!*N,4HAME0,4H005*,4H $ ,4H / DATA XTRA / 4HMACH,4HPOSI,4HITEM,4HNAME / DATA PTBS / 1 1 , 21 , 21 , 4 , 101 , 0 , 0 , 2 1 , 27 , 27 , 4 , 102 , 0 , 0 , 3 1 , 34 , 34 , 8 , 103 , 0 , 0 , 4 1 , 45 , 45 , 4 , 104 , 0 , 0 , 5 1 , 52 , 52 , 4 , 105 , 0 , 0 , 6 1 , 59 , 59 , 4 , 106 , 0 , 0 , 7 1 , 66 , 66 , 4 , 107 , 0 , 0 , 8 2 , 12 , 12 , 8 , 108 , 0 , 0 , 9 2 , 23 , 23 , 8 , 109 , 0 , 0 , O 2 , 34 , 34 , 8 , 110 , 0 , 0 , 1 2 , 45 , 45 , 8 , 111 , 0 , 0 , 2 2 , 56 , 56 , 8 , 112 , 0 , 0 / DATA SUBNAM / 4HASCM,2H11 / C C RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY C (SEE ASCM01 FOR EXPLANATION)) C DO 10 L = 1,21,3 I = ISAVE(L+1) J = ISAVE(L ) K = ISAVE(L+2) RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1) 10 CONTINUE C C VALIDATE COMMAND AND SET POINTERS C DO 15 I = 1,7 IF (NAME .EQ. COMND(1,I)) GO TO 20 15 CONTINUE GO TO 70 20 ICOMND = I IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 35 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 35 CONTINUE C C MOVE XTRA DATA C IF (NXTRA .EQ. 0) GO TO 45 DO 40 I = 1,NXTRA K = K + 1 40 IDAT(K) = XTRA(I) 45 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 65 DO 60 J = 1,NPTBS DO 60 I = 1,7 K = K + 1 60 IDAT(K) = PTBS(I,J) 65 CONTINUE C RETURN C C INPUT ERROR C 70 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/ascm12.f ================================================ SUBROUTINE ASCM12 (NAME,IPHASE,ISOL,NOGO) C C PLOT COMMAND DMAP DATA C INTEGER COMND(6,1),SUBNAM(2),RDMAP(18,6),PTBS(7,15) COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(213) DATA COMND/ 4HPLOT, 6, 0, 0, 15, 0 / DATA RDMAP/ 1 4HPLTM,4HRG ,4H CA,4HSECC,4H,PCD,4HB/PL,4HTSTP,4H,GPS,4HTP,E, * 4HLSTP,4H,BGS,4HTP,C,4HASST,4HP,EQ,4HSTP/,4H*NAM,4HE ,4H */ , 2 4H ,4H ,4H S,,4HN,NG,4HP/S,,4HN,LS,4HIL/S,4H,N,N,4HPSET, * 4H $ , 8*4H , 3 4HSETV,4HAL ,4H //,4HS,N,,4HPLTF,4HLG/1,4H/S,N,4H,PFI,4HL/0 , * 4H$ , 8*4H , 4 4HPLOT,4H ,4H PL,4HTSTP,4H,GPS,4HTP,E,4HLSTP,4H,CAS,4HSTP,, * 4HBGST,4HP,EQ,4HSTP,,4H,,,,,4H,,/P,4HMSTP,4H/NGP,4H/LSI,4HL/ , 5 4H ,4H ,4H S,,4HN,NP,4HSET/,4HS,N,,4HPLTF,4HLG/S,4H,N,P, * 4HFIL ,4H$ , 7*4H , 6 4HPRTM,4HSG ,4H PM,4HSTP/,4H/ $ ,13*4H / DATA PTBS / 1 1 , 26 , 26 , 3 ,4HSTEP , 0 , 0 , 2 1 , 32 , 32 , 3 ,4HSTEP , 0 , 0 , 3 1 , 38 , 38 , 3 ,4HSTEP , 0 , 0 , 4 1 , 44 , 44 , 3 ,4HSTEP , 0 , 0 , 5 1 , 51 , 51 , 3 ,4HSTEP , 0 , 0 , 6 1 , 57 , 57 , 3 ,4HSTEP , 0 , 0 , 7 1 , 62 , 62 , 8 ,4HNAME , 0 , 0 , 8 4 , 14 , 14 , 3 ,4HSTEP , 0 , 0 , 9 4 , 20 , 20 , 3 ,4HSTEP , 0 , 0 , O 4 , 26 , 26 , 3 ,4HSTEP , 0 , 0 , 1 4 , 33 , 33 , 3 ,4HSTEP , 0 , 0 , 2 4 , 39 , 39 , 3 ,4HSTEP , 0 , 0 , 3 4 , 45 , 45 , 3 ,4HSTEP , 0 , 0 , 4 4 , 58 , 58 , 3 ,4HSTEP , 0 , 0 , 5 6 , 13 , 13 , 3 ,4HSTEP , 0 , 0 / DATA SUBNAM / 4HASCM,2H12 / C C VALIDATE COMMAND AND SET POINTERS C IF (NAME .NE. COMND(1,1)) GO TO 70 ICOMND = 1 IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 35 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 35 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 65 DO 60 J = 1,NPTBS DO 60 I = 1,7 K = K + 1 60 IDAT(K) = PTBS(I,J) 65 CONTINUE C RETURN C C INPUT ERROR C 70 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/ascm13.f ================================================ SUBROUTINE ASCM13 (NAME,IPHASE,ISOL,NOGO) C C CREDUCE COMMAND DMAP DATA C INTEGER COMND(6,1),XTRA(11),SUBNAM(2),ISAVE(39), 1 RDMAP(18,30),RDMAP1(18,9),RDMAP2(18,9), 2 RDMAP3(18,9),RDMAP4(18,3),OCT(3,20),OCT1(3,18), 3 OCT2(3,2),PTBS(7,53),PTBS1(7,18),PTBS2(7,18), 4 PTBS3(7,17) COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT( 982) EQUIVALENCE (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1, 1)), 1 (RDMAP2(1,1),RDMAP(1,10)),(OCT2(1,1),OCT(1,19)), 2 (RDMAP3(1,1),RDMAP(1,19)),(PTBS1(1,1),PTBS(1,1)), 3 (RDMAP4(1,1),RDMAP(1,28)),(PTBS2(1,1),PTBS(1,19)), 4 (PTBS3 (1,1),PTBS (1,37)) DATA COMND / 1 4HCRED , 30 , 11 , 20 , 53 , 0 / DATA SLASH / 1H/ / DATA ISAVE / 1 2,15,1, 3,11,2, 5,12,1, 5,16,3, 6, 5,1, 23,8,1, 23,9,1, 2 23,10,1, 24, 8,1, 24, 9,1, 24,10,1, 27,14,2, 29, 6,2 / DATA RDMAP 1 / 1 4HPARA,4HM ,4H //,4H*NOP,4H*/AL,4HWAYS,4H=-1 ,4H$ ,4H , * 4H ,8*4H , 2 4HMRED,4H1 ,4H CA,4HSECC,4H,GEO,4HM4,D,4HYNAM,4HICS,,4HCSTM, * 4H/USE,4HTR,E,4HEDR,,4HEQST,4H,DMR,4H!*NA,4HMEA ,4H */,4H , 3 4H ,4H ,4H S,,4HN,DR,4HY/ST,4HP/S,,4HN,NO,4HFIX/,4HS,N,, * 4HSKIP,4HM!*C,4HOMPL,4HEX* ,4H$ , 4*4H , 4 4HCOND,4H ,4H LB,4HM3ST,4HP,DR,4HY $ ,12*4H , 5 4HSOFI,4H ,4H /K,4HNOA,,4HMNOA,4H,PNO,4HA,BN,4HOA,K,4H4NOA, * 4H/S,N,4H,DRY,4H!*NA,4HMEA ,4H */,4H*KMT,4HX*!*,4HMMTX,4H*/ , 6 4H ,4H ,4H *P,4HVEC*,4H!*BM,4HTX*/,4H*K4M,4HX* $,4H , * 4H ,8*4H , 7 4HCOND,4H ,4H LB,4HM2ST,4HP,SK,4HIPM ,4H$ ,4H ,4H , * 4H ,8*4H , 8 4HEQUI,4HV ,4H KN,4HOA,K,4HFFX/,4HNOFI,4HX $ ,4H ,4H , * 4H ,8*4H , 9 4HEQUI,4HV ,4H MN,4HOA,M,4HFFX/,4HNOFI,4HX $ ,4H ,4H , * 4H ,8*4H / DATA RDMAP 2 / O 4HEQUI,4HV ,4H BN,4HOA,B,4HFFX/,4HNOFI,4HX $ ,4H ,4H , * 4H ,8*4H , 1 4HEQUI,4HV ,4H K4,4HNOA,,4HK4FF,4HX/NO,4HFIX ,4H$ ,4H , * 4H ,8*4H , 2 4HCOND,4H ,4H LB,4HM1ST,4HP,NO,4HFIX ,4H$ ,4H ,4H , * 4H ,8*4H , 3 4HSCE1,4H ,4H US,4HETR,,4HKNOA,4H,MNO,4HA,BN,4HOA,K,4H4NOA, * 4H/KFF,4HX,KF,4HSX,K,4HSSX,,4HMFFX,4H,BFF,4HX,K4,4HFFX ,4H$ , 4 4HLABE,4HL ,4H LB,4HM1ST,4HP $ ,13*4H , 5 4HPARA,4HMR ,4H //,4H*COM,4HPLEX,4H*//1,4H.0/G,4HPARA,4HM /, * 4HG $ ,8*4H , 6 4HADD ,4H ,4H KF,4HFX,K,4H4FFX,4H/KDD,4H/G/(,4H0.0,,4H1.0), * 4H/(1.,4H0,0.,4H0) ,4H$ ,5*4H , 7 4HEQUI,4HV ,4H KD,4HD,KF,4HFX/A,4HLWAY,4HS $ ,4H ,4H , * 4H ,8*4H , 8 4HCEAD,4H ,4H KF,4HFX,B,4HFFX,,4HMFFX,4H,EED,4HR,/P,4HHIDR, * 4H,CLA,4HMA,O,4HCEIG,4HS,PH,4HIDL/,4HNEIG,4HVS $,4H ,4H / DATA RDMAP 3 / 9 4HOFP ,4H ,4H CL,4HAMA,,4HOCEI,4HGS,,,4H,,//,4H $ ,4H , * 4H ,8*4H , O 4HEQUI,4HV ,4H PH,4HIDR,,4HPHIF,4HR/NO,4HFIX ,4H$ ,4H , * 4H ,8*4H , 1 4HEQUI,4HV ,4H PH,4HIDL,,4HPHIF,4HL/NO,4HFIX ,4H$ ,4H , * 4H ,8*4H , 2 4HCOND,4H ,4H LB,4HM2ST,4HP,NO,4HFIX ,4H$ ,4H ,4H , * 4H ,8*4H , 3 4HUMER,4HGE ,4H US,4HETR,,4HPHID,4HR,/P,4HHIFR,4H!*N*,4H!*F*, * 4H!*S*,4H $ , 7*4H , 4 4HUMER,4HGE ,4H US,4HETR,,4HPHID,4HL,/P,4HHIFL,4H!*N*,4H!*F*, * 4H!*S*,4H $ , 7*4H , 5 4HLABE,4HL ,4H LB,4HM2ST,4HP $ ,13*4H , 6 4HCMRE,4HD2 ,4H CA,4HSECC,4H,CLA,4HMA,P,4HHIFR,4H,PHI,4HFL,E, * 4HQST,,4HUSET,4HR,KN,4HOA,M,4HNOA,,4HBNOA,4H,K4N,4HOA,P,4HNOA/, 7 4H ,4H ,4H KN,4HOB,M,4HNOB,,4HBNOB,4H,K4N,4HOB,P,4HNOB,, * 4HPONO,4HB/ST,4HP/S,,4HN,DR,4HY!*P,4HVEC*,4H $ ,4H ,4H / DATA RDMAP 4 / 8 4HLABE,4HL ,4H LB,4HM3ST,4HP $ ,13*4H , 9 4HLODA,4HPP ,4H PN,4HOB,P,4HONOB,4H/!*N,4HAMEB,4H *,4H/S,N, * 4H,DRY,4H $ ,7*4H , O 4HCOND,4H ,4H FI,4HNIS,,4HDRY ,4H$ ,12*4H / DATA XTRA / 1 4HNAME,4HBOUN,4HFIXE,4HMETH,4HRANG,4HNMAX,4HUSER, 2 4HOUTP,4HOLDM,4HGPAR,4HRSAV/ DATA OCT 1 / 1 7 , 8 , 0 , 2 8 , 8 , 1 , 3 9 , 8 , 2 , 4 10 , 8 , 16 , 5 11 , 8 , 32 , 6 12 , 8 , 0 , 7 13 , 8 , 0 , 8 14 , 8 , 0 , 9 15 , 8 , 0 , O 16 , 8 , 0 , 1 17 , 8 , 0 , 2 18 , 8 , 0 , 3 19 , 8 , 0 , 4 20 , 8 , 0 , 5 21 , 8 , 0 , 6 22 , 8 , 0 , 7 23 , 8 , 0 , 8 24 , 8 , 0 / DATA OCT 2 / 1 25 , 8 , 0 , 2 29 , 0 , 8 / DATA PTBS 1 / 1 2 , 59 , 59 , 8 ,4HNAMA , 0 , 0 , 2 3 , 19 , 19 , 3 ,4HSTEP , 0 , 0 , 3 4 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 4 5 , 12 , 13 , 3 ,4HNONA , 1 , -1 , 5 5 , 17 , 18 , 3 ,4HNONA , 2 , -1 , 6 5 , 22 , 23 , 3 ,4HNONA , 12 , -1 , 7 5 , 27 , 28 , 3 ,4HNONA , 16 , -1 , 8 5 , 32 , 34 , 3 ,4HNONA , 32 , -1 , 9 5 , 47 , 47 , 8 ,4HNAMA , 0 , 0 , O 6 , 12 , 12 , 4 ,4HPITM , 0 , 0 , 1 7 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 2 8 , 11 , 12 , 3 ,4HNONA , 0 , 0 , 3 9 , 11 , 12 , 3 ,4HNONA , 0 , 0 , 4 10 , 11 , 12 , 3 ,4HNONA , 0 , 0 , 5 11 , 11 , 13 , 3 ,4HNONA , 0 , 0 , 6 12 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 7 13 , 17 , 18 , 3 ,4HNONA , 1 , 0 , 8 13 , 22 , 23 , 3 ,4HNONA , 2 , 0 / DATA PTBS 2 / 1 13 , 27 , 28 , 3 ,4HNONA , 16 , 0 , 2 13 , 32 , 34 , 3 ,4HNONA , 32 , 0 , 3 13 , 38 , 42 , 0 ,4HNAMA , 1 , 0 , 4 13 , 43 , 47 , 0 ,4HNAMA , 1 , 0 , 5 13 , 48 , 52 , 0 ,4HNAMA , 1 , 0 , 6 13 , 53 , 57 , 0 ,4HNAMA , 2 , 0 , 7 13 , 58 , 62 , 0 ,4HNAMA , 16 , 0 , 8 13 , 63 , 68 , 0 ,4HNAMA , 32 , 0 , 9 14 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , O 15 , 28 , 28 , 8 ,4HGPAR , 0 , 0 , 1 18 , 11 , 15 , 0 ,4HNAMA , 1 , 0 , 2 18 , 16 , 20 , 0 ,4HNAMA , 16 , 0 , 3 18 , 21 , 25 , 0 ,4HNAMA , 2 , 0 , 4 22 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 5 25 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 6 26 , 18 , 23 , 0 ,4HNAMA , 55 , 0 , 7 26 , 24 , 29 , 0 ,4HNAMA , 55 , 0 , 8 26 , 30 , 35 , 0 ,4HNAMA , 55 , 0 / DATA PTBS 3 / 1 26 , 47 , 48 , 3 ,4HNONA , 1 , 0 , 2 26 , 52 , 53 , 3 ,4HNONA , 2 , 0 , 3 26 , 57 , 58 , 3 ,4HNONA , 16 , 0 , 4 26 , 62 , 64 , 3 ,4HNONA , 32 , 0 , 5 26 , 68 , 69 , 3 ,4HNONA , 12 , 0 , 6 27 , 11 , 12 , 3 ,4HNONB , 1 , -1 , 7 27 , 16 , 17 , 3 ,4HNONB , 2 , -1 , 8 27 , 21 , 22 , 3 ,4HNONB , 16 , -1 , 9 27 , 26 , 28 , 3 ,4HNONB , 32 , -1 , O 27 , 32 , 33 , 3 ,4HNONB , 12 , -1 , 1 27 , 37 , 39 , 3 ,4HNONB , 12 , -1 , 2 27 , 43 , 43 , 3 ,4HSTEP , 0 , 0 , 3 27 , 56 , 56 , 4 ,4HPITM , 12 , 0 , 4 28 , 15 , 15 , 3 ,4HSTEP , 0 , 0 , 5 29 , 11 , 12 , 3 ,4HNONB , 0 , 0 , 6 29 , 16 , 18 , 3 ,4HNONB , 0 , 0 , 7 29 , 24 , 24 , 8 ,4HNAMB , 0 , 0 / DATA SUBNAM / 4HASCM,2H13 / C C RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY C (SEE ASCM01 FOR EXPLANATION)) C DO 20 L = 1,111,3 I = ISAVE(L+1) J = ISAVE(L ) K = ISAVE(L+2) RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1) 20 CONTINUE C C VALIDATE COMMAND AND SET POINTERS C IF (NAME .NE. COMND(1,1)) GO TO 70 ICOMND = 1 IRDM = 1 NRDM = COMND(2,ICOMND) IXTRA = IRDM + 18*NRDM NXTRA = COMND(3,ICOMND) IOCT = IXTRA + NXTRA NOCT = COMND(4,ICOMND) IPTBS = IOCT + 3*NOCT NPTBS = COMND(5,ICOMND) IPH = IPTBS + 7*NPTBS NPH = COMND(6,ICOMND) C C MOVE RDMAP DATA C K = 0 IF (NRDM .EQ. 0) GO TO 35 DO 30 J = 1,NRDM DO 30 I = 1,18 K = K + 1 30 IDAT(K) = RDMAP(I,J) 35 CONTINUE C C MOVE XTRA DATA C IF (NXTRA .EQ. 0) GO TO 45 DO 40 I = 1,NXTRA K = K + 1 40 IDAT(K) = XTRA(I) 45 CONTINUE C C MOVE OCT DATA C IF (NOCT .EQ. 0) GO TO 55 DO 50 J = 1,NOCT DO 50 I = 1,3 K = K + 1 50 IDAT(K) = OCT(I,J) 55 CONTINUE C C MOVE PTBS DATA C IF (NPTBS .EQ. 0) GO TO 65 DO 60 J = 1,NPTBS DO 60 I = 1,7 K = K + 1 60 IDAT(K) = PTBS(I,J) 65 CONTINUE C RETURN C C INPUT ERROR C 70 CALL MESAGE (7,0,SUBNAM) NOGO = 1 RETURN C END ================================================ FILE: mis/asdmap.f ================================================ SUBROUTINE ASDMAP C C THIS ROUTINE PROCESSES THE SUBSTRUCTURE COMMAND DATA DECK C C IT CREATES A SET OF SUBSTRUCTURE DATA ON THE FRONT OF THE CASE C FILE AND GENERATES DMAP ALTERS FOR THE XALTER FILE. THE ALTERS ARE C PLACED FIRST ON THE SCRATCH FILE AND THEN COPIED TO THE PROBLEM C TAPE C IMPLICIT INTEGER (A-Z) EXTERNAL ANDF ,ORF ,RSHIFT ,LSHIFT , 1 COMPLF LOGICAL ALTER ,ALTFL ,FIRST ,IFIN , 1 SOLVE ,OPSOF ,PASS2 ,RECOV , 2 REJECT ,SKIP REAL FACT ,XX DIMENSION ALTS(18) ,CARD(20) ,CDATA(30) ,FNAME(7) , 1 COMND(2,25) ,DMAP(18,60),EXTRA(3,200),II(9) , 2 NASUB(2,100),OCARD(200) ,ITEMP(200) ,ASD1(2) , 3 ASD2(2) ,PHS(3) ,EXDEF(2,14) ,ITMN(5) , 4 NCASEC(2) ,NCASES(2) ,NHEAD(16) ,SUBNAM(2) , 5 DVEC(3) ,DBVAR(6) ,DBVAL(2,6,5),R3VAR(5) , 6 R3VAL(5,5) ,VAR(3,200) ,IVAR(3,200) ,Z(1) , 7 COREY(2) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /MACHIN/ MCHN COMMON /GINOX / IDUM(161) ,IGINOB COMMON /BLANK / XX COMMON /ASDBD / IRDM ,NRDM ,IXTRA ,NXTRA , 1 IOCT ,NOCT ,IPTBS ,NPTBS , 1 IPH ,NPH ,IDAT(1248) COMMON /ZZZZZZ/ COREX(1) COMMON /OUTPUT/ IOTIT(68) ,IHEAD(20) COMMON /SOFCOM/ NSOF ,NNAME(10) ,LENGTH(10) ,STAT , 1 PASWD(2) ,FIRST ,OPSOF COMMON /SYSTEM/ SYS(90) ,LPCH EQUIVALENCE (IBUF,SYS(1)) ,(OUTT,SYS(2)) , 1 (NOGO,SYS(3)) ,(INTP,SYS(4)) , 2 (NLPP,SYS(9)) ,(NLINES,SYS(12)) , 3 (IPREC,SYS(55)) ,(BANDIT,SYS(77)) EQUIVALENCE (VAR(1,1),IVAR(1,1)) ,(ITEMP(1),OCARD(1)) , 1 (COREX(1),COREY(1),NDBS),(COREY(2),Z(1)) DATA ALT1 / 4HALTE /, ALT2 / 4HR /, 1 ASD1 / 4HASDM,4HBEGN /, ASD2 / 4HASDM,4HEND /, 2 BLANK / 4H /, CASE / 4HCASE /, 3 DISK / 4HDISK /, DOLSN / 4H$ /, 4 DRY / 4HDRY /, DRYGO / 4HDRYG /, 5 ENDS / 4HENDS /, EQSN / 4H= / DATA EXDEF / -1,0, 4HTAPE,4H ,-1,0 , 4HINTE,4H , 0,0, 1 4HNORE,4H ,4HALL ,4H , 4HWHOL,4HESOF, 2 8*4HXXXX,-1,0, -1 ,0 / DATA IDG / 2H0 /, IDRY / 2H-1 /, 1 INPT / 4HINPT /, IOPEN / 1 /, 2 ISTP / 2H1 /, ITEM / 4HITEM / DATA ITMN / 4HITM1,4HITM2,4HITM3,4HITM4, 4HITM5 / DATA JNEW / 4HNEW /, KBEG / 4HBEGI /, 1 KWD / 4HK /, GORUN / 4HGO /, 2 LPAR / 4H( /, MACH / 4HMACH /, 3 MWD / 4HM /, NAME / 4HNAME /, 4 NANO / 4HNANO /, NBREC / 4HBREC /, 5 NCASEC / 4HCASE,4HCC /, NCASES / 4HCASE,4HSS /, 6 NEW / 4HNEW / DATA NHEAD / 2*4H ,4HN A ,4HS T ,4HR A ,4HN S,4H U B,4H S T 1 , 4H R U,4H C T,4H U R,4H E ,4HD E ,4HC K ,4H E C, 2 4H H O / DATA NH1 / 4H1 /, NH1A / 4H1A /, 1 NPHASE / 3 /, NPREC / 4HPREC /, 2 NREC / 4HRECO /, NSAVE / 4HSAVE /, 3 NSOL / 4HSOL /, NSTP / 4HNSTP /, 4 POIT / 4HPOIT /, NXALT / 4HXALT /, 5 NXCSA / 4HXCSA /, NXL2 / 4HER /, 6 OPER / 4HOPER /, OPTI / 4HOPTI /, 7 PASS / 4HPASS /, PASS2 / .FALSE./ DATA PHS / 4HE1 ,4HE2 , 4HE3 / DATA POSI / 4HPOSI /, PTAPE / 4HNPTP /, 1 PWD / 4HP /, RUN / 4HRUN /, 2 SCRT / 301 /, SOF / 4HSOF /, 3 STEP / 4HSTEP /, TITL / 4HTITL / DATA MSKP / 4HMSKP / DATA PAPP / 4HPAPP /, PAWD / 4HPA /, 1 PITM / 4HPITM /, POAP / 4HPOAP /, 2 POVE / 4HPOVE /, PVEC / 4HPVEC / DATA BWD / 4HB /, K4WD / 4HK4 / DATA OUTP / 4HOUTP /, RANG / 4HRANG / DATA DVEC / 4HDVEC,4HUDVF, 4HUDVT / DATA NDBVAR / 6 / DATA DBVAR / 4HGORL,4HPVEC, 4HUVEC,4HPFTL, 4HOVEC,4HOVC2 / DATA DBVAL / 4HGEOM,4H4 , 4HPGG ,4H , 4HUGV ,4H 1 , 4H ,4H , 4HOUGV,4H1 , 4HOUGV,4H 2 , 4HGEOM,4H4 , 4HPGG ,4H , 4HUGV ,4H 3 , 4H ,4H , 4HOUGV,4H1 , 4HOUGV,4H 4 , 4HLAMA,4H , 4H ,4H , 4HPHIG,4H 5 , 4H ,4H , 4HOPHI,4HG1 , 4HOPHI,4HG 6 , 4HGEOM,4H4 , 4HPPF ,4H , 4HUGV ,4H 7 , 4HPPF ,4H , 4HOUGV,4H1 , 4HOUGV,4H 8 , 4HGEOM,4H4 , 4HPPT ,4H , 4HUGV ,4H 9 , 4HTOL ,4H , 4HOUGV,4H1 , 4HOUGV,4H / DATA NR3VAR / 5 / DATA R3VAR / 4HUAPH,4HPGVC, 4HPSVC,4HDYNT, 4HQVEC / DATA R3VAL / 4HULV ,4HPGS , 4HPSS ,4H , 4HQG 1 , 4HULV ,4HPGS , 4HPSS ,4H , 4HQG 2 , 4HPHIA,4H , 4H ,4HLAMA, 4HQG 3 , 4HUDVF,4H , 4H ,4HPPF , 4HQPC 4 , 4HUDVT,4HPPT , 4HPST ,4HTOL , 4HQP / DATA NCOM / 25 / DATA COMND / 1 4HSUBS ,1 , 4HRUN ,2 3 , 4HENDD ,2 , 4HCOMB ,3 5 , 4HREDU ,4 , 4HSOLV ,5 7 , 4HRECO ,6 , 4HMREC ,6 9 , 4HBREC ,7 , 4HMRED ,9 1 , 4HCRED ,13 , 4HDEST ,10 3 , 4HEDIT ,10 , 4HEQUI ,10 5 , 4HSOFP ,10 , 4HDELE ,10 7 , 4HRENA ,10 , 4HSOFI ,11 9 , 4HSOFO ,11 , 4HREST ,11 1 , 4HDUMP ,11 , 4HCHEC ,11 3 , 4HCOMP ,11 , 4HAPPE ,11 5 , 4HPLOT ,12 / DATA SUBNAM / 4HASDM,4HAP / C C CALL CONMSG (ASD1,2,0) DO 10 I = 64,68 10 IOTIT(I) = BLANK DO 20 I = 1,16 20 IHEAD(I) = NHEAD(I) CALL PAGE NZ = KORSZ(Z(1)) BUF1 = NZ - IBUF + 1 BUF2 = BUF1 - IBUF BUF3 = BUF2 - IBUF C C INITIALIZE THE CASE CONTROL FILE C CALL OPEN (*2620,CASE,Z(BUF2),1) CALL CLOSE (CASE,1) IOPEN = 1 NOPEN = BUF3 - 1 IF (NOPEN .LE. 100) CALL MESAGE (-8,100-NOPEN,SUBNAM) FIRST = .TRUE. SKIP = .FALSE. ISOPT = 0 C C SET NUMBER OF POSSIBLE COMMANDS HERE C C SET LAST WORD INDICATER C I6777 = RSHIFT(COMPLF(0),1) C C READ FIRST CARD AFTER CEND C ASSIGN 70 TO IREAD GO TO 50 30 IF (SKIP) GO TO 60 IF (NLINES .GE. NLPP) CALL PAGE NLINES = NLINES + 1 WRITE (OUTT,40) CARD 40 FORMAT (1H ,4X,20A4) 50 CALL XREAD (*2600,CARD) CALL XRCARD (OCARD,200,CARD) IF (OCARD(1).GT.0 .AND. OCARD(2).EQ.BLANK) GO TO 30 IF (OCARD(1) .EQ. 0) GO TO 30 IF (OCARD(2).EQ.TITL .OR. OCARD(2).EQ.KBEG) GO TO 2600 60 SKIP = .FALSE. GO TO IREAD, (70,90,330,630) C 90? NOT ASSIGNED BY ANYBODY G.CHAN 4/93 C 70 IF (OCARD(1).GT.0 .AND. OCARD(2).EQ.COMND(1,1)) GO TO 100 C C NO SUBSTRUCTURE CARD C WRITE (OUTT,80) UFM NLINES = NLINES + 2 C 80 FORMAT (A23,' 6001. SUBSTRUCTURE DATA IS REQUIRED WITH THIS ', 1 'APPROACH') NOGO = 1 90 PHASE = 2 ALTER = .FALSE. SKIP = .TRUE. ICOM = 1 IF (OCARD(2) .EQ. ENDS) GO TO 2200 GO TO 130 C C PROCESS SUBSTRUCTURE CARD C 100 CNAME = COMND(1,1) J = OCARD(1)*2 DO 110 I = 1,NPHASE IF (OCARD(J+1) .NE. PHS(I)) GO TO 110 PHASE = I ALTER = .TRUE. ICOM = 1 GO TO 130 110 CONTINUE C C NO PHASE IS DEFINED C WRITE (OUTT,120) UWM NLINES = NLINES +2 120 FORMAT (A25,' 6002, INCORRECT PHASE DATA') ALTER = .FALSE. NOGO = 1 ICOM = 1 PHASE = 2 C C FOUND PHASE. TURN BANDIT OFF IF PHASE IS 2 C 130 IF (PHASE .EQ. 2) BANDIT = -1 J = 2 IAPP = IABS(SYS(21)) IF (IAPP .NE. 2) ALTER = .FALSE. IAP2 = SYS(69)/10 IF (IAP2 .EQ. 1) ALTER = .FALSE. SOL = 1 IF (.NOT. ALTER) GO TO 200 FILE = PTAPE KALT = 0 KFILE= 0 CALL OPEN (*2620,PTAPE,Z(BUF1),0) 140 CALL SKPFIL (PTAPE,1) KFILE = KFILE + 1 CALL READ (*2620,*150,PTAPE,FNAME,7,1,NWORDS) 150 CONTINUE IF (FNAME(1) .NE.NXALT) GO TO 160 KALT = KFILE C GO TO 140 160 IF (FNAME(1) .NE. NXCSA) GO TO 140 ALTFL = .FALSE. SOL = 1 IF (IAPP .EQ. 3) GO TO 180 CALL READ (*2620,*180,PTAPE,II,6,0,NWDS) SOL = II(5) 180 CALL REWIND (PTAPE) IF (KALT .NE. 0) ALTFL = .TRUE. IF (ALTFL) GO TO 190 CALL SKPFIL (PTAPE,KFILE) GO TO 200 190 CALL SKPFIL (PTAPE,KALT) CALL FWDREC (*2620,PTAPE) CALL READ (*2620,*200,PTAPE,ALTS,2,1,NWDS) C C NO XALTER FILE C C OPEN CASE FILE FOR SUBSTRUCTURE DATA OR TITLE C 200 IF (PHASE .EQ. 3) GO TO 300 FILE = CASE CALL OPEN (*2620,CASE,Z(BUF2),1) CALL WRITE (CASE,NCASES,2,1) FILE = SCRT C C SET UP INITAL VALUES C 300 IAC = 0 ISTEP = 0 NDBS = 0 DRYFLG= 1 OBITS = 55 IF (SOL .EQ. 1) OBITS = 5 IF (SOL .EQ. 2) OBITS = 7 IF (SOL .EQ. 3) OBITS = 3 IF (SOL .EQ. 8) OBITS = 55 IF (SOL .EQ. 9) OBITS = 55 NEWBT = OBITS RECOV = .FALSE. SOLVE = .FALSE. IAPP = SYS(21) IF (IAPP .EQ. 3) ALTER = .FALSE. IF (.NOT.ALTER ) GO TO 310 CALL OPEN (*2620,SCRT,Z(BUF3),1) II(1) = NXALT II(2) = NXL2 CALL WRITE (SCRT,II,2,1) 310 CONTINUE NSOF = 0 ISOF = 1 NNAME(1) = INPT STAT = 1 LENGTH(1)= 100 PASWD(1) = BLANK PASWD(2) = BLANK C C READ PASSWORD AND SOF DECLARATIONS C INEX = 0 320 ASSIGN 330 TO IREAD GO TO 30 330 IF (OCARD(2) .NE. PASS) GO TO 340 K = 4 IF (OCARD(5) .EQ. EQSN) K = 6 PASWD(1) = OCARD(K) PASWD(2) = OCARD(K+1) GO TO 320 340 IF (OCARD(2) .NE. SOF) GO TO 380 K = 4 IF (OCARD(5) .NE. LPAR) GO TO 350 K = 9 ISOF = OCARD(7) 350 IF (ISOF.LT.0 .OR. ISOF.GT.10) GO TO 370 NSOF = NSOF + 1 IF (OCARD(K+1) .EQ. EQSN) K = K + 2 IF (OCARD(K+4).EQ.JNEW .OR. OCARD(K+5).EQ.JNEW) STAT = 0 NNAME (ISOF) = OCARD(K ) LENGTH(ISOF) = OCARD(K+3) IF (OCARD(K+2) .EQ. -1) GO TO 320 LENGTH(ISOF) = 100 IF (NLINES+3 .GT. NLPP) CALL PAGE NLINES = NLINES + 3 IF (.NOT.SKIP) WRITE (OUTT,40) CARD WRITE (OUTT,360) UWM,ISOF 360 FORMAT (A25,', SOF(',I2,') FILESIZE NOT SPECIFIED. DEFAULT OF ', 1 '100K WORDS WILL BE ALLOCATED',/) ASSIGN 330 TO IREAD IF (SKIP) GO TO 60 GO TO 50 370 WRITE (OUTT,790) UFM NLINES = NLINES + 1 NOGO = 1 GO TO 320 380 IF (INEX .EQ. 1) GO TO 640 INEX = 1 SKIP = .TRUE. ICNEXT = 1 C C START PROCESSING SUBSTRUCTURE COMMAND CARDS HERE C TOP OF COMMAND LOOP C 400 ICOM = ICNEXT IF ( OCARD(2) .EQ. ENDS) GO TO 2100 DO 410 L = 1,30 410 CDATA(L) = OCARD(L) 420 CNAME = COMND(1,ICOM) JCOM = COMND(2,ICOM) IF (ICOM.EQ.6 .AND. SOL.GT.3) JCOM = 8 REJECT = .FALSE. GO TO (430,440,450,460,470,480,490,500,510,520,530,540,550), JCOM 430 CALL ASCM01 (CNAME,PHASE,SOL,NOGO) GO TO 600 440 CALL ASCM02 (CNAME,PHASE,SOL,NOGO) GO TO 600 450 CALL ASCM03 (CNAME,PHASE,SOL,NOGO) GO TO 600 460 CALL ASCM04 (CNAME,PHASE,SOL,NOGO) GO TO 600 470 CALL ASCM05 (CNAME,PHASE,SOL,NOGO) GO TO 600 480 CALL ASCM06 (CNAME,PHASE,SOL,NOGO) GO TO 600 490 CALL ASCM07 (CNAME,PHASE,SOL,NOGO) GO TO 600 500 CALL ASCM08 (CNAME,PHASE,SOL,NOGO) GO TO 600 510 CALL ASCM09 (CNAME,PHASE,SOL,NOGO) GO TO 600 520 CALL ASCM10 (CNAME,PHASE,SOL,NOGO) GO TO 600 530 CALL ASCM11 (CNAME,PHASE,SOL,NOGO) GO TO 600 540 CALL ASCM12 (CNAME,PHASE,SOL,NOGO) GO TO 600 550 CALL ASCM13 (CNAME,PHASE,SOL,NOGO) 600 JX = 0 ISTEP = ISTEP + 1 C C TRANSFER RAW DMAP TO WORKING AREA C M = IRDM - 1 DO 610 J = 1,NRDM DO 610 I = 1,18 M = M + 1 DMAP(I,J) = IDAT(M) 610 CONTINUE C C READ IN EXTRAS, FIND IN OPTION LIST, STOP AT NEXT COMMAND C 620 ASSIGN 630 TO IREAD GO TO 30 630 IF (OCARD(2).EQ.PASS .OR. OCARD(2).EQ.SOF) GO TO 330 640 IF (REJECT) GO TO 2090 IF (ITEMP(2) .EQ. DOLSN) GO TO 620 IF (ITEMP(2) .EQ. ENDS) GO TO 810 IF (ITEMP(2) .NE. OPTI) GO TO 660 NEWBT = 0 I2 = 4 IF (ITEMP(5) .EQ. EQSN) I2 = 6 DO 650 I = 1,6 J = 2*I + I2 - 2 IF (ITEMP(J) .EQ. KWD) NEWBT = ORF(NEWBT,1) IF (ITEMP(J) .EQ. MWD) NEWBT = ORF(NEWBT,2) IF (ITEMP(J) .EQ. PWD) NEWBT = ORF(NEWBT,4) IF (ITEMP(J) .EQ.PAWD) NEWBT = ORF(NEWBT,8) IF (ITEMP(J) .EQ. BWD) NEWBT = ORF(NEWBT,16) IF (ITEMP(J) .EQ.K4WD) NEWBT = ORF(NEWBT,32) 650 CONTINUE IF (ANDF(NEWBT,12) .EQ. 12) GO TO 780 IF (ISTEP .LE. 1) OBITS = NEWBT GO TO 620 660 CONTINUE IF (NXTRA .EQ. 0) GO TO 760 M = IXTRA - 1 DO 670 I = 1,NXTRA M = M + 1 IF (ITEMP(2) .EQ. IDAT(M)) GO TO 680 670 CONTINUE C C CARD IS NOT AN EXTRA C GO TO 760 C C FOUND AN EXTRA, STORE SEQUENTIALLY AS PAIRS OF TWO WORD ITEMS C 680 JX = JX + 1 EXTRA(1,JX) = ITEMP(2) I2 = 4 IF (ITEMP(5) .EQ. EQSN) I2 = 6 EXTRA(2,JX) = ITEMP(I2 ) EXTRA(3,JX) = ITEMP(I2+1) C C SPECIAL OUTPUT EXTRA C IF (ITEMP(2) .NE. OUTP) GO TO 700 EXTRA(2,JX) = -1 EXTRA(3,JX) = 0 690 IF (ITEMP(I2).NE.-1 .OR. ITEMP(I2+1).LE.0 .OR. ITEMP(I2+1).GT.31) 1 GO TO 620 J = LSHIFT(1,ITEMP(I2+1)-1) EXTRA(3,JX) = ORF(EXTRA(3,JX),J) I2 = I2 + 2 GO TO 690 700 CONTINUE IF (ITEMP(2) .NE. RANG) GO TO 720 JX = JX + 1 EXTRA(1,JX) = RANG I2 = I2 + 2 IF (ITEMP(I2).EQ.-1 .OR. ITEMP(I2).EQ.-2) GO TO 710 EXTRA(2,JX) = EXTRA(2,JX-1) EXTRA(3,JX) = EXTRA(3,JX-1) EXTRA(3,JX-1) = 0 GO TO 620 710 EXTRA(2,JX) = ITEMP(I2) EXTRA(3,JX) = ITEMP(I2+1) GO TO 620 720 CONTINUE IF (EXTRA(1,JX) .NE. RUN) GO TO 620 EXTRA(3,JX) = BLANK EXTRA(2,JX) = IDRY IF (ITEMP(I2) .EQ. DRY) GO TO 620 IF (ITEMP(I2) .NE. GORUN) GO TO 730 EXTRA(2,JX) = IDG GO TO 620 730 IF (ITEMP(I2) .NE. STEP) GO TO 740 EXTRA(2,JX) = ISTP GO TO 620 740 IF (ITEMP(I2) .NE. DRYGO) GO TO 750 DRYFLG = 0 GO TO 620 750 JX = JX - 1 GO TO 620 C C CHECK AND SET IF COMMAND CARD C 760 DO 770 I = 2,NCOM ICNEXT = I IF (OCARD(2) .EQ. COMND(1,I)) GO TO 800 770 CONTINUE 780 WRITE (OUTT,790) UFM NLINES = NLINES +2 790 FORMAT (A23,' 6003. ILLEGAL COMMANDS OR OPTIONS DEFINED ON NEXT ', 1 'CARD') NOGO = 1 GO TO 620 C C FOR PHASE 3 RECOVERY, CHANGE RECO TO BREC C 800 IF (PHASE.NE.3 .OR. COMND(1,ICNEXT).NE.NREC) GO TO 810 OCARD(2) = NBREC ICNEXT = 9 810 CONTINUE C GO TO ( 820,1030,2200,1100,1200,1300,1400,1400,1700,1200, 1 1200,1500,1500,1500,1500,1500,1500,1730,1730,1730, 2 1730,1730,1730,1730,1900), ICOM C C SUBSTRUCTURE PHASES C PHASE 1 C VARIABLES, NO. TYPE POSITION DEFINITION C 1,2,3 I 1 ALTE,R.F. REMOVE NUMBERS C 4,5,6 I 4 ALTE,R.F. REMOVE NUMBERS C 7,8,9 ALTE,R.F. REMOVE NUMBERS C 10,11,12 SAVE,-1, PLOT SET ID C 1 13,14,15 RUN ,-1, RUN FLAG C 1 16,17,18 NAME, SUBS NAME C 820 GO TO (830,900,1000), PHASE 830 NVAR = 24 NOUT = 0 DO 840 I = 1,NVAR 840 VAR(I,1) = 0 VAR(1,8) = PITM VAR(2,8) = PVEC VAR(3,8) = BLANK IF (ANDF(OBITS,8) .NE. 0) VAR(2,8) = PAPP DO 850 I = 1,JX DO 850 J = 1,3 VAR(J,I+4) = EXTRA(J,I) 850 CONTINUE NX = JX + 4 INAM = 0 IRUN = 0 ISAV = 0 C C CHECK FOR REQUIRED NAME C DO 860 I = 5,NX IF (VAR(1,I) .EQ. NAME) INAM = I IF (VAR(1,I) .EQ. RUN) IRUN = I IF (VAR(1,I) .EQ. NSAVE) ISAV = I 860 CONTINUE C C NO NAME DEFINED IS A LEVEL 3 ERROR C IF (INAM .LE. 0) GO TO 2640 IF (IRUN .NE. 0) GO TO 870 IRUN = NX + 1 VAR(1,IRUN) = RUN VAR(2,IRUN) = ISTP VAR(3,IRUN) = BLANK NX = NX + 1 870 CONTINUE IF (ISAV .NE. 0) GO TO 880 VAR(1,NX+1) = NSAVE VAR(2,NX+1) = -1 VAR(3,NX+1) = 0 880 CONTINUE M = IPH - 1 DO 890 I = 1,4 M = M + 2 VAR(1,I) = ALT1 VAR(2,I) = IDAT(M-1) VAR(3,I) = IDAT(M ) 890 CONTINUE GO TO 2000 C C PHASE 2 PROCESS C 900 IF (JX .GT. 0) GO TO 910 JX = 1 EXTRA(1,1) = RUN EXTRA(2,1) = ISTP EXTRA(3,1) = BLANK 910 VAR(1,1) = ALT1 VAR(2,1) = 4 IF (SOL .EQ. 1) VAR(2,1) = 5 VAR(3,1) = 0 C DO 920 J = 1,JX DO 920 I = 1,3 VAR(I,J+1) = EXTRA(I,J) 920 CONTINUE NVAR = 3*(1+JX) NOUT = 0 DO 930 I = 1,5 DMAP(1,I) = -1 930 CONTINUE GO TO 2000 C C PHASE 3 PROCESSING C NORMALLY THIS IS A RESTART, IF NOT THE DATA WILL BE REGENERATED C 1000 NVAR = 6 VAR(1,1) = ALT1 VAR(2,1) = IDAT(IPH) VAR(3,1) = IDAT(IPH+1) VAR(1,2) = RUN VAR(2,2) = ISTP VAR(3,2) = BLANK IF (JX .LT. 1) GO TO 1010 IF (EXTRA(1,1) .EQ. RUN) VAR(2,2) = EXTRA(2,1) 1010 NOUT = 0 DO 1020 I = 1,5 DMAP(1,I) = -1 1020 CONTINUE GO TO 2000 C C RUN COMMAND (SOMETIMES AN EXTRA) C 1030 I2 = 4 IF (CDATA(5) .EQ. EQSN) I2 = 6 VAR(1,1) = CDATA(2) VAR(2,1) = ISTP VAR(3,1) = BLANK IF (CDATA(I2) .EQ. STEP) GO TO 1040 VAR(2,1) = IDRY IF (CDATA(I2) .EQ. DRYGO) DRYFLG = 0 1040 IF (DRYFLG .EQ. 0) GO TO 2080 NVAR = 3 NOUT = 0 GO TO 2000 C C COMBINE OPERATION, USES SUBROUTINE COMBO C 1100 CALL COMBO (CDATA,JX,EXTRA,IAC,NASUB,NS,VAR(1,3),IER) NVAR = 3*(5+JX+3*NS) VAR(1,1) = NS VAR(2,1) = 0 VAR(3,1) = 0 VAR(1,2) = NSTP VAR(2,2) =-1 VAR(3,2) = ISTEP NVAR = NVAR + 3 VAR(NVAR+1,1) = PITM VAR(NVAR+2,1) = PVEC VAR(NVAR+3,1) = BLANK IF (ANDF(OBITS,8) .NE. 0) VAR(NVAR+2,1) = PAPP NVAR = NVAR + 3 NOUT = NVAR IF (IER) 2640,2000,2640 C C REDUCE, MREDUCE, CREDUCE OPERATIONS - VARIABLES TO BE SET ARE C C STEP - STEP NO. C NONA - NO. OF SUBSTRUCTURE A C NONB - NO. OF SUBSTRUCTURE B C NAMA - NAME OF SUBSTRUCTURE A C NAMB - NAME OF SUBSTRUCTURE B C PREC - PRECISION FLAG C PITM - LOAD ITEM C POIT - LOAD TRANSFORMATION ITEM C 1200 CALL REDU (CDATA,JX,EXTRA,IAC,NASUB,NVAR,VAR(1,2),IPREC,IER) VAR(1,1) = STEP VAR(2,1) = -1 VAR(3,1) = ISTEP NVAR = NVAR+3 VAR(NVAR+1,1) = PITM VAR(NVAR+2,1) = PVEC VAR(NVAR+3,1) = BLANK VAR(NVAR+4,1) = POIT VAR(NVAR+5,1) = POVE VAR(NVAR+6,1) = BLANK IF (ANDF(OBITS,8) .EQ. 0) GO TO 1210 VAR(NVAR+2,1) = PAPP VAR(NVAR+5,1) = POAP 1210 NVAR = NVAR + 6 NOUT = NVAR IF (IER) 2090,2000,2090 C C SOLVE OPERATION - VARIABLES ARE SUBSTRUCTURE NAME AND ALTER NO S C 1300 NVAR = 33 NOUT = NVAR I2 = 4 IF (CDATA(5) .EQ. EQSN) I2 = 6 IF (CDATA(1)*2 .LT. I2) GO TO 2660 VAR(1,8) = NAME VAR(2,8) = CDATA(I2 ) VAR(3,8) = CDATA(I2+1) NSOLV1 = CDATA(I2 ) NSOLV2 = CDATA(I2+1) C C FIND STRUCTURE NUMBER C NS = IAC IF (NS .EQ. 0) GO TO 1320 DO 1310 I = 1,NS IF (CDATA(I2).EQ.NASUB(1,I) .AND. CDATA(I2+1).EQ.NASUB(2,I)) 1 GO TO 1330 1310 CONTINUE 1320 CONTINUE NS = NS+1 NASUB(1,NS) = CDATA(I2 ) NASUB(2,NS) = CDATA(I2+1) I = NS 1330 VAR(1, 9) = NANO VAR(2, 9) = -1 VAR(3, 9) = I VAR(1,10) = STEP VAR(2,10) = -1 VAR(3,10) = ISTEP IF (JCOM .EQ. 8) GO TO 1340 VAR(1,11) = NSOL VAR(2,11) = BLANK VAR(3,11) = BLANK GO TO 1350 1340 VAR(1,11) = DVEC(1) VAR(2,11) = DVEC(2) VAR(3,11) = BLANK IF (SOL .EQ. 9) VAR(2,11) = DVEC(3) 1350 CONTINUE IF (SOL .EQ. 1) GO TO 1360 IF (SOL .EQ. 2) VAR(2,11) = NH1A IF (SOL .EQ. 3) VAR(2,11) = NH1 NVAR = 36 NOUT = 36 VAR(1,12) = MSKP VAR(2,12) = BLANK VAR(3,12) = BLANK 1360 CONTINUE IAC = NS M = IPH - 1 DO 1370 I = 1,7 M = M + 2 VAR(1,I) = ALT1 VAR(2,I) = IDAT(M-1) VAR(3,I) = IDAT(M ) 1370 CONTINUE SOLVE = .TRUE. GO TO 2000 C C RECOVERY PHASE2 - VARIABLES ARE SOLUTION STRUCTURE NAME, C PRINT, NAME AND/OR SAVE, NAME+ALTER C 1400 I2 = 4 IF (CDATA(5) .EQ. EQSN) I2 = 6 IF (CDATA(1)*2 .LT. I2) GO TO 2660 VAR(1,1) = NCASES(1) VAR(2,1) = NCASES(2) VAR(3,1) = BLANK VAR(1,2) = NAME VAR(2,2) = CDATA(I2 ) VAR(3,2) = CDATA(I2+1) ISOL = SOL IF (SOL .GT. 3) ISOL = ISOL - 4 IF (ICOM .EQ. 8) ISOL = 3 DO 1410 I = 1,NDBVAR VAR(1,I+2) = DBVAR(I) VAR(2,I+2) = DBVAL(1,I,ISOL) IF (ICOM.EQ.8 .AND. I.LT.4) VAR(2,I+2) = BLANK VAR(3,I+2) = DBVAL(2,I,ISOL) IF (ICOM.EQ.8 .AND. I.LT.4) VAR(3,I+2) = BLANK 1410 CONTINUE VAR(1,9) = NSOL VAR(2,9) = -1 VAR(3,9) = SOL IF (ICOM .EQ. 8) VAR(3,9) = 3 VAR(1,10) = STEP VAR(2,10) = -1 VAR(3,10) = ISTEP IF (JX .LE. 0) GO TO 1430 DO 1420 I = 1,JX DO 1420 K = 1,3 VAR(K,I+10) = EXTRA(K,I) 1420 CONTINUE 1430 IF (SOLVE) GO TO 1440 C C SAVE OPTION BITS AND SET TO ZERO C OBITS = 0 VAR(1,4)= 0 VAR(2,1)= NCASEC(2) 1440 RECOV = .TRUE. NVAR = 3*JX + 30 NOUT = NVAR GO TO 2000 C C UTILITY COMMANDS - USE SOFOUT MODULE TO MANIPULATE SOF FILE(S). C DESTROY, EDITOUT, EQUIV, PRINT, DELETE, AND RENAME C 1500 NVAR = 0 I2 = 4 KWDS = 1 C C DECODE AND STORE COMMAND DATA FROM HEADER CARD C 1510 KWDS = KWDS + 1 IF (CDATA(I2+1).EQ.LPAR .OR. CDATA(I2+1).EQ.EQSN) I2 = I2 + 2 VAR(2,KWDS) = CDATA(I2 ) VAR(3,KWDS) = CDATA(I2+1) I2 = I2 + 2 IF (CDATA(I2).EQ.I6777 .OR. CDATA(I2+1).EQ.I6777) GO TO 1520 IF (VAR(2,KWDS) .EQ. -1) I2 = I2 + 1 IF (KWDS .LT. 8) GO TO 1510 C C INSERT VARIABLE NAMES C 1520 J = ICOM - 11 VAR(1,1) = OPER VAR(2,1) = CNAME VAR(3,1) = BLANK JOPT = 0 GO TO (1530,1540,1550,1580,1590,1550), J C C DESTROY NAME C 1530 VAR(1,2) = NAME NVAR = 2 GO TO 1620 C C EDITOUT(CODE) = NAME C 1540 GO TO 1580 C C EQUIV A,B +PREFIX = B CARD C 1550 VAR(1,2) = NAME VAR(1,3) = NEW NVAR = 3 IF (J .EQ. 6) GO TO 1620 IF (KWDS .LT. 2) GO TO 2640 IF (JX .LT. 1) GO TO 1560 VAR(1,4) = EXTRA(1,1) VAR(2,4) = EXTRA(2,1) VAR(3,4) = EXTRA(3,1) NVAR = 4 GO TO 1620 1560 WRITE (OUTT,1570) UWM 1570 FORMAT (A25,' 6004, NO PREFIX DEFINED AFTER EQUIVALENCE.') NLINES = NLINES + 2 GO TO 1620 C C PRINT(CODE) = NAME,ITM1,ITM2,ITM3,ITM4,ITM5 C 1580 IF (VAR(2,2).NE. -1) GO TO 1590 VAR(1,2) = OPTI JOPT = 1 I2 = 3 GO TO 1600 1590 I2 = 2 1600 VAR(1,I2) = NAME NS = KWDS - I2 DO 1610 I = 1,NS J = I2 + I 1610 VAR(1,J) = ITMN(I) NVAR = KWDS 1620 NOUT = 0 IF (JOPT .EQ. 1) GO TO 1630 NVAR = NVAR + 1 VAR(1,NVAR) = OPTI VAR(2,NVAR) = -1 VAR(3,NVAR) = 32 IF (ICOM .EQ. 15) VAR(3,NVAR) = 0 1630 NVAR = 3*NVAR GO TO 2000 C C RECOVERY, PHASE 3. VARIABLES ARE NAME, SOL, STEP, PREC, UAPH, C PGVC, PSVC, DYNT, QVEC C 1700 I2 = 4 IF (CDATA(I2) .EQ. EQSN) I2 = I2 + 2 M = IPH - 1 DO 1710 I = 1,3 M = M + 2 VAR(1,I) = ALT1 VAR(2,I) = IDAT(M-1) VAR(3,I) = IDAT(M ) 1710 CONTINUE ISOL = SOL IF (SOL .GT. 3) ISOL = ISOL - 4 DO 1720 I = 1,NR3VAR VAR(1,I+3) = R3VAR(I) VAR(2,I+3) = R3VAL(I,ISOL) VAR(3,I+3) = BLANK 1720 CONTINUE VAR(1, 9) = NAME VAR(2, 9) = CDATA(I2 ) VAR(3, 9) = CDATA(I2+1) VAR(1,10) = NSOL VAR(2,10) = -1 VAR(3,10) = SOL VAR(1,11) = STEP VAR(2,11) = -1 VAR(3,11) = ISTEP VAR(1,12) = NPREC VAR(2,12) = -1 VAR(3,12) = IPREC NVAR = 36 NOUT = 0 GO TO 2000 C C EXIO OPERATIONS - C SOFIN, SOFOUT, RESTORE, DUMP, CHECK, COMPRESS AND APPEND C 1730 NVAR = 42 NOUT = 0 C DO 1740 I = 1,14 VAR(1,I) = 100 + I VAR(2,I) = EXDEF(1,I) 1740 VAR(3,I) = EXDEF(2,I) C C DECODE COMMAND CARD C VAR(2,5) = CDATA(2) VAR(3,5) = CDATA(3) I2 = 4 IF (CDATA(5) .NE. LPAR) GO TO 1750 VAR(2,4) = CDATA(6) VAR(3,4) = CDATA(7) I2 = 8 1750 IF (CDATA(I2+1) .EQ. EQSN) I2 = I2 + 2 IF (CDATA(I2).EQ.I6777 .OR. CDATA(I2+1).EQ.LPAR) GO TO 1830 VAR(2,3) = CDATA(I2 ) VAR(3,3) = CDATA(I2+1) IF (CDATA(I2+2) .EQ. I6777) GO TO 1760 VAR(2,2) = CDATA(I2+2) VAR(3,2) = CDATA(I2+3) C C SET EXTRAS C 1760 NN = 0 IF (JX .EQ.0) GO TO 1820 DO 1810 I = 1,JX IF (EXTRA(1,I) .NE. MACH) GO TO 1770 K = 1 GO TO 1800 1770 IF (EXTRA(1,I) .NE. POSI) GO TO 1780 K = 6 GO TO 1800 1780 IF (EXTRA(1,I) .NE. ITEM) GO TO 1790 K = 7 GO TO 1800 1790 IF (EXTRA(1,I) .NE. NAME) GO TO 1810 NN = NN + 1 K = NN + 7 1800 VAR(2,K) = EXTRA(2,I) VAR(3,K) = EXTRA(3,I) 1810 CONTINUE C C SET DISK FIELD FOR COMPRESS ETC C 1820 IF (ICOM .GE. 24) VAR(2,2) = DISK GO TO 2000 1830 WRITE (OUTT,1840) UFM 1840 FORMAT (A23,' 6008, ILLEGAL INPUT ON THE PREVIOUS COMMAND.', /5X, 1 'MISSING FILE NAME FOR IO OPERATION') NLINES = NLINES + 3 GO TO 2090 C C PLOT COMMAND C FORMAT C PLOT NAME C 1900 NVAR = 6 NOUT = 0 I2 = 4 IF (CDATA(I2) .EQ. EQSN) I2 = 6 IF (CDATA(1)*2 .LT. I2) GO TO 2640 VAR(1,1) = NAME VAR(2,1) = CDATA(I2 ) VAR(3,1) = CDATA(I2+1) VAR(1,2) = STEP VAR(2,2) = -1 VAR(3,2) = ISTEP C C PROCESS VARIABLE CHARACTERS IF DMAP IS TO BE GENERATED C 2000 IF (.NOT.ALTER) GO TO 2080 CALL ASPRO (DMAP,IVAR,NVAR,OBITS,SOL) C C RESET OPTION BITS IF DUMMY VALUE WAS USED C OBITS = NEWBT IF (NOGO .GE. 1) GO TO 2080 C C WRITE DMAP ON SCRATCH FILE C DO 2070 I = 1,NRDM C C GO TO SPECIAL CODE IF AN ALTER CARD C IF (DMAP(1,I) .NE. ALT1) GO TO 2060 C II(1) = DMAP(2,I) II(2) = DMAP(3,I) IF (.NOT.ALTFL) GO TO 2050 IF (II(2) .EQ. 0) II(2) = -II(1) 2010 IF (ALTS(2).EQ. 0) ALTS(2)= -ALTS(1) C IF (ALTS(1) .GT. IABS(II(2))) GO TO 2050 C C OVERLAPPING DMAP C IF (IABS(ALTS(2)) .GE. II(1)) GO TO 2660 C C ALTERS ENCOUNTERED BEFORE NEW ALTERS C IF (ALTS(2) .LT. 0) ALTS(2) = 0 CALL WRITE (SCRT,ALTS,2,1) FILE = PTAPE 2020 CALL READ (*2040,*2030,PTAPE,ALTS,18,1,NWDS) C C DMAP DATA ENCOUNTERED C CALL WRITE (SCRT,ALTS,18,1) GO TO 2020 C C MORE ALTERS ENCOUNTERED C 2030 IF (NWDS .EQ. 2) GO TO 2010 C C END OF USER ALTERS C 2040 ALTFL = .FALSE. C C INSERT NEW DMAP ALTERS C 2050 IF (II(2) .LT. 0) II(2) = 0 C CALL WRITE (SCRT,II,2,1) GO TO 2070 C C WRITE ORDINARY DMAP DATA HERE C 2060 CALL WRITE (SCRT,DMAP(1,I),18,1) 2070 CONTINUE C C WRITE COMMAND AND VARIABLE DATA ON CASE CONTROL FILE C 2080 IF (PHASE .EQ. 3) GO TO 2090 II(1) = CNAME II(2) = NOUT CALL WRITE (CASE,II,2,0) CALL WRITE (CASE,IVAR,NOUT,1) C C 2090 IF (ITEMP(2) .EQ. ENDS) GO TO 2100 C REJECT = .FALSE. C GO TO 400 C C ENDSUBS ENCOUNTERED, STOP PROCESS C ENSURE THAT A RECOVER ALWAYS EXISTS FOLLOWING A SOLVE C 2100 IF (PHASE.NE.2 .OR. .NOT.SOLVE .OR. RECOV) GO TO 2110 C C CONSTRUCT A DUMMY INPUT CARD C CDATA(1) = 4 CDATA(2) = NREC CDATA(3) = BLANK CDATA(4) = NSOLV1 CDATA(5) = NSOLV2 SKIP = .TRUE. ICOM = 7 GO TO 420 C C CHECK SOF AND PASSWORD DECLARATIONS C 2110 IF (PASWD(1) .NE. BLANK) IF (NSOF) 2120,2120,2140 2120 CALL PAGE2 (2) WRITE (OUTT,2130) UFM 2130 FORMAT (A23,' 6011, SOF DATA PASSWORD MISSING') NOGO = 1 2140 CONTINUE IBLKSZ = IBUF - 4 IF (MCHN.EQ.3 .OR. MCHN.EQ.4) IBLKSZ = IGINOB FACT = 1000.0/IBLKSZ DO 2150 I = 1,10 LENGTH(I) = LENGTH(I)*FACT JX = LENGTH(I)/2 2150 LENGTH(I) = 2*JX C C INITIALIZE DIRECT ACCESS FILES FOR IBM 360/370 MACHINES C IF (MCHN .EQ. 2) CALL SOFIOI 2200 CALL PAGE2 (1) WRITE (OUTT,2210) 2210 FORMAT (7X,7HENDSUBS) IF (.NOT. ALTER) GO TO 2540 C C WRAP UP DMAP C PUT LABEL ON END OF ALTER DECK C CNAME = COMND(1,3) CALL ASCM02 (CNAME,PHASE,SOL,NOGO) M = IRDM + 18 CALL WRITE (SCRT,IDAT(M),18,1) C C REPEAT ALTER IF DRYGO IS ON C IF (DRYFLG .NE. 0) GO TO 2230 DO 2220 I = 1,3 M = M + 18 CALL WRITE (SCRT,IDAT(M),18,1) 2220 CONTINUE C C JUMP TO FINISH OF RIGID FORMAT C 2230 IF (PHASE .NE. 3) CALL WRITE (SCRT,IDAT(91),18,1) IFILE = PTAPE OFILE = SCRT IFIN = .FALSE. PASS2 = .FALSE. IF (.NOT.ALTFL) GO TO 2240 IF (ALTS(2) .LT. 0) ALTS(2)=0 CALL WRITE (SCRT,ALTS,2,1) GO TO 2270 2240 CALL EOF (SCRT) CALL READ (*2620,*2250,PTAPE,II,9,1,NW) C C COPY REMAINDER OF PROBLEM TAPE TO SCRATCH FILE C 2250 IFIN = .FALSE. 2260 IF (II(1) .EQ. NXCSA) IFIN = .TRUE. CALL WRITE (OFILE,II,NW,1) C C IREC = 1 2270 CALL READ (*2290,*2280,IFILE,Z(IOPEN),NOPEN,0,NWDS) C CALL WRITE (OFILE,Z(IOPEN),NOPEN,0) GO TO 2270 C C SET ALTER FLAG ON SOL RECORD OF XCSA FILE C 2280 IF (IFIN .AND. PASS2 .AND. IREC.EQ.1) Z(IOPEN+2) = 1 CALL WRITE (OFILE,Z(IOPEN),NWDS,1) IREC = IREC + 1 GO TO 2270 2290 CONTINUE CALL EOF (OFILE) IF (IFIN) GO TO 2300 CALL READ (*2620,*2260,IFILE,II,9,1,NW) GO TO 2260 2300 CALL CLOSE (IFILE,1) CALL CLOSE (OFILE,3) IF (PASS2) GO TO 2530 C C PRINT OR PUNCH ALTER DECK HERE C C DIAG 23 REQUESTS PRINT C DIAG 24 REQUESTS PUNCH C CALL SSWTCH (23,KPRT) CALL SSWTCH (24,KPCH) IF (KPRT.EQ.0 .AND. KPCH.EQ.0) GO TO 2510 ICARD = 0 CALL OPEN (*2620,SCRT,Z(BUF3),0) C 2310 CONTINUE CALL PAGE WRITE (OUTT,2320) 2320 FORMAT (5X,'ALTER DECK ECHO') NLINES = NLINES + 1 2330 IF (NLINES.GE.NLPP .AND. KPRT.NE.0) GO TO 2310 CALL READ (*2500,*2360,SCRT,CARD,18,1,NW) C C DMAP CARD C NC = 18 IF (KPRT .NE. 0) WRITE (OUTT,2340) ICARD,(CARD(I),I=1,NC) IF (KPRT .NE. 0) NLINES = NLINES + 1 IF (KPCH .NE. 0) WRITE (LPCH,2350) (CARD(I),I=1,NC) ICARD = ICARD + 1 2340 FORMAT (4X,I5,4X,18A4) 2350 FORMAT (18A4) GO TO 2330 2360 IF (ICARD .GT. 0) GO TO 2370 ICARD = 1 GO TO 2330 C C ALTER CARD C 2370 IF (CARD(2) .LE. 0) GO TO 2400 IF (KPRT .NE. 0) WRITE (OUTT,2380) ICARD,ALT1,ALT2,(CARD(I),I=1,2) IF (KPRT .NE. 0) NLINES = NLINES + 1 IF (KPCH .NE. 0) WRITE (LPCH,2390) ALT1,ALT2,CARD(1),CARD(2) ICARD = ICARD + 1 2380 FORMAT (5X,I4,4X,2A4,I8,1H, ,I3) 2390 FORMAT (2A4,I8,1H,,I3) GO TO 2330 2400 IF (KPRT .NE. 0) WRITE (OUTT,2410)ICARD,ALT1,ALT2,CARD(1) IF (KPRT .NE. 0) NLINES = NLINES + 1 IF (KPCH .NE. 0) WRITE (LPCH,2420) ALT1,ALT2,CARD(1) ICARD = ICARD + 1 2410 FORMAT (5X,I4,4X,2A4,I8) 2420 FORMAT (2A4,I8) GO TO 2330 C C END OF FILE C 2500 CALL CLOSE (SCRT,0) 2510 CONTINUE CALL OPEN (*2620,SCRT,Z(BUF3),0) CALL OPEN (*2620,PTAPE,Z(BUF1),0) C C COPY SCRATCH TO PROB.TAPE, FIRST POSITION PTAPE TO XALTER OR C XCSA FILE C ISKP = KFILE IF (KALT .NE. 0) ISKP = KALT CALL SKPFIL (PTAPE,ISKP) CALL CLOSE (PTAPE,2) CALL OPEN (*2620,PTAPE,Z(BUF1),3) CALL READ (*2620,*2520,SCRT,II,9,1,NW) 2520 PASS2 = .TRUE. IFIN = .FALSE. IFILE = SCRT OFILE = PTAPE GO TO 2260 2530 CONTINUE C CALL CLOSE (SCRT,1) C C CLOSE CASE CONTROL C 2540 IF (PHASE .NE. 3) CALL CLOSE (CASE,2) CALL CONMSG (ASD2,2,0) RETURN C C USER FATAL MESSAGES C 2600 WRITE (OUTT,2610) UFM 2610 FORMAT (A23,' 6017, MISSING ENDSUBS CARD.') CALL MESAGE (-37,0,SUBNAM) C C SYSTEM ERROR MESSAGES C 2620 WRITE (OUTT,2630) SFM,FILE 2630 FORMAT (A25,' 6007, IMPROPER FILE SETUP FOR ',A4) NLINES = NLINES + 2 GO TO 2680 2640 WRITE (OUTT,2650) UFM,CNAME 2650 FORMAT (A23,' 6005, ILLEGAL OR MISSING DATA FOR THE PREVIOUS ', 1 'COMMAND - ',A4) NLINES = NLINES + 2 NOGO = 1 GO TO 2090 2660 WRITE (OUTT,2670) UFM,ALTS(1),ALTS(2),II 2670 FORMAT (A23,' 6006, DMAP ALTERS ',2I8, /5X, 1 'INTERFERE WITH SUBSTRUCTURE ALTERS ',2I4) NLINES = NLINES + 3 NOGO = 1 GO TO 2090 2680 WRITE (OUTT,2690) UFM 2690 FORMAT (A23,' 6009, UNRECOVERABLE ERROR CONDITIONS IN SUBROUTINE', 1 ' ASDMAP') NLINES = NLINES + 2 NOGO = 3 CALL CLOSE (SCRT ,1) CALL CLOSE (CASE ,1) CALL CLOSE (PTAPE,1) RETURN END ================================================ FILE: mis/aspro.f ================================================ SUBROUTINE ASPRO (DMAP,VAR,NVAR,OBITS,SOL) C C THIS CODE PERFORMS THE ROUTINE PROCESSING OF THE DMAP ALTERS C FOR ASDMAP. KEY TABLES ARE- C C DMAP - RAW 18 WORD PER CARD BCD DATA ON INPUT, VARIABLE C CHARACTERS ARE ADDED AND FIELDS AND CARDS ARE DELETED C DEPENDING ON USER INPUT IN VAR(IABLE) AND OPTION FLAGS. C C VAR CONTROL DATA AND USER INPUT DATA, 3 WORDS, BCD + DATA C C PTBS POSITIONS-TO-BE-SET TABLE, CONTENTS-PER ENTRY C C 1 CARD NUMBER IN DMAP C 2 FIRST CHARACTER OF MODIFIED FIELD C 3 FIRST CHARACTER FOR ADDED VARIABLE C 4 NUMBER OF VARIABLE CHARACTERS C 5 KEY OF VARIABLE TO BE INSERTED C 6 MATRIX OPTION FLAG , 1= K, 2=M, 4=P ETC C 7 OUTPUT CONTROL FLAG, AVOIDS SAME DATA BLOCK C OUTPUT FROM TWO MODULES C C OCT OPTIONAL CARDS TABLE - EACH ENTRY = C DMAP CARD NO. , DELETE BITS , KEEP BITS C C OBITS - BITS ARE ON FOR REQUIRED MATRICES = SUM OF NUMBERS C K=1 , M=2 , P=4 , PA=8 , B=16 , K4=32 C EXTERNAL ANDF LOGICAL RMV,RMVALL INTEGER ANDF,DBS(2,50),DMAP(18,1),FLAG,II(2),NAME(4), 1 OBITS,OCT(3,50),PTBS(7,200),VAR(3,200),VWORD,SOL, 2 ALTER,BLANK,AST,SLAS,OBALL,RFMASK(40) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /ASDBD / IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS, 1 IPH,NPH,IDAT(1) COMMON /ZZZZZZ/ SBD(2) COMMON /SYSTEM/ IDUM1,IOUT,NOGO EQUIVALENCE (NDBS,SBD(1)),(DBS(1,1),SBD(2)) DATA ALTER / 4HALTE /, BLANK / 4H / DATA AST / 4H* /, SLAS / 4H/ / DATA RFMASK/ 65536,131072,262144,0,0,0,0,524288,1048576,31*0 / DATA OBALL / 63 / C RMVALL = .TRUE. NXDEL = 0 NOLD = 0 C C DELETE CARDS USING OCT TABLE. C IF (NOCT .EQ. 0) GO TO 45 M = IOCT - 1 DO 10 J = 1,NOCT DO 10 I = 1,3 M = M + 1 OCT(I,J) = IDAT(M) 10 CONTINUE DO 40 I = 1,NOCT ICD = OCT(1,I) IF (OCT(3,I) .EQ. 0) GO TO 20 IF (ANDF(OCT(3,I),OBITS) .EQ. 0) GO TO 35 20 IF (ANDF(OCT(2,I),RFMASK(SOL)) .EQ. 0) GO TO 40 35 DMAP(1,ICD) = -1 40 CONTINUE 45 IF (NPTBS .EQ. 0) GO TO 2000 M = IPTBS - 1 DO 46 J = 1,NPTBS DO 46 I = 1,7 M = M + 1 PTBS(I,J) = IDAT(M) 46 CONTINUE DO 1000 I = 1,NPTBS ICD = PTBS(1,I) IF (DMAP(1,ICD) .EQ. -1) GO TO 1000 IF (ICD .EQ. 0) GO TO 1000 RMV = .FALSE. C C CHECK IF OPTION IS ON C KOPT = PTBS(6,I) IF (ANDF(KOPT,OBITS) .EQ. 0) RMV = .TRUE. IF (ANDF(KOPT,OBALL) .EQ. 0) RMV = .FALSE. IF (ANDF(KOPT,RFMASK(SOL)) .NE. 0) RMV = .TRUE. NCHAR = PTBS(4,I) NC = 0 FLAG = 0 VWORD = BLANK ICOL = PTBS(3,I) C C FIND VARIABLE IF REQUIRED C IF (RMV) GO TO 300 KEY = PTBS(5,I) I3 = NVAR/3 DO 60 J = 1,I3 IF (VAR(1,J) .EQ. KEY) GO TO 70 IF (KEY.EQ.J .AND. VAR(1,J).EQ.ALTER) GO TO 450 60 CONTINUE C C VARIABLE HAS NOT BEEN SET C VWORD = BLANK RMV = .TRUE. GO TO 300 C C VARIABLE IS FOUND , IT IS IN VAR(2,J) AND/OR VAR(3,J) C 70 VWORD = VAR(2,J) NAME(1) = VAR(2,J) NAME(2) = VAR(3,J) C C TEST FOR REAL OR INTEGER C IF (VWORD .EQ. 0) GO TO 300 IF (VWORD .EQ. -1) GO TO 74 IF (VWORD .EQ. -2) GO TO 3010 C C WORD IS REAL (TEMPORARY ERROR) C GO TO 75 C C WORD IS AN INTEGER C 74 NAME(1) = NAME (2) NAME(2) = 0 FLAG = 1 75 IF (PTBS(7,I) .EQ. 0) GO TO 500 NC = PTBS(3,I) - PTBS(2,I) II(1) = BLANK II(2) = BLANK IF (NC .GT. 0) GO TO 80 IF (NC .LT. 0) GO TO 3010 II(1) = NAME(1) II(2) = NAME(2) GO TO 100 C C CONSTRUCT WHOLE DATA BLOCK NAME C 80 CALL PULL (DMAP(1,ICD),II,PTBS(2,I),NC,0) CALL PUSH (NAME,II,NC+1,NCHAR,FLAG) C C CHECK OUTPUT DATA BLOCKS AGAINST PREVIOUS OUTPUTS C 100 IF (NDBS .EQ. 0) GO TO 142 C DO 140 L = 1, NDBS IF (II(1).EQ.DBS(1,L) .AND. II(2).EQ.DBS(2,L)) GO TO 150 140 CONTINUE 142 IF (PTBS(7,I) .GT. 0) GO TO 200 C C VARIABLE IS OK , ADD NAME TO LIST C NDBS = NDBS + 1 DBS(1,NDBS) = II(1) DBS(2,NDBS) = II(2) GO TO 500 150 IF (PTBS(7,I) .GT. 0) GO TO 500 C C DATA BLOCK IS OUTPUT, REMOVE IF ALLREADY DEFINED. C 200 RMV =.TRUE. C C REMOVE WHOLE NAME HERE , CHECK FOR PARAMETER C 300 II(1) = 0 NAME(1) = BLANK NAME(2) = BLANK NAME(3) = BLANK NAME(4) = BLANK FLAG = 0 CALL PULL (DMAP(1,ICD),II,PTBS(2,I),1,0) IF (II(1).EQ.SLAS .OR. II(1).EQ.AST) GO TO 500 ICOL = PTBS(2,I) NCHAR = NCHAR + PTBS(3,I) - PTBS(2,I) GO TO 500 C C CHECK IF ALTER CARD, OUTPUT AS BCD AND TWO INTEGERS C 450 DMAP(1,ICD) = ALTER DMAP(2,ICD) = VAR(2,J) DMAP(3,ICD) = VAR(3,J) RMVALL = .FALSE. NXDEL = 0 IF (VAR(2,J) .EQ. 0) RMVALL = .TRUE. GO TO 910 C C ADD VARIABLES TO BCD DMAP C 500 CALL PUSH (NAME,DMAP(1,ICD),ICOL,NCHAR,FLAG) C IF (.NOT.RMV) RMVALL = .FALSE. C C IF ALL VARIABLES ARE REMOVED FROM ONE CARD, DELETE THE CARD C NNEW = PTBS(1,I+1) IF (ICD .EQ. NNEW) GO TO 1000 C C NEXT COMMAND GOES TO NEW CARD, CHECK IF CONTINUATION C 905 CALL PULL (DMAP(1,ICD+1),II,1,4,0) C IF (II(1) .NE. BLANK) GO TO 910 C C CONTINUATION FOUND C NXDEL = NXDEL + 1 IF (NNEW .EQ. ICD+1) GO TO 1000 ICD = ICD+1 GO TO 905 C C FINISHED WITH LOGICAL CARD C 910 IF (.NOT.RMVALL) GO TO 940 DMAP(1,ICD) = -1 IF (NXDEL .LE. 0) GO TO 1000 DO 930 L = 1,NXDEL J = ICD-L DMAP(1,J) = -1 930 CONTINUE 940 RMVALL = .TRUE. C C END OF LOOP ON VARIABLE CHARACTERS C NXDEL = 0 C 1000 CONTINUE C C PROCESS CARDS TO BE DELETED FROM SEQUENCE C 2000 IKEEP = 0 DO 2500 ICD = 1,NRDM C IF (DMAP(1,ICD) .EQ. -1) GO TO 2500 C C KEEP CARD C IKEEP = IKEEP + 1 DO 2450 J = 1,18 DMAP(J,IKEEP) = DMAP(J,ICD) 2450 CONTINUE 2500 CONTINUE NRDM = IKEEP RETURN 3010 WRITE (IOUT,3020) SFM,DMAP(1,ICD) 3020 FORMAT (A25,' 6010, ILLEGAL VARIABLE TO BE SET IN DMAP STATEMENT', 1 3X,A4) C NOGO = 1 RETURN END ================================================ FILE: mis/asycon.f ================================================ SUBROUTINE ASYCON C C SUBROUTINE FOR COMPUTING CONSTANT TERM IN KAPPA MINUS C COMPLEX BSYCON,AI,C1,C1TEST,ALP,ALN,ARAT1,ARAT2 CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLK2 / BSYCON COMMON /SYSTEM/ SYSBUF,IBBOUT COMMON /BLK1 / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES C C1 = 1.0 PI2 = 2.0*PI A1 = PI2/(SPS-SNS) GAM0 = SPS*DEL - SIGMA A2 =-A1 B1 = GAM0/(SPS-SNS) S1 = SPS/(DSTR**2) S2 = SNS/DSTR C1TEST = 0.0 DO 10 I = 1,200 R = I GAMP = PI2*R + GAM0 GAMN =-PI2*R + GAM0 C2P = GAMP/DSTR - SCRK C2Q = GAMP/DSTR + SCRK C2N = GAMN/DSTR - SCRK C3Q = GAMN/DSTR + SCRK NN = 0 CSEC = C2P*C2Q IF (CSEC .LT. 0.0) NN = 1 T1 = GAMP*S1 T2 = S2*SQRT(ABS(CSEC)) IF (C2P.LT.0.0 .AND. C2Q.LT.0.0) T2 =-T2 IF (NN .EQ. 0) ALP = T1 + T2 IF (NN .EQ. 1) ALP = CMPLX(T1,T2) NN = 0 CSEC = C2N*C3Q IF (CSEC .LT. 0.0) NN = 1 T1 = GAMN*S1 T2 = S2*SQRT(ABS(CSEC)) IF (C2N.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2 IF (NN .EQ. 0) ALN = T1 + T2 IF (NN .EQ. 1) ALN = CMPLX(T1,T2) ARAT1 = (A1*R+B1)/ALP ARAT2 = (A2*R+B1)/ALN C1 = C1*ARAT1*ARAT2 IF (CABS((C1-C1TEST)/C1) .LT. 0.0001) GO TO 60 C1TEST = C1 10 CONTINUE GO TO 9999 60 CONTINUE BSYCON = C1 RETURN C 9999 WRITE (IBBOUT,1000) UFM 1000 FORMAT (A23,' - AMG MODULE - SUBROUTINE ASYCON') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/ateig.f ================================================ SUBROUTINE ATEIG(M,A,RR,RI,IANA,IA,B,RRA,RRI) C C .................................................................. C C SUBROUTINE ATEIG C C PURPOSE C COMPUTE THE EIGENVALUES OF A REAL ALMOST TRIANGULAR MATRIX C C USAGE C CALL ATEIG(M,A,RR,RI,IANA,IA) C C DESCRIPTION OF THE PARAMETERS C M ORDER OF THE MATRIX C A THE INPUT MATRIX, M BY M C RR VECTOR CONTAINING THE REAL PARTS OF THE EIGENVALUES C ON RETURN C RI VECTOR CONTAINING THE IMAGINARY PARTS OF THE EIGEN- C VALUES ON RETURN C IANA VECTOR WHOSE DIMENSION MUST BE GREATER THAN OR EQUAL C TO M, CONTAINING ON RETURN INDICATIONS ABOUT THE WAY C THE EIGENVALUES APPEARED (SEE MATH. DESCRIPTION) C IA SIZE OF THE FIRST DIMENSION ASSIGNED TO THE ARRAY A C IN THE CALLING PROGRAM WHEN THE MATRIX IS IN DOUBLE C SUBSCRIPTED DATA STORAGE MODE. C IA=M WHEN THE MATRIX IS IN SSP VECTOR STORAGE MODE. C C REMARKS C THE ORIGINAL MATRIX IS DESTROYED C THE DIMENSION OF RR AND RI MUST BE GREATER OR EQUAL TO M C C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED C NONE C C METHOD C QR DOUBLE ITERATION C C REFERENCES C J.G.F. FRANCIS - THE QR TRANSFORMATION---THE COMPUTER C JOURNAL, VOL. 4, NO. 3, OCTOBER 1961, VOL. 4, NO. 4, JANUARY C 1962. J. H. WILKINSON - THE ALGEBRAIC EIGENVALUE PROBLEM - C CLARENDON PRESS, OXFORD, 1965. C C .................................................................. C DIMENSION IANA(1) DIMENSION RRA(1),RRI(1),B(1) DOUBLE PRECISION A(1),RR(1),RI(1),PRR(2),PRI(2) DOUBLE PRECISION ALPHA,CAP,D,DELTA,EPS,ETA,E10,E6,E7,G1,G2,G3 DOUBLE PRECISION PAN,PAN1,PSI1,PSI2,R,RMOD,S,T,U,V INTEGER P,P1,Q C E7=1.0E-8 E6=1.0E-6 E10=1.0E-10 DELTA=0.5 MAXIT=30 C C INITIALIZATION C N=M 20 N1=N-1 IN=N1*IA NN=IN+N IF(N1) 30,1300,30 30 NP=N+1 C C ITERATION COUNTER C IT=0 C C ROOTS OF THE 2ND ORDER MAIN SUBMATRIX AT THE PREVIOUS C ITERATION C DO 40 I=1,2 PRR(I)=0.0 40 PRI(I)=0.0 C C LAST TWO SUBDIAGONAL ELEMENTS AT THE PREVIOUS ITERATION C PAN=0.0 PAN1=0.0 C C ORIGIN SHIFT C R=0.0 S=0.0 C C ROOTS OF THE LOWER MAIN 2 BY 2 SUBMATRIX C N2=N1-1 IN1=IN-IA NN1=IN1+N N1N=IN+N1 N1N1=IN1+N1 60 T=A(N1N1)-A(NN) U=T*T V=4.0D0*A(N1N)*A(NN1) IF (DABS(V)-U*E7) 100,100,65 65 T=U+V IF (DABS(T)-DMAX1(U,DABS(V))*E6) 67,67,68 67 T=0.0 68 U=(A(N1N1)+A(NN))/2.0D0 V=DSQRT(DABS(T))/2.0D0 IF(T)140,70,70 70 IF(U) 80,75,75 75 RR(N1)=U+V RR(N)=U-V GO TO 130 80 RR(N1)=U-V RR(N)=U+V GO TO 130 100 IF(T)120,110,110 110 RR(N1)=A(N1N1) RR(N)=A(NN) GO TO 130 120 RR(N1)=A(NN) RR(N)=A(N1N1) 130 RI(N)=0.0 RI(N1)=0.0 GO TO 160 140 RR(N1)=U RR(N)=U RI(N1)=V RI(N)=-V 160 IF(N2)1280,1280,180 C C TESTS OF CONVERGENCE C 180 N1N2=N1N1-IA RMOD=RR(N1)*RR(N1)+RI(N1)*RI(N1) EPS=E10*DSQRT(RMOD) IF(DABS(A(N1N2))-EPS)1280,1280,240 240 IF(DABS(A(NN1))-E10*DABS(A(NN))) 1300,1300,250 250 IF(DABS(PAN1-A(N1N2))-DABS(A(N1N2))*E6) 1240,1240,260 260 IF(DABS(PAN-A(NN1))-DABS(A(NN1))*E6) 1240,1240,300 300 IF(IT-MAXIT) 320,1240,1240 C C COMPUTE THE SHIFT C 320 J=1 DO 360 I=1,2 K=NP-I IF(DABS(RR(K)-PRR(I))+DABS(RI(K)-PRI(I))-DELTA*(DABS(RR(K)) * +DABS(RI(K)))) 340,360,360 340 J=J+I 360 CONTINUE GO TO (440,460,460,480),J 440 R=0.0 S=0.0 GO TO 500 460 J=N+2-J R=RR(J)*RR(J) S=RR(J)+RR(J) GO TO 500 480 R=RR(N)*RR(N1)-RI(N)*RI(N1) S=RR(N)+RR(N1) C C SAVE THE LAST TWO SUBDIAGONAL TERMS AND THE ROOTS OF THE C SUBMATRIX BEFORE ITERATION C 500 PAN=A(NN1) PAN1=A(N1N2) DO 520 I=1,2 K=NP-I PRR(I)=RR(K) 520 PRI(I)=RI(K) C C SEARCH FOR A PARTITION OF THE MATRIX, DEFINED BY P AND Q C P=N2 IPI = N1N2 DO 580 J=2,N2 IPI = IPI - IA - 1 IF(DABS(A(IPI))-EPS) 600,600,530 530 IPIP=IPI+IA IPIP2=IPIP+IA D=A(IPIP)*(A(IPIP)-S)+A(IPIP2)*A(IPIP+1)+R IF(D)540,560,540 540 IF(DABS(A(IPI)*A(IPIP+1))*(DABS(A(IPIP)+A(IPIP2+1)-S)+ * DABS(A(IPIP2+2)))-DABS(D)*EPS) 620,620,560 560 P=N1-J 580 CONTINUE 600 Q=P GO TO 680 620 P1=P-1 Q = P DO 660 I = 1,P1 IPI = IPI - IA - 1 IF(DABS(A(IPI))-EPS) 680,680,660 660 Q=Q-1 C C QR DOUBLE ITERATION C 680 II=(P-1)*IA+P DO 1220 I=P,N1 II1=II-IA IIP=II+IA IF(I-P)720,700,720 700 IPI=II+1 IPIP=IIP+1 C C INITIALIZATION OF THE TRANSFORMATION C G1=A(II)*(A(II)-S)+A(IIP)*A(IPI)+R G2=A(IPI)*(A(IPIP)+A(II)-S) G3=A(IPI)*A(IPIP+1) A(IPI+1)=0.0 GO TO 780 720 G1=A(II1) G2=A(II1+1) IF(I-N2)740,740,760 740 G3=A(II1+2) GO TO 780 760 G3=0.0 780 CAP=DSQRT(G1*G1+G2*G2+G3*G3) IF(CAP)800,860,800 800 IF(G1)820,840,840 820 CAP=-CAP 840 T=G1+CAP PSI1=G2/T PSI2=G3/T ALPHA=2.0D0/(1.0D0+PSI1*PSI1+PSI2*PSI2) GO TO 880 860 ALPHA=2.0 PSI1=0.0 PSI2=0.0 880 IF(I-Q)900,960,900 900 IF(I-P)920,940,920 920 A(II1)=-CAP GO TO 960 940 A(II1)=-A(II1) C C ROW OPERATION C 960 IJ=II DO 1040 J=I,N T=PSI1*A(IJ+1) IF(I-N1)980,1000,1000 980 IP2J=IJ+2 T=T+PSI2*A(IP2J) 1000 ETA=ALPHA*(T+A(IJ)) A(IJ)=A(IJ)-ETA A(IJ+1)=A(IJ+1)-PSI1*ETA IF(I-N1)1020,1040,1040 1020 A(IP2J)=A(IP2J)-PSI2*ETA 1040 IJ=IJ+IA C C COLUMN OPERATION C IF(I-N1)1080,1060,1060 1060 K=N GO TO 1100 1080 K=I+2 1100 IP=IIP-I DO 1180 J=Q,K JIP=IP+J JI=JIP-IA T=PSI1*A(JIP) IF(I-N1)1120,1140,1140 1120 JIP2=JIP+IA T=T+PSI2*A(JIP2) 1140 ETA=ALPHA*(T+A(JI)) A(JI)=A(JI)-ETA A(JIP)=A(JIP)-ETA*PSI1 IF(I-N1)1160,1180,1180 1160 A(JIP2)=A(JIP2)-ETA*PSI2 1180 CONTINUE IF(I-N2)1200,1220,1220 1200 JI=II+3 JIP=JI+IA JIP2=JIP+IA ETA=ALPHA*PSI2*A(JIP2) A(JI)=-ETA A(JIP)=-ETA*PSI1 A(JIP2)=A(JIP2)-ETA*PSI2 1220 II=IIP+1 IT=IT+1 GO TO 60 C C END OF ITERATION C 1240 IF(DABS(A(NN1))-DABS(A(N1N2))) 1300,1280,1280 C C TWO EIGENVALUES HAVE BEEN FOUND C 1280 IANA(N)=0 IANA(N1)=2 N=N2 IF(N2)1400,1400,20 C C ONE EIGENVALUE HAS BEEN FOUND C 1300 RR(N)=A(NN) RI(N)=0.0 IANA(N)=1 IF(N1)1400,1400,1320 1320 N=N1 GO TO 20 1400 CONTINUE K=0 DO 1410 I=1,M RRA(I)=RR(I) RRI(I)=RI(I) DO 1420 J=1,M K=K+1 B(K)=A(K) 1420 CONTINUE 1410 CONTINUE RETURN END ================================================ FILE: mis/autock.f ================================================ SUBROUTINE AUTOCK (IADD) C C THIS ROUTINE GENERATES A CHKPT OSCAR RECORD WHEN THE PRECHK C OPTION IS BEING USED, THE ADDRESS IADD IS THE STARTING C LOCATION OF THE OUTPUT FILE NAMES TO BE TESTED C EXTERNAL LSHIFT,RSHIFT INTEGER PRENAM,PREFLG,OSPRC,OSBOT,OSPNT,LIST(100),XCHK(2), 1 DMPCNT,RSHIFT,CASESS(2),CASECC(2),CASEI(2), 2 OSCAR(1),OS(5) COMMON /AUTOCM/ PREFLG,NNAMES,PRENAM(100) COMMON /ZZZZZZ/ CORE(1) COMMON /XGPI4 / JUNK(2),ISEQN,DMPCNT COMMON /AUTOHD/ IHEAD EQUIVALENCE (LOSCAR,CORE(1),OS(1)),(OSPRC,OS(2)), 1 (OSBOT,OS(3)),(OSPNT,OS(4)),(OSCAR(1),OS(5)) DATA CASESS/ 4HCASE, 4HSS / DATA CASECC/ 4HCASE, 4HCC / DATA CASEI / 4HCASE, 4HI / DATA XCHK / 4HXCHK, 4H / DATA IBLANK/ 0 / C IHEAD = 0 IOP = 0 IF (PREFLG) 200,200,5 5 PREFLG = IABS(PREFLG) NOPF = OSCAR(IADD) NWD = 3*NOPF IST = IADD + 1 IFIN = IST + NWD - 1 NLIST= 0 INCR = 3 C GO TO (1,2,3), PREFLG C C CHECK OUTPUT FILE AGAINST LIST C 1 N2 = 2*NNAMES DO 10 I = IST,IFIN,INCR DO 11 J = 1,N2,2 IF (PRENAM(J).EQ.CASESS(1) .AND.PRENAM(J+1).EQ.CASESS(2)) GO TO 11 IF (PRENAM(J).EQ.CASECC(1) .AND.PRENAM(J+1).EQ.CASECC(2)) GO TO 11 IF (PRENAM(J).EQ.CASEI( 1) .AND.PRENAM(J+1).EQ.CASEI( 2)) GO TO 11 IF (PRENAM(J).NE.OSCAR(I) .OR. PRENAM(J+1).NE.OSCAR(I+1)) GO TO 11 NLIST = NLIST + 1 LIST(2*NLIST-1) = OSCAR(I ) LIST(2*NLIST ) = OSCAR(I+1) 11 CONTINUE 10 CONTINUE IF (IOP .EQ. 1) GO TO 300 IF (NLIST .EQ. 0) RETURN GO TO 100 C C PREFLG=ALL OPTION, CHECKPOINT ALL OUTPUT DATA BLOCKS C 2 DO 20 I = IST,IFIN,INCR IF (OSCAR(I).EQ.IBLANK .AND. OSCAR(I+1).EQ.IBLANK) GO TO 20 IF (OSCAR(I).EQ.CASESS(1) .AND. OSCAR(I+1).EQ.CASESS(2)) GO TO 20 IF (OSCAR(I).EQ.CASECC(1) .AND. OSCAR(I+1).EQ.CASECC(2)) GO TO 20 IF (OSCAR(I).EQ.CASEI( 1) .AND. OSCAR(I+1).EQ.CASEI( 2)) GO TO 20 NLIST = NLIST + 1 LIST(2*NLIST-1) = OSCAR(I ) LIST(2*NLIST ) = OSCAR(I+1) 20 CONTINUE IF (IOP .EQ. 1) GO TO 300 GO TO 100 C C CHECK OUTPUT FILES EXCEPT THOSE IN LIST C 3 N2 = 2*NNAMES DO 30 I = IST,IFIN,INCR DO 31 J = 1,N2,2 IF (PRENAM(J).EQ.OSCAR(I) .AND.PRENAM(J+1).EQ.OSCAR(I+1)) GO TO 30 31 CONTINUE IF (OSCAR(I).EQ.IBLANK .AND. OSCAR(I+1).EQ.IBLANK ) GO TO 30 IF (OSCAR(I).EQ.CASESS(1) .AND. OSCAR(I+1).EQ.CASESS(2)) GO TO 30 IF (OSCAR(I).EQ.CASECC(1) .AND. OSCAR(I+1).EQ.CASECC(2)) GO TO 30 IF (OSCAR(I).EQ.CASEI( 1) .AND. OSCAR(I+1).EQ.CASEI( 2)) GO TO 30 NLIST = NLIST + 1 LIST(2*NLIST-1) = OSCAR(I ) LIST(2*NLIST ) = OSCAR(I+1) 30 CONTINUE IF (IOP .EQ. 1) GO TO 300 IF (NLIST .EQ. 0) RETURN GO TO 100 C C PURGE OR EQUIV DATA BLOCK LIST MUST BE CHECKED C 200 NWD = OSCAR(OSPNT) MI = RSHIFT(OSCAR(OSPNT+2),16) IB = OSPNT + 6 PREFLG = IABS(PREFLG) NDB = OSCAR(IB) IOP = 1 IF (MI .EQ. 9) IST = IB + 1 IF (MI .EQ. 10) IST = IB + 4 IF (MI .EQ. 9) IFIN = IST + 2*NDB - 1 IF (MI .EQ. 10) IFIN = IST + 2*NDB - 3 NWD = NWD - 6 INCR = 2 NLIST= 0 GO TO (1,2,3), PREFLG 300 NWD = NWD - 2*NDB - 2 IF (MI .EQ. 10) NWD = NWD - 1 IF (NWD.LE.0 .AND. NLIST.NE.0) GO TO 100 IF (NWD.LE.0 .AND. NLIST.EQ.0) GO TO 999 NDB = OSCAR(IFIN+2) IF (MI .EQ. 9) IST = IFIN + 3 IF (MI .EQ. 10) IST = IFIN + 6 IFIN = IST + 2*NDB - 1 IF (MI .EQ. 10) IFIN = IFIN - 2 GO TO (1,2,3), PREFLG C C UPDATE OSCAR PARAMETERS C 100 IHEAD = 1 OSPRC = OSBOT OSBOT = OSCAR(OSBOT) + OSBOT OSPNT = OSBOT ISEQN = OSCAR(OSPRC+1) + 1 C C LOAD HEADER C OSCAR(OSPNT ) = 6 OSCAR(OSPNT+1) = ISEQN OSCAR(OSPNT+2) = 4 + LSHIFT(3,16) OSCAR(OSPNT+3) = XCHK(1) OSCAR(OSPNT+4) = XCHK(2) OSCAR(OSPNT+5) = DMPCNT IF (IOP .EQ. 1) OSCAR(OSPNT+5) = OSCAR(OSPNT+5) - 1 OSCAR(OSPNT+6) = NLIST CALL XLNKHD IF (NLIST .EQ. 0) GO TO 110 C C LOAD CHKPNT INFORMATION C NLIST = 2*NLIST DO 101 I = 1,NLIST,2 OSCAR(OSPNT+6+I) = LIST(I) OSCAR(OSPNT+7+I) = LIST(I+1) 101 CONTINUE 110 OSCAR(OSPNT) = OSCAR(OSPNT) + NLIST + 1 999 IHEAD = 0 RETURN END ================================================ FILE: mis/autosv.f ================================================ SUBROUTINE AUTOSV C C THIS ROUTINE GENERATES OSCAR ENTRIES FOR PARAMTERS C THAT ARE TO BE SAVED IMPLICITLY C EXTERNAL LSHIFT,ANDF INTEGER SAVNAM,OSPRC,OSBOT,OSPNT,OSCAR(1),OS(5),XSAV(2), 1 DMPCNT,ANDF,VPS COMMON /XGPIC / JUNK(25),MASKHI,JUNK1(2),NOSGN COMMON /AUTOSM/ NWORDS,SAVNAM(100) COMMON /ZZZZZZ/ CORE(1) COMMON /XVPS / VPS(1) COMMON /XGPI4 / JUNK4(2),ISEQN,DMPCNT COMMON /AUTOHD/ IHEAD EQUIVALENCE (CORE(1),OS(1),LOSCAR), (OS(2),OSPRC), 1 (OS(3),OSBOT), (OS(4),OSPNT), (OS(5),OSCAR(1)) DATA XSAV / 4HXSAV,4HE / C C UPDATE OSCAR PARAMETERS C IHEAD = 1 OSPRC = OSBOT OSBOT = OSCAR(OSBOT) + OSBOT OSPNT = OSBOT ISEQN = OSCAR(OSPRC+1) + 1 C C LOAD HEADER C OSCAR(OSPNT ) = 6 OSCAR(OSPNT+1) = ISEQN OSCAR(OSPNT+2) = 4 + LSHIFT(8,16) OSCAR(OSPNT+3) = XSAV(1) OSCAR(OSPNT+4) = XSAV(2) OSCAR(OSPNT+5) = DMPCNT CALL XLNKHD C C HAVING THE VPS POINTERS FOR EACH PARAMETER, FIND THE C DISPLACEMENT IN COMMON C J = OSPRC + 6 + 3*OSCAR(OSPRC+6) + 1 IF (ANDF(OSCAR(OSPRC+2),MASKHI) .EQ. 1) J = J+1+3*OSCAR(J) J = J + 1 N3 = J+1 N1 = OSCAR(J) N2 = 1 OSCAR(OSPNT+6) = NWORDS OSCAR(OSPNT ) = OSCAR(OSPNT) + 1 IPT = 1 IST = N3 140 IF (OSCAR(IST) .GT. 0) GO TO 110 C C SEEE IF PARAMETER IS IN SAVE LIST C C LL = ANDF(OSCAR(IST),NOSGN ) REPLACED BY NEXT CARD, OCT. 1983 LL = ANDF(OSCAR(IST),MASKHI) L = ANDF(VPS(LL-1) ,MASKHI) DO 100 I = 1,NWORDS IF (ANDF(OSCAR(IST),NOSGN) .EQ. SAVNAM(I)) GO TO 120 100 CONTINUE C C NOT TO BE SAVED, GO TO NEXT PARAMETER C IST = IST + 1 N2 = N2 + L GO TO 140 C C CONSTANT PARAMETER, SKIP IT C 110 NWD = OSCAR(IST) IST = IST+NWD+1 N2 = N2 + NWD GO TO 140 C C PARAMETER TO BE SAVED, PUT IN OSCAR C 120 OSCAR(OSPNT+6+2*I-1) = SAVNAM(IPT) OSCAR(OSPNT+6+2*I ) = N2 OSCAR(OSPNT) = OSCAR(OSPNT) + 2 IPT = IPT + 1 IST = IST + 1 N2 = N2 + L IF (IPT .LE. NWORDS) GO TO 140 IHEAD = 0 RETURN END ================================================ FILE: mis/axis.f ================================================ SUBROUTINE AXIS (XA,YA,XB,YB,PENX,OPT) C C (XA,YA) = STARTING POINT OF THE AXIS. C (XB,YB) = TERMINAL POINT OF THE AXIS. C PENX = PEN NUMBER OR LINE DENSITY (DEPENDS ON PLOTTER). C OPT = -1 TO INITIATE THE LINE MODE. C = +1 TO TERMINATE THE LINE MODE. C = 0 TO DRAW A LINE. C INTEGER PEN,PENX,OPT,PLOTER COMMON /PLTDAT/ MODEL,PLOTER,SKPPLT(18),SKPA(6),NPENS C IF (OPT .NE. 0) GO TO 110 PEN = MAX0(PENX,1) PEN = PEN - NPENS*((PEN-1)/NPENS) C 110 CALL AXIS10 (XA,YA,XB,YB,PEN,OPT) RETURN END ================================================ FILE: mis/axis10.f ================================================ SUBROUTINE AXIS10 (X1,Y1,X2,Y2,PENDEN,OPT) C C (X1,Y1) = STARTING POINT OF THE AXIS. C (X2,Y2) = TERMINAL POINT OF THE AXIS. C PENDEN = PEN NUMBER OR LINE DENSITY. C OPT = -1 TO INITIATE THE AXIS MODE. C ... = +1 TO TERMINATE THE AXIS MODE. C ... = 0 TO DRAW AN AXIS. C INTEGER PENDEN,OPT,OPTX,A(6),AXIS REAL XY(2,2) COMMON /PLTDAT/ SKPPLT(2),XYMIN(2),XYMAX(2) DATA OPTX / -1 / DATA AXIS / 6 / C IF (OPTX .GE. 0) OPTX = OPT IF (OPT) 200,100,150 100 XY(1,1) = X1 XY(2,1) = Y1 XY(1,2) = X2 XY(2,2) = Y2 DO 101 J = 1,2 DO 101 I = 1,2 IF (XY(I,J) .LT. XYMIN(I)) XY(I,J) = XYMIN(I) IF (XY(I,J) .GT. XYMAX(I)) XY(I,J) = XYMAX(I) 101 CONTINUE C C DRAW THE AXIS. C A(1) = AXIS A(2) = PENDEN DO 110 J = 1,2 A(2*J+1) = XY(1,J) + .1 A(2*J+2) = XY(2,J) + .1 110 CONTINUE IF (OPTX .EQ. 0) GO TO 120 C C INITIATE THE AXIS MODE. C A(1) = A(1) + 10 OPTX = 0 C C DRAW THE LINE. C 120 CALL WPLT10 (A,0) GO TO 200 C C C TERMINATE THE LINE MODE. C 150 CALL WPLT10 (A,1) OPTX = -1 C 200 RETURN END ================================================ FILE: mis/axloop.f ================================================ SUBROUTINE AXLOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) C INTEGER OTPE DIMENSION BUF(50),IBUF(50) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ SYSBUF,OTPE COMMON /BLANK / IDUM(3),EPSE C PI = 3.1415926536 PIBY2 = 1.5707963268 FPI = 12.56637062 C = 1. C XJ = BUF(1) IAXI= IBUF(2) X1 = BUF(3) Y1 = BUF(4) Z1 = BUF(5) X2 = BUF(6) Y2 = BUF(7) Z2 = BUF(8) XC = BUF(9) YC = BUF(10) ZC = BUF(11) C C FOR NOW, ICID = 0 C ICID = IBUF(12) C C CHECK FOR AXISYMMETRIC PROBLEM C IF (IAXI .NE. 1) GO TO 10 XC = 0. YC = 0. ZC = Z1 X2 = 0. Y2 = X1 Z2 = Z1 10 CONTINUE C C DETERMINE THE DIRECTION OF THE CURRENT LOOP AXIS C CX = X1 - XC CY = Y1 - YC CZ = Z1 - ZC BX = X2 - XC BY = Y2 - YC BZ = Z2 - ZC C C THE VECTOR AN IS NORMAL TO THE PLANE OF THE LOOP C ANX = CY*BZ - CZ*BY ANY = CZ*BX - CX*BZ ANZ = CX*BY - CY*BX AT1 = SQRT(ANX*ANX + ANY*ANY + ANZ*ANZ) AT2 = BX*BX + BY*BY + BZ*BZ RAD2 = CX*CX + CY*CY + CZ*CZ RADIUS = SQRT(RAD2) XIACPI = (XJ*RAD2*PI)/C C ANX = ANX/AT1 ANY = ANY/AT1 ANZ = ANZ/AT1 C C THE VECTOR R IS FROM THE CENTER OF LOOP TO THE FIELD POINT C RX = XX - XC RY = YY - YC RZ = ZZ - ZC C R2 = RX*RX + RY*RY + RZ*RZ R = SQRT(R2) C C AT (OR NEAR) CENTER OF LOOP TEST C IF (R .GE. .001) GO TO 218 COSTHE = 1. SINTHE = 0. SQAR2S = SQRT(RAD2+R2) RX = ANX RY = ANY RZ = ANZ RPX = 0. RPY = 0. RPZ = 0. GO TO 220 218 CONTINUE C RX = RX/R RY = RY/R RZ = RZ/R COSTHE = ANX*RX + ANY*RY + ANZ*RZ SINTHE = SQRT(1. - COSTHE*COSTHE) C C ON (OR VERY NEAR) AXIS OF LOOP TEST C IF (SINTHE .GE. .000001) GO TO 219 COSTHE = 1. SINTHE = 0. SQAR2S = SQRT(RAD2+R2) RX = ANX RY = ANY RZ = ANZ RPX = 0. RPY = 0. RPZ = 0. GO TO 220 219 CONTINUE C SQAR2S = SQRT(RAD2 + R2 + (2.*RADIUS*R*SINTHE)) REALK2 = (4.*RADIUS*R*SINTHE)/(RAD2+R2+(2.*RADIUS*R*SINTHE)) REALK = SQRT(REALK2) XIACR = (XJ*RADIUS)/(C*R) C C A CROSS R, NORMAL TO THE PLANE OF A AND R C TX = ANY*RZ - ANZ*RY TY = ANZ*RX - ANX*RZ TZ = ANX*RY - ANY*RX C C (A CROSS R) CROSS R, NORMAL TO THE PLANE OF R AND (A AND R) C TRPX = TY*RZ - TZ*RY TRPY = TZ*RX - TX*RZ TRPZ = TX*RY - TY*RX AT3 = SQRT(TRPX*TRPX + TRPY*TRPY + TRPZ*TRPZ) C C RPERP, PERPENDICULAR TO THE VECTOR FROM THE CENTER TO THE FIELD PT C RPX = TRPX/AT3 RPY = TRPY/AT3 RPZ = TRPZ/AT3 C C FOR SMALL POLAR ANGLE OR SMALL RADIUS USE ALTERNATIVE APPROX. C IF (REALK2 .LT. .0001) GO TO 220 C C COMPUTE ELLIPTIC INTEGRAL OF FIRST KIND C F = 1. DELTF1 = 1. DO 240 N = 1,15000 XN2 = 2.*FLOAT(N) XN21 = XN2 - 1. DELTF1 = DELTF1*(XN21/XN2)*REALK DELTF2 = DELTF1*DELTF1 F = F + DELTF2 IF (ABS(DELTF2/F) .LE. EPSE) GO TO 250 240 CONTINUE DELF = ABS(DELTF2/F) WRITE (OTPE,245) UWM,XX,YY,ZZ,XC,YC,ZC,X1,Y1,Z1,X2,Y2,Z2,DELF,EPSE 245 FORMAT (A25,', CONVERGENCE OF ELLIPTIC INTEGRAL IS UNCERTAIN. ', 1 'GRID OR INTEGRATION POINT AT COORDINATES', /5X, 2 1P,3E15.6,' IS TOO CLOSE TO CURRENT LOOP WITH CENTER AT', 3 /5X,1P,3E15.6,' AND 2 POINTS AT ',1P,3E15.6, /5X,4HAND ,1P, 4 3E15.6,' COMPUTATIONS WILL CONTINUE WITH LAST VALUES', /5X, 5 'CONVERGENCE VALUE WAS ',1P,E15.6, 6 ' CONVERGENCE CRITERION IS ',1P,E15.6) 250 F = PIBY2*F C C COMPUTE ELLIPTIC INTEGRAL OF SECOND KIND C E = 1. DELTE1 = 1. DO 260 N = 1,15000 XN2 = 2.*FLOAT(N) XN21 = XN2-1. DELTE1 = DELTE1*(XN21/XN2)*REALK DELTE2 = (DELTE1*DELTE1)/XN21 E = E - DELTE2 IF (ABS(DELTE2/E) .LE. .000001) GO TO 270 260 CONTINUE DELE = ABS(DELTE2/E) WRITE (OTPE,245) UWM,XX,YY,ZZ,XC,YC,ZC,X1,Y1,Z1,X2,Y2,Z2,DELE 270 E = PIBY2*E C C COMPUTE THE RADIAL COMPONENT OF THE MAGNETIC FIELD C BR = XIACR*(COSTHE/SINTHE)*(E/SQAR2S)*(REALK2/(1.-REALK2)) C C COMPUTE THE POLAR COMPONENT OF THE MAGNETIC FIELD C BTHE = XIACR*(1./(SQAR2S*RADIUS*R*SINTHE))* 1 (((((2.*R2)-((R2+(RADIUS*R*SINTHE))*REALK2))/ 2 (1.-REALK2))*E)-(2.*R2*F)) C C GO TO THE RESOLUTION OF FIELD COMPONENTS C GO TO 230 C C ALTERNATIVE APPROXIMATION FOR SMALL K**2 C C COMPUTE THE RADIAL COMPONENT OF THE MAGNETIC FIELD C 220 CONTINUE BR = XIACPI*COSTHE*(((2.*RAD2)+(2.*R2)+(RADIUS*R*SINTHE))/ 1 ((SQAR2S)**5)) C C COMPUTE THE POLAR COMPONENT OF THE MAGNETIC FIELD C BTHE = -XIACPI*SINTHE* 1 (((2.*RAD2)-R2+(RADIUS*R*SINTHE))/((SQAR2S)**5)) C C RESOLVE MAGNETIC FIELD COMPONENTS INTO RECTANGULAR COMPONENTS C 230 CONTINUE HCX = RX*BR + RPX*BTHE HCY = RY*BR + RPY*BTHE HCZ = RZ*BR + RPZ*BTHE HC1 = HCX/FPI HC2 = HCY/FPI HC3 = HCZ/FPI RETURN END ================================================ FILE: mis/bandit.f ================================================ SUBROUTINE BANDIT C C BANDIT - A COMPUTER PROGRAM TO RE-SEQUENCE MATRIX BY BANDWIDTH, C PROFILE, AND WAVEFRONT METHODS FOR NASTRAN. C C THIS PROGRAM GENERATES THE RE-SEQUENCE CARDS, SEQGP (AFTER GEOM1, C GEOM2, AND GEOM4 DATA BLOCKS ARE ASSEMBLED), AND ADD THESE CARDS C TO THE END OF GEOM1 FILE. C C HOWEVER, IF THE ORIGINAL NASTRAN INPUT DECK CONTAINS ONE OR MORE C SEQGP CARD, BANDIT WILL BE AUTOMATICALLY SKIPPED. C C ****************************************************************** C C ACKNOWLEDGEMENT: C C THE ORIGINAL BANDIT PROGRAM (VERSION 9, DEC. 1978, DISTRIBUTED BY C COSMIC NO. DOD-0034) WAS WRITTEN BY G. C. EVERTINE OF NAVAL SHIP C RESEARCH AND DEVELOPMENT CENTER (NSRDC), BETHESDA, MD. C C THE FOLLOWING SUBROUTINES WERE WRITTEN BY E. CUTHILL AND J. MCKEE C OF NSRDC C - CTHMCK,DEGREE,DIAM,IDIST,KOMPNT,MAXDGR,MINDEG,RELABL C C THE FOLLOWING SUBROUTINES WERE WRITTEN BY N. GIBBS, W. POOLE, C P. STOCKMEYER, AND H. CRANE OF THE COLLEGE OF WILLIAM AND MARY C - DGREE,FNDIAM,GIBSTK,NUMBER,PIKLVL,RSETUP,SORTDG,SORT2,TREE. C (THESE ROUTINES AND CTHMCK WERE MODIFIED BY G. C. EVERSTINE.) C C ****************************************************************** C C ONLY HALF OF THE ORIGINAL BANDIT PROGRAM WAS ADOPTED IN THIS C NASTRAN VERSION BY G. C. CHAN OF SPERRY, HUNTSVILLE, AL., 1982 C C THE ORIGINAL BANDIT ROUTINES WERE UPDATED TO MEET NASTRAN C PROGRAMMING STYLE AND STANDARD. C NASTRAN GINO FILES AND GINO I/O ARE USED INSTEAD OF FORTRAN FILES C AND FORTRAN READ/WRITE C THE INTEGER PACK AND UNPACK ROUTINES, BPACK AND BUNPK, WERE RE- C WRITTEN TO ALLOW COMMON USAGE FOR IBM, CDC, UNIVAC AND VAX MACH. C C ROUTINES BANDIT, SCHEME, BREAD, BGRID, BSEQGP, AND TIGER WERE C COMPLETELY RE-WRITTEN. C (SCHEME WAS FORMALLY CALLED NASNUM, AND CTHMCK WAS SCHEME) C C ****************************************************************** C C THIS NASTRAN VERSION DOES NOT USE $-OPTION CARDS AS IN THE CASE OF C ORIGINAL BANDIT PROGRAM. C C THE FOLLOWING 'OPTIONS' ARE PRE-SELECTED - C C $ADD (NOT USE) $INSERT (NOT USE) C $APPEND (NOT USE) $METHOD (GPS ) C $CONFIG (NOT USE) $MPC (NO ) C $CRITERION (RMS ) $NASTRAN (NOT USE) C $DEGREE (NOT USE) $PLUS (NOT USE) C $DIMENSION (NOT USE) $PRINT (MIN ) C $ELEMENTS (NOT USE) $PUNCH (NONE ) C $FRONTAL (NOT USE) $SEQUENCE (YES ) C $GRID (NOT USE) $SPRING (NO ) C $HICORE (NOT USE) $TABLE (NO ) C $IGNORE (NOT USE) $START (NOT USE) C C ****************************************************************** C INTEGER HICORE, GEOM1, GEOM2, GEOM4, SCR1, 1 Z, SUB(3), END, 2 RD, RDREW, WRT, WRTREW, REW C COMMON /MACHIN/ MACHIN COMMON /BANDA / IBUF1, NOMPC, NODEP, NOPCH, NORUN, 1 METHOD, ICRIT, NGPTS(2) COMMON /BANDB / NBITIN, KORE, IFL, NGRID, IPASS, 1 NW, KDIM, NBPW, IREPT COMMON /BANDD / KORIG, KNEW, IOP, INP, NCM, 1 NZERO, NEL, NEQ, NEQR COMMON /BANDG / DUM3G(3) COMMON /BANDS / NN, MM, IH, IB, MAXGRD, 1 MAXDEG, KMOD, MACH, MINDEG, NEDGE, 2 MASK COMMON /BANDW / DUM4W(4), I77, DUM2W(2) COMMON /SYSTEM/ IBUF, NOUT, NOGO, IS(97) COMMON /GEOMX / GEOM1, GEOM2, GEOM4, SCR1 COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW COMMON /ZZZZZZ/ Z(1) C EQUIVALENCE (HICORE,IS(28)) DATA SUB / 4HBAND, 4HIT , 4HBEGN / DATA END, IQUIT / 4HEND , 4HQUIT / C C INITIALIZE PROGRAM PARAMETERS C C NOMPC = 0, MPC'S AND RIGID ELEM. ARE NOT USED IN BANDIT COMPUTATI C = +1, ONLY RIGID ELEMENTS ARE USED IN BANDIT RESEQUENCING C = +2, BOTH MPC'S AND RIGID ELEM. ARE USED IN BANDIT C = +3, ONLY MPC'S, NOT RIGID ELEM. ARE USED IN BANDIT C NODEP = +1, MPC DEPENDENT PTS. ARE TO BE REMOVED FROM COMPUTATION C = -1, MPC DEPENDENT PTS. ARE NOT TO BE REMOVED. C (NOTE - NODEP DICTATES ALSO THE DEPENDENT GRIDS OF C THE RIGID ELEMENTS) C NOPCH = +1, PUNCH OUT SEQGP CARDS C = -1, NO SEQGP CARDS PUNCHED C NORUN = +1, BANDIT WILL RUN EVEN SEQGP CARDS ARE PRESENT C = -1, BANDIT IS SKIPPED IF ONE OR MORE SEQGP CARD IS C PRESENT IN THE INPUT DECK C METHOD= -1, CM METHOD ONLY C = 0, BOTHE CM AND GPS METHODS ARE USED C = +1, USE GPS METHOD ONLY C ICRIT = RE-SEQUENCING CRITERION C = 1, RMS WAVEFRONT C = 2, BANDWIDTH C = 3, PROFILE C = 4, MAX WAVEFRONT C NZERO = 0 I77 = 77 NOMPC = 0 NODEP =-1 NOPCH =-1 NORUN =-1 METHOD=+1 KDIM = 1 ICRIT = 1 IREPT = 0 C C THE ABOVE DEFAULT VALUES CAN BE RESET BY THE NASTRAN CARD. C (SEE SUBROUTINE NASCAR BANDIT FLAG FOR MORE DETAILS) C ****************************************************************** C CALL CONMSG (SUB,3,0) NBPW = IS(37) MACH = MACHIN KORE = KORSZ(Z(1)) IBUF1= KORE - IBUF - 2 KORE = IBUF1 - 1 C C CALL BGRID TO GET THE NO. OF GRID POINTS IN THE PROBLEM, SET C THE INTEGER PACKING CONSTANT, NW, AND COMPUTE MAXGRD AND MAXDEG. C BANDIT QUITS IF PROBLEM IS TOO SMALL TO BE WORTHWHILE. C 5 IREPT = IREPT + 1 CALL BGRID IF (NGRID .LT. 15) GO TO 30 KDIM4 = KDIM*4 II3 = 2*MAXGRD C C PARTITION OPEN CORE FOR SCHEME COMPUTATION. C K2 = 1 + KDIM4 K3 = K2 + 2*II3 + 2 IF (METHOD.LE.0 .AND. MAXDEG.GT.MAXGRD) K3 = K3 + MAXDEG - MAXGRD K4 = K3 + MAXGRD + 1 K5 = K4 + MAXGRD K6 = K5 + MAXGRD + 1 K7 = K6 + MAXGRD K8 = K7 + MAXDEG K1 = K8 + MAXDEG + NW K9 = K1 + MAXGRD*MAXDEG/NW IF (K9 .GT. KORE) CALL MESAGE (-8,K9-KORE,SUB) C C READ BULK DATA, SET UP CONNECTION TABLE, AND RESEQUENCE NODES. C CALL SCHEME(Z(K1),Z(K2),II3,Z(K3),Z(K4),Z(K5),Z(K6),Z(K7),Z(K8),Z) IF (NGRID .EQ. -1) CALL SPTCHK IF (IREPT .EQ. 2) GO TO 5 IF (NGRID) 20,30,10 C C JOB DONE. C 10 SUB(3) = END GO TO 40 C C NO BANDIT RUN. C 20 NOGO = 1 30 SUB(3) = IQUIT 40 CALL CONMSG (SUB,3,0) RETURN END ================================================ FILE: mis/bar.f ================================================ SUBROUTINE BAR (Z,IDEFM,NOGPTT,NOEDT) C C THIS IS THE ELEMENT TEMPERATURE AND DEFORMATION LOADING ROUTINE C FOR THE BAR ELEMENT. C C THIS ROUTINE IS VERY MUCH SIMILIAR TO THAT OF SUBROUTINES KBAR AND C SBAR1 THUS ANY ALTERS HERE MAY BE REQUIRED IN THESE OTHER TWO C ROUTINES ALSO. C C ECPT FOR THE BAR C C ECPT( 1) - IELID ELEMENT ID. NUMBER C ECPT( 2) - ISILNO(2) * SCALAR INDEX NOS. OF THE GRID POINTS C ECPT( 3) - ... * C ECPT( 4) - SMALLV(3) $ REFERENCE VECTOR C ECPT( 5) - ... $ C ECPT( 6) - ... $ C ECPT( 7) - ICSSV COOR. SYS. ID FOR SMALLV VECTOR C ECPT( 8) - IPINFL(2) * PIN FLAGS C ECPT( 9) - ... * C ECPT(10) - ZA(3) $ OFFSET VECTOR FOR POINT A C ECPT(11) - ... $ C ECPT(12) - ... $ C ECPT(13) - ZB(3) * OFFSET VECTOR FOR POINT B C ECPT(14) - ... * C ECPT(15) - ... * C ECPT(16) - IMATID MATERIAL ID. C ECPT(17) - A CROSS-SECTIONAL AREA C ECPT(18) - I1 $ AREA MOMENTS OF INERTIA C ECPT(19) - I2 $ C ECPT(20) - FJ TORSIONAL CONSTANT C ECPT(21) - NSM NON-STRUCTURAL MASS C ECPT(22) - FE FORCE ELEM DESCRIPTIONS (FORCE METHOD) C ECPT(23) - C1 * STRESS RECOVERY COEFFICIENTS C ECPT(24) - C2 * C ECPT(25) - D1 * C ECPT(26) - D2 * C ECPT(27) - F1 * C ECPT(28) - F2 * C ECPT(29) - G1 * C ECPT(30) - G2 * C ECPT(31) - K1 $ AREA FACTORS FOR SHEAR C ECPT(32) - K2 $ C ECPT(33) - I12 AREA MOMENT OF INERTIA C ECPT(34) - MCSIDA COOR. SYS. ID. FOR GRID POINT A C ECPT(35) - GPA(3) * BASIC COORDINATES FOR GRID POINT A C ECPT(36) - ... * C ECPT(37) - ... * C ECPT(38) - MCSIDB COOR. SYS. ID. FOR GRID POINT B C ECPT(39) - GPB(3) $ BASIC COORDINATES FOR GRID POINT B C ECPT(40) - ... $ C ECPT(41) - ... $ C ECPT(42) - ELTEMP AVG. ELEMENT TEMPERATURE C LOGICAL ABASIC ,BBASIC ,BASIC ,AOFSET ,BOFSET , 1 OFFSET REAL L ,LSQ ,LCUBE ,I1 ,I2 , 1 K1 ,K2 ,KE ,KEP ,I12 , 2 NSM ,LR1 ,LR2 ,LB ,L2B3 , 3 L2B6 ,UA(6) DIMENSION VECI(3) ,VECJ(3) ,VECK(3) ,Z(1) ,TA(18) , 1 TB(9) ,ECPT(100),IECPT(38),IPIN(10) , 2 SMALV0(6) C C SDR2 PHASE I INPUT AND OUTPUT COMMON BLOCK C COMMON /TRIMEX/ IELID ,ISILNO(2),SMALLV(3),ICSSV ,IPINFL(2), 1 ZA(3) ,ZB(3) ,IMATID ,A ,I1 , 2 I2 ,FJ ,NSM ,FE ,C1 , 3 C2 ,D1 ,D2 ,F1 ,F2 , 4 G1 ,G2 ,K1 ,K2 ,I12 , 5 MCSIDA ,GPA(3) ,MCSIDB ,GPB(3) ,TEMPEL C COMMON /SSGWRK/ KE(144) ,KEP(144) ,DELA(6) ,DELB(6) C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN / MATIDC ,MATFLG ,ELTEMP ,STRESS ,SINTH , 1 COSTH COMMON /MATOUT/ E ,G ,NU ,RHO ,ALPHA , 1 T SUB 0 ,G SUB E ,SIGT ,SIGC ,SIGS EQUIVALENCE (IELID,ECPT(1),IECPT(1)) ,(TA(10),TB(1)) C C C SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS. C ICSIDA AND ICSIDB ARE COOR. SYS. IDS. C JCSIDA = 34 JCSIDB = 38 JOFSTA = 10 JOFSTB = 13 JPINA = 8 JPINB = 9 ICSIDA = IECPT(34) ICSIDB = IECPT(38) C C NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL C AXIS PLANE (FMMS - 36 P. 4) C FL = 0.0 DO 50 I = 1,3 50 FL = FL + SMALLV(I)**2 FL = SQRT(FL) DO 60 I = 1,3 60 SMALLV(I) = SMALLV(I)/FL C C DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT. C ABASIC = .TRUE. BBASIC = .TRUE. IF (ICSIDA .NE. 0) ABASIC = .FALSE. IF (ICSIDB .NE. 0) BBASIC = .FALSE. C C COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY C IF (.NOT.ABASIC) CALL GBTRAN (ECPT(JCSIDA),ECPT(JCSIDA+1),TA) IF (.NOT.BBASIC) CALL GBTRAN (ECPT(JCSIDB),ECPT(JCSIDB+1),TB) C C DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS. C AOFSET = .TRUE. J = JOFSTA - 1 DO 70 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 80 70 CONTINUE AOFSET = .FALSE. 80 BOFSET = .TRUE. J = JOFSTB - 1 DO 90 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 100 90 CONTINUE BOFSET = .FALSE. C C FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS. C 100 VECI(1) = ECPT(JCSIDA+1) - ECPT(JCSIDB+1) VECI(2) = ECPT(JCSIDA+2) - ECPT(JCSIDB+2) VECI(3) = ECPT(JCSIDA+3) - ECPT(JCSIDB+3) C C TRANSFORM THE OFFSET VECTORS IF NECESSARY C IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150 C C TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY. C IDELA = 1 J = JOFSTA - 1 DO 110 I = 1,3 J = J + 1 110 DELA(I) = ECPT(J) IF (ABASIC) GO TO 120 IDELA = 4 CALL GMMATS (TA,3,3,0, DELA(1),3,1,0, DELA(4)) C C TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY C 120 IDELB = 1 J = JOFSTB - 1 DO 130 I = 1,3 J = J + 1 130 DELB(I) = ECPT(J) IF (BBASIC) GO TO 140 IDELB = 4 CALL GMMATS (TB,3,3,0, DELB(1),3,1,0, DELB(4)) C C SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI C 140 VECI(1) = VECI(1) + DELA(IDELA ) - DELB(IDELB ) VECI(2) = VECI(2) + DELA(IDELA+1) - DELB(IDELB+1) VECI(3) = VECI(3) + DELA(IDELA+2) - DELB(IDELB+2) C C COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE C 150 VECI(1) = -VECI(1) VECI(2) = -VECI(2) VECI(3) = -VECI(3) FL = SQRT (VECI(1)**2 + VECI(2)**2 + VECI(3)**2) DO 160 I = 1,3 160 VECI(I) = VECI(I)/FL C C COMPUTE THE SMALL V SUB 0 VECTOR, SMALV0. ***CHECK THIS LOGIC*** C DO 165 I = 1,3 165 SMALV0(I) = SMALLV(I) ISV = 1 IF (ICSSV .EQ. 0) GO TO 180 ISV = 4 CALL GMMATS (TA,3,3,0, SMALV0(1),3,1,0, SMALV0(4)) C C COMPUTE THE K VECTOR, VECK = VECI X SMALV0, AND NORMALIZE C 180 VECK(1) = VECI(2)*SMALV0(ISV+2) - VECI(3)*SMALV0(ISV+1) VECK(2) = VECI(3)*SMALV0(ISV ) - VECI(1)*SMALV0(ISV+2) VECK(3) = VECI(1)*SMALV0(ISV+1) - VECI(2)*SMALV0(ISV) FLL = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) VECK(1) = VECK(1)/FLL VECK(2) = VECK(2)/FLL VECK(3) = VECK(3)/FLL C C COMPUTE THE J VECTOR, VECJ = VECK X VECI, AND NORMALIZE C VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2) VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3) VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1) FLL = SQRT(VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2) VECJ(1) = VECJ(1)/FLL VECJ(2) = VECJ(2)/FLL VECJ(3) = VECJ(3)/FLL C C CALL MAT TO GET MATERIAL PROPERTIES. C MATIDC = IMATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) C C SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX C CALCULATION C L = FL LSQ = L**2 LCUBE= LSQ*L EI1 = E*I1 EI2 = E*I2 IF (K1.EQ.0.0 .OR. I12 .NE.0.0) GO TO 210 GAK1 = G*A*K1 R1 = (12.0*EI1*GAK1)/(GAK1*LCUBE + 12.0*L*EI1) GO TO 220 210 R1 = 12.0*EI1/LCUBE 220 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 230 GAK2 = G*A*K2 R2 = (12.0*EI2*GAK2)/(GAK2*LCUBE + 12.0*L*EI2) GO TO 240 230 R2 = 12.0*EI2/LCUBE C C COMPUTE THE -SMALL- K-S, SK1, SK2, SK3, AND SK4 C 240 SK1 = 0.25*R1*LSQ + EI1/L SK2 = 0.25*R2*LSQ + EI2/L SK3 = 0.25*R1*LSQ - EI1/L SK4 = 0.25*R2*LSQ - EI2/L C C COMPUTE THE TERMS THAT WILL BE NEEDED FOR THE 12 X 12 MATRIX KE C AEL = A*E /L LR1 = L*R1/2.0 LR2 = L*R2/2.0 GJL = G*FJ/L C C CONSTRUCT THE 12 X 12 MATRIX KE C DO 250 I = 1,144 250 KE(I) = 0.0 KE( 1) = AEL KE( 7) = -AEL KE( 14) = R1 KE( 18) = LR1 KE( 20) = -R1 KE( 24) = LR1 KE( 27) = R2 KE( 29) = -LR2 KE( 33) = -R2 KE( 35) = -LR2 KE( 40) = GJL KE( 46) = -GJL KE( 51) = -LR2 KE( 53) = SK2 KE( 57) = LR2 KE( 59) = SK4 KE( 62) = LR1 KE( 66) = SK1 KE( 68) = -LR1 KE( 72) = SK3 KE( 73) = -AEL KE( 79) = AEL KE( 86) = -R1 KE( 90) = -LR1 KE( 92) = R1 KE( 96) = -LR1 KE( 99) = -R2 KE(101) = LR2 KE(105) = R2 KE(107) = LR2 KE(112) = -GJL KE(118) = GJL KE(123) = -LR2 KE(125) = SK4 KE(129) = LR2 KE(131) = SK2 KE(134) = LR1 KE(138) = SK3 KE(140) = -LR1 KE(144) = SK1 IF (I12 .EQ. 0.0) GO TO 255 BETA = 12.0*E*I12/LCUBE LB = L *BETA/2.0 L2B3 = LSQ*BETA/3.0 L2B6 = LSQ*BETA/6.0 KE( 15) = BETA KE( 17) = -LB KE( 21) = -BETA KE( 23) = -LB KE( 26) = BETA KE( 30) = LB KE( 32) = -BETA KE( 36) = LB KE( 50) = -LB KE( 54) = -L2B3 KE( 56) = LB KE( 60) = -L2B6 KE( 63) = LB KE( 65) = -L2B3 KE( 69) = -LB KE( 71) = -L2B6 KE( 87) = -BETA KE( 89) = LB KE( 93) = BETA KE( 95) = LB KE( 98) = -BETA KE(102) = -LB KE(104) = BETA KE(108) = -LB KE(122) = -LB KE(126) = -L2B6 KE(128) = LB KE(132) = -L2B3 KE(135) = LB KE(137) = -L2B6 KE(141) = -LB KE(143) = -L2B3 C C DETERMINE IF THERE ARE NON-ZERO PIN FLAGS. C 255 KA = IECPT(JPINA) KB = IECPT(JPINB) IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 325 C C SET UP THE IPIN ARRAY C DO 260 I = 1,5 IPIN(I ) = MOD(KA,10) IPIN(I+5) = MOD(KB,10) + 6 IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0 KA = KA/10 260 KB = KB/10 C C ALTER KE MATRIX DUE TO PIN FLAGS. C DO 320 I = 1,10 IF (IPIN(I) .EQ. 0) GO TO 320 II = 13*IPIN(I) - 12 IF (KE(II) .NE. 0.0) GO TO 280 IL = IPIN(I) II = II - IL DO 270 J = 1,12 II = II + 1 KE(II) = 0.0 KE(IL) = 0.0 IL = IL + 12 270 CONTINUE GO TO 320 280 DO 300 J = 1,12 JI = 12*(J-1) + IPIN(I) IJ = 12*(IPIN(I) - 1) + J DO 290 LL = 1,12 JLL = 12*(J-1) + LL ILL = 12*(IPIN(I) - 1) + LL KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI) 290 CONTINUE KEP(IJ) = 0.0 KEP(JI) = 0.0 300 CONTINUE DO 310 K = 1,144 310 KE(K) = KEP(K) 320 CONTINUE C C E C STORE K IN KEP(1),...,KEP(36) AND C AA C C E C STORE K IN KEP(37),...,KEP(72) C AB C 325 J = 0 DO 340 I = 1,72,12 LOW = I LIM = LOW + 5 DO 330 K = LOW,LIM J = J + 1 KEP(J) = KE(K) 330 KEP(J+36) = KE(K+6) 340 CONTINUE C T C STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A MATRIX. C KE(1) = VECI(1) KE(2) = VECI(2) KE(3) = VECI(3) KE(4) = VECJ(1) KE(5) = VECJ(2) KE(6) = VECJ(3) KE(7) = VECK(1) KE(8) = VECK(2) KE(9) = VECK(3) C C SET POINTERS SO THAT WE WILL BE WORKING WITH POINT A. C BASIC = ABASIC JCSID = JCSIDA OFFSET= AOFSET JOFSET= JOFSTA IWBEG = 0 IKEL = 1 ISASB = 73 INDEX = ISILNO(1) C C ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX AND THE W AND W 6 X 6 C MATRICES WILL RESIDE. A B C DO 350 I = 28,108 350 KE(I) = 0.0 C C SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX C G = AT X TI C 360 IG = 1 IF (BASIC) GO TO 370 CALL GBTRAN (ECPT(JCSID),ECPT(JCSID+1),KE(10)) CALL GMMATS (KE(1),3,3,0,KE(10),3,3,0, KE(19)) IG = 19 C C IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3 X 3 C MATRIX. C 370 IF (.NOT. OFFSET) GO TO 380 KE(10) = 0.0 KE(11) = ECPT(JOFSET+2) KE(12) = -ECPT(JOFSET+1) KE(13) = -KE(11) KE(14) = 0.0 KE(15) = ECPT(JOFSET) KE(16) = -KE(12) KE(17) = -KE(15) KE(18) = 0.0 C C FORM THE 3 X 3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10) C CALL GMMATS (KE(IG),3,3,0, KE(10),3,3,0, KE(28)) C C FORM THE W MATRIX OR THE W MATRIX IN KE(37) OR KE(73) DEPENDING C A B C UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION. G WILL BE C STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS. H, IF NON-ZERO, C WILL BE STORED IN THE UPPER RIGHT CORNER. C 380 KE(IWBEG+37) = KE(IG ) KE(IWBEG+38) = KE(IG+1) KE(IWBEG+39) = KE(IG+2) KE(IWBEG+43) = KE(IG+3) KE(IWBEG+44) = KE(IG+4) KE(IWBEG+45) = KE(IG+5) KE(IWBEG+49) = KE(IG+6) KE(IWBEG+50) = KE(IG+7) KE(IWBEG+51) = KE(IG+8) KE(IWBEG+58) = KE(IG ) KE(IWBEG+59) = KE(IG+1) KE(IWBEG+60) = KE(IG+2) KE(IWBEG+64) = KE(IG+3) KE(IWBEG+65) = KE(IG+4) KE(IWBEG+66) = KE(IG+5) KE(IWBEG+70) = KE(IG+6) KE(IWBEG+71) = KE(IG+7) KE(IWBEG+72) = KE(IG+8) IF (.NOT.OFFSET) GO TO 390 KE(IWBEG+40) = KE(28) KE(IWBEG+41) = KE(29) KE(IWBEG+42) = KE(30) KE(IWBEG+46) = KE(31) KE(IWBEG+47) = KE(32) KE(IWBEG+48) = KE(33) KE(IWBEG+52) = KE(34) KE(IWBEG+53) = KE(35) KE(IWBEG+54) = KE(36) C E E C FORM THE PRODUCT S = K X W OR S = K X W , DEPENDING C A AA A B AB B C C UPON WHICH POINT WE ARE WORKING WITH. C 390 CALL GMMATS (KEP(IKEL),6,6,0, KE(IWBEG+37),6,6,0, KEP(ISASB)) C C IF THE POINT UNDER CONSIDERATION IS POINT B WE ARE FINISHED. IF C NOT, SET UP POINTS AND INDICATORS FOR WORKING WITH POINT B. C IF (IWBEG .EQ. 36) GO TO 500 BASIC = BBASIC JCSID = JCSIDB OFFSET = BOFSET JOFSET = JOFSTB IWBEG = 36 IKEL = 37 ISASB = 109 INDEX = ISILNO(2) DO 400 I = 28,36 400 KE(I) = 0.0 GO TO 360 C C NOW PERFORM THE ELEMENT TEMPERATURE AND DEFORMATION LOADING. C 500 TBAR = TSUB0 IF (NOGPTT .EQ. 0) GO TO 510 CALL SSGETD (ECPT(1),KE(1),0) TBAR = (KE(1) + KE(2))/2.0 510 DELTA = 0.0 IF (NOEDT .EQ. 0) GO TO 520 KE(3) = 0.0 KE(4) = 0.0 KE(5) = 0.0 KE(6) = 0.0 CALL FEDT (ECPT(1),DELTA,IDEFM) GO TO 530 520 DELTA = 0.0 C C ELEMENT TEMPERATURE DATA BEGINS AT KE(1) C ELEMENT DEFORMATION DATA = DELTA C C S BEGINS AT KEP(73) (6 X 6) C A C C S BEGINS AT KEP(109) (6 X 6) C B C C NOW FILL THE U MATRIX (6 X 1) C A C 530 ALPHAL = ALPHA*L C UA(1) = -ALPHAL*(TBAR - TSUB0) - DELTA UA(2) = -ALPHAL*L*(KE(3) + 2.0*KE(4))/6.0 UA(3) = -ALPHAL*L*(KE(5) + 2.0*KE(6))/6.0 UA(4) = 0.0 UA(5) = -ALPHAL*(KE(5) + KE(6))/2.0 UA(6) = ALPHAL*(KE(3) + KE(4))/2.0 C C COMPUTE P AND P AND STORE THEM INTO Z (OPEN CORE) C A B C DO 600 I = 1,2 CALL GMMATS (KEP(36*I+37),6,6,1, UA(1),6,1,0, KE(1)) K = IECPT(I+1) - 1 DO 550 J = 1,6 K = K + 1 550 Z(K) = Z(K) + KE(J) 600 CONTINUE C RETURN END ================================================ FILE: mis/bard.f ================================================ SUBROUTINE BARD C C THIS SUBROUTINE PROCESSES BAR ELEMENT DATA TO PRODUCE STIFFNESS C AND MASS MATRICES. IF THE HEAT TRANSFER OPTION IS ON, CONDUCTIVITY C AND CAPACITY MATRICES ARE PRODUCED. C C DOUBLE PRECISION VERSION C THIS ROUTINE WILL PRODUCE MASS MATRICES BY EITHER THE CONSISTENT C OR CONVENTIONAL MASS METHODS. C THE ECPT/EST ENTRIES FOR THE BAR (ELEMENT TYPE 34) ARE C C C ECPT( 1) - IELID ELEMENT ID. NUMBER C ECPT( 2) - ISILNO(2) * SCALAR INDEX NOS. OF THE GRID POINTS C ECPT( 3) - ... * C ECPT( 4) - SMALLV(3) $ REFERENCE VECTOR C ECPT( 5) - ... $ C ECPT( 6) - ... $ C ECPT( 7) - ICSSV COOR. SYS. ID FOR SMALLV VECTOR C ECPT( 8) - IPINFL(2) * PIN FLAGS C ECPT( 9) - ... * C ECPT(10) - ZA(3) $ OFFSET VECTOR FOR POINT A C ECPT(11) - ... $ C ECPT(12) - ... $ C ECPT(13) - ZB(3) * OFFSET VECTOR FOR POINT B C ECPT(14) - ... * C ECPT(15) - ... * C ECPT(16) - IMATID MATERIAL ID. C ECPT(17) - A CROSS-SECTIONAL AREA C ECPT(18) - I1 $ AREA MOMENTS OF INERTIA C ECPT(19) - I2 $ C ECPT(20) - FJ TORSIONAL CONSTANT C ECPT(21) - NSM NON-STRUCTURAL MASS C ECPT(22) - FE FORCE ELEM DESCRIPTIONS (FORCE METHOD) C ECPT(23) - C1 * STRESS RECOVERY COEFFICIENTS C ECPT(24) - C2 * C ECPT(25) - D1 * C ECPT(26) - D2 * C ECPT(27) - F1 * C ECPT(28) - F2 * C ECPT(29) - G1 * C ECPT(30) - G2 * C ECPT(31) - K1 $ AREA FACTORS FOR SHEAR C ECPT(32) - K2 $ C ECPT(33) - I12 AREA MOMENT OF INERTIA C ECPT(34) - MCSIDA COOR. SYS. ID. FOR GRID POINT A C ECPT(35) - GPA(3) * BASIC COORDINATES FOR GRID POINT A C ECPT(36) - ... * C ECPT(37) - ... * C ECPT(38) - MCSIDB COOR. SYS. ID. FOR GRID POINT B C ECPT(39) - GPB(3) $ BASIC COORDINATES FOR GRID POINT B C ECPT(40) - ... $ C ECPT(41) - ... $ C ECPT(42) - ELTEMP AVG. ELEMENT TEMPERATURE C LOGICAL BASIC,OFFSET,NOGO,AOFSET,BOFSET INTEGER DICT(7),IS12OR(4),IS21OR(4),GSUBE,ESTID,IECPT(38) REAL K1,K2,I1,I2,I12,NSM DIMENSION ECPT(42),IPIN(10),IKK(4) DOUBLE PRECISION CONST,BL22,BLSQ3,FM,KE,KK,KEP,M,MEP,ME, 1 LR1,LR2,LB,L2B3,L2B6,VECI(3),VECJ(3),VECK(3), 2 SMALVN,TA,TB,VEC,DELA,DELB,FL,SMALLV(3), 3 FLL,BL,BLSQ,BLCUBE,EI1,EI2,R1,R2,SK1,SK2, 4 SK3,SK4,AEL,GJL,BETA,BL13,BLSQ4,A2B,LIMIT, 5 EPSI,EPSI2 CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ KSYSTM(100) COMMON /EMGEST/ IELID,ISILNO(2),SMALV(3),ICSSV,IPINFL(2),ZA(3), 1 ZB(3),IMATID,A,I1,I2,FJ,NSM,FE,C1,C2,D1,D2, 2 F1,F2,G1,G2,K1,K2,I12,MCSIDA,GPA(3),MCSIDB, 3 GPB(3),TEMPEL COMMON /EMGPRM/ IXTRA,JCORE,NCORE,DUM(12),ISTIF,IMASS,IDAMP, 1 IPREC,NOGO,HEAT,ICMBAR,LCSTM,LMAT,LHMAT COMMON /EMGDIC/ IDUMM, LDICT,NGRIDS,ELID,ESTID COMMON /EMGTRX/ KE(144),KEP(144),M(12,12),ME(144),MEP(144), 1 KK(144),SMALVN(6),TA(18),TB(9),VEC(10), 2 DELA(6),DELB(6) COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E,G,NU,RHO,ALPHA,TSUBO,GSUBE,SIGT,SIGC,SIGS COMMON /HMTOUT/ FK EQUIVALENCE (KSYSTM(2),IOUTPT),(KSYSTM(56),IHEAT), 1 (ECPT(1),IECPT(1),IELID),(KSYSTM(87),KSY87), 2 (VEC(1),VECI(1)),(VEC(4),VECJ(1)), 3 (VEC(7),VECK(1)) DATA IKK / 1,7,73,79 /, EPSI,EPSI2 / 1.0D-18,1.0D-7 / DATA IS12OR/ 1,37,109,73 /, IS21OR / 73,109,37,1 / C C DICT(1) = ESTID C C SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS. C ICSIDA AND ICSIDB ARE COOR. SYS. IDS. C JCSIDA = 34 JCSIDB = 38 JOFSTA = 10 JOFSTB = 13 JPINA = 8 JPINB = 9 ICSIDA = IECPT(34) ICSIDB = IECPT(38) LIMIT = DBLE(IABS(KSY87))*.01D0 C C NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL C AXIS PLANE (FMMS - 36 P. 4) C FL = 0.D0 DO 40 I = 1,3 SMALLV(I) = SMALV(I) 40 FL = FL + SMALLV(I)**2 FL = DSQRT(FL) IF (DABS(FL) .LT. EPSI) GO TO 7770 DO 50 I = 1,3 50 SMALVN(I) = SMALLV(I)/FL C C DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT. C COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY C IF (ICSIDA .NE. 0) CALL TRANSD(ECPT(JCSIDA),TA) IF (ICSIDB .NE. 0) CALL TRANSD(ECPT(JCSIDB),TB) C C DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS. C AOFSET = .TRUE. J = JOFSTA - 1 DO 70 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 80 70 CONTINUE AOFSET = .FALSE. 80 BOFSET = .TRUE. J = JOFSTB - 1 DO 90 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 100 90 CONTINUE BOFSET = .FALSE. C C FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS. C 100 DO 105 I = 1,3 JTA = I + JCSIDA JTB = I + JCSIDB 105 VECI(I) = ECPT(JTA) - ECPT(JTB) C C SAVE IN A2B THE LENGTH OF BAR, WITHOUT OFFSET, FROM GRID PT. A C TO B C A2B = DSQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) C C TRANSFORM THE OFFSET VECTORS IF NECESSARY C IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150 C C TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY. C IDELA = 1 J = JOFSTA - 1 DO 110 I = 1,3 J = J + 1 110 DELA(I) = ECPT(J) IF (ICSIDA .EQ. 0) GO TO 120 IDELA = 4 CALL GMMATD (TA, 3,3,0, DELA(1),3,1,0, DELA(4)) C C TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY C 120 IDELB = 1 J = JOFSTB - 1 DO 130 I = 1,3 J = J + 1 130 DELB(I) = ECPT(J) IF (ICSIDB .EQ. 0) GOTO 140 IDELB = 4 CALL GMMATD (TB, 3,3,0, DELB(1),3,1,0, DELB(4)) C C SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI C 140 DO 145 I = 1,3 JTA = I - 1 + IDELA JTB = I - 1 + IDELB 145 VECI(I) = VECI(I)+DELA(JTA) - DELB(JTB) C C COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE C 150 FL = 0.D0 DO 155 I = 1,3 VECI(I) = -VECI(I) 155 FL = FL + VECI(I)**2 FL = DSQRT(FL) IF (DABS(FL) .LT. EPSI) GO TO 7770 DO 160 I = 1,3 160 VECI(I) = VECI(I)/FL C C NOW THAT LENGTH HAS BEEN COMPUTED, CHECK POSSIBLE OFFSET ERROR C ISSUE WARNING MESSAGE IF OFFSET EXCEEDS A2B BY 'LIMIT' PERCENT. C (DEFAULT IS 15 PERCENT, KSYSTM(87) WORD) C IF (DABS(FL-A2B)/A2B .LE. LIMIT) GO TO 170 WRITE (IOUTPT,165) UWM,IELID 165 FORMAT (A25,' - UNUSUALLY LARGE OFFSET IS DETECTED FOR CBAR ', 1 'ELEMENT ID =',I8) IF (KSY87 .LE. 0) GO TO 170 WRITE (IOUTPT,167) KSY87 167 FORMAT (/5X,'(OFFSET BAR LENGTH EXCEEDS NON-OFFSET LENGTH BY', 1 I4,' PERCENT, SET BY SYSTEM 87TH WORD)') KSY87 = -KSY87 C C BRANCH IF THIS IS A -HEAT- FORMULATION. C 170 IF (IHEAT .EQ.1) GO TO 500 C C COMPUTE THE SMALV0 VECTOR C ISV = 1 IF (ICSSV .EQ. 0) GO TO 180 ISV = 4 CALL GMMATD (TA,3,3,0, SMALVN(1),3,1,0, SMALVN(4)) C C COMPUTE THE K VECTOR, VECK = VECI X SMALV0, AND NORMALIZE C 180 VECK(1) = VECI(2)*SMALVN(ISV+2) - VECI(3)*SMALVN(ISV+1) VECK(2) = VECI(3)*SMALVN(ISV ) - VECI(1)*SMALVN(ISV+2) VECK(3) = VECI(1)*SMALVN(ISV+1) - VECI(2)*SMALVN(ISV ) FLL = DSQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) IF (DABS(FLL) .LT. EPSI2) GO TO 7770 DO 190 I = 1,3 190 VECK(I) = VECK(I)/FLL C C COMPUTE THE J VECTOR, VECJ = VECK X VECI, AND NORMALIZE C VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2) VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3) VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1) FLL = DSQRT (VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2) IF (DABS(FLL) .LT. EPSI2) GO TO 7770 VECJ(1) = VECJ(1)/FLL VECJ(2) = VECJ(2)/FLL VECJ(3) = VECJ(3)/FLL C C SEARCH THE MATERIAL PROPERTIES TABLE FOR E,G AND THE DAMPING C CONSTANT. C MATIDC = IMATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) C IF (ISTIF .EQ. 0) GOTO 600 C C IF ELASTICITY AND SHEAR MODULES BOTH ZERO, SKIP STIFFNESS C CALCULATION C IF (E.EQ.0. .AND. G.EQ.0.) GO TO 600 C C SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX C CALCULATION C ASSIGN 305 TO K OR M 205 BL = FL BLSQ = FL**2 BLCUBE= BLSQ*BL C C COMPUTE SOME TERMS TO BE USED IN STIFFNESS MATRIX KE C EI1 = DBLE(E)*DBLE(I1) EI2 = DBLE(E)*DBLE(I2) IF (K1.EQ.0.0 .OR. I12.NE.0.0) GO TO 210 GAK1 = DBLE(G)*DBLE(A)*DBLE(K1) R1 = (12.D0*EI1*GAK1)/(GAK1*BLCUBE + 12.D0*BL*EI1) GO TO 220 210 R1 = 12.D0*EI1/BLCUBE 220 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 230 GAK2 = DBLE(G)*DBLE(A)*DBLE(K2) R2 = (12.D0*EI2*GAK2)/(GAK2*BLCUBE + 12.D0*BL*EI2) GO TO 240 230 R2 = 12.D0*EI2/BLCUBE C 240 SK1 = .25D0*R1*BLSQ + EI1/BL SK2 = .25D0*R2*BLSQ + EI2/BL SK3 = .25D0*R1*BLSQ - EI1/BL SK4 = .25D0*R2*BLSQ - EI2/BL C AEL = DBLE(A)*DBLE(E)/BL LR1 = BL*R1/2.D0 LR2 = BL*R2/2.D0 GJL = DBLE(G)*DBLE(FJ)/BL C C C CONSTRUCT THE GENERAL 12X12 MATRIX FOR THE BAR ELEMENT C C ** ** C * K K * C * AA AB* C K = * T * C * K K * C * AB BB* C ** ** C C C C FIRST SET THE COMPONENT CODE AND THE DOF C ICODE = 63 NDOF = 12 NSQ = NDOF**2 C C CONSTRUCT THE 12 X 12 MATRIX KE C C ** ** C * 1 73 * C * 14 62 86 134 * C * 27 51 99 123 * C * 40 112 * C * 29 53 101 125 * C * 18 66 90 138 * C * 7 79 * C * 20 68 92 140 * C * 33 57 105 129 * C * 46 118 * C * 35 59 107 131 * C * 24 72 96 144 * C ** ** C DO 300 I = 1,144 300 KE(I) = 0.D0 KE( 1) = AEL KE( 7) = -AEL KE( 14) = R1 KE( 18) = LR1 KE( 20) = -R1 KE( 24) = LR1 KE( 27) = R2 KE( 29) = -LR2 KE( 33) = -R2 KE( 35) = -LR2 KE( 40) = GJL KE( 46) = -GJL KE( 51) = -LR2 KE( 53) = SK2 KE( 57) = LR2 KE( 59) = SK4 KE( 62) = LR1 KE( 66) = SK1 KE( 68) = -LR1 KE( 72) = SK3 KE( 73) = -AEL KE( 79) = AEL KE( 86) = -R1 KE( 90) = -LR1 KE( 92) = R1 KE( 96) = -LR1 KE( 99) = -R2 KE(101) = LR2 KE(105) = R2 KE(107) = LR2 KE(112) = -GJL KE(118) = GJL KE(123) = -LR2 KE(125) = SK4 KE(129) = LR2 KE(131) = SK2 KE(134) = LR1 KE(138) = SK3 KE(140) = -LR1 KE(144) = SK1 IF (I12 .EQ. 0.) GOTO 303 BETA = 12.D0*DBLE(E)*DBLE(I12)/BLCUBE LB = BL*BETA/2.0D0 L2B3 = BLSQ*BETA/3.0D0 L2B6 = BLSQ*BETA/6.0D0 KE( 15) = BETA KE( 17) = -LB KE( 21) = -BETA KE( 23) = -LB KE( 26) = BETA KE( 30) = LB KE( 32) = -BETA KE( 36) = LB KE( 50) = -LB KE( 54) = -L2B3 KE( 56) = LB KE( 60) = -L2B6 KE( 63) = LB KE( 65) = -L2B3 KE( 69) = -LB KE( 71) = -L2B6 KE( 87) = -BETA KE( 89) = LB KE( 93) = BETA KE( 95) = LB KE( 98) = -BETA KE(102) = -LB KE(104) = BETA KE(108) = -LB KE(122) = -LB KE(126) = -L2B6 KE(128) = LB KE(132) = -L2B3 KE(135) = LB KE(137) = -L2B6 KE(141) = -LB KE(143) = -L2B3 303 GO TO K OR M, (305,640,465,750) C C DETERMINE IF THERE ARE NON-ZERO PIN FLAGS. C 305 KA = IECPT(JPINA) KB = IECPT(JPINB) IF (KA.EQ.0 .AND. KB.EQ.0) GOTO 345 C C SET UP THE IPIN ARRAY C DO 310 I = 1,5 IPIN(I ) = MOD(KA,10) IPIN(I+5) = MOD(KB,10) + 6 IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0 KA = KA/10 310 KB = KB/10 C C ALTER KE MATRIX DUE TO PIN FLAGS. C DO 340 I = 1,10 IF (IPIN(I) .EQ.0) GO TO 340 II = 13*IPIN(I) - 12 IF (KE(II) .NE. 0.D0) GO TO 320 IL = IPIN(I) II = II - IL DO 315 J = 1,12 II = II + 1 KE(II) = 0.D0 KE(IL) = 0.D0 IL = IL + 12 315 CONTINUE GO TO 340 320 DO 330 J = 1,12 JI = 12*(J-1) + IPIN(I) IJ = 12*(IPIN(I)-1) + J DO 325 LL = 1,12 JLL = 12*(J-1) + LL ILL = 12*(IPIN(I)-1) + LL KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI) 325 CONTINUE KEP(IJ) = 0.D0 KEP(JI) = 0.D0 330 CONTINUE DO 335 K = 1,144 335 KE(K) = KEP(K) 340 CONTINUE C C DIVIDE KE INTO FOUR SUBMATRICES AND STORE IN OPEN CORE C C E E E C K = KK(1 TO 36) K = KK(37 TO 72) K = KK(73 TO 108) C AA AB BA C C E C K = KK(109 TO 144) C BB C C 345 J = 0 DO 355 I = 1,72,12 LOW = I LIM = I + 5 DO 350 K = LOW,LIM J = J + 1 KK(J ) = KE(K ) KK(J+36) = KE(K+ 6) KK(J+72) = KE(K+72) 350 KK(J+108)= KE(K+78) 355 CONTINUE C ASSIGN 465 TO K OR M C C ZERO OUT THE ARRAY WHERE THE 3X3 MATRIX H AND THE W AND W 6X6 C MATRICES WILL RESIDE. A B C T C A MATRIX NOW STORED IN KE C 358 DO 357 I = 1,9 357 KE(I) = VEC(I) C DO 360 I = 28,144 360 KE(I) = 0.D0 C C C SET UP POINTERS C BASIC = ICSIDA.EQ.0 JCSID = JCSIDA OFFSET = AOFSET JOFSET = JOFSTA DO 395 I = 1,2 IWBEG = I*36 C C SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX C G = AT X TI C IG = 1 IF (BASIC) GO TO 380 CALL TRANSD (ECPT(JCSID),KE(10)) CALL GMMATD (KE(1), 3,3,0, KE(10), 3,3,0, KE(19)) IG = 19 C C IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3X3 C MATRIX. C 380 IF (.NOT.OFFSET) GO TO 385 KE(10) = 0.D0 KE(11) = ECPT(JOFSET+2) KE(12) = -ECPT(JOFSET+1) KE(13) = -KE(11) KE(14) = 0.D0 KE(15) = ECPT(JOFSET) KE(16) = -KE(12) KE(17) = -KE(15) KE(18) = 0.D0 C C FORM THE 3X3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10) C CALL GMMATD (KE(IG), 3,3,0, KE(10), 3,3,0, KE(28)) C C C FORM THE W SUBMATRICES IN KE(37) AND KE(73) C C 385 KE(IWBEG+ 1) = KE(IG ) KE(IWBEG+ 2) = KE(IG+1) KE(IWBEG+ 3) = KE(IG+2) KE(IWBEG+ 7) = KE(IG+3) KE(IWBEG+ 8) = KE(IG+4) KE(IWBEG+ 9) = KE(IG+5) KE(IWBEG+13) = KE(IG+6) KE(IWBEG+14) = KE(IG+7) KE(IWBEG+15) = KE(IG+8) KE(IWBEG+22) = KE(IG ) KE(IWBEG+23) = KE(IG+1) KE(IWBEG+24) = KE(IG+2) KE(IWBEG+28) = KE(IG+3) KE(IWBEG+29) = KE(IG+4) KE(IWBEG+30) = KE(IG+5) KE(IWBEG+34) = KE(IG+6) KE(IWBEG+35) = KE(IG+7) KE(IWBEG+36) = KE(IG+8) IF (.NOT.OFFSET) GO TO 390 KE(IWBEG+ 4) = KE(28) KE(IWBEG+ 5) = KE(29) KE(IWBEG+ 6) = KE(30) KE(IWBEG+10) = KE(31) KE(IWBEG+11) = KE(32) KE(IWBEG+12) = KE(33) KE(IWBEG+16) = KE(34) KE(IWBEG+17) = KE(35) KE(IWBEG+18) = KE(36) 390 BASIC = ICSIDB.EQ.0 JCSID = JCSIDB OFFSET = BOFSET JOFSET = JOFSTB 395 CONTINUE C C CONVERT THE K PARTITIONS TO GLOBAL COORDINATES AND STORE IN KEP C IAFT = 37 DO 400 I = 1,4 IKX = (I-1)*36 + 1 IK = IKX IF (I .GE. 3) IKX = (7-I-1)*36 + 1 IFORE = ((I-1)/2)*36 + 37 CALL GMMATD (KE(IFORE), 6,6,1, KK(IKX), 6,6,0, KE(109)) CALL GMMATD (KE(109), 6,6,0, KE(IAFT), 6,6,0, KEP(IK)) IAFT = 73 IF (I .EQ. 3) IAFT = 37 400 CONTINUE C C REFORM THE K MATRIX (12X12) FROM THE FOUR SUBMATRICES (6X6) AND C ORDER THE SUBMATRICES BY INCREASING SIL VALUE C DO 460 II = 1,4 IX1 = IKK(II) IX2 = IX1 + 60 IS = IS12OR(II) IF (ISILNO(1) .GT. ISILNO(2)) IS = IS21OR(II) DO 450 I = IX1,IX2,12 IP5 = I + 5 DO 440 J = I,IP5 KE(J) = KEP(IS) 440 IS = IS + 1 450 CONTINUE 460 CONTINUE C GO TO K OR M, (305,640,465,750) C C OUTPUT THE STIFFNESS MATRIX C 465 DICT(2) = 1 DICT(3) = NDOF DICT(4) = ICODE DICT(5) = GSUBE CALL EMGOUT (KE(1),KE(1),NSQ,1,DICT,1,IPREC) GO TO 600 C C THE MASS MATRIX IS GENERATED HERE. IF THE PARAMETER ICMBAR IS C .LT. 0, CALL THE CONVENTIONAL MASS MATRIX GENERATION ROUTINE FOR C THE BAR. OTHERWISE CALL THE ROUTINE TO GENERATE CONSISTENT MASS C MATRICES FOR THE BAR. C 600 CONST = (FL*(DBLE(RHO)*DBLE(A) + DBLE(NSM)))/420.D0 IF (IMASS.EQ.0 .OR. CONST.EQ.0.D0) RETURN IF (ICMBAR .LT. 0) GO TO 800 C C CALCULATE THE CONSISTENT/CONVENTIONAL MASS MATRIX C C CALL THE MAT ROUTINE TO FETCH SINGLE PRECISION MATERIAL PROPERTIES C MATIDC = IMATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) C C COMPUTE TERMS OF THE ELEMENT MASS MATRIX C BL22 = 22.D0*FL BL13 = 13.D0*FL BLSQ4 = 4.D0*FL**2 BLSQ3 = 3.D0*FL**2 C C CONSTRUCT THE ELEMENT MASS MATRIX. C DO 610 I = 1,12 DO 610 J = 1,12 610 M( I, J) = 0.D0 M( 1, 1) = 175.D0 M( 1, 7) = 35.D0 M( 2, 2) = 156.D0 M( 2, 6) = BL22 M( 2, 8) = 54.D0 M( 2,12) =-BL13 M( 3, 3) = 156.D0 M( 3, 5) =-BL22 M( 3, 9) = 54.D0 M( 3,11) = BL13 M( 5, 5) = BLSQ4 M( 5, 9) =-BL13 M( 5,11) =-BLSQ3 M( 6, 6) = BLSQ4 M( 6, 8) = BL13 M( 6,12) =-BLSQ3 M( 7, 7) = 175.D0 M( 8, 8) = 156.D0 M( 8,12) =-BL22 M( 9, 9) = 156.D0 M( 9,11) = BL22 M(11,11) = BLSQ4 M(12,12) = BLSQ4 C C STORE THE UPPER TRIANGULAR PART OF THE MATRIX IN THE LOWER PART. C DO 625 I = 1,10 LOW = I + 1 DO 620 J = LOW,12 M(J,I) = M(I,J) 620 CONTINUE 625 CONTINUE C C MULTIPLY BY CONSTANT AND STORE ROW-WISE IN THE ARRAY ME C K = 0 DO 630 I = 1,12 DO 630 J = 1,12 K = K + 1 630 ME(K) = CONST*M(I,J) C C IF THERE ARE NO PIN FLAGS THERE IS NO NEED TO CALCULATE THE C ELEMENT STIFFNESS MATRIX C KA = IECPT(JPINA) KB = IECPT(JPINB) IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 705 C C COMPUTE THE STIFFNESS MATRIX KE C C ASSIGN 640 TO K OR M GO TO 205 C C RETURN HERE AFTER COMPUTING THE STIFFNESS MATRIX C C C SET UP TNHE IPIN ARRAY C 640 DO 645 I = 1,5 IPIN(I ) = MOD(KA,10) IPIN(I+5) = MOD(KB,10)+6 IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0 KA = KA/10 645 KB = KB/10 C C ALTER THE ELEMENT MASS MATRIX DUE TO PIN FLAGS. NOTE THAT THE C FOLLOWING CODE IS CONGRUENT AS IT WERE TO THE CODE IN SUBROUTINE C DBEAM IN THE DSMG1 MODULE. C DO 700 J = 1,10 IF (IPIN(J) .EQ. 0) GO TO 700 JJ = 12*(IPIN(J)-1) + IPIN(J) IF (KE(JJ) .EQ. 0.) GO TO 680 DO 660 I = 1,12 JI = 12*(IPIN(J)-1) + I IJ = 12*(I-1) + IPIN(J) DO 650 L1 = 1,12 IL = 12*(I -1) + L1 LJ = 12*(L1-1) + IPIN(J) MEP(IL) = ME(IL) - KE(LJ)*ME(JI)/KE(JJ) - KE(JI)*ME(LJ)/KE(JJ) 1 + KE(LJ)*KE(JI)*ME(JJ)/KE(JJ)**2 650 CONTINUE 660 CONTINUE DO 670 K = 1,144 670 ME(K) = MEP(K) C C ZERO OUT THE IPIN(J) TH ROW AND COLUMN OF ME C 680 J1 = JJ - IPIN(J) J2 = IPIN(J) DO 690 K = 1,12 J1 = J1 + 1 ME(J1) = 0.D0 ME(J2) = 0.D0 690 J2 = J2 + 12 700 CONTINUE C C E E E C STORE M AT KK(1 TO 36), M AT KK (37 TO 72), M AT KK(73 TO 108) C AA AB BA C C E C M AT KK(109 TO 144) C BB C 705 J = 0 DO 720 I = 1,72,12 LOW = I LIM = LOW + 5 DO 710 K = LOW,LIM J = J + 1 KK(J) = ME(K) KK(J+ 36) = ME(K+ 6) KK(J+ 72) = ME(K+72) 710 KK(J+108) = ME(K+78) 720 CONTINUE C C CALCULATE THE TRANSFORMATION VECTORS C ASSIGN 750 TO K OR M GO TO 358 C C OUTPUT THE CONSISTENT MASS MATRIX C 750 DICT(2) = 1 DICT(3) = NDOF DICT(4) = ICODE DICT(5) = 0 CALL EMGOUT (KE(1),KE(1),144,1,DICT,2,IPREC) RETURN C C CALCULATE THE CONVENTIONAL MASS MATRIX HERE C C C GET RHO FROM MPT BY CALLING MAT C 800 MATIDC = IMATID MATFLG = 4 ELTEMP = TEMPEL CALL MAT (ECPT(1)) DO 810 I = 1,72 810 MEP(I) = 0.D0 FM = .5D0*FL*(DBLE(RHO)*DBLE(A) + DBLE(NSM)) C C DETERMINE IF THE GRID POINT IS ASSOCIATED WITH A NON-ZERO OFFSET. C JOFSET = 9 DO 850 II = 1,2 IX = (II-1)*36 J = JOFSET DO 815 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.) GO TO 820 815 CONTINUE GO TO 840 C C FORM UPPER RIGHT CORNER OF THE MATRIX C 820 MEP(IX+ 1) = 1.D0 MEP(IX+ 8) = 1.D0 MEP(IX+15) = 1.D0 MEP(IX+ 5) = ECPT(JOFSET+3) MEP(IX+ 6) =-ECPT(JOFSET+2) MEP(IX+12) = ECPT(JOFSET+1) MEP(IX+10) =-MEP(IX+ 5) MEP(IX+16) =-MEP(IX+ 6) MEP(IX+17) =-MEP(IX+12) MEP(IX+20) =-MEP(IX+ 5) MEP(IX+21) =-MEP(IX+ 6) MEP(IX+25) =-MEP(IX+10) MEP(IX+27) =-MEP(IX+12) MEP(IX+31) =-MEP(IX+16) MEP(IX+32) =-MEP(IX+17) MEP(IX+22) = ECPT(JOFSET+3)**2 + ECPT(JOFSET+2)**2 MEP(IX+29) = ECPT(JOFSET+3)**2 + ECPT(JOFSET+1)**2 MEP(IX+36) = ECPT(JOFSET+2)**2 + ECPT(JOFSET+1)**2 MEP(IX+23) =-ECPT(JOFSET+1)*ECPT(JOFSET+2) MEP(IX+24) =-ECPT(JOFSET+1)*ECPT(JOFSET+3) MEP(IX+30) =-ECPT(JOFSET+2)*ECPT(JOFSET+3) MEP(IX+28) = MEP(IX+23) MEP(IX+34) = MEP(IX+24) MEP(IX+35) = MEP(IX+30) C C MULTIPLY M BY THE CONSTANT FL C DO 830 I = 1,36 IS = IX + I 830 MEP(IS) = MEP(IS)*FM GO TO 850 C C HERE WE HAVE A ZERO OFFSET VECTOR C 840 MEP(IX+ 1) = FM MEP(IX+ 8) = FM MEP(IX+15) = FM 850 JOFSET = 12 C C INSERT THE M AND M SUBMATRICES INTO M ACCORDING TO INCREASING C SIL A B C DO 860 I = 1,144 860 ME(I) = 0.D0 C IF (ISILNO(1) - ISILNO(2)) 870,870,880 870 IX1 = 1 IX2 = 37 GO TO 890 880 IX1 = 37 IX2 = 1 890 CONTINUE DO 900 JJ = 1,36 MM = MOD(JJ,6) IF (MM .EQ. 0) MM = 6 I = ((JJ-1)/6)*12 + MM J = I + 78 ME(I) = MEP(IX1) ME(J) = MEP(IX2) IX1 = IX1 + 1 900 IX2 = IX2 + 1 C C OUTPUT THE CONVENTIONAL MASS MATRIX C DICT(2) = 1 DICT(3) = NDOF DICT(4) = ICODE DICT(5) = 0 C CALL EMGOUT (ME,ME,144,1,DICT,2,IPREC) C RETURN C C HEAT FORMULATION CONTINUES HERE. GET MATERIAL PROPERTY -K- FROM C HMAT C 500 MATFLG = 1 MATIDC = IECPT(16) ELTEMP = ECPT(42) DICT(2) = 1 DICT(3) = 2 DICT(4) = 1 DICT(5) = 0 IF (ISTIF .EQ. 0) GO TO 540 CALL HMAT (IELID) C KK(1) = DBLE(FK)*DBLE(ECPT(17))/FL IF (KK(1).EQ. 0.D0) GO TO 520 KK(2) =-KK(1) KK(3) = KK(2) KK(4) = KK(1) CALL EMGOUT (KK(1),KK(1),4,1,DICT,1,IPREC) C 520 MATFLG = 4 C C ERROR IN NEXT CARD FOR HEAT FORMULATION. REMOVED BY G.CHAN/SPERRY, C 1984. ALSO, CHANGE GO TO 520 TO 540, 11-TH CARD ABOVE, AND C CALL EMGOUT BELOW AND WRITE TO THE 3-RD FILE INSTEAD OF THE 2-ND. C CALL HMAT (IELID) KK(1) = (DBLE(FK)*DBLE(ECPT(17)))*FL/2.D0 IF (KK(1) .EQ. 0.D0) RETURN KK(2) = KK(1) DICT(2) = 2 CALL EMGOUT (KK(1),KK(1),2,1,DICT,3,IPREC) 540 RETURN C C ERROR RETURNS C 7770 CONTINUE WRITE (IOUTPT,7775) UFM,IELID 7775 FORMAT (A23,' 3176, BAR ELEMENT ID',I9, 1 ' HAS ILLEGAL GEOMETRY OR CONNECTIONS.') NOGO = .TRUE. RETURN END ================================================ FILE: mis/bars.f ================================================ SUBROUTINE BARS C C SINGLE PRECISION VERSION C C THIS SUBROUTINE PROCESSES BAR ELEMENT DATA TO PRODUCE STIFFNESS C AND MASS MATRICES. IF THE HEAT TRANSFER OPTION IS ON, CONDUCTIVITY C AND CAPACITY MATRICES ARE PRODUCED. C C THIS ROUTINE WILL PRODUCE MASS MATRICES BY EITHER THE CONSISTENT C OR CONVENTIONAL MASS METHODS. C THE ECPT/EST ENTRIES FOR THE BAR (ELEMENT TYPE 34) ARE C C ECPT( 1) - IELID ELEMENT ID. NUMBER C ECPT( 2) - ISILNO(2) * SCALAR INDEX NOS. OF THE GRID POINTS C ECPT( 3) - ... * C ECPT( 4) - SMALLV(3) $ REFERENCE VECTOR C ECPT( 5) - ... $ C ECPT( 6) - ... $ C ECPT( 7) - ICSSV COOR. SYS. ID FOR SMALLV VECTOR C ECPT( 8) - IPINFL(2) * PIN FLAGS C ECPT( 9) - ... * C ECPT(10) - ZA(3) $ OFFSET VECTOR FOR POINT A C ECPT(11) - ... $ C ECPT(12) - ... $ C ECPT(13) - ZB(3) * OFFSET VECTOR FOR POINT B C ECPT(14) - ... * C ECPT(15) - ... * C ECPT(16) - IMATID MATERIAL ID. C ECPT(17) - A CROSS-SECTIONAL AREA C ECPT(18) - I1 $ AREA MOMENTS OF INERTIA C ECPT(19) - I2 $ C ECPT(20) - FJ TORSIONAL CONSTANT C ECPT(21) - NSM NON-STRUCTURAL MASS C ECPT(22) - FE FORCE ELEM DESCRIPTIONS (FORCE METHOD) C ECPT(23) - C1 * STRESS RECOVERY COEFFICIENTS C ECPT(24) - C2 * C ECPT(25) - D1 * C ECPT(26) - D2 * C ECPT(27) - F1 * C ECPT(28) - F2 * C ECPT(29) - G1 * C ECPT(30) - G2 * C ECPT(31) - K1 $ AREA FACTORS FOR SHEAR C ECPT(32) - K2 $ C ECPT(33) - I12 AREA MOMENT OF INERTIA C ECPT(34) - MCSIDA COOR. SYS. ID. FOR GRID POINT A C ECPT(35) - GPA(3) * BASIC COORDINATES FOR GRID POINT A C ECPT(36) - ... * C ECPT(37) - ... * C ECPT(38) - MCSIDB COOR. SYS. ID. FOR GRID POINT B C ECPT(39) - GPB(3) $ BASIC COORDINATES FOR GRID POINT B C ECPT(40) - ... $ C ECPT(41) - ... $ C ECPT(42) - ELTEMP AVG. ELEMENT TEMPERATURE C LOGICAL BASIC,OFFSET,NOGO,AOFSET,BOFSET INTEGER DICT(7),IS12OR(4),IS21OR(4),GSUBE,ESTID,IECPT(38) REAL K1,K2,I1,I2,I12,NSM,KE,KK,KEP,M,MEP,ME,LR1,LR2,LB, 1 L2B3,L2B6,LIMIT DIMENSION VECI(3),VECJ(3),VECK(3),ECPT(42),IPIN(10),IKK(4) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ KSYSTM(100) COMMON /EMGEST/ IELID,ISILNO(2),SMALLV(3),ICSSV,IPINFL(2),ZA(3), 1 ZB(3),IMATID,A,I1,I2,FJ,NSM,FE,C1,C2,D1,D2,F1,F2, 2 G1,G2,K1,K2,I12,MCSIDA,GPA(3),MCSIDB,GPB(3),TEMPEL COMMON /EMGPRM/ IXTRA,JCORE,NCORE,DUM(12),ISTIF,IMASS,IDAMP, 1 IPREC,NOGO,HEAT,ICMBAR,LCSTM,LMAT,LHMAT COMMON /EMGDIC/ IDUMM, LDICT,NGRIDS,ELID,ESTID COMMON /EMGTRX/ KE(144),KEP(144),M(12,12),ME(144),MEP(144), 1 KK(144),SMALVN(6),TA(18),TB(9),VEC(10), 2 DELA(6),DELB(6) COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E,G,NU,RHO,ALPHA,TSUBO,GSUBE,SIGT,SIGC,SIGS COMMON /HMTOUT/ FK EQUIVALENCE (KSYSTM(2),IOUTPT), (KSYSTM(56),IHEAT), 1 (ECPT(1),IECPT(1),IELID), (KSYSTM(87),KSY87), 2 (VEC(1),VECI(1)), (VEC(4),VECJ(1)), 3 (VEC(7),VECK(1)) DATA IKK / 1,7,73,79 /, EPSI,EPSI2 / 1.0E-18,1.0E-7 / DATA IS12OR/ 1,37,109,73 /, IS21OR / 73,109,37,1 / C C DICT(1) = ESTID C C SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS. C ICSIDA AND ICSIDB ARE COOR. SYS. IDS. C JCSIDA = 34 JCSIDB = 38 JOFSTA = 10 JOFSTB = 13 JPINA = 8 JPINB = 9 ICSIDA = IECPT(34) ICSIDB = IECPT(38) LIMIT = IABS(KSY87)*.01 C C NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL C AXIS PLANE (FMMS - 36 P. 4) C FL = SQRT(SMALLV(1)**2 + SMALLV(2)**2 + SMALLV(3)**2) IF (ABS(FL) .LT. EPSI) GO TO 7770 DO 50 I = 1,3 50 SMALVN(I) = SMALLV(I)/FL C C DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT. C COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY C IF (ICSIDA .NE. 0) CALL TRANSS (ECPT(JCSIDA),TA) IF (ICSIDB .NE. 0) CALL TRANSS (ECPT(JCSIDB),TB) C C DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS. C AOFSET = .TRUE. J = JOFSTA - 1 DO 70 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 80 70 CONTINUE AOFSET = .FALSE. 80 BOFSET = .TRUE. J = JOFSTB - 1 DO 90 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 100 90 CONTINUE BOFSET = .FALSE. C C FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS. C 100 DO 105 I = 1,3 JTA = I + JCSIDA JTB = I + JCSIDB 105 VECI(I) = ECPT(JTA) - ECPT(JTB) C C SAVE IN A2B THE LENGTH OF BAR WITHOUT OFFSET, FROM GRID PT. A TO B C A2B = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) C C TRANSFORM THE OFFSET VECTORS IF NECESSARY C IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150 C C TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY. C IDELA = 1 J = JOFSTA - 1 DO 110 I = 1,3 J = J + 1 110 DELA(I) = ECPT(J) IF (ICSIDA .EQ.0) GO TO 120 IDELA = 4 CALL GMMATS (TA,3,3,0,DELA(1),3,1,0,DELA(4)) C C TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY C 120 IDELB = 1 J = JOFSTB - 1 DO 130 I = 1,3 J = J + 1 130 DELB(I) = ECPT(J) IF (ICSIDB .EQ. 0) GOTO 140 IDELB = 4 CALL GMMATS (TB,3,3,0,DELB(1),3,1,0, DELB(4)) C C SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI C 140 DO 145 I = 1,3 JTA = I - 1 + IDELA JTB = I - 1 + IDELB 145 VECI(I) = VECI(I)+DELA(JTA) - DELB(JTB) C C COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE C 150 FL = 0. DO 155 I = 1,3 VECI(I) = - VECI(I) 155 FL = FL + VECI(I)**2 FL = SQRT(FL) IF (ABS(FL) .LT. EPSI) GO TO 7770 DO 160 I = 1,3 160 VECI(I) = VECI(I)/FL C C NOW THAT LENGTH HAS BEEN COMPUTED, CHECK POSSIBLE OFFSET ERROR C ISSUE WARNING MESSAGE IF OFFSET EXCEEDS A2B BY 'LIMIT' PERCENT. C (DEFAULT IS 15 PERCENT, KSYSTM(87) WORD) C IF (ABS(FL-A2B)/A2B .LE. LIMIT) GO TO 170 WRITE (IOUTPT,165) UWM,IELID 165 FORMAT (A25,' - UNUSUALLY LARGE OFFSET IS DETECTED FOR CBAR ', 1 'ELEMENT ID =',I8,' ***') IF (KSY87 .LE. 0) GO TO 170 WRITE (IOUTPT,167) KSY87 167 FORMAT (/5X,'(OFFSET BAR LENGTH EXCEEDS NON-OFFSET LENGTH BY', 1 I4,' PERCENT, SET BY SYSTEM 87TH WORD)') KSY87 = -KSY87 C C BRANCH IF THIS IS A -HEAT- FORMULATION. C 170 IF (IHEAT .EQ.1) GO TO 500 C C COMPUTE THE SMALV0 VECTOR C ISV = 1 IF (ICSSV .EQ. 0) GO TO 180 ISV = 4 CALL GMMATS (TA,3,3,0,SMALVN(1),3,1,0,SMALVN(4)) C C COMPUTE THE K VECTOR, VECK = VECI X SMALV0, AND NORMALIZE C 180 VECK(1) = VECI(2)*SMALVN(ISV+2) - VECI(3)*SMALVN(ISV+1) VECK(2) = VECI(3)*SMALVN(ISV ) - VECI(1)*SMALVN(ISV+2) VECK(3) = VECI(1)*SMALVN(ISV+1) - VECI(2)*SMALVN(ISV ) FLL= SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) IF (ABS(FLL) .LT. EPSI2) GO TO 7770 DO 190 I = 1,3 190 VECK(I) = VECK(I)/FLL C C COMPUTE THE J VECTOR, VECJ = VECK X VECI, AND NORMALIZE C VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2) VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3) VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1) FLL = SQRT(VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2) IF (ABS(FLL) .LT. EPSI2) GO TO 7770 VECJ(1) = VECJ(1)/FLL VECJ(2) = VECJ(2)/FLL VECJ(3) = VECJ(3)/FLL C C SEARCH THE MATERIAL PROPERTIES TABLE FOR E,G AND THE DAMPING C CONSTANT. C MATIDC = IMATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) C IF (ISTIF .EQ. 0) GOTO 600 C C IF ELASTICITY AND SHEAR MODULES BOTH ZERO, SKIP STIFFNESS C CALCULATION C IF (E.EQ.0. .AND. G.EQ.0.) GO TO 600 C C SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX C CALCULATION C ASSIGN 305 TO K OR M 205 BL = FL BLSQ = FL**2 BLCUBE= BLSQ*BL C C COMPUTE SOME TERMS TO BE USED IN STIFFNESS MATRIX KE C EI1 = E*I1 EI2 = E*I2 IF (K1.EQ.0.0 .OR. I12.NE.0.0) GO TO 210 GAK1 = G*A*K1 R1 = (12.*EI1*GAK1)/(GAK1*BLCUBE + 12.*BL*EI1) GO TO 220 210 R1 = 12.*EI1/BLCUBE 220 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 230 GAK2 = G*A*K2 R2 = (12.*EI2*GAK2)/(GAK2*BLCUBE + 12.*BL*EI2) GO TO 240 230 R2 = 12.*EI2/BLCUBE C 240 SK1 = .25*R1*BLSQ + EI1/BL SK2 = .25*R2*BLSQ + EI2/BL SK3 = .25*R1*BLSQ - EI1/BL SK4 = .25*R2*BLSQ - EI2/BL C AEL = A*E/BL LR1 = BL*R1/2. LR2 = BL*R2/2. GJL = G*FJ/BL C C CONSTRUCT THE GENERAL 12X12 MATRIX FOR THE BAR ELEMENT C C ** ** C * K K * C * AA AB* C K = * T * C * K K * C * AB BB* C ** ** C C C FIRST SET THE COMPONENT CODE AND THE DOF C ICODE = 63 NDOF = 12 NSQ = NDOF**2 C C CONSTRUCT THE 12 X 12 MATRIX KE C DO 300 I = 1,144 300 KE(I) = 0. KE( 1) = AEL KE( 7) = -AEL KE( 14) = R1 KE( 18) = LR1 KE( 20) = -R1 KE( 24) = LR1 KE( 27) = R2 KE( 29) = -LR2 KE( 33) = -R2 KE( 35) = -LR2 KE( 40) = GJL KE( 46) = -GJL KE( 51) = -LR2 KE( 53) = SK2 KE( 57) = LR2 KE( 59) = SK4 KE( 62) = LR1 KE( 66) = SK1 KE( 68) = -LR1 KE( 72) = SK3 KE( 73) = -AEL KE( 79) = AEL KE( 86) = -R1 KE( 90) = -LR1 KE( 92) = R1 KE( 96) = -LR1 KE( 99) = -R2 KE(101) = LR2 KE(105) = R2 KE(107) = LR2 KE(112) = -GJL KE(118) = GJL KE(123) = -LR2 KE(125) = SK4 KE(129) = LR2 KE(131) = SK2 KE(134) = LR1 KE(138) = SK3 KE(140) = -LR1 KE(144) = SK1 IF (I12 .EQ. 0.) GO TO 303 BETA = 12.*E*I12/BLCUBE LB = BL*BETA/2.0 L2B3 = BLSQ*BETA/3.0 L2B6 = BLSQ*BETA/6.0 KE( 15) = BETA KE( 17) = -LB KE( 21) = -BETA KE( 23) = -LB KE( 26) = BETA KE( 30) = LB KE( 32) = -BETA KE( 36) = LB KE( 50) = -LB KE( 54) = -L2B3 KE( 56) = LB KE( 60) = -L2B6 KE( 63) = LB KE( 65) = -L2B3 KE( 69) = -LB KE( 71) = -L2B6 KE( 87) = -BETA KE( 89) = LB KE( 93) = BETA KE( 95) = LB KE( 98) = -BETA KE(102) = -LB KE(104) = BETA KE(108) = -LB KE(122) = -LB KE(126) = -L2B6 KE(128) = LB KE(132) = -L2B3 KE(135) = LB KE(137) = -L2B6 KE(141) = -LB KE(143) = -L2B3 303 GO TO K OR M, (305,640,465,750) C C DETERMINE IF THERE ARE NON-ZERO PIN FLAGS. C 305 KA = IECPT(JPINA) KB = IECPT(JPINB) IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 345 C C SET UP THE IPIN ARRAY C DO 310 I = 1,5 IPIN(I ) = MOD(KA,10) IPIN(I+5) = MOD(KB,10) + 6 IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0 KA = KA/10 310 KB = KB/10 C C ALTER KE MATRIX DUE TO PIN FLAGS. C DO 340 I = 1,10 IF (IPIN(I) .EQ.0) GO TO 340 II = 13*IPIN(I) - 12 IF (KE(II) .NE. 0.) GO TO 320 IL = IPIN(I) II = II - IL DO 315 J = 1,12 II = II + 1 KE(II) = 0. KE(IL) = 0. IL = IL + 12 315 CONTINUE GO TO 340 320 DO 330 J = 1,12 JI = 12*(J-1) + IPIN(I) IJ = 12*(IPIN(I)-1) + J DO 325 LL = 1,12 JLL = 12*(J-1) + LL ILL = 12*(IPIN(I)-1) + LL KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI) 325 CONTINUE KEP(IJ) = 0. KEP(JI) = 0. 330 CONTINUE DO 335 K = 1,144 335 KE(K) = KEP(K) 340 CONTINUE C C DIVIDE KE INTO FOUR SUBMATRICES AND STORE IN OPEN CORE C C E E E C K = KK(1 TO 36) K = KK(37 TO 72) K = KK(73 TO 108) C AA AB BA C C E C K = KK(109 TO 144) C BB C C 345 J = 0 DO 355 I = 1,72,12 LOW = I LIM = I + 5 DO 350 K = LOW,LIM J = J + 1 KK(J ) = KE(K ) KK(J+ 36) = KE(K+ 6) KK(J+ 72) = KE(K+72) 350 KK(J+108) = KE(K+78) 355 CONTINUE C ASSIGN 465 TO K OR M C C ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX H AND THE W AND W 6 X 6 C MATRICES WILL RESIDE. A B C T C A MATRIX NOW STORED IN KE C 358 DO 357 I = 1,9 357 KE(I) = VEC(I) C DO 360 I = 28,144 360 KE(I) = 0. C C SET UP POINTERS C BASIC = ICSIDA.EQ.0 JCSID = JCSIDA OFFSET = AOFSET JOFSET = JOFSTA DO 395 I = 1,2 IWBEG = I*36 C C SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX C G = AT X TI C IG = 1 IF (BASIC) GO TO 380 CALL TRANSS (ECPT(JCSID),KE(10)) CALL GMMATS (KE(1),3,3,0, KE(10),3,3,0, KE(19) ) IG = 19 C C IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3 X 3 C MATRIX. C 380 IF (.NOT.OFFSET) GO TO 385 KE(10) = 0. KE(11) = ECPT(JOFSET+2) KE(12) = -ECPT(JOFSET+1) KE(13) = -KE(11) KE(14) = 0. KE(15) = ECPT(JOFSET) KE(16) = -KE(12) KE(17) = -KE(15) KE(18) = 0. C C FORM THE 3 X 3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10) C CALL GMMATS (KE(IG),3,3,0, KE(10),3,3,0,KE(28)) C C C FORM THE W SUBMATRICES IN KE(37) AND KE(73) C C 385 KE(IWBEG+ 1) = KE(IG ) KE(IWBEG+ 2) = KE(IG+1) KE(IWBEG+ 3) = KE(IG+2) KE(IWBEG+ 7) = KE(IG+3) KE(IWBEG+ 8) = KE(IG+4) KE(IWBEG+ 9) = KE(IG+5) KE(IWBEG+13) = KE(IG+6) KE(IWBEG+14) = KE(IG+7) KE(IWBEG+15) = KE(IG+8) KE(IWBEG+22) = KE(IG ) KE(IWBEG+23) = KE(IG+1) KE(IWBEG+24) = KE(IG+2) KE(IWBEG+28) = KE(IG+3) KE(IWBEG+29) = KE(IG+4) KE(IWBEG+30) = KE(IG+5) KE(IWBEG+34) = KE(IG+6) KE(IWBEG+35) = KE(IG+7) KE(IWBEG+36) = KE(IG+8) IF (.NOT.OFFSET) GO TO 390 KE(IWBEG+ 4) = KE(28) KE(IWBEG+ 5) = KE(29) KE(IWBEG+ 6) = KE(30) KE(IWBEG+10) = KE(31) KE(IWBEG+11) = KE(32) KE(IWBEG+12) = KE(33) KE(IWBEG+16) = KE(34) KE(IWBEG+17) = KE(35) KE(IWBEG+18) = KE(36) 390 BASIC = ICSIDB.EQ.0 JCSID = JCSIDB OFFSET = BOFSET JOFSET = JOFSTB 395 CONTINUE C C CONVERT THE K PARTITIONS TO GLOBAL COORDINATES AND STORE IN KEP C IAFT = 37 DO 400 I = 1,4 IKX = (I-1)*36 + 1 IK = IKX IF (I .GE. 3) IKX = (7-I-1)*36 + 1 IFORE = ((I-1)/2)*36 + 37 CALL GMMATS (KE(IFORE),6,6,1, KK(IKX),6,6,0, KE(109)) CALL GMMATS (KE(109), 6,6,0, KE(IAFT),6,6,0, KEP(IK)) IAFT = 73 IF (I .EQ. 3) IAFT = 37 400 CONTINUE C C REFORM THE K MATRIX (12X12) FROM THE FOUR SUBMATRICES (6X6) AND C ORDER THE SUBMATRICES BY INCREASING SIL VALUE C DO 460 II = 1,4 IX1 = IKK(II) IX2 = IX1 + 60 IS = IS12OR(II) IF (ISILNO(1) .GT. ISILNO(2)) IS = IS21OR(II) DO 450 I = IX1,IX2,12 IP5 = I + 5 DO 440 J = I,IP5 KE(J) = KEP(IS) 440 IS = IS + 1 450 CONTINUE 460 CONTINUE C GO TO K OR M, (305,640,465,750) C C OUTPUT THE STIFFNESS MATRIX C 465 DICT(2) = 1 DICT(3) = NDOF DICT(4) = ICODE DICT(5) = GSUBE CALL EMGOUT (KE(1),KE(1),NSQ,1,DICT,1,IPREC) GO TO 600 C C THE MASS MATRIX IS GENERATED HERE. IF THE PARAMETER ICMBAR IS C .LT. 0, CALL THE CONVENTIONAL MASS MATRIX GENERATION ROUTINE FOR C THE BAR. OTHERWISE CALL THE ROUTINE TO GENERATE CONSISTENT MASS C MATRICES FOR THE BAR. C 600 CONST = (FL*(RHO*A + NSM))/420. IF (IMASS.EQ.0 .OR. CONST.EQ.0.) RETURN IF (ICMBAR .LT. 0) GO TO 800 C C CALCULATE THE CONSISTENT/CONVENTIONAL MASS MATRIX C C CALL THE MAT ROUTINE TO FETCH SINGLE PRECISION MATERIAL PROPERTIES C MATIDC = IMATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) C C C COMPUTE TERMS OF THE ELEMENT MASS MATRIX C BL22 = 22.*FL BL13 = 13.*FL BLSQ4 = 4.0*FL**2 BLSQ3 = 3.0*FL**2 C C CONSTRUCT THE ELEMENT MASS MATRIX. C DO 610 I = 1,12 DO 610 J = 1,12 610 M( I, J) = 0. M( 1, 1) = 175. M( 1, 7) = 35. M( 2, 2) = 156. M( 2, 6) = BL22 M( 2, 8) = 54. M( 2,12) =-BL13 M( 3, 3) = 156. M( 3, 5) =-BL22 M( 3, 9) = 54. M( 3,11) = BL13 M( 5, 5) = BLSQ4 M( 5, 9) =-BL13 M( 5,11) =-BLSQ3 M( 6, 6) = BLSQ4 M( 6, 8) = BL13 M( 6,12) =-BLSQ3 M( 7, 7) = 175. M( 8, 8) = 156. M( 8,12) =-BL22 M( 9, 9) = 156. M( 9,11) = BL22 M(11,11) = BLSQ4 M(12,12) = BLSQ4 C C STORE THE UPPER TRIANGULAR PART OF THE MATRIX IN THE LOWER PART. C DO 625 I = 1,10 LOW = I + 1 DO 620 J = LOW,12 M(J,I) = M(I,J) 620 CONTINUE 625 CONTINUE C C MULTIPLY BY CONSTANT AND STORE ROW-WISE IN THE ARRAY ME C K = 0 DO 630 I = 1,12 DO 630 J = 1,12 K = K + 1 630 ME(K) = CONST*M(I,J) C C IF THERE ARE NO PIN FLAGS THERE IS NO NEED TO CALCULATE THE C ELEMENT STIFFNESS MATRIX C KA = IECPT(JPINA) KB = IECPT(JPINB) IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 705 C C COMPUTE THE STIFFNESS MATRIX KE C ASSIGN 640 TO K OR M GO TO 205 C C RETURN HERE AFTER COMPUTING THE STIFFNESS MATRIX C C C SET UP TNHE IPIN ARRAY C 640 DO 645 I = 1,5 IPIN(I ) = MOD(KA,10) IPIN(I+5) = MOD(KB,10) + 6 IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0 KA = KA/10 645 KB = KB/10 C C ALTER THE ELEMENT MASS MATRIX DUE TO PIN FLAGS. NOTE THAT THE C FOLLOWING CODE IS CONGRUENT AS IT WERE TO THE CODE IN SUBROUTINE C DBEAM IN THE DSMG1 MODULE. C DO 700 J = 1,10 IF (IPIN(J) .EQ. 0) GO TO 700 JJ = 12*(IPIN(J)-1) + IPIN(J) IF (KE(JJ) .EQ. 0.) GO TO 680 DO 660 I = 1,12 JI = 12*(IPIN(J)-1) + I IJ = 12*(I-1) + IPIN(J) DO 650 L1 = 1,12 IL = 12*(I-1) + L1 LJ = 12*(L1-1) + IPIN(J) MEP(IL) = ME(IL) - KE(LJ)*ME(JI)/KE(JJ) - KE(JI)*ME(LJ)/KE(JJ) 2 + KE(LJ)*KE(JI)*ME(JJ)/KE(JJ)**2 650 CONTINUE 660 CONTINUE DO 670 K = 1,144 670 ME(K) = MEP(K) C C ZERO OUT THE IPIN(J) TH ROW AND COLUMN OF ME C 680 J1 = JJ - IPIN(J) J2 = IPIN(J) DO 690 K = 1,12 J1 = J1 + 1 ME(J1) = 0. ME(J2) = 0. 690 J2 = J2 + 12 700 CONTINUE C C E E E C STORE M AT KK(1 TO 36), M AT KK (37 TO 72), M AT KK(73 TO 108) C AA AB BA C C E C AND M AT KK(109 TO 144) C BB C 705 J = 0 DO 720 I = 1,72,12 LOW = I LIM = LOW + 5 DO 710 K = LOW,LIM J = J + 1 KK(J) = ME(K) KK(J+ 36) = ME(K+ 6) KK(J+ 72) = ME(K+72) 710 KK(J+108) = ME(K+78) 720 CONTINUE C C CALCULATE THE TRANSFORMATION VECTORS C ASSIGN 750 TO K OR M GO TO 358 C C OUTPUT THE CONSISTENT MASS MATRIX C 750 DICT(2) = 1 DICT(3) = NDOF DICT(4) = ICODE DICT(5) = 0 CALL EMGOUT (KE(1),KE(1),144,1,DICT,2,IPREC) RETURN C C CALCULATE THE CONVENTIONAL MASS MATRIX HERE C C GET RHO FROM MPT BY CALLING MAT C 800 MATIDC = IMATID MATFLG = 4 ELTEMP = TEMPEL CALL MAT (ECPT(1)) DO 810 I = 1,72 810 MEP(I) = 0. FM = .5*FL*(RHO*A + NSM) C C DETERMINE IF THE GRID POINT IS ASSOCIATED WITH A NON-ZERO OFFSET. C JOFSET = 9 DO 850 II = 1,2 IX = (II-1)*36 J = JOFSET DO 815 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.) GO TO 820 815 CONTINUE GO TO 840 C C FORM UPPER RIGHT CORNER OF THE MATRIX C 820 MEP(IX+ 1) = 1. MEP(IX+ 8) = 1. MEP(IX+15) = 1. MEP(IX+ 5) = ECPT(JOFSET+3) MEP(IX+ 6) = -ECPT(JOFSET+2) MEP(IX+12) = ECPT(JOFSET+1) MEP(IX+10) = -MEP(IX+ 5) MEP(IX+16) = -MEP(IX+ 6) MEP(IX+17) = -MEP(IX+12) MEP(IX+20) = -MEP(IX+ 5) MEP(IX+21) = -MEP(IX+ 6) MEP(IX+25) = -MEP(IX+10) MEP(IX+27) = -MEP(IX+12) MEP(IX+31) = -MEP(IX+16) MEP(IX+32) = -MEP(IX+17) MEP(IX+22) = ECPT(JOFSET+3)**2 + ECPT(JOFSET+2)**2 MEP(IX+29) = ECPT(JOFSET+3)**2 + ECPT(JOFSET+1)**2 MEP(IX+36) = ECPT(JOFSET+2)**2 + ECPT(JOFSET+1)**2 MEP(IX+23) = -ECPT(JOFSET+1)*ECPT(JOFSET+2) MEP(IX+24) = -ECPT(JOFSET+1)*ECPT(JOFSET+3) MEP(IX+30) = -ECPT(JOFSET+2)*ECPT(JOFSET+3) MEP(IX+28) = MEP(IX+23) MEP(IX+34) = MEP(IX+24) MEP(IX+35) = MEP(IX+30) C C MULTIPLY M BY THE CONSTANT FL C DO 830 I = 1,36 IS = IX + I 830 MEP(IS) = MEP(IS)*FM GO TO 850 C C HERE WE HAVE A ZERO OFFSET VECTOR C 840 MEP(IX+ 1) = FM MEP(IX+ 8) = FM MEP(IX+15) = FM 850 JOFSET = 12 C C INSERT M AND M SUBMATRICES INTO M ACCORDING TO INCREASING SIL C A B C DO 860 I = 1,144 860 ME(I) = 0. C IF (ISILNO(1)-ISILNO(2)) 870,870,880 870 IX1 = 1 IX2 = 37 GO TO 890 880 IX1 = 37 IX2 = 1 890 CONTINUE DO 900 JJ = 1,36 MM = MOD(JJ,6) IF (MM .EQ. 0) MM = 6 I = ((JJ-1)/6)*12 + MM J = I + 78 ME(I) = MEP(IX1) ME(J) = MEP(IX2) IX1 = IX1 + 1 900 IX2 = IX2 + 1 C C OUTPUT THE CONVENTIONAL MASS MATRIX C DICT(2) = 1 DICT(3) = NDOF DICT(4) = ICODE DICT(5) = 0 C CALL EMGOUT ( ME,ME,144,1,DICT,2,IPREC) C RETURN C C HEAT FORMULATION CONTINUES HERE. GET MATERIAL PROPERTY -K- FROM C HMAT C 500 MATFLG = 1 MATIDC = IECPT(16) ELTEMP = ECPT(42) DICT(2) = 1 DICT(3) = 2 DICT(4) = 1 DICT(5) = 0 IF (ISTIF .EQ. 0) GO TO 540 CALL HMAT (IELID) C KK(1) = FK*ECPT(17)/FL IF (KK(1) .EQ. 0.) GO TO 520 KK(2) =-KK(1) KK(3) = KK(2) KK(4) = KK(1) CALL EMGOUT (KK(1),KK(1),4,1,DICT,1,IPREC) C 520 MATFLG = 4 C C ERROR IN NEXT CARD FOR HEAT FORMULATION. REMOVED BY C G.CHAN/UNISYS, 1984 C ALSO, CHANGE GO TO 520 TO 540, 11-TH CARD ABOVE, AND C CALL EMGOUT BELOW AND WRITE TO THE 3-RD FILE INSTEAD OF THE 2-ND. C C CALL HMAT (IELID) KK(1) = (FK*ECPT(17))*FL/2. IF (KK(1) .EQ. 0.) RETURN KK(2) = KK(1) DICT(2) = 2 CALL EMGOUT (KK(1),KK(1),2,1,DICT,3,IPREC) 540 RETURN C C ERROR RETURNS C 7770 CONTINUE WRITE (IOUTPT,7775) UFM,IELID 7775 FORMAT (A23,' 3176, BAR ELEMENT ID',I9, 1 ' HAS ILLEGAL GEOMETRY OR CONNECTIONS.') NOGO = .TRUE. RETURN END ================================================ FILE: mis/basglb.f ================================================ SUBROUTINE BASGLB (VIN1,VOUT1,PONT,ICSTM) C C THIS ROUTINE CONTAINS FOUR ENTRY POINTS C C 1- BASGLB TRANSFORMS A VECTOR FROM BASIC TO GLOBAL C 2- GLBBAS TRANSFORMS A VECTOR FROM GLOBAL TO BASIC C 3- FDCSTM FINDS THE LOGICAL RECORD ON THE CSTM FOR A PARTICULAR ID C 4- GBTRAN FINDS A PARTICULAR GLOBAL TO BASIC TRANSFORMATION AND C RETURNS IT AS A 3 X 3 STORED BY ROWS. C C LOGICAL TONLY INTEGER CSTM,TYSYS,CHECK REAL T(9) DIMENSION VIN(3),VIN1(3),VOUT1(3),TI(3,3),TL(3,3), 1 PONT(3),PONT1(3),TZ(3,3),IPARM(2) COMMON /XCSTM / TZ COMMON /LOADX / LC(4),CSTM,LC1(10),IDUM(3),ICM COMMON /TRANX / NSYS,TYSYS,RO(3),TO(3,3) COMMON /SYSTEM/ IBUF,NOUT DATA IPARM/ 4HBASG,2HLB / C C NSYS IS SYSTEM NUMBER C TYSYS IS SYSTEM TYPE C RO IS LOCATION OF ORIGIN C TO IS ROTATION MATRIX C TONLY = .FALSE. CHECK = 123456789 ASSIGN 90 TO IEXIT GO TO 10 C C ENTRY GBTRAN (ICSTM,PONT,T) C =========================== C IF (ICSTM .EQ. 0) GO TO 300 IF (TYSYS.GE.2 .AND. CHECK.NE.123456789) WRITE (NOUT,5) 5 FORMAT ('0*** SYSTEM POTENTIAL ERROR, GBTRAN WAS CALLED WITHOUT', 1 ' FIRST CALLING BASGLB') CHECK = 123456789 TONLY = .TRUE. GO TO 235 C C ENTRY FDCSTM (ICSTM) C ==================== C TONLY = .FALSE. ASSIGN 50 TO IEXIT C C FDCSTM WILL FIND REQUESTED SYSTEM (ICSTM) C 10 CONTINUE IF (ICSTM .EQ. 0) GO TO 81 IF (ICM .NE. 0) GO TO 80 IF (ICSTM-NSYS) 20,40,20 20 CALL READ (*60,*80,CSTM,NSYS,14,0,FLAG) IF (ICSTM-NSYS) 20,30,20 30 CALL BCKREC (CSTM) 40 GO TO IEXIT, (90,240,50) 50 RETURN C 60 N1 = -2 IPARM1 = CSTM 70 CALL MESAGE (N1,IPARM1,IPARM) C C UNABLE TO FIND REQUESTED COORDINATE SYSTEM C 80 N1 =-30 IPARM1 = 25 IPARM(1)= ICSTM GO TO 70 C C REQUEST FOR BASIC COORDINATE SYSTEM C 81 CONTINUE TYSYS = 1 NSYS = 0 RO(1) = 0.0 RO(2) = 0.0 RO(3) = 0.0 DO 82 I = 1,3 DO 82 J = 1,3 TO(J,I) = 0.0 82 CONTINUE TO(1,1) = 1.0 TO(2,2) = 1.0 TO(3,3) = 1.0 GO TO 40 C C CONVERTS BASIC TO GLOBAL C 90 IOTH = 0 C C RECTANGULAR C 100 DO 120 I = 1,3 DO 110 J = 1,3 TZ(I,J) = TO(J,I) 110 TI(I,J) = TO(J,I) 120 VIN(I) = VIN1(I) IF (TYSYS-2) 130,140,140 130 CALL MPYL (TI(1,1),VIN(1),3,3,1,VOUT1(1)) GO TO 50 C C CYLINDRICAL C 140 DO 150 I = 1,3 150 PONT1(I) = PONT(I) - RO(I) CALL MPYL (TI(1,1),PONT1(1),3,3,1,VIN(1)) DO 160 I = 1,3 DO 160 J = 1,3 160 TL(I,J) = 0.0 R = SQRT(VIN(1)*VIN(1) + VIN(2)*VIN(2)) IF (R .EQ. 0.0) GO TO 210 IF (TYSYS .GT. 2) GO TO 230 TL(3,3) = 1.0 TL(1,1) = VIN(1)/R TL(2,2) = TL(1,1) TL(2,1) = VIN(2)/R TL(1,2) =-TL(2,1) 170 CALL MPYL (TL(1,1),TI(1,1),3,3,3,TZ(1,1)) 180 IF (TONLY) GO TO 201 IF ( IOTH) 270,190,270 190 DO 200 I = 1,3 200 VIN(I) = VIN1(I) CALL MPYL (TZ(1,1),VIN(1),3,3,1,VOUT1(1)) GO TO 50 C C RETURN THE TRANSFORMATION ONLY C 201 T(1) = TZ(1,1) T(2) = TZ(1,2) T(3) = TZ(1,3) T(4) = TZ(2,1) T(5) = TZ(2,2) T(6) = TZ(2,3) T(7) = TZ(3,1) T(8) = TZ(3,2) T(9) = TZ(3,3) GO TO 50 C C ORIENTATION ARBITARY TL = I I.E. TZ = TI C 210 DO 220 I = 1,3 DO 220 J = 1,3 TZ(I,J) = TI(I,J) 220 CONTINUE GO TO 180 C C SPHERICAL C 230 XL = SQRT(VIN(1)*VIN(1) + VIN(2)*VIN(2) + VIN(3)*VIN(3)) XR = VIN(1)/R YR = VIN(2)/R ZL = VIN(3)/XL C C BUILD TL TRANSPOSE C TL(1,1) = VIN(1)/XL TL(1,2) = XR*ZL TL(1,3) =-YR TL(2,1) = VIN(2)/XL TL(2,2) = YR*ZL TL(2,3) = XR TL(3,1) = ZL TL(3,2) =-R/XL GO TO 170 C C ENTRY GLBBAS (VIN1,VOUT1,PONT,ICSTM) C ==================================== C TONLY = .FALSE. 235 ASSIGN 240 TO IEXIT IOTH = 1 GO TO 10 C C CONVERTS FROM GLOBAL TO BASIC C 240 IF (TYSYS-2) 250,100,100 250 IF ( TONLY ) GO TO 261 DO 260 I = 1,3 260 VIN(I) = VIN1(I) CALL MPYL (TO(1,1),VIN(1),3,3,1,VOUT1(1)) GO TO 50 C C RETURN THE TRANSFORMATION ONLY. C 261 T(1) = TO(1,1) T(2) = TO(2,1) T(3) = TO(3,1) T(4) = TO(1,2) T(5) = TO(2,2) T(6) = TO(3,2) T(7) = TO(1,3) T(8) = TO(2,3) T(9) = TO(3,3) GO TO 50 C C COMPUTE TL TRANSPOSE C C TRANSPOSE ROTATION PRODUCT C 270 DO 280 I = 1,3 VIN(I) = VIN1(I) DO 280 J = 1,3 280 TI(I,J) = TZ(J,I) CALL MPYL (TI(1,1),VIN(1),3,3,1,VOUT1(1)) GO TO 50 C C COORDINATE SYSTEM 0 C 300 DO 310 I = 2,8 310 T(I) = 0. T(1) = 1. T(5) = 1. T(9) = 1. GO TO 50 END ================================================ FILE: mis/bdat01.f ================================================ SUBROUTINE BDAT01 C C THIS SUBROUTINE PROCESSES CONCT1 BULK DATA GENERATING C CONNECTION ENTRIES IN TERMS OF GRID POINT ID NUMBERS C CODED TO THE PSEUDO-STRUCTURE ID NUMBER. C THESE ARE THEN WRITTEN ON SCR1. C EXTERNAL RSHIFT,ANDF LOGICAL TDAT,PRINT INTEGER IO(9),ID(14),IS(7),IC(7),SCR1,CONSET,GEOM4,AAA(2), 1 FLAG,BUF1,CONCT1(2),BUF2,OUTT,ANDF,RSHIFT,COMBO DIMENSION IBITS(32),JBITS(32),NAME(14),IHD(16) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC COMMON /ZZZZZZ/ Z(1) COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT COMMON /CMB004/ TDAT(6) COMMON /CMBFND/ INAM(2),IERR COMMON /OUTPUT/ ITITL(96),IHEAD(96) COMMON /BLANK / STEP,IDRY DATA AAA / 4HBDAT,4H01 / , CONCT1 / 110,41 / DATA IHD / 4H SU , 4HMMAR , 4HY OF , 4H CON , 4HNECT , 1 4HION , 4HENTR , 4HIES , 4HSPEC , 4HIFIE , 2 4HD BY , 4H CON , 4HCT1 , 4HBULK , 4H DAT , 3 4HA / DATA IBLNK / 4H / C DO 10 I = 1,96 IHEAD(I) = IBLNK 10 CONTINUE J = 1 DO 15 I = 73,88 IHEAD(I) = IHD(J) 15 J = J + 1 PRINT = .FALSE. IF (ANDF(RSHIFT(IPRINT,2),1) .EQ. 1) PRINT = .TRUE. NP2 = 2*NPSUB DO 20 I = 1,NP2,2 J = I/2 + 1 NAME(I ) = COMBO(J,1) NAME(I+1) = COMBO(J,2) 20 CONTINUE IFILE = SCR1 CALL OPEN (*320,SCR1,Z(BUF2),1) CALL LOCATE (*400,Z(BUF1),CONCT1,FLAG) IFILE = GEOM4 30 CALL READ (*300,*210,GEOM4,ID,2,0,N) NSS = ID(1) NSSP1 = NSS + 1 IF (ID(2) .EQ. CONSET) GO TO 50 40 CALL READ (*300,*310,GEOM4,ID,1,0,NNN) IF (ID(1) .NE. -1) GO TO 40 GO TO 30 50 NWD = 2*NSS IF (.NOT.PRINT) GO TO 70 CALL PAGE CALL PAGE2 (6) WRITE (OUTT,60) (NAME(KDH),KDH=1,NP2) 60 FORMAT (/24X,74HNOTE GRID POINT ID NUMBERS HAVE BEEN CODED TO THE 1 COMPONENT SUBSTRUCTURE, /30X,75HWITHIN A GIVEN PSEUDOSTRUCTURE BY 2 - 1000000*COMPONENT NO. + ACTUAL GRID ID.,//15X,22HCONNECTED CO 3NNECTION,23X,33HGRID POINT ID FOR PSEUDOSTRUCTURE, /18X,3HDOF,9X, 44HCODE,3X,7(3X,2A4)/) 70 CONTINUE C C MAKING IT TO 50 IMPLIES THAT CONCT1 DATA EXISTS C TDAT(1) = .TRUE. CALL READ (*300,*310,GEOM4,ID,NWD,0,NNN) DO 90 I = 1,NSS J = 2*(I-1) CALL FINDER (ID(1+J),IS(I),IC(I)) IF (IERR .NE. 1) GO TO 90 WRITE (OUTT,80) UFM,ID(1+J),ID(2+J) 80 FORMAT (A23,' 6522, THE BASIC SUBSTRUCTURE ',2A4, /30X, 1 'REFERED TO BY A CONCT1 BULK DATA CARD CAN NOT BE FOUND ', 2 'IN THE PROBLEM TABLE OF CONTENTS.') IDRY = -2 90 CONTINUE 100 DO 110 I = 1,9 110 IO(I) = 0 DO 120 I = 1,NSSP1 CALL READ (*300,*310,GEOM4,ID(I),1,0,NNN) IF (ID(I) .EQ. -1) GO TO 30 120 CONTINUE DO 140 I = 1,NSS DO 130 J = 1,NSS IF (I .EQ. J) GO TO 130 IF (IS(I).EQ.IS(J) .AND. ID(I+1).NE.0 .AND. ID(J+1).NE.0) 1 GO TO 150 130 CONTINUE 140 CONTINUE GO TO 170 150 KK = 2*IS(I) - 1 WRITE (OUTT,160) UFM,ID(I+1),ID(J+1),NAME(KK),NAME(KK+1) 160 FORMAT (A23,' 6536, MANUAL CONNECTION DATA IS ATTEMPTING TO ', 1 'CONNECT', /31X,'GRID POINTS',I9,5X,4HAND ,I8, /31X, 2 'WHICH ARE BOTH CONTAINED IN PSEUDOSTRUCTURE ',2A4) IDRY = -2 170 CALL ENCODE (ID(1)) IO(1) = ID(1) ISUM = 0 DO 180 I = 1,NSS IF (ID(I+1) .EQ. 0) GO TO 180 IF (ID(I+1) .NE. 0) ISUM = ISUM + 2**(IS(I)-1) M = 2 + IS(I) IO(M) = IC(I)*1000000 + ID(I+1) 180 CONTINUE IO(2) = -1*ISUM NWD = 2 + NPSUB CALL WRITE (SCR1,IO,NWD,1) IF (.NOT.PRINT .OR. IDRY.EQ.-2) GO TO 200 CALL BITPAT (IO(1),IBITS) CALL BITPAT (IABS(IO(2)),JBITS) CALL PAGE2 (1) WRITE (OUTT,190) (IBITS(KDH),KDH=1,2),(JBITS(KDH),KDH=1,2), 1 (IO(KDH+2),KDH=1,NPSUB) 190 FORMAT (16X,A4,A2,6X,A4,A3,2X,7(3X,I8)) 200 CONTINUE GO TO 100 210 CONTINUE GO TO 400 C 300 IMSG = -2 GO TO 330 310 IMSG = -3 GO TO 330 320 IMSG = -1 330 CALL MESAGE (IMSG,IFILE,AAA) 400 CALL CLOSE (SCR1,2) RETURN END ================================================ FILE: mis/bdat02.f ================================================ SUBROUTINE BDAT02 C C THIS SUBROUTINE PROCESSES CONCT BULK DATA AND WRITES CONNECTION C ENTRIES IN TERMS OF CODED GRID POINT ID NUMBERS ON SCR1 C EXTERNAL RSHIFT,ANDF LOGICAL TDAT,PRINT INTEGER SCR1,OUTT,BUF1,BUF2,CONCT(2),FLAG,GEOM4,ID(2), 1 COMP,NAMS(4),IO(9),AAA(2),CONSET,ANDF,RSHIFT,COMBO DIMENSION IBITS(32),JBITS(32),NAME(14),IHD(16) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC COMMON /ZZZZZZ/ Z(1) COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT COMMON /CMB004/ TDAT(6) COMMON /OUTPUT/ ITITL(96),IHEAD(96) COMMON /CMBFND/ INAM(2),IERR COMMON /BLANK / STEP,IDRY DATA AAA / 4HBDAT,4H02 / , CONCT / 210,2 / DATA IHD / 4H SU , 4HMMAR , 4HY OF , 4H CON , 4HNECT , 1 4HION , 4HENTR , 4HIES , 4HSPEC , 4HIFIE , 2 4HD BY , 4H CON , 4HCT , 4HBULK , 4H DAT , 3 4HA / DATA IBLNK / 4H / C DO 10 I = 1,96 IHEAD(I) = IBLNK 10 CONTINUE J = 1 DO 20 I = 73,88 IHEAD(I) = IHD(J) 20 J = J + 1 PRINT = .FALSE. IF (ANDF(RSHIFT(IPRINT,3),1) .EQ. 1) PRINT = .TRUE. NP2 = 2*NPSUB DO 30 I = 1,NP2,2 J = I/2 + 1 NAME(I ) = COMBO(J,1) NAME(I+1) = COMBO(J,2) 30 CONTINUE IFILE = SCR1 CALL OPEN (*220,SCR1,Z(BUF2),3) CALL LOCATE (*180,Z(BUF1),CONCT,FLAG) IFILE = GEOM4 40 CALL READ (*200,*170,GEOM4,ID,1,0,N) IF (ID(1) .EQ. CONSET) GO TO 60 CALL READ (*200,*210,GEOM4,ID,-5,0,N) 50 CALL READ (*200,*210,GEOM4,ID,2,0,N) IF (ID(1)+ID(2) .NE. -2) GO TO 50 GO TO 40 60 CALL READ (*200,*210,GEOM4,COMP,1,0,N) IF (.NOT.PRINT) GO TO 80 CALL PAGE CALL PAGE2 (6) WRITE (OUTT,70) (NAME(KDH),KDH=1,NP2) 70 FORMAT (/24X,74HNOTE GRID POINT ID NUMBERS HAVE BEEN CODED TO THE 1 COMPONENT SUBSTRUCTURE ,/30X,75HWITHIN A GIVEN PSEUDOSTRUCTURE BY 2 - 1000000*COMPONENT NO. + ACTUAL GRID ID., //15X,22HCONNECTED C 3ONNECTION,23X,33HGRID POINT ID FOR PSEUDOSTRUCTURE/18X,3HDOF,9X, 44HCODE,3X,7(3X,2A4)/) 80 CONTINUE TDAT(2) = .TRUE. CALL ENCODE (COMP) CALL READ (*200,*210,GEOM4,NAMS,4,0,N) CALL FINDER (NAMS(1),IS1,IC1) IF (IERR .NE. 1) GO TO 90 WRITE (OUTT,100) UFM,NAMS(1),NAMS(2) IDRY = -2 90 CONTINUE CALL FINDER (NAMS(3),IS2,IC2) IF (IERR .NE. 1) GO TO 110 WRITE (OUTT,100) UFM,NAMS(3),NAMS(4) IDRY = -2 100 FORMAT (A23,' 6523, THE BASIC SUBSTRUCTURE ',2A4, /30X, 1 'REFERED TO BY A CONCT BULK DATA CARD CAN NOT BE FOUND ', 2 'IN THE PROBLEM TABLE OF CONTENTS.') 110 CALL READ (*200,*210,GEOM4,ID,2,0,N) C IF (ID(1)+ID(2) .EQ. -2) GO TO 40 IF (IS1 .NE. IS2) GO TO 130 KK = 2*IS1 - 1 WRITE (OUTT,120) UFM,ID(1),ID(2),NAME(KK),NAME(KK+1) 120 FORMAT (A23,' 6536, MANUAL CONNECTION DATA IS ATTEMPTING TO ', 1 'CONNECT', /31X,'GRID POINTS',I9,5X,4HAND ,I8, /31X, 2 'WHICH ARE BOTH CONTAINED IN PSEUDOSTRUCTURE ',2A4) IDRY = -2 130 CONTINUE DO 140 I = 1,9 140 IO(I) = 0 IO(1) = COMP IO(2) = 2**(IS1-1) + 2**(IS2-1) IO(2+IS1) = IC1*1000000 + ID(1) IO(2+IS2) = IC2*1000000 + ID(2) NWD = 2 + NPSUB CALL WRITE (SCR1,IO,NWD,1) IF (.NOT.PRINT .OR. IDRY.EQ.-2) GO TO 160 CALL BITPAT (IO(1),IBITS) CALL BITPAT (IO(2),JBITS) CALL PAGE2 (1) WRITE (OUTT,150) (IBITS(KDH),KDH=1,2),(JBITS(KDH),KDH=1,2), 1 (IO(KDH+2),KDH=1,NPSUB) 150 FORMAT (16X,A4,A2,6X,A4,A3,2X,7(3X,I8)) 160 CONTINUE GO TO 110 170 CONTINUE 180 CALL CLOSE (SCR1,1) RETURN C 200 IMSG = -2 GO TO 230 210 IMSG = -3 GO TO 230 220 IMSG = -1 230 CALL MESAGE (IMSG,IFILE,AAA) RETURN END ================================================ FILE: mis/bdat03.f ================================================ SUBROUTINE BDAT03 C C THIS SUBROUTINE PROCESSES TRANS BULK DATA, GENERATES THE C TRANSFORMATION MATRIX, AND WRITES TO SCBDAT. C EXTERNAL RSHIFT,ANDF LOGICAL TDAT INTEGER BUF1,TRANS(2),GEOM4,COMBO,AAA(2),OUTT,BUF2,BUF4, 1 ANDF,RSHIFT,IHD(10),Z DIMENSION TEMP(9),XAX(3),YAX(3),ZAX(3),V2(3),OUT(9) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC COMMON /ZZZZZZ/ Z(1) COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INTP,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT COMMON /OUTPUT/ ITITL(96),IHEAD(96) COMMON /SYSTEM/ XXX,IOT,JUNK(6),NLPP,JUNK1(2),LINE,JUNK2(2), 1 IDAT(3) COMMON /CMB004/ TDAT(6) COMMON /BLANK / STEP,IDRY DATA IHD / 4H SU , 4HMMAR , 4HY OF , 4H PRO , 4HCESS , 1 4HED T , 4HRANS , 4H BUL , 4HK DA , 4HTA / DATA TRANS / 310,3 /, AAA / 4HBDAT,4H03 / , 1 IBLNK / 4H / C NGTRN = Z(BUF4) INUM = 1 IERR = 0 DO 10 I = 1,7 DO 10 J = 1,3 ORIGIN(I,J) = 0.0 10 CONTINUE DO 20 I = 1,96 IHEAD(I) = IBLNK 20 CONTINUE J = 1 DO 30 I = 76,85 IHEAD(I) = IHD(J) 30 J = J + 1 CALL LOCATE (*220,Z(BUF1),TRANS(1),FLAG) IFILE = GEOM4 40 CALL READ (*300,*130,GEOM4,ID,1,0,N) DO 50 I = 1,NPSUB IT = 1 IF (ID .EQ. COMBO(I,3)) GO TO 80 50 CONTINUE IF (NGTRN .EQ. 0) GO TO 70 DO 60 I = 1,NGTRN IT = 2 IF (ID .EQ. Z(BUF4+I)) GO TO 80 60 CONTINUE 70 CONTINUE CALL READ (*300,*310,GEOM4,TEMP,-9,0,NNN) GO TO 40 80 TDAT(3) = .TRUE. IF (IT .EQ. 1) COMBO(I,3) = -COMBO(I,3) IF (IT .EQ. 2) Z(BUF4+I) = -Z(BUF4+I) CALL READ (*300,*310,GEOM4,TEMP,9,0,NNN) IF (IT .NE. 1) GO TO 100 DO 90 LL = 1,3 ORIGIN(I,LL) = TEMP(LL) 90 CONTINUE 100 CONTINUE C C DEFINE Z-AXIS C ZAX(1) = TEMP(4) - TEMP(1) ZAX(2) = TEMP(5) - TEMP(2) ZAX(3) = TEMP(6) - TEMP(3) C C DEFINE Y-AXIS C V2(1) = TEMP(7) - TEMP(1) V2(2) = TEMP(8) - TEMP(2) V2(3) = TEMP(9) - TEMP(3) YAX(1) = ZAX(2)*V2(3) - ZAX(3)*V2(2) YAX(2) = ZAX(3)*V2(1) - ZAX(1)*V2(3) YAX(3) = ZAX(1)*V2(2) - ZAX(2)*V2(1) C C DEFINE X-AXIS C XAX(1) = YAX(2)*ZAX(3) - ZAX(2)*YAX(3) XAX(2) = YAX(3)*ZAX(1) - ZAX(3)*YAX(1) XAX(3) = YAX(1)*ZAX(2) - ZAX(1)*YAX(2) C C CHANGE TO UNIT VECTORS C ZMAG = SQRT(ZAX(1)**2 + ZAX(2)**2 + ZAX(3)**2) YMAG = SQRT(YAX(1)**2 + YAX(2)**2 + YAX(3)**2) XMAG = SQRT(XAX(1)**2 + XAX(2)**2 + XAX(3)**2) DO 110 I = 1,3 ZAX(I) = ZAX(I)/ZMAG YAX(I) = YAX(I)/YMAG XAX(I) = XAX(I)/XMAG 110 CONTINUE CALL WRITE (SCBDAT,ID,1,0) CALL WRITE (SCBDAT, 1,1,0) CALL WRITE (SCBDAT,TEMP(1),3,0) OUT(1) = XAX(1) OUT(2) = YAX(1) OUT(3) = ZAX(1) OUT(4) = XAX(2) OUT(5) = YAX(2) OUT(6) = ZAX(2) OUT(7) = XAX(3) OUT(8) = YAX(3) OUT(9) = ZAX(3) CALL WRITE (SCBDAT,OUT,9,0) IF (ANDF(RSHIFT(IPRINT,6),1) .NE. 1) GO TO 120 INUM = INUM + 1 IF (MOD(INUM,2) .EQ. 0) CALL PAGE WRITE (OUTT,430) ID WRITE (OUTT,440) (TEMP(I),I=1,3) WRITE (OUTT,420) ( OUT(I),I=1,9) 120 CONTINUE GO TO 40 130 CONTINUE C C PROCESS REPEATED GTRAN IDS C IF (NGTRN .LT. 2) GO TO 160 NGTRN1 = NGTRN - 1 DO 150 I = 1,NGTRN1 IF (Z(BUF4+I) .GE. 0) GO TO 150 KK = I + 1 DO 140 J = KK,NGTRN IF (IABS(Z(BUF4+I)) .EQ. Z(BUF4+J)) Z(BUF4+J) = -Z(BUF4+J) 140 CONTINUE 150 CONTINUE 160 NPM1 = NPSUB - 1 DO 190 I = 1,NPM1 IF (COMBO(I,3) .GE. 0) GO TO 190 KK = I + 1 DO 180 J = KK,NPSUB IF (IABS(COMBO(I,3)) .NE. COMBO(J,3)) GO TO 180 COMBO(J,3) = -COMBO(J,3) DO 170 JDH = 1,3 ORIGIN(J,JDH) = ORIGIN(I,JDH) 170 CONTINUE 180 CONTINUE 190 CONTINUE C C TEST TO SEE THAT ALL TRANS HAVE BEEN FOUND C DO 200 I = 1,NPSUB IF (COMBO(I,3) .LE. 0) GO TO 200 IERR = 1 WRITE (OUTT,400) UFM,COMBO(I,3) 200 CONTINUE IF (NGTRN .EQ. 0) GO TO 220 DO 210 I = 1,NGTRN IF (Z(BUF4+I) .LE. 0) GO TO 210 IERR = 1 WRITE (OUTT,410) UFM,Z(BUF4+I) 210 CONTINUE 220 CALL EOF (SCBDAT) CALL WRITE (SCBDAT,ID,1,1) CALL CLOSE (SCBDAT,1) DO 230 I = 1,NPSUB COMBO(I,3) = IABS(COMBO(I,3)) 230 CONTINUE IF (IERR .EQ. 1) IDRY = -2 RETURN C 300 IMSG = -2 GO TO 320 310 IMSG = -3 320 CALL MESAGE (IMSG,IFILE,AAA) RETURN C 400 FORMAT (A23,' 6511, THE REQUESTED TRANS SET ID',I9, 1 ' HAS NOT BEEN DEFINED BY BULK DATA.') 410 FORMAT (A23,' 6513, THE TRANS SET ID',I9,' REQUESTED BY A GTRAN ', 1 'BULK DATA CARD HAS NOT BEEN DEFINED.') 420 FORMAT (43X,5H*****,42X,5H*****, /3(43X,1H*,50X,1H*, /43X,1H*,1X, 1 3E15.6,4X,1H*,/),43X,1H*,50X,1H*, /43X,5H*****,42X,5H*****) 430 FORMAT (//48X,34HTRANS SET IDENTIFICATION NUMBER = ,I8) 440 FORMAT ( /50X,37HCOORDINATES OF ORIGIN IN BASIC SYSTEM , 1 /45X,3E15.6, //58X,21HTRANSFORMATION MATRIX/) END ================================================ FILE: mis/bdat04.f ================================================ SUBROUTINE BDAT04 C C THIS SUBROUTINE PROCESSES THE RELES BULK DATA. C EXTERNAL RSHIFT,ANDF LOGICAL NAME,TDAT,PRINT,PAGER INTEGER SCR2,BUF2,BUF1,RELES(2),FLAG,GEOM4,ID(2),AAA(2), 1 CONSET,IP(6),ICC(6),ANDF,SCBDAT,RSHIFT,IHD(96), 2 OUTT,IBAS(2) DIMENSION IBITS(32),JBITS(32),KBITS(32) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /ZZZZZZ/ Z(1) COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON, 1 SCTOC,GEOM4,CASECC COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT COMMON /CMB004/ TDAT(6) COMMON /CMBFND/ INAM(2),IERR COMMON /OUTPUT/ ITITL(96),IHEAD(96) COMMON /SYSTEM/ XXX,IOT,JUNK(6),IPAGE,LINE,ITLINE,MAXLIN,IDAT(3) COMMON /BLANK / STEP,IDRY DATA IHD / 11*4H ,4H SU,4HMMAR,4HY OF,4H PRO,4HCESS, 1 4HED R,4HELES,4H BUL,4HK DA,4HTA ,18*4H , 2 4H B,4HASIC,2*4H ,4H GRI,4HD ,4H , 3 4HREQU,4HESTE,4HD ,4H IN,4HTERN, 4HAL , 4 4H C,4HURRE,4HNT ,4H DO,4HF TO, 4H BE , 5 13*4H ,4HSUBS,4HTRUC,4HTURE,4H P,4HOINT, 6 4H ID ,4H ,4H REL,4HEASE,4H ,4H PO,4HINT , 7 4HNO. ,4H ,4H DOF,4H ,4H R,4HELEA,4HSED , 8 6*4H / DATA RELES / 410,4 / , AAA / 4HBDAT,4H04 / C DO 10 I = 1,96 IHEAD(I) = IHD(I) 10 CONTINUE PAGER = .TRUE. PRINT = .FALSE. IF (ANDF(RSHIFT(IPRINT,8),1) .EQ. 1) PRINT = .TRUE. IFILE = SCBDAT CALL OPEN (*200,SCBDAT,Z(BUF2),0) CALL SKPFIL (SCBDAT,3) CALL CLOSE (SCBDAT,2) CALL OPEN (*200,SCBDAT,Z(BUF2),3) IFILE = SCR2 CALL LOCATE (*170,Z(BUF1),RELES,FLAG) IFILE = GEOM4 20 CALL READ (*210,*160,GEOM4,ID,1,0,N) IF (ID(1) .EQ. CONSET) GO TO 40 30 CALL READ (*210,*220,GEOM4,ID,2,0,N) IF (ID(1)+ID(2) .NE. -2) GO TO 30 GO TO 20 40 NAME = .TRUE. IF (PAGER .AND. PRINT) CALL PAGE PAGER = .FALSE. TDAT(4) = .TRUE. 50 CALL READ (*210,*220,GEOM4,ID,2,0,N) IF (ID(1)+ID(2) .NE. -2) GO TO 60 CALL WRITE (SCBDAT,ID,0,1) GO TO 20 60 IF (.NOT.NAME) GO TO 100 CALL FINDER (ID,IS,IC) IBAS(1) = ID(1) IBAS(2) = ID(2) IF (IERR .NE. 1) GO TO 90 WRITE (OUTT,70) UFM,(ID(K),K=1,2) 70 FORMAT (A23,' 6517, THE BASIC SUBSTRUCTURE ',2A4, /30X, 1 'REFERED TO BY A RELES BULK DATA CARD CAN NOT BE FOUND ', 2 'IN THE PROBLEM TABLE OF CONTENTS.') IDRY = -2 80 CALL READ (*210,*220,GEOM4,ID,2,0,N) IF (ID(1)+ID(2) .NE. -2) GO TO 80 GO TO 20 90 CONTINUE CALL WRITE (SCBDAT,IS,1,0) NAME = .NOT.NAME GO TO 50 100 CALL FNDGRD (IS,IC,ID(1),IP,ICC,N) IF (IERR .NE. 1) GO TO 120 WRITE (OUTT,110) UFM,ID(1),INAM 110 FORMAT (A23,' 6515, GRID POINT',I10,' BASIC SUBSTRUCTURE ',2A4, 1 ' DOES NOT EXIST.') IDRY = -2 GO TO 50 120 CALL ENCODE (ID(2)) CALL BITPAT (ID(2),IBITS) DO 150 I = 1,N ICCC = ANDF(ID(2),ICC(I)) CALL BITPAT (ICCC,JBITS) ICC(I) = ANDF(ICC(I),63) CALL BITPAT (ICC(I),KBITS) IF (ICCC .EQ. 0) GO TO 150 IF (.NOT.PRINT ) GO TO 140 WRITE (OUTT,130) IBAS,ID(1),IBITS(1),IBITS(2),IP(I),KBITS(1), 1 KBITS(2),JBITS(1),JBITS(2) 130 FORMAT (35X,2A4,5X,I8,7X,A4,A2,6X,I8,6X,A4,A2,6X,A4,A2) 140 CONTINUE CALL WRITE (SCBDAT,IP(I),1,0) CALL WRITE (SCBDAT,ICCC, 1,0) 150 CONTINUE GO TO 50 160 CONTINUE 170 CALL CLOSE (SCBDAT,1) RETURN C 200 IMSG = -1 GO TO 230 210 IMSG = -2 GO TO 230 220 IMSG = -3 230 CALL MESAGE (IMSG,IFILE,AAA) RETURN END ================================================ FILE: mis/bdat05.f ================================================ SUBROUTINE BDAT05 C C THIS SUBROUTINE PROCESSES THE GNEW BULK DATA C LOGICAL TDAT INTEGER SCR2,BUF3,SCBDAT,BUF2,BUF1,GNEW(2),FLAG,GEOM4, 1 CONSET,AAA(2),Z,OUTT,SCORE CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /ZZZZZZ/ Z(1) COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON, 1 SCTOC,GEOM4,CASECC COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB COMMON /CMB004/ TDAT(6) COMMON /BLANK / STEP,IDRY DATA GNEW / 1410,14 / , AAA/ 4HBDAT,4H05 / C IFILE = SCR2 CALL OPEN (*30,SCR2,Z(BUF3),1) IFILE = GEOM4 CALL LOCATE (*20,Z(BUF1),GNEW,FLAG) WRITE (OUTT,10) UFM 10 FORMAT (A23,' 6532, THE GNEW OPTION IS NOT CURRENTLY AVAILABLE.') IDRY = -2 RETURN C 20 CALL EOF (SCBDAT) CALL CLOSE (SCR2,1) RETURN C 30 IMSG = -1 CALL MESAGE (IMSG,IFILE,AAA) RETURN END ================================================ FILE: mis/bdat06.f ================================================ SUBROUTINE BDAT06 C C THIS SUBROUTINE PROCESSES THE GTRAN BULK DATA C EXTERNAL RSHIFT,ANDF LOGICAL PRINT,TDAT CWKBI 8/94 ALPHA-VMS INTEGER GEOM4, SCR1 INTEGER SCR2,BUF3,SCBDAT,BUF2,BUF1,GTRAN(2),FLAG,ID(5), 1 COMBO,SCORE,Z,AAA(2),OUTT,BUF4,ANDF,RSHIFT,IHD(96) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /ZZZZZZ/ Z(1) COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON, 1 SCTOC,GEOM4,CASECC COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT COMMON /CMB004/ TDAT(6) COMMON /CMBFND/ INAM(2),IERR COMMON /OUTPUT/ ITITL(96),IHEAD(96) COMMON /BLANK / STEP,IDRY DATA GTRAN / 1510,15 / , AAA/ 4HBDAT,4H06 / DATA IHD / 11*4H ,4H SU,4HMMAR,4HY OF,4H PRO,4HCESS,4HED G, 1 4HTRAN,4H BUL,4HK DA,4HTA ,19*4H ,4H PSE,4HUDO-,4H , 2 4H ,4H COM,4HPONE,4HNT ,4H ,4H T,4HRANS,2*4H , 3 4HGRID,4H ,4HREFE,4HRENC,4HE ,14*4H ,4H ST,4HRUCT, 4 4HURE ,4HNO. ,4H S,4HTRUC,4HTURE,4H NO.,4H ,4H SE , 5 4HT ID,2*4H ,4H ID ,4H ,4HTRAN,4HS I,4HD ,7*2H / C IFILE = SCR1 KK = 0 PRINT = .FALSE. IF (ANDF(RSHIFT(IPRINT,5),1) .EQ. 1) PRINT = .TRUE. DO 10 I = 1,96 IHEAD(I) = IHD(I) 10 CONTINUE CALL OPEN (*100,SCR2,Z(BUF3),1) IFILE = SCBDAT CALL LOCATE (*80,Z(BUF1),GTRAN,FLAG) IF (PRINT) CALL PAGE IFILE = GEOM4 20 CALL READ (*110,*60,GEOM4,ID,1,0,N) DO 30 I = 1,NPSUB IF (ID(1) .EQ. COMBO(I,3)) GO TO 40 30 CONTINUE CALL READ (*110,*120,GEOM4,ID,-4,0,N) GO TO 20 40 TDAT(6) = .TRUE. KK = KK + 1 CALL READ (*110,*120,GEOM4,ID(2),4,0,N) CALL FINDER (ID(2),IS,IC) IF (IERR .NE. 1) GO TO 50 WRITE (OUTT,210) UFM,ID(2),ID(3) IDRY = -2 50 CONTINUE IF (PRINT) CALL PAGE2 (1) IF (PRINT) WRITE (OUTT,200) IS,IC,ID(1),ID(4),ID(5) ID(3) = ID(1) ID(1) = IS ID(2) = IC ID(4) = IC*1000000 + ID(4) Z(BUF4+KK) = ID(5) CALL WRITE (SCR2,ID,5,0) GO TO 20 60 CALL WRITE (SCR2,ID,0,1) CALL CLOSE (SCR2,1) IF (.NOT.TDAT(6)) GO TO 80 IFILE = SCR2 CALL OPEN (*100,SCR2,Z(BUF3),2) CALL READ (*110,*70,SCR2,Z(SCORE),LCORE,0,NN) GO TO 130 70 CALL SORT (0,0,5,1,Z(SCORE),NN) CALL WRITE (SCBDAT,Z(SCORE),NN,1) 80 CALL EOF (SCBDAT) Z(BUF4) = KK CALL CLOSE (SCR2,1) IF (PRINT) CALL PAGE2 (3) IF (PRINT) WRITE (OUTT,220) RETURN C 100 IMSG = -1 GO TO 140 110 IMSG = -2 GO TO 140 120 IMSG = -3 GO TO 140 130 IMSG = -8 140 CALL MESAGE (IMSG,IFILE,AAA) RETURN C 200 FORMAT (36X,I1,14X,I5,8X,I8,4X,I8,4X,I8) 210 FORMAT (A23,' 6530, THE BASIC SUBSTRUCTURE ',2A4, /30X, 1 'REFERED TO BY A GTRAN BULK DATA CARD WHICH CANNOT BE ', 2 'FOUNDD IN THE PROBLEM TABLE OF CONTENTS.') 220 FORMAT (/5X,'NOTE - THE PSEUDOSTRUCTURE AND COMPONENT NUMBERS RE', 1 'FER TO THEIR POSITIONS IN THE PROBLEM TABLE OF CONTENTS.') END ================================================ FILE: mis/betrns.f ================================================ SUBROUTINE BETRNS (TBE,GG,KFLAG,ELID) C & ENTRY BETRND (TBD,GD,KFLAG,ELID) C C***** C SUBROUTINE WHICH CALCULATES THE TBE TRANSFORMATION C MATRIX WHICH RELATES THE ELEMENT TO THE BASIC C.S. C C GG(9) OR GD(9) IS A 9X1 ARRAY WHICH STORES THE GRID PT. COORD. C X(G1),Y(G1),Z(G1),X(G2),Y(G2),Z(G2),X(G3),Y(G3),Z(G3) C GG(1),GG(2),GG(3),GG(4),GG(5),GG(6),GG(7),GG(8),GG(9), OR C GD(1),GD(2),GD(3),GD(4),GD(5),GD(6),GD(7),GD(8),GD(9) C C KFLAG = 0, TBE (OR TBD) IS OUTPUT WITHOUT TRANSPOSING C = 1, TBE (OR TBD) IS OUTPUT AFTER IT IS TRANSPOSED C***** C INTEGER ELID REAL GG(9),TBE(9),RSSTR(3),RSTR(3),R12(3),RV(3),LEN DOUBLE PRECISION GD(9),TBD(9),DSSTR(3),DSTR(3),D12(3),DV(3), 1 DTEMP,LED C C SINGLE PRECISION VERSION C C***** C CALCULATE APPROPRIATE LENGTH QUANTITIES C***** LEN = SQRT((GG(4)-GG(1))**2 + (GG(5)-GG(2))**2 1 +(GG(6)-GG(3))**2) IF (LEN .EQ. 0.0) GO TO 40 C***** C CALCULATE APPROPRIATE VECTOR QUANTITIES C***** R12(1) = (GG(4)-GG(1))/LEN R12(2) = (GG(5)-GG(2))/LEN R12(3) = (GG(6)-GG(3))/LEN RV(1) = (GG(7)-GG(1)) RV(2) = (GG(8)-GG(2)) RV(3) = (GG(9)-GG(3)) C***** C CALCULATE ENTRIES INTO THE TRANSFORMATION MATRIX C***** RSTR(1) = (R12(2)*RV(3) - R12(3)*RV(2)) RSTR(2) = (R12(3)*RV(1) - R12(1)*RV(3)) RSTR(3) = (R12(1)*RV(2) - R12(2)*RV(1)) C LEN = SQRT (RSTR(1)**2 + RSTR(2)**2 + RSTR(3)**2) IF (LEN .EQ. 0.0) GO TO 40 DO 10 I=1,3 10 RSTR(I) = RSTR(I)/LEN C RSSTR(1)= (RSTR(2)*R12(3) - RSTR(3)*R12(2)) RSSTR(2)= (RSTR(3)*R12(1) - RSTR(1)*R12(3)) RSSTR(3)= (RSTR(1)*R12(2) - RSTR(2)*R12(1)) TBE(1) = R12(1) TBE(2) = R12(2) TBE(3) = R12(3) TBE(4) = RSSTR(1) TBE(5) = RSSTR(2) TBE(6) = RSSTR(3) TBE(7) = RSTR(1) TBE(8) = RSTR(2) TBE(9) = RSTR(3) IF (KFLAG .EQ. 0) GO TO 30 C***** C TRANSPOSE TBE(9) SINCE KFLAG.NE.ZERO C***** TEMP = TBE(2) TBE(2) = TBE(4) TBE(4) = TEMP TEMP = TBE(3) TBE(3) = TBE(7) TBE(7) = TEMP TEMP = TBE(6) TBE(6) = TBE(8) TBE(8) = TEMP GO TO 30 C ENTRY BETRND (TBD,GD,KFLAG,ELID) C ================================ C C DOUBLE PRECISION VERSION C C***** C CALCULATE APPROPRIATE LENGTH QUANTITIES C***** LED = DSQRT((GD(4)-GD(1))**2 + (GD(5)-GD(2))**2 1 +(GD(6)-GD(3))**2) IF (LED .EQ. 0.0D+0) GO TO 40 D12(1) = (GD(4)-GD(1))/LED D12(2) = (GD(5)-GD(2))/LED D12(3) = (GD(6)-GD(3))/LED DV(1) = (GD(7)-GD(1)) DV(2) = (GD(8)-GD(2)) DV(3) = (GD(9)-GD(3)) C***** C CALCULATE ENTRIES INTO THE TRANSFORMATION MATRIX C***** DSTR(1) = (D12(2)*DV(3) - D12(3)*DV(2)) DSTR(2) = (D12(3)*DV(1) - D12(1)*DV(3)) DSTR(3) = (D12(1)*DV(2) - D12(2)*DV(1)) C LED = DSQRT(DSTR(1)**2 + DSTR(2)**2 + DSTR(3)**2) IF (LED .EQ. 0.0D+0) GO TO 40 DO 20 I=1,3 20 DSTR(I) = DSTR(I)/LED C DSSTR(1)= (DSTR(2)*D12(3) - DSTR(3)*D12(2)) DSSTR(2)= (DSTR(3)*D12(1) - DSTR(1)*D12(3)) DSSTR(3)= (DSTR(1)*D12(2) - DSTR(2)*D12(1)) TBD(1) = D12(1) TBD(2) = D12(2) TBD(3) = D12(3) TBD(4) = DSSTR(1) TBD(5) = DSSTR(2) TBD(6) = DSSTR(3) TBD(7) = DSTR(1) TBD(8) = DSTR(2) TBD(9) = DSTR(3) IF (KFLAG .EQ. 0) GO TO 30 C***** C TRANSPOSE TBD(9) SINCE KFLAG.NE.ZERO C***** DTEMP = TBD(2) TBD(2) = TBD(4) TBD(4) = DTEMP DTEMP = TBD(3) TBD(3) = TBD(7) TBD(7) = DTEMP DTEMP = TBD(6) TBD(6) = TBD(8) TBD(8) = DTEMP 30 RETURN C***** C ZERO LENGTH ERROR, BAD GEOMETRY C***** 40 CALL MESAGE (-30,31,ELID) RETURN END ================================================ FILE: mis/bfsmat.f ================================================ SUBROUTINE BFSMAT (ND,NE,NB,NP,NTP,LENGTH,NTOTAL,SCR1,JF,JL,NAS, 1 FMACH,YB,ZB,YS,ZS,X,DELX,EE,XIC,SG,CG,AR,RIA, 2 NBEA1,NBEA2,NASB,NSARAY,NCARAY,BFS,AVR,CBAR, 3 A0,XIS1,XIS2,KR,NSBEA,NT0) C C NOTE: C A JUMP (VIA AN ASSIGN STATEMENT) TO 200 AND A JUMP TO 1100 (ALSO C VIA AN ASSIGN STATEMENT), INTO THE MIDDLES OF SOME DO LOOPS, ARE C ACCEPTABLE ANSI 77 FORTRAN. HOWEVER, IBM COMPILER MAY COMPLAIN. C THIS PROBLEM IS NOW ELIMINATED (BY G.C. 9/89) C C C ND SYMMETRY FLAG C NE GROUND EFFECTS FLAG C NB NUMBER OF BODIES C NP NUMBER OF PANELS C NTP NUMBER OF LIFTING SURFACE BOXES C NTOTAL NTP + TOTAL NO. OF Y AND Z ORIENTED BODY ELEMENTS C LENGTH NTOTAL + THE TOTAL NUMBER OF Z- AND Y-ORIENTED C SLENDER BODY ELEMENTS C SCR1 FILE FOR OUTPUT C JF ROW FOR FIRST ZY BODY C JL ROW FOR LAST ZY BODY C NAS ARRAY CONTAINING THE NUMBER OF ASSOCIATED BODIES C FOR EACH PANEL C FMACH MACH NUMBER C YB ARRAY OF -Y- COORDINATES OF THE BODIES C ZB ARRAY OF -Z- COORDINATES OF THE BODIES C YS ARRAY OF -Y- COORDINATES OF STRIPS AND BODIES C ZS ARRAY OF -Z- COORDINATES OF STRIPS AND BODIES C X ARRAY OF 3/4 CHORD LOCATIONS OF BOXES AND C 1/2 CHORD FOR BODY ELEMENTS C DELX ARRAY OF LENGTHS OF BOXES AND BODY ELEMENTS C EE ARRAY OF THE SEMI-WITH OF STRIPS C XIC ARRAY OF 1/4 CHORD COORDINATES OF BOXES C SG ARRAY OF SINE OF STRIP DIHEDRAL ANGLE C CG ARRAY OF COSINE OF STRIP DIHEDRAL ANGLE C AR ARRAY OF RATIO OF MAJOR AXES OF BODIES C RIA ARRAY OF RADII OF BODY ELEMENTS C NBEA1 ARRAY OF NUMBER OF BODY ELEMENTS PER BODY C NBEA2 ARRAY OF THE BODY ORIENTATION FLAGS PER BODY C NASB ARRAY OF THE BODIES ASSOCIATED WITH PANELS C NSARAY ARRAY OF THE NUMBER OF STRIPS PER PANEL C NCARAY ARRAY OF THE NUMBER OF CHORDWISE DIV. PER PANEL C BFS WORK ARRAY FOR TEMPORARY STORAGE OF THE BFS COLS. C AVR ARRAY OF RADII OF BODIES C CBAR REFERENCE CHORD C A0 ARRAY OF SLENDER BODY ELEMENT RADII C XIS1 ARRAY OF SLENDER BODY ELEMENT LEADING EDGE COORD.S C XIS2 ARRAY OF SLENDER BODY ELEMENT TRAILING EDGE COORD.S C KR REDUCED FREQUENCY C NSBEA ARRAY OF THE NUMBER OF ELEMENTS PER SLENDER BODY C LOGICAL LAST INTEGER SCR1 REAL KR COMPLEX BFS(LENGTH,2) , FWZ, FWY, EIKJ1 , EIKJ2 DIMENSION YB(1), ZB(1), YS(1), ZS(1), X(1), DELX(1), EE(1), 1 XIC(1), SG(1), CG(1), AR(1), RIA(1), AVR(1), XIS1(1), 2 XIS2(1), A0(1), NAS(1), NASB(1), NBEA1(1), NBEA2(1) , 3 NSBEA(1), NCARAY(1), NSARAY(1) C C BETA2 = 1.0 - FMACH**2 ICOL = 0 KSP = 1 GO TO 3000 C 50 CONTINUE C C -Y- ORIENTED BODIES AS SENDING ELEMENTS C SGS =-1.0 CGS = 0.0 NASD = 0 IZYFLG= 3 ASSIGN 4010 TO IBODY GO TO 1000 100 CONTINUE C C - LIFTING SURF. BOXES AS SENDING ELEMENTS C IF (NTP .LE. 0) GO TO 800 J = 1 JP1 = J IBOX = 0 ISTRIP= 0 ISN = 0 KSP = 1 C C LOOP FOR -PANEL- C DO 700 ISP = 1,NP NS = NSARAY(ISP) NC = NCARAY(ISP) NS = (NS-ISN) / NC ISN = NSARAY(ISP) NASD= NAS(ISP) C C LOOP FOR -STRIP- C DO 600 IS = 1,NS ISTRIP= ISTRIP + 1 DYS = YS(ISTRIP) DZS = ZS(ISTRIP) SGS = SG(ISTRIP) CGS = CG(ISTRIP) WIDTH = 2.0 * EE(ISTRIP) C C LOOP FOR -BOX- C DO 500 IB = 1,NC IBOX = IBOX + 1 DXS = XIC(IBOX) C ICOL = ICOL + 1 C CALL FWMW (ND,NE,SGS,CGS,IRB,DRIA,AR,DXLE,DXTE,YB,ZB,DXS,DYS, 1 DZS,NASD,NASB(KSP),KR,BETA2,CBAR,AVR,FWZ,FWY) BFS(ICOL,1) = FWZ * (DXTE - DXLE) BFS(ICOL,2) = FWY * (DXTE - DXLE) BFS(ICOL,1) = BFS(ICOL,1) * SCALE BFS(ICOL,2) = BFS(ICOL,2) * SCALE C AREA = WIDTH * DELX(IBOX) BFS(ICOL,1) = BFS(ICOL,1) * AREA BFS(ICOL,2) = BFS(ICOL,2) * AREA 500 CONTINUE 600 CONTINUE KSP = KSP + NASD 700 CONTINUE C C -Z- ORIENTED BODIES AS SENDING ELEMENTS C 800 CONTINUE SGS = 0.0 CGS = 1.0 NASD = 0 IZYFLG= 1 ASSIGN 50 TO IBODY GO TO 1000 C C C *** LOOP FOR EACH INTERFERENCE BODY SENDING ELEMENT C 1000 CONTINUE INDEX = NTP C C --ISB-- IS THE SENDING BODY C DO 1900 ISB = 1,NB IF (NBEA2(ISB) .EQ. 2 ) GO TO 1070 IF (NBEA2(ISB) .NE. IZYFLG) GO TO 1850 1070 DYS = YB(ISB) NSBE = NBEA1(ISB) JP1 = 1 LAST = .FALSE. DZS = ZB(ISB) EARG2 = 1.0 C C --ISBE-- IS THE ELEMENT OF THE SEND BODY C DO 1800 ISBE = 1,NSBE EARG1 = EARG2 INDEX = INDEX + 1 DXS = X (INDEX) - DELX(INDEX) /4.0 EARG2 = KR * DELX(INDEX) / CBAR C C CALCULATE THIS COLUMN C ICOL = ICOL + 1 EIKJ1 = CMPLX(COS(EARG1),-SIN(EARG1)) EIKJ2 = CMPLX(COS(EARG2), SIN(EARG2)) C CALL FWMW (ND,NE,SGS,CGS,IRB,DRIA,AR,DXLE,DXTE,YB,ZB,DXS,DYS, 1 DZS,NASD,NASB(KSP),KR,BETA2,CBAR,AVR,FWZ,FWY) BFS(ICOL,1) = FWZ * (DXTE - DXLE) BFS(ICOL,2) = FWY * (DXTE - DXLE) BFS(ICOL,1) = BFS(ICOL,1) * SCALE BFS(ICOL,2) = BFS(ICOL,2) * SCALE C C C IS THIS THE FIRST COLUMN, YES BRANCH C IF (ISBE .EQ. 1) GO TO 1800 BFS(ICOL-1,1) = BFS(ICOL-1,1)*EIKJ1 - BFS(ICOL,1)*EIKJ2 BFS(ICOL-1,2) = BFS(ICOL-1,2)*EIKJ1 - BFS(ICOL,2)*EIKJ2 1800 CONTINUE GO TO 1900 1850 INDEX = INDEX + NBEA1(ISB) 1900 CONTINUE C C RETURN TO CALLING POINT - EITHER Y OR Z SENDING BODY ELEM C C *** GO EITHER TO THE Y-ORIENTED INTERFERENCE BODY ELEMENT LOOP C OR TO THE LOOP FOR SLENDER BODY SENDING ELEMENTS C GO TO IBODY, (50,4010) C C C CALCULATE EACH ROW OF THE SENDING COLUMN C 3000 CONTINUE IY = 0 JF = 0 NW = LENGTH*2 IROW = 0 C C --IRB-- IS THE RECEIVING BODY C IRB = 0 3050 IRB = IRB + 1 IF (IRB .GT. NB) GO TO 3900 NRBE = NSBEA(IRB) ITSB = NBEA2(IRB) C XYB = YB(IRB) XZB = ZB(IRB) SCALE= 1.0 IF (ND.NE.0 .AND. XYB.EQ.0.0) SCALE = .5 IF (NE.NE.0 .AND. XZB.EQ.0.0) SCALE = SCALE*.5 C C --IRBE-- IS THE ELEM. OF THE REC. BODY C IRBE = 0 3060 IRBE = IRBE + 1 IF (IRBE .GT. NRBE) GO TO 3800 IY = IY + 1 IROW = IROW + 1 DRIA = A0 (IY) DXLE = XIS1(IY) DXTE = XIS2(IY) XX1 = DXLE XX2 = DXTE XAA = DRIA ICOL = 0 GO TO 100 C 3100 CONTINUE GO TO (3110,3120,3130), ITSB 3110 CALL WRITE (SCR1,BFS(1,1),NW,0) GO TO 3140 3120 CALL WRITE (SCR1,BFS(1,2),NW,0) CALL WRITE (SCR1,BFS(1,1),NW,0) IF (JF .EQ. 0) JF = IROW IROW = IROW + 1 GO TO 3140 3130 CALL WRITE (SCR1,BFS(1,2),NW,0) IROW = IROW - 1 3140 CONTINUE GO TO 3060 3800 CONTINUE GO TO 3050 3900 CONTINUE JL = IROW RETURN C C 4010 CONTINUE C C C *** LOOP FOR EACH SLENDER BODY SENDING ELEMENT C IZYFLG= 1 SGS = 0.0 CGS = 1.0 4050 CONTINUE LSBE = 0 DO 5000 LSB = 1,NB C C --LSB-- IS THE INDEX OF THE SLENDER SENDING BODY C IF (NSBEA(LSB) .EQ. 0) GO TO 5000 IF (NBEA2(LSB) .EQ. 2) GO TO 4070 IF (NBEA2(LSB) .NE. IZYFLG) GO TO 4097 4070 CONTINUE XETA = YB(LSB) XZETA = ZB(LSB) SCALE2= SCALE MSBE = NSBEA(LSB) DO 4080 LSBS = 1,MSBE LSBE = LSBE + 1 ICOL = ICOL + 1 XXIJ = .50 * XIS1(LSBE) + .50 * XIS2(LSBE) CALL FWMW (ND,NE,SGS,CGS,IRB,DRIA,AR,DXLE,DXTE,YB,ZB,XXIJ,XETA, 1 XZETA,NASD,NASB,KR,BETA2,CBAR,AVR,FWZ,FWY) BFS(ICOL,1) = FWZ * (DXTE - DXLE) BFS(ICOL,2) = FWY * (DXTE - DXLE) BFS(ICOL,1) = BFS(ICOL,1) * SCALE2 BFS(ICOL,2) = BFS(ICOL,2) * SCALE2 4080 CONTINUE GO TO 5000 4097 LSBE = LSBE + NSBEA(LSB) 5000 CONTINUE IF (IZYFLG .EQ. 3) GO TO 5010 IZYFLG = 3 SGS =-1.0 CGS = 0.0 GO TO 4050 5010 CONTINUE C GO TO 3100 C END ================================================ FILE: mis/bgrid.f ================================================ SUBROUTINE BGRID C C THIS ROUTINE COMPUTES PROBLEM SIZE, INTEGER PACKING FACTOR, AND C MAXGRD AND MAXDEG CONSTANTS. C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C EXTERNAL ANDF INTEGER GRID(2), SEQGP, GEOM1, TWO, ANDF, 1 GEOM2, GEOM4, SCR1, REW, SUB(2), 2 ITRL(8) CHARACTER UFM*23, UWM*25, UIM*29 COMMON /XMSSG / UFM, UWM, UIM COMMON /MACHIN/ MACHX COMMON /BANDA / IBUF1, NOMPC, NODEP, NOPCH, NORUN, 1 METHOD, ICRIT, NGPTS(2) COMMON /BANDB / NBITIN, KOR, DUM, NGRID, IPASS, 1 NW, KDIM, NBPW, IREPT COMMON /BANDD / IDUM5D(5),NZERO, NEL, NEQ, NEQR COMMON /BANDS / NN, MM, DUM2S(2), MAXGRD, MAXDEG, 1 KMOD, MACH, MINDEG, NEDGE, MASK COMMON /BANDW / DUM4W(4), I77 COMMON /GEOMX / GEOM1, GEOM2, GEOM4, SCR1 COMMON /SYSTEM/ ISYS(100) COMMON /TWO / TWO(1) COMMON /NAMES / RDUM(4), REW, NOREW COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (NOUT,ISYS(2)) DATA IGEOM1, IGEOM2, IGEOM4, ISCR1 / 1 201, 208, 210, 301 / DATA KDIMX, NELX, NEQX, NEQRX / 1 150, 0, 0, 0 / DATA GRID, SEQGP, SUB / 1 4501,45, 53, 4HBGRI,4HD / C IF (IREPT .EQ. 2) GO TO 100 GEOM1 = IGEOM1 GEOM2 = IGEOM2 GEOM4 = IGEOM4 SCR1 = ISCR1 NEL = NELX NEQ = NEQX NEQR = NEQRX NGRID = 0 C C BANDIT QUITS IF DMI CARDS ARE PRESENT. (CHK WAS DONE IN IFS2P) C RE-SET PROGRAM PARAMETERS IF USER REQUESTED VIA NASTRAN CARD. C K = ISYS(I77) IF (K) 250,30,10 10 IF (K .EQ. +9) GO TO 230 DO 20 I = 1,7 ITRL(I) = MOD(K,10) K = K/10 20 CONTINUE IF (ITRL(1).GT.0 .AND. ITRL(1).LE.4) ICRIT = ITRL(1) IF (ITRL(2).GT.0 .AND. ITRL(2).LE.3) METHOD = ITRL(2) - 2 NOMPC = ITRL(3) IF (ITRL(4) .EQ. 1) NODEP = -NODEP IF (ITRL(5) .EQ. 1) NOPCH = -NOPCH IF (ITRL(5) .EQ. 9) NOPCH = +9 IF (ITRL(6) .EQ. 1) NORUN = -NORUN IF (ITRL(7).GE.2 .AND. ITRL(7).LE.9) KDIM = ITRL(7) C 30 IF (NORUN .EQ. +1) GO TO 40 C C OPEN GEOM1 FILE AND CHECK THE PRESENCE OF ANY SEQGP CARD. IF C ONE OR MORE IS PRESENT, ABORT BANDIT JOB. OTHERWISE CONTINUE TO C COUNT HOW MANY GRID POINTS IN THE PROBLEM. C RESET GEOM1 TO THE BEGINNING OF GRID DATA FOR BSEQGP, AND CLOSE C GEOM1 WITHOUT REWINDING THE FILE C C COMMENT FROM G.CHAN/SPERRY C IF TIME AND $ ALLOW, WE SHOULD MAKE USE OF THE SORTED GRID DATA C FROM GEOM1 FILE AND GET RID OF INV, INT, NORIG, ILD ARRAYS LATER. C THE SCATTERING TECHNEQUE (REALLY A HASHING METHOD) CAN BE REPLACED C BY A SIMPLE BINARY SEARCH. ROUTINES SCAT, BRIGIT, AND INTERN C COULD BE ELIMINATED. C ITRL(1) = GEOM1 CALL RDTRL (ITRL) J = ITRL(2) + ITRL(3) + ITRL(4) + ITRL(5) + ITRL(6) + ITRL(7) IF (ITRL(1).LT.0 .OR. J.EQ.0) GO TO 250 K = SEQGP K1 = (K-1)/16 K2 = K - 16*K1 K = ANDF(ITRL(K1+2),TWO(K2+16)) IF (K .NE. 0) GO TO 210 C C WE ASSUME THAT THE GRID POINT DATA IN GEOM1 AT THIS TIME IS NOT C SORTED. IF IT IS, WE CAN BLAST READ THE GRID POINT RECORD AND C TAKE THE LAST GRID POINT TO BE THE LARGEST GRID EXTERNAL NUMBER. C 40 CALL PRELOC (*170,Z(IBUF1),GEOM1) CALL LOCATE (*70,Z(IBUF1),GRID,K) MAX = 0 50 CALL READ (*60,*60,GEOM1,ITRL,8,0,K) NGRID = NGRID + 1 IF (ITRL(1) .GT. MAX) MAX = ITRL(1) GO TO 50 60 CALL BCKREC (GEOM1) 70 CALL CLOSE (GEOM1,NOREW) C C IF SPOINTS ARE PRESENT, ADD THEM TO THE GRID COUNT C N = 0 CALL PRELOC (*90,Z(IBUF1),GEOM2) NGPTS(1) = 5551 NGPTS(2) = 49 CALL LOCATE (*80,Z(IBUF1),NGPTS,K) CALL READ (*80,*80,GEOM2,Z(1),IBUF1,1,N) 80 CALL CLOSE (GEOM2,REW) 90 NGPTS(1) = NGRID NGPTS(2) = N NGRID = NGRID + N C IF (NOPCH.EQ.9 .AND. NGRID.EQ.1) NGRID = MAX 100 IF (NGRID .LE. 0) GO TO 180 IF (NGRID .LT. 15) GO TO 160 C C SET WORD PACKING CONSTANT, NW - (NUMBER OF INTEGERS PER WORD) C MACHX = 1 DUMMY, = 2 IBM 360/370, = 3 UNIVAC 1100, = 4 CDC, C = 5 VAX 780, = 6 DEC ULTRIX, = 7 SUN, = 8 AIX, C = 9 HP, = 10 SILIC.GRAPH = 11 MAC, = 12 CRAY, C = 13 CONVEX, = 14 NEC = 15 FUJITSU, = 16 DG, C = 17 AMDAHL = 18 PRIME = 19 486, = 20 DUMMY C = 21 ALPHA = 22 RESERVED C GO TO (130,120,130,110,120,120,120,120,120,120, 1 120,135,120,110,110,120,120,120,120,120, 2 120,120), MACHX 110 NW = 6 IF (NGRID .GT. 510) NW = 5 IF (NGRID .GT. 2045) NW = 4 IF (NGRID .GT. 16380) NW = 3 IF (NGRID .GT.524288) NW = 2 GO TO 140 120 NW = 2 GO TO 140 130 NW = 4 IF (NGRID .GT. 508) NW = 3 IF (NGRID .GT.4095) NW = 2 GO TO 140 135 NW = 8 IF (NGRID.GT.255) NW = 4 C 140 NBITIN = NBPW/NW MASK = 2**NBITIN - 1 C C KDIM IS THE ARRAY DIMENSNION OF A SCRATCH ARRAY USED ONLY BY GPS C METHOD. IT IS 150 WORDS OR 10% OF TOTAL GRID POINT NUMBER. IF C USER SPECIFIED BANDTDIM = N, (WHERE N IS FROM 1 THRU 9), THE ARRAY C DIMENSION WILL BE N*10 PERCENT INSTEAD OF THE DEFAULT OF 10%. C KDIM = NGRID*KDIM/10 IF (METHOD .NE. -1) KDIM = MAX0(KDIM,KDIMX,NGRID/10) IF (METHOD .EQ. -1) KDIM = MIN0(KDIM,KDIMX,NGRID/10) N = NGRID IF (N .LT. 10) N = 10 C C CALCULATE WIDTH MAXDEG AND EFFECTIVE LENGTH MAXGRD OF IG MATRIX. C MAXGRD = N KORE = KOR 150 MAXDEG = ((((KORE-4*KDIM-8*MAXGRD-5)*NW)/(MAXGRD+NW))/NW)*NW MAXDEG = MIN0(MAXDEG,MAXGRD-1) IF (MAXDEG .LE. 0) GO TO 200 J = MAXDEG*2.2 KORE = KORE - J IF (KOR-J .EQ. KORE) GO TO 150 C C INITIALIZE VARIABLES C NN = 0 MM = 0 NEDGE = 0 IPASS = 0 KMOD = 2*MAXGRD - IFIX(2.3715*SQRT(FLOAT(MAXGRD))) MINDEG = 500000 RETURN C C ERROR OR QUIT C 160 WRITE (NOUT,280) UIM WRITE (NOUT,270) GO TO 250 170 CALL MESAGE (-1,GEOM1,SUB) 180 WRITE (NOUT,280) UIM WRITE (NOUT,190) 190 FORMAT (5X,25HTHE ABSENCE OF GRID CARDS) CALL CLOSE (GEOM1,REW) GO TO 250 200 CALL MESAGE (-8,0,SUB) 210 WRITE (NOUT,280) UIM WRITE (NOUT,220) 220 FORMAT (5X,27HTHE PRESENCE OF SEQGP CARDS) GO TO 250 230 WRITE (NOUT,280) UIM WRITE (NOUT,240) 240 FORMAT (5X,25HTHE PRESENCE OF DMI CARDS) 250 ISYS(I77) = 0 IF (NOPCH .GT. 0) ISYS(I77) = -2 IF (ISYS(I77) .NE. -2) WRITE (NOUT,260) 260 FORMAT (1H0,10X,'**NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**') 270 FORMAT (5X,'SMALL PROBLEM SIZE') 280 FORMAT (A29,' - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS ', 1 'NOT USED DUE TO') RETURN END ================================================ FILE: mis/bint.f ================================================ FUNCTION BINT(I,J,A,B,IV,IW,R,Z) DIMENSION R(1) , Z(1) BINT = 0.0 IW1 = IW + 1 C1P = B C2P = A C1 = C1P C2 = C2P AW = 0.0 IF( R(I) .NE. 0.0E0 .AND. R(J) .NE. 0.0E0 ) AW = ALOG(R(J)/R(I)) DO 100 IT = 1,IW1 IC = IW - IT + 1 IF (IC.EQ.0) C1 = 1.0 IF (IT.EQ.1) C2 = 1.0 C C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ C C THE FOLLOWING CODE REPLACES REAL FUNCTION COEF C IF(IT.EQ.1) GO TO 20 IN = 1 ID = 1 DO 10 K=2,IT IN = IN*(IW-K+2) ID = ID*(K-1) 10 CONTINUE COEF = IN/ID GO TO 30 20 COEF = 1.0 30 CONTINUE C C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ C C C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ C C THE FOLLOWING CODE REPLACES REAL FUNCTION AJ C IS1 = IC+IV+1 IF(IS1.EQ.0) GO TO 60 SP1 = IS1 AJ = (R(J)**IS1-R(I)**IS1) / SP1 GO TO 70 60 AJ = AW 70 CONTINUE C C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ C BINT = BINT + C1 ** IC * AJ * C2 ** (IT - 1) * COEF C1 = C1P C2 = C2P 100 CONTINUE AW = IW BINT = BINT / AW RETURN END ================================================ FILE: mis/biotsv.f ================================================ SUBROUTINE BIOTSV (XX,YY,ZZ,HCX,HCY,HCZ) C C THIS ROUTINE COMPUTES THE MAGNETIC FIELD AT A POINT (XX,YY,ZZ) C DUE TO MAGNETIC SOIRCES. THE ROUTINE IS USED BY PROLATE IN C COMPUTING HC POTENTIALS USING LINE INTEGRALS. AT Z(IST) IS STORED C LOAD INFO. NEEDED FOR THIS SUBCASE (WHICH COULD BE A LOAD C COMBINATION) AS STORED BY ROUTINE LOADSU. THE INFO. IS STORED AS C FOLLOWS - C C OVERALL SCALE FACTOR - ALLS C NUMBER OF SIMPLE LOADS - NSIMP C SCALE FACTOR FOR 1ST SIMPLE LOAD C NUMBER OF LOAD CARDS FOR 1ST SIMPLE LOAD C SCALE FACTOR FOR 2ND SIMPLE LOAD C NUMBER OF LOAD CARDS FOR 2ND SIMPLE LOAD C . C ETC. C . C TYPE(NOBLD) OF 1ST CARD FOR 1ST SIMPLE LOAD C NUMBER OF CARDS FOR THIS TYPE - IDO C LOAD INFO FOR THIS TYPE FOR 1ST SIMPLE LOAD C ANOTHER TYPE FOR 1ST SIMPLE LOAD C . C ETC C . C LOAD CARDS FOR SUBSEQUENT SIMPLE LOADS FOR THIS SUBCASE C INTEGER HEST,BGPDT,SCR1,FILE,BUF2,SUBCAS DIMENSION NAM(2),IZ(1),BUF(50),IBUF(50),MCB(7),HC(3),HC1(3), 1 HC2(3) COMMON /BIOT / NG1,NG2,IST,SUBCAS,X1,Y1,Z1,X2,Y2,Z2,BUF2,REMFL, 1 MCORE,LOAD,NSLT,SCR1,HEST,NTOT COMMON /SYSTEM/ SYSBUF,IOUT COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)),(BUF(1),IBUF(1)) DATA NAM / 4HBIOT,4HSV / C HCX = 0. HCY = 0. HCZ = 0. SCR1 = 301 BGPDT = 103 MCB(1) = BGPDT CALL RDTRL (MCB) NROWSP = MCB(2) MCB(1) = SCR1 CALL RDTRL (MCB) N3 = MCB(3) NGRIDS = N3/3 C ALLS = Z(IST+1) NSIMP = IZ(IST+2) ISIMP = IST + 2*NSIMP + 2 C C LOOP ON NUMBER OF SIMPLE LOADS C DO 270 NS = 1,NSIMP NC = 0 HC(1) = 0. HC(2) = 0. HC(3) = 0. C FACTOR = Z(IST+2*NS+1) NCARDS = IZ(IST+2*NS+2) 15 NOBLD = IZ(ISIMP+1) IDO = IZ(ISIMP+2) ISIMP = ISIMP + 2 C C KTYPE = NOBLD - 19 GO TO (20,30,40,50,60), KTYPE 20 MWORDS = 3*NROWSP GO TO 70 30 MWORDS = 12 GO TO 70 40 MWORDS = 48 GO TO 70 50 MWORDS = 9 GO TO 70 60 MWORDS = 0 C 70 DO 245 J = 1,IDO C GO TO (145,150,150,150,180), KTYPE C C SPCFLD DATA STARTS AT Z(ISIMP+1) C 145 CONTINUE C C C NG1 AND NG2 ARE THE SIL NUMBERS OF THE END POINTS OF THE LINE C INTEGRL WITH (X1,Y1,Z1) AND (X2,Y2,Z2) BEING THE COORDINATES. C LINEARLY INTERPOLATE TO (XX,YY,ZZ). THE SILS ARE POINTERS INTO C THE SPCFLD DATA C ISUB = ISIMP + 3*NG1 HC1(1) = Z(ISUB-2) HC1(2) = Z(ISUB-1) HC1(3) = Z(ISUB) ISUB = ISIMP + 3*NG2 HC2(1) = Z(ISUB-2) HC2(2) = Z(ISUB-1) HC2(3) = Z(ISUB) 148 TLEN = SQRT((X2-X1)**2 + (Y2-Y1)**2 + (Z2-Z1)**2) XLEN = SQRT((XX-X1)**2 + (YY-Y1)**2 + (ZZ-Z1)**2) RATIO = XLEN/TLEN HC(1) = HC(1) + (1.-RATIO)*HC1(1) + RATIO*HC2(1) HC(2) = HC(2) + (1.-RATIO)*HC1(2) + RATIO*HC2(2) HC(3) = HC(3) + (1.-RATIO)*HC1(3) + RATIO*HC2(3) GO TO 240 C C CEMLOOP,GEMLOOP,MDIPOLE C 150 DO 152 K = 1,MWORDS 152 BUF(K) = Z(ISIMP+K) LTYPE = KTYPE - 1 GO TO (155,160,165), LTYPE 155 CALL AXLOOP (BUF,IBUF,XX,YY,ZZ,HCA,HCB,HCC) GO TO 170 160 CALL GELOOP (BUF,IBUF,XX,YY,ZZ,HCA,HCB,HCC) GO TO 170 165 CALL DIPOLE (BUF,IBUF,XX,YY,ZZ,HCA,HCB,HCC) C 170 HC(1) = HC(1) + HCA HC(2) = HC(2) + HCB HC(3) = HC(3) + HCC GO TO 240 C C REMFLUX - BRING IN VALUES FROM SCR1 AFTER POSITIONING TO PROPER C CASE C 180 CALL GOPEN (SCR1,Z(BUF2),0) IC = SUBCAS - 1 IF (IC .EQ. 0) GO TO 200 DO 190 I = 1,IC CALL FWDREC (*520,SCR1) 190 CONTINUE C 200 ISIMP1 = 6*NGRIDS + NTOT CALL FREAD (SCR1,Z(ISIMP1+1),N3,1) C CALL CLOSE (SCR1,1) C C MUST MATCH NG1 AND NG2 TO SIL-S IN CORE TO LOCATE REMFLUX INFO ON C SCR1 C ING1 = 0 ING2 = 0 DO 220 I = 1,NGRIDS IF (NG1 .EQ. IZ(I)) GO TO 205 IF (NG2 .EQ. IZ(I)) GO TO 210 GO TO 220 205 ING1 = I IF (ING2 .EQ. 0) GO TO 220 GO TO 230 210 ING2 = I IF (ING1 .EQ. 0) GO TO 220 GO TO 230 220 CONTINUE GO TO 510 230 ISUB = 3*ING1 + ISIMP1 HC1(1) = Z(ISUB-2) HC1(2) = Z(ISUB-1) HC1(3) = Z(ISUB) ISUB = 3*ING2 + ISIMP1 HC2(1) = Z(ISUB-2) HC2(2) = Z(ISUB-1) HC2(3) = Z(ISUB) C C INTERPOLATE AS WITH SPCFLD C GO TO 148 C C DONE FOR ONE CARD OF PRESENT TYPE - GET ANOTHER C 240 ISIMP = ISIMP + MWORDS NC = NC + 1 C 245 CONTINUE C C CHECK TO SEE IF WE ARE DONE WITH THIS LOAD FACTOR C IF (NC .LT. NCARDS) GO TO 15 C C DONE WITH THIS SIMPLE LOAD. APPLY INDIVIDUAL AND OVERALL SCALE C FACTORS THEN GET ANOTHER SIMPLE LOAD C FAC = FACTOR*ALLS HCX = HCX + FAC*HC(1) HCY = HCY + FAC*HC(2) HCZ = HCZ + FAC*HC(3) C 270 CONTINUE C C DONE C RETURN C 510 WRITE (IOUT,511) NG1,NG2 511 FORMAT ('0*** LOGIC ERROR, SILS',2I8, 1 ' CANNOT BE FOUND IN PROLATE LIST IN BIOTSV') CALL MESAGE (-61,0,0) C 520 CALL MESAGE (-2,FILE,NAM) RETURN END ================================================ FILE: mis/bishel.f ================================================ SUBROUTINE BISHEL(*,LIST,NENT,NTERM,ARRAY) C----- C BISHEL IS A MERGE/SORT/DUPLICATE ENTRY ELIMINATOR. GIVEN A SORTED C -ARRAY- AND A -LIST- TO MERGE, BISHEL ADDS THE -LIST- IN THE SORTED C LOCATION. SORT IS ONLY ON THE FIRST WORD OF LIST. C C ARGUMENTS... C C LIST -- IN/OUT - LIST OF LENGTH NTERM TO MERGE INTO ARRAY. C NENT -- IN/OUT - LENGTH OF LIST BEFORE/AFTER MERGE. C NTERM -- IN - LENGTH OF ARRAY (AND LIST) ENTRIES. C ARRAY -- IN/OUT - ARRAY TO MERGE LIST INTO. C NONSTANDARD RETURN -- WHEN ARRAY(ITERM) IS A DUPLICATE. C----- INTEGER LIST(1),ARRAY(1) C K = 1 L = NENT + 1 M = NENT - NTERM + 1 C C . LOCATE DUPLICATES... C IF (NENT.LT.NTERM) GO TO 50 IF (LIST(1) - ARRAY(M) ) 10,20,60 10 KID = LIST(1) CALL BISLOC (*30, KID, ARRAY, NTERM, NENT/NTERM, K) 20 RETURN 1 C C . CREATE A HOLE IN THE LIST BY MOVING THE END OF THE LIST... C 30 CONTINUE J = L-K N = NENT+NTERM DO 40 I = 1,J M = L-I ARRAY(N) = ARRAY(M) 40 N = N-1 C C . LOAD LIST INTO HOLE... C GO TO 70 50 NENT = 0 GO TO 70 60 K = L 70 CONTINUE DO 80 I = 1,NTERM ARRAY(K)=LIST(I) 80 K = K+1 NENT = NENT + NTERM RETURN END ================================================ FILE: mis/bislc2.f ================================================ SUBROUTINE BISLC2 (*,ID,AA,NC,NR,LOC) C----- C BINARY SEARCH ROUTINE - LOCATE ID POSTION IN AA C SEARCH BY FIRST 2 WORDS (ROWS) OF ENTRIES. C C ID = TARGET WORD SEARCH, 2 BCD-WORDS C AA = A (NR X NC) TABLE TO SEARCH FOR ID. C NR = SIZE OF ENTRIES (ROW ) IN THE AA. C NC = NUMBER OF ENTRIES (COLUMN) IN THE AA. C LOC = POINTER RETURNED, OF NC LOCATION C C NONSTANDARD RETURN IN THE EVENT OF NO MATCH. C INTEGER ID(2),AA(NR,NC) C KLO = 1 KHI = NC 10 K = (KLO+KHI+1)/2 20 IF (ID(1) - AA(1,K)) 30,25,40 25 IF (ID(2) - AA(2,K)) 30,90,40 30 KHI = K GO TO 50 40 KLO = K 50 IF (KHI-KLO -1) 100,60,10 60 IF (K .EQ. KLO) GO TO 70 K = KLO GO TO 80 70 K = KHI 80 KLO = KHI GO TO 20 90 LOC = K RETURN 100 RETURN 1 END ================================================ FILE: mis/bisloc.f ================================================ SUBROUTINE BISLOC (*,ID,ARR,LEN,KN,JLOC) C----- C BINARY SEARCH - LOCATE KEY WORD 'ID' IN ARRAY 'ARR', 1ST ENTRY C IF FOUND, 'JLOC' IS THE MATCHED POSITION IN 'ARR' C IF NOT FOUND, NON-STANDARD RETURN C I.E. C ID = KEY WORD TO MATCH IN ARR. MATCH AGAINST 1ST COL OF ARR C ARR = ARRAY TO SEARCH. ARR(ROW,COL) C LEN = LENGTH OF EACH ENTRY IN ARRAY. LEN=ROW C KN = NUMBER OF ENTRIES IN THE ARR. KN =COL C JLOC= POINTER RETURNED - FIRST WORD OF ENTRY. MATCHED ROW C----- C INTEGER ARR(1) DATA ISWTCH / 16 / C JJ = LEN - 1 IF (KN .LT. ISWTCH) GO TO 120 KLO = 1 KHI = KN 10 K = (KLO+KHI+1)/2 20 J = K*LEN - JJ IF (ID-ARR(J)) 30,90,40 30 KHI = K GO TO 50 40 KLO = K 50 IF (KHI-KLO -1) 100,60,10 60 IF (K .EQ. KLO) GO TO 70 K = KLO GO TO 80 70 K = KHI 80 KLO = KHI GO TO 20 90 JLOC = J RETURN 100 JLOC = KHI*LEN - JJ J = KN *LEN - JJ IF (ID .GT.ARR(J)) JLOC = JLOC + LEN 110 RETURN 1 C C SEQUENTIAL SEARCH MORE EFFICIENT C 120 KHI = KN*LEN - JJ DO 130 J = 1,KHI,LEN IF (ARR(J)-ID) 130,90,140 130 CONTINUE JLOC = KHI + LEN GO TO 110 140 JLOC = J GO TO 110 END ================================================ FILE: mis/bitpat.f ================================================ SUBROUTINE BITPAT (ICODE,IBITS) C C THE PURPOSE OF THIS ROUTINE IS TO TRANSFORM THE DOF WORD INTO ITS C NASTRAN DIGITAL REPRESENTATION. C EXTERNAL ORF INTEGER LIST(32),IBITS(2),ORF,INT(9) COMMON /SYSTEM/ JUNK(38),NBPC,NBPW DATA IBLANK/ 4H / DATA INT / 1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9 / C IBITS(1) = IBLANK IBITS(2) = IBLANK C CALL DECODE (ICODE,LIST,N) IF (N .EQ. 0) RETURN C J = 1 NBITS = -NBPC DO 20 I = 1,N NBITS = NBITS + NBPC IA = LIST(I) + 1 K = NBPW - NBITS IBITS(J) = KLSHFT(KRSHFT(IBITS(J),K/NBPC),K/NBPC) IBITS(J) = ORF(IBITS(J),KRSHFT(INT(IA),NBITS/NBPC)) IF (I .NE. 4) GO TO 20 J = 2 NBITS = -NBPC 20 CONTINUE RETURN END ================================================ FILE: mis/bmg.f ================================================ SUBROUTINE BMG C C HYDROELASTIC BOUNDARY MATRIX GENERATOR C C 7/12/73 NO AXIAL SYMMETRY UPPER INTEGRATION LIMIT OF LAST C CIRCUMFERENTIAL GRID IS INCORRECT C LOGICAL LABFL ,LKBFL ,NSTAR ,HEAD INTEGER SYSBUF ,NABFL(2) ,NKBFL(2) ,SUBR(2) ,FORM , 1 BUF(10) ,Z ,SCRT1 ,BDPOOL ,CSTM , 2 EQEXIN ,BGPDT ,RD ,RDREW ,ENTRYS , 3 WRT ,WRTREW ,CLSREW ,DMIG(3) ,CLS , 4 FILE ,BUF1 ,BUF2 ,BUF3 ,CORE , 5 POINT ,BNDFL(2) ,FLAG ,MONES(3) ,EOR REAL RBUF(10) ,RZ(1) ,KII DOUBLE PRECISION DZ(1) ,DTEMP(3) ,TERM(3) ,VI(3) ,T0F(9) , 1 TI(9) ,AIN ,DUB CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /CONDAS/ CONSTS(5) COMMON /SYSTEM/ SYSBUF ,IOUT ,ISKP(52) ,IPREC COMMON /BLANK / KFLAGS(2),VALUE(2) COMMON /ZZZZZZ/ Z(1) COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS EQUIVALENCE (CONSTS(2),TWOPI) ,(CONSTS(4),DEGRAD) , 1 (Z(1),RZ(1),DZ(1)) ,(BUF(1),RBUF(1)) DATA SUBR / 4HBMG ,4H /, NABFL / 4HABFL,4H / DATA BNDFL / 9614 ,96 /, MONES / -1, -1, -1 / DATA IS / 1 /, DMIG / 114, 1, 120 / DATA EOR , NOEOR/ 1,0 /, NKBFL / 4HKBFL,4H / DATA MATPOL, BGPDT,EQEXIN,CSTM / 101,102,103,104 / DATA BDPOOL/ 201 /, SCRT1 / 301 / DATA IZ2 , IZ6,IZ7,IZ8,IZ9 / 2, 6, 7, 8, 9 / C C DEFINE CORE AND BUFFER POINTERS C CORE = KORSZ(Z) BUF1 = CORE - SYSBUF - 2 BUF2 = BUF1 - SYSBUF - 2 BUF3 = BUF2 - SYSBUF - 2 CORE = BUF3 - 1 IF (CORE .LT. 100) CALL MESAGE (-8,0,SUBR) KFLAGS(1) = -1 KFLAGS(2) = -1 C C OPEN MATPOOL AND LOCATE THE BNDFL RECORD AS PREPARED BY IFP4. C CALL PRELOC (*10000,Z(BUF1),MATPOL) CALL LOCATE (*10000,Z(BUF1),BNDFL,FLAG) C C THIS MODULE DOES NOTHING IF THE MATPOOL IS PURGED OR THE BNDFL C RECORD IS ABSENT. NOW READ THE HEADER DATA OF THIS RECORD. C FILE = MATPOL CALL READ (*10002,*10003,MATPOL,Z(1),9,NOEOR,FLAG) IN = 10 NN = Z(IZ9) + 9 IF (NN+5 .GT. CORE) CALL MESAGE (-8,0,SUBR) C C READ THE INDICES C CALL READ (*10002,*10003,MATPOL,Z(IN),Z(IZ9),NOEOR,FLAG) VALUE(1) = Z(IZ6) VALUE(2) = 0.0 IF (Z(IZ6) .EQ. 0) VALUE(1) = 1.0 C C MODIFY LIST OF INDICES TO FIT THE FOLLOWING TABLE C C M S1 S2 N N* C - -- -- - -- C 0 ALL ALL C C K M C .GE.2 S S --- NONE C 2 C C (2K+1)M C .GE.2 S A ------- NONE C 4 C C (2K+1)M C .GE.2 A S NONE ------- C 4 C C K M C .GE.2 A A NONE --- C 2 C C K MAY BE 0,1,2,..... IN ORDER TO CHECK INDICE FOR MATCH. C IF (Z(IZ6)) 90,90,10 C C M IS POSITIVE THUS CHECK FOR STAR OR NO-STAR INDICES PERMITTED. C DETERMINE THE FORM OF THE CHECK EQUATION. C C Z(7) = S1 C Z(8) = S2 C Z(6) = M C 10 IF (Z(IZ7) .EQ. IS) GO TO 12 NSTAR = .TRUE. GO TO 13 12 NSTAR = .FALSE. 13 IF (Z(IZ7) .EQ. Z(IZ8)) GO TO 14 FORM = 1 GO TO 15 14 FORM = -1 C C NOW FORM NEW LIST OF INDICES C 15 INN = NN + 1 NNN = NN DO 80 I = IN,NN N = (Z(I)-1)/2 IF (MOD(Z(I),2)) 30,20,30 C C NON-STAR CASE C 20 IF (NSTAR) GO TO 80 IF (FORM ) 40,70,70 C C STAR CASE C 30 IF (.NOT.NSTAR) GO TO 80 IF (FORM) 40,70,70 C C K M C CHECK USING EQUATION --- C 2 C 40 N2 = N*2 K = N2/Z(IZ6) IF (K*Z(IZ6) .NE. N2) GO TO 80 C C GOOD INDICE, ADD IT TO THE LIST C 50 NNN = NNN + 1 Z(NNN) = Z(I) GO TO 80 C C (2K+1)M C CHECK USING EQUATION ------- C 4 C 70 N4 = N*4 IK = N4 / Z(IZ6) IK = IK - 1 K = IK / 2 IF ((2*K+1)*Z(IZ6) .EQ. N4) GO TO 50 80 CONTINUE C C LIST IS COMPLETE C IN = INN NN = NNN 90 LABFL = .TRUE. IF (NN .LT. IN) LABFL = .FALSE. C C SET LKBFL AS A FLAG INDICATING WHETHER KBFL WILL BE GENERATED C ALONG WITH ABFL. IF G IS NON-ZERO THEN KBFL WILL BE GENERATED. C LKBFL = .TRUE. IF (RZ(IZ2).EQ.0.0) LKBFL = .FALSE. IF (LKBFL) KFLAGS(1) = 0 IF (LABFL) KFLAGS(2) = 0 IF (.NOT.LABFL .AND. .NOT.LKBFL) GO TO 10000 C C BGPDT IS NOW READ INTO CORE AS 5 WORD ENTRIES, RESERVING FIRST C WORD FOR THE EXTERNAL ID. C FILE = BGPDT IBGPDT = NN + 1 NBGPDT = NN CALL GOPEN (BGPDT,Z(BUF2),RDREW) 100 CALL READ (*10002,*120,BGPDT,Z(NBGPDT+2),4,NOEOR,FLAG) NBGPDT = NBGPDT + 5 IF (NBGPDT+5 .GT. CORE) CALL MESAGE (-8,0,SUBR) GO TO 100 120 CALL CLOSE (BGPDT,CLSREW) C C READ EQEXIN PLACING EXTERNAL ID ON RESPECTIVE BGPDT ENTRY. C FILE = EQEXIN CALL GOPEN (EQEXIN,Z(BUF2),RDREW) 130 CALL READ (*10002,*140,EQEXIN,BUF,2,NOEOR,FLAG) N = 5*BUF(2) - 5 + IBGPDT Z(N) = BUF(1) GO TO 130 140 CALL CLOSE (EQEXIN,CLSREW) LBGPDT = NBGPDT - IBGPDT + 1 ENTRYS = LBGPDT / 5 C C SORT THE BGPDT ON EXTERNAL ID C CALL SORT (0,0,5,1,Z(IBGPDT),LBGPDT) C C BLAST CSTM INTO CORE C FILE = CSTM CALL GOPEN (CSTM,Z(BUF2),RDREW) ICSTM = NBGPDT + 1 CALL READ (*10002,*160,CSTM,Z(ICSTM),CORE-ICSTM,NOEOR,FLAG) CALL MESAGE (-8,0,SUBR) 160 NCSTM = ICSTM + FLAG - 1 LCSTM = NCSTM - ICSTM + 1 CALL CLOSE (CSTM,CLSREW) C C LOCATE THE T MATRIX IN THE CSTM DATA BY USING CSID = CDF IN C 0F C C THE HEADER DATA. ( Z(1) ) C DO 200 I = ICSTM,NCSTM,14 IF (Z(1) .EQ. Z(I)) GO TO 240 200 CONTINUE WRITE (IOUT,210) SFM,Z(1) 210 FORMAT (A25,' 4060, COORDINATE SYSTEM =',I9, 1 ' CAN NOT BE FOUND IN CSTM DATA.') GO TO 9999 240 N = I + 5 DO 250 I = 1,9 T0F(I) = DBLE(RZ(N)) N = N + 1 250 CONTINUE C C OPEN BDPOOL FOR ABFL, AND SCRATCH1 FOR KBFL AND WRITE THE DMIG C HEADER INFORMATION. C CALL GOPEN (BDPOOL,Z(BUF2),WRTREW) C C WRITE DMIG RECORD ID C CALL WRITE (BDPOOL,DMIG,3,NOEOR) BUF(1) = NABFL(1) BUF(2) = NABFL(2) BUF(3) = 0 BUF(4) = 1 BUF(5) = 1 BUF(6) = IPREC BUF(7) = 0 BUF(8) = 0 BUF(9) = 0 IF (.NOT. LABFL) GO TO 270 CALL WRITE (BDPOOL,BUF,9,NOEOR) 270 IF (.NOT.LKBFL) GO TO 280 FILE = SCRT1 CALL OPEN (*10001,SCRT1,Z(BUF3),WRTREW) BUF(1) = NKBFL(1) BUF(2) = NKBFL(2) CALL WRITE (SCRT1,BUF,9,NOEOR) C C READ SOME FLUID-PT DATA (IDF,R,Z,L,C,S,RHO) C 280 FILE = MATPOL CALL READ (*10002,*10003,MATPOL,IDF,1,NOEOR,FLAG) 285 IDATA = NCSTM + 1 NDATA = NCSTM + 6 CALL READ (*10002,*10003,MATPOL,Z(IDATA),6,NOEOR,FLAG) C C START BUILDING TABLE OF CONNECTED GRID POINTS. C READ ID,PHI. CREATE A 26 WORD ENTRY FOR EACH ID,PHI. C ITABLE = NDATA + 1 C C INSURE THAT TABLE STARTS ON AN EVEN BOUNDARY FOR DOUBLE C PRECISION C IF (MOD(ITABLE,2) .NE. 1) ITABLE = ITABLE + 1 NTABLE = ITABLE - 1 290 CALL READ (*10002,*10003,MATPOL,Z(NTABLE+1),2,NOEOR,FLAG) IF (Z(NTABLE+1) .EQ. -1) GO TO 300 C C CONVERT PHI TO RADIANS C RZ(NTABLE+2) = RZ(NTABLE+2)*DEGRAD NTABLE = NTABLE + 26 IF (NTABLE+26 .GT. CORE) CALL MESAGE (-8,0,SUBR) GO TO 290 C C COMPUTATION AND INSERTION OF PHI AND PHI FOR EACH ENTRY. C 0 1 C 300 DO 370 I = ITABLE,NTABLE,26 C C SET UP PHI IN THIRD SLOT OF ENTRY = (PHI + PHI )/2.0 C 0 I I-1 C IF (I .NE. ITABLE) GO TO 310 C C SPECIAL CASE ON FIRST POINT, TEST M TO FIND PHI C I-1 C IF (Z(IZ6) .GT. 1) GO TO 320 PHIL1 = RZ(NTABLE-24) - TWOPI GO TO 350 320 PHIL1 = RZ(ITABLE+1) GO TO 350 310 PHIL1 = RZ(I-25) 350 RZ(I+2) = (RZ(I+1) + PHIL1) / 2.0 C C SET UP PHI IN FOURTH SLOT OF ENTRY = (PHI + PHI )/2.0 C 1 I I+1 C IF (I .NE. NTABLE-25) GO TO 345 C C SPECIAL CASE ON LAST POINT, TEST M TO FIND PHI C I+1 C IF (Z(IZ6) .GT. 1) GO TO 340 PHIP1 = RZ(ITABLE+1) + TWOPI GO TO 360 340 PHIP1 = RZ(NTABLE-24) GO TO 360 345 PHIP1 = RZ(I+27) 360 RZ(I+3) = (RZ(I+1) + PHIP1) / 2.0 370 CONTINUE C C PICK UP NEXT FLUID POINT IDF C NEXTID = 0 CALL READ (*10002,*400,MATPOL,NEXTID,1,NOEOR,FLAG) IF (NEXTID .NE. IDF) GO TO 400 C C NEXTID IS SAME AS CURRENT IDF, THUS ADD ANOTHER ENTRY OF R,Z,L,C, C S,RH FIRST MOVE SINGLE ENTRY DOWN UNDER TABLE SO IT CAN GROW. C Z(NTABLE+1) = Z(IDATA ) Z(NTABLE+2) = Z(IDATA+1) Z(NTABLE+3) = Z(IDATA+2) Z(NTABLE+4) = Z(IDATA+3) Z(NTABLE+5) = Z(IDATA+4) Z(NTABLE+6) = Z(IDATA+5) IDATA = NTABLE + 1 NDATA = NTABLE + 6 380 IF (NDATA+6 .GT. CORE) CALL MESAGE (-8,0,SUBR) CALL READ (*10002,*10003,MATPOL,Z(NDATA+1),6,NOEOR,FLAG) NDATA = NDATA + 6 C C SKIP THE ID-PHI PAIRS AS THEY SHOULD BE IDENTICAL TO ONES ALREADY C IN THE TABLE. C 390 CALL READ (*10002,*10003,MATPOL,BUF,2,NOEOR,FLAG) IF (BUF(1) .NE. -1) GO TO 390 C C READ THE NEXTID C NEXTID = 0 CALL READ (*10002,*400,MATPOL,NEXTID,1,NOEOR,FLAG) IF (NEXTID .EQ. IDF) GO TO 380 C C SORT THE TABLE ON FIELD ONE OF EACH ENTRY THE ID. C 400 CALL SORT (0,0,26,1,Z(ITABLE),NTABLE-ITABLE+1) C C T C FOR EACH ENTRY GENERATE THE T T MATRICE AND IF LKBFL = .TRUE. C I 0F C C THE W MATRICE. C I C DO 500 I = ITABLE,NTABLE,26 C C LOCATE THE TRANSFORMATION MATRIX IN DOUBLE PRECISION. C FIRST LOCATE BGPDT ENTRY C KID = Z(I) CALL BISLOC (*10004,KID,Z(IBGPDT),5,ENTRYS,POINT) POINT = POINT + IBGPDT CALL BMGTNS (Z(ICSTM),LCSTM,Z(POINT),TI(1)) C C COMPUTE VI MATRIX. (3X3) C CALL GMMATD (TI(1),3,3,1, T0F(1),3,3,0, Z(I+4)) IF (.NOT. LKBFL) GO TO 500 J = (I+4)/2 RZ(I+22) = DZ(J+3) RZ(I+23) = DZ(J+6) RZ(I+24) = DZ(J+9) 500 CONTINUE C C GENERATION AND OUTPUT OF MATRIX COLUMNS TO THE ABFL MATRIX. C IF (.NOT.LABFL) GO TO 690 DO 680 I = IN,NN C C COLUMN INDEX INFORMATION GJ,CJ FOR THIS HARMONIC COLUMN C BUF(1) = IDF + Z(I)*500000 BUF(2) = 0 CALL WRITE (BDPOOL,BUF,2,NOEOR) C C TERMS OF THE COLUMN C DO 670 J = ITABLE,NTABLE,26 C C 3 TERMS FOR THE J-TH ID ARE THE FOLLOWING SUMMATION C TERM(1) = 0.0D0 TERM(2) = 0.0D0 TERM(3) = 0.0D0 DO 650 K = IDATA,NDATA,6 C C N C COMPUTATION OF A C I C AIN = RZ(K)*RZ(K+2) N = (Z(I) - 1) / 2 FN = N IF (N) 520,510,520 C C N = 0 C 510 AIN = AIN*DBLE(RZ(J+3) - RZ(J+2)) GO TO 545 C C N IS POSITIVE, CHECK FOR STAR CASE = N* C 520 IF (MOD(Z(I),2)) 540,530,540 530 DUB = (SIN(RZ(J+3)*FN) - SIN(RZ(J+2)*FN)) / FN AIN = AIN*DUB GO TO 545 540 DUB = (COS(RZ(J+2)*FN) - COS(RZ(J+3)*FN)) / FN AIN = AIN*DUB C C FORM VI MATRIX FOR THIS POINT C 545 DTEMP(1) = RZ(K+3)*COS(RZ(J+1)) DTEMP(2) = RZ(K+3)*SIN(RZ(J+1)) DTEMP(3) = RZ(K+4) CALL GMMATD (Z(J+4),3,3,0, DTEMP(1),3,1,0, VI(1)) DO 550 L = 1,3 TERM(L) = TERM(L) + AIN*VI(L) 550 CONTINUE 650 CONTINUE C C OUTPUT THESE 3 TERMS C BUF(1) = Z(J) DO 660 K = 1,3 BUF(2) = K RBUF(3) = TERM(K) IF (RBUF(3)) 655,660,655 655 CALL WRITE (BDPOOL,BUF,3,NOEOR) 660 CONTINUE 670 CONTINUE CALL WRITE (BDPOOL,MONES,2,NOEOR) 680 CONTINUE C C GENERATION AND OUTPUT OF COLUMNS TO THE KBFL MATRIX. C 690 IF (.NOT.LKBFL) GO TO 800 DO 750 I = ITABLE,NTABLE,26 COSPHI = COS(RZ(I+1)) SINPHI = SIN(RZ(I+1)) ANGLE = RZ(I+3) - RZ(I+2) C C PUT OUT 3 COLUMNS FOR EACH OF THESE CONNECTED GRIDPOINTS C C SOLVE NOW FOR K V = 3X1 CONSTANT FOR THE 3 COLUMNS C II I C C AND IS A SUMMATION C TERM(1) = 0.0D0 TERM(2) = 0.0D0 TERM(3) = 0.0D0 DO 715 J = IDATA,NDATA,6 KII = RZ(J)*RZ(J+2)*RZ(J+5)*RZ(IZ2)*ANGLE DTEMP(1) = KII*RZ(J+3)*COSPHI DTEMP(2) = KII*RZ(J+3)*SINPHI DTEMP(3) = KII*RZ(J+4) CALL GMMATD (Z(I+4),3,3,0, DTEMP(1),3,1,0, VI(1)) DO 710 K = 1,3 TERM(K) = TERM(K) + VI(K) 710 CONTINUE 715 CONTINUE C C PUT OUT THE 3 COLUMNS C DO 740 J = 1,3 HEAD = .FALSE. L = I + J + 21 DTEMP(1) = DBLE(RZ(L))*TERM(1) DTEMP(2) = DBLE(RZ(L))*TERM(2) DTEMP(3) = DBLE(RZ(L))*TERM(3) BUF(1) = Z(I) DO 730 K = 1,3 BUF(2) = K RBUF(3) = DTEMP(K) C C TERM IS NOT WRITTEN IF HAS A ZERO VALUE C IF (RBUF(3)) 720,730,720 720 IF (HEAD) GO TO 721 BUF(4) = Z(I) BUF(5) = J CALL WRITE (SCRT1,BUF(4),2,NOEOR) HEAD = .TRUE. 721 CALL WRITE (SCRT1,BUF,3,NOEOR) 730 CONTINUE IF (HEAD) CALL WRITE (SCRT1,MONES,2,NOEOR) 740 CONTINUE 750 CONTINUE C C PROCESS THE NEXT FLUID POINT C 800 IF (NEXTID) 810,840,810 810 IDF = NEXTID GO TO 285 C C ALL FLUID POINTS HAVE NOW BEEN PROCESSED. APPEND THE KBFL, IF C ANY, DATA TO THE ABFL DATA AND WRAP UP. C 840 IF (LABFL) CALL WRITE (BDPOOL,MONES,2,NOEOR) IF (.NOT.LKBFL) GO TO 900 CALL WRITE (SCRT1,0,0,EOR) CALL CLOSE (SCRT1,CLSREW) FILE = SCRT1 CALL OPEN (*10001,SCRT1,Z(BUF3),RDREW) 850 CALL READ (*10002,*860,SCRT1,Z(1),CORE,NOEOR,FLAG) CALL WRITE (BDPOOL,Z(1),CORE,NOEOR) GO TO 850 860 CALL WRITE (BDPOOL,Z(1),FLAG,NOEOR) CALL WRITE (BDPOOL,MONES,2,EOR) 900 CALL CLOSE (BDPOOL,CLSREW) C C PREPARE AND WRITE TRAILER C BUF(1) = BDPOOL C C SET TRAILER BIT FOR DMIG CARDS C BUF(2) = 32768 BUF(3) = 0 BUF(4) = 0 BUF(5) = 0 BUF(6) = 0 BUF(7) = 0 CALL WRTTRL (BUF) CALL CLOSE (SCRT1,CLSREW) C C END OF PROCESSING C 10000 CALL CLOSE (MATPOL,CLSREW) RETURN C C ERROR CONDITIONS C 10001 CALL MESAGE (-1,FILE,SUBR) 10002 CALL MESAGE (-2,FILE,SUBR) 10003 CALL MESAGE (-3,FILE,SUBR) GO TO 10000 10004 WRITE (IOUT,10005) SFM,Z(I) 10005 FORMAT (A25,' 4061, CONNECTED FLUID POINT ID =',I10, 1 ' IS MISSING BGPDT DATA.') C 9999 CALL MESAGE (-61,0,0) RETURN C END ================================================ FILE: mis/bmgtns.f ================================================ SUBROUTINE BMGTNS(CSTM,NCSTM,ECPT,TA) C/// THIS ROUTINE WAS LIFTED FROM PRETRD AND TRANSD AND CONVERTED C///// TO HAVE ONE ENTRY POINT C C PRETRD SETS UP EVENTUAL CALLS TO TRANSD. FOR A MODULE TO USE TRANSD C A CALL TO PRETRD MUST BE INITIATED BY THE MODULE DRIVER ONCE AND ONLY C ONCE. CSTM IS ARRAY OF COORDINATE SYSTEM TRANSFORMATION MATRICES C AND NCSTM IS THE LENGTH OF THIS ARRAY. C DIMENSION CSTM(1) C***** C GIVEN THE ECPT ARRAY OF LENGTH 4, THE FIRST WORD BEING AN INTEGER C COORDINATE SYSTEM IDENTIFICATION NUMBER AND THE NEXT WORDS BEING THE C REAL COORDINATES OF A POINT IN BASIC COORDINATES, THIS ROUTINE C COMPUTES THE TRANSFORMATION (DIRECTION COSINE) MATRIX TA WHICH WILL C MAP A VECTOR FROM THE LOCAL SYSTEM LABELED ECPT(1) TO BASIC COORDI- C NATES. TA IS A DOUBLE PRECISION MATRIX. C***** DIMENSION ECPT(4) C DOUBLE PRECISION 1 TA(9) ,TL(9) 2, XN(3) ,X 3, Y ,Z 4, R ,KE(9) 5, XL C EQUIVALENCE (FL1,INT1) ,(FL2,INT2) C FL1 = ECPT(1) IF(INT1.EQ.0) GO TO 13 DO 6 I = 1,NCSTM,14 FL2 = CSTM(I) IF(INT1.NE.INT2) GO TO 6 KK = I FL2 = CSTM(I + 1) GO TO (7,10,10),INT2 6 CONTINUE C C THE COORDINATE SYSTEM ID. COULD NOT BE FOUND IN THE CSTM. C CALL MESAGE (-30,25,INT1) C C THE COORDINATE SYSTEM IS RECTANGULAR. C 7 DO 8 J = 1,9 K = KK + 4 + J 8 TA(J) = CSTM(K) RETURN 10 XN(1) = ECPT(2) - CSTM(KK+2) XN(2) = ECPT(3) - CSTM(KK+3) XN(3) = ECPT(4) - CSTM(KK + 4) X = CSTM(KK+5)*XN(1)+CSTM(KK+8)*XN(2)+CSTM(KK+11)*XN(3) Y = CSTM(KK+6)*XN(1)+CSTM(KK+9)*XN(2)+CSTM(KK+12)*XN(3) Z = CSTM(KK+7)*XN(1)+CSTM(KK+10)*XN(2)+CSTM(KK+13)*XN(3) R = DSQRT(X**2+Y**2) IF (R .EQ. 0.0D0) GO TO 7 DO 110 J=1,9 K=KK+4+J 110 KE(J)=CSTM(K) GO TO (11,11,12),INT2 C C THE COORDINATE SYSTEM IS CYLINDRICAL. C 11 TL(1)=X/R TL(2)=-Y/R TL(3)=0.0D0 TL(4)=-TL(2) TL(5)=TL(1) TL(6)=0.0D0 TL(7)=0.0D0 TL(8)=0.0D0 TL(9)=1.0D0 GO TO 125 C C THE COORDINATE SYSTEM IS SPHERICAL. C 12 XL=DSQRT(X*X+Y*Y+Z*Z) TL(1)=X/XL TL(2)=(X*Z)/(R*XL) TL(3)=-Y/R TL(4)=Y/XL TL(5)=(Y*Z)/(R*XL) TL(6)=X/R TL(7)=Z/XL TL(8)=-R/XL TL(9)=0.0D0 125 CALL GMMATD (KE(1),3,3,0, TL(1),3,3,0, TA(1)) RETURN C C THE LOCAL SYSTEM IS BASIC. C 13 DO 14 I=1,9 14 TA(I)=0.0D0 TA(1)=1.0D0 TA(5)=1.0D0 TA(9)=1.0D0 RETURN END ================================================ FILE: mis/border.f ================================================ SUBROUTINE BORDER (GPLST,X,U,ISTORE,DEFORM,B1,OPCOR) C INTEGER GPLST(1),DEFORM,OPCOR,SCR2,WORDS(2),ELID,B1,SCR4 REAL X(3,1),U(2,1) DIMENSION PT(2,3),ISTORE(2) COMMON /BLANK/ SKIP(25),SCR2,SCR3,SCR4 EQUIVALENCE (WORDS(1),NELMT),(WORDS(2),IGDPT) C LCOR = OPCOR/5 - 1 CALL OPEN (*150,SCR2,GPLST(B1),0) CALL LINE (0.,0.,0.,0.,1,-1) 9 CALL FWDREC (*100,SCR2) 10 CALL READ (*100,*9,SCR2,IFLAG,1,0,M) IF (IFLAG .EQ. 0) GO TO 100 IF (IFLAG .EQ. -1) GO TO 9 CALL FREAD (SCR2,WORDS,2,0) IE = -1 20 IE = IE + 2 CALL READ (*100,*30,SCR2,ELID,1,0,M) CALL FREAD (SCR2,ISTORE(IE),2,0) GO TO 20 30 IONE = ISTORE(1) ITWO = ISTORE(2) IF (NELMT .EQ. 1) GO TO 50 IE = 2*NELMT IE1= IE - 1 DO 37 I = 1,IE1 IF (ISTORE(I) .EQ. 0) GO TO 37 IP1 = I + 1 DO 36 J = IP1,IE IF (ISTORE(I) .NE. ISTORE(J)) GO TO 36 ISTORE(I) = 0 ISTORE(J) = 0 GO TO 37 36 CONTINUE 37 CONTINUE J = 0 DO 40 I = 1,IE IF (ISTORE(I) .EQ. 0) GO TO 40 J = J + 1 IF (J-1) 38,38,39 38 IONE = ISTORE(I) GO TO 40 39 ITWO = ISTORE(I) 40 CONTINUE IF (J .EQ. 0) GO TO 10 50 IG = IABS(GPLST(IGDPT)) IF (DEFORM .NE. 0) GO TO 57 PT(1,3) = X(2,IG) PT(2,3) = X(3,IG) GO TO 60 57 PT(1,3) = U(1,IG) PT(2,3) = U(2,IG) 60 IG = IONE DO 65 I = 1,2 IG = IABS(GPLST(IG)) IF (DEFORM .NE. 0) GO TO 63 PT(1,I) = X(2,IG) PT(2,I) = X(3,IG) GO TO 64 63 PT(1,I) = U(1,IG) PT(2,I) = U(2,IG) 64 CALL LINE (PT(1,I),PT(2,I),PT(1,3),PT(2,3),1,0) IG = ITWO 65 CONTINUE GO TO 10 100 CALL LINE (0.,0.,0.,0.,1,+1) CALL CLOSE (SCR2,1) 150 RETURN END ================================================ FILE: mis/bound.f ================================================ SUBROUTINE BOUND (FBREC,AFE,NAFE,KGE,NKGE) C C COMPUTES AREA FACTOR AND GRAVITIONAL STIFFNESS MATRICES FOR A FACE C OF A INDIVIDUAL FLUID ELEMENT C LOGICAL ERROR ,GRAV INTEGER GF1 ,GF2 ,GF3 ,GF4 ,FBREC(12), 1 GS1 ,GS2 ,GS3 ,GS4 ,GRID(3,4), 2 GSI ,GSJ ,IZ(1) ,LOCSOF(4),LOCTOF(3), 3 LOCFOS(4),FLEDGE(2,4) ,FEDGE(2,4) , 4 STEDGE(2,3) REAL Z DOUBLE PRECISION AFE(48) ,KGE(144) ,IN(3) ,JN(3) , 1 KN(3) ,R12(3) ,R13(3) ,R14(3) ,R24(3) , 2 H ,NN ,KS(3) ,MAG ,X3 , 3 Y3 ,Y4 ,S(48) ,X4 ,AKJ(3,4) , 4 AA ,BB ,CC ,A ,ZZ , 5 DVMAG ,RHOXG ,Y(3) ,E(3,2) ,KII(144) , 6 KTWO(2,2),KIK(9) ,T(3,3) ,KTEMP(2,3) , 7 TFST(3,3),Z1 ,X1 ,DHALF ,C1 , 8 ST(3,4) ,Z2 ,Y1 ,EPS(2) ,C2 , 9 FL(3,4) ,Z3 ,X2 ,DLB ,C3 , O TR(3,3) ,Z4 ,Y2 ,DUB ,D1 , 1 P(2,7) ,SS(9) ,AA2 ,NN1 ,D2 , 2 C(4,7) ,EPSLON ,FDET ,ZZ1 ,DZ , 3 F(3,7) ,NX ,AKJCON ,DD ,AEPS , 4 PT(3,4) ,TRIA ,EPSO10 ,AFLEL ,LEPS , 5 VTEMP(3) ,KSB(3) ,NZ ,KIDENT(3),FACTII , 6 CONII ,FII ,DPOLY ,ASTRIA ,ASTREL , 7 AFLSTR ,DADOTB ,DAPOLY CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM C C OPEN CORE C COMMON /ZZZZZZ/ Z(1) C C CORE POINTERS C COMMON /FLBPTR/ ERROR ,ICORE ,LCORE ,IBGPDT ,NBGPDT , 1 ISIL ,NSIL ,IGRAV ,NGRAV C C MATERIAL PROPERTIES C COMMON /MATIN / MATID ,INFLAG COMMON /MATOUT/ DUM(3) ,RHO C C MODULE PARAMETERS C COMMON /BLANK / NOGRAV C C NASTRAN PARAMETERS C COMMON /SYSTEM/ SYSBUF ,NOUT EQUIVALENCE (TFST(1,1),IN(1)) ,(X1,FL(1,1)) ,(X2,FL(1,2)) , 1 (TFST(1,2),JN(1)) ,(Y1,FL(2,1)) ,(Y2,FL(2,2)) , 2 (TFST(1,3),KN(1)) ,(Z1,FL(3,1)) ,(Z2,FL(3,2)) , 3 (SS(1),BB) ,(X3,FL(1,3)) ,(X4,FL(1,4)) , 4 (SS(2),CC) ,(Y3,FL(2,3)) ,(Y4,FL(2,4)) , 5 (SS(3),ZZ) ,(Z3,FL(3,3)) ,(Z4,FL(3,4)) , 6 (SS(4),NN) ,(SS(5),NN1) ,(SS(6),ZZ1 ) , 7 (EPS(1),AEPS) ,(EPS(2),LEPS) ,(FII,BB ) , 8 (FACTII,CC) ,(CONII,AKJCON),(Z(1),IZ(1)) C C GRID POINTS TO BE USED IN SUBDIVIDING QUADS INTO TRIANGLES C DATA GRID / 1 ,2 ,3 , 1 2 ,3 ,4 , 2 3 ,4 ,1 , 3 4 ,1 ,2 / C DATA DZ, D1, D2, DHALF / 0.D0, 1.D0, 2.D0, .5D0 / DATA EPSLON, EPSO10 / 1.D-3, 1.D-4 / DATA DLB , DUB /-1.D-3, 1.001D0 / DATA X1, X2, Y1, Y2, Z1, Z2, Z3, Z4 / 8*0.D0 / C DATA FEDGE / 1,2, 2,3, 3,4, 4,1 / DATA STEDGE/ 1,2, 2,3, 3,1 / DATA KIDENT/ 0.D0, 0.D0, 1.D0 / C C C DETERMINE SIZES OF MATRIX PARTITIONS C NGRIDS = 4 IF (FBREC( 6) .LT. 0) NGRIDS = 3 NGRIDF = 4 IF (FBREC(12) .LT. 0) NGRIDF = 3 C NROW = 3*NGRIDS NAFE = NROW*NGRIDF*2 NKGE = 0 C C OBTAIN MATERIAL PROPERTY AND GRAVITY DATA IF GRAV ID IS C PRESENT C GRAV = .FALSE. IF (FBREC(7) .EQ. 0) GO TO 600 INFLAG = 11 MATID = FBREC(8) CALL MAT (FBREC(1)) C IF (NGRAV .EQ. 0) GO TO 8013 LGRAV = IGRAV + NGRAV - 1 DO 200 I = IGRAV,LGRAV,6 IF (IZ(I) .EQ. FBREC(7)) GO TO 400 200 CONTINUE C GO TO 8013 C 400 G = SQRT(Z(I+3)**2 + Z(I+4)**2 + Z(I+5)**2) G = G*Z(I+2) RHOXG = DBLE(RHO)*DBLE(G) NKGE = NROW*NROW*2 NOGRAV= 1 GRAV = .TRUE. C C NORMILIZE THE GRAVITY VECTOR C E(1,2) = DBLE(Z(I+3)) E(2,2) = DBLE(Z(I+4)) E(3,2) = DBLE(Z(I+5)) CALL DNORM (E(1,2),MAG) IF (IZ(I+1) .EQ. 0) GO TO 600 C C TRANSFORM GRAVITY VECTOR TO BASIC C J = IZ(IBGPDT) IZ(IBGPDT) = IZ(I+1) CALL TRANSD (IZ(IBGPDT),TR) IZ(IBGPDT) = J CALL GMMATD (TR,3,3,0,E(1,2),3,1,0,VTEMP) DO 500 J = 1,3 500 E(J,2) = VTEMP(J) C C C COMPUTE NEW COORDINATES FOR FLUID FACE BASED ON FLUID COORDINATE C SYSTEM - PERFORM THIS ONLY IF THE FLUID FACE HAS CHANGED C THESE COMPUTATIONS INCLUDE -- C C IN,JN,KN - NORMAL VECTORS TO DEFINE FLUID COORDINATE SYSTEM C X2,X3,X4 - X COORDINATES OF GRID POINTS IN NEW SYSTEM C ( X1 = 0 ) C Y3,Y4 Y COORDINATES OF GRID POINTS IN NEW SYSTEM C ( Y1,Y2 = 0 ) C C NORMAL (UNIT) VECTORS STORED *COLUMN-WISE* IN U -- C I IN U(L,1), J IN U(L,2), K IN U(L,3), L= 1,3 C TRANSFORMED FLUID COORDINATES STORED IN FL C C C LOCATE GRID POINTS COORDINATES FOR THE FLUID GRID POINTS IN THE C BGPDT TABLE C 600 GF1 = IBGPDT + (FBREC( 9)-1)*4 GF2 = IBGPDT + (FBREC(10)-1)*4 GF3 = IBGPDT + (FBREC(11)-1)*4 GF4 = -1 IF (NGRIDF .EQ. 4) GF4 = IBGPDT + (FBREC(12)-1)*4 C IF (NGRIDF .EQ. 4) GO TO 700 C C TRIANGULAR FLUID FACE C DO 660 I = 1,3 R12(I) = Z(GF2+I) - Z(GF1+I) IN(I) = R12(I) 660 R13(I) = Z(GF3+I) - Z(GF1+I) C CALL DNORM (IN,MAG) X2 = MAG C CALL DAXB (R12,R13,KN) CALL DNORM (KN,MAG) C CALL DAXB (KN,IN,JN) C X3 = R13(1)*IN(1) + R13(2)*IN(2) + R13(3)*IN(3) Y3 = R13(1)*JN(1) + R13(2)*JN(2) + R13(3)*JN(3) GO TO 1000 C C QUADRATIC FLUID FACE C 700 DO 800 I = 1,3 R12(I) = Z(GF2+I) - Z(GF1+I) R13(I) = Z(GF3+I) - Z(GF1+I) R14(I) = Z(GF4+I) - Z(GF1+I) 800 R24(I) = Z(GF4+I) - Z(GF2+I) C CALL DAXB (R13,R24,KN) CALL DNORM (KN,MAG) C H = R12(1)*KN(1) + R12(2)*KN(2) + R12(3)*KN(3) C DO 900 I = 1,3 900 IN(I) = R12(I) - H*KN(I) CALL DNORM (IN,MAG) C X2 = MAG C CALL DAXB (KN,IN,JN) C X3 = R13(1)*IN(1) + R13(2)*IN(2) + R13(3)*IN(3) X4 = R14(1)*IN(1) + R14(2)*IN(2) + R14(3)*IN(3) Y3 = R13(1)*JN(1) + R13(2)*JN(2) + R13(3)*JN(3) Y4 = R14(1)*JN(1) + R14(2)*JN(2) + R14(3)*JN(3) C C VARIOUS CALCULATIONS DEPENDENT ON FLUID FACE C C INDICES FOR CORNERS OF FLUID ELEMENT C 1000 DO 1010 N = 1,2 DO 1010 J = 1,NGRIDF 1010 FLEDGE(N,J) = FEDGE(N,J) FLEDGE(2,NGRIDF) = 1 C C SET UP FOR FLUID TRIANGLE C C1 = (D1 - FL(1,3)/FL(1,2))/FL(2,3) C2 = FL(1,3)/(FL(1,2)*FL(2,3)) DO 1020 N = 1,3 R12(N) = FL(N,2) - FL(N,1) 1020 R13(N) = FL(N,3) - FL(N,1) CALL DAXB (R12,R13,VTEMP) C IF (NGRIDF .EQ. 3) GO TO 1040 C C SET UP FOR FLUID QUADRANGLE C C1 = FL(2,3) - FL(2,4) C2 = FL(1,2)*FL(2,4) C3 = FL(1,2) - FL(1,3) + FL(1,4) AA =-FL(1,2)*C1 AA2 = D2*AA C DO 1030 N = 1,3 R13(N) = FL(N,3) - FL(N,1) 1030 R24(N) = FL(N,4) - FL(N,2) CALL DAXB (R13, R24,VTEMP) 1040 AFLEL = DVMAG(VTEMP,DZ) C C ZERO OUT AREA FACTOR MATRIX C AND AREA COMMON TO FLUID AND STRUCTURE ELEMENTS (AFLSTR) C DO 1042 I = 1,48 AFE(I) = DZ 1042 S(I) = 0.0D0 DO 1044 I = 1,144 1044 KGE(I) = 0.0D0 AFLSTR = 0.0 C C DETERMINE NUMBER OF STRUCTURAL TRIANGLES TO BE USED, ITRIA C AND CUMULATIVE AREA CONSTANT, TRIA C ITRIA= 4, TRIA= .5 WHEN STRUCTURE ELEMENT IS QUADRANGLE C ITRIA= 1, TRIA= 1. WHEN STRUCTURE ELEMENT IS TRIANGLE C ITRIA = 1 TRIA = D1 IF (NGRIDS .EQ. 3) GO TO 1050 ITRIA = 4 TRIA = DHALF C C TRANSFORM STRUCTURE COORDINATES TO FLUID COORDINATE SYSTEM C 1050 GS1 = IBGPDT + (FBREC(3)-1)*4 GS2 = IBGPDT + (FBREC(4)-1)*4 GS3 = IBGPDT + (FBREC(5)-1)*4 GS4 = -1 IF (NGRIDS .EQ. 4) GS4 = IBGPDT + (FBREC(6)-1)*4 C DO 1060 N = 1,3 PT(N,1) = Z(GS1+N) - Z(GF1+N) PT(N,2) = Z(GS2+N) - Z(GF1+N) PT(N,3) = Z(GS3+N) - Z(GF1+N) PT(N,4) = DZ IF (NGRIDS .EQ. 4) PT(N,4) = Z(GS4+N) - Z(GF1+N) DO 1060 K = 1,4 ST(N,K) = DZ 1060 CONTINUE C DO 1070 K = 1,NGRIDS DO 1070 N = 1,3 DO 1070 M = 1,3 1070 ST(N,K) = ST(N,K) + PT(M,K)*TFST(M,N) DO 1075 N = 1,2 R12(N) = ST(N,2) - ST(N,1) R13(N) = ST(N,3) - ST(N,1) IF (NGRIDS .EQ. 4) R24(N) = ST(N,4) - ST(N,2) 1075 CONTINUE CALL DAXB (R12,R13,VTEMP) IF (NGRIDS .EQ. 4) CALL DAXB (R12,R24,VTEMP) ASTREL = DVMAG(VTEMP,DZ) AEPS = DHALF*DMIN1(AFLEL,ASTREL) LEPS = DZ IF (AEPS .GT. DZ) LEPS = EPSLON*DSQRT(AEPS) AEPS = EPSLON*AEPS C C LOCATE STRUCTURE ELEMENT GRIDS RELATIVE TO FLUID SURFACE C LOCSOF FLAGS STRUCTURE ON FLUID: C 1= INSIDE, -1= OUTSIDE, 0= ON FLUID EDGE C CALL LOCPT (NGRIDS,ST,NGRIDF,FL,FLEDGE,KIDENT,EPS,LOCSOF) C C C LOOP THRU (INCREMENTAL) STRUCTURAL TRIANGLES (ITRIA IS 1 OR 4) C DO 2500 IT = 1,ITRIA C C LOCATE COORDINATES OF CURRENT TRIANGLE C GS1 = GRID(1,IT) GS2 = GRID(2,IT) GS3 = GRID(3,IT) C LOCTOF(1) = LOCSOF(GS1) LOCTOF(2) = LOCSOF(GS2) LOCTOF(3) = LOCSOF(GS3) C C TRANSFER COORDINATES OF CURRENT STRUCTURE TRIANGLE TO CONTIGUOUS C ARRAY, AND DO VARIOUS CALCULATIONS DEPENDENT ON THEM C DO 1100 N = 1,3 TR(N,1) = ST(N,GS1) TR(N,2) = ST(N,GS2) TR(N,3) = ST(N,GS3) R12(N) = TR(N,2) - TR(N,1) 1100 R13(N) = TR(N,3) - TR(N,1) C C OBTAIN KS, UNIT VECTOR NORMAL TO (XY) PLANE OF CURRENT STRUCTURAL C TRIANGLE (IN SYSTEM LOCAL TO FLUID ELEMENT) C CALL DAXB (R12,R13,KS) ASTRIA = DVMAG(KS,DZ) CALL DNORM (KS,MAG) C C OBTAIN KSB, UNIT VECTOR NORMAL TO (XY) PLANE OF CURRENT STRUCTURE C TRIANGLE (IN NASTRAN BASIC COORD SYSTEM) C DO 1150 N = 1,3 R12(N) = PT(N,GS2) - PT(N,GS1) R13(N) = PT(N,GS3) - PT(N,GS1) 1150 CONTINUE C CALL DAXB (R12,R13,KSB) CALL DNORM (KSB,MAG) C C CALCULATE EPSLON FUNCTIONS FOR SIGNIFICANCE TESTING C LEPS = DZ AEPS = DHALF*DMIN1(AFLEL,ASTRIA)*EPSLON IF (AEPS .GT. DZ) LEPS = DSQRT(AEPS) C C DETERMINE POINTS DESCRIBING AREA POLYGON COMMON TO BOTH FLUID C ELEMENT AND (INCREMENTAL) STRUCTURAL TRIANGLE C C POLYGON POINTS IN P(2,I) I .LE. 7 C FLUID POINTS IN FL(3,J) J .LE. 4 C TRIANGLE POINTS IN TR(3,K) K=1,3 C C DETERMINE POINTS DESCRIBING POLYGON OF COMMON AREA C C C LOCATE FLUID ELEMENT POINTS RELATIVE TO BOUNDRY OF THIS STRUCTURAL C TRIANGLE C CALL LOCPT (NGRIDF,FL,3,TR,STEDGE,KS,EPS,LOCFOS) DO 1240 J = 1,NGRIDF IF (LOCFOS(J) .LT. 0) GO TO 1300 1240 CONTINUE C C FLUID ELEMENT IS COMMON AREA POLYGON WHEN NO FLUID POINTS ARE C OUTSIDE BOUNDRY OF THIS STRUCTURAL TRIANGLE C NPOLY = NGRIDF DO 1250 N = 1,2 DO 1250 J = 1,NGRIDF 1250 P(N,J) = FL(N,J) GO TO 2000 C C CALL POLYPT TO DETERMINE POINTS DESCRIBING THE COMMON AREA POLYGON C 1300 CALL POLYPT (LOCTOF,STEDGE,TR,NGRIDF,FLEDGE,FL,LOCFOS,EPS,NPOLY,P) C C SKIP TO NEXT (INCREMENTAL) STRUCTURAL TRIANGLE WHEN THIS TRIANGLE C IS DISJOINT FROM FLUID ELEMENT C IF (NPOLY .LT. 3) GO TO 2500 C C AREA OF COMMON POLYGON AND HALVED WHEN OVERLAPPING (INCREMENTAL) C STRUCTURE TRIANGLES USED CUMULATIVE AREA OF FLUID/STRUCTURAL C ELEMENT OVERLAP C 2000 A = TRIA*DAPOLY(NPOLY,P) AFLSTR = AFLSTR + A C C TERMS FOR LOAD FACTORS C SS(1) = TR(1,1)*TR(2,2) SS(2) = -TR(1,1)*TR(2,3) SS(3) = TR(1,2)*TR(2,3) SS(4) = -TR(1,2)*TR(2,1) SS(5) = TR(1,3)*TR(2,1) SS(6) = -TR(1,3)*TR(2,2) FDET = DZ DO 2005 M = 1,6 2005 FDET = FDET + SS(M) SS(1) = SS(1) + SS(4) SS(2) = SS(2) + SS(5) SS(3) = SS(3) + SS(6) SS(4) = TR(2,2) - TR(2,3) SS(5) = TR(2,3) - TR(2,1) SS(6) = TR(2,1) - TR(2,2) SS(7) = TR(1,3) - TR(1,2) SS(8) = TR(1,1) - TR(1,3) SS(9) = TR(1,2) - TR(1,1) C C GET LOAD DISTRIBUTION FACTORS, F(K,I) C - FROM - C I -- AREA POLYGON POINT -- P(N,I) C K -- STRUCTURE TRIANGLE POINT -- TR(N,K) C DO 2010 I = 1,NPOLY F(1,I) = P(1,I)*SS(4) + P(2,I)*SS(7) + SS(3) F(2,I) = P(1,I)*SS(5) + P(2,I)*SS(8) + SS(2) 2010 F(3,I) = P(1,I)*SS(6) + P(2,I)*SS(9) + SS(1) C C GET PRESSURE DISTRIBUTION FACTORS, C(J,I) C - FROM - C I -- AREA POLYGON POINT -- P(N,I) C J -- FLUID ELEMENT POINT -- FL(N,J) C IF (NGRIDF .EQ. 4) GO TO 2030 C C FLUID ELEMENT IS TRIANGLE C DO 2020 I = 1,NPOLY BB = P(1,I)/FL(1,2) C(1,I) = D1 - BB - P(2,I)*C1 C(2,I) = BB - P(2,I)*C2 2020 C(3,I) = P(2,I)/FL(2,3) GO TO 2100 C C FLUID ELEMENT IS QUADRANGLE C 2030 DO 2050 I = 1,NPOLY BB = P(1,I)*C1 - C2 + P(2,I)*C3 CC = P(1,I)*FL(2,4) - P(2,I)*FL(1,4) IF (BB.EQ.DZ .OR. DABS(AA).GT.DABS(BB*EPSLON)) GO TO 2040 ZZ = -CC/BB GO TO 2045 C 2040 DD = DSQRT(BB*BB - D2*AA2*CC) ZZ = (DD-BB)/AA2 IF (ZZ.GT.DLB .AND. ZZ.LT.DUB) GO TO 2045 ZZ = (-DD-BB)/AA2 C 2045 NN = P(2,I)/(FL(2,4) + ZZ*C1) IF (NN.LE.DLB .OR. NN.GE.DUB) GO TO 8005 C ZZ1 = D1 - ZZ NN1 = D1 - NN C(1,I) = ZZ1*NN1 C(2,I) = ZZ *NN1 C(3,I) = ZZ *NN 2050 C(4,I) = ZZ1*NN C C CALCULATE AREA TERMS FOR THIS STRUCTURAL TRIANGLE AND INSERT IN C MATRIX C 2100 DPOLY = NPOLY AKJCON = A/(FDET*DPOLY) DPOLY = NPOLY - 1 FACTII = D1/DPOLY C DO 2120 J = 1,NGRIDF JLOC = 3*NGRIDS*(J-1) C DO 2120 K = 1,3 LOC = JLOC + 3*(GRID(K,IT)-1) C AKJ(K,J) = DZ DO 2110 I = 1,NPOLY 2110 AKJ(K,J) = AKJ(K,J) + F(K,I)*C(J,I) AKJ(K,J) = AKJCON*AKJ(K,J) C DO 2119 N = 1,3 2119 S(LOC+N) = S(LOC+N) + AKJ(K,J)*KSB(N) 2120 CONTINUE C IF (.NOT. GRAV) GO TO 2500 C C CALCULATE GRAVITATIONAL STIFFNESS TERMS FOR THIS TRIANGLE C AND INSERT INTO MATRIX C DO 2210 N = 1,3 2210 E(N,1) = DZ CALL DAXB (E(1,2),KSB,Y) MAG = DADOTB(Y,Y) IF (MAG .GT. DZ) MAG = DSQRT(MAG) IF (MAG .LT. EPSO10) GO TO 2220 C CALL DAXB (E(1,2),Y,E) CALL DNORM (E,MAG) C 2220 NX = 0.D0 NZ = 0.D0 DO 2230 N = 1,3 NX = NX + E(N,1)*KSB(N) 2230 NZ = NZ + E(N,2)*KSB(N) CONII = RHOXG*AKJCON/(D2*FDET) KTWO(1,1) = DZ C KTWO(2,1) = NX KTWO(1,2) = KTWO(2,1) KTWO(2,2) = NZ CALL GMMATD (E,2,3,1, KTWO,2,2,0, KTEMP) CALL GMMATD (KTEMP,3,2,0, E,2,3,0, KIK ) C DO 2250 KK1 = 1,3 K1LOC = 9*NGRIDS*(GRID(KK1,IT)-1) C DO 2250 KK2 = 1,3 LOC = K1LOC + 9*(GRID(KK2,IT)-1) C H = 0.D0 DO 2240 I1 = 1,NPOLY DO 2240 I2 = 1,NPOLY FII = F(KK1,I1)*F(KK2,I2) IF (I1 .NE. I2) FII= FACTII*FII 2240 H = H + FII C DO 2249 N = 1,9 KGE(LOC+N) = KGE(LOC+N) - KIK(N)*H*CONII 2249 CONTINUE C 2250 CONTINUE C C END OF (INCREMENTAL) STRUCTURAL TRIANGLE LOOP C 2500 CONTINUE C C WARNING MESSAGE WHEN FLUID AND STRUCTURE ELEMENTS ARE DISJOINT C IF (AFLSTR .LE. DZ) GO TO 8014 C C TRANSFORM THE AREA AND STIFFNESS MATRICES TO GLOBAL COORDINATES IF C REQUIRED C DO 2610 IROW = 1,NGRIDS GSI = IBGPDT + (FBREC(IROW+2)-1)*4 CALL TRANSD (Z(GSI),T) C C AREA FACTOR MATRIX C JLOC = 3*(IROW-1) C DO 2530 ICOL = 1,NGRIDF ILOC = 3*NGRIDS*(ICOL-1) + JLOC C IF (IZ(GSI) .EQ. 0) GO TO 2510 CALL GMMATD (T,3,3,1,S(ILOC+1),3,1,0,AFE(ILOC+1)) GO TO 2530 C 2510 DO 2520 I = 1,3 2520 AFE(ILOC+I) = S(ILOC+I) C 2530 CONTINUE IF (.NOT.GRAV) GO TO 2610 C C GRAVITATIONAL STIFFNESS MATRIX C JLOC = 9*(IROW-1) C DO 2600 ICOL = 1,NGRIDS ILOC = 9*NGRIDS*(ICOL-1) + JLOC C IF (IZ(GSI) .EQ. 0) GO TO 2540 CALL GMMATD (T,3,3,1, KGE(ILOC+1),3,3,0, KIK) GO TO 2570 C 2540 KLOC = ILOC DO 2550 I = 1,9 2550 KIK(I) = KGE(KLOC+I) C 2570 GSJ = IBGPDT + (FBREC(ICOL+2)-1)*4 IF (IZ(GSJ) .EQ. 0) GO TO 2580 CALL TRANSD (Z(GSJ),T) CALL GMMATD (KIK,3,3,0, T,3,3,0, KII(ILOC+1)) GO TO 2600 C 2580 KLOC = ILOC DO 2590 I = 1,9 2590 KII(KLOC+I) = KIK(I) 2600 CONTINUE 2610 CONTINUE C C REARANGE THE STORAGE OF THE GRAVITATIONAL STIFFNESS MATRIX C TO COLUMNWISE FOR THE USE WITH THE ASSEMBLER C IF (.NOT.GRAV) RETURN C DO 2630 ICOL = 1,NGRIDS JLOC = 9*NGRIDS*(ICOL-1) C DO 2630 IROW = 1,NGRIDS ILOC = JLOC + 9*(IROW-1) KLOC = JLOC + 3*(IROW-1) C DO 2620 I = 1,3 KGE(KLOC+1) = KII(ILOC+1) KGE(KLOC+2) = KII(ILOC+4) KGE(KLOC+3) = KII(ILOC+7) KLOC = KLOC + 3*NGRIDS 2620 ILOC = ILOC + 1 2630 CONTINUE RETURN C C ERROR CONDITIONS C 8005 WRITE (NOUT,9005) UFM,FBREC(2) ERROR = .TRUE. GO TO 9000 8013 WRITE (NOUT,9013) UFM,FBREC(1),FBREC(7) ERROR = .TRUE. GO TO 9000 8014 WRITE (NOUT,9014) UWM,FBREC(1),FBREC(2) 9000 RETURN C 9005 FORMAT (A23,' 8005. BAD GEOMETRY DEFINED FOR STRUCTURAL ELEMENT ', 1 I8) C 9013 FORMAT (A23,' 8013, FLUID ELEMENT',I9,' ON A CFLSTR CARD ', 1 'REFERENCES UNDEFINED GRAVITY ID',I9) C 9014 FORMAT (A25,' 8014, FLUID ELEMENT',I9,' AND STRUCTURE ELEMENT',I9, 1 ' ARE DISJOINT. CHECK CFLSTR CARDS.') END ================================================ FILE: mis/bread.f ================================================ SUBROUTINE BREAD (IG,INV,II3,NORIG,KG) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C IT READS THE CONNECTING ELEMENTS AND GENEL ELEM. FROM GEOM2 FILE C AND PREPROCESS THE MPC CARDS AND THE RIGID ELEMENTS FROM GEOM4 C C REVISED BY G.CHAN/UNISYS C 12/89, TO INCLUDE NEW RIGID ELEMENTS CRROD, CRBAR, CRTRPLT, C CRBE1, CREB2, CRBE3 AND CRSPLINE C 03/92, TO INCLUDE DUMMY ELEMENTS, CDUM1,...,CDUM9 C IMPLICIT INTEGER (A-Z) LOGICAL DEBUG DIMENSION SUB(2), XXX(3), IZ(3), KG(7), IG(1), 1 NORIG(1), INV(II3,1) CHARACTER UFM*23, UWM*25 COMMON /XMSSG / UFM, UWM COMMON /BANDA / IBUF1, NOMPC COMMON /BANDB / NBITIN, KORE, IFL, NGRID, IPNW(2), 1 KDIM COMMON /BANDD / DUM6(6), NEL, NEQ, NEQR COMMON /BANDS / NN(10) COMMON /GEOMX / GEOM1, GEOM2, GEOM4, SCR1 COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW COMMON /SYSTEM/ IBUF, NOUT, DUM43(43),KDUM(9) COMMON /GPTA1 / NE, LAST, INCR, KE(1) COMMON /ZZZZZZ/ Z(1) DATA CRIGDR, CRIGD1, CRIGD2, CRIGD3, GENEL / 1 8210, 5310, 5410, 8310, 4301 / DATA CHBDY, PLOTEL, CRROD, CRBAR, CRTRPT / 1 4208, 5201, 6510, 6610, 6710 / DATA CRBE1, CRBE2, CRBE3, CRSPLN, MSET / 1 6810, 6910, 7010, 7110, 4HMSET / DATA SUB, MPC, MAXMPC, DEBUG / 1 4HBREA, 4HD , 4901, 150, .FALSE./ C C C CHECK THE PRESENCE OF GEOM2 FILE C KG(1) = GEOM2 CALL RDTRL (KG(1)) J = KG(2) + KG(3) + KG(4) + KG(5) + KG(6) + KG(7) IF (KG(1).LT.0 .OR. J.EQ.0) GO TO 370 DO 10 I = 1,7 10 KG(I) = 0 C C UPDATE /GPTA1/ IF DUMMY ELEMENTS ARE PRESENT C DO 15 I = 1,9 IF (KDUM(I) .EQ. 0) GO TO 15 K = KDUM(I)/10000000 L = (KDUM(I)-K*10000000)/10000 J = (I+51)*INCR KE(J+ 6) = 2 + K + L KE(J+10) = K 15 CONTINUE C C CHECK THE PRESENCE OF MPC CARDS AND RIGID ELEMENTS. SAVE THEIR C GRID DATA IN SCR1 FILE FOR TIGER AND UPDATE NEQ AND NEQR COUNTERS C IF (NOMPC .EQ. 0) GO TO 200 Z(1) = GEOM4 CALL RDTRL (Z(1)) J = 0 DO 20 I = 2,7 20 J = J + Z(I) IF (Z(1).LT.0 .OR. J.EQ.0) GO TO 200 C IBUF2 = IBUF1 - IBUF CALL OPEN (*290,SCR1,Z(IBUF2),WRTREW) IFILE = GEOM4 CALL PRELOC (*190,Z(IBUF1),GEOM4) C IF (NOMPC .EQ. 1) GO TO 40 C XXX(1) = MPC XXX(2) = XXX(1)/100 CALL LOCATE (*40,Z(IBUF1),XXX,J) 25 J = 1 CALL READ (*300,*40,GEOM4,IZ,1,0,M) 30 J = J + 1 CALL READ (*300,*40,GEOM4,KG(J),3,0,M) IF (KG(J) .NE. -1) IF (J+3-MAXMPC) 30,30,320 J = J - 1 KG(1) = J - 1 CALL WRITE (SCR1,KG,J,1) NEQ = NEQ + 1 GO TO 25 C C LOCATE ANY CRIGDR AND CRROD ELEMENTS, AND SAVE THE GRID DATA IN C SCR1. (DEPENDENT GRID FIRST, AND ONE INDEPENDENT GRID LAST) C C FOR ALL RIGID ELEMENTS, THE FIRST WORD OF KG ARRAY CONTAINS C (NO. OF DEPENDENT + INDEP. GRIDS)*1000 + (NO. OF INDEP. GRIDS) C THE DATA IN SCR1 WILL BE PROCESSED BY TIGER C 40 IF (NOMPC .EQ. 3) GO TO 180 XXX(1) = CRIGDR 50 XXX(2) = XXX(1)/100 CALL LOCATE (*60,Z(IBUF1),XXX,J) 55 CALL READ (*300,*60,GEOM4,IZ,1,0,M) CALL READ (*300,*60,GEOM4,KG(3),3,0,M) KG(1) = 2*1000 + 1 KG(2) = KG(4) CALL WRITE (SCR1,KG,3,1) NEQR = NEQR + 1 GO TO 55 C 60 IF (XXX(1) .EQ. CRROD) GO TO 70 XXX(1) = CRROD GO TO 50 C C LOCATE ANY CRIGD1, CRIGD2 AND CRBE2 ELEMENTS, AND SAVE GRID C DATA IN SCR1. PUT THE ONE INDEPENDENT GRID LAST C 70 XXX(1) = CRIGD1 75 XXX(2) = XXX(1)/100 CALL LOCATE (*90,Z(IBUF1),XXX,J) 80 J = 1 CALL READ (*300,*90,GEOM4,IZ,2,0,M) IZ2 = IZ(2) 85 J = J + 1 CALL READ (*300,*90,GEOM4,KG(J),1,0,M) CALL READ (*300,*90,GEOM4, 0,-6,0,M) IF (KG(J) .NE. -1) IF (J-MAXMPC) 85,85,320 KG(J) = IZ2 KG(1) = (J-1)*1000 + 1 CALL WRITE (SCR1,KG,J,1) NEQR = NEQR + 1 GO TO 80 90 IF (XXX(1) .EQ. CRBE2) GO TO 110 C C LOCATE ANY CRIGD2 ELEMENT C IF (XXX(1) .EQ. CRIGD2) GO TO 100 XXX(1) = CRIGD2 GO TO 75 C C LOCATE ANY CRBE2 ELEMENT C 100 XXX(1) = CRBE2 GO TO 75 C C LOCATE ANY CRIGD3, CRBE1, CRBAR AND CRTRPLT ELEMENTS, AND SAVE C GRID DATA IN SCR1 FILE. PUT THE INDEPENDENT GRID LAST C 110 XXX(1) = CRBAR ASSIGN 115 TO IRTN GO TO 130 115 XXX(1) = CRTRPT ASSIGN 120 TO IRTN GO TO 130 120 XXX(1) = CRBE1 ASSIGN 125 TO IRTN GO TO 130 125 XXX(1) = CRIGD3 ASSIGN 150 TO IRTN 130 XXX(2) = XXX(1)/100 CALL LOCATE (*145,Z(IBUF1),XXX,J) 133 J = 2 K = 1 CALL READ (*300,*145,GEOM4,IZ,1,0,M) 135 CALL READ (*300,*145,GEOM4,IZ(K),1,0,M) IF (IZ(K) .EQ. MSET) GO TO 137 CALL READ (*300,*145,GEOM4,0,-6,0,M) K = K + 1 IF (K .GT. 999) GO TO 340 GO TO 135 137 CALL READ (*300,*145,GEOM4,KG(J),1,0,M) CALL READ (*300,*145,GEOM4,0,-6,0,M) IF (KG(J) .EQ. -1) GO TO 140 J = J + 1 IF (J .GT. MAXMPC) GO TO 320 GO TO 137 140 K = K - 1 DO 142 I = 1,K KG(J) = IZ(I) 142 J = J + 1 J = J - 1 KG(1) = (J-1)*1000 + K CALL WRITE (SCR1,KG,J,1) NEQR = NEQR + 1 GO TO 133 C C LOCATE ANY CRSPLINE ELEMENTS, AND SAVE GRID DATA IN SCR1 FILE. C PUT THE INDEPENDENT GRIDS LAST 145 GO TO IRTN, (115,120,125,150) C C LOCATE ANY CRBE3 ELEMENTS, AND SAVE GRID DATA IN SCR1 FILE. PUT C THE INDEPENDENT GRID LAST C 150 XXX(1) = CRBE3 XXX(2) = XXX(1)/100 CALL LOCATE (*165,Z(IBUF1),XXX,J) 151 CALL READ (*300,*165,GEOM4,IZ,3,0,M) IZ2 = IZ(2) J = 2 CALL READ (*300,*165,GEOM4,0,-2,0,M) 153 CALL READ (*300,*165,GEOM4,KG(J),1,0,M) K = -KG(J) IF (K .GT. 0) GO TO (155,157,160) K J = J + 1 IF (J-MAXMPC) 153,153,320 155 CALL READ (*300,*165,GEOM4,I,1,0,M) IF (I .EQ. -2) GO TO 157 CALL READ (*300,*165,GEOM4,0,-1,0,M) GO TO 153 157 CALL READ (*300,*165,GEOM4,KG(J),1,0,M) IF (KG(J) .LT. 0) GO TO 160 CALL READ (*300,*165,GEOM4,0,-1,0,M) J = J + 1 GO TO 157 160 KG(J) = IZ2 KG(1) = (J-1)*1000 + 1 CALL WRITE (SCR1,KG,J,1) NEQR = NEQR + 1 GO TO 151 C C LOCATE ANY CRSPLINE ELEMENTS, AND SAVE GRID DATA IN SCR1 FILE. C PUT THE INDEPENDENT GRIDS LAST C 165 XXX(1) = CRSPLN XXX(2) = XXX(1)/100 CALL LOCATE (*180,Z(IBUF1),XXX,J) 167 CALL READ (*300,*180,GEOM4,IZ,3,0,M) K = 1 IZ(K) = IZ(3) J = 1 170 J = J + 1 173 CALL READ (*300,*175,GEOM4,KG(J),2,0,M) IF (KG(J) .EQ. -1) GO TO 175 IF (J+2 .GT. MAXMPC) GO TO 320 IF (KG(J+1) .NE. 0) GO TO 170 K = K + 1 IF (K .GT. 999) GO TO 340 IZ(K) = KG(J) GO TO 173 175 DO 177 I = 1,K KG(J) = IZ(I) 177 J = J + 1 J = J - 1 KG(1) = (J-1)*1000 + K CALL WRITE (SCR1,KG,J,1) NEQR = NEQR + 1 GO TO 167 C 180 DO 185 K = 1,MAXMPC 185 KG(K) = 0 190 CALL CLOSE (GEOM4,REW) CALL CLOSE (SCR1,REW) C C PROCESS ELEMENT CARDS AND FILL UP CONNECTION TABLE IG C 200 IFILE = GEOM2 CALL PRELOC (*300,Z(IBUF1),GEOM2) IELEM = 1 - INCR 205 IELEM = IELEM + INCR IF (IELEM .GT. LAST) GO TO 250 IF (KE(IELEM+3) .EQ. CHBDY ) GO TO 205 IF (KE(IELEM+3) .EQ. PLOTEL) GO TO 205 SCALAR = KE(IELEM+10) IF (SCALAR .EQ. -1) GO TO 205 CALL LOCATE (*205,Z(IBUF1),KE(IELEM+3),J) NWDS = KE(IELEM+ 5) NGPTS = KE(IELEM+ 9) NGPT1 = KE(IELEM+12) NCON = NGPTS 210 CALL READ (*300,*205,GEOM2,KG(1),NWDS,0,M) IF (SCALAR .EQ. 0) GO TO 220 IF (KG(5).EQ.0 .OR. KG(6).EQ.0) GO TO 210 C THE ABOVE CONDITIONS HOLD TRUE FOR CDAMPI, CELASI, AND CMASSI C WHERE I = 1,2 220 NEL = NEL + 1 CALL SCAT (KG(NGPT1),NCON,INV,II3,NORIG) IF (NGRID .EQ. -1) GO TO 270 IF (NCON .LE. 1) GO TO 240 NGPT2 = NGPT1 + NCON - 1 K = NGPT2 - 1 DO 230 I = NGPT1,K L = I + 1 DO 230 J = L,NGPT2 230 CALL SETIG (KG(I),KG(J),IG,NORIG) 240 IF (IELEM-LAST) 210,210,255 C C SPECIAL TREATMENT FOR GENERAL ELEM. C (LIMITED TO KDIM*4 GRID POINTS PER GENEL) C 250 XXX(1) = GENEL XXX(2) = XXX(1)/100 CALL LOCATE (*270,Z(IBUF1),XXX,J) KDIM4 = KDIM*4 255 NTOT = 0 CALL READ (*300,*270,GEOM2,K,1,0,M) K = 0 KGPV = 0 GO TO 263 260 IF (KG(NCON) .EQ. KGPV) GO TO 265 KGPV = KG(NCON) 263 NTOT = NTOT + 1 IF (NTOT .LT. KDIM4) NCON = NTOT 265 CALL READ (*300,*270,GEOM2,KG(NCON),2,0,M) IF (KG(NCON) .NE. -1) IF (KG(NCON+1)) 260, 265, 260 C GRD SCALAR GRD C PT. PT. PT. K = K + 1 XXX(K) = KG(NCON+1) IF (K .LT. 2) GO TO 265 NCON = NCON - 1 M = XXX(1) NWDS = 1 + (M*M-M)/2 + M CALL READ (*300,*270,GEOM2,K,-NWDS,0,M) CALL READ (*300,*270,GEOM2,K, 1,0,M) NGPT1 = 1 IF (K .EQ. 0) GO TO 220 NWDS = M*XXX(2) CALL READ (*300,*270,GEOM2,K,-NWDS,0,M) GO TO 220 270 CALL CLOSE (GEOM2,REW) IF (NTOT .GT. KDIM4) GO TO 330 IF (.NOT.DEBUG) RETURN C M = NN(1) WRITE (NOUT,280) NN WRITE (NOUT,285) ((INV(I,J),J=1,2),I=1,M) 280 FORMAT (//21H /BANDS/ FROM BREAD =,10I8) 285 FORMAT (/12H TABLE INV =,(/10X,2I8)) RETURN C 290 IFILE = SCR1 300 CALL MESAGE (-1,IFILE,SUB) 320 WRITE (NOUT,325) UWM,IZ(1),MAXMPC 325 FORMAT (A25,', MPC SET (OR CRIGID ID)',I9, 1 ' IS TOO LONG, ONLY THE FIRST',I4, /5X, 2 ' GRID POINTS ARE USED IN THE BANDIT COMPUTATION') GO TO 180 330 WRITE (NOUT,335) UFM,NTOT 335 FORMAT (A23,', GENEL ELEMENT HAS TOO MANY GRID POINTS,',I7) J = NTOT/400 + 1 IF (J .LE. 9) WRITE (NOUT,336) J 336 FORMAT (5X,'USER NEEDS TO ADD A ''NASTRAN BANDTDIM=',I1, 1 ''' CARD AND RERUN JOB') GO TO 350 340 WRITE (NOUT,345) 345 FORMAT ('0*** MORE THAN 1000 INDEPENDENT GRID POINTS USED IN A ', 1 'RIGID ELEMENT') 350 CALL MESAGE (-61,0,0) C 370 NGRID = 0 RETURN END ================================================ FILE: mis/bseqgp.f ================================================ SUBROUTINE BSEQGP (NORIG,ILD,JUMP) C EXTERNAL ORF INTEGER GEOM1, GEOM2, SEQGP(3), EOF(3), SUB(2), 1 TWO, ORF, OBW, OP, RD, 2 RDREW, WRT, WRTREW, REW, GRID(8), 3 Z DIMENSION NORIG(2), ILD(1), ISYS(100) COMMON /BANDA / IBUF1, DUM2A(2), NOPCH, DUM1A, METHOD, 1 ICRIT, NGPTS, NSPTS COMMON /BANDB / NBIT, KORE, DUM1B, NGRD COMMON /BANDD / OBW, NBW, OP, NP, NCM, 1 NZERO, NEL, NEQ, NEQR COMMON /BANDS / NN, MM, DUM2(2), NGRID, DUM3(3), 1 MINDEG, NEDGE COMMON /BANDW / MAXW0, RMS0, MAXW1, RMS1, I77, 1 BRMS0, BRMS1 COMMON /TWO / TWO(1) COMMON /SYSTEM/ IBUF, NOUT COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW, 1 NOREW COMMON /GEOMX / GEOM1, GEOM2 COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (IBUF,ISYS(1)), (NLPP,ISYS(9)), 1 (LPCH,ISYS(91)), (IECHO,ISYS(19)) DATA SUB , EOF , SEQGP / 1 4HSSEQ, 4HGP , 3*2147483647, 5301, 53, 4 / C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C NORIG(I) = ORIGINAL GRID POINT CORRESPONDING TO BANDIT INTERNAL C LABLE I C ILD(I) = NEW RESEQUENCED LABEL CORRESPONDING TO BANDIT INTERNAL C LABLE I C NN = NUMBER OF GRID POINTS C NGRD .LT.0, INSUFF. WORKING CORE, OR SCRATCH ARRAY FOR BANDIT C J77 = 0 IF (NN.LE.0 .OR. NGRD.LT.0) GO TO 145 C C PRINT BANDIT SUMMARY. C IF (NLPP.LE.48 .AND. METHOD.EQ.0) CALL PAGE1 WRITE (NOUT,10) 10 FORMAT (//53X,22H*** BANDIT SUMMARY ***,/, 1 /72X,6HBEFORE,5X,5HAFTER) C WRITE (NOUT,20) OBW,NBW,OP,NP,MAXW0,MAXW1 20 FORMAT (40X,13HBANDWIDTH (B),15X,2I10, 1 /40X,11HPROFILE (P), 17X,2I10, 2 /40X,25HMAXIMUM WAVEFRONT (C-MAX),3X,2I10) C ANN = FLOAT(NN) AV1 = FLOAT(OP)/ANN AV2 = FLOAT(NP)/ANN WRITE (NOUT,30) AV1,AV2,RMS0,RMS1,BRMS0,BRMS1,NGPTS 30 FORMAT (40X,25HAVERAGE WAVEFRONT (C-AVG),3X,2F10.3, 1 /40X,21HRMS WAVEFRONT (C-RMS),7X,2F10.3, 2 /40X,21HRMS BANDWITCH (B-RMS),7X,2F10.3, 3 /40X,25HNUMBER OF GRID POINTS (N),15X,I8) C IF (NSPTS .GT. 0) WRITE (NOUT,35) NSPTS 35 FORMAT (40X,23HNUMBER OF SCALAR POINTS,17X,I8) C WRITE (NOUT,40) NEL,NEQR,NEQ 40 FORMAT (40X,30HNUMBER OF ELEMENTS (NON-RIGID) ,10X,I8, 1 /40X,35HNUMBER OF RIGID ELEMENTS PROCESSED*,5X,I8, 2 /40X,35HNUMBER OF MPC EQUATIONS PROCESSED*,5X,I8) C WRITE (NOUT,50) NCM,MM,MINDEG 50 FORMAT (40X,20HNUMBER OF COMPONENTS,20X,I8, 1 /40X,20HMAXIMUM NODAL DEGREE,20X,I8, 2 /40X,20HMINIMUM NODAL DEGREE,20X,I8) C NONZ = 2*NEDGE + NN AN = NN*NN DEN = FLOAT(NONZ)*100./AN WRITE (NOUT,60) NEDGE,DEN,NZERO,KORE 60 FORMAT (40X,22HNUMBER OF UNIQUE EDGES,18X,I8, 1 /40X,23HMATRIX DENSITY, PERCENT, 16X,F9.3, 2 /40X,31HNUMBER OF POINTS OF ZERO DEGREE,9X,I8, 3 /40X,16HBANDIT OPEN CORE,24X,I8) C IF (ICRIT .EQ. 1) WRITE (NOUT,61) IF (ICRIT .EQ. 2) WRITE (NOUT,62) IF (ICRIT .EQ. 3) WRITE (NOUT,63) IF (ICRIT .EQ. 4) WRITE (NOUT,64) 61 FORMAT (40X,10HCRITERION*,25X,13HRMS WAVEFRONT) 62 FORMAT (40X,10HCRITERION*,29X,9HBANDWIDTH) 63 FORMAT (40X,10HCRITERION*,31X,7HPROFILE) 64 FORMAT (40X,10HCRITERION*,25X,13HMAX WAVEFRONT) C IF (METHOD .EQ. -1) WRITE (NOUT,66) IF (METHOD .EQ. +1) WRITE (NOUT,67) IF (METHOD .EQ. 0) WRITE (NOUT,68) 66 FORMAT (40X,12HMETHOD USED*,34X,2HCM) 67 FORMAT (40X,12HMETHOD USED*,33X,3HGPS) 68 FORMAT (40X,12HMETHOD USED*,26X,10HCM AND GPS) C IF (JUMP .EQ. 0) GO TO 90 WRITE (NOUT,75) 75 FORMAT (/31X,'(* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE', 1 ' NASTRAN CARD)') WRITE (NOUT,80) 80 FORMAT (//31X,'BANDIT FINDS GRID POINT RE-SEQUENCING NOT ', 1 'NECESSARY') GO TO 142 C C GENERATE SEQGP ARRAY AND OUTPUT SEQGP CARDS C 90 J = 0 DO 100 I = 1,NN Z(J+1) = NORIG(I) Z(J+2) = ILD(I) 100 J = J + 2 CALL SORT (0,0,2,1,Z(1),J) C C CHECK AGAINST ORIGINAL GRID POINT DATA, AND SEE ANY UNUSED GRIDS C (SUCH AS THE THIRD GRID ON CBAR CARD). IF THEY EXIST, BRING THEM C IN, AND RE-SORT TABLE. (GEOM1 IS READY HERE, SEE BGRID) C CALL OPEN (*160,GEOM1,Z(IBUF1),RD) NNX = NN IF (NN .EQ. NGRID) GO TO 106 CALL READ (*104,*104,GEOM1,GRID,3,0,K) 102 CALL READ (*104,*104,GEOM1,GRID,8,0,K) CALL BISLOC (*103,GRID(1),Z,2,NNX,K) GO TO 102 103 NN = NN + 1 Z(J+1) = GRID(1) Z(J+2) = NN J = J + 2 GO TO 102 C C DO THE SAME CHECK IF SCALAR POINTS ARE PRESENT C 104 IF (NSPTS .EQ. 0) GO TO 1045 NONZ = J + 2*NSPTS + 2 CALL PRELOC (*1045,Z(NONZ),GEOM2) GRID(1) = 5551 GRID(2) = 49 CALL LOCATE (*1044,Z(NONZ),GRID,K) 1042 CALL READ (*1044,*1044,GEOM2,I,1,0,K) CALL BISLOC (*1043,I,Z,2,NNX,K) GO TO 1042 1043 NN = NN + 1 Z(J+1) = I Z(J+2) = NN J = J + 2 GO TO 1042 1044 CALL CLOSE (GEOM2,REW) 1045 I = NN - NNX IF (I .GT. 0) WRITE (NOUT,105) I 105 FORMAT (40X,29HNO. OF NON-ACTIVE GRID POINTS,11X,I8) 106 I = (J+7)/8 WRITE (NOUT,107) I 107 FORMAT (40X,28HNO. OF SEQGP CARDS GENERATED,12X,I8) WRITE (NOUT,75) IF (NOPCH .EQ. +9) GO TO 147 IF (NNX .NE. NN) CALL SORT (0,0,2,1,Z(1),J) IF (IECHO .EQ. -1) GO TO 125 CALL PAGE1 WRITE (NOUT,110) 110 FORMAT (//35X,52HS Y S T E M G E N E R A T E D S E Q G P C A R 1D S,/) WRITE (NOUT,120) (Z(I),I=1,J) 120 FORMAT (25X,8HSEQGP ,8I8) 121 FORMAT ( 8HSEQGP ,8I8) 125 IF (NOPCH .LE. 0) GO TO 130 WRITE (LPCH,121) (Z(I),I=1,J) 127 J77 = -2 GO TO 141 C C BEEF UP INTERNAL GRID NOS. BY 1000 AS REQUIRED BY NASTRAN C 130 DO 140 I = 2,J,2 140 Z(I) = Z(I)*1000 C C REWIND AND SKIP FORWARDS TO THE END OF GEOM1 FILE. C OVERWRITE THE OLD SEQGP RECORD IF NECESSARY. C (WARNING - IF SEQGP IS NOT THE VERY LAST ITEM IN GEOM1 FILE, THE C FOLLOWING LOGIC OF INSERTING SEQGP CARDS NEEDS MODIFICATION - C BECAUSE GEOM1 IS IN ALPHA-NUMERIC SORTED ORDER). C CALL REWIND (GEOM1) CALL SKPFIL (GEOM1,+1) CALL SKPFIL (GEOM1,-1) CALL BCKREC (GEOM1) CALL READ (*150,*150,GEOM1,NORIG(1),3,1,I) IF (NORIG(1).EQ.SEQGP(1) .AND. NORIG(2).EQ.SEQGP(2)) 1 CALL BCKREC (GEOM1) CALL CLOSE (GEOM1,NOREW) C C ADD SEQGP CARDS TO THE END OF GEOM1 FILE C SET GEOM1 TRAILER, AND CLEAR /SYSTEM/ 76TH WORD C CALL OPEN (*160,GEOM1,Z(IBUF1),WRT) CALL WRITE (GEOM1,SEQGP(1),3,0) CALL WRITE (GEOM1,Z(1),J,1) CALL WRITE (GEOM1,EOF(1),3,1) C Z(1) = GEOM1 CALL RDTRL (Z(1)) I = (SEQGP(2)+31)/16 J = SEQGP(2)-I*16 + 48 Z(I) = ORF(Z(I),TWO(J)) CALL WRTTRL (Z(1)) 141 CALL CLOSE (GEOM1,REW) 142 DO 143 I = 1,KORE 143 Z(I) = 0 145 ISYS(I77) = J77 IF (NGRD .LT. 0) RETURN CALL PAGE2 (-2) WRITE (NOUT,146) 146 FORMAT (1H0,9X,45H**NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**) RETURN C C SPECIAL PUNCH OPTION (BANDTPCH=+9) C TO PUNCH OUT EXTERNAL GRIDS IN RE-SEQUENCED INTERNAL ORDER C 147 CALL SORT (0,0,2,2,Z(1),J) WRITE (NOUT,148) (Z(I),I=1,J,2) 148 FORMAT (1H1,35X,59HLIST OF EXTERNAL GRID POINTS IN INTERNAL RE-SEQ 1UENCED ORDER,/4X,31(4H----),/,(/5X,15I8)) WRITE (LPCH,149) (Z(I),I=1,J,2) 149 FORMAT (10I7) GO TO 127 C C FILE ERROR C 150 K = -2 GO TO 170 160 K = -1 170 CALL MESAGE (K,GEOM1,SUB) RETURN END ================================================ FILE: mis/bug.f ================================================ SUBROUTINE BUG (NAME,LOC,BUF,NWDS) C C THIS ROUTINE PRINTS NAME,LOC, AND CONTENT OF BUF ARRAY C E.G. CALL BUG ('SUBR ABC',105,CORE(1),120) C LIMITED TO 5000 LINES EACH CALL, 14 VALUES PER LINE C C (THIS ROUTINE REPLACES THE OLD ONE IN NASTRAN) C WRITTEN BY G.CHAN/SPERRY MARCH 1986 C REAL BUF(1), NAME(3) CHARACTER*4 A(28), XLOC, BLANK CHARACTER*8 B(14), ZERO, ERR COMMON /SYSTEM/ IBUF, NOUT EQUIVALENCE (A(1),B(1)) DATA LINE, NWPL, LIMIT / 1 0, 14, 5000 / DATA ZERO, BLANK, XLOC, ERR / 1 ' 00 ', ' ', 'LOC', '(ERR)' / C CALL SSWTCH (20,L) IF (L .EQ. 0) RETURN GO TO 5 C ENTRY BUG1 (NAME,LOC,BUF,NWDS) C ============================== C 5 IF (NWDS .LT. 0) RETURN L = 2 I = 0 CALL A42K8 (NAME(1),NAME(2),B(1)) CALL INT2K8 (*20,LOC,A(3)) A(4) = A(3) A(3) = XLOC C 10 IF (I .GE. NWDS) GO TO 60 15 I = I + 1 L = L + 1 J = NUMTYP(BUF(I)) + 1 GO TO ( 25, 30, 35, 40), J C ZERO,INT,REAL,BCD 20 B(L) = ERR GO TO 55 25 B(L) = ZERO GO TO 55 30 CALL INT2K8 (*20,BUF(I),B(L)) GO TO 55 35 CALL FP2K8 (*20,BUF(I),B(L)) GO TO 55 40 CALL A42K8 (BUF(I),BUF(I+1),B(L)) IF (NUMTYP(BUF(I+1)) .NE. 3) GO TO 45 I = I + 1 GO TO 50 45 A(L*2) = BLANK 50 IF (I .GE. NWDS) GO TO 60 55 IF (L .LT. NWPL) GO TO 10 60 IF (L .GT. 0) WRITE (NOUT,65) (B(J),J=1,L) 65 FORMAT (2X,14(A8,1X)) LINE = LINE + 1 IF (LINE .GT. LIMIT) GO TO 70 L = 0 IF (I .LT. NWDS) GO TO 15 RETURN C 70 WRITE (NOUT,75) LIMIT 75 FORMAT (/2X,'PRINT LINES IN BUG EXCEEDS LIMIT OF',I6) RETURN END ================================================ FILE: mis/calcv.f ================================================ SUBROUTINE CALCV (PVACT,SET1,SUB1,SUB2,CORE) C EXTERNAL ANDF INTEGER A1,PVECT,SET1,SUB1,SUB2,USET,SYSBUF,PVACT,ANDF, 1 CORE(1) C COMMON /SYSTEM/ SYSBUF COMMON /TWO / TWO1(32) COMMON /PATX / LC,N,NO,N3,USET,PVECT(7) COMMON /ZBLPKX/ B1(4),N1 C C N = 0 N3 = 0 NO = 0 N1 = 0 CALL MAKMCB (PVECT,PVACT,0,2,1) LCORE = LC - SYSBUF CALL GOPEN (USET,CORE(LCORE+1),0) LCORE = LCORE - SYSBUF CALL GOPEN (PVACT,CORE(LCORE+1),1) CALL BLDPK (1,1,PVACT,0,0) 20 CALL READ (*90,*90,USET,A1,1,0,FLAG) IF (ANDF(TWO1(SET1),A1) .EQ. 0) GO TO 20 N1 = N1 + 1 IF (ANDF(TWO1(SUB1),A1) .EQ. 0) GO TO 50 N = N + 1 GO TO 20 50 IF (ANDF(TWO1(SUB2),A1) .EQ. 0) GO TO 60 NO = NO + 1 B1(1) = 1.0 GO TO 70 60 B1(1) = 2.0 N3 = N3 + 1 70 CONTINUE CALL ZBLPKI GO TO 20 90 CONTINUE CALL BLDPKN (PVACT,0,PVECT) PVECT(3) = N1 CALL WRTTRL (PVECT) CALL CLOSE (USET,1) CALL CLOSE (PVACT,1) RETURN END ================================================ FILE: mis/case.f ================================================ SUBROUTINE CASE C C CASE READS THE CASE CONTROL DATA BLOCK AND WRITES A NEW C DATA BLOCK WHICH CONTAINS ONLY THOSE RECORDS WHICH DESCRIBE THE C CURRENT CASE IN THE LOOP. ADDITIONALLY, THE LOOP CONTROL PARAMETER C IS SET. C C INTEGER APP ,COUNT ,SYSBUF,CASECC,CASEXX,FILE ,Z , 1 BUF1 ,BUF2 ,RFMTS ,BRANCH,BUF ,ERROR(2) INTEGER BUF3 ,PSDL DIMENSION NAM(2) ,BUF(20),MCB(7),RFMTS(40) COMMON /BLANK / APP(2) ,COUNT ,LOOP COMMON /SYSTEM/ SYSBUF COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /ZZZZZZ/ Z(1) C C DATA DESCRIBING DATA BLOCK FILE NAMES AND POSITION C OF PARAMETERS IN THE CASE CONTROL RECORD. C DATA CASECC / 101/ ,CASEXX /201/ ,IK2PP /139/ ,IM2PP /141/ , 1 IB2PP / 143/ ,ITFL / 15/ ,PSDL /102/ ,IRAND /163/ DATA ERROR / 4HPSDL,4HCASE/ DATA IFREQ / 14/ ,IMETH / 5/ C C DATA DEFINING RIGID FORMATS. C DATA NRIGDS / 10 /, RFMTS / 1 4HSTAT,4HICS , 4HREIG,4HEN , 4HDS0 ,4H , 2 4HDS1 ,4H , 4HFREQ,4H , 4HTRAN,4HSNT , 3 4HBKL0,4H , 4HBKL1,4H , 4HCEIG,4HEN , 4 4HPLA ,4H , 20*0 / C C MISC DATA C DATA NAM / 4HCASE,4H /, MCB / 7*0 / C C PERFORM BUFFER ALLOCATION. C BUF1 = KORSZ(Z) - SYSBUF + 1 BUF3 = BUF1 - SYSBUF BUF2 = BUF3 - SYSBUF IRY = 0 M8 = -8 IF (COUNT .LE. 0) COUNT = 1 LOOP = 1 IOCNT = COUNT C C SET PARAMETER FOR APPROACH. C N = 2*NRIGDS - 1 DO 20 I = 1,N,2 IF (RFMTS(I) .EQ. APP(1)) GO TO 30 20 CONTINUE CALL MESAGE (30,75,APP) I = 19 30 BRANCH = (I+1)/2 C C OPEN CASECC. SKIP RECORDS ALREADY PROCESSED. OPEN CASEXX. C WRITE HEADER RECORD. THEN BRANCH ON APPROACH. C FILE = CASECC CALL OPEN (*130,CASECC,Z(BUF1),RDREW) DO 40 I = 1,COUNT 40 CALL FWDREC (*140,CASECC) FILE = CASEXX CALL OPEN (*130,CASEXX,Z(BUF2),WRTREW) CALL FNAME (CASEXX,BUF) CALL WRITE (CASEXX,BUF,2,1) GO TO (120,50,120,120,50,100,120,120,50,120), BRANCH C C COMPLEX EIGENVALUES OR FREQUENCY RESPONSE. C 50 CALL READ (*140,*60,CASECC,Z,BUF2,1,NCC) CALL MESAGE (M8,0,NAM) 60 BUF(1) = Z(IK2PP ) BUF(2) = Z(IK2PP+1) BUF(3) = Z(IM2PP ) BUF(4) = Z(IM2PP+1) BUF(5) = Z(IB2PP ) BUF(6) = Z(IB2PP+1) BUF(7) = Z(ITFL) IRSET = Z(IRAND) IFRQST = Z(IFREQ) IMRQST = Z(IMETH) IF (BRANCH.EQ.5 .AND. IRSET.NE.0) IRY = 1 IF (IRY .EQ. 0) GO TO 70 C C BUILD LIST OF UNIQUE LOAD ID-S C FILE = PSDL CALL OPEN (*68,PSDL,Z(BUF3),RDREW) CALL FWDREC (*90,PSDL) ILS = BUF2 ILF = BUF2 - 1 61 CALL READ (*90,*66,PSDL,Z(NCC+1),6,0,J) IF (Z(NCC+1) .NE. IRSET) GO TO 61 J = 1 ILOAD = Z(NCC+2) IF (ILS .EQ. ILF+1) GO TO 63 65 DO 62 I = ILS,ILF IF (Z(I) .EQ. ILOAD) GO TO 64 62 CONTINUE C C NEW LOAD ID C 63 ILS = ILS - 1 Z(ILS) = ILOAD 64 IF (J .EQ. 0) GO TO 61 J = 0 ILOAD = Z(NCC+3) GO TO 65 C C END OF PSDL RECORD C 66 CALL CLOSE (PSDL,CLSREW) IF (ILS .EQ. ILF+1) CALL MESAGE (-31,IRSET,ERROR(1)) BUF2 = ILS - 1 GO TO 70 C C NO PSDL IS EQUIVALENT TO NO RANDOM C 68 IRY = 0 70 CALL WRITE (CASEXX,Z,NCC,1) COUNT = COUNT + 1 IF (IRY .EQ. 0) GO TO 71 C C CHECK SUBCASE ID-S C DO 72 I = ILS,ILF IF (Z(1) .EQ. Z(I)) GO TO 74 72 CONTINUE GO TO 71 C C MARK USED C 74 Z(I) = -Z(I) 71 CONTINUE CALL READ (*90,*80,CASECC,Z,BUF2,1,NCC) CALL MESAGE (M8,0,NAM) 80 IF (Z(IK2PP).NE.BUF(1) .OR. Z(IK2PP+1).NE.BUF(2) .OR. 1 Z(IM2PP).NE.BUF(3) .OR. Z(IM2PP+1).NE.BUF(4) .OR. 2 Z(IB2PP).NE.BUF(5) .OR. Z(IB2PP+1).NE.BUF(6)) GO TO 120 IF (Z(ITFL) .NE. BUF(7)) GO TO 120 IF (Z(IMETH).NE.0 .AND. Z(IMETH).NE.IMRQST) GO TO 120 C C TEST FOR CHANGED FREQUENCY SET C IF (Z(IFREQ).NE.IFRQST .AND. BRANCH.EQ.5) GO TO 120 GO TO 70 90 COUNT = -1 GO TO 120 C C TRANSIENT RESPONSE. C 100 CALL READ (*140,*110,CASECC,Z,BUF2,1,NCC) CALL MESAGE (M8,0,NAM) 110 CALL WRITE (CASEXX,Z,NCC,1) COUNT = COUNT + 1 CALL READ (*90,*120,CASECC,Z,BUF2,1,NCC) GO TO 120 C C CLOSE FILES. WRITE TRAILER. RETURN. C 120 CALL CLOSE (CASECC,CLSREW) CALL CLOSE (CASEXX,CLSREW) MCB(1) = CASEXX MCB(2) = COUNT CALL WRTTRL (MCB) IF (COUNT.LE.1 .AND. IOCNT.EQ.1) LOOP = -1 C C CHECK ALL PSDL ACCOUNTED FOR C IF (IRY .EQ. 0) GO TO 125 NOGO = 0 DO 121 I = ILS,ILF IF (Z(I) .LT. 0) GO TO 121 NOGO = -1 CALL MESAGE (33,Z(I),NAM) 121 CONTINUE IF (NOGO .LT. 0) CALL MESAGE (-7,0,NAM) 125 RETURN C C FATAL FILE ERRORS. C 130 N = -1 GO TO 150 140 N = -2 FILE = CASECC 150 CALL MESAGE (N,FILE,NAM) GO TO 150 END ================================================ FILE: mis/casege.f ================================================ SUBROUTINE CASEGE C C GENERATES IDENTICAL SUBCASES LMODES*NDIR TIMES FOR DDAM C C CASEGEN CASECC/CASEDD/C,Y,LMODES/V,N,NDIR/V,N,NMODES $ C EQUIV CASEDD,CASECC $ C INTEGER BUF1,BUF2,SYSBUF,CASECC,CASEDD DIMENSION IZ(1),NAM(2),MCB(7) COMMON/SYSTEM/SYSBUF COMMON/BLANK/LMODES,NDIR,NMODES COMMON/ZZZZZZ/Z(1) EQUIVALENCE (Z(1),IZ(1)) DATA CASECC,CASEDD/101,201/ DATA NAM/4HCASE,4HGE / C LCORE=KORSZ(Z) BUF1=LCORE-SYSBUF+1 BUF2=BUF1-SYSBUF LCORE=BUF2-1 IF(LCORE.LE.0)GO TO 1008 C CALL GOPEN(CASECC,Z(BUF1),0) CALL GOPEN(CASEDD,Z(BUF2),1) CALL READ (*1002,*10,CASECC,Z,LCORE,0,IWORDS) GO TO 1008 10 IF(LMODES.GT.NMODES)LMODES=NMODES ITOT=LMODES*NDIR DO 20 I=1,ITOT IZ(1)=I CALL WRITE(CASEDD,Z,IWORDS,1) 20 CONTINUE CALL CLOSE(CASECC,1) CALL CLOSE(CASEDD,1) MCB(1)=CASECC CALL RDTRL(MCB) MCB(1)=CASEDD MCB(2)=ITOT CALL WRTTRL(MCB) RETURN C 1002 CALL MESAGE(-2,CASECC,NAM) 1008 CALL MESAGE(-8,0,NAM) RETURN END ================================================ FILE: mis/cdcmpd.f ================================================ SUBROUTINE CDCMPD (*,IX,X,DX) C C DOUBLE-PRECISION VERSION OF CDCOMP C (THIS ROUTINE WAS PREVIOUSLY CALLED CDCOMP AND IS NOW RENAMED C TO CDCMPD) BY G.CHAN/SPERRY 6/85 C C TO ELIMINATE IBM UNDERFLOW MESSAGES, THIS VERSION ZEROS OUT C THE COMPUTED DX ELEMENT IF /IT/ IS LESS THAN 1.0D-38 C C CDCOMP WILL DECOMPOSE A COMPLEX UNSYMETRIC MATRIX INTO A UNIT LOWE C TRIANGULAR MATRIX AND AN UPPER TRIANGULAR MATRIX,USING PARTIAL C PIVOTING WITHIN THE LOWER BAND C C DEFINITION OF INPUT PARAMETERS C C FILEA = MATRIX CONTROL BLOCK FOR THE INPUT MATRIX A C FILEL = MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX L C FILEU = MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX U C SR1FIL = SCRATCH FILE C SR2FIL = SCRATCH FILE C SR3FIL = SCRATCH FILE C NX = NUMBER OF CELLS OF CORE AVAILABLE AT IX C DET = CELL WHERE THE DETERMINATE OF A WILL BE STORED C POWER = SCALE FACTOR TO BE APPLIED TO THE DETERMINATE C (DETERMINATE = DET*10**POWER) C MINDIA = CELL WHERE THE VALUE OF THE MINIMUM DIAGONAL WILL BE S C IX = BLOCK OF CORE AVAILABLE AS WORKING STORAGE TO DECOMP C X = SAME BLOCK AS IX, BUT TYPED REAL C DX = SAME BLOCK AS IX, BUT TYPED DOUBLE PRECISION C INTEGER FILEA ,FILEL ,FILEU ,POWER , 1 SYSBUF ,FORMA ,TYPEA ,RDP , 2 TYPEL ,EOL ,PARM(5) ,BUFA , 3 OUTBUF ,SR1BUF ,SR2BUF ,SR3BUF , 4 B ,BBAR ,C ,CBAR , 5 BBAR1 ,R ,CCOUNT ,CBCNT , 6 SCRFLG ,END ,BBBAR ,BBBAR1 , 7 COUNT ,SR2FL ,SR3FL ,SR1FIL , 8 SR2FIL ,SR3FIL ,SQR ,SYM , 9 FLAG ,ITRAN(6) DOUBLE PRECISION DZ(2) ,DA(2) ,DET ,MAX(2) , 1 MINDIA ,DX(1) ,DTRN(2) ,DX1 , 2 DX2 ,EPSI DIMENSION IX(1) ,X(1) CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /CDCMPX/ FILEA(7) ,FILEL(7) ,FILEU(7) ,SR1FIL , 1 SR2FIL ,SR3FIL ,DET(2) ,POWER , 2 NX ,MINDIA ,B ,BBAR , 3 C ,CBAR ,R COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,LOWTRI ,UPRTRI , 4 SYM ,ROW ,IDENT COMMON /ZNTPKX/ A(4) ,II ,EOL COMMON /DESCRP/ LENGTH ,MAJOR COMMON /ZBLPKX/ Z(4) ,JJ COMMON /UNPAKX/ ITYPEX ,IXY ,JXY ,INCRX COMMON /PACKX / ITYPE1 ,ITYPE2 ,IY ,JY , 1 INCRY EQUIVALENCE (DA(1),A(1)) ,(DZ(1),Z(1)) , 1 (FORMA,FILEA(4)) ,(TYPEA,FILEA(5)) , 2 (NCOL,FILEA(3)) ,(TYPEL,FILEL(5)) , 3 (ITRAN(1),ITRN) ,(ITRAN(2),JTRN) , 4 (ITRAN(3),DTRN(1)) DATA PARM(3), PARM(4) /4HCDCO,4HMP / DATA IBEGN , IEND /4HBEGN,4HEND / DATA EPSI / 1.0D-38 / C C BUFFER ALLOCATION C BUFA = NX - SYSBUF IBUFL = BUFA - SYSBUF OUTBUF = IBUFL - SYSBUF SR1BUF = OUTBUF - SYSBUF SR2BUF = SR1BUF - SYSBUF SR3BUF = SR2BUF - SYSBUF ICRQ =-SR3BUF IF (ICRQ .GT. 0) GO TO 1715 DET(1) = 1.D0 DET(2) = 0.D0 POWER = 0 MINDIA = 1.D+25 ITERM = 0 IF (FILEA(1) .LT. 0) ITERM = 1 FILEA(1) = IABS(FILEA(1)) C C WRITE THE HEADER RECORD ON THE OUTPUT TAPES AND INITIALIZE THE C TRAILER RECORDS. C CALL GOPEN (FILEL,IX(IBUFL),WRTREW) PARM(2) = SR2FIL CALL OPEN (*1680,SR2FIL,IX(OUTBUF),WRTREW) CALL FNAME (FILEU(1),X(1)) CALL WRITE (SR2FIL,X(1),2,1) FILEL(2) = 0 FILEL(3) = NCOL FILEL(4) = 4 FILEL(6) = 0 FILEL(7) = 0 FILEU(2) = 0 FILEU(3) = NCOL FILEU(4) = 5 FILEU(6) = 0 FILEU(7) = 0 C C CALL GENVEC TO PICK B,BBAR,C,CBAR, AND R C IF (B.GT.0 .AND. BBAR.GT.0) GO TO 11 CALL GENVEC (*1720,IX(BUFA),FILEA(1),NX,IX(1),NCOL,B,BBAR,C,CBAR, 1 R,2) 11 CONTINUE BBAR1 = BBAR + 1 BBBAR = MIN0(B+BBAR,NCOL) BBBAR1 = BBBAR - 1 SCRFLG = 0 IF (R .LT. BBBAR1) SCRFLG = 1 IF (SCRFLG .EQ. 0) GO TO 20 ICRQ = (BBBAR1-R)*4*BBAR CALL PAGE2(2) WRITE (NOUT,15) UIM,ICRQ 15 FORMAT (A29,' 2177, SPILL WILL OCCUR IN COMPLEX UNSYMMETRIC ', 1 'DECOMPOSITION.', /1X,I10, 2 ' ADDITIONAL WORDS NEEDED TO STAY IN CORE.') C C INITIALIZE POINTERS TO SPECIFIC AREAS OF CORE C 20 I1 = 1 IPAK = I1 + 2*BBAR*R + BBBAR/2 + 1 I1SP = BBAR*R*4 + 1 I2 = IPAK I3SP = (I2 + 2*MIN0(NCOL,BBBAR + BBAR))*2 - 1 I3 = I2 + 2*MIN0(NCOL,BBBAR+BBAR) + C I4SP = I3SP + (BBAR+2)*C*4 - 2*C I4 = I3 + 2*BBAR1*C + CBAR I5 = I4 + 2*BBBAR*CBAR I6SP = (I5 + 2*C*CBAR)*2 - 1 I7SP = I6SP + CBAR PARM(5) = IBEGN CALL CONMSG (PARM(3),3,0) END = I7SP + C C C DEFINITION OF KEY PROGRAM PARAMETERS C C I1 = POINTER TO AREA WHERE COMPLETED COLUMNS OF L ARE STORED C I1SP = POINTER TO AREA WHERE THE PERMUTATION INDEXES ARE STORED C IPAK = POINTER TO AREA WHERE COLUMNS WILL BE PACKED FROM C I2 = POINTER TO AREA WHERE THE NEXT COLUMN OF A IS STORED C I3 = POINTER TO AREA WHERE ACTIVE COLUMNS ARE STORED C I4 = POINTER TO AREA WHERE ACTIVE ROWS ARE STORED C I5 = POINTER TO AREA WHERE INTERACTION ELEMENTS ARE STORED C I6SP = POINTER TO AREA WHERE SEQUENCED ACTIVE ROW INDICES C ARE STORED C I7SP = POINTER TO AREA WHERE SEQUENCED ACTIVE COLUMN INDICES C ARE STORED C B = UPPER HALF-BAND C BBAR = LOWER HALF-BAND C C = NUMBER OF ACTIVE COLUMNS C CBAR = NUMBER OF ACTIVE ROWS C R = NUMBER OF COLUMNS OF L THAT CAN BE STORED IN CORE C JPOS = CURRENT PIVOTAL COLUMN INDEX C JPOSL = NEXT COLUMN OF L TO BE WRITTEN OUT C LCOL = NUMBER OF COLUMNS OF L CURRENTLY STORED IN CORE OR ON C SCRATCH FILES C CCOUNT = CURRENT NUMBER OF ACTIVE COLUMNS C CBCNT = CURRENT NUMBER OF ACTIVE ROWS C ITRN = ROW INDEX OF NEXT ACTIVE COLUMN ELEMENT C JTRN = COLUMN INDEX OF NEXT ACTIVE COLUMN ELEMENT C IOFF = ROW POSITION OF THE FIRST ELEMENT IN AREA II C ITERM = IF NONZERO, TERMINATE BEFORE THE RE-WRITE C NCOL = SIZE OF THE INPUT MATRIX C BBBAR = B + BBAR C BBAR1 = BBAR + 1 C BBBAR1 = B + BBAR - 1 C SCRFLG = NONZERO MEANS SPILL C C **************************************************************** C RE-WRITE THE UPPER TRIANGLE OF ACTIVE ELEMENTS IN THE TRANSPOSED C ORDER C **************************************************************** C PARM(2) = FILEA(1) CALL OPEN (*1680,FILEA(1),IX(BUFA),RDREW) CCOUNT = 0 IF (C .EQ. 0) GO TO 40 CALL CTRNSP (IX(1),X(1),NX,FILEA(1),B,SR1FIL) C C ZERO CORE C 40 DO 50 I = 1,END 50 X(I) = 0. IF (C .EQ. 0) GO TO 260 C C **************************************************************** C OPEN THE FILE CONTAINING THE TRANSPOSED ACTIVE ELEMENTS AND READ C IN THE FIRST BBAR + 1 ROWS C **************************************************************** C PARM(2) = SR1FIL CALL OPEN (*1680,SR1FIL,IX(SR1BUF),RD) K = 0 60 CALL READ (*1690,*1700,SR1FIL,ITRAN(1),6,0,FLAG) IF (ITRN .GT. 0) GO TO 70 CALL CLOSE (SR1FIL,REW) GO TO 140 70 IF (ITRN .GT. K+1) GO TO 130 C C DETERMINE IF COLUMN IS ALREADY ACTIVE C IF (JTRN .LE. BBBAR) GO TO 60 KK = 0 80 IN1 = I3SP + KK IF (IX(IN1) .EQ. JTRN) GO TO 90 KK = KK + 1 IF (KK-C) 80,100,1710 C C ADD IN ACTIVE ELEMENT TO EXISTING COLUMN C 90 IN1 = I3 + 2*KK*BBAR1 + K + K DX(IN1 ) = DTRN(1) DX(IN1+1) = DTRN(2) IF (DABS(DX(IN1 )) .LT. EPSI) DX(IN1 ) = 0.0D0 IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0 GO TO 60 C C CREATE NEW ACTIVE COLUMN C 100 CCOUNT = CCOUNT + 1 KK = 0 110 IN1 = I3SP + KK IF (IX(IN1) .EQ. 0) GO TO 120 KK = KK + 1 IF (KK - C) 110,1710,1710 120 IX(IN1) = JTRN IN1 = IN1 + C IX(IN1) = K + 1 IN1 = I3 + 2*KK*BBAR1 + K + K DX(IN1 ) = DTRN(1) DX(IN1+1) = DTRN(2) IF (DABS(DX(IN1 )) .LT. EPSI) DX(IN1 ) = 0.0D0 IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0 GO TO 60 130 K = K + 1 IF (K-BBAR1) 70,140,1710 C C SET INDEXES IN AREA VII TO POINT TO THE ACTIVE COLUMNS IN SEQUENCE C 140 ASSIGN 260 TO KK 150 IN1 = I7SP K = 0 160 IN2 = I3SP + K IF (IX(IN2)) 1710,180,190 170 IN1 = IN1 + 1 180 K = K + 1 IF (K-C) 160,250,1710 190 IF (IN1 .NE. I7SP) GO TO 200 IX(IN1) = K GO TO 170 200 KKK = 0 210 IN3 = IN1 - KKK IF (IN3 .GT. I7SP) GO TO 220 IX(IN3) = K GO TO 170 220 IN4 = I3SP + IX(IN3-1) IF (IX(IN2)-IX(IN4)) 240,1710,230 230 IX(IN3) = K GO TO 170 240 IX(IN3) = IX(IN3-1) KKK = KKK + 1 GO TO 210 250 GO TO KK, (260,1570) 260 CONTINUE C C INITIALIZE C SR2FL = FILEU(1) SR3FL = SR3FIL JPOS = 1 PARM(2) = FILEA(1) CALL FWDREC (*1690,FILEA(1)) LCOL = 0 CBCNT = 0 JPOSL = 0 270 IF (JPOS .GT. NCOL) GO TO 1670 C C **************************************************************** C READ NEXT COLUMN OF A INTO AREA II C **************************************************************** C IOFF = MAX0(1,JPOS-BBBAR1) COUNT = CBCNT CALL INTPK (*1720,FILEA(1),0,CDP,0) K = 1 IF (JPOS .GT. BBBAR) K = JPOS - B + 1 280 IF (EOL) 400,290,400 290 CALL ZNTPKI IF (II .LT. K) GO TO 280 K = JPOS + BBAR 300 IF (II .GT. K) GO TO 330 C C READ ELEMENTS WITHIN THE BAND INTO AREA II C IN1 = I2 + 2*(II-IOFF) DX(IN1 ) = DA(1) DX(IN1+1) = DA(2) IF (DABS(DX(IN1 )) .LT. EPSI) DX(IN1 ) = 0.0D0 IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0 310 IF (EOL) 400,320,400 320 CALL ZNTPKI GO TO 300 C C TAKE CARE OF ACTIVE ELEMENTS BELOW THE BAND C 330 KK = 0 340 IN1 = I4SP + KK IF (IX(IN1)-II) 350,360,350 350 KK = KK + 1 IF (KK-CBAR) 340,370,1710 C C ADD IN ACTIVE ELEMENT TO EXISTING ROW C 360 IN1 = I4 + 2*(KK+1)*BBBAR - 2 DX(IN1 ) = DA(1) DX(IN1+1) = DA(2) IF (DABS(DX(IN1 )) .LT. EPSI) DX(IN1 ) = 0.0D0 IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0 GO TO 310 C C CREATE NEW ACTIVE ROW C 370 KK = 0 380 IN1 = I4SP + KK IF (IX(IN1) .EQ. 0) GO TO 390 KK = KK + 1 IF (KK-CBAR) 380,1710,1710 390 IX(IN1) = II IN1 = IN1 + CBAR IX(IN1) = JPOS IN1 = I4 + (KK+1)*BBBAR*2 - 2 DX(IN1 ) = DA(1) DX(IN1+1) = DA(2) IF (DABS(DX(IN1 )) .LT. EPSI) DX(IN1 ) = 0.0D0 IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0 CBCNT = CBCNT + 1 GO TO 310 C C ARRANGE ACTIVE ROW INDEXES IN SEQUENCE AND STORE THEM IN AREA VI C 400 IF (COUNT .EQ. CBCNT) GO TO 500 IN1 = I6SP K = 0 410 IN2 = I4SP + K IF (IX(IN2)) 1710,430,440 420 IN1 = IN1 + 1 430 K = K + 1 IF (K-CBAR) 410,500,1710 440 IF (IN1 .NE. I6SP) GO TO 450 IX(IN1) = K GO TO 420 450 KK = 0 460 IN3 = IN1 - KK IF (IN3 .GT. I6SP) GO TO 470 IX(IN3) = K GO TO 420 470 IN4 = I4SP + IX(IN3-1) IF (IX(IN2)-IX(IN4)) 490,1710,480 480 IX(IN3) = K GO TO 420 490 IX(IN3) = IX(IN3-1) KK = KK + 1 GO TO 460 500 CONTINUE C C TEST FOR POSSIBLE MERGING BETWEEN AN INACTIVE-ACTIVE COLUMN AND C THE CURRENT PIVOTAL COLUMN C IF (CCOUNT .EQ. 0) GO TO 600 IN1 = IX(I7SP) + I3SP IF (IX(IN1)-JPOS) 1710,510,600 C C MERGE ACTIVE COLUMN AND CURRENT PIVOTAL COLUMN AND ZERO THAT C ACTIVE COLUMN IN AREA III C 510 IX(IN1) = 0 IN1 = IN1 + C IX(IN1) = 0 IN1 = I3 + IX(I7SP)*BBAR1*2 CCOUNT = CCOUNT - 1 KK = 0 520 IN2 = IN1 + KK + KK IN3 = I2 + KK + KK DX(IN3 ) = DX(IN3 ) + DX(IN2 ) DX(IN3+1) = DX(IN3+1) + DX(IN2+1) DX(IN2 ) = 0.D0 DX(IN2+1) = 0.D0 KK = KK + 1 IF (KK-BBAR1) 520,530,1710 C C MERGE INTERACTION ELEMENTS C 530 CONTINUE IF (CBCNT .EQ. 0) GO TO 580 IN1 = I5 + 2*IX(I7SP)*CBAR K = 0 540 IN2 = I4SP + K IF (IX(IN2) .EQ. 0) GO TO 560 IN3 = IN1 + 2*K IF (DABS(DX(IN3)).LT.EPSI .AND. DABS(DX(IN3+1)).LT.EPSI) 1 GO TO 560 IF (IX(IN2) .GT. JPOS+BBAR) GO TO 570 C C STORE ELEMENT WITHIN THE LOWER BAND C IN2 = I2 + 2*(IX(IN2)-IOFF) DX(IN2 ) = DX(IN2 ) - DX(IN3 ) DX(IN2+1) = DX(IN2+1) - DX(IN3+1) 550 DX(IN3 ) = 0.D0 DX(IN3+1) = 0.D0 560 K = K + 1 IF (K-CBAR) 540,580,1710 C C STORE ELEMENT IN THE ACTIVE ROW C 570 IN2 = I4 + 2*(K+1)*BBBAR - 2 DX(IN2+1) = DX(IN2+1) - DX(IN3+1) DX(IN3+1) = 0.D0 DX(IN2 ) = DX(IN2) - DX(IN3) DX(IN3 ) = 0.D0 GO TO 550 C C MOVE THE POINTERS IN AREA VII UP ONE C 580 IN1 = I7SP + CCOUNT - 1 DO 590 I = I7SP,IN1 590 IX(I) = IX(I+1) IX(IN1+1) = 0 600 IF (LCOL .EQ. 0) GO TO 830 C C **************************************************************** C OPERATE ON THE CURRENT COLUMN OF A BY ALL PREVIOUS COLUMNS OF L, C MAKING NOTED INTERCHANGES AS YOU GO C **************************************************************** C IF (SCRFLG .EQ. 0) GO TO 630 IF (LCOL-(R-1)) 630,620,610 610 PARM(2) = SR2FL CALL OPEN (*1680,SR2FL,IX(SR2BUF),RD) 620 PARM(2) = SR3FL CALL OPEN (*1680,SR3FL,IX(SR3BUF),WRTREW) 630 LL = 0 LLL = 0 LLLL = 0 C C PICK UP INTERCHANGE INDEX FOR COLUMN JPOSL + LL + 1 C 640 IN1 = I1SP + LL INTCHN = IX(IN1) IN2 = I2 + LL + LL IF (INTCHN .EQ. 0) GO TO 650 C C PERFORM ROW INTERCHANGE C IN1 = IN2 + 2*INTCHN DA( 1) = DX(IN1) DX(IN1) = DX(IN2) DX(IN2) = DA(1) DA(1 ) = DX(IN1+1) DX(IN1+1) = DX(IN2+1) DX(IN2+1) = DA(1) 650 CONTINUE C C COMPUTE THE CONTRIBUTION FROM THAT COLUMN C END = MIN0(BBAR1,NCOL-(JPOSL+LL)) IF (DABS(DX(IN2)).LT.EPSI .AND. DABS(DX(IN2+1)).LT.EPSI) 1 GO TO 720 IN1 = I1 + 2*LLL*BBAR CALL CLOOP (DX(IN2+2),DX(IN1),DX(IN2),END-1) IF (CBCNT .EQ. 0) GO TO 720 C C TEST TO SEE IF AN INACTIVE-ACTIVE ROW CONTRIBUTION SHOULD BE C ADDED IN C KKK = 0 690 IN3 = I6SP + KKK IN1 = IX(IN3) + I4SP IF (IX(IN1) .GT. JPOS+BBAR) GO TO 720 KK = IN1 + CBAR IF (IX(KK) .GT. JPOSL+LL+1) GO TO 710 IF (IX(IN1)-JPOSL-BBAR1 .LE. LL) GO TO 710 C C ADD IN EFFECT OF THE INACTIVE-ACTIVE ROW C IN4 = I2 + 2*(IX(IN1)-IOFF) K = I4 + 2*(JPOSL+BBBAR - JPOS+LL + IX(IN3)*BBBAR) DX1 = DX(K ) DX2 = DX(K+1) IF (DABS(DX1) .LT. EPSI) DX1 = 0.0D0 IF (DABS(DX2) .LT. EPSI) DX2 = 0.0D0 DX(IN4 ) = DX(IN4 ) - DX1*DX(IN2) + DX2*DX(IN2+1) DX(IN4+1) = DX(IN4+1) - DX(IN2+1)*DX1 - DX(IN2)*DX2 IF (DABS(DX(IN4 )) .LT. EPSI) DX(IN4 ) = 0.0D0 IF (DABS(DX(IN4+1)) .LT. EPSI) DX(IN4+1) = 0.0D0 710 KKK = KKK + 1 IF (KKK .LT. CBCNT) GO TO 690 720 LL = LL + 1 LLL = LLL + 1 IF (LL .EQ. LCOL) GO TO 780 IF (LL-R+1) 640,730,760 730 IF (R .EQ. BBBAR1) GO TO 640 IN1 = I1 + 2*LL*BBAR 750 ICRQ = IN1 + BBAR*4 - 1 - SR3BUF IF (ICRQ .GT. 0) GO TO 1715 IBBAR4 = BBAR*4 CALL READ (*1690,*1700,SR2FL,DX(IN1),IBBAR4,0,FLAG) GO TO 640 760 IN1 = I1 + (LLL-1)*BBAR *2 IF (LL.EQ.R .AND. LCOL.EQ.BBBAR1) GO TO 770 CALL WRITE (SR3FL,DX(IN1),4*BBAR,0) 770 LLL = LLL - 1 GO TO 750 780 CONTINUE C C COMPUTE ELEMENTS FOR THE ACTIVE ROWS C IF (CBCNT .EQ. 0) GO TO 830 K = 0 790 IN1 = I4SP + K IF (IX(IN1) .GT. JPOS+BBAR) GO TO 810 800 K = K + 1 IF (K-CBAR) 790,830,1710 810 IN1 = IN1 + CBAR IF (IX(IN1) .EQ. JPOS) GO TO 800 KKK = MAX0(0,BBBAR-JPOS+IX(IN1)-1) IN2 = I4 + 2*K*BBBAR - 2 IN3 = I2 + 2*(KKK-1-MAX0(0,BBBAR-JPOS)) IN1 = IN2 + 2*BBBAR IN2 = IN2 + 2*KKK 820 IN2 = IN2 + 2 KKK = KKK + 1 IN3 = IN3 + 2 DX(IN1 ) = DX(IN1 ) - DX(IN2)*DX(IN3) + DX(IN2+1)*DX(IN3+1) DX(IN1+1) = DX(IN1+1) - DX(IN2+1)*DX(IN3) - DX(IN2)*DX(IN3+1) IF (DABS(DX(IN1 )) .LT. EPSI) DX(IN1 ) = 0.0D0 IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0 IF (KKK-BBBAR1) 820,800,1710 C C SEARCH THE LOWER BAND FOR THE MAXIMUM ELEMENT AND INTERCHANGE C ROWS TO BRING IT TO THE DIAGONAL C 830 K = 1 IN1 = I2 + (JPOS-IOFF)*2 DX1 = 0.D0 DX2 = 0.D0 IF (DABS(DX(IN1 )) .GT. EPSI) DX1 = DX(IN1 )**2 IF (DABS(DX(IN1+1)) .GT. EPSI) DX2 = DX(IN1+1)**2 MAX(1) = DX1 + DX2 INTCHN = 0 END = MIN0(BBAR1,NCOL-JPOS+1) IF (END .EQ. 1) GO TO 870 840 IN2 = IN1 + K + K DX1 = 0.D0 DX2 = 0.D0 IF (DABS(DX(IN2 )) .GT. EPSI) DX1 = DX(IN2 )**2 IF (DABS(DX(IN2+1)) .GT. EPSI) DX2 = DX(IN2+1)**2 DX2 = DX2 + DX1 IF (DX2 .GT. MAX(1)) GO TO 860 850 K = K + 1 IF (K-END) 840,870,1710 860 MAX(1) = DX2 INTCHN = K GO TO 850 C 870 IF (INTCHN .EQ. 0) GO TO 880 C C INTERCHANGE ROWS IN AREA II C DET(1) = -DET(1) DET(2) = -DET(2) C MAX(1) = DX(IN1) IN2 = IN1 + 2*INTCHN DX(IN1) = DX(IN2) DX(IN2) = MAX(1) MAX(1) = DX(IN1+1) DX(IN1+1) = DX(IN2+1) DX(IN2+1) = MAX(1) C C STORE THE PERMUTATION INDEX C IN2 = I1SP + LCOL IX(IN2) = INTCHN C C DIVIDE THE LOWER BAND BY THE DIAGONAL ELEMENT C 880 DX1 = 0.D0 DX2 = 0.D0 IF (DABS(DX(IN1 )) .GT. EPSI) DX1 = DX(IN1 )**2 IF (DABS(DX(IN1+1)) .GT. EPSI) DX2 = DX(IN1+1)**2 DA(1) = DX1 + DX2 IF (DABS(DA(1)) .LT. EPSI) GO TO 1720 MAX(1) = DX(IN1 )/DA(1) MAX(2) =-DX(IN1+1)/DA(1) MINDIA = DMIN1(DSQRT(DA(1)),MINDIA) DA(1) = DMAX1(DABS(DET(1)),DABS(DET(2))) 890 IF (DA(1) .LE. 10.D0) GO TO 900 DET(1) = DET(1)*.1D0 DET(2) = DET(2)*.1D0 DA(1) = DA(1) *.1D0 POWER = POWER + 1 GO TO 890 900 IF (DA(1).GE. .1D0) GO TO 910 DET(1) = DET(1)*10.D0 DET(2) = DET(2)*10.D0 DA(1) = DA(1) *10.D0 POWER = POWER - 1 GO TO 900 910 DA(1) = DET(1)*DX(IN1) - DET(2)*DX(IN1+1) DET(2) = DET(2)*DX(IN1) + DET(1)*DX(IN1+1) DET(1) = DA(1) K = 1 END = MIN0(BBAR1,NCOL-JPOS+1) IF (END .EQ. 1) GO TO 930 920 IN2 = IN1 + K + K DA(1) = DX(IN2)*MAX(1) - DX(IN2+1)*MAX(2) DX(IN2+1) = DX(IN2)*MAX(2) + DX(IN2+1)*MAX(1) DX(IN2 ) = DA(1) IF (DABS(DX(IN2 )) .LT. EPSI) DX(IN2 ) = 0.0D0 IF (DABS(DX(IN2+1)) .LT. EPSI) DX(IN2+1) = 0.0D0 K = K + 1 IF (K-END) 920,930,1710 930 IF (CBCNT .EQ. 0) GO TO 950 C C DIVIDE THE ACTIVE ROWS BY THE DIAGONAL C K = 0 IN1 = I4 + 2*BBBAR1 940 DA( 1) = DX(IN1)*MAX(1) - DX(IN1+1)*MAX(2) DX(IN1+1) = DX(IN1)*MAX(2) + DX(IN1+1)*MAX(1) DX(IN1 ) = DA(1) IF (DABS(DX(IN1 )) .LT. EPSI) DX(IN1 ) = 0.0D0 IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0 IN1 = IN1 + 2*BBBAR K = K + 1 IF (K-CBAR) 940,950,1710 950 CONTINUE C C INTERCHANGE ACTIVE COLUMNS AND ADD IN EFFECT OF THE CURRENT COLUMN C IF (CCOUNT .EQ. 0) GO TO 1000 IF (JPOS .LT. BBBAR) GO TO 1000 INTCH = IX(I1SP) K = 0 960 IN1 = I3SP + K IF (INTCH .EQ. 0) GO TO 970 IN1 = I3 + 2*K*BBAR1 IN2 = IN1 + INTCH + INTCH DA( 1) = DX(IN1) DX(IN1) = DX(IN2) DX(IN2) = DA(1) DA(1 ) = DX(IN1+1) DX(IN1+1) = DX(IN2+1) DX(IN2+1) = DA(1) 970 KK = 1 IN2 = I1 - 2 IN1 = I3 + 2*K*BBAR1 IF (DABS(DX(IN1)).LT.EPSI .AND. DABS(DX(IN1+1)).LT.EPSI) 1 GO TO 990 980 IN3 = IN1 + KK + KK IN4 = IN2 + KK + KK DX(IN3 ) = DX(IN3 ) - DX(IN1)*DX(IN4) + DX(IN1+1)*DX(IN4+1) DX(IN3+1) = DX(IN3+1) - DX(IN1)*DX(IN4+1) - DX(IN1+1)*DX(IN4) IF (DABS(DX(IN3 )) .LT. EPSI) DX(IN3 ) = 0.0D0 IF (DABS(DX(IN3+1)) .LT. EPSI) DX(IN3+1) = 0.0D0 KK = KK + 1 IF (KK-BBAR1) 980,990,1710 990 K = K + 1 IF (K-C) 960,1000,1710 C C WRITE OUT THE NEXT COLUMN OF U AND THE ROW OF ACTIVE ELEMENTS C 1000 PARM(2) = SR2FIL CALL BLDPK (CDP,TYPEL,SR2FIL,0,0) IN1 = I2 JJ = IOFF 1010 DZ(1) = DX(IN1 ) DZ(2) = DX(IN1+1) IF (DABS(DZ(1)).LT.EPSI .AND. DABS(DZ(2)).LT.EPSI) GO TO 1030 CALL ZBLPKI 1030 IN1 = IN1 + 2 JJ = JJ + 1 IF (JJ-JPOS) 1010,1010,1040 1040 IF (DABS(DX(IN1-2)).LT.EPSI .AND. DABS(DX(IN1-1)).LT.EPSI) 1 GO TO 1720 C C PACK ACTIVE COLUMN ELEMENTS ALSO C IF (CCOUNT .EQ. 0) GO TO 1090 IF (JPOS .LT. BBBAR) GO TO 1090 K = 0 1060 IN1 = I7SP + K IN2 = IX(IN1) + I3SP GO TO 1080 1070 K = K + 1 IF (K-CCOUNT) 1060,1090,1710 1080 IN3 = I3 + 2*(IX(IN1)*BBAR1) DZ(1) = DX(IN3 ) DZ(2) = DX(IN3+1) IF (DABS(DZ(1)).LT.EPSI .AND. DABS(DZ(2)).LT.EPSI) GO TO 1070 JJ = IX(IN2) CALL ZBLPKI GO TO 1070 1090 CALL BLDPKN (SR2FIL,0,FILEU) C C COMPUTE ACTIVE ROW-COLUMN INTERACTION C IF (CCOUNT.EQ.0 .OR. CBCNT.EQ.0) GO TO 1140 IF (JPOS .LT. BBBAR) GO TO 1140 K = 0 1100 CONTINUE IN1 = I3 + 2*K*BBAR1 IF (DABS(DX(IN1)).LT.EPSI .AND. DABS(DX(IN1+1)).LT.EPSI) 1 GO TO 1130 KK = 0 1110 IN2 = I4 + 2*KK*BBBAR IF (DABS(DX(IN2)).LT.EPSI .AND. DABS(DX(IN2+1)).LT.EPSI) 1 GO TO 1120 IN3 = I5 + 2*(K*CBAR+KK) DX(IN3 ) = DX(IN3 ) + DX(IN2)*DX(IN1) - DX(IN2+1)*DX(IN1+1) DX(IN3+1) = DX(IN3+1) + DX(IN2)*DX(IN1+1) + DX(IN2+1)*DX(IN1) IF (DABS(DX(IN3 )) .LT. EPSI) DX(IN3 ) = 0.0D0 IF (DABS(DX(IN3+1)) .LT. EPSI) DX(IN3+1) = 0.0D0 1120 KK = KK + 1 IF (KK-CBAR) 1110,1130,1710 1130 K = K + 1 IF (K-C) 1100,1140,1710 C C MOVE ELEMENTS IN AREA III UP ONE CELL C 1140 IF (CCOUNT .EQ. 0) GO TO 1190 IF (JPOS .LT. BBBAR) GO TO 1190 K = 0 1150 IN1 = I3SP + K IF (IX(IN1) .EQ. 0) GO TO 1180 KK = 0 IN1 = I3 + 2*K*BBAR1 1160 IN2 = IN1 + KK + KK DX(IN2 ) = DX(IN2+2) DX(IN2+1) = DX(IN2+3) KK = KK + 1 IF (KK-BBAR) 1160,1170,1710 1170 DX(IN2+2) = 0.D0 DX(IN2+3) = 0.D0 1180 K = K + 1 IF (K-C) 1150,1190,1710 C C C DETERMINE IF A COLUMN OF L CAN BE WRITTEN OUT C 1190 IF (LCOL-BBBAR1) 1370,1200,1200 C C OUTPUT A COLUMN OF L C 1200 PARM(2) = FILEL(1) JPOSL = JPOSL + 1 CALL BLDPK (CDP,TYPEL,FILEL(1),0,0) C C STORE THE PERMUTATION INDEX AS THE DIAGONAL ELEMENT C JJ = JPOSL DZ(1) = IX(I1SP) DZ(2) = 0.D0 CALL ZBLPKI K = 0 1210 JJ = JPOSL + K + 1 IN2 = I1 + K + K DZ(1) = DX(IN2 ) DZ(2) = DX(IN2+1) IF (DABS(DZ(1)).LT.EPSI .AND. DABS(DZ(2)).LT.EPSI) GO TO 1230 CALL ZBLPKI 1230 K = K + 1 IF (K-BBAR) 1210,1240,1710 C C PACK ACTIVE ROW ELEMENTS ALSO C 1240 IF (CBCNT .EQ. 0) GO TO 1280 K = 0 1250 IN1 = I6SP + K IN2 = I4 + (IX(IN1)*BBBAR)*2 IN1 = IX(IN1) + I4SP JJ = IX(IN1) DZ(1) = DX(IN2 ) DZ(2) = DX(IN2+1) IF (DABS(DZ(1)).LT.EPSI .AND. DABS(DZ(2)).LT.EPSI) GO TO 1270 CALL ZBLPKI 1270 K = K + 1 IF (K-CBCNT) 1250,1280,1710 1280 CALL BLDPKN (FILEL,0,FILEL) C C MOVE PERMUTATION INDICES OVER ONE ELEMENT C END = I1SP + LCOL DO 1290 I = I1SP,END 1290 IX(I) = IX(I+1) C C MOVE ELEMENTS IN AREA I OVER ONE COLUMN C K = 0 IF (SCRFLG .EQ. 0) GO TO 1310 CALL CLOSE (SR2FL,REW) CALL OPEN (*1680,SR2FL,IX(SR2BUF),RD) IF (R .GT. 2) GO TO 1310 ICRQ = I1 + BBAR*4 - 1 - SR3BUF IF (ICRQ .GT. 0) GO TO 1715 IBBAR4 = BBAR*4 CALL READ (*1690,*1700,SR2FL,DX(I1),IBBAR4,0,FLAG) GO TO 1360 1310 IN1 = I1 + K*BBAR*2 IN2 = IN1 + BBAR+BBAR CALL CXLOOP (DX(IN1),DX(IN2),BBAR) K = K + 1 IF (K-R+2) 1310,1340,1360 1340 IF (R-BBBAR1) 1350,1310,1710 1350 ICRQ = IN2 + BBAR*4 - 1 - SR3BUF IF (ICRQ .GT. 0) GO TO 1715 IBBAR4 = BBAR*4 CALL READ (*1690,*1700,SR2FL,DX(IN2),IBBAR4,0,FLAG) 1360 LCOL = LCOL - 1 C C STORE CURRENT COLUMN OF L C 1370 IF (CBCNT .EQ. 0) GO TO 1420 C C MOVE ELEMENTS IN AREA IV UP ONE CELL C K = 0 1380 IN1 = I4SP + K IF (IX(IN1) .EQ. 0) GO TO 1410 KK = 0 IN1 = I4 + 2*K*BBBAR 1390 IN2 = IN1 + KK+KK DX(IN2 ) = DX(IN2+2) DX(IN2+1) = DX(IN2+3) KK = KK + 1 IF (KK-BBBAR1) 1390,1400,1710 1400 DX(IN2+2) = 0.D0 DX(IN2+3) = 0.D0 1410 K = K + 1 IF (K-CBAR) 1380,1420,1710 1420 IF (SCRFLG .NE. 0) GO TO 1450 C C STORE COLUMN IN CORE C 1430 IN1 = I1 + 2*LCOL*BBAR END = MIN0(BBAR,NCOL-JPOS) IF (END .EQ. 0) GO TO 1480 K = 0 IN3 = I2 + 2*(JPOS-IOFF+1) 1440 IN2 = IN1 + K + K IN4 = IN3 + K + K DX(IN2 ) = DX(IN4 ) DX(IN2+1) = DX(IN4+1) K = K + 1 IF (K-END) 1440,1480,1710 C C STORE COLUMN ON THE SCRATCH FILE C 1450 IF (LCOL-R+1) 1430,1470,1460 1460 IN1 = I1 + (LLL-1)*BBAR*2 CALL WRITE (SR3FL,DX(IN1),BBAR*4,0) 1470 IN1 = I2 + 2*(JPOS-IOFF+1) CALL WRITE (SR3FL,DX(IN1),BBAR*4,0) C C CLOSE SCRATCH FILES AND SWITCH THE POINTERS TO THEM C CALL CLOSE (SR3FL,REW) CALL CLOSE (SR2FL,REW) IN1 = SR2FL SR2FL = SR3FL SR3FL = IN1 1480 LCOL = LCOL + 1 IF (C .EQ. 0) GO TO 1570 IF (JPOS .LT . BBBAR) GO TO 1570 C C READ IN THE NEXT ROW OF ACTIVE COLUMN ELEMENTS C COUNT = CCOUNT IF (ITRN .LT. 0) GO TO 1570 1490 IF (ITRN .GT. JPOS-B+2) GO TO 1560 C C TEST TO SEE IF COLUMN IS ALREADY ACTIVE C K = 0 1500 IN1 = I3SP + K IF (IX(IN1) .EQ. JTRN) GO TO 1540 K = K + 1 IF (K-C) 1500,1510,1710 C C CREATE A NEW ACTIVE COLUMN C 1510 K = 0 1520 IN1 = I3SP + K IF (IX(IN1) .EQ. 0) GO TO 1530 K = K + 1 IF (K-C) 1520,1710,1710 1530 IX(IN1) = JTRN IN1 = IN1 + C IX(IN1) = ITRN IN1 = I3 + 2*(K+1)*BBAR1 - 2 DX(IN1 ) = DTRN(1) DX(IN1+1) = DTRN(2) IF (DABS(DX(IN1 )) .LT. EPSI) DX(IN1 ) = 0.0D0 IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0 CCOUNT = CCOUNT + 1 GO TO 1550 C C STORE ELEMENT IN EXISTING COLUMN C 1540 IN1 = I3 + 2*(K+1)*BBAR1 - 2 DX(IN1 ) = DX(IN1 ) + DTRN(1) DX(IN1+1) = DX(IN1+1) + DTRN(2) 1550 CALL READ (*1690,*1700,SR1FIL,ITRAN(1),6,0,FLAG) IF (ITRN .GT. 0) GO TO 1490 CALL CLOSE (SR1FIL,REW) 1560 IF (CCOUNT .EQ. COUNT) GO TO 1570 C C RE-ARRANGE INDEXES IN SEQUENTIAL ORDER C ASSIGN 1570 TO KK GO TO 150 1570 CONTINUE JPOS = JPOS + 1 C C ZERO AREA II C END = I2 + 2*MIN0(JPOS-IOFF+BBAR-1,NCOL-1) + 1 DO 1590 I = I2,END 1590 DX(I) = 0.D0 C C TEST TO SEE IF ROW INTERACTION ELEMENTS WILL MERGE INTO AREA III C IF (CBCNT .EQ. 0) GO TO 270 IF (CCOUNT .EQ. 0) GO TO 1640 IF (JPOS-1 .LT. BBBAR) GO TO 270 IN1 = I4SP K = 0 1600 IN2 = IN1 + K IF (IX(IN2) .EQ. JPOS-B+1) GO TO 1610 K = K + 1 IF (K .LT. CBAR) GO TO 1600 GO TO 270 1610 IN1 = I5 + K + K IN2 = I3 + BBAR + BBAR K = 0 1620 DX(IN2 ) = DX(IN2 ) - DX(IN1 ) DX(IN2+1) = DX(IN2+1) - DX(IN1+1) DX(IN1 ) = 0.D0 DX(IN1+1) = 0.D0 IN2 = IN2 + BBAR1 + BBAR1 IN1 = IN1 + CBAR + CBAR K = K + 1 IF (K .LT. C) GO TO 1620 C C TEST TO SEE IF A ACTIVE ROW HAS BEEN ELIMINATED C 1640 IN1 = IX(I6SP) + I4SP IF (IX(IN1)-JPOSL-BBAR1) 270,1650,270 C C ELIMINATE THE ACTIVE ROW C 1650 IX(IN1) = 0 IN1 = IN1 + CBAR IX(IN1) = 0 CBCNT = CBCNT - 1 C C MOVE INDEXES IN AREA VI UP ONE C IN1 = I6SP + CBCNT - 1 DO 1660 I = I6SP,IN1 1660 IX(I) = IX(I+1) IX(IN1+1) = 0 GO TO 270 C C FINISH WRITING OUT THE COMPLETED COLUMNS OF L C 1670 CALL CLOSE (SR1FIL,REW) CALL CLOSE (FILEL,NOREW) CALL CLOSE (SR2FIL,NOREW) CALL COMFIN (ITERM,SCRFLG,SR2FL,JPOSL,I1SP,BBAR,I1,CBCNT,IPAK,R, 1 BBBAR1,BBBAR,I6SP,I4,I4SP,IX,DX,X,LCOL) PARM(5) = IEND CALL CONMSG (PARM(3),3,0) FILEU(7) = BBBAR RETURN C C ERROR EXITS C 1680 PARM(1) = -1 GO TO 1730 1690 PARM(1) = -2 GO TO 1730 1700 PARM(1) = -3 GO TO 1730 1710 PARM(1) = -25 GO TO 1730 1715 PARM(1) = -8 PARM(2) = ICRQ GO TO 1730 C C SINGULAR MATRIX - CLOSE ALL FILES AND RETURN TO USER C 1720 CALL CLOSE (FILEA(1),REW) CALL CLOSE (FILEL(1),REW) CALL CLOSE (FILEU(1),REW) CALL CLOSE (SR1FIL,REW) CALL CLOSE (SR2FIL,REW) CALL CLOSE (SR3FIL,REW) FILEU(2) = BBBAR RETURN 1 C 1730 CALL MESAGE (PARM(1),PARM(2),PARM(3)) RETURN END ================================================ FILE: mis/cdcmps.f ================================================ SUBROUTINE CDCMPS (*,IX,X,DX) C C CDCMPS IS THE SINGLE PRECISION VERSION OF CDCOMP C (THIS ROUTINE IS NOT IN OPERATION YET, 6/87) C C CDCOMP WILL DECOMPOSE A COMPLEX UNSYMETRIC MATRIX INTO A LOWER C TRIANGULAR MATRIX AND AN UPPER TRIANGULAR MATRIX, USING PARTIAL C PIVOTING WITHIN THE LOWER BAND C THE OUTPUT MATRICES ARE PACKED IN S.P. OR D.P. AS SPECIFIED BY C THE CALLING ROUTINE VIA TYPEL (=FILEL(5) IN /CDCMPX/) C C DEFINITION OF INPUT PARAMETERS C C FILEA = MATRIX CONTROL BLOCK FOR THE INPUT MATRIX A C FILEL = MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX L C FILEU = MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX U C SR1FIL = SCRATCH FILE C SR2FIL = SCRATCH FILE C SR3FIL = SCRATCH FILE C NX = NUMBER OF CELLS OF CORE AVAILABLE AT IX C DET = CELL WHERE THE DETERMINATE OF A WILL BE STORED C POWER = SCALE FACTOR TO BE APPLIED TO THE DETERMINATE C ( DETERMINATE = DET*10**POWER ) C MINDIA = CELL WHERE THE VALUE OF THE MINIMUM DIAGONAL WILL BE S C IX = BLOCK OF CORE AVAILABLE AS WORKING STORAGE TO DECOMP C X = SAME BLOCK AS IX, BUT TYPED S.P. REAL C DX = SAME BLOCK AS IX, BUT TYPED S.P. REAL C C INTEGER FILEA ,FILEL ,FILEU ,POWER , 1 SYSBUF ,FORMA ,TYPEA ,RDP , 2 TYPEL ,EOL ,PARM(5) ,BUFA , 3 OUTBUF ,SR1BUF ,SR2BUF ,SR3BUF , 4 B ,BBAR ,C ,CBAR , 5 BBAR1 ,R ,CCOUNT ,CBCNT , 6 SCRFLG ,END ,BBBAR ,BBBAR1 , 7 COUNT ,SR2FL ,SR3FL ,SR1FIL , 8 SR2FIL ,SR3FIL ,SQR ,SYM , 9 FLAG ,ITRAN(4) ,CSP ,IX(1) REAL DZ(2) ,DA(2) ,MAX(2) ,X(1) , 1 DX(1) ,DTRN(2) ,DX1 ,DX2 , 2 EPSI DOUBLE PRECISION MINDIA ,DET CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /CDCMPX/ FILEA(7) ,FILEL(7) ,FILEU(7) ,SR1FIL , 1 SR2FIL ,SR3FIL ,DET(2) ,POWER , 2 NX ,MINDIA ,B ,BBAR , 3 C ,CBAR ,R COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,LOWTRI ,UPRTRI , 4 SYM ,ROW ,IDENT COMMON /ZNTPKX/ A(4) ,II ,EOL COMMON /DESCRP/ LENGTH ,MAJOR COMMON /ZBLPKX/ Z(4) ,JJ COMMON /UNPAKX/ ITYPEX ,IXY ,JXY ,INCRX COMMON /PACKX / ITYPE1 ,ITYPE2 ,IY ,JY , 1 INCRY EQUIVALENCE (DA(1) ,A(1) ) ,(DZ(1) ,Z(1) ), 1 (FORMA ,FILEA(4)) ,(TYPEA ,FILEA(5)), 2 (NCOL ,FILEA(3)) ,(TYPEL ,FILEL(5)), 3 (ITRAN(1),ITRN ) ,(ITRAN(2),JTRN ), 4 (ITRAN(3),DTRN(1) ) DATA PARM(3), PARM(4) /4HCDCM, 4HPS / DATA IBEGN , IEND /4HBEGN, 4HEND / DATA EPSI , J4, J2 /1.E-38, 2, 1 / C WERE... J4, J2 = 4, 2 IN CDCMPD C WRITE (NOUT,10) UIM 10 FORMAT (A29,', COMPLEX MATRIX DECOMP. IS NOW COMPUTED IN SINGLE', 1 ' PRECISION', /5X,'REVERT TO DOUBLE PRECISION COMPUTATION', 2 ' BY TURNING ON DIAG 41') C C BUFFER ALLOCATION C BUFA = NX - SYSBUF IBUFL = BUFA - SYSBUF OUTBUF = IBUFL - SYSBUF SR1BUF = OUTBUF - SYSBUF SR2BUF = SR1BUF - SYSBUF SR3BUF = SR2BUF - SYSBUF ICRQ =-SR3BUF IF (ICRQ .GT. 0) GO TO 1715 C ITYPEX = CSP C ITYPE2 = TYPEL DET(1) = 1.D+0 DET(2) = 0.D+0 POWER = 0 MINDIA = 1.D+25 N64 = 4 ITERM = 0 IF (FILEA(1) .LT. 0) ITERM = 1 FILEA(1) = IABS(FILEA(1)) C C WRITE THE HEADER RECORD ON THE OUTPUT TAPES AND INITIALIZE THE C TRAILER RECORDS. C CALL GOPEN (FILEL,IX(IBUFL),WRTREW) PARM(2) = SR2FIL CALL OPEN (*1680,SR2FIL,IX(OUTBUF),WRTREW) CALL FNAME (FILEU(1),X(1)) CALL WRITE (SR2FIL,X(1),2,1) FILEL(2) = 0 FILEL(3) = NCOL FILEL(4) = 4 FILEL(6) = 0 FILEL(7) = 0 FILEU(2) = 0 FILEU(3) = NCOL FILEU(4) = 5 FILEU(6) = 0 FILEU(7) = 0 C C CALL GENVEC TO PICK B,BBAR,C,CBAR, AND R C IF (B.GT.0 .AND. BBAR.GT.0) GO TO 11 CALL GENVEC (*1720,IX(BUFA),FILEA(1),NX,IX(1),NCOL,B,BBAR,C,CBAR, 1 R,2) 11 CONTINUE BBAR1 = BBAR + 1 BBBAR = MIN0(B+BBAR,NCOL) BBBAR1 = BBBAR - 1 SCRFLG = 0 IF (R .LT. BBBAR1) SCRFLG=1 IF (SCRFLG .EQ. 0) GO TO 20 ICRQ = (BBBAR1-R)*J4*BBAR CALL PAGE2 (2) WRITE (NOUT,15) UIM,ICRQ 15 FORMAT (A29,' 2177, SPILL WILL OCCUR IN COMPLEX UNSYMMETRIC ', 1 'DECOMPOSITION.', /I10,' ADDITIONAL WORDS NEEDED TO STAY ', 2 'IN CORE.') C C INITIALIZE POINTERS TO SPECIFIC AREAS OF CORE C 20 I1SP = 1 I1 = I1SP + (BBBAR/2 +1)*2 I2 = I1 + 2*BBAR*R IPAK = I2 I3SP = I2 + 2*MIN0(NCOL,BBBAR+BBAR) I3 = I3SP + C*2 I4SP = I3 + 2*BBAR1*C I4 = I4SP + CBAR*2 I5 = I4 + 2*BBBAR*CBAR I6SP = I5 + 2*CBAR*C I7SP = I6SP + C END = I7SP + CBAR C C DEFINITION OF KEY PROGRAM PARAMETERS C C AREA I C I1SP = POINTER TO AREA WHERE THE PERMUTATION INDEXES ARE STORED C I1 = POINTER TO AREA WHERE COMPLETED COLUMNS OF L ARE STORED C AREA II C I2 = POINTER TO AREA WHERE THE NEXT COLUMN OF A IS STORED C IPAK = POINTER TO AREA WHERE COLUMNS WILL BE PACKED FROM C AREA III C I3SP = POINTER TO AREA WHERE SEQUENCE ACTIVE COLUMNS INDEXES C ARE STORED C I3 = POINTER TO AREA WHERE ACTIVE COLUMNS ARE STORED C AREA IV C I4SP = POINTER TO AREA WHERE SEQUENCE ACTIVE ROW INDEXES ARE C STORED C I4 = POINTER TO AREA WHERE ACTIVE ROWS ARE STORED C AREA V C I5 = POINTER TO AREA WHERE INTERACTION ELEMENTS ARE STORED C AREA VI C I6SP = POINTER TO AREA WHERE SEQUENCE ACTIVE ROW INDICES ARE C STORED C AREA VII C I7SP = POINTER TO AREA WHERE SEQUENCED ACTIVE COLUMN INDICES C ARE STORED C C B = UPPER HALF-BAND C BBAR = LOWER HALF-BAND C BBAR1 = BBAR + 1 C BBBAR = B + BBAR C BBBAR1 = B + BBAR - 1 C C = NUMBER OF ACTIVE COLUMNS C CBAR = NUMBER OF ACTIVE ROWS C R = NUMBER OF COLUMNS OF L THAT CAN BE STORED IN CORE C C JPOS = CURRENT PIVOTAL COLUMN INDEX C JPOSL = NEXT COLUMN OF L TO BE WRITTEN OUT C LCOL = NUMBER OF COLUMNS OF L CURRENTLY STORED IN CORE OR ON C SCRATCH FILES C CCOUNT = CURRENT NUMBER OF ACTIVE COLUMNS C CBCNT = CURRENT NUMBER OF ACTIVE ROWS C ITRN = ROW INDEX OF NEXT ACTIVE COLUMN ELEMENT C JTRN = COLUMN INDEX OF NEXT ACTIVE COLUMN ELEMENT C IOFF = ROW POSITION OF THE FIRST ELEMENT IN AREA II C ITERM = IF NONZERO, TERMINATE BEFORE THE RE-WRITE C NCOL = SIZE OF THE INPUT MATRIX C SCRFLG = NONZERO MEANS SPILL C IMHERE = 0 WRITE (NOUT,1711) IMHERE, 1 I1SP,I1,I2,I3SP,I3,I4SP,I4,I5,I6SP,I7SP,END, 2 BBAR,BBAR1,BBBAR,C,CBAR,NCOL PARM(5) = IBEGN CALL CONMSG (PARM(3),3,0) C **************************************************************** C RE-WRITE THE UPPER TRIANGLE OF ACTIVE ELEMENTS IN THE TRANSPOSED C ORDER C **************************************************************** PARM(2) = FILEA(1) CALL OPEN (*1680,FILEA(1),IX(BUFA),RDREW) CCOUNT = 0 IF (C .EQ. 0) GO TO 40 CALL CTRNSP (IX(1),X(1),NX,FILEA(1),B,SR1FIL,N64) C C ZERO CORE C 40 DO 50 I = 1,END 50 X(I) = 0. IF (C .EQ. 0) GO TO 260 C **************************************************************** C OPEN THE FILE CONTAINING THE TRANSPOSED ACTIVE ELEMENTS AND READ C IN THE FIRST BBAR + 1 ROWS C **************************************************************** PARM(2) = SR1FIL CALL OPEN (*1680,SR1FIL,IX(SR1BUF),RD) K = 0 60 CALL READ (*1690,*1700,SR1FIL,ITRAN(1),N64,0,FLAG) IF (ITRN .GT. 0) GO TO 70 CALL CLOSE (SR1FIL,REW) GO TO 140 70 IF (ITRN .GT. K+1) GO TO 130 C C DETERMINE IF COLUMN IS ALREADY ACTIVE C IF (JTRN .LE. BBBAR) GO TO 60 KK = 0 80 IN1 = I3SP + KK IF (IX(IN1) .EQ. JTRN) GO TO 90 KK = KK + 1 IMHERE = 80 IF (KK-C) 80,100,1710 C C ADD IN ACTIVE ELEMENT TO EXISTING COLUMN C 90 IN1 = I3 + 2*KK*BBAR1 + K + K DX(IN1 ) = DTRN(1) DX(IN1+1) = DTRN(2) GO TO 60 C C CREATE NEW ACTIVE COLUMN C 100 CCOUNT = CCOUNT + 1 KK = 0 110 IN1 = I3SP + KK IF (IX(IN1) .EQ. 0) GO TO 120 KK = KK + 1 IMHERE = 120 IF (KK-C) 110,1710,1710 120 IX(IN1) = JTRN IN1 = IN1 + C IX(IN1) = K+1 IN1 = I3 + 2*KK*BBAR1 + K + K DX(IN1 ) = DTRN(1) DX(IN1+1) = DTRN(2) GO TO 60 130 K = K + 1 IMHERE = 130 IF (K-BBAR1) 70,140,1710 C C SET INDEXES IN AREA VII TO POINT TO THE ACTIVE COLUMNS IN SEQUENCE C 140 ASSIGN 260 TO KK 150 IN1 = I7SP K = 0 160 IN2 = I3SP + K IMHERE = 160 IF (IX(IN2)) 1710,180,190 170 IN1 = IN1 + 1 180 K = K + 1 IMHERE = 180 IF (K-C) 160,250,1710 190 IF (IN1 .NE. I7SP) GO TO 200 IX(IN1) = K GO TO 170 200 KKK = 0 210 IN3 = IN1 - KKK IF (IN3 .GT. I7SP) GO TO 220 IX(IN3) = K GO TO 170 220 IN4 = I3SP + IX(IN3-1) IMHERE = 220 IF (IX(IN2)-IX(IN4)) 240,1710,230 230 IX(IN3) = K GO TO 170 240 IX(IN3) = IX(IN3-1) KKK = KKK + 1 GO TO 210 250 GO TO KK, (260,1570) 260 CONTINUE C C INITIALIZE C SR2FL = FILEU(1) SR3FL = SR3FIL JPOS = 1 PARM(2) = FILEA(1) CALL FWDREC (*1690,FILEA(1)) LCOL = 0 CBCNT = 0 JPOSL = 0 270 IF (JPOS .GT. NCOL) GO TO 1670 C **************************************************************** C READ NEXT COLUMN OF A INTO AREA II C **************************************************************** IOFF = MAX0(1,JPOS-BBBAR1) COUNT = CBCNT CALL INTPK (*1720,FILEA(1),0,CSP,0) K = 1 IF (JPOS .GT. BBBAR) K = JPOS - B + 1 280 IF (EOL) 400,290,400 290 CALL ZNTPKI IF (II .LT. K) GO TO 280 K = JPOS + BBAR 300 IF (II .GT. K) GO TO 330 C C READ ELEMENTS WITHIN THE BAND INTO AREA II C IN1 = I2 + 2*(II-IOFF) DX(IN1 ) = DA(1) DX(IN1+1) = DA(2) 310 IF (EOL) 400,320,400 320 CALL ZNTPKI GO TO 300 C C TAKE CARE OF ACTIVE ELEMENTS BELOW THE BAND C 330 KK = 0 340 IN1 = I4SP + KK IF (IX(IN1)-II) 350,360,350 350 KK = KK + 1 IMHERE = 350 IF (KK-CBAR) 340,370,1710 C C ADD IN ACTIVE ELEMENT TO EXISTING ROW C 360 IN1 = I4 + 2*(KK+1)*BBBAR - 2 DX(IN1 ) = DA(1) DX(IN1+1) = DA(2) GO TO 310 C C CREATE NEW ACTIVE ROW C 370 KK = 0 380 IN1 = I4SP + KK IF (IX(IN1) .EQ. 0) GO TO 390 KK = KK + 1 IMHERE = 380 IF (KK-CBAR) 380,1710,1710 390 IX(IN1) = II IN1 = IN1 + CBAR IX(IN1) = JPOS IN1 = I4 + 2*(KK+1)*BBBAR - 2 DX(IN1 ) = DA(1) DX(IN1+1) = DA(2) CBCNT = CBCNT + 1 GO TO 310 C C ARRANGE ACTIVE ROW INDEXES IN SEQUENCE AND STORE THEM IN AREA VI C 400 IF (COUNT .EQ. CBCNT) GO TO 500 IN1 = I6SP K = 0 410 IN2 = I4SP + K IMHERE = 410 IF (IX(IN2)) 1710,430,440 420 IN1 = IN1 + 1 430 K = K + 1 IMHERE = 430 IF (K-CBAR) 410,500,1710 440 IF (IN1 .NE. I6SP) GO TO 450 IX(IN1) = K GO TO 420 450 KK = 0 460 IN3 = IN1 - KK IF (IN3 .GT. I6SP) GO TO 470 IX(IN3) = K GO TO 420 470 IN4 = I4SP + IX(IN3-1) IMHERE = 470 IF (IX(IN2)-IX(IN4)) 490,1710,480 480 IX(IN3) = K GO TO 420 490 IX(IN3) = IX(IN3-1) KK = KK + 1 GO TO 460 500 CONTINUE C C TEST FOR POSSIBLE MERGING BETWEEN AN INACTIVE-ACTIVE COLUMN AND C THE CURRENT PIVOTAL COLUMN C IF (CCOUNT .EQ. 0) GO TO 600 IN1 = IX(I7SP) + I3SP IMHERE = 505 IF (IX(IN1)-JPOS) 1710,510,600 C C MERGE ACTIVE COLUMN AND CURRENT PIVOTAL COLUMN AND ZERO THAT C ACTIVE COLUMN IN AREA III C 510 IX(IN1) = 0 IN1 = IN1 + C IX(IN1) = 0 IN1 = I3 + 2*IX(I7SP)*BBAR1 CCOUNT = CCOUNT - 1 KK = 0 520 IN2 = IN1 + KK + KK IN3 = I2 + KK + KK DX(IN3 ) = DX(IN3 ) + DX(IN2 ) DX(IN3+1) = DX(IN3+1) + DX(IN2+1) DX(IN2 ) = 0.0 DX(IN2+1) = 0.0 KK = KK + 1 IMHERE = 525 IF (KK-BBAR1) 520,530,1710 C C MERGE INTERACTION ELEMENTS C 530 CONTINUE IF (CBCNT .EQ. 0) GO TO 580 IN1 = I5 + 2*IX(I7SP)*CBAR K = 0 540 IN2 = I4SP + K IF (ABS(IX(IN2)) .LT. EPSI) GO TO 560 IN3 = IN1 + K + K IF (ABS(DX(IN3)).LT.EPSI .AND. ABS(DX(IN3+1)).LT.EPSI) 1 GO TO 560 IF (IX(IN2) .GT. JPOS+BBAR) GO TO 570 C C STORE ELEMENT WITHIN THE LOWER BAND C IN2 = I2 + 2*(IX(IN2)-IOFF) DX(IN2 ) = DX(IN2 ) - DX(IN3 ) DX(IN2+1) = DX(IN2+1) - DX(IN3+1) 550 DX(IN3 ) = 0.0 DX(IN3+1) = 0.0 560 K = K + 1 IMHERE = 560 IF (K-CBAR) 540,580,1710 C C STORE ELEMENT IN THE ACTIVE ROW C 570 IN2 = I4 + 2*(K+1)*BBBAR - 2 DX(IN2+1) = DX(IN2+1) - DX(IN3+1) DX(IN3+1) = 0.0 DX(IN2) = DX(IN2)-DX(IN3) DX(IN3) = 0.0 GO TO 550 C C MOVE THE POINTERS IN AREA VII UP ONE C 580 IN1 = I7SP + CCOUNT - 1 DO 590 I = I7SP,IN1 590 IX(I) = IX(I+1) IX(IN1+1) = 0 600 IF (LCOL .EQ. 0) GO TO 830 C **************************************************************** C OPERATE ON THE CURRENT COLUMN OF A BY ALL PREVIOUS COLUMNS OF L, C MAKING NOTED INTERCHANGES AS YOU GO C **************************************************************** IF (SCRFLG .EQ. 0) GO TO 630 IF (LCOL-(R-1)) 630,620,610 610 PARM(2) = SR2FL CALL OPEN (*1680,SR2FL,IX(SR2BUF),RD) 620 PARM(2) = SR3FL CALL OPEN (*1680,SR3FL,IX(SR3BUF),WRTREW) 630 LL = 0 LLL = 0 LLLL = 0 C C PICK UP INTERCHANGE INDEX FOR COLUMN JPOSL + LL + 1 C 640 IN1 = I1SP + LL INTCHN= IX(IN1) IN2 = I2 + LL + LL IF (INTCHN .EQ. 0) GO TO 650 C C PERFORM ROW INTERCHANGE C IN1 = IN2 + 2*INTCHN DA(1) = DX(IN1) DX(IN1) = DX(IN2) DX(IN2) = DA(1) DA(1) = DX(IN1+1) DX(IN1+1) = DX(IN2+1) DX(IN2+1) = DA(1) 650 CONTINUE C C COMPUTE THE CONTRIBUTION FROM THAT COLUMN C END = MIN0(BBAR1,NCOL-(JPOSL+LL)) IF (ABS(DX(IN2)).LT.EPSI .AND. ABS(DX(IN2+1)).LT.EPSI) 1 GO TO 720 IN1 = I1 + 2*LLL*BBAR CALL SLOOP (DX(IN2+2),DX(IN1),DX(IN2),END-1) IF (CBCNT .EQ. 0) GO TO 720 C C TEST TO SEE IF AN INACTIVE-ACTIVE ROW CONTRIBUTION SHOULD BE C ADDED IN C KKK = 0 690 IN3 = I6SP + KKK IN1 = IX(IN3) + I4SP IF (IX(IN1) .GT. JPOS+BBAR) GO TO 720 KK = IN1 + CBAR IF (IX(KK) .GT. JPOSL+LL+1) GO TO 710 IF (IX(IN1)-JPOSL-BBAR1 .LE. LL) GO TO 710 C C ADD IN EFFECT OF THE INACTIVE-ACTIVE ROW C IN4 = I2 + 2*(IX(IN1)-IOFF) K = I4 + 2*(JPOSL+BBBAR - JPOS+LL + IX(IN3)*BBBAR) DX1 = DX(K ) DX2 = DX(K+1) IF (ABS(DX1) .LT. EPSI) DX1 = 0. IF (ABS(DX2) .LT. EPSI) DX2 = 0. DX(IN4 ) = DX(IN4 ) - DX1*DX(IN2) + DX2*DX(IN2+1) DX(IN4+1) = DX(IN4+1) - DX(IN2+1)*DX1 - DX(IN2)*DX2 IF (ABS(DX(IN4 )) .LT. EPSI) DX(IN4 ) = 0. IF (ABS(DX(IN4+1)) .LT. EPSI) DX(IN4+1) = 0. 710 KKK = KKK + 1 IF (KKK .LT. CBCNT) GO TO 690 720 LL = LL + 1 LLL = LLL + 1 IF (LL .EQ. LCOL) GO TO 780 IF (LL-R+1) 640,730,760 730 IF (R .EQ. BBBAR1) GO TO 640 IN1 = I1 + 2*LL*BBAR 750 ICRQ = IN1 + BBAR*J4 - 1 - SR3BUF IF (ICRQ .GT. 0) GO TO 1715 IBBAR4 = BBAR*J4 CALL READ (*1690,*1700,SR2FL,DX(IN1),IBBAR4,0,FLAG) GO TO 640 760 IN1 = I1 + 2*(LLL-1)*BBAR IF (LL.EQ.R .AND. LCOL.EQ.BBBAR1) GO TO 770 CALL WRITE (SR3FL,DX(IN1),J4*BBAR,0) 770 LLL = LLL - 1 GO TO 750 780 CONTINUE C C COMPUTE ELEMENTS FOR THE ACTIVE ROWS C IF (CBCNT .EQ. 0) GO TO 830 JKK = I4SP + CBAR WRITE (6,788) JPOS,BBAR,(IX(K),K=I4SP,JKK) 788 FORMAT (' JPOS,BBAR,IX(I4SP...I4)=',12I6) K = 0 790 IN1 = I4SP + K WRITE (6,791) K,I4SP,IN1,IX(IN1),JPOS,BBAR 791 FORMAT (' CDCMPS/791 K,I4SP,IN1,IX(INX),JPOS,BBAR=',6I7) IF (IX(IN1) .GT. JPOS+BBAR) GO TO 810 800 K = K + 1 IMHERE = 800 IF (K-CBAR) 790,830,1710 810 IN1 = IN1 + CBAR IF (IX(IN1) .EQ. JPOS) GO TO 800 KKK = MAX0(0,BBBAR-JPOS+IX(IN1)-1) WRITE (6,811) IN1,IX(IN1),JPOS,KKK 811 FORMAT (' CDCMPS/811 IN1,IX(IN1),JPOS,KKK=',4I10) IN2 = I4 + 2*K*BBBAR - 2 IN3 = I2 + 2*(KKK-1-MAX0(0,BBBAR-JPOS)) IN1 = IN2 + 2*BBBAR IN2 = IN2 + 2*KKK 820 IN2 = IN2 + 2 KKK = KKK + 1 IN3 = IN3 + 2 DX(IN1 ) = DX(IN1 ) - DX(IN2)*DX(IN3) + DX(IN2+1)*DX(IN3+1) DX(IN1+1) = DX(IN1+1) - DX(IN2+1)*DX(IN3) - DX(IN2)*DX(IN3+1) IMHERE = 825 WRITE (6,821) KKK,BBBAR1,IN1 821 FORMAT (' CDCMPS/821 KKK,BBBAR1,IN1=',3I7) IF (KKK-BBBAR1) 820,800,1710 C C SEARCH THE LOWER BAND FOR THE MAXIMUM ELEMENT AND INTERCHANGE C ROWS TO BRING IT TO THE DIAGONAL C 830 K = 1 IN1 = I2 + 2*(JPOS-IOFF) DX1 = 0.0 DX2 = 0.0 IF (ABS(DX(IN1 )) .GT. EPSI) DX1 = DX(IN1 )**2 IF (ABS(DX(IN1+1)) .GT. EPSI) DX2 = DX(IN1+1)**2 MAX(1) = DX1 + DX2 INTCHN = 0 END = MIN0(BBAR1,NCOL-JPOS+1) IF (END .EQ. 1) GO TO 870 840 IN2 = IN1 + K + K DX1 = 0.0 DX2 = 0.0 IF (ABS(DX(IN2 )) .GT. EPSI) DX1 = DX(IN2 )**2 IF (ABS(DX(IN2+1)) .GT. EPSI) DX2 = DX(IN2+1)**2 DX2 = DX2 + DX1 IF (DX2 .GT. MAX(1)) GO TO 860 850 K = K + 1 IMHERE = 850 IF (K-END) 840,870,1710 860 MAX(1) = DX2 INTCHN = K GO TO 850 C 870 IF(INTCHN.EQ.0)GO TO 880 C C INTERCHANGE ROWS IN AREA II C DET(1) =-DET(1) DET(2) =-DET(2) C MAX(1) = DX(IN1) IN2 = IN1 + 2*INTCHN DX(IN1) = DX(IN2) DX(IN2) = MAX(1) MAX(1) = DX(IN1+1) DX(IN1+1) = DX(IN2+1) DX(IN2+1) = MAX(1) C C STORE THE PERMUTATION INDEX C IN2 = I1SP + LCOL IX(IN2) = INTCHN C C DIVIDE THE LOWER BAND BY THE DIAGONAL ELEMENT C 880 DX1 = 0.0 DX2 = 0.0 IF (ABS(DX(IN1 )) .GT. EPSI) DX1 = DX(IN1 )**2 IF (ABS(DX(IN1+1)) .GT. EPSI) DX2 = DX(IN1+1)**2 DA(1) = DX1 + DX2 IF (ABS(DA(1)) .LT. EPSI) GO TO 1720 MAX(1) = DX(IN1)/DA(1) MAX(2) =-DX(IN1+1)/DA(1) TEMP = SQRT(DA(1)) IF (MINDIA .LT. DBLE(TEMP)) MINDIA = DBLE(TEMP) DA(1) = SNGL(DABS(DET(1))) TEMP = SNGL(DABS(DET(2))) IF (TEMP .GT. DA(1)) DA(1) = TEMP 890 IF (DA(1) .LE. 10.0) GO TO 900 DET(1) = DET(1)*.1D0 DET(2) = DET(2)*.1D0 DA(1) = DA(1) *.10 POWER = POWER + 1 GO TO 890 900 IF (DA(1) .GE. .1) GO TO 910 DET(1) = DET(1)*10.D0 DET(2) = DET(2)*10.D0 DA(1) = DA(1) *10.0 POWER = POWER - 1 GO TO 900 910 DA(1) = DET(1)*DX(IN1) - DET(2)*DX(IN1+1) DET(2) = DET(2)*DX(IN1) + DET(1)*DX(IN1+1) DET(1) = DA(1) K = 1 END = MIN0(BBAR1,NCOL-JPOS+1) IF (END .EQ. 1) GO TO 930 920 IN2 = IN1 + K + K DA(1) = DX(IN2)*MAX(1) - DX(IN2+1)*MAX(2) DX(IN2+1) = DX(IN2)*MAX(2) + DX(IN2+1)*MAX(1) DX(IN2 ) = DA(1) K = K + 1 IMHERE = 930 IF (K-END) 920,930,1710 930 IF (CBCNT .EQ. 0) GO TO 950 C C DIVIDE THE ACTIVE ROWS BY THE DIAGONAL C K = 0 IN1 = I4 + 2*BBBAR1 940 DA(1) = DX(IN1)*MAX(1) - DX(IN1+1)*MAX(2) DX(IN1+1) = DX(IN1)*MAX(2) + DX(IN1+1)*MAX(1) DX(IN1 ) = DA(1) IN1 = IN1 + 2*BBBAR K = K + 1 IMHERE = 945 IF (K-CBAR) 940,950,1710 950 CONTINUE C C INTERCHANGE ACTIVE COLUMNS AND ADD IN EFFECT OF THE CURRENT COLUMN C IF (CCOUNT .EQ. 0) GO TO 1000 IF (JPOS .LT. BBBAR) GO TO 1000 INTCH = IX(I1SP) K = 0 960 IN1 = I3SP + K IF (INTCH .EQ. 0) GO TO 970 IN1 = I3 + 2*K*BBAR1 IN2 = IN1 + 2*INTCH DA(1) = DX(IN1) DX(IN1) = DX(IN2) DX(IN2) = DA(1) DA(1) = DX(IN1+1) DX(IN1+1) = DX(IN2+1) DX(IN2+1) = DA(1) 970 KK = 1 IN2 = I1 - 2 IN1 = I3 + 2*K*BBAR1 IF (ABS(DX(IN1)).LT.EPSI .AND. ABS(DX(IN1+1)).LT.EPSI) GO TO 990 980 IN3 = IN1 + 2*KK IN4 = IN2 + 2*KK DX(IN3 ) = DX(IN3) - DX(IN1)*DX(IN4) + DX(IN1+1)*DX(IN4+1) DX(IN3+1) = DX(IN3+1) - DX(IN1)*DX(IN4+1) - DX(IN1+1)*DX(IN4) KK = KK + 1 IMHERE = 985 IF (KK-BBAR1) 980,990,1710 990 K = K + 1 IMHERE = 990 IF (K-C) 960,1000,1710 C C WRITE OUT THE NEXT COLUMN OF U AND THE ROW OF ACTIVE ELEMENTS C 1000 PARM(2) = SR2FIL CALL BLDPK (CSP,TYPEL,SR2FIL,0,0) IN1 = I2 JJ = IOFF 1010 DZ(1) = DX(IN1 ) DZ(2) = DX(IN1+1) IF (ABS(DZ(1)).LT.EPSI .AND. ABS(DZ(2)).LT.EPSI) GO TO 1030 CALL ZBLPKI 1030 IN1 = IN1 + 2 JJ = JJ + 1 IF (JJ-JPOS) 1010,1010,1040 1040 IF (ABS(DX(IN1-2)).LT.EPSI .AND. ABS(DX(IN1-1)).LT.EPSI) 1 GO TO 1720 C C PACK ACTIVE COLUMN ELEMENTS ALSO C IF (CCOUNT .EQ. 0) GO TO 1090 IF (JPOS .LT. BBBAR) GO TO 1090 K = 0 1060 IN1 = I7SP + K IN2 = IX(IN1)+I3SP GO TO 1080 1070 K = K + 1 IMHERE = 1070 IF (K-CCOUNT) 1060,1090,1710 1080 IN3 = I3 + 2*(IX(IN1)*BBAR1) DZ(1) = DX(IN3 ) DZ(2) = DX(IN3+1) IF (ABS(DZ(1)).LT.EPSI .AND. ABS(DZ(2)).LT.EPSI) GO TO 1070 JJ = IX(IN2) CALL ZBLPKI GO TO 1070 1090 CALL BLDPKN (SR2FIL,0,FILEU) C C COMPUTE ACTIVE ROW-COLUMN INTERACTION C IF (CCOUNT.EQ.0 .OR. CBCNT.EQ.0) GO TO 1140 IF (JPOS .LT. BBBAR) GO TO 1140 K = 0 1100 CONTINUE IN1 = I3 + 2*K*BBAR1 IF (ABS(DX(IN1)).LT.EPSI .AND. ABS(DX(IN1+1)).LT.EPSI) 1 GO TO 1130 KK = 0 1110 IN2 = I4 + 2*KK*BBBAR IF (ABS(DX(IN2)).LT.EPSI .AND. ABS(DX(IN2+1)).LT.EPSI) 1 GO TO 1120 IN3 = I5 + 2*(K*CBAR+KK) DX(IN3 ) = DX(IN3 ) +DX(IN2)*DX(IN1 ) - DX(IN2+1)*DX(IN1+1) DX(IN3+1) = DX(IN3+1) +DX(IN2)*DX(IN1+1) + DX(IN2+1)*DX(IN1 ) 1120 KK = KK + 1 IMHERE = 1120 IF (KK-CBAR) 1110,1130,1710 1130 K = K + 1 IMHERE = 1130 IF (K-C) 1100,1140,1710 C C MOVE ELEMENTS IN AREA III UP ONE CELL C 1140 IF (CCOUNT . EQ. 0) GO TO 1190 IF (JPOS .LT. BBBAR) GO TO 1190 K = 0 1150 IN1 = I3SP + K IF (IX(IN1) .EQ. 0) GO TO 1180 KK = 0 IN1 = I3 + 2*K*BBAR1 1160 IN2 = IN1 + KK + KK DX(IN2 ) = DX(IN2+2) DX(IN2+1) = DX(IN2+3) KK = KK + 1 IMHERE = 1170 IF (KK-BBAR) 1160,1170,1710 1170 DX(IN2+2) = 0.0 DX(IN2+3) = 0.0 1180 K = K + 1 IMHERE = 1180 IF (K-C) 1150,1190,1710 C C C DETERMINE IF A COLUMN OF L CAN BE WRITTEN OUT C 1190 IF (LCOL-BBBAR1) 1370,1200,1200 C C OUTPUT A COLUMN OF L C 1200 PARM(2) = FILEL(1) JPOSL = JPOSL + 1 CALL BLDPK (CSP,TYPEL,FILEL(1),0,0) C C STORE THE PERMUTATION INDEX AS THE DIAGONAL ELEMENT C JJ = JPOSL DZ(1) = IX(I1SP) DZ(2) = 0.0 CALL ZBLPKI K = 0 1210 JJ = JPOSL + K + 1 IN2 = I1 + 2*K DZ(1) = DX(IN2) DZ(2) = DX(IN2+1) IF (ABS(DZ(1)).LT.EPSI .AND. ABS(DZ(2)).LT.EPSI) GO TO 1230 CALL ZBLPKI 1230 K = K + 1 IMHERE = 1230 IF (K-BBAR) 1210,1240,1710 C C PACK ACTIVE ROW ELEMENTS ALSO C 1240 IF (CBCNT .EQ. 0) GO TO 1280 K = 0 1250 IN1 = I6SP + K IN2 = I4 + 2*(IX(IN1)*BBBAR) IN1 = IX(IN1) + I4SP JJ = IX(IN1) DZ(1) = DX(IN2 ) DZ(2) = DX(IN2+1) IF (ABS(DZ(1)).LT.EPSI .AND. ABS(DZ(2)).LT.EPSI) GO TO 1270 CALL ZBLPKI 1270 K = K + 1 IMHERE = 1270 IF (K-CBCNT) 1250,1280,1710 1280 CALL BLDPKN (FILEL,0,FILEL) C C MOVE PERMUTATION INDICES OVER ONE ELEMENT C END = I1SP + LCOL DO 1290 I = I1SP,END 1290 IX(I) = IX(I+1) C C MOVE ELEMENTS IN AREA I OVER ONE COLUMN C K = 0 IF (SCRFLG .EQ. 0) GO TO 1310 CALL CLOSE (SR2FL,REW) CALL OPEN (*1680,SR2FL,IX(SR2BUF),RD) IF (R .GT. 2) GO TO 1310 ICRQ = I1 + BBAR*J4 - 1 - SR3BUF IF (ICRQ .GT. 0) GO TO 1715 IBBAR4 = BBAR*J4 CALL READ (*1690,*1700,SR2FL,DX(I1),IBBAR4,0,FLAG) GO TO 1360 1310 IN1 = I1 + 2*K*BBAR IN2 = IN1 + BBAR + BBAR CALL SXLOOP (DX(IN1),DX(IN2),BBAR) K = K + 1 IMHERE = 1340 IF (K-R+2) 1310,1340,1360 1340 IF (R-BBBAR1) 1350,1310,1710 1350 ICRQ = IN2 + BBAR*J4 - 1 - SR3BUF IF (ICRQ .GT. 0) GO TO 1715 IBBAR4 = BBAR*J4 CALL READ (*1690,*1700,SR2FL,DX(IN2),IBBAR4,0,FLAG) 1360 LCOL = LCOL - 1 C C STORE CURRENT COLUMN OF L C 1370 IF (CBCNT .EQ. 0) GO TO 1420 C C MOVE ELEMENTS IN AREA IV UP ONE CELL C K = 0 1380 IN1 = I4SP + K IF (IX(IN1) .EQ. 0) GO TO 1410 KK = 0 IN1 = I4 + 2*K*BBBAR 1390 IN2 = IN1 + KK + KK DX(IN2 ) = DX(IN2+2) DX(IN2+1) = DX(IN2+3) KK = KK + 1 IMHERE = 1395 IF (KK-BBBAR1) 1390,1400,1710 1400 DX(IN2+2) = 0.0 DX(IN2+3) = 0.0 1410 K = K + 1 IMHERE = 1410 IF (K-CBAR) 1380,1420,1710 1420 IF (SCRFLG .NE. 0) GO TO 1450 C C STORE COLUMN IN CORE C 1430 IN1 = I1 + 2*LCOL*BBAR END = MIN0(BBAR,NCOL-JPOS) IF (END .EQ. 0) GO TO 1480 K = 0 IN3 = I2 + 2*(JPOS-IOFF+1) 1440 IN2 = IN1 + K + K IN4 = IN3 + K + K DX(IN2 ) = DX(IN4 ) DX(IN2+1) = DX(IN4+1) K = K + 1 IMHERE = 1445 IF (K-END) 1440,1480,1710 C C STORE COLUMN ON THE SCRATCH FILE C 1450 IF (LCOL-R+1) 1430,1470,1460 1460 IN1 = I1 + 2*(LLL-1)*BBAR CALL WRITE (SR3FL,DX(IN1),BBAR*J4,0) 1470 IN1 = I2 + 2*(JPOS-IOFF+1) CALL WRITE (SR3FL,DX(IN1),BBAR*J4,0) C C CLOSE SCRATCH FILES AND SWITCH THE POINTERS TO THEM C CALL CLOSE (SR3FL,REW) CALL CLOSE (SR2FL,REW) IN1 = SR2FL SR2FL = SR3FL SR3FL = IN1 1480 LCOL = LCOL + 1 IF (C .EQ. 0) GO TO 1570 IF (JPOS .LT. BBBAR) GO TO 1570 C C READ IN THE NEXT ROW OF ACTIVE COLUMN ELEMENTS C COUNT = CCOUNT IF (ITRN .LT. 0) GO TO 1570 1490 IF (ITRN .GT. JPOS-B+2) GO TO 1560 C C TEST TO SEE IF COLUMN IS ALREADY ACTIVE C K = 0 1500 IN1 = I3SP + K IF (IX(IN1) .EQ. JTRN) GO TO 1540 K = K + 1 IMHERE = 1500 IF (K-C) 1500,1510,1710 C C CREATE A NEW ACTIVE COLUMN C 1510 K = 0 1520 IN1 = I3SP + K IF (IX(IN1) .EQ. 0) GO TO 1530 K = K + 1 IMHERE = 1520 IF (K-C) 1520,1710,1710 1530 IX(IN1) = JTRN IN1 = IN1 + C IX(IN1) = ITRN IN1 = I3 + 2*(K+1)*BBAR1 - 2 DX(IN1 ) = DTRN(1) DX(IN1+1) = DTRN(2) CCOUNT = CCOUNT + 1 GO TO 1550 C C STORE ELEMENT IN EXISTING COLUMN C 1540 IN1 = I3 + 2*(K+1)*BBAR1 - 2 DX(IN1 ) = DX(IN1 ) + DTRN(1) DX(IN1+1) = DX(IN1+1) + DTRN(2) 1550 CALL READ (*1690,*1700,SR1FIL,ITRAN(1),N64,0,FLAG) IF (ITRN .GT. 0) GO TO 1490 CALL CLOSE (SR1FIL,REW) 1560 IF (CCOUNT .EQ. COUNT) GO TO 1570 C C RE-ARRANGE INDEXES IN SEQUENTIAL ORDER C ASSIGN 1570 TO KK GO TO 150 1570 CONTINUE JPOS = JPOS + 1 C C ZERO AREA II C END = I2 + 2*MIN0(JPOS-IOFF+BBAR-1,NCOL-1) + 1 DO 1590 I = I2,END 1590 DX(I) = 0.0 C C TEST TO SEE IF ROW INTERACTION ELEMENTS WILL MERGE INTO AREA III C IF (CBCNT .EQ. 0) GO TO 270 IF (CCOUNT .EQ. 0) GO TO 1640 IF (JPOS-1 .LT. BBBAR) GO TO 270 IN1 = I4SP K = 0 1600 IN2 = IN1 + K IF (IX(IN2) .EQ. JPOS-B+1) GO TO 1610 K = K + 1 IF (K .LT. CBAR) GO TO 1600 GO TO 270 1610 IN1 = I5 + K + K IN2 = I3 + BBAR + BBAR K = 0 1620 DX(IN2 ) = DX(IN2 ) - DX(IN1) DX(IN2+1) = DX(IN2+1) - DX(IN1+1) DX(IN1 ) = 0.0 DX(IN1+1) = 0.0 IN2 = IN2 + BBAR1 + BBAR1 IN1 = IN1 + CBAR + CBAR K = K + 1 IF (K .LT. C) GO TO 1620 C C TEST TO SEE IF A ACTIVE ROW HAS BEEN ELIMINATED C 1640 IN1 = IX(I6SP) + I4SP IF (IX(IN1)-JPOSL-BBAR1) 270,1650,270 C C ELIMINATE THE ACTIVE ROW C 1650 IX(IN1) = 0 IN1 = IN1 + CBAR IX(IN1) = 0 CBCNT = CBCNT - 1 C C MOVE INDEXES IN AREA VI UP ONE C IN1 = I6SP + CBCNT - 1 DO 1660 I = I6SP,IN1 1660 IX(I) = IX(I+1) IX(IN1+1) = 0 GO TO 270 C C FINISH WRITING OUT THE COMPLETED COLUMNS OF L C 1670 CALL CLOSE (SR1FIL,REW) CALL CLOSE (FILEL,NOREW) CALL CLOSE (SR2FIL,NOREW) CALL COMFIN (ITERM,SCRFLG,SR2FL,JPOSL,I1SP,BBAR,I1,CBCNT,IPAK,R, 1 BBBAR1,BBBAR,I6SP,I4,I4SP,IX,DX,X,LCOL) PARM(5) = IEND CALL CONMSG (PARM(3),3,0) FILEU(7) = BBBAR RETURN C C ERROR EXITS C 1680 PARM(1) = -1 GO TO 1730 1690 PARM(1) = -2 GO TO 1730 1700 PARM(1) = -3 GO TO 1730 1710 PARM(1) = -25 WRITE (NOUT,1711) IMHERE, 1 I1SP,I1,I2,I3SP,I3,I4SP,I4,I5,I6SP,I7SP,END, 2 BBAR,BBAR1,BBBAR,C,CBAR,NCOL,K,KK,KKK, 3 IN1,IN2,IN4,IX(IN1),IX(IN2),IX(IN4),IX(I7SP), 4 R,CCOUNT,CBCNT,JPOS 1711 FORMAT (//,' IMHERE=',I5,/, 1 ' I1SP,I1,I2,I3SP,I3,I4SP,I4,I5,I6SP,I7SP,END=',11I7,/, 2 ' BBAR,BBAR1,BBBAR,C,CBAR,NCOL,K,KK,KKK=',9I8,/, 3 ' IN1,IN2,IN4,IX(IN1),IX(IN2),IX(IN4),IX(I7SP)=',7I8,/, 4 ' R,CCOUNT,CBCNT,JPOS=',4I8,/) GO TO 1730 1715 PARM(1) = -8 PARM(2) = ICRQ GO TO 1730 C C SINGULAR MATRIX - CLOSE ALL FILES AND RETURN TO USER C 1720 CALL CLOSE (FILEA(1),REW) CALL CLOSE (FILEL(1),REW) CALL CLOSE (FILEU(1),REW) CALL CLOSE (SR1FIL, REW) CALL CLOSE (SR2FIL, REW) CALL CLOSE (SR3FIL, REW) FILEU(2) = BBBAR RETURN 1 1730 CALL MESAGE (PARM(1),PARM(2),PARM(3)) RETURN END ================================================ FILE: mis/cdcomp.f ================================================ SUBROUTINE CDCOMP (*,IX,X,DX) C C CDCOMP WILL DECOMPOSE A COMPLEX UNSYMETRIC MATRIX INTO A UNIT C LOWER TRIANGULAR MATRIX AND AN UPPER TRIANGULAR MATRIX,USING C PARTIAL PIVOTING WITHIN THE LOWER BAND C C IMPORTANT - CALLER MUST FIRST INITIALIZE B AND/OR BBAR IN /CDCMPX/ C C DEFINITION OF INPUT PARAMETERS C C FILEA = MATRIX CONTROL BLOCK FOR THE INPUT MATRIX A C FILEL = MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX L C FILEU = MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX U C SR1FIL = SCRATCH FILE C SR2FIL = SCRATCH FILE C SR3FIL = SCRATCH FILE C NX = NUMBER OF CELLS OF CORE AVAILABLE AT IX C DET = CELL WHERE THE DETERMINATE OF A WILL BE STORED C POWER = SCALE FACTOR TO BE APPLIED TO THE DETERMINATE C ( DETERMINATE = DET*10**POWER ) C MINDIA = CELL WHERE THE VALUE OF THE MINIMUM DIAGONAL WILL BE C STORED C IX = BLOCK OF CORE AVAILABLE AS WORKING STORAGE TO DECOMP C X = SAME BLOCK AS IX, BUT TYPED REAL C DX = SAME BLOCK AS IX, BUT TYPED DOUBLE PRECISION C C INTEGER FILEA ,FILEL ,FILEU ,POWER , 1 SYSBUF ,FORMA ,TYPEA ,RDP , 2 TYPEL ,EOL ,PARM(5) ,BUFA , 3 OUTBUF ,SR1BUF ,SR2BUF ,SR3BUF , 4 B ,BBAR ,C ,CBAR , 5 BBAR1 ,R ,CCOUNT ,CBCNT , 6 SCRFLG ,END ,BBBAR ,BBBAR1 , 7 COUNT ,SR2FL ,SR3FL ,SR1FIL , 8 SR2FIL ,SR3FIL ,SQR ,SYM , 9 FLAG ,ITRAN(6) DOUBLE PRECISION DZ(2) ,DA(2) ,DET ,MAX(2) , 1 MINDIA ,DX(1) ,DTRN(2) ,DX1 , 2 DX2 ,LIMIT DIMENSION IX(1) ,X(1) CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /CDCMPX/ FILEA(7) ,FILEL(7) ,FILEU(7) ,SR1FIL , 1 SR2FIL ,SR3FIL ,DET(2) ,POWER , 2 NX ,MINDIA ,B ,BBAR , 3 C ,CBAR ,R COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,LOWTRI ,UPRTRI , 4 SYM ,ROW ,IDENT COMMON /ZNTPKX/ A(4) ,II ,EOL C COMMON /DESCRP/ LENGTH ,MAJOR COMMON /ZBLPKX/ Z(4) ,JJ COMMON /UNPAKX/ ITYPEX ,IXY ,JXY ,INCRX COMMON /PACKX / ITYPE1 ,ITYPE2 ,IY ,JY , 1 INCRY EQUIVALENCE (DA(1),A(1)) ,(DZ(1),Z(1)) , 1 (FORMA,FILEA(4)) ,(TYPEA,FILEA(5)) , 2 (NCOL,FILEA(3)) ,(TYPEL,FILEL(5)) EQUIVALENCE (ITRAN(1),ITRN) ,(ITRAN(2),JTRN) , 1 (ITRAN(3),DTRN(1)) DATA PARM(3), PARM(4)/ 4HCDCO,4HMP / DATA IBEGN / 4HBEGN /, IEND /4HEND / DATA LIMIT / 1.0D-38/ C C BUFFER ALLOCATION C BUFA = NX - SYSBUF IBUFL = BUFA - SYSBUF OUTBUF = IBUFL - SYSBUF SR1BUF = OUTBUF - SYSBUF SR2BUF = SR1BUF - SYSBUF SR3BUF = SR2BUF - SYSBUF ICRQ =-SR3BUF IF (ICRQ .GT. 0) GO TO 1715 DET(1) = 1.D0 DET(2) = 0.D0 POWER = 0 MINDIA = 1.D+25 ITERM = 0 IF (FILEA(1) .LT. 0) ITERM = 1 FILEA(1) = IABS(FILEA(1)) C C WRITE THE HEADER RECORD ON THE OUTPUT TAPES AND INITIALIZE THE C TRAILER RECORDS. C CALL GOPEN (FILEL,IX(IBUFL),WRTREW) PARM(2) = SR2FIL CALL OPEN (*1680,SR2FIL,IX(OUTBUF),WRTREW) CALL FNAME (FILEU(1),X(1)) CALL WRITE (SR2FIL,X(1),2,1) FILEL(2) = 0 FILEL(3) = NCOL FILEL(4) = 4 FILEL(6) = 0 FILEL(7) = 0 FILEU(2) = 0 FILEU(3) = NCOL FILEU(4) = 5 FILEU(6) = 0 FILEU(7) = 0 IF (NCOL .GT. 2) GO TO 10 CALL COM12 (*1720,IX(1),X(1),DX(1),ITERM) PARM(5) = IEND CALL CONMSG (PARM(3),3,0) RETURN C C CALL GENVEC TO PICK B, BBAR, C, CBAR, AND R C 10 IF (B.LE.0 .OR. BBAR.LE.0) CALL GENVEC (*1720,IX(BUFA),FILEA(1), 1 NX,IX(1),NCOL,B,BBAR,C,CBAR,R,2) BBAR1 = BBAR + 1 BBBAR = MIN0(B+BBAR,NCOL) BBBAR1 = BBBAR - 1 SCRFLG = 0 IF (R .LT. BBBAR1) SCRFLG = 1 IF (SCRFLG .EQ. 0) GO TO 20 ICRQ = (BBBAR1-R)*4*BBAR CALL PAGE2 (2) WRITE (NOUT,15) UIM,ICRQ 15 FORMAT (A29,' 2177, SPILL WILL OCCUR IN COMPLEX UNSYMMETRIC ', 1 'DECOMPOSITION.', /I10, 2 ' ADDITIONAL WORDS NEEDED TO STAY IN CORE.') C C INITIALIZE POINTERS TO SPECIFIC AREAS OF CORE C 20 I1 = 1 IPAK = I1 + 2*BBAR*R + BBBAR/2 + 1 I1SP = BBAR*R*4 + 1 I2 = IPAK I3SP = (I2+ 2*MIN0(NCOL,BBBAR+BBAR))*2 - 1 I3 = I2 + 2*MIN0(NCOL,BBBAR+BBAR) + C I4SP = I3SP + (BBAR+2)*C*4 - 2*C I4 = I3 + 2*BBAR1*C + CBAR I5 = I4 + 2*BBBAR*CBAR I6SP = (I5 + 2*C*CBAR)*2 - 1 I7SP = I6SP + CBAR PARM(5) = IBEGN CALL CONMSG (PARM(3),3,0) END = I7SP + C C C DEFINITION OF KEY PROGRAM PARAMETERS C C I1 = POINTER TO AREA WHERE COMPLETED COLUMNS OF L ARE STORE C I1SP = POINTER TO AREA WHERE THE PERMUTATION INDEXES ARE STOR C IPAK = POINTER TO AREA WHERE COLUMNS WILL BE PACKED FROM C I2 = POINTER TO AREA WHERE THE NEXT COLUMN OF A IS STORED C I3 = POINTER TO AREA WHERE ACTIVE COLUMNS ARE STORED C I4 = POINTER TO AREA WHERE ACTIVE ROWS ARE STORED C I5 = POINTER TO AREA WHERE INTERACTION ELEMENTS ARE STORED C I6SP = POINTER TO AREA WHERE SEQUENCED ACTIVE ROW INDICES C ARE STORED C I7SP = POINTER TO AREA WHERE SEQUENCED ACTIVE COLUMN INDICES C ARE STORED C B = UPPER HALF-BAND C BBAR = LOWER HALF-BAND C C = NUMBER OF ACTIVE COLUMNS C CBAR = NUMBER OF ACTIVE ROWS C R = NUMBER OF COLUMNS OF L THAT CAN BE STORED IN CORE C JPOS = CURRENT PIVOTAL COLUMN INDEX C JPOSL = NEXT COLUMN OF L TO BE WRITTEN OUT C LCOL = NUMBER OF COLUMNS OF L CURRENTLY STORED IN CORE OR ON C SCRATCH FILES C CCOUNT = CURRENT NUMBER OF ACTIVE COLUMNS C CBCNT = CURRENT NUMBER OF ACTIVE ROWS C ITRN = ROW INDEX OF NEXT ACTIVE COLUMN ELEMENT C JTRN = COLUMN INDEX OF NEXT ACTIVE COLUMN ELEMENT C IOFF = ROW POSITION OF THE FIRST ELEMENT IN AREA II C ITERM = IF NONZERO, TERMINATE BEFORE THE RE-WRITE C NCOL = SIZE OF THE INPUT MATRIX C BBBAR = B + BBAR C BBAR1 = BBAR + 1 C BBBAR1 = B + BBAR - 1 C SCRFLG = NONZERO MEANS SPILL C C RE-WRITE THE UPPER TRIANGLE OF ACTIVE ELEMENTS IN THE TRANSPOSED C ORDER C PARM(2) = FILEA(1) CALL OPEN (*1680,FILEA(1),IX(BUFA),RDREW) CCOUNT = 0 IF (C .EQ. 0) GO TO 40 CALL CTRNSP (IX(1),X(1),NX,FILEA(1),B,SR1FIL) C C ZERO CORE C 40 DO 50 I = 1,END 50 X(I) = 0. IF (C .EQ. 0) GO TO 260 C C OPEN THE FILE CONTAINING THE TRANSPOSED ACTIVE ELEMENTS AND READ I C THE FIRST BBAR + 1 ROWS C PARM(2) = SR1FIL CALL OPEN (*1680,SR1FIL,IX(SR1BUF),RD) K = 0 60 CALL READ (*1690,*1700,SR1FIL,ITRAN(1),6,0,FLAG) IF (ITRN .GT. 0) GO TO 70 CALL CLOSE (SR1FIL,REW) GO TO 140 70 IF (ITRN .GT. K+1) GO TO 130 C C DETERMINE IF COLUMN IS ALREADY ACTIVE C IF (JTRN .LE. BBBAR) GO TO 60 KK = 0 80 IN1 = I3SP + KK IF (IX(IN1) .EQ. JTRN) GO TO 90 KK = KK + 1 IF (KK-C) 80,100,1710 C C ADD IN ACTIVE ELEMENT TO EXISTING COLUMN C 90 IN1 = I3 + 2*KK*BBAR1 + K + K DX(IN1 ) = DTRN(1) DX(IN1+1) = DTRN(2) GO TO 60 C C CREATE NEW ACTIVE COLUMN C 100 CCOUNT = CCOUNT + 1 KK = 0 110 IN1 = I3SP + KK IF (IX(IN1) .EQ. 0) GO TO 120 KK = KK + 1 IF (KK-C) 110,1710,1710 120 IX(IN1) = JTRN IN1 = IN1 + C IX(IN1) = K + 1 IN1 = I3 + 2*KK*BBAR1 + K + K DX(IN1 ) = DTRN(1) DX(IN1+1) = DTRN(2) GO TO 60 130 K = K + 1 IF (K-BBAR1) 70,140,1710 C C SET INDEXES IN AREA VII TO POINT TO THE ACTIVE COLUMNS IN SEQUENCE C 140 ASSIGN 260 TO KK 150 IN1 = I7SP K = 0 160 IN2 = I3SP + K IF (IX(IN2)) 1710,180,190 170 IN1 = IN1 + 1 180 K = K + 1 IF (K-C) 160,250,1710 190 IF (IN1 .NE. I7SP) GO TO 200 IX(IN1) = K GO TO 170 200 KKK = 0 210 IN3 = IN1 - KKK IF (IN3 .GT. I7SP) GO TO 220 IX(IN3) = K GO TO 170 220 IN4 = I3SP + IX(IN3-1) IF (IX(IN2)-IX(IN4)) 240,1710,230 230 IX(IN3) = K GO TO 170 240 IX(IN3) = IX(IN3-1) KKK = KKK + 1 GO TO 210 250 GO TO KK, (260,1570) 260 CONTINUE C C INITIALIZE C SR2FL = FILEU(1) SR3FL = SR3FIL JPOS = 1 PARM(2) = FILEA(1) CALL FWDREC (*1690,FILEA(1)) LCOL = 0 CBCNT = 0 JPOSL = 0 270 IF (JPOS .GT. NCOL) GO TO 1670 C C READ NEXT COLUMN OF A INTO AREA II C IOFF = MAX0(1,JPOS-BBBAR1) COUNT = CBCNT CALL INTPK (*1720,FILEA(1),0,CDP,0) K = 1 IF (JPOS .GT. BBBAR) K = JPOS - B + 1 280 IF (EOL) 400,290,400 290 CALL ZNTPKI IF (II .LT. K) GO TO 280 K = JPOS + BBAR 300 IF (II .GT. K) GO TO 330 C C READ ELEMENTS WITHIN THE BAND INTO AREA II C IN1 = I2 + 2*(II-IOFF) DX(IN1 ) = DA(1) DX(IN1+1) = DA(2) 310 IF (EOL) 400,320,400 320 CALL ZNTPKI GO TO 300 C C TAKE CARE OF ACTIVE ELEMENTS BELOW THE BAND C 330 KK = 0 340 IN1 = I4SP + KK IF (IX(IN1)-II) 350,360,350 350 KK = KK + 1 IF (KK-CBAR) 340,370,1710 C C ADD IN ACTIVE ELEMENT TO EXISTING ROW C 360 IN1 = I4 + 2*(KK+1)*BBBAR - 2 DX(IN1 ) = DA(1) DX(IN1+1) = DA(2) GO TO 310 C C CREATE NEW ACTIVE ROW C 370 KK = 0 380 IN1 = I4SP + KK IF (IX(IN1) .EQ. 0) GO TO 390 KK = KK + 1 IF (KK-CBAR) 380,1710,1710 390 IX(IN1) = II IN1 = IN1 + CBAR IX(IN1) = JPOS IN1 = I4 + (KK+1)*BBBAR*2 - 2 DX(IN1 ) = DA(1) DX(IN1+1) = DA(2) CBCNT = CBCNT + 1 GO TO 310 C C ARRANGE ACTIVE ROW INDEXES IN SEQUENCE AND STORE THEM IN AREA VI C 400 IF (COUNT .EQ. CBCNT) GO TO 500 IN1 = I6SP K = 0 410 IN2 = I4SP + K IF (IX(IN2)) 1710,430,440 420 IN1 = IN1 + 1 430 K = K + 1 IF (K-CBAR) 410,500,1710 440 IF (IN1 .NE. I6SP) GO TO 450 IX(IN1) = K GO TO 420 450 KK = 0 460 IN3 = IN1 - KK IF (IN3 .GT. I6SP) GO TO 470 IX(IN3) = K GO TO 420 470 IN4 = I4SP + IX(IN3-1) IF (IX(IN2)-IX(IN4)) 490,1710,480 480 IX(IN3) = K GO TO 420 490 IX(IN3) = IX(IN3-1) KK = KK + 1 GO TO 460 500 CONTINUE C C TEST FOR POSSIBLE MERGING BETWEEN AN INACTIVE-ACTIVE COLUMN AND C THE CURRENT PIVOTAL COLUMN C IF (CCOUNT .EQ. 0) GO TO 600 IN1 = IX(I7SP) + I3SP IF (IX(IN1)-JPOS) 1710,510,600 C C MERGE ACTIVE COLUMN AND CURRENT PIVOTAL COLUMN AND ZERO THAT C ACTIVE COLUMN IN AREA III C 510 IX(IN1) = 0 IN1 = IN1 + C IX(IN1) = 0 IN1 = I3 + IX(I7SP)*BBAR1*2 CCOUNT = CCOUNT - 1 KK = 0 520 IN2 = IN1 + KK + KK IN3 = I2 + KK + KK DX(IN3 ) = DX(IN3 ) + DX(IN2) DX(IN3+1) = DX(IN3+1) + DX(IN2+1) DX(IN2 ) = 0.D0 DX(IN2+1) = 0.D0 KK = KK + 1 IF (KK-BBAR1) 520,530,1710 C C MERGE INTERACTION ELEMENTS C 530 CONTINUE IF (CBCNT .EQ. 0) GO TO 580 IN1 = I5 + 2*IX(I7SP)*CBAR K = 0 540 IN2 = I4SP + K IF (IX(IN2) .EQ. 0) GO TO 560 IN3 = IN1 + 2*K IF (DX(IN3).EQ.0.D0 .AND. DX(IN3+1).EQ.0.D0) GO TO 560 IF (IX(IN2) .GT. JPOS+BBAR) GO TO 570 C C STORE ELEMENT WITHIN THE LOWER BAND C IN2 = I2 + 2*(IX(IN2)-IOFF) DX(IN2 ) = DX(IN2 ) - DX(IN3) DX(IN2+1) = DX(IN2+1) - DX(IN3+1) 550 DX(IN3 ) = 0.D0 DX(IN3+1) = 0.D0 560 K = K + 1 IF (K-CBAR) 540,580,1710 C C STORE ELEMENT IN THE ACTIVE ROW C 570 IN2 = I4 + 2*(K+1)*BBBAR - 2 DX(IN2+1) = DX(IN2+1) - DX(IN3+1) DX(IN3+1) = 0.D0 DX(IN2) = DX(IN2) - DX(IN3) DX(IN3) = 0.D0 GO TO 550 C C MOVE THE POINTERS IN AREA VII UP ONE C 580 IN1 = I7SP + CCOUNT - 1 DO 590 I = I7SP,IN1 590 IX(I ) = IX(I+1) IX(IN1+1) = 0 600 IF (LCOL .EQ. 0) GO TO 830 C C OPERATE ON THE CURRENT COLUMN OF A BY ALL PREVIOUS COLUMNS OF L, C MAKING NOTED INTERCHANGES AS YOU GO C IF (SCRFLG .EQ. 0) GO TO 630 IF (LCOL-(R-1)) 630,620,610 610 PARM(2) = SR2FL CALL OPEN (*1680,SR2FL,IX(SR2BUF),RD) 620 PARM(2) = SR3FL CALL OPEN (*1680,SR3FL,IX(SR3BUF),WRTREW) 630 LL = 0 LLL = 0 LLLL = 0 C C PICK UP INTERCHANGE INDEX FOR COLUMN JPOSL + LL + 1 C 640 IN1 = I1SP + LL INTCHN = IX(IN1) IN2 = I2 + LL + LL IF (INTCHN .EQ. 0) GO TO 650 C C PERFORM ROW INTERCHANGE C IN1 = IN2 + 2*INTCHN DA(1) = DX(IN1) DX(IN1) = DX(IN2) DX(IN2) = DA(1) DA(1) = DX(IN1+1) DX(IN1+1) = DX(IN2+1) DX(IN2+1) = DA(1) 650 CONTINUE C C COMPUTE THE CONTRIBUTION FROM THAT COLUMN C END = MIN0(BBAR1,NCOL-(JPOSL+LL)) IF (DX(IN2).EQ.0.D0 .AND. DX(IN2+1).EQ.0.D0) GO TO 720 IN1 = I1 + 2*LLL*BBAR CALL CLOOP (DX(IN2+2),DX(IN1),DX(IN2),END-1) IF (CBCNT .EQ. 0) GO TO 720 C C TEST TO SEE IF AN INACTIVE-ACTIVE ROW CONTRIBUTION SHOULD BE C ADDED IN C KKK = 0 690 IN3 = I6SP + KKK IN1 = IX(IN3) + I4SP IF (IX(IN1) .GT. JPOS+BBAR) GO TO 720 KK = IN1 + CBAR IF (IX(KK) .GT. JPOSL+LL+1) GO TO 710 IF (IX(IN1)-JPOSL-BBAR1 .LE. LL) GO TO 710 C C ADD IN EFFECT OF THE INACTIVE-ACTIVE ROW C IN4 = I2 + 2*(IX(IN1)-IOFF) K = I4 + 2*(JPOSL+BBBAR - JPOS+LL + IX(IN3)*BBBAR) DX(IN4 ) = DX(IN4 ) - DX(K)*DX(IN2) + DX(K+1)*DX(IN2+1) DX(IN4+1) = DX(IN4+1) - DX(IN2+1)*DX(K) - DX(IN2)*DX(K+1) 710 KKK = KKK + 1 IF (KKK .LT. CBCNT) GO TO 690 720 LL = LL + 1 LLL = LLL + 1 IF (LL .EQ. LCOL) GO TO 780 IF (LL-R+1) 640,730,760 730 IF (R .EQ. BBBAR1) GO TO 640 IN1 = I1 + 2*LL*BBAR 750 ICRQ = IN1 + BBAR*4 - 1 - SR3BUF IF (ICRQ .GT. 0) GO TO 1715 IBBAR4 = BBAR*4 CALL READ (*1690,*1700,SR2FL,DX(IN1),IBBAR4,0,FLAG) GO TO 640 760 IN1 = I1 + (LLL-1)*BBAR*2 IF (LL.EQ.R .AND. LCOL.EQ.BBBAR1) GO TO 770 CALL WRITE (SR3FL,DX(IN1),4*BBAR,0) 770 LLL = LLL - 1 GO TO 750 780 CONTINUE C C COMPUTE ELEMENTS FOR THE ACTIVE ROWS C IF (CBCNT .EQ. 0) GO TO 830 K = 0 790 IN1 = I4SP + K IF (IX(IN1) .GT. JPOS+BBAR) GO TO 810 800 K = K + 1 IF (K-CBAR) 790,830,1710 810 IN1 = IN1 + CBAR IF (IX(IN1) .EQ. JPOS) GO TO 800 KKK = MAX0(0,BBBAR-JPOS+IX(IN1)-1) IN2 = I4 + 2*K*BBBAR - 2 IN3 = I2 + 2*(KKK-1-MAX0(0,BBBAR-JPOS)) IN1 = IN2 + 2*BBBAR IN2 = IN2 + 2*KKK 820 IN2 = IN2 + 2 KKK = KKK + 1 IN3 = IN3 + 2 DX(IN1 ) = DX(IN1 ) - DX(IN2)*DX(IN3) + DX(IN2+1) *DX(IN3+1) DX(IN1+1) = DX(IN1+1) - DX(IN2+1)*DX(IN3) - DX(IN2)*DX(IN3+1) IF (KKK-BBBAR1) 820,800,1710 C C SEARCH THE LOWER BAND FOR THE MAXIMUM ELEMENT AND INTERCHANGE C ROWS TO BRING IT TO THE DIAGONAL C 830 K = 1 IN1 = I2 + (JPOS-IOFF)*2 DX1 = 0.D0 DX2 = 0.D0 IF (DABS(DX(IN1 )) .GT. LIMIT) DX1 = DX(IN1 )**2 IF (DABS(DX(IN1+1)) .GT. LIMIT) DX2 = DX(IN1+1)**2 MAX(1) = DX1 + DX2 INTCHN = 0 END = MIN0(BBAR1,NCOL-JPOS+1) IF (END .EQ. 1) GO TO 870 840 IN2 = IN1 + K + K DX1 = 0.D0 DX2 = 0.D0 IF (DABS(DX(IN2 )) .GT. LIMIT) DX1 = DX(IN2 )**2 IF (DABS(DX(IN2+1)) .GT. LIMIT) DX2 = DX(IN2+1)**2 DX2 = DX2 + DX1 IF (DX2 .GT. MAX(1)) GO TO 860 850 K = K + 1 IF (K-END) 840,870,1710 860 MAX(1) = DX2 INTCHN = K GO TO 850 C 870 IF (INTCHN .EQ. 0) GO TO 880 C C INTERCHANGE ROWS IN AREA II C DET(1) =-DET(1) DET(2) =-DET(2) C MAX(1) = DX(IN1) IN2 = IN1+2*INTCHN DX(IN1) = DX(IN2) DX(IN2) = MAX(1) MAX(1) = DX(IN1+1) DX(IN1+1) = DX(IN2+1) DX(IN2+1) = MAX(1) C C STORE THE PERMUTATION INDEX C IN2 = I1SP + LCOL IX(IN2) = INTCHN C C DIVIDE THE LOWER BAND BY THE DIAGONAL ELEMENT C 880 DX1 = 0.D0 DX2 = 0.D0 IF (DABS(DX(IN1 )) .GT. LIMIT) DX1 = DX(IN1 )**2 IF (DABS(DX(IN1+1)) .GT. LIMIT) DX2 = DX(IN1+1)**2 DA(1) = DX1 + DX2 IF (DA(1) .EQ. 0.D0) GO TO 1720 MAX(1) = DX(IN1 )/DA(1) MAX(2) =-DX(IN1+1)/DA(1) MINDIA = DMIN1(DSQRT(DA(1)),MINDIA) DA(1) = DMAX1(DABS(DET(1)),DABS(DET(2))) 890 IF (DA(1) .LE. 10.D0) GO TO 900 DET(1) = DET(1)*.1D0 DET(2) = DET(2)*.1D0 DA(1) = DA(1) *.1D0 POWER = POWER + 1 GO TO 890 900 IF (DA(1).GE. .1D0) GO TO 910 DET(1) = DET(1)*10.D0 DET(2) = DET(2)*10.D0 DA(1) = DA(1) *10.D0 POWER = POWER - 1 GO TO 900 910 DA(1) = DET(1)*DX(IN1) - DET(2)*DX(IN1+1) DET(2) = DET(2)*DX(IN1) + DET(1)*DX(IN1+1) DET(1) = DA(1) K = 1 END = MIN0(BBAR1,NCOL-JPOS+1) IF (END .EQ. 1) GO TO 930 920 IN2 = IN1 + K + K DA(1) = DX(IN2)*MAX(1) - DX(IN2+1)*MAX(2) DX(IN2+1) = DX(IN2)*MAX(2) + DX(IN2+1)*MAX(1) DX(IN2) = DA(1) K = K + 1 IF (K-END) 920,930,1710 930 IF (CBCNT .EQ. 0) GO TO 950 C C DIVIDE THE ACTIVE ROWS BY THE DIAGONAL C K = 0 IN1 = I4 + 2*BBBAR1 940 DA(1) = DX(IN1)*MAX(1) - DX(IN1+1)*MAX(2) DX(IN1+1) = DX(IN1)*MAX(2) + DX(IN1+1)*MAX(1) DX(IN1) = DA(1) IN1 = IN1 + 2*BBBAR K = K + 1 IF (K-CBAR) 940,950,1710 950 CONTINUE C C INTERCHANGE ACTIVE COLUMNS AND ADD IN EFFECT OF THE CURRENT COLUMN C IF (CCOUNT .EQ. 0) GO TO 1000 IF (JPOS .LT. BBBAR) GO TO 1000 INTCH = IX(I1SP) K = 0 960 IN1 = I3SP + K IF (INTCH .EQ. 0) GO TO 970 IN1 = I3 + 2*K*BBAR1 IN2 = IN1 + INTCH + INTCH DA(1) = DX(IN1) DX(IN1) = DX(IN2) DX(IN2) = DA(1) DA(1) = DX(IN1+1) DX(IN1+1) = DX(IN2+1) DX(IN2+1) = DA(1) 970 KK = 1 IN2 = I1 - 2 IN1 = I3 + 2*K*BBAR1 IF (DX(IN1).EQ.0.D0 .AND. DX(IN1+1).EQ.0.D0) GO TO 990 980 IN3 = IN1 + KK + KK IN4 = IN2 + KK + KK DX(IN3 ) = DX(IN3 ) - DX(IN1)*DX(IN4 ) + DX(IN1+1)*DX(IN4+1) DX(IN3+1) = DX(IN3+1) - DX(IN1)*DX(IN4+1) - DX(IN1+1)*DX(IN4) KK = KK + 1 IF (KK-BBAR1) 980,990,1710 990 K = K + 1 IF (K-C) 960,1000,1710 C C WRITE OUT THE NEXT COLUMN OF U AND THE ROW OF ACTIVE ELEMENTS C 1000 PARM(2) = SR2FIL CALL BLDPK (CDP,TYPEL,SR2FIL,0,0) IN1 = I2 JJ = IOFF 1010 DZ(1) = DX(IN1) DZ(2) = DX(IN1+1) IF (DZ(1).EQ.0.D0 .AND. DZ(2).EQ.0.D0) GO TO 1030 CALL ZBLPKI 1030 IN1 = IN1 + 2 JJ = JJ + 1 IF (JJ-JPOS) 1010,1010,1040 1040 IF (DX(IN1-2).EQ.0.D0 .AND. DX(IN1-1).EQ.0.D0) GO TO 1720 C C PACK ACTIVE COLUMN ELEMENTS ALSO C IF (CCOUNT .EQ. 0) GO TO 1090 IF (JPOS .LT. BBBAR) GO TO 1090 K = 0 1060 IN1 = I7SP + K IN2 = IX(IN1) + I3SP GO TO 1080 1070 K = K + 1 IF (K-CCOUNT) 1060,1090,1710 1080 IN3 = I3 + 2*(IX(IN1)*BBAR1) DZ(1) = DX(IN3 ) DZ(2) = DX(IN3+1) IF (DZ(1).EQ.0.D0 .AND. DZ(2).EQ.0.D0) GO TO 1070 JJ = IX(IN2) CALL ZBLPKI GO TO 1070 1090 CALL BLDPKN (SR2FIL,0,FILEU) C C COMPUTE ACTIVE ROW-COLUMN INTERACTION C IF (CCOUNT.EQ.0 .OR. CBCNT.EQ.0) GO TO 1140 IF (JPOS .LT. BBBAR) GO TO 1140 K = 0 1100 CONTINUE IN1 = I3 + 2*K*BBAR1 IF (DX(IN1).EQ.0.D0 .AND. DX(IN1+1).EQ.0.D0) GO TO 1130 KK = 0 1110 IN2 = I4 + 2*KK*BBBAR IF (DX(IN2).EQ.0.D0 .AND. DX(IN2+1).EQ.0.D0) GO TO 1120 IN3 = I5 + 2*(K*CBAR+KK) DX(IN3 ) = DX(IN3 ) + DX(IN2)*DX(IN1) - DX(IN2+1)*DX(IN1+1) DX(IN3+1) = DX(IN3+1) + DX(IN2)*DX(IN1+1) + DX(IN2+1)*DX(IN1) 1120 KK = KK + 1 IF (KK-CBAR) 1110,1130,1710 1130 K = K + 1 IF (K-C) 1100,1140,1710 C C MOVE ELEMENTS IN AREA III UP ONE CELL C 1140 IF (CCOUNT .EQ. 0) GO TO 1190 IF (JPOS .LT. BBBAR) GO TO 1190 K = 0 1150 IN1 = I3SP + K IF (IX(IN1) .EQ. 0) GO TO 1180 KK = 0 IN1 = I3 + 2*K*BBAR1 1160 IN2 = IN1 + KK + KK DX(IN2 ) = DX(IN2+2) DX(IN2+1) = DX(IN2+3) KK = KK + 1 IF (KK-BBAR) 1160,1170,1710 1170 DX(IN2+2) = 0.D0 DX(IN2+3) = 0.D0 1180 K = K + 1 IF (K-C) 1150,1190,1710 C C C DETERMINE IF A COLUMN OF L CAN BE WRITTEN OUT C 1190 IF (LCOL-BBBAR1) 1370,1200,1200 C C OUTPUT A COLUMN OF L C 1200 PARM(2) = FILEL(1) JPOSL = JPOSL + 1 CALL BLDPK (CDP,TYPEL,FILEL(1),0,0) C C STORE THE PERMUTATION INDEX AS THE DIAGONAL ELEMENT C JJ = JPOSL DZ(1) = IX(I1SP) DZ(2) = 0.D0 CALL ZBLPKI K = 0 1210 JJ = JPOSL + K + 1 IN2 = I1 + K + K DZ(1) = DX(IN2 ) DZ(2) = DX(IN2+1) IF (DZ(1).EQ.0.D0 .AND. DZ(2).EQ.0.D0) GO TO 1230 CALL ZBLPKI 1230 K = K + 1 IF (K-BBAR) 1210,1240,1710 C C PACK ACTIVE ROW ELEMENTS ALSO C 1240 IF (CBCNT .EQ. 0) GO TO 1280 K = 0 1250 IN1 = I6SP + K IN2 = I4 + (IX(IN1)*BBBAR)*2 IN1 = IX(IN1) + I4SP JJ = IX(IN1) DZ(1) = DX(IN2 ) DZ(2) = DX(IN2+1) IF (DZ(1).EQ.0.D0 .AND. DZ(2).EQ.0.D0) GO TO 1270 CALL ZBLPKI 1270 K = K + 1 IF (K-CBCNT) 1250,1280,1710 1280 CALL BLDPKN (FILEL,0,FILEL) C C MOVE PERMUTATION INDICES OVER ONE ELEMENT C END = I1SP + LCOL DO 1290 I = I1SP,END 1290 IX(I) = IX(I+1) C C MOVE ELEMENTS IN AREA I OVER ONE COLUMN C K = 0 IF (SCRFLG .EQ. 0) GO TO 1310 CALL CLOSE (SR2FL,REW) CALL OPEN (*1680,SR2FL,IX(SR2BUF),RD) IF (R .GT. 2) GO TO 1310 ICRQ = I1 + BBAR*4 - 1 - SR3BUF IF (ICRQ .GT. 0) GO TO 1715 IBBAR4 = BBAR*4 CALL READ (*1690,*1700,SR2FL,DX(I1),IBBAR4,0,FLAG) GO TO 1360 1310 IN1 = I1 + K*BBAR*2 IN2 = IN1 + BBAR + BBAR CALL CXLOOP (DX(IN1),DX(IN2),BBAR) K = K + 1 IF (K-R+2) 1310,1340,1360 1340 IF (R-BBBAR1) 1350,1310,1710 1350 ICRQ = IN2 + BBAR*4 - 1 - SR3BUF IF (ICRQ .GT. 0) GO TO 1715 IBBAR4 = BBAR*4 CALL READ (*1690,*1700,SR2FL,DX(IN2),IBBAR4,0,FLAG) 1360 LCOL = LCOL - 1 C C STORE CURRENT COLUMN OF L C 1370 IF (CBCNT .EQ. 0) GO TO 1420 C C MOVE ELEMENTS IN AREA IV UP ONE CELL C K = 0 1380 IN1 = I4SP + K IF (IX(IN1) .EQ. 0) GO TO 1410 KK = 0 IN1 = I4 + 2*K*BBBAR 1390 IN2 = IN1 + KK + KK DX(IN2 ) = DX(IN2+2) DX(IN2+1) = DX(IN2+3) KK = KK + 1 IF (KK-BBBAR1) 1390,1400,1710 1400 DX(IN2+2) = 0.D0 DX(IN2+3) = 0.D0 1410 K = K + 1 IF (K-CBAR) 1380,1420,1710 1420 IF (SCRFLG .NE. 0) GO TO 1450 C C STORE COLUMN IN CORE C 1430 IN1 = I1 + 2*LCOL*BBAR END = MIN0(BBAR,NCOL-JPOS) IF (END .EQ. 0) GO TO 1480 K = 0 IN3 = I2 + 2*(JPOS-IOFF+1) 1440 IN2 = IN1 + K + K IN4 = IN3 + K + K DX(IN2 ) = DX(IN4 ) DX(IN2+1) = DX(IN4+1) K = K + 1 IF (K-END) 1440,1480,1710 C C STORE COLUMN ON THE SCRATCH FILE C 1450 IF (LCOL-R+1) 1430,1470,1460 1460 IN1 = I1 + (LLL-1)*BBAR*2 CALL WRITE (SR3FL,DX(IN1),BBAR*4,0) 1470 IN1 = I2 + 2*(JPOS-IOFF+1) CALL WRITE (SR3FL,DX(IN1),BBAR*4,0) C C CLOSE SCRATCH FILES AND SWITCH THE POINTERS TO THEM C CALL CLOSE (SR3FL,REW) CALL CLOSE (SR2FL,REW) IN1 = SR2FL SR2FL = SR3FL SR3FL = IN1 1480 LCOL = LCOL + 1 IF (C .EQ. 0) GO TO 1570 IF (JPOS .LT. BBBAR) GO TO 1570 C C READ IN THE NEXT ROW OF ACTIVE COLUMN ELEMENTS C COUNT = CCOUNT IF (ITRN .LT. 0) GO TO 1570 1490 IF (ITRN .GT. JPOS-B+2) GO TO 1560 C C TEST TO SEE IF COLUMN IS ALREADY ACTIVE C K = 0 1500 IN1 = I3SP + K IF (IX(IN1) .EQ. JTRN) GO TO 1540 K = K + 1 IF (K-C) 1500,1510,1710 C C CREATE A NEW ACTIVE COLUMN C 1510 K = 0 1520 IN1 = I3SP + K IF (IX(IN1) .EQ. 0) GO TO 1530 K = K + 1 IF (K-C) 1520,1710,1710 1530 IX(IN1) = JTRN IN1 = IN1 + C IX(IN1) = ITRN IN1 = I3 + 2*(K+1)*BBAR1 - 2 DX(IN1 ) = DTRN(1) DX(IN1+1) = DTRN(2) CCOUNT = CCOUNT + 1 GO TO 1550 C C STORE ELEMENT IN EXISTING COLUMN C 1540 IN1 = I3 + 2*(K+1)*BBAR1 - 2 DX(IN1 ) = DX(IN1 ) + DTRN(1) DX(IN1+1) = DX(IN1+1) + DTRN(2) 1550 CALL READ (*1690,*1700,SR1FIL,ITRAN(1),6,0,FLAG) IF (ITRN .GT. 0) GO TO 1490 CALL CLOSE (SR1FIL,REW) 1560 IF (CCOUNT .EQ. COUNT) GO TO 1570 C C RE-ARRANGE INDEXES IN SEQUENTIAL ORDER C ASSIGN 1570 TO KK GO TO 150 1570 CONTINUE JPOS = JPOS + 1 C C ZERO AREA II C END = I2 + 2*MIN0(JPOS-IOFF+BBAR-1,NCOL-1) + 1 DO 1590 I = I2,END 1590 DX(I) = 0.D0 C C TEST TO SEE IF ROW INTERACTION ELEMENTS WILL MERGE INTO AREA III C IF (CBCNT .EQ. 0) GO TO 270 IF (CCOUNT .EQ. 0) GO TO 1640 IF (JPOS-1 .LT. BBBAR) GO TO 270 IN1 = I4SP K = 0 1600 IN2 = IN1 + K IF (IX(IN2) .EQ. JPOS-B+1) GO TO 1610 K = K + 1 IF (K .LT. CBAR) GO TO 1600 GO TO 270 1610 IN1 = I5 + K + K IN2 = I3 + BBAR + BBAR K = 0 1620 DX(IN2 ) = DX(IN2 ) - DX(IN1) DX(IN2+1) = DX(IN2+1) - DX(IN1+1) DX(IN1 ) = 0.D0 DX(IN1+1) = 0.D0 IN2 = IN2 + BBAR1 + BBAR1 IN1 = IN1 + CBAR + CBAR K = K + 1 IF (K .LT. C) GO TO 1620 C C TEST TO SEE IF A ACTIVE ROW HAS BEEN ELIMINATED C 1640 IN1 = IX(I6SP) + I4SP IF (IX(IN1)-JPOSL-BBAR1) 270,1650,270 C C ELIMINATE THE ACTIVE ROW C 1650 IX(IN1) = 0 IN1 = IN1 + CBAR IX(IN1) = 0 CBCNT = CBCNT - 1 C C MOVE INDEXES IN AREA VI UP ONE C IN1 = I6SP + CBCNT - 1 DO 1660 I = I6SP,IN1 1660 IX(I) = IX(I+1) IX(IN1+1) = 0 GO TO 270 C C FINISH WRITING OUT THE COMPLETED COLUMNS OF L C 1670 CALL CLOSE (SR1FIL,REW) CALL CLOSE (FILEL,NOREW) CALL CLOSE (SR2FIL,NOREW) CALL COMFIN (ITERM,SCRFLG,SR2FL,JPOSL,I1SP,BBAR,I1,CBCNT,IPAK,R, 1 BBBAR1,BBBAR,I6SP,I4,I4SP,IX,DX,X,LCOL) PARM(5) = IEND CALL CONMSG (PARM(3),3,0) FILEU(7) = BBBAR RETURN C C ERROR EXITS C 1680 PARM(1) = -1 GO TO 1730 1690 PARM(1) = -2 GO TO 1730 1700 PARM(1) = -3 GO TO 1730 1710 PARM(1) = -25 GO TO 1730 1715 PARM(1) = -8 PARM(2) = ICRQ GO TO 1730 C C SINGULAR MATRIX - CLOSE ALL FILES AND RETURN TO USER C 1720 CALL CLOSE (FILEA(1),REW) CALL CLOSE (FILEL(1),REW) CALL CLOSE (FILEU(1),REW) CALL CLOSE (SR1FIL,REW) CALL CLOSE (SR2FIL,REW) CALL CLOSE (SR3FIL,REW) CWKBR SPR94018 4/95 FILEU(2) = BBBAR FILEU(7) = BBBAR RETURN 1 C 1730 CALL MESAGE (PARM(1),PARM(2),PARM(3)) RETURN END ================================================ FILE: mis/cdetm.f ================================================ SUBROUTINE CDETM (METHOD,EED,MDD,BDD,KDD,LAMA,PHID,OCEIGS,NFOUND, 1 SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8) C C SOLVES COMPLEX EIGENVALUE PROBLEM BY DETERMINANT METHOD C INTEGER EED,BDD,PHID,OCEIGS,SCR1,SCR2,SCR3,SCR4,SCR5, 1 SCR6,SCR7,SYSBUF,IZ(1),FA,FL,FU,SR1,SR2,SR3,POWR, 2 IPOLE(2),EIGC(2),IHEAD(50),POIN,DRETN,IPS(3), 3 IPDET(3),FILE,NAME(2),SCR8,OTPE,ILUSP(2), 4 ISCR2(7),ISP(2) REAL LU DOUBLE PRECISION ZD(1),D1,D2,D3,D4,D5,D6,MINDA,RL,PR,DT1,PI,DR,DI, 1 PSR(3),PSI(3),DSR(3),DSI(3),PKR(3),PKI(3), 2 DETR(3),DETI(3),DT2,DT3,D7,D8,PTR,PTI,D9,D10, 3 HK1R,HK1I,HKR,HKI,LAMDKR,LAMDKI,DELTKR,DELTKI, 4 GKR,GKI,ROOTR,ROOTI,LAMK1R,LAMK1I,HKP1R,HKP1I, 5 H1BAR,H2BAR,H3BAR,TEST,AMCB(2),BMCB(2),CMCB(2), 6 DPI,D2PI,RADDEG,DEGRAD,D4PISQ, 7 DDISTX,DDIST2,ZZ,ZDKM1,ZDK COMMON /MACHIN/ MACH COMMON /SYSTEM/ KSYSTM(65) COMMON /ZZZZZZ/ Z(1) COMMON /CONDAD/ DPI,D2PI,RADDEG,DEGRAD,D4PISQ COMMON /OUTPUT/ HEAD(1) COMMON /MSGX / NMSGX,MAXGX COMMON /SADDX / NOMAT,LCADD,MCBA(12),MCBB(12),MCBC(12),MCBD(12), 1 MCBE(12),MC(7) COMMON /CDCMPX/ FA(7),FL(7),FU(7),SR1,SR2,SR3,DR,DI,POWR,NX, 1 MINDA,IB EQUIVALENCE (KSYSTM(1),SYSBUF), (KSYSTM(2),OTPE), 1 (AMCB(1),MCBA(9)), (BMCB(1),MCBB(9)), 2 (CMCB(1),MCBC(9)), (Z(1),IZ(1),ZD(1)) DATA IPOLE , EIGC, IHEAD, POIN, NAME / 1 257,4 , 207,2, 0,1009,1,47*0, 4HPOIN, 4HCDET, 4HM / DATA NIT,IM1, SIGN, NUMINT, IZ2,IZ3, IZ4,IZ5, IZ6,IZ7, IZ8 / 1 20, 1, -1.0, 4, 2, 3, 4, 5, 6, 7, 8 / C C DEFINITION OF VARIABLES C C METHOD SELECT SET OF POLES AND EIGC CARDS C EED EIGENVALUE EXTRACTION DATA BLOCK C MDD MASS MATRIX - DIRECT OR MODAL C BDD DAMPING MATRIX - DIRECT OR MODAL C KDD STIFFNESS MATRIX - DIRECT OR MODAL C LAMA EIGENVALUE FILE C PHID EIGENVECTOR FILE C OEIGS EIGENVALUE SUMMARY FILE C NFOUND TOTAL NUMBER OF EIGENVALUES FOUND IN ALL REGIONS C SCR SCRATCHES C IPOLE LOCATE WORDS FOR POLES C EIGC LOCATE WORDS FOR EIGC CARDS C EPSI CONVERGENCE CRITERION C IBUF POINTER TO BUFFER C NPOLE NUMBER OF POLES TO BE USED C IPOLES POINTER TO START OF POLES - 4 WORDS PER POLE ID,X,Y,MUL C NREGN NUMBER OF REGIONS C IREG1 POINTER TO WORDS DESCRIBING REGIONS C INORM NORMALIZATION METHOD - 1 = MAX, 0 = POINT C ISIL POINTER FOR NORM IF NORM = 0 C NE ESTIMATED NUMBER OF ROOTS IN REGION C ND DESIRED NUMBER OF ROOTS C LREGN LENGTH OF BLOCK DESCRIBING REGION C NPASS NUMBER OF PASSES THROUGH STARTING POINTS C NCHANG NUMBER OF CHANGES OF CONVERGENCE CRITERIA C NMOVES NUMBER OF STARTING POINT MOVES C NDCOMP NUMBER OF DECOMPOSITIONS C NFAIL NUMBER OF FAILURES TO INTERATE TO A ROOT C NOUTSD NUMBER OF PREDICTIONS OUTSIDE REGION C ITERM REASON FOR TERMINATION 0 - FOUND REQUESTED NUMBER C 1 - NO MORE IN REGIONS C IRGP POINTER FOR CURRENT REGION C ICNT NUMBER OF INTERATIONS C NIT MAXIMUM NUMBER OF INTERATIONS/ROOT C NUMINT MAXIMUM NUMBER OF CONVERGENCE CHANGES C NROW ORDER OF PROBLEM C ICMPX SWITCH IF ROOTS FOUND ARE COMPLEX CONJUGATE -0 NOT-1 C ISPNT POINTER TO CURRENT 3 STARTING POINTS C PS SORTED 3 STARTING POINTS C DS SORTED 3 DET OF STARTING POINTS C IPS POWERS OF STARTING POINTS C P TRIAL EIGENVALUE C D SCALED SWEPT DETERMINANT AT P C IFPASS FLAG TO SIGNAL ROOT FROUND ON PASS 1, 0 IF NOT C IPOINT NUMBER OF STARTING POINTS USED IN CURRENT REGION C ILUSP INDEX TO LAST USED STARTING POINT (1ST OF 3) IN EACH C SUBRGN C NSBRGN NUMBER OF SUBREGIONS IN PROBLEM THIS REGION C NSBDON FLAG MARKING COMPLETED SUBREGION C ISP POINTS NEAREST AND NEXT NEAREST THE ORIGIN C C STRUCTURE OF REGION C C A1,B1,A2,B2,XL,NE,ND,NF,POINTER TO NEXT REGION (ZERO IF LAST),RL, C X (12 WORDS) C C STARTING POINTS 8NE + 8 WORDS - D.P. COMPLEX C DETERMINANTS 8NE + 8 WORDS D.P. COMPLEX C SCALE FACTORS 4NE + 4 WORDS 2 INTEGERS PER STARTING POINT C C ROOTS 4ND WORDS D.P. COMPLEX C C C DEFINE EPSI (CONVERGENCE CRITERION) C EPSI = 1.0E-16 IF (MACH.EQ.5 .OR. MACH.EQ.21) EPSI = 1.0E-12 C LC = KORSZ(Z) IBUF = LC - SYSBUF - 1 LC = (IBUF/2)*2 - 1 NOSING = 1 CALL SSWTCH (7,IPRT) ISING = 0 FA(1) = KDD CALL RDTRL (FA(1)) IF (FA(1) .LE. 0) GO TO 1 IDD = KDD GO TO 9 1 FA(1) = MDD CALL RDTRL (FA(1)) IF (FA(1) .LE. 0) GO TO 2 IDD = MDD GO TO 9 2 FA(1) = BDD CALL RDTRL (FA(1)) IF (FA(1) .LE. 0) GO TO 990 IDD = BDD 9 FA(1) =-SCR2 FA(5) = 4 FL(1) = IDD CALL RDTRL (FL(1)) FL(4) = 4 FL(5) = 4 FU(1) = IDD CALL RDTRL (FU(1)) FU(4) = 5 FU(5) = 4 SR1 = SCR3 SR2 = SCR4 SR3 = SCR5 FL(1) = SCR6 FU(1) = SCR7 DO 10 I = 1,7 MCBA(I) = 0 MCBB(I) = 0 MCBC(I) = 0 MC(I) = 0 10 CONTINUE MCBA(1) = KDD MCBB(1) = BDD MCBC(1) = MDD CALL RDTRL (MCBA(1)) CALL RDTRL (MCBB(1)) CALL RDTRL (MCBC(1)) C C MUST HAVE B OR M MATRICES C IF (MCBB(1) .LT. 0) MCBB(1) = 0 IF (MCBC(1) .LT. 0) MCBC(1) = 0 IF (MCBB(1)+MCBC(1) .EQ. 0) GO TO 990 NROW = MAX0(MCBA(3),MCBB(3),MCBC(3)) ICMPX = 0 IF (MCBA(5).GT.2 .OR. MCBB(5).GT.2 .OR. MCBC(5).GT.2) ICMPX = 1 AMCB(1) = 1.0D0 AMCB(2) = 0.D0 MC(2) = MCBA(2) MC(3) = MCBA(3) MC(4) = MCBA(4) MC(5) = 4 MCBA(8) = 4 MCBC(8) = 4 MCBB(8) = 4 NOMAT = 3 MC(1) = SCR2 NDESRD = 0 C C PICK UP AND STORE ANY POLES C FILE = EED CALL PRELOC (*950,IZ(IBUF),EED) NPOLE = 0 CALL LOCATE (*40,IZ(IBUF),IPOLE(1),IFLAG) C C FOUND POLE CARDS C 20 LC = LC - 4 30 CALL READ (*970,*40,EED,IZ(LC),4,0,IFLAG) IF (IZ(LC) .NE. METHOD) GO TO 30 NPOLE = NPOLE + 1 GO TO 20 40 IPOLES = LC + 4 C C STORE REGIONS C NREGN = 0 CALL LOCATE (*990,IZ(IBUF),EIGC(1),IFLAG) 50 CALL READ (*970,*990,EED,IZ(1),10,0,IFLAG) IF (METHOD.EQ.IZ(1) .OR. METHOD.EQ.-1) GO TO 70 C C SKIP REMAINDER OF EIGC CARD C 60 CALL READ (*970,*990,EED,IZ(1),7,0,IFLAG) IF (IZ(IZ6) .NE. -1) GO TO 60 GO TO 50 C C EIGC CARD FOUND - ALLOCATE CORE + BUILD UP REGIONS C 70 INORM = 0 IF (IZ(IZ4) .NE. POIN) INORM = 1 ISIL = IZ(IZ6) IF (Z(IZ8) .NE. 0.0) EPSI = Z(IZ8) C C PROCESS EACH REGION DEFINITION C 80 CALL READ (*970,*980,EED,Z(1),7,0,IFLAG) IF (IZ(IZ7) .LT. 0) GO TO 130 NREGN = NREGN + 1 ALPH1 = Z( 1) W1 = Z(IZ2) ALPH2 = Z(IZ3) W2 = Z(IZ4) XL = Z(IZ5) NE = IZ(IZ6) ND = IZ(IZ7) IF (ND .EQ. 0) ND = 3*NE LREGN = 20*NE + 4*ND + 32 NDESRD = NDESRD + ND IF (NREGN .EQ.1) GO TO 90 IZ(LC+8) = LC - LREGN 90 LC = LC - LREGN IF (LC .LE. 0) GO TO 1000 IF (NREGN .NE. 1) GO TO 100 IREG1 = LC C C ZERO REGION C 100 K = LC - 1 DO 110 I = 1,LREGN K = K + 1 IF (I .EQ. 9) GO TO 110 IZ(K) = 0 110 CONTINUE C C STORE CONSTANTS Z(LC ) = ALPH1 Z(LC+1) = W1 Z(LC+2) = ALPH2 Z(LC+3) = W2 Z(LC+4) = XL IZ(LC+5)= NE IZ(LC+6)= ND C C DISTRIBUTE STARTING POINTS C D1 = ALPH2 - ALPH1 D2 = W2 - W1 RL = DSQRT(D1*D1+D2*D2) Z(LC+9) = RL D1 = D1/RL D2 = D2/RL J = (LC+1)/2 + 6 D3 = RL/FLOAT(4*NE +4) ZD(J ) = D1*D3 + ALPH1 ZD(J+1) = D2*D3 + W1 K = 2*NE + 1 D3 = RL/FLOAT(K+1) D1 = D1*D3 D2 = D2*D3 DO 120 I = 1,K J = J + 2 ZD(J ) = ZD(J-2) + D1 ZD(J+1) = ZD(J-1) + D2 120 CONTINUE GO TO 80 130 LCADD = LC - 1 NX = LCADD IZ(LC+8) = 0 CALL CLOSE (EED,1) IF (LC-4*NROW .LE. 0) GO TO 1000 C C INITIALIZE CUMULATIVE POINTERS IFAIL = 0 NFOUND = 0 NPASS =-1 NCHANG = 0 NMOVES = 0 NDCOMP = 0 NFAIL = 0 NOUTSD = 0 ITERM = 1 IFPASS = 1 C C RETURN HERE TO SEARCH ALL REGIONS AGAIN C 140 NPASS = NPASS + 1 IF (IFPASS .EQ. 0) GO TO 690 IFPASS = 0 IRGP = IREG1 C C FIND REGION WHICH LACKS ROOTS C DO 160 I = 1,NREGN IF (IZ(IRGP+6) .GT. IZ(IRGP+7)) GO TO 170 IRGP = IZ(IRGP+8) 160 CONTINUE C C ALL REGIONS HAVE ENOUGH ROOTS - EXIT C GO TO 710 C C PICK UP REGION POINTERS AND PARAMETERS C 170 ALPH1 = Z(IRGP ) W1 = Z(IRGP+1) ALPH2 = Z(IRGP+2) W2 = Z(IRGP+3) XL = Z(IRGP+4) NE = IZ(IRGP+5) ND = IZ(IRGP+6) NF = IZ(IRGP+7) RL = Z(IRGP+9) XVR = (ALPH2-ALPH1)/RL YVR = (W2-W1)/RL IPOINT= 0 ISPNT = (IRGP+1)/2 + 4 C C FIND POINTS CLOSEST TO AND NEXT CLOSEST TO ORIGIN THUS DIVIDING C REGION INTO TWO SUBREGIONS C ISPT1 = (IRGP+13)/2 LSPT = ISPT1 + 2*(2*NE+2) - 2 DDISTX= 0. NXORG = 0 NRORG = ISPT1 DDIST2= ZD(ISPT1)*ZD(ISPT1) + ZD(ISPT1+1)*ZD(ISPT1+1) ISPT2 = ISPT1 + 2 DO 173 I = ISPT2,LSPT,2 ZZ = ZD(I)*ZD(I) + ZD(I+1)*ZD(I+1) IF (ZZ .GT. DDIST2) GO TO 175 NXORG = NRORG NRORG = I DDISTX = DDIST2 DDIST2 = ZZ 173 CONTINUE 175 IF (ZZ .GT. DDISTX) GO TO 178 177 NXORG = I DDISTX = ZZ GO TO 179 178 IF (NXORG) 177,179,177 C C CALCULATE THE NUMBER OR SUBREGIONS, NSBRGN. THERE MUST BE AT LEAST C 3 POINTS EACH SIDE OF BISECTOR IN ORDER TO HAVE 2 SUBREGIONS. C ISPT2+2 .LE. (NRORG+NXORG)/2 .LE. LSPT-4 C 179 CONTINUE IF (2*(ISPT2+2).LE.NRORG+NXORG .AND. NRORG+NXORG.LE.(LSPT-4)*2) 1 GO TO 185 C C ONLY ONE SUBREGION C FIND FIRST UNEVALUATED POINT C NSBRGN = 1 K = IRGP + 16*NE + 32 L = 2*NE DO 180 J = 1,L IF (IZ(K) .EQ. 0) GO TO 196 K = K + 2 IPOINT = IPOINT + 1 ISPNT = ISPNT + 2 180 CONTINUE C C ALL TRIED GO TO BEGINNING C IPOINT = 0 ISPNT = (IRGP+1)/2 + 4 GO TO 196 C C TWO SUBREGIONS EXIST. DETERMINE STARTING POINTS FOR EACH C 185 NSBRGN = 2 NSBDON = 0 ISP(1) = NRORG IF (NRORG .LT. NXORG) ISP(1) = NXORG ISP(2) = NRORG + NXORG - ISP(1) KREG = 2 ILUSP(1) = ISP(1) ILUSP(2) = ISP(2) - 2 GO TO 192 C C RETURN HERE TO GET NEW STARTING POINT (OR NEW REGION IF NECESSARY) C DETINES ISPNT C 190 IF (NSBRGN .EQ. 1) GO TO 196 IF (NSBDON-1) 192,195,1945 C C CHANGE SUBREGIONS C 192 KREG = 3 - KREG GO TO (194,195), KREG C C PROCESS FIRST SUBREGION C 194 ISPNT = ILUSP(1) LS = ISP (2) ALOC1 = ZD(LS ) WLOC1 = ZD(LS+1) ILUSP(1) = ILUSP(1) + 2 IF (ISPNT+4 .EQ. LSPT) GO TO 1942 PR = .45*ZD(ISPNT+4) + .55*ZD(ISPNT+6) - ALOC1 PI = .45*ZD(ISPNT+5) + .55*ZD(ISPNT+7) - WLOC1 1940 IPOINT = (ISPNT -ISPT1)/2 + 1 GO TO 220 C C PROCESS LAST SET OF STARTING IN FIRST SUBREGION C 1942 NSBDON = NSBDON + 1 PR = .45*ZD(ISPNT+4) + .55*ALPH1 - ALOC1 PI = .45*ZD(ISPNT+5) + .55*W1 - WLOC1 GO TO 1940 C C SUBREGION 2 IS COMPLETE. IS SUBREGION 1 FINISHED AS WELL C 1945 IF (NSBDON .EQ. 3) GO TO 680 GO TO 194 C C PROCESS SUBREGION 2 C 195 ISPNT = ILUSP(2) - 2 ILUSP(2) = ILUSP(2) - 2 LS = ISP(1) ALOC1 = ZD(LS) WLOC1 = ZD(LS+1) IF (ISPNT .EQ. ISPT1) GO TO 1952 PR = -(.45*ZD(ISPNT-2) + .55*ZD(ISPNT )) + ALOC1 PI = -(.45*ZD(ISPNT-1) + .55*ZD(ISPNT+1)) + WLOC1 GO TO 1940 C C LAST SET OF STARTING POINTS IN SUBREGION2 TO PROCESS C 1952 NSBDON = NSBDON + 2 PR = -(.45*ZD(ISPT1 ) + .55*ZD(ISPNT )) + ALOC1 PI = -(.45*ZD(ISPT1+1) + .55*ZD(ISPNT+1)) + WLOC1 GO TO 1940 C C ONLY ONE SUBREGION PROCESS FROM END TO END C 196 IPOINT = IPOINT + 1 ISPNT = ISPNT+2 IF (IPOINT .GT. 2*NE) GO TO 680 C C FIND OUT IF ANY DETERMINT EVALUATIONS ARE NECESSARY C C COMPUTE LOCAL SEARCH REGION DESCRITIONS C ALOC1 = ALPH1 WLOC1 = W1 IF (IPOINT .EQ. 2*NE) GO TO 210 PR = .45*ZD(ISPNT+4) + .55*ZD(ISPNT+6) - ALOC1 PI = .45*ZD(ISPNT+5) + .55*ZD(ISPNT+7) - WLOC1 GO TO 220 210 PR = ALPH2 - ALOC1 PI = W2 - WLOC1 220 RLL= DSQRT(PR*PR+PI*PI) K = IRGP + 16*NE + 24 + 2*IPOINT I = 1 ISING = 0 230 K = K + 2 IF (IZ(K) .NE. 0) GO TO 250 C C EVALUATE DETERMINANT C J = ISPNT + 2*I - 2 PR = ZD(J ) PI = ZD(J+1) ASSIGN 240 TO DRETN GO TO 810 240 IZ(K ) = 1 IZ(K+1) = POWR M = 4*NE + 2 + ISPNT + 2*I ZD(M ) = DR ZD(M+1) = DI 250 I = I + 1 IF (I .LE. 3) GO TO 230 IF (ISING.EQ.3 .AND. NPASS.EQ.0) GO TO 701 C C SORT STARTING POINTS BY MAGNITUDE OF DET C 260 CALL KLOCK (ITIME1) K = ISPNT + 4*NE + 4 L = IRGP + 16*NE + 26 + 2*IPOINT CALL CDETM2 (ZD(ISPNT),ZD(K),IZ(L),PSR(1),PSI(1),DSR(1),DSI(1), 1 IPS(1)) C C LOAD STARTING POINTS INTO TRAIL EIGENVALUES C DO 270 I = 1,3 PKR(I) = PSR(I) PKI(I) = PSI(I) DETR(I) = DSR(I) DETI(I) = DSI(I) IPDET(I)= IPS(I) 270 CONTINUE DT2 = 1.0D38 C C START INTERATION LOOP C ICNT = 1 280 HK1R = PKR(2) - PKR(1) HK1I = PKI(2) - PKI(1) HKR = PKR(3) - PKR(2) HKI = PKI(3) - PKI(2) IF (HKR.EQ.0.0D0 .AND. HKI.EQ.0.0D0) GO TO 550 D1 = HK1R*HK1R + HK1I*HK1I LAMDKR = (HKR*HK1R + HKI*HK1I)/D1 LAMDKI = (HKI*HK1R - HKR*HK1I)/D1 DELTKR = 1.0D0 + LAMDKR DELTKI = LAMDKI C C COMPUTE GK C D1 = LAMDKR*LAMDKR - LAMDKI*LAMDKI D2 = 2.0*LAMDKR*LAMDKI D3 = D1*DETR(1) - D2*DETI(1) D4 = D2*DETR(1) + D1*DETI(1) D1 = DELTKR*DELTKR - DELTKI*DELTKI D2 = 2.0*DELTKR*DELTKI D5 =-D1*DETR(2) + D2*DETI(2) D6 =-D2*DETR(2) - D1*DETI(2) CALL CSUMM (D3,D4,IPDET(1),D5,D6,IPDET(2),D1,D2,ID1) D3 = LAMDKR + DELTKR D4 = LAMDKI + DELTKI D5 = D3*DETR(3) - D4*DETI(3) D6 = D4*DETR(3) + D3*DETI(3) CALL CSUMM (D1,D2,ID1,D5,D6,IPDET(3),GKR,GKI,IGK) C C COMPUTE TERM UNDER RADICAL IN EQ. 11 C D1 = DETR(1)*LAMDKR - DETI(1)*LAMDKI D2 = DETI(1)*LAMDKR + DETR(1)*LAMDKI D3 =-DETR(2)*DELTKR + DETI(2)*DELTKI D4 =-DETI(2)*DELTKR - DETR(2)*DELTKI CALL CSUMM (D1,D2,IPDET(1),D3,D4,IPDET(2),D5,D6,ID1) CALL CSUMM (D5,D6,ID1,DETR(3),DETI(3),IPDET(3),D1,D2,ID2) D3 = DELTKR*LAMDKR - DELTKI *LAMDKI D4 = DELTKI*LAMDKR + DELTKR *LAMDKI D5 = D1*D3 - D2*D4 D6 = D2*D3 + D1*D4 D1 =-4.0*(DETR(3)*D5 - DETI(3)*D6) D2 =-4.0*(DETI(3)*D5 + DETR(3)*D6) C C COMPUTE GK*GK C D3 = GKR*GKR - GKI*GKI D4 = 2.0*GKR*GKI CALL CSUMM (D3,D4,2*IGK,D1,D2,IPDET(3)+ID2,D5,D6,ID1) CALL CSQRTN (D5,D6,ID1,ROOTR,ROOTI,IROOT) CALL CSUMM (GKR,GKI,IGK,ROOTR,ROOTI,IROOT,D9,D10,ID3) CALL CSUMM (GKR,GKI,IGK,-ROOTR,-ROOTI,IROOT,D7,D8,ID4) IF (ICNT .EQ. 1) GO TO 290 D1 = D9 D2 = D10 ID1 = ID3 D5 = D9*D9 + D10*D10 D6 = D7*D7 + D8*D8 IF (D5 .GE. D6) GO TO 310 D1 = D7 D2 = D8 ID1 = ID4 GO TO 310 C C COMPUTE NUMERATOR EQ. 11 C 290 D1 = D9 D2 = D10 ID1= ID3 M = 2 GO TO 310 300 D1 = D7 D2 = D8 ID1= ID4 M = 1 310 D3 =-2.0*(DETR(3)*DELTKR - DETI(3)*DELTKI) D4 =-2.0*(DETI(3)*DELTKR + DETR(3)*DELTKI) D5 = D1*D1 + D2*D2 D6 = 10.0**(IPDET(3) - ID1) LAMK1R = D6*(D3*D1 + D4*D2)/D5 LAMK1I = D6*(D4*D1 - D3*D2)/D5 HKP1R = LAMK1R*HKR - LAMK1I*HKI HKP1I = LAMK1I*HKR + LAMK1R*HKI PR = PKR(3) + HKP1R PI = PKI(3) + HKP1I IF (ICNT .NE. 1) GO TO 370 DT3 = 0.0D0 DO 330 I = 1,3 DT3 = DT3+DSQRT((PKR(I)-PR)**2 + (PKI(I)-PI)**2) 330 CONTINUE IF (DT3 .GT. DT2) GO TO 340 PTR = PR PTI = PI DT2 = DT3 340 IF (M .EQ. 2) GO TO 300 PR = PTR PI = PTI C C DO RANGE CHECKS C C C COMPUTE U VECTOR C 370 XU = PR - ALPH1 YU = PI - W1 LU = SQRT(XU*XU + YU*YU) IF (LU .EQ. 0.0) GO TO 380 XU = XU/LU YU = YU/LU X = LU*(XU*XVR + YU*YVR) Y = LU*(YU*XVR - XU*YVR) IF (ABS(Y).GT.XL/2.0 .OR. X.LT.0.0 .OR. X.GT.RL) GO TO 400 C C SEE IF POINT IS IN LOCAL REGION C 380 XU = PR - ALOC1 YU = PI - WLOC1 LU = SQRT(XU*XU + YU*YU) IF (LU .EQ. 0.0) GO TO 390 XU = XU/LU YU = YU/LU Y = LU*(YU*XVR-XU*YVR) X = LU*(XU*XVR+YU*YVR) IF (ABS(Y).GT.XL/2.0 .OR. X.LT.0.0 .OR. X.GT.RLL) GO TO 190 C C TRY FOR CONVERGENCE C 390 ASSIGN 450 TO DRETN GO TO 810 C C PREDICTED OUTSIDE BIG REGION C 400 NOUTSD = NOUTSD + 1 GO TO 190 C C BEGIN CONVERGENCE TESTS C 450 IF (ICNT .LE. 2) GO TO 520 H1BAR = DSQRT(HK1R*HK1R + HK1I*HK1I) H2BAR = DSQRT(HKR*HKR + HKI*HKI) H3BAR = DSQRT(HKP1R*HKP1R + HKP1I*HKP1I) 460 TEST = EPSI*RL IF (H1BAR .GT. TEST*1.0E7) GO TO 480 IF (H2BAR .GT. TEST*1.0E4) GO TO 480 IF (H3BAR .GT. H2BAR) GO TO 470 IF (H3BAR .GT. TEST) GO TO 480 GO TO 550 470 IF (H2BAR .LE. 1.0E-7*RL) GO TO 550 480 ICNT = ICNT + 1 IF (ICNT-NIT) 530,500,490 490 IFAIL = 1 NFAIL = NFAIL + 1 GO TO 190 500 IF (NCHANG.LT.NUMINT .AND. IFAIL.EQ.1) GO TO 510 GO TO 490 510 EPSI = EPSI*10.0 NCHANG = NCHANG + 1 GO TO 460 C C CONTINUE INTERATIONS C 520 ICNT = ICNT + 1 530 DO 540 I = 1,2 PKR(I) = PKR(I+1) PKI(I) = PKI(I+1) IPDET(I)= IPDET(I+1) DETR(I) = DETR(I+1) DETI(I) = DETI(I+1) 540 CONTINUE PKR(3) = PR PKI(3) = PI DETR(3) = DR DETI(3) = DI IPDET(3)= POWR GO TO 280 C C ACCEPT CURRENT EIGENVALUE C 550 FILE = LAMA NFOUND = NFOUND + 1 IFPASS = 1 IF (NFOUND .GT. 1) IM1 = 3 CALL OPEN (*950,LAMA,IZ(IBUF),IM1) ZD(1 ) = PR ZD(IZ2) = PI CALL WRITE (LAMA,ZD(1),4,1) CALL CLOSE (LAMA,2) C C BUILD LOAD FOR FBS C IF (MINDA .EQ. 0.0D0) MINDA = 1.0D-8 SIGN =-SIGN D1 = NROW D2 = NFOUND J = 2*NROW DO 560 I = 1,J,2 K = (I+1)/2 ZD(I ) = SIGN*MINDA/(1.0D0+(1.0D0-FLOAT(K)/D1)*D2) ZD(I+1) = 0.0D0 560 CONTINUE ISCR2(1) = SR2 ISCR2(7) = FU(7) CALL CDTFBS (ZD(1),ZD(J+1),IZ(IBUF),ISCR2,NROW) C C NORMALIZE C D1 = 0.0D0 DO 570 I = 1,J,2 D2 = ZD(I)*ZD(I) + ZD(I+1)*ZD(I+1) IF (D2 .LT. D1) GO TO 570 D3 = ZD(I ) D4 = ZD(I+1) D1 = D2 570 CONTINUE IF (INORM .EQ. 0) GO TO 600 580 DO 590 I = 1,J,2 D5 = (ZD(I)*D3 + ZD(I+1)*D4)/D1 ZD(I+1) = (D3*ZD(I+1) - D4*ZD(I))/D1 ZD(I ) = D5 590 CONTINUE GO TO 610 600 JJ = 2*ISIL D2 = ZD(JJ)*ZD(JJ) + ZD(JJ-1)*ZD(JJ-1) IF (D2.EQ.0.0D0 .OR. D1/D2.GT.1.0D6) GO TO 580 D3 = ZD(JJ-1) D4 = ZD(JJ ) D1 = D2 GO TO 580 C C WRITE OUT NORMALIZED VECTOR C 610 FILE = PHID CALL OPEN (*950,PHID,IZ(IBUF),IM1) CALL WRITE (PHID,ZD(1),4*NROW,1) CALL CLOSE (PHID,2) C C STORE ACCEPTED VALUE C IZ(IRGP+7) = IZ(IRGP+7) + 1 NF = NF + 1 J = (IRGP+1)/2 + 2*NF + 10*NE + 14 ZD(J ) = PR ZD(J+1) = PI IFAIL = 0 C C CHECK FOR STARTING POINT MOVES C J = IREG1 I = 1 620 DT1 = 200.0*EPSI*EPSI*Z(J+9) M = 2*IZ(J+5) + 2 K = (J+1)/2 + 5 L = 1 630 K = K + 2 KKK = J + 16*IZ(J+5) + 26 + 2*L IF (DSQRT((ZD(K)-PI)**2+(ZD(K-1)-PR)**2) .GE. DT1) GO TO 650 C C SHIFT STARTING POINT C D2 = 1000.0*EPSI*EPSI*Z(J+9) ZD(K-1) = DSIGN((Z(J+2)-Z(J ))/Z(J+9)*D2+ZD(K-1),ZD(K-1)) ZD(K ) = DSIGN((Z(J+3)-Z(J+1))/Z(J+9)*D2+ZD(K ),ZD(K )) NMOVES = NMOVES + 1 C C IF DETERMINANT EVALUATED - REEVALUATE FOR SHIFT C IF (IZ(KKK) .EQ. 0) GO TO 670 DT2 = PR DT3 = PI PR = ZD(K-1) PI = ZD(K ) ASSIGN 640 TO DRETN GO TO 810 640 PR = DT2 PI = DT3 KK = K + 4*IZ(J+5) + 4 ZD(KK ) = DI ZD(KK-1) = DR IZ(KKK+1)= POWR GO TO 660 C C SWEEP ACCEPTED VALUE FROM STORED DETM-S C 650 KK = K + 4*IZ(J+5) + 4 D2 = ZD(K-1) - PR D3 = ZD(K ) - PI D4 = D2*D2 + D3*D3 D5 = (ZD(KK-1)*D2 + ZD(KK)*D3)/D4 ZD(KK ) = (ZD(KK)*D2 - ZD(KK-1)*D3)/D4 ZD(KK-1) = D5 C C SWEEP CONJUGATES S C IF (ICMPX.EQ.1 .OR. DABS(PI).LT.1000.0*Z(J+9)*EPSI) GO TO 660 D3 = ZD(K) + PI D4 = D2*D2 + D3*D3 D5 = (ZD(KK-1)*D2 + ZD(KK)*D3)/D4 ZD(KK) = (ZD(KK)*D2 - ZD(KK-1)*D3)/D4 ZD(KK-1) = D5 660 ZDKM1 = ZD (KK-1) ZDK = ZD (KK ) IZK = IZ (KKK+1) CALL CDETM3 (ZDKM1,ZDK,IZK) ZD(KK-1) = ZDKM1 ZD(KK ) = ZDK IZ(KKK+1)= IZK 670 L = L + 1 IF (L .LE. M) GO TO 630 J = IZ(J+8) I = I + 1 IF (I .LE. NREGN) GO TO 620 CALL KLOCK (ITIME2) CALL TMTOGO (ITLEFT) IF (2*(ITIME2-ITIME1).GT.ITLEFT .AND. NFOUND.NE.NDESRD) GO TO 700 IF (NF .LT. ND) GO TO 260 C C FIND NEXT REGION LACKING ROOTS C 680 IF (IZ(IRGP+8) .EQ. 0) GO TO 140 IRGP = IZ(IRGP+8) IF (IZ(IRGP+6) .GT. IZ(IRGP+7)) GO TO 170 GO TO 680 690 ITERM = 2 GO TO 710 C C INSUFFICIENT TIME C 700 IF (NMSGX .GE. MAXGX) NMSGX = MAXGX - 1 CALL MESAGE (45,NDESRD-NFOUND,NAME) ITERM = 3 GO TO 710 C C SINGULAR MATRIX C 701 ITERM = 4 GO TO 710 C C END OF ROUTINE PUT OUT SUMMARY C 710 CALL GOPEN (OCEIGS,IZ(IBUF),1) CALL WRITE (OCEIGS,IHEAD(1),10,0) IZ( 1) = NFOUND IZ(IZ2) = NPASS IZ(IZ3) = NCHANG IZ(IZ4) = NMOVES IZ(IZ5) = NDCOMP IZ(IZ6) = NFAIL IZ(IZ7) = NOUTSD IZ(IZ8) = ITERM CALL WRITE (OCEIGS,IZ(1),40,0) CALL WRITE (OCEIGS,HEAD(1),96,1) IHEAD(3) = 3 IHEAD(10)= 6 CALL WRITE (OCEIGS,IHEAD,50,0) CALL WRITE (OCEIGS,HEAD,96,1) J = IREG1 DO 800 I = 1,NREGN NE = IZ(J+5) K = (J+1)/2+6 KK = 4*NE + 4 KD = J + 27 + 16*NE NE = 2*NE + 2 DO 790 L = 1,NE IZ(1) = L Z(IZ2) = ZD(K ) Z(IZ3) = ZD(K+1) M = K + KK KD = KD + 2 IZ(IZ6) = IZ(KD) C C CONVERT TO MAGNITUDE AND PHASE SCALE ON MAGNITIDE C PHASE IN DEGRESS BETWEEN 0 AND 360 C D1 = DSQRT(ZD(M)*ZD(M) + ZD(M+1)*ZD(M+1)) IF (D1 .EQ. 0.0D0) GO TO 760 720 IF (D1 .GT. 10.0D0) GO TO 740 730 IF (D1 .LT. 1.0D0) GO TO 750 GO TO 770 740 D1 = D1*0.1D0 IZ(IZ6) = IZ(IZ6) + 1 GO TO 720 750 D1 = D1*10.0D0 IZ(IZ6) = IZ(IZ6) - 1 GO TO 730 C C NOT EVALUATED C 760 Z(IZ4) = 0.0 Z(IZ5) = 0.0 GO TO 780 770 Z(IZ4) = D1 C C COMPUTE PHASE C Z(IZ5) = DATAN2(ZD(M+1),ZD(M))*RADDEG C C DETERMINE QUADRANT C IF (Z(IZ5) .LT. 0.) Z(IZ5) = Z(IZ5) + 360.0 780 CONTINUE CALL WRITE (OCEIGS,IZ(1),6,0) K = K + 2 790 CONTINUE J = IZ(J+8) 800 CONTINUE CALL CLOSE (OCEIGS,1) FA(1) = OCEIGS CALL WRTTRL (FA(1)) RETURN C C INTERNAL SUBROUTINE TO EVALUATE DR,DI AT PR,PI C 810 NDCOMP = NDCOMP + 1 C C SET UP FOR ADD C BMCB(1) = PR BMCB(2) = PI CMCB(1) = PR*PR - PI*PI CMCB(2) = 2.*PR*PI CALL SADD (Z(1),Z(1)) FA(1) = -IABS(FA(1)) IF (NOSING .EQ. 0) GO TO 821 ISAVE = SR2 SR2 = SCR8 SCR8 = ISAVE 821 CALL TMTOGO (KK) IF (KK .LE. 0) GO TO 700 IB = 0 CALL CDCOMP (*930,Z(1),Z(1),Z(1)) NOSING = 1 IF (IPRT .NE. 0) WRITE (OTPE,831) PR,PI,DR,DI,POWR 831 FORMAT (10X,4D16.7,I8) C C SCALE DETERMINANT BY POLES AND EIGENVALUES PREVIOUSLY FOUND C ID1 = IREG1 DO 880 ID = 1,NREGN ID2 = IZ(ID1+5) KK = IZ(ID1+7) IF (KK .EQ. 0) GO TO 870 KD = 14 + 10*ID2 + (ID1+1)/2 DO 860 LL = 1,KK KD = KD + 2 D1 = PR - ZD(KD ) D2 = PI - ZD(KD+1) D3 = D1*D1 + D2*D2 D4 = (DR*D1 + DI*D2)/D3 D5 = (DI*D1 - DR*D2)/D3 DR = D4 DI = D5 IF (ICMPX .EQ. 1) GO TO 850 C C SWEEP COMPLEX CONJUGATE ROOTS C IF (DABS(ZD(KD+1)) .LT. 1000.0*Z(ID1+9)*EPSI) GO TO 850 D2 = PI + ZD(KD+1) D3 = D1*D1 + D2*D2 D4 = (DR*D1 + DI*D2)/D3 D5 = (DI*D1 - DR*D2)/D3 DR = D4 DI = D5 850 CALL CDETM3 (DR,DI,POWR) 860 CONTINUE 870 ID1 = IZ(ID1+8) 880 CONTINUE C C SWEEP POLES C IF (NPOLE .EQ. 0) GO TO 940 ID1 = IPOLES DO 900 ID = 1,NPOLE D1 = PR - Z(ID1+1) D2 = PI - Z(ID1+2) D3 = 1.0D0 D4 = 0.0D0 KD = IZ(ID1+3) DO 890 ID2 = 1,KD D5 = D1*D3 - D2*D4 D6 = D2*D3 + D1*D4 D3 = D5 D4 = D6 890 CONTINUE D1 = D3*D3 + D4*D4 D2 = (DR*D3 + DI*D4)/D1 D5 = (DI*D3 - DR*D4)/D1 DR = D2 DI = D5 ID1= ID1 + 4 C C SCALE AGAIN C CALL CDETM3 (DR,DI,POWR) 900 CONTINUE GO TO 940 C C SINGLULAR MATRIX C 930 DR = 0.0D0 DI = 0.0D0 POWR = 0 ISING = ISING + 1 MINDA = 1.0E-11 IF (NOSING .EQ. 0) GO TO 940 NOSING= 0 ISAVE = SR2 SR2 = SCR8 SCR8 = ISAVE C C RETURN C 940 IF (IPRT .NE. 0) WRITE (OTPE,831) PR,PI,DR,DI,POWR GO TO DRETN, (240,450,640) C C ERROR MESAGES C 950 IP1 = -1 960 CALL MESAGE (IP1,FILE,NAME) 970 IP1 = -2 GO TO 960 980 IP1 = -3 GO TO 960 990 IP1 = -7 GO TO 960 1000 IP1 = -8 GO TO 960 END ================================================ FILE: mis/cdetm2.f ================================================ SUBROUTINE CDETM2 (P,D,IP,PR,PI,DR,DI,IPS1) C C ARRANGES P,D,IP IN ORDER BY MAGNITUDE OF DETERMINANT C INTEGER IP(6),IPS(3),IPS1(3) DOUBLE PRECISION P(6),D(6),PR(3),PI(3),DR(3),DI(3),D1,D2,D3,DD(3), 1 D4 EQUIVALENCE (D1,DD(1)),(D2,DD(2)),(D3,DD(3)) C D1 = D(1)*D(1) + D(2)*D(2) D2 = D(3)*D(3) + D(4)*D(4) D3 = D(5)*D(5) + D(6)*D(6) DO 10 I = 1,3 DD(I) = DSQRT(DD(I)) 10 CONTINUE DO 20 I = 2,6,2 K = I/2 IPS(K) = IP(I) IPS1(K) = IP(I) 20 CONTINUE C C SAVE STUFF IN OUTPUT AREAS C DO 30 I = 1,3 PR(I) = P(2*I-1) PI(I) = P(2*I ) DR(I) = D(2*I-1) DI(I) = D(2*I ) 30 CONTINUE C C SCALE MAGNITUDES C DO 80 I = 1,3 40 IF (DD(I) .GT. 10.0D0) GO TO 60 50 IF (DD(I) .LT. 1.0D0) GO TO 70 GO TO 80 60 DD(I) = DD(I)*0.1D0 IPS(I) = IPS(I) + 1 GO TO 40 70 DD(I) = DD(I)*10.0D0 IPS(I) = IPS(I) - 1 GO TO 50 80 CONTINUE C C START COMPARISON TESTS C IF (IPS(1).GT.IPS(2) .AND. IPS(2).GT.IPS(3)) GO TO 190 IF (IPS(1).GT.IPS(2) .AND. IPS(1).GT.IPS(3)) GO TO 160 IF (IPS(2)-IPS(3)) 100,90,130 90 IF (D2 .GE. D3) GO TO 130 100 IF (IPS(1)-IPS(3)) 120,110,160 110 IF (D1 .GE. D3) GO TO 160 120 IS1 = 1 IS2 = 3 ASSIGN 160 TO ISRET GO TO 200 130 IF (IPS(1)-IPS(2)) 150,140,160 140 IF (D1 .GE. D2) GO TO 160 150 IS1 = 1 IS2 = 2 ASSIGN 160 TO ISRET GO TO 200 160 IF (IPS(2)-IPS(3)) 180,170,190 170 IF (D2 .GE. D3) GO TO 190 180 IS1 = 2 IS2 = 3 ASSIGN 190 TO ISRET GO TO 200 190 RETURN C C SWITCHES VALUES ON IS1, IS2 C 200 NX = IPS(IS1) IPS(IS1) = IPS(IS2) IPS(IS2) = NX NX = IPS1(IS1) IPS1(IS1)= IPS1(IS2) IPS1(IS2)= NX D4 = PR(IS1) PR(IS1) = PR(IS2) PR(IS2) = D4 D4 = PI(IS1) PI(IS1) = PI(IS2) PI(IS2) = D4 D4 = DR(IS1) DR(IS1) = DR(IS2) DR(IS2) = D4 D4 = DI(IS1) DI(IS1) = DI(IS2) DI(IS2) = D4 D4 = DD(IS1) DD(IS1) = DD(IS2) DD(IS2) = D4 GO TO ISRET, (160,190) END ================================================ FILE: mis/cdifbs.f ================================================ SUBROUTINE CDIFBS(DZ,BUF) C C SUBROUTINE TO DO THE FBS PASS TO FIND THE LEFT EIGENVECTOR FOR C THE TRANSPOSED MATRIX C INTEGER UPRTRI ,EOL ,NAME(2) DOUBLE PRECISION DTEMP ,DZ(1) ,DA DIMENSION BUF(1) C COMMON /DESCRP/ LENGTH ,MAJOR COMMON /ZNTPKX/ DA(2) ,II ,EOL COMMON /NAMES/ RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP COMMON /CDCMPX/ IDUMM(20) ,IOF COMMON /CINVPX/ IDUM(36) ,SCRFIL(11) EQUIVALENCE (SCRFIL(6),UPRTRI) ,(SCRFIL(8),LOWTRI) , 1 (IDUM(2),NROW) DATA NAME / 4HCDIF,4HBS / C CALL SSWTCH (12,IDIAG) C C BEGIN THE FORWARD PASS USING THE UPPER TRIANGLE C IOFF = IOF - 1 CALL GOPEN (UPRTRI,BUF,RDREW) NROW2 = NROW + NROW DO 100 I = 1,NROW J = I + I CALL INTPK (*100,UPRTRI,0,CDP,0) 10 CALL ZNTPKI IF (II-I) 30,20,40 C C DIVIDE BY THE DIAGONAL C 20 DTEMP = (DZ(J-1)*DA(1)+DZ(J )*DA(2))/(DA(1)**2 + DA(2)**2) DZ(J) = (DZ(J )*DA(1)-DZ(J-1)*DA(2))/(DA(1)**2 + DA(2)**2) DZ(J-1) = DTEMP GO TO 90 C C SUBTRACT OFF NORMAL TERM C 30 DZ(J-1) = DZ(J-1) - DZ(2*II-1)*DA(1) + DZ(2*II)*DA(2) DZ(J ) = DZ(J ) - DZ(2*II-1)*DA(2) - DZ(2*II)*DA(1) GO TO 90 C C SUBTRACT OFF ACTIVE COLUMN TERMS C 40 K = (I-IOFF)*2 DZ(2*II-1) = DZ(2*II-1) - DZ(K-1)*DA(1) + DZ(K )*DA(2) DZ(2*II ) = DZ(2*II ) - DZ(K )*DA(1) - DZ(K-1)*DA(2) 90 IF (EOL) 100,10,100 100 CONTINUE CALL CLOSE (UPRTRI,REW) C C BEGIN BACKWARD PASS USING THE LOWER TRIANGLE C CALL GOPEN (LOWTRI,BUF,RDREW) CALL SKPREC (LOWTRI,NROW) DO 200 I = 1,NROW CALL BCKREC (LOWTRI) INTCHN = 0 CALL INTPK (*200,LOWTRI,0,CDP,0) J = (NROW-I+1)*2 120 CALL ZNTPKI IF (II .NE. NROW-I+1) GO TO 150 IF (II .LT. J/2) GO TO 1010 C C PERFORM THE INTERCHANGE C INTCHN = IFIX(SNGL(DA(1)))*2 IF (IDIAG .NE. 0) WRITE (6,131) I,INTCHN 131 FORMAT (5H I = ,I5,10HINTCHNG = ,I5) GO TO 190 130 IN1 = J + INTCHN DTEMP = DZ(J) DZ(J) = DZ(IN1) DZ(IN1) = DTEMP DTEMP = DZ(J-1) DZ(J-1 ) = DZ(IN1-1) DZ(IN1-1) = DTEMP GO TO 200 150 CONTINUE DZ(J-1) = DZ(J-1) - DZ(2*II-1)*DA(1) + DZ(2*II)*DA(2) DZ(J ) = DZ(J ) - DZ(2*II-1)*DA(2) - DZ(2*II)*DA(1) 190 IF (EOL) 195,120,195 195 IF (INTCHN) 200,200,130 200 CALL BCKREC (LOWTRI) CALL CLOSE (LOWTRI,REW) RETURN C 1010 CALL MESAGE (-7,LOWTRI,NAME) RETURN END ================================================ FILE: mis/cdivid.f ================================================ SUBROUTINE CDIVID(A,B,D,NCOL) DOUBLE PRECISION A(1),B(1),D(2),DTEMP,DENM C C THIS ROUTINE DIVIDES THE VECTOR A BY D AND STORE RESULT IN B C DENM = D(1)**2 + D(2)**2 DO 10 I = 1,NCOL,2 DTEMP = (A(I)*D(1) +A(I+1)*D(2))/DENM B(I+1) = (A(I+1)*D(1) -A(I) * D(2))/DENM B(I) = DTEMP 10 CONTINUE RETURN END ================================================ FILE: mis/cdtfbs.f ================================================ SUBROUTINE CDTFBS (DX,DY,IOBUF,FILEU,NROW) C C CDTFBS IS A SPECIAL VERSION OF GFBS USED BY COMPLEX DETERMINATE C METHOD C C DEFINITION OF INPUT PARAMETERS C C FILEU = MATRIX CONTROL BLOCK FOR THE UPPER TRIANGLE U C DX = THE LOAD VECTOR B C DY = THE SOLUTION VECTOR X C IOBUF = THE INPUT BUFFER C INTEGER FILEU(7) ,TYPEAR ,CDP ,PARM(4) , 1 IOBUF(1) DOUBLE PRECISION DX(1) ,DY(1) ,DTEMP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,LOWTRI ,UPRTRI , 4 SYM ,ROW ,IDENTY COMMON /UNPAKX/ ITYPEX ,IUNPAK ,JUNPAK ,INCRX DATA PARM(3), PARM(4) /4HDETF,4HBS / C INCRX = 1 ITYPEX = CDP TYPEAR = CDP C C BEGIN BACKWARD PASS C IOFF = FILEU(7) - 1 PARM(2) = FILEU(1) CALL OPEN (*80,FILEU,IOBUF,RD) DO 70 I = 1,NROW IUNPAK = 0 J = NROW - I + 1 JJ = J + J CALL BCKREC (FILEU) CALL UNPACK (*90,FILEU,DY) CALL BCKREC (FILEU) ISING = 0 K = (JUNPAK-IUNPAK+1)*2 JU = JUNPAK + JUNPAK GO TO 30 10 ISING = 1 C C DIVIDE BY THE DIAGONAL C DTEMP = (DX(JJ)*DY(K-1)-DX(JJ-1)*DY(K))/(DY(K)**2+DY(K-1)**2) DX(JJ-1) = (DX(JJ-1)*DY(K-1)+DX(JJ)*DY(K))/(DY(K)**2+DY(K-1)**2) DX(JJ ) = DTEMP 20 K = K - 2 JU = JU - 2 JUNPAK = JUNPAK - 1 IF (K .EQ. 0) GO TO 60 IF (DY(K).EQ.0.D0 .AND. DY(K-1).EQ.0.D0) GO TO 20 30 IF (JUNPAK-J) 50,10,40 40 JK = (J-IOFF)*2 DX(JK-1) = DX(JK-1) - DX(JU-1)*DY(K-1) + DX(JU )*DY(K) DX(JK ) = DX(JK ) - DX(JU )*DY(K-1) - DX(JU-1)*DY(K) GO TO 20 50 CONTINUE DX(JU-1) = DX(JU-1) - DX(JJ-1)*DY(K-1) + DX(JJ )*DY(K) DX(JU ) = DX(JU ) - DX(JJ )*DY(K-1) - DX(JJ-1)*DY(K) GO TO 20 60 IF (ISING .EQ. 0) GO TO 90 70 CONTINUE CALL CLOSE (FILEU,REW) RETURN C 80 PARM(1) = -1 GO TO 100 90 PARM(1) = -5 100 CALL MESAGE (PARM(1),PARM(2),PARM(3)) RETURN END ================================================ FILE: mis/cead.f ================================================ SUBROUTINE CEAD C C COMPLEX EIGENVALUE EXTRACTION MODULE C C 5 INPUT FILES - KDD,BDD,MDD,EED,CASECC C 4 OUTPUT FILES - PHID,LAMD,OCEIGS,PHIDL C 12 SCRATCHES FILES C 1 PARAMETER C IMPLICIT INTEGER (A-Z) REAL EPS DIMENSION EIGC(2),ERROR(2),NAME(2),MCB(7),KZ(1) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /CINVPX/ IK(7),IM(7),IB(7),ILAM(7),IPHI(7), 1 IDMPFL,ISCR(11),NOREG,EPS,REG(7,10),PHIDLI COMMON /BLANK / NFOUND COMMON /SYSTEM/ SYSBUF,NOUT COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (KZ(1),IZ(1)) DATA NAME / 4HCEAD,4H / DATA HES / 4HHESS/ DATA FEER / 4HFEER/ DATA ERROR / 4HEED ,4HCEAD/ DATA KDD , BDD,MDD,EED,CASECC / 1 101 , 102,103,104,105 / DATA PHID , LAMD,OCEIGS,PHIDL / 1 201 , 202, 203, 204 / DATA SCR1 , SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,SCR9 / 1 301 , 302, 303 ,304 ,305 ,306 ,307 ,308 ,309 / DATA SCR10 , SCR11,SCR12 / 1 310 , 311, 312 / DATA DET , INV,EIGC(1),EIGC(2) /4HDET ,4HINV ,207,2/ DATA IZ2 , IZ6,IZ148 /2,6,148/ C C FIND SELECTED EIGC CARD IN CASECC C IBUF = KORSZ(IZ) - SYSBUF CALL OPEN (*1,CASECC,IZ(IBUF),0) CALL SKPREC (CASECC,1) CALL FREAD (CASECC,IZ,166,1) CALL CLOSE (CASECC,1) J = 148 METHOD = IZ(J) SCR10 = 310 GO TO 2 1 METHOD = -1 2 FILE = EED CALL PRELOC (*90,IZ(IBUF),EED) CALL LOCATE (*130,IZ(IBUF),EIGC(1),IFLAG) 10 CALL READ (*110,*140,EED,IZ(1),10,0,IFLAG) IF (METHOD.EQ.IZ(1) .OR. METHOD.EQ.-1) GO TO 30 20 CALL FREAD (EED,IZ,7,0) J = 6 IF (IZ(J) .NE. -1) GO TO 20 GO TO 10 C C FOUND DESIRED EIGC CARD C 30 CALL CLOSE (EED,1) J = 2 CAPP = IZ(J) IF (CAPP .EQ. DET) GO TO 50 IF (CAPP .EQ. INV) GO TO 40 IF (CAPP .EQ. HES) GO TO 52 IF (CAPP .EQ. FEER) GO TO 45 GO TO 130 C C INVERSE POWER-- C 40 IK(1) = KDD CALL CLOSE (EED,1) CALL RDTRL (IK) IM(1) = MDD CALL RDTRL (IM) IB(1) = BDD CALL RDTRL (IB) IF (IB(1) .LT. 0) IB(1) = 0 IF (IB(6) .EQ. 0) IB(1) = 0 ILAM(1) = SCR8 IPHI(1) = SCR9 IDMPFL = OCEIGS ISCR( 1) = SCR1 ISCR( 2) = SCR2 ISCR( 3) = SCR3 ISCR( 4) = SCR4 ISCR( 5) = SCR5 ISCR( 6) = SCR6 ISCR( 7) = SCR7 ISCR( 8) = LAMD ISCR( 9) = PHID ISCR(10) = SCR10 ISCR(11) = SCR11 PHIDLI = SCR12 EPS = .0001 CALL CINVPR (EED,METHOD,NFOUND) NVECT = NFOUND GO TO 60 C C FEER METHOD C 45 CONTINUE CALL CFEER (EED,METHOD,NFOUND) NVECT = NFOUND GO TO 60 C C DETERMINANT C 50 CALL CDETM (METHOD,EED,MDD,BDD,KDD,SCR8,SCR9,OCEIGS,NFOUND,SCR1, 1 SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR10) NVECT = NFOUND GO TO 60 C C HESSENBURG METHOD C 52 CONTINUE MCB(1) = KDD CALL RDTRL (MCB) NROW = MCB(2) MCB(1) = BDD CALL RDTRL (MCB) IF (MCB(1) .GT. 0) NROW = NROW*2 NZ = KORSZ(KZ) C C IF INSUFFICIENT CORE EXISTS FOR HESSENBURG METHOD. DEFAULT TO C INVERSE POWER. C IF (6*NROW*NROW+NROW*8 .LE. NZ) GO TO 55 WRITE (NOUT,53) UIM 53 FORMAT (A29,' 2365, INSUFFICIENT CORE EXISTS FOR HESSENBURG ', 1 'METHOD. CHANGING TO INVERSE POWER OR FEER.') GO TO 40 C C SUFFICIENT CORE. PROCEED WITH HESSENBURG METHOD C 55 CONTINUE CALL HESS1 (KDD,MDD,SCR8,SCR9,OCEIGS,NFOUND,NVECT,BDD,SCR1,SCR2, 1 SCR3,SCR4,SCR5,SCR6,SCR7,EED,METHOD) NFOUND = NVECT C C LAMD ON SCR8, PHID ON SCR9 C C SORT EIGENVALUES AND PREPARE OUTPUT FILES C 60 IF (NFOUND .NE. 0) GO TO 70 NFOUND = -1 GO TO 80 70 CALL CEAD1A (SCR8,SCR9,PHIDLI,LAMD,PHID,PHIDL,NFOUND,NVECT,CAPP) 80 RETURN C C ERROR MESAGES C 90 IP1 = -1 100 CALL MESAGE (IP1,FILE,NAME) 110 IP1 = -2 GO TO 100 130 IP1 = -7 GO TO 100 140 CALL MESAGE (-31,METHOD,ERROR(1)) GO TO 140 END ================================================ FILE: mis/cead1a.f ================================================ SUBROUTINE CEAD1A (LAMI,PHIDI,PHIDLI,LAMD,PHID,PHIDL,NFOUND,NVECT, * CAPP) C C ROUTINE SORTS LAMI, PHIDI AND PHIDLI (INV. POWER), BASED ON LAMI, C AND CREATES LAMD, PHID AND PHIDL C DOUBLE PRECISION ZD(1),D1,D2 INTEGER PHIDI,PHID,SYSBUF,IZ(1),IH(7),FILE INTEGER NAME(2) INTEGER CAPP,DET,HES INTEGER FILEK,FILEM,FILEB INTEGER PHIDLI,PHIDL C COMMON /SYSTEM/ KSYSTM(65) COMMON /OUTPUT/HEAD(1) COMMON /ZZZZZZ/ Z(1) COMMON /CINVPX/ FILEK(7),FILEM(7),FILEB(7) COMMON /CONDAS/ PI ,TWOPI ,RADEG ,DEGRA , 1 S4PISQ COMMON /PACKX/ IT1,IT2,II,JJ,INCUR C EQUIVALENCE ( KSYSTM( 1) , SYSBUF ) EQUIVALENCE (IZ(1),Z(1)),(Z(1),ZD(1)) C DATA NAME/4HCEAD,4H1A / DATA IH / 7*0 / DATA DET,HES / 4HDET ,4HHESS / C C INITIALIZE POINTER ARRAY C DO 10 I=1,NFOUND IZ(I)= I 10 CONTINUE C C BRING IN EIGENVALUES C ILAMA =(NFOUND+1)/2 +1 IBUF = KORSZ(IZ)-SYSBUF+1 FILE = LAMI CALL OPEN(*170,LAMI,IZ(IBUF),0) K =ILAMA DO 20 I=1,NFOUND CALL READ(*190,*200,LAMI,ZD(K),4,1,IFLAG) K= K +2 20 CONTINUE CALL CLOSE(LAMI,1) IF(NFOUND .EQ.1) GO TO 70 C C C SORT ON SIGN IMAGINARY THEN ON MAG IMAG C JJ = NFOUND-1 DO 60 I=1,JJ II = I+1 M = ILAMA+ 2*I -2 DO 50 J=II,NFOUND L = ILAMA +2*J-2 C C SIGN IMAG C D1 = DSIGN(1.0D0,ZD(L+1)) D2 = DSIGN(1.0D0,ZD(M+1)) IF(D1 .EQ. D2) GO TO 40 IF( D1 .EQ. 1.0D0)GO TO 50 C C SWITCH C 30 D1 = ZD(L) ZD(L) =ZD(M) ZD(M)=D1 D1 =ZD(L+1) ZD(L+1)=ZD(M+1) ZD(M+1)=D1 IT1 = IZ(J) IZ(J)= IZ(I) IZ(I)= IT1 GO TO 50 C C TEST MAGNITIDE IMAG C 40 IF(DABS(ZD(L+1)) -DABS(ZD(M+1))) 30,50,50 50 CONTINUE 60 CONTINUE C C PUT OUT LAMA-S IN ORDER GIVEN BY LIST C 70 CALL GOPEN(LAMD,IZ(IBUF),1) IH(2) =1006 IH(1) = 90 CALL WRITE(LAMD, IH, 4,0) IH(6) = 6 CALL WRITE(LAMD, IH, 6,0) CALL WRITE(LAMD, IZ,40,0) CALL WRITE(LAMD,HEAD,96,1) L = 5*NFOUND +2 DO 90 I=1,NFOUND IZ(L)=I IZ(L+1)=IZ(I) K = 2*I-2+ILAMA Z(L+2) =ZD(K) Z(L+3) = ZD(K+1) Z(L+4) = 0.0 Z(L+5) = 0.0 IF(ABS(Z(L+3)) .LE. 1.0E-3*ABS(Z(L+2))) GO TO 80 Z(L+4) = ABS(Z(L+3))/TWOPI Z(L+5) = -2.0*Z(L+2)/ABS(Z(L+3)) 80 CALL WRITE(LAMD,IZ(L),6,0) 90 CONTINUE CALL CLOSE(LAMD,1) IH(1) =LAMD CALL WRTTRL(IH) C C BRING IN PHIDI IN ORDER NEEDED AND OUTPUT C IBUF1 = IBUF -SYSBUF CALL GOPEN(PHID,IZ(IBUF1),1) IT1 = 4 IT2 = 3 INCUR =1 II =1 IH(1)=PHID IH(2)= 0 IH(4) =2 IH(5) =3 IH(6) = 0 K = 1 101 IF(IZ(K) .LE. NVECT) GO TO 111 K = K+1 GO TO 101 111 FILE = PHIDI IPOS =1 CALL OPEN(*170,PHIDI,IZ(IBUF),0) DO 160 I=1,NVECT IF (NVECT .EQ. 1) GO TO 130 100 L= IZ(I)-IPOS IF(L) 150,130,110 110 CALL SKPREC(PHIDI,L) C C BRING IN EIGENVECTORS C 130 CALL READ(*190,*140,PHIDI,ZD(ILAMA),IBUF1-1,0,M) GO TO 210 140 JJ= M/4 IPOS = IZ(K) +1 CALL PACK(ZD(ILAMA),PHID,IH) GO TO 159 C C PAST VECTOR NEEDED C 150 CALL REWIND(PHIDI) IPOS =1 GO TO 100 159 K = K+1 160 CONTINUE CALL CLOSE(PHID,1) CALL CLOSE(PHIDI,1) IH(3) =JJ CALL WRTTRL(IH) C C OUTPUT PHIDL IF NOT PURGED AND IF AT LEAST ONE INPUT MATRIX IS C UNSYMMETRIC C IH(1) = PHIDL CALL RDTRL (IH) IF (IH(1) .LT. 0) RETURN IF (CAPP .NE. DET .AND. CAPP .NE. HES) GO TO 301 FILEK(1) = 101 CALL RDTRL (FILEK) FILEM(1) = 103 CALL RDTRL (FILEM) FILEB(1) = 102 CALL RDTRL (FILEB) 301 IF (FILEK(1) .GT. 0 .AND. FILEK(4) .NE. 6) GO TO 302 IF (FILEM(1) .GT. 0 .AND. FILEM(4) .NE. 6) GO TO 302 IF (FILEB(1) .GT. 0 .AND. FILEB(4) .NE. 6) GO TO 302 RETURN 302 CALL GOPEN (PHIDL,IZ(IBUF1),1) CALL MAKMCB (IH,PHIDL,0,2,3) IF (CAPP .NE. DET .AND. CAPP .NE. HES) GO TO 305 CALL CLVEC (LAMD,NVECT,PHIDL,IH,IBUF,IBUF1) GO TO 395 305 K = 1 310 IF (IZ(K) .LE. NVECT) GO TO 320 K = K + 1 GO TO 310 320 FILE = PHIDLI IPOS = 1 CALL OPEN(*170,PHIDLI,IZ(IBUF),0) DO 390 I=1,NVECT IF (NVECT .EQ. 1) GO TO 350 330 L = IZ(I) - IPOS IF (L) 370,350,340 340 CALL SKPREC (PHIDLI,L) C C BRING IN LEFT EIGENVECTORS C 350 CALL READ(*190,*360,PHIDLI,ZD(ILAMA),IBUF1-1,0,M) GO TO 210 360 JJ = M/4 IPOS = IZ(K) + 1 CALL PACK (ZD(ILAMA),PHIDL,IH) GO TO 380 C C PAST VECTOR NEEDED C 370 CALL REWIND (PHIDLI) IPOS = 1 GO TO 330 380 K = K + 1 390 CONTINUE CALL CLOSE (PHIDLI,1) 395 CALL CLOSE (PHIDL,1) IH(3) = JJ CALL WRTTRL (IH) RETURN C C ERROR MESAGES C 170 IP1 =-1 180 CALL MESAGE(IP1,FILE,NAME) 190 IP1 =-2 GO TO 180 200 IP1 = -3 GO TO 180 210 IP1 = -8 GO TO 180 END ================================================ FILE: mis/centre.f ================================================ SUBROUTINE CENTRE(*,X1,Y1,X2,Y2,X3,Y3,X4,Y4,CENTER) DIMENSION CENTER(2) IF (X1.NE.X3.OR.X2.NE.X4) GO TO 10 CENTER(1)=X1 CENTER(2)=(AMAX1(Y1,Y2,Y3,Y4)+AMIN1(Y1,Y2,Y3,Y4))/2.0 RETURN 1 10 IF (X1.NE.X3) GO TO 20 CENTER(1)=X1 CENTER(2)=(Y4-Y2)*(CENTER(1)-X2)/(X4-X2)+Y2 GO TO 100 20 IF (X2.NE.X4) GO TO 30 CENTER(1)=X2 CENTER(2)=(Y3-Y1)*(CENTER(1)-X1)/(X3-X1)+Y1 GO TO 100 30 XM1=(Y2-Y4)/(X2-X4) XM2=(Y1-Y3)/(X1-X3) IF (XM1.EQ.XM2) GO TO 40 CENTER(1)=(Y1-XM2*X1-(Y2-XM1*X2))/(XM1-XM2) CENTER(2)=XM1*(CENTER(1)-X2)+Y2 GO TO 100 40 CENTER(1)=(X1+X2)/2.0 CENTER(2)=(Y1+Y2)/2.0 RETURN 1 100 CONTINUE RETURN END ================================================ FILE: mis/cf1fbs.f ================================================ SUBROUTINE CF1FBS (TPOSE,XOUT,IOBUF) C******* C CF1FBS PERFORMS THE SINGLE-PRECISION FORWARD AND BACKWARD SWEEPS C FOR THE COMPLEX FEER METHOD. THESE SWEEPS CONSTITUTE THE C OPERATIONAL INVERSE (MATRIX INVERSION). C******* C DEFINITION OF INPUT AND OUTPUT PARAMETERS C******* C TPOSE = .FALSE. --- PERFORM OPERATION L * U C = .TRUE. --- PERFORM OPERATION U-TRANSPOSE * L-TRANSPOSE C XOUT = INPUT VECTOR GETS TRANSFORMED TO OUTPUT VECTOR C IOBUF = INPUT GINO BUFFER C******* DIMENSION XOUT(1) INTEGER NAME(2) ,IOBUF(1) ,EOL ,CSP LOGICAL TPOSE(1) ,SYMMET ,QPR COMMON /FEERAA/ AADUM(117),MCBLT(7),MCBUT(7) COMMON /FEERXC/ XCD01(4) ,SYMMET ,XCD02(9) ,NSWP 2 ,XCD03(6) ,QPR COMMON /ZNTPKX/ DA(2) ,XA(2) ,II ,EOL COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW 2 ,REW ,NOREW ,EOFNRW ,RSP 3 ,RDP ,CSP ,CDP COMMON /SYSTEM/ KSYSTM ,NOUT EQUIVALENCE (AADUM(42),ISCR6) DATA NAME /4HCF1F,4HBS / IF (QPR) WRITE (NOUT,8887) TPOSE(1),SYMMET,NSWP,ISCR6 8887 FORMAT(1H0,12HENTER CF1FBS,8X,11HTRANSPOSE =,L2,L9,2I10) JUNK = 0 IF (TPOSE(1) .AND. .NOT.SYMMET) GO TO 399 C******* C BELOW FOR OPERATION L * U C (LOGIC COPIED FROM SUBROUTINE CINFBS) C******* C BEGIN FORWARD PASS USING THE LOWER TRIANGLE C******* CALL GOPEN (MCBLT(1),IOBUF(1),RDREW) J = 1 100 CALL INTPK(*200,MCBLT(1),0,CSP,0) 110 IF (EOL) 3010,120,3010 120 CALL ZNTPKI IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J 8882 FORMAT(1H ,4HDA =,2E16.8,4X,4HII =,I6, 2 4X,5HEOL =,I2,4X,3HJ =,I4) IF (J-II) 184,130,110 C******* C PERFORM THE REQUIRED ROW INTERCHANGE C******* 130 IN1 = ( J + IFIX(DA(1)) )*2 - 1 IF (QPR) WRITE (NOUT,8883) IN1,EOL 8883 FORMAT(1H ,3X,5HIN1 =,I6,4X,5HEOL =,I2) IN2 = IN1+1 J2 = 2*J UNIDUM = XOUT(J2) XOUT(J2) = XOUT(IN2) XOUT(IN2) = UNIDUM J2 = J2-1 UNIDUM = XOUT(J2) XOUT(J2) = XOUT(IN1) XOUT(IN1) = UNIDUM 160 IF (EOL) 200,170,200 170 CALL ZNTPKI IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J 184 II2 = 2*II II1 = II2-1 J2 = 2*J J1 = J2-1 XOUT(II1) = XOUT(II1) - DA(1)*XOUT(J1) + DA(2)*XOUT(J2) XOUT(II2) = XOUT(II2) - DA(2)*XOUT(J1) - DA(1)*XOUT(J2) GO TO 160 200 J = J+1 IF (J.LT.NSWP) GO TO 100 CALL CLOSE (MCBLT(1),REW) C******* C BEGIN BACKWARD PASS USING THE UPPER TRIANGLE C******* IOFF = MCBUT(7)-1 IF (QPR) WRITE (NOUT,8866) IOFF,MCBLT,MCBUT 8866 FORMAT(1H ,15(1X,I7)) CALL GOPEN (MCBUT(1),IOBUF(1),RDREW) J = NSWP 210 CALL INTPK(*3020,MCBUT(1),0,CSP,0) IF (EOL) 3020,230,3020 230 CALL ZNTPKI IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J I = NSWP - II + 1 IF (I.NE.J) GO TO 275 C******* C DIVIDE BY THE DIAGONAL C******* I2 = 2*I I1 = I2-1 UNIDUM = 1./(DA(1)**2+DA(2)**2) DTEMP = (DA(1)*XOUT(I1)+DA(2)*XOUT(I2))*UNIDUM XOUT(I2) = (DA(1)*XOUT(I2)-DA(2)*XOUT(I1))*UNIDUM XOUT(I1) = DTEMP IF (QPR) WRITE (NOUT,8884) 8884 FORMAT(1H ,6X,8HDIAGONAL) C******* C SUBTRACT OFF REMAINING TERMS C******* 255 IF (I.GT.J) GO TO 230 IF (EOL) 300,270,300 270 CALL ZNTPKI IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J I = NSWP - II + 1 275 IN1 = I IN2 = J IF (I.LT.J) GO TO 279 K = IN1 IN1 = IN2-IOFF JUNK = 1 IF (IN1.LE.0) GO TO 3020 IN2 = K 279 IN1 = 2*IN1 IN2 = 2*IN2 II1 = IN1-1 II2 = IN2-1 IF (QPR) WRITE (NOUT,8820) I,J,II1,II2 8820 FORMAT(1H ,3HI =,I6,6X,3HJ =,I6,6X,5HII1 =,I6,6X,5HII2 =,I6) XOUT(II1) = XOUT(II1) - DA(1)*XOUT(II2) + DA(2)*XOUT(IN2) XOUT(IN1) = XOUT(IN1) - DA(2)*XOUT(II2) - DA(1)*XOUT(IN2) GO TO 255 300 J = J-1 IF (J.GT.0) GO TO 210 CALL CLOSE (MCBUT(1),REW) GO TO 4000 C******* C BELOW FOR OPERATION U-TRANSPOSE * L-TRANSPOSE C (LOGIC COPIED FROM SUBROUTINE CDIFBS) C******* C BEGIN THE FORWARD PASS USING THE UPPER TRIANGLE C******* 399 IOFF = MCBUT(7)-1 IF (QPR) WRITE (NOUT,2216) IOFF 2216 FORMAT(1H ,30X,6HIOFF =,I10) MCSAVE = MCBUT(1) MCBUT(1) = ISCR6 CALL GOPEN (MCBUT(1),IOBUF(1),RDREW) DO 500 I = 1,NSWP IF (QPR) WRITE (NOUT,2218) I 2218 FORMAT(1H ,12HLOOP INDEX =,I6) J = I+I CALL INTPK(*500,MCBUT(1),0,CSP,0) 410 CALL ZNTPKI IF (QPR) WRITE (NOUT,2224) II,EOL,DA 2224 FORMAT(1H ,4HII =,I14,6X,5HEOL =,I2, 2 8X,4HDA =,2E16.8) IF (II-I) 430,420,440 C******* C DIVIDE BY THE DIAGONAL C******* 420 I1 = J-1 UNIDUM = 1./(DA(1)**2+DA(2)**2) DTEMP = (XOUT(I1)*DA(1) + XOUT(J)*DA(2))*UNIDUM XOUT(J) = (XOUT(J)*DA(1) - XOUT(I1)*DA(2))*UNIDUM XOUT(I1) = DTEMP IF (QPR) WRITE (NOUT,8884) GO TO 490 C******* C SUBTRACT OFF NORMAL TERM C******* 430 I2 = II+II I1 = I2-1 J1 = J-1 XOUT(J1) = XOUT(J1) - XOUT(I1)*DA(1) + XOUT(I2)*DA(2) XOUT(J) = XOUT(J) - XOUT(I1)*DA(2) - XOUT(I2)*DA(1) GO TO 490 C******* C SUBTRACT OFF ACTIVE COLUMN TERMS C******* 440 K = (I-IOFF)*2 JUNK = 1 IN1 = K IF (IN1.LE.0) GO TO 3020 I2 = II+II I1 = I2-1 J1 = K-1 XOUT(I1) = XOUT(I1) - XOUT(J1)*DA(1) + XOUT(K)*DA(2) XOUT(I2) = XOUT(I2) - XOUT(K)*DA(1) - XOUT(J1)*DA(2) 490 IF (EOL) 500,410,500 500 CONTINUE CALL CLOSE (MCBUT(1),REW) MCBUT(1) = MCSAVE C******* C BEGIN BACKWARD PASS USING THE LOWER TRIANGLE C******* CALL GOPEN (MCBLT(1),IOBUF(1),RDREW) CALL SKPREC (MCBLT(1),NSWP) DO 600 I = 1,NSWP IF (QPR) WRITE (NOUT,2218) I CALL BCKREC (MCBLT(1)) INTCHN = 0 CALL INTPK(*600,MCBLT(1),0,CSP,0) J = (NSWP-I+1)*2 520 CALL ZNTPKI IF (QPR) WRITE (NOUT,2224) II,EOL,DA IF (II.NE.NSWP-I+1) GO TO 550 IF (II.LT.J/2) GO TO 3010 C******* C PERFORM THE INTERCHANGE C******* INTCHN = IFIX(DA(1))*2 IF (QPR) WRITE (NOUT,2226) INTCHN 2226 FORMAT(1H ,4X,11HINTERCHANGE,I6) GO TO 590 530 IN1 = J+INTCHN IF (QPR) WRITE (NOUT,2232) J,INTCHN,IN1 2232 FORMAT(1H ,15X,3I6) DTEMP = XOUT(J) XOUT(J) = XOUT(IN1) XOUT(IN1) = DTEMP J1 = J-1 I1 = IN1-1 DTEMP = XOUT(J1) XOUT(J1) = XOUT(I1) XOUT(I1) = DTEMP GO TO 600 550 J1 = J-1 I2 = II+II I1 = I2-1 XOUT(J1) = XOUT(J1) - XOUT(I1)*DA(1) + XOUT(I2)*DA(2) XOUT(J) = XOUT(J) - XOUT(I1)*DA(2) - XOUT(I2)*DA(1) 590 IF (EOL) 595,520,595 595 IF (INTCHN) 600,600,530 600 CALL BCKREC (MCBLT(1)) CALL CLOSE (MCBLT(1),REW) GO TO 4000 3010 J = MCBLT(1) GO TO 3040 3020 J = MCBUT(1) 3040 CALL MESAGE (-5,J,NAME) 4000 CONTINUE IF (QPR.AND.JUNK.EQ.0) WRITE (NOUT,5516) 5516 FORMAT(1H0,30X,13HIOFF NOT USED,/1H ) IF (QPR.AND.JUNK.NE.0) WRITE (NOUT,5518) 5518 FORMAT(1H0,30X,13HIOFF WAS USED,/1H ) RETURN END ================================================ FILE: mis/cf1ort.f ================================================ SUBROUTINE CF1ORT (SUCESS,MAXITS,TEN2MT,NZERO,IORTHO, 2 VR,VL,V1,V1L,V2,V2L,ZB) C******* C CF1ORT IS A SINGLE-PRECISION ROUTINE (CREATED FOR USE BY C THE COMPLEX FEER METHOD) WHICH PERFORMS THE C REORTHOGONALIZATION ALGORITHM C******* C DEFINITION OF INPUT AND OUTPUT PARAMETERS C******* C SUCESS = LOGICAL INDICATOR FOR SUCCESSFUL REORTHOGONALIZATION C (OUTPUT) C MAXITS = MAXIMUM NUMBER OF ALLOWED ITERATIONS (INPUT) C TEN2MT = CONVERGENCE CRITERION C NZERO = NUMBER OF ORTHOGONAL VECTOR PAIRS IN PRIOR C NEIGHBORHOODS INCLUDING RESTART C IORTHO = NUMBER OF EXISTING ORTHOGONAL VECTOR PAIRS C IN CURRENT NEIGHBORHOOD C VR = RIGHT-HANDED VECTOR TO BE REORTHOGONALIZED C VL = LEFT -HANDED VECTOR TO BE REORTHOGONALIZED C V1,V1L, = WORKING SPACE FOR FOUR VECTORS (V1L MUST C V2,V2L FOLLOW V1 IN CORE) C ZB = WORKING SPACE FOR ONE GINO BUFFER C******* DIMENSION VR(1) ,VL(1) ,V1(1) ,V1L(1) 2 ,V2(1) ,V2L(1) ,A(2) ,OTEST(4) LOGICAL SUCESS ,QPR ,SKIP INTEGER ZB(1) COMMON /FEERAA/ DUMAA(42),ISCR7 COMMON /FEERXC/ DUMXC(7) ,IDIAG ,XCDUM(3) ,NORD2 2 ,XCDUM2(9),QPR ,XCDUM3(5),NUMORT COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW 2 ,REW ,NOREW ,EOFNRW COMMON /SYSTEM/ KSYS ,NOUT MORTHO = NZERO+IORTHO IF (MORTHO.LE.0) GO TO 500 IF (QPR) WRITE (NOUT,700) NUMORT = NUMORT + 1 K = 0 SUCESS = .FALSE. NN = NORD2 CRITF = 100.*TEN2MT**2 DO 5 I = 1,NORD2 V2 (I) = VR(I) 5 V2L(I) = VL(I) CALL GOPEN (ISCR7,ZB(1),RDREW) 8 DO 9 I = 1,4 9 OTEST(I) = 0. LL = 2 C******* C ENTER LOOP C******* DO 40 I = 1,MORTHO IF (I.EQ.NZERO+1) LL = 0 IF (QPR) WRITE (NOUT,701) I C VALUES ARE UNPACKED INTO BOTH V1 AND V1L CALL UNPACK(*10,ISCR7,V1(1)) IF (.NOT.QPR) GO TO 20 WRITE (NOUT,702) (V1 (J),J=1,NORD2) WRITE (NOUT,702) (V1L(J),J=1,NORD2) GO TO 20 10 IF (IDIAG.NE.0) WRITE (NOUT,710) I GO TO 40 C******* C OBTAIN RIGHT-HAND INNER-PRODUCT TERM C******* 20 CALL CFNOR1 (VR(1),V1L(1),NORD2,1,A(1)) C******* C SUBTRACT OFF RIGHT-HAND INNER-PRODUCT TERM C******* DO 25 J = 1,NORD2,2 L = J+1 V2(J) = V2(J) - A(1)*V1(J) + A(2)*V1(L) 25 V2(L) = V2(L) - A(1)*V1(L) - A(2)*V1(J) C******* C COMPUTE MAXIMUM RIGHT-HAND SQUARED-ERROR C******* A(1) = A(1)**2+A(2)**2 IF (OTEST(LL+1).LT.A(1)) OTEST(LL+1) = A(1) C******* C OBTAIN LEFT-HAND INNER-PRODUCT TERM C******* CALL CFNOR1 (VL(1),V1(1),NORD2,1,A(1)) C******* C SUBTRACT OFF LEFT-HAND INNER-PRODUCT TERM C******* DO 30 J = 1,NORD2,2 L = J+1 V2L(J) = V2L(J) - A(1)*V1L(J) + A(2)*V1L(L) 30 V2L(L) = V2L(L) - A(1)*V1L(L) - A(2)*V1L(J) C******* C COMPUTE MAXIMUM LEFT-HAND SQUARED-ERROR C******* A(1) = A(1)**2+A(2)**2 IF (OTEST(LL+2).LT.A(1)) OTEST(LL+2) = A(1) 40 CONTINUE DO 50 I = 1,NORD2 VR(I) = V2 (I) 50 VL(I) = V2L(I) SKIP = .FALSE. IF (.NOT.QPR) GO TO 91 WRITE (NOUT,702) (VR(I),I=1,NORD2) WRITE (NOUT,702) (VL(I),I=1,NORD2) C******* C TEST FOR CONVERGENCE C******* 91 IF (IDIAG.NE.0) WRITE (NOUT,703) K,CRITF,OTEST IF (OTEST(1).LE.CRITF .AND. OTEST(2).LE.CRITF .AND. 2 OTEST(3).LE.CRITF .AND. OTEST(4).LE.CRITF) GO TO 450 IF (SKIP) GO TO 92 IF (K.NE.1.AND.K.NE.3.AND.K.NE.5) GO TO 92 IF (IDIAG.NE.0) WRITE (NOUT,720) CRITF = 100.*CRITF SKIP = .TRUE. GO TO 91 92 K = K + 1 IF (K.GT.MAXITS) GO TO 95 CALL CLOSE (ISCR7,EOFNRW) CALL GOPEN (ISCR7,ZB(1),RDREW) GO TO 8 95 CALL CLOSE (ISCR7,NOREW) GO TO 600 450 CALL CLOSE (ISCR7,NOREW) 500 SUCESS = .TRUE. 600 RETURN 700 FORMAT(1H0,//26H BEGIN REORTHOGONALIZATION,//) 701 FORMAT(1H ,13HUNPACK VECTOR,I4) 702 FORMAT(3H --,32(4H----),/(1H ,4E25.16)) 703 FORMAT(32H REORTHOGONALIZATION ITERATION,I3, 2 9X,14HTARGET VALUE =,E12.4,4X,8HERRORS =,4E12.4) 710 FORMAT(18H ORTHOGONAL VECTOR,I4, 2 39H IS NULL IN REORTHOGONALIZATION ROUTINE) 720 FORMAT(52H REORTHOGONALIZATION TOLERANCE TEMPORARILY RELAXED) END ================================================ FILE: mis/cf2fbs.f ================================================ SUBROUTINE CF2FBS (TPOSE,XOUT,IOBUF) C******* C CF2FBS PERFORMS THE DOUBLE-PRECISION FORWARD AND BACKWARD SWEEPS C FOR THE COMPLEX FEER METHOD. THESE SWEEPS CONSTITUTE THE C OPERATIONAL INVERSE (MATRIX INVERSION). C******* C DEFINITION OF INPUT AND OUTPUT PARAMETERS C******* C TPOSE = .FALSE. --- PERFORM OPERATION L * U C = .TRUE. --- PERFORM OPERATION U-TRANSPOSE * L-TRANSPOSE C XOUT = INPUT VECTOR GETS TRANSFORMED TO OUTPUT VECTOR C IOBUF = INPUT GINO BUFFER C******* DOUBLE PRECISION DTEMP ,XOUT(1) ,DA ,UNIDUM INTEGER NAME(2) ,IOBUF(1) ,EOL ,CDP LOGICAL TPOSE(1) ,SYMMET ,QPR COMMON /FEERAA/ AADUM(117),MCBLT(7),MCBUT(7) COMMON /FEERXC/ XCD01(4) ,SYMMET ,XCD02(9) ,NSWP 2 ,XCD03(6) ,QPR COMMON /ZNTPKX/ DA(2) ,II ,EOL COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW 2 ,REW ,NOREW ,EOFNRW ,RSP 3 ,RDP ,CSP ,CDP COMMON /SYSTEM/ KSYSTM ,NOUT EQUIVALENCE (AADUM(42),ISCR6) DATA NAME /4HCF2F,4HBS / C IF (QPR) WRITE (NOUT,8887) TPOSE(1),SYMMET,NSWP,ISCR6 8887 FORMAT(1H0,12HENTER CF2FBS,8X,11HTRANSPOSE =,L2,L9,2I10) JUNK = 0 IF (TPOSE(1) .AND. .NOT.SYMMET) GO TO 399 C******* C BELOW FOR OPERATION L * U C (LOGIC COPIED FROM SUBROUTINE CINFBS) C******* C BEGIN FORWARD PASS USING THE LOWER TRIANGLE C******* CALL GOPEN (MCBLT(1),IOBUF(1),RDREW) J = 1 100 CALL INTPK(*200,MCBLT(1),0,CDP,0) 110 IF (EOL) 3010,120,3010 120 CALL ZNTPKI IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J 8882 FORMAT(1H ,4HDA =,2D16.8,4X,4HII =,I6, 2 4X,5HEOL =,I2,4X,3HJ =,I4) IF (J-II) 184,130,110 C******* C PERFORM THE REQUIRED ROW INTERCHANGE C******* 130 IN1 = ( J + IFIX(SNGL(DA(1))) )*2 - 1 IF (QPR) WRITE (NOUT,8883) IN1,EOL 8883 FORMAT(1H ,3X,5HIN1 =,I6,4X,5HEOL =,I2) IN2 = IN1+1 J2 = 2*J UNIDUM = XOUT(J2) XOUT(J2) = XOUT(IN2) XOUT(IN2) = UNIDUM J2 = J2-1 UNIDUM = XOUT(J2) XOUT(J2) = XOUT(IN1) XOUT(IN1) = UNIDUM 160 IF (EOL) 200,170,200 170 CALL ZNTPKI IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J 184 II2 = 2*II II1 = II2-1 J2 = 2*J J1 = J2-1 XOUT(II1) = XOUT(II1) - DA(1)*XOUT(J1) + DA(2)*XOUT(J2) XOUT(II2) = XOUT(II2) - DA(2)*XOUT(J1) - DA(1)*XOUT(J2) GO TO 160 200 J = J+1 IF (J.LT.NSWP) GO TO 100 CALL CLOSE (MCBLT(1),REW) C******* C BEGIN BACKWARD PASS USING THE UPPER TRIANGLE C******* IOFF = MCBUT(7)-1 IF (QPR) WRITE (NOUT,8866) IOFF,MCBLT,MCBUT 8866 FORMAT(1H ,15(1X,I7)) CALL GOPEN (MCBUT(1),IOBUF(1),RDREW) J = NSWP 210 CALL INTPK(*3020,MCBUT(1),0,CDP,0) IF (EOL) 3020,230,3020 230 CALL ZNTPKI IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J I = NSWP - II + 1 IF (I.NE.J) GO TO 275 C******* C DIVIDE BY THE DIAGONAL C******* I2 = 2*I I1 = I2-1 UNIDUM = 1.D0/(DA(1)**2+DA(2)**2) DTEMP = (DA(1)*XOUT(I1)+DA(2)*XOUT(I2))*UNIDUM XOUT(I2) = (DA(1)*XOUT(I2)-DA(2)*XOUT(I1))*UNIDUM XOUT(I1) = DTEMP IF (QPR) WRITE (NOUT,8884) 8884 FORMAT(1H ,6X,8HDIAGONAL) C******* C SUBTRACT OFF REMAINING TERMS C******* 255 IF (I.GT.J) GO TO 230 IF (EOL) 300,270,300 270 CALL ZNTPKI IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J I = NSWP - II + 1 275 IN1 = I IN2 = J IF (I.LT.J) GO TO 279 K = IN1 IN1 = IN2-IOFF JUNK = 1 IF (IN1.LE.0) GO TO 3020 IN2 = K 279 IN1 = 2*IN1 IN2 = 2*IN2 II1 = IN1-1 II2 = IN2-1 IF (QPR) WRITE (NOUT,8820) I,J,II1,II2 8820 FORMAT(1H ,3HI =,I6,6X,3HJ =,I6,6X,5HII1 =,I6,6X,5HII2 =,I6) XOUT(II1) = XOUT(II1) - DA(1)*XOUT(II2) + DA(2)*XOUT(IN2) XOUT(IN1) = XOUT(IN1) - DA(2)*XOUT(II2) - DA(1)*XOUT(IN2) GO TO 255 300 J = J-1 IF (J.GT.0) GO TO 210 CALL CLOSE (MCBUT(1),REW) GO TO 4000 C******* C BELOW FOR OPERATION U-TRANSPOSE * L-TRANSPOSE C (LOGIC COPIED FROM SUBROUTINE CDIFBS) C******* C BEGIN THE FORWARD PASS USING THE UPPER TRIANGLE C******* 399 IOFF = MCBUT(7)-1 IF (QPR) WRITE (NOUT,2216) IOFF 2216 FORMAT(1H ,30X,6HIOFF =,I10) MCSAVE = MCBUT(1) MCBUT(1) = ISCR6 CALL GOPEN (MCBUT(1),IOBUF(1),RDREW) DO 500 I = 1,NSWP IF (QPR) WRITE (NOUT,2218) I 2218 FORMAT(1H ,12HLOOP INDEX =,I6) J = I+I CALL INTPK(*500,MCBUT(1),0,CDP,0) 410 CALL ZNTPKI IF (QPR) WRITE (NOUT,2224) II,EOL,DA 2224 FORMAT(1H ,4HII =,I14,6X,5HEOL =,I2, 2 8X,4HDA =,2D16.8) IF (II-I) 430,420,440 C******* C DIVIDE BY THE DIAGONAL C******* 420 I1 = J-1 UNIDUM = 1.D0/(DA(1)**2+DA(2)**2) DTEMP = (XOUT(I1)*DA(1) + XOUT(J)*DA(2))*UNIDUM XOUT(J) = (XOUT(J)*DA(1) - XOUT(I1)*DA(2))*UNIDUM XOUT(I1) = DTEMP IF (QPR) WRITE (NOUT,8884) GO TO 490 C******* C SUBTRACT OFF NORMAL TERM C******* 430 I2 = II+II I1 = I2-1 J1 = J-1 XOUT(J1) = XOUT(J1) - XOUT(I1)*DA(1) + XOUT(I2)*DA(2) XOUT(J) = XOUT(J) - XOUT(I1)*DA(2) - XOUT(I2)*DA(1) GO TO 490 C******* C SUBTRACT OFF ACTIVE COLUMN TERMS C******* 440 K = (I-IOFF)*2 JUNK = 1 IN1 = K IF (IN1.LE.0) GO TO 3020 I2 = II+II I1 = I2-1 J1 = K-1 XOUT(I1) = XOUT(I1) - XOUT(J1)*DA(1) + XOUT(K)*DA(2) XOUT(I2) = XOUT(I2) - XOUT(K)*DA(1) - XOUT(J1)*DA(2) 490 IF (EOL) 500,410,500 500 CONTINUE CALL CLOSE (MCBUT(1),REW) MCBUT(1) = MCSAVE C******* C BEGIN BACKWARD PASS USING THE LOWER TRIANGLE C******* CALL GOPEN (MCBLT(1),IOBUF(1),RDREW) CALL SKPREC (MCBLT(1),NSWP) DO 600 I = 1,NSWP IF (QPR) WRITE (NOUT,2218) I CALL BCKREC (MCBLT(1)) INTCHN = 0 CALL INTPK(*600,MCBLT(1),0,CDP,0) J = (NSWP-I+1)*2 520 CALL ZNTPKI IF (QPR) WRITE (NOUT,2224) II,EOL,DA IF (II.NE.NSWP-I+1) GO TO 550 IF (II.LT.J/2) GO TO 3010 C******* C PERFORM THE INTERCHANGE C******* INTCHN = IFIX(SNGL(DA(1)))*2 IF (QPR) WRITE (NOUT,2226) INTCHN 2226 FORMAT(1H ,4X,11HINTERCHANGE,I6) GO TO 590 530 IN1 = J+INTCHN IF (QPR) WRITE (NOUT,2232) J,INTCHN,IN1 2232 FORMAT(1H ,15X,3I6) DTEMP = XOUT(J) XOUT(J) = XOUT(IN1) XOUT(IN1) = DTEMP J1 = J-1 I1 = IN1-1 DTEMP = XOUT(J1) XOUT(J1) = XOUT(I1) XOUT(I1) = DTEMP GO TO 600 550 J1 = J-1 I2 = II+II I1 = I2-1 XOUT(J1) = XOUT(J1) - XOUT(I1)*DA(1) + XOUT(I2)*DA(2) XOUT(J) = XOUT(J) - XOUT(I1)*DA(2) - XOUT(I2)*DA(1) 590 IF (EOL) 595,520,595 595 IF (INTCHN) 600,600,530 600 CALL BCKREC (MCBLT(1)) CALL CLOSE (MCBLT(1),REW) GO TO 4000 3010 J = MCBLT(1) GO TO 3040 3020 J = MCBUT(1) 3040 CALL MESAGE (-5,J,NAME) 4000 CONTINUE IF (QPR.AND.JUNK.EQ.0) WRITE (NOUT,5516) 5516 FORMAT(1H0,30X,13HIOFF NOT USED,/1H ) IF (QPR.AND.JUNK.NE.0) WRITE (NOUT,5518) 5518 FORMAT(1H0,30X,13HIOFF WAS USED,/1H ) RETURN END ================================================ FILE: mis/cf2ort.f ================================================ SUBROUTINE CF2ORT (SUCESS,MAXITS,TEN2MT,NZERO,IORTHO, 2 VR,VL,V1,V1L,V2,V2L,ZB) C******* C CF2ORT IS A DOUBLE-PRECISION ROUTINE (CREATED FOR USE BY C THE COMPLEX FEER METHOD) WHICH PERFORMS THE C REORTHOGONALIZATION ALGORITHM C******* C DEFINITION OF INPUT AND OUTPUT PARAMETERS C******* C SUCESS = LOGICAL INDICATOR FOR SUCCESSFUL REORTHOGONALIZATION C (OUTPUT) C MAXITS = MAXIMUM NUMBER OF ALLOWED ITERATIONS (INPUT) C TEN2MT = CONVERGENCE CRITERION C NZERO = NUMBER OF ORTHOGONAL VECTOR PAIRS IN PRIOR C NEIGHBORHOODS INCLUDING RESTART C IORTHO = NUMBER OF EXISTING ORTHOGONAL VECTOR PAIRS C IN CURRENT NEIGHBORHOOD C VR = RIGHT-HANDED VECTOR TO BE REORTHOGONALIZED C VL = LEFT -HANDED VECTOR TO BE REORTHOGONALIZED C V1,V1L, = WORKING SPACE FOR FOUR VECTORS (V1L MUST C V2,V2L FOLLOW V1 IN CORE) C ZB = WORKING SPACE FOR ONE GINO BUFFER C******* DOUBLE PRECISION VR(1) ,VL(1) ,V1(1) ,V1L(1) 2 ,V2(1) ,V2L(1) ,CRITF ,OTEST(4) 3 ,A(2) LOGICAL SUCESS ,QPR ,SKIP INTEGER ZB(1) COMMON /FEERAA/ DUMAA(42),ISCR7 COMMON /FEERXC/ DUMXC(7) ,IDIAG ,XCDUM(3) ,NORD2 2 ,XCDUM2(9),QPR ,XCDUM3(5),NUMORT COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW 2 ,REW ,NOREW ,EOFNRW COMMON /SYSTEM/ KSYS ,NOUT MORTHO = NZERO+IORTHO IF (MORTHO.LE.0) GO TO 500 IF (QPR) WRITE (NOUT,700) NUMORT = NUMORT + 1 K = 0 SUCESS = .FALSE. NN = NORD2 CRITF = 100.D0*DBLE(TEN2MT)**2 DO 5 I = 1,NORD2 V2 (I) = VR(I) 5 V2L(I) = VL(I) CALL GOPEN (ISCR7,ZB(1),RDREW) 8 DO 9 I = 1,4 9 OTEST(I) = 0.D0 LL = 2 C******* C ENTER LOOP C******* DO 40 I = 1,MORTHO IF (I.EQ.NZERO+1) LL = 0 IF (QPR) WRITE (NOUT,701) I C VALUES ARE UNPACKED INTO BOTH V1 AND V1L CALL UNPACK(*10,ISCR7,V1(1)) IF (.NOT.QPR) GO TO 20 WRITE (NOUT,702) (V1 (J),J=1,NORD2) WRITE (NOUT,702) (V1L(J),J=1,NORD2) GO TO 20 10 IF (IDIAG.NE.0) WRITE (NOUT,710) I GO TO 40 C******* C OBTAIN RIGHT-HAND INNER-PRODUCT TERM C******* 20 CALL CFNOR2 (VR(1),V1L(1),NORD2,1,A(1)) C******* C SUBTRACT OFF RIGHT-HAND INNER-PRODUCT TERM C******* DO 25 J = 1,NORD2,2 L = J+1 V2(J) = V2(J) - A(1)*V1(J) + A(2)*V1(L) 25 V2(L) = V2(L) - A(1)*V1(L) - A(2)*V1(J) C******* C COMPUTE MAXIMUM RIGHT-HAND SQUARED-ERROR C******* A(1) = A(1)**2+A(2)**2 IF (OTEST(LL+1).LT.A(1)) OTEST(LL+1) = A(1) C******* C OBTAIN LEFT-HAND INNER-PRODUCT TERM C******* CALL CFNOR2 (VL(1),V1(1),NORD2,1,A(1)) C******* C SUBTRACT OFF LEFT-HAND INNER-PRODUCT TERM C******* DO 30 J = 1,NORD2,2 L = J+1 V2L(J) = V2L(J) - A(1)*V1L(J) + A(2)*V1L(L) 30 V2L(L) = V2L(L) - A(1)*V1L(L) - A(2)*V1L(J) C******* C COMPUTE MAXIMUM LEFT-HAND SQUARED-ERROR C******* A(1) = A(1)**2+A(2)**2 IF (OTEST(LL+2).LT.A(1)) OTEST(LL+2) = A(1) 40 CONTINUE DO 50 I = 1,NORD2 VR(I) = V2 (I) 50 VL(I) = V2L(I) SKIP = .FALSE. IF (.NOT.QPR) GO TO 91 WRITE (NOUT,702) (VR(I),I=1,NORD2) WRITE (NOUT,702) (VL(I),I=1,NORD2) C******* C TEST FOR CONVERGENCE C******* 91 IF (IDIAG.NE.0) WRITE (NOUT,703) K,CRITF,OTEST IF (OTEST(1).LE.CRITF .AND. OTEST(2).LE.CRITF .AND. 2 OTEST(3).LE.CRITF .AND. OTEST(4).LE.CRITF) GO TO 450 IF (SKIP) GO TO 92 IF (K.NE.1.AND.K.NE.3.AND.K.NE.5) GO TO 92 IF (IDIAG.NE.0) WRITE (NOUT,720) CRITF = 100.D0*CRITF SKIP = .TRUE. GO TO 91 92 K = K + 1 IF (K.GT.MAXITS) GO TO 95 CALL CLOSE (ISCR7,EOFNRW) CALL GOPEN (ISCR7,ZB(1),RDREW) GO TO 8 95 CALL CLOSE (ISCR7,NOREW) GO TO 600 450 CALL CLOSE (ISCR7,NOREW) 500 SUCESS = .TRUE. 600 RETURN 700 FORMAT(1H0,//26H BEGIN REORTHOGONALIZATION,//) 701 FORMAT(1H ,13HUNPACK VECTOR,I4) 702 FORMAT(3H --,32(4H----),/(1H ,4D25.16)) 703 FORMAT(32H REORTHOGONALIZATION ITERATION,I3, 2 9X,14HTARGET VALUE =,D12.4,4X,8HERRORS =,4D12.4) 710 FORMAT(18H ORTHOGONAL VECTOR,I4, 2 39H IS NULL IN REORTHOGONALIZATION ROUTINE) 720 FORMAT(52H REORTHOGONALIZATION TOLERANCE TEMPORARILY RELAXED) END ================================================ FILE: mis/cfactr.f ================================================ SUBROUTINE CFACTR (A,LL,UL,SCR1,SCR2,SCR3,IOPT) C INTEGER FA ,FL ,FU ,SR1 , 1 SR2 ,SR3 ,UL ,SCR1 , 2 SCR2 ,SCR3 ,A , 3 MCB(7) ,NAME(2) DOUBLE PRECISION DET ,MIND COMMON /CDCMPX/ FA(7) ,FL(7) ,FU(7) ,SR1 , 1 SR2 ,SR3 ,DET(2) ,POWR , 2 NX ,MIND ,IB ,IBBAR COMMON /SFACT / MFA(7) ,MFL(7) ,MFC(7) ,M1FIL , 1 M2FIL ,MXX ,D(5) ,M3FIL , 2 D1(2) ,ICHOL COMMON /SDCCSP/ JFA(7) ,JFL(7) ,JFC(7) ,J1FIL , 1 J2FIL ,JX COMMON /ZZZZZZ/ IZ(1) DATA NAME / 4HCFAC,4HTR / C C NZ = KORSZ(IZ) MCB(1) = A CALL RDTRL (MCB) IF (MCB(4) .NE. 6) GO TO 200 C C SYMMETRIC COMPLEX C DO 10 I = 1,7 MFA(I) = MCB(I) MFL(I) = MCB(I) MFC(I) = MCB(I) 10 CONTINUE MFL(1) = LL MFC(1) = UL MFL(4) = 4 MFC(4) = 5 M1FIL = SCR1 M2FIL = SCR2 MXX = NZ M3FIL = SCR3 ICHOL = 0 CALL SDCOMP (*900,IZ,IZ,IZ) CALL WRTTRL (MFL) IOPT = 2 GO TO 60 C C UNSYMMETRIC COMPLEX C 200 DO 210 I = 1,7 FA(I) = MCB(I) FL(I) = MCB(I) FU(I) = MCB(I) 210 CONTINUE FL(1) = LL FU(1) = UL FL(4) = 4 FU(4) = 5 SR1 = SCR1 SR2 = SCR2 SR3 = SCR3 NX = NZ C IB = 0 C C IF IB IS SET TO ZERO HERE, T08021 PRINTS 27 MORE MESSAGES 3027 C AND 3028 FROM GENVEC WHICH IS CALLED BY CFACTR, WHCIH IS CALLED BY C FRD2C, IN FRRD2 MODULE C CIBMI 6/93 IBBAR = 0 CALL CDCOMP (*900,IZ,IZ,IZ) CALL WRTTRL (FU) CALL WRTTRL (FL) IOPT = 1 60 RETURN C C ERRORS C 900 CALL MESAGE (-5,A,NAME) C RETURN END ================================================ FILE: mis/cfbsor.f ================================================ SUBROUTINE CFBSOR (LL,UL,BX,XX,IOPT) C INTEGER UL,BX,XX,MCB(7) COMMON /ZZZZZZ/ IZ(1) COMMON /GFBSX / JFL(7), JFU(7),JFB(7),JFX(7),JX,JPREC,JSIGN COMMON /FBSX / MFL(7),MFLT(7),MFB(7),MFX(7),MX,MPREC,MSIGN COMMON /SYSTEM/ IDUM(54),IPREC C NZ = KORSZ(IZ) MCB(1) = IABS(BX) CALL RDTRL (MCB) IF (IOPT .EQ. 1) GO TO 100 C C SYMETRIC FBS C MFL(1) = LL CALL RDTRL (MFL) DO 10 I = 1,7 MFB(I) = MCB(I) MFX(I) = MCB(I) 10 CONTINUE MFX(1) = XX MX = NZ MFX(5) = MAX0(MFL(5),MFB(5)) MPREC = IPREC MSIGN = +1 IF (BX .LT. 0) MSIGN = -1 CALL FBS (IZ,IZ) CALL WRTTRL (MFX) 20 RETURN C C UNSYMETRIC FBS C 100 JFL(1) = LL CALL RDTRL (JFL) JFU(1) = UL CALL RDTRL (JFU) DO 110 I = 1,7 JFB(I) = MCB(I) JFX(I) = MCB(I) 110 CONTINUE JFX(1) = XX JX = NZ JPREC = IPREC JFX(5) = MAX0(JFL(5),JFB(5)) JSIGN = +1 IF (BX .LT. 0) JSIGN = -1 CALL GFBS (IZ,IZ) CALL WRTTRL (JFX) GO TO 20 END ================================================ FILE: mis/cfe1ao.f ================================================ SUBROUTINE CFE1AO (TPOSE,V1,V2,V3,ZB) C******* C CFE1AO IS A SINGLE PRECISION ROUTINE WHICH PERFORMS THE OPERATION C (A) OR (A)-TRANSPOSE FOR THE COMPLEX FEER METHOD. THIS OPERATION C IS CALLED THE EIGENMATRIX MULTIPLICATION. C******* C DEFINITION OF INPUT AND OUTPUT PARAMETERS C******* C TPOSE = .FALSE. --- PERFORM OPERATION (A) C = .TRUE. --- PERFORM OPERATION (A)-TRANSPOSE C V1 = INPUT VECTOR C V2 = OUTPUT VECTOR C V3 = INPUT WORKING SPACE (FOR INTERNAL USE) C ZB = INPUT GINO BUFFER C******* DIMENSION V1(1) ,V2(1) ,V3(1) ,ZB(1) LOGICAL TPOSE(1) ,NO B ,QPR REAL LAMBDA COMMON /FEERAA/ IK(7) ,IM(7) ,IB(7) ,DUMAA(117) 2 ,MCBLMB(7) COMMON /FEERXC/ LAMBDA(4),DUM01(2) ,NORD ,IDIAG 2 ,EPSDUM(2),NORTHO ,NORD2 ,NORD4 3 ,NORDP1 ,DUM02(2) ,NO B ,DUM03(4) 4 ,QPR COMMON /SYSTEM/ KSYS ,NOUT C******* IF (QPR) WRITE (NOUT,8881) TPOSE 8881 FORMAT(1H0,12HENTER CFE1AO,8X,11HTRANSPOSE =,L2) IF (TPOSE(1)) GO TO 50 C******* C PERFORM OPERATION (A) = EIGENMATRIX MULTIPLICATION C******* IF ( NO B ) GO TO 30 C******* C MULTIPLY LOWER HALF OF INPUT VECTOR BY MASS MATRIX C******* CALL CFE1MY (TPOSE(1),V1(NORDP1),V3(1),IM(1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V3(I),I=1,NORD) 8882 FORMAT(3H --,32(4H----),/(1H ,6E21.13)) C******* C MULTIPLY UPPER HALF OF INPUT VECTOR BY -(LAMBDA*M+B) C******* CALL CFE1MY (TPOSE(1),V1(1),V3(NORDP1),MCBLMB(1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V3(I),I=NORDP1,NORD2) C******* C CALCULATE RIGHT-HAND SIDE OF SWEEP EQUATION C******* DO 10 I = 1,NORD J = NORD+I 10 V2(I) = -V3(I) + V3(J) IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD) C******* C PERFORM FORWARD AND BACKWARD SWEEPS C (GENERATES UPPER HALF OF OUTPUT VECTOR) C******* CALL CF1FBS (TPOSE(1),V2(1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD) C******* C COMPUTE LOWER HALF OF OUTPUT VECTOR C******* DO 20 I = 1,NORD,2 J = I+1 NI = NORD+I NJ = NI+1 V2(NI) = V1(I) + LAMBDA(1)*V2(I) - LAMBDA(3)*V2(J) 20 V2(NJ) = V1(J) + LAMBDA(1)*V2(J) + LAMBDA(3)*V2(I) IF (QPR) WRITE (NOUT,8882) (V2(I),I=NORDP1,NORD2) GO TO 200 C******* C DAMPING MATRIX ABSENT C******* C MULTIPLY INPUT VECTOR BY MASS MATRIX C******* 30 CALL CFE1MY (TPOSE(1),V1(1),V2(1),IM(1),ZB(1)) DO 40 I = 1,NORD2 40 V2(I) = -V2(I) IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD2) C******* C PERFORM FORWARD AND BACKWARD SWEEPS C******* CALL CF1FBS (TPOSE(1),V2(1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD2) GO TO 200 C******* C PERFORM OPERATION (A)-TRANSPOSE = TRANSPOSED EIGENMATRIX C MULTIPLICATION C******* 50 IF ( NO B ) GO TO 90 C******* C CALCULATE RIGHT-HAND SIDE OF SWEEP EQUATION C******* DO 60 I = NORDP1,NORD2,2 J = I+1 NI = I-NORD NJ = NI+1 V3(I) = V1(NI) + LAMBDA(1)*V1(I) - LAMBDA(3)*V1(J) 60 V3(J) = V1(NJ) + LAMBDA(1)*V1(J) + LAMBDA(3)*V1(I) IF (QPR) WRITE (NOUT,8882) (V3(I),I=NORDP1,NORD2) C******* C PERFORM BACKWARD AND FORWARD SWEEPS C******* CALL CF1FBS (TPOSE(1),V3(NORDP1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V3(I),I=NORDP1,NORD2) C******* C MULTIPLY SWEEP OUTPUT VECTOR BY -(LAMBDA*M+B)-TRANSPOSE C******* CALL CFE1MY (TPOSE(1),V3(NORDP1),V3(1),MCBLMB(1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V3(I),I=1,NORD) C******* C COMPUTE UPPER HALF OF OUTPUT VECTOR C******* DO 70 I = 1,NORD J = NORD+I 70 V2(I) = V1(J) + V3(I) IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD) C******* C MULTIPLY SWEEP OUTPUT VECTOR BY TRANSPOSED MASS MATRIX C (GENERATES NEGATIVE OF LOWER HALF OF OUTPUT VECTOR) C******* CALL CFE1MY (TPOSE(1),V3(NORDP1),V2(NORDP1),IM(1),ZB(1)) DO 80 I = NORDP1,NORD2 80 V2(I) = -V2(I) IF (QPR) WRITE (NOUT,8882) (V2(I),I=NORDP1,NORD2) GO TO 200 C******* C DAMPING MATRIX ABSENT C******* C PERFORM BACKWARD AND FORWARD SWEEPS C******* 90 DO 95 I = 1,NORD2 95 V3(I) = V1(I) CALL CF1FBS (TPOSE(1),V3(1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V3(I),I=1,NORD2) C******* C MULTIPLY SWEEP OUTPUT VECTOR BY TRANSPOSED MASS MATRIX C******* CALL CFE1MY (TPOSE(1),V3(1),V2(1),IM(1),ZB(1)) DO 100 I = 1,NORD2 100 V2(I) = -V2(I) IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD2) 200 RETURN END ================================================ FILE: mis/cfe1my.f ================================================ SUBROUTINE CFE1MY (TPOSE,Y,X,FILE,BUF) C******* C CFE1MY FORMS THE COMPLEX SINGLE PRECISION MATRIX C PRODUCT X = M*Y FOR THE COMPLEX FEER METHOD C******* C DEFINITION OF INPUT AND OUTPUT PARAMETERS C******* C TPOSE = .FALSE. --- USE MATRIX M C = .TRUE. --- USE MATRIX M-TRANSPOSE C Y = INPUT VECTOR C X = OUTPUT VECTOR C FILE = INPUT MATRIX CONTROL BLOCK FOR THE C REQUIRED MATRIX C BUF = INPUT REQUIRED GINO BUFFER C******* DIMENSION X(1) ,Y(1) INTEGER FILE(7) ,BUF(1) ,EOL ,DIAG LOGICAL TPOSE(1) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW 2 ,REW ,NOREW ,EOFNRW ,RSP 3 ,RDP ,CSP ,CDP ,SQR 4 ,RECT ,DIAG ,LOWTRI ,UPRTRI 5 ,SYM ,ROW ,IDENTY COMMON /ZNTPKX/ DA(4) ,II ,EOL NCOL2 = FILE(2)+FILE(2) IF (FILE(4).EQ.IDENTY) GO TO 50 CALL GOPEN (FILE(1),BUF(1),RDREW) DO 10 I = 1,NCOL2 10 X(I) = 0. IF (FILE(4).EQ.DIAG) GO TO 40 IF (TPOSE(1)) GO TO 31 C******* C GENERAL MATRIX*VECTOR PRODUCT C******* DO 30 I = 1,NCOL2,2 J = I+1 IF (Y(I).EQ.0..AND.Y(J).EQ.0.) GO TO 25 CALL INTPK(*30,FILE(1),0,CSP,0) 22 CALL ZNTPKI JJ = II+II II = JJ-1 X(II) = X(II) + DA(1)*Y(I) - DA(2)*Y(J) X(JJ) = X(JJ) + DA(1)*Y(J) + DA(2)*Y(I) IF (EOL) 30,22,30 25 CALL SKPREC (FILE(1),1) 30 CONTINUE GO TO 80 C******* C GENERAL MATRIX-TRANSPOSE*VECTOR PRODUCT C******* 31 DO 36 I = 1,NCOL2,2 J = I+1 CALL INTPK(*36,FILE(1),0,CSP,0) 32 CALL ZNTPKI JJ = II+II II = JJ-1 X(I) = X(I) + DA(1)*Y(II) - DA(2)*Y(JJ) X(J) = X(J) + DA(1)*Y(JJ) + DA(2)*Y(II) IF (EOL) 36,32,36 36 CONTINUE GO TO 80 C******* C MATRIX IS DIAGONAL C******* 40 CALL INTPK(*80,FILE(1),0,CSP,0) 45 CALL ZNTPKI JJ = II+II II = JJ-1 X(II) = DA(1)*Y(II) - DA(2)*Y(JJ) X(JJ) = DA(1)*Y(JJ) + DA(2)*Y(II) IF (EOL) 80,45,80 C******* C MATRIX IS IDENTITY C******* 50 DO 55 I = 1,NCOL2 55 X(I) = Y(I) GO TO 90 80 CALL CLOSE (FILE(1),REW) 90 RETURN END ================================================ FILE: mis/cfe2ao.f ================================================ SUBROUTINE CFE2AO (TPOSE,V1,V2,V3,ZB) C******* C CFE2AO IS A DOUBLE PRECISION ROUTINE WHICH PERFORMS THE OPERATION C (A) OR (A)-TRANSPOSE FOR THE COMPLEX FEER METHOD. THIS OPERATION C IS CALLED THE EIGENMATRIX MULTIPLICATION. C******* C DEFINITION OF INPUT AND OUTPUT PARAMETERS C******* C TPOSE = .FALSE. --- PERFORM OPERATION (A) C = .TRUE. --- PERFORM OPERATION (A)-TRANSPOSE C V1 = INPUT VECTOR C V2 = OUTPUT VECTOR C V3 = INPUT WORKING SPACE (FOR INTERNAL USE) C ZB = INPUT GINO BUFFER C******* DOUBLE PRECISION V1(1) ,V2(1) ,V3(1) ,LAMBDA LOGICAL TPOSE(1) ,NO B ,QPR DIMENSION ZB(1) COMMON /FEERAA/ IK(7) ,IM(7) ,IB(7) ,DUMAA(117) 2 ,MCBLMB(7) COMMON /FEERXC/ LAMBDA(2),DUM01(2) ,NORD ,IDIAG 2 ,EPSDUM(2),NORTHO ,NORD2 ,NORD4 3 ,NORDP1 ,DUM02(2) ,NO B ,DUM03(4) 4 ,QPR COMMON /SYSTEM/ KSYS ,NOUT C******* IF (QPR) WRITE (NOUT,8881) TPOSE 8881 FORMAT(1H0,12HENTER CFE2AO,8X,11HTRANSPOSE =,L2) IF (TPOSE(1)) GO TO 50 C******* C PERFORM OPERATION (A) = EIGENMATRIX MULTIPLICATION C******* IF ( NO B ) GO TO 30 C******* C MULTIPLY LOWER HALF OF INPUT VECTOR BY MASS MATRIX C******* CALL CFE2MY (TPOSE(1),V1(NORDP1),V3(1),IM(1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V3(I),I=1,NORD) 8882 FORMAT(3H --,32(4H----),/(1H ,6D21.13)) C******* C MULTIPLY UPPER HALF OF INPUT VECTOR BY -(LAMBDA*M+B) C******* CALL CFE2MY (TPOSE(1),V1(1),V3(NORDP1),MCBLMB(1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V3(I),I=NORDP1,NORD2) C******* C CALCULATE RIGHT-HAND SIDE OF SWEEP EQUATION C******* DO 10 I = 1,NORD J = NORD+I 10 V2(I) = -V3(I) + V3(J) IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD) C******* C PERFORM FORWARD AND BACKWARD SWEEPS C (GENERATES UPPER HALF OF OUTPUT VECTOR) C******* CALL CF2FBS (TPOSE(1),V2(1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD) C******* C COMPUTE LOWER HALF OF OUTPUT VECTOR C******* DO 20 I = 1,NORD,2 J = I+1 NI = NORD+I NJ = NI+1 V2(NI) = V1(I) + LAMBDA(1)*V2(I) - LAMBDA(2)*V2(J) 20 V2(NJ) = V1(J) + LAMBDA(1)*V2(J) + LAMBDA(2)*V2(I) IF (QPR) WRITE (NOUT,8882) (V2(I),I=NORDP1,NORD2) GO TO 200 C******* C DAMPING MATRIX ABSENT C******* C MULTIPLY INPUT VECTOR BY MASS MATRIX C******* 30 CALL CFE2MY (TPOSE(1),V1(1),V2(1),IM(1),ZB(1)) DO 40 I = 1,NORD2 40 V2(I) = -V2(I) IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD2) C******* C PERFORM FORWARD AND BACKWARD SWEEPS C******* CALL CF2FBS (TPOSE(1),V2(1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD2) GO TO 200 C******* C PERFORM OPERATION (A)-TRANSPOSE = TRANSPOSED EIGENMATRIX C MULTIPLICATION C******* 50 IF ( NO B ) GO TO 90 C******* C CALCULATE RIGHT-HAND SIDE OF SWEEP EQUATION C******* DO 60 I = NORDP1,NORD2,2 J = I+1 NI = I-NORD NJ = NI+1 V3(I) = V1(NI) + LAMBDA(1)*V1(I) - LAMBDA(2)*V1(J) 60 V3(J) = V1(NJ) + LAMBDA(1)*V1(J) + LAMBDA(2)*V1(I) IF (QPR) WRITE (NOUT,8882) (V3(I),I=NORDP1,NORD2) C******* C PERFORM BACKWARD AND FORWARD SWEEPS C******* CALL CF2FBS (TPOSE(1),V3(NORDP1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V3(I),I=NORDP1,NORD2) C******* C MULTIPLY SWEEP OUTPUT VECTOR BY -(LAMBDA*M+B)-TRANSPOSE C******* CALL CFE2MY (TPOSE(1),V3(NORDP1),V3(1),MCBLMB(1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V3(I),I=1,NORD) C******* C COMPUTE UPPER HALF OF OUTPUT VECTOR C******* DO 70 I = 1,NORD J = NORD+I 70 V2(I) = V1(J) + V3(I) IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD) C******* C MULTIPLY SWEEP OUTPUT VECTOR BY TRANSPOSED MASS MATRIX C (GENERATES NEGATIVE OF LOWER HALF OF OUTPUT VECTOR) C******* CALL CFE2MY (TPOSE(1),V3(NORDP1),V2(NORDP1),IM(1),ZB(1)) DO 80 I = NORDP1,NORD2 80 V2(I) = -V2(I) IF (QPR) WRITE (NOUT,8882) (V2(I),I=NORDP1,NORD2) GO TO 200 C******* C DAMPING MATRIX ABSENT C******* C PERFORM BACKWARD AND FORWARD SWEEPS C******* 90 DO 95 I = 1,NORD2 95 V3(I) = V1(I) CALL CF2FBS (TPOSE(1),V3(1),ZB(1)) IF (QPR) WRITE (NOUT,8882) (V3(I),I=1,NORD2) C******* C MULTIPLY SWEEP OUTPUT VECTOR BY TRANSPOSED MASS MATRIX C******* CALL CFE2MY (TPOSE(1),V3(1),V2(1),IM(1),ZB(1)) DO 100 I = 1,NORD2 100 V2(I) = -V2(I) IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD2) 200 RETURN END ================================================ FILE: mis/cfe2my.f ================================================ SUBROUTINE CFE2MY (TPOSE,Y,X,FILE,BUF) C******* C CFE2MY FORMS THE COMPLEX DOUBLE PRECISION MATRIX C PRODUCT X = M*Y FOR THE COMPLEX FEER METHOD C******* C DEFINITION OF INPUT AND OUTPUT PARAMETERS C******* C TPOSE = .FALSE. --- USE MATRIX M C = .TRUE. --- USE MATRIX M-TRANSPOSE C Y = INPUT VECTOR C X = OUTPUT VECTOR C FILE = INPUT MATRIX CONTROL BLOCK FOR THE C REQUIRED MATRIX C BUF = INPUT REQUIRED GINO BUFFER C******* DOUBLE PRECISION X(1) ,Y(1) ,DA INTEGER FILE(7) ,BUF(1) ,EOL ,DIAG LOGICAL TPOSE(1) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW 2 ,REW ,NOREW ,EOFNRW ,RSP 3 ,RDP ,CSP ,CDP ,SQR 4 ,RECT ,DIAG ,LOWTRI ,UPRTRI 5 ,SYM ,ROW ,IDENTY COMMON /ZNTPKX/ DA(2) ,II ,EOL NCOL2 = FILE(2)+FILE(2) IF (FILE(4).EQ.IDENTY) GO TO 50 CALL GOPEN (FILE(1),BUF(1),RDREW) DO 10 I = 1,NCOL2 10 X(I) = 0.D0 IF (FILE(4).EQ.DIAG) GO TO 40 IF (TPOSE(1)) GO TO 31 C******* C GENERAL MATRIX*VECTOR PRODUCT C******* DO 30 I = 1,NCOL2,2 J = I+1 IF (Y(I).EQ.0.D0.AND.Y(J).EQ.0.D0) GO TO 25 CALL INTPK(*30,FILE(1),0,CDP,0) 22 CALL ZNTPKI JJ = II+II II = JJ-1 X(II) = X(II) + DA(1)*Y(I) - DA(2)*Y(J) X(JJ) = X(JJ) + DA(1)*Y(J) + DA(2)*Y(I) IF (EOL) 30,22,30 25 CALL SKPREC (FILE(1),1) 30 CONTINUE GO TO 80 C******* C GENERAL MATRIX-TRANSPOSE*VECTOR PRODUCT C******* 31 DO 36 I = 1,NCOL2,2 J = I+1 CALL INTPK(*36,FILE(1),0,CDP,0) 32 CALL ZNTPKI JJ = II+II II = JJ-1 X(I) = X(I) + DA(1)*Y(II) - DA(2)*Y(JJ) X(J) = X(J) + DA(1)*Y(JJ) + DA(2)*Y(II) IF (EOL) 36,32,36 36 CONTINUE GO TO 80 C******* C MATRIX IS DIAGONAL C******* 40 CALL INTPK(*80,FILE(1),0,CDP,0) 45 CALL ZNTPKI JJ = II+II II = JJ-1 X(II) = DA(1)*Y(II) - DA(2)*Y(JJ) X(JJ) = DA(1)*Y(JJ) + DA(2)*Y(II) IF (EOL) 80,45,80 C******* C MATRIX IS IDENTITY C******* 50 DO 55 I = 1,NCOL2 55 X(I) = Y(I) GO TO 90 80 CALL CLOSE (FILE(1),REW) 90 RETURN END ================================================ FILE: mis/cfeer.f ================================================ SUBROUTINE CFEER (EED,METHOD,NFOUND) C C PREVIOUS THIS ROUITNE IS CALLED CFCNTL C C GIVEN REAL OR COMPLEX MATRICES, CFEER WILL SOLVE FOR THE C REQUESTED NUMBER OF EIGENVALUES AND EIGENVECTORS CLOSEST TO A C SPECIFIED POINT IN THE COMPLEX PLANE, FOR UP TO TEN POINTS, C VIA THE TRIDIAGONAL REDUCTION (FEER) METHOD. C THE SUBROUTINE NAME CFEER STANDS FOR COMPLEX FEER CONTROL. C C DEFINITION OF INPUT AND OUTPUT PARAMETERS C C IK(7) = MATRIX CONTROL BLOCK FOR THE INPUT STIFFNESS MATRIX K C IM(7) = MATRIX CONTROL BLOCK FOR THE INPUT MASS MATRIX M C IB(7) = MATRIX CONTROL BLOCK FOR THE INPUT DAMPING MATRIX B C ILAM(7) = MATRIX CONTROL BLOCK FOR THE OUTPUT EIGENVALUES C IPHI(7) = MATRIX CONTROL BLOCK FOR THE OUTPUT EIGENVECTORS C IDMPFL = FILE CONTAINING THE EIGENVALUE SUMMARY C ISCR(11) = SCRATCH FILES USED INTERNALLY C REG(1,I) = INPUT REAL PART OF CENTER I (LAMBDA) C REG(2,I) = INPUT IMAGINARY PART OF CENTER I (LAMBDA) C REG(5,I) = PROBLEM SIZE MAXIMUM FOR SETTING QPR C REG(6,I) = SUPPRESSES ANY SPECIAL SYMMETRY LOGIC C REG(7,I) = NUMBER OF DESIRED ROOTS AROUND CENTER I C REG(8,1) = CONVERGENCE CRITERION (EQUIV. TO REG(1,2) TEMPORARILY) C LOGICAL NO B ,SYMMET ,QPR INTEGER METHOD ,EED ,NAME(2) ,IZ(1) , 1 EIGC(2) ,WANT(10) ,HAVE(10) DOUBLE PRECISION LAMBDA ,EPS DIMENSION IREG(7,1),IHEAD(10) CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /FEERAA/ IK(7) ,IM(7) ,IB(7) ,ILAM(7) , 1 IPHI(7) ,IDMPFL ,ISCR(11) ,REG(7,10) , 2 MCBLT(7) ,MCBUT(7) ,MCBVEC(7),MCBLMB(7) COMMON /FEERXC/ LAMBDA(2),SYMMET ,MREDUC ,NORD , 1 IDIAG ,EPS ,NORTHO ,NORD2 , 2 NORD4 ,NORDP1 ,NSWP ,JSKIP , 3 NO B ,IT ,TEN2MT ,TENMHT , 4 NSTART ,QPR ,JREG ,NOREG , 5 NZERO ,TENMTT ,MINOPN ,NUMORT , 6 NUMRAN COMMON /ZZZZZZ/ Z(1) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP COMMON /SYSTEM/ KSYSTM(65) COMMON /OUTPUT/ HEAD(1) EQUIVALENCE (IREG(1,1),REG(1,1)),(ANODES,NODES) , 1 (KSYSTM(2),NOUT) ,(KSYSTM(40),NBPW) , 2 (ASYM,NONSYM) ,(Z(1),IZ(1)) DATA EIGC / 207,2/ DATA IHEAD / 0,1009,2,7*0/ DATA NAME / 4HCFCN,4HTL / C C FILE ALLOCATION C C ISCR( 1) CONTAINS (LAMBDA**2*M + LAMBDA*B + K) = DYNAMIC MATRIX C ISCR( 2) CONTAINS -(LAMBDA*M + B) = NOT REQUIRED WHEN B = 0 C ISCR( 3) CONTAINS LOWER TRIANGLE OF DECOMPOSED DYNAMIC MATRIX C ISCR( 4) CONTAINS UPPER TRIANGLE OF DECOMPOSED DYNAMIC MATRIX C ISCR( 5) CONTAINS REDUCED TRIDIAGONAL MATRIX ELEMENTS C ISCR( 6) CONTAINS SPECIAL UPPER TRIANGLE FOR TRANSPOSED SWEEP C ISCR( 7) CONTAINS THE ORTHOGONAL VECTORS C ISCR( 8) CONTAINS OUTPUT EIGENVALUES , FOR INPUT TO CEAD1A C ISCR( 9) CONTAINS OUTPUT EIGENVECTORS, FOR INPUT TO CEAD1A C ISCR(10) SCRATCH FILE USED IN CFEER4 C ISCR(11) NOT USED C C DEFINITION OF INTERNAL PARAMETERS C C NODES = NUMBER OF DESIRED ROOTS IN CURRENT NEIGHBORHOOD C EPS = ACCURACY CRITERION - USED FOR REJECTING EIGENSOLUTIONS C NOREG = TOTAL NUMBER OF CENTERS (NEIGHBORHOODS) INPUT, C EQUIVALENT TO THE NUMBER OF EIGC CONTINUATION CARDS C JREG = COUNTER FOR CURRENT NEIGHBORHOOD C MREDUC = SIZE OF THE REDUCED PROBLEM IN CURRENT NEIGHBORHOOD C NFOUND = ACCUMULATED NUMBER OF ACCEPTABLE EIGENSOLUTIONS C NORD = 2*N IF B.NE.0 AND = N IF B.EQ.0, WHERE B IS THE C DAMPING MATRIX AND N IS THE PROBLEM SIZE C NORD2 = VECTOR SIZE OF ORIGINAL PROBLEM (COMPLEX SINGLE C PRECISION OR COMPLEX DOUBLE PRECISION) C NSWP = COMPLEX VECTOR SIZE FOR SWEEP ALGORITHM C NO B = LOGICAL INDICATOR FOR ABSENCE OF DAMPING MATRIX B C SYMMET = LOGICAL INDICATOR FOR SYMMETRIC DYNAMIC MATRIX C NONSYM = PROGRAM INPUT WHICH FORCES THE PROGRAM TO CONSIDER C THE DYNAMIC MATRIX AS NON-SYMMETRIC C IT = NUMBER OF DECIMAL DIGITS OF ACCURACY FOR THE COMPUTER C TEN2MT = 10**(2-T) CONVERGENCE CRITERION C TENMHT = 10**(-HALF*T) CONVERGENCE CRITERION C TENMTT = 10**(-THIRD*T) RIGID BODY ROOT CRITERION C NORTHO = TOTAL CURRENT NUMBER OF ORTHOGONAL VECTOR PAIRS ON C ORTHOGONAL VECTOR FILE. INITIALIZED TO NUMBER OF C EIGENVECTOR PAIRS ON THE RESTART FILE. C MINOPN = MINIMUM OPEN CORE NOT USED (WORDS) C NSTART = NUMBER OF INITIAL REORTHOGONALIZATION ATTEMPTS C IDIAG = DIAG 12 PRINT CONTROL C QPR = LOGICAL INDICATOR FOR VERY DETAILED PRINTOUT C WANT = ARRAY OF DESIRED NUMBER OF ROOTS IN EACH NEIGHBORHOOD C HAVE = ARRAY OF ACTUAL NUMBER OF ROOTS IN EACH NEIGHBORHOOD C NORTHO = 0 NFOUND = NORTHO NZERO = NORTHO JSKIP = 0 CALL SSWTCH (12,IDIAG) C C TEST COMPUTING MACHINE TYPE AND SET PRECISION PARAMETERS C IF (NBPW .GE. 60) GO TO 20 IT = 8*KSYSTM(55) GO TO 21 20 IT = 14*KSYSTM(55) 21 TEN2MT = 10.**(2-IT) TENMHT = 10.**(-IT/2) TENMTT = 10.**(-IT/3) IK(1) = 101 CALL RDTRL (IK) IM(1) = 103 CALL RDTRL (IM) IB(1) = 102 CALL RDTRL (IB) IF (IB(1).LT.0 .OR. IB(6).EQ.0) IB(1) = 0 C C DETERMINE IF THE DYNAMIC MATRIX IS SYMMETRIC C SYMMET = .FALSE. IF (IK(1).NE.0 .AND. IK(4).NE.6) GO TO 30 IF (IM(1).NE.0 .AND. IM(4).NE.6) GO TO 30 IF (IB(1).NE.0 .AND. IB(4).NE.6) GO TO 30 SYMMET = .TRUE. 30 DO 40 I = 1,11 40 ISCR(I)= 300+I IDMPFL = 203 NZ = KORSZ(Z) IBUF = NZ - KSYSTM(1) - 2 LIMSUM = 12 IOPN = IBUF - LIMSUM IF (IDIAG .NE. 0) WRITE (NOUT,600) IOPN IF (IOPN .LE. 0) CALL MESAGE (-8,0,NAME) MINOPN = IOPN ILAM(1)= 308 IPHI(1)= 309 IFILE = ILAM(1) CALL OPEN (*500,ILAM,Z(IBUF),WRTREW) CALL CLOSE (ILAM,REW) IFILE = IPHI(1) CALL OPEN (*500,IPHI,Z(IBUF),WRTREW) CALL CLOSE (IPHI,REW) CALL GOPEN (IDMPFL,Z(IBUF),WRTREW) CALL CLOSE (IDMPFL,EOFNRW) C C PROCURE DATA FROM MAIN EIGC CARD C IFILE = EED CALL PRELOC (*500,Z(IBUF),EED) CALL LOCATE (*500,Z(IBUF),EIGC(1),FLAG) 50 CALL FREAD (EED,IREG,10,0) IF (IREG(1,1) .EQ. METHOD) GO TO 70 60 CALL FREAD (EED,IREG,7,0) IF (IREG(6,1) .NE. -1) GO TO 60 GO TO 50 70 JREG = 1 EPS =.1D0/IK(2)/100.D0 IF (REG(1,2) .GT. 0.) EPS = DBLE(REG(1,2))/100.D0 UNIDUM= SNGL(EPS)*100. IF (IDIAG .NE. 0) WRITE (NOUT,75) UNIDUM,REG(1,2) 75 FORMAT (1H0,5HCFEER,6X,18HACCURACY CRITERION,1P,E16.8, 2 8X,12H(INPUT VALUE,E16.8,1H)) C C PROCURE DATA FROM EIGC CONTINUATION CARDS C 80 CALL FREAD (EED,IREG(1,JREG),7,0) IF (IREG(6,JREG) .EQ. -1) GO TO 90 JREG = JREG + 1 IF (JREG .GT. 10) GO TO 90 GO TO 80 90 CALL CLOSE (EED,REW) NOREG = JREG - 1 NODCMP = 0 NUMORT = 0 NUMRAN = 0 JREG = 0 C C PICK UP PARAMETERS FOR NEIGHBORHOOD I C 100 JREG = JREG + 1 IF (JREG .LE. NOREG) GO TO 105 JREG = NOREG IF (NZERO .GT. 0) JSKIP = -1 GO TO 175 105 X1 = REG(1,JREG) Y1 = REG(2,JREG) ANODES = REG(7,JREG) ASYM = REG(6,JREG) IF (NONSYM .NE. 0) SYMMET = .FALSE. NPRINT = IFIX(REG(5,JREG)) QPR = .FALSE. IF (IDIAG.NE.0 .AND. NPRINT.GE.IK(2)) QPR = .TRUE. IF (IDIAG .NE. 0) WRITE (NOUT,110) JREG,X1,Y1,NODES,NONSYM 110 FORMAT (1H0,5HCFEER,6X,12HNEIGHBORHOOD,I3,8X,8HCENTER =,2F18.8, 1 8X,15HNO. DES. RTS. =,I5,8X,8HNONSYM =,I2/1H ) C C TEST IF USER PICKED THE ORIGIN C IF (X1.NE.0. .OR. Y1.NE.0.) GO TO 120 X1 = X1 + .001 WRITE (NOUT,601) UWM 120 IF (NODES .GT. 0) GO TO 130 WRITE (NOUT,602) UWM,NODES NODES = 1 130 WANT(JREG) = NODES HAVE(JREG) = 0 NORD = 2*IK(2) NO B = .FALSE. IF (IB(1) .GT. 0) GO TO 140 NO B = .TRUE. NORD = IK(2) 140 NSWP = IK(2) NORD2 = 2*NORD NORD4 = 2*NORD2 NORDP1= NORD + 1 MREDUC= 2*NODES + 10 NOMNF = NORD - NFOUND IF (MREDUC .GT. NOMNF) MREDUC = NOMNF LAMBDA(1) = X1 LAMBDA(2) = Y1 IF (NODES .GT. NORD) WRITE (NOUT,606) UWM,NODES,JREG,NOREG,LAMBDA, 1 NORD ISING = 0 C C FORM (LAMBDA**2*M + LAMBDA*B + K) = THE DYNAMIC MATRIX C 150 CALL CFEER1 C C CALL IN CDCOMP TO DECOMPOSE THE DYNAMIC MATRIX C NODCMP = NODCMP + 1 CALL CFEER2 (IRET) IF (IRET .NE. 0) GO TO 160 GO TO 170 160 IRET = IRET + ISING WRITE (NOUT,603) UWM,IRET,LAMBDA IF (ISING .EQ. 1) GO TO 100 C C SINGULAR MATRIX. INCREMENT LAMBDA AND TRY ONCE MORE. C ISING = 1 LAMBDA(1) = LAMBDA(1) + .02D0 LAMBDA(2) = LAMBDA(2) + .02D0 GO TO 150 C C CALL IN DRIVER TO GENERATE REDUCED TRIDIAGONAL MATRIX C 170 CALL CFEER3 IF (NSTART .GT. 2) GO TO 100 C C OBTAIN EIGENVALUES AND EIGENVECTORS C CALL CFEER4 HAVE(JREG) = MREDUC IF (MREDUC .LE. NODES) GO TO 180 I = MREDUC - NODES WRITE (NOUT,607) UIM,I,NODES,JREG,NOREG,LAMBDA 180 NFOUND = NFOUND + MREDUC IF (JREG.LT.NOREG .AND. NFOUND.LT.NORD) GO TO 100 C C FEER IS FINISHED. PERFORM WRAP-UP OPERATIONS. C 175 IF (JSKIP .LT. 0) CALL CFEER4 IF (NFOUND .EQ. 0) GO TO 250 IF (NFOUND .GE. NORD) GO TO 220 200 DO 210 I = 1,JREG IF (HAVE(I) .LT. WANT(I)) GO TO 240 210 CONTINUE GO TO 230 C C ALL SOLUTIONS FOUND C 220 WRITE (NOUT,604) UIM IF (JREG .LT. NOREG) GO TO 240 GO TO 200 C C EACH REQUESTED NEIGHBORHOOD HAS THE DESIRED NUMBER OF ROOTS C 230 ITERM = 0 GO TO 260 C C AT LEAST ONE REQUESTED NEIGHBORHOOD FAILS TO HAVE THE DESIRED C NUMBER OF ROOTS C 240 ITERM = 1 GO TO 260 C C ABNORMAL TERMINATION. NO ROOTS FOUND. C 250 ITERM = 2 C C WRITE INFORMATION ON NASTRAN SUMMARY FILE C 260 IFILE = IDMPFL CALL OPEN (*500,IDMPFL,Z(IBUF),WRT) DO 270 I = 1,LIMSUM 270 IZ(I) = 0 I = 0 IZ(I+2) = NORTHO IZ(I+3) = NUMRAN IZ(I+5) = NODCMP IZ(I+6) = NUMORT IZ(I+7) = ITERM IZ(I+8) = 1 I = 2 CALL WRITE (IDMPFL,IHEAD(1),10,0) CALL WRITE (IDMPFL,IZ(I),40,0) CALL WRITE (IDMPFL,HEAD(1),96,1) CALL WRITE (IDMPFL,IZ(1),0,1) CALL CLOSE (IDMPFL,EOFNRW) C C WRITE DUMMY TRAILER C IXX = IK(1) IK(1) = IDMPFL CALL WRTTRL (IK(1)) IK(1) = IXX C C INFORM USER IF RUN REGION SIZE CAN BE REDUCED C IF (NBPW-36) 300,310,320 300 I = 4 GO TO 330 310 I = 6 GO TO 330 320 I = 10 IF (NBPW .EQ. 64) I = 8 330 I = (I*MINOPN)/1000 IF (I .LT. 0) I = 0 WRITE (NOUT,605) UIM,MINOPN,I RETURN C 500 CALL MESAGE (-1,IFILE,NAME) RETURN C C 600 FORMAT (1H1,27X,'***** F E E R ***** (FAST EIGENVALUE', 1 ' EXTRACTION ROUTINE) *****', ////,1H ,I10,' SINGLE ', 2 'PRECISION WORDS OF OPEN CORE, NOT USED (SUBROUTINE ', 3 'CFEER)', //) 601 FORMAT (A25,' 3149',//5X,'USER SPECIFIED NEIGHBORHOOD CENTERED AT' 1, ' ORIGIN NOT ALLOWED, CENTER SHIFTED TO THE RIGHT .001',//) 602 FORMAT (A25,' 3150',//5X,'DESIRED NUMBER OF EIGENVALUES',I8,3X, 1 'INVALID. SET = 1.',//) 603 FORMAT (A25,' 3151',//5X,'DYNAMIC MATRIX IS SINGULAR (OCCURRENCE', 1 I3,') IN NEIGHBORHOOD CENTERED AT ',1P,2D16.8,//) 604 FORMAT (A29,' 3159',//5X,'ALL SOLUTIONS HAVE BEEN FOUND.',//) 605 FORMAT (A29,' 3160',//5X,'MINIMUM OPEN CORE NOT USED BY FEER',I9, 1 ' WORDS (',I9,'K BYTES).',//) 606 FORMAT (A25,' 3161',//5X,'DESIRED NUMBER OF EIGENSOLUTIONS',I5, 1 ' FOR NEIGHBORHOOD',I3,' OF',I3,' CENTERED AT ',1P,2D16.8, 2 //5X,'EXCEEDS THE EXISTING NUMBER',I5, 3 ', ALL EIGENSOLUTIONS WILL BE SOUGHT.',//) 607 FORMAT (A29,' 3166',//1X,I5,' MORE ACCURATE EIGENSOLUTIONS THAN ', 1 'THE',I5,' REQUESTED HAVE BEEN FOUND FOR NEIGHBORHOOD',I3, 2 ' OF',I3, //5X,'CENTERED AT ',1P,2D16.8, 3 '. USE DIAG 12 TO DETERMINE ERROR ESTIMATES.',//) END ================================================ FILE: mis/cfeer1.f ================================================ SUBROUTINE CFEER1 C C CFEER1 INITIALIZES AND CALLS SUBROUTINE SADD FOR CFCNTL C LOGICAL NO B ,QPR INTEGER SCR1 ,SCR2 ,SCR11 ,SQR , 1 TYPOUT ,IFILA(7) ,IFILB(7) ,IFILC(7) DOUBLE PRECISION ALPHA(2) ,BETA(2) ,LAMBDA ,DZ(1) DIMENSION SALPHA(4),SBETA(4) COMMON /FEERAA/ IK(7) ,IM(7) ,IB(7) ,DUM(15) , 1 SCR1 ,SCR2 ,SCR(8) ,SCR11 , 2 DUMAA(91),MCBLMB(7) COMMON /FEERXC/ LAMBDA(2),DUMXC(12),NO B ,DUMXC2(4) , 1 QPR COMMON /SADDX / NOMAT ,NZ ,MCBS(67) COMMON /NAMES / DUMM(10) ,CDP ,SQR COMMON /ZZZZZZ/ Z(1) COMMON /UNPAKX/ TYPOUT ,IROW ,NLAST ,INCR COMMON /SYSTEM/ KSYSTM(65) C EQUIVALENCE (MCBS( 1), IFILA(1)), (MCBS( 8), ITYPAL ), 1 (MCBS(61), IFILC(1)), (MCBS(13), IFILB(1)), 2 (MCBS(20), ITYPBT ), (MCBS(21), BETA(1) ), 3 (MCBS( 9), ALPHA(1)), (IPREC, KSYSTM(55)), 4 (ALPHA(1),SALPHA(1)), (BETA(1), SBETA(1)), 5 (Z(1) , DZ(1) ), (NOUT, KSYSTM(2) ) C C FORM -(B + LAMBDA*M) ON SCR2 C ITYPE = IPREC + 2 NOMAT = 2 DO 10 I = 1,7 IFILA(I) = IM(I) 10 IFILB(I) = IB(I) IF (IPREC .EQ. 2) GO TO 15 SALPHA(1)=-SNGL(LAMBDA(1)) SALPHA(2)=-SNGL(LAMBDA(2)) SALPHA(3)= 0. SALPHA(4)= 0. SBETA(1) =-1. SBETA(2) = 0. SBETA(3) = 0. SBETA(4) = 0. GO TO 16 15 ALPHA(1) =-LAMBDA(1) ALPHA(2) =-LAMBDA(2) BETA(1) =-1.D0 BETA(2) = 0.D0 16 ITYPAL = ITYPE ITYPBT = ITYPE NZ = KORSZ(Z) IFILC(1) = SCR2 IFILC(2) = IK(2) IFILC(3) = IK(3) IFILC(4) = 1 IFILC(5) = ITYPE IF (NO B) GO TO 100 CALL SADD (Z,Z) C C---------- SPECIAL PRINT ------------------------------ C IF (.NOT.QPR) GO TO 25 WRITE (NOUT,2) 2 FORMAT (1H0,//7H CFEER1,//) TYPOUT= ITYPE IROW = 1 NLAST = IK(2) LIMIT = 2*NLAST INCR = 1 IBUF = NZ - KSYSTM(1) - 2 CALL GOPEN (IFILC(1),Z(IBUF),0) DO 20 I = 1,NLAST WRITE (NOUT,1) I 1 FORMAT (7H COLUMN,I4) CALL UNPACK (*20,IFILC(1),Z) IF (IPREC .EQ. 2) WRITE (NOUT,3) (DZ(J),J=1,LIMIT) IF (IPREC .NE. 2) WRITE (NOUT,5) ( Z(J),J=1,LIMIT) 20 CONTINUE CALL CLOSE (IFILC(1),1) 3 FORMAT (1H ,13(10H----------)/(1H ,4D25.16)) 5 FORMAT (1H ,13(10H----------)/(1H ,4E25.16)) 25 CONTINUE C C C FORM (LAMBDA**2*M + LAMBDA*B + K) ON SCR1 C DO 30 I = 1,7 30 IFILA(I) = IK(I) IFILB(1) = IFILC(1) IFILB(2) = IK(2) IFILB(3) = IK(3) IFILB(4) = SQR IFILB(5) = ITYPE IF (IPREC .EQ. 2) GO TO 35 SALPHA(1) = 1. SALPHA(2) = 0. SALPHA(3) = 0. SALPHA(4) = 0. SBETA(1) =-SNGL(LAMBDA(1)) SBETA(2) =-SNGL(LAMBDA(2)) SBETA(3) = 0. SBETA(4) = 0. GO TO 50 35 ALPHA(1) = 1.D0 ALPHA(2) = 0.D0 BETA(1) =-LAMBDA(1) BETA(2) =-LAMBDA(2) 50 IFILC(1) = SCR1 CALL SADD (Z,Z) C C---------- SPECIAL PRINT ------------------------------ C IF (.NOT.QPR) GO TO 75 WRITE (NOUT,4) 4 FORMAT (1H ,13(10H----------),//,19H THE DYNAMIC MATRIX,//) CALL GOPEN (IFILC(1),Z(IBUF),0) DO 70 I = 1,NLAST WRITE (NOUT,1) I CALL UNPACK (*70,IFILC(1),Z) IF (IPREC .EQ. 2) WRITE (NOUT,3) (DZ(J),J=1,LIMIT) IF (IPREC .NE. 2) WRITE (NOUT,5) ( Z(J),J=1,LIMIT) 70 CONTINUE CALL CLOSE (IFILC(1),1) 75 CONTINUE C C------------------------------------------------------- C MCBLMB NOT USED WHEN DAMPING MATRIX ABSENT C DO 40 I = 1,7 40 MCBLMB(I) = IFILB(I) GO TO 200 C C DAMPING MATRIX ABSENT C 100 DO 110 I = 1,7 110 IFILB(I) = IK(I) IF (IPREC .EQ. 2) GO TO 120 SALPHA(1) = SNGL(LAMBDA(1)**2 - LAMBDA(2)**2) SALPHA(2) = 2.*SNGL(LAMBDA(1)*LAMBDA(2)) SBETA(1) = 1. GO TO 130 120 ALPHA(1) = LAMBDA(1)**2 - LAMBDA(2)**2 ALPHA(2) = 2.D0*LAMBDA(1)*LAMBDA(2) BETA(1) = 1.D0 C C----------- LOGIC FOR SPECIAL PRINT ------------------------- C 130 IF (.NOT.QPR) GO TO 50 TYPOUT= ITYPE IROW = 1 NLAST = IK(2) LIMIT = 2*NLAST INCR = 1 IBUF = NZ - KSYSTM(1) - 2 C------------------------------------------------------------- C GO TO 50 C 200 RETURN END ================================================ FILE: mis/cfeer2.f ================================================ SUBROUTINE CFEER2 (IRET) C C CFEER2 INITIALIZES AND CALLS CDCOMP FOR CFCNTL C LOGICAL QPR INTEGER FILEA ,FILEL ,FILEU ,SCR1 , 1 SCR2 ,SCR3 ,SCR4 ,SCR5 , 2 SCR6 ,SCR7 ,SCR8 ,SCR9 , 3 SR1FIL ,SR2FIL ,SR3FIL ,DUMM , 4 TYPOUT ,BBBBAR DOUBLE PRECISION DET ,MINDIA ,DZ(1) COMMON /CDCMPX/ FILEA(7) ,FILEL(7) ,FILEU(7) ,SR1FIL , 1 SR2FIL ,SR3FIL ,DET(2) ,POWER , 2 NZ ,MINDIA ,BBBBAR(5) COMMON /FEERAA/ DUMM(36) ,SCR1 ,SCR2 ,SCR3 , 1 SCR4 ,SCR5 ,SCR6 ,SCR7 , 2 SCR8 ,SCR9 ,DUMQ(72) ,MCBLT(7) , 3 MCBUT(7) COMMON /FEERXC/ DUMXC(21),QPR COMMON /ZZZZZZ/ Z(1) COMMON /UNPAKX/ TYPOUT ,IROW ,NLAST ,INCR COMMON /SYSTEM/ KSYSTM(65) EQUIVALENCE (Z(1), DZ(1) ) ,(NOUT,KSYSTM(2)) , 1 (IPREC,KSYSTM(55)) C ITYPE = IPREC + 2 IRET = 0 FILEA(1) = SCR1 FILEL(1) = SCR3 FILEU(1) = SCR4 SR1FIL = SCR5 SR2FIL = SCR6 SR3FIL = SCR7 FILEA(2) = DUMM(3) FILEA(3) = DUMM(3) FILEA(4) = DUMM(4) FILEA(5) = ITYPE FILEA(6) = 0 FILEA(7) = 0 FILEL(5) = ITYPE NZ = KORSZ(Z) BBBBAR(1)= 0 CALL CDCOMP (*110,Z,Z,Z) C C ---------- SPECIAL PRINT ------------------------------- C IF (.NOT.QPR) GO TO 80 WRITE (NOUT,10) 10 FORMAT (//,7H CFEER2,//) WRITE (NOUT,20) 20 FORMAT (1H ,13(10H----------)) TYPOUT = ITYPE IROW = 1 NLAST = DUMM(2) LIMIT = 2*NLAST INCR = 1 IBUF = NZ - KSYSTM(1) - 2 IFILXX = SCR3 30 CALL GOPEN (IFILXX,Z(IBUF),0) DO 50 I = 1,NLAST WRITE (NOUT,40) I 40 FORMAT (1H ,6HCOLUMN,I4) CALL UNPACK (*50,IFILXX,Z) IF (IPREC .EQ. 2) WRITE (NOUT,60) (DZ(J),J=1,LIMIT) IF (IPREC .NE. 2) WRITE (NOUT,70) ( Z(J),J=1,LIMIT) 50 CONTINUE CALL CLOSE (IFILXX,1) WRITE (NOUT,20) IF (IFILXX .EQ. SCR4) GO TO 80 IFILXX = SCR4 GO TO 30 60 FORMAT (1H ,13(10H----------)/(1H ,4D25.16)) 70 FORMAT (1H ,13(10H----------)/(1H ,4E25.16)) 80 CONTINUE C C -------------------------------------------------------- C 90 DO 100 I = 1,7 MCBUT(I) = FILEU(I) 100 MCBLT(I) = FILEL(I) RETURN C 110 IRET = 1 GO TO 90 END ================================================ FILE: mis/cfeer3.f ================================================ SUBROUTINE CFEER3 C C CFEER3 IS A DRIVER ROUTINE WHICH PERFORMS THE TRIDIAGONAL C REDUCTION FOR THE COMPLEX FEER METHOD C INTEGER SWITCH ,CDP ,SQR ,SYSBUF , 1 NAME(2) DOUBLE PRECISION LAMBDA ,DZ(1) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR COMMON /SYSTEM/ KSYSTM(65) COMMON /ZZZZZZ/ Z(1) COMMON /FEERXC/ LAMBDA(2),SWITCH ,MREDUC ,NORD , 1 IDIAG ,EPSDUM(2),NORTHO ,NORD2 , 2 NORD4 ,NORDP1 ,XCDUM(12),MINOPN COMMON /FEERAA/ IK(7) ,IM(7) ,IB(7) ,ILAM(7) , 1 IPHI(7) ,DUDXX ,ISCR(11) ,DUMAA(84) , 2 MCBVEC(7) EQUIVALENCE (DZ(1) ,Z(1) ) ,(KSYSTM(55),IPREC) , 1 (KSYSTM(1),SYSBUF) ,(KSYSTM( 2),NOUT ) DATA NAME / 4HCFEE,4HR3 / C C SCRATCH FILE AND BUFFER ALLOCATION C C FILE 5 CONTAINS THE ELEMENTS OF REDUCED TRIDIAGONAL MATRIX C FILE 7 CONTAINS THE ORTHOGONAL VECTOR PAIRS (NUMBER OF C VECTOR PAIRS = NORTHO) C C BUFFER Z(IBUF1) IS LOCAL SCRATCH BUFFER C BUFFER Z(IBUF2) IS LOCAL SCRATCH BUFFER C BUFFER Z(IBUF3) IS USED BY FILE 5 C C C COMPUTE STORAGE ALLOCATIONS C NZ = KORSZ(Z) IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF ITOP = IBUF3 C C COMPUTE LOCATIONS OF RIGHT-HANDED VECTORS C IV1 = 1 IV2 = IV1 + NORD4 IV3 = IV2 + NORD4 IV4 = IV3 + NORD4 IV5 = IV4 + NORD4 C C TEST FOR INSUFFICIENT CORE C IEND = IPREC*(5*NORD4+1) IF (IEND .GT. ITOP) GO TO 70 C C COMPUTE LOCATIONS OF LEFT-HANDED VECTORS C IV1L = IV1 + NORD2 IV2L = IV2 + NORD2 IV3L = IV3 + NORD2 IV4L = IV4 + NORD2 IV5L = IV5 + NORD2 IOPN = ITOP- IEND IF (IDIAG .NE. 0) WRITE (NOUT,510) IOPN IF (IOPN .LT. MINOPN) MINOPN = IOPN C C INITIALIZE SCRATCH FILE TO CONTAIN TRIDIAGONAL ELEMENTS C CALL GOPEN (ISCR(5),Z(IBUF3),WRTREW) C C GENERATE MATRIX CONTROL BLOCK FOR SCRATCH FILE TO CONTAIN C ORTHOGONAL VECTORS (LEFT VECTOR PACKED IMMEDIATELY AFTER C RIGHT, I. E., EACH COLUMN CONTAINS RIGHT VECTOR FOLLOWED BY C LEFT VECTOR) C JPREC = IPREC + 2 CALL MAKMCB (MCBVEC(1),ISCR(7),NORD2,2,JPREC) C C PERFORM DOUBLE PRECISION FEER C IF (IPREC.EQ.2) CALL CFER3D (DZ(IV1),DZ(IV1L), DZ(IV2),DZ(IV2L), 1 DZ(IV3),DZ(IV3L), DZ(IV4),DZ(IV4L), 2 DZ(IV5),DZ(IV5L), Z(IBUF1),Z(IBUF2)) C C PERFORM SINGLE PRECISION FEER C IF (IPREC.NE.2) CALL CFER3S (Z(IV1),Z(IV1L), Z(IV2),Z(IV2L), 1 Z(IV3),Z(IV3L), Z(IV4),Z(IV4L), 2 Z(IV5),Z(IV5L), Z(IBUF1),Z(IBUF2)) C C TERMINATE SCRATCH FILE CONTAINING TRIDIAGONAL ELEMENTS C CALL CLOSE (ISCR(5),NOREW) RETURN C 70 IEND = (IEND-ITOP)/1000 + 1 WRITE (NOUT,80) IEND 80 FORMAT (5H0NEED,I4,17HK MORE CORE WORDS) CALL MESAGE (-8,0,NAME) 510 FORMAT (1H ,I10,36H SINGLE PRECISION WORDS OF OPEN CORE, 1 29H NOT USED (SUBROUTINE CFEER3)) END ================================================ FILE: mis/cfeer4.f ================================================ SUBROUTINE CFEER4 C C CFEER4 OBTAINS THE EIGENVALUES AND EIGENVECTORS FROM THE C REDUCED TRIDIAGONAL MATRIX FOR THE COMPLEX FEER METHOD C LOGICAL NO B ,DECREM ,QPR ,LZ(1) , 1 DPMACH INTEGER NAME(2) ,IZ(1) ,EOR INTEGER WRTREW DOUBLE PRECISION LAMBDA ,EPS ,DZ(1) ,D(4) , 1 LAM1(2) DIMENSION S(8) ,DMP1(2) ,ALAM(2) ,DM(2) , 1 STATUS(2),ACCEPT(2),REJECT(2) CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /FEERAA/ IKMB(21) ,ILAM(7) ,IPHI(7) ,IDMPFL , 1 ISCR(11) ,DUMAA(84),MCBVEC(7) COMMON /FEERXC/ LAMBDA(2),SWDUM ,MREDUC ,NORD , 1 IDIAG ,EPS ,NORTHO ,NORD2 , 2 NORD4 ,NORDP1 ,NSWP(2) ,NO B , 3 IT ,TEN2MT ,TENMHT ,NSTART , 4 QPR ,JREG ,NOREG ,NZERO , 5 TENMTT ,MINOPN COMMON /ZZZZZZ/ Z(1) COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /SYSTEM/ KSYSTM(65) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW EQUIVALENCE (KSYSTM(2 ),NOUT ) ,(NROW,MREDUC) , 1 (KSYSTM(55),IPREC) ,(D(1),S(1) ) , 2 (Z(1),IZ(1),LZ(1),DZ(1)) DATA NAME / 4HCFEE,4HR4 / DATA ACCEPT, REJECT/4H AC,4HCEPT,4H -RE,4HJECT / C C CORE ALLOCATION FOR ALLMAT C C CONTENTS SIZE POINTER TYPE NAME C -------- ---- ------- ---- ---- C INPUT MATRIX--VECTORS 2*NROW*NROW IA COMP A C EIGENVALUES 2*NROW IL COMP LAM C H MATRIX 2*NROW*NROW IH COMP H C HL MATRIX 2*NROW*NROW IHL COMP HL C VECTOR STORAGE 2*NROW IV COMP VEC C MULTIPLIERS 2*NROW IM COMP MULT C INTH NROW INTH INTG INTH C INTQ NROW INTQ LOGL INTQ C C CORE ALLOCATION AFTER ALLMAT IS FINISHED C C ALLMAT OUTPUT EIGENVECTORS IA C EIGENVALUES IL C ORDER OF EXTRACTION IH C THEORETICAL ERRORS IHL C NOT USED IV,IM C STATUS OF SOLUTIONS INTH C DISTANCES FROM CENTER INTQ C VARIABLE PRECISION PHYSICAL EIGENVECTORS IV1 C VARIABLE PRECISION ORTHOGONAL VECTORS IV2 C C DEFINITION OF INTERNAL PARAMETERS C C DMP1 = D-SUB-M-PLUS-1 = EXTRANEOUS OFF-DIAGONAL ELEMENT C OF REDUCED TRIDIAGONAL MATRIX, USED FOR COMPUTING C THEORETICAL ERRORS C DM = FINAL OFF-DIAGONAL ELEMENT OF REDUCED TRIDIAGONAL C MATRIX C NO B = LOGICAL INDICATOR FOR ABSENCE OF DAMPING MATRIX B C DECREM = LOGICAL INDICATOR FOR DECREMENTED SIZE OF REDUCED C PROBLEM C NROW = SIZE OF THE REDUCED PROBLEM (EQUIVALENT TO MREDUC) C RMS = ROOT-MEAN-SQUARE OF EIGENVALUES, USED IN RIGID-BODY C ERROR TEST C NOTE.....SEE LISTING OF CFCNTL FOR ADDITIONAL DEFINITIONS C IF (QPR) WRITE (NOUT,600) DPMACH = IPREC .EQ. 2 NORD8 = 2*NORD4 DECREM = .FALSE. 4 NROW2 = 2*NROW NROWSQ = NROW*NROW2 C C ALLOCATE CORE FOR ALLMAT C IA = 1 IL = IA + NROWSQ IH = IL + NROW2 IHL = IH + NROWSQ IV = IHL + NROWSQ IM = IV + NROW2 INTH= IM + NROW2 INTQ= INTH+ NROW C C ALLOCATE CORE FOR PHYSICAL EIGENVECTORS (LEFT FOLLOWS RIGHT) C IV1 = INTQ + NROW IV2 = IV1 + NORD8 IF (DPMACH .AND. MOD(IV2,2).EQ.0) IV2 = IV2 + 1 IV1X = IV1 - 1 C C TEST FOR INSUFFICIENT CORE C NZ = KORSZ(Z(1)) IBUF1 = NZ - KSYSTM(1) IBUF2 = IBUF1 - KSYSTM(1) IOPN = IBUF2 - (IV2 + NORD8) IF (IDIAG .NE. 0) WRITE (NOUT,610) IOPN IF (IOPN .LE. 0) CALL MESAGE (-8,0,NAME(1)) IF (IOPN .LT. MINOPN) MINOPN = IOPN IF (NSWP(2) .LT. 0) GO TO 209 C C CONSTRUCT REDUCED TRIDIAGONAL MATRIX C DO 10 I = IA,IL 10 Z(I) = 0. NROW22 = NROW2 + 2 CALL GOPEN (ISCR(5),Z(IBUF1),RDREW) NW = 4*IPREC EOR = 1 M = 0 NROW1 = NROW - 1 C C ENTER LOOP C DO 20 I = 1,NROW I1 = I - 1 CALL READ (*420,*430,ISCR(5),S(1),NW,EOR,M) IF (QPR .AND. .NOT.DPMACH) WRITE (NOUT,620) I,(S(J),J=1,4) IF (QPR .AND. DPMACH) WRITE (NOUT,630) I,(D(J),J=1,4) C C ALLMAT ACCEPTS ONLY SINGLE PRECISION ARRAY C J = IA + NROW22*I1 IF (.NOT.DPMACH) GO TO 15 C C LOAD MAIN DIAGONAL ELEMENT C Z(J ) = D(3) Z(J+1) = D(4) IF (I .NE. NROW1) GO TO 12 C C SAVE LAST OFF-DIAGONAL ELEMENT C DM(1) = D(1) DM(2) = D(2) 12 IF (I .EQ. NROW) GO TO 20 C C LOAD OFF-DIAGONAL ELEMENTS C Z(J+2) = D(1) Z(J+3) = D(2) J = J + NROW2 Z(J ) = D(1) Z(J+1) = D(2) GO TO 20 C C LOAD MAIN DIAGONAL ELEMENT C 15 Z(J ) = S(3) Z(J+1) = S(4) IF (I .NE. NROW1) GO TO 16 C C SAVE LAST OFF-DIAGONAL ELEMENT C DM(1) = S(1) DM(2) = S(2) 16 IF (I .EQ. NROW) GO TO 20 C C LOAD OFF-DIAGONAL ELEMENTS C Z(J+2) = S(1) Z(J+3) = S(2) J = J + NROW2 Z(J ) = S(1) Z(J+1) = S(2) 20 CONTINUE C C SAVE ERROR ELEMENT FROM TRIDIAGONAL MATRIX C IF (.NOT.DPMACH) GO TO 25 DMP1(1) = D(1) DMP1(2) = D(2) GO TO 26 25 DMP1(1) = S(1) DMP1(2) = S(2) 26 CONTINUE IF (QPR) WRITE (NOUT,640) (Z(I),I=1,NROWSQ) CALL CLOSE (ISCR(5),REW) IF (DECREM) GO TO 30 C C DECREMENT THE REDUCED PROBLEM SIZE IF THE ERROR ELEMENT IS NULL C IF (DMP1(1).NE.0. .OR. DMP1(2).NE.0.) GO TO 30 MREDUC = MREDUC - 1 WRITE (NOUT,570) UWM,MREDUC IF (MREDUC .EQ. 0) GO TO 440 IF (DM(1).NE.0. .OR. DM(2).NE.0.) GO TO 29 C C NEW ERROR ELEMENT IS ALSO NULL. RESTORE ORIGINAL REDUCED SIZE. C MREDUC = MREDUC + 1 DMP1(1) = SNGL(EPS) WRITE (NOUT,590) UWM,MREDUC,DMP1 GO TO 30 29 DECREM = .TRUE. GO TO 4 C 30 CALL ALLMAT (Z(IA),Z(IL),Z(IH),Z(IHL),Z(IV),Z(IM),Z(INTH),Z(INTQ), 1 NROW,NROW,INIDUM) C C --------------- SPECIAL PRINT ------------------------- C IF (.NOT.QPR) GO TO 4429 WRITE (NOUT,4408) 4408 FORMAT (1H0,10X,15HALLMAT EXECUTED,/,1H0) J = IH - 1 WRITE (NOUT,4420) (Z(I),I=IL,J) 4420 FORMAT (1H0,11HEIGENVALUES, //,(1H ,2E16.8)) WRITE (NOUT,4422) 4422 FORMAT (1H0,12HEIGENVECTORS,//) DO 4428 I = 1,NROW L = IA + NROW2*(I-1) K = L + NROW2 - 1 WRITE (NOUT,4424) (Z(J),J=L,K) C C CHECK NORMALITY C SUMR = 0. SUMI = 0. DO 7760 J = L,K,2 JJ = J + 1 SUMR = SUMR + Z(J)**2 - Z(JJ)**2 7760 SUMI = SUMI + 2.*Z(J)*Z(JJ) WRITE (NOUT,7770) SUMR,SUMI 7770 FORMAT (//,35H SELF INNER-PRODUCT OF ABOVE VECTOR, /,1H ,6X, 1 11HREAL PART =,E16.8,8X,16HIMAGINARY PART =,E16.8) 4424 FORMAT (//,(1H ,6E16.8)) 4428 CONTINUE 4429 CONTINUE C ------------------------------------------------------- C C NORMALIZE THE EIGENVECTORS OUTPUT FROM ALLMAT C IF (QPR) WRITE (NOUT,4422) DO 36 I = 1,NROW L = IA + NROW2*(I-1) K = L + NROW2 - 1 SUMR = 0. SUMI = 0. DO 33 J = L,K,2 JJ = J + 1 SUMR = SUMR + Z(J)**2 - Z(JJ)**2 33 SUMI = SUMI + 2.*Z(J)*Z(JJ) RSQRT= SQRT(SQRT(SUMR**2 + SUMI**2)) IF (RSQRT .GT. 0.) GO TO 34 WRITE (NOUT,560) UWM,NAME GO TO 36 34 THETA2= .5*ATAN2(SUMI,SUMR) SUMR = RSQRT*COS(THETA2) SUMI = RSQRT*SIN(THETA2) THETA2= 1./(SUMR**2 + SUMI**2) SUMR = SUMR*THETA2 SUMI =-SUMI*THETA2 DO 35 J = L,K,2 JJ = J + 1 THETA2= Z(J) Z(J ) = SUMR*Z(J) - SUMI*Z(JJ) 35 Z(JJ) = SUMI*THETA2 + SUMR*Z(JJ) C C -------------- SPECIAL PRINT -------------------------- C IF (.NOT.QPR) GO TO 36 WRITE (NOUT,4424) (Z(J),J=L,K) C C CHECK NORMALITY C SUMR = 0. SUMI = 0. DO 1008 J = L,K,2 JJ = J + 1 SUMR = SUMR + Z(J)**2 - Z(JJ)**2 1008 SUMI = SUMI + 2.*Z(J)*Z(JJ) WRITE (NOUT,7770) SUMR,SUMI C ------------------------------------------------------- C 36 CONTINUE C C COMPUTE THEORETICAL EIGENVALUE ERRORS C IF (QPR) WRITE (NOUT,650) DMP1 IHL1 = IHL - 1 DO 50 I = 1,NROW K = IL + 2*(I-1) DENOM = SQRT(Z(K)**2 + Z(K+1)**2) IF (DENOM .GT. 0.) GO TO 40 WRITE (NOUT,550) UIM,I DENOM = 1.E-10 40 DENOM = 1./DENOM K = IA + NROW2*I - 2 KK = K + 1 J = IHL1 + I Z(J) = DENOM*SQRT((DMP1(1)*Z(K) - DMP1(2)*Z(KK))**2 1 + (DMP1(1)*Z(KK) + DMP1(2)*Z(K))**2) IF (QPR) WRITE (NOUT,660) I,Z(J),Z(K),Z(KK),DENOM 50 CONTINUE C C RECOVER PHYSICAL EIGENVALUES C RMS = 0. IF (NO B) GO TO 54 ALAM(1) = LAMBDA(1) ALAM(2) = LAMBDA(2) GO TO 55 54 ALAM(1) = LAMBDA(1)**2 - LAMBDA(2)**2 ALAM(2) = 2.D0*LAMBDA(1)*LAMBDA(2) 55 DO 70 I = 1,NROW K = IL + 2*(I-1) KK = K + 1 DENOM = Z(K)**2 + Z(KK)**2 IF (DENOM .EQ. 0.) DENOM = 1.E-20 DENOM = 1./DENOM Z( K) = DENOM*Z( K) + ALAM(1) Z(KK) =-DENOM*Z(KK) + ALAM(2) IF (NO B) GO TO 60 GO TO 70 C C DAMPING MATRIX ABSENT C 60 RSQRT = SQRT(SQRT(Z(K)**2 + Z(KK)**2)) THETA2 = .5*ATAN2(Z(KK),Z(K)) Z( K) = RSQRT*COS(THETA2) Z(KK) = RSQRT*SIN(THETA2) IF (Z(KK) .GE. 0.) GO TO 70 Z( K) =-Z( K) Z(KK) =-Z(KK) C C COMPUTE RMS FOR RIGID-BODY ERROR TEST C 70 RMS = RMS + SQRT((Z(K)**2-Z(KK)**2)**2 + 4.*(Z(K)*Z(KK))**2) RMS = SQRT(RMS)/FLOAT(NROW) IF (QPR) WRITE (NOUT,800) RMS J = IH - 1 IF (QPR) WRITE (NOUT,4420) (Z(I),I=IL,J) C C PERFORM RIGID-BODY ERROR TEST C IF (RMS .LT. 1.E-20) RMS = 1.E-20 RMS = 1./RMS DO 80 I = 1,NROW K = IL + 2*(I-1) J = IHL1 + I IF (RMS*SQRT(Z(K)**2+Z(K+1)**2) .LE. TENMTT) Z(J) = 0. 80 CONTINUE C C COMPUTE DISTANCES OF EIGENVALUES TO CENTER OF NEIGHBORHOOD C ALAM(1) = LAMBDA(1) ALAM(2) = LAMBDA(2) JJ = INTQ - 1 KK = IH - 1 LL = INTH - 1 DO 90 I = 1,NROW J = JJ + I K = IL + 2*(I-1) Z(J) = SQRT((ALAM(1) - Z(K))**2 + (ALAM(2)-Z(K+1))**2) C C LOAD ORDER OF EXTRACTION C K = KK + I IZ(K) = I C C LOAD STATUS OF EACH SOLUTION C K = LL + I LZ(K) = .FALSE. J = IHL1 + I IF (Z(J) .LT. SNGL(EPS)) LZ(K) = .TRUE. 90 CONTINUE C C SORT EIGENVALUES ACCORDING TO DISTANCE FROM CURRENT CENTER C IF (NROW .EQ. 1) GO TO 150 LL = NROW - 1 DO 140 I = 1,LL K = JJ + I I1 = KK + I LLL= I + 1 DO 130 J = LLL,NROW L = JJ + J IF (Z(K) .LT. Z(L)) GO TO 130 UNIDUM = Z(L) Z(L) = Z(K) Z(K) = UNIDUM I2 = KK + J INIDUM = IZ(I1) IZ(I1) = IZ(I2) IZ(I2) = INIDUM 130 CONTINUE 140 CONTINUE 150 LLL = IL - 1 LL = INTH - 1 IF (IDIAG .EQ. 0) GO TO 170 C C PRINT OUT FULL SUMMARY FOR CURRENT NEIGHBORHOOD C WRITE (NOUT,670) JREG,NOREG,ALAM WRITE (NOUT,680) WRITE (NOUT,690) DO 160 I = 1,NROW K = KK + I IZZ = 2*IZ(K) - 1 J = JJ + I L = LLL + IZZ L1 = L + 1 I1 = IHL1+ IZ(K) Z(I1) = 100.*Z(I1) I2 = LL + IZ(K) STATUS(1) = ACCEPT(1) STATUS(2) = ACCEPT(2) IF (LZ(I2)) GO TO 160 STATUS(1) = REJECT(1) STATUS(2) = REJECT(2) 160 WRITE (NOUT,700) I,IZ(K),Z(J),Z(L),Z(L1),Z(I1),STATUS C C DECREMENT COUNTERS SO THAT ONLY ACCEPTABLE SOLUTIONS ARE RETAINED C 170 MSAVE = NROW DO 180 I = 1,MSAVE I2 = LL + I IF (LZ(I2)) GO TO 180 NROW = NROW - 1 NORTHO = NORTHO - 1 IF (NROW .EQ. 0) GO TO 450 180 CONTINUE NFOUND = NZERO + NROW IF (NROW .EQ. MSAVE) WRITE (NOUT,720) UIM,MSAVE IF (IDIAG.EQ.0 .OR. NROW.EQ.MSAVE) GO TO 200 C C PRINT OUT SUMMARY WITH REJECTED SOLUTIONS DELETED C WRITE (NOUT,670) JREG,NOREG,ALAM WRITE (NOUT,730) WRITE (NOUT,690) M = 0 DO 190 I = 1,MSAVE K = KK + I I2 = LL + IZ(K) IF (.NOT.LZ(I2)) GO TO 190 M = M + 1 IZZ= 2*IZ(K) - 1 J = JJ + I L = LLL + IZZ L1 = L + 1 I1 = IHL1+ IZ(K) WRITE (NOUT,700) M,IZ(K),Z(J),Z(L),Z(L1),Z(I1),ACCEPT 190 CONTINUE 200 M = MSAVE - NROW IF (M .GT. 0) WRITE (NOUT,740) UIM,NROW,M C C WRITE EIGENVALUES TO OUTPUT FILE C CALL GOPEN (ILAM(1),Z(IBUF1),WRT) DO 210 I = 1,MSAVE K = KK + I I2 = LL + IZ(K) IF (.NOT.LZ(I2)) GO TO 210 IZZ = 2*IZ(K) - 1 L = LLL + IZZ LAM1(1) = DBLE(Z(L )) LAM1(2) = DBLE(Z(L+1)) CALL WRITE (ILAM(1),LAM1(1),4,1) 210 CONTINUE CALL CLOSE (ILAM(1),EOFNRW) IF (JREG.LT.NOREG .AND. NFOUND.LT.NORD) GO TO 214 IF (NZERO .EQ. 0) GO TO 214 C C IF THIS IS THE FINAL (BUT NOT THE FIRST) NEIGHBORHOOD, THEN C RE-WRITE THE EIGENVECTOR FILE PERTAINING TO ALL PRIOR C NEIGHBORHOODS (ELIMINATE LEFT-HAND VECTORS) C 209 IF (IDIAG .NE. 0) WRITE (NOUT,810) NZERO,NORTHO INIDUM = ISCR(10) CALL OPEN (*455,ISCR(10),Z(IBUF2),WRTREW) CALL CLOSE (ISCR(10),REW) J = NORD2 IF (NO B) J = 2*J INIDUM = IPHI(1) CALL OPEN (*455,IPHI(1),Z(IBUF1),0) DO 212 I = 1,NZERO CALL READ (*460,*211,IPHI(1),Z(IV2),NORD8+10,0,N3) GO TO 470 211 CALL GOPEN (ISCR(10),Z(IBUF2),WRT) CALL WRITE (ISCR(10),Z(IV2),J,1) 212 CALL CLOSE (ISCR(10),NOREW) CALL CLOSE (IPHI(1),NOREW) CALL OPEN (*455,IPHI(1),Z(IBUF1),WRTREW) CALL CLOSE (IPHI(1),REW) INIDUM = ISCR(10) CALL OPEN (*455,ISCR(10),Z(IBUF2),0) DO 213 I = 1,NZERO CALL READ (*460,*206,ISCR(10),Z(IV2),J+10,0,N3) GO TO 470 206 CALL GOPEN (IPHI(1),Z(IBUF1),WRT) CALL WRITE (IPHI(1),Z(IV2),J,1) 213 CALL CLOSE (IPHI(1),EOFNRW) CALL CLOSE (ISCR(10),NOREW) IF(NSWP(2) .LT. 0) GO TO 500 C C RECOVER PHYSICAL EIGENVECTORS, PRINT, AND WRITE TO OUTPUT FILE C 214 IPRC = IPREC + 2 II = 1 NN = NORD2 INCR = 1 IA1 = IA - 1 IF (QPR) WRITE (NOUT,750) ISHFT = NORD2*IPREC I1 = 0 C C ENTER LOOP C DO 300 I = 1,MSAVE K = KK + I I2 = LL + IZ(K) IF (.NOT. LZ(I2)) GO TO 300 CALL GOPEN (ISCR(7),Z(IBUF2),RDREW) IF (NZERO .GT. 0) CALL SKPREC (ISCR(7),NZERO) DO 215 J = 1,NORD8 M = IV1X + J 215 Z(M) = 0. C C SET POINTER TO ALLMAT OUTPUT VECTOR C IB = IA1 + 2*MSAVE*(IZ(K)-1) C C CYCLE THRU ALL ORTHOGONAL VECTORS C DO 225 J = 1,MSAVE C C NOTE.... Z(IV2) MAY BE LOADED DOUBLE-PRECISION....HIGHER DIGITS C ARE NOT USED C (HIGHER DIGITS MUST BE INCLUDED FOR THE D.P.MACHINES. G.C/UNISYS) C CALL UNPACK (*225,ISCR(7),Z(IV2)) KR = IB + 2*J - 1 KI = KR + 1 DO 220 MM = 1,NORD2,2 MR = IV2 + (MM-1)*IPREC MI = MR + IPREC JR = IV1X+ MM JI = JR + 1 IF (.NOT.DPMACH) GO TO 216 MRD = (MR+1)/2 MID = MRD + 1 C C RECOVER RIGHT-HAND PHYSICAL EIGENVECTOR C Z(JR) = Z(JR) + DZ(MRD)*Z(KR) - DZ(MID)*Z(KI) Z(JI) = Z(JI) + DZ(MID)*Z(KR) + DZ(MRD)*Z(KI) GO TO 217 216 Z(JR) = Z(JR) + Z(MR)*Z(KR) - Z(MI)*Z(KI) Z(JI) = Z(JI) + Z(MI)*Z(KR) + Z(MR)*Z(KI) 217 MR = MR + ISHFT MI = MR + IPREC JR = JR + NORD4 JI = JR + 1 IF (.NOT.DPMACH) GO TO 218 MRD = (MR+1)/2 MID = MRD + 1 C C RECOVER LEFT-HAND PHYSICAL EIGENVECTOR C Z(JR) = Z(JR) + DZ(MRD)*Z(KR) - DZ(MID)*Z(KI) Z(JI) = Z(JI) + DZ(MID)*Z(KR) + DZ(MRD)*Z(KI) GO TO 220 218 Z(JR) = Z(JR) + Z(MR)*Z(KR) - Z(MI)*Z(KI) Z(JI) = Z(JI) + Z(MI)*Z(KR) + Z(MR)*Z(KI) 220 CONTINUE 225 CONTINUE CALL CLOSE (ISCR(7),EOFNRW) IF (.NOT.QPR) GO TO 230 I1 = I1 + 1 IZZ = 2*IZ(K) - 1 L = LLL + IZZ MM = IV1X + NORD8 WRITE (NOUT,760) I1,IZ(K),Z(L),Z(L+1),(Z(J),J=IV1,MM) WRITE (NOUT,770) C C EXPAND PHYSICAL EIGENVECTORS TO DOUBLE PRECISION FOR OUTPUT C 230 LIM1 = IV1 + NORD2 LIM2 = LIM1 + NORD4 INIDUM = IV1X + NORD4 DO 240 J = 1,NORD2 KI = LIM1 - J MI = 2*KI - IV1X MR = MI - 1 MRD = (MR+1)/2 C C EXPAND RIGHT-HAND VECTOR C Z(MI) = 0. Z(MR) = Z(KI) IF (DPMACH) DZ(MRD) = Z(KI) KI = LIM2 - J MI = 2*KI - INIDUM MR = MI - 1 MRD = (MR+1)/2 C C EXPAND LEFT -HAND VECTOR C Z(MI) = 0. Z(MR) = Z(KI) IF (DPMACH) DZ(MRD) = Z(KI) 240 CONTINUE IF (.NOT.QPR) GO TO 250 WRITE (NOUT,770) LIM1 = IV1X + NORD4 WRITE (NOUT,780) (Z(J),J=IV1,LIM1) WRITE (NOUT,770) LIM2 = LIM1 + NORD4 LIM1 = LIM1 + 1 WRITE (NOUT,780) (Z(J),J=LIM1,LIM2) WRITE (NOUT,770) C C PERFORM SPECIAL NORMALIZATION OF VECTORS FOR OUTPUT C 250 CALL CNORM1 (Z(IV1),IKMB(2)) IF (QPR) WRITE (NOUT,790) INIDUM = INIDUM + 1 CALL CNORM1 (Z(INIDUM),IKMB(2)) IF (QPR) WRITE (NOUT,790) CALL GOPEN (IPHI(1),Z(IBUF1),WRT) IF (JREG.LT.NOREG .AND. NFOUND.LT.NORD) GO TO 260 J = NORD2 IF (NO B) J = 2*J CALL WRITE (IPHI(1),Z(IV1),J,1) CALL CLOSE (IPHI(1),EOFNRW) GO TO 300 C C MUST USE NORD8 TO WRITE FULL RIGHT AND LEFT EIGENVECTORS C 260 CALL WRITE (IPHI(1),Z(IV1),NORD8,1) CALL CLOSE (IPHI(1),NOREW) 300 CONTINUE GO TO 500 420 WRITE (NOUT,530) NAME GO TO 500 430 WRITE (NOUT,540) M,NAME GO TO 500 440 WRITE (NOUT,580) UWM IF(NZERO.GT.0 .AND. JREG.EQ.NOREG) NSWP(2) = -1 GO TO 500 450 WRITE (NOUT,710) UWM,MSAVE GO TO 500 455 CALL MESAGE (-1,INIDUM,NAME) 460 CALL MESAGE (-2,INIDUM,NAME) 470 CALL MESAGE (-8,INIDUM,NAME) 500 RETURN C 530 FORMAT (27H UNEXPECTED EOF ENCOUNTERED,2X,2A4) 540 FORMAT (22H UNEXPECTED WORD COUNT,I5,2X,2A4) 550 FORMAT (A29,' 3152', //5X,'SUBROUTINE ALLMAT OUTPUT EIGENVALUE', 1 I4,' IS NULL.',//) 560 FORMAT (A25,' 3153', //5X,'ATTEMPT TO NORMALIZE NULL VECTOR IN ', 1 'SUBROUTINE ',A4,A2,'. NO ACTION TAKEN.',//) 570 FORMAT (A25,' 3154', //5X,'SIZE OF REDUCED PROBLEM DECREMENTED ', 1 'ONCE (NOW',I6,') DUE TO NULL ERROR ELEMENT.',//) 580 FORMAT (A25,' 3155', //5X,'REDUCED PROBLEM HAS VANISHED. NO ', 1 'ROOTS FOUND.',//) 590 FORMAT (A25,' 3156', //5X,'SIZE OF REDUCED PROBLEM RESTORED TO', 1 I8,' BECAUSE NEXT ERROR ELEMENT WAS ALSO NULL.', /5X, 3 'ERROR ELEMENT SET = ',2E16.8,//) 600 FORMAT (1H0,//7H CFEER4,//) 610 FORMAT (1H ,I10,36H SINGLE PRECISION WORDS OF OPEN CORE, 1 29H NOT USED (SUBROUTINE CFEER4)) 620 FORMAT (4H ROW,I5,2(4X,2E16.8)) 630 FORMAT (4H ROW,I5,2(4X,2D16.8)) 640 FORMAT (1H0,26HREDUCED TRIDIAGONAL MATRIX, /(1H ,6E16.8)) 650 FORMAT (1H0,//30H THEORETICAL EIGENVALUE ERRORS, 1 20X,18HD-SUB-M-PLUS-ONE =,2E16.8,/) 660 FORMAT (1H ,I5,E16.8,20X,2E16.8,10X,E16.8) 670 FORMAT (1H1,27X,39H***** F E E R ***** (FAST EIGENVALUE, 1 27H EXTRACTION ROUTINE) *****, //4X, 2 24HSUMMARY FOR NEIGHBORHOOD,I3,3H OF,I3,1H.,10X, 3 21HNEIGHBORHOOD CENTER =,2E16.8,/) 680 FORMAT (4X,43HALL SOLUTIONS FOUND IN CURRENT NEIGHBORHOOD, 1 12H ARE LISTED.,/) 690 FORMAT (4X,7X,8HSOLUTION,7X,8HORDER OF,7X,8HDISTANCE, 1 10X,10HEIGENVALUE,14X,11HTHEORETICAL, /4X, 2 9X,6HNUMBER,5X,10HEXTRACTION,4X,11HFROM CENTER, 3 6X,4HREAL,9X,9HIMAGINARY,9X,5HERROR,12X,6HSTATUS,/) 700 FORMAT (4X,I12,I15,1P,E18.8,1P,3E15.7,7X,2A4) 710 FORMAT (A25,' 3163', //5X,'ALL',I6,' SOLUTIONS HAVE FAILED ', 1 'ACCURACY TEST. NO ROOTS FOUND.',//) 720 FORMAT (A29,' 3164',//5X,'ALL',I6,' SOLUTIONS ARE ACCEPTABLE.',//) 730 FORMAT (4X,37HREJECTED SOLUTIONS HAVE BEEN DELETED.,/) 740 FORMAT (A29,' 3165', //4X,I6,' SOLUTIONS HAVE BEEN ACCEPTED AND', 1 I4,' SOLUTIONS HAVE BEEN REJECTED.',//) 750 FORMAT (1H1,27X,39H***** F E E R ***** (FAST EIGENVALUE, 1 27H EXTRACTION ROUTINE) *****,// 2 42X,37HE I G E N V E C T O R S U M M A R Y,//1H , 3 32(4H----),2H--) 760 FORMAT (1H ,8HSOLUTION,I4,8X,16HEXTRACTION ORDER,I4, 1 10X,10HEIGENVALUE,2X,1P,2E16.8, /(1H ,3(4X,1P,2E16.8))) 770 FORMAT (3H --,32(4H----)) 780 FORMAT ((1H ,3(3X,2E16.8))) 790 FORMAT (1H ,12HAFTER CNORM1) 800 FORMAT (1H ,10X,5HRMS =,E16.8) 810 FORMAT (1H ,33HLEFT-HAND EIGENVECTORS ELIMINATED,20X,2I8) END ================================================ FILE: mis/cfer3d.f ================================================ SUBROUTINE CFER3D (V1,V1L,V2,V2L,V3,V3L,V4,V4L,V5,V5L,ZB,ZC) C C CFER3D IS A DOUBLE PRECISION ROUTINE (CALLED BY CFEER3) WHICH C PERFORMS THE TRIDIAGONAL REDUCTION FOR THE COMPLEX FEER METHOD C LOGICAL SUCESS ,NO B ,SKIP ,AGAIN , 1 QPR ,SYMMET INTEGER CDP ,NAME(2) DOUBLE PRECISION V1(1) ,V1L(1) ,V2(1) ,V2L(1) , 1 V3(1) ,V3L(1) ,V4(1) ,V4L(1) , 2 V5(1) ,V5L(1) ,ZERO ,DSAVE(2) , 3 SS ,LAMBDA ,D(4) ,A(2) DIMENSION ZB(1) ,ZC(1) ,S(8) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /FEERAA/ IKMB(7,3),ILAM(7) ,IPHI(7) ,DUDXX , 1 ISCR(11) ,DUMAA(84),MCBVEC(7) COMMON /FEERXC/ LAMBDA(2),SYMMET ,MREDUC ,NORD , 1 IDIAG ,EPSDUM(2),NORTHO ,NORD2 , 2 NORD4 ,NORDP1 ,NSWP(2) ,NO B , 3 IT ,TEN2MT ,TENMHT ,NSTART , 4 QPR ,REGDUM(2),NZERO ,XCDUM(3) , 5 NUMRAN COMMON /SYSTEM/ KSYSTM(65) COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP , 1 INCRP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR EQUIVALENCE (A(1),D(3)) ,(KSYSTM(2),NOUT) , 1 (D(1),S(1)) DATA ZERO / 0.D0 / DATA NAME / 4HCFER ,4H3D / C C DEFINITION OF INPUT AND OUTPUT PARAMETERS C C V1,V2,V3,V4,V5 = AREAS OF OPEN CORE DESIGNATED BY SUBROUTINE C CFEER3 AND USED INTERNALLY AS WORKING VECTORS, C USUALLY RIGHT-HANDED C V1L,..,V5L = SAME AS V1 THRU V5 BUT USUALLY LEFT-HANDED C RESTRICTION ... LEFT-HANDED VECTOR MUST IMMEDIATELY FOLLOW C CORRESPONDING RIGHT-HANDED VECTOR IN CORE C ZB,ZC = REQUIRED GINO BUFFERS C C DEFINITION OF INTERNAL PARAMETERS C C A = DIAGONAL ELEMENTS OF REDUCED TRIDIAGONAL MATRIX C D = OFF-DIAG ELEMENTS OF REDUCED TRIDIAGONAL MATRIX C AGAIN = LOGICAL INDICATOR FOR CYCLING THRU LOGIC AGAIN WHEN C NULL VECTOR TEST (D-BAR) FAILS C SKIP = LOGICAL INDICATOR FOR AVOIDING REDUNDANT OPERATIONS C NORTHO = TOTAL CURRENT NUMBER OF VECTOR PAIRS ON ORTHOGONAL C VECTOR FILE C NZERO = NUMBER OF EIGENVECTOR PAIRS ON EIGENVECTOR FILE C (RESTART AND PRIOR NEIGHBORHOODS) C LANCOS = LANCZOS ALGORITHM COUNTER C NSTART = NUMBER OF INITIAL REORTHOGONALIZATION ATTEMPTS C IF (QPR) WRITE (NOUT,8887) 8887 FORMAT (1H1,50X,6HCFER3D, //) C C SET PACK AND UNPACK CONSTANTS C IPRC = CDP INCR = 1 ITP1 = IPRC ITP2 = ITP1 INCRP= INCR II = 1 IIP = 1 C C NN AND NNP ARE SET LOCALLY C CALL GOPEN (ISCR(7),ZB(1),WRTREW) CALL CLOSE (ISCR(7),NOREW) IF (NORTHO .EQ. 0) GO TO 20 C C LOAD AND RE-NORMALIZE ALL EXISTING VECTORS ON THE NASTRAN C EIGENVECTOR FILE (INCLUDES ANY RESTART VECTORS AND ALL VECTORS C OBTAINED IN PRIOR NEIGHBORHOODS). PACK THESE VECTORS ON C THE ORTHOGONAL VECTOR SCRATCH FILE. C CALL OPEN (*170,IPHI(1),ZC(1),0) C C LEFT-HAND VECTOR IS STORED IMMEDIATELY AFTER RIGHT-HAND VECTOR C NNP = NORD2 NORD8 = 2*NORD4 DO 15 I = 1,NORTHO IF (QPR) WRITE (NOUT,8802) I 8802 FORMAT (1H ,13(10H----------),/,' ORTHOGONAL VECTOR',I3) CALL READ (*190,*5,IPHI(1),V1(1),NORD8+10,0,N3) GO TO 210 5 IF (IDIAG .EQ. 0) GO TO 13 DO 8 J = 1,NORD4 IF (V1(J) .NE. ZERO) GO TO 13 8 CONTINUE WRITE (NOUT,590) I 13 CONTINUE IF (QPR) WRITE (NOUT,8803) (V1 (J),J=1,NORD2) IF (QPR) WRITE (NOUT,8803) (V1L(J),J=1,NORD2) 8803 FORMAT (1H ,(1H ,4D25.16)) CALL CFNOR2 (V1(1),V1L(1),NORD2,0,D(1)) IF (IDIAG.NE.0 .AND. NORD2.LE.70) WRITE (NOUT,570) I,(V1(J), 1 V1(J+1),V1L(J),V1L(J+1),J=1,NORD2,2) CALL GOPEN (ISCR(7),ZB(1),WRT) CALL PACK (V1(1),ISCR(7),MCBVEC(1)) CALL CLOSE (ISCR(7),NOREW) 15 CONTINUE CALL CLOSE (IPHI(1),NOREW) IF (IDIAG .NE. 0) WRITE (NOUT,580) NORTHO,MCBVEC C C GENERATE INITIAL PSEUDO-RANDOM VECTORS C 20 N3 = 3*NORD IJ = 0 SS = 1.D0 NZERO = NORTHO NSTART = 0 LANCOS = 0 AGAIN = .FALSE. D(1) = ZERO D(2) = ZERO 25 NUMRAN = NUMRAN + 1 DO 30 I = 1,NORD4 IJ = IJ + 1 SS = -SS IF (I.GT.NORD2) GO TO 28 IF (I.GT.NORD ) GO TO 27 JJ = 2*I - 1 GO TO 30 27 JJ = 2*(I-NORD) GO TO 30 28 IF (I.GT.N3) GO TO 29 JJ = 2*I - 1 - NORD2 GO TO 30 29 JJ = 2*(I-N3) + NORD2 C C THIS LOADS VALUES INTO V1 AND V1L C 30 V1(JJ) = SS*(MOD(IJ,3)+1)/(3.D0* 1 (MOD(IJ,13)+1)*(1+5.0D0*FLOAT(I)/NORD)) IF (QPR) WRITE (NOUT,8844) (V1(I),I=1,NORD4) 8844 FORMAT (1H0,13(10H----------)/(1H ,4D25.16)) IF (QPR) WRITE (NOUT,8845) 8845 FORMAT (1H ,13(10H----------)) C C NORMALIZE RIGHT AND LEFT START VECTORS C CALL CFNOR2 (V1(1),V1L(1),NORD2,0,D(1)) C C REORTHOGONALIZE START VECTORS W.R.T. RESTART AND C PRIOR-NEIGHBORHOOD VECTORS C CALL CF2ORT (SUCESS,10,TEN2MT,NZERO,LANCOS, 1 V1(1),V1L(1),V5(1),V5L(1),V3(1),V3L(1),ZB(1)) IF (SUCESS) GO TO 40 IF (AGAIN ) GO TO 160 35 NSTART = NSTART + 1 IF (NSTART .LE. 2) GO TO 25 WRITE (NOUT,600) UWM,LAMBDA GO TO 450 40 IF (AGAIN) GO TO 90 C C SWEEP START VECTORS CLEAN OF ZERO-ROOT EIGENVECTORS C CALL CFE2AO (.FALSE.,V1 (1),V2 (1),V3 (1),ZB(1)) CALL CFE2AO (.TRUE .,V1L(1),V2L(1),V3L(1),ZB(1)) C C NORMALIZE THE PURIFIED VECTOR AND OBTAIN D(1) C CALL CFNOR2 (V2(1),V2L(1),NORD2,0,D(1)) IF (NZERO.EQ.0 .OR. NORTHO.GT.NZERO) GO TO 50 C C IF RESTART OR BEGINNING OF NEXT NEIGHBORHOOD, PERFORM C REORTHOGONALIZATION AND RENORMALIZATION C CALL CF2ORT (SUCESS,10,TEN2MT,NZERO,LANCOS, 2 V2(1),V2L(1),V5(1),V5L(1),V3(1),V3L(1),ZB(1)) IF (.NOT.SUCESS) GO TO 35 CALL CFNOR2 (V2(1),V2L(1),NORD2,0,D(1)) C C LOAD FIRST VECTORS TO ORTHOGONAL VECTOR FILE C 50 CALL GOPEN (ISCR(7),ZB(1),WRT) NNP = NORD2 CALL PACK (V2(1),ISCR(7),MCBVEC(1)) CALL CLOSE (ISCR(7),NOREW) NORTHO = NORTHO + 1 C C COMMENCE LANCZOS ALGORITHM C C INITIALIZE BY CREATING NULL VECTOR C DO 60 I = 1,NORD2 V1 (I) = ZERO 60 V1L(I) = ZERO SKIP =.FALSE. C C ENTER LANCZOS LOOP C 70 LANCOS = LANCOS + 1 C C GENERATE DIAGONAL ELEMENT OF REDUCED TRIDIAGONAL MATRIX C IF (.NOT.SKIP) CALL CFE2AO (.FALSE.,V2(1),V3(1),V5(1),ZB(1)) SKIP = .FALSE. CALL CFNOR2 (V3(1),V2L(1),NORD2,1,A(1)) C C COMPUTE D-BAR C CALL CFE2AO (.TRUE.,V2L(1),V3L(1),V5(1),ZB(1)) DO 80 I = 1,NORD2,2 J = I + 1 V4(I) = V3(I) - A(1)*V2(I) + A(2)*V2(J) 2 - D(1)*V1(I) + D(2)*V1(J) V4(J) = V3(J) - A(1)*V2(J) - A(2)*V2(I) 2 - D(1)*V1(J) - D(2)*V1(I) V4L(I) = V3L(I) - A(1)*V2L(I) + A(2)*V2L(J) 2 - D(1)*V1L(I) + D(2)*V1L(J) 80 V4L(J) = V3L(J) - A(1)*V2L(J) - A(2)*V2L(I) 2 - D(1)*V1L(J) - D(2)*V1L(I) CALL CFNOR2 (V4(1),V4L(1),NORD2,2,D(1)) DSAVE(1) = D(1) DSAVE(2) = D(2) C C TEST IF LANCZOS ALGORITHM FINISHED C IF (LANCOS .EQ. MREDUC) GO TO 150 IF (.NOT.QPR) GO TO 85 WRITE (NOUT,8845) WRITE (NOUT,8886) D 8886 FORMAT (8H D-BAR =,2D16.8,9X,3HA =,2D16.8) WRITE (NOUT,8844) (V4 (I),I=1,NORD2) WRITE (NOUT,8844) (V4L(I),I=1,NORD2) WRITE (NOUT,8845) 85 CONTINUE C C NULL VECTOR TEST C IF (DSQRT(D(1)**2+D(2)**2) .GT. 1 DSQRT(A(1)**2+A(2)**2)*DBLE(TENMHT)) GO TO 100 IF (IDIAG .NE. 0) WRITE (NOUT,610) D AGAIN = .TRUE. GO TO 25 90 CALL CFE2AO (.FALSE.,V1 (1),V4 (1),V3 (1),ZB(1)) CALL CFE2AO (.TRUE .,V1L(1),V4L(1),V3L(1),ZB(1)) C C PERFORM REORTHOGONALIZATION C 100 CALL CFNOR2 (V4(1),V4L(1),NORD2,0,D(1)) CALL CF2ORT (SUCESS,10,TEN2MT,NZERO,LANCOS, 2 V4(1),V4L(1),V3(1),V3L(1),V5(1),V5L(1),ZB(1)) IF (.NOT.SUCESS) GO TO 160 C C NORMALIZE THE REORTHOGONALIZED VECTORS C CALL CFNOR2 (V4(1),V4L(1),NORD2,0,D(1)) C C GENERATE OFF-DIAGONAL ELEMENT OF REDUCED TRIDIAGONAL MATRIX C CALL CFE2AO (.FALSE.,V4(1),V3(1),V5(1),ZB(1)) SKIP = .TRUE. CALL CFNOR2 (V3(1),V2L(1),NORD2,1,D(1)) IF (AGAIN) GO TO 105 C C NULL VECTOR TEST C IF (DSQRT(D(1)**2+D(2)**2) .LE. 2 DSQRT(A(1)**2+A(2)**2)*DBLE(TENMHT)) GO TO 160 GO TO 110 105 AGAIN = .FALSE. D(1) = ZERO D(2) = ZERO C C TRANSFER TWO ELEMENTS TO REDUCED TRIDIAGONAL MATRIX FILE C 110 CALL WRITE (ISCR(5),S(1),8,1) IF (IDIAG .NE. 0) WRITE (NOUT,560) LANCOS,D C C LOAD CURRENT VECTORS TO ORTHOGONAL VECTOR FILE C CALL GOPEN (ISCR(7),ZB(1),WRT) NNP = NORD2 CALL PACK (V4(1),ISCR(7),MCBVEC(1)) CALL CLOSE (ISCR(7),NOREW) NORTHO = NORTHO + 1 C C TRANSFER (I+1)-VECTORS TO (I)-VECTORS AND CONTINUE LANCZOS LOOP C DO 130 I = 1,NORD2 V1 (I) = V2 (I) V1L(I) = V2L(I) V2 (I) = V4 (I) 130 V2L(I) = V4L(I) GO TO 70 C C TRANSFER TWO ELEMENTS TO REDUCED TRIDIAGONAL MATRIX FILE C 150 IF (D(1).NE.ZERO .OR. D(2).NE.ZERO) GO TO 155 D(1) = DSAVE(1) D(2) = DSAVE(2) 155 CALL WRITE (ISCR(5),S(1),8,1) IF (IDIAG .NE. 0) WRITE (NOUT,560) LANCOS,D GO TO 450 160 MREDUC = LANCOS WRITE (NOUT,500) UWM,MREDUC,LAMBDA IF (.NOT.AGAIN) GO TO 150 D(1) = ZERO D(2) = ZERO GO TO 150 170 I = -1 180 CALL MESAGE (I,IPHI(1),NAME) 190 I = -2 GO TO 180 210 I = -8 GO TO 180 450 RETURN C 500 FORMAT (A25,' 3157',//5X,'FEER PROCESS MAY HAVE CALCULATED FEWER', 1 ' ACCURATE MODES',I5,' THAN REQUESTED IN THE NEIGHBORHOOD', 2 ' OF',2D14.6//) 560 FORMAT (36H REDUCED TRIDIAGONAL MATRIX ELEMENTS,5X,3HROW,I4, /10X, 2 14HOFF-DIAGONAL =,2D24.16, /14X,10HDIAGONAL =,2D24.16) 570 FORMAT (18H0ORTHOGONAL VECTOR,I4, /1H0,23X,5HRIGHT,56X,4HLEFT, //, 1 2(1H ,2D25.16,10X,2D25.16)) 580 FORMAT (1H0,I10,32H ORTHOGONAL VECTOR PAIRS ON FILE,5X,12X,6I8,/) 590 FORMAT (18H ORTHOGONAL VECTOR,I4,8H IS NULL) 600 FORMAT (A25,' 3158',//5X,'NO ADDITIONAL MODES CAN BE FOUND BY ', 1 'FEER IN THE NEIGHBORHOOD OF ',2D14.6,//) 610 FORMAT (14H D-BAR IS NULL,10X,4D20.12) END ================================================ FILE: mis/cfer3s.f ================================================ SUBROUTINE CFER3S (V1,V1L,V2,V2L,V3,V3L,V4,V4L,V5,V5L,ZB,ZC) C C CFER3S IS A SINGLE PRECISION ROUTINE (CALLED BY CFEER3) WHICH C PERFORMS THE TRIDIAGONAL REDUCTION FOR THE COMPLEX FEER METHOD C LOGICAL SUCESS ,NO B ,SKIP ,AGAIN , 1 QPR ,SYMMET INTEGER CSP ,NAME(2) REAL LAMBDA ,TEMP1(2) DOUBLE PRECISION TEMP2 DIMENSION ZB(1) ,ZC(1) ,S(8) ,A(2) , 1 V1(1) ,V1L(1) ,V2(1) ,V2L(1) , 2 V3(1) ,V3L(1) ,V4(1) ,V4L(1) , 3 V5(1) ,V5L(1) ,DSAVE(2) ,D(4) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /FEERAA/ IKMB(7,3),ILAM(7) ,IPHI(7) ,DUDXX , 1 ISCR(11) ,DUMAA(84),MCBVEC(7) COMMON /FEERXC/ LAMBDA(4),SYMMET ,MREDUC ,NORD , 1 IDIAG ,EPSDUM(2),NORTHO ,NORD2 , 2 NORD4 ,NORDP1 ,NSWP(2) ,NO B , 3 IT ,TEN2MT ,TENMHT ,NSTART , 4 QPR ,REGDUM(2),NZERO ,XCDUM(3) , 5 NUMRAN COMMON /SYSTEM/ KSYSTM(65) COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP , 1 INCRP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR EQUIVALENCE (A(1),D(3)) ,(KSYSTM(2),NOUT ) , 1 (D(1),S(1)) ,(TEMP1(1) ,TEMP2) DATA ZERO / 0. / DATA NAME / 4HCFER,4H3S / C C DEFINITION OF INPUT AND OUTPUT PARAMETERS C C V1,V2,V3,V4,V5 = AREAS OF OPEN CORE DESIGNATED BY SUBROUTINE C CFEER3 AND USED INTERNALLY AS WORKING VECTORS, C USUALLY RIGHT-HANDED C V1L,.......,V5L = SAME AS V1 THRU V5 BUT USUALLY LEFT-HANDED C RESTRICTION ..... LEFT-HANDED VECTOR MUST IMMEDIATELY FOLLOW C CORRESPONDING RIGHT-HANDED VECTOR IN CORE C ALSO, V2 SHOULD FOLLOW V1L FOR READ TO WORK C ZB,ZC = REQUIRED GINO BUFFERS C C DEFINITION OF INTERNAL PARAMETERS C C A = DIAGONAL ELEMENTS OF REDUCED TRIDIAGONAL MATRIX C D = OFF-DIAG ELEMENTS OF REDUCED TRIDIAGONAL MATRIX C AGAIN = LOGICAL INDICATOR FOR CYCLING THRU LOGIC AGAIN WHEN C NULL VECTOR TEST (D-BAR) FAILS C SKIP = LOGICAL INDICATOR FOR AVOIDING REDUNDANT OPERATIONS C NORTHO = TOTAL CURRENT NUMBER OF VECTOR PAIRS ON ORTHOGONAL C VECTOR FILE C NZERO = NUMBER OF EIGENVECTOR PAIRS ON EIGENVECTOR FILE C (RESTART AND PRIOR NEIGHBORHOODS) C LANCOS = LANCZOS ALGORITHM COUNTER C NSTART = NUMBER OF INITIAL REORTHOGONALIZATION ATTEMPTS C IF (QPR) WRITE (NOUT,8887) 8887 FORMAT (1H1,50X,6HCFER3S,/1H0) C C SET PACK AND UNPACK CONSTANTS C IPRC = CSP INCR = 1 ITP1 = IPRC ITP2 = ITP1 INCRP= INCR II = 1 IIP = 1 C C NN AND NNP ARE SET LOCALLY C CALL GOPEN (ISCR(7),ZB(1),WRTREW) CALL CLOSE (ISCR(7),NOREW) IF (NORTHO .EQ. 0) GO TO 20 C C LOAD AND RE-NORMALIZE ALL EXISTING VECTORS ON THE NASTRAN C EIGENVECTOR FILE (INCLUDES ANY RESTART VECTORS AND ALL VECTORS C OBTAINED IN PRIOR NEIGHBORHOODS). PACK THESE VECTORS ON C THE ORTHOGONAL VECTOR SCRATCH FILE. C CALL OPEN (*170,IPHI(1),ZC(1),0) C C LEFT-HAND VECTOR IS STORED IMMEDIATELY AFTER RIGHT-HAND VECTOR C NNP = NORD2 NORD8 = 2*NORD4 DO 15 I = 1,NORTHO IF (QPR) WRITE (NOUT,8802) I 8802 FORMAT(1H ,13(10H----------),/,18H ORTHOGONAL VECTOR,I3) C C THIS LOADS VALUES INTO V1, V1L, V2, AND V2L C CALL READ (*190,*5,IPHI(1),V1(1),NORD8+10,0,N3) GO TO 210 C C COMPRESS PHYSICAL EIGENVECTORS TO SINGLE PRECISION C 5 DO 6 J = 1,NORD4 J2 = J*2 TEMP1(1) = V1(J2-1) TEMP1(2) = V1(J2 ) 6 V1(J) = TEMP2 IF (IDIAG .EQ. 0) GO TO 13 DO 8 J = 1,NORD4 IF (V1(J) .NE. ZERO) GO TO 13 8 CONTINUE WRITE (NOUT,590) I 13 CONTINUE IF (QPR) WRITE (NOUT,8803) (V1 (J),J=1,NORD2) IF (QPR) WRITE (NOUT,8803) (V1L(J),J=1,NORD2) 8803 FORMAT (1H ,(1H ,4E25.16)) CALL CFNOR1 (V1(1),V1L(1),NORD2,0,D(1)) IF (IDIAG.NE.0 .AND. NORD2.LE.70) WRITE (NOUT,570) I, 1 (V1(J),V1(J+1),V1L(J),V1L(J+1),J=1,NORD2,2) CALL GOPEN (ISCR(7),ZB(1),WRT) CALL PACK (V1(1),ISCR(7),MCBVEC(1)) CALL CLOSE (ISCR(7),NOREW) 15 CONTINUE CALL CLOSE (IPHI(1),NOREW) IF (IDIAG .NE. 0) WRITE (NOUT,580) NORTHO,MCBVEC C C GENERATE INITIAL PSEUDO-RANDOM VECTORS C 20 N3 = 3*NORD IJ = 0 SS = 1. NZERO = NORTHO NSTART = 0 LANCOS = 0 AGAIN = .FALSE. D(1) = ZERO D(2) = ZERO 25 NUMRAN = NUMRAN + 1 DO 30 I = 1,NORD4 IJ = IJ + 1 SS =-SS IF (I .GT. NORD2) GO TO 28 IF (I .GT. NORD ) GO TO 27 JJ = 2*I - 1 GO TO 30 27 JJ = 2*(I-NORD) GO TO 30 28 IF (I .GT. N3) GO TO 29 JJ = 2*I - 1 - NORD2 GO TO 30 29 JJ = 2*(I-N3) + NORD2 C C THIS LOADS VALUES INTO V1 AND V1L C 30 V1(JJ) = SS*(MOD(IJ,3)+1)/ 1 (3.*(MOD(IJ,13)+1)*(1+5*FLOAT(I)/NORD)) IF (QPR) WRITE (NOUT,8844) (V1(I),I=1,NORD4) 8844 FORMAT (1H0,13(10H----------),/,(1H ,4E25.16)) IF (QPR) WRITE (NOUT,8845) 8845 FORMAT (1H ,13(10H----------)) C C NORMALIZE RIGHT AND LEFT START VECTORS C CALL CFNOR1 (V1(1),V1L(1),NORD2,0,D(1)) C C REORTHOGONALIZE START VECTORS W.R.T. RESTART AND C PRIOR-NEIGHBORHOOD VECTORS C CALL CF1ORT (SUCESS,10,TEN2MT,NZERO,LANCOS, 2 V1(1),V1L(1),V5(1),V5L(1),V3(1),V3L(1),ZB(1)) IF (SUCESS) GO TO 40 IF (AGAIN ) GO TO 160 35 NSTART = NSTART + 1 IF (NSTART .LE. 2) GO TO 25 WRITE (NOUT,600) UWM,LAMBDA(1),LAMBDA(3) GO TO 450 40 IF (AGAIN) GO TO 90 C C SWEEP START VECTORS CLEAN OF ZERO-ROOT EIGENVECTORS C CALL CFE1AO (.FALSE.,V1 (1),V2 (1),V3 (1),ZB(1)) CALL CFE1AO (.TRUE .,V1L(1),V2L(1),V3L(1),ZB(1)) C C NORMALIZE THE PURIFIED VECTOR AND OBTAIN D(1) C CALL CFNOR1 (V2(1),V2L(1),NORD2,0,D(1)) IF (NZERO.EQ.0 .OR. NORTHO.GT.NZERO) GO TO 50 C C IF RESTART OR BEGINNING OF NEXT NEIGHBORHOOD, PERFORM C REORTHOGONALIZATION AND RENORMALIZATION C CALL CF1ORT (SUCESS,10,TEN2MT,NZERO,LANCOS, 1 V2(1),V2L(1),V5(1),V5L(1),V3(1),V3L(1),ZB(1)) IF (.NOT.SUCESS) GO TO 35 CALL CFNOR1 (V2(1),V2L(1),NORD2,0,D(1)) C C LOAD FIRST VECTORS TO ORTHOGONAL VECTOR FILE C 50 CALL GOPEN (ISCR(7),ZB(1),WRT) NNP = NORD2 CALL PACK (V2(1),ISCR(7),MCBVEC(1)) CALL CLOSE (ISCR(7),NOREW) NORTHO = NORTHO + 1 C C COMMENCE LANCZOS ALGORITHM C C INITIALIZE BY CREATING NULL VECTOR C DO 60 I = 1,NORD2 V1 (I) = ZERO 60 V1L(I) = ZERO SKIP = .FALSE. C C ENTER LANCZOS LOOP C 70 LANCOS = LANCOS + 1 C C GENERATE DIAGONAL ELEMENT OF REDUCED TRIDIAGONAL MATRIX C IF (.NOT.SKIP) CALL CFE1AO (.FALSE.,V2(1),V3(1),V5(1),ZB(1)) SKIP = .FALSE. CALL CFNOR1 (V3(1),V2L(1),NORD2,1,A(1)) C C COMPUTE D-BAR C CALL CFE1AO (.TRUE.,V2L(1),V3L(1),V5(1),ZB(1)) DO 80 I = 1,NORD2,2 J = I + 1 V4(I) = V3(I) - A(1)*V2(I) + A(2)*V2(J) - D(1)*V1(I) + D(2)*V1(J) V4(J) = V3(J) - A(1)*V2(J) - A(2)*V2(I) - D(1)*V1(J) - D(2)*V1(I) V4L(I) = V3L(I) - A(1)*V2L(I) + A(2)*V2L(J) 1 - D(1)*V1L(I) + D(2)*V1L(J) 80 V4L(J) = V3L(J) - A(1)*V2L(J) - A(2)*V2L(I) 1 - D(1)*V1L(J) - D(2)*V1L(I) CALL CFNOR1 (V4(1),V4L(1),NORD2,2,D(1)) DSAVE(1) = D(1) DSAVE(2) = D(2) C C TEST IF LANCZOS ALGORITHM FINISHED C IF (LANCOS .EQ. MREDUC) GO TO 150 IF (.NOT.QPR) GO TO 85 WRITE (NOUT,8845) WRITE (NOUT,8886) D 8886 FORMAT (8H D-BAR =,2E16.8,9X,3HA =,2E16.8) WRITE (NOUT,8844) (V4 (I),I=1,NORD2) WRITE (NOUT,8844) (V4L(I),I=1,NORD2) WRITE (NOUT,8845) 85 CONTINUE C C NULL VECTOR TEST C IF (SQRT(D(1)**2+D(2)**2) .GT. SQRT(A(1)**2+A(2)**2)*TENMHT) 1 GO TO 100 IF (IDIAG .NE. 0) WRITE (NOUT,610) D AGAIN = .TRUE. GO TO 25 90 CALL CFE1AO (.FALSE.,V1 (1),V4 (1),V3 (1),ZB(1)) CALL CFE1AO (.TRUE .,V1L(1),V4L(1),V3L(1),ZB(1)) C C PERFORM REORTHOGONALIZATION C 100 CALL CFNOR1 (V4(1),V4L(1),NORD2,0,D(1)) CALL CF1ORT (SUCESS,10,TEN2MT,NZERO,LANCOS, 1 V4(1),V4L(1),V3(1),V3L(1),V5(1),V5L(1),ZB(1)) IF (.NOT.SUCESS) GO TO 160 C C NORMALIZE THE REORTHOGONALIZED VECTORS C CALL CFNOR1 (V4(1),V4L(1),NORD2,0,D(1)) C C GENERATE OFF-DIAGONAL ELEMENT OF REDUCED TRIDIAGONAL MATRIX C CALL CFE1AO (.FALSE.,V4(1),V3(1),V5(1),ZB(1)) SKIP = .TRUE. CALL CFNOR1 (V3(1),V2L(1),NORD2,1,D(1)) IF (AGAIN) GO TO 105 C C NULL VECTOR TEST C IF (SQRT(D(1)**2+D(2)**2) .LE. SQRT(A(1)**2+A(2)**2)*TENMHT) 1 GO TO 160 GO TO 110 105 AGAIN = .FALSE. D(1) = ZERO D(2) = ZERO C C TRANSFER TWO ELEMENTS TO REDUCED TRIDIAGONAL MATRIX FILE C 110 CALL WRITE (ISCR(5),S(1),4,1) IF (IDIAG .NE. 0) WRITE (NOUT,560) LANCOS,D C C LOAD CURRENT VECTORS TO ORTHOGONAL VECTOR FILE C CALL GOPEN (ISCR(7),ZB(1),WRT) NNP = NORD2 CALL PACK (V4(1),ISCR(7),MCBVEC(1)) CALL CLOSE (ISCR(7),NOREW) NORTHO = NORTHO + 1 C C TRANSFER (I+1)-VECTORS TO (I)-VECTORS AND CONTINUE LANCZOS LOOP C DO 130 I = 1,NORD2 V1 (I) = V2 (I) V1L(I) = V2L(I) V2 (I) = V4 (I) 130 V2L(I) = V4L(I) GO TO 70 C C TRANSFER TWO ELEMENTS TO REDUCED TRIDIAGONAL MATRIX FILE C 150 IF (D(1).NE.ZERO .OR. D(2).NE.ZERO) GO TO 155 D(1) = DSAVE(1) D(2) = DSAVE(2) 155 CALL WRITE (ISCR(5),S(1),4,1) IF (IDIAG .NE. 0) WRITE (NOUT,560) LANCOS,D GO TO 450 160 MREDUC = LANCOS WRITE (NOUT,500) UWM,MREDUC,LAMBDA(1),LAMBDA(3) IF (.NOT.AGAIN) GO TO 150 D(1) = ZERO D(2) = ZERO GO TO 150 C 170 I = -1 180 CALL MESAGE (I,IPHI(1),NAME) 190 I = -2 GO TO 180 210 I = -8 GO TO 180 C 450 RETURN C 500 FORMAT (A25,' 3157', //5X,'FEER PROCESS MAY HAVE CALCULATED ', 1 'FEWER ACCURATE MODES',I5, 2 ' THAN REQUESTED IN THE NEIGHBORHOOD OF ',2E14.6,//) 560 FORMAT (36H REDUCED TRIDIAGONAL MATRIX ELEMENTS,5X,3HROW,I4, /10X, 1 14HOFF-DIAGONAL =,2E24.16, /14X,10HDIAGONAL =,2E24.16) 570 FORMAT (1H0,17HORTHOGONAL VECTOR,I4, /1H0,23X,5HRIGHT,56X,4HLEFT, 1 //,(1H ,2E25.16,10X,2E25.16)) 580 FORMAT (1H0,I10,32H ORTHOGONAL VECTOR PAIRS ON FILE,I5,12X,6I8,/) 590 FORMAT (18H ORTHOGONAL VECTOR,I4,8H IS NULL) 600 FORMAT (A25,' 3158', //5X,'NO ADDITIONAL MODES CAN BE FOUND BY ', 1 'FEER IN THE NEIGHBORHOOD OF ',2E14.6,//) 610 FORMAT (14H D-BAR IS NULL,10X,4E20.12) END ================================================ FILE: mis/cfnor1.f ================================================ SUBROUTINE CFNOR1 (RIGHT,LEFT,SIZE2,OPTION,RI) C C CFNOR1 IS A SINGLE-PRECISION ROUTINE (CREATED FOR USE BY C THE COMPLEX FEER METHOD) WHICH NORMALIZES A COMPLEX PAIR C OF VECTORS TO MAGNITUDE UNITY C C DEFINITION OF INPUT PARAMETERS C C RIGHT = ORIGINAL RIGHT-HANDED COMPLEX SINGLE PRECISION VECTOR C LEFT = ORIGINAL LEFT -HANDED COMPLEX SINGLE PRECISION VECTOR C SIZE2 = LENGTH OF EITHER VECTOR IN SINGLE PRECISION WORDS C (I.E., TWICE THE LENGTH OF THE COMPLEX VECTORS) C OPTION = 0 NORMALIZE THE INPUT VECTORS, AND OUTPUT THE C SQUARE ROOT OF THE INNER PRODUCT IN RI(2) C = 1 ONLY OUTPUT INNER-PRODUCT, IN RI(2) C = 2 ONLY OUTPUT SQUARE ROOT OF INNER-PRODUCT, IN RI(2) C C DEFINITION OF OUTPUT PARAMETERS C C RIGHT = NORMALIZED RIGHT-HANDED VECTOR C LEFT = NORMALIZED LEFT -HANDED VECTOR C RI = INNER-PRODUCT, OR SQUARE ROOT OF INNER-PRODUCT (SEE C OPTION) C LOGICAL SKIP ,QPR INTEGER SIZE2 ,OPTION REAL LEFT DIMENSION RIGHT(1) ,LEFT(1) ,RI(2) ,RJ(2) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /FEERXC/ DUMXC(21),QPR COMMON /SYSTEM/ KSYSTM(65) EQUIVALENCE (KSYSTM(2),NOUT) C SKIP = .FALSE. C C COMPUTE INNER PRODUCT (LEFT*RIGHT) C 5 RI(1) = 0. RI(2) = 0. DO 10 I = 1,SIZE2,2 J = I + 1 RI(1) = RI(1) + LEFT(I)*RIGHT(I) - LEFT(J)*RIGHT(J) 10 RI(2) = RI(2) + LEFT(J)*RIGHT(I) + LEFT(I)*RIGHT(J) IF (OPTION .EQ. 1) GO TO 50 IF (SKIP) GO TO 200 C C COMPUTE MAGNITUDE OF SQUARE ROOT C RSQRT = SQRT(SQRT(RI(1)**2+RI(2)**2)) IF (RSQRT .GT. 0.) GO TO 30 WRITE (NOUT,20) UWM 20 FORMAT (A25,' 3162', //5X,'ATTEMPT TO NORMALIZE NULL VECTOR. ', 1 'NO ACTION TAKEN.'//) GO TO 50 C C COMPUTE MODULUS OF SQUARE ROOT C 30 THETA2 = .5*ATAN2(RI(2),RI(1)) C C COMPUTE REAL AND IMAGINARY PARTS OF SQUARE ROOT OF INNER PRODUCT C RI(1) = RSQRT*COS(THETA2) RI(2) = RSQRT*SIN(THETA2) IF (OPTION .EQ. 2) GO TO 50 RJ(1) = RI(1) RJ(2) = RI(2) C C INVERT THE ABOVE COMPLEX NUMBER (THETA2 IS DUMMY) C THETA2= 1./(RI(1)**2+RI(2)**2) RI(1) = RI(1)*THETA2 RI(2) =-RI(2)*THETA2 C C NORMALIZE THE INPUT VECTORS C DO 40 I = 1,SIZE2,2 J = I + 1 THETA2 = RIGHT(I) RIGHT(I) = RI(1)*RIGHT(I) - RI(2)*RIGHT(J) RIGHT(J) = RI(2)*THETA2 + RI(1)*RIGHT(J) THETA2 = LEFT(I) LEFT(I) = RI(1)*LEFT(I) - RI(2)*LEFT(J) 40 LEFT(J) = RI(2)*THETA2 + RI(1)*LEFT(J) C C ----------- SPECIAL PRINT ---------------------------------------- IF (.NOT.QPR) GO TO 45 SKIP = .TRUE. GO TO 5 200 THETA2 = SQRT(RI(1)**2 + RI(2)**2) WRITE (NOUT,300) THETA2,RI 300 FORMAT (3H --,32(4H----), /,7H CFNOR1,6X, 1 16HOUTPUT MAGNITUDE,E16.8,8X,2E16.8, /,3H --,32(4H----)) WRITE (NOUT,400) (RIGHT(I),I=1,SIZE2) 400 FORMAT ((1H ,4E25.16)) WRITE (NOUT,500) 500 FORMAT (3H --,32(4H----)) WRITE (NOUT,400) (LEFT(I),I=1,SIZE2) WRITE (NOUT,500) C ------------------------------------------------------------------ C 45 RI(1) = RJ(1) RI(2) = RJ(2) 50 RETURN END ================================================ FILE: mis/cfnor2.f ================================================ SUBROUTINE CFNOR2 (RIGHT,LEFT,SIZE2,OPTION,RI) C C CFNOR2 IS A DOUBLE-PRECISION ROUTINE (CREATED FOR USE BY C THE COMPLEX FEER METHOD) WHICH NORMALIZES A COMPLEX PAIR C OF VECTORS TO MAGNITUDE UNITY C C DEFINITION OF INPUT PARAMETERS C C RIGHT = ORIGINAL RIGHT-HANDED COMPLEX DOUBLE PRECISION VECTOR C LEFT = ORIGINAL LEFT -HANDED COMPLEX DOUBLE PRECISION VECTOR C SIZE2 = LENGTH OF EITHER VECTOR IN DOUBLE PRECISION WORDS C (I.E., TWICE THE LENGTH OF THE COMPLEX VECTORS) C OPTION = 0 NORMALIZE THE INPUT VECTORS, AND OUTPUT THE C SQUARE ROOT OF THE INNER PRODUCT IN RI(2) C = 1 ONLY OUTPUT INNER-PRODUCT, IN RI(2) C = 2 ONLY OUTPUT SQUARE ROOT OF INNER-PRODUCT, IN RI(2) C C DEFINITION OF OUTPUT PARAMETERS C C RIGHT = NORMALIZED RIGHT-HANDED VECTOR C LEFT = NORMALIZED LEFT -HANDED VECTOR C RI = INNER-PRODUCT, OR SQUARE ROOT OF INNER-PRODUCT (SEE C OPTION) C LOGICAL SKIP ,QPR INTEGER SIZE2 ,OPTION DOUBLE PRECISION RIGHT(1) ,LEFT(1) ,RI(2) ,RSQRT , 1 THETA2 ,RJ(2) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /FEERXC/ DUMXC(21),QPR COMMON /SYSTEM/ KSYSTM(65) EQUIVALENCE (KSYSTM(2),NOUT) C SKIP = .FALSE. C C COMPUTE INNER PRODUCT (LEFT*RIGHT) C 5 RI(1) = 0.D0 RI(2) = 0.D0 DO 10 I = 1,SIZE2,2 J = I + 1 RI(1) = RI(1) + LEFT(I)*RIGHT(I) - LEFT(J)*RIGHT(J) 10 RI(2) = RI(2) + LEFT(J)*RIGHT(I) + LEFT(I)*RIGHT(J) IF (OPTION .EQ. 1) GO TO 50 IF (SKIP) GO TO 200 C C COMPUTE MAGNITUDE OF SQUARE ROOT C RSQRT = DSQRT(DSQRT(RI(1)**2 + RI(2)**2)) IF (RSQRT .GT. 0.D0) GO TO 30 WRITE (NOUT,20) UWM 20 FORMAT (A25,' 3162', //5X,'ATTEMPT TO NORMALIZE NULL VECTOR. ', 1 'NO ACTION TAKEN.'//) GO TO 50 C C COMPUTE MODULUS OF SQUARE ROOT C 30 THETA2 = .5D0*DATAN2(RI(2),RI(1)) C C COMPUTE REAL AND IMAGINARY PARTS OF SQUARE ROOT OF INNER PRODUCT C RI(1) = RSQRT*DCOS(THETA2) RI(2) = RSQRT*DSIN(THETA2) IF (OPTION .EQ. 2) GO TO 50 RJ(1) = RI(1) RJ(2) = RI(2) C C INVERT THE ABOVE COMPLEX NUMBER (THETA2 IS DUMMY) C THETA2= 1.D0/(RI(1)**2 + RI(2)**2) RI(1) = RI(1)*THETA2 RI(2) =-RI(2)*THETA2 C C NORMALIZE THE INPUT VECTORS C DO 40 I = 1,SIZE2,2 J = I + 1 THETA2 = RIGHT(I) RIGHT(I) = RI(1)*RIGHT(I) - RI(2)*RIGHT(J) RIGHT(J) = RI(2)*THETA2 + RI(1)*RIGHT(J) THETA2 = LEFT(I) LEFT(I) = RI(1)*LEFT(I) - RI(2)*LEFT(J) 40 LEFT(J) = RI(2)*THETA2 + RI(1)*LEFT(J) C C ----------- SPECIAL PRINT ---------------------------------------- IF (.NOT.QPR) GO TO 45 SKIP = .TRUE. GO TO 5 200 THETA2 = DSQRT(RI(1)**2 + RI(2)**2) WRITE (NOUT,300) THETA2,RI 300 FORMAT (3H --,32(4H----), /,7H CFNOR2,26X, 1 16HOUTPUT MAGNITUDE,D16.8,8X,2D16.8, /,3H --,32(4H----)) WRITE (NOUT,400) (RIGHT(I),I=1,SIZE2) 400 FORMAT ((1H ,4D25.16)) WRITE (NOUT,500) 500 FORMAT (3H --,32(4H----)) WRITE (NOUT,400) (LEFT(I),I=1,SIZE2) WRITE (NOUT,500) C ------------------------------------------------------------------ C 45 RI(1) = RJ(1) RI(2) = RJ(2) 50 RETURN END ================================================ FILE: mis/chkopn.f ================================================ SUBROUTINE CHKOPN (NAME) C C CHECKS IF A CALL TO SOFOPN HAS BEEN MADE. C LOGICAL OPNSOF DIMENSION NAME(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SOFCOM/ SOFDUM(25),OPNSOF COMMON /SYSTEM/ NBUFF,NOUT C IF (OPNSOF) GO TO 20 WRITE (NOUT,10) UFM,NAME 10 FORMAT (A23,' 6204, SUBROUTINE ',2A4,' - THE SUBROUTINE SOFOPN ', 1 'SHOULD BE CALLED PRIOR TO ANY OF THE SOF UTILITY ', 2 'SUBROUTINES.') CALL MESAGE (-61,0,0) 20 RETURN END ================================================ FILE: mis/cidck.f ================================================ SUBROUTINE CIDCK (Z,BUF,NOPEN) C C BULK DATA CARD COORDINATE CHECK C THIS ROUTINE IS CALLED ONLY BY IFP, IN LINK1 C C WRITTEN BY G.CHAN/UNISYS 9/1989 C C LIST OF NASTRAN BULK DATA CARDS THAT REFERENCE COORDINATE CID - C C BULK DATA CID NO. OF GINO LOCATE C CARD FIELD WORDS FILE INDEX C ---------- ------- ------- --------- ------------ C AXIF 1 1 AXIC 8815,88 C BFIELD 1 2 GEOM1 3101,31 C CEMLOOP* 13 13 GEOM3 3109,31 C CONM2 3 13 GEOM2 1501,15 C CORD1C 1 6 GEOM1 1701,17 C CORD1R 1 6 GEOM1 1801,18 C CORD1S 1 6 GEOM1 1901,19 C CORD2C 1,4 13 GEOM1 2001,20 C CORD2R 1,4 13 GEOM1 2101,21 C CORD2S 1,4 13 GEOM1 2201,22 C FORCE 3 7 GEOM3 4201,42 C GEMLOOP* 3 - GEOM3 3309,33 C GRAV 2 6 GEOM3 4401,44 C GRID/GRDSET 2,6 8 GEOM1 4501,45 C GRIDB 3 5 GEOM1 8115,81 C MDIPOLE* 2 10 GEOM3 3509,35 C MOMENT 3 7 GEOM3 4801,48 C PIHEX 3 7 EPT 7002,70 C PLOAD4 9 12 GEOM3 6709,67 C REMFLUX* 2 - GEOM3 3409,34 CWKBR 2/95 SPR94015 RFORCE 3 8 GEOM3 5509,55 C RFORCE 3 7 GEOM3 5509,55 C SPCFLD* 2 - GEOM3 3209,32 C C * THE CID'S ON THESE CARDS CURRENTLY MUST BE ZERO OR BLANK, AND C WERE CHECKED ALREADY IN IFS4P. THEREFORE THEY ARE NOT CHECKED C HERE. C IMPLICIT INTEGER (A-Z) EXTERNAL ANDF LOGICAL ABORT INTEGER AXIF(2), BFIELD(2), CONM2(2), CORD(2), FORCE(2), 1 GRAV(2), GRID(2), GRIDB(2), MOMENT(2), PIHEX(2), 2 PLOAD4(2), RFORCE(2), 3 Z(1), BUF(1), TRL(7), NAME(2) CHARACTER*7 CC, PCC, CAXIF, CBFIEL, CCONM2, 1 CCORD2, CFORCE, CGRAV, CGRID, CGRIDB, 2 CMMENT, CPIHEX, CPLOD4, CRFORC CHARACTER*23 UFM COMMON /XMSSG / UFM COMMON /SYSTEM/ IBUF, NOUT, ABORT COMMON /TWO / TWO(1) DATA GEOM1, GEOM2, GEOM3, EPT / 1 201, 208, 209, 202 /, 2 AXIC, NAME, PCD, PCC / 3 215, 4HCIDC, 2HK , 0, 'XXXX ' / DATA AXIF, CAXIF / 8815,88, 'AXIF ' / 1 BFIELD, CBFIEL / 3101,31, 'BFIELD ' /, 2 CONM2, CCONM2 / 1501,15, 'CONM2 ' / 3 CORD, CCORD2 / 1601,16, 'CORD2 ' /, 4 FORCE, CFORCE / 4201,42, 'FORCE ' / 5 GRAV, CGRAV / 4401,44, 'GRAV ' /, 6 GRID, CGRID / 4501,45, 'GRID ' / 7 GRIDB, CGRIDB / 8115,81, 'GRIDB ' /, 8 MOMENT, CMMENT / 4801,48, 'MOMENT ' / 9 PIHEX, CPIHEX / 7002,70, 'PIHEX ' /, O PLOAD4, CPLOD4 / 6709,67, 'PLOAD4 ' / 1 RFORCE, CRFORC / 5509,55, 'RFORCE ' / C C C OPEN GEOM1 AND SAVE ALL COORDINATE IDS IN Z(1) THRU Z(NCORD) C AND REFERENCED COORD ID IN Z(NRID) THRU Z(NOPEN). NOPEN IS C LENGTH OF THE AVAILABLE OPEN CORE. C SORT AND CHECK ID UNIQUENESS C NCORD= 1 NRID = NOPEN FILE = GEOM1 CALL PRELOC (*960,BUF,GEOM1) K = 6 DO 20 I = 1,6 CORD(1) = CORD(1)+100 CORD(2) = CORD(2)+1 IF (I .EQ. 4) K = 13 CALL LOCATE (*20,BUF,CORD(1),M) 10 CALL READ (*910,*20,GEOM1,Z(NCORD),K,0,M) NCORD = NCORD+1 IF (I.LT.4 .OR. Z(NCORD+2).EQ.0) GO TO 10 Z(NRID) = Z(NCORD+2) NRID = NRID-1 GO TO 10 20 CONTINUE NCORD = NCORD-1 NRID = NRID +1 IF (NCORD .LE. 1) GO TO 60 CALL SORT (0,0,1,1,Z(1),NCORD) J = 1 DO 50 I = 2,NCORD IF (Z(I) .NE. Z(I-1)) GO TO 40 CALL PAGE2 (-2) WRITE (NOUT,30) UFM,Z(I) 30 FORMAT (A23,' 328, DUPLICATE COORDINATE ID',I9) GO TO 50 40 J = J+1 Z(J) = Z(I) 50 CONTINUE NCORD = J C C IF CORD2C/R/S CARDS ARE PRESENT, CHECK REFERENCE COORDINATE ID C 60 IF (NRID .GT. NOPEN) GO TO 100 CC = CCORD2 DO 90 I = NRID,NOPEN CID = Z(I) IF (NCORD .LE. 0) GO TO 80 DO 70 J = 1,NCORD IF (CID .EQ. Z(J)) GO TO 90 70 CONTINUE 80 CALL PAGE2 (-2) WRITE (NOUT,830) UFM,CID,CC ABORT = .TRUE. 90 CONTINUE C C DOUBLE THE COORDINATE ID ARRAY FOR 'CIRCULAR' SEARCH, AND MOVE C THE ARRAY TO HIGH END OF OPEN CORE, Z(II) THRU Z(NOPEN-1) C 100 II = NOPEN-2*NCORD-1 IF (NCORD .EQ. 0) GO TO 120 DO 110 I = 1,NCORD Z(II+I ) = Z(I) 110 Z(II+I+NCORD) = Z(I) 120 NZ = II IM = II+NCORD II = II+1 Z(NOPEN) = -999 C C CHECK CID ON GRID CARDS C CC = CGRID CALL LOCATE (*190,BUF,GRID(1),M) NZX = (NZ/8)*8 130 CALL READ (*910,*140,GEOM1,Z(1),NZX,0,M) M = NZX IF (M .LE. 0) GO TO 190 140 PVCID = 0 ASSIGN 150 TO IRTN I = -6 150 I = I+8 IF (I .GT. M) GO TO 160 CID = Z(I) IF (CID.NE.0 .AND. CID.NE.PVCID) GO TO 790 GO TO 150 160 PVCID = 0 ASSIGN 170 TO IRTN I = -2 170 I = I+8 IF (I .GT. M) GO TO 180 CID = Z(I) IF (CID.NE.0 .AND. CID.NE.PVCID) GO TO 790 GO TO 170 180 IF (M .EQ. NZX) GO TO 130 C C CHECK GRIDB CARDS C 190 CC = CGRIDB CALL LOCATE (*240,BUF,GRIDB(1),M) NZX = (NZ/5)*5 200 CALL READ (*910,*210,GEOM1,Z(1),NZX,0,M) M = NZX IF (M .LE. 0) GO TO 240 210 PVCID = 0 ASSIGN 220 TO IRTN I = -2 220 I = I+5 IF (I .GT. M) GO TO 230 CID = Z(I) IF (CID.NE.0 .AND. CID.NE.PVCID) GO TO 790 GO TO 220 230 IF (M .EQ. NZX) GO TO 200 C C CHECK BFIELD CARDS C 240 CC = CBFIEL CALL LOCATE (*270,BUF,BFIELD(1),M) CALL READ (*910,*250,GEOM1,Z(1),NZ,1,M) GO TO 930 250 PVCID = 0 ASSIGN 260 TO IRTN I = -1 260 I = I+2 IF (I .GT. M) GO TO 270 CID = Z(I) IF (CID.NE.0 .AND. CID.NE.PVCID) GO TO 790 GO TO 260 C C END OF GEOM1 PROCESSING C 270 CALL CLOSE (GEOM1,1) C C C CHECK THE PRESENCE OF CONM2 CARDS IN GEOM2 C FILE = GEOM2 K = CONM2(2) ASSIGN 300 TO JRTN GO TO 860 300 IF (K .EQ. 0) GO TO 400 C C OPEN GEOM2, AND CHECK CONM2 CARDS C CC = CCONM2 CALL PRELOC (*400,BUF,GEOM2) CALL LOCATE (*350,BUF,CONM2(1),M) NZX = (NZ/13)*13 310 CALL READ (*910,*320,GEOM2,Z(1),NZX,0,M) M = NZX IF (M .LE. 0) GO TO 350 320 PVCID = 0 ASSIGN 330 TO IRTN I = -10 330 I = I+13 IF (I .GT. M) GO TO 340 CID = Z(I) IF (CID.NE.0 .AND. CID.NE.PVCID) GO TO 790 GO TO 330 340 IF (M .EQ. NZX) GO TO 310 C 350 CONTINUE CALL CLOSE (GEOM2,1) C C C CHECK THE PRESENCE OF BULK DATA CARDS IN GEOM3 C (FORCE, MOMENT, RFORCE, GRAV AND PLOAD4) C 400 FILE = GEOM3 K = FORCE(2) ASSIGN 410 TO JRTN GO TO 860 410 IF (K .NE. 0) GO TO 500 K = MOMENT(2) ASSIGN 420 TO JRTN GO TO 870 420 IF (K .NE. 0) GO TO 500 K = RFORCE(2) ASSIGN 430 TO JRTN GO TO 870 430 IF (K .NE. 0) GO TO 500 K = GRAV(2) ASSIGN 440 TO JRTN GO TO 870 440 IF (K .NE. 0) GO TO 500 K = PLOAD4(2) ASSIGN 450 TO JRTN GO TO 870 450 IF (K .NE. 0) GO TO 500 GO TO 650 C C OPEN GEOM3, AND CHECK CID ON BULK DATA CARDS C 500 CALL PRELOC (*650,BUF,GEOM3) CALL LOCATE (*510,BUF,FORCE(1),M) CC = CFORCE IB = 3 IC = 7 ASSIGN 510 TO KRTN GO TO 600 510 CALL LOCATE (*520,BUF,MOMENT(1),M) CC = CMMENT IB = 3 IC = 7 ASSIGN 520 TO KRTN GO TO 600 520 CALL LOCATE (*530,BUF,RFORCE(1),M) CC = CRFORC IB = 3 CWKBR 2/95 SPR94015 IC = 8 IC = 7 ASSIGN 530 TO KRTN GO TO 600 530 CALL LOCATE (*540,BUF,GRAV(1),M) CC = CGRAV IB = 2 IC = 6 ASSIGN 540 TO KRTN GO TO 600 540 CALL LOCATE (*550,BUF,PLOAD4(1),M) CC = CPLOD4 IB = 9 IC = 12 ASSIGN 550 TO KRTN GO TO 600 550 CONTINUE GO TO 630 C 600 CALL READ (*910,*610,GEOM3,Z(1),NZ,1,M) GO TO 930 610 ASSIGN 620 TO IRTN I = IB-IC 620 I = I +IC IF (I .GT. M) GO TO KRTN, (510,520,530,540,550) CID = Z(I) IF (CID .NE. 0) GO TO 800 GO TO 620 C 630 CALL CLOSE (GEOM3,1) C C C CHECK THE PRESENCE OF PIHEX CARD IN EPT. IF PRESENT, OPEN EPT, C AND CHECK CID ON PIHEX CARDS C 650 FILE = EPT K = PIHEX(2) ASSIGN 660 TO JRTN GO TO 860 660 IF (K .EQ. 0) GO TO 700 CALL PRELOC (*700,BUF,EPT) CALL LOCATE (*690,BUF,PIHEX(1),M) CALL READ (*910,*670,EPT,Z(1),NZ,1,M) GO TO 930 670 CC = CPIHEX ASSIGN 680 TO IRTN I = -4 680 I = I+7 IF (I .GT. M) GO TO 690 CID = Z(I) IF (CID .NE. 0) GO TO 800 GO TO 680 690 CALL CLOSE (EPT,1) C C C CHECK THE PRESENCE OF AXIF CARD IN AXIC. IF PRESENT, OPEN AXIC, C AND CHECK CID ON AXIF CARD. ONLY ONE AXIF CARD EXISTS C 700 FILE = AXIC K = AXIF(2) ASSIGN 710 TO JRTN GO TO 860 710 IF (K .EQ. 0) GO TO 750 CALL PRELOC (*750,BUF,AXIC) CALL LOCATE (*730,BUF,AXIF(1),M) CALL READ (*910,*720,AXIC,CID,1,1,M) 720 CC = CAXIF ASSIGN 730 TO IRTN IF (CID .NE. 0) GO TO 800 730 CALL CLOSE (AXIC,1) C 750 RETURN C C C INTERNAL ROUTINE TO LOOK FOR CID MATCH C CID ARRAY (DOUBLE) IS AT HIGH END OF CORE, Z(II) THRU Z(NOPEN) C 790 PVCID = CID 800 IF (CID .EQ. Z(II)) GO TO 850 IF (NCORD .LE. 1) GO TO 820 IE = II+NCORD-1 DO 810 J = II,IE IF (CID .EQ. Z(J)) GO TO 840 810 CONTINUE 820 IF (CC.EQ.PCC .AND. CID.EQ.PCD) GO TO 850 CALL PAGE2 (-2) WRITE (NOUT,830) UFM,CID,CC 830 FORMAT (A23,' 328, UNDEFINED COORDINATE',I9,' IS REFERENCED BY A ' 1, A7,' CARD') PCC = CC PCD = CID ABORT = .TRUE. GO TO 850 840 II = J IF (II .GT. IM) II = II-NCORD 850 GO TO IRTN, (150,170,220,260,330,620,680,730) C C C INTERNAL ROUTINE TO CHECK THE PRESENCE OF A PARTICULAR BULK DATA C CARD C 860 TRL(1) = FILE CALL RDTRL (TRL(1)) 870 IF (TRL(1) .LT. 0) GO TO 880 J = (K-1)/16 L = K-16*J IF (ANDF(TRL(J+2),TWO(L+16)) .NE. 0) GO TO 890 880 K = 0 890 GO TO JRTN, (300,410,420,430,440,450,660,710) C C ERRORS C 910 J = -2 GO TO 950 930 J = -8 950 CALL MESAGE (J,FILE,NAME) 960 RETURN END ================================================ FILE: mis/cifsdd.f ================================================ SUBROUTINE CIFSDD C C THIS SUBROUTINE INITIALIZES THE CIFS1P, CIFS2P, CIFS3P, C CIFS4P, AND CIFS5P COMMON BLOCKS. C INTEGER B1, BARDF2, BARDF5, BARDF6, BARDF7, BARDF8 INTEGER G1 C LOGICAL SLOT LOGICAL FPHYS, FPHYS1, DMIFLG, FTHRU, FPHYS2 LOGICAL GRDMSG, LH, IDFREQ LOGICAL LFLSYM, FFPHYS C COMMON /CIFS1P/ B1, BARDF2, BARDF5, BARDF6, BARDF7, BARDF8, 1 KM1, SLOT, IDRDL COMMON /CIFS2P/ FPHYS, FPHYS1, KM2, DMIFLG, IBCDS, FTHRU, FPHYS2 COMMON /CIFS3P/ GRDMSG, LA1, L7, KM3, L0, G1, LH, 1 IGDST2, IGDST6, IGDST7, IGDST8, IDDSF, 2 IDFREQ, IDRAD, NVAR, IDS, JMS, KMS, LPLF COMMON /CIFS4P/ J(20), KM4, LFLSYM, FFPHYS COMMON /CIFS5P/ KM5, IC, IP, ICONT, IAERO, IPOPT C DATA ICC/1HC/, IPP/1HP/ C B1 = 1 BARDF2 = 0 BARDF5 = 0 BARDF6 = 0 BARDF7 = 0 BARDF8 = 0 KM1 = 0 SLOT = .FALSE. IDRDL = 0 C FPHYS = .TRUE. FPHYS1 = .TRUE. KM2 = 0 DMIFLG = .FALSE. IBCDS = 0 FTHRU = .FALSE. FPHYS2 = .TRUE. C GRDMSG = .FALSE. LA1 = 0 L7 = 0 KM3 = 0 L0 = 1 G1 = 1 LH = .TRUE. IGDST2 = 0 IGDST6 = 0 IGDST7 = 0 IGDST8 = 0 IDDSF = 0 IDFREQ = .TRUE. IDRAD = 0 NVAR = 0 IDS = 0 JMS = 0 KMS = 0 LPLF = 0 C DO 100 I=3,20 J(I) = 0 100 CONTINUE J(1) = 20 J(2) = 2 KM4 = 0 LFLSYM = .FALSE. FFPHYS = .TRUE. C KM5 = 0 IC = ICC IP = IPP ICONT = 0 IAERO = 0 IPOPT = 0 C RETURN END ================================================ FILE: mis/cinfbs.f ================================================ SUBROUTINE CINFBS (DX,DY,IOBUF) C C CINVFB DOES THE FORWARD AND BACKWARD PASS FOR COMPLEX INVERSE POWE C INTEGER NAME(2) ,TYPEAR ,CDP ,IOBUF(1) ,EOL DOUBLE PRECISION DX(1) ,DY(1) ,DA ,DTEMP C COMMON /DESCRP/ LENGTH ,MAJOR COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP COMMON /ZNTPKX/ DA(2) ,II ,EOL COMMON /CINFBX/ IFILL(7) ,IFILU(7) EQUIVALENCE (IFILL(3),NROW) DATA NAME / 4HCINF, 4HBS / C C TRANSFER THE LOAD VECTOR TO THE SOLUTION VECTOR C TYPEAR = CDP NROW2 = NROW + NROW DO 10 I = 1,NROW2 10 DY(I) = DX(I) C C BEGIN FORWARD PASS C C CALL GOPEN (IFILL(1),IOBUF,RDREW) J = 1 100 CALL INTPK (*200,IFILL(1),0,TYPEAR,0) 110 IF (EOL) 3010,120,3010 120 CALL ZNTPKI IF (J-II) 184,130,110 C C PERFORM THE REQUIRED ROW INTERCHANGE C 130 IN1 = (J+IFIX(SNGL(DA(1))))*2 - 1 DTEMP = DY(2*J-1) DY(2*J-1) = DY(IN1) DY(IN1) = DTEMP DTEMP = DY(2*J) DY(2*J) = DY(IN1+1) DY(IN1+1) = DTEMP 160 IF (EOL) 200,170,200 170 CALL ZNTPKI 184 DY(2*II-1) = DY(2*II-1) - DY(2*J-1)*DA(1) + DY(2*J)*DA(2) DY(2*II ) = DY(2*II ) - DY(2*J-1)*DA(2) - DY(2*J)*DA(1) GO TO 160 200 J = J + 1 IF (J .LT. NROW) GO TO 100 CALL REWIND (IFILL(1)) C C BEGIN BACKWARD PASS C IOFF = IFILU(7) - 1 J = NROW 210 CALL INTPK (*3020,IFILU(1),0,TYPEAR,0) IF (EOL) 3020,230,3020 230 CALL ZNTPKI I = NROW - II + 1 IF (I .NE. J) GO TO 275 C C DIVIDE BY THE DIAGONAL C DTEMP = (DY(2*I-1)*DA(1)+DY(2*I)*DA(2))/(DA(1)**2+DA(2)**2) DY(2*I ) = (DY(2*I)*DA(1)-DY(2*I-1)*DA(2))/(DA(1)**2+DA(2)**2) DY(2*I-1) = DTEMP C C SUBTRACT OFF REMAINING TERMS C 255 IF (I .GT. J) GO TO 230 IF (EOL) 300,270,300 270 CALL ZNTPKI I = NROW - II + 1 275 IN1 = I IN2 = J IF (I .LT. J) GO TO 279 K = IN1 IN1 = IN2 - IOFF IN2 = K 279 IN1 = IN1 + IN1 - 1 IN2 = IN2 + IN2 - 1 DY(IN1 ) = DY(IN1 ) - DY(IN2)*DA(1) + DY(IN2+1)*DA(2) DY(IN1+1) = DY(IN1+1) - DY(IN2)*DA(2) - DY(IN2+1)*DA(1) GO TO 255 300 J = J - 1 IF (J .GT. 0) GO TO 210 CALL REWIND (IFILU(1)) RETURN C 3010 IFILE = IFILL(1) GO TO 3040 3020 IFILE = IFILU(1) 3040 CALL MESAGE (-5,IFILE,NAME) RETURN END ================================================ FILE: mis/cinvp1.f ================================================ SUBROUTINE CINVP1 C******* C CINVP1 INITIALIZES AND CALLS SUBROUTINE ADD FOR CINVPR C******* DOUBLE PRECISION ALPHA(2) ,BETA(2) ,LAMBDA INTEGER SCR1 ,SCR2 ,SCR11 ,SQR INTEGER FILEK ,FILEM ,FILEB ,CDP INTEGER IFILA(7) ,IFILB(7) ,IFILC(7) ,CSP INTEGER SYSBUF ,SWITCH C COMMON /CINVPX/ FILEK(7) ,FILEM(7) ,FILEB(7) ,DUM(15) , 1 SCR1 ,SCR2 ,SCR(8) ,SCR11 COMMON /CINVXX/ LAMBDA(2) ,SWITCH COMMON /SADDX / NOMAT ,NZ ,MCBS(67) COMMON /ZZZZZZ/ Z(1) COMMON /NAMES / DUMM(9) ,CSP ,CDP ,SQR COMMON /SYSTEM/ SYSBUF C EQUIVALENCE ( MCBS( 1), IFILA(1) ) 1 ,( MCBS( 8), ITYPAL ) 1 ,( MCBS(61), IFILC(1) ) 1 ,( MCBS(13), IFILB(1) ) 1 ,( MCBS(20), ITYPBT ) 1 ,( MCBS(21), BETA(1) ) 1 ,( MCBS( 9), ALPHA(1) ) C******* C FORM -(B+LAMBDA*M) ON SCR2 C******* NOMAT = 2 DO 10 I = 1,7 IFILA(I) = FILEM(I) 10 IFILB(I) = FILEB(I) ALPHA(1) = -LAMBDA(1) ALPHA(2) = -LAMBDA(2) BETA(1) = -1.D0 BETA(2) = 0.D0 ITYPAL = CDP ITYPBT = CDP NZ = KORSZ(Z) IF (SWITCH .EQ. -204) NZ = NZ - 2*SYSBUF IFILC(1) = SCR2 IF (SWITCH .NE. 0) IFILC(1) = SCR11 IFILC(2) = FILEK(2) IFILC(3) = FILEK(3) IFILC(4) = 1 IFILC(5) = CDP CALL SADD (Z,Z) C******* C FORM (LAMBDA**2*M+LAMBDA*B+K) ON SCR1 C******* DO 30 I = 1,7 30 IFILA(I) = FILEK(I) IFILB(1) = IFILC(1) IFILB(2) = FILEK(2) IFILB(3) = FILEK(3) IFILB(4) = SQR ALPHA(2) = 0.D0 BETA(1) = -LAMBDA(1) BETA(2) = -LAMBDA(2) IFILB(5) = CDP ALPHA(1) = 1.D0 IFILC(1) = SCR1 CALL SADD (Z,Z) RETURN END ================================================ FILE: mis/cinvp2.f ================================================ SUBROUTINE CINVP2 (*) C C CINVP2 INITIALIZES AND CALLS CDCOMP FOR CINVPR C INTEGER FILEA ,FILEL ,FILEU ,SCR1 , 1 SCR2 ,SCR3 ,SCR4 ,SCR5 , 2 SCR6 ,SCR7 ,SCR8 ,SWITCH , 3 SR1FIL ,SR2FIL ,SR3FIL ,SYSBUF , 5 DUMM ,CDP ,SCR9 DOUBLE PRECISION DET ,MINDIA COMMON /CDCMPX/ FILEA(7) ,FILEL(7) ,FILEU(7), SR1FIL , 1 SR2FIL ,SR3FIL ,DET(2) ,POWER , 2 NZ ,MINDIA ,IB COMMON /CINVXX/ DUM(4) ,SWITCH COMMON /CINVPX/ DUMM(36) ,SCR1 ,SCR2 ,SCR3 , 1 SCR4 ,SCR5 ,SCR6 ,SCR7 , 2 SCR8 ,SCR9 COMMON /ZZZZZZ/ Z(1) COMMON /NAMES / IJ(10) ,CDP COMMON / SYSTEM / SYSBUF C IOFF = FILEU(7) FILEA(1) = SCR1 IF (SWITCH .EQ. 0) GO TO 10 FILEL(1) = SCR8 FILEU(1) = SCR9 IF (SWITCH .LT. 0) FILEA(1) = -FILEA(1) IF (SWITCH .EQ. -204) GO TO 20 SWITCH = 1 GO TO 20 10 FILEL(1) = SCR3 FILEU(1) = SCR4 20 SR1FIL = SCR5 SR2FIL = SCR6 SR3FIL = SCR7 FILEA(2) = DUMM(3) FILEA(3) = DUMM(3) FILEA(4) = DUMM(4) FILEA(5) = CDP FILEA(6) = 0 FILEA(7) = 0 FILEL(5) = CDP NZ = KORSZ(Z) IF (SWITCH .EQ. -204) NZ = NZ - 2*SYSBUF IB = 0 CALL CDCOMP (*30,Z,Z,Z) IF (SWITCH .NE. 0) FILEU(7) = IOFF RETURN C 30 RETURN 1 END ================================================ FILE: mis/cinvp3.f ================================================ SUBROUTINE CINVP3 C C SUBROUTINE CINVP3, THE MAIN LINK OF CINVPR, SOLVES FOR THE C EIGENVALUES AND EIGENVECTORS OF (LAMBDA**2*M + LAMBDA*B*K) C C TYPE DECLARATIONS C INTEGER COMFLG ,REAL ,END ,FILEK INTEGER FILEB ,FILELM ,SCRFIL INTEGER SWITCH ,CDP ,FILEL ,SR1FIL , 1 FILEU ,SR3FIL ,SR4FIL ,SR8FIL , 2 SR9FIL ,SYSBUF ,NAME(2) ,FILEVC , 3 TIMED ,TIMEIT ,SQR ,FILE(7) , 4 SR2FIL ,S11FIL ,T1 ,T2 REAL MAXMOD DOUBLE PRECISION DZ(1) ,LMBDA ,PLUS1(2) DOUBLE PRECISION LAMBDA ,ALN(2) ,ALNM1(2) ,ETA(2) , 1 ETANM1(2) ,H2N(2) ,H2NM1(2) ,LAM1 , 2 LM1NM1(2) ,LAM2(2) ,LM2NM1(2),CON1(2) , 3 CON2(2) ,CN(2) ,DELTA(2) ,XYZ(2) COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /CINVPX/ FILEK(7) ,FILEM(7) ,FILEB(7) ,FILELM(7), 1 FILEVC(7) ,DUDXX ,SCRFIL(11) , 2 NOREG ,EPS COMMON /CINFBX/ FILEL(7) ,FILEU(7) COMMON /CINVXX/ LAMBDA(2) ,SWITCH ,COMFLG ,LMBDA(2) , 1 ITERTO ,TIMED ,NOCHNG ,RZERO , 2 IND ,IVECT ,IREG ,REAL , 3 LEFT ,NORTHO ,NOROOT ,NZERO , 4 LAM1(2) ,MAXMOD ,NODES ,NOEST , 5 ISTART ,IND1 ,ITER ,ISYM COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR COMMON /CDCMPX/ XXYY(20) ,IOFFF COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (FILEK(2),NCOL) ,(SCRFIL(1),SR1FIL) , 1 (SCRFIL(2),SR2FIL) ,(SCRFIL(3),SR3FIL) , 2 (SCRFIL(4),SR4FIL) , 4 (SCRFIL(8),SR8FIL) ,(SCRFIL(9),SR9FIL) , 5 (DZ(1),Z(1)) ,(SCRFIL(11),S11FIL) DATA NAME / 4HCINV,4HP3 / DATA PLUS1 / +1.D0 ,0.D0 / C C DEFINITION OF LOCAL PARAMETERS C C ITER = C IRAPID = C IEP2 = C NCOUNT = C IEPCNT = C SWITCH = C A = C EP1 = C EP2 = C EP3 = C GAMMA = C II1 = POINTER TO U(N) C II2 = POINTER TO U(N-1) OR DELTA U(N) C JJ1 = POINTER TO F(N) C JJ2 = POINTER TO DELTA F(N-1) C JJ3 = POINTER TO F(N-1) OR DELTA F(N) C JJ4 = C JJ5 = C KK1 = POINTER TO V(N) C KK2 = POINTER TO V(N-1) C 10 CONTINUE TIMEIT= 0 NZ = KORSZ(Z) NCOL2 = NCOL + NCOL NCOL4 = NCOL2 + NCOL2 C C INITIALIZE C CN(1) = 0.0D0 CN(2) = 0.0D0 XYZ(1) = 0.0D0 XYZ(2) = 0.0D0 H2N(1) = 0.0D0 H2N(2) = 0.0D0 LAM2(1)= 0.0D0 LAM2(2)= 0.0D0 LAM1(1)= 0.0D0 LAM1(2)= 0.0D0 ITER = 0 CALL KLOCK(T1) IRAPID = 0 IEP2 = 0 20 NCOUNT = 0 IEPCNT = 0 IF (SWITCH .EQ. 1) GO TO 30 FILEL(1) = SR3FIL FILEU(1) = SR4FIL GO TO 40 30 FILEL(1) = SR8FIL FILEU(1) = SR9FIL 40 FILEL(5) = CDP FILEL(3) = FILEK(3) FILEU(7) = IOFFF FILE(4) = SQR FILE(5) = CDP C C SET CONVERGENCE CRITERIA C A = .1 CALL SSWTCH (12,IDIAG) EP1 = .001 EP2 = .02 EP3 = .05 GAMMA = .01 C C INITILIZE POINTERS TO VECTORS C II1 = 1 II2 = II1 + NCOL2 JJ1 = II2 + NCOL2 JJ2 = JJ1 + NCOL2 JJ3 = JJ2 + NCOL2 JJ5 = JJ3 + NCOL2 KK1 = JJ5 + NCOL2 KK2 = KK1 + NCOL2 KK3 = KK2 + NCOL2 KK4 = KK3 + NCOL2 KK5 = KK4 + NCOL2 KK6 = KK5 + NCOL2 LL1 = KK6 + NCOL2 LL2 = LL1 + NCOL2 END = (LL2 + NCOL2)*2 IOBUF = NZ - SYSBUF + 1 IBUF1 = IOBUF - SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF C IBUF4 = IBUF3 - SYSBUF C IBUF5 = IBUF4 - SYSBUF C IBUF6 = IBUF5 - SYSBUF C IF (END .GE. IBUF6) GO TO 240 C NZZ = IBUF6 - END IF (END .GE. IBUF3) GO TO 600 NZZ = IBUF3 - END C IFILE = FILEL(1) C CALL OPEN (*610,FILEL,Z(IBUF4),0) C IFILE = FILEU(1) C CALL OPEN (*610,FILEU,Z(IBUF5),0) C IFILE = FILEM(1) C CALL OPEN (*610,FILEM,Z(IBUF6),0) C C GENERATE A STARTING VECTOR C C FORM U0 C IF (LEFT .EQ. 1) GO TO 500 LAM1(1) = 0.0D0 LAM1(2) = 0.0D0 GO TO 70 50 LAM1(1) = 0.0D0 LAM1(2) = 0.0D0 IF (NORTHO .EQ. 0) GO TO 70 C C TEST FOR INSUFFICIENT TIME C CALL KLOCK (ICURNT) CALL TMTOGO (IIJJKK) NAVG = (ICURNT-ISTART)/NORTHO IF (IIJJKK .GE. 2*NAVG) GO TO 70 60 COMFLG = 8 GO TO 490 70 CONTINUE IF (IVECT .EQ. 1) GO TO 90 K = IABS (IND) DO 80 I = 1,NCOL2,2 DZ(I) = (MOD(K,13)+1)*(1+5*I/NCOL) K = K + 1 DZ(I+1) = 0.D0 80 DZ(I ) = 1.D0/DZ(I) CALL CNORM1 (DZ(II1),NCOL) C C FORM V0 = LAMBDA*U0 C GO TO 110 C C USE PREVIOUSLY STORED VECTOR FOR STARTING VECTOR C 90 IFILE = FILEVC(1) CALL GOPEN (FILEVC,Z(IOBUF),RD) CALL BCKREC (FILEVC(1)) IN1 = 1 IF (COMFLG .NE. 1) GO TO 100 IN1 = JJ5 CALL BCKREC (FILEVC(1)) 100 CALL FREAD (FILEVC,DZ(IN1),NCOL4,1) IF (COMFLG .EQ. 1) GO TO 140 CALL BCKREC (FILEVC(1)) CALL CLOSE (FILEVC(1),NOREW) IVECT = 0 110 CONTINUE DO 120 IU = 1,NCOL2,2 J = KK1 + IU - 1 DZ(J ) = DZ(IU)*LAMBDA(1) - DZ(IU+1)*LAMBDA(2) 120 DZ(J+1) = DZ(IU)*LAMBDA(2) + DZ(IU+1)*LAMBDA(1) IF (NORTHO .EQ. 0) GO TO 150 CALL ORTHO (DZ(II1),DZ(KK1),DZ(KK2),DZ(KK3),DZ(KK4),DZ(KK5), 1 DZ(KK6),NZZ,Z(IOBUF),Z(IBUF1),Z(IBUF2),Z(IBUF3)) IF (FILEB(1) .NE. 0) GO TO 150 DO 130 IU = 1,NCOL2,2 J = KK1 + IU - 1 DZ(J ) = DZ(IU)*LAMBDA(1) - DZ(IU+1)*LAMBDA(2) 130 DZ(J+1) = DZ(IU)*LAMBDA(2) + DZ(IU+1)*LAMBDA(1) GO TO 150 C C PICK UP LAST ITERATED VECTOR FOR A STARTING VECTOR C 140 CALL FREAD (FILEVC,DZ,NCOL4,1) CALL SKPREC (FILEVC,-2) CALL CLOSE (FILEVC(1),NOREW) GO TO 110 150 CONTINUE CALL CM TIM U (DZ(II1),DZ(JJ1),0,Z(IOBUF)) IF (FILEB(1) .EQ. 0) GO TO 160 FILE(1) = FILEB(1) CALL CM TIM U (DZ(II1),DZ(KK2),FILE,Z(IBUF1)) CON1(1) = 2.0D0*LAMBDA(1) CON1(2) = 2.0D0*LAMBDA(2) CALL CDIVID (PLUS1,CON2,CON1,2) CON2(1) = -CON2(1) CON2(2) = -CON2(2) CALL CSUB (DZ(JJ1),DZ(KK2),DZ(JJ1),PLUS1,CON2) 160 CONTINUE CALL CX TRN Y (DZ(II1),DZ(JJ1),ALN(1)) CALL CSQRTX (ALN(1),ALN(1)) C C COMPUTE THE R.H.S. OF THE SYSTEM OF EQUATIONS C 170 FILE(1) = SR2FIL IF (SWITCH .EQ. 1) FILE(1) = S11FIL CALL CM TIM U (DZ(II1),DZ(LL1),FILE(1),Z(IOBUF)) CALL CM TIM U (DZ(KK1),DZ(LL2),0 ,Z(IOBUF)) CALL CSUB (DZ(LL1),DZ(LL2),DZ(LL2),PLUS1(1),PLUS1(1)) C C SHIFT POINTERS C II = II1 II1 = II2 II2 = II II = JJ1 JJ1 = JJ2 JJ2 = JJ3 JJ3 = II C C SAVE THE N-1 VECTOR C IF (SWITCH .NE. 0) GO TO 190 IXX = JJ5 + NCOL2 - 1 IXZ = II2 DO 180 I = JJ5,IXX DZ(I) = DZ(IXZ) 180 IXZ = IXZ + 1 190 CONTINUE CALL TMTOGO (IXX) IF (IXX .LE. 0) GO TO 60 C C SHIFT PARAMETERS C ALNM1(1) = ALN(1) ALNM1(2) = ALN(2) ETANM1(1) = XYZ(1) ETANM1(2) = XYZ(2) H2NM1(1) = H2N(1) H2NM1(2) = H2N(2) LM1NM1(1) = LAM1(1) LM1NM1(2) = LAM1(2) LM2NM1(1) = LAM2(1) LM2NM1(2) = LAM2(2) C C CALL CINFBS TO MAKE ONE ITERATION C CALL CINFBS (DZ(LL2),DZ(II1),Z(IOBUF)) ITERTO = ITERTO + 1 ITER = ITER + 1 IEPCNT = IEPCNT + 1 CALL CNORM (DZ(II1),CN(1),DZ(II2)) C IF (IDIAG .EQ. 0) GO TO 210 KKKK = II1 + NCOL2 - 1 WRITE (NOUT,200) ITERTO,ITER,CN,TIMED,TIMEIT,(DZ(KX),KX=II1,KKKK) 200 FORMAT (15H ITERTO = ,I5,10H ITER = ,I5,' CN = ', 1 2D15.5,10H TIMED = ,I5,10H TIMEIT= ,I5, 2 //,20H ITERATER VECTOR , //,(10D12.4)) 210 CONTINUE C C COMPUTE V(N)BAR C CON1(1) =-CN(1)/(CN(1)**2 + CN(2)**2) CON1(2) = CN(2)/(CN(1)**2 + CN(2)**2) CALL CSUB (DZ(II1),DZ(II2),DZ(KK1),LAMBDA,CON1) IF (NORTHO .EQ. 0) GO TO 220 C C ORTHOGONALIZE CURRENT ITERANT WITH RESPECT TO VECTORS FOUND IN C THE CURRENT AND PREVIOUS REGIONS C CALL ORTHO (DZ(II1),DZ(KK1),DZ(KK2),DZ(KK3),DZ(KK4),DZ(KK5), 1 DZ(KK6),NZZ,Z(IOBUF),Z(IBUF1),Z(IBUF2),Z(IBUF3)) 220 CONTINUE IF (FILEB(1) .NE. 0) GO TO 230 C C COMPUTE V(N) C CALL CSUB (DZ(II1),DZ(II2),DZ(KK1),LAMBDA,CON1(1)) 230 CONTINUE C C BEGIN TESTING CONVERGENCE CRITERIA C C COMPUTE F(N) C CALL CM TIM U (DZ(II1),DZ(JJ1),0,Z(IOBUF)) IF (FILEB(1) .EQ. 0) GO TO 240 FILE(1) = FILEB(1) CALL CM TIM U (DZ(II1),DZ(KK2),FILE,Z(IBUF1)) CON1(1) = 2.0D0*LAMBDA(1) CON1(2) = 2.0D0*LAMBDA(2) CALL CDIVID (PLUS1,CON2,CON1,2) CON2(1) = -CON2(1) CON2(2) = -CON2(2) CALL CSUB (DZ(JJ1),DZ(KK2),DZ(JJ1),PLUS1,CON2) 240 CONTINUE C C COMPUTE ALPHA(N) C CALL CX TRN Y (DZ(II1),DZ(JJ1),ALN(1)) CALL CSQRTX (ALN(1),ALN(1)) C C COMPUTE DELTA U(N) C CON1(1) = ALN(1)/(ALN(1)**2 + ALN(2)**2) CON1(2) =-ALN(2)/(ALN(1)**2 + ALN(2)**2) CON2(1) = ALNM1(1)/(ALNM1(1)**2 + ALNM1(2)**2) CON2(2) =-ALNM1(2)/(ALNM1(1)**2 + ALNM1(2)**2) CALL CSUB (DZ(II1),DZ(II2),DZ(II2),CON1(1),CON2(1)) C C COMPUTE DELTA F(N) C CALL CSUB (DZ(JJ1),DZ(JJ3),DZ(JJ3),CON1(1),CON2(1)) CON1(1) = CN(1)*ALN(1) - CN(2)*ALN(2) CON1(2) = CN(2)*ALN(1) + CN(1)*ALN(2) LAM1(1) = (ALNM1(1)*CON1(1) + ALNM1(2)*CON1(2))/(CON1(1)**2 + 1 CON1(2)**2) LAM1(2) = (ALNM1(2)*CON1(1) - ALNM1(1)*CON1(2))/(CON1(1)**2 + 1 CON1(2)**2) IF (IRAPID .EQ. 1) GO TO 410 CALL CX TRN Y (DZ(II2),DZ(JJ3),ETA(1)) CALL CSQRTX (ETA(1),XYZ(1)) C IF (IDIAG .EQ. 0) GO TO 260 WRITE (NOUT,250) LAM1,XYZ,ALN 250 FORMAT (12H LAMBDA = ,2D15.5,12H ETA = ,2D15.5, 1 12H ALPHA = ,2D15.5) 260 CONTINUE IF (ITER .EQ. 1) GO TO 170 C C RAPID CONVERGENCE TEST C C IF (ETA.GE.A*EPS*GAMMA*(1.+LAMBDA/LAM1) C CON1(1) = (LAMBDA(1)*LAM1(1) + LAMBDA(2)*LAM1(2))/(LAM1(1)**2 + 1 LAM1(2)**2) CON1(2) = (LAMBDA(2)*LAM1(1) - LAMBDA(1)*LAM1(2))/(LAM1(1)**2 + 1 LAM1(2)**2) IF (DSQRT(XYZ(1)**2+XYZ(2)**2).GE. A*EPS*GAMMA*DSQRT(1.+CON1(1)**2 1 + CON1(1)**2+CON1(2)**2)) GO TO 280 270 IRAPID = 1 GO TO 170 280 CONTINUE IF (DSQRT(ETANM1(1)**2+ETANM1(2)**2) .GE. 1.E-06) GO TO 290 IF (DSQRT(XYZ(1)**2+XYZ(2)**2)-1.01*DSQRT(ETANM1(1)**2+ 1 ETANM1(2)**2)) 290,290,270 C C EPSILON 2 TEST C 290 IF (IEP2 .EQ. 1) GO TO 310 CALL CX TRN Y (DZ(II2),DZ(JJ2),CON1(1)) CON2(1) = CON1(1)*LAM1(1) - CON1(2)*LAM1(2) CON1(2) = CON1(1)*LAM1(2) + CON1(2)*LAM1(1) CON1(1) = CON2(1) LAM2(1) = (CON1(1)*ETA(1) + CON1(2)*ETA(2))/(ETA(1)**2 +ETA(2)**2) LAM2(2) = (CON1(2)*ETA(1) - CON1(1)*ETA(2))/(ETA(1)**2 +ETA(2)**2) CON1(1) = LAM2(1) - LM2NM1(1) CON1(2) = LAM2(2) - LM2NM1(2) H2N(1) = (CON1(1)*LAMBDA(1) + CON1(2)*LAMBDA(2))/(LAMBDA(1)**2 + 1 LAMBDA(2)**2) H2N(2) = (CON1(2)*LAMBDA(1) - CON1(1)*LAMBDA(2))/(LAMBDA(1)**2 + 1 LAMBDA(2)**2) IF (ITER .LT. 4) GO TO 310 IF (EP2 .GT. DSQRT(H2N(1)**2 + H2N(2)**2).AND. 1 DSQRT(H2N(1)**2+H2N(2)**2) .GT. DSQRT(H2NM1(1)**2+H2NM1(2)**2)) 1 GO TO 300 GO TO 310 300 IEP2 = 1 LAM2(1) = LM2NM1(1) LAM2(2) = LM2NM1(2) 310 CON1(1) = 1. - (LAM2(1)*LAM1(1) + LAM2(2)*LAM1(2))/(LAM1(1)**2 + 1 LAM1(2)**2) CON1(2) = (LAM2(2)*LAM1(1) - LAM2(1)*LAM1(2))/(LAM1(1)**2 + 1 LAM1(2)**2) CON2(1) = CON1(1)*CON1(1) - CON1(2)*CON1(2) CON1(2) = 2.*CON1(2)*CON1(1) CON1(1) = CON2(1) CON1(1) = DMIN1(DSQRT(CON1(1)**2+CON1(2)**2),10.0D0) DELTA(1)= ETA(1)/CON1(1) DELTA(2)= ETA(2)/CON1(1) C IF (IDIAG .EQ. 0) GO TO 330 WRITE (NOUT,320)LAM2,H2N,DELTA 320 FORMAT (12H LAMBDA = ,2D15.5, 12H H2N = ,2D15.5, 1 12H DELTA = ,2D15.5) 330 CONTINUE C C VECTOR CONVERGENCE TEST C IF (DSQRT(DELTA(1)**2+DELTA(2)**2).LE. (A*EPS)**2) GO TO 410 IF (ITER .LE. 3) GO TO 170 C C EPSILON 1 TEST C IF (IEPCNT .GE. 100) GO TO 520 IF (IEPCNT .GE. 10) GO TO 340 IF (DSQRT((LAM1(1)-LM1NM1(1))**2+(LAM1(2)-LM1NM1(2))**2) 1 /DSQRT((LAMBDA(1) + DABS(LAM1(1)))**2+(LAMBDA(2) +DABS(LAM1(2)) 2 )**2) .GE. EP1) GO TO 170 IEPCNT = 0 340 CONTINUE C C SHIFT DECISION C CALL KLOCK (T2) TIMEIT = T2-T1 IF (IDIAG .EQ. 0) GO TO 360 WRITE (NOUT,350) T2,T1,TIMEIT 350 FORMAT (3I15) 360 CONTINUE K = DLOG(DSQRT(DELTA(1)**2+DELTA(2)**2)/(A*EPS)**2)/DABS(DLOG( 1 DSQRT(LAM1(1)**2+LAM1(2)**2)/DSQRT(LAM2(1)**2+LAM2(2)**2)))+1. K = K/2 IF (IDIAG .EQ. 0) GO TO 380 WRITE (NOUT,370) K 370 FORMAT (I5) 380 CONTINUE IR1 = FLOAT(K-3)*FLOAT(TIMEIT)/FLOAT(ITER) IF (TIMED .GE. IR1) GO TO 170 LAMBDA(1) = LAMBDA(1) + LAM1(1) LAMBDA(2) = LAMBDA(2) + LAM1(2) C C STORE THE LAST VECTOR BEFORE A SHIFT FOR USE AS A STARTING VECTOR C IF (SWITCH .EQ. 1) GO TO 390 IN1 = II1 GO TO 400 390 IN1 = JJ5 400 IFILE = FILEVC(1) CALL GOPEN (IFILE,Z(IOBUF),WRT) CALL WRITE (IFILE,DZ(IN1),NCOL4,1) IVECT = 1 COMFLG = 1 C C STORE THE CURRENT VECTOR ON THE EIGENVECTOR FILE SO IT CAN BE C USED AS THE STARTING VECTOR C CALL WRITE (IFILE,DZ(II1),NCOL4,1) CALL CLOSE (IFILE,EOFNRW) GO TO 490 C C M RAPID CONVERGENCE MAKE SURE LAMD1 PASSES EP1 TEST C 410 CONTINUE IF (DSQRT((LAM1(1)-LM1NM1(1))**2+(LAM1(2)-LM1NM1(2))**2) 1 /DSQRT((LAMBDA(1) + DABS(LAM1(1)))**2+(LAMBDA(2) +DABS(LAM1(2)) 2 )**2) .GE. EP1) GO TO 170 C C CONVERGENCE ACHIEVED, NORMALIZE THE VECTOR C C STORE THE EIGENVECTOR AND EIGENVALUE ON THE OUTPUT FILES C CALL CNORM1 (DZ(II1),NCOL) LAM1(1) = LAM1(1) + LAMBDA(1) LAM1(2) = LAM1(2) + LAMBDA(2) INU = II1 + NCOL2 - 1 IF (IDIAG .EQ. 0) GO TO 430 WRITE (NOUT,420) LAM1,(DZ(I),I=II1,INU) 420 FORMAT (1H1, 20H CONVERGENCE ,//,' LAMBDA = ',2D15.5, 1 //,(10D12.4)) 430 CONTINUE IFILE = FILEVC(1) CALL GOPEN (IFILE,Z(IOBUF),WRT) CALL WRITE (IFILE,DZ(II1),NCOL4,1) CALL CLOSE (IFILE,EOFNRW) IFILE = FILELM(1) CALL GOPEN (IFILE,Z(IOBUF),WRT) CALL WRITE (IFILE,LAM1(1),4,1) CALL CLOSE (IFILE,EOFNRW) NORTHO = NORTHO + 1 NOROOT = NOROOT + 1 IEP2 = 0 IRAPID = 0 NOCHNG = 0 COMFLG = 0 IF (SWITCH .EQ. 0) GO TO 440 SWITCH = 0 LAMBDA(1) = LMBDA(1) LAMBDA(2) = LMBDA(2) GO TO 450 440 CONTINUE IVECT = 0 IF (ITER .LE. 5) GO TO 460 450 IN1 = JJ5 IFILE = FILEVC(1) CALL GOPEN (IFILE,Z(IOBUF),WRT) CALL WRITE (IFILE,DZ(IN1),NCOL4,1) CALL CLOSE (IFILE,EOFNRW) IVECT = 1 460 ITER = 0 C C COMPUTE PSEUDO LEFT VECTOR C CALL CM TIM U (DZ(II1),DZ(JJ3),0,Z(IOBUF)) IF (FILEB(1) .EQ. 0) GO TO 470 CALL CMTIMU (DZ(II1),DZ(JJ2),FILEB,Z(IBUF1)) CON1(1) = 2.0D0*LAM1(1) CON1(2) = 2.0D0*LAM1(2) CON2(1) =-1.0D0 CON2(2) = 0.0D0 CALL CSUB (DZ(JJ3),DZ(JJ2),DZ(JJ3),CON1,CON2) 470 IF (ISYM .EQ. 1) GO TO 480 C C LEFT = RIGHT FINISH JOB C CALL CX TRN Y (DZ(II1),DZ(JJ3),CON1) CALL CDIVID (DZ(II1),DZ(JJ3),CON1,NCOL2) C C PUT SCALED VECTOR ON LEFT VECTOR FILE C 480 IFILE = SCRFIL(10) CALL GOPEN (IFILE,Z(IBUF1),WRT) CALL WRITE (IFILE,DZ(JJ3),NCOL4,1) CALL CLOSE (IFILE,EOFNRW) LEFT = 1 IF (ISYM .EQ. 0) GO TO 10 C C 490 CALL CLOSE (FILEL,1) C CALL CLOSE (FILEU,1) C CALL CLOSE (FILEM,1) 490 RETURN C C RETURN TO MAIN DRIVER TO COMPUTE THE LEFT EIGENVECTOR C C C ENTRY POINT UPON RETURNING FROM OBTAINING THE LEFT VECTOR C 500 LEFT = 0 IF (NODES .LE. NOROOT) GO TO 550 IF (NOROOT .GE.3*NOEST) GO TO 540 AAA = DSQRT((LAMBDA(1) - LAM1(1))**2 + (LAMBDA(2)-LAM1(2))**2) IF (AAA .LE. RZERO) GO TO 570 IF (IREG .EQ. 0) GO TO 510 IF (IND) 510,510,530 510 IF (NODES .LE. NOROOT) GO TO 550 IF (LAM1(1)**2+LAM1(2)**2 .GE. MAXMOD) GO TO 560 C C GET NEW STARTING POINT C 520 COMFLG = 0 IND =-IND GO TO 490 C C GENERATE NEW ARBITRARY STARTING VECTOR C 530 IND =-(IND+1) IVECT = 0 IF (IND .EQ. -13) IND = -1 GO TO 50 C C 3*NOEST FOUND C 540 COMFLG = 4 GO TO 490 C C ALL ROOTS IN PROBLEM FOUND C C COMFLG = 5 C GO TO 176 C C NO. DES. ROOTS FOUND IN REGION OF CONVERGENCE OUTSIDE REGION C 550 COMFLG = 6 GO TO 490 C C ONE OR MORE ROOTS OUTSIDE REGION C 560 COMFLG = 7 GO TO 490 C C FOUND ROOT OUTSIDE REGION OF CURRENT START POINT C 570 IND = IABS(IND) IREG = 1 IF (EPS*RZERO/DSQRT((LAM1(1)-LAMBDA(1))**2+(LAM1(2)-LAMBDA(2))**2) 1 .LT. EP3) GO TO 20 C C CURRENT SHIFT POINT IS TOO CLOSE TO AN EIGENVALUE C IF (COMFLG .NE. 2) GO TO 580 COMFLG = 9 GOT O 490 580 LAMBDA(1) = LAMBDA(1) + .02*RZERO LAMBDA(2) = LAMBDA(2) + .02*RZERO COMFLG = 2 GO TO 490 C C ERROR EXITS C 600 J = -8 GO TO 620 C 610 J = -1 620 CALL MESAGE (J,IFILE,NAME) RETURN END ================================================ FILE: mis/cinvpr.f ================================================ SUBROUTINE CINVPR (EED,METHOD,NFOUND) C C GIVEN REAL OR COMPLEX MATRICIES, CINVPR WILL SOLVE FOR ALL OF C THE EIGENVALUES AND EIGENVECTORS WITHIN A SPECIFIED REGION C C DEFINITION OF INPUT AND OUTPUT PARAMETERS C C FILEK(7) = MATRIX CONTROL BLOCK FOR THE INPUT STIFFNESS MATRIX K C FILEM(7) = MATRIX CONTROL BLOCK FOR THE INPUT MASS MATRIX M C FILEB(7) = MATRIX CONTROL BLOCK FOR THE INPUT DAMPING MATRIX B C FILELM(7)= MATRIX CONTROL BLOCK FOR THE OUTPUT EIGENVALUES C FILEVC(7)= MATRIX CONTROL BLOCK FOR THE OUTPUT EIGENVECTORS C DMPFIL = FILE CONTAINING THE EIGENVALUE SUMMARY C SR1FIL- = SCRATCH FILES USED INTERNALLY C SR0FIL C EPS = CONVERGENCE CRITERIA C NOREG = NUMBER OF REGIONS INPUT C REG(1,I) = X1 FOR REGION I C REG(2,I) = Y1 FOR REGION I C REG(3,I) = X2 FOR REGION I C REG(4,I) = Y2 FOR REGION I C REG(5,I) = L1 FOR REGION I C REG(6,I) = NO. OF DESIRED ROOTS FOR REGION I C REG(7,I) = NO. OF ESTIMATED ROOTS IN REGION I C C LOGICAL NOLEFT INTEGER METHOD ,EED ,EIGC(2) ,PHIDLI , 1 SWITCH ,SCRFIL ,IHEAD(10),IREG(7,1) INTEGER NAME(2) ,FILELM ,FILEVC , 1 REAL ,RDP ,TYPEK ,TYPEM , 2 TYPEB ,COMFLG ,IZ(1) ,DMPFIL , 3 TIMED ,FILEK ,T1 ,T2 , 4 FILEB ,FILEM REAL L ,L1 ,MAXMOD DOUBLE PRECISION LAM1 ,DZ(1) ,MINDIA DOUBLE PRECISION LAMBDA ,LMBDA ,DTEMP(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CDCMPX/ IDUM(30) ,MINDIA COMMON /CINVPX/ FILEK(7) ,FILEM(7) ,FILEB(7) ,FILELM(7), 1 FILEVC(7) ,DMPFIL ,SCRFIL(11),NOREG , 2 EPS ,REG(7,10),PHIDLI COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 1 RDP COMMON /SYSTEM/ KSYSTM(65) COMMON /ZZZZZZ/ Z(1) COMMON /OUTPUT/ HEAD(1) COMMON /CINVXX/ LAMBDA(2) ,SWITCH ,COMFLG ,LMBDA(2), 1 ITER ,TIMED ,NOCHNG ,RZERO , 2 IND ,IVECT ,KREG ,REAL , 3 LEFT ,NORTHO ,NOROOT ,NZERO , 4 LAM1(2) ,MAXMOD ,NODES ,NOEST , 5 ISTART ,IND1 ,ITERX ,ISYM EQUIVALENCE (KSYSTM(1),ISYS ) ,(IREG(1,1),REG(1,1)) EQUIVALENCE (FILEK(5) ,TYPEK) ,(FILEM(5),TYPEM) , 1 (FILEB(5) ,TYPEB) ,(IZ(1),Z(1)) EQUIVALENCE (ANODES ,NODES) ,(ANOEST,NOEST) , 1 (Z(1) ,DZ(1)) ,(KSYSTM(2),NOUT ) DATA IHEAD/ 0,1009,2,7*0 / DATA EIGC / 207,2 / DATA NAME / 4HCINV,4HPR / DATA SIGN / 1.0 / C C DEFINITION OF INTERNAL PARAMETERS C C REAL = 0 - ALL MATRICIES ARE REAL C 1 - AT LEAST ONE MATRIX IS COMPLEX C NSHIFT = NO. OF SHIFT POINTS IN A REGION C NODES = NO. OF DESIRED ROOTS IN A REGION C NOEST = NO. OF ESTIMATED ROOTS IN A REGION C SHIFT = INDEX OF THE CURRENT SHIFT POINT C ISHIFT = INDEX OF THE CURRENT SHIFT POINT C IMIN = LOWEST INDEX OF THE COMPLETED SHIFT POINTS C IMAX = HIGHEST INDEX OF COMPLETED SHIFT POINTS C C FILE ALLOCATION C C SR1FIL CONTAINS (LAMBDA**2*M + LAMBDA*B + K) C SR2FIL CONTAINS -(B+LAMBDA*M) C SR3FIL CONTAINS THE LOWER TRIANGLE OF THE DECOMPOSED DYNAMIC MTRX C SR4FIL CONTAINS THE UPPER TRIANGLE OF THE DECOMPOSED DYNAMIC MTRX C SR5FIL IS USED AS A SCRATCH FOR CDCOMP C SR6FIL IS USED AS A SCRATCH FOR CDCOMP C SR7FIL IS USED AS A SCRATCH FOR CDCOMP C SR8FIL CONTAINS THE LOWER TRIANGLE L C SR9FIL CONTAINS THE UPPER TRIANGLE U C SR0FIL CONTAINS THE LEFT EIGENVECTORS C S11FIL CONTAINS -(B + LAMBDA*M) C C DEFINITION OF INTERNAL PARAMETERS C C IND = AN INDEX FOR GENERATING VARIOUS STARTING VECTORS C ITER = TOTAL NUMBER OF ITERATIONS C NODCMP = TOTAL NUMBER OF DECOMPOSITIONS C NOSTRT = NUMBER OF STARTING POINTS USED C NOMOVS = NUMBER OF TIMES A STARTING POINT HAD TO BE MOVED C RZERO = DISTANCE FROM THE STARTING POINT TO THE CORNER OF THE C PARALELOGRAM C NOCHNG = COUNT OF THE NUMBER OF MOVES WHILE LOOKING FOR ONE ROO C COMFLG = 0 - C = 1 - C = 2 - C = 3 - C = 4 - C = 5 - C = 6 - C SWITCH = C IVECT = C KREG = 0-NO VECTORS FOUND IN SEARCH AREA YET C 1- A VECTOR HAS BEEN FOUND IN THE SEARCH AREA C ISING = SINGULARITY FLAG C ITERM = REASON FOR TERMINATING C = 1 - 2SINGULARITIES IN A ROW C = 2 - 4 MOVES WHILE TRACKING ONE ROOT C = 3 - ALL REGIONS COMPLETED C = 4 - 3*NOEST FOUND C = 5 - ALL ROOTS FOUND C = 8 - 200 ITERATIONS WITH ONE MOVE WITHOUR CONVERGING C TIMED = TIME TOO FORM AND DECOMPOSE THE DYNAMIC MATRIX C LEFT = 1 - DECOMPOSE MATRIX FOR THE COMPUTATION OF THE LEFT C EIGENVECTORS C CALL SSWTCH (12,IDIAG) IND1 = 0 NZ = KORSZ(Z) CALL KLOCK (ISTART) IBUF = NZ - ISYS - 2 IFILE= FILELM(1) CALL OPEN (*500,FILELM,Z(IBUF),WRTREW) CALL CLOSE (FILELM,REW) IFILE = FILEVC (1) CALL OPEN (*500,FILEVC,Z(IBUF),WRTREW) CALL CLOSE (FILEVC,REW) CALL GOPEN (DMPFIL,Z(IBUF),WRTREW) CALL CLOSE (DMPFIL,EOFNRW) IFILE = SCRFIL(10) CALL OPEN (*500,IFILE,Z(IBUF),WRTREW) CALL CLOSE (IFILE,REW) NOLEFT = .FALSE. IZ(1) = 204 CALL RDTRL (IZ) IF (IZ(1) .LT. 0) NOLEFT = .TRUE. NORTHO = 0 NROW = 2*FILEK(3) NROW2 = 2*NROW ISYM = 1 IF (FILEK(1).NE.0 .AND. FILEK(4).NE.6) GO TO 2 IF (FILEM(1).NE.0 .AND. FILEM(4).NE.6) GO TO 2 IF (FILEB(1).NE.0 .AND. FILEB(4).NE.6) GO TO 2 ISYM = 0 2 CONTINUE C C PICK UP REGION PARAMETERS C CALL PRELOC (*500,Z(IBUF),EED) CALL LOCATE (*500,Z(IBUF),EIGC(1),FLAG) 6 CALL FREAD (EED,IREG,10,0) IF (METHOD.EQ.IREG(1,1) .OR. METHOD.EQ.-1) GO TO 8 7 CALL FREAD (EED,IREG,7,0) IF (IREG(6,1) .NE. -1) GO TO 7 GO TO 6 8 JREG = 1 EPS = .0001 IF (REG(1,2) .NE. 0.) EPS = REG(1,2) 11 CALL FREAD (EED,IREG(1,JREG),7,0) IF (IREG(6,JREG) .EQ. -1) GO TO 9 JREG = JREG + 1 IF (JREG .GT. 10) GO TO 9 GO TO 11 9 CALL CLOSE (EED,REW) NOREG = JREG - 1 JREG = 0 C C PICK UP PARAMETERS FOR REGION I C 5 JREG = JREG + 1 ITER = 0 NODCMP = 0 NOSTRT = 0 NOMOVS = 0 X1 = REG(1,JREG) Y1 = REG(2,JREG) X2 = REG(3,JREG) Y2 = REG(4,JREG) L = REG(5,JREG) ANOEST = REG(6,JREG) ANODES = REG(7,JREG) IF (NODES.EQ. 0) NODES = 3*NOEST NSHIFT = SQRT((X1-X2)**2+(Y1-Y2)**2)/L + 1. L1 = L*.5 NOROOT = 0 C C C FIND SHIFT POINT CLOSEST TO THE ORIGIN C R = SQRT((X1-X2)**2 + (Y1-Y2)**2) IF (R) 10,10,15 10 WRITE (NOUT,12) UFM 12 FORMAT (A23,' 2366, REGION IMPROPERLY DEFINED ON EIGC CARD.') CALL MESAGE (-61,0,0) 15 CONTINUE D = (FLOAT(NSHIFT)*L-R)/2.0 XX = X1 + D*(X1-X2)/R X2 = X2 + D*(X2-X1)/R X1 = XX YY = Y1 + D*(Y1-Y2)/R Y2 = Y2 + D*(Y2-Y1)/R Y1 = YY IF (IDIAG .EQ. 0) GO TO 7000 WRITE (NOUT,1000) X1,Y1,X2,Y2,L1,NODES,NOEST,NSHIFT 1000 FORMAT (1H1,5F10.2,3I5) 7000 CONTINUE DELTX = (X1-X2)/FLOAT(NSHIFT) DELTY = (Y1-Y2)/FLOAT(NSHIFT) XX = X2 + DELTX/2. YY = Y2 + DELTY/2. RANGE = XX**2 + YY**2 N = NSHIFT - 1 SHIFT = 1. IF (DELTX .NE. 0.) GO TO 20 ANUM1 = L1 ANUM2 = 0. GO TO 25 20 SLOPE = DELTY/DELTX ARG = SQRT(1.+SLOPE**2) ANUM1 = SLOPE*L1/ARG ANUM2 = L1/ARG 25 CONTINUE IF (N .EQ. 0) GO TO 40 DO 30 I = 1,N XX = XX + DELTX YY = YY + DELTY RANG = XX**2 + YY**2 IF (RANG .GE. RANGE) GO TO 40 RANGE = RANG 30 SHIFT = I + 1 C C COMPUTE COORDINATES OF CORNERS OF THE REGION C 40 XL2 = X2 + ANUM1 YL2 = Y2 - ANUM2 IMIN = SHIFT IMAX = SHIFT C C FIND THE MAXIMUM MODULUS OF THE SEARCH REGION C MAXMOD = XL2**2 + YL2**2 XX = X2 - ANUM1 YY = Y2 + ANUM2 MAXMOD = AMAX1(MAXMOD,XX**2+YY**2) XX = X1 + ANUM1 YY = Y1 - ANUM2 MAXMOD = AMAX1(MAXMOD,XX**2+YY**2) XX = X1 - ANUM1 YY = Y1 + ANUM2 MAXMOD = AMAX1(MAXMOD,XX**2+YY**2) C C INITIALIZE C IND = 0 LEFT = 0 45 ISHIFT = SHIFT C C EVALUATE THE VALUE OF LAMBDA IN THE CENTER OF THE CURRENT SEARCH C REGION C LAMBDA(1) = X2 + (SHIFT-.5)*DELTX LAMBDA(2) = Y2 + (SHIFT-.5)*DELTY IF (LAMBDA(2) .EQ. 0.0D0) LAMBDA(2) = .01*DELTY C C COMPUTE DISTANCE TO FARTHEST CORNER OF THE SQUARE SEARCH REGION C XX = XL2 + SHIFT*DELTX YY = YL2 + SHIFT*DELTY RZERO = (LAMBDA(1)-XX)**2 + (LAMBDA(2)-YY)**2 RZERO = SQRT(RZERO)*1.05 IF (IDIAG .EQ. 0) GO TO 7001 WRITE (NOUT,1216)RZERO 1216 FORMAT (//,10H RZERO = ,F10.4) 7001 CONTINUE NOSTRT = NOSTRT + 1 COMFLG = 0 61 LMBDA(1) = LAMBDA(1) LMBDA(2) = LAMBDA(2) NOCHNG = 0 SWITCH = 0 IVECT = 0 KREG = 0 IND = IND + 1 IF (IABS (IND) .EQ. 13) IND = 1 ISING = 0 GO TO 100 80 ISING = 0 SWITCH = 1 100 IF (NOCHNG .GE. 4) GO TO 220 NOCHNG = NOCHNG + 1 CALL KLOCK (T1) C C CALL IN ADD LINK TO FORM (LAMBDA**2*M + LAMBDA*B + K) C CALL CINVP1 C C CALL IN CD COMP TO DECOMPOSE THE MATRIX C IF (IDIAG .EQ. 0) GO TO 7002 WRITE (NOUT,1001) LAMBDA 1001 FORMAT (10H1LAMBDA = ,2D15.5) 7002 CONTINUE NODCMP = NODCMP + 1 CALL CINVP2 (*110) CALL KLOCK (T2) GO TO 120 110 IF (ISING .EQ. 1) GO TO 210 C C SINGULAR MATRIX. INCREMENT LAMBDA AND TRY ONCE MORE C ISING = 1 LAMBDA(1) = LAMBDA(1) + .02*RZERO LAMBDA(2) = LAMBDA(2) + .02*RZERO GO TO 100 C C DETERMINE THE TIME REQUIRED TO FORM AND DECOMPOSE THE DYNAMIC C MATRIX C 120 TIMED = T2 - T1 IF (TIMED .EQ. 0) TIMED = 1 C C CALL IN MAIN LINK TO ITERATE FOR EIGENVALUES C 121 CALL CINVP3 IF (LEFT .EQ. 1) GO TO 130 IF (COMFLG .EQ. 2) GO TO 125 IF (COMFLG .EQ. 1) GO TO 80 GO TO 140 125 NOMOVS = NOMOVS + 1 GO TO 61 C C CALL IN LINK TO COMPUTE THE LEFT EIGENVECTOR C 130 DTEMP(1) = LAMBDA(1) DTEMP(2) = LAMBDA(2) LAMBDA(1) = LAM1(1) LAMBDA(2) = LAM1(2) 131 SWITCH = -1 CALL CINVP1 C C DECOMPOSE THE DYNAMIC MATRIX AT THE EIGENVALUE TO OBTAIN THE LEFT C EIGENVECTOR BY THE DETERMINATE METHOD C IF (IDIAG .EQ. 0) GO TO 132 WRITE (NOUT,1001) LAMBDA 132 CALL CINVP2 (*138) C C BUILD LOAD FOR FBS C D1 = NROW/2 D2 = NORTHO DO 133 I = 1,NROW,2 K = (I+1)/2 DZ(I) = SIGN*MINDIA/(1.D0+(1.D0-FLOAT(K)/D1)*D2) 133 DZ(I+1) = 0.0D0 SIGN = -SIGN CALL CDIFBS (DZ(1),Z(IBUF)) LAMBDA(1) = DTEMP(1) LAMBDA(2) = DTEMP(2) SWITCH = 0 C C NORMALIZE AND STORE THE LEFT EIGENVECTOR C CALL CNORM1 (DZ(1),FILEK(2)) IF (IDIAG .EQ. 0) GO TO 135 WRITE (NOUT,134) (DZ(I),I=1,NROW) 134 FORMAT (///,15H LEFT VECTOR ,//,(10D12.4)) 135 CONTINUE IF (NOLEFT .OR. ISYM.EQ.0) GO TO 136 IFILE = PHIDLI CALL OPEN (*500,IFILE,Z(IBUF),WRT) CALL WRITE (IFILE,DZ(1),NROW2,1) CALL CLOSE (IFILE,NOREW) 136 IFILE = SCRFIL(10) CALL GOPEN (IFILE,Z(IBUF),RD) CALL BCKREC (IFILE) CALL FREAD (IFILE,DZ(NROW+2),NROW2,1) CALL BCKREC (IFILE) CALL CLOSE (IFILE,NOREW) C C COMPUTE REAL LEFT VECTOR SCALED C CALL CX TRN Y (DZ(1),DZ(NROW+2),DTEMP) CALL CDIVID (DZ(1),DZ(1),DTEMP,NROW) CALL OPEN (*500,IFILE,Z(IBUF),WRT) CALL WRITE (IFILE,DZ(1),NROW2,1) CALL CLOSE (IFILE,REW) GO TO 121 138 LAMBDA(1) = 1.01*LAMBDA(1) LAMBDA(2) = 1.01*LAMBDA(2) GO TO 131 140 IF (COMFLG .GE. 3) GO TO 200 IF (COMFLG .EQ. 0) GO TO 160 IF (IDIAG .EQ. 0) GO TO 150 WRITE (NOUT,145) NOREG,JREG 145 FORMAT (2I10) 150 IF (NOREG .EQ. JREG) RETURN GO TO 5 C C FIND NEXT SHIFT POINT WHICH IS CLOSEST TO THE ORIGIN C 160 IF (IMIN .NE. 1) GO TO 170 IF (IMAX .EQ. NSHIFT) GO TO 250 165 SHIFT = SHIFT + 1. IMAX = IMAX + 1 LAMBDA(1) = LMBDA(1) + DELTX LAMBDA(2) = LMBDA(2) + DELTY GO TO 45 170 IF (IMAX .NE. NSHIFT) GO TO 180 175 SHIFT = SHIFT - 1. IMIN = IMIN - 1 LAMBDA(1) = LMBDA(1) - DELTX LAMBDA(2) = LMBDA(2) - DELTY GO TO 45 180 XX = LMBDA(1) - DELTX YY = LMBDA(2) - DELTY RANG = XX**2 + YY**2 XX = LMBDA(1) + DELTX YY = LMBDA(2) + DELTY RANGE= XX**2 + YY**2 IF (RANGE-RANG) 175,175,165 200 ITERM = COMFLG GO TO 260 C C SINGULARITY ENCOUNTERED TWICE IN A ROW C 210 ITERM = 1 GO TO 260 C C 4 MOVES WHILE TRACKING ONE ROOT C 220 ITERM = 2 GO TO 260 C C REGIONS COMPLETED C 250 ITERM = 3 C C SET UP THE SUMMARY FILE C 260 IFILE = DMPFIL CALL OPEN (*500,DMPFIL,Z(IBUF),WRT) CALL WRITE (DMPFIL,IHEAD(1),10,0) I = 0 IZ(I+2) = NORTHO IZ(I+3) = NOSTRT IZ(I+4) = NOMOVS IZ(I+5) = NODCMP IZ(I+6) = ITER IZ(I+7) = ITERM DO 270 I = 8,12 270 IZ(I) = 0 I = 2 CALL WRITE (DMPFIL,IZ(I),40,0) CALL WRITE (DMPFIL,HEAD(1),96,1) CALL WRITE (DMPFIL,IZ(1),0,1) CALL CLOSE (DMPFIL,EOFNRW) C C WRITE DUMMY TRAILER IXX = FILEK(1) FILEK(1) = DMPFIL CALL WRTTRL (FILEK(1)) FILEK(1) = IXX NFOUND = NORTHO IF (IDIAG .EQ. 0) GO TO 350 J = 12 WRITE (NOUT,300)(IZ(I),I=1,J) 300 FORMAT (///,12I10) 350 CONTINUE IF (ITERM .EQ. 5) RETURN GO TO 150 C 500 CALL MESAGE (-1,IFILE,NAME) RETURN END ================================================ FILE: mis/clstab.f ================================================ SUBROUTINE CLSTAB (FILE,OPT) INTEGER FILE,OPT,TRLR(7) DATA TRLR / 6*0,1 / C TRLR(1) = FILE CALL CLOSE (TRLR,OPT) CALL WRTTRL (TRLR) RETURN END ================================================ FILE: mis/clvec.f ================================================ SUBROUTINE CLVEC (LAMD,NVECT,PHIDL,IH,IBUF,IBUF1) C***** C CLVEC CACLULATES THE LEFT EIGENVECTORS FOR THE DETERMINANT AND C UPPER HESSENBERG APPROACHES TO THE COMPLEX EIGENVALUE PROBLEM C***** DOUBLE PRECISION DI1,DNROW,DZ(1),LAMBDA,MINDIA INTEGER CLSREW,FLAG,PHIDL,RDREW,SWITCH,SYSBUF INTEGER FILEK,FILEM,FILEB,SCR DIMENSION NAME(2),BUF(6),IH(7) COMMON / CDCMPX / DUMDCP(30),MINDIA COMMON / ZZZZZZ / Z(1) COMMON / CINVPX / FILEK(7),FILEM(7),FILEB(7),DUM(15),SCR(11) COMMON / CINVXX / LAMBDA(2),SWITCH COMMON / NAMES / RD,RDREW,WRT,WRTREW,CLSREW,NOREW COMMON / PACKX / IT1,IT2,II,JJ,INC COMMON / SYSTEM / SYSBUF EQUIVALENCE (NROW,FILEK(3)) EQUIVALENCE (DZ(1),Z(1)) DATA NAME / 4HCLVE,4HC / C***** C INITIALIZATION C***** IBUF2 = IBUF1 - SYSBUF IF (FILEB(1) .LT. 0) FILEB(1) = 0 IF (FILEB(6) .EQ. 0) FILEB(1) = 0 DO 50 I=1,11 SCR(I) = 300 + I 50 CONTINUE SWITCH = -204 FNROW = FLOAT(NROW) DNROW = FNROW C***** C OPEN SORTED EIGENVALUE FILE C***** CALL GOPEN (LAMD,Z(IBUF),RDREW) CALL SKPREC (LAMD,1) C***** C LOOP TO CALCULATE LEFT EIGENVECTORS C***** DO 1000 I=1,NVECT C READ EIGENVALUE CALL READ(*9002,*9003,LAMD,BUF,6,0,FLAG) LAMBDA(1) = BUF(3) LAMBDA(2) = BUF(4) C CREATE DYNAMIC MATRIX 100 CALL CINVP1 C DECOMPOSE DYNAMIC MATRIX CALL CINVP2(*900) C BUILD LOAD FOR FBS FI1 = FLOAT(I-1) DI1 = FI1 J2 = 2*NROW DO 200 J=1,J2,2 F = FLOAT((J+1)/2) DZ(J) = MINDIA/(1.0D0 + (1.0D0 - F/DNROW)*DI1) DZ(J+1) = 0.0D0 200 CONTINUE C PERFORM FORWARD-BACKWARD SUBSTITUTION - U(T)*L(T)*PHI CALL CDIFBS (DZ(1),Z(IBUF2)) C NORMALIZE LEFT EIGENVECTOR CALL CNORM1 (DZ(1),NROW) C PACK LEFT EIGENVECTOR ONTO PHIDL IT1 = 4 IT2 = 3 II = 1 JJ = NROW INC = 1 CALL PACK (DZ(1),PHIDL,IH) GO TO 1000 C ADJUST CURRENT EIGENVALUE 900 LAMBDA(1) = 1.01D0*LAMBDA(1) LAMBDA(2) = 1.01D0*LAMBDA(2) GO TO 100 C END OF LOOP 1000 CONTINUE CALL CLOSE (LAMD,CLSREW) RETURN C***** C ERRORS C***** 9002 N = -2 GO TO 9999 9003 N = -3 9999 CALL MESAGE (N,LAMD,NAME) RETURN END ================================================ FILE: mis/cmauto.f ================================================ SUBROUTINE CMAUTO C C THIS SUBROUTINE PROCESSES THE AUTOMATIC CONNECTION OF C SUBSTRUCTURES IN THE COMB1 MODULE C EXTERNAL RSHIFT,ANDF LOGICAL PRINT,FOUND,TDAT,BACK,IAUTO INTEGER SCSFIL,SCCONN,BUF1,BUF2,SNEXT(8),ST,NWD(8),SCORE, 1 Z,SPK,SNK,CE(9),SVKK,ANDF,AAA(2),SSIL(8),NSIL(8), 2 STS,COMBO,RESTCT,OUTT,NAME(14),RSHIFT,IHD(12), 3 IBITS(2),JBITS(2) DIMENSION RZ(1),A(3),B(3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT COMMON /CMB004/ TDAT(6) COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / STEP,IDRY COMMON /OUTPUT/ ITITL(96),IHEAD(96) COMMON /SYSTEM/ XXX,IOT,JUNK(6),NLPP,JUNK1(2),LINE,JUNK2(2), 1 IDAT(3),JUNK7(7),ISW EQUIVALENCE (Z(1),RZ(1)) DATA AAA / 4HCMAU, 2HTO /, IBLNK / 4H / DATA IHD / 4H SUM, 4HMARY, 4H OF , 4H AUT, 4HOMAT, 4HICAL, 1 4HLY G, 4HENER, 4HATED, 4H CON, 4HNECT, 4HIONS/ C NLIN = 1000 FOUND = .FALSE. PRINT = .FALSE. IF (ANDF(RSHIFT(IPRINT,10),1) .EQ. 1) PRINT = .TRUE. NP2 = 2*NPSUB DO 10 I = 1,NP2,2 J = I/2 + 1 NAME(I ) = COMBO(J,1) NAME(I+1) = COMBO(J,2) 10 CONTINUE DO 20 I = 1,96 IHEAD(I) = IBLNK 20 CONTINUE J = 1 DO 30 I = 75,86 IHEAD(I) = IHD(J) 30 J = J + 1 ISAVS = SCORE ISAVL = LCORE IFILE = SCCONN CALL OPEN (*310,SCCONN,Z(BUF2),3) IF (IAUTO) GO TO 40 CALL CLOSE (SCCONN,1) RETURN C 40 IFILE = SCSFIL CALL OPEN (*310,SCSFIL,Z(BUF1),0) SSIL(1) = SCORE NOUT = NPSUB + 2 IDIR = ISORT + 1 DO 110 I = 1,NPSUB STS = SSIL(I) NCSUB = COMBO(I,5) DO 50 J = 1,NCSUB CALL FWDREC (*320,SCSFIL) 50 CONTINUE C C READ SIL,C FOR THE I-TH PSEUDOSTRUCTURE C CALL READ (*320,*60,SCSFIL,Z(STS),LCORE,1,NSIL(I)) GO TO 330 60 LCORE = LCORE - NSIL(I) SNEXT(I) = SCORE + NSIL(I) SCORE = SCORE + NSIL(I) ST = SNEXT(I) C C READ BGSS FOR THE I-TH PSEUDOSTRUCTURE C CALL READ (*320,*70,SCSFIL,Z(ST),LCORE,1,NWD(I)) GO TO 330 70 SNEXT(I+1) = SNEXT(I) + NWD(I) SSIL(I+1) = SNEXT(I) + NWD(I) SCORE = SCORE + NWD(I) CALL SKPFIL (SCSFIL,1) LCORE = LCORE - NWD(I) NI = NWD(I) + ST C C WRITE THE IP NUMBER OVER THE CID IN THE BGSS C WILL BE USED AFTER SORTING C DO 100 J = ST,NI,4 JJ = (J-ST+4)/4 IF (Z(J)+1) 80,90,80 80 Z(J) = JJ GO TO 100 90 Z(J) = -JJ 100 CONTINUE 110 CONTINUE C C SORT EACH BGSS IN THE SPECIFIED COORDINATE DIRECTION C DO 120 I = 1,NPSUB ST = SNEXT(I) CALL SORTF (0,0,4,IDIR,RZ(ST),NWD(I)) 120 CONTINUE I = 1 130 K = 0 KK = 0 BACK = .FALSE. SVKK = 0 IC1 = SSIL(I) NIPI = NWD(I)/4 J = I + 1 IF (RESTCT(I,J) .NE. 1) GO TO 280 140 IC2 = SSIL(J) NIPJ = NWD(J)/4 150 SPK = SNEXT(I) + K + 1 IF (Z(SPK-1) .LT. 0) GO TO 260 A(1) = RZ(SPK ) A(2) = RZ(SPK+1) A(3) = RZ(SPK+2) 160 SNK = SNEXT(J) + KK + 1 IF (Z(SNK-1) .LT. 0) GO TO 270 B(1) = RZ(SNK ) B(2) = RZ(SNK+1) B(3) = RZ(SNK+2) IF (A(ISORT) .LT. B(ISORT)-TOLER) GO TO 250 IF (B(ISORT) .LT. A(ISORT)-TOLER) GO TO 270 IF (BACK) GO TO 170 BACK = .TRUE. SVKK = KK 170 CONTINUE ASEJ = A(ISORT) BSEJ = B(ISORT) XSEJ = ASEJ - BSEJ DO 180 MM = 1,3 IF (MM .EQ. ISORT) GO TO 180 ASEJ = A(MM) BSEJ = B(MM) XSEJ = A(MM) - B(MM) IF (ABS(XSEJ) .GT. TOLER) GO TO 270 180 CONTINUE C C GENERATE THE NEW CONNECTION ENTRY C DO 190 KDH = 1,9 190 CE(KDH) = 0 CE(2) = 2**(I-1) + 2**(J-1) CE(2+I) = IABS(Z(SPK-1)) CE(2+J) = IABS(Z(SNK-1)) M1 = IABS(Z(SPK-1)) M2 = IABS(Z(SNK-1)) CE(1) = ANDF(Z(IC1+2*M1-1),Z(IC2+2*M2-1)) FOUND = .TRUE. C C WRITE THE CONNECTION ENTRY ON SCCONN C IF (CE(1) .NE. 0) CALL WRITE (SCCONN,CE,NOUT,1) IF ( .NOT.PRINT) GO TO 240 IF (CE(1) .EQ. 0) GO TO 240 IF (NLIN .LT. NLPP) GO TO 220 200 NLIN = 0 CALL PAGE WRITE (OUTT,210) (NAME(KDH),KDH=1,NP2) 210 FORMAT (/14X,22HCONNECTED CONNECTION,29X,22HPSEUDOSTRUCTURE NAM 1ES, /17X,3HDOF,9X,4HCODE,3X,7(3X,2A4)//) NLIN = NLIN + 10 220 CALL BITPAT (CE(1),IBITS) CALL BITPAT (CE(2),JBITS) NLIN = NLIN + 1 IF (NLIN .GT. NLPP) GO TO 200 WRITE (OUTT,230) IBITS(1),IBITS(2),JBITS(1),JBITS(2), 1 (CE(KDH+2),KDH=1,NPSUB) 230 FORMAT (16X,A4,A2,5X,A4,A3,2X,7(3X,I8)) 240 CONTINUE GO TO 270 250 KK = SVKK BACK = .FALSE. 260 K = K + 4 IF (K/4 .LT. NIPI) GO TO 150 K = 0 KK = 0 SVKK = 0 BACK = .FALSE. GO TO 280 270 KK = KK + 4 IF (KK/4 .LT. NIPJ) GO TO 160 GO TO 250 280 J = J + 1 IF (J .LE. NPSUB) GO TO 140 I = I + 1 J = I IF (I .LT. NPSUB) GO TO 130 WRITE (OUTT,290) 290 FORMAT (//40X,'NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL', 1 ' GRID NUMBERS') CALL CLOSE (SCCONN,1) CALL CLOSE (SCSFIL,1) SCORE = ISAVS LCORE = ISAVL IF (FOUND .OR. TDAT(1).OR.TDAT(2)) RETURN C WRITE (OUTT,300) UFM 300 FORMAT (A23,' 6531, NO CONNECTIONS HAVE BEEN FOUND DURING ', 1 'AUTOMATIC CONNECTION PROCEDURE.') IDRY = -2 RETURN C 310 IMSG = -1 GO TO 350 320 IMSG = -2 GO TO 350 330 IMSG = -8 350 CALL MESAGE (IMSG,IFILE,AAA) RETURN END ================================================ FILE: mis/cmcase.f ================================================ SUBROUTINE CMCASE C C THIS SUBROUTINE PROCESSES THE CASE CONTROL DATA BLOCK C EXTERNAL ORF LOGICAL IAUTO,TRAN,CONECT,LF(3),LONLY,SRCH INTEGER CASECC,BUF2,STEP,Z,CNAM,RESTCT,COMBO,OUTT,AUTO, 1 ORF,NCNAM(2),IHD(96),IBITS(32),CONSET,MNEM(11), 2 SNAM(7,2),IDIR(3),COMP(7,2),SYMT(7),TRANS(7), 3 ISYM(15,2),AAA(2),PORA,PAPP DIMENSION AZ(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CMB001/ JUNK(8),CASECC COMMON /CMB002/ BUF1,BUF2,JUNK1(6),OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT COMMON /CMB004/ TDAT(6),NIPNEW,CNAM(2),LONLY COMMON /ZZZZZZ/ Z(1) COMMON /OUTPUT/ ITITL(96),IHEAD(96) COMMON /SYSTEM/ XXX,IOT,MUNK(6),NLPP,JUNK3(2),LINE,JUNK2(2), 1 IDAT(3) COMMON /BLANK / STEP,IDRY,PORA EQUIVALENCE (Z(1),AZ(1)) DATA NMNEM / 11 /, IDIR/ 1HX, 1HY, 1HZ /, AUTO/ 4HAUTO / , 1 AAA / 4HCMCA, 4HSE / DATA MNEM / 4HOPTS, 4HSORT, 4HNAMC, 4HNAMS, 4HTOLE, 4HCONN, 1 4HCOMP, 4HTRAN, 4HSYMT, 4HSEAR, 4HOUTP/ DATA ISYM / 4,2,1,6,6,5,5,3,3,6*7,1HX,1HY,1HZ,2HXY,2HYX,2HXZ, 1 2HZX,2HYZ,2HZY,3HXYZ,3HXZY,3HYXZ,3HYZX,3HZXY, 2 3HZYX / DATA IHD / 74*4H , 4H SUM , 4HMARY , 4H OF , 4HCASE , 1 4H CON , 4HTROL , 4H FOR , 4H COM , 4HBINE , 2 4H OPE , 4HRATI , 4HON , 10*4H / DATA NHEQSS/ 4HEQSS / DATA PAPP , LOAP,LODS/ 4HPAPP , 4HLOAP , 4HLODS / C C OPEN CASECC DATA BLOCK AND READ INTO OPEN CORE C SRCH = .FALSE. IERR = 0 DO 10 I = 1,96 IHEAD(I) = IHD(I) 10 CONTINUE IFILE = CASECC CALL OPEN (*580,CASECC,Z(BUF2),0) NREC = STEP IF (NREC .EQ. 0) GO TO 30 DO 20 I = 1,NREC CALL FWDREC (*580,CASECC) 20 CONTINUE 30 CALL READ (*570,*590,CASECC,Z(1),5,0,NNN) I = 2 NWDSCC = Z(I ) NPSUB = Z(I+1) CALL READ (*570,*40,CASECC,Z(1),NWDSCC,1,NNN) 40 JJ = 0 KK = 0 IPRINT = 0 C C INITIALIZE COMBO AND RESTCT ARRAYS C DO 70 I = 1,7 DO 50 J = 1,5 COMBO(I,J) = 0 50 CONTINUE DO 60 J = 1,7 RESTCT(I,J) = 0 60 CONTINUE 70 CONTINUE C C INITIALIZE COMP,TRANS,AND SYMT ARRAYS C CONECT = .FALSE. TRAN = .FALSE. DO 90 I = 1,7 SYMT(I) = 0 TRANS(I)= 0 DO 80 J = 1,2 COMP(I,J) = 0 80 CONTINUE 90 CONTINUE DO 100 I = 1,3 LF(I) = .FALSE. 100 CONTINUE CNAM(1) = 0 CNAM(2) = 0 C C PROCESS CASE CONTROL MNEMONICS C DO 350 I = 1,NWDSCC,3 DO 110 J = 1,NMNEM IF (Z(I) .NE. MNEM(J)) GO TO 110 GO TO (120,130,160,170,180,190,200,220,230,260,290), J 110 CONTINUE GO TO 350 120 IAUTO = .FALSE. IF (Z(I+1) .EQ. AUTO) IAUTO = .TRUE. GO TO 350 C 130 DO 140 L = 1,3 IF (Z(I+1) .EQ. IDIR(L)) GO TO 150 140 CONTINUE ISORT = 1 GO TO 350 150 ISORT = L GO TO 350 C 160 IF (LF(1)) GO TO 300 LF(1) = .TRUE. CNAM(1) = Z(I+1) CNAM(2) = Z(I+2) GO TO 350 C 170 JJ = JJ + 1 SNAM(JJ,1) = Z(I+1) SNAM(JJ,2) = Z(I+2) GO TO 350 C 180 IF (LF(2)) GO TO 300 LF(2) = .TRUE. TOLER = AZ(I+2) GO TO 350 C 190 IF (LF(3)) GO TO 300 LF(3) = .TRUE. CONSET = Z(I+2) CONECT = .TRUE. GO TO 350 C 200 KK = KK + 1 COMP(KK,1) = Z(I+1) COMP(KK,2) = Z(I+2) DO 210 LINDX = 1,NPSUB IF (Z(I+1).EQ.SNAM(LINDX,1) .AND. Z(I+2).EQ.SNAM(LINDX,2)) 1 GO TO 350 210 CONTINUE WRITE (OUTT,630) UFM,Z(I+1),Z(I+2) IERR = 1 GO TO 350 C 220 TRANS(KK) = Z(I+2) TRAN = .TRUE. GO TO 350 C 230 DO 240 L = 1,15 IF (Z(I+1) .EQ. ISYM(L,2)) GO TO 250 240 CONTINUE IERR = 1 WRITE (OUTT,620) UFM,Z(I+1),COMP(KK,1),COMP(KK,2) GO TO 350 250 SYMT(KK) = ISYM(L,1) GO TO 350 C 260 DO 270 L = 1,NPSUB IF (Z(I+1).EQ.SNAM(L,1) .AND. Z(I+2).EQ.SNAM(L,2)) GO TO 280 270 CONTINUE WRITE (OUTT,630) UFM,Z(I+1),Z(I+2) IERR = 1 GO TO 350 280 SRCH = .TRUE. RESTCT(LINDX,L) = 1 RESTCT(L,LINDX) = 1 GO TO 350 C 290 IPRINT = ORF(IPRINT,Z(I+2)) GO TO 350 C 300 GO TO (350,350,310,350,320,330) , J 310 WRITE (OUTT,740) UFM GO TO 340 320 WRITE (OUTT,750) UFM GO TO 340 330 WRITE (OUTT,760) UFM 340 IERR = 1 350 CONTINUE C C IF NO SEARCH OPTIONS SPECIFIED - SEARCH ALL POSSIBLE CONNECTIONS C IF (SRCH) GO TO 370 DO 360 I = 1,7 DO 360 J = 1,7 360 RESTCT(I,J) = 1 370 CONTINUE DO 400 I = 1,NPSUB DO 380 J = 1,NPSUB IF (SNAM(I,1).EQ.COMP(J,1) .AND. SNAM(I,2).EQ.COMP(J,2)) GO TO 390 380 CONTINUE COMBO(I,1) = SNAM(I,1) COMBO(I,2) = SNAM(I,2) COMBO(I,3) = 0 COMBO(I,4) = 0 GO TO 400 390 COMBO(I,1) = SNAM(I,1) COMBO(I,2) = SNAM(I,2) COMBO(I,3) = TRANS(J) COMBO(I,4) = SYMT(J) 400 CONTINUE CALL CLOSE (CASECC,1) CALL PAGE WRITE (OUTT,690) NPSUB IF (IAUTO) WRITE (OUTT,700) IF (.NOT. IAUTO) WRITE (OUTT,710) IF (.NOT.(IAUTO .OR. CONECT)) GO TO 550 410 IF (CONECT) WRITE (OUTT,720) CONSET IF (CNAM(1).EQ.0 .AND. CNAM(2).EQ.0) GO TO 560 WRITE (OUTT,640) CNAM CALL FDSUB (CNAM,ITEST) IF (ITEST .NE. -1) GO TO 500 IF (PORA .EQ. PAPP) GO TO 540 420 IF (.NOT.LF(2)) GO TO 530 WRITE (OUTT,670) TOLER CALL DECODE (IPRINT,IBITS,NFLG) IF (NFLG .EQ. 0) IBITS(1) = 0 IF (NFLG .EQ. 0) GO TO 440 DO 430 I = 1,NFLG IBITS(I) = IBITS(I) + 1 430 CONTINUE 440 CONTINUE WRITE (OUTT,810) (IBITS(KDH),KDH=1,NFLG ) 450 DO 480 I = 1,NPSUB WRITE (OUTT,770) I,COMBO(I,1),COMBO(I,2) NCNAM(1) = COMBO(I,1) NCNAM(2) = COMBO(I,2) CALL SFETCH (NCNAM,NHEQSS,3,ITEST) IF (ITEST .EQ. 4) WRITE (OUTT,780) UFM,NCNAM IF (ITEST .EQ. 4) IDRY = -2 IF (COMBO(I,3) .NE. 0) WRITE (OUTT,790) COMBO(I,3) IF (COMBO(I,4) .EQ. 0) GO TO 480 DO 460 MJ = 1,15 IF (COMBO(I,4) .EQ. ISYM(MJ,1)) GO TO 470 460 CONTINUE 470 WRITE (OUTT,800) ISYM(MJ,2) 480 CONTINUE 490 IF (IERR .EQ. 1) IDRY = -2 GO TO 610 500 LITM = LODS IF (PORA .EQ. PAPP) LITM = LOAP CALL SFETCH (CNAM,LITM,3,ITEST) LONLY = .FALSE. IF (ITEST .EQ. 3) GO TO 520 IF (PORA .EQ. PAPP) GO TO 510 WRITE (OUTT,650) UFM IERR = 1 GO TO 420 C C OPTIONS PA YET LOAP ITEM ALREADY EXISTS C 510 WRITE (OUTT,820) UFM,CNAM IERR = 1 GO TO 490 C C NEW LODS ONLY DEFINED C 520 LONLY = .TRUE. RETURN C 530 WRITE (OUTT,660) UFM IERR = 1 GO TO 450 C C OPTIONS PA YET SUBSTRUCTURE DOES NOT EXIST C 540 WRITE (OUTT,830) UFM,CNAM IERR = 1 GO TO 490 550 WRITE (OUTT,680) UFM IERR = 1 GO TO 410 560 WRITE (OUTT,730) UFM IERR = 1 GO TO 490 570 IMSG = -2 GO TO 600 580 IMSG = -1 GO TO 600 590 IMSG = -3 600 CALL MESAGE (IMSG,IFILE,AAA) 610 CONTINUE RETURN C 620 FORMAT (A23,' 6505, THE SYMMETRY OPTION ',A4, 1 ' CONTAINS AN INVALID SYMBOL.') 630 FORMAT (A23,' 6506, THE COMPONENT SUBSTRUCTURE ',2A4, 1 ' IS NOT ONE OF THOSE ON THE COMBINE CARD.') 640 FORMAT (/10X,38HTHE RESULTANT PSEUDOSTRUCTURE NAME IS ,2A4) 650 FORMAT (A23,' 6508, THE NAME SPECIFIED FOR THE RESULTANT ', 1 'PSEUDOSTRUCTURE', /32X,'ALREADY EXISTS ON THE SOF.') 660 FORMAT (A23,' 6504, A TOLERANCE MUST BE SPECIFIED FOR A COMBINE ', 1 'OPERATION.') 670 FORMAT (/10X,32HTHE TOLERANCE ON CONNECTIONS IS ,E15.6) 680 FORMAT (A23,' 6501, THE MANUAL COMBINE OPTION HAS BEEN SPECIFIED', 1 ', BUT NO CONNECTION SET WAS GIVEN.') 690 FORMAT (/10X,'THIS JOB STEP WILL COMBINE ',I1,' PSEUDOSTRUCTURES') 700 FORMAT (/10X,40HCONNECTIONS ARE GENERATED AUTOMATICALLY. ) 710 FORMAT (/10X,35HCONNECTIONS ARE SPECIFIED MANUALLY. ) 720 FORMAT (/10X,25HTHE CONNECTION SET ID IS ,I8) 730 FORMAT (A23,' 6502, NO NAME HAS BEEN SPECIFIED FOR THE RESULTANT', 1 ' COMBINED PSEUDOSTRUCTURE.') 740 FORMAT (A23,' 6519, REDUNDANT NAMES FOR RESULTANT PSEUDOSTRUCTURE' 1, ' HAVE BEEN SPECIFIED.') 750 FORMAT (A23,' 6520, REDUNDANT VALUES FOR TOLER HAVE BEEN ', 1 'SPECIFIED.') 760 FORMAT (A23,' 6512, REDUNDANT CONNECTION SET ID S HAVE BEEN ', 1 'SPECIFIED.') 770 FORMAT (/10X, 27HCOMPONENT SUBSTRUCTURE NO. ,I1,8H NAME = ,2A4) 780 FORMAT (A23,' 6507, THE SUBSTRUCTURE ',2A4,' DOES NOT EXIST ON ', 1 'THE SOF FILE') 790 FORMAT (/15X, 15HTRANS SET ID = ,I8) 800 FORMAT (15X,22HSYMMETRY DIRECTIONS = ,A4) 810 FORMAT (/10X,30HTHE PRINT CONTROL OPTIONS ARE ,25I3) 820 FORMAT (A23,' 6533, OPTIONS PA HAS BEEN SPECIFIED BUT THE LOAP ', 1 'ITEM ALREADY EXISTS FOR SUBSTRUCTURE ',2A4) 830 FORMAT (A23,' 6534, OPTIONS PA HAS BEEN SPECIFIED BUT THE ', 1 'SUBSTRUCTURE ',2A4,' DOES NOT EXIST.', /30X, 2 'YOU CANNOT APPEND SOMETHING TO NOTHING.') END ================================================ FILE: mis/cmckcd.f ================================================ SUBROUTINE CMCKCD C C THIS SUBROUTINE DETERMINES WHETHER MANUALLY SPECIFIED CONNECTION C ENTRIES ARE ALLOWABLE BASED ON THE PRESCRIBED GEOMETRIC TOLERANCE. C INTEGER SCSFIL,COMBO,SCORE,IST(7),SCCONN,CE(9),AAA(2), 1 BUF2,OUTT DIMENSION IPNUM(7),COORD(7,3),DIFF2(3) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC,SCCSTM,SCR3 COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INTP,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / STEP,IDRY DATA AAA / 4HCMCK,4HCD / C C READ ALL BGSS INTO OPEN CORE C IT = 2 IERR = 0 LLCO = LCORE J = 0 IFILE = SCSFIL CALL OPEN (*200,SCSFIL,Z(BUF2),0) DO 30 I = 1,NPSUB NREC = COMBO(I,5) + 1 DO 10 JJ = 1,NREC CALL FWDREC (*210,SCSFIL) 10 CONTINUE CALL READ (*210,*20,SCSFIL,Z(SCORE+J),LLCO,1,NNN) GO TO 220 20 IST(I) = SCORE + J J = J + NNN LLCO = LLCO - NNN CALL SKPFIL (SCSFIL,1) 30 CONTINUE CALL CLOSE (SCSFIL,1) C C READ CONNECTION ENTRIES AND LOAD INTO COORD ARRAY C IFILE = SCCONN CALL OPEN (*200,SCCONN,Z(BUF2),0) 40 CALL READ (*180,*50,SCCONN,CE,10,1,NNN) C C LOAD COORD ARRAY C CE(3)... UP TO CE(9) ARE INTERNAL POINT NO. C IZ(IADD) IS THE COORD (CSTM) ID OF THE INTERNAL PTS. C Z(IADD+1,+2,+3) ARE THE COORD. ORIGINS C 50 NPT = 0 DO 80 I = 1,NPSUB IF (CE(I+2)) 80,80,60 60 NPT = NPT + 1 IADD = 4*(CE(I+2)-1) + IST(I) IPNUM(NPT) = CE(I+2) DO 70 J = 1,3 COORD(NPT,J) = Z(IADD+J) 70 CONTINUE 80 CONTINUE C C COMPARE ALL PAIRS OF COORDINATES AGAINST TOLER. C NPTM1 = NPT - 1 DO 170 I = 1,NPTM1 IT = IT - 1 JJ = I + 1 DO 160 J = JJ,NPT DO 90 KK = 1,3 DIFF2(KK) = (COORD(J,KK)-COORD(I,KK))**2 90 CONTINUE SUM = 0.0 DO 100 KK = 1,3 SUM = SUM + DIFF2(KK) 100 CONTINUE DIST = SQRT(SUM) IF (DIST .LE. TOLER) GO TO 160 IF (IT .GT. 1) GO TO 120 WRITE (OUTT,110) UFM 110 FORMAT (A23,' 6514, ERRORS HAVE BEEN FOUND IN MANUALLY SPECIFIED', 1 ' CONNECTION ENTRIES. SUMMARY FOLLOWS') IERR = 1 IDRY =-2 IT = 2 120 IF (IT .GT. 2) GO TO 140 WRITE (OUTT,130) (CE(KDH),KDH=1,NNN) 130 FORMAT ('0*** GEOMETRIC ERRORS HAVE BEEN FOUND IN THE FOLLOWING', 1 ' CONNECTION ENTRY', /5X,9I10) IT = 3 140 WRITE (OUTT,150) IPNUM(I),(COORD(I,MM),MM=1,3), 1 IPNUM(J),(COORD(J,MM),MM=1,3) 150 FORMAT ('0*** IP NUMBER',I10,13H COORDINATES ,3E16.6,4H AND, /, 1 ' IP NUMBER',I10,13H COORDINATES ,3E16.6, 2 ' ARE NOT WITHIN TOLER UNITS.') 160 CONTINUE 170 CONTINUE GO TO 40 C 180 IF (IERR .EQ. 0) WRITE (OUTT,190) UIM 190 FORMAT (A29,' 6516, ALL MANUAL CONNECTIONS SPECIFIED ARE ', 1 'ALLOWABLE WITH RESPECT TO TOLERANCE') CALL CLOSE (SCCONN,1) GO TO 250 C 200 IMSG = -1 GO TO 230 210 IMSG = -2 GO TO 230 220 IMSG = -8 230 CALL MESAGE (IMSG,IFILE,AAA) C 250 RETURN END ================================================ FILE: mis/cmckdf.f ================================================ SUBROUTINE CMCKDF C C THIS SUBROUTINE DETERMINES WHETHER ALL (TRANSFORMED) LOCAL C COORDINATE SYSTEMS SPECIFIED AT A GIVEN CONNECTION ARE COMPATABLE C LOGICAL FIRST,FERROR INTEGER SCCSTM,SCSFIL,SCCONN,SCORE,BUF2,ECPT1,IST(7), 1 CE(9),CSTMID(7),COMBO,IDPSUB(7),NAM(2),OUTT DIMENSION ECPT(4),CSTM(7,9),TT(9),IZ(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC,SCCSTM,SCR3 COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INTP,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / STEP,IDRY EQUIVALENCE (IZ(1),Z(1)), (ECPT1,ECPT(1)) DATA NAM / 4HCMCK,4HDF / C DO 10 I = 2,4 ECPT(I) = 0.0 10 CONTINUE FERROR = .TRUE. C C READ CSTM INTO OPEN CORE C IFILE = SCCSTM ICSTM = SCORE LLCO = LCORE CALL OPEN (*300,SCCSTM,Z(BUF2),0) CALL READ (*20,*20,SCCSTM,Z(ICSTM),LLCO,1,NW) GO TO 320 20 LLCO = LLCO - NW CALL CLOSE (SCCSTM,1) IF (NW .EQ. 0) GO TO 350 CALL PRETRS (Z(ICSTM),NW) C C READ ALL BGSS FILES INTO OPEN CORE C IBGSS = SCORE + NW IFILE = SCSFIL CALL OPEN (*300,SCSFIL,Z(BUF2),0) JJ = 0 DO 50 I = 1,NPSUB IST(I) = IBGSS + JJ NCSUB = COMBO(I,5) + 1 DO 30 J = 1,NCSUB CALL FWDREC (*310,SCSFIL) 30 CONTINUE CALL READ (*300,*40,SCSFIL,Z(IBGSS+JJ),LLCO,1,NN) GO TO 320 40 LLCO = LLCO - NN JJ = JJ + NN + 1 CALL SKPFIL (SCSFIL,1) 50 CONTINUE CALL CLOSE (SCSFIL,1) C C BEGIN READING CONNECTION ENTRIES C IFILE = SCCONN CALL OPEN (*300,SCCONN,Z(BUF2),0) 60 CALL READ (*230,*70,SCCONN,CE,10,1,NN) GO TO 320 70 NPT = 0 DO 80 I = 1,NPSUB C C CE(3)...CE(NN) ARE INTERNAL POINT NO. C IF (CE(I+2) .EQ. 0) GO TO 80 NPT = NPT + 1 LOC = IST(I) + (CE(I+2)-1)*4 CSTMID(NPT) = IZ(LOC) IDPSUB(NPT) = I 80 CONTINUE C C CHECK FOR NO CSTMS THIS ENTRY C ISUM = 0 DO 90 I = 1,NPT ISUM = ISUM + CSTMID(I) 90 CONTINUE IF (ISUM .EQ. 0) GO TO 60 C C GET CSTM MATRICES AND LOAD INTO CSTM ARRAY C DO 130 I = 1,NPT ECPT1 = CSTMID(I) IF (ECPT1 .EQ. 0) GO TO 110 CALL TRANSS (ECPT,TT) DO 100 J = 1,9 CSTM(I,J) = TT(J) 100 CONTINUE GO TO 130 110 DO 120 J = 1,9 CSTM(I,J) = 0.0 120 CONTINUE CSTM(I,1) = 1.0 CSTM(I,5) = 1.0 CSTM(I,9) = 1.0 130 CONTINUE C C COMPARE EACH MATRIX AGAINST OTHERS C NPTM1 = NPT - 1 DO 220 I = 1,NPTM1 FIRST = .TRUE. J = I + 1 DO 210 K = J,NPT DO 140 KK = 1,9 IF (ABS(CSTM(I,KK)-CSTM(K,KK)) .LT. 1.E-3) GO TO 140 GO TO 150 140 CONTINUE GO TO 210 150 IF (.NOT.FERROR) GO TO 170 FERROR = .FALSE. WRITE (OUTT,160) UFM 160 FORMAT (A23,' 6528, INCOMPATABLE LOCAL COORDINATE SYSTEMS HAVE ', 1 'BEEN FOUND.', /5X,'CONNECTION OF POINTS IS IMPOSSIBLE', C 2 ', SUMMARY FOLLOWS.', /5X,'(LOCAL COORDINATE SYSTEMS ARE', C 3 ' THE TRNASFORMED OVERALL STSTEM GENERATED BY COMB1,', C 4 /5X,'SEE PROGRM. MANUAL P 4.128-7, 9TH STEP)', //, C 5 ' *** SUGGESTION - YOUR SUBSTRUCTURING PROBLEM MAY ', C 6 'REQUIRE THE ''GTRAN'' CARD(S) ***',/) C 2 '. (SUGGESTION - USE ''GTRAN'' CARD(S))', /5X, 3 'SUMMARY IN TERMS OF THE JUST-FORMED INTERNAL DOF AND ', 4 'INTERNAL COORD. SYSTEM ID''S PER', /5X, 5 'THE EQSS AND BGSS FOLLOWS.',/) 170 IF (.NOT.FIRST) GO TO 190 FIRST = .FALSE. ISUB = IDPSUB(I) + 2 WRITE (OUTT,180) CSTMID(I),CSTM(I,1),CSTM(I,4),CSTM(I,7), 1 IDPSUB(I),CSTM(I,2),CSTM(I,5),CSTM(I,8), 2 CE(ISUB) ,CSTM(I,3),CSTM(I,6),CSTM(I,9) 180 FORMAT (/1X,76(1H*),/,' THE FOLLOWING MISMATCHED LOCAL COORDINATE' 1, ' SYSTEMS (CSTM) HAVE BEEN FOUND FOR', //, 2 ' LOCAL COORDINATE SYSTEM ID NO.',I9,8X,3E9.2, /, 3 ' PSEUDOSTRUCTURE ID NO.',I5,20X,3E9.2, /, 4 ' INTERNAL POINT NO.',I9,20X,3E9.2) IDRY = -2 190 ISUB = IDPSUB(K) + 2 WRITE (OUTT,200) CSTMID(K),CSTM(K,1),CSTM(K,4),CSTM(K,7), 1 IDPSUB(K),CSTM(K,2),CSTM(K,5),CSTM(K,8), 2 CE(ISUB), CSTM(K,3),CSTM(K,6),CSTM(K,9) 200 FORMAT (/12X,'AND',7X,'LOCAL COORDINATE SYSTEM ID NO.',I9,8X, 1 3E9.2, /22X,'PSEUDOSTRUCTURE ID NO.',I5,20X,3E9.2, 2 /22X,'INTERNAL POINT NO.',I9,20X,3E9.2) 210 CONTINUE 220 CONTINUE GO TO 60 C 230 CALL CLOSE (SCCONN,1) GO TO 350 C 300 IMSG = -1 GO TO 330 310 IMSG = -2 GO TO 330 320 IMSG = -8 330 CALL MESAGE (IMSG,IFILE,NAM) C 350 RETURN END ================================================ FILE: mis/cmcomb.f ================================================ SUBROUTINE CMCOMB (NPS,NENT,NDOF,IC) C C THIS SUBROUTINE COMBINES CONNECTION ENTRIES THAT HAVE BEEN SPECIFI C ON SEVERAL CONCT OR CONCT1 CARDS. C EXTERNAL ORF LOGICAL MATCH INTEGER CE(9),CEID,SCCONN,SCMCON,BUF1,BUF2,SAVCE,ORF,Z, 1 SCR2,BUF3,SCORE,COMSET,IO(10),SACONN,AAA(2) DIMENSION IC(NENT,NPS,NDOF),LIST(32),KROW(6),IERTAB(2000) COMMON /CMB001/ SCR1,SCR2,JUNK(2),SCCONN,SCMCON COMMON /CMB002/ BUF1,BUF2,BUF3,JUNK1(2),SCORE,LCORE COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / ISTEP,IDRY DATA AAA / 4HCMCO,4HMB / C C CE IS THE CONNECTION ENTRY C KROW(I) IS THE NO. OF ROWS IN THE ITH DOF MATRIX C IERSUB = 0 ITOMNY = 0 IFILE = SCCONN CALL OPEN (*400,SCCONN,Z(BUF1),0) IFILE = SCMCON CALL OPEN (*400,SCMCON,Z(BUF2),0) NREC = -1 NPSS = NPS - 1 NWORD = NPS + 1 IENT = 0 DO 10 I = 1,6 10 KROW(I) = 0 SAVCE = 0 20 CALL READ (*410,*190,SCMCON,CEID,1,0,NNN) NREC = CEID - SAVCE - 1 SAVCE = CEID C C GO FIND ENTRY NO. CEID C IFILE = SCCONN IF (NREC .EQ. 0) GO TO 40 DO 30 I = 1,NREC CALL FWDREC (*420,SCCONN) 30 CONTINUE C C READ IN CONNECTION ENTRY C 40 CALL READ (*410,*50,SCCONN,CE,10,1,NNN) C C FIND WHICH DOF ARE PRESENT IN CONNECTION ENTRY C 50 CALL DECODE (CE(1),LIST,NCOMP) DO 180 I = 1,NCOMP ICOMP = LIST(I) + 1 IF (KROW(ICOMP) .EQ. 0) GO TO 170 C C FIND FIRST NON-ZERO ENTRY IN CURRENT CE C DO 60 J = 1,NPSS IF (CE(J+2) .EQ. 0) GO TO 60 ISUB = J GO TO 70 60 CONTINUE C C NOW HAVE FOUND FIRST NON-ZERO, SEARCH FOR POSSIBLE C MATCHING ENTRIES IN MATRIX C 70 NLOOP = KROW(ICOMP) DO 140 J = 1,NLOOP MATCH = .FALSE. NERSUB = 0 DO 110 JJ = ISUB,NPSS IF (IC(J,JJ,ICOMP).EQ.0 .OR. CE(JJ+2).EQ.0) GO TO 110 IF (IC(J,JJ,ICOMP)-CE(JJ+2)) 80,100,80 80 IF (IERSUB+NERSUB .GT. 2000) ITOMNY = 1 IF (IERSUB+NERSUB .GT. 2000) GO TO 90 IERTAB(IERSUB+NERSUB+1) = ICOMP IERTAB(IERSUB+NERSUB+2) = JJ IERTAB(IERSUB+NERSUB+3) = IC(J,JJ,ICOMP) IERTAB(IERSUB+NERSUB+4) = CE(JJ+2) NERSUB = NERSUB + 4 90 CONTINUE GO TO 110 100 MATCH = .TRUE. 110 CONTINUE IF (MATCH) IERSUB = IERSUB + NERSUB IF (.NOT.MATCH) GO TO 140 DO 130 JJ = ISUB,NPSS IF (CE(JJ+2).NE.0 .AND. IC(J,JJ,ICOMP).NE.0) GO TO 130 IC(J,JJ,ICOMP) = IC(J,JJ,ICOMP) + CE(JJ+2) 130 CONTINUE IC(J,NPSS+1,ICOMP) = ORF(IC(J,NPSS+1,ICOMP),CE(2)) GO TO 180 140 CONTINUE 150 DO 160 JJ = 1,NPSS IC(NLOOP+1,JJ,ICOMP) = CE(JJ+2) 160 CONTINUE IC(NLOOP+1,NPSS+1,ICOMP) = CE(2) KROW(ICOMP) = KROW(ICOMP) + 1 GO TO 180 170 NLOOP = 0 GO TO 150 180 CONTINUE GO TO 20 190 CONTINUE IF (IERSUB .EQ. 0) GO TO 200 C C GENERATE ERROR TABLE AND TERMINATE C CALL CLOSE (SCCONN,1) CALL CLOSE (SCMCON,1) CALL CMTRCE (IERTAB,IERSUB,ITOMNY) IDRY = -2 RETURN C 200 CONTINUE CALL CLOSE (SCCONN,1) IFILE = SCR2 CALL OPEN (*400,SCR2,Z(BUF3),1) DO 240 K = 1,NDOF IROW = KROW(K) IF (IROW) 240,240,210 210 DO 230 I = 1,IROW IO(1) = K IO(2) = IC(I,NPS,K) DO 220 J = 1,NPSS IO(J+2) = IC(I,J,K) 220 CONTINUE CALL WRITE (SCR2,IO(1),NPS+1,0) 230 CONTINUE 240 CONTINUE CALL WRITE (SCR2,IO(1),0,1) CALL CLOSE (SCR2,1) CALL OPEN (*400,SCR2,Z(BUF3),0) CALL READ (*410,*250,SCR2,Z(SCORE),LCORE,1,NWD) GO TO 430 250 CALL SORT (0,0,NPS+1,2,Z(SCORE),NWD) CALL CLOSE (SCR2,1) CALL OPEN (*400,SCR2,Z(BUF3),1) IFIN = SCORE + NWD - 1 IINC = NPS + 1 DO 310 I = SCORE,IFIN,IINC IF (Z(I)) 260,310,260 260 COMSET = Z(I) IBEG = I + IINC DO 280 J = IBEG,IFIN,IINC IF (Z(J) .EQ. 0) GO TO 280 IF (Z(J+1) .GT. Z(I+1)) GO TO 290 DO 270 K = 1,NPSS IF (Z(I+K+1) .NE. Z(J+K+1)) GO TO 280 270 CONTINUE COMSET = 10*COMSET+Z(J) Z(J) = 0 280 CONTINUE 290 CALL ENCODE (COMSET) IO(1) = COMSET DO 300 KK = 1,NPS IO(1+KK) = Z(I+KK) 300 CONTINUE CALL WRITE (SCR2,IO,NPS+1,1) 310 CONTINUE CALL REWIND (SCMCON) IFILE = SCMCON CALL READ (*410,*320,SCMCON,Z(SCORE),LCORE,1,NMCON) 320 NCE = 0 SACONN = SCCONN CALL OPEN (*400,SCCONN,Z(BUF1),0) 330 CALL READ (*360,*340,SCCONN,CE,10,1,NNN) 340 NCE = NCE + 1 DO 350 I = 1,NMCON IF (NCE .EQ. Z(SCORE+I-1)) GO TO 330 350 CONTINUE CALL WRITE (SCR2,CE,NPS+1,1) GO TO 330 360 CALL CLOSE (SCMCON,1) CALL CLOSE (SCCONN,1) CALL CLOSE (SCR2,1) SCCONN = SCR2 SCR2 = SACONN RETURN C 400 IMSG = -1 GO TO 440 410 IMSG = -2 GO TO 440 420 IMSG = -3 GO TO 440 430 IMSG = -8 440 CALL MESAGE (IMSG,IFILE,AAA) RETURN END ================================================ FILE: mis/cmcont.f ================================================ SUBROUTINE CMCONT C C THIS ROUTINE DEFINES THE CONNECTION ENTRIES IN TERMS OF IP C NUMBERS. C EXTERNAL LSHIFT,RSHIFT,ANDF LOGICAL ODD INTEGER SCSFIL,SCMCON,BUF3,BUF4,OFILE,SCR1,SCR2,BUF1,BUF2, 1 SCORE,ISTRT(100),ILEN(100),II(9),IO(9),ANDF, 2 RSHIFT,DOF(6),IP(6),AAA(2),SCCONN,COMBO,OUTT CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB COMMON /CMBFND/ INAM(2),IERR COMMON /BLANK / STEP,IDRY COMMON /ZZZZZZ/ Z(1) DATA AAA / 4HCMCO,4HNT / C ICOR = SCORE ICLEN = LCORE MFILE = SCSFIL CALL OPEN (*200,SCSFIL,Z(BUF3),0) OFILE = SCR2 IFILE = SCR1 NWD = 2 + NPSUB ODD = .FALSE. C DO 120 I = 1,NPSUB ODD = .NOT.ODD NCSUB = COMBO(I,5) C C READ IN EQSS FOR ITH PSEUDO-STRUCTURE C MFILE = IFILE CALL OPEN (*200,IFILE,Z(BUF1),0) MFILE = OFILE CALL OPEN (*200,OFILE,Z(BUF2),1) C C MOVE TO FIRST COMPONENT EQSS C DO 20 J = 1,NCSUB MFILE = SCSFIL CALL READ (*210,*10,SCSFIL,Z(SCORE),LCORE,1,NNN) GO TO 220 10 ISTRT(J) = SCORE ILEN(J) = NNN SCORE = SCORE + NNN LCORE = LCORE - NNN 20 CONTINUE CALL SKPFIL (SCSFIL,1) C C CONNECTION ENTRIES IN TERMS OF GRID POINT ID ARE ON SCR1 C IN THE FORM... C C/CC/G1/G2/G3/G4/G5/G6/G7 C C READ CONNECTION ENTRY.. C MFILE = IFILE 30 CALL READ (*110,*40,IFILE,II,10,1,NNN) 40 CONTINUE ICOMP = II(2+I)/1000000 IGRID = II(2+I) - 1000000*ICOMP IF (IGRID .EQ. 0) GO TO 100 C C THE ABOVE RETRIEVED THE ORIGINAL GRID PT. NO., NOW FIND OUT C IF IT HAS SEVERAL IP NO. C IF (ILEN(ICOMP) .EQ. 0) GO TO 50 CALL GRIDIP (IGRID,ISTRT(ICOMP),ILEN(ICOMP),IP,DOF,NIP,Z,NNN ) IF (IERR .NE. 1) GO TO 70 50 IDRY = -2 WRITE (OUTT,60) UFM,IGRID,COMBO(I,1),COMBO(I,2),ICOMP 60 FORMAT (A23,' 6535, A MANUAL CONNECTION SPECIFIES GRID ID ',I8, 1 ' OF PSEUDOSTRUCTURE ',2A4, /30X, 2 'COMPONENT STRUCTURE,I4,22H WHICH DOES NOT EXIST.') GO TO 30 70 DO 90 J = 1,NIP II2 = RSHIFT(DOF(J),26) II2 = LSHIFT(II2,26) DOF(J) = DOF(J) - II2 IO(1) = ANDF(II(1),DOF(J)) IF (IO(1) .EQ. 0) GO TO 90 IO(2) = II(2) DO 80 JJ = 1,NWD IO(2+JJ) = II(2+JJ) 80 CONTINUE IO(2+I) = IP(J) CALL WRITE (OFILE,IO,NWD,1) 90 CONTINUE GO TO 30 100 CALL WRITE (OFILE,II,NWD,1) GO TO 30 110 CALL CLOSE (IFILE,1) IF (I .EQ. NPSUB ) CALL CLOSE (OFILE,2) IF (I .LT. NPSUB ) CALL CLOSE (OFILE,1) ISAVE = IFILE IFILE = OFILE OFILE = ISAVE 120 CONTINUE SCCONN = SCR1 IF (ODD) SCCONN = SCR2 IF (SCCONN .EQ. SCR1) SCR1 = 305 IF (SCCONN .EQ. SCR2) SCR2 = 305 SCORE = ICOR LCORE = ICLEN CALL CLOSE (SCSFIL,1) RETURN C 200 IMSG = -1 GO TO 230 210 IMSG = -2 GO TO 230 220 IMSG = -8 230 CALL MESAGE (IMSG,MFILE,AAA) RETURN END ================================================ FILE: mis/cmdisc.f ================================================ SUBROUTINE CMDISC C C THIS SUBROUTINE DETERMINES THE DISCONNECTED DEGREES OF FREEDOM C AND GENERATES DISCONNECTION ENTRIES WHICH ARE MERGED WITH THE C CONNECTION ENTRIES C EXTERNAL ORF INTEGER SCSFIL,Z,SCORE,COMBO,IPTR(7),SCCONN,BUF3,CE(9), 1 ORF,SCDISC,DE(9),AAA(2),SCR1,SCR2,BUF2,OUTT COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB COMMON /CMB004/ TDAT(6),NIPNEW COMMON /ZZZZZZ/ Z(1) DATA AAA / 4HCMDI,4HSC / C C NWD = NPSUB+2 ISVCOR = SCORE ITOT = 0 ILEN = LCORE NN = 0 KK = SCORE CALL OPEN (*200,SCSFIL,Z(BUF3),0) C C LOOP ON THE NUMBER OF PSEUDO STRUCTURES READING THE SIL,C TABLE C INTO CORE FOR EACH. THE ARRAY IPTR(I) POINTS TO THE START OF C THE I-TH TABLE IN CORE C DO 40 I = 1,NPSUB NCSUB = COMBO(I,5) C C FIND SIL, C TABLE C DO 10 J = 1,NCSUB CALL FWDREC (*210,SCSFIL) 10 CONTINUE KK = KK + NN IPTR(I) = KK CALL READ (*210,*20,SCSFIL,Z(KK),LCORE,1,NN) GO TO 220 C C ZERO OUT SIL VALUES, LOCATION WILL STORE CNEW C 20 DO 30 J = 1,NN,2 Z(KK+J-1) = 0 30 CONTINUE LCORE = LCORE - NN ITOT = ITOT + NN CALL SKPFIL (SCSFIL,1) 40 CONTINUE CALL CLOSE (SCSFIL,1) C C ALL EQSS HAVE BEEN PROCESSED, NOW SCAN THE CONNECTION ENTRIES C AND GET CNEW VALUES. C CALL OPEN (*200,SCCONN,Z(BUF3),0) C C READ AND PROCESS CONNECTION ENTRIES ONE AT A TIME C 50 CALL READ (*80,*60,SCCONN,CE,10,1,NN) 60 DO 70 I = 1,NPSUB IF (CE(2+I) .EQ. 0) GO TO 70 C C TRANSLATE CODED IP TO ACTUAL IP, COMPUTE LOCATION IN OPEN CORE C AND UPDATE CNEW C IP = CE(2+I) - 1000000*(CE(2+I)/1000000) LOC = IPTR(I) + 2*IP - 2 Z(LOC) = ORF(Z(LOC),CE(1)) 70 CONTINUE GO TO 50 C C ALL CONNECTIONS HAVE BEEN ACCOUNTED FOR,NOW DETERMINE DISCONN. C 80 CONTINUE SCDISC = SCR1 IF (SCR1 .EQ. SCCONN) SCDISC = SCR2 CALL OPEN (*200,SCDISC,Z(BUF2),1) DO 130 I = 1,NPSUB IF (I .LT. NPSUB) LEN = IPTR(I+1) - IPTR(I) IF (I .EQ. NPSUB) LEN = ITOT - IPTR(I) ISTRT = IPTR(I) DO 120 J = 1,LEN,2 DO 90 KDH = 1,9 DE(KDH) = 0 90 CONTINUE IP = J/2 + 1 LOC = ISTRT + J - 1 C C POINT IS TOTALLY DISCONNECTED C IF (Z(LOC) .EQ. Z(LOC+1)) GO TO 120 IF (Z(LOC) .NE. 0) GO TO 100 C C POINT IS TOTALLY CONNECTED C DE(1) = Z(LOC+1) DE(2) = 2**I DE(2+I) = IP GO TO 110 C C POINT IS PARTIALLY DISCONNECTED C 100 DE(1) = Z(LOC+1) - Z(LOC) DE(2) = 2**I DE(2+I) = IP 110 CALL WRITE (SCDISC,DE,NWD,1) 120 CONTINUE 130 CONTINUE CALL EOF (SCDISC) CALL CLOSE (SCDISC,1) KK = SCORE LCORE = ILEN CALL OPEN (*200,SCDISC,Z(BUF2),0) CALL REWIND (SCCONN) ID = 1 140 CALL READ (*150,*160,SCDISC,Z(KK),LCORE,1,NNN) GO TO 220 150 ID = 2 CALL READ (*170,*160,SCCONN,Z(KK),LCORE,1,NNN) GO TO 220 160 KK = KK + NWD LCORE = LCORE - NWD IF (LCORE .LT. NWD) GO TO 220 IF (ID .EQ. 1) GO TO 140 GO TO 150 170 CALL CLOSE (SCCONN,1) CALL CLOSE (SCDISC,1) CALL OPEN (*200,SCCONN,Z(BUF3),1) LEN = KK - SCORE NIPNEW = LEN/NWD DO 180 I = 1,LEN,NWD Z(SCORE+I) = IABS(Z(SCORE+I)) 180 CONTINUE CALL SORT (0,0,NWD,2,Z(SCORE),LEN) DO 190 I = 1,LEN,NWD CALL WRITE (SCCONN,Z(SCORE+I-1),NWD,1) 190 CONTINUE CALL EOF (SCCONN) CALL CLOSE (SCCONN,1) CALL CLOSE (SCDISC,1) SCORE = ISVCOR LCORE = ILEN RETURN C 200 IMSG = -1 GO TO 230 210 IMSG = -2 GO TO 230 220 IMSG = -8 230 CALL MESAGE (IMSG,IFILE,AAA) RETURN END ================================================ FILE: mis/cmhgen.f ================================================ SUBROUTINE CMHGEN C C THIS SUBROUTINE GENERATES THE (H) TRANSFORMATION MATRICES FOR C COMPONENT SUBSTRUCTURES IN A COMBINE OPERATION AND WRITES THEM C ON THE SOF C LOGICAL FRSFIL INTEGER BUFEX,SCR1,MCB(7),IHEAD(2),NAM(2),SCR3,BUF1, 1 CNAM,COMBO,Z,SSIL,LCORE,SCORE,SCSFIL,BUF2,BUF3, 2 SCBDAT,SCCONN,LISTO(32),LISTN(32),AAA(2),BUF4, 3 CE(10) DIMENSION T(6,6),TP(6,6),TPP(6,6),COLOUT(6),TID(6,6), 1 TTRAN(6,6) COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC,SCCSTM,SCR3 COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB COMMON /CMB004/ TDAT(6),NIPNEW,CNAM(2) COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / IIN,IOUT,IIII,NNNN,INCR DATA ZERO / 0.0 /,AAA/ 4HCMHG,4HEN /,IHEAD/ 4HHORG,4H / DATA TID / 1.,0.,0.,0.,0.,0., 0.,1.,0.,0.,0.,0., 1 0.,0.,1.,0.,0.,0., 0.,0.,0.,1.,0.,0., 2 0.,0.,0.,0.,1.,0., 0.,0.,0.,0.,0.,1. / DATA NHEQSS/ 4HEQSS / C C READ SIL,C FROM SOF FOR COMBINED STRUCTURE C INCR = 1 BUFEX = LCORE - BUF2 + BUF3 LCORE = BUFEX - 1 IF (LCORE .LT. 0) GO TO 320 IOEFIL = 310 CALL OPEN (*300,IOEFIL,Z(BUFEX),0) MCB(1) = SCR1 MCB(4) = 2 MCB(5) = 1 IIN = 1 IOUT = 1 CALL SFETCH (CNAM,NHEQSS,1,ITEST) NSUB = 0 DO 10 I = 1,NPSUB NSUB = NSUB + COMBO(I,5) 10 CONTINUE CALL SJUMP (NSUB+1) CALL SUREAD (Z(SCORE),-1,NSILNW,ITEST) C C LOOP ON NUMBER OF PSEUDO-STRUCTURES BEING COMBINED C SSIL = SCORE + NSILNW LCORE = LCORE - NSILNW IFILE = SCR3 CALL OPEN (*300,SCR3,Z(BUF1),0) IFILE = SCSFIL CALL OPEN (*300,SCSFIL,Z(BUF2),0) C DO 260 I = 1,NPSUB FRSFIL = .TRUE. MCB(2) = 0 MCB(6) = 0 MCB(7) = 0 C C READ SIL,C FOR COMPONENT SUBSTRUCTURE C NCS = COMBO(I,5) + 2 DO 20 J = 1,NCS CALL FWDREC (*310,SCSFIL) 20 CONTINUE IFILE = IOEFIL CALL READ (*310,*30,IOEFIL,Z(SSIL),LCORE,1,NSLOLD) GO TO 320 30 ISHPTR = SSIL + NSLOLD IFILE = SCSFIL CALL READ (*310,*40,SCSFIL,Z(ISHPTR),LCORE,1,LHPTR) GO TO 320 40 CALL SKPFIL (SCSFIL,1) C C COMPUTE NUMBER OF ROWS IN MATRIX C ICODE = Z(SSIL+NSLOLD-1) CALL DECODE (ICODE, LISTO, NCOM) MCB(3) = Z(SSIL+NSLOLD-2) + NCOM - 1 C C READ CONNECTION ENTRIES C C READ TRANSFORMATION MATRIX FOR PSEUDOSTRUCTURE C IFILE = SCR3 CALL READ (*310,*50,SCR3,TTRAN,37,1,NNN) 50 CONTINUE CALL SKPFIL (SCR3,-1) IF (I .NE. 1) CALL SKPFIL (SCR3,1) IFILE = SCCONN CALL OPEN (*300,SCCONN,Z(BUF3),0) IFILE = SCR1 CALL OPEN (*300,SCR1,Z(BUF4),1) CALL WRITE (SCR1,IHEAD,2,1) IPNEW = 0 60 CALL READ (*250,*70,SCCONN,CE,10,1,NNN) 70 IPNEW = IPNEW + 1 LOCIPN = SCORE + 2*(IPNEW-1) + 1 IF (CE(I+2) .EQ. 0) GO TO 230 IPOLD = CE(I+2) LOCIPO = SSIL + 2*(IPOLD-1) + 1 ICODE = Z(LOCIPN) CALL DECODE (ICODE,LISTN,NCN) ICODE = Z(LOCIPO) CALL DECODE (ICODE,LISTO,NCO) C IADDH = ISHPTR + IPOLD - 1 IDH = Z(IADDH) IF (IDH-1) 80,100,120 C C IDENTITY MATRIX C 80 CONTINUE DO 90 I1 = 1,6 DO 90 I2 = 1,6 T(I1,I2) = TID(I1,I2) 90 CONTINUE GO TO 160 C C TRANS MATRIX C 100 CONTINUE DO 110 I1 = 1,6 DO 110 I2 = 1,6 T(I1,I2) = TTRAN(I1,I2) 110 CONTINUE GO TO 160 C C MATRIX DUE TO GTRAN C 120 CONTINUE IDHM1 = IDH - 1 DO 130 I1 = 1,IDHM1 CALL FWDREC (*310,SCR3) 130 CONTINUE CALL READ (*310,*140,SCR3,T,37,1,NNN) 140 DO 150 I1 = 1,IDH CALL BCKREC (SCR3) 150 CONTINUE 160 CONTINUE C C DELETE ROWS OF (T) FOR EACH COLD EQUAL TO ZERO C DO 180 J1 = 1,NCO IR = LISTO(J1) + 1 DO 170 J2 = 1,6 TP(J1,J2) = T(IR,J2) 170 CONTINUE 180 CONTINUE NROW = NCO C C DELETE COLUMNS OF (T) FOR EACH CNEW EQUAL TO ZERO C DO 200 J1 = 1,NCN IC = LISTN(J1) + 1 DO 190 J2 = 1,NROW TPP(J2,J1) = TP(J2,IC) 190 CONTINUE 200 CONTINUE NCOL = NCN DO 220 I1 = 1,NCOL DO 210 I2 = 1,NROW COLOUT(I2) = TPP(I2,I1) 210 CONTINUE IIII = Z(LOCIPO-1) NNNN = IIII + NROW - 1 CALL PACK (COLOUT,SCR1,MCB) 220 CONTINUE GO TO 60 230 IIII = 1 NNNN = 1 ICODE = Z(LOCIPN) CALL DECODE (ICODE,LISTN,NCN) DO 240 I1 = 1,NCN CALL PACK (ZERO,SCR1,MCB) 240 CONTINUE GO TO 60 250 CONTINUE CALL CLOSE (SCCONN,1) CALL WRTTRL (MCB) CALL CLOSE (SCR1,1) NAM(1) = COMBO(I,1) NAM(2) = COMBO(I,2) CALL MTRXO (SCR1,NAM,IHEAD(1),Z(BUF4),ITEST) CALL SKPFIL (SCR3,1) 260 CONTINUE C CALL CLOSE (SCSFIL,1) CALL CLOSE (SCR3,1) CALL CLOSE (IOEFIL,1) LCORE = BUFEX + BUF2 - BUF3 RETURN C 300 IMSG = -1 GO TO 330 310 IMSG = -2 GO TO 330 320 IMSG = -8 330 CALL MESAGE (IMSG,IFILE,AAA) RETURN END ================================================ FILE: mis/cmiwrt.f ================================================ SUBROUTINE CMIWRT (ICODE,NAME1,NAME2,LOC,NW,A,IZ) C C THIS SUBROUTINE WRITES FORMATTED SOF ITEMS. C ICODE = 1 FOR EQSS ICODE = 2 FOR BGSS ICODE = 3 FOR CSTM C ICODE = 4 FOR PLTS ICODE = 5 FOR LODS ICODE = 7 FOR LOAP C NAME1 IS PSEUDOSTRUCTURE NAME, NAME2 IS COMPONENT NAME C EXTERNAL ANDF INTEGER OUTT,ANDF DIMENSION NAME1(2),NAME2(2),A(1),IZ(1),IBITS(32),IPL(6), 1 IH1(96),IH2(96),IH3(96),IH4(96),IH5(96),IH6(96) COMMON /SYSTEM/ XXX,OUTT,JUNK1(6),NLPP,JUNK2(2),NLINE COMMON /OUTPUT/ ITITL(96),IHEAD(96) DATA IH1 / 9*4H ,4H EQS,4HS IT,4HEM F,4HOR S,4HUBST,4HRUCT, 1 4HURE ,2*4H ,4H COM,4HPONE,4HNT ,11*4H ,4HGRID, 2 4H POI,4HNT ,4H INT,4HERNA,4HL ,4H CO,4HMPON, 3 4HENT ,2*4H ,4H GRI,4HD PO,4HINT ,4H IN,4HTERN, 4 4HAL ,4H C,4HOMPO,4HNENT,2*4H ,4H GR,4HID P, 5 4HOINT,4H I,4HNTER,4HNAL ,4H ,4HCOMP,4HONEN, 6 4HT ,4H ,4HID ,4H ,4H POI,4HNT I,4HD , 7 4H ,4H DOF,4*4H ,4H ID ,4H ,4H PO,4HINT , 8 4HID ,4H ,4H DO,4HF ,3*4H ,4H ID,4H , 9 4H P,4HOINT,4H ID ,4H ,4H D,4HOF ,4H / DATA IH2 / 11*4H ,4HBGSS,4H ITE,4HM FO,4HR SU,4HBSTR,4HUCTU, 1 4HRE ,21*4H ,4HINTE,4HRNAL,4H ,4H CST,4HM ID, 2 4*4H ,4H C ,4HO O ,4HR D ,4HI N ,4HA T ,4HE S , 3 17*4H ,4HPOIN,4HT ID,4H ,4H N,4HO. ,3*4H , 4 4HX1 ,3*4H ,4HX2 ,3*4H ,4HX3 ,8*4H / DATA IH3 / 12*4H ,4HCSTM,4H ITE,4HM FO,4HR SU,4HBSTR, 1 4HUCTU,4HRE ,13*4H ,2*4H ,4H CST,4HM ,4HTYPE, 2 2*4H ,4HC O ,4HO R ,4HD I ,4HN A ,4HT E ,4HS , 3 4HO F ,4H O ,4HR I ,4HG I ,4HN ,3*4H ,4H T, 4 4H R A,4H N S,4H F O,4H R M,4H A T,4H I O,4H N , 5 5*4H ,4H ID,5*4H ,4HX1 ,3*4H ,4HX2 , 6 3*4H ,4HX3 ,6*4H ,4H M,4H A T,4H R I,4H X , 7 5*4H / DATA IH4 / 12*4H ,4HPLTS,4H ITE,4HM FO,4HR SU,4HBSTR, 1 4HUCTU,4HRE ,13*4H ,2*4H ,4HCOMP,4HONEN,4HT , 2 4H ,4H C O,4H O R,4H D I,4H N A,4H T E,4H S , 3 4H O F,4H O,4HR I ,4HG I ,4HN ,3*4H ,4H T, 4 4H R A,4H N S,4H F O,4H R M,4H A T,4H I O,4H N , 5 6*4H ,4H NA,4HME ,3*4H ,4H X1 ,3*4H , 6 4H X2 ,3*4H ,4H X3 ,6*4H ,4H M,4H A T,4H R I, 7 4H X ,6*4H / DATA IH5 / 12*4H ,4HLODS,4H ITE,4HM FO,4HR SU,4HBSTR, 1 4HUCTU,4HRE ,18*4H ,4H COM,4HPONE,4HNT ,4H NU, 2 4HMBER,4H OF ,21*4H ,5*4H ,4H N,4HAME , 3 4H ,4H LO,4HAD S,4HETS ,4H L ,4HO A ,4HD , 4 4HS E ,4HT ,4HI D ,4HE N ,4HT I ,4HF I ,4HC A , 5 4HT I ,4HO N ,4H N ,4HU M ,4HB E ,4HR S ,5*4H / DATA IH6 / 9*4H ,4HEQSS,4H ITE,4HM - ,4HSCAL,4HAR I, 1 4HNDEX,4H LIS,4HT FO,4HR SU,4HBSTR,4HUCTU,4HRE , 2 11*4H ,4H INT,4HERNA,4HL ,4H INT,4HERNA, 3 4HL ,4H CO,4HMPON,4HENT ,2*4H ,4H IN, 4 4HTERN,4HAL ,4H IN,4HTERN,4HAL ,4H C,4HOMPO, 5 4HNENT,2*4H ,4H I,4HNTER,4HNAL ,4H I, 6 4HNTER,4HNAL ,4H ,4HCOMP,4HONEN,4HT ,4H POI, 7 4HNT I,4HD ,4H SI,4HL ID,2*4H ,4H DOF, 8 3*4H ,4H PO,4HINT ,4HID ,4H S,4HIL I, 9 4HD ,4H ,4H DO,4HF ,2*4H ,4H P, A 4HOINT,4H ID ,4H ,4HSIL ,4HID ,4H ,4H D, B 4HOF ,4H / DATA LOAP/ 4HLOAP/ C IST = LOC IFIN = LOC + NW - 1 GO TO (1,2,3,4,5,6,5,8), ICODE C C EQSS ITEM C 1 DO 100 I = 1,96 100 IHEAD(I) = IH1(I) C C INSERT NAMES INTO HEADING C IHEAD(17) = NAME1(1) IHEAD(18) = NAME1(2) IHEAD(22) = NAME2(1) IHEAD(23) = NAME2(2) CALL PAGE IF (NW .NE. 0) GO TO 140 WRITE (OUTT,1009) GO TO 700 C 140 DO 101 I = IST,IFIN,9 NLINE = NLINE + 1 IF (NLINE .LE. NLPP) GO TO 150 CALL PAGE NLINE = NLINE + 1 150 CONTINUE ICOMP = ANDF(IZ(I+2),63) CALL BITPAT (ICOMP,IBITS(1)) I2 = 3 IF (I+5 .GT. IFIN) GO TO 151 ICOMP = ANDF(IZ(I+5),63) CALL BITPAT (ICOMP,IBITS(4)) I2 = 6 IF (I+8 .GT. IFIN) GO TO 151 ICOMP = ANDF(IZ(I+8),63) CALL BITPAT (ICOMP,IBITS(7)) I2 = 9 151 CONTINUE WRITE (OUTT,1000) (IZ(I+J-1),IZ(I+J),IBITS(J),IBITS(J+1),J=1,I2,3) 101 CONTINUE GO TO 700 C C EQSS - SCALER INDEX LIST C 8 DO 600 I = 1,96 600 IHEAD(I) = IH6(I) IHEAD(22) = NAME1(1) IHEAD(23) = NAME1(2) CALL PAGE C IP = 0 DO 603 I = IST,IFIN,6 NLINE = NLINE + 1 IF (NLINE .LE. NLPP) GO TO 601 CALL PAGE NLINE = NLINE + 1 601 CONTINUE KCODE = IZ(I+1) CALL BITPAT (KCODE,IBITS(1)) I2 = 2 IPL(1) = IP + 1 IF (I+3 .GT. IFIN) GO TO 602 KCODE = IZ(I+3) CALL BITPAT (KCODE,IBITS(3)) I2 = 4 IPL(3) = IP + 2 IF (I+5 .GT. IFIN) GO TO 602 KCODE = IZ(I+5) CALL BITPAT (KCODE,IBITS(5)) I2 = 6 IPL(5) = IP + 3 602 CONTINUE WRITE (OUTT,1000) (IPL(J),IZ(I+J-1),IBITS(J),IBITS(J+1),J=1,I2,2) IP = IP + 3 603 CONTINUE GO TO 700 C C BGSS ITEM C 2 DO 200 I = 1,96 200 IHEAD(I) = IH2(I) IHEAD(20) = NAME1(1) IHEAD(21) = NAME1(2) CALL PAGE J = 0 DO 201 I = IST,IFIN,4 J = J + 1 NLINE = NLINE + 1 IF (NLINE .LE. NLPP) GO TO 250 CALL PAGE NLINE = NLINE + 1 250 CONTINUE WRITE (OUTT,1001) J,IZ(I),A(I+1),A(I+2),A(I+3) 201 CONTINUE GO TO 700 C C CSTM ITEM C 3 DO 300 I = 1,96 300 IHEAD(I) = IH3(I) IHEAD(20) = NAME1(1) IHEAD(21) = NAME1(2) CALL PAGE DO 301 I = IST,IFIN,14 NLINE = NLINE + 4 IF (NLINE .LE. NLPP) GO TO 350 CALL PAGE NLINE = NLINE + 4 350 CONTINUE I1 = I + 2 I2 = I + 13 WRITE (OUTT,1002) IZ(I),IZ(I+1),(A(KK),KK= I1,I2) 301 CONTINUE GO TO 700 C 4 DO 400 I = 1,96 C C PLTS ITEM C 400 IHEAD(I) = IH4(I) IHEAD(20) = NAME1(1) IHEAD(21) = NAME1(2) CALL PAGE DO 401 I = IST,IFIN,14 NLINE = NLINE + 4 IF (NLINE .LE. NLPP) GO TO 450 CALL PAGE NLINE = NLINE + 4 450 CONTINUE I1 = I + 2 I2 = I + 13 WRITE (OUTT,1004) IZ(I),IZ(I+1),(A(J),J=I1,I2) 401 CONTINUE GO TO 700 C C LODS AND LOAP ITEMS C 5 DO 500 I = 1,96 500 IHEAD(I) = IH5(I) IHEAD(20) = NAME1(1) IHEAD(21) = NAME1(2) IF (ICODE .EQ. 7) IHEAD(13) = LOAP CALL PAGE 6 IF (NW.EQ.0 .OR. NW.EQ.1) GO TO 520 NL = NW/5 + 3 NLINE = NLINE + NL IF (NLINE .LE. NLPP) GO TO 550 CALL PAGE NLINE = NLINE + NL 550 CONTINUE IST1 = IST + 1 WRITE (OUTT,1006) NAME2(1),NAME2(2),IZ(IST),(IZ(J),J=IST1,IFIN) GO TO 700 C 520 NLINE = NLINE + 2 IF (NLINE .LE. NLPP) GO TO 560 CALL PAGE NLINE = NLINE + 2 560 CONTINUE WRITE (OUTT,1008) NAME2(1),NAME2(2) 700 RETURN C 1000 FORMAT (6X,I8,4X,I8,6X,A4,A2,2(13X,I8,4X,I8,6X,A4,A2)) 1001 FORMAT (33X,I8,4X,I8,3X,3(3X,E13.6)) 1002 FORMAT (/10X,I8,3X,I4,3X,3(3X,E13.6),4X,3(3X,E13.6), 1 /80X,3(3X,E13.6), /80X,3(3X,E13.6)) 1004 FORMAT (/14X,2A4,3X,3(3X,E13.6),4X,3(3X,E13.6) 1 /77X,3(3X,E13.6), /77X,3(3X,E13.6)) 1006 FORMAT (/26X,2A4,3X,I8,5X,6(2X,I8)/(50X,2X,I8,2X,I8,2X,I8,2X,I8, 1 2X,I8,2X,I8,/)) 1008 FORMAT (/26X,2A4,17X,32HNO LOAD SETS FOR THIS COMPONENT. ) 1009 FORMAT (/30X,64HALL DEGREES OF FREEDOM FOR THIS COMPONENT HAVE BEE 1N REDUCED OUT. ) END ================================================ FILE: mis/cmmcon.f ================================================ SUBROUTINE CMMCON (NCE) C C THIS SUBROUTINE DETERMINES WHETHER MORE THAN ONE CONNECTION ENTRY C HAS BEEN SPECIFIED FOR A GIVEN IP NUMBER. C LOGICAL MCON INTEGER SCCONN,BUF1,Z,SCORE,SCMCON,BUF3,AAA(2) COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON COMMON /CMB002/ BUF1,BUF2,BUF3,JUNK(2),SCORE,LCORE,INPT,OUTT COMMON /CMB003/ JUNK2(38),NPSUB,JUNK3(2),MCON COMMON /ZZZZZZ/ Z(1) DATA AAA / 4HCMMC,4HON / C C READ CONNECTION ENTRIES INTO OPEN CORE C NWD = 2 + NPSUB MCON = .TRUE. IFILE = SCCONN CALL OPEN (*700,SCCONN,Z(BUF1),0) J = 0 NCE = 0 90 CALL READ (*200,*100,SCCONN,Z(SCORE+J),10,1,NNN) 100 NCE = NCE + 1 Z(SCORE+J) = NCE J = J + NWD GO TO 90 200 CALL CLOSE (SCCONN,1) C C SWEEP THROUGH CONNECTION ENTRIES AND DETERMINE THOSE THAT C REPRESENT MULTIPLE CONNECTIONS. C MCON = .FALSE. NCEM1 = NCE - 1 C DO 500 K = 1,NCEM1 DO 400 I = 1,NPSUB IST = SCORE + I + (K-1)*NWD + 1 IF (Z(IST) .EQ. 0) GO TO 400 DO 300 J = 1,NCE IF (K .EQ. J) GO TO 300 ISUB = SCORE + 1 + I + (J-1)*NWD IF (Z(IST) .NE. Z(ISUB)) GO TO 300 ILOC = I + 1 Z(IST -ILOC) = -1*IABS(Z(IST -ILOC)) Z(ISUB-ILOC) = -1*IABS(Z(ISUB-ILOC)) MCON = .TRUE. 300 CONTINUE 400 CONTINUE 500 CONTINUE C IF (.NOT.MCON) RETURN C C GENERATE OUTPUT FILE OF CONNECTION ENTRY IDS C IFILE = SCMCON CALL OPEN (*700,SCMCON,Z(BUF1),1) DO 600 I = 1,NCE LOC = SCORE + (I-1)*NWD IF (Z(LOC) .LT. 0) CALL WRITE (SCMCON,IABS(Z(LOC)),1,0) 600 CONTINUE CALL WRITE (SCMCON,0,0,1) CALL CLOSE (SCMCON,1) RETURN C 700 CALL MESAGE (-1,IFILE,AAA) RETURN END ================================================ FILE: mis/cmrd2.f ================================================ SUBROUTINE CMRD2 C C THIS SUBROUTINE IS THE CMRED2 MODULE WHICH PERFORMS THE MAJOR C COMPUTATIONS FOR THE COMPLEX MODAL REDUCE COMMAND. C C DMAP CALLING SEQUENCE C CMRED2 CASECC,LAMAMR,PHISSR,PHISSL,EQST,USETMR,KAA,MAA,BAA,K4AA, C PAA/KHH,MHH,BHH,K4HH,PHH,POVE/STEP/S,N,DRY/POPT $ C C INPUT DATA C GINO - CASECC - CASE CONTROL DATA C LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED C PHISSR - RIGHT HAND EIGENVECTORS FOR SUBSTRUCTURE BEING C REDUCED C PHISSL - LEFT HAND EIGENVECTORS FOR SUBSTRUCTURE BEING C REDUCED C EQST - EQSS DATA FOR BOUNDARY SET FOR SUBSTRUCTURE BEING C REDUCED C USETMR - USET TABLE FOR REDUCED SUBSTRUCTURE C KAA - SUBSTRUCTURE STIFFNESS MATRIX C MAA - SUBSTRUCTURE MASS MATRIX C BAA - SUBSTRUCTURE VISCOUS DAMPING MATRIX C K4AA - SUBSTRUCTURE STRUCTURE DAMPINF MATRIX C PAA - SUBSTRUCTURE LOAD MATRIX C SOF - LAMS - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE C PHIS - RIGHT HAND EIGENVECTOR TABLE FOR ORIGINAL C SUBSTRUCTURE C PHIL - LEFT HAND EIGENVECTOR TABLE FOR ORIGINAL C SUBSTRUCTURE C HORG - RIGHT HAND H TRANSFORMATION MATRIX FOR ORIGINAL C SUBSTRUCTURE C HLFT - LEFT HAND H TRANSFORMATION MATRIX FOR ORIGINAL C SUBSTRUCTURE C C OUTPUT DATA C GINO - KHH - REDUCED STIFFNESS MATRIX C MHH - REDUCED MASS MATRIX C BHH - REDUCED VISCOUS DAMPING MATRIX C K4HH - REDUCED STRUCTURE DAMPING MATRIX C PHH - REDUCED LOAD MATRIX C POVE - INTERIOR POINT LOAD MATRIX C SOF - LAMS - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE C PHIS - RIGHT HAND EIGENVECTOR TABLE FOR ORIG.SUBSTRUCTURE C PHIL - LEFT HAND EIGENVECTOR TABLE FOR ORIG. SUBSTRUCTURE C GIMS - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS FOR C ORIGINAL SUBSTRUCTURE C HORG - RIGHT HAND H TRANSFORMATION MATRIX FOR ORIGINAL C SUBSTRUCTURE C HLFT - LEFT HAND H TRANSFORMATION MATRIX FOR ORIGINAL C SUBSTRUCTURE C UPRT - PARTITIONING VECTOR FOR CREDUCE FOR ORIGINAL C SUBSTRUCTURE C POVE - INTERNAL POINT LOADS FOR ORIGINAL SUBSTRUCTURE C POAP - INTERNAL POINTS APPENDED LOADS FOR ORIGINAL C SUBSTRUCTURE C EQSS - SUBSTRUCTURE EQUIVALENCE TABLE FOR REDUCED C SUBSTRUCTURE C BGSS - BASIC GRID POINT DEFINITION TABLE FOR REDUCED C SUBSTRUCTURE C CSTM - COORDINATE SYSTEM TRANSFORMATION MATRICES FOR C REDUCED SUBSTRUCTURE C LODS - LOAD SET DATA FOR REDUCED SUBSTRUCTURE C LOAP - APPENDED LOAD SET DATA FOR REDUCED SUBSTRUCTURE C PLTS - PLOT SET DATA FOR REDUCED SUBSTRUCTURE C KMTX - STIFFNESS MATRIX FOR REDUCED SUBSTRUCTURE C MMTX - MASS MATRIX FOR REDUCED SUBSTRUCTURE C PVEC - LOAD MATRIX FOR REDUCED SUBSTRUCTURE C PAPD - APPENDED LOAD MATRIX FOR REDUCED SUBSTRUCTURE C BMTX - VISCOUS DAMPING MATRIX FOR REDUCED SUBSTRUCTURE C K4MX - STRUCTURE DAMPING MATRIX FOR REDUCED SUBSTRUCTURE C C PARAMETERS C INPUT - STEP - CONTROL DATA CASECC RECORD (INTEGER) C POPT - PVEC OR PAPP OPTION FLAG (BCD) C OUTPUT - DRY - MODULE OPERATION FLAG (INTEGER) C OTHERS - GBUF - GINO BUFFERS C SBUF - SOF BUFFERS C INFILE - INPUT FILE NUMBERS C OTFILE - OUTPUT FILE NUMBERS C ISCR - ARRAY OF SCRATCH FILE NUMBERS C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C NEWNAM - NAME OF REDUCED SUBSTRUCTURE C SYMTRY - SYMMETRY FLAG C RANGE - RANGE OF FREQUENCIES TO BE USED C NMAX - MAXIMUM NUMBER OF FREQUENCIES TO BE USED C IO - IO OPTIONS FLAG C MODES - OLDMODES OPTION FLAG C RSAVE - SAVE REDUCTION PRODUCT FLAG C LAMSAP - BEGINNING ADDRESS OF MODE USE DESCRIPTION ARRAY C MODLEN - LENGTH OF MODE USE ARRAY C MODPTS - NUMBER OF MODAL POINTS C EXTERNAL ORF LOGICAL SYMTRY,MODES,RSAVE,PONLY INTEGER STEP,DRY,POPT,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2,SBUF3, 1 OTFILE,OLDNAM,Z,SYSBUF,CASECC,YES,PHISSL,ORF DIMENSION MODNAM(2),NMONIC(8),RZ(1),ITRLR(7) COMMON /BLANK / STEP,DRY,POPT,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2,SBUF3, 1 INFILE(11),OTFILE(6),ISCR(11),KORLEN,KORBGN, 2 OLDNAM(2),NEWNAM(2),SYMTRY,RANGE(2),NMAX,IO,MODES, 3 RSAVE,LAMSAP,MODPTS,MODLEN,PONLY,LSTZWD COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,IPRNTR EQUIVALENCE (CASECC,INFILE(1)),(PHISSL,INFILE(4)),(RZ(1),Z(1)) DATA NMONIC/ 4HNAMA,4HNAMB,4HSYMF,4HRANG,4HNMAX,4HOUTP,4HOLDM, 1 4HRSAV/ DATA KAA / 107 /, IBLANK,YES /4H , 4HYES / DATA MODNAM/ 4HCMRD,4H2 / DATA NHLODS, NHLOAP,NHHORG,NHHLFT /4HLODS,4HLOAP,4HHORG,4HHLFT/ C C COMPUTE OPEN CORE AND DEFINE GINO, SOF BUFFERS C IF (DRY .EQ. -2) RETURN NOZWDS = KORSZ(Z(1)) LSTZWD = NOZWDS - 1 GBUF1 = NOZWDS - SYSBUF - 2 GBUF2 = GBUF1 - SYSBUF GBUF3 = GBUF2 - SYSBUF SBUF1 = GBUF3 - SYSBUF SBUF2 = SBUF1 - SYSBUF - 1 SBUF3 = SBUF2 - SYSBUF KORLEN = SBUF3 - 1 KORBGN = 1 IF (KORLEN .LE. KORBGN) GO TO 290 C C INITIALIZE SOF C CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) C C INITIALIZE CASE CONTROL PARAMETERS C DO 6 I = 1,11 IF (I .GT. 6) GO TO 2 INFILE(I) = 100 + I OTFILE(I) = 200 + I ISCR(I) = 300 + I GO TO 6 2 INFILE(I) = 100 + I ISCR(I) = 300 + I 6 CONTINUE DO 10 I = 1,2 OLDNAM(I) = IBLANK 10 NEWNAM(I) = IBLANK RANGE(1) = -1.0E+35 RANGE(2) = 1.0E+35 SYMTRY = .FALSE. NMAX = 2147483647 IO = 0 MODES = .FALSE. RSAVE = .FALSE. NRANGE = 0 PONLY = .FALSE. C C PROCESS CASE CONTROL C IFILE = CASECC CALL OPEN (*260,CASECC,Z(GBUF2),0) IF (STEP) 20,40,20 20 DO 30 I = 1,STEP 30 CALL FWDREC (*280,CASECC) C C READ CASECC C 40 CALL READ (*270,*280,CASECC,Z(KORBGN),2,0,NWDSRD) NWDSCC = Z(KORBGN+1) DO 200 I = 1,NWDSCC,3 CALL READ (*270,*280,CASECC,Z(KORBGN),3,0,NWDSRD) C C TEST CASE CONTROL MNEMONICS C DO 50 J = 1,8 IF (Z(KORBGN) .EQ. NMONIC(J)) GO TO 60 50 CONTINUE GO TO 200 C C SELECT DATA TO EXTRACT C 60 GO TO (70,90,110,120,140,160,180,190), J C C EXTRACT NAME OF SUBSTRUCTURE BEING REDUCED C 70 DO 80 K = 1,2 80 OLDNAM(K) = Z(KORBGN+K) GO TO 200 C C EXTRACT NAME OF REDUCED SUBSTRUCTURE C 90 DO 100 K = 1,2 100 NEWNAM(K) = Z(KORBGN+K) GO TO 200 C C EXTRACT SYMMETRY FLAG C 110 IF (Z(KORBGN+1) .NE. YES) GO TO 200 SYMTRY = .TRUE. GO TO 200 C C EXTRACT FREQUENCY RANGE C 120 IF (NRANGE .EQ. 1) GO TO 125 NRANGE = 1 RANGE(1) = RZ(KORBGN+2) GO TO 200 125 RANGE(2) = RZ(KORBGN+2) GO TO 200 C C EXTRACT MAXIMUM NUMBER OF FREQUENCIES C 140 IF (Z(KORBGN) .EQ. 0) GO TO 200 NMAX = Z(KORBGN+2) GO TO 200 C C EXTRACT OUTPUT FLAGS C 160 IO = ORF(IO,Z(KORBGN+2)) GO TO 200 C C EXTRACT OLDMODES FLAG C 180 IF (Z(KORBGN+1) .NE. YES) GO TO 200 MODES = .TRUE. GO TO 200 C C EXTRACT REDUCTION SAVE FLAG C 190 IF (Z(KORBGN+1) .NE. YES) GO TO 200 RSAVE = .TRUE. 200 CONTINUE CALL CLOSE (CASECC,1) C C CHECK FOR SYMMETRY C ITRLR(1) = PHISSL CALL RDTRL (ITRLR) NPASS = 2 IF (ITRLR(1) .GT. 0) GO TO 204 SYMTRY = .TRUE. NPASS = 1 C C CHECK FOR RUN = GO C 204 IHORG = 0 IF (DRY .EQ. 0) GO TO 240 C C CHECK FOR STIFFNESS PROCESSING C ITRLR(1) = KAA CALL RDTRL (ITRLR) IF (ITRLR(1) .GT. 0) GO TO 208 C C CHECK FOR LOADS ONLY PROCESSING C CALL SFETCH (NEWNAM,NHLODS,3,ITEST) IF (ITEST .EQ. 3) PONLY = .TRUE. CALL SFETCH (NEWNAM,NHLOAP,3,ITEST) IF (ITEST .EQ. 3) PONLY = .TRUE. GO TO 240 C C PROCESS STIFFNESS MATRIX C 208 CALL CMRD2A C C BEGIN COMPLEX MODAL REDUCTION C NPASS .EQ. 1, SYMMETRIC REDUCTION C NPASS .EQ. 2, UNSYMMETRIC REDUCTION C DO 230 J = 1,NPASS C C TEST FOR H TRANSFORMATION MATRICES C GO TO (212,214), J 212 CALL SOFTRL (OLDNAM,NHHORG,ITRLR) IF (ITRLR(1) .EQ. 1) GO TO 230 IHORG = IHORG + 1 GO TO 216 214 CALL SOFTRL (OLDNAM,NHHLFT,ITRLR) IF (ITRLR(1) .EQ. 1) GO TO 230 IHORG = IHORG + 2 C C PREFORM GUYAN REDUCTION C 216 CALL CMRD2C (J) C C PROCESS OLDMODES FLAG C CALL CMRD2B (J) C C CALCULATE MODAL TRANSFORMATION MATRIX C CALL CMRD2D (J) IF (J .EQ. 1) CALL CMRD2B (3) C C CALCULATE H TRANSFORMATION MATRIX C CALL CMRD2E (J) 230 CONTINUE C C CALCULATE STRUCTURAL MATRICES C IHORG .EQ. 0, BOTH HORG, HLFT ON SOF C IHORG .EQ. 1, HORG CALCULATED, HLFT ON SOF C IHORG .EQ. 2, HORG ON SOF, HLFT CALCULATED C IHORG .EQ. 3, BOTH HORG, HLFT CALCULATED C 240 CALL CMRD2F (IHORG) IF (IHORG .EQ. 0) GO TO 250 C C PROCESS NEW TABLE ITEMS C CALL CMRD2G C C CLOSE ANY OPEN FILES C 250 CALL SOFCLS IF (DRY .EQ. -2) WRITE (IPRNTR,900) RETURN C C PROCESS SYSTEM FATAL ERRORS C 260 IMSG = -1 GO TO 300 270 IMSG = -2 GO TO 300 280 IMSG = -3 GO TO 300 290 IMSG = -8 IFILE = 0 300 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN C 900 FORMAT (50H0 MODULE CREDUCE TERMINATING DUE TO ABOVE ERRORS.) C END ================================================ FILE: mis/cmrd2a.f ================================================ SUBROUTINE CMRD2A C C THIS SUBROUTINE PARTITIONS THE STIFFNESS MATRIX INTO BOUNDARY AND C INTERIOR POINTS AND THEN SAVES THE PARTITIONING VECTOR ON THE SOF C AS THE UPRT ITEM FOR THE CMRED2 MODULE. C C INPUT DATA C GINO - USETMR - USET TABLE FOR REDUCED SUBSTRUCTURE C KAA - SUBSTRUCTURE STIFFNESS MATRIX C C OUTPUT DATA C GINO - KBB - KBB PARTITION MATRIX C KIB - KIB PARTITION MATRIX C KII - KII PARTITION MATRIX C SOF - UPRT - PARTITION VECTOR FOR ORIGINAL SUBSTRUCTURE C C PARAMETERS C INPUT - GBUF - GINO BUFFER C INFILE - INPUT FILE NUMBERS C ISCR - SCRATCH FILE NUMBERS C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C OTHERS - USETMR - USETMR INPUT FILE NUMBER C KAA - KAA INPUT FILE NUMBER C KBB - KBB OUTPUT FILE NUMBER C KIB - KIB OUTPUT FILE NUMBER C KBI - KBI OUTPUT FILE NUMBER C KII - KII OUTPUT FILE NUMBER C UPRT - KAA PARTITION VECTOR FILE NUMBER C INTEGER DRY,GBUF1,OTFILE,OLDNAM,Z,UN,UB,UI,FUSET,USETMR, 1 UPRT,MODNAM(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / IDUM1,DRY,IDUM6,GBUF1,IDUM2(5),INFILE(11), 1 OTFILE(6),ISCR(11),KORLEN,KORBGN,OLDNAM(2) COMMON /ZZZZZZ/ Z(1) COMMON /BITPOS/ IDUM4(9),UN,IDUM5(10),UB,UI COMMON /PATX / LCORE,NSUB(3),FUSET COMMON /SYSTEM/ IDUM3,IPRNTR EQUIVALENCE (USETMR,INFILE(6)),(KAA,INFILE(7)), 1 (KBB,ISCR(1)),(KIB,ISCR(2)),(KII,ISCR(4)), 2 (KBI,ISCR(3)),(UPRT,ISCR(5)) DATA MODNAM/ 4HCMRD,4H2A / DATA ITEM / 4HUPRT / C C SET UP PARTITIONING VECTOR C IF (DRY .EQ. -2) RETURN LCORE = KORLEN FUSET = USETMR CALL CALCV(UPRT,UN,UI,UB,Z(KORBGN)) C C PARTITION STIFFNESS MATRIX C C ** ** C * . * C ** ** * KBB . KBI * C * * * . * C * KAA * = *...........* C * * * . * C ** ** * KIB . KII * C * . * C ** ** C CALL GMPRTN(KAA,KII,KBI,KIB,KBB,UPRT,UPRT,NSUB(1),NSUB(2), 1 Z(KORBGN),KORLEN) C C SAVE PARTITIONING VECTOR C CALL MTRXO(UPRT,OLDNAM, ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 30 RETURN C C PROCESS MODULE FATAL ERRORS C 30 GO TO (40,40,40,50,60,80), ITEST 40 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,OLDNAM DRY = -2 RETURN 50 IMSG = -2 GO TO 70 60 IMSG = -3 70 CALL SMSG(IMSG,ITEM,OLDNAM) RETURN C 80 WRITE (IPRNTR,901) UFM,MODNAM,ITEM,OLDNAM DRY = -2 RETURN C 900 FORMAT (A23,' 3211, MODULE ',2A4,8H - ITEM ,A4, 1 ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.') 901 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR ', 1 'I/O OF SOF ITEM ',A4,', SUBSTRUCTURE ',2A4,', IS PURGED.') C END ================================================ FILE: mis/cmrd2b.f ================================================ SUBROUTINE CMRD2B (KODE) C C THIS SUBROUTINE PROCESSES THE OLDMODES OPTION FLAG FOR THE CMRED2 C MODULE. C C INPUT DATA C GINO - LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED C PHISSR - RIGHT HAND EIGENVECTOR MATRIX FOR SUBSTRUCTURE C BEING REDUCED C PHISSL - LEFT HAND EIGENVECTOR MATRIX FOR SUBSTRUCTURE C BEING REDUCED C SOF - LAMS - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE C PHIS - RIGHT HAND EIGENVECTOR TABLE FOR ORIGINAL C SUBSTRUCTURE C PHIL - LEFT HAND EIGENVECTOR TABLE FOR ORIGINAL C SUBSTRUCTURE C C OUTPUT DATA C GINO - LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED C PHISS - EIGENVECTOR MATRIX FOR SUBSTRUCTURE BEING REDUCED C SOF - LAMS - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE C PHIS - EIGENVECTOR MATRIX FOR ORIGINAL SUBSTRUCTURE C C PARAMETERS C INPUT- GBUF - GINO BUFFER C INFILE - INPUT FILE NUMBERS C ISCR - SCRATCH FILE NUMBERS C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C MODES - OLDMODES OPTION FLAG C NFOUND - NUMBER OF MODAL POINTS USED C LAMAAP - BEGINNING ADDRESS OF LAMS RECORD TO BE APPENDED C MODLEN - LENGTH OF MODE USE ARRAY C OTHERS-LAMAMR - LAMAMR INPUT FILE NUMBER C PHIS - PHIS INPUT FILE NUMBER C LAMS - LAMS INPUT FILE NUMBER C PHISS - PHISS INPUT FILE NUMBER C LOGICAL MODES INTEGER DRY,GBUF1,OLDNAM,Z,PHISSR,PHISSL,PHISL,RGDFMT DIMENSION RZ(1),MODNAM(2),ITMLST(3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / IDUM1,DRY,IDUM7,GBUF1,IDUM2(5),INFILE(11), 1 IDUM3(6),ISCR(11),KORLEN,KORBGN,OLDNAM(2), 2 IDUM5(7),MODES,IDUM6,LAMAAP,NFOUND,MODLEN COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ IDUM4,IPRNTR EQUIVALENCE (RZ(1),Z(1)),(LAMAMR,INFILE(2)), 1 (PHISSR,INFILE(3)),(PHISSL,INFILE(4)), 2 (LAMS,ISCR(5)),(PHISL,ISCR(6)) DATA MODNAM/ 4HCMRD,4H2B / DATA ITMLST/ 4HPHIS,4HPHIL,4HLAMS/ DATA RGDFMT/ 3 / C C TEST OPERATION FLAG C IF (DRY .EQ. -2) RETURN IF (KODE .EQ. 3) GO TO 20 C C TEST OLDMODES OPTION FLAG C IF (MODES) GO TO 10 C C STORE GINO PHISS(R,L) AS PHI(S,L) ON SOF C IFILE = PHISSR IF (KODE .EQ. 2) IFILE = PHISSL ITEM = ITMLST(KODE) CALL MTRXO (IFILE,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 120 RETURN C C READ SOF PHI(S,L) ONTO GINO PHI(S,L) SCRATCH FILES C 10 ITEM = ITMLST(KODE) CALL MTRXI (PHISL,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 120 C C READ SOF LAMS ONTO GINO LAMS SCRATCH FILE C CALL SFETCH (OLDNAM,ITMLST(3),1,ITEST) ITEM = ITMLST(3) IF (ITEST .GT. 1) GO TO 120 CALL GOPEN (LAMS,Z(GBUF1),1) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) CALL WRITE (LAMS,Z(KORBGN),NWDSRD,1) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) CALL WRITE (LAMS,Z(KORBGN),NWDSRD,1) CALL CLOSE (LAMS,1) C C SWITCH FILE NUMBERS C IF (KODE .EQ. 1) PHISSR = PHISL IF (KODE .EQ. 2) PHISSL = PHISL LAMAMR = LAMS RETURN C C STORE LAMAMR (TABLE) AS LAMS ON SOF C 20 IF (MODES) GO TO 60 ITEM = ITMLST(3) CALL DELETE (OLDNAM,ITEM,ITEST) IF (ITEST.EQ.2 .OR. ITEST.GT.3) GO TO 120 IFILE = LAMAMR CALL GOPEN (LAMAMR,Z(GBUF1),0) CALL FWDREC (*100,LAMAMR) ITEST = 3 CALL SFETCH (OLDNAM,ITMLST(3),2,ITEST) IF (ITEST .NE. 3) GO TO 120 DO 30 I = 1, 2 30 Z(KORBGN+I-1) = OLDNAM(I) Z(KORBGN+2) = RGDFMT Z(KORBGN+3) = MODLEN CALL SUWRT (Z(KORBGN),4,2) LAMWDS = MODLEN - 1 RZ(KORBGN+6) = 0.0 DO 50 I = 1,LAMWDS CALL READ (*90,*100,LAMAMR,Z(KORBGN),6,0,NWDS) 50 CALL SUWRT (Z(KORBGN),7,1) CALL READ (*90,*100,LAMAMR,Z(KORBGN),6,0,NWDS) CALL CLOSE (LAMAMR,1) CALL SUWRT (Z(KORBGN),7,2) CALL SUWRT (Z(LAMAAP),MODLEN,2) CALL SUWRT (Z(LAMAAP),0,3) 60 CONTINUE RETURN C C PROCESS SYSTEM FATAL ERRORS C 90 IMSG = -2 GO TO 110 100 IMSG = -3 110 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN C C PROCESS MODULE FATAL ERRORS C 120 GO TO (130,135,140,150,160,180), ITEST 130 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,OLDNAM DRY = -2 RETURN C 135 WRITE (IPRNTR,902) UFM,MODNAM,ITEM,OLDNAM DRY = -2 RETURN 140 IMSG = -1 GO TO 170 150 IMSG = -2 GO TO 170 160 IMSG = -3 170 CALL SMSG (IMSG,ITEM,OLDNAM) RETURN C 180 WRITE (IPRNTR,901) UFM,MODNAM,ITEM,OLDNAM DRY = -2 RETURN C 900 FORMAT (A23,' 6211, MODULE ',2A4,' - ITEM ',A4, 1 ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.') 901 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR I/O', 1 ' OF SOF ITEM ',A4,', SUBSTRUCTURE ',2A4,', IS PURBED.') 902 FORMAT (A23,' 6215, MODULE ',2A4,' - ITEM ',A4, 1 ' OF SUBSTRUCTURE ',2A4,' PSEUDO-EXISTS ONLY.') C END ================================================ FILE: mis/cmrd2c.f ================================================ SUBROUTINE CMRD2C (ITER) C C THIS SUBROUTINE PERFORMS THE GUYAN REDUCTION ON THE STRUCTURE C POINTS FOR THE CMRED2 MODULE. C C INPUT DATA C GINO - KII - KII PARTITION MATRIX C KIB - KIB KIB PARTITION MATRIX C SOF - GIMS - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS OF C ORIGINAL SUBSTRUCTURE C C OUTPUT DATA C SOF - LMTX - LII PARTITION MATRIX C GIMS - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS OF C ORIGINAL SUBSTRUCTURE C C PARAMETERS C INPUT- GBUF - GINO BUFFER C ISCR - SCRATCH FILE NUMBER ARRAY C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEGING REDUCED C RSAVE - DECOMPOSITION SAVE FLAG C OTHERS-KII - KII PARTITION MATRIX FILE NUMBER C LII - LII PARTITION MATRIX FILE NUMBER C SYMTRY - KII SYMMETRY FLAG C LOGICAL RSAVE,RESTOR,SYMTRY INTEGER DRY,SBUF1,SBUF2,SBUF3,OLDNAM,Z,POWER,CHLSKY,UIITC, 1 SCR,POWERC,B,BBAR,U,GIBT,PREC,SIGN,UGFBS,GIBFBS, 2 PREC1,ATRLR,ATTRLR,GIB,UII,DBLKOR,UPPER,HIM DOUBLE PRECISION DETR,DETI,MINDIA,DET,MINDC,DZ DIMENSION ITRLR(7),MODNAM(2),ITMLST(3),DZ(1) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / IDUM1,DRY,IDUM4(4),SBUF1,SBUF2,SBUF3,IDUM3(11), 1 OTFILE(6),ISCR(11),KORLEN,KORBGN,OLDNAM(2), 2 IDUM2(8),RSAVE,IDUM6(4),LSTZWD COMMON /ZZZZZZ/ Z(1) COMMON /SFACT / KIIT(7),LIIT(7),ISCRQ(7),ISCRA,ISCRB,NZSF, 1 DETR,DETI,POWER,ISCRC,MINDIA,CHLSKY COMMON /CDCMPX/ KIITC(7),LIITC(7),UIITC(7),SCR(3),DET(2),POWERC, 1 NX,MINDC,B,BBAR COMMON /FBSX / LIIFBS(7),U(7),KIBT(7),GIBT(7),NZFBS,PREC,SIGN COMMON /GFBSX / LIGFBS(7),UGFBS(7),KIGFBS(7),GIBFBS(7),NZGFBS, 1 PREC1,ISIGN COMMON /TRNSPX/ ATRLR(7),ATTRLR(7),LCORE,NSCRTH,ISCRTH(8) COMMON /SYSTEM/ IDUM5,IPRNTR EQUIVALENCE (KIB,ISCR(2)),(KBI,ISCR(3)),(KII,ISCR(4)), 1 (LII,ISCR(8)),(UII,ISCR(9)),(HIM,ISCR(10)), 2 (GIB,ISCR(11)),(DZ(1),Z(1)) DATA MODNAM/ 4HCMRD,4H2C / DATA LOWER , UPPER /4,5 / DATA ITMLST/ 4HLMTX,4HGIMS,4HHORG/ C C PREFORM GUYAN REDUCTION C IF (DRY .EQ. -2) GO TO 130 RESTOR = .FALSE. C C TRANSPOSE KII, KBI C IF (ITER .EQ. 1) GO TO 8 IF (SYMTRY) GO TO 37 1 DBLKOR = (KORBGN/2) + 1 LCORE = LSTZWD - ((2*DBLKOR)-1) NSCRTH = 5 DO 2 I = 1,NSCRTH 2 ISCRTH(I) = ISCR(4+I) DO 6 I = 1,2 ITRLR(1) = KII IF (I .EQ. 2) ITRLR(1) = KBI CALL RDTRL (ITRLR) DO 4 J = 1,7 ATRLR(J) = ITRLR(J) 4 ATTRLR(J) = ITRLR(J) ATTRLR(2) = ITRLR(3) ATTRLR(3) = ITRLR(2) CALL TRNSP (DZ(DBLKOR)) 6 CALL WRTTRL (ATTRLR) IF (RESTOR) CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) IF (RESTOR) GO TO 39 RESTOR = .TRUE. CALL SOFCLS GO TO 16 C C DECOMPOSE INTERIOR STIFFNESS MATRIX C (SYMMETRIC) C C T C ** ** ** ** ** ** C * * * * * * C * KII * = * LII * * LII * C * * * * * * C ** ** ** ** ** ** C 8 CALL SOFCLS KIIT(1) = KII CALL RDTRL (KIIT) IF (KIIT(4) .NE. 6) GO TO 12 SYMTRY = .TRUE. IPRC = 1 ITYP = 0 IF (KIIT(5).EQ.2 .OR. KIIT(5).EQ.4) IPRC = 2 IF (KIIT(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (LIIT,LII,KIIT(3),LOWER,ITYPE) ISCRQ(1) = ISCR(5) ISCRA = ISCR(6) ISCRB = ISCR(7) ISCRC = ISCR(9) CHLSKY = 0 POWER = 1 DBLKOR = (KORBGN/2) + 1 NZSF = LSTZWD - ((2*DBLKOR)-1) CALL SDCOMP (*40,DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (LIIT) GO TO 18 C C DECOMPOSE INTERIOR STIFFNESS MATRIX C (UNSYMMETRIC) C C ** ** ** ** ** ** C * * * * * * C * KII * = * LII * * UII * C * * * * * * C ** ** ** ** ** ** C 12 SYMTRY = .FALSE. 16 KIITC(1) = KII CALL RDTRL (KIITC) ITYP = 0 IPRC = 1 IF (KIITC(5).EQ.2 .OR. KIITC(5).EQ.4) IPRC = 2 IF (KIITC(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (LIITC,LII,KIITC(3),LOWER,ITYPE) CALL MAKMCB (UIITC,UII,KIITC(3),UPPER,ITYPE) SCR(1) = ISCR(5) SCR(2) = ISCR(6) SCR(3) = ISCR(7) B = 0 BBAR = 0 DBLKOR = (KORBGN/2) + 1 NX = LSTZWD - ((2*DBLKOR)-1) CALL CDCOMP (*42,DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (LIITC) CALL WRTTRL (UIITC) C C SAVE LII AS LMTX ON SOF C 18 IF (ITER.EQ.2 .OR. .NOT.RSAVE) GO TO 20 CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) IFILE = LII CALL MTRXO (LII,OLDNAM,ITMLST(1),0,ITEST) ITEM = ITMLST(1) IF (ITEST .NE. 3) GO TO 70 CALL SOFCLS C C SOLVE STRUCTURE REDUCTION TRANSFORMATION MATRIX C (SYMMETRIC) C C T C ** ** ** ** ** ** ** ** C * * * * * * * * C * LII * * LII * * GIB * = -* KIB * C * * * * * * * * C ** ** ** ** ** ** ** ** C 20 IF (.NOT.SYMTRY) GO TO 32 KIBT(1) = KIB IF (ITER .EQ. 2) KIBT(1) = KBI CALL RDTRL (KIBT) DO 30 I = 1,7 30 LIIFBS(I) = LIIT(I) IPRC = 1 ITYP = 0 IF (KIBT(5).EQ.2 .OR. KIBT(5).EQ.4) IPRC = 2 IF (LIIT(5).EQ.2 .OR. LIIT(5).EQ.4) IPRC = 2 IF (KIBT(5) .GE. 3) ITYP = 2 IF (LIIT(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (GIBT,GIB,KIBT(3),KIBT(4),ITYPE) NZFBS = LSTZWD - ((2*DBLKOR)-1) PREC = KIBT(5) - 2 SIGN = -1 CALL FBS (DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (GIBT) GO TO 36 C C SOLVE STRUCTURE REDUCTION TRANSFORMATION MATRIX C (UNSYMMETRIC) C C ** ** ** ** ** ** ** ** C * * * * * * * * C * LII * * UII * * GIB * = -* KIB * C * * * * * * * * C ** ** ** ** ** ** ** ** C 32 KIGFBS(1) = KIB IF (ITER .EQ. 2) KIGFBS(1) = KBI CALL RDTRL (KIGFBS) DO 34 I = 1,7 LIGFBS(I) = LIITC(I) 34 UGFBS(I) = UIITC(I) IPRC = 1 ITYP = 0 IF (KIGFBS(5).EQ.2 .OR. KIGFBS(5).EQ.4) IPRC = 2 IF (LIITC(5) .EQ.2 .OR. LIITC(5) .EQ.4) IPRC = 2 IF (UIITC(5) .EQ.2 .OR. UIITC(5) .EQ.4) IPRC = 2 IF (KIGFBS(5) .GE. 3) ITYP = 2 IF (LIITC(5) .GE. 3) ITYP = 2 IF (UIITC(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (GIBFBS,GIB,KIGFBS(3),KIGFBS(4),ITYPE) NZGFBS = LSTZWD - ((2*DBLKOR)-1) PREC1 = IPRC ISIGN = -1 CALL GFBS (DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (GIBFBS) C C SAVE GIB AS GIMS ON SOF C 36 IF (RESTOR) GO TO 1 IF (ITER .EQ. 2) GO TO 39 CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) IFILE = GIB CALL MTRXO (GIB,OLDNAM,ITMLST(2),0,ITEST) ITEM = ITMLST(2) IF (ITEST .NE. 3) GO TO 70 GO TO 39 C C KII SYMMETRIC, GIBBAR = GIB C 37 ITEM = ITMLST(2) CALL MTRXI (GIBBAR,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 70 39 CONTINUE GO TO 130 C C PROCESS SYSTEM FATAL ERRORS C 40 WRITE (IPRNTR,903) UWM,OLDNAM GO TO 44 42 WRITE (IPRNTR,904) UWM,OLDNAM 44 IMSG = -37 IFILE = 0 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) GO TO 130 C C PROCESS MODULE FATAL ERRORS C 70 GO TO (80,82,84,90,100,120), ITEST 80 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,OLDNAM DRY = -2 GO TO 130 C 82 WRITE (IPRNTR,902) UFM,MODNAM,ITEM,OLDNAM DRY = -2 GO TO 130 C 84 IMSG = -1 GO TO 110 90 IMSG = -2 GO TO 110 100 IMSG = -3 110 CALL SMSG (IMSG,ITEM,OLDNAM) GO TO 130 C 120 WRITE (IPRNTR,901) UFM,MODNAM,ITEM,OLDNAM DRY = -2 130 RETURN C 900 FORMAT (A23,' 6211, MODULE ',2A4,' - ITEM ',A4, 1 ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.') 901 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR I/O', 1 ' OF SOF ITEM ',A4,', SUBSTRUCTURE ',2A4,', IS PURGED.') 902 FORMAT (A23,' 6215, MODULE ',2A4,' - ITEM ',A4, 1 ' OF SUBSTRUCTURE ',2A4,' PSEUDO-EXISTS ONLY.') 903 FORMAT (A25,' 6311, SDCOMP DECOMPOSITION FAILED ON KII MATRIX ', 1 'FOR SUBSTRUCTURE ',2A4) 904 FORMAT (A23,' 6635, CDCOMP DECOMPOSITION FAILED ON KII MATRIX ', 1 'FOR SUBSTRUCTURE ',2A4) C END ================================================ FILE: mis/cmrd2d.f ================================================ SUBROUTINE CMRD2D (ITER) C C THIS SUBROUTINE CALCULATES THE MODAL TRANSFORMATION MATRIX FOR THE C CMRED2 MODULE. C C INPUT DATA C GINO - LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED C PHISSR - RIGHT EIGENVECTOR MATRIX FOR SUBSTRUCTURE BEING C REDUCED C PHISSL - LEFT EIGENVECTOR MATRIX FOR SUBSTRUCTURE BEING C REDUCED C SOF - GIMS - G TRANSFORMATION MATRIX FOR ORIGINAL SUBSTRUCTURE C C OUTPUT DATA C GINO - HIM - MODAL TRANSFORMATION MATRIX C C PARAMETERS C INPUT- GBUF - GINO BUFFERS C INFILE - INPUT FILE NUMBERS C OTFILE - OUTPUT FILE NUMBERS C ISCR - SCRATCH FILE NUMBERS C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C NMAX - MAXIMUM NUMBER OF FREQUENCIES TO BE USED C OUTPUT-MODUSE - BEGINNING ADDRESS OF MODE USE DESCRIPTION ARRAY C NFOUND - NUMBER OF MODAL POINTS FOUND C MODLEN - LENGTH OF MODE USE ARRAY C OTHERS-HIMPRT - HIM PARTITION VECTOR C PPRTN - PHISS MATRIX PARTITION VECTOR C PHIAM - PHIAM MATRIX PARTITION C PHIBM - PHIBM MATRIX PARTITION C PHIIM - PHIIM MATRIX PARTITION C IPARTN - BEGINNING ADDRESS OF PHISS PARTITION VECTOR C LAMAMR - LAMAMR INPUT FILE NUMBER C PHISS - PHISS INPUT FILE NUMBER C PPRTN - PARTITION VECTOR FILE NUMBER C HIMPRT - HIM PARTITION VECTOR FILE NUMBER C GIB - GIB INPUT FILE NUMBER C PHIAM - PHIAM PARTITION MATRIX FILE NUMBER C PHIBM - PHIBM PARTITION MATRIX FILE NUMBER C PHIIM - PHIIM PARTITION MATRIX FILE NUMBER C HIM - HIM INPUT FILE NUMBER C HIMSCR - HIM SCRATCH INPUT FILE NUMBER C LOGICAL MODES INTEGER DRY,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2,SBUF3,OTFILE, 1 OLDNAM,Z,TYPIN,TYPEP,FUSET,T,SIGNAB,SIGNC,PREC, 2 SCR,UN,UB,UI,RULE,TYPEU, 3 PHISS,PPRTN,GIB,PHIAM,PHIBM,PHIIM,HIM,HIMPRT, 4 PHISSR,PHISSL,GIBBAR,HIMBAR,HIMSCR,USETMR,HIMTYP, 5 DBLKOR,SGLKOR,DICORE DOUBLE PRECISION DZ,DHIMSM,DHIMAG,DPHIM,DHIMG DIMENSION MODNAM(2),RZ(1),ITRLR(7),DZ(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / IDUM1,DRY,IDUM6,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2, 1 SBUF3,INFILE(11),OTFILE(6),ISCR(11),KORLEN,KORBGN, 2 OLDNAM(2),IDUM4(3),RANGE(2),NMAX,IDUM5,MODES, 3 IDUM8,MODUSE,NFOUND,MODLEN,IDUM9,LSTZWD COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / TYPIN,TYPEP,IROWP,NROWP,INCRP COMMON /PATX / LCORE,NSUB(3),FUSET COMMON /MPYADX/ ITRLRA(7),ITRLRB(7),ITRLRC(7),ITRLRD(7),NZ,T, 1 SIGNAB,SIGNC,PREC,SCR COMMON /BITPOS/ IDUM3(9),UN,IDUM7(10),UB,UI COMMON /PARMEG/ IA(7),IA11(7),IA21(7),IA12(7),IA22(7),LCR,RULE COMMON /UNPAKX/ TYPEU,IROWU,NROWU,INCRU COMMON /SYSTEM/ IDUM2,IPRNTR EQUIVALENCE (LAMAMR,INFILE(2)),(PHISSR,INFILE(3)), 1 (PHISSL,INFILE(4)),(USETMR,INFILE(6)), 2 (PHIAM,ISCR(8)),(HIMSCR,ISCR(7)),(PHIBM,ISCR(9)), 3 (GIB,ISCR(8)),(GIBBAR,ISCR(11)),(PHIIM,ISCR(6)), 4 (HIMPRT,ISCR(7)),(HIMBAR,ISCR(8)),(PPRTN,ISCR(7)), 5 (HIM,ISCR(10)),(RZ(1),Z(1)),(DZ(1),Z(1)) DATA MODNAM/ 4HCMRD,4H2D / DATA EPSLON/ 1.0E-03/ DATA ITEM / 4HGIMS / DATA ISCR7 / 307 / C C READ LAMA FILE C IF (DRY .EQ. -2) RETURN KORE = KORBGN IFILE = LAMAMR CALL GOPEN (LAMAMR,Z(GBUF1),0) CALL FWDREC (*170,LAMAMR) LAMWDS = 6 IF (MODES) LAMWDS = 7 IT = 0 2 CALL READ (*160,*4,LAMAMR,Z(KORBGN),LAMWDS,0,NWDS) KORBGN = KORBGN + 6 IF (KORBGN .GE. KORLEN) GO TO 180 IT = IT + 1 GO TO 2 4 CALL CLOSE (LAMAMR,1) C C ZERO OUT PARTITIONING VECTOR AND SET UP MODE USE DESCRIPTION C RECORD C MODEXT = KORBGN ITRLR(1) = PHISSR IF (ITER .EQ. 2) ITRLR(1) = PHISSL CALL RDTRL (ITRLR) ITPHIS = ITRLR(2) IF (3*ITPHIS+MODEXT .GE. KORLEN) GO TO 180 LAMLEN = LAMWDS*ITPHIS NNMAX = MIN0(NMAX,ITPHIS) MODUSE = MODEXT + ITPHIS IPARTN = MODEXT + 2*ITPHIS MODLEN = ITPHIS DO 10 I = 1,ITPHIS Z(MODUSE+I-1) = 3 Z(MODEXT+I-1) = 0 10 RZ(IPARTN+I-1) = 0.0 C C SELECT DESIRED MODES C KORBGN = MODEXT + 3*ITPHIS NFOUND = 0 DO 20 I = 1,ITPHIS IF (NFOUND .EQ. NNMAX) GO TO 30 J = 3 + LAMWDS*(I-1) IF (RZ(KORE+J).LE.RANGE(1) .OR. RZ(KORE+J).GE.RANGE(2)) GO TO 20 Z(MODEXT+NFOUND) = I NFOUND = NFOUND + 1 Z(MODUSE+I-1) = 1 RZ(IPARTN+I-1) = 1.0 20 CONTINUE C C PACK OUT PARTITIONING VECTOR C 30 TYPIN = 1 TYPEP = 1 IROWP = 1 NROWP = ITRLR(2) INCRP = 1 IFORM = 2 CALL MAKMCB (ITRLR,PPRTN,NROWP,IFORM,TYPIN) CALL GOPEN (PPRTN,Z(GBUF1),1) CALL PACK (RZ(IPARTN),PPRTN,ITRLR) CALL CLOSE (PPRTN,1) CALL WRTTRL (ITRLR) KORBGN = KORBGN - ITPHIS C C PARTITION PHISS(R,L) MATRICES C C ** ** ** ** C * * * . * C * PHISS * = * 0 . PHIAM * C * * * . * C ** ** ** ** C NSUB(1) = ITPHIS - NFOUND NSUB(2) = NFOUND NSUB(3) = 0 LCORE = KORLEN - KORBGN ICORE = LCORE PHISS = PHISSR IF (ITER .EQ. 2) PHISS = PHISSL CALL GMPRTN (PHISS,0,0,PHIAM,0,PPRTN,0,NSUB(1),NSUB(2),Z(KORBGN), 1 ICORE) C C PARTITION PHIAM MATRIX C C ** ** C * * C ** ** * PHIBM * C * * * * C * PHIAM * = *.......* C * * * * C ** ** * PHIIM * C * * C ** ** C FUSET = USETMR CALL CALCV (PPRTN,UN,UI,UB,Z(KORBGN)) CALL GMPRTN (PHIAM,PHIIM,PHIBM,0,0,0,PPRTN,NSUB(1),NSUB(2), 1 Z(KORBGN),ICORE) KHIM = 0 IF (IA21(6) .EQ. 0) GO TO 55 C C COMPUTE MODAL TRANSFORMATION MATRIX C C ** ** ** ** ** ** ** ** C * * * * * * * * C * HIM * = * PHIIM * - * GIB * * PHIBM * C * * * * * * * * C ** ** ** ** ** ** ** ** C IF (ITER .EQ. 2) GO TO 40 CALL SOFTRL (OLDNAM,ITEM,ITRLR) ITEST = ITRLR(1) IF (ITEST .NE. 1) GO TO 200 CALL MTRXI (GIB,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 200 ITRLR(1) = GIB GO TO 45 40 ITRLR(1) = GIBBAR CALL RDTRL (ITRLR) 45 DO 50 I = 1, 7 ITRLRA(I) = ITRLR(I) ITRLRB(I) = IA21(I) 50 ITRLRC(I) = IA11(I) IFORM = 2 IPRC = 1 ITYP = 0 IF (ITRLRA(5).EQ.2 .OR. ITRLRA(5).EQ.4) IPRC = 2 IF (ITRLRB(5).EQ.2 .OR. ITRLRB(5).EQ.4) IPRC = 2 IF (ITRLRC(5).EQ.2 .OR. ITRLRC(5).EQ.4) IPRC = 2 IF (ITRLRA(5) .GE. 3) ITYP = 2 IF (ITRLRB(5) .GE. 3) ITYP = 2 IF (ITRLRC(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (ITRLRD,HIMSCR,ITRLR(3),IFORM,ITYPE) CALL SOFCLS T = 0 SIGNAB =-1 SIGNC = 1 PREC = 0 SCR = ISCR(7) DBLKOR = KORBGN/2 + 1 NZ = LSTZWD - 2*DBLKOR - 1 CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (ITRLRD) CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) I = ITRLRD(2) II = ITRLRD(3) IFORM = ITRLRD(4) HIMTYP = ITRLRD(5) GO TO 60 C C PHIBM IS NULL, HIM = PHIIM C 55 HIMSCR = PHIIM I = IA11(2) II = IA11(3) IFORM = IA11(4) HIMTYP = IA11(5) KHIM = 1 DBLKOR = KORBGN/2 + 1 C C TEST SELECTED MODES C 60 NCORE = 4*II IF (KHIM .EQ. 0) NCORE = NCORE + 4*IA11(3) IF (KORBGN+NCORE .GE. KORLEN) GO TO 180 TYPIN = HIMTYP TYPEP = HIMTYP IROWP = 1 NROWP = II INCRP = 1 IROWU = 1 JHIM = HIM IF (ITER .EQ. 2) JHIM = HIMBAR CALL GOPEN (HIMSCR,Z(GBUF1),0) IF (KHIM .EQ. 0) CALL GOPEN (PHIIM,Z(GBUF2),0) CALL MAKMCB (ITRLR,JHIM,II,IFORM,HIMTYP) CALL GOPEN (JHIM,Z(GBUF3),1) NFOUND = 0 IT = I DBLKOR = KORBGN/2 + 1 SGLKOR = 2*DBLKOR - 1 IF (HIMTYP .EQ. 3) DICORE = ((SGLKOR + 2*II)/2) + 1 IF (HIMTYP .EQ. 4) DICORE = DBLKOR + 2*II ICORE = 2*DICORE - 1 C C UNPACK HIM AND PHIIM COLUMNS C DO 140 I = 1,IT TYPEU = HIMTYP INCRU = 1 NROWU = II IHIM = NROWU CALL UNPACK (*110,HIMSCR,DZ(DBLKOR)) IF (KHIM .EQ. 1) GO TO 70 TYPEU = IA11(5) INCRU = 1 NROWU = IA11(3) IPHIM = NROWU CALL UNPACK (*90,PHIIM,DZ(DICORE)) C C SAVE LARGEST HIM COLUMN VALUE AND CALCULATE MAGNITUDE OF HIM, C PHIIM COLUMNS C 70 IF (HIMTYP .EQ. 4) GO TO 74 ITYPE = 0 HIMSUM = 0.0 HIMMAG = 0.0 DO 72 J = 1,IHIM K = 1 + 2*(J-1) HIMAG = SQRT((RZ(SGLKOR+K-1)**2) + (RZ(SGLKOR+K)**2)) IF (HIMAG .GE. HIMMAG) HIMMAG = HIMAG 72 HIMSUM = HIMSUM + (RZ(SGLKOR+K-1)**2) + (RZ(SGLKOR+K)**2) GO TO 78 74 ITYPE = 1 DHIMSM = 0.0D0 DHIMAG = 0.0D0 DO 76 J = 1,IHIM K = 1 + 2*(J-1) DHIMG = DSQRT((DZ(DBLKOR+K-1)**2) + (DZ(DBLKOR+K)**2)) IF (DHIMG .GE. DHIMAG) DHIMAG = DHIMG 76 DHIMSM = DHIMSM + (DZ(DBLKOR+K-1)**2) + (DZ(DBLKOR+K)**2) 78 IF (KHIM .EQ. 1) GO TO 95 IF (IA11(5) .EQ. 4) GO TO 82 ITYPE = ITYPE + 1 PHIMSM = 0.0 DO 80 J = 1,IPHIM K = 1 + 2*(J-1) 80 PHIMSM = PHIMSM + (RZ(ICORE+K-1)**2) + (RZ(ICORE+K)**2) GO TO 85 82 ITYPE = ITYPE + 2 DPHIM = 0.0D0 DO 84 J = 1,IPHIM K = 1 + 2*(J-1) 84 DPHIM = DPHIM + (DZ(DICORE+K-1)**2) + (DZ(DICORE+K)**2) C C TEST FOR INCLUSION C 85 GO TO (86,87,88,89), ITYPE 86 IF (PHIMSM .EQ. 0.0) GO TO 90 IF (SQRT(HIMSUM)/SQRT(PHIMSM) .GE. EPSLON) GO TO 95 GO TO 90 87 IF (DPHIM .EQ. 0.0) GO TO 90 IF (SQRT(HIMSUM)/DSQRT(DPHIM) .GE. EPSLON) GO TO 95 GO TO 90 88 IF (PHIMSM .EQ. 0.0) GO TO 90 IF (DSQRT(DHIMSM)/SQRT(PHIMSM) .GE. EPSLON) GO TO 95 GO TO 90 89 IF (DPHIM .EQ. 0.0D0) GO TO 90 IF (DSQRT(DHIMSM)/DSQRT(DPHIM) .GE. EPSLON) GO TO 95 C C REJECT MODE C 90 J = Z(MODEXT+I-1) Z(MODUSE+J-1) = 2 GO TO 140 C C USE MODE C 95 NFOUND = NFOUND + 1 C C SCALE HIM COLUMN C IHIM = 2*IHIM IF (HIMTYP .EQ. 4) GO TO 104 DO 102 J = 1,IHIM 102 RZ(SGLKOR+J-1) = RZ(SGLKOR+J-1)/HIMMAG GO TO 130 104 DO 106 J = 1,IHIM 106 DZ(DBLKOR+J-1) = DZ(DBLKOR+J-1)/DHIMAG GO TO 130 C C NULL COLUMN C 110 IHIM = 2*IHIM IF (HIMTYP .EQ. 4) GO TO 114 DO 112 J = 1,IHIM 112 RZ(SGLKOR+J-1) = 0.0 GO TO 130 114 DO 116 J = 1,IHIM 116 DZ(DBLKOR+J-1) = 0.0D0 C C PACK HIM COLUMN C 130 NROWP = NROWU CALL PACK (DZ(DBLKOR),JHIM,ITRLR) 140 CONTINUE CALL CLOSE (JHIM,1) IF (KHIM .EQ. 0) CALL CLOSE (PHIIM,1) CALL CLOSE (HIMSCR,1) CALL WRTTRL (ITRLR) KORBGN = KORE IF (KHIM .EQ. 1) HIMSCR = ISCR7 RETURN C C PROCESS SYSTEM FATAL ERRORS C 160 IMSG = -2 GO TO 190 170 IMSG = -3 GO TO 190 180 IMSG = -8 IFILE = 0 190 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN C C PROCESS MODULE FATAL ERRORS C 200 GO TO (210,210,220,230,240,260), ITEST 210 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,OLDNAM DRY = -2 RETURN C 220 IMSG = -1 GO TO 250 230 IMSG = -2 GO TO 250 240 IMSG = -3 250 CALL SMSG (IMSG,ITEM,OLDNAM) RETURN C 260 WRITE (IPRNTR,901) UFM,MODNAM,ITEM,OLDNAM DRY = -2 RETURN C 900 FORMAT (A23,' 6215, MODULE ',2A4,' - ITEM ',A4, 1 ' OF SUBSTRUCTURE ',2A4,' PSEUDO-EXISTS ONLY.') 901 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR I/O', 1 ' OF SOF ITEM ',A4,', SUBSTRUCRURE ',2A4,', IS PURGED.') C END ================================================ FILE: mis/cmrd2e.f ================================================ SUBROUTINE CMRD2E (ITER) C C THIS SUBROUTINE CALCULATES THE H TRANSFORMATION MATRIX FOR THE C CMRED2 MODULE. C C INPUT DATA C GINO - HIM - MODAL TRANSFORMATION MATRIX C SOF - GIMS - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS OF C ORIGINAL SUBSTRUCTURE C C OUTPUT DATA C GINO - HGH - HORG PARTITION MATRIX C SOF - HORG - H TRANSFORMATION MATRIX FOR ORIGINAL SUBSTRUCTURE C C PARAMETERS C INPUT - GBUF - GINO BUFFERS C INFILE - INPUT FILE NUMBERS C OTFILE - OUTPUT FILE NUMBERS C ISCR - SCRATCH FILE NUMBERS C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C OTHERS- HIM - HIM PARTITION MATRIX FILE NUMBER (RIGHT SIDE) C HGH - HORG MATRIX FILE NUMBER (RIGHT SIDE) C GIB - GIMS INPUT FILE NUMBER (RIGHT SIDE) C HIMBAR - HIM PARTITION MATRIX FILE NUMBER (LEFT SIDE) C HGHBAR - HGH PARTITION MATRIX FILE NUMBER (LEFT SIDE) C GIBBAR - GIB PARTITION MATRIX FILE NUMBER (LEFT SIDE) C UPRT - USET PARTITIONING VECTOR FILE NUMBER C INTEGER DRY,GBUF1,GBUF2,Z,TYPINP,TYPEOP,TYPEU,HIM,HGH, 1 GIB,HIMBAR,HGHBAR,GIBBAR,UPRT,HIMRL,HGHRL,GIBRL, 2 DBLKOR,GIBTYP,HIMTYP,SGLKOR,DICORE DOUBLE PRECISION DZ DIMENSION MODNAM(2),ITRLR1(7),ITRLR2(7),RZ(1),ITMLST(4), 1 DZ(1),ITRLR3(7) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / IDUM1,DRY,IDUM7,GBUF1,GBUF2,IDUM2(4),INFILE(11), 1 OTFILE(6),ISCR(11),KORLEN,KORBGN,OLDNAM(2) COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / TYPINP,TYPEOP,IROWP,NROWP,INCRP COMMON /UNPAKX/ TYPEU,IROWU,NROWU,INCRU COMMON /SYSTEM/ IDUM3,IPRNTR EQUIVALENCE (HIM,ISCR(10)),(GIB,ISCR(6)),(UPRT,ISCR(7)), 1 (GIBBAR,ISCR(11)),(HGHBAR,ISCR(9)),(HGH,ISCR(9)), 2 (HIMBAR,ISCR(8)),(RZ(1),Z(1)),(DZ(1),Z(1)) DATA MODNAM/ 4HCMRD,4H2E / DATA ITMLST/ 4HHORG,4HHLFT,4HGIMS,4HUPRT/ C C SET UP ROW PARTITION C IF (DRY .EQ. -2) RETURN ITEM = ITMLST(4) CALL MTRXI (UPRT,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 210 CALL SOFTRL (OLDNAM,ITEM,ITRLR1) IF (KORBGN+ITRLR1(3) .GE. KORLEN) GO TO 270 TYPEU = ITRLR1(5) IROWU = 1 NROWU = ITRLR1(3) INCRU = 1 CALL GOPEN (UPRT,Z(GBUF1),0) CALL UNPACK (*5,UPRT,RZ(KORBGN)) GO TO 15 5 DO 10 I = 1, NROWU 10 RZ(KORBGN+I-1) = 0.0 15 CALL CLOSE (UPRT,1) LUPRT = NROWU KORE = KORBGN KORBGN = KORBGN + LUPRT C C GET GIB MATRIX C IF (ITER .EQ. 2) GO TO 20 ITEM = ITMLST(3) CALL SOFTRL (OLDNAM,ITEM,ITRLR1) IF (ITEST .NE. 1) GO TO 210 CALL MTRXI (GIB,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 210 ITRLR1(1) = GIB GIBRL = GIB GO TO 30 20 ITRLR1(1) = GIBBAR CALL RDTRL (ITRLR1) GIBRL = GIBBAR C C SET UP HGH TRAILER C 30 HGHRL = HGH IF (ITER .EQ. 2) HGHRL = HGHBAR NROWS1 = ITRLR1(3) KOLS1 = ITRLR1(2) GIBTYP = ITRLR1(5) HIMRL = HIM IF (ITER .EQ. 2) HIMRL = HIMBAR ITRLR2(1) = HIMRL CALL RDTRL (ITRLR2) NROWS2 = ITRLR2(3) KOLS2 = ITRLR2(2) HIMTYP = ITRLR2(5) IFORM = 2 IF (ITRLR1(2)+ITRLR1(3) .EQ. ITRLR2(2)+ITRLR2(3)) IFORM = 1 IPRC = 1 ITYP = 0 IF (ITRLR1(5).EQ.2 .OR. ITRLR1(5).EQ.4) IPRC = 2 IF (ITRLR2(5).EQ.2 .OR. ITRLR2(5).EQ.4) IPRC = 2 IF (ITRLR1(5) .GE. 3) ITYP = 2 IF (ITRLR2(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (ITRLR3,HGHRL,LUPRT,IFORM,ITYPE) C C SET UP PACK/UNPACK PARAMETERS C TYPEOP = ITRLR3(5) IROWP = 1 NROWP = ITRLR1(2) + ITRLR1(3) INCRP = 1 INCRU = 1 DBLKOR = KORBGN/2 + 1 SGLKOR = 2*DBLKOR - 1 C C FORM HGH MATRIX C C ** ** C * . * C ** ** * I . 0 * C * * * . * C * HGH * = *...........* C * * * . * C ** ** * GIB . HIM * C * . * C ** ** C CALL GOPEN (HGHRL,Z(GBUF1),1) C C PROCESS GIB MATRIX C TYPEU = ITRLR1(5) NROWU = ITRLR1(3) TYPINP = ITRLR1(5) NROWS = ITRLR1(3) IF (ITRLR1(5) .GT. 2) NROWS = 2*ITRLR1(3) IF (ITRLR1(5).EQ.1 .OR. ITRLR1(5).EQ.3) 1 DICORE = (SGLKOR+NROWS)/2 + 1 IF (ITRLR1(5).EQ.2 .OR. ITRLR1(5).EQ.4) DICORE = DBLKOR + NROWS ICORE = 2*DICORE - 1 IF (DICORE+NROWS .GE. KORLEN) GO TO 270 CALL GOPEN (GIBRL,Z(GBUF2),0) DO 90 I = 1,KOLS1 K = 0 KK = 0 CALL UNPACK (*40,GIBRL,DZ(DBLKOR)) GO TO 50 C C NULL GIB COLUMN C 40 GO TO (42,46,42,46), GIBTYP 42 DO 44 J = 1,NROWS 44 RZ(SGLKOR+J-1) = 0.0 GO TO 50 46 DO 48 J = 1,NROWS 48 DZ(DBLKOR+J-1) = 0.0D0 C C MOVE GIB DATA C 50 DO 80 J = 1,LUPRT IF (RZ(KORE+J-1) .EQ. 1.0) GO TO 70 KK = KK + 1 L = 1 + 2*(KK-1) LL = 1 + 2*( J-1) GO TO (62,64,66,68), GIBTYP 62 RZ(ICORE+J-1) = RZ(SGLKOR+KK-1) GO TO 80 64 DZ(DICORE+J-1) = DZ(DBLKOR+KK-1) GO TO 80 66 RZ(ICORE+LL-1) = RZ(SGLKOR+L-1) RZ(ICORE+LL ) = RZ(SGLKOR+L) GO TO 80 68 DZ(DICORE+LL-1) = DZ(DBLKOR+L-1) DZ(DICORE+LL ) = DZ(DBLKOR+L) GO TO 80 C C MOVE IDENTITY MATRIX DATA C 70 K = K + 1 L = 1 + 2*(J-1) GO TO (72,74,76,78), GIBTYP 72 RZ(ICORE+J-1) = 0.0 IF (K .EQ. I) RZ(ICORE+J-1) = 1.0 GO TO 80 74 DZ(DICORE+J-1) = 0.0D0 IF (K .EQ. I) DZ(DICORE+J-1) = 1.0D0 GO TO 80 76 RZ(ICORE+L-1) = 0.0 IF (K .EQ. I) RZ(ICORE+L-1) = 1.0 RZ(ICORE+L) = 0.0 GO TO 80 78 DZ(DICORE+L-1) = 0.0D0 IF (K .EQ. I) DZ(DICORE+L-1) = 1.0D0 DZ(DICORE+L) = 0.0D0 80 CONTINUE 90 CALL PACK (DZ(DICORE),HGHRL,ITRLR3) CALL CLOSE (GIBRL,1) C C PROCESS HIM MATRIX C TYPEU = ITRLR2(5) NROWU = ITRLR2(3) TYPINP = ITRLR2(5) NROWS = ITRLR2(3) IF (ITRLR2(5) .GT. 2) NROWS = 2*ITRLR2(3) IF (ITRLR2(5).EQ.2 .OR. ITRLR2(5).EQ.4) 1 DICORE = (SGLKOR+NROWS)/2 + 1 IF (ITRLR2(5).EQ.1 .OR. ITRLR2(5).EQ.3) DICORE = DBLKOR + NROWS ICORE = 2*DICORE - 1 IF (DICORE+NROWS .GE. KORLEN) GO TO 270 CALL GOPEN (HIMRL,Z(GBUF2),0) DO 150 I = 1,KOLS2 KK = 0 CALL UNPACK (*100,HIMRL,DZ(DBLKOR)) GO TO 110 C C NULL HIM COLUMN C 100 GO TO (102,106,102,106), HIMTYP 102 DO 104 J = 1,NROWS 104 RZ(SGLKOR+J-1) = 0.0 GO TO 110 106 DO 108 J = 1,NROWS 108 DZ(DBLKOR+J-1) = 0.0D0 C C MOVE HIM MATRIX DATA C 110 DO 140 J = 1,LUPRT IF (RZ(KORE+J-1) .EQ. 1.0) GO TO 130 KK = KK + 1 L = 1 + 2*(KK-1) LL = 1 + 2*( J-1) GO TO (122,124,126,128), HIMTYP 122 RZ(ICORE+J-1) = RZ(SGLKOR+KK-1) GO TO 140 124 DZ(DICORE+J-1) = DZ(DBLKOR+KK-1) GO TO 140 126 RZ(ICORE+LL-1) = RZ(SGLKOR+L-1) RZ(ICORE+LL ) = RZ(SGLKOR+L) GO TO 140 128 DZ(DICORE+LL-1) = DZ(DBLKOR+L-1) DZ(DICORE+LL ) = DZ(DBLKOR+L) GO TO 140 C C MOVE ZERO MATRIX DATA C 130 L = 1 + 2*(J-1) GO TO (132,134,136,138), HIMTYP 132 RZ(ICORE+J-1) = 0.0 GO TO 140 134 DZ(DICORE+J-1) = 0.0D0 GO TO 140 136 RZ(ICORE+L-1) = 0.0 RZ(ICORE+L ) = 0.0 GO TO 140 138 DZ(DICORE+L-1) = 0.0D0 DZ(DICORE+L ) = 0.0D0 140 CONTINUE 150 CALL PACK (DZ(DICORE),HGHRL,ITRLR3) CALL CLOSE (HIMRL,1) CALL CLOSE (HGHRL,1) CALL WRTTRL (ITRLR3) KORBGN = KORE C C SAVE HGH ON SOF AS H(ORG,LFT) MATRIX C ITEM = ITMLST(ITER) CALL MTRXO (HGHRL,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 210 RETURN C C PROCESS MODULE FATAL ERRORS C 210 GO TO (220,220,220,230,240,260), ITEST 220 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,OLDNAM DRY = -2 RETURN C 230 IMSG = -2 GO TO 250 240 IMSG = -3 250 CALL SMSG(IMSG,ITEM,OLDNAM) RETURN C 260 WRITE (IPRNTR,901) UFM,MODNAM,ITEM,OLDNAM DRY = -2 RETURN C C PROCESS SYSTEM FATAL ERRORS C 270 IMSG = -8 IFILE = 0 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN C 900 FORMAT (A23,' 6211, MODULE ',2A4,' - ITEM ',A4, 1 ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.') 901 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR I/O', 1 ' OF SOF ITEM ',A4,', SUBSTRUCTURE ',2A4,', IS PURGED.') C END ================================================ FILE: mis/cmrd2f.f ================================================ SUBROUTINE CMRD2F (KODE) C C THIS SUBROUTINE CALCULATES THE FINAL STRUCTURAL MATRICES FOR THE C CMRED2 MODULE. C C INPUT DATA C GINO - KBB - STIFFNESS PARTITION MATRIX C KIB - KIB STIFFNESS PATTITION MATRIX C HIE - HIE PARTITION MATRIX C KII - KII PARTITION MATRIX C HGH - HORG PARTITION MATRIX C MAA - MASS INPUT MATRIX C BAA - DAMPING INPUT MATRIX C K4AA - STIFFNESS INPUT MATRIX C PAA - LOADS INPUT MATRIX C SOF - GIMS - G TRANSFORMATION MATRIX C C OUTPUT DATA C GINO - KHH - STIFFNESS MATRIX C MHH - MASS MATRIX C BHH - DAMPING MATRIX C K4HH - K4HH MATRIX C PHH - LOADS MATRIX C SOF - KMTX - STIFFNESS MATRIX C MMTX - MASS MATRIX C PVEC - LOADS MATRIX C PAPP - APPENDED LOADS MATRIX C BMTX - DAMPING MATRIX C K4MX - K4MX STIFFNESS MATRIX C C PARAMETERS C INPUT- POPT - LOADS OPTION FLAG C GBUF - GINO BUFFERS C INFILE - INPUT FILE NUMBERS C OTFILE - OUTPUT FILE NUMBERS C ISCR - SCRATCH FILE NUMBERS C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C OTHERS-PAA - LOADS INPUT FILE NUMBER C KHH - STIFFNESS OUTPUT FILE NUMBER C POVE - LOADS OUTPUT FILE NUMBER C UPRT - PARTITION VECTOR FILE NUMBER C ZEROMB - ZERO PARTITION FILE NUMBER C KBB - KBB INPUT FILE NUMBER C ZEROBM - ZERO PARTITION MATRIX C KIB - KIB INPUT FILE NUMBER C KII - KII INPUT FILE NUMBER C KBARBB - KBARBB FILE NU BER C GIB - GIB INPUT FILE NUMBER C KMM - KMM FILE NUMBER C HGH - HORG INPUT FILE NUMBER C LOGICAL SYMTRY,MODES,PONLY INTEGER DRY,POPT,GBUF1,SBUF1,SBUF2,SBUF3,OTFILE,OLDNAM,Z, 1 T,SIGNAB,SIGNC,PREC,SCR,TYPIN,TYPOUT,UN,UB,UI, 2 FUSET,PREC3,PAA,HIM,POVE,UPRT,GIB,GIBBAR,HGHBAR, 3 HGH,USETMR,CMRED2,PAPP,BLANKS,DBLKOR,HIMBAR,EQST DOUBLE PRECISION DZ DIMENSION MODNAM(2),ITRLR1(7),ITRLR2(7),ITRLR3(7),ISUB(4), 1 ITMLST(12),ITMNAM(2),RZ(1),DZ(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / IDUM1,DRY,POPT,GBUF1,IDUM2(2),SBUF1,SBUF2,SBUF3, 1 INFILE(11),OTFILE(6),ISCR(11),KORLEN,KORBGN, 2 OLDNAM(2),NEWNAM(2),SYMTRY,IDUM6(4),MODES, 3 IDUM7(4),PONLY,LSTZWD COMMON /ZZZZZZ/ Z(1) COMMON /MPYADX/ ITRLRA(7),ITRLRB(7),ITRLRC(7),ITRLRD(7),NZ,T, 1 SIGNAB,SIGNC,PREC,SCR COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR COMMON /BITPOS/ IDUM4(9),UN,IDUM5(10),UB,UI COMMON /PATX / LCORE,NSUB(3),FUSET COMMON /SYSTEM/ IDUM3,IPRNTR COMMON /MPY3TL/ JTRLRA(7),JTRLRB(7),JTRLRE(7),JTRLRC(7),JSCR(3), 1 LKORE,ICODE,PREC3 EQUIVALENCE (EQST,INFILE(5)),(USETMR,INFILE(6)), 1 (PAA,INFILE(11)),(KHH,OTFILE(1)),(POVE,OTFILE(6)), 2 (KBB,ISCR(1)),(KIB,ISCR(2)),(KII,ISCR(4)), 3 (HIM,ISCR(10)),(UPRT,ISCR(1)),(HIMBAR,ISCR(8)), 4 (KBARBB,ISCR(5)),(KMM,ISCR(6)),(GIB,ISCR(3)), 5 (GIBBAR,ISCR(11)),(HGHBAR,ISCR(9)),(HGH,ISCR(8)), 6 (RPRTN,ISCR(1)),(RZ(1),Z(1)),(DZ(1),Z(1)) DATA MODNAM/ 4HCMRD,4H2F /, PAPP / 4HPAPP/, BLANKS/ 4H / DATA CMRED2/ 26 / DATA ITMLST/ 4HKMTX,4HHORG,4HHLFT,4HMMTX,4HBMTX,4HK4MX,4HPVEC, 1 4HPAPP,4HPOVE,4HGIMS,4HPOAP,4HUPRT/ C C SELECT OPERATION MODE C IF (DRY .EQ. -2) RETURN IF (PONLY .OR. DRY.EQ.0) GO TO 90 C C SET UP NEW SUBSTRUCTURE C IF (MODES) GO TO 1 NUMB = 1 CALL SETLVL (NEWNAM,NUMB,OLDNAM,ITEST,CMRED2) IF (ITEST .EQ. 8) GO TO 290 C C CHECK FOR STIFFNESS MATRIX GENERATION C 1 ITRLR1(1) = KHH CALL RDTRL (ITRLR1) IF (ITRLR1(1) .LT. 0) GO TO 90 C C FORM PRELIMINARY STIFFNESS CALCULATION C C T C ** ** ** ** ** ** ** ** C * * * * * * * * C * KBARBB * = * KBB * + * GIB(BAR) * * KIB * C * * * * * * * * C ** ** ** ** ** ** ** ** C ITRLR1(1) = KBB CALL RDTRL (ITRLR1) IF (SYMTRY) GO TO 2 ITRLR2(1) = GIBBAR CALL RDTRL (ITRLR2) GO TO 4 2 ITEM = ITMLST(10) CALL SOFTRL (OLDNAM,ITEM,ITRLR2) ITEST = ITRLR2(1) ITMNAM(1) = OLDNAM(1) ITMNAM(2) = OLDNAM(2) IF (ITEST .NE. 1) GO TO 200 CALL MTRXI (GIB,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 200 ITRLR2(1) = GIB 4 ITRLR3(1) = KIB CALL RDTRL (ITRLR3) DO 10 I = 1,7 ITRLRA(I) = ITRLR2(I) ITRLRB(I) = ITRLR3(I) 10 ITRLRC(I) = ITRLR1(I) IFORM = 1 IPRC = 1 ITYP = 0 IF (ITRLRA(5).EQ.2 .OR. ITRLRA(5).EQ.4) IPRC = 2 IF (ITRLRB(5).EQ.2 .OR. ITRLRB(5).EQ.4) IPRC = 2 IF (ITRLRC(5).EQ.2 .OR. ITRLRC(5).EQ.4) IPRC = 2 IF (ITRLRA(5) .GE. 3) ITYP = 2 IF (ITRLRB(5) .GE. 3) ITYP = 2 IF (ITRLRC(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (ITRLRD,KBARBB,ITRLR1(3),IFORM,ITYPE) T = 1 SIGNAB = 1 SIGNC = 1 PREC = 0 SCR = ISCR(7) SCR = ISCR(1) CALL SOFCLS DBLKOR = KORBGN/2 + 1 NZ = LSTZWD - (2*DBLKOR - 1) CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (ITRLRD) KBAROW = ITRLRD(3) KCOL = ITRLRD(2) C C FORM PRELIMINARY STIFFNESS CALCULATION C C T C ** ** ** ** ** ** ** ** C * * * * * * * * C * KMM * = * HIM(BAR) * * KII * * HIM * C * * * * * * * * C ** ** ** ** ** ** ** ** C ITRLR1(1) = KII ITRLR2(1) = HIM CALL RDTRL (ITRLR1) CALL RDTRL (ITRLR2) DO 20 I = 1,7 ITRLRA(I) = ITRLR1(I) ITRLRB(I) = ITRLR2(I) 20 ITRLRC(I) = 0 IFORM = 2 IPRC = 1 ITYP = 0 IF (ITRLRA(5).EQ.2 .OR. ITRLRA(5).EQ.4) IPRC = 2 IF (ITRLRB(5).EQ.2 .OR. ITRLRB(5).EQ.4) IPRC = 2 IF (ITRLRA(5) .GE. 3) ITYP = 2 IF (ITRLRB(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (ITRLRD,ISCR(2),ITRLR2(3),IFORM,ITYPE) PREC = 0 T = 0 SIGNAB= 1 SIGNC = 1 SCR = ISCR(1) CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (ITRLRD) ITRLR1(1) = HIM IF (.NOT.SYMTRY) ITRLR1(1) = HIMBAR CALL RDTRL (ITRLR1) DO 30 I = 1,7 ITRLRA(I) = ITRLR1(I) 30 ITRLRB(I) = ITRLRD(I) IFORM = 1 IPRC = 1 ITYP = 0 IF (ITRLRA(5).EQ.2 .OR. ITRLRA(5).EQ.4) IPRC = 2 IF (ITRLRB(5).EQ.2 .OR. ITRLRB(5).EQ.4) IPRC = 2 IF (ITRLRA(5) .GE. 3) ITYP = 2 IF (ITRLRB(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (ITRLRD,KMM,ITRLR1(2),IFORM,ITYPE) T = 1 PREC = 0 CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (ITRLRD) KMMROW = ITRLRD(3) KMMCOL = ITRLRD(2) C C GENERATE MERGE PARTITION VECTOR C NROW = KCOL + KMMCOL DO 80 I = 1,NROW RZ(KORBGN+I-1) = 0.0 IF (I .GT. KCOL) RZ(KORBGN+I-1) = 1.0 80 CONTINUE TYPIN = 1 TYPOUT = 1 IROW = 1 INCR = 1 IFORM = 7 CALL MAKMCB (ITRLR1,RPRTN,NROW,IFORM,TYPIN) CALL GOPEN (RPRTN,Z(GBUF1),1) CALL PACK (RZ(KORBGN),RPRTN,ITRLR1) CALL CLOSE (RPRTN,1) CALL WRTTRL (ITRLR1) C C FORM STIFFNESS MATRIX C C ** ** C * . * C ** ** * KBARBB . 0 * C * * * . * C * KHH * = *..............* C * * * . * C ** ** * 0 . KMM * C * . * C ** ** C ISUB(1) = KCOL ISUB(2) = KMMCOL ISUB(3) = KBAROW ISUB(4) = KMMROW ITYPE = 1 CALL GMMERG (KHH,KBARBB,0,0,KMM,RPRTN,RPRTN,ISUB,ITYPE,Z(KORBGN), 1 KORLEN) C C STORE KHH AS KMTX ON SOF C CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) CALL MTRXO (KHH,NEWNAM,ITMLST(1),0,ITEST) ITEM = ITMLST(1) ITMNAM(1) = NEWNAM(1) ITMNAM(2) = NEWNAM(2) IF (ITEST .NE. 3) GO TO 200 C C LOCATE HGH MATRIX C KODE .EQ. 0, BOTH HORG, HLFT ON SOF C KODE .EQ. 1, HORG CALCULATED, HLFT ON SOF C KODE .EQ. 2, HORG ON SOF, HLFT CALCULATED C KODE .EQ. 3, BOTH HORG, HLFT CALCULATED C 90 ITEM = ITMLST(2) ITMNAM(1) = OLDNAM(1) ITMNAM(2) = OLDNAM(2) CALL MTRXI (HGH,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 200 IF (KODE.GT.1 .OR. SYMTRY) GO TO 100 ITEM = ITMLST(3) CALL MTRXI (HGHBAR,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 200 100 SIGNAB = 1 SIGNC = 1 SCR = ISCR(1) DBLKOR = KORBGN/2 + 1 NZ = LSTZWD - (2*DBLKOR - 1) ITMNAM(1) = NEWNAM(1) ITMNAM(2) = NEWNAM(2) C C GENERATE MATRICES REQUESTED C I .EQ. 2, GENERATE MHH MATRIX C I .EQ. 3, GENERATE BHH MATRIX C I .EQ. 4, GENERATE K4HH MATRIX C I .EQ. 5, GENERATE PHH MATRIX C DO 180 I = 2,5 ITRLR1(1) = INFILE(I+6) CALL RDTRL (ITRLR1) IF (ITRLR1(1) .LT. 0) GO TO 180 CALL SOFCLS C C CALCULATE MATRIX REQUIRED C C T C ** ** ** ** ** ** ** ** C * * * * * * * * C * (M,B,K4)HH * = * HGH(BAR) * * (M,B,K4)AA * * HGH * C * * * * * * * * C ** ** ** ** ** ** ** ** C C T C ** ** ** ** ** ** C * * * * * * C * PHH * = * HGH(BAR) * * PAA * C * * * * * * C ** ** ** ** ** ** C ITRLR2(1) = HGH CALL RDTRL (ITRLR2) IF (I .EQ. 5) GO TO 112 DO 110 J = 1,7 ITRLRA(J) = ITRLR1(J) ITRLRB(J) = ITRLR2(J) 110 ITRLRC(J) = 0 IFORM = 2 IF (ITRLR1(3) .EQ. ITRLR2(2)) IFORM = 1 IPRC = 1 ITYP = 0 IF (ITRLR1(5).EQ.2 .OR. ITRLR1(5).EQ.4) IPRC = 2 IF (ITRLR2(5).EQ.2 .OR. ITRLR2(5).EQ.4) IPRC = 2 IF (ITRLR1(5) .GE. 3) ITYP = 2 IF (ITRLR2(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (ITRLRD,ISCR(2),ITRLR1(3),IFORM,ITYPE) PREC = 0 T = 0 SIGNAB= 1 SIGNC = 1 SCR = ISCR(1) CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (ITRLRD) ITEM = ITMLST(I+2) GO TO 116 112 DO 114 J = 1,7 114 ITRLRD(J) = ITRLR1(J) ITEM = ITMLST(7) IF (POPT .EQ. PAPP) ITEM = ITMLST(8) 116 ITRLR2(1) = HGH IF (.NOT. SYMTRY) ITRLR2(1) = HGHBAR CALL RDTRL (ITRLR2) DO 120 J = 1,7 ITRLRA(J) = ITRLR2(J) 120 ITRLRB(J) = ITRLRD(J) IFORM = 1 IPRC = 1 ITYP = 0 IF (ITRLRD(5).EQ.2 .OR. ITRLRD(5).EQ.4) IPRC = 2 IF (ITRLR2(5).EQ.2 .OR. ITRLR2(5).EQ.4) IPRC = 2 IF (ITRLRD(5) .GE. 3) ITYP = 2 IF (ITRLR2(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (ITRLRD,OTFILE(I),ITRLR2(2),IFORM,ITYPE) T = 1 PREC = 0 CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (ITRLRD) C C STORE MATRIX ON SOF C I .EQ. 2, STORE MHH AS MMTX C I .EQ. 3, STORE BHH AS BMTX C I .EQ. 4, STORE K4HH AS K4MX C I .EQ. 5, STORE PHH AS PVEC OR PAPP C CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) CALL MTRXO (OTFILE(I),NEWNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 200 180 CONTINUE C C TEST FOR LOAD PROCESSING C IF (POPT .EQ. BLANKS) GO TO 190 ITMNAM(1) = OLDNAM(1) ITMNAM(2) = OLDNAM(2) IF (.NOT.PONLY) GO TO 184 ITRLR1(1) = EQST CALL RDTRL (ITRLR1) NSUB(1) = ITRLR1(6) NSUB(2) = ITRLR1(7) ITEM = ITMLST(12) CALL MTRXI (UPRT,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 200 GO TO 188 C C PARTITION PAA VECTOR C 184 LCORE = KORLEN FUSET = USETMR CALL CALCV (UPRT,UN,UI,UB,Z(KORBGN)) 188 CALL GMPRTN (PAA,POVE,0,0,0,0,UPRT,NSUB(1),NSUB(2),Z(KORBGN), 1 KORLEN) C C SAVE POVE AS POVE OR POAP ON SOF C IF (MODES) GO TO 190 ITEM = ITMLST(9) IF (POPT .EQ. PAPP) ITEM = ITMLST(11) CALL MTRXO (POVE,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 200 190 CONTINUE RETURN C C PROCESS MODULE ERRORS C 200 GO TO (210,210,210,220,230,250), ITEST 210 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,ITMNAM DRY = -2 RETURN C 220 IMSG = -2 GO TO 240 230 IMSG = -3 240 CALL SMSG (IMSG,ITEM,ITMNAM) RETURN C 250 WRITE (IPRNTR,901) UFM,MODNAM,ITEM,ITMNAM DRY = -2 RETURN C 290 WRITE (IPRNTR,902) UFM DRY = -2 RETURN C 900 FORMAT (A23,' 6211, MODULE ',2A4,' - ITEM ',A4, 1 ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.') 901 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR I/O', 1 ' OF SOF ITEM ',A4,', SUBSTRUCTURE ',2A4,', IS PURGED.') 902 FORMAT (A23,' 6518, ONE OF THE COMPONENT SUBSTRUCTURES HAS BEEN ', 1 'USED IN A PREVIOUS COMBINE OR REDUCE.') C END ================================================ FILE: mis/cmrd2g.f ================================================ SUBROUTINE CMRD2G C C THIS SUBROUTINE CREATES THE REDUCED SUBSTRUCTURE NEW TABLE ITEMS C FOR THE CMRD2 MODULE. C C INPUT DATA C GINO - EQST - TEMPORARY SUBSTRUCTURE EQUIVALENCE TABLE FOR C SUBSTRUCTURE BEING REDUCED C C OUTPUT DATA C SOF - EQSS - SUBSTRUCTURE EQUIVALENCE TABLE FOR REDUCED C SUBSTRUCTURE C BGSS - BASIC GRID POINT DEFINITION TABLE FOR REDUCED C SUBSTRUCTURE C LODS - LOAD SET DATA FOR REDUCED SUBSTRUCTURE C LOAP - APPENDED LOAD SET DATA FOR REDUCED SUBSTRUCTURE C PLTS - PLOT SET DATA FOR REDUCED SUBSTRUCTURE C CSTM - COORDINATE SYSTEM TRANSFORMATION DATA FOR REDUCED C SUBSTRUCTURE C C PARAMETERS C INPUT- DRY - MODULE OPERATION FLAG C POPT - LOADS OPERATION FLAG C GBUF1 - GINO BUFFER C INFILE - INPUT FILE NUMBERS C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C NEWNAM - NAME OF REDUCED SUBSTRUCTURE C FREBDY - FREEBODY OPR C FREBDY - FREEBODY OPTIONS FLAG C IO - OUTPUT OPTIONS FLAG C MODPTS - NUMBER OF MODAL POINTS C EXTERNAL RSHIFT,ANDF LOGICAL PONLY INTEGER DRY,POPT,GBUF1,OLDNAM,Z,ANDF,RSHIFT,EQST,SOFEOG DIMENSION MODNAM(2),LSTBIT(32),ITRLR(7),ITMLST(3),ITMNAM(2), 1 RZ(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / IDUM1,DRY,POPT,GBUF1,IDUM2(5),INFILE(11), 1 IDUM3(17),KORLEN,KORBGN,OLDNAM(2),NEWNAM(2), 2 IDUM4(4),IO,IDUM5(3),MODPTS,IDUM9,PONLY COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ IDUM6,IPRNTR,IDUM7(6),NLPP,IDUM8(2),LINE EQUIVALENCE (EQST,INFILE(5)),(RZ(1),Z(1)) DATA MODNAM/ 4HCMRD,4H2G / DATA PAPP , LODS,LOAP /4HPAPP,4HLODS,4HLOAP / DATA ITMLST/ 4HEQSS,4HBGSS,4HLAMS / DATA SOFEOG/ 4H$EOG/, NHPLTS,NHCSTM /4HPLTS,4HCSTM/ C C CHECK FOR LOADS ONLY C IF (PONLY) GO TO 55 C C PROCESS EQSS, BGSS DATA C IF (DRY .EQ. -2) RETURN ITRLR(1) = EQST CALL RDTRL (ITRLR) IFILE = EQST IF (ITRLR(1) .LT. 0) GO TO 210 CALL GOPEN (EQST,Z(GBUF1),0) ITEST = 3 ITEM = ITMLST(1) ITMNAM(1) = NEWNAM(1) ITMNAM(2) = NEWNAM(2) CALL SFETCH (NEWNAM,ITEM,2,ITEST) IF (ITEST .NE. 3) GO TO 250 NEWPTS = MODPTS C C PROCESS EQSS GROUP 0 DATA C IF (KORBGN+ITRLR(2)+2 .GE. KORLEN) GO TO 230 CALL READ (*215,*220,EQST,Z(KORBGN),ITRLR(2),1,NWDSRD) NCSUBS = Z(KORBGN+2) Z(KORBGN+2) = Z(KORBGN+2) + 1 Z(KORBGN+3) = Z(KORBGN+3) + NEWPTS NEWCS = ITRLR(2) Z(KORBGN+NEWCS ) = NEWNAM(1) Z(KORBGN+NEWCS+1) = NEWNAM(2) NEWCS = ITRLR(2) + 2 CALL SUWRT (Z(KORBGN),NEWCS,2) C C PROCESS REMAINING EQSS GROUPS C NWDS = KORLEN - KORBGN DO 20 I = 1,NCSUBS CALL READ (*215,*10,EQST,Z(KORBGN),NWDS,1,NWDSRD) GO TO 230 10 IF (KORBGN+1+NWDSRD .GE. KORLEN) GO TO 230 20 CALL SUWRT (Z(KORBGN),NWDSRD,2) C C PROCESS MODAL POINTS C IF (KORBGN+3*NEWPTS .GE. KORLEN) GO TO 230 DO 30 I = 1,NEWPTS KORE = 3*(I-1) Z(KORBGN+KORE ) = 100 + I Z(KORBGN+KORE+1) = ITRLR(4)/2 + I 30 Z(KORBGN+KORE+2) = 1 NWDSRD = 3*NEWPTS CALL SUWRT (Z(KORBGN),NWDSRD,2) C C PROCESS EQSS SIL DATA C IF (KORBGN+ITRLR(4)+2*NEWPTS .GE. KORLEN) GO TO 230 CALL READ (*215,*220,EQST,Z(KORBGN),ITRLR(4),1,NWDSRD) NWDSRD = ITRLR(4) - 1 ICODE = Z(KORBGN+NWDSRD) CALL DECODE (ICODE,LSTBIT,NWDSD) LSTSIL = Z(KORBGN+NWDSRD-1) + NWDSD - 1 DO 40 I = 1,NEWPTS KORE = ITRLR(4) + 2*(I-1) Z(KORBGN+KORE ) = LSTSIL + I 40 Z(KORBGN+KORE+1) = 1 NWDSRD = ITRLR(4) + 2*NEWPTS CALL SUWRT (Z(KORBGN),NWDSRD,2) CALL SUWRT (Z(KORBGN),0,3) C C PROCESS BGSS DATA C IF (KORBGN+ITRLR(5)+4*NEWPTS .GE. KORLEN) GO TO 230 ITEM = ITMLST(2) ITEST = 3 CALL SFETCH (NEWNAM,ITEM,2,ITEST) IF (ITEST .NE. 3) GO TO 250 CALL READ (*215,*220,EQST,Z(KORBGN),3,1,NWDSRD) Z(KORBGN ) = NEWNAM(1) Z(KORBGN+1) = NEWNAM(2) Z(KORBGN+2) = Z(KORBGN+2) + NEWPTS LOCBGS = KORBGN CALL SUWRT (Z(KORBGN),3,2) CALL READ (*215,*220,EQST,Z(KORBGN),ITRLR(5),1,NWDSRD) DO 50 I = 1,NEWPTS KORE = ITRLR(5) + 4*(I-1) Z(KORBGN+KORE ) = -1 RZ(KORBGN+KORE+1) = 0.0 RZ(KORBGN+KORE+2) = 0.0 50 RZ(KORBGN+KORE+3) = 0.0 NWDSRD = ITRLR(5) + 4*NEWPTS CALL SUWRT (Z(KORBGN),NWDSRD,2) CALL SUWRT (Z(KORBGN),0,3) KORBGN = KORBGN + ITRLR(5) C C PROCESS LODS, LOAP ITEM C 55 ITEM = LODS IF (POPT .EQ. PAPP) ITEM = LOAP ITEST = 3 CALL SFETCH (OLDNAM,ITEM,1,ITEST) IF (ITEST .EQ. 3) GO TO 60 CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) IF (KORBGN+NWDSRD .GE. KORLEN) GO TO 230 Z(KORBGN ) = NEWNAM(1) Z(KORBGN+1) = NEWNAM(2) Z(KORBGN+3) = Z(KORBGN+3) + 1 Z(KORBGN+NWDSRD ) = NEWNAM(1) Z(KORBGN+NWDSRD+1) = NEWNAM(2) Z(KORBGN+NWDSRD+2) = SOFEOG IWDS = NWDSRD + 3 CALL SUREAD (Z(KORBGN+IWDS),-2,NWDSRD,ITEST) IF (KORBGN+IWDS+NWDSRD+2 .GE. KORLEN) GO TO 230 Z(KORBGN+IWDS+NWDSRD ) = 0 Z(KORBGN+IWDS+NWDSRD+1) = SOFEOG IWDS = IWDS + NWDSRD + 2 ITEST = 3 CALL SFETCH (NEWNAM,ITEM,2,ITEST) IF (ITEST .NE. 3) GO TO 250 CALL SUWRT (Z(KORBGN),IWDS,3) IF (PONLY) GO TO 130 C C PROCESS PLTS ITEM C 60 CALL SFETCH (OLDNAM,NHPLTS,1,ITEST) IF (ITEST .EQ. 3) GO TO 70 CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) Z(KORBGN ) = NEWNAM(1) Z(KORBGN+1) = NEWNAM(2) ITEST = 3 CALL SFETCH (NEWNAM,NHPLTS,2,ITEST) IF (ITEST .NE. 3) GO TO 250 CALL SUWRT (Z(KORBGN),NWDSRD,ITEST) C C PROCESS CSTM ITEM C 70 CALL SFETCH (OLDNAM,NHCSTM,1,ITEST) IF (ITEST .EQ. 3) GO TO 130 CALL SUREAD (Z(KORBGN),-2,NWDSRD,ITEST) IF (KORBGN+2*NWDSRD .GE. KORLEN) GO TO 230 Z(KORBGN ) = NEWNAM(1) Z(KORBGN+1) = NEWNAM(2) KORE = NWDSRD - 4 CALL SORT (0,0,14,1,Z(KORBGN+3),KORE) KORE = KORE/14 IF (KORBGN+2*NWDSRD+KORE .GE. KORLEN) GO TO 230 DO 80 I = 1,KORE 80 Z(KORBGN+NWDSRD+I-1) = 0 NBGSS = ITRLR(5)/4 DO 100 I = 1,NBGSS K = 4*(I-1) IF (Z(LOCBGS+K) .LE. 0) GO TO 100 DO 90 J = 1,KORE LOC = 14*(J-1) IF (Z(KORBGN+3+LOC) .NE. Z(LOCBGS+K)) GO TO 90 Z(KORBGN+NWDSRD+J-1) = 1 GO TO 100 90 CONTINUE 100 CONTINUE LOCNEW = 0 DO 120 I = 1,KORE IF (Z(KORBGN+NWDSRD+I-1) .EQ. 0) GO TO 120 LOCOLD = 14*(I-1) DO 110 J = 1,14 110 Z(KORBGN+NWDSRD+KORE+LOCNEW+J-1) = Z(KORBGN+3+LOCOLD+J-1) LOCNEW = LOCNEW + 14 120 CONTINUE IF(LOCNEW .EQ. 0) GO TO 130 ITEST = 3 CALL SFETCH (NEWNAM,NHCSTM,2,ITEST) CALL SUWRT (NEWNAM,2,2) CALL SUWRT (Z(KORBGN+NWDSRD+KORE),LOCNEW,2) CALL SUWRT (Z(KORBGN),0,3) C C OUTPUT EQSS ITEM C 130 CALL CLOSE (EQST,1) IF (ANDF(RSHIFT(IO,4),1) .NE. 1) GO TO 150 CALL SFETCH (NEWNAM,ITMLST(1),1,ITEST) IF (ITEST .NE. 1) GO TO 250 CALL SUREAD (Z(KORBGN),4,NWDSRD,ITEST) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) LOC = KORBGN + NWDSRD NCSUBS = NCSUBS + 1 DO 140 I = 1,NCSUBS CALL SUREAD (Z(LOC),-1,NWDSRD,ITEST) NAMLOC = KORBGN + 2*(I-1) CALL CMIWRT (1,NEWNAM,Z(NAMLOC),LOC,NWDSRD,Z,Z) 140 CONTINUE CALL SUREAD (Z(LOC),-1,NWDSRD,ITEST) IF (LOC+NWDSRD .GE. KORLEN) GO TO 230 CALL CMIWRT (8,NEWNAM,0,LOC,NWDSRD,Z,Z) C C OUTPUT BGSS ITEM C 150 IF (ANDF(RSHIFT(IO,5),1) .NE. 1) GO TO 160 CALL SFETCH (NEWNAM,ITMLST(2),1,ITEST) IF (ITEST .NE. 1) GO TO 250 NGRP = 1 CALL SJUMP (NGRP) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) CALL CMIWRT (2,NEWNAM,NEWNAM,KORBGN,NWDSRD,Z,Z) C C OUTPUT CSTM ITEM C 160 IF (ANDF(RSHIFT(IO,6),1) .NE. 1) GO TO 170 CALL SFETCH (NEWNAM,NHCSTM,1,ITEST) IF (ITEST .EQ. 3) GO TO 170 NGRP = 1 CALL SJUMP (NGRP) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) CALL CMIWRT (3,NEWNAM,NEWNAM,KORBGN,NWDSRD,Z,Z) C C OUTPUT PLTS ITEM C 170 IF (ANDF(RSHIFT(IO,7),1) .NE. 1) GO TO 180 CALL SFETCH (NEWNAM,NHPLTS,1,ITEST) IF (ITEST .EQ. 3) GO TO 180 CALL SUREAD (Z(KORBGN),3,NWDSRD,ITEST) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) CALL CMIWRT (4,NEWNAM,NEWNAM,KORBGN,NWDSRD,Z,Z) C C OUTPUT LODS ITEM C 180 IF (ANDF(RSHIFT(IO,8),1) .NE. 1) GO TO 200 CALL SFETCH (NEWNAM, LODS,1,ITEST) IF (ITEST .EQ. 3) GO TO 200 CALL SUREAD (Z(KORBGN),4,NWDSRD,ITEST) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) LOC = KORBGN + NWDSRD ITYPE = 5 IF (ITEM .EQ. LOAP) ITYPE = 7 DO 190 I = 1,NCSUBS NAMLOC = KORBGN + 2*(I-1) CALL SUREAD (Z(LOC),-1,NWDSRD,ITEST) CALL CMIWRT (ITYPE,NEWNAM,Z(NAMLOC),LOC,NWDSRD,Z,Z) ITYPE = 6 190 CONTINUE C C OUTPUT MODAL DOF SUMMARY C 200 IF (ANDF(RSHIFT(IO,9),1) .NE. 1) GO TO 209 ITEM = ITMLST(3) ITMNAM(1) = OLDNAM(1) ITMNAM(2) = OLDNAM(2) CALL SFETCH (OLDNAM,ITEM,1,ITEST) IF (ITEST .NE. 1) GO TO 250 CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) CALL PAGE1 WRITE (IPRNTR,901) NEWNAM LINE = LINE + 10 NOFREQ = Z(KORBGN+3) LAMLOC = KORBGN MODUSE = LAMLOC + 7*NOFREQ + 1 CALL SUREAD (Z(KORBGN),-2,NWDSRD,ITEST) IF (KORBGN+NWDSRD .GE. KORLEN) GO TO 230 ITEM = ITMLST(1) ITMNAM(1) = NEWNAM(1) ITMNAM(2) = NEWNAM(2) CALL SFETCH (NEWNAM,ITEM,1,ITEST) IF (ITEST .NE. 1) GO TO 250 KORBGN = KORBGN + MODUSE + NOFREQ IF (KORBGN .GE. KORLEN) GO TO 230 CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) DO 202 I = 1,NCSUBS CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) IF (KORBGN+NWDSRD .GE. KORLEN) GO TO 230 202 CONTINUE LOCEQS = KORBGN IPID = 2*Z(KORBGN+1) KORBGN = KORBGN + NWDSRD IF (KORBGN+IPID .GE. KORLEN) GO TO 230 CALL SUREAD (Z(KORBGN),IPID,NWDSRD,ITEST) IPS = Z(KORBGN+IPID-2) INDEX1 = -3 DO 208 I = 1,NOFREQ IF (LINE .LE. NLPP) GO TO 204 CALL PAGE1 WRITE (IPRNTR,901) NEWNAM LINE = LINE + 10 204 CONTINUE IF (Z(MODUSE+I-1) .GT. 1) GO TO 206 INDEX1 = INDEX1 + 3 MODE = 7*(I-1) WRITE (IPRNTR,902) Z(LAMLOC+MODE),RZ(LAMLOC+MODE+4),Z(MODUSE+I-1), 1 Z(LOCEQS+INDEX1),IPS IPS = IPS + 1 GO TO 208 206 MODE = 7*(I-1) WRITE (IPRNTR,902) Z(LAMLOC+MODE),RZ(LAMLOC+MODE+4),Z(MODUSE+I-1) 208 LINE = LINE + 1 209 CONTINUE RETURN C C PROCESS SYSTEM FATAL ERRORS C 210 IMSG = -1 GO TO 240 215 IMSG = -2 GO TO 240 220 IMSG = -3 GO TO 240 230 IMSG = -8 IFILE = 0 240 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN C C PROCESS MODULE FATAL ERRORS C 250 GO TO (260,260,260,270,280,280), ITEST 260 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,ITMNAM DRY = -2 RETURN C 270 IMSG = -2 GO TO 290 280 IMSG = -3 290 CALL SMSG (IMSG,ITEM,ITMNAM) RETURN C 900 FORMAT (A23,' 6211, MODULE ',2A4,' - ITEM ',A4, 1 ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.') 901 FORMAT (//36X,43HMODAL DOF SUMMARY FOR REDUCES SUBSTRUCTURE ,2A4, 1 //30X,41HUSAGE CODES ARE 1 - INCLUDED IN MODAL SET, 2 /46X,50H2 - EXCLUDED FROM MODAL SET BECAUSE OF NON-PARTICI, 3 6HPATION,/46X,41H3 - EXCLUDED FROM MODAL SET BECAUSE OF RA, 4 11HNGE OR NMAX, //40X,4HMODE,22X,15HUSAGE GRID, /39X, 5 6HNUMBER,8X,6HCYCLES,8X,26HCODE POINT ID SIL,/) 902 FORMAT (39X,I5,5X,1P,E13.6,6X,I1,6X,I8,4X,I6) C END ================================================ FILE: mis/cmrels.f ================================================ SUBROUTINE CMRELS C C THIS SUBROUTINE ENFORCES THE RELES DATA SPECIFIED FOR THE C COMB1 MODULE. C EXTERNAL ANDF LOGICAL FIRST INTEGER IX(7,3),SCBDAT,Z,SCORE,BUF1,BUF2,SCCONN,PS1,PS2 INTEGER LIST(32),ANDF,STCE,AAA(2) COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON /CMB003/ JUNK(38),NPSUB COMMON /ZZZZZZ/ Z(1) DATA AAA / 4HCMRE,4HLS / C IFILE = SCBDAT KJ = 0 DO 20 I = 1,7 DO 10 J = 1,3 IX(I,J) = 0 10 CONTINUE 20 CONTINUE DO 70 I = 1,NPSUB FIRST = .TRUE. CALL OPEN (*150,SCBDAT,Z(BUF1),0) CALL SKPFIL (SCBDAT,3) 30 CALL READ (*60,*170,SCBDAT,ID,1,0,N) IF (ID .EQ. I) GO TO 40 CALL FWDREC (*60,SCBDAT) GO TO 30 40 CALL READ (*160,*50,SCBDAT,Z(SCORE+KJ),LCORE,1,NW) GO TO 180 50 IF (FIRST) IX(I,2) = SCORE + KJ FIRST = .FALSE. IX(I,3) = IX(I,3) + NW/2 KJ = KJ + NW LCORE = LCORE - NW IX(I,1) = 1 GO TO 30 60 CALL CLOSE (SCBDAT,1) 70 CONTINUE DO 80 I = 1,NPSUB IF (IX(I,1) .EQ. 0) GO TO 80 IST = IX(I,2) NW = IX(I,3)*2 CALL SORT (0,0,2,1,Z(IST),NW) 80 CONTINUE IFILE = SCCONN CALL OPEN (*150,SCCONN,Z(BUF2),0) NWRD = 2 + NPSUB NCE = 0 STCE = SCORE + KJ 90 CALL READ (*110,*100,SCCONN,Z(SCORE+KJ),LCORE,1,NNN) GO TO 180 100 KJ = KJ + NWRD NCE = NCE + 1 GO TO 90 110 CALL CLOSE (SCCONN,1) NCE = NWRD*NCE DO 130 I = 1,NCE,NWRD II = I - 1 ICODE = Z(STCE+II+1) CALL DECODE (ICODE,LIST,NC) IF (NC .NE. 2) GO TO 130 PS1 = LIST(1) + 1 PS2 = LIST(2) + 1 IST1 = IX(PS1,2) IST2 = IX(PS2,2) NW1 = IX(PS1,3) NW2 = IX(PS2,3) IF (IX(PS1,1) .EQ. 0) GO TO 120 KID = Z(STCE+II+1+PS1) CALL BISLOC (*120,KID,Z(IST1),2,NW1,IW) Z(STCE+II) = Z(STCE+II) - ANDF(Z(STCE+II),Z(IST1+IW)) 120 IF (IX(PS2,1) .EQ. 0) GO TO 130 KID = Z(STCE+II+1+PS2) CALL BISLOC (*130,KID,Z(IST2),2,NW2,IW) Z(STCE+II) = Z(STCE+II) - ANDF(Z(STCE+II),Z(IST2+IW)) 130 CONTINUE CALL OPEN (*150,SCCONN,Z(BUF1),1) DO 140 I = 1,NCE,NWRD II = I - 1 IF (Z(STCE+II) .NE. 0) CALL WRITE (SCCONN,Z(STCE+II),NWRD,1) 140 CONTINUE CALL EOF (SCCONN) CALL CLOSE (SCCONN,1) RETURN C 150 IMSG = -1 GO TO 190 160 IMSG = -2 GO TO 190 170 IMSG = -3 GO TO 190 180 IMSG = -8 190 CALL MESAGE (IMSG,IFILE,AAA) RETURN END ================================================ FILE: mis/cmsfil.f ================================================ SUBROUTINE CMSFIL C C THIS SUBROUTINE GENERATES THE WORKING SUBSTRUCTURE FILE AND C APPLIES ALL TRANSFORMATIONS C EXTERNAL RSHIFT,ANDF LOGICAL TDAT,XTRAN,XCSTM,IAUTO CWKBI ALPHA-OSF 9/94 INTEGER SCR3, SCSFIL INTEGER AAA(2),ANDF,RSHIFT,BUFEX,OUTT, 1 SCBDAT,BUF4,SCORE,TRN,SYM,COMBO,NAM(2),Z,SCMCON, 2 SCCSTM,CSTMID,CGID,BUF2,BUF3,BUF1,ECPT1,TWOJM1 DIMENSION RZ(1),ECPT(4),DOFN(6),LIST(32),TG(3,3),TG6(6,6), 1 TSAVE(6,6),TMAT(6,6),TC(3,3),TT(3,3),XX(3) COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC,SCCSTM,SCR3 COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INTP,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT COMMON /CMB004/ TDAT(6) COMMON /GTMATX/ LOC1,KLTRAN,TRN,TT6(6,6),TC6(6,6) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (ECPT1,ECPT(1)), (RZ(1),Z(1)) DATA AAA / 4H CMS, 4HFIL / DATA NHBGSS, NHCSTM,NHEQSS / 4HBGSS,4HCSTM,4HEQSS / C BUFEX = LCORE - BUF1 + BUF2 LCORE = BUFEX - 1 IF (LCORE .LT. 0) GO TO 620 LLCO = LCORE IOEFIL = 310 IFILE = SCBDAT CALL OPEN (*600,SCBDAT,Z(BUF4),0) C C READ GTRAN DATA INTO OPEN CORE C IF (TDAT(3) .OR. TDAT(6)) CALL SKPFIL (SCBDAT,1) IF (.NOT.TDAT(6)) GO TO 20 KSGTRN = SCORE CALL READ (*610,*10,SCBDAT,Z(KSGTRN),LLCO,1,KLGTRN) GO TO 620 10 LLCO = LLCO - KLGTRN KFGTRN = KSGTRN + KLGTRN - 1 GO TO 30 C C READ TRANS DATA INTO OPEN CORE C 20 KSTRAN = SCORE GO TO 40 30 KSTRAN = KFGTRN + 1 40 IF (TDAT(3) .OR. TDAT(6)) CALL SKPFIL (SCBDAT,1) IF (.NOT. TDAT(3)) GO TO 60 CALL READ (*610,*50,SCBDAT,Z(KSTRAN),LLCO,1,KLTRAN) GO TO 620 50 LOC1 = KSTRAN LLCO = LLCO - KLTRAN XTRAN = .TRUE. KFTRAN = KSTRAN + KLTRAN - 1 GO TO 70 60 LOC1 = 0 XTRAN = .FALSE. 70 CALL CLOSE (SCBDAT,1) IFILE = SCSFIL CALL OPEN (*600,SCSFIL,Z(BUF4),1) IFILE = SCCSTM CALL OPEN (*600,SCCSTM,Z(BUF3),1) KKC = 0 C C LOOP ON EACH PSEUDOSTRUCTURE C IFILE = SCR3 CALL OPEN (*600,SCR3,Z(BUF1),1) IFILE = IOEFIL CALL OPEN (*600,IOEFIL,Z(BUFEX),1) LLCOLD = LLCO C DO 550 I = 1,NPSUB LLCO = LLCOLD NAM(1) = COMBO(I,1) NAM(2) = COMBO(I,2) TRN = COMBO(I,3) SYM = COMBO(I,4) NCOMP = COMBO(I,5) C C READ BGSS FOR I-TH PSEUDOSTRUCTURE C KSBGSS = KSTRAN IF (XTRAN) KSBGSS = KSTRAN + KLTRAN CALL SFETCH (NAM,NHBGSS,1,ITEST) NGRP = 1 CALL SJUMP (NGRP) CALL SUREAD (Z(KSBGSS),LLCO,KLBGSS,ITEST) IF (KLBGSS.EQ.LLCO .AND. ITEST.NE.2) GO TO 620 LLCO = LLCO - KLBGSS KFBGSS = KSBGSS + KLBGSS - 1 NIP = KLBGSS/4 C C READ CSTM FOR THIS PSEUDOSTRUCTURE C CALL SFETCH (NAM,NHCSTM,1,ITEST) XCSTM = .FALSE. LOC2 = 0 IF (ITEST .EQ. 3) GO TO 80 KSCSTM = KFBGSS + 1 NGRP = 1 CALL SJUMP (NGRP) CALL SUREAD (Z(KSCSTM),LLCO,KLCSTM,ITEST) IF (KLCSTM.EQ.LLCO .AND. ITEST.NE.2) GO TO 620 LLCO = LLCO - KLCSTM LOC2 = KSCSTM XCSTM = .TRUE. KFCSTM = KSCSTM + KLCSTM - 1 80 CONTINUE C C DEFINE OPEN CORE ARRAYS FOR NEW CID AND HPTR C KSNCID = KFBGSS + 1 IF (LOC2 .NE. 0) KSNCID = KFCSTM + 1 KLNCID = NIP LLCO = LLCO - KLNCID KFNCID = KSNCID + KLNCID - 1 C KSHPTR = KFNCID + 1 KLHPTR = NIP LLCO = LLCO - KLHPTR KFHPTR = KSHPTR + KLHPTR - 1 C C SET ARRAYS TO ZERO C DO 90 J = KSNCID,KFNCID Z(J) = 0 90 CONTINUE DO 100 J = KSHPTR,KFHPTR Z(J) = 0 100 CONTINUE C C GET THE TRANS AND SYMT MATRIX FOR THIS PSEUDOSTRUCTURE C CALL GTMAT1 (SYM,TT) C C TRANSFORM THE COORDINATES IN THE BGSS, NOTE THAT THE ORIGINS C FOR TRANSLATION ARE STORED IN ARRAY ORIGIN. C IF (TRN+SYM .EQ. 0) GO TO 130 DO 120 J = KSBGSS,KFBGSS,4 IF (Z(J) .EQ. -1) GO TO 120 CALL GMMATS (TT,3,3,0 ,RZ(J+1),3,1,0 ,XX) DO 110 JJ = 1,3 RZ(J+JJ) = XX(JJ) + ORIGIN(I,JJ) 110 CONTINUE 120 CONTINUE 130 CONTINUE C C TRANSFORM DEGREES OF FREEDOM FOR EACH EQSS CONTAINED C IN THE PSEUDOSTRUCTURE. C CALL WRITE (SCR3,TT6,36,1) NHMAT = 1 CALL SFETCH (NAM,NHEQSS,1,ITEST) KNEQSS = KFHPTR + 1 CALL SUREAD (Z(KNEQSS),4,KLEQSS,ITEST) CALL SUREAD (Z(KNEQSS),-1,KLEQSS,ITEST) LLCO = LLCO - 2*NCOMP IFILE = SCMCON CALL OPEN (*600,SCMCON,Z(BUF2),1) DO 350 J = 1,NCOMP KSEQSS = KFHPTR + 2*NCOMP CALL SUREAD (Z(KSEQSS),LLCO,KLEQSS,ITEST) IF (KLEQSS .EQ. 0) GO TO 340 IF (KLEQSS.EQ.LLCO .AND. ITEST.NE.2) GO TO 620 KFEQSS = KSEQSS + KLEQSS - 1 C C LOOP ON EACH IP IN THE EQSS AND GENERATE TRANSFORMATION MATRIX C DO 330 JJ = KSEQSS,KFEQSS,3 IP = Z(JJ+1) ICOMP = Z(JJ+2) C C GET CSTM FOR THIS IP C CSTMID = Z(KSBGSS+4*IP-4) ECPT1 = CSTMID IF (CSTMID .LT. 0) ECPT1 = 0 DO 140 JDH = 1,3 ECPT(JDH+1) = RZ(KSBGSS+4*IP-4+JDH) 140 CONTINUE CALL GTMAT2 (LOC2,KLCSTM,ECPT,TC) C C TEST FOR POSSIBLE GTRAN C IGTRAN = 0 IF (.NOT.TDAT(6)) GO TO 170 CGID = 1000000*J + Z(JJ) DO 150 K = KSGTRN,KFGTRN,5 IF (Z(K+3).EQ.CGID .AND. Z(K).EQ.I .AND. Z(K+1).EQ.J) GO TO 160 150 CONTINUE C C NO GTRAN C GO TO 170 160 CALL GTMAT3 (Z(K+4),TG,TG6,IKIND) IGTRAN = 1 GO TO 180 170 CALL GTMAT3 (-1,TG,TG6,IKIND) C C ALL TRANSFORMATIONS HAVE BEEN FOUND, COMPUTE THE FINAL MATRIX TMAT C 180 CALL GMMATS (TG6 ,6,6,1,TT6,6,6,0,TSAVE) CALL GMMATS (TSAVE,6,6,0,TC6,6,6,0,TMAT ) C C DECODE DEGREES OF FREEDOM AND FORM VECTOR C CALL DECODE (ICOMP,LIST,NDOF) C C FIND NEW DEGREES OF FREEDOM AND UPDATE EQSS C IF (CSTMID.NE.0 .AND. IGTRAN.EQ.0) GO TO 220 DO 200 I1 = 1,6 DOFN(I1) = 0.0 DO 190 I2 = 1,NDOF L = LIST(I2) + 1 IF (ABS(TMAT(L,I1)) .LT. 1.0E-4) GO TO 190 DOFN(I1) = 1.0 GO TO 200 190 CONTINUE 200 CONTINUE ICODE = 0 DO 210 I1 = 1,6 ICODE = ICODE + DOFN(I1)*2**(I1-1) 210 CONTINUE GO TO 230 220 ICODE = ICOMP 230 Z(JJ+2) = ICODE C C WRITE IP,C ON SCRATCH TO COMPUTE NEW SIL,C C CALL WRITE (SCMCON,IP,1,0) CALL WRITE (SCMCON,ICODE,1,0) C C UPDATE CID NUMBERS C IADD = KSBGSS + 4*IP - 4 IADD1 = KSNCID + IP - 1 IKKIND = IKIND + 1 GO TO (240,240,250,250,240,240,260,260,290,290,290,290,270,270, 1 280,280,290,290,290,290,290,290,290,290,290,290,290,290, 2 280,280,280,280,280,280,280), IKKIND 240 Z(IADD1) = Z(IADD) IF (Z(IADD) .EQ. -1) Z(IADD1) = -100000000 IF (Z(IADD) .EQ. -2) Z(IADD1) = -200000000 GO TO 290 C C COMMENTS FROM G.CHAN/UNISYS 9/92 C 250 AND 240 ARE IDENTICAL HERE. IS IT POSSIBLY AN ERROR HERE? C 250 Z(IADD1) = Z(IADD) IF (Z(IADD) .EQ. -1) Z(IADD1) = -100000000 IF (Z(IADD) .EQ. -2) Z(IADD1) = -200000000 GO TO 290 260 Z(IADD1) = 0 GO TO 290 270 Z(IADD1) = -TRN GO TO 290 280 Z(IADD1) = -Z(K+4) 290 CONTINUE C C SET POINTERS FOR H MATRIX C ITIS = 0 IADD2 = KSHPTR + IP - 1 IF (CSTMID .LT. 0) GO TO 300 IF (Z(IADD2) .GT. 2) GO TO 330 IF (IKKIND.EQ. 3 .OR. IKKIND.EQ.4 .OR. IKKIND.EQ.13 .OR. 1 IKKIND.EQ.14) ITIS = 1 IF (IKKIND.EQ. 1 .OR. IKKIND.EQ.2 .OR. IKKIND.EQ. 5 .OR. 1 IKKIND.EQ. 6) ITIS = 2 IF (ITIS - 1) 320,300,310 300 Z(IADD2) = 0 GO TO 330 310 Z(IADD2) = 1 GO TO 330 320 CONTINUE NHMAT = NHMAT + 1 Z(IADD2) = NHMAT CALL WRITE (SCR3,TMAT,36,1) 330 CONTINUE C C INSERT MULTIPLE IP CODE C IF (NCOMP .NE. 1) CALL EQSCOD (KSEQSS,KLEQSS,Z(1)) C C WRITE EQSS ON FILE SCSFIL C 340 CALL WRITE (SCSFIL,Z(KSEQSS),KLEQSS,1) TWOJM1 = 2*(J-1) IF (ANDF(RSHIFT(IPRINT,19),1) .EQ. 1) 1 CALL CMIWRT (1,NAM,Z(KNEQSS+TWOJM1),KSEQSS,KLEQSS,Z,Z) 350 CONTINUE CALL EOF (SCR3) CALL CLOSE (SCMCON,1) C C GENERATE NEW SIL,C LIST C IFILE = SCMCON CALL OPEN (*600,SCMCON,Z(BUF2),0) CALL READ (*360,*360,SCMCON,Z(KSEQSS),LLCO,1,NNN) GO TO 620 360 CALL SORT (0,0,2,1,Z(KSEQSS),NNN) KSEJ = KSEQSS + NNN - 1 I1 = KSEQSS I2 = KSEQSS + 2 370 IF (I2-KSEQSS .GE. NNN) GO TO 400 IF (Z(I1) .EQ. Z(I2)) GO TO 380 I1 = I1 + 2 I2 = I2 + 2 GO TO 370 380 DO 390 J = I2,KSEJ 390 Z(J-2) = Z(J) KSEJ = KSEJ - 2 NNN = NNN - 2 GO TO 370 400 CONTINUE Z(KSEQSS) = 1 DO 410 J = 3,NNN,2 JJ = J - 1 ICODE = Z(KSEQSS+JJ-1) CALL DECODE (ICODE,LIST,NDOF) Z(KSEQSS+JJ) = Z(KSEQSS+JJ-2) + NDOF 410 CONTINUE CALL WRITE (SCSFIL,Z(KSEQSS),NNN,1) CALL SUREAD (Z(KSEQSS),LLCO,KLEQSS,ITEST) CALL WRITE (IOEFIL,Z(KSEQSS),KLEQSS,1) CALL CLOSE (SCMCON,1) C C PRINT EQSS SIL LIST IF REQUESTED C IF (ANDF(RSHIFT(IPRINT,19),1) .EQ. 1) 1 CALL CMIWRT (8,NAM,0,KSEQSS,KLEQSS,Z,Z) C C UPDATE CSTM NUMBERING SYSTEM C KKC IS TRANSFORMED SYSTEM COORD. ID C IP = 0 DO 540 I6 = KSNCID,KFNCID IP = IP + 1 LOC = KSBGSS + 4*(IP-1) IF (Z(I6) .EQ. 100000000) GO TO 540 IF (Z(I6)) 430,520,420 420 I1 = KSCSTM I2 = KFCSTM GO TO 440 430 IF (Z(I6) .EQ. -100000000) GO TO 530 I1 = KSTRAN I2 = KFTRAN 440 KKC = KKC + 1 IF (IAUTO) GO TO 480 IF (KKC .GT. 1) GO TO 460 CALL PAGE1 CALL PAGE2 (5) WRITE (OUTT,450) 450 FORMAT (//45X,'SUMMARY OF OVERALL SYSTEM COORDINATES', //36X, 1 'PSEUDO STRUCTURE ID. SYSTEM COORD.ID USER COORD.ID',/) 460 CALL PAGE2 (1) WRITE (OUTT,470) I,KKC,Z(LOC) 470 FORMAT (43X,I6,14X,I6,11X,I6) 480 LOOK4 = Z(I6) DO 500 J6 = I1,I2,14 IF (IABS(Z(I6)) .NE. Z(J6)) GO TO 500 IF (Z(I6) .LE. 0) GO TO 490 CALL GMMATS (TT,3,3,0,Z(J6+5),3,3,0,TC) CALL WRITE (SCCSTM,KKC,1,0) CALL WRITE (SCCSTM,Z(J6+1),4,0) CALL WRITE (SCCSTM,TC,9,0) GO TO 500 490 CONTINUE CALL WRITE (SCCSTM,KKC,1,0) CALL WRITE (SCCSTM,Z(J6+1),13,0) 500 CONTINUE C C FIND OTHER CIDS THAT ARE THE SAME C IIP = 0 DO 510 J6 = KSNCID,KFNCID IIP = IIP + 1 IF (Z(J6).NE. LOOK4) GO TO 510 LOC = KSBGSS + 4*(IIP-1) Z(LOC) = KKC Z(J6) = 100000000 510 CONTINUE GO TO 540 520 Z(LOC) = 0 GO TO 540 530 Z(LOC) = -1 IF (Z(I6) .EQ. -200000000) Z(LOC) = -2 540 CONTINUE C C WRITE PROCESSED BGSS C CALL WRITE (SCSFIL,Z(KSBGSS),KLBGSS,1) IF (ANDF(RSHIFT(IPRINT,18),1) .EQ. 1) 1 CALL CMIWRT (2,NAM,NAM,KSBGSS,KLBGSS,Z(1),Z(1) ) C C WRITE ARRAY OF H POINTERS C CALL WRITE (SCSFIL,Z(KSHPTR),KLHPTR,1) CALL EOF (SCSFIL) 550 CONTINUE C CALL CLOSE (SCR3,1) CALL CLOSE (SCSFIL,1) CALL WRITE (SCCSTM,TMAT,0,1) CALL CLOSE (SCCSTM,1) CALL CLOSE (IOEFIL,1) LCORE = BUFEX + BUF1 - BUF2 RETURN C 600 IMSG = -1 GO TO 630 610 IMSG = -2 GO TO 630 620 IMSG = -8 630 CALL MESAGE (IMSG,IFILE,AAA) RETURN END ================================================ FILE: mis/cmsofo.f ================================================ SUBROUTINE CMSOFO C C THIS ROUTINE GENERATES THE NEW SOF DATA FOR A COMBINATION. C EXTERNAL RSHIFT,ANDF LOGICAL TDAT,TOCOPN,LONLY INTEGER PORA,PAPP,LODS,LOAP, 1 BUF1,BUF3,CE(9),CNAM,COMBO,SCSFIL,SCR1,BUF2,SCORE, 2 SCCONN,SBGSS,SCTOC,Z,AAA(2),GETIP,ENT(5), 3 NAMOLD(14),EOG,SCBDAT,SCCSTM,OUTT,RSHIFT,ANDF DIMENSION SAV1(3),SAV2(9),RZ(1), 1 TMAT(9),ECPT(4),RENT(3),LIST(32) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC,SCCSTM COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT,TOCOPN COMMON /CMB004/ TDAT(6),NIPNEW,CNAM(2),LONLY COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / STEP,DRY,PORA EQUIVALENCE (RZ(1),Z(1)),(ITRAN,ECPT(1)) DATA AAA / 4HCMSO,4HFO / , EOG / 4H$EOG / DATA PAPP , LODS,LOAP / 1 4HPAPP,4HLODS,4HLOAP / DATA NHEQSS, NHBGSS,NHCSTM,NHPLTS / 1 4HEQSS, 4HBGSS,4HCSTM,4HPLTS / C C GET NAMES OF BASIC COMPONENTS FROM THE TABLE OF CONTENTS C IFILE = SCTOC IF (.NOT.TOCOPN) CALL OPEN (*720,SCTOC,Z(BUF2),0) CALL REWIND (SCTOC) K = 0 J = 0 10 J = J + 1 C CALL READ (*30,*730,SCTOC,0,-3,0,NNN) CALL READ (*30,*20,SCTOC,Z(SCORE+K),LCORE,1,NNN) 20 K = K + NNN IF (J .LT. NPSUB) GO TO 10 30 IF (.NOT.TOCOPN) CALL CLOSE (SCTOC,1) ISTNM = SCORE SCORE = SCORE + K NNAMES = K C NSUB = 0 DO 40 J = 1,NPSUB NSUB = NSUB + COMBO(J,5) 40 CONTINUE C C WRITE THE FIRST GROUP OF THE EQSS C IF (LONLY) GO TO 330 C NP2 = 2*NPSUB DO 50 I = 1,NP2,2 J = I/2 + 1 NAMOLD(I ) = COMBO(J,1) NAMOLD(I+1) = COMBO(J,2) 50 CONTINUE NPP = NPSUB CALL SETLVL (CNAM,NPP,NAMOLD,ITEST,29) IF (ITEST .EQ. 8) GO TO 700 ITEST = 3 CALL SFETCH (CNAM,NHEQSS,2,ITEST) ITEST = 1 CALL SUWRT (CNAM,2,ITEST) CALL SUWRT (NSUB,1,ITEST) CALL SUWRT (NIPNEW,1,ITEST) ITEST = 2 CALL SUWRT (Z(ISTNM),NNAMES,ITEST) C IFILE = SCCONN CALL OPEN (*720,SCCONN,Z(BUF1),0) IFILE = SCSFIL CALL OPEN (*720,SCSFIL,Z(BUF2),0) IFILE = SCR1 CALL OPEN (*720,SCR1,Z(BUF3),1) DO 180 I = 1,NPSUB IPN = 0 KK = 0 60 IPN = IPN + 1 CALL READ (*80,*70,SCCONN,CE,10,1,NNN) 70 IF (CE(I+2) .EQ. 0) GO TO 60 Z(SCORE+KK ) = CE( 1) Z(SCORE+KK+1) = CE(I+2) Z(SCORE+KK+2) = IPN KK = KK + 3 GO TO 60 80 NOIPN = (KK)/3 CALL SORT (0,0,3,2,Z(SCORE),KK) C C READ BGSS FROM SUBFIL C IFILE = SCSFIL NPSP1 = COMBO(I,5) + 1 DO 90 J = 1,NPSP1 CALL FWDREC (*730,SCSFIL) 90 CONTINUE SBGSS = SCORE + KK LCORE = LCORE - KK CALL READ (*730,*100,SCSFIL,Z(SBGSS),LCORE,1,LBGSS) GO TO 740 100 CONTINUE DO 110 J = 1,KK,3 JJ = J - 1 GETIP = Z(SCORE+JJ+1) ENT(1) = Z(SBGSS+4*GETIP-4 ) ENT(2) = Z(SBGSS+4*GETIP-4+1) ENT(3) = Z(SBGSS+4*GETIP-4+2) ENT(4) = Z(SBGSS+4*GETIP-4+3) ENT(5) = Z(SCORE+JJ+2) CALL WRITE (SCR1,ENT,5,0) 110 CONTINUE CALL WRITE (SCR1,ENT,0,1) IF (I .EQ. 1) CALL REWIND (SCSFIL) IF (I .NE. 1) CALL SKPFIL (SCSFIL,-1) IF (I .NE. 1) CALL SKPFIL (SCSFIL, 1) NCOMP = COMBO(I,5) DO 170 J = 1,NCOMP CALL READ (*720,*120,SCSFIL,Z(SBGSS),LCORE,1,NNN) GO TO 740 120 IF (NNN .EQ. 0) GO TO 160 DO 150 JJ = 1,NNN,3 KID = Z(SBGSS+JJ) CALL BISLOC (*150,KID,Z(SCORE+1),3,NOIPN,NWD) 130 IF (Z(SCORE+NWD) .NE. Z(SCORE+NWD-3)) GO TO 140 IF (NWD .LE. 1) GO TO 140 NWD = NWD - 3 GO TO 130 140 ENT(1) = Z(SBGSS+JJ -1) ENT(2) = Z(SCORE+NWD+1) ENT(3) = Z(SCORE+NWD-1) CALL WRITE (SCR1,ENT,3,0) IF (Z(SCORE+NWD) .NE. Z(SCORE+NWD+3)) GO TO 150 IF (NWD+3 .GE. NOIPN*3) GO TO 150 NWD = NWD + 3 GO TO 140 150 CONTINUE 160 CALL WRITE (SCR1,0,0,1) 170 CONTINUE CALL SKPFIL (SCSFIL,1) CALL REWIND (SCCONN) 180 CONTINUE CALL CLOSE (SCSFIL,1) CALL CLOSE (SCR1,1) C C WRITE OUT EQSS ONTO SOF C IFILE = SCR1 CALL OPEN (*720,SCR1,Z(BUF3),0) DO 210 I = 1,NPSUB NCOMP = COMBO(I,5) CALL FWDREC (*730,SCR1) DO 200 J = 1,NCOMP CALL READ (*730,*190,SCR1,Z(SBGSS),LCORE,1,NNN) GO TO 740 190 ITEST = 2 CALL SUWRT (Z(SBGSS),NNN,ITEST) 200 CONTINUE 210 CONTINUE C C WRITE OUT MASTER SIL,C LIST FOR NEW STRUCTURE C CALL REWIND (SCCONN) KK = 0 ISIL = 1 220 CALL READ (*240,*230,SCCONN,CE,10,1,NNN) 230 CALL DECODE (CE(1),Z(BUF2),NDOF) Z(SBGSS+KK ) = ISIL Z(SBGSS+KK+1) = CE(1) ISIL = ISIL + NDOF KK = KK + 2 GO TO 220 240 CONTINUE ITEST = 2 CALL SUWRT (Z(SBGSS),KK,ITEST) ITEST = 3 CALL SUWRT (ENT,0,ITEST) C C WRITE BGSS ONTO SOF C LCC = LCORE KK = 0 CALL REWIND (SCR1) DO 270 I = 1,NPSUB NCOMP = COMBO(I,5) CALL READ (*730,*250,SCR1,Z(SBGSS+KK),LCC,1,NW) GO TO 740 250 KK = KK + NW LCC = LCC - NW DO 260 J = 1,NCOMP CALL FWDREC (*280,SCR1) 260 CONTINUE 270 CONTINUE 280 CALL SORT (0,0,5,5,Z(SBGSS),KK) ITEST = 3 CALL SFETCH (CNAM,NHBGSS,2,ITEST) ITEST = 1 CALL SUWRT (CNAM,2,ITEST) ITEST = 2 CALL SUWRT (NIPNEW,1,ITEST) KKK = 0 290 ISUB = SBGSS + KKK ENT(1) = Z(ISUB ) ENT(2) = Z(ISUB+1) ENT(3) = Z(ISUB+2) ENT(4) = Z(ISUB+3) IF (KKK.GT.0 .AND. Z(ISUB+4).EQ.Z(ISUB-1)) GO TO 300 ITEST = 1 CALL SUWRT (ENT,4,ITEST) 300 KKK = KKK + 5 IF (KKK .LT. KK) GO TO 290 ITEST = 2 CALL SUWRT (ENT,0,ITEST) ITEST = 3 CALL SUWRT (ENT,0,ITEST) CALL CLOSE (SCR1,1) CALL CLOSE (SCCONN,1) C C PROCESS CSTM ITEM C CALL OPEN (*720,SCCSTM,Z(BUF3),0) CALL READ (*310,*310,SCCSTM,Z(SCORE),LCORE,1,NNN) GO TO 740 310 IF (NNN .EQ. 0) GO TO 320 ITEST = 3 CALL SFETCH (CNAM,NHCSTM,2,ITEST) ITEST = 2 CALL SUWRT (CNAM,2,ITEST) ITEST = 2 CALL SUWRT (Z(SCORE),NNN,ITEST) ITEST = 3 CALL SUWRT (0,0,ITEST) 320 CALL CLOSE (SCCSTM,1) C C PROCESS LODS ITEM C 330 NLV = 0 NCS = NNAMES/2 J = 0 LITM = LODS IF (PORA .EQ. PAPP) LITM = LOAP DO 350 I = 1,NPSUB NAMOLD(1) = COMBO(I,1) NAMOLD(2) = COMBO(I,2) CALL SFETCH (NAMOLD,LITM,1,ITEST) IF (ITEST .EQ. 3) GO TO 340 CALL SUREAD (CE,4,NOUT,ITEST) NLV = NLV + CE(3) JDH = 1 CALL SJUMP (JDH) CALL SUREAD (Z(SCORE+J),-2,NOUT,ITEST) J = J + NOUT GO TO 350 340 Z(SCORE+J ) = 0 Z(SCORE+J+1) = EOG J = J + 2 350 CONTINUE ITEST = 3 CALL SFETCH (CNAM,LITM,2,ITEST) ITEST = 1 CALL SUWRT (CNAM,2,ITEST) CALL SUWRT (NLV ,1,ITEST) CALL SUWRT (NCS ,1,ITEST) ITEST = 2 CALL SUWRT (Z(ISTNM),NNAMES,ITEST) ITEST = 3 CALL SUWRT (Z(SCORE),J,ITEST) IF (LONLY) GO TO 580 C C PROCESS PLTS ITEM C C C FIND OLD PLTS TRANSFORMATIONS C NOUT = 0 J = 0 NNSUB = 0 DO 370 I = 1,NPSUB NAMOLD(1) = COMBO(I,1) NAMOLD(2) = COMBO(I,2) CALL SFETCH (NAMOLD,NHPLTS,1,ITEST) IF (ITEST .EQ. 3) GO TO 370 CALL SUREAD (Z(SCORE+J),3,NOUT,ITEST) NNSUB = NNSUB + Z(SCORE+J+2) CALL SUREAD (Z(SCORE+J),-1,NOUT,ITEST) J = J + NOUT 370 CONTINUE NPWD = J ISTRN = SCORE + NPWD LLCO = LCORE - NPWD ITEST = 3 CALL SFETCH (CNAM,NHPLTS,2,ITEST) ITEST = 1 CALL SUWRT (CNAM ,2,ITEST) CALL SUWRT (NNSUB,1,ITEST) NT = 0 IF (.NOT.TDAT(3)) GO TO 390 CALL OPEN (*720,SCBDAT,Z(BUF1),0) CALL SKPFIL (SCBDAT,2) CALL READ (*730,*380,SCBDAT,Z(ISTRN),LCORE,1,NT) GO TO 740 380 CALL PRETRS (Z(ISTRN),NT) 390 IF (.NOT.TOCOPN) CALL OPEN (*720,SCTOC,Z(BUF2),1) CALL REWIND (SCTOC) IST = ISTRN + NT LLCO = LLCO - NT J = 0 400 J = J + 1 ITRAN = COMBO(J,3) DO 410 I = 1,9 TMAT(I) = 0.0 410 CONTINUE CALL READ (*530,*420,SCTOC,Z(IST),LLCO,1,NNN) GO TO 740 420 IF (ITRAN .EQ. 0) GO TO 440 DO 430 I = 2,4 ECPT(I) = 0.0 430 CONTINUE CALL TRANSS (ECPT,TMAT) GO TO 450 440 TMAT(1) = 1.0 TMAT(5) = 1.0 TMAT(9) = 1.0 C C DETERMINE SYMMETRY C 450 IF (COMBO(J,4) .EQ. 0) GO TO 470 CALL DECODE (COMBO(J,4),LIST,NDIR) DO 460 I = 1,NDIR IDIR = LIST(I) + 1 IDIR = 4 - IDIR TMAT(IDIR ) = -TMAT(IDIR ) TMAT(IDIR+3) = -TMAT(IDIR+3) TMAT(IDIR+6) = -TMAT(IDIR+6) 460 CONTINUE 470 DO 480 I = 1,3 RENT(I) = ORIGIN(J,I) 480 CONTINUE NNN = NNN - 1 DO 520 I = 3,NNN,2 C C PROCESS OLD TRANSFORMATIONS C DO 490 KDH = 1,NPWD,14 IF (Z(IST+I).EQ.Z(SCORE+KDH-1) .AND. Z(IST+I+1).EQ.Z(SCORE+KDH)) 1 GO TO 500 490 CONTINUE GO TO 520 500 CALL GMMATS (TMAT,3,3,0, RZ(SCORE+KDH+1),3,1,0, SAV1) DO 510 II = 1,3 510 SAV1(II) = SAV1(II)+RENT(II) CALL GMMATS (TMAT,3,3,0, RZ(SCORE+KDH+4),3,3,0, SAV2) ITEST = 1 CALL SUWRT (Z(IST+I),2,ITEST) CALL SUWRT (SAV1(1) ,3,ITEST) CALL SUWRT (SAV2(1) ,9,ITEST) GO TO 520 520 CONTINUE IF (J .LT. NPSUB) GO TO 400 530 IF (.NOT.TOCOPN) CALL CLOSE (SCTOC,1) ITEST = 2 CALL SUWRT (0,0,ITEST) ITEST = 3 CALL SUWRT (0,0,ITEST) CALL CLOSE (SCBDAT,1) CALL EQSOUT C C PROCESS OUTPUT REQUESTS C IF (ANDF(RSHIFT(IPRINT,12),1) .NE. 1) GO TO 550 C C WRITE EQSS FOR NEW STRUCTURE C CALL SFETCH (CNAM,NHEQSS,1,ITEST) CALL SUREAD (Z(SCORE),4,NOUT,ITEST) CALL SUREAD (Z(SCORE),-1,NOUT,ITEST) IST = SCORE + NOUT DO 540 I = 1,NSUB CALL SUREAD (Z(IST),-1,NOUT,ITEST) IADD = SCORE + 2*(I-1) CALL CMIWRT (1,CNAM,Z(IADD),IST,NOUT,Z,Z) 540 CONTINUE CALL SUREAD (Z(IST),-1,NOUT,ITEST) CALL CMIWRT (8,CNAM,0,IST,NOUT,Z,Z) 550 IF (ANDF(RSHIFT(IPRINT,13),1) .NE. 1) GO TO 560 C C WRITE BGSS FOR NEW STRUCTURE C CALL SFETCH (CNAM,NHBGSS,1,ITEST) NGRP = 1 CALL SJUMP (NGRP) IST = SCORE CALL SUREAD (Z(IST),-1,NOUT,ITEST) CALL CMIWRT (2,CNAM,CNAM,IST,NOUT,Z,Z) 560 IF (ANDF(RSHIFT(IPRINT,14),1) .NE. 1) GO TO 570 C C WRITE CSTM ITEM C CALL SFETCH (CNAM,NHCSTM,1,ITEST) IF (ITEST .EQ. 3) GO TO 570 NGRP = 1 CALL SJUMP (NGRP) IST = SCORE CALL SUREAD (Z(IST),-1,NOUT,ITEST) CALL CMIWRT (3,CNAM,CNAM,IST,NOUT,Z,Z) 570 IF (ANDF(RSHIFT(IPRINT,15),1) .NE. 1) GO TO 580 C C WRITE PLTS ITEM C CALL SFETCH (CNAM,NHPLTS,1,ITEST) IST = SCORE CALL SUREAD (Z(IST), 3,NOUT,ITEST) CALL SUREAD (Z(IST),-1,NOUT,ITEST) CALL CMIWRT (4,CNAM,CNAM,IST,NOUT,Z,Z) 580 IF (ANDF(RSHIFT(IPRINT,16),1) .NE. 1) GO TO 600 C C WRITE LODS ITEM C CALL SFETCH (CNAM,LODS,1,ITEST) IF (ITEST .EQ. 3) GO TO 600 CALL SUREAD (Z(SCORE), 4,NOUT,ITEST) CALL SUREAD (Z(SCORE),-1,NOUT,ITEST) IST = SCORE + NOUT ITYPE = 5 IF (LITM .EQ. LOAP) ITYPE = 7 DO 590 I = 1,NSUB IADD = SCORE + 2*(I-1) CALL SUREAD (Z(IST),-1,NOUT,ITEST) CALL CMIWRT (ITYPE,CNAM,Z(IADD),IST,NOUT,Z,Z) ITYPE = 6 590 CONTINUE 600 CONTINUE RETURN C 700 WRITE (OUTT,710) UFM 710 FORMAT (A23,' 6518, ONE OF THE COMPONENT SUBSTRUCTURES HAS BEEN ', 1 'USED IN A PREVIOUS COMBINE OR REDUCE.') IMSG = -37 GO TO 750 720 IMSG = -1 GO TO 750 730 IMSG = -2 GO TO 750 740 IMSG = -8 750 CALL SOFCLS CALL MESAGE (IMSG,IFILE,AAA) RETURN END ================================================ FILE: mis/cmtimu.f ================================================ SUBROUTINE CM TIM U (Y,X,FILE,BUF) C C CM TIM U FORMS THE MATRIX PRODUCT X = M*Y WHERE ALL MAY BE COMPLEX C INTEGER DIAG ,EOL ,EOR ,FILEM(7) , 1 FILEK ,FILE(1) ,FILEMM ,BUF(1) , 2 NAME(2) DOUBLE PRECISION X(1) ,Y(1) ,DA COMMON /CINVPX/ FILEK(7) ,FILEMM(7) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,LOWTRI ,UPRTRI , 4 SYM ,ROW ,IDENTY COMMON /CINVXX/ DUM(21) ,NZERO COMMON /ZNTPKX/ DA(2) ,II ,EOL ,EOR C COMMON /DESCRP/ LENGTH ,MAJOR(1) EQUIVALENCE (NCOL,FILEK(2)) DATA NAME / 4HCMTI ,4HMU / C IF (FILE(1) .EQ. 0) GO TO 5 C C USE MATRIX OTHER THAN THE MASS MATRIX C DO 4 I = 1,7 4 FILEM(I) = FILE(I) GO TO 8 C C USE MASS MATRIX C 5 DO 7 I = 1,7 7 FILEM(I) = FILEMM(I) 8 CONTINUE NCOL2 = NCOL + NCOL IF (FILEM(4) .EQ. IDENTY) GO TO 50 NZERO = 0 CALL GOPEN (FILEM(1),BUF,RDREW) DO 10 I = 1,NCOL2 10 X(I) = 0.D0 IF (FILEM(4) .EQ. DIAG) GO TO 40 C C MASS MATRIX IS NOT DIAGONAL C DO 30 I = 1,NCOL2,2 IF (Y(I).EQ.0.D0 .AND. Y(I+1).EQ.0.D0) GO TO 25 CALL INTPK (*30,FILEM(1),0,CDP,0) 22 CALL ZNTPKI IF (II .EQ. I) NZERO = NZERO + 1 II = II+II-1 X(II ) = X(II ) + DA(1)*Y(I )-DA(2)*Y(I+1) X(II+1) = X(II+1) + DA(1)*Y(I+1)+DA(2)*Y(I ) IF (EOL .EQ. 0) IF (EOR) 30,22,30 GO TO 30 25 CALL FWDREC (*80,FILEM(1)) 30 CONTINUE GO TO 80 C C FILE ERROR C C 35 J = -1 C GO TO 37 C 36 J = -2 C 37 CALL MESAGE (J,FILEM(1),NAME) C C MASS MATRIX IS DIAGONAL C 40 CALL INTPK (*80,FILEM(1),0,CDP,0) 45 CALL ZNTPKI II = II + II - 1 X(II ) = Y(II)*DA(1) - Y(II+1)*DA(2) X(II+1) = Y(II)*DA(2) + Y(II+1)*DA(1) NZERO = NZERO + 1 IF (EOL .EQ. 0) IF (EOR) 80,45,80 GO TO 80 C C MASS MATRIX IS THE IDENTY C 50 DO 55 I = 1,NCOL2 55 X(I) = Y(I) NZERO = 0 RETURN C 80 CALL CLOSE (FILEM(1),REW) NZERO = 0 RETURN END ================================================ FILE: mis/cmtoc.f ================================================ SUBROUTINE CMTOC C C THIS SUBROUTINE GENERATES A TABLE OF CONTENTS FOR A COMBINE C OPERATION. FOR EACH PSEUDO-STRUCTURE IT LISTS THE NAME, NUMBER C OF COMPONENTS, AND EACH COMPONENT BASIC SUBSTRUCTURE NAME. C THIS DATA IS THEN WRITTEN ON SCRATCH FILE SCTOC. C EXTERNAL RSHIFT,ANDF LOGICAL PRINT,TOCOPN INTEGER SCTOC,BUF5,COMBO,NAME(2),Z,SCORE,AAA(2),OUTT, 1 IHED(96),XXX,ANDF,RSHIFT COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT,TOCOPN COMMON /ZZZZZZ/ Z(1) COMMON /OUTPUT/ ITITL(96),IHDR(96) COMMON /SYSTEM/ XXX DATA IHED / 7*4H , 1 4HP S , 4HE U , 4HD O , 4HS T , 4HR U , 4HC T , 4HU R , 2 4HE , 4HT A , 4HB L , 4HE , 4HO F , 4H C , 4HO N , 3 4HT E , 4HN T , 4HS , 15*4H , 4 4H PSE, 4HUDO-, 4H , 4H N, 4HO. O, 4HF ,26*2H , 5 4HSTRU, 4HCTUR, 4HE , 4H COM, 4HPONE, 4HNTS , 4H -, 6 4H----, 4H----, 4H- CO, 4HMPON, 4HENT , 4HNAME, 4HS --, 7 4H----, 4H----, 4H- , 8*4H / DATA AAA / 4HCMTO, 4HC / DATA NHEQSS/ 4HEQSS/ C PRINT = .FALSE. IF (ANDF(RSHIFT(IPRINT,1),1) .EQ. 1) PRINT = .TRUE. TOCOPN = .TRUE. ITOT = 0 DO 20 I = 1,96 IHDR(I) = IHED(I) 20 CONTINUE IF (PRINT) CALL PAGE CALL OPEN (*60,SCTOC,Z(BUF5),1) DO 50 I = 1,NPSUB NAME(1) = COMBO(I,1) NAME(2) = COMBO(I,2) CALL SFETCH (NAME,NHEQSS,1,ITEST) CALL SUREAD (Z(SCORE),-1,NWDS,ITEST) Z(SCORE ) = NAME(1) Z(SCORE+1) = NAME(2) CALL WRITE (SCTOC,Z(SCORE),3,0) ITOT = ITOT + 3 IA = SCORE IB = SCORE+2 IF (PRINT) WRITE(OUTT,30) (Z(KDH),KDH=IA,IB) 30 FORMAT (34X,2A4,6X,I4) COMBO(I,5) = Z(SCORE+2) NWDS = NWDS - 4 IA = SCORE+4 IB = IA+NWDS-1 NT = (IB - IA + 1)/8 IF (NT .EQ. 0) NT = 1 IF (PRINT) CALL PAGE2 (NT) IF (PRINT) WRITE (OUTT,40) (Z(KDH),KDH=IA,IB) ITOT = ITOT + NWDS 40 FORMAT (1H+,57X,2X,2A4,2X,2A4,2X,2A4,2X,2A4,/ 1 (58X,2X,2A4,2X,2A4,2X,2A4,2X,2A4)) CALL WRITE (SCTOC,Z(SCORE+4),NWDS,1) 50 CONTINUE CALL CLOSE (SCTOC,1) CALL OPEN (*60,SCTOC,Z(BUF5),0) C C DETERMINE WHETHER TO CLOSE FILE C IF (ITOT .LE. XXX) RETURN TOCOPN = .FALSE. CALL CLOSE (SCTOC,1) RETURN C 60 CALL MESAGE (-1,SCTOC,AAA) RETURN END ================================================ FILE: mis/cmtrce.f ================================================ SUBROUTINE CMTRCE (IERTAB,IWDS,ITOMNY) C C THIS ROUTINE TRACES BACK IMPROPER CONNECTIONS FINDING C GIRD POINT IDS FOR INTERNAL POINT NUMBERS C INTEGER COMBO,IERTAB(1),Z,OF,IOUT(6),NAM(2) C COMMON /CMB003/ COMBO(7,5) COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ JUNK,OF,IJUNK(6),NLPP,IJ2(2),LINE DATA NHEQSS/ 4HEQSS / C CALL SORT(0,0,4,2,IERTAB(1),IWDS) IB = 1 CALL PAGE1 WRITE(OF,2000) WRITE(OF,2100) NLINE = NLINE + 5 C 50 IPS = IERTAB(IB+1) NAM(1) = COMBO(IPS,1) NAM(2) = COMBO(IPS,2) CALL SFETCH(NAM,NHEQSS,1,ITEST) CALL SUREAD(Z(1),-1,NOUT,ITEST) IPT = NOUT C C READ EQSS FOR EACH COMPONENT C NCOMP = 3 NCOMP = Z(NCOMP) IST = IPT + NCOMP + 2 Z(IPT+1) = IST DO 100 I=1,NCOMP CALL SUREAD(Z(IST),-1,NOUT,ITEST) Z(IPT+1+I) = NOUT + IST CALL SORT(0,0,3,2,Z(IST),NOUT) IST = IST + NOUT 100 CONTINUE DO 300 I=IB,IWDS,4 IF( IERTAB(I+1) .NE. IPS ) GO TO 1000 DO 220 J=1,2 IP = IERTAB(I+1+J) DO 210 JJ=1,NCOMP II = Z(IPT+JJ) NWDS = Z(IPT+JJ+1) - Z(IPT+JJ) CALL BISLOC(*210,IP,Z(II+1),3,NWDS/3,ILOC) IOUT(3*J) = Z(II+ILOC-1) IOUT(3*J-2) = Z(2*JJ+3) IOUT(3*J-1) = Z(2*JJ+4) GO TO 220 210 CONTINUE 220 CONTINUE LINE = LINE + 1 IF( LINE .LE. NLPP ) GO TO 230 CALL PAGE1 WRITE(OF,2100) LINE = LINE + 2 230 CONTINUE WRITE(OF,2200) IERTAB(I),IOUT 300 CONTINUE GO TO 1100 C C GET NEXT PSEUDOSTRUCUTRE C 1000 IB = I GO TO 50 1100 IF( ITOMNY .EQ. 0 ) RETURN WRITE(OF,2300) RETURN 2000 FORMAT(/1X, 1 61HTHE FOLLOWING CONNECTIONS HAVE BEEN FOUND TO BE INCONSISTANT., 2 /1X,57HATTEMPTS HAVE BEEN MADE TO CONNECT INTERNAL POINTS WITHIN, 3 /1X,57HTHE SAME PSEUDOSTRUCTURE DUE TO SPLIT DEGREES OF FREEDOM., 4 /1X,79HTHESE ERRORS MUST BE RESOLVED BY THE USER VIA RELES DATA O 5R MANUAL CONNECTIONS. /) 2100 FORMAT(5X,3HDOF,5X,12HSUBSTRUCTURE,5X,8H GRID ID,5X, 1 12HSUBSTRUCTURE,5X,8H GRID ID /) 2200 FORMAT(6X,I1,10X,2A4,5X,I8,9X,2A4,5X,I8) 2300 FORMAT(/5X,93HTHE NUMBER OF FATAL MESSAGES EXCEEDED THE AVAILABLE 1STORAGE. SOME MESSAGES HAVE BEEN DELETED. ) END ================================================ FILE: mis/cnorm.f ================================================ SUBROUTINE CNORM(X,DIV,Y) C C CNORM WILL NORMALIZE X TO THE MAXIMUM ELEMENT EQUAL TO A MODULUS C OF ONE AND STORE THE DIVISOR IN MAX (X MAY BE COMPLEX) C DOUBLE PRECISION X(1),DIV(2),MAX,TEMP,Y(1),SIGN,COSANG,XO,D,R,RI COMMON /SYSTEM/ IBUF,NOUT COMMON /CINVPX/ FILEK(7) COMMON /CINVXX/ DUM(30),IND1,ITER EQUIVALENCE (NCOL,FILEK(2)) C NCOL2 = NCOL + NCOL MAX = 0.D0 SIGN = 1.0D0 IND = 0 DO 20 I = 1,NCOL2,2 IF (X(I)**2+X(I+1)**2 .LE. MAX) GO TO 20 MAX = X(I)**2 + X(I+1)**2 IND = I 20 CONTINUE IF (IND .EQ. 0) GO TO 80 IF (ITER .EQ. 1) GO TO 60 IF (IND .EQ. IND1) GO TO 50 CALL SSWTCH (12,IDIAG) IF (IDIAG .EQ. 0) GO TO 40 WRITE (6,30) IND,IND1 30 FORMAT (10H CHANGE ,2I5) 40 CONTINUE 50 CONTINUE D = X(IND)**2 + X(IND+1)**2 R = (X(IND1)*X(IND) + X(IND1+1)*X(IND+1))/D RI = (X(IND1+1)*X(IND) - X(IND1)*X(IND+1))/D COSANG = XO*R/DSQRT(R**2 + RI**2) IF (DABS(COSANG+1.D0) .LE. 0.1D0) SIGN = -1.0D0 60 I = IND DIV(1) = X(I )*SIGN DIV(2) = X(I+1)*SIGN IND1 = IND MAX = 1.0D0/MAX DO 70 I = 1,NCOL2,2 TEMP = (X(I)*DIV(1)+X(I+1)*DIV(2))*MAX X(I+1) = (X(I+1)*DIV(1)-X(I)*DIV(2))*MAX 70 X(I) = TEMP XO = X(IND) RETURN C 80 WRITE (NOUT,90) 90 FORMAT (//5X,37HCONOR RECEIVED A VECTOR OF ALL ZEROS) CALL MESAGE (-37,0,0) RETURN END ================================================ FILE: mis/cnorm1.f ================================================ SUBROUTINE CNORM1 (X,N) C C CNORM1 WILL SEARCH A VECTOR FOR THE LARGEST VALUE AND NORMALIZE C THE VECTOR TO LARGEST ELEMENT EQUAL TO ONE C INTEGER NAME(2) DOUBLE PRECISION X(1),DUM,MAX,DIV(2) COMMON /SYSTEM/ IBUF,NOUT DATA NAME / 4HCNOR,4HM1 / C NN = N + N MAX = 0.D0 INDEX= 0 DO 10 I = 1,NN,2 DUM = X(I)*X(I) + X(I+1)*X(I+1) IF (DUM .LE. MAX) GO TO 10 MAX = DUM INDEX = I 10 CONTINUE IF (INDEX .EQ. 0) GO TO 30 DIV(1) = X(INDEX ) DIV(2) = X(INDEX+1) MAX = DIV(1)*DIV(1) + DIV(2)*DIV(2) DO 20 I = 1,NN,2 DUM = (X(I)*DIV(1) + X(I+1)*DIV(2))/MAX X(I+1) = (X(I+1)*DIV(1) - X(I)*DIV(2))/MAX 20 X(I) = DUM RETURN C 30 WRITE (NOUT,40) 40 FORMAT (//5X,37HCNORM1 RECEIVED A VECTOR OF ALL ZEROS) CALL MESAGE (-37,0,NAME) RETURN END ================================================ FILE: mis/cnstdd.f ================================================ SUBROUTINE CNSTDD C C THIS SUBROUTINE DEFINES COMMONLY USED PHYSICAL CONSTANTS C C THE /CONDAD/ COMMON BLOCK CONTAINS COMMONLY USED PHYSICAL C CONSTANTS IN DOUBLE PRECISION FORM. C C THE /CONDAS/ COMMON BLOCK CONTAINS COMMONLY USED PHYSICAL C CONSTANTS IN SINGLE PRECISION FORM. C C THE FOLLOWING IS A PARTIAL LIST OF ROUTINES THAT USE CONSTANTS C FROM ONE OF THESE COMMON BLOCKS C CDETM ,CEAD1A ,CONE ,DETM5 ,DS1A , C DTRIA ,FRRD1A ,GKAM ,GP1 ,INPUT , C KTUBE ,MCONE ,MFREE ,MTUBE ,PLA32 , C PLA42 ,PRESAX ,QDMEM ,RAND3 ,RAND8 , C REIG ,RFORCE ,ROD ,SCONE1 ,SDR2C , C STUBE1 ,TR1A ,VDRB C C TYPE DECLARATION C DOUBLE PRECISION DPI ,D2PI ,RADDEG ,DEGRAD , 1 D4PISQ C C C COMMON STATEMENTS C COMMON /CONDAS/ PI ,TWOPI ,RADEG ,DEGRA , 1 S4PISQ COMMON /CONDAD/ DPI ,D2PI ,RADDEG ,DEGRAD , 1 D4PISQ C C C PI IS THE SINGLE PRECISION VALUE OF PI C PI = 3.1415 92653 58979 32384 62643 D0 C C DPI IS THE DOUBLE PRECISION VALUE OF PI C DPI = 3.1415 92653 58979 32384 62643 D0 C C TWOPI IS THE SINGLE PRECISION VALUE OF 2*PI C TWOPI = 6.2831 85307 17958 64769 25287 D0 C C D2PI IS THE DOUBLE PRECISION VALUE OF 2*PI C D2PI = 6.2831 85307 17958 64769 25287 D0 C C RADEG IS THE SINGLE PRECISION CONVERSION FACTOR FROM RADIANS TO C DEGREES C RADEG = 57.2957 79513 08232 08767 98155 D0 C C RADDEG IS THE DOUBLE PRECISION CONVERSION FACTOR FROM RADIANS TO C DEGREES C RADDEG = 57.2957 79513 08232 08767 98155 D0 C C DEGRA IS THE SINGLE PRECISIONCONVERSION FACTOR FROM DEGREES TO C RADIANS C DEGRA = 0.0174 53292 51994 32957 69237 D0 C C DEGRAD IS THE DOUBLE PRECISION CONVERSION FACTOR FROM DEGREES TO C RADIANS C DEGRAD = 0.0174 53292 51994 32957 69237 D0 C C C S4PISQ IS THE SINGLE PRECISION VALUE OF 4*PI**2 C S4PISQ = 39.4784 17604 35743 44753 37964 D0 C C D4PISQ IS THE DOUBLE PRECISION VALUE OF 4*PI**2 C D4PISQ = 39.4784 17604 35743 44753 37964 D0 C RETURN C C END ================================================ FILE: mis/cnstrc.f ================================================ SUBROUTINE CNSTRC (GP,ELE,BUF,MAX) C C THIS SUBROUTINE BUILDS THE ELSETS FILE C THIS SUBROUTINE IS CALLED ONLY BY DPLTST, WHICH IS THE DRIVER OF C DMAP MODULE PLTSET C THE SUBROUITNE PLTSET OF THE PLOT MODULE HAS NOTHING TO DO WITH C THIS SUBROUTINE C C REVISED 10/1990 BY G.CHAN/UNISYS TO INCLUDE OFFSET FOR BAR, TRIA3 C AND QUAD4 ELEMENTS C INTEGER AE ,B1 ,B2 ,B3 ,BUF(1) , 1 BUFSIZ ,ELE(1) ,ELID ,ERR(2) ,ETYPE , 2 EXGP ,GP(1) ,GPT ,GPTS(32) ,OUTNOR , 3 OUTREW ,REW ,SETID ,SETNUM ,SIGN , 4 TYPE(50) ,NAME(2) ,MSG1(14) ,EID(2) ,OFFSET , 5 BR ,T3 ,Q4 ,OFF(6) COMMON /BLANK / NGP ,NSETS ,SKP1(8) ,SKP2 ,EXGPID , 1 SKP3(8) ,MERR ,SKP4 ,GRID ,ECT2 , 2 SKP5(6) ,MSET ,ECT1 COMMON /SYSTEM/ BUFSIZ COMMON /NAMES / RD ,INPREW ,OUTNOR ,OUTREW ,REW , 1 NOREW COMMON /GPTA1 / NTYPS ,LAST ,INCR ,NE(1) EQUIVALENCE (EID(1) ,ELID) DATA NAME / 4H CNS ,4HTRC / ,AE / 72 / DATA NMSG1 / 14 / DATA MSG1 / 4H(33X ,4H,44H ,4HNO P ,4HLOTA ,4HBLE , 1 4HSTRU ,4HCTUR ,4HAL E ,4HLEME ,4HNTS , 2 4HEXIS ,4HT IN ,4H SET ,4H,I8) / DATA BR, T3, Q4 /2HBR ,2HT3 ,2HQ4 / C B1 = 1 B2 = B1 + BUFSIZ B3 = B2 + BUFSIZ CALL GOPEN (MSET,BUF(B3),INPREW) CALL GOPEN (ECT2,BUF(B2),OUTREW) C DO 450 SETNUM = 1,NSETS CALL FREAD (MSET,SETID,1,0) DO 10 I = 1,NGP GP(I) = 0 10 CONTINUE C C READ THE EXPLICIT ELEMENT NUMBERS IN THIS SET. C CALL FREAD (MSET,NEL,1,0) IF (NEL .GE. MAX) CALL MESAGE (-8,0,NAME) ELE(NEL+1) = 0 CALL FREAD (MSET,ELE,NEL,0) C C READ THE ELEMENT TYPES TO BE INCLUDED OR EXCLUDED IN THIS SET. C CALL FREAD (MSET,NTYPES,1,0) CALL FREAD (MSET,TYPE,NTYPES,0) C C GENERATE AN ECT FOR THE ELEMENTS INCLUDED IN THIS SET. C CALL GOPEN (ECT1,BUF(B1),INPREW) 20 CALL READ (*300,*300,ECT1,ETYPE,1,0,I) C C CHECK WHETHER OR NOT THIS ELEMENT TYPE IS TO BE EXCLUDED. C MTYPE = -1 LABGP = 1 IF (ETYPE .EQ. AE) LABGP = -2 IF (NTYPES .EQ. 0) GO TO 50 DO 30 I = 1,NTYPES,2 IF (-ETYPE .EQ. TYPE(I)) GO TO 40 30 CONTINUE GO TO 50 40 MTYPE = TYPE(I+1) C C THIS ELEMENT TYPE MAY BE INCLUDED AS A TYPE AND/OR SOME OF THEM C MAY BE INCLUDED SPECIFICALLY. READ -NGPPE- = NUMBER OF GRID C POINTS PER ELEMENT FOR THIS TYPE. C 50 CALL FREAD (ECT1,NGPPE,1,0) IF (NGPPE .LE. 0) GO TO 290 IDX = (ETYPE-1)*INCR NELTYP = 0 NE16 = NE(IDX+16) OFFSET = 0 IF (NE16 .EQ. BR) OFFSET = 6 IF (NE16.EQ.T3 .OR. NE16.EQ.Q4) OFFSET = 1 C C CHECK WHETHER OR NOT THIS ELEMENT TYPE IS TO BE INCLUDED. C IF (NTYPES.EQ.0 .OR. MTYPE.GE.0) GO TO 70 DO 60 I = 1,NTYPES,2 IF (ETYPE.EQ.TYPE(I) .OR. TYPE(I).EQ.NTYPS+1) GO TO 200 60 CONTINUE C C NOW CHECK WHETHER OR NOT ANY OF THE ELEMENTS OF THIS TYPE ARE C EXPLICITLY INCLUDED. PUT ALL SUCH ON THE NEW ECT (ECT2). C 70 CALL READ (*280,*280,ECT1,EID,2,0,I) CALL FREAD (ECT1,GPTS,NGPPE,0) IF (OFFSET .NE. 0) CALL FREAD (ECT1,OFF,OFFSET,0) IF (NEL .LE. 0) GO TO 70 M = 0 N = 1 C C FOR TYPES DELETED ONLY SEARCH LIST AFTER TYPE WAS KNOWN TO BE C DELETED (2ND WORD OF TYPE) C IF (MTYPE .GT. 0) N = MTYPE IF (N .GT. NEL) GO TO 110 80 CALL INTLST (ELE,N,SIGN,N1,N2) IF (SIGN .LT. 0) GO TO 90 IF (ELID.GE.N1 .AND. ELID.LE.N2) M = 1 GO TO 100 90 IF (ELID.GE.N1 .AND. ELID.LE.N2) M = 0 100 IF (N .LE. NEL) GO TO 80 110 CONTINUE IF (M .EQ. 0) GO TO 70 IF (NELTYP .NE. 0) GO TO 120 CALL WRITE (ECT2,NE(IDX+16),1,0) CALL WRITE (ECT2,NGPPE,1,0) 120 CALL WRITE (ECT2,EID,2,0) CALL WRITE (ECT2,GPTS,NGPPE,0) IF (OFFSET .NE. 0) CALL WRITE (ECT2,OFF,OFFSET,0) NELTYP = NELTYP + 1 DO 130 I = 1,NGPPE J = GPTS(I) GP(J) = LABGP 130 CONTINUE C C AERO ELEMENT - CENTER ONLY LABELED C IF (ETYPE .EQ. AE) GP(J) = 1 GO TO 70 C C THIS ELEMENT TYPE IS TO BE INCLUDED, EXCEPT THE ONES EXPLICITLY C EXCLUDED C C ONLY SEARCH LIST AFTER TYPE WAS INCLUDED C 200 MTYPE = TYPE(I+1) 210 CALL READ (*280,*280,ECT1,EID,2,0,I) CALL FREAD (ECT1,GPTS,NGPPE,0) IF (OFFSET .NE. 0) CALL FREAD (ECT1,OFF,OFFSET,0) IF (NEL .LE. 0) GO TO 250 M = 1 N = 1 IF (MTYPE .GT. 0) N = MTYPE IF (N .GT. NEL) GO TO 250 220 CALL INTLST (ELE,N,SIGN,N1,N2) IF (SIGN .GT. 0) GO TO 230 IF (ELID.GE.N1 .AND. ELID.LE.N2) M = 0 GO TO 240 230 IF (ELID.GE.N1 .AND. ELID.LE.N2) M = 1 240 IF (N .LE. NEL) GO TO 220 IF (M .EQ. 0) GO TO 210 250 IF (NELTYP .NE. 0) GO TO 260 CALL WRITE (ECT2,NE(IDX+16),1,0) CALL WRITE (ECT2,NGPPE,1,0) 260 CALL WRITE (ECT2,EID,2,0) CALL WRITE (ECT2,GPTS,NGPPE,0) IF (OFFSET .NE. 0) CALL WRITE (ECT2,OFF,OFFSET,0) DO 270 I = 1,NGPPE J = GPTS(I) GP(J) = LABGP 270 CONTINUE C C AERO ELEMENT - CENTER ONLY LABELED C IF (ETYPE .EQ. AE) GP(J) = 1 NELTYP = NELTYP + 1 GO TO 210 C C END OF NEW ECT FOR THIS ELEMENT TYPE C 280 IF (NELTYP .GT. 0) CALL WRITE (ECT2,0,1,0) GO TO 20 C C SKIP THIS ELEMENT TYPE (NON-EXISTENT) C 290 CALL FREAD (ECT1,0,0,1) GO TO 20 C C END OF ECT FOR THIS ELEMENT SET C 300 CALL CLOSE (ECT1,REW) CALL WRITE (ECT2,0,0,1) C C FLAG ALL GRID POINTS TO BE EXCLUDED FROM A DEFORMED SHAPE. C CALL FREAD (MSET,NGPTS,1,0) IF (NGPTS .GE. MAX) CALL MESAGE (-8,0,NAME) ELE(NGPTS+1) = 0 CALL FREAD (MSET,ELE,NGPTS,1) IF (NGPTS .LE. 0) GO TO 400 CALL GOPEN (EXGPID,BUF(B1),INPREW) DO 340 GPT = 1,NGP CALL FREAD (EXGPID,EXGP,1,0) CALL FREAD (EXGPID,INGP,1,0) M = 0 N = 1 310 CALL INTLST (ELE,N,SIGN,N1,N2) IF (SIGN .GT. 0) GO TO 320 IF (EXGP.GE.N1 .AND. EXGP.LE.N2) M = INGP GO TO 330 320 IF (EXGP.GE.N1 .AND. EXGP.LE.N2) M = 0 330 IF (N .LE. NGPTS) GO TO 310 IF (M .EQ. 0) GO TO 340 IF (GP(M) .NE. -2) GP(M) = -GP(M) 340 CONTINUE CALL CLOSE (EXGPID,REW) C C GENERATE A GRID POINT LIST FOR THIS SET (CONVERT THE INTERNAL C GRID POINT NUMBERS TO POINTERS TO THE GRID POINTS PECULIAR TO C THIS SET) C 400 CALL GOPEN (GRID,BUF(B1),OUTNOR) NGPTS = 0 DO 410 I = 1,NGP IF (GP(I) .EQ. 0) GO TO 410 NGPTS = NGPTS+1 GP(I) = ISIGN(NGPTS,GP(I)) 410 CONTINUE IF (NGPTS .NE. 0) GO TO 420 ERR(1) = 1 ERR(2) = SETID CALL WRTPRT (MERR,ERR,MSG1,NMSG1) C 420 CALL WRITE (GRID,NGPTS,1,0) CALL WRITE (GRID,GP,NGP,0) IF (SETNUM .NE. NSETS) CALL CLOSE (GRID,NOREW) 450 CONTINUE C C ALL DONE. THE SET DEFINITION FILE (MSET) + THE SHORT ECT FILE C (ECT1) WILL NOT BE NEEDED AGAIN. C CALL CLSTAB (GRID,REW) CALL CLSTAB (ECT2,REW) CALL CLOSE (MSET,REW) RETURN END ================================================ FILE: mis/com12.f ================================================ SUBROUTINE COM12 (*,IX,X,DX,ITERMM) C C******* C PROGRAM TO SOLVE A MATRIX OF ORDER ONE OR TWO FOR CDCOMP C******* DOUBLE PRECISION DX(12),DET,MINDIA,DZ,DA INTEGER SYSBUF,RDP,DUM INTEGER TYPEL INTEGER CDP INTEGER SCRFLG,JPOSL,BBAR,CBCNT,R,BBBAR1,BBBAR, 1 SR2FL,SR2FIL DIMENSION SUB(2),X(1),IX(1) COMMON /SYSTEM/ SYSBUF COMMON /CDCMPX/ IFILA(7),IFILL(7),IFILU(7),DUM(3),DET(2),POWER, 1 NX,MINDIA COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW,NOREW,EOFNRW ,RSP,RDP, 1 CSP,CDP COMMON /ZBLPKX/ DZ(2),JJ COMMON /PACKX / ITYPE1,ITYPE2,IY,JY,INCRY COMMON /UNPAKX/ ITYPEX,IXY,JXY,INCRX EQUIVALENCE (IFILA(2),NCOL),(IFILL(5),TYPEL),(SR2FIL,DUM(2)) DATA SUB(1), SUB(2) / 4HCOM1,4H2 / C IBUF1 = NX-SYSBUF IBUF2 = IBUF1-SYSBUF CALL CLOSE(SR2FIL,REW) IBUF3 = IBUF2-SYSBUF IFILE = IFILU(1) IF(ITERMM .EQ. 1) IFILE = SR2FIL CALL GOPEN(IFILE,IX(IBUF3),WRTREW) CALL GOPEN(IFILA(1),IX(IBUF1),RDREW) ITYPEX = CDP ITYPE1 = CDP ITYPE2 = TYPEL INCRX = 1 INCRY = 1 IF(NCOL .EQ. 2) GO TO 100 IF(NCOL .NE. 1) GO TO 5000 C******* C SOLVE A (1X1) C******* IXY = 1 JXY = 1 CALL UNPACK(*5060,IFILA(1),DX) DET(1) = DX(1) DET(2) = DX(2) MINDIA = DSQRT(DX(1)**2+DX(2)**2) IY = 1 JY = 1 CALL PACK (DX,IFILE,IFILU) DX(1) = 0.D0 DX(2) = 0.D0 CALL PACK (DX,IFILL(1),IFILL) 90 CALL CLOSE(IFILE,REW) 95 CALL CLOSE(IFILA(1),REW) CALL CLOSE(IFILL(1),REW) RETURN 100 IXY = 1 C******* C SOLVE A (2X2) C******* JXY = 2 CALL UNPACK(*5060,IFILA(1),DX ) CALL UNPACK(*5060,IFILA(1),DX(5)) A = 1. IF(DX(1)**2+DX(2)**2 .GE. DX(3)**2+DX(4)**2) GO TO 150 C******* C PERFORM INTERCHANGE C******* DET(1) = DX(1) DX(1) = DX(3) DX(3) = DET(1) DET(1) = DX(2) DX(2) = DX(4) DX(4) = DET(1) DET(1) = DX(5) DX(5) = DX(7) DX(7) = DET(1) DET(1) = DX(6) DX(6) = DX(8) DX(8) = DET(1) A = -1. 150 CONTINUE DET(1) = (DX(3)*DX(1)+DX(4)*DX(2))/(DX(1)**2+DX(2)**2) DX(4) = (DX(4)*DX(1)-DX(3)*DX(2))/(DX(1)**2+DX(2)**2) DX(3) = DET(1) DX(7) = DX(7)-DX(3)*DX(5)+DX(4)*DX(6) DX(8) = DX(8)-DX(3)*DX(6)-DX(4)*DX(5) DET(1) = DX(1)*DX(7)-DX(2)*DX(8) DET(2) = DX(2)*DX(7)+DX(1)*DX(8) IF((DX(1).EQ.0.D0 .AND. DX(2).EQ.0.D0) .OR. (DX(7).EQ.0.D0.AND. 1 DX(8).EQ.0.D0)) GO TO 5060 MINDIA = DMIN1(DSQRT(DX(1)**2+DX(2)**2),DSQRT(DX(7)**2+DX(8)**2)) IY = 1 JY = 2 DX( 9) = 0.0D0 DX(10) = 0.0D0 IF(A .LT. 0.) DX(9) = 1.D0 DX(11) = DX(3) DX(12) = DX(4) CALL PACK(DX(9),IFILL(1),IFILL) DX( 9) = 0.D0 DX(10) = 0.D0 JY = 1 CALL PACK(DX(9),IFILL(1),IFILL) IF(ITERMM .EQ. 1) GO TO 160 DX(3) = DX(5) DX(5) = DX(7) DX(7) = DX(3) DX(3) = DX(6) DX(6) = DX(8) DX(8) = DX(3) JY = 2 CALL PACK(DX(5),IFILU(1),IFILU) IY = 2 CALL PACK (DX,IFILU(1),IFILU) GO TO 90 160 CALL PACK(DX,IFILE,IFILU) JY = 2 CALL PACK(DX(5),IFILE,IFILU) CALL CLOSE(IFILE,EOFNRW) GO TO 95 C C ENTRY COMFIN (ITERM,SCRFLG,SR2FL,JPOSL,I1SP,BBAR,I1,CBCNT, 1 IPAK,R,BBBAR1,BBBAR,I6SP,I4,I4SP,IX,DX,X,LCOL) C IBUF1 = NX-SYSBUF IBUF2 = IBUF1-SYSBUF IBUF3 = IBUF2-SYSBUF CALL CLOSE(IFILA(1),REW) CALL OPEN(*5010,SR2FIL,IX(IBUF1),WRT) CALL CLOSE(SR2FIL,EOFNRW) K=0 NAME = IFILL(1) CALL OPEN(*5010,IFILL(1),IX(IBUF2),WRT) IF(SCRFLG.EQ.0) GO TO 2005 NAME = SR2FL CALL OPEN(*5010,SR2FL,IX(IBUF3),RD) 2005 LL = 0 2010 JPOSL = JPOSL+1 CALL BLDPK(CDP,TYPEL,IFILL(1),0,0) IN1 = I1SP+K JJ = JPOSL DZ(1) = IX(IN1) DZ(2) = 0.D0 CALL ZBLPKI KK = 0 IEND = MIN0(BBAR,NCOL-JJ) IF(IEND .EQ. 0) GO TO 2030 IN1 = I1 +LL*BBAR*2 2020 JJ = JJ+1 IN2 = IN1+KK+KK DZ(1) = DX(IN2) DZ(2) = DX(IN2+1) CALL ZBLPKI KK = KK+1 IF(KK-IEND)2020,2030,5050 2030 IF(CBCNT.EQ.0) GO TO 2050 C******* C PACK ACTIVE ROW ELEMENTS ALSO C******* KK = 0 2035 IN1 = I6SP + KK IN2 = I4 +(IX(IN1)*BBBAR+K)*2 DZ(1) = DX(IN2) DZ(2) = DX(IN2+1) IF(DZ(1) .EQ. 0.D0 .AND. DZ(2) .EQ. 0.D0) GO TO 2040 IN1 = I4SP + IX(IN1) JJ = IX(IN1) CALL ZBLPKI 2040 KK = KK + 1 IF(KK .LT. CBCNT) GO TO 2035 2050 CALL BLDPKN(IFILL(1),0,IFILL) LL = LL + 1 K = K + 1 IF (K .EQ. LCOL) GO TO 2080 IF(K-R+1)2010,2060,2070 2060 IF(R-BBBAR1)2070,2010,5050 2070 LL = LL-1 IN1 = I1+LL*BBAR*2 IBBAR4 = 4 * BBAR CALL READ(*5020,*5030,SR2FL,DX(IN1),IBBAR4,0,NO) GO TO 2010 2080 CALL CLOSE(IFILL(1),REW) IF(SCRFLG.GT.0)CALL CLOSE(SR2FL,REW) IF(ITERM .NE. 0) RETURN C******* C RE-WRITE THE UPPER TRIANGLE WITH THE RECORDS IN THE REVERSE ORDER C******* INCRX = 1 INCRY = 1 ITYPE1 = TYPEL ITYPE2 = TYPEL ITYPEX = TYPEL IFILU(2) = 0 IFILU(6) = 0 IFILU(7) = 0 NAME = SR2FIL CALL OPEN(*5010,SR2FIL,IX(IBUF1),RD) CALL GOPEN(IFILU(1),IX(IBUF2),WRTREW) DO 2300 I = 1,NCOL IXY = 0 CALL BCKREC(SR2FIL) CALL UNPACK(*5060,SR2FIL,IX) CALL BCKREC(SR2FIL) KK = JXY-IXY+1 K = KK/2 KK = KK + 1 IF(TYPEL .EQ. 1) GO TO 2095 IF(TYPEL .EQ. 4) GO TO 2061 DO 2090 J = 1,K L = KK-J DA = DX(J) DX(J) = DX(L) 2090 DX(L) = DA GO TO 2100 2061 KK = KK+KK-1 K = K+K DO 2092 J = 1,K,2 L = KK-J-1 DA = DX(L) DX(L) = DX(J) DX(J) = DA DA = DX(L+1) DX(L+1) = DX(J+1) 2092 DX(J+1) = DA GO TO 2100 2095 DO 2097 J = 1,K L = KK-J A = X(J) X(J) = X(L) 2097 X(L) = A 2100 IY = NCOL-JXY+1 JY = NCOL-IXY+1 CALL PACK(IX,IFILU(1),IFILU) 2300 CONTINUE CALL CLOSE(IFILU(1),REW) CALL CLOSE(SR2FIL,REW) RETURN 5000 NO = -8 GO TO 5500 5010 NO = -1 GO TO 5500 5020 NO = -2 GO TO 5500 5030 NO = -3 GO TO 5500 5050 NO = -25 GO TO 5500 5060 RETURN 1 5500 CALL MESAGE(NO,NAME,SUB(1)) RETURN END ================================================ FILE: mis/comb1.f ================================================ SUBROUTINE COMB1 C C THIS IS THE MODULE FOR THE COMBINATION OF SUBSTRUCTURES. C C IT IS PRIMARILY AN INITIALIZER AND DRIVER CALLING THE ROUTINES C NECESSARY TO PROCESS THE COMBINE. THE SUBROUTINES ARE C C CMCASE - READS THE CASECC DATA BLOCK AND INITIALIZES C PARAMETERS FOR THE COMBINE OPERATION. C CMTOC - GENERATES THE TABLE OF CONTENTS OF PSEUDO- C STRUCTURES BEING COMBINED AND THEIR COMPONENT C BASIC SUBSTRUCTURES. C BDAT01 - PROCESSES THE CONCT1 BULK DATA. C BDAT02 - PROCESSES THE CONCT BULK DATA. C BDAT03 - PROCESSES THE TRANS BULK DATA. C BDAT04 - PROCESSES THE RELES BULK DATA. C BDAT05 - PROCESSES THE GNEW BULK DATA. C BDAT06 - PROCESSES THE GTRAN BULK DATA. C CMSFIL - GENERATES SUBFIL - THE BASIC FILE USED TO STORE C THE DATA NECESSARY TO AFFECT THE COMBINATION. C CMCONT - GENERATES THE CONNECTION ENTRIES TO BE USED. C CMCKCD - CHECKS VALIDITY OF MANUALLY-SPECIFIED CONNECTIONS C CMAUTO - PROCESSES USERS REQUEST FOR AUTOMATIC C COMBINATION OF SUBSTRUCTURES. C CMRELS - APPLIES ANY MANUAL RELEASE DATA TO THE SYSTEM. C CMCOMB - PROCESSES MULTIPLY CONNECTED POINTS. C CMDISC - PROCESSES GRID POINTS NOT TO BE CONNECTED. C CMSOFO - GENERATES NEW SOF ITEMS FOR THE RESULTANT C COMBINED STRUCTURE. C CMHGEN - GENERATES THE DOF TRANSFORMATION MATRIX FOR C EACH COMPONENT TO THE COMBINATION C LOGICAL TDAT,CONECT,IAUTO,TRAN,MCON,TOCOPN,LONLY INTEGER SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,GEOM4, 1 CASECC,BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,DRY,STEP, 2 SYS,OUTT,AAA(2),RESTCT,SCCSTM,SCR3 CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC, 1 GEOM4,CASECC,SCCSTM,SCR3 COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INTP,OUTT COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT,TOCOPN COMMON /CMB004/ TDAT(6),NIPNEW,CNAM(2),LONLY COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYS(69) COMMON /BLANK / STEP,DRY DATA AAA / 4HCOMB,4H1 / C IF (DRY.EQ.0 .OR. DRY.EQ.-2) GO TO 210 SCR1 = 301 SCR2 = 302 SCBDAT = 303 SCSFIL = 304 SCCONN = 305 SCMCON = 306 SCTOC = 307 SCCSTM = 308 SCR3 = 309 GEOM4 = 102 CASECC = 101 DO 10 I = 1,6 TDAT(I) = .FALSE. 10 CONTINUE DO 20 I = 1,7 DO 20 J = 1,3 ORIGIN(I,J) = 0.0 20 CONTINUE LONLY = .FALSE. INTP = SYS(4) OUTT = SYS(2) IBUF = SYS(1) C NZ = KORSZ(Z(1)) BUF1 = NZ - IBUF - 2 BUF2 = BUF1 - IBUF BUF3 = BUF2 - IBUF BUF4 = BUF3 - IBUF BUF5 = BUF4 - IBUF IB1 = BUF5 - IBUF IB2 = IB1 - IBUF IB3 = IB2 - IBUF SCORE = 1 LCORE = IB3 - 1 IF (LCORE .GT. 0) GO TO 30 CALL MESAGE (8,0,AAA) DRY = -2 GO TO 210 C 30 CALL OPEN (*120,SCCONN,Z(BUF2),1) CALL CLOSE (SCCONN,2) CALL SOFOPN (Z(IB1),Z(IB2),Z(IB3)) C CALL CMCASE IF (DRY .EQ. -2) GO TO 130 CALL CMTOC IF (.NOT.LONLY) GO TO 40 CALL CMSOFO GO TO 70 C 40 IFILE = GEOM4 CALL PRELOC (*90,Z(BUF1),GEOM4) IF (.NOT.CONECT) GO TO 50 CALL BDAT01 CALL BDAT02 50 IFILE = SCBDAT CALL OPEN (*120,SCBDAT,Z(BUF2),1) CALL BDAT05 CALL BDAT06 CALL BDAT03 CALL CLOSE (GEOM4,1) C CALL CMSFIL CALL PRELOC (*100,Z(BUF1),GEOM4) CALL BDAT04 CALL CLOSE (GEOM4,1) IF (DRY .EQ. -2) GO TO 150 60 IF (TDAT(1) .OR. TDAT(2)) CALL CMCONT IF (DRY .EQ. -2) GO TO 170 CALL CMAUTO IF (TDAT(1) .OR. TDAT(2)) CALL CMCKCD IF (DRY .EQ. -2) GO TO 170 IF (TDAT(4)) CALL CMRELS CALL CMMCON (NCE) NPS = NPSUB + 1 NDOF = 6 IF (MCON) CALL CMCOMB (NPS,NCE,NDOF,Z) IF (DRY .EQ. -2) GO TO 170 C CALL CMCKDF IF (DRY .EQ. -2) GO TO 170 CALL CMDISC CALL CMSOFO CALL CMHGEN C 70 CALL SOFCLS IF (TOCOPN) CALL CLOSE (SCTOC,1) WRITE (OUTT,80) UIM 80 FORMAT (A29,' 6521, MODULE COMB1 SUCCESSFULLY COMPLETED.') GO TO 210 C 90 IF (CONECT .OR. TRAN) GO TO 100 IFILE = SCBDAT CALL OPEN (*120,SCBDAT,Z(BUF2),1) CALL EOF (SCBDAT) CALL CLOSE (SCBDAT,1) CALL CMSFIL IF (.NOT.CONECT) GO TO 60 C C ERRORS C 100 WRITE (OUTT,110) UFM 110 FORMAT (A23,' 6510, THE REQUESTED COMBINE OPERATION REQUIRES ', 1 'SUBSTRUCTURE BULK DATA WHICH HAS NOT BEEN GIVEN.') GO TO 190 120 CALL MESAGE (1,SCBDAT,AAA) GO TO 170 130 WRITE (OUTT,140) UFM 140 FORMAT (A23,' 6535, MODULE COMB1 TERMINATING DUE TO ABOVE ', 1 'SUBSTRUCTURE CONTROL ERRORS.') GO TO 200 150 WRITE (OUTT,160) UFM 160 FORMAT (A23,' 6536, MODULE COMB1 TERMINATING DUE TO ABOVE ERRORS', 1 ' IN BULK DATA.') GO TO 190 170 WRITE (OUTT,180) UFM 180 FORMAT (A23,' 6537, MODULE COMB1 TERMINATING DUE TO ABOVE ERRORS') 190 IF (TOCOPN) CALL CLOSE (SCTOC,1) 200 DRY = -2 CALL SOFCLS 210 RETURN END ================================================ FILE: mis/comb2.f ================================================ SUBROUTINE COMB2 C C COMB2 PERFORMS THE TRANSFORMATION AND ADDITION OF STIFFNESS, MASS, C OR LOAD MATRICES FOR THE PHASE 2 SUBSTRUCTURE COMBINE OPERATION C C NOVEMBER 1973 C C LOGICAL ADDFLG INTEGER TFLAG ,SIGNAB ,SIGNC ,PREC , 1 SCR1 ,SCR2 ,SCR3 ,SCR4 ,SCR5 , 2 RULE ,TYPIN ,TYPOUT ,ACOMB ,AMCB(7,7) , 3 HMCB(6,7),SOF1 ,SOF2 ,SOF3 ,DRY , 4 BUF1 ,RDSOF ,RC ,USE ,HORG , 5 PVEC ,RFILES ,IZ(1) ,RECT ,RSP , 6 NAME(2) ,RSOFAR ,KMP(5) ,TYPE ,KMPITM(5) , 7 BLANK ,SYSBUF ,CPV(7) ,RPV(7) ,SCR6 , 8 XXXX ,SCR7 ,PORA ,PAPP DOUBLE PRECISION DBZ(1) DIMENSION MCBTRL(7) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /BLANK / DRY ,TYPE(2) ,PORA(2) ,NAMESS(2,7), 1 ACOMB ,USE(14) ,RFILES(3) ,KK , 2 KN ,JN COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQUARE , 3 RECT COMMON /PACKX / TYPIN ,TYPOUT ,IROW ,NROW , 1 INCR COMMON /PARMEG/ MCBP(7) ,MCBP11(7) ,MCBP21(7) ,MCBP12(7) , 1 MCBP22(7) ,MRGZ ,RULE COMMON /MPY3TL/ MCBA2(7) ,MCBB2(7) ,MCBC2(7) ,MCBD2(7) , 1 SCR5 ,SCR6 ,SCR7 ,LKORE , 2 ICODE ,IPREC ,DUMMY(13) COMMON /MPYADX/ MCBA(7) ,MCBB(7) ,MCBC(7) ,MCBD(7) , 1 LCORE ,TFLAG ,SIGNAB ,SIGNC , 2 PREC ,MSCR ,DUMM COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (DBZ(1),Z(1),IZ(1)),(PVEC,KMPITM(3)) DATA NAME / 4HCOMB,4H2 / DATA HORG / 4HHORG / DATA BLANK / 4H / DATA XXXX / 4HXXXX / DATA PAPP / 4HPAPP / DATA KMP / 4HK , 4HM , 4HP , 4HB , 4HK4 / DATA KMPITM / 4HKMTX, 4HMMTX, 4HPVEC, 4HBMTX, 4HK4MX / C C INITIALIZE C DO 5 I = 1,14 IF (NAMESS(I,1).EQ.XXXX .OR. NAMESS(I,1).EQ.0) NAMESS(I,1) = BLANK 5 CONTINUE ACOMB = 201 SCR1 = 301 SCR2 = 302 SCR3 = 303 SCR4 = 304 SCR5 = 305 SCR6 = 306 SCR7 = 307 SIGNAB= 1 SIGNC = 1 PREC = 0 MSCR = SCR5 ICODE = 0 RULE = 0 RDSOF = 1 NOGO = 0 RFILES(1) = ACOMB NSIZE = 0 MCBP21(1) = 0 MCBP22(1) = 0 RSOFAR = 0 KN = 1 JN =-1 DO 10 I = 1,5 IF (TYPE(1) .EQ. KMP(I)) GO TO 20 10 CONTINUE WRITE (NOUT,6302) SFM,TYPE IF (DRY .LT. 0) RETURN C DRY =-2 ITEM = 0 GO TO 30 20 ITEM = KMPITM(I) IF (ITEM .EQ. PVEC) ITEM = PORA(1) IF (DRY .LT. 0) RETURN C 30 LCORE = KORSZ(Z) - 1 LKORE = LCORE BUF1 = LCORE - SYSBUF + 1 SOF1 = BUF1 - SYSBUF SOF2 = SOF1 - SYSBUF - 1 SOF3 = SOF2 - SYSBUF IF (SOF3 .GT. 0) GO TO 40 CALL MESAGE (8,0,NAME) DRY =-2 RETURN C 40 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) C C GRAB THE MATRIX CONTROL BLOCKS C NMAT = 0 DO 170 I = 1,7 IF (NAMESS(1,I) .EQ. BLANK) GO TO 170 AMCB(1,I) = 100 + I CALL RDTRL (AMCB(1,I)) IF (AMCB(1,I) .GT. 0) GO TO 135 C C NO GINO FILE. CHECK SOF C CALL SOFTRL (NAMESS(1,I),ITEM,AMCB(1,I)) RC = AMCB(1,I) GO TO (130,110,115,120,120), RC 110 NOGO = 1 WRITE (NOUT,6301) SFM,NAMESS(1,I),NAMESS(2,I),ITEM GO TO 170 115 IF (TYPE(1) .EQ. KMP(3)) GO TO 170 120 NOGO = 1 CALL SMSG (RC-2,ITEM,NAMESS(1,I)) GO TO 170 C C MATRIX FOUND ON SOF C 130 CONTINUE AMCB(1,I) = 0 C C GRAB THE MCB OF THE TRANSFORMATION MATRIX C 135 CALL SOFTRL (NAMESS(1,I),HORG,MCBTRL) RC = MCBTRL(1) GO TO (160,140,150,155,155), RC 140 NOGO = 1 CALL SMSG (1,HORG,NAMESS(1,I)) GO TO 170 150 NOGO = 1 WRITE (NOUT,6303) SFM,NAMESS(1,I),NAMESS(2,I) GO TO 170 155 NOGO = 1 CALL SMSG (RC-2,HORG,NAMESS(1,I)) GO TO 170 160 DO 161 IT = 1,6 161 HMCB(IT,I) = MCBTRL(IT+1) NMAT = NMAT + 1 USE(2*NMAT-1) = I DEN = FLOAT(AMCB(7,I))/10000. USE(2*NMAT) = AMCB(2,I)*AMCB(3,I)*DEN C C CHECK COMPATIBILITY OF DIMENSIONS C IF (NSIZE .EQ. 0) NSIZE = HMCB(1,I) IF (HMCB(1,I).EQ.NSIZE .AND. HMCB(2,I).EQ.AMCB(2,I) .AND. 1 HMCB(2,I).EQ.AMCB(3,I)) GO TO 170 IF (ITEM.EQ.PVEC .OR. ITEM.EQ.PAPP .AND. HMCB(1,I).EQ.NSIZE .AND. 1 HMCB(2,I).EQ.AMCB(3,I)) GO TO 170 NOGO = 1 WRITE (NOUT,6304) SFM,I,NAMESS(1,I),NAMESS(2,I) 170 CONTINUE IF (NOGO .EQ. 0) GO TO 175 C 174 DRY =-2 WRITE (NOUT,177) AMCB,HMCB 177 FORMAT ('0*** COMB2 MATRIX TRAILER DUMP', 1 //7(4X,7I10/), /7(11X,6I10/)) GO TO 9999 C 175 IF (NMAT .EQ. 0) GO TO 9999 C C DETERMINE PRECISION FOR FINAL MATRIX C IPRC = 1 ITYP = 0 DO 176 I = 1,NMAT IF (AMCB(5,I).EQ.2 .OR. AMCB(5,I).EQ.4) IPRC = 2 IF (AMCB(5,I) .GE. 3) ITYP = 2 176 CONTINUE IPREC = ITYP + IPRC C IF (ITEM.EQ.PVEC .OR. ITEM.EQ.PAPP) GO TO 300 C ****** C * C PROCESS STIFFNESS, MASS OR DAMPING MATRICES * C * C ****** C C IF NMAT IS ODD, PUT FIRST RESULT ON ACOMB. IF EVEN, PUT IT ON C SCR4. FINAL RESULT WILL THEN BE ON ACOMB. C CALL SORT (0,0,2,2,USE,2*NMAT) IRF = 1 IF ((NMAT/2)*2 .EQ. NMAT) IRF = 2 IFORM = 6 RFILES(2) = SCR4 ADDFLG =.FALSE. C DO 230 KK = 1,NMAT J = 2*KK - 1 JN = JN + 2 INUSE = USE(JN) C C MOVE TRANSFORMATION MATRIX TO SCR2 C CALL MTRXI (SCR2,NAMESS(1,INUSE),HORG,Z(BUF1),RC) C C IF INPUT MATRIX IS ON SOF, MOVE IT TO SCR1 C MCBB2(1) = 100 + INUSE IF (AMCB(1,INUSE) .GT. 0) GO TO 180 MCBB2(1) = SCR1 CALL MTRXI (SCR1,NAMESS(1,INUSE),ITEM,Z(BUF1),RC) C C PERFORM TRIPLE MULTIPLY H(T)*INPUT*H C 180 CALL SOFCLS MCBA2(1) = SCR2 MCBC2(1) = 0 IF (ADDFLG) MCBC2(1) = RFILES(3-IRF) ADDFLG = .TRUE. DO 190 J = 2,7 MCBA2(J) = HMCB(J-1,INUSE) MCBB2(J) = AMCB(J,INUSE) 190 CONTINUE IF (MCBB2(4) .LE. 2) IFORM = MCBB2(4) CALL MAKMCB (MCBD2,RFILES(IRF),HMCB(1,INUSE),IFORM,IPREC) C CALL MPY3DR (Z) C CALL WRTTRL (MCBD2) DO 220 J = 2,7 220 MCBC2(J) = MCBD2(J) IRF = 3 - IRF CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) 230 CONTINUE GO TO 9999 C ****** C * C PROCESS LOAD MATRICES * C * C**** ****** 300 MCBC(1) = 0 MCBA(1) = SCR2 TFLAG = 1 MRGZ = LCORE PREC = 0 C C SELECT FIRST RESULT FILE SO THAT FINAL RESULT WILL WIND UP ON C ACOMB C RFILES(2) = SCR3 RFILES(3) = SCR4 IRF = 1 IF (NMAT.EQ.2 .OR. NMAT.EQ.5) IRF = 2 IF (NMAT.EQ.3 .OR. NMAT.EQ.6) IRF = 3 IF (NMAT .EQ. 1) MCBP(1) = ACOMB C C CREATE COLUMN PARTITIONING VECTOR FOR ALL MERGES C (VECTOR IS ALWAYS NULL) C CALL MAKMCB (CPV,SCR6,NSIZE,RECT,RSP) TYPIN = RSP TYPOUT = RSP IROW = 1 NROW = 1 INCR = 1 CALL GOPEN (SCR6,Z(BUF1),WRTREW) CALL PACK (0,SCR6,CPV) CALL CLOSE (SCR6,REW) ADDFLG =.TRUE. C DO 400 KK = 1,NMAT INUSE = USE(2*KK-1) C C COPY TRANSFORMATION MATRIX TO SCR2 C CALL MTRXI (SCR2,NAMESS(1,INUSE),HORG,Z(BUF1),RC) C C IF LOAD MATRIX IS ON SOF, COPY IT TO SCR1 C MCBB(1) = 100 + INUSE IF (AMCB(1,INUSE) .GT. 0) GO TO 330 MCBB(1) = SCR1 CALL MTRXI (SCR1,NAMESS(1,INUSE),ITEM,Z(BUF1),RC) C C MULTIPLY (HT * A) AND STORE RESULT ON RFILES(IRF) C (ACOMB,SCR3, OR SCR4) C 330 CALL SOFCLS DO 340 J = 2,7 MCBA(J) = HMCB(J-1,INUSE) MCBB(J) = AMCB(J,INUSE) 340 CONTINUE IF (MCBB(6).EQ.0 .OR. MCBA(3).EQ.MCBB(3)) GO TO 350 I = KK NOGO = 1 WRITE (NOUT,6304) SFM,I,NAMESS(1,I),NAMESS(2,I) GO TO 174 350 CALL MAKMCB (MCBD,RFILES(IRF),HMCB(1,INUSE),RECT,IPREC) C CALL MPYAD (Z,Z,Z) C IF (ADDFLG) GO TO 390 C C COMPUTE ROW PARTITIONING VECTOR TO MERGE RESULT OF THIS MULTIPLY C WITH ALL PREVIOUS RESULTS C K = AMCB(2,INUSE) CALL MAKMCB (RPV,SCR5,RSOFAR+K,RECT,RSP) IF (K .GT. LCORE) GO TO 9008 DO 360 J = 1,K 360 Z(J) = 1.0E0 TYPIN = RSP TYPOUT= RSP IROW = RSOFAR + 1 NROW = RSOFAR + K INCR = 1 CALL GOPEN (SCR5,Z(BUF1),WRTREW) CALL PACK (Z,SCR5,RPV) CALL CLOSE (SCR5,REW) C C MERGE MATRICES STORE RESULT ON NEXT AVAILABLE RFILE C J = MOD(IRF,3) + 1 CALL MAKMCB (MCBP,RFILES(J),NSIZE,RECT,IPREC) MCBP(2) = RPV(3) J = MOD(J,3) + 1 MCBP11(1) = RFILES(J) MCBP12(1) = RFILES(IRF) DO 380 J = 2,7 MCBP11(J) = MCBP(J) MCBP12(J) = MCBD(J) 380 CONTINUE C CALL MERGE (RPV,CPV,Z) C IRF = MOD(IRF,3) + 1 GO TO 395 390 DO 391 J = 2,7 391 MCBP(J) = MCBD(J) 395 RSOFAR = RSOFAR + AMCB(2,INUSE) ADDFLG =.FALSE. IRF = MOD(IRF,3) + 1 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) 400 CONTINUE CALL WRTTRL (MCBP) GO TO 9999 C C DIAGNOSTICS C 6301 FORMAT (A25,' 6301, DATA MISSING IN GO MODE FOR SUBSTRUCTURE ', 1 2A4,' ITEM ',A4) 6302 FORMAT (A25,' 6302, ',2A4,' IS ILLEGAL MATRIX TYPE FOR MODULE ', 1 'COMB2') 6303 FORMAT (A25,' 6303, H OR G TRANSFORMATION MATRIX FOR SUBSTRUCTURE' 1, 1X,2A4,' CANNOT BE FOUND ON SOF') 6304 FORMAT (A25,' 6304, MODULE COMB2 INPUT MATRIX NUMBER ',I2, 1 ' FOR SUBSTRUCTURE ,2A4,28H HAS INCOMPATIBLE DIMENSIONS') 9008 CALL MESAGE (8,0,NAME) C C NORMAL COMPLETION C 9999 CALL SOFCLS RETURN END ================================================ FILE: mis/combin.f ================================================ SUBROUTINE COMBIN (PG,ILIST,NLIST) C INTEGER SYSBUF,PG,NAME(2),HCFLDS,HCFLD,HCCENS,HCCEN,OTPE, 1 REMFLS,REMFL,MCB(7) DIMENSION ARY(1),ILIST(1),ALPHA(360),LOADN(360),LOADNN(360), 1 IARY(1),ALPHA1(360),LODC1(7),HEAD(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /LOADX / LC,N(13),LODC,MASS COMMON /BLANK / NROWSP COMMON /SYSTEM/ SYSBUF,OTPE,DUM52(52),IPREC COMMON /ZZZZZZ/ CORE(1) COMMON /LOADS / NLOAD,IPTR COMMON /ZNTPKX/ A(4),LL,IEOL,IEOR COMMON /PACKX / ITA,ITB,II,JJ,INCUR EQUIVALENCE (CORE(1),IARY(1),ARY(1)) C C ALSO COMBINE HCFLD AND REMFL IN MAGNETOSTATIC PROBLEMS C DATA HCFLDS, HCFLD /304,202/ DATA REMFLS, REMFL /305,203/ DATA HCCENS, HCCEN /307,204/ DATA NAME / 4HCOMB,4HIN / C C ITA = 1 ITB = IPREC II = 1 C C PERFORM CHECKS IN E AND M PROBLEM C IN E AND M PROBLEM, REMFLS AND HCFLDS MUST HAVE THE SAME NUMBER C OF COLUMNS AS PG C MCB(1) = REMFLS CALL RDTRL (MCB) NPERMS = 0 IF (MCB(1) .LE. 0) GO TO 1 NPERMS = MCB(2) 1 MCB(1) = HCFLDS CALL RDTRL (MCB) NHC = 0 IF (MCB(1) .LE. 0) GO TO 2 NHC = MCB(2) 2 IF (NHC .NE. NPERMS) GO TO 300 IF (NHC .EQ. 0) GO TO 5 MCB(1) = PG CALL RDTRL (MCB) IF (NHC .NE. MCB(2)) GO TO 300 5 CONTINUE MCB(1) = HCCENS CALL RDTRL (MCB) NS = 0 IF (MCB(1) .LE. 0) GO TO 6 NS = MCB(2) 6 IF (NS .NE. NHC) GO TO 300 JJ = NROWSP INCUR = 1 LCORE = LC IBUF1 = LCORE LCORE = LCORE - SYSBUF CALL OPEN (*200,LODC,CORE(LCORE+1),1) CALL FNAME (LODC,HEAD) CALL WRITE (LODC,HEAD,2,1) LCORE = LCORE - SYSBUF CALL OPEN (*190,PG,CORE(LCORE+1),0) CALL MAKMCB (LODC1,LODC,NROWSP,2,IPREC) NLJ = IPTR NL1 = 0 DO 160 I = 1,NLOAD DO 10 J = 1,NROWSP 10 CORE(J) = 0.0 NLJ = NLJ + NL1*2 + 1 NL1 = IARY(NLJ) DO 20 K = 1,NL1 KK = NLJ + (K-1)*2 + 1 LOADN(K) = IARY(KK) IF (LOADN(K) .LT. 0) GO TO 150 20 ALPHA(K) = ARY(KK+1) KK = 1 KL = 0 DO 60 K = 1,NLIST IF (ILIST(K)) 30,60,30 30 KL = KL + 1 DO 40 J = 1,NL1 IF (LOADN(J)-ILIST(K)) 40,50,40 40 CONTINUE GO TO 60 50 LOADNN(KK) = KL ALPHA1(KK) = ALPHA(J) KK = KK + 1 60 CONTINUE KK = 1 DO 140 J = 1,NL1 INULL = 0 IF (J .NE. 1) GO TO 70 CALL SKPREC (PG,1) 70 CALL INTPK (*120,PG,0,1,0) 80 IF (LOADNN(J)-KK) 90,100,90 90 IF (INULL .EQ. 1) GO TO 91 IF (IEOR .EQ. 0) CALL SKPREC (PG,1) 91 CONTINUE KK = KK + 1 INULL = 0 GO TO 70 100 IF (INULL .EQ. 1) GO TO 130 IF (IEOL) 130,110,130 110 CALL ZNTPKI CORE(LL) = CORE(LL) + A(1)*ALPHA1(J) GO TO 100 120 INULL = 1 GO TO 80 130 KK = KK + 1 140 CONTINUE 150 CALL PACK (CORE,LODC1(1),LODC1) CALL REWIND (PG) 160 CONTINUE CALL WRTTRL (LODC1(1)) CALL CLOSE (LODC1(1),1) CALL CLOSE (PG,1) IF (PG .EQ. HCFLDS) GO TO 170 IF (PG .EQ. REMFLS) GO TO 180 IF (PG .EQ. HCCENS) RETURN C C DO MAGNETOSTATIC FIELDS FOR USE IN EMFLD C LODC1(1) = HCFLDS CALL RDTRL (LODC1) C C IF HCFLD IS PURGED, SO MUST REMFLS C IF (LODC1(2) .LE. 0) RETURN PG = HCFLDS LODC = HCFLD NROWSP = 3*NROWSP GO TO 5 C C DO REMFLS C 170 LODC1(1) = REMFLS CALL RDTRL (LODC1) IF (LODC1(2) .LE. 0) RETURN PG = REMFLS LODC = REMFL NROWSP = LODC1(3) GO TO 5 C C HCCENS C 180 LODC1(1) = HCCENS CALL RDTRL (LODC1) IF (LODC1(2).LE.0) RETURN PG = HCCENS LODC = HCCEN NROWSP = LODC1(3) GO TO 5 190 IP1 = PG 195 CALL MESAGE (-1,IP1,NAME) 200 IF (LODC .EQ. HCFLD) RETURN IP1 = LODC GO TO 195 300 WRITE (OTPE,350) UFM 350 FORMAT (A23,', IN AN E AND M PROBLEM, SCRATCH DATA BLOCKS HCFLDS', 1 ' AND REMFLS HAVE DIFFERENT NUMBERS OF COLUMNS.', /10X, 2 ' THIS MAY RESULT FROM SPCFLD AND REMFLU CARDS HAVING THE', 3 ' SAME LOAD SET ID') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/combo.f ================================================ SUBROUTINE COMBO (CDATA,NX,EXTRA,NNAM,NAME,NN,VAR,IER) C C THIS ROUTINE PROCESSES THE COMBINE INPUT. C THE INPUT/ OUTPUTS ARE C C CDATA - XRCARD IMAGE OF COMBINE CARD (IN) C NX - NUMBER OF EXTRAS (IN) C EXTRA - 3 BY NX ARRAY OF EXTRAS (IN) C NNAM - NUMBER OF CURRENT SUBS NAMES (IN/OUT) C NAMES - ARRAY OF CURRENT SUBS NAMES (IN/OUT) C NN - NUMBER OF SUBS TO BE COMBINED (OUT) C VAR - 3 BY NVAR ARRAY OF VARIABLES (OUT) C ARRANGED AS- KEY WORD + 2 DATA WORDS C C C C EXTERNAL RSHIFT ,COMPLF C INTEGER CDATA(5) ,EXTRA(3,1) ,NAME(2,1) ,VAR( 3,2) INTEGER RSHIFT ,COMPLF ,EQSN C DIMENSION INUM(7) ,NUMBS(7) ,MOPT(3) ,MSORT(3) ,NAI(7) C DATA INUM / 4HN1 , 4HN2 ,4HN3 ,4HN4 ,4HN5 ,4HN6 ,4HN7 / DATA LPRN, NOPT, NSORT, MOPT ,MSORT / 1 4H( , 4HOPTS, 4HSORT,4HAUTO,4HMAN ,4HREST,4HX ,4HY , 2 4HZ / DATA MANU / 4HMANU/ DATA NNO / 4HNAME/ ,NNC /4HNAMC/, NAMS /4HNAMS/ DATA NAI / 4HNA1 ,4HNA2 ,4HNA3 ,4HNA4 ,4HNA5 ,4HNA6 ,4HNA7 / DATA NCNO / 4HNCNO/ DATA EQSN / 4H= / C C LWORD = RSHIFT( COMPLF(0),1) IER = 0 C COMBINE OPERATION C PROCESS PRIMARY CARD -COMBINE( OPTS,SORT) = NAME1,NAME2, ETC C SET DEFAULTS DO 1210 I =1,150 1210 VAR(I,1) = 0 JNAM = 6 VAR(1,1) = NOPT VAR(2,1) = MOPT(1) VAR(1,2) = NSORT VAR(2,2) = MSORT(1) IF( CDATA(5) .NE. LPRN) GO TO 1220 K = 6 C C PROCESS AUTO/MAN OR XYZ C 1211 DO 1215 I =1,3 IF ( CDATA(K) .NE. MOPT(I)) GO TO 1212 VAR(2,1) = MOPT(I) GO TO 1216 1212 IF ( CDATA(K) .NE. MANU) GO TO 1213 VAR(2,1) = MOPT(2) GO TO 1216 1213 IF ( CDATA(K) .NE. MSORT(I)) GO TO 1215 VAR(2,2) = MSORT(I) GO TO 1216 1215 CONTINUE C NOT VALID ASSUME EQ SIGN OR NAME C GO TO 1222 1216 K = K+2 GO TO 1211 C C NO OPTION 1220 K = 4 C C CHECK FOR EQ SIGN 1222 IF ( CDATA( K+1) .EQ. EQSN) K =K+2 C C PROCESS NAMES NN = 0 DO 1235 I = 1,7 KN = K + 2*I -2 IF ( CDATA( KN) .EQ. LWORD) GO TO 1236 C VAR(1,I+2) = NAMS VAR(2,I+2) = CDATA(KN) VAR(3,I+2) = CDATA(KN+1) C C FIND STRUCTURE NUMBER IF ( NNAM .EQ. 0 ) GO TO 1231 DO 1230 J =1, NNAM IF ( CDATA(KN) .NE. NAME(1,J) .OR. CDATA(KN+1).NE.NAME(2,J)) 1 GO TO 1230 NUMBS(I) = J GO TO 1232 1230 CONTINUE C C NEW NAME C 1231 NNAM = NNAM +1 NUMBS(I) = NNAM NAME(1,NNAM) = CDATA(KN) NAME(2,NNAM) = CDATA(KN+1) 1232 NN= NN+1 1235 CONTINUE C C C MOVE EXTRAS INTO PLACE CHANGE NAME TO NAMC 1236 IC = 0 DO 1240 J = 1,NX IX = J +3*NN +2 IF ( EXTRA(1,J) .NE. NNO ) GO TO 1238 EXTRA(1,J) = NNC IC = IX 1238 DO 1240 K = 1,3 VAR( K,IX) = EXTRA(K,J) 1240 CONTINUE C C SET STRUCTURE NUMBER KEYS C IF( NN .EQ. 0) GO TO 1248 C DO 1245 I = 1, NN C IX = I + NN +2 VAR(1,IX) = INUM(I) VAR(2,IX) = -1 VAR(3,IX) = NUMBS(I) IY = IX+NN VAR(1,IY) = NAI(I) VAR(2,IY) = VAR(2,I+2) VAR(3,IY) = VAR(3,I+2) 1245 CONTINUE GO TO 1250 1248 IER = 1 C C CHECK FOR NAMC AS A PREVIOUS NAME OR MISSING 1250 IF ( IC .EQ. 0) GO TO 1265 DO 1260 J =1,NNAM IF (VAR(2,IC).NE. NAME(1,J).OR.VAR(3,IC).NE. NAME(2,J)) GO TO 1260 GO TO 1265 1260 CONTINUE C C OK -NEW NAME , ADD TO LIST C NNAM = NNAM+1 NAME(1,NNAM) = VAR(2,IC) NAME(2,NNAM) = VAR(3,IC) IX = NX+3*NN+3 VAR(1,IX) = NCNO VAR(2,IX) = -1 VAR(3,IX) = NNAM RETURN 1265 IER = IER +2 RETURN END ================================================ FILE: mis/comect.f ================================================ SUBROUTINE COMECT (ELE,MAX) C C REVISED 10/1990 BY G.CHAN/UNISYS C TO INCLUDE OFFSET DATA FOR CBAR, CTRIA3 AND CQUAD4 IN C THE ECT2 DATA BLOCK C (6 COORDINATE VALUES FOR THE BAR, AND 1 OFFSET VALUE C FOR EACH OF THE TWO PLATES, ARE ADDED AFTER THE GRID C DATA) C INTEGER IDREC(3),ELE(1),ELID(2),TYPE,IHX2(20),IHX3(32), 1 ECT1,ECT2,BUFSIZ,B1,B2,GP(32),OUTREW,REW,M1(18), 2 NAME(2),ERR(5),EPT,PID,IX(1),PCOMP(12) REAL OFFSET(1) COMMON /BLANK / SKP1(12),ECT1,SKP2(7),MERR,SKP3(10),ECT2 COMMON /SYSTEM/ BUFSIZ COMMON /ZZZZZZ/ X(1) COMMON /GPTA1 / NEL,LAST,INCR,NE(1) EQUIVALENCE (OFFSET(1),GP(1)), (IX(1),X(1)) DATA NAME / 4H COM,4HECT /, OUTREW,REW,INREW / 1, 1, 0 / DATA PCOMP / 5502,25,2, 5602,14,2, 5702,13,2, 5802,17,17 / C PCOMP PCOMP1 PCOMP2 PSHELL DATA NM1 / 18 /, 1 M1 / 4H(33X, 4H,2A4, 4H,18H, 4HIGNO, 4HRING, 4H ELE, 2 4HMENT, 4H (2A, 4H4,32, 4HH) W, 4HITH , 4HMORE, 3 4H THA, 4HN 32, 4H CON, 4HNECT, 4HIONS, 4H.) /, 4 ILXX / 2HXX / DATA IHX2 / 1,1,3,3,5,5,7,7,1,3,5,7,13,13,15,15,17,17,19,19/ DATA IHX3 / 1,1,4,4,4,7,7,7,10,10,10,1,1,4,7,10,21,24,27,30, 1 21,21,24,24,24,27,27,27,30,30,30,21 / C B1 = KORSZ(X) - (3*BUFSIZ+2) B2 = B1 + BUFSIZ + 3 ERR(1) = 4 ERR(2) = NAME(1) ERR(3) = NAME(2) C C IF EPT FILE IS PRESENT, AND ANY OF THE PSHELL, PCOMP, PCOMP1 AND C PCOMP2 CARDS IS ALSO PRESENT, CREATE A TABLE OF PROPERTY ID AND C OFFSET DATA, TO BE USE LATER BY CTRIA3 OR CQURD4 ELEMENTS C JCOMP = B1 EPT = 104 CALL OPEN (*40,EPT,X(B1),INREW) CALL READ (*30,*30,EPT,IX,2,1,M) CALL CLOSE (EPT,REW) CALL PRELOC (*40,X(B1),EPT) N = 1 DO 20 I = 1,12,3 IDREC(1) = PCOMP(I) IDREC(2) = IDREC(1)/100 CALL LOCATE (*20,X(B1),IDREC,J) K = PCOMP(I+1) J = PCOMP(I+2) 10 CALL READ (*20,*20,EPT,X,K,0,M) IF (X(J) .EQ. 0.0) GO TO 10 JCOMP = JCOMP - 2 IX(JCOMP ) = IX(1) X(JCOMP+1) = X(J) GO TO 10 20 N = N + 1 30 CALL CLOSE (EPT,REW) KCOMP = B1 - 1 C C CONSTRUCT A LIST OF INDICES IN THE ECT FOR USE WITH GPECT IN THE C PLOT MODULE BY CONTOUR PLOTTING C 40 CALL GOPEN (ECT1,X(B1),INREW) DO 50 J = 1,MAX 50 ELE(J) = 0 I = 1 60 CALL READ (*130,*80,ECT1,IDREC,3,0,M) DO 70 J = 1,NEL IDX = (J-1)*INCR IF (NE(IDX+4) .EQ. IDREC(1)) GO TO 100 70 CONTINUE CALL SKPREC (ECT1,1) GO TO 60 80 CALL MESAGE (-3,ECT1,NAME) 90 CALL MESAGE (-2,ECT1,NAME) 100 LECT = NE(IDX+6) - 1 110 CALL READ (*90,*60,ECT1,ELE(I),1,0,M) CALL FREAD (ECT1,0,-LECT,0) I = I + 1 IF (I .GT. MAX) CALL MESAGE (-8,0,NAME) GO TO 110 C 120 CALL MESAGE (-1,ECT1,NAME) C 130 LELE = I - 1 CALL CLOSE (ECT1,REW) C CALL PRELOC (*120,X(B1),ECT1) CALL GOPEN (ECT2,X(B2),OUTREW) DO 290 N = 1,NEL IDX = (N-1)*INCR C C IF SCALAR CONNECTION POSSIBLE FOR ELEMENT THEN SKIP IT C IF (NE(IDX+11) .NE. 0) GO TO 290 C C SKIP DUMMY ELEMENTS AND POINT ELEMENTS C IF (NE(IDX+10)-1 .LE. 0) GO TO 290 IF (NE(IDX+16) .EQ. ILXX) GO TO 290 CALL LOCATE (*290,X(B1),NE(IDX+4),I) NGPEL = NE(IDX+10) IF (NGPEL .GT. 32) GO TO 270 C CALL WRITE (ECT2,N,1,0) CALL WRITE (ECT2,NGPEL,1,0) 140 CALL READ (*280,*280,ECT1,ELID,1,0,I) C C FIND THIS ELEMENTS POINTER IN THE ECT C DO 150 I = 1,LELE IF (ELE(I) .EQ. ELID(1)) GO TO 160 150 CONTINUE CALL MESAGE (-37,0,NAME) 160 ELID(2) = I C C DETERMINE NUMBER ENTRIES FOR SKIPPING TO GRID ENTRIES C I = NE(IDX+13) - 2 IF (N .EQ. 52) GO TO 190 C CHBDY C IF (N.EQ.64 .OR. N.EQ.83) GO TO 240 C CQUAD4 CTRIA3 IF (I) 120,180,170 C 170 CALL FREAD (ECT1,0,-I,0) 180 CALL FREAD (ECT1,GP,NGPEL,0) IF (N .EQ. 34) GO TO 230 C CBAR C CALL FREAD (ECT1,0,-(NE(IDX+6)-NGPEL-I-1),0) GO TO 200 C C SPECIAL HANDLING FOR CHBDY C IF TYPE IS NEGATIVE, SAVE TYPE FLAG AFTER GRIDS. C 190 CALL FREAD (ECT1,0,-1,0) CALL FREAD (ECT1,TYPE,1,0) CALL FREAD (ECT1,GP,8,0) CALL FREAD (ECT1,0,-(NE(IDX+6)-NGPEL-I-1),0) IF (TYPE .LT. 0) GO TO 140 IF (TYPE .EQ. 6) TYPE = 3 GP(9) = TYPE GO TO 220 C C SPCIAL HANDLING OF IHEX2 AND IHEX3 WITH ZERO GRIDS C 200 IF (N.NE.66 .AND. N.NE.67) GO TO 220 DO 210 J = 1,NGPEL IF (GP(J) .NE. 0) GO TO 210 K = IHX3(J) IF (N .EQ. 66) K = IHX2(J) GP(J) = GP(K) 210 CONTINUE C 220 CALL WRITE (ECT2,ELID,2,0) CALL WRITE (ECT2,GP,NGPEL,0) GO TO 140 C C SPECIAL HANDLING OF THOSE ELEMENTS HAVING GRID OFFSET. C ADD THESE OFFSET DATA AFTER THE GRID POINTS C C (1) CBAR ELEMENT, 2 OFFSET VECTORS (6 VALUES) C 230 CALL WRITE (ECT2,ELID,2,0) CALL WRITE (ECT2,GP,NGPEL,0) CALL FREAD (ECT1,0,-6,0) CALL FREAD (ECT1,OFFSET,6,0) CALL WRITE (ECT2,OFFSET,6,0) GO TO 140 C C (2) CTRIA3 AND CQUAD4 ELEMENTS, ONE OFFSET DATA NORMAL TO PLATE. C OFFSET DATA COULD BE ON ELEMENT CARD OR ON PSHELL OR PCOMPI C CARDS C 240 CALL FREAD (ECT1,PID,1,0) CALL FREAD (ECT1,GP,NGPEL,0) CALL WRITE (ECT2,ELID,2,0) CALL WRITE (ECT2,GP,NGPEL,0) J = 5 IF (N .EQ. 64) J = 6 CALL FREAD (ECT1,0,-J,0) CALL FREAD (ECT1,OFFSET,1,0) IF (OFFSET(1) .NE. 0.0) GO TO 260 IF (JCOMP .EQ. B1) GO TO 260 DO 250 I = JCOMP,KCOMP,2 IF (IX(I) .NE. PID) GO TO 250 OFFSET(1) = X(I+1) GO TO 260 250 CONTINUE 260 CALL WRITE (ECT2,OFFSET,1,0) GO TO 140 C C ELEMENT TYPE WITH MORE THAN 32 CONNECTIONS C 270 ERR(4) = NE(IDX+1) ERR(5) = NE(IDX+2) CALL WRTPRT (MERR,ERR,M1,NM1) CALL SKPREC (ECT1,1) GO TO 290 C 280 CALL WRITE (ECT2,0,0,1) 290 CONTINUE C CALL CLSTAB (ECT2,REW) CALL CLOSE (ECT1,REW) RETURN END ================================================ FILE: mis/comugv.f ================================================ SUBROUTINE COMUGV C C FOR DDAM/EARTHQUAKE ANALYSES, COMBUGV COMBINES DISPLACEMENT C COMPONENTS BY (1)ADDING THE COMPONENTS IN ABS VALUE AND (2)TAKING THE C SQUARE ROOT OF THE SUMS OF THE SQUARES. AFTER THIS MODEULE, THE C TWO OUTPUT DATA BLOCKS ARE N X NMODES, WHEREAS UGV IS N X (NMODES)(L) C MODULE NRLSUM COMBINES STRESSES ACROSS MODES FOR EACH DIRECTION C INDIVIDUALLY. THE OUTPUTS OF THIS MODULE HAVE THE DIRECTIONS C COMBINED. BUT NRLSUM CAN WORK ON THEM (AFTER CASEGEN AND SDR2) BY C SPECIFYING NDIR=1 IN THE DMAP STATEMENT FOR THOSE MODULES. C THIS MODULE WILL ALSO COMBINE THE MAXIMUM RESPONSES ACROSS THE MODES C BY USING SQRSS TO COME UP WITH ONE RESPONSE VECTOR. THEREFORE THIS C MODULE COMBINES COMPONENTS TO GET MAXIMUM RESPONSES BY ADDING (UGVADD) C AND BY SQRSS (UGVSQR). THEN IT TAKES EACH OF THESE AND TAKES SQRSS C ACROSS THE MODES TO GET UGVADC AND UGVSQC, RESPECTIVELY. C FINALLY, THE MODULE COMPUTES THE NRL SUMS FOR THE L DIRECTIONS C TO USE CASEGEN,SDR2,ETC. ON UGVADC AND UGVSQC, IN CASEGEN,USE C LMODES=NDIR=1 IN DMAP STATEMENT. FOR UGVNRL, JUST USE LMODES=1. C C COMBUGV UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/V,N,NMODES/V,N,NDIR $ C INTEGER BUF1,BUF2,BUF3,UGV,UGVADD,UGVSQR,UGVADC,UGVSQC INTEGER UGVNRL INTEGER INDB(2),OUDB(2) DIMENSION NAM(2),MCB(7),MCB1(7),MCB2(7) COMMON/UNPAKX/JOUT,III,NNN,JNCR COMMON/PACKX/IIN,IOUT,II,NN,INCR COMMON/SYSTEM/IBUF COMMON/BLANK/NMODES,NDIR COMMON/ZZZZZZ/Z(1) DATA UGV,UGVADD,UGVSQR,UGVADC,UGVSQC/101,201,202,203,204/ DATA UGVNRL/205/ DATA NAM/4HCOMB,4HUGV / C C OPEN CORE AND BUFFERS C LCORE=KORSZ(Z) BUF1=LCORE-IBUF+1 BUF2=BUF1-IBUF BUF3=BUF2-IBUF LCORE=BUF3-1 IF(LCORE.LE.0)GO TO 1008 MCB(1)=UGV CALL RDTRL(MCB) NCOL=MCB(2) NROW=MCB(3) IF(NCOL.NE.NMODES*NDIR)GO TO 1007 IF(LCORE.LT.4*NROW)GO TO 1008 MCB1(1)=UGVADD MCB1(2)=0 MCB1(3)=NROW MCB1(4)=2 MCB1(5)=1 MCB1(6)=0 MCB1(7)=0 MCB2(1)=UGVSQR MCB2(2)=0 MCB2(3)=NROW MCB2(4)=2 MCB2(5)=1 MCB2(6)=0 MCB2(7)=0 C JOUT=1 III=1 NNN=NROW JNCR=1 IIN=1 IOUT=1 II=1 NN=NROW INCR=1 C CALL GOPEN(UGV,Z(BUF1),0) CALL GOPEN(UGVADD,Z(BUF2),1) CALL GOPEN(UGVSQR,Z(BUF3),1) C C UNPACK NDIR COLUMNS OF UGV WHICH CORRESPOND TO A SINGLE MODE C NM1=NMODES-1 ND1=NDIR-1 DO 120 I=1,NMODES C C POINTER TO PROPER MODE IN 1ST DIRECTION C NSKIP=I-1 IF(NSKIP.EQ.0)GO TO 20 DO 10 LL=1,NSKIP CALL FWDREC (*1002,UGV) 10 CONTINUE C C UNPACK VECTOR C 20 CALL UNPACK (*25,UGV,Z(1)) GO TO 40 C 25 DO 30 J=1,NROW 30 Z(J)=0. C C SKIP TO NEW DIRECTION, UNPACK, SKIP AND UNAPCK C 40 IF(ND1.EQ.0)GO TO 100 DO 70 J=1,ND1 IF(NM1.EQ.0)GO TO 50 DO 45 JJ=1,NM1 CALL FWDREC (*1002,UGV) 45 CONTINUE C 50 JNROW = J*NROW CALL UNPACK (*55,UGV,Z(JNROW+1)) GO TO 70 55 DO 60 JJ=1,NROW 60 Z(J*NROW+JJ)=0. C 70 CONTINUE C C NOW PERFORM EACH OPERATION AND STORE INTO Z(3*NROW+1) C DO 80 KK=1,NROW Z(3*NROW+KK)=ABS(Z(KK))+ABS(Z(NROW+KK))+ABS(Z(2*NROW+KK)) 80 CONTINUE CALL PACK(Z(3*NROW+1),UGVADD,MCB1) C DO 90 KK=1,NROW Z(3*NROW+KK)=SQRT(Z(KK)**2+Z(NROW+KK)**2+Z(2*NROW+KK)**2) 90 CONTINUE CALL PACK(Z(3*NROW+1),UGVSQR,MCB2) GO TO 110 C C JUST ONE DIRECTION ON UGV- COPY TO DATA BLOCKS C 100 CALL PACK(Z(1),UGVADD,MCB1) CALL PACK(Z(1),UGVSQR,MCB2) C C DONE FOR THIS MODE - GET ANOTHER C 110 CALL REWIND(UGV) CALL FWDREC (*1002,UGV) C 120 CONTINUE C CALL CLOSE(UGVADD,1) CALL CLOSE(UGVSQR,1) CALL WRTTRL(MCB1) CALL WRTTRL(MCB2) C C NOW COMPUTE NRL SUMS FOR THE L DIRECTIONS C MCB1(1)=UGVNRL MCB1(2)=0 MCB1(3)=NROW MCB1(4)=2 MCB1(5)=1 MCB1(6)=0 MCB1(7)=0 CALL REWIND(UGV) CALL FWDREC (*1002,UGV) CALL GOPEN(UGVNRL,Z(BUF2),1) C DO 1240 ND=1,NDIR C C SET UP VECTOR OF MAXIMUM DISPLACEMENT COMPONENTS AND VECTOR OF SUMS C DO 1200 I=1,NROW Z(I)=0. 1200 Z(2*NROW+I)=0. C DO 1220 I=1,NMODES C CALL UNPACK (*1220,UGV,Z(NROW+1)) C C COMPARE TO MAXIMUM COMPONENTS C DO 1210 J=1,NROW IF (ABS(Z(NROW+J)).GT.Z(J))Z(J)=ABS(Z(NROW+J)) Z(2*NROW+J)=Z(2*NROW+J)+Z(NROW+J)**2 1210 CONTINUE C C GET ANOTHER DISPLACEMENT VECTOR CORRESPONDING TO ANOTHER MODE C 1220 CONTINUE C C SUBTRACT THE MAXIMA FROM THE SUMS C DO 1230 J=1,NROW Z(2*NROW+J)=Z(2*NROW+J)-Z(J)**2 C C TAKE SQUARE ROOT AND ADD IN THE MAXIMA C Z(2*NROW+J)=SQRT(Z(2*NROW+J))+Z(J) 1230 CONTINUE C C PACK RESULTS ANG GET ANOTHER DIRECTION C CALL PACK(Z(2*NROW+1),UGVNRL,MCB1) 1240 CONTINUE C CALL CLOSE(UGV,1) CALL CLOSE(UGVNRL,1) CALL WRTTRL(MCB1) C C NOW LETS COMBINE RESPONSES OVER THE MODES USING SQRSS. DO FOR BOTH C UGVADD AND UGVSQR. THE RESULT WILL BE ONE DISLPACEMENT VECTOR. C (BOTH UGVADD AND UGVSQR ARE N X M ( M= NO. OF MODES) C INDB(1)=UGVADD INDB(2)=UGVSQR OUDB(1)=UGVADC OUDB(2)=UGVSQC C DO 170 I=1,2 C MCB(1)=INDB(I) CALL RDTRL(MCB) NCOL=MCB(2) NROW=MCB(3) MCB1(1)=OUDB(I) MCB1(2)=0 MCB1(3)=NROW MCB1(4)=2 MCB1(5)=1 MCB1(6)=0 MCB1(7)=0 IF(NCOL.NE.NMODES)GO TO 1007 C CALL GOPEN(INDB(I),Z(BUF1),0) CALL GOPEN(OUDB(I),Z(BUF2),1) C DO 130 J=1,NROW 130 Z(J)=0. C C UNPACK THE COLUMNS OF INDB AND ACCUMULATE SUMS OF SQUARES C DO 150 J=1,NMODES CALL UNPACK (*150,INDB(I),Z(NROW+1)) C DO 140 K=1,NROW 140 Z(K)=Z(K)+Z(NROW+K)**2 C 150 CONTINUE C DO 160 K=1,NROW 160 Z(K)=SQRT(Z(K)) C CALL PACK(Z(1),OUDB(I),MCB1) C CALL CLOSE(INDB(I),1) CALL CLOSE(OUDB(I),1) CALL WRTTRL(MCB1) C 170 CONTINUE C RETURN C 1002 CALL MESAGE(-2,UGV,NAM) 1007 CALL MESAGE(-7,0,NAM) 1008 CALL MESAGE(-8,0,NAM) RETURN END ================================================ FILE: mis/cone.f ================================================ SUBROUTINE CONE (TI,Z) C C THIS ROUTINE COMPUTES THE THERMAL LOADS ON A AXISYMMETRIC CONE C REAL I00 ,I10 REAL I01 ,I11 ,I21 ,I31 ,I41 REAL I02 ,I12 ,I22 REAL I03 ,I13 ,I23 ,I33 REAL TI(2) ,Z(1) ,PA(8) ,XI(6) ,ECPT(35) REAL N2D33 ,NSP ,NCP ,NSPOPI REAL EHT(96) ,HUQ(100) ,HYQ(10) COMMON /CONDAS/ PI ,TWOPI ,RADEG ,DEGRA , 1 S4PISQ COMMON /TRIMEX/ MECPT(35) COMMON /MATIN / MATID ,INFLAG ,TEMP ,STRESS ,SINTH , 1 COSTH COMMON /MATOUT/ G11,G12 ,G13,G22 ,G23,G33 ,RHO,ALPH1,ALPH2 , 1 ALPH3 ,TSUB0 ,GSUBE ,SIGTEN ,SIGCOM , 2 SIGSHE ,G2X211 ,G2X212 ,G2X222 EQUIVALENCE (ECPT( 1) ,MECPT(1)),(ECPT( 9), TS ) EQUIVALENCE (ECPT(28) ,RA ),(ECPT(32), RB ) EQUIVALENCE (ECPT(29) ,ZA ),(ECPT(33), ZB ) EQUIVALENCE (ECPT( 6) ,MATID2 ),(ECPT( 8), MATID3) EQUIVALENCE (GSHEAR ,G12 ) DATA ONE / 1.0 / C C DEFINITION OF VARIABLES C C ECPT ENTRIES FOR CONE C C ECPT(1) INTEGER ELEMENT ID = 1000*ELID + HARMONIC C ECPT(2) INTEGER SIL A C ECPT(3) INTEGER SIL B C ECPT(4) INTEGER MAT ID 1 C ECPT(5) REAL T MEMBRANE THICKNESS C ECPT(6) INTEGER MAT ID 2 C ECPT(7) REAL MOMENT OF INERTIA C ECPT(8) INTEGER MAT ID 3 C ECPT(9) REAL SHEAR THICKNESS C ECPT(10) REAL NON -STRUCTRAL MASS C ECPT(11) REAL Z1 C ECPT(12) REAL Z2 C ECPT(13) REAL PHI 1 C ECPT(14) REAL 2 C ECPT(15) REAL 3 C ECPT(16) REAL 4 C ECPT(17) REAL 5 C ECPT(18) REAL 6 C ECPT(19) REAL 7 C ECPT(20) REAL 8 C ECPT(21) REAL 9 C ECPT(22) REAL 10 C ECPT(23) REAL 11 C ECPT(24) REAL 12 C ECPT(25) REAL 13 C ECPT(26) REAL 14 C ECPT(27) INTEGER COORDINANT SYSTEM FOR POINT A C ECPT(28) REAL R (A) C ECPT(29) REAL Z (A) C ECPT(30) REAL NULL C ECPT(31) INTEGER COORDINANT SYSTEM FOR POINT B C ECPT(32) REAL R (B) C ECPT(33) REAL Z (B) C ECPT(34) REAL NULL C ECPT(35) REAL TEMPERATURE OF MATERIAL C C XL LENGTH BETWEEN POINTS C SP SINE OF PHI C CP COSINE OF PHI C I-S INTEGRAL FROM PAGE 46 MS,28 C MATID MATERIAL ID (MAT 1 CARD) C INFLAG OPTION 2 OF MAT ROUTINE C TEMP MATERIAL TEMPERATURE C SINTH 0.0 DUMMY C COSTH 1.0 DUMMY C XN HARMONIC NUMBER C PA(8) TOTAL LOAD VECTOR C XI(6) CYLINDRICAL LOAD C C C IF MEMBRANE THICKNESS = 0, THEN LOAD IS ZERO C IF (ECPT(5) .EQ. 0.0) GO TO 160 C C COMPUTE L, SINPHI, COSPHI C RBMA = RB - RA ZBMA = ZB - ZA XL2 = RBMA**2 + ZBMA**2 XL = SQRT(XL2) IF (XL .EQ. 0.0) GO TO 160 SP = RBMA/XL CP = ZBMA/XL C C COMPUTE I-S C XL4 = XL2*XL2 RAV = (RA + RB)*0.5 I00 = XL *RAV I10 = XL2*(RA + 2.0*RB)/6.0 I01 = XL I11 = XL2/2.0 I21 = XL2*XL/3.0 I31 = XL4/4.0 I41 = XL4*XL/5.0 C C SET UP FOR MAT ROUTINE C MATID = MECPT(4) INFLAG= 2 TEMP = ECPT(35) SINTH = 0.0 COSTH = 1.0 CALL MAT (MECPT(1)) C C COMPUTE COEFICCIENTS C F = (G12*ALPH2 + G22*ALPH1)*ECPT(5)*PI FF = (G11*ALPH2 + G12*ALPH1)*ECPT(5)*PI C C COMPUTE A C A = (TI(1)-TSUB0)*F C C COMPUTE B C B = (TI(2)-TI(1))/XL*F C C COMPUTE C C C = (TI(1)-TSUB0)*FF C C COMPUTE D C D = (TI(2)-TI(1))/XL*FF C C DECODE N C IXN = MECPT(1)/1000 XN = MECPT(1) - IXN*1000 - 1 C C COMPUTE PA C F = I01*A + I11*B FF = I11*A + I21*B PA(1) = XN*F PA(2) = XN*FF PA(3) = SP*F PA(4) = SP*FF + I00*C + I10*D PA(5) = CP*F PA(6) = CP*FF PA(7) = CP*(I21*A + I31*B) PA(8) = CP*(I31*A + I41*B) C C CHECK HARMONIC NO. IF(XN = 0.0) DOUBLE PA VECTOR C IF (XN .NE. 0.0) GO TO 30 DO 20 I = 1,8 20 PA(I) = 2.0*PA(I) C C OMPUTE TRANSFORMATION MATRIX HUQ. SEE MS-28, PP. 15, 16, 24, 25 C 30 DO 40 I = 1,100 40 HUQ(I) = 0.0 HUQ( 1) = ONE HUQ( 13) = ONE HUQ( 25) = ONE HUQ( 36) = ONE HUQ( 41) = CP/RA HUQ( 45) = XN/RA HUQ( 49) = ONE HUQ( 51) = ONE HUQ( 52) = XL HUQ( 63) = ONE HUQ( 64) = XL HUQ( 75) = ONE HUQ( 76) = XL HUQ( 77) = XL2 HUQ( 78) = HUQ(77)*XL HUQ( 86) = ONE HUQ( 87) = 2.0*XL HUQ( 88) = 3.0*HUQ(77) HUQ( 91) = CP/RB HUQ( 92) = HUQ(91)*XL HUQ( 95) = XN/RB HUQ( 96) = HUQ(95)*XL HUQ( 97) = HUQ(95)*XL2 HUQ( 98) = HUQ(96)*XL2 HUQ( 99) = ONE HUQ(100) = XL C C CHCEK IF HYQ VECTOR NEEDED C IF (MATID2 .EQ.0 .OR. MATID3 .EQ.0 ) GO TO 60 IF (ECPT(7).EQ.0.0 .OR. ECPT(9).EQ.0.0) GO TO 60 C C FORM (D) = I*(G) C D11 = ECPT(7)*G11 D12 = ECPT(7)*G12 D22 = ECPT(7)*G22 D33 = ECPT(7)*G33 C C PICK UP GSHEAR FROM MAT C INFLAG = 1 MATID = MATID3 TEMP = ECPT(35) CALL MAT (MECPT(1)) IF (GSHEAR .EQ. 0.0) GO TO 60 C C COMPUTE INTEGRALS C B = SP B2 = B*B B3 = B*B2 B4 = B*B3 RLOG = ALOG(RB/RA) RASQ = RA*RA RBMA2 = RBMA*RAV ORBORA = ONE/RB - ONE/RA TWORA = RA + RA C C IF SP = 0 EVALUATE INTEGRALS DIFFERENTLY C IF (SP .NE. 0.0) GO TO 45 TEMP1= RAV*RAV TEMP3= XL2*XL I02 = XL/RAV I12 = XL2/(2.0*RAV) I22 = TEMP3/(3.0*RAV) I03 = XL/TEMP1 I13 = XL2/(2.0*TEMP1) I23 = TEMP3/(3.0*TEMP1) I33 = (XL2*XL2)/(4.0*TEMP1) GO TO 49 45 CONTINUE I02 = RLOG/B I12 = (RBMA - RA*RLOG)/B2 I22 = (RBMA2 - TWORA*RBMA + RASQ*RLOG)/B3 I03 =-ORBORA/B I13 = (RLOG + RA*ORBORA)/B2 I23 = (RBMA - TWORA*RLOG - RASQ*ORBORA)/B3 I33 = (RBMA2 - 3.0*RA*RBMA + 3.0*RASQ*RLOG + RASQ*RA*ORBORA)/B4 C C COMPUTE HYQ C 49 CONTINUE CP2 = CP*CP SP2 = SP*SP XN2 = XN*XN OPI = ONE/PI N2D33 = XN2*D33 SP2D22 = SP2*D22 OQ = XL*TS*GSHEAR*RAV + I02*(N2D33 + SP2D22)*OPI OQ = ONE/OQ NSP = XN*SP NCP = XN*CP NSPOPI = NSP*OPI TWOD33 = 2.0*D33 TEMP1 = D12*ORBORA TEMP2 = NSPOPI*(D22 + D33) TEMP3 = XN*NSPOPI*(TWOD33 + D22) TEMP4 = OQ*0.5*N2D33*CP*OPI TEMP5 = OPI*(XN2*TWOD33 + SP2D22) TEMP6 = D12*XN2*XL2/RB TEMP7 = NSPOPI*CP*0.5 HYQ( 1) = OQ*(TEMP1*NCP - TEMP7*I03*(D33 + 2.0*D22)) HYQ( 2) = OQ*(NCP*XL/RB*D12 - TEMP7*I13*(3.0*D33 + D22) 1 + 1.5*NCP*OPI*I02*D33) HYQ( 3) = TEMP4*I03 HYQ( 4) = TEMP4*I13 HYQ( 5) = OQ*(TEMP1*XN2 - TEMP3*I03) HYQ( 6) = OQ*(D12*XN2*XL/RB - TEMP3*I13 + TEMP5*I02) HYQ( 7) = OQ*(2.0*D11*(RA-RB) + TEMP6 + 2.0*I12*TEMP5 - TEMP3*I23) HYQ( 8) = OQ*(-D11*6.*XL*RB + TEMP6*XL + 3.*I22*TEMP5 - TEMP3*I33) HYQ( 9) =-OQ*TEMP2*I02 HYQ(10) = OQ*(XN*XL*(D12 + D33) - TEMP2*I12) DO 50 I = 1,10 HUQ(I+30) = HUQ(I+30) - HYQ(I) 50 HUQ(I+80) = HUQ(I+80) - HYQ(I) C ITEST = 1 GO TO 61 60 ITEST = 0 HUQ(41) = 0.0 HUQ(45) = 0.0 HUQ(91) = 0.0 HUQ(92) = 0.0 HUQ(95) = 0.0 HUQ(96) = 0.0 HUQ(97) = 0.0 HUQ(98) = 0.0 HUQ(99) = 0.0 61 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (10,HUQ(1),10,DUM,0,DETERM,ISING,EHT(1)) IF (ISING .EQ. 2) CALL MESAGE (-30,40,MECPT(1)) IF (ITEST .NE. 0) GO TO 62 HUQ( 85) = 0.0 HUQ(100) = 0.0 62 CONTINUE C C COMPLETE SOLUTION C C FIRST OBTAIN PRODUCTS C T C EHAT = (E)(H ) AND STORE AT EHT(1) . . . EHT(48) C A C C T C EHBT = (E)(H ) AND STORE AT EHT(49). . . EHT(96) C B C / C WHERE (HUQ) = (HA/HB) C / C AND C 0 CP SP 0 0 C C 1 0 0 0 0 C C 0 CP -SP 0 0 C E MATRIX = C 0 0 0 0 SP C C 0 0 0 1 0 C C 0 0 0 0 CP C INC1 = 0 INC2 = 0 110 DO 120 I = 1,8 KROW = I + INC1 NCOL = (I-1)*10 + INC2 EHT(KROW ) = SP*HUQ(NCOL+2) + CP*HUQ(NCOL+3) EHT(KROW+ 8) = HUQ(NCOL+1) EHT(KROW+16) = CP*HUQ(NCOL+2) - SP*HUQ(NCOL+3) EHT(KROW+24) = SP*HUQ(NCOL+5) EHT(KROW+32) = HUQ(NCOL+4) 120 EHT(KROW+40) = CP*HUQ(NCOL+5) IF (INC1 .GT. 0) GO TO 130 INC1 = 48 INC2 = 5 GO TO 110 C C PERFORM TRANSFORMATION OF LOAD VECTOR C 130 DO 150 J = 1,2 CALL GMMATS (EHT(48*J-47),6,8,0,PA(1),8,1,0,XI(1)) K = MECPT(J+1) - 1 DO 140 I = 1,6 K = K + 1 140 Z(K) = Z(K) + XI(I) 150 CONTINUE C 160 RETURN C END ================================================ FILE: mis/conm1d.f ================================================ SUBROUTINE CONM1D C C THIS SUBROUTINE COMPUTES THE CONCENTRATED MASS ELEMENTS C MASS MATRIX FOR THE M1 TYPE ELEMENT C DOUBLE PRECISION VERSION C C C ECPT NO. NAME TYPE DESCRIPTION C 1 IELID I ELEMENT ID C 2 IGP I GRID POINT NUMBER C 3 ICIDT2 I COORDINATE ID FOR T2 C 4 M(1,1) R C 5, 6 M(2,1) TO M(2,2) R C 7, 8, 9 M(3,1) TO M(3,3) R MASS MATRIX VALUES C 10 TO 13 M(4,1) TO M(4,4) R C 14 TO 18 M(5,1) TO M(5,5) R C 19 TO 24 M(6,1) TO M(6,6) R C 25 ICIDT1 I COORDINATE ID FOR T1 C 26 X R C 27 Y R TRANSFORMATION MATRIX C 28 Z R C INTEGER DICT(7),ELID,ESTID,IECPT(25) DOUBLE PRECISION MM(36),TT(36),T(36),M(21) LOGICAL NOGO C C COMMON /SYSTEM/ SS,IOUTPT,KSYSTM(56) C COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO COMMON /EMGEST/ ECPT(100) COMMON /EMGDIC/ DMM(2),NLOCS,ELID,ESTID C EQUIVALENCE (ECPT(1),IECPT(1),IELID) EQUIVALENCE (DICT(5),DICT5) C C INITIALIZE C IF (ISMB(2) .EQ. 0) RETURN DICT(1) = ESTID DICT(2) = 1 DICT(3) = 6 DICT(4) = 63 DICT5 = 0 IP = IPREC XOF = ECPT(5) YOF = ECPT(6) ZOF = ECPT(7) DO 50 I=1,21 50 M(I) = ECPT(I+3) C C COMPUTE NON-TRANSFORMED MASS MATRIX. INITIALIZE C TO ZERO THEN FILL IN NON-ZERO TERMS C DO 100 I = 1,36 100 MM(I)= 0.D0 C K = 0 DO 110 I = 1,6 DO 110 J = 1,I K = K + 1 JI = (J-1)*6 + I IJ = (I-1)*6 + J MM(IJ) = M(K) 110 MM(JI) = M(K) C ICIDT1 = IECPT(25) ICIDT2 = IECPT(3) C C PERFORM TRANSFORMATIONS. IF CSIDS 1 AND 2 ARE EQUAL, C T1 = T2 SO MASS MARRIX IS COMPLETE C IF (ICIDT2 .EQ. ICIDT1) GO TO 240 C T C NOT EQUAL. SO COMPUTE T = (T ) (T ) C 1 2 C GET T1 AND T2 IF NEEDED IT = 18 IF (ICIDT1 .EQ. 0) GO TO 130 C CALL TRANSD(ECPT(25),T(1)) GO TO 140 C C ONLY T2 NEEDED SO T = T2 C 130 IT = 9 140 IF(ICIDT2 .EQ. 0) GO TO 150 CALL TRANSD(ECPT(25),T(10)) C IF(ICIDT1 .EQ. 0) GO TO 210 CALL GMMATD (T(1),3,3,1, T(10),3,3,0, T(19)) GO TO 210 C C HERE T2 IS IDENTITY AND T1 IS AT T(1) SO C T = T1 (TRANSPOSE). SO INSERT INTO T 150 DO 170 I = 1,3 DO 170 J = 1,3 IJ = 3*(I - 1) + J JI = I + 3*(J-1) + 18 170 T(JI)=T(IJ) C C T = (T ) (T ) IS COMPLETE. INSERT IT IN THE 6X6 TRANSFORMATION MATRIX. C 1 2 C 210 DO 220 I = 1,36 220 TT(I)=0.D0 C DO 230 I = 1,3 IJ = I + IT TT(I) = T(IJ) TT(I + 6) = T(IJ + 3) TT(I + 12) = T(IJ + 6) TT(I + 21) = T(IJ) TT(I + 27) = T(IJ + 3) 230 TT(I + 33) = T(IJ + 6) C T C FORM T*M*T AND STORE IN MM C CALL GMMATD (TT(1),6,6,0, MM(1),6,6,0, T(1)) CALL GMMATD(T(1),6,6,0, TT(1),6,6,1, MM(1)) C 240 CALL EMGOUT (MM,MM,36,1,DICT,2,IP) RETURN END ================================================ FILE: mis/conm1s.f ================================================ SUBROUTINE CONM1S C C THIS SUBROUTINE COMPUTES THE CONCENTRATED MASS ELEMENTS C MASS MATRIX FOR THE M1 TYPE ELEMENT C SINGLE PRECISION VERSION C C C ECPT NO. NAME TYPE DESCRIPTION C 1 IELID I ELEMENT ID C 2 IGP I GRID POINT NUMBER C 3 ICIDT2 I COORDINATE ID FOR T2 C 4 M(1,1) R C 5, 6 M(2,1) TO M(2,2) R C 7, 8, 9 M(3,1) TO M(3,3) R MASS MATRIX VALUES C 10 TO 13 M(4,1) TO M(4,4) R C 14 TO 18 M(5,1) TO M(5,5) R C 19 TO 24 M(6,1) TO M(6,6) R C 25 ICIDT1 I COORDINATE ID FOR T1 C 26 X R C 27 Y R TRANSFORMATION MATRIX C 28 Z R C INTEGER DICT(7),ELID,ESTID,IECPT(25) LOGICAL NOGO REAL MM(36),TT(36),T(36) REAL M(1) C C COMMON /SYSTEM/ SS,IOUTPT,KSYSTM(56) C COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO COMMON /EMGEST/ ECPT(100) COMMON /EMGDIC/ DMM(2),NLOCS,ELID,ESTID C EQUIVALENCE (ECPT(1),IECPT(1),IELID) EQUIVALENCE (ECPT(4),M(1)) EQUIVALENCE (DICT(5),DICT5),(ECPT(4),MB) EQUIVALENCE (ECPT(5),XOF),(YOF,ECPT(6)),(ZOF,ECPT(7)) C C INITIALIZE C IF (ISMB(2) .EQ. 0) RETURN DICT(1) = ESTID DICT(2) = 1 DICT(3) = 6 DICT(4) = 63 DICT5 = 0 IP = IPREC C C COMPUTE NON-TRANSFORMED MASS MATRIX. INITIALIZE C TO ZERO THEN FILL IN NON-ZERO TERMS C DO 100 I = 1,36 100 MM(I) = 0. C K = 0 DO 110 I = 1,6 DO 110 J = 1,I K = K + 1 JI = (J-1)*6 + I IJ = (I-1)*6 + J MM(IJ) = M(K) 110 MM(JI) = M(K) C ICIDT1 = IECPT(25) ICIDT2 = IECPT(3) C C PERFORM TRANSFORMATIONS. IF CSIDS 1 AND 2 ARE EQUAL, C T1 = T2 SO MASS MARRIX IS COMPLETE C IF (ICIDT2 .EQ. ICIDT1) GO TO 240 C T C NOT EQUAL. SO COMPUTE T = (T ) (T ) C 1 2 C GET T1 AND T2 IF NEEDED IT = 18 IF (ICIDT1 .EQ. 0) GO TO 130 C CALL TRANSS (ECPT(25),T(1)) GO TO 140 C C ONLY T2 NEEDED SO T = T2 C 130 IT = 9 140 IF(ICIDT2 .EQ. 0) GO TO 150 CALL TRANSS (ECPT(25),T(10)) C IF(ICIDT1 .EQ. 0) GO TO 210 CALL GMMATS (T(1),3,3,1,T(10),3,3,0,T(19)) GO TO 210 C C HERE T2 IS IDENTITY AND T1 IS AT T(1) SO C T = T1 (TRANSPOSE). SO INSERT INTO T 150 DO 170 I = 1,3 DO 170 J = 1,3 IJ = 3*(I - 1) + J JI = I + 3*(J-1) + 18 170 T(JI)=T(IJ) C C T = (T ) (T ) IS COMPLETE. INSERT IT IN THE 6X6 TRANSFORMATION MATRIX. C 1 2 C 210 DO 220 I = 1,36 220 TT(I) = 0. C DO 230 I = 1,3 IJ = I + IT TT(I) = T(IJ) TT(I + 6) = T(IJ + 3) TT(I + 12) = T(IJ + 6) TT(I + 21) = T(IJ) TT(I + 27) = T(IJ + 3) 230 TT(I + 33) = T(IJ + 6) C T C FORM T*M*T AND STORE IN MM C CALL GMMATS (TT(1),6,6,0,MM(1),6,6,0,T(1)) CALL GMMATS (T(1),6,6,0,TT(1),6,6,1,MM(1)) C 240 CALL EMGOUT (MM,MM,36,1,DICT,2,IP) RETURN END ================================================ FILE: mis/conm2d.f ================================================ SUBROUTINE CONM2D C C THIS SUBROUTINE COMPUTES THE CONCENTRATED MASS ELEMENTS MASS MATRIX C FOR THE M2 TYPE ELEMENT C DOUBLE PRECISION VERSION C C ECPTNO NAME TYPE DESCRIPTION C ****** **** **** *********** C C 1 IELID I ELEMENT ID C 2 IGP I GRID POINT NUMBER C 3 ICIDT2 I COORDINATE SYSTEM ID FOR T2 C 4 MASS R LUMPED MASS C 5 OFFSET(1) R C 6 OFFSET(2) R X,Y, AND Z COORDINATES OF THE C 7 OFFSET(3) R OFFSET C 8 MMI(1,1) R C 9 MMI(2,1) R MASS MOMENTS OF INERTIA C 10 MMI(2,2) R C 11 MMI(3,1) R C 12 MMI(3,2) R C 13 MMI(3,3) R C 14 ICIDT1 I COORDINATE SYSTEM ID FOR T1 C 15 X R C 16 Y R C 17 Z R C INTEGER DICT(11), ELID, ESTID, IECPT(14) DOUBLE PRECISION MM(36),TT(36),T(36),MB,XOF,YOF,ZOF,INER(6) C COMMON /SYSTEM/ SS,IOUTPT,KSYSTM(56) C COMMON /EMGEST/ ECPT(100) C COMMON /EMGDIC/ DMM(2),NLOCS,ELID,ESTID C COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO C EQUIVALENCE (ECPT(1),IECPT(1),IELID) EQUIVALENCE (DICT(5),DICT5) C C INITIALIZE C IF (ISMB(2) .EQ. 0) RETURN DICT(1) = ESTID DICT(2) = 1 DICT(3) = 6 DICT(4) = 63 DICT(5) = 0 IP = IPREC C C MOVE VARIABLES TO DOUBLE PRECISION LOCATIONS C MB = ECPT(4) DO 50 I= 1,6 50 INER(I)= ECPT(I+7) C C COMPUTE NON-TRANSFORMED MASS MATRIX. INITIALIZE TO ZERO C THEN FILL IN NON-ZERO TERMS C DO 100 I=1,36 100 MM(I) = 0. C ICIDT2 = IECPT(3) IF (ICIDT2 .GE. 0) GO TO 120 ICIDT2 = 0 DO 110 I = 1,3 110 ECPT (I+4) = ECPT(I+4) - ECPT(I+14) C 120 XOF = ECPT(5) YOF = ECPT(6) ZOF = ECPT(7) MM(1) = MB MM(5) = MB*ZOF MM(6) = -MB*YOF MM(8) = MB MM(10) = -MM(5) MM(12) = MB*XOF MM(15) = MB MM(16) = -MM(6) MM(17) = -MM(12) MM(20) = MM(10) MM(21) = MM(16) X2 = XOF**2 Y2 = YOF**2 Z2 = ZOF**2 MM(22) = INER(1) + (Y2 + Z2)*MB MM(23) = -INER(2) + MM(6)*XOF MM(24) = -INER(4)+MM(10)*XOF MM(25) = MM(5) MM(27) = MM(17) MM(28) = MM(23) MM(29) = INER(3) + (X2 + Z2)*MB MM(30) = -INER(5) + MM(6)*ZOF MM(31) = MM(6) MM(32) = MM(12) MM(34) = MM(24) MM(35) = MM(30) MM(36) = INER(6) + (X2 + Y2)*MB C ICIDT1 = IECPT(14) C C PERFORM TRANSFORMATIONS. IF CSIDS 1 AND 2 ARE EQUAL, C T1 = T2 SO MASS MATRIX IS COMPLETE C IF (ICIDT2 .EQ. ICIDT1) GO TO 240 C T C NOT EQUAL SO COMPUTE T = (T )(T ) C 1 2 C GET T1 AND T2 IF NEEDED IT = 18 IF (ICIDT1 .EQ. 0) GO TO 130 C CALL TRANSD (ECPT(14),T(1)) GO TO 140 C ONLY T2 NEEDED SO T = T2 130 IT = 9 140 IF (ICIDT2 .EQ. 0) GO TO 150 ITEMP = IECPT(14) IECPT(14) = ICIDT2 CALL TRANSD (ECPT(14),T(10)) IECPT(14) = ITEMP C IF(ICIDT1 .EQ. 0) GO TO 210 CALL GMMATD (T(1),3,3,2, T(10),3,3,0, T(19)) GO TO 210 C C HERE T2 IS IDENTITY AND T1 IS AT T(1) SO C T = T1 (TRANSPOSE). SO INSERT INTO T 150 DO 170 I = 1,3 DO 170 J = 1,3 IJ = 3*(I-1) + J JI = I + 3*(J-1) + 18 170 T(JI) = T(IJ) C C T = (T ) (T ) IS COMPLETE. INSERT IT IN THE 6X6 TRANSFORMATION MATRIX. C 1 2 C 210 DO 220 I = 1,36 220 TT(I) = 0. C DO 230 I = 1,3 IJ = I + IT TT(I) = T(IJ) TT(I + 6) = T(IJ + 3) TT(I + 12) = T(IJ + 6) TT(I + 21) = T(IJ) TT(I + 27) = T(IJ + 3) 230 TT(I + 33) = T(IJ + 6) C T C FORM T*M*T AND STORE IN MM C CALL GMMATD (TT(1),6,6,0, MM(1),6,6,0, T(1)) CALL GMMATD (T(1),6,6,0, TT(1),6,6,1, MM(1)) C 240 CALL EMGOUT (MM,MM,36,1,DICT,2,IP) RETURN END ================================================ FILE: mis/conm2s.f ================================================ SUBROUTINE CONM2S C C THIS SUBROUTINE COMPUTES THE CONCENTRATED MASS ELEMENTS MASS MATRIX C FOR THE M2 TYPE ELEMENT C SINGLE PRECISION VERSION C C ECPTNO NAME TYPE DESCRIPTION C ****** **** **** *********** C C 1 IELID I ELEMENT ID C 2 IGP I GRID POINT NUMBER C 3 ICIDT2 I COORDINATE SYSTEM ID FOR T2 C 4 MASS R LUMPED MASS C 5 OFFSET(1) R C 6 OFFSET(2) R X,Y, AND Z COORDINATES OF THE C 7 OFFSET(3) R OFFSET C 8 MMI(1,1) R C 9 MMI(2,1) R MASS MOMENTS OF INERTIA C 10 MMI(2,2) R C 11 MMI(3,1) R C 12 MMI(3,2) R C 13 MMI(3,3) R C 14 ICIDT1 I COORDINATE SYSTEM ID FOR T1 C 15 X R C 16 Y R C 17 Z R C INTEGER DICT(11), ELID, ESTID, IECPT(14) REAL MM(36),TT(36),T(36) REAL MB, INER(6) C C COMMON /EMGEST/ ECPT(100) C COMMON /EMGDIC/ DMM(2),NLOCS,ELID,ESTID C COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO C EQUIVALENCE (ECPT(1),IECPT(1),IELID) EQUIVALENCE (DICT(5),DICT5), (ECPT(4),MB) EQUIVALENCE (ECPT(5),XOF),(ECPT(6),YOF),(ECPT(7),ZOF) EQUIVALENCE (INER(1),ECPT(8)) C C INITIALIZE C IF (ISMB(2) .EQ. 0) RETURN DICT(1) = ESTID DICT(2) = 1 DICT(3) = 6 DICT(4) = 63 DICT(5) = 0 IP = IPREC C C COMPUTE NON-TRANSFORMED MASS MATRIX. INITIALIZE TO ZERO C THEN FILL IN NON-ZERO TERMS C DO 100 I=1,36 100 MM(I) = 0. C ICIDT2 = IECPT(3) IF (ICIDT2 .GE. 0) GO TO 120 ICIDT2 = 0 DO 110 I = 1,3 110 ECPT (I+4) = ECPT(I+4) - ECPT(I+14) C 120 MM(1) = MB MM(5) = MB*ZOF MM(6) = -MB*YOF MM(8) = MB MM(10) = -MM(5) MM(12) = MB*XOF MM(15) = MB MM(16) = -MM(6) MM(17) = -MM(12) MM(20) = MM(10) MM(21) = MM(16) X2 = XOF**2 Y2 = YOF**2 Z2 = ZOF**2 MM(22) = INER(1) + (Y2 + Z2)*MB MM(23) = -INER(2) + MM(6)*XOF MM(24) = -INER(4)+MM(10)*XOF MM(25) = MM(5) MM(27) = MM(17) MM(28) = MM(23) MM(29) = INER(3) + (X2 + Z2)*MB MM(30) = -INER(5) + MM(6)*ZOF MM(31) = MM(6) MM(32) = MM(12) MM(34) = MM(24) MM(35) = MM(30) MM(36) = INER(6) + (X2 + Y2)*MB C ICIDT1 = IECPT(14) C C PERFORM TRANSFORMATIONS. IF CSIDS 1 AND 2 ARE EQUAL, C T1 = T2 SO MASS MATRIX IS COMPLETE C IF (ICIDT2 .EQ. ICIDT1) GO TO 240 C T C NOT EQUAL SO COMPUTE T = (T )(T ) C 1 2 C GET T1 AND T2 IF NEEDED IT = 18 IF (ICIDT1 .EQ. 0) GO TO 130 C CALL TRANSS (ECPT(14),T(1)) GO TO 140 C ONLY T2 NEEDED SO T = T2 130 IT = 9 140 IF (ICIDT2 .EQ. 0) GO TO 150 ITEMP = IECPT(14) IECPT(14) = ICIDT2 CALL TRANSS (ECPT(14),T(10)) IECPT(14) = ITEMP C IF(ICIDT1 .EQ. 0) GO TO 210 CALL GMMATS (T(1),3,3,2,T(10),3,3,0,T(19)) GO TO 210 C C HERE T2 IS IDENTITY AND T1 IS AT T(1) SO C T = T1 (TRANSPOSE). SO INSERT INTO T 150 DO 170 I = 1,3 DO 170 J = 1,3 IJ = 3*(I-1) + J JI = I + 3*(J-1) + 18 170 T(JI) = T(IJ) C C T = (T ) (T ) IS COMPLETE. INSERT IT IN THE 6X6 TRANSFORMATION MATRIX. C 1 2 C 210 DO 220 I = 1,36 220 TT(I) = 0. C DO 230 I = 1,3 IJ = I + IT TT(I) = T(IJ) TT(I + 6) = T(IJ + 3) TT(I + 12) = T(IJ + 6) TT(I + 21) = T(IJ) TT(I + 27) = T(IJ + 3) 230 TT(I + 33) = T(IJ + 6) C T C FORM T*M*T AND STORE IN MM C CALL GMMATS (TT(1),6,6,0,MM(1),6,6,0,T(1)) CALL GMMATS (T(1),6,6,0,TT(1),6,6,1,MM(1)) C 240 CALL EMGOUT (MM,MM,36,1,DICT,2,IP) RETURN END ================================================ FILE: mis/conmsg.f ================================================ SUBROUTINE CONMSG (MESAGE, NWORDS, IDUMMY) C INTEGER FCHAR REAL INCTIM, MODTIM CHARACTER CTIME*8,AHEAD*41,MCHNAM*11,MACHOS*7 C DIMENSION MESAGE(1) DIMENSION ICRDAT(3) DIMENSION IDATE(3), ITIME(3) C COMMON /CHMACH/ MCHNAM, MACHOS COMMON /LOGOUT/ LOUT COMMON /SYSTEM/ ISYSTM(175) C EQUIVALENCE (ISYSTM( 15), IDATE(1)), * (ISYSTM( 18), CPUSTR), * (ISYSTM( 42), ICRDAT), * (ISYSTM( 75), CPUTIM), * (ISYSTM(151), NLLOG ), * (ISYSTM(152), LOGLIN), * (ISYSTM(159), LOGPAG), * (ISYSTM(160), OLDCPU) C DATA IDSMS,IWRTT,IAUDT,IMPYA /4HDSMS, 4HWRTT, 4HAUDT, 4HMPYA/ DATA MODTIM /0.0/ DATA IDASH /4H----/ C C ASSEMBLE PAGE HEADING C AHEAD = ' ' NCMNAM = INDEX(MCHNAM,' ') - 1 IF (NCMNAM .LE. -1) NCMNAM = 11 NCMOS = INDEX(MACHOS,' ') - 1 IF (NCMOS .LE. -1) NCMOS = 7 FCHAR = (18 - NCMNAM - NCMOS) + 1 AHEAD(FCHAR:FCHAR+6)='LOG OF ' FCHAR = FCHAR + 7 WRITE (AHEAD(FCHAR:FCHAR+1),15) ICRDAT(3) 15 FORMAT (A2) FCHAR = FCHAR + 3 AHEAD(FCHAR:41) = MCHNAM(1:NCMNAM) // ' ' // MACHOS(1:NCMOS) // 1 ' NASTRAN JOB' C IMODTM = 0 IF (IDUMMY.EQ.111111 .OR. IDUMMY.EQ.222222) * IMODTM = IDUMMY/111111 IF (LOGLIN.LT.NLLOG.AND.LOGLIN.GT.0) GO TO 300 IF (LOGLIN.EQ.0) WRITE (LOUT, 2000) IDATE, AHEAD IF (LOGLIN.EQ.0) WRITE (LOUT, 2055) IF (MESAGE(1).EQ.IDSMS.AND.NWORDS.EQ.1) RETURN IF (MESAGE(1).EQ.IWRTT.AND.NWORDS.EQ.1) RETURN IF (MESAGE(1).EQ.IAUDT.AND.NWORDS.EQ.1) RETURN IF (MESAGE(1).EQ.IMPYA.AND.NWORDS.EQ.1) RETURN 300 CALL NASTIM (ITIME(1), ITIME(2), ITIME(3), CPUTMM) WRITE (CTIME,2056) ITIME 2056 FORMAT (2( I2,':'),I2) IF (CTIME(4:4) .EQ. ' ') CTIME(4:4) = '0' IF (CTIME(7:7) .EQ. ' ') CTIME(7:7) = '0' CPUTMM = CPUTMM + OLDCPU - CPUSTR INCTIM = CPUTMM - CPUTIM IF (CPUTIM.EQ.0.0) INCTIM = 0.0 IF (IMODTM.EQ.1) MODTIM = 0.0 IF (IMODTM.EQ.2) MODTIM = CPUTMM - MODTIM MWORDS = MIN0 (NWORDS, 15) IF (IMODTM.NE.2) WRITE (LOUT, 2100) CTIME, CPUTMM, INCTIM, * (MESAGE(I), I = 1, MWORDS) IF (IMODTM.EQ.2) WRITE (LOUT, 2110) CTIME, CPUTMM, INCTIM, * MODTIM, (MESAGE(I), I = 1, MWORDS) LOGLIN = LOGLIN + 1 CPUTIM = CPUTMM IF (IMODTM.EQ.1) MODTIM = CPUTMM RETURN C 2000 FORMAT (1H1, 77(1H*)/ * 1X , 1H*, 75X, 1H*/ * 1X , 1H*, 7X, 'DATE ', 2(I2, '/'), I2, * 7X, A41, 7X, 1H*/ * 1X , 1H*, 75X, 1H*/ * 1X , 77(1H*)/) 2055 FORMAT (1X, 2X, 'WALL', 10X, * 'TOTAL', 7X, * 'INCREMENTAL', 6X, * 'MODULE', 14X, * 'MODULE/'/ * 1X, 2X, 'CLOCK', 10X, * 'CPU', 12X, * 'CPU', 12X, * 'CPU', 13X, * 'SUBROUTINE'/ * 1X, 2X, 'TIME', 9X, * 'SECONDS', 8X, * 'SECONDS', 8X, * 'SECONDS', 13X, * 'STATUS'// * 1X, 78(1H-)/) 2100 FORMAT (1X, A8, * 4X, F10.3, 5X, F10.3, 15X, * 5X, A4, 2X, 2A4, 2X, 12A4) 2110 FORMAT (1X, A8, * 4X, F10.3, 5X, F10.3, 5X, F10.3, * 5X, A4, 2X, 2A4, 2X, 12A4) END ================================================ FILE: mis/contor.f ================================================ SUBROUTINE CONTOR (GPLST,X,U,DD,Z,IZ,PPEN,DEFORM,B1,OPCOR) C INTEGER OPCOR,IZ(1),GPLST(1),PPEN,PEN,DEFORM,PARM,EST, 1 STRESS,SORT,SCR1,BUFSIZ,B1,B2,B3,ELID,ERR,SUB(2), 2 COLOR,ELMID,GPTS(12),PEDGE,ESYM,OFFSET REAL XB(8),X(3,1),DD(3,1),U(2,1),CENTER,RCNTRL,RCOLOR DIMENSION LABL(50),Z(1),IBEGIN(2),PT(8) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / SKIP(10),PARM,SKP4,EST,SKP8(11),STRESS,SORT, 1 NEWOES,SCR1 COMMON /XXPARM/ SKIP2(157),NCNTR,CNTR(50),ICNTVL,SKIP6(5),ISET, 1 SK18(18),COLOR,LAYER COMMON /PLTDAT/ SKIP3(2),XMIN COMMON /SYSTEM/ BUFSIZ,NOUT COMMON /DRWDAT/ JSET,SKIP7(14),PEDGE EQUIVALENCE (IBEGIN(1),LINES),(IBEGIN(2),IGDPT) DATA KBAR , KT3,KQ4/ 2HBR,2HT3,2HQ4 / DATA SUB / 4HCONT , 4HOR / C B2 = B1 - 2*BUFSIZ B3 = B2 - BUFSIZ LOPCOR = OPCOR/5 ID = 1 ERR = 0 IRR = 0 NCNTR = IABS(NCNTR) C C COLOR = 0 IS NO COLOR CONTOUR, C COLOR = 1 TO 31 IS DRAW CONTOUR LINES IN COLOR. C COLOR =-1 TO -31 ID COLOR FILL ELEMENTS BY STRESS C C THIS IS THE CODE FOR THE COLOR BAR SCALE C AT THE TOP OF THE PLOT C IF (COLOR .EQ. 0) GO TO 40 CALL LINE (0.0,0.0,0.0,0.0,32,-1) ICOLOR = IABS(COLOR) RCOLOR = 535.0/ICOLOR C 535.0 IS BASED ON 1000X1000 PLOT SCREEN COORDINATE FRAME DO 30 IB = 1,ICOLOR PEN = IB + 31 XB(1) = 368.14 + RCOLOR*(IB-1) XB(2) = 959.67 XB(3) = XB(1) + RCOLOR XB(4) = XB(2) XB(5) = XB(3) XB(6) = 977.51 XB(7) = XB(1) XB(8) = XB(6) IK = 0 IK1 = 1 IK2 = 2 IK3 = 3 IK4 = 4 DO 20 II = 1,4 IK1 = IK1 + IK IK2 = IK2 + IK IK3 = IK3 + IK IK4 = IK4 + IK IK = 2 IF (II .EQ. 4) PEN = 0 IF (II .NE. 4) GO TO 10 IK1 = 7 IK2 = 8 IK3 = 1 IK4 = 2 10 CALL LINE (XB(IK1),XB(IK2),XB(IK3),XB(IK4),PEN,0) 20 CONTINUE 30 CONTINUE CALL LINE (0.0,0.0,0.0,0.0,PEN,+1) 40 ISAV = LOPCOR + ID IVAL = LOPCOR + ISAV ICEN = LOPCOR + IVAL LOPCOR= LOPCOR- 1 PEN = PPEN IF (ICNTVL.GT.9 .AND. ICNTVL.LT.14 .AND. PEDGE.NE.1) GO TO 50 CALL CLOSE (PARM,2) IF (ICNTVL.LE.9 .OR. ICNTVL.GT.13) CALL CREATE (GPLST,X,U,DEFORM, 1 CONMIN,CONMAX,Z(IVAL),Z(ICEN),LOPCOR,B1,B2) IF (ISET .NE. JSET) CALL ORDER (GPLST,Z(IVAL),Z(ISAV),Z(ICEN), 1 Z(ID),LOPCOR,B1,B2,B3) ISET = JSET 50 IF (ICNTVL.GT.9 .AND. ICNTVL.LT.14) 1 CALL DISPLA (GPLST,X,U,DD,PEN,DEFORM,LABL,PT,B1) IF (ICNTVL.GT.9 .AND. ICNTVL.LT.14) GO TO 420 IF (CONMIN .EQ. CONMAX) GO TO 470 IF (COLOR .LT. 0) CALL CLOSE (EST,2) CALL GOPEN (SCR1,GPLST(B1),1) CALL CLOSE (SCR1,2) CALL GOPEN (SORT,GPLST(B2),2) CALL GOPEN (STRESS,GPLST(B1),0) C C BUFFERS ASSIGNEMENT HERE - C B1 IS USED BY STRESS (SCRATCH1/301), AND BY SCR1 (SCRATCH4/304) C FOR SHORT PERIODS OF TIME ONLY C B2 IS USED BY SORT (SCRATCH2/302) C B3 IS USED BY EST (ELEST/103) AND BY SCR1 (SCRATCH4/304) C NCNTR = MIN0(NCNTR,50) IF (CNTR(1) .NE. CNTR(2)) GO TO 90 C C IF INTERVALS SPECIFIED, DEFINE CONTOUR VALUES C DELTA = (CONMAX-CONMIN)/FLOAT(NCNTR-1) CNTR(1) = CONMIN J = NCNTR - 1 DO 80 I = 2,J CNTR(I) = CNTR(I-1) + DELTA 80 CONTINUE CNTR(NCNTR) = CONMAX 90 CALL LINE (0.,0.,0.,0.,PEN,-1) DO 100 I = 1,NCNTR 100 LABL(I) = 3 C C READ AND STORE CONTOUR VALUES AND CENTROIDS C ELID = 0 LOPCOX = LOPCOR + 1 DO 110 I = 1,LOPCOX IS = ISAV + I - 1 IZ(IS) = 0 110 CONTINUE IF (COLOR .GE. 0) GO TO 130 CALL GOPEN (EST,GPLST(B3),2) CALL BCKREC (EST) IMHERE = 120 120 CALL READ (*280,*270,EST,ESYM,1,0,M) IRR = 0 CALL FREAD (EST,NGPPE,1,0) 130 CALL FWDREC (*415,SORT) 140 CALL READ (*415,*415,SORT,IFLAG,1,0,M) IF (IFLAG .EQ. 0) GO TO 415 IF (IFLAG .EQ. -2) GO TO 130 CALL FREAD (SORT,IBEGIN,2,0) CALL READ (*415,*150,SORT,IZ(ID),LINES,1,I) 150 IREAD = 0 NEL = 0 DO 170 I = 1,LINES IC = ICEN + 2*(I-1) IV = IVAL + I - 1 ID1= ID + I - 1 IS = ISAV + I - 1 DO 160 J = 1,LOPCOR JS = ISAV + J - 1 JV = IVAL + J - 1 JC = ICEN + 2*(J-1) IF (IZ(JS) .EQ. 0) GO TO 170 IF (IZ(ID1) .NE. IZ(JS)) GO TO 160 Z(IV ) = Z(JV) Z(IC ) = Z(JC) Z(IC+1) = Z(JC+1) IZ(IS ) = IZ(ID1) NEL = NEL + 1 GO TO 170 160 CONTINUE 170 CONTINUE IF (ELID .GT. 0) GO TO 190 180 CALL READ (*290,*290,STRESS,ESSYM,1,0,M) 190 CALL READ (*290,*180,STRESS,ELID,1,0,M) IF (ELID .EQ. 0) GO TO 180 CALL FREAD (STRESS,V,1,0) CALL FREAD (STRESS,PT,2,0) DO 250 I = 1,LINES ID1 = ID + I - 1 IS = ISAV + I - 1 IV = IVAL + I - 1 IC = ICEN + 2*I - 2 IF (IZ(ID1) .NE. ELID) GO TO 250 IF (IZ(IS) .EQ. ELID) GO TO 250 Z(IV ) = V Z(IC ) = PT(1) Z(IC+1) = PT(2) IZ(IS ) = ELID IF (COLOR .GE. 0) GO TO 240 IMHERE = 200 ASSIGN 206 TO IRTN 195 JRR = 0 200 OFFSET = 0 IF (ESYM .EQ. KBAR) OFFSET = 6 IF (ESYM.EQ.KT3 .OR. ESYM.EQ.KQ4) OFFSET = 1 201 CALL READ (*204,*205,EST,ELMID,1,0,M) IF (ELMID .EQ. 0) GO TO 203 CALL FREAD (EST,0,-1,0) CALL FREAD (EST,GPTS,NGPPE,0) IF (OFFSET .NE. 0) CALL FREAD (EST,0,-OFFSET,0) IF (ELMID .EQ. ELID) GO TO 210 GO TO 201 C 203 JRR = JRR + 1 IF (JRR .LE. 1) CALL BCKREC (EST) IMHERE = 203 ASSIGN 120 TO IRTN CALL READ (*204,*204,EST,ESYM,1,0,M) CALL FREAD (EST,NGPPE,1,0) GO TO 200 C 204 ERR = ERR + 1 IF (ERR .GT. 3) GO TO 285 CALL REWIND (EST) CALL SKPREC (EST,1) GO TO IRTN, (120,205,206) C 205 IMHERE = 205 ASSIGN 205 TO IRTN 206 CALL READ (*204,*205,EST,ESYM,1,0,M) CALL FREAD (EST,NGPPE,1,0) GO TO 195 C C START TO CONTOUR FILL HERE C 210 RCOLOR = ICOLOR RCNTRL = NCNTR DO 230 IK = 1,NCNTR PEN = 32 + (1.0-(RCNTRL-IK+1)/RCNTRL)*RCOLOR IK1 = IK + 1 IF (IK .EQ. NCNTR) IK1 = IK IF (V.LT.CNTR(IK) .OR. V.GT.CNTR(IK1)) GO TO 230 DO 220 J = 1,NGPPE K = J + 1 IG = GPTS(J) IG = IABS(GPLST(IG)) IF (J .EQ. NGPPE) K = 1 IG1 = GPTS(K) IG1 = IABS(GPLST(IG1)) IF (J .EQ. NGPPE) PEN = 0 CALL LINE (X(2,IG),X(3,IG),X(2,IG1),X(3,IG1),PEN,0) 220 CONTINUE GO TO 240 230 CONTINUE 240 NEL = NEL + 1 GO TO 260 250 CONTINUE 260 IF (NEL .GE. LINES) GO TO 300 GO TO 190 C 270 CALL BCKREC (EST) IRR = IRR + 1 IF (IRR .LT. 3) GO TO 120 C C END OF FILE ON EST C 280 ERR = ERR + 1 IF (ERR .GT. 3) GO TO 285 CALL REWIND (EST) CALL SKPREC (EST,1) GO TO 120 285 WRITE (NOUT,286) UIM,ELID,IMHERE,ERR,IRR,NGPPE 286 FORMAT (A29,', CONTOUR FAILED TO LOCATE ELMENT ID =',I8, /5X, 2 'IMHERE =',I5, 5X,'ERR,IRR,NGPPE =',3I8) GO TO 190 C C END OF FILE ON STRESS C 290 CALL REWIND (STRESS) CALL FWDREC (*415,STRESS) IF (IREAD .EQ. 1) GO TO 140 IREAD = 1 GO TO 180 C C END DATA SEARCH C 300 L = LINES IS = LINES + ISAV IZ(IS) = 0 IF (LINES .GT. 3) GO TO 310 XMID = Z(ICEN+4) YMID = Z(ICEN+5) CENVAL = Z(IVAL+2) L = 1 GO TO 350 310 IG = IABS(GPLST(IGDPT)) IF (DEFORM .NE. 0) GO TO 320 XMID = X(2,IG) YMID = X(3,IG) GO TO 330 320 XMID = U(1,IG) YMID = U(2,IG) 330 SUM1 = 0.0 SUM2 = 0.0 DO 340 I = 1,LINES IV = IVAL + I - 1 IC = ICEN + 2*I - 2 S = SQRT((XMID-Z(IC))**2 + (YMID-Z(IC+1))**2) SUM1 = SUM1 + Z(IV) * S 340 SUM2 = SUM2 + S CENVAL = SUM1/SUM2 350 IV = IVAL + LINES IC = ICEN + 2*LINES Z(IV ) = Z(IVAL) Z(IC ) = Z(ICEN) Z(IC+1) = Z(ICEN+1) C C PLOT CONTOURS. C IF (COLOR .LT. 0) GO TO 140 RCOLOR = ICOLOR RCNTRL = NCNTR C CALL CLOSE (EST,2) CALL GOPEN (SCR1,GPLST(B3),3) C DO 410 I = 1,NCNTR IF (COLOR .NE. 0) PEN = 1 + (1.0-(RCNTRL-I+1)/RCNTRL)*RCOLOR DO 400 J = 1,L PT(1) = XMIN - 1.0 PT(3) = PT(1) PT(5) = PT(1) JC = ICEN + 2*J - 2 JV = IVAL + J - 1 D = (Z(JV) - Z(JV+1)) IF (ABS(Z(JV)-CNTR(I)).GT.ABS(D) .OR. ABS(Z(JV+1)-CNTR(I)) 1 .GT.ABS(D)) GO TO 360 IF (D .EQ. 0.0) D = 1.0 PT(1) = Z(JC ) + (Z(JC+2)-Z(JC ))*(Z(JV)-CNTR(I))/D PT(2) = Z(JC+1) + (Z(JC+3)-Z(JC+1))*(Z(JV)-CNTR(I))/D 360 D = Z(JV+1) - CENVAL IF (ABS(Z(JV+1)-CNTR(I)).GT.ABS(D) .OR. ABS(CENVAL-CNTR(I)) 1 .GT.ABS(D)) GO TO 370 IF (D .EQ. 0.0) D = 1.0 PT(3) = Z(JC+2) + (XMID-Z(JC+2))*(Z(JV+1)-CNTR(I))/D PT(4) = Z(JC+3) + (YMID-Z(JC+3))*(Z(JV+1)-CNTR(I))/D 370 D = CENVAL - Z(JV) IF (ABS(CENVAL-CNTR(I)).GT.ABS(D) .OR. 1 ABS(Z(JV)-CNTR(I)) .GT. ABS(D)) GO TO 380 IF (D .EQ. 0.0) D = 1.0 PT(5) = XMID + (Z(JC )-XMID)*(CENVAL-CNTR(I))/D PT(6) = YMID + (Z(JC+1)-YMID)*(CENVAL-CNTR(I))/D 380 PT(7) = PT(1) PT(8) = PT(2) DO 390 K = 1,5,2 IF (PT(K).LT.XMIN .OR. PT(K+2).LT.XMIN) GO TO 390 CALL LINE (PT(K),PT(K+1),PT(K+2),PT(K+3),PEN,0) LABL(I) = LABL(I) + 1 IF (LABL(I) .NE. 4) GO TO 390 LABL(I) = 0 CALL WRITE (SCR1,I,1,0) CALL WRITE (SCR1,PT(K),2,0) 390 CONTINUE 400 CONTINUE 410 CONTINUE C CALL CLOSE (SCR1,2) CALL GOPEN (EST,GPLST(B3),2) GO TO 140 C 415 CALL CLOSE (SORT,1) CALL CLOSE (STRESS,1) CALL CLOSE (SCR1,1) C IF (COLOR .LT. 0) CALL CLOSE (EST,1) C IF (COLOR .GE. 0) CALL GOPEN (EST,GPLST(B3),2) 420 CALL LINE (0.,0.,0.,0.,PEN,+1) IF (COLOR .EQ. 0) GO TO 430 CALL TYPFLT (0.0,0.0,0,0,0,-1) CALL TYPFLT (368.14,990.0,1,CNTR(1),-8,0) CENTER = (CNTR(1)+CNTR(NCNTR))/2.0 CALL TYPFLT (585.90,990.0,1,CENTER,-8,0) CALL TYPFLT (796.3,990.0,1,CNTR(NCNTR),-8,0) CALL TYPFLT (0.0,0.0,0,0,0,+1) IF (COLOR .LT. 0) GO TO 460 430 CALL GOPEN (SCR1,GPLST(B1),0) IF (COLOR .EQ. 0) CALL TYPINT (0.,0.,0,0,0,-1) 440 CALL READ (*450,*450,SCR1,I,1,0,M) CALL FREAD (SCR1,PT,2,0) IF (COLOR .EQ. 0) CALL TYPINT (PT(1),PT(2),1,I,1,0) GO TO 440 450 IF (COLOR .EQ. 0) CALL TYPINT (0.,0.,0,0,0,+1) CALL CLOSE (SCR1,1) 460 CALL PLTOPR 470 IF ((ICNTVL.GT.9 .AND. ICNTVL.LT.14) .AND. PEDGE.NE.1) RETURN CALL GOPEN (PARM,GPLST(B2),2) RETURN END ================================================ FILE: mis/copy.f ================================================ SUBROUTINE COPY C C COPY INPUT /OUTPUT/ PARAM $ C C THIS UTILITY MODULE GENERATES A PHYSICAL COPY OF THE INPUT DATA C BLOCK IF THE VALUE OF PARAM IS LESS THAN ZERO (DEFAULT IS -1). C THE OUTPUT DATA BLOCK CARRIES THE INPUT DATA BLOCK NAME IN THE C HEADER RECORD. C IF PARAM IS SET TO ZERO, THE OUTPUT DATA BLOCK WILL HAVE ITS OWN C NAME IN THE OUTPUT FILE HEADER RECORD. (IMPLEMENTED IN JUNE 84) C C INTEGER MODNAM(2),SYSBUF,OUTPUT,ITRL(7),IN(15),OUT(15) COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / IPARAM COMMON /XFIST / IFIST(1) COMMON /XFIAT / IFIAT(1) DATA INPUT / 101 /, OUTPUT / 201 /, MODNAM / 4HCOPY,4H / C C RETURN IF IPARAM NOT GREATER THAN ZERO C IF (IPARAM .EQ. 0) IPARAM = -1111 IF (IPARAM .GE. 0) RETURN C C COMPUTE OPEN CORE AND INITIALIZE GINO BUFFERS C NZWD = KORSZ(Z(1)) IF (NZWD .LE. 0) CALL MESAGE (-8,0,MODNAM) IBUF1 = NZWD - SYSBUF IBUF2 = IBUF1 - SYSBUF LCORE = IBUF2 - 1 IF (LCORE .LE. 0) CALL MESAGE (-8,0,MODNAM) C C OPEN INPUT AND OUTPUT DATA BLOCKS C IN(1) = INPUT OUT(1) = OUTPUT ITRL(1) = 101 CALL RDTRL (ITRL) CALL OPEN (*1001,INPUT,Z(IBUF1),0) CALL OPEN (*1002,OUTPUT,Z(IBUF2),1) CALL CPYFIL (IN,OUT,Z(1),LCORE,ICOUNT) CALL CLOSE (OUTPUT,1) CALL CLOSE (INPUT,1) ITRL(1) = 201 CALL WRTTRL (ITRL) RETURN C 1001 CALL MESAGE (-1,INPUT,MODNAM) 1002 CALL MESAGE (-1,OUTPUT,MODNAM) RETURN END ================================================ FILE: mis/cpyfil.f ================================================ SUBROUTINE CPYFIL (INFILE,OUFILE,AREA,N,COUNT) C C CPYFIL COPIES RECORDS FROM INFILE TO OUFILE UNTIL AN END-OF-FILE C ON INFILE IS ENCOUNTERED. AN END-OF-FILE IS NOT WRITTEN ON OUFILE. C RECTYPE IS CALLED PRIOR TO COPYING EACH RECORD. STRING RECORDS ARE C COPIED USING CPYSTR. NORMAL RECORDS ARE COPIED USING READ/WRITE. C UPON EXIT, INFILE IS POSITIONED IMMEDIATELY AFTER THE END-OF-FILE C AND OUFILE IS POSITIONED AFTER THE LAST RECORD WRITTEN. C C THIS ROUTINE DOES NOT OPEN NOR CLOSE ANY FILE, NOR WRITE ANY C MATRIX TRAILER C INTEGER AREA(2),INBLK(15),OUBLK(15),OUFILE,TYPE,EOR,COUNT COMMON /BLANK/ IPARAM C C INITIALIZE STRING COMMUNICATION BLOCKS AND DETERMINE RECORD TYPE C INBLK(1) = INFILE OUBLK(1) = OUFILE COUNT = 0 10 CALL RECTYP (INFILE,TYPE) IF (TYPE .NE. 0) GO TO 50 C C COPY NORMAL RECORD C 20 EOR = 1 CALL READ (*60,*30,INFILE,AREA,N,0,NWDS) EOR = 0 NWDS = N 30 IF (COUNT.NE.0 .OR. IPARAM.NE.-1111) GO TO 40 CALL FNAME (INFILE,AREA(NWDS+1)) IF (AREA(NWDS+1).EQ.AREA(1) .AND. AREA(NWDS+2).EQ.AREA(2)) 1 CALL FNAME (OUFILE,AREA) 40 CALL WRITE (OUFILE,AREA,NWDS,EOR) COUNT = COUNT + NWDS IF (EOR) 10,20,10 C C COPY STRING RECORDS C 50 CALL CPYSTR (INBLK,OUBLK,0,0) COUNT = COUNT + OUBLK(13) GO TO 10 C C RETURN WHEN END-OF-FILE IS ENCOUNTERED C 60 RETURN END ================================================ FILE: mis/cpystr.f ================================================ SUBROUTINE CPYSTR (INBLK,OUTBLK,FLAG,COL) C C CPYSTR COPIES A LOGICAL RECORD WRITTEN IN STRING FORMAT C FROM ONE FILE TO ANOTHER FILE. C C INBLK = 15-WORD STRING COMMUNICATION BLOCK FOR INPUT FILE C OUTBLK = 15-WORD STRING COMMUNICATION BLOCK FOR OUTPUT FILE C FLAG .NE. 0 MEANS 1ST CALL GETSTR HAS BEEN MADE FOR THE RECORD C .EQ. 0 MEANS 1ST CALL GETSTR HAS NOT BEEN MADE C COL .EQ. 0 MEANS COLUMN NUMBER IS IN INBLK(12) C .NE. 0 MEANS COL IS COLUMN NUMBER C C INTEGER INBLK(15),OUTBLK(15),FLAG,PRC,WORDS,RLCMPX,TYPE, 1 PREC,RC,OUT,COL DOUBLE PRECISION XND(1) COMMON /ZZZZZZ/ XNS(1) COMMON /TYPE / PRC(2),WORDS(4),RLCMPX(4) EQUIVALENCE (XNS(1),XND(1)) C C ON OPTION, MAKE 1ST CALL TO GETSTR AND THEN INITIALIZE C IF (FLAG .NE. 0) GO TO 10 INBLK(8) = -1 CALL GETSTR (*50,INBLK) 10 OUTBLK(2) = INBLK(2) OUTBLK(3) = INBLK(3) OUTBLK(4) = INBLK(4) OUTBLK(8) = -1 OUTBLK(12) = COL IF (COL .EQ. 0) OUTBLK(12) = INBLK(12) OUTBLK(13)= 0 TYPE = INBLK(2) PREC = PRC(TYPE) RC = RLCMPX(TYPE) C C COPY A STRING C 12 CALL PUTSTR (OUTBLK) NPREV = 0 OUTBLK(7) = MIN0(INBLK(6),OUTBLK(6)) 14 IN = INBLK(5) OUT = OUTBLK(5) NSTR = OUT + RC*(OUTBLK(7) - NPREV) - 1 IF (PREC .EQ. 2) GO TO 18 C DO 16 JOUT = OUT,NSTR XNS(JOUT) = XNS(IN) IN = IN + 1 16 CONTINUE GO TO 20 C 18 DO 19 JOUT = OUT,NSTR XND(JOUT) = XND(IN) IN = IN + 1 19 CONTINUE C C TEST FOR END OF INPUT STRING(S) C 20 IF (OUTBLK(7) .EQ. INBLK(6)+NPREV) GO TO 30 OUTBLK(13) = OUTBLK(13) + OUTBLK(7) CALL ENDPUT (OUTBLK) OUTBLK(4) = OUTBLK(4) + OUTBLK(7) INBLK(6) = INBLK(6) - (OUTBLK(7) - NPREV) INBLK(5) = IN GO TO 12 C C INPUT STRING HAS BEEN COPIED. GET ANOTHER STRING. C 30 CALL ENDGET (INBLK) CALL GETSTR (*40,INBLK) C C TEST FOR STRING CONTIGUOUS WITH PREVIOUS STRING. C IF SO, AND IF TERMS AVAILABLE, CONCATENATE WITH PREVIOUS STRING. C IF (INBLK(4) .NE. OUTBLK(4)+OUTBLK(7)) GO TO 35 IF (OUTBLK(7).GE. OUTBLK(6)) GO TO 35 OUTBLK(5) = NSTR + 1 NPREV = OUTBLK(7) OUTBLK(7) = MIN0(OUTBLK(7)+INBLK(6),OUTBLK(6)) GO TO 14 35 OUTBLK(13) = OUTBLK(13) + OUTBLK(7) CALL ENDPUT (OUTBLK) OUTBLK(4) = INBLK(4) GO TO 12 C C NO MORE STRINGS - CLOSE RECORD AND RETURN C 40 OUTBLK(8) = 1 CALL ENDPUT (OUTBLK) OUTBLK(13) = (OUTBLK(13)+OUTBLK(7))*WORDS(TYPE) RETURN C C HERE IF NO STRINGS IN RECORD - MAKE A NULL RECORD C 50 OUTBLK(2) = 1 OUTBLK(3) = 0 OUTBLK(8) = -1 CALL PUTSTR (OUTBLK) OUTBLK(8) = 1 CALL ENDPUT (OUTBLK) RETURN END ================================================ FILE: mis/crdrd.f ================================================ SUBROUTINE CRDRD (*,*,MU,INDCOM,N23) C C WRITE THE RIGID ROD ELEMENT ON THE RG FILE C C EXTERNAL ORF ,LSHIFT C INTEGER ORF ,LSHIFT INTEGER GEOMP ,BGPDT ,CSTM ,RGT ,SCR1 , 1 BUF(20),MASK16 ,GPOINT ,Z ,MCODE(2) REAL INDTFM(9),DEPTFM(9),RODCOS(3),IDRCOS(3), 1 DDRCOS(3),DZ(1),XD ,YD ,ZD , 2 RLNGTH ,CDEP ,RZ(1) COMMON /MACHIN/ MAC ,IHALF ,JHALF COMMON /ZZZZZZ/ Z(1) COMMON /GP4FIL/ GEOMP ,BGPDT ,CSTM ,RGT ,SCR1 COMMON /GP4PRM/ BUF ,BUF1 ,BUF2 ,BUF3 ,BUF4 , 1 KNKL1 ,MASK16 ,NOGO ,GPOINT ,KN EQUIVALENCE (Z(1) ,DZ(1) ,RZ(1)) C C INDTFM = INDEPENDENT GRID POINT TRANSFORMATION MATRIX C DEPTFM = DEPENDENT GRID POINT TRANSFORMATION MATRIX C RODCOS = BASIC COSINES OF ROD ELEMENT C IDRCOS = DIRECTION COSINES OF INDEPENDENT GRID POINT C DDRCOS = DIRECTION COSINES OF DEPENDENT GRID POINT C MASK15 = JHALF/2 C C OBTAIN TRANSFORMATION MATRIX C IF (Z(KNKL1+3) .EQ. 0) GO TO 50 DO 10 I = 1,4 BUF(I) = Z(KNKL1+2+I) 10 CONTINUE CALL TRANSS (BUF,INDTFM) 50 IF (Z(KNKL1+10) .EQ. 0) GO TO 70 DO 60 I = 1,4 BUF(I) = Z(KNKL1+9+I) 60 CONTINUE CALL TRANSS (BUF,DEPTFM) C C COMPUTE THE LENGTH OF THE RIGID ROD ELEMENT C 70 XD = RZ(KNKL1+11) - RZ(KNKL1+4) YD = RZ(KNKL1+12) - RZ(KNKL1+5) ZD = RZ(KNKL1+13) - RZ(KNKL1+6) C C CHECK TO SEE IF LENGTH OF ROD IS ZERO C IF (XD.EQ.0.0 .AND. YD.EQ.0.0 .AND. ZD.EQ.0.0) RETURN 1 RLNGTH = SQRT(XD*XD + YD*YD + ZD*ZD) C C COMPUTE THE BASIC DIRECTION COSINES OF THE RIGID ROD ELEMENT C RODCOS(1) = XD/RLNGTH RODCOS(2) = YD/RLNGTH RODCOS(3) = ZD/RLNGTH C C OBTAIN THE DIRECTION COSINES ASSOCIATED WITH C THE INDEPENDENT GRID POINT C IF (Z(KNKL1+3) .NE. 0) GO TO 100 DO 80 I = 1,3 IDRCOS(I) = RODCOS(I) 80 CONTINUE GO TO 200 100 CALL GMMATS (RODCOS,1,3,0, INDTFM,3,3,0, IDRCOS) C C OBTAIN THE DIRECTION COSINES ASSOCIATED WITH C THE DEPENDENT GRID POINT C 200 IF (Z(KNKL1+10) .NE. 0) GO TO 300 DO 250 I = 1,3 DDRCOS(I) = RODCOS(I) 250 CONTINUE GO TO 400 300 CALL GMMATS (RODCOS,1,3,0, DEPTFM,3,3,0, DDRCOS) C C DETERMINE THE DEPENDENT SIL AND THE CORRESPONDING COEFFICIENT C 400 DO 500 I = 1,3 IF (INDCOM .NE. I) GO TO 500 IDEP = Z(KNKL1+6+I) CDEP = RODCOS(I) GO TO 600 500 CONTINUE C C CHECK TO SEE IF RIGID ROD IS PROPERLY DEFINED C 600 IF (ABS(CDEP) .LT. 0.0) RETURN 2 MCODE(2) = IDEP IF (IDEP .GT. MASK15) N23 = 3 DO 700 I = 1,3 MCODE(1) = Z(KNKL1+I-1) IF (MCODE(1) .GT. MASK15) N23 = 3 COEFF = -IDRCOS(I)/CDEP CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) MCODE(1) = Z(KNKL1+6+I) IF (MCODE(1) .GT. MASK15) N23 = 3 COEFF = DDRCOS(I)/CDEP CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) 700 CONTINUE Z(MU) = IDEP MU = MU - 1 RETURN END ================================================ FILE: mis/crdrd2.f ================================================ SUBROUTINE CRDRD2 (*,*,MU,INDCOM,N23) C C WRITE THE RIGID ROD ELEMENT ON THE RG FILE C C EXTERNAL ORF ,LSHIFT C INTEGER ORF INTEGER GEOMP ,BGPDT ,CSTM ,RGT ,SCR1 , 1 BUF(20),MASK16 ,GPOINT ,Z(1) ,MCODE(2) REAL RZ(1) DOUBLE PRECISION INDTFM(9),DEPTFM(9),RODCOS(3),IDRCOS(3), 1 DDRCOS(3), 2 DZ(1) ,XD ,YD ,ZD ,RLNGTH ,CDEP COMMON /ZZZZZZ/ Z COMMON /GP4FIL/ GEOMP ,BGPDT ,CSTM ,RGT ,SCR1 COMMON /GP4PRM/ BUF ,BUF1 ,BUF2 ,BUF3 ,BUF4 ,KNKL1 , 1 MASK16 ,NOGO ,GPOINT ,KN EQUIVALENCE (Z(1) ,DZ(1)) ,(Z(1) ,RZ(1)) DATA MASK15 /32767/ C C INDTFM = INDEPENDENT GRID POINT TRANSFORMATION MATRIX C DEPTFM = DEPENDENT GRID POINT TRANSFORMATION MATRIX C RODCOS = BASIC COSINES OF ROD ELEMENT C IDRCOS = DIRECTION COSINES OF INDEPENDENT GRID POINT C DDRCOS = DIRECTION COSINES OF DEPENDENT GRID POINT C C OBTAIN TRANSFORMATION MATRIX C IF (Z(KNKL1+3) .EQ. 0) GO TO 50 DO 10 I = 1,4 BUF(I) = Z(KNKL1+2+I) 10 CONTINUE CALL TRANSD (BUF,INDTFM) 50 IF (Z(KNKL1+10) .EQ. 0) GO TO 70 DO 60 I = 1,4 BUF(I) = Z(KNKL1+9+I) 60 CONTINUE CALL TRANSD (BUF,DEPTFM) C C COMPUTE THE LENGTH OF THE RIGID ROD ELEMENT C 70 XD = RZ(KNKL1+11) - RZ(KNKL1+4) YD = RZ(KNKL1+12) - RZ(KNKL1+5) ZD = RZ(KNKL1+13) - RZ(KNKL1+6) C C CHECK TO SEE IF LENGTH OF ROD IS ZERO C IF (XD.EQ.0.0D0 .AND. YD.EQ.0.0D0 .AND. ZD.EQ.0.0D0) RETURN 1 RLNGTH = DSQRT(XD*XD + YD*YD + ZD*ZD) C C COMPUTE THE BASIC DIRECTION COSINES OF THE RIGID ROD ELEMENT C RODCOS (1) = XD/RLNGTH RODCOS (2) = YD/RLNGTH RODCOS (3) = ZD/RLNGTH C C OBTAIN THE DIRECTION COSINES ASSOCIATED WITH C THE INDEPENDENT GRID POINT C IF (Z(KNKL1+3) .NE. 0) GO TO 100 DO 80 I = 1,3 IDRCOS(I) = RODCOS(I) 80 CONTINUE GO TO 200 100 CALL GMMATD (RODCOS,1,3,0,INDTFM,3,3,0,IDRCOS) C C OBTAIN THE DIRECTION COSINES ASSOCIATED WITH C THE DEPENDENT GRID POINT C 200 IF (Z(KNKL1+10) .NE. 0) GO TO 300 DO 250 I = 1,3 DDRCOS(I) = RODCOS(I) 250 CONTINUE GO TO 400 300 CALL GMMATD (RODCOS,1,3,0,DEPTFM,3,3,0,DDRCOS) C C DETERMINE THE DEPENDENT SIL AND THE CORRESPONDING COEFFICIENT C 400 DO 500 I = 1,3 IF (INDCOM .NE. I) GO TO 500 IDEP = Z(KNKL1+6+I) CDEP = RODCOS(I) GO TO 600 500 CONTINUE C C CHECK TO SEE IF RIGID ROD IS PROPERLY DEFINED C 600 IF (DABS(CDEP) .LT. 0.001D0) RETURN 2 MCODE(2) = IDEP IF (IDEP .GT. MASK15) N23 = 3 DO 700 I = 1, 3 MCODE(1) = Z(KNKL1+I-1) IF (MCODE(1) .GT. MASK15) N23 = 3 COEFF = -IDRCOS(I)/CDEP CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) MCODE(1) = Z(KNKL1+6+I) IF (MCODE(1) .GT. MASK15) N23 = 3 COEFF = DDRCOS(I)/CDEP CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) 700 CONTINUE Z(MU) = IDEP MU = MU - 1 RETURN END ================================================ FILE: mis/create.f ================================================ SUBROUTINE CREATE (GPLST,X,U,DEFORM,CONMIN,CONMAX,ELMTID,STORE, 1 LCOR,B1,B2) C INTEGER GPLST(1),DEFORM,LAYER,IDUMMY(2),EST,PRNT,SCR1, 1 OES1,STRESS,B1,B2,WHERE,DIRECT,SUB,ESTSYM(7), 2 SKIPWD(20),ELID,ESYM,GPTS(12),ELMTID(100), 3 MSG1(20),ERR(2),OFFSET REAL X(3,1),U(2,1),STORE(202) DIMENSION ISYM(14),ITYPE(14),PT(2,5),THIRD(2),C(2,4), 1 CENTRD(2) COMMON /BLANK / SKIP(12),EST,SKIP1(7),PRNT,SKI(2),OES1,SCR1,SCR2, 1 NEW COMMON /XXPARM/ SKIP4(157),NCNTR,CNTR(50),ICNTVL,WHERE,DIRECT,SUB, 1 FLAG,VALUE,SKP20(20),LAYER EQUIVALENCE (NEW,NEWOES), (KQ4,ISYM(13)), (KT3,ISYM(14)) DATA NTYPES / 14 / DATA ISYM / 2HSH,2HT1,2HTB,2HTP,2HTM,2HQP,2HQM,2HT2,2HQ2,2HQ1, 1 2HM1,2HM2,2HQ4,2HT3/, KBAR/2HBR/ DATA ITYPE / 4, 6, 7, 8, 9, 15, 16, 17, 18, 19, 62, 63, 64, 83/ DATA ESTSYM / 7*0 / DATA SKIPWD /-5,-6,-7,-1,-2,-3,-4,-5,-6,4*0,0,-1,-2,-5,-6,-7,0 / DATA NMSG1 , MSG1/20,4H(48H,4H NO ,4HSTRE,4HSS C,4HALCU,4HLATI, 1 4HON F , 4HOUND,4H FOR,4H ELE,4HMENT,4H NUM,4HBER ,4H,I8,, 2 4H19H , 4H- EL,4HEMEN,4HT IG,4HNORE,4HD.) / C TWOPI = 8.0*ATAN(1.0) IRDEST = 0 CALL GOPEN (SCR1,GPLST(B1),1) STRESS = OES1 IF ((ICNTVL.GE.4 .AND. ICNTVL.LE.9) .AND. DIRECT.EQ.2) 1 STRESS = NEWOES IF (STRESS.EQ.OES1 .AND. (ICNTVL.EQ.6 .OR. ICNTVL.EQ.8 .OR. 1 ICNTVL.EQ.9)) GO TO 130 IF (STRESS .EQ. OES1) SKIPWD(7) = -3 CALL OPEN (*130,STRESS,GPLST(B2),0) CONMIN = 0.0 CONMAX = 0.0 IEOR = 0 C C CREATE A LIST OF ELEMENTS TYPES TO BE PLOTTED IN THIS SET C JTJ = 1 K = 1 KEST = 0 CALL READ (*135,*135,EST,ESYM,1,0,M) IF (ICNTVL .EQ. 20) GO TO 7 C C ELIMINATE ALL BUT MAXSHEAR FOR CSHEAR ELEMENT C 3 IF (ESYM.EQ.ISYM(1) .AND. ICNTVL.NE.3) GO TO 7 C C ELIMINATE MID STRESS FOR TRIA1, QUAD1, TRPLT, OR QDPLT C IF ((ESYM.EQ.ISYM(2) .OR. ESYM.EQ.ISYM(10) .OR. ESYM.EQ.ISYM(4) 1 .OR. ESYM.EQ.ISYM(6)) .AND. WHERE.EQ.3) GO TO 7 C C ELIMINATE Z2 AND AVER STRESS FOR CTRMEM, CQDMEM, MEM1, MEM2 C IF ((ESYM.EQ.ISYM(5) .OR. ESYM.EQ.ISYM(7) .OR. ESYM.EQ.ISYM(11) 1 .OR. ESYM.EQ.ISYM(12)) .AND. (WHERE.EQ.-1 .OR. WHERE.EQ.3)) 2 GO TO 7 C C ELIMINATE Z1, Z2 AND MAX FOR TRIA2 OR TRBSC ELEMENTS C IF ((ESYM.EQ.ISYM(8) .OR. ESYM.EQ.ISYM(3)) .AND. 1 (IABS(WHERE).EQ.1 .OR. WHERE.EQ.2)) GO TO 7 DO 5 I = 1,NTYPES IF (ESYM .EQ. ISYM(I)) GO TO 6 5 CONTINUE GO TO 7 6 ESTSYM(K) = I K = K + 1 7 CALL FREAD (EST,NGPPE,1,0) C 8 OFFSET = 0 IF (ESYM .EQ. KBAR) OFFSET = 6 IF (ESYM.EQ.KT3 .OR. ESYM.EQ.KQ4) OFFSET = 1 C C FLUSH TO NEXT SYMBOL C 9 CALL FREAD (EST,ELID,1,0) IF (ELID .EQ. 0) GO TO (11,25), JTJ J = 1 + NGPPE + OFFSET CALL FREAD (EST,0,-J,0) GO TO 9 C C READ NEXT SYMBOL C 11 CALL READ (*12,*12,EST,ESYM,1,0,M) GO TO 3 C C LOOP BACK UNTIL ALL EST SYMBOLS ARE IN CORE C 12 K = K - 1 CALL BCKREC (EST) JTJ = 2 C C NOTE THAT THE ASSUMPTION THAT STRESS AND EST FILES ARE ORDERED IN C THE SAME WAY IS NO LONGER NECESSARY C 15 IF (IEOR .EQ. 0) CALL FWDREC (*125,STRESS) IF (ICNTVL .NE. 20) GO TO 20 CALL FWDREC (*125,STRESS) GO TO 25 20 CALL READ (*125,*120,STRESS,IDUMMY,2,0,M) CALL FREAD (STRESS,IELTYP,1,0) CALL FREAD (STRESS,ISUB,1,0) CALL FREAD (STRESS,DETAIL,1,0) CALL FREAD (STRESS,EIGEN,1,0) EIGEN = SQRT(ABS(EIGEN))/TWOPI CALL FREAD (STRESS,0,-3,0) CALL FREAD (STRESS,NWDS,1,1) IF (SUB.GT.0 .AND. ISUB.NE.SUB) GO TO 50 IF (FLAG.EQ.1.0 .AND. DETAIL.NE.VALUE) GO TO 50 IF (FLAG.EQ.2.0 .AND. ABS(EIGEN-VALUE).GT.1.0E-5) GO TO 50 IEOR = 0 DO 22 I = 1,K J = ESTSYM(I) IF (J .EQ. 0) GO TO 22 IF (IELTYP .EQ. ITYPE(J)) GO TO 25 22 CONTINUE GO TO 50 C C YES, WE DO WANT THIS ELEMENT TYPES STRESS DATA. FIND THIS TYPES C ELEMENTS IN THE EST C 25 CALL READ (*905,*905,EST,ESYM,1,0,M) IRDEST = 1 CALL FREAD (EST,NGPPE,1,0) IF (ICNTVL.EQ.20 .OR. ESYM.EQ.ISYM(J)) GO TO 27 C C FLUSH THE FILE UNTIL FOUND C GO TO 8 C 27 CALL WRITE (SCR1,ESYM,1,0) KEST = KEST + 1 MEM = 0 IF (IELTYP.EQ.9 .OR. IELTYP.EQ.16 .OR. IELTYP.EQ.15 .OR. 1 IELTYP.EQ.62 .OR. IELTYP.EQ.63) MEM = 1 C TRMEM(9), QDMEM(16), QDPLT(15), QDMEM1(62), QDMEM2(63) C IWDS = SKIPWD(ICNTVL) IF (ICNTVL .GT. 13) GO TO 29 IF (MEM .EQ. 1) IWDS = IWDS + 1 IF (WHERE.EQ.-1 .AND. MEM.NE.1) IWDS = IWDS - 8 NWDS = -NWDS - IWDS + 2 IF (IABS(WHERE).NE.1 .AND. MEM.NE.1) NWDS = NWDS + 8 IF (WHERE.EQ.-1 .AND. MEM.EQ.1) GO TO 50 IF (IELTYP.EQ.4 .AND. ICNTVL.NE.3) GO TO 50 C SHEAR(4) C 29 IS = 0 C C READ STRESS FILE C 30 IS = IS + 1 CALL READ (*58,*58,STRESS,ELMTID(IS),1,0,M) IF (ICNTVL.LE.9 .OR. ICNTVL.EQ.20) GO TO 35 CALL FREAD (STRESS,NLAYER,1,0) LAYTOT = NLAYER*11 LAYSKP = -((LAYER-1)*10+2) CALL FREAD (STRESS,0,LAYSKP,0) 35 IF (IELTYP .NE. 4) GO TO 40 C C MAXIMUM SHEAR FOR CSHEAR ELEMENT C CALL FREAD (STRESS,STORE(IS),1,0) CALL FREAD (STRESS,0,-2,0) IF (IS .EQ. LCOR) GO TO 60 GO TO 30 40 CALL FREAD (STRESS,0,IWDS,0) CALL FREAD (STRESS,STORE(IS),1,0) IF (ICNTVL.LE.9 .OR. ICNTVL.EQ.20) GO TO 41 NLFIN = -(LAYTOT-1+LAYSKP+IWDS) CALL FREAD (STRESS,0,NLFIN,0) GO TO 30 41 IF (ICNTVL .LT. 20) GO TO 42 CALL FREAD (STRESS,0,-1,0) GO TO 30 42 IF (IABS(WHERE).EQ.1 .OR. MEM.EQ.1) GO TO 45 CALL FREAD (STRESS,0,-7,0) CALL FREAD (STRESS,CONTUR,1,0) 45 CALL FREAD (STRESS,0,NWDS,0) IF (MEM.EQ.1 .AND. IS.GE.LCOR) GO TO 60 IF (MEM .EQ. 1) GO TO 30 IF (WHERE .EQ. 2) STORE(IS) = AMAX1(STORE(IS),CONTUR) IF (WHERE .EQ. 3) STORE(IS) = (STORE(IS)+CONTUR)/2.0 IF (IS .GE. LCOR) GO TO 60 GO TO 30 C C SKIP THIS TYPE C 50 CALL FWDREC (*125,STRESS) GO TO 20 C C END OF RECORD ON STRESS FILE C 58 IEOR = 1 IS = IS - 1 C C STORE STRESS VALUES WITH ELEMENT ID.S C 60 CALL FREAD (EST,ELID,1,0) IF (ELID .EQ. 0) GO TO 90 CALL FREAD (EST,0,-1,0) CALL FREAD (EST,GPTS,NGPPE+OFFSET,0) C C THE VERY NEXT LINE WAS ACCIDENTALLY DROPPED IN 88 VERSION C IF (ELID .GT. ELMTID(IS)/10) GO TO 100 DO 65 IST = 1,IS IF (ELID .EQ. ELMTID(IST)/10) GO TO 70 65 CONTINUE ERR(1) = 1 ERR(2) = ELID CALL WRTPRT (PRNT,ERR,MSG1,NMSG1) GO TO 60 C C FIND ELEMENTS CENTROID C 70 DO 75 I = 1,NGPPE IG = GPTS(I) IG = IABS(GPLST(IG)) IF (DEFORM .NE. 0) GO TO 74 PT(1,I) = X(2,IG) PT(2,I) = X(3,IG) GO TO 75 74 PT(1,I) = U(1,IG) PT(2,I) = U(2,IG) 75 CONTINUE THIRD(1) = PT(1,3) THIRD(2) = PT(2,3) INDEX = 1 PT(1,NGPPE+1) = PT(1,1) PT(2,NGPPE+1) = PT(2,1) IF (NGPPE .LT. 4) GO TO 80 INDEX = 4 CALL CENTRE (*90,PT(1,1),PT(2,1),PT(1,2),PT(2,2),PT(1,3),PT(2,3), 1 PT(1,4),PT(2,4),CENTRD) THIRD(1) = CENTRD(1) THIRD(2) = CENTRD(2) 80 DO 85 I = 1,INDEX CALL CENTRE (*90,PT(1,I),PT(2,I),PT(1,I+1),PT(2,I+1),(THIRD(1)+ 1 PT(1,I+1))*.5,(THIRD(2)+PT(2,I+1))*.5, 2 (THIRD(1)+PT(1,I))*.5,(THIRD(2)+PT(2,I))*.5,CENTRD) C(1,I) = CENTRD(1) C(2,I) = CENTRD(2) 85 CONTINUE IF (NGPPE .LT. 4) GO TO 90 CALL CENTRE (*90,C(1,1),C(2,1),C(1,2),C(2,2),C(1,3),C(2,3),C(1,4), 1 C(2,4),CENTRD) 90 CALL WRITE (SCR1,ELID,1,0) IF (ELID .NE. 0) GO TO 91 905 IF (KEST .EQ. K) GO TO 120 CALL BCKREC (EST) IRDEST = 0 GO TO 15 91 CONTINUE CALL WRITE (SCR1,STORE(IST),1,0) CALL WRITE (SCR1,CENTRD,2,0) IF (CONMIN.NE.0.0 .OR. CONMAX.NE.0.0) GO TO 92 CONMIN = STORE(IST) CONMAX = CONMIN GO TO 60 92 CONMIN = AMIN1(CONMIN,STORE(IST)) CONMAX = AMAX1(CONMAX,STORE(IST)) GO TO 60 C C REFILL STRESS STORAGE AREA C 100 IS = 0 IF (IEOR .EQ. 0) GO TO 30 ERR(1) = 1 ERR(2) = ELID CALL WRTPRT (PRNT,ERR,MSG1,NMSG1) GO TO 60 120 IF (STRESS .EQ. NEWOES) GO TO 126 CALL READ (*125,*125,OES1,0,-3,0,M) CALL FREAD (OES1,ISUB,1,0) CALL FREAD (OES1,DETAIL,1,0) CALL FREAD (OES1,EIGEN,1,1) EIGEN = SQRT(ABS(EIGEN))/TWOPI IF (ISUB .NE. SUB) GO TO 125 IF (FLAG.EQ.1.0 .AND. DETAIL.NE.VALUE) GO TO 125 IF (FLAG.EQ.2.0 .AND. ABS(EIGEN-VALUE).GT.1.0E-5) GO TO 125 CALL FWDREC (*125,OES1) GO TO 120 125 CALL BCKREC (STRESS) 126 CALL CLOSE (STRESS,2) 130 CALL WRITE (SCR1,0,0,1) CALL CLOSE (SCR1,1) IF (IRDEST) 140,140,135 135 CALL BCKREC (EST) 140 CONTINUE RETURN END ================================================ FILE: mis/criggp.f ================================================ SUBROUTINE CRIGGP (N23) C C ****************************************************************** C * C THIS SUBROUTINE GENERATES COEFFICIENTS FOR RIGID ELEMENTS * C FOR USE BY SUBROUTINE GP4. THE DATA SO GENERATED IS * C COMPATIBLE WITH MPC SET DATA. * C * C (MODIFIED BY G.CHAN/SPERRY TO REDUCE EXCESSIVE OPENINGS, * C CLOSINGS, AND READINGS OF THE BGPDT FILE (IN 2ND METHOD). * C WITHOUT THIS MODIFICATION, A PROBLEM OF 2000 RIGID ELEMENTS, * C FOR EXAMPLE, WOULD REQUIRE MORE THAN 10,000 OPENS AND 10,000 * C CLOSES AND OVER 10 MILLION CALLS TO SUBROUTINE READ 10/86) * C * C (MODIFIED AGAIN BY G.CHAN/UNISYS TO INCLUDE CRROD, CRBAR, CRBE1, * C CRBE2, CRBE3, CRTRPLT, AND CRSPLINE RIGID ELEMENTS 11/88) * C * C ****************************************************************** C C EXTERNAL ORF ,LSHIFT LOGICAL AGAIN ,GENRE ,L38 ,DEBUG C INTEGER ORF ,LSHIFT INTEGER GEOMP ,BGPDT ,CSTM ,RGT ,SCR1 , 1 BUF(20),MASK16 ,GPOINT ,Z ,FLAG , 2 FILE ,RET ,RET1 ,IC(1) ,MCODE(2) , 3 BUF1 ,BUF2 ,BUF3 ,BUF4 INTEGER CRIGDR(2),CRIGD1(2) ,CRIGD2(2),CRIGD3(2), 1 CRTRPT(2),CRSPLI(2) ,CRROD(2) ,CRBAR(2) , 2 CRBE1(2) ,CRBE2(2) ,CRBE3(2) CWKBR 8/94 SUN INTEGER RDREW ,CLRSEW INTEGER RDREW DOUBLE PRECISION DZ(1) DIMENSION RZ(1) ,NAME(2),INDCMP(6) DIMENSION A(36) ,B(6) ,IB(6) ,C(18) CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /MACHIN/ MACH ,IHALF ,JHALF COMMON /ZZZZZZ/ Z(1) COMMON /GP4FIL/ GEOMP ,BGPDT ,CSTM ,RGT ,SCR1 COMMON /GP4PRM/ BUF ,BUF1 ,BUF2 ,BUF3 ,BUF4 ,KNKL1 , 1 MASK16 ,NOGO ,GPOINT ,KN COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW COMMON /SYSTEM/ KSYSTM(55) EQUIVALENCE (Z(1),RZ(1),DZ(1)) EQUIVALENCE (IC(1) ,C(1) ) EQUIVALENCE (KSYSTM(2) , NOUT) EQUIVALENCE (KSYSTM(55),IPREC) DATA CRIGD1/ 5310, 53/, 1 CRIGD2/ 5410, 54/, 2 CRIGD3/ 8310, 83/, 3 CRIGDR/ 8210, 82/, 4 CRROD / 6510, 65/, 5 CRBAR / 6610, 66/, 6 CRTRPT/ 6710, 67/, 7 CRBE1 / 6810, 68/, 8 CRBE2 / 6910, 69/, 9 CRBE3 / 7010, 70/, O CRSPLI/ 7110, 71/ DATA NAME / 4HCRIG,2HGP/ DATA MSET / 4HMSET / DATA A / 36*0. / DATA DEBUG / .FALSE. / DATA L38 / .FALSE. / C C C **************************************************************** C OPEN CORE - C ALLOCATED BY C !<--- ALLOCATED BY GP4 --->!<------- CRIGGP - --------->! C +--------+--------+------+-+----+-----+------ ----+-----+-----+ C ! EQEXIN ! EQEXIN !SORTED!U!CSTM!BGPDT! ... ! DEP ! GINO! C !1ST REC !2ND REC ! SIL !S! ! ! ! SIL !BFFRS! C +--------+--------+------+-+----+-----+------ ----+-----+-----+ C 1 KN KM / / / \_KNKL1 / / C KNKL2 KNKL3 KNKL4 MU BUF4 C C OPEN CORE FORMAT, STARTS WITH Z(KNKL2) C (KNKL2 = INITIAL VALUE OF KNKL1) C C NUMBER OF WORDS CONTENTS C C NCSTM *** COORDINATE SYSTEM TRANSFORMATION TABLE C NBGPDT *** BASIC GRID POINT DEFINITION TABLE C * (ONLY IF ENOUGH OPEN CORE SPACE AVAILABLE) C *** SIL 1 *** C * SIL 2 * C 6 * SIL 3 * INDEPENDENT GRID POINT C * SIL 4 * C * SIL 5 * C *** SIL 6 *** C *** SIL 1 *** *** C * DEGREE OF FREEDOM* * C * INTERNAL INDEX * * C * SIL 2 * * C * DEGREE OF FREEDOM* FIRST DEPEND.* ALL C * INTERNAL INDEX * GRID POINT * DEPEND. C 3*MDEP * . * * GRID C * . * * POINTS C * SIL 6 * * C * DEGREE OF FREEDOM* * C *** INTERNAL INDEX *** *** C *** INDEPENDENT GRID POINT BGPDT TABLE C 4 * WORD 1 COORDINATE SYSTEM ID-INTEGER C *** WORD 2-4 = X, Y, Z, IN BASIC SYSTEM-REAL C 4*MDBGP *** DEPENDENT GRID POINT BGPDT TABLE C *** C 36*MDBGP * ROW STORED GG MATRIX (SINGLE PRECISION) C *** 36 ELEMENTS * NO. DEPEND. GRID PT. C 9*IPREC *** INDEPEND. GRID PT TRANSFORMATION MAT.-REAL C 9*IPREC *** DEPEND. GRID PT TRANSFORMATION MATRIX-REAL C 36*IPREC *** GG MATRIX - REAL 36 ELEMENTS C *** . *** C * . * C * AVAILABLE OPEN CORE * C * . * C * . * C *** . *** C *** C MDEP * DEPENDENT SILS C *** C *** C BUFFERS * GINO BUFFERS C *** C C ************************************************************* C NOTE IPREC = 1 SINGLE PRECISION C IPREC = 2 DOUBLE PRECISION C MDEP = NUMBER DEPENDENT SILS C MDBGP = NUMBER DEPENDENT GRID POINTS C ************************************************************* C MASK15= JHALF/2 KN2 = KN/2 NCSTM = 0 KNKL2 = KNKL1 KIOLD = 0 IBUF1 =-99 AGAIN = .FALSE. CALL SSWTCH (20,J) IF (J .EQ. 1) DEBUG =.TRUE. CALL SSWTCH (38,J) IF (J .EQ. 1) L38 =.TRUE. CALL PAGE2(-4) WRITE (NOUT,200) UIM 200 FORMAT (A29,' 3113, RIGID ELEMENTS ARE BEING PROCESSED IN GP4',/) C C OPEN CSTM AND READ INTO CORE, FROM Z(KNKL2) THRU Z(KNKL3) C LEFT = BUF4 - KNKL1 FILE = CSTM CALL OPEN (*300,CSTM,Z(BUF2),RDREW) CALL SKPREC (CSTM,1) CALL READ (*1230,*270,CSTM,Z(KNKL2),LEFT,1,NCSTM) GO TO 1280 C C IF CORE WAS FILLED WITHOUT HITTING AN EOR, CALL MESAGE C 270 IF (IPREC .EQ. 1) CALL PRETRS (Z(KNKL1),NCSTM) IF (IPREC .EQ. 2) CALL PRETRD (Z(KNKL1),NCSTM) CALL CLOSE (CSTM,CLSREW) GO TO 300 C C IF THERE IS ENOUGH CORE AVAILABLE, OPEN AND READ BGPDT INTO OPEN C CORE, FROM Z(KNKL3+1) THRU Z(KNKL4), CLOSE BGPDT FILE, AND RESET C VARIOUS POINTERS FOR BUILDING UP RGT DATA. (AGAIN=.FALSE.) C THIS METHOD USES ONLY ONE OPEN, ONE CLOSE, AND ONE READ. C C HOWEVER, IF THERE IS NOT ENOUGH CORE FOR BGPDT DATA AND THE NEEDED C SPACE FOR BUILDING UP RGT DATA, SET AGAIN TO .TRUE., AND REPEAT C DATA PROCESSING BY READING DATA DIRECTLY OFF THE BGPDT FILE EACH C TIME WHEN THE BGPDT DATA IS NEEDED. THIS SECOND METHOD USES ONLY C ONE OPEN, ONE CLOSE, AND MULTIPLE READS. C C IN THE SECOND METHOD, TWO POINTERS, KIOLD AND KINEW, ARE USED TO C COMPUTE PRECISELY WHERE TO READ DATA OFF THE BGPDT FILE C 290 AGAIN = .TRUE. CALL WRITE (RGT,0,0,1) CALL BCKREC (RGT) KNKL3 = 0 KNKL1 = KNKL2 NBGPDT= KNKL1 + NCSTM CALL CLOSE (BGPDT,CLSREW) 300 FILE = BGPDT CALL OPEN (*1210,BGPDT,Z(BUF2),RDREW) CALL FWDREC (*1240,BGPDT) KIOLD = 0 C C CALCULATE STARTING POINT C AND READ BGPDT INTO OPEN CORE C KNKL1 = KNKL1 + NCSTM IF (AGAIN) GO TO 310 KNKL3 = KNKL1 CALL READ (*1230,*310,BGPDT,Z(KNKL3+1),BUF4-KNKL3,1,NBGPDT) IMHERE = 305 IF (DEBUG) WRITE (NOUT,1255) IMHERE KNKL3 = 0 NBGPDT= KNKL1 AGAIN = .TRUE. CALL BCKREC (BGPDT) 310 IF (.NOT.AGAIN) CALL CLOSE (BGPDT,CLSREW) KNKL4 = KNKL3 + NBGPDT KNKL1 = KNKL4 + 1 MU = BUF4 - 1 IRDG = 0 ITYPE = 0 GENRE = .FALSE. C C ************************************************************* C C CRIGD1, CRIDG2, AND CRBE2 RIGID ELEMENTS ARE PROCESSED HERE C C ************************************************************* C C LOCATE CRIGD1 DATA IN THE INPUT FILE C FILE = GEOMP CALL LOCATE (*500,Z(BUF1),CRIGD1,FLAG) IRDG = 1 GO TO 1000 C C LOCATE CRIGD2 DATA ON INPUT FILE C 500 FILE = GEOMP CALL LOCATE (*600,Z(BUF1),CRIGD2,FLAG) IRDG = 2 IMHERE = 500 IF (DEBUG) WRITE (NOUT,4400) IMHERE GO TO 1000 C C LOCATE CRBE2 DATA ON INPUT FILE C 600 FILE = GEOMP CALL LOCATE (*4000,Z(BUF1),CRBE2,FLAG) IRDG = 3 IMHERE = 600 IF (DEBUG) WRITE (NOUT,4400) IMHERE C 1000 CONTINUE IF (DEBUG) WRITE (NOUT,1005) IRDG 1005 FORMAT ('0 IRDG/CRIGGP =',I6) C C READ ELEMENT ID AND INDEPENDENT GRID POINT NUMBER C 1730 IFILE = GEOMP NWDS = 2 GO TO 1734 1732 IFILE = SCR1 NWDS = 9 1734 FILE = IFILE CALL READ (*1230,*1240,IFILE,BUF,NWDS,0,FLAG) IF ((DEBUG.OR.L38) .AND. BUF(1).NE.IBUF1) WRITE (NOUT,1735) BUF(1) 1735 FORMAT (5X,'ELEMENT',I8,' IS BEING PROCESSED') IF (.NOT.GENRE) GO TO 1739 IBUF1 = BUF(1) C C SET UP INDEPENDENT D.O.F. FOR THE GENERAL RIGID ELEMENTS, C CRIGID3 AND CRBE1, AND ALSO THE CRBAR AND CRTRPLT ELEMENTS C WHICH WERE CONVERTED TO CRIGID3 FORMAT BY IFS3P C DO 1736 I = 1,6 INDCMP(I) = BUF(I+2) 1736 CONTINUE ITYPE = BUF(9) IF (ITYPE .NE. 0) GO TO 1739 DO 1737 I = 1,36 1737 A(I) = 0.0 INDEX = 0 ILAST = 0 DO 1738 I = 1,6 IF (INDCMP(I) .NE. I) GO TO 1738 J = 6*ILAST + I A(J) = 1.0 ILAST= ILAST + 1 1738 CONTINUE NIND = ILAST C 1739 ASSIGN 1740 TO RET ASSIGN 1743 TO RET1 IDR = BUF(1) GPOINT= BUF(2) NTYPE = 1 GO TO 7060 C C STORE SIL FOR INDEPENDENT DEGREES OF FREEDOM C 1740 DO 1742 I=1,6 Z(KNKL1+I-1) = GPOINT + I - 1 1742 CONTINUE 1743 KINEW = K - 2*KN ASSIGN 1750 TO RET ASSIGN 1745 TO RET1 C C READ DEPENDENT GRID POINTS C J = KNKL1 + 3 MDBGP = 0 MDEP = 0 1745 CALL READ (*1230,*1240,IFILE,BUF,7,0,FLAG) IF (BUF(1) .EQ. -1) GO TO 1760 MDBGP = MDBGP + 1 GPOINT= BUF(1) NTYPE = 2 GO TO 7060 1750 CONTINUE IF (NOGO .NE. 0) GO TO 1745 C C STORE DEPENDENT GRID POINT SIL, DOF, AND INTERNAL INDEX C DO 1756 I = 1,6 IF (BUF(I+1) .EQ. 0) GO TO 1756 J = J + 3 L = J Z(L) = GPOINT + I - 1 Z(L+1) = I Z(L+2) = K - 2*KN MDEP = MDEP + 1 1756 CONTINUE GO TO 1745 C C HERE WHEN ALL DEPENDENT GRID POINTS FOR AN ELEMENT HAVE BEEN READ C 1760 MORE = 0 I = KNKL1 + 6 + 3*MDEP + 4 + 4*MDBGP + (9+9+36*MDBGP+36)*IPREC C C CHECK FOR OPEN CORE AVAILABILITY C IMHERE = 176 IF (I .GE. MU) GO TO 1250 IF (BUF(2) .EQ. 0) MORE = 1 IF (NOGO .NE. 0) GO TO 3645 C C LOCATE DATA IN BGPDT FOR INDEPENDENT GRID POINT C IOPEN = KNKL1 + 6 + 3*MDEP IF (AGAIN) GO TO 1761 KI4 = KNKL3 + KINEW*4 IF (KI4 .GT. KNKL4) GO TO 1290 Z(IOPEN ) = Z(KI4 -3) Z(IOPEN + 1) = Z(KI4 -2) Z(IOPEN + 2) = Z(KI4 -1) Z(IOPEN + 3) = Z(KI4 ) GO TO 1763 1761 FILE = BGPDT IF (KINEW .GT. KIOLD) GO TO 1762 CALL BCKREC (BGPDT) KIOLD = 0 1762 KI4 = (KINEW-KIOLD-1) * 4 IF (KI4 .GT. 0) CALL READ (*1230,*1240,BGPDT,BUF,-KI4,0,FLAG) CALL READ (*1230,*1240,BGPDT,BUF,4,0,FLAG) Z(IOPEN ) = BUF(1) Z(IOPEN + 1) = BUF(2) Z(IOPEN + 2) = BUF(3) Z(IOPEN + 3) = BUF(4) 1763 KIOLD = KINEW C C SORT DEPENDENT DEGREE OF FREEDOM LIST ON BGPDT REFERENCE NUMBER C I = MDEP*3 CALL SORT (0,0,3,3,Z(KNKL1+6),I) C J = 0 M = 0 INDX = KNKL1 + 5 INDXX = KNKL1 + 6 + 3*MDEP + 4 DO 1768 I = 1,MDEP K = INDX + 3*I KINEW = Z(K) IF (KIOLD .EQ. KINEW) GO TO 1767 J = J + 1 C C READ GRID POINT INFORMATION C M = M + 1 N = INDXX + (M-1)*4 IF (AGAIN) GO TO 1764 KI4 = KNKL3 + KINEW*4 IF (KI4 .GT. KNKL4) GO TO 1290 Z(N ) = Z(KI4 -3) Z(N + 1) = Z(KI4 -2) Z(N + 2) = Z(KI4 -1) Z(N + 3) = Z(KI4 ) GO TO 1766 1764 FILE = BGPDT IF (KINEW .GT. KIOLD) GO TO 1765 CALL BCKREC (BGPDT) KIOLD = 0 1765 KI4 = (KINEW-KIOLD-1)*4 IF (KI4 .GT. 0) CALL READ (*1230,*1240,BGPDT,BUF,-KI4,0,FLAG) CALL READ (*1230,*1240,BGPDT,BUF,4,0,FLAG) Z(N ) = BUF(1) Z(N + 1) = BUF(2) Z(N + 2) = BUF(3) Z(N + 3) = BUF(4) 1766 KIOLD = KINEW 1767 Z(K) = J 1768 CONTINUE C IF (IPREC .EQ. 2) GO TO 3200 C C FORM REFERENCE GRID POINT TRANSFORMATION MATRIX C IBA = KNKL1 + 6 + 3*MDEP ITA = IBA + 4 + 4*MDBGP + 36*MDBGP IF (Z(IBA) .NE. 0) CALL TRANSS (RZ(IBA),RZ(ITA)) C C PREPARE POINTERS USED TO FORM THE G MATRIX C ITB = ITA + 9 ITC = ITB - 1 C C SET INDEXES FOR TRANSFORMATION MATRIXES AND GG MATRIXES TO C FIRST ELEMENT - 1 FOR SUBROUTINE FORMGG C ITA = ITA - 1 IG = INDXX + 4*MDBGP - 1 IGG = IG + (36*MDBGP) + 9 + 9 INDX= KNKL1 + 3 M = -1 C C BEGIN LOOP TO FORM THE G MATRIX C DO 3050 I = 1,MDEP K = INDX + I*3 MM = Z(K+2) IF (MM .EQ. M) GO TO 3030 IBB = INDXX + (MM-1)*4 C C FORM DEPENDENT DEGREE OF FREEDOM TRANSFORMATION MATRIX C IF (Z(IBB) .NE. 0) CALL TRANSS (RZ(IBB),RZ(ITB)) C C FORM THE GG MATRIX C CALL FORMGG (IGG,ITA,ITC,IBA,IBB) 3030 CONTINUE C C SELECT PROPER ROW BASED ON COMPONENT NUMBER AND STORE IN G C ACCORDING TO PARTITIONING VECTOR OF REFERENCE GRID POINT. C M = MM MM = Z(K+1) DO 3040 IJ = 1,6 INDXXX = IGG + (MM-1)*6 + IJ RZ(IG+IJ) = RZ(INDXXX) 3040 CONTINUE IG = IG + 6 3050 CONTINUE GO TO 3300 C C FORM REFERENCE GRID POINT TRANSFORMATION MATRIX (DOUBLE PREC.) C 3200 IBASE = (KNKL1 + 6 + 3*MDEP + 4 + 4*MDBGP + 36*MDBGP) / 2 + 1 IBA = KNKL1 + 6 + 3*MDEP ITA = IBASE IF (Z(IBA) .NE. 0) CALL TRANSD (RZ(IBA),DZ(ITA)) C C PREPARE POINTERS USED TO FORM THE G MATRIX C ITB = ITA + 9 ITC = ITB - 1 C C SET INDEXES FOR TRANSFORMATION MATRIXES AND GG MATRIXES TO C FIRST ELEMENT - 1 FOR SUBROUTINE FORMGG C ITA = ITA - 1 IG = INDXX + 4*MDBGP - 1 IGG = IBASE + 9 + 9 - 1 INDX= KNKL1 + 3 M = -1 C C BEGIN LOOP TO FORM THE G MATRIX C DO 3250 I = 1, MDEP K = INDX + I*3 MM = Z(K+2) IF (MM .EQ. M) GO TO 3230 IBB = INDXX + (MM-1)*4 C C FORM DEPENDENT DEGREE OF FREEDOM TRANSFORMATION MATRIX C IF (Z(IBB) .NE. 0) CALL TRANSD (RZ(IBB),DZ(ITB)) C C FORM THE GG MATRIX C CALL FORMG2 (IGG,ITA,ITC,IBA,IBB) 3230 CONTINUE C C SELECT PROPER ROW BASED ON COMPONENT NUMBER AND STORE IN G C M = MM MM = Z(K+1) DO 3240 IJ = 1,6 INDXXX = IGG + (MM-1)*6 + IJ RZ(IG+IJ) = DZ (INDXXX) 3240 CONTINUE IG = IG + 6 3250 CONTINUE 3300 IG = INDXX + 4*MDBGP - 1 C C WRITE THE CODED COLUMN-ROW NUMBERS AND ELEMENTS OF THE GM C MATRIX ON RGT FILE SO AS TO MAKE RIGID ELEMENT DATA C COMPATIBLE WITH MPC SET DATA C (REVISED 7/86, CODED COLUMN-ROW NUMBERS ARE NOT USED HERE. C THEY WILL BE RE-CODED IN GP4 IF NEEDED) C K = 0 IF (GENRE .AND. ITYPE.EQ.0) GO TO 3380 MU = MU - MDEP C C TEST FOR OPEN CORE AVAILABILITY C IMHERE = 3380 IF (IOPEN .GE. MU) GO TO 1250 3380 CONTINUE INDX = KNKL1 + 3 DO 3640 I = 1, MDEP IF (GENRE .AND. ITYPE.EQ.0) GO TO 3390 Z(MU+I) = Z(INDX + I*3) 3390 KROW = Z(INDX + I*3) MCODE(2)= KROW IF (KROW .GT. MASK15) N23 = 3 DO 3620 J = 1,6 K = K+1 KCOL = Z(KNKL1+J-1) MCODE(1) = KCOL IF (KCOL .GT. MASK15) N23 = 3 IF (GENRE .AND. ITYPE.EQ.0) GO TO 3440 RZ(IG+K) = -RZ(IG+K) IF (GENRE .AND. ITYPE.EQ.1) GO TO 3400 CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,RZ(IG+K),1,0) GO TO 3620 3400 IC(J) = IB(J) IF (IC(J) .GT. MASK15) N23 = 3 GO TO 3620 3440 IF (INDEX .GE. NIND) GO TO 3460 IF (INDCMP(J) .NE. J) GO TO 3460 INDEX = INDEX + 1 IB(INDEX) = KCOL 3460 A(6*ILAST+J) = RZ(IG+K) 3620 CONTINUE IF ( .NOT.GENRE) GO TO 3635 IF (ITYPE .EQ. -1) GO TO 3635 IF (ITYPE .EQ. 1) GO TO 3625 INDEX = INDEX + 1 IB(INDEX) = KROW ILAST = ILAST + 1 GO TO 3640 3625 CALL GMMATS (RZ(IG+K-5),1,6,0,A,6,6,0,B) DO 3630 J = 1, 6 CALL WRITE (RGT,IC(J),1,0) CALL WRITE (RGT,KROW ,1,0) CALL WRITE (RGT,B(J) ,1,0) 3630 CONTINUE 3635 MCODE(1) = KROW COEFF = 1.0 CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) 3640 CONTINUE IF (.NOT.GENRE .OR. ITYPE.NE.0) GO TO 3645 C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERS (6,A,6,B,0,DET,ISING,C) C C CHECK TO SEE IF GENERAL RIGID ELEMENTS (CRIGD3, CRBE1, CRBAR, AND C CRTRPLT) ARE PROPERLY DEFINED C IF (ISING .NE. 2) GO TO 3645 WRITE (NOUT,6130) UFM,IDR NOGO = 1 3645 IF (MORE .EQ.0) GO TO 3650 IF (.NOT.GENRE) GO TO 1730 GO TO 1732 C 3650 IF (GENRE) CALL CLOSE (SCR1,1) IF (IRDG .LE. 8) GO TO (500,600,4000,4100,4200,4300,5200), IRDG CALL ERRTRC ('CRIGGP ',3655) C C ****************************************************************** C C CRBAR, CRTRPLT, CRIGD3, AND CRBE1 ELEMENTS ARE PROCESSED HERE. C THE CRBAR AND CRTRPLT HAVE THE SAME DATA FORMAT AS THAT OF THE C GENERAL RIGID ELEMENT CRIGD3. C CRBE1 WAS MADE EXACTLY SAME AS CRIGD3 IN IFS3P ROUTINE. C C ****************************************************************** C C LOCATE CRBAR DATA ON INPUT FILE C 4000 FILE = GEOMP IMHERE = 4000 IF (DEBUG) WRITE (NOUT,4400) IMHERE CALL LOCATE (*4100,Z(BUF1),CRBAR,FLAG) IRDG = 4 GO TO 5000 C C LOCATE CRTRPLT DATA ON INPUT FILE C 4100 FILE = GEOMP IMHERE = 4100 IF (DEBUG) WRITE (NOUT,4400) IMHERE CALL LOCATE (*4200,Z(BUF1),CRTRPT,FLAG) IRDG = 5 GO TO 5000 C C LOCATE CRIGD3 DATA ON INPUT FILE C 4200 CALL LOCATE (*4300,Z(BUF1),CRIGD3,FLAG) IMHERE = 4200 IF (DEBUG) WRITE (NOUT,4400) IMHERE IRDG = 6 GO TO 5000 C C LOCATE CRBE1 DATA ON INPUT FILE C 4300 CALL LOCATE (*5200,Z(BUF1),CRBE1,FLAG) IMHERE = 4300 IF (DEBUG) WRITE (NOUT,4400) IMHERE 4400 FORMAT ('0 I AM HERE/CRIGGP =',I6) IRDG = 7 C 5000 GENRE = .TRUE. MORE = 1 IF (DEBUG) WRITE (NOUT,1005) IRDG C C OPEN SCR1 FILE TO WRITE C CALL OPEN (*1210,SCR1,Z(BUF4),1) C C READ ELEMENT ID C 5010 FILE = GEOMP CALL READ (*1230,*1240,GEOMP,BUF,1,0,FLAG) IDR = BUF(1) C C READ INDEPENDENT GRID POINTS AND THEIR COMPONENT NUMBERS C N = 0 J = KNKL1 5020 CALL READ (*1230,*1240,GEOMP,BUF,1,0,FLAG) IF (BUF(1) .EQ. MSET) GO TO 5040 N = N + 7 Z(J) = BUF(1) CALL READ (*1230,*1240,GEOMP,Z(J+1),6,0,FLAG) J = J + 7 GO TO 5020 5040 NIND = N/7 C C CHECK TO SEE IF THE NUMBER OF INDEPENDENT GRID POINTS C IS MORE THAN ONE AND SET TYPE FLAG C ITYPE = -1 IF (NIND .EQ. 1) GO TO 5050 ITYPE = 0 J = KNKL1 C C WRITE THE INDEPENDENT GRID POINTS AS A PSEUDO CRIGD2 ELEMENT C C C WRITE THE ELEMENT ID C CALL WRITE (SCR1,IDR,1,0) C C WRITE THE FIRST INDEPENDENT GRID POINT AND ITS COMPONENT NUMBERS C CALL WRITE (SCR1,Z(J),7,0) C C WRITE THE TYPE FLAG C CALL WRITE (SCR1,ITYPE,1,0) C C WRITE THE REMAINING INDEPENDENT GRID POINTS AND THEIR C COMPONENT NUMBERS C J = J + 7 N = N - 7 CALL WRITE (SCR1,Z(J),N,0) DO 5045 L =1,7 5045 BUF(L) = -1 BUF(2) = 0 CALL WRITE (SCR1,BUF,7,0) ITYPE = 1 C C WRITE THE FIRST INDEPENDENT GRID POINT AND ALL THE C DEPENDENT GRID POINTS AS A PSEUDO CRIGD2 ELEMENT C 5050 J = KNKL1 C C WRITE THE ELEMENT ID C CALL WRITE (SCR1,IDR,1,0) C C WRITE THE FIRST INDEPENDENT GRID POINT AND ITS COMPONENT NUMBERS C CALL WRITE (SCR1,Z(J),7,0) C C WRITE THE TYPE FLAG C CALL WRITE (SCR1,ITYPE,1,0) C C PROCESS THE DEPENDENT GRID POINTS AND THEIR COMPONENT NUMBERS C 5060 CALL READ (*1230,*1240,GEOMP,BUF,7,0,FLAG) IF (BUF(1) .EQ. -1) GO TO 5070 CALL WRITE (SCR1,BUF,7,0) GO TO 5060 5070 IF (BUF(2) .EQ. -1) MORE = 0 DO 5080 L = 1,7 5080 BUF(L) = -1 BUF(2) = 0 IF (MORE .EQ. 0) BUF(2) = -1 CALL WRITE (SCR1,BUF,7,0) IF (MORE .EQ. 1) GO TO 5010 CALL WRITE (SCR1,0,0,1) C C CLOSE SCR1, AND OPEN IT FOR READ C CALL CLOSE (SCR1,1) CALL OPEN (*1210,SCR1,Z(BUF4),0) IMHERE = 5085 IF (DEBUG) WRITE (NOUT,4400) IMHERE GO TO 1732 C C ********************************************************* C C CRBE3 AND CRSPLINE ELEMENTS ARE PROCESSED HERE C C ********************************************************* C C LOCATE CRBE3 DATA ON INPUT FILE C 5200 FILE = GEOMP IRDG = 8 CALL LOCATE (*5300,Z(BUF1),CRBE3,FLAG) IMHERE = 5200 IF (DEBUG) WRITE (NOUT,4400) IMHERE GO TO 5400 C C LOCATE CRSPLINE DATA ON INPUT FILE C 5300 FILE = GEOMP IRDG = 9 CALL LOCATE (*5800,Z(BUF1),CRSPLI,FLAG) IMHERE = 530 IF (DEBUG) WRITE (NOUT,4400) IMHERE C 5400 J = IRDG-7 IF (DEBUG) WRITE (NOUT,1005) IRDG IF (IPREC .EQ. 1) CALL CRSPLS (*5600,J,MU,KNKL3+1,Z(KNKL1),AGAIN, 1 N23) IF (IPREC .EQ. 2) CALL CRSPLD (*5600,J,MU,KNKL3+1,Z(KNKL1),AGAIN, 1 N23) GO TO (5300,5800), J 5600 WRITE (NOUT,5610) UFM 5610 FORMAT (A23,' 8, INSUFFICIENT CORE FOR CRBE3 OR CRSPLINE RIGID ', 1 'ELEMENT COMPUTATION') NOGO = 1 C C ********************************************************* C C CRIGDR AND CRROD (RIGID ROD ELEMENTS) ARE PROCESSED HERE C (CRROD DATA FORMAT WAS CONVERTED TO CRIGDR FORMAT IN IFS3P) C C ********************************************************* C C LOCATE CRIGDR AND CRROD DATA ON INPUT FILE C 5800 GENRE= .FALSE. NWDS = 4 FILE = GEOMP CALL LOCATE (*5900,Z(BUF1),CRIGDR,FLAG) IRDG = 10 IMHERE = 5800 IF (DEBUG) WRITE (NOUT,4400) IMHERE GO TO 6000 5900 FILE = GEOMP IRDG = 11 CALL LOCATE (*7000,Z(BUF1),CRROD,FLAG) IMHERE = 5900 IF (DEBUG) WRITE (NOUT,4400) IMHERE C C *************************************************************** C C OPEN CORE FORMAT FOR RIGID ROD C C NUMBER OF WORDS CONTENTS C C NCSTM *** COORDINATE SYSTEM TRANSFORMATION TABLE C NBGPDT *** BASIC GRIP POINT DEFINITION TABLE C *** SIL 1 *** C 3 * SIL 2 * INDEPENDENT GRID POINT C *** SIL 3 *** C *** INDEPENDENT GRID POINT BGPDT TABLE C 4 * WORD 1 COORDINATE SYSTEM ID-INTEGER C *** WORD 2-4 X, Y, Z, IN BASIC SYSTEM-REAL C *** SIL 1 *** C 3 * SIL 2 * DEPENDENT GRID POINT C *** SIL 3 *** C 4 *** DEPENDENT GRID POINT BGPDT TABLE C *** *** C * * C * AVAILABLE OPEN CORE * C * * C * * C *** *** C *** C MDEP * DEPENDENT SILS C *** C *** C BUFFERS * GINO BUFFERS C *** C C ************************************************************** C C C CHECK AVAILABILITY OF CORE C 6000 CONTINUE IF (DEBUG) WRITE (NOUT,1005) IRDG ITEST = KNKL1 + 14 + 27*IPREC + 2 IF (ITEST .GE. MU) GO TO 1250 C C READ ELEMENT DATA C 6010 CALL READ (*1230,*7000,GEOMP,BUF,NWDS,0,FLAG) IDR = BUF(1) IDEPGP= BUF(3) ICOMP = BUF(4) C C PROCESS THE INDEPENDENT GRID POINT C FILE = BGPDT J = KNKL1 GPOINT = BUF(2) ASSIGN 6020 TO RET ASSIGN 6050 TO RET1 GO TO 7060 C C STORE SIL VALUES C 6020 IF (NOGO .EQ. 0) GO TO 6030 IF (J .EQ. KNKL1) GO TO 6050 GO TO 6010 6030 Z(J ) = GPOINT Z(J+1) = GPOINT + 1 Z(J+2) = GPOINT + 2 KINEW = K - 2*KN C C LOCATE DATA IN BGPDT C IF (AGAIN) GO TO 6035 KI4 = KNKL3 + KINEW*4 IF (KI4 .GT. KNKL4) GO TO 1290 Z(J+3) = Z(KI4-3) Z(J+4) = Z(KI4-2) Z(J+5) = Z(KI4-1) Z(J+6) = Z(KI4 ) GO TO 6045 6035 IF (KINEW .GT. KIOLD) GO TO 6040 CALL BCKREC (BGPDT) KIOLD = 0 6040 KI4 = (KINEW-KIOLD-1) * 4 IF (KI4 .GT. 0) CALL READ (*1230,*1240,BGPDT,BUF,-KI4,0,FLAG) CALL READ (*1230,*1240,BGPDT,BUF,4,0,FLAG) C C STORE BASIC GRID POINT DATA C Z(J+3) = BUF(1) Z(J+4) = BUF(2) Z(J+5) = BUF(3) Z(J+6) = BUF(4) 6045 KIOLD = KINEW IF (J .NE. KNKL1) GO TO 6060 C C PROCESS THE DEPENDENT GRID POINT C 6050 J = J + 7 GPOINT = IDEPGP ASSIGN 6010 TO RET1 GO TO 7060 6060 IF (IPREC .EQ. 1) CALL CRDRD (*6065,*6125,MU,ICOMP,N23) IF (IPREC .EQ. 2) CALL CRDRD2 (*6065,*6125,MU,ICOMP,N23) GO TO 6010 6065 WRITE (NOUT,6070) UFM,IDR 6070 FORMAT (A23,' 3133, RIGID ELEMENT',I9,' HAS ZERO LENGTH') NOGO = 1 GO TO 6010 6125 WRITE (NOUT,6130) UFM,IDR 6130 FORMAT (A23,' 3134, RIGID ELEMENT',I9,' IS NOT PROPERLY DEFINED') NOGO = 1 GO TO 6010 C 7000 IF (IRDG .EQ. 10) GO TO 5900 C IF (AGAIN) CALL CLOSE (BGPDT,CLSREW) IF (NOGO .NE. 0) CALL MESAGE (-61,0,NAME) CALL WRITE (RGT,0,0,1) C C WRITE A LIST OF DEPENDENT SIL VALUES FOR RIGID ELEMENTS ONTO THE C RGT IN SORTED FORM C JRIGID = MU + 1 M = BUF4 - JRIGID CALL SORT (0,0,1,1,Z(JRIGID),M) CALL WRITE (RGT,Z(JRIGID),M,1) J = BUF4-1 IF (DEBUG) WRITE (NOUT,7010) (Z(I),I=JRIGID,J) 7010 FORMAT (/,' CRIGGP/@7010 DEPEND.SIL LIST:',/,(5X,10I7)) KNKL1 = KNKL2 C C CLOSE RGT FILE AND RETURN C CALL CLOSE (RGT,CLSREW) RETURN C C ********************************************************** C C INTERNAL SUBROUTINE TO PERFORM BINARY SEARCH IN EQEXIN C AND CONVERT THE EXTERNAL NUMBER TO A SIL VALUE C 7060 KLO = 0 KHI = KN2 LASTK = 0 7070 K= (KLO+KHI+1)/2 IF (LASTK .EQ. K) GO TO 1350 LASTK = K IF (GPOINT-Z(2*K-1)) 7090,7150,7100 7090 KHI= K GO TO 7070 7100 KLO= K GO TO 7070 7150 K = Z(2*K) + 2*KN GPOINT= Z(K) GO TO RET, (1740,1750,6020) C C ********************************************************** C C FATAL ERROR MESSAGES C 1210 J= -1 GO TO 1260 1230 J= -2 GO TO 1260 1240 J= -3 GO TO 1260 1250 IF (AGAIN) GO TO 1280 CALL CLOSE (SCR1,CLSREW) WRITE (NOUT,1255) IMHERE 1255 FORMAT (///,' *** CRIGGP/GP4 NEEDS MORE OPEN CORE.', 1 /5X,' CRIGGP REVERTED TO USE SLOW METHOD',I9,//) GO TO 290 1260 CALL MESAGE (J,FILE,NAME) 1280 J= -8 GO TO 1260 1290 WRITE (NOUT,1300) KNKL1,KNKL3,KNKL4,KI4 1300 FORMAT (//,' *** SYSTEM FATAL ERROR IN CRIGGP',4I10) J =-61 GO TO 1260 1330 NOGO= 1 CALL MESAGE (30,N,BUF) GO TO RET1, (1743,1745,6010,6050) 1350 IF (GENRE .AND. ITYPE.EQ.1 .AND. NTYPE.EQ.1) GO TO 1743 BUF(1) = GPOINT BUF(2) = IRDG*100000000 + IDR N = 151 GO TO 1330 END ================================================ FILE: mis/crspld.f ================================================ SUBROUTINE CRSPLD (*,JUMP,MU,BP,RS,AGAIN,N23) C C THIS ROUTINE HANDLES CRBE3 AND CRSPLINE RIGID ELEMENTS C CALLED ONLY BY CRIGGP SUBROUTINE C C DOUBLE PRECISION VERSION C IMPLICIT INTEGER (A-Z) LOGICAL AGAIN,DEBUG INTEGER MCODE(2),NAME(2),SILD(6),RS(3) REAL Z(1),ZK,WT,DL,COEFF DOUBLE PRECISION X1,X2,X3,Y1,Y2,Y3,Z1,Z2,Z3,A(3),B(3),C(3),D(9), 1 LEN,LENG,ONE,ZERO,HALF,EPS,ESPX,ANS,DI,FAC,LN3, 2 T(36),TX(36),KNN(36),GNN(36),UNN(36),ZNN(36), 3 SNN(36),X(36),Y(36),W(6) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,NOUT COMMON /GP4FIL/ GEOMP,BGPDT,CSTM,RGT COMMON /GP4PRM/ BUF(20),BUF1,BUF2,BUF3,BUF4,KNKL1,TWO16,NOGO, 1 GPOINT,KN COMMON /CRSPLX/ X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3 COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (Z(1),IZ(1)), (WT,IWT ), (DL,IDL ), 1 (X1 ,A(1) ), (X2,B(1)), (X3,C(1)) DATA ONE, ZERO, HALF, EPS, TIMES, DEBUG / 1 1.0D+0, 0.0D+0, 0.5D+0, 1.0D-10, 0, .FALSE./ DATA CM,CN, NOGOX, MASK15, NAME / 1 6 ,12, 0, 32767, 4HCRSP,4HLD / C IF (AGAIN) RETURN 1 IF (DEBUG) WRITE (NOUT,10) KN,KNKL1,BP,GEOMP,BGPDT,CSTM,RGT,JUMP 10 FORMAT ('0 CRSPLD DEBUG- KN,KNKL1,BP,GEOMP,BGPDT,CSTM,RGT,JUMP=', 1 /3X,8I7) KN2 = KN/2 CALL SSWTCH (38,L38) C C UNIT MATRIX UNN C DO 20 I = 2,35 20 UNN( I) = ZERO UNN( 1) = ONE UNN( 8) = ONE UNN(15) = ONE UNN(22) = ONE UNN(29) = ONE UNN(36) = ONE C C JUMP=1 FOR CRBE3 DATA, JUMP=2 FOR CRSPLINE DATA C IF (JUMP .EQ. 2) GO TO 400 C C READ CRBE3 DATA ON INPUT FILE C ============================= C C CLEAR WORKING SPACE C READ INPUT CARD, SAVE BEGINING POINTER, BEGN, AND C COUNT NUMBER OF WORDS READ, NWDS, IN FIRST PASS C (EACH INPUT CARD WILL BE READ TWICE) C BEGN = 3 30 PASS = 1 DO 40 I = 1,36 T(I) = ZERO 40 KNN(I) = ZERO CALL READ (*1300,*1300,GEOMP,BUF,3,0,FLAG) NWDS = 3 IF (DEBUG .OR. L38.EQ.1) WRITE (NOUT,50) BUF(1) 50 FORMAT (5X,'ELEMENT',I8,' IS BEING PROCESSED') EID = BUF(1) GPOINT = BUF(2) ASSIGN 60 TO RETN ASSIGN 1000 TO RETN1 KX = BUF(3) NM = CN GO TO 950 60 REFG = K SIL = GPOINT DO 70 I = 1,6 70 SILD(I) = SIL + I - 1 X2 = Z(K+1) Y2 = Z(K+2) Z2 = Z(K+3) C C READ WEIGHT FACTORS AND COMPONENTS. C GENERATE WEIGHT VECTOR W C 80 CALL READ (*1110,*1110,GEOMP,IWT,1,0,FLAG) IF (PASS .EQ. 1) NWDS = NWDS + 1 IF (IWT .EQ. -2) GO TO 170 IF (IWT .EQ. -3) GO TO 240 CALL READ (*1110,*1110,GEOMP,COMP,1,0,FLAG) IF (PASS .EQ. 1) NWDS = NWDS + 1 ASSIGN 90 TO RETN1 KX = COMP NM = CM GO TO 950 90 DO 100 I = 1,6 W(I) = ZERO IF (BUF(CM+I) .NE. 0) W(I) = WT 100 CONTINUE C C READ GRID POINT, GET TRANSFORMATION MATRIX, AND SUMMING UP C WT MATRIX, AND FINALLY KNN MATRIX C 110 CALL READ (*1110,*1110,GEOMP,GRID,1,0,FLAG) IF (PASS .EQ. 1) NWDS = NWDS + 1 IF (GRID .EQ. -1) GO TO 80 ASSIGN 120 TO RETN GPOINT = GRID GO TO 1000 120 X1 = Z(K+1) Y1 = Z(K+2) Z1 = Z(K+3) ASSIGN 850 TO RETN2 ASSIGN 130 TO RETN3 ZK = Z(K) GO TO 800 130 CALL GMMATD (T,6,6,0, UNN,6,6,0, X) IF (PASS .EQ. 2) GO TO 270 DO 140 I = 1,36 140 TX(I) = X(I) L = 0 DO 160 I = 1,6 DO 150 J = 1,6 150 X(L+J) = X(L+J)*W(I) 160 L = L + 6 CALL GMMATD (TX,6,6,-1, X,6,6,0, KNN) C C REPEAT FOR MORE GRID POINT C GO TO 110 C C UM SET WAS SPECIFIED BY USER. REBUILD SILD WITH THE UM SET, AND C CHECK TOTAL NUMBER OF COMPONENTS FOR POSSIBLE ERROR C 170 IF (PASS .EQ. 2) GO TO 310 JJ = 1 180 CALL READ (*1110,*1110,GEOMP,GRID,1,0,FLAG) NWDS = NWDS + 1 IF (GRID .EQ. -3) GO TO 240 CALL READ (*1110,*1110,GEOMP,COMP,1,0,FLAG) NWDS = NWDS + 1 ASSIGN 190 TO RETN1 KX = COMP NM = CM GO TO 950 190 GPOINT = GRID ASSIGN 200 TO RETN GO TO 1000 200 DO 230 I = 1,6 IF (BUF(CM+ I) .EQ. 0) GO TO 230 IF (JJ .GT. 6) GO TO 1160 210 IF (BUF(CN+JJ) .NE. 0) GO TO 220 JJ = JJ + 1 IF (JJ .GT. 6) GO TO 1160 GO TO 210 220 SILD(JJ) = GPOINT + I - 1 JJ = JJ + 1 230 CONTINUE GO TO 180 240 IF (PASS .EQ. 2) GO TO 320 C C STORE DIAG TERMS WITH -1. C ADD DEPENDENT SIL TO THE END OF OPEN CORE VIA MU POINTER C DO 250 I = 1,6 IF (BUF(CN+I) .EQ. 0) GO TO 250 MCODE(1) = SIL + I - 1 MCODE(2) = SILD(I) COEFF = -1. CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) IZ(MU) = MCODE(2) MU = MU - 1 250 CONTINUE C C GET MATRIX READY FOR SECOND PASS, IN TX C SING = -1 CALL INVERD (6,KNN,6,0,0,LEN,SING,X) IF (SING .EQ. 2) GO TO 1120 ASSIGN 260 TO RETN2 ZK = Z(REFG) GO TO 800 260 CALL GMMATD (KNN,6,6,0, T,6,6,0, TX) C C BACK RECORD FOR 2ND PASS C SKIP TO WHERE WEIGHT FACTORS BEGIN C CALL BCKREC (GEOMP) PASS = 2 I = BEGN + 3 CALL READ (*1110,*1110,GEOMP,BUF,-I,0,FLAG) GO TO 80 C C INSERT THIS GRID MPC EQUATIONS C 270 CALL GMMATD (TX,6,6,0, X,6,6,1, KNN) DO 280 I = 1,6 DO 280 J = 1,31,6 L = I + J - 1 KNN(L) = KNN(L)*W(I) 280 CONTINUE DO 300 I = 1,6 IF (BUF(CN+I) .EQ. 0) GO TO 300 SIL = SILD(I) L = (I-1)*6 DO 290 J = 1,6 IF (BUF(CM+J) .EQ. 0) GO TO 290 ANS = KNN(L+J) IF (ANS .EQ. ZERO) GO TO 290 MCODE(1) = GPOINT + J - 1 MCODE(2) = SIL COEFF = ANS CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) 290 CONTINUE 300 CONTINUE GO TO 110 C C SKIP TO END OF CARD C 310 CALL READ (*1110,*1110,GEOMP,J,1,0,FLAG) IF (J .NE. -3) GO TO 310 C C UPDATE BEGIN POINTER, AND RETURN FOR ANOTHER CRBE3 CARD C 320 BEGN = BEGN + NWDS GO TO 30 C C C READ CRSPLINE DATA ON INPUT FILE C ================================ C C INPUT DATA WILL BE SAVED IN RS ARRAY C 3 WORDS SAVED FOR EACH GRID - BGPDT POINTER, COMPONENT, AND SIL C 400 CALL READ (*1300,*1300,GEOMP,BUF,3,0,FLAG) EID = BUF(1) IDL = BUF(2) RS(1) = BUF(3) RS(2) =-1 RS(3) = 0 IF (DEBUG .OR. L38.EQ.1) WRITE (NOUT,50) BUF(1) K = 4 410 CALL READ (*1110,*1110,GEOMP,RS(K),2,0,FLAG) IF (RS(K) .EQ. -1) GO TO 420 RS(K+2) = 0 K = K + 3 IF (K .GT. MU) CALL MESAGE (-8,0,NAME) GO TO 410 C C END OF INPUT FOR THIS RIGID ELEMENT, NOW COMPUTE LENGTH, INTERNAL C NUMBER (BGPDT POINTER), AND CHANGE GRID TO SIL C 420 IF (K .LT. 8) GO TO 1100 CWKBD IF (DEBUG) CALL BUG1 ('RS- ',310,RS,K) IEND = K - 1 LEN = ZERO ASSIGN 430 TO RETN C I = 1 425 GPOINT = RS(I) GO TO 1000 C C UPON RETURN FROM 1000, K IS BGPDT AND GPOINT IS SIL C 430 RS(I ) = K RS(I+2) = GPOINT IF (DEBUG) WRITE (NOUT,440) I,GPOINT,K,Z(K+1) 440 FORMAT (/10X,'@430 I, NEW GPOINT & K=',I4,2I6,E11.3) C IF (I .NE. 1) GO TO 450 X1 = Z(K+1) Y1 = Z(K+2) Z1 = Z(K+3) GO TO 460 450 X2 = Z(K+1) Y2 = Z(K+2) Z2 = Z(K+3) LEN= LEN + DSQRT((X2-X1)**2 + (Y2-Y1)**2 + (Z2-Z1)**2) X1 = X2 Y1 = Y2 Z1 = Z2 460 I = I + 3 IF (I .LT. IEND) GO TO 425 C DI = LEN*DL IS = 1 IF (.NOT.DEBUG) GO TO 480 CWKBD CALL BUG1 ('RS- ',345,RS,IEND) WRITE (NOUT,470) LEN,DI 470 FORMAT ('0 LEN,DI/@470 =',2D14.5) C C COMPUTATION FOR EACH SEPARATED SPLINE C SET NUMBER OF SEGMENTS, NS C 480 NS = 0 DO 490 I = IS,IEND,3 IF (RS(I+1) .EQ. 0) GO TO 500 490 NS = NS + 1 C C IB = BEGIN, IE = END, IS = PRESENT SEGMENT C ND = NUMBER OF DEPENDENT POINTS C C ZERO MTRAIX WORKING SPACE KNN ,GNN, AND T C 500 IE = I IB = IS ND = NS - 1 DO 510 I = 1,36 KNN(I) = ZERO GNN(I) = ZERO T(I) = ZERO 510 CONTINUE C C COMPUTE FLEXIBILITY MATRIX ZNN AND ITS INVERSE KNN, FOR EACH C SPLINE SEGMENT. C C DO 540 I = 1,NS I = 0 515 I = I + 1 I1 = RS(IS ) I2 = RS(IS+3) ASSIGN 520 TO RETN4 GO TO 900 520 IF (NOGOX .EQ. 1) GO TO 540 X2 = Z(I1+1) Y2 = Z(I1+2) Z2 = Z(I1+3) X1 = Z(I2+1) Y1 = Z(I2+2) Z1 = Z(I2+3) X2 = (X2+X1)*HALF Y2 = (Y2+Y1)*HALF Z2 = (Z2+Z1)*HALF I1 = RS(IE) X1 = Z(I1+1) Y1 = Z(I1+2) Z1 = Z(I1+3) C C FORM UNN USING BASIC UNN MATRIX C DO NOT DESTROY RIGID TRANSFER MATRIX C ASSIGN 530 TO RETN3 GO TO 850 530 CALL GMMATD (UNN,6,6,0, ZNN,6,6,0, SNN) C C SUM INTO KNN C CALL GMMATD (SNN,6,6,-2, UNN,6,6,1, KNN) 540 IS = IS + 3 IF (I .LT. NS) GO TO 515 C IF (NOGOX .EQ. 1) GO TO 730 C C INVERT KNN C SING = -1 CALL INVERD (6,KNN,6,0,0,LEN,SING,SNN) IF (SING .EQ. 2) GO TO 1120 C C LOOP FOR FINAL CONSTRAINT EQUATIONS C IS = IB JS = RS(IS) II = 0 545 II = II + 1 I1 = RS(IS) ID = IS + 3 I2 = RS(ID) ASSIGN 550 TO RETN4 GO TO 900 550 X1 = Z(I2+1) Y1 = Z(I2+2) Z1 = Z(I2+3) X2 = Z(I1+1) Y2 = Z(I1+2) Z2 = Z(I1+3) X3 = Z(I2+1) Y3 = Z(I2+2) Z3 = Z(I2+3) X2 = (X2+X3)*HALF Y2 = (Y2+Y3)*HALF Z2 = (Z2+Z3)*HALF C C Y I+1 I X S I+1 S C ASSIGN 560 TO RETN3 GO TO 850 560 CALL GMMATD (UNN,6,6,0, ZNN,6,6,0, SNN) CALL GMMATD (SNN,6,6,0, UNN,6,6,1, Y) X2 = Z(I1+1) Y2 = Z(I1+2) Z2 = Z(I1+3) C C S I+1 I X GIN C ASSIGN 570 TO RETN3 GO TO 850 570 CALL GMMATD (UNN,6,6,0, GNN,6,6,0, SNN) I3 = RS(IE) X3 = Z(I3+1) Y3 = Z(I3+2) Z3 = Z(I3+3) X2 = Z(JS+1) Y2 = Z(JS+2) Z2 = Z(JS+3) C C GNN = G I+1 N C ASSIGN 580 TO RETN3 GO TO 860 580 CALL GMMATD (Y ,6,6,0, UNN,6,6,1, ZNN) CALL GMMATD (ZNN,6,6,0, KNN,6,6,0, GNN) DO 590 J = 1,36 590 GNN(J) = GNN(J) + SNN(J) C C Y = G I+1 1 C ASSIGN 600 TO RETN3 GO TO 870 600 CALL GMMATD (GNN,6,6,0, UNN,6,6,0, SNN) ASSIGN 610 TO RETN3 GO TO 850 610 DO 620 J = 1,36 620 Y(J) = UNN(J) - SNN(J) C C TRANSFORM TO GLOBAL AND STORE ANSWERS IN Y AND SNN C ASSIGN 630 TO RETN2 ZK = Z(I2) GO TO 800 630 CALL GMMATD (T,6,6,1, Y ,6,6,0, SNN) CALL GMMATD (T,6,6,1, GNN,6,6,0, ZNN) ASSIGN 640 TO RETN2 ZK = Z(JS) GO TO 800 640 CALL GMMATD (SNN,6,6,0, T,6,6,0, Y) ASSIGN 650 TO RETN2 ZK = Z(I3) GO TO 800 650 CALL GMMATD (ZNN,6,6,0, T,6,6,0, SNN) C C Y = G I 1 SNN = G I N C ASSIGN 660 TO RETN1 KX = RS(ID+1) NM = CM GO TO 950 C C ADD DEPENDENT TO LIST AND MPC EQUATIONS TO RGT C 660 IF (.NOT.DEBUG) GO TO 680 WRITE (NOUT,670) Y WRITE (NOUT,670) SNN 670 FORMAT ('0 CRSPLD/@670',/,(2X,10D12.4)) 680 DO 710 J = 1,6 IF (BUF(CM+J) .EQ. 0) GO TO 710 C C SELF TERM FOR DEPENDENT SIL C SIL = RS(ID+2) + J - 1 MCODE(1) = SIL MCODE(2) = SIL COEFF = -1. CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) IZ(MU) = MCODE(2) MU = MU - 1 IF (II .GE. MU) CALL MESAGE (-8,0,NAME) LL = (J-1)*6 C C END ONE DEPENDENT C DO 690 L = 1,6 ANS = Y(LL+L) C C TEST FOR COMPUTED ZERO C ESPX = EPS IF (J.GT.3 .AND. L.LT.4) ESPX = ESPX/LENG IF (J.LT.4 .AND. L.GT.3) ESPX = ESPX*LENG IF (DABS(ANS) .LT. ESPX) GO TO 690 MCODE(1) = RS(IB+2) + L - 1 MCODE(2) = SIL COEFF = ANS CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) 690 CONTINUE C C END N INDEPENDENT C DO 700 L = 1,6 ANS = SNN(LL+L) C C TEST FOR COMPUTED ZERO C ESPX = EPS IF (J.GT.3 .AND. L.LT.4) ESPX = ESPX/LENG IF (J.LT.4 .AND. L.GT.3) ESPX = ESPX*LENG IF (DABS(ANS) .LT. ESPX) GO TO 700 MCODE(1) = RS(IE+2) + L - 1 MCODE(2) = SIL COEFF = ANS CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) 700 CONTINUE 710 CONTINUE C IS = IS + 3 IF (II .LT. ND) GO TO 545 C C END BIG DO (720) LOOP C 730 IF (IE+2 .GE. IEND) GO TO 400 IS = IE RS(IS+1) = -1 GO TO 480 C C ---------------------------------------------------- C C INTERNAL ROUTINE TO BUILD 6X6 BASIC TO GLOBAL MATRIX C (T = 0 ON ENTRY) C 800 CALL TRANSD (ZK,D) J = 1 DO 810 I = 1,15,6 T(I ) = D(J ) T(I+ 1) = D(J+1) T(I+ 2) = D(J+2) T(I+21) = D(J ) T(I+22) = D(J+1) T(I+23) = D(J+2) 810 J = J + 3 GO TO RETN2, (260,850,630,640,650) C C INTERNAL ROUTINE TO MAKE RIGID BODY TRANSFER MATRIX FOR CRSPLINES C (UNN = IDENTITY MATRIX ON ENTRY) C 850 UNN( 5) = A(3) - B(3) UNN( 6) = B(2) - A(2) UNN(10) = B(3) - A(3) UNN(12) = A(1) - B(1) UNN(16) = A(2) - B(2) UNN(17) = B(1) - A(1) GO TO 880 860 UNN( 5) = C(3) - A(3) UNN( 6) = A(2) - C(2) UNN(10) = A(3) - C(3) UNN(12) = C(1) - A(1) UNN(16) = C(2) - A(2) UNN(17) = A(1) - C(1) GO TO 880 870 UNN( 5) = C(3) - B(3) UNN( 6) = B(2) - C(2) UNN(10) = B(3) - C(3) UNN(12) = C(1) - B(1) UNN(16) = C(2) - B(2) UNN(17) = B(1) - C(1) 880 GO TO RETN3, (130,530,560,570,580,600,610) C C INTERNAL ROUTINE TO FORM FLEXIBILITY MATRIX FOR CRSPLINE C 900 DO 910 I = 1,36 910 ZNN(I) = ZERO X1 = Z(I1+1) Y1 = Z(I1+2) Z1 = Z(I1+3) X2 = Z(I2+1) Y2 = Z(I2+2) Z2 = Z(I2+3) LENG = DSQRT((X2-X1)**2 + (Y2-Y1)**2 + (Z2-Z1)**2) IF (LENG .EQ. ZERO) GO TO 930 ZNN(22) = LENG ZNN(29) = LENG ZNN(36) = LENG FAC = LENG/12.0D+0*((3.0D+0*DI**2)/(2.0D+0*LENG**2)-ONE) LN3 = LENG**3/12.0D+0 ZNN( 1) = LN3 + FAC*(X2-X1)**2 ZNN( 2) = FAC*(X2-X1)*(Y2-Y1) ZNN( 3) = FAC*(X2-X1)*(Z2-Z1) ZNN( 7) = ZNN(2) ZNN( 8) = LN3 + FAC*(Y2-Y1)**2 ZNN( 9) = FAC*(Y2-Y1)*(Z2-Z1) ZNN(13) = ZNN(3) ZNN(14) = ZNN(9) ZNN(15) = LN3 + FAC*(Z2-Z1)**2 920 GO TO RETN4, (520,550) 930 CALL MESAGE (30,31,EID) NOGOX = 1 GO TO 920 C C INTERNAL ROUTINE TO ABSTRACT CODED DOF C 950 DO 960 I = 1,6 BUF(NM+I) = 0 960 CONTINUE IF (KX .LE. 0) GO TO 980 DO 970 I = 1,6 K1 = KX/10 K2 = KX - K1*10 IF (K2 .GT. 6) GO TO 980 BUF(NM+K2) = K2 IF (K1 .EQ. 0) GO TO 980 970 KX = K1 980 GO TO RETN1, (90,190,1000,660) C C INTERNAL ROUTINE TO PERFORM BINARY SEARCH IN EQEXIN AND C CONVERT THE EXTERNAL NUMBER TO A SIL VALUE C 1000 KLO = 0 KHI = KN2 LASTK = 0 1010 K = (KLO+KHI+1)/2 IF (LASTK .EQ. K) GO TO 1140 LASTK = K IF (GPOINT-IZ(2*K-1)) 1020,1040,1030 1020 KHI = K GO TO 1010 1030 KLO = K GO TO 1010 1040 K = IZ(2*K) GPOINT = IZ(K+2*KN) K = (K-1)*4 + BP IF (GPOINT+5 .GT. MASK15) N23 = 3 GO TO RETN, (60,120,200,430) C C ERROR MESSAGES C 1100 MSG = 131 GO TO 1130 1110 CALL MESAGE (-3,GEOMP,NAME) 1120 MSG = 38 1130 CALL MESAGE (30,MSG,EID) GO TO 1180 1140 WRITE (NOUT,1150) UFM,GPOINT,EID 1150 FORMAT (A23,', UNDEFINED GRID POINT',I9,' SPECIFIED BY RIGID ', 1 'ELEMENT ID',I9) TIMES = TIMES + 1 IF (TIMES .GT. 50) CALL MESAGE (-37,0,NAME) GO TO 1180 1160 WRITE (NOUT,1170) UFM,EID 1170 FORMAT (A23,', RIGID ELEMENT CRBE3',I9,' HAS ILLEGAL UM SET ', 1 'SPECIFICATION') GO TO 1190 C 1180 NOGO = 1 NOGOX = 0 GO TO (30,400), JUMP C C REPOSITION GEOMP FILE FOR NEXT CRBE3 INPUT CARD C 1190 NOGO = 1 NOGOX = 0 CALL BCKREC (GEOMP) I = BEGN + 1 CALL READ (*1110,*1110,GEOMP,J,-I,0,FLAG) 1200 CALL READ (*1110,*1110,GEOMP,J, 1,0,FLAG) I = I + 1 IF (J .NE. -3) GO TO 1200 BEGN = I GO TO 30 C 1300 IF (NOGOX .EQ. 1) NOGO = 1 RETURN END ================================================ FILE: mis/crspls.f ================================================ SUBROUTINE CRSPLS (*,JUMP,MU,BP,RS,AGAIN,N23) C C THIS ROUTINE HANDLES CRBE3 AND CRSPLINE RIGID ELEMENTS C CALLED ONLY BY CRIGGP SUBROUTINE C C SINGLE PRECISION VERSION C IMPLICIT INTEGER (A-Z) LOGICAL AGAIN,DEBUG INTEGER MCODE(2),NAME(2),SILD(6),RS(3) REAL Z(1),ZK,WT,DL,COEFF REAL X1,X2,X3,Y1,Y2,Y3,Z1,Z2,Z3,A(3),B(3),C(3),D(9), 1 LEN,LENG,ONE,ZERO,HALF,EPS,ESPX,ANS,DI,FAC,LN3, 2 T(36),TX(36),KNN(36),GNN(36),UNN(36),ZNN(36), 3 SNN(36),X(36),Y(36),W(6) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,NOUT COMMON /GP4FIL/ GEOMP,BGPDT,CSTM,RGT COMMON /GP4PRM/ BUF(20),BUF1,BUF2,BUF3,BUF4,KNKL1,TWO16,NOGO, 1 GPOINT,KN COMMON /CRSPLY/ X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3 COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (Z(1),IZ(1)), (WT,IWT ), (DL,IDL ), 1 (X1 ,A(1) ), (X2,B(1)), (X3,C(1)) DATA ONE, ZERO, HALF, EPS, TIMES, DEBUG / 1 1.0, 0.0, 0.5, 1.0E-10, 0, .FALSE./ DATA CM,CN, NOGOX, MASK15, NAME / 1 6 ,12, 0, 32767, 4HCRSP,4HLS / C IF (AGAIN) RETURN 1 IF (DEBUG) WRITE (NOUT,10) KN,KNKL1,BP,GEOMP,BGPDT,CSTM,RGT,JUMP 10 FORMAT ('0 CRSPLS DEBUG- KN,KNKL1,BP,GEOMP,BGPDT,CSTM,RGT,JUMP=', 1 /3X,8I7) KN2 = KN/2 CALL SSWTCH (38,L38) C C UNIT MATRIX UNN C DO 20 I = 2,35 20 UNN( I) = ZERO UNN( 1) = ONE UNN( 8) = ONE UNN(15) = ONE UNN(22) = ONE UNN(29) = ONE UNN(36) = ONE C C JUMP = 1 FOR CRBE3 DATA, JUMP = 2 FOR CRSPLINE DATA C IF (JUMP .EQ. 2) GO TO 400 C C READ CRBE3 DATA ON INPUT FILE C ============================= C C CLEAR WORKING SPACE C READ INPUT CARD, SAVE BEGINING POINTER, BEGN, AND C COUNT NUMBER OF WORDS READ, NWDS, IN FIRST PASS C (EACH INPUT CARD WILL BE READ TWICE) C BEGN = 3 30 PASS = 1 DO 40 I = 1,36 T(I) = ZERO 40 KNN(I) = ZERO CALL READ (*1300,*1300,GEOMP,BUF,3,0,FLAG) NWDS = 3 IF (DEBUG .OR. L38.EQ.1) WRITE (NOUT,50) BUF(1) 50 FORMAT (5X,'ELEMENT',I8,' IS BEING PROCESSED') EID = BUF(1) GPOINT = BUF(2) ASSIGN 60 TO RETN ASSIGN 1000 TO RETN1 KX = BUF(3) NM = CN GO TO 950 60 REFG = K SIL = GPOINT DO 70 I = 1,6 70 SILD(I) = SIL + I - 1 X2 = Z(K+1) Y2 = Z(K+2) Z2 = Z(K+3) C C READ WEIGHT FACTORS AND COMPONENTS. C GENERATE WEIGHT VECTOR W C 80 CALL READ (*1110,*1110,GEOMP,IWT,1,0,FLAG) IF (PASS .EQ. 1) NWDS = NWDS + 1 IF (IWT .EQ. -2) GO TO 170 IF (IWT .EQ. -3) GO TO 240 CALL READ (*1110,*1110,GEOMP,COMP,1,0,FLAG) IF (PASS .EQ. 1) NWDS = NWDS + 1 ASSIGN 90 TO RETN1 KX = COMP NM = CM GO TO 950 90 DO 100 I = 1,6 W(I) = ZERO IF (BUF(CM+I) .NE. 0) W(I) = WT 100 CONTINUE C C READ GRID POINT, GET TRANSFORMATION MATRIX, AND SUMMING UP C WT MATRIX, AND FINALLY KNN MATRIX C 110 CALL READ (*1110,*1110,GEOMP,GRID,1,0,FLAG) IF (PASS .EQ. 1) NWDS = NWDS + 1 IF (GRID .EQ. -1) GO TO 80 ASSIGN 120 TO RETN GPOINT = GRID GO TO 1000 120 X1 = Z(K+1) Y1 = Z(K+2) Z1 = Z(K+3) ASSIGN 850 TO RETN2 ASSIGN 130 TO RETN3 ZK = Z(K) GO TO 800 130 CALL GMMATS (T,6,6,0, UNN,6,6,0, X) IF (PASS .EQ. 2) GO TO 270 DO 140 I = 1,36 140 TX(I) = X(I) L = 0 DO 160 I = 1,6 DO 150 J = 1,6 150 X(L+J) = X(L+J)*W(I) 160 L = L + 6 CALL GMMATS (TX,6,6,-1, X,6,6,0, KNN) C C REPEAT FOR MORE GRID POINT C GO TO 110 C C UM SET WAS SPECIFIED BY USER. REBUILD SILD WITH THE UM SET, AND C CHECK TOTAL NUMBER OF COMPONENTS FOR POSSIBLE ERROR C 170 IF (PASS .EQ. 2) GO TO 310 JJ = 1 180 CALL READ (*1110,*1110,GEOMP,GRID,1,0,FLAG) NWDS = NWDS + 1 IF (GRID .EQ. -3) GO TO 240 CALL READ (*1110,*1110,GEOMP,COMP,1,0,FLAG) NWDS = NWDS + 1 ASSIGN 190 TO RETN1 KX = COMP NM = CM GO TO 950 190 GPOINT = GRID ASSIGN 200 TO RETN GO TO 1000 200 DO 230 I = 1,6 IF (BUF(CM+ I) .EQ. 0) GO TO 230 IF (JJ .GT. 6) GO TO 1160 210 IF (BUF(CN+JJ) .NE. 0) GO TO 220 JJ = JJ + 1 IF (JJ .GT. 6) GO TO 1160 GO TO 210 220 SILD(JJ) = GPOINT + I - 1 JJ = JJ + 1 230 CONTINUE GO TO 180 240 IF (PASS .EQ. 2) GO TO 320 C C STORE DIAG TERMS WITH -1. C ADD DEPENDENT SIL TO THE END OF OPEN CORE VIA MU POINTER C DO 250 I = 1,6 IF (BUF(CN+I) .EQ. 0) GO TO 250 MCODE(1) = SIL + I - 1 MCODE(2) = SILD(I) COEFF = -1. CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) IZ(MU) = MCODE(2) MU = MU - 1 250 CONTINUE C C GET MATRIX READY FOR SECOND PASS, IN TX C SING = -1 CALL INVERS (6,KNN,6,0,0,LEN,SING,X) IF (SING .EQ. 2) GO TO 1120 ASSIGN 260 TO RETN2 ZK = Z(REFG) GO TO 800 260 CALL GMMATS (KNN,6,6,0, T,6,6,0, TX) C C BACK RECORD FOR 2ND PASS C SKIP TO WHERE WEIGHT FACTORS BEGIN C CALL BCKREC (GEOMP) PASS = 2 I = BEGN + 3 CALL READ (*1110,*1110,GEOMP,BUF,-I,0,FLAG) GO TO 80 C C INSERT THIS GRID MPC EQUATIONS C 270 CALL GMMATS (TX,6,6,0, X,6,6,1, KNN) DO 280 I = 1,6 DO 280 J = 1,31,6 L = I + J - 1 KNN(L) = KNN(L)*W(I) 280 CONTINUE DO 300 I = 1,6 IF (BUF(CN+I) .EQ. 0) GO TO 300 SIL = SILD(I) L = (I-1)*6 DO 290 J = 1,6 IF (BUF(CM+J) .EQ. 0) GO TO 290 ANS = KNN(L+J) IF (ANS .EQ. ZERO) GO TO 290 MCODE(1) = GPOINT + J - 1 MCODE(2) = SIL COEFF = ANS CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) 290 CONTINUE 300 CONTINUE GO TO 110 C C SKIP TO END OF CARD C 310 CALL READ (*1110,*1110,GEOMP,J,1,0,FLAG) IF (J .NE. -3) GO TO 310 C C UPDATE BEGIN POINTER, AND RETURN FOR ANOTHER RBE3 CARD C 320 BEGN = BEGN + NWDS GO TO 30 C C C READ CRSPLINE DATA ON INPUT FILE C ================================ C C INPUT DATA WILL BE SAVED IN RS ARRAY C 3 WORDS SAVED FOR EACH GRID - BGPDT POINTER, COMPONENT, AND SIL C 400 CALL READ (*1300,*1300,GEOMP,BUF,3,0,FLAG) EID = BUF(1) IDL = BUF(2) RS(1) = BUF(3) RS(2) =-1 RS(3) = 0 IF (DEBUG .OR. L38.EQ.1) WRITE (NOUT,50) BUF(1) K = 4 410 CALL READ (*1110,*1110,GEOMP,RS(K),2,0,FLAG) IF (RS(K) .EQ. -1) GO TO 420 RS(K+2) = 0 K = K + 3 IF (K .GT. MU) CALL MESAGE (-8,0,NAME) GO TO 410 C C END OF INPUT FOR THIS RIGID ELEMENT, NOW COMPUTE LENGTH, INTERNAL C NUMBER (BGPDT POINTER), AND CHANGE GRID TO SIL C 420 IF (K .LT. 8) GO TO 1100 IF (DEBUG) CALL BUG1 ('RS- ',310,RS,K) IEND = K - 1 LEN = ZERO ASSIGN 430 TO RETN C C DO 460 I = 1,IEND,3 I = 1 425 GPOINT = RS(I) GO TO 1000 C C UPON RETURN FROM 1000, K IS BGPDT AND GPOINT IS SIL C 430 RS(I ) = K RS(I+2) = GPOINT IF (DEBUG) WRITE (NOUT,440) I,GPOINT,K,Z(K+1) 440 FORMAT (/10X,'@430 I, NEW GPOINT & K=',I4,2I6,E11.3) C IF (I .NE. 1) GO TO 450 X1 = Z(K+1) Y1 = Z(K+2) Z1 = Z(K+3) GO TO 460 450 X2 = Z(K+1) Y2 = Z(K+2) Z2 = Z(K+3) LEN= LEN + SQRT((X2-X1)**2 + (Y2-Y1)**2 + (Z2-Z1)**2) X1 = X2 Y1 = Y2 Z1 = Z2 460 I = I + 3 IF (I .LT. IEND) GO TO 425 C DI = LEN*DL IS = 1 IF (.NOT.DEBUG) GO TO 480 CALL BUG1 ('RS- ',345,RS,IEND) WRITE (NOUT,470) LEN,DI 470 FORMAT ('0 LEN,DI/@470 =',2E14.5) C C COMPUTATION FOR EACH SEPARATED SPLINE C SET NUMBER OF SEGMENTS, NS C 480 NS = 0 DO 490 I = IS,IEND,3 IF (RS(I+1) .EQ. 0) GO TO 500 490 NS = NS + 1 C C IB = BEGIN, IE = END, IS = PRESENT SEGMENT C ND = NUMBER OF DEPENDENT POINTS C C ZERO MTRAIX WORKING SPACE KNN ,GNN, AND T C 500 IE = I IB = IS ND = NS - 1 DO 510 I = 1,36 KNN(I) = ZERO GNN(I) = ZERO T(I) = ZERO 510 CONTINUE C C COMPUTE FLEXIBILITY MATRIX ZNN AND ITS INVERSE KNN, FOR EACH C SPLINE SEGMENT. C C DO 540 I = 1,NS I = 0 515 I = I + 1 I1 = RS(IS ) I2 = RS(IS+3) ASSIGN 520 TO RETN4 GO TO 900 520 IF (NOGOX .EQ. 1) GO TO 540 X2 = Z(I1+1) Y2 = Z(I1+2) Z2 = Z(I1+3) X1 = Z(I2+1) Y1 = Z(I2+2) Z1 = Z(I2+3) X2 = (X2+X1)*HALF Y2 = (Y2+Y1)*HALF Z2 = (Z2+Z1)*HALF I1 = RS(IE) X1 = Z(I1+1) Y1 = Z(I1+2) Z1 = Z(I1+3) C C FORM UNN USING BASIC UNN MATRIX C DO NOT DESTROY RIGID TRANSFER MATRIX C ASSIGN 530 TO RETN3 GO TO 850 530 CALL GMMATS (UNN,6,6,0, ZNN,6,6,0, SNN) C C SUM INTO KNN C CALL GMMATS (SNN,6,6,-2, UNN,6,6,1, KNN) 540 IS = IS + 3 IF (I .LT. NS) GO TO 515 C IF (NOGOX .EQ. 1) GO TO 730 C C INVERT KNN C SING = -1 CALL INVERS (6,KNN,6,0,0,LEN,SING,SNN) IF (SING .EQ. 2) GO TO 1120 C C LOOP FOR FINAL CONSTRAINT EQUATIONS C IS = IB JS = RS(IS) II = 0 545 II = II + 1 I1 = RS(IS) ID = IS + 3 I2 = RS(ID) ASSIGN 550 TO RETN4 GO TO 900 550 X1 = Z(I2+1) Y1 = Z(I2+2) Z1 = Z(I2+3) X2 = Z(I1+1) Y2 = Z(I1+2) Z2 = Z(I1+3) X3 = Z(I2+1) Y3 = Z(I2+2) Z3 = Z(I2+3) X2 = (X2+X3)*HALF Y2 = (Y2+Y3)*HALF Z2 = (Z2+Z3)*HALF C C Y I+1 I X S I+1 S C ASSIGN 560 TO RETN3 GO TO 850 560 CALL GMMATS (UNN,6,6,0, ZNN,6,6,0, SNN) CALL GMMATS (SNN,6,6,0, UNN,6,6,1, Y) X2 = Z(I1+1) Y2 = Z(I1+2) Z2 = Z(I1+3) C C S I+1 I X GIN C ASSIGN 570 TO RETN3 GO TO 850 570 CALL GMMATS (UNN,6,6,0, GNN,6,6,0, SNN) I3 = RS(IE) X3 = Z(I3+1) Y3 = Z(I3+2) Z3 = Z(I3+3) X2 = Z(JS+1) Y2 = Z(JS+2) Z2 = Z(JS+3) C C GNN = G I+1 N C ASSIGN 580 TO RETN3 GO TO 860 580 CALL GMMATS (Y ,6,6,0, UNN,6,6,1, ZNN) CALL GMMATS (ZNN,6,6,0, KNN,6,6,0, GNN) DO 590 J = 1,36 590 GNN(J) = GNN(J) + SNN(J) C C Y = G I+1 1 C ASSIGN 600 TO RETN3 GO TO 870 600 CALL GMMATS (GNN,6,6,0, UNN,6,6,0, SNN) ASSIGN 610 TO RETN3 GO TO 850 610 DO 620 J = 1,36 620 Y(J) = UNN(J) - SNN(J) C C TRANSFORM TO GLOBAL AND STORE ANSWERS IN Y AND SNN C ASSIGN 630 TO RETN2 ZK = Z(I2) GO TO 800 630 CALL GMMATS (T,6,6,1, Y ,6,6,0, SNN) CALL GMMATS (T,6,6,1, GNN,6,6,0, ZNN) ASSIGN 640 TO RETN2 ZK = Z(JS) GO TO 800 640 CALL GMMATS (SNN,6,6,0, T,6,6,0, Y) ASSIGN 650 TO RETN2 ZK = Z(I3) GO TO 800 650 CALL GMMATS (ZNN,6,6,0, T,6,6,0, SNN) C C Y = G I 1 SNN = G I N C ASSIGN 660 TO RETN1 KX = RS(ID+1) NM = CM GO TO 950 C C ADD DEPENDENT TO LIST AND MPC EQUATIONS TO RGT C 660 IF (.NOT.DEBUG) GO TO 680 WRITE (NOUT,670) Y WRITE (NOUT,670) SNN 670 FORMAT ('0 CRSPLS/@670',/,(2X,10E12.4)) 680 DO 710 J = 1,6 IF (BUF(CM+J) .EQ. 0) GO TO 710 C C SELF TERM FOR DEPENDENT SIL C SIL = RS(ID+2) + J - 1 MCODE(1) = SIL MCODE(2) = SIL COEFF = -1. CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) IZ(MU) = MCODE(2) MU = MU - 1 IF (II .GE. MU) CALL MESAGE (-8,0,NAME) LL = (J-1)*6 C C END ONE DEPENDENT C DO 690 L = 1,6 ANS = Y(LL+L) C C TEST FOR COMPUTED ZERO C ESPX = EPS IF (J.GT.3 .AND. L.LT.4) ESPX = ESPX/LENG IF (J.LT.4 .AND. L.GT.3) ESPX = ESPX*LENG IF (ABS(ANS) .LT. ESPX) GO TO 690 MCODE(1) = RS(IB+2) + L - 1 MCODE(2) = SIL COEFF = ANS CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) 690 CONTINUE C C END N INDEPENDENT C DO 700 L = 1,6 ANS = SNN(LL+L) C C TEST FOR COMPUTED ZERO C ESPX = EPS IF (J.GT.3 .AND. L.LT.4) ESPX = ESPX/LENG IF (J.LT.4 .AND. L.GT.3) ESPX = ESPX*LENG IF (ABS(ANS) .LT. ESPX) GO TO 700 MCODE(1) = RS(IE+2) + L - 1 MCODE(2) = SIL COEFF = ANS CALL WRITE (RGT,MCODE,2,0) CALL WRITE (RGT,COEFF,1,0) 700 CONTINUE 710 CONTINUE C IS = IS + 3 IF (II .LT. ND) GO TO 545 C C END BIG DO (720) LOOP C 730 IF (IE+2 .GE. IEND) GO TO 400 IS = IE RS(IS+1) = -1 GO TO 480 C C ---------------------------------------------------- C C INTERNAL ROUTINE TO BUILD 6X6 BASIC TO GLOBAL MATRIX C (T = 0 ON ENTRY) C 800 CALL TRANSS (ZK,D) J = 1 DO 810 I = 1,15,6 T(I ) = D(J ) T(I+ 1) = D(J+1) T(I+ 2) = D(J+2) T(I+21) = D(J ) T(I+22) = D(J+1) T(I+23) = D(J+2) 810 J = J + 3 GO TO RETN2, (260,850,630,640,650) C C INTERNAL ROUTINE TO MAKE RIGID BODY TRANSFER MATRIX FOR CRSPLINES C (UNN = IDENTITY MATRIX ON ENTRY) C 850 UNN( 5) = A(3) - B(3) UNN( 6) = B(2) - A(2) UNN(10) = B(3) - A(3) UNN(12) = A(1) - B(1) UNN(16) = A(2) - B(2) UNN(17) = B(1) - A(1) GO TO 880 860 UNN( 5) = C(3) - A(3) UNN( 6) = A(2) - C(2) UNN(10) = A(3) - C(3) UNN(12) = C(1) - A(1) UNN(16) = C(2) - A(2) UNN(17) = A(1) - C(1) GO TO 880 870 UNN( 5) = C(3) - B(3) UNN( 6) = B(2) - C(2) UNN(10) = B(3) - C(3) UNN(12) = C(1) - B(1) UNN(16) = C(2) - B(2) UNN(17) = B(1) - C(1) 880 GO TO RETN3, (130,530,560,570,580,600,610) C C INTERNAL ROUTINE TO FORM FLEXIBILITY MATRIX FOR CRSPLINE C 900 DO 910 I = 1,36 910 ZNN(I) = ZERO X1 = Z(I1+1) Y1 = Z(I1+2) Z1 = Z(I1+3) X2 = Z(I2+1) Y2 = Z(I2+2) Z2 = Z(I2+3) LENG = SQRT((X2-X1)**2 + (Y2-Y1)**2 + (Z2-Z1)**2) IF (LENG .EQ. ZERO) GO TO 930 ZNN(22) = LENG ZNN(29) = LENG ZNN(36) = LENG FAC = LENG/12.0*((3.0*DI**2)/(2.0*LENG**2)-ONE) LN3 = LENG**3/12.0 ZNN( 1) = LN3 + FAC*(X2-X1)**2 ZNN( 2) = FAC *(X2-X1)*(Y2-Y1) ZNN( 3) = FAC *(X2-X1)*(Z2-Z1) ZNN( 7) = ZNN(2) ZNN( 8) = LN3 + FAC*(Y2-Y1)**2 ZNN( 9) = FAC*(Y2-Y1)*(Z2-Z1) ZNN(13) = ZNN(3) ZNN(14) = ZNN(9) ZNN(15) = LN3 + FAC*(Z2-Z1)**2 920 GO TO RETN4, (520,550) 930 CALL MESAGE (30,31,EID) NOGOX = 1 GO TO 920 C C INTERNAL ROUTINE TO ABSTRACT CODED DOF C 950 DO 960 I = 1,6 BUF(NM+I) = 0 960 CONTINUE IF (KX .LE. 0) GO TO 980 DO 970 I = 1,6 K1 = KX/10 K2 = KX - K1*10 IF (K2 .GT. 6) GO TO 980 BUF(NM+K2) = K2 IF (K1 .EQ. 0) GO TO 980 970 KX = K1 980 GO TO RETN1, (90,190,1000,660) C C INTERNAL ROUTINE TO PERFORM BINARY SEARCH IN EQEXIN AND C CONVERT THE EXTERNAL NUMBER TO A SIL VALUE C 1000 KLO = 0 KHI = KN2 LASTK = 0 1010 K = (KLO+KHI+1)/2 IF (LASTK .EQ. K) GO TO 1140 LASTK = K IF (GPOINT-IZ(2*K-1)) 1020,1040,1030 1020 KHI = K GO TO 1010 1030 KLO = K GO TO 1010 1040 K = IZ(2*K) GPOINT = IZ(K+2*KN) K = (K-1)*4 + BP IF (GPOINT+5 .GT. MASK15) N23 = 3 GO TO RETN, (60,120,200,430) C C ERROR MESSAGES C 1100 MSG = 131 GO TO 1130 1110 CALL MESAGE (-3,GEOMP,NAME) 1120 MSG = 38 1130 CALL MESAGE (30,MSG,EID) GO TO 1180 1140 WRITE (NOUT,1150) UFM,GPOINT,EID 1150 FORMAT (A23,', UNDEFINED GRID POINT',I9,' SPECIFIED BY RIGID ', 1 'ELEMENT ID',I9) TIMES = TIMES + 1 IF (TIMES .GT. 50) CALL MESAGE (-37,0,NAME) GO TO 1180 1160 WRITE (NOUT,1170) UFM,EID 1170 FORMAT (A23,', RIGID ELEMENT CRBE3',I9,' HAS ILLEGAL UM SET ', 1 'SPECIFICATION') GO TO 1190 C 1180 NOGO = 1 NOGOX = 0 GO TO (30,400), JUMP C C REPOSITION GEOMP FILE FOR NEXT CRBE3 INPUT CARD C 1190 NOGO = 1 NOGOX = 0 CALL BCKREC (GEOMP) I = BEGN + 1 CALL READ (*1110,*1110,GEOMP,J,-I,0,FLAG) 1200 CALL READ (*1110,*1110,GEOMP,J, 1,0,FLAG) I = I + 1 IF (J .NE. -3) GO TO 1200 BEGN = I GO TO 30 C 1300 IF (NOGOX .EQ. 1) NOGO = 1 RETURN END ================================================ FILE: mis/crsub.f ================================================ SUBROUTINE CRSUB (NAME,I) C C THE SUBROUTINE CREATES AN ENTRY FOR THE SUBSTRUCTURE NAME IN THE C DIT THE OUTPUT PARAMETER I INDICATES THAT THE SUBSTRUCTURE NAME C IS THE ITH SUBSTRUCTURE IN THE DIT. C LOGICAL DITUP INTEGER BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL DIMENSION NAME(2),IEMPTY(2),NMSBR(2) COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL, 1 IODUM(8),MDIDUM(4),NXTDUM(15),DITUP DATA IEMPTY/ 2*4H / DATA INDSBR/ 1 /, NMSBR /4HCRSU,4HB / C CALL CHKOPN (NMSBR(1)) IF (DITSIZ .EQ. DITNSB*2) GO TO 10 C C THERE IS AN EMPTY INTERNAL DIRECTORY SPACE IN THE MDI. C CALL FDSUB (IEMPTY(1),I) IF (I .NE. -1) GO TO 20 GO TO 30 C C NO INTERNAL EMPTY SPACE IN THE MDI. DIRECTORY FOR THE NEW C SUBSTRUCTURE C 10 DITSIZ = DITSIZ + 2 I = DITSIZ/2 C C UPDATE DIT. C 20 DITNSB = DITNSB + 1 CALL FDIT (I,JDIT) BUF(JDIT ) = NAME(1) BUF(JDIT+1) = NAME(2) DITUP = .TRUE. RETURN C C ERROR MESSAGES. C 30 CALL ERRMKN (INDSBR,5) RETURN END ================================================ FILE: mis/csqrtx.f ================================================ SUBROUTINE CSQRTX(XX,Y) C******* C ROUTINE TO FIND THE COMPLEX SQUARE ROOT OF X AND STORE IT IN Y C******* DOUBLE PRECISION XX(2),X(2),Y(2),R X(1) = XX(1) X(2) = XX(2) R = DSQRT(X(1)**2+X(2)**2) Y(1) = DSQRT(DABS(X(1)+R)/2.) Y(2) = DSQRT(DABS(-X(1)+R)/2.) IF(X(2) .EQ. 0.0D0) RETURN Y(2) = DSIGN(Y(2),X(2)) RETURN END ================================================ FILE: mis/csub.f ================================================ SUBROUTINE CSUB (X,Y,Z,A,B) C******* C CSUB WILL FORM Z = A*X - B*Y WHERE A AND B ARE SCALAR C MULTIPLIERS FOR THE COMPLEX VECTORS X AND Y C******* DOUBLE PRECISION X(2) ,Y(2) ,A(2) ,B(2) 1 ,Z(1) ,DUM COMMON /CINVPX/ AAA ,NCOL NCOL2 = NCOL+NCOL DO 10 I = 1,NCOL2,2 DUM = X(I)*A(1) - X(I+1)*A(2) - Y(I)*B(1) + Y(I+1)*B(2) Z(I+1) = X(I)*A(2) + X(I+1)*A(1) - Y(I+1)*B(1) - Y(I)*B(2) 10 Z(I) = DUM RETURN END ================================================ FILE: mis/csumm.f ================================================ SUBROUTINE CSUMM(D1,D2,ID1,D3,D4,ID2,D5,D6,ID5) C C ADDS D1+D2 TO D3+D4 SCALING OUTPUT C DOUBLE PRECISION D1,D2,D3,D4,D5,D6,T1,T2,T3,T4 MULT = IABS(ID1-ID2) IF(MULT .LE. 38) FACTOR = 10.0**MULT T1 =D1 T2 =D2 T3 =D3 T4 =D4 ID5 =ID1 IF(ID1-ID2) 30,50,20 30 IF(MULT .GT. 38) GO TO 40 T3 =T3*FACTOR T4 =T4*FACTOR GO TO 50 20 IF(MULT .GT. 38) GO TO 35 T1 = T1*FACTOR T2 = T2*FACTOR ID5= ID2 GO TO 50 35 D5 = D3 D6 =D4 ID5 = ID2 GO TO 70 40 D5 = D1 D6 = D2 GO TO 70 50 D5 = T1 +T3 D6 = T2 + T4 70 RETURN ENTRY CSQRTN(D1,D2,ID1,D3,D4,ID2) C C COMPUTES COMPLEX SQRT = SCALED C ID2 = ID1 D3=D1 D4= D2 IF( MOD(ID1,2) .EQ. 0) GO TO 100 ID2 = ID2 -1 IF(ID2 .LT. 0) GO TO 105 101 D3 = D3*10.0 D4 =D4*10.0 100 ID2 = ID2/2 T1 =DSQRT(D3*D3 +D4*D4) T2 = DSQRT( DABS(D3+T1)/2.0) T3 = DSQRT(DABS(-D3+T1)/2.0) D3 =T2 D4 = T3 IF(D2 .EQ. 0.0D0) GO TO 70 D4 =DSIGN(T3,D2) GO TO 70 C C NEGATIVE EXPONENT C 105 ID2 = ID2+1 GO TO 101 C C SCALES DETERMINANT C ENTRY CDETM3(D1,D2,ID1) T1 = DMAX1(DABS(D1),DABS(D2)) IF(T1 .EQ. 0.0D0) GO TO 70 4125 IF(T1 .GT. 10.0D0) GO TO 4153 4126 IF(T1 .LT. 1.0D0) GO TO 4140 GO TO 70 4153 D1 = D1*0.1D0 D2 = D2*0.1D0 T1 = T1*0.1D0 ID1 = ID1+1 GO TO 4125 4140 D1 = D1*10.0D0 D2 = D2*10.0D0 T1 = T1*10.0D0 ID1 = ID1-1 GO TO 4126 END ================================================ FILE: mis/cthmck.f ================================================ SUBROUTINE CTHMCK (NT,NUM,NOM,IO,IG,IC,IDEG,IDIS,IW,NEW,ICC,ILD, 1 IPP,JUMP,UN,NODESL) C C THIS IS THE EXECUTIVE FOR THE CUTHILL-MCKEE GRID POINT RENUMBERING C STRATEGY. C 91 VERSION, WITH REVERSED NEW SEQUENCE LOGIC C C IN SAN ANTONIO, TEXAS, APRIL 27, 1989, THE DOUGLAS MICHEL NASTRAN C ACHIEVEMENT AWARD 1989, AN ANNUAL EVENT SPONSORED BY COSMIC AND C NASA, WAS GIVEN TO ELIZABETH H. CUTHILL, JAMES M. McKEE AND GORDON C C. EVERSTINE FOR THEIR TEAMWORK THAT CREATED BANDIT, A COMPUTER C PROGRAM THAT MINIMIZES THE BANDWIDTHS OF NASTRAN MATRICES. THE C WIDOW OF DR. McKEE AND HIS FAMILY RECEIVED THE AWARD FOR HIM. C DRS. CUTHILL AND EVERSTINE RECEIVED THEIR AWARDS PERSONALLY. C C THE PRINCIPAL INPUTS ARE THE CONNECTIVITY MATRIX IG AND THE NUMBER C OF GRID POINTS (NODES) NN. C C INPUT - NT,NUM,NOM,IO,IP,IG,NN,MAXGRD,ILD C OUTPUT - NEW,ILD,MM,IH0,IHE,KORIG,KNEW,NCM C SCRATCH - IC,IDEG,IDIS,IW,ICC,IPP C C SET FOLLOWING DIMENSIONS IN CALLING PROGRAM - C IG(II1,M),IC(L),IDEG(L),IDIS(L),IW(L),NEW(L),ICC(L),ILD(L),IP(M) C C L = HAS THE DIMENSION OF MAXGRD C (NEW) MAXGRD EXCEEDS NUMBER OF GRID POINTS C II1 = MAXGRD/(PACKING DENSITY IN INTEGERS/WORD) C = ROW DIMENSION OF IG C M = MAX NODAL DEGREE DIVIDED BY INTEGER PACKING FACTOR C (NEW) EXCEEDS MAX NODAL DEGREE C NT = MAX NUMBER OF STARTING NODES TO BE CONSIDERED (=80) C NUM AND NOM GIVE THE FRACTION OF THE RANGE FROM MIN DEGREE TO MAX C DEGREE TO CONSIDER FOR STARTING NODES (NUM=1, NOM=2) C IO = RE-SEQUENCING CRITERION , SET BY BANDIT - C = 1, RMS WAVEFRONT C = 2, BANDWIDTH C = 3, PROFILE. (PROFILE IS BANDWIDTH SUM OF ALL ROWS) C = 4, WAVEFRONT (MAX) C IG(I,J) CONTAINS THE GRID POINT LABEL FOR THE JTH NODE ADJACENT C TO NODE I (THE CONNECTIVITY MATRIX). C THE CONNECTION OF A NODE TO ITSELF IS NOT LISTED. C NN = NUMBER OF GRID POINTS (NODES) C MM = COLUMN DIMENSION OF IG ON INPUT, C MAX NODAL DEGREE ON OUTPUT C MAXGRD= EFFECTIVE IG ROW DIMENSION (NEGLECTING INTEGER PACKING) C NEW(I)= OLD LABEL FOR GRID POINT NOW LABELLED I C ILD(I)= NEW LABEL FOR GRID POINT ORIGINALLY LABELLED I C ILD AND NEW ARE INVERSES C ILD MUST BE INPUT TO CTHMCK TO INDICATE AN INITIAL SEQUENCE. C NORMALLY, ON INPUT, SET ILD(I)=I FOR ALL I. C JUMP = 1 IF RESEQUENCING ATTEMPTS RESULT IN NO IMPROVEMENT C = 0 OTHERWISE. C IH0 = ORIG PROFILE C IHE = NEW PROFILE C KORIG = ORIG BANDWIDTH C KNEW = NEW BW C NCM = NUMBER OF COMPONENTS C NODESL IS SCRATCH SPACE. C C IN CALLING PROGRAM, TRY CALL CTHMCKL (80,1,2,2,1,...) C C THE FOLLOWING SUBROUTINES WERE WRITTEN BY E. CUTHILL AND J. MCKEE C OF NSRDC - C DEGREE,DIAM,IDIST,KOMPNT,MAXBND,MAXDGR,MINDEG,RELABL,CTHMCK C CTHMCK WAS MODIFIED BY G.C. EVERSTINE, DTRC, AND C PUT INTO NASTRAN BY G.C. CHAN/UNISYS C INTEGER SUMW REAL IM1, IM2 DIMENSION IG(1), IC(1), IDEG(1), IDIS(1), IW(1), 1 NEW(1), ICC(1), ILD(1), IPP(1), UN(1), 2 NODESL(1) CHARACTER UFM*23, UWM*25, UIM*29 COMMON /XMSSG / UFM, UWM, UIM COMMON /BANDA / IBUF1, NOMPC, NODEP, NOPCH, NORUN, 1 METHOD, ICRIT COMMON /BANDB / DUM3B(3),NGRID, DUMB2(2), KDIM COMMON /BANDD / KORIG, KNEW, IH0, IHE, NCM COMMON /BANDS / NN, MM, IH, IB, MAXGRD COMMON /BANDW / MAXW0, RMS0, MAXW1, RMS1, I77, 1 BRMS0, BRMS1 COMMON /SYSTEM/ ISYS, NOUT, DUM6Y(6), NLPP C C SET UP SCRATCH SPACE NODESL. C IDEM = KDIM K2 = IDEM + 1 IAJDIM= 3*IDEM C C DETERMINE THE DEGREE OF EACH NODE, THE NUMBER OF COMPONENTS, NCM, C AND THE MAXIMUM DEGREE OF ANY NODE. C CALL DEGREE (IG,IDEG,UN) NCM = KOMPNT(IG,IC,IDEG,IW,ICC,UN) MAXD = MAXDGR(0,IC,IDEG) MMC = MAXD C C INITIALIZE NEW ARRAY FROM THE ILD ARRAY. C ILD MUST BE INPUT TO CUTHILL. C DO 10 I = 1,NN K = ILD(I) 10 NEW(K) = I C C COMPUTE ORIGINAL BANDWIDTH, PROFILE, WAVEFRONT AND ACTIVE COLUMN C IH0 = ORIGINAL PROFILE, IS = ORIGINAL BW C CALL WAVEY (IG,ILD,NEW,0,IC,IW,IS,MAXW,AVERW,SUMW,RMS,BRMS,UN) IH = SUMW MAXW0 = MAXW RMS0 = RMS BRMS0 = BRMS KORIG = IS IH0 = IH CALL PAGE1 I = METHOD + 2 WRITE (NOUT,20) UIM,ICRIT,I,NOMPC,NODEP,NOPCH 20 FORMAT (A29,'S FROM RESEQUENCING PROCESSOR - BANDIT (CRI=',I2, 1 ', MTH=',I2,', MPC=',I2,', DEP=',I2,', PCH=',I2,')',/) IF (NLPP .LE. 50) GO TO 50 WRITE (NOUT,30) 30 FORMAT (31X,'BEFORE RESEQUENCING - - -') WRITE (NOUT,40) IS,IH,MAXW,AVERW,RMS,BRMS 40 FORMAT (40X,'BANDWIDTH',I13, /40X,'PROFILE',I15, 1 /40X,'MAX WAVEFRONT',I9, /40X,'AVG WAVEFRONT',F9.3, 2 /40X,'RMS WAVEFRONT',F9.3,/40X,'RMS BANDWIDTH',F9.3) C C COMPUTE NODAL DEGREE STATISTICS. C 50 CALL DIST (IDEG,IPP,MEDIAN,MODD) IF (METHOD .EQ. +1) RETURN C C INITIALIZE ILD AND NEW ARRAYS. C JUMP = 0 DO 70 I = 1,NN NEW(I) = 0 70 ILD(I) = 0 C C GENERATE NUMBERING SCHEME FOR EACH COMPONENT, NC. C DO 310 NC = 1,NCM C C DETERMINE THE RANGE OF DEGREES (MI TO MAD) OF NODES OF INTEREST. C MAKE SURE MAD DOES NOT EXCEED MEDIAN C MI = MINDEG(NC,IC,IDEG) MAD = MI IF (NOM .EQ. 0) GO TO 80 MA = MAXDGR(NC,IC,IDEG) MAD = MI + ((MA-MI)*NUM)/NOM MAD = MIN0(MAD,MEDIAN-1) MAD = MAX0(MAD,MI) C C DETERMINE BANDWIDTH OR SUM CRITERION FOR EACH NODE MEETING C SPECIFIED CONDITION. C 80 CALL DIAM (NC,MAD,NL,NODESL,IDEM,MAXLEV,IG,IC,IDEG,IDIS,IW,ICC,UN) JMAX = MIN0(NT,NL) JMAX = MAX0(JMAX,1) IM1 = 1.E+8 IM2 = IM1 C C CHECK SEQUENCE FOR EACH STARTING NODE SELECTED, AND C COMPUTE NEW BANDWIDTH,PROFILE,WAVEFRONT DATA. C IB = BANDWIDTH, IH = PROFILE. C DO 300 J = 1,JMAX CALL RELABL (1,NODESL(J),IG,IC,IDEG,IDIS,IW,NEW,ICC,ILD, 1 NODESL(K2),UN,IAJDIM) CALL WAVEY (IG,ILD,NEW,NC,IC,IW,IB,MAXW,AVERW,SUMW,RMS,BRMS,UN) IF (NGRID .EQ. -1) RETURN C IH = SUMW GO TO (220,230,240,250), IO 220 CRIT1 = RMS CRIT2 = IH GO TO 260 230 CRIT1 = IB CRIT2 = IH GO TO 260 240 CRIT1 = IH CRIT2 = IB GO TO 260 250 CRIT1 = MAXW CRIT2 = RMS 260 IF (IM1-CRIT1) 300,280,270 270 IM1 = CRIT1 IM2 = CRIT2 IJ = J GO TO 300 280 IF (IM2 .LE. CRIT2) GO TO 300 IM2 = CRIT2 IJ = J C 300 CONTINUE C C RECOMPUTE SEQUENCE FOR STARTING NODE WHICH IS BEST FOR CRITERION C SELECTED. C CALL RELABL (1,NODESL(IJ),IG,IC,IDEG,IDIS,IW,NEW,ICC,ILD, 1 NODESL(K2),UN,IAJDIM) IF (NGRID .EQ. -1) RETURN C 310 CONTINUE C C DETERMINE NODES OF ZERO DEGREE AND STACK LAST, AND C COMPUTE BANDWIDTH, PROFILE AND WAVEFRONT DATA. C CALL STACK (IDEG,NEW,ILD,IW) CALL WAVEY (IG,ILD,NEW,0,IC,IW,IB,MAXW,AVERW,SUMW,RMS,BRMS,UN) IH = SUMW C IF (NLPP .LE. 50) GO TO 350 WRITE (NOUT,320) 320 FORMAT (/31X,'AFTER RESEQUENCING BY REVERSE CUTHILL-MCKEE (CM)', 1 ' ALGORITHM - - -') WRITE (NOUT,40) IB,IH,MAXW,AVERW,RMS,BRMS C C CHECK CM LABELING AGAINST ORIGINAL LABELING TO SEE IF BETTER. C IB = BANDWIDTH, IH = PROFILE. C 350 GO TO (400,410,420,430), IO 400 IM1 = RMS0 IM2 = IH0 CRIT1 = RMS CRIT2 = IH GO TO 440 410 IM1 = IS IM2 = IH0 CRIT1 = IB CRIT2 = IH GO TO 440 420 IM1 = IH0 IM2 = IS CRIT1 = IH CRIT2 = IB GO TO 440 430 IM1 = MAXW0 IM2 = RMS0 CRIT1 = MAXW CRIT2 = RMS 440 IF (CRIT1-IM1) 480,450,460 450 IF (CRIT2 .LT. IM2) GO TO 480 C C IF NO IMPROVEMENT RETURN TO ORIGINAL SEQUENCE. C 460 IB = IS IH = IH0 MAXW = MAXW0 RMS = RMS0 BRMS = BRMS0 DO 470 I = 1,NN ILD(I) = I 470 NEW(I) = I JUMP = 1 C C SET FINAL VALUES OF B, P, RMS, W. C 480 KNEW = IB IHE = IH MAXW1= MAXW RMS1 = RMS BRMS1= BRMS RETURN END ================================================ FILE: mis/ctrnsp.f ================================================ SUBROUTINE CTRNSP (IX,X,NX,FILEA,B,SR1FIL) C C TRANS WILL DO AN INCORE TRANSPOSE OF THE UPPER TRIANGLE OF ACTIVE C ELEMENTS C EXTERNAL LSHIFT ,RSHIFT ,ORF ,COMPLF INTEGER B ,FILEA ,SR1FIL ,TYPEA , 1 EOL ,SYSBUF ,ORF ,LSHIFT , 2 NAME(2) ,RSHIFT ,RDP ,EOR , 3 CDP ,COMPLF DOUBLE PRECISION DI(2) DIMENSION FILEA(7) ,IX(1) ,III(6) ,X(1) COMMON /MACHIN/ MACH ,IHALF COMMON /ZNTPKX/ IA(4) ,II ,EOL ,EOR COMMON /SYSTEM/ SYSBUF COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP COMMON /TYPE / JPREC(2) ,NWDS(4) EQUIVALENCE (III(3),DI(1)) DATA NAME / 4HCTRN ,4HSP / C C NUM = RSHIFT(COMPLF(0),1) IOBUF = NX - 4*SYSBUF IFILE = FILEA(1) C C POSITION INPUT FILE AT START OF THE UPPER TRIANGLE C CALL SKPREC (FILEA(1),B+1) TYPEA = FILEA(5) NCOL = FILEA(2) NO = 0 ISTOR = 1 IPREC = JPREC(TYPEA) INCR = NWDS(TYPEA) + 1 K = 1 20 CALL INTPK (*70,FILEA(1),0,TYPEA,0) 30 CALL ZNTPKI IF (II .GT. K) GO TO 50 C C PACK I AND J IN ONE WORD AND STORE IT AND THE NONZERO VALUE C IN CORE C L = ORF(LSHIFT(II,IHALF),K+B) NO = NO + 1 IX(ISTOR ) = L IX(ISTOR+1) = IA(1) IX(ISTOR+2) = IA(2) IX(ISTOR+3) = IA(3) IX(ISTOR+4) = IA(4) ISTOR = ISTOR+INCR IF (ISTOR+INCR .GT. IOBUF) GO TO 140 IF (EOL) 70,30,70 50 IF (EOR .EQ. 0) CALL SKPREC (FILEA(1),1) 70 K = K + 1 IF (K+B .LE. NCOL) GO TO 20 CALL REWIND (FILEA(1)) C C ALL ELEMENTS ARE IN CORE. WRITE THEM OUT IN THE TRANSPOSED ORDER C IFILE = SR1FIL CALL OPEN (*120,SR1FIL,IX(IOBUF),WRTREW) ISTOR = ISTOR - INCR DO 110 I = 1,NO K = NUM DO 80 J = 1,ISTOR,INCR IF (IX(J) .GT. K) GO TO 80 KK = J K = IX(J) 80 CONTINUE C C UNPACK I AND J, AND WRITE OUT I,J,AND A(I,J) C III(1) = RSHIFT(K,IHALF) III(2) = K - LSHIFT(III(1),IHALF) IX(KK) = NUM IF (IPREC .EQ. 2) GO TO 90 DI(1) = X(KK+1) DI(2) = 0.D0 IF (TYPEA .GT. 2) DI(2) = X(KK+2) GO TO 100 90 III(3) = IX(KK+1) III(4) = IX(KK+2) III(5) = 0 III(6) = 0 IF (TYPEA .LE. 2) GO TO 100 III(5) = IX(KK+3) III(6) = IX(KK+4) 100 CONTINUE CALL WRITE (SR1FIL,III(1),6,0) IF (KK .EQ. ISTOR) ISTOR = ISTOR - INCR 110 CONTINUE C C WRITE A TRAILER RECORD ON THE FILE C III(1) = -1 CALL WRITE (SR1FIL,III(1),6,0) CALL CLOSE (SR1FIL,REW) RETURN C 120 NO = -1 GO TO 150 140 NO = -8 150 CALL MESAGE (NO,IFILE,NAME) RETURN END ================================================ FILE: mis/curcas.f ================================================ SUBROUTINE CURCAS(*,NSKIP,TRL,MCB,ZZ,IBUF) C THIS SUBROUTINE COPIES MATRIX FILE TRL(1) TO FILE MCB(1) C SKIPPING NSKIP-1 MATRIX COLUMNS. PRIMARY USE IS TO CREATE A MATRIX C THAT INCLUDES ONLY SUBCASES IN THE CURRENT DMAP LOOP. C ALL FILES ARE OPENED, CLOSED AND TRIALERS WRITTEN. C IF NSKIP WOULD RESULT IN NO-COPY, MCB(1) IS SET TO TRL(1). C TRL - INPUT TRAILER FOR FILE BEING CONVERTED. C MCB - OUTPUT TRAILER - WORD 1 HAS GINO FILE NAME. C ZZ - OPEN CORE. C IBUF- LOCATION OF TWO GINO BUFFERS. C NSKIP - ONE MORE THAN THE SUBCASES TO SKIP. C * - NONSTANDARD RETURN IF UNABLE TO PROCESS. C----- INTEGER PARM(4) ,MCB(7) ,TRL(7) ,ZZ(1) ,COUNT C COMMON /NAMES / IRD,IRDRW,IWT,IWTRW, KREW,KNRW,KNERW COMMON /SYSTEM/ ISBZ EQUIVALENCE (ICNT,RCNT) DATA PARM(3),PARM(4) / 4HCURC,2HAS / C PARM(2) = TRL(1) IF (NSKIP.LE.1) GO TO 55 C . FOR STATICS THE NUMBER OF SUBCASES SKIPPED = NO. COLUMNS SKIPPED. C . OTHER ANALYSIS TYPES NEED TO SUPPLY PROPER VALUE FOR NSKIP... I = NSKIP - 1 IBF2 = IBUF+ISBZ IF (IBUF.LE.0) GO TO 100 C CALL RDTRL(TRL) IF (TRL(1).LE.0) GO TO 90 IF (TRL(2).LE.I) GO TO 110 CALL OPEN(*90,TRL(1),ZZ(IBF2),IRDRW) PARM(2) = MCB(1) CALL OPEN(*90,MCB(1),ZZ(IBUF),IWTRW) CALL WRITE(MCB(1),MCB(1),2,1) PARM(2) = TRL(1) CALL FWDREC(*120,TRL(1)) C MCB(2) = TRL(2) - I MCB(3) = TRL(3) MCB(4) = TRL(4) MCB(5) = TRL(5) MCB(6) = TRL(6) DO 20 J = 1,I CALL FWDREC(*120,TRL(1)) 20 CONTINUE CALL CPYFIL (TRL,MCB,ZZ,IBUF-1,COUNT) RCNT = COUNT MCB(7) = ICNT CALL EOF (MCB) C CALL CLOSE (TRL(1),KRW) CALL CLOSE (MCB(1),KRW) CALL WRTTRL (MCB(1)) GO TO 60 55 MCB(1) = TRL(1) 60 RETURN C C . ERROR MESSAGES... C 90 PARM(1) = +1 GO TO 130 100 PARM(1) = +8 GO TO 130 110 PARM(1) = +7 GO TO 130 120 PARM(1) = +2 C 130 CALL MESAGE (PARM(1),PARM(2),PARM(3)) RETURN 1 END ================================================ FILE: mis/curv.f ================================================ SUBROUTINE CURV C C MAIN DRIVING ROUTINE OF MODULE -CURV-. C C DMAP CALLING SEQUENCE. C C CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/P1/P2 $ C LOGICAL FOES1G, EOFOS1, STRAIN INTEGER SUBR(6), FILE, MCB(7) CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON /XMSSG / UFM, UWM, UIM, SFM COMMON /BLANK / IP1, IP2 COMMON /SYSTEM/ ISYSBF, IOUTPT COMMON /CURVTB/ INDEXS(108) COMMON /ZZZZZZ/ IZ(1) C C COMMON /ZZCURV/ MUST BE AT THE LONGEST OF OVERLAYS WITH CURV1, C CURV2, AND CURV3. C EQUIVALENCE (INDEXS( 16),LMCSID), (INDEXS( 52),LCORE), 1 (INDEXS( 79),LOC), (INDEXS( 80),FILE), 2 (INDEXS( 81),IMSG), (INDEXS(100),EOFOS1), 3 (INDEXS(103),FOES1G), (INDEXS(104),STRAIN), 4 (INDEXS(105),LOGERR) DATA SUBR / 4HCURV,4H1 ,4HCURV,4H2 ,4HCURV,4H3 / C C C CHECK TO SEE IF COMPUTATIONS NEED TO BE DONE C IF (IP1 .LT. 0) RETURN C C CHECK TO SEE IF THE INPUT FILE EXISTS C MCB(1) = 101 CALL RDTRL (MCB(1)) IF (MCB(1) .LE. 0) RETURN C C PERFORM INITIALIZATION AND CREATE ESTX ON SCRATCH FILE 1. C DO 10 I = 1,107 INDEXS(I) = 777777777 10 CONTINUE IMSG = 0 JSUB = 1 CALL CURV1 IF (IMSG .EQ. -8) GO TO 10001 IF (IMSG .LT. 0) GO TO 9000 IF (LMCSID .LE. 0) GO TO 8000 C C CREATE OES1M FOR NEXT SUBCASE IF NOT AT EOF IN OES1. C 100 IF (EOFOS1) GO TO 4000 JSUB = 2 CALL CURV2 IF (IMSG .EQ. -8) GO TO 10001 IF (IMSG .LT. 0) GO TO 9000 C C IF OES1G IS TO BE FORMED CALL CURV3 OVERLAY. PROCESS CURRENT C SUBCASE C IF (.NOT.FOES1G) GO TO 100 JSUB = 3 CALL CURV3 IF (IMSG .EQ. -8) GO TO 10001 IF (IMSG .LT. 0) GO TO 9000 GO TO 100 C C EOF HIT IN OES1. ALL THROUGH. C 4000 CONTINUE RETURN C C NO NON-ZERO MATERIAL COORDINATE SYSTEM IDS ENCOUNTERED C 8000 CALL PAGE2 (3) WRITE (IOUTPT,8100) UWM IF (.NOT.STRAIN) WRITE (IOUTPT,8200) IF ( STRAIN) WRITE (IOUTPT,8300) 8100 FORMAT (A25,' 3173, NO NON-ZERO MATERIAL COORDINATE SYSTEM IDS ', 1 'ENCOUNTERED IN MODULE CURV.') 8200 FORMAT (39H STRESSES IN MATERIAL COORDINATE SYSTEM, 1 14H NOT COMPUTED.) 8300 FORMAT (49H STRAINS/CURVATURES IN MATERIAL COORDINATE SYSTEM, 1 14H NOT COMPUTED.) GO TO 4000 C C ERROR CONDITION IN CURV1, CURV2, OR CURV3. C 9000 IF (IMSG .NE. -37) GO TO 9999 WRITE (IOUTPT,9100) SFM,JSUB,IMSG,LOC,JSUB,FILE 9100 FORMAT (A25,' 3174, SUBROUTINE CURV',I1, 1 ' HAS RETURNED WITH ERROR CONDITION ',I4, /5X, 2 'LOCATION CODE = ',I4,' IN SUBROUTINE CURV',I1, /5X, 3 'FILE NUMBER = ',I4) WRITE (IOUTPT,9998) INDEXS 9998 FORMAT (/5X,29H CONSTANTS IN COMMON /CURVTB/ , /,(3X,4I15)) C C INSURE ALL FILES CLOSED C 9999 CONTINUE DO 10000 I = 1,9 DO 10000 J = 100,300,100 CALL CLOSE (I+J,1) 10000 CONTINUE 10001 WRITE (IOUTPT,9100) SFM,JSUB,IMSG,LOC,JSUB,FILE JSUB = 2*JSUB - 1 IF (IMSG .EQ. -8) FILE = LCORE CALL MESAGE (IMSG,FILE,SUBR(JSUB)) GO TO 4000 END ================================================ FILE: mis/curv1.f ================================================ SUBROUTINE CURV1 C***** C INITIALIZATION OVERLAY. ALL LOGIC INDEPENDENT OF PROCESSING C THE SUBCASE DATA ON OES1 IS HANDLED IN THIS INITIALIZATION C ROUTINE OF THE -CURV- MODULE C C OPEN CORE MAP DURING -CURV1- EXECUTION. C ======================================= C INITIAL AFTER CURV1 RETURNS C +-----------+ +----------------+ C I Z(IELTYP) I I Z(IELTYP) I C I . I I . I C I ELEMENT I I REDUCED I C I TYPES I I ELEMENT-TYPES I C I BEING I I LIST I C I PLACED I I . I C I IN SCR1 I I Z(NELTYP) I C I . I +----------------+ C I Z(NELTYP) I I Z(IMCSID) I C +-----------+ I . I C I Z(IMID) I I MCSID LIST I C I . I I OF MCSIDS I C I MATID- I I ACTUALLY I C I MCSID- I I REFERENCED I C I FLAG- I I . I C I ENTRIES I I Z(NMCSID) I C I . I +----------------+ C I Z(NMID) I I Z(ICSTM) I C +-----------+ I . I C I Z(ISIL) I I CSTMS IN I C I . I I EXISTENCE I C I SILS IN I I FOR MCSIDS I C I INTERNAL I I IN ABOVE I C I SORT I I TABLE I C I . I I . I C I Z(NSIL) I I Z(NCSTM) I C +-----------+ +----------------+ C I Z(IEXT) I I . I C I . I I AVAILABLE I C I EXTERNAL I I CORE I C I IDS IN I I . I C I INTERNAL I I . I C I SORT I I . I C I . I I . I C I Z(NEXT) I I . I C +-----------+ I . I C I . I I . I C I AVAILABLE I I . I C I CORE I I . I C I . I I . I C I Z(JCORE) I I Z(JCORE) I C +-----------+ +----------------+ C I Z(IBUF4) I I Z(IBUF4) I C I Z(IBUF3) I I Z(IBUF3) I C I Z(IBUF2) I I Z(IBUF2) I C I Z(IBUF1) I I Z(IBUF1) I C I GINO-BUFS I I GINO-BUFS I C I Z(LCORE) I I Z(LCORE) I C +-----------+ +----------------+ C C***** REAL Z(1) ,RBUF(100) C INTEGER CSTMS ,SCR1 ,SCR2 ,SCR3 INTEGER SCR4 ,OES1M ,OES1G ,OES1 ,SCR5 INTEGER CSTM ,EST ,SIL ,GPL INTEGER ELTYPE ,SUBCAS ,FILE ,ESTWDS INTEGER EWORDS ,OWORDS ,DEPTS ,CSTYPE INTEGER DEVICE ,OLDID ,BUF ,SBUF INTEGER RD ,RDREW ,WRT ,WRTREW INTEGER CLS ,CLSREW ,EOR ,SYSBUF C INTEGER MAT(6) ,ELEM(5,4) C LOGICAL ANY ,EOFOS1 ,FIRST ,ANYOUT LOGICAL FOES1G ,STRAIN ,ANY1M ,ANY1G C COMMON/BLANK / IP1 ,IP2 ,ICMPLX ,ZDUM(3) C COMMON/SYSTEM/ SYSBUF ,IOUTPT C COMMON/NAMES / RD ,RDREW ,WRT ,WRTREW 1 ,CLSREW ,CLS C COMMON/ZZZZZZ/ IZ(1) C COMMON/CURVC1/ LSBUF ,SBUF(10) C COMMON/CURVC2/ LBUF ,BUF(100) C COMMON/CURVC3/ VEC(3) ,VMAX(3) ,VMIN(3) ,IDREC(146) C COMMON/CURVTB/ IMID ,NMID ,LMID ,NMIDS A ,IELTYP ,NELTYP ,JELTYP ,ICSTM B ,NCSTM ,CSTMS ,LCSTM ,IESTX C ,NESTX ,IMCSID ,NMCSID ,LMCSID D ,MCSIDS ,JMCSID ,KMCSID ,ISIL E ,NSIL ,LSIL ,JSIL ,IOES1M F ,NOES1M ,LOES1M ,IDEP ,NDEP G ,IINDEP ,NINDEP ,JINDEP ,ISIGMA H ,NSIGMA ,IGMAT ,NGMAT ,IEXT I ,NEXT ,LEXT ,SCR1 ,SCR2 J ,SCR3 ,SCR4 ,OES1M ,OES1G K ,OES1 ,MPT ,CSTM ,EST L ,SIL ,GPL ,JCORE ,LCORE M ,IBUF1 ,IBUF2 ,IBUF3 ,IBUF4 N ,I ,J ,K ,L O ,K1 ,K2 ,IXYZ1 ,IXYZ2 P ,LX1 ,LX2 ,ELTYPE ,MCSID Q ,IDSCR1 ,IDOES1 ,NPTS ,NPTS4 R ,IWORDS ,NWORDS ,SUBCAS ,KOUNT S ,ISIG1 ,ISIG2 ,LOC ,FILE COMMON/CURVTB/ IMSG ,NELEMS ,IMATID ,ICOMP 1 ,ESTWDS ,EWORDS ,JP ,OWORDS 2 ,MATID ,DEPTS ,INDPTS ,ICTYPE 3 ,IVMAT ,ITRAN ,CSTYPE ,ISING 4 ,DEVICE ,OLDID ,ANY ,EOFOS1 5 ,FIRST ,ANYOUT ,FOES1G ,STRAIN 6 ,LOGERR ,ANY1M ,ANY1G ,SCR5 C EQUIVALENCE (Z(1),IZ(1)), (BUF(1),RBUF(1)) EQUIVALENCE (NOEOR,RDREW), (EOR,CLS) C DATA MAT / 103,1,12, 203,2,17 / C C - - - - - - - - CURV-MODULE ELEMENTS DATA - - - - - - - - C C ELEMENT EST CONNECT. MATID BGPDT C TYPE WORDS POINTS INDEX INDEX C ======= ======= ======= ======= ======= C TRIA1 DATA ELEM / 6 ,27 ,3 ,6 ,15 C TRIA2 * ,17 ,21 ,3 ,6 ,9 C QUAD1 * ,19 ,32 ,4 ,7 ,16 C QUAD2 * ,18 ,26 ,4 ,7 ,10 / C C IF EITHER OF THESE PARAMS IS EXCEEDED RESET AND RE-DIMENSION C SBUF OR BUF. C LSBUF = 10 LBUF = 100 NELEMS = 4 LOGERR = 37 C***** C INITIALIZATION OF CORE AND FLAGS C***** FOES1G = .TRUE. IF (IP1.GT.0) FOES1G = .FALSE. ANY1M = .FALSE. ANY1G = .FALSE. LMCSID = 0 C LCORE = KORSZ( IZ(1) ) DO 100 I = 1,LCORE IZ(I) = 0 100 CONTINUE IBUF1 = LCORE - SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF C C SET FILE NUMBERS EXPLICITYLY. ALL OVERLAYS REFERENCE /CURVTB/ C OES1 = 101 MPT = 102 CSTM = 103 EST = 104 SIL = 105 GPL = 106 OES1M = 201 OES1G = 202 SCR1 = 301 SCR2 = 302 SCR3 = 303 SCR4 = 304 SCR5 = 305 JCORE = IBUF4 - 1 FILE = 0 LOC = 300 ICRQ =-IBUF4 IF( IBUF4 ) 9008,9008,300 C***** C ALLOCATE TABLE OF ELEMENT TYPES PLACED ON ESTX(SCR1). MAXIMUM C SIZE NOW AND REDUCED LATER TO ACTUAL SIZE. C***** 300 IELTYP = 1 JELTYP = IELTYP NELTYP = NELEMS C***** C CONSTRUCTION OF TABLE CONTAINING ENTRIES OF, C C MID = MATERIAL-ID C MCSID = MATERIAL-COORDINATE-SYSTEM-ID C FLAG = REFERENCE-FLAG C C ALL MAT1 AND MAT2 BULK DATA CARDS CONTAINING A NON-ZERO -MCSID- C RESULT IN AN ENTRY BEING ADDED TO THIS TABLE. TABLE IS THEN SORTED C ON -MID-. C***** IMID = NELTYP + 1 NMID = IMID - 1 C C OPEN MPT USING -PRELOC- FUNCTION. C FILE = MPT LOC = 400 CALL PRELOC(*9001,IZ(IBUF1),MPT) C C PASS MAT1 AND MAT2 DATA IF ANY. C DO 480 I = 1,6,3 IWORDS = MAT(I+2) IF( IWORDS .GT. LBUF ) GO TO 9000 CALL LOCATE(*480,IZ(IBUF1),MAT(I),IDUM) 410 CALL READ(*9002,*480,MPT,BUF(1),IWORDS,NOEOR,NWORDS) IF( BUF(IWORDS) .LE. 0 ) GO TO 410 ICRQ = NMID + 3 - JCORE IF( NMID+3 .GT. JCORE ) GO TO 9008 IZ(NMID+1) = BUF(1) IZ(NMID+2) = BUF(IWORDS) IZ(NMID+3) = 0 NMID = NMID + 3 GO TO 410 C C EOR HIT READING MAT1 OR MAT2 CARDS C 480 CONTINUE C C TABLE COMPLETE, THUS NOW SORT IT. IF TABLE IS EMPTY WE ARE THROUGH C CALL CLOSE( MPT, CLSREW ) LMID = NMID - IMID + 1 NMIDS = LMID / 3 LOC = 570 IF (LMID) 9000, 950, 570 570 CALL SORT( 0, 0, 3, 1, IZ(IMID), LMID ) C***** C LOAD LIST OF SILS INTO CORE, FOLLOWED BY LIST OF EXTERNAL IDS. C THIS IS REQUIRED ONLY IF OES1G IS TO BE FORMED. C***** IF( .NOT. FOES1G ) GO TO 630 FILE = SIL LOC = 580 ISIL = NMID + 1 CALL GOPEN( SIL, IZ(IBUF1), 0 ) CALL READ(*9002,*580,SIL,IZ(ISIL),JCORE-ISIL,NOEOR,LSIL) ICRQ = JCORE - ISIL GO TO 9008 C 580 NSIL = ISIL + LSIL - 1 CALL CLOSE( SIL, CLSREW ) C FILE = GPL LOC = 590 IEXT = NSIL + 1 CALL GOPEN( GPL, IZ(IBUF1), 0 ) CALL READ(*9002,*590,GPL,IZ(IEXT),JCORE-IEXT,NOEOR,LEXT) ICRQ = JCORE - IEXT GO TO 9008 C 590 NEXT = IEXT + LEXT - 1 CALL CLOSE( GPL, CLSREW ) IF( LSIL .NE. LEXT ) GO TO 9000 C***** C EST IS NOW READ. ANY ELEMENTS IN THE EST WHOSE MATERIAL ID REFERENCES C A MAT1 OR MAT2 ENTRY WHICH CONTAINS A NON-ZERO MATERIAL-COORDINATE- C SYSTEM-ID, WILL BE PLACED IN AN ABBREVIATED EST ON SCRATCH1. C C FORMAT OF EACH ELEMENT TYPE RECORD. C C ELEMENT TYPE NUMBER C NUMBER OF WORDS PER EACH OF THE FOLLOWING ENTRIES. C NUMBER OF POINTS PER THIS ELEMENT TYPE. C C * ELEMENT-ID C * MCSID = MATERIAL-COORDINATE-SYSTEM-ID C ENTRY* C * EXTERNAL-GRID-IDS THIS ELEMENT CONNECTS (1 OR MORE) C * X,Y,Z BASIC COORDINATE SETS OF EACH CONNECTED POINT(1 OR MORE C C ( ABOVE ELEMENT ENTRY REPEATS FOR EACH ELEMENT C REFERENCING A MAT1 OR MAT2 CARD HAVING A NON-ZERO MCSID.) C C***** 630 LOC = 630 FILE = SCR1 CALL OPEN(*9001,SCR1,IZ(IBUF2),WRTREW) FILE = EST CALL GOPEN( EST, IZ(IBUF1), 0 ) C OLDID = -99999998 C C READ ELEMENT TYPE OF NEXT EST RECORD AND DETERMINE IF IT IS C AMONG ELEMENT TYPES TO BE EVEN CONSIDERED. C 645 LOC = 645 CALL READ(*800,*9003,EST,ELTYPE,1,NOEOR,NWORDS) DO 650 I = 1,NELEMS IF( ELTYPE .EQ. ELEM(1,I) ) GO TO 670 650 CONTINUE CALL FWDREC(*9002,EST) GO TO 645 C C OK THIS ELEMENT TYPE RECORD IS TO BE CONSIDERED. C 670 ESTWDS = ELEM(2,I) LOC = 670 IF( ESTWDS .GT. LBUF ) GO TO 9000 ANY = .FALSE. NPTS = ELEM(3,I) IMATID = ELEM(4,I) IXYZ1 = ELEM(5,I) IXYZ2 = IXYZ1 + 4*NPTS - 1 K1 = 2 + NPTS LOC = 680 IF( K1 .GT. LSBUF ) GO TO 9000 C C READ AN ELEMENT ENTRY AND CHECK TO DETERMINE IF IT IS TO BE USED. C 690 LOC = 690 CALL READ(*9002,*780,EST,BUF(1),ESTWDS,NOEOR,NWORDS) MATID = BUF(IMATID) IF( MATID .EQ. OLDID ) GO TO 730 CALL BISLOC(*690,MATID,IZ(IMID),3,NMIDS,JP) MCSID = IZ(IMID+JP) OLDID = MATID IZ(IMID+JP+1) = 7 C C DEVELOP AND OUTPUT ABBREVIATED ENTRY TO SCRATCH1. C (INITIALIZE RECORD WITH THREE-WORD-HEADER ENTRY.) C 730 IF( ANY ) GO TO 733 SBUF(1) = ELTYPE SBUF(2) = 4*NPTS + 2 SBUF(3) = NPTS CALL WRITE( SCR1, SBUF(1), 3, NOEOR ) IZ(JELTYP) = ELTYPE JELTYP = JELTYP + 1 ANY = .TRUE. C 733 SBUF(1) = BUF(1) SBUF(2) = MCSID C C CONVERT SILS TO EXTERNAL-IDS IF OES1G IS TO BE BUILT C IF( FOES1G ) GO TO 740 DO 735 I=3,K1 SBUF(I) = 0 735 CONTINUE GO TO 760 C 740 JSIL = 2 LOC = 740 DO 750 I = 3,K1 CALL BISLOC(*9000,BUF(JSIL),IZ(ISIL),1,LSIL,JP) SBUF(I) = IZ(IEXT+JP-1) JSIL = JSIL + 1 750 CONTINUE C C OUTPUT THIS PORTION OF ENTRY AND THEN XYZ COMPONENTS OF CONNECTED C POINTS C 760 CALL WRITE( SCR1, SBUF(1), NPTS+2, NOEOR ) C DO 770 I = IXYZ1,IXYZ2,4 CALL WRITE( SCR1, BUF(I+1), 3, NOEOR ) 770 CONTINUE C C GO FOR NEXT ELEMENT OF THIS TYPE C GO TO 690 C C END OF ENTRIES FUR CURRENT ELEMENT TYPE. C 780 LOC = 780 IF( NWORDS .NE. 0 ) GO TO 9000 IF( ANY ) CALL WRITE( SCR1, 0, 0, EOR ) GO TO 645 C C END OF ALL ELEMENT TYPES IN EST C 800 CALL CLOSE( EST, CLSREW ) CALL CLOSE( SCR1, CLSREW ) C***** C REDUCTION OF MATERIAL-ID AND COORDINATE-SYSTEM-ID TO THOSE C ACTUALLY REFERENCED BY ELEMENTS BEING CONSIDERED. C***** NELTYP = JELTYP - 1 C C RESORT MID-MCSID TABLE ON MCSID. C CALL SORT( 0, 0, 3, 2, IZ(IMID), LMID ) IMCSID = NELTYP + 1 NMCSID = NELTYP LOC = 820 OLDID = 0 DO 840 I = IMID,NMID,3 IF( IZ(I+2) ) 9000,840,820 C C ELIMINATE DUPLICATE MCSIDS. C 820 IF( IZ(I+1) .EQ. OLDID ) GO TO 840 OLDID = IZ(I+1) NMCSID = NMCSID + 2 IZ(NMCSID-1) = IZ(I+1) IZ(NMCSID ) = 0 840 CONTINUE LMCSID = NMCSID - IMCSID + 1 MCSIDS = LMCSID / 2 C C IF TABLE IS NOW EMPTY THERE IS NOTHING MORE TO DO C LOC = 860 IF (LMCSID) 9000, 950, 860 C***** C COORDINATE SYSTEMS WHICH MAY BE REFERENCED ARE AT THIS TIME C PULLED INTO CORE FROM THE -CSTM- DATA BLOCK. (SILS AND EXTERNAL-IDS C TABLES IF IN CORE ARE NO LONGER REQUIRED.) C***** 860 ICSTM = NMCSID + 1 NCSTM = NMCSID FILE = CSTM CALL GOPEN( CSTM, IZ(IBUF1), 0 ) 870 ICRQ = NCSTM + 14 - JCORE IF( NCSTM+14 .GT. JCORE ) GO TO 9008 880 CALL READ(*9002,*900,CSTM,IZ(NCSTM+1),14,NOEOR,NWORDS) KID = IZ(NCSTM+1) CALL BISLOC (*880, KID, IZ(IMCSID), 2, MCSIDS, JP) NCSTM = NCSTM + 14 GO TO 870 C C END OF COORDINATE SYSTEM DATA C 900 CALL CLOSE( CSTM, CLSREW ) LCSTM = NCSTM - ICSTM + 1 CSTMS = LCSTM / 14 CALL SORT( 0, 0, 14, 1, Z(ICSTM), LCSTM ) CALL PRETRS( IZ(ICSTM), LCSTM ) C***** C INITIALIZE INPUT AND OUTPUT FILE POSITIONS. C***** 950 CALL GOPEN (OES1, IZ(IBUF1), 0) C C CHECK FOR STRAIN OPTION C FILE = OES1 LOC = 910 CALL READ(*9002,*9003,OES1,IDREC(1),2,0,FLAG) I = IDREC(2) IF (I.NE.5.AND.I.NE.21.AND.I.NE.1005) GO TO 9000 STRAIN = .FALSE. IF (I.EQ.21) STRAIN = .TRUE. ICMPLX = 0 IF (I.EQ.1005) ICMPLX = 1 CALL BCKREC (OES1) C CALL CLOSE( OES1, CLS ) EOFOS1 = .FALSE. C CALL GOPEN( OES1M, IZ(IBUF1), 1 ) CALL CLOSE( OES1M, CLS ) C IF( .NOT. FOES1G ) GO TO 5000 CALL GOPEN( OES1G, IZ(IBUF1), 1 ) CALL CLOSE( OES1G, CLS ) C***** C END OF INITIALIZATION C***** 5000 RETURN C***** C ERROR CONDITION ENCOUNTERED. C***** 9000 IMSG = -LOGERR GO TO 5000 9001 IMSG = -1 GO TO 5000 9002 IMSG = -2 GO TO 5000 9003 IMSG = -3 GO TO 5000 9008 IMSG = -8 LCORE = ICRQ GO TO 5000 END ================================================ FILE: mis/curv2.f ================================================ SUBROUTINE CURV2 C***** C PASSES NEXT SUBCASE OF ELEMENT STRESS OR STRAIN DATA IN OES1 C AND OUTPUTS OES1M FOR THIS SUBCASE. SETS UP FILES AND TABLES C FOR -CURV3- IF OES1G IS TO BE FORMED. C C OPEN CORE MAP DURING -CURV2- EXECUTION. C ======================================= C C FROM-------+------------+ C CURV1 I Z(IELTYP) I MASTER LIST OF ELEMENT TYPES THAT C EXECUTION I THRU I EXIST ON ESTX(SCR1) C I Z(NELTYP) I C +------------+ C I Z(IMCSID) I MASTER LIST OF MCSIDS ELEMENTS IN C I THRU I PROBLEM REFERENCE, WITH COUNTS OF C I Z(NMCSID) I OES1M ELEMENTS FOR CURRENT SUBCASE. C +------------+ C I Z(ICSTM) I CSTM FOR EACH -MCSID- IN ABOVE LIST. C I THRU I 14 WORD ENTRIES. (USER MAY NOT HAVE C I Z(NCSTM) I SUPPLIED ALL, BUT MAY BE OK.) C FROM-------+------------+ C AND DURING I Z(IESTX) I SPACE FOR ONE ENTRY OF ESTX(SCR1) C CURV2 I THRU I ENTRIES. (SIZE IS ELEMENT DEPENDENT) C EXECUTION I Z(NESTX) I C +------------+ C I Z(IOES1M) I TABLE OF INCR-WORD .RIES FOR 1 ELEMENT C I THRU I TYPE. CONTAINS ELEMENT-ID,MCSID,XY- C I Z(NOES1M) I COMPONENT-CODE, AND (INCR-3) SIGMAS. C +------------+ INCR = 9 FOR REAL STRESS C I . I = 15 FOR COMPLEX STRESS C I . I AVAILABLE CORE. C I . I C I . I C I . I C I Z(JCORE) I C +------------+ C I Z(IBUF4) I GINO-BUFFER(OES1M) C I I C +------------+ C I Z(IBUF3) I GINO-BUFFER(SCR2 AND SCR3) C I I C +------------+ C I Z(IBUF2) I GINO-BUFFER(SCR1) C I I C +------------+ C I Z(IBUF1) I GINO-BUFFER(OES1) C I I C I Z(LCORE) I C +------------+ C C C***** REAL Z(1) ,RBUF(100),U(9) C INTEGER CSTMS ,SCR1 ,SCR2 ,SCR3 ,MCB(7) INTEGER SCR4 ,OES1M ,OES1G ,OES1 ,SCR5 INTEGER CSTM ,EST ,SIL ,GPL INTEGER ELTYPE ,SUBCAS ,FILE ,ESTWDS INTEGER EWORDS ,OWORDS ,DEPTS ,CSTYPE INTEGER DEVICE ,OLDID ,BUF ,SBUF INTEGER RD ,RDREW ,WRT ,WRTREW INTEGER CLS ,CLSREW ,EOR ,SYSBUF C LOGICAL ANY ,EOFOS1 ,FIRST ,ANYOUT LOGICAL FOES1G ,STRAIN ,ANY1M ,ANY1G C COMMON/BLANK / IP1 ,IP2 ,ICMPLX ,ZDUM(3) C COMMON/SYSTEM/ SYSBUF ,IOUTPT C COMMON/NAMES / RD ,RDREW ,WRT ,WRTREW 1 ,CLSREW ,CLS C COMMON/CONDAS/ VALPI ,VAL2PI ,RADDEG ,DEGRAD 1 ,S4PISQ C COMMON/ZZZZZZ/ IZ(1) C COMMON/CURVC1/ LSBUF ,SBUF(10) C COMMON/CURVC2/ LBUF ,BUF(100) C COMMON/CURVC3/ VEC(3) ,VMAX(3) ,VMIN(3) ,IDREC(146) C COMMON/CURVTB/ IMID ,NMID ,LMID ,NMIDS A ,IELTYP ,NELTYP ,JELTYP ,ICSTM B ,NCSTM ,CSTMS ,LCSTM ,IESTX C ,NESTX ,IMCSID ,NMCSID ,LMCSID D ,MCSIDS ,JMCSID ,KMCSID ,ISIL E ,NSIL ,LSIL ,JSIL ,IOES1M F ,NOES1M ,LOES1M ,IDEP ,NDEP G ,IINDEP ,NINDEP ,JINDEP ,ISIGMA H ,NSIGMA ,IGMAT ,NGMAT ,IEXT I ,NEXT ,LEXT ,SCR1 ,SCR2 J ,SCR3 ,SCR4 ,OES1M ,OES1G K ,OES1 ,MPT ,CSTM ,EST L ,SIL ,GPL ,JCORE ,LCORE M ,IBUF1 ,IBUF2 ,IBUF3 ,IBUF4 N ,I ,J ,K ,L O ,K1 ,K2 ,IXYZ1 ,IXYZ2 P ,LX1 ,LX2 ,ELTYPE ,MCSID Q ,IDSCR1 ,IDOES1 ,NPTS ,NPTS4 R ,IWORDS ,NWORDS ,SUBCAS ,KOUNT S ,ISIG1 ,ISIG2 ,LOC ,FILE COMMON/CURVTB/ IMSG ,NELEMS ,IMATID ,ICOMP 1 ,ESTWDS ,EWORDS ,JP ,OWORDS 2 ,MATID ,DEPTS ,INDPTS ,ICTYPE 3 ,IVMAT ,ITRAN ,CSTYPE ,ISING 4 ,DEVICE ,OLDID ,ANY ,EOFOS1 5 ,FIRST ,ANYOUT ,FOES1G ,STRAIN 6 ,LOGERR ,ANY1M ,ANY1G ,SCR5 C EQUIVALENCE (Z(1),IZ(1)), (BUF(1),RBUF(1)) EQUIVALENCE (NOEOR,RDREW), (EOR,CLS) C DATA MCB/ 7*1 / C C OPEN OES1M FOR ANY POSSIBLE OUTPUTS DURING THIS SUBCASE PASS. C ISIG1 = 3 ISIG2 = 11 FILE = OES1M LOC = 60 CALL OPEN(*9001,OES1M,IZ(IBUF3),WRT) C C OPEN OES1 NOREWIND TO CONTINUE C FIRST = .TRUE. ANY = .FALSE. FILE = OES1 CALL OPEN(*9001,OES1,IZ(IBUF1),RD) FILE = SCR1 CALL OPEN(*9001,SCR1,IZ(IBUF2),RDREW) C C ZERO ELEMENT COUNTS FOR EACH -MCSID- THIS SUBCASE MAY REFERENCE. C DO 80 I = IMCSID,NMCSID,2 IZ(I+1) = 0 80 CONTINUE C C READ NEXT ID-RECORD C 100 FILE = OES1 LOC = 100 CALL READ(*300,*9003,OES1,IDREC(1),146,EOR,NWORDS) C C CHECK IF STILL SAME SUBCASE UNLESS THIS IS THE FIRST ID-RECORD OF A C SUBCASE GROUP. C IF( .NOT. FIRST ) GO TO 200 C C YES THIS IS FIRST ID-RECORD OF A SUBCASE GROUP. C SET SUBCASE IDENTIFIERS. C SUBCAS = IDREC(4) FIRST = .FALSE. GO TO 500 C C CHECKING FOR CHANGE IN SUBCASE C 200 IF( SUBCAS .EQ. IDREC(4) ) GO TO 500 C C CHANGE IN SUBCASE THUS BACK RECORD OVER THIS ID-RECORD CLOSE C OES1, AND WRAP UP OPERATIONS ON OES1M FOR CURRENT SUBCASE. C CALL BCKREC( OES1 ) CALL CLOSE( OES1, CLS ) C C CLOSE ESTX(SCR1) AND ESTXX(SCR2). C 250 CALL CLOSE( SCR1, CLSREW ) CALL CLOSE( SCR2, CLSREW ) GO TO 5000 C C END OF FILE ON OES1. SET EOF FLAG AND WRAP UP CURRENT OPERATIONS C ON OES1M. C 300 EOFOS1 = .TRUE. CALL CLOSE( OES1, CLSREW ) CALL CLOSE(OES1M,CLSREW) GO TO 250 C C ID RECORD ON OES1 WILL BE FOR SOME KIND OF ELEMENT. C CHECK TO SEE IF ITS TYPE IS IN THE LIST OF TYPES NOW ON SCR1 C WHICH IS THE ABBREVIATED EST. IF NOT THEN SKIP THE DATA RECORD C AND GO TO NEXT ID RECORD. C 500 ELTYPE = IDREC(3) IFORMT = IDREC(9) OWORDS = IDREC(10) DO 520 I = IELTYP,NELTYP IF( ELTYPE .EQ. IZ(I) ) GO TO 600 520 CONTINUE CALL FWDREC(*300,OES1) GO TO 100 C C POSITION TO SCR1 RECORD FOR THIS ELEMENT TYPE. IF IT CAN NOT BE C FOUND BY FORWARD SEARCH THERE IS A LOGIC ERROR, OR OES1 ELEMENT C TYPES ARE NOT IN SAME ORDER AS EST ELEMENT TYPES. C 600 FILE = SCR1 LOC = 600 CALL REWIND (SCR1) 640 CALL READ(*9002,*9003,SCR1,BUF(1),3,NOEOR,NWORDS) IF( BUF(1) .EQ. ELTYPE ) GO TO 650 CALL FWDREC(*9002,SCR1) GO TO 640 C C NOW POSITIONED TO READ ELEMENT ENTRIES FROM ESTX(SCR1) WHICH C ARE OK FOR INCLUSION IN OES1M AND OES1G PROCESSING. C C ALSO POSITIONED TO READ OUTPUT STRESS/STRAIN ENTRIES FROM OES1. C HOWEVER, ONLY THOSE ALSO ON ESTX(SCR1) WILL BE PULLED. C 650 ANYOUT = .FALSE. EWORDS = BUF(2) NPTS = BUF(3) NPTS4 = 4*NPTS IESTX = NCSTM + 1 NESTX = NCSTM + EWORDS IOES1M = NESTX + 1 NOES1M = NESTX LOC = 650 ICRQ = NOES1M - JCORE IF( NOES1M .GT. JCORE ) GO TO 9008 IDSCR1 = 0 C C READ NEXT OES1 ENTRY AND SET IDOES1 (STRIPPING OFF DEVICE CODE) C 670 FILE = OES1 LOC = 670 CALL READ(*9002,*900,OES1,BUF(1),OWORDS,NOEOR,NWORDS) IDOES1 = BUF(1) / 10 IF( IDOES1 ) 9000,9000,700 C C READ NEXT SCR1 ENTRY AND SET IDSCR1 C 680 FILE = SCR1 LOC = 680 CALL READ(*9002,*950,SCR1,IZ(IESTX),EWORDS,NOEOR,NWORDS) IDSCR1 = IZ(IESTX) IF( IDSCR1 ) 9000,9000,700 C C CHECK FOR MATCH OF ESTX(SCR1) ENTRY ID WITH OES1 ENTRY ID. C 700 IF( IDOES1 - IDSCR1 ) 670,710,680 C C MATCH FOUND THUS BEGIN OES1M ENTRY CALCULATIONS C 710 MCSID = IZ(IESTX+1) LOC = 710 CALL TRANEM( MCSID, NPTS, Z(IESTX+NPTS+2), ICOMP, U(1), VEC(1) ) C C FORM AND ADD ENTRY TO CORE. INVARIANTS WILL BE COMPUTED LATER. C INCR = 9 IF (ICMPLX.EQ.1) INCR = 15 ICRQ = NOES1M + INCR - JCORE IF( NOES1M+INCR .GT. JCORE ) GO TO 9008 IZ(NOES1M+1) = BUF(1) IZ(NOES1M+2) = MCSID IZ(NOES1M+3) = ICOMP IF (ICMPLX.EQ.1) GO TO 730 C C IF STRAINS DO MODIFICATION OF GAMMA C IF( .NOT. STRAIN ) GO TO 720 RBUF(ISIG1+2) = RBUF(ISIG1+2) / 2.0 RBUF(ISIG2+2) = RBUF(ISIG2+2) / 2.0 720 CALL GMMATS( U(1),3,3,0, RBUF(ISIG1),3,1,0, Z(NOES1M+4) ) CALL GMMATS( U(1),3,3,0, RBUF(ISIG2),3,1,0, Z(NOES1M+7) ) C NOES1M = NOES1M + 9 GO TO 740 C 730 IF (IFORMT.NE.3) GO TO 732 DO 731 MM1 = 3, 10, 7 MM2 = MM1 + 4 DO 731 LLL = MM1, MM2, 2 ZTEMP = RBUF(LLL)*COS(RBUF(LLL+1)*DEGRAD) RBUF(LLL+1) = RBUF(LLL)*SIN(RBUF(LLL+1)*DEGRAD) RBUF(LLL) = ZTEMP 731 CONTINUE 732 ZDUM(1) = RBUF(3) ZDUM(2) = RBUF(5) ZDUM(3) = RBUF(7) CALL GMMATS (U(1),3,3,0,ZDUM,3,1,0,Z(NOES1M+4)) ZDUM(1) = RBUF(4) ZDUM(2) = RBUF(6) ZDUM(3) = RBUF(8) CALL GMMATS (U(1),3,3,0,ZDUM,3,1,0,Z(NOES1M+7)) ZDUM(1) = RBUF(10) ZDUM(2) = RBUF(12) ZDUM(3) = RBUF(14) CALL GMMATS (U(1),3,3,0,ZDUM,3,1,0,Z(NOES1M+10)) ZDUM(1) = RBUF(11) ZDUM(2) = RBUF(13) ZDUM(3) = RBUF(15) CALL GMMATS (U(1),3,3,0,ZDUM,3,1,0,Z(NOES1M+13)) C IF (IFORMT.NE.3) GO TO 738 DO 737 MM1 = 4, 10, 6 MM2 = MM1 + 2 DO 737 LLL = MM1, MM2 LL1 = NOES1M + LLL LL2 = LL1 + 3 ZTEMP = SQRT (Z(LL1)**2 + Z(LL2)**2) IF (ZTEMP.NE.0.0) GO TO 734 Z(LL2) = 0.0 GO TO 736 734 Z(LL2) = ATAN2 (Z(LL2), Z(LL1))*RADDEG IF (Z(LL2).LT.-0.00005E0) Z(LL2) = Z(LL2) + 360.0 736 Z(LL1) = ZTEMP 737 CONTINUE C 738 NOES1M = NOES1M + 15 C C C IF THIS IS THE FIRST ELEMENT ENTRY TO BE FOUND C AND OES1G IS TO BE FORMED, THE ID-RECORD IS SAVED FOR USE BY C CURV3 OVERLAY. C 740 IF( .NOT. FOES1G ) GO TO 790 IF( ANY ) GO TO 750 FILE = SCR3 LOC = 740 CALL OPEN(*9001,SCR3,IZ(IBUF4),WRTREW) CALL WRITE( SCR3, IDREC(1), 146, EOR ) CALL CLOSE( SCR3, CLSREW ) C FILE = SCR2 CALL OPEN(*9001,SCR2,IZ(IBUF4),WRTREW) DEVICE = MOD( BUF(1), 10 ) ANY = .TRUE. C C OUTPUT SPECIAL ESTXX (SCR2) ENTRY FOR USE BY CURV3. C 750 CALL WRITE( SCR2, MCSID, 1, NOEOR ) CALL WRITE( SCR2, Z(NOES1M-5), 6, NOEOR ) CALL WRITE( SCR2, VEC(1), 3, NOEOR ) CALL WRITE( SCR2, NPTS, 1, NOEOR ) CALL WRITE( SCR2, IZ(IESTX+2), NPTS4, NOEOR ) 790 CONTINUE GO TO 670 C***** C END OF ENTRY DATA POSSIBLE FOR THIS ELEMENT TYPE C****** C C SKIP ANY UNUSED DATA IN ESTX (SCR1) DATA RECORD FOR THIS ELEMENT TYPE C 900 FILE = SCR1 LOC = 900 CALL FWDREC(*9002,SCR1) GO TO 960 C C SKIP ANY UNUSED DATA IN OES1 DATA RECORD FOR THIS ELEMENT TYPE. C 950 FILE = OES1 LOC = 950 CALL FWDREC(*9002,OES1) C C IF ANY ENTRIES WERE FOUND AND COMPLETED AND PLACED IN CORE C THEY ARE SORTED ON -MCSID- AND OUTPUT. AS THEY ARE OUTPUT C THE INVARIANTS ARE COMPUTED. C 960 IF( NOES1M .LT. IOES1M ) GO TO 100 C C YES THERE ARE SOME ENTRIES C LOES1M = NOES1M - IOES1M + 1 CALL SORT( 0, 0, INCR, 2, IZ(IOES1M), LOES1M ) C C OUTPUT ID-RECORD, REDEFINE MAJOR-ID FOR OFP MODULE C C RE-DEFINITION MISSING FOR NOW. C IDREC(3) = IDREC(3) + 1000 CALL WRITE( OES1M, IDREC(1), 146, EOR ) MCB(1) = OES1M CALL WRTTRL( MCB(1) ) ANY1M = .TRUE. C C MOVE AXIS CODE AND COMPLETE INVARIANTS OF EACH ENTRY. C KMCSID = IZ(IOES1M+1) KOUNT = 0 C DO 970 I = IOES1M, NOES1M, INCR BUF(1) = IZ(I) BUF(2) = IZ(I+1) RBUF(3) = Z(I+3) IF (ICMPLX.EQ.1) GO TO 963 RBUF(4) = Z(I+4) RBUF(5) = Z(I+5) CALL CURVPS( RBUF(3), RBUF(6) ) IF( .NOT. STRAIN ) GO TO 961 RBUF(5) = 2.0 * RBUF(5) RBUF(9) = 2.0 * RBUF(9) 961 BUF(10) = IZ(I+2) RBUF(11) = Z(I+6) RBUF(12) = Z(I+7) RBUF(13) = Z(I+8) CALL CURVPS ( RBUF(11), RBUF(14) ) IF( .NOT. STRAIN ) GO TO 962 RBUF(13) = 2.0 * RBUF(13) RBUF(17) = 2.0 * RBUF(17) 962 CALL WRITE( OES1M, BUF(1), 17, NOEOR ) GO TO 964 963 RBUF( 4) = Z(I+ 6) RBUF( 5) = Z(I+ 4) RBUF( 6) = Z(I+ 7) RBUF( 7) = Z(I+ 5) RBUF( 8) = Z(I+ 8) BUF( 9) = IZ(I+2) RBUF(10) = Z(I+ 9) RBUF(11) = Z(I+12) RBUF(12) = Z(I+10) RBUF(13) = Z(I+13) RBUF(14) = Z(I+11) RBUF(15) = Z(I+14) CALL WRITE (OES1M, BUF(1), 15, NOEOR) C C KEEP COUNT OF ELEMENTS IN EACH MCSID GROUP C 964 IF( IZ(I+1) .NE. KMCSID ) GO TO 965 KOUNT = KOUNT + 1 IF( I+INCR-1 .LT. NOES1M ) GO TO 970 C C CHANGE IN -MCSID- OF OUTPUT ENTRIES OR LAST ENTRY. C ADD COUNT OF ELEMENTS OF CURRENT TYPE TO TOTAL COUNT C OF ELEMENTS OF THIS -MCSID-. C 965 LOC = 965 CALL BISLOC(*9000,KMCSID,IZ(IMCSID),2,MCSIDS,JP) IZ(IMCSID+JP) = IZ(IMCSID+JP) + KOUNT KOUNT = 1 KMCSID = IZ(I+1) 970 CONTINUE CALL WRITE( OES1M, 0, 0, EOR ) GO TO 100 C***** C ALL PROCESSING OF ONE SUBCASE COMPLETE FOR OES1M. C***** 5000 CALL CLOSE( OES1M, CLS ) RETURN C***** C ERROR CONDITION ENCOUNTERED C***** 9000 IMSG = -LOGERR GO TO 5000 9001 IMSG = -1 GO TO 5000 9002 IMSG = -2 GO TO 5000 9003 IMSG = -3 GO TO 5000 9008 IMSG = -8 LCORE = ICRQ GO TO 5000 END ================================================ FILE: mis/curv3.f ================================================ SUBROUTINE CURV3 C***** C THIS OVERLAY WILL FORM OES1G (IF REQUESTED BY DMAP PARAMETER = 0) C C OES1G OUTPUTS FOR CURRENT SUBCASE WILL BE GROUPED ON THE BASIS OF C THE MCSID. THUS THERE WILL BE A PASS FOR EACH -MCSID- HAVING A NON- C ZERO COUNT IN TABLE(IMCSID-NMCSID). C C TO CONSERVE CORE FOR SSPLIN UTILITY, THE SIGMAS FOR EACH -MCSID- PASS C WILL BE WRITTEN TO SCR4 AS ENTRIES ARE SELECTED FROM SCR2. DEPENDENT C POINTS, EXTERNAL-IDS, AND INDEPENDENT POINTS WILL BE PLACED IN CORE C AND THEN REDUCED DURING THE PROJECTION SURFACE DETERMINATION PHASE. C C OPEN CORE MAP DURING -CURV3- EXECUTION. C ======================================= C C FROM-------+------------+ C CURV1 I Z(IELTYP) I MASTER LIST OF ELEMENT TYPES ON C EXECUTION I THRU I ESTX(SCR1) C I Z(NELTYP) I C +------------+ C I Z(IMCSID) I MASTER LIST OF MCSIDS ELEMENTS IN C I THRU I PROBLEM REFERENCE, WITH COUNTS OF C I Z(NMCSID) I OES1M ELEMENTS FOR CURRENT SUBCASE. C +------------+ C I Z(ICSTM) I CSTM FOR EACH -MCSID- IN ABOVE LIST. C I THRU I 14 WORD ENTRIES. (USER MAY NOT HAVE C I Z(NCSTM) I SUPPLIED ALL, BUT MAY BE OK.) C FROM-------+------------+ C AND DURING I Z(IINDEP) I INDEPENDENT POINT COORDINATES FOR ONE C CURV3 I THRU I -MCSID- OF CURRENT SUBCASE. C EXECUTION I Z(NINDEP) I TWO OR THREE WORD ENTRIES POSSIBLE. C +------------+ C I Z(IDEP) I DEPENDENT POINT COORDINATES FOR ONE C I THRU I -MCSID- OF CURRENT SUBCASE. C I Z(NDEP) I TWO OR FOUR WORD ENTRIES POSSIBLE. C +------------+ C I Z(IGMAT) I G MATRIX FROM SSPLIN UTILITY C I THRU I (N-DEPENDENT-PTS BY N-INDEPENDENT-PTS) C I Z(NGMAT) I C +------------+ C I Z(ISIGMA) I OES1M SIGMAS FOR ONE -MCSID- OF CURRENT C I THRU I SUBCASE. 6X1 ENTRIES. C I Z(NSIGMA) I C +------------+ C I . I AVAILABLE CORE. C I . I (SSPLIN UTILITY USES Z(ISIGMA) THRU C I . I Z(LCORE) FOR WORKING SPACE.) C I . I C I Z(JCORE) I C +------------+ C I Z(IBUF4) I GINO-BUFFER C I I C +------------+ C I Z(IBUF3) I GINO-BUFFER C I I C +------------+ C I Z(IBUF2) I GINO-BUFFER C I I C +------------+ C I Z(IBUF1) I GINO-BUFFER C I I C I Z(LCORE) I C +------------+ C C INPUTS - SCR2 CONTAINING ACTUAL ELEMENT ENTRIES USED TO FORM C OES1M FOR CURRENT OES1 SUBCASE. MAY BE MORE THAN C ONE -MCSID-. HAS THE SIX SIGMAS OF EACH ELEMENT C APPENDED TO EACH ELEMENT. C C -ELEMENT-ENTRY- C C MCSID = MATERIAL COORDINATE SYSTEM ID C SIGMA1-X C SIGMA1-Y C SIGMA1-XY C SIGMA2-X C SIGMA2-Y C SIGMA2-XY C XC * C YC * MEAN CENTER OF INDEPENDENT POINT C ZC * C NPTS = NUMBER OF CONNECTED DEPENDENT GRIDS C EXTERNAL GRID IDS (1 FOR EACH POINT) C X,Y,Z COMPONENTS OF EACH DEPENDENT GRID C C SCR3 CONTAINING OFP TYPE -ID- RECORD TO USE AS A MODEL C FOR OES1G -ID- RECORD. C C C TABLE(IMCSID) THRU Z(NMCSID) CONTAINS PAIRS OF MCSID-S AND C COUNTS. (ONE PAIR FOR EACH UNIQUE MCSID OF CURRENT C SUBCASE.) C C C TABLE Z(ICSTM) TO Z(NCSTM) CONTAINING TRANSFORMATIONS C C***** REAL Z(1) ,RBUF(100) C INTEGER MCB(7) C INTEGER CSTMS ,SCR1 ,SCR2 ,SCR3 INTEGER SCR4 ,OES1M ,OES1G ,OES1 ,SCR5 INTEGER CSTM ,EST ,SIL ,GPL INTEGER ELTYPE ,SUBCAS ,FILE ,ESTWDS INTEGER EWORDS ,OWORDS ,DEPTS ,CSTYPE INTEGER DEVICE ,OLDID ,BUF ,SBUF INTEGER RD ,RDREW ,WRT ,WRTREW INTEGER CLS ,CLSREW ,EOR ,SYSBUF C LOGICAL ANY ,EOFOS1 ,FIRST ,ANYOUT LOGICAL FOES1G ,STRAIN ,ANY1M ,ANY1G C COMMON/BLANK / IP1 ,IP2 C COMMON/SYSTEM/ SYSBUF ,IOUTPT C COMMON/NAMES / RD ,RDREW ,WRT ,WRTREW 1 ,CLSREW ,CLS C COMMON/ZZZZZZ/ IZ(1) C COMMON/CURVC1/ LSBUF ,SBUF(10) C COMMON/CURVC2/ LBUF ,BUF(100) C COMMON/CURVC3/ VEC(3) ,VMAX(3) ,VMIN(3) ,IDREC(146) C COMMON/CURVTB/ IMID ,NMID ,LMID ,NMIDS A ,IELTYP ,NELTYP ,JELTYP ,ICSTM B ,NCSTM ,CSTMS ,LCSTM ,IESTX C ,NESTX ,IMCSID ,NMCSID ,LMCSID D ,MCSIDS ,JMCSID ,KMCSID ,ISIL E ,NSIL ,LSIL ,JSIL ,IOES1M F ,NOES1M ,LOES1M ,IDEP ,NDEP G ,IINDEP ,NINDEP ,JINDEP ,ISIGMA H ,NSIGMA ,IGMAT ,NGMAT ,IEXT I ,NEXT ,LEXT ,SCR1 ,SCR2 J ,SCR3 ,SCR4 ,OES1M ,OES1G K ,OES1 ,MPT ,CSTM ,EST L ,SIL ,GPL ,JCORE ,LCORE M ,IBUF1 ,IBUF2 ,IBUF3 ,IBUF4 N ,I ,J ,K ,L O ,K1 ,K2 ,IXYZ1 ,IXYZ2 P ,LX1 ,LX2 ,ELTYPE ,MCSID Q ,IDSCR1 ,IDOES1 ,NPTS ,NPTS4 R ,IWORDS ,NWORDS ,SUBCAS ,KOUNT S ,ISIG1 ,ISIG2 ,LOC ,FILE COMMON/CURVTB/ IMSG ,NELEMS ,IMATID ,ICOMP 1 ,ESTWDS ,EWORDS ,JP ,OWORDS 2 ,MATID ,DEPTS ,INDPTS ,ICTYPE 3 ,IVMAT ,ITRAN ,CSTYPE ,ISING 4 ,DEVICE ,OLDID ,ANY ,EOFOS1 5 ,FIRST ,ANYOUT ,FOES1G ,STRAIN 6 ,LOGERR ,ANY1M ,ANY1G ,SCR5 C EQUIVALENCE (Z(1),IZ(1)), (BUF(1),RBUF(1)) EQUIVALENCE (NOEOR,RDREW), (EOR,CLS) C DATA MCB/ 7*1 / C C BRING OES1G -ID- RECORD INTO CORE AND MODIFY AS NECESSARY. C FILE = SCR3 LOC = 50 CALL OPEN(*9001,SCR3,IZ(IBUF1),RDREW) CALL READ(*9002,*9003,SCR3,IDREC(1),146,NOEOR,NWORDS) CALL CLOSE( SCR3, CLSREW ) C C C C C OVERALL LOOP IS ON ENTRIES OF TABLE(IMCSID-NMCSID) C JMCSID = IMCSID C 100 MCSID = IZ(JMCSID) INDPTS = IZ(JMCSID+1) LOC = 100 IF( INDPTS ) 9000,980,110 C C COLLECT DATA REQUIRED FROM SCR2. C 110 FILE = SCR2 C C CORE ALLOCATION FOR XC, YC, ZC OF EACH INDEPENDENT POINT. C IINDEP = NCSTM + 1 NINDEP = NCSTM + 3*INDPTS C C CORE ALLOCATION FOR EXT-ID,X,Y,Z OF EACH UNIQUE DEPENDENT POINT. C (THE QUANTITY OF DEPENDENT POINTS IS NOT YET KNOWN.) C IDEP = NINDEP + 1 NDEP = NINDEP LOC = 110 ICRQ = NDEP - JCORE IF( NDEP .GT. JCORE ) GO TO 9008 C CALL OPEN(*9001,SCR2,IZ(IBUF1),RDREW) FILE = SCR3 CALL OPEN(*9001,SCR3,IZ(IBUF2),WRTREW) C JINDEP = IINDEP FILE = SCR2 C C FIND -INDPTS- NUMBER OF INDEPENDENT ELEMENT POINTS ENTRIES C FOR CURRENT -MCSID- PASS. (LOGIC ERROR IF CAN NOT FIND THIS MANY) C DO 400 I = 1,INDPTS C C READ ELEMENT INDEPENDENT PORTION OF ENTRY C 150 LOC = 150 CALL READ(*9002,*9003,SCR2,BUF(1),11,NOEOR,NWORDS) NPTS = BUF(11) NPTS4 = 4*NPTS C C CHECK MCSID OF ENTRY TO BE SAME AS ONE OF THIS PASS. C IF( BUF(1) .EQ. MCSID ) GO TO 170 C C NO IT IS NOT THUS SKIP BALANCE OF ENTRY. C LOC = 170 CALL READ(*9002,*9003,SCR2,0,-NPTS4,NOEOR,NWORDS) GO TO 150 C C YES, THIS ENTRY IS OF CURRENT PASS MCSID. ADD POINT DATA TO CORE. C FIRST OUTPUT SIGMAS TO SCR3 C 170 CALL WRITE( SCR3, BUF(2), 6, NOEOR ) Z(JINDEP ) = RBUF(8) Z(JINDEP+1) = RBUF(9) Z(JINDEP+2) = RBUF(10) JINDEP = JINDEP + 3 C C INDEPENDENT POINTS NOT YET IN CORE ARE ADDED. C CALL READ(*9002,*9003,SCR2,BUF(1),NPTS4,NOEOR,NWORDS) K = NPTS DO 300 J = 1,NPTS C C CHECK IF EXTERNAL ID IS IN TABLE YET. C IF( NDEP .LT. IDEP ) GO TO 220 DO 200 L = IDEP,NDEP,4 IF( BUF(J) .EQ. IZ(L) ) GO TO 290 200 CONTINUE C C NOT YET IN THUS ADD IT TO TABLE C 220 ICRQ = NDEP + 4 - JCORE IF( NDEP+4 .GT. JCORE ) GO TO 9008 IZ(NDEP+1) = BUF(J) Z(NDEP+2) = RBUF(K+1) Z(NDEP+3) = RBUF(K+2) Z(NDEP+4) = RBUF(K+3) NDEP = NDEP + 4 C 290 K = K + 3 C 300 CONTINUE C 400 CONTINUE C***** C ALL DATA FOR CURRENT MCSID HAS BEEN COLLECTED FROM SCR2. C***** CALL CLOSE( SCR2, CLSREW ) CALL CLOSE( SCR3, CLSREW ) C C DEPENDENT COORDINATES ARE SORTED ON EXTERNAL-ID. C CALL SORT( 0, 0, 4, 1, Z(IDEP), NDEP-IDEP+1 ) C***** C CONVERSION OF INDEPENDENT AND DEPENDENT POINTS TO LOCAL C MATERIAL COORDINATE SYSTEM. FIRST GET CSTM DATA TO USE. C***** LOC = 400 CALL BISLOC(*9000,MCSID,IZ(ICSTM),14,CSTMS,JP) IVMAT = ICSTM + JP + 1 ITRAN = IVMAT + 3 ICTYPE = IZ(IVMAT-1) C C FOR EACH POINT C T C (R )=( T ) ( R - V ) C LOCAL BASIC MCSID C C (3X1) (3X3) (3X1) (3X1) C DO 480 I = IINDEP,NINDEP,3 VEC(1) = Z(I ) - Z(IVMAT ) VEC(2) = Z(I+1) - Z(IVMAT+1) VEC(3) = Z(I+2) - Z(IVMAT+2) CALL GMMATS( Z(ITRAN),3,3,1, VEC(1),3,1,0, Z(I) ) 480 CONTINUE C DO 490 I = IDEP,NDEP,4 VEC(1) = Z(I+1) - Z(IVMAT ) VEC(2) = Z(I+2) - Z(IVMAT+1) VEC(3) = Z(I+3) - Z(IVMAT+2) CALL GMMATS( Z(ITRAN),3,3,1, VEC(1),3,1,0, Z(I+1) ) 490 CONTINUE C***** C CONVERSION OF INDEPENDENT POINT LOCAL COORDINATES TO MAPPING C COORDINATES. (IF MCSID IS A RECTANGULAR SYSTEM THEN NO CHANGE.) C***** LOC = 490 IF( ICTYPE.LT.1 .OR. ICTYPE.GT.3 ) GO TO 9000 GO TO ( 589,510,530 ),ICTYPE C C CYLINDRICAL COORDINATES C 510 AVGL = 0.0 DO 520 I = IINDEP,NINDEP,3 VEC(1) = SQRT( Z(I)**2 + Z(I+1)**2 ) AVGL = AVGL + VEC(1) IF( VEC(1) .LE. 0.0 ) GO TO 515 Z(I+1) = ATAN2( Z(I+1), Z(I) ) GO TO 517 515 Z(I+1) = 0.0 517 Z(I) = VEC(1) 520 CONTINUE AVGL = AVGL / FLOAT(INDPTS) GO TO 589 C C SPHERICAL COORDINATES C 530 AVGL = 0.0 DO 580 I = IINDEP,NINDEP,3 XSQYSQ = Z(I)**2 + Z(I+1)**2 FL = SQRT( XSQYSQ ) VEC(1) = SQRT( XSQYSQ + Z(I+2)**2 ) AVGL = AVGL + VEC(1) IF( VEC(1) .GT. 0.0 ) GO TO 540 VEC(2) = 0.0 GO TO 550 540 VEC(2) = ATAN2( FL, Z(I+2) ) 550 IF( FL .GT. 0.0 ) GO TO 560 VEC(3) = 0.0 GO TO 570 560 VEC(3) = ATAN2( Z(I+1), Z(I) ) 570 Z(I ) = VEC(1) Z(I+1) = VEC(2) Z(I+2) = VEC(3) 580 CONTINUE AVGL = AVGL / FLOAT(INDPTS) C***** C CONVERSION OF DEPENDENT POINT LOCAL COORDINATES TO MAPPING C COORDINATES. C (IF MCSID IS RECTANGULAR SYSTEM THEN NO CHANGE.) C***** 589 GO TO(609,590,600), ICTYPE C C CYLINDRICAL COORDINATES C 590 DO 594 I = IDEP,NDEP,4 VEC(1) = SQRT( Z(I+1)**2 + Z(I+2)**2 ) IF( VEC(1) .LE. 0.0 ) GO TO 592 Z(I+2) = ATAN2( Z(I+2), Z(I+1) ) GO TO 593 592 Z(I+2) = 0.0 593 Z(I+1) = VEC(1) 594 CONTINUE GO TO 609 C C SPHERICAL COORDINATES C 600 DO 607 I = IDEP,NDEP,4 XSQYSQ = Z(I+1)**2 + Z(I+2)**2 FL = SQRT( XSQYSQ ) VEC(1) = SQRT( XSQYSQ + Z(I+3)**2 ) IF( VEC(1) .GT. 0.0 ) GO TO 602 VEC(2) = 0.0 GO TO 604 602 VEC(2) = ATAN2( FL, Z(I+3) ) 604 IF( FL .GT. 0.0 ) GO TO 605 VEC(3) = 0.0 GO TO 606 605 VEC(3) = ATAN2( Z(I+2), Z(I+1) ) 606 Z(I+1) = VEC(1) Z(I+2) = VEC(2) Z(I+3) = VEC(3) 607 CONTINUE C C SET MAXIMUM AND MIMIMUM X,Y,Z VALUES. C 609 DO 610 I = 1,3 VMAX(I) = Z(IINDEP+I-1) VMIN(I) = Z(IINDEP+I-1) 610 CONTINUE C DO 650 I = IINDEP,NINDEP,3 DO 640 J = 1,3 VMAX(J) = AMAX1( Z(I+J-1), VMAX(J) ) VMIN(J) = AMIN1( Z(I+J-1), VMIN(J) ) 640 CONTINUE 650 CONTINUE C C SET THE X,Y,Z RANGES C DO 670 I = 1,3 VMAX(I) = VMAX(I) - VMIN(I) VEC(I) = VMAX(I) 670 CONTINUE C IF( ICTYPE .EQ. 1 ) GO TO 680 VMAX(2) = AVGL * VMAX(2) IF( ICTYPE .EQ. 2 ) GO TO 680 VMAX(3) = AVGL * VMAX(3) C C DIRECTION YIELDING MINIMUM RANGE DETERMINES PROJECTION C 680 IF( VMAX(1) .LT. VMAX(2) ) GO TO 700 IF( VMAX(2) .LT. VMAX(3) ) GO TO 690 685 K1 = 1 K2 = 2 KCTYPE = 3 GO TO 710 690 K1 = 1 K2 = 3 KCTYPE = 2 GO TO 710 700 IF( VMAX(3) .LT. VMAX(1) ) GO TO 685 K1 = 2 K2 = 3 KCTYPE = 1 C 710 XRANGE = VEC(K1) YRANGE = VEC(K2) IF( XRANGE ) 712,711,712 711 XRANGE = 1.0 712 IF( YRANGE ) 714,713,714 713 YRANGE = 1.0 C C COORDINATES -K1- AND -K2- WILL BE KEPT. C C TABLE OF INDEPENDENT AND DEPENDENT POINTS ARE REDUCED TO C TABLES OF X,Y PAIRS. FIRST TO GAIN SOME CORE, EXTERNAL C IDS- ARE WRITTEN TO SCR4. C 714 FILE = SCR4 LOC = 714 CALL OPEN(*9001,SCR4,IZ(IBUF1),WRTREW) DO 720 I = IDEP,NDEP,4 CALL WRITE( SCR4, IZ(I), 1, NOEOR ) 720 CONTINUE CALL CLOSE( SCR4, CLSREW ) C C REDUCE INDEPENDENT POINTS TO XY PAIRS, SCALE BY X AND Y RANGES C RESPECTIVELY, AND COMPRESS IN CORE. C J = IINDEP DO 740 I = IINDEP,NINDEP,3 Z(J ) = Z(I+K1-1) / XRANGE Z(J+1) = Z(I+K2-1) / YRANGE J = J + 2 740 CONTINUE NINDEP = J - 1 C C REDUCE DEPENDENT POINTS LIST. (J IS STILL GOOD) C DO 770 I=IDEP,NDEP,4 Z(J ) = Z(I+K1) / XRANGE Z(J+1) = Z(I+K2) / YRANGE J = J + 2 770 CONTINUE IDEP = NINDEP + 1 NDEP = J - 1 DEPTS = (NDEP - IDEP + 1) / 2 C***** C INDEPENDENT AND DEPENDENT POINT COORDINATE LISTS ARE NOW C COMPLETE. CALL FOR INTERPOLATION. C***** CALL CURVIT( Z(IINDEP), INDPTS, Z(IDEP), DEPTS, SCR5, 1 Z(NDEP+1), IZ(NDEP+1), LCORE-NDEP-1, IP2, 15.0, MCSID, 2 XRANGE, YRANGE ) C C BRING -OES1M- SIGMAS INTO CORE FOR CURRENT -MCSID- PASS. C ISIGMA = IINDEP + 1 NSIGMA = IINDEP + 6*INDPTS JSIGMA = ISIGMA - 7 ICRQ = NSIGMA - IBUF3 IF( NSIGMA .GE. IBUF3 ) GO TO 9008 FILE = SCR3 LOC = 800 CALL OPEN(*9001,SCR3,IZ(IBUF1),RDREW) CALL READ(*9002,*810,SCR3,IZ(ISIGMA),IBUF3-ISIGMA,NOEOR,NWORDS) LOC = 810 GO TO 9000 C 810 IF( NWORDS .NE. 6*INDPTS ) GO TO 9000 CALL CLOSE( SCR3, CLSREW ) C C (SIGMAS ) = (G)(SIGMAS ) C DEPENDENT POINTS OES1M INDEPENDENT POINTS C C SINCE THE ORDER OF THE ROWS IN THE G MATRIX ARE IN SORTED EXTERNAL C GRID ORDER EACH OUTPUT LINE OF OES1G WILL BE HANDLED ON ITS C OWN. THIS ELIMINATES NECESSITY OF HOLDING ANOTHER SIGMA ARRAY C IN CORE. C FILE = OES1G LOC = 815 CALL OPEN(*9001,OES1G,IZ(IBUF1),WRT) C C OUTPUT ID RECORD. PREVIOUSLY PREPARED. C IDREC(3) = IDREC(3) + 2000 CALL WRITE( OES1G, IDREC(1), 146, EOR ) MCB(1) = OES1G CALL WRTTRL( MCB(1) ) ANY1G = .TRUE. C C OPEN SCR5 CONTAINING ROWS OF THE G-MATRIX. C FILE = SCR5 CALL OPEN(*9001,SCR5,IZ(IBUF3),RDREW) CALL FWDREC(*9002,SCR5) C C OPEN SCR4 CONTAINING LIST OF EXTERNAL IDS ) C FILE = SCR4 CALL OPEN(*9001,SCR4,IZ(IBUF2),RDREW) C C COMPUTE AND OUTPUT SIGMAS FOR THE DEPENDENT POINTS C BUF(2) = MCSID DO 900 I=1,DEPTS C C READ THE EXTERNAL ID C FILE = SCR4 CALL READ(*9002,*9003,SCR4,BUF(1),1,NOEOR,NWORDS) FILE = SCR5 C C INITIALIZE SIGMAS(DEPENDENT POINT) TO ZERO C DO 820 J = 3,8 RBUF(J) = 0.0 820 CONTINUE C K = 0 LOC = 825 C C READ ACTIVE INDEX AND G-VALUE FROM SCRATCH 5 C 825 CALL READ(*9002,*840,SCR5,RBUF(11),2,NOEOR,NWORDS) K = K + 10 IDX = JSIGMA + 6*BUF(11) DO 830 J = 1,6 RBUF(J+2) = RBUF(J+2) + RBUF(12)*Z(IDX+J) 830 CONTINUE GO TO 825 C C IF THERE WERE ANY G-VALUES THEN NOW COMPLETE THE OUTPUT LINE. C 840 IF( K .LE. 0 ) GO TO 900 C BUF(10) = K + KCTYPE C RBUF(11) = RBUF(6) RBUF(12) = RBUF(7) RBUF(13) = RBUF(8) C C COMPUTE INVARIANTS FOR EACH LINE C CALL CURVPS( RBUF( 3), RBUF( 6) ) CALL CURVPS( RBUF(11), RBUF(14) ) IF( .NOT. STRAIN ) GO TO 881 RBUF(5) = 2.0 * RBUF(5) RBUF(9) = 2.0 * RBUF(9) RBUF(13) = 2.0 * RBUF(13) RBUF(17) = 2.0 * RBUF(17) C C APPEND DEVICE CODE TO EXTERNAL ID AND OUTPUT LINE C 881 BUF(1) = 10*BUF(1) + DEVICE CALL WRITE( OES1G, BUF(1), 17, NOEOR ) 900 CONTINUE C CALL WRITE( OES1G, 0, 0, EOR ) IF(EOFOS1 .AND. JMCSID+2 .GT. NMCSID) CALL CLOSE(OES1G,CLSREW) CALL CLOSE( OES1G, CLS ) CALL CLOSE( SCR4, CLSREW ) CALL CLOSE( SCR5, CLSREW ) C***** C ALL INDEPENDENT POINTS OUTPUT TO OES1G FOR 1 ACTIVE MCSID OF C CURRENT SUBCASE. GO TO NEXT MCSID. C***** 980 JMCSID = JMCSID + 2 IF( JMCSID .LE. NMCSID ) GO TO 100 C***** C ALL THROUGH FORMING OES1G FOR CURRENT SUBCASE. C***** 5000 RETURN C***** C ERROR CONDITION ENCOUNTERED C***** 9000 IMSG = -LOGERR GO TO 5000 9001 IMSG = -1 GO TO 5000 9002 IMSG = -2 GO TO 5000 9003 IMSG = -3 GO TO 5000 9008 IMSG = -8 LCORE = ICRQ GO TO 5000 END ================================================ FILE: mis/curvit.f ================================================ SUBROUTINE CURVIT (INDEP,NI,DEP,ND,IFILE,Z,IZ,LZ,MCLOSE,TOLER, 1 MCSID,XSCALE,YSCALE) C C PERFORMS LOCAL INTERPOLATION C C INDEP = X,Y COORDINATES OF INDEPENDENT ELEMENT CENTERS (2 X NI) C DEP = X,Y COORDINATES OF DEPENDENT GRID POINTS (2 X ND) C IFILE = FILE TO WRITE SPECIAL FORM ROWS OF G-MATRIX C Z = REAL AREA OF CORE, LENGTH = LZ. C IZ = EQUIVALENT INTEGER AREA OF CORE, LENGTH = LZ. C MCLOSE = NUMBER OF CLOSEST INDEPENDENT POINTS TO USE C TOLER = PERCENT OF DISTANCE FROM A DEPENDENT POINT TO C INDEPENDENT POINT NUMBER -NCLOSE- POINTS FURTHER OUT ARE C ALLOWED TO BE SUCH AS TO BE INCLUDED IN A LOCAL C INTERPOLATION. C INTEGER SYSBUF, IZ(1), SUBR(2), ITEMP(2), RD, RDREW, WRT, 1 WRTREW, CLSREW, CLS, EOR REAL Z(1), DEP(2,1), INDEP(2,1) CHARACTER UFM*23, UWM*25 COMMON /XMSSG / UFM, UWM COMMON /SYSTEM/ SYSBUF, IOUTPT COMMON /NAMES / RD, RDREW, WRT, WRTREW, CLSREW, CLS DATA SUBR / 4HCURV ,4HIT /, EOR, NOEOR / 1, 0 / C NCLOSE = MIN0(MCLOSE,NI) IF (NCLOSE .LE. 2) NCLOSE = NI C C COMPUTE TOLERANCE MULTIPLIER WITH RESPECT TO SQUARES. C TOLERANCE IS IN PERCENT OF DISTANCE TO POINT NUMBER -NCLOSE- IN C FINAL LIST C TOL = (1.0 + TOLER/100.0)**2 C C THUS IF DISTANCE FROM THE DEPENDENT POINT TO INDEPENDENT POINT C NUMBER -NCLOSE- = LSQ, ADDITIONAL INDEPENDENT POINTS WILL BE C INCLUDED IF THE SQUARE OF THEIR DISTANCE TO THE DEPENDENT POINT C IS .LE. TOL TIMES LSQ. C C C ALLOCATE BUFFER FOR -IFILE- AND OPEN -IFILE-. C IBUF = LZ - SYSBUF JZ = IBUF - 1 ICRQ = -JZ IF (JZ .LE. 0) GO TO 900 CALL GOPEN (IFILE,IZ(IBUF),1) C C EACH ROW OF G-MATRIX WILL BE WRITTEN AS A LOGICAL RECORD C WITH PAIRS OF C 1- INDEPENDENT POINT INDEX C 2- G VALUE C C C SHORT CUT WILL BE TAKEN IF ALL INDEPENDENT POINTS ARE TO BE USED C FOR INTERPOLATION AT EACH DEPENDENT POINT. C IF (NCLOSE .EQ. NI) GO TO 550 C C MASTER LOOP ON DEPENDENT POINTS. EACH DEPENDENT POINT RESULTS IN C A VARIABLE LENGTH ROW OF G-MATRIX DEPENDING ON HOW MANY C INDEPENDENT POINTS ARE SELECTED FOR USE. (AT LEAST 3 MUST BE USED) C 80 DO 500 I = 1,ND C C LIST OF DISTANCE SQUARES OF ALL INDEPENDENT POINTS TO C CURRENT DEPENDENT POINT IS FORMED. C C SELECTION OF THE -NCLOSE- SMALLEST VALUES IS THEN MADE. C C THEN ANY OTHER INDEPENDENT POINTS WITHIN TOLERANCE RANGE OF C POINT NUMBER -NCLOSE- IN LIST ARE ADDED. C FMAX = 0.0 X = DEP(1,I) Y = DEP(2,I) ICRQ = NI - JZ IF (NI .GT. JZ) GO TO 900 DO 100 J = 1,NI Z(J) = (XSCALE*(INDEP(1,J)-X))**2 + (YSCALE*(INDEP(2,J)-Y))**2 IF (Z(J) .LE. FMAX) GO TO 100 FMAX = Z(J) 100 CONTINUE FMAX = 2.0*FMAX + 1.0 C C ALLOCATE FOR LIST OF INDEXES TO THE MINIMUMS. C ILIST = NI + 1 NLIST = NI C C FIND -NCLOSE- SMALLEST VALUES. C DO 170 J = 1,NCLOSE FMIN = FMAX C DO 160 K = 1,NI IF (FMIN-Z(K)) 160,160,150 150 FMIN = Z(K) IDX = K 160 CONTINUE C C ADD INDEX TO THIS MINIMUM TO THE LIST C ICRQ = NLIST + 1 - JZ IF (ICRQ .GT. 0) GO TO 900 IZ(NLIST+1) = IDX NLIST = NLIST + 1 C C RESET THIS VALUE SO IT CAN NOT BE USED AGAIN C Z(IDX) = FMAX 170 CONTINUE C C ADD ANY ADDITIONAL INDEPENDENT POINTS WITHIN TOLERANCE RANGE OF C LAST ONE SELECTED ABOVE. C FMAX = TOL*FMIN DO 190 J = 1,NI IF (Z(J) .GT. FMAX) GO TO 190 ICRQ = NLIST + 1 - JZ IF (ICRQ .GT. 0) GO TO 900 IZ(NLIST+1) = J NLIST = NLIST + 1 190 CONTINUE C C LIST IS COMPLETE THUS MOVE IT TO THE BEGINNING OF THE CORE BLOCK. C J = 0 DO 210 K = ILIST,NLIST J = J + 1 IZ(J) = IZ(K) 210 CONTINUE ILIST = 1 NLIST = J IPTS = J C C HERE AND IZ(ILIST) TO IZ(NLIST) CONTAINS LIST OF C POSITION INDEXES OF INDEPENDENT POINT COORDINATES TO BE USED. C C NOW SET UP LIST OF XY-CCORDINATES OF THESE INDEPENDENT POINTS C FOR THE SSPLIN CALL. C IXY = NLIST + 1 NXY = NLIST + 2*IPTS ICRQ = NXY - JZ IF (NXY .GT. JZ) GO TO 900 JXY = NLIST DO 270 J = ILIST,NLIST K = IZ(J) Z(JXY+1) = INDEP(1,K) Z(JXY+2) = INDEP(2,K) JXY = JXY + 2 270 CONTINUE C C NOW READY FOR SSPLIN ROUTINE CALL. C CALL SSPLIN (IPTS,Z(IXY),1,DEP(1,I),0,0,0,1,0,Z(JXY+1),JZ-JXY, 1 ISING) IF (ISING .NE. 2) GO TO 300 C C ILL-CONDITION FOR THIS DEPENDENT POINT - NO SOLUTION POSSIBLE. C CALL PAGE2 (4) WRITE (IOUTPT,250) UWM,I,MCSID 250 FORMAT (A25,' 2252. (CURVIT-1) LOCAL INTERPOLATION USING INDE', 1 'PENDENT VALUES WITHIN RANGE OF THE', /5X,I7,'-TH SORTED ', 2 'ORDER GRID ID INVOLVED WITH RESPECT TO MATERIAL COORDIN', 3 'ATE SYSTEM ID',I9, /5X,'CAN NOT BE COMPLETED. ILL-CONDI', 4 'TION MAY HAVE RESULTED FROM ALIGNMENT OF INDEPENDENT ', 5 'VALUE COORDINATES.', /5X, 6 'OUTPUT FOR THE GRID ID IN QUESTION WILL NOT APPEAR.') IPTS = 0 GO TO 340 C C REPLACE INDEPENDENT POINT XY PAIRS WITH SPECIAL FORM DEPENDENT C POINT G-MATRIX OUTPUT ROW. C 300 K1 = ILIST K2 = JXY + 1 DO 320 J = IXY,NXY,2 IZ(J ) = IZ(K1) Z(J+1) = Z(K2) K1 = K1 + 1 K2 = K2 + 1 320 CONTINUE C 340 CALL WRITE (IFILE,IZ(IXY),2*IPTS,EOR) C C GO PROCESS NEXT DEPENDENT POINT. C 500 CONTINUE GO TO 800 C C CHECK FOR SUFFICIENT CORE FOR SHORT CUT. C 550 N = NI + 3 N = N**2 + 3*N + NI*ND + N*ND IF (N .GT. JZ) GO TO 80 C C CALL SSPLIN AND GET G-MATRIX STORED BY ROWS. C CALL SSPLIN (NI,INDEP(1,1),ND,DEP(1,1),0,0,0,1,0,Z(1),JZ,ISING) IF (ISING .NE. 2) GO TO 650 N = 0 WRITE (IOUTPT,250) UWM,N,MCSID C C OUTPUT NULL ROW FOR EACH DEPENDENT POINT. C DO 600 I = 1,ND CALL WRITE (IFILE,0,0,EOR) 600 CONTINUE GO TO 800 C C OUTPUT ROWS OF G-MATRIX WITH INDEXES. C 650 K = 0 DO 680 I = 1,ND DO 670 J = 1,NI K = K + 1 ITEMP(1) = J ITEMP(2) = IZ(K) CALL WRITE (IFILE,ITEMP(1),2,NOEOR) 670 CONTINUE CALL WRITE (IFILE,0,0,EOR) 680 CONTINUE C C ALL G-MATRIX ROWS COMPLETE. (ROWS SINGULAR ARE EMPTY LOGICAL C RECORDS IN -IFILE- ) C 800 CALL CLOSE (IFILE,CLSREW) RETURN C 900 CALL MESAGE (-8,ICRQ,SUBR) RETURN END ================================================ FILE: mis/curvps.f ================================================ SUBROUTINE CURVPS (SIGS, PRIN) C***** C COMPUTES PRINCIPAL STRESSES OR STRAINS AND ANGLE OF MAXIMUM. C***** REAL SIGS(3), PRIN(4) C TEMP = SIGS(1) - SIGS(2) PRIN(4) = SQRT( (TEMP/2.0)**2 + SIGS(3)**2 ) DELTA = ( SIGS(1) + SIGS(2) ) / 2.0 PRIN(2) = DELTA + PRIN(4) PRIN(3) = DELTA - PRIN(4) DELTA = 2.0 * SIGS(3) IF( ABS(DELTA).LT.1.0E-15 .AND. ABS(TEMP).LT.1.0E-15 ) GO TO 100 PRIN(1) = ATAN2( DELTA, TEMP )*28.6478898E0 RETURN C 100 PRIN(1) = 0.0 RETURN END ================================================ FILE: mis/cxloop.f ================================================ SUBROUTINE CXLOOP (X,Y,N) DOUBLE PRECISION X(1), Y(1) DOUBLE PRECISION XX(2) , YY(2), MPY(2) NN = N + N DO 10 I = 1,NN 10 X(I) = Y(I) RETURN ENTRY CLOOP( XX, YY, MPY, M) MM = M+M DO 20 I = 1,MM,2 XX(I) = XX(I) - MPY(1)*YY(I) + MPY(2) * YY(I+1) 20 XX(I+1) = XX(I+1) -MPY(2)*YY(I) -MPY(1)*YY(I+1) RETURN END ================================================ FILE: mis/cxtrny.f ================================================ SUBROUTINE CX TRN Y (X,Y,ALPHA) C******* C CX TRN Y FORMS THE DOT PRODUCT X TRANSPOSE * Y = ALPHA WHERE C X AND Y ARE COMPLEX C******* COMMON /CINVPX/ AAA ,NCOL DOUBLE PRECISION X(1) ,Y(1) ,ALPHA(2) NCOL2 = NCOL+NCOL ALPHA(1) = 0.D0 ALPHA(2) = 0.D0 DO 10 I = 1,NCOL2,2 ALPHA(1) = ALPHA(1)+X(I)*Y(I)-X(I+1)*Y(I+1) 10 ALPHA(2) = ALPHA(2)+X(I)*Y(I+1)+X(I+1)*Y(I) RETURN END ================================================ FILE: mis/cyct1.f ================================================ SUBROUTINE CYCT1 C C GENERATE CYCLIC TRANSFORMATION MATRIX, TRANSFORM VECTORS C C DMAP CALLING SEQUENCE C C CYCT1 VIN/VOUT,GCYC/V,Y,CTYPE/V,Y,CDIR/V,Y,N/V,Y,KMAX/ C V,Y,NLOAD/V,N,NOGO $ C LOGICAL LBACK, LCOS, LDRL, LDSA, LNMULT, LVIN, LVOUT INTEGER BUF, CDIR, CTYPE, GCYC, HBACK, HDRL, HDSA, HROT, 1 IZ, MCB(7), PKIN, PKINCR, PKIROW, PKNROW, PKOUT, 2 PRECIS, SCRT, SUBR(2), SYSBUF, VIN, VOUT, OUTPT REAL RZ(1) DOUBLE PRECISION DC, DC1, DFAC, DFAK, DS, DS1, DZ(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ KSYSTM(65) COMMON /PACKX / PKIN,PKOUT,PKIROW,PKNROW,PKINCR COMMON /ZZZZZZ/ IZ(1) COMMON /BLANK / CTYPE(2),CDIR(2),NN,KMAXI,NLOAD,NOGO EQUIVALENCE (KSYSTM( 1),SYSBUF), (KSYSTM( 2) ,OUTPT), 1 (KSYSTM(55),IPREC ), (IZ(1),RZ(1),DZ(1)) DATA SUBR / 4HCYCT, 4H1 /, HBACK / 4HBACK / DATA VIN / 101 /, VOUT,GCYC /201,202/, SCRT /301/ DATA HROT , HDRL , HDSA /4HROT ,4HDRL ,4HDSA / C C C FIND NECESSARY PARAMETERS C NOGO = 1 PRECIS = 2 IF (IPREC .NE. 2) PRECIS = 1 LDRL = CTYPE(1).EQ.HDRL LDSA = CTYPE(1).EQ.HDSA IF (.NOT.((CTYPE(1).EQ.HROT) .OR. LDRL.OR.LDSA)) GO TO 310 10 LBACK = CDIR(1).EQ.HBACK C C CURRENT DOCUMENTED USAGE DOES NOT USE NEGATIVE VALUES OF KMAXI C OTHER THAN THE DEFAULT OF -1 10/02/73 C LOGIC IS INCLUDED IN THE ROUTINE TO USE NEGATIVE KMAXI BUT IS NOT C FULLY CHECKED OUT. THE FOLLOWING STATEMENT NEGATES ALL THIS LOGIC C IF (KMAXI .LT. 0) KMAXI = NN/2 KMAX = KMAXI KMIN = 0 IF (KMAX .GE. 0) GO TO 20 KMAX =-KMAX KMIN = KMAX 20 IF (2*KMAX.GT.NN .OR. NN.LE.0) GO TO 330 30 IF (NLOAD .LE. 0) GO TO 350 40 NLOADS = NLOAD IF (LDSA) NLOADS = 2*NLOAD NLOADT = NLOAD IF (LDRL .OR. LDSA) NLOADT = 2*NLOAD NUMROW = NN IF (.NOT.LBACK) GO TO 50 NUMROW = 2*(KMAX-KMIN+1) IF (KMIN .EQ. 0) NUMROW = NUMROW - 1 IF (2*KMAX .EQ. NN) NUMROW = NUMROW - 1 50 NUMROW = NLOADT*NUMROW C C DEFINE OPEN CORE POINTERS AND GINO BUFFER C POINTERS BEGIN END C TABLE OF COS (2.0*PI*N/NN) ICOS NCOS C TABLE OF SIN (2.0*PI*N/NN) ISIN NSIN C AREA TO ASSEMBLE COLUMNS ICOL NCOL C (NOTE N = LITTLE N, NN = CAPITAL N) N = 0,(NN-1) C (ALLOW FOR (NLOADS-1) ZEROS BEFORE FIRST ENTRY IN COL) C BUF = KORSZ(IZ) - SYSBUF + 1 ICOS = 1 NCOS = ICOS + NN - 1 ISIN = NCOS + 1 NSIN = ISIN + NN - 1 ICOL = NSIN + 1 JCOL = ICOL + NLOADS - 1 NCOL = JCOL + NUMROW - 1 IF (2*NCOL .GE. BUF) CALL MESAGE (-8,0,SUBR) C C CHECK DATA BLOCK TRAILERS C MCB(1) = GCYC CALL RDTRL (MCB(1)) IF (MCB(1) .LE. 0) GO TO 370 60 MCB(1) = VOUT CALL RDTRL (MCB(1)) LVOUT = MCB(1).GT.0 MCB(1) = VIN CALL RDTRL (MCB(1)) LVIN = MCB(1).GT.0 IF (.NOT.LVIN) MCB(2) = 0 LNMULT = MCB(2).NE.NUMROW IF (LVIN .AND. LVOUT .AND. LNMULT) GO TO 390 IF (NOGO) 410,410,70 C C THE PARAMETERS ARE OK C PREPARE TRIGONOMETRIC TABLES, DC1=COS(2*PI/NN), PI = 4*ATAN(1) C MOVABLE POINTERS JXXX=N , KXXX= NN-N C 70 RN = FLOAT(NN) DFAC = (8.0D0*DATAN(1.0D0))/DBLE(RN) DC1 = DCOS(DFAC) DS1 = DSIN(DFAC) JCOS = ICOS KCOS = NCOS + 1 JSIN = ISIN KSIN = NSIN + 1 DZ(JCOS) = 1.0D0 DZ(JSIN) = 0.0D0 80 IF (KCOS-JCOS-2) 120,90,100 90 DC =-1.0D0 DS = 0.0D0 GO TO 110 100 DC = DC1*DZ(JCOS) - DS1*DZ(JSIN) DS = DS1*DZ(JCOS) + DC1*DZ(JSIN) 110 JCOS = JCOS + 1 JSIN = JSIN + 1 KCOS = KCOS - 1 KSIN = KSIN - 1 DZ(JCOS) = DC DZ(JSIN) = DS DZ(KCOS) = DC DZ(KSIN) =-DS GO TO 80 C C ZERO THE AREA FOR FORMING THE COLUMN C 120 DO 130 J = ICOL,NCOL DZ(J) = 0.0D0 130 CONTINUE C C OPEN GCYC MATRIX, GET READY TO USE PACK C CALL GOPEN (GCYC,IZ(BUF),1) CALL MAKMCB (MCB,GCYC,NUMROW,2,PRECIS) PKIN = 2 PKOUT = PRECIS PKIROW = 1 PKNROW = NUMROW PKINCR = 1 IF (LBACK) GO TO 240 C C START LOOPING ON COLUMNS OF MATRIX OF TYPE FORE. C FORM A COLUMN AND PACK IT OUT C K = KMIN,KMAX ALTERNATE COSINE AND SINE COLUMNS C DFAC = 2.0D0/DBLE(RN) IF (LDRL) DFAC = 0.5D0*DFAC K = KMIN 140 DFAK = DFAC IF (K.EQ.0 .OR. 2*K.EQ.NN) DFAK = 0.5D0*DFAK LCOS = .TRUE. KTRIG = ICOS NTRIG = NCOS GO TO 160 150 LCOS = .FALSE. KTRIG = ISIN NTRIG = NSIN 160 DO 170 KCOL = JCOL,NCOL,NLOADT DZ(KCOL) = DFAK*DZ(KTRIG) KTRIG = KTRIG + K IF (KTRIG .GT. NTRIG) KTRIG = KTRIG - NN 170 CONTINUE C C PACK OUT NLOADT COLUMNS (FOR EITHER FORE OR BACK) C IF ROT OR DSA WE ARE READY C IF DRL PRODUCE INTERMEDIATE TERMS FIRST (EXPAND) C 180 NXCOL = 1 IF (.NOT.LDRL) GO TO 220 DO 190 KCOL = JCOL,NCOL,NLOADT KCOL2 = KCOL + NLOADS DZ(KCOL2) = DZ(KCOL) 190 CONTINUE GO TO 220 200 NXCOL = 2 DO 210 KCOL = JCOL,NCOL,NLOADT KCOL2 = KCOL + NLOADS DZ(KCOL2) = -DZ(KCOL) 210 CONTINUE 220 KCOL = JCOL 230 CALL PACK (DZ(KCOL),GCYC,MCB) KCOL = KCOL - 1 IF (KCOL .GE. ICOL) GO TO 230 IF (LDRL .AND. NXCOL.EQ.1) GO TO 200 IF (LBACK) GO TO 280 C C BOTTOM OF LOOP FOR TYPE FORE C IF (K.NE.0 .AND. 2*K.NE.NN .AND. LCOS) GO TO 150 K = K + 1 IF (K-KMAX) 140,140,290 C C START LOOPING ON COLUMNS OF MATRIX OF TYPE BACK C N = 1,NN C 240 N = 1 250 K = 0 KCOS = ICOS KCOL = JCOL 260 IF (K .LT. KMIN) GO TO 270 DZ(KCOL) = DZ(KCOS) KCOL = KCOL + NLOADT IF (K.EQ.0 .OR. 2*K.EQ.NN) GO TO 270 DZ(KCOL) = DZ(KCOS+NN) KCOL = KCOL + NLOADT 270 KCOS = KCOS + N - 1 IF (KCOS .GT. NCOS) KCOS = KCOS - NN K = K + 1 IF (K-KMAX) 260,260,180 C C BOTTOM OF LOOP FOR TYPE BACK C 280 N = N + 1 IF (N-NN) 250,250,290 C C THE GCYC MATRIX IS NOW COMPLETE C 290 CALL CLOSE (GCYC,1) CALL WRTTRL (MCB(1)) C C IF WE HAVE TO FORM VOUT, USE SSG2B. (VOUT = VIN*GCYC) C IF (LNMULT) GO TO 300 CALL SSG2B (VIN,GCYC,0,VOUT,0,PRECIS,1,SCRT) 300 CONTINUE RETURN C C FATAL MESSAGES C 310 NOGO = -1 WRITE (OUTPT,320) UFM,CTYPE(1) 320 FORMAT (A23,' 4063, ILLEGAL VALUE (',A4,') FOR PARAMETER CTYPE.') GO TO 10 330 NOGO = -1 WRITE (OUTPT,340) UFM,NN,KMAXI 340 FORMAT (A23,' 4064, ILLEGAL VALUES (',I8,1H,,I8, 1 ') FOR PARAMETERS (NSEGS,KMAX).') GO TO 30 350 NOGO = -1 WRITE (OUTPT,360) UFM,NLOAD 360 FORMAT (A23,' 4065, ILLEGAL VALUE (',I8,') FOR PARAMETER NLOAD.') GO TO 40 370 NOGO = -1 WRITE (OUTPT,380) UFM 380 FORMAT (A23,' 4066, SECOND OUTPUT DATA BLOCK MUST NOT BE PURGED.') GO TO 60 390 NOGO = -1 WRITE (OUTPT,400) UFM,MCB(2),NUMROW 400 FORMAT (A23,' 4067, VIN HAS',I9,' COLS, GCYC HAS',I9,6H ROWS.) 410 CALL MESAGE (-61,0,SUBR) RETURN END ================================================ FILE: mis/cyct2.f ================================================ SUBROUTINE CYCT2 C C CYCT2 TRANSFORMS CYCLIC PROBLEMS BETWEEN SOLUTION VARIABLES AND C THE CYCLIC COMPONENTS C C INPUT DATA BLOCKS - CYCD CYCLIC COMPONENT CONSTRAINT DATA C INPUT DATA BLOCKS - KAA MATRIX - STIFFNESS MAY BE PURGED C INPUT DATA BLOCKS - MAA MATRIX - MASS MAY BE PURGED C INPUT DATA BLOCKS - V1I MATRIX - LOAD OR DISP MAY BE PURGED C INPUT DATA BLOCKS - V2I MATRIX - EIGENVECTORS MAY BE PURGED C INPUT DATA BLOCKS - LAMX TABLE - EIGENVALUES MUST EXIS IF V2I C C OUTPUT DATA BLOCKS- KXX,MXX,V1O,V2O,LAMA C C PARAMETERS - CDIR INPUT, BCD, (FORE OR BACK) C PARAMETERS - NSEG INPUT, INTEGER,NUMBER OF SEGS C PARAMETERS - KSEG INPUT, INTEGER,CYCLIC INDEX C PARAMETERS - CYCSEQ INPUT, INTEGER,ALTERNATE=-1 C PARAMETERS - NLOAD INPUT, INTEGER,NUMBER OF LOAD COND C PARAMETERS - NOGO OUTPUT, INTEGER,-1 = ERROR C C SCRATCH FILES (6) C C DEFINITION OF VARIABLES C LUA LENGT OF A SET C ITYP TYPE (0=ROT, 1=DIH) C IDIR DIRECTION (0=FORE, 1=BACK) C IFLAG 1 IMPLIES KSEG = 0 OR 2*KSEG = NSEG C IPASS 1 IMPLIES SECOND PASS TRROUGH CYCD C IGC 1 IMPLIES FIRST MATRIX TYPE (GC FOR ROT) C ICS 1 IMPLIES FIRST COLUMN TYPE (COSINE FOR ROT) C C INTEGER CYCD,KAA,V1I,V2I,LAMX,V1O,V2O,CDIR(2),CYCSEQ, 1 SYSBUF,FILE,NAME(2),SCR1,SCR2,SCR3,MCB(14),FORE, 2 IZ(1),MCB1(7),MCB2(7),SCR4,SCR5,SCR6 DOUBLE PRECISION DZ,ARG,PI,COS,SIN,CONSTD COMMON /UNPAKX/ ITC,IIK,JJK,INCR1 COMMON /ZBLPKX/ DZ(2),III COMMON /PACKX / ITA,ITB,II,JJ,INCR COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ KSYSTM(65) COMMON /CONDAD/ CONSTD(5) COMMON /BLANK / CDIR,NSEG,KSEG,CYCSEQ,NLOAD,NOGO EQUIVALENCE (KSYSTM(1),SYSBUF),(KSYSTM(55),IPREC), 1 (CONSTD(1),PI ),(KSEG,KINDEX), 2 (Z(1),IZ(1)),(MCB(1),MCB1(1)),(MCB(8),MCB2(1)) DATA CYCD,KAA,MAA,V1I,V2I,LAMX,KXX,MXX,V1O,V2O,LAMA/ 1 101 ,102,103,104,105,106 ,201,202,203,204,205 / DATA SCR1,SCR2,SCR3,SCR4,SCR5,SCR6 / 1 301 ,302 ,303 ,304 ,305 ,306 / DATA NAME,FORE /4HCYCT,4H2 ,4HFORE/ C C CIBMNB 6/93 CYCD = 101 KAA = 102 MAA = 103 V1I = 104 V2I = 105 LAMX = 106 KXX = 201 MXX = 202 V1O = 203 V2O = 204 LAMA = 205 SCR1 = 301 SCR2 = 302 SCR3 = 303 SCR4 = 304 SCR5 = 305 SCR6 = 306 CIBMNE NZ = KORSZ(IZ) NOGO = 1 V1I = 104 V1O = 203 SCR3 = 303 MCB(1)= CYCD CALL RDTRL (MCB) LUA = MCB(3) ITYP = MCB(2) - 1 IDIR = 1 IF (CDIR(1) .EQ. FORE) IDIR = 0 NX = NZ IBUF1 = NZ - SYSBUF + 1 IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF NZ = IBUF3 - 1 IF (2*KSEG.GT.NSEG .OR. KSEG.LT.0 .OR. NSEG.LE.0) GO TO 640 J = 2 IF (MCB(5) .EQ. 4) J = 4 IF (NZ .LT. J*LUA) CALL MESAGE (-8,0,NAME) C C PRODUCE GC AND GS MATRICES (ON SCR1 AND SCR2) C ARG = FLOAT(KSEG)/FLOAT(NSEG) ARG = ARG*PI IF (ITYP .EQ. 0) ARG = 2.0D0*ARG C C BRING IN CYCD C CALL GOPEN (CYCD,IZ(IBUF1),0) CALL FREAD (CYCD,IZ(1),LUA,1) CALL CLOSE (CYCD,1) CALL GOPEN (SCR1,IZ(IBUF1),1) C C COMPUTE COS AND SIN C IF (ITYP .EQ. 0) GO TO 30 IF (KSEG .EQ. 0) GO TO 10 IF (2*KSEG .EQ. NSEG) GO TO 20 GO TO 50 10 COS = 1.0 SIN = 0.0 GO TO 60 20 COS = 0.0 SIN = 1.0 GO TO 60 30 IF (KSEG .EQ. 0) GO TO 10 IF (2*KSEG .EQ. NSEG) GO TO 40 GO TO 50 40 COS = -1.0 SIN = 0.0 GO TO 60 50 CONTINUE COS = DCOS(ARG) SIN = DSIN(ARG) 60 CONTINUE IFLAG = 0 IF (KSEG.EQ.0 .OR. 2*KSEG.EQ.NSEG) IFLAG = 1 IF (ITYP.NE.0 .OR. IFLAG.EQ.0) CALL GOPEN (SCR2,IZ(IBUF2),1) ITA = 2 ITB = 1 INCR= 1 II = 1 JJ = LUA CALL MAKMCB (MCB1,SCR1,LUA,2,IPREC) CALL MAKMCB (MCB2,SCR2,LUA,2,IPREC) CALL WRTTRL (MCB1) CALL WRTTRL (MCB2) IPASS = 0 IF (ITYP .NE. 0) GO TO 200 C C BUILD ROTATIONAL MATRICES C 70 L = 1 80 IF (IZ(L) .LT. 0) GO TO 190 MM = IZ(L) IP = 1 C C FIRST BUILD GC C IGC = 1 FILE = SCR1 C C FIRST DO COSINE C ICS = 1 IF (IPASS .NE. 0) ICS = 0 C C BUILD COLUMN C 90 CONTINUE CALL BLDPK (2,IPREC,FILE,0,0) IF (MM) 190,100,110 C C INTERIOR POINT C 100 CONTINUE IF ((ICS.EQ.0 .AND. IGC.EQ.1) .OR. (ICS.EQ.1 .AND. IGC.EQ.0)) 1 GO TO 170 III = L DZ(1) = 1.0 CALL ZBLPKI GO TO 170 C C SIDE 1 POINTS C 110 IF (ICS .NE. 0) GO TO 140 C C SINE COLUMN C IF (IGC .NE. 0) GO TO 160 C C MATRIX IS GS C 120 IF (L .GT. MM) GO TO 130 DZ(1) = 1.0 III = L CALL ZBLPKI DZ(1) = COS III = MM CALL ZBLPKI GO TO 170 130 III = MM DZ(1) = COS CALL ZBLPKI III = L DZ(1) = 1.0 CALL ZBLPKI GO TO 170 C C COSINE COLUMN C 140 IF (IGC .NE. 0) GO TO 150 C C MATRIX IS GS C III = MM DZ(1) =-SIN CALL ZBLPKI GO TO 170 C C MATRIX IS GC C 150 GO TO 120 C C MATRIX IS GC C 160 III = MM DZ(1) = SIN CALL ZBLPKI GO TO 170 170 CONTINUE CALL BLDPKN (FILE,0,MCB(IP)) IF (CYCSEQ .EQ. 1) GO TO 180 C C NOW DO SINE COLUMN C IF (ICS .EQ. 0) GO TO 180 IF (IFLAG .EQ. 1) GO TO 190 ICS = 0 GO TO 90 C C NOW DO GS C 180 IF (IFLAG.EQ.1 .OR. IP.EQ.8) GO TO 190 IP = 8 IGC = 0 ICS = 1 FILE = SCR2 GO TO 90 C C CONSIDER NEXT CYCD VALUE C 190 L = L + 1 IF (L .LE. LUA) GO TO 80 C C GONE THRU CYCD ONCE. DONE IF CYCSEQ = -1 C IF (CYCSEQ .EQ. -1) GO TO 400 C C MUST NOW DO SINE COLUMNS UNLESS IFLAG = 1 C IF (IPASS .EQ. 1) GO TO 400 IF (IFLAG .EQ. 1) GO TO 400 IPASS = 1 GO TO 70 C C BUILD DIHEDRAL MATRICES C 200 IPASS = 0 210 L = 1 220 IP = 1 IGC = 1 FILE = SCR1 C C FIRST DO S COLUMN C ICS = 1 IF (IPASS .NE. 0) ICS = 0 MM = IZ(L) IF (MM.GT.0 .AND. IPASS.EQ.1) GO TO 390 230 CONTINUE CALL BLDPK (2,IPREC,FILE,0,0) IF (MM .GT. 0) GO TO 280 C C INTERIOR POINT C IF (ICS .NE. 0) GO TO 260 C C A COLUMN C IF (IGC .NE. 0) GO TO 250 C C MATRIX IS GA - COLUMN IS A C 240 DZ(1) = 1.0 III = L CALL ZBLPKI GO TO 370 C C MATRIX IS GS - COLUMN IS A C 250 GO TO 370 C C SCOLUMN C 260 IF (IGC .NE. 0) GO TO 270 C C MATRIX IS GA - S COLUMN C GO TO 370 C C MATRIX IS GS - COLUMN IS S C 270 GO TO 240 C C SIDE POINT C 280 IF (IGC .EQ. 0) GO TO 350 C C MATRIX IS GS C GO TO (290,320,330,370), MM 290 III = L 300 DZ(1) = COS 310 CALL ZBLPKI GO TO 370 320 III = L DZ(1) =-SIN GO TO 310 330 III = L 340 DZ(1) = 1.0 GO TO 310 C C MATRIX IS GA C 350 III = L GO TO (360,300,370,340), MM 360 DZ(1) = SIN GO TO 310 370 CONTINUE CALL BLDPKN (FILE,0,MCB(IP)) IF (CYCSEQ.EQ.1 .OR. MM.GT.0) GO TO 380 C C NOW DO A COLUMN C IF (ICS .EQ. 0) GO TO 380 ICS = 0 GO TO 230 C C NOW DO GA C 380 IF (IP .EQ. 8) GO TO 390 IP = 8 IGC = 0 FILE= SCR2 ICS = 1 GO TO 230 C C CONSIDER NEXT CYCD VALUE C 390 L = L + 1 IF (L .LE. LUA) GO TO 220 C C GONE THRU CYCD ONCE - DONE IF CYCSEQ = -1 C IF (CYCSEQ .EQ. -1) GO TO 400 C C NOW DO A COLUMNS C IF (IPASS .EQ. 1) GO TO 400 IPASS = 1 GO TO 210 C C CLOSE UP SHOP C 400 CALL CLOSE (SCR1,1) CALL CLOSE (SCR2,1) CALL WRTTRL (MCB1) IF (IFLAG.EQ.0 .OR. ITYP.NE.0) CALL WRTTRL (MCB2) ITC = 1 IIK = 1 JJK = LUA INCR1 = 1 IF (IDIR .NE. 0) GO TO 490 C C FORWARD TRANSFORMATIONS C C C TRANSFORM MATRICES C CALL CYCT2A (KAA,KXX,SCR1,SCR2,SCR3,SCR4,SCR5) CALL CYCT2A (MAA,MXX,SCR1,SCR2,SCR3,SCR4,SCR5) C MCB1(1) = KAA MCB2(1) = MAA CALL RDTRL (MCB1(1)) CALL RDTRL (MCB2(1)) IF (MCB1(5).GT.2 .OR. MCB2(5).GT.2) GO TO 405 IF (MCB1(4).NE.6 .AND. MCB2(4).NE.6) GO TO 405 MCB1(1) = KXX MCB2(1) = MXX CALL RDTRL (MCB1(1)) CALL RDTRL (MCB2(1)) MCB1(4) = 6 MCB2(4) = 6 IF (MCB1(1) .GT. 0) CALL WRTTRL (MCB1(1)) IF (MCB2(1) .GT. 0) CALL WRTTRL (MCB2(1)) C C TRANSFORM LOADS C 405 MCB(1) = V1I CALL RDTRL (MCB(1)) IF (MCB(1) .LE. 0) GO TO 460 ITC = MCB(5) IF (ITC.EQ.4 .AND. NZ.LT.4*LUA) CALL MESAGE (-8,0,NAME) CALL GOPEN (V1I,IZ(IBUF1),0) CALL GOPEN (SCR3 ,IZ(IBUF2),1) CALL GOPEN (SCR4,IZ(IBUF3),1) C C COMPUTE NUMBER OF RECORDS TO SKIP C CALL MAKMCB (MCB1,SCR3,LUA,2,MCB(5)) CALL MAKMCB (MCB2,SCR4,LUA,2,MCB(5)) IF (KSEG .EQ. 0) GO TO 420 NSKIP = NLOAD*KSEG*(ITYP+1)*2 - NLOAD*(ITYP+1) FILE = V1I DO 410 I = 1,NSKIP CALL FWDREC (*620,V1I) 410 CONTINUE 420 CONTINUE CALL CYCT2B (V1I,SCR3,NLOAD,IZ,MCB1) IF (ITYP .EQ. 0) GO TO 430 IF (IFLAG .NE. 0) GO TO 430 C C COPY - PCA C DO 421 J = 1,NLOAD CALL FWDREC (*620,V1I) 421 CONTINUE CALL CYCT2B (V1I,SCR3,NLOAD,IZ,MCB1) C C NOW COPY ONTO PS C 430 IF (ITYP.EQ.0 .AND. IFLAG.NE.0) GO TO 440 CALL CYCT2B (V1I,SCR4,NLOAD,IZ,MCB2) IF (IFLAG .NE. 0) GO TO 440 IF (ITYP .EQ. 0) GO TO 440 CALL REWIND (V1I) CALL FWDREC (*620,V1I) NLPS = NSKIP + NLOAD DO 431 J = 1,NLPS CALL FWDREC (*620,V1I) 431 CONTINUE ITC = -MCB(5) CALL CYCT2B (V1I,SCR4,NLOAD,IZ,MCB2) ITC = MCB(5) C C DONE WITH COPY C 440 CALL CLOSE (V1I,1) CALL CLOSE (SCR3,1) CALL CLOSE (SCR4,1) CALL WRTTRL (MCB1) CALL WRTTRL (MCB2) IF (IFLAG.NE.0 .AND. ITYP.EQ.0) GO TO 450 CALL SSG2B (SCR1,SCR3 ,0,SCR5,1,IPREC,1,V1O) CALL SSG2B (SCR2,SCR4,SCR5,V1O,1,IPREC,1,SCR3) GO TO 460 C C NO GS C 450 CALL SSG2B (SCR1,SCR3,0,V1O,1,IPREC,1,SCR5) C C TRANSFORM EIGENVECTORS FORWARD C 460 IF (V1O .EQ. V2O) RETURN MCB(1) = V2I CALL RDTRL (MCB) IF (MCB(1) .LE. 0) RETURN ITC = MCB(5) IF (ITC.EQ.4 .AND. NZ.LT.4*LUA) CALL MESAGE (-8,0,NAME) IF (MOD(MCB(2),2).NE. 2) CALL MESAGE (-7,0,NAME) IF (IFLAG.NE.1 .OR. ITYP.NE.0) GO TO 470 C C IN = OUT C V1O = V2O SCR3 = V1I GO TO 450 470 CALL GOPEN (V2I,IZ(IBUF1),0) CALL GOPEN (SCR3,IZ(IBUF2),1) CALL GOPEN (SCR4,IZ(IBUF3),1) NCOPY = MCB(2) CALL MAKMCB (MCB1,SCR3,LUA,2,MCB(5)) CALL MAKMCB (MCB2,SCR4,LUA,2,MCB(5)) DO 480 I = 1,NCOPY FILE = SCR3 IP = 1 IF (MOD(I,2) .EQ. 0) IP = 8 IF (MOD(I,2) .EQ. 0) FILE = SCR4 CALL CYCT2B (V2I,FILE,1,IZ,MCB(IP)) 480 CONTINUE V1O = V2O V1I = V2I GO TO 440 C C DIRECTION IS BACK C 490 CONTINUE MCB(1) = V1I CALL RDTRL (MCB) IF (MCB(1) .LE. 0) GO TO 560 IKS = MCB(3) ITC = MCB(5) IF (ITC.EQ.4 .AND. NZ.LT.4*LUA) CALL MESAGE (-8,0,NAME) C C POSITION V1O C MCB(1) = V1O IF (KINDEX .EQ. 0) GO TO 495 CALL RDTRL (MCB) IF (MCB(2) .GT. 0) GO TO 500 495 CONTINUE CALL GOPEN (V1O,IZ(IBUF1),1) CALL CLOSE (V1O,2) CALL MAKMCB (MCB,V1O,LUA,2,MCB(5)) CALL WRTTRL (MCB) GO TO 510 500 CONTINUE CALL GOPEN (V1O,IZ(IBUF1),0) CALL SKPFIL (V1O,+1) CALL SKPFIL (V1O,-1) CALL CLOSE (V1O,2) 510 CONTINUE IF (ITYP .EQ. 0) GO TO 550 C C DISTRIBUTE UX1 AND UX2 FOR MULTIPLYS C IF (IFLAG .EQ. 1) GO TO 550 CALL MAKMCB (MCB1,SCR3,IKS,2,MCB(5)) CALL MAKMCB (MCB2,SCR4,IKS,2,MCB(5)) CALL GOPEN (V1I,IZ(IBUF1),0) CALL GOPEN (SCR3,IZ(IBUF2),1) CALL GOPEN (SCR4,IZ(IBUF3),1) CALL CYCT2B (V1I,SCR3,NLOAD,IZ(1),MCB1) CALL CYCT2B (V1I,SCR4,NLOAD,IZ(1),MCB2) CALL CLOSE (SCR3,1) CALL WRTTRL (MCB1) CALL CLOSE (SCR4,1) CALL WRTTRL (MCB2) CALL CLOSE (V1I,1) C C COMPUTE UCS C 520 CALL SSG2B (SCR1,SCR3,0,SCR5,0,IPREC,1,SCR6) CALL GOPEN (V1O,IZ(IBUF1),3) CALL GOPEN (SCR5,IZ(IBUF2),0) MCB(1) = V1O CALL RDTRL (MCB(1)) CALL CYCT2B (SCR5,V1O,NLOAD,IZ(1),MCB) IF (ITYP.EQ.0 .AND. IFLAG.NE.0) GO TO 540 CALL CLOSE (V1O,2) CALL CLOSE (SCR5,1) IF (ITYP.EQ.0 .OR. IFLAG.NE.0) GO TO 530 C C COMPUTE UCA C CALL SSG2B (SCR2,SCR4,0,SCR5,0,IPREC, 0,SCR6) CALL GOPEN (V1O,IZ(IBUF1),3) CALL GOPEN (SCR5,IZ(IBUF2),0) CALL CYCT2B (SCR5,V1O,NLOAD,IZ(1),MCB) CALL CLOSE (V1O,2) CALL CLOSE (SCR5,1) C C COMPUTE USS C CALL SSG2B (SCR1,SCR4,0,SCR5,0,IPREC,1,SCR6) CALL GOPEN (V1O,IZ(IBUF1),3) CALL GOPEN (SCR5,IZ(IBUF2),0) CALL CYCT2B (SCR5,V1O,NLOAD,IZ(1),MCB) CALL CLOSE (SCR5,1) CALL CLOSE (V1O,2) C C COMPUTE USA C 530 CONTINUE CALL SSG2B (SCR2,SCR3,0,SCR5,0,IPREC,1,SCR6) CALL GOPEN (V1O,IZ(IBUF1),3) CALL GOPEN (SCR5,IZ(IBUF2),0) CALL CYCT2B (SCR5,V1O,NLOAD,IZ(1),MCB) 540 CONTINUE CALL CLOSE (SCR5,1) CALL CLOSE (V1O,1) CALL WRTTRL (MCB) GO TO 560 C C DO ROTATIONAL OR SPECIAL CASE DIH C 550 SCR3 = V1I GO TO 520 C C SEE IF DONE C 560 MCB(1) = V2I CALL RDTRL (MCB) IF (MCB(1) .LE. 0) RETURN SCR3 = 303 ITC = MCB(5) IF (ITC.EQ.4 .AND. NZ.LT.4*LUA) CALL MESAGE (-8,0,NAME) C C NOW DO EIGENVECTORS C C C COMPUTE NEW VECTORS C CALL SSG2B (SCR1,V2I,0,SCR3,0,IPREC,1,SCR5) IF (ITYP.EQ.0 .AND. IFLAG.EQ.1) GO TO 570 CALL SSG2B (SCR2,V2I,0,SCR4,0,IPREC,1,SCR5) 570 CONTINUE C C POSITION FILES C C C SET LAMA FLAG C MCB(1) = LAMX CALL RDTRL (MCB) ILAMA = 0 IF (MCB(1) .LE. 0) ILAMA = 1 CALL GOPEN (V2O,IZ(IBUF1),1) IF (ILAMA .NE. 0) GO TO 571 CALL GOPEN (LAMA,IZ(IBUF2),1) FILE = LAMX CALL GOPEN (LAMX,IZ(IBUF3),0) CALL READ (*620,*630,LAMX,IZ(1),146,1,IFLAG) CALL WRITE (LAMA,IZ(1),146,1) 571 CONTINUE MCB(1) = V2I CALL RDTRL (MCB) NLOAD = MCB(2) CALL MAKMCB (MCB,V2O,LUA,2,MCB(5)) IBUF4 = IBUF3 - SYSBUF CALL GOPEN (SCR3,IZ(IBUF4),0) IF (ITYP.EQ.0 .AND. IFLAG.EQ.1) GO TO 580 IBUF5 = IBUF4 - SYSBUF CALL GOPEN (SCR4,IZ(IBUF5),0) 580 DO 590 I = 1,NLOAD CALL CYCT2B (SCR3,V2O,1,IZ(1),MCB) IF (ILAMA .NE. 0) GO TO 572 CALL READ (*620,*630,LAMX,IZ(1),7,0,IFLAG) CALL WRITE (LAMA,IZ(1),7,0) 572 CONTINUE IF (ITYP.EQ.0 .AND. IFLAG.EQ.1) GO TO 590 IF (ILAMA .EQ. 0) CALL WRITE (LAMA,IZ(1),7,0) CALL CYCT2B (SCR4,V2O,1,IZ(1),MCB) 590 CONTINUE CALL WRTTRL (MCB) CALL CLOSE (V2O,1) CALL CLOSE (SCR3,1) CALL CLOSE (SCR4,1) IF (ILAMA .NE. 0) GO TO 573 CALL CLOSE (LAMA,1) CALL CLOSE (LAMX,1) MCB(1) = LAMA CALL WRTTRL (MCB) 573 CONTINUE C C DONE C RETURN C C ERROR MESSAGES C C 600 IP1 = -1 610 CALL MESAGE (IP1,FILE,NAME) GO TO 640 620 IP1 = -2 GO TO 610 630 IP1 = -3 GO TO 610 640 CALL MESAGE (7,0,NAME) NOGO = -1 RETURN END ================================================ FILE: mis/cyct2a.f ================================================ SUBROUTINE CYCT2A (KAA,KXX,G1,G2,SCR1,SCR2,SCR3) INTEGER G1,G2,SCR1,SCR2,MCB(7),SCR3 COMMON /SYSTEM/IDUM(54),IPREC C MCB(1)=KAA CALL RDTRL(MCB) IF(MCB(1).LE.0)GO TO 30 MCB(1)=KXX CALL RDTRL(MCB) IF(MCB(1).LE.0)GO TO 30 ISC2=SCR2 MCB(1)=G1 CALL RDTRL (MCB) IF (MCB(2).LE.0)ISC2=0 MCB(1)=G2 CALL RDTRL(MCB) IF(MCB(2).LE.0)GO TO 10 ISC=SCR2 IOUT=1 ISC1=KXX GO TO 20 10 ISC=KXX ISC1=SCR2 IOUT=0 C C NO FIRST TERM IF ISC2=0, NO SECOND TERM IF IOUT=0 C 20 IF (ISC2 .EQ. 0) GO TO 25 C C COMPUTE FIRST TERM C CALL SSG2B(KAA,G1,0,SCR1,0,IPREC,1,SCR2) CALL SSG2B(G1,SCR1,0,ISC,1,IPREC,1,ISC1) C C COMPUTE SECOND TERM C C COMPUTE SECOND TERM C 25 IF(IOUT .EQ. 0) GO TO 29 CALL SSG2B(KAA,G2,0,SCR1,0,IPREC,1,KXX) CALL SSG2B(G2,SCR1,ISC2,KXX,1,IPREC,1,SCR3) 29 MCB(1) = KXX 30 RETURN END ================================================ FILE: mis/cyct2b.f ================================================ SUBROUTINE CYCT2B (INPUT,OUTPT,NCOL,IZ,MCB) C C THE PURPOSE OF THIS SUBROUTINE IS TO COPY NCOL COLUMNS FROM C INPUT TO OUTPUT USING CORE AT IZ -- MCB IS THE TRAILER C INTEGER OUTPT,IZ(4),MCB(7) COMMON /UNPAKX/ ITC,IIK,JJK,INCR1 COMMON /PACKX / ITA,ITB,II,JJ,INCR EQUIVALENCE (ZERO,IZERO) DATA ZERO / 0.0 / C C ITA = IABS(ITC) ITB = ITA INCR= INCR1 DO 30 I = 1,NCOL IIK = 0 CALL UNPACK (*20,INPUT,IZ) II = IIK JJ = JJK 10 CALL PACK (IZ,OUTPT,MCB) GO TO 30 C C NULL COLUMN C 20 II = 1 JJ = 1 IZ(1) = IZERO IZ(2) = IZERO IZ(3) = IZERO IZ(4) = IZERO GO TO 10 30 CONTINUE C RETURN END ================================================ FILE: mis/dadd.f ================================================ SUBROUTINE DADD C C DMAP DRIVER FOR ADD-- C C ADD A,B/C/V,N,ALPHA/V,N,BETA/V,N,DALPHA/V,N,DBETA/V,N,ECHO $ C C MATRIX C = ALPHA*MATRIX A + BETA*MATRIX B C C MATRIX C IS COMPLEX IF ANY ONE OF THE MATRIX A, MATRIX B, SCALE C ALPHA, OR SCLAE BETA IS COMPLEX C LOGICAL DBLEA ,DBLEB INTEGER FN(2) ,ECHO ,AA(2) ,BB(2) DOUBLE PRECISION DALPHA ,DBETA ,DALP(2) ,DBTA(2) , 1 ZERO ,ONE ,XX CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /SYSTEM/ IBUF ,NOUT COMMON /BLANK / ALPHA(2) ,BETA(2) ,DALPHA(2) ,DBETA(2) , 1 ECHO COMMON /SADDX / NOMAT ,LCORE ,IA(7) ,ITA , 1 ALP(4) ,IB(7) ,ITB ,BTA(4) , 2 CDE(3,12),IC(7) COMMON /ZZZZZZ/ CORE(1) EQUIVALENCE (ALP(1),DALP(1)) ,(BTA(1),DBTA(1)) DATA IN1,IN2,IOUT1,ZERO /101,102,201, 0.0D+0 / DATA ONE,XX ,X / 1.0D+0, 1.0D+37, 1.0E+37 / C C C SCALE FACTORS ALPHA, DALPHA, BETA AND DBETA WERE INITIALLY SET TO C (1.1+37, 1.1+37) BY XMPLDD C C IN THIS ROUTINE - C IF ALPHA, DALPHA, BETA AND DBETA ARE NOT SPECIFIED BY USER, THEY C WILL BE SET TO - C ALPHA AND DALPHA TO (1.0, 0.0), AND C BETA AND DBETA TO (1.0, 0.0), SAME DEFAULTS AS 88 AND EARLIER C NASTRAN VERSIONS. C NOTE - DEFAULTS WERE ALL ZEROS IN 89 NASTRAN VERSION C C NOTE - THIS ROUTINE WILL CALL SADD TO DO THE ACTUAL MATRIX MULTI- C PLICATION, WHICH WILL AUTOMATICALLY ADJUST THE SCALE FACTORS C WHETHER THEY ARE S.P. OR D.P. (E.G. S.P. ALPHA AND BETA CAN BE C USED FOR D.P. A AND B MATRICES, AND VISE VERSA) C CALL FNAME (IOUT1,FN(1)) LCORE = KORSZ(CORE) DO 10 I = 1,7 IA(I) = 0 IB(I) = 0 IC(I) = 0 10 CONTINUE IA(1) = IN1 IB(1) = IN2 CALL RDTRL (IA) CALL RDTRL (IB) IF (IA(1) .LT. 0) IA(1) = 0 IF (IB(1) .LT. 0) IB(1) = 0 IF (IA(1)+IB(1) .EQ. 0) GO TO 100 C C SET DEFAULT VALUES FOR THE SCALE FACTORS C C WHEN AN ITEM IS .LT. X OR XX, THAT ITEM HAS INPUT FROM USER C DBLEA = .TRUE. DBLEB = .TRUE. IF (ALPHA(1).LT.X .OR. ALPHA(2).LT.X .OR. DALPHA(1).LT.XX .OR. 1 DALPHA(2).LT.XX) GO TO 20 ALP(1) = 1.0 ALP(2) = 0.0 ALPHA(1) = 1.0 ALPHA(2) = 0.0 DBLEA = .FALSE. 20 IF (BETA(1).LT.X .OR. BETA(2).LT.X .OR. DBETA(1).LT.XX .OR. 1 DBETA(2).LT.XX) GO TO 25 BTA(1) = 1.0 BTA(2) = 0.0 BETA(1) = 1.0 BETA(2) = 0.0 DBLEB = .FALSE. IF (.NOT.DBLEA) GO TO 40 C 25 IF ((ALPHA(1).LT.X .OR. ALPHA(2).LT.X) .AND. (DALPHA(1).LT.XX .OR. 1 DALPHA(2).LT.XX)) GO TO 120 IF (( BETA(1).LT.X .OR. BETA(2).LT.X) .AND. ( DBETA(1).LT.XX .OR. 1 DBETA(2).LT.XX)) GO TO 120 C IF (DALPHA(1).GT.XX .AND. DALPHA(2).GT.XX) DBLEA = .FALSE. IF ( DBETA(1).GT.XX .AND. DBETA(2).GT.XX) DBLEB = .FALSE. C DO 30 I = 1,2 IF ( ALPHA(I) .GT. X) ALPHA(I) = 0.0 IF (DALPHA(I) .GT. XX) DALPHA(I) = ZERO IF ( BETA(I) .GT. X) BETA(I) = 0.0 IF ( DBETA(I) .GT. XX) DBETA(I) = ZERO 30 CONTINUE C C MOVE ALPHA, BETA, DALPHA AND DBETA INTO ALP AND BTA ARRAYS FOR C MATRIX MULTIPLICATION TO BE PERFORMED IN SADD. C DO 35 I = 1,2 IF (.NOT.DBLEA) ALP(I) = ALPHA(I) IF (.NOT.DBLEB) BTA(I) = BETA(I) IF ( DBLEA) DALP(I) = DALPHA(I) IF ( DBLEB) DBTA(I) = DBETA(I) 35 CONTINUE C 40 IF (ECHO .EQ. 0) GO TO 55 WRITE (NOUT,45) UIM,FN 45 FORMAT (A29,', SCALE FACTORS FOR THE OUTOUT DATA BLOCK ',2A4, 1 ', IN ADD MODULE ARE -') IF (.NOT.DBLEA) WRITE (NOUT,50) ALP(1) ,ALP(2) IF ( DBLEA) WRITE (NOUT,51) DALP(1),DALP(2) IF (.NOT.DBLEB) WRITE (NOUT,52) BTA(1) ,BTA(2) IF ( DBLEB) WRITE (NOUT,53) DBTA(1),DBTA(2) 50 FORMAT (5X,'1ST S.F. = (',E12.5,1H,,E12.5,1H)) 51 FORMAT (5X,'3RD S.F. = (',D12.5,1H,,D12.5,1H)) 52 FORMAT (1H+,48X,'2ND S.F. = (',E12.5,1H,,E12.5,1H)) 53 FORMAT (1H+,48X,'4TH S.F. = (',D12.5,1H,,D12.5,1H)) C C ENSURE THAT THE MATRICES BEING ADDED ARE OF THE SAME ORDER C 55 IF (IA(1).EQ.0 .OR. IB(1).EQ.0) GO TO 70 IF (IA(2).EQ.IB(2) .AND. IA(3).EQ.IB(3)) GO TO 70 CALL FNAME (IA(1),AA) CALL FNAME (IB(1),BB) WRITE (NOUT,60) UFM,AA,BB,FN,IA(2),IA(3),IB(2),IB(3) 60 FORMAT (A23,' 4149, ATTEMPT TO ADD MATRICES OF UNEQUAL ORDER IN', 1 ' MODULE ADD, ',2A4,' TO ',2A4, /5X,'INTENDED OUTOUT DATA', 2 ' BLOCK NAME =',2A4,I7,' BY',I6,' TO',I7,' BY',I6) GO TO 160 70 IC(1) = IOUT1 IC(2) = IA(2) IC(3) = IA(3) IF (IA(4) .EQ. 3) IC(2) = IA(3) IF (IA(1) .NE. 0) GO TO 80 IC(2) = IB(2) IC(3) = IB(3) C C DETERMINE TYPE C 80 ITA = 3 ITB = 3 IF (ALP(2).EQ.0.0 .AND. ALP(4).EQ.0.0) ITA = 1 IF (BTA(2).EQ.0.0 .AND. BTA(4).EQ.0.0) ITB = 1 IC(5) = MAX0(IA(5),IB(5),ITA,ITB) IF (IC(5).EQ.3 .AND. (IA(5).EQ.2 .OR. IB(5).EQ.2)) IC(5) = 4 C C DETERMINE FORM C IC(4) = IA(4) IF (IA(1) .EQ. 0) IC(4) = IB(4) IF (IC(4).NE.1 .OR. IC(4).NE.6) GO TO 90 IC(4) = 6 IF (IA(1).NE.0 .AND. IA(4).NE.6) IC(4) = 1 IF (IB(1).NE.0 .AND. IB(4).NE.6) IC(4) = 1 IF (IC(2) .NE. IC(3)) IC(4) = 2 90 IF (IA(4).EQ.3 .AND. IB(1).NE.0) IC(4) = IB(4) IF (IA(4).EQ.3 .AND. IB(1).EQ.0) IC(4) = IA(4) C NOMAT = 2 CALL SADD (CORE,CORE) CALL WRTTRL (IC) GO TO 170 C 100 WRITE (NOUT,110) UFM,FN 110 FORMAT (A23,', INPUT MATRICES NOT SPECIFIED IN ADD MODULE.', 1 ' INTENDED OUTPUT DATA BLOCK NAME =',2A4) GO TO 160 C 120 DO 130 I=1,2 IF ( ALPHA(I) .GT. X) ALPHA(I) = 0.0 IF (DALPHA(I) .GT. XX) DALPHA(I) = ZERO IF ( BETA(I) .GT. X) BETA(I) = 0.0 IF ( DBETA(I) .GT. XX) DBETA(I) = ZERO 130 CONTINUE WRITE (NOUT,150) UFM,FN,ALPHA,BETA,DALPHA,DBETA 150 FORMAT (A23,' IN ADD MODULE. INTENDED OUTPUT DATA BLOCK =',2A4, 1 /5X,'SCALE FACTORS ARE ERRONEOUS =',4E9.2,2X,4D10.3) 160 CALL MESAGE (-61,0,0) C 170 RETURN END ================================================ FILE: mis/dadd5.f ================================================ SUBROUTINE DADD5 C C DMAP DRIVER FOR SADD (MATRIX ADD) ROUTINE C THE DMAP CALL FOR THIS MODULE IS C ADD5 A,B,C,D,E / X / V,N,P1 / V,N,P2 / V,N,P3 / V,N,P4 / V,N,P5 $ C THE PARAMETERS ARE ALL COMPLEX SINGLE-PRECISION. C DIMENSION INX(5),AMCBS(1),MC(5) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ IBUF,NOUT COMMON /SADDX / NOMAT,LCORE,MCBS(67) COMMON /ZZZZZZ/ CORE(1) COMMON /BLANK / ALPHA(10) EQUIVALENCE (MCBS(1),AMCBS(1)),(MCBS(61),MC(1)) DATA INX / 101,102,103,104,105 /, IOUT /201/ C LCORE = KORSZ(CORE) C DO 10 I = 1,67 10 MCBS(I) = 0 C C SETUP MATRIX CONTROL BLOCKS OF THE INPUT MATRICES C I = 1 K = 0 C MC(5) = 1 DO 20 J = 1,5 MCBS(I) = INX(J) CALL RDTRL (MCBS(I)) C C EXCLUDE NULL MATRICES FROM MCBS ARRAY C IF (MCBS(I) .LE. 0) GO TO 20 C C MOVE MULTIPLIERS TO MCBS ARRAY C MCBS (I+7) = 1 AMCBS(I+8) = ALPHA(2*J-1) AMCBS(I+9) = ALPHA(2*J) IF (AMCBS(I+9) .NE. 0.0) MCBS(I+7) = 3 C C DETERMINE THE PRECISION AND TYPE OF THE OUTPUT MATRIX C MC(5) = MAX0(MC(5),MCBS(I+4),MCBS(I+7)) IF (MCBS(I+4) .EQ. 2) K = 1 I = I + 12 20 CONTINUE C MC(1) = IOUT NOMAT = I/12 IF (NOMAT .EQ. 0) RETURN IF (NOMAT .EQ. 1) GO TO 60 C C CHECK TO ENSURE THAT THE MATRICES BEING ADDED ARE OF THE SAME C ORDER C I = 14 DO 50 J = 2, NOMAT IF (MCBS(2).EQ.MCBS(I) .AND. MCBS(3).EQ.MCBS(I+1)) GO TO 40 WRITE (NOUT,30) UFM 30 FORMAT (A23,' 4149, ATTEMPT TO ADD MATRICES OF UNEQUAL ORDER IN ', 1 'MODULE ADD5.') CALL MESAGE (-61,0,0) 40 I = I + 12 50 CONTINUE 60 MC(2) = MCBS(2) MC(3) = MCBS(3) MC(4) = MCBS(4) IF (MC(5).EQ.3 .AND. K.NE.0) MC(5) = 4 MC(5) = MIN0(4,MC(5)) C C ADD MATRICES C CALL SADD (CORE,CORE) CALL WRTTRL (MC(1)) RETURN C END ================================================ FILE: mis/dadotb.f ================================================ DOUBLE PRECISION FUNCTION DADOTB( A, B ) DOUBLE PRECISION A(3), B(3) C***** C DOUBLE PRECISION VERSION C C DOT PRODUCT A . B C***** DADOTB = A(1)*B(1) + A(2)*B(2) + A(3)*B(3) RETURN END ================================================ FILE: mis/dapoly.f ================================================ DOUBLE PRECISION FUNCTION DAPOLY(N,P) C C CALCULATES AREA OF A POLYGON DESCRIBED BY N POINTS (P) C ( N .LE. 10 ) C C AREA= -1* LINE INTEGRAL OF Y*DX C C AREA CONTRIBUTION FROM SIDE WHOSE ENDS ARE P(I), P(J): C A(I,J)= 0.5 * (Y(I)+Y(J)) * (X(I)-X(J)) C DOUBLE PRECISION P(2,1) INTEGER KEDGE(2,10), K(2,10) C DATA KEDGE/ 1,2, 2,3, 3,4, 4,5, 5,6, 6,7, 7,8, 8,9, 9,10, 1 10,1/ C DO 10 I=1,2 DO 10 J=1,N 10 K(I,J)= KEDGE(I,J) K(2,N)= 1 DAPOLY= 0.0 C DO 20 NN= 1,N K1= K(1,NN) K2= K(2,NN) 20 DAPOLY= DAPOLY +5.D-1 * (P(2,K1)+P(2,K2)) * (P(1,K1)-P(1,K2)) RETURN END ================================================ FILE: mis/daxb.f ================================================ SUBROUTINE DAXB(A,B,C) DOUBLE PRECISION A(3), B(3), C(3), D(3) C***** C DOUBLE PRECISION VERSION C C THIS ROUTINE PERFORMS A X B INTO C (C MAY OVERLAP A OR B IN CORE) C***** D(1) = A(2)*B(3) - A(3)*B(2) D(2) = A(3)*B(1) - A(1)*B(3) D(3) = A(1)*B(2) - A(2)*B(1) C(1) = D(1) C(2) = D(2) C(3) = D(3) RETURN END ================================================ FILE: mis/dbar.f ================================================ SUBROUTINE DBAR C C THIS ROUTINE COMPUTES THE 2 6X6 DIFFERENTIAL STIFFNESS MATRICES C K(NPVT,NPVT) AND K(NPVT,J) FOR A BEAM HAVING END POINTS OF SIL C NOS. NPVT AND J. C C ECPT FOR THE BEAM C C ECPT( 1) - IELID ELEMENT ID. NO. C ECPT( 2) - ISILNO(2) SCALAR INDEX NOS. C ECPT( 3) - ... C ECPT( 4) - SMALLV(3) REFERENCE VECTOR C ECPT( 5) - ... C ECPT( 6) - ... C ECPT( 7) - IGSUB0 OPTION FOR DEFINING REFERENCE NUMBER. C ECPT( 8) - IPINFL(2) PIN FLAGS C ECPT( 9) - ... C ECPT(10) - ZA(3) OFFSET VECTOR AT POINT A C ECPT(11) - ... C ECPT(12) - ... C ECPT(13) - ZB(3) OFFSET VECTOR AT POINT B C ECPT(14) - ... C ECPT(15) - ... C ECPT(16) - GEF(4) ECCENTRICITIES FOR FORCE C ECPT(17) - ... C ECPT(18) - ... C ECPT(19) - ... C ECPT(20) - IMATID MATERIAL ID. C ECPT(21) - A CROSS-SECTIONAL AREA C ECPT(22) - C1 STRESS COEFFICIENTS C ECPT(23) - C2 ... C ECPT(24) - I1 AREA MOMENTS OF INERTIA C ECPT(25) - I2 ... C ECPT(26) - I3 ... C ECPT(27) - FJ TORSIONAL CONSTANT C ECPT(28) - FMU NON-STRUCTURAL MASS C ECPT(29) - K1 AREA FACTORS FOR SHEAR C ECPT(30) - K2 ... C ECPT(31) - C3 (D1) STRESS COEFFICIENTS C ECPT(32) - C4 (D2) ... C ECPT(33) - B1 WIDTHS FOR FORCE C ECPT(34) - B2 ... C ECPT(35) - HS1 DEPTHS FOR FORCE C ECPT(36) - HS2 ... C ECPT(37) - HT1 ... C ECPT(38) - HT2 ... C ECPT(39) - MCSIDA COOR. SYS. ID. FOR GRID PT. A C ECPT(40) - GPA(3) BASIC COORDINATES FOR PT. A C ECPT(41) - ... ... C ECPT(42) - ... ... C ECPT(43) - MCSIDB COOR. SYS. ID. FOR GRID PT. B C ECPT(44) - GPB(3) BASIC COORDINATES FOR PT. B C ECPT(45) - ... ... C ECPT(46) - ... ... C ECPT(47) - ELTEMP ELEMENT TEMPERATURE C ECPT(48) - ELDEF ELEMENT DEFORMATION C ECPT(49) - TEMPER ELEMENT LOADING TEMPERATURE C ECPT(50) - UAS(1) ... C ECPT(51) - UAS(2) ... C ECPT(52) - UAS(3) SINGLE PRECISION DISPLACEMENTS C ECPT(53) - UAS(4) FOR GRID POINT A C ECPT(54) - UAS(5) ... C ECPT(55) - UAS(6) ... C ECPT(56) - UBS(1) ... C ECPT(57) - UBS(2) ... C ECPT(58) - UBS(3) SINGLE PRECISION DISPLACEMENTS C ECPT(59) - UBS(4) FOR GRID POINT B C ECPT(60) - UBS(5) ... C ECPT(61) - UBS(6) ... C LOGICAL ABASIC,BBASIC,BASIC,AOFSET,BOFSET,OFFSET REAL K1,K2,I1,I2 DOUBLE PRECISION TA(18),TB(9),SMALV0(6),DELA,DELB,KE,KEP,VECI, 1 VECJ,VECK,FL,FLL,EI1,EI2,GAK1,GAK2,RRV1,RRV2, 2 SK1,SK2,SK3,SK4,TERM1,TERM2,TERM3,TERM4,L,LSQ, 3 LCUBE,DP(8) DOUBLE PRECISION E,DA,ALPHA,T SUB 0,SA(72),SB(36),UA(6),UB(6), 1 DPVECA(6),DPVECB(6),FX,VY,VZ,MAY,MAZ,MBY,MBZ, 2 KD(144),KC(12,12),TERM5,TERM6,TERM7,TERM8,TERM9, 3 TERM10,TERM11,KES(144),KDP(144),DFJ DIMENSION VECI(3),VECJ(3),VECK(3),ECPT(100),IECPT(100), 1 IPIN(10),IZ(1) COMMON /ZZZZZZ/ Z(1) COMMON /DS1AAA/ NPVT,ICSTM,NCSTM,DUMCL(32),NOGO COMMON /DS1AET/ IELID,ISILNO(2),SMALLV(3),IGSUB0,IPINFL(2),ZA(3), 1 ZB(3),GEF(4),IMATID,A,DUMMY1,DUMMY2,I1,I2,DUMMY3, 2 FJ,FMU,K1,K2,DUM2(8),MCSIDA,GPA(3),MCSIDB,GPB(3), 3 TEMPEL,ELDEF,TEMPER,UAS(6),UBS(6),DUM3(38) COMMON /DS1ADP/ KE(144),KEP(144),DELA(6),DELB(6) COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E S,G S,NU,RHO,ALPHA S,T SUB 0 S,GSUBE,SIGT, 1 SIGC,SIGS EQUIVALENCE (IELID,ECPT(1),IECPT(1)),(IZ(1),Z(1)), 1 (TA(10),TB(1)),(ECPT(71),DP(1)),(KC(1,1),KD(1)), 2 (SA(37),SB(1)) C C DETERMINE WHICH SIL IS THE PIVOT POINT. C C IPVT = 0 IPVT = 1 IF (ISILNO(1) .EQ. NPVT) GO TO 20 IPVT = 2 IF (ISILNO(2) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1)) C C JCSIDA IS AN INDEX WHICH POINTS TO THE COOR. SYS. ID. OF POINT A. C JOFSTA IS AN INDEX WHICH POINTS TO THE OFFSET VECTOR FOR POINT A. C SIMILARY FOR JCSIDB AND JOFSTB AND POINT B. C 20 JCSIDA = 39 JCSIDB = 43 JOFSTA = 10 JOFSTB = 13 JPINA = 8 JPINB = 9 ICSIDA = IECPT(JCSIDA) ICSIDB = IECPT(JCSIDB) C C NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL C AXIS PLANE (FMMS - 36 P. 4) C WE STORE SMALLV IN SMALV0 SO THAT ARITHMETIC WILL BE DOUBLE C PRECISION C DO 50 I = 1,3 50 SMALV0(I) = SMALLV(I) FL = DSQRT(SMALV0(1)**2 + SMALV0(2)**2 + SMALV0(3)**2) IF (FL .LE. 0.0D0) GO TO 700 DO 60 I = 1,3 60 SMALV0(I) = SMALV0(I)/FL C C DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT. C ABASIC = .TRUE. BBASIC = .TRUE. IF (ICSIDA .NE. 0) ABASIC = .FALSE. IF (ICSIDB .NE. 0) BBASIC = .FALSE. C C COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY C IF (.NOT.ABASIC) CALL TRANSD (ECPT(JCSIDA),TA) IF (.NOT.BBASIC) CALL TRANSD (ECPT(JCSIDB),TB) C C DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS. C AOFSET = .TRUE. J = JOFSTA - 1 DO 70 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 80 70 CONTINUE AOFSET = .FALSE. 80 BOFSET = .TRUE. J = JOFSTB - 1 DO 90 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 100 90 CONTINUE BOFSET = .FALSE. C C FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS. C FIRST WE STORE THE COORDINATES IN THE ARRAY DP SO THAT ALL C ARITHMETIC WILL BE DOUBLE PRECISION. C 100 DP(1) = ECPT(JCSIDA+1) DP(2) = ECPT(JCSIDA+2) DP(3) = ECPT(JCSIDA+3) DP(4) = ECPT(JCSIDB+1) DP(5) = ECPT(JCSIDB+2) DP(6) = ECPT(JCSIDB+3) VECI(1) = DP(1) - DP(4) VECI(2) = DP(2) - DP(5) VECI(3) = DP(3) - DP(6) C C TRANSFORM THE OFFSET VECTORS IF NECESSARY C IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150 C C TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY. C IDELA = 1 J = JOFSTA - 1 DO 110 I = 1,3 J = J + 1 110 DELA(I) = ECPT(J) IF (ABASIC) GO TO 120 IDELA = 4 CALL GMMATD (TA,3,3,0, DELA(1),3,1,0, DELA(4)) C C TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY C 120 IDELB = 1 J = JOFSTB - 1 DO 130 I = 1,3 J = J + 1 130 DELB(I) = ECPT(J) IF (BBASIC) GO TO 140 IDELB = 4 CALL GMMATD (TB,3,3,0, DELB(1),3,1,0, DELB(4)) C C SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI C 140 VECI(1) = VECI(1) + DELA(IDELA ) - DELB(IDELB ) VECI(2) = VECI(2) + DELA(IDELA+1) - DELB(IDELB+1) VECI(3) = VECI(3) + DELA(IDELA+2) - DELB(IDELB+2) C C COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE C 150 FL = DSQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) IF (FL .EQ. 0.0D0) GO TO 700 DO 160 I = 1,3 160 VECI(I) = VECI(I)/FL C C COMPUTE THE SMALL V SUB 0 VECTOR, SMALV0. ***CHECK THIS LOGIC*** C ITA = 1 ISV = 1 IF (MCSIDA.EQ.0 .OR. IGSUB0.EQ.0) GO TO 180 IF (JCSIDA .NE. 39) ITA = 10 ISV = 4 CALL GMMATD (TA(ITA),3,3,0, SMALV0(1),3,1,0, SMALV0(4)) C C COMPUTE THE K VECTOR, VECK = VECI X SMALV0, AND NORMALIZE C 180 VECK(1) = VECI(2)*SMALV0(ISV+2) - VECI(3)*SMALV0(ISV+1) VECK(2) = VECI(3)*SMALV0(ISV ) - VECI(1)*SMALV0(ISV+2) VECK(3) = VECI(1)*SMALV0(ISV+1) - VECI(2)*SMALV0(ISV ) FLL = DSQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) IF (FLL .EQ. 0.0D0) GO TO 700 VECK(1) = VECK(1)/FLL VECK(2) = VECK(2)/FLL VECK(3) = VECK(3)/FLL C C COMPUTE THE J VECTOR, VECJ = VECK X VECI, AND NORMALIZE C VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2) VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3) VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1) FLL = DSQRT(VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2) IF (FLL .EQ. 0.0D0) GO TO 700 VECJ(1) = VECJ(1)/FLL VECJ(2) = VECJ(2)/FLL VECJ(3) = VECJ(3)/FLL C C SEARCH THE MATERIAL PROPERTIES TABLE FOR E,G AND THE DAMPING C CONSTANT. C MATIDC = IMATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) C C COMPUTE THE RECIPROCALS OF RV1 AND RV2 (CALLING THEM RRV1 AND C RRV2) C L = FL LSQ = L**2 LCUBE = LSQ*L C C STORE ECPT AND MPT VARIABLES IN DOUBLE PRECISION LOCATIONS. C DP(1) = E S DP(2) = G S DP(3) = I1 DP(4) = I2 DP(5) = A EI1 = DP(1)*DP(3) EI2 = DP(1)*DP(4) IF (K1 .EQ. 0.0) GO TO 210 DP(6) = K1 GAK1 = DP(2)*DP(5)*DP(6) RRV1 = (12.0D0*EI1*GAK1)/(GAK1*LCUBE+12.0D0*L*EI1) GO TO 220 210 RRV1 = 12.0D0*EI1/LCUBE 220 IF (K2 .EQ. 0.0) GO TO 230 DP(7) = K2 GAK2 = DP(2)*DP(5)*DP(7) RRV2 = (12.0D0*EI2*GAK2)/(GAK2*LCUBE+12.0D0*L*EI2) GO TO 240 230 RRV2 = 12.0D0*EI2/LCUBE C C COMPUTE THE -SMALL- K-S, SK1, SK2, SK3 AND SK4 C 240 SK1 = 0.25D0*RRV1*LSQ + EI1/L SK2 = 0.25D0*RRV2*LSQ + EI2/L SK3 = 0.25D0*RRV1*LSQ - EI1/L SK4 = 0.25D0*RRV2*LSQ - EI2/L C C COMPUTE THE TERMS THAT WILL BE NEEDED FOR THE 12 X 12 MATRIX KE C TERM1 = DP(5)*DP(1)/L TERM2 = 0.5D0*L*RRV1 TERM3 = 0.5D0*L*RRV2 DP(8) = FJ TERM4 = DP(2)*DP(8)/L C C CONSTRUCT THE 12 X 12 MATRIX KE C DO 250 I = 1,144 250 KE( I) = 0.0D0 KE( 1) = TERM1 KE( 7) = -TERM1 KE( 14) = RRV1 KE( 18) = -TERM2 KE( 20) = -RRV1 KE( 24) = -TERM2 KE( 27) = RRV2 KE( 29) = TERM3 KE( 33) = -RRV2 KE( 35) = TERM3 KE( 40) = TERM4 KE( 46) = -TERM4 KE( 51) = TERM3 KE( 53) = SK2 KE( 57) = -TERM3 KE( 59) = SK4 KE( 62) = -TERM2 KE( 66) = SK1 KE( 68) = TERM2 KE( 72) = SK3 KE( 73) = -TERM1 KE( 79) = TERM1 KE( 86) = -RRV1 KE( 90) = TERM2 KE( 92) = RRV1 KE( 96) = TERM2 KE( 99) = -RRV2 KE(101) = -TERM3 KE(105) = RRV2 KE(107) = -TERM3 KE(112) = -TERM4 KE(118) = TERM4 KE(123) = TERM3 KE(125) = SK4 KE(129) = -TERM3 KE(131) = SK2 KE(134) = -TERM2 KE(138) = SK3 KE(140) = TERM2 KE(144) = SK1 C C DETERMINE IF THERE ARE NON-ZERO PIN FLAGS. C KA = IECPT(JPINA) KB = IECPT(JPINB) IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 325 C C SAVE THE KE (UNPINNED) MATRIX IN KES. C DO 255 I = 1,144 255 KES(I) = KE(I) C C SET UP THE IPIN ARRAY C DO 260 I = 1,5 IPIN(I ) = MOD(KA,10) IPIN(I+5) = MOD(KB,10) + 6 IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0 KA = KA/10 260 KB = KB/10 C C ALTER KE MATRIX DUE TO PIN FLAGS. C DO 320 I = 1,10 IF (IPIN(I) .EQ. 0) GO TO 320 II = 13*IPIN(I) - 12 IF (KE(II) .NE. 0.0D0) GO TO 280 IL = IPIN(I) II = II - IL DO 270 J = 1,12 II = II + 1 KE(II) = 0.0D0 KE(IL) = 0.0D0 IL = IL + 12 270 CONTINUE GO TO 320 280 DO 300 J = 1,12 JI = 12*(J-1) + IPIN(I) IJ = 12*(IPIN(I)-1) + J DO 290 LL = 1,12 JLL = 12*(J-1) + LL ILL = 12*(IPIN(I)-1) + LL KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI) 290 CONTINUE KEP(IJ) = 0.0D0 KEP(JI) = 0.0D0 300 CONTINUE DO 310 K = 1,144 310 KE(K) = KEP(K) 320 CONTINUE C C E C STORE K IN KEP(1),...,KEP(36) AND C AA C C E C STORE K IN KEP(37),...,KEP(72) C AB C 325 J = 0 DO 340 I = 1,72,12 LOW = I LIM = LOW + 5 DO 330 K = LOW,LIM J = J + 1 KEP(J ) = KE(K ) 330 KEP(J+36) = KE(K+6) 340 CONTINUE C C T C STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A MATRIX. C KE(1) = VECI(1) KE(2) = VECI(2) KE(3) = VECI(3) KE(4) = VECJ(1) KE(5) = VECJ(2) KE(6) = VECJ(3) KE(7) = VECK(1) KE(8) = VECK(2) KE(9) = VECK(3) C C SET POINTERS SO THAT WE WILL BE WORKING WITH POINT A. C BASIC = ABASIC JCSID = JCSIDA OFFSET = AOFSET JOFSET = JOFSTA IWBEG = 0 IKEL = 1 IAB = 1 C C ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX H AND THE W AND W C 6 X 6 MATRICES WILL RESIDE. A B C DO 360 I = 28,108 360 KE(I) = 0.0D0 C C SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX C G = AT X TI C 365 IG = 1 IF (BASIC) GO TO 370 CALL TRANSD (ECPT(JCSID),KE(10)) CALL GMMATD (KE(1),3,3,0, KE(10),3,3,0, KE(19)) IG = 19 C C IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3 X 3 C MATRIX. C 370 IF (.NOT.OFFSET) GO TO 380 KE(10) = 0.0D0 KE(11) = ECPT(JOFSET+2) KE(12) = -ECPT(JOFSET+1) KE(13) = -KE(11) KE(14) = 0.0D0 KE(15) = ECPT(JOFSET) KE(16) = -KE(12) KE(17) = -KE(15) KE(18) = 0.0D0 C C FORM THE 3 X 3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10) C CALL GMMATD (KE(IG),3,3,0, KE(10),3,3,0, KE(28)) C C C FORM THE W MATRIX OR THE W MATRIX IN KE(37) OR KE(73) DEPENDING C A B C UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION. G WILL BE C STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS. H, IF NON-ZERO, C WILL BE STORED IN THE UPPER RIGHT CORNER. C 380 KE(IWBEG+37) = KE(IG ) KE(IWBEG+38) = KE(IG+1) KE(IWBEG+39) = KE(IG+2) KE(IWBEG+43) = KE(IG+3) KE(IWBEG+44) = KE(IG+4) KE(IWBEG+45) = KE(IG+5) KE(IWBEG+49) = KE(IG+6) KE(IWBEG+50) = KE(IG+7) KE(IWBEG+51) = KE(IG+8) KE(IWBEG+58) = KE(IG ) KE(IWBEG+59) = KE(IG+1) KE(IWBEG+60) = KE(IG+2) KE(IWBEG+64) = KE(IG+3) KE(IWBEG+65) = KE(IG+4) KE(IWBEG+66) = KE(IG+5) KE(IWBEG+70) = KE(IG+6) KE(IWBEG+71) = KE(IG+7) KE(IWBEG+72) = KE(IG+8) IF (.NOT.OFFSET) GO TO 390 KE(IWBEG+40) = KE(28) KE(IWBEG+41) = KE(29) KE(IWBEG+42) = KE(30) KE(IWBEG+46) = KE(31) KE(IWBEG+47) = KE(32) KE(IWBEG+48) = KE(33) KE(IWBEG+52) = KE(34) KE(IWBEG+53) = KE(35) KE(IWBEG+54) = KE(36) C C E E C COMPUTE THE PRODUCT S = K X W OR S = K X W C A AA A B AB B C WHERE C T T C W = T X C X E AND W = T X C X E C A EB A A B EB B B C C W AT KE(37) AND W AT KE(73) WILL BE USED AGAIN BEFORE FINAL STEPS. C A B C 390 CALL GMMATD (KEP(IKEL),6,6,0, KE(IWBEG+37),6,6,0, SA(IAB)) C C IF THE POINT UNDER CONSIDERATION IS POINT B WE ARE FINISHED. IF C NOT, SET UP POINTS AND INDICATORS FOR WORKING WITH POINT B. C IF (IWBEG .EQ. 36) GO TO 500 BASIC = BBASIC JCSID = JCSIDB OFFSET = BOFSET JOFSET = JOFSTB IWBEG = 36 IKEL = 37 IAB = 37 DO 400 I = 28,36 400 KE(I) = 0.0D0 GO TO 365 C C BEGIN DIFFERENTIAL STIFFNESS PORTION OF THIS ROUTINE. C C STORE DISPLACEMENT VECTORS IN DOUBLE PRECISION LOCATIONS C 500 DO 510 I = 1,6 UA(I) = ECPT(I+49) 510 UB(I) = ECPT(I+55) C C COMPUTE S X U AND S X U C A A B B C CALL GMMATD (SA(1),6,6,0, UA,6,1,0, DPVECA) CALL GMMATD (SB(1),6,6,0, UB,6,1,0, DPVECB) C C COMPUTE THE NEEDED COMPONENTS OF THE FORCE VECTOR. C FX = DPVECA(1) + DPVECB(1) VY = DPVECA(2) + DPVECB(2) VZ = DPVECA(3) + DPVECB(3) MAY = DPVECA(5) + DPVECB(5) MAZ = DPVECA(6) + DPVECB(6) MBZ = -MAZ - VY*L MBY = -MAY + VZ*L E = E S FX = FX - E*ELDEF/L IF (IECPT(49) .EQ. -1) GO TO 520 ALPHA = ALPHAS TSUB0 = TSUB0S DP(1) = TEMPER FX = FX - A*ALPHA*E*(DP(1)-TSUB0) C C ZERO OUT THE KD (KC) MATRIX C 520 DO 530 I = 1,144 530 KD(I) = 0.0D0 C C FORM THE ELEMENT DIFFERENTIAL STIFFNESS MATRIX (UPPER HALF) C TERM1 = 6.0D0*FX/(5.0D0*L) TERM2 = -MAY/L TERM3 = FX/10.0D0 TERM4 = -MBY/L TERM5 = -MAZ/L TERM6 = -MBZ/L DFJ = I1 + I2 DA = A TERM7 = DFJ*FX/(L*DA) TERM8 = L*VY/6.0D0 TERM9 = L*VZ/6.0D0 TERM10 = 2.0D0*L*FX/15.0D0 TERM11 = L*FX/30.0D0 KC( 2, 2) = TERM1 KC( 2, 4) = TERM2 KC( 2, 6) = -TERM3 KC( 2, 8) = -TERM1 KC( 2,10) = TERM4 KC( 2,12) = -TERM3 KC( 3, 3) = TERM1 KC( 3, 4) = TERM5 KC( 3, 5) = TERM3 KC( 3, 9) = -TERM1 KC( 3,10) = TERM6 KC( 3,11) = TERM3 KC( 4, 4) = TERM7 KC( 4, 5) = -TERM8 KC( 4, 6) = -TERM9 KC( 4, 8) = -TERM2 KC( 4, 9) = -TERM5 KC( 4,10) = -TERM7 KC( 4,11) = TERM8 KC( 4,12) = TERM9 KC( 5, 5) = TERM10 KC( 5, 9) = -TERM3 KC( 5,10) = TERM8 KC( 5,11) = -TERM11 KC( 6, 6) = TERM10 KC( 6, 8) = TERM3 KC( 6,10) = TERM9 KC( 6,12) = -TERM11 KC( 8, 8) = TERM1 KC( 8,10) = -TERM4 KC( 8,12) = TERM3 KC( 9, 9) = TERM1 KC( 9,10) = -TERM6 KC( 9,11) = -TERM3 KC(10,10) = TERM7 KC(10,11) = -TERM8 KC(10,12) = -TERM9 KC(11,11) = TERM10 KC(12,12) = TERM10 C C STORE THE UPPER HALF IN THE LOWER HALF. C DO 550 I = 2,10 LOW = I + 1 DO 540 J = LOW,12 KC(J,I) = KC(I,J) 540 CONTINUE 550 CONTINUE C C IF THERE PIN FLAGS, ALTER THE KD MATRIX C IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 620 C C ALTER KD DUE TO PIN FLAGS. C DO 610 J = 1,10 IF (IPIN(J) .EQ. 0) GO TO 610 JJ = 12*(IPIN(J)-1) + IPIN(J) IF (KES(JJ) .EQ. 0.0D0) GO TO 605 DO 590 I = 1,12 JI = 12*(IPIN(J)-1) + I IJ = 12*(I-1) + IPIN(J) DO 580 L1 = 1,12 IL = 12*(I-1) + L1 LJ = 12*(L1-1) + IPIN(J) KDP(IL) = KD(IL) - KES(LJ)*KD(JI)/KES(JJ) - KES(JI)*KD(LJ)/KES(JJ) 2 + KES(LJ)* KES(JI)*KD(JJ)/KES(JJ)**2 580 CONTINUE 590 CONTINUE DO 600 KK = 1,144 600 KD(KK) = KDP(KK) C C ZERO OUT THE IPIN(J) TH ROW AND COLUMN OF KD. C 605 J1 = JJ - IPIN(J) J2 = IPIN(J) DO 608 KK = 1,12 J1 = J1 + 1 KD(J1) = 0.0D0 KD(J2) = 0.0D0 608 J2 = J2 + 12 610 CONTINUE C C D C STORE K AT KEP(1),...,KEP(36) AND C NPVT,A C C D C K AT KEP(37),...,KEP(72) C NPVT,B C C 620 J = 0 IF (IPVT .EQ. 2) GO TO 625 ILOW = 1 ILIM = 72 GO TO 628 625 ILOW = 73 ILIM = 144 628 DO 640 I = ILOW,ILIM,12 LOW = I LIM = LOW +5 DO 630 K = LOW,LIM J = J + 1 KEP(J ) = KD(K ) 630 KEP(J+36) = KD(K+6) 640 CONTINUE C C COMPUTE THE FINAL 2 6X6 DIFFERENTIAL STIFFNESS MATRICES FOR THIS C BEAM. C IWLEFT = 37 IF (IPVT .EQ. 2) IWLEFT = 73 I = 1 IKDE = 1 IWRGHT = 37 650 CALL GMMATD (KE(IWLEFT),6,6,1, KEP(IKDE),6,6,0, KEP(73)) CALL GMMATD (KEP(73),6,6,0, KE(IWRGHT),6,6,0, KEP(109)) CALL DS1B (KEP(109),ISILNO(I)) IF (I .EQ. 2) RETURN I = 2 IKDE = 37 IWRGHT = 73 GO TO 650 C C FATAL ERROR C 700 CALL MESAGE (30,26,IECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN END ================================================ FILE: mis/dbase.f ================================================ SUBROUTINE DBASE C C DRIVER FOR DATABASE MODULE C C THIS UTILITY MODULE TRANSFERS GRID POINT DATA, CONNECTING ELEMENT C DATA, AND MOST OF THE OFP DATA BLOCKS (DISPLACEMENT, VELOCITY, C ACCELERTION, LOAD, GRID POINT FORCE, EIGENVECTOR, ELEMENT STRESS C AND ELEMENT FORCE) TO A FORTRAN FILE, FORMATTED OR UNFORMATTED. C THE GRID POINT DATA ARE IN BASIC COORDINATE SYSTEM, AND THE C DISPLACEMENT DATA IF REQUESTED, CAN BE IN BASIC SYSTEM (DEFAULT) C OR IN GLOBAL COORDINATE SYSTEM. GRID POINTS ARE IN EXTERNAL GRID C NUMBERING SYSTEM. C THE FORMATTED OUTTP FILE CAN BE PRINTED, OR EDITTED BY SYSTEM C EDITOR. ALL OUTPUT LINES ARE 132 COLUMNS OR LESS. C C C WRITTEN ON THE LAST DAY OF 1988 BY G.CHAN/UNISYS. C REVISED 10/89, EXPANDED TO INCLUDE THREE OFP FILES C C DATABASE EQEXIN,BGPDT,GEOM2,CSTM,O1,O2,O3//C,N,OUTTP/C,N,FORMAT C /C,N,BASIC $ C C EQEXIN - MUST BE PRESENT C BGPDT - IF PURGE, NO GRID POINT DATA SENT TO OUTTP C GEOM2 - IF PURGE, NO ELEMENT CONNECTIVITY DATA SENT TO C OUTTP C CSTM - IF PURGE, DISPLACEMENT VECTOR IN GLOBAL COORD. C Oi - ANY ONE OF NASTRAN STANDARD OFP FILES LISTED C BELOW. IF PURGE, NO DATA SENT TO OUTTP. C IF THE DATA IN THIS OFP FILE IS COORDINATE C SENSITIVE, SUCH AS DISPLACEMENT, THE DATA CAN C BE SENT OUT TO OUTTP IN BASIC OR GLOBAL C COORDINATES AS SPECIFIED THE PARAMETER BASIC. C OUTTP - MUST BE ONE OF THE UT1,UT2,INPT,INP1,...,9 FILE C FORMAT = 0, UNFORMATTED OUTPUT TO OUTTP FILE (DEFAULT) C = 1, FORMATTED C BASIC = 0, DISPLACEMENT VECTORS REMAIN IN GLOBAL COORD. C SYSTEM (DEFAULT) C = 1, DISPLACEMENT VECTORS IN BASIC COORD. SYSTEM C (NOT USED IN ELEMENT FORCES AND STRESSES) C C LIST OF AVAILABLE OFP FILES (Oi) C OUDV1, OUDVC1, OUGV1, OUHV1, OUHVC1, OUPV1, OUPVC1, C OUDV2, OUDVC2, OUGV2, OUHV2, OUHVC2, OUPV2, OUPVC2, C OUBGV1, OPHID, OPHIG, OPHIH, OCPHIP, C OPG1, OPP1, OPPC1, OQG1, OQP1, OQPC1, OQBG1, C OPG2, OPP2, OPPC2, OQG2, OQP2, OQPC2, OQBG2, C OEF1, OEFC1, OES1, OESC1, OEFB1, OBEF1, C OEF2, OEFC2, OES2, OESC2, OESB1, OBES1 C OES1A, C HOUDV1, HOUGV1, HOPG1, HOQG1, HOEF1, HOES1, HOPNL1, C HOUDV2, HOUGV2, HOPP2, HOQP2, HOEF2, HOEFIX, HOPNL2 C C C MAP THIS ROUTINE IN LINK2, LINK4 AND LINK14 C IMPLICIT INTEGER (A-Z) LOGICAL FMTTD,BASC,NOCSTM,NOBGPT,NOGEOM,DEBUG,EFS,ECXYZ INTEGER SUB(2),B(5),NAM(8),A(10),FMT(4),ONAME(6),SUBN(3), 1 A1(80),F(79),F8(6),INPX(3),IX(1),FSTF(4),INP(8) REAL RX(200),RZ(1),RA(1),T(9),FREQ CHARACTER*8 CA,MO,CAMO,BA,GL,BAGL,GPT,ELM,DIS,LOD,FORC,VELO, 1 ACC,EIGN,STR,ELF,DXX,DYY(3),DASH,BLK8 CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /SYSTEM/ SYSBUF,NOUT,NOGO COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / OUTTP,FORMTD,BASIC COMMON /GPTA1 / NEL,LAST,INCR,E(1) COMMON /MACHIN/ MACH COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW,NOREW,EOFNRW EQUIVALENCE (Z(1),RZ(1)), (B(1),NAM(1)), 1 (A(1),RA(1),A1(3)), (RX(1),IX(1)) DATA EQEXIN, BGPDT, GEOM2, CSTM, SCR1, SUB / 1 101, 102, 103, 104, 301, 4HDBAS,4HE / DATA END1, END2, END3, FMT / 1 4H -EN, 2HD-, 2H--, 4H, UN,4HFORM,4HATTE,1HD / DATA FMT1, MONE, BLANK, BZERO, IZERO, DEBUG / 1 1H,, -1, 4H , 4H 0.0,4H-0 , .FALSE. / DATA LS, INPX, LIMAF, LIMRX / 1 1HS, 4H INP,4HINPT, 4H UT, 78, 200 / DATA GPT, ELM, DIS, DASH / 1 'GRID PTS', 'ELEMENTS', 'DISPLCNT', '--------' / DATA LOD, FORC, VELO, BLK8 / 1 'LOADINGS', 'GD FORCE', 'VELOCITY', ' ' / DATA ACC, EIGN, STR, ELF / 1 'ACCELERN', 'EIGENVCR', 'E.STRESS', 'E.FORCES' / DATA CA, MO, BA, GL / 1 ' CASE = ', ' MODE = ', ' BASIC ', ' GLOBAL ' / DATA FSTF / 4H1ST , 4H2ND ,4H3RD , 4H4TH / , INP / 1 4HEQEX,2HIN , 4HBGPD,2HT , 4HGEOM,4H2 ,4HCSTM,1H / C C IF (DEBUG) WRITE (NOUT,10) 10 FORMAT (/5X,'-- DBASE LOCAL DEBUG --') NAM(1) = 106 CALL RDTRL (NAM(1)) IF (NAM(1) .GT. 0) GO TO 20 CALL PAGE WRITE (NOUT,15) UIM 15 FORMAT (A29,', DATABASE NEW DMAP FORMAT', //5X, 1 'DATABASE EQEXIN,BGPDT,GEOM2,CSTM,O1,O2,O3//C,N,OUTTP/', 2 'C,N,FORMAT/C,N,BASIC $', /5X,'FIRST 4 FILES ARE FIXED ', 3 'IN NAMES AND ORDER, NEXT 3 FILES CAN BE SELECTED BY USER', 4 /5X,'FIRST EQEXIN FILE MUST BE PRESENT, OTHERS CAN BE ', 5 'SELECTIVELY OMITTED') 20 IF (OUTTP.GE.11 .AND. OUTTP.LE.24) GO TO 30 WRITE (NOUT,25) UFM,OUTTP 25 FORMAT (A23,', OUTPUT FILE SPEC. ERROR') CALL MESAGE (-37,0,SUB) 30 EFS = .FALSE. FMTTD = .FALSE. BASC = .FALSE. ECXYZ = .FALSE. IF (FORMTD .EQ. 1) FMTTD = .TRUE. IF (BASIC .EQ. 1) BASC = .TRUE. IF (FMTTD) FMT(1) = FMT1 CALL FNAME (101,NAM(1)) IF (NAM(1).EQ.INP(1) .AND. NAM(2).EQ.INP(2)) GO TO 34 CALL PAGE2 (3) WRITE (NOUT,32) FSTF(1),NAM(1),NAM(2) 32 FORMAT (//,' *** USER FATAL ERROR IN DATABASE MODULE, THE ',A4, 1 'INPUT DATA BLOCK ',2A4,' IS ILLEGAL.', /5X,'THE FIRST 4 INPUT', 2 ' DATA BLOCKS MUST BE ''EQEXIN,BGPDT,GEOM2,CSTM'', AND IN ', 3 'EXACT ORDER SHOWN') NOGO = 1 34 NOBGPT = .FALSE. NOGEOM = .FALSE. NOCSTM = .FALSE. NAM(1) = BGPDT CALL RDTRL (NAM) IF (NAM(1) .LE. 0) NOBGPT = .TRUE. IF (NOBGPT) GO TO 35 CALL FNAME (102,NAM(1)) IF (NAM(1).EQ.INP(3) .AND. NAM(2).EQ.INP(4)) GO TO 35 CALL PAGE2 (3) WRITE (NOUT,32) FSTF(2),NAM(1),NAM(2) NOGO = 1 35 NAM(1) = GEOM2 CALL RDTRL (NAM) IF (NAM(1) .LE. 0) NOGEOM = .TRUE. IF (NOGEOM) GO TO 36 CALL FNAME (103,NAM(1)) IF (NAM(1).EQ.INP(5) .AND. NAM(2).EQ.INP(6)) GO TO 36 CALL PAGE2 (3) WRITE (NOUT,32) FSTF(3),NAM(1),NAM(2) NOGO = 1 36 NAM(1) = CSTM CALL RDTRL (NAM) IF (NAM(1) .LE. 0) NOCSTM = .TRUE. IF (NOCSTM) GO TO 37 CALL FNAME (104,NAM(1)) IF (NAM(1).EQ.INP(7) .AND. NAM(2).EQ.INP(8)) GO TO 37 CALL PAGE2 (3) WRITE (NOUT,32) FSTF(4),NAM(1),NAM(2) NOGO = 1 37 IF (NOGO .EQ. 1) RETURN C NZ = KORSZ(Z(1)) BUF1 = NZ - SYSBUF BUF2 = BUF1 - SYSBUF NZ = BUF2 - 1 COOR = 0 C C OPEN EQEXIN, READ FIRST RECORD, AND SORT EX-INT TABLE BY INTERNAL C NUMBERS, Z(1) THRU Z(NEQ) C FILE = EQEXIN CALL OPEN (*1300,EQEXIN,Z(BUF1),RDREW) CALL FWDREC (*1300,EQEXIN) CALL READ (*1300,*60,EQEXIN,Z(1),NZ,1,NEQ) J = 0 40 CALL READ (*1300,*50,EQEXIN,Z(1),NZ,1,NEQ) J = J + NZ GO TO 40 50 J = J + NEQ J = J*2 CALL MESAGE (-8,J,SUB) C 60 CALL CLOSE (EQEXIN,REW) LEFT = NZ - NEQ - 1 NEQ2 = NEQ/2 J = NEQ2*5 - LEFT IF (J .GT. 0) CALL MESAGE (-8,J,SUB) CALL SORT (0,0,2,2,Z(1),NEQ) C C IF BGPDT FILE NOT REQUESTED, SKIP PROCESSING GRID POINT DATA C IF (NOBGPT) GO TO 170 C C C GRID POINTS PROCESSING C ====================== C C OPEN BGPDT, READ THE ENTIRE RECORD, AND REPLACE THE COORD.SYSTEM C WORD BY THE EXTERNAL GRID POINT NUMBER. C NOTE - EXT.GRID IDS ARE NO LONGER SORTED. C WRITE THE NEW DATA TO SCR1 FILE - EXT.GIRD ID, X,Y,Z BASIC COORD. C FILE = SCR1 CALL OPEN (*1300,SCR1,Z(BUF1),WRTREW) FILE = BGPDT CALL OPEN (*170,BGPDT,Z(BUF2),RDREW) CALL FWDREC (*1300,BGPDT) NGD = 0 100 CALL READ (*110,*110,BGPDT,B(2),4,0,FLAG) NGD = NGD + 1 K = NGD*2 - 1 B(1) = Z(K) B(2) = 0 CALL WRITE (SCR1,B,5,0) GO TO 100 110 CALL WRITE (SCR1,0,0,1) CALL CLOSE (SCR1 ,REW) CALL CLOSE (BGPDT,REW) C C OPEN SCR1 AND OUTTP C SORT THE GRID POINT DATA BY THEIR EXTERNAL NUMBERS C C FOR UNFORMATTED TPAE, TRANSFER GRID DATA FROM SCR1 TO OUTTP IN ONE C LONG RECORD C C WORD CONTENT (UNFORMATTED, 2ND RECORD) C ------ ---------------------------------------------------- C 1 NO. OF WORDS (THIS FIRST WORD NOT INCLUDED) IN THIS C RECORD (INTEGER) C 2 EXTERNAL GRID ID (SORTED) C 3 0 (NOT USED, RESERVED FOR FUTURE USE. INTEGER) C 4,5,6 X,Y,Z COORDINATES IN BASIC COORD SYSTEM (REAL) C : REPEAT 2 THRU 6 AS MANY TIMES AS THERE ARE GRIDS. C FILE = SCR1 JB = NEQ+ 1 JBP1 = JB + 1 JBM1 = JB - 1 K = NGD*5 CALL OPEN (*1300,SCR1,Z(BUF1),RDREW) CALL READ (*1300,*1310,SCR1,Z(JBP1),K,1,FLAG) CALL CLOSE (SCR1,REW) CALL SORT (0,0,5,1,Z(JBP1),K) C C FIRST GRID POINT IDENTIFICATION RECORD TO OUTTP C IF (.NOT.FMTTD) WRITE (OUTTP ) GPT,DASH IF ( FMTTD) WRITE (OUTTP,120) GPT,DASH 120 FORMAT (1X,2A8) C IF (FMTTD) GO TO 130 Z(JB) = K JE = K + JB WRITE (OUTTP) (Z(J),J=JB,JE) GO TO 170 C C FOR FORMATTED TAPE C C RECORD WORD CONTENT FORMAT C ------ ---- ---------------------------------------------- C 2 1 TOTAL NUMBER OF GRID POINTS I8 C 3 1 EXTERNAL GRID ID (NOT SORTED) I8 C 2 0 (NOT USED, RESERVED FOR FUTURE USE) I8 C 3,4,5 X,Y,Z COORDINATES IN BASIC SYSTEM 3(1P,E12.5) C : 1-5 REPEAT RECORD 3 AS MANY TIMES AS THERE C ARE GRIDS C 130 WRITE (OUTTP,140) NGD 140 FORMAT (1X,I8,'= TOTAL NUMBER OF GRID POINTS') K = JB DO 160 I = 1,NGD WRITE (OUTTP,150) Z(K+1),Z(K+2),RZ(K+3),RZ(K+4),RZ(K+5) 150 FORMAT (1X,2I8,3(1P,E12.5)) 160 K = K + 5 C C IF GEOM2 IS NOT REQUESTED, SKIP PROCESSING ELEMENT DATA C 170 IF (NOGEOM) GO TO 490 C C C ELEMENT CONNECTIVITY PROCESSING C =============================== C C OPEN GEOM2 AND SCR1. TRANSFER ELEMENT DATA TO SCR1 FILE C FILE = GEOM2 CALL OPEN (*490,GEOM2,Z(BUF2),RDREW) CALL FWDREC (*1300,GEOM2) C C FIRST ELEMENT IDENTIFICATION RECORD TO OUTTUP C IF (.NOT.FMTTD) WRITE (OUTTP ) ELM,DASH IF ( FMTTD) WRITE (OUTTP,120) ELM,DASH C 200 CALL READ (*420,*420,GEOM2,B,3,0,FLAG) IF (B(1).EQ.B(2) .AND. B(2).EQ.B(3)) GO TO 420 DO 210 I = 4,LAST,INCR IF (B(1) .EQ. E(I)) GO TO 220 210 CONTINUE CALL MESAGE (-61,0,0) 220 NAM(1) = E(I-3) NAM(2) = E(I-2) ELTYP = E(I-1) NWDS = E(I+2) PID = E(I+3) SYMBOL = E(I+12) NG = E(I+6) G1 = E(I+9) - 1 NG3 = NG +3 NE = 0 MID = 0 C TETRA,WEDGE,HEXA1,HEXA2 FHEX1 FHEX2 IF (ELTYP.GE.39 .AND. ELTYP.LE.42 .OR. ELTYP.EQ.76.OR.ELTYP.EQ.77) 1 MID = 2 NAM(3) = ELTYP NAM(4) = SYMBOL NAM(5) = NG NAM(6) = NE NAM(7) = NG3 NAM(8) = 1 IF (NG .GT. 13) NAM(8) = 2 IF (NG .GT. 28) NAM(8) = 3 C C FOR UNFORMATTED TAPE - C C ELEMENT HEADER RECORD WRITTEN TO SCR1 C C WORD CONTENT (UNFORMATTED) C ---- ---------------------------------------------------- C 1-2 ELEMENT BCD NAME C 3 ELEMENT TYPE NUMBER, ACCORDING TO GPTABD ORDER C 4 ELEMENT SYMBOL (2 LETTERS) C 5 NG= NUMBER OF GRID POINTS C 6 NE= TOTAL NO. OF ELEMENTS OF THIS CURRENT ELEMENT TYPE C 7 NO. OF WORDS IN NEXT RECORD PER ELEMENT = NG+2 C 8 NO. OF 132-COLUMN LINES NEEDED IN NEXT RECORD IF OUTTP C IS WRITTED WITH A FORMAT C FILE = SCR1 CALL OPEN (*1300,SCR1,Z(BUF1),WRTREW) CALL WRITE (SCR1,NAM,8,0) FILE = GEOM2 230 CALL READ (*490,*250,GEOM2,A,NWDS,0,FLAG) A1(1) = A(1) A1(2) = A(2) A1(3) = 0 IF (PID .EQ. 0) A1(2) = 0 IF (MID .EQ. 2) A1(2) =-A(2) DO 240 J = 1,NG 240 A1(J+3) = A(G1+J) CALL WRITE (SCR1,A1,NG3,0) NE = NE + 1 GO TO 230 250 CALL WRITE (SCR1,0,0,1) CALL CLOSE (SCR1,REW) FILE = SCR1 CALL OPEN (*1300,SCR1,Z(BUF1),RDREW) CALL READ (*1300,*290,SCR1,Z(JB),LEFT,1,NWDS) CALL BCKREC (SCR1) IF (.NOT.FMTTD) GO TO 370 J = 0 CALL READ (*1300,*270,SCR1,Z(JB),LEFT,0,FLAG) 270 CALL READ (*1300,*280,SCR1,Z(JB),LEFT,0,FLAG) J = J + LEFT GO TO 270 280 J = J + FLAG CALL MESAGE (-8,J,SUB) 290 CALL CLOSE (SCR1,REW) Z(JB+5) = NE IF (FMTTD) GO TO 300 K = JB + 7 WRITE (OUTTP) (Z(J),J=JB,K) I = K + 1 K = NWDS + JB - 1 WRITE (OUTTP) (Z(J),J=I,K) GO TO 200 C C ELEMENT RECORD TO SCR1 C C WORD CONTENT, ALL INTEGERS (UNFORMATTED) C ---- ------------------------------------------------ C 1 ELEMENT ID C 2 POSITIVE INTEGER = PROPERTY ID C ZERO IF ELEM HAS NO PROPERTY ID C NEGATIVE INTEGER = MATERIAL ID (ELEMENT HAS NO C PROPERTY ID, BUT IT HAS A MATERIAL ID) C 3 0 (NOT USED. RESERVED FOR FUTURE USE) C 4,5,... ELEMENT CONNECTING GRID POINTS C : REPEAT 1,2,3,4,... AS MANY TIMES AS THERE ARE ELEMENTS C OF THIS SAME TYPE C C C C FOR FORMATTED TAPE - C C ELEMENT HEADER RECORD, IN 8-COLUMN FORMAT C (LINE ---+++ IS FOR VIDEO AID, NOT PART OF A RECORD) C C --------++++++++--------++++++++--------++++++++--------++++++++ C ELEMENT CBAR TYPE = 34 BR GRIDS = 2 TOTAL = ETC... C C RECORD COLUMNS CONTENT FORMAT C ------ ------- ----------------------------------------------- C 2 1- 8 'ELEMENT ' 8 LETTERS C 9-16 ELEMENT NAME 2A4 C 17-24 ' TYPE =' 8 LETTERS C 25-28 ELEM. TYPE NO. ACCORDING TO GPTABD I4 C 29,30 BLANK 2X C 31-32 ELEMENT SYMBOL A2 C 33-40 ' GRIDS =' 8 LETTERS C 41-48 NO. OF GRIDS PER ELEMENT I8 C 49-56 ' TOTAL =' 8 LETTERS C 57-64 TOTAL NO. OF ELEMENTS OF THIS ELEM. TYPE I8 C 65-72 ' WDS/EL=' 8 LETTERS C 73-80 NO. OF WORDS PER ELEMENT IN NEXT RECORDS I8 C 81-88 ' LINES =' 8 LETTERS C 89-96 NO. OF LINES (RECORDS) NEEDED ON NEXT I8 C RECORD FOR THIS ELEMENT TYPE C C ELEMENT RECORD C THERE SHOULD BE (TOTAL X LINES) RECORDS IN THIS GROUP C C RECORD WORD CONTENT FORMAT C ------ ---- ----------------------------------------------- C 3 1 ELEMENT ID I8 C 2 POSITIVE INTEGER = PROPERTY ID I8 C ZERO IF ELEM HAS NO PROPERTY ID C NEGATIVE INTEGER = MATERIAL ID (ELEMENT HAS C NO PROPERTY ID, BUT IT HAS A MATERIAL ID) C 3 0 (NOT USED. RESERVED FOR FUTURE USE) I8 C 4,5,...16 FIRST 13 EXTERNAL CONNECTING GRID PTS. 13I8 C 4 (IF NEEDED) C 1,2,...15 NEXT 15 GRID POINTS 8X,15I8 C 5 (IF NEEDED) C 1,2,...15 MORE GRID POINTS 8X,15I8 C C C REPEAT FORMATTED RECORD 3 (AND POSSIBLE 4 AND 5) AS MANY TIMES AS C THERE ARE ELEMENTS C 300 WRITE (OUTTP,310) (Z(J+JBM1),J=1,8) 310 FORMAT (1X,'ELEMENT ',2A4,' TYPE =',I4,2X,A2,' GRIDS =',I8, 1 ' TOTAL =',I8,' WDS/EL=',I8,' LINES =',I8) I = JB + 8 DO 360 J = 9,NWDS,NG3 JE = I + NG3 - 1 IF (NG3 .GT. 16) GO TO 330 WRITE (OUTTP,320,ERR=1390) (Z(K),K=I,JE) C C 320 FORMAT (1X,16I8,/,(1X,8X,15I8)) C THIS FORMAT MAY CAUSE AN EXTRA LINE IN SOME MACHINE IF NG3=16 C 320 FORMAT (1X,16I8) GO TO 360 330 J16 = I + 15 J17 = I + 16 WRITE (OUTTP,320,ERR=1390) (Z(K),K= I,J16) IF (NG3 .GT. 31) GO TO 350 WRITE (OUTTP,340,ERR=1390) (Z(K),K=J17,JE) 340 FORMAT (1X,8X,15I8) GO TO 200 350 J31 = I + 30 J32 = I + 31 WRITE (OUTTP,340,ERR=1390) (Z(K),K=J17,J31) WRITE (OUTTP,340,ERR=1390) (Z(K),K=J32,JE ) 360 I = JE + 1 GO TO 200 C C BYPASSING INSUFF. CORE SITUATION, FORMATTED TAPE ONLY C 370 CALL READ (*1300,*1300,SCR1,A,8,0,FLAG) A(6) = NE WRITE (OUTTP,310,ERR=1390) (A(J),J=1,8) 380 CALL READ (*1300,*410,SCR1,A,NG3,0,FLAG) IF (NG3 .GT. 16) GO TO 390 WRITE (OUTTP,320,ERR=1390) (A(J),J=1,NG3) GO TO 380 390 WRITE (OUTTP,320,ERR=1390) (A(J),J=1,16) IF (NG3 .GT. 32) GO TO 400 WRITE (OUTTP,340,ERR=1390) (A(J),J=17,NG3) GO TO 380 400 WRITE (OUTTP,340,ERR=1390) (A(J),J=17,32) WRITE (OUTTP,340,ERR=1390) (A(J),J=33,NG3) GO TO 380 410 CALL CLOSE (SCR1,REW) GO TO 200 C C C LAST RECORD FOR ELEMENT DATA, UNFORMATTED AND FORMATTED C C --------++++++++--------++++++++--------++++++++--------++++++++ C ELEMENT -END- TYPE = 0 -- GRIDS = 0 TOTAL = ETC... C 420 CALL CLOSE (GEOM2,REW) DO 430 I = 3,8 430 NAM(I) = 0 NAM(1) = END1 NAM(2) = END2 NAM(4) = END3 IF (.NOT.FMTTD) WRITE (OUTTP ) NAM IF ( FMTTD) WRITE (OUTTP,310) NAM C C C PROCESS OFP DATA BLOCKS SIGNITURE C ======================= ========= C DISPLACEMENT 1 C VELOCITIES 10 C ACCELERATIONS 11 C LOADS 2 C GRID POINT OR SPC FORCES 3 C EIGENVECTORS 7 C ELEMENT STRESSES, AND 5 C ELEMENT STRAIN 21 C ELEMENT FORCES 4 C C (GINO INPUT FILE 105,106,107) C 490 OFPSET = 0 OFP = 0 C C SETUP 500-1000 BIG LOOP FOR 3 OFP DATA BLOCKS C 500 OFP = OFP + 1 OFPX = CSTM + OFP NAM(1) = OFPX CALL RDTRL (NAM) C C SKIP CURRENT OFP DATA BLOCK IF IT IS PURGED C IF (NAM(1) .LE. 0) GO TO 1000 C FILE = OFPX CALL OPEN (*1000,OFPX,Z(BUF1),RDREW) CALL FWDREC (*980,OFPX) JOS = 2*OFPSET + 1 OFPSET = OFPSET + 1 CALL FNAME (OFPX,ONAME(JOS)) IF (BASC .AND. NOBGPT .AND. .NOT.NOCSTM) GO TO 660 IF (NOBGPT .OR. NOCSTM) BASC = .FALSE. KOUNT = 0 510 KOUNT = KOUNT + 1 FILE = OFPX DO 515 I = 1,6 515 F8(I) = 0 C C IDENTIFY CURRENT OFP DATA BLOCK IS A DISPLACEMENT FILE OR A NON- C DISPLACEMENT FILE C CALL READ (*980,*980,OFPX,A,10,0,FLAG) DSPL = MOD(A(2),100) NWDS = A(10) DXX = BLK8 IF (NWDS.NE.8 .AND. NWDS.NE.14) GO TO 530 C C CURRENT OFP DATA BLOCK IS A DISPLACEMENT FILE C CALL BCKREC (OFPX) IF (DSPL .EQ. 1) DXX = DIS IF (DSPL .EQ. 2) DXX = LOD IF (DSPL .EQ. 3) DXX = FORC IF (DSPL.EQ. 7 .OR. DSPL.EQ.14) DXX = EIGN IF (DSPL.EQ.15 .OR. DSPL.EQ.10) DXX = VELO IF (DSPL.EQ.16 .OR. DSPL.EQ.11) DXX = ACC IF (DXX .EQ. BLK8) GO TO 530 F(1) = 1 F(2) = 1 DO 520 I = 3,NWDS 520 F(I) = 2 F8(1) = 11222222 KK = 1 NA4 = 22 IF (NWDS .EQ. 8) GO TO 600 F8(2) = 22222200 KK = 2 NA4 = 40 GO TO 600 C C CURRENT OFP DATA BLOCK IS STRESS OR EL FORCE FILE. C THE DATA RECORDS HAVE VARIABLE LENGTH (I.E NWDS IS NOT A CONSTANT C OF 8 OR 14) C CONSTRUCT THE FORMAT CODE IN F AND F8 C 1 = INTEGER C 2 = REAL C 3 = BCD C AND TURN OFF GLOBAL TO BASIC CONVERSION FLAG BASC C 530 IF (DSPL .EQ. 4) DXX = ELF IF (DSPL .EQ. 5) DXX = STR IF (DXX .EQ. BLK8) GO TO 1260 IF (NWDS .GT. LIMAF) GO TO 1350 IF (BASC) GO TO 1370 EFS = .TRUE. CALL FWDREC (*980,OFPX) CALL READ (*980,*980,OFPX,A,NWDS,0,FLAG) DO 540 I = 1,NWDS J = NUMTYP(A(I)) IF (J.EQ.0 .AND. I.GT.1) J = F(I-1) 540 F(I) = J IF (DEBUG) WRITE (NOUT,545) NWDS,(F(I),I=1,NWDS) 545 FORMAT (/,' NWDS/@540=',I3,' F=',50I2, /,(14X,50I2)) AGAIN = 0 CALL READ (*980,*570,OFPX,A,NWDS,0,FLAG) DO 550 I = 1,NWDS J = NUMTYP(A(I)) IF (F(I) .EQ. J) GO TO 550 IF (J .NE. 0) F(I) = -J AGAIN = 1 550 CONTINUE IF (AGAIN .EQ. 0) GO TO 570 CALL READ (*980,*570,OFPX,A,NWDS,0,FLAG) DO 560 I = 1,NWDS IF (F(I) .GT. 0) GO TO 560 J = NUMTYP(A(I)) IF (J .NE. 0) F(I) = J 560 CONTINUE IMHERE = 560 IF (DEBUG) WRITE (NOUT,545) IMHERE,(F(I),I=1,NWDS) 570 F(NWDS+1) = -9 CALL BCKREC (OFPX) CALL BCKREC (OFPX) NA4= 0 KK = 0 DO 580 I = 1,NWDS,8 KK = KK + 1 K = I + 7 IF (K .GT. NWDS) K = NWDS L = 10000000 DO 580 J = I,K F8(KK) = F8(KK) + F(J)*L NA4 = NA4 + F(J)+ 1 IF (F(J) .EQ. 3) NA4 = NA4 - 3 580 L = L/10 IF (DEBUG) WRITE (NOUT,590) NA4,(F8(I),I=1,KK) 590 FORMAT (/,' NA4 =',I4,' FORMAT CODE/@590 =',6I10) C 600 IF (KOUNT .GT. 1) GO TO 605 IF (.NOT.FMTTD) WRITE (OUTTP ) DXX,DASH IF ( FMTTD) WRITE (OUTTP,120) DXX,DASH C 605 IF (ECXYZ) GO TO 680 ECXYZ = .TRUE. NCSTM = 0 NSUB = 0 IF (.NOT.BASC) GO TO 680 C C DISPLACEMENT OFP FILE IS PRESENT, USER IS REQUESTING DISPLACEMENT C OUTPUT. C C REMEMBER, WE STILL HAVE THE EXT-INT GRID TABLE IN Z(1) THRU Z(NEQ) C IN INTERNAL GIRD NUMBER (2ND WORD OF THE EXT-INT PAIR) SORT. C NOW, OPEN BGPDT, READ IN THE BASIC GRID POINT DATA (4 WORDS EACH C GRID) AND ADD THE EXTERNAL GRID POINT ID IN FRONT OF THE DATA SET. C THUS WE CREATE A NEW TABLE AFTER THE EXT-INT TABLE. C C THE FOLLOWING 5 DATA WORDS FOR EACH GRID POINT: C EXTERNAL GRID ID C COORDINATE SYSTEM ID C X,Y,Z COORDINATES, IN BASIC COORD. SYSTEM C C MOVE THIS NEW TABLE TO THE BEGINNING OF OPEN CORE SPACE C OVERWRITING THE OLD EXT-INT TABLE WHICH HAS NO LONGER NEEDED, C FROM Z(1) THRU Z(NBGT) C SORT THIS NEW TABLE BY THE EXTERNAL GRID NUMBERS. C FILE = BGPDT CALL OPEN (*1300,BGPDT,Z(BUF2),RDREW) CALL FWDREC (*1300,BGPDT) K = -1 J = JB 610 CALL READ (*620,*620,BGPDT,Z(J+1),4,0,FLAG) K = K + 2 Z(J) = Z(K) J = J + 5 GO TO 610 620 CALL CLOSE (BGPDT,REW) IF (K+1 .NE. NEQ) CALL MESAGE (-61,0,0) NBGT = J - JB NBG5 = NBGT/5 DO 630 J = 1,NBGT 630 Z(J) = Z(J+JBM1) CALL SORT (0,0,5,1,Z(1),NBGT) IF (DEBUG) WRITE (NOUT,640) 1 (Z(J),Z(J+1),RZ(J+2),RZ(J+3),RZ(J+4),J=1,NBGT,5) 640 FORMAT (/11X,'EXT.GRID - COOR - X,Y,Z/@640',/,(10X,2I8,3E11.4)) C C OPEN CSTM FILE IF IT EXISTS. SAVE ALL COORDINATE TRANSFORMATION C MATRICES IN THE OPEN CORE SPACE IN Z(ICSTM) THRU Z(NCSTM), EITHER C AFTER THE EXT-COORD-X,Y,X TABLE, OR IN FRONT OF THE TABLE C ICSTM = NBGT + 1 NCSTM = NBGT FILE = CSTM CALL OPEN (*1300,CSTM,Z(BUF2),RDREW) CALL FWDREC (*1300,CSTM) CALL READ (*650,*650,CSTM,Z(ICSTM),LEFT,1,FLAG) CALL MESAGE (-8,0,SUB) 650 CALL CLOSE (CSTM,REW) NCSTM = NCSTM+FLAG CALL PRETRS (Z(ICSTM),FLAG) GO TO 680 C 660 WRITE (NOUT,670) UIM 670 FORMAT (A29,' FROM DATABASE MODULE - DISPLACEMENT VECTORS REMAIN', 1 ' IN GLOBAL COOR. SYSTEM', /5X, 2 'DUE TO BGPDT OR CSTM FILE BEING PURGED',/) BASC = .FALSE. C C NOW READ THE DISPLACMENT VECTORS (SUBCASES) FROM CURRENT OFP DATA C BLOCK, COMPUTE THE DISPLACEMENT FROM THE DISPLACMENT COORDINATE C BACK TO SYSTEM BASIC COORDINATE. SAVE THE VECTOR IN SCR1 FOR RE- C PROCESSING LATER. C C 2 (3 IF COMPLEX DATA) RECORDS PER ELEMENT TYPE, C SAME FORMAT AS GINO OUGV1 FILE C C UNFORMATTED TAPE - C C HEADER RECORD (UNFORMATTED) C C RECORD WORD CONTENT (UNFORMATTED) C ------ ---- ----------------------------------------------- C 1 1 SUBCASE OR MODE NUMBER, INTEGER C 2 ZERO OR FREQUENCY, REAL C 3 NWDS, NUMBER OF WORDS PER ENTRY IN NEXT RECORD, C INTEGER. (=8 FOR REAL DATA, OR =14 FOR COMPLEX C FOR ALL DISPLACEMENT RECORDS) C 4-5 ORIGINAL GINO FILE NAME, BCD C 6-7 ' BASIC ' OR 'GLOBAL ', BCD C 8-13 FORMAT CODE FOR NEXT RECORD, INTEGER C 8 DIGITS PER WORD, 1 FOR INTEGER C 2 FOR REAL C EX. 13222222 3 FOR BCD C 0 NOT APPLICABLE C 14-45 TITLE, BCD C 46-77 SUBTITLE, BCD C 78-109 LABEL, BCD C C DISPLACEMENT RECORDS (UNFORMATTED) C C RECORD WORD CONTENT (UNFORMATTED) C ------ ---- ----------------------------------------------- C 2 1 LENGTH, THIS FIRST WORD EXCLUDED, OF THIS C RECORD (INTEGER) C 2 EXTERNAL GRID POINT NUMBER (INTEGER) C 3 POINT TYPE (1=GRID PT. 2=SCALAR PT. C 3=EXTRA PT. 4=MODAL PT., INTEGER) C 4-9 DISPLACEMENTS (REAL PARTS, REAL C T1,T2,T3,R1,R2,R3) C 10-15 (COMPLEX DATA ONLY) C DISPLACEMENTS (IMGAGINARY PARTS, REAL C T1,T2,T3,R1,R2,R3) C : REPEAT WORDS 2 THRU 9 (OR 15) AS MANY TIMES AS C THERE ARE GRID POINT DISPLACEMENT DATA C : : REPEAT RECORD 2 AS MANY TIMES AS THERE ARE C SUBCASES (OR MODES) C C C FORMATTED TAPE - C C HEADER RECORD (FORMATTED) C C RECORD WORD CONTENT (FORMATTED) FORMAT C ------ ---- ----------------------------------------------- C 1 1-2 ' CASE = ' OR ' MODE = ' 8-LETTERS C 3 SUBCASE NUMBER I8 C 4 ZERO OR FREQUENCY 1P,E12.5 C 5-6 ' WORDS =' 8-LETTERS C 7 NWDS, NUMBER OF WORDS PER ENTRY IN NEXT I8 C RECORD (=8 FOR REAL DATA, OR =14 COMPLEX, C FOR ALL DISPLACEMENT RECORDS) C 8-9 ' INPUT =' 8-LETTERS C 10-11 ORIGINAL GINO FILE NAME 2A4 C 12-13 ' COORD =' 8-LETTERS C 14-15 ' BASIC ' OR 'GLOBAL ' 2A4 C 16-17 ' CODE =' 8-LETTERS C 18-23 FORMAT CODE 6I8 C 8 DIGITS PER WORD, 1 FOR INTEGER C 2 FOR REAL C EX. 13222200 3 FOR BCD C 0 NOT APPLICABLE C 23 NA4, NUMBER OF WORDS PER ENTRY IN NEXT (I8) C RECORD, IN A4-WORD COUNT (ONLY IF THE C LAST FORMAT CODE WORD IS NOT USED) C 2 1-32 TITLE, 32 BCD WORDS 32A4 C 3 33-64 SUBTITLE, 32 BCD WORDS 32A4 C 4 65-96 LABEL, 32 BCD WORDS 32A4 C (95-96 ELEMENT ID, STRESS AND FORCE ONLY 2A4) C C C DISPLACEMENT RECORDS (FORMATTED) C C RECORD WORD CONTENT (FORMATTED) FORMAT C ------ ------------------------------------------------------ C 5 1 EXTERNAL GRID POINT NUMBER I8 C 2 POINT TYPE (1=GRID PT. 2=SCALAR PT. I8 C 3=EXTRA PT. 4=MODAL PT.) C 3-8 DISPLACEMENTS (REAL PARTS, 6(1P,E12.5) C T1,T2,T3,R1,R2,R3) C 6 (COMPLEX DATA ONLY) C 1-6 DISPLACEMENTS (IMAGINARY PARTS, 6(1P,E12.5) C T1,T2,T3,R1,R2,R3) C : : REPEAT RECORD 5 (OR RECORDS 5 AND 6) AS MANY C TIMES AS THERE ARE GRID POINT DISPLACMENT DATA C LAST 1 MINUS 0 I8 C 2 MINUS 0 I8 C 3-8 ZEROS 6(1P,E12.5) C LAST+1 (COMPLEX DATA ONLY) C 1-6 ZEROS 6(1P,E12.5) C C IF CURRENT OFP DATA BLOCK IS AN ELEMENT STRESS OR ELEMENT FORCE C FILE, THE STRESS OR FORCE DATA HAVE VARIABLE LENGTH. (NWDS IS NO C LONGER 8 OR 14.) C C THE ELEMENT STRESS OR FORCE RECORDS - C C RECORD WORD CONTENT (UNFORMATTED) C ------ ------------------------------------------------------ C 2 1 NO. OF WORDS, EXCLUDING THIS FIRST WORD, C IN THIS RECORD. (INTEGER) C 2-NWDS+1 ELEMENT ID, STRESS OR FORCE DATA C (VARIABLE DATA TYPES ARE DESCRIBED IN 'CODE') C : REPEAT (2-NWDS+1) WORDS AS MANY TIMES AS C THERE ARE ELEMENTS C : : REPEAT RECORD 2 AS MANY TIMES AS THERE ARE C SUBCASES. C C WHERE NWDS IS THE NUMBER OF COMPUTER WORDS PER ENTRY, AND C CODE IS THE 6-WORD FORMAT CODE, AS DESCRIBED IN THE C HEADER RECORD. C C C RECORD WORD CONTENT (FORMATTED) FORMAT C ------ ------------------------------------------------------ C 5 1-NA4 ELEMENT ID, STRESS OR FORCE DATA 33A4 C (THE DATA TYPES ARE DESCRIBED IN C 'CODE'; ALL INTEGERS IN 2A4, REAL C NUMBERS IN 3A4, AND BCD IN A4) C : : (MAXIMUM RECORD LENGTH IS 132 COLUMNS (33A4) C CONTINUATION AND FOLDED INTO NEXT C RECORD(S) IF NECESSARY. C : : A CARRIAGE CONTROL WORD ALWAYS PRECEEDS C AN OUTPUT RECORD. THUS 1+132=133 COLUMNS C LAST DATA VALUE ON A RECORD MAY SPILL C TO THE NEXT RECORD) C : : REPEAT ABOVE RECORD(S) AS MANY TIMES C AS THERE ARE ELEMENTS. C C WHERE NA4 IS THE NUMBER OF WORDS PER ENTRY IN A4-WORD COUNT, C AND CODE IS 5-WORD FORMAT CODE C 680 FILE = OFPX IOUGV = NCSTM + 1 CALL READ (*980,*700,OFPX,Z(IOUGV),NZ-IOUGV,1,FLAG) CALL MESAGE (-37,FILE,SUB) 700 IF (FLAG .NE. 146) GO TO 1320 DSPL = MOD(Z(IOUGV+1),100) NWDS = Z(IOUGV+9) IF (.NOT.EFS .AND. NWDS.NE.8 .AND. NWDS.NE.14) GO TO 1320 NSUB = NSUB + 1 CAMO = CA CASE = Z(IOUGV+3) FREQ = 0.0 IF (DSPL.NE.7 .AND. DSPL.NE.14) GO TO 710 CAMO = MO CASE = Z (IOUGV+4) FREQ = RZ(IOUGV+5) 710 BAGL = BA IF (.NOT.BASC) BAGL = GL IF (FMTTD .AND. F8(6).EQ.0) F8(6) = NA4 IF (.NOT.EFS) GO TO 715 J = (Z(IOUGV+2)-1)*INCR Z(IOUGV+144) = E(J+1) Z(IOUGV+145) = E(J+2) 715 IF (.NOT.FMTTD) WRITE (OUTTP) 1 CASE,FREQ,NWDS,ONAME(JOS),ONAME(JOS+1),F8,(Z(J+IOUGV),J=50,145) IF ( FMTTD) WRITE (OUTTP,720) CAMO,CASE, 1 FREQ,NWDS,ONAME(JOS),ONAME(JOS+1),BAGL,F8,(Z(J+IOUGV),J=50,145) 720 FORMAT (1X,A8,I8,1P,E12.5,' WORDS =',I8,' INPUT =',2A4, 1 ' COORD =',A8,' CODE =',6I8, /1X,32A4, /1X,32A4, /1X,32A4) IF (FMTTD) GO TO 730 FILE = SCR1 CALL OPEN (*1300,SCR1,Z(BUF2),WRTREW) FILE = OFPX 730 CALL READ (*970,*870,OFPX,A,NWDS,0,FLAG) A(1) = A(1)/10 IF (EFS) GO TO 790 IF (DEBUG) WRITE (NOUT,740) A(1) 740 FORMAT (10X,'EXT.GRID/@740 =',I8) IF (BASC) GO TO 1200 750 IF (COOR .LE. 0) GO TO 790 C C TRANSFORM THE DISPLACEMENT VECTOR FROM GLOBAL TO BASIC C UPON RETURN FROM 800, TRANSFORMATION MATRIX IN T C DO 760 I = 3,NWDS 760 RX(I) = RA(I) CMPLX = 0 770 CALL GMMATS (T,3,3,0, RX(3),3,1,0, RA(3+CMPLX)) CALL GMMATS (T,3,3,0, RX(6),3,1,0, RA(6+CMPLX)) IF (NWDS.NE.14 .OR. CMPLX.EQ.6) GO TO 790 CMPLX = 6 DO 780 I = 3,8 780 RX(I) = RX(I+CMPLX) GO TO 770 C C WRITE THE 8 (OR 14) DATA WORDS OUT TO SCR1 FILE IF OUTTP IS C UNFORMATTED, OR WRITE TO OUTTP DIRECTLY IF OUTTP IS FORMATTED C 790 IF (FMTTD) GO TO 800 CALL WRITE (SCR1,A,NWDS,0) GO TO 730 800 IF (EFS) GO TO 830 WRITE (OUTTP,810,ERR=1390) A(1),A(2),(RA(K),K=3,8) 810 FORMAT (1X,2I8,6(1P,E12.5)) IF (NWDS .EQ. 14) WRITE (OUTTP,820,ERR=1390) (RA(K),K=9,14) 820 FORMAT (17X,6(1P,E12.5)) GO TO 730 C C ELEMENT STRESS AND ELEMENT FORCE HAVE MIXED DATA, CHANGE THEM ALL C TO BCD WORDS, AND WRITE THEM OUT TO OUTTP UNDER A4 FORMAT C MAXIMUM OF 132 COLUMNS PER LINE. C NOTE - LAST DATA VALUE ON OUTPUT LINE MAY SPILL INTO NEXT RECORD. C 830 L = 0 K = 0 840 K = K + 1 IF (F(K) .EQ. -9) GO TO 850 IF (L+3 .GT. LIMRX) GO TO 1340 CALL IFB2AR (F(K),A(K),IX,L) GO TO 840 850 WRITE (OUTTP,860,ERR=1390) (IX(K),K=1,L) 860 FORMAT (1X,33A4) GO TO 730 C C C JUST FINISH ONE VECTOR C C UNFORMATTED TAPE - C TRANSFER THIS VECTOR FROM SCR1 TO OUTTP IN ONE LONG RECORD C (NO ZERO RECORD) C LOOP BACK FOR NEXT VECTOR C 870 IF (FMTTD) GO TO 890 CALL WRITE (SCR1,0,0,1) CALL CLOSE (SCR1,REW) FILE = SCR1 CALL OPEN (*1300,SCR1,Z(BUF2),RDREW) CALL READ (*880,*880,SCR1,Z(IOUGV+1),NZ-IOUGV,1,K) CALL MESAGE (-8,FILE,SUB) 880 CALL CLOSE (SCR1,REW) Z(IOUGV) = K KIOUGV = K + IOUGV WRITE (OUTTP) (Z(J),J=IOUGV,KIOUGV) GO TO 510 C C FORMATTED TAPE - C (DISPLACEMENTS ALREDY WRITTEN OUT IN SHORT RECORDS) C WRITE A ZERO RECORD C AND LOOP BACK FOR NEXT VECTOR C 890 IF (EFS) GO TO 920 DO 900 I = 1,6 900 RX(I) = 0.0 WRITE (OUTTP,910,ERR=1390) (RX(I),I=1,6) 910 FORMAT (1X,2(6X,2H-0),6(1P,E12.5)) IF (NWDS .EQ. 14) WRITE (OUTTP,820,ERR=1390) (RX(I),I=1,6) GO TO 510 C C WRITE A ZERO RECORD FOR EL.STRESS OR EL.FORCE TYPE OF DATA C 920 L = 0 DO 960 I = 1,NWDS IX(L+2) = BLANK FI = F(I) GO TO (930,940,950), FI 930 IX(L+1) = IZERO L = L + 2 GO TO 960 940 IX(L+1) = BZERO IX(L+3) = BLANK L = L + 3 GO TO 960 950 L = L + 1 960 CONTINUE WRITE (OUTTP,860,ERR=1390) (IX(I),I=1,L) GO TO 510 C C END OF CURRENT OFP FILE C ADD AN ENDING RECORD TO OUTTP FILE AND ENDFILE C 970 CALL CLOSE (SCR1,REW) 980 CALL CLOSE (OFPX,REW) C DYY(OFPSET) = DXX SUBN(OFPSET) = NSUB CASE = 0 FREQ = 0.0 Z(1) = 0 J = 0 Z(J+2) = END1 Z(J+3) = END2 Z(J+4) = BLANK DO 985 J = 5,10 985 Z(J) = 0 DO 990 J = 11,106 990 Z(J) = BLANK IF (.NOT.FMTTD) WRITE (OUTTP) CASE,FREQ,(Z(J),J=1,106) IF ( FMTTD) WRITE (OUTTP,720,ERR=1390) CAMO,CASE,FREQ, 1 (Z(J),J=1,106) 1000 IF (OFP .LT. 3) GO TO 500 C C JOB DONE. WRITE A USER FRIENDLY MESSAGE OUT C ENDFILE OUTTP REWIND OUTTP SET = OFPSET IF (.NOT.NOBGPT) SET = SET + 1 IF (.NOT.NOGEOM) SET = SET + 1 J = BLANK IF (SET .GT. 1) J = LS K = 3 + 2*SET CALL PAGE2 (K) IF (OUTTP .GT. 12) GO TO 1010 NAM(1) = INPX(3) NAM(2) = OUTTP - 10 GO TO 1020 1010 NAM(1) = INPX(1) NAM(2) = OUTTP - 14 IF (OUTTP.NE.14 .AND. OUTTP.NE.25) GO TO 1020 WRITE (NOUT,1030) UIM,SET,J,INPX(2) GO TO 1040 1020 WRITE (NOUT,1030) UIM,SET,J,NAM(1),NAM(2) 1030 FORMAT (A29,' -', /5X,'DATABASE MODULE TRANSFERRED THE FOLLOWING', 1 I3,' SET',A1,' OF DATA TO OUTPUT FILE ',A4,I1) 1040 WRITE (NOUT,1050) OUTTP,FMT 1050 FORMAT (1H+,85X,'(FORTRAN UNIT',I3,1H),4A4) SET = 0 IF (NOBGPT) GO TO 1070 SET = SET + 1 WRITE (NOUT,1060) SET 1060 FORMAT (/4X,I2,'. GRID POINT DATA - EXTERNAL NUMBERS AND BASIC ', 1 'RECTANGULAR COORDINATES') 1070 IF (NOGEOM) GO TO 1090 SET = SET + 1 WRITE (NOUT,1080) SET 1080 FORMAT (/4X,I2,'. ELEMENT CONNECTIVITY DATA - ALL GRID POINTS ', 1 'ARE EXTERNAL NUMBERS') 1090 IF (OFPSET .EQ. 0) GO TO 1190 JSO = 1 DO 1180 J = 1,OFPSET SET = SET + 1 NSUB = SUBN(J) WRITE (NOUT,1100) SET,DYY(J),ONAME(JSO),ONAME(JSO+1) 1100 FORMAT (/4X,I2,2H. ,A8,' DATA FROM INPUT FILE ',2A4) IF (EFS) GO TO 1120 IF ( BASC) WRITE (NOUT,1110) IF (.NOT.BASC) WRITE (NOUT,1115) 1110 FORMAT (1H+,46X,', CONVERTED TO BASIC RECT. COORDINATES,') 1115 FORMAT (1H+,46X,', IN NASTRAN GLOBAL COORDINATE SYSTEM,') IF (DSPL.EQ.7 .OR. DSPL.EQ.14) GO TO 1140 1120 IF (.NOT.EFS) WRITE (NOUT,1125) NSUB IF ( EFS) WRITE (NOUT,1130) NSUB 1125 FORMAT (1H+,87X,I4,' SUBCASES') 1130 FORMAT (1H+,46X,I4,' SUBCASES') GO TO 1160 1140 WRITE (NOUT,1150) NSUB 1150 FORMAT (1H+,87X,I4,' FRQUENCIES') 1160 IF (NOBGPT .AND. NOGEOM) WRITE (NOUT,1170) 1170 FORMAT (/6X,'1. NONE') 1180 JSO = JSO + 2 RETURN C 1190 WRITE (NOUT,1170) RETURN C C INTERNAL ROUTINE TO SEARCH FOR THE EXTERNAL GRID POINT AND RETURN C THE DISPLACEMENT COORDINATE ID ASSOCIATE WITH THAT POINT, AND SET C THE POINTER TO WHERE THE COORDINATE TRANSFORMATION MATRIX DATA C BEGINS. C EXTERNAL GRID VS. COORD SYSTEM ID TABLE IN Z(1) THRU Z(NEQ), IN C EXTERNAL GRID SORT C THE COORDINATE TRANSFORMATION MATRICES IN Z(ICSTM) THRU Z(NCSTM), C (14 WORDS PER MATRIX, FROM GLOBAL TO BASIC) C 1200 GRID = A(1) KLO = 0 KHI = NBG5 LASTK= 0 1210 K = (KLO+KHI+1)/2 IF (LASTK .EQ. K) CALL MESAGE (-61,0,0) LASTK = K K5 = K*5 IF (GRID-Z(K5-4)) 1220,1240,1230 1220 KHI = K GO TO 1210 1230 KLO = K GO TO 1210 1240 COOR = Z(K5-3) IF (COOR .LE. 0) GO TO 750 CALL TRANSS (Z(K5-3),T) IF (.NOT.DEBUG) GO TO 750 WRITE (NOUT,1250) GRID,COOR,T 1250 FORMAT (20X,'EXT GRID, COORD.ID AND TRANSF.MATRIX/@1250 =',2I8, 1 /,(25X,3E13.5)) GO TO 750 C C ILLEGITIMATE DATA IN OUGV FILE, ADVANCE TO NEXT RECORD C 1260 CALL FWDREC (*980,OUGV) CALL FWDREC (*980,OUGV) GO TO 510 C C ERRORS C 1300 J = -1 GO TO 1400 1310 J = -2 GO TO 1400 1320 WRITE (NOUT,1325) UIM,ONAME(JSO),ONAME(JSO+1) 1325 FORMAT (A29,', DATABASE MODULE SKIPS OUTPUTING ',2A4, 1 ' FILE (OR PART OF THE FILE), DUE TO') WRITE (NOUT,1330) NWDS 1330 FORMAT (5X,'THE REQUEST OF AN ILLEGITIMATE DATA BLOCK.', 7X, 1 'NO. OF WORDS =',I6) GO TO 1380 1340 WRITE (NOUT,1325) UIM,ONAME(JSO),ONAME(JSO+1) WRITE (NOUT,1345) LIMRX 1345 FORMAT (5X,'THE RX WORKING ARRAY OF',I5,' WORDS IN DBASE ', 1 'SUBROUTINE IS NOT BIG ENOUGH TO RECEIVE OFP DATA.') GO TO 1360 1350 WRITE (NOUT,1325) UIM,ONAME(JSO),ONAME(JSO+1) WRITE (NOUT,1355) LIMAF 1355 FORMAT (5X,'THE A AND F WORKING ARRAYS OF',I4,' WORDS IN DBASE ', 1 'SUBROUTINE ARE NOT BIG ENOUGH TO RECEIVE OFP DATA.') 1360 WRITE (NOUT,1365) 1365 FORMAT (5X,'SUGGESTION - USE OUTPUT5 OR OUTPUT2 TO CAPTURE THE ', 1 'REQUESTED DATA BLOCK') GO TO 1260 1370 WRITE (NOUT,1325) UIM,ONAME(JSO),ONAME(JSO+1) WRITE (NOUT,1375) 1375 FORMAT (5X,'ELEMENT STRESSES OR FORCES CAN NOT BE OUTPUT IN ', 1 'BASIC COORDINATES AS REQUESTED') 1380 CALL CLOSE (OFPX,REW) GO TO 1000 1390 WRITE (NOUT,1395) 1395 FORMAT ('0*** SYSTEM FATAL ERROR WRITING FORMATTED TAPE IN DATA', 1 'BASE MODULE') IF (MACH .EQ. 3) WRITE (NOUT,1396) 1396 FORMAT (5X,'IBM USER - CHECK FILE ASSIGNMENT FOR DCB PARAMETER ', 1 'OF 133 BYTES') J = -37 1400 CALL MESAGE (J,FILE,SUB) RETURN C END C C C THE FOLLOWING PROGRAM WAS USED TO CHECKOUT THE UNFORMATTED TAPE C GENERATED BY DBASE. IT CAN BE SERVED AS A GUIDE TO OTHER USER WHO C WANTS TO ABSTRACT DATA FROM THAT TAPE. C C C+ PROGRAM RDBASE C C THIS FORTRAN PROGRAM READS THE UNFORMATTED OUTPUT FILE INP1 C (FORTRAN UNIT 15) GENERATED BY DATABASE MODULE C C (1) GRID POINTS DATA ARE READ AND SAVED IN GRID-ARRAY C (2) ELEMENTS DATA ARE READ AND SAVED IN ELM-ARRAY, C WITH ELEMENT NAMES AND POINTERS IN SAVE-ARRAY C (3) DISPLACEMENTS (VELOCITIES, ACCELERATIONS, LOADS, GRID-POINT C FORCE, OR EIGENVECTORS) DATA ARE READ AND SAVED IN DIS-ARRAY, C WITH SUBASES AND POINTERS IN SAVD-ARRAY C C TO READ ELEMENT FORCES OR ELEMENT STRESSES, (3) ABOVE NEEDS SOME C CHANGES. PARTICULARLY WE NEED THE INFORMATION IN CODE TO GIVE US C THE TYPE OF EACH DATA WORD IN THE DATA LINE. C ASSUME CODE(1) = 11222222 C CODE(2) = 31222000 C THIS MEANS C THE 1ST, 2ND, AND 10TH DATA WORDS ARE INTEGERS; C 9TH DATA WORD IS BCD; AND C 3RD THRU 8TH, 11TH, 12TH AND 13TH WORDS ARE REAL NUMBERS C C C ANY OF ABOVE 3 SETS OF DATA NEED NOT EXIST IN ORIGINAL INP1 FILE C C WRITTEN BY G.CHAN/UNISYS, JAN. 1989 C C+ IMPLICIT INTEGER (A-Z) C+ INTEGER GRID(5,500),ELM(35,300),DIS(11200),SAVE(4,10), C+ 1 SAVD(3,20),NAME(2),TITLE(32),SUBTTL(32), C+ 2 LABL(32),CODE(6) C+ REAL GRIR(5,1),RIS(1),FREQ C+ DOUBLE PRECISION GED,GD,EL,DS,ENDD,COORD C+ EQUIVALENCE (GRID(1),GRIR(1)),(DIS(1),RIS(1)) C+ DATA INTAP, NOUT, MAXGRD, MAXELM, MAXDIS, MAXWDS / C+ 1 15, 6, 500, 300, 11200, 35 / C+ DATA GD, EL, DS, END1 / C+ 1 8HGRID PTS, 8HELEMENTS, 8HDISPLCNT, 4H -EN / C C+ REWIND INTAP C C READ DATA IDENTICATION RECORD C C+ 10 READ (INTAP,END=500) GED C+ IF (NOUT .EQ. 6) WRITE (NOUT,20) GED C+ 20 FORMAT (1X,A8,'--------') C+ IF (GED .EQ. GD) GO TO 100 C+ IF (GED .EQ. EL) GO TO 200 C+ IF (GED .EQ. DS) GO TO 310 C+ STOP 'DATA TYPE UNKNOWN' C C PROCESS GRID DATA C ================= C C READ GRID POINT DATA, ONE LONG RECORD OF MIXED INTEGERS AND REALS C C+100 READ (INTAP,END=500) L,(GRID(J,1),J=1,L) C+ IF (NOUT .NE. 6) GO TO 10 C+ NGRID = L/5 C+ IF (NGRID .GT. MAXGRD) STOP 'GRID DIMENSION TOO SMALL' C+ WRITE (NOUT,110) NGRID C+110 FORMAT (1X,I8,'=TOTAL NO. OF GRID POINTS') C+ DO 130 I = 1,NGRID C+ WRITE (NOUT,120) GRID(1,I),GRID(2,I),GRIR(3,I),GRIR(4,I),GRIR(5,I) C+120 FORMAT (1X,2I8,3(1P,E12.5)) C+130 CONTINUE C+ GO TO 10 C C PROCESS ELEMENT DATA C ==================== C C+200 JS = 0 C+ JE = 0 C+ C+ READ ELEMENT HEADER RECORD, 8 WORDS C+ C+210 READ (INTAP,END=500) NAME,TYPE,SYMBOL,GRIDS,TOTAL,WDS,LINE C+ IF (NAME(1).EQ.END1 .AND. TYPE.EQ.0) GO TO 250 C+ IF (WDS .GT. MAXWDS) STOP 'ELM ROW DIMENSION TOO SMALL' C+ IF (JE .GT. MAXELM) STOP 'ELM COL DIMENSION TOO SMALL' C+ JB = JE + 1 C+ JE = JE + TOTAL C C READ ELEMENT DATA, ONE LONG RECORD PER ELEMENT TYPE (ALL INTEGERS) C C+ READ (INTAP) ((ELM(I,J),I=1,WDS),J=JB,JE) C+ JS = JS + 1 C+ IF (JS .GE. 10) STOP 'SAVE DIMENSION TOO SMALL' C C SAVE ELEMENT NAMES AND BEGINNING POINTERS IN SAVE-ARRAY C FOR EASY IDENTIFICATION C C+ SAVE(1,JS) = NAME(1) C+ SAVE(2,JS) = NAME(2) C+ SAVE(3,JS) = JB C+ SAVE(4,JS) = WDS C+ IF (NOUT .NE. 6) GO TO 210 C+ WRITE (NOUT,220) NAME,TYPE,SYMBOL,GRIDS,TOTAL,WDS,LINE C+220 FORMAT (1X,'ELEMNT =',2A4,' TYPE =',I4,2X,A2,' GRIDS =',I8, C+ 1 ' TOTAL =',I8,' WDS/EL=',I8, ' LINE =',I8) C+ DO 240 J = JB,JE C+ WRITE (NOUT,230) (ELM(I,J),I=1,WDS) C+230 FORMAT (1X,3I8,13I8, /,(1X,8X,15I8)) C+240 CONTINUE C+ GO TO 210 C C WRAP UP SAVE-ARRAY C C+250 JS = JS + 1 C+ SAVE(1,JS) = END1 C+ SAVE(2,JS) = NAME(2) C+ SAVE(3,JS) = JE + 1 C+ SAVE(4,JS) = 0 C+ IF (NOUT .NE. 6) GO TO 10 C+ WRITE (NOUT,260) C+ WRITE (NOUT,270) ((SAVE(I,J),I=1,4),J=1,JS) C+260 FORMAT (/30X,'THIS REFERENCE TABLE IS NOT PART OF INPUT FILE') C+270 FORMAT (40X,2A4,3H @ ,I4,', WORDS=',I3) C+ GO TO 10 C C PROCESS DISPLACEMENT DATA C ========================= C C C+300 STOP 'ERROR IN READING DISPLACEMENT DATA' C+ C+310 KB = 1 C+ KS = 0 C C READ DISPLACEMENT HEADER RECORD C C+320 KS = KS + 1 C+ IF (KS .GT. 20) STOP 'SAVD DEMINSION TOO SMALL' C+ READ (INTAP,END=390) CASE,FREQ,NWDS,NAME,COORD,CODE,TITLE,SUBTTL, C+ LABEL C+ IF (CASE+NWDS .EQ. 0) GO TO 390 C+ IF (NOUT .NE. 6) GO TO 340 C+ WRITE (NOUT,330) CASE,FREQ,NWDS,NAME,COORD,CODE(1),CODE(2),TITLE, C+ SUBTTL,LABEL C+330 FORMAT (' CASES =',I8,1P,E12.5,' WORDS =',I8,' INPUT =',2A4, C+ 1 ' COORD =',A8,' CODE = ',2I8, /,(1X,32A4)) C C DISPLACEMENT RECORS HAVE EITHER 8 OR 14 WORDS EACH DATA POINT C WITH CODE(1)=11222222, CODE(2) THRU (6) ARE ZEROS. C C C ------------------------------------------------------------------ C IF ELEMENT STRESS OR ELEMENT FORCE FILE IS READ HERE, NWDS IS A C VARIABLE, NOT NECESSARY 8 OR 14. ALL INTEGERS ARE IN 2A4 FORMAT C (8-DIGITS), ALL REAL NUMBERS IN 3A4 (12-DIGITS), AND BCD WORD IN C A4 (4-LETTERS). THERE ARE NA4 A4-WORDS FOR EACH ELEMENT THAT HOLD C NWDS DATA VALUES. MAXIMUM RECORD LENGTH IS 132 COLUMNS. ONE OR C MORE RECORDS ARE NEEDED PER ELEMENT. LAST DATA VALUE OF A RECORD C MAY SPILL INTO NEXT RECORD. NA4 IS THE 6TH WORD OF CODE. THE DATA C TYPE OF THIS RECORD IS DESCRIBED IN CODE. 1 FOR INTEGER, 2 FOR C REAL NUMBER, AND 3 FOR A BCD WORD. THERE ARE 5 CODE WORDS, EACH C HOLDS 8 DIGITS, AND ARE ARRANGED FROM LEFT TO RIGHT. C C FOR EXAMPLE - C CODE(1)=12212222, CODE(2)=22213200, CODE(3)=CODE(4)=CODE(5)=0 C INDICATE C DATA VALUES 1, 4 AND 12 ARE INTEGERS, DATA VALUE 13 IS ABCD WORD, C THE REST ARE REAL NUMBERS. C IN THIS EXAMPLE, NWDS SHOULD BE 14, C NA4 SHOULD = 3X2 + 10X3 + 1X1 = 37. C 2 RECORDS ARE NEEDED, 1ST RECORD 132 CHARACTERS LONG, 2ND RECORD C 16 CHARACTERS. THESE TWO RECORDS CAN BE READ BY ONE FORTRAN LINE C C READ (INTAP,10) (SS(J),J=1,NA4) C 10 FORMAT (33A4) OR BY C C READ (INTAP,20) IS(1),RS(2),RS(3),IS(4),(RS(J),J=5,11),IS(12) C READ (INTAP,30) IS(13),RS(14) C 20 FORMAT (I8,2F12.0,I8,7F12.0,I8) C 30 FORMAT (A4,F12.0) C ------------------------------------------------------------------ C C+340 IF (NWDS.NE.8 .AND. NWDS.NE.14) STOP 'WORD COUNT ERROR' C+ IF (CODE(1) .NE. 11222222) STOP 'FORMAT CODE ERROR' C C SAVE SUBCASE NUMBER AND BEGINNING POINTERS IN SAVD-ARRAY C FOR EASY IDENTIFICATION C C+ KBM1 = KB - 1 C+ SAVD(1,KS) = CASE C+ SAVD(2,KS) = KB C+ SAVD(3,KS) = NWDS C C READ DISPLACEMENT RECORD, ONE LONG RECORD PER SUBCASE (OR FREQ.) C EACH GRID POINT DISPLACEMENT DATA IN EVERY 8 OR 14 WORDS, C 2 INTEGERS + 6 (OR 12) REALS C C+350 READ (INTAP,ERR=300) L,(DIS(I+KBM1),I=1,L) C+ KE = L + KBM1 C+ DO 380 K = KB,KE,NWDS C+ WRITE (NOUT,360) DIS(K),DIS(K+1),(RIS(K+I),I=2, 7) C+ IF (NWDS .EQ. 14) WRITE (NOUT,370) (RIS(K+I),I=8,13) C+360 FORMAT (1X,2I8,6(1P,E12.5)) C+370 FORMAT (1X,16X,6(1P,E12.5)) C+380 CONTINUE C+ KB = KE + 1 C+ GO TO 320 C C WRAP UP SAVD-ARRAY C C+390 SAVD(1,KS) = 0 C+ SAVD(2,KS) = KE + 1 C+ SAVD(3,KS) = 0 C+ IF (NOUT .NE. 6) GO TO 10 C+ WRITE (NOUT,260) C+ WRITE (NOUT,400) (SAVD(1,K),SAVD(2,K),SAVD(3,K),K=1,KS) C+400 FORMAT (40X,'CASE',I8,3H @ ,I4,', WORDS=',I4) C+ GO TO 10 C C+500 REWIND INTAP END ================================================ FILE: mis/dcone.f ================================================ SUBROUTINE DCONE C C DIFFERENTIAL STIFFNESS FOR THE CONICAL SHELL. FMMS-68 C C CALLS FROM DCONE ARE MADE TO C MESAGE C MAT C INVERD C GMMATD C DS1B C C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = SIL PT A INTEGER C ECPT( 3) = SIL PT B INTEGER C ECPT( 4) = MATID 1 INTEGER C ECPT( 5) = TM (MEMBRANE THICK) REAL C ECPT( 6) = MATID 2 INTEGER C ECPT( 7) = I (MOM.OF INERTIA) REAL C ECPT( 8) = MATID 3 INTEGER C ECPT( 9) = TS (SHEAR THICKNESS) REAL C ECPT(10) = NON-STRUCTURAL-MASS REAL C ECPT(11) = Z1 REAL C ECPT(12) = Z2 REAL C ECPT(13) = PHI 1 REAL C ECPT(14) = PHI 2 REAL C ECPT(15) = PHI 3 REAL C ECPT(16) = PHI 4 REAL C ECPT(17) = PHI 5 REAL C ECPT(18) = PHI 6 REAL C ECPT(19) = PHI 7 REAL C ECPT(20) = PHI 8 REAL C ECPT(21) = PHI 9 REAL C ECPT(22) = PHI 10 REAL C ECPT(23) = PHI 11 REAL C ECPT(24) = PHI 12 REAL C ECPT(25) = PHI 13 REAL C ECPT(26) = PHI 14 REAL C ECPT(27) = COORD. SYS. ID PT.1 INTEGER C ECPT(28) = RADIUS PT. 1 REAL C ECPT(29) = DISTANCE TO PT.1 REAL C ECPT(30) = NULL REAL C ECPT(31) = COORD. SYS. ID PT.2 INTEGER C ECPT(32) = RADIUS PT 2 REAL C ECPT(33) = DISTANCE TO PT. 2 REAL C ECPT(34) = NULL REAL C ECPT(35) = ELEMENT TEMPERATURE REAL C ECPT(36) = ELEMENT DEFORMATION REAL C ECPT(37) = ELEMENT LOADING TEMPERATURE - GRID PT A REAL C ECPT(38) = ELEMENT LOADING TEMPERATURE - GRID PT B REAL C ECPT(39) = DISPLACEMENT COMPONENTS AT GRID POINT A REAL C ECPT(40) = ... REAL C ECPT(41) = ... REAL C ECPT(42) = ... REAL C ECPT(43) = ... REAL C ECPT(44) = ... REAL C ECPT(45) = DISPLACEMENT COMPONENTS AT GRID POINT B REAL C ECPT(46) = ... REAL C ECPT(47) = ... REAL C ECPT(48) = ... REAL C ECPT(49) = ... REAL C ECPT(50) = ... REAL C INTEGER NECPT(100) ,NERROR(2) ,NA(10) DOUBLE PRECISION INT(10,4) ,HUQ ,U(10) ,KQD , 1 A(5,3) ,HYQ(10) ,Q(8) ,KIJ , 2 B(7,3) ,EHT ,FAC(10) ,C(3,3) , 3 RA ,E11 ,TEMP ,ONE , 4 RB ,E12 ,TEMP1 ,OPI , 5 ZA ,E22 ,TEMP2 ,N2D33 , 6 ZB ,E33 ,TEMP3 ,SP2D22 , 7 RASQ ,D11 ,TEMP4 ,SP2D4 , 8 RBSQ ,D12 ,TEMP5 ,OQ , 9 PI ,D22 ,TEMP6 ,TDIF , O PIOVB ,D33 ,TEMP7 ,DEPS , 1 N ,TS ,NSPOPI ,DEPP , 2 N2 ,TM ,TWOD33 ,EPS , 3 SL ,NSP ,NOV4 ,EPP , 4 L2 ,NCP ,NSPOV4 ,TE11 , 5 SP ,SP2 ,N2OV4 ,TE12 , 6 CP ,CP2 ,SD22PI ,TE22 , 7 SUM ,SIGN ,GSHEAR ,TEMP48(48), 8 A0 ,A1 ,A2 ,A3 DOUBLE PRECISION B0 ,B1 ,B2 ,B3 , 1 C0 ,C1 ,D0 ,D1 , 2 DETERM ,CONSTD COMMON /DS1AAA/ NPVT ,DUMCL(34) ,NOGO COMMON /DS1AET/ ECPT(100) COMMON /DS1ADP/ HUQ(100) ,KQD(64) ,KIJ(36) ,EHT(96) , 1 E11 ,E12 ,E22 ,E33 COMMON /MATIN / MATID ,INFLAG ,ELTEMP ,STRESS , 1 SINTH ,COSTH COMMON /MATOUT/ G11 ,G12 ,G13 ,G22 , 1 G23 ,G33 ,RHOY ,ALPHA1 , 2 ALPHA2 ,ALPH12 ,DUM(10) COMMON /CONDAD/ CONSTD(5) EQUIVALENCE (G,G12) ,(ECPT(1),NECPT(1)) , 1 (ECPT(4),MATID1) ,(ECPT(6), MATID2) , 2 (ECPT(8),MATID3) ,(CONSTD(1), PI) DATA NA / 6*1, 2*2, 2*4/ DATA FAC / 1.0D0, 1.0D0, 2.0D0, 6.0D0, 24.0D0, 120.0D0, 1 720.0D0, 5040.0D0, 40320.0D0, 362880.0D0 / DATA ONE / 1.0D0 / C C C CALCULATE SHELL ORIENTATION CONSTANTS C SINTH = 0.0 COSTH = 1.0 NINT = NECPT(1)/1000 N = NECPT(1) - NINT*1000 - 1 RA = ECPT(28) ZA = ECPT(29) RB = ECPT(32) ZB = ECPT(33) TEMP1 = RB - RA TEMP2 = ZB - ZA L2 = TEMP1**2 + TEMP2**2 SL = DSQRT(L2) IF (SL) 30,20,30 20 NERROR(1) = NECPT(1)/1000 NERROR(2) = N + .3D0 CALL MESAGE (30,39,NERROR(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C 30 SP = TEMP1/SL CP = TEMP2/SL C C COMPUTE INTEGRALS I FOR M = 0,9 C MN N = 0,3 C C FOR EVALUATION OF INTEGRALS A = RA, B = SP C IF (SP) 60,40,60 C C COMPUTE INTEGRAL FOR B = 0 C C 1-N C PI RA M+1 C I = --------- SL (FOR ALL M,N .GE. 0) C M,N M + 1 C C C M = I - 1 WHERE I IS THE DO LOOP INDEX C N = J - 1 WHERE J IS THE DO LOOP INDEX C MPLUS1 THUS EQUALS I C 40 DO 50 I = 1,10 NBEGIN = NA(I) DO 50 J = NBEGIN,4 50 INT(I,J) = (PI*SL**I)/(DBLE(FLOAT(I))*RA**(J-2)) C GO TO 100 C C C COMPUTE INTEGRALS FOR (B .NE. 0) C C FIRST M = 0 CASE C C 2-N 2-N C PI ( RB - RA ) C I =-------------------- (N NOT EQUAL TO 2) C 0,N (2-N) B C C C FOR N=2 I = PI * (LOG RB - LOG RA) / B C 0,2 E E C C 60 RASQ = RA*RA RBSQ = RB*RB PIOVB = PI/SP C INT(1,1) = 0.5D0*PIOVB*(RBSQ - RASQ) INT(1,2) = PIOVB*(RB - RA) INT(1,3) = PIOVB*DLOG(RB/RA) INT(1,4) =-PIOVB*(ONE/RB - ONE/RA) C C C M = I WHERE I IS THE DO LOOP INDEX C N = J - 1 WHERE J IS THE DO LOOP INDEX C C WE ARE GETTING INTEGRAL(M,N) C M = POWER OF S C N = POWER OF R C C C EVALUATING AT R = RB THEN AT R = RA C C K NPOW C M FAC. M (-A) (R) C I = (PI)(-----------)( SUM ------------------------) + (TERM-X) C MN (M+1) K=0 (M-K)FAC.(K)FAC.(NPOW) C B (K.NE.M-N+2) (K.EQ.M-N+2) C C C WHERE NPOW = M - N - K + 2 C C C M-N+2 C (-A) LOG(R) C TERM-X = -------------------- C (M-N+2)FAC.(N-2)FAC. C C C NOTE IN DATA STATEMENT THAT 0 FACTORIAL = FAC(1) C 1 FACTORIAL = FAC(2) C 2 FACTORIAL = FAC(3) ETC. C DO 90 I = 1,9 MPLUS1 = I + 1 NBEGIN = NA(MPLUS1) DO 90 J = NBEGIN,4 SUM = 0.0D0 SIGN =-1.0D0 NPOW = I - J + 3 DO 80 KK = 1,MPLUS1 SIGN = -SIGN K = KK - 1 IF (K .EQ. NPOW) GO TO 70 KPOW = NPOW - K IFAC = MPLUS1 - K TEMP = KPOW SUM = SUM + SIGN*RA**K*(RB**KPOW - RA**KPOW)/ 1 (FAC(IFAC)*FAC(KK)*TEMP) GO TO 80 70 SUM = SUM + SIGN*RA**NPOW*DLOG(RB/RA)/(FAC(NPOW+1)*FAC(J-2)) 80 CONTINUE C INT(MPLUS1,J) = SUM*PI*FAC(MPLUS1)/SP**MPLUS1 90 CONTINUE 100 CONTINUE C C CRANK OUT HUQ MATRIX FOR ZERO HARMONIC C FOR EXPLICIT FORMULATION OF HUQ, SEE MS-28, PP.15,16 AND PP.24,25. C DO 105 I = 1,100 105 HUQ( I) = 0.0D0 HUQ( 1) = ONE HUQ( 13) = ONE HUQ( 25) = ONE HUQ( 36) = ONE HUQ( 41) = CP/RA HUQ( 49) = ONE HUQ( 51) = ONE HUQ( 52) = SL HUQ( 63) = ONE HUQ( 64) = SL HUQ( 75) = ONE HUQ( 76) = SL HUQ( 77) = L2 HUQ( 78) = HUQ(77)*SL HUQ( 86) = ONE HUQ( 87) = 2.0D0*SL HUQ( 88) = 3.0D0*HUQ(77) HUQ( 91) = CP/RB HUQ( 92) = HUQ(91)*SL HUQ( 99) = ONE HUQ(100) = SL C C IF TRANSVERSE SHEAR IS ZERO C C OR INERTIA = 0.0 C OR SHEAR MODULUS(G) = 0.0 C OR MATID2 = 0 C OR MATID3 = 0 C C THEN (HYQ) = (0). THEREFORE, USE HUQ MATRIX AS IS C IF (MATID2.EQ.0 .OR. MATID3.EQ.0) GO TO 130 IF (ECPT(9).EQ.0.0 .OR. ECPT(7).EQ.0.0) GO TO 130 INFLAG = 1 MATID = MATID3 ELTEMP = ECPT(35) CALL MAT (ECPT(1)) GSHEAR = G IF (G .EQ. 0.0) GO TO 130 INFLAG = 2 MATID = MATID2 ELTEMP = ECPT(35) CALL MAT (ECPT(1)) C C FORM C (D) = I*(G) C D11 = ECPT(7)*G11 D12 = ECPT(7)*G12 D22 = ECPT(7)*G22 D33 = ECPT(7)*G33 C TS = ECPT(9) C DO 110 I = 1,10 110 HYQ(I) = 0.0D0 CP2 = CP*CP SP2 = SP*SP N2 = N*N OPI = ONE/PI SD22PI = SP2*D22*OPI OQ = SL*TS*GSHEAR*(RA+RB)*0.5D0 + SD22PI*INT(1,3) OQ = ONE/OQ C HYQ(6) = OQ*INT(1,3)*SD22PI HYQ(7) = OQ*2.0D0*(D11 *(RA-RB) + INT(2,3)*SD22PI) HYQ(8) = OQ*(-D11*6.0D0*SL*RB + 3.0D0*INT(3,3)*SD22PI) C DO 120 I = 6,8 HUQ(I+30) = HUQ(I+30) - HYQ(I) 120 HUQ(I+80) = HUQ(I+80) - HYQ(I) C 130 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (10,HUQ(1),10,DUM,0,DETERM,ISING,TEMP48(1)) C C CHECK SINGULARITY C IF (ISING .NE. 2) GO TO 140 CALL MESAGE (30,40,NECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C 140 CONTINUE C C CALCULATE GENERALIZED DISPLACEMENT VECTOR(Q) C C *** *** C * T * C *(E )(U ) * C * A * C (Q) = (HUQ) *---------* C * T * C *(E )(U ) * C * B * C *** *** C C WHERE C 0 1 0 0 0 0 C T SP 0 CP 0 0 0 C MATRIX (E ) = CP 0 -SP 0 0 0 C 0 0 0 0 1 0 C 0 0 0 SP 0 CP C C K1 = 0 K2 = 0 320 U(K2+1) = DBLE(ECPT(K1+40)) U(K2+2) = DBLE(ECPT(K1+39))*SP + DBLE(ECPT(K1+41))*CP U(K2+3) = DBLE(ECPT(K1+39))*CP - DBLE(ECPT(K1+41))*SP U(K2+4) = DBLE(ECPT(K1+43)) U(K2+5) = DBLE(ECPT(K1+42))*SP + DBLE(ECPT(K1+44))*CP C IF (K1 .NE. 0) GO TO 400 K1 = 6 K2 = 5 GO TO 320 C 400 CALL GMMATD (HUQ(1),8,10,0,U(1),10,1,0,Q(1)) C C CALCULATE STRAIN COEFFICIENTS AND OBTAIN MATERIAL PROPERTY MATRIX C (E) C MATID = MATID1 INFLAG = 2 ELTEMP = ECPT(35) CALL MAT (ECPT(1)) E11 = G11 E12 = G12 E22 = G22 E33 = G33 TDIF = (DBLE(ECPT(38)) - DBLE(ECPT(37)))/SL DEPS = DBLE(ALPHA1)*TDIF DEPP = DBLE(ALPHA2)*TDIF EPS = DBLE(ALPHA1)*DBLE(ECPT(37)) EPP = DBLE(ALPHA2)*DBLE(ECPT(37)) C C COMPUTE COEFFICIENTS FOR POWER SERIES OF DIFFERENTIAL STIFF. COEFF C TM = ECPT(5) TEMP1 = SP*Q(3) + CP*Q(5) TEMP2 = SP*Q(4) + CP*Q(6) TEMP3 = Q(4) - EPS TE11 = TM*E11 TE12 = TM*E12 TE22 = TM*E22 C A0 = TE12*TEMP1 A1 = TE12*TEMP2 A2 = TE12*CP*Q(7) A3 = TE12*CP*Q(8) B0 = TE22*TEMP1 B1 = TE22*TEMP2 B2 = TE22*CP*Q(7) B3 = TE22*CP*Q(8) C0 = TE11*TEMP3 - TE12*EPP C1 =-TE11*DEPS - TE12*DEPP D0 = TE12*TEMP3 - TE22*EPP D1 =-TE12*DEPS - TE22*DEPP C C COMPUTE DIFFERENTIAL STIFFNESS COEFFICIENTS C DO 500 I = 1,3 IP1 = I + 1 IP2 = I + 2 IP3 = I + 3 DO 500 J = I,3 JP1 = J + 1 A(I,J) = A0*INT(I ,JP1) + A1*INT(IP1,JP1) + A2*INT(IP2,JP1) 1 + A3*INT(IP3,JP1) + C0*INT(I ,J ) + C1*INT(IP1,J ) B(I,J) = B0*INT(I ,JP1) + B1*INT(IP1,JP1) + B2*INT(IP2,JP1) 1 + B3*INT(IP3,JP1) + D0*INT(I ,J ) + D1*INT(IP1,J ) 500 C(I,J) = A(I,J) + B(I,J) C J = 1 JP1 = 2 DO 510 I = 2,5 IP1 = I + 1 IP2 = I + 2 IP3 = I + 3 510 A(I,J) = A0*INT(I ,JP1) + A1*INT(IP1,JP1) + A2*INT(IP2,JP1) 1 + A3*INT(IP3,JP1) + C0*INT(I ,J ) + C1*INT(IP1,J ) C J = 3 JP1 = 4 DO 520 I = 4,7 IP1 = I + 1 IP2 = I + 2 IP3 = I + 3 520 B(I,J) = B0*INT(I ,JP1) + B1*INT(IP1,JP1) + B2*INT(IP2,JP1) 1 + B3*INT(IP3,JP1) + D0*INT(I ,J ) + D1*INT(IP1,J ) C C COMPUTE KQD C FOR EXPLICIT FORMULATION OF KQD, SEE MS-31, PP. 8-11 C CASE ONE.. HARMONIC NUMBER = ZERO C DO 600 I = 1,64 600 KQD(I) = 0.0D0 SP2D4 = SP2*0.25D0 KQD( 1) = CP2*B(1,3) + SP2D4*C(1,3) KQD( 2) = CP2*B(2,3) + 0.25D0*SP*C(1,2) + SP2D4*C(2,3) KQD( 9) = KQD(2) KQD(10) = CP2*B(3,3) + (C(1,1) + 2.0D0*SP*C(2,2) $ + SP2*C(3,3))*0.25D0 KQD(46) = A(1,1) KQD(47) = A(2,1)*2.0D0 KQD(48) = A(3,1)*3.0D0 KQD(54) = KQD(47) KQD(55) = A(3,1)*4.0D0 KQD(56) = A(4,1)*6.0D0 KQD(62) = KQD(48) KQD(63) = KQD(56) KQD(64) = A(5,1)*9.0D0 C C CHECK HARMONIC NUMBER C IF (N .EQ. 0.0D0) GO TO 800 C C CASE TWO.. HARMONIC NUMBER .NE. ZERO C NOV4 = N*0.25D0 NSPOV4 = NOV4*SP NCP = N*CP N2OV4 = NOV4*N KQD( 3) = NSPOV4*C(1,3) KQD( 4) = NSPOV4*C(2,3) KQD( 5) = NCP*B(1,3) KQD( 6) = NCP*B(2,3) KQD( 7) = NCP*B(3,3) KQD( 8) = NCP*B(4,3) KQD(11) = NOV4*(C(1,2) + SP*C(2,3)) KQD(12) = NOV4*(C(2,2) + SP*C(3,3)) KQD(13) = NCP*B(2,3) KQD(14) = NCP*B(3,3) KQD(15) = NCP*B(4,3) KQD(16) = NCP*B(5,3) KQD(17) = KQD( 3) KQD(18) = KQD(11) KQD(19) = N2OV4*C(1,3) KQD(20) = N2OV4*C(2,3) KQD(25) = KQD( 4) KQD(26) = KQD(12) KQD(27) = KQD(20) KQD(28) = N2OV4*C(3,3) KQD(33) = KQD( 5) KQD(34) = KQD(13) KQD(37) = N2*B(1,3) KQD(38) = N2*B(2,3) KQD(39) = N2*B(3,3) KQD(40) = N2*B(4,3) KQD(41) = KQD( 6) KQD(42) = KQD(14) KQD(45) = KQD(38) KQD(46) = KQD(46) + N2*B(3,3) KQD(47) = KQD(47) + N2*B(4,3) KQD(48) = KQD(48) + N2*B(5,3) KQD(49) = KQD( 7) KQD(50) = KQD(15) KQD(53) = KQD(39) KQD(54) = KQD(47) KQD(55) = KQD(55) + N2*B(5,3) KQD(56) = KQD(56) + N2*B(6,3) KQD(57) = KQD( 8) KQD(58) = KQD(16) KQD(61) = KQD(40) KQD(62) = KQD(48) KQD(63) = KQD(56) KQD(64) = KQD(64) + N2*B(7,3) C C COMPUTE HUQ FOR NTH HARMONIC C DO 690 I = 1,100 690 HUQ( I) = 0.0D0 HUQ( 1) = ONE HUQ( 13) = ONE HUQ( 25) = ONE HUQ( 36) = ONE HUQ( 41) = CP/RA HUQ( 45) = N /RA HUQ( 49) = ONE HUQ( 51) = ONE HUQ( 52) = SL HUQ( 63) = ONE HUQ( 64) = SL HUQ( 75) = ONE HUQ( 76) = SL HUQ( 77) = L2 HUQ( 78) = HUQ(77)*SL HUQ( 86) = ONE HUQ( 87) = 2.0D0*SL HUQ( 88) = 3.0D0*HUQ(77) HUQ( 91) = CP/RB HUQ( 92) = HUQ(91)*SL HUQ( 95) = N /RB HUQ( 96) = HUQ(95)*SL HUQ( 97) = HUQ(95)*L2 HUQ( 98) = HUQ(96)*L2 HUQ( 99) = ONE HUQ(100) = SL C C COMPUTE HYQ C IF (MATID2.EQ.0 .OR. MATID3.EQ.0) GO TO 710 IF (ECPT(9).EQ.0.0 .OR. ECPT(7).EQ.0.0) GO TO 710 IF (GSHEAR .EQ. 0.0D0) GO TO 710 C N2D33 = N2 *D33 SP2D22 = SP2*D22 OQ = SL*TS*GSHEAR*(RA+RB)*0.5D0 + INT(1,3)*(N2D33+SP2D22)*OPI OQ = ONE/OQ NSP = N*SP NCP = N*CP NSPOPI = NSP*OPI TWOD33 = 2.0D0*D33 TEMP1 = D12*(ONE/RB - ONE/RA) TEMP2 = NSPOPI*(D22 + D33) TEMP3 = N*NSPOPI*(TWOD33 + D22) TEMP4 = OQ*0.5D0*N2D33*CP*OPI TEMP5 = OPI*(N2*TWOD33 + SP2D22) TEMP6 = D12*N2*L2/RB TEMP7 = NSPOPI*CP*0.50D0 C HYQ( 1) = OQ*(TEMP1*NCP - TEMP7*INT(1,4)*(D33 + 2.0D0*D22)) HYQ( 2) = OQ*(NCP*SL/RB*D12 - TEMP7*INT(2,4)*(3.0D0*D33 + D22) + 1 1.5D0*NCP*OPI*INT(1,3)*D33) HYQ( 3) = TEMP4*INT(1,4) HYQ( 4) = TEMP4*INT(2,4) HYQ( 5) = OQ*(TEMP1*N2 - TEMP3*INT(1,4)) HYQ( 6) = OQ*(D12*N2*SL/RB - TEMP3*INT(2,4) + TEMP5*INT(1,3)) HYQ( 7) = OQ*(2.0D0*D11*(RA-RB) + TEMP6 + 2.0D0*INT(2,3)*TEMP5 $ - TEMP3*INT(3,4)) HYQ( 8) = OQ*(-D11*6.0D0*SL*RB + TEMP6*SL + 3.0D0*INT(3,3)*TEMP5 $ - TEMP3*INT(4,4)) HYQ( 9) =-OQ*TEMP2*INT(1,3) HYQ(10) = OQ*(N*SL*(D12 + D33) - TEMP2*INT(2,3)) C DO 700 I = 1,10 HUQ(I+30) = HUQ(I+30) - HYQ(I) 700 HUQ(I+80) = HUQ(I+80) - HYQ(I) C 710 CONTINUE C C AGAIN SET ISING TO -1 C ISING = -1 CALL INVERD (10,HUQ(1),10,DUM,0,DETERM,ISING,TEMP48(1)) IF (ISING .NE. 2) GO TO 720 CALL MESAGE (30,40,NECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C 720 CONTINUE C C COMPLETE SOLUTION BY TRANSFORMING KQD TO GLOBAL COORDINATES C C T T C (K ) = (E)(H )(KQD)(H)(E ) FOR I = PIVOT POINT C IJ I J J = A,B C C FIRST OBTAIN PRODUCTS C T C EHAT = (E)(H ) AND STORE AT EHT(1) . . . EHT(48) C A C C T C EHBT = (E)(H ) AND STORE AT EHT(49). . . EHT(96) C B C C 0 CP SP 0 0 C 1 0 0 0 0 C C 0 CP -SP 0 0 C C MATRIX E = C 0 0 0 0 SP C C 0 0 0 1 0 C C 0 0 0 0 CP C 800 INC1 = 0 INC2 = 0 810 DO 820 I = 1,8 KROW = I + INC1 NCOL = (I-1)*10 + INC2 EHT(KROW ) = SP*HUQ(NCOL+2) + CP*HUQ(NCOL+3) EHT(KROW+ 8) = HUQ(NCOL+1) EHT(KROW+16) = CP*HUQ(NCOL+2) - SP*HUQ(NCOL+3) EHT(KROW+24) = SP*HUQ(NCOL+5) EHT(KROW+32) = HUQ(NCOL+4) 820 EHT(KROW+40) = CP*HUQ(NCOL+5) IF(INC1 .GT. 0) GO TO 830 INC1 = 48 INC2 = 5 GO TO 810 C C CHECK FOR PIVOT POINT NUMBER C 830 DO 840 I = 1,2 IF (NPVT .EQ. NECPT(I+1)) GO TO 850 840 CONTINUE C C FALL THRU LOOP IMPLIES NO PIVOT POINT NUMBER C CALL MESAGE (-30,34,ECPT(1)) C 850 NPIVOT = I CALL GMMATD ( EHT(48*NPIVOT-47),6,8,0, KQD(1),8,8,0, TEMP48(1) ) C C IF N = 0 DOUBLE RESULT C IF (N .NE. 0.0D0) GO TO 870 DO 860 I = 1,48 860 TEMP48(I) = 2.0D0*TEMP48(I) C 870 DO 880 J = 1,2 CALL GMMATD (TEMP48(1),6,8,0,EHT(48*J-47),6,8,1,KIJ(1)) 880 CALL DS1B (KIJ(1),NECPT(J+1)) C RETURN END ================================================ FILE: mis/dcross.f ================================================ SUBROUTINE DCROSS(X,Y,Z) C C DOUBLE PRECISION CROSS PRODUCT C DOUBLE PRECISION X(3) ,Y(3) ,Z(3) C Z(1) = X(2)*Y(3) - X(3)*Y(2) Z(2) = Y(1)*X(3) - Y(3)*X(1) Z(3) = X(1)*Y(2) - X(2)*Y(1) RETURN END ================================================ FILE: mis/ddamat.f ================================================ SUBROUTINE DDAMAT C C DDAMAT A,B/C/C,Y,GG=1. $ C C DDAMAT TAKES THE OUTER PRODUCT OF MATRICES A AND B, AND MULTIPLES C BY GG TO GET C, I.E. CIJ=GG*(AIJ*BIJ). ALSO, IF B HAS ONLY ONE C COLUMN, AND NUMBER OF COLUMNS OF A .GT. 1, THEN USE THAT COLUMN C ON EACH COLUMN OF A. C INTEGER A,B,C,BUF1,BUF2,BUF3 DOUBLE PRECISION DZ(1), DGG, GGDZ DIMENSION NAM(2),MCB(7) COMMON /UNPAKX/ JOUT,III,NNN,JNCR COMMON /PACKX / IIN,IOUT,II,NN,INCR COMMON /SYSTEM/ IBUF(80) COMMON /BLANK / GG COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (IPREC,IBUF(55)),(Z(1),DZ(1)) DATA A,B,C / 101,102,201 / DATA NAM / 4HDDAM,4HAT / C C SET PACK AND UNPACK PARAMETER C JOUT = IPREC IIN = IPREC IOUT = IPREC INCR = 1 JNCR = 1 II = 1 III = 1 C C SET OPEN CORE C LCORE = KORSZ(Z) BUF1 = LCORE - IBUF(1) + 1 BUF2 = BUF1 - IBUF(1) BUF3 = BUF2 - IBUF(1) LCORE = BUF3 - 1 IF (LCORE .LE. 0) GO TO 1008 C MCB(1) = A CALL RDTRL (MCB) NCOLA = MCB(2) NROWA = MCB(3) MCB(1) = B CALL RDTRL (MCB) NCOLB = MCB(2) NROWB = MCB(3) IF (NROWA .NE. NROWB) GO TO 1007 IF (LCORE .LT. 2*NROWA*IPREC) GO TO 1008 C C NO. OF COLUMNS OF A AND B MUST BE EQUAL OR C NO. OF COLUMNS OF B MUST BE 1 C IF (NCOLA .EQ. NCOLB) GO TO 5 IF (NCOLB .EQ. 1) GO TO 5 GO TO 1007 C 5 NN = NROWA NNN = NROWA MCB(1) = C MCB(2) = 0 MCB(3) = NROWA MCB(6) = 0 MCB(7) = 0 IF (IPREC .EQ. 2) DGG = GG C CALL GOPEN (A,Z(BUF1),0) CALL GOPEN (B,Z(BUF2),0) CALL GOPEN (C,Z(BUF3),1) C C UNPACK A COLUMN OF A AND B, COMPUTE PRODUCTS, AND PACK TO C. C IF I.GT.1 AND B=1, USE THE ONE COLUMN OF B OVER AGAIN. C DO 70 I = 1,NCOLA C INULL = 0 GO TO (10,40), IPREC 10 GGZ = GG CALL UNPACK (*11,A,Z(1)) GO TO 12 11 INULL = 1 12 IF (I.GT.1 .AND. NCOLB.EQ.1) GO TO 20 CALL UNPACK (*15,B,Z(NROWA+1)) GO TO 20 15 INULL = 1 DO 16 J = 1,NROWA 16 Z(NROWA+J) = 0. 20 IF (INULL .EQ. 1) GGZ = 0. DO 30 J = 1,NROWA Z(J) = GGZ*Z(J)*Z(NROWA+J) 30 CONTINUE CALL PACK (Z(1),C,MCB) GO TO 70 40 GGDZ = DGG CALL UNPACK (*41,A,DZ(1)) GO TO 42 41 INULL = 1 42 IF (I.GT.1 .AND. NCOLB.EQ.1) GO TO 50 CALL UNPACK (*45,B,DZ(NROWA+1)) GO TO 50 45 INULL = 1 DO 46 J = 1,NROWA 46 DZ(NROWA+J) = 0.D0 50 IF (INULL .EQ. 1) GGDZ = 0.D0 DO 60 J = 1,NROWA ISUB = NROWA + J DZ(J) = GGDZ*DZ(J)*DZ(ISUB) 60 CONTINUE CALL PACK (DZ(1),C,MCB) C C DO ANOTHER COLUMN C 70 CONTINUE C CALL WRTTRL (MCB) CALL CLOSE (A,1) CALL CLOSE (B,1) CALL CLOSE (C,1) RETURN C C FATAL ERROR MESSAGE C 1007 K = -7 GO TO 1010 1008 K = -8 1010 CALL MESAGE (K,0,NAM) RETURN END ================================================ FILE: mis/ddampg.f ================================================ SUBROUTINE DDAMPG C C DDAMPG MP,PVW/PG/V,N,NMODES/V,N,NDIR $ C C MP IS MGG*PHIG, PVW IS (PF)*SSDV*OMEGA, PARTICIPATION FACTORS X C SHOCK SPECTRUM DESIGN VALUES X RADIAN FREQUENCIES. C MP IS (NXM). IF PVW IS A VECTOR (MX1), WE WANT TO MULTIPLY THE C ITH. TERM INTO THE ITH. COLUMN OF MP. PG IS THEN NXM. C IF PVW IS A MATRIX (MXL), WE REPEAT THE PREVIOUS COMPUTATION FOR C EACH OF THE L VECTORS, MAKING PG (NX(MXL)). C NMODES IS NUMBER OF MODES. NDIR IS NUMBER OF SHOCK DIRECTIONS C INTEGER MP,PVW,PG,BUF1,BUF2,BUF3,FILE DIMENSION NAM(2),MCB(7) COMMON /UNPAKX/ JOUT,III,NNN,JNCR COMMON /PACKX / IIN,IOUT,II,NN,INCR COMMON /SYSTEM/ IBUF(80) COMMON /BLANK / NMODES,NDIR COMMON /ZZZZZZ/ Z(1) DATA MP,PVW, PG /101,102,201/ DATA NAM / 4HDDAM,4HPG / C C SET UP OPEN CORE AND BUFFERS C LCORE = KORSZ(Z) BUF1 = LCORE - IBUF(1) + 1 BUF2 = BUF1 - IBUF(1) BUF3 = BUF2 - IBUF(1) LCORE = BUF3 - 1 IF (LCORE .LE. 0) GO TO 1008 C C PICK UP ROW AND COLUMN STATISTICS AND SET PACK/UNPACK PARAMETERS C MCB(1) = MP CALL RDTRL (MCB) NCOLMP = MCB(2) NMODES = NCOLMP NROWMP = MCB(3) MCB(1) = PVW CALL RDTRL (MCB) NCOLPV = MCB(2) NDIR = NCOLPV NROWPV = MCB(3) MCB4 = MCB(4) MCB5 = MCB(5) C C IF (LCORE .LT. NROWPV+NROWMP) GO TO 1008 IF (NCOLMP .NE. NROWPV) GO TO 1007 MCB(1) = PG MCB(2) = 0 MCB(3) = NROWMP MCB(4) = MCB4 MCB(5) = MCB5 MCB(6) = 0 MCB(7) = 0 C JOUT = 1 IIN = 1 IOUT = 1 II = 1 III = 1 NN = NROWMP INCR = 1 JNCR = 1 C CALL GOPEN (MP,Z(BUF1),0) CALL GOPEN (PVW,Z(BUF2),0) CALL GOPEN (PG,Z(BUF3),1) C DO 130 IJK = 1,NCOLPV NNN = NROWPV CALL UNPACK (*20,PVW,Z(1)) GO TO 60 C C NULL COLUMN FOR PVW-WRITE OUT NCOLMP ZERO COLUMNS OF LENGTH NROWMP C 20 DO 30 K = 1,NROWMP 30 Z(K) = 0. DO 56 K = 1,NCOLMP CALL PACK (Z,PG,MCB) 56 CONTINUE GO TO 125 C 60 DO 120 J = 1,NCOLMP NNN = NROWMP CALL UNPACK (*80,MP,Z(NROWPV+1)) GO TO 100 C 80 DO 90 K = 1,NROWMP Z(NROWPV+K) = 0. 90 CONTINUE GO TO 115 C 100 DO 110 K = 1,NROWMP ISUB = NROWPV + K Z(ISUB) = Z(ISUB)*Z(J) 110 CONTINUE 115 CALL PACK (Z(NROWPV+1),PG,MCB) 120 CONTINUE 125 CALL REWIND (MP) FILE = MP CALL FWDREC (*1002,MP) 130 CONTINUE C CALL WRTTRL (MCB) CALL CLOSE (MP,1) CALL CLOSE (PVW,1) CALL CLOSE (PG,1) C RETURN C C FATAL ERRORS C 1002 N = -2 GO TO 1010 1007 N = -7 GO TO 1010 1008 N = -8 FILE = 0 1010 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/ddcmps.f ================================================ SUBROUTINE DDCMPS C C DDCMPS IS THE DMAP DRIVER FOR SDCMPS C C SDCMPS USET,GPL,SIL,KAA/LLL,ULL/SYM=0/DIAGCK=0/DIAGET=20/ C PDEFCK=0/SING=0/SET=L/CHLSKY=0/DET=0.0D0/MINDIA=0.0D0/ C POWER=0/SUBNAM=NONE C C SYM = 1 - USE SYMMETRIC DECOMPOSITION C 0 - CHOOSE WHICH DECOMPOSITION BASED ON INPUT MATRIX C -1 - USE UNSYMETRIC DECOMPOSITION C DIAGCK = DIAGONAL SINGULARITY CHECK (SDCMPS) C - = NO CHECK (SDCMPS) C 0 = NONFATAL (SDCMPS) C + = MAX ALLOWED FATAL (SDCMPS) C DIAGET = DIAGONAL SINGULARITY ERROR TOLERANCE. (SDCMPS) C PDEFCK = POSITIVE DEFINATE CHECK (SDCMPS) C - = NO CHECK (SDCMPS) C 0 = NONFATAL (SDCMPS) C + = MAX ALLOWED FATAL (SDCMPS) C SING = SINGULARITY OUTPUT FLAG C 1 = OK C 0 = NONCONSERVATIVE OR ES FAILURE C -1 = SINGULAR OR LIMITS EXCEEDED C SET = SET MATRIX BELONGS TO (SDCMPS) C CHLSKY = 1 USE CHOLESKY DECOMPOSITION LLL = C C DET = DETERMINANT OF KAA C MINDIA = MINIMUM DIAGONAL OF ULL C POWER = SCALE FACTOR FOR DET C SUBNAM = SUBSTRUCTURE NAME (SDCMPS) C LOGICAL OPNSCR ,FIRST INTEGER BUF6 ,CHLSKY ,DIAGCK ,DIAGET ,NAME(2) , 1 NAM(2) ,OUTPT ,PARM ,PDEFCK ,POWER , 2 RECT ,SET ,SING ,SQR ,SYM , 3 ULL REAL ZZ(1) ,ZZZ(1) ,ZZZZ(1) ,ZM(1) DOUBLE PRECISION CDET ,CMNDIA ,MINDIA ,SDETC ,MINDS , 1 DDET ,DMNDIA ,SDET CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 ,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM ,SWM COMMON /BLANK / ISYM ,DIAGCK ,DIAGET ,PDEFCK ,SING , 1 SET(2) ,CHLSKY ,DET(2) ,MINDIA ,POWER , 2 SUBNAM(2) COMMON /SDCQ / NERR(2) ,NOGLEV ,BUF6 ,ISCMSG ,ISCDIA , 1 ISTSCR ,KPDFCK ,KDGCK ,KDGET ,KPREC , 2 PARM(4) ,OPNSCR ,FIRST COMMON /SFACT / IFILA(7) ,IFILL(7) ,IFILU(7) ,KSCR1 , 1 KSCR2 ,NZ ,SDET ,SDETC ,KPOW , 2 KSCR3 ,MINDS ,ICHLK COMMON /DCOMPX/ IA(7) ,IL(7) ,IU(7) ,ISCR1 , 1 ISCR2 ,ISCR3 ,DDET ,IPOW , 3 NZZ ,DMNDIA ,IB COMMON /CDCMPX/ JA(7) ,JL(7) ,JU(7) ,JSCR1 , 1 JSCR2 ,JSCR3 ,CDET(2) ,JPOW , 3 NZZZ ,CMNDIA ,JB COMMON /NAMES / KNAMES(19) COMMON /SYSTEM/ KSYSTM(69) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (ZZ(1),Z(1)) EQUIVALENCE (ZZZ(1),Z(1)) EQUIVALENCE (ZZZZ(1),Z(1)) EQUIVALENCE (ZM(1),Z(1)) EQUIVALENCE (KSYSTM( 1),NBUFSZ) ,(KSYSTM( 2),OUTPT) , 1 (KNAMES(12),SQR ) ,(KNAMES(13),RECT ) , 2 (KNAMES(17),SYM ) DATA LUSET , LGPL ,LSIL ,KAA ,LLL ,ULL ,LSCR1,LSCR2,LSCR3 / 1 101 , 102 ,103 ,104 ,201 ,202 ,301 ,302 ,303 / DATA LSCR4 , LSCR5,LSCR6/ 1 304 , 305 ,306 / DATA NAME / 4HDDCM, 4HPS / DATA NAM / 4HSDCM, 4HPS / C C NOTE SYM DECOMP DOES NOT OUTPUT ULL C C OPNSCR = .FALSE. FIRST = .TRUE. SING = 1 JA(1) = KAA CALL RDTRL (JA) IF (JA(1) .LT. 0) GO TO 490 IFORM = JA(4) IF (ISYM) 10,50,30 10 IF (IFORM .NE. SYM) GO TO 20 CALL PAGE2 (2) WRITE (OUTPT,15) SWM,NAM 15 FORMAT (A27,' 2340, MODULE ',2A4,' HAS BEEN REQUESTED TO DO ', 1 'UNSYMETRIC DECOMPOSITION OF A SYMETRIC MATRIX') 20 IFORM = RECT IF (JA(2) .EQ. JA(3)) IFORM = SQR GO TO 50 C 30 IF (IFORM .EQ. SYM) GO TO 50 CALL PAGE2 (2) WRITE (OUTPT,40) SWM,NAM 40 FORMAT (A27,' 2341, MODULE ',2A4,' HAS BEEN FURNISHED A SQUARE ', 1 'MATRIX MARKED UNSYMETRIC FOR SYMETRIC DECOMPOSITION.') IFORM = SYM 50 ISYM = -1 IF (IFORM .EQ. SYM) ISYM = 1 JA(4) = IFORM I = 0 IF (JA(2) .EQ. JA(3)) GO TO 60 CALL PAGE2 (2) I = 1 WRITE (OUTPT,55) SWM,NAM 55 FORMAT (A27,' 2375, MODULE ',2A4,' HAS BEEN REQUESTED TO ', 1 'DECOMPOSE A RECTANGULAR MATRIX') 60 CONTINUE IF (ISYM .LT. 0) GO TO 200 C C SET UP CALL TO SDCOMP C IF (I .NE. 0) GO TO 500 IFILA(1) = KAA CALL RDTRL (IFILA) IFILL(1) = LLL IFILU(1) = LSCR4 KSCR1 = LSCR1 KSCR2 = LSCR2 KSCR3 = LSCR3 IFILL(5) = IFILA(5) ICHLK = CHLSKY IF (IFILA(5) .LE. 2) GO TO 100 NZ = KORSZ (Z) CALL SDCOMP (*400,Z,Z,Z) GO TO 130 100 NZ = KORSZ(ZZZZ) ISCMSG = LSCR5 ISCDIA = LSCR6 KPDFCK = PDEFCK KDGCK = DIAGCK KDGET = DIAGET CALL SDCMPS (ZZZZ,ZZZZ,ZZZZ) IF (NERR(1)+NERR(2) .EQ. 0) GO TO 110 BUF6 = KORSZ(ZM) - 2*NBUFSZ + 1 IF (BUF6+NBUFSZ .LE. 0) GO TO 510 CALL SDCMM (ZM,SET(1),IFILA(2),IFILA(1),LUSET,LGPL,LSIL,SUBNAM) SING = 0 C C ONLY ES CHECK AND NONCONSERVATIVE COLUMN CAN EXIT WITH SING = 1 C OR IF USER DESIRES TO CONTINUE C IF (NOGLEV .GT. 0) SING = -1 110 CONTINUE IF (PARM(1) .NE. 0) CALL MESAGE (PARM(1),PARM(2),PARM(3)) 130 DET(1) = SDET DET(2) = SDETC MINDIA = MINDS POWER = KPOW IFILL(2) = IFILA(2) IFILL(3) = IFILA(3) IFILL(4) = 4 IF (SING .GE. 0) CALL WRTTRL (IFILL) GO TO 410 C C SET UP CALL TO DECOMP C 200 CONTINUE IF (JA(5) .GT. 2) GO TO 300 IA(1) = KAA CALL RDTRL (IA) IL(1) = LLL IU(1) = ULL NZZ = KORSZ(ZZ) ISCR1 = LSCR1 ISCR2 = LSCR2 ISCR3 = LSCR3 IB = 0 IL(5) = 2 CALL DECOMP (*400,ZZ,ZZ,ZZ) IU(5) = 2 IL(4) = 4 IU(4) = 5 IL(3) = IL(2) IU(3) = IU(2) DET(1)= DDET DET(2)= 0.0 POWER = IPOW MINDIA= DMNDIA CALL WRTTRL (IU) CALL WRTTRL (IL) GO TO 410 C C SET UP CALL TO CDCOMP C 300 CONTINUE JL(1) = LLL JU(1) = ULL JSCR1 = LSCR1 JSCR2 = LSCR2 JSCR3 = LSCR3 NZZZ = KORSZ(ZZZ) JL(5) = 4 JB = 0 CALL CDCOMP (*400,ZZZ,ZZZ,ZZZ) JU(5) = 4 JL(4) = 4 JU(4) = 5 JL(3) = JL(2) JU(3) = JU(2) DET(1)= CDET(1) DET(2)= CDET(2) MINDIA= CMNDIA POWER = JPOW CALL WRTTRL (JL) CALL WRTTRL (JU) GO TO 410 C 400 SING = -1 DET(1) = 0.0 DET(2) = 0.0 POWER = 0 MINDIA = 0.0 410 RETURN C C ERROR MESSAGES C C PURGED INPUT C 490 PARM(1) = -1 PARM(2) = KAA GO TO 520 C C NUMBER ROWS.NE.COLUMNS C 500 PARM(1) = -16 PARM(2) = KAA GO TO 520 C C INSUFFICIENT CORE C 510 PARM(1) = -8 PARM(2) = -BUF6 - NBUFSZ 520 PARM(3) = NAME(1) PARM(4) = NAME(2) GO TO 110 END ================================================ FILE: mis/ddcomp.f ================================================ SUBROUTINE DDCOMP C C DDCOMP IS THE DMAP DRIVER FOR DECOMP C C DECOMP KAA/LLL,ULL/SYM/CHLSKY/MINDIA/DET/POWER/SING $ C C SYM = 1 - USE SYMMETRIC DECOMPOSITION C 0 - CHOOSE WHICH DECOMPOSITION BASED ON INPUT MATRIX C -1 - USE UNSYMETRIC DECOMPOSITION C CHLSKY = 1 USE CHOLESKY DECOMPOSITION LLL = C C DET = DETERMINANT OF KAA C POWER = SCALE FACTOR FOR DET C MINDIA = MINIMUM DIAGONAL OF ULL C SING = -1 SINGULAR MATRIX C INTEGER ULL ,SYM ,POWER ,SING , 1 CHLSKY ,NAME(2) ,SQR ,RECT , 2 OUTPT ,UPPER REAL ZZ(1) ,ZZZ(1) DOUBLE PRECISION CDET ,CMNDIA ,MINDIA ,SDETC , 1 MINDS ,DDET ,DMNDIA ,SDET CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 , 1 SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM , 1 SWM COMMON /BLANK / ISYM ,CHLSKY , 1 MINDIA ,DET(2) ,POWER ,SING COMMON /SFACT / IFILA(7) ,IFILL(7) ,IFILU(7) ,KSCR1 , 1 KSCR2 ,NZ ,SDET ,SDETC , 2 KPOW ,KSCR3 ,MINDS ,ICHLK COMMON /DCOMPX/ IA(7) ,IL(7) ,IU(7) ,ISCR1 , 1 ISCR2 ,ISCR3 ,DDET ,IPOW , 2 NZZ ,DMNDIA ,IB COMMON /CDCMPX/ JA(7) ,JL(7) ,JU(7) ,JSCR1 , 1 JSCR2 ,JSCR3 ,CDET(2) ,JPOW , 2 NZZZ ,CMNDIA ,JB COMMON /NAMES / KNAMES(19) COMMON /SYSTEM/ KSYSTM(65) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (ZZ(1),Z(1)) EQUIVALENCE (ZZZ(1),Z(1)) EQUIVALENCE (KSYSTM( 2),OUTPT) ,(KNAMES(12),SQR) , 1 (KNAMES(13),RECT ) ,(KNAMES(17),SYM) , 2 (KNAMES(16),UPPER) ,(KNAMES(15),LOWER) DATA KAA, LLL, ULL, LSCR1, LSCR2, LSCR3, LSCR4 / 1 101, 201, 202, 301 , 302 , 303 , 304 / DATA NAME / 4HDDCO,4HMP / C SING = 0 JA(1) = KAA CALL RDTRL (JA) IFORM = JA(4) IF (ISYM) 10,50,30 10 IF (IFORM .EQ. SYM) WRITE (OUTPT,20) SWM,NAME 20 FORMAT (A27,' 2340, MODULE ',2A4,' HAS BEEN REQUESTED TO DO ', 1 'UNSYMMETRIC DECOMPOSITION OF A SYMMETRIC MATRIX') IFORM = RECT IF (JA(2) .EQ. JA(3)) IFORM = SQR GO TO 50 30 IF (JA(2).EQ.JA(3) .AND. IFORM.NE.SYM) WRITE (OUTPT,40) SWM,NAME 40 FORMAT (A27,' 2341, MODULE ',2A4,'HAS BEEN FURNISHED A SQUARE ', 1 'MATRIX MARKED UNSYMMETRIC FOR SYMMETRIC DECOMPOSITION.') IFORM = SYM 50 ISYM = -1 IF (IFORM .EQ. SYM) ISYM = 1 JA(4) = IFORM IF (ISYM .LT. 0) GO TO 200 C C SET UP CALL TO SDCOMP C IFILA(1) = KAA CALL RDTRL (IFILA) IFILL(1) = LLL IFILU(1) = LSCR4 KSCR1 = LSCR1 KSCR2 = LSCR2 KSCR3 = LSCR3 NZ = KORSZ(Z) IFILL(5) = IFILA(5) ICHLK = CHLSKY CALL SDCOMP (*400,Z,Z,Z) DET(1) = SDET DET(2) = SDETC MINDIA = MINDS POWER = KPOW IFILL(2) = IFILA(2) IFILL(3) = IFILA(3) IFILL(4) = LOWER CALL WRTTRL (IFILL) RETURN C C SET UP CALL TO DECOMP C 200 CONTINUE IF (JA(5) .GT. 2) GO TO 300 IA(1) = KAA CALL RDTRL (IA) IL(1) = LLL IU(1) = ULL NZZ = KORSZ(ZZ) ISCR1 = LSCR1 ISCR2 = LSCR2 ISCR3 = LSCR3 IB = 0 IL(5) = 2 CALL DECOMP (*400,ZZ,ZZ,ZZ) IU(5) = 2 IL(4) = LOWER IU(4) = UPPER IL(3) = IL(2) IU(3) = IU(2) DET(1) = DDET DET(2) = 0.0 POWER = IPOW MINDIA = DMNDIA CALL WRTTRL (IU) CALL WRTTRL (IL) RETURN C C SET UP CALL TO CDCOMP C 300 CONTINUE JL(1) = LLL JU(1) = ULL JSCR1 = LSCR1 JSCR2 = LSCR2 JSCR3 = LSCR3 NZZZ = KORSZ(ZZZ) JL(5) = 4 JB = 0 CALL CDCOMP (*400,ZZZ,ZZZ,ZZZ) JU(5) = 4 JL(4) = LOWER JU(4) = UPPER JL(3) = JL(2) JU(3) = JU(2) DET(1) = CDET(1) DET(2) = CDET(2) MINDIA = CMNDIA POWER = JPOW CALL WRTTRL (JL) CALL WRTTRL (JU) RETURN C 400 SING = -1 DET(1) = 0.0 DET(2) = 0.0 POWER = 0 MINDIA = 0.0 CALL FNAME (KAA,JA(1)) WRITE (OUTPT,410) UIM,JA(1),JA(2) 410 FORMAT (A29,' FORM DECOMP MODULE. MATRIX ',2A4,' IS SINGULAR') RETURN END ================================================ FILE: mis/ddr.f ================================================ SUBROUTINE DDR C C***** C C DUMMY DECK FOR MODULE DDR SEE USERS MANUAL SECTION 5.3 C FOR MODULE PROPERTIES CHECK XMPLBD C OR USE DIAG 29 C C***** C INTEGER PARM1,PARM2,PARM3 C INTEGER OUTFIL C COMMON /BLANK/ PARM1(2),PARM2(2),PARM3(2) C C DATA INFILE/101/, OUTFIL/201/ C RETURN END ================================================ FILE: mis/ddr1.f ================================================ SUBROUTINE DDR1 C C DYNAMIC DATA RECOVERY PART1 C C INPUTS 2 UHV,PHIDH C C OUTPUTS 1 UDV C C SCRATCHES 1 C INTEGER UHV,PHIDH,UDV,SCR1 DATA UHV,PHIDH,UDV,SCR1/101,102,201,301/ C C TRANSFPRM TO MODAL DISPLACEMENTS C CALL SSG2B(PHIDH,UHV,0,UDV,0,1,1,SCR1) RETURN END ================================================ FILE: mis/ddr1a.f ================================================ SUBROUTINE DDR1A (PD,K2DD,B2DD,MDD,VUD,PAD,FRL,FRQSET,SCR1,SCR2, 1 SCR3,SCR4,ITYPE,SCR5) C C ROUTINE TO COMPUTE PAD FROM MODAL APPROXIMATION TO SYSTEM C INTEGER B2DD,PD,VUD,FRL,FRQSET,SCR1,SCR2,SCR3,SCR4,SCR5, 1 SYSBUF,FILE,MCB(7),MCB1(7),MCB2(7),SR1,SR3,FREQ, 2 PAD,NAME(2) DIMENSION IBLK(60),B(2),IMCB(21),IFILE(3) COMMON /SYSTEM/ SYSBUF COMMON /CONDAS/ CONSTS(5) COMMON /ZZZZZZ/ CORE(1) COMMON /ZNTPKX/ A(4),II,IEOL,IEOR EQUIVALENCE (MCB(1),IMCB(1)),(MCB2(1),IMCB(8)), 1 (MCB1(1),IMCB(15)),(CONSTS(2),TWOPI) DATA NAME / 4HDDR1,4HA / DATA FREQ / 4HFREQ / C C INITIALIZE + FIND OUT WHAT EXISTS C SR1 = SCR1 SR3 = SCR3 IBUF = KORSZ(CORE) - SYSBUF + 1 NOK2DD = 1 MCB(1) = K2DD CALL RDTRL (MCB) IF (MCB(1) .LE. 0) NOK2DD = -1 NOB2DD = 1 MCB(1) = B2DD CALL RDTRL (MCB) IF (MCB(1) .LE. 0) NOB2DD = -1 MCB(1) = PD CALL RDTRL (MCB) C C IS THIS FREQRES OR TRANSIENT C IF (ITYPE .NE. FREQ) GO TO 160 C C BRING IN FRL C FILE = FRL CALL OPEN (*280,FRL,CORE(IBUF),0) CALL FREAD (FRL,0,-2,0) CALL READ (*300,*20,FRL,CORE(1),IBUF,0,NFREQ) GO TO 310 20 CALL CLOSE (FRL,1) NLOAD = MCB(2)/NFREQ IT = 3 C C BUILD ACCELERATION AND VELOCITY IF NEEDED C 30 CALL GOPEN (VUD,CORE(IBUF),0) C C PUT ACCELERATION VECTOR ON SCR1 C NZ = IBUF - SYSBUF CALL GOPEN (SCR1,CORE(NZ),1) CALL MAKMCB (MCB1,SCR1,MCB(3),2,IT) IF (NOB2DD .LT. 0) GO TO 40 C C PUT VELOCITY VECTOR ON SCR2 C NZ = NZ - SYSBUF CALL GOPEN (SCR2,CORE(NZ),1) CALL MAKMCB (MCB2,SCR2,MCB(3),2,IT) 40 IF (ITYPE .NE. FREQ) GO TO 170 C C COMPUTE VECTORS C DO 45 I = 1,NFREQ 45 CORE(I) = CORE(I)*TWOPI DO 100 J = 1,NLOAD DO 90 I = 1,NFREQ W = CORE(I) W2 = -W*W CALL BLDPK (3,3,SCR1,IBLK(1),1) IF (NOB2DD .LT. 0) GO TO 50 CALL BLDPK (3,3,SCR2,IBLK(21),1) 50 CALL INTPK (*80,VUD,0,3,0) 60 IF (IEOL) 80,70,80 70 CALL ZNTPKI B(1) = W2*A(1) B(2) = W2*A(2) CALL BLDPKI (B(1),II,SCR1,IBLK(1)) IF (NOB2DD .LT. 0) GO TO 60 B(1) =-W*A(2) B(2) = W*A(1) CALL BLDPKI (B(1),II,SCR2,IBLK(21)) GO TO 60 C C END OF COLUMN C 80 CALL BLDPKN (SCR1,IBLK(1),MCB1(1)) IF (NOB2DD .LT. 0) GO TO 90 CALL BLDPKN (SCR2,IBLK(21),MCB2(1)) 90 CONTINUE 100 CONTINUE 110 CALL CLOSE (SCR1,1) CALL CLOSE (VUD,1) CALL WRTTRL (MCB1(1)) IF (NOB2DD .LT. 0) GO TO 120 CALL CLOSE (SCR2,1) CALL WRTTRL (MCB2(1)) C C MULTIPLY OUT C 120 IF (NOB2DD.LT.0 .AND. NOK2DD.LT.0) SR3 = PAD CALL SSG2B (MDD,SCR1,PD,SR3,0,1,0,SCR4) IF (NOK2DD .LT. 0) GO TO 130 C C MULTIPLY IN K2DD C IF (NOB2DD .LT. 0) SR1 = PAD CALL SSG2B (K2DD,SCR5,SR3,SR1,0,1,0,SCR4) GO TO 140 C C NO K2DD C 130 SR1 = SR3 C C MULTIPLY IN B2DD C 140 IF (NOB2DD .LT. 0) GO TO 150 CALL SSG2B (B2DD,SCR2,SR1,PAD,0,1,0,SCR4) 150 RETURN C C TRANSIENT ANALYSIS C 160 NLOAD = MCB(2) C C PUT DISPLACEMENT ON SCR5,VELOCITY ON SCR2,ACCELERATION SCR1 C IT = 1 C C PUT HEADERS ON FILES C GO TO 30 C C PUT DISPLACEMENT ON SCR5 C 170 FILE = SCR5 NZ = NZ - SYSBUF CALL GOPEN (SCR5,CORE(NZ),1) MCB(1) = SCR5 MCB(2) = 0 MCB(4) = 2 MCB(5) = 1 IFILE(1) = SCR5 IFILE(2) = SCR2 IFILE(3) = SCR1 MCB(6) = 0 DO 270 KK = 1,NLOAD CALL BLDPK (1,1,SCR5,IBLK,1) IF (NOB2DD .LT. 0) GO TO 190 CALL BLDPK (1,1,SCR2,IBLK(21),1) 190 CALL BLDPK (1,1,SCR1,IBLK(41),1) DO 260 I = 1,3 L = I*7 - 6 K = 20*I - 19 FILE = IFILE(I) C C FWDREC OVER UNNEEDED STUFF C IF (I.EQ.2 .AND. NOB2DD.LT.0) GO TO 250 CALL INTPK (*240,VUD,0,1,0) 220 IF (IEOL) 240,230,240 230 CALL ZNTPKI CALL BLDPKI (A,II,FILE,IBLK(K)) GO TO 220 C C END COLUMN C 240 CALL BLDPKN (FILE,IBLK(K),IMCB(L)) GO TO 260 250 CALL SKPREC (VUD,1) 260 CONTINUE 270 CONTINUE C C FINISH OFF C CALL CLOSE (SCR5,1) CALL WRTTRL (MCB) GO TO 110 C C ERROR MESAGES C 280 IP1 = -1 290 CALL MESAGE (IP1,FILE,NAME) 300 IP1 = -2 GO TO 290 310 IP1 = -8 GO TO 290 END ================================================ FILE: mis/ddr1b.f ================================================ SUBROUTINE DDR1B (IN1,IN2,IOUT) C C THIS ROUTINE REPLACES DISPLACEMNTS ON IN1 WITH DISPLACEMENTS ON C IN2 AND WRITES ON IOUT C INTEGER SYSBUF, MCB(7) COMMON /SYSTEM/ SYSBUF COMMON /UNPAKX/ ITC,II,JJ,INCR COMMON /ZZZZZZ/ Z(1) C C NZ = KORSZ(Z) - SYSBUF CALL GOPEN (IN1,Z(NZ+1),0) NZ = NZ - SYSBUF CALL GOPEN (IN2,Z(NZ+1),0) NZ = NZ - SYSBUF CALL GOPEN (IOUT,Z(NZ+1),1) MCB(1) = IN1 CALL RDTRL (MCB) MCB(1) = IOUT ND = MCB(2)/3 ITC = MCB(5) INCR = 1 MCB(2) = 0 MCB(6) = 0 MCB(7) = 0 DO 40 I = 1,ND CALL SKPREC (IN1,1) CALL CYCT2B (IN2,IOUT,1,Z,MCB) CALL CYCT2B (IN1,IOUT,2,Z,MCB) 40 CONTINUE CALL WRTTRL (MCB) CALL CLOSE (IN1,1) CALL CLOSE (IN2,1) CALL CLOSE (IOUT,1) RETURN END ================================================ FILE: mis/ddr2.f ================================================ SUBROUTINE DDR2 C C DYNAMIC DATA RECOVERY--PART 2 --MODE ACCELERATION C C DMAP SEQUENCE C C INPUTS = 9 C C USETD,VUD,PD,K2DD,B2DD,MDD,FRL,LLL,DM C C OUTPUTS = 3 C C UAV,UEV,PAF C C SCRATCHES = 6 C C PARAMETERS 1 BCD, 3INTEGERS C INTEGER USETD,PD,B2DD,FRL,DM,UAV,PAF, 1 SCR2,SCR3,SCR4,SCR5,SCR6,SCR7, 2 TYPE,REACT,TRAN,USET,VUD,PAD,UEV,PL COMMON /BLANK / TYPE(2),NOUE,REACT,FRQSET COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE, 1 UD COMMON /PATX / LC,N,NO,N4,USET COMMON /ZZZZZZ/ CORE(1) DATA USETD , VUD, PD, K2DD,B2DD,MDD,FRL,LLL,DM / 1 101 , 102,103, 104, 105,106,107,108,109 / DATA UAV , UEV, PAF, TRAN / 1 201 , 202, 203, 4HTRAN / DATA SCR2 , SCR3,SCR4,SCR5,SCR6,SCR7,PAD / 1 302 , 303 , 304, 305, 306, 301,302 / C C LC = KORSZ(CORE) VUD = 102 SCR7 = 301 USET = USETD PL = SCR6 ISOL = SCR7 IF (NOUE .GE. 0) GO TO 10 PAD = PAF 10 CONTINUE IF (TYPE(1) .NE. TRAN) SCR7 = UAV IF (TYPE(1).NE.TRAN .AND. REACT.LT.0 .AND. NOUE.GE.0) SCR7 = VUD C C MODE ACCELERATION C C FORM PAD C C CALL DDR1A (PD,K2DD,B2DD,MDD,VUD,PAD,FRL,FRQSET,SCR3,SCR4,SCR5, 1 SCR6,TYPE(1),SCR7) C C DISP ON SCR7 IN TRANSIENT C IF (NOUE .LT. 0) GO TO 50 CALL CALCV (SCR3,UD,UA,UE,CORE(1)) CALL SSG2A (VUD,SCR4,UEV,SCR3) C C UA IS ON SCR4 C VUD = SCR4 C C BREAK UP PAD C CALL SSG2A (PAD,PAF,SCR5,SCR3) 50 IF (REACT .GE. 0) GO TO 90 C C UR NULL C IF (TYPE(1) .NE. TRAN) SCR7 = ISOL IF (TYPE(1).NE.TRAN .AND. NOUE.LT.0) SCR7 = UAV CALL SSG3A (0,LLL,PAF,SCR7,SCR3,SCR6,-1,0) 60 IF (TYPE(1) .NE. TRAN) GO TO 80 C C MERGE RECALCULATED SOLUTIONS AND ACCEL AND VELOCITY C ISOL = UAV IF (NOUE .LT. 0) GO TO 70 ISOL = SCR5 70 CALL DDR1B (VUD,SCR7,ISOL) C C BUILD UP TO DSIZE ADDING IN UEV C 80 IF (NOUE .LT. 0) GO TO 30 CALL SDR1B (SCR4,ISOL,UEV,UAV,UD,UA,UE,USETD,0,0) 30 RETURN C C FREE BODY PROBLEM C 90 CALL CALCV (SCR3,UA,UL,UR,CORE(1)) C C PARTITION PAF AND UA C CALL SSG2A (PAF,PL,SCR5,SCR3) IVEC = VUD IF (TYPE(1) .EQ. TRAN) IVEC = SCR7 CALL SSG2A (IVEC,SCR2,SCR5,SCR3) C C UR IS ON SCR5 C CALL SSG3A (0,LLL,PL,SCR3,SCR2,SCR6,-1,0) CALL SSG2B (DM,SCR5,SCR3,SCR4,0,2,1,SCR6) CALL SDR1B (SCR3,SCR4,SCR5,SCR7,UA,UL,UR,USETD,0,0) GO TO 60 END ================================================ FILE: mis/ddrmm.f ================================================ SUBROUTINE DDRMM C C DYNAMIC-DATA-RECOVERY-MATRIX-METHOD C C DMAP SEQUENCES. ONLY SORT2 IS USED C C (TRANSIENT RESPONCE) C ==================== C DDRMM CASEXX,UHVT,PPT,IPHIP2,IQP2,IES2,IEF2,XYCDB,EST,MPT,DIT/ C ZUPV2,ZQP2,ZES2,ZEF2, $ C C (FREQUENCY RESPONSE) C ==================== C DDRMM CASEXX,UHVF,PPF,IPHIP1,IQP1,IES1,IEF1,XYCDB,EST,MPT,DIT/ C ZUPVC1,ZQPC1,ZESC1,ZEFC1, $ C OR C DDRMM CASEXX,UHVF,PPF,IPHIP2,IQP2,IES2,IEF2,XYCDB,EST,MPT,DIT/ C ZUPVC2,ZQPC2,ZESC2,ZEFC2, $ C LOGICAL TRNSNT ,SORT2 ,COL1 ,FRSTID INTEGER OUTPT ,SYSBUF ,Z ,RD ,WRT ,CLS INTEGER FILE ,BUF(150) ,UV ,RDREW ,WRTREW ,CLSREW INTEGER CASECC ,PHASE ,SUBR(2) ,BUFF ,DHSIZE INTEGER PP ,DVA(3) ,SCRT1 ,SCRT2 ,SCRT3 ,SCRT4 INTEGER SCRT5 ,SCRT6 ,FRQSET ,ENTRYS ,SCRT ,BUF1 INTEGER BUF2 ,BUF3 ,BUF4 ,BUF5 ,BUF6 INTEGER IFILE(4),OFILE(4) ,FILNAM ,SETS ,PASSES INTEGER EOR ,OUTFIL ,SETID ,UVSOL ,SCRT7 INTEGER SAVDAT ,SUBCAS ,INBLK(15),OUBLK(15) REAL RZ(1) ,LAMBDA ,RIDREC(146) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 ,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM,SFM ,SWM COMMON /SYSTEM/ SYSBUF ,OUTPT ,XSYS(22) ,ISWTCH COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW 1 ,CLS COMMON /ZZZZZZ/ Z(1) COMMON /DDRMC1/ IDREC(146),BUFF(6) ,PASSES ,OUTFIL ,JFILE 1 ,MCB(7) ,ENTRYS ,SETS(5,3),INFILE ,LAMBDA 2 ,FILE ,SORT2 ,COL1 ,FRSTID ,NCORE 3 ,NSOLS ,DHSIZE ,FILNAM(2),RBUF(150),IDOUT 4 ,ICC ,NCC ,ILIST ,NLIST ,NWDS 5 ,SETID ,TRNSNT ,I1 ,I2 ,PHASE 6 ,ITYPE1 ,ITYPE2 ,NPTSF ,LSF ,NWDSF 7 ,SCRT(7) ,IERROR ,ITEMP ,DEVICE ,FORM 8 ,ISTLST ,LSTLST ,UVSOL ,NLAMBS ,NWORDS 9 ,OMEGA ,IPASS ,SUBCAS COMMON /STDATA/ LMINOR ,NSTXTR ,NPOS ,SAVDAT(110) EQUIVALENCE (RZ(1),Z(1)) , (RBUF(1),BUF(1)) EQUIVALENCE (SCRT1,SCRT(1)), (SCRT2,SCRT(2)) EQUIVALENCE (SCRT3,SCRT(3)), (SCRT4,SCRT(4)) EQUIVALENCE (SCRT5,SCRT(5)), (SCRT6,SCRT(6)) EQUIVALENCE (SCRT7,SCRT(7)), (RIDREC(1),IDREC(1)) EQUIVALENCE (BUF1,BUFF(1)) , (BUF2,BUFF(2)) EQUIVALENCE (BUF3,BUFF(3)) , (BUF4,BUFF(4)) EQUIVALENCE (BUF5,BUFF(5)) , (BUF6,BUFF(6)) DATA IFROUT/ 145 /, DVA / 20, 32, 29 / DATA ISTRES, IFORCE, ISPCF / 23, 26, 35 / DATA ILSYM / 166 / DATA SUBR / 4HDDRM, 4HM / DATA EOR , NOEOR / 1, 0 / DATA CASECC, UV, PP / 101, 102, 103 / DATA IFILE / 104, 105, 106, 107 / DATA OFILE / 201, 202, 203, 204 / C C DETERMINE OPEN CORE AVAILABLE AND ALLOCATE BUFFERS. C DO 5 I = 1,100 5 SAVDAT(I) = 0 DO 6 I = 6,8 SAVDAT(I ) = 102 6 SAVDAT(I+11) = 102 SAVDAT( 15) = 102 SAVDAT( 76) = 2 SAVDAT( 77) = 10 DO 10 I = 1,7 SCRT(I) = I + 300 10 CONTINUE NCORE = KORSZ(Z) DO 20 I = 1,6 BUFF(I) = NCORE - SYSBUF - 2 NCORE = BUFF(I) - 1 20 CONTINUE C C GET FIRST SUBCASE OF CASE CONTROL INTO CORE C IERROR = 0 SUBCAS = 1 ICC = 1 FILE = CASECC CALL OPEN (*480,CASECC,Z(BUF1),RDREW) CALL FWDREC (*490,CASECC) CALL READ (*490,*30,CASECC,Z(ICC),NCORE-ICC,NOEOR,NWDS) IERROR = 1 GO TO 510 C 30 NCC = ICC + NWDS - 1 CALL CLOSE (CASECC,CLS) C C READ TRAILER OF SOLUTION DATA BLOCK. IF SOLUTION IS C COMPLEX, THEN FREQUENCY RESPONCE IS ASSUMED. IF REAL, THEN C TRANSIENT RESPONSE IS ASSUMED. C MCB(1) = UV CALL RDTRL (MCB) TRNSNT = .TRUE. IF (MCB(5) .GT. 2) TRNSNT = .FALSE. C C SET NUMBER OF EIGENVALUES = ROWS IN SOLUTION DATA BLOCK C NLAMBS = MCB(3) C C SET NUMBER OF SOLUTIONS.(TIME STEPS X 3, OR FREQUENCYS) C NSOLS = MCB(2) C C OPEN UV AND POSITION OVER HEADER RECORD. C FILE = UV CALL OPEN (*480,UV,Z(BUF1),RDREW) CALL FWDREC (*490,UV) CALL CLOSE (UV,CLS) C C READ LIST OF FREQUENCYS OR TIME STEPS FROM INPUT LOAD MATRIX C HEADER. C 33 ILIST = NCC + 1 FILE = PP CALL OPEN (*480,PP,Z(BUF1),RDREW) IERROR = 2 CALL READ (*490,*500,PP,BUF(1),-2,NOEOR,NWDS) CALL READ (*490,*35,PP,Z(ILIST),NCORE-ILIST,NOEOR,ENTRYS) GO TO 510 C 35 NLIST = ILIST + ENTRYS - 1 CALL CLOSE (PP,CLSREW) C C IF FREQUENCY RESPONSE PROBLEM, AND USER HAS SPECIFIED A LIST OF C FREQUENCYS TO BE USED AS A GUIDE IN DETERMINING A SUBSET OF C SOLUTIONS FOR OUTPUT PURPOSES, AND NOT ALL SOLUTIONS WILL BE C OUTPUT, THEN A MODIFIED SOLUTION MATRIX IS NOW FORMED ON C SCRATCH-1. THIS WILL ELIMINATE UNNECESSARY MATRIX-MULTIPLIES LATER C C IN ANY EVENT THE NEXT SUBCASE-S SOLUTIONS ARE PLACED ON SCRT1. C UVSOL = UV IF (TRNSNT) GO TO 190 C C EXPAND LIST OF FREQS PLACING A FLAG AFTER EACH. C J = NLIST NLIST = NLIST + ENTRYS IERROR = 4 IF (NLIST .GT. NCORE) GO TO 510 K = NLIST - 1 DO 40 I = 1,ENTRYS Z(K ) = Z(J) Z(K+1) = 0 K = K - 2 J = J - 1 40 CONTINUE C C SET FLAGS OF FREQUENCYS TO BE OUTPUT. C INDEX = ICC + IFROUT - 1 FRQSET = Z(INDEX) IF (FRQSET .LE. 0) GO TO 60 INDEX = ICC + ILSYM - 1 INDEX = Z(INDEX) + 1 50 ISETX = INDEX + 2 NSETX = ISETX + Z(INDEX+1) - 1 IF (Z(INDEX) .EQ. FRQSET) GO TO 80 INDEX = NSETX + 1 IF (INDEX .LT. NCC) GO TO 50 FRQSET = -1 C C ALL FREQUENCYS TO BE OUTPUT. C 60 DO 70 I = ILIST,NLIST,2 Z(I+1) = 1 70 CONTINUE GO TO 110 C C COMPARE REQUESTED FREQS WITH ACTUAL FREQS. C 80 DO 100 I = ISETX,NSETX K = 0 DIFF = 1.0E+25 FRQ = RZ(I) DO 90 J = ILIST,NLIST,2 IF (Z(J+1) .NE. 0) GO TO 90 DIFF1 = ABS(RZ(J)-FRQ) IF (DIFF1 .GE. DIFF) GO TO 90 DIFF = DIFF1 K = J 90 CONTINUE IF (K .NE. 0) Z(K+1) = 1 100 CONTINUE C 110 FILE = UV IERROR = 5 CALL OPEN (*480,UV,Z(BUF1),RD) FILE = SCRT1 CALL OPEN (*480,SCRT1,Z(BUF2),WRTREW) CALL FNAME (SCRT1,FILNAM) CALL WRITE (SCRT1,FILNAM,2,EOR) FILE = UV C C COPY SOLUTION COLUMNS TO BE USED BY NOTEING FREQS MARKED FOR USE. C NSOLS = 0 INBLK(1) = UV OUBLK(1) = SCRT1 DO 150 I = ILIST,NLIST,2 IF (Z(I+1)) 130,120,130 120 CALL FWDREC (*490,UV) GO TO 150 C C BLAST COPY THIS SOLUTION. C 130 ICOL = (I-ILIST)/2 + 1 CALL CPYSTR (INBLK,OUBLK,0,ICOL) NSOLS = NSOLS + 1 150 CONTINUE C C RESET -UV- DATA BLOCK DESIGNATOR TO POINT TO SCRT1, AND WRITE C A TRAILER. C CALL CLOSE (UV,CLS) CALL CLOSE (SCRT1,CLSREW) MCB(1) = UV CALL RDTRL (MCB) MCB(1) = SCRT1 MCB(2) = NSOLS CALL WRTTRL (MCB) UVSOL = SCRT1 C C SHRINK UP THE FREQUENCY LIST TO MATCH SOLUTION MATRIX C J = ILIST - 1 DO 180 I = ILIST,NLIST,2 IF (Z(I+1)) 170,180,170 170 J = J + 1 Z(J) = Z(I) 180 CONTINUE NLIST = J C C IF THIS IS A TRANSIENT RESPONSE PROBLEM, THE SOLUTION MATRIX IS C NOW PARTITIONED INTO 3 SOLUTION MATRICES FOR DISP, VEL, AND ACCEL. C 190 IF (.NOT. TRNSNT) GO TO 260 FILE = UV IERROR = 6 CALL OPEN (*480,UV,Z(BUF1),RD) MCB(1) = UV INBLK(1) = UV CALL RDTRL (MCB) DO 200 I = 1,3 FILE = SCRT(I) IBUF = BUFF(I+1) CALL OPEN (*480,FILE,Z(IBUF),WRTREW) CALL FNAME (FILE,FILNAM) CALL WRITE (FILE,FILNAM,2,EOR) MCB(1) = FILE MCB(2) = NSOLS/3 CALL WRTTRL (MCB) 200 CONTINUE IERROR = 7 FILE = UV DO 240 I = 1,NSOLS,3 DO 230 J = 1,3 OUBLK(1) = SCRT(J) CALL CPYSTR (INBLK,OUBLK,0,I) 230 CONTINUE 240 CONTINUE CALL CLOSE (UV,CLSREW) NSOLS = NSOLS/3 C DO 250 I = 1,3 CALL CLOSE (SCRT(I),CLSREW) 250 CONTINUE C C SDR2 FORMED MODAL SOLUTIONS FOR DISPLACEMENTS, SINGLE-POINT- C CONSTRAINT-FORCES, ELEMENT STRESSES, AND ELEMENT FORCES MAY BE C PRESENT. (ALL WILL BE SORT1-REAL, OR SORT2-REAL) C C IF THIS IS A TRANSIENT PROBLEM, THE SOLUTIONS PRESENT HAVE BEEN C PARTITIONED INTO THE DISPLACEMENT, VELOCITY, AND ACCELERATION C SUBSETS. ONLY WHEN OPERATING ON THE MODAL DISPLACEMENTS WILL THE C VELOCITY AND ACCELERATION SOLUTION SUBSET MATRICES BE USED. C 260 JFILE = 1 270 INFILE = IFILE(JFILE) C C CHECK FOR EXISTENCE OF MODAL SOLUTION -INFILE-. C CALL OPEN (*470,INFILE,Z(BUF1),RDREW) CALL FWDREC (*460,INFILE) C C INFILE DOES EXIST.SET PARAMETERS FOR PROCESSING C C C OPEN OFP-FORMAT OUTPUT FILE FOR THIS INFILE. C OUTFIL = OFILE(JFILE) IWRT = WRTREW IF (SUBCAS .GT. 1) IWRT = WRT CALL OPEN (*280,OUTFIL,Z(BUF4),IWRT) IF (SUBCAS .GT. 1) GO TO 305 GO TO 300 280 WRITE (OUTPT,290) UWM,INFILE 290 FORMAT (A25,' 2331. (DDRMM-2) OUTPUT DATA BLOCK CORRESPONDING TO', 1 ' INPUT MODAL SOLUTION DATA BLOCK',I4, /5X, 2 'IS NOT PRESENT. INPUT DATA BLOCK IGNORED.') GO TO 460 C 300 CALL FNAME (OUTFIL,FILNAM) CALL WRITE (OUTFIL,FILNAM,2,EOR) 305 CALL CLOSE (OUTFIL,CLS) C C READ FIRST OFP-ID RECORD AND DETERMINE WHAT THE HELL IS REALLY C PRESENT. C IERROR = 14 CALL READ (*460,*460,INFILE,IDREC,146,EOR,NWDS) C C MAJOR ID AND SORT1 OR SORT2 DETERMINATION. C ITYPE1 = IDREC(2)/1000 SORT2 = .FALSE. IF (ITYPE1 .GT. 1) SORT2 = .TRUE. ITYPE1 = IDREC(2) - ITYPE1*1000 C C BRANCH ON MAJOR ID C IF (ITYPE1.LT.1 .OR. ITYPE1.GT.7) GO TO 410 PASSES = 1 GO TO (410,410,370,380,390,410,310), ITYPE1 C C MODAL DISPLACEMENTS = EIGENVECTORS ARE ON INFILE. C 310 PASSES = 3 NWORDS = 2 C C DETERMINE DISP, VEL, AND ACCEL SET REQUESTS. C 312 IBASE = ICC + ILSYM - 1 IBASE = Z(IBASE) + 1 DO 350 I = 1,PASSES IF (PASSES .EQ. 1) GO TO 315 ITEMP = ICC + DVA(I) - 1 315 SETS(1,I) = Z(ITEMP) SETS(2,I) = Z(ITEMP+1) SETS(3,I) = IABS(Z(ITEMP+2)) SETS(4,I) = 0 SETS(5,I) = 0 IF (SETS(1,I)) 350,350,320 320 INDEX = IBASE 330 ISETX = INDEX + 2 IF (Z(INDEX) .EQ. SETS(1,I)) GO TO 340 INDEX = ISETX + Z(INDEX+1) IF (INDEX .LT. NCC) GO TO 330 SETS(1,I) = -1 GO TO 350 340 SETS(4,I) = ISETX SETS(5,I) = Z(INDEX+1) 350 CONTINUE GO TO 430 C C MODAL SPCF-S ARE ON INFILE. C 370 ITEMP = ICC + ISPCF - 1 NWORDS = 2 GO TO 312 C C MODAL FORCES ARE ON INFILE. C 380 ITEMP = ICC + IFORCE - 1 NWORDS = 1 GO TO 312 C C MODAL STRESSES ARE ON INFILE. C 390 ITEMP = ICC + ISTRES - 1 NWORDS = 1 GO TO 312 C C ILLEGAL INFILE DATA. C 410 WRITE (OUTPT,420) UWM,INFILE 420 FORMAT (A25,' 2332. (DDRMM-4) INVALID INPUT DATA DETECTED IN ', 1 'DATA BLOCK',I5,'. PROCESSING STOPPED FOR THIS DATA BLOCK') GO TO 460 C C CALL PROCESSOR TO BUILD DATA-MATRIX ON SCRT5 AND MAPPING-DATA ON C SCRT4, AND THEN PERFORM OUTPUT OF RESULTS TO OUTFIL. C 430 IF (SORT2) GO TO 440 C C SORT1 PROCESSOR C CALL DDRMM1 (*480,*490,*500,*510) GO TO 450 C C SORT2 PROCESSOR C 440 CALL DDRMM2 (*480,*490,*500,*510) C C WRAP UP PROCESSING FOR THIS INFILE. C 450 MCB(1) = OUTFIL MCB(2) = 1 CALL WRTTRL (MCB) 460 CALL CLOSE (OUTFIL,CLSREW) CALL CLOSE (INFILE,CLSREW) CALL CLOSE (SCRT4, CLSREW) CALL CLOSE (SCRT5, CLSREW) C C PROCESS NEXT MODAL SOLUTION INPUT. C 470 JFILE = JFILE + 1 IF (JFILE .LE. 4) GO TO 270 C C ALL WORK COMPLETE FOR THIS SUBCASE. IF FREQUENCY RESPONSE PROCESS C NEXT SUBCASE. C IF (TRNSNT) GO TO 479 FILE = CASECC IERROR = 471 CALL OPEN (*480,CASECC,Z(BUF1),RD) CALL READ (*479,*472,CASECC,Z(ICC),NCORE-ICC,NOEOR,NWDS) GO TO 510 C 472 NCC = ICC + NWDS - 1 SUBCAS = SUBCAS + 1 CALL CLOSE (CASECC,CLS) GO TO 33 C C//// SUBCAS NUMBER NEEDS TO GET INTO OUTPUT BLOCKS C 479 IERROR = 511 CALL CLOSE (CASECC,CLSREW) GO TO 560 C C ERRORS FORCING TERMINATION OF THIS MODULE. C 480 KK = 1 GO TO 520 490 KK = 2 GO TO 520 500 KK = 3 GO TO 520 510 KK = 8 GO TO 520 520 CALL MESAGE (KK,FILE,SUBR) WRITE (OUTPT,530) SWM,IERROR 530 FORMAT (A27,' 2333. (DDRMM-1) MODULE DDRMM TERMINATED WITH ', 1 'VARIABLE IERROR =',I10) C C INSURE ALL FILES CLOSED BEFORE RETURNING. C DO 550 L = 100,300,100 DO 540 M = 1,11 JFILE = M + L CALL CLOSE (JFILE,CLSREW) 540 CONTINUE 550 CONTINUE C C INSURE ALL OUT-FILES HAVE AN EOF. C 560 DO 570 L = 201,204 CALL OPEN (*570,L,Z(BUF1),WRT) CALL CLOSE (L,CLSREW) 570 CONTINUE RETURN END ================================================ FILE: mis/ddrmm1.f ================================================ SUBROUTINE DDRMM1 (*,*,*,*) C C PERFORMS SORT1 TYPE PROCESSING FOR MODULE DDRMM. C LOGICAL SORT2 ,COL1 ,FRSTID ,IDOUT ,TRNSNT , 1 ANYXY ,LMINOR INTEGER BUF1 ,BUF2 ,BUF3 ,BUF4 ,BUF5 , 1 BUF6 ,BUFF ,EOR ,RD ,RDREW , 2 WRT ,WRTREW ,CLS ,CLSREW ,ELEM , 3 IA(4) ,SETS ,ENTRYS ,SYSBUF ,OUTPT , 4 PASSES ,OUTFIL ,FILE ,DHSIZE ,FILNAM , 5 SETID ,FORM ,DEVICE ,PHASE ,SCRT , 6 SCRT1 ,SCRT2 ,SCRT3 ,SCRT4 ,SCRT5 , 7 SCRT6 ,SCRT7 ,DVAMID(3),BUF(150) ,Z(1) , 8 UVSOL ,SUBCAS ,SAVDAT ,SAVPOS ,BUFSAV REAL RIDREC(6),LAMBDA CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 ,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM ,SWM COMMON /STDATA/ LMINOR ,NSTXTR ,NPOS ,SAVDAT(75) , 1 SAVPOS(25) ,BUFSAV(10) COMMON /SYSTEM/ SYSBUF ,OUTPT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW , 1 CLS COMMON /ZBLPKX/ A(4) ,IROW COMMON /ZNTPKX/ AOUT(4) ,IROWO ,IEOL , IEOR COMMON /GPTA1 / NELEM ,LAST ,INCR ,ELEM(1) COMMON /ZZZZZZ/ RZ(1) COMMON /MPYADX/ MCBA(7) ,MCBB(7) ,MCBC(7) ,MCBD(7) ,LZ , 1 ITFLAG ,ISINAB ,ISINC ,IPREC ,ISCRT COMMON /DDRMC1/ IDREC(146),BUFF(6) ,PASSES ,OUTFIL ,JFILE , 1 MCB(7) ,ENTRYS ,SETS(5,3),INFILE ,LAMBDA , 2 FILE ,SORT2 ,COL1 ,FRSTID ,NCORE , 3 NSOLS ,DHSIZE ,FILNAM(2),RBUF(150),IDOUT , 4 ICC ,NCC ,ILIST ,NLIST ,NWDS , 5 SETID ,TRNSNT ,I1 ,I2 ,PHASE , 6 ITYPE1 ,ITYPE2 ,NPTSF ,LSF ,NWDSF , 7 SCRT(7) ,IERROR ,ITEMP ,DEVICE ,FORM , 8 ISTLST ,LSTLST ,UVSOL ,NLAMBS ,NWORDS , 9 OMEGA ,IPASS ,SUBCAS COMMON /CONDAS/ PI ,TWOPI EQUIVALENCE (SCRT1,SCRT(1)), (SCRT2,SCRT(2)), (SCRT3,SCRT(3)), 1 (SCRT4,SCRT(4)), (SCRT5,SCRT(5)), (SCRT6,SCRT(6)), 2 (SCRT7,SCRT(7)), (BUF1 ,BUFF(1)), (BUF2 ,BUFF(2)), 3 (BUF3 ,BUFF(3)), (BUF4 ,BUFF(4)), (BUF5 ,BUFF(5)), 4 (BUF6 ,BUFF(6)), (A(1) , IA(1)), (Z(1) , RZ(1)), 5 (IDREC(1),RIDREC(1)), (BUF(1),RBUF(1)) DATA EOR , NOEOR / 1, 0 /, DVAMID / 1, 10, 11 / C C FORMATION OF DATA-MATRIX AND SUBSEQUENT MULTIPLY BY SOLUTION- C MATRIX AND ULTIMATE OUTPUT OF TRANSIENT OR FREQUENCY SOLUTIONS. C IPASS = 1 20 COL1 = .TRUE. FRSTID = .TRUE. SETID = SETS(1,IPASS) DEVICE = SETS(2,IPASS) FORM = SETS(3,IPASS) ISTLST = SETS(4,IPASS) LSTLST = SETS(5,IPASS) C C GET LIST OF XYPLOT REQUESTED IDS FOR CURRENT SUBCASE AND C OUTFIL TYPE. C GO TO (22,23,24,25), JFILE C C DISPLACEMENT, VELOCITY, ACCELERATION C 22 IXYTYP = IPASS GO TO 26 C C SPCF C 23 IXYTYP = 4 GO TO 26 C C STRESS C 24 IXYTYP = 6 GO TO 26 C C FORCE C 25 IXYTYP = 7 GO TO 26 C 26 IXY = NLIST + 1 CALL DDRMMP (*380,Z(IXY),BUF3-IXY,LXY,IXYTYP,SUBCAS,Z(BUF3),ANYXY) IF (.NOT.ANYXY .AND. SETID.EQ.0) GO TO 280 NXY = IXY + LXY - 1 C C INITIALIZE DATA MATRIX FILE(SCRT5), AND MAPPING TABLE FILE(SCRT4). C IERROR = 22 FILE = SCRT4 CALL OPEN (*350,SCRT4,Z(BUF3),WRTREW) FILE = SCRT5 CALL OPEN (*350,SCRT5,Z(BUF2),WRTREW) CALL FNAME (SCRT5,FILNAM) CALL WRITE (SCRT5,FILNAM,2,EOR) C C GENERAL LOGIC TO BUILD SORT1 FORMAT DATA MATRIX. C C EACH COLUMN WRITTEN HERE REPRESENTS ONE EIGENVALUE. C C COMPONENTS FOR FIRST ID * C . * C . * C . * C COMPONENTS FOR NEXT ID * ONE COLUMN C . * OF DATA FOR EACH EIGENVALUE. C . * C . * C ETC * C --------------------------------------------- EOR C C IDENTICAL COMPONENTS ARE REPRESENTED IN EACH COLUMN. C C C READ AN OFP-ID-RECORD AND SET PARAMETERS. C (ON ENTRY TO THIS PROCESSOR THE FIRST ID RECORD IS AT HAND) C FILE = INFILE MCB(1) = SCRT5 MCB(2) = 0 MCB(3) = 0 MCB(4) = 2 MCB(5) = 1 MCB(6) = 0 MCB(7) = 0 IF (IPASS.EQ.1 .AND. FRSTID) GO TO 50 40 CALL READ (*130,*130,INFILE,IDREC,146,EOR,NWDS) MAJID = MOD(IDREC(2),1000) IF (MAJID .NE. ITYPE1) GO TO 310 C C IF FIRST COLUMN, OFP-ID RECORD IS WRITTEN AS IS TO MAP FILE. C 50 IF (.NOT. COL1) GO TO 60 IF (.NOT.FRSTID .AND. RIDREC(6).NE.LAMBDA) GO TO 60 CALL WRITE (SCRT4,IDREC,146,EOR) 60 LENTRY = IDREC(10) I1 = NWORDS + 1 I2 = LENTRY MINOR = IDREC(3) C C IF SAME EIGENVALUE AS THAT OF LAST OFP-ID RECORD THEN CONTINUE. C IF (FRSTID) GO TO 70 IF (RIDREC(6) .EQ. LAMBDA) GO TO 80 C C NEW EIGENVALUE. COMPLETE CURRENT DATA MATRIX COLUMN AND START C NEW COLUMN. PASS ONE IS NOW COMPLETE. C CALL BLDPKN (SCRT5,0,MCB) IF (COL1) IROW1 = IROW IF (IROW .NE. IROW1) GO TO 290 COL1 = .FALSE. C C START NEW COLUMN. C 70 CALL BLDPK (1,1,SCRT5,0,0) IROW = 0 FRSTID = .FALSE. LAMBDA = RIDREC(6) C C READ A POINT OR ELEMENT ENTRY. C 80 CALL READ (*360,*120,INFILE,BUF,LENTRY,NOEOR,NWDS) ID = BUF(1)/10 C C CHECK FOR ID IN OUTPUT REQUEST LIST C IDVICE = DEVICE IF (SETID) 100,95,90 C C//// NEXT MAY NOT NEED TO BE INITIALIZED EVERY TIME. C 90 NEXT = 1 CALL SETFND (*95,Z(ISTLST),LSTLST,ID,NEXT) GO TO 100 95 IF (.NOT. ANYXY) GO TO 80 CALL BISLOC (*80,ID,Z(IXY),1,LXY,JP) IDVICE = 0 C C THIS ID IS TO BE OUTPUT. C 100 IF (.NOT. COL1) GO TO 105 BUF(1) = 10*ID + IDVICE CALL WRITE (SCRT4,BUF(1),NWORDS,NOEOR) NSTXTR = 0 IF (ITYPE1.NE.5 .OR. SAVDAT(MINOR).EQ.0) GO TO 104 NPOS = SAVDAT(MINOR)/100 NSTXTR = SAVDAT(MINOR) - NPOS*100 DO 101 I = 1,NSTXTR J = SAVPOS(NPOS+I-1) 101 BUFSAV(I) = BUF(J) CALL WRITE (SCRT4,BUFSAV(1),NSTXTR,NOEOR) 104 CONTINUE C C OUTPUT TO DATA MATRIX THE COMPONENTS OF THIS ENTRY. C 105 DO 110 I = I1,I2 IROW = IROW + 1 A(1) = RBUF(I) C C GET RID OF INTEGERS. C C OLD LOGIC - C IF (MACH.NE.5 .AND. IABS(IA(1)) .LT. 100000000) A(1) = 0.0 C IF (MACH.EQ.5 .AND. (IA(1).LE.127.AND.IA(1).GE.1)) A(1) = 0.0 C OLD LOGIC SHOULD INCLUDE ALPHA MACHINE (MACH=21) C C NEW LOGIC BY G.CHAN/UNISYS, 8/91 - IF (NUMTYP(IA(1)) .LE. 1) A(1) = 0.0 C CALL ZBLPKI 110 CONTINUE GO TO 80 C C END OF CURRENT OFP-DATA RECORD ENCOUNTERED. C IF NEXT OFP-ID-RECORD INDICATES ANOTHER OFP-DATA RECORD FOR C THIS SAME EIGENVALUE (I.E. A CHANGE IN ELEMENT TYPE) THEN C FURTHER CONSTRUCTION OF THE DATA MATRIX COLUMN TAKES PLACE. C 120 IF (COL1) CALL WRITE (SCRT4,0,0,EOR) GO TO 40 C C END OF FILE ENCOUNTERED ON INFILE. C DATA MATRIX AND MAPING FILE ARE COMPLETE. C 130 CALL CLOSE (INFILE,CLSREW) CALL CLOSE (SCRT4 ,CLSREW) C C COMPLETE LAST COLUMN OF DATA MATRIX WRITTEN. C IF (COL1) IROW1 = IROW IF (IROW .NE. IROW1) GO TO 310 CALL BLDPKN (SCRT5,0,MCB) MCB(3) = IROW CALL WRTTRL (MCB) CALL CLOSE (SCRT5,CLSREW) C C TO GET SOLUTION MATRIX BASED ON SORT-1 INFILE. C C SOLVE, C (DATA MATRIX) X (MODAL SOLUTION MATRIX) C NCOMPS X NLAMBS NLAMBS X NSOLUTIONS C =============== ======================= C C RESULTANT MATRIX IS NCOMPS BY NSOLUTIONS IN SIZE. C C C MATRIX MULTIPLY SETUP AND CALL. C MCBA(1) = SCRT5 CALL RDTRL (MCBA) MCBB(1) = UVSOL IF (TRNSNT) MCBB(1) = SCRT(IPASS) CALL RDTRL (MCBB) MCBC(1) = 0 MCBD(1) = SCRT6 MCBD(2) = 0 MCBD(3) = IROW MCBD(4) = 2 MCBD(5) = 1 MCBD(6) = 0 MCBD(7) = 0 IF (.NOT.TRNSNT) MCBD(5) = 3 NXY1 = NXY + 1 IF (MOD(NXY1,2) .EQ. 0) NXY1 = NXY1 + 1 LZ = KORSZ(Z(NXY1)) ITFLAG = 0 ISINAB = 1 ISINC = 1 IPREC = 1 ISCRT = SCRT7 CALL MPYAD (Z(NXY1),Z(NXY1),Z(NXY1)) MCBD(1) = SCRT6 CALL WRTTRL (MCBD) C C PRODUCT MATRIX IS NOW OUTPUT, USING THE MAP ON SCRT4 FOR EACH C COLUMN. (SORT-1) PRODUCT MATRIX IS ON SCRATCH DATA BLOCK 6. C IERROR = 10 FILE = OUTFIL CALL OPEN (*350,OUTFIL,Z(BUF1),WRT) FILE = SCRT4 CALL OPEN (*350,SCRT4,Z(BUF2),RDREW) FILE = SCRT6 CALL OPEN (*350,SCRT6,Z(BUF3),RDREW) CALL FWDREC (*360,SCRT6) JLIST = ILIST C C LOOP ON COLUMNS OF SCRT6. C 140 CALL DDRMMA (.TRUE.) C C READ AN OFP-ID-RECORD FROM THE MAP. C FILE = SCRT4 150 CALL READ (*270,*370,SCRT4,IDREC,146,EOR,NWDS) C C SET THE FREQUENCY OR TIME AND CLOBBER THE EIGENVALUE. C RIDREC(5) = RZ(JLIST) RIDREC(6) = 0.0 IDOUT = .FALSE. MINOR = IDREC(3) C C SET NUMBER OF STRESS OR FORCE WORDS AND COMPLEX POINTERS IF C NECESSARY C ITYPE2 = IDREC(3) IF (ITYPE1.EQ.3 .OR. ITYPE1.EQ.7) GO TO 200 IELEM = (ITYPE2-1)*INCR IF (ITYPE1 .EQ. 4) GO TO 180 IF (ITYPE1 .EQ. 5) GO TO 190 WRITE (OUTPT,170) SWM,ITYPE1,ITYPE2,INFILE 170 FORMAT (A27,' 2334. (DDRMM-3) ILLEGAL MAJOR OR MINOR OFP-ID ', 1 'IDENTIFICATIONS =',2I10, /5X,'DETECTED IN DATA BLOCK',I5, 2 '. PROCESSING OF SAID DATA BLOCK DISCONTINUED.') GO TO 340 C C FORCES ASSUMED. C 180 LSF = ELEM(IELEM+19) NPTSF = ELEM(IELEM+21) NWDSF = LSF GO TO 220 C C STRESSES ASSUMED. C 190 LSF = ELEM(IELEM+18) NPTSF = ELEM(IELEM+20) NWDSF = LSF GO TO 220 C C SPCF OR DISPLACEMENTS ASSUMED C 200 IF (.NOT.TRNSNT) GO TO 210 NWDSF = 8 GO TO 220 210 NWDSF = 14 C C SET OMEGA IF THIS IS THE VELOCITY OR ACCELERATION PASS C GO TO (220,211,212), IPASS C C OMEGA FOR VELOCITY PASS C 211 OMEGA = TWOPI*RZ(JLIST) GO TO 220 C C OMEGA FOR ACCELERATION PASS C 212 OMEGA = -((TWOPI*RZ(JLIST))**2) C 220 LENTRY = IDREC(10) I1 = NWORDS + 1 I2 = LENTRY C C C SET DISPLACEMENT, VELOCITY, OR ACCELERATION OFP MAJOR ID IF INFILE C IS MODAL DISPLACEMENTS. C IF (ITYPE1 .NE. 7) GO TO 230 IDREC(2) = DVAMID(IPASS) 230 IF (.NOT.TRNSNT) IDREC(2) = IDREC(2) + 1000 C C RESET APPROACH CODE FROM EIGENVALUE TO TRANSIENT OR FREQUENCY C IAPP = 5 IF (TRNSNT) IAPP = 6 IDREC(1) = 10*IAPP + DEVICE C C FILL TITLE, SUBTITLE, AND LABEL FROM CASECC FOR THIS SUBCASE. C DO 238 I = 1,96 IDREC(I+50) = Z(ICC+I+37) 238 CONTINUE IDREC(4) = SUBCAS C C READ FIRST WORDS OF OUTPUT ENTRY FROM MAP. C 240 CALL READ (*360,*260,SCRT4,BUF,NWORDS,NOEOR,NWDS) LMINOR = .TRUE. IF (ITYPE1.NE.5 .OR. SAVDAT(MINOR).EQ.0) GO TO 241 NPOS = SAVDAT(MINOR)/100 NSTXTR = SAVDAT(MINOR) - NPOS*100 CALL READ (*360,*370,SCRT4,BUFSAV(1),NSTXTR,NOEOR,NWDS) LMINOR = .FALSE. 241 CONTINUE C C GET BALANCE USING UTILITY WHICH WILL COLLECT AND MAP TOGETHER C AS REQUIRED REAL OR COMPLEX, AND GENERATE MAGNITUDE/PHASE IF C REQUIRED. (THIS ROUTINE WILL BUFFER DATA IN FROM SCRT6 AS IT C NEEDS IT.) C CALL DDRMMA (.FALSE.) C C CALL DDRMMS TO RECOMPUTE SOME ELEMENT STRESS QUANTITIES C IN TRANSIENT PROBLEMS ONLY. C IF (TRNSNT .AND. ITYPE1.EQ.5) CALL DDRMMS (BUF,ITYPE2,BUF4,BUF5) IF (IDOUT) GO TO 250 IDREC( 9) = FORM IDREC(10) = NWDSF CALL WRITE (OUTFIL,IDREC,146,EOR) IDOUT = .TRUE. C C OUTPUT THE COMPLETED ENTRY TO OFP OUTFIL. C 250 CALL WRITE (OUTFIL,BUF,NWDSF,NOEOR) GO TO 240 C C END OF ENTRIES FOR ONE ID-REC HIT. IF NO EOF ON MAP WITH C NEXT READ, THEN CONTINUE OUTPUT OF THIS SOLUTION COLUMN. C 260 CALL WRITE (OUTFIL,0,0,EOR) GO TO 150 C C END OF FILE ON MAP. THUS START NEXT COLUMN IF REQUIRED. C 270 JLIST = JLIST + 1 IF (JLIST .GT. NLIST) GO TO 280 CALL REWIND (SCRT4) GO TO 140 C C ALL DATA OF SOLUTION PRODUCT MATRIX HAS NOW BEEN OUTPUT. C 280 CALL CLOSE (OUTFIL,CLS) CALL CLOSE (INFILE,CLSREW) CALL CLOSE (SCRT4,CLSREW) CALL CLOSE (SCRT6,CLSREW) IPASS = IPASS + 1 IF (IPASS .GT. PASSES) GO TO 340 C C PREPARE FOR ANOTHER PASS C FILE = INFILE CALL OPEN (*350,INFILE,Z(BUF1),RDREW) CALL FWDREC (*360,INFILE) GO TO 20 C C DATA INCONSISTENCY ON -INFILE-. C 290 WRITE (OUTPT,300) SWM,INFILE 300 FORMAT (A27,' 2335. (DDRMM1-1) THE AMOUNT OF DATA IS NOT ', 1 'CONSISTENT FOR EACH EIGENVALUE IN DATA BLOCK',I5, /5X, 2 'PROCESSING OF THIS DATA BLOCK TERMINATED.') GO TO 330 C C CHANGE IN MAJOR OFP-ID DETECTED ON -INFILE-. C 310 WRITE (OUTPT,320) SWM,INFILE 320 FORMAT (A27,' 2336. (DDRMM1-2) A CHANGE IN WORD 2 OF THE OFP-ID', 1 ' RECORDS OF DATA BLOCK',I5, /5X,'HAS BEEN DETECTED. ', 2 ' POOCESSING OF THIS DATA BLOCK HAS BEEN TERMINATED.') 330 IPASS = 3 GO TO 280 C C COMPLETION OF PASS FOR INPUT MODAL SOLUTION -FILE-. C 340 RETURN C C UNDEFINED FILE. C 350 RETURN 1 C C END OF FILE HIT. C 360 RETURN 2 C C END OF RECORD HIT. C 370 RETURN 3 C C INSUFFICIENT CORE. C 380 RETURN 4 END ================================================ FILE: mis/ddrmm2.f ================================================ SUBROUTINE DDRMM2 (*,*,*,*) C C PERFORMS SORT2 TYPE PROCESSING FOR MODULE DDRMM. C LOGICAL SORT2 ,COL1 ,FRSTID ,IDOUT ,TRNSNT , 1 LMINOR ,ANYXY INTEGER BUF1 ,BUF2 ,BUF3 ,BUF4 ,BUF5 , 1 BUF6 ,BUFF ,EOR ,RD ,RDREW , 2 WRT ,WRTREW ,CLS ,CLSREW ,ELEM , 3 IA(4) ,SETS ,ENTRYS ,SYSBUF ,OUTPT , 4 PASSES ,OUTFIL ,FILE ,DHSIZE ,FILNAM , 5 SETID ,FORM ,DEVICE ,PHASE ,SCRT , 6 SCRT1 ,SCRT2 ,SCRT3 ,SCRT4 ,SCRT5 , 7 SCRT6 ,SCRT7 ,TYPOUT ,DVAMID(3),BUF(150), 8 Z(1) ,UVSOL ,BUFA(75) ,BUFB(75) ,COMPLX , 9 SUBCAS ,SAVDAT ,SAVPOS ,BUFSAV ,ELWORK(300) REAL RIDREC(1),LAMBDA CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 ,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM ,SWM COMMON /STDATA/ LMINOR ,NSTXTR ,NPOS ,SAVDAT(75) , 1 SAVPOS(25) ,BUFSAV(10) COMMON /SYSTEM/ SYSBUF ,OUTPT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW , 1 CLS COMMON /ZBLPKX/ A(4) ,IROW COMMON /ZNTPKX/ AOUT(4) ,IROWO ,IEOL ,IEOR COMMON /GPTA1 / NELEM ,LAST ,INCR ,ELEM(1) COMMON /ZZZZZZ/ RZ(1) COMMON /MPYADX/ MCBA(7) ,MCBB(7) ,MCBC(7) ,MCBD(7) ,LZ , 1 ITFLAG ,ISINAB ,ISINC ,IPREC ,ISCRT COMMON /CLSTRS/ COMPLX(1) COMMON /DDRMC1/ IDREC(146),BUFF(6) ,PASSES ,OUTFIL ,JFILE , 1 MCB(7) ,ENTRYS ,SETS(5,3),INFILE ,LAMBDA , 2 FILE ,SORT2 ,COL1 ,FRSTID ,NCORE , 3 NSOLS ,DHSIZE ,FILNAM(2),RBUF(150),IDOUT , 4 ICC ,NCC ,ILIST ,NLIST ,NWDS , 5 SETID ,TRNSNT ,I1 ,I2 ,PHASE , 6 ITYPE1 ,ITYPE2 ,NPTSF ,LSF ,NWDSF , 7 SCRT(7) ,IERROR ,ITEMP ,DEVICE ,FORM , 8 ISTLST ,LSTLST ,UVSOL ,NLAMBS ,NWORDS , 9 OMEGA ,IPASS ,SUBCAS COMMON /CONDAS/ PI ,TWOPI EQUIVALENCE (SCRT1,SCRT(1)), (SCRT2,SCRT(2)), (SCRT3,SCRT(3)), 1 (SCRT4,SCRT(4)), (SCRT5,SCRT(5)), (SCRT6,SCRT(6)), 2 (SCRT7,SCRT(7)), (BUF1 ,BUFF(1)), (BUF2 ,BUFF(2)), 3 (BUF3 ,BUFF(3)), (BUF4 ,BUFF(4)), (BUF5 ,BUFF(5)), 4 (BUF6 ,BUFF(6)), (A(1) , IA(1)), (Z(1) , RZ(1)), 5 (BUF(1),RBUF(1),BUFA(1)), (BUFB(1),BUF(76)), 6 (IDREC(1),RIDREC(1)) C DATA EOR , NOEOR / 1, 0 /, DVAMID / 2001, 2010, 2011 / C C FORMATION OF DATA-MATRIX AND SUBSEQUENT MULTIPLICATION BY SAME OF C THE SOLUTION MATRIX (TRNNSPOSED), AND ULTIMATE OUTPUT OF TRANSIENT C OR FREQUENCY SOLUTIONS. C IPASS = 1 IOMEGA = NLIST + 1 NOMEGA = IOMEGA - 1 MINOR = 0 20 COL1 = .TRUE. FRSTID = .TRUE. SETID = SETS(1,IPASS) DEVICE = SETS(2,IPASS) FORM = SETS(3,IPASS) ISTLST = SETS(4,IPASS) LSTLST = SETS(5,IPASS) C C GET LIST OF XYPLOT REQUESTED IDS FOR CURRENT SUBCASE AND C OUTFIL TYPE. C GO TO (22,23,24,25), JFILE C C DISPLACEMENT, VELOCITY, ACCELERATION C 22 IXYTYP = IPASS GO TO 26 C C SPCF C 23 IXYTYP = 4 GO TO 26 C C STRESS C 24 IXYTYP = 6 GO TO 26 C C FORCE C 25 IXYTYP = 7 GO TO 26 C 26 IXY = NOMEGA + 1 CALL DDRMMP (*480,Z(IXY),BUF3-IXY,LXY,IXYTYP,SUBCAS,Z(BUF3),ANYXY) IF (.NOT.ANYXY .AND. SETID.EQ.0) GO TO 400 NXY = IXY + LXY - 1 IERROR = 23 FILE = SCRT4 CALL OPEN (*450,SCRT4,Z(BUF3),WRTREW) FILE = SCRT5 CALL OPEN (*450,SCRT5,Z(BUF2),WRTREW) CALL FNAME (SCRT5,FILNAM) CALL WRITE (SCRT5,FILNAM,2,EOR) C C LOGIC TO BUILD SORT-2 FORMAT DATA MATRIX. C C EACH COLUMN WRITTEN HERE ENCOMPASSES ALL EIGENVALUES FOR C ONE COMPONENT OF ONE ID. THE NUMBER OF COLUMNS THUS EQUALS C THE SUM OF ALL COMPONENTS OF ALL REQUESTED ID-S. C C READ AN OFP-ID RECORD AND SET PARAMETERS. C (ON ENTRY TO THIS PROCESSOR ONE ID-RECORD IS AT HAND) C FILE = INFILE IERROR = 19 MCB(1) = SCRT5 MCB(2) = 0 MCB(3) = NLAMBS MCB(4) = 2 MCB(5) = 1 MCB(6) = 0 MCB(7) = 0 IF (IPASS.EQ.1 .AND. FRSTID) GO TO 50 40 CALL READ (*160,*160,INFILE,IDREC,146,EOR,NWDS) C C OFP-ID RECORD IS WRITTEN TO THE MAP FILE ONLY ON CHANGE OF C MINOR ID. C 50 MAJOR = MOD(IDREC(2),1000) IF (MAJOR .NE. ITYPE1) GO TO 420 IDVICE = DEVICE ID = IDREC(5)/10 IF (SETID) 80,65,60 60 NEXT = 1 CALL SETFND (*65,Z(ISTLST),LSTLST,ID,NEXT) GO TO 80 65 IF (.NOT.ANYXY) GO TO 70 CALL BISLOC (*70,ID,Z(IXY),1,LXY,JP) IDVICE = 0 GO TO 80 C C ID IS NOT TO BE OUTPUT THUS SKIP UPCOMING OFP-DATA-RECORD. C 70 CALL FWDREC (*460,INFILE) GO TO 40 C C ID IS TO BE OUTPUT THUS CONTINUE. C 80 NUMWDS = NLAMBS*IDREC(10) IDATA = NXY + 1 NDATA = IDATA + NUMWDS - 1 IF (NDATA .LT. BUF3) GO TO 100 C C INSUFFICIENT CORE C INSUF = NDATA - BUF3 WRITE (OUTPT,90) UWM,INFILE,INSUF 90 FORMAT (A25,' 2337. (DDRMM2-2) DATA BLOCK',I5,' CAN NOT BE ', 1 'PROCESSED DUE TO', /5X,'A CORE INSUFFICIENCY OF APPROXI', 2 'MATELY',I11,' DECIMAL WORDS.') GO TO 440 100 IF (.NOT.FRSTID) GO TO 110 C C VERY FIRST ID RECORD, THUS SET MINOR ID. C FRSTID = .FALSE. GO TO 120 110 IF (IDREC(3) .EQ. MINOR) GO TO 130 C C CHANGE IN MINOR ID, I.E. NEW ELEMENT TYPE. COMPLETE CURRENT C RECORD OF MAP AND OUTPUT ANOTHER ID-RECORD. C CALL WRITE (SCRT4,0,0,EOR) 120 CALL WRITE (SCRT4,IDREC,146,EOR) MINOR = IDREC(3) C C SAME TYPE OF DATA THUS CONTINUE ON. C 130 LENTRY = IDREC(10) I1 = NWORDS + 1 I2 = LENTRY C C READ AND OUTPUT ONE FULL OFP-DATA RECORD. C CALL READ (*460,*470,INFILE,Z(IDATA),NUMWDS,EOR,NWDS) DO 150 I = I1,I2 C C START NEW COLUMN C CALL BLDPK (1,1,SCRT5,0,0) IROW = 0 JDATA = IDATA + I - 1 KDATA = NDATA - LENTRY + I DO 140 J = JDATA,KDATA,LENTRY IROW = IROW + 1 A(1) = RZ(J) C C ELIMINATE INTEGERS C C OLD LOGIC - C IF (MACH.NE.5 .AND. IABS(IA(1)).LT.100000000) A(1) = 0.0 C IF (MACH.EQ.5 .AND. (IA(1).LE.127 .AND. IA(1).GE.1)) A(1) = 0.0 C OLD LOGIC SHOULD INCLUDE ALPHA MACHINE (MACH=21) C C NEW LOGIC, BY G.CHAN/UNISYS 8/91 - IF (NUMTYP(IA(1)) .LE. 1) A(1) = 0.0 C CALL ZBLPKI 140 CONTINUE C C COMPLETE COLUMN C CALL BLDPKN (SCRT5,0,MCB) 150 CONTINUE C C OUTPUT TO MAP THE ID PLUS ANY OTHER DATA NECESSARY. C BUF(1) = 10*ID + IDVICE IF (NWORDS .EQ. 2) BUF(2) = Z(IDATA+1) NSTXTR = 0 IF (ITYPE1.NE.5 .OR. SAVDAT(MINOR).EQ.0) GO TO 155 NPOS = SAVDAT(MINOR)/100 NSTXTR = SAVDAT(MINOR) - NPOS * 100 DO 151 I = 1,NSTXTR J = SAVPOS(NPOS+I-1) 151 BUF(I+1) = Z(IDATA+J-1) 155 CALL WRITE (SCRT4,BUF,NWORDS+NSTXTR,NOEOR) C C GO FOR NEXT ID. C GO TO 40 C C END OF FILE ON INFILE. MAP AND DATA MATRIX NOW COMPLETE. C 160 CALL WRTTRL (MCB) CALL CLOSE (SCRT5,CLSREW) CALL CLOSE (INFILE,CLSREW) CALL WRITE (SCRT4,0,0,EOR) CALL CLOSE (SCRT4,CLSREW) C C SOLUTION MATRIX MAY BE FOUND BASED ON SORT-2 INFILE. C C SOLVE, C T C (MODAL SOLUTION MATRIX) X (DATA MATRIX) C NLAMBS X NSOLUTIONS NLAMBS X NCOMPS C ======================= =============== C C RESULTANT MATRIX IS NSOLUTIONS BY NCOMPS IN SIZE. C C C MATRIX MULTIPLY SETUP AND CALL. C MCBA(1) = UVSOL IF (TRNSNT) MCBA(1) = SCRT(IPASS) CALL RDTRL (MCBA) MCBB(1) = SCRT5 CALL RDTRL (MCBB) MCBC(1) = 0 MCBD(1) = SCRT6 MCBD(2) = 0 MCBD(3) = NSOLS MCBD(4) = 2 MCBD(5) = 1 MCBD(6) = 0 MCBD(7) = 0 IF (.NOT.TRNSNT) MCBD(5) = 3 ITFLAG = 1 NXY1 = NXY + 1 IF (MOD(NXY1,2) .EQ. 0) NXY1 = NXY1 + 1 LZ = KORSZ(Z(NXY1)) ISINAB = 1 ISINC = 1 IPREC = 1 ISCRT = SCRT7 CALL MPYAD (Z(NXY1),Z(NXY1),Z(NXY1)) MCBD(1) = SCRT6 CALL WRTTRL (MCBD) C C PRODUCT MATRIX IS NOW OUTPUT USING THE MAP ON SCRT4. C EACH COLUMN OF SCRT6 CONTAINS ALL THE TIME OR FREQUENCY STEP C VALUES FOR ONE COMPONENT OF ONE ID. C C THUS A NUMBER OF COLUMNS ENCOMPASSING THE COMPONENTS OF ONE ID C MUST FIT IN CORE. C IERROR = 20 FILE = OUTFIL CALL OPEN (*450,OUTFIL,Z(BUF1),WRT) FILE = SCRT4 CALL OPEN (*450,SCRT4,Z(BUF2),RDREW) FILE = SCRT6 CALL OPEN (*450,SCRT6,Z(BUF3),RDREW) CALL FWDREC (*460,SCRT6) C C READ AN OFP-ID-RECORD FROM THE MAP, AND ALLOCATE SPACE NEEDED C FOR SOLUTION DATA. C FILE = SCRT4 170 CALL READ (*400,*470,SCRT4,IDREC,146,EOR,NWDS) MINOR = IDREC(3) C C C SET DISPLACEMENT, VELOCITY, OR ACCELERATION OFP MAJOR-ID IF C INFILE IS MODAL DISPLACEMETNS = EIGENVECTORS... C IF (ITYPE1 .NE. 7) GO TO 175 IDREC(2) = DVAMID(IPASS) 175 IF (.NOT.TRNSNT) IDREC(2) = IDREC(2) + 1000 C C RESET APPROACH CODE FROM EIGENVALUE TO TRANSIENT OR FREQUENCY C IAPP = 5 IF (TRNSNT) IAPP = 6 IDREC(1) = 10*IAPP + DEVICE LENTRY = IDREC(10) - NWORDS NCOLS = LENTRY IF (.NOT.TRNSNT) LENTRY = LENTRY + LENTRY C C IF FREQUENCY RESPONSE PROBLEM AND THIS IS THE VELOCITY OR C ACCELERATION PASS THEN MOVE DOWN ANY XY LIST OF POINTS AND C ADD AN OMEGA TABLE. SOMETIMES THE MOVEDOWN OF THE XY LIST IS C REDUNDANT. C C XY LIST IS MOVED FROM BOTTOM UP INCASE XY LIST IS LONGER THAN C THE OMEGA LIST WILL BE. C IF (TRNSNT .OR. IPASS.EQ.1) GO TO 177 NOMEGA = IOMEGA + NSOLS - 1 IF (LXY .EQ. 0) GO TO 177 JXY = NXY KXY = NOMEGA + LXY DO 176 I = 1,LXY Z(KXY) = Z(JXY) JXY = JXY - 1 KXY = KXY - 1 176 CONTINUE C 177 IXY = NOMEGA + 1 NXY = IXY + LXY - 1 IDATA = NXY + 1 NDATA = IDATA + LENTRY*NSOLS - 1 TYPOUT= 3 IF (TRNSNT) TYPOUT = 1 C C FILL TITLE, SUBTITLE, AND LABEL FROM CASECC FOR THIS SUBCASE. C DO 178 I = 1,96 IDREC(I+50) = Z(ICC+I+37) 178 CONTINUE IDREC(4) = SUBCAS C C CHECK FOR SUFFICIENT CORE. C IF (NDATA .LT. BUF3) GO TO 190 INSUF = NDATA - BUF3 WRITE (OUTPT,180) UWM,OUTFIL,INSUF 180 FORMAT (A25,' 2338. (DDRMM2-3) DATA BLOCK',I5, 1 ' MAY NOT BE FULLY COMPLETED DUE TO A CORE INSUFFICIENCY', 2 /5X,'OF APPROXIMATELY',I11,' DECIMAL WORDS.') GO TO 440 C C LOOP ON ID-S AVAILABLE FROM THE MAP C C C COMPUTE OMEGAS IF NECESSARY C (NOTE, VELOCITY PASS MAY NOT ALWAYS OCCUR) C 190 IF (TRNSNT .OR. IPASS.EQ.1) GO TO 195 JLIST = IOMEGA - 1 DO 193 I = ILIST,NLIST JLIST = JLIST + 1 RZ(JLIST) = RZ(I)*TWOPI 193 CONTINUE IF (IPASS .EQ. 2) GO TO 195 DO 194 I = IOMEGA,NOMEGA RZ(I) = -RZ(I)**2 194 CONTINUE C 195 CALL READ (*460,*170,SCRT4,BUF,NWORDS,NOEOR,NWDS) LMINOR = .TRUE. IF (ITYPE1.NE.5 .OR. SAVDAT(MINOR).EQ.0) GO TO 196 NPOS = SAVDAT(MINOR)/100 NSTXTR = SAVDAT(MINOR) - NPOS*100 CALL READ (*460,*470,SCRT4,BUFSAV(1),NSTXTR,NOEOR,NWDS) LMINOR = .FALSE. 196 CONTINUE C C PREPARE AND OUTPUT THE OFP-ID-RECORD AFTER FIRST ENTRY IS COMBINED C AS IN THE CASE OF A FREQUENCY COMPLEX PROBLEM. C IDOUT = .FALSE. IDREC(5) = BUF(1) C C SET STRESS OR FORCE COMPLEX DATA PTRS IF NECESSARY. C IF (TRNSNT) GO TO 220 IF (ITYPE1 .EQ. 4) GO TO 200 IF (ITYPE1 .EQ. 5) GO TO 210 GO TO 220 C C FORCES ASSUMED C 200 IELEM = (IDREC(3)-1)*INCR LSF = ELEM(IELEM+19) NPTSF = ELEM(IELEM+21) GO TO 220 C C STRESSES ASSUMED C 210 IELEM = (IDREC(3)-1)*INCR LSF = ELEM(IELEM+18) NPTSF = ELEM(IELEM+20) GO TO 220 C C UNPACK DATA FOR ALL COMPONENTS AND ALL SOLUTION STEPS C FOR THIS ID. (NCOLS COLUMNS ARE NEEDED) C C C ZERO THE DATA SPACE C 220 DO 230 I = IDATA,NDATA Z(I) = 0 230 CONTINUE C C UNPACK NOW-ZERO TERMS. C JDATA = IDATA - LENTRY DO 270 I = 1,NCOLS CALL INTPK (*260,SCRT6,0,TYPOUT,0) C C COLUMN I HAS ONE OR MORE NON-ZEROES AVAILABLE. C 240 CALL ZNTPKI ITEMP = JDATA + IROWO*LENTRY IF (.NOT.TRNSNT) GO TO (246,247,248), IPASS C C TRANSIENT OUTPUTS C RZ(ITEMP) = AOUT(1) IF (IEOL) 240,240,260 C C DISPLACEMENTS, AND SPCFS (FREQ RESPONSE) C 246 RZ(ITEMP) = AOUT(1) ITEMP = ITEMP + NCOLS RZ(ITEMP) = AOUT(2) IF (IEOL) 240,240,260 C C VELOCITIES (FREQ RESPONSE) C 247 KLIST = IOMEGA + IROWO - 1 RZ(ITEMP) =-RZ(KLIST)*AOUT(2) ITEMP = ITEMP + NCOLS RZ(ITEMP) = RZ(KLIST)*AOUT(1) IF (IEOL) 240,240,260 C C ACCELERATIONS (FREQ RESPONSE) C 248 KLIST = IOMEGA + IROWO - 1 RZ(ITEMP) = RZ(KLIST)*AOUT(1) ITEMP = ITEMP + NCOLS RZ(ITEMP) = RZ(KLIST)*AOUT(2) IF (IEOL) 240,240,260 260 JDATA = JDATA + 1 270 CONTINUE C C OUTPUT LINES OF DATA COMBINING THEM FOR COMPLEX REAL/IMAGINARY OR C MAG/PHASE OFP FORMATS IF NECESSARY. C JLIST = ILIST - 1 DO 390 I = IDATA,NDATA,LENTRY JWORDS = NWORDS IJ = I + NCOLS - 1 DO 280 J = I,IJ JWORDS = JWORDS + 1 BUF(JWORDS) = Z(J) IF (TRNSNT) GO TO 280 ITEMP = J + NCOLS BUF(JWORDS+75) = Z(ITEMP) 280 CONTINUE C C IF TRANSIENT, ENTRY IS NOW READY FOR OUTPUT. C IF (TRNSNT) GO TO 365 C C MAP COMPLEX OUTPUTS TOGETHER PER -COMPLX- ARRAY. C IF (ITYPE1.EQ.4 .OR. ITYPE1.EQ.5) GO TO 300 C C POINT DATA C DO 290 K = 3,8 IF (FORM .EQ. 3) CALL MAGPHA (BUFA(K),BUFB(K)) BUFA(K+6) = BUFB(K) 290 CONTINUE JWORDS = 14 GO TO 370 C C ELEMENT STRESS OR FORCE DATA. C 300 IOUT = 0 L = NPTSF IF (LMINOR) GO TO 310 DO 305 K = 1,NSTXTR J = SAVPOS(NPOS+K-1) 305 BUF(J) = BUFSAV(K) 310 NPT = COMPLX(L) IF (NPT) 320,350,340 320 NPT = -NPT IF (FORM .NE. 3) GO TO 340 C C COMPUTE MAGNITUDE/PHASE C CALL MAGPHA (BUFA(NPT),BUFB(NPT)) 330 IOUT = IOUT + 1 ELWORK(IOUT) = BUFA(NPT) L = L + 1 GO TO 310 340 IF (NPT .LE. LSF) GO TO 330 NPT = NPT - LSF IOUT = IOUT + 1 ELWORK(IOUT) = BUFB(NPT) L = L + 1 GO TO 310 C C MOVE OUTPUT DATA C 350 DO 360 L = 1,IOUT BUF(L) = ELWORK(L) 360 CONTINUE JWORDS = IOUT GO TO 370 365 CONTINUE IF (LMINOR) GO TO 370 DO 366 K = 1,NSTXTR J = SAVPOS(NPOS+K-1) 366 BUF(J) = BUFSAV(K) C C CALL DDRMMS TO RECOMPUTE SOME ELEMENT STRESS QUANTITIES C IN TRANSIENT PROBLEMS ONLY. C 370 IF (TRNSNT .AND. ITYPE1.EQ.5) CALL DDRMMS (BUF,IDREC(3),BUF4,BUF5) IF (IDOUT) GO TO 380 IDREC( 9) = FORM IDREC(10) = JWORDS CALL WRITE (OUTFIL,IDREC,146,EOR) IDOUT = .TRUE. 380 JLIST = JLIST + 1 RBUF(1) = RZ(JLIST) CALL WRITE (OUTFIL,BUF,JWORDS,NOEOR) 390 CONTINUE CALL WRITE (OUTFIL,0,0,EOR) C C GO FOR NEXT OUTPUT ID C GO TO 190 C C END OF DATA ON MAP FILE (SCRT4). C 400 CALL CLOSE (OUTFIL,CLS) CALL CLOSE (INFILE,CLSREW) CALL CLOSE (SCRT4,CLSREW) CALL CLOSE (SCRT6,CLSREW) IPASS = IPASS + 1 IF (IPASS .GT. PASSES) GO TO 410 C C PREPARE FOR ANOTHER PASS C FILE = INFILE CALL OPEN (*450,INFILE,Z(BUF1),RDREW) CALL FWDREC (*460,INFILE) GO TO 20 410 RETURN C C CHANGE IN MAJOR OFP-ID DETECTED ON -INFILE-. C 420 WRITE (OUTPT,430) SWM,INFILE 430 FORMAT (A27,' 2339. (DDRMM2-1) A CHANGE IN WORD 2 OF THE OFP-ID', 1 ' RECORDS OF DATA BLOCK',I5, /5X,'HAS BEEN DETECTED. ', 2 ' POOCESSING OF THIS DATA BLOCK HAS BEEN TERMINATED.') 440 IPASS = 3 GO TO 400 C C UNDEFINED FILE. C 450 RETURN 1 C C END OF FILE C 460 RETURN 2 C C END OF RECORD. C 470 RETURN 3 C C INSUFFICIENT CORE C 480 RETURN 4 END ================================================ FILE: mis/ddrmma.f ================================================ SUBROUTINE DDRMMA( SETUP ) C***** C UNPACKS DATA FROM A TRANSIENT OR FREQUENCY RESPONSE SOLUTION C COLUMN AS REQUIRED TO FORM ONE OFP OUTPUT LINE ENTRY. C C BEFORE CALLING FOR ENTRY CONSTRUCTION ONE SETUP CALL IS REQUIRED C FOR EACH COLUMN. (SETUP = .TRUE.) C***** REAL LAMBDA ,RBUFA(75),RBUFB(75) C INTEGER BUF(150), BUFA(75), BUFB(75), ELWORK(300), PHASE, COMPLX INTEGER SCRT,BUFF,FILE,OUTFIL,SETID,DHSIZE,ENTRYS,FILNAM,PASSES INTEGER SETS,DEVICE,FORM,UVSOL INTEGER TYPOUT INTEGER SAVDAT,SAVPOS,BUFSAV C LOGICAL SETUP ,TRNSNT ,SORT2 ,COL1 ,FRSTID LOGICAL LMINOR C COMMON/STDATA/ LMINOR ,NSTXTR ,NPOS ,SAVDAT(75) 1 ,SAVPOS(25) ,BUFSAV(10) COMMON/DDRMC1/ IDREC(146),BUFF(6) ,PASSES ,OUTFIL ,JFILE 1 ,MCB(7) ,ENTRYS ,SETS(5,3),INFILE ,LAMBDA 2 ,FILE ,SORT2 ,COL1 ,FRSTID ,NCORE 3 ,NSOLS ,DHSIZE ,FILNAM(2),RBUF(150),IDOUT 4 ,ICC ,NCC ,ILIST ,NLIST ,NWDS 5 ,SETID ,TRNSNT ,I1 ,I2 ,PHASE 6 ,ITYPE1 ,ITYPE2 ,NPTSF ,LSF ,NWDSF 7 ,SCRT(7) ,IERROR ,ITEMP ,DEVICE ,FORM 8 ,ISTLST ,LSTLST ,UVSOL ,NLAMBS ,NWORDS 9 ,OMEGA ,IPASS COMMON/CLSTRS/ COMPLX(1) COMMON/ZNTPKX/ A(4), IROW, IEOL, IEOR C EQUIVALENCE(BUF(1),RBUF(1),BUFA(1),RBUFA(1)) 1 ,(RBUFB(1),BUFB(1),BUF(76)) C***** C PERFORM SOLUTION COLUMN SETUP WHEN SETUP = .TRUE. C***** IF( .NOT. SETUP ) GO TO 10 TYPOUT = 3 IF( TRNSNT ) TYPOUT = 1 ICOMP = 1 CALL INTPK(*5,SCRT(6),0,TYPOUT,0) CALL ZNTPKI RETURN 5 IROW = 0 RETURN C***** C FILL BUFFER WITH REAL AND OR COMPLEX VALUES. C***** 10 K = I1 - 1 DO 20 I = 1,K BUFB(I) = BUFA(I) 20 CONTINUE DO 70 I = I1,I2 IF( ICOMP .EQ. IROW ) GO TO 30 RBUFA(I) = 0.0 RBUFB(I) = 0.0 GO TO 60 C C NON-ZERO COMPONENT AVAILABLE. C 30 IF( .NOT. TRNSNT ) GO TO (31,32,33), IPASS C C TRANSIENT RESPONSE C RBUFA(I) = A(1) IF( IEOL ) 40,40,50 C C FREQUENCY RESPONSE FOR DISPLACEMENTS OR SPCFS PASS C 31 RBUFA(I) = A(1) RBUFB(I) = A(2) IF( IEOL ) 40,40,50 C C FREQUENCY RESPONSE VELOCITYS PASS C 32 RBUFA(I) = -OMEGA * A(2) RBUFB(I) = OMEGA * A(1) IF( IEOL ) 40,40,50 C C FREQUENCY RESPONSE ACCELERATIONS PASS C 33 RBUFA(I) = OMEGA * A(1) RBUFB(I) = OMEGA * A(2) IF( IEOL ) 40,40,50 40 CALL ZNTPKI GO TO 60 C 50 IROW = 0 C 60 ICOMP = ICOMP + 1 C 70 CONTINUE C***** C IF TRANSIENT (REAL) THEN RETURN. FOR FREQUENCY (COMPLEX) COMBINE DATA C FOR OUTPUT AND CONVERT TO MAGNITUDE PHASE IF NECESSARY. C C BUFA CONTAINS THE REAL PART C BUFB CONTAINS THE IMAGINARY PART C***** IF (TRNSNT) GO TO 81 IF (ITYPE1 .EQ. 4) GO TO 90 IF (ITYPE1 .EQ. 5) GO TO 81 C C POINT DATA C DO 80 K = 1,6 IF( FORM .EQ. 3 ) CALL MAGPHA( BUFA(K+2), BUFB(K+2) ) BUFA(K+8) = BUFB(K+2) 80 CONTINUE NWDSF = 14 RETURN C C ELEMENT STRESS OR FORCE DATA C 81 IF (LMINOR) GO TO 90 DO 82 K=1,NSTXTR J=SAVPOS(NPOS+K-1) 82 BUF(J) = BUFSAV(K) 90 IF (TRNSNT) RETURN IOUT = 0 I = NPTSF 100 NPT = COMPLX(I) IF( NPT ) 110,140,130 110 NPT = -NPT IF( FORM .NE. 3 ) GO TO 130 C C COMPUTE MAGNITUDE PHASE C CALL MAGPHA( BUFA(NPT), BUFB(NPT) ) 120 IOUT = IOUT + 1 ELWORK(IOUT) = BUFA(NPT) I = I + 1 GO TO 100 130 IF( NPT .LE. LSF ) GO TO 120 NPT = NPT - LSF IOUT = IOUT + 1 ELWORK(IOUT) = BUFB(NPT) I = I + 1 GO TO 100 C C MOVE OUTPUT DATA C 140 DO 150 I = 1,IOUT BUF(I) = ELWORK(I) 150 CONTINUE NWDSF = IOUT RETURN END ================================================ FILE: mis/ddrmmp.f ================================================ SUBROUTINE DDRMMP(*,Z,NCORE,LUSED,IXYTYP,ICASE,BUFF,ANYXY) C***** C BUILD LIST OF POINTS IN SORT FOR WHICH XYCDB OUTPUT REQUESTS EXIST C OF FILE TYPE -IXYTYP- AND OF SUBCASE 0 AND SUBCASE -ICASE-. C***** INTEGER Z(1), LOC(6), BUFF(1), XYCDB C LOGICAL ANYXY C///// COMMON/SYSTEM/ SYSBUF, IOUT COMMON/NAMES / RD, RDREW, WRT, WRTREW, CLSREW, CLS COMMON/DDRMC1/ DUMMY(362), IERROR C///// C DATA XYCDB/ 108 /, NOEOR / 0 / C LUSED = 0 ANYXY = .FALSE. CALL OPEN(*100,XYCDB,BUFF,RDREW) CALL FWDREC(*300,XYCDB) CALL FWDREC(*300,XYCDB) C C FIND ENTRIES IN SUBCASE 0 OF THIS TYPE IF ANY. C 5 CALL READ(*300,*300,XYCDB,LOC,6,NOEOR,NWDS) IF( LOC(1) ) 10,10,20 10 IF( LOC(2) .NE. IXYTYP ) GO TO 5 C C SAVE ID IN TABLE C IF( LUSED ) 11,11,12 C C ADD TO LIST IF NOT A REPEAT ID C 12 IF( LOC(3) .EQ. Z(LUSED) ) GO TO 5 11 LUSED = LUSED + 1 IF( LUSED .GT. NCORE ) GO TO 1000 Z(LUSED) = LOC(3) GO TO 5 C C FIND ENTRIES IN SUBCASE -ICASE- OF THIS TYPE IF ANY EXIST. C 15 CALL READ(*300,*300,XYCDB,LOC,6,NOEOR,NWDS) 20 IF( LOC(1) - ICASE ) 15, 30, 300 30 IF( LOC(2) - IXYTYP ) 15, 40, 300 40 LUSED = LUSED + 1 IF( LUSED .GT. NCORE ) GO TO 1000 Z(LUSED) = LOC(3) GO TO 15 C C LIST IS NOW COMPLETE THUS SORT IT, AND REMOVE REPEATED IDS. C 300 CALL CLOSE( XYCDB, CLSREW ) IF( LUSED ) 100,100,301 301 CALL SORT( 0, 0, 1, 1, Z(1), LUSED ) ANYXY = .TRUE. C J = 1 IF( LUSED .EQ. 1 ) GO TO 305 DO 303 I = 2,LUSED IF( Z(I) .EQ. Z(J) ) GO TO 303 J = J + 1 Z(J) = Z(I) 303 CONTINUE C 305 LUSED = J 100 RETURN C C INSUFFICIENT CORE ALTERNATE RETURN. C 1000 IERROR = 859 RETURN 1 END ================================================ FILE: mis/ddrmms.f ================================================ SUBROUTINE DDRMMS (BUF,ELTYPE,BUF4,BUF6) C EXTERNAL ANDF INTEGER ANDF ,BUF4 ,BUF6 ,DIT ,ELM(4),ELT ,BUFA(100) , 1 EST ,IELID ,IELTMP,INT1 ,Z ,FILE ,ELTYPE,MATFLG, 2 MATID ,MPT ,MTD(4),N ,NELT ,NWORDS,N1MAT ,N2MAT , 3 TMP(4),WRD(4) REAL BUF(16),ELTEMP,STRESS,SINTH ,COTH ,E ,G ,NU , 1 RHO ,ALPHA ,T0 ,GSUBE ,SIGT ,SIGC ,SIGS ,FINT1 , 2 TEMP ,CPRIM COMMON /MATIN / MATID ,MATFLG,ELTEMP,STRESS,SINTH ,COTH COMMON /MATOUT/ E,G ,NU,RHO,ALPHA ,T0 ,GSUBE ,SIGT ,SIGC , 1 SIGS COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ ISYS(61) EQUIVALENCE (INT1,FINT1) ,(IELTMP,ELTEMP) DATA INT1/1/ ,EST/109/ ,MPT/110/ ,DIT/111/ ,ELM/1,3,10,34 / , 1 MTD / 4,4,4,16/ ,TMP/ 17,16,17,42 / ,WRD/17,16,17,42/ C C DO 210 I = 1,4 IF (ELM(I) .EQ. ELTYPE) GO TO 215 210 CONTINUE GO TO 230 215 NELT = I CALL OPEN (*240,EST,Z(BUF4),0) 220 CALL FWDREC (*250,EST) CALL FREAD (EST,ELT,1,0) IF (ELT .NE. ELTYPE) GO TO 220 NWORDS = WRD(NELT) CALL FREAD (EST,BUFA,NWORDS,0) CALL CLOSE (EST,1) N1MAT = BUF4 - BUF6 CALL PREMAT (Z(BUF6),Z(BUF6),Z(BUF4),N1MAT,N2MAT,MPT,DIT) MATFLG = 1 ITEMP = TMP(NELT) IMATID = MTD(NELT) IELTMP = BUFA(ITEMP) MATID = BUFA(IMATID) IELID = BUFA(1) CALL MAT (IELID) 230 CONTINUE IF (ELTYPE) 200,200,10 10 IF (ELTYPE .GT. 100) GO TO 200 C ROD BEAM TUBE SHEAR TWIST GO TO ( 21 ,1 ,21 ,1 ,1 C TRIA1 TRBSC TRPLT TRMEM CONROD 1 ,20 ,20 ,20 ,40 ,21 C ELAS1 ELAS2 ELAS3 ELAS4 QDPLT 2 ,1 ,1 ,1 ,1 ,20 C QDMEM TRIA2 QUAD2 QUAD1 DAMP1 3 ,40 ,20 ,20 ,20 ,1 C DAMP2 DAMP3 DAMP4 VISC MASS1 4 ,1 ,1 ,1 ,1 ,1 C MASS2 MASS3 MASS4 CONM1 CONM2 5 ,1 ,1 ,1 ,1 ,1 C PLOTEL REACT QUAD3 BAR CONE 6 ,1 ,1 ,1 ,22 ,1 C TRIARG TRAPRG TORDRG TETRA WEDGE 7 ,1 ,1 ,1 ,150 ,150 C HEXA1 HEXA2 FLUID2 FLUID3 FLUID4 8 ,150 ,150 ,1 ,1 ,1 C FLMASS AXIF2 AXIF3 AXIF4 SLOT3 9 ,1 ,1 ,1 ,1 ,1 C SLOT4 HBDY DUM1 DUM2 DUM3 A ,1 ,1 ,1 ,1 ,1 C DUM4 DUM5 DUM6 DUM7 DUM8 B ,1 ,1 ,1 ,1 ,1 C DUM9 QDMEM1 QDMEM2 QUAD4 IHEX1 C ,1 ,40 ,40 ,20 ,1 C IHEX2 IHEX3 QUADTS TRIATS TRIAAX D ,1 ,1 ,1 ,1 ,1 C TRAPAX AERO1 TRIM6 TRPLT1 TRSHL E ,1 ,1 ,1 ,1 ,1 C FHEX1 FHEX2 FTETRA FWEDGE IS2D8 F ,1 ,1 ,1 ,1 ,40 C ELBOW FTUBE TRIA3 ----- ----- G ,22 ,1 ,20 ,1 ,1 C ----- ----- ----- ----- ----- H ,1 ,1 ,1 ,1 ,1 C ----- ----- ----- ----- ----- I ,1 ,1 ,1 ,1 ,1 C ----- ----- ----- ----- ----- J ,1 ,1 ,1 ,1 ,1 ), ELTYPE C C ROD CONROD TUBE C 21 BUF(3) = FINT1 BUF(5) = FINT1 C C M. S. IN TENSION OR COMPRESSION C IF (BUF(2) .GE. 0.0) GO TO 300 IF (SIGC .EQ. 0.0) GO TO 301 BUF(3) = (-ABS(SIGC)/BUF(2))-1.0 GO TO 301 300 IF (SIGT.LE.0.0 .OR. BUF(2).EQ.0.0) GO TO 301 BUF(3) = SIGT/BUF(2)-1.0 C C M. S. IN TORSION C 301 IF (BUF(4).EQ.0.0 .OR. SIGS.LE.0.0) GO TO 200 BUF(3) = SIGS/ABS(BUF(4))-1.0 GO TO 200 C C BAR ELBOW C 22 BUF( 7) = BUF(6) + AMAX1(BUF(2),BUF(3),BUF(4),BUF(5)) BUF( 8) = BUF(6) + AMIN1(BUF(2),BUF(3),BUF(4),BUF(5)) BUF( 9) = FINT1 BUF(14) = BUF(6) + AMAX1(BUF(10),BUF(11),BUF(12),BUF(13)) BUF(15) = BUF(6) + AMIN1(BUF(10),BUF(11),BUF(12),BUF(13)) BUF(16) = FINT1 C C M. S. IN TENSION C IF (SIGT .LE. 0.0) GO TO 302 TEMP = BUF(7) IF (BUF(7) .LT. BUF(14)) TEMP = BUF(14) IF (TEMP .LE. 0.0) GO TO 302 BUF(9) = SIGT/TEMP-1.0 C C M. S. IN COMPRESSION C 302 IF (SIGC .EQ. 0.0) GO TO 200 TEMP = BUF(8) IF (BUF(8) .GT. BUF(15)) TEMP = BUF(15) IF (TEMP .GE. 0.0) GO TO 200 CPRIM =-ABS(SIGC) BUF(16) = CPRIM/TEMP - 1.0 GO TO 200 C C TRIA1 TRIA2 TRIA3 QUAD1 QUAD2 QUAD4 TRBSC TRPLT QDPLT C 20 I = 2 ASSIGN 30 TO IRETRN GO TO 100 30 I = 10 ASSIGN 200 TO IRETRN GO TO 100 C C TRMEM QDMEM QDMEM1 QDMEM2 IS2D8 C 40 I = 1 ASSIGN 200 TO IRETRN GO TO 100 C C PRINCIPAL STRESS EQUATIONS FOR 2-DIMENSIONAL ELEMENTS C 100 TEMP = BUF(I+1) - BUF(I+2) BUF(I+7) = SQRT((TEMP/2.0)**2 + BUF(I+3)**2) DELTA = (BUF(I+1) + BUF(I+2)) / 2.0 BUF(I+5) = DELTA + BUF(I+7) BUF(I+6) = DELTA - BUF(I+7) C IF (ANDF(ISYS(61),1)) 120,120,110 110 BUF(I+7) = SQRT(BUF(I+1)**2 + BUF(I+2)**2 - BUF(I+1)*BUF(I+2) 1 + 3.0*BUF(I+3)**2) C 120 DELTA = 2.0*BUF(I+3) IF (ABS(DELTA).LT.1.0E-15 .AND. ABS(TEMP).LT.1.0E-15) GO TO 121 BUF(I+4) = ATAN2(DELTA,TEMP)*28.6478898 GO TO IRETRN, (30,200) C 121 BUF(I+4) = 0.0 GO TO IRETRN, (30,200) C C TETRA WEDGE HEXA1 HEXA2 C 150 BUF(8) = SQRT(BUF(2)*(BUF(2)-BUF(3)-BUF(4))*2.0 1 + 2.0*BUF(3)*(BUF(3)-BUF(4)) + 2.0*BUF(4)**2 2 + 6.0*(BUF(5)**2 + BUF(6)**2 + BUF(7)**2)) / 3.0 GO TO 200 C 1 CONTINUE 200 RETURN C C ERROR PROCESSING FOR DDRMMS C 240 N = -1 FILE = EST GO TO 260 250 N = -2 FILE = EST 260 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/ddumx.f ================================================ SUBROUTINE DDUMX C C DELETE ANY OF THE FOLLOW ENTRY POINT IF A SUBROUTINE OF THE SAME C NAME ALREADY EXISTS C INTEGER II(9),KK(9) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ IBUF,NOUT DATA II / 9*0/, JJ /4HDDUM/, KK / 1 1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9 / C GO TO 30 C C ENTRY DDUM9 C =========== C J = 9 GO TO 10 C C ENTRY DDUM8 C =========== C J = 8 GO TO 10 C C ENTRY DDUM7 C =========== C J = 7 GO TO 10 C C ENTRY DDUM6 C =========== C J = 6 GO TO 10 C C ENTRY DDUM5 C =========== C J = 5 GO TO 10 C C ENTRY DDUM4 C =========== C J = 4 GO TO 10 C C ENTRY DDUM3 C =========== C J = 3 GO TO 10 C C ENTRY DDUM2 C =========== C J = 2 GO TO 10 C C ENTRY DDUM1 C =========== C J = 1 C GO TO 10 C 10 IF (II(J) .NE. 0) GO TO 30 II(J) = 1 WRITE (NOUT,20) UWM,JJ,KK(J) 20 FORMAT (A25,' 2182, SUBROUTINE ',2A4,' IS DUMMY. ONLY ONE OF ', 1 'THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK.') 30 RETURN END ================================================ FILE: mis/decode.f ================================================ SUBROUTINE DECODE (CODE,LIST,N) C C DECODE DECODES THE BITS IN A WORD AND RETURNS A LIST OF INTEGERS C CORRESPONDING TO THE BIT POSITIONS WHICH ARE ON. NUMBERING C CONVENTION IS RIGHT (LOW ORDER) TO LEFT (HIGH ORDER) 00 THRU 31. C C ARGUMENTS C C CODE - INPUT - THE WORD TO BE DECODED C LIST - OUTPUT - AN ARRAY OF DIMENSION .GE. 32 WHERE THE INTEGERS C CORRESPONDING TO BIT POSITIONS ARE STORED C N - OUTPUT - THE NUMBER OF ENTRIES IN THE LIST I.E. THE NO. C OF 1-BITS IN THE WORD C C EXTERNAL ANDF INTEGER CODE,ANDF,TWO,LIST(1) COMMON /TWO/ TWO(32) C N = 0 DO 8 I = 1,32 IF (ANDF(TWO(33-I),CODE) .EQ. 0) GO TO 8 N = N + 1 LIST(N) = I - 1 8 CONTINUE C RETURN END ================================================ FILE: mis/decomp.f ================================================ SUBROUTINE DECOMP (*,IX,X,DX) C C DECOMP WILL DECOMPOSE A REAL UNSYMETRIC MATRIX INTO A UNIT LOWER C TRIANGULAR MATRIX AND AN UPPER TRIANGULAR MATRIX,USING PARTIAL C PIVOTING WITHIN THE LOWER BAND C C DEFINITION OF INPUT PARAMETERS C C FILEA = MATRIX CONTROL BLOCK FOR THE INPUT MATRIX A C FILEL = MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX L C FILEU = MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX U C SR1FIL = SCRATCH FILE C SR2FIL = SCRATCH FILE C SR3FIL = SCRATCH FILE C NX = NUMBER OF CELLS OF CORE AVAILABLE AT IX C DET = CELL WHERE THE DETERMINATE OF A WILL BE STORED C POWER = SCALE FACTOR TO BE APPLIED TO THE DETERMINATE C (DETERMINATE = DET*10**POWER) C MINDIA = CELL WHERE THE VALUE OF THE MINIMUM DIAGONAL WILL BE C SAVED C IX = BLOCK OF CORE AVAILABLE AS WORKING STORAGE TO DECOMP C X = SAME BLOCK AS IX, BUT TYPED REAL C DX = SAME BLOCK AS IX, BUT TYPED DOUBLE PRECISION C INTEGER FILEA ,FILEL ,FILEU ,POWER , 1 SYSBUF ,FORMA ,TYPEA ,RDP , 2 TYPEL ,EOL ,PARM(5) ,BUFA , 3 OUTBUF ,SR1BUF ,SR2BUF ,SR3BUF , 4 B ,BBAR ,C ,CBAR , 5 BBAR1 ,R ,CCOUNT ,CBCNT , 6 SCRFLG ,END ,BBBAR ,BBBAR1 , 7 COUNT ,SR2FL ,SR3FL ,SR1FIL , 8 SR2FIL ,SR3FIL ,SQR ,SYM , 9 FLAG ,ITRAN(4) DOUBLE PRECISION DZ ,DA ,DET ,MAX , 1 MINDIA ,DX(1) ,DTRN DIMENSION IX(1) ,X(1) CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /DCOMPX/ FILEA(7) ,FILEL(7) ,FILEU(7) ,SR1FIL , 1 SR2FIL ,SR3FIL ,DET ,POWER , 2 NX ,MINDIA ,B ,BBAR , 3 C ,CBAR ,R COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,LOWTRI ,UPRTRI , 4 SYM ,ROW ,IDENT COMMON /ZNTPKX/ A(4) ,II ,EOL COMMON /ZBLPKX/ Z(4) ,JJ COMMON /UNPAKX/ ITYPEX ,IXY ,JXY ,INCRX COMMON /PACKX / ITYPE1 ,ITYPE2 ,IY ,JY , 1 INCRY EQUIVALENCE (DA,A(1)) ,(DZ,Z(1)) , 1 (FORMA,FILEA(4)) ,(TYPEA,FILEA(5)) , 2 (NCOL,FILEA(3)) ,(TYPEL,FILEL(5)) EQUIVALENCE (ITRAN(1),ITRN) ,(ITRAN(2),JTRN) , 1 (ITRAN(3),DTRN) DATA PARM(3), PARM(4)/ 4HDECO,4HMP / DATA IBEGN / 4HBEGN /, IEND /4HEND / C C AT LAST, THE START OF THE PROGRAM C IF ((FORMA.NE.SQR .AND. FORMA.NE.SYM) .OR. TYPEA.GT.RDP) GOTO 1660 C C BUFFER ALLOCATION C BUFA = NX - SYSBUF IBUFL = BUFA - SYSBUF OUTBUF = IBUFL - SYSBUF SR1BUF = OUTBUF - SYSBUF SR2BUF = SR1BUF - SYSBUF SR3BUF = SR2BUF - SYSBUF ICRQ =-SR3BUF IF (ICRQ .GT. 0) GO TO 1668 DET = 1.D0 POWER = 0 MINDIA = 1.D+25 ITERM = 0 IF (FILEA(1) .LT. 0) ITERM = 1 FILEA(1) = IABS(FILEA(1)) C C WRITE THE HEADER RECORD ON THE OUTPUT TAPES AND INITIALIZE THE C TRAILER RECORDS. C CALL GOPEN (FILEL,IX(IBUFL),WRTREW) PARM(2) = SR2FIL CALL OPEN (*1670,SR2FIL,IX(OUTBUF),WRTREW) CALL FNAME (FILEU(1),X(1)) CALL WRITE (SR2FIL,X(1),2,1) FILEL(3) = NCOL FILEL(4) = 4 FILEL(2) = 0 FILEL(6) = 0 FILEL(7) = 0 FILEU(2) = 0 FILEU(3) = NCOL FILEU(4) = 5 FILEU(6) = 0 FILEU(7) = 0 FILEA(5) = 2 IF (NCOL .GT. 2 ) GO TO 10 IMHERE = 9 CALL ONETWO (*1710,IX(1),X(1),DX(1),ITERM) C C CALL GENVEC TO PICK B,BBAR,C,CBAR, AND R C RETURN 10 IF (B.GT.0 .AND. BBAR.GT.0) GO TO 15 IMHERE = 10 CALL GENVEC (*1710,IX(BUFA),FILEA(1),NX,IX(1),NCOL,B,BBAR,C,CBAR, 1 R,1) 15 CONTINUE BBAR1 = BBAR + 1 BBBAR = MIN0(B+BBAR,NCOL) BBBAR1 = BBBAR - 1 SCRFLG = 0 IF (R .LT. BBBAR1) SCRFLG = 1 IF (SCRFLG .EQ. 0) GO TO 20 ICRQ = (BBBAR1-R)*2*BBAR CALL PAGE2 (3) WRITE (NOUT,2000) UIM,ICRQ 2000 FORMAT (A29,' 2177, SPILL WILL OCCUR IN UNSYMMETRIC DECOMPOSITION' 1, /,I10,' ADDITIONAL MEMORY WORDS NEEDED TO STAY IN CORE.') C C INITIALIZE POINTERS TO SPECIFIC AREAS OF CORE C 20 I1 = 1 I1SP = (I1+BBAR*R)*2 - 1 IPAK = I1 + BBAR*R + BBBAR/2 + 1 I2 = IPAK I3SP = (I2 + MIN0(NCOL,BBBAR+BBAR))*2 - 1 I3 = I2 + MIN0(NCOL,BBBAR+BBAR) + C I4SP = I3SP + (BBAR+2)*C*2 I4 = I3 + BBAR1*C + CBAR I5 = I4 + BBBAR*CBAR I6SP = (I5+C*CBAR)*2 - 1 I7SP = I6SP + CBAR END = I7SP + C PARM(5) = IBEGN CALL CONMSG (PARM(3),3,0) C C DEFINITION OF KEY PROGRAM PARAMETERS C C I1 = POINTER TO AREA WHERE COMPLETED COLUMNS OF L ARE STORED C I1SP = POINTER TO AREA WHERE THE PERMUTATION INDEXES ARE STORED C IPAK = POINTER TO AREA WHERE COLUMNS WILL BE PACKED FROM C I2 = POINTER TO AREA WHERE THE NEXT COLUMN OF A IS STORED C I3 = POINTER TO AREA WHERE ACTIVE COLUMNS ARE STORED C I4 = POINTER TO AREA WHERE ACTIVE ROWS ARE STORED C I5 = POINTER TO AREA WHERE INTERACTION ELEMENTS ARE STORED C I6SP = POINTER TO AREA WHERE SEQUENCED ACTIVE ROW INDICES C ARE STORED C I7SP = POINTER TO AREA WHERE SEQUENCED ACTIVE COLUMN INDICES C ARE STORED C B = UPPER HALF-BAND C BBAR = LOWER HALF-BAND C C = NUMBER OF ACTIVE COLUMNS C CBAR = NUMBER OF ACTIVE ROWS C R = NUMBER OF COLUMNS OF L THAT CAN BE STORED IN CORE C JPOS = CURRENT PIVOTAL COLUMN INDEX C JPOSL = NEXT COLUMN OF L TO BE WRITTEN OUT C LCOL = NUMBER OF COLUMNS OF L CURRENTLY STORED IN CORE OR ON C SCRATCH FILES C CCOUNT = CURRENT NUMBER OF ACTIVE COLUMNS C CBCNT = CURRENT NUMBER OF ACTIVE ROWS C ITRN = ROW INDEX OF NEXT ACTIVE COLUMN ELEMENT C JTRN = COLUMN INDEX OF NEXT ACTIVE COLUMN ELEMENT C IOFF = ROW POSITION OF THE FIRST ELEMENT IN AREA II C ITERM = IF NONZERO, TERMINATE BEFORE THE RE-WRITE C NCOL = SIZE OF THE INPUT MATRIX C BBBAR = B + BBAR C BBAR1 = BBAR + 1 C BBBAR1 = B+BBAR - 1 C SCRFLG = NONZERO MEANS SPILL C C **************************************************************** C RE-WRITE THE UPPER TRIANGLE OF ACTIVE ELEMENTS IN THE TRANSPOSED C ORDER C **************************************************************** C PARM(2) = FILEA(1) CALL OPEN (*1670,FILEA(1),IX(BUFA),RDREW) CCOUNT = 0 IF (C .EQ. 0) GO TO 40 CALL TRANSP (IX(1),X(1),NX,FILEA(1),B,SR1FIL) C C ZERO CORE C 40 DO 50 I = 1,END 50 X(I) = 0. IF (C .EQ. 0) GO TO 260 C C **************************************************************** C OPEN THE FILE CONTAINING THE TRANSPOSED ACTIVE ELEMENTS AND READ I C THE FIRST BBAR + 1 ROWS C **************************************************************** C PARM(2) = SR1FIL CALL OPEN (*1670,SR1FIL,IX(SR1BUF),RD) K = 0 60 CALL READ (*1680,*1690,SR1FIL,ITRAN(1),4,0,FLAG) IF (ITRN .GT. 0) GO TO 70 CALL CLOSE (SR1FIL,REW) GO TO 140 70 IF (ITRN .GT. K+1) GO TO 130 C C DETERMINE IF COLUMN IS ALREADY ACTIVE C IF (JTRN .LE. BBBAR) GO TO 60 KK = 0 80 IN1 = I3SP + KK IF (IX(IN1) .EQ. JTRN) GO TO 90 KK = KK + 1 IF (KK-C) 80,100,1700 C C ADD IN ACTIVE ELEMENT TO EXISTING COLUMN C 90 IN1 = I3 + KK*BBAR1 + K DX(IN1) = DTRN GO TO 60 C C CREATE NEW ACTIVE COLUMN C 100 CCOUNT = CCOUNT + 1 KK = 0 110 IN1 = I3SP + KK IF (IX(IN1) .EQ. 0) GO TO 120 KK = KK + 1 IF (KK-C) 110,1700,1700 120 IX(IN1) = JTRN IN1 = IN1 + C IX(IN1) = K+1 IN1 = I3 + KK*BBAR1 + K DX(IN1) = DTRN GO TO 60 130 K = K + 1 IF (K-BBAR1) 70,140,1700 C C SET INDEXES IN AREA VII TO POINT TO THE ACTIVE COLUMNS IN SEQUENCE C 140 ASSIGN 260 TO KK 150 IN1 = I7SP K = 0 160 IN2 = I3SP + K IF (IX(IN2)) 1700,180,190 170 IN1 = IN1 + 1 180 K = K + 1 IF (K-C) 160,250,1700 190 IF (IN1 .NE. I7SP) GO TO 200 IX(IN1) = K GO TO 170 200 KKK = 0 210 IN3 = IN1 -KKK IF (IN3 .GT. I7SP) GO TO 220 IX(IN3) = K GO TO 170 220 IN4 = I3SP + IX(IN3-1) IF (IX(IN2)-IX(IN4)) 240,1700,230 230 IX(IN3) = K GO TO 170 240 IX(IN3) = IX(IN3-1) KKK = KKK + 1 GO TO 210 250 GO TO KK, (260,1560) 260 CONTINUE C C INITIALIZE C SR2FL = FILEU(1) SR3FL = SR3FIL JPOS = 1 PARM(2) = FILEA(1) CALL FWDREC (*1680,FILEA(1)) LCOL = 0 CBCNT = 0 JPOSL = 0 270 IF (JPOS .GT. NCOL) GO TO 1650 C**************************************************************** C READ NEXT COLUMN OF A INTO AREA II C**************************************************************** IOFF = MAX0(1,JPOS-BBBAR1) COUNT = CBCNT IMHERE = 275 CALL INTPK (*1710,FILEA(1),0,RDP,0) K = 1 IF (JPOS .GT. BBBAR) K = JPOS - B + 1 280 IF (EOL) 400,290,400 290 CALL ZNTPKI IF (II .LT. K) GO TO 280 K = JPOS + BBAR 300 IF (II .GT. K) GO TO 330 C C READ ELEMENTS WITHIN THE BAND INTO AREA II C IN1 = I2 - IOFF + II DX(IN1) = DA 310 IF (EOL) 400,320,400 320 CALL ZNTPKI GO TO 300 C C TAKE CARE OF ACTIVE ELEMENTS BELOW THE BAND C 330 KK = 0 340 IN1 = I4SP + KK IF (IX(IN1)-II) 350,360,350 350 KK = KK + 1 IF (KK-CBAR) 340,370,1700 C C ADD IN ACTIVE ELEMENT TO EXISTING ROW C 360 IN1 = I4 + (KK+1)*BBBAR - 1 DX(IN1) = DA GO TO 310 C C CREATE NEW ACTIVE ROW C 370 KK = 0 380 IN1 = I4SP + KK IF (IX(IN1) .EQ. 0) GO TO 390 KK = KK + 1 IF (KK-CBAR) 380,1700,1700 390 IX(IN1) = II IN1 = IN1 + CBAR IX(IN1) = JPOS IN1 = I4 + (KK+1)*BBBAR - 1 DX(IN1) = DA CBCNT = CBCNT + 1 GO TO 310 C C ARRANGE ACTIVE ROW INDEXES IN SEQUENCE AND STORE THEM IN AREA VI C 400 IF (COUNT .EQ. CBCNT) GO TO 500 IN1 = I6SP K = 0 410 IN2 = I4SP + K IF (IX(IN2)) 1700,430,440 420 IN1 = IN1 + 1 430 K = K + 1 IF (K-CBAR) 410,500,1700 440 IF (IN1 .NE. I6SP) GO TO 450 IX(IN1) = K GO TO 420 450 KK = 0 460 IN3 = IN1 - KK IF (IN3 .GT. I6SP) GO TO 470 IX(IN3) = K GO TO 420 470 IN4 = I4SP + IX(IN3-1) IF (IX(IN2)-IX(IN4)) 490,1700,480 480 IX(IN3) = K GO TO 420 490 IX(IN3) = IX(IN3-1) KK = KK + 1 GO TO 460 500 CONTINUE C C TEST FOR POSSIBLE MERGING BETWEEN AN INACTIVE-ACTIVE COLUMN AND C THE CURRENT PIVOTAL COLUMN C IF (CCOUNT .EQ. 0) GO TO 600 IN1 = IX(I7SP) + I3SP IF (IX(IN1)-JPOS) 1700,510,600 C C MERGE ACTIVE COLUMN AND CURRENT PIVOTAL COLUMN AND ZERO THAT C ACTIVE COLUMN IN AREA III C 510 IX(IN1) = 0 IN1 = IN1 + C IX(IN1) = 0 IN1 = I3 + IX(I7SP)*BBAR1 CCOUNT = CCOUNT - 1 KK = 0 520 IN2 = IN1 + KK IN3 = I2 + KK DX(IN3) = DX(IN3) + DX(IN2) DX(IN2) = 0.D0 KK = KK + 1 IF (KK-BBAR1) 520,530,1700 C C MERGE INTERACTION ELEMENTS C 530 CONTINUE IF (CBCNT .EQ. 0) GO TO 580 IN1 = I5 + IX(I7SP)*CBAR K = 0 540 IN2 = I4SP + K IF (IX(IN2) .EQ. 0) GO TO 560 IN3 = IN1 + K IF (DX(IN3) .EQ. 0.D0) GO TO 560 IF (IX(IN2) .GT. JPOS+BBAR) GO TO 570 C C STORE ELEMENT WITHIN THE LOWER BAND C IN2 = I2 + IX(IN2) - IOFF DX(IN2) = DX(IN2) - DX(IN3) 550 DX(IN3) = 0.D0 560 K = K + 1 IF (K-CBAR) 540,580,1700 C C STORE ELEMENT IN THE ACTIVE ROW C 570 IN2 = I4 + (K+1)*BBBAR - 1 DX(IN2) = DX(IN2) - DX(IN3) DX(IN3) = 0.D0 GO TO 550 C C MOVE THE POINTERS IN AREA VII UP ONE C 580 IN1 = I7SP + CCOUNT - 1 DO 590 I = I7SP,IN1 590 IX(I ) = IX(I+1) IX(IN1+1) = 0 600 IF(LCOL.EQ.0)GO TO 820 C C **************************************************************** C OPERATE ON THE CURRENT COLUMN OF A BY ALL PREVIOUS COLUMNS OF L, C MAKING NOTED INTERCHANGES AS YOU GO C **************************************************************** C IF (SCRFLG .EQ. 0) GO TO 630 IF (LCOL-(R-1)) 630,620,610 610 PARM(2) = SR2FL CALL OPEN (*1670,SR2FL,IX(SR2BUF),RD) 620 PARM(2) = SR3FL CALL OPEN (*1670,SR3FL,IX(SR3BUF),WRTREW) 630 LL = 0 LLL = 0 LLLL = 0 C C PICK UP INTERCHANGE INDEX FOR COLUMN JPOSL + LL + 1 C 640 IN1 = I1SP + LL INTCHN = IX(IN1) IN2 = I2 + LL IF (INTCHN .EQ. 0) GO TO 650 C C PERFORM ROW INTERCHANGE C IN1 = IN2 + INTCHN DA = DX(IN1) DX(IN1) = DX(IN2) DX(IN2) = DA 650 CONTINUE C C COMPUTE THE CONTRIBUTION FROM THAT COLUMN C END = MIN0(BBAR1,NCOL-(JPOSL+LL)) END = END - 1 IF (DX(IN2)) 660,710,660 660 IN1 = I1 + LLL*BBAR CALL DLOOP (DX(IN2+1),DX(IN1),-DX(IN2),END) IF (CBCNT .EQ. 0) GO TO 710 C C TEST TO SEE IF AN INACTIVE-ACTIVE ROW CONTRIBUTION SHOULD BE C ADDED IN C KKK = 0 680 IN3 = I6SP + KKK IN1 = IX(IN3) + I4SP IF (IX(IN1) .GT. JPOS+BBAR) GO TO 710 KK = IN1 + CBAR IF (IX(KK) .GT. JPOSL+LL+1) GO TO 700 IF (IX(IN1)-JPOSL-BBAR1 .LE. LL) GO TO 700 C C ADD IN EFFECT OF THE INACTIVE-ACTIVE ROW C IN4 = I2 + IX(IN1) - IOFF K = JPOSL + BBBAR - JPOS + LL + I4 + IX(IN3)*BBBAR DX(IN4) = DX(IN4) - DX(K)*DX(IN2) 700 KKK = KKK + 1 IF (KKK .LT. CBCNT) GO TO 680 710 LL = LL + 1 LLL = LLL + 1 IF (LL .EQ. LCOL) GO TO 770 IF (LL-R+1) 640,720,750 720 IF (R .EQ. BBBAR1) GO TO 640 IN1 = I1 + LL*BBAR 740 ICRQ = IN1 + BBAR*2 - 1 - SR3BUF IF (ICRQ .GT. 0) GO TO 1668 IBBAR2 = BBAR*2 CALL READ (*1680,*1690,SR2FL,DX(IN1),IBBAR2,0,FLAG) GO TO 640 750 IN1 = I1 + (LLL-1)*BBAR IF (LL.EQ.R .AND. LCOL.EQ.BBBAR1) GO TO 760 CALL WRITE (SR3FL,DX(IN1),2*BBAR,0) 760 LLL = LLL - 1 GO TO 740 770 CONTINUE C C COMPUTE ELEMENTS FOR THE ACTIVE ROWS C IF (CBCNT .EQ. 0) GO TO 820 K = 0 780 IN1 = I4SP + K IF (IX(IN1) .GT. JPOS+BBAR) GO TO 800 790 K = K + 1 IF (K-CBAR) 780,820,1700 800 IN1 = IN1 + CBAR IF (IX(IN1) .EQ. JPOS) GO TO 790 KKK = MAX0(0,BBBAR-JPOS+IX(IN1)-1) IN2 = I4 + K*BBBAR - 1 IN3 = I2 + KKK - 1 - MAX0(0,BBBAR-JPOS) IN1 = IN2 + BBBAR IN2 = IN2 + KKK 810 IN2 = IN2 + 1 KKK = KKK + 1 IN3 = IN3 + 1 DX(IN1) = DX(IN1)-DX(IN2)*DX(IN3) IF (KKK-BBBAR1) 810,790,1700 C C SEARCH THE LOWER BAND FOR THE MAXIMUM ELEMENT AND INTERCHANGE C ROWS TO BRING IT TO THE DIAGONAL C 820 K = 1 IN1 = I2 + JPOS - IOFF MAX = DABS(DX(IN1)) END = MIN0(BBAR1,NCOL-JPOS+1) INTCHN = 0 IF (END .EQ. 1) GO TO 860 830 IN2 = IN1 + K IF (DABS(DX(IN2)) .GT. MAX) GO TO 850 840 K = K + 1 IF (K-END) 830,860,1700 850 MAX = DABS(DX(IN2)) INTCHN = K GO TO 840 C 860 IF (INTCHN .EQ. 0) GO TO 870 C C INTERCHANGE ROWS IN AREA II C DET = -DET C MAX = DX(IN1) IN2 = IN1 + INTCHN DX(IN1) = DX(IN2) DX(IN2) = MAX C C STORE THE PERMUTATION INDEX C IN2 = I1SP + LCOL IX(IN2) = INTCHN C C DIVIDE THE LOWER BAND BY THE DIAGONAL ELEMENT C 870 IMHERE = 870 IF (DX(IN1) .EQ. 0.D0) GO TO 1710 MAX = 1.D0/DX(IN1) MINDIA = DMIN1(DABS(DX(IN1)),MINDIA) 880 IF (DABS(DET) .LE. 10.D0) GO TO 890 DET = DET/10.D0 POWER = POWER + 1 GO TO 880 890 IF (DABS(DET) .GE. .1D0) GO TO 900 DET = DET*10.D0 POWER = POWER - 1 GO TO 890 900 DET = DET*DX(IN1) K = 1 END = MIN0(BBAR1,NCOL-JPOS+1) IF (END .EQ. 1) GO TO 920 910 IN2 = IN1 + K DX(IN2) = DX(IN2)*MAX K = K + 1 IF (K-END) 910,920,1700 920 IF (CBCNT .EQ. 0) GO TO 940 C C DIVIDE THE ACTIVE ROWS BY THE DIAGONAL C K = 0 IN1 = I4 + BBBAR1 930 DX(IN1) = DX(IN1)*MAX IN1 = IN1 + BBBAR K = K + 1 IF (K-CBAR) 930,940,1700 940 CONTINUE C C INTERCHANGE ACTIVE COLUMNS AND ADD IN EFFECT OF THE COLUMN OF L C ABOUT TO BE WRITTEN OUT C IF (CCOUNT .EQ. 0) GO TO 990 IF (JPOS .LT. BBBAR) GO TO 990 INTCH = IX(I1SP) K = 0 950 IN1 = I3SP + K IF (INTCH .EQ. 0) GO TO 960 IN1 = I3 + K*BBAR1 IN2 = IN1 + INTCH DA = DX(IN1) DX(IN1) = DX(IN2) DX(IN2) = DA 960 KK = 1 IN2 = I1 - 1 IN1 = I3 + K*BBAR1 IF (DX(IN1) .EQ. 0.D0) GO TO 980 970 IN3 = IN1 + KK IN4 = IN2 + KK DX(IN3) = DX(IN3) - DX(IN1)*DX(IN4) KK = KK + 1 IF (KK-BBAR1) 970,980,1700 980 K = K + 1 IF (K-C) 950,990,1700 C C WRITE OUT THE NEXT COLUMN OF U AND THE ROW OF ACTIVE ELEMENTS C 990 PARM(2) = SR2FIL CALL BLDPK (RDP,TYPEL,SR2FIL,0,0) IN1 = I2 JJ = IOFF IMHERE = 1030 1000 DZ = DX(IN1) IF (DZ) 1010,1020,1010 1010 CALL ZBLPKI 1020 IN1 = IN1 + 1 JJ = JJ + 1 IF (JJ-JPOS) 1000,1000,1030 1030 IF (DX(IN1-1)) 1040,1710,1040 1040 CONTINUE C C PACK ACTIVE COLUMN ELEMENTS ALSO C IF (CCOUNT .EQ. 0) GO TO 1080 IF (JPOS .LT. BBBAR) GO TO 1080 K = 0 1050 IN1 = I7SP + K IN2 = IX(IN1) + I3SP GO TO 1070 1060 K = K + 1 IF (K-CCOUNT) 1050,1080,1700 1070 IN3 = I3 + IX(IN1)*BBAR1 DZ = DX(IN3) IF (DZ .EQ. 0.D0) GO TO 1060 JJ = IX(IN2) CALL ZBLPKI GO TO 1060 1080 CALL BLDPKN (SR2FIL,0,FILEU) C C COMPUTE ACTIVE ROW-COLUMN INTERACTION C IF (CCOUNT.EQ.0 .OR. CBCNT.EQ.0) GO TO 1130 IF (JPOS .LT. BBBAR) GO TO 1130 K = 0 1090 CONTINUE IN1 = I3 + K*BBAR1 IF (DX(IN1) .EQ. 0.D0) GO TO 1120 KK = 0 1100 IN2 = I4SP + KK IN2 = I4 + KK*BBBAR IF (DX(IN2) .EQ. 0.D0) GO TO 1110 IN3 = I5 + K*CBAR + KK DX(IN3) = DX(IN3)+DX(IN2)*DX(IN1) 1110 KK = KK + 1 IF (KK-CBAR) 1100,1120,1700 1120 K = K + 1 IF (K-C) 1090,1130,1700 C C MOVE ELEMENTS IN AREA III UP ONE CELL C 1130 IF (CCOUNT . EQ. 0) GO TO 1180 IF (JPOS .LT. BBBAR) GO TO 1180 K = 0 1140 IN1 = I3SP + K IF (IX(IN1) .EQ. 0) GO TO 1170 KK = 0 IN1 = I3 + K*(BBAR1) 1150 IN2 = IN1 + KK DX(IN2) = DX(IN2+1) KK = KK + 1 IF (KK-BBAR) 1150,1160,1700 1160 DX(IN2+1) = 0.D0 1170 K = K + 1 IF (K-C) 1140,1180,1700 C C DETERMINE IF A COLUMN OF L CAN BE WRITTEN OUT C 1180 IF (LCOL-BBBAR1) 1360,1190,1190 C C OUTPUT A COLUMN OF L C 1190 PARM(2) = FILEL(1) JPOSL = JPOSL + 1 CALL BLDPK (RDP,TYPEL,FILEL(1),0,0) C C STORE THE PERMUTATION INDEX AS THE DIAGONAL ELEMENT C JJ = JPOSL DZ = IX(I1SP) CALL ZBLPKI K = 0 1200 JJ = JPOSL + K + 1 IN2= I1 + K DZ = DX(IN2) IF (DZ) 1210,1220,1210 1210 CALL ZBLPKI 1220 K = K + 1 IF (K-BBAR) 1200,1230,1700 C C PACK ACTIVE ROW ELEMENTS ALSO C 1230 IF (CBCNT .EQ. 0) GO TO 1270 K = 0 1240 IN1 = I6SP + K IN2 = I4 + IX(IN1)*BBBAR IN1 = IX(IN1) + I4SP JJ = IX(IN1) DZ = DX(IN2) IF (DZ .EQ. 0.D0) GO TO 1260 CALL ZBLPKI 1260 K = K + 1 IF (K-CBCNT) 1240,1270,1700 1270 CALL BLDPKN (FILEL,0,FILEL) C C MOVE PERMUTATION INDICES OVER ONE ELEMENT C END = I1SP + LCOL DO 1280 I = I1SP,END 1280 IX(I) = IX(I+1) C C MOVE ELEMENTS IN AREA I OVER ONE COLUMN C K = 0 IF (SCRFLG .EQ. 0) GO TO 1300 CALL CLOSE (SR2FL,REW) IF (R .GT. 2) GO TO 1300 ICRQ = I1 + BBAR*2 - 1 - SR3BUF IF (ICRQ .GT. 0) GO TO 1668 CALL OPEN (*1670,SR2FL,IX(SR2BUF),RD) IBBAR2 = 2*BBAR CALL READ (*1680,*1690,SR2FL,DX(I1),IBBAR2,0,FLAG) GO TO 1350 1300 IN1 = I1 + K*BBAR IN2 = IN1 + BBAR CALL XLOOP (DX(IN1),DX(IN2),BBAR) K = K + 1 IF (K-R+2) 1300,1330,1350 1330 IF (R-BBBAR1) 1340,1300,1700 1340 ICRQ = IN2 + BBAR*2 - 1 - SR3BUF IF (ICRQ .GT. 0) GO TO 1668 CALL OPEN (*1670,SR2FL,IX(SR2BUF),RD) IBBAR2 = BBAR*2 CALL READ (*1680,*1690,SR2FL,DX(IN2),IBBAR2,0,FLAG) 1350 LCOL = LCOL - 1 C C STORE CURRENT COLUMN OF L C 1360 IF (CBCNT .EQ. 0) GO TO 1410 C C MOVE ELEMENTS IN AREA IV UP ONE CELL C K = 0 1370 IN1 = I4SP + K IF (IX(IN1) .EQ. 0) GO TO 1400 KK = 0 IN1 = I4 + K*BBBAR 1380 IN2 = IN1 + KK DX(IN2) = DX(IN2+1) KK = KK + 1 IF (KK-BBBAR1) 1380,1390,1700 1390 DX(IN2+1) = 0.D0 1400 K = K + 1 IF (K-CBAR) 1370,1410,1700 1410 IF (SCRFLG .NE. 0) GO TO 1440 C C STORE COLUMN IN CORE C 1420 IN1 = I1 + LCOL*BBAR END = MIN0(BBAR,NCOL-JPOS) IF (END .EQ. 0) GO TO 1470 K = 0 IN3 = I2 + JPOS - IOFF + 1 1430 IN2 = IN1 + K IN4 = IN3 + K DX(IN2) = DX(IN4) K = K + 1 IF (K-END) 1430,1470,1700 C C STORE COLUMN ON THE SCRATCH FILE C 1440 IF (LCOL-R+1) 1420,1460,1450 1450 IN1 = I1 + (LLL-1)*BBAR CALL WRITE (SR3FL,DX(IN1),BBAR*2,0) 1460 IN1 = I2 + JPOS - IOFF + 1 CALL WRITE (SR3FL,DX(IN1),BBAR*2,0) C C CLOSE SCRATCH FILES AND SWITCH THE POINTERS TO THEM C CALL CLOSE (SR3FL,REW) CALL CLOSE (SR2FL,REW) IN1 = SR2FL SR2FL = SR3FL SR3FL = IN1 1470 LCOL = LCOL + 1 IF (C .EQ. 0) GO TO 1560 IF (JPOS .LT. BBBAR) GO TO 1560 C C READ IN THE NEXT ROW OF ACTIVE COLUMN ELEMENTS C COUNT = CCOUNT IF (ITRN .LT. 0) GO TO 1560 1480 IF (ITRN .GT. JPOS-B+2) GO TO 1550 C C TEST TO SEE IF COLUMN IS ALREADY ACTIVE C K = 0 1490 IN1 = I3SP + K IF (IX(IN1) .EQ. JTRN) GO TO 1530 K = K + 1 IF (K-C) 1490,1500,1700 C C CREATE A NEW ACTIVE COLUMN C 1500 K = 0 1510 IN1 = I3SP + K IF (IX(IN1) .EQ. 0) GO TO 1520 K = K + 1 IF (K-C) 1510,1700,1700 1520 IX(IN1) = JTRN IN1 = IN1 + C IX(IN1) = ITRN IN1 = I3 + (K+1)*BBAR1 - 1 DX(IN1) = DTRN CCOUNT = CCOUNT + 1 GO TO 1540 C C STORE ELEMENT IN EXISTING COLUMN C 1530 IN1 = I3 + (K+1)*BBAR1 - 1 DX(IN1) = DX(IN1) + DTRN 1540 CALL READ (*1680,*1690,SR1FIL,ITRAN,4,0,FLAG) IF (ITRN .GT. 0) GO TO 1480 CALL CLOSE (SR1FIL,REW) 1550 IF (CCOUNT .EQ. COUNT) GO TO 1560 C C RE-ARRANGE INDEXES IN SEQUENTIAL ORDER C ASSIGN 1560 TO KK GO TO 150 1560 CONTINUE JPOS = JPOS + 1 C C ZERO AREA II C END = I2 + MIN0(JPOS-IOFF+BBAR-1,NCOL-1) DO 1580 I = I2,END 1580 DX(I) = 0.D0 C C TEST TO SEE IF ROW INTERACTION ELEMENTS WILL MERGE INTO AREA III C IF (CBCNT .EQ. 0) GO TO 270 IF (CCOUNT .EQ. 0) GO TO 1620 IF (JPOS-1 .LT. BBBAR) GO TO 270 IN1 = I4SP K = 0 1590 IN2 = IN1 + K IF (IX(IN2) .EQ. JPOS-B+1) GO TO 1600 K = K + 1 IF (K .LT. CBAR) GO TO 1590 GO TO 270 1600 IN1 = I5 + K IN2 = I3 + BBAR K = 0 1610 DX(IN2) = DX(IN2)-DX(IN1) DX(IN1) = 0.D0 IN2 = IN2 + BBAR1 IN1 = IN1 + CBAR K = K + 1 IF (K .LT. C) GO TO 1610 C C TEST TO SEE IF ACTIVE ROW HAS BEEN ELIMINATED C 1620 IN1 = IX(I6SP) + I4SP IF (IX(IN1)-JPOSL-BBAR1) 270,1630,270 C C ELIMINATE THE ACTIVE ROW C 1630 IX(IN1) = 0 IN1 = IN1 + CBAR IX(IN1) = 0 CBCNT = CBCNT - 1 C C MOVE INDEXES IN AREA VI UP ONE C IN1 = I6SP + CBCNT - 1 DO 1640 I = I6SP,IN1 1640 IX(I ) = IX(I+1) IX(IN1+1) = 0 GO TO 270 C C FINISH WRITING OUT THE COMPLETED COLUMNS OF L C 1650 CONTINUE CALL CLOSE (SR1FIL,REW) CALL CLOSE (FILEL,NOREW) CALL CLOSE (SR2FIL,NOREW) PARM(5) = IEND CALL CONMSG (PARM(3),3,0) CALL FINWRT (ITERM,SCRFLG,SR2FL,JPOSL,I1SP,BBAR,I1,CBCNT,IPAK,R, 1 BBBAR1,BBBAR,I6SP,I4,I4SP,IX,DX,X,LCOL) FILEU(7) = BBBAR RETURN C C ERROR EXITS C 1660 PARM(1) = -7 GO TO 1720 1668 PARM(1) = -8 PARM(2) = ICRQ GO TO 1720 1670 PARM(1) = -1 GO TO 1720 1680 PARM(1) = -2 GO TO 1720 1690 PARM(1) = -3 GO TO 1720 1700 PARM(1) = -25 GO TO 1720 C C SINGULAR MATRIX - CLOSE ALL FILES AND RETURN TO USER C 1710 CALL CLOSE (FILEA(1),REW) CALL CLOSE (FILEL(1),REW) CALL CLOSE (FILEU(1),REW) CALL CLOSE (SR1FIL,REW) CALL CLOSE (SR2FIL,REW) CALL CLOSE (SR3FIL,REW) WRITE (NOUT,1715) IMHERE 1715 FORMAT (/60X,'DECOMP/IMHERE@',I5) CWKBA 4/95 SPR94018 FILEU(7) = BBBAR RETURN 1 1720 CALL MESAGE (PARM(1),PARM(2),PARM(3)) RETURN END ================================================ FILE: mis/degree.f ================================================ SUBROUTINE DEGREE (IG,IDEG,JG) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C SET UP THE IDEG ARRAY CONTAINING THE DEGREE OF EACH NODE STORED C IN THE IG ARRAY. C IDEG(I)=DEGREE OF NODE I C C INTEGER BUNPK DIMENSION IG(1), JG(1), IDEG(1) COMMON /BANDS / NN, MM C DO 100 I=1,NN IDEG(I)=0 CALL BUNPAK(IG,I,MM,JG) DO 80 J=1,MM C IF (BUNPK(IG,I,J)) 100,100,50 IF (JG(J)) 100,100,50 50 IDEG(I)=IDEG(I)+1 80 CONTINUE 100 CONTINUE RETURN END ================================================ FILE: mis/delete.f ================================================ SUBROUTINE DELETE (NAME,ITEMX,ITEST) C C DELETES ITEM WHICH BELONGS TO THE SUBSTRUCTURE NAME. THE MDI IS C UPDATED ACCORDINGLY AND THE BLOCKS ON WHICH ITEM WAS WRITTEN ARE C RETURNED TO THE LIST OF FREE BLOCKS. ITEST IS AN OUTPUT PARAMETER C WHICH TAKES ON ONE OF THE FOLLOWING VALUES C C 1 IF ITEM DOES EXIST C 2 IF ITEM PSEUDO-EXISTS C 3 IF ITEM DOES NOT EXIST C 4 IF NAME DOES NOT EXIST C 5 IF ITEM IS AN ILLEGAL ITEM NAME C C THE BLOCKS OCCUPIED BY THE ITEM ARE RETURNED TO THE LIST OF FREE C BLOCKS IF THEY BELONG TO THE SPECIFIED SUBSTRUCTURE C C EXTERNAL RSHIFT,ANDF LOGICAL MDIUP INTEGER BUF,MDI,MDIPBN,MDILBN,MDIBL,BLKSIZ,DIRSIZ,PS,SS, 1 ANDF,RSHIFT DIMENSION NAME(2),NMSBR(2) COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DITDUM(6),IODUM(8),MDI,MDIPBN,MDILBN,MDIBL, 1 NXTDUM(15),DITUP,MDIUP COMMON /SYS / BLKSIZ,DIRSIZ,SYS(3),IFRST COMMON /ITEMDT/ NITEM,ITEM(7,1) DATA IS,PS , SS/ 1,1,1 / DATA NMSBR / 4HDELE,4HTE / C CALL CHKOPN (NMSBR(1)) CALL FDSUB (NAME(1),K) IF (K .EQ. -1) GO TO 500 CALL FMDI (K,IMDI) II = ITCODE(ITEMX) IF (II .EQ. -1) GO TO 510 ITM = II - IFRST + 1 IBL = ANDF(BUF(IMDI+II),65535) C 55535 = 2**16 - 1 IF (IBL .NE. 0) GO TO 10 C C ITEM DOES NOT EXIST. C ITEST = 3 RETURN C 10 BUF(IMDI+II) = 0 MDIUP = .TRUE. IF (IBL .NE. 65535) GO TO 20 C C ITEM PSEUDO-EXISTS. C ITEST = 2 GO TO 30 C C ITEM DOES EXIST. C 20 ITEST = 1 30 IF (ANDF(BUF(IMDI+IS),1073741824) .EQ. 0) GO TO 35 C 1073741824 = 2**30 C C IMAGE SUBSTRUCTURE C IF (ITEST .NE. 1) RETURN IF (ITEM(4,ITM) .EQ. 0) GO TO 32 CALL RETBLK (IBL) 32 RETURN C C NAME IS A SECONDARY OR A PRIMARY SUBSTRUCTURE C 35 ISVPS = ANDF(BUF(IMDI+PS),1023) C 1023 = 2**10 - 1 IF (ISVPS .EQ. 0) GO TO 39 C C SECONDARY SUBSTRUCTURE C IF (ITEST .NE. 1) RETURN IF (ITEM(5,ITM) .EQ. 0) GO TO 37 CALL RETBLK (IBL) 37 RETURN C C PRIMARY SUBSTRUCTURE C 39 IF (ITEST .EQ. 1) CALL RETBLK (IBL) 40 ISVSS = RSHIFT(ANDF(BUF(IMDI+SS),1048575),10) C 1048575 = 2*20 - 1 IF (ISVSS .EQ. 0) RETURN CALL FMDI (ISVSS,IMDI) IF (ANDF(BUF(IMDI+II),65535) .NE. IBL) GO TO 40 BUF(IMDI+II) = 0 MDIUP = .TRUE. GO TO 40 C C NAME DOES NOT EXIST. C 500 ITEST = 4 RETURN C C ITEM IS AN ILLEGAL ITEM NAME. C 510 ITEST = 5 RETURN END ================================================ FILE: mis/delkls.f ================================================ SUBROUTINE DELKLS (DEL,R,Z,KODE) C C SINGLE PRECISION VERSION USE DELKLS (DEL,R,Z,KODE) C C PURPOSE C EVAULATE THE FOLLOWING FUNCTION C DELT(K,L) = SURFACE-INTEGRAL((R**K)*(Z**L)) DR*DZ C WHERE DR*DZ IS EITHER A TRIANGLE OR A TRAPEZOID. C C USAGE C WHERE DEL = DOUBLE PRECISION ARRAY OF 15 LOCATIONS. C CONTAINING THE RESULTS. C WHERE R = DOUBLE PRECISION ARRAY OF 4 LOCATIONS. C CONTAINING THE R-COORDINATES OF THE ELEM. C WHERE Z = DOUBLE PRECISION ARRAY OF 4 LOCATIONS. C CONTAINING THE Z-COORDINATES OF THE ELEM. C KODE = 0 FOR TRIANGULAR ELEMENT C KODE = 1 FOR TRAPEZOIDAL ELEMENT C C PROCEDURE C INFORMATION IS COMPUTED AND STORED AS FOLLOWS. C COMPUTED FOR ELEMENT STORED C TRIANGLE TRAPEZOID DELT(K,L) DEL(LOC) C ************************************************ C X X 0,0 01 C X X 1,0 02 C X X 0,1 03 C X X -1,0 04 C X X -1,1 05 C X X -1,2 06 C X 1,1 07 C X 1,2 08 C X 2,1 09 C X 2,0 10 C X 0,2 11 C X 3,0 12 C X 3,1 13 C X 3,2 14 C X 2,2 15 C INTEGER GOBACK REAL DEL(15),R(4),Z(4),LN C C ZERO ARRAY (ONLY THAT PORTION USING) C N = 15 DO 2 L = 1,N 2 DEL(L) = 0. C C HERE FOR LINE 1-2 C I = 1 M = 2 ASSIGN 23 TO GO BACK GO TO 500 C C HERE FOR LINE 2-3 C 23 CONTINUE I = 2 M = 3 ASSIGN 3134 TO GO BACK GO TO 500 C C HERE FOR LINE 31 (TRIANGLE), LINE 3-4 (TRAP) C 3134 CONTINUE I = 3 IF (KODE .GT. 0) GO TO 35 M = 1 ASSIGN 90 TO GO BACK GO TO 500 35 M = 4 ASSIGN 41 TO GO BACK GO TO 500 41 I = 4 M = 1 ASSIGN 90 TO GO BACK C C BEGIN LOCAL SUBROUTINE (DEL-KL-I,M) C 500 RM = R(M) RI = R(I) R1 = RM - RI IF (ABS(R1) .LT. 1.E-5) GO TO 599 C C THIS LINE IS NOT PARALLEL TO Z-AXIS C ZM = Z(M) ZI = Z(I) IF (ZI.EQ.0. .AND. ZM.EQ.0.) GO TO 599 C C SPECIAL CASE ZM=ZI=0 THUS ALL A,B = 0 AND C ALL DEL TERMS = 0 . THUS SKIP AND SAVE CPU. C A = (RM*ZI - RI*ZM)/R1 B = (ZM - ZI)/R1 LN = ALOG(RM/RI) SI = RI * RI SM = RM * RM R2 = SM - SI SI = SI * RI SM = SM * RM R3 = SM - SI SI = SI * RI SM = SM * RM R4 = SM - SI SI = SI * RI SM = SM * RM R5 = SM - SI A2 = A * A A3 = A * A2 B2 = B * B B3 = B * B2 AB = A * B AAB = A * AB ABB = B * AB DEL(1) = A*R1 + B*R2/2. + DEL(1) DEL(2) = A*R2/2. + B*R3/3. + DEL(2) DEL(3) = A2*R1/2. + AB*R2 /2. + B2*R3/6. + DEL(3) DEL(4) = A *LN + B*R1 + DEL(04) DEL(5) = A2*LN/2. + AB*R1 + B2*R2/4. + DEL(5) DEL(6) = A3*LN/3. + AAB*R1 + ABB*R2/2. + B3*R3/9. + DEL(6) DEL(7) = A2*R2/4. + AB*R3/3. + B2*R4/8. + DEL(7) DEL(8) = A3*R2/6. + AAB*R3/3. + ABB*R4/4. + B3*R5/15. + DEL(8) DEL(9) = A2*R3/6. + AB*R4/4. + B2*R5/10. + DEL(9) DEL(10)= A*R3/3. + B*R4/4. + DEL(10) DEL(12)= A*R4/4. + B*R5/5. + DEL(12) IF (KODE .LT. 1) GO TO 599 SI = SI * RI SM = SM * RM R6 = SM - SI R7 = (SM*RM - SI*RI) DEL(11)= A3*R1/3. + AAB*R2/2. + ABB*R3/3. + B3*R4/12. + DEL(11) DEL(13)= A2*R4/8. + AB*R5/5. + B2*R6/12. + DEL(13) DEL(14)= A3*R4/12.+ AAB*R5/5. + ABB*R6/6. + B3*R7/21. + DEL(14) DEL(15)= A3*R3/9. + AAB*R4/4. + ABB*R5/5. + B3*R6/18. + DEL(15) 599 GO TO GO BACK, (23,3134,41,90) C C THE ABSOLUTE VALUE IS CHOSEN SO THAT NODES INPUT MAY BE ORDERED C CW OR CCW. RESULTS ARE SAME FOR A GIVEN ELEMENT. C 90 DO 91 L = 1,N 91 DEL(L) = ABS(DEL(L)) RETURN END ================================================ FILE: mis/delset.f ================================================ SUBROUTINE DELSET C***** C THIS ROUTINE SETS VARIABLES FOR DUMMY ELEMENTS IN /GPTA1/ C C ALL MODULES USING /GPTA1/ SHOULD BE SURE TO CALL THIS ROUTINE C SO AS TO INSURE THAT DATA FOR ANY DUMMY ELEMENTS PRESENT GETS C INSERTED INTO /GPTA1/. C***** INTEGER DUMTYP(9) C COMMON/SYSTEM/ NSKIP(45), IDUM(9) C COMMON/GPTA1 / NELEM, LAST, INCR, NE(1) C DATA DUMTYP/53,54,55,56,57,58,59,60,61/ C DO 100 I = 1,9 NGRIDS = IDUM(I) / 10000000 NC = MOD( IDUM(I),10000000) / 10000 NP = MOD( IDUM(I),10000) / 10 C C ND IS DECODE AND USED IN ROUTINES DS1 AND DS1A C ND = MOD(IDUM(I), 10) IZERO = (DUMTYP(I) - 1)*INCR NE(IZERO+6) = NC + NGRIDS + 2 NE(IZERO+9) = NP +2 IF(NP.EQ. 0) NE(IZERO+9) = 0 NE(IZERO+10) = NGRIDS N = 5*NGRIDS + 3 + NP + NC NE(IZERO+12) = N NE(IZERO+15) = NGRIDS + 2 100 CONTINUE RETURN END ================================================ FILE: mis/deltkl.f ================================================ SUBROUTINE DELTKL (DEL,R,Z,KODE) C C EVAULATE - C DELT(K,L) = SURFACE-INTEGRAL((R**K)*(Z**L)) DR*DZ C WHERE DR*DZ IS EITHER A TRIANGLE OR A TRAPEZOID. C C USAGE - C CALL DELTKL (DEL,R,Z,KODE) C WHERE DEL = DOUBLE PRECISION ARRAY OF 15 LOCATIONS. C CONTAINING THE RESULTS. C WHERE R = DOUBLE PRECISION ARRAY OF 4 LOCATIONS. C CONTAINING THE R-COORDINATES OF THE ELEMENT C WHERE Z = DOUBLE PRECISION ARRAY OF 4 LOCATIONS. C CONTAINING THE Z-COORDINATES OF THE ELEMENT C KODE = 0 FOR TRIANGULAR ELEMENT C KODE = 1 FOR TRAPEZOIDAL ELEMENT C C PROCEDURE - C INFORMATION IS COMPUTED AND STORED AS FOLLOWS. C C COMPUTED FOR ELEMENT STORED C TRIANGLE TRAPEZOID DELT(K,L) DEL(LOC) C ================================================ C X X 0,0 1 C X X 1,0 2 C X X 0,1 3 C X X -1,0 4 C X X -1,1 5 C X X -1,2 6 C X 1,1 7 C X 1,2 8 C X 2,1 9 C X 2,0 10 C X 0,2 11 C X 3,0 12 C X 3,1 13 C X 3,2 14 C X 2,2 15 C INTEGER GOBACK,KODE,N,I,M,L DOUBLE PRECISION DEL(15),R(4),Z(4),RM,RI,ZM,ZI,LN,A,B,SI,SM, 1 R1,R2,R3,R4,R5,AB,A2,B2,A3,B3,AAB,ABB,R6,R7 C C ZERO ARRAY (ONLY THAT PORTION USING) C N = 15 DO 2 L = 1,N 2 DEL(L) = 0.0D+0 C C HERE FOR LINE 1-2 C I = 1 M = 2 ASSIGN 23 TO GO BACK GO TO 50 C C HERE FOR LINE 2-3 C 23 CONTINUE I = 2 M = 3 ASSIGN 34 TO GO BACK GO TO 50 C C HERE FOR LINE 31 (TRIANGLE), LINE 3-4 (TRAP) C 34 CONTINUE I = 3 IF (KODE .GT. 0) GO TO 35 M = 1 ASSIGN 90 TO GO BACK GO TO 50 35 M = 4 ASSIGN 41 TO GO BACK GO TO 50 41 I = 4 M = 1 ASSIGN 90 TO GO BACK C C BEGIN LOCAL SUBROUTINE (DEL-KL-I,M) C 50 RM = R(M) RI = R(I) R1 = RM - RI IF (DABS(R1) .LT. 1.0D-07) GO TO 80 C C THIS LINE IS NOT PARALLEL TO Z-AXIS C ZM = Z(M) ZI = Z(I) IF (ZI.EQ.0.0D+0 .AND. ZM.EQ.0.0D+0) GO TO 80 C C SPECIAL CASE, ZM = ZI = 0 THUS ALL A,B = 0 AND C ALL DEL TERMS = 0 . THUS SKIP AND SAVE CPU. C A = (RM*ZI - RI*ZM)/R1 B = (ZM - ZI)/R1 LN = DLOG(RM/RI) SI = RI * RI SM = RM * RM R2 = SM - SI SI = SI * RI SM = SM * RM R3 = SM - SI SI = SI * RI SM = SM * RM R4 = SM - SI SI = SI * RI SM = SM * RM R5 = SM - SI A2 = A * A A3 = A * A2 B2 = B * B B3 = B * B2 AB = A * B AAB = A * AB ABB = B * AB DEL( 1) = A*R1 + B*R2/2.0D+0 + DEL(1) DEL( 2) = A*R2/ 2.0D+0 + B*R3 /3.0D+0 + DEL(2) DEL( 3) = A2*R1/ 2.0D+0 + AB*R2/2.0D+0 + B2*R3/6.0D+0 + DEL(3) DEL( 4) = A*LN + B*R1 + DEL(4) DEL( 5) = A2*LN/ 2.0D+0 + AB*R1 + B2*R2 /4.0D+0 + DEL(5) DEL( 6) = A3*LN/ 3.0D+0 + AAB*R1 + ABB*R2/2.0D+0 + B3*R3/9.0D+0 1 + DEL(6) DEL( 7) = A2*R2/ 4.0D+0 + AB*R3/3.0D+0 + B2*R4 /8.0D+0 + DEL(7) DEL( 8) = A3*R2/ 6.0D+0 + AAB*R3/3.0D+0 + ABB*R4/4.0D+0 1 + B3*R5/15.0D+0 + DEL(8) DEL( 9) = A2*R3/ 6.0D+0 + AB*R4/4.0D+0 + B2*R5/10.0D+0 + DEL(9) DEL(10) = A *R3/ 3.0D+0 + B*R4 /4.0D+0 + DEL(10) DEL(12) = A *R4/ 4.0D+0 + B*R5 /5.0D+0 + DEL(12) IF (KODE .LT. 1) GO TO 80 SI = SI*RI SM = SM*RM R6 = SM - SI R7 = (SM*RM - SI*RI) DEL(11) = A3*R1/ 3.0D+0 + AAB*R2/2.0D+0 + ABB*R3/3.0D+0 1 + B3*R4/12.0D+0 + DEL(11) DEL(13) = A2*R4/ 8.0D+0 + AB*R5 /5.0D+0 + B2*R6/12.0D+0 + DEL(13) DEL(14) = A3*R4/12.0D+0 + AAB*R5/5.0D+0 + ABB*R6/6.0D+0 1 + B3*R7/21.0D+0 + DEL(14) DEL(15) = A3*R3/ 9.0D+0 + AAB*R4/4.0D+0 + ABB*R5/5.0D+0 1 + B3*R6/18.0D+0 + DEL(15) 80 GO TO GO BACK, (23,34,41,90) C C THE ABSOLUTE VALUE IS CHOSEN SO THAT NODES INPUT MAY BE ORDERED C CW OR CCW. RESULTS ARE SAME FOR A GIVEN ELEMENT. C 90 DO 95 L = 1,N 95 DEL(L) = DABS(DEL(L)) RETURN END ================================================ FILE: mis/desvel.f ================================================ SUBROUTINE DESVEL C C DESVAL COMPUTES DESIGN VELOCITY AND ACCELERATION SPECTRA FOR C DDAM. THE ASSUMUED FORM FOR VELOCITY IS C C VELB + W C VEL = VELI * VELA * -------- C VELC + W C C WHERE VELI IS VEL1,VEL2,OR VEL3 FOR TH 1,2,3, DIRECTIONS C W IS THE EFFECTIVE WEIGHT = MATRIX EFFW/1000. C VEL,VELA ARE IN LENGTH/SECOND C MATRIX SSDV WILL BE OUTPUT C DESIGN ACCELERATIONS HAVE THE SAME FORM AS VELOCITY EXCEPT FOR C ONE CASE WHERE C ACC = ACCI*ACCA*(ACCB+W)*(ACCC+W)/(ACCD+W)**2 C C WHERE ACC IS IN G-S AND W IS AS ABOVE C IF ACCD IA ZERO, ACC HAS THE SAME FORM AS VEL C MATRICES ACC AND VEL*OMEGA/G WILL BE OUTPUT FOR COMPARISON C PURPOSES C IN ADDITION, DATA BLOCK MINAC WILL CONTAIN THE MINIMUM C OF ACCE*GG VS. VEL*OMEGA FOR USE IN COMPUTING STATIC LOADS C *** ALL VELOCITY PARAMETERS MUST BE PUT ON PARAM BULK DATA CARDS, C ---- C I.E.,VEL1,VEL2,VEL3,VELA,VELB,VELC. ACCELERATION PARAMETERS ARE C DEFAULTED TO ZERO AND NEED NOT BE ON PARAM CARDS IF NOT WANTED. C C DESVEL EFFW,OMEGA / SSDV,ACC,VWG,MINAC,MINOW2 / C,Y,GG=386.4/ C C,Y,VEL1/C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/ C C,Y,ACC1=0./C,Y,ACC2=0./C,Y,ACC3=0./C,Y,ACCA=0./ C C,Y,ACCB=0./C,Y,ACCC=0./C,Y,ACCD=0. C LOGICAL ZERO INTEGER BUF1,BUF2,BUF3,EFFW,OMEGA,SSDV,ACC,VWG,SYSBUF, 1 BUF4,MCB4(7),BUF5,MCB5(7) DIMENSION NAM(2),MCB1(7),MCB2(7),MCB3(7),IZ(1) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /UNPAKX/ JOUT,III,NNN,JNCR COMMON /PACKX / IIN,IOUT,II,NN,INCR COMMON /SYSTEM/ SYSBUF,IPRINT COMMON /BLANK / GG,VEL1,VEL2,VEL3,VELA,VELB,VELC,ACC1,ACC2,ACC3, 1 ACCA,ACCB,ACCC,ACCD COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)) DATA EFFW , OMEGA,SSDV,ACC,VWG,MINAC,MINOW2 / 1 101 , 102 ,201 ,202,203,204 ,205 / DATA NAM / 4HDESV,4HEL / C ZERO = .FALSE. LCORE = KORSZ(Z) BUF1 = LCORE - SYSBUF + 1 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF BUF5 = BUF4 - SYSBUF LCORE = BUF5 - 1 IF (LCORE .LE. 0) CALL MESAGE (-8,0,NAM) C JOUT = 1 IIN = 1 IOUT = 1 INCR = 1 JNCR = 1 II = 1 III = 1 C C UNPACK AND STORE EFFW AND OMEGA C MCB1(1) = EFFW CALL RDTRL (MCB1) NCOL = MCB1(2) NROW = MCB1(3) NNN = NROW NN = NNN NTOT = NCOL*NROW NALL = NTOT+NNN C IF (LCORE .LT. (NCOL+6)*NNN) CALL MESAGE (-8,0,NAM) CALL GOPEN (EFFW,Z(BUF1),0) DO 20 I = 1,NCOL JJ = (I-1)*NNN CALL UNPACK (*10,EFFW,Z(JJ+1)) GO TO 20 10 DO 15 J = 1,NNN 15 Z(JJ+J) = 0. C 20 CONTINUE CALL CLOSE (EFFW,1) CALL GOPEN (OMEGA,Z(BUF1),0) CALL UNPACK (*30,OMEGA,Z(NTOT+1)) GO TO 50 30 DO 40 I = 1,NNN 40 Z(NTOT+I) = 0. C 50 CALL CLOSE (OMEGA,1) NMODES = NROW NDIR = NCOL C CALL GOPEN (SSDV,Z(BUF1),1) CALL GOPEN (ACC,Z(BUF2),1) CALL GOPEN (VWG,Z(BUF3),1) CALL GOPEN (MINAC,Z(BUF4),1) CALL GOPEN (MINOW2,Z(BUF5),1) C MCB1(1) = SSDV MCB1(2) = 0 MCB1(3) = NROW MCB1(4) = 2 MCB1(5) = 1 MCB1(6) = 0 MCB1(7) = 0 MCB2(1) = ACC MCB2(2) = 0 MCB2(3) = NROW MCB2(4) = 2 MCB2(5) = 1 MCB2(6) = 0 MCB2(7) = 0 MCB3(1) = VWG MCB3(2) = 0 MCB3(3) = NROW MCB3(4) = 2 MCB3(5) = 1 MCB3(6) = 0 MCB3(7) = 0 MCB4(1) = MINAC MCB4(2) = 0 MCB4(3) = NROW MCB4(4) = 2 MCB4(5) = 1 MCB4(6) = 0 MCB4(7) = 0 MCB5(1) = MINOW2 MCB5(2) = 0 MCB5(3) = NROW MCB5(4) = 2 MCB5(5) = 1 MCB5(6) = 0 MCB5(7) = 0 C DO 130 I = 1,NDIR IPT = (I-1)*NNN DO 120 J = 1,NMODES C C EFFECTIVE WEIGHT FOR JTH MODE IN ITH DIRECTION (IN 1000-S) C EFWT = Z(IPT+J)/1000. GO TO (60,70,80), I 60 VELI = VEL1 ACCI = ACC1 GO TO 90 70 VELI = VEL2 ACCI = ACC2 GO TO 90 80 VELI = VEL3 ACCI = ACC3 C 90 VEL = VELI*VELA*(VELB+EFWT)/(VELC+EFWT) IF (ACCD .NE. 0.) GO TO 100 ACCE = ACCI*ACCA*(ACCB+EFWT)/(ACCC+EFWT) GO TO 110 C 100 ACCE = ACCI*ACCA*(ACCB+EFWT)*(ACCC+EFWT)/(ACCD+EFWT)**2 C 110 OMEG = Z(NTOT+J) VWOG = VEL*OMEG/GG C C VELOCITIES FOR ITH DIRECTION ARE IN Z(NALL+1)-Z(NALL+NNN) C ACCELERATIONS ARE IN NEXT NNN LOCATIONS, VWOG IN 3RD NNN C MAXIMUM OF VEL*OMEG OR ACCE*GG IS IN 4TH NNN C Z(NALL +J) = VEL Z(NALL+ NNN +J) = ACCE Z(NALL+2*NNN+J) = VWOG Z(NALL+3*NNN+J) = GG*AMIN1(ACCE,VWOG) IF (ABS(OMEG) .LT. 0.01) GO TO 125 Z(NALL+4*NNN+J) = Z(NALL+3*NNN+J)/OMEG**2 GO TO 120 C C IN DDAM, THERE SHOULD BE NO RIGID BODY MODES.ZERO THE RESPONSE. C 125 Z(NALL+4*NNN+J) = 0. ZERO = .TRUE. C C GET ANOTHER MODE FOR THIS DIRECTION C 120 CONTINUE C C PACK RESULTS FOR THIS DIRECTION C CALL PACK (Z(NALL +1),SSDV,MCB1) CALL PACK (Z(NALL+NNN +1),ACC,MCB2) CALL PACK (Z(NALL+2*NNN+1),VWG,MCB3) CALL PACK (Z(NALL+3*NNN+1),MINAC,MCB4) CALL PACK (Z(NALL+4*NNN+1),MINOW2,MCB5) C C GET ANOTHER DIRECTION C 130 CONTINUE C C DONE C CALL CLOSE (SSDV,1) CALL CLOSE (ACC,1) CALL CLOSE (VWG,1) CALL CLOSE (MINAC,1) CALL CLOSE (MINOW2,1) CALL WRTTRL (MCB1) CALL WRTTRL (MCB2) CALL WRTTRL (MCB3) CALL WRTTRL (MCB4) CALL WRTTRL (MCB5) C IF (.NOT.ZERO) RETURN WRITE (IPRINT,135) UIM 135 FORMAT (A29,', CIRCULAR FREQUENCY LESS THAN .01 IS ENCOUNTERED ', 1 'IN DDAM.', /5X,'MAXIMUM RESPONSE FOR THAT MODE IS SET TO', 2 ' ZERO. DDAM SHOULD HAVE NO RIGID BODY MODES.') RETURN END ================================================ FILE: mis/detck.f ================================================ SUBROUTINE DETCK (JARG,IFGPST,NPVT) C C COMMENTS FROM G.CHAN/UNISYS, 5/1991, C THIS ROUTINE WAS NAMED DETCKX BEFORE, WHICH HAD NOT BEEN TESTED. C THE ONE THAT USED TO BE DETCK APPEARS TO BE AN OLDER VERSION, AND C SHOULD BE REPLACED BY THIS ONE, IF THIS ONE WORKS C C THIS ROUTINE GENERATES THE GRID POINT SINGULARITY TABLE BY C EXAMINING THE TRANSLATIONAL AND DIAGONAL 3 X 3 SUBMATRICES OF THE C KGG MATRIX. C IF JARG = 0, THE PIVOT POINT HAS ELEMENTS ATTACHED TO IT. C IF JARG =-1, THE PIVOT IS A SCALAR POINT AND NO ELEMENTS ARE C CONNECTED TO IT. C IF JARG = 1, THE PIVOT POINT IS A GRID POINT AND NO ELEMENTS ARE C CONNECTED TO IT. C INTEGER TNWDS,IARRAY(8),IZ(1),BACK,NAME(2) DOUBLE PRECISION D,B,DZ,FL,R,M,TEMP,FM,FR,DET,CONST,DTOL COMMON /MA1XX / D(18),B(9),DZ(1),FL(3),R(3),M(3) COMMON /SYSTEM/ ISYS(69),TOLEL EQUIVALENCE (IZ(1),DZ(1)),(IARRAY(1),IORDER),(IARRAY(2),NWDS) DATA NAME / 4HDETC,4HK /, NEOR / 0 / C DTOL = TOLEL IARG = JARG IF (IARG) 10,20,25 10 IORDER = 1 NWDS = 1 IARRAY(3) = NPVT CALL WRITE (IFGPST,IARRAY(1),3,NEOR) RETURN C C AT THIS POINT, BOTH TRANSLATIONAL AND ROTATIONAL DIAGONAL 3X3 S C ARE STORED IN THE D ARRAY. HENCE WE PROCESS THEM. C 20 CONTINUE 25 CONTINUE IP = NPVT - 1 ASSIGN 450 TO IGOTO IF (IARG .NE. 1) GO TO 30 ASSIGN 425 TO BACK GO TO 425 30 ASSIGN 50 TO BACK DO 40 I = 1,9 40 B(I) = D(I) GO TO 90 50 DO 60 I = 1,9 60 B(I) = D(I+9) C C INSURE THE SYMMETRY OF THE B MATRIX C IF (B(2).NE.0.0D0 .AND. B(4).NE.0.0D0) GO TO 65 B(2) = 0.0D0 B(4) = 0.0D0 GO TO 70 65 TEMP = (B(2) + B(4))/2.0D0 B(2) = TEMP B(4) = TEMP 70 IF (B(3).NE.0.0D0 .AND. B(7).NE.0.0D0) GO TO 75 B(3) = 0.0D0 B(7) = 0.0D0 GO TO 80 75 TEMP = (B(3) + B(7))/2.0D0 B(3) = TEMP B(7) = TEMP 80 IF (B(6).NE.0.0D0 .AND. B(8).NE.0.0D0) GO TO 85 B(6) = 0.0D0 B(8) = 0.0D0 GO TO 90 85 TEMP = (B(6) + B(8))/2.0D0 C C SCALE THE MATRIX BY DIVIDING EACH ELEMENT OF B BY THE LARGEST C ELEMENT. IF THE LARGEST ELEMENT IS NON-POSITIVE, THE SINGULARITY C IS OF ORDER 3. C 90 TEMP = B(1) DO 100 I = 2,9 IF (B(I) .GT. TEMP) TEMP = B(I) 100 CONTINUE IF (TEMP .LE. 0.0D0) GO TO 425 DO 110 I = 1,9 110 B(I) = B(I)/TEMP C C FIND THE SQUARES OF THE MAGNITUDES OF THE VECTORS OF THE ROWS OF C THE B MATRIX. C IORDER = 0 J = 0 DO 120 I = 1,9,3 J = J + 1 FL(J) = B(I)**2 + B(I+1)**2 + B(I+2)**2 IF (FL(J) .EQ. 0.0D0) IORDER = IORDER + 1 120 CONTINUE IF (IORDER .EQ. 2) GO TO 410 IF (IORDER .EQ. 0) GO TO 250 C C AT THIS POINT ONE AND ONLY ONE FL(I) IS ZERO. C DO 130 I = 1,3 ISAVE = I IF (FL(I) .EQ. 0. 0D0) GO TO (140,150,160), ISAVE 130 CONTINUE CALL MESAGE (-30,26,NAME) 140 FM = B(5)*B(9) - B(6)*B(8) FR = DSQRT((B(5)**2 + B(6)**2)*(B(8)**2 + B(9)**2)) GO TO 170 150 FM = B(1)*B(9) - B(3)*B(7) FR = DSQRT((B(1)**2 + B(3)**2)*(B(7)**2 + B(9)**2)) GO TO 170 160 FM = B(1)*B(5) - B(2)*B(4) FR = DSQRT((B(1)**2 + B(2)**2)*(B(4)**2 + B(5)**2)) 170 IF (FM .EQ. 0.0D0) GO TO 175 IF (FR.LE.0.0D0 .OR. FM/FR.GE.DTOL) GO TO 240 C C HERE WE HAVE THAT THE ORDER OF THE SINGULARITY IS 2. C 175 IORDER = 2 NWDS = 0 TNWDS = 2 GO TO (180,190,200), ISAVE 180 K1 = 5 K2 = 9 INC1 = 1 INC2 = 3 INC3 = 2 GO TO 210 190 K1 = 1 K2 = 9 INC1 = 2 INC2 = 3 INC3 = 1 GO TO 210 200 K1 = 1 K2 = 5 INC1 = 3 INC2 = 2 INC3 = 1 210 IF (B(K1).LE.0.0D0 .AND. B(K2).LE.0.0D0) GO TO 425 IF (B(K1) .LE. 0.0D0) GO TO 220 NWDS = 2 TNWDS = 4 IARRAY(3) = IP + INC1 IARRAY(4) = IP + INC2 IPOINT = 5 GO TO 230 220 IPOINT = 3 230 IF (B(K2) .LE. 0.0D0) GO TO 430 NWDS = NWDS + 2 TNWDS = TNWDS + 2 IARRAY(IPOINT ) = IP + INC1 IARRAY(IPOINT+1) = IP + INC3 GO TO 430 C C AT THIS POINT WE HAVE THAT ONE AND ONLY ONE FL IS ZERO BUT THAT C ORDER OF THE SINGULARITY IS 1. C 240 IORDER = 1 NWDS = 1 TNWDS = 3 IARRAY(3) = IP + ISAVE GO TO 430 C C AT STATEMENT NO. 250, WE HAVE THAT ALL THE FL(I) ARE .GT. 0.0D0, C SO THAT THE DETERMINANT, DET, OF B MUST BE COMPUTED. C 250 DET = B(1)*(B(5)*B(9) - B(6)*B(8)) - B(2)*(B(4)*B(9) - B(6)*B(7)) 1 + B(3)*(B(4)*B(8) - B(5)*B(7)) CONST = 0.05D0*DTOL*FL(1)*FL(2)*FL(3) IF (DET .GT. CONST) GO TO 440 C C COMPUTE M(I) AND R(I) C M(1) = B(5)*B(9) - B(6)*B(8) M(2) = B(1)*B(9) - B(3)*B(7) M(3) = B(1)*B(5) - B(2)*B(4) R(1) = DSQRT(B(5)**2 + B(6)**2) * DSQRT(B(8)**2 + B(9)**2) R(2) = DSQRT(B(1)**2 + B(3)**2) * DSQRT(B(7)**2 + B(9)**2) R(3) = DSQRT(B(1)**2 + B(2)**2) * DSQRT(B(4)**2 + B(5)**2) C C FIND I1, J1, K1 C SUCH THAT M(I1)/R(I1) .GE. M(J1)/R(J1) .GE. M(K1)/R(K1) C I1 = 1 J1 = 2 K1 = 3 IF (M(1)*R(2) .GE. M(2)*R(1)) GO TO 270 I1 = 2 J1 = 1 270 IF (M(I1)*R(K1) .GE. M(K1)*R(I1)) GO TO 280 ITEMP = I1 I1 = K1 K1 = ITEMP 280 IF (M(J1)*R(K1) .GE. M(K1)*R(J1)) GO TO 290 ITEMP = J1 J1 = K1 K1 = ITEMP 290 IF (M(I1) .GE. R(I1)*DTOL) GO TO 400 C C HERE THE SINGULARITY IS OF ORDER 2. C NWDS = 0 TNWDS = 2 IORDER = 2 C C FIND II, JJ, KK SUCH THAT B(II) .GE. B(JJ) .GE. B(KK) C II = 1 JJ = 5 KK = 9 IF (B(1) .GE. B(5)) GO TO 300 II = 5 JJ = 1 300 IF (B(II) .GE. B(KK)) GO TO 310 ITEMP = II II = KK KK = ITEMP 310 IF (B(JJ) .GE. B(KK)) GO TO 320 ITEMP = JJ JJ = KK KK = ITEMP 320 LL = II KOUNT = 0 IPOINT= 3 330 IF (B(LL) .LE. 0.0D0) GO TO 430 NWDS = NWDS + 2 TNWDS = TNWDS + 2 IF (LL - 5) 340,350,360 340 INC1 = 2 INC2 = 3 GO TO 370 350 INC1 = 1 INC2 = 3 GO TO 370 360 INC1 = 1 INC2 = 2 370 IARRAY(IPOINT ) = IP + INC1 IARRAY(IPOINT+1) = IP + INC2 IPOINT = IPOINT + 2 KOUNT = KOUNT + 1 IF (KOUNT - 2) 380,390,430 380 LL = JJ GO TO 330 390 LL = KK GO TO 330 C C AT THIS POINT THE SINGULARITY IS OF ORDER 1. C 400 IORDER = 1 NWDS = 1 TNWDS = 3 IARRAY(3) = IP + I1 IF (M(J1) .LT. R(J1)*DTOL) GO TO 430 NWDS = 2 TNWDS = 4 IARRAY(4) = IP + J1 IF (M(K1) .LT. R(K1)*DTOL) GO TO 430 NWDS = 3 TNWDS = 5 IARRAY(5) = IP + K1 GO TO 430 C C AT THIS POINT 2 ROWS OF THE B MATRIX ARE IDENTICALLY ZERO. C 410 NWDS = 2 TNWDS = 4 IPOINT = 2 DO 420 I = 1,3 IF (FL(I) .NE. 0.0D0) GO TO 420 IPOINT = IPOINT + 1 IARRAY(IPOINT) = IP + I 420 CONTINUE GO TO 430 C C THE SINGULARITY IS OF ORDER 3 C 425 IORDER = 3 NWDS = 3 TNWDS = 5 IARRAY(3) = IP + 1 IARRAY(4) = IP + 2 IARRAY(5) = IP + 3 C C WRITE IARRAY ON THE GPST FILE. C 430 CALL WRITE (IFGPST,IARRAY(1),TNWDS,NEOR) 440 GO TO IGOTO, (450,460) 450 ASSIGN 460 TO IGOTO IP = IP + 3 GO TO BACK, (50,425) 460 CONTINUE RETURN END ================================================ FILE: mis/detckx.f ================================================ SUBROUTINE DETCKX( JARG, IFGPST, NPVT ) C***** C THIS ROUTINE GENERATES THE GRID POINT SINGULARITY TABLE BY EXAMINING C THE TRANSLATIONAL AND DIAGONAL 3 X 3 SUBMATRICES OF THE KGG MATRIX. C IF JARG = 0, THE PIVOT POINT HAS ELEMENTS ATTACHED TO IT. C IF JARG =-1, THE PIVOT IS A SCALAR POINT AND NO ELEMENTS ARE C CONNECTED TO IT. C IF JARG = 1, THE PIVOT POINT IS A GRID POINT AND NO ELEMENTS ARE C CONNECTED TO IT. C***** DOUBLE PRECISION 1 DZ(1) ,B(9) 2, FL(3) ,M(3) 3, R(3) ,TEMP 4, FM ,FR 5, DET ,CONST 6, DTOL ,D(18) C INTEGER 1 TNWDS ,IARRAY(8) 2, IZ(1) ,BACK 3, NAME(2) C COMMON /MA1XX / D, B, DZ, FL, R, M COMMON /SYSTEM/ ISYS(69),TOLEL,SDUM(10) C C EQUIVALENCE 1 (IZ(1),DZ(1)) ,(IARRAY(1),IORDER) 2, (IARRAY(2),NWDS) C C C DATA NEOR/ 0 / DATA NAME / 4HDETC,4HKX / C DTOL = TOLEL IARG = JARG IF (IARG) 35,10,52 35 IORDER = 1 NWDS = 1 IARRAY(3) = NPVT CALL WRITE (IFGPST,IARRAY(1),3,NEOR) RETURN C C AT THIS POINT, BOTH TRANSLATIONAL AND ROTATIONAL DIAGONAL 3X3 S ARE C STORED IN THE D ARRAY. HENCE WE PROCESS THEM. C 10 CONTINUE 52 CONTINUE IP = NPVT - 1 ASSIGN 450 TO IGOTO IF (IARG .NE. 1) GO TO 55 ASSIGN 425 TO BACK GO TO 425 55 ASSIGN 70 TO BACK DO 60 I = 1,9 60 B(I) = D(I) GO TO 90 70 DO 80 I = 1,9 80 B(I) = D(I+9) C C INSURE THE SYMMETRY OF THE B MATRIX C IF (B(2) .NE. 0.0D0 .AND. B(4) .NE. 0.0D0) GO TO 82 B(2) = 0.0D0 B(4) = 0.0D0 GO TO 83 82 TEMP = (B(2) + B(4)) / 2.0D0 B(2) = TEMP B(4) = TEMP 83 IF (B(3) .NE. 0.0D0 .AND. B(7) .NE. 0.0D0) GO TO 84 B(3) = 0.0D0 B(7) = 0.0D0 GO TO 85 84 TEMP = (B(3) + B(7)) / 2.0D0 B(3) = TEMP B(7) = TEMP 85 IF (B(6) .NE. 0.0D0 .AND. B(8) .NE. 0.0D0) GO TO 86 B(6) = 0.0D0 B(8) = 0.0D0 GO TO 90 86 TEMP = (B(6) + B(8)) / 2.0D0 C C SCALE THE MATRIX BY DIVIDING EACH ELEMENT OF B BY THE LARGEST ELEMENT. C IF THE LARGEST ELEMENT IS NON-POSITIVE, THE SINGULARITY IS OF ORDER 3. C 90 TEMP = B(1) DO 100 I = 2,9 IF (B(I) .GT. TEMP) TEMP = B(I) 100 CONTINUE IF (TEMP .LE. 0.0D0) GO TO 425 DO 110 I = 1,9 110 B(I) = B(I) / TEMP C C FIND THE SQUARES OF THE MAGNITUDES OF THE VECTORS OF THE ROWS OF THE C B MATRIX. C IORDER = 0 J = 0 DO 120 I = 1,9,3 J = J + 1 FL(J) = B(I)**2 + B(I+1)**2 + B(I+2)**2 IF (FL(J) .EQ. 0.0D0) IORDER = IORDER + 1 120 CONTINUE IF (IORDER .EQ. 2) GO TO 410 IF (IORDER .EQ. 0) GO TO 250 C C AT THIS POINT ONE AND ONLY ONE FL(I) IS ZERO. C DO 130 I = 1,3 ISAVE = I IF (FL(I) .EQ. 0. 0D0) GO TO (140,150,160), ISAVE 130 CONTINUE CALL MESAGE (-30,26,NAME) 140 FM = B(5) * B(9) - B(6) * B(8) FR = DSQRT( (B(5)**2 + B(6)**2) * (B(8)**2 + B(9)**2) ) GO TO 170 150 FM = B(1) * B(9) - B(3) * B(7) FR = DSQRT( (B(1)**2 + B(3)**2) * (B(7)**2 + B(9)**2) ) GO TO 170 160 FM = B(1) * B(5) - B(2) * B(4) FR = DSQRT( (B(1)**2 + B(2)**2) * (B(4)**2 + B(5)**2) ) 170 IF( FM .EQ. 0.0D0 ) GO TO 171 IF( FR .LE. 0.0D0 ) GO TO 240 IF ( FM/FR .GE. DTOL ) GO TO 240 C C HERE WE HAVE THAT THE ORDER OF THE SINGULARITY IS 2. C 171 IORDER = 2 NWDS = 0 TNWDS = 2 GO TO (180,190,200), ISAVE 180 K1 = 5 K2 = 9 INC1 = 1 INC2 = 3 INC3 = 2 GO TO 210 190 K1 = 1 K2 = 9 INC1 = 2 INC2 = 3 INC3 = 1 GO TO 210 200 K1 = 1 K2 = 5 INC1 = 3 INC2 = 2 INC3 = 1 210 IF (B(K1) .LE. 0.0D0 .AND. B(K2) .LE. 0.0D0) GO TO 425 IF (B(K1) .LE. 0.0D0) GO TO 220 NWDS = 2 TNWDS = 4 IARRAY(3) = IP + INC1 IARRAY(4) = IP + INC2 IPOINT = 5 GO TO 230 220 IPOINT = 3 230 IF (B(K2) .LE. 0.0D0) GO TO 430 NWDS = NWDS + 2 TNWDS = TNWDS + 2 IARRAY(IPOINT) = IP + INC1 IARRAY(IPOINT+1) = IP + INC3 GO TO 430 C C AT THIS POINT WE HAVE THAT ONE AND ONLY ONE FL IS ZERO BUT THAT ORDER C OF THE SINGULARITY IS 1. C 240 IORDER = 1 NWDS = 1 TNWDS = 3 IARRAY(3) = IP + ISAVE GO TO 430 C C AT STATEMENT NO. 250, WE HAVE THAT ALL THE FL(I) ARE .GT. 0.0D0, SO C THAT THE DETERMINANT, DET, OF B MUST BE COMPUTED. C 250 DET = B(1) * ( B(5)*B(9) - B(6)*B(8) ) 1 - B(2) * ( B(4)*B(9) - B(6)*B(7) ) 2 + B(3) * ( B(4)*B(8) - B(5)*B(7) ) CONST = 0.05D0*DTOL * FL(1) * FL(2) * FL(3) IF (DET .GT. CONST) GO TO 440 C C COMPUTE M(I) AND R(I) C M(1) = B(5) * B(9) - B(6) * B(8) M(2) = B(1) * B(9) - B(3) * B(7) M(3) = B(1) * B(5) - B(2) * B(4) R(1) = DSQRT ( B(5)**2 + B(6)**2 ) 1 * DSQRT ( B(8)**2 + B(9)**2 ) R(2) = DSQRT ( B(1)**2 + B(3)**2 ) 1 * DSQRT ( B(7)**2 + B(9)**2 ) R(3) = DSQRT ( B(1)**2 + B(2)**2 ) 1 * DSQRT ( B(4)**2 + B(5)**2 ) C C FIND I1,J1,K1 SUCH THAT M(I1)/R(I1) .GE. M(J1)/R(J1) .GE. M(K1)/R(K1) C I1 = 1 J1 = 2 K1 = 3 IF (M(1)*R(2).GE.M(2)*R(1)) GO TO 270 I1 = 2 J1 = 1 270 IF (M(I1)*R(K1).GE.M(K1)*R(I1)) GO TO 280 ITEMP = I1 I1 = K1 K1 = ITEMP 280 IF (M(J1)*R(K1).GE.M(K1)*R(J1)) GO TO 290 ITEMP = J1 J1 = K1 K1 = ITEMP 290 IF (M(I1).GE.R(I1)*DTOL) GO TO 400 C C HERE THE SINGULARITY IS OF ORDER 2. C NWDS = 0 TNWDS = 2 IORDER = 2 C C FIND II, JJ, KK SUCH THAT B(II) .GE. B(JJ) .GE. B(KK) C II = 1 JJ = 5 KK = 9 IF (B(1) .GE. B(5)) GO TO 300 II = 5 JJ = 1 300 IF (B(II) .GE. B(KK)) GO TO 310 ITEMP = II II = KK KK = ITEMP 310 IF (B(JJ) .GE. B(KK)) GO TO 320 ITEMP = JJ JJ = KK KK = ITEMP 320 LL = II KOUNT = 0 IPOINT= 3 330 IF (B(LL) .LE. 0.0D0) GO TO 430 NWDS = NWDS + 2 TNWDS = TNWDS + 2 IF (LL - 5) 340,350,360 340 INC1 = 2 INC2 = 3 GO TO 370 350 INC1 = 1 INC2 = 3 GO TO 370 360 INC1 = 1 INC2 = 2 370 IARRAY(IPOINT) = IP + INC1 IARRAY(IPOINT+1) = IP + INC2 IPOINT = IPOINT + 2 KOUNT = KOUNT + 1 IF (KOUNT - 2) 380,390,430 380 LL = JJ GO TO 330 390 LL = KK GO TO 330 C C AT THIS POINT THE SINGULARITY IS OF ORDER 1. C 400 IORDER = 1 NWDS = 1 TNWDS = 3 IARRAY(3) = IP + I1 IF (M(J1).LT.R(J1)*DTOL) GO TO 430 NWDS = 2 TNWDS = 4 IARRAY(4) = IP + J1 IF (M(K1).LT.R(K1)*DTOL) GO TO 430 NWDS = 3 TNWDS = 5 IARRAY(5) = IP + K1 GO TO 430 C C AT THIS POINT 2 ROWS OF THE B MATRIX ARE IDENTICALLY ZERO. C 410 NWDS = 2 TNWDS = 4 IPOINT = 2 DO 420 I = 1,3 IF (FL(I) .NE. 0.0D0) GO TO 420 IPOINT = IPOINT + 1 IARRAY(IPOINT) = IP + I 420 CONTINUE GO TO 430 C C THE SINGULARITY IS OF ORDER 3 C 425 IORDER = 3 NWDS = 3 TNWDS = 5 IARRAY(3) = IP + 1 IARRAY(4) = IP + 2 IARRAY(5) = IP + 3 C C WRITE IARRAY ON THE GPST FILE. C 430 CALL WRITE (IFGPST,IARRAY(1),TNWDS,NEOR) 440 GO TO IGOTO, (450,460) 450 ASSIGN 460 TO IGOTO IP = IP + 3 GO TO BACK, (70,425) 460 CONTINUE RETURN END ================================================ FILE: mis/detdet.f ================================================ SUBROUTINE DETDET(DETA,IPOWR1,P,SML1,OLDD,IOLD) C DIMENSION IPOWR1(1) C DOUBLE PRECISION DETA(1),P(1),PROD,DET,CORE,SML2,OLDD,DET1,SML21 C DOUBLE PRECISION MINDD C INTEGER FA,FL,FC,SR1,SR2,SR3,FA1,FL1,FC1,SR11,SR21 INTEGER OPTION,SDET INTEGER OTPE,B,C,R,SR31 C COMMON /MACHIN/MACH COMMON /REGEAN/IM(21),IA,IN(4),LC,IN1(2),MZ,IN2(2),RMINR,IN3(2), 1 NEVM,IL1,IL2,NFOUND,LAMA,IBUCK,NSYM COMMON /DETMX /ISEW(33),IPAAV,ISEW1(5),NDCMP,ISEW2(20),NPOLE 1 ,ISING COMMON /DCOMPX/FA(7),FL(7),FC(7),SR1,SR2,SR3,DET,IPOWR,NZ 1 ,SML2 COMMON /ZZZZZZ /CORE(1) COMMON /REIGKR/OPTION COMMON /SFACT /FA1(7) ,FC1(7) ,FL1(7) ,SR11 ,SR21 1 ,NZ1 ,DET1(2) ,IPOWRA ,SR31 ,MINDD 3 ,ICHOL ,B ,C ,R ,SML21 COMMON /SYSTEM/KSYSTM(65) C EQUIVALENCE ( KSYSTM( 2) , OTPE ) C DATA SDET /4HSDET/ C C ---------------------------------------------------------------------- C CALL SSWTCH (7, IPRT) ISAVE = IN(4) IN(4) = IL2 IL2 = ISAVE NZZ = (KORSZ(CORE)/2)*2 -LC NDCMP = NDCMP+1 IF(OPTION .EQ. SDET) GO TO 5 FA(1)=IA CALL RDTRL(FA) C C SET UP FOR UNSYMMETRIC C NZ = NZZ C C C PUT IN TO PREVENT REWRITE C C FA1(1) = -FA1(1) C CWKBD 10/94 SPR94011 FA(1) = -FA(1) FL(1)=IN(1) FC(1)=IN(2) DO 10 I=2,5 FL(I)=FA(I) 10 FC(I)=FA(I) SR1 = IN(3) SR2 = IN(4) SR3 = IL1 CALL DECOMP(*60,CORE,CORE,CORE) CWKBD 10/94 SPR94011 FC(1) = SR2 CALL WRTTRL(FC) GO TO 14 C C SET UP FOR SYMMETRIC DECOMPOSITION C 5 FA1(1) = IA CALL RDTRL(FA1) FL1(1) = IN(1) FC1(1) = IN(4) ICHOL = 0 IF(NDCMP .EQ. 1) B=0 NZ1 = NZZ DO 6 I = 2,5 FL1(I) = FA1(I) FC1(I) = FA1(I) 6 CONTINUE SR11= IN(3) SR21 = IN(2) SR31 = IL1 IF(MACH.EQ.4 .OR. MACH.EQ.12) FL1(5) = 1 CALL SDCOMP(*60,CORE,CORE,CORE) FC1(5) = FL1(5) CALL WRTTRL(FC1) IPOWR=IPOWRA DET = DET1(1) SML1= SML21 14 PROD = 1.0D0 IF(IPRT .EQ. 0) GO TO 15 WRITE(OTPE,99) P(1),DET,IPOWR 99 FORMAT(2D16.7,I8) 15 CONTINUE IPROD = 0 IF( MZ .EQ. 0) GO TO 12 II = IABS(MZ) DO 11 I=1,II PROD = PROD* P(1) CALL DETM6(PROD,IPROD) 11 CONTINUE C C TAKE OUT POLE AT RMINR C 12 IF (NPOLE .EQ. 0) GO TO 20 DO 13 I = 1,NPOLE PROD = PROD*(P(1)- RMINR) CALL DETM6( PROD,IPROD) 13 CONTINUE 20 IF(NFOUND .EQ. 0) GO TO 40 DO 30 I=1,NFOUND II = IPAAV +I IF(P(1).EQ. CORE(II)) GO TO 70 PROD = PROD*(P(1)-CORE(II)) CALL DETM6(PROD,IPROD) 30 CONTINUE 40 DETA(1) = DET/PROD SML1= SML2 IPOWR1(1)= IPOWR-IPROD CALL DETM6(DETA(1),IPOWR1(1)) 50 IF(IPRT .EQ. 0) GO TO 51 WRITE(OTPE,99) P(1),DETA(1),IPOWR1(1) 51 RETURN 60 DETA(1) = 0.0D0 IPOWR1(1)=1 SML1 = 1.0E-8 ISING = ISING+1 ISAVE = IN(4) IN(4) = IL2 IL2 = ISAVE GO TO 50 C C SET DK = DK-1 C 70 DETA(1) = OLDD SML1 = SML2 IPOWR1(1) = IOLD GO TO 50 END ================================================ FILE: mis/detfbs.f ================================================ SUBROUTINE DETFBS (IY,IOBUF,FILEU,NROW,KCOUNT) C C DETFBS IS A SPECIAL VERSION OF THE GFBS ROUTINE AND IS USED BY C THE REAL DETERMINANT METHOD. IT IS SUITABLE FOR BOTH SINGLE C AND DOUBLE PRECISION OPERATION. C C C DEFINITION OF PARAMETERS C ------------------------ C C FILEU = MATRIX CONTROL BLOCK FOR THE UPPER TRIANGLE C FILEV = SAME AS FILEU C FILEVT = MATRIX CONTROL BLOCK FOR THE TRANSPOSE OF THE UPPER C TRIANGLE C X, DX = THE SOLUTION VECTOR C Y, DY = REGION USED FOR UNPACKING C IY = POINTER TO Y (DY) RELATIVE TO X (DX) C IOBUF = THE INPUT BUFFER C NROW = MATRIX SIZE C KCOUNT = EIGENVALUE COUNTER C INTEGER FILEU(7),PARM(4) ,IOBUF(7),OPTION ,SDET ,FILEV , 1 FILEVT ,SCR3 ,SCR4 ,SCR6 ,SCR REAL X(1) ,Y(1) DOUBLE PRECISION DX(1) ,DY(1) ,DXMIN ,DSDIAG COMMON /ZZZZZZ/ CORE(1) COMMON /DETMX / DUM3(36),IPDETA COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,REW COMMON /REGEAN/ DUM1(23),SCR3 ,SCR4 ,DUM2(11),SCR6 COMMON /REIGKR/ OPTION COMMON /TRNSPX/ FILEV(7),FILEVT(7),LCORE ,NCR ,SCR(2) COMMON /UNPAKX/ ITYPEX , IUNPAK ,JUNPAK ,INCR EQUIVALENCE (CORE(1),X(1),DX(1),Y(1),DY(1)) , 1 (XMIN,DXMIN) , (SDIAG,DSDIAG) DATA SDET / 4HSDET / DATA PARM(3), PARM(4) / 4HDETF, 4HBS / C CWKBI SPR 94011 10/94 IF ( OPTION .NE. SDET ) GO TO 1000 ITYPEX = FILEU(5) INDEX = -1 INCR = 1 NFILE = FILEU(1) IF (OPTION .EQ. SDET) GO TO 30 INDEX = 1 LCORE = IPDETA - IY*ITYPEX - 1 IF (LCORE .LT. 0) CALL MESAGE (-8,0,PARM(3)) NCR = 2 SCR(1) = SCR3 SCR(2) = SCR4 DO 20 I = 1,7 FILEV(I) = FILEU(I) FILEVT(I) = FILEU(I) 20 CONTINUE 30 FILEVT(1) = SCR6 NFILE = FILEVT(1) IF (ITYPEX .EQ. 1) CALL TRNSP ( Y(IY)) IF (ITYPEX .NE. 1) CALL TRNSP (DY(IY)) IF (ITYPEX .EQ. 1) GO TO 50 ASSIGN 230 TO ISD ASSIGN 260 TO IUS 40 PARM(2) = NFILE CALL GOPEN (NFILE,IOBUF,RDREW) GO TO 60 50 ASSIGN 240 TO ISD ASSIGN 270 TO IUS GO TO 40 60 XMIN = 1.0E20 IF (ITYPEX .NE. 1) DXMIN = 1.0D20 DO 80 I = 1,NROW IUNPAK = 0 IF (ITYPEX .NE. 1) GO TO 70 CALL UNPACK (*400,NFILE,X(I)) IF (XMIN .GT. ABS(X(I))) XMIN = ABS(X(I)) GO TO 80 70 CALL UNPACK (*400,NFILE,DX(I)) IF (DXMIN .GT. DABS(DX(I))) DXMIN = DABS(DX(I)) 80 CONTINUE IF (ITYPEX.EQ.1 .AND. XMIN .NE.0.0 ) GO TO 120 IF (ITYPEX.NE.1 .AND. DXMIN.NE.0.0D0) GO TO 120 XMIN = 1.0E20 IF (ITYPEX .NE. 1) DXMIN = 1.0D20 DO 100 I = 1,NROW IF (ITYPEX .NE. 1) GO TO 90 IF (X(I) .EQ. 0.0) GO TO 100 IF (XMIN .GT. ABS(X(I))) XMIN = ABS(X(I)) GO TO 100 90 IF (DX(I) .EQ. 0.0D0) GO TO 100 IF (DXMIN .GT. DABS(DX(I))) DXMIN = DABS(DX(I)) 100 CONTINUE IF (ITYPEX .NE. 1) GO TO 110 IF (XMIN .GT. 1.0E-8) XMIN = 1.0E-8 GO TO 120 110 IF (DXMIN .GT. 1.0D-8) DXMIN = 1.0D-8 C C BUILD LOAD VECTOR FOR BACKWARD PASS C 120 SDIAG = 1.0 IF (ITYPEX .NE. 1) DSDIAG = 1.0D0 DO 160 I = 1,NROW ANUM = (-1)**(I*KCOUNT) AI = I ADEN = 1.0 + (1.0 - AI/NROW)*KCOUNT AVALUE = ANUM/ADEN IF (ITYPEX .NE. 1) GO TO 140 IF (OPTION .NE. SDET) GO TO 130 SDIAG = X(I) IF (X(I).GE.0.0 .AND. ABS(X(I)).LT.XMIN) SDIAG = XMIN IF (X(I).LT.0.0 .AND. ABS(X(I)).LT.XMIN) SDIAG =-XMIN 130 X(I) = XMIN*AVALUE/SDIAG GO TO 160 140 IF (OPTION .NE. SDET) GO TO 150 DSDIAG = DX(I) IF (DX(I).GE.0.0 .AND. DABS(DX(I)).LT.DXMIN) DSDIAG = DXMIN IF (DX(I).LT.0.0 .AND. DABS(DX(I)).LT.DXMIN) DSDIAG =-DXMIN 150 DX(I) = DXMIN*AVALUE/DSDIAG 160 CONTINUE C C C BEGIN BACKWARD PASS C DO 300 I = 1,NROW IUNPAK = 0 J = NROW - I + 1 CALL BCKREC (NFILE) IF (ITYPEX .EQ. 1) CALL UNPACK (*400,NFILE,Y(IY)) IF (ITYPEX .NE. 1) CALL UNPACK (*400,NFILE,DY(IY)) CALL BCKREC (NFILE) ISING = 0 K = JUNPAK - IUNPAK + IY GO TO ISD, (230,240) C C DIVIDE BY THE DIAGONAL TERM C 200 IF (OPTION .EQ. SDET) GO TO 300 IF (DY(K).GE.0.0D0 .AND. DABS(DY(K)).LT.DXMIN) DY(K) = DXMIN IF (DY(K).LT.0.0D0 .AND. DABS(DY(K)).LT.DXMIN) DY(K) =-DXMIN DX(J) = DX(J)/DY(K) GO TO 300 210 IF (OPTION .EQ. SDET) GO TO 300 IF (Y(K).GE.0.0 .AND. ABS(Y(K)).LT.XMIN) Y(K) = XMIN IF (Y(K).LT.0.0 .AND. ABS(Y(K)).LT.XMIN) Y(K) =-XMIN X(J) = X(J)/Y(K) GO TO 300 220 K = K - 1 JUNPAK = JUNPAK - 1 IF (K .LT. IY) GO TO 280 GO TO ISD, (230,240) 230 IF (DY(K) .EQ. 0.0D0) GO TO 220 IF (JUNPAK - J) 280,200,250 240 IF (Y(K) .EQ. 0.0) GO TO 220 IF (JUNPAK - J) 280,210,250 250 GO TO IUS, (260,270) 260 DX(J) = DX(J) - INDEX*DX(JUNPAK)*DY(K) GO TO 220 270 X(J) = X(J) - INDEX*X(JUNPAK)*Y(K) GO TO 220 280 IF (ISING .EQ. 0) GO TO 400 300 CONTINUE C IF (OPTION .EQ. SDET) GO TO 340 IF (ITYPEX .EQ. 1) GO TO 320 DO 310 I = 1,NROW DX(I) = -DX(I) 310 CONTINUE GO TO 340 320 DO 330 I = 1,NROW X(I) = -X(I) 330 CONTINUE 340 CALL CLOSE (NFILE,REW) CWKBI 10/94 SPR94011 700 CONTINUE RETURN CWKBNB 10/94 SPR94011 1000 CALL DETGBS( IY, IOBUF, KCOUNT ) GO TO 700 CWKBNE 10/94 SPR94011 C C ATTEMPT TO OPERATE ON SINGULAR MATRIX C 400 PARM(1) = -5 CALL MESAGE (PARM(1),PARM(2),PARM(3)) RETURN END ================================================ FILE: mis/detgbs.f ================================================ SUBROUTINE DETGBS (IY,IOBUF,KCOUNT) C C DETGFBS IS A SPECIAL VERSION OF THE DETFBS ROUTINE AND IS USED BY C THE REAL DETERMINANT METHOD FOR UNSYMMETRIC DECOMPOSITION. C IT IS SUITABLE FOR BOTH SINGLE AND DOUBLE PRECISION OPERATION. C C C DEFINITION OF PARAMETERS C ------------------------ C C FILEU = MATRIX CONTROL BLOCK FOR THE UPPER TRIANGLE C FILEV = SAME AS FILEU C FILEVT = MATRIX CONTROL BLOCK FOR THE TRANSPOSE OF THE UPPER C TRIANGLE C X, DX = THE SOLUTION VECTOR C Y, DY = REGION USED FOR UNPACKING C IY = POINTER TO Y (DY) RELATIVE TO X (DX) C IOBUF = THE INPUT BUFFER C NROW = MATRIX SIZE C KCOUNT = EIGENVALUE COUNTER C INTEGER FILEU(7),PARM(4) ,IOBUF(7),OPTION , FC 1, SCR3 ,SCR4 ,SCR6 ,EOL REAL X(1) ,Y(1) DOUBLE PRECISION DX(1) ,DY(1) ,DXMIN ,DSDIAG ,DA(2) COMMON /ZZZZZZ/ CORE(1) COMMON /DETMX / DUM3(36),IPDETA COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,REW COMMON /REGEAN/ DUM1(23),SCR3 ,SCR4 ,DUM2(11),SCR6 COMMON /REIGKR/ OPTION COMMON /UNPAKX/ ITYPEX , IUNPAK ,JUNPAK ,INCR COMMON /ZNTPKX/ A(4) , II ,EOL COMMON /DCOMPX/ FA(7) , FL(7) ,FC(7) EQUIVALENCE (CORE(1),X(1),DX(1),Y(1),DY(1)) 1, (XMIN,DXMIN) , (SDIAG,DSDIAG) 2, (A(1),DA(1) ) DATA PARM(3), PARM(4) / 4HDETG, 4HFBS / C FILEU(1) = FC(1) CALL RDTRL ( FILEU ) ITYPEX = FILEU(5) NROW = FILEU(2) IOFF = FILEU(7)-1 IPREC = 1 IF ( ITYPEX .EQ. 2 ) IPREC = 2 INDEX = -1 INCR = 1 NFILE = FILEU(1) INDEX = 1 LCORE = IPDETA - IY*ITYPEX - 1 IF (LCORE .LT. 0) CALL MESAGE (-8,0,PARM(3)) NFILE = FILEU(1) PARM(2) = NFILE CALL GOPEN (NFILE,IOBUF,RDREW) XMIN = 1.0E20 IF (ITYPEX .NE. 1) DXMIN = 1.0D20 DO 80 I = 1,NROW IUNPAK = I JUNPAK = I IND = NROW - I + 1 IF (ITYPEX .NE. 1) GO TO 70 CALL UNPACK (*400,NFILE,X(IND)) IF (XMIN .GT. ABS(X(IND))) XMIN = ABS(X(IND)) GO TO 80 70 CALL UNPACK (*400,NFILE,DX(IND)) IF (DXMIN .GT. DABS(DX(IND))) DXMIN = DABS(DX(IND)) 80 CONTINUE IF (ITYPEX.EQ.1 .AND. XMIN .NE.0.0 ) GO TO 120 IF (ITYPEX.NE.1 .AND. DXMIN.NE.0.0D0) GO TO 120 XMIN = 1.0E20 IF (ITYPEX .NE. 1) DXMIN = 1.0D20 DO 100 I = 1,NROW IF (ITYPEX .NE. 1) GO TO 90 IF (X(I) .EQ. 0.0) GO TO 100 IF (XMIN .GT. ABS(X(I))) XMIN = ABS(X(I)) GO TO 100 90 IF (DX(I) .EQ. 0.0D0) GO TO 100 IF (DXMIN .GT. DABS(DX(I))) DXMIN = DABS(DX(I)) 100 CONTINUE IF (ITYPEX .NE. 1) GO TO 110 IF (XMIN .GT. 1.0E-8) XMIN = 1.0E-8 GO TO 120 110 IF (DXMIN .GT. 1.0D-8) DXMIN = 1.0D-8 C C BUILD LOAD VECTOR FOR BACKWARD PASS C 120 SDIAG = 1.0 IF (ITYPEX .NE. 1) DSDIAG = 1.0D0 DO 160 I = 1,NROW ANUM = (-1)**(I*KCOUNT) AI = I ADEN = 1.0 + (1.0 - AI/NROW)*KCOUNT AVALUE = ANUM/ADEN IF (ITYPEX .NE. 1) GO TO 140 130 X(I) = XMIN*AVALUE/SDIAG GO TO 160 140 DX(I) = DXMIN*AVALUE/DSDIAG 160 CONTINUE C C BEGIN BACKWARD PASS C CALL REWIND ( FILEU ) CALL SKPREC ( FILEU, 1 ) J = NROW 390 CALL INTPK (*650,FILEU(1),0,IPREC,0) IF (EOL) 650,410,650 410 CALL ZNTPKI I = NROW - II + 1 IF (I .NE. J) GO TO 510 C C DIVIDE BY THE DIAGONAL C IN1 = I K = 0 420 GO TO (430,440), IPREC 430 CONTINUE IF ( A(1) .GE. 0.0 .AND. ABS( A(1)) .LT. XMIN ) A(1) = XMIN IF ( A(1) .LT. 0.0 .AND. ABS( A(1)) .LT. XMIN ) A(1) = -XMIN X(IN1) = X(IN1)/A(1) GO TO 470 440 CONTINUE IF ( DA(1) .GE. 0.0D0 .AND. DABS(DA(1)).LT. DXMIN) DA(1) = DXMIN IF ( DA(1) .LT. 0.0D0 .AND. DABS(DA(1)).LT. DXMIN) DA(1) = -DXMIN DX(IN1) = DX(IN1)/DA(1) 470 GO TO 490 C C SUBTRACT OFF REMAINING TERMS C 480 IF (I .GT. J) GO TO 410 490 IF (EOL) 590,500,590 500 CALL ZNTPKI I = NROW - II + 1 510 IN1 = I IN2 = J IF (I .LT. J) GO TO 530 K = IN1 IN1 = IN2 - IOFF IN2 = K 530 GO TO (540,550), IPREC 540 X(IN1) = X(IN1) - A(1)*X(IN2) GO TO 580 550 DX(IN1) = DX(IN1) - DX(IN2)*DA(1) 580 IN1 = IN1 + NROW IN2 = IN2 + NROW GO TO 480 590 J = J - 1 IF (J .GT. 0) GO TO 390 C END OF BACKWARD SUBSTITUTION, NEGATE TERMS AND RETURN GO TO (600,620), IPREC 600 DO 610 K = 1, NROW X(K) = -X(K) 610 CONTINUE GO TO 700 620 DO 630 K = 1, NROW DX(K) = -DX(K) 630 CONTINUE 700 CONTINUE CALL CLOSE ( FILEU, REW ) RETURN C C ATTEMPT TO OPERATE ON SINGULAR MATRIX C 400 PARM(1) = -5 CALL MESAGE (PARM(1),PARM(2),PARM(3)) 650 CALL MESAGE ( -5 ,PARM(2),PARM(3)) RETURN END ================================================ FILE: mis/detm.f ================================================ SUBROUTINE DETM DOUBLE PRECISION P,DETX,PS1,DET1 INTEGER PREC,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7 INTEGER NAME(2) COMMON /DETMX/P(4),DETX(4),PS1(4),DET1(4),N2EV,IPSAV,IPS,IDET, 1 IPDETA,PREC,NSTART,NDCMP,IC, NSMOVE,ITERM,IS,ND,IADD,SML1, 2 IPDETX(4),IPDET1(4), IFAIL,K,FACT1,IFFND,NFAIL 3, NPOLE,ISNG COMMON /REGEAN/ IM(7),IK(7),IEV(7),SCR1,SCR2,SCR3,SCR4,SCR5,LCORE 1 , RMAX,RMIN,MZ,NEV,EPSI,RMINR,NE,NIT,NEVM,SCR6,SCR7 2 ,NFOUND,LAMA DATA NAME/4HDETE,4HRM / C C RMAX = APPROXIMATE MAGNITUDE OF LARGEST EIGENVALUE OF INTEREST C C RMIN = LOWEST NON-ZERO EIGENVALUE C C MZ = NUMBER OF ZERO EIGENVALUES C C NEV = NUMBER OF NON-ZERO EIGENVALUES IN RANGE OF INTEREST C C EPSI = CONVERGENCE CRITERION C C RMINR = LOWEST EIGENVALUE OF INTEREST C C NE = NUMBER OF PERMISSIBLE CHANGES OF EPSI C C NIT = INTERATIONS TO AN EIGENVALUE C C NEVM = MAXIMUM NUMBER OF EIGENVALUES DESIRED C C IS = STARTING SET COUNTER C C IC = COUNTER FOR CHANGE OF CONVERGENCE CRITERIA C C NFOUND = THE NUMBER OF EIGENVALUES FOUND TO DATA C C IM = MASS MATRIX CONTROL BLOCK C C IK = K MATRIX CONTROL BLOCK C C A = M +P*K C C IEV = EIGENVECTOR CONTROL BLOCK C NSTART =0 LCORE=0 NDCMP = 0 NSMOVE =0 NPOLE =0 ITERM = 1 IFFND = 0 NFAIL =0 C***** PREC = IK(5) C***** ISCR7 = SCR7 IF(MZ .GT. NEVM) GO TO 40 IF (IM(1) .GT. 0) GO TO 5 C C MASS MATRIX PURGED -- ASSUME IDENTITY C IM(1) = IK(1) CALL RDTRL(IM(1)) IM(4) =8 5 CONTINUE CALL DETM1(*60) 10 CALL KLOCK(ITIME1) CALL DETM3(*30,*40,*11) NFOUND = NFOUND+1 CALL FDVECT(SML1,P(3)) IDONE=NFOUND+1 IF(MZ .GT. 0) IDONE=IDONE+MZ CALL DETM4 IF(IDONE .GT. NEVM) GO TO 50 CALL KLOCK(ITIME2) CALL TMTOGO(ITLEFT) IF(2*(ITIME2-ITIME1) .LE. ITLEFT) GO TO 10 C C INSUFFICIENT TIME TO FIND ANOTHER E. V. C 11 CONTINUE CALL MESAGE(45,NEVM-IDONE,NAME) ITERM = 3 GO TO 50 20 RETURN 30 CALL DETM2 GO TO 10 40 ITERM = 2 50 SCR7 = ISCR7 CALL DETM5 GO TO 20 C C SINGULAR MATRIX EVERYWHERE C 60 ITERM = 4 GO TO 50 END ================================================ FILE: mis/detm1.f ================================================ SUBROUTINE DETM1(*) C C RMAX = APPROXIMATE MAGNITUDE OF LARGEST EIGENVALUE OF INTEREST C C RMIN = LOWEST NON-ZERO EIGENVALUE C C MZ = NUMBER OF ZERO EIGENVALUES C C NEV = NUMBER OF NON-ZERO EIGENVALUES IN RANGE OF INTEREST C C EPSI = CONVERGENCE CRITERION C C RMINR = LOWEST EIGENVALUE OF INTEREST C C NE = NUMBER OF PERMISSIBLE CHANGES OF EPSI C C NIT = INTERATIONS TO AN EIGENVALUE C C NEVM = MAXIMUM NUMBER OF EIGENVALUES DESIRED C C IS = STARTING SET COUNTER C C IC = COUNTER FOR CHANGE OF CONVERGENCE CRITERIA C C NFOUND = THE NUMBER OF EIGENVALUES FOUND TO DATA C NSTART = NUMBER OF TIMES THROUGH THE STARTING VALUES C C C IM = MASS MATRIX CONTROL BLOCK C C IK = K MATRIX CONTROL BLOCK C C A = M +P*K C C IEV = EIGENVECTOR CONTROL BLOCK C DOUBLE PRECISION P,DETX,PS1,DET1,PSAVE(1),DET(1),PS(1),FACT DOUBLE PRECISION F1, F2, X, Y, RATIO C INTEGER PREC,U2,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,NAME(2) C DIMENSION IPDET(1) C COMMON /DETMX/P(4),DETX(4),PS1(4),DET1(4),N2EV,IPSAV,IPS,IDET, 1IPDETA,PREC,NSTART,U2,IC,L1,L2,IS,ND,IADD,SML1,IPDETX(4),IPDET1(4) 2 ,IFAIL,K,FACT1,IFFND,NFAIL,NPOLE,ISNG COMMON /REGEAN/ IM(7),IK(7),IEV(7),SCR1,SCR2,SCR3,SCR4,SCR5,LCORE 1 , RMAX,RMIN,MZ,NEV,EPSI,RMINR,NE,NIT,NEVM,SCR6,SCR7 2 ,NFOUND,LAMA COMMON /ZZZZZZ/PSAVE C EQUIVALENCE (PSAVE(1),PS(1),DET(1),IPDET(1)) C DATA NAME/4HDETM,4H1 / C C ---------------------------------------------------------------------- C IC = 0 C C CALCULATE THE NUMBER OF STARTING POINTS TO BE USED C N2EV = 2*NEV NN = N2EV SRRMIN = SQRT (RMIN) SRRMAX = SQRT (RMAX) FACT = (SRRMAX - SRRMIN)/N2EV F1 = SRRMIN I = 0 120 I = I + 1 F2 = F1 + FACT X = DLOG10 (F2/F1) IF (X.LT.1.0D0) GO TO 140 IX = X Y = IX IF (X.NE.Y) IX = IX + 1 N2EV = N2EV + IX - 1 F1 = F2 140 IF (I.LT.NN) GO TO 120 C C CHECK AVAILABILITY OF CORE C LC = 2*(KORSZ(PSAVE)/2) IPSAV = LC/2-NEVM IPS = IPSAV -N2EV-1 IDET = IPS-N2EV-1 IPDETA = 2*IDET -N2EV-2 IF(IPDETA .LE. 0) GO TO 80 LCORE = LC-IPDETA+1 C C COMPUTE THE STARTING POINTS C NN = IPS + 1 PS(NN) = RMIN F1 = SRRMIN I = 0 160 F2 = F1 + FACT RATIO = F2/F1 X = DLOG10 (RATIO) IF (X.LT.1.0D0) GO TO 200 IX = X Y = IX IF (X.NE.Y) IX = IX + 1 RATIO = RATIO**(1.0D0/IX) N = 0 180 N = N + 1 I = I + 1 NN = NN + 1 PS(NN) = PS(NN-1)*RATIO*RATIO IF (N.LT.IX) GO TO 180 GO TO 220 200 I = I + 1 NN = NN + 1 PS(NN) = F2**2 220 F1 = F2 IF (I.LT.N2EV) GO TO 160 IS=1 ND=3 IADD=0 ISNG = 0 RMAX = 1.05*RMAX FACT1 = EPSI*SQRT(RMAX) C C CALCULATE DETERMINANTE OF FIRST 3 STARTING VALUES C ENTRY DETM2 IF(NSTART .NE. 0) GO TO 40 DO 30 N = 1, ND NN = N+IADD NNP = NN+IPS NND = NN+IDET NNI = NN+IPDETA CALL EADD(-PS(NNP),PREC) CALL DETDET(DET(NND),IPDET(NNI),PS(NNP),SML1,0.0D0,1) 30 CONTINUE IF(ND.EQ.3.AND.ISNG.EQ.3)RETURN 1 IF(IS .EQ. 1) IADD=2 ND = 1 C C CALCULATE THE INITAL GUESS C C C PERMUT VALUES TO ORDER BY DETERMINANT C 40 DO 50 N=1,3 NS = N-1+IS NND = NS+IDET NNI = NS+IPDETA NNP = NS+IPS DET1(N) = DET(NND) IPDET1(N) = IPDET(NNI) PS1(N) = PS(NNP) 50 CONTINUE RETURN 80 CALL MESAGE (-8, 0, NAME) RETURN END ================================================ FILE: mis/detm3.f ================================================ SUBROUTINE DETM3 (*,*,*) C C RMAX = APPROXIMATE MAGNITUDE OF LARGEST EIGENVALUE OF INTEREST C RMIN = LOWEST NON-ZERO EIGENVALUE C MZ = NUMBER OF ZERO EIGENVALUES C NEV = NUMBER OF NON-ZERO EIGENVALUES IN RANGE OF INTEREST C EPSI = CONVERGENCE CRITERION C C NEVM = MAXIMUM NUMBER OF EIGENVALUES DESIRED C IS = STARTING SET COUNTER C IC = COUNTER FOR CHANGE OF CONVERGENCE CRITERIA C NFOUND = THE NUMBER OF EIGENVALUES FOUND TO DATA C IM = MASS MATRIX CONTROL BLOCK C IK = K MATRIX CONTROL BLOCK C IEV = EIGENVECTOR CONTROL BLOCK C C A = M + P*K C INTEGER PREC,U2,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7 DOUBLE PRECISION P,DETX,PS1,DET1,PSAVE(1),DET(1),PS(1),AA,HK1,HK, 1 LAMDAK,DELTAK,GK,ROOT,ROOT1,LAMDK1,A,XLAMSV,PTRY, 2 DETRY,SRP,H1,H2,H3,GK1,HKP1,T1,T2,DIST,DSAVE, 3 TEMP2 DIMENSION IPDET(1) COMMON /DETMX / P(4),DETX(4),PS1(4),DET1(4),N2EV,IPSAV,IPS,IDET, 1 IPDETA,PREC,NSTART,U2,IC,L1,L2,IS,ND,IADD,SML1, 2 IPDETX(4),IPDET1(4),IFAIL,K,FACT1,IFFND,NFAIL, 3 NPOLE COMMON /REGEAN/ IM(7),IK(7),IEV(7),SCR1,SCR2,SCR3,SCR4,SCR5, 1 LCORE,RMAX,RMIN,MZ,NEV,EPSI,RMINR,NE,NIT,NEVM, 2 SCR6,SCR7,NFOUND,LAMA COMMON /ZZZZZZ/ PSAVE EQUIVALENCE (PSAVE(1),PS(1),DET(1),IPDET(1)) C CALL ARRM (PS1,DET1,IPDET1) AA = PS1(3) - PS1(2) DSAVE = 1.0E38 C C COPY INTO INTERATION BLOCK C DO 30 N = 1,3 DETX(N) = DET1(N) P(N) = PS1(N) 30 IPDETX(N) = IPDET1(N) C C START INTERATION LOOP C K = 1 IGOTO = 1 40 HK1 = P(2) - P(1) HK = P(3) - P(2) LAMDAK= HK/HK1 IF (DABS(HK) .LE. DABS(EPSI*100.0*P(3))) GO TO 240 C C CHECK FOR EARLY CONVERGENCE C DELTAK = 1.0D0 + LAMDAK C C COMPUTE GK C CALL SUMM (T1,IT1,DETX(1)*LAMDAK*LAMDAK,IPDETX,DETX(2)*DELTAK* 1 DELTAK,IPDETX(2),-1) CALL SUMM (GK,IGK,T1,IT1,DETX(3)*(LAMDAK+DELTAK),IPDETX(3),1) C C COMPUTE ROOT1 C CALL SUMM (T1,IT1,DETX(1)*LAMDAK,IPDETX(1),DETX(2)*DELTAK, 1 IPDETX(2),-1) CALL SUMM (T2,IT2,T1,IT1,DETX(3),IPDETX(3),1) CALL SUMM (ROOT1,IROOT1,GK*GK,2*IGK,-4.0*DELTAK*LAMDAK*DETX(3)*T2, 1 IPDETX(3)+IT2,1) C C COMPUTE ROOT = DSQRT (ROOT1) C CALL SQRTM (ROOT,IROOT,ROOT1,IROOT1) A = -2.0*DETX(3)*DELTAK GK1 = GK DO 90 N = 1,2 IF (ROOT1 .LT. 0.0) GO TO 50 TEMP2 = ROOT IF (GK1 .NE. 0.0D0) TEMP2 = DSIGN(ROOT,GK1) C CALL SUMM (T1,IT1,GK,IGK,TEMP2,IROOT,1) C LAMDK1 = A/T1 ILMK = IPDETX(3) - IT1 LAMDK1 = LAMDK1*10.0**ILMK GO TO 60 C C T1= GK*GK + DABS(ROOT1) C 50 CALL SUMM (T1,IT1,GK*GK,IGK+IGK,DABS(ROOT1),IROOT1,1) LAMDK1 = A*GK/T1 ILMK = IPDETX(3) + IGK - IT1 LAMDK1 = LAMDK1*10.0**ILMK GO TO 100 60 IF (K .NE. 1) GO TO 100 C C IF (K .EQ. 1) RECALC LK1 TO MINIMIZE DIST C DIST = 0.0D0 DO 70 I = 1,3 DIST = DABS(PS1(I)-PS1(3)-LAMDK1*AA) + DIST 70 CONTINUE IF (DIST .GE. DSAVE) GO TO 80 DSAVE = DIST XLAMSV = LAMDK1 80 GK1 = -GK1 90 CONTINUE LAMDK1 = XLAMSV 100 HKP1 = LAMDK1*HK PTRY = P(3) + HKP1 C C RANGE CHECKS C IF (PTRY .GT. RMAX) GO TO 120 IF (IS .EQ. N2EV-1) GO TO 110 NNP = IS + IPS IF (PTRY .GT. 0.45*PS(NNP+2)+0.55*PS(NNP+3)) GO TO 120 110 IF (PTRY .LT. RMINR) GO TO 111 GO TO 140 C C INCREASE POLE AT LOWEST E. V. GEOMETRICALLY C 111 NPOLE1 = NPOLE + 1 NPOLE = 2*NPOLE + 1 C C SWEEP PREVIOUSLY EVALUATED STARTING POINTS BY POLES C N2EV2 = ND + IADD DO 113 N = 1,N2EV2 NND = N + IDET NNP = N + IPS NNI = N + IPDETA PTRY = 1.0D0 IPTRY = 0 DO 112 I = 1,NPOLE1 PTRY = PTRY*(PS(NNP)-RMINR) CALL DETM6 (PTRY,IPTRY) 112 CONTINUE DET(NND) = DET(NND)/PTRY IPDET(NNI) = IPDET(NNI) - IPTRY CALL DETM6 (DET(NND),IPDET(NNI)) 113 CONTINUE GO TO 120 C C NEW STARTING SET C 120 IFAIL = 0 119 IS = IS + 1 IF (IS .GE. N2EV) GO TO 130 IF (NSTART .EQ. 0) IADD = IADD + 1 RETURN 1 C C LOOK AT OLD STARTING SETS AGAIN C 130 IF (IFFND .NE. 1) RETURN 2 IFFND = 0 IS = 1 NSTART = NSTART + 1 RETURN 1 C C TRY FOR CONVERGENCE C 140 CALL TMTOGO (IPTRY) IF (IPTRY .LE. 0) RETURN 3 CALL EADD (-PTRY,PREC) CALL DETDET (DETRY,IPTRY,PTRY,SML1,DETX(3),IPDETX(3)) IF (DETRY .NE. 0.0D0) GO TO 145 IGOTO = 2 GO TO 180 C C BEGIN CONVERGENCE TESTS C 145 IF (K .LE. 2) GO TO 170 SRP = DSQRT(DABS(P(3))) H1 = DABS(HK1)/SRP H2 = DABS(HK)/SRP H3 = DABS(HKP1)/SRP 150 FACT1 = EPSI*SQRT(RMAX) IF (H1 .GT. 2.E7*FACT1) GO TO 200 IF (H2 .GT. 2.E4*FACT1) GO TO 200 IF (H3 .GT. H2) GO TO 160 IF (H3 .GT. 2.*FACT1) GO TO 200 IGOTO = 2 GO TO 180 160 IF (H2 .GT. 20.*FACT1) GO TO 200 IGOTO = 2 GO TO 180 C C INTERATE AGAIN C 170 K = K + 1 180 DO 190 I = 1,2 P(I) = P(I+1) IPDETX(I) = IPDETX(I+1) 190 DETX(I) = DETX(I+1) IPDETX(3) = IPTRY DETX(3) = DETRY P(3) = PTRY GO TO (40,240), IGOTO C C FAIL TEST C 200 K = K + 1 IF (K-NIT) 180,210,220 210 IF (IFAIL.EQ.1 .AND. IC.LT.NE) GO TO 230 220 IFAIL = 1 NFAIL = NFAIL + 1 GO TO 119 230 EPSI = 10.0*EPSI IC = IC + 1 GO TO 150 C C ACCEPT PK C 240 IFFND = 1 RETURN END ================================================ FILE: mis/detm4.f ================================================ SUBROUTINE DETM4 DOUBLE PRECISION P,DETX,PS1,DET1,PSAVE(1),DET(1),PS(1) INTEGER PREC,U1,U2,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7 DIMENSION IPDET(1) COMMON /DETMX/P(4),DETX(4),PS1(4),DET1(4),N2EV,IPSAV,IPS,IDET, 1 IPDETA,PREC, U1,U2,IC,NSMOVE,L2,IS,ND, IADD,SML1,IPDETX(4), 2 IPDET1(4), IFAIL,K,FACT1 COMMON /REGEAN/ IM(7),IK(7),IEV(7),SCR1,SCR2,SCR3,SCR4,SCR5,LCORE 1 , RMAX,RMIN,MZ,NEV,EPSI,RMINR,NE,NIT,NEVM,SCR6,SCR7 2 ,NFOUND,LAMA COMMON /ZZZZZZ/PSAVE EQUIVALENCE (PSAVE(1),PS(1),DET(1),IPDET(1)) C C RMAX = APPROXIMATE MAGNITUDE OF LARGEST EIGENVALUE OF INTEREST C C RMIN = LOWEST NON-ZERO EIGENVALUE C C MZ = NUMBER OF ZERO EIGENVALUES C C NEV = NUMBER OF NON-ZERO EIGENVALUES IN RANGE OF INTEREST C C EPSI = CONVERGENCE CRITERION C C RMINR = LOWEST EIGENVALUE OF INTEREST C C NE = NUMBER OF PERMISSIBLE CHANGES OF EPSI C C NIT = INTERATIONS TO AN EIGENVALUE C C NEVM = MAXIMUM NUMBER OF EIGENVALUES DESIRED C C IS = STARTING SET COUNTER C C IC = COUNTER FOR CHANGE OF CONVERGENCE CRITERIA C C NFOUND = THE NUMBER OF EIGENVALUES FOUND TO DATA C C NSMOVE = THE NUMBER OF TIMES THE STATTING POINTS HAVE BEEN MOVED C C IM = MASS MATRIX CONTROL BLOCK C C IK = K MATRIX CONTROL BLOCK C C A = M +P*K C C IEV = EIGENVECTOR CONTROL BLOCK C NN = IPSAV+NFOUND PSAVE(NN) = P(3) EPS1 = FACT1*DSQRT(DABS(P(3))) DO 40 N=1,3 NN = N + IADD -2 NNP = NN+IPS IF(DABS(PS(NNP)-P(3)) .GE. 400.*EPS1) GO TO 40 10 PS(NNP) = PS(NNP) +2.E3*EPS1 NSMOVE = NSMOVE+1 IF(NFOUND .EQ. 1) GO TO 30 NFND = NFOUND-1 DO 20 I=1,NFND NNZ = IPSAV+I IF(DABS(PS(NNP)-PSAVE(NNZ)) .GT. 400.*EPS1) GO TO 20 GO TO 10 20 CONTINUE 30 NND = NN+IDET NNI = NN+IPDETA CALL EADD(-PS(NNP),PREC) CALL DETDET(DET(NND),IPDET(NNI),PS(NNP),SML1,0.0D0,1) 40 CONTINUE N2EV2 = IADD + ND DO 50 I=1,N2EV2 NND = I+IDET NNP = I+IPS NNI = I+IPDETA DET(NND) = DET(NND)/(PS(NNP)-P(3)) CALL DETM6(DET(NND),IPDET(NNI)) 50 CONTINUE DO 60 I=1,3 60 DET1(I) = DET1(I)/(PS1(I)-P(3)) RETURN END ================================================ FILE: mis/detm5.f ================================================ SUBROUTINE DETM5 C C WRITES EIGENVALUE SUMMARY FOR DETERMINANT METHOD C DOUBLE PRECISION PSAVE(1),DET(1), PS(1) INTEGER IPDET(8),SYSBUF DIMENSION CORE(5) C COMMON /CONDAS/ CONSTS(5) COMMON /DETMX/ P(32),N2EV,IPSAV,IPS,IDET,IPDETA,PREC,NSTART, 1 NDCMP,IC,NSMOVE,ITERM,IS,ND,IADD,SML1,IPDETX(4),IPDET1(4), 2 IFAIL,K,FACT1,IFFND,NFAIL COMMON /REGEAN/ IM(26),LCORE,RMAX,RMIN,MZ, NEV, EPSI, RMINR, NE, 1 NIT, NEVM, SCR6, IPOUT, NFOUND, LAMA COMMON /ZZZZZZ/ PSAVE COMMON /SYSTEM/SYSBUF C EQUIVALENCE (PSAVE(1),PS(1),DET(1),IPDET(1),CORE(1)) EQUIVALENCE ( CONSTS(2) , TPHI ) C C ---------------------------------------------------------------------- C NZ = KORSZ(PSAVE) -LCORE-SYSBUF CALL GOPEN(IPOUT,IPDET(NZ+1),1) IPDET(1) = 1 IPDET(2) = NFOUND IF(MZ .GT. 0) IPDET(2) = IPDET(2) +MZ IPDET(3) = NSTART IPDET(4) = IC IPDET(5) = NSMOVE IPDET(6) = NDCMP IPDET(7) = NFAIL IPDET(8) = ITERM DO 10 I=9,12 10 IPDET(I) = 0 CALL WRITE(IPOUT,IPDET(1),12,0) IF(NDCMP .EQ. 0) GO TO 61 N2EV2 = IADD+ND DO 60 I=1,N2EV2 NND = I+IDET NNP = I+IPS NNI = I+IPDETA C C PUT UUT STRRTING POINT SUMMARY C IPDET(1) = I CORE(2) = PSAVE(NNP) CORE(3) = SQRT(ABS(CORE(2))) CORE(4) = CORE(3)/TPHI CORE(5) = PSAVE(NND) IPDET(6) = IPDET(NNI) C C SCALE DETERMINANTE FOR PRETTY PRINT C IF(CORE(5) .EQ. 0.0) GO TO 50 20 IF(ABS(CORE(5)) .GE. 10.0) GO TO 40 30 IF(ABS(CORE(5)) .GE. 1.0) GO TO 50 CORE(5) = CORE(5)*10.0 IPDET(6) = IPDET(6)-1 GO TO 30 40 CORE(5) = CORE(5)*0.1 IPDET(6) = IPDET(6)+1 GO TO 20 50 CALL WRITE(IPOUT,CORE(1),6,0) 60 CONTINUE 61 CONTINUE CALL WRITE(IPOUT,CORE(1),0,1) CALL CLOSE(IPOUT,1) RETURN END ================================================ FILE: mis/dfbs.f ================================================ SUBROUTINE DFBS C C FBS L,U,B/X/V,Y,ISYM=0/V,Y,KSIGN=1/V,Y,IPREC=0/V,Y,ITYPE=0 $ C C ISYM = 1 USE FBS C = -1 USE GFBS C = 0 CHOOSE WHICH BASED ON SUPPLIED INPUT C KSIGN = 1, SOLVE LUX= B C -1, LUX=-B C IPREC = REQUESTED PRECISION - DEFAULT BASED ON INPUT OR SYSTEM(55) C ITYPE = REQUESTED TYPE OF X - DEFAULT IS LOGICAL CHOICE ON INPUT C C REVISED 12/91 BY G.CHAN/UNISYS C FATAL ERROR IN FBS (NOT GFBS) IF INPUT MATRIX IS NOT A LOWER C TRIANGULAR FACTOR C INTEGER L,U,B,X,SBNM(2),DOSI(3),REFUS(3),OUTPT,SCR DIMENSION ZZ(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /BLANK / ISYM, KSIGN, IPREC, ITYPE COMMON /SYSTEM/ KSYSTM(65) COMMON /FBSX / IL(7),IU(7),IB(7),IX(7),INX,IP1,IS1,ISCR COMMON /GFBSX / JL(7),JU(7),JB(7),JX(7),JNX,JP1,JS1 CZZ COMMON /ZZDFB1/ Z(1) COMMON /ZZZZZZ/ Z(20000) CZZ COMMON /ZZDFB2/ ZZ(1) EQUIVALENCE (ZZ(1),Z(1)) EQUIVALENCE (KSYSTM(55),KPREC),(KSYSTM(2),OUTPT) DATA L, U, B, X, SCR / 101,102,103,201,301 / DATA SBNM / 4HDFBS,1H / DATA DOSI / 4HSING, 4HDOUB, 4HMLTP/, REFUS / 2*3H ,3HREF/ C C JU(1) = U CALL RDTRL (JU) 10 IF (ISYM) 150,20,30 20 ISYM = -1 IF (JU(1) .LT. 0) ISYM = 1 GO TO 10 C C SET UP CALL TO FBS C 30 NOGO = 0 IL(1) = L CALL RDTRL (IL) IF (IL(1) .GT. 0) GO TO 40 CALL MESAGE (30,198,L) NOGO = 1 40 CONTINUE IF (IL(4) .NE. 4) GO TO 100 N = IL(2) IB(1) = B CALL RDTRL (IB) IF (NOGO .EQ. 0) GO TO 50 CALL MESAGE (-30,199,SBNM) 50 CONTINUE INX = KORSZ(Z) IPREC1= MAX0(IL(5),IB(5),IU(5)) IF (IPREC1 .GT. 2) IPREC1 = IPREC1 - 2 IF (IPREC1.LT.1 .OR. IPREC1.GT.2) IPREC1 = KPREC IF (IPREC.EQ.IPREC1 .OR. IPREC.EQ.0) GO TO 70 IF (IPREC.LT.1 .OR. IPREC.GT.2) IPREC = 3 WRITE (OUTPT,60) SWM,DOSI(IPREC),REFUS(IPREC),SBNM,DOSI(IPREC1) 60 FORMAT (A27,' 2163, REQUESTED ',A4,'LE PRECISION ',A3,' USED BY ', 1 2A4,2H. ,A4,'LE PRECISION IS LOGICAL CHOICE') IF (IPREC .NE. 3) IPREC1 = IPREC 70 IPREC = IPREC1 IP1 = IPREC1 IS1 = KSIGN LTYPE = IPREC1 IF (IL(5).EQ.3 .OR. IL(5).EQ.4 .OR. IU(5).EQ.3 .OR. IU(5).EQ.4 .OR CWKBR spr 93014 1 .IL(5).EQ.3 .OR. IL(5).EQ.4) LTYPE = IPREC1 + 2 1 .IB(5).EQ.3 .OR. IB(5).EQ.4) LTYPE = IPREC1 + 2 IF (ITYPE.EQ.0 .OR. ITYPE.EQ.LTYPE) GO TO 90 JJ = 1 IF (ITYPE.LT.1 .OR. ITYPE.GT.4) JJ = 3 WRITE (OUTPT,80) SWM,ITYPE,REFUS(JJ),SBNM,LTYPE 80 FORMAT (A27,' 2164, REQUESTED TYPE ',I4,2H, ,A3,' USED BY ',2A4, 1 '. TYPE ',I4,' IS LOGICAL CHOICE.') IF (JJ .NE. 3) LTYPE = ITYPE 90 ITYPE = LTYPE IX(5) = ITYPE IX(1) = X ISCR = SCR CALL FBS (Z,Z) IX(3) = N IX(4) = 2 IF (IX(3) .EQ. IX(2)) IX(4) = 1 CALL WRTTRL (IX) GO TO 200 C 100 CALL FNAME (IL(1),IL(2)) WRITE (OUTPT,110) IL(2),IL(3),IL(4) 110 FORMAT ('0*** INPUT MATRIX ',2A4,' TO FBS MODULE IS NOT A LOWER ', 1 'TRIANGULAR FACTOR. FORM =',I4) CALL ERRTRC ('DFBS ',110) GO TO 200 C C SET UP CALL TO GFBS C 150 JL(1) = L CALL RDTRL (JL) N = JL(2) JB(1) = B CALL RDTRL (JB) JNX = KORSZ(ZZ) IPREC1= MAX0(JL(5),JB(5),JU(5)) IF (IPREC1 .GT. 2) IPREC1 = IPREC1 - 2 IF (IPREC1.LT.1 .OR. IPREC1.GT.2) IPREC1 = KPREC IF (IPREC.EQ.IPREC1 .OR. IPREC.EQ.0) GO TO 160 IF (IPREC.LT.1 .OR. IPREC.GT.2) IPREC = 3 WRITE (OUTPT,60) SWM,DOSI(IPREC),REFUS(IPREC),SBNM,DOSI(IPREC1) IF (IPREC .NE. 3) IPREC1 = IPREC 160 IPREC = IPREC1 JP1 = IPREC1 JS1 = KSIGN JX(1) = X LTYPE = IPREC1 IF (JL(5).EQ.3 .OR. JL(5).EQ.4 .OR. JU(5).EQ.3 .OR. JU(5).EQ.4 .OR 1 .JL(5).EQ.3 .OR. JL(5).EQ.4) LTYPE = IPREC1 + 2 IF (ITYPE.EQ.0 .OR. ITYPE.EQ.LTYPE) GO TO 170 JJ = 1 IF (ITYPE.LT.1 .OR. ITYPE.GT.4) JJ = 3 WRITE (OUTPT,80) SWM,ITYPE,REFUS(JJ),SBNM,LTYPE IF (JJ .NE. 3) LTYPE = ITYPE 170 ITYPE = LTYPE JX(5) = ITYPE CALL GFBS (ZZ,ZZ) JX(3) = N JX(4) = 2 IF (JX(3) .EQ. JX(2)) JX(4) = 1 CALL WRTTRL (JX) C 200 RETURN END ================================================ FILE: mis/dgree.f ================================================ SUBROUTINE DGREE (NDSTK,NDEG,IOLD,IBW1,IPF1,NU) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C DGREE COMPUTES THE DEGREE OF EACH NODE IN NDSTK AND STORES C IT IN THE ARRAY NDEG. THE BANDWIDTH AND PROFILE FOR THE ORIGINAL C OR INPUT RENUMBERING OF THE GRAPH IS COMPUTED ALSO. C C COMPUTE MAXIMUM DEGREE MM AND STORE IN IDEG. C C INTEGER BUNPK DIMENSION NDSTK(1), NDEG(1), IOLD(1), NU(1) COMMON /BANDG / N, IDPTH, IDEG COMMON /BANDS / NN, MM C IBW1=0 IPF1=0 IDEG=MM MM=0 DO 100 I=1,N NDEG(I)=0 IRW=0 CALL BUNPAK(NDSTK,I,IDEG,NU) DO 80 J=1,IDEG ITST=NU(J) IF (ITST) 90,90,50 50 NDEG(I)=NDEG(I)+1 IDIF=IOLD(I)-IOLD(ITST) IF (IRW.LT.IDIF) IRW=IDIF MM=MAX0(MM,J) 80 CONTINUE 90 IPF1=IPF1+IRW IF (IRW.GT.IBW1) IBW1=IRW 100 CONTINUE IDEG=MM C C INCLUDE DIAGONAL TERMS IN BANDWIDTH AND PROFILE IBW1=IBW1+1 IPF1=IPF1+N RETURN END ================================================ FILE: mis/diag36.f ================================================ SUBROUTINE DIAG36 (Z,BUF,GPL,SIL,EQEXIN) C C THIS ROUTINE PRINTS THE INTERNAL-EXTERNAL-SIL NOS. OF THE GRID C POINTS AND SCALAR POINTS, AS REQUESTED BY DIAG 36 C INTEGER Z(2), BUF, GPL, SIL, EQEXIN, 1 FILE, NAM(2) COMMON /SYSTEM/ IBUF, L, DUMMY(6), NLPP COMMON /NAMES / RD, RDREW, SKIP(2), REW DATA NAM / 4HDIAG, 4H34 / C FILE = GPL Z(1) = GPL CALL RDTRL (Z(1)) N1 = Z(2) N2 = N1 + N1 N3 = N2 + N1 + 1 IF (N1 .LE. 0) GO TO 150 C N = 1 DO 10 I = 1,2 CALL OPEN (*150,FILE,Z(BUF),RDREW) CALL FWDREC (*160,FILE) CALL READ (*150,*170,FILE,Z(N),N1,1,J) CALL CLOSE (FILE,REW) FILE = SIL 10 N = N + N1 C C HERE WE HAVE, IN INTERNAL NUMBER ORDER, C Z( 1 THRU N1) = EXTERNAL NOS. C Z(N1+1 THRU N2) = SIL NOS. C NLPX = NLPP - 8 N = NLPX*3 DO 60 I = 1,N1,N CALL PAGE1 WRITE (L,30) 30 FORMAT (/46X,38HTABLE OF INTERNAL-EXTERNAL-SIL NUMBERS, 1 //10X,3(6X,30HINTERNAL EXTERNAL SIL ), 2 /10X,3(6X,3(10H-------- ))) IM1 = I - 1 DO 50 J = 1,NLPX J1 = IM1 + J J2 = J1 + NLPX J3 = J2 + NLPX IF (J3 .LE. N1) WRITE (L,40) 1 J1,Z(J1),Z(J1+N1), J2,Z(J2),Z(J2+N1), J3,Z(J3),Z(J3+N1) IF (J3.GT.N1 .AND. J2.LE.N1) WRITE (L,40) 1 J1,Z(J1),Z(J1+N1), J2,Z(J2),Z(J2+N1) IF (J2.GT.N1 .AND. J1.LE.N1) WRITE (L,40) J1,Z(J1),Z(J1+N1) 40 FORMAT (10X,3(4X,3I10,2X)) 50 CONTINUE 60 CONTINUE C CALL SSWTCH (20,J) IF (J .EQ. 0) RETURN C FILE = EQEXIN CALL OPEN (*150,FILE,Z(BUF),RDREW) CALL FWDREC (*160,FILE) CALL READ (*150,*170,FILE,Z( 1),N2,1,J) CALL READ (*150,*170,FILE,Z(N3),N2,1,J) CALL CLOSE (FILE,REW) I = N3 - 1 J = N2 K = N3 + N2 - 1 DO 70 N = 1,N1 Z(I ) = Z(K ) Z(I-1) = Z(J ) Z(I-2) = Z(J-1) I = I - 3 J = J - 2 70 K = K - 2 C C HERE WE HAVE AN ARRAY OF EXTERNAL-INTERNAL-CODED SIL. PRINT IT OUT C NLPX = NLPX*3 N = NLPX*3 N3 = N3 - 1 DO 100 I = 1,N3,N CALL PAGE1 WRITE (L,80) 80 FORMAT (/44X,44HTABLE OF EXTERNAL-INTERNAL-CODED SIL NUMBERS, 1 //10X,3(6X,30HEXTERNAL INTERNAL CODED SIL ), 2 /10X,3(5X,3(10H--------- ),1X)) IM1 = I - 1 DO 90 J = 1,NLPX,3 J1 = IM1 + J J2 = J1 + NLPX J3 = J2 + NLPX IF (J3 .LE. N3) WRITE (L,40) 1 Z(J1),Z(J1+1),Z(J1+2), Z(J2),Z(J2+1),Z(J2+2), 2 Z(J3),Z(J3+1),Z(J3+2) IF (J3.GT.N3 .AND. J2.LE.N3) WRITE (L,40) 1 Z(J1),Z(J1+1),Z(J1+2), Z(J2),Z(J2+1),Z(J2+2) IF (J2.GT.N3 .AND. J1.LE.N3) WRITE (L,40) Z(J1),Z(J1+1),Z(J1+2) 90 CONTINUE 100 CONTINUE C WRITE (L,110) 110 FORMAT (//10X,33H*** JOB TERMINATED BY DIAG 20 ***) CALL PEXIT C 150 N = -1 GO TO 180 160 N = -2 GO TO 180 170 N = -7 180 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/diagon.f ================================================ SUBROUTINE DIAGON C C DMAP FUNCTIONAL MODULE C C DIAGONAL A / B / V,Y,OPT=COLUMN / V,Y,POWER $ C C INPUT - A IS ANY MATRIX, EXCEPT RECTANGULAR AND ROW VECTOR C - OPT IS OUTPUT MATRIX TYPE V,Y FLAG C - POWER IS A VALUE TO WHICH THE REAL PART OF EACH ELEMENT C ON THE DIAGONAL OF A IS RAISED. (DEFAULT OF POWER IS 1.0) C OUTPUT - B IS A REAL SYMMETRIC MATRIX (OPT='SQUARE'), OR A COLUMN C VECTOR CONTAINING THE DIAGONAL OF A (OPT='COLUMN'), OR C A DIAGONAL MATRIX (OPT='DIAGONAL' C C WRITTEN BY R. MITCHELL, CODE 324, GSFC, DECEMBER 7,1972 C C LAST MODIFIED BY G.CHAN/UNISYS 11/1991 C TO MAKE SUERE 0.0**0 = 1.0, NOT 0.0 C INTEGER SYSBUF,COL,SQ,IA(7),IB(7),NAME(2),OPT(2) DOUBLE PRECISION D(2),DVAL(2),DCORE(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /UNPAKX/ ITYPEU,IU,JU,INCRU COMMON /ZNTPKX/ A(4),II,LAST COMMON /ZBLPKX/ VAL(4),JROW CZZ COMMON /ZZDIAG/ CORE(1) COMMON /ZZZZZZ/ CORE(20000) COMMON /SYSTEM/ KSYSTM(60) COMMON /BLANK / PARAM(3) EQUIVALENCE (KSYSTM(1),SYSBUF), (KSYSTM(2),NOUT), 1 (IA(2),INCOL), (IA(3),INROW), (IA(4),IFORM), 2 (IA(5),ITYPE), (A(1),D(1)), (VAL(1),DVAL(1)), 3 (PARAM(1),OPT(1)), (PARAM(3),POWER), 4 (CORE(1), DCORE(1)) DATA COL,SQ/ 4HCOLU,4HSQUA /, IN1,IOUT / 101,201 / DATA NAME / 4HDIAG,4HONAL / C C C CHECK FOR VALID PARAMETER. C IF (OPT(1).EQ.SQ .OR. OPT(1).EQ.COL .OR. OPT(1).EQ.NAME(1)) 1 GO TO 10 WRITE (NOUT,5) SWM,OPT 5 FORMAT (A27,' 3300, INVALID PARAMETER ',2A4, 1 ' SUPPLIED TO MODULE DIAGONAL, COLUMN SUBSTITUTED') OPT(1) = COL C C GET INFO ON INPUT MATRIX C 10 IA(1) = IN1 CALL RDTRL (IA) C C CHECK FOR PURGED INPUT. C IF (IA(1) .LT. 0) GO TO 210 C C CHECK FOR PROPER FORM OF MATRIX C GO TO (20,220,20,20,20,20,220,200), IFORM C C SET OUTPUT CONTROL BLOCK TO MATCH INPUT AND REQUESTS. C 20 IB4 = 6 IF (OPT(1) .EQ. COL) IB4 = 2 IF (OPT(1) .NE. NAME(1)) GO TO 25 IB4 = 3 OPT(1) = COL 25 IB5 = 1 IF (ITYPE.EQ.2 .OR. ITYPE.EQ.4) IB5 = 2 CALL MAKMCB (IB,IOUT,INROW,IB4,IB5) C C CHECK FOR SPECIAL CASES OF POWER PARAMETER. C C CHECK FOR 1.0 = NO ARITHMETIC REQUIRED. C IF (ABS(POWER-1.0)-1.0E-6) 30,30,40 30 IPOW = 1 GO TO 100 C C CHECK FOR 0.5 = SQUARE ROOT C 40 IF (ABS(POWER-0.5)-1.0E-6) 45,45,50 45 IPOW = 2 GO TO 100 C C CHECK FOR 2.0 = SQUARE C 50 IF (ABS(POWER-2.0)-1.0E-6) 55,55,60 55 IPOW = 3 GO TO 100 C C CHECK FOR 0.0 = IDENTITY MATRIX C 60 IF (POWER) 70,65,70 65 IPOW = 4 GO TO 100 C C GENERAL CASE C 70 IPOW = 5 C C DO OPEN CORE BOOKKEEPING C C OBTAIN LENGTH OF OPEN CORE C 100 LCORE = KORSZ(CORE) C C NEED ROOM FOR 2 GINO BUFFERS C IF (LCORE .LT. 2*SYSBUF) GO TO 230 C C IF INPUT MATRIX IS A DIAGONAL MATRIX, NEED ADDITIONAL C ROOM FOR A FULL COLUMN C IF (IFORM.EQ.3 .AND. 1 LCORE.LT.(2*SYSBUF + IB(5)*INROW + 1)) GO TO 230 IBUF = LCORE - SYSBUF + 1 C C OPEN INPUT FILE AND SKIP HEADER C CALL GOPEN (IA,CORE(IBUF),0) C C OPEN OUTPUT FILE AND WRITE HEADER C NPREC = IB(5) IBUF = IBUF - SYSBUF CALL GOPEN (IB,CORE(IBUF),1) C C PRIME PACK ROUTINE IF COLUMN OUTPUT C IF (OPT(1) .EQ. COL) CALL BLDPK (NPREC,NPREC,IOUT,0,0) C C READ INPUT MATRIX AND SEARCH COLUMNS FOR DIAGONAL ELEMENTS. C DO 180 NOWCOL = 1,INCOL C C CHECK IF THE INPUT MATRIX IS A DIAGONAL MATRIX (IFORM = 3) C IF (IFORM .NE. 3) GO TO 118 C C UNPACK THE FULL COLUMN OF THE INPUT DIAGONAL MATRIX C ITYPEU = NPREC IU = 1 JU = INROW INCRU = 1 CALL UNPACK (*105,IA,CORE) GO TO 110 105 JJU = NPREC*JU DO 108 I = 1,JJU CORE(I) = 0.0 108 CONTINUE IF (IPOW .NE. 4) GO TO 110 IF (NPREC .EQ. 1) CORE (NOWCOL) = 1.0 IF (NPREC .EQ. 2) DCORE(NOWCOL) = 1.0D0 110 II = 0 115 II = II + 1 A(1) = CORE(II) IF (NPREC .EQ. 2) D(1) = DCORE(II) IF (OPT(1) .EQ. SQ) CALL BLDPK (NPREC,NPREC,IOUT,0,0) GO TO 140 C C START A NEW COLUMN IF SYMMETRIC OUTPUT MATRIX. C 118 IF (OPT(1) .EQ. SQ) CALL BLDPK (NPREC,NPREC,IOUT,0,0) CWKBI 9/93 INULL = 0 C C START READING A COLUMN C C NOTE THAT NULL INPUT COLUMN RESULTS IN NULL OUTPUT ELEMENT ONLY C IF POWER IS NOT ZERO. C CALL INTPK (*120,IA,0,ITYPE,0) GO TO 130 120 IF (IPOW .NE. 4) GO TO 175 CWKBI 9/93 INULL = 1 VAL(2) = 0.0 DVAL(2) = 0.0D0 IF (NPREC .EQ. 1) VAL(1) = 1.0 IF (NPREC .EQ. 2) DVAL(1) = 1.0D0 II = NOWCOL GO TO 170 C C GET AN ELEMENT C 130 CALL ZNTPKI C C CHECK FOR DESIRED ELEMENT (ROW = COLUMN) C IF (II-NOWCOL) 132,140,135 C C CHECK FOR LAST NON-ZERO ELEMENT IN COLUMN. C 132 IF (LAST) 130,130,135 C C SET ELEMENT VALUE TO 0. IF NOT IN COLUMN C 135 VAL(1) = 0. DVAL(1) = 0.0D0 GO TO 170 C C PROCESS RETURNED VALUE. C C CHECK FOR PRECISION REQUIRED C 140 GO TO (150,160), NPREC C C SINGLE PRECISION PROCESSING OF REAL PART OF DIAGONAL ELEMENT C C PERFORM REQUESTED OPERATION C 150 GO TO (152,154,156,158,159), IPOW 152 VAL(1) = A(1) GO TO 170 154 VAL(1) = SQRT(A(1)) GO TO 170 156 VAL(1) = A(1)*A(1) GO TO 170 158 VAL(1) = 1.0 GO TO 170 159 VAL(1) = A(1)**POWER GO TO 170 C C DOUBLE PRECISION PROCESSING OF REAL PART OF DIAGONAL ELEMENT C C PERFORM REQUESTED OPERATION C 160 GO TO (162,164,166,168,169), IPOW 162 DVAL(1) = D(1) GO TO 170 164 DVAL(1) = DSQRT(D(1)) GO TO 170 166 DVAL(1) = D(1)*D(1) GO TO 170 168 DVAL(1) = 1.0D0 GO TO 170 169 DVAL(1) = D(1)**POWER C C PACK COMPUTED VALUE INTO OUTPUT MATRIX C 170 JROW = NOWCOL IF (IFORM .EQ. 3) JROW = II CALL ZBLPKI C C TEST FOR SPECIAL CASE OF DIAGONAL INPUT MATRIX (1 COLUMN). C IF (IFORM .EQ. 3) GO TO 175 C C SKIP REST OF INPUT COLUMN IF NOT ON LAST ELEMENT. C CWKBI 9/93 IF ( INULL .EQ. 1 ) GO TO 171 IF (LAST .EQ. 0) CALL SKPREC (IN1,1) CWKBI 9/93 171 CONTINUE C C TEST FOR SQUARE MATRIX CASE C FINISHED WITH COLUMN IF SQUARE MATRIX C 175 IF (OPT(1) .EQ. SQ) CALL BLDPKN (IOUT,0,IB) C C FINISHED WITH ONE OUTPUT ELEMENT. C IF (IFORM.EQ.3 .AND. II.LT.INROW) GO TO 115 180 CONTINUE C C FINISH PACKING VECTOR IF COLUMN OUTPUT OPTION. C IF (OPT(1) .EQ. COL) CALL BLDPKN (IOUT,0,IB) C C WRITE TRAILER IN FIAT. C CALL WRTTRL (IB) C C FINISHED WITH ALL OF MATRIX, CLOSE UNITS C CALL CLOSE(IN1,1) CALL CLOSE(IB ,1) 200 RETURN C C ERROR MESSAGES C 210 RETURN C C WRONG TYPE OF INPUT MATRIX = MSG.3016 C 220 NUMM = -16 GO TO 300 C C NOT ENOUGH CORE (MESSAGE 3008) C 230 NUMM = -8 GO TO 300 C 300 CALL MESAGE (NUMM,NUM,NAME) RETURN C END ================================================ FILE: mis/diam.f ================================================ SUBROUTINE DIAM (NC,MAXDEG,NL,NODESL,IDEM,MAXLEV,IG,IC,IDEG, 1 IDIS,IW,ICC,JG) C C DETERMINE NL STARTING POINTS AND STORE IN NODESL. C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C DIMENSION IG(1), IDIS(1), IW(1), ICC(1), IC(1), 1 JG(1), IDEG(1), NODESL(1) COMMON /BANDS / NN C NL = 0 MAXLEV = 600000 DO 100 I = 1,NN IF (NC-IC(I)) 100,40,100 40 IF (MAXDEG-IDEG(I)) 100,50,50 50 MD = IDIST(I,ML,MAXLEV,IG,IC,IDEG,IDIS,IW,ICC,JG) IF (MD) 120,120,60 60 IF (ML-MAXLEV) 70,80,100 70 MAXLEV = ML NL = 1 NODESL(1) = I GO TO 100 80 IF (NL .GE. IDEM) GO TO 100 NL = NL + 1 NODESL(NL) = I 100 CONTINUE RETURN C 120 ML = 1 NODESL(1) = I MAXLEV = 0 RETURN END ================================================ FILE: mis/dihex.f ================================================ SUBROUTINE DIHEX (TYPE) C C THIS ROUTINE PROCESSES IHEX1, IHEX2, AND IHEX3 ELEMENT DATA TO C PRODUCE THE DIFFERENTIAL STIFFNESS MATRIX C C TYPE = 1 IHEX1 C TYPE = 2 IHEX2 C TYPE = 3 IHEX3 C C THE EST ENTRIES ARE C C NAME ----------INDEX---------- DESCRIPTION C IHEX1 IHEX2 IHEX3 C C EID 1 1 1 ELEMENT ID NO. C SIL 2-9 2-21 2-33 SCALAR INDEX LIST C MID 10 22 34 MATERIAL ID NO. C CID 11 23 35 MATERIAL COORD. SYSTEM ID NO. C NIP 12 24 36 NO. INTEGRATION POINTS PER EDGE C MAXAR 13 25 37 MAX ASPECT RATIO C ALFA 14 26 38 MAX ANGLE FOR NORMALS C BETA 15 27 39 MAX ANGLE FOR MIDSIDE POINTS C BGPDT 16-47 28-107 40-167 BASIC GRID POINT DATA C GPT 48-55 108-127 168-199 GRID POINT TEMPERATURES C DEF 56 128 200 NOT USED C GPTLD 57-64 129-148 201-232 GRID POINT TEMPERATURE LOADS C UGV 65-88 149-208 233-328 GLOBAL DISPLACEMENT VECTOR C LOGICAL ANIS ,RECT ,TDEP ,DIAG , 1 MTDEP INTEGER HEAT ,EID ,SIL(1) ,IB(46) , 1 TYPE ,JZ(1) ,CID ,IEST(1) , 2 BCORD ,BGPDT ,GPT ,NC(8) , 4 UFM(6) ,ELNO(3) ,IWORK(1) ,OTPT REAL NU ,MAXAR ,DMAXAR(3) ,DALFA(3) , 1 DBETA(2) ,EVEC(3,12) ,WORK(66) ,VN(3,2) DOUBLE PRECISION SK ,SV ,Z(1) ,JACOB(3,3) , 1 DETJ ,S(4) ,H(4) ,GAUSS(8) , 2 SFACT ,PART(3,3) ,E1 ,E2 , 3 E3 ,TF(3,3) ,TK(3,3) ,SIG(6) , 4 SX ,SY ,SZ ,SXY , 5 SYZ ,SZX ,STR(18) ,C(3,3) DOUBLE PRECISION GMAT(36) ,STORE(18) ,DALPHA(6) DIMENSION IGRID(128) ,GRID(128) COMMON /MATIN/ MID ,INFLAG ,TEMP COMMON /MATOUT/ E ,G ,NU ,RHO , 1 TALPHA ,TREF ,CDAMP ,SPACE(18) , 3 MTDEP COMMON /MATISO/ BUFM6(46) COMMON /DS1AAA/ NPVT ,DUM6(6) ,I6X6K ,DUM12(12) , 1 JMAX ,DUM2(2) ,NROWSC COMMON /ZZZZZZ/ ZS(1) COMMON /DS1ADP/ ISIL(32) ,SK(6,6) ,WORK ,STR COMMON /DS1AET/ EST(328) COMMON /SYSTEM/ SYSBUF,OTPT,NOGO,SYS(6),MTEMP EQUIVALENCE (Z(1),JZ(1),ZS(1)) ,(EID,EST(1),IEST(1)) , 1 (SIL(1),EST(2)) ,(WORK(1),IWORK(1)) , 2 (SIG(1),SX) ,(SIG(2),SY) , 3 (SIG(3),SZ) ,(SIG(4),SXY) , 4 (SIG(5),SYZ) ,(SIG(6),SZX) EQUIVALENCE (WORK(1),EVEC(1,1)) ,(WORK(37),VN(1,1)) , 1 (WORK(43),NC(1)) EQUIVALENCE (WORK(1),JACOB(1,1)) ,(WORK(19),H(1)) , 1 (WORK(27),S(1)) ,(WORK(35),PART(1,1)) , 2 (WORK(53),SIG(1)) ,(WORK(1),C(1,1)) EQUIVALENCE (WORK(1),TF(1,1)) ,(WORK(35),TK(1,1)) EQUIVALENCE (IB(1),BUFM6(1)) ,(GRID(1),IGRID(1)) DATA KGG / 101 /, MGG / -1 / DATA DMAXAR, DALFA, DBETA / 5.0 ,10.0 ,15.0 , 2 45.0 ,45.0 ,45.0 , 3 45.0 ,45.0 / DATA DTOR , GAUSS / 0.017453292519943E0, 1 0.577350269189626D0, 2 0.555555555555556D0, 3 0.774596669241483D0, 4 0.888888888888889D0, 5 0.347854845137454D0, 6 0.861136311594053D0, 7 0.652145154862546D0, 8 0.339981043584856D0/ DATA UFM /4H0***,4H USE,4HR FA,4HTAL ,4HMESS,4HAGE / DATA IHEX , ELNO /4HIHEX,4H ELE,4HMENT,4H NO./ DATA NERR1 / 2141 / C HEAT = 0 C C FOR DOUBLE PRECISION, OPEN CORE POINTERS MUST BE MODIFIED C IZS = 1 + 2*(I6X6K + JMAX*NROWSC) NZS = IZS + 10655 IZ = IZS/2 + 1 NZ = NZS/2 + 1 IPREC = 2 C C ALLOCATE LARGE ARRAYS IN OPEN CORE C NGP = 12*TYPE - 4 DO 5 I = 1,NGP IF (SIL(I) .EQ. NPVT) GO TO 7 5 CONTINUE NOGO= 1 7 IGP = I IF (HEAT .EQ. 1) GO TO 30 NGG = 3*NGP IF (KGG .LE. 0) GO TO 10 IK = IZ + 3*NGG NK = IK - 1 + (NGG+1)*NGG/2 GO TO 20 10 IK = IZ NK = IK + 3*NGG - 1 IM = NK + 1 NM =(NGP+1)*NGP/2 + NK GO TO 40 20 NM = NK IF (MGG .LE. 0) GO TO 40 IM = NK + 1 NM = NK + (NGP+1)*NGP/2 GO TO 40 30 IK = IZ + 17 NK = IK - 1 + NGP**2 IM = NK + 1 NM = IM - 1 + NGP**2 NGG = NGP 40 IN = NM + 1 IG = IN + NGP IX = IG + 3*NGP ND = NM + 9*NGP ID = ND + 1 ND = ID + NGG - 1 IF (ND .LE. NZ) GO TO 100 WRITE (OTPT,7100) UFM,NERR1,IHEX,TYPE,ELNO,EID NOGO = 1 C C OPEN CORE MAP C ============= C C DOUBLE PRECISION Z(1) C COMMON /ZZZZZZ/ Z C C NGG = ORDER OF ELEMENT MATRIX C C INDEX STIFFNESS MASS HEAT C AND MASS ONLY TRANSFER C C IZ NGG BY 3 PARTITION NGG BY 3 PARTITION FOUR WORD COORDINATE C OF MATRIX OF MATRIX VECTOR. INPUT TO C TRANSD C C IZ+2 TRANSFORMED THERMAL C CONDUCTANCE MATRIX C C IT MATERIAL TRANSFOR- C MATION MATRIX C C IK SYMMETRIC HALF OF SAME AS IZ FULL CONDUCTANCE C STIFFNESS C C IM SYMMETRIC HALF OF SYMMETRIC HALF OF FULL CAPACITANCE C MASS MASS C C IN --------------------SHAPE FUNCTIONS------------------------- C C IG --------------------D(SHAPE)/D(GREEK)----------------------- C C IX --------------------D(SHAPE)/D(BASIC XYZ)------------------- C C ID DISPLACEMENT C VECTOR IN BASIC C COORDINATES C C C CHECK GEOMETRY. THE FOLLOWING CHECKS ARE MADE C 1. ASPECT RATIO C 2. ANGLES BETWEEN NORMALS OF SUB-TRIANGLES ON EACH FACE C 3. ANGLES BETWEEN VECTORS BETWEEN POINTS ALONG EACH EDGE C 4. REVERSE SEQUENCING C 5. DUPLICATE COORDINATE VALUES C C FETCH EPT DATA, COMPUTE EST POINTERS C 100 MID = 10 + 12*(TYPE-1) CID = IEST(MID+1) NIP = IEST(MID+2) MAXAR= EST(MID+3) ALFA = EST(MID+4) BETA = EST(MID+5) BGPDT= MID + 6 GPT = BGPDT + 4*NGP MID = IEST(MID) IF (NIP.LT.2 .OR. NIP.GT.4) NIP = TYPE/2 + 2 IF (MAXAR .LE. 0.0) MAXAR = DMAXAR(TYPE) IF (ALFA .LT. 0.0) ALFA = DALFA(TYPE) IF (BETA .LT. 0.0) BETA = DBETA(TYPE-1) ALFA = COS(DTOR*ALFA) BETA = COS(DTOR*BETA) C C TRANSFORM DISPLACEMENT VECTOR TO BASIC COORDINATES C DO 104 I = 1,NGP M = BGPDT + 4*I - 4 N = ID + 3*I - 3 J = GPT + 2*NGP + 3*(I-1) + 1 IF (IEST(M) .EQ. 0) GO TO 102 CALL TRANSD (EST(M) ,Z(IZ)) DO 101 L = 1,3 101 Z(IK+L-1) = DBLE(EST(J+L-1)*0.25) CALL GMMATD (Z(IZ),3,3,0,Z(IK),3,1,0,Z(N)) GO TO 104 102 DO 103 L = 1,3 103 Z(N+L-1) = DBLE(EST(J+L-1)*0.25) 104 CONTINUE C C REARRANGE BGPDT C DO 110 I = 1,NGP 110 IGRID(I) = IEST(BGPDT+4*I-4) BCORD = GPT - 3 DO 120 I = 2,NGP DO 120 J = 1,3 K = BGPDT + 4*(NGP-I) + 4 - J BCORD = BCORD - 1 EST(BCORD) = EST(K) 120 CONTINUE DO 130 I = 2,NGP 130 IEST(BGPDT+I-1) = IGRID(I) C C INITIALIZE FOR NUMERICAL INTEGRATION C C C ABSCISSAE AND WEIGHT COEFFICIENTS FOR GAUSSIAN QUADRATURE C I = NIP - 1 GO TO (510,520,530), I 510 H(1) = 1.0 S(1) = GAUSS(1) H(2) = 1.0 S(2) =-GAUSS(1) GO TO 540 520 H(1) = GAUSS(2) S(1) = GAUSS(3) H(2) = GAUSS(4) S(2) = 0.0 H(3) = GAUSS(2) S(3) =-GAUSS(3) GO TO 540 530 H(1) = GAUSS(5) S(1) = GAUSS(6) H(2) = GAUSS(7) S(2) = GAUSS(8) H(3) = GAUSS(7) S(3) =-GAUSS(8) H(4) = GAUSS(5) S(4) =-GAUSS(6) C C GENERATE TABLE OF EQUIVALENTS IN SIL ARRAY SO MATRIX WILL BE C ORDERED ACCORDING TO INCREASING SIL NUMBERS C 540 DO 550 I = 1,NGP ISIL(I) = SIL(I) 550 SIL(I) = I C C NOW SIL(I) = PARTITION NUMBER OF ELEMENT GRID POINT I C C ZERO OUT OPEN CORE FOR MATRIX SUMMATION C DO 580 I = IK,NM 580 Z(I) = 0.0 C C FETCH MATERIAL PROPERTIES C C THIS SECTION OF CODE MUST BE UPDATED WHEN GENERAL ANISOTROPIC C MATERIAL IS ADDED. C C TEST FOR ANISOTROPIC MATERIAL C ANIS = .FALSE. C C TEST FOR RECTANGULAR COORDINATE SYSTEM IN WHICH THE ANISOTROPIC C MATERIAL IS DEFINED C RECT = .TRUE. C C CHECK FOR TEMPERATURE DEPENDENCE C TDEP = .TRUE. DO 610 I = 2,NGP IF (EST(GPT) .NE. EST(GPT+I-1)) GO TO 630 610 CONTINUE TDEP = .FALSE. 630 TEMP = EST(GPT) INFLAG = 10 CALL MAT (EID) IF (.NOT.MTDEP) TDEP = .FALSE. IF (IB(46) .EQ. 6) ANIS = .TRUE. TREF = BUFM6(44) C IF (KGG .LE. 0) GO TO 1000 C C IF ISOTROPIC, TEMPERATURE INDEPENDENT MATERIAL, COMPUTE CONSTANTS C IF (TDEP) GO TO 1000 IF (ANIS) GO TO 800 IF (IB(46) .NE. 0) GO TO 640 WRITE (OTPT,7300) UFM,MID,EID NOGO = 1 RETURN C 640 E1 = BUFM6(1) E2 = BUFM6(2) E3 = BUFM6(22) TALPHA = BUFM6(38) GO TO 1000 C C IF MATERIAL IS ANISOTROPIC, DEFINED IN A RECTANGULAR COORDINATE C SYSTEM, AND NOT TEMPERATURE DEPENDENT, TRANSFORM IT TO BASIC C SYSTEM C 800 DO 810 IJK = 1,36 810 GMAT(IJK) = BUFM6(IJK) C C CODE TO TRANSFORM GENERAL ANISOTROPIC MATERIAL PROPERTIES TO C BASIC COORDINATE SYSTEM MUST BE ADDED HERE. C C ALL SET TO BEGIN INTEGRATION LOOPS. DO IT. C 1000 DO 2000 I = 1,NIP DO 2000 J = 1,NIP DO 2000 K = 1,NIP C C GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE C CALL IHEXSD (TYPE,Z(IN),Z(IG),JACOB,DETJ,EID,S(I),S(J),S(K), 1 EST(BCORD)) IF (DETJ .NE. 0.0) GO TO 1010 C C BAD ELEMENT IF FALL HERE. JACOBIAN MATRIX WAS SINGULAR. C NOGO = 1 RETURN C 1010 SFACT = H(I)*H(J)*H(K)*DETJ IF (KGG .LE. 0) GO TO 1015 C C STIFFNESS C C COMPUTE STRAIN-DISPLACEMENT RELATIONS C C MUST REVERSE CALLING ORDER SINCE MATRICES ARE STORED BY COLUMNS C CALL GMMATD (Z(IG),NGP,3,0,JACOB,3,3,0,Z(IX)) C C IF MATERIAL IS TEMPERATURE DEPENDENT, MUST COMPUTE TEMPERATURE C AT THIS INTEGRATION POINT AND FETCH MATERIAL PROPERTIES AGAIN C 1015 IF (.NOT.TDEP) GO TO 1030 TEMP = 0.0 DO 1020 L = 1,NGP 1020 TEMP = TEMP + Z(IN+L-1)*EST(GPT+L-1) CALL MAT (EID) IF (KGG .LE. 0) GO TO 1100 IF (ANIS) GO TO 1040 IF (IB(46) .NE. 0 ) GO TO 1025 WRITE (OTPT,7300) UFM,MID,EID NOGO = 1 RETURN C 1025 E1 = BUFM6(1) E2 = BUFM6(2) E3 = BUFM6(22) TALPHA = BUFM6(38) GO TO 1100 1030 IF (KGG .LE. 0) GO TO 1100 C C IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN RECTANGULAR COOR- C DINATE SYSTEM, MUST TRANSFORM TO BASIC COORDINATE SYSTEM AT THIS C INTEGRATION POINT C C THIS CODE MUST BE COMPLETED WHEN GENERAL ANISOTROPIC MATERIAL IS C ADDED C IF (.NOT.ANIS) GO TO 1100 IF (RECT) GO TO 1100 1040 CONTINUE C C INSERT GLOBAL TO BASIC TRANSFORMATION OPERATIONS HERE FOR C ANISOTROPIC MATERIAL MATRIX C DO 1041 IJK = 1,36 1041 GMAT(IJK) = BUFM6(IJK) C C MATERIAL HAS BEEN EVALUATED FOR THIS INTEGRATION POINT WHEN C FALL HERE. C 1100 CONTINUE C C COMPUTE STRESSES FOR DIFFERENTIAL STIFFNESS MATRIX C C THERMAL EFFECTS C IF (IEST(GPT+NGP+1) .EQ. -1) GO TO 1120 C C COMPUTE LOADING TEMPERATURE AT THIS POINT C TEMP = 0.0 DO 1110 L = 1,NGP 1110 TEMP = TEMP + Z(IN+L-1)*EST(GPT+NGP+L) TEMP = 0.25*(TEMP-TREF) IF (ANIS) GO TO 1115 SIG(1) =-TALPHA*(E1+2.0*E2)*TEMP SIG(2) = SIG(1) SIG(3) = SIG(1) SIG(4) = 0.0 SIG(5) = 0.0 SIG(6) = 0.0 GO TO 1140 C C ANISOTROPIC C 1115 DO 1116 IJK = 1,6 1116 DALPHA(IJK) = BUFM6(IJK+37) C CALL GMMATD (GMAT(1),6,6,0,DALPHA(1),6,1,0,SIG) DO 1117 IJK = 1,6 1117 SIG(IJK) = -SIG(IJK)*TEMP GO TO 1140 1120 DO 1130 L = 1,6 1130 SIG(L) = 0.0 C C DISPLACEMENT EFFECTS, COMPUTE STRESS MATRIX AND MULTIPLY BY DISPL. C 1140 STR(12) = 0.0 STR(13) = 0.0 STR(17) = 0.0 DO 1150 L = 1,NGP II = IX + 3*L - 4 IF (ANIS) GO TO 1141 STR( 1) = E1*Z(II+1) STR( 2) = E2*Z(II+2) STR( 3) = E2*Z(II+3) STR( 4) = E2*Z(II+1) STR( 5) = E1*Z(II+2) STR( 6) = E2*Z(II+3) STR( 7) = E2*Z(II+1) STR( 8) = E2*Z(II+2) STR( 9) = E1*Z(II+3) STR(10) = E3*Z(II+2) STR(11) = E3*Z(II+1) STR(14) = E3*Z(II+3) STR(15) = E3*Z(II+2) STR(16) = E3*Z(II+3) STR(18) = E3*Z(II+1) GO TO 1145 C C ANISOTROPIC C 1141 DO 1142 IJK = 1,18 1142 STORE(IJK) = 0.D0 STORE( 1) = Z(II+1) STORE( 5) = Z(II+2) STORE( 9) = Z(II+3) STORE(10) = Z(II+2) STORE(11) = Z(II+1) STORE(14) = Z(II+3) STORE(15) = Z(II+2) STORE(16) = Z(II+3) STORE(18) = Z(II+1) C CALL GMMATD (GMAT(1),6,6,0,STORE(1),6,3,0,STR(1)) C 1145 CONTINUE CALL GMMATD (STR,6,3,-2,Z(ID+3*L-3),3,1,0,SIG) 1150 CONTINUE SV = SX SX = SX + SY SY = SY + SZ SZ = SZ + SV C C NOW BEGIN LOOPS OVER GRID POINTS ALONG ROWS AND COLUMNS C DO 1400 N = 1,NGP DO 1400 M = N,NGP IF (N.EQ.IGP .OR. M.EQ.IGP) GO TO 1170 GO TO 1400 1170 CONTINUE C C COMPUTE PARTITION FOR POINTWISE ROW M AND COLUMN N C IF (KGG .LE. 0) GO TO 1300 IF (.NOT.ANIS ) GO TO 1200 C C MUST ADD CODE TO COMPUTE THE CONTRIBUTION TO THE STIFFNESS MATRIX C FOR ANISOTROPIC MATERIAL HERE C ================================================================= C 1200 IF (SIL(M) .GE. SIL(N)) GO TO 1210 C C MUST COMPUTE TRANSPOSE OF THIS PARTITION FOR SUMMATION IN ELEMENT C MATRIX C MZ = IX + (N-1)*3 NZ = IX + (M-1)*3 GO TO 1220 1210 MZ = IX + (M-1)*3 NZ = IX + (N-1)*3 C C DIFFERENTIAL STIFFNESS C 1220 DO 1223 L = 1,3 DO 1223 INC = 1,3 1223 C(L,INC) = Z(MZ+INC-1)*Z(NZ+L-1) PART(1,1) = SX*C(2,2) + SYZ*(C(2,3) + C(3,2)) + SZ*C(3,3) PART(2,2) = SY*C(3,3) + SZX*(C(3,1) + C(1,3)) + SX*C(1,1) PART(3,3) = SZ*C(1,1) + SXY*(C(1,2) + C(2,1)) + SY*C(2,2) PART(2,1) =-SX*C(2,1) + SXY*C(3,3) - SYZ*C(1,3) - SZX*C(2,3) PART(3,1) =-SZ*C(3,1) - SXY*C(3,2) - SYZ*C(2,1) + SZX*C(2,2) PART(1,2) =-SX*C(1,2) + SXY*C(3,3) - SYZ*C(3,1) - SZX*C(3,2) PART(3,2) =-SY*C(3,2) - SXY*C(3,1) + SYZ*C(1,1) - SZX*C(1,2) PART(1,3) =-SZ*C(1,3) - SXY*C(2,3) - SYZ*C(1,2) + SZX*C(2,2) PART(2,3) =-SY*C(2,3) - SXY*C(1,3) + SYZ*C(1,1) - SZX*C(2,1) C C ADD STIFFNESS PARTITION TO ELEMENT MATRIX C C COMPUTE INDEX INTO OPEN CORE WHERE PART(1,1) IS TO BE ADDED. C IF (SIL(M)-SIL(N)) 1230,1240,1250 1230 MZ = SIL(N) NZ = SIL(M) DIAG = .FALSE. GO TO 1260 1240 MZ = SIL(M) NZ = SIL(N) DIAG = .TRUE. GO TO 1260 1250 MZ = SIL(M) NZ = SIL(N) DIAG = .FALSE. C C COLUMN NUMBER C 1260 L = (NZ-1)*3 + 1 C C INCREMENT BETWEEN COLUMNS C INC = NGG - L C C FIRST WORD OF COLUMN C L = IK + ((L-1)*L)/2 + (INC+1)*(L-1) C C WORD IN COLUMN FOR THIS ROW C L = L + 3*(MZ-NZ) C C ADD PARTITION C DO 1280 NZ = 1,3 DO 1270 MZ = 1,3 IF (DIAG .AND. MZ.LT.NZ) GO TO 1270 Z(L+MZ-1) = Z(L+MZ-1) + PART(MZ,NZ)*SFACT 1270 CONTINUE L = L + INC INC = INC - 1 1280 CONTINUE 1300 IF (MGG .LE. 0) GO TO 1400 1400 CONTINUE 2000 CONTINUE C C END OF INTEGRATION LOOPS C C C LOOK FOR NON-BASIC COORDINATE SYSTEM C DO 2003 I = 1,NGP IF (IEST(BGPDT+I-1) .NE. 0) GO TO 2005 2003 CONTINUE GO TO 2061 C C RESTORE GRID POINT DATA TO ORIGINAL FORM FOR DOING TRANSFORM C TO GLOBAL COORDINATES C C FIRST, TRANSFER IT TO OPEN CORE AT IN C 2005 K = (IN-1)*2 + 1 J = NGP*4 DO 2010 I = 1,J 2010 GRID(I) = EST(BGPDT+I-1) C C NOW MOVE IT BACK AND REARRANGE IT C DO 2020 I = 1,NGP IEST(BGPDT+4*I-4) = IGRID(I) DO 2020 J = 1,3 EST(BGPDT+4*I-4+J) = GRID(NGP+3*I+J-3) 2020 CONTINUE C C FETCH GLOBAL TO BASIC TRANSFORMATION MATRICES C DO 2025 I = 1,NGP J = IN + (I-1)*9 CALL TRANSD (EST(BGPDT+4*I-4),Z(J)) 2025 CONTINUE C C TRANSFORM STIFFNESS TO GLOBAL COORDINATES C DO 2060 I = 1,NGP C C COLUMN INDICES C K = (I-1)*3 + 1 INC = NGG - K + 1 L = IK + ((K-1)*K)/2 + INC*(K-1) M = L + INC N = M + INC - 1 C C TRANSFORMATION MATRIX INDEX C NZ = IN + (I-1)*9 C C TERMS ON DIAGONAL PARTITION C CALL TKTZTK (TK,Z,NZ,L,M,N) C C OFF-DIAGONAL PARTITIONS C L = L + 3 M = M + 2 N = N + 1 IRP = I + 1 IF (IRP .GT. NGP) GO TO 2060 DO 2050 J = IRP,NGP NZ = IN + 9*(J-1) DO 2030 K = 1,3 TK(K,1) = 0.0 TK(K,2) = 0.0 TK(K,3) = 0.0 DO 2030 MZ = 1,3 TK(K,1) = TK(K,1) + Z(L+MZ-1)*Z(NZ+3*MZ+K-4) TK(K,2) = TK(K,2) + Z(M+MZ-1)*Z(NZ+3*MZ+K-4) TK(K,3) = TK(K,3) + Z(N+MZ-1)*Z(NZ+3*MZ+K-4) 2030 CONTINUE MZ = IN + 9*(I-1) DO 2040 K = 1,3 Z(L+K-1) = 0.0 Z(M+K-1) = 0.0 Z(N+K-1) = 0.0 DO 2040 II = 1,3 Z(L+K-1) = Z(L+K-1) + TK(K,II)*Z(MZ+3*II-3) Z(M+K-1) = Z(M+K-1) + TK(K,II)*Z(MZ+3*II-2) Z(N+K-1) = Z(N+K-1) + TK(K,II)*Z(MZ+3*II-1) 2040 CONTINUE L = L + 3 M = M + 3 N = N + 3 2050 CONTINUE 2060 CONTINUE C C BUILD STIFFNESS PARTITIONS AND PASS TO EMGOUT C 2061 DO 2065 I = 1,36 2065 SK(I,1) = 0.0D0 I = IGP DO 2090 J = 1,3 C C COLUMN NUMBER C K = (I-1)*3 + J C C NUMBER OF TERMS TO FETCH TO COMPLETE THIS COLUMN IN PARTITION C L = K - 1 IF (L .EQ. 0) GO TO 2075 C C FETCH TERMS AND LOAD INTO J-TH COLUMN OF PARTITION C N = IK + L INC = NGG - 1 DO 2070 M = 1,L Z(IZ+NGG*J-NGG+M-1) = Z(N) N = N + INC INC = INC - 1 2070 CONTINUE C C FILL OUT PARTITION WITH COLUMNS OF STIFFNESS MATRIX C C COMPUTE INDEX IN OPEN CORE OF FIRST TERM OF COLUMN K C 2075 N = IK + ((K-1)*K)/2 + (NGG-K+1)*(K-1) C C INSERT THIS COLUMN IN PARTITION C DO 2080 M = K,NGG Z(IZ+NGG*J-NGG+M-1) = Z(N) N = N + 1 2080 CONTINUE 2090 CONTINUE DO 2100 I = 1,NGP J = (I-1)*3 + IZ - 1 DO 2095 M = 1,3 DO 2095 N = 1,3 K = J + N + (M-1)*NGG 2095 SK(N,M) = Z(K) CALL DS1B (SK,ISIL(I)) 2100 CONTINUE C C ALL DONE, NO ERRORS C RETURN C C 7100 FORMAT (6A4,I4,2H, ,A4,I1,3A4,I9,' INSUFFICIENT CORE TO COMPUTE', 1 ' ELEMENT MATRIX') 7300 FORMAT (6A4,'4005. AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED ', 1 'UNDER MATERIAL ID =',I10,17H FOR ELEMENT ID =,I10) C END ================================================ FILE: mis/dipole.f ================================================ SUBROUTINE DIPOLE(BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) C C DIPOLE COMPUTES THE MAGNETIC INTENSITY AT THE POINT (XX,YY,ZZ) DUE C TO A MAGNETIC DIPOLE MOMENT DEFINED ON AN MDIPOLE CARD STORED IN BUF. C THE FORMULATION COMES FROM DARRELL NIXONS REPORT 27-23 MARCH 1972 C REAL MX,MY,MZ,MIN,MAX,MXA,MYB,MZC DIMENSION BUF(50),IBUF(50) DATA FPI/12.566371/ C HC1=0. HC2=0. HC3=0. C C ICID IS 0 FOR NOW AND WILL NOT BE USED. COORDS. AND MOMENT C ARE ASSUMED TO BE IN BASIC COORDS C ICID=IBUF(1) C C COORDS OF POINT DIPOLE C CX=BUF(2) CY=BUF(3) CZ=BUF(4) MX=BUF(5) MY=BUF(6) MZ=BUF(7) MIN=BUF(8) MAX=BUF(9) C C H WILL BE COMPUTED ONLY IF DISTANCE FROM (CX,CY,CZ) TO (XX,YY,ZZ) IS C BETWEEN MIN AND MAX- IF MAX IS 0, COMPUTE FOR ALL POINTS GREATER THAN C MIN C RMR1=SQRT((XX-CX)**2+(YY-CY)**2+(ZZ-CZ)**2) IF(MIN.LE.1.E-6)GO TO 5 IF(RMR1.LT.MIN)GO TO 20 5 IF(MAX.LE.1.E-6)GO TO 10 IF(RMR1.GT.MAX)GO TO 20 C 10 MXA=3.*MX*(XX-CX) MYB=3.*MY*(YY-CY) MZC=3.*MZ*(ZZ-CZ) C R3=RMR1**3 R5=R3*RMR1**2 XNUM=(MXA+MYB+MZC)/R5 C HC1=-MX/R3+XNUM*(XX-CX) HC1=HC1/FPI C HC2=-MY/R3+XNUM*(YY-CY) HC2=HC2/FPI C HC3=-MZ/R3+XNUM*(ZZ-CZ) HC3=HC3/FPI C 20 RETURN END ================================================ FILE: mis/dis2d8.f ================================================ SUBROUTINE DIS2D8 C C 2-D, 8 GRID POINT ISOPARAMETRIC STRUCTURAL ELEMENT C DIFFERENTIAL STIFFNESS MATRIX ROUTINE C REAL KX,KY DOUBLE PRECISION KIJ,G,B,XI,ETA,DNXI,DNETA,XX,TB,DNL,PT,H,XJB, 1 XXJB,DETERM,DNC,GSUBE,DUMARG, 2 BT,TEMPAR,TEMP,DNX,DNY,SAVE,TSAVE, 3 KWD(36),CID(18),CJD(18),KMULT(18),DHH, 4 THICK,PSTMUL(9),PREMUL(9),E1T DIMENSION SIG(3),ALPHAS(3),ST(3),SEMP(9),TTB(9),STB(9), 1 BB(72),DB(72),S(6),R(9),SE1T(6),DN(8), 2 G(9),QQ(15),XI(8),ETA(8),TB(9),XY1(3),XY2(3), 3 B(12),BT(12),ECPT(1),TEMP(9),TEMPAR(1),DNX(1), 4 DNY(1),DNXI(1),DNETA(1),SAVE(72),TSAVE(72), 5 VEC(3),VVEC(3),VECI(3),VECJ(3),VECK(3),E1T(9), 6 IWS(2,3) COMMON /DS1AAA/ NPVT,ICSTM,NCSTM COMMON /DS1AET/ NECPT(1),NGRID(8),ID1,TH,MATID1,T,ISYS1,X1,Y1,Z1, 1 ISYS2,X2,Y2,Z2,ISYS3,X3,Y3,Z3,ISYS4,X4,Y4,Z4, 2 ISYS5,X5,Y5,Z5,ISYS6,X6,Y6,Z6,ISYS7,X7,Y7,Z7, 3 ISYS8,X8,Y8,Z8,TTEMP,EDT,ISETNO,TGRID(8),DISP(24) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 TREF,GE,KX,KY,C COMMON /DS1ADP/ KIJ(36),XX(16),DNC(16),DNL(16),XXJB(2,2),XJB(4), 1 PT(3),H(3),G,B,BT,TB,DETERM,GSUBE,DUMARG,TSAVE EQUIVALENCE (ALPHAS(1),ALPHA1), 1 (ECPT(1),NECPT(1)),(TEMP(1),B(1)), 2 (DNC(1),DNXI(1)),(DNC(9),DNETA(1)), 3 (DNL(1),DNX(1)),(DNL(9),DNY(1)),(QQ(1),G11), 4 (TEMPAR(1),BT(1)),(XY1(1),X1),(XY2(1),X2) DATA XI / -1.D0, 1.D0, 1.D0,-1.D0, 0.D0, 1.D0, 0.D0,-1.D0/ DATA ETA / -1.D0,-1.D0, 1.D0, 1.D0,-1.D0, 0.D0, 1.D0, 0.D0/ C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT 1 NGRID(1) INTEGER C ECPT( 3) = GRID POINT 2 NGRID(2) INTEGER C ECPT( 4) = GRID POINT 3 NGRID(3) INTEGER C ECPT( 5) = GRID POINT 4 NGRID(4) INTEGER C ECPT( 6) = GRID POINT 5 NGRID(5) INTEGER C ECPT( 7) = GRID POINT 6 NGRID(6) INTEGER C ECPT( 8) = GRID POINT 7 NGRID(7) INTEGER C ECPT( 9) = GRID POINT 8 NGRID(8) INTEGER C ECPT(10) = COORD SYS ID-STRESS ID1 INTEGER C ECPT(11) = ANIS. MATERIAL ANGLE TH REAL C ECPT(12) = MATERIAL ID MATID1 INTEGER C ECPT(13) = THICKNESS T REAL C ECPT(14) = COORD SYS ID 1 ISYS1 INTEGER C ECPT(15) = X1 X1 REAL C ECPT(16) = Y1 Y1 REAL C ECPT(17) = Z1 Z1 REAL C ECPT(18) = COORD SYS ID 2 ISYS2 INTEGER C ECPT(19) = X2 X2 REAL C ECPT(20) = Y2 Y2 REAL C ECPT(21) = Z2 Z2 REAL C ECPT(22) = COORD SYS ID 3 ISYS3 INTEGER C ECPT(23) = X3 X3 REAL C ECPT(24) = Y3 Y3 REAL C ECPT(25) = Z3 Z3 REAL C ECPT(26) = COORD SYS ID 4 ISYS4 INTEGER C ECPT(27) = X4 X4 REAL C ECPT(28) = Y4 Y4 REAL C ECPT(29) = Z4 Z4 REAL C ECPT(30) = COORD SYS ID 5 ISYS5 INTEGER C ECPT(31) = X5 X5 REAL C ECPT(32) = Y5 Y5 REAL C ECPT(33) = Z5 Z5 REAL C ECPT(34) = COORD SYS ID 6 ISYS6 INTEGER C ECPT(35) = X6 XL REAL C ECPT(36) = Y6 Y6 REAL C ECPT(37) = Z6 Z6 REAL C ECPT(38) = COORD SYS ID 7 ISYS7 INTEGER C ECPT(39) = X7 X7 REAL C ECPT(40) = Y7 Y7 REAL C ECPT(41) = Z7 Z7 REAL C ECPT(42) = COORD SYS ID 8 ISYS8 INTEGER C ECPT(43) = X8 X8 REAL C ECPT(44) = Y8 Y8 REAL C ECPT(45) = Z8 Z8 REAL C ECPT(46) = ELEMENT TEMP TTEMP REAL C ECPT(47) = 0. EDT REAL C ECPT(48) = TEMPERATURE SET ISETNO INTEGER C ECPT(49) = * C ECPT(. ) = * GRID POINT TEMPERATURES C ECPT(56) = * C ECPT(57) = * C ECPT(. ) = * TRANSLATIONAL DOF-S OF GRIDS FOR THIS ELEMENT C ECPT(80) = * C C C TEST FOR PIVOT POINT C DO 10 KK = 1,8 IF (NGRID(KK) .EQ. NPVT) GO TO 20 10 CONTINUE C C IF FALL HERE NO ELEMENT GRID POINT IS THE PIVOT POINT C CALL MESAGE (-30,34,ECPT(1)) C C UNIT I VECTOR IS FROM GRID POINT 1 TO GRID POINT 2 C 20 DO 30 I = 1,3 VECI(I) = XY2(I) - XY1(I) 30 CONTINUE VECIL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) IF (VECIL .EQ. 0.0) GO TO 60 VECI(1) = VECI(1)/VECIL VECI(2) = VECI(2)/VECIL VECI(3) = VECI(3)/VECIL C C K VECTOR IS OBTAINED BY CROSSING I INTO VECTOR FROM GRID PT. 1 TO C GRID C VECK(1) = VECI(2)*(Z4-Z1) - VECI(3)*(Y4-Y1) VECK(2) = VECI(3)*(X4-X1) - VECI(1)*(Z4-Z1) VECK(3) = VECI(1)*(Y4-Y1) - VECI(2)*(X4-X1) VECKL=SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) IF (VECKL .EQ. 0.0) GO TO 60 VECK(1) = VECK(1)/VECKL VECK(2) = VECK(2)/VECKL VECK(3) = VECK(3)/VECKL C C J VECTOR IS OBTAINED BY CROSSING K INTO I C VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2) VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3) VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1) C E1T(1) = VECI(1) E1T(2) = VECI(2) E1T(3) = VECI(3) E1T(4) = VECJ(1) E1T(5) = VECJ(2) E1T(6) = VECJ(3) E1T(7) = VECK(1) E1T(8) = VECK(2) E1T(9) = VECK(3) DO 40 I = 1,6 40 SE1T(I) = E1T(I) C C STORE ELEMENT COORDS FOR GRIDS 1 AND 2 C XX(1) = 0. XX(2) = 0. XX(3) = VECIL XX(4) = 0. C C FOR GRIDS 3-8, THE X COORDINATE IS THE DOT PRODUCT OF HTE VECTOR C FROM GRID POINT 1 TO THE GRID POINT AND THE I VECTOR. THE Y COORD. C IS THE L OF THE I VECTOR CROSSED INTO THE VECTOR FROM GRID 1 TO C THE GRID POINT. C DO 50 I = 3,8 IXX = 2*I - 1 ISUB = 4*I + 11 VEC(1) = ECPT(ISUB ) - X1 VEC(2) = ECPT(ISUB+1) - Y1 VEC(3) = ECPT(ISUB+2) - Z1 XX(IXX) = VEC(1)*VECI(1) + VEC(2)*VECI(2) + VEC(3)*VECI(3) VVEC(1) = VECI(2)*VEC(3) - VECI(3)*VEC(2) VVEC(2) = VECI(3)*VEC(1) - VECI(1)*VEC(3) VVEC(3) = VECI(1)*VEC(2) - VECI(2)*VEC(1) XX(IXX+1) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2) 50 CONTINUE GO TO 70 C C INAPPROPRIATE GEOMETRY C 60 CALL MESAGE (30,31,ECPT(1)) NOGO = 1 RETURN C C COMPUTE MATERIAL PROPERTIES C 70 TTH = TH*3.1415927/180. SINTH = SIN(TTH) COSTH = COS(TTH) ELTEMP= TTEMP INFLAG= 2 MATID = MATID1 CALL MAT (ECPT(1)) DO 80 I = 1,3 80 G(I) = QQ(I) G(4) = QQ(2) G(5) = QQ(4) G(6) = QQ(5) G(7) = QQ(3) G(8) = QQ(5) G(9) = QQ(6) THICK = T DO 90 I = 1,9 90 R(I) = G(I) IF (ISETNO .NE. 0) CALL GMMATS (R,3,3,0,ALPHAS,3,1,0,ST) C C ZERO OUT THE KIJ AND SAVE MATRICES C DO 100 I = 1,36 KWD(I) = 0.D0 100 KIJ(I) = 0.D0 DO 110 I = 1,72 110 SAVE(I) = 0.D0 C PT(1) =-0.57735027D0 PT(2) =-PT(1) H(1) = 1.D0 H(2) = 1.D0 IF (ID1 .EQ. 2) GO TO 120 PT(1) =-0.77459667D0 PT(2) = 0.D0 PT(3) =-PT(1) H(1) = 5.D0/9.D0 H(2) = 8.D0/9.D0 H(3) = H(1) C C 2 OR 3 QUADRATURE POINTS C 120 DO 410 III = 1,ID1 DO 410 JJJ = 1,ID1 C C COMPUTE GAUSS POINT STRESSES C C C COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA C EACH GRID POINT C DO 130 N = 1,4 DNXI(N) = .25D0*XI(N)*(1.D0+PT(JJJ)*ETA(N))* 1 (2.D0*PT(III)*XI(N)+PT(JJJ)*ETA(N)) DNETA(N) = .25D0*ETA(N)*(1.D0+PT(III)*XI(N))* 1 (PT(III)*XI(N)+2.D0*PT(JJJ)*ETA(N)) 130 CONTINUE DO 140 N = 5,7,2 C DNXI(N) = -PT(III)*(1.D0+PT(JJJ)*ETA(N)) DNETA(N) = .5D0*(1.D0-PT(III)*PT(III))*ETA(N) 140 CONTINUE C DO 150 N = 6,8,2 DNXI(N) = .5D0*XI(N)*(1.D0-PT(JJJ)*PT(JJJ)) DNETA(N) = -PT(JJJ)*(1.D0+PT(III)*XI(N)) 150 CONTINUE C C COMPUTE JACOBEAN C C N1XI N2XI N3XI N4XI N5XI N6XI N7XI N8XI C DNC = N1ETA N2ETA N3ETA N4ETA N5ETA N6ETA N7ETA N8ETA C C X1 Y1 C X2 Y2 C X3 Y3 C XX = X4 Y4 C X5 Y5 C X6 Y6 C X7 Y7 C X8 Y8 C CALL GMMATD (DNC,2,8,0,XX,8,2,0,XJB) C C XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED C FOR INVERSION C K = 0 DO 160 I = 1,2 DO 160 J = 1,2 K = K + 1 160 XXJB(I,J) = XJB(K) C C COMPUTE INVERSE AND DETERMINANT OF JACOBEAN C CALL INVERD (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS) IF (ISING .EQ. 2) CALL MESAGE (-30,143,ECPT(1)) DHH = DETERM*H(III)*H(JJJ) C C COMPUTE DERIVATIVES WITH RESPECT TO X AND Y C K = 0 DO 170 I = 1,2 DO 170 J = 1,2 K = K + 1 170 XJB(K) = XXJB(I,J) CALL GMMATD (XJB,2,2,0,DNC,2,8,0,DNL) C C N1X N2X N3X N4X N5X N6X N7X N8X C DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y C DO 180 I = 1,72 180 BB(I) = 0. C C SET UP INDICATOR FOR GRID POINT TEMPERATURES C IDTEMP = 0 DO 190 I = 1,8 IF (TGRID(I) .NE. 0.) GO TO 200 190 CONTINUE GO TO 210 200 IDTEMP = 1 C 210 DO 270 N = 1,8 C DO 220 I = 1,9 220 SEMP(I) = 0. DO 230 I = 1,6 230 S(I) = 0. S(1) = DNX(N) S(4) = DNY(N) S(5) = DNY(N) S(6) = DNX(N) C C TRANSFORM TO ELEMENT COORDINATES C IF (NECPT(4*N+10) .EQ. 0) GO TO 240 CALL TRANSS (NECPT(4*N+10),TTB) CALL GMMATS (SE1T,2,3,0,TTB,3,3,0,STB) GO TO 260 240 DO 250 I = 1,6 250 STB(I) = SE1T(I) 260 CALL GMMATS (S,3,2,0,STB,2,3,0,SEMP(1)) N3 = 3*N BB(N3- 2) = SEMP(1) BB(N3- 1) = SEMP(2) BB(N3 ) = SEMP(3) BB(N3+22) = SEMP(4) BB(N3+23) = SEMP(5) BB(N3+24) = SEMP(6) BB(N3+46) = SEMP(7) BB(N3+47) = SEMP(8) BB(N3+48) = SEMP(9) 270 CONTINUE C C BRING IN G MATRIX C CALL GMMATS (R,3,3,0,BB,3,24,0,DB) C C COMPUTE STRESSES C CALL GMMATS (DB,3,24,0,DISP,24,1,0,SIG) C C C COMPUTE GAUSS POINT TEMPERATURES C IF (ISETNO .EQ. 0) GO TO 350 IF (IDTEMP .EQ. 1) GO TO 280 RGTEMP = ELTEMP - TREF GO TO 330 C C ALL TEMPERATURES ARE DEFAULT VALUE C 280 DO 290 N = 1,4 DN(N) = .25*(1.+PT(III)*XI(N))*(1.+PT(JJJ)*ETA(N)) 1 *(PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.) 290 CONTINUE DO 300 N = 5,7,2 DN(N) = .5*(1.-PT(III)*PT(III))*(1.+PT(JJJ)*ETA(N)) 300 CONTINUE DO 310 N = 6,8,2 DN(N) = .5*(1.+PT(III)*XI(N))*(1.-PT(JJJ)*PT(JJJ)) 310 CONTINUE GSTEMP = 0. DO 320 N = 1,8 GSTEMP = GSTEMP + DN(N)*TGRID(N) 320 CONTINUE RGTEMP = GSTEMP - TREF 330 DO 340 I = 1,3 SIG(I) = SIG(I) - ST(I)*RGTEMP 340 CONTINUE C 350 CONTINUE C C FORM KWD MATRIX C KWD( 1) = SIG(2) KWD( 2) =-SIG(3) KWD( 7) =-SIG(3) KWD( 8) = SIG(1) KWD(15) = SIG(1) + SIG(2) KWD(16) =-SIG(3) KWD(17) = SIG(3) KWD(18) = SIG(1) - SIG(2) KWD(21) =-SIG(3) KWD(27) = SIG(3) KWD(33) = SIG(1) - SIG(2) C C FORM CID FOR I = NPVT C DO 360 I = 1,18 360 CID( I) = 0.D0 CID( 3) = DNY(KK) CID( 6) =-DNX(KK) CID( 7) =-.5*DNY(KK) CID( 8) = .5*DNX(KK) CID(10) = DNX(KK) CID(14) = DNY(KK) CID(16) =.5*DNY(KK) CID(17) =.5*DNX(KK) C CALL GMMATD (CID,6,3,1,KWD,6,6,0,KMULT) C C LOOP FOR THE 8 6X6 PARTITIONS CORRESPONDING TO THE PRESENT C PIVOT POINT C DO 400 N = 1,8 C DO 370 I = 1,18 370 CJD(I) = 0.D0 C CJD( 3) = DNY(N) CJD( 6) =-DNX(N) CJD( 7) =-.5*DNY(N) CJD( 8) = .5*DNX(N) CJD(10) = DNX(N) CJD(14) = DNY(N) CJD(16) =.5*DNY(N) CJD(17) =.5*DNX(N) C CALL GMMATD (KMULT,3,6,0,CJD,6,3,0,TEMPAR(1)) C C THROW IN JACOBEAN DETERMINANT AND WEIGHT FACTORS C DO 380 I = 1,9 TEMPAR(I) = TEMPAR(I)*DHH 380 CONTINUE C C ADD THE RESULTS OF THIS INTEGRATION TO THE PREVIOUS RESULTS C LL = 9*(N-1) DO 390 I = 1,9 L = LL + I SAVE(L) = SAVE(L) + TEMPAR(I) 390 CONTINUE C C LOOP FOR MORE PARTITIONS C 400 CONTINUE C C LOOP FOR MORE GAUSS POINTS C 410 CONTINUE C C CHECK ON NECESSITY OF PRE-MULTIPLYING COORDINATE TRANSFORMATIONS C ISUB = 4*KK + 10 IF (NECPT(ISUB) .EQ. 0) GO TO 420 C C ELEMENT TO GLOBAL C CALL TRANSD (NECPT(ISUB),TB) CALL GMMATD (E1T,3,3,0,TB,3,3,0,PREMUL) GO TO 440 420 DO 430 I = 1,9 PREMUL(I) = E1T(I) 430 CONTINUE 440 DO 460 N = 1,8 LL = 9*N - 8 CALL GMMATD (PREMUL,3,3,1,SAVE(LL),3,3,0,TEMP) C C STORE THE 3 X 3 IN TSAVE C DO 450 I = 1,9 L = 9*N + I - 9 450 TSAVE(L) = TEMP(I) C 460 CONTINUE C C NOW CHECK ON THE NECESSITY FOR POST-MULTIPLYING TRANSFORMATIONS C DO 500 N = 1,8 ISUB = 4*N + 10 LL = 9*N - 8 IF (NECPT(ISUB) .EQ. 0) GO TO 470 C C GLOBAL TO ELEMENT C CALL TRANSD (NECPT(ISUB),TB) CALL GMMATD (E1T,3,3,0,TB,3,3,0,PSTMUL) GO TO 490 470 DO 480 I = 1,9 PSTMUL(I) = E1T(I) 480 CONTINUE C C POST-MULTIPLY C 490 CALL GMMATD (TSAVE(LL),3,3,0,PSTMUL,3,3,0,TEMP) C C FILL OUT THE 6 X 6 PARTITION C KIJ( 1) = TEMP(1)*THICK KIJ( 2) = TEMP(2)*THICK KIJ( 3) = TEMP(3)*THICK KIJ( 7) = TEMP(4)*THICK KIJ( 8) = TEMP(5)*THICK KIJ( 9) = TEMP(6)*THICK KIJ(13) = TEMP(7)*THICK KIJ(14) = TEMP(8)*THICK KIJ(15) = TEMP(9)*THICK C C INSERT INTO THE OVERALL STIFFNESS MATRIX C CALL DS1B (KIJ,NECPT(N+1)) C C LOOP FOR MORE PARTITIONS C 500 CONTINUE C RETURN END ================================================ FILE: mis/displa.f ================================================ SUBROUTINE DISPLA (GPLST,X,S,U,PEN,DEFORM,LABEL,PT,B1) C INTEGER GPLST(1),PEN,DEFORM,B1,SCR1,ECT2,AXIS,DAXIS,ELID, 1 GPTS(12),GP,COLOR,OFFSET REAL MAXDEF,X(3,1),U(3,1),S(2,1) DIMENSION SIGN(3),A(4),PT(8),XX(4),YY(4),LABEL(50),MVECT(3), 1 MSG(13) COMMON /BLANK / SKIP(5),NGPSET,SK(6),ECT2,SKP(7),MERR,SKI(6),SCR1 COMMON /XXPARM/ SKIP1(39),MAXDEF,DEFMAX,AXIS(3),DAXIS(3), 1 SKIP2(110),NCNTR,CNTR(50),ICNTVL,SKPPAR(6), 2 SK18(18),COLOR COMMON /PLTDAT/ SKIP3(2),XMIN DATA NMSG / 13 /, 1 MSG / 4H(33X, 4H,41H, 4H*** , 4HINCO, 4HMPLE, 4HTE P, 2 4HLOT , 4HDUE , 4HTO I, 4HNPUT, 4H OR , 4HFILE, 3 4H.) / DATA MVECT / 3*0 /, KBAR,KT3,KQ4 / 2HBR,2HT3,2HQ4 / C C CALL GOPEN (SCR1,GPLST(B1),1) IF (ABS(DEFMAX) .GT. 1.E-8) GO TO 5 CALL WRTPRT (MERR,MVECT,MSG,NMSG) GO TO 120 C 5 DO 10 I = 1,3 SIGN(I) = DAXIS(I)/AXIS(I) 10 CONTINUE DO 20 GP = 1,NGPSET DO 15 I = 1,3 J = AXIS(I) IJ = IABS(J) A(IJ) = SIGN(IJ)*U(I,GP) 15 CONTINUE DMAX = MAXDEF IF (DMAX .LT. .00001) DMAX = 1.0 DO 16 I = 1,3 U(I,GP) = A(I)*(DEFMAX/DMAX) 16 CONTINUE 20 CONTINUE INDEX = ICNTVL - 9 NCNTR = MIN0(NCNTR,50) IF (CNTR(1) .NE. CNTR(2)) GO TO 40 IF (INDEX .LE. 3) CONMIN = U(INDEX,1) IF (INDEX .GT. 3) CONMIN = SQRT(U(1,1)**2 + U(2,1)**2 + U(3,1)**2) CONMAX = CONMIN DO 30 GP = 1,NGPSET IF (INDEX .GT. 3) GO TO 25 CONMIN = AMIN1(CONMIN,U(INDEX,GP)) CONMAX = AMAX1(CONMAX,U(INDEX,GP)) GO TO 30 25 D = SQRT(U(1,GP)**2 + U(2,GP)**2 + U(3,GP)**2) CONMIN = AMIN1(CONMIN,D) CONMAX = AMAX1(CONMAX,D) 30 CONTINUE DELTA = (CONMAX-CONMIN)/FLOAT(NCNTR-1) CNTR(1) = CONMIN J = NCNTR - 1 DO 35 I = 2,J CNTR(I) = CNTR(I-1) + DELTA 35 CONTINUE CNTR(NCNTR) = CONMAX 40 CALL LINE (0.,0.,0.,0.,PEN,+1) DO 45 I = 1,NCNTR LABEL(I) = 3 45 CONTINUE 50 CALL READ (*100,*100,ECT2,ITYPE,1,0,M) OFFSET = 0 IF (ITYPE .EQ. KBAR) OFFSET = 6 IF (ITYPE.EQ.KT3 .OR. ITYPE.EQ.KQ4) OFFSET = 1 CALL FREAD (ECT2,NGPPE,1,0) 55 CALL FREAD (ECT2,ELID,1,0) IF (ELID .EQ. 0) GO TO 50 CALL FREAD (ECT2,0,-1,0) CALL FREAD (ECT2,GPTS,NGPPE,0) IF (OFFSET .NE. 0) CALL FREAD (ECT2,0,-OFFSET,0) IF (NGPPE .LE. 2) GO TO 55 IJ = 1 IK = 3 60 J = 0 DO 70 I = IJ,IK J = J + 1 IG = GPTS(I) IG = IABS(GPLST(IG)) IF (INDEX .LE. 3) A(J) = U(INDEX,IG) IF (INDEX .GT. 3) A(J) = SQRT(U(1,IG)**2 +U(2,IG)**2 +U(3,IG)**2) IF (DEFORM .NE. 0) GO TO 65 PT(2*J-1) = X(2,IG) PT(2*J ) = X(3,IG) GO TO 70 65 PT(2*J-1) = S(1,IG) PT(2*J ) = S(2,IG) 70 CONTINUE PT(7) = PT(1) PT(8) = PT(2) A(4) = A(1) DO 90 I = 1,NCNTR IF (COLOR .EQ. 0) GO TO 75 J = IABS(COLOR) IF (NCNTR .LE. J) PEN = I*J/NCNTR IF (NCNTR .GT. J) PEN = 1 + I/(NCNTR/J) IF (PEN .GT. J) PEN = J 75 CONTINUE DO 80 J = 1,3 XX(J) = XMIN - 1.0 D = A(J) - A(J+1) IF (ABS(A(J )-CNTR(I)).GT.ABS(D) .OR. 1 ABS(A(J+1)-CNTR(I)).GT.ABS(D)) GO TO 80 IF (D .EQ. 0.0) D = 1.0 XX(J) = PT(2*J-1) + (PT(2*J+1)-PT(2*J-1))*(A(J)-CNTR(I))/D YY(J) = PT(2*J ) + (PT(2*J+2)-PT(2*J ))*(A(J)-CNTR(I))/D 80 CONTINUE XX(4) = XX(1) YY(4) = YY(1) DO 85 J = 1,3 IF (XX(J).LT.XMIN .OR. XX(J+1).LT.XMIN) GO TO 85 CALL LINE (XX(J),YY(J),XX(J+1),YY(J+1),PEN,0) LABEL(I) = LABEL(I) + 1 IF (LABEL(I) .NE. 4) GO TO 85 LABEL(I) = 0 CALL WRITE (SCR1,I,1,0) CALL WRITE (SCR1,XX(J),1,0) CALL WRITE (SCR1,YY(J),1,0) 85 CONTINUE 90 CONTINUE IF (NGPPE.EQ.3 .OR. IJ.EQ.3) GO TO 55 GPTS(NGPPE+1) = GPTS(1) IJ = 3 IK = 5 GO TO 60 100 CALL BCKREC (ECT2) DO 115 GP = 1,NGPSET DO 105 I = 1,3 J = AXIS(I) IJ = IABS(J) A(I) = SIGN(I)*U(IJ,GP) 105 CONTINUE DO 110 I = 1,3 U(I,GP) = A(I)*(DMAX/DEFMAX) 110 CONTINUE 115 CONTINUE 120 CALL CLOSE (SCR1,1) RETURN END ================================================ FILE: mis/dist.f ================================================ SUBROUTINE DIST (IDEG,HIST,MEDIAN,MODD) C C COMPUTE THE DISTRIBUTION OF NODAL DEGREES WITH MEDIAN AND MODE C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C INTEGER IDEG(1), HIST(1) COMMON /SYSTEM/ ISYS, NOUT COMMON /BANDS / NN, MM C C IDEG(I) = DEGREE OF NODE I C HIST(I) = NUMBER OF NODES OF DEGREE I C C COMPUTE HISTOGRAM. C MM1 = MM + 1 DO 10 I = 1,MM1 10 HIST(I) = 0 DO 20 I = 1,NN K = IDEG(I) + 1 20 HIST(K) = HIST(K) + 1 C C COMPUTE MODE (MODD). C MODD = 0 MAX = 0 DO 30 I = 1,MM1 K = HIST(I) IF (K .LE. MAX) GO TO 30 MAX = K MODD = I - 1 30 CONTINUE C C COMPUTE CUMULATIVE DISTRIBUTION, AND MEDIAN. C DO 40 I = 2,MM1 40 HIST(I) = HIST(I) + HIST(I-1) NN2 = NN/2 DO 50 I = 1,MM1 IF (HIST(I) .GT. NN2) GO TO 60 50 CONTINUE 60 MEDIAN = I - 1 RETURN END ================================================ FILE: mis/dk100.f ================================================ DOUBLE PRECISION FUNCTION DK100(I,A,B,M,N,X) DOUBLE PRECISION A, B, X, F100, CAPX, XX, AN1, AN2, AMN2F DOUBLE PRECISION AN1P1, S, SF, AMN2SF, AM1F, AN1F DIMENSION X(1) F100 = 0.0D0 CAPX = A + B * X(I) XX = X(I) N1 = M + N - 2 N2 = M - 1 N3 = N1 + 1 AN1 = N1 AN2 = N2 NFAC = N1 ASSIGN 5 TO IRET GO TO 1000 5 AMN2F = KFAC AN1P1 = AN1 + 1.0D0 IS = 0 S = 0.0D0 SF = 1.0D0 AMN2SF = AMN2F GO TO 50 10 IS = IS + 1 S = IS SF = SF * S AMN2SF = AMN2SF / (AN1P1 - S) 50 CONTINUE N4 = N2 - IS IF (N4 .EQ. 0) GO TO 100 F100 = F100 + AMN2F * (CAPX ** N4) *((-B)** IS) / (AMN2SF * SF 1 * (AN2 - S) * (XX ** N4)) GO TO 200 100 CONTINUE NFAC = N2 ASSIGN 110 TO IRET GO TO 1000 110 AM1F = KFAC NFAC = N-1 ASSIGN 120 TO IRET GO TO 1000 120 AN1F = KFAC F100 = F100 + AMN2F *((-B)** N2) *DLOG(DABS(CAPX/XX)) 1 / (AM1F * AN1F) 200 CONTINUE IF (IS .LT. N1) GO TO 10 F100 = -F100 / (A ** N3) DK100 = F100 RETURN 1000 KFAC = 1 IF(NFAC.LT.2) GO TO 1020 DO 1010 LFAC=2,NFAC KFAC=KFAC*LFAC 1010 CONTINUE 1020 GO TO IRET,(5,110,120) END ================================================ FILE: mis/dk211.f ================================================ DOUBLE PRECISION FUNCTION DK211(I,A,B,X) DOUBLE PRECISION F6211, A, B, X, XX, C1, C2, AAJ, C3 DIMENSION X(1) XX = X(I) IF ( (B * XX) ** 2 - A ** 2 ) 100,1,200 1 CONTINUE IF (A .NE. B * XX) GO TO 50 F6211 = 0.5D0 * (DLOG (DABS(2.0D0 * B * XX)) ) **2 DK211 = F6211 RETURN 50 CONTINUE F6211 = 0.0D0 DK211 = F6211 RETURN 100 CONTINUE F6211 = DLOG(DABS(A))* DLOG(DABS(XX)) C1 =-B * XX / A C2 = 1.0D0 J = 0 110 J = J + 1 AAJ = J C2 = C2 * C1 C3 = C2 / (AAJ ** 2) F6211 = F6211 - C3 IF(DABS(C3) .GT. 0.1D-5) GO TO 110 DK211 = F6211 RETURN 200 CONTINUE F6211 = (DLOG(DABS(B* XX)) ** 2) / 2.0D0 C1 =-A / (B * XX) C2 = 1.0D0 J = 0 210 J = J + 1 AAJ = J C2 = C2 * C1 C3 = C2 / (AAJ ** 2) F6211 = F6211 + C3 IF(DABS(C3) .GT. 0.1D-5) GO TO 210 DK211 = F6211 RETURN END ================================================ FILE: mis/dk89.f ================================================ DOUBLE PRECISION FUNCTION DK89(I,A,B,M,N,X) DOUBLE PRECISION F89, A, B, X, CAPX, AMF, AN1, AN2, S, SF, AMMSF DOUBLE PRECISION AMN1F, ANM1F DIMENSION X(1) F89 = 0.0D0 CAPX = A + B * X(I) NFAC = M ASSIGN 5 TO IRET GO TO 1000 5 AMF = KFAC N1 = M + 1 N2 = N1 - N AN1 = N1 AN2 = N2 IS = 0 S = 0.0D0 SF = 1.0D0 AMMSF = AMF GO TO 50 10 IS = IS + 1 S = IS SF = SF * S AMMSF = AMMSF / (AN1 - S) 50 CONTINUE N3 = N2 - IS IF (N3 .EQ. 0) GO TO 100 F89 = F89 + AMF *((-A)** IS) * (CAPX ** N3) / (AMMSF * SF * 1 (AN2 - S)) GO TO 200 100 CONTINUE NFAC = N2 ASSIGN 110 TO IRET GO TO 1000 110 AMN1F = KFAC NFAC = N-1 ASSIGN 120 TO IRET GO TO 1000 120 ANM1F = KFAC F89 = F89 + AMF *((-A)** N2) *DLOG(DABS(CAPX)) / (AMN1F * ANM1F) 200 IF (IS .LT. M) GO TO 10 IF( B .EQ. 0.0D0 ) GO TO 300 F89 = F89 / (B ** N1) DK89 = F89 RETURN 300 DK89 = 0.0D0 RETURN 1000 KFAC = 1 IF(NFAC.LT.2) GO TO 1020 DO 1010 LFAC=2,NFAC KFAC=KFAC*LFAC 1010 CONTINUE 1020 GO TO IRET,(5,110,120) END ================================================ FILE: mis/dki.f ================================================ DOUBLE PRECISION FUNCTION DKI(I,J,K,L,M,N,IP,IQ,R,Z) DOUBLE PRECISION AI, R, Z, RD, ABS1, AMKL, AKKL, AMMN, AKMN, ARR DOUBLE PRECISION DKINT, DK89, DK100, DK211 DOUBLE PRECISION XX, AMM DIMENSION R(1) , Z(1) IF (R(I) .EQ. R(J)) GO TO 20 RD = R(J) IF (R(J) .EQ. 0.0D0) RD = R(I) ABS1 = DABS( (R(I) - R(J)) / RD ) IF (ABS1 .LE. 0.1D-3) GO TO 20 AMKL = (R(L)*Z(K)-R(K)*Z(L)) / (R(L)-R(K)) AKKL = (Z(L)-Z(K)) / (R(L)-R(K)) AMMN = (R(N)*Z(M)-R(M)*Z(N)) / (R(N)-R(M)) AKMN = (Z(N)-Z(M)) / (R(N)-R(M)) IF (AKMN .NE. AKKL .OR. AMMN .NE. AMKL) GO TO 30 20 AI = 0.0D0 GO TO 510 30 CONTINUE ISS = IABS(IP) IRR = IABS(IQ) IF (IQ + 1) 100,300,50 50 CONTINUE MM = IP NN = IQ + 1 AI =DKINT(I,J,AMMN,AKMN,MM,NN,R,Z) -DKINT(I,J,AMKL,AKKL,MM,NN,R,Z) GO TO 510 100 CONTINUE IF (IP .LT. 0) GO TO 200 MM = IP NN = IRR - 1 AI =DK89(I,AMKL,AKKL,MM,NN,R) - DK89(I,AMMN,AKMN,MM,NN,R) 1 -DK89(J,AMKL,AKKL,MM,NN,R) + DK89(J,AMMN,AKMN,MM,NN,R) ARR = IRR AI = (1.0D0 / (1.0D0 - ARR)) * AI GO TO 510 200 CONTINUE MM = ISS NN = IRR - 1 AI =DK100(I,AMKL,AKKL,MM,NN,R) -DK100(I,AMMN,AKMN,MM,NN,R) 1 -DK100(J,AMKL,AKKL,MM,NN,R) +DK100(J,AMMN,AKMN,MM,NN,R) ARR = IRR AI = (1.0D0 / (1.0D0 - ARR)) * AI GO TO 510 300 CONTINUE IF (IP + 1) 400,500,301 301 CONTINUE MM = IP + 1 AMM=MM XX=R(I)**MM/AMM AI= ( * +XX*DLOG(DABS(AMKL+AKKL*R(I)))-AKKL/AMM*DK89(I,AMKL,AKKL,MM,1,R) * -XX*DLOG(DABS(AMMN+AKMN*R(I)))+AKMN/AMM*DK89(I,AMMN,AKMN,MM,1,R) * ) XX=R(J)**MM/AMM AI= ( * -XX*DLOG(DABS(AMKL+AKKL*R(J)))+AKKL/AMM*DK89(J,AMKL,AKKL,MM,1,R) * +XX*DLOG(DABS(AMMN+AKMN*R(J)))-AKMN/AMM*DK89(J,AMMN,AKMN,MM,1,R) * ) + AI GO TO 510 400 CONTINUE MM = ISS - 1 AMM=MM XX=AMM*R(I)**MM AI= ( * -DLOG(DABS(AMKL+AKKL*R(I)))/XX+AKKL/AMM*DK100(I,AMKL,AKKL,MM,1,R) * +DLOG(DABS(AMMN+AKMN*R(I)))/XX-AKMN/AMM*DK100(I,AMMN,AKMN,MM,1,R) * ) XX=AMM*R(J)**M AI= ( * +DLOG(DABS(AMKL+AKKL*R(J)))/XX-AKKL/AMM*DK100(J,AMKL,AKKL,MM,1,R) * -DLOG(DABS(AMMN+AKMN*R(J)))/XX+AKMN/AMM*DK100(J,AMMN,AKMN,MM,1,R) * ) + AI GO TO 510 500 CONTINUE AI = DK211(I,AMKL,AKKL,R) - DK211(I,AMMN,AKMN,R) 1 - DK211(J,AMKL,AKKL,R) + DK211(J,AMMN,AKMN,R) 510 CONTINUE DKI = AI RETURN END ================================================ FILE: mis/dkint.f ================================================ DOUBLE PRECISION FUNCTION DKINT(I,J,A,B,IV,IW,R,Z) DOUBLE PRECISION BINT, C1P, C2P, C1, C2, AW, A, B, R, Z,DKJ, DKEF DOUBLE PRECISION SP1 DIMENSION R(1) , Z(1) BINT = 0.0D0 IW1 = IW + 1 C1P = B C2P = A C1 = C1P C2 = C2P AW = 0.0D0 IF( R(I) .NE. 0.0D0 .AND. R(J) .NE. 0.0D0 ) AW = DLOG(R(J)/R(I)) DO 100 IT = 1,IW1 IC = IW - IT + 1 IF (IC.EQ.0) C1 = 1.0D0 IF (IT.EQ.1) C2 = 1.0D0 C C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ C C THE FOLLOWING CODE REPLACES DOUBLE PRECISION FUNCTION DKEF C IF(IT.EQ.1) GO TO 20 IN=1 ID=1 DO 10 K=2,IT IN=IN*(IW-K+2) ID=ID*(K-1) 10 CONTINUE DKEF=IN/ID GO TO 30 20 DKEF=1.0D0 30 CONTINUE C C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ C C C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ C C THE FOLLOWING CODE REPLACES DOUBLE PRECISION FUNCTION DKJ C IS1 = IC+IV+1 IF(IS1.EQ.0) GO TO 60 SP1=IS1 DKJ=( R(J)**IS1 - R(I)**IS1 ) / SP1 GO TO 70 60 DKJ = AW 70 CONTINUE C C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ C BINT = BINT + C1 ** IC *DKJ * C2 ** (IT - 1) * DKEF C1 = C1P C2 = C2P 100 CONTINUE AW = IW BINT = BINT / AW DKINT = BINT RETURN END ================================================ FILE: mis/dkl.f ================================================ DOUBLE PRECISION FUNCTION DKL (NP,I,L,R,Z) C----- C THIS ROUTINE CALCULATES THE DOUBLE PRECISION DELTA(IJ) INTEGRALS C FOR AXISYMMETRIC SOLIDS IN SMA1, EMG. C C INPUT C NP = NUMBER OF POINTS (3 OR 4) C I,L= THE INTEGRAL DESIRED (I SERIES STARTS WITH -1) C R = RADIUS ARRAY (NP LONG) C Z = Z-CORD ARRAY (NP LONG) C C OUTPUT C DKL = DESIRED INTEGRAL C C----- INTEGER NAM(2) DOUBLE PRECISION A ,AJ ,AR 1, BETA 2, DR ,DZ ,DFACT ,DZJ ,DL1 3, EPS 4, FACT 5, GKL 6, ONE 7, PR 8, RA ,RB ,R(1) ,RAK ,RBK 9, TWO ,THREE *, ZA ,ZB ,ZERO ,Z(1) C DATA EPS / .01D0 / DATA ZERO,ONE,TWO,THREE / 0.0D0, 1.0D0, 2.0D0, 3.0D0 / DATA NAM / 4HDKL , 1H / C DKL = ZERO L1 = L+1 L2 = L + 2 DL1 = L1 K = I+1 C C . LOOP ON NUMBER OF POINTS... IF (R(1).LE.ZERO) GO TO 300 DO 200 M = 1,NP J = M+1 IF (M.EQ.NP) J = 1 RA = R(M) RB = R(J) ZA = Z(M) ZB = Z(J) DR = RB-RA DZ = ZB-ZA C C . TEST IF RADIUS IS .LE. 0 (DRIVER SHOULD FIND THIS)... IF (RB.LE.ZERO) GO TO 300 GKL = ZERO PR = RA+RB AR = PR / TWO C C . CHECK FOR APPROXIMATION, DR/AVE(R)... IF ( DABS ( DR/AR ) .LT. EPS ) GO TO 70 C A = ZA*DR - RA*DZ BETA = A/DR C C . CHECK FOR BETA .EQ. 0 CASE... IF (DABS (BETA / AR ) .GT. EPS ) GO TO 10 C IF (DZ.EQ.ZERO) GO TO 200 LK = L + K + 1 AR = LK GKL = (DZ/DR)**L1 * (RA**LK-RB**LK) / (DL1*AR) GO TO 200 C C . GENERAL CASE... 10 RAK = RA**K RBK = RB**K IF ( K ) 300,20,30 C C . GENERAL CASE, K.EQ.0, CONSTANT TERM... 20 GKL = DLOG (RA/RB) / DL1 GO TO 40 C C . GENERAL CASE, CONSTANT TERM... 30 AR = K * L1 GKL = (RAK - RBK) / AR C C . GENERAL CASE, SUMMATION... 40 IF (DZ.EQ.ZERO) GO TO 65 LFACT = 1 C . CALCULATE FACTORIAL (L+1)... DO 50 J = 2,L 50 LFACT = LFACT * J FACTL = LFACT JFACT = 1 AJ = ONE DZJ = ONE LMJF= LFACT * L1 DO 60 J = 1,L1 JFACT = JFACT * J C . CALCULATE (L+1-J) FACTORIAL IN LMJF... LMJF = LMJF / (L2-J) FACT = FACTL / FLOAT (JFACT*LMJF) DFACT = K + J DFACT = FACT / DFACT AJ = AJ * A RAK = RAK * RA RBK = RBK * RB DZJ = DZJ * DZ 60 GKL = GKL + (DFACT * DZJ * (RAK-RBK)) / AJ C----- 65 GKL = GKL * BETA**L1 GO TO 200 C C . APPROXIMATE CODE... 70 CONTINUE IF (DR.EQ.ZERO) GO TO 200 DZJ = L1 * L2 RBK = ZB**L1 J = K - 1 GKL = -DR * AR**J * RBK / DL1 C IF (DZ.EQ.ZERO) GO TO 200 GKL = GKL + (( (TWO*RA+RB) / THREE)**J * DR * DABS(ZA**L2-RBK*ZB)) 1 / (DZJ * DZ) C 200 DKL = DKL + GKL C----- C C . ALL DONE C 210 CONTINUE RETURN C C . ERROR... C 300 CALL MESAGE (-7,K,NAM) GO TO 210 END ================================================ FILE: mis/dkls.f ================================================ FUNCTION DKLS(NP,I,L,R,Z) C----- C THIS ROUTINE CALCULATES THE SINGLE PRECISION INTEGRALS FOR C AXISYMMETRIC SOLIDS IN EMG C C INPUT C NP = NUMBER OF POINTS (3 OR 4) C I,L= THE INTEGRAL DESIRED (I SERIES STARTS WITH -1) C R = RADIUS ARRAY (NP LONG) C Z = Z-CORD ARRAY (NP LONG) C C OUTPUT C DKL = DESIRED INTEGRAL C C----- INTEGER NAM(2) REAL R(3),Z(3) DATA EPS /.01/, NAM /4HDKLS ,1H / DATA ZERO, ONE, TWO / 0., 1., 2. / C DKLS= ZERO L1 = L+1 L2 = L + 2 DL1 = L1 K = I+1 C C . LOOP ON NUMBER OF POINTS... IF (R(1).LE.ZERO) GO TO 300 DO 200 M = 1,NP J = M+1 IF (M.EQ.NP) J = 1 RA = R(M) RB = R(J) ZA = Z(M) ZB = Z(J) DR = RB-RA DZ = ZB-ZA C C . TEST IF RADIUS IS .LE. 0 (DRIVER SHOULD FIND THIS)... IF (RB.LE.ZERO) GO TO 300 GKL = ZERO PR = RA+RB AR = PR / TWO C C . CHECK FOR APPROXIMATION, DR/AVE(R)... IF (ABS(DR/AR) .LT. EPS) GO TO 70 C A = ZA*DR - RA*DZ BETA = A/DR C C . CHECK FOR BETA .EQ. 0 CASE... IF ( ABS (BETA / AR ) .GT. EPS ) GO TO 10 C IF (DZ.EQ.ZERO) GO TO 200 LK = L + K + 1 AR = LK GKL = (DZ/DR)**L1 * (RA**LK-RB**LK) / (DL1*AR) GO TO 200 C C . GENERAL CASE... 10 RAK = RA**K RBK = RB**K IF ( K ) 300,20,30 C C . GENERAL CASE, K.EQ.0, CONSTANT TERM... 20 GKL = ALOG(RA/RB)/DL1 GO TO 40 C C . GENERAL CASE, CONSTANT TERM... 30 AR = K * L1 GKL = (RAK - RBK) / AR C C . GENERAL CASE, SUMMATION... 40 IF (DZ.EQ.ZERO) GO TO 65 LFACT = 1 C . CALCULATE FACTORIAL (L+1)... DO 50 J = 2,L 50 LFACT = LFACT * J FACTL = LFACT JFACT = 1 AJ = ONE DZJ = ONE LMJF= LFACT * L1 DO 60 J = 1,L1 JFACT = JFACT * J C . CALCULATE (L+1-J) FACTORIAL IN LMJF... LMJF = LMJF / (L2-J) FACT = FACTL / FLOAT (JFACT*LMJF) DFACT = K + J DFACT = FACT / DFACT AJ = AJ * A RAK = RAK * RA RBK = RBK * RB DZJ = DZJ * DZ 60 GKL = GKL + (DFACT * DZJ * (RAK-RBK)) / AJ C----- 65 GKL = GKL * BETA**L1 GO TO 200 C C . APPROXIMATE CODE... 70 CONTINUE IF (DR.EQ.ZERO) GO TO 200 DZJ = L1 * L2 RBK = ZB**L1 J = K - 1 GKL = -DR * AR**J * RBK / DL1 C IF (DZ.EQ.ZERO) GO TO 200 GKL = GKL + (((2.*RA+RB)/3.)**J *DR*ABS(ZA**L2 - RBK*ZB))/(DZJ*DZ) C 200 DKLS= DKLS+ GKL C----- C C . ALL DONE C 210 CONTINUE RETURN C C . ERROR... C 300 CALL MESAGE (-7,K,NAM) GO TO 210 END ================================================ FILE: mis/dlamby.f ================================================ SUBROUTINE DLAMBY(INPUT,MATOUT,SKJ) C C DRIVER FOR DOUBLET LATTICE WITH BODIES C INTEGER ECORE,SYSBUF,IZ(1),TSKJ,SKJ INTEGER SCR1,SCR2,SCR3,SCR4,SCR5 DIMENSION NAME(2) COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / NK,NJ COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK COMMON /DLBDY / NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS, 1 INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA, 2 IZB,IYB,IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122, 3 IZS,IYS,ICS,IEE,ISG,ICG,IXIJ,IX,IDELX,IXIC,IXLAM, 4 IA0,IXIS1,IXIS2,IA0P,IRIA,INASB,IFLA1,IFLA2, 5 ITH1A,ITH2A,ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5, 6 NTBE EQUIVALENCE (IZ(1),Z(1)) DATA NAME /4HDLAM,4HBY / DATA NHAERO,NHPOIN,NHCORE / 4HAERO,4HPOIN,4HCORE/ C SCR1 = 301 SCR2 = 302 SCR3 = 303 SCR4 = 304 SCR5 = 305 C C GET CORE THEN SET POINTERS TO ACPT TABLE ARRAYS C ECORE = KORSZ(IZ) - 4*SYSBUF C C READ LENGTHS OF ARRAYS C CALL FREAD(INPUT,NJ1,13,0) C C COMPUTE POINTERS TO OPEN CORE C LNS = INC INC = 1 INS = INC INB = INS + NP INAS = INB + NP IZIN = INAS IYIN = IZIN INBEA1 = IYIN + NP INBEA2 = INBEA1 + NB INSBEA = INBEA2 + NB IZB = INSBEA + NB IYB = IZB + NB IAVR = IYB + NB IARB = IAVR + NB INFL = IARB + NB IXLE = INFL + NB IXTE = IXLE + NB INT121 = IXTE + NB INT122 = INT121 + NB IZS = INT122 + NB N = 3*NP + 12 * NB C C READ FIXED ARRAYS C IF(N .GT. ECORE) GO TO 998 CALL FREAD(INPUT,IZ,N,0) C C GET LENGTHS OF VARIABLE ARRAYS, PANELS THEN BODIES C LNAS = 0 IF(NP .EQ. 0) GO TO 20 DO 10 I=1,NP 10 LNAS = LNAS + IZ(INAS+I-1) 20 LNB = 0 LNSB = 0 LNFL = 0 LT1 = 0 LT2 = 0 DO 30 I=1,NB K = I-1 LNB = LNB + IZ(INBEA1+K) LNSB = LNSB + IZ(INSBEA+K) LNFL = LNFL + IZ(INFL+K) LT1 = LT1 + IZ(INT121+K) 30 LT2 = LT2 + IZ(INT122+K) NTBE = NTP+LNB C C READ VARIABLE ARRAYS AND SET POINTERS TO CORE C NEXT = N+1 N = 2*NB + 5*LNS + 4*NTP + 3*LNB + 4*LNSB + LNAS + 2*LNFL * + LT1 + LT2 IF(NEXT+N+4*NJ.GE.ECORE) GO TO 998 CALL FREAD(INPUT,IZ(NEXT),N,1) NEXT = NEXT + N + 1 IYS = IZS + NB + LNS ICS = IYS IEE = ICS + NB + LNS ISG = IEE + LNS ICG = ISG + LNS IXIJ = ICG IX = IXIJ + LNS IDELX = IX + NTP + LNB IXIC = IDELX + NTP + LNB IXLAM = IXIC + NTP IA0 = IXLAM + NTP IXIS1 = IA0 + LNSB IXIS2 = IXIS1 + LNSB IA0P = IXIS2 + LNSB IRIA = IA0P + LNSB INASB = IRIA + LNB IFLA1 = INASB + LNAS IFLA2 = IFLA1 + LNFL ITH1A = IFLA2 + LNFL ITH2A = ITH1A + LT1 C C BUILD A MATRIX C CALL BUG(NHAERO,100,ND,5) CALL BUG(NHPOIN,100,NJ1,59) CALL BUG(NHCORE,100,Z,NEXT) N1 = NEXT N = NEXT + 2*NTBE NEXT = NEXT + 4*NTBE IF(NT0 .NE. 0) CALL GENDSB(Z(INC),Z(INB),Z(ISG),Z(ICG),Z(INFL), * Z(INBEA1),Z(INBEA2),Z(IFLA1),Z(IFLA2),Z(N1),Z(N1),Z(N)) N = NTZS + NTYS NEXT = N1 BETA = SQRT(1.0-FMACH**2) IF( NT0 .NE. 0 .AND. N .NE. 0) CALL AMGROD(Z(N1),BETA) CALL AMGSBA(MATOUT,Z(IA0),Z(IARB),Z(INSBEA),Z(N1),Z(IYB),Z(IZB)) NROW = NROW + NJ1 C C BUILD SKJ MATRIX BE SURE TO BUMP ISK NSK C CALL AMGBFS(SKJ,Z(IEE),Z(IDELX),Z(INC),Z(INB),Z(IXIS2),Z(IXIS1), * Z(IA0),Z(IA0P),Z(INSBEA)) 1000 RETURN C C ERROR MESSAGES C 998 CALL MESAGE(-8,0,NAME) GO TO 1000 END ================================================ FILE: mis/dlamg.f ================================================ SUBROUTINE DLAMG(INPUT,MATOUT,SKJ) C C DRIVER FOR THE DOUBLET LATTICE METHOD C COMPUTATIONS ARE FOR THE AJJL MATRIX C INTEGER ECORE,SYSBUF,IZ(1),SKJ DIMENSION NAME(2),A(2) COMPLEX DT(1) COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK COMMON /DLCOM / NP,NSTRIP,NTP,F,NJJ,NEXT,LENGTH, 1 INC,INB,IYS,IZS,IEE,ISG,ICG, 2 IXIC,IDELX,IXLAM,IDT,ECORE COMMON /ZZZZZZ/ WORK(1) COMMON /SYSTEM/ SYSBUF COMMON /BLANK / NK,NJ EQUIVALENCE (WORK(1),IZ(1),DT(1)) DATA NAME / 4HDLAM,4HG / C NJJ = NJ C C READ IN NP,NSIZE,NTP,F C CALL READ(*999,*999,INPUT,NP,4,0,N) C C COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE C ECORE = KORSZ(IZ) ECORE = ECORE - 4 * SYSBUF INC = 1 INB = INC + NP IYS = INB + NP IZS = IYS + NSTRIP IEE = IZS + NSTRIP ISG = IEE + NSTRIP ICG = ISG + NSTRIP IXIC = ICG + NSTRIP IDELX = IXIC + NTP IXLAM = IDELX + NTP NREAD = IXLAM + NTP C IDT IS A COMPLEX POINTER C THE MATRIX PACKED OUT IS NJ LONG STARTING AT DT IDT = (NREAD +2) / 2 NEXT = IDT*2 + 2*NJ + 1 C C FILL IN DATA C IF(NEXT .GT. ECORE) GO TO 998 NREAD = NREAD -1 CALL READ(*999,*999,INPUT,WORK,NREAD,1,N) C C CHECK FOR ENOUGH SCRATCH STORAGE C N = INC + NP -1 LENGTH = 1 C C PUT OUT SKJ C ITI = 1 ITO = 3 II = ISK NSK = NSK + 2 NN = NSK K = 0 KS = 0 NBXR=IZ(INC+K) DO 5 I=1,NTP A(1) = 2.0 * WORK(IEE+KS) * WORK(IDELX+I-1) A(2) = (WORK(IEE+KS) * WORK(IDELX+I-1)**2)/ 2.0 CALL PACK( A,SKJ,TSKJ) II = II +2 IF(I.EQ.NTP) GO TO 5 NN = NN +2 IF(I.EQ.IZ(INB+K)) K = K+1 IF(I.EQ.NBXR) GO TO 4 GO TO 5 4 KS = KS +1 NBXR = NBXR + IZ(INC+K) 5 CONTINUE ISK = II NSK = NN ITI = 3 ITO = 3 II = 1 NN = NJ CALL GEND(WORK(INC),WORK(INB),WORK(IYS),WORK(IZS), 1 WORK(ISG),WORK(ICG),DT(IDT),WORK(1),MATOUT) NROW = NROW + NTP RETURN C C ERROR MESSAGES C C NOT ENOUGH CORE 998 CALL MESAGE(-8,0,NAME) C INPUT NOT POSITIONED PROPERLY OR INCORRECTLY WRITTEN 999 CALL MESAGE(-7,0,NAME) RETURN END ================================================ FILE: mis/dlbpt2.f ================================================ SUBROUTINE DLBPT2 (INPUT,W1JK,W2JK) C INTEGER W1JK,W2JK,SYSBUF,ECORE,TW1JK,TW2JK,NAME(2) DIMENSION A(4),IZ(1) COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /AMGP2 / TW1JK(7),TW2JK(7) COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS, 1 Z(1) EQUIVALENCE (IZ(1),Z(1)) DATA NAME / 4HDLBP,4HT2 / C C GET CORE THEN SET POINTERS TO ACPT TABLE ARRAYS C ECORE = KORSZ(IZ) - 4*SYSBUF C C READ LENGTHS OF ARRAYS C CALL FREAD (INPUT,NJ1,13,0) C C COMPUTE POINTERS TO OPEN CORE C IF (NTP .EQ. 0) CALL FREAD (INPUT,0,0,1) IF (NTP .EQ. 0) GO TO 50 LNS = IZ(1) INC = 1 INS = INC INB = INS + NP INAS = INB + NP IZIN = INAS IYIN = IZIN INBEA1 = IYIN + NP INBEA2 = INBEA1 + NB INSBEA = INBEA2 + NB IZB = INSBEA + NB IYB = IZB + NB IAVR = IYB + NB IARB = IAVR + NB INFL = IARB + NB IXLE = INFL + NB IXTE = IXLE + NB INT121 = IXTE + NB INT122 = INT121 + NB IZS = INT122 + NB N = 3*NP + 12*NB C C READ FIXED ARRAYS C IF (N .GT. ECORE) GO TO 180 CALL FREAD (INPUT,IZ,N,0) C C GET LENGTHS OF VARIABLE ARRAYS, PANELS THEN BODIES C LNAS = 0 IF (NP .EQ. 0) GO TO 20 DO 10 I = 1,NP 10 LNAS = LNAS + IZ(INAS+I-1) 20 LNB = 0 LNSB = 0 LNFL = 0 LT1 = 0 LT2 = 0 DO 30 I = 1,NB K = I - 1 LNB = LNB + IZ(INBEA1+K) LNSB = LNSB + IZ(INSBEA+K) LNFL = LNFL + IZ(INFL+K) LT1 = LT1 + IZ(INT121+K) 30 LT2 = LT2 + IZ(INT122+K) C C READ VARIABLE ARRAYS AND SET POINTERS TO CORE C NEXT = N + 1 N = 2*NB + 5*LNS + 4*NTP + 3*LNB + 4*LNSB + LNAS + 2*LNFL * + LT1 + LT2 IF (NEXT+N .GE. ECORE) GO TO 180 CALL READ (*190,*190,INPUT,IZ(NEXT),N,1,NW) NEXT = NEXT+ N + 1 IYS = IZS + NB + LNS ICS = IYS IEE = ICS + NB + LNS ISG = IEE + LNS ICG = ISG + LNS IXIJ = ICG IX = IXIJ+ LNS IDELX= IX + NTP + LNB C C COMPUTE TERMS AND PACK C NN = II + 1 DO 40 I = 1,NTP A(1) = 0.0 A(2) = 1.0 CALL PACK (A,W1JK,TW1JK) A(1) = -(2.0/REFC) A(2) = Z(IDELX+I-1)/(2.0*REFC) CALL PACK (A,W2JK,TW2JK) C C BUMP PACK INDEXES C II = II + 2 IF (I .EQ. NTP) GO TO 40 NN = NN + 2 40 CONTINUE 50 NTZY = NTZ + NTY IF (NTZY .EQ. 0) GO TO 70 NN = II + 1 A(1) = 0.0 A(2) = 0.0 DO 60 I = 1,NTZY CALL PACK (A,W1JK,TW1JK) CALL PACK (A,W2JK,TW2JK) 60 CONTINUE 70 NTZY = NTZS + NTYS IF (NTZY .EQ. 0) GO TO 200 C C ANOTHER HARDER SHUFFLE C III = II INBEA2 = INBEA2 - 1 INSBEA = INSBEA - 1 IFY = II IF (NBZ .EQ. 0) GO TO 120 DO 110 I = 1,NBZ IBT = IZ(INBEA2+I) NBE = IZ(INSBEA+I) IF (IBT .EQ. 2) GO TO 90 A(1) = 0.0 A(2) = 1.0 A(3) = -2.0/REFC A(4) = 0.0 DO 80 J = 1,NBE NN = II + 1 CALL PACK (A,W1JK,TW1JK) CALL PACK (A(3),W2JK,TW2JK) II = II + 2 IFY = II 80 CONTINUE GO TO 110 90 A(1) = 0.0 A(4) = 0.0 DO 100 J = 1,NBE NN = II + 3 A(2) = 0.0 A(3) = 1.0 CALL PACK (A,W1JK,TW1JK) A(2) = -2.0/REFC A(3) = 0.0 CALL PACK (A,W2JK,TW2JK) II = II + 4 100 CONTINUE 110 CONTINUE 120 IF (NBY .EQ. 0) GO TO 170 II = IFY NBTD = NB - NBY + 1 DO 160 I = NBTD,NB IBT = IZ(INBEA2+I) NBE = IZ(INSBEA+I) IF (IBT .EQ. 3) GO TO 140 A(2) = 0.0 A(3) = 0.0 DO 130 J = 1,NBE NN = II + 3 A(1) = 0.0 A(4) =-1.0 CALL PACK (A,W1JK,TW1JK) A(1) = -2.0/REFC A(4) = 0.0 CALL PACK (A,W2JK,TW2JK) II = II + 4 130 CONTINUE GO TO 160 140 A(1) = 0.0 A(2) =-1.0 A(3) =-2.0/REFC A(4) = 0.0 DO 150 J = 1,NBE NN = II + 1 CALL PACK (A,W1JK,TW1JK) CALL PACK (A(3),W2JK,TW2JK) II = II + 2 150 CONTINUE 160 CONTINUE 170 II = III + NTZY*2 NN = II - 1 GO TO 200 C C ERROR MESSAGES C 180 CALL MESAGE (-8,0,NAME) 190 CALL MESAGE (-7,0,NAME) 200 RETURN END ================================================ FILE: mis/dlkapm.f ================================================ SUBROUTINE DLKAPM (ARG,BLKAPM) C C SUBROUTINE FOR COMPUTING LOGARITHMIC DERIVATIVE OF KAPPA MINUS C COMPLEX BLKAPM,AI,C1,D1,D2,C1TEST,ARG,E1,ALP0,ALP,ALN CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IBBOUT COMMON /BLK1 / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES C C1 =-AI/2.0*(SPS-SNS) PI2 = 2.0*PI S1 = SPS/(DSTR**2) S2 = SNS/DSTR GAM0 = SPS*DEL - SIGMA C2Q = GAM0/DSTR - SCRK C3Q = GAM0/DSTR + SCRK NN = 0 CSEC = C2Q*C3Q IF (CSEC .LT. 0.0) NN = 1 T1 = GAM0*S1 T2 = S2*SQRT(ABS(CSEC)) IF (C2Q.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2 IF (NN .EQ. 0) ALP0 = T1 + T2 IF (NN .EQ. 1) ALP0 = CMPLX(T1,T2) C1 = C1 + 1.0/(ARG-ALP0) A1 = PI2/(SPS-SNS) A2 =-A1 B1 = GAM0/(SPS-SNS) C1TEST = 0.0 DO 20 I = 1,200 R = I GAMP = PI2*R + GAM0 GAMN =-PI2*R + GAM0 C2P = GAMP/DSTR - SCRK C2Q = GAMP/DSTR + SCRK C2N = GAMN/DSTR - SCRK C3Q = GAMN/DSTR + SCRK NN = 0 CSEC = C2P*C2Q IF (CSEC .LT. 0.0) NN = 1 T1 = GAMP*S1 T2 = S2*SQRT(ABS(CSEC)) IF (C2P.LT.0.0 .AND. C2Q.LT.0.0) T2 =-T2 IF (NN .EQ. 0) ALP = T1 + T2 IF (NN .EQ. 1) ALP = CMPLX(T1,T2) NN = 0 CSEC = C2N*C3Q IF (CSEC .LT. 0.0) NN = 1 T1 = GAMN*S1 T2 = S2*SQRT(ABS(CSEC)) IF (C2N.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2 IF (NN .EQ. 0) ALN = T1 + T2 IF (NN .EQ. 1) ALN = CMPLX(T1,T2) E1 = A1*R + B1 - ARG D1 = (ALP-A1*R-B1)/E1 D2 = D1/E1 C1 = C1 + 1.0/(1.0+D1)*D2 E1 = A2*R + B1 - ARG D1 = (ALN-A2*R-B1)/E1 D2 = D1/E1 C1 = C1 + 1.0/(1.0+D1)*D2 IF (CABS((C1-C1TEST)/C1) .LT. 0.0006) GO TO 50 C1TEST = C1 20 CONTINUE GO TO 70 50 CONTINUE E1 = ARG - B1 B = PI/A1 C1 = C1 - 1.0/E1 + B*CCOS(B*E1)/(CSIN(B*E1)) BLKAPM = C1 RETURN C 70 WRITE (IBBOUT,80) UFM 80 FORMAT (A23,' - AMG MODULE -SUBROUTINE DLKAPM') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/dloop.f ================================================ SUBROUTINE DLOOP (X,Y,MPY,END) C******* C DLOOP IMPROVES THE EFFICIENCY OF AN INNER DCOMP LOOP C******* DOUBLE PRECISION X(1) ,Y(1) ,MPY C******* C DDLOOP IMPROVES THE EFFICIENCY OF THE ACTIVE ROW LOOP C******* DOUBLE PRECISION A ,B(1) ,C(1) DOUBLE PRECISION XX(1),YY(1) INTEGER END DO 10 I = 1,END 10 X(I) = X(I)+MPY*Y(I) RETURN C******************************* ENTRY DDLOOP (A,B,C,ENDD) DO 20 I = 1,ENDD 20 A = A-B(I)*C(I) RETURN C************ C ENTRY FOR ANOTHER LOOP C*********** ENTRY XLOOP(XX,YY,NN) DO 105 I = 1,NN 105 XX(I) = YY(I) RETURN END ================================================ FILE: mis/dlpt2.f ================================================ SUBROUTINE DLPT2 (INPUT,W1JK,W2JK) C INTEGER W1JK,W2JK,SYSBUF,ECORE,TW1JK,TW2JK,NAME(2) DIMENSION A(2),NP(4),IZ(1) COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /AMGP2 / TW1JK(7),TW2JK(7) COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ WORK(1) EQUIVALENCE (NP(2),NSTRIP),(NP(3),NTP) EQUIVALENCE (WORK(1),IZ(1)) DATA NAME / 4HDLPT,4H2 / C C READ IN NP,NSIZE,NTP,F C CALL READ(*999,*999,INPUT,NP,4,0,N) C C COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE C ECORE = KORSZ(IZ) ECORE = ECORE - 4*SYSBUF NN = II +1 INC = 0 INB = INC + NP(1) IYS = INB + NP(1) IZS = IYS + NSTRIP IEE = IZS + NSTRIP ISG = IEE + NSTRIP ICG = ISG + NSTRIP IXIC = ICG + NSTRIP IDELX = IXIC + NTP IXLAM = IDELX + NTP NREAD = IXLAM + NTP C C FILL IN DATA C IF(NREAD.GT. ECORE) GO TO 998 CALL READ(*999,*999,INPUT,WORK,NREAD,1,N) C C COMPUTE TERMS AND PACK C DO 10 I = 1,NTP A(1) = 0.0 A(2) = 1.0 CALL PACK(A,W1JK,TW1JK) A(1) = -(2.0/REFC) A(2)=WORK(IDELX+I) / (2.0*REFC) CALL PACK(A,W2JK,TW2JK) C C BUMP PACK INDEXES C II = II +2 IF(I.EQ.NTP) GO TO 10 NN = NN + 2 10 CONTINUE RETURN C C ERROR MESSAGES C C NOT ENOUGH CORE 998 CALL MESAGE(-8,0,NAME) C FILE NOT POSITIONED PROPERLY 999 CALL MESAGE(-7,0,NAME) RETURN END ================================================ FILE: mis/dmatrs.f ================================================ SUBROUTINE DMATRS (D,V,C,CA, CA2, VA, DM, DB, YI) C C C THIS ROUTINE COMPUTES THE STIFFNESS MATRIX IN FIELD COORDINATES FOR C THE TOROIDAL RING C C C NOTE THE DOUBLE SUBSCRIPTING USED IN DMATRIX SUBROUTINE IS C COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS C IS A (11X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING C PROGRAM AND IT IS A (6X11) DOUBLY SUBSCRIPTED ARRAY (STORED C COLUMNWISE) IN DMATRX ROUTINE. C C DIMENSION D (10,10) , YI (6,11) C C ------------------------------------------------------------------ C D(1,1) = DM * (CA2*YI(1,1) + 2.*VA*YI(2,1) + YI(3,1)) D(2,1) = DM * (CA2*YI(1,2) + 2.*VA*YI(2,2) + YI(3,2)) D(3,1) = DM * (CA2*YI(1,3) + 2.*VA*YI(2,3) + YI(3,3)) D(4,1) = DM * (CA2*YI(1,4) + 2.*VA*YI(2,4) + YI(3,4)) D(5,1) = DM * (CA2*YI(1,5) + 2.*VA*YI(2,5) + YI(3,5)) D(6,1) = DM * (CA2*YI(1,6) + 2.*VA*YI(2,6) + YI(3,6)) D(7,1) = DM * (VA*YI(4,1) + YI(5,1)) D(8,1) = DM * (CA*YI(1,1) + VA*YI(4,2) + V*YI(2,1) + YI(5,2)) D(9,1) = DM * (2.*CA*YI(1,2) + VA*YI(4,3) + 2.*V*YI(2,2) + YI(5 1 ,3)) D(10,1) = DM * (3.*CA*YI(1,3) + VA*YI(4,4) + 3.*V*YI(2,3) + YI(5 1 ,4)) D(2,2) = DB * YI(6,1) + D(3,1) D(3,2) = DB * (2.*V*YI(4,1) + 2.*YI(6,2)) + D(4,1) D(4,2) = DB * (6.*V*YI(4,2) + 3.*YI(6,3)) + D(5,1) D(5,2) = DB * (12.*V*YI(4,3) + 4.*YI(6,4)) + D(6,1) D(6,2) = DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7)) + 1 DB * (20.*V*YI(4,4) + 5.*YI(6,5)) D (7,2) = DM * (VA*YI(4,2) + YI(5,2)) D(8,2) = DM * (CA*YI(1,2) + VA*YI(4,3) + V*YI(2,2) + YI(5,3)) D(9,2) = DM * (2.*CA*YI(1,3) + VA*YI(4,4) + 2.*V*YI(2,3) + YI(5 1 ,4)) D(10,2) = DM * (3.*CA*YI(1,4) + VA*YI(4,5) + 3.*V*YI(2,4) + YI(5 1 ,5)) D(3,3) = DB * 4.*(C*YI(1,1) + 2.*V*YI(4,2) + YI(6,3)) + D(5,1) D(4,3) = DB * 6.*(2.*C*YI(1,2) + 3.*V*YI(4,3) + YI(6,4))+D(6,1) D(5,3) = DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7)) + 1 DB * 2.*(12.*C*YI(1,3)+ 16.*V*YI(4,4)+ 4.*YI(6,5)) D(6,3) = DM * (CA2*YI(1,8) + 2.*VA*YI(2,8) + YI(3,8)) + 1 DB * 10.*(4.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6)) D (7,3) = DM * (VA*YI(4,3) + YI(5,3)) D(8,3) = DM * (CA*YI(1,3) + VA*YI(4,4) + V*YI(2,3) + YI(5,4)) D(9,3) = DM * (2.*CA*YI(1,4) + VA*YI(4,5) + 2.*V*YI(2,4) + YI(5 1 ,5)) D(10,3) = DM * (3.*CA*YI(1,5) + VA*YI(4,6) + 3.*V*YI(2,5) + YI(5 1 ,6)) D(4,4) = DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7)) + 1 DB * 9.*(4.*C*YI(1,3) + 4.*V*YI(4,4) + YI(6,5)) D(5,4) = DM * (CA2*YI(1,8) + 2.*VA*YI(2,8) + YI(3,8)) + 1 DB * 12.*(6.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6)) D(6,4) = DM * (CA2*YI(1,9) + 2.*VA*YI(2,9) + YI(3,9)) + 1 DB * 15.*(8.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7)) D (7,4) = DM * (VA*YI(4,4) + YI(5,4)) D(8,4) = DM * (CA*YI(1,4) + VA*YI(4,5) + V*YI(2,4) + YI(5,5)) D(9,4) = DM * (2.*CA*YI(1,5) + VA*YI(4,6) + 2.*V*YI(2,5) + YI(5 1 ,6)) D(10,4) = DM * (3.*CA*YI(1,6) + VA*YI(4,7) + 3.*V*YI(2,6) + 1 YI(5,7)) D(5,5) = DM * (CA2*YI(1,9) + 2.*VA*YI(2,9) + YI(3,9)) + 1 DB * 16.*(9.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7)) D(6,5) = DM * (CA2*YI(1,10) + 2.*VA*YI(2,10) + YI(3,10)) + 1 DB * 20.*(12.*C*YI(1,6) + 7.*V*YI(4,7) + YI(6,8)) D (7,5) = DM * (VA*YI(4,5) + YI(5,5)) D(8,5) = DM * (CA*YI(1,5) + VA*YI(4,6) + V*YI(2,5) + YI(5,6)) D(9,5) = DM * (2.*CA*YI(1,6) + VA*YI(4,7) + 2.*V*YI(2,6) + YI(5 1 ,7)) D(10,5) = DM * (3.*CA*YI(1,7) + VA*YI(4,8) + 3.*V*YI(2,7) + YI(5 1 ,8)) D(6,6) = DM * (CA2*YI(1,11) + 2.*VA*YI(2,11) + YI(3,11)) + 1 DB * 25.*(16.*C*YI(1,7) + 8.*V*YI(4,8) + YI(6,9)) D (7,6) = DM * (VA*YI(4,6) + YI(5,6)) D(8,6) = DM * (CA*YI(1,6) + VA*YI(4,7) + V*YI(2,6) + YI(5,7)) D(9,6) = DM * (2.*CA*YI(1,7) + VA*YI(4,8) + 2.*V*YI(2,7) + YI(5 1 ,8)) D(10,6) = DM * (3.*CA*YI(1,8) + VA*YI(4,9) + 3.*V*YI(2,8) + YI(5 1 ,9)) D (7,7) = DM * YI(6,1) D (8,7) = DM * (V*YI(4,1) + YI(6,2)) D (9,7) = DM * (2.*V*YI(4,2) + YI(6,3)) D (10,7) = DM * (3.*V*YI(4,3) + YI(6,4)) D(8,8) = DM * (C*YI(1,1) + 2.*V*YI(4,2) + YI(6,3)) D(9,8) = DM * (2.*C*YI(1,2) + 3.*V*YI(4,3) + YI(6,4)) D(10,8) = DM * (3.*C*YI(1,3) + 4.*V *YI(4,4)+ YI(6,5)) D(9,9) = DM * (4.*C*YI(1,3) + 4.*V*YI(4,4) + YI(6,5)) D(10,9) = DM * (6.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6)) D(10,10) = DM * (9.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7)) DO 147 I=1,10 DO 147 J=1,I D(J,I) = D(I,J) 147 CONTINUE RETURN END ================================================ FILE: mis/dmatrx.f ================================================ SUBROUTINE DMATRX (D,V,C,CA, CA2, VA, DM, DB, YI) C C C THIS ROUTINE COMPUTES THE STIFFNESS MATRIX IN FIELD COORDINATES FOR C THE TOROIDAL RING C C C NOTE THE DOUBLE SUBSCRIPTING USED IN DMATRIX SUBROUTINE IS C COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS C IS A (11X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING C PROGRAM AND IT IS A (6X11) DOUBLY SUBSCRIPTED ARRAY (STORED C COLUMNWISE) IN DMATRX ROUTINE. C C DOUBLE PRECISION D, V, C, CA, CA2, VA, DM, DB, YI DIMENSION D (10,10) , YI (6,11) C C ------------------------------------------------------------------ C D(1,1) = DM * (CA2*YI(1,1) + 2.*VA*YI(2,1) + YI(3,1)) D(2,1) = DM * (CA2*YI(1,2) + 2.*VA*YI(2,2) + YI(3,2)) D(3,1) = DM * (CA2*YI(1,3) + 2.*VA*YI(2,3) + YI(3,3)) D(4,1) = DM * (CA2*YI(1,4) + 2.*VA*YI(2,4) + YI(3,4)) D(5,1) = DM * (CA2*YI(1,5) + 2.*VA*YI(2,5) + YI(3,5)) D(6,1) = DM * (CA2*YI(1,6) + 2.*VA*YI(2,6) + YI(3,6)) D(7,1) = DM * (VA*YI(4,1) + YI(5,1)) D(8,1) = DM * (CA*YI(1,1) + VA*YI(4,2) + V*YI(2,1) + YI(5,2)) D(9,1) = DM * (2.*CA*YI(1,2) + VA*YI(4,3) + 2.*V*YI(2,2) + YI(5 1 ,3)) D(10,1) = DM * (3.*CA*YI(1,3) + VA*YI(4,4) + 3.*V*YI(2,3) + YI(5 1 ,4)) D(2,2) = DB * YI(6,1) + D(3,1) D(3,2) = DB * (2.*V*YI(4,1) + 2.*YI(6,2)) + D(4,1) D(4,2) = DB * (6.*V*YI(4,2) + 3.*YI(6,3)) + D(5,1) D(5,2) = DB * (12.*V*YI(4,3) + 4.*YI(6,4)) + D(6,1) D(6,2) = DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7)) + 1 DB * (20.*V*YI(4,4) + 5.*YI(6,5)) D (7,2) = DM * (VA*YI(4,2) + YI(5,2)) D(8,2) = DM * (CA*YI(1,2) + VA*YI(4,3) + V*YI(2,2) + YI(5,3)) D(9,2) = DM * (2.*CA*YI(1,3) + VA*YI(4,4) + 2.*V*YI(2,3) + YI(5 1 ,4)) D(10,2) = DM * (3.*CA*YI(1,4) + VA*YI(4,5) + 3.*V*YI(2,4) + YI(5 1 ,5)) D(3,3) = DB * 4.*(C*YI(1,1) + 2.*V*YI(4,2) + YI(6,3)) + D(5,1) D(4,3) = DB * 6.*(2.*C*YI(1,2) + 3.*V*YI(4,3) + YI(6,4))+D(6,1) D(5,3) = DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7)) + 1 DB * 2.*(12.*C*YI(1,3)+ 16.*V*YI(4,4)+ 4.*YI(6,5)) D(6,3) = DM * (CA2*YI(1,8) + 2.*VA*YI(2,8) + YI(3,8)) + 1 DB * 10.*(4.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6)) D (7,3) = DM * (VA*YI(4,3) + YI(5,3)) D(8,3) = DM * (CA*YI(1,3) + VA*YI(4,4) + V*YI(2,3) + YI(5,4)) D(9,3) = DM * (2.*CA*YI(1,4) + VA*YI(4,5) + 2.*V*YI(2,4) + YI(5 1 ,5)) D(10,3) = DM * (3.*CA*YI(1,5) + VA*YI(4,6) + 3.*V*YI(2,5) + YI(5 1 ,6)) D(4,4) = DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7)) + 1 DB * 9.*(4.*C*YI(1,3) + 4.*V*YI(4,4) + YI(6,5)) D(5,4) = DM * (CA2*YI(1,8) + 2.*VA*YI(2,8) + YI(3,8)) + 1 DB * 12.*(6.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6)) D(6,4) = DM * (CA2*YI(1,9) + 2.*VA*YI(2,9) + YI(3,9)) + 1 DB * 15.*(8.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7)) D (7,4) = DM * (VA*YI(4,4) + YI(5,4)) D(8,4) = DM * (CA*YI(1,4) + VA*YI(4,5) + V*YI(2,4) + YI(5,5)) D(9,4) = DM * (2.*CA*YI(1,5) + VA*YI(4,6) + 2.*V*YI(2,5) + YI(5 1 ,6)) D(10,4) = DM * (3.*CA*YI(1,6) + VA*YI(4,7) + 3.*V*YI(2,6) + 1 YI(5,7)) D(5,5) = DM * (CA2*YI(1,9) + 2.*VA*YI(2,9) + YI(3,9)) + 1 DB * 16.*(9.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7)) D(6,5) = DM * (CA2*YI(1,10) + 2.*VA*YI(2,10) + YI(3,10)) + 1 DB * 20.*(12.*C*YI(1,6) + 7.*V*YI(4,7) + YI(6,8)) D (7,5) = DM * (VA*YI(4,5) + YI(5,5)) D(8,5) = DM * (CA*YI(1,5) + VA*YI(4,6) + V*YI(2,5) + YI(5,6)) D(9,5) = DM * (2.*CA*YI(1,6) + VA*YI(4,7) + 2.*V*YI(2,6) + YI(5 1 ,7)) D(10,5) = DM * (3.*CA*YI(1,7) + VA*YI(4,8) + 3.*V*YI(2,7) + YI(5 1 ,8)) D(6,6) = DM * (CA2*YI(1,11) + 2.*VA*YI(2,11) + YI(3,11)) + 1 DB * 25.*(16.*C*YI(1,7) + 8.*V*YI(4,8) + YI(6,9)) D (7,6) = DM * (VA*YI(4,6) + YI(5,6)) D(8,6) = DM * (CA*YI(1,6) + VA*YI(4,7) + V*YI(2,6) + YI(5,7)) D(9,6) = DM * (2.*CA*YI(1,7) + VA*YI(4,8) + 2.*V*YI(2,7) + YI(5 1 ,8)) D(10,6) = DM * (3.*CA*YI(1,8) + VA*YI(4,9) + 3.*V*YI(2,8) + YI(5 1 ,9)) D (7,7) = DM * YI(6,1) D (8,7) = DM * (V*YI(4,1) + YI(6,2)) D (9,7) = DM * (2.*V*YI(4,2) + YI(6,3)) D (10,7) = DM * (3.*V*YI(4,3) + YI(6,4)) D(8,8) = DM * (C*YI(1,1) + 2.*V*YI(4,2) + YI(6,3)) D(9,8) = DM * (2.*C*YI(1,2) + 3.*V*YI(4,3) + YI(6,4)) D(10,8) = DM * (3.*C*YI(1,3) + 4.*V *YI(4,4)+ YI(6,5)) D(9,9) = DM * (4.*C*YI(1,3) + 4.*V*YI(4,4) + YI(6,5)) D(10,9) = DM * (6.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6)) D(10,10) = DM * (9.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7)) DO 147 I=1,10 DO 147 J=1,I D(J,I) = D(I,J) 147 CONTINUE RETURN END ================================================ FILE: mis/dmfgr.f ================================================ SUBROUTINE DMFGR (A,M,N,EPS,IRANK,IROW,ICOL) C C DMFGR CALCULATES THE RANK AND LINEARLY INDEPENDENT ROWS AND C COLUMNS OF A M BY N MATRIX. IT EXPRESSES A SUBMATRIX OF C MAXIMAL RANK AS A PRODUCT OF TRIANGULAR FACTORS, NONBASIC ROWS C IN TERMS OF BASIC ONES AND BASIC VARIABLES IN TERMS OF FREE ONES C C DIMENSIONED DUMMY VARIABLES C DIMENSION A(1),IROW(1),ICOL(1) DOUBLE PRECISION A,PIV,HOLD,SAVE C C TEST OF SPECIFIED DIMENSIONS C IF (M) 20,20,10 10 IF (N) 20,20,40 20 IRANK = -1 30 RETURN C C RETURN IN CASE OF FORMAL ERRORS C C INITIALIZE COLUMN INDEX VECTOR C SEARCH FIRST PIVOT ELEMENT C 40 IRANK = 0 PIV = 0.D0 JJ = 0 DO 60 J = 1,N ICOL(J) = J DO 60 I = 1,M JJ = JJ + 1 HOLD = A(JJ) IF (DABS(PIV)-DABS(HOLD)) 50,60,60 50 PIV = HOLD IR = I IC = J 60 CONTINUE C C INITIALIZE ROW INDEX VECTOR C DO 70 I = 1,M 70 IROW(I) = I C C SET UP INTERNAL TOLERANCE C TOL = ABS(EPS*SNGL(PIV)) C C INITIALIZE ELIMINATION LOOP C NM = N*M DO 210 NCOL = M,NM,M C C TEST FOR FEASIBILITY OF PIVOT ELEMENT C IF (ABS(SNGL(PIV))-TOL) 220,220,90 C C UPDATE RANK C 90 IRANK = IRANK + 1 C C INTERCHANGE ROWS IF NECESSARY C JJ = IR - IRANK IF (JJ) 120,120,100 100 DO 110 J = IRANK,NM,M I = J + JJ SAVE = A(J) A(J) = A(I) 110 A(I) = SAVE C C UPDATE ROW INDEX VECTOR C JJ = IROW(IR) IROW(IR) = IROW(IRANK) IROW(IRANK) = JJ C C INTERCHANGE COLUMNS IF NECESSARY C 120 JJ = (IC-IRANK)*M IF (JJ) 150,150,130 130 KK = NCOL DO 140 J = 1,M I = KK + JJ SAVE = A(KK) A(KK) = A(I) KK = KK - 1 140 A(I) = SAVE C C UPDATE COLUMN INDEX VECTOR C JJ = ICOL(IC) ICOL(IC) = ICOL(IRANK) ICOL(IRANK) = JJ 150 KK = IRANK + 1 MM = IRANK - M LL = NCOL + MM C C TEST FOR LAST ROW C IF (MM) 160,270,270 C C TRANSFORM CURRENT SUBMATRIX AND SEARCH NEXT PIVOT C 160 JJ = LL SAVE = PIV PIV = 0.D0 DO 200 J = KK,M JJ = JJ + 1 HOLD = A(JJ)/SAVE A(JJ)= HOLD L = J - IRANK C C TEST FOR LAST COLUMN C IF (IRANK-N) 170,200,200 170 II = JJ DO 190 I = KK,N II = II + M MM = II - L A(II) = A(II) - HOLD*A(MM) IF (DABS(A(II))-DABS(PIV)) 190,190,180 180 PIV = A(II) IR = J IC = I 190 CONTINUE 200 CONTINUE 210 CONTINUE C C SET UP MATRIX EXPRESSING ROW DEPENDENCIES C 220 IF (IRANK-1) 30,270,230 230 IR = LL DO 260 J = 2,IRANK II = J - 1 IR = IR - M JJ = LL DO 250 I = KK,M HOLD = 0.D0 JJ = JJ + 1 MM = JJ IC = IR DO 240 L = 1,II HOLD = HOLD + A(MM)*A(IC) IC = IC - 1 240 MM = MM - M 250 A(MM) = A(MM) - HOLD 260 CONTINUE C C TEST FOR COLUMN REGULARITY C 270 IF (N-IRANK) 30,30,280 C C SET UP MATRIX EXPRESSING BASIC VARIABLES IN TERMS OF FREE C PARAMETERS (HOMOGENEOUS SOLUTION). C 280 IR = LL KK = LL + M DO 320 J = 1,IRANK DO 310 I = KK,NM,M JJ = IR LL = I HOLD = 0.D0 II = J 290 II = II - 1 IF (II) 310,310,300 300 HOLD = HOLD - A(JJ)*A(LL) JJ = JJ - M LL = LL - 1 GO TO 290 310 A(LL) = (HOLD-A(LL))/A(JJ) 320 IR = IR - 1 RETURN END ================================================ FILE: mis/dmpalt.f ================================================ C*DECK,DMPALT SUBROUTINE DMPALT (ISIZE, IOPEN , IPTAPE) C****************************************************************** C NOTICE * C ------ * C * C THIS PROGRAM BELONGS TO RPK CORPORATION. IT IS CONSIDERED * C A TRADE SECRET AND IS NOT TO BE DIVULGED OR USED BY PARTIES * C WHO HAVE NOT RECEIVED WRITTEN AUTHORIZATION FROM RPK. * C****************************************************************** C INTEGER ALTFIL, OLDALT, XALTER(2) C DIMENSION IALTER(2), IOPEN(1), ISUBR(2), ICARD(18) C COMMON /ALTRXX/ ALTFIL, NEWALT, NOGO COMMON /SYSTEM/ ISYSBF, NOUT COMMON /XRGDXX/ IDUM(115), NMDMAP C DATA OLDALT /0/ DATA ISUBR /4HDMPA, 4HLT / DATA XALTER /4HXALT, 4HER / C IPOINT = 1 CALL WRITE (IPTAPE, XALTER, 2, 1) IF (NEWALT .EQ. 0) GO TO 200 N2DMAP = 2*NMDMAP CALL SKPFIL (ALTFIL, 1) CALL READ (*2000, *100, ALTFIL, IOPEN, ISIZE, 1, IEND) IREQD = N2DMAP - ISIZE CALL MESAGE (-8, IREQD, ISUBR) 100 IF (IEND .NE. N2DMAP) GO TO 2100 IPOINT = IPOINT + IEND CALL REWIND (ALTFIL) C 200 CALL READ (*3000, *300, ALTFIL, IOPEN(IPOINT), 19, 1, IFLAG) NWORDS = 19 LOGIC = 200 GO TO 2200 C 300 IF (IFLAG .NE. 2) GO TO 400 LOGIC = 300 ASSIGN 320 TO JGOTO GO TO 1200 C C PROCESS ALTER CARDS HERE C 320 IALTER(1) = IOPEN(IPOINT ) IALTER(2) = IOPEN(IPOINT+1) IF (IALTER(2).EQ.0 .OR. IALTER(2).GE.IALTER(1)) GO TO 1000 ITEMP = IALTER(2) IALTER(2) = IALTER(1) IALTER(1) = ITEMP GO TO 1000 C 400 IF (IFLAG .NE. 4) GO TO 500 NWORDS = 4 LOGIC = 400 IF (NEWALT .EQ. 0) GO TO 2200 LOGIC = 410 ASSIGN 420 TO JGOTO GO TO 1200 C C PROCESS INSERT CARDS HERE C 420 IDMAP1 = IOPEN(IPOINT ) IDMAP2 = IOPEN(IPOINT+1) IOCCUR = IOPEN(IPOINT+2) IOFFST = IOPEN(IPOINT+3) ASSIGN 470 TO IGOTO GO TO 1500 470 IALTER(1) = INUMBR IALTER(2) = 0 GO TO 1000 C 500 IF (IFLAG .NE. 5) GO TO 600 NWORDS = 5 LOGIC = 500 IF (NEWALT .EQ. 0) GO TO 2200 LOGIC = 510 ASSIGN 520 TO JGOTO GO TO 1200 C C PROCESS DELETE CARDS WITH ONE FIELD HERE C 520 IDMAP1 = IOPEN(IPOINT ) IDMAP2 = IOPEN(IPOINT+1) IOCCUR = IOPEN(IPOINT+2) IOFFST = IOPEN(IPOINT+3) ICHECK = IOPEN(IPOINT+4) LOGIC = 520 IF (ICHECK .NE. 0) GO TO 2300 ASSIGN 570 TO IGOTO GO TO 1500 570 IALTER(1) = INUMBR IALTER(2) = INUMBR GO TO 1000 C 600 IF (IFLAG .NE. 9) GO TO 700 NWORDS = 9 LOGIC = 600 IF (NEWALT .EQ. 0) GO TO 2200 LOGIC = 610 ASSIGN 620 TO JGOTO GO TO 1200 C C PROCESS DELETE CARDS WITH TWO FIELDS HERE C 620 IDMAP1 = IOPEN(IPOINT ) IDMAP2 = IOPEN(IPOINT+1) IOCCUR = IOPEN(IPOINT+2) IOFFST = IOPEN(IPOINT+3) ICHECK = IOPEN(IPOINT+4) LOGIC = 620 IF (ICHECK .NE. 1) GO TO 2300 ASSIGN 670 TO IGOTO GO TO 1500 670 IALTER(1) = INUMBR IDMAP1 = IOPEN(IPOINT+5) IDMAP2 = IOPEN(IPOINT+6) IOCCUR = IOPEN(IPOINT+7) IOFFST = IOPEN(IPOINT+8) ASSIGN 690 TO IGOTO GO TO 1500 690 IALTER(2) = INUMBR IF (IALTER(2).EQ.0 .OR. IALTER(2).GE.IALTER(1)) GO TO 1000 ITEMP = IALTER(2) IALTER(2) = IALTER(1) IALTER(1) = ITEMP GO TO 1000 C C PROCESS DMAP STATEMENTS HERE C 700 NWORDS = IFLAG LOGIC = 700 IF (IFLAG .NE. 18) GO TO 2200 CALL WRITE (IPTAPE, IOPEN(IPOINT), 18, 1) GO TO 200 C C WRITE ALTER CONTROL DATA ON THE NEW PROBLEM TAPE C 1000 IF (IALTER(1) .EQ. 0) GO TO 200 IF (IALTER(1) .GT. OLDALT) GO TO 1100 1050 NOGO = 1 WRITE (NOUT, 3300) ICARD GO TO 200 1100 IF (IALTER(2).NE.0 .AND. IALTER(1).GT.IALTER(2)) GO TO 1050 CALL WRITE (IPTAPE, IALTER, 2, 1) OLDALT = IALTER(1) IF (IALTER(2) .NE. 0) OLDALT = IALTER(2) GO TO 200 C C INTERNAL SUBROUTINE TO READ IN AN ALTER CONTROL CARD IMAGE C 1200 CALL READ (*2000, *1230, ALTFIL, ICARD, 19, 1, IFLAG) NWORDS = 19 GO TO 2200 1230 GO TO JGOTO, (320, 420, 520, 620) C C INTERNAL SUBROUTINE TO FIND THE DMAP STATEMENT NUMBER C FOR A DMAP STATEMENT WITH A GIVEN OCCURENCE FLAG AND C AN OFFSET FLAG C 1500 ICOUNT = 0 DO 1600 J = 1, IEND, 2 IF (IDMAP1.NE.IOPEN(J) .OR. IDMAP2.NE.IOPEN(J+1)) GO TO 1600 ICOUNT = ICOUNT + 1 IF (ICOUNT .LT. IOCCUR) GO TO 1600 INUMBR = (J+1)/2 + IOFFST IF (INUMBR.GE.1 .AND. INUMBR.LE.NMDMAP) GO TO 1700 NOGO = 1 INUMBR = 0 WRITE (NOUT, 3500) ICARD GO TO 1700 1600 CONTINUE NOGO = 1 INUMBR = 0 IF (ICOUNT .GT. 0) WRITE (NOUT, 3600) ICARD IF (ICOUNT .EQ. 0) WRITE (NOUT, 3700) ICARD 1700 GO TO IGOTO, (470, 570, 670, 690) C C ERROR MESSAGES C 2000 CALL MESAGE (-2, ALTFIL, ISUBR) 2100 WRITE (NOUT, 4100) IEND, N2DMAP GO TO 2900 2200 WRITE (NOUT, 4200) NWORDS, LOGIC GO TO 2900 2300 WRITE (NOUT, 4300) LOGIC GO TO 2900 2900 CALL MESAGE (-61, 0, 0) C 3000 RETURN C*********************************************************************** 3300 FORMAT ('0*** USER FATAL MESSAGE, THE DATA ON THE ', * 'FOLLOWING ALTER CONTROL CARD IS NOT IN PROPER ', * 'SEQUENCE OR ORDER --'// * 5X, 18A4) 3500 FORMAT ('0*** USER FATAL MESSAGE, ILLEGAL OFFSET FLAG ', * 'SPECIFIED ON THE FOLLOWING ALTER CONTROL CARD --'// * 5X, 18A4) 3600 FORMAT ('0*** USER FATAL MESSAGE, ILLEGAL OCCURENCE FLAG ', * 'SPECIFIED ON THE FOLLOWING ALTER CONTROL CARD --'// * 5X, 18A4) 3700 FORMAT ('0*** USER FATAL MESSAGE, NON-EXISTENT NOMINAL ', * 'DMAP STATEMENT SPECIFIED ON THE FOLLOWING ', * 'ALTER CONTROL CARD --'// * 5X, 18A4) 4100 FORMAT ('0*** SYSTEM FATAL MESSAGE, ILLEGAL NUMBER OF ', * 'WORDS (', I5, ') ENCOUNTERED IN THE SECOND ', * 'FILE OF THE ALTER SCRATCH FILE.'/ * ' EXPECTED NUMBER OF WORDS = ', I5) 4200 FORMAT ('0*** SYSTEM FATAL MESSAGE, ILLEGAL NUMBER OF ', * 'WORDS (', I5, ') ENCOUNTERED WHILE READING ', * 'A RECORD IN THE FIRST FILE OF THE ALTER SCRATCH ', * 'FILE.'/ * ' LOGIC ERROR NO. = ', I5) 4300 FORMAT ('0*** SYSTEM FATAL MESSAGE, ILLEGAL CONTROL WORD ', * 'WHILE PROCESSING THE FOLLOWING ALTER CONTROL CARD'// * 5X, 18A4) C*********************************************************************** C NOTICE * C ------ * C * C THIS PROGRAM BELONGS TO RPK CORPORATION. IT IS CONSIDERED * C A TRADE SECRET AND IS NOT TO BE DIVULGED OR USED BY PARTIES * C WHO HAVE NOT RECEIVED WRITTEN AUTHORIZATION FROM RPK. * C****************************************************************** END ================================================ FILE: mis/dmpfil.f ================================================ SUBROUTINE DMPFIL (IFILE,Z,LZ) C C DUMPS A FILE ON DIAG 20 SETTING. C INTEGER SYSBUF,OUTPT,BUF,Z(2),FILE,NAME(2) COMMON /SYSTEM/ SYSBUF,OUTPT COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS COMMON /UNPAKX/ IOUT,IROW,NROW,INCR DATA NAME / 4HDMPF,2HIL / C 1 FORMAT (1H0,I5,10(1X,I10,1X)) 2 FORMAT (1H ,5X,10(1X,1P,E11.4)) 3 FORMAT (1H ,5X,10(4X,A4,4X)) C CALL SSWTCH (20,L) IF (L .EQ. 0) RETURN C FILE = IABS(IFILE) BUF = LZ - SYSBUF + 1 IF (BUF .LT. 6) GO TO 91 LCORE = (BUF-1)/5 LCORE = LCORE*5 CALL OPEN (*90,FILE,Z(BUF),RDREW) WRITE (OUTPT,10) FILE 10 FORMAT (14H1DUMP OF FILE ,I3) IF (IFILE .LE. 0) GO TO 100 C IREC = 0 20 WRITE (OUTPT,30) IREC 30 FORMAT (8H0RECORD ,I6,6X,100(1H-)) 40 CALL READ (*70,*60,FILE,Z,LCORE,0,IWORDS) C I1 = -9 50 I1 = I1 + 10 I2 = MIN0(I1+9,LCORE) WRITE (OUTPT,1) I1,(Z(I),I=I1,I2) WRITE (OUTPT,2) (Z(I),I=I1,I2) WRITE (OUTPT,3) (Z(I),I=I1,I2) IF (LCORE-I2) 40,40,50 C 60 I1 = -9 65 I1 = I1 + 10 I2 = MIN0(I1+9,IWORDS) WRITE (OUTPT,1) I1,(Z(I),I=I1,I2) WRITE (OUTPT,2) (Z(I),I=I1,I2) WRITE (OUTPT,3) (Z(I),I=I1,I2) IF (IWORDS .GT. I2) GO TO 65 IREC = IREC + 1 GO TO 20 C 70 Z(1) = FILE CALL CLOSE (FILE,CLSREW) CALL RDTRL (Z) WRITE (OUTPT,80) (Z(I),I=1,7) 80 FORMAT (4H0EOF ,//,8H0TRAILER ,/,7(1X,I12 /)) 90 RETURN C 91 CALL MESAGE (8,0,NAME) GO TO 90 C 100 CALL READ (*70,*101,FILE,Z,2,1,IWORDS) 101 WRITE (OUTPT,102) Z(1),Z(2) 102 FORMAT (14H0HEADER RECORD ,/1H0,2A4) Z(1) = FILE CALL RDTRL (Z) NCOLS = Z(2) IF (NCOLS .GT. 300) NCOLS = 100 IOUT = 1 INCR = 1 IF (NCOLS) 70,70,110 110 DO 150 J = 1,NCOLS WRITE (OUTPT,115) J 115 FORMAT (7H0COLUMN ,I5) IROW = 0 NROW = 0 CALL UNPACK (*140,FILE,Z) WRITE (OUTPT,118) IROW,NROW 118 FORMAT (1H+,20X,3HROW ,I4,11H THRU ROW ,I5) IF (NROW .GT. 300) NROW = 100 NELS = NROW - IROW + 1 IF (NELS .LE. 0) GO TO 150 WRITE (OUTPT,119) (Z(K),K=1,NELS) 119 FORMAT (1P,10E13.4) GO TO 150 140 WRITE (OUTPT,141) 141 FORMAT (13H NULL COLUMN ) 150 CONTINUE GO TO 70 C END ================================================ FILE: mis/dmpy.f ================================================ SUBROUTINE DMPY (Z,ZD) C C DMPY WILL PRE OR POST MULTIPLY AN ARBITRARY MATRIX BY A DIAGONAL C MATRIX. C C FILEA = MATRIX CONTROL BLOCK FOR DIAGONAL MATRIX. C FILEB = MATRIX CONTROL BLOCK FOR ARBITRARY MATRIX. C FILEC = MATRIX CONTROL BLOCK FOR PRODUCT MATRIX. C Z = ADDRESS OF A BLOCK OF CORE FOR WORKING SPACE. ZD IS SAME C BLOCK. C NZ = LENGTH OF THIS BLOCK. C FLAG .EQ. 0 FOR PRE-MULTIPLICATION BY DIAGONAL. C FLAG .NE. 0 FOR POST-MULTIPLICATION BY DIAGONAL. C SIGN .EQ. +1 FOR POSITIVE PRODUCT. C SIGN .EQ. -1 FOR NEGATIVE PRODUCT. C C INTEGER FILEA ,FILEB ,FILEC ,FLAG ,SIGN ,SYSBUF,EOL , 1 EOR ,TYPE ,ONE ,Z(1) ,RD ,RDREW ,WRT , 2 BUF1 ,BUF2 ,CLSREW,RCC ,PTYPE ,QTYPE ,WRTREW DOUBLE PRECISION ZD(1) ,AD ,XD DIMENSION FILEA(7) ,FILEB(7) ,FILEC(7) COMMON /DMPYX / FILEA ,FILEB ,FILEC ,NZ ,FLAG ,SIGN COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /ZNTPKX/ AD (2),I ,EOL ,EOR COMMON /ZBLPKX/ XD (2),IX COMMON /UNPAKX/ TYPE ,ONE ,NX ,INCR COMMON /SYSTEM/ SYSBUF C C C PERFORM GENERAL INITIALIZATION C BUF1 = NZ - SYSBUF + 1 BUF2 = BUF1 - SYSBUF ONE = 1 INCR = 1 FILEC(2) = 0 FILEC(6) = 0 FILEC(7) = 0 NX = FILEA(3) C C COMPUTE TYPE OF C MATRIX. C RCC = 1 FOR REAL, = 2 FOR COMPLEX C QTYPE = 2 FOR RDP, = 4 FOR CDP C RCC = 0 IF (FILEA(5).GT.2 .OR. FILEB(5).GT.2) RCC = 2 QTYPE = RCC + 2 IF (RCC .EQ. 0) RCC = 1 TYPE = QTYPE*SIGN PTYPE = FILEC(5) C C OPEN PRODUCT MATRIX AND WRITE HEADER RECORD. C CALL GOPEN (FILEC(1),Z(BUF1),WRTREW) C C UNPACK DIAGONAL MATRIX IN CORE AND OPEN ARBITRARY MATRIX. C CALL GOPEN (FILEA(1),Z(BUF2),RDREW) CALL UNPACK (*130,FILEA,Z) CALL CLOSE (FILEA(1),CLSREW) CALL GOPEN (FILEB(1),Z(BUF2),RDREW) C C PERFORM MATRIX MULTIPLICATION. C J = 1 60 KR = (J-1)*RCC + 1 CALL BLDPK (QTYPE,PTYPE,FILEC(1),0,0) CALL INTPK (*90,FILEB(1),0,QTYPE,0) 70 CALL ZNTPKI KL = (I-1)*RCC + 1 K = KL IF (FLAG .NE. 0) K = KR XD(1) = ZD(K)*AD(1) IF (RCC .EQ. 1) GO TO 80 XD(1) = XD(1) - ZD(K+1)*AD(2) XD(2) = ZD(K)*AD(2) + ZD(K+1)*AD(1) 80 IX = I CALL ZBLPKI IF (EOL .EQ. 0) GO TO 70 90 CALL BLDPKN (FILEC(1),0,FILEC) J = J + 1 IF (J .LE. FILEB(2)) GO TO 60 GO TO 140 C C CODE FOR NULL DIAGONAL MATRIX. C 130 CALL BLDPKN (FILEC(1),0,FILEC) IF (FILEC(2) .LT. FILEB(2)) GO TO 130 C C CLOSE FILES AND RETURN. C 140 CALL CLOSE (FILEA(1),CLSREW) CALL CLOSE (FILEB(1),CLSREW) CALL CLOSE (FILEC(1),CLSREW) RETURN END ================================================ FILE: mis/dmpyad.f ================================================ SUBROUTINE DMPYAD C C DMPYAD IS THE DMAP DRIVER FOR MATRIX MULTIPLICATION. C C COMMENTS FROM G.CHAN/UNISYS ABOUT PREC1 IN /MPYADX/ 1/91 C ACCORDING TO THE USER'S MANUAL ON P. 3.5-18 C PREC1 = 0, PERFORM ARITHMETIC IN D.P. IF A,B OR C IS IN D.P. C = 1, PERFORM ARITHMETIC IN S.P. C = 2, PERFORM ARITHMETIC IN D.P. C HOWEVER, THE CODE BELOW ALWAYS SETS C PREC1 TO 2, IF ANY OF THE A,B OR C IS IN D.P. AND 1 OTHERWISE C IN SUBROUTINE MPYAD, PREC1 IS ALWAYS SET TO 1 FOR CDC MACHINE C C IF ITYPE IN /BLANK/ IS 1 OR 3, MPYAD PRODUCT WILL BE OUPUT IN S.P. C AND IN D.P. OF IT IS 2 OR 4 C IF ITYPE IS 0, MPYAD PRODUCT WILL BE IN S.P. ONLY IF ALL A, B, AND C C MATRICES ARE IN S.P. OTHERWISE, THE PRODUCT WILL BE IN D.P. C IMPLICIT INTEGER (A-Z) INTEGER NAME(2) ,DOSI(3) ,REFUS(3) , 1 P(4) ,Q(4) ,R(4) ,ZZ(1) ,ZZZ(1) REAL ALP(1),BET(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM ,SWM COMMON /SYSTEM/ KSYSTM(65) COMMON /BLANK / T ,SIGNAB,SIGNC ,ITYPE COMMON /MPYADX/ A(7) ,B(7) ,C(7) ,D(7) ,NZ ,TRNSP , 1 SAB ,SC ,PREC1 ,SCR COMMON /DMPYX / E(7) ,F(7) ,G(7) ,NZZ ,FLAG ,SGN COMMON /SADDX / NOMAT ,NZZZ ,MCBS(67) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (ZZ(1),Z(1)) EQUIVALENCE (ZZZ(1),Z(1)) EQUIVALENCE (KSYSTM(55),KPREC), (KSYSTM(2),OUTPT) EQUIVALENCE (MCBS( 1),P(1) ), (MCBS( 8),TYPA ), 1 (MCBS( 9),ALP(1) ), (MCBS(13),Q(1) ), 2 (MCBS(20),TYPB ), (MCBS(21),BET(1)), 3 (MCBS(61),R(1) ) DATA FILEA , FILEB,FILEC,FILED,SCRTCH / 1 101 , 102 ,103 ,201 ,301 / DATA NAME / 4HMPYA,4HD / DATA DOSI / 4HSING,4HDOUB,4HMLTP /, REFUS/ 2*3H ,3HREF / DATA SQUARE, RECT,DIAG,SYMM,IDENT / 1,2,3,6,8 / C C C READ TRAILERS FOR A, B AND C MATRICES. C NZ = KORSZ(Z) A(1) = FILEA CALL RDTRL (A) IF (A(1) .NE. FILEA) GO TO 230 B(1) = FILEB CALL RDTRL (B) IF (B(1) .NE. FILEB) GO TO 230 C(1) = FILEC C(5) = 0 CALL RDTRL (C) IF (C(1) .LT. 0) C(1) = 0 D(1) = FILED D(3) = A(3) IF (T .NE. 0) D(3) = A(2) D(4) = RECT C C CHECK FOR CONFORMABLE MATRICIES C IF (((C(2).NE.B(2) .OR. C(3).NE.D(3)) .AND. C(1).NE.0) .OR. 1 (B(3).NE.A(2) .AND. T.EQ.0) .OR. (B(3).NE.A(3) .AND. T.NE.0)) 2 CALL MESAGE (-55,0,NAME) TRNSP = T SAB = SIGNAB SC = SIGNC PREC = 1 IF (ITYPE .EQ. 0) PREC = 0 IF (ITYPE.EQ.2 .OR. ITYPE.EQ.4) PREC = 2 PREC1 = MAX0(A(5),B(5),C(5)) IF (PREC1 .GT. 2) PREC1 = PREC1 - 2 IF (PREC1.LT.1 .OR. PREC1.GT.2) PREC1 = KPREC IF (PREC.EQ.PREC1 .OR. PREC.EQ.0) GO TO 20 IF (PREC.LT.1 .OR. PREC.GT.2) PREC = 3 WRITE (OUTPT,10) SWM,DOSI(PREC),REFUS(PREC),NAME,DOSI(PREC1) 10 FORMAT (A27,' 2430, REQUESTED ',A4,'LE PRECISION ',A3,'USED BY ', 1 2A4,2H. ,A4,'LE PRECISION IS LOGICAL CHOICE') IF (PREC .NE. 3) PREC1 = PREC 20 LTYPE = PREC1 IF (A(5).EQ.3 .OR. A(5).EQ.4 .OR. B(5).EQ.3 .OR. B(5).EQ.4 .OR. 1 C(5).EQ.3 .OR. C(5).EQ.4) LTYPE = PREC1 + 2 IF (ITYPE.EQ.0 .OR. ITYPE.EQ.LTYPE) GO TO 40 JJ = 1 IF (ITYPE.LT.1 .OR. ITYPE.GT.4) JJ = 3 WRITE (OUTPT,30) SWM,ITYPE,REFUS(JJ),NAME,LTYPE 30 FORMAT (A27,' 2431, REQUESTED TYPE ',I4,2H, ,A3,'USED BY ',2A4, 1 7H. TYPE ,I4,' IS LOGICAL CHOICE.') IF (JJ .NE. 3) LTYPE = ITYPE 40 ITYPE = LTYPE D(5) = ITYPE SCR = SCRTCH C C IF NEITHER A NOR B IS DIAGONAL, CALL MPYAD AND RETURN. C IF (A(4).EQ.DIAG .OR. B(4).EQ.DIAG) GO TO 100 CALL MPYAD (Z,Z,Z) IF (D(2) .NE. D(3)) GO TO 60 D(4) = SQUARE IF (C(4) .EQ. 0) C(4) = DIAG K = 0 DO 50 I = 4,21,7 J = A(I) IF (J.NE.SYMM .AND. J.NE.DIAG .AND. J.NE.IDENT) GO TO 60 IF (J .EQ. SYMM) K = 1 50 CONTINUE IF (K .EQ. 1) D(4) = SYMM 60 CALL WRTTRL (D) RETURN C C OTHERWISE, CALL DMPY FOR DIAGONAL MULTIPLICATION. C 100 DO 110 I = 1,7 E(I) = A(I) F(I) = B(I) IF (A(4) .EQ. DIAG) GO TO 110 E(I) = B(I) F(I) = A(I) 110 G(I) = D(I) NZZ = KORSZ(ZZ) SGN = SIGNAB FLAG = 0 IF (B(4) .EQ. DIAG) FLAG = 1 IF (C(1) .NE. 0) G(1) = SCRTCH CALL DMPY (ZZ,ZZ) IF (G(2) .NE. G(3)) GO TO 130 G(4) = SQUARE K = 0 DO 120 I = 4,14,7 J = E(I) IF (J.NE.SYMM .AND. J.NE.DIAG .AND. J.NE.IDENT) GO TO 130 IF (J .EQ. SYMM) K = 1 120 CONTINUE IF (K .EQ. 1) G(4) = SYMM 130 CALL WRTTRL (G) C C IF ADDITION REQUIRED, CALL ADD ROUTINE. C IF (C(1) .EQ. 0) RETURN DO 200 I = 1,7 P(I) = G(I) Q(I) = C(I) 200 R(I) = D(I) DO 210 I = 2,4 ALP(I)= 0.0 210 BET(I)= 0.0 TYPA = 1 ALP(1)= 1.0 TYPB = 1 BET(1)= 1.0 IF (SIGNC .LT. 0) BET(1) =-1.0 NZZZ = KORSZ(ZZZ) NOMAT = 2 CALL SADD (ZZZ,ZZZ) IF (R(2) .NE. R(3)) GO TO 230 R(4) = SQUARE IF (P(4).EQ.SYMM .AND. (Q(4).EQ.SYMM .OR. Q(4).EQ.DIAG .OR. 1 Q(4).EQ.IDENT)) R(4) = SYMM CALL WRTTRL (R) 230 RETURN END ================================================ FILE: mis/dnorm.f ================================================ SUBROUTINE DNORM(X,MAG) C C DOUBLE PRECISION NORMALIZATION C DOUBLE PRECISION X(3) ,MAG ,A C MAG= 0.D0 A= X(1)*X(1) + X(2)*X(2) +X(3)*X(3) IF (A .GT. 0.D0) MAG= DSQRT(A) IF(MAG .EQ. 0.0D0) RETURN X(1) = X(1) / MAG X(2) = X(2) / MAG X(3) = X(3) / MAG RETURN END ================================================ FILE: mis/dpd.f ================================================ SUBROUTINE DPD C C DPD IS MAIN CONTROL PROGRAM FOR THE DYNAMICS POOL DISTRIBUTOR. C INTEGER GPL ,SIL ,USET ,USETD ,GPLD ,SILD ,DPOOL , 1 DLT ,FRL ,TFL ,TRL ,PSDL ,EED ,SCR1 , 2 SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 ,BUF3 , 3 BUF4 ,SYSBUF,NGRID ,EPOINT,SEQEP ,Z ,LOADS , 5 EQDYN ,DLOAD ,FREQ1 ,FREQ ,TIC ,TSTEP ,TF , 6 PSD ,EIGR ,EIGB ,EIGC ,SDT DIMENSION BUF(24) ,EPOINT(2) ,SEQEP(2) ,MCB(7) , 1 NAM(2) ,LOADS(32) ,DLOAD(2) ,FREQ1(2) , 2 FREQ(2) ,ZZ(1) ,BUFR(20) ,NOLIN(21), 3 TIC(2) ,TSTEP(2) ,TF(2) ,PSD(2) , 4 MSG(3) ,EIGR(2) ,EIGB(2) ,EIGC(2) COMMON /BLANK / LUSET ,LUSETD,NOTFL ,NODLT ,NOPSDL,NOFRL ,NONLFT, 1 NOTRL ,NOEED ,NOSDT ,NOUE COMMON /DPDCOM/ DPOOL ,GPL ,SIL ,USET ,GPLD ,SILD ,USETD , 1 DLT ,FRL ,NLFT ,TFL ,TRL ,PSDL ,EED , 2 SCR1 ,SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 , 3 BUF3 ,BUF4 ,EPOINT,SEQEP ,L ,KN ,NEQDYN, 4 LOADS ,DLOAD ,FREQ1 ,FREQ ,NOLIN ,NOGO , 5 MSG ,TIC ,TSTEP ,TF ,PSD ,EIGR ,EIGB , 6 EIGC ,MCB ,NAM ,EQDYN ,SDT ,INEQC COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF EQUIVALENCE (Z(1),ZZ(1)),(BUF(1),BUFR(1)),(MSG(2),NGRID) C C INITIALIZE CONTROL PARAMETERS. C NOTFL = -1 NODLT = -1 NOPSDL = -1 NOFRL = -1 NONLFT = -1 NOTRL = -1 NOEED = -1 NOSDT = -1 NOUE = -1 NOGO = 0 INEQ = 0 DO 10 I = 1,7 10 MCB(I) = 0 C C PERFORM BUFFER ALLOCATION C BUF1 = KORSZ(Z) - SYSBUF - 2 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF C C IF DYNAMICS POOL IS PURGED, EXIT. OTHERWISE, EXECUTE THE PHASES C OF DPD C BUF(1) = DPOOL CALL RDTRL (BUF) IF (BUF(1) .NE. DPOOL) RETURN CALL DPD1 CALL DPD2 CALL DPD3 CALL DPD4 CALL DPD5 IF (NOGO .NE. 0) CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/dpd1.f ================================================ SUBROUTINE DPD1 C C DPD1 GENERATES THE GRID POINT LIST-DYNAMICS (GPLD), C USET-DYNAMICS (USETD), AND THE SCALAR INDEX LIST-DYNAMICS(SILD). C IMPLICIT INTEGER (A-Z) EXTERNAL ANDF ,ORF LOGICAL NODYN ,FIRST DIMENSION BUF(24) ,EPOINT(2) ,SEQEP(2) ,MCB(7) , 1 NAM(2) ,LOADS(32) ,DLOAD(2) ,FREQ1(2) , 2 FREQ(2) ,NOLIN(21) ,TIC(2) , 3 TSTEP(2) ,TF(2) ,PSD(2) ,MSG(3) , 4 EIGR(2) ,EIGB(2) ,EIGC(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / LUSET ,LUSETD,NOTFL ,NODLT ,NOPSDL,NOFRL ,NONLFT, 1 NOTRL ,NOEED ,NOSDT ,NBREP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /DPDCOM/ DPOOL ,GPL ,SIL ,USET ,GPLD ,SILD ,USETD , 1 DLT ,FRL ,NLFT ,TFL ,TRL ,PSDL ,EED , 2 SCR1 ,SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 , 3 BUF3 ,BUF4 ,EPOINT,SEQEP ,L ,KN ,NEQDYN, 4 LOADS ,DLOAD ,FREQ1 ,FREQ ,NOLIN ,NOGO , 5 MSG ,TIC ,TSTEP ,TF ,PSD ,EIGR ,EIGB , 6 EIGC ,MCB ,NAM ,EQDYN ,SDT ,INEQ COMMON /BITPOS/ UM ,UO ,UR ,USG ,USB ,UL ,UA , 1 UF ,US ,UN ,UG ,UE ,UP ,UNE , 2 UFE ,UD COMMON /ZZZZZZ/ Z(1) COMMON /TWO / TWO(32) COMMON /SYSTEM/ SYSBUF,IOUT ,KS(37),NBPW EQUIVALENCE (MSG(2),NGRID) C C C SET NODYN FLAG TO TRUE IF NO DYNAMIC C NODYN = .FALSE. BUF(1) = DPOOL CALL RDTRL (BUF) IF (BUF(1) .NE. DPOOL) NODYN = .TRUE. C C COMPUTE MAXIMUM EPOINT SIZE ALLOWED BY A COMPUTER WORD C FIRST = .TRUE. IF (NODYN) GO TO 1020 IMAX = 100000000 IF (NBPW .EQ. 32) IMAX = 2147493 IF (NBPW .EQ. 36) IMAX = 34359738 C 2147493=2**31/1000 34359738=2**35/1000 MAXZ = IMAX MULT = 1000 C C READ SECOND RECORD OF THE GPL INTO CORE. CREATE TABLE OF TRIPLES - C EXTERNAL GRID NO., SEQ. NO., AND INTERNAL GRID NO. C C SEQ.NO.= EXTERNAL GIRD NO. * MULT, OR RESEQUENCED GRID PT. NO. C (A MULTIFICATION FACTOR WAS SAVED IN GPL HEADER RECORD BY GP1, C MULT = 10,100,OR 1000, AND BY SGEN, MULT = 1000) C 1020 FILE = GPL IF (LUSET .EQ. 0) GO TO 1023 CALL OPEN (*1023,GPL,Z(BUF1),RDREW) CALL READ (*2002,*2001,GPL,Z(1),3,1,FALG) CALL FWDREC (*2002,GPL) I = 3 MULT = Z(I) IMAX = (IMAX/MULT)*1000 MAXZ = IMAX IGPL = 1 J = 1 I = IGPL 1021 CALL READ (*2002,*1022,GPL,Z(I),2,0,FLAG) Z(I+2) = J I = I + 3 J = J + 1 GO TO 1021 1022 NGPL = I - 3 CALL CLOSE (GPL,CLSREW) GO TO 1030 C C INITIALIZE FOR CASE WHERE NO GRID OR SCALAR PTS EXIST. C 1023 I = 1 IGPL = 1 LUSET = 0 C C READ EXTRA POINTS (IF ANY). ADD TO TABLE IN CORE. C SET INTERNAL GRID NO. OF EXTRA PTS = 0. C 1030 IF (NODYN) GO TO 1047 FILE = DPOOL CALL PRELOC (*2001,Z(BUF1),DPOOL) IEP = I NOEP = 0 CALL LOCATE (*1045,Z(BUF1),EPOINT,FLAG) NOEP = 1 1031 CALL READ (*2002,*1032,DPOOL,Z(I),1,0,FLAG) IF (Z(I) .GT. MAXZ) MAXZ = Z(I) Z(I+1) = MULT*Z(I) Z(I+2) = 0 I = I + 3 GO TO 1031 1032 NEP = I - 3 NGPL = NEP C C ONE OR MORE EPOINT WITH VERY LARGE EXTERNAL ID C FATAL IF MULTIPLIER IS 10 C IF MULT IS 1000 OR 100, TRY TO SHRINK THE GRID POINT SEQ. NO. BY C 10 OR 100 IF POSSIBLE, AND RESET MULT. C IF IT IS NOT POSSIBLE, WE HAVE A FATAL CONDITION 2140C C IF (MAXZ .EQ. IMAX) GO TO 1040 J = 0 IF (MULT .EQ. 10) GO TO 1037 MULT = 100 IF (MAXZ .GT. 10*IMAX) MULT = 10 IMAX = (IMAX/MULT)*1000 J = 1000/MULT DO 1035 I = IGPL,NEP,3 IF (MOD(Z(I+1),J) .NE. 0) GO TO 1037 Z(I+1) = Z(I+1)/J 1035 CONTINUE GO TO 1040 1037 WRITE (IOUT,1038) UFM 1038 FORMAT (A23,' 2140C, ONE OR MORE EPOINTS WITH EXTERNAL ID TOO ', 1 'LARGE.') IF (J .NE. 0) WRITE (IOUT,1039) 1039 FORMAT (/5X,'SUGGESTION - RE-RUN NASTRAN JOB WITH ALL THE EPOINT', 1 ' EXTERNAL ID''S SMALLER THAN THE LARGEST GRID POINT ID', 2 /5X,'OR, REDUCE THE SEQID LEVEL IF SEQGP CARDS WERE USED', 3 '. I.E. FROM XXX.X.X TO XXX.X OR XXX') CALL CLOSE (DPOOL,CLSREW) CALL MESAGE (-37,0,NAM) C C IF EXTRA POINTS PRESENT, READ SEQEP DATA (IF ANY). C REPLACE OLD SEQ NO WITH NEW SEQ NO. C 1040 CALL LOCATE (*1045,Z(BUF1),SEQEP,FLAG) N1 = I N2 = N1 + 1 IFAIL = 0 2010 CALL READ (*2002,*2020,DPOOL,Z(N2),BUF1-1,1,FLAG) IFAIL = IFAIL + 1 GO TO 2010 2020 IF (IFAIL .EQ. 0) GO TO 2060 NWDS = (IFAIL-1)*(BUF1-1) + FLAG WRITE (IOUT,2040) UFM,NWDS 2040 FORMAT (A23,' 3139, UNABLE TO PROCESS SEQEP DATA IN SUBROUTINE ', 1 'DPD1 DUE TO INSUFFICIENT CORE.', //5X, 2 'ADDITIONAL CORE REQUIRED =',I10,7H WORDS) CALL MESAGE (-61,0,0) C C CHECK FOR MULTIPLE REFERENCES TO EXTRA POINT ID NOS. AND C SEQUENCE ID NOS. ON SEQEP CARDS C 2060 K = N2 KK = N2 + FLAG - 1 JJ = KK - 2 2080 DO 2285 I = K,JJ,2 IF (Z(I).LT.0 .OR. I.GE.KK) GO TO 2275 II = I + 2 IFAIL = 0 DO 2270 J = II,KK,2 IF (Z(I) .NE. Z(J)) GO TO 2270 IF (IFAIL .NE. 0) GO TO 2260 IFAIL = 1 NOGO = 1 IF (K .NE. N2) GO TO 2110 WRITE (IOUT,2100) UFM,Z(I) 2100 FORMAT (A23,' 3140, MULTIPLE REFERENCES TO EXTRA POINT ID NO.',I9, 1 ' ON SEQEP CARDS.') GO TO 2260 2110 IDSEQ1 = Z(I)/1000 IRMNDR = Z(I) - 1000*IDSEQ1 IF (IRMNDR.NE.0 .AND. MULT.GE.10) GO TO 2140 WRITE (IOUT,2120) UFM,IDSEQ1 2120 FORMAT (A23,' 3141, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6,6X, 1 'ON SEQEP CARDS.') GO TO 2260 2140 IDSEQ2 = IRMNDR/100 IRMNDR = IRMNDR - 100*IDSEQ2 IF (IRMNDR.NE.0 .AND. MULT.GE.100) GO TO 2180 WRITE (IOUT,2160) UFM,IDSEQ1,IDSEQ2 2160 FORMAT (A23,' 3141, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6, 1 1H.,I1,6X,'ON SEQEP CARDS.') GO TO 2260 2180 IDSEQ3 = IRMNDR/10 IRMNDR = IRMNDR - 10*IDSEQ3 IF (IRMNDR .NE. 0) GO TO 2220 WRITE (IOUT,2200) UFM,IDSEQ1,IDSEQ2,IDSEQ3 2200 FORMAT (A23,' 3141, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6, 1 1H.,I1,1H.,I1,4X,'ON SEQEP CARDS.') GO TO 2260 2220 WRITE (IOUT,2240) UFM,IDSEQ1,IDSEQ2,IDSEQ3,IRMNDR 2240 FORMAT (A23,' 3141, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6, 1 1H.,I1,1H.,I1,1H.,I1,' ON SEQEP CARDS.') 2260 Z(J) = -Z(J) 2270 CONTINUE C 2275 IF (JJ.LT.KK .OR. MULT.EQ.1 .OR. MULT.EQ.1000) GO TO 2285 L = Z(I) IF (MULT .EQ. 10) GO TO 2280 IF (MOD(L,10) .NE. 0) GO TO 2276 Z(I) = L / 10 GO TO 2285 2276 IF (.NOT.FIRST) GO TO 2285 FIRST = .FALSE. NOGO = 1 WRITE (IOUT,2277) UFM 2277 FORMAT (A23,' 2140B, ILLEGAL DATA IN SEQEP CARD, POSSIBLY CAUSED', 1 ' BY LARGE GRID OR SCALAR POINTS') GO TO 2285 2280 IF (MOD(L,100) .NE. 0) GO TO 2276 Z(I) = L / 100 2285 CONTINUE C IF (K .NE. N2) GO TO 2290 JJ = KK K = K + 1 GO TO 2080 C 2290 DO 2300 I = N2,KK,2 IF (Z(I) .LT. 0) Z(I) = -Z(I) 2300 CONTINUE IF (NOGO .EQ. 1) GO TO 2400 C C CHECK TO SEE IF ANY SEQUENCE ID NO. ON SEQEP CARDS IS THE SAME C AS AN EXTRA POINT ID NO. THAT HAS NOT BEEN RESEQUENCED C DO 2390 I = K,KK,2 IF (Z(I) .LT. 0) GO TO 2390 IDSEQ1 = Z(I) / MULT IRMNDR = Z(I) - MULT*IDSEQ1 IF (IRMNDR .NE. 0) GO TO 2390 DO 2320 J = N2,KK,2 IF (IDSEQ1 .EQ. Z(J)) GO TO 2390 2320 CONTINUE DO 2340 J = 1,N1,3 IF (IDSEQ1 .EQ. Z(J)) GO TO 2360 2340 CONTINUE GO TO 2390 2360 NOGO = 1 WRITE (IOUT,2380) UFM,IDSEQ1 2380 FORMAT (A23,' 3142, SEQUENCE ID NO.',I6, 1 ' ON SEQEP CARDS IS THE SAME AS AN ', /5X, 2 'EXTRA POINT ID NO. THAT HAS NOT BEEN RESEQUENCED.') 2390 CONTINUE 2400 CONTINUE I = -1 1043 I = I + 2 IF (I .GT. FLAG) GO TO 1045 BUF(1) = Z(N2+I-1) BUF(2) = Z(N2+I ) DO 1041 J = IEP,NEP,3 IF (Z(J) .EQ. BUF(1)) GO TO 1042 1041 CONTINUE 1044 BUF(2) = 0 CALL MESAGE (30,64,BUF) NOGO = 1 GO TO 1043 1042 IF (Z(J+2) .NE. 0) GO TO 1044 Z(J+1) = BUF(2) GO TO 1043 1045 CALL CLOSE (DPOOL,CLSREW) 1047 IF (LUSET+NOEP .EQ. 0) GO TO 2004 C C IF EXTRA POINTS PRESENT, SORT THE GPL ON SEQ NO. C REPLACE SEQ NO WITH INTERNAL GRID NO FOR DYNAMICS. C N = NGPL + 2 IF (NOEP .NE. 0) CALL SORT (0,0,3,2,Z,N) I = 2 Z(I)= 1 IF (NGPL .EQ. 1) GO TO 1060 DO 1052 I = 4,NGPL,3 1052 Z(I+1) = Z(I-2) + 1 C C WRITE THE GPLD. C 1060 FILE = GPLD CALL OPEN (*2001,GPLD,Z(BUF1),WRTREW) CALL FNAME (GPLD,BUF) CALL WRITE (GPLD,BUF,2,1) DO 1061 I = IGPL,NGPL,3 1061 CALL WRITE (GPLD,Z(I),1,0) CALL WRITE (GPLD,0,0,1) CALL CLOSE (GPLD,CLSREW) MCB(1) = GPLD MCB(2) = N/3 CALL WRTTRL (MCB) KN= MCB(2) C C OPEN SILD AND USETD. WRITE HEADER RECORDS. C OPEN SIL AND USET. SKIP HEADER RECORD. C READ SIL INTO CORE. C FILE = SILD CALL OPEN (*2001,SILD,Z(BUF1),WRTREW) CALL FNAME (SILD,BUF) CALL WRITE (SILD,BUF,2,1) IF (LUSET .EQ. 0) GO TO 1082 FILE = SIL CALL OPEN (*2001,SIL,Z(BUF2),RDREW) CALL FWDREC (*2002,SIL) ISIL = NGPL + 3 CALL READ (*2002,*1081,SIL,Z(ISIL),BUF3-ISIL,1,N) CALL MESAGE (-8,0,NAM) 1081 CALL CLOSE (SIL,CLSREW) NSIL = ISIL + N Z(NSIL)= LUSET + 1 1082 FILE = USETD CALL OPEN (*2001,USETD,Z(BUF3),WRTREW) CALL FNAME (USETD,BUF) CALL WRITE (USETD,BUF,2,1) IF (LUSET .EQ. 0) GO TO 1100 FILE = USET CALL OPEN (*2001,USET,Z(BUF2),RDREW) CALL FWDREC (*2002,USET) C C INITIALIZE DISPLACEMENT SET BIT MASKS. C 1100 I = IGPL J = ISIL - 1 NBREP = 0 BUF(10) = 1 DO 1101 K = 2,7 1101 MCB(K) = 0 MSKUA = TWO(UA) MSKUN = TWO(UN) MSKUF = TWO(UF) MSKUE = TWO(UE) MSKUP = TWO(UP) MSKUD = TWO(UD) MSKUNE = TWO(UNE) MSKUFE = TWO(UFE) MUSETD = ORF(MSKUE,ORF(MSKUNE,ORF(MSKUFE,ORF(MSKUD,MSKUP)))) C C TEST FOR CURRENT POINT IN G-SET OR IN P-SET (EXTRA POINT). C 1110 IF (Z(I+2) .EQ. 0) GO TO 1130 C C POINT IS IN G-SET - READ USET MASKS BELONGING TO POINT. C TURN ON APPROPRIATE BITS FOR P-SET. WRITE MASKS ON USETD. C J = J + 1 M = Z(J+1) - Z(J) CALL READ (*2002,*2003,USET,BUF,M,0,FLAG) DO 1121 K = 1,M KSW = ORF(BUF(K),MSKUP) IF (ANDF(KSW,MSKUA) .NE. 0) KSW = ORF(KSW,MSKUD ) IF (ANDF(KSW,MSKUN) .NE. 0) KSW = ORF(KSW,MSKUNE) IF (ANDF(KSW,MSKUF) .NE. 0) KSW = ORF(KSW,MSKUFE) MCB(5) = ORF(MCB(5),KSW) 1121 BUF(K) = KSW CALL WRITE (USETD,BUF,M,0) GO TO 1140 C C POINT IS AN EXTRA POINT - WRITE MASK ON USETD. C 1130 CALL WRITE (USETD,MUSETD,1,0) MCB(5) = ORF(MCB(5),MUSETD) M = 1 C C REPLACE INTERNAL DYNAMICS NO. WITH SILD NO. WRITE SILD ENTRY. C REPLACE INTERNAL STATICS NO. WITH SIL NO. C 1140 Z(I+1) = BUF(10) CALL WRITE (SILD,Z(I+1),1,0) IF (Z(I+2) .EQ. 0) GO TO 1141 Z(I+2) = Z(J) GO TO 1150 1141 NBREP = NBREP + 1 C C TEST FOR COMPLETION. C 1150 BUF(10) = BUF(10) + M I = I + 3 IF (I .LE. NGPL) GO TO 1110 C C WRITE SECOND RECORD OF SILD (PAIRS OF SIL NO., SILD NO.) C CALL WRITE (SILD,0,0,1) CALL WRITE (USETD,0,0,1) DO 1088 I = IGPL,NGPL,3 IF (Z(I+2) .EQ. 0) GO TO 1088 BUF(1) = Z(I+2) BUF(2) = Z(I+1) CALL WRITE (SILD,BUF,2,0) 1088 CONTINUE C C CLOSE FILES AND WRITE TRAILERS. C CALL CLOSE (SILD ,CLSREW) CALL CLOSE (USETD,CLSREW) MCB(1) = SILD LUSETD = LUSET + NBREP MCB(2) = LUSETD MCB(3) = NBREP CALL WRTTRL (MCB) MCB(1) = USETD CALL WRTTRL (MCB) MCB(5) = 0 CALL CLOSE (USET,CLSREW) C C REPLACE SIL NO. IN TABLE WITH CODED SILD NO. C THEN SORT TABLE ON EXTERNAL GRID NO. C Z(NGPL+4) = LUSETD + 1 DO 1091 I = IGPL,NGPL,3 J = 1 IF (Z(I+4)-Z(I+1) .NE. 1) GO TO 1091 J = 2 IF (Z(I+2) .EQ. 0) J = 3 1091 Z(I+2) = 10*Z(I+1) + J CALL SORT (0,0,3,1,Z(IGPL),NGPL-IGPL+3) C C WRITE EQDYN DATA BLOCK. FIRST RECORD IS PAIRS OF EXTERNAL GRID NO, C SILD NO. SECOND RECORD IS PAIRS OF EXTERNAL GRID NO., CODED SILD C NO. C FILE = EQDYN CALL OPEN (*2001,EQDYN,Z(BUF1),WRTREW) CALL FNAME (EQDYN,BUF) CALL WRITE (EQDYN,BUF,2,1) DO 1094 I = IGPL,NGPL,3 1094 CALL WRITE (EQDYN,Z(I),2,0) CALL WRITE (EQDYN,0,0,1) DO 1095 I = IGPL,NGPL,3 BUF(1) = Z(I ) BUF(2) = Z(I+2) 1095 CALL WRITE (EQDYN,BUF,2,0) CALL WRITE (EQDYN,0,0,1) CALL CLOSE (EQDYN,CLSREW) MCB(1) = EQDYN MCB(2) = KN CALL WRTTRL (MCB) NEQDYN = 2*KN - 1 IF (NBREP .EQ. 0) NBREP = -1 RETURN C C FATAL FILE ERRORS C 2001 N = -1 GO TO 2005 2002 N = -2 GO TO 2005 2003 N = -3 GO TO 2005 2004 N = -30 FILE = 109 2005 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/dpd2.f ================================================ SUBROUTINE DPD2 C C DPD2 ASSEMBLES THE DYNAMIC LOADS TABLE (DLT). C INTEGER GPL ,SIL ,USET ,USETD ,GPLD ,SILD ,DPOOL , 1 DLT ,FRL ,TFL ,TRL ,PSDL ,EED ,SCR1 , 2 SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 ,BUF3 , 3 BUF4 ,FLAG ,FILE ,EPOINT,SEQEP ,Z ,LOADS , 5 SDT ,DLOAD ,FREQ1 ,FREQ ,TIC ,TSTEP ,TF , 6 PSD ,EIGR ,EIGB ,EIGC ,NGRID ,EQDYN ,SCR , 7 BUFX DIMENSION BUF(24) ,EPOINT(2) ,SEQEP(2) ,MCB(7), 1 NAM(2),LOADS(32) ,DLOAD(2) ,FREQ1(2) , 2 FREQ(2) ,ZZ(1) ,BUFR(20) ,NOLIN(21) , 3 TIC(2),TSTEP(2) ,TF(2) ,PSD(2),MSG(3),EIGR(2) 4, EIGB(2) ,EIGC(2) ,SCR(4),BUFX(3) COMMON /BLANK / LUSET ,LUSETD,NOTFL ,NODLT ,NOPSDL,NOFRL ,NONLFT, 1 NOTRL ,NOEED ,NOSDT ,NOUE COMMON /SYSTEM/ IDUMMY(55) ,ITHRML COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /DPDCOM/ DPOOL ,GPL ,SIL ,USET ,GPLD ,SILD ,USETD , 1 DLT ,FRL ,NLFT ,TFL ,TRL ,PSDL ,EED , 2 SCR1 ,SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 , 3 BUF3 ,BUF4 ,EPOINT,SEQEP ,L ,KN ,NEQDYN, 4 LOADS ,DLOAD ,FREQ1 ,FREQ ,NOLIN ,NOGO ,MSG , 5 TIC ,TSTEP ,TF ,PSD ,EIGR ,EIGB ,EIGC , 6 MCB ,NAM ,EQDYN ,SDT ,INEQ COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),ZZ(1)), (BUF(1),BUFR(1)), (MSG(2),NGRID), 1 (SCR1,SCR(1)),(BUF2 ,BUFX(1)) C C OPEN DYNAMICS POOL. SET POINTERS TO LOOP THRU DAREA, DELAY C AND DPHASE TABLES. C FILE = DPOOL CALL PRELOC (*2001,Z(BUF1),DPOOL) II = 1 III = 1 ITABL = NEQDYN + 2 L = 2 J = BUF4 - 1 MSG(1) = 66 C C LOCATE CARD TYPE. IF PRESENT-- C STORE POINTER TO 1ST TABLE NO. IN LOADS TABLE, OPEN SCRATCH FILE C FOR TABLES, SET ID = 0. C 1110 CALL LOCATE (*1141,Z(BUF1),LOADS(II),FLAG) LOADS(II+2) = J FILE = SCR(III) CALL OPEN (*2001,FILE,Z(BUF2),WRTREW) ID = 0 C C READ A CARD. IF TABLE NO. IS DIFFERENT, STORE TABLE NO. IN TABLE C LIST. IF NOT FIRST CARD, SORT TABLE ON SIL NO. AND WRITE ON C SCRATCH FILE. C 1120 CALL READ (*2002,*1140,DPOOL,BUF,4,0,FLAG) IF (BUF(1) .EQ. ID) GO TO 1130 IF (ID .EQ. 0) GO TO 1122 N = I - ITABL CALL SORT (0,0,2,1,Z(ITABL),N) CALL WRITE (FILE,Z(ITABL),N,1) 1122 ID = BUF(1) Z(J) = ID J = J - 1 I = ITABL MSG(3) = ID C C CONVERT POINT AND COMPONENT TO SIL NO. C STORE SIL NO. AND VALUE IN CORE. C 1130 CALL DPDAA Z(I ) = BUF(2) Z(I+1) = BUF(4) I = I + 2 IF (I .LT. J) GO TO 1120 CALL MESAGE (-8,0,NAM) C C HERE WHEN LAST CARD OF CURRENT TYPE HAS BEEN READ-- C SORT AND WRITE LAST RECORD. CLOSE SCRATCH FILE. STORE C NUMBER OF TABLES IN TABLE LIST. TEST FOR ALL CARD TYPES PROCESSED. C 1140 N = I - ITABL CALL SORT (0,0,2,1,Z(ITABL),N) CALL WRITE (FILE,Z(ITABL),N,1) CALL CLOSE (FILE,CLSREW) LOADS(II+3) = LOADS(II+2) - J 1141 II = II + 4 III = III + 1 IF (III .LE. 3) GO TO 1110 C C SET POINTERS TO LOOP THRU RLOAD1,2 AND TLOAD1,2 CARDS C NCORE = J J = 1 III = 1 INEQ = 0 C C LOCATE A CARD TYPE. IF PRESENT-- C READ ALL CARDS OF TYPE INTO CORE. C 1160 CALL LOCATE (*1165,Z(BUF1),LOADS(II),FLAG) M = LOADS(II+2) 1161 Z(J) = III CALL READ (*2002,*1165,DPOOL,Z(J+1),M,0,FLAG) J = J + 11 IF (J .LT. NCORE) GO TO 1161 CALL MESAGE (-8,0,NAM) C C TEST FOR ALL CARD TYPES PROCESSED. C IF SO, SORT CARDS ON LOAD SET ID. C 1165 II = II + 4 III = III + 1 IF (III .LE. 4) GO TO 1160 N = J - 1 IF (N .NE. 0) GO TO 1166 CALL CLOSE (DPOOL,CLSREW) RETURN C 1166 CALL SORT (0,0,11,2,Z,N) NLIST = J - 11 C C LOCATE DLOAD CARDS ON DYNAMICS POOL. C IF PRESENT READ INTO CORE. SORT EACH DLOAD CARD ON REFERENCED SET C ID. C NODLD = 0 CALL LOCATE (*1174,Z(BUF1),DLOAD,FLAG) IDLOAD = J I = IDLOAD J = I 1171 CALL READ (*2002,*1174,DPOOL,Z(J+1),2,0,FLAG) J = J + 3 NODLD = NODLD + 1 1172 CALL READ (*2002,*2003,DPOOL,Z(J),2,0,FLAG) IF (Z(J) .EQ. -1) GO TO 1173 J = J + 2 IF (J .GE. NCORE) CALL MESAGE (-8,0,NAM) GO TO 1172 1173 N = J - (I+3) CALL SORT (0,0,2,2,Z(I+3),N) C C CHECK FOR DLOAD SET ID UNIQUENESS C DO 11731 KK = 2,N,2 JJ = I + 2 + KK IF (KK .GE. N) GO TO 11731 IF (Z(JJ) .NE. Z(JJ+2)) GO TO 11731 NOGO = 1 MSG(2) = Z(I+1) MSG(3) = Z(JJ) CALL MESAGE (30,135,MSG(2)) 11731 CONTINUE Z(I) = N + 2 I = J GO TO 1171 1174 CALL CLOSE (DPOOL,CLSREW) C C OPEN THE DLT. WRITE NAME IN HEADER RECORD. C THEN WRITE NO. OF DLOAD CARDS FOLLOWED BY DLOAD SET IDS. C THEN WRITE SET IDS FOR EACH RECORD OF THE DLT (FOLLOWING DLOAD C RECORD) C FILE = DLT CALL OPEN (*1249,DLT,Z(BUF1),WRTREW) CALL FNAME (DLT,BUF) BUF(3) = NODLD CALL WRITE (DLT,BUF,3,0) IF (NODLD .EQ. 0) GO TO 1182 I = IDLOAD J = 1 1181 CALL WRITE (DLT,Z(I+1),1,0) I = I + Z(I) + 1 J = J + 1 IF (J .LE. NODLD) GO TO 1181 C C CHECK DLOAD SID VS RLOAD1,2 AND TLOAD1,2 FOR UNIQUENESS C I = IDLOAD DO 11810 JJ = 1,NODLD ITEMP = Z(I+1) DO 11811 KK = 1,NLIST,11 IF (ITEMP .NE. Z(KK+1)) GO TO 11811 NOGO = 1 MSG(2) = ITEMP CALL MESAGE (30,136,MSG(2)) 11811 CONTINUE I = I + Z(I) + 1 11810 CONTINUE 1182 DO 1183 I = 1,NLIST,11 BUF(1) = Z(I+1) C C CHECK FOR UNIQUE SET IDS ON TLOAD1,2 AND RLOAD1,2 CARDS THEN WRIT C IF (I .GE. NLIST) GO TO 1184 IF (Z(I+1) .NE. Z(I+12)) GO TO 1184 NOGO = 1 MSG(2) = ITEMP CALL MESAGE (30,136,MSG(2)) 1184 CALL WRITE (DLT,BUF,1,0) 1183 CONTINUE CALL WRITE (DLT,0,0,1) C C IF DLOAD CARDS PRESENT, WRITE THE DLOAD RECORD. C IF (NODLD .EQ. 0) GO TO 1200 BUF(1) = -1 BUF(2) = -1 I = IDLOAD J = 1 1191 N = Z(I) CALL WRITE (DLT,Z(I+1),N,0) CALL WRITE (DLT,BUF,2,0) I = I + N + 1 J = J + 1 IF (J .LE. NODLD) GO TO 1191 CALL WRITE (DLT,0,0,1) C C INITIALIZE TO LOOP THRU ALL LOAD SETS. THE REMAINDER OF THE DLT C WILL CONSIST OF ONE LOGICAL RECORD PER LOAD SET. C 1200 I = 1 C C WRITE FIXED SECTION OF DLT RECORD. C 1205 BUF(1) = Z(I ) BUF(2) = Z(I+2) C C SAVE INFORCED MOTION FLAG ON TLOAD CARDS C IF (Z(I).LT.3 .OR. Z(I).GT.4) GO TO 1206 IEMF = Z(I+4) Z(I+4) = 0 1206 CONTINUE CALL WRITE (DLT,BUF,2,0) CALL WRITE (DLT,Z(I+5),6,0) C C POSITION SCRATCH FILES TO SELECTED TABLES. C IDAREA = 0 DO 1215 J = 1,3 BUF(2*J-1) = 16777215 C 16777215 =2**24 - 1 K = I + J BUF(J+16) = Z(K+1) IF (BUF(J+16) .EQ. 0) GO TO 1215 JJ = LOADS(4*J-1) NN = LOADS(4*J ) IF (NN .EQ. 0) GO TO 1212 DO 1211 NX = 1,NN IF (Z(JJ) .EQ. BUF(J+16)) GO TO 1213 JJ = JJ - 1 1211 CONTINUE 1212 IF (ITHRML.NE.1 .OR. J.NE.1) GO TO 1300 IDAREA = -1 BUF(17) = 0 GO TO 1215 1300 BUF(10) = Z(I+1) BUF(11) = BUF(J+16) BUF(11) = BUF(11) + 100000000*J NOGO = 1 CALL MESAGE (30,71,BUF(10)) BUF(J+16) = 0 GO TO 1215 1213 NN = NX - 1 FILE = SCR(J) IBUF = BUFX(J) CALL OPEN (*2001,FILE,Z(IBUF),RDREW) IF (NN .EQ. 0) GO TO 1215 DO 1214 NX = 1,NN CALL FWDREC (*2002,FILE) 1214 CONTINUE 1215 CONTINUE C C INITIALIZE TABLE READ. C BUF(14) = BUF(17) BUF(15) = BUF(18) BUF(16) = BUF(19) C C READ AN ENTRY FROM APPROPRIATE TABLE/S). C IF ALL ENTRIES HAVE BEEN READ, GO TO CLOSE DLT RECORD. C 1220 DO 1222 J = 1,3 IF (ITHRML.NE.1 .OR. J.NE.1) GO TO 1320 IF (IDAREA .EQ. 0) GO TO 1320 IF (IDAREA .EQ.-2) GO TO 1221 IDAREA = -2 BUF(1) = 1 BUF(2) = 0 BUF(14) = 0 1320 IF (BUF(J+13) .EQ. 0) GO TO 1222 FILE = SCR(J) J2 = 2*J CALL READ (*2002,*1221,FILE,BUF(J2-1),2,0,FLAG) GO TO 1222 1221 BUF(2*J-1) = 16777215 BUF(J+13) = 0 1222 CONTINUE IF (BUF(1)+BUF(3)+BUF(5) .EQ. 3*16777215) GO TO 1240 C C SELECT MINIMUM SIL NO(S) AND FORMAT OUTPUT. C DO 1231 J = 1,6 1231 BUF(J+10) = 0 BUF(7) = 1 BUF(8) = 2 BUF(9) = 3 IF (BUF(1) .GT. BUF(3)) GO TO 1232 C C 1 .LE. 2--COMPARE 2 TO 3. IF 2 .GT. 3, SWITCH 2 AND 3. C IF (BUF(3) .LE. BUF(5)) GO TO 1234 K = BUF(8) BUF(8) = BUF(9) BUF(9) = K GO TO 1233 C C 1 .GT. 2--SWITCH 1 AND 2 THEN COMPARE 2 AND 3. IF 2 .GT. 3, SWITCH C 1232 K = BUF(7) BUF(7) = BUF(8) BUF(8) = K IF (BUF(1) .LE. BUF(5)) GO TO 1234 K = BUF(8) BUF(8) = BUF(9) BUF(9) = K C C COMPARE 1 TO 2--IF 1 .GT. 2, SWITCH 1 AND 2. C 1233 K = BUF(7) L = BUF(8) IF (BUF(2*K-1) .LE. BUF(2*L-1)) GO TO 1234 BUF(7) = L BUF(8) = K C C PICK UP 1. SET TO READ 1. C 1234 K = BUF(7) BUF( 10) = BUF(2*K-1) BUF(K+10) = BUF(2*K ) BUF(K+13) = K C C IF 1 .EQ. 2, PICK UP 2 AND SET TO READ 2. C L = BUF(8) IF (BUF(2*K-1) .NE. BUF(2*L-1)) GO TO 1235 BUF(L+10) = BUF(2*L) BUF(L+13) = L C C IF 1 .EQ. 2 .EQ. 3, PICK UP 3 AND SET TO READ 3. C M = BUF(9) IF (BUF(2*L-1) .NE. BUF(2*M-1)) GO TO 1235 BUF(M+10) = BUF(2*M) BUF(M+13) = M C C WRITE SIL NO., A, TAU, THETA. THEN GO TO READ ANOTHER TABLE C ENTRY(S). C 1235 IF (Z(I).LT.3 .OR. Z(I).GT.4) GO TO 1236 BUF(13) = IEMF 1236 CALL WRITE (DLT,BUF(10),4,0) GO TO 1220 C C CLOSE DLT RECORD, CLOSE TABLES AND TEST FOR COMPLETION OF DLT. C 1240 CALL WRITE (DLT,0,0,1) DO 1241 J = 1,3 IF (BUF(J+16) .NE. 0) CALL CLOSE (SCR(J),CLSREW) 1241 CONTINUE I = I + 11 IF (I .LE. NLIST) GO TO 1205 C C CLOSE DLT, WRITE TRAILER AND RETURN. C CALL CLOSE (DLT,CLSREW) MCB(1) = DLT MCB(2) = DLT CALL WRTTRL (MCB) NODLT = 1 1249 RETURN C C FATAL FILE ERRORS C 2001 N= -1 GO TO 2005 2002 N= -2 GO TO 2005 2003 N= -3 2005 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/dpd3.f ================================================ SUBROUTINE DPD3 C C DPD3 ASSEMBLES THE FREQUENCY RESPONSE LIST (FRL) C AND THE POWER SPECTRAL DENSITY LIST (PSDL). C INTEGER GPL ,SIL ,USET ,USETD ,GPLD ,SILD ,DPOOL , 1 DLT ,FRL ,TFL ,TRL ,PSDL ,EED ,SCR1 , 2 SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 ,BUF3 , 3 BUF4 ,FLAG ,FILE ,EPOINT,SEQEP ,Z ,LOADS , 5 RANDT2,DLOAD ,FREQ1 ,FREQ ,TIC ,TSTEP ,TF , 6 PSD ,EIGR ,EIGB ,EIGC ,NGRID ,EQDYN ,SDT , 7 FREQ2 ,RANDPS,RANDT1 DIMENSION BUF(24) ,EPOINT(2) ,SEQEP(2) ,MCB(7) , 1 NAM(2) ,LOADS(32) ,DLOAD(2) ,FREQ1(2) , 2 FREQ(2) ,ZZ(1) ,BUFR(20) ,NOLIN(21), 3 TIC(2) ,TSTEP(2) ,TF(2) ,PSD(2) , 4 MSG(3) ,EIGR(2) ,EIGB(2) ,EIGC(2) , 5 FREQ2(2) ,RANDPS(2) ,RANDT1(2) ,RANDT2(2) COMMON /CONDAS/ CONSTS(5) COMMON /BLANK / LUSET ,LUSETD,NOTFL ,NODLT ,NOPSDL,NOFRL ,NONLFT, 1 NOTRL ,NOEED COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /DPDCOM/ DPOOL ,GPL ,SIL ,USET ,GPLD ,SILD ,USETD , 1 DLT ,FRL ,NLFT ,TFL ,TRL ,PSDL ,EED , 2 SCR1 ,SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 , 3 BUF3 ,BUF4 ,EPOINT,SEQEP ,L ,KN ,NEQDYN, 4 LOADS ,DLOAD ,FREQ1 ,FREQ ,NOLIN ,NOGO , 5 MSG ,TIC ,TSTEP ,TF ,PSD ,EIGR ,EIGB , 6 EIGC ,MCB ,NAM ,EQDYN ,SDT ,INEQ COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (CONSTS(2),TWOPI), (Z(1),ZZ(1)), (BUF(1),BUFR(1)), 1 (MSG(2),NGRID) DATA FREQ2 , RANDPS , RANDT1 , RANDT2 / 1 1107,11, 2107,21, 2207,22, 2307,23 / C C OPEN DYNAMICS POOL. SET POINTERS. C FILE = DPOOL CALL PRELOC (*2001,Z(BUF1),DPOOL) NOFRQ1 = 0 NOFRQ2 = 0 NOFRQ = 0 IFRQ1 = 1 IFRQ2 = IFRQ1 IFRQ = IFRQ1 I = IFRQ1 J = I C C READ FREQ1 CARDS. CONVERT F1 AND DELTA F TO RADIANS. C CALL LOCATE (*1265,Z(BUF1),FREQ1,FLAG) NOFRQ1 = 1 1261 CALL READ (*2002,*1262,DPOOL,Z(I),4,0,FLAG) ZZ(I+1) = TWOPI*ZZ(I+1) ZZ(I+2) = TWOPI*ZZ(I+2) I = I + 4 GO TO 1261 1262 NFRQ1 = I - 4 IFRQ2 = I IFRQ = I J = I C C READ FREQ2 CARDS. CONVERT FREQUENCIES TO RADIANS. C 1265 CALL LOCATE (*1270,Z(BUF1),FREQ2,FLAG) NOFRQ2 = 1 1266 CALL READ (*2002,*1267,DPOOL,Z(I),4,0,FLAG) ZZ(I+1) = TWOPI*ZZ(I+1) ZZ(I+2) = TWOPI*ZZ(I+2) I = I + 4 GO TO 1266 1267 NFRQ2 = I - 4 IFRQ = I J = I C C READ FREQ CARDS. CONVERT FREQUENCIES TO RADIANS. C 1270 CALL LOCATE (*1274,Z(BUF1),FREQ,FLAG) NOFRQ = 1 1271 CALL READ (*2002,*1274,DPOOL,Z(J+1),1,0,FLAG) J = J + 2 1272 CALL READ (*2002,*2003,DPOOL,Z(J),1,0,FLAG) IF (Z(J) .EQ. -1) GO TO 1273 ZZ(J) = TWOPI*ZZ(J) J = J + 1 GO TO 1272 1273 Z(I) = J - (I+1) I = J GO TO 1271 C C TEST FOR ANY FREQ TYPE CARDS. C 1274 NOFRL = NOFRQ1 + NOFRQ2 + NOFRQ IF (NOFRL .NE. 0) GO TO 1280 GO TO 1276 1275 INEQ = 0 1276 NOFRL =-1 GO TO 1310 C C COLLECT LIST OF FREQUENCY SET IDS AND POINTERS TO CARDS. C SORT THIS LIST ON SET ID. C 1280 ILIST = J + 1 I = ILIST IF (NOFRQ1 .EQ. 0) GO TO 1282 C C FOR FREQ1 SET STORE SET ID, POINTER TO SET, 0. C DO 1281 K = IFRQ1,NFRQ1,4 Z(I ) = Z(K) Z(I+1) = K Z(I+2) = 0 1281 I = I + 3 NLIST = I - 3 1282 IF (NOFRQ2 .EQ. 0) GO TO 1287 C C FOR FREQ2 SET STORE SET ID, POINTER TO SET, -1. C DO 1286 K = IFRQ2,NFRQ2,4 Z(I ) = Z(K) Z(I+1) = K Z(I+2) =-1 1286 I = I + 3 NLIST = I - 3 1287 IF (NOFRQ .EQ. 0) GO TO 1285 C C FOR FREQ SET STORE SET ID, POINTER TO SET, NO. OF WORDS IN SET. C J = IFRQ 1283 N = Z(J) IF (N .EQ. -1) GO TO 1284 J = J + 1 Z(I ) = Z(J) Z(I+1) = J Z(I+2) = N I = I + 3 J = J + N GO TO 1283 1284 NLIST = I - 3 1285 N = I - ILIST CALL SORT (0,0,3,1,Z(ILIST),N) C C OPEN THE FRL. WRITE NAME + SET IDS IN HEADER. C FILE = FRL CALL OPEN (*1275,FRL,Z(BUF2),WRTREW) CALL FNAME (FRL,BUF) CALL WRITE (FRL,BUF,2,0) DO 1291 I = ILIST,NLIST,3 BUF(1) = Z(I) 1291 CALL WRITE (FRL,BUF,1,0) CALL WRITE (FRL,0,0,1) C C WRITE THE FRL ONE RECORD PER FREQUENCY SET. C CONVERT FREQ1 SETS TO LOOK LIKE FREQ SETS. C CONVERT FREQ2 SETS TO LOOK LIKE FREQ SETS. C DO 1308 I = ILIST,NLIST,3 J = Z(I+1) N = Z(I+2) IF (N) 1304,1301,1303 C C FREQ SET --- SORT FREQUENCY LIST AND DISCARD ANY DUPLICATES. C THEN WRITE FREQUENCIES ON THE FRL C 1303 N = N - 1 IF (N .EQ. 1) GO TO 1307 CALL SORTF (0,0,1,1,Z(J+1),N) J1 = J + 2 JN = J + N IX = J + 1 DO 1306 JX = J1,JN IF (Z(JX) .EQ. Z(IX)) GO TO 1306 IX = IX + 1 Z(IX) = Z(JX) 1306 CONTINUE N = IX - J 1307 CALL WRITE (FRL,Z(J+1),N,1) GO TO 1308 C C FREQ1 SET-- FORM F = F0 + (I-1)*DELTA F, WHERE I = 1 THRU N+1. C 1301 F0 = ZZ(J+1) DELF = ZZ(J+2) N = Z(J+3) + 1 FI = 0. DO 1302 K = 1,N F = F0 + FI*DELF CALL WRITE (FRL,F,1,0) 1302 FI = FI + 1.0 CALL WRITE (FRL,0,0,1) GO TO 1308 C C FREQ2 SET-- FORM F = F0*10.0**((I-1)*DELTA) C WHERE DELTA = (LOG10(FE/F0))/N AND I = 1 THRU N+1. C 1304 F0 = ZZ(J+1) FE = ZZ(J+2) N = Z(J+3) FN = N DELTA = (ALOG10(FE/F0))/FN FI = 0. N = N + 1 DO 1305 K = 1,N F = F0*10.0**(FI*DELTA) CALL WRITE (FRL,F,1,0) 1305 FI = FI + 1.0 CALL WRITE (FRL,0,0,1) 1308 CONTINUE C C CLOSE FRL AND WRITE TRAILER. C MCB(1) = FRL MCB(2) = (NLIST-ILIST)/3 + 1 CALL WRTTRL (MCB) CALL CLOSE (FRL,CLSREW) INEQ = 0 C C OPEN PSDL. IF PURGED, BYPASS PSDL PROCESSING. C OTHERWISE, LOCATE RANDPS CARDS. IF ABSENT, BYPASS PSDL PROCESSING. C 1310 FILE = PSDL CALL OPEN (*1381,PSDL,Z(BUF2),WRTREW) CALL LOCATE (*1381,Z(BUF1),RANDPS,FLAG) C C READ RANDPS CARDS INTO CORE. C IRPS = 1 FILE = DPOOL CALL READ (*2002,*1322,DPOOL,Z(IRPS),BUF2-IRPS,1,NRPS) GO TO 2004 1322 IRT1 = IRPS + NRPS IRT2 = IRT1 I = IRT1 J = I NORT1= 0 NORT2= 0 C C READ RANDT1 CARDS. C CALL LOCATE (*1340,Z(BUF1),RANDT1,FLAG) CALL READ (*2002,*1332,DPOOL,Z(IRT1),BUF2-IRT1,1,NORT1) GO TO 2004 1332 IRT2 = IRT1 + NORT1 NRT1 = IRT2 - 4 I = IRT2 J = I C C READ RANDT2 CARDS. C 1340 CALL LOCATE (*1350,Z(BUF1),RANDT2,FLAG) NORT2 = 1 1341 CALL READ (*2002,*1350,DPOOL,Z(J+1),1,0,FLAG) J = J + 2 1342 CALL READ (*2002,*2003,DPOOL,Z(J),1,0,FLAG) IF (Z(J) .EQ. -1) GO TO 1343 J = J + 1 IF (J .LT. BUF2) GO TO 1342 GO TO 2004 1343 Z(I) = J - (I+1) I = J GO TO 1341 C C COLLECT LIST OF RANDT1 AND RANDT2 SET IDS AND POINTERS TO DATA. C 1350 NORT = NORT1 + NORT2 IF (NORT .EQ. 0) GO TO 1360 ILIST = J + 1 I = ILIST IF (NORT1 .EQ. 0) GO TO 1352 C C FOR RANDT1 SETS STORE SET ID, POINTER TO SET, 0. C DO 1351 K = IRT1,NRT1,4 Z(I ) = Z(K) Z(I+1) = K Z(I+2) = 0 1351 I = I + 3 NLIST = I - 3 IF (I .GT. BUF2) GO TO 2004 1352 IF (NORT2 .EQ. 0) GO TO 1355 C C FOR RANDT2 SETS STORE SET ID, POINTER TO SET, NO. OF WORDS IN SET. C J = IRT2 1353 N = Z(J) IF (N .EQ. -1) GO TO 1354 Z(I ) = Z(J) Z(I+1) = J Z(I+2) = N I = I + 3 J = J + N IF (I .LT. BUF2) GO TO 1353 GO TO 2004 1354 NLIST = I - 3 C C SORT LIST ON SET ID. C 1355 N = I - ILIST CALL SORT (0,0,3,1,Z(ILIST),N) C C WRITE SET IDS FOR RANDT1 AND RANDT2 CARDS IN HEADER RECORD OF C PSDL. THEN WRITE RANDPS DATA AS FIRST RECORD OF PSDL. C 1360 CALL FNAME (PSDL,BUF) CALL WRITE (PSDL,BUF,2,0) IF (NORT .EQ. 0) GO TO 1362 DO 1361 I = ILIST,NLIST,3 1361 CALL WRITE (PSDL,Z(I),1,0) 1362 CALL WRITE (PSDL,0,0,1) CALL WRITE (PSDL,Z(IRPS),NRPS,1) IF (NORT .EQ. 0) GO TO 1380 C C WRITE ONE RECORD ON PSDL FOR EACH RANDT1 OR RANDT2 SET. C DO 1378 I = ILIST,NLIST,3 J = Z(I+1) N = Z(I+2) IF (N .EQ. 0) GO TO 1372 C C RANDT2 SET-- SORT DATA AND DISCARD ANY DUPLICATES. THEN WRITE SET C N = N - 1 IF (N .EQ. 1) GO TO 1376 CALL SORTF (0,0,1,1,Z(J+1),N) J1 = J + 2 JN = J + N IX = J + 1 DO 1375 JX = J1,JN IF (Z(JX) .EQ. Z(IX)) GO TO 1375 IX = IX + 1 Z(IX) = Z(JX) 1375 CONTINUE N = IX - J 1376 CALL WRITE (PSDL,Z(J+1),N,1) GO TO 1378 C C RANDT1 SET-- WRITE TI = T0 + (I-1)*DELTA T, WHERE I = 1 THRU N+1. C 1372 N = Z(J+1) FN = N DELT = (ZZ(J+3)-ZZ(J+2))/FN T0 = ZZ(J+2) FI = 0. N = N + 1 DO 1373 K = 1,N TI = T0 + FI*DELT CALL WRITE (PSDL,TI,1,0) 1373 FI = FI + 1.0 CALL WRITE (PSDL,0,0,1) 1378 CONTINUE C C CLOSE FILES, WRITE TRAILER AND EXIT. C 1380 MCB(1) = PSDL MCB(2) = (NLIST-ILIST)/3 + 1 C 2147483647 = 2**31 - 1 IF (NORT .EQ. 0) MCB(2) = 2147483647 CALL WRTTRL (MCB) INEQ = 0 NOPSDL= 1 1381 CALL CLOSE (DPOOL,CLSREW) CALL CLOSE (PSDL ,CLSREW) RETURN C C FATAL FILE ERRORS C 2001 N = -1 GO TO 2005 2002 N = -2 GO TO 2005 2003 N = -3 GO TO 2005 2004 N = -8 2005 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/dpd4.f ================================================ SUBROUTINE DPD4 C C DPD4 ASSEMBLES THE NON-LINEAR FORCING TABLE (NLFT) C AND THE TRANSIENT RESPONSE LIST (TRL). C EXTERNAL ANDF INTEGER GPL ,SIL ,USET ,USETD ,GPLD ,SILD ,DPOOL , 1 DLT ,FRL ,TFL ,TRL ,PSDL ,EED ,SCR1 , 2 SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 ,BUF3 , 3 BUF4 ,FLAG ,FILE ,EPOINT,SEQEP ,Z ,LOADS , 5 ANDF ,DLOAD ,FREQ1 ,FREQ ,TIC ,TSTEP ,TF , 6 PSD ,EIGR ,EIGB ,EIGC ,NGRID ,EQDYN ,SDT , 7 UD ,UE ,TWO DIMENSION BUF(24) ,EPOINT(2) ,SEQEP(2) ,MCB(7) , 1 NAM(2) ,LOADS(32) ,DLOAD(2) ,FREQ1(2) , 2 FREQ(2) ,ZZ(1) ,BUFR(20) ,NOLIN(21), 3 TIC(2) ,TSTEP(2) ,TF(2) ,PSD(2) , 4 MSG(3) ,EIGR(2) ,EIGB(2) ,EIGC(2) COMMON /BLANK / LUSET ,LUSETD,NOTFL ,NODLT ,NOPSDL,NOFRL ,NONLFT, 1 NOTRL ,NOEED COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /DPDCOM/ DPOOL ,GPL ,SIL ,USET ,GPLD ,SILD ,USETD , 1 DLT ,FRL ,NLFT ,TFL ,TRL ,PSDL ,EED , 2 SCR1 ,SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 , 3 BUF3 ,BUF4 ,EPOINT,SEQEP ,L ,KN ,NEQDYN, 4 LOADS ,DLOAD ,FREQ1 ,FREQ ,NOLIN ,NOGO , 5 MSG ,TIC ,TSTEP ,TF ,PSD ,EIGR ,EIGB , 6 EIGC ,MCB ,NAM ,EQDYN ,SDT ,INEQ COMMON /TWO / TWO(32) COMMON /BITPOS/ UM ,UO ,UR ,USG ,USB ,UL ,UA , 1 UF ,US ,UN ,UG ,UE ,UP ,UNE , 2 UFE ,UD COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1) ,ZZ(1)),(BUF(1),BUFR(1)),(MSG(2),NGRID) DATA NOLINR/ 7 / C C INITIALIZE POINTERS. OPEN SCR1. OPEN DYNAMICS POOL. C INOLIN = NEQDYN + 2 J = INOLIN MSKUD = TWO(UD) MSKUE = TWO(UE) INCORE = 0 II = 1 I = 1 MSG(1) = 67 CALL PRELOC (*2001,Z(BUF1),DPOOL) CALL OPEN (*2001,SCR1,Z(BUF2),WRTREW) INEQ = 0 C C LOCATE NOLINI CARD. IF PRESENT, TURN NONLFT FLAG OFF, C 1320 CALL LOCATE (*1358,Z(BUF1),NOLIN(I),FLAG) NONLFT = 1 NWDIN = NOLIN(I+2) C C READ A NOLINI CARD. CONVERT POINTS ON CARD TO SIL NOS. C STORE DATA IN CORE. IF SPILL, WRITE ON SCRATCH FILE. C 1340 CALL READ (*2002,*1358,DPOOL,BUF,NWDIN,0,FLAG) MSG(3) = 100000000*II + BUF(1) IF (II .GE. 5) IF (II-6) 1350, 1354, 1342 C NOLIN5,NFTUBE,NOLIN6 III = II IF (BUF(6) .LT. 10) GO TO 1341 III = II + 4 BUF(6) = BUF(6) - 10 1341 IF (II .NE. 2) GO TO 1343 IF (BUF(8) .LT. 10) GO TO 1343 BUF(8) = BUF(8) - 10 IF(III.EQ.2) III = 10 IF(III.EQ.6) III = 9 GO TO 1343 1342 III = 13 IF (BUF(6) .LT. 10) GO TO 1343 III = 14 BUF(6) = BUF(6) - 10 1343 L = 2 CALL DPDAA BUF(3) = BUF(2) L = 5 CALL DPDAA L = 7 IF (II .EQ. 2) CALL DPDAA BUF(6) = BUF(7) BUF(2) = III 1344 NN = 6 1345 IF (INCORE .NE. 0) GO TO 1348 IF (J+NN .GE. BUF2) GO TO 1347 DO 1346 K = 1,NN Z(J) = BUF(K) 1346 J = J + 1 GO TO 1340 1347 CALL WRITE (SCR1,Z(INOLIN),J-INOLIN,0) INCORE = 1 1348 CALL WRITE (SCR1,BUF,NN,0) GO TO 1340 C C SPECIAL HANDLING OF NOLIN5 CARD C CARD FORMAT AS RECEIVED FROM IFP C SID AA AB FAB EA/TEA EB/TEB ALPA/TALPA ALPB/TALPB C GA1 GA2 GA3 GA4 GB1 GB2 GB3 GB4 C C WE CONVERT THIS CARD INTO THE FOLLOWING 6-WORD ENTRY FORMAT C C SID 12 SILA1 AA SILA2 AB C SID 12 SILA3 FAB SIL4 0 C SID 12 SILB1 EA/TEA SILB2 EB/TEB C SID 12 SILB3 ALPA/TALPA SILB4 ALPB/TALPB C 1350 L = 23 KK= 16 DO 1351 K = 1,8 BUF(L+1) = 0 BUF(L ) = BUF(KK) IF (BUF(L) .NE. 0) CALL DPDAA KK = KK - 1 1351 L = L -2 BUF(24) = BUF( 8) BUF(22) = BUF( 7) BUF(18) = BUF( 6) BUF(16) = BUF( 5) BUF(12) = 0 BUF(10) = BUF( 4) BUF( 6) = BUF( 3) BUF( 4) = BUF( 2) BUF( 3) = BUF( 9) BUF( 5) = BUF(11) BUF( 9) = BUF(13) BUF(11) = BUF(15) BUF(17) = BUF(19) DO 1352 K = 1,24,6 BUF(K ) = BUF(1) 1352 BUF(K+1) = 12 NN = 24 GO TO 1345 C 1354 L = 7 BUF(7) = BUF(2) BUF(8) = 1 CALL DPDAA BUF(3) = BUF(7) BUF(7) = BUF(3) BUF(8) = 1 CALL DPDAA BUF(5) = BUF(7) BUF(6) = BUF(5) BUF(2) = 11 MSG(3) = BUF(1) GO TO 1344 C C HERE WHEN ALL CARDS OF CURRENT TYPE HAVE BEEN READ. C TEST FOR ALL CARDS READ. C 1358 I = I + 3 II = II+ 1 IF (II .LE. NOLINR) GO TO 1320 CALL WRITE (SCR1,0,0,1) CALL CLOSE (SCR1,CLSREW) IF (NONLFT .EQ. -1) GO TO 1400 C C SORT THE DATA ON SET ID. C IF (INCORE .NE. 0) GO TO 1362 NNOLIN = J - 6 N = J - INOLIN GO TO 1364 1362 CALL OPEN (*2001,SCR1,Z(BUF2),RDREW) CALL READ (*2002,*1363,SCR1,Z,BUF1,1,N) CALL MESAGE (-8,0,NAM) 1363 CALL CLOSE (SCR1,CLSREW) INOLIN = 1 NNOLIN = N - 5 1364 CALL SORT (0,0,6,1,Z(INOLIN),N) C C READ USETD INTO CORE. C FILE = USETD CALL OPEN (*2001,USETD,Z(BUF2),RDREW) CALL FWDREC (*2002,USETD) IUSETD = NNOLIN + 7 CALL READ (*2002,*1365,USETD,Z(IUSETD),BUF2-IUSETD,1,N) CALL MESAGE (-8,0,NAM) 1365 CALL CLOSE (USETD,CLSREW) C C OPEN THE NLFT. WRITE SET IDS IN HEADER RECORD. C FILE = NLFT CALL OPEN (*1392,NLFT,Z(BUF2),WRTREW) CALL FNAME (NLFT,BUF) CALL WRITE (NLFT,BUF,2,0) Z(NNOLIN+6) = 0 DO 1371 I = INOLIN,NNOLIN,6 IF (Z(I+6) .NE. Z(I)) CALL WRITE (NLFT,Z(I),1,0) 1371 CONTINUE CALL WRITE (NLFT,0,0,1) C C WRITE ONE RECORD PER SET. WITHIN EACH SET, SORT DATA ON SIL NO. C CONVERT SIL NOS. TO SIL NOS. IN UD AND UE SETS C I = INOLIN 1381 J = I 1382 IF (Z(I+6) .NE. Z(I)) GO TO 1383 I = I + 6 GO TO 1382 1383 N = I + 6 - J C C ... THE FOLLOWING SORT WAS REMOVED DUE TO THE INSTALLATION OF NOLIN5 C CALL SORT (0,0,6,3,Z(J),N) C CWKBR SPR94005 6/94 DO 1387 KC = J,I,6 DO 1387 K = J,I,6 BUF(1) = Z(K+1) BUF(2) = Z(K+2) BUF(4) = Z(K+3) BUF(5) = Z(K+4) BUF(8) = Z(K+5) BUF(9) = 0 DO 1386 KK = 2,8,3 IF (KK.GE.8 .AND. BUF(1).NE.2 .AND. BUF(1).NE.6 .AND. BUF(1).NE.9 1 .AND. BUF(1).NE.10.AND.KK.EQ.8) GO TO 1386 K1 = 0 K2 = 0 NUSETD = IUSETD + BUF(KK) - 1 IF (NUSETD .LT. IUSETD) GO TO 1385 DO 1384 KKK = IUSETD,NUSETD BUF(10) = Z(KKK) IF (ANDF(BUF(10),MSKUD) .NE. 0) K1 = K1 + 1 IF (ANDF(BUF(10),MSKUE) .NE. 0) K2 = K2 + 1 1384 CONTINUE 1385 BUF(KK ) = K1 BUF(KK+1) = K2 IF (NUSETD .LT. IUSETD) GO TO 1386 IF (ANDF(BUF(10),MSKUE) .EQ. 0) BUF(KK+1) = 0 IF (ANDF(BUF(10),MSKUD) .NE. 0) GO TO 1386 NOGO = 1 BUF(1) = Z(K) BUF(2) = K1 CALL MESAGE (30,93,BUF) 1386 CONTINUE BUF(7) = BUF(8) BUF(8) = BUF(9) CALL WRITE (NLFT,BUF,8,0) 1387 CONTINUE CALL WRITE (NLFT,0,0,1) I = I + 6 IF (Z(I) .NE. 0) GO TO 1381 C C CLOSE FILE AND WRITE TRAILER. C CALL CLOSE (NLFT,CLSREW) MCB(1) = NLFT MCB(2) = (NNOLIN-INOLIN)/6 + 1 CALL WRTTRL (MCB) IF (INCORE .NE. 0) INEQ = 0 GO TO 1400 1392 NONLFT =-1 C C LOCATE TIC CARDS IN DYNAMICS POOL. C 1400 NOTRL =-1 NOTIC = 0 NOTSTP= 0 CALL LOCATE (*1500,Z(BUF1),TIC,FLAG) NOTRL = 1 C C OPEN SCR1. INITIALIZE TO READ TIC CARDS. C FILE = SCR1 CALL OPEN (*2001,SCR1,Z(BUF2),WRTREW) ITIC = NEQDYN + 2 NSET = BUF3 - 1 J = NSET L = 2 MSG(1) = 69 ID = 0 C C READ A TIC CARD. IF SET ID IS DIFFERENT, STORE IT IN LIST. C IF NOT FIRST CARD, SORT DATA ON SIL NO. AND WRITE IT IN SCR1. C 1420 CALL READ (*2002,*1440,DPOOL,BUF,5,0,FLAG) IF (BUF(1) .EQ. ID) GO TO 1430 IF (ID .EQ. 0) GO TO 1421 N = I - ITIC CALL SORT (0,0,3,1,Z(ITIC),N) CALL WRITE (SCR1,Z(ITIC),N,1) 1421 ID = BUF(1) Z(J) = ID J = J - 1 I = ITIC MSG(3) = ID C C CONVERT POINT AND COMPONENT TO SIL NO. C STORE SIL NO., UO, VO IN CORE. C 1430 CALL DPDAA Z(I ) = BUF(2) Z(I+1) = BUF(4) Z(I+2) = BUF(5) I = I + 3 IF (I .LT. J) GO TO 1420 CALL MESAGE (-8,0,NAM) C C HERE WHEN LAST CARD READ - SORT AND WRITE LAST RECORD. C 1440 N = I - ITIC CALL SORT (0,0,3,1,Z(ITIC),N) CALL WRITE (SCR1,Z(ITIC),N,1) CALL CLOSE (SCR1,CLSREW) ISET = J + 1 C C OPEN TRL. WRITE SET IDS IN HEADER. C FILE = TRL CALL OPEN (*1493,TRL,Z(BUF2),WRTREW) CALL FNAME (TRL,BUF) N = NSET - ISET + 1 BUF(3) = N NOTIC = N CALL WRITE (TRL,BUF,3,0) I = ISET J = NSET 1451 ID = Z(J) Z(J) = Z(I) Z(I) = ID I = I + 1 J = J - 1 IF (I .LT. J) GO TO 1451 CALL WRITE (TRL,Z(ISET),N,0) C C READ USETD INTO CORE. C COMPUTE NO. OF POINTS UN UD SET. WRITE NO. AS LAST WORD OF HEADER. C 1460 FILE = USETD CALL OPEN (*2001,USETD,Z(BUF3),RDREW) CALL FWDREC (*2002,USETD) IUSETD = 1 INEQ = 0 CALL READ (*2002,*1462,USETD,Z(IUSETD),BUF3-IUSETD,1,N) CALL MESAGE (-8,0,NAM) 1462 CALL CLOSE (USETD,CLSREW) NUSETD = IUSETD + N - 1 K = 0 DO 1463 I = IUSETD,NUSETD IF (ANDF(Z(I),MSKUD) .NE. 0) K = K + 1 1463 CONTINUE CALL WRITE (TRL,K,1,1) IF (NOTIC .EQ. 0) GO TO 1481 C C READ SCR1. CONVERT SIL NO. TO AN SIL NO. IN THE D-SET. C WRITE TRL ONE RECORD PER SET. C FILE = SCR1 KSET = ISET CALL OPEN (*2001,SCR1,Z(BUF3),RDREW) 1475 K = 0 IPOINT = IUSETD 1471 CALL READ (*1474,*1473,SCR1,BUF,3,0,FLAG) NUSETD = IUSETD + BUF(1) - 1 DO 1472 I = IPOINT,NUSETD IF (ANDF(Z(I),MSKUD) .NE. 0) K = K + 1 1472 CONTINUE BUF(1) = K IF (ANDF(Z(NUSETD),MSKUD) .NE. 0) GO TO 1476 NOGO = 1 CALL MESAGE (30,133,Z(KSET)) 1476 CALL WRITE (TRL,BUF,3,0) IPOINT = NUSETD + 1 GO TO 1471 1473 CALL WRITE (TRL,0,0,1) KSET = KSET + 1 GO TO 1475 1474 CALL CLOSE (SCR1,CLSREW) C C IF TSTEP CARDS PRESENT, COPY THEM ONTO TRL. C CALL LOCATE (*1490,Z(BUF1),TSTEP,FLAG) 1481 CALL READ (*2002,*1483,DPOOL,BUF,1,0,FLAG) NOTSTP = NOTSTP + 1 CALL WRITE (TRL,BUF,1,0) 1482 CALL READ (*2002,*2003,DPOOL,BUF,3,0,FLAG) IF (BUF(1) .EQ. -1) GO TO 1485 CALL WRITE (TRL,BUF,3,0) GO TO 1482 1485 CALL WRITE (TRL,0,0,1) GO TO 1481 1483 CONTINUE C C CLOSE FILES AND WRITE TRAILER. C 1490 CALL CLOSE (TRL,CLSREW) MCB(1) = TRL MCB(2) = NOTIC MCB(3) = NOTSTP CALL WRTTRL (MCB) 1492 CALL CLOSE (DPOOL,CLSREW) RETURN C 1493 NOTRL = -1 GO TO 1492 C C HERE IF NO TIC CARDS - LOCATE TSTEP CARDS IN DYNAMICS POOL. C IF ABSENT, RETURN. OTHERWISE OPEN TRL AND WRTIE HEADER. C 1500 CALL LOCATE (*1492,Z(BUF1),TSTEP,FLAG) NOTRL = 1 FILE = TRL CALL OPEN (*1493,TRL,Z(BUF2),WRTREW) CALL FNAME (TRL,BUF) BUF(3) = 0 CALL WRITE (TRL,BUF,3,0) GO TO 1460 C C FATAL FILE ERRORS C 2001 N = -1 GO TO 2005 2002 N = -2 GO TO 2005 2003 N = -3 2005 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/dpd5.f ================================================ SUBROUTINE DPD5 C C DPD5 ASSEMBLEMS C (1) THE EIGENVALUE EXTRACTION DATA BLOCK (EED), AND C (2) THE TRANSFER FUNCTION LIST (TFL). C C REVISED 9/1989, BY G.C./UNISYS C NO COLUMN AND ROW WORD PACKING IN TFL FILE FOR MACHINES WITH 32 C BIT WORD SIZE, OR LESS C EXTERNAL ANDF ,ORF ,LSHIFT LOGICAL PACK INTEGER GPL ,SIL ,USET ,USETD ,GPLD ,SILD ,DPOOL , 1 DLT ,FRL ,TFL ,TRL ,PSDL ,EED ,SCR1 , 2 SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 ,BUF3 , 3 BUF4 ,FLAG ,FILE ,EPOINT,SEQEP ,Z ,LOADS , 4 ORF ,DLOAD ,FREQ1 ,FREQ ,TIC ,TSTEP ,TF , 5 PSD ,EIGR ,EIGB ,EIGC ,NGRID ,EQDYN ,SDT , 6 UA ,UD ,EIGP ,ANDF ,TWO INTEGER IMSG(2) DIMENSION BUF(24) ,EPOINT(2) ,SEQEP(2) ,MCB(7) , 1 NAM(2) ,LOADS(32) ,DLOAD(2) ,FREQ1(2) , 2 FREQ(2) ,ZZ(1) ,BUFR(20) ,NOLIN(21) , 3 TIC(2) ,TSTEP(2) ,TF(2) ,PSD(2) , 4 MSG(3) ,EIGR(2) ,EIGB(2) ,EIGC(2) , 5 EIGP(2) COMMON /MACHIN/ MACH ,IHALF ,JHALF COMMON /BLANK / LUSET ,LUSETD,NOTFL ,NODLT ,NOPSDL,NOFRL ,NONLFT , 1 NOTRL ,NOEED ,NOSDT ,NOUE COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /DPDCOM/ DPOOL ,GPL ,SIL ,USET ,GPLD ,SILD ,USETD , 1 DLT ,FRL ,NLFT ,TFL ,TRL ,PSDL ,EED , 2 SCR1 ,SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 , 3 BUF3 ,BUF4 ,EPOINT,SEQEP ,L ,KN ,NEQDYN , 4 LOADS ,DLOAD ,FREQ1 ,FREQ ,NOLIN ,NOGO , 5 MSG ,TIC ,TSTEP ,TF ,PSD ,EIGR ,EIGB , 6 EIGC ,MCB ,NAM ,EQDYN ,SDT ,INEQ COMMON /BITPOS/ UM ,UO ,UR ,USG ,USB ,UL ,UA , 1 UF ,US ,UN ,UG ,UE ,UP ,UNE , 2 UFE ,UD COMMON /SETUP / IFILE(6) COMMON /ZZZZZZ/ Z(1) COMMON /TWO / TWO(32) COMMON /SYSTEM/ IBUF ,NOUT EQUIVALENCE (Z(1) ,ZZ(1)), (BUF(1) ,BUFR(1)), (MSG(2),NGRID) DATA EIGP / 257 ,4/ C C (1) PROCESS EDD C =============== C C OPEN EED AND WRITE HEADER. C INITIALIZE TO LOOP THROUGH EIG CARDS. C C OPEN DYNAMICS POOL. C FILE = DPOOL CALL PRELOC (*310,Z(BUF1),DPOOL) C FILE = EED CALL OPEN (*170,EED,Z(BUF2),WRTREW) FILE = DPOOL CALL FNAME (EED,BUF) CALL WRITE (EED,BUF,2,1) IN = 0 DO 20 J = 2,7 20 MCB(J) = 0 L = 12 MSG(1) = 75 C C LOCATE EIGB CARDS IN DYNAMICS POOL. IF PRESENT, TURN NOEED FLAG C OFF, WRITE ID ON EED AND TURN ON TRAILER BIT. C CALL LOCATE (*30,Z(BUF1),EIGB,FLAG) NOEED = 1 CALL WRITE (EED,EIGB,2,0) CALL WRITE (EED,0,1,0) J = (EIGB(2)-1)/16 K = EIGB(2) - 16*J MCB(J+2) = ORF(MCB(J+2),TWO(K+16)) ASSIGN 23 TO NBACK L = 12 MASK = TWO(UA) C C READ EIGB CARDS. IF GRID NO. IS PRESENT, CONVERT TO SIL VALUE. C WRITE DATA ON EED. C 22 CALL READ (*320,*24,DPOOL,BUF,18,0,FLAG) GO TO 120 23 CALL WRITE (EED,BUF,12,0) CALL WRITE (EED,BUF(14),6,0) GO TO 22 24 CALL WRITE (EED,0,0,1) C C LOCATE EIGC CARDS IN DYNAMICS POOL. IF PRESENT, TURN OFF NOEED C FLAG, WRITE ID ON EED AND TURN ON TRL BIT. C 30 CALL LOCATE (*80,Z(BUF1),EIGC,FLAG) NOEED = 1 CALL WRITE (EED,EIGC,2,0) CALL WRITE (EED,0,1,0) J = (EIGC(2)-1)/16 K = EIGC(2) - 16*J MCB(J+2) = ORF(MCB(J+2),TWO(K+16)) ASSIGN 50 TO NBACK L = 6 MASK = TWO(UD) C C READ EIGC CARDS. IF GRID NO. IS PRESENT, CONVERT TO SIL VALUE. C WRITE DATA ON EED. C 40 CALL READ (*320,*70,DPOOL,BUF,10,0,FLAG) GO TO 120 50 CALL WRITE (EED,BUF,7,0) CALL WRITE (EED,BUF(8),3,0) 60 CALL READ (*320,*320,DPOOL,BUF,7,0,FLAG) CALL WRITE (EED,BUF,7,0) IF (BUF(1) .NE. -1) GO TO 60 GO TO 40 70 CALL WRITE (EED,0,0,1) C C LOCATE EIGP CARDS. IF PRESENT, TURN NOEED FLAG OFF, C WRITE ID ON EED AND TURN ON TRAILER BIT. COPY DATA ON EED. C 80 CALL LOCATE (*89,Z(BUF1),EIGP,FLAG) NOEED = 1 CALL WRITE (EED,EIGP,2,0) CALL WRITE (EED,0,1,0) J = (EIGP(2)-1)/16 K = EIGP(2) - 16*J MCB(J+2) = ORF(MCB(J+2),TWO(K+16)) 81 CALL READ (*320,*82,DPOOL,BUF,4,0,FLAG) CALL WRITE (EED,BUF,4,0) GO TO 81 82 CALL WRITE (EED,0,0,1) C C LOCATE EIGR CARDS IN DYNAMICS POOL. IF PRESENT, TURN OFF NOEED C FLAG, WRITE ID ON EED AND TURN ON TRL BIT. C 89 CALL LOCATE (*160,Z(BUF1),EIGR,FLAG) NOEED = 1 CALL WRITE (EED,EIGR,2,0) CALL WRITE (EED,0,1,0) J = (EIGR(2)-1)/16 K = EIGR(2) - 16*J MCB(J+2) = ORF(MCB(J+2),TWO(K+16)) ASSIGN 100 TO NBACK L = 12 MASK = TWO(UA) C C READ EIGR CARDS. IF GRID NO. IS PRESENT, CONVERT TO SIL VALUE. C WRITE DATA ON EED. C 90 CALL READ (*320,*110,DPOOL,BUF,18,0,FLAG) GO TO 120 100 CALL WRITE (EED,BUF,12,0) CALL WRITE (EED,BUF(14),6,0) GO TO 90 110 CALL WRITE (EED,0,0,1) GO TO 160 C C CODE TO CONVERT GRID NO. AND COMPOIENT CODE TO SIL NO. C SIL NO. IS IN A SET FOR EIGR, EIGB - IN D SET FOR EIGC. C WRITE DATA ON EED. C 120 IF (BUF(L) .EQ. 0) GO TO NBACK, (23,50,100) IF (IN .NE. 0) GO TO 140 FILE = USETD CALL OPEN (*310,USETD,Z(BUF3),RDREW) CALL FWDREC (*320,USETD) IUSETD = NEQDYN+2 CALL READ (*320,*130,USETD,Z(IUSETD),BUF3-IUSETD,1,N) CALL MESAGE (-8,0,NAM) 130 CALL CLOSE (USETD,CLSREW) IN = 1 140 IMSG(1) = BUF(1) IMSG(2) = BUF(L) CALL DPDAA NUSETD = IUSETD + BUF(L) - 1 BUF(L) = 0 DO 150 J = IUSETD,NUSETD IF (ANDF(Z(J),MASK) .NE. 0) BUF(L)= BUF(L) + 1 150 CONTINUE IF (ANDF(Z(NUSETD),MASK) .NE. 0) GO TO NBACK, (23,50,100) NOGO = 1 CALL MESAGE (30,107,IMSG) GO TO NBACK, (23,50,100) C C COMPLETE EIG CARD PROCESSING. C 160 CONTINUE CALL CLOSE (EED,CLSREW) MCB(1) = EED CALL WRTTRL (MCB) C C C (2) PRECESS TFL FILE C ==================== C C SELECT PACK OR NO-PACK LOGIC C 170 PACK = .TRUE. I45 = 4 I23 = 3 IF (IHALF .GT. 16) GO TO 175 PACK = .FALSE. I45 = 5 I23 = 2 175 CONTINUE C C OPEN TFL. WRITE HEADER. INITIALIZE TO READ TF CARDS. C DO 180 J = 2,7 180 MCB(J) = 0 CALL LOCATE (*300,Z(BUF1),TF,FLAG) NOTFL = 0 FILE = TFL CALL OPEN (*300,TFL,Z(BUF2),WRTREW) CALL FNAME (TFL,BUF) CALL WRITE (TFL,BUF,2,1) MSG(1) = 68 L = 2 ID = 0 ITFL= NEQDYN + 2 I = ITFL ISW = 0 LAST= 0 C C READ FIXED SECTION OF TF CARD. CONVERT GRID POINT AND COMP. TO C SIL NO. TEST FOR NEW TRANSFER FUNCTION SET. C 190 CALL READ (*320,*200,DPOOL,BUF,6,0,FLAG) MSG(3) = BUF(1) CALL DPDAA IROW = BUF(2) IF (BUF(1) .EQ. ID) GO TO 250 NOTFL = NOTFL + 1 IF (ID .NE. 0) GO TO 210 ID = BUF(1) GO TO 250 C C SORT TRANSFER EQUATIONS AND WRITE ON TFL ONE RECORD PER TRANSFER C FUNCTION SET. FIRST WORD OF RECORD IS SETID. C 200 LAST = 1 210 CALL WRITE (TFL,ID,1,0) IF (ISW .EQ. 0) GO TO 220 CALL WRITE (SCR1,0,0,1) CALL CLOSE (SCR1,CLSREW) CALL OPEN (*310,SCR1,Z(BUF2),RDREW) IFILE(1) = SCR2 IFILE(2) = SCR3 IFILE(3) = SCR4 N = BUF3 - ITFL IF ( PACK) CALL SORTI (SCR1,TFL,4,1,Z(ITFL),N) IF (.NOT.PACK) CALL SORTI2 (SCR1,TFL,5,1,Z(ITFL),N) CALL CLOSE (SCR1,CLSREW) GO TO 230 220 N = I - ITFL IF ( PACK) CALL SORTI (0,0,4,1,Z(ITFL),N) IF (.NOT.PACK) CALL SORTI2 (0,0,5,1,Z(ITFL),N) CALL WRITE (TFL,Z(ITFL),N,1) 230 I = ITFL ID = BUF(1) ISW= 0 IF (LAST .NE. 0) GO TO 290 GO TO 250 C C READ GRID POINT, COMP AND VALUES. CONVERT POINT AND COMP. TO SIL C NO. STORE IN CORE. IF SPILL, WRITE ON SCR1. C 240 CALL READ (*320,*310,DPOOL,BUF(2),5,0,FLAG) IF (BUF(2) .EQ. -1) GO TO 190 CALL DPDAA C C INTEGER PACKING LOGIC (MACHINES WITH 36 BITS WORDS, OR MORE) - C PACK COLN AND ROW INTO ONE WORD IF BOTH CAN BE STORED IN HALF WORD C THEN FOLLOWED BY 3 COEFFICIENTS, TOTALLY 4 WORDS C C NON-INTEGER PACKING LOGIC (MACHINES WITH 32 BITS WORDS) - C THE COLUMN AND ROW ARE NOT PACKED, AND THEREFORE NOT BOUNED TO C 65536 SIZE LIMIT. 1ST WORD IS COLUMN, 2ND WORD IS ROW, THEN C FOLLOWED BY 3 COEFFICIENTS, TOTALLY 5 WORDS C THE SUBROUTINE SORTI2 IS USED WHEN SORTING TFL BY 2 KEY WORDS C 250 IF (.NOT.PACK) GO TO 252 IF (BUF(2).GE.JHALF .OR. IROW.GE.JHALF) GO TO 340 BUF(3) = LSHIFT(BUF(2),IHALF) BUF(3) = ORF(BUF(3),IROW) GO TO 255 252 BUF(3) = IROW 255 IF (ISW .NE. 0) GO TO 280 IF (I+I45 .GT. BUF3) GO TO 270 DO 260 J = I23,6 Z(I) = BUF(J) 260 I = I + 1 GO TO 240 270 ISW = 1 FILE= SCR1 CALL OPEN (*310,SCR1,Z(BUF3),WRTREW) N = I - ITFL CALL WRITE (SCR1,Z(ITFL),N,0) 280 CALL WRITE (SCR1,BUF(I23),I45,0) GO TO 240 C C HERE WHEN ALL TRANSFER FUNCTION SETS COMPLETE. C CLOSE FILE AND WRITE TRAILER. C 290 CALL CLOSE (TFL,CLSREW) MCB(2) = NOTFL MCB(1) = TFL CALL WRTTRL (MCB) 300 CALL CLOSE (DPOOL,CLSREW) RETURN C C FATAL ERRORS C 310 N = -1 GO TO 330 320 N = -2 330 CALL MESAGE (N,FILE,NAM) 340 WRITE (NOUT,350) IHALF,BUF(2),IROW 350 FORMAT ('0*** COLUMN OR ROW SIL NO. EXCEEDS',I3,' BITS WORD ', 1 'PACKING LIMIT',2I9) CALL MESAGE (-37,NAM,NAM) RETURN END ================================================ FILE: mis/dpdaa.f ================================================ SUBROUTINE DPDAA C***** C DPDAA PERFORMS A BINARY SEARCH IN EQDYN AND CONVERTS THE GRID NO C AND COMPONENT CODE TO AN SIL VALUE. C***** C INTEGER GPL ,SIL ,USET ,USETD ,GPLD ,SILD ,DPOOL 1 ,DLT ,FRL ,TFL ,TRL ,PSDL ,EED ,SCR1 2 ,SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 ,BUF3 3 ,BUF4 ,NGRID ,EQDYN ,EPOINT,SEQEP ,Z ,LOADS 5 ,PSD ,DLOAD ,FREQ1 ,FREQ ,TIC ,TSTEP ,TF 6 ,EIGR ,EIGB ,EIGC C DIMENSION BUF(24) ,EPOINT(2) ,SEQEP(2) ,MCB(7) 1 ,NAM(2) ,LOADS(32) ,DLOAD(2) ,FREQ1(2) 2 ,FREQ(2) ,ZZ(1) ,BUFR(20) ,NOLIN(21) 3 ,TIC(2) ,TSTEP(2) ,TF(2) ,PSD(2) 4 ,MSG(3) ,EIGR(2) ,EIGB(2) ,EIGC(2) C COMMON/DPDCOM/DPOOL ,GPL ,SIL ,USET ,GPLD ,SILD ,USETD 1 ,DLT ,FRL ,NLFT ,TFL ,TRL ,PSDL ,EED 2 ,SCR1 ,SCR2 ,SCR3 ,SCR4 ,BUF ,BUF1 ,BUF2 3 ,BUF3 ,BUF4 ,EPOINT,SEQEP ,L ,KN ,NEQDYN 4 ,LOADS ,DLOAD ,FREQ1 ,FREQ ,NOLIN ,NOGO 5 ,MSG ,TIC ,TSTEP ,TF ,PSD ,EIGR ,EIGB 6 ,EIGC ,MCB ,NAM ,EQDYN ,SDT ,INEQ C COMMON/ZZZZZZ/Z(1) C EQUIVALENCE (Z(1) ,ZZ(1)),(BUF(1),BUFR(1)),(MSG(2),NGRID) C C***** C IF EQDYN IS NOT IN CORE, READ IT IN AND SET FLAG. C***** IF(INEQ .NE. 0) GO TO 1 CALL GOPEN(EQDYN,Z(BUF3),0) CALL FREAD(EQDYN,Z,NEQDYN+1,1) CALL CLOSE(EQDYN,1) INEQ= 1 C***** C PERFORM SEARCH. C***** 1 KLO= 1 KHI= KN NGRID= BUF(L) 2 K= (KLO+KHI+1)/2 3 IF(NGRID - Z(2*K-1)) 4,11,5 4 KHI= K GO TO 6 5 KLO= K 6 IF(KHI-KLO-1) 10,7,2 7 IF(K.EQ.KLO) GO TO 8 K= KLO GO TO 9 8 K= KHI 9 KLO= KHI GO TO 3 10 CALL MESAGE(30,MSG,MSG(2)) NOGO= 1 11 BUF(L)= Z(2*K) IF(BUF(L+1) .NE. 0) BUF(L)= BUF(L)+BUF(L+1)-1 RETURN END ================================================ FILE: mis/dplot.f ================================================ SUBROUTINE DPLOT C IMPLICIT INTEGER (A-Z) INTEGER TIT(32),NAME(2) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /PLOTHD/ IUSED COMMON /SYSTEM/ BUFSIZ ,NOUT COMMON /ZZZZZZ/ X(1) COMMON /BLANK / NGP ,LSIL ,NSETS ,PLTFLG ,PLTNUM ,NGPSET , 1 NODEF ,SKP1(3),PLTPAR ,GPSETS ,ELSETS ,CASECC , 2 BGPDT ,EQEXIN ,SIL ,PDEF1 ,PDEF2 ,S2 , 3 PLOTX ,SETD ,ECPT ,OES1 ,SCR1 ,SCR2 , 4 SCR3 ,SCR4 C C NOTE THAT NSETS IS DMAP PARAMETER JUMPPLOT C IUSED IS USED IN PLOT AND HDPLOT C DATA INPREW, REW / 0,1 /, 1 TIT / 12*1H ,4HMESS,4HAGES,4H FRO,4HM TH,4HE PL,4HOT M, 2 4HODUL,1HE ,12*1H / DATA NAME / 4HDPLO,4HT / C C FILE NAMES FOR UNDEFORMED PLOTS MAY BE C 108 = USET (GPTLBL - SPC DEGREES OF FREEDOM) C 109 = ECT (ELELBL - PROPERTY IDS) C 110 = ECPT C = EPT (UNDEFORMED PLOT ONLY, DMAP NUMBER 25 OR LESS) C EPT IS NEEDED FOR PSHELL CARDS IN ORDER TO PICK UP ANY C OFFSET FOR CTRIA3 AND CQUAD4 (IN COMECT) C PLTPAR = 101 GPSETS = 102 ELSETS = 103 CASECC = 104 BGPDT = 105 EQEXIN = 106 SIL = 107 PDEF1 = 108 PDEF2 = 109 ECPT = 110 OES1 = 111 OES1L = 112 ONRGY1 = 113 PLOTX = 201 SCR1 = 301 SCR2 = 302 SCR3 = 303 SCR4 = 304 NODEF = 0 IF (NGP.LE.0 .OR. LSIL.LE.0) GO TO 80 CALL TOTAPE (2,X(1)) C C OUTPUT THE TITLE FOR MESSAGE FILE C THE LAST BUFFER IS BUFSIZ+1 FOR SUBROUTINE ELELBL C BUF = KORSZ(X) - 4*BUFSIZ IF (BUF-4*BUFSIZ .LT. 10) GO TO 85 IF (NSETS .LE. 0) GO TO 60 CALL GOPEN (PLOTX,X(BUF),REW) C C COMMENTS FROM G.CHAN/UNISYS 11/90 C NEXT 2 LINES ADD TIT HEADING TO THE 4TH LINE OF NASTRAN HEADERS C WHEN THE PLOTX FILE IS READ AND PRINTED BY PRTMSG MODULE. C THIS SHORTCUT TECHNIQUE IS NO WHERE DISCUSSED IN THE USER'S NOR C PROGRAMMER'S MAUNALS C CALL WRITE (PLOTX,-4,1,0) CALL WRITE (PLOTX,TIT,32,0) C C READ THE SETID-S FROM -GPSETS- FILE. SET NEGATIVE SETID-S THAT C HAVE NO ASSOCIATED GRIDS. FIND FIRST DEFINED SET OR EXIT IF NONE C BUF = BUF - BUFSIZ CALL GOPEN (GPSETS,X(BUF),INPREW) CALL FREAD (GPSETS,X,NSETS,1) SETD = 0 X(NSETS+1) = 1 C DO 50 I = 1,NSETS CALL READ (*30,*60,GPSETS,X(NSETS+2),1,1,I1) IF (X(NSETS+2) .GT. 0) GO TO 40 30 WRITE (NOUT,31) UWM,X(NSETS+1) 31 FORMAT (A25,' 697, SET',I9, 1 ' NOT DEFINED. FIRST SET DEFINED WILL BE USED.') X(I) = -X(I) GO TO 50 40 IF (SETD .EQ. 0) SETD = I 50 CONTINUE CALL CLOSE (GPSETS,REW) IF (SETD .NE. 0) GO TO 70 60 WRITE (NOUT,61) UFM 61 FORMAT (A23,' 698, NO SETS DEFINED FOR PLOTS') CALL MESAGE (-61,0,0) C C PROCESS PLOT REQUESTS C 70 CALL GOPEN (PLTPAR,X(BUF),INPREW) I1 = 1 I2 = I1 + NSETS BUF= BUF - BUFSIZ CALL PARAM (X(I1),X(I2),BUF-NSETS) CALL CLOSE (PLTPAR,REW) C C SET JUMPPLOT NEGATIVE IF NO FUTHER REQUESTS C IF (PLTFLG.GE.0 .AND. NODEF.EQ.0) NSETS = -1 CALL CLSTAB (PLOTX,REW) CALL CLOSE (GPSETS,REW) PLTFLG = -1 80 RETURN C C INSUFFICIENT CORE C 85 CALL MESAGE (-8,BUF,NAME) NSETS = -1 PLTFLG= -1 GO TO 80 END ================================================ FILE: mis/dpltst.f ================================================ SUBROUTINE DPLTST C IMPLICIT INTEGER (A-Z) INTEGER ERRTTL(32) COMMON /BLANK / NGP,NSETS,SKP1(8),PCDB,EQEXIN,ECT,SKP2(7), 1 MERR,PARM,GPSET,ELSET,SKP3(6),MSET,PECT COMMON /SYSTEM/ BUFSIZ COMMON /ZZZZZZ/ X(1) DATA OUTREW, REW / 1,1 / DATA ERRTTL/ 8*2H ,4HERRO,4HR ME,4HSSAG,4HES F,4HROM , 1 4HTHE ,4HPLOT,4H SET,4H DEF,4HINIT,4HION , 2 4HMODU,4HLE (,4HPLTS,4HET) ,9*1H / C NSETS = 0 PCDB = 101 EQEXIN = 102 ECT = 103 EPT = 104 MERR = 201 PARM = 202 GPSET = 203 ELSET = 204 MSET = 301 PECT = 302 CALL TOTAPE (1,X(1)) C X(1) = EQEXIN CALL RDTRL (X) I2 = 2 I3 = 3 NGP = X(I2) - X(I3) I1 = KORSZ(X) - BUFSIZ + 1 CALL GOPEN (MERR,X(I1),OUTREW) CALL WRITE (MERR,-4,1,0) CALL WRITE (MERR,ERRTTL,32,0) CALL SETINP IF (NSETS .NE. 0) GO TO 150 NSETS = -1 GO TO 200 150 I1 = NSETS + 1 I2 = I1 + NGP I3 = KORSZ(X) - 4*BUFSIZ + 1 CALL COMECT (X(I2),I3-I2) CALL CNSTRC (X(I1),X(I2),X(I3),I3-I2) C 200 CALL CLSTAB (MERR,REW) RETURN END ================================================ FILE: mis/dpps.f ================================================ SUBROUTINE DPPS(KS,I,J1,J2,SGR,CGR,YS,ZS,NBARAY,NCARAY,DT,WORK) C *** GENERATES ROWS OF THE DPP SUBMATRIX USING C SUBROUTINE SUBP DIMENSION YS(1),ZS(1),NBARAY(1),NCARAY(1),WORK(1) COMPLEX DT(1), SUM COMMON /DLCOM / NP,NSTRIP,NTP,F,NJJ,NEXT,LENGTH, 1 INC,INB,IYS,IZS,IEE,ISG,ICG, 2 IXIC,IDELX,IXLAM,IDT, 3 ICORE L = 1 C L IS THE PANEL NUMBER ASSOCIATED WITH SENDING POINT J LS = 1 C LS IS THE STRIP NUMBER ASSOCIATED WITH SENDING POINT J NBXS = NBARAY(L) NC1 = NCARAY(L) NBCUM= NC1 YREC = YS(KS) ZREC = ZS(KS) DO 20 J=J1,J2 CALL SUBP(I,L,LS,J,SGR,CGR,YREC,ZREC,SUM, 1 WORK(IXIC),WORK(IDELX),WORK(IEE),WORK(IXLAM), 2 WORK(ISG),WORK(ICG),YS,ZS) DT(J)= SUM IF (J.EQ.J2) GO TO 20 IF (J.LT.NBXS) GO TO 10 L = L+1 NC1 = NCARAY(L) NBXS = NBARAY(L) 10 CONTINUE IF (J.LT.NBCUM) GO TO 20 LS = LS+1 NBCUM= NBCUM+NC1 20 CONTINUE RETURN END ================================================ FILE: mis/dppsb.f ================================================ SUBROUTINE DPPSB( KS,I,J1,J2,SGR,CGR, YS,ZS,NBARAY, 1 NCARAY,DT,Z) C *** GENERATES ROWS OF THE DPP SUBMATRIX USING C SUBROUTINE SUBP INTEGER Z DIMENSION YS(1),ZS(1),NBARAY(1),NCARAY(1),Z(1) COMPLEX SUM,DT(1) COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS, * INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB, * IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG, * ICG,IXIJ,IX,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA * ,INASB,IFLA1,IFLA2,ITH1A,ITH2A, * ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5 L = 1 C L IS THE PANEL NUMBER ASSOCIATED WITH SENDING POINT J LS = 1 LSP = 0 C LS IS THE STRIP NUMBER ASSOCIATED WITH SENDING POINT J NBXS = NBARAY(L) NC1 = NCARAY(L) NBCUM= NC1 YREC = YS(KS) ZREC = ZS(KS) DO 20 J=J1,J2 CALL SUBPB(I,L,LS,J,SGR,CGR,YREC,ZREC,SUM,Z(IXIC),Z(IDELX),Z(IEE) * ,Z(IXLAM),Z(ISG),Z(ICG),Z(IYS),Z(IZS),Z(INAS),Z(INASB+LSP), * Z(IAVR),Z(IZB),Z(IYB),Z(IARB),Z(IXLE),Z(IXTE),Z(IX),NB) DT(J)= SUM IF (J.EQ.J2) GO TO 20 IF (J.LT.NBXS) GO TO 10 LSP = LSP + Z(INAS+L-1) L = L+1 NC1 = NCARAY(L) NBXS = NBARAY(L) 10 CONTINUE IF (J.LT.NBCUM) GO TO 20 LS = LS+1 NBCUM= NBCUM+NC1 20 CONTINUE RETURN END ================================================ FILE: mis/dpse2.f ================================================ SUBROUTINE DPSE2 C C THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES K(NPVT,NPVT) AND C K(NPVT,J), PRESSURE STIFFNESS MATRICES FOR A CPSE2 PRESSURE C STIFFNESS ELEMENT (ROD, 2 GRID POINTS) C C DOUBLE PRECISION VERSION C C WRITTEN BY E. R. CHRISTENSEN/SVERDRUP 7/91, VERSION 1.0 C INSTALLED IN NASTRAN AS ELEMENT DPSE2 BY G.CHAN/UNISYS, 2/92 C C REFERENCE - E. CHRISTENEN: 'ADVACED SOLID ROCKET MOTOR (ASRM) C MATH MODELS - PRESSURE STIFFNESS EFFECTS ANALYSIS', C NASA TD 612-001-02, AUGUST 1991 C C LIMITATION - C (1) ALL GRID POINTS USED BY ANY OF THE CPSE2/3/4 ELEMENTS MUST BE C IN BASIC COORDINATE SYSTEM!!! C (2) CONSTANT PRESSURE APPLIED OVER AN ENCLOSED VOLUMN ENCOMPASSED C BY THE CPSE2/3/4 ELEMENTRS C (3) PRESSURE ACTS NORMALLY TO THE CPSE2/3/4 SURFACES C C SEE NASTRAN DEMONSTRATION PROBLEM - T13021A C C ECPT FOR THE PRESSURE STIFFNESS C CPSE2 ELEMENT CARD C TYPE TYPE TABLE C ------ ----- ------ C ECPT( 1) ELEMENT ID. CPSE2 I ECT C ECPT( 2) SCALAR INDEX NUMBER FOR GRD.PT. A CPSE2 I ECT C ECPT( 3) SCALAR INDEX NUMBER FOR GRD.PT. B CPSE2 I ECT C ECPT( 4) PRESSURE P PPSE R EPT C ECPT( 5) NOT USED PPSE R EPT C ECPT( 6) NOT USED PPSE R EPT C ECPT( 7) NOT USED PPSE R EPT C ECPT( 8) COOR. SYS. ID. NO. FOR GRD.PT. A GRID I BGPDT C ECPT( 9) X-COORDINATE OF GRD.PT. A (IN BASIC COOR) R BGPDT C ECPT(10) Y-COORDINATE OF GRD.PT. A (IN BASIC COOR) R BGPDT C ECPT(11) Z-COORDINATE OF GRD.PT. A (IN BASIC COOR) R BGPDT C ECPT(12) COOR. SYS. ID. NO. FOR GRD.PT. B I BGPDT C ECPT(13) X-COORDINATE OF GRD.PT. B (IN BASIC COOR) R BGPDT C ECPT(14) Y-COORDINATE OF GRD.PT. B (IN BASIC COOR) R BGPDT C ECPT(15) Z-COORDINATE OF GRD.PT. B (IN BASIC COOR) R BGPDT C ECPT(16) ELEMENT TEMPERATURE C ECPT(17) THRU ECPT(24) = DUM2 AND DUM6, NOT USED IN THIS ROUTINE C DOUBLE PRECISION KE,TA,TB,D,X,Y,Z,XL,ALPHA DIMENSION IECPT(3) C COMMON /SYSTEM/ IBUF,NOUT COMMON /DS1AAA/ NPVT,ICSTM,NCSTM COMMON /DS1AET/ ECPT(16),DUM2(2),DUM6(6) COMMON /DS1ADP/ KE(36),TA(9),TB(9),D(18),X,Y,Z,XL,ALPHA EQUIVALENCE (ECPT(1),IECPT(1)) C IELEM = IECPT(1) IF (IECPT(2) .EQ. NPVT) GO TO 10 IF (IECPT(3) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1)) ITEMP = IECPT(2) IECPT(2) = IECPT(3) IECPT(3) = ITEMP KA = 12 KB = 8 ALPHA = -1.0D0 GO TO 20 10 KA = 8 KB = 12 ALPHA = 1.0D0 C C AT THIS POINT KA POINTS TO THE COOR. SYS. ID. OF THE PIVOT GRID C POINT. SIMILARLY FOR KB AND THE NON-PIVOT GRID POINT. C C NOW COMPUTE THE LENGTH OF THE CPSE2 ELEMENT. C C C WE STORE THE COORDINATES IN THE D ARRAY SO THAT ALL ARITHMETIC C WILL BE DOUBLE PRECISION C C CHECK TO SEE THAT THE CPSE2 HAS A NONZERO LENGTH C 20 D(1) = ECPT(KA+1) D(2) = ECPT(KA+2) D(3) = ECPT(KA+3) D(4) = ECPT(KB+1) D(5) = ECPT(KB+2) D(6) = ECPT(KB+3) X = D(1) - D(4) Y = D(2) - D(5) Z = D(3) - D(6) XL = DSQRT(X**2 + Y**2 + Z**2) IF (XL .EQ. 0.0D0) GO TO 70 C C COMPUTE THE 3 X 3 NON-ZERO SUBMATRIX OF KDGG(NPVT,NONPVT) C D(1) = 0.0D0 D(2) = ALPHA*ECPT(4)/2.0D0 D(3) = D(2) D(4) =-D(2) D(5) = 0.0D0 D(6) = D(2) D(7) = D(4) D(8) = D(4) D(9) = 0.0D0 C C ZERO OUT KE MATRIX C DO 30 I = 1,36 30 KE(I) = 0.0D0 C C FILL UP THE 6 X 6 KE C C IF PIVOT GRID POINT IS IN BASIC COORDINATES, GO TO 40 C K1 = 1 IF (IECPT(KA) .EQ. 0) GO TO 40 CALL TRANSD (ECPT(KA),TA) CALL GMMATD (TA,3,3,1, D(1),3,3,0, D(10)) K1 = 10 KB1 = 10 KB2 = 1 GO TO 50 C C IF NON-PIVOT GRID POINT IS IN BASIC COORDINATES, GO TO 60 C 40 KB1 = 1 KB2 = 10 50 IF (IECPT(KB) .EQ. 0) GO TO 60 CALL TRANSD (ECPT(KB),TB) CALL GMMATD (D(KB1),3,3,0, TB,3,3,0, D(KB2)) K1 = KB2 C 60 KE( 1) = D(K1 ) KE( 2) = D(K1+1) KE( 3) = D(K1+2) KE( 7) = D(K1+3) KE( 8) = D(K1+4) KE( 9) = D(K1+5) KE(13) = D(K1+6) KE(14) = D(K1+7) KE(15) = D(K1+8) CALL DS1B (KE,IECPT(3)) RETURN C C ERROR C 70 CALL MESAGE (30,26,IECPT(1)) NOGO = 1 RETURN END ================================================ FILE: mis/dpse3.f ================================================ SUBROUTINE DPSE3 C C PRESSURE STIFFNESS CALCULATIONS FOR A TRIANGULAR MEMBRANE C ELEMENT (3 GRID POINTS). C THREE 6X6 STIFFNESS MATRICES FOR THE PIVOT POINT ARE INSERTED. C C DOUBLE PRECISION VERSION C C WRITTEN BY E. R. CHRISTENSEN/SVERDRUP, 9/91, VERSION 1.1 C INSTALLED IN NASTRAN AS ELEMENT DPSE3 BY G.CHAN/UNISYS, 2/92 C C REFERENCE - E. CHRISTENEN: 'ADVACED SOLID ROCKET MOTOR (ASRM) C MATH MODELS - PRESSURE STIFFNESS EFFECTS ANALYSIS', C NASA TD 612-001-02, AUGUST 1991 C C LIMITATION - C (1) ALL GRID POINTS USED BY ANY IF THE CPSE2/3/4 ELEMENTS MUST BE C IN BASIC COORDINATE SYSTEM!!! C (2) CONSTANT PRESSURE APPLIED OVER AN ENCLOSED VOLUMN ENCOMPASSED C BY THE CPSE2/3/4 ELEMENTRS C (3) PRESSURE ACTS NORMALLY TO THE CPSE2/3/4 SURFACES C C SEE NASTRAN DEMONSTRATION PROBLEM - T13022A C DOUBLE PRECISION GAMMA,KIJ,SGN,SGN1,SGN2,DP,C DIMENSION NECPT(5) C COMMON /SYSTEM/ IBUF,NOUT COMMON /DS1AAA/ NPVT,ICSTM,NCSTM COMMON /DS1AET/ ECPT(21),DUM2(2),DUM9(9) COMMON /DS1ADP/ GAMMA,KIJ(36),SGN,SGN1,SGN2,DP(21),C(9) EQUIVALENCE (NECPT(1),ECPT(1)) C C ECPT FOR THE PRESSURE STIFFNESS CPES3 ELEMENT C C ECPT( 1) = ELEMENT ID C ECPT( 2) = SIL FOR GRID POINT A OR 1 C ECPT( 3) = SIL FOR GRID POINT B OR 2 C ECPT( 4) = SIL FOR GRID POINT C OR 3 C ECPT( 5) = PRESSURE C ECPT( 6) = NOT USED C ECPT( 7) = NOT USED C ECPT( 8) = NOT USED C ECPT( 9) = COORD. SYSTEM ID 1 C ECPT(10) = X1 C ECPT(11) = Y1 C ECPT(12) = Z1 C ECPT(13) = COORD. SYSTEM ID 2 C ECPT(14) = X2 C ECPT(15) = Y2 C ECPT(16) = Z2 C ECPT(17) = COORD. SYSTEM ID 3 C ECPT(18) = X3 C ECPT(19) = Y3 C ECPT(20) = Z3 C ECPT(21) = ELEMENT TEMPERATURE C ECPT(22) THRU (32) = DUM2 AND DUM9, NOT USED IN THIS ROUTINE C C STORE ECPT IN DOUBLE PRECISION C DP(5) = ECPT(5) K = 9 DO 20 I = 1,3 DO 10 J = 1,3 K = K + 1 10 DP(K) = ECPT(K) 20 K = K + 1 C C CALCULATE THE THREE VECTORS R1, R2 AND R2 USED IN COMPUTING C THE PRESSURE STIFFNESS MATRICES: C C R1 = RA - 2*RC + RB C R2 = 2*RB - RA - RC C R3 = RB - 2*RA + RC C C R1 STORED IN C(1), C(2), C(3) C R2 STORED IN C(4), C(5), C(6) C R3 STORED IN C(7), C(8), C(9) C C(1) = DP(10) - 2.0D0*DP(18) + DP(14) C(2) = DP(11) - 2.0D0*DP(19) + DP(15) C(3) = DP(12) - 2.0D0*DP(20) + DP(16) C C(4) = 2.0D0*DP(14) - DP(10) - DP(18) C(5) = 2.0D0*DP(15) - DP(11) - DP(19) C(6) = 2.0D0*DP(16) - DP(12) - DP(20) C C(7) = DP(14) - 2.0D0*DP(10) + DP(18) C(8) = DP(15) - 2.0D0*DP(11) + DP(19) C(9) = DP(16) - 2.0D0*DP(12) + DP(20) C DO 30 I = 1,3 IF (NECPT(I+1) .NE. NPVT) GO TO 30 NPIVOT = I GO TO 40 30 CONTINUE RETURN C C GENERATE THE THREE BY THREE PARTITIONS IN GLOBAL COORDINATES HERE C C SET COUNTERS ACCORDING TO WHICH GRID POINT IS THE PIVOT C 40 IF (NPIVOT-2) 50,60,70 C C SET COUNTERS AND POINTERS FOR CALCULATING KAB, KAC C 50 NI = 2 NJ = 3 NK = 1 K1 = 1 K2 = 4 SGN1 = 1.0D0 SGN2 = 1.0D0 GO TO 80 C C SET COUNTERS AND POINTERS FOR CALCULATING KBA, KBC C NOTE THAT KBA = -KAB C 60 NI = 1 NJ = 3 NK = 2 K1 = 1 K2 = 7 SGN1 =-1.0D0 SGN2 = 1.0D0 GO TO 80 C C SET COUNTERS AND POINTERS FOR CALCULATING KCA, KCB C NOTE THAT KCA = -KAC, KCB = -KBC C 70 NI = 1 NJ = 2 NK = 1 K1 = 4 K2 = 7 SGN1 =-1.0D0 SGN2 =-1.0D0 C 80 GAMMA =-DP(5)/12.0D0 SGN = SGN1*GAMMA K = K1 DO 100 I = NI,NJ,NK DO 90 J = 1,36 90 KIJ(J) = 0.0D0 KK2 = K + 1 KK3 = K + 2 KIJ( 2) =-C(KK3)*SGN KIJ( 3) = C(KK2)*SGN KIJ( 7) = C(KK3)*SGN KIJ( 9) =-C(K )*SGN KIJ(13) =-C(KK2)*SGN KIJ(14) = C(K )*SGN CALL DS1B (KIJ(1),NECPT(I+1)) SGN = SGN2*GAMMA K = K2 100 CONTINUE C RETURN END ================================================ FILE: mis/dpse4.f ================================================ SUBROUTINE DPSE4 C C PRESSURE STIFFNESS CALCULATIONS FOR A QUADRILATERAL MEMBRANE C ELEMENT, WHICH HAS 4 GRID POINTS. C THREE 6X6 STIFFNESS MATRICES FOR THE PIVOT POINT ARE INSERTED. C C DOUBLE PRECISION VERSION C C WRITTEN BY E. R. CHRISTENSEN/SVERDRUP, 9/91, VERSION 1.1 C INSTALLED IN NASTRAN AS ELEMENT DPSE4 BY G.CHAN/UNISYS, 2/92 C C REFERENCE - E. CHRISTENEN: 'ADVACED SOLID ROCKET MOTOR (ASRM) C MATH MODELS - PRESSURE STIFFNESS EFFECTS ANALYSIS', C NASA TD 612-001-02, AUGUST 1991 C C LIMITATION - C (1) ALL GRID POINTS USED BY ANY OF THE CPSE2/3/4 ELEMENTS MUST BE C IN BASIC COORDINATE SYSTEM!!! C (2) CONSTANT PRESSURE APPLIED OVER AN ENCLOSED VOLUMN ENCOMPASSED C BY THE CPSE2/3/4 ELEMENTRS C (3) PRESSURE ACTS NORMALLY TO THE CPSE2/3/4 SURFACES C C SEE NASTRAN DEMONSTRATION PROBLEM - T13022A C DOUBLE PRECISION GAMMA,KIJ,DP,C,SIGN DIMENSION NECPT(6) C COMMON /SYSTEM/ IBUF,NOUT COMMON /DS1AAA/ NPVT,ICSTM,NCSTM COMMON /DS1AET/ ECPT(26),DUM2(2),DUM12(12) COMMON /DS1ADP/ GAMMA,KIJ(36),DP(26),C(12),SIGN(3),NK(3),IK(3) EQUIVALENCE (NECPT(1),ECPT(1)) C C ECPT FOR THE PRESSURE STIFFNESS CPES4 ELEMENT C C ECPT( 1) = ELEMENT ID C ECPT( 2) = SIL FOR GRID POINT A OR 1 C ECPT( 3) = SIL FOR GRID POINT B OR 2 C ECPT( 4) = SIL FOR GRID POINT C OR 3 C ECPT( 5) = SIL FOR GRID POINT C OR 4 C ECPT( 6) = PRESSURE C ECPT( 7) = NOT USED C ECPT( 8) = NOT USED C ECPT( 9) = NOT USED C ECPT(10) = COORD. SYSTEM ID 1 C ECPT(11) = X1 C ECPT(12) = Y1 C ECPT(13) = Z1 C ECPT(14) = COORD. SYSTEM ID 2 C ECPT(15) = X2 C ECPT(16) = Y2 C ECPT(17) = Z2 C ECPT(18) = COORD. SYSTEM ID 3 C ECPT(19) = X3 C ECPT(20) = Y3 C ECPT(21) = Z3 C ECPT(22) = COORD. SYSTEM ID 4 C ECPT(23) = X4 C ECPT(24) = Y4 C ECPT(25) = Z4 C ECPT(26) = ELEMENT TEMPERATURE C ECPT(27) THRU ECPT(40) = DUM2 AND DUM12, NOT USED IN THIS ROUTINE C C STORE ECPT IN DOUBLE PRECISION C DP(6) = ECPT(6) K = 10 DO 20 I = 1,4 DO 10 J = 1,3 K = K + 1 10 DP(K) = ECPT(K) 20 K = K + 1 C C CALCULATE THE FOUR VECTORS GAB, GAC, GAD, AND GBD USED IN C COMPUTING THE PRESSURE STIFFNESS MATRIC C C GAB = RA + RB - RC - RD C GAC = RB - RD C GAD =-RA + RB + RC - RD C GBD =-RA + RC C C GAB STORED IN C( 1), C( 2), C( 3) C GAC STORED IN C( 4), C( 5), C( 6) C GAD STORED IN C( 7), C( 8), C( 9) C GBD STORED IN C(10), C(11), C(12) C C(1) = DP(11) + DP(15) - DP(19) - DP(23) C(2) = DP(12) + DP(16) - DP(20) - DP(24) C(3) = DP(13) + DP(17) - DP(21) - DP(25) C C(4) = DP(15) - DP(23) C(5) = DP(16) - DP(24) C(6) = DP(17) - DP(25) C C(7) =-DP(11) + DP(15) + DP(19) - DP(23) C(8) =-DP(12) + DP(16) + DP(20) - DP(24) C(9) =-DP(13) + DP(17) + DP(21) - DP(25) C C(10)=-DP(11) + DP(19) C(11)=-DP(12) + DP(20) C(12)=-DP(13) + DP(21) C DO 30 I = 1,4 IF (NECPT(I+1) .NE. NPVT) GO TO 30 NPIVOT = I GO TO 40 30 CONTINUE RETURN C C GENERATE THE THREE BY THREE PARTITIONS IN GLOBAL COORDINATES HERE C C SET COUNTERS ACCORDING TO WHICH GRID POINT IS THE PIVOT C 40 IF (NPIVOT .EQ. 4) GO TO 80 IF (NPIVOT-2) 50,60,70 C C SET COUNTERS AND POINTERS FOR CALCULATING KAB, KAC, KAD C 50 NK(1) = 2 NK(2) = 3 NK(3) = 4 IK(1) = 1 IK(2) = 4 IK(3) = 7 SIGN(1) = 1.0D0 SIGN(2) = 1.0D0 SIGN(3) = 1.0D0 GO TO 90 C C SET COUNTERS AND POINTERS FOR CALCULATING KBA, KBC, KBD C NOTE THAT KBA = -KAB C 60 NK(1) = 1 NK(2) = 3 NK(3) = 4 IK(1) = 1 IK(2) = 7 IK(3) = 10 SIGN(1) =-1.0D0 SIGN(2) = 1.0D0 SIGN(3) = 1.0D0 GO TO 90 C C SET COUNTERS AND POINTERS FOR CALCULATING KCA, KCB, KCD C NOTE THAT KCA = -KAC, KCB = -KBC C 70 NK(1) = 1 NK(2) = 2 NK(3) = 4 IK(1) = 4 IK(2) = 7 IK(3) = 1 SIGN(1) =-1.0D0 SIGN(2) =-1.0D0 SIGN(3) =-1.0D0 GO TO 90 C 80 NK(1) = 1 NK(2) = 2 NK(3) = 3 IK(1) = 7 IK(2) = 10 IK(3) = 1 SIGN(1) =-1.0D0 SIGN(2) =-1.0D0 SIGN(3) = 1.0D0 C 90 GAMMA =-DP(6)/12.0D0 DO 110 I = 1,3 DO 100 J = 1,36 100 KIJ(J) = 0.0D0 K1 = IK(I) K2 = K1 + 1 K3 = K1 + 2 SG = GAMMA*SIGN(I) KIJ( 2) =-C(K3)*SG KIJ( 3) = C(K2)*SG KIJ( 7) = C(K3)*SG KIJ( 9) =-C(K1)*SG KIJ(13) =-C(K2)*SG KIJ(14) = C(K1)*SG C C ASSEMBLE INTO THE GLOBAL STIFFNESS MATRIX C IAS = NK(I) CALL DS1B (KIJ(1),NECPT(IAS+1)) 110 CONTINUE C RETURN END ================================================ FILE: mis/dpzy.f ================================================ SUBROUTINE DPZY( KB,IZ,I,J1,J2,IFIRST,ILAST,YB,ZB, 1 AVR,ARB,TH1A,TH2A,NT121,NT122,NBARAY,NCARAY, * NZYKB,DPZ,DPY) C *** GENERATES ROWS OF THE SUBMATRICES DPZ AND DPY USING C SUBROUTINE SUBP INTEGER Z COMPLEX SUM,DPZ(1),DPY(1) DIMENSION YB(1),ZB(1),AVR(1),ARB(1),TH1A(1),TH2A(1),NT121(1) DIMENSION NT122(1),NBARAY(1),NCARAY(1) COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS, * INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB, * IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG, * ICG,IXIJ,IA,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA * ,INASB,IFLA1,IFLA2,ITH1A,ITH2A, * ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5 COMMON /ZZZZZZ / Z(1) PI = 3.1415926 IX1 = 1 IZ = IZ+1 C IZ IS THE BODY-ELEMENT NUMBER FOR BODY KB -- IZ RUNS FROM 1 C THROUGH NBE-SUB-KB IX2 = NT122(KB) IF (IZ.GE.IFIRST.AND.IZ.LE.ILAST) IX2=NT121(KB) DO 100 IX=IX1,IX2 L = 1 KSP = 0 C L IS THE PANEL NUMBER ASSOCIATED WITH SENDING POINT J LS = 1 C LS IS THE STRIP NUMBER ASSOCIATED WITH SENDING POINT J NBXS = NBARAY(L) NC1 = NCARAY(L) NBCUM= NC1 IXP1 = IX+1 IF (IXP1.GT.IX2) IXP1=IX1 IXM1 = IX-1 IF (IXM1.EQ.0) IXM1=IX2 IF (IZ.GE.IFIRST.AND.IZ.LE.ILAST) GO TO 30 THETA= TH2A(IX) THP1 = TH2A(IXP1) THM1 = TH2A(IXM1) GO TO 40 30 CONTINUE THETA = TH1A(IX) THP1 = TH1A(IXP1) THM1 = TH1A(IXM1) 40 CONTINUE IF (IX.EQ.IX1) THM1=THM1-2.0*PI IF (IX.EQ.IX2) THP1=THP1+2.0*PI DELTH= 0.5*(THP1 - THM1) YREC = YB(KB)+AVR(KB)*COS(THETA) ZREC = ZB(KB)+AVR(KB)*ARB(KB)*SIN(THETA) RHO = SQRT(1.0+(ARB(KB)**2 - 1.0) * (COS(THETA))**2) SGR = -ARB(KB)*COS(THETA)/RHO CGR = SIN(THETA)/RHO SMULT= SIN(THETA) * RHO / PI CMULT= COS(THETA) * RHO / PI DO 90 J=J1,J2 CALL SUBPB(I,L,LS,J,SGR,CGR,YREC,ZREC,SUM,Z(IXIC),Z(IDELX),Z(IEE) * ,Z(IXLAM),Z(ISG),Z(ICG),Z(IYS),Z(IZS),Z(INAS),Z(INASB+KSP), * Z(IAVR),Z(IZB),Z(IYB),Z(IARB),Z(IXLE),Z(IXTE),Z(IA),NB) GO TO (50,50,60), NZYKB 50 CONTINUE DPZ(J) = DPZ(J) + SUM * SMULT * DELTH IF (NZYKB.EQ.1) GO TO 70 60 CONTINUE DPY(J) = DPY(J) + SUM * CMULT * DELTH 70 CONTINUE IF (J.EQ.J2) GO TO 90 IF (J.LT.NBXS) GO TO 80 KSP = KSP + Z(INAS+L-1) L = L+1 NC1 = NCARAY(L) NBXS = NBARAY(L) 80 CONTINUE IF (J.LT.NBCUM) GO TO 90 LS = LS+1 NBCUM= NBCUM+NC1 90 CONTINUE 100 CONTINUE RETURN END ================================================ FILE: mis/dqdmem.f ================================================ SUBROUTINE DQDMEM C C C QUADRILATERAL MEMBRANE ROUTINE FOR DIFFERENTIAL STIFFNESS.. C REAL IVEC,JVEC,KVEC C DIMENSION M(12) ,NECPT(5) C COMMON /CONDAS/ CONSTS(5) COMMON /DS1AET/ ECPT(100) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /DS1AAA/ NPVT,ICSTM,NCSTM 1, DUMCL(32) ,NOGO COMMON /DS1ADP/ DUMMY(400) ,IVEC(3) 1 ,NGRID(4) ,JVEC(3) 2 ,COORD(16) ,KVEC(3) 3 ,SDISP(12) ,PVEC(3) 4 ,VSUBK(3) ,NPT1 5 ,JNOT ,NPT2 6 ,NPIVOT ,NPT3 7 ,MPOINT ,NSUBSC 8 ,V(3) ,U1 9 ,SI(3) ,U2 T ,VECL ,ANGL 1 ,SINANG ,COSANG C EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (NECPT(1),ECPT(1)) C DATA M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 / C ****************************************************************** C ECPT ECPT C RECEIVED BY REQUIRED BY C DQDMEM DTRMEM C ****************************************************************** C ECPT( 1) = EL. ID ECPT( 1) = EL. ID C ECPT( 2) = GRD. PT. A ECPT( 2) = GRD. PT. A C ECPT( 3) = GRD. PT. B ECPT( 3) = GRD. PT. B C ECPT( 4) = GRD. PT. C ECPT( 4) = GRD. PT. C C ECPT( 5) = GRD. PT. D ECPT( 5) = THETA C ECPT( 6) = THETA ECPT( 6) = MATERIAL ID C ECPT( 7) = MATERIAL ID ECPT( 7) = T C ECPT( 8) = T ECPT( 8) = NON-STRUCT. MASS C ECPT( 9) = NON-STRUCT. MASSECPT( 9) = COORD. SYS. ID 1 C ECPT(10) = COORD. SYS. ID 1ECPT(10) = X1 C ECPT(11) = X1 ECPT(11) = Y1 C ECPT(12) = Y1 ECPT(12) = Z1 C ECPT(13) = Z1 ECPT(13) = COORD. SYS. ID 2 C ECPT(14) = COORD. SYS. ID 2ECPT(14) = X2 C ECPT(15) = X2 ECPT(15) = Y2 C ECPT(16) = Y2 ECPT(16) = Z2 C ECPT(17) = Z2 ECPT(17) = COORD. SYS. ID 3 C ECPT(18) = COORD. SYS. ID 3ECPT(18) = X3 C ECPT(19) = X3 ECPT(19) = Y3 C ECPT(20) = Y3 ECPT(20) = Z3 C ECPT(21) = Z3 ECPT(21) = ELEMENT TEMP. C ECPT(22) = COORD. SYS. ID 4ECPT(22) = EL. DEF. C ECPT(23) = X4 ECPT(23) = LDTEMP C ECPT(24) = Y4 ECPT(24) = XT 1 C ECPT(25) = Z4 ECPT(25) = YT 1 C ECPT(26) = ELEMENT TEMP. ECPT(26) = ZT 1 C ECPT(27) = EL. DEF. ECPT(27) = XT 2 C ECPT(28) = LDTEMP ECPT(28) = YT 2 C ECPT(29) = XT 1 ECPT(29) = ZT 2 C ECPT(30) = YT 1 ECPT(30) = XT 3 C ECPT(31) = ZT 1 ECPT(31) = YT 3 C ECPT(32) = XT 2 ECPT(32) = ZT 3 C ECPT(33) = YT 2 C ECPT(34) = ZT 2 C ECPT(35) = XT 3 C ECPT(36) = YT 3 C ECPT(37) = ZT 3 C ECPT(38) = XT 4 C ECPT(39) = YT 4 C ECPT(40) = ZT 4 C ****************************************************************** C C THE FOLLOWING COMPUTATION IS PERFORMED FOR USE WITH THE C COMPUTATION OF SINTH AND COSTH BELOW (ANISOTROPIC MATERIAL C POSSIBILITY) NOTE FMMS-46 PAGE -9- C ANGL = ECPT(6) * DEGRA COSANG = COS( ANGL ) SINANG = SIN( ANGL ) IVEC(1) = ECPT(15) - ECPT(11) IVEC(2) = ECPT(16) - ECPT(12) IVEC(3) = ECPT(17) - ECPT(13) VECL = SQRT( IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2 ) IF (VECL.EQ.0.0E0) GO TO 150 IVEC(1) = IVEC(1)/VECL IVEC(2) = IVEC(2)/VECL IVEC(3) = IVEC(3)/VECL VSUBK(1) =IVEC(2) *(ECPT(25)-ECPT(13))-IVEC(3)*(ECPT(24)-ECPT(12)) VSUBK(2) =IVEC(3) *(ECPT(23)-ECPT(11))-IVEC(1)*(ECPT(25)-ECPT(13)) VSUBK(3) =IVEC(1) *(ECPT(24)-ECPT(12))-IVEC(2)*(ECPT(23)-ECPT(11)) VECL = SQRT(VSUBK(1)**2 + VSUBK(2)**2 + VSUBK(3)**2 ) IF (VECL.EQ.0.0E0) GO TO 150 KVEC(1) = VSUBK(1)/VECL KVEC(2) = VSUBK(2)/VECL KVEC(3) = VSUBK(3)/VECL JVEC(1) = KVEC(2) * IVEC(3) - KVEC(3) * IVEC(2) JVEC(2) = KVEC(3) * IVEC(1) - KVEC(1) * IVEC(3) JVEC(3) = KVEC(1) * IVEC(2) - KVEC(2) * IVEC(1) DO 10 I=1,3 10 PVEC(I) = COSANG * IVEC(I) + SINANG * JVEC(I) C C C SAVE COORDINATE SYSTEMS, GRID POINT SIL NUMBERS, AND DISP VECTOR. C NGRID(1) = NECPT(2) NGRID(2) = NECPT(3) NGRID(3) = NECPT(4) NGRID(4) = NECPT(5) C DO 20 I=1,16 20 COORD(I) = ECPT(I + 9) C DO 30 I=1,12 30 SDISP(I) = ECPT(I+28) C C NOTE. COORD 1, 5, 9, AND 13 ARE INTEGER CSID NUMBERS. C C CORRECT ECPT FOR MEMBRANE USE ECPT(5) = ECPT(6) ECPT(6) = ECPT(7) ECPT(7) = ECPT(8)/2.0E0 ECPT(8) = ECPT(9) ECPT(21) = ECPT(26) ECPT(22) = ECPT(27) ECPT(23) = ECPT(28) C C FOR EACH TRIANGLE THEN THE THREE GRID POINTS AND COORDINATES C ARE INSERTED INTO THE ECPT BEFORE THE CALL TO KTRMEM. C C FILL MAP MATRIX (PERFORMED IN DATA STATEMENT - DO NOT ALTER) C A B C C M1 = 1 M2 = 2 M3 = 4 (TRIANGLE I) C C M4 = 2 M5 = 3 M6 = 1 (TRIANGLE II) C C M7 = 3 M8 = 4 M9 = 2 (TRIANGLE III) C C M10= 4 M11= 1 M12= 3 (TRIANGLE IV) C C ****************************************************************** C FIND WHICH POINT IS THE PIVOT POINT. DO 40 I=1,4 IF(NPVT .NE. NGRID(I)) GO TO 40 NPIVOT = I GO TO 50 40 CONTINUE C C FALL THRU ABOVE LOOP IMPLIES AN ERROR CONDITION. C CALL MESAGE(-30,34,ECPT(1)) C C COMPUTE JNOT WHICH EQUALS THE ONE TRIANGLE OF THE FOUR NOT USED C AND THUS NOT COMPUTED FOR THE PIVOT POINT IN QUESTION. (NOTE THE C ROWS OF THE MAPPING MATRIX ABOVE AND THE TRIANGLE NUMBERS) C 50 IF(NPIVOT - 2)60,60,70 60 JNOT = NPIVOT + 2 GO TO 80 70 JNOT = NPIVOT - 2 C C 80 DO 140 J=1,4 IF (J .EQ. JNOT) GO TO 140 C C FILL IN ECPT FOR TRIANGLE J MPOINT = 3*J - 3 DO 110 I=1,3 NPT1 = MPOINT + I NSUBSC = M(NPT1) NECPT(I+1) = NGRID(NSUBSC) C NPT1 = 3*NSUBSC - 3 NPT3 = 3 * I + 20 DO 90 K=1,3 NPT2 = NPT1 + K NPT3 = NPT3 + 1 90 ECPT(NPT3) = SDISP(NPT2) C NPT1 = 4*NSUBSC - 4 DO 100 K=1,4 NPT2 = NPT1 + K NPT3 = 4*I + 4 + K 100 ECPT(NPT3) = COORD(NPT2) 110 CONTINUE C C ECPT IS COMPLETE FOR TRIANGLE J C C SET UP SINTH AND COSTH FOR THIS SUB TRIANGLE C IF( J.NE.1 ) GO TO 120 SINTH = SINANG COSTH = COSANG GO TO 130 C C NOTE FMMS-46 PAGE-9 FOR FOLLOWING C 120 V(1) = ECPT(14) - ECPT(10) V(2) = ECPT(15) - ECPT(11) V(3) = ECPT(16) - ECPT(12) VECL = SQRT( V(1)**2 + V(2)**2 + V(3)**2 ) IF (VECL.EQ.0.0E0) GO TO 150 U1 = ( V(1)*PVEC(1) + V(2)*PVEC(2) + V(3)*PVEC(3) )/VECL SI(1) = V(2) * PVEC(3) - V(3) * PVEC(2) SI(2) = V(3) * PVEC(1) - V(1) * PVEC(3) SI(3) = V(1) * PVEC(2) - V(2) * PVEC(1) U2 = ( SI(1)*KVEC(1) + SI(2)*KVEC(2) + SI(3)*KVEC(3) )/VECL VECL = SQRT( U1**2 + U2**2 ) U1 = U1 / VECL U2 = U2 / VECL SINTH = SINANG * U1 - COSANG * U2 COSTH = COSANG * U1 + SINANG * U2 130 IF( ABS(SINTH) .LT. 1.0E-06 ) SINTH = 0.0E0 C CALL DTRMEM( 1 ) C C INSERTIONS ARE PERFORMED BY DTRMEM C 140 C O N T I N U E C C ****************************************************************** C RETURN 150 CALL MESAGE(30,26,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN END ================================================ FILE: mis/dquad.f ================================================ SUBROUTINE DQUAD (ITYPE) C C THIS ROUTINE GENERATES THE FOLLOWING C C FOUR 6X6 DIFFERENTIAL STIFFNESS MATRICES FOR ONE PIVOT POINT OF C A QUADRILATERAL C C C CALLS FROM THIS ROUTINE ARE MADE TO C DTRBSC - BASIC BENDING TRI. ROUTINE. C DTRMEM - TRIANGULAR MEMBRANE ROUTINE C TRANSD - SUPPLIES 3X3 TRANSFORMATIONS C GMMATD - GENERAL MATRIX MULITPLY AND TRANSPOSE ROUTINE C DS1B - INSERTION ROUTINE C C C ITYPE = 1 2 4 C ECPT INDEX QUAD1 QUAD2 TRMEM QUAD4 C ********** ******* ******* ******* ******** C 1 EL. ID. EL. ID. EL. ID. EL. ID C 2 SIL1 SIL1 SIL1 SIL1 C 3 SIL2 SIL2 SIL2 SIL2 C 4 SIL3 SIL3 SIL3 SIL3 C 5 SIL4 SIL4 THETA SIL4 C 6 THETA THETA MAT. ID. MEM.T1 C 7 MAT. ID. 1 MAT. ID. T MEM.T2 C 8 T1 T NSM MEM.T3 C 9 MAT. ID. 2 NSM CID1 MEM.T4 C 10 INERTIA I CID1 X1 THETA C 11 MAT ID 3 X1 Y1 FLAG FOR 10 C 12 T2 Y1 Z1 GRD OFFSET C 13 NSM Z1 CID2 MAT. ID 1 C 14 Z1 CID2 X2 THICKNESS C 15 Z2 X2 Y2 MAT. ID 2 C 16 CID1 Y2 Z2 INERTIA I C 17 X1 Z2 CID3 MAT. ID 3 C 18 Y1 CID3 X3 TS/T C 19 Z1 X3 Y3 NSM C 20 CID2 Y3 Z3 Z1 C 21 X2 Z3 EL TEMP Z2 C 22 Y2 CID4 EL DEFORM MAT. ID 4 C 23 Z2 X4 LOAD TEMP THETA C 24 CID3 Y4 U1 FLAG FOR 23 C 25 X3 Z4 V1 INTEGRATION C 26 Y3 EL TEMP W1 STRESS ANGLE C 27 Z3 EL DEFORM U2 FLAG FOR 26 C 28 CID4 LOAD TEMP V2 ZOFF1 C 29 X4 U1 W2 CID1 C 30 Y4 V1 U3 X1 C 31 Z4 W1 V3 Y1 C 32 EL TEMP U2 W3 Z1 C 33 EL DEFORM V2 CID2 C 34 LOAD TEMP W2 X2 C 35 U1 U3 Y2 C 36 V1 V3 Z2 C 37 W1 W3 CID3 C 38 U2 U4 X3 C 39 V2 V4 Y3 C 40 W2 W4 Z3 C 41 U3 CID4 C 42 V3 X4 C 43 W3 Y4 C 44 U4 Z4 C 45 V4 EL TEMP C 46 W4 C 47 C 48 U1 C 49 V1 C 50 W1 C 51 U2 C 52 V2 C 53 W2 C 54 U3 C 55 V3 C 56 W3 C 57 U4 C 58 V4 C 59 W4 C INTEGER SUBSCA ,SUBSCB ,SUBSCC DOUBLE PRECISION 1 KOUT ,TITE ,DPDUM , 2 TJTE ,DPDUM2 ,IVECT , 3 D1 ,JVECT ,D2 , 4 KVECT ,A1 ,KSUM , 5 T ,XSUBB ,V , 6 XSUBC ,VV ,YSUBC , 7 PROD9 ,TEMP ,TEMP9 , 8 U1 ,H ,U2 , 9 E ,A ,TEMP18 , O REQUIV ,R ,SIGXY , 1 SIGX ,SIGY DIMENSION M(12) ,NECPT(100) ,REQUIV(8) , 1 VQ1(3),VQ2(3) ,VQ3(3),VQ4(3) ,A(1) CHARACTER UFM*23 ,UWM*25 ,UIM*29 , 1 SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM , 1 SFM COMMON /CONDAS/ CONSTS(5) COMMON /SYSTEM/ IBUFF ,NOUT ,NOGO COMMON /MATIN / MATID ,INFLAG ,ELTEMP , 1 STRESS ,SINTH ,COSTH COMMON /MATOUT/ G11 ,G12 ,G13 , 1 G22 ,G23 ,G33 , 2 RHO ,ALPHA1 ,ALPHA2 , 3 ALP12 ,T SUB 0 ,G SUB E , 4 SIGTEN ,SIGCOM ,SIGSHE , 5 G2X211 ,G2X212 ,G2X222 COMMON /DS1AAA/ NPVT ,ICSTM ,NCSTM COMMON /DS1AET/ ECPT(100) COMMON /DS1ADP/ KOUT(36) ,TITE(18) ,TJTE(18) , 1 TEMP18(18) ,D1(3) ,D2(3) , 2 A1(3) ,V(2) ,VV(2) , 3 PROD9(9) ,TEMP9(9) ,H , 4 U1 ,U2 ,DPDUM(1) , 5 TEMP ,DPDUM2(43) ,E(18) , 6 SIGX ,SIGY ,SIGXY , 7 XSUBB ,XSUBC ,YSUBC , 8 KSUM(36) ,T(9) ,IVECT(3) , 9 JVECT(3) ,KVECT(3) ,R(2,4) , O SP1(2) ,THETA ,SINANG , 1 COSANG ,KM ,NBEGIN , 2 JNOT ,NPIVOT ,NSUBC , 3 ISING ,SUBSCA ,SUBSCB , 4 SUBSCC ,NPOINT ,IPVT EQUIVALENCE (CONSTS(4),DEGRA) , (NECPT(1),ECPT(1)) , 2 (REQUIV(1),R(1,1)), (VQ1(1),ECPT(17)) , 4 (VQ2(1),ECPT(21)) , (VQ3(1),ECPT(25)) , 6 (VQ4(1),ECPT(29)) , (A(1),KOUT(1)) DATA M / 2, 4, 1, 3, 1, 2, 4, 2, 3, 1, 3, 4 / C C C IF ITYPE = 2, QUAD2 EST DATA IS MOVED AND STORED IN QUAD1 FORMAT C IF ITYPE = 4, QUAD4 EST DATA IS MOVED AND STORED IN QUAD1 FORMAT C IF (ITYPE .EQ. 4) GO TO 15 IF (ITYPE .NE. 2) GO TO 20 C DO 10 I = 10,40 NPOINT = 50 - I 10 ECPT(NPOINT+6) = ECPT(NPOINT) C ECPT( 9) = ECPT(7) ECPT(10) =(ECPT(8)**3.0)/12.0 ECPT(11) = ECPT(7) ECPT(12) = ECPT(8) GO TO 20 C C QUAD4 C C IF NECPT(11)=0, ECPT(10) IS THE MATERIAL PROPERTY ORIENTAION C ANGLE THETA. IF IT IS NOT, NECPT(10) IS MATERIAL COORDINATE C SYSTEM ID. IN THIS CASE, WE CAN NOT CONTINUE C 15 IF (NECPT(11) .NE. 0) GO TO 350 ECPT(6) = ECPT(10) ECPT(7) = ECPT(13) ECPT(8) = ECPT(14) ECPT(9) = ECPT(15) ECPT(10)= ECPT(16) ECPT(11)= ECPT(17) ECPT(12)= ECPT(14) DO 17 I = 16,46 17 ECPT(I) = ECPT(I+13) 20 IF (ECPT(8) .EQ. 0.0) RETURN C C CALL BUG (4HQDET,5,ECPT,52-6*ITYPE) C C DETERMINE PIVOT POINT NUMBER C DO 30 I = 1,4 IF (NPVT .NE. NECPT(I+1)) GO TO 30 NPIVOT = I GO TO 40 30 CONTINUE RETURN C 40 THETA = ECPT(6)*DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) C IF (NPIVOT-2) 50,50,60 50 JNOT = NPIVOT + 2 GO TO 70 60 JNOT = NPIVOT - 2 C C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X4) FOR QUADRILATERAL PLATE... C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX C 70 DO 80 I = 1,8 80 REQUIV(I) = 0.0D0 C DO 90 I = 1,3 D1(I) = DBLE(VQ3(I)) - DBLE(VQ1(I)) D2(I) = DBLE(VQ4(I)) - DBLE(VQ2(I)) 90 A1(I) = DBLE(VQ2(I)) - DBLE(VQ1(I)) C C NON-NORMALIZED K-VECTOR = D1 CROSS D2 C KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3) KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1) KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2) C C NORMALIZE K-VECTOR C TEMP = DSQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2) IF (TEMP .EQ. 0.0D0) CALL MESAGE (-30,26,ECPT(1)) DO 100 I = 1,3 100 KVECT(I) = KVECT(I)/TEMP C C COMPUTE H = (A1 DOT KVECT) / 2 C TEMP = (A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3))/2.0D0 C C I-VECTOR =(A1) - H*(KVECT) NON-NORMALIZED C DO 110 I = 1,3 110 IVECT(I) = A1(I) - TEMP*KVECT(I) C C NORMALIZE I-VECTOR C TEMP = DSQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2) IF (TEMP .EQ. 0.0D0) CALL MESAGE (-30,26,ECPT(1)) DO 120 I = 1,3 120 IVECT(I) = IVECT(I)/TEMP C C J-VECTOR = K CROSS I, AND X3 CALCULATION C JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3) JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1) JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2) C C NORMALIZE J VECTOR TO MAKE SURE C TEMP = DSQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2) IF (TEMP .EQ. 0.0D0) CALL MESAGE (-30,26,ECPT(1)) DO 130 I = 1,3 130 JVECT(I) = JVECT(I)/TEMP C C X3 GOES INTO R(1,3) = D1 DOT IVECT C R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3) C C X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3) C R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3) R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3) C C X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4) C R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2) R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3) C C AT THIS POINT, THE COORDINATES OF THE PLATE IN THE ELEMENT C SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE C POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR C ROW 2 RESPECTIVELY. C C SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT. C C COMPUTE SUB-TRIANGLE COORDINATES C C ZERO OUT KSUM MATRICES C DO 150 I = 1,36 150 KSUM(I) = 0.0D0 C ELTEMP = ECPT(32) C C MOVE ECPT INTO POSITIONS 51-93 C DO 160 I = 1,46 160 ECPT(I+50) = ECPT(I) C C MOVE MISCELLANEOUS VARIABLES INTO TRMEM FORMAT C ECPT( 6) = ECPT( 7) ECPT( 7) = ECPT( 8) ECPT(21) = ECPT(32) ECPT(22) = ECPT(33) ECPT(23) = ECPT(34) C DO 240 J = 1,4 IF (J .EQ. JNOT) GO TO 240 KM = 3*J - 3 IPVT = 0 DO 190 I = 1,3 NPOINT = KM+I NSUBC = M(NPOINT) IF (NSUBC .EQ. NPIVOT) IPVT = I NECPT(I+1) = NECPT(NSUBC+51) DO 170 K = 1,4 NPOINT = 4*(NSUBC-1) + K + 65 SUBSCA = 4*(I-1) + K + 8 ECPT(SUBSCA) = ECPT(NPOINT) 170 CONTINUE DO 180 K = 1,3 NPOINT = 3*(NSUBC-1) + K + 84 SUBSCA = 3*(I-1) + K + 23 ECPT(SUBSCA) = ECPT(NPOINT) 180 CONTINUE 190 CONTINUE IF (IPVT .EQ. 0) GO TO 240 C SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 200 I = 1,2 V(I) = R(I,SUBSCB) - R(I,SUBSCA) 200 VV(I) = R(I,SUBSCC) - R(I,SUBSCA) XSUBB = DSQRT(V(1)**2 + V(2)**2) U1 = V(1)/XSUBB U2 = V(2)/XSUBB XSUBC = U1*VV(1) + U2*VV(2) YSUBC = U1*VV(2) - U2*VV(1) C C SET UP OF T-MATRIX C T(1) = 1.0D0 T(2) = 0.0D0 T(3) = 0.0D0 T(4) = 0.0D0 T(5) = U1 T(6) = U2 T(7) = 0.0D0 T(8) =-U2 T(9) = U1 C SINTH = SINANG*U1 - COSANG*U2 COSTH = COSANG*U1 + SINANG*U2 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR TRIANGLE -J- C CALL DTRMEM (3) CALL DTRBSC (2,IPVT) C C NOW WE HAVE AT HAND K I=NPIVOT,J=1,2,3 THREE 6X6 MATRICES C IJ C STORED AT A(1) THROUGH A(27) C C MAP THE THE 3X3 S FOR THE PIVOT ROW INTO THE SUMMATION ARRAYS C DO 230 I = 1,3 NPOINT = 9*I - 8 C CALL GMMATD (T,3,3,1, A(NPOINT),3,3,0, TEMP9) CALL GMMATD (TEMP9,3,3,0, T,3,3,0, PROD9) C C ADD THIS PRODUCT IN NOW. C NPOINT = KM + I NPOINT = 9*M(NPOINT) - 9 DO 220 K = 1,9 NPOINT = NPOINT + 1 220 KSUM(NPOINT) = KSUM(NPOINT) + PROD9(K)/2.0D0 230 CONTINUE C 240 CONTINUE C C CALL BUG (4HQDKD,220,KSUM,72) C C FILL E-MATRIX C DO 250 I = 1,18 250 E(I) = 0.0D0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C C T C FORM T E STORE IN TITE-MATRIX (6X3) C I C IF (NECPT(4*NPIVOT + 62) .EQ. 0) GO TO 260 CALL TRANSD (NECPT(4*NPIVOT+62),T) CALL GMMATD (T,3,3,1, E( 1),3,3,0, TITE( 1)) CALL GMMATD (T,3,3,1, E(10),3,3,0, TITE(10)) GO TO 290 C 260 DO 270 K = 1,18 270 TITE(K) = E(K) C C RESTORE ECPT FOR CKECKOUT C DO 280 K = 1,46 280 ECPT(K) = ECPT(K+50) C 290 DO 330 J = 1,4 C C TRANSFORMATIONS AND INSERTION C IF (NECPT(4*J+62) .EQ. 0) GO TO 300 CALL TRANSD (NECPT(4*J+62),T) CALL GMMATD (T,3,3,1, E(1),3,3,0, TJTE( 1)) CALL GMMATD (T,3,3,1, E(10),3,3,0, TJTE(10)) GO TO 320 C 300 DO 310 K = 1,18 310 TJTE(K) = E(K) 320 CALL GMMATD (KSUM(9*J-8),3,3,0, TJTE,6,3,1, TEMP18(1)) CALL GMMATD (TITE(1),6,3,0, TEMP18(1),3,6,0, KOUT(1)) CALL DS1B (KOUT,NECPT(J+51)) 330 CONTINUE RETURN C C COULD NOT CONTINUE C 350 WRITE (NOUT,360) SFM 360 FORMAT (A25,', DEFFICIENT SOURCE CODE IN DQUAD TO HANDLE CQUAD4 ', 1 'ELEMENT WITH MATERIAL', /5X, 2 'PROPERTY COORD. SYSTEM. ANGLE MUST BE SPECIFIED') NOGO = 1 RETURN END ================================================ FILE: mis/draw.f ================================================ SUBROUTINE DRAW (GPLST,X,U,S,DISP,STEREO,OPCOR,BUF1) C EXTERNAL ANDF LOGICAL DISP INTEGER ANDF,AXIS(3),BUF1,DAXIS,ELSET,GP,GPLST(1),OPCOR, 1 PCON,PEDGE,PEN,PLABEL,PLTNUM,PORIG,PPEN,PRJECT, 2 PSET,PSHAPE,PSYMBL,PSYMM,PVECTR,STEREO,SYM(2), 3 SUCOR,V,VEC(3),COLOR,DEFM REAL A(3),MAXDEF,S(2,1),SIGN(3),U(3,1),X(3,1),MIN,MAX DOUBLE PRECISION DR,SUM COMMON /BLANK / NGP,SKP11(3),PLTNUM,NGPSET,SKP12(4),SKP21(2),ELSET COMMON /XXPARM/ PBUFSZ,CAMERA(5),NOPENS,PAPSIZ(2),PENPAP(27), 1 SCALE,OBJMOD,SKPSCL,MAXDEF,DEFMAX,AXES(3), 2 DAXIS(3),VIEW(9),VANTX1,R0,VANTX2(3),D0,VANTX3(2), 3 PRJECT,VANTX4,ORIGX1(14),EDGE(11,4),XY(11,3), 4 NCNTR(51),ICNTVL,SKP24(24),COLOR COMMON /PLTDAT/ MODEL,PLOTER,REG(4),AXYMAX(14) COMMON /RSTXXX/ CSTM(3,3),MIN(3),MAX(3) COMMON /DRWDAT/ PSET,PLABEL,PORIG,PPEN,PSHAPE,PSYMBL(2),PSYMM(6), 1 PVECTR,PCON,PEDGE C C /DRWDAT/ CONTROLS THIS ROUTINE C PLABEL - LABELING GRIDS, ELEMENTS... C -N = NONE C 0 = GID 3 = EID 6 = EID + GID C 1 = GID + SPC 4 = EID + PID C 2 = UNDEFINED. 5 = UNDEFINED C PSHAPE - WHICH SHAPE OR OUTLINE OPTION TO DRAW... C 1 = UNDEFORMED 2 = DEFORMED 3 = BOTH C PSYMBL(2) - DRAW SYMBOLS IF PSYMBL(1).NE.0 C PSYMM (6) - SYMMETRY FLAGS... C (1) = X AXIS SIGN CHANGE (4) = X DEFORMATION SIGN CHANGE C (2) = Y (5) = Y C (3) = Z (6) = Z C PVECTR - DEFORMATION VECTORS DRAWN (AS INTERPRETED BY INTVEC)... C 0 = NONE C 1 = X 4 = Z 7 = XYZ 10 = RY 13 = RXZ C 2 = Y 5 = ZX 8 = UNDEFINED 11 = RXY 14 = RYZ C 3 = XY 6 = ZY 9 = RX 12 = RZ 15 = RXYZ C THE NEGATIVE OF ABOVE, DO NOT DRAW SHAPE. C PCON - NONZERO MEANS CONTOUR PLOT... C PEDGE - 0 = SHAPE DRAWN, C 1 = OUTLINE (BORDER) DRAWN ACCORDING TO PSHAPE-S C 2 = HIDDEN LINE PLOT C 3 = OFFSET PLOT C 4 THRU N = SHRINK PLOT, ELEMENT SHRUNK BY THIS PERCENT C 200 + N = HIDDEN LINE AND SHRINK PLOT, N.GT.2 C 100 = FILL ? C C OPCOR = NO. OF OPEN CORE WORDS AVAILABLE IN S C IT IS NOT A POINTER TO S, NOR A OPEN CORE ARRAY IN S C BUF1 = BUFFER AVAILABLE AT END OF CORE W.R.T. GPLST = BUFSIZ+1 C C OPEN CORE /ZZPLOT/ C SETID NSETS NDOF NGP 3*NGPSET 3*NGPSET OPCOR N C -----+-----+----+----+---+--------+--------+-------+--+--+-+-+-+-+ C ! N1 N2 I1 (X) I2 (U) I3 (S) DEFBUF..BUF.. C !(DEFLST) ! C !(GPLST) N=2*NGPSET C C NGP = TOTAL NO. OF GRID POINTS IN THE STRUCTURE C NGPSET = NO. OF GRID POINTS USED IN CURRENT SET OF PLOTTING C GPLST = TABLE OF NGP IN LENGTH, C GPLST(I) = 0 IF THIS I-TH GRID POINT IS NOT USED FOR THE C CURRENT PLOT. OTHERWISE GPLST(I) IS NON-ZERO. C X = X,Y,Z COORDINATES OF THE GRID POINTS CORRESPONDING TO THE C NON-ZERO GRID POINTS IN THE GPLST TABLE C TOTALLY, THERE ARE NGPSET GRID POINTS IN X C U = X,Y,Z DISPLACEMENTS, ARRANGED SIMILARLY TO X C S = SCRATCH AREA C SCALEX = 1.0 IF (PRJECT .EQ. 3) SCALEX = OBJMOD C C SETUP THE PLOTTER REGION. C IF (PSYMM(1).LT.0 .OR. PSYMM(2).LT.0 .OR. PSYMM(3).LT.0) GO TO 10 REG(1) = EDGE(PORIG,1)*AXYMAX(1) REG(2) = EDGE(PORIG,2)*AXYMAX(2) REG(3) = EDGE(PORIG,3)*AXYMAX(1) REG(4) = EDGE(PORIG,4)*AXYMAX(2) GO TO 20 10 REG(1) = 0.0 REG(2) = 0.0 REG(3) = AXYMAX(1) REG(4) = AXYMAX(2) C C REDUCE THE GRID POINT CO-ORDINATES TO PLOT SIZE + TRANSLATE TO C THE SELECTED ORIGIN. C 20 DO 40 I = 1,3 MIN(I) = +1.E+20 MAX(I) = -1.E+20 IF (PSYMM(I) .GE. 0) GO TO 40 DO 30 GP = 1,NGPSET 30 X(I,GP) = -X(I,GP) 40 CONTINUE CALL PROCES (X) CALL PERPEC (X,STEREO) XORIG = XY(PORIG,1) IF (STEREO .NE. 0) XORIG = XY(PORIG,2) DO 50 GP = 1,NGPSET X(2,GP) = SCALE*X(2,GP) - XORIG X(3,GP) = SCALE*X(3,GP) - XY(PORIG,3) 50 CONTINUE C IF (.NOT.DISP .OR. MAXDEF.EQ.0 .OR. DEFMAX.EQ.0) GO TO 120 C C PROCESS THE DEFORMATIONS. C EXCHANGE AXES, REDUCE THE MAXIMUM DEFORMATION TO -MAXDEF-. C DO 100 I = 1,3 AXIS(I) = IABS(DAXIS(I)) SIGN(I) = 1. IF (DAXIS(I) .LT. 0) SIGN(I) = -1. 100 CONTINUE I = AXIS(1) J = AXIS(2) K = AXIS(3) D = MAXDEF/DEFMAX DO 110 GP = 1,NGPSET IF (PSYMM(4) .LT. 0) U(1,GP) = -U(1,GP) IF (PSYMM(5) .LT. 0) U(2,GP) = -U(2,GP) IF (PSYMM(6) .LT. 0) U(3,GP) = -U(3,GP) A(1) = U(I,GP) A(2) = U(J,GP) A(3) = U(K,GP) U(1,GP) = A(1)*SIGN(1)*D U(2,GP) = A(2)*SIGN(2)*D U(3,GP) = A(3)*SIGN(3)*D 110 CONTINUE CALL INTVEC (PVECTR) C C IF PVECTR .LT. 0 NO SHAPE WILL BE DRAWN C ATTEMPT TO REMOVE DUPLICATE LINES C 120 IOPT = -1 SUCOR = 2*NGPSET + 1 IF (.NOT.DISP) SUCOR = 1 C C FIRST DETERMINE OPTIONS - UNIQUE LINES FOR PSHAPE=3 MAY ONLY BE C FOR THE UNDERLAY. ISHAPE = 0 MEANS DRAW THE SHAPE.. C ISHAPE = -1 LATER = 0 IF (PVECTR.LT.0 .OR. (PEDGE.NE.0 .AND. PEDGE.NE.3)) GO TO 130 ISHAPE = 0 IF (OPCOR .LT. NGPSET+NGP+1) GO TO 130 IOPT = 0 DEFM = 0 IF (PSHAPE .GE. 2) DEFM = 1 CALL LINEL (S(SUCOR,1),IPTL,OPCOR,IOPT,X,PPEN,DEFM,GPLST) IF (PEDGE .EQ. 3) GO TO 500 IF (IPTL .LE. 0) IOPT = -1 CALL BCKREC (ELSET) 130 IF (PSHAPE.EQ.2 .AND. DISP) GO TO 260 C C DRAW UNDEFORMED SHAPE (USE PEN1 + SYMBOL 2 IF THE DEFORMED SHAPE C OR DEFORMATION VECTORS ARE ALSO TO BE DRAWN). C PEN = PPEN IF (DISP .AND. PSHAPE.GT.2) PEN = 1 IF (ISHAPE .EQ. 0) 1 CALL SHAPE (*500,GPLST,X,0,PEN,0,IOPT,IPTL,S(SUCOR,1),OPCOR) IF (PEDGE .LT. 2) GO TO 140 CALL HDSURF (GPLST,X,0,PEN,0,NMAX,MAXSF,S(SUCOR,1),BUF1,PEDGE, 1 OPCOR) IF (PEDGE.NE.2 .AND. PEDGE.LT.200) GO TO 140 CALL HDPLOT (GPLST,NMAX,MAXSF,OPCOR,BUF1) GO TO 220 140 IF (PCON .EQ. 0) GO TO 200 IF (.NOT.DISP .OR. PSHAPE.LT.3) GO TO 210 LATER = PCON PCON = 0 200 IF (PEDGE.EQ.0 .OR. PEDGE.GE.2) GO TO 220 210 IOPT = -1 CALL CONTOR (GPLST,X,0,U,S(SUCOR,1),S(SUCOR,1),PEN,0,BUF1,OPCOR) IF (PEDGE .EQ. 1) CALL BORDER (GPLST,X,0,S(SUCOR,1),0,BUF1,OPCOR) IF (PEDGE.EQ.1 .OR. COLOR.GE.0) GO TO 220 CALL GOPEN (ELSET,GPLST(BUF1),0) CALL SHAPE (*500,GPLST,X,0,1,0,IOPT,IPTL,S(SUCOR,1),OPCOR) 220 PCON = MAX0(PCON,LATER) IF (PPEN .GT. 31) 1 CALL SHAPE (*500,GPLST,X,0,1,0,IOPT,IPTL,S(SUCOR,1),OPCOR) IF (PSHAPE .EQ. 1) PCON = 0 IF (PSYMBL(1) .EQ. 0) GO TO 250 IF (DISP) GO TO 230 SYM(1) = PSYMBL(1) SYM(2) = PSYMBL(2) GO TO 240 230 SYM(1) = 2 SYM(2) = 0 240 CALL GPTSYM (GPLST,X,0,SYM,0) 250 IF (PLABEL .LT. 0) GO TO 260 I = PLABEL/3 IF (I .NE. 1) CALL GPTLBL (GPLST,X,0,0,BUF1) IF (I .LT. 1) GO TO 260 CALL ELELBL (GPLST,X,0,0,BUF1) CALL BCKREC (ELSET) 260 IF (.NOT.DISP .OR. MAXDEF.EQ.0.0 .OR. DEFMAX.EQ.0.0) GO TO 500 IF (PEDGE .EQ. 3) GO TO 500 IF (PSHAPE.LT.2 .AND. LATER.EQ.0) GO TO 350 C C ROTATE THE DEFORMATIONS C DO 290 GP = 1,NGPSET DO 280 J = 1,3 SUM = CSTM(J,1)*U(1,GP) + CSTM(J,2)*U(2,GP) + CSTM(J,3)*U(3,GP) IF (J .NE. 1) GO TO 270 IF (PRJECT .NE. 1) DR = D0/(R0-SCALEX*(X(1,GP)+SUM)) GO TO 280 270 IF (PRJECT .NE. 1) SUM = SCALEX*DR*SUM S(J-1,GP) = X(J,GP) + SCALE*SUM 280 CONTINUE 290 CONTINUE C C DRAW THE DEFORMED SHAPE C IF (PVECTR .LT. 0) GO TO 300 PEN = PPEN IF (PSHAPE.EQ.2 .AND. PVECTR.NE.0) PEN = 1 IF (PEDGE .EQ. 0) 1 CALL SHAPE (*500,GPLST,X,S,PEN,1,IOPT,IPTL,S(SUCOR,1),OPCOR) IF (PEDGE .LT. 2) GO TO 300 CALL HDSURF (GPLST,X,S,PEN,1,NMAX,MAXSF,S(SUCOR,1),BUF1,PEDGE, 1 OPCOR) IF (PEDGE.EQ.2 .OR. PEDGE.GT.200) 1 CALL HDPLOT (GPLST,NMAX,MAXSF,OPCOR,BUF1) 300 IF (PCON.EQ.0 .OR. PEDGE.EQ.2 .OR. PEDGE.GT.200) GO TO 310 IF (ICNTVL.LE. 9 .AND. PSHAPE.EQ.1) GO TO 310 IF (ICNTVL.GT.13 .AND. PSHAPE.EQ.1) GO TO 310 CALL CONTOR (GPLST,X,S,U,S(SUCOR,1),S(SUCOR,1),PEN,0,BUF1,OPCOR) IF (PEDGE.EQ.1 .OR. COLOR.GE.0) GO TO 310 CALL GOPEN (ELSET,GPLST(BUF1),0) CALL SHAPE (*500,GPLST,X,0,1,0,IOPT,IPTL,S(SUCOR,1),OPCOR) 310 IF (PEDGE.EQ. 1) CALL BORDER (GPLST,X,S,S(SUCOR,1),1,BUF1,OPCOR) IF (PPEN .GT. 31) 1 CALL SHAPE (*500,GPL,X,0,1,0,IOPT,IPTL,S(SUCOR,1),OPCOR) IF (PSYMBL(1) .EQ. 0) GO TO 340 IF (PSHAPE.EQ.2 .AND. PVECTR.NE.0) GO TO 320 SYM(1) = PSYMBL(1) SYM(2) = PSYMBL(2) GO TO 330 320 SYM(1) = 2 SYM(2) = 0 330 CALL GPTSYM (GPLST,X,S,SYM,1) 340 IF (PLABEL.LT.0 .OR. PSHAPE.NE.2) GO TO 350 I = PLABEL/3 IF (I .NE. 1) CALL GPTLBL (GPLST,X,S,1,BUF1) IF (I .LT. 1) GO TO 350 CALL ELELBL (GPLST,X,S,1,BUF1) 350 IF (PVECTR .EQ. 0) GO TO 500 PVECTR = IABS(PVECTR) C C PROCESS THE DEFORMATION VECTORS C IF (PVECTR .LE. 7) GO TO 410 NV = 1 VEC(1) = 0 VEC(2) = 0 VEC(3) = 0 DO 400 V = 1,3 IF (ANDF(PVECTR,2**(V-1)) .EQ. 0) GO TO 400 IF (AXIS(1).EQ.V) VEC(1) = 1 IF (AXIS(2).EQ.V) VEC(2) = 1 IF (AXIS(3).EQ.V) VEC(3) = 1 400 CONTINUE GO TO 420 410 NV = 3 420 DO 490 V = 1,NV IF (PVECTR .GT. 7) GO TO 440 IF (ANDF(PVECTR,2**(V-1)) .EQ. 0) GO TO 490 DO 430 I = 1,3 VEC(I) = 0 IF (AXIS(I) .EQ. V) VEC(I) = 1 430 CONTINUE C C ROTATE THE DEFORMATIONS (VEC = VECTOR DIRECTION TO BE DRAWN) C 440 DO 480 GP = 1,NGPSET DO 470 J = 1,3 SUM = 0.D0 DO 450 I = 1,3 IF (VEC(I) .NE. 0) SUM = SUM + CSTM(J,I)*U(I,GP) 450 CONTINUE IF (J .NE. 1) GO TO 460 IF (PRJECT .NE. 1) DR = D0/(R0-SCALEX*(X(1,GP)+SUM)) GO TO 470 460 IF (PRJECT .NE. 1) SUM = SCALEX*DR*SUM S(J-1,GP) = X(J,GP) + SCALE*SUM 470 CONTINUE 480 CONTINUE C C DRAW THE DEFORMATION VECTOR C CALL DVECTR (GPLST,X,S,PPEN) IF (PSYMBL(1).EQ.0 .OR. PSHAPE.EQ.3) GO TO 490 J = 0 IF (PSHAPE .EQ. 1) J = 1 CALL GPTSYM (GPLST,X,S,PSYMBL,J) 490 CONTINUE C C END OF PLOT C C IF NOT CONTOUR PLOT, CALL PCOORD TO DRAW A SMALL X-Y-Z COORDINATE C TRIAD AT THE LOWER RIGHT CORNER OF PLOT C 500 IF (PEDGE .NE. 1) CALL PCOORD (PEN) RETURN END ================================================ FILE: mis/drkapm.f ================================================ SUBROUTINE DRKAPM (ARG,INDX,RESLT) C C THIS SUBROUTINE COMPUTES THE DERVIATIVE OF KAPPA MINUS C COMPLEX AI,ARG,RESLT,BSYCON,C1,C2,C2TEST,AT2,AT3,ALP0, 1 ALP,ALN CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IBBOUT COMMON /BLK1 / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES COMMON /BLK2 / BSYCON C PI2 = 2.0*PI A1 = PI2/(SPS-SNS) A2 =-A1 GAM0 = SPS*DEL - SIGMA B1 = GAM0/(SPS-SNS) C1 = CEXP(-AI*ARG/2.0*(SPS-SNS)) C2Q = GAM0/DSTR - SCRK C3Q = GAM0/DSTR + SCRK S1 = SPS/(DSTR**2) S2 = SNS/DSTR NN = 0 CSEC = C2Q*C3Q IF (CSEC .LT. 0.0) NN = 1 T1 = GAM0*S1 T2 = S2*SQRT(ABS(CSEC)) IF (C2Q.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2 IF (NN .EQ. 0) ALP0 = T1 + T2 IF (NN .EQ. 1) ALP0 = CMPLX(T1,T2) RINDX = INDX IF (INDX .EQ. 0) GO TO 10 C2 = C1*B1/ALP0*CSIN(PI/A1*(ARG-B1))/(A1*RINDX+B1-ARG)* 1 (1.0+(ALP0-B1)/(B1-ARG))/(SIN(PI*B1/A1))*BSYCON GO TO 20 10 CONTINUE C2 = C1*B1/ALP0*CSIN(PI/A1*(ARG-B1))/((B1-ALP0)*SIN(PI*B1/A1))* 1 BSYCON 20 CONTINUE C2TEST = 0.0 DO 30 I = 1,200 R = I IF (INDX.LT.0 .AND. ABS(RINDX).EQ.R) GO TO 30 IF (INDX.GT.0 .AND. RINDX.EQ.R) GO TO 30 GAMP = PI2*R + GAM0 GAMN =-PI2*R + GAM0 C2P = GAMP/DSTR - SCRK C2Q = GAMP/DSTR + SCRK C2N = GAMN/DSTR - SCRK C3Q = GAMN/DSTR + SCRK NN = 0 CSEC = C2P*C2Q IF (CSEC .LT. 0.0) NN = 1 T1 = GAMP*S1 T2 = S2*SQRT(ABS(CSEC)) IF (C2P.LT.0.0 .AND. C2Q.LT.0.0) T2 =-T2 IF (NN .EQ. 0) ALP = T1 + T2 IF (NN .EQ. 1) ALP = CMPLX(T1,T2) NN = 0 CSEC = C2N*C3Q IF (CSEC .LT. 0.0) NN = 1 T1 = GAMN*S1 T2 = S2*SQRT(ABS(CSEC)) IF (C2N.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2 IF (NN .EQ. 0) ALN = T1 + T2 IF (NN .EQ. 1) ALN = CMPLX(T1,T2) AT2 = (ALP-A1*R-B1)/(A1*R+B1-ARG) AT3 = (ALN-A2*R-B1)/(A2*R+B1-ARG) C2 = C2*(1.0+AT2)*(1.0+AT3) IF (CABS((C2-C2TEST)/C2) .LT. 0.0009) GO TO 40 C2TEST = C2 30 CONTINUE GO TO 50 40 CONTINUE RESLT = C2 RETURN C 50 CONTINUE WRITE (IBBOUT,60) UFM 60 FORMAT (A23,' - AMG MODULE -SUBROUTINE DRKAPM') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/drod.f ================================================ SUBROUTINE DROD C***** C THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES K(NPVT,NPVT) AND C K(NPVT,J) FOR A ROD HAVING END POINTS NUMBERED NPVT AND J. C***** C C C C E C P T F O R T H E R O D C C C C CARD C TYPE TABLE TYPE C ECPT( 1)ELEMENT ID. I ECT CROD C ECPT( 2)SCALAR INDEX NUMBER FOR GRID POINT A I ECT CROD C ECPT( 3)SCALAR INDEX NUMBER FOR GRID POINT B I ECT CROD C ECPT( 4)MATERIAL ID. I EPT PROD C ECPT( 5)AREA (A) R EPT PROD C ECPT( 6)POLAR MOMENT OF INERTIA (J) R EPT PROD C ECPT( 7) TORSIONAL STRESS COEFF (C) R EPT PROD C ECPT( 8) NON-STRUCTRAL MASS (MU) R EPT PROD C ECPT( 9) COOR. SYS. ID. NO. FOR GRID POINT A I BGPDT GRID C ECPT(10) X-COORDINATE OF GRID PT. A (IN BASIC COOR)R BGPDT C ECPT(11) Y-COORDINATE OF GRID PT. A (IN BASIC COOR)R BGPDT C ECPT(12) Z-COORDINATE OF GRID PT. A (IN BASIC COOR)R BGPDT C ECPT(13) COOR. SYS. ID. NO. FOR GRID POINT B I BGPDT C ECPT(14) X-COORDINATE OF GRID PT. B (IN BASIC COOR)R BGPDT C ECPT(15) Y-COORDINATE OF GRID PT. B (IN BASIC COOR)R BGPDT C ECPT(16) Z-COORDINATE OF GRID PT. B (IN BASIC COOR)R BGPDT C ECPT(17) ELEMENT TEMPERATURE C ECPT(18) ELEMENT DEFORMATION C ECPT(19) AVERAGE ELEMENT LOADING TEMPERATURE C ECPT(20) ... C ECPT(21) DISPLACEMENT COOR. FOR GRID PT. A C ECPT(22) ... C ECPT(23) ... C ECPT(24) DISPLACEMENT COOR. FOR GRID PT. B C ECPT(25) ... C C C DOUBLE PRECISION 1 DZ(1) ,X 2, Y ,Z 3, XL ,XN(3) 4, KE(36) ,TA(9) 5, TB(9) ,A 6, E ,ALPHA 7, TSUB0 ,UA(6) 8, UB(6) ,DIFF(3) 9, DPTERM ,DELTA T, AVGLTP ,FX 1, XM(3) ,YYT(18) 2, ZZT(9) ,YVEC(3) 3, ZVEC(3) ,D(6) 4, YL ,ZL 5, GX C C C DIMENSION 1 IZ(1) ,IECPT(19) C C DS1A VARIABLE CORE C COMMON /ZZZZZZ/ RZ(1) C C DS1A COMMON BLOCK C COMMON /DS1AAA/ NPVT 1, ICSTM ,NCSTM 2, IGPCT ,NGPCT 3, IPOINT ,NPOINT 4, I6X6K ,N6X6K 5, CSTM ,MPT 6, DIT ,ECPTDS 7, GPCT ,KGGD 8, INRW ,OUTRW 9, EOR ,NEOR T, CLSRW 1, JMAX ,FROWIC 2, LROWIC ,NROWSC 3, NLINKS ,LINK(10) 4, NOGO C C ECPT COMMON BLOCK C COMMON /DS1AET/ ECPT(100) C C DS1A LOCAL VARIABLE (SCRATCH) BLOCK C COMMON /DS1ADP/ 1 X ,Y 2, Z ,XL 3, XN ,KE 4, TA ,TB 5, A ,E 6, ALPHA ,T SUB 0 7, UA ,UB 8, DIFF ,DPTERM 9, DELTA ,AVGLTP T, FX ,XM 1, YYT 2, YVEC ,ZVEC 3, YL ,ZL C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH C C C COMMON /MATOUT/ 1 ES ,G 2, NU ,RHO 3, ALPHA S ,T SUB 0 S 4, GSUBE ,SIGT 5, SIGC ,SIGS C C C EQUIVALENCE 1 (RZ(1),IZ(1),DZ(1)),(ECPT(1),IECPT(1)) 2, (ZZT(1),YYT(10)) C C BEGIN EXECUTION C IF (IECPT(2) .EQ. NPVT) GO TO 10 IF (IECPT(3) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1)) ITEMP = IECPT(2) IECPT(2) = IECPT(3) IECPT(3) = ITEMP KA = 13 KB = 9 IDISPA = 22 IDISPB = 19 GO TO 20 10 KA = 9 KB = 13 IDISPA = 19 IDISPB = 22 C C AT THIS POINT KA POINTS TO THE COOR. SYS. ID. OF THE PIVOT GRID POINT. C SIMILARLY FOR KB AND THE NON-PIVOT GRID POINT. C NOW COMPUTE THE LENGTH OF THE ROD. C C C WE STORE THE COORDINATES IN THE D ARRAY SO THAT ALL ARITHMETIC WILL BE C DOUBLE PRECISION C 20 D(1) = ECPT(KA+1) D(2) = ECPT(KA+2) D(3) = ECPT(KA+3) D(4) = ECPT(KB+1) D(5) = ECPT(KB+2) D(6) = ECPT(KB+3) X = D(1) - D(4) Y = D(2) - D(5) Z = D(3) - D(6) XL = DSQRT (X**2 + Y**2 + Z**2) IF (XL.EQ.0.0D0) GO TO 120 C C CALCULATE A NORMALIZED DIRECTION VECTOR IN BASIC COORDINATES. C XN(1) = X / XL XN(2) = Y / XL XN(3) = Z / XL C C CALL SUBROUTINE MAT TO FETCH MATERIAL PROPERTIES. C MATIDC = IECPT(4) MATFLG = 1 ELTEMP = ECPT(17) CALL MAT (IECPT(1)) C C STORE DISPLACEMENT VECTORS IN DOUBLE PRECISION LOCATIONS C UA(1) = ECPT(IDISPA+1) UA(2) = ECPT(IDISPA+2) UA(3) = ECPT(IDISPA+3) UB(1) = ECPT(IDISPB+1) UB(2) = ECPT(IDISPB+2) UB(3) = ECPT(IDISPB+3) C C C COMPUTE THE DIFFERENCE VECTOR DIFF = T * U - T * U C A A B B C IBASEA = 0 IF (IECPT(KA) .EQ. 0) GO TO 30 CALL TRANSD (ECPT(KA),TA) IBASEA = 3 CALL GMMATD (TA,3,3,0, UA(1),3,1,0, UA(4)) 30 IBASEB = 0 IF (IECPT(KB) .EQ. 0) GO TO 40 CALL TRANSD (ECPT(KB),TB) IBASEB = 3 CALL GMMATD (TB,3,3,0, UB(1),3,1,0, UB(4)) 40 DIFF(1) = UA(IBASEA+1) - UB(IBASEB+1) DIFF(2) = UA(IBASEA+2) - UB(IBASEB+2) DIFF(3) = UA(IBASEA+3) - UB(IBASEB+3) C C COMPUTE DOT PRODUCT XN . DIFF C CALL GMMATD (XN,3,1,1, DIFF,3,1,0, DPTERM) C C COMPUTE AXIAL FORCE FX, AND TORSIONAL FORCE GX C DELTA = ECPT(18) FX = DPTERM - DELTA IF (IECPT(19) .EQ. (-1)) GO TO 50 T SUB 0 = T SUB 0 S ALPHA = ALPHA S AVGLTP = ECPT(19) FX = FX - ALPHA*XL*(AVGLTP - T SUB 0) 50 A = ECPT(5) E = E S FX = A * E * FX / XL**2 GX = ECPT(6) * FX / A C C COMPUTE THE XM VECTOR C XM(1) = 0.0D0 XM(2) = 0.0D0 XM(3) = 0.0D0 I = 1 IF (DABS(XN(2)) .LT. DABS(XN(1))) I = 2 IF (DABS(XN(3)) .LT. DABS(XN(I))) I = 3 XM(I) = 1.0D0 C C COMPUTE YVEC, THE CROSS PRODUCT XM X XN C YVEC(1) = XM(2) * XN(3) - XM(3) * XN(2) YVEC(2) = XM(3) * XN(1) - XM(1) * XN(3) YVEC(3) = XM(1) * XN(2) - XM(2) * XN(1) YL = DSQRT (YVEC(1)**2 + YVEC(2)**2 + YVEC(3)**2) YVEC(1) = YVEC(1) / YL YVEC(2) = YVEC(2) / YL YVEC(3) = YVEC(3) / YL C C COMPUTE ZVEC, THE CROSS PRODUCT XN X YVEC C ZVEC(1) = XN(2) * YVEC(3) - XN(3) * YVEC(2) ZVEC(2) = XN(3) * YVEC(1) - XN(1) * YVEC(3) ZVEC(3) = XN(1) * YVEC(2) - XN(2) * YVEC(1) ZL = DSQRT (ZVEC(1)**2 + ZVEC(2)**2 + ZVEC(3)**2) ZVEC(1) = ZVEC(1) / ZL ZVEC(2) = ZVEC(2) / ZL ZVEC(3) = ZVEC(3) / ZL C C T T C COMPUTE YVEC * YVEC AND ZVEC * ZVEC C CALL GMMATD (YVEC,3,1,0, YVEC,3,1,1, YYT) CALL GMMATD (ZVEC,3,1,0, ZVEC,3,1,1, ZZT) C C ADD THESE TWO MATRICES AND STORE IN YYT C DO 60 I = 1,9 60 YYT(I) = YYT(I) + ZZT(I) C C T C COMPUTE T (YYT) IF POINT A IS NOT IN BASIC COORDINATES C A C IAYPNT = 1 IF (IECPT(KA) .EQ. 0) GO TO 70 IAYPNT = 10 CALL GMMATD (TA,3,3,1, YYT,3,3,0, YYT(10)) C C T C COMPUTE T (YYT) T AND STORE IN YYT(1) C A A C CALL GMMATD (YYT(10),3,3,0, TA,3,3,0, YYT(1)) C C ZERO OUT KE MATRIX C 70 DO 80 I = 1,36 80 KE(I) = 0.0D0 K = 1 J = 2 C C FILL UP THE 6 X 6 KE C 90 KE( 1) = FX * YYT(K ) KE( 2) = FX * YYT(K+1) KE( 3) = FX * YYT(K+2) KE( 7) = FX * YYT(K+3) KE( 8) = FX * YYT(K+4) KE( 9) = FX * YYT(K+5) KE(13) = FX * YYT(K+6) KE(14) = FX * YYT(K+7) KE(15) = FX * YYT(K+8) KE(22) = GX * YYT(K ) KE(23) = GX * YYT(K+1) KE(24) = GX * YYT(K+2) KE(28) = GX * YYT(K+3) KE(29) = GX * YYT(K+4) KE(30) = GX * YYT(K+5) KE(34) = GX * YYT(K+6) KE(35) = GX * YYT(K+7) KE(36) = GX * YYT(K+8) CALL DS1B (KE,IECPT(J)) IF (J .EQ. 3) RETURN IF (IECPT(KB) .EQ. 0) GO TO 100 IBYPNT = 1 IF (IAYPNT .EQ. 1) IBYPNT = 10 CALL GMMATD (YYT(IAYPNT),3,3,0, TB,3,3,0, YYT(IBYPNT)) K = IBYPNT GO TO 110 100 K = IAYPNT 110 J = 3 FX = -FX GX = -GX GO TO 90 120 CALL MESAGE(30,26,IECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN END ================================================ FILE: mis/drwchr.f ================================================ SUBROUTINE DRWCHR (X,Y,XYD,CHR,NN,OPT) C C (X,Y) = STARTING OR ENDING POINT OF THE LINE TO BE TYPED (ALWAYS C LEFT-TO-RIGHT OR TOP-TO-BOTTOM) C XYD = (+/-)1 IF X = STARTING OR ENDING POINT OF THE LINE C = (+/-)2 IF Y = STARTING OR ENDING POINT OF THE LINE C CHR = CHARACTERS TO BE DRAWN C NN = NUMBER OF CHARACTERS C OPT = -1 TO INITIATE THE TYPING MODE C = +1 TO TERMINATE THE TYPING MODE C = 0 TO TYPE A LINE C CSCALE = SCALE FOR CHARACTER SIZE (REAL) C INTEGER XYD,CHR(1),OPT,CHRIND,XYCHR,D REAL SAVE(2,2),XY(2,2),XYC(2,2),CSCALE COMMON /PLTDAT/ SKPLT(2),REG(2,2),XYMAX(2),EDGE(11),CSCALE, 1 SKPA(3),CNTCHR(2) COMMON /CHRDRW/ LSTIND,CHRIND(60),XYCHR(2,1) DATA LSTCHR/ 48 / C IF (OPT .EQ. 0) GO TO 100 CALL LINE (0,0,0,0,0,OPT) GO TO 200 C 100 N = NN IF (N .LE. 0) N = 1 D = MAX0(IABS(XYD),1) S = CNTCHR(D) IF (XYD.EQ.-1 .OR. XYD.EQ.2) S = -S XYC(1,1) = 3.0*CSCALE XYC(2,1) = 3.0*CSCALE XY(1,1) = X - XYC(1,1) XY(2,1) = Y - XYC(2,1) XY(1,2) = XY(1,1) XY(2,2) = XY(2,1) DO 110 I = 1,2 SAVE(I,1)= REG(I,1) REG(I,1) = AMAX1(-EDGE(I),REG(I,1)-XYC(I,1)) SAVE(I,2)= REG(I,2) REG(I,2) = AMIN1(XYMAX(I)+EDGE(I),REG(I,2)+XYC(I,1)) 110 CONTINUE C C TYPE THE LINE. C DO 125 J = 1,N XY(D,2) = XY(D,1) + S*FLOAT(J-1) C C MAKE SURE EACH CHARACTER IS A VALID CHARACTER. C I = J IF (XYD .LT. 0) I = N - J + 1 K = CHR(I) IF (NN.NE.0 .AND. K.GE.LSTCHR) GO TO 125 IF (K .GT. LSTIND) GO TO 125 C C DRAW THE CHARACTER. C 120 N1 = CHRIND(K) IF (N1 .GT. 0) GO TO 121 K = -N1 GO TO 120 121 N2 = CHRIND(K+1) IF (N2 .GT. 0) GO TO 122 K = K + 1 GO TO 121 C 122 N2 = N2 - 1 DO 124 L = N1,N2 DO 123 I = 1,2 XYC(I,1) = XYC(I,2) XYC(I,2) = XY(I,2) + CSCALE*FLOAT(IABS(XYCHR(I,L))) 123 CONTINUE IF (L.EQ.N1 .OR. XYCHR(1,L).LT.0 .OR. XYCHR(2,L).LT.0) GO TO 124 CALL LINE (XYC(1,1),XYC(2,1),XYC(1,2),XYC(2,2),1,0) 124 CONTINUE 125 CONTINUE C DO 190 I = 1,2 REG(I,1) = SAVE(I,1) REG(I,2) = SAVE(I,2) 190 CONTINUE C 200 RETURN END ================================================ FILE: mis/ds1.f ================================================ SUBROUTINE DS1 (IARG) C C THIS ROUTINE CREATES THE SCRATCH FILE ECPTDS BY APPENDING TO EACH C ELEMENT IN THE ECPT AN ELEMENT DEFORMATION, AN AVERAGE ELEMENT C LOADING TEMPERATURE, AND THE PROPER COMPONENTS OF THE DISPLACEMENT C VECTORS. SUBROUTINE DS1A READS THE ECPTDS IN THE SAME WAY AS SMA1A C READS THE ECPT IN ORDER TO CREATE A SECOND ORDER APPROXIMATION TO C THE KGG, WHICH IS CALLED KGGD. C IF DS1 CANNOT FIND ANY ELEMENTS IN THE ECPT WHICH ARE IN THE SET C OF ELEMENTS FOR WHICH DIFFERENTIAL STIFFNESS IS DEFINED, IARG IS C RETURNED CONTAINING A ZERO TO THE CALLING ROUTINE, DSMG1. C EXTERNAL RSHIFT LOGICAL DSTYPE,EORFLG,ENDID,RECORD INTEGER BUFFR1,BUFFR2,EOR,CLSRW,OUTRW,CASECC,GPTT,EDT, 1 UGV,ECPT,ECPTDS,FILE,TSETNO,DSETNO,TMPSET, 2 RECNO,EDTLOC,EDTBUF,ELTYPE,ELID,BUFLOC,DFMSET, 3 RSHIFT,JSIL(2),OLDEL,CCBUF,OLDEID,BUFFR3 DIMENSION TGRID(33),IZ(1),XECPT(328),IECPT(328),CCBUF(2), 1 GPTBF3(3),NAME(2),EDTBUF(3),EDTLOC(2),MCBUGV(7) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /MACHIN/ MACH,IHALF COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1) COMMON /SYSTEM/ ISYS,SYSDUM(25),MN,XXX18(18),NDUM(9) COMMON /ZZZZZZ/ Z(1) COMMON /UNPAKX/ ITYPEB,IUNPK,JUNPK,INCUPK COMMON /DS1ETT/ ELTYPE,OLDEL,EORFLG,ENDID,BUFFLG,TSETNO,FDFALT, 1 IBACK,RECORD,OLDEID COMMON /BLANK / DSCSET EQUIVALENCE (Z(1),IZ(1)) ,(XECPT(1),IECPT(1)), 1 (GPTBF3(1),TMPSET) ,(GPTBF3(2),IDFALT) , 2 (GPTBF3(3),RECNO) ,(EDTBUF(1),DFMSET) , 3 (EDTBUF(2),ELID) ,(EDTBUF(3),DEFORM) , 4 (IOUTPT,SYSDUM(1)) DATA EDTLOC/104,1 /, NSKIP/ 137 / DATA CASECC,GPTT,EDT,UGV,ECPT,ECPTDS / 1 101, 102, 104,105,108, 301 / DATA NAME /4HDS1 ,4H / DATA INRW,OUTRW,EOR,NEOR,CLSRW/ 0,1,1,0,1 / C C SET IARG TO ZERO C CALL DELSET IARG = 0 C C DETERMINE SIZE OF AVAILABLE CORE, DEFINE 2 BUFFERS AND INITIALIZE C OPEN CORE POINTERS AND COUNTERS. C IZMAX = KORSZ(Z) BUFFR1 = IZMAX - ISYS BUFFR2 = BUFFR1 - ISYS BUFFR3 = BUFFR2 - ISYS BUFLOC = IZMAX - ISYS - 3 ILEFT = BUFFR3 - 1 LEFT = ILEFT - NELEMS - 2 ISIL = 0 NSIL = 0 IEDT = 0 NEDT = 0 C C SET DIFFERENTIAL STIFFNESS FLAGS FOR ALL ELEMENT TYPES TO ZERO C DO 10 I = 1,NELEMS IZ(LEFT+I) = 0 10 CONTINUE C C OPEN CASECC, SKIP HEADER, SKIP 5 WORDS AND READ DEFORMATION SET C NUMBER AND LOADING TEMPERATURE SET NUMBER. C CALL GOPEN (CASECC,Z(BUFFR1),INRW) CALL FREAD (CASECC,0,-5,NEOR) CALL FREAD (CASECC,CCBUF,2,NEOR) DSETNO = CCBUF(1) TSETNO = CCBUF(2) C C STORE THE DIFFERENTIAL STIFFNESS COEFFICIENT (BETA) SET NUMBER C IN COMMON. THIS WORD IS THE 138TH WORD OF THE 2ND RECORD OF CASE C CONTROL. C FILE = CASECC CALL FWDREC (*400,CASECC) CALL FREAD (CASECC,0,-NSKIP,NEOR) CALL FREAD (CASECC,DSCSET,1,NEOR) CALL CLOSE (CASECC,CLSRW) C C IS THERE A TEMPERATURE LOAD C RECORD =.FALSE. IBACK = 0 IF (TSETNO .LE. 0) GO TO 60 C C THERE IS. OPEN THE GPTT, SKIP FIRST TWO WORDS OF THE HEADER RECORD C AND READ 3 WORD ENTRIES OF THE HEADER RECORD UNTIL A SET NUMBER C MATCHES THE SET NUMBER READ IN THE CASE CONTROL RECORD. C FILE = GPTT CALL OPEN (*400,GPTT,Z(BUFFR3),INRW) CALL FREAD (GPTT,0,-2,NEOR) 20 CALL FREAD (GPTT,GPTBF3,3,NEOR) IF (TMPSET .EQ. TSETNO) GO TO 30 GO TO 20 30 FDFALT = GPTBF3(2) IF (RECNO .NE. 0) GO TO 40 IF (IDFALT .EQ. -1) CALL MESAGE (-30,29,TSETNO) CALL CLOSE (GPTT,CLSRW) GO TO 60 C C POSITION GPTT TO DESIRED TEMPERATURE RECORD C 40 CALL REWIND (GPTT) DO 50 I = 1,RECNO CALL FWDREC (*410,GPTT) 50 CONTINUE RECORD =.TRUE. C C READ SETID AND VERIFY FOR CORRECTNESS C CALL FREAD (GPTT,IDSET,1,0) IF (TSETNO .NE. IDSET) CALL MESAGE (-30,29,TSETNO) C C INITIALIZE /DS1ETT/ VARIABLES C OLDEID = 0 OLDEL = 0 EORFLG =.FALSE. ENDID =.TRUE. C C DETERMINE IF AN ENFORCED DEFORMATION SET IS CALLED FOR. C 60 IEDT = ISIL I = ISIL IF (DSETNO .LE. 0) GO TO 90 FILE = EDT CALL PRELOC (*90,Z(BUFLOC),EDT) CALL LOCATE (*450,Z(BUFLOC),EDTLOC,IFLAG) 70 CALL READ (*410,*80,EDT,EDTBUF,3,NEOR,IFLAG) IF (DFMSET .NE. DSETNO) GO TO 70 IZ(I+1) = ELID Z (I+2) = DEFORM NEDT = NEDT + 2 I = I + 2 LEFT = LEFT - 2 IF (LEFT .LE. 0) CALL MESAGE (-8,0,NAME) GO TO 70 80 CALL CLOSE (EDT,CLSRW) LOW = IEDT + 1 LIM = IEDT + NEDT C C READ THE UGV INTO CORE. C 90 CALL GOPEN (UGV,Z(BUFFR1),INRW) IDISP = IEDT + NEDT MCBUGV(1) = UGV CALL RDTRL (MCBUGV(1)) IF (LEFT .LT. MCBUGV(3)) CALL MESAGE (-8,0,NAME(1)) ITYPEB = 1 IUNPK = 1 JUNPK = MCBUGV(3) INCUPK = 1 CALL UNPACK (*460,UGV,Z(IDISP+1)) CALL CLOSE (UGV,CLSRW) C C OPEN THE ECPTDS AND ECPT FILES. C CALL GOPEN (ECPTDS,Z(BUFFR2),OUTRW) CALL GOPEN (ECPT,Z(BUFFR1),INRW) C C READ THE PIVOT POINT (1ST WORD). C 100 FILE = ECPT IMHERE = 100 ELTYPE = -1 J = -1 CALL READ (*390,*430,ECPT,NPVT,1,NEOR,IFLAG) IND = 0 110 DSTYPE =.FALSE. C C READ ELEMENT TYPE (2ND WORD) C CALL READ (*410,*370,ECPT,ELTYPE,1,NEOR,IFLAG) IF (ELTYPE.LT.1 .OR. ELTYPE.GT.NELEMS) GO TO 480 C C READ ELEMENT ID (3RD WORD, BEGINNING OF J NO. OF WORDS) C IMHERE = 115 CALL READ (*410,*430,ECPT,IECPT,1,NEOR,IFLAG) IF (IBACK .EQ. 0) GO TO 120 IF (ELTYPE.EQ.OLDEL .AND. IECPT(1).GE.OLDEID) GO TO 130 CALL BCKREC (GPTT) C C RESET /DS1ETT/ VARIABLES C IBACK = 0 OLDEID = 0 OLDEL = 0 EORFLG =.FALSE. ENDID =.TRUE. CALL READ (*410,*420,GPTT,IDSET,1,0,FLAG) IF (TSETNO .NE. IDSET) CALL MESAGE (-30,29,TSETNO) C 120 IDX = (ELTYPE-1)*INCR NTEMP = 1 C IS2D8 IHEX1 IHEX3 IF (ELTYPE.EQ.80 .OR. (ELTYPE.GE.65 .AND. ELTYPE.LE.67)) 1 NTEMP = NE(IDX+15) - 1 C C READ ECPT ENTRY FOR THIS ELEMENT (J-1 WORDS) C 130 J = NE(IDX+12) IF (NE(IDX+24) .NE. 0) DSTYPE = .TRUE. IMHERE = 130 CALL READ (*410,*430,ECPT,XECPT(2),J-1,NEOR,IFLAG) C C IS THIS ELEMENT IN THE SET OF DS ELEMENTS. C IF (DSTYPE) GO TO 150 IF (IZ(LEFT+ELTYPE) .EQ. 1) GO TO 110 IZ(LEFT+ELTYPE) = 1 CALL PAGE2 (-2) WRITE (IOUTPT,140) UWM,NE(IDX+1),NE(IDX+2),ELTYPE 140 FORMAT (A25,' 3117, DIFFERENTIAL STIFFNESS CAPABILITY NOT DEFINED' 1, ' FOR ',2A4,' ELEMENTS (ELEMENT TYPE ',I3,2H).) GO TO 110 150 IARG = 1 C C DETERMINE IF THE ELEMENT IS A CONE. IF IT IS, IT MUST HAVE A C NONZERO MEMBRANE THICKNESS FOR IT TO BE ADMISSIBLE TO THE ECPTDS. C IF (ELTYPE .NE. 35) GO TO 170 C CONEAX NTEMP = 2 IF (XECPT(5) .EQ. 0.0) GO TO 110 C C DETERMINE THE NUMBER OF RINGAX POINTS FROM THE 27TH WORD OF C /SYSTEM/. C NRNGAX = RSHIFT(MN,IHALF) C C DETERMINE THE HARMONIC NUMBER, IHARM, FROM THE ELEMENT IDENT. C NUMBER, IECPT(1) C ITEMP = IECPT(1)/1000 IHARM = IECPT(1) - ITEMP*1000 - 1 C C DETERMINE THE SIL NUMBERS, SIL(1) AND SIL(2), WHICH WILL BE USED C TO APPEND TEMPERATURES AND DISPLACEMENT VECTORS. C IF (IHARM .NE. 0) GO TO 160 JSIL(1) = IECPT(2) JSIL(2) = IECPT(3) GO TO 180 160 ITEMP = 6*IHARM*NRNGAX JSIL(1) = IECPT(2) - ITEMP JSIL(2) = IECPT(3) - ITEMP GO TO 180 C C IF WE ARE DEALING WITH A TRIA1 OR QUAD1 ELEMENT, IT MUST HAVE A C NONZERO MEMBRANE THICKNESS FOR IT TO BE ADMISSIBLE TO THE ECPTDS. C 170 IF (ELTYPE.NE.6 .AND. ELTYPE.NE.19) GO TO 180 C TRIA1 QUAD1 KK = 7 IF (ELTYPE .EQ. 19) KK = 8 C QUAD1 IF (XECPT(KK) .EQ. 0.0) GO TO 110 C C WRITE PIVOT POINT C 180 IF (IND .EQ. 0) CALL WRITE (ECPTDS,NPVT,1,NEOR) IND = 1 IF (ELTYPE .NE. 34) GO TO 200 C BAR C C THE ELEMENT IS A BAR. THE ECPT ENTRY WILL BE REARRANGED SO THAT C THE DBAR SUBROUTINE MAY BE CALLED IN SUBROUTINE DS1A. C ELTYPE = 2 C BEAM C C IF THE COUPLED MOMENT OF INERTIA TERM I12 (=ECPT(33)) IS NON-ZERO C SET I12 = 0.0, WRITE WARNING MESSAGE AND PROCEED. C IF (XECPT(33) .EQ. 0.0) GO TO 190 XECPT(33) = 0.0 CALL MESAGE (30,111,IECPT(1)) 190 XECPT(47) = XECPT(42) XECPT(46) = XECPT(41) XECPT(45) = XECPT(40) XECPT(44) = XECPT(39) XECPT(43) = XECPT(38) XECPT(42) = XECPT(37) XECPT(41) = XECPT(36) XECPT(40) = XECPT(35) XECPT(39) = XECPT(34) XECPT(29) = XECPT(31) XECPT(30) = XECPT(32) XECPT(28) = XECPT(21) XECPT(27) = XECPT(20) XECPT(25) = XECPT(19) XECPT(24) = XECPT(18) XECPT(21) = XECPT(17) XECPT(20) = XECPT(16) J = 47 C C WRITE ELEMENT TYPE C 200 CALL WRITE (ECPTDS,ELTYPE,1,NEOR) C C ATTACH THE ELEMENT DEFORMATION TO THE XECPT ARRAY. C J = J + 1 NOGPTS = NE(IDX+10) XECPT(J) = 0.0 IF (DSETNO .GT. 0) GO TO 210 GO TO 230 C C SEARCH THE EDT TO FIND AN ELEMENT NO. IN THE TABLE CORRESPONDING C TO THE CURRENT ELEMENT NO., IECPT(1). IF IT CANNOT BE FOUND NOTE C THE ELEMENT DEFORMATION, IECPT(J), HAS BEEN SET TO ZERO. C 210 DO 220 I = LOW,LIM,2 IF (IZ(I) .NE. IECPT(1)) GO TO 220 XECPT(J) = Z(I+1) GO TO 230 220 CONTINUE C C APPEND THE LOADING TEMPERATURE(S) TO THE XECPT ARRAY C 230 IF (ELTYPE .EQ. 2) ELTYPE = 34 C BEAM BAR CALL DS1ETD (IECPT(1),TGRID,NTEMP) IF (ELTYPE .NE. 34) GO TO 240 C BAR ELTYPE = 2 IF (TSETNO .LE. 0) GO TO 240 TGRID(1) = (TGRID(1) + TGRID(2))*0.5 240 III = 1 IF (ELTYPE .NE. 80) GO TO 250 C IS2D8 J = J + 1 IECPT(J) = TSETNO III = 2 250 CONTINUE DO 260 I = III,NTEMP J = J + 1 XECPT(J) = TGRID(I) 260 CONTINUE C C NOW ATTACH THE DISPLACEMENT VECTORS C J = J + 1 IF (ELTYPE .EQ. 35) GO TO 330 C CONEAX IF (ELTYPE.EQ. 2 .OR. ELTYPE.EQ.75) GO TO 290 C BEAM TRSHL IF (ELTYPE.LT.53 .OR. ELTYPE.GT.61) GO TO 280 C DUM1 DUM9 C C C DUMMY ELEMENTS C IF (MOD(NDUM(ELTYPE-52),10) .EQ. 6) GO TO 290 280 NWDS = 3 GO TO 300 290 NWDS = 6 300 DO 320 I = 1,NOGPTS INDEX = IDISP + IECPT(I+1) DO 310 I1 = 1,NWDS XECPT(J) = Z(INDEX) INDEX = INDEX + 1 310 J = J + 1 320 CONTINUE GO TO 360 C C APPEND THE ZERO HARMONIC COMPONENTS OF THE DISPLACEMENT VECTOR. C NOTE THAT FOR A CONICAL SHELL ELEMENT DIRECT POINTERS INTO THE C DISPLACEMENT VECTOR ARE SIL(1) AND SIL(2). C 330 DO 350 J1 = 1,2 DO 340 I = 1,6 INDEX = IDISP + JSIL(J1) + I - 1 XECPT(J) = Z(INDEX) 340 J = J + 1 350 CONTINUE C C THE APPENDED ECPT, ECPTDS, IS NOW COMPLETE. C 360 CALL WRITE (ECPTDS,XECPT,J-1,NEOR) GO TO 110 C C IF IND = 0, THEN NO ELEMENTS IN THE CURRENT ECPT RECORD ARE IN THE C DS ELEMENT SET. WRITE A -1 FOR THIS PIVOT POINT. C 370 IF (IND .NE. 0) GO TO 380 CALL WRITE (ECPTDS,-1,1,EOR) GO TO 100 C C WRITE AN EOR ON THE ECPTDS FILE C 380 CALL WRITE (ECPTDS,0,0,EOR) GO TO 100 C C CLOSE BOTH FILES C 390 CALL CLOSE (ECPT,CLSRW) CALL CLOSE (GPTT,CLSRW) CALL CLOSE (ECPTDS,CLSRW) RETURN C C FATAL ERROR RETURNS C 400 J = -1 GO TO 470 410 J = -2 GO TO 470 420 FILE = GPTT 430 J = -3 IF (FILE .EQ. ECPT) WRITE (IOUTPT,440) IMHERE,ELTYPE,J 440 FORMAT (/,'0*** DS1/IMHERE,ELTYPE,J = ',3I5) GO TO 470 450 J = -4 GO TO 470 460 CALL MESAGE (-30,83,NAME(1)) 470 CALL MESAGE (J,FILE,NAME) 480 WRITE (IOUTPT,490) SFM,ELTYPE 490 FORMAT (A25,' 2147, ILLEGAL ELEMENT TYPE =',I10, 1 ' ENCOUNTERED BY DSMG1 MODULE.') CALL MESAGE (-61,0,NAME) RETURN END ================================================ FILE: mis/ds1a.f ================================================ SUBROUTINE DS1A C C THIS ROUTINE GENERATES THE MATRIX KGGD WHICH IS THE SECOND ORDER C APPROXIMATION TO THE STIFFNESS MATRIX KGG. C INTEGER EOR,CLSRW,OUTRW,FROWIC,CSTM,DIT,ECPTDS,GPCT, 1 BUFFR1,BUFFR2,BUFFR3,FILE,BAR,BEAM,ITYPI(20) DOUBLE PRECISION DZ(1),DPWORD,DDDDDD DIMENSION NDUM(9),IZ(1),INPVT(2),NAME(2),MCBKGG(7) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / ICOM COMMON /SYSTEM/ KSYSTM(100) COMMON /ZZZZZZ/ Z(1) COMMON /DS1ADP/ DDDDDD(300) COMMON /DS1AET/ ECPT(112) COMMON /DS1AAA/ NPVT,ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT, 1 I6X6K,N6X6K,CSTM,MPT,DIT,ECPTDS,GPCT,KGGD, 2 INRW,OUTRW,EOR,NEOR,CLSRW,JMAX,FROWIC,LROWIC, 3 NROWSC,NLINKS,LINK(10),NOGO COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1) COMMON /ZBLPKX/ DPWORD,DUM(2),INDEX COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ EQUIVALENCE (KSYSTM( 1), ISYS), (KSYSTM( 2),IOUTPT), 1 (KSYSTM(46),NDUM(1)), (KSYSTM(55), IPREC) EQUIVALENCE (Z(1),IZ(1),DZ(1)) DATA NAME / 4HDS1A,4H /, BAR,BEAM / 4HBAR ,4HBEAM / C C DEFINE VARIABLES IN COMMON /DS1AAA/ C CSTM = 106 MPT = 107 DIT = 110 ECPTDS= 301 GPCT = 109 KGGD = 201 INRW = 0 OUTRW = 1 EOR = 1 NEOR = 0 CLSRW = 1 NLINKS= 10 NOGO = 0 IITYP = 0 J = 26 NE(J) = BAR CALL SSWTCH (38,L38) C C DETERMINE SIZE OF VARIABLE CORE, AND SET UP BUFFERS C IPR = IPREC CALL DELSET IZMAX = KORSZ(Z) BUFFR1 = IZMAX - ISYS BUFFR2 = BUFFR1 - ISYS BUFFR3 = BUFFR2 - ISYS LEFTT = BUFFR3 - 1 C C READ THE CSTM INTO CORE C IFILE = CSTM NCSTM = 0 ICSTM = 0 CALL OPEN (*2,CSTM,Z(BUFFR1),INRW) CALL FWDREC (*9020,CSTM) CALL READ (*9030,*1,CSTM,Z(ICSTM+1),LEFTT,EOR,NCSTM) CALL MESAGE (-8,0,NAME) 1 LEFTT = LEFTT - NCSTM C C PRETRD SETS UP SUBSEQUENT CALLS TO TRANSD. C CALL PRETRS (Z(ICSTM+1),NCSTM) CALL PRETRD (Z(ICSTM+1),NCSTM) CALL CLOSE (CSTM,CLSRW) 2 IMAT1 = NCSTM C C CALL PREMAT TO READ MPT AND DIT INTO CORE. C CALL PREMAT (Z(IMAT1+1),Z(IMAT1+1),Z(BUFFR1),LEFTT,MATCR,MPT,DIT) LEFTT = LEFTT - MATCR IGPCT = NCSTM + MATCR C C OPEN KGGD, ECPTDS AND GPCT C CALL GOPEN (KGGD,Z(BUFFR1),OUTRW) CALL MAKMCB (MCBKGG,KGGD,0,6,IPR) CALL GOPEN (ECPTDS,Z(BUFFR2),INRW) CALL GOPEN (GPCT,Z(BUFFR3),INRW) C C READ THE FIRST TWO WORDS OF NEXT GPCT RECORD INTO INPVT(1). C INPVT(1) IS THE PIVOT POINT. INPVT(1) .GT. 0 IMPLIES THE PIVOT C POINT IS A GRID POINT. INPVT(1) .LT. 0 IMPLIES THE PIVOT POINT IS C A SCALAR POINT. INPVT(2) IS THE NUMBER OF WORDS IN THE REMAINDER C OF THIS RECORD OF THE GPCT. C 10 FILE = GPCT CALL READ (*1000,*700,GPCT,INPVT(1),2,NEOR,IFLAG) NGPCT = INPVT(2) CALL FREAD (GPCT,IZ(IGPCT+1),NGPCT,EOR) IF (INPVT(1) .LT. 0) GO TO 700 C C FROWIC IS THE FIRST ROW IN CORE. (1 .LE. FROWIC .LE. 6) C FROWIC = 1 C C DECREMENT THE AMOUNT OF CORE REMAINING. C LEFT = LEFTT - 2*NGPCT IF (LEFT .LE. 0) CALL MESAGE (-8,0,NAME) IPOINT = IGPCT + NGPCT NPOINT = NGPCT I6X6K = IPOINT + NPOINT I6X6K = (I6X6K - 1)/2 + 2 C C CONSTRUCT THE POINTER TABLE, WHICH WILL ENABLE SUBROUTINE DS1B TO C INSERT THE 6 X 6 MATRICES INTO KGGD. C IZ(IPOINT+1) = 1 I1 = 1 I = IGPCT J = IPOINT + 1 30 I1 = I1 + 1 IF (I1 .GT. NGPCT) GO TO 40 I = I + 1 J = J + 1 INC= 6 IF (IZ(I) .LT. 0) INC = 1 IZ(J) = IZ(J-1) + INC GO TO 30 C C JMAX = NO. OF COLUMNS OF KGGD THAT WILL BE GENERATED WITH THE C CURRENT GRID POINT. C 40 INC = 5 ILAST = IGPCT + NGPCT JLAST = IPOINT + NPOINT IF (IZ(ILAST) .LT. 0) INC = 0 JMAX = IZ(JLAST) + INC C C IF 2*6*JMAX .LT. LEFT THERE ARE NO SPILL LOGIC PROBLEMS FOR C KGGD SINCE THE WHOLE DOUBLE PRECISION SUBMATRIX OF ORDER 6 X JMAX C CAN FIT IN CORE. C ITEMP = 6*JMAX IF (2*ITEMP .LT. LEFT) GO TO 80 NAME(2) = INPVT(1) CALL MESAGE (30,85,NAME) NROWSC = 3 70 IF (2*NROWSC*JMAX .LT. LEFT) GO TO 90 NROWSC = NROWSC - 1 IF (NROWSC .EQ. 0) CALL MESAGE (-8,0,NAME) GO TO 70 80 NROWSC = 6 C C LROWIC IS THE LAST ROW IN CORE. (1 .LE. LROWIC .LE. 6) C 90 LROWIC = FROWIC + NROWSC - 1 C C ZERO OUT THE KGGD SUBMATRIX IN CORE. C 100 LOW = I6X6K + 1 LIM = I6X6K + JMAX*NROWSC DO 115 I = LOW,LIM 115 DZ(I) = 0.0D0 C C INITIALIZE THE LINK VECTOR TO -1. C DO 140 I = 1,NLINKS 140 LINK(I) = -1 C C TURN FIRST PASS INDICATOR ON. C 150 IFIRST = 1 C C READ THE 1ST WORD OF THE ECPT RECORD, THE PIVOT POINT, INTO NPVT. C IF NPVT .LT. 0, THE REMAINDER OF THE ECPT RECORD IS NULL SO THAT C 1 OR 6 NULL COLUMNS MUST BE GENERATED C FILE = ECPTDS CALL FREAD (ECPTDS,NPVT,1,NEOR) IF (NPVT .LT. 0) GO TO 700 C C READ THE NEXT ELEMENT TYPE INTO THE CELL ITYPE. C 160 CALL READ (*9020,*500,ECPTDS,ITYPE,1,NEOR,IFLAG) C C READ THE ECPT ENTRY FOR THE CURRENT TYPE INTO THE ECPT ARRAY. THE C NUMBER OF WORDS TO BE READ WILL BE NWORDS(ITYPE). C IP = IPREC IF (IP .NE. 1) IP = 0 JTYP = 2*ITYPE - IP NFREE = 3 IF (ITYPE.EQ.2 .OR. ITYPE.EQ.35. OR. ITYPE.EQ.75) NFREE = 6 C BEAM CONEAX TRSHL IF (ITYPE.GE.53 .AND. ITYPE.LE.61) NFREE = MOD(NDUM(ITYPE-52),10) C DUM1 DUM9 IDX = (ITYPE-1)*INCR NWORDS = NE(IDX+12) + 2 + NFREE*NE(IDX+10) IF (ITYPE.GE.65 .AND. ITYPE.LE.67) NWORDS = NWORDS + NE(IDX+10) -1 C IHEX1 IHEX3 IF (ITYPE .EQ. 80) NWORDS = NWORDS + NE(IDX+10) C IS2D8 IF (ITYPE .EQ. 35) NWORDS = NWORDS + 1 C CONEAX IF (NE(IDX+12) .LE. 0) CALL MESAGE (-61,0,NAME) CALL FREAD (ECPTDS,ECPT,NWORDS,NEOR) ITEMP = NE(IDX+24) C C IF THIS IS THE 1ST ELEMENT READ ON THE CURRENT PASS OF THE ECPT C CHECK TO SEE IF THIS ELEMENT IS IN A LINK THAT HAS ALREADY BEEN C PROCESSED. C IF (IFIRST .EQ. 1) GO TO 170 C C THIS IS NOT THE FIRST PASS. IF ITYPE(TH) ELEMENT ROUTINE IS IN C CORE, PROCESS IT. C IF (ITEMP .EQ. LINCOR) GO TO 171 C C THE ITYPE(TH) ELEMENT ROUTINE IS NOT IN CORE. IF THIS ELEMENT C ROUTINE IS IN A LINK THAT ALREADY HAS BEEN PROCESSED READ THE NEXT C ELEMENT. C IF (LINK(ITEMP) .EQ. 1) GO TO 160 C C SET A TO BE PROCESSED LATER FLAG FOR THE LINK IN WHICH THE ELEMENT C RESIDES C LINK(ITEMP) = 0 GO TO 160 C C SINCE THIS IS THE FIRST ELEMENT TYPE TO BE PROCESSED ON THIS PASS C OF THE ECPT RECORD, A CHECK MUST BE MADE TO SEE IF THIS ELEMENT C IS IN A LINK THAT HAS ALREADY BEEN PROCESSED. IF IT IS SUCH AN C ELEMENT, WE KEEP IFIRST = 1 AND READ THE NEXT ELEMENT. C 170 IF (LINK(ITEMP) .EQ. 1) GO TO 160 C C SET THE CURRENT LINK IN CORE = ITEMP AND IFIRST = 0 C LINCOR = ITEMP IFIRST = 0 C C CALL THE PROPER ELEMENT ROUTINE. C 171 IF (ITYPE.LE.0 .OR. ITYPE.GT.NELEMS) CALL MESAGE (-7,0,NAME) C C IF DIAG 38 IS ON, ECHO TYPE OF ELEMENT BEING PROCESSED C IF (L38 .EQ. 0) GO TO 180 IF (IITYP .EQ. 0) GO TO 175 DO 173 II = 1,IITYP IF (ITYPE .EQ. ITYPI(II)) GO TO 180 173 CONTINUE IF (IITYP .GE. 20) GO TO 180 175 IITYP = IITYP + 1 ITYPI(IITYP) = ITYPE WRITE (IOUTPT,177) NE(IDX+1),NE(IDX+2),ITYPE 177 FORMAT ('0*** DS1 MODULE PROCESSING ',2A4,' ELEMENTS (ELEM.TYPE', 1 I4,1H)) C 180 LOCAL = JTYP - 100 IF (LOCAL) 181,181,182 181 GO TO ( C C 1-CROD 2-CBEAM 3-CTUBE 4-CSHEAR 5-CTWIST O 210, 210, 220, 220, 230, 230, 240, 240, 9040, 9040, C C 6-CTRIA1 7-CTRBSC 8-CTRPLT 9-CTRMEM 10-CONROD 1 260, 260, 9040, 9040, 9040, 9040, 250, 250, 210, 210, C C 11-CELAS1 12-CELAS2 13-CELAS3 14-CELAS4 15-CQDPLT 2 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, C C 16-CQDMEM 17-CTRIA2 18-CQUAD2 19-CQUAD1 20-CDAMP1 3 280, 280, 270, 270, 300, 300, 290, 290, 9040, 9040, C C 21-CDAMP2 22-CDAMP3 23-CDAMP4 24-CVISC 25-CMASS1 4 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, C C 26-CMASS2 27-CMASS3 28-CMASS4 29-CONM1 30-CONM2 5 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, C C 31-PLOTEL 32-X 33-X 34-CBAR 35-CCONEAX 6 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 370, 370, C C 36-CTRIARG 37-CTRAPRG 38-CTORDRG 39-CTETRA 40-CWEDGE 7 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, C C 41-CHEXA1 42-CHEXA2 43-CFLUID2 44-CFLUID3 45-CFLUID4 8 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, C C 46-CFLMASS 47-CAXIF2 48-CAXIF3 49-CAXIF4 50-CSLOT3 9 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040 C X ), JTYP C 182 GO TO ( C C 51-CSLOT4 52-CHBDY 53-CDUM1 54-CDUM2 55-CDUM3 X 9040, 9040, 9040, 9040, 321, 321, 322, 322, 323, 323, C C 56-CDUM4 57-CDUM5 58-CDUM6 59-CDUM7 60-CDUM8 A 324, 324, 325, 325, 326, 326, 327, 327, 328, 328, C C 61-CDUM9 62-CQDMEM1 63-CQDMEM2 64-CQUAD4 65-CIHEX1 B 329, 329, 9040, 9040, 9040, 9040, 305, 305, 310, 310, C C 66-CIHEX2 67-CIHEX3 68-CQUADTS 69-CTRIATS 70-CTRIAAX C 310, 310, 310, 310, 311, 311, 312, 312, 9040, 9040, C C 71-CTRAPAX 72-CAERO1 73-CTRIM6 74-CTRPLT1 75-CTRSHL D 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 313, 314, C C 76-CFHEX1 77-CFHEX2 78-CFTETRA 79-CFWEDGE 80-CIS2D8 E 9040, 9040, 9040, 9040, 9040, 9040, 9040, 9040, 315, 315, C C 81-CELBOW 82-FTUBE 83-CTRIA3 84-CPSE2 85-CPSE3 F 9040, 9040, 9040, 9040, 275, 275, 380, 380, 385, 385, C C 86-CPSE4 G 390, 390 C X ), LOCAL C C ROD C 210 CALL DROD GO TO 160 C C BAR C 220 CALL DBAR GO TO 160 C C TUBE C 230 TEMP = ECPT(5) - ECPT(6) A = TEMP*ECPT(6)*PI FJ = .25*A*(TEMP**2 + ECPT(6)**2) C = .5*ECPT(5) M = 26 DO 235 I = 1,18 M = M - 1 235 ECPT(M) = ECPT(M-1) GO TO 210 C C SHEAR C 240 CALL DSHEAR GO TO 160 C C TRMEM C 250 CALL DTRMEM (0) GO TO 160 C C TRIA1 C 260 CALL DTRIA (1) GO TO 160 C C TRIA2 C 270 CALL DTRIA (2) GO TO 160 C C TRIA3 C 275 CALL DTRIA (3) GO TO 160 C C QDMEM C 280 CALL DQDMEM GO TO 160 C C QUAD1 C 290 CALL DQUAD (1) GO TO 160 C C QUAD2 C 300 CALL DQUAD (2) GO TO 160 C C QUAD4 C 305 CALL DQUAD (4) GO TO 160 C C IHEX1,IHEX2,IHEX3 C 310 CALL DIHEX (ITYPE-64) GO TO 160 C C QUADTS C 311 CONTINUE GO TO 160 C C TRIATS C 312 CONTINUE GO TO 160 313 CALL DTSHLS GO TO 160 314 CALL DTSHLD GO TO 160 315 CALL DIS2D8 GO TO 160 C C DUMMY ELEMENTS C 321 CALL DDUM1 GO TO 160 322 CALL DDUM2 GO TO 160 323 CALL DDUM3 GO TO 160 324 CALL DDUM4 GO TO 160 325 CALL DDUM5 GO TO 160 326 CALL DDUM6 GO TO 160 327 CALL DDUM7 GO TO 160 328 CALL DDUM8 GO TO 160 329 CALL DDUM9 GO TO 160 C C CONE C 370 CALL DCONE GO TO 160 C C PRESSURE STIFFNESS ELEMENTS C 380 CALL DPSE2 GO TO 160 385 CALL DPSE3 GO TO 160 390 CALL DPSE4 GO TO 160 C C AT STATEMENT NO. 500 WE HAVE HIT AN EOR ON THE ECPT FILE. SEARCH C THE LINK VECTOR TO DETERMINE IF THERE ARE LINKS TO BE PROCESSED. C 500 LINK(LINCOR) = 1 DO 510 I = 1,NLINKS IF (LINK(I) .EQ. 0) GO TO 520 510 CONTINUE GO TO 525 C C SINCE AT LEAST ONE LINK HAS NOT BEEN PROCESSED THE ECPT FILE MUST C BE BACKSPACED. C 520 CALL BCKREC (ECPTDS) GO TO 150 C C CHECK NOGO FLAG. IF NOGO=1, SKIP BLDPK AND PROCESS ANOTHER RECORD C FROM THE GPCT TABLE C 525 IF (NOGO .EQ. 1) GO TO 10 C C AT THIS POINT BLDPK THE NUMBER OF ROWS IN CORE UNTO THE KGG FILE. C IFILE = KGGD I1 = 0 540 I2 = 0 IBEG = I6X6K + I1*JMAX CALL BLDPK (2,IPR,IFILE,0,0) 550 I2 = I2 + 1 IF (I2 .GT. NGPCT) GO TO 570 JJ = IGPCT + I2 INDEX = IABS(IZ(JJ)) - 1 LIM = 6 IF (IZ(JJ) .LT. 0) LIM = 1 JJJ = IPOINT + I2 KKK = IBEG + IZ(JJJ) - 1 I3 = 0 560 I3 = I3 + 1 IF (I3 .GT. LIM) GO TO 550 INDEX = INDEX + 1 KKK = KKK + 1 DPWORD = DZ(KKK) IF (DPWORD .NE. 0.0D0) CALL ZBLPKI GO TO 560 570 CALL BLDPKN (IFILE,0,MCBKGG) I1 = I1 + 1 IF (I1 .LT. NROWSC) GO TO 540 C C TEST TO SEE IF THE LAST ROW IN CORE, LROWIC, = THE TOTAL NO. OF C ROWS TO BE COMPUTED = 6. IF IT IS, WE ARE DONE. IF NOT, THE C ECPTDS MUST BE BACKSPACED. C IF (LROWIC .EQ. 6) GO TO 10 CALL BCKREC (ECPTDS) FROWIC = FROWIC + NROWSC LROWIC = LROWIC + NROWSC GO TO 100 700 IF (NOGO .EQ. 1) GO TO 10 C C HERE WE HAVE A PIVOT POINT WITH NO ELEMENTS CONNECTED, SO THAT C NULL COLUMNS MUST BE OUTPUT ON THE KGGD FILE. C FILE = ECPTDS LIM = 6 IF (INPVT(1) .LT. 0) LIM = 1 DO 710 I = 1,LIM CALL BLDPK (2,IPR,KGGD,0,0) 710 CALL BLDPKN (KGGD,0,MCBKGG) CALL FWDREC (*9020,ECPTDS) GO TO 10 C C CHECK NOGO FLAG. IF NOGO=1, TERMINATE EXECUTION C 1000 IF (NOGO .EQ. 1) CALL MESAGE (-61,0,0) C C WRAP UP BEFORE RETURN C CALL CLOSE (ECPTDS,CLSRW) CALL CLOSE (GPCT,CLSRW) CALL CLOSE (KGGD,CLSRW) MCBKGG(3) = MCBKGG(2) IF (MCBKGG(6) .EQ. 0) GO TO 9050 CALL WRTTRL (MCBKGG) J = 26 NE(J) = BEAM RETURN C C ERROR RETURNS C 9020 CALL MESAGE (-2,FILE,NAME) 9030 CALL MESAGE (-3,FILE,NAME) 9040 CALL MESAGE (-7,FILE,NAME) 9050 WRITE (IOUTPT,9060) UFM 9060 FORMAT (A23,' 2402, NULL DIFFERENTIAL STIFFNESS MATRIX ', 1 'GENERATED IN SUBROUTINE DS1A.') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/ds1b.f ================================================ SUBROUTINE DS1B (KE,J) C C THIS ROUTINE ADDS THE 6 X 6 DOUBLE PRECISION MATRIX KE TO THE C SUBMATRIX OF ORDER NROWSC X JMAX. C INTEGER CSTM ,MPT ,DIT ,ECPTDS,OUTRW ,EOR , 1 CLSRW ,FROWIC,IZ(1) DOUBLE PRECISION DZ(1) ,KE(36) COMMON /ZZZZZZ/ Z(1) COMMON /DS1AAA/ NPVT ,ICSTM ,NCSTM ,IGPCT ,NGPCT ,IPOINT, 1 NPOINT,I6X6K ,N6X6K ,CSTM ,MPT ,DIT , 2 ECPTDS,GPCT ,KGGD ,INRW ,OUTRW ,EOR , 3 NEOR ,CLSRW ,JMAX ,FROWIC,LROWIC,NROWSC, 4 NLINKS,LINK(10) ,NOGO EQUIVALENCE (DZ(1),Z(1),IZ(1)) C C SEARCH THE GPCT AND FIND AN INDEX M SUCH THAT C IABS(GPCT(M)) .LE. J .LT. IABS(GPCT(M+1)) C LOW = IGPCT + 1 LIM = NGPCT + LOW - 2 IF (LOW .GT. LIM) GO TO 15 DO 10 I = LOW,LIM ISAVE = I IF (J .GE. IABS(IZ(I+1))) GO TO 10 IF (J .GE. IABS(IZ(I ))) GO TO 20 10 CONTINUE IF (J .GE. IABS(IZ(ISAVE+1))) ISAVE = ISAVE + 1 GO TO 20 15 ISAVE = LOW C C ADD KE TO THE SUBMATRIX C 20 L1 = FROWIC - 1 JJ = IPOINT + ISAVE - IGPCT J2 = IZ(JJ) - 1 I1 = 0 LIM = NROWSC - 1 30 IF (I1 .GT. LIM) RETURN K1 = I6X6K + I1*JMAX + J2 J1 = 0 L = 6*L1 K = K1 40 J1 = J1 + 1 IF (J1 .GT. 6) GO TO 50 K = K + 1 L = L + 1 DZ(K) = DZ(K) + KE(L) GO TO 40 50 I1 = I1 + 1 L1 = L1 + 1 GO TO 30 END ================================================ FILE: mis/ds1etd.f ================================================ SUBROUTINE DS1ETD (ELID,TI,GRIDS) C C THIS ROUTINE (CALLED BY -DS1-) READS ELEMENT TEMPERATURE C DATA FROM A PRE-POSITIONED RECORD C C ELID = ID OF ELEMENT FOR WHICH DATA IS DESIRED C TI = BUFFER DATA IS TO BE RETURNED IN C GRIDS = 0 IF EL-TEMP FORMAT DATA IS TO BE RETURNED C = NO. OF GRID POINTS IF GRID POINT DATA IS TO BE RETURNED. C ELTYPE = ELEMENT TYPE TO WHICH -ELID- BELONGS C OLDEL = ELEMENT TYPE CURRENTLY BEING WORKED ON (INITIALLY 0) C OLDEID = ELEMENT ID FROM LAST CALL C EORFLG =.TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED IN RECORD C ENDID =.TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED WITHIN AN ELEMENT C TYPE. C BUFFLG = NOT USED C ITEMP = TEMPERATURE LOAD SET ID C IDEFT = NOT USED C IDEFM = NOT USED C RECORD =.TRUE. IF A RECORD OF DATA IS INITIALLY AVAILABLE C DEFALT = THE DEFALT TEMPERATURE VALUE OR -1 IF IT DOES NOT EXIST C AVRAGE = THE AVERAGE ELEMENT TEMPERATURE C LOGICAL EORFLG ,ENDID ,BUFFLG ,RECORD INTEGER TI(2) ,OLDEID ,GRIDS ,ELID ,ELTYPE , 1 OLDEL ,NAME(2) ,GPTT ,DEFALT CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ DUM ,IOUT COMMON /DS1ETT/ ELTYPE ,OLDEL ,EORFLG ,ENDID ,BUFFLG , 1 ITEMP ,DEFALT ,IBACK ,RECORD ,OLDEID DATA NAME / 4HDS1E,4HTD /, MAXWDS / 33 /, GPTT / 102 / C IF (OLDEID .EQ. ELID) RETURN OLDEID = ELID C IF (ITEMP .GT. 0) GO TO 20 DO 10 I = 1,MAXWDS 10 TI(I) =-1 RETURN C 20 IF (.NOT.RECORD .OR. EORFLG) GO TO 50 15 IF (ELTYPE .NE. OLDEL) GO TO 30 IF (ENDID) GO TO 50 C C HERE WHEN ELTYPE IS AT HAND AND END OF THIS TYPE DATA C HAS NOT YET BEEN REACHED. READ AN ELEMENT ID C 35 CALL READ (*5002,*5001,GPTT,ID,1,0,FLAG) IF (ID) 40,50,40 40 IF (IABS(ID) .EQ. ELID) IF (ID) 51,51,70 IF (ID) 35,35,45 45 CALL READ (*5002,*5001,GPTT,TI,NWORDS,0,FLAG) GO TO 35 C C MATCH ON ELEMNT ID MADE AND IT WAS WITH DATA C 70 CALL READ (*5002,*5001,GPTT,TI,NWORDS,0,FLAG) RETURN C C NO MORE DATA FOR THIS ELEMENT TYPE C 50 ENDID = .TRUE. C C NO DATA FOR ELEMENT ID DESIRED, THUS USE DEFALT C 51 IF (DEFALT .EQ. -1) GO TO 100 IF (GRIDS .GT. 0) GO TO 75 DO 80 I = 2,MAXWDS 80 TI(I) = 0 TI(1) = DEFALT IF (ELTYPE .EQ. 34) TI(2) = DEFALT RETURN C 75 DO 76 I = 1,GRIDS 76 TI(I) = DEFALT TI(GRIDS+1) = DEFALT RETURN C C NO TEMP DATA OR DEFALT C 100 WRITE (IOUT,301) UFM,ELID,ITEMP 301 FORMAT (A23,' 4016, THERE IS NO TEMPERATURE DATA FOR ELEMENT',I9, 1 ' IN SET',I9) CALL MESAGE (-61,0,0) C C LOOK FOR MATCH ON ELTYPE (FIRST SKIP ANY UNUSED ELEMENT DATA) C 30 IF (ENDID) GO TO 32 31 CALL READ (*5002,*5001,GPTT,ID,1,0,FLAG) IF (ID) 31,32,33 33 CALL READ (*5002,*5001,GPTT,TI,NWORDS,0,FLAG) GO TO 31 C C READ ELTYPE AND COUNT C 32 CALL READ (*5002,*300,GPTT,TI,2,0,FLAG) OLDEL = TI(1) NWORDS = TI(2) ENDID = .FALSE. IBACK = 1 GO TO 15 C C END OF RECORD HIT C 300 EORFLG = .TRUE. GO TO 50 5002 CALL MESAGE (-2,GPTT,NAME) 5001 CALL MESAGE (-3,GPTT,NAME) RETURN END ================================================ FILE: mis/dschk.f ================================================ SUBROUTINE DSCHK C C MODULE TO PERFORM DIFFERENTIAL STIFFNESS CONVERGENCE TESTS C C DSCHK PGI,PGIP1,UGIP1//EPSIO,DSEPSI,NT,TOUT,TIN,DONE,SHIFT, C COUNT,BETA C C EPSIO ACCEPTABLE RATIO OF ENERGY ERROR TO TOTAL ERROR(R) INPUT C DSEPSI EPSI(SUB I -1) (REAL) IN/OUT C NT TOTAL NUMBER OF ITERATIONS ALLOWED INPUT C TOUT START TIME FOR OUTER LOOP INPUT C TIN START TIME FOR INNER LOOP INPUT C DONE EXIT FLAG FOR SKIP TO SDR2 OUTPUT C SHIFT EXIT FLAG FOR SHIFT IN/OUT C COUNT CURRENT STEP NUMBER IN/OUT C BETA SHIFT DECISION FACTOR (REAL) INPUT C C EXIT FLAG VALUES (IEXIT) LOCAL C 0 NOT SET C 1 CONVERGED C 2 DIVERGED C 3 INSUFFICIENT TIME C 4 ITERATION LIMIT C 5 ZERO EPSIO C 6 ZERO EPSI C INTEGER PGI,PGIP1,UGIP1,TOUT,TIN,DONE,SHIFT,COUNT,IZ(1), 1 SYSBUF,SCR1,SCR2,SCR3,FILE,TNOW,TI,TO,TLEFT,BETA CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /SYSTEM/ SYSBUF,NOUT,KSYSTM(52),IPREC COMMON /UNPAKX/ ITA,II,JJ,INCR COMMON /BLANK / EPSIO,DSEPSI,NT,TOUT,TIN,DONE,SHIFT,COUNT,BETA COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (COUNT,NI), (Z(1),IZ(1)) DATA PGI , PGIP1,UGIP1,SCR1,SCR2,SCR3 / 1 101 , 102, 103, 301, 302, 303 / C C INITIALIZE C IBUF1 = KORSZ(IZ) - SYSBUF + 1 IEXIT = 0 IFRST = SHIFT SHIFT = 1 NF = 1 CALL KLOCK (TNOW) TI = TNOW - TIN CALL TMTOGO (TLEFT) TO = TNOW - TLEFT C C COMPUTE DSEPSI(I) C CALL SSG2B (UGIP1,PGI ,0 ,SCR1,1,IPREC,1,SCR3) CALL SSG2B (UGIP1,PGIP1,SCR1,SCR2,1,IPREC,2,SCR3) C II = 1 JJ = 1 INCR = 1 ITA = 1 FILE = SCR2 ASSIGN 10 TO IRETN GO TO 300 C C GET DENOMINATOR C 10 EPSI = VALUE FILE = SCR1 ASSIGN 20 TO IRETN GO TO 300 20 IF (VALUE .EQ. 0.0) GO TO 40 EPSI = ABS(EPSI/VALUE) COUNT = COUNT + 1 IF (IFRST .EQ. -1) GO TO 30 IF (EPSI .EQ. 0.0) GO TO 210 XLAMA = ABS(DSEPSI/EPSI) IF (XLAMA .LE. 1.0) GO TO 60 30 DSEPSI = EPSI IF (EPSI .GT. EPSIO) GO TO 50 C C CONVERGED C 40 IEXIT = 1 DONE =-1 GO TO 220 C C MAKE FIRST TEST C 50 IF (IFRST .EQ. -1) GO TO 80 C C NOT FIRST TIME C IF (EPSIO .LE. 0.0) GO TO 200 NF = ALOG(EPSI/EPSIO)/ALOG(XLAMA) CALL KLOCK (TNOW) CALL TMTOGO (TLEFT) TI = TNOW - TIN TO = TNOW - TOUT GO TO 70 C C DIVERGED C 60 IEXIT = 2 DONE =-1 DSEPSI = EPSI GO TO 220 C C CONVERGENT C 70 IF (NF .GT. NT-NI) GO TO 90 IF (TI*NF .GT. TO+BETA*TI) GO TO 100 80 IF (TLEFT .GE. 3*TI) GO TO 120 C C INSUFFICIENT TIME C IEXIT = 3 DONE =-1 GO TO 220 90 IF (NT-NI-BETA) 80,100,100 C C SET SHIFT FLAG C 100 SHIFT =-1 IF (TLEFT .LT. TO+BETA*TI) GO TO 80 C C WRAP UP FOR SHIFT C DONE = NF IEXIT = 0 GO TO 220 C C USER LIMIT ITERATION NUMBER EXPIRED C 110 CONTINUE IEXIT = 4 DONE =-1 GO TO 220 C C WRAP UP FOR NO SHIFT C 120 CONTINUE IF (NI .GE. NT) GO TO 110 SHIFT = 1 DONE = NF GO TO 220 C C PARAMETER ERROR, EPSIO HAS NO VALUE C 200 IEXIT = 5 GO TO 220 C C AFTER SSG2B, EPSI IS ZERO DUE TO THE FIRST VAULE FROM SCR2 IS ZERO C WHILE VALUE FROM SCR1 IS NOT ZERO C 210 IEXIT = 6 C C EXIT FROM MODULE C 220 CALL PAGE2 (-9) WRITE (NOUT,230) UIM,IEXIT,COUNT,DONE,SHIFT,DSEPSI 230 FORMAT (A29,' 7019, MODULE DSCHK IS EXITING FOR REASON',I4, /5X, 1 'ON ITERATION NUMBER',I7,1H., 2 /5X,'PARAMETER VALUES ARE AS FOLLOWS',/10X,'DONE =',I10, 3 /10X,'SHIFT =',I10, /10X,'DSEPSI =',1P,E14.7) IF (IEXIT .GE. 5) WRITE (NOUT,240) EPSIO,EPSI 240 FORMAT ( 10X,'EPSIO =',1P,E10.3, /10X,'EPSI =',1P,E10.3) RETURN C C INTERNAL ROUTINE TO OBTAIN VALUE FROM MATRIX C 300 CALL GOPEN (FILE,IZ(IBUF1),0) CALL UNPACK (*310,FILE,VALUE) GO TO 320 310 VALUE = 0.0 320 CALL CLOSE (FILE,1) GO TO IRETN, (10,20) END ================================================ FILE: mis/dshear.f ================================================ SUBROUTINE DSHEAR C C THIS COMPUTES THE THE TWO 6X6 DIFFERENTIAL STIFFNESS MATRICES C K(NPVT,NPVT) AND K(NPVT,J) WHERE J = 3,4,1,2 IF NPVT = 1,2,3,4 C RESPECTIVELY. C C ECPT FOR BOTH PANELS C C ECPT( 1) - IELID ELEMENT ID. NO. C ECPT( 2) - ISILNO(4) SCALAR INDEX NUMBERS C ECPT( 3) - ... ... C ECPT( 4) - ... ... C ECPT( 5) - ... ... C ECPT( 6) - MATID MATERIAL ID. C ECPT( 7) - T THICKNESS C ECPT( 8) - FMU NON-STRUCTURAL MASS C ECPT( 9) - ICSID1 COOR. SYS. ID. FOR GRID POINT 1 C ECPT(10) - GP1(3) BASIC COORDINATES FOR GRID POINT 1 C ECPT(11) - ... ... C ECPT(12) - ... ... C ECPT(13) - ICSID2 COOR. SYS. ID. FOR GRID POINT 2 C ECPT(14) - GP2(3) BASIC COORDINATES FOR GRID POINT 2 C ECPT(15) - ... ... C ECPT(16) - ... ... C ECPT(17) - ICSID3 COOR. SYS. ID. FOR GRID POINT 3 C ECPT(18) - GP3(3) BASIC COORDINATES FOR GRID POINT 3 C ECPT(19) - ... ... C ECPT(20) - ... ... C ECPT(21) - ICSID4 COOR. SYS. ID. FOR GRID POINT 4 C ECPT(22) - GP4(3) BASIC COORDINATES FOR GRID POINT 4 C ECPT(23) - ... ... C ECPT(24) - ... ... C ECPT(25) - TEMPEL ELEMENT TEMPERATURE C ECPT(26) - DEFORM ELEMENT DEFORMATION (NOT USED) C ECPT(27) - AVGLTP AVG.ELEM LOADING TEMPERATURE, NOT USED C ECPT(28) - U1(3) TRANSLATION DISPLACEMENTS AT PT. 1 C ECPT(29) - ... ... C ECPT(30) - ... ... C ECPT(31) - U2(3) TRANSLATION DISPLACEMENTS AT PT. 2 C ECPT(32) - ... ... C ECPT(33) - ... ... C ECPT(34) - U3(3) TRANSLATION DISPLACEMENTS AT PT. 3 C ECPT(35) - ... ... C ECPT(36) - ... ... C ECPT(37) - U4(3) TRANSLATION DISPLACEMENTS AT PT. 4 C ECPT(38) - ... ... C ECPT(39) - ... ... C REAL NUSP DOUBLE PRECISION KE(36),TI(9),VLEFT(6),VD1,VD2,VKN,VK,V12,V41, 1 VP12,VI,VJ,AVEC,SMALLU,SMALLV,P,X1,X2,X3,X4, 2 Y1,Y2,Y3,Y4,VKL,PA,V12DK,CEP1,CEP2,EP,TEMP DOUBLE PRECISION YP,XP,SA,XQ,B,XL,A,A2,A3,A4,A5,B2,B3,B4,B5,C,C2, 1 C3,C4,C5,D,D2,D3,D4,D5,TERM1,TERM2,TERM3,TERM4, 2 TERM5,XL13,XL24 DOUBLE PRECISION VP12L,VJL,Z,TERM,F,E,G,NU,T,C23,NUC DOUBLE PRECISION UI(3),DPTERM,SUM,F13,F24,FXX,JJ(3),J3X3(9), 1 K3X3(9) DIMENSION VD1(3),VD2(3),VKN(3),VK(3),V12(3),V41(3),VP12(3), 1 VI(3),VJ(3),AVEC(4),SMALLU(4),SMALLV(4),P(4), 2 IECPT(100),ECPT(100),IZ(1) COMMON /ZZZZZZ/ ZZ(1) COMMON /DS1AAA/ NPVT,ICSTM,NCSTM,DUMCL(32),NOGO COMMON /DS1AET/ IELID,ISILNO(4),MATID,TSP,FMU,ICSID1,GP1(3), 1 ICSID2,GP2(3),ICSID3,GP3(3),ICSID4,GP4(3),TEMPEL, 2 DEFORM,AVGLTP,U1(3),U2(3),U3(3),U4(4) COMMON /DS1ADP/ KE,TI,VLEFT,VD1,VD2,VKN,VK,V12,V41,VP12,VI,VJ, 1 AVEC,SMALLU,SMALLV,P,X1,X2,X3,X4,Y1,Y2,Y3,Y4, 2 VKL,PA,V12DK,CEP1,CEP2,EP,TEMP COMMON /DS1ADP/ YP,XP,SA,XQ,B,XL,A,A2,A3,A4,A5,B2,B3,B4,B5,C,C2, 1 C3,C4,C5,D,D2,D3,D4,D5,TERM1,TERM2,TERM3,TERM4, 2 TERM5,XL13,XL24 COMMON /DS1ADP/ VP12L,VJL,Z,TERM,F,E,G,NU,T,C23,NUC COMMON /DS1ADP/ UI,DPTERM,SUM,F13,F24,FXX,JJ,J3X3,K3X3 COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ ESP,GSP,NUSP,RHO,ALPHA,TSUBO,GSUBE,SIGT,SIGC,SIGS EQUIVALENCE (IZ(1),ZZ(1)),(IELID,IECPT(1),ECPT(1)) 1 C C CALL MAT TO GET MATERIAL PROPERTIES. C MATIDC = MATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) C C STORE ECPT AND MPT VARIABLES IN DOUBLE PRECISION LOCATIONS C E = ESP G = GSP NU = NUSP T = TSP C23 = 2.0D0/3.0D0 NUC = 1.0D0/(1.0D0+NU) C C COMPUTE DIAGONAL VECTORS. C DO 10 I = 1,3 VD1(I) = GP3(I) - GP1(I) 10 VD2(I) = GP4(I) - GP2(I) C C COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE C PROJECTED AREA, PA C VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2) VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3) VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1) VKL = DSQRT(VKN(1)**2 + VKN(2)**2 + VKN(3)**2) IF (VKL .EQ. 0.0D0) GO TO 1010 VK(1) = VKN(1)/VKL VK(2) = VKN(2)/VKL VK(3) = VKN(3)/VKL PA = .5D0*VKL C C COMPUTE SIDES -12- AND -41- C DO 12 I = 1,3 V12(I) = GP2(I) - GP1(I) 12 V41(I) = GP1(I) - GP4(I) C C COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12,VI,VJ C V12DK = V12(1)*VK(1) + V12(2)*VK(2) + V12(3)*VK(3) VP12(1) = V12(1) - V12DK*VK(1) VP12(2) = V12(2) - V12DK*VK(2) VP12(3) = V12(3) - V12DK*VK(3) VP12L = DSQRT(VP12(1)**2 + VP12(2)**2 + VP12(3)**2) IF (VP12L .EQ. 0.0D0) GO TO 1020 VI(1) = VP12(1)/VP12L VI(2) = VP12(2)/VP12L VI(3) = VP12(3)/VP12L VJ(1) = VK(2)*VI(3) - VK(3)*VI(2) VJ(2) = VK(3)*VI(1) - VK(1)*VI(3) VJ(3) = VK(1)*VI(2) - VK(2)*VI(1) C C NORMALIZE J FOR GOOD MEASURE C VJL = DSQRT(VJ(1)**2 + VJ(2)**2 + VJ(3)**2) IF (VJL .EQ. 0.0D0) GO TO 1030 VJ(1) = VJ(1)/VJL VJ(2) = VJ(2)/VJL VJ(3) = VJ(3)/VJL X1 = 0.0D0 Y1 = 0.0D0 X2 = VP12L Y2 = 0.0D0 X3 = VI(1)*VD1(1) + VI(2)*VD1(2) + VI(3)*VD1(3) Y3 = VJ(1)*VD1(1) + VJ(2)*VD1(2) + VJ(3)*VD1(3) X4 =-VI(1)*V41(1) - VI(2)*V41(2) - VI(3)*V41(3) Y4 =-VJ(1)*V41(1) - VJ(2)*V41(2) - VJ(3)*V41(3) C C CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES. C IF NOT, CALL FATAL ERROR MESSAGE. C IF (Y3 .LE. 0.0D0) GO TO 1040 IF (X3 .LE. Y3*X4/Y4) GO TO 1050 IF (Y4 .LE. 0.0D0) GO TO 1060 IF (X4 .GE. X2-(X2-X3)*Y4/Y3) GO TO 1070 C C TEST FOR PARALLEL EFFECTS. C CEP1 = DABS((Y3-Y4)/(X3-X4)) TEMP = X3 - X2 CEP2 = DABS((Y4*TEMP-Y3*X4)/(X4*TEMP+Y4*Y3)) EP = 1.0D-1 IF (CEP1 .LT. EP) GO TO 15 IF (CEP2 .LT. EP) GO TO 30 GO TO 50 15 IF (CEP2 .LT. EP) GO TO 40 C C AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO C THE LINE CONNECTING POINTS 1 AND 2. C TEMP = Y3*X4 - Y4*(X3-X2) YP = X2*Y3*Y4/TEMP P(1) = YP - Y1 P(2) = YP - Y2 P(3) = YP - Y3 P(4) = YP - Y4 XP = X2*Y3*X4/TEMP SA = (X2 - XP)/YP C = (X1 - XP)/YP Z = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.0D0*G*T))* 1 (1.0D0 + C23*NUC*(SA**2 + SA*C + C**2)) GO TO 60 C C AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO C THE LINE CONNECTING POINTS 2 AND 3. C 30 D = -.5D0*(X4/Y4 + (X3-X2)/Y3) XQ = X4 - Y4*(X3-X4)/(Y3-Y4) TEMP = 1.0D0/DSQRT(1.0D0 + D**2) P(1) = (XQ - X1 - D*Y1)*TEMP P(2) = (XQ - X2 - D*Y2)*TEMP P(3) = (XQ - X3 - D*Y3)*TEMP P(4) = (XQ - X4 - D*Y4)*TEMP TEMP = XQ - X4 B = (TEMP*D + Y4)/(TEMP - Y4*D) Z = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.0D0*G*T))* 1 (1.0D0 + C23*NUC*(B**2 + B*D + D**2)) GO TO 60 C C IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM. C 40 DO 45 I = 1,4 45 P(I) = 1.0D0 D = -.5D0*(X4/Y4 + (X3-X2)/Y3 + (Y3-Y4)/(X3-X4)) Z = PA/(2.0D0*G*T)*(1.0D0 + 2.0D0*D**2*NUC) GO TO 60 C C IN THIS CASE NO PARALLEL EFFECTS EXIST. C 50 XQ = X4 - (X3-X4)/(Y3-Y4)*Y4 TEMP = Y3*X4 - Y4*(X3-X2) XP = X2*Y3*X4/TEMP YP = X2*Y3*Y4/TEMP XL = DSQRT((XQ-XP)**2 + YP**2) D = (XQ-XP)/YP TEMP = YP/XL P(1) = TEMP*(XQ - X1 - D*Y1) P(2) = TEMP*(XQ - X2 - D*Y2) P(3) = TEMP*(XQ - X3 - D*Y3) P(4) = TEMP*(XQ - X4 - D*Y4) C = XL/P(1) - D B = XL/P(4) - C A = XL/P(2) - D A2 = A**2 B2 = B**2 C2 = C**2 D2 = D**2 A3 = A2*A B3 = B2*B C3 = C2*C D3 = D2*D A4 = A3*A B4 = B3*B C4 = C3*C D4 = D3*D A5 = A4*A B5 = B4*B C5 = C4*C D5 = D4*D TEMP = .5D0*P(1)*P(2)*P(3)*P(4)/XL**2 TERM = A + B + C23*(A3+B3) + .2D0*(A5+B5) TERM1 = C + D + C23*(C3+D3) + .2D0*(C5+D5) TERM2 = B + C + C23*(B3+C3) + .2D0*(B5+C5) TERM3 = D + A + C23*(D3+A3) + .2D0*(D5+A5) TERM = TERM *DLOG(DABS(A+B)) TERM1 = TERM1*DLOG(DABS(C+D)) TERM2 = TERM2*DLOG(DABS(B+C)) TERM3 = TERM3*DLOG(DABS(D+A)) TERM4 = .1D0*((A2-C2)*(B3-D3) + (B2-D2)*(A3-C3)) TERM5 = .2D0*((A -C )*(B4-D4) + (B -D )*(A4-C4)) F = TEMP*(TERM + TERM1 - TERM2 - TERM3 + TERM4 - TERM5) Z = P(1)*P(2)/(P(3)*P(4)*2.0D0*G*T)*(PA+4.0D0*NUC*(F-C23*PA)) 60 XL13 = DSQRT(X3**2 + Y3**2) XL24 = DSQRT((X4-X2)**2 + Y4**2) SMALLU(1) = X3/XL13 SMALLU(2) = (X4-X2)/XL24 SMALLU(3) = SMALLU(1) SMALLU(4) = SMALLU(2) SMALLV(1) = Y3/XL13 SMALLV(2) = Y4/XL24 SMALLV(3) = SMALLV(1) SMALLV(4) = SMALLV(2) TEMP = X4*Y3 - X3*Y4 AVEC(1) =-.5D0*X2*Y4*XL13/TEMP AVEC(2) = .5D0*X2*Y3*XL24/(TEMP-X2*(Y3-Y4)) AVEC(3) =-AVEC(1) AVEC(4) =-AVEC(2) C C COMPUTE THE SUM GIVEN ON P. 16 OF FMMS-39 C SUM = 0.0D0 DO 80 I = 1,4 IVLBEG = 1 VLEFT(1) = SMALLU(I)*VI(1) + SMALLV(I)*VJ(1) VLEFT(2) = SMALLU(I)*VI(2) + SMALLV(I)*VJ(2) VLEFT(3) = SMALLU(I)*VI(3) + SMALLV(I)*VJ(3) IF (IECPT(4*I+5) .EQ. 0) GO TO 70 CALL TRANSD (IECPT(4*I+5),TI) IVLBEG = 4 CALL GMMATD (VLEFT(1),3,1,1, TI,3,3,0, VLEFT(4)) 70 K = 24 + 3*I UI(1) = ECPT(K+1) UI(2) = ECPT(K+2) UI(3) = ECPT(K+3) CALL GMMATD (VLEFT(IVLBEG),3,1,1, UI,3,1,0, DPTERM) 80 SUM = SUM + AVEC(I)*DPTERM F13 =-AVEC(1)*SUM/(2.0D0*Z) F24 = AVEC(2)*F13/AVEC(1) C C SEARCH LIST OF SIL NOS. IN THE ECPT FOR THE PIVOT POINT. C DO 90 I = 1,4 II = I IF (NPVT .EQ. IECPT(I+1)) GO TO 100 90 CONTINUE CALL MESAGE (-30,34,IECPT(1)) 100 IF (II.EQ.2 .OR. II.EQ.4) GO TO 110 FXX = F13/XL13 I = 1 GO TO 120 110 FXX = F24/XL24 I = 2 120 JJ(1) = -VI(1)*SMALLV(I) + VJ(1)*SMALLU(I) JJ(2) = -VI(2)*SMALLV(I) + VJ(2)*SMALLU(I) JJ(3) = -VI(3)*SMALLV(I) + VJ(3)*SMALLU(I) C C T T C COMPUTE JJ X JJ AND VK X VK C CALL GMMATD (JJ,3,1,0, JJ,3,1,1, J3X3) CALL GMMATD (VK,3,1,0, VK,3,1,1, K3X3) C C SUM THE TWO IN J3X3 C DO 130 J = 1,9 130 J3X3(J) = J3X3(J) + K3X3(J) GO TO (140,150,160,170), II 140 KK = 3 GO TO 180 150 KK = 4 GO TO 180 160 KK = 1 GO TO 180 170 KK = 2 C C ZERO OUT KE C 180 DO 190 I = 1,36 190 KE(I) = 0.0D0 C C D C SET UP THE K MATRIX C II C MPOINT = 1 IF (IECPT(4*II+5) .EQ. 0) GO TO 200 CALL TRANSD (ECPT(4*II+5),TI) MPOINT = 10 CALL GMMATD (TI,3,3,1, J3X3(1),3,3,0, K3X3(1)) CALL GMMATD (K3X3(1),3,3,0, TI,3,3,0, J3X3(1)) 200 K = 1 J = II 210 KE( 1) = FXX*J3X3(K ) KE( 2) = FXX*J3X3(K+1) KE( 3) = FXX*J3X3(K+2) KE( 7) = FXX*J3X3(K+3) KE( 8) = FXX*J3X3(K+4) KE( 9) = FXX*J3X3(K+5) KE(13) = FXX*J3X3(K+6) KE(14) = FXX*J3X3(K+7) KE(15) = FXX*J3X3(K+8) CALL DS1B (KE,IECPT(J+1)) IF (J .EQ. KK) RETURN C C D C SET UP THE K MATRIX C IJ C J = KK IF (IECPT(4*J+5) .EQ. 0) GO TO 220 CALL TRANSD (ECPT(4*J+5),TI) NPOINT = 10 IF (MPOINT .EQ. 10) NPOINT = 1 CALL GMMATD (J3X3(MPOINT),3,3,0, TI,3,3,0, J3X3(NPOINT)) K = NPOINT GO TO 230 220 K = MPOINT 230 FXX = -FXX GO TO 210 C C ERROR RETURNS C 1010 CONTINUE 1020 CONTINUE 1030 CALL MESAGE (30,26,IECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C 1040 IECPT(2) = 2 GO TO 2000 1050 IECPT(2) = 4 GO TO 2000 1060 IECPT(2) = 1 GO TO 2000 1070 IECPT(2) = 3 2000 CALL MESAGE (30,27,IECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN END ================================================ FILE: mis/dsmg1.f ================================================ SUBROUTINE DSMG1 C C THIS ROUTINE IS THE DRIVER FOR THE DIFFERENTIAL STIFFNESS MATRIX C GENERATOR MODULE OF THE NASTRAN SYSTEM. SUBROUTINE DS1 APPENDS C TEMPERATURE, ELEMENT DEFORMATION AND DISPLACEMENT INFORMATION TO C THE ECPT DATA BLOCK AND A SCRATCH FILE, ECPTDS, OF THIS MERGED C INFORMATION IS CREATED. SUBROUTINE DS1A IS STRUCTURED IDENTICALLY C TO SMA1A. IT READS THE ECPTDS FILE AND CREATES A SECOND ORDER C APPROXIMATION TO THE KGG, WHICH IS CALLED KDGG. C C DMAP CALL - C C DSMG1 CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/ C CALL DS1 (IARG) IF (IARG .GT. 0) GO TO 10 C C ECPTDS IS EMPTY. WRITE MESSAGE AND CALL EXIT. C CALL MESAGE (30,81,0) CALL MESAGE (-61,0,0) 10 CALL DS1A RETURN END ================================================ FILE: mis/dsmg2.f ================================================ SUBROUTINE DSMG2 C***** C THIS MODULE PERFORMS THE FOLLOWING MATRIX OPERATIONS... C C KBAA = KAA + BETA * KDAA C KBFS = KFS + BETA * KDFS C KBSS = KSS + BETA * KDSS C PBL = BETA * PL C PBS = BETA * PS C YBS = BETA * YS C UBOOV = BETA * UOOV C C THE VALUE OF BETA LIES IN THE DIFFERENTIAL STIFFNESS COEFFICIENT SET C NO. SPECIFIED BY THE INPUT PARAMETER DSCSET. THE PARTICULAR VALUE OF C BETA TO BE USED ON ANY PASS THROUGH THIS MODULE IS THE NDSKIP(TH) C VALUE IN THE DSCSET SET. IREPTD IS SET EQUAL TO -1 AFTER THE LAST C BETA IN THE SET HAS BEEN ENCOUNTERED, THEREBY TERMINATING THE C DIFFERENTIAL STIFFNESS RIGID FORMAT DMAP LOOP BEGINNING AT THE C LABEL DSLOOP AND ENDING AT THE REPT DSLOOP,100$ STATEMENT. C C C DMAP CALL... C C C DSMG2 MPT,KAA,KDAA,KFS,KDFS,KSS,KDSS,PL,PS,YS,UOOV/KBAA,KBFS, C KBSS,PBL,PBS,YBS,UBOOV/V,N,NDSKIP/V,N,REPEATD/ C V,N,DSCOSET/ $ C***** INTEGER 1 MPT ,SETNO 2, KAA ,KDAA 3, KFS ,KDFS 4, KSS ,KDSS 5, PL ,PS 6, YS ,UOOV 7, KBAA ,KBFS 8, KBSS ,PBL 9, PBS ,YBS T, UBOOV ,SYSBUF 1, BUFFR1 ,BUFFR2 2, FILE1 ,FILE2 3, FILE3 ,CLSRW 4, DSNOS ,DSCSET C C C DIMENSION 1 MCB(7) ,DSNOS(2) 2, NAME(2) ,BLOCK(11) 3, IBLOCK(11) C C C EQUIVALENCE 1 (BLOCK(1),IBLOCK(1)) 2, (BETASP,IBETA) C C MODULE PARAMETERS C COMMON /BLANK/ 1 NDSKIP ,IREPTD 2, DSCSET C C SYSTEM COMMON C COMMON /SYSTEM/ 1 SYSBUF C C C COMMON /ZZZZZZ/ 1 Z(1) C C C DATA 1 NAME(1)/4HDSMG/ ,NAME(2)/4H2 / DATA 1 MPT 2, KAA ,KDAA 3, KFS ,KDFS 4, KSS ,KDSS 5, PL ,PS 6, YS ,UOOV 7, KBAA ,KBFS 8, KBSS ,PBL 9, PBS ,YBS T, UBOOV / 1 101,102,103,104,105,106,107,108,109,110, 2 111,201,202,203,204,205,206,207 / DATA 1 CLSRW/1/ DATA 1 NEOR,DSNOS(1),DSNOS(2) / 0,53,10/ C C C IZMAX = KORSZ (Z) BUFFR1 = IZMAX - SYSBUF BUFFR2 = BUFFR1 - SYSBUF LEFT = BUFFR2 - 1 C C TURN DIFFERENTIAL STIFFNESS LOOPING FLAG ON AND INCREMENT THE INDEX C OF BETA. NOTE THAT NDSKIP MUST BE SET TO ZERO IN THE MODULE C PROPERTIES TABLE. C IREPTD = 1 NDSKIP = NDSKIP + 1 C C CALL LOCATE TO FIND THE RECORD OF THE MPT WHERE THE DSFACT CARDS ARE. C THIS IS DONE ONLY IF A D.S. COEFFICIENT SET NO. IS GIVEN. C IF (DSCSET .NE. (-1)) GO TO 5 C C THERE IS NO LOOPING. TURN LOOPING INDICATOR OFF. C SEE COMMENTS ABOVE FORTRAN STATEMENT NO. 70 RE THE 4 SCALAR MULTIPLI- C CATIONS WHEN DSCSET = -1. C IREPTD = -1 GO TO 165 5 CALL PRELOC(*1030,Z(BUFFR1),MPT) CALL LOCATE(*1035,Z(BUFFR1),DSNOS,IDUMMY) C C C 10 CALL READ(*1040,*1050,MPT,SETNO,1,NEOR,IDUMMY) IF (SETNO .EQ. DSCSET) GO TO 30 C C READ ONE WORD AT A TIME UNTIL A -1 (END OF SET INDICATOR) IS READ. C DO 20 I = 1,32000 CALL READ(*1060,*1070,MPT,J,1,NEOR,IDUMMY) IF (J .EQ. (-1)) GO TO 10 20 CONTINUE CALL MESAGE (-30,84,1) C C TEST TO SEE IF WORDS MUST BE SKIPPED. C 30 IF (NDSKIP .EQ. 1) GO TO 40 C C SKIP NDSKIP - 1 WORDS C CALL READ(*1080,*1090,MPT,0,-(NDSKIP-1),NEOR,IDUMMY) C C READ THE VALUE OF BETA C 40 CALL READ(*1100,*1110,MPT,BETASP,1,NEOR,IDUMMY) IF (IBETA .EQ. (-1)) CALL MESAGE (-30,84,2) C C IF THE NEXT WORD IS A -1, WE HAVE READ THE LAST BETA. HENCE SET C IREPTD = -1 C CALL READ(*1120,*1130,MPT,J,1,NEOR,IFLAG) IF (J .EQ. (-1)) IREPTD = -1 CALL CLOSE (MPT,CLSRW) C C PERFORM THE 4 SCALAR MULTIPLICATIONS. N.B.---IF DSCSET = -1, THAT IS, C ONLY ONE BETA WILL BE USED AND THAT HAS AN ASSUMED VALUE OF 1.0, IT IS C ASSUMED THAT EQUIVALENCES HAVE BEEN MADE BETWEEN PL AND PBL, PS AND C PBS, YS AND YBS, AND UOOV AND UBOOV. C IND = 0 FILE1 = PL FILE2 = PBL 70 MCB(1) = FILE1 CALL RDTRL (MCB) C C A FATAL ERROR OCCURS IF PL IS PURGED. C IF (MCB(1) .LT. 0 .AND. IND .EQ. 0) CALL MESAGE (-1,FILE1,NAME) C C IF THE INPUT FILE IS NOT PURGED AND IS NOT PL, SKIP THE OPERATION. C IF (MCB(1) .LT. 0) GO TO 130 C C THE INPUT FILE IS NOT PURGED. IF THE OUTPUT FILE IS PURGED, A FATAL C ERROR OCCURS. C MCB(1) = FILE2 CALL RDTRL (MCB) IF (MCB(1) .LT. 0) CALL MESAGE (-1,FILE2,NAME) IBLOCK(1) = 1 BLOCK (2) = BETASP BLOCK (3) = 0.0 BLOCK (4) = 0.0 BLOCK (5) = 0.0 BLOCK (6) = 0.0 IBLOCK(7) = 1 BLOCK (8) = 0.0 BLOCK (9) = 0.0 BLOCK(10) = 0.0 BLOCK(11) = 0.0 CALL SSG2C (FILE1,0,FILE2,0,BLOCK(1)) 130 IND = IND + 1 GO TO (140,150,160,170), IND 140 FILE1= PS FILE2 = PBS GO TO 70 150 FILE1 = YS FILE2 = YBS GO TO 70 160 FILE1 = UOOV FILE2 = UBOOV GO TO 70 C C PERFORM MATRIX ADDITIONS C 165 BETASP= 1.0 170 FILE1 = KAA FILE2 = KDAA FILE3 = KBAA IND = 0 180 IUNDEF= 0 MCB(1)= FILE1 CALL RDTRL (MCB(1)) IF (MCB(1) .LT. 0) IF (IND) 190,190,200 GO TO 210 190 CALL MESAGE (-1,FILE1,NAME) 200 IUNDEF = 1 210 MCB(1) = FILE2 CALL RDTRL (MCB(1)) IF (MCB(1) .LT. 0) IF (IUNDEF) 260,260,220 IF (IUNDEF .EQ. 1) CALL MESAGE (-30,84,15) IBLOCK(1) = 1 BLOCK (2) = 1.0 BLOCK (3) = 0.0 BLOCK (4) = 0.0 BLOCK (5) = 0.0 BLOCK (6) = 0.0 IBLOCK(7) = 1 BLOCK (8) = BETASP BLOCK (9) = 0.0 BLOCK(10) = 0.0 BLOCK(11) = 0.0 CALL SSG2C (FILE1,FILE2,FILE3,0,BLOCK(1)) 220 IND = IND + 1 GO TO (230,240,250),IND 230 FILE1 = KFS FILE2 = KDFS FILE3 = KBFS GO TO 180 240 FILE1 = KSS FILE2 = KDSS FILE3 = KBSS GO TO 180 250 RETURN 260 CALL MESAGE (-1,FILE2,NAME ) 1030 I = 3 GO TO 1099 1035 I = 4 GO TO 1099 1040 I = 5 GO TO 1099 1050 I = 6 GO TO 1099 1060 I = 7 GO TO 1099 1070 I = 8 GO TO 1099 1080 I = 9 GO TO 1099 1090 I = 10 GO TO 1099 1100 I = 11 GO TO 1099 1110 I = 12 GO TO 1099 1120 I = 13 GO TO 1099 1130 I = 14 1099 CALL MESAGE (-30,84,I) RETURN END ================================================ FILE: mis/dstroy.f ================================================ SUBROUTINE DSTROY (NAME,ITEST,IMAGE,IMORE,LIM) C C DESTROYS THE SUBSTRUCTURE NAME BY DELETING ITS DIRECTORY FROM THE C MDI AND ITS NAME FROM THE DIT. NO OPERATION WILL TAKE PLACE IF C NAME IS AN IMAGE SUBSTRUCTURE. IF NAME IS A SECONDARY SUBSTRUC- C TURE, IT IS DELETED FROM THE LIST OF SECONDARY SUBSTRUCTURES TO C WHICH IT BELONGS, AND ITS IMAGE CONTRIBUTING TREE IS DESTROYED. C IF NAME IS A PRIMARY SUBSTRUCTURE, ALL ITS SECONDARY SUBSTRUCTURES C ARE ALSO DESTROYED. IN ALL CASES, ALL THE SUBSTRUCTURES DERIVED C FROM THE SUBSTRUCTURE BEING DESTROYED ARE ALSO DESTROYED, AND C CONNECTIONS WITH OTHER SUBSTRUCTURES ARE DELETED. C C THE BLOCKS OCCUPIED BY THE ITEM ARE RETURNED TO THE LIST OF FREE C BLOCKS IF THEY BELONG TO THE SPECIFIED SUBSTRUCTURE C C THE OUTPUT VARIABLE ITEST TAKES ONE OF THE FOLLOWING VALUES. C 1 NORMAL RETURN C 4 IF NAME DOES NOT EXIST C 6 IF NAME IS AN IMAGE SUBSTRUCTURE C EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF LOGICAL DITUP,MDIUP INTEGER BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL, 1 MDI,MDIPBN,MDILBN,MDIBL,BLKSIZ,DIRSIZ,PS,SS,IS, 2 LL,CS,HL,ANDF,ORF,RSHIFT,COMPLF DIMENSION NAME(2),IMAGE(1),IMORE(1),NMSBR(2) COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL, 1 IODUM(8),MDI,MDIPBN,MDILBN,MDIBL, 2 NXTDUM(15),DITUP,MDIUP COMMON /SYS / BLKSIZ,DIRSIZ,SYS(3),IFRST COMMON /ITEMDT/ NITEM,ITEM(7,1) DATA PS,SS, IS,LL,CS,HL / 1,1,1,2,2,2 / DATA IEMPTY/ 4H / DATA INDSBR/ 3 /, NMSBR /4HDSTR,4HOY / C CALL CHKOPN (NMSBR(1)) ITEST = 1 ITOP = 0 IMTOP = 0 CALL FDSUB (NAME(1),INDEX) IF (INDEX .EQ. -1) GO TO 1000 MASKM = COMPLF(LSHIFT(1023,10)) MASKL = COMPLF(LSHIFT(1023,20)) C 1023 = 2**10 - 1 C C SAVE ALL CONNECTIONS WITH OTHER SUBSTRUCTURES. C 10 CALL FMDI (INDEX,IMDI) 20 I = BUF(IMDI+PS) INDPS = ANDF(I,1023) INDSS = RSHIFT(ANDF(I,1048575),10) C 1048575 = 2**20 - 1 INDIS = ANDF(I,1073741824) C 1073741824 = 2**30 I = BUF(IMDI+LL) INDHL = ANDF(I,1023) INDCS = RSHIFT(ANDF(I,1048575),10) INDLL = RSHIFT(ANDF(I,1073741823),20) C 1073741823 = 2**30 - 1 IF (INDIS .GT. 0) GO TO 1010 IF (INDPS .EQ. 0) GO TO 60 ASSIGN 30 TO IRET1 GO TO 300 C C REMOVE INDEX FROM THE LIST OF SUBSTRUCTURES THAT ARE SECONDARY TO C INDPS. C 30 ISAVE = INDPS 40 CALL FMDI (ISAVE,IMDI) ISAVE = RSHIFT(ANDF(BUF(IMDI+SS),1048575),10) IF (ISAVE .EQ. 0) GO TO 50 IF (ISAVE .NE. INDEX) GO TO 40 BUF(IMDI+SS) = ORF(ANDF(BUF(IMDI+SS),MASKM),LSHIFT(INDSS,10)) MDIUP = .TRUE. IF (INDLL .EQ. 0) GO TO 120 ILL = INDLL INDLL = 0 ISAVE = INDEX 50 ASSIGN 120 TO IRET2 GO TO 330 C C PRIMARY SUBSTRUCTURE. C RETURN THE BLOCKS USED BY ALL ITEMS TO THE LIST OF FREE BLOCKS. C 60 DO 70 J = IFRST,DIRSIZ IBL = ANDF(BUF(IMDI+J),65535) C 65535 = 2**16 - 1 IF (IBL.GT.0 .AND. IBL.NE.65535) CALL RETBLK (IBL) 70 CONTINUE IF (INDSS .EQ. 0) GO TO 130 C C THE PRIMARY SUBSTRUCTURE BEING DESTROYED HAS SECONDARY EQUIVALENT C SUBSTRUCTURES. MUST DESTROY ALL OF THEM. C ASSIGN 320 TO IRET1 ASSIGN 90 TO IRET2 ISV = INDSS 80 ISAVE = ISV CALL FMDI (ISAVE,IMDI) ISV = RSHIFT(ANDF(BUF(IMDI+SS),1048575),10) IIS = ANDF(BUF(IMDI+IS),1073741824) IF (IIS .GT. 0) GO TO 110 C C THE SECONDARY SUBSTRUCTURE IS NOT AN IMAGE SUBSTRUCTURE. ADD ITS C INDEX TO THE LIST (IMORE) OF SUBSTRUCTURES TO BE DESTROYED LATER. C ITOP = ITOP + 1 IF (ITOP .GT. LIM) GO TO 1030 IMORE(ITOP) = ISAVE GO TO 300 C C UPDATE THE MDI OF THE SECONDARY SUBSTRUCTURE WITH INDEX ISAVE. C 90 CALL FMDI (ISAVE,IMDI) BUF(IMDI+PS) = 0 BUF(IMDI+LL) = ANDF(BUF(IMDI+LL),MASKL) DO 100 J = IFRST,DIRSIZ BUF(IMDI+J) = 0 100 CONTINUE MDIUP = .TRUE. 110 IF (ISV .NE. 0) GO TO 80 C C BACK TO THE SUBSTRUCTURE WITH INDEX INDEX . C DELETE ITS DIRECTORY FROM THE MDI. C 120 CALL FMDI (INDEX,IMDI) 130 DO 140 J = 1,DIRSIZ BUF(IMDI+J) = 0 140 CONTINUE MDIUP = .TRUE. C C DELETE SUBSTRUCTURE NAME FROM THE DIT. C CALL FDIT (INDEX,JDIT) BUF(JDIT ) = IEMPTY BUF(JDIT+1) = IEMPTY DITUP = .TRUE. IF (INDEX*2 .NE. DITSIZ) GO TO 150 DITSIZ = DITSIZ - 2 150 DITNSB = DITNSB - 1 IF (INDCS .EQ. 0) GO TO 180 C C DELETE LINK THROUGH COMBINED SUBSTRUCTURES, AND REMOVE ITEMS C CREATED AS A RESULTS OF THE COMBINE OR REDUCE. C THESE ITEMS WILL BE RETURNED TO THE LIST OF FREE BLOCKS. C 160 IF (INDCS .EQ. INDEX) GO TO 180 CALL FMDI (INDCS,IMDI) INDCS = RSHIFT(ANDF(BUF(IMDI+CS),1048575),10) 173 BUF(IMDI+HL) = ANDF(BUF(IMDI+HL),COMPLF(1023)) BUF(IMDI+CS) = ANDF(BUF(IMDI+CS),MASKM) DO 176 J = 1,NITEM IF (ITEM(6,J) .EQ. 0) GO TO 176 ITM = J + IFRST - 1 IBL = ANDF(BUF(IMDI+ITM),65535) IF (IBL.GT.0 .AND. IBL.NE.65535) CALL RETBLK (IBL) BUF(IMDI+ITM) = 0 176 CONTINUE MDIUP = .TRUE. IF (INDCS .EQ. 0) GO TO 1020 GO TO 160 180 IF (INDLL .EQ. 0) GO TO 190 C C SUBSTRUCTURE WAS THE RESULT OF COMBINING LOWER LEVEL SUBSTRUCTURES C TOGETHER. UPDATE THE MDI ACCORDINGLY. C CALL FMDI (INDLL,IMDI) INDCS = RSHIFT(ANDF(BUF(IMDI+CS),1048575),10) INDEX = INDLL INDLL = 0 IF (INDCS .EQ. 0) INDCS = INDEX GO TO 173 190 IF (INDHL .EQ. 0) GO TO 220 C C A HIGHER LEVEL SUBSTRUCTURE WAS DERIVED FROM THE ONE BEING C DESTROYED. DESTROY THE HIGHER LEVEL SUBSTRUCTURE. C INDEX = INDHL CALL FMDI (INDEX,IMDI) BUF(IMDI+LL) = ANDF(BUF(IMDI+LL),MASKL) MDIUP = .TRUE. GO TO 20 220 IF (ITOP .EQ. 0) RETURN C C MORE SUBSTRUCTURES TO DESTROY. C INDEX = IMORE(ITOP) ITOP = ITOP - 1 GO TO 10 C C INTERNAL SUBROUTINE. C RETURN TO THE LIST OF FREE BLOCKS THE BLOCKS USED BY A C SECONDARY SUBSTRUCTURE. C THESE BLOCKS INCLUDE THE FOLLOWING ITEMS C C ITEMS COPIED DURING A EQUIV OPERATION C SOLUTION ITEMS C ITEMS PRODUCED BY A COMBINE OR REDUCE OPERATION C 300 DO 310 J = 1,NITEM IF (ITEM(5,J) .EQ. 0) GO TO 310 ITM = J + IFRST - 1 IBL = ANDF(BUF(IMDI+ITM),65535) IF (IBL.GT.0 .AND. IBL.NE.65535) CALL RETBLK (IBL) BUF(IMDI+ITM) = 0 310 CONTINUE GO TO IRET1, (30,320) C C INTERNAL SUBROUTINE. C BUILD A LIST IMAGE OF ALL THE IMAGE SUBSTRUCTURES CONTRIBUTING TO C THE SECONDARY SUBSTRUCTURE WITH INDEX ISAVE, AND DELETE EACH IMAGE C SUBSTRUCTURE FROM THE LIST OF SECONDARY SUBSTRUCTURES TO WHICH IT C BELONGS. C 320 CALL FMDI (ISAVE,IMDI) ILL = RSHIFT(ANDF(BUF(IMDI+LL),1073741823),20) IF (ILL .EQ. 0) GO TO IRET2, (90,120) 330 IMTOP = 1 IMAGE(IMTOP) = ILL ICOUNT = 1 IHERE = IMAGE(ICOUNT) 350 CALL FMDI (IHERE,IMDI) I = BUF(IMDI+PS) IPS = ANDF(I,1023) ISS = RSHIFT(ANDF(I,1048575),10) IIS = ANDF(I,1073741824) I = BUF(IMDI+LL) ILL = RSHIFT(ANDF(I,1073741823),20) ICS = RSHIFT(ANDF(I,1048575),10) IF (IIS .EQ. 0) GO TO 1010 C C DELETE THE SUBSTRUCTURE WITH INDEX IHERE FROM THE MDI AND THE DIT. C RETURN THE BLOCKS USED BY THE IMAGE SUBSTRUCTURE TO THE LIST OF C FREE BLOCKS. THIS INCLUDES THE FOLLOWING ITEMS C C ITEMS COPIED DURING A EQUIV OPERATION C SOLUTION ITEMS C DO 355 J = 1,NITEM IF (ITEM(4,J) .EQ. 0) GO TO 355 ITM = J + IFRST - 1 IBL = ANDF(BUF(IMDI+ITM),65535) IF (IBL.GT.0 .AND. IBL.NE.65535) CALL RETBLK (IBL) BUF(IMDI+ITM) = 0 355 CONTINUE DO 360 J = 1,DIRSIZ BUF(IMDI+J) = 0 360 CONTINUE MDIUP = .TRUE. CALL FDIT (IHERE,IDIT) BUF(IDIT ) = IEMPTY BUF(IDIT+1) = IEMPTY DITUP = .TRUE. IF (IHERE*2 .NE. DITSIZ) GO TO 370 DITSIZ = DITSIZ - 2 370 DITNSB = DITNSB - 1 C C DELETE POINTERS TO IHERE. C ICHECK = IPS 380 CALL FMDI (ICHECK,IMDI) ICHECK = RSHIFT(ANDF(BUF(IMDI+SS),1048575),10) IF (ICHECK .EQ. 0) GO TO 390 IF (ICHECK .NE. IHERE) GO TO 380 BUF(IMDI+SS) = ORF(ANDF(BUF(IMDI+SS),MASKM),LSHIFT(ISS,10)) MDIUP = .TRUE. C C ARE THERE MORE SUBSTRUCTURES TO ADD TO THE LIST IMAGE C 390 IF (ILL .EQ. 0) GO TO 410 DO 400 J = 1,IMTOP IF (IMAGE(J) .EQ. ILL) GO TO 410 400 CONTINUE IMTOP = IMTOP + 1 IMAGE(IMTOP) = ILL 410 IF (ICS .EQ. 0) GO TO 430 DO 420 J = 1,IMTOP IF (IMAGE(J) .EQ. ICS) GO TO 430 420 CONTINUE IMTOP = IMTOP + 1 IF (IMTOP .GT. LIM) GO TO 1030 IMAGE(IMTOP) = ICS C C ARE THERE MORE SUBSTRUCTURES ON THE LIST IMAGE C 430 IF (ICOUNT .EQ. IMTOP) GO TO IRET2, (90,120) ICOUNT = ICOUNT + 1 IHERE = IMAGE(ICOUNT) GO TO 350 C C NAME DOES NOT EXIST. C 1000 ITEST = 4 RETURN C C NAME IS AN IMAGE SUBSTRUCTURE. C 1010 ITEST = 6 RETURN C C ERROR MESSAGES. C 1020 CALL ERRMKN (INDSBR,8) 1030 CALL MESAGE (-8,0,NMSBR) RETURN END ================================================ FILE: mis/dtranp.f ================================================ SUBROUTINE DTRANP C C DRIVER OF MATRIX TRANSPOSE MODULE C C TRNSP IA/IAT/C,N,IXX $ C C THE DIAGONALS OF THE LOWER OR UPPER TRIANGULAR MATRICES ARE C REPLACED BY UNITY (1.0) IF IXX IS ONE. (DEFAULT IS ZERO) C CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / IXX COMMON /SYSTEM/ IBUF,NOUT COMMON /ZZZZZZ/ CORE(1) COMMON /TRNSPX/ IA(7),IAT(7),LCORE,NSCR,ISCR(8) DATA IN1 , IN2 /101, 201 / C IA(1) = IN1 CALL RDTRL (IA(1)) IF (IA(1) .GT. 0) GO TO 20 WRITE (NOUT,10) UWM 10 FORMAT (A25,' FROM TRNSP, MISSING INPUT DATA BLOCK FOR MATRIX ', 1 'TRANSPOSE') GO TO 60 20 IAT(1) = IN2 IAT(2) = IA(3) IAT(3) = IA(2) IAT(4) = IA(4) IAT(5) = IA(5) IAT(6) = 0 IAT(7) = 0 LCORE = KORSZ(CORE) NSCR = 8 DO 30 I = 1,NSCR 30 ISCR(I) = 300 + I IF (IXX .EQ. 1) IXX = -123457890 CALL TRNSP (CORE(1)) CALL WRTTRL (IAT(1)) C 60 RETURN END ================================================ FILE: mis/dtrbsc.f ================================================ SUBROUTINE DTRBSC (IOPT,NPIVOT) C C IOPT = 1 IMPLIES THAT A CLOUGH TRIANGLE IS CALLING C IOPT = 2 IMPLIES THAT A QUADRILATERAL IS CALLING C C ECPT LISTS OF NECESSARY VARIABLES C C POSITION TRIA1 QUAD1 C ======== ===== ===== C ECPT(51) EID EID C ECPT(52) SIL1 SIL1 C ECPT(53) SIL2 SIL2 C ECPT(54) SIL3 SIL3 C ECPT(55) THETA SIL4 C ECPT(56) MATID1 THETA C ECPT(57) T1 MATID1 C ECPT(58) MATID2 T1 C ECPT(59) EYE MATID2 C ECPT(60) MATID3 EYE C ECPT(61) T2 MATID3 C ECPT(62) NSMASS T2 C : C ECT. C DOUBLE PRECISION G,G2X2,AR,EYE,XBAR,YBAR,XCSQ,YCSQ,XBSQ,XCYC,PX2, 1 PY2,PXY2,XBAR3,YBAR3,YBAR2,T2,R,SP,T,U,R2,S2,DI, 2 DUMDP,C,A,D,S,J2X2,DETERM DOUBLE PRECISION XB2,XC2,YC2,XBC,SX,SY,SXY,XSUBB,XSUBC,YSUBC DIMENSION D(9),DI(5,5),J2X2(4),S(18),NECPT(51),A(144) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALPH12, 1 TSUBD,GSUBE,SIGTEN,SIGCON,SIGSHE,G2X211,G2X212, 2 G2X222 COMMON /DS1ADP/ G(9),G2X2(4),AR,EYE,XBAR,YBAR,XCSQ,YCSQ,XBSQ,XCYC 1, PX2,PY2,PXY2,XBAR3,YBAR3,YBAR2,T2,R,SP,T,U,R2,S2, 2 DUMDP(81),C(24,3),SX,SY,SXY,XSUBB,XSUBC,YSUBC COMMON /DS1AET/ ECPT(100) EQUIVALENCE (A(1),D(1),G(1)),(NECPT(1),ECPT(1)), 1 (J2X2(1),DUMDP(1)),(DI(1,1),G(1)) C C////// C CALL BUG (4HTBIG,30,SX,12) C////// C IF NO TRANSVERSE SHEAR FLEXIBILITY EXISTS THE H-INVERSE IS C CALCULATED DIRECTLY. TEST AS FOLLOWS C IF (ECPT(IOPT+60).NE.0.0 .AND. NECPT(IOPT+59).NE.0) GO TO 30 C C THE H-INVERSE MATRIX IS GENERATED IN TWO PARTITIONS C HB IS IN POSITIONS C(7,2) TO C(24,2) C HC IS IN POSITIONS C(7,3) TO C(24,3) C 10 NOHYQ = 1 R = 1.0/XSUBB SP = 1.0/YSUBC T = SP*XSUBC U = R*R*SP*T R2 = R*R S2 = SP**2 C DO 20 I = 1,72 20 C(I,1) = 0.0D0 C C(7 ,2) = 3.0D0*R2 C(9 ,2) = R C(11,2) = R C(13,2) =-C(7,2)*T**2 C(14,2) =-R*T C(15,2) = C(14,2)*T C(16,2) =-2.0D0*R2*R C(18,2) =-R2 C(19,2) =-6.0D0*R*U*(XSUBB-XSUBC) C(20,2) =-R*SP C(21,2) = U*(3.0D0*XSUBC -2.0D0*XSUBB) C(22,2) = R*T*U*(6.0D0*XSUBB - 4.0D0*XSUBC) C(23,2) = R*SP*T C(24,2) = 2.0D0*T*U*(XSUBB - XSUBC) C C(13,3) = 3.0D0*S2 C(14,3) =-SP C(15,3) = SP*T C(21,3) =-S2 C(22,3) =-2.0D0*S2*SP C(23,3) = S2 GO TO 110 C C THE MATERIAL COEFFICIENTS FOR TRANSVERSE SHEAR ARE CALCULATE HERE C AND THE H-INVERSE MATRIX IS GENERATED THE NORMAL WAY C C GET THE G2X2 MATRIX C 30 MATID = NECPT(IOPT+59) INFLAG = 3 CALL MAT (ECPT(51)) IF (G2X211.EQ.0. .AND. G2X212.EQ.0. .AND. G2X222.EQ.0.) GO TO 10 T2 = ECPT(IOPT+60) G2X2(1) = G2X211*T2 G2X2(2) = G2X212*T2 G2X2(3) = G2X212*T2 G2X2(4) = G2X222*T2 C DETERM = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2) J2X2(1) = G2X2(4)/DETERM J2X2(2) =-G2X2(2)/DETERM J2X2(3) =-G2X2(3)/DETERM J2X2(4) = G2X2(1)/DETERM C C SETTING UP G MATRIX C INFLAG = 2 MATID = NECPT(IOPT+57) CALL MAT (NECPT(51)) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT) C EYE = ECPT(IOPT+58) DO 50 I = 1,9 50 D(I) = G(I)*EYE C C (H ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE C YQ RIGHT PORTION IS COMPUTED AND USED AS A (2X3). THE LEFT C 2X3 PORTION IS NULL. THE RIGHT PORTION WILL BE STORED AT C A(73) THRU A(78) UNTIL NOT NEEDED ANY FURTHER. C C C TEMP = 2.0D0*D(2) + 4.0D0*D(9) A(73) =-6.0D0*(J2X2(1)*D(1) + J2X2(2)*D(3)) A(74) =-J2X2(1)*TEMP - 6.0D0*J2X2(2)*D(6) A(75) =-6.0D0*(J2X2(1)*D(6) + J2X2(2)*D(5)) A(76) =-6.0D0*(J2X2(2)*D(1) + J2X2(4)*D(3)) A(77) =-J2X2(2)*TEMP - 6.0D0*J2X2(4)*D(6) A(78) =-6.0D0*(J2X2(2)*D(6) + J2X2(4)*D(5)) C C THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H ) MATRIX (2X3) C YQ C XBAR = (XSUBB + XSUBC)/3.0D0 YBAR = YSUBC/3.0D0 C XCSQ = XSUBC**2 YCSQ = YSUBC**2 XBSQ = XSUBB**2 XCYC = XSUBC*YSUBC PX2 = (XBSQ + XSUBB*XSUBC + XCSQ)/6.0D0 PY2 = YCSQ/6.0D0 PXY2 = YSUBC*(XSUBB + 2.0D0*XSUBC)/12.0D0 XBAR3 = 3.0D0*XBAR YBAR3 = 3.0D0*YBAR YBAR2 = 2.0D0*YBAR C C F1LL (HBAR) MATRIX STORING AT A(37) THRU A(72) C DO 60 I = 37,72 60 A(I) = 0.0D0 C A(37) = XBSQ A(40) = XBSQ*XSUBB A(44) = XSUBB A(49) =-2.0D0*XSUBB A(52) =-3.0D0*XBSQ A(55) = XCSQ A(56) = XCYC A(57) = YCSQ A(58) = XCSQ*XSUBC A(59) = YCSQ*XSUBC A(60) = YCSQ*YSUBC A(62) = XSUBC A(63) = YSUBC*2.0D0 A(65) = XCYC *2.0D0 A(66) = YCSQ *3.0D0 A(67) =-2.0D0*XSUBC A(68) =-YSUBC A(70) =-3.0D0*XCSQ A(71) =-YCSQ C C ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H )(H ) C UY YQ C THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW. C NO (H ) MATRIX IS ACTUALLY COMPUTED DIRECTLY. C UY C C THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17. C DO 70 I = 1,3 A(I+39) = A(I+39) + XSUBB*A(I+72) 70 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75) C C AT THIS POINT INVERT (H) WHICH IS STORED AT A(37) THRU A(72) C STORE INVERSE BACK IN A(37) THRU A(72) C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (6,A(37),6,A(73),0,DETERM,ISING,A(79)) C C CHECK TO SEE IF H WAS SINGULAR C C ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION. IF(ISING .NE. 2) GO TO 90 CALL MESAGE (-30,33,ECPT(1)) RETURN C C PARTITION H-INVERSE AND STORE IN C2 AND C3 LOCATIONS 7 THRU 24 C 90 DO 100 I = 1,6 IH = 6*I -6 IC = 3*I -3 C DO 100 J = 1,3 JH= IH + J + 36 JC= IC + J + 6 C(JC,2) = A(JH) C(JC,3) = A(JH+3) 100 CONTINUE NOHYQ = 0 C C THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO C C THE C1, C2, AND C3 MATRICES ARE GENERATED WITH THE FOLLOWING CODE C FIRST GENERATE THE S MATRICES IN POSITIONS 1 THRU 9 AND 10 THRU 18 C 110 DO 120 I = 1,18 120 S(I) = 0.0 DO 130 I = 1,9,4 S(I ) = 1.0 130 S(I+9) = 1.0 S( 3) =-XSUBB S( 11) = YSUBC S( 12) =-XSUBC C C COMPUTE HA AND STORE IN CA, POSITIONS 7 THRU 24 C C HA = -(HB TIMES SB + HC TIMES SC) C CALL GMMATD (C(7,2),6,3,0, S(1),3,3,0, A(37)) CALL GMMATD (C(7,3),6,3,0, S(10),3,3,0, A(55)) C DO 140 I = 1,18 C 140 C(I+6,1) = -A(I+36) - A(I+54) C C COMPUTE HYQ TIMES HX AND STORE IN CX POSITIONS 1 THRU 6 C (THE FIRST THREE COLUMNS OF HYQ ARE NULL) C IF (NOHYQ .EQ. 1) GO TO 160 C DO 150 I = 1,3 CALL GMMATD (A(73),2,3,0, C(16,I),3,3,0, C(1,I)) 150 CONTINUE C 160 C(3,1) = C(3,1) - 1.0D0 C(5,1) = C(5,1) + 1.0D0 C C THE INTEGRALS FOR THE KDQQ MATRIX ARE GENERATED HERE C YC2 = YSUBC**2 XB2 = XSUBB**2 XC2 = XSUBC**2 XBC = XSUBB*XSUBC C DI(1,1) = 1.0D0 DI(1,2) = YSUBC/3.0D0 DI(1,3) = YC2/6.0D0 DI(1,4) = YC2*YSUBC/10.0D0 DI(1,5) = YC2**2/15.0D0 DI(2,1) = (XSUBB + XSUBC)/3.0D0 DI(2,2) = YSUBC*(XSUBB + 2.0D0*XSUBC)/12.0D0 DI(2,3) = DI(1,3)*(XSUBB + 3.0D0*XSUBC)/5.0D0 DI(2,4) = DI(1,4)*(XSUBB + 4.0D0*XSUBC)/6.0D0 DI(3,1) = (XB2 +XBC + XC2)/6.0D0 DI(3,2) = DI(1,2)*(XB2 + 2.0D0*XBC + 3.0D0*XC2)/10.0D0 DI(3,3) = DI(1,3)*(XB2 + 3.0D0*XBC + 6.0D0*XC2)/15.0D0 DI(4,1) = (XSUBB + XSUBC)*(XB2 + XC2)/10.0D0 DI(4,2) = DI(1,2)*((XSUBB + 2.0D0*XSUBC)*XB2 + 1 (3.0D0*XSUBB + 4.0D0*XSUBC)*XC2)/20.0D0 DI(5,1) = (XB2*XB2 + XB2*XBC + XBC*XBC + XBC*XC2 + XC2*XC2)/15.0 C AR = XSUBB*YSUBC*DBLE(ECPT(IOPT+56))/2.0D0 DO 170 I = 1,5 IC = 6 - I DO 170 J = 1,IC DI(I,J) = DI(I,J)*AR 170 CONTINUE C C THE ABOVE INTEGRALS D(I,J) CORRESPOND TO THE DOCUMENTED C VALUES I(I-1,J-1). ZERO INDICES DONT ALWAYS COMPILE. C C THE DIFFERENTIAL STIFFNESS MATRIX IN GENERALIZED COORDINATES IS C CREATED BELOW AT POSITIONS A(28) TO A(91) C A(28) = SX*DI(1,1) A(29) = SXY*DI(1,1) A(30) = 2.0D0*SX*DI(2,1) A(31) = SX*DI(1,2) + SXY*DI(2,1) A(32) = 2.0D0*SXY*DI(1,2) A(33) = 3.0D0*SX *DI(3,1) A(34) = SX*DI(1,3) + 2.0*SXY*DI(2,2) A(35) = 3.0D0*SXY*DI(1,3) C A(37) = SY*DI(1,1) A(38) = 2.0D0*SXY*DI(2,1) A(39) = SXY*DI(1,2) + SY*DI(2,1) A(40) = 2.0D0*SY*DI(1,2) A(41) = 3.0D0*SXY*DI(3,1) A(42) = SXY*DI(1,3) + 2.0D0*SY*DI(2,2) A(43) = 3.0D0*SY*DI(1,3) C A(46) = 4.0D0*SX*DI(3,1) A(47) = 2.0D0*(SX*DI(2,2) + SXY*DI(3,1)) A(48) = 4.0D0*SXY*DI(2,2) A(49) = 6.0D0*SX*DI(4,1) A(50) = 2.0D0*(SX*DI(2,3) + 2.0D0*SXY*DI(3,2)) A(51) = 6.0D0*SXY*DI(2,3) C A(55) = SX*DI(1,3) + 2.0D0*SXY*DI(2,2)+SY*DI(3,1) A(56) = 2.0D0*(SXY*DI(1,3) + SY*DI(2,2)) A(57) = 3.0D0*(SX* DI(3,2) + SXY*DI(4,1)) A(58) = SX*DI(1,4) + 3.0D0*SXY*DI(2,3) + 2.0D0*SY*DI(3,2) A(59) = 3.0D0*(SXY*DI(1,4) + SY*DI(2,3)) C A(64) = 4.0D0*SY*DI(1,3) A(65) = 6.0D0*SXY*DI(3,2) A(66) = 2.0D0*(SXY*DI(1,4) + 2.0D0*SY*DI(2,3)) A(67) = 6.0D0*SY*DI(1,4) C A(73) = 9.0D0*SX*DI(5,1) A(74) = 3.0D0*(SX*DI(3,3) + 2.0D0*SXY*DI(4,2)) A(75) = 9.0D0*SXY*DI(3,3) C A(82) = SX*DI(1,5) + 4.0D0*SXY*DI(2,4) + 4.0D0*SY*DI(3,3) A(83) = 3.0D0*SXY*DI(1,5) + 6.0D0*SY*DI(2,4) C A(91) = 9.0D0*SY*DI(1,5) C C FILL IN SYMMETRIC TERMS C DO 180 I = 2,8 IH = I - 1 DO 180 J = 1,IH IC = 8*(I-1) + J JC = 8*(J-1) + I A(IC+27) = A(JC+27) 180 CONTINUE C C AT THIS STAGE THE 3X3 MATRIX PARTITIONS MAY BE GENERATED C THE ACTUAL MATRICES DEPEND ON IOPT C IC = NPIVOT IF (IC .EQ. 0) GO TO 200 CALL GMMATD (C(1,IC),8,3,1, A(28),8,8,0, A(92)) DO 190 I = 1,3 IH= 9*(I-1) + 1 CALL GMMATD (A(92),3,8,0, C(1,I),8,3,0, A(IH)) 190 CONTINUE C////// C CALL BUG (4HTBKD,300,A,54) C////// C C AT THIS STAGE THE QUADRILATERAL CALCULATIONS ARE COMPLETE C 200 IF (IOPT .EQ.2) RETURN C C THE TRIANGLE SUBROUTINE MUST RETURN THE FOLLOWING DATA C KAC,KBC,KCC IN POSITIONS A(28) THRU A(54) -I=NPIVOT C S IN POSITIONS A(55) THRU A(72) C H-INVERSE IN POSITIONS A(73) THRU A(108) C CALL GMMATD (A(28),8,8,0, C(1,3),8,3,0, A(92)) DO 210 I = 1,3 IH = 28 + 9*(I-1) CALL GMMATD (C(1,I),8,3,1, A(92),8,3,0, A(IH)) 210 CONTINUE C C RECALCULATE THE S MATRIX (IT WAS DESTROYED) - C PLACE IN A(55 THRU 72) C DO 230 I = 1,18 230 A(I+54) = 0.0 DO 240 I = 1,9,4 A(I+54) = 1.0 240 A(I+63) = 1.0 A(57) =-XSUBB A(65) = YSUBC A(66) =-XSUBC C C EXTRACT THE H-INVERSE MATRIX FROM THE C MATRICES C STORE AT POSITIONS A(73) THRU A(108) C DO 250 I = 1,6 IH = 6*I - 6 IC = 3*I - 3 C DO 250 J = 1,3 JH = IH + J + 72 JC = IC + J + 6 A(JH ) = C(JC,2) A(JH+3) = C(JC,3) 250 CONTINUE RETURN END ================================================ FILE: mis/dtria.f ================================================ SUBROUTINE DTRIA (IOPT) C C THIS ROUTINE GENERATES THE FOLLOWING C C THREE 6X6 DIFFERENTIAL STIFFNESS MATRIX PARTITION FOR ONE PIVOT C POINT FOR A TRIA1, TRIA2 OR TORA3 ELEMENT. C C C CALLS FROM THIS ROUTINE ARE MADE TO C DTRBSC - BASIC BENDING TRI. ROUTINE. C DTRMEM - TRIANGLULAR MEMBRANE ROUTINE C TRANSD - SUPPLIES 3X3 TRANSFORMATIONS C INVERD - MATRIX INVERSION ROUTINE C GMMATD - GENERAL MATRIX MULITPLY AND TRANSPOSE ROUTINE C DS1B - INSERTION ROUTINE C C C IOPT = 1 2 3 C ECPT INDEX TRIA1 TRIA2 TRIA3 TRMEM C ********** ********* ******** ******** ******** C 1 EL ID EL ID EL ID EL ID C 2 SIL1 SIL1 SIL1 SIL1 C 3 SIL2 SIL2 SIL2 SIL2 C 4 SIL3 SIL3 SIL3 SIL3 C 5 THETA THETA MEM T1 THETA C 6 MAT ID 1 MAT ID MEM T2 MAT ID C 7 T1 T MEM T3 T C 8 MAT ID 2 NSM THETA NSM C 9 INERTIA I CID1 FLAG FOR 8 CID1 C 10 MAT ID 3 X1 GRD OFFSET X1 C 11 T2 Y1 MAT ID1 Y1 C 12 NSM Z1 THICKNESS Z1 C 13 Z1 CID2 MAT ID2 CID2 C 14 Z2 X2 INERTIA I X2 C 15 CID1 Y2 MAT ID 3 Y2 C 16 X1 Z2 TS/T Z2 C 17 Y1 CID3 NSM CID3 C 18 Z1 X3 Z1 X3 C 19 CID2 Y3 Z2 Y3 C 20 X2 Z3 MAT ID 4 Z3 C 21 Y2 EL TEMP THETA EL TEMP C 22 Z2 FLAG FOR 21 EL DEFORM C 23 CID3 INTEGRATION LOAD TEMP C 24 X3 U1 STRESS ANGLE U1 C 25 Y3 V1 FLAG FOR 24 V2 C 26 Z3 W1 ZOFF1 W3 C 27 EL TEMP U2 CID1 U2 C 28 EL DEFORM V2 X1 V2 C 29 EL LOAD TEMP W2 Y1 W2 C 30 U1 -DISP FOR U1 U3 Z1 U3 C 31 V1 -DISP FOR V1 V3 CID2 V3 C 32 W1 -DISP FOR Z1 W3 X2 W3 C 33 U2 -DISP FOR X2 Y2 C 34 V2 -DISP FOR Y2 Z2 C 35 W2 -DISP FOR Z2 CID3 C 36 U3 -DISP FOR X3 X3 C 37 V3 -DISP FOR Y3 Y3 C 38 W3 -DISP FOR Z3 Z3 C 39 EL TEMP C 40 C 41 C 42 U1 C 43 V1 C 44 W1 C 45 U2 C 46 V2 C 47 W2 C 48 U3 C 49 V3 C 50 W3 C INTEGER SUBSCA ,SUBSCB ,SUBSCC , 1 CID1 DOUBLE PRECISION 1 R ,D1 ,HABC , 2 TEMP ,D2 ,HINV , 3 KSUM ,IVECT ,G , 4 V ,JVECT ,E , 5 VV ,KVECT ,TITE , 6 XSUBB ,TEMP9 ,TJTE , 7 XSUBC ,PROD9 ,ARR9 , 8 YSUBC ,U1 ,ARRAY9 , 9 T ,U2 ,TEMP18 , T A ,TEMP1 ,PROD12 , 1 C1 ,TEMP2 ,HQ , 2 C2 ,L1 ,Y1 , 3 X1 ,L2 ,Y2 , 4 X2 ,S1 ,DETERM , 5 S2 ,KOUT ,S , 6 REQUIV DOUBLE PRECISION SIGX ,SIGY ,SIGXY , 1 STRES ,DUMTWO DIMENSION 1 NECPT(100) ,M(9) ,REQUIV(8) , 2 HQ(12) ,PROD12(12) ,HABC(18) , 3 G(36) ,TITE(18) ,TJTE(18) , 4 KOUT(36) ,TEMP18(18) ,V1(3) , 5 V2(3) ,V3(3) ,D1(3) , 6 D2(3) CHARACTER UFM*23 ,UWM*25 ,UIM*29 , 1 SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM , 1 SFM COMMON /MATIN / MATID,INFLAG ,ELTEMP,STRESS ,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13 ,G22,G23,G33 ,RHO,ALPHA1 , 1 ALPHA2,ALP12 ,T SUB 0 ,G SUB E , 2 SIGTEN,SIGCOM ,SIGSHE,G2X211 ,G2X212 ,G2X222 COMMON /DS1AAA/ NPVT ,ICSTM ,NCSTM COMMON /DS1AET/ ECPT(100) COMMON /DS1ADP/ A(54) ,S(18) ,HINV(36) , 1 T(9) ,TEMP9(9) ,PROD9(9) , 2 ARR9(9) ,ARRAY9(9) , 3 E(18) ,TEMP ,TEMP1 , 4 TEMP2 ,L1 ,L2 , 5 S1 ,S2 ,C1 , 6 C2 ,X1 ,X2 , 7 Y1 ,Y2 ,DUMTWO(2) , 8 DETERM ,SIGX ,SIGY , 9 SIGXY ,XSUBB ,XSUBC , T YSUBC ,STRES(3) ,KSUM(63) , 1 IVECT(3) ,JVECT(3) ,KVECT(3) , 2 R(2,4) , 3 V(2) ,VV(2) ,U1 , 4 U2 ,NPOINT ,KM , 5 SUBSCA ,SUBSCB ,SUBSCC , 6 NPIVOT ,IPVT ,THETA , 7 NSUBB ,NSUBC ,ISING , 8 NPT1 ,SINANG ,COSANG COMMON /CONDAS/ PI ,TWOPI ,RADEG , 1 DEGRA ,S4PISQ COMMON /SYSTEM/ IBUFF ,NOUT ,NOGO EQUIVALENCE 1 (NECPT(1),ECPT(1)) , (PROD12(1),A(13)) , 2 (HABC(1),A(25)) , (TITE(1),A(37)) , 3 (TJTE(1),S( 1)) , (KOUT(1),A(1)) , 4 (TEMP18(1),HINV(1)), (V1(1),ECPT(66)) , 5 (V2(1),ECPT(70)) , (V3(1),ECPT(74)) , 6 (REQUIV(1),R(1,1)) , (D1(1),A(1)) , 7 (D2(1),A(4)) , (HQ(1),A(1)) C C DATA M / 1,2,4, 2,3,4, 3,1,4 /, CID1 / 65 / C C C THE ECPT DATA IS COPIED TO ECPT(PLUS 50) C THE DATA IN ECPT(BELOW 50) IS THEN PUT INTO TRMEM FORMAT TO BE C USED BY DTRMEM C THE DATA IN ECPT(ABOVE 50, SPECIALLY 51 THRU 62, 65 THRU 88) IS C PUT INTO TRIA1 FORMAT, WHICH WILL BE USED BY DTRBSC AND LOCALLY C ICID = CID1 - 4 DO 10 I = 1,50 10 ECPT(I+50) = ECPT(I) GO TO (15,25,35), IOPT C C TRIA1 C 15 J = 15 DO 20 I = 9,32 ECPT(I) = ECPT(J) 20 J = J + 1 GO TO 60 C C TRIA2 C 25 ECPT(58) = ECPT(6) ECPT(59) =(ECPT(7)**3)/12.0 ECPT(60) = ECPT(6) ECPT(61) = ECPT(7) C J = 9 DO 30 I = 65,88 ECPT(I) = ECPT(J) 30 J = J + 1 GO TO 60 C C TRIA3 C C IF NECPT(9)=0, ECPT(8) IS MATERIAL PROPERTY ORIENTAION ANGLE THETA C IF NECPT(9).NE.0, NECPT(8) IS MATERIAL COORDINATE SYSTEM ID. IN C THIS CASE, WE CAN NOT CONTINUE (NEED MORE STUFFS TO COMPUTE THETA, C SEE SHCSGD) C 35 IF (NECPT(9) .NE. 0) GO TO 410 ECPT(5) = ECPT( 8) ECPT(6) = ECPT(11) ECPT(7) = ECPT(12) J = 27 DO 40 I = 9,32 ECPT(I) = ECPT(J) 40 J = J + 1 C ECPT(55) = ECPT(58) J = 61 DO 45 I = 56,60 ECPT(I) = ECPT(J) 45 J = J + 1 ECPT(61) = ECPT(62) J = 77 DO 50 I = 65,88 ECPT(I) = ECPT(J) 50 J = J + 1 C 60 THETA = ECPT(5)*DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) SINTH = SINANG COSTH = COSANG C CALL DTRMEM (2) C C SIGX, SIGY , SIGXY ARE NOW AVAILABLE. SAVE THEM. C STRES(1) = SIGX STRES(2) = SIGY STRES(3) = SIGXY C ELTEMP = ECPT(21) C C DETERMINE PIVOT POINT NUMBER C DO 70 I = 1,3 IF (NPVT .NE. NECPT(I+1)) GO TO 70 NPIVOT = I GO TO 80 70 CONTINUE RETURN C C FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION C 80 CONTINUE C C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X4) FOR TRIANGULAR PLATE. (COLUMN 4 BLANK) C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX C DO 90 I = 1,8 90 REQUIV(I) = 0.0D0 C DO 100 I = 1,3 D2(I) = DBLE(V2(I)) - DBLE(V1(I)) 100 D1(I) = DBLE(V3(I)) - DBLE(V1(I)) C C X2 GOES IN R(1,2) C R(1,2) = DSQRT(D2(1)**2 + D2(2)**2 + D2(3)**2) DO 110 I = 1,3 110 IVECT(I) = D2(I)/R(1,2) C C NON-NORMALIZED K-VECTOR C KVECT(1) = IVECT(2)*D1(3) - D1(2)*IVECT(3) KVECT(2) = IVECT(3)*D1(1) - D1(3)*IVECT(1) KVECT(3) = IVECT(1)*D1(2) - D1(1)*IVECT(2) C C Y3 GOES INTO R(2,3) C R(2,3) = DSQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2) DO 120 I = 1,3 120 KVECT(I) = KVECT(I)/R(2,3) C C J-VECTOR = K X I VECTORS C JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3) JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1) JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2) C C NORMALIZE J VECTOR TO MAKE SURE C TEMP = DSQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2) DO 130 I = 1,3 130 JVECT(I) = JVECT(I)/TEMP C C X3 GOES INTO R(1,3) = D1 DOT IVECT C R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3) C C CENTROID POINT GOES INTO R(1,4) AND R(2,4) C R(1,4) = (R(1,2) + R(1,3))/3.0D0 R(2,4) = R(2,3)/3.0D0 C C C THE COORDINATES AND CENTROID OF THE PLATE IN THE ELEMENT C SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE C POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR C ROW 2 RESPECTIVELY. C C C SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT. C C ZERO OUT THE KSUM MATRIX FOR 63 AND THE GSUM MATRIX FOR 36 C DO 140 I = 1,63 140 KSUM(I) = 0.0D0 DO 150 I = 1,36 150 G(I) = 0.0D0 C DO 280 J = 1,3 KM = 3*J - 3 SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 160 I = 1,2 V(I) = R(I,SUBSCB) - R(I,SUBSCA) 160 VV(I) = R(I,SUBSCC) - R(I,SUBSCA) XSUBB = DSQRT(V(1)**2 + V(2)**2) U1 = V(1)/XSUBB U2 = V(2)/XSUBB XSUBC = U1*VV(1) + U2*VV(2) YSUBC = U1*VV(2) - U2*VV(1) C SINTH = SINANG*U1 - COSANG*U2 COSTH = COSANG*U1 + SINANG*U2 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR TRIANGLE -J- C C2 = U1**2 S2 = U2**2 L1 = U1*U2 SIGX = C2*STRES(1) + S2*STRES(2) + 2.0D0*L1*STRES(3) SIGY = S2*STRES(1) + C2*STRES(2) - 2.0D0*L1*STRES(3) SIGXY=-L1*STRES(1)+ L1*STRES(2) + (C2-S2)*STRES(3) IPVT = 0 DO 170 I = 1,2 NPOINT = KM + I IF (M(NPOINT) .EQ. NPIVOT) IPVT = I 170 CONTINUE CALL DTRBSC (1,IPVT) C C NOW WE HAVE 6 MATRICES STORED AT A(1) TO A(54)- HIA,HIB,HIC C HAC,HBC,HCC C C NOW ADD CERTAIN OF THESE INTO THE SUMMED MATRICES C C C SET UP OF T-MATRIX C T(1) = 1.0D0 T(2) = 0.0D0 T(3) = 0.0D0 T(4) = 0.0D0 T(5) = U1 T(6) = U2 T(7) = 0.0D0 T(8) =-U2 T(9) = U1 C DO 190 I = 1,3 CALL GMMATD (T(1),3,3,1, A(9*I+19),3,3,0, TEMP9(1)) CALL GMMATD (TEMP9(1),3,3,0, T(1),3,3,0, PROD9(1)) C C ADD THIS PRODUCT IN NOW. C COMPUTE POINTER TO KSUM MATRIX DESIRED. (ZERO POINTER) C NPOINT = KM + I NPOINT = 9*M(NPOINT) + 18 C DO 180 K = 1,9 NSUBC = NPOINT + K 180 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(K) 190 CONTINUE IF (IPVT .EQ. 0) GO TO 220 DO 210 I = 1,2 NPOINT = KM +I NPOINT = 9*M(NPOINT) -9 C C TRANSFORM C CALL GMMATD (T(1),3,3,1, A(9*I-8),3,3,0, TEMP9(1)) CALL GMMATD (TEMP9(1),3,3,0, T(1),3,3,0, PROD9(1)) C C INSERT C DO 200 K = 1,9 NSUBC = K + NPOINT 200 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(K) 210 CONTINUE 220 CONTINUE C C FORM HQ (2X6) C TEMP1 = XSUBB - XSUBC TEMP2 = YSUBC**2 L1 = DSQRT(XSUBC**2 + TEMP2) L2 = DSQRT(TEMP1**2 + TEMP2) S1 = XSUBC/L1 S2 = TEMP1/L2 C1 = YSUBC/L1 C2 = YSUBC/L2 X1 = XSUBC/2.0D0 Y1 = YSUBC/2.0D0 X2 = (XSUBB+XSUBC)/2.0D0 Y2 = Y1 HQ( 1) =-XSUBC*C1 HQ( 2) = X1*S1 - Y1*C1 HQ( 3) = 2.0D0*Y1*S1 HQ( 4) =-3.0D0*X1*X1*C1 HQ( 5) = Y1*(2.0D0*X1*S1 - Y1*C1) HQ( 6) = 3.0D0*Y1*Y1*S1 HQ( 7) = 2.0D0*X2*C2 HQ( 8) = X2*S2 + Y2*C2 HQ( 9) = 2.0D0*Y2*S2 HQ(10) = 3.0D0*X2*X2*C2 HQ(11) = Y2*(2.0D0*X2*S2 + Y2*C2) HQ(12) = 3.0D0*Y2*Y2*S2 C C I -1 C COMPUTE (H I H ) = (HQ)(H) STORE IN PROD12 C PSI,B I PSI,C C I C C CALL GMMATD (HQ(1),2,6,0, HINV(1),6,6,0, PROD12(1)) C C C COMPUTE (H ) = -(PROD12)(S) C PSI,A C CALL GMMATD (PROD12(1),2,6,0, S(1),6,3,0, HABC(1)) C HABC(1) = -HABC(1) HABC(2) = -HABC(2) + S1 HABC(3) = -HABC(3) + C1 HABC(4) = -HABC(4) HABC(5) = -HABC(5) + S2 HABC(6) = -HABC(6) - C2 C C SPLIT (H ) AND (H ) PARTITION C PSI,B PSI,C C HABC( 7) = PROD12( 1) HABC( 8) = PROD12( 2) HABC( 9) = PROD12( 3) HABC(10) = PROD12( 7) HABC(11) = PROD12( 8) HABC(12) = PROD12( 9) HABC(13) = PROD12( 4) HABC(14) = PROD12( 5) HABC(15) = PROD12( 6) HABC(16) = PROD12(10) HABC(17) = PROD12(11) HABC(18) = PROD12(12) C C MAP H , H , AND H INTO THE G-MATRICES. C A B C C C TRIANGLE NUMBER = J, THE THREE POINTS ARE SUBSCA, SUBSCB, SUBSCC. C DO 270 I = 1,3 C C POINTER TO H = 6*I-6 C I C C C TRANSFORM H SUB I C CALL GMMATD (HABC(6*I-5),2,3,0, T(1),3,3,0, TEMP9(1)) C C NPOINT = KM + I NPOINT = 9*M(NPOINT) - 9 C C J = 1 ROW 1 OF H INTO ROW 1 OF G. C ROW 2 OF H INTO ROW 2 OF G. C J = 2 ROW 1 OF H INTO ROW 2 OF G. C ROW 2 OF H INTO ROW 3 OF G. C J = 3 ROW 1 OF H INTO ROW 3 OF G. C ROW 2 OF H INTO ROW 1 OF G. C IF (J-2) 240,230,260 C 230 NPOINT = NPOINT + 3 240 DO 250 K = 1,6 NPOINT = NPOINT + 1 250 G(NPOINT) = G(NPOINT) + TEMP9(K) GO TO 270 260 G(NPOINT+7) = G(NPOINT+7) + TEMP9(1) G(NPOINT+8) = G(NPOINT+8) + TEMP9(2) G(NPOINT+9) = G(NPOINT+9) + TEMP9(3) G(NPOINT+1) = G(NPOINT+1) + TEMP9(4) G(NPOINT+2) = G(NPOINT+2) + TEMP9(5) G(NPOINT+3) = G(NPOINT+3) + TEMP9(6) C 270 CONTINUE C C C END OF LOOP FOR BASIC TRIANGLES C 280 CONTINUE C C C FILL E-MATRIX C DO 290 I = 1,18 290 E(I) = 0.0D0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C C T C FORM T E STORE IN TITE-MATRIX (6X3) C I C IF (NECPT(4*NPIVOT+ICID) .EQ. 0) GO TO 300 CALL TRANSD (NECPT(4*NPIVOT+ICID),T(1)) CALL GMMATD (T(1),3,3,1, E( 1),3,3,0, TITE( 1)) CALL GMMATD (T(1),3,3,1, E(10),3,3,0, TITE(10)) GO TO 320 C 300 DO 310 K = 1,18 310 TITE(K) = E(K) C C SOLVE NOW FOR C C E T T T C (K ) = (K ) - (TERM ) (K ) - (K )(TERM ) + (TERM )(K )(TERM ) C IJ IJ I J4 I4 J I 44 J C C -1 I=NPIVOT C WHERE (TERM ) = (G ) (G ) ,I=NPIVOT J=1,2,3 C I 4 I C C -1 C (TERM ) = (G ) (G ) ,J=1,2,3 AS ABOVE C J 4 J C C AND WITH TRANSFORMATIONS C C G T E T C (K ) = (C ) (E)(K )(E )(C ) C IJ I IJ J C C C COMPUTE (TERM ) STORE IN PROD9 C I=NPIVOT C C -1 C FIRST GET (G ) C 4 C 320 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (3,G(28),3,PROD9,0,DETERM,ISING,TEMP9) C CALL GMMATD (G(28),3,3,0, G(9*NPIVOT-8),3,3,0, PROD9(1)) C C T C GET (TERM )(K ) -(K ) STORE IN TEMP9 C I=NPIVOT 44 I4 C CALL GMMATD (PROD9(1),3,3,1, KSUM(55),3,3,0, TEMP9(1)) DO 340 K = 1,9 NPOINT = 9*NPIVOT + 18 + K 340 TEMP9(K) = TEMP9(K) - KSUM(NPOINT) C C C THE TWO COMMON PRODUCTS ARE NOW AT HAND IN PROD9 AND TEMP9. C DO 400 J = 1,3 C C T T C (TERM ) (K ) STORE IN ARR9 C I=NPIVOT J4 C CALL GMMATD (PROD9(1),3,3,1, KSUM(9*J+19),3,3,1, ARR9(1)) C C SUBTRACT FROM (K ) C IJ C NBEGIN = 9*J - 9 DO 350 I = 1,9 NPOINT = NBEGIN + I 350 KSUM(NPOINT) = KSUM(NPOINT) - ARR9(I) C C C COMPUTE (TERM ) STORE IN ARR9 C J C CALL GMMATD (G(28),3,3,0, G(9*J-8),3,3,0, ARR9(1)) C C T C COMPUTE ((TERM )(K ) -(K )) (TERM ) = (TEMP9)(ARR9) C I=NPOINT 44 I4 J C CALL GMMATD (TEMP9(1),3,3,0, ARR9(1),3,3,0, ARRAY9(1)) C C ADD TO K C IJ C DO 360 I = 1,9 NPOINT = NBEGIN + I 360 KSUM(NPOINT) = KSUM(NPOINT) + ARRAY9(I) C C E C K COMPLETE C IJ C C TRANSFORM NOW, AND INSERT. C C C TRANSFORMATIONS AND INSERTION C IF (NECPT(4*J+ICID) .EQ. 0) GO TO 370 CALL TRANSD (NECPT(4*J+ICID),T(1)) CALL GMMATD (T(1),3,3,1, E( 1),3,3,0, TJTE( 1)) CALL GMMATD (T(1),3,3,1, E(10),3,3,0, TJTE(10)) GO TO 390 C 370 DO 380 K = 1,18 380 TJTE(K) = E(K) 390 CALL GMMATD (KSUM(NBEGIN+1),3,3,0, TJTE(1),6,3,1, TEMP18(1)) CALL GMMATD (TITE(1),6,3,0, TEMP18(1),3,6,0, KOUT(1)) CALL DS1B (KOUT(1),NECPT(J+1)) 400 CONTINUE RETURN C C COULD NOT DO IT C 410 WRITE (NOUT,420) SFM 420 FORMAT (A25,', DEFFICIENT SOURCE CODE IN DTRIA TO HANDLE CTRIA3 ', 1 'ELEMENT WITH MATERIAL', /5X, 2 'PROPERTY COORD. SYSTEM. ANGLE MUST BE SPECIFIED') NOGO = 1 RETURN END ================================================ FILE: mis/dtrmem.f ================================================ SUBROUTINE DTRMEM( IOPT ) C C DIFFERENTIAL STIFFNESS CALCULATIONS FOR THE TRIANGULAR MEMBRANE C ELEMENT. THREE 6X6 MATRICES FOR THE PIVOT POINT ARE INSERTED. C IF THIS ROUTINE IS CALLED FROM DTRIA OR DQUAD ONLY THE IN PLANE C EFFECTS ARE GENERATED AND THE STRESS VALUES ARE RETURNED. C C THE VALUE OF IOPT TELLS US WHICH ROUTINE IS CALLING DTRMEM. C THE OPTIONS ARE C IOPT ROUTINE C ****** ******* C 0 DSIA C 1 DQDMEM C 2 DTRIA C 3 DQUAD C C C THIS ROUTINE COMPUTES AN E-MATRIX UNIQUE TO THIS ROUTINE. C C IX IY IZ C E = JX JY JZ C KX KY KZ C DOUBLE PRECISION E ,C 1 ,KD ,SIGX 2 ,SIGY ,SIGXY 3 ,TEMP1 ,TEMP2 4 ,KIJ 5 ,G ,XSUBB 6 ,XSUBC ,YSUBC 7 ,SUM ,MU 8 ,LAMDA ,DELTA 9 ,TEMP ,GAMMA1 T ,GAMMA2 ,GAMMA3 1 ,DISP ,T DOUBLE PRECISION AREAT ,DUMDP C DIMENSION SUM(3) ,NECPT(6) ,KIJ(36) C C C INTERFACE DATA BLOCKS C COMMON /CONDAS/ CONSTS(5) COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALPH12, 1 TSUB0,GSUBE,SIGTEN,SIGCOM,SIGSHE,G2X211,G2X212,G2X222 COMMON /DS1AAA/ NPVT, ICSTM, NCSTM COMMON /DS1AET/ ECPT(21),ELDEF,LDTEMP,SDISP(9) COMMON /DS1ADP/ E(9) ,C(54) 1 ,KD(36) ,TEMP1(18) 2 ,TEMP2(18) 3 ,G(9) ,T(9) 4 ,DISP(9) ,MU 5 ,LAMDA ,DELTA 6 ,TEMP ,GAMMA1 7 ,GAMMA2 ,GAMMA3 8 ,AREAT ,XSUBB 9 ,XSUBC ,YSUBC T ,DUMDP(12) ,THETA 1 ,ICSTM1 ,NPIVOT 2 ,IDUM 3 ,SIGX ,SIGY ,SIGXY C EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (LDTEMP,FTEMP),(NECPT(1),ECPT(1)),(SUM(1),SIGX) EQUIVALENCE (KIJ(1),KD(1)) C C C ****************************************************************** C ECPT( 1) = ELEMENT ID C ECPT( 2) = GRID POINT A OR 1 C ECPT( 3) = GRID POINT B OR 2 C ECPT( 4) = GRID POINT C OR 3 C ECPT( 5) = THETA = ANGLE OF MATERIAL CUT IF ANISOTROPIC C ECPT( 6) = MATERIAL ID C ECPT( 7) = THICKNESS C ECPT( 8) = NON-STRUCTURAL MASS C ECPT( 9) = COORD. SYSTEM ID 1 C ECPT(10) = X1 C ECPT(11) = Y1 C ECPT(12) = Z1 C ECPT(13) = COORD. SYSTEM ID 2 C ECPT(14) = X2 C ECPT(15) = Y2 C ECPT(16) = Z2 C ECPT(17) = COORD. SYSTEM ID 3 C ECPT(18) = X3 C ECPT(19) = Y3 C ECPT(20) = Z3 C ECPT(21) = ELEMENT TEMPERATURE C ECPT(22) = ELEMENT DEFORMATION DELTA C ECPT(23) = AVG. LOADING TEMPERATURE =(-1) IF NO LOADING TEMP. C ECPT(24) = X-TRANS POINT 1 C ECPT(25) = Y-TRANS POINT 1 C ECPT(26) = Z-TRANS POINT 1 C ECPT(27) = X-TRANS POINT 2 C ECPT(28) = Y-TRANS POINT 2 C ECPT(29) = Z-TRANS POINT 2 C ECPT(30) = X-TRANS POINT 3 C ECPT(31) = Y-TRANS POINT 3 C ECPT(32) = Z-TRANS POINT 3 C ****************************************************************** C////// C CALL BUG(4HTMET,0,ECPT,32) C////// C SIGX=0.0D0 SIGY=0.0D0 SIGXY=0.0D0 IF(ECPT(7) .EQ. 0.0 .OR. NECPT(6) .EQ. 0 ) RETURN C FILL ELEMENT TO GLOBAL E-TRANSFORMATION MATRIX C C IVEC = E(1). . .E(3) C JVEC = E(4). . .E(6) C KVEC = E(7). . .E(9) C DO 10 I=1,3 10 E(I) = DBLE( ECPT(I+13) ) - DBLE( ECPT(I+9) ) C C LENGTH THEN = XSUBB C XSUBB = DSQRT( E(1)**2 + E(2)**2 + E(3)**2 ) C C R - R (INTERMEDIATE STEP) AND NOMALIZE IVECTOR = E(1). . .E(3) C C A C DO 20 I=1,3 E(I+3) = DBLE( ECPT(I+17) ) - DBLE( ECPT(I+9) ) 20 E(I) = E(I) / XSUBB C C XSUBC = I DOT (R - R ) C C A C XSUBC = E(1) * E(4) + E(2) * E(5) + E(3) * E(6) C C KVEC = IVEC CROSS (R - R ) C C A C E(7) = E(2) * E(6) - E(3) * E(5) E(8) = E(3) * E(4) - E(1) * E(6) E(9) = E(1) * E(5) - E(2) * E(4) C C LENGTH = YSUBC C YSUBC = DSQRT(E(7)**2 + E(8)**2 + E(9)**2 ) C C NORMALIZE KVECTOR E(7) = E(7) / YSUBC E(8) = E(8) / YSUBC E(9) = E(9) / YSUBC C C JVECTOR = I CROSS K C E(4) = E(3) * E(8) - E(2) * E(9) E(5) = E(1) * E(9) - E(3) * E(7) E(6) = E(2) * E(7) - E(1) * E(8) C C NORMALIZE JVECTOR TO MAKE SURE TEMP = DSQRT( E(4)**2 + E(5)**2 + E(6)**2 ) E(4) = E(4) / TEMP E(5) = E(5) / TEMP E(6) = E(6) / TEMP C C MU, LAMDA, AND DELTA C MU = 1.0D0 / XSUBB LAMDA = 1.0D0 / YSUBC DELTA =(XSUBC/XSUBB) - 1.0D0 AREAT = XSUBB * YSUBC * 0.50D0 * DBLE( ECPT(7) ) C C C MATRIX C =(3X2) STORED C( 1). . .C( 6) C A C C =(3X2) STORED C( 7). . .C(12) C B C C =(3X2) STORED C(13). . .C(18) C C C C( 1) = -MU C( 2) = 0.0D0 C( 3) = 0.0D0 C( 4) = LAMDA * DELTA C( 5) = C(4) C( 6) = -MU C( 7) = MU C( 8) = 0.0D0 C( 9) = 0.0D0 C(10) = -LAMDA * MU * XSUBC C(11) = C(10) C(12) = MU C(13) = 0.0D0 C(14) = 0.0D0 C(15) = 0.0D0 C(16) = LAMDA C(17) = LAMDA C(18) = 0.0D0 C IF( IOPT .GE. 1 ) GO TO 30 C THE REASON FOR THIS IS THAT IF THE DQDMEM ROUTINE IS CALLING, C EACH INDIVIDUAL SUBTRIANGLE WILL ALREADY HAVE A SINTH AND COSTH. C THETA = ECPT(5) * DEGRA SINTH = SIN( THETA ) COSTH = COS( THETA ) 30 IF( ABS(SINTH) .LT. 1.0E-06 ) SINTH = 0.0E0 C ELTEMP = ECPT(21) MATID = NECPT(6) INFLAG = 2 CALL MAT( ECPT(1) ) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE. C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C G, E, C MATRICES ARE COMPLETE C C FOLLOWING COMPUTES SIG , SIG , SIG (3X1) VECTOR C X Y XY C C I=3 C = (SUM (G)(C )(E)(T )(DISP )) - (S )(LDTEMP - T ) C I=1 I I I T 0 C C WHERE S =(G)(ALPHAS) (3X1) C T C SUM(1) = 0.0E0 SUM(2) = 0.0E0 SUM(3) = 0.0E0 C C MAKE DISPLACEMENT VECTOR DOUBLE PRECISION C DO 40 I=1,9 40 DISP(I) = SDISP(I) C DO 90 I=1,3 C DO WE NEED TRANSFORMATIONS C IF(NECPT(4*I+5)) 50,60,50 50 CALL TRANSD( NECPT(4*I+5),T(1)) CALL GMMATD( T(1),3,3,0, DISP(3*I-2),3,1,0, TEMP1(1)) GO TO 80 C 60 DO 70 J=1,3 IDUM= 3*(I-1)+J 70 TEMP1(J) = DISP(IDUM) C 80 CALL GMMATD( E(1),2,3,0,TEMP1(1),3,1,0, TEMP2(1) ) CALL GMMATD( C(6*I-5),3,2,0, TEMP2(1),2,1,0, TEMP1(1) ) CALL GMMATD( G(1),3,3,0, TEMP1(1),3,1,0, TEMP2(1) ) C SUM(1) = SUM(1) + TEMP2(1) SUM(2) = SUM(2) + TEMP2(2) SUM(3) = SUM(3) + TEMP2(3) C 90 CONTINUE C IF( LDTEMP .EQ. (-1) ) GO TO 110 C COMPUTE S MATRIX C T C TEMP2(1) = ALPHA1 TEMP2(2) = ALPHA2 TEMP2(3) = ALPH12 C ABOVE IS FOR SINGLE TO DOUBLE PRECISION. C CALL GMMATD( G(1),3,3,0, TEMP2(1),3,1,0, TEMP1(1) ) TEMP = FTEMP - TSUB0 DO 100 I=1,3 100 SUM(I) = SUM(I) - TEMP1(I) * TEMP C C////// C CALL BUG(4HSUMS,90,SUM,6) C////// C 90 AT 90 SIG = SUM(1), SIG = SUM(2), SIG = SUM(3) C X Y XY C C ABOVE SIMULATES SMA,SDR2-PHASE I+II C FROM ABOVE THE E MATRIX (3X3), AND THE SUM (3X1) MATRIX ALONG WITH C XSUBB, XSUBC, AND YSUBC ARE NOW USED... 110 DO 120 I =1,36 120 KD(I) =0.0D0 C IF( IOPT.EQ. 3 ) AREAT=AREAT/2.0D0 C MU = SIGX*AREAT LAMDA = SIGY*AREAT DELTA = SIGXY *AREAT C IF ( IOPT .GE. 2) GO TO 130 KD(1) = LAMDA KD(2) =-DELTA KD(7) = KD(2) KD(8) = MU 130 KD(15) = MU+LAMDA KD(16) =-DELTA KD(17) = DELTA KD(18) = MU -LAMDA KD(21) = KD(16) KD(27) = KD(17) KD(33) = KD(18) C C GENERATE C MATRICES C DO 140 I=1,54 140 C(I) =0.0D0 C C FILL NON ZERO TERMS C GAMMA1 = 1.0D0 /XSUBB GAMMA2 = 1.0D0 /YSUBC GAMMA3 = XSUBC /( XSUBB*YSUBC) C(3) = GAMMA3 -GAMMA2 C(6) = GAMMA1 C(7) =-C(3)/2.0D0 C(8) =-GAMMA1/2.0D0 C(10)=-GAMMA1 C(14)= C(3) C(16)=-C(7) C(17)= C(8) C C(21)=-GAMMA3 C(24)=-GAMMA1 C(25)= GAMMA3/2.0D0 C(26)=-C(8) C(28)= GAMMA1 C(32)=-GAMMA3 C(34)=-C(25) C(35)= C(26) C C(39)=GAMMA2 C(43)=-GAMMA2/2.0D0 C(50)= GAMMA2 C(52)=-C(43) C C REPLACE C MATRICES BY (C)(E )(T) FOR EACH POINT DO 200 I =1,3 IF( NECPT(4*I+5)) 150,160,150 C C GLOBAL TO BASIC MATRIX T IS GENERATED AGAIN HERE C 150 CALL TRANSD( NECPT(4*I+5),T(1)) CALL GMMATD( E(1),3,3,0, T(1),3,3,0, TEMP1(1) ) GO TO 180 160 DO 170 J =1,9 170 TEMP1(J) = E(J) C 180 CALL GMMATD( C(18*I-17),6,3,0, TEMP1(1),3,3,0, TEMP2(1)) DO 190 J=1,18 IDUM = 18*(I-1) +J 190 C(IDUM) = TEMP2(J) C 200 CONTINUE C DO 210 I =1,3 IF(NECPT(I+1) .NE. NPVT) GO TO 210 NPIVOT= I GO TO 220 210 CONTINUE RETURN 220 CALL GMMATD( C(18*NPIVOT-17),6,3,1, KD(1),6,6,0, TEMP1(1)) C C TEMP1 NOW CONTAINS T C ( (C )(E)(T ) ) ( KD) C J J C WHERE J IS THE PIVOT POINT C C GENERATE THE THREE BY THREE PARTITIONS IN GLOBAL COORDINATES HERE C DO 240 I=1,3 CALL GMMATD( TEMP1,3,6,0, C(18*I-17),6,3,0,TEMP2(1) ) C////// C CALL BUG(4HTRMK,260,TEMP2,18) C////// DO 230 J=1,36 230 KIJ(J) = 0.0D0 KIJ( 1) = TEMP2(1) KIJ( 2) = TEMP2(2) KIJ( 3) = TEMP2(3) KIJ( 7) = TEMP2(4) KIJ( 8) = TEMP2(5) KIJ( 9) = TEMP2(6) KIJ(13) = TEMP2(7) KIJ(14) = TEMP2(8) KIJ(15) = TEMP2(9) C CALL DS1B( KIJ(1), NECPT(I+1) ) C 240 CONTINUE RETURN END ================================================ FILE: mis/dtshld.f ================================================ SUBROUTINE DTSHLD C C ECPT ENTRIES C C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1 INTEGER C ECPT( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2 INTEGER C ECPT( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3 INTEGER C ECPT( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4 INTEGER C ECPT( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5 INTEGER C ECPT( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6 INTEGER C ECPT( 8) = THETA REAL C ECPT( 9) = MATERIAL ID 1 INTEGER C ECPT(10) = THICKNESS T1 AT GRID POINT G1 C ECPT(11) = THICKNESS T3 AT GRID POINT G3 C ECPT(12) = THICKNESS T5 AT GRID POINT G5 C ECPT(13) = MATERIAL ID 2 INTEGER C ECPT(14) = THICKNESS TBEND1 FOR BENDING AT GRID POINT G1 C ECPT(15) = THICKNESS TBEND3 FOR BENDING AT GRID POINT G3 C ECPT(16) = THICKNESS TBEND5 FOR BENDING AT GRID POINT G5 C ECPT(17) = MATERIAL ID 3 INTEGER C ECPT(18) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID POINT G1 C ECPT(19) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID POINT G3 C ECPT(20) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID POINT G5 C ECPT(21) = NON-STRUCTURAL MASS REAL C ECPT(22) = DISTANCE Z11 FOR STRESS CALCULATION AT GRID POINT G1 C ECPT(23) = DISTANCE Z21 FOR STRESS CALCULATION AT GRID POINT G1 C ECPT(24) = DISTANCE Z13 FOR STRESS CALCULATION AT GRID POINT G3 C ECPT(25) = DISTANCE Z23 FOR STRESS CALCULATION AT GRID POINT G3 C ECPT(26) = DISTANCE Z15 FOR STRESS CALCULATION AT GRID POINT G5 C ECPT(27) = DISTANCE Z25 FOR STRESS CALCULATION AT GRID POINT G5 C C X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM C C ECPT(28) = COORDINATE SYSTEM ID FOR GRID A INTEGER C ECPT(29) = COORDINATE X1 REAL C ECPT(30) = COORDINATE Y1 REAL C ECPT(31) = COORDINATE Z1 REAL C ECPT(32) = COORDINATE SYSTEM ID FOR GRID B INTEGER C ECPT(33) = COORDINATE X1 REAL C ECPT(34) = COORDINATE Y1 REAL C ECPT(35) = COORDINATE Z1 REAL C ECPT(36) = COORDINATE SYSTEM ID FOR GRID C INTEGER C ECPT(37) = COORDINATE X1 REAL C ECPT(38) = COORDINATE Y1 REAL C ECPT(39) = COORDINATE Z1 REAL C ECPT(40) = COORDINATE SYSTEM ID FOR GRID D INTEGER C ECPT(41) = COORDINATE X1 REAL C ECPT(42) = COORDINATE Y1 REAL C ECPT(43) = COORDINATE Z1 REAL C ECPT(44) = COORDINATE SYSTEM ID FOR GRID E INTEGER C ECPT(45) = COORDINATE X1 REAL C ECPT(46) = COORDINATE Y1 REAL C ECPT(47) = COORDINATE Z1 REAL C ECPT(48) = COORDINATE SYSTEM ID FOR GRID F INTEGER C ECPT(49) = COORDINATE X1 REAL C ECPT(50) = COORDINATE Y1 REAL C ECPT(51) = COORDINATE Z1 REAL C EST (52) = ELEMENT TEMPERATURE C EST (53) = ENFORCED ELEMENT DEFORMATION (NOT USED) C EST (54) = LOADING TEMPERATURE C EST (55) TO EST (90) = GLOBAL DISPLACEMENT VECTOR C REPLACES ECPT(65) TO ECPT(100) DESCRIBED BELOW C ECPT(65) = U1-DISP FOR X1 C ECPT(66) = V1-DISP FOR Y1 C ECPT(67) = W1-DISP FOR Z1 C ECPT(68) = ALFA1-ROTATION FOR X1 C ECPT(69) = BETA1-ROTATION FOR Y1 C ECPT(70) = GAMA1-ROTATION FOR Z1 C ECPT(71) = U2-DISP FOR X2 C ECPT(72) = V2-DISP FOR Y2 C ECPT(73) = W2-DISP FOR Z2 C ECPT(74) = ALFA2-ROTATION FOR X2 C ECPT(75) = BETA2-ROTATION FOR Y2 C ECPT(76) = GAMA2-ROTATION FOR Z2 C ECPT(77) = U3-DISP FOR X3 C ECPT(78) = V3-DISP FOR Y3 C ECPT(79) = W3-DISP FOR Z3 C ECPT(80) = ALFA3-ROTATION FOR X3 C ECPT(81) = BETA3-ROTATION FOR Y3 C ECPT(82) = GAMA3-ROTATION FOR Z3 C ECPT(83) = U4-DISP FOR X4 C ECPT(84) = V4-DISP FOR Y4 C ECPT(85) = W4-DISP FOR Z4 C ECPT(86) = ALFA4-ROTATION FOR X4 C ECPT(87) = BETA4-ROTATION FOR Y4 C ECPT(88) = GAMA4-ROTATION FOR Z4 C ECPT(89) = U5-DISP FOR X5 C ECPT(90) = V5-DISP FOR Y5 C ECPT(91) = W5-DISP FOR Z5 C ECPT(92) = ALFA5-ROTATION FOR X5 C ECPT(93) = BETA5-ROTATION FOR Y5 C ECPT(94) = GAMA5-ROTATION FOR Z5 C ECPT(95) = U6-DISP FOR X6 C ECPT(96) = V6-DISP FOR Y6 C ECPT(97) = W6-DISP FOR Z6 C ECPT(98) = ALFA6-ROTATION FOR X6 C ECPT(99) = BETA6-ROTATION FOR Y6 C ECPT(100)= GAMA6-ROTATION FOR Z6 C C RK AND SK ARE EXPONENTS IN THICKNESS VARIATION C LOGICAL NOTS,UNIMEM,UNIBEN,NOGO INTEGER RK(3),SK(3),RL(3),SL(3),XU(32),YU(32),XV(32), 1 YV(32),XW(32),YW(32),SIL(6),SIL1,SIL2, 2 RR,RR0,RR1,SS,SS0,SS1 REAL J11,J12,J22,NSM,IVECT(3),JVECT(3),KVECT(3),XC(6), 1 YC(6),ZC(6),F(18,18) CWKBI 9/93 DOUBLE PRECISION DETERM DOUBLE PRECISION TRAND(9),BALOTR(36),KSUB( 36),KSUBT( 36) DOUBLE PRECISION D334,D132,D232,RMX,RNX,RMNX,RMX1,RNX1,RMY,RNY, 1 RMNY,RMY1,RNY1,X,Y,QQQ(20,20),CMT(1296), 2 CTM(36,36),CMS(900),CM1(30,30),CAB(3),CSUB(5,5), 3 CSUBT(6,5),C1,C2,C3,C4,C5,C6,C7,C8,C9,C10, 4 H4,H5,H6,SB1,SB2,SB3,SB4,SB5,SB6,SB7,SB8,SB9, 5 RIX,RIY,RJX,RJY,RKX,RKY,RLX,RLY,EE(30),Q(6,6), 6 QQQINV(360),QKS(960),KSHL(1024),MSHL(1024) DOUBLE PRECISION SB10,SB11,SB12,SB13,SB14,SB15,SB16,SB17,SB18,SB19 1, SB20,SB21,SB22,SB23,SB24,SB25,SB26,SB27,SB28,SB29 2, SB30,SB31,SB32,SB33,SB34,SB35,SB36,SB37,SB38,SB39 3, SB40,CC(10),ST DIMENSION IND(6,3),EL(3),FL(3),GL(3),NAME(2),INDEX(20,3), 1 ICS(6),IEST(100),NL(6),SIGX(3),SIGY(3),SIGXY(3), 2 ES(6),STRESS(3),STR(3),VEC(3),PH1OUT(250), 3 TM(3,12),EMOD(9),TMMM(36),TRANS(9),EPH1(6), 4 EE1(6),NSIL(6),TI(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ IBUF,IOUTPT COMMON /DS1AET/ EST(100) COMMON /DS1AAA/ NPVT,ICSTM,NCSTM COMMON /DS1ADP/ F COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 EQUIVALENCE (C1,CC(1)),(C2,CC(2)),(C3,CC(3)),(C4,CC(4)), 1 (C5,CC(5)),(C6,CC(6)),(C7,CC(7)),(C8,CC(8)), 2 (C9,CC(9)),(C10,CC(10)), 3 (NSIL(1),PH1OUT(2)),(TM(1,1),TMMM(1)),(A,DISTA), 4 (B,DISTB),(C,DISTC),(IEST(1),EST(1)), 5 (CM1(1,1),CMS(1)),(THK1,TBEND1),(THK2,TBEND3), 6 (THK3,TBEND5),(CMT(1025),QQQINV(1)), 7 (CTM(1,1),CMT(1),KSHL(1),MSHL(1),QQQ(1,1)), 8 (CMT(437),PH1OUT(1)),(CMT(687),INDEX(1,1)), 9 (CMT(747),IND(1,1)),(TI(1),EST(65)) DATA RK / 0,1,0 /, RL / 0,1,0 /, SK / 0,0,1 /, SL / 0,0,1/, 1 XU / 0,1,0,2,1,0,26*0 /, YU / 0,0,1,0,1,2,26*0 /, 2 XV / 6*0,0,1,0,2,1,0,20*0/, YV /6*0,0,0,1,0,1,2,20*0/, 3 XW / 12*0,0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0 /, 4 YW / 12*0,0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5 /, 5 BLANK , NAME / 4H ,4HDTSH,4HLD /, 6 DEGRA / 0.0174532925 / C NOTS =.FALSE. IDELE = IEST(1) DO 10 I = 1,6 NL(I) = IEST(I+1) 10 CONTINUE THETAM = EST(8) MATID1 = IEST(9) TMEM1 = EST(10) TMEM3 = EST(11) TMEM5 = EST(12) MATID2 = IEST(13) TBEND1 = (EST(14)*12.0)**0.333333333333 TBEND3 = (EST(15)*12.0)**0.333333333333 TBEND5 = (EST(16)*12.0)**0.333333333333 MATID3 = IEST(17) TSHR1 = EST(18) TSHR3 = EST(19) TSHR5 = EST(20) NSM = EST(21) J = 0 DO 20 I = 28,48,4 J = J + 1 ICS(J) = IEST(I) XC(J) = EST(I+1) YC(J) = EST(I+2) ZC(J) = EST(I+3) 20 CONTINUE C C IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK, THEY WILL BE C SET EQUAL TO TMEM1 SO ALSO FOR TSHR3,TSHR5,TBEND3 AND TBEND5 C IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1 IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1 IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1 TSHR = (TSHR1+TSHR3+TSHR5)/3.0 IF (TSHR1 .EQ. 0.0) NOTS =.TRUE. IF (TBEND3.EQ.0.0 .OR. TBEND3.EQ.BLANK) TBEND3 = TBEND1 IF (TBEND5.EQ.0.0 .OR. TBEND5.EQ.BLANK) TBEND5 = TBEND1 ELTEMP = EST(52) THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C EVALUTE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 IF (MATID1 .LE. 0) GO TO 670 CALL MAT (IDELE) C MATFLG = 2 MATID = MATID2 CALL MAT (IDELE) D13 = EM(3) D23 = EM(5) D33 = EM(6) J11 = 0.0 J12 = 0.0 J22 = 0.0 IF (NOTS) GO TO 30 MATFLG = 3 MATID = MATID3 CALL MAT (IDELE) J11 = 1.0/(RJ11*TSHR) J12 = 0.0 J22 = 1.0/(RJ22*TSHR) 30 CONTINUE C C CALCULATIONS FOR THE TRIANGLE C CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME) C C CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE C DO 40 I = 1,20 DO 40 J = 1,20 40 QQQ(I,J) = 0.0D0 DO 50 I = 1,6 I1 = (I-1)*3 + 1 I2 = (I-1)*3 + 2 I3 = (I-1)*3 + 3 QQQ(I1, 1) = 1.0D0 QQQ(I1, 2) = XC(I) QQQ(I1, 3) = YC(I) QQQ(I1, 4) = XC(I)*XC(I) QQQ(I1, 5) = XC(I)*YC(I) QQQ(I1, 6) = YC(I)*YC(I) QQQ(I1, 7) = QQQ(I1, 4)*XC(I) QQQ(I1, 8) = QQQ(I1, 4)*YC(I) QQQ(I1, 9) = QQQ(I1, 5)*YC(I) QQQ(I1,10) = QQQ(I1, 6)*YC(I) QQQ(I1,11) = QQQ(I1, 7)*XC(I) QQQ(I1,12) = QQQ(I1, 7)*YC(I) QQQ(I1,13) = QQQ(I1, 8)*YC(I) QQQ(I1,14) = QQQ(I1, 9)*YC(I) QQQ(I1,15) = QQQ(I1,10)*YC(I) QQQ(I1,16) = QQQ(I1,11)*XC(I) QQQ(I1,17) = QQQ(I1,12)*YC(I) QQQ(I1,18) = QQQ(I1,13)*YC(I) QQQ(I1,19) = QQQ(I1,14)*YC(I) QQQ(I1,20) = QQQ(I1,15)*YC(I) QQQ(I2, 3) = 1.0D0 QQQ(I2, 5) = XC(I) QQQ(I2, 6) = YC(I)*2.0 QQQ(I2, 8) = QQQ(I1, 4) QQQ(I2, 9) = QQQ(I1, 5)*2.0 QQQ(I2,10) = QQQ(I1, 6)*3.0 QQQ(I2,12) = QQQ(I1, 7) QQQ(I2,13) = QQQ(I1, 8)*2.0 QQQ(I2,14) = QQQ(I1, 9)*3.0 QQQ(I2,15) = QQQ(I1,10)*4.0 QQQ(I2,17) = QQQ(I1,12)*2.0 QQQ(I2,18) = QQQ(I1,13)*3.0 QQQ(I2,19) = QQQ(I1,14)*4.0 QQQ(I2,20) = QQQ(I1,15)*5.0 QQQ(I3, 2) =-1.0D0 QQQ(I3, 4) =-2.0*XC(I) QQQ(I3, 5) =-YC(I) QQQ(I3, 7) =-QQQ(I1, 4)*3.0 QQQ(I3, 8) =-QQQ(I1, 5)*2.0 QQQ(I3, 9) =-QQQ(I1, 6) QQQ(I3,11) =-QQQ(I1, 7)*4.0 QQQ(I3,12) =-QQQ(I1, 8)*3.0 QQQ(I3,13) =-QQQ(I1, 9)*2.0 QQQ(I3,14) =-QQQ(I1,10) QQQ(I3,16) =-QQQ(I1,11)*5.0 QQQ(I3,17) =-QQQ(I1,13)*3.0 QQQ(I3,18) =-QQQ(I1,14)*2.0 QQQ(I3,19) =-QQQ(I1,15) 50 CONTINUE QQQ(19,16) = 5.0*A**4*C QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2 QQQ(19,19) = C**5 - 4.0*A**2*C**3 QQQ(19,20) = 5.0*A*C**4 QQQ(20,16) = 5.0*B**4*C QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2 QQQ(20,19) = C**5 - 4.0*B**2*C**3 QQQ(20,20) =-5.0*B*C**4 DO 60 I = 1,6 I1 = (I-1)*3 + 1 DO 60 J = 1,6 Q(I,J) = QQQ(I1,J) 60 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (6,Q,6,QQQINV(1),0,DETERM,ISING,IND) IF (ISING .EQ. 2) GO TO 660 C C FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1) C IS U C C AGAIN RESET ISING TO -1 C ISING = -1 CALL INVERD (20,QQQ,20,QQQINV(1),0,DETERM,ISING,INDEX) C C ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR C IF (ISING .EQ. 2) GO TO 660 C C FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS C MA CALCULATIONS C DO 70 I = 1,20 DO 70 J = 1,18 IJ = (I-1)*18 + J QQQINV(IJ) = QQQ(I,J) 70 CONTINUE C C START EXECUTION FOR STIFFNESS MATRIX CALCULATION C C CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES C C OBTAIN MEMBRANE STRESSES C C RELEVANT PORTION OF STRESS ROUTINE OF TRIM6 IS CODED HERE C C TRANSFORMATION MATRIX BETWEEN ELEMENT AND BASIC COORDINATES C ES(1) = IVECT(1) ES(2) = JVECT(1) ES(3) = IVECT(2) ES(4) = JVECT(2) ES(5) = IVECT(3) ES(6) = JVECT(3) DO 90 I = 1,9 BALOTR(I) = 0.0 90 CONTINUE C DO 100 I = 1,7 PH1OUT(I) = EST(I) 100 CONTINUE PH1OUT( 8) = EST(10) PH1OUT( 9) = EST(11) PH1OUT(10) = EST(12) PH1OUT(11) = TREF EMOD(1) = EM(1) EMOD(2) = EM(2) EMOD(3) = EM(3) EMOD(4) = EM(2) EMOD(5) = EM(4) EMOD(6) = EM(5) EMOD(7) = EM(3) EMOD(8) = EM(5) EMOD(9) = EM(6) C CALL GMMATS (EMOD,3,3,0,ALF(1),3,1,0,PH1OUT(228)) DO 210 JJ = 1,3 J = 2*JJ - 1 X = XC(J) Y = YC(J) DO 110 I = 1,36 TMMM(I) = 0.0 110 CONTINUE C C TM MATRIX IS THE PRODUCT OF B AND QINVERSE MATRICES C DO 120 J = 1,6 J1 = (J-1)*2 + 1 J2 = J1 + 1 TM(1,J1) = Q(2,J) + 2.0*X*Q(4,J) + Y*Q(5,J) TM(2,J2) = Q(3,J) + X*Q(5,J) + 2.0*Y*Q(6,J) TM(3,J1) = TM(2,J2) TM(3,J2) = TM(1,J1) 120 CONTINUE C C ZERO STRESS VECTOR STORAGE C DO 130 I = 1,3 STRESS(I) = 0.0 130 CONTINUE C DO 180 II = 1,6 IJ1 = (JJ-1)*54 + (II-1)*9 + 12 IF (ICS(II) .EQ. 0) GO TO 140 CALL TRANSS (IEST(4*II+24),TRANS) CALL GMMATS (ES,3,2,+1,TRANS,3,3,0,EE1) GO TO 160 140 CONTINUE DO 150 I = 1,3 DO 150 J = 1,2 I1 = (I-1)*2 + J J1 = (J-1)*3 + I EE1(J1) = ES(I1) 150 CONTINUE 160 CONTINUE MZ = (II-1)*6 + 1 CALL GMMATS (EMOD,3,3,0,TMMM(MZ),2,3,+1,EPH1) CALL GMMATS (EPH1,3,2,0,EE1,2,3,0,PH1OUT(IJ1)) C C POINTER TO I-TH SIL IN PH1OUT C NPOINT = 55 + (II-1)*6 C C POINTER TO 3X3 S SUB I MATRIX C NPT1 = 12 + (II-1)*9 + (JJ-1)*54 C CALL GMMATS (PH1OUT(NPT1),3,3,0,EST(NPOINT),3,1,0,VEC(1)) DO 170 J = 1,3 STRESS(J) = STRESS(J) + VEC(J) STR(J) = STRESS(J) 170 CONTINUE 180 CONTINUE IF (IEST(54) .EQ. -1) GO TO 200 TEM = EST(54) - PH1OUT(11) DO 190 I = 1,3 STRESS(I) = STRESS(I) - PH1OUT(227+I)*TEM STR(I) = STRESS(I) 190 CONTINUE 200 CONTINUE SIGX(JJ) = STRESS(1) SIGY(JJ) = STRESS(2) SIGXY(JJ) = STRESS(3) 210 CONTINUE C C EL, FL, GL ARE COEFFICIENTS IN LINEAR VARIATION OF SIGX, SIGY, C SIGXY RESPECTIVELY OVER THE ELEMENT C C EL(1) = (SIGX(1)*A + SIGX(2)*B)/(A+B) EL(2) = (SIGX(2) - SIGX(1))/(A+B) EL(3) = (SIGX(3) - EL(1))/C FL(1) = (SIGY(1)*A + SIGY(2)*B)/(A+B) FL(2) = (SIGY(2) - SIGY(1))/(A+B) FL(3) = (SIGY(3) - FL(1))/C GL(1) = (SIGXY(1)*A + SIGXY(2)*B)/(A+B) GL(2) = (SIGXY(2) - SIGXY(1))/(A+B) GL(3) = (SIGXY(3) - GL(1))/C C C EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR C THICKNESS VARIATION C CALL AF (F,18,A,B,C,CAB1,CAB2,CAB3,TMEM1,TMEM3,TMEM5,0) CAB(1) = CAB1 CAB(2) = CAB2 CAB(3) = CAB3 UNIMEM =.FALSE. UNIBEN =.FALSE. C D334 = D33*4.0D0 D132 = D13*2.0D0 D232 = D23*2.0D0 C C A1,A2,A3 ARE THE COEFFICIENTS OF LINEAR EQUATION FOR VARIATION C OF BENDING THICKNESSES C CALL AF (F,18,A,B,C,A1,A2,A3,THK1,THK2,THK3,0) IF (ABS(CAB2).LE.1.E-6 .AND. ABS(CAB3).LE.1.E-6) UNIMEM =.TRUE. IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN =.TRUE. A1SQ = A1*A1 A2SQ = A2*A2 A3SQ = A3*A3 C1 = A1SQ*A1 C2 = 3.0*A1SQ*A2 C3 = 3.0*A1SQ*A3 C4 = 3.0*A1*A2SQ C5 = 6.0*A1*A2*A3 C6 = 3.0*A3SQ*A1 C7 = A2SQ*A2 C8 = 3.0*A2SQ*A3 C9 = 3.0*A2*A3SQ C10 = A3*A3SQ C CALL AF (F,18,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,0) H4 = Q(4,1)*ZC(1) + Q(4,2)*ZC(2) + Q(4,3)*ZC(3) + Q(4,4)*ZC(4) + 1 Q(4,5)*ZC(5) + Q(4,6)*ZC(6) H5 = Q(5,1)*ZC(1) + Q(5,2)*ZC(2) + Q(5,3)*ZC(3) + Q(5,4)*ZC(4) + 1 Q(5,5)*ZC(5) + Q(5,6)*ZC(6) H6 = Q(6,1)*ZC(1) + Q(6,2)*ZC(2) + Q(6,3)*ZC(3) + Q(6,4)*ZC(4) + 1 Q(6,5)*ZC(5) + Q(6,6)*ZC(6) H4 = H4*2.0D0 H6 = H6*2.0D0 C C H5 IS MULTIPLIED BY 2.0, SO THAT EXY=DU/DY + DV/DX - ZXY*W C H5 = H5*2.0D0 C DO 260 I = 1,32 IX = XU(I) RIX = IX JX = YU(I) RJX = JX KX = XV(I) RKX = KX LX = YV(I) RLX = LX MX = XW(I) RMX = MX NX = YW(I) RNX = NX RMNX = RMX*RNX RMX1 = RMX*(RMX-1.0D0) RNX1 = RNX*(RNX-1.0D0) C DO 250 J = I,32 IJ = (I-1)*32 + J JI = (J-1)*32 + I IY = XU(J) RIY = IY JY = YU(J) RJY = JY KY = XV(J) RKY = KY LY = YV(J) RLY = LY MY = XW(J) RMY = MY NY = YW(J) RNY = NY RMNY = RMY*RNY RMY1 = RMY*(RMY-1.0) RNY1 = RNY*(RNY-1.0) ST = 0.0D0 DO 230 K = 1,3 DO 220 L = 1,3 RR = RK(K) + RL(L) RR0 = RK(K) + RL(L) - 1 RR1 = RK(K) + RL(L) + 1 SS = SK(K) + SL(L) SS0 = SK(K) + SL(L) - 1 SS1 = SK(K) + SL(L) + 1 MM = MX + MY MMRR0 = MM + RR0 MMRR1 = MM + RR1 NN = NX + NY NNSS1 = NN + SS1 NNSS0 = NN + SS0 MMRR = MM + RR NNSS = NN + SS KK = KX + KY KKRR0 = KK + RR0 LL = LX + LY LLSS1 = LL + SS1 II = IX + IY JJ = JX + JY IIRR1 = II + RR1 JJSS0 = JJ + SS0 KI = KX + IY KIRR = KI + RR LJ = LX + JY LJSS = LJ + SS IK = IX + KY IKRR = IK + RR JL = JX + LY JLSS = JL + SS KM = KX + MY KMRR = KM + RR LN = LX + NY LNSS1 = LN + SS1 IM = IX + MY IMRR1 = IM + RR1 JN = JX + NY JNSS = JN + SS KKRR = KK + RR LLSS = LL + SS KIRR1 = KI + RR1 LJSS0 = LJ + SS0 MK = MX + KY MKRR = MK + RR NLSS1 = NX + LY + SS1 MI = MX + IY MIRR1 = MI + RR1 NJ = NX + JY NJSS = NJ + SS IKRR0 = IK + RR0 JLSS1 = JL + SS1 IIRR = II + RR JJSS = JJ + SS IKRR1 = IK + RR1 JLSS0 = JL + SS0 LNSS1 = LN + SS1 KIRR0 = KI + RR0 LJSS1 = LJ + SS1 SB1 = 0.0D0 SB2 = 0.0D0 SB3 = 0.0D0 SB4 = 0.0D0 SB5 = 0.0D0 SB6 = 0.0D0 SB7 = 0.0D0 SB8 = 0.0D0 SB9 = 0.0D0 SB10 = 0.0D0 SB11 = 0.0D0 SB12 = 0.0D0 SB13 = 0.0D0 SB14 = 0.0D0 SB15 = 0.0D0 SB16 = 0.0D0 SB17 = 0.0D0 SB18 = 0.0D0 SB19 = 0.0D0 SB20 = 0.0D0 SB21 = 0.0D0 SB22 = 0.0D0 SB23 = 0.0D0 SB24 = 0.0D0 SB25 = 0.0D0 SB26 = 0.0D0 SB27 = 0.0D0 SB28 = 0.0D0 SB29 = 0.0D0 SB30 = 0.0D0 SB31 = 0.0D0 SB32 = 0.0D0 SB33 = 0.0D0 SB34 = 0.0D0 SB35 = 0.0D0 SB36 = 0.0D0 SB37 = 0.0D0 SB38 = 0.0D0 SB39 = 0.0D0 SB40 = 0.0D0 IF (MMRR0 .GT. 0) SB1 = CAB(K)*EL(L)*RMX*RMY*F(MMRR0,NNSS1) IF (NNSS0 .GT. 0) SB2 = CAB(K)*FL(L)*RNX*RNY*F(MMRR1,NNSS0) IF (MMRR.GT.0 .AND. NNSS.GT.0) SB3 = CAB(K)*GL(L)*RNX*RMY* 1 F(MMRR,NNSS) IF (MMRR.GT.0 .AND. NNSS.GT.0) SB4 = CAB(K)*GL(L)*RMX*RNY* 1 F(MMRR,NNSS) IF (KKRR0 .GT. 0) SB5 = CAB(K)*EL(L)*RKX*RKY*F(KKRR0,LLSS1) IF (JJSS0 .GT. 0) SB6 = CAB(K)*EL(L)*RJX*RJY*F(IIRR1,JJSS0) IF (KIRR.GT.0 .AND. LJSS.GT.0) SB7 = CAB(K)*EL(L)*RKX*RJY* 1 F(KIRR,LJSS) IF (IKRR.GT.0 .AND. JLSS.GT.0) SB8 = CAB(K)*EL(L)*RJX*RKY* 1 F(IKRR,JLSS) IF (KIRR.GT.0 .AND. LJSS.GT.0) SB9 = CAB(K)*EL(L)*RKX*RJY* 1 F(KIRR,LJSS) IF (KKRR0 .GT. 0) SB10 = CAB(K)*EL(L)*RKX*RKY*F(KKRR0,LLSS1) IF (KMRR .GT. 0) SB11 = CAB(K)*EL(L)*RKX*H5*F(KMRR,LNSS1) IF (JJSS0 .GT. 0) SB12 = CAB(K)*EL(L)*RJX*RJY*F(IIRR1,JJSS0) IF (IKRR.GT.0 .AND. JLSS.GT.0) SB13 = CAB(K)*EL(L)*RJX*RKY* 1 F(IKRR,JLSS) IF (JNSS .GT. 0) SB14 = CAB(K)*EL(L)*RJX*H5*F(IMRR1,JNSS) IF (KKRR0 .GT. 0) SB15 = CAB(K)*FL(L)*RKX*RKY*F(KKRR0,LLSS1) IF (KIRR.GT.0 .AND. LJSS.GT.0) SB16 = CAB(K)*FL(L)*RKX*RJY* 1 F(KIRR,LJSS) IF (JJSS0 .GT. 0) SB17 = CAB(K)*FL(L)*RJX*RJY*F(IIRR1,JJSS0) IF (IKRR.GT.0 .AND. JLSS.GT.0) SB18 = CAB(K)*FL(L)*RJX*RKY* 1 F(IKRR,JLSS) IF (KIRR.GT.0 .AND. LJSS.GT.0) SB19 = CAB(K)*FL(L)*RKX*RJY* 1 F(KIRR,LJSS) IF (KKRR0 .GT. 0) SB20 = CAB(K)*FL(L)*RKX*RKY*F(KKRR0,LLSS1) IF (KMRR .GT. 0) SB21 = CAB(K)*FL(L)*RKX*H5*F(KMRR,LNSS1) IF (JJSS0 .GT. 0) SB22 = CAB(K)*FL(L)*RJX*RJY*F(IIRR1,JJSS0) IF (IKRR.GT.0 .AND. JLSS.GT.0) SB23 = CAB(K)*FL(L)*RJX*RKY* 1 F(IKRR,JLSS) IF (JNSS .GT. 0) SB24 = CAB(K)*FL(L)*RJX*H5*F(IMRR1,JNSS) IF (KKRR.GT.0 .AND. LLSS.GT.0) SB25 = CAB(K)*GL(L)*RLX*RKY* 1 F(KKRR,LLSS) IF (KKRR.GT.0 .AND. LLSS.GT.0) SB26 = CAB(K)*GL(L)*RKX*RLY* 1 F(KKRR,LLSS) IF (LJSS0 .GT. 0) SB27 = CAB(K)*GL(L)*RLX*RJY*F(KIRR1,LJSS0) IF (JLSS0 .GT. 0) SB28 = CAB(K)*GL(L)*RJX*RLY*F(IKRR1,JLSS0) IF (MKRR .GT. 0) SB29 = CAB(K)*GL(L)*RKY*H6*F(MKRR,NLSS1) IF (KMRR .GT. 0) SB30 = CAB(K)*GL(L)*RKX*H6*F(KMRR,LNSS1) IF (NJSS .GT. 0) SB31 = CAB(K)*GL(L)*RJY*H6*F(MIRR1,NJSS) IF (JNSS .GT. 0) SB32 = CAB(K)*GL(L)*RJX*H6*F(IMRR1,JNSS) IF (IKRR0 .GT. 0) SB33 = CAB(K)*GL(L)*RIX*RKY*F(IKRR0,JLSS1) IF (KIRR0 .GT. 0) SB34 = CAB(K)*GL(L)*RKX*RIY*F(KIRR0,LJSS1) IF (IIRR.GT.0 .AND. JJSS.GT.0) SB35 = CAB(K)*GL(L)*RIX*RJY* 1 F(IIRR,JJSS) IF (IIRR.GT.0 .AND. JJSS.GT.0) SB36 = CAB(K)*GL(L)*RJX*RIY* 1 F(IIRR,JJSS) IF (MKRR .GT. 0) SB37 = CAB(K)*GL(L)*RKY*H4*F(MKRR,NLSS1) IF (KMRR .GT. 0) SB38 = CAB(K)*GL(L)*RKX*H4*F(KMRR,LNSS1) IF (NJSS .GT. 0) SB39 = CAB(K)*GL(L)*RJY*H4*F(MIRR1,NJSS) IF (JNSS .GT. 0) SB40 = CAB(K)*GL(L)*RJX*H4*F(IMRR1,JNSS) ST = ST + SB1 + SB2 + SB3 + SB4 + 1 0.25*(SB5+SB6-SB7-SB8) + (SB9+SB10-SB11-SB12-SB13+SB14) + 2 0.25*(SB15-SB16+SB17-SB18) + (-SB19-SB20+SB21+SB22+SB23-SB24) 3 + 0.5*(SB25+SB26-SB27-SB28-SB29-SB30+SB31+SB32) + 4 0.5*(-SB33-SB34+SB35+SB36+SB37+SB38-SB39-SB40) 220 CONTINUE IF (UNIMEM) GO TO 240 230 CONTINUE 240 CONTINUE KSHL(IJ) = ST KSHL(JI) = KSHL(IJ) 250 CONTINUE 260 CONTINUE C C IF NO TRANSVERSE SHEAR GO TO 230 C C IF TSHR EQUAL TO ZERO OR MATID3 EQUAL TO ZERO , SKIP THESE C CALCULATION C IF (NOTS) GO TO 270 C C CURRENTLY, TRANSVERSE SHEAR CALCULATIONS ARE NOT CODED FOR SHELL C ELEMENT WHEN IT IS CODED, CALL THE ROUTINE HERE C 270 CONTINUE CALL GMMATD (Q,6,6,0,KSHL(1),6,32,0,QKS(1)) CALL GMMATD (Q,6,6,0,KSHL(193),6,32,0,QKS(193)) CALL GMMATD (QQQINV,20,18,+1,KSHL(385),20,32,0,QKS(385)) DO 290 I = 1,30 DO 280 J = 1,6 IJ = (I-1)*32 + J JI = (I-1)*6 + J KSHL( JI) = QKS( IJ) KSHL(180+JI) = QKS(6+IJ) 280 CONTINUE 290 CONTINUE DO 310 I = 1,30 DO 300 J = 1,20 IJ = (I-1)*32 + J + 12 JI = (I-1)*20 + J + 360 KSHL(JI) = QKS(IJ) 300 CONTINUE 310 CONTINUE CALL GMMATD (KSHL( 1),30,6 ,0,Q,6,6,1 ,QKS( 1)) CALL GMMATD (KSHL(181),30,6 ,0,Q,6,6,1 ,QKS(181)) CALL GMMATD (KSHL(361),30,20,0,QQQINV,20,18,0,QKS(361)) DO 330 I = 1,30 DO 320 J = 1,6 IJ = (I-1)*30 + J JI = (I-1)*6 + J CMS(IJ ) = QKS(JI ) CMS(IJ+6) = QKS(JI+180) 320 CONTINUE 330 CONTINUE DO 350 I = 1,30 DO 340 J = 1,18 IJ = (I-1)*30 + J + 12 JI = (I-1)*18 + J + 360 CMS(IJ) = QKS(JI) 340 CONTINUE 350 CONTINUE DO 360 I = 1,30 EE(I) = 0.0D0 360 CONTINUE EE( 1) = IVECT(1) EE( 2) = JVECT(1) EE( 3) = KVECT(1) EE( 6) = IVECT(2) EE( 7) = JVECT(2) EE( 8) = KVECT(2) EE(11) = IVECT(3) EE(12) = JVECT(3) EE(13) = KVECT(3) EE(19) = IVECT(1) EE(20) = JVECT(1) EE(24) = IVECT(2) EE(25) = JVECT(2) EE(29) = IVECT(3) EE(30) = JVECT(3) DO 390 K = 1,6 DO 380 I = 1,2 K1 = 6*(I-1) + K I1 = 5*(K-1) + I DO 370 J = 1,30 CTM (I1,J) = CM1(K1,J) 370 CONTINUE 380 CONTINUE 390 CONTINUE DO 420 K = 1,6 DO 410 I = 1,3 I2 = 5*(K-1) + I + 2 K2 = 12 + (K-1)*3 + I DO 400 J = 1,30 CTM (I2,J) = CM1(K2,J) 400 CONTINUE 410 CONTINUE 420 CONTINUE DO 450 K = 1,6 DO 440 I = 1,2 K1 = 6*(I-1) + K I1 = 5*(K-1) + I DO 430 J = 1,30 CM1(J,I1) = CTM (J,K1) 430 CONTINUE 440 CONTINUE 450 CONTINUE DO 480 K = 1,6 DO 470 I = 1,3 I2 = 5*(K-1) + I + 2 K2 = 12 + (K-1)*3 + I DO 460 J = 1,30 CM1(J,I2) = CTM(J,K2) 460 CONTINUE 470 CONTINUE 480 CONTINUE C C LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS C COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES C ARE R C - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO) C C TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC C COORDINATE C C TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINATES TO GLOBAL (DISP) C COORDINATES C C INSERT THE 6X6 SUBMATRIX INTO KGG MATRIX C DO 490 I = 1,1296 CMT(I) = 0.0D0 490 CONTINUE DO 500 I = 1,6 SIL(I) = I 500 CONTINUE DO 510 I = 1,6 IF (NPVT .NE. IEST(I+1)) GO TO 510 NPIVOT = I GO TO 520 510 CONTINUE NOGO = .TRUE. WRITE (IOUTPT,720) SFM,IEST(1) RETURN C 520 CONTINUE I = NPIVOT SIL1 = SIL(NPIVOT) DO 650 J = 1,6 SIL2 = SIL(J) DO 530 II = 1,36 BALOTR(II) = 0.0D0 KSUB(II) = 0.0D0 530 CONTINUE DO 550 K = 1,5 K1 = (SIL1-1)*5 + K DO 540 L = 1,5 L1 = (SIL2-1)*5 + L CSUB(K,L) = CM1(K1,L1) 540 CONTINUE 550 CONTINUE CALL GMMATD (EE,6,5,0,CSUB,5,5,0,CSUBT) CALL GMMATD (CSUBT,6,5,0,EE,6,5,+1,KSUBT) DO 560 K = 1,6 DO 560 L = 1,6 K1 = (K-1)*6 + L L1 = (L-1)*6 + K KSUB(L1) = KSUBT(K1) 560 CONTINUE C C TRANSFORM THE KSUB(36) FROM BASIC TO DISPLACEMENT COORDINATES C IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 590 CALL TRANSD (IEST(4*SIL1+24),TRAND) DO 570 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 570 CONTINUE CALL GMMATD (BALOTR(1),6,6,1,KSUB(1),6,6,0,KSUBT) DO 580 K = 1,36 KSUB(K) = KSUBT(K) 580 CONTINUE 590 CONTINUE IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 630 IF (J .EQ. I) GO TO 610 CALL TRANSD (IEST(4*SIL2+24),TRAND) DO 600 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 600 CONTINUE 610 CONTINUE CALL GMMATD (KSUB(1),6,6,0,BALOTR(1),6,6,0,KSUBT) DO 620 K = 1,36 KSUB(K) = KSUBT(K) 620 CONTINUE 630 CONTINUE CALL DS1B (KSUB(1),IEST(J+1)) 650 CONTINUE GO TO 730 660 CONTINUE NOGO =.TRUE. WRITE (IOUTPT,700) UFM,IEST(1) RETURN C 670 CONTINUE NOGO =.TRUE. WRITE (IOUTPT,710) UFM,IEST(1) RETURN C 700 FORMAT (A23,' 2416, MATRIX RELATING GENERALIZED PARAMETERS AND ', 1 'GRID POINT DISPLACEMENTS IS SINGULAR.', /26X, 2 'CHECK COORDINATES OF ELEMENT TRSHL WITH ID =',I9,1H.) 710 FORMAT (A23,' 2418, MATERIAL ID FOR MEMBRANE EFFECTS IS LESS ', 1 'THAN OR EQUAL TO ZERO FOR TRSHL ELEMENT WITH ID =',I9,1H.) 720 FORMAT (A25,' 2419, PIVOT POINT IS NOT EQUAL TO TRSHL ELEMENT ', 1 'GRID POINTS FOR ELEMENT ID =',I9,1H.) 730 CONTINUE RETURN END ================================================ FILE: mis/dtshls.f ================================================ SUBROUTINE DTSHLS C C ECPT ENTRIES C C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1 INTEGER C ECPT( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2 INTEGER C ECPT( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3 INTEGER C ECPT( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4 INTEGER C ECPT( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5 INTEGER C ECPT( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6 INTEGER C ECPT( 8) = THETA REAL C ECPT( 9) = MATERIAL ID 1 INTEGER C ECPT(10) = THICKNESS T1 AT GRID POINT G1 C ECPT(11) = THICKNESS T3 AT GRID POINT G3 C ECPT(12) = THICKNESS T5 AT GRID POINT G5 C ECPT(13) = MATERIAL ID 2 INTEGER C ECPT(14) = THICKNESS TBEND1 FOR BENDING AT GRID POINT G1 C ECPT(15) = THICKNESS TBEND3 FOR BENDING AT GRID POINT G3 C ECPT(16) = THICKNESS TBEND5 FOR BENDING AT GRID POINT G5 C ECPT(17) = MATERIAL ID 3 INTEGER C ECPT(18) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID POINT G1 C ECPT(19) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID POINT G3 C ECPT(20) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID POINT G5 C ECPT(21) = NON-STRUCTURAL MASS REAL C ECPT(22) = DISTANCE Z11 FOR STRESS CALCULATION AT GRID POINT G1 C ECPT(23) = DISTANCE Z21 FOR STRESS CALCULATION AT GRID POINT G1 C ECPT(24) = DISTANCE Z13 FOR STRESS CALCULATION AT GRID POINT G3 C ECPT(25) = DISTANCE Z23 FOR STRESS CALCULATION AT GRID POINT G3 C ECPT(26) = DISTANCE Z15 FOR STRESS CALCULATION AT GRID POINT G5 C ECPT(27) = DISTANCE Z25 FOR STRESS CALCULATION AT GRID POINT G5 C C X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM C C ECPT(28) = COORDINATE SYSTEM ID FOR GRID A INTEGER C ECPT(29) = COORDINATE X1 REAL C ECPT(30) = COORDINATE Y1 REAL C ECPT(31) = COORDINATE Z1 REAL C ECPT(32) = COORDINATE SYSTEM ID FOR GRID B INTEGER C ECPT(33) = COORDINATE X1 REAL C ECPT(34) = COORDINATE Y1 REAL C ECPT(35) = COORDINATE Z1 REAL C ECPT(36) = COORDINATE SYSTEM ID FOR GRID C INTEGER C ECPT(37) = COORDINATE X1 REAL C ECPT(38) = COORDINATE Y1 REAL C ECPT(39) = COORDINATE Z1 REAL C ECPT(40) = COORDINATE SYSTEM ID FOR GRID D INTEGER C ECPT(41) = COORDINATE X1 REAL C ECPT(42) = COORDINATE Y1 REAL C ECPT(43) = COORDINATE Z1 REAL C ECPT(44) = COORDINATE SYSTEM ID FOR GRID E INTEGER C ECPT(45) = COORDINATE X1 REAL C ECPT(46) = COORDINATE Y1 REAL C ECPT(47) = COORDINATE Z1 REAL C ECPT(48) = COORDINATE SYSTEM ID FOR GRID F INTEGER C ECPT(49) = COORDINATE X1 REAL C ECPT(50) = COORDINATE Y1 REAL C ECPT(51) = COORDINATE Z1 REAL C EST (52) = ELEMENT TEMPERATURE C EST (53) = ENFORCED ELEMENT DEFORMATION (NOT USED) C EST (54) = LOADING TEMPERATURE C EST (55) TO EST (90) = GLOBAL DISPLACEMENT VECTOR C REPLACES ECPT(65) TO ECPT(100) DESCRIBED BELOW C ECPT(65) = U1-DISP FOR X1 C ECPT(66) = V1-DISP FOR Y1 C ECPT(67) = W1-DISP FOR Z1 C ECPT(68) = ALFA1-ROTATION FOR X1 C ECPT(69) = BETA1-ROTATION FOR Y1 C ECPT(70) = GAMA1-ROTATION FOR Z1 C ECPT(71) = U2-DISP FOR X2 C ECPT(72) = V2-DISP FOR Y2 C ECPT(73) = W2-DISP FOR Z2 C ECPT(74) = ALFA2-ROTATION FOR X2 C ECPT(75) = BETA2-ROTATION FOR Y2 C ECPT(76) = GAMA2-ROTATION FOR Z2 C ECPT(77) = U3-DISP FOR X3 C ECPT(78) = V3-DISP FOR Y3 C ECPT(79) = W3-DISP FOR Z3 C ECPT(80) = ALFA3-ROTATION FOR X3 C ECPT(81) = BETA3-ROTATION FOR Y3 C ECPT(82) = GAMA3-ROTATION FOR Z3 C ECPT(83) = U4-DISP FOR X4 C ECPT(84) = V4-DISP FOR Y4 C ECPT(85) = W4-DISP FOR Z4 C ECPT(86) = ALFA4-ROTATION FOR X4 C ECPT(87) = BETA4-ROTATION FOR Y4 C ECPT(88) = GAMA4-ROTATION FOR Z4 C ECPT(89) = U5-DISP FOR X5 C ECPT(90) = V5-DISP FOR Y5 C ECPT(91) = W5-DISP FOR Z5 C ECPT(92) = ALFA5-ROTATION FOR X5 C ECPT(93) = BETA5-ROTATION FOR Y5 C ECPT(94) = GAMA5-ROTATION FOR Z5 C ECPT(95) = U6-DISP FOR X6 C ECPT(96) = V6-DISP FOR Y6 C ECPT(97) = W6-DISP FOR Z6 C ECPT(98) = ALFA6-ROTATION FOR X6 C ECPT(99) = BETA6-ROTATION FOR Y6 C ECPT(100)= GAMA6-ROTATION FOR Z6 C C RK AND SK ARE EXPONENTS IN THICKNESS VARIATION C LOGICAL NOTS,UNIMEM,UNIBEN,NOGO INTEGER RK(3),SK(3),RL(3),SL(3),XU(32),YU(32),XV(32), 1 YV(32),XW(32),YW(32),SIL(6),SIL1,SIL2, 2 RR,RR0,RR1,SS,SS0,SS1 REAL J11,J12,J22,NSM,IVECT(3),JVECT(3),KVECT(3),XC(6), 1 YC(6),ZC(6),F(18,18) REAL TRAND(9),BALOTR(36),KSUB(36),KSUBT(36) REAL D334,D132,D232,RMX,RNX,RMNX,RMX1,RNX1,RMY,RNY, 1 RMNY,RMY1,RNY1,X,Y,QQQ(20,20),CMT(1296), 2 CTM(36,36),CMS(900),CM1(30,30),CAB(3),CSUB(5,5), 3 CSUBT(6,5),C1,C2,C3,C4,C5,C6,C7,C8,C9,C10, 4 H4,H5,H6,SB1,SB2,SB3,SB4,SB5,SB6,SB7,SB8,SB9, 5 RIX,RIY,RJX,RJY,RKX,RKY,RLX,RLY,EE(30),Q(6,6), 6 QQQINV(360),QKS(960),KSHL(1024),MSHL(1024) REAL SB10,SB11,SB12,SB13,SB14,SB15,SB16,SB17,SB18,SB19 1, SB20,SB21,SB22,SB23,SB24,SB25,SB26,SB27,SB28,SB29 2, SB30,SB31,SB32,SB33,SB34,SB35,SB36,SB37,SB38,SB39 3, SB40,CC(10),ST DOUBLE PRECISION KSUBD(36) DIMENSION IND(6,3),EL(3),FL(3),GL(3),NAME(2),INDEX(20,3), 1 ICS(6),IEST(100),NL(6),SIGX(3),SIGY(3),SIGXY(3), 2 ES(6),STRESS(3),STR(3),VEC(3),PH1OUT(250), 3 TM(3,12),EMOD(9),TMMM(36),TRANS(9),EPH1(6), 4 EE1(6),NSIL(6),TI(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ IBUF,IOUTPT COMMON /DS1AET/ EST(100) COMMON /DS1AAA/ NPVT,ICSTM,NCSTM COMMON /DS1ADP/ F COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 EQUIVALENCE (C1,CC(1)),(C2,CC(2)),(C3,CC(3)),(C4,CC(4)), 1 (C5,CC(5)),(C6,CC(6)),(C7,CC(7)),(C8,CC(8)), 2 (C9,CC(9)),(C10,CC(10)), 3 (NSIL(1),PH1OUT(2)),(TM(1,1),TMMM(1)),(A,DISTA), 4 (B,DISTB),(C,DISTC),(IEST(1),EST(1)), 5 (CM1(1,1),CMS(1)),(THK1,TBEND1),(THK2,TBEND3), 6 (THK3,TBEND5),(CMT(1025),QQQINV(1)), 7 (CTM(1,1),CMT(1),KSHL(1),MSHL(1),QQQ(1,1)), 8 (CMT(437),PH1OUT(1)),(CMT(687),INDEX(1,1)), 9 (CMT(747),IND(1,1)),(TI(1),EST(65)) DATA RK / 0,1,0 /, RL / 0,1,0 /, SK / 0,0,1 /, SL / 0,0,1/, 1 XU / 0,1,0,2,1,0,26*0 /, YU / 0,0,1,0,1,2,26*0 /, 2 XV / 6*0,0,1,0,2,1,0,20*0/, YV /6*0,0,0,1,0,1,2,20*0/, 3 XW / 12*0,0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0 /, 4 YW / 12*0,0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5 /, 5 BLANK , NAME / 4H ,4HDTSH,4HLD /, 6 DEGRA / 0.0174532925 / C NOTS =.FALSE. IDELE = IEST(1) DO 10 I = 1,6 NL(I) = IEST(I+1) 10 CONTINUE THETAM = EST(8) MATID1 = IEST(9) TMEM1 = EST(10) TMEM3 = EST(11) TMEM5 = EST(12) MATID2 = IEST(13) TBEND1 = (EST(14)*12.0)**0.333333333333 TBEND3 = (EST(15)*12.0)**0.333333333333 TBEND5 = (EST(16)*12.0)**0.333333333333 MATID3 = IEST(17) TSHR1 = EST(18) TSHR3 = EST(19) TSHR5 = EST(20) NSM = EST(21) J = 0 DO 20 I = 28,48,4 J = J + 1 ICS(J) = IEST(I) XC(J) = EST(I+1) YC(J) = EST(I+2) ZC(J) = EST(I+3) 20 CONTINUE C C IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK, THEY WILL BE C SET EQUAL TO TMEM1 SO ALSO FOR TSHR3,TSHR5,TBEND3 AND TBEND5 C IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1 IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1 IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1 TSHR = (TSHR1+TSHR3+TSHR5)/3.0 IF (TSHR1 .EQ. 0.0) NOTS =.TRUE. IF (TBEND3.EQ.0.0 .OR. TBEND3.EQ.BLANK) TBEND3 = TBEND1 IF (TBEND5.EQ.0.0 .OR. TBEND5.EQ.BLANK) TBEND5 = TBEND1 ELTEMP = EST(52) THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C EVALUTE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 IF (MATID1 .LE. 0) GO TO 670 CALL MAT (IDELE) C MATFLG = 2 MATID = MATID2 CALL MAT (IDELE) D13 = EM(3) D23 = EM(5) D33 = EM(6) J11 = 0.0 J12 = 0.0 J22 = 0.0 IF (NOTS) GO TO 30 MATFLG = 3 MATID = MATID3 CALL MAT (IDELE) J11 = 1.0/(RJ11*TSHR) J12 = 0.0 J22 = 1.0/(RJ22*TSHR) 30 CONTINUE C C CALCULATIONS FOR THE TRIANGLE C CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME) C C CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE C DO 40 I = 1,20 DO 40 J = 1,20 40 QQQ(I,J) = 0.0 DO 50 I = 1,6 I1 = (I-1)*3 + 1 I2 = (I-1)*3 + 2 I3 = (I-1)*3 + 3 QQQ(I1, 1) = 1.0 QQQ(I1, 2) = XC(I) QQQ(I1, 3) = YC(I) QQQ(I1, 4) = XC(I)*XC(I) QQQ(I1, 5) = XC(I)*YC(I) QQQ(I1, 6) = YC(I)*YC(I) QQQ(I1, 7) = QQQ(I1, 4)*XC(I) QQQ(I1, 8) = QQQ(I1, 4)*YC(I) QQQ(I1, 9) = QQQ(I1, 5)*YC(I) QQQ(I1,10) = QQQ(I1, 6)*YC(I) QQQ(I1,11) = QQQ(I1, 7)*XC(I) QQQ(I1,12) = QQQ(I1, 7)*YC(I) QQQ(I1,13) = QQQ(I1, 8)*YC(I) QQQ(I1,14) = QQQ(I1, 9)*YC(I) QQQ(I1,15) = QQQ(I1,10)*YC(I) QQQ(I1,16) = QQQ(I1,11)*XC(I) QQQ(I1,17) = QQQ(I1,12)*YC(I) QQQ(I1,18) = QQQ(I1,13)*YC(I) QQQ(I1,19) = QQQ(I1,14)*YC(I) QQQ(I1,20) = QQQ(I1,15)*YC(I) QQQ(I2, 3) = 1.0 QQQ(I2, 5) = XC(I) QQQ(I2, 6) = YC(I)*2.0 QQQ(I2, 8) = QQQ(I1, 4) QQQ(I2, 9) = QQQ(I1, 5)*2.0 QQQ(I2,10) = QQQ(I1, 6)*3.0 QQQ(I2,12) = QQQ(I1, 7) QQQ(I2,13) = QQQ(I1, 8)*2.0 QQQ(I2,14) = QQQ(I1, 9)*3.0 QQQ(I2,15) = QQQ(I1,10)*4.0 QQQ(I2,17) = QQQ(I1,12)*2.0 QQQ(I2,18) = QQQ(I1,13)*3.0 QQQ(I2,19) = QQQ(I1,14)*4.0 QQQ(I2,20) = QQQ(I1,15)*5.0 QQQ(I3, 2) =-1.0 QQQ(I3, 4) =-2.0*XC(I) QQQ(I3, 5) =-YC(I) QQQ(I3, 7) =-QQQ(I1, 4)*3.0 QQQ(I3, 8) =-QQQ(I1, 5)*2.0 QQQ(I3, 9) =-QQQ(I1, 6) QQQ(I3,11) =-QQQ(I1, 7)*4.0 QQQ(I3,12) =-QQQ(I1, 8)*3.0 QQQ(I3,13) =-QQQ(I1, 9)*2.0 QQQ(I3,14) =-QQQ(I1,10) QQQ(I3,16) =-QQQ(I1,11)*5.0 QQQ(I3,17) =-QQQ(I1,13)*3.0 QQQ(I3,18) =-QQQ(I1,14)*2.0 QQQ(I3,19) =-QQQ(I1,15) 50 CONTINUE QQQ(19,16) = 5.0*A**4*C QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2 QQQ(19,19) = C**5 - 4.0*A**2*C**3 QQQ(19,20) = 5.0*A*C**4 QQQ(20,16) = 5.0*B**4*C QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2 QQQ(20,19) = C**5 - 4.0*B**2*C**3 QQQ(20,20) =-5.0*B*C**4 DO 60 I = 1,6 I1 = (I-1)*3 + 1 DO 60 J = 1,6 Q(I,J) = QQQ(I1,J) 60 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (6,Q,6,QQQINV(1),0,DETERM,ISING,IND) IF (ISING .EQ. 2) GO TO 660 C C FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1) C IS U C C AGAIN RESET ISING TO -1 C ISING = -1 CALL INVERS (20,QQQ,20,QQQINV(1),0,DETERM,ISING,INDEX) C C ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR C IF (ISING .EQ. 2) GO TO 660 C C FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS C MA CALCULATIONS C DO 70 I = 1,20 DO 70 J = 1,18 IJ = (I-1)*18 + J QQQINV(IJ) = QQQ(I,J) 70 CONTINUE C C START EXECUTION FOR STIFFNESS MATRIX CALCULATION C C CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES C C OBTAIN MEMBRANE STRESSES C C RELEVANT PORTION OF STRESS ROUTINE OF TRIM6 IS CODED HERE C C TRANSFORMATION MATRIX BETWEEN ELEMENT AND BASIC COORDINATES C ES(1) = IVECT(1) ES(2) = JVECT(1) ES(3) = IVECT(2) ES(4) = JVECT(2) ES(5) = IVECT(3) ES(6) = JVECT(3) DO 90 I = 1,9 BALOTR(I) = 0.0 90 CONTINUE C DO 100 I = 1,7 PH1OUT(I) = EST(I) 100 CONTINUE PH1OUT( 8) = EST(10) PH1OUT( 9) = EST(11) PH1OUT(10) = EST(12) PH1OUT(11) = TREF EMOD(1) = EM(1) EMOD(2) = EM(2) EMOD(3) = EM(3) EMOD(4) = EM(2) EMOD(5) = EM(4) EMOD(6) = EM(5) EMOD(7) = EM(3) EMOD(8) = EM(5) EMOD(9) = EM(6) C CALL GMMATS (EMOD,3,3,0,ALF(1),3,1,0,PH1OUT(228)) DO 210 JJ = 1,3 J = 2*JJ - 1 X = XC(J) Y = YC(J) DO 110 I = 1,36 TMMM(I) = 0.0 110 CONTINUE C C TM MATRIX IS THE PRODUCT OF B AND Q INVERSE MATRICES C DO 120 J = 1,6 J1 = (J-1)*2 + 1 J2 = J1 + 1 TM(1,J1) = Q(2,J) + 2.0*X*Q(4,J) + Y*Q(5,J) TM(2,J2) = Q(3,J) + X*Q(5,J) + 2.0*Y*Q(6,J) TM(3,J1) = TM(2,J2) TM(3,J2) = TM(1,J1) 120 CONTINUE C C ZERO STRESS VECTOR STORAGE C DO 130 I = 1,3 STRESS(I) = 0.0 130 CONTINUE C DO 180 II = 1,6 IJ1 = (JJ-1)*54 + (II-1)*9 + 12 IF (ICS(II) .EQ. 0) GO TO 140 CALL TRANSS (IEST(4*II+24),TRANS) CALL GMMATS (ES,3,2,+1,TRANS,3,3,0,EE1) GO TO 160 140 CONTINUE DO 150 I = 1,3 DO 150 J = 1,2 I1 = (I-1)*2 + J J1 = (J-1)*3 + I EE1(J1) = ES(I1) 150 CONTINUE 160 CONTINUE MZ = (II-1)*6 + 1 CALL GMMATS (EMOD,3,3,0,TMMM(MZ),2,3,+1,EPH1) CALL GMMATS (EPH1,3,2,0,EE1,2,3,0,PH1OUT(IJ1)) C C POINTER TO I-TH SIL IN PH1OUT C NPOINT = 55 + (II-1)*6 C C POINTER TO 3X3 S SUB I MATRIX C NPT1 = 12 + (II-1)*9 + (JJ-1)*54 C CALL GMMATS (PH1OUT(NPT1),3,3,0,EST(NPOINT),3,1,0,VEC(1)) DO 170 J = 1,3 STRESS(J) = STRESS(J) + VEC(J) STR(J) = STRESS(J) 170 CONTINUE 180 CONTINUE IF (IEST(54) .EQ. -1) GO TO 200 TEM = EST(54) - PH1OUT(11) DO 190 I = 1,3 STRESS(I) = STRESS(I) - PH1OUT(227+I)*TEM STR(I) = STRESS(I) 190 CONTINUE 200 CONTINUE SIGX(JJ) = STRESS(1) SIGY(JJ) = STRESS(2) SIGXY(JJ) = STRESS(3) 210 CONTINUE C C EL, FL, GL ARE COEFFICIENTS IN LINEAR VARIATION OF SIGX, SIGY, C SIGXY RESPECTIVELY OVER THE ELEMENT C C EL(1) = (SIGX(1)*A + SIGX(2)*B)/(A+B) EL(2) = (SIGX(2) - SIGX(1))/(A+B) EL(3) = (SIGX(3) - EL(1))/C FL(1) = (SIGY(1)*A + SIGY(2)*B)/(A+B) FL(2) = (SIGY(2) - SIGY(1))/(A+B) FL(3) = (SIGY(3) - FL(1))/C GL(1) = (SIGXY(1)*A + SIGXY(2)*B)/(A+B) GL(2) = (SIGXY(2) - SIGXY(1))/(A+B) GL(3) = (SIGXY(3) - GL(1))/C C C EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR C THICKNESS VARIATION C CALL AF (F,18,A,B,C,CAB1,CAB2,CAB3,TMEM1,TMEM3,TMEM5,0) CAB(1) = CAB1 CAB(2) = CAB2 CAB(3) = CAB3 UNIMEM =.FALSE. UNIBEN =.FALSE. C D334 = D33*4.0 D132 = D13*2.0 D232 = D23*2.0 C C A1,A2,A3 ARE THE COEFFICIENTS OF LINEAR EQUATION FOR VARIATION C OF BENDING THICKNESSES C CALL AF (F,18,A,B,C,A1,A2,A3,THK1,THK2,THK3,0) IF (ABS(CAB2).LE.1.E-6 .AND. ABS(CAB3).LE.1.E-6) UNIMEM =.TRUE. IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN =.TRUE. A1SQ = A1*A1 A2SQ = A2*A2 A3SQ = A3*A3 C1 = A1SQ*A1 C2 = 3.0*A1SQ*A2 C3 = 3.0*A1SQ*A3 C4 = 3.0*A1*A2SQ C5 = 6.0*A1*A2*A3 C6 = 3.0*A3SQ*A1 C7 = A2SQ*A2 C8 = 3.0*A2SQ*A3 C9 = 3.0*A2*A3SQ C10 = A3*A3SQ H4 = Q(4,1)*ZC(1) + Q(4,2)*ZC(2) + Q(4,3)*ZC(3) + Q(4,4)*ZC(4) + 1 Q(4,5)*ZC(5) + Q(4,6)*ZC(6) H5 = Q(5,1)*ZC(1) + Q(5,2)*ZC(2) + Q(5,3)*ZC(3) + Q(5,4)*ZC(4) + 1 Q(5,5)*ZC(5) + Q(5,6)*ZC(6) H6 = Q(6,1)*ZC(1) + Q(6,2)*ZC(2) + Q(6,3)*ZC(3) + Q(6,4)*ZC(4) + 1 Q(6,5)*ZC(5) + Q(6,6)*ZC(6) H4 = H4*2.0 H6 = H6*2.0 C C H5 IS MULTIPLIED BY 2.0, SO THAT EXY=DU/DY + DV/DX - ZXY*W C H5 = H5*2.0 C DO 260 I = 1,32 IX = XU(I) RIX = IX JX = YU(I) RJX = JX KX = XV(I) RKX = KX LX = YV(I) RLX = LX MX = XW(I) RMX = MX NX = YW(I) RNX = NX RMNX = RMX*RNX RMX1 = RMX*(RMX-1.0) RNX1 = RNX*(RNX-1.0) C DO 250 J = I,32 IJ = (I-1)*32 + J JI = (J-1)*32 + I IY = XU(J) RIY = IY JY = YU(J) RJY = JY KY = XV(J) RKY = KY LY = YV(J) RLY = LY MY = XW(J) RMY = MY NY = YW(J) RNY = NY RMNY = RMY*RNY RMY1 = RMY*(RMY-1.0) RNY1 = RNY*(RNY-1.0) ST = 0.0 DO 230 K = 1,3 DO 220 L = 1,3 RR = RK(K) + RL(L) RR0 = RK(K) + RL(L) - 1 RR1 = RK(K) + RL(L) + 1 SS = SK(K) + SL(L) SS0 = SK(K) + SL(L) - 1 SS1 = SK(K) + SL(L) + 1 MM = MX + MY MMRR0 = MM + RR0 MMRR1 = MM + RR1 NN = NX + NY NNSS1 = NN + SS1 NNSS0 = NN + SS0 MMRR = MM + RR NNSS = NN + SS KK = KX + KY KKRR0 = KK + RR0 LL = LX + LY LLSS1 = LL + SS1 II = IX + IY JJ = JX + JY IIRR1 = II + RR1 JJSS0 = JJ + SS0 KI = KX + IY KIRR = KI + RR LJ = LX + JY LJSS = LJ + SS IK = IX + KY IKRR = IK + RR JL = JX + LY JLSS = JL + SS KM = KX + MY KMRR = KM + RR LN = LX + NY LNSS1 = LN + SS1 IM = IX + MY IMRR1 = IM + RR1 JN = JX + NY JNSS = JN + SS KKRR = KK + RR LLSS = LL + SS KIRR1 = KI + RR1 LJSS0 = LJ + SS0 MK = MX + KY MKRR = MK + RR NLSS1 = NX + LY + SS1 MI = MX + IY MIRR1 = MI + RR1 NJ = NX + JY NJSS = NJ + SS IKRR0 = IK + RR0 JLSS1 = JL + SS1 IIRR = II + RR JJSS = JJ + SS IKRR1 = IK + RR1 JLSS0 = JL + SS0 LNSS1 = LN + SS1 KIRR0 = KI + RR0 LJSS1 = LJ + SS1 SB1 = 0.0 SB2 = 0.0 SB3 = 0.0 SB4 = 0.0 SB5 = 0.0 SB6 = 0.0 SB7 = 0.0 SB8 = 0.0 SB9 = 0.0 SB10 = 0.0 SB11 = 0.0 SB12 = 0.0 SB13 = 0.0 SB14 = 0.0 SB15 = 0.0 SB16 = 0.0 SB17 = 0.0 SB18 = 0.0 SB19 = 0.0 SB20 = 0.0 SB21 = 0.0 SB22 = 0.0 SB23 = 0.0 SB24 = 0.0 SB25 = 0.0 SB26 = 0.0 SB27 = 0.0 SB28 = 0.0 SB29 = 0.0 SB30 = 0.0 SB31 = 0.0 SB32 = 0.0 SB33 = 0.0 SB34 = 0.0 SB35 = 0.0 SB36 = 0.0 SB37 = 0.0 SB38 = 0.0 SB39 = 0.0 SB40 = 0.0 IF (MMRR0 .GT. 0) SB1 = CAB(K)*EL(L)*RMX*RMY*F(MMRR0,NNSS1) IF (NNSS0 .GT. 0) SB2 = CAB(K)*FL(L)*RNX*RNY*F(MMRR1,NNSS0) IF (MMRR.GT.0 .AND. NNSS.GT.0) SB3 = CAB(K)*GL(L)*RNX*RMY* 1 F(MMRR,NNSS) IF (MMRR.GT.0 .AND. NNSS.GT.0) SB4 = CAB(K)*GL(L)*RMX*RNY* 1 F(MMRR,NNSS) IF (KKRR0 .GT. 0) SB5 = CAB(K)*EL(L)*RKX*RKY*F(KKRR0,LLSS1) IF (JJSS0 .GT. 0) SB6 = CAB(K)*EL(L)*RJX*RJY*F(IIRR1,JJSS0) IF (KIRR.GT.0 .AND. LJSS.GT.0) SB7 = CAB(K)*EL(L)*RKX*RJY* 1 F(KIRR,LJSS) IF (IKRR.GT.0 .AND. JLSS.GT.0) SB8 = CAB(K)*EL(L)*RJX*RKY* 1 F(IKRR,JLSS) IF (KIRR.GT.0 .AND. LJSS.GT.0) SB9 = CAB(K)*EL(L)*RKX*RJY* 1 F(KIRR,LJSS) IF (KKRR0 .GT. 0) SB10 = CAB(K)*EL(L)*RKX*RKY*F(KKRR0,LLSS1) IF (KMRR .GT. 0) SB11 = CAB(K)*EL(L)*RKX*H5*F(KMRR,LNSS1) IF (JJSS0 .GT. 0) SB12 = CAB(K)*EL(L)*RJX*RJY*F(IIRR1,JJSS0) IF (IKRR.GT.0 .AND. JLSS.GT.0) SB13 = CAB(K)*EL(L)*RJX*RKY* 1 F(IKRR,JLSS) IF (JNSS .GT. 0) SB14 = CAB(K)*EL(L)*RJX*H5*F(IMRR1,JNSS) IF (KKRR0 .GT. 0) SB15 = CAB(K)*FL(L)*RKX*RKY*F(KKRR0,LLSS1) IF (KIRR.GT.0 .AND. LJSS.GT.0) SB16 = CAB(K)*FL(L)*RKX*RJY* 1 F(KIRR,LJSS) IF (JJSS0 .GT. 0) SB17 = CAB(K)*FL(L)*RJX*RJY*F(IIRR1,JJSS0) IF (IKRR.GT.0 .AND. JLSS.GT.0) SB18 = CAB(K)*FL(L)*RJX*RKY* 1 F(IKRR,JLSS) IF (KIRR.GT.0 .AND. LJSS.GT.0) SB19 = CAB(K)*FL(L)*RKX*RJY* 1 F(KIRR,LJSS) IF (KKRR0 .GT. 0) SB20 = CAB(K)*FL(L)*RKX*RKY*F(KKRR0,LLSS1) IF (KMRR .GT. 0) SB21 = CAB(K)*FL(L)*RKX*H5*F(KMRR,LNSS1) IF (JJSS0 .GT. 0) SB22 = CAB(K)*FL(L)*RJX*RJY*F(IIRR1,JJSS0) IF (IKRR.GT.0 .AND. JLSS.GT.0) SB23 = CAB(K)*FL(L)*RJX*RKY* 1 F(IKRR,JLSS) IF (JNSS .GT. 0) SB24 = CAB(K)*FL(L)*RJX*H5*F(IMRR1,JNSS) IF (KKRR.GT.0 .AND. LLSS.GT.0) SB25 = CAB(K)*GL(L)*RLX*RKY* 1 F(KKRR,LLSS) IF (KKRR.GT.0 .AND. LLSS.GT.0) SB26 = CAB(K)*GL(L)*RKX*RLY* 1 F(KKRR,LLSS) IF (LJSS0 .GT. 0) SB27 = CAB(K)*GL(L)*RLX*RJY*F(KIRR1,LJSS0) IF (JLSS0 .GT. 0) SB28 = CAB(K)*GL(L)*RJX*RLY*F(IKRR1,JLSS0) IF (MKRR .GT. 0) SB29 = CAB(K)*GL(L)*RKY*H6*F(MKRR,NLSS1) IF (KMRR .GT. 0) SB30 = CAB(K)*GL(L)*RKX*H6*F(KMRR,LNSS1) IF (NJSS .GT. 0) SB31 = CAB(K)*GL(L)*RJY*H6*F(MIRR1,NJSS) IF (JNSS .GT. 0) SB32 = CAB(K)*GL(L)*RJX*H6*F(IMRR1,JNSS) IF (IKRR0 .GT. 0) SB33 = CAB(K)*GL(L)*RIX*RKY*F(IKRR0,JLSS1) IF (KIRR0 .GT. 0) SB34 = CAB(K)*GL(L)*RKX*RIY*F(KIRR0,LJSS1) IF (IIRR.GT.0 .AND. JJSS.GT.0) SB35 = CAB(K)*GL(L)*RIX*RJY* 1 F(IIRR,JJSS) IF (IIRR.GT.0 .AND. JJSS.GT.0) SB36 = CAB(K)*GL(L)*RJX*RIY* 1 F(IIRR,JJSS) IF (MKRR .GT. 0) SB37 = CAB(K)*GL(L)*RKY*H4*F(MKRR,NLSS1) IF (KMRR .GT. 0) SB38 = CAB(K)*GL(L)*RKX*H4*F(KMRR,LNSS1) IF (NJSS .GT. 0) SB39 = CAB(K)*GL(L)*RJY*H4*F(MIRR1,NJSS) IF (JNSS .GT. 0) SB40 = CAB(K)*GL(L)*RJX*H4*F(IMRR1,JNSS) ST = ST + SB1 + SB2 + SB3 + SB4 + 1 0.25*(SB5+SB6-SB7-SB8) + (SB9+SB10-SB11-SB12-SB13+SB14) + 2 0.25*(SB15-SB16+SB17-SB18) + (-SB19-SB20+SB21+SB22+SB23-SB24) 3 + 0.5*(SB25+SB26-SB27-SB28-SB29-SB30+SB31+SB32) + 4 0.5*(-SB33-SB34+SB35+SB36+SB37+SB38-SB39-SB40) 220 CONTINUE IF (UNIMEM) GO TO 240 230 CONTINUE 240 CONTINUE KSHL(IJ) = ST KSHL(JI) = KSHL(IJ) 250 CONTINUE 260 CONTINUE C C IF NO TRANSVERSE SHEAR GO TO 230 C C IF TSHR EQUAL TO ZERO OR MATID3 EQUAL TO ZERO , SKIP THESE C CALCULATION C IF (NOTS) GO TO 270 C C CURRENTLY, TRANSVERSE SHEAR CALCULATIONS ARE NOT CODED FOR SHELL C ELEMENT WHEN IT IS CODED, CALL THE ROUTINE HERE C 270 CONTINUE CALL GMMATS (Q,6,6,0,KSHL(1),6,32,0,QKS(1)) CALL GMMATS (Q,6,6,0,KSHL(193),6,32,0,QKS(193)) CALL GMMATS (QQQINV,20,18,+1,KSHL(385),20,32,0,QKS(385)) DO 290 I = 1,30 DO 280 J = 1,6 IJ = (I-1)*32 + J JI = (I-1)*6 + J KSHL( JI) = QKS( IJ) KSHL(180+JI) = QKS(6+IJ) 280 CONTINUE 290 CONTINUE DO 310 I = 1,30 DO 300 J = 1,20 IJ = (I-1)*32 + J + 12 JI = (I-1)*20 + J + 360 KSHL(JI) = QKS(IJ) 300 CONTINUE 310 CONTINUE CALL GMMATS (KSHL( 1),30,6 ,0,Q,6,6,1 ,QKS( 1)) CALL GMMATS (KSHL(181),30,6 ,0,Q,6,6,1 ,QKS(181)) CALL GMMATS (KSHL(361),30,20,0,QQQINV,20,18,0,QKS(361)) DO 330 I = 1,30 DO 320 J = 1,6 IJ = (I-1)*30 + J JI = (I-1)*6 + J CMS(IJ ) = QKS(JI ) CMS(IJ+6) = QKS(JI+180) 320 CONTINUE 330 CONTINUE DO 350 I = 1,30 DO 340 J = 1,18 IJ = (I-1)*30 + J + 12 JI = (I-1)*18 + J + 360 CMS(IJ) = QKS(JI) 340 CONTINUE 350 CONTINUE DO 360 I = 1,30 EE(I) = 0.0D0 360 CONTINUE EE( 1) = IVECT(1) EE( 2) = JVECT(1) EE( 3) = KVECT(1) EE( 6) = IVECT(2) EE( 7) = JVECT(2) EE( 8) = KVECT(2) EE(11) = IVECT(3) EE(12) = JVECT(3) EE(13) = KVECT(3) EE(19) = IVECT(1) EE(20) = JVECT(1) EE(24) = IVECT(2) EE(25) = JVECT(2) EE(29) = IVECT(3) EE(30) = JVECT(3) DO 390 K = 1,6 DO 380 I = 1,2 K1 = 6*(I-1) + K I1 = 5*(K-1) + I DO 370 J = 1,30 CTM (I1,J) = CM1(K1,J) 370 CONTINUE 380 CONTINUE 390 CONTINUE DO 420 K = 1,6 DO 410 I = 1,3 I2 = 5*(K-1) + I + 2 K2 = 12 + (K-1)*3 + I DO 400 J = 1,30 CTM (I2,J) = CM1(K2,J) 400 CONTINUE 410 CONTINUE 420 CONTINUE DO 450 K = 1,6 DO 440 I = 1,2 K1 = 6*(I-1) + K I1 = 5*(K-1) + I DO 430 J = 1,30 CM1(J,I1) = CTM (J,K1) 430 CONTINUE 440 CONTINUE 450 CONTINUE DO 480 K = 1,6 DO 470 I = 1,3 I2 = 5*(K-1) + I + 2 K2 = 12 + (K-1)*3 + I DO 460 J = 1,30 CM1(J,I2) = CTM(J,K2) 460 CONTINUE 470 CONTINUE 480 CONTINUE C C LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS C COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES C ARE R C - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO) C C TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC C COORDINATE C C TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINATES TO GLOBAL (DISP) C COORDINATES C C INSERT THE 6X6 SUBMATRIX INTO KGG MATRIX C DO 490 I = 1,1296 CMT(I) = 0.0 490 CONTINUE DO 500 I = 1,6 SIL(I) = I 500 CONTINUE DO 510 I = 1,6 IF (NPVT .NE. IEST(I+1)) GO TO 510 NPIVOT = I GO TO 520 510 CONTINUE NOGO = .TRUE. WRITE (IOUTPT,720) SFM,IEST(1) RETURN C 520 CONTINUE I = NPIVOT SIL1 = SIL(NPIVOT) DO 650 J = 1,6 SIL2 = SIL(J) DO 530 II = 1,36 BALOTR(II) = 0.0 KSUB(II) = 0.0 530 CONTINUE DO 550 K = 1,5 K1 = (SIL1-1)*5 + K DO 540 L = 1,5 L1 = (SIL2-1)*5 + L CSUB(K,L) = CM1(K1,L1) 540 CONTINUE 550 CONTINUE CALL GMMATS (EE,6,5,0,CSUB,5,5,0,CSUBT) CALL GMMATS (CSUBT,6,5,0,EE,6,5,+1,KSUBT) DO 560 K = 1,6 DO 560 L = 1,6 K1 = (K-1)*6 + L L1 = (L-1)*6 + K KSUB(L1) = KSUBT(K1) 560 CONTINUE C C TRANSFORM THE KSUB(36) FROM BASIC TO DISPLACEMENT COORDINATES C IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 590 CALL TRANSS (IEST(4*SIL1+24),TRAND) DO 570 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 570 CONTINUE CALL GMMATS (BALOTR(1),6,6,1,KSUB(1),6,6,0,KSUBT) DO 580 K = 1,36 KSUB(K) = KSUBT(K) 580 CONTINUE 590 CONTINUE IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 630 IF (J .EQ. I) GO TO 610 CALL TRANSS (IEST(4*SIL2+24),TRAND) DO 600 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 600 CONTINUE 610 CONTINUE CALL GMMATS (KSUB(1),6,6,0,BALOTR(1),6,6,0,KSUBT) DO 620 K = 1,36 KSUB(K) = KSUBT(K) 620 CONTINUE 630 CONTINUE DO 640 IJK = 1,36 640 KSUBD(IJK) = DBLE(KSUB(IJK)) CALL DS1B (KSUBD(1),IEST(J+1)) 650 CONTINUE GO TO 730 660 CONTINUE NOGO =.TRUE. WRITE (IOUTPT,700) UFM,IEST(1) RETURN C 670 CONTINUE NOGO =.TRUE. WRITE (IOUTPT,710) UFM,IEST(1) RETURN C 700 FORMAT (A23,' 2416, MATRIX RELATING GENERALIZED PARAMETERS AND ', 1 'GRID POINT DISPLACEMENTS IS SINGULAR.', /26X, 2 'CHECK COORDINATES OF ELEMENT TRSHL WITH ID =',I9,1H.) 710 FORMAT (A23,' 2418, MATERIAL ID FOR MEMBRANE EFFECTS IS LESS ', 1 'THAN OR EQUAL TO ZERO FOR TRSHL ELEMENT WITH ID =',I9,1H.) 720 FORMAT (A25,' 2419, PIVOT POINT IS NOT EQUAL TO TRSHL ELEMENT ', 1 'GRID POINTS FOR ELEMENT ID =',I9,1H.) 730 CONTINUE RETURN END ================================================ FILE: mis/dumerg.f ================================================ SUBROUTINE DUMERG C C DRIVER FOR DMAP MODULE UMERGE C C UMERGE USET,PHIA,PHIO/PHIF/C,N,MAJOR/C,N,SUB0/C,N,SUB1 $ C INTEGER USET,PHIA,PHIO,PHIF,SCR1,SUB0,SUB1,IABIT(16), 1 NAME(2),IB(3) COMMON /BLANK / MAJOR(2),SUB0(2),SUB1(2) COMMON /BITPOS/ IBIT(32),IABIT DATA NAME / 4HUMER , 4HGE / DATA USET , PHIA,PHIO,PHIF,SCR1 / 101,102,103,201,301/ C NOGO = 0 C C DECIDE IF CHARACTERS ARE LEGAL BIT NUMBERS C IB(1) = MAJOR(1) IB(2) = SUB0(1) IB(3) = SUB1(1) C DO 30 J = 1,3 DO 20 I = 1,32 IF (IB(J) .NE. IABIT(I)) GO TO 20 IB(J) = IBIT(I) GO TO 30 20 CONTINUE C C INVALID C CALL MESAGE (59,IB(J),NAME) NOGO = 1 30 CONTINUE C IF (NOGO .EQ. 1) CALL MESAGE (-7,0,NAME) CALL SDR1B (SCR1,PHIA,PHIO,PHIF,IB(1),IB(2),IB(3),USET,0,0) RETURN C END ================================================ FILE: mis/dumod1.f ================================================ SUBROUTINE DUMOD1 C C C DUMMY DECK FOR MODULE DUMMOD1 - SEE USER'S MANUAL SECTION 5.6. C FOR MODULE PROPERTIES, CHECK C SUBROUTINE XMPLDD OR USE DIAG 31. C C REVISED 5/91 BY G.CHAN/UNISYS C THIS DUMMY MODULE IS IN LINK3 ONLY (SEE XLNKDD). IT CAN BE USED TO C FORCE NASTRAN TO DO A LINK SWITCHING AND THEN CONTINUE. e.g. C MODULE XXX (NOT IN LINK3) GETS INTO TROUBLE WITH SFM 3018 C (REQUIREMENTS EXCEED AVAILABLE FILES). USE DMAP ALTER TO CALL THIS C DUMOD1 MODLUE A STEP AHEAD OF MODULE XXX. THUS NASTRAN IS FORCED C TO DO A LINKSWITCH AND HOUSEKEEPING MODULE XSFA IS CALLED TO CLEAN C UP THE FILE ALLOCATION TABLE. THIS MAY SOLVE THE SFM 3018 PROBLEM. C C INTEGER PARM1,PARM2,PARM3,PARM4,PARM5 C INTEGER INFILE(1),OUTFIL(2),SCRFIL(3) C COMMON /BLANK / PARM1,PARM2,PARM3,PARM4,PARM5 C COMMON /ZZZZZZ/ X(1) C C DATA INFILE /101/ C DATA OUTFIL /201,202/ C DATA SCRFIL /301,302,303/ C RETURN END ================================================ FILE: mis/dumod2.f ================================================ SUBROUTINE DUMOD2 C C***** C C DUMMY DECK FOR MODULE DUMMOD2 - SEE USER'S MANUAL SECTION 5.6. C FOR MODULE PROPERTIES, CHECK C SUBROUTINE XMPLDD OR USE DIAG 31. C C***** C COMPLEX PARM9 C DOUBLE PRECISION PARM8,PARM10 C INTEGER PARM1,PARM2,PARM3,PARM4,PARM7 C INTEGER INFILE(8),OUTFIL(8),SCRFIL(10) C COMMON /BLANK/ PARM1,PARM2,PARM3,PARM4,PARM5,PARM6, 1 PARM7(2),PARM8,PARM9,PARM10(2) COMMON /ZZZZZZ/ X(1) C C DATA INFILE /101,102,103,104,105,106,107,108/ C DATA OUTFIL /201,202,203,204,205,206,207,208/ C DATA SCRFIL /301,302,303,304,305,306,307,308,309,310/ C RETURN END ================================================ FILE: mis/dumod3.f ================================================ SUBROUTINE DUMOD3 C C***** C C DUMMY DECK FOR MODULE DUMMOD3 - SEE USER'S MANUAL SECTION 5.6. C FOR MODULE PROPERTIES, CHECK C SUBROUTINE XMPLDD OR USE DIAG 31. C C***** C COMPLEX PARM9 C DOUBLE PRECISION PARM8,PARM10 C INTEGER PARM1,PARM2,PARM3,PARM4,PARM7 INTEGER INFILE(8),OUTFIL(8),SCRFIL(10) C COMMON /BLANK / PARM1,PARM2,PARM3,PARM4,PARM5,PARM6, 1 PARM7(2),PARM8,PARM9,PARM10(2) COMMON /ZZZZZZ/ X(1) C DATA INFILE/ 101,102,103,104,105,106,107,108/ DATA OUTFIL/ 201,202,203,204,205,206,207,208/ DATA SCRFIL/ 301,302,303,304,305,306,307,308,309,310/ C RETURN END ================================================ FILE: mis/dumod4.f ================================================ SUBROUTINE DUMOD4 C C***** C C DUMMY DECK FOR MODULE DUMMOD4 - SEE USER'S MANUAL SECTION 5.6. C FOR MODULE PROPERTIES, CHECK C SUBROUTINE XMPLDD OR USE DIAG 31. C C***** C COMPLEX PARM9 C DOUBLE PRECISION PARM8,PARM10 C INTEGER PARM1,PARM2,PARM3,PARM4,PARM7 INTEGER INFILE(8),OUTFIL(8),SCRFIL(10) C COMMON /BLANK / PARM1,PARM2,PARM3,PARM4,PARM5,PARM6, 1 PARM7(2),PARM8,PARM9,PARM10(2) COMMON /ZZZZZZ/ X(1) C DATA INFILE/ 101,102,103,104,105,106,107,108/ DATA OUTFIL/ 201,202,203,204,205,206,207,208/ DATA SCRFIL/ 301,302,303,304,305,306,307,308,309,310/ C RETURN END ================================================ FILE: mis/dumod5.f ================================================ SUBROUTINE DUMOD5 C C MSFC ROUTINE, TO CONVERT NASTRAN TABULAR DATA BLOCKS INTO 2- C DIMENSIONAL DATA BLOCKS (S.P. REAL ONLY) FOR CONVENIENCE IN C MANIPULATION AND OUTPUT, SPECIALLY TO BE USED WITH OUTPUT5 AND C INPUT5. C C THIS VERSION WAS MODIFIED BY R. MOORE/MSFC IN JAN. 1989 C TO ALLOW SELECTION OF EITHER 8 OR 16 VALUES PER ELEMENT BY C USING A 7TH PARAMETER ON DMAP C C DUMMOD5 T1,T2,T3,T4,T5/O1,O2,O3,O4,O5/C,N,P1/C,N,P2/C,N,P3 C C,N,P4/C,N,P5/C,N,Q/C,N,R $ C C TI = INPUT GINO FILE, OEF1, OQG1 OR SIMILAR TYPE OF TABULAR C DATA BLOCKS C OI = OUTPUT GINO DATA BLOCK, PACKED, BUT NOT QUITE A REGULAR C NASTRAN MATRIX BLOCK, SEE PICTURE BELOW C IF OI IS PURGED (NOT PRESENT), MATRIX BLOCK IS WRITTEN OUT C TO FORTRAN UNIT 15 (INP1) DIRECTLY, IN BINARY RECORDS, C BANDED MATRIX FORM (FROM FIRST NON-ZERO TO LAST NON-ZERO C ELEMENTS), D.R. OR S.P. C PI = TI TABLE IS MAPPED INTO A PI X 8 2-DIMENSIONAL BLOCKS. C EACH BLOCK IS PACKED AS A COLUMN OF A MATRIX C Q = ELEMENT/GRID POINT ID PRINT-PUNCH CONTROL C = -1, NO PRINT AND NO PUNCH C = 0, PRINT ONLY, NO PUNCH C = +1, BOTH PRINT AND PUNCH C = /2/ CONTENTS OF OUTPUT TAPE, INP1, WILL BE PRINTED OUT C R = SWITCH TO CHANGE FROM 8 TO 16 VALUES IN TABLE MAPPING C DEFAULT = 0 WHICH SETS TO 8. R = 1 SETS IT TO 16 C C CDC USER ONLY - FORTRAN UNIT 11 (UT1) IS USED INSTEAD OF 15 (INP1) C C C |<------ 8 OR 16 ------->| C ========================== C / I I \ C / I------- TABULAR --------I \ C P1 I DATA I BLOCK 1 (MATRIX COLUMN 1) C \ I-------- BLOCKS --------I / C \ I I / C ========================== C / I I \ C / I------------------------I \ C P1 I I BLOCK 2 (MATRIX COLUMN 2) C C WRITTEN BY SOMEBODY FOR MARSHALL SPACE FLIGHT CENTER (MSFC). C MODIFIED BY G.CHAN/UNISYS TO EMPLOY OPEN-CORE SPACE INSTEAD OF C THE FIXED DIMENSION ARRAYS, AND TO EXPAND FROM ONE INPUT DATA C BLOCK TO FIVE. IF A CORRESPONDING OUTPUT FILE IS MISSING OR C PURGED, THE DATA BLOCKS ARE WRITTEN DIRECTLY TO FORTRAN TAPE C (UNIT 15, INP1) USING OUTPUT5 BINARY FORMAT. C C CONTENTS OF INP1 TAPE IF IT IS WRITTEN - C C RECORD WORD CONTENT TYPE C ------ ------ ---------------------------------------- C 0 TAPE HEADER RECORD C 1-2 'XXXXXXXX', TAPE ID 2*BCD C 3-4 MACHINE TYPE 2*BCD C 5-7 DATE 3*INT C 8 SYSTEM BUFFSIZE INT C 9 0 (BINARY TAPE) INT C 1 FIRST MATRIX HEADER C 1 0 INT C 2,3 1,1 2*INT C 4 A DOUBLE PRECISION ZERO D.P. C 5-10 6 WORDS FROM MATRIX TRAILER 6*INT C (COL,ROW,FORM,TYPE,MAX,DENSITY- C TYPE=1 OR 3, DENSITY=1) C 11-12 MATRIX DMAP NAME 2*BCD C 2 1 1 (FIRST COLUMN ID) INT C 2 LOCATION OF FIST NON-ZERO ELEMENT INT C 3 LOCATION OF LAST NON-ZERO ELEMENT INT C 4-N S.P. DATA REAL C 3 1 2 (SECOND COLUMN ID) INT C 2-N SAME AS RECORD 1 C : 1-N REPEAT FOR MORE COLUMNS C C X 1 X (X-TH COLUMN ID, A NUL COLUMN) INT C 2-3 1,1 INT C 4-5 0.0,0.0 REAL) C C M 1-N LAST COLUMN, SAME AS RECORD 1 C M+1 1 -1 (ELEM) OR -2 (GRID) INT C 2 1 INT C 3 LENGTH OF ELEM./GRID ID LIST, L INT C 4-L+4 LIST OF ELEMENT OR GRID IDS INT C C M+2 SECOND MATRIX HEADER C : : REPEAT 1 THRU (M+1) FOR THE SECOND MATRIX C C : : REPEAT, UP TO 5 OUTPUT DATA BLOCKS PER TAPE C C COMMENTS FROM G.C. - C (1) THIS MODULE IS VERY LIMITED IN SCOPE. IT HANDLES ONLY SOME C SPECIAL TYPES OF TABULAR INPUT DATA BLOCKS. THE (PI X 8) MATRI C SPACE IS FOR PRINT/PUNCH PURPOSE. THE ORIGINAL PROGRAM SEEMS C TO BE WRITTEN TO MEET A PARTICULAR JOB REQUIREMENT. C C (2) CURRENT MODULE HANDLES ONLY SINGLE PRECISION DATA C C (3) THE PROCEDURE TO READ AND/OR WRITE THE TAPE IS COMMONLY USED C AMONG INPUTT5, OUTPUT5, AND DUMMOD5. ANY PROCEDURE CHANGE C SHOULD BE MADE TO ALL THREE MODULES. C IMPLICIT INTEGER (A-Z) LOGICAL NONE, DEBUG INTEGER NAME(2), MCB(7), TRL(7), IZ(8), TEMP(10), 1 EG(2), IR(5001), ID(5001),UNVC(2),MT(2), 2 INFILE(2),OUTFIL(2),DATE(3), SAVE(2,5) REAL Z, EPSI DOUBLE PRECISION DZERO, DTEMP CHARACTER UFM*23, UWM*25, UIM*29 CWKBNB CHARACTER*80 DSNAMES COMMON /DSNAME/ DSNAMES(80) CWKBNE COMMON /XMSSG / UFM, UWM, UIM COMMON /ZZZZZZ/ Z(1) COMMON /MACHIN/ MACH, IJHALF(3),MCHNAM COMMON /SYSTEM/ IBUF, NOUT, DUMM(88),LPCH COMMON /PACKX / TYPIN, TYPOUT, II, JJ, INCR COMMON /BLANK / P(5), Q, R EQUIVALENCE (Z(1),IZ(1)), (DATE(1),DUMM(13)) CWKBI DATA IFIRST/0/ DATA TAPE, IRDLMT, ID, IM, IE, XX, EPSI / 1 15, 5000, 5001*0, 1H-,1H=, 4HXXXX, 1.0E-30 / DATA ZERO, ONE, EG, NAME / 1 0, 1, 4HELEM, 4HGRID, 4HDUMO, 4HD5 / DATA UNVC, MT / 4HUNIV, 4HAC , 2*4H / DATA DEBUG, DZERO, SAVE / .FALSE., 0.D0, 10*1H / C IF (MACH .EQ. 12) TAPE = 11 CALL PAGE WRITE (NOUT,5) P,Q,R 5 FORMAT ('0*** MODULE DUMMOD5 CALLED BY USER DMAP ALTER.', /5X, 1 'PARAMETERS ARE P=',5(I5,1H,),5X,'Q=',I5,5X,'R=',I4,/) I6 OR 8 = 8 IF (R .EQ. 1) I6 OR 8 = 16 INCR = 1 TYPIN = 1 TYPOUT= 1 II = 1 TAPX =-1 TAPP =-1 CORE = KORSZ(Z) BUF1 = CORE - IBUF + 1 BUF2 = BUF1 - IBUF CORE = BUF2 - 1 HALF = CORE/2 HALF1 = HALF + 1 CWKBNB IF ( IFIRST .NE. 0 ) GO TO 1 CLOSE ( UNIT=TAPE) OPEN ( UNIT=TAPE, FILE=DSNAMES(TAPE), FORM='UNFORMATTED', 1 STATUS='UNKNOWN' ) IFIRST = 1 1 CONTINUE CWKBNE C DO 450 LOOP = 1,5 INPUT = 100 + LOOP OUTPT = 200 + LOOP TRL(1)= INPUT CALL RDTRL (TRL(1)) IF (TRL(1) .LE. 0) GO TO 450 CALL FNAME (INPUT,INFILE) C C INPUT DATA PRECISION TYPE IS S.P. ONLY C TYPE = 1 C IF (P(LOOP) .LE. 0) P(LOOP) = PV PV = P(LOOP) JJ = P(LOOP)*I6 OR 8 DO 10 J = 1,JJ 10 Z(J+HALF) = 0.0 CALL GOPEN (INPUT,Z(BUF1),0) MCB(1) = OUTPT CALL RDTRL (MCB) NONE = .FALSE. IF (MCB(1) .LE. 0) NONE = .TRUE. IF (NONE) GO TO 15 CALL GOPEN (OUTPT,Z(BUF2),1) CALL FNAME (OUTPT,OUTFIL) CALL MAKMCB (MCB,OUTPT,0,2,1) GO TO 20 15 TAPX = TAPX + 1 IF (TAPX .LE. 0) GO TO 20 SAVE(1,TAPX) = INFILE(1) SAVE(2,TAPX) = INFILE(2) 20 I = 1 NXZH = 0 NXIR = 0 CALL READ (*290,*30,INPUT,TEMP,10,1,M) NWDS = TEMP(10) NELTP= TEMP( 3) C IF (NELTP.GE.11 .AND. NELTP.LE.14) GO TO 320 C CELAS1 CELAS4 GO TO 60 30 CALL MESAGE (-37,0,NAME) 40 CALL READ (*290,*50,INPUT,TEMP,10,1,M) NWDS = TEMP(10) IF (TEMP(3) .NE. NELTP) GO TO 60 GO TO 130 50 CALL MESAGE (-61,INPUT,NAME) C 60 IF (TEMP(3).GE.11 .AND. TEMP(3).LE.14) GO TO 320 C CELAS1 CELAS4 60 CONTINUE NEWLT = TEMP(3) NWDS1 = NWDS - 1 NWDS2 = NWDS - 2 DO 70 L = 1,JJ 70 Z(L) = 0.0 DO 80 L = 1,IRDLMT 80 IR(L) = 0 CALL READ (*330,*350,INPUT,IR(1),1,0,M) KOUNT = 0 DO 90 JSQ = 1,IRDLMT KOUNT = KOUNT + 1 LOC = NWDS1*JSQ - NWDS2 CALL READ (*330,*350,INPUT,Z(LOC),NWDS1,0,M) C LAST = LOC + NWDS1 - 1 LAST = KOUNT*I6 OR 8 CALL READ (*330,*100,INPUT,IR(JSQ+1),1,0,M) 90 CONTINUE 100 M = NWDS*KOUNT IJK = 0 DO 120 J = 1,M,NWDS IJK = IJK + 1 NROP = (IR(IJK)-1)/10 LOCID = NXIR + IJK ID(LOCID) = NROP*100 + NEWLT LOCA = (IJK*I6 OR 8) - (I6 OR 8 -1) + NXZH LJ = NWDS1*IJK - NWDS1 KK = LOCA + NWDS + HALF IF (KK .GT. CORE) CALL MESAGE (-8,0,NAME) DO 110 JM = 1,NWDS1 110 Z(LOCA+JM-1+HALF) = Z(LJ+JM) 120 CONTINUE NXIR = NXIR + JSQ NXZH = NXZH + LAST GO TO 40 130 IF (Q .LT. 1) GO TO 150 IS = IM KK = HALF + NXZH WRITE (NOUT,140) IS,I,(Z(J),J=HALF1,KK) 140 FORMAT (' COLUMN',A1,I5, /,(2X,8E16.6)) 150 I = I + 1 IF (NONE) GO TO 180 CALL PACK (Z(HALF1),OUTPT,MCB) GO TO 270 160 IF (TAPX .GT. 0) GO TO 170 C C WRITE TAPE HEADER AND MATRIX HEADER C (CURRENTLY, OUTPUT TAPE IS WRITTEN OUT IN SINGLE PRECISION ONLY) C CHANGE IN 89 VERSION - C MUST SET MATRIX DENSITY IN MATRIX TRAILER TO NON-ZERO IF INPUT5 C IS TO BE USED C TAPX = 1 SAVE(1,TAPX) = INFILE(1) SAVE(2,TAPX) = INFILE(2) MT(1) = MCHNAM IF (MACH .NE. 3) GO TO 162 MT(1) = UNVC(1) MT(2) = UNVC(2) 162 WRITE (TAPE) XX,XX,MT,DATE,IBUF,ZERO IF (DEBUG) WRITE (NOUT,165) XX,XX,MT,DATE,IBUF,ZERO 165 FORMAT ('0+++TAPE HEADER/DUMMOD5-',/3X,2A4,1X,2A4,3I4,2I6) 170 IF (TAPX .EQ. TAPP) GO TO 190 TAPP = TAPX TRL(5) = TYPOUT TRL(7) = 1 WRITE (TAPE) ZERO,ONE,ONE,DZERO,(TRL(K),K=2,7),INFILE IF (DEBUG) WRITE (NOUT,175) ZERO,ONE,ONE,DZERO,(TRL(K),K=2,7), 1 INFILE 175 FORMAT (' +++MATRIX HEADER/DUMMOD5- ',3I5,D8.0,6I5,1X,2A4) GO TO 190 C 180 ASSIGN 270 TO RETN 190 DO 200 JB = II,JJ CWKBNB 8/94 ALPHA-VMS ITYPE = NUMTYP( Z(JB+HALF) ) IF ( ITYPE .LE. 1 ) GO TO 200 CWKBNE 8/94 ALPHA-VMS IF (ABS(Z(JB+HALF)) .GT. EPSI) GO TO 210 200 CONTINUE WRITE (TAPE) I,ONE,ONE,(ZERO,J=1,TYPE) IF (DEBUG) WRITE (NOUT,205) I,ONE,ONE,(ZERO,J=1,TYPE) 205 FORMAT (' +++ZEROS/DUMMOD5- ',7I5) GO TO 265 210 JE = JJ DO 220 J = II,JJ CWKBNB 8/94 ALPHA-VMS ITYPE = NUMTYP( Z(JE+HALF) ) IF ( ITYPE .LE. 1 ) GO TO 220 CWKBNE 8/94 ALPHA-VMS IF (ABS(Z(JE+HALF)) .GT. EPSI) GO TO 230 220 JE = JE - 1 230 GO TO (260,240,240,250), TYPE 240 IF (MOD(JB,2) .EQ. 0) JB = JB - 1 IF (MOD(JE,2) .EQ. 1) JE = JE + 1 GO TO 260 250 J = MOD(JB,4) IF (J .EQ. 0) J = 4 JB = JB - J + 1 J = MOD(JE,4) IF (J .EQ. 0) J = 4 JE = JE - J + 4 260 WRITE (TAPE) I,JB,JE,(Z(J+HALF),J=JB,JE) IF (DEBUG) WRITE (NOUT,262) I,JB,JE 262 FORMAT (' +++DATA RECORD/DUMMOD5- ',3I5) 265 GO TO RETN, (270,370) C 270 DO 280 L = 1,JJ 280 Z(L+HALF) = 0.0 NXZH = 0 NXIR = 0 GO TO 60 290 IF (Q .LT. 0) GO TO 300 IS = IE KK = HALF + NXZH WRITE (NOUT,140) IS,I,(Z(J),J=HALF1,KK) 300 ASSIGN 370 TO RETN IF (NONE) GO TO 160 CALL PACK (Z(HALF1),OUTPT,MCB) MCB(3) = JJ CALL WRTTRL (MCB) IF (Q .EQ. 2) WRITE (NOUT,310) (MCB(J),J=1,5) 310 FORMAT (/2X,'MCB=',6I8) GO TO 370 C 320 CALL READ (*330,*40 ,INPUT,IR(1),1,0,M) C CALL READ (*330,*350,INPUT, Z(1),1,0,M) C Z(1) = 0.0 C GO TO 320 330 WRITE (NOUT,340) INFILE 340 FORMAT (/5X,'*** EOF ENCOUNTERED ON INPUT ',2A4,' DATA BLOCK') GO TO 440 350 WRITE (NOUT,360) INFILE 360 FORMAT (/5X,'*** INPUT ',2A4,'DATA BLOCK IS EMPTY') GO TO 440 370 IF (.NOT.NONE) WRITE (NOUT,380) UIM,INFILE,OUTFIL 380 FORMAT (A29,', MODULE DUMMOD5 SUCCESSFULLY PROCESSED TABULAR ', 1 'DATA FROM ',2A4,' TO DATA BLOCK ',2A4, /5X, 2 'IN GINO PACKED FORM') IF (NONE) WRITE (NOUT,390) UIM,INFILE,TAPE 390 FORMAT (A29,', MODULE DUMMOD5 SUCCESSFULLY COPIED TABULAR DATA ', 1 'FROM ',2A4,' TO OUTPUT TAPE', /5X, 3 '(FORTRAN UNIT',I4,') IN BANDED MATRIX FORM') IF (Q .GT. 0) WRITE (LPCH,400) (ID(J),J=1,NXIR) 400 FORMAT (8I10) L = EG(1) IF (NEWLT .GT. 0) GO TO 420 L = EG(2) DO 410 J = 1,NXIR 410 ID(J) = ID(J)/100 420 WRITE (NOUT,430) L,INFILE,(ID(J),J=1,NXIR) 430 FORMAT (//5X,A4,'-ID ARRAY FOLLOWS/FROM ',2A4, (/5X,15I8)) IF (.NOT.NONE) GO TO 440 I = -1 IF (NEWLT .EQ. 0) I = -2 WRITE (TAPE) I,ONE,NXIR,(ID(J),J=1,NXIR) IF (DEBUG) WRITE (NOUT,435) I,ONE,NXIR 435 FORMAT (' +++ELEM/GRID ID RECORD/DUMMOD5- ',3I5) 440 CONTINUE CALL CLOSE (INPUT,1) IF (.NOT.NONE) CALL CLOSE (OUTPT,1) 450 CONTINUE C IF (TAPX .LE. 0) GO TO 590 WRITE (NOUT,455) UIM,TAPE,(SAVE(1,J),SAVE(2,J),J=1,TAPX) 455 FORMAT (A29,', FOLLOWING DATA BLOCKS WERE COPIED TO FORTRAN UNIT', 1 I3,' BY MODULE DUMMOD5', /5X, 2 'USING UNFORMATTED (BINARY) WRITE', /6X,5(2A4,3X)) ENDFILE TAPE REWIND TAPE C C TO READ THE OUTPUT TAPE, Q=/2/ C IF (IABS(Q) .LT. 2) GO TO 590 CALL PAGE1 K = 1 READ (TAPE,END=575) MCB,J,I WRITE (NOUT,460) MCB,J 460 FORMAT (//,' TAPEID=',2A4,' FROM ',A4,A2,' MACHINE, DATE',I5, 1 1H/,I2,1H/,I2,' BINARY TAPE. BUFFSIZE=',I7//) 470 READ (TAPE,END=580) I,JB,JE,(Z(J),J=JB,JE) IF (I) 560,480,500 480 BACKSPACE TAPE READ (TAPE,END=580) I,JB,JE,DTEMP,(IZ(J),J=1,8) WRITE (NOUT,490) K,IZ(7),IZ(8),(IZ(J),J=1,6) 490 FORMAT (//,' DATA BLOCK',I3,3X,2A4,' TRAILER=',6I5) K = K + 1 GO TO 470 500 WRITE (NOUT,510) I,JB,JE,(Z(J),J=JB,JE) 510 FORMAT (//,' COLUMN RECORD =',I3,' JB,JE =',2I5,/,(1X,10E13.6)) GO TO 470 C 560 L = EG(-I) WRITE (NOUT,570) L,(IZ(J),J=JB,JE) 570 FORMAT (//2X,A4,'-ID LIST -',/,(1X,10I10)) GO TO 470 575 WRITE (NOUT,577) 577 FORMAT (//,' EMPTY TAPE') 580 REWIND TAPE 590 CONTINUE RETURN END ================================================ FILE: mis/dumper.f ================================================ SUBROUTINE DUMPER C C THIS SUBROUTINE DUMPS THE OSCAR C EXTERNAL LSHIFT,RSHIFT,ANDF INTEGER IXTRA(3),CON1,CON2 INTEGER RECNO,DMAPNO,OP,OSCAR(1),OS(5),RSHIFT,INAME(2), 1 TP,AP,ANDF,VPS,PTYPE,BL,EL,ML,CL,CEITBL DIMENSION RA(4),ROSCAR(1),LOCO(300),AVPS(1),IHD(96) DOUBLE PRECISION DPREC,DPREC1 COMMON /OUTPUT/ ITITLE(96),IHEAD(96) COMMON /ZZZZZZ/ CORE(1) COMMON /XGPI2 / LMPL,MPLPNT,MPL(1) COMMON /XVPS / VPS(1) COMMON /XCEITB/ CEITBL(1) COMMON /SYSTEM/ SYSBUF,OP,JUNK5(6),NLPP,JUNK6(2),NLINES COMMON / XGPIC/ JUNK22(28),NOSGN EQUIVALENCE (VPS(1),AVPS(1)), (DPREC,RA(1)), (DPREC1,RA(3)), 1 (OSCAR(1),ROSCAR(1),OS(5)), (CORE(1),OS(1)), 2 (IOSBOT,OS(3)) DATA MASK1, MASK2, MASK3, MASK4, MASK5 / 1 32767, 32768, 1073676288, 1073741824, 983040 / DATA CON1, CON2 / 4HCONS,4HTANT / DATA IHD/2*4H ,4H COS,4HMIC ,4H/ NA,4HSTRA,4HN DM,4HAP C, 1 4HOMPI,4HLER ,4H- OS,4HCAR ,4HLIST,4HING ,82*4H / DATA IXTRA/4H(CON,4HTINU,4HED) / DATA ION, IOFF / 4HON ,4HOFF / C 10 FORMAT (20X,2A4,5H(I ),2X,I10) 20 FORMAT (20X,2A4,5H(R ),2X,E15.6) 30 FORMAT (20X,2A4,5H(BCD),5X,2A4) 40 FORMAT (20X,2A4,5H(RDP),2X,D24.15) C C INITIALIZE LOCO ARRAY - POINTS TO FIRST WORD IN MPL FOR MOD I C J = 1 I = 1 50 LOCO(I) = J J = J + MPL(J) IF (J .GT. LMPL) GO TO 60 I = I + 1 GO TO 50 60 CONTINUE C I = 1 DO 70 K=1,96 IHEAD(K) = IHD(K) 70 CONTINUE CALL PAGE DO 80 K=1,3 IHEAD(K+14) = IXTRA(K) 80 CONTINUE C C PROCESS ENTRY HEADER C 90 IF (MI .EQ. 11) GO TO 910 NWE = OSCAR(I ) RECNO = OSCAR(I+1) MI = RSHIFT(OSCAR(I+2),16) MSAVE = LOCO(MI) ITYPE = OSCAR(I+2) - LSHIFT(RSHIFT(OSCAR(I+2),16),16) IEXFLG= IOFF IF (OSCAR(I+5).LT.0) IEXFLG = ION DMAPNO = ANDF(NOSGN,OSCAR(I+5)) NLINES = NLINES + 4 IF (NLINES .LT. NLPP) GO TO 100 CALL PAGE NLINES = NLINES + 4 100 CONTINUE WRITE (OP,110) 110 FORMAT (/1X,18(4H****)) WRITE (OP,120) RECNO,ITYPE,IEXFLG,OSCAR(I+3),OSCAR(I+4),DMAPNO 120 FORMAT (2X,20HOSCAR RECORD NUMBER ,I3,5X,14HMODULE TYPE = ,I2, 1 5X,16HEXECUTE FLAG -- , A4, /2X, 2 15HMODULE NAME - ,2A4,5X,21HDMAP INSTRUCTION NO. ,I3) I = I + 6 NWE = NWE - 6 GO TO (130,130,800,540), ITYPE 130 IO = 1 NIP = OSCAR(I) NLINES = NLINES + 2 IF (NLINES .LT. NLPP) GO TO 140 CALL PAGE NLINES = NLINES + 2 140 CONTINUE WRITE (OP,150) NIP 150 FORMAT (/10X,29HSUMMARY OF INPUT DATA BLOCKS(,I2,2H ) ) J = 1 160 INAME(1) = OSCAR(I+1) INAME(2) = OSCAR(I+2) NTU = ANDF(OSCAR(I+3),MASK1) TP = RSHIFT(ANDF(OSCAR(I+3),MASK2),15) LTU = RSHIFT(ANDF(OSCAR(I+3),MASK3),16) AP = RSHIFT(ANDF(OSCAR(I+3),MASK4),30) IF (INAME(1).EQ.0 .AND. IO.EQ.1) GO TO 190 IF (INAME(1).EQ.0 .AND. IO.EQ.0) GO TO 220 NLINES = NLINES + 1 IF (NLINES .LT. NLPP) GO TO 170 CALL PAGE NLINES = NLINES + 1 170 CONTINUE WRITE (OP,180) INAME(1),INAME(2),AP,LTU,TP,NTU 180 FORMAT (20X,2A4,3X,I1,1H/,I5,1H/,I1,1H/,I5) GO TO 250 190 NLINES = NLINES + 1 IF (NLINES .LT. NLPP) GO TO 200 CALL PAGE NLINES = NLINES + 1 200 CONTINUE WRITE (OP,210) J 210 FORMAT (20X,24H********INPUT DATA BLOCK,I3,8H IS NULL) GO TO 250 220 NLINES = NLINES + 1 IF (NLINES .LT. NLPP) GO TO 230 CALL PAGE NLINES = NLINES + 1 230 CONTINUE WRITE (OP,240) J 240 FORMAT (20X,25H********OUTPUT DATA BLOCK,I3,8H IS NULL) 250 I = I + 3 J = J + 1 IF (J .LE. NIP) GO TO 160 IF (ITYPE .EQ. 2 ) IO = 0 C C PROCESS OUTPUT DATA BLOCKS C IF (IO .EQ. 0) GO TO 280 IO = 0 I = I + 1 NIP = OSCAR(I) NLINES = NLINES + 2 IF (NLINES .LT. NLPP) GO TO 260 CALL PAGE NLINES = NLINES + 2 260 CONTINUE WRITE (OP,270) NIP 270 FORMAT (/10X,30HSUMMARY OF OUTPUT DATA BLOCKS(,I2,2H )) J = 1 GO TO 160 C C PROCESS PARAMETER SECTION C 280 I = I + 2 NPARM = OSCAR(I) IF (NPARM .EQ. 0) GO TO 530 J = 1 MPLP = MSAVE + 7 NLINES = NLINES + 2 IF (NLINES .LT. NLPP) GO TO 290 CALL PAGE NLINES = NLINES + 2 290 CONTINUE WRITE (OP,300) NPARM 300 FORMAT (/10X,22HSUMMARY OF PARAMETERS(,I2,2H )) 310 IF (OSCAR(I+1)) 440,440,320 C C SEARCH MPL FOR TYPE OF VARIABLE C 320 INAME(1) = CON1 INAME(2) = CON2 KK = IABS(MPL(MPLP)) NLINES = NLINES + 1 IF (NLINES .LT. NLPP) GO TO 330 CALL PAGE NLINES = NLINES + 1 330 CONTINUE GO TO (340,360,370,390,400,420), KK 340 WRITE (OP,10) INAME(1),INAME(2),OSCAR(I+2) 350 I = I + 2 IF (MPL(MPLP) .GT. 0 ) MPLP = MPLP+1 MPLP = MPLP+1 J = J+1 IF (J .GT. NPARM) GO TO 530 GO TO 310 360 WRITE (OP,20) INAME(1),INAME(2),ROSCAR(I+2) GO TO 350 370 WRITE (OP,30) INAME(1),INAME(2),OSCAR(I+2),OSCAR(I+3) 380 I = I + 3 IF (MPL(MPLP) .GT. 0) MPLP = MPLP+2 MPLP = MPLP + 1 J = J + 1 IF (J .GT. NPARM) GO TO 530 GO TO 310 390 RA(1) = ROSCAR(I+2) RA(2) = ROSCAR(I+3) WRITE (OP,40) INAME(1),INAME(2),DPREC GO TO 380 400 WRITE (OP,410) INAME(1),INAME(2),ROSCAR(I+2),ROSCAR(I+3) 410 FORMAT (20X,2A4,5H(CSP),2X,2E15.6) GO TO 380 420 RA(1) = ROSCAR(I+2) RA(2) = ROSCAR(I+3) RA(3) = ROSCAR(I+4) RA(4) = ROSCAR(I+5) WRITE (OP,430) INAME(1),INAME(2),DPREC,DPREC1 430 FORMAT (20X,2A4,5H(CDP),2X,2D24.15) I = I + 5 IF (MPL(MPLP) .GT. 0) MPLP = MPLP+4 MPLP = MPLP+1 J = J + 1 IF (J .GT. NPARM) GO TO 530 GO TO 310 440 IVPS = ANDF(NOSGN,OSCAR(I+1)) INAME(1) = VPS(IVPS-3) INAME(2) = VPS(IVPS-2) PTYPE = RSHIFT(ANDF(VPS(IVPS-1),MASK5),16) NLINES = NLINES + 1 IF (NLINES .LT. NLPP) GO TO 450 CALL PAGE NLINES = NLINES + 1 450 CONTINUE GO TO (460,470,480,490,500,510), PTYPE 460 WRITE (OP,10) INAME(1),INAME(2),VPS(IVPS) GO TO 520 470 WRITE (OP,20) INAME(1),INAME(2),AVPS(IVPS) GO TO 520 480 WRITE (OP,30) INAME(1),INAME(2),VPS(IVPS),VPS(IVPS+1) GO TO 520 490 RA(1) = AVPS(IVPS ) RA(2) = AVPS(IVPS+1) WRITE (OP,40) INAME(1),INAME(2),DPREC GO TO 520 500 WRITE (OP,410) INAME(1),INAME(2),AVPS(IVPS),AVPS(IVPS+1) GO TO 520 510 RA(1) = AVPS(IVPS ) RA(2) = AVPS(IVPS+1) RA(3) = AVPS(IVPS+2) RA(4) = AVPS(IVPS+3) WRITE (OP,430) INAME(1),INAME(2),DPREC,DPREC1 520 I = I + 1 J = J + 1 IF (MPL(MPLP) .GT. 0) MPLP = MPLP + PTYPE/3 + 1 IF (PTYPE .EQ. 6) MPLP = MPLP + 1 MPLP = MPLP + 1 IF (J .GT. NPARM) GO TO 530 GO TO 310 C C HAVE COMPLETED FUNCTIONAL MODULE C 530 I = I + 2 IF (ITYPE .EQ. 2) I = I - 1 GO TO 90 C C PROCESS EXECUTIVE MODULES C 540 IF (MI - 3) 550,550,600 C C PROCESS CHKPNT C 550 NDB = OSCAR(I) NLINES = NLINES + 2 IF (NLINES .LT. NLPP) GO TO 560 CALL PAGE NLINES = NLINES + 2 560 CONTINUE WRITE (OP,570) NDB 570 FORMAT (/10X,31HDATA BLOCKS TO BE CHECKPOINTED(,I2,2H )) IST = I + 1 IFIN = IST + 2 * NDB - 1 NPAGE = (10+NDB)/10+1 NLINES = NLINES + NPAGE IF (NLINES .LT. NLPP) GO TO 580 CALL PAGE NLINES = NLINES + NPAGE 580 CONTINUE IF (NDB .NE. 0) WRITE(OP,590) (OSCAR(K),K=IST,IFIN) I = I + 2*NDB+1 590 FORMAT ((20X,10(2A4,2X)),/) GO TO 90 600 IF (MI - 8) 610,610,670 C C PROCESS SAVE C 610 NPARM = OSCAR(I) NLINES = NLINES + 2 IF (NLINES .LT. NLPP) GO TO 620 CALL PAGE NLINES = NLINES + 2 620 CONTINUE WRITE (OP,630) NPARM 630 FORMAT (/10X,23HPARAMETERS TO BE SAVED(,I2,2H )) 640 FORMAT (20X,2A4,2X,I5) J = 1 650 IVPS = OSCAR(I+1) INAME(1) = VPS(IVPS-3) INAME(2) = VPS(IVPS-2) NLINES = NLINES + 1 IF (NLINES .LT. NLPP) GO TO 660 CALL PAGE NLINES = NLINES + 1 660 CONTINUE WRITE (OP,640) INAME(1),INAME(2),OSCAR(I+2) J = J + 1 I = I + 2 IF (J .LE. NPARM) GO TO 650 I = I + 1 GO TO 90 670 NDB = OSCAR(I) NWE = NWE - 1 NLINES = NLINES + 2 IF (NLINES .LT. NLPP) GO TO 680 CALL PAGE NLINES = NLINES + 2 680 CONTINUE IF (MI .EQ. 9) WRITE (OP,690) NDB IF (MI .EQ. 10) WRITE (OP,700) NDB 690 FORMAT (/10X,25HDATA BLOCKS TO BE PURGED( ,I2,2H )) 700 FORMAT (/10X,26HDATA BLOCKS TO BE EQUIVED(,I2,2H )) IST = I + 1 IFIN = IST + 2*NDB - 1 IF (MI .NE. 10) GO TO 730 NTU = RSHIFT(OSCAR(IST+2),16) LTU = OSCAR(IST+2) - LSHIFT(NTU,16) NLINES = NLINES + 1 IF (NLINES .LT. NLPP) GO TO 710 CALL PAGE NLINES = NLINES + 1 710 CONTINUE WRITE (OP,720) OSCAR(IST),OSCAR(IST+1),NTU,LTU 720 FORMAT (20X,19HPRIMARY DATA BLOCK ,2A4,3X,I5,1H/,I5) IST = IST + 3 IFIN = IFIN + 1 NWE = NWE - 3 730 CONTINUE NPAGE = (10+NDB)/10+1 NLINES = NLINES + NPAGE IF (NLINES .LT. NLPP) GO TO 740 CALL PAGE NLINES = NLINES + NPAGE 740 CONTINUE WRITE (OP,750)(OSCAR(K),K=IST,IFIN) 750 FORMAT ((20X,10(2A4,2X)),/) NWE = NWE - 2*NDB + 2 IF (MI .EQ. 9) NWE = NWE - 2 IVPS = OSCAR(IFIN+1) NLINES = NLINES + 1 IF (NLINES .LT. NLPP) GO TO 760 CALL PAGE NLINES = NLINES + 1 760 CONTINUE IF (IVPS .LT. 0) WRITE (OP,770) 770 FORMAT (20X,35HDEFAULT PARAMETER - ALWAYS NEGATIVE) IF (IVPS .LT. 0) GO TO 790 WRITE (OP,780) VPS(IVPS-3),VPS(IVPS-2) 780 FORMAT (20X,21HCONTROL PARAMETER IS ,2A4) 790 CONTINUE I = I + 2*NDB + 2 IF (MI .EQ. 10 ) I = I + 1 NWE = NWE - 1 IF (NWE .GT. 0) GO TO 670 GO TO 90 C C PROCESS CONTROL INSTRUCTIONS C 800 IRN = RSHIFT(OSCAR(I),16) IF (MI .EQ. 11 .OR. MI .EQ. 12) GO TO 810 NLINES = NLINES + 2 IF (NLINES .LT. NLPP) GO TO 810 CALL PAGE NLINES = NLINES + 2 810 CONTINUE IF (MI.NE.11 .AND. MI.NE.12) WRITE (OP,820) IRN 820 FORMAT (/10X,25HRE-ENTRY RECORD NUMBER = ,I4) IF (MI .EQ. 6) GO TO 900 IW = OSCAR(I) - LSHIFT(IRN,16) IF (MI .NE. 7) GO TO 860 C C CONDITIONAL INSTRUCTION C NLINES = NLINES + 2 IF (NLINES .LT. NLPP) GO TO 840 CALL PAGE NLINES = NLINES + 2 840 CONTINUE WRITE (OP,850) VPS(IW-3),VPS(IW-2) 850 FORMAT (/10X,21HPARAMETER FOR COND = ,2A4) GO TO 900 860 BL = RSHIFT(CEITBL(IW-1),16) EL = CEITBL(IW-1) - LSHIFT(BL,16) ML = RSHIFT(CEITBL(IW),16) CL = CEITBL(IW ) - LSHIFT(ML,16) NLINES = NLINES + 2 IF (NLINES .LT. NLPP) GO TO 870 CALL PAGE NLINES = NLINES + 2 870 CONTINUE IF (MI .EQ. 5) WRITE (OP,880) BL,EL,ML,CL,CEITBL(IW+1), 1 CEITBL(IW+2) IF (MI.EQ.11 .OR. MI.EQ.12) WRITE (OP,890) EL,ML,CL 880 FORMAT (/20X,I5,1H/,I5,5X,I5,1H/,I5,5X,2A4) 890 FORMAT (/20X,5X,1H/,I5,5X,I5,1H/,I5) 900 I = I + 1 GO TO 90 910 RETURN END ================================================ FILE: mis/dumx.f ================================================ SUBROUTINE DUMX C C DELETE ANY OF THE FOLLOW ENTRY POINT IF A SUBROUTINE OF THE SAME C NAME ALREADY EXISTS C INTEGER II(9),KK(9) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ IBUF,NOUT DATA II / 9*0/, JJ /4H DUM/, KK / 1 1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9 / C GO TO 30 C C ENTRY DUM9 ( ICORE ) C ========== C J = 9 GO TO 10 C C ENTRY DUM8 ( ICORE ) C ========== C J = 8 GO TO 10 C C ENTRY DUM7 ( ICORE ) C ========== C J = 7 GO TO 10 C C ENTRY DUM6 ( ICORE ) C ========== C J = 6 GO TO 10 C C ENTRY DUM5 ( ICORE ) C ========== C J = 5 GO TO 10 C C ENTRY DUM4 ( ICORE ) C ========== C J = 4 GO TO 10 C C ENTRY DUM3 ( ICORE ) C ========== C J = 3 GO TO 10 C C ENTRY DUM2 ( ICORE ) C ========== C J = 2 GO TO 10 C C ENTRY DUM1 ( ICORE ) C ========== C J = 1 C GO TO 10 C 10 IF (II(J) .NE. 0) GO TO 30 II(J) = 1 WRITE (NOUT,20) UWM,JJ,KK(J) 20 FORMAT (A25,' 2182, SUBROUTINE ',2A4,' IS DUMMY. ONLY ONE OF ', 1 'THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK.') 30 RETURN END ================================================ FILE: mis/dupart.f ================================================ SUBROUTINE DUPART C C DRIVER FOR DMAP MODULE UPARTN C C DMAP CALLING SEQUENCE IS C UPARTN USET,KNN/KFF,KSF,KFS,KSS/C,N,N/C,N,F/C,N,S $ C INTEGER USET,SCR1,SUB0,SUB1,IABIT(16),NAME(2),IB(3) COMMON /BLANK / MAJOR(2),SUB0(2),SUB1(2) COMMON /BITPOS/ IBIT(32),IABIT DATA NAME / 4HUPAR ,4HTN / DATA USET , KNN, KFF, KSF, KFS, KSS, SCR1 / 1 101 , 102, 201, 202, 203, 204, 301 / C C NOGO = 0 C C DECIDE IF CHARACTERS ARE LEGAL BIT NUMBERS C IB(1) = MAJOR(1) IB(2) = SUB0(1) IB(3) = SUB1(1) C DO 30 J = 1,3 DO 20 I = 1,32 IF (IB(J) .NE. IABIT(I)) GO TO 20 IB(J) = IBIT(I) GO TO 30 20 CONTINUE C C INVALID CALL MESAGE (59,IB(J),NAME) NOGO = 1 30 CONTINUE C IF (NOGO .EQ. 1) CALL MESAGE (-7,0,NAME) C CALL UPART (USET,SCR1,IB(1),IB(2),IB(3)) CALL MPART (KNN,KFF,KSF,KFS,KSS) RETURN END ================================================ FILE: mis/dvectr.f ================================================ SUBROUTINE DVECTR (GPT,X,U,PEN) C INTEGER GPT(1),PEN REAL X(3,1),U(2,1) COMMON /BLANK/ NGP C CALL LINE (0,0,0,0,0,-1) C C DO NOT DRAW A VECTOR AT ANY GRID POINT WHOSE INDEX .LE. 0. C DO 120 I = 1,NGP J = GPT(I) IF (J .LE. 0) GO TO 120 X1 = X(2,J) Y1 = X(3,J) X2 = U(1,J) Y2 = U(2,J) CALL LINE (X1,Y1,X2,Y2,PEN,0) 120 CONTINUE C CALL LINE (0,0,0,0,0,1) RETURN END ================================================ FILE: mis/dvmag.f ================================================ DOUBLE PRECISION FUNCTION DVMAG (V1,EPS) C C RETURNS DOUBLE PRECISION MAGNITUDE OF VECTOR V1 C DVMAG= 0.D0 WHEN .LE. EPS C DOUBLE PRECISION V1(3), A, EPS, DADOTB C C DVMAG= 0.D0 A= DADOTB(V1,V1) IF (A .GT. 0.D0) DVMAG= DSQRT(A) IF ( DVMAG .LE. EPS) DVMAG= 0.D0 RETURN END ================================================ FILE: mis/dypz.f ================================================ SUBROUTINE DYPZ(KB,KS,LS,I,J1,J2,NYFLAG, SGR,CGR, * FMACH,ARB,NBEA,LBO,LSO,JBO,DT) C *** GENERATES ROWS OF THE SUBMATRICES DYP, DYZ AND DYY C USING SUBROUTINE SUBB COMPLEX SUM,DT(1) DIMENSION ARB(1),NBEA(1) COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS, * INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB, * IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG, * ICG,IXIJ,IX,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA * ,INASB,IFLA1,IFLA2,ITH1A,ITH2A, * ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5 COMMON /ZZZZZZ / Z(1) NDY = 1 NYFL = NYFLAG PI = 3.1415926 EPS = 0.00001 BETA = SQRT(1.0-FMACH**2) JZ = 0 LB = LBO C LB IS THE BODY NUMBER ASSOCIATED WITH SENDING POINT J LS = LSO C LS IS THE INDEX OF THE Y AND Z COORDINATES OF SENDING POINT J -- C LS RUNS FROM NSTRIP+NB-NBY+1 THROUGH NSTRIP+NB JB = JBO-1 AR = ARB(LB) DO 30 J=J1,J2 JB = JB+1 JZ = JZ+1 CALL SUBB(KB,KS,I,J,JB,LB,LS,NDY,NYFL, PI,EPS, * SGR,CGR,AR,BETA,SUM,Z(IRIA),Z(IDELX),Z(IYB),Z(IZB),Z(IYS), * Z(IZS),Z(IX)) DT(J)= SUM IF (JZ.EQ.NBEA(LB)) GO TO 20 GO TO 30 20 CONTINUE JZ = 0 LB = LB+1 LS = LS+1 AR = ARB(LB) 30 CONTINUE RETURN END ================================================ FILE: mis/dzpy.f ================================================ SUBROUTINE DZPY(KB,KS,LS,I,J1,J2,NYFLAG, SGR,CGR, * FMACH,ARB,NBEA,DT) C *** GENERATES ROWS OF THE SUBMATRICES DZP, DZZ AND DZY C USING SUBROUTINE SUBB COMPLEX SUM,DT(1) DIMENSION ARB(1),NBEA(1) COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS, * INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB, * IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG, * ICG,IXIJ,IX,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA * ,INASB,IFLA1,IFLA2,ITH1A,ITH2A, * ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5 COMMON /ZZZZZZ / Z(1) NDY = 0 NYFL = NYFLAG PI = 3.1415926 EPS = 0.00001 BETA = SQRT(1.0-FMACH**2) JZ = 0 LB = 1 JB = 0 AR = ARB(LB) C LS IS THE INDEX OF THE Y AND Z COORDINATES OF SENDING POINT J -- C LS RUNS FROM NSTRIP+1 THROUGH NSTRIP+NBZ DO 30 J=J1,J2 JB = JB+1 C JB IS THE BODY-ELEMENT NUMBER IN BODY LB -- JB RUNS FROM 1 C THROUGH NTZ JZ = JZ+1 C JZ RUNS FROM 1 THROUGH NBE-SUB-LB CALL SUBB(KB,KS,I,J,JB,LB,LS,NDY,NYFL, PI,EPS, * SGR,CGR,AR,BETA,SUM,Z(IRIA),Z(IDELX),Z(IYB),Z(IZB),Z(IYS), * Z(IZS),Z(IX)) DT(J)= SUM IF (JZ.EQ.NBEA(LB)) GO TO 20 GO TO 30 20 CONTINUE JZ = 0 LB = LB+1 LS = LS+1 AR = ARB(LB) 30 CONTINUE RETURN END ================================================ FILE: mis/dzy.f ================================================ SUBROUTINE DZY (X,Y,Z,SGR,CGR,XI1,XI2,ETA,ZETA,AR,AO,KR,CBAR, 1 BETA,FMACH,LSH,IDZDY,DZDYR,DZDYI) C C CALCULATION OF THE DZ AND DY MATRICES USED IN SLENDER BODY FLOW C C X X- COORDINATE OF THE RECEIVING POINT C Y Y - COORDINATE OF THE RECEIVING POINT C Z Z - COORDINATE OF THE RECEIVING POINT C SGR SINE OF THE RECEIVING POINT DIHEDRAL ANGLE C CGR COSINE OF RECEIVING POINT DIHEDRAL ANGLE C XI1 C XI2 C ETA C ZETA C AR ASPECT RATIO OF THE SENDING BODY C A0 RADIUS OF THE SENDING BODY C KR REDUCED FREQUENCY C CBAR REFERENCE CHORD LENGTH C BETA SQRT(1.0-M**2) C FMACH MACH NUMBER C IDZDY FLAG INDICATING WHETHER DZ OF DY IS TO BE C CALCULATED. =0 DZ, OTHERWISE DY C DZDYR REAL PART OF DZ OR DY C DZDYI IMAGINARY PART OF DZ OR DY C C REAL KD1PR, KD1PI, KD2PR, KD2PI, KD1MR, KD1MI, KD2MR, KD2MI DATA PI16 / 50.265482 / C C C THE COMPLEX NUMBERS IN THIS ROUTINE ARE TREATED SEPERATLY AS C THE REAL PART, NAME APPENDED BY AN -R- , AND THE C IMAGINARY PART, NAME APPENDED BY AN -I- . C E = AO*SQRT(ABS(1.0 - AR**2))/2.0 X01 = X - XI1 X02 = X - XI2 C C CHECK ON INPUT FLAG, = 0 DZ , = 1 DY C IF (IDZDY .EQ. 1) GO TO 200 C C ** ** C * D Z * C ** ** C SGS = 0.0 CGS = 1.0 IF (AR .LT. 1.0) GO TO 400 C Z01 = Z - (ZETA+E) Z02 = Z - (ZETA-E) Y01 = Y - ETA Y02 = Y01 GO TO 300 C C ** ** C * D Y * C ** ** C 200 SGS = -1.0 IF (LSH .EQ. 1) SGS = 1.0 CGS = 0.0 IF (AR .GT. 1.0) GO TO 400 C Z01 = Z - ZETA Z02 = Z01 Y01 = Y - (ETA+E) Y02 = Y - (ETA-E) C C **** DZ AR .GE. 1 **** C **** DY AR .LE. 1 **** C 300 CONTINUE L = 0 Z0 = Z - ZETA Y0 = Y - ETA C R1SQR = Y01**2 + Z01**2 R2SQR = Y02**2 + Z02**2 R1FOR = R1SQR**2 R2FOR = R2SQR**2 C CALL FLLD (X01,X02,Y01,Z01,SGR,CGR,SGS,CGS,KR,CBAR,FMACH,E,L, 1 KD1PR,KD1PI,KD2PR,KD2PI) C IF (AR .NE. 1.0) GO TO 320 C C IDENTICAL RESULTS FROM FLLD, THEREFORE SKIP SECOND CALL C KD1MR = KD1PR KD1MI = KD1PI KD2MR = KD2PR KD2MI = KD2PI GO TO 360 320 CONTINUE CALL FLLD (X01,X02,Y02,Z02,SGR,CGR,SGS,CGS,KR,CBAR,FMACH,E,L, 1 KD1MR,KD1MI,KD2MR,KD2MI) 360 CONTINUE DZDYR = 0.0 DZDYI = 0.0 IF (R1SQR.LE.0.0001. OR .R2SQR.LE.0.0001) GO TO 370 C C REAL C DZDYR = ((KD1PR/R1SQR+KD1MR/R2SQR) + (KD2PR/R1FOR+KD2MR/R2FOR)) 1 /PI16*(-1.0) C C IMAGINARY C DZDYI = ((KD1PI/R1SQR+KD1MI/R2SQR) + (KD2PI/R1FOR+KD2MI/R2FOR)) 1 /PI16*(-1.0) 370 CONTINUE C RETURN C C **** DZ-AR .LT. 1 **** C **** DY-AR .GT. 1 **** C 400 SL1 = 0.0 TL1 = 0.0 SL2 = 0.0 TL2 = 0.0 CL1 = 1.0 CL2 = 1.0 E = 1.732051*E Y0 = Y - ETA Z0 = Z - ZETA C CALL TVOR (SL1,CL1,TL1,SL2,CL2,TL2,SGS,CGS,SGR,CGR,X01,X02, 1 Y0,Z0,E,BETA,CBAR,FMACH,KR,DZDYR,DZDYI) RETURN END ================================================ FILE: mis/dzymat.f ================================================ SUBROUTINE DZYMAT (D,NFB,NLB,NTZYS,IDZDY,NTAPE,XP,BETA,IPRNT,NS, 1 NC,YP,ZP,SG,CG,YB,ZB,NBEA) C C CALCULATION OF DZ AND DY MATRICES SLENDER BODY CALCULATIONS C C D WORKING ARRAY USED TO STORE A ROW OF DZ OR DY C NFB NUMBER OF THE FIRST BODY WITH THE ORIENTATION REQUESTED C NLB NUMBER OF THE LAST BODY WITH THE ORIENTATION C REQUESTED C NTZYS NUMBER OF Z OR Y ORIENTED SLENDER BODY ELE. C NTAPE I/O UNIT NUMBER WHICH THE OUTPUT MATRIX IS TO C BE WRITTEN ON C XP X-CONTROL POINT COORDINATE OF LIFTING SURFACE C BOXES C BETA SQRT(1.0 - M**2) C INTEGER BY,BZ,C,C1,P,S,S1,YT,ZT DIMENSION D(2,NTZYS),XP(1),NS(1),NC(1),YP(1),ZP(1),SG(1), 1 CG(1),YB(1),ZB(1),NBEA(1) COMMON /DLBDY / NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS, 1 INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA, 2 IZB,IYB,IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122, 3 IZS,IYS,ICS,IEE,ISG,ICG,IXIJ,IX,IDELX,IXIC,IXLAM, 4 IA0,IXIS1,IXIS2,IA0P,IRIA,INASB,IFLA1,IFLA2,ITH1A, 5 ITH2A,ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5 COMMON /ZZZZZZ/ Z(1) COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,KR COMMON /SYSTEM/ SYSBUF,NPOT C C1 = 0 S1 = 0 NFYB = NB - NBY + 1 IF (NP .EQ. 0) GO TO 410 C C THIS LOOP IS FOR EACH LIFTING SURF. PANEL C ISN = 0 DO 400 P = 1,NP NSP = NS(P) NCP = NC(P) NSP = (NSP-ISN)/NCP ISN = NS(P) C C LOOP FOR EACH STRIP IN PANEL -P- C DO 350 S = 1,NSP S1 = S1 + 1 C C Y AND Z COORDINATE OF STRIP C DY = YP(S1) DZ = ZP(S1) SGR = SG(S1) CGR = CG(S1) C C LOOP FOR EACH CHORDWISE ELEMENT IN STRIP C DO 300 C = 1,NCP C1 = C1 + 1 DX = XP(C1) C C - ROWDYC - CALCULATES ROW -C1- OF DZ OR DY C CALL ROWDYZ (NFB,NLB,C1,NTZYS,D,DX,DY,DZ,BETA,IDZDY,NTAPE,SGR, 1 CGR,IPRNT,YB,ZB,Z(IARB),Z(INSBEA),Z(IXIS1),Z(IXIS2), 2 Z(IA0)) C 300 CONTINUE 350 CONTINUE 400 CONTINUE C C WE HAVE NOW CALCULATED -C1- ROWS WHICH ARE THE LIFTING SURFACES. C NOW, LOOP FOR THE -Z- ORIENTED BODIES C 410 CONTINUE IF (NBZ.LE.0 .OR. NTZ.LE.0) GO TO 510 SGR = 0.0 CGR = 1.0 DO 500 BZ = 1,NBZ DY = YB(BZ) DZ = ZB(BZ) NBEZ = NBEA(BZ) C C LOOP FOR EACH ELEMENT OF BODY -BZ- C DO 450 ZT = 1,NBEZ C1 = C1 + 1 DX = XP(C1) C CALL ROWDYZ (NFB,NLB,C1,NTZYS,D,DX,DY,DZ,BETA,IDZDY,NTAPE,SGR, 1 CGR,IPRNT,YB,ZB,Z(IARB),Z(INSBEA),Z(IXIS1),Z(IXIS2), 2 Z(IA0)) 450 CONTINUE 500 CONTINUE C C NOW, LOOP FOR THE -Y- ORIENTED BODIES C 510 IF (NB.LT.NFYB .OR. NTY.LE.0) GO TO 650 IXP = NTP IF (NFYB .LE. 1) GO TO 530 NFYBM1 = NFYB - 1 DO 520 I = 1,NFYBM1 520 IXP = IXP + NBEA(I) 530 CONTINUE SGR =-1.0 CGR = 0.0 DO 600 BY = NFYB,NB DY = YB(BY) DZ = ZB(BY) NBEY = NBEA(BY) C C LOOP FOR EACH ELEMENT OF BODY -BY- C DO 550 YT = 1,NBEY C1 = C1 + 1 IXP = IXP + 1 DX = XP(IXP) C CALL ROWDYZ (NFB,NLB,C1,NTZYS,D,DX,DY,DZ,BETA,IDZDY,NTAPE,SGR, 1 CGR,IPRNT,YB,ZB,Z(IARB),Z(INSBEA),Z(IXIS1),Z(IXIS2), 2 Z(IA0)) C 550 CONTINUE 600 CONTINUE 650 CONTINUE RETURN END ================================================ FILE: mis/eadd.f ================================================ SUBROUTINE EADD (P,PREC) C INTEGER IA(7) ,IB(7) ,IC(7) ,PREC DOUBLE PRECISION BETA(2) ,P(1) ,ALPHA(2) COMMON /REGEAN/ IM(7) ,IK(7) ,IEV(7) ,KA(5) ,LC , 1 NN(13) ,IBUCK COMMON /BLANK / XX COMMON /SADDX / NOMAT ,NZ ,MCBS(67) COMMON /ZZZZZZ/ CORE(1) EQUIVALENCE (MCBS( 1),IA(1)) ,(MCBS( 8),IALP) , 1 (MCBS( 9),ALPHA(1)),(MCBS(13),IB(1)) , 2 (MCBS(20),IBETA) ,(MCBS(21),BETA(1)) , 3 (MCBS(61),IC(1)) C NZ = (KORSZ(CORE)/2)*2 - LC DO 10 I = 1,7 IA(I) = IM(I) IB(I) = IK(I) 10 IC(I) = IK(I) IC(1) = KA(1) KPREC = IK(5) IF (PREC.GE.1 .AND. PREC.LE.4) KPREC = PREC IALP = KPREC ALPHA(1) = P(1) IBETA = KPREC BETA(1)= 1.0D0 NOMAT = 2 CALL SADD (CORE,CORE) CALL WRTTRL (IC) RETURN END ================================================ FILE: mis/eandm.f ================================================ SUBROUTINE EANDM (ITYPE,IDO,NEXTZ,LCORE,NBDYS,ALL,NELOUT) C C COMPUTES ADDITIONAL LOAD IN ZIEKIEWICZ PAPER DUE TO SPECIFIED C MAGNETIC FIELD OR CURRENT LOOP C C ITYPE = 20 SPCFLD C ITYPE = 21 CEMLOOP C ITYPE = 22 GEMLOOP C ITYPE = 23 MDIPOLE C ITYPE = 24 REMFLUX C IDO = NUMBER OF CARDS OF PRESENT TYPE C NEXTZ = NEXT AVAILABLE POINTER INTO OPEN CORE C LAST AVAILABLE POINTER INTO OPEN CORE C *** ALL CEMLOOP, SPCFLD, GEMLOOP, AND MDIPOLE CARDS WERE COMBINED C INTO ONE SPCFLD-TYPE CARD WITH 3*NROWSP WORDS-HCX, HCY, HCZ AT C EACH POINT AND IS INDICATED BY ITYPE =-20. THESE 3*NROWSP WORDS C ARE WRITTEN TO HCFLDS FOR LATER USE. THE OTHER CARDS ARE STILL ON C SLT FOR USE IN THE NUMERICAL INTEGRATION. C LOGICAL DONE INTEGER FILE,BUF1,SYSBUF,EST,SLT,ELTYPE,ESTWDS,OUTPT,SCR6, 1 HCFLDS,MCB(7),REMFLS,MCB1(7),MCB2(7) DIMENSION IZ(1),NAM(2),NECPT(1),NAME(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / NROWSP COMMON /SYSTEM/ KSYSTM(64) COMMON /EMECPT/ ECPT(200) COMMON /PACKX / ITA,ITB,II,JJ,INCUR COMMON /ZBLPKX/ A(4),IROW COMMON /ZZZZZZ/ Z(1) COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1) EQUIVALENCE (KSYSTM(1),SYSBUF),(KSYSTM(2),OUTPT),(Z(1),IZ(1)), 1 (KSYSTM(56),ITHRML),(ECPT(1),NECPT(1)) DATA NAM / 4HEAND,4HM / DATA EST , SLT, HCFLDS,REMFLS,SCR6 / 1 105 , 205, 304, 305, 306 / DATA MCB / 304, 0, 0, 2, 1, 0, 0 / DATA MCB1 / 305, 0, 0, 2, 1, 0, 0 / DATA DONE / .FALSE. / C C CHECK IF THERMAL FORMULATION C IF (ITHRML .EQ. 0) RETURN C C READ A CARD TYPE FROM SLT. TYPE=-20 IS THE COMBINATION HC FOR ALL C CARD TYPES EXCEPT REMFLUX AND SIGNIFIES END OF A SUBCASE. READ AND C PACK IT. SAME FOR TYPE = 24(REMFLUX). FOR TYPES 20-24, COMPUTE C LOAD = INTEGRAL(GRAD(NI)*MU*HC)*D(VOL). WE WILL USE NUMERICAL C INTEGRATION FOR ITYPE=24-REMFLUX-ONLY ONE CARD GIVING FLUX IN C EACH ELEMENT COMPUTE INTEGRAL(GRAD NI*BR)*D(VOL) C BUF1 = LCORE - SYSBUF + 1 ICORE = BUF1 - 1 IF (NEXTZ .GT. BUF1) GO TO 420 C IF (ITYPE.NE.-20 .AND. ITYPE.NE.24) GO TO 40 IF (IDO .NE. 1) GO TO 300 C C END OF SUBCASE-WRAP UP SCR6 AND CALL HCCOM TO COMBINE CENTROID C RESULTS IF NOT REMFLUX, CALL HCCOM NOW.IF REMFLUX, WAIT UNTIL C KCOUNT IS SET. C CALL CLOSE (SCR6,1) IF (ITYPE.EQ.-20) CALL HCCOM (ITYPE,LCORE,ICORE,NEXTZ,KCOUNT) JJ = NROWSP C C ITYPE=-20 OR +24--END OF SUBCASE. IF +24, WRITE ZEROS TO HCFLDS C AND HCCENS AND REMFLUX VECTOR TO REMFLS. THEN CONTINUE ON TO C COMPUTE LOADS. IF ITYPE=-20, WRITE ZRROS TO REMFLS, GRID POINT C HC VALUES TO HCFLDS AND CENTROIDAL VALUES TO HCCENS (ALREADY DONE C IN HCCOM). FOR ITYPE=-20, NO FURTHER PROCESSING IS DONE SINCE C LOADS HAVE ALREADY BEEN COMPUTED. C ITA = 1 ITB = 1 II = 1 JJ = 3*NROWSP INCUR = 1 MCB(3) = JJ MCB2(1)= EST CALL RDTRL (MCB2) NEL = MCB2(2) JJ1 = 3*NEL MCB1(3)= JJ1 C C READ IN THE ONE SPCFLD OR REMFLUX-TYPE CARD C NWORDS = 3*NROWSP IF (ITYPE .NE. 24) GO TO 10 NWORDS = 3*NEL JJ = NWORDS JJ1 = 3*NROWSP 10 ISTART = NEXTZ IF (NEXTZ+NWORDS-1 .GT. ICORE) GO TO 420 CALL FREAD (SLT,Z(NEXTZ),NWORDS,0) C C CREATE A ZERO VECTOR FOR EITHER REMFLS OR HCFLDS(WHICHEVER IS NOT C USED IN THIS SET ID-REMEMBER THAT SPCFLD AND REMFLUX CANNOT HAVE C THE SAME SET ID C C PACK THE 3*NROWSP HC FIELD OUT TO BE USED LATER BY EMFLD. HCFLDS C WILL CONTAIN ONE COLUMN PER CASE CONTROL SIMPLE SELECTION C (SIMPLE LOADS ON LOAD CARDS ARE INCLUDED). COMBIN WILL COMBINE C FOR LOAD BULK DATA CARDS AND PUT LOADS IN ORDER OF SELECTION ONTO C HCFL (SAME HOLDS FOR 3*NEL WORDS OF REMFLS) C IF (ITYPE .EQ. 24) GO TO 20 CALL PACK (Z(NEXTZ),HCFLDS,MCB) CALL WRTTRL (MCB) JJ = JJ1 CALL BLDPK (1,1,REMFLS,0,0) CALL BLDPKN (REMFLS,0,MCB1) CALL WRTTRL (MCB1) GO TO 30 20 CALL PACK(Z (NEXTZ),REMFLS,MCB1) CALL WRTTRL (MCB1) JJ = JJ1 CALL BLDPK (1,1,HCFLDS,0,0) CALL BLDPKN (HCFLDS,0,MCB) CALL WRTTRL (MCB) C C RETURN JJ TO VALUE EXPECTED IN EXTERN C 30 JJ = NROWSP IF (ITYPE .EQ. -20) RETURN C C GET INFO FROM EST C 40 FILE = EST CALL GOPEN (EST,Z(BUF1),0) NCOUNT = 0 IF (.NOT.DONE) KCOUNT = 0 C C READ IN ALL CARDS OF THIS TYPE FOR THIS SUBCASE. NO NEED TO READ C IN THE ONE REMFLUX CARD SINCE IT WAS DONE ABOVE. C IJK = ITYPE - 19 GO TO (50,60,70,80,100), IJK 50 IWORDS = 3*NROWSP IF (IDO .NE. 1) GO TO 300 GO TO 90 60 IWORDS = 12 GO TO 90 70 IWORDS = 48 GO TO 90 80 IWORDS = 9 90 NWORDS = IWORDS*IDO IF (NEXTZ+NWORDS-1 .GT. ICORE) GO TO 420 CALL FREAD (SLT,Z(NEXTZ),NWORDS,0) ISTART = NEXTZ C 100 CALL READ (*260,*410,EST,ELTYPE,1,0,IFLAG) IDX = (ELTYPE-1)*INCR ESTWDS = NE(IDX+12) NGRIDS = NE(IDX+10) NAME(1)= NE(IDX+1) NAME(2)= NE(IDX+2) C 120 CALL READ (*400,*100,EST,ECPT,ESTWDS,0,IFLAG) NCOUNT = NCOUNT + 1 IF (DONE) GO TO 130 IF (ELTYPE .LT. 65) KCOUNT = KCOUNT + 3 IF (ELTYPE .EQ. 65) KCOUNT = KCOUNT + 27 IF (ELTYPE.EQ.66 .OR. ELTYPE.EQ.67) KCOUNT = KCOUNT + 63 IF (ELTYPE .EQ. 80) KCOUNT = KCOUNT + 27 C 130 IF (ELTYPE .GT. 80) GO TO 230 GO TO (200,230,200,230,230,210,230,230,210,200, 1 230,230,230,230,230,210,210,210,210,230, 2 230,230,230,230,230,230,230,230,230,230, 3 230,230,230,200,230,210,210,230,220,220, 4 220,220,230,230,230,230,230,230,230,230, 5 230,230,230,230,230,230,230,230,230,230, 6 230,230,230,230,220,220,220,230,230,230, 7 230,230,230,230,230,230,230,230,230,210), ELTYPE C 200 CALL EM1D (ELTYPE,ISTART,ITYPE,NCOUNT,IDO,IWORDS,NBDYS,ALL,NELOUT) GO TO 120 210 CALL EM2D (ELTYPE,ISTART,ITYPE,NCOUNT,IDO,IWORDS,NBDYS,ALL,NELOUT) GO TO 120 220 CALL EM3D (ELTYPE,ISTART,ITYPE,NCOUNT,IDO,IWORDS,NBDYS,ALL,NELOUT) GO TO 120 C 230 WRITE (OUTPT,240) UFM,NAME 240 FORMAT (A23,', ELEMENT TYPE ',2A4,' WAS USED IN AN E AND M ', 1 'PROBLEM. NOT A LEGAL TYPE') 250 CALL MESAGE (-61,0,0) C C DONE C 260 CALL CLOSE (EST,1) IF (ITYPE .EQ. 24) GO TO 270 CALL WRITE (SCR6,0,0,1) GO TO 280 270 CALL HCCOM (ITYPE,LCORE,ICORE,NEXTZ,KCOUNT) JJ = NROWSP 280 DONE =.TRUE. RETURN C C FATAL ERROR MESSAGES C 300 WRITE (OUTPT,310) UFM,NAM 310 FORMAT (A23,', LOGIC ERROR IN SUBROUTINE ',2A4, 1 '. ONLY ONE SPCFLD OR REMFLUX SHOULD NOW EXIST') GO TO 250 C 400 N = -2 GO TO 430 410 N = -3 GO TO 430 420 N = -8 FILE = 0 430 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/ectloc.f ================================================ SUBROUTINE ECTLOC(*,ECT,BUF,IELEM) C***** C ECTLOC IS A SPECIAL PURPOSE VERSION OF SUBROUTINE LOCATE. ITS C PURPOSE IS TO PASS THE ECT FILE SEQUENTIALLY POSITIONING EACH LOGICAL C RECORD AFTER THE 3-WORD HEADER AND PROVIDING A POINTER TO THE C APPROPRIATE ENTRY IN THE ELEM TABLE IN /GPTA1/. PLOTEL C ELEMENTS ARE IGNORED. C NOTE---THE ECT FILE MUST BE OPEN ON EACH CALL. C C ARGUMENTS C C ECT ---INPUT ---EINO FILE NAME OF THE ECT C BUF ---IN/OUT---ADDRESS OF A 3-WORD ARRAY INTO WHICH C THE FIRST 3 WORDS OF THE RECORD ARE READ C IELEM ---OUTPUT---POINTER TO 1ST WORD OF ENTRY IN ELEM C TABLE IN /GPTA1/ C C NON-STANDARD RETURN---GIVEN WHEN EOF HIT. ECT IS CLOSED BEFORE RETURN. C***** INTEGER ECT , BUF(3), ELEM, PLOTEL C COMMON/ GPTA1 / NELEM, LAST, INCR, ELEM(1) C DATA PLOTEL/ 4HPLOT / C C READ A 3-WORD RECORD HEADER. IF NOT 3 WORDS, TRY NEXT RECORD C 10 CONTINUE CALL READ(*90,*10,ECT,BUF,3,0,NREAD) C C SEARCH FOR MATCH OF FIRST WORD OF RECORD WITH ECT-ID WORD IN /GPTA1/ C IF FOUND AND NOT PLOTEL, RETURN POINTER. C DO 20 I=1,LAST,INCR IF( BUF(1) .EQ. ELEM(I+3) ) GO TO 30 20 CONTINUE 25 CALL FWDREC(*90,ECT) GO TO 10 30 IF( ELEM(I).EQ.PLOTEL ) GO TO 25 IELEM = I RETURN C C EOF ENCOUNTERED--CLOSE FILE AND RETURN. C 90 CALL CLOSE( ECT, 1 ) IELEM = 0 RETURN 1 END ================================================ FILE: mis/edit.f ================================================ SUBROUTINE EDIT (NAME,IOPT,ITEST) C C REMOVES SELECTED ITEMS OF THE SUBSTRUCTURE NAME FROM THE SOF. C THE VALUE OF IOPT IS THE SUM OF THE FOLLOWING INTEGERS REFLECTING C WHICH ITEMS ARE TO BE REMOVED. C C 1 = STIFFNESS MATRIX C 2 = MASS MATRIX C 4 = LOAD DATA C 8 = SOLUTION DATA C 16 = TRANSFORMATION DATA C 32 = ALL ITEMS OF SUBSTRUCTURE C 64 = APPENDED LOADS DATA C 128 = DAMPING MATRICES C 256 = MODES DATA C C THE OUTPUT VARIABLE ITEST TAKES ON ONE OF THE FOLLOWING VALUES C 1 NORMATL RETURN C 4 IF NAME DOES NOT EXIST C EXTERNAL ANDF INTEGER ANDF,NAME(2),NMSBR(2) COMMON /ITEMDT/ NITEM,ITEM(7,1) DATA NMSBR / 4HEDIT,4H / C CALL CHKOPN (NMSBR(1)) ITEST = 1 IF (IOPT .LE. 0) GO TO 20 CALL FDSUB (NAME(1),INDEX) IF (INDEX .EQ. -1) GO TO 30 C C REMOVE SELECTED ITEMS ACCORDING TO IOPT S VALUE. C DO 10 I = 1,NITEM MASK = ITEM(7,I) IF (ANDF(IOPT,MASK) .NE. 0) CALL DELETE (NAME,ITEM(1,I),IT) 10 CONTINUE 20 RETURN C C NAME DOES NOT EXIST. C 30 ITEST = 4 RETURN END ================================================ FILE: mis/edtl.f ================================================ SUBROUTINE EDTL (NEDT,ILIST,PG) C C THIS SUBROUTINE COMPUTES THE ELEMENT TEMPERATURE AND ENFORCED C DEFORMATION LOADS C IMPLICIT INTEGER (A-Z) LOGICAL EORFLG,ENDID,BUFFLG,RECORD INTEGER PG(7),PCOMP(2),PCOMP1(2),PCOMP2(2),ILIST(1), 1 IPARM(2),TLIST(1080) REAL CORE,TI CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /BLANK / NROWSP,IPARAM,COMPS COMMON /SYSTEM/ KSYSTM(64) COMMON /PACKX / ITYA,ITYB,II,JJ,INCUR COMMON /ZZZZZZ/ CORE(1) COMMON /XCSTM / TGB(3,3) COMMON /TRANX / IDUM1(14) COMMON /FPT / TO,NSIL,NGPTT,NSTART,LCORE COMMON /LOADX / LCARE,N(3),CSTM,SIL,NNN,ECPT,MPT,GPTT,EDT,IMPT, 1 IGPTT,IEC,NN(3),DIT,ICM COMMON /TRIMEX/ MECPT(200) COMMON /SGTMPD/ TI(33) COMMON /MATIN / MATID,INFLAG,TEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E1,G,NU,RHO,ALPHA,TO1,GE,SIGMAT,SIGMAC,SIGMAS, 1 SPACE(10) COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1) COMMON /SSGETT/ ELTYPE,OLDEL,EORFLG,ENDID,BUFFLG,ITEMP,IDEFT, 1 IDEFM,RECORD COMMON /SSGWRK/ DUM(300) COMMON /COMPST/ IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2 EQUIVALENCE (KSYSTM( 1),SYSBUF),(KSYSTM( 2),OUTPT ), 1 (KSYSTM(55),IPREC ),(KSYSTM(56),ITHRML), 2 (TI(7) ,ICHECK),(TI(6) ,IFLAG ) DATA IPARM , IPGTT/ 4HEDTL,4H ,4HGPTT / DATA CROD , CTUBE, CONROD, CBAR, PCOMPS / 1 1 , 3 , 10 , 34 , 112 / DATA PCOMP , PCOMP1, PCOMP2 / 1 5502 , 55, 5602, 56, 5702, 57 / C IGPTT = IPGTT C C CHECK IF HEAT FORMULATION C IF (ITHRML .NE. 0) RETURN C ITEMP = 0 IDEFT = NEDT GO TO 10 C C ENTRY TEMPL (NTEMP,ILIST,PG) C ============================ C IF (ITHRML .NE. 0) RETURN IDEFT = 0 ITEMP = NTEMP C C START SEARCH POINTERS AT ZERO C 10 ITYA = 1 CALL DELSET ITYB = 1 IPR = IPREC IF (IPR .NE. 1) IPR = 0 II = 1 JJ = NROWSP INCUR = 1 NNN = 0 NOGPTT= 0 IDUM1(1) = 0 ICM = 1 NOEDT = 0 CALL DELSET LPCOMP = 0 C C SET CORE SIZE AND BUFFERS C LCORE= KORSZ(CORE) - NROWSP BUF1 = LCORE - SYSBUF - 2 BUF2 = BUF1 - SYSBUF - 2 BUF3 = BUF2 - SYSBUF - 2 BUF4 = BUF3 - SYSBUF - 2 BUF5 = BUF4 - SYSBUF - 2 C C OPEN FILES-- C C READ FILE PCOMPS INTO CORE ONLY IF PARAM COMPS = -1, C INDICATING THE PRESENCE OF LAMINATED COMPOSITE ELEMENTS C IF (COMPS .NE. -1) GO TO 25 C IPM = PCOMPS CALL PRELOC (*750,CORE(BUF2),PCOMPS) C IPCMP = NROWSP + 1 IPCMP1 = IPCMP NPCMP = 0 NPCMP1 = 0 NPCMP2 = 0 C LCORE = BUF5 - NROWSP - 1 C C LOCATE PCOMP DATA AND READ INTO CORE C CALL LOCATE (*14,CORE(BUF2),PCOMP,FLAG) C CALL READ (*860,*12,PCOMPS,CORE(IPCMP),LCORE,0,NPCMP) GO TO 820 12 IPCMP1 = IPCMP + NPCMP LCORE = LCORE - NPCMP IF (IPCMP1 .GE. LCORE) GO TO 820 C C LOCATE PCOMP1 DATA AND READ INTO CORE C 14 CALL LOCATE (*18,CORE(BUF2),PCOMP1,FLAG) C IPCMP1 = IPCMP + NPCMP CALL READ (*20,*16,PCOMPS,CORE(IPCMP1),LCORE,0,NPCMP1) GO TO 820 16 IPCMP2 = IPCMP1 + NPCMP1 LCORE = LCORE - NPCMP1 IF (IPCMP2 .GE. LCORE) GO TO 820 C C LOCATE PCOMP2 DATA AND READ INTO CORE C 18 CALL LOCATE (*20,CORE(BUF2),PCOMP2,FLAG) C IPCMP2 = IPCMP1 + NPCMP1 CALL READ (*20,*20,PCOMPS,CORE(IPCMP2),LCORE,0,NPCMP2) GO TO 820 C 20 LPCOMP = NPCMP + NPCMP1 + NPCMP2 C LCORE = LCORE - NPCMP2 IF (LCORE .LE. 0) GO TO 820 C CALL CLOSE (PCOMPS,1) C C 25 CALL GOPEN (ECPT,CORE(BUF2),0) IF (ITEMP) 30,40,30 30 IPM = GPTT CALL OPEN (*750,GPTT,CORE(BUF3),0) C C BRING IN MAT ETC C CALL READ (*860,*810,GPTT,TLIST(1), -2,0,NTLIST) CALL READ (*860,*40 ,GPTT,TLIST(1),1080,1,NTLIST) WRITE (OUTPT,35) UFM 35 FORMAT (A23,' 4013, PROBLEM LIMITATION OF 360 TEMPERATURE SETS ', 1 ' HAS BEEN EXCEEDED.') N1 = -37 GO TO 760 40 IF (IDEFT .NE. 0) CALL GOPEN (EDT,CORE(BUF4),0) NLOOP = IDEFT + ITEMP IF (IDEFT .NE. 0) LDEFM = 0 C C INITIALIZE MATERIAL ROUTINE C IMAT = NROWSP + LPCOMP LCORE = BUF5 - IMAT CALL PREMAT (CORE(IMAT+1),CORE(IMAT+1),CORE(BUF5),LCORE,NMAT, 1 MPT,DIT) NSTART = IMAT + NMAT LCORE = LCORE - NSTART IF (LCORE .LE. 0) GO TO 820 IF (IDEFT .NE. 0) LDEFM = 0 C DO 720 ILLOP = 1,NLOOP C IDEFM = ILIST(ILLOP) IF (ITEMP) 75,75,70 70 CALL REWIND (GPTT) C 75 IF (NNN .EQ. 1) GO TO 95 C C BRING SIL INTO CORE C IF (LCORE .LT. 0) GO TO 820 CALL GOPEN (SIL,CORE(BUF5),0) IPM = SIL CALL READ (*860,*80,SIL,CORE(NSTART+1),LCORE,1,NSIL) GO TO 820 80 CALL CLOSE (SIL,1) LCORE = LCORE - NSIL NSTART = NSTART + NSIL C C READ CSTM INTO OPEN CORE AND MAKE INITIAL CALLS TO PRETRD/PRETRS C IF (LCORE .LT. 0) GO TO 820 CALL OPEN (*90,CSTM,CORE(BUF5),0) ICM = 0 CALL SKPREC (CSTM,1) IPM = CSTM CALL READ (*860,*85,CSTM,CORE(NSTART+1),LCORE,1,NCSTM) GO TO 820 85 CONTINUE C C FOR THOSE SUBROUTINES WHICH USE BASGLB INSTEAD OF TRANSS/TRANSD, C WE NEED TO REPOSITION THE CSTM FILE AND LEAVE THE GINO BUFFER C AVAILABLE FOR LATER CALLS TO READ BY SUBROUTINE BASGLB. C CALL REWIND (CSTM) CALL SKPREC (CSTM,1) C CALL PRETRD (CORE(NSTART+1),NCSTM) CALL PRETRS (CORE(NSTART+1),NCSTM) C LCORE = LCORE - NCSTM NSTART = NSTART + NCSTM IF (LCORE .LE. 0) GO TO 820 C 90 NNN = 1 95 IF (ITEMP) 150, 150, 99 C 99 DO 100 I = 1,NTLIST,3 IF (IDEFM .EQ. TLIST(I)) GO TO 110 100 CONTINUE C C THERMAL LOAD NOT FOUND IN GPTT C IPARM(2) = IPARM(1) IPARM(1) = IGPTT CALL MESAGE (-32,IDEFM,IPARM(1)) 110 TO = TLIST(I+1) IF (TLIST(I+2) .EQ. 0) GO TO 140 I = TLIST(I+2) DO 120 J = 1,I CALL FWDREC (*800,GPTT) 120 CONTINUE C C READ SETID AND VERIFY CORRECT RECORD. FAILSAFE C CALL READ (*121,*121,GPTT,IDDD,1,0,DUMMY) IF (IDDD .EQ. IDEFM) GO TO 125 121 WRITE (OUTPT,122) IDEFM 122 FORMAT (98H0*** SYSTEM FATAL ERROR 4014, ROUTINE EDTL DETECTS BAD 1DATA ON TEMPERATURE DATA BLOCK FOR SET ID =,I9) N1 = -61 GO TO 760 125 RECORD = .TRUE. GO TO 150 C C THE GPTT (ELEMENT TEMPERATURE TABLE) IS NOW POSITIONED TO THE C TEMPERATURE DATA FOR THE SET REQUESTED. SUBROUTINE SSGETD WILL C READ THE DATA. C 140 CONTINUE RECORD = .FALSE. C 150 CONTINUE CALL CLOSE (CSTM,1) CALL OPEN (*151,CSTM,CORE(BUF5),0) CALL SKPREC (CSTM,1) ICM = 0 151 DO 160 I = 1,NROWSP 160 CORE(I) = 0.0 C C INITIALIZE /SSGETT/ VARIABLES C OLDEL = 0 EORFLG = .FALSE. ENDID = .TRUE. BUFFLG = .FALSE. C C ELEMENT CALL PROCESSING C C C READ THE ELEMENT TYPE C 170 CALL READ (*710,*830,ECPT,ELTYPE,1,0,FLAG) IF (ELTYPE.GE.1 .AND. ELTYPE.LE.NELEMS) GO TO 174 CALL MESAGE (-7,0,NAME) 172 WRITE (OUTPT,173) SWM,ELTYPE 173 FORMAT (A27,' 4015, ELEMENT THERMAL AND DEFORMATION LOADING NOT ', 1 'COMPUTED FOR ILLEGAL ELEMENT TYPE',I9, /34X, 2 'IN MODULE SSG1.') GO TO 610 174 IDX = (ELTYPE-1)*INCR JLTYPE = 2*ELTYPE - IPR NWORDS = NE(IDX+12) C C READ AN ENTRY FOR ONE ELEMENT FROM ECPT C 175 CALL READ (*840,*170,ECPT,MECPT(1),NWORDS,0,FLAG) IF (ITEMP .NE. 0) GO TO 176 C C ELEMENT DEFORMATION LOAD C IF (IDEFM .NE. LDEFM) CALL FEDTST (IDEFM) LDEFM = IDEFM IF (ELTYPE .EQ. CROD ) GO TO 180 IF (ELTYPE .EQ. CTUBE ) GO TO 200 IF (ELTYPE .EQ. CONROD) GO TO 190 IF (ELTYPE .EQ. CBAR ) GO TO 210 GO TO 610 C C THERMAL LOAD C 176 CONTINUE C C BRANCH TO THE DESIRED ELEMENT TYPE C LOCAL = JLTYPE - 100 IF (LOCAL) 177,177,178 C C C PAIRED -GO TO- ENTRIES PER ELEMENT SINGLE/DOUBLE PRECISION C C 1 CROD 2 CBEAM 3 CTUBE 4 CSHEAR 5 CTWIST 177 GO TO( 180, 180, 172, 172, 200, 200, 360, 360, 610, 610 C C 6 CTRIA1 7 CTRBSC 8 CTRPLT 9 CTRMEM 10 CONROD 1, 270, 270, 240, 240, 250, 250, 220, 220, 190, 190 C C 11 ELAS1 12 ELAS2 13 ELAS3 14 ELAS4 15 CQDPLT 2, 610, 610, 610, 610, 610, 610, 610, 610, 260, 260 C C 16 CQDMEM 17 CTRIA2 18 CQUAD2 19 CQUAD1 20 CDAMP1 3, 230, 230, 280, 280, 300, 300, 290, 290, 610, 610 C C 21 CDAMP2 22 CDAMP3 23 CDAMP4 24 CVISC 25 CMASS1 4, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610 C C 26 CMASS2 27 CMASS3 28 CMASS4 29 CONM1 30 CONM2 5, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610 C C 31 PLOTEL 32 CREACT 33 CQUAD3 34 CBAR 35 CCONE 6, 610, 610, 172, 172, 172, 172, 210, 210, 350, 350 C C 36 CTRIARG 37 CTRAPRG 38 CTORDRG 39 CTETRA 40 CWEDGE 7, 320, 320, 330, 330, 340, 340, 390, 390, 400, 400 C C 41 CHEXA1 42 CHEXA2 43 CFLUID2 44 CFLUID3 45 CFLUID4 8, 410, 410, 420, 420, 610, 610, 610, 610, 610, 610 C C 46 CFLMASS 47 CAXIF2 48 CAXIF3 49 CAXIF4 50 CSLOT3 9, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610 C *), JLTYPE C C 51 CSLOT4 52 CHBDY 53 CDUM1 54 CDUM2 55 CDUM3 178 GO TO( 610, 610, 610, 610, 553, 553, 554, 554, 555, 555 C C 56 CDUM4 57 CDUM5 58 CDUM6 59 CDUM7 60 CDUM8 B, 556, 556, 557, 557, 558, 558, 559, 559, 560, 560 C C 61 CDUM9 62 CQDMEM1 63 CQDMEM2 64 CQUAD4 65 CIHEX1 C, 561, 561, 562, 562, 563, 563, 564, 564, 425, 425 C C 66 CIHEX2 67 CIHEX3 68 CQUADTS 69 CTRIATS 70 CTRIAAX D, 425, 425, 425, 425, 172, 172, 172, 172, 428, 428 C C 71 CTRAPAX 72 CAERO1 73 CTRIM6 74 CTRPLT1 75 CTRSHL E, 429, 429, 172, 172, 430, 430, 431, 431, 432, 432 C C 76 CFHEX1 77 CFHEX2 78 CFTETRA 79 CFWEDGE 80 CIS2D8 F, 172, 172, 172, 172, 172, 172, 172, 172, 433, 433 C C 81 CELBOW 82 FTUBE 83 TRIA3 G, 172, 172, 610, 610, 566, 566 C *), LOCAL C C ROD C 180 CALL ROD GO TO 175 C C CONROD C 190 GO TO 180 C C TUBE C 200 GO TO 180 C C BAR C 210 CALL BAR (CORE(1),IDEFM,ITEMP,IDEFT) GO TO 175 C C TRMEM C 220 CALL SSGETD (MECPT(1),TI(1),0) CALL TRIMEM (0,TI,CORE(1)) GO TO 175 C C QDMEM C 230 CALL SSGETD (MECPT(1),TI(1),0) CALL QDMEM (TI,CORE(1)) GO TO 175 C C TRBSC C 240 CALL SSGETD (MECPT(1),TI(1),0) CALL TRBSC (0,TI) GO TO 175 C C TRPLT C 250 CALL SSGETD (MECPT(1),TI(1),0) CALL TRPLT (TI) GO TO 175 C C QDPLT C 260 CALL SSGETD (MECPT(1),TI(1),0) CALL QDPLT (TI) GO TO 175 C C TRIA1 C 270 KK = 1 GO TO 301 C C TRIA2 C 280 KK = 2 GO TO 301 C C QUAD1 C 290 KK = 3 GO TO 301 C C QUAD2 C 300 KK = 4 301 CALL SSGETD (MECPT(1),TI(1),0) CALL TRIQD (KK,TI(1)) GO TO 175 C C TRIARG C 320 CALL SSGETD (MECPT(1),TI(1),3) CALL TTRIRG (TI(2),CORE(1)) GO TO 175 C C TRAPRG C 330 CALL SSGETD (MECPT(1),TI(1),4) CALL TTRAPR (TI(2),CORE(1)) GO TO 175 C C TORDRG C 340 CALL SSGETD (MECPT(1),TI(1),2) CALL TTORDR (TI(2),CORE(1) ) GO TO 175 C C CONE C 350 CALL SSGETD (MECPT(1),TI(1),2) CALL CONE (TI(2),CORE(1)) GO TO 175 C C SHEAR PANEL C 360 CALL TSHEAR GO TO 175 C C TETRA C 390 CALL SSGETD (MECPT(1),TI(1),4) CALL TETRA (TI(2),CORE(1),0) GO TO 175 C C WEDGE C 400 IIJJ = 1 NPTS = 6 GO TO 421 C C HEXA1 C 410 IIJJ = 2 NPTS = 8 GO TO 421 C C HEXA2 C 420 IIJJ = 3 NPTS = 8 421 CALL SSGETD (MECPT(1),TI(1),NPTS) CALL SOLID (TI(2),CORE(1),IIJJ) GO TO 175 C C IHEX1, IHEX2, IHEX3 C 425 NPTS=12*(ELTYPE-64)-4 CALL SSGETD (MECPT(1),TI(1),NPTS) CALL IHEX (TI(1),CORE(1),ELTYPE-64) GO TO 175 C C TRIAAX C 428 CALL SSGETD (MECPT,TI,3) CALL TRTTEM (TI(2),CORE) GO TO 175 C C TRAPAX C 429 CALL SSGETD (MECPT,TI,4) CALL TPZTEM (TI(2),CORE) GO TO 175 C C TRIM6 C 430 CALL SSGETD (MECPT(1),TI,6) CALL TLODM6 (TI(1)) GO TO 175 C C TRPLT1 C 431 CALL SSGETD (MECPT(1),TI,0) CALL TLODT1 (TI(1),TI(1)) GO TO 175 C C TRSHL C 432 CALL SSGETD (MECPT(1),TI(1),0) CALL TLODSL (TI(1),TI(1)) GO TO 175 C C IS2D8 C 433 CALL SSGETD (MECPT(1),TI(1),8) CALL TIS2D8 (TI(2),CORE) GO TO 175 C C DUMMY ELEMENTS C 553 CALL DUM1 (CORE(1)) GO TO 175 554 CALL DUM2 (CORE(1)) GO TO 175 555 CALL DUM3 (CORE(1)) GO TO 175 556 CALL DUM4 (CORE(1)) GO TO 175 557 CALL DUM5 (CORE(1)) GO TO 175 558 CALL DUM6 (CORE(1)) GO TO 175 559 CALL DUM7 (CORE(1)) GO TO 175 560 CALL DUM8 (CORE(1)) GO TO 175 561 CALL DUM9 (CORE(1)) GO TO 175 C C QDMEM1 C 562 CALL SSGETD (MECPT(1),TI(1),0) CALL QDMM1 (TI,CORE(1)) GO TO 175 C C QDMEM2 C 563 CALL SSGETD (MECPT(1),TI(1),0) CALL QDMM2 (TI,CORE(1)) GO TO 175 C C QUAD4 C 564 DO 565 ITI = 1,7 565 TI(ITI) = 0.0 CALL SSGETD (MECPT(1),TI,4) IF (IPR .NE. 0) CALL TLQD4S IF (IPR .EQ. 0) CALL TLQD4D GO TO 175 C C TRIA3 C 566 DO 567 ITI = 1,7 567 TI(ITI) = 0.0 CALL SSGETD (MECPT(1),TI,3) IF (IPR .NE. 0) CALL TLTR3S IF (IPR .EQ. 0) CALL TLTR3D GO TO 175 C C NO LOAD, SKIP THE ECPT ENTRY ONLY C 610 CALL FWDREC (*840,ECPT) GO TO 170 C C PACK THE LOAD VECTOR FROM CORE TO OUTPUT DATA BLOCK -PG- C 710 CALL PACK (CORE,PG(1),PG) CALL REWIND (ECPT) CALL FWDREC (*840,ECPT) IF (IDEFT .NE. 0 .AND. IDEFM .NE. 0) CALL FEDTED (IDEFM) C 720 CONTINUE C IF (NOEDT .EQ. 0) CALL CLOSE (EDT ,1) IF (NOGPTT .EQ. 0) CALL CLOSE (GPTT,1) IF (ICM .EQ. 0) CALL CLOSE (CSTM,1) CALL CLOSE (ECPT,1) RETURN C 750 N1 = -1 760 CALL MESAGE (N1,IPM,IPARM) 800 IPM = GPTT GO TO 860 810 N1 = -3 GO TO 760 820 N1 = -8 GO TO 760 830 IPM = ECPT GO TO 810 840 IPM = ECPT 860 N1 = -2 GO TO 760 END ================================================ FILE: mis/egnvct.f ================================================ SUBROUTINE EGNVCT (C1,C2,EIGEN,C3,N1,N2,N) C C SUBROUTINE TO OBTAIN EIGENVECTOR FROM REAL NON-SYMMETRIC C MATRICES FOR WHICH THE EIGENVALUE IS KNOWN. THE METHOD C USED IS THE DIRECT METHOD OUTLINED IN ERR-FW- BY DR. C A. M. CUNNINGHAM. C INTEGER N1(N),N2(N) COMPLEX C1(N,N),C2(N),C3(N),EIGEN,D1,D2,D3,D4,D5,D6,D8 C II3 = N II2 = N - 1 X1 = 0.0 DO 20 J = 1,N N1(J) = J N2(J) = J C1(J,J) = C1(J,J) - EIGEN DO 10 I = 1,N X2 = CABS(C1(I,J)) IF (X1-X2) 5,10,10 5 X1 = X2 I1 = I J1 = J 10 CONTINUE 20 CONTINUE DO 150 K6 = 2,N IF (CABS(C1(I1,J1))) 50,30,50 30 K5 = K6 - 1 C C SINGULAR MATRIX RETURN ZERO C DO 36 I = 1,N 36 C3(I) = 0.0 GO TO 250 C 50 D1 = (1.0,0.0)/C1(I1,J1) D2 = C1(I1,II3) D3 = C1(II3,J1) D4 = C1(II3,II3) DO 60 I = 1,II2 C3(I ) = C1(I,J1) C1(I,J1 ) = C1(I,II3) C1(I,II3) =-C3(I)*D1 D5 = -C1(I1,I)*D1 C1(I1 ,I) = C1(II3,I) C1(II3,I) = D5 60 CONTINUE C3(I1) = D3 C1(I1 ,J1) = D4 C1(II3 ,J1) =-D2*D1 C1(I1 ,II3) =-D3*D1 C1(II3,II3) = D1 IF (II3 .EQ. N) GO TO 80 II4 = II3 + 1 DO 70 I = II4,N D6 = C1(I1,I) C1(I1 ,I) = C1(II3,I) C1(II3,I) = D6 C3(I ) = C1(I,J1) C1(I,J1 ) = C1(I,II3) 70 C1(I,II3) = C3(I) 80 I = N1(J1) N1(J1 ) = N1(II3) N1(II3) = I I = N2(I1) N2(I1 ) = N2(II3) N2(II3) = I X1 = 0.0 DO 140 J = 1,II2 D8 = C1(II3,J) DO 130 I = 1,II2 C1(I,J) = C1(I,J) + C3(I)*D8 X2 = CABS(C1(I,J)) IF(X1-X2) 120,130,130 120 X1 = X2 I1 = I J1 = J 130 CONTINUE 140 CONTINUE II3 = II3 - 1 II2 = II2 - 1 150 CONTINUE C C3(2) = C1(2,1) C3(1) = (1.0,0.0) DO 180 J = 3,N C3(J) = (0.0,0.0) J1 = J - 1 DO 170 I = 1,J1 C3(J) = C3(J) + C3(I)*C1(J,I) 170 CONTINUE 180 CONTINUE IF (CABS(C1(1,1)) .LT. 1.0E-20) GO TO 202 DO 201 K6 = 1,2 C DO 184 J = 1,N I1 = N2(J) DO 182 I = 1,N IF (I1 .EQ. N1(I)) GO TO 184 182 CONTINUE 184 C2(J) = C3(I) C DO 190 J = 2,N I1 = N - J + 1 J1 = I1 + 1 DO 185 I = 1,I1 C2(I) = C2(I) + C1(I,J1)*C2(J1) 185 CONTINUE 190 CONTINUE D1 = C1(1,1)/C2(1) C3(1) = (1.0,0.0) DO 200 J = 2,N I1 = J - 1 C3(J) = C2(J)*C1(J,J)*D1 DO 195 I = 1,I1 C3(J) = C3(J) + C1(J,I)*C3(I) 195 CONTINUE 200 CONTINUE 201 CONTINUE C C C3(I) NOW CONTAINS THE EIGENVECTOR WHICH MUST BE RE-ARRANGED C ACCORDING TO THE ORDER DICTATED BY N1(I) BACK TO THE ORIGINAL C ORDER. C 202 DO 230 I = 1,N I1 = N1(I) N1(I) = I 205 IF (I1-I) 210,230,210 210 D1 = C3(I1) C3(I1) = C3(I) C3(I ) = D1 K = N1(I1) N1(I1) = I1 I1 = K GO TO 205 230 CONTINUE N1(1) = 2 C 250 RETURN END ================================================ FILE: mis/eject.f ================================================ INTEGER FUNCTION EJECT (LINES) COMMON /SYSTEM/ SKP1(8),MAXLIN,SKP2(2),LINCNT C C LINES = NUNBER OF LINES TO BE PRINTED. C RESULT = 1 IF NEW PAGE IS STARTED. C EJECT = 0 IF (LINCNT+LINES+2 .LE. MAXLIN) GO TO 105 CALL PAGE1 EJECT = 1 105 RETURN END ================================================ FILE: mis/ektrmd.f ================================================ SUBROUTINE EKTRMD (NTYPE) C C THIS SUBROUTINE CALCULATES THE STIFFNESS MATRIX FOR THE C TRIANGULAR MEMBRANE ELEMENT C C DOUBLE PRECISION VERSION C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID MATID INTEGER C ECPT( 7) = T T REAL C ECPT( 8) = NON-STRUCTURAL MASS FMU REAL C ECPT( 9) = COORD. SYSTEM ID 1 NECPT(9) INTEGER C ECPT(10) = X1 X1 REAL C ECPT(11) = Y1 Y1 REAL C ECPT(12) = Z1 Z1 REAL C ECPT(13) = COORD. SYSTEM ID 2 NECPT(13) INTEGER C ECPT(14) = X2 X2 REAL C ECPT(15) = Y2 Y2 REAL C ECPT(16) = Z2 Z2 REAL C ECPT(17) = COORD. SYSTEM ID 3 NECPT(17) INTEGER C ECPT(18) = X3 X3 REAL C ECPT(19) = Y3 Y3 REAL C ECPT(20) = Z3 Z3 REAL C ECPT(21) = ELEMENT TEMPERATURE ELTEMP REAL C C IF NTYPE = 0 COMPLETE MEMBRANE COMPUTATION IS PERFORMED C IF NTYPE = 1 9 3X3 MATRICES FOR THE GRID POINTS IN ECPT C C LOGICAL NOGO,HEAT INTEGER NECPT(21) REAL ECPT(21),MATBUF DOUBLE PRECISION G(9),C(18),TT(2),TI(9),TEMPAR(27),E,K,KOUT,KIJ, 1 A,PROD9,TEMP9,XSUBB,XSUBC,YSUBC,DICT5 DOUBLE PRECISION TEMP,VOL,REELMU,FLAMDA,DELTA COMMON /EMGTRX/ A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,DICT5, 1 E(18),K(324),KOUT(324),KIJ(81) COMMON /SYSTEM/ KSYSTM(60) COMMON /CONDAS/ CONSTS(5) COMMON /EMGPRM/ DUM(19),NOGO, HEAT COMMON /EMGEST/ MECPT(1),NGRID(3),ANGLE,MATID1,T,FMU,DUMMY1,X1, 1 Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,X3,Y3,Z3,DUMB(80) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE, 2 G2X211,G2X212,G2X222 COMMON /HMTOUT/ MATBUF(4) EQUIVALENCE (CONSTS(4),DEGRA),(ECPT(1),NECPT(1),MECPT(1)), 1 (KSYSTM(2),IOUTPT),(KSYSTM(56),IHEAT) C C SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE C C E(1), E(3), E(5) WILL BE THE I-VECTOR C E(2), E(4), E(6) WILL BE THE J-VECTOR C E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE C C FIRST FIND I-VECTOR = RSUBB - RSUBA (NON-NORMALIZED) C E(1) = DBLE(X2) - DBLE(X1) E(3) = DBLE(Y2) - DBLE(Y1) E(5) = DBLE(Z2) - DBLE(Z1) C C NOW FIND LENGTH = X-SUB-B COORD. IN ELEMENT SYSTEM C XSUBB = DSQRT(E(1)**2 + E(3)**2 + E(5)**2) IF (XSUBB .LE. 1.D-6) GO TO 7770 C C 20 NOW NORMALIZE I-VECTOR WITH X-SUB-B C E(1) = E(1)/XSUBB E(3) = E(3)/XSUBB E(5) = E(5)/XSUBB C C HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN C E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER C E(2) = DBLE(X3) - DBLE(X1) E(4) = DBLE(Y3) - DBLE(Y1) E(6) = DBLE(Z3) - DBLE(Z1) C C X-SUB-C = I . (RSUBC - RSUBA), THUS C XSUBC = E(1)*E(2) + E(3)*E(4) + E(5)*E(6) C C AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(7) = E(3)*E(6) - E(5)*E(4) E(8) = E(5)*E(2) - E(1)*E(6) E(9) = E(1)*E(4) - E(3)*E(2) C C C THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C C COORD. IN ELEMENT SYSTEM C YSUBC = DSQRT(E(7)**2 + E(8)**2 + E(9)**2) IF (YSUBC .LE. 1.D-6) GO TO 7780 C C 25 NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND C E(7) = E(7)/YSUBC E(8) = E(8)/YSUBC E(9) = E(9)/YSUBC C C J VECTOR = K CROSS I C STORE IN THE SPOT FOR J C E(2) = E(5)*E(8) - E(3)*E(9) E(4) = E(1)*E(9) - E(5)*E(7) E(6) = E(3)*E(7) - E(1)*E(8) C C AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE. C TEMP = DSQRT (E(2)**2 + E(4)**2 + E(6)**2) IF (TEMP .LE. 0.D0) GO TO 7790 E(2) = E(2)/TEMP E(4) = E(4)/TEMP E(6) = E(6)/TEMP C C VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA C VOL = XSUBB*YSUBC*T/2.D0 REELMU = 1.D0/XSUBB FLAMDA = 1.D0/YSUBC DELTA = XSUBC/XSUBB - 1.D0 C C NOW FORM THE C MATRIX (3X6) PARTITIONED AS FOLLOWS HERE. C CSUBA = (3X2) STORED IN C( 1) THRU C( 6) BY ROWS C CSUBB = (3X2) STORED IN C( 7) THRU C(12) BY ROWS C CSUBC = (3X2) STORED IN C(13) THRU C(18) BY ROWS C C(1) =-REELMU C(2) = 0. C(3) = 0. C(4) = FLAMDA*DELTA C(5) = C(4) C(6) =-REELMU C(7) = REELMU C(8) = 0. C(9) = 0. C(10) =-FLAMDA*REELMU*XSUBC C(11) = C(10) C(12) = REELMU C(13) = 0. C(14) = 0. C(15) = 0. C(16) = FLAMDA C(17) = FLAMDA C(18) = 0. C IF (NTYPE .EQ. 1) GO TO 30 C THETA = ANGLE*DEGRA SINTH = SIN(THETA) COSTH = COS(THETA) 30 IF (ABS(SINTH) .LT. 1.E-6) SINTH = 0. C C BRANCH ON -HEAT- PROBLEM AT THIS POINT. C IF (HEAT) GO TO 300 ELTEMP = ECPT(21) MATID = MATID1 INFLAG = 2 CALL MAT (ECPT(1)) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C AT 50 G, E, AND C MATRICES ARE COMPLETE C C AT THIS POINT THE FOLLOWING EQUATION CAN BE SOLVED FOR K-SUB-IJ C C T T T C K = VOL . T * E * C * G * C * E * T C IJ I I J J C C T-SUB-I WILL BE USED IN THE ABOVE ONLY IF THE PIVOT COORDINATE C SYSTEM ID IS NOT ZERO, OTHERWISE IT IS ASSUMED TO BE THE C IDENTITY MATRIX. C C THE I SUBSCRIPT IMPLIES THE PIVOT POINT 1,2, OR 3 (ELEMENT SYST) C THE J SUBSCRIPT IMPLIES 1 THRU 3 FOR EACH CALL TO THIS ROUTINE. C C DO COMPUTATIONS FOR EACH POINT IN ECPT LIST C DO 60 I = 1,81 60 KIJ(I) = 0. DO 200 NPVT = 1,3 KA = 4*NPVT + 5 NPOINT = 6*NPVT - 5 C C T C COMPUTE E * C * G AND STORE IN TEMPAR( 1 THRU 9 ) C I C CALL GMMATD (E, 3,2,0, C(NPOINT), 3,2,1, TEMPAR(10)) CALL GMMATD (TEMPAR(10),3,3,0, G, 3,3,0, TEMPAR(1) ) C C NCOM WILL ALWAYS POINT TO THE COMMON 3 X 3 PRODUCT ABOVE C NPT1 WILL POINT TO FREE WORKING SPACE LENGTH 9 C NCOM = 1 NPT1 = 10 C C MULTIPLY COMMON PRODUCT BY SCALER VOL C DO 90 I = 1,9 90 TEMPAR(I) = TEMPAR(I)*VOL C C CHECK FOR PIVOT CSID = 0, IF ZERO SKIP TRANSFORMATION TSUBI. C IF (NECPT(KA) .EQ. 0) GO TO 110 C C NOT-ZERO THUS GET TI C CALL TRANSD (NECPT(KA),TI) C C INTRODUCE TI INTO THE COMMON PRODUCT AND STORE AT C TEMPAR(10 THRU 18) C CALL GMMATD (TI,3,3,1, TEMPAR(1),3,3,0, TEMPAR(10)) C C COMMON PRODUCT NOW STARTS AT TEMPAR(10) THUS CHANGE NCOM AND NPT1 C NCOM = 10 NPT1 = 1 C C C 80 NOW HAVE COMMON PRODUCT STORED BEGINNING TEMPAR(NCOM), (3X3). C NPT1 POINTS TO FREE WORKING SPACE LENGTH 9. C C PROCEED NOW AND RUN OUT THE 3 6X6 MATRICES KIJ-SUB-1,2,3. C 110 NSAVE = NPT1 NPOINT = (NPVT-1)*27 C C INSERT G INTO TEMPAR C DO 115 I = 1,9 115 TEMPAR(I+18) = G(I) DO 190 I = 1,3 CALL GMMATD (C(6*I-5),3,2,0, E,3,2,1, TEMPAR(NSAVE)) C C NPT2 IS SET TO POINT TO THE BEGINNING OF THE PRODUCT C * E * T C J J C NPT2 = NSAVE NPT1 = 19 C C CHECK FOR ZERO CSID IN WHICH CASE TJ IS NOT NEEDED C IF (NECPT(4*I +5) .EQ. 0) GO TO 120 C C COMMING HERE IMPLIES NEED FOR TJ C WILL STORE TJ IN TI C CALL TRANSD (NECPT(4*I+5),TI) CALL GMMATD (TEMPAR(NPT2),3,3,0, TI,3,3,0, TEMPAR(19)) NPT1 = NPT2 NPT2 = 19 C C 60 AT THIS POINT COMPLETE COMPUTATION FOR K-SUB-I,J C 120 CALL GMMATD (TEMPAR(NCOM),3,3,0, TEMPAR(NPT2),3,3,0, TEMPAR(NPT1) X) NPT36 = NPT1 + 35 C DO 140 J = 1,9 NPOINT = NPOINT + 1 NPT2 = NPT1 + J - 1 140 KIJ(NPOINT) = TEMPAR(NPT2) 190 CONTINUE 200 CONTINUE C DICT5 = GSUBE RETURN C C HEAT PROBLEM LOGIC PICKS UP HERE. CALL HMAT FOR MATERIAL DATA. C 300 INFLAG = 2 MATID = NECPT(6) ELTEMP = ECPT(21) CALL HMAT (NECPT) G(1) = MATBUF(1) G(2) = MATBUF(2) G(3) = MATBUF(2) G(4) = MATBUF(3) C C CONDENSE C MATRIX FOR HEAT PROBLEM (FORMED ABOVE) C IS (2X3) C C(2) = C( 4) C(3) = C( 7) C(4) = C(10) C(5) = C(13) C(6) = C(16) C C DETERMINE THE PIVOT POINT. C KQ = 3 KMAX = KQ*3 DO 320 I = 1,KMAX 320 KIJ(I) = 0. DO 400 NPVT = 1,3 C C PIVOT C MATRIX TIMES VOLUME (STORED INTO TT(1) AND TT(2).) C TT(1) = VOL*C(2*NPVT-1) TT(2) = VOL*C(2*NPVT) C C OUTPUT THE CONDUCTIVITY MATRICES C NPOINT = (NPVT-1)*KQ C DO 380 I = 1,3 N2 = 2*I N1 = N2 - 1 TEMPAR(1) = (G(1)*C(N1) + G(2)*C(N2))*TT(1) + 1 (G(3)*C(N1) + G(4)*C(N2))*TT(2) C C SUB-TRIANGLE (RETURN 3X3-S AS ABOVE IN STIFFNESS PORTION) C KIJ(NPOINT+1) = TEMPAR(1) NPOINT = NPOINT + 1 380 CONTINUE 400 CONTINUE RETURN C C ERROR EXITS C 7770 CALL MESAGE (30,31,NECPT(1)) 7777 NOGO = .TRUE. RETURN 7780 CALL MESAGE (30,32,NECPT(1)) GO TO 7777 7790 CALL MESAGE (30,26,NECPT(1)) GO TO 7777 C END ================================================ FILE: mis/ektrms.f ================================================ SUBROUTINE EKTRMS (NTYPE) C C TRIANGULAR MEMBRANE ELEMENT C C ECPT LIST C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID MATID INTEGER C ECPT( 7) = T T REAL C ECPT( 8) = NON-STRUCTURAL MASS FMU REAL C ECPT( 9) = COORD. SYSTEM ID 1 NECPT(9) INTEGER C ECPT(10) = X1 X1 REAL C ECPT(11) = Y1 Y1 REAL C ECPT(12) = Z1 Z1 REAL C ECPT(13) = COORD. SYSTEM ID 2 NECPT(13) INTEGER C ECPT(14) = X2 X2 REAL C ECPT(15) = Y2 Y2 REAL C ECPT(16) = Z2 Z2 REAL C ECPT(17) = COORD. SYSTEM ID 3 NECPT(17) INTEGER C ECPT(18) = X3 X3 REAL C ECPT(19) = Y3 Y3 REAL C ECPT(20) = Z3 Z3 REAL C ECPT(21) = ELEMENT TEMPERATURE ELTEMP REAL C C IF NTYPE = 0 COMPLETE MEMBRANE COMPUTATION IS PERFORMED C IF NTYPE = 1 9 3X3 MATRICES FOR THE GRID POINTS IN ECPT C LOGICAL NOGO,HEAT INTEGER NECPT(6) REAL K,KOUT,ECPT(21),MATBUF,KIJ,G(9),C(18),TT(2),TI(9), 1 TEMPAR(27) COMMON /EMGTRX/ A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,DICT5, 1 E(18),K(324),KOUT(324),KIJ(81) COMMON /SYSTEM/ KSYSTM(60) COMMON /CONDAS/ CONSTS(5) COMMON /EMGPRM/ DUM(19),NOGO,HEAT COMMON /EMGEST/ MECPT(1),NGRID(3),ANGLE,MATID1,T,FMU,DUMMY1,X1,Y1, 1 Z1,DUMMY2,X2,Y2,Z2,DUMMY3,X3,Y3,Z3,DUMB(80) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE, 2 G2X211,G2X212,G2X222 COMMON /HMTOUT/ MATBUF(4) EQUIVALENCE (CONSTS(4),DEGRA),(ECPT(1),NECPT(1),MECPT(1)), 1 (KSYSTM(2),IOUTPT),(KSYSTM(56),IHEAT) C C SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE C C E(1), E(3), E(5) WILL BE THE I-VECTOR C E(2), E(4), E(6) WILL BE THE J-VECTOR C E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE C C FIRST FIND I-VECTOR = RSUBB - RSUBA (NON-NORMALIZED) C E(1) = X2 - X1 E(3) = Y2 - Y1 E(5) = Z2 - Z1 C C NOW FIND LENGTH = X-SUB-B COORD. IN ELEMENT SYSTEM C XSUBB = SQRT(E(1)**2 + E(3)**2 + E(5)**2) IF (XSUBB .LE. 1.E-06) GO TO 7770 C C 20 NOW NORMALIZE I-VECTOR WITH X-SUB-B C E(1) = E(1)/XSUBB E(3) = E(3)/XSUBB E(5) = E(5)/XSUBB C C HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN C E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER C E(2) = X3 - X1 E(4) = Y3 - Y1 E(6) = Z3 - Z1 C C X-SUB-C = I . (RSUBC - RSUBA), THUS C XSUBC = E(1)*E(2) + E(3)*E(4) + E(5)*E(6) C C AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(7) = E(3)*E(6) - E(5)*E(4) E(8) = E(5)*E(2) - E(1)*E(6) E(9) = E(1)*E(4) - E(3)*E(2) C C THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C C COORD. IN ELEMENT SYSTEM C YSUBC = SQRT(E(7)**2 + E(8)**2 + E(9)**2) IF (YSUBC .LE. 1.E-06) GO TO 7780 C C 25 NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND C E(7) = E(7)/YSUBC E(8) = E(8)/YSUBC E(9) = E(9)/YSUBC C C J VECTOR = K CROSS I C STORE IN THE SPOT FOR J C E(2) = E(5)*E(8) - E(3)*E(9) E(4) = E(1)*E(9) - E(5)*E(7) E(6) = E(3)*E(7) - E(1)*E(8) C C AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE. C TEMP = SQRT(E(2)**2 + E(4)**2 + E(6)**2) IF (TEMP .EQ. 0.0) GO TO 7790 E(2) = E(2)/TEMP E(4) = E(4)/TEMP E(6) = E(6)/TEMP C C VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA C VOL = XSUBB*YSUBC*T/2. REELMU = 1./XSUBB FLAMDA = 1./YSUBC DELTA = XSUBC/XSUBB - 1. C C NOW FORM THE C MATRIX (3X6) PARTITIONED AS FOLLOWS HERE. C CSUBA = (3X2) STORED IN C( 1) THRU C( 6) BY ROWS C CSUBB = (3X2) STORED IN C( 7) THRU C(12) BY ROWS C CSUBC = (3X2) STORED IN C(13) THRU C(18) BY ROWS C C(1) =-REELMU C(2) = 0. C(3) = 0. C(4) = FLAMDA*DELTA C(5) = C(4) C(6) =-REELMU C(7) = REELMU C(8) = 0. C(9) = 0. C(10) =-FLAMDA*REELMU*XSUBC C(11) = C(10) C(12) = REELMU C(13) = 0. C(14) = 0. C(15) = 0. C(16) = FLAMDA C(17) = FLAMDA C(18) = 0. C IF (NTYPE .EQ. 1) GO TO 30 C THETA = ANGLE*DEGRA SINTH = SIN(THETA) COSTH = COS(THETA) 30 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 C C BRANCH ON -HEAT- PROBLEM AT THIS POINT. C IF (HEAT) GO TO 300 ELTEMP = ECPT(21) MATID = MATID1 INFLAG = 2 CALL MAT (ECPT(1)) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C AT 50 G, E, AND C MATRICES ARE COMPLETE C C AT THIS POINT THE FOLLOWING EQUATION CAN BE SOLVED FOR K-SUB-IJ C C T T T C K = VOL . T * E * C * G * C * E * T C IJ I I J J C C T-SUB-I WILL BE USED IN THE ABOVE ONLY IF THE PIVOT COORDINATE C SYSTEM ID IS NOT ZERO, OTHERWISE IT IS ASSUMED TO BE THE C IDENTITY MATRIX. C C THE I SUBSCRIPT IMPLIES THE PIVOT POINT 1,2, OR 3 (ELEMENT SYST) C THE J SUBSCRIPT IMPLIES 1 THRU 3 FOR EACH CALL TO THIS ROUTINE. C C DO COMPUTATIONS FOR EACH POINT IN ECPT LIST C DO 60 I = 1,81 60 KIJ(I) = 0. DO 200 NPVT = 1,3 KA = 4*NPVT + 5 NPOINT = 6*NPVT - 5 C C T C COMPUTE E * C * G AND STORE IN TEMPAR(1 THRU 9) C I C CALL GMMATS (E,3,2,0, C(NPOINT),3,2,1, TEMPAR(10)) CALL GMMATS (TEMPAR(10),3,3,0, G,3,3,0, TEMPAR(1)) C C NCOM WILL ALWAYS POINT TO THE COMMON 3 X 3 PRODUCT ABOVE C NPT1 WILL POINT TO FREE WORKING SPACE LENGTH 9 C NCOM = 1 NPT1 = 10 C C MULTIPLY COMMON PRODUCT BY SCALER VOL C DO 90 I = 1,9 90 TEMPAR(I) = TEMPAR(I)*VOL C C CHECK FOR PIVOT CSID = 0, IF ZERO SKIP TRANSFORMATION TSUBI. C IF (NECPT(KA) .EQ. 0) GO TO 110 C C NOT-ZERO THUS GET TI C CALL TRANSS (NECPT(KA),TI) C C INTRODUCE TI INTO THE COMMON PRODUCT AND STORE AT C TEMPAR(10 THRU 18) C CALL GMMATS (TI,3,3,1, TEMPAR(1),3,3,0, TEMPAR(10)) C C COMMON PRODUCT NOW STARTS AT TEMPAR(10) THUS CHANGE NCOM AND NPT1 C NCOM = 10 NPT1 = 1 C C 80 NOW HAVE COMMON PRODUCT STORED BEGINNING TEMPAR(NCOM), (3X3). C NPT1 POINTS TO FREE WORKING SPACE LENGTH 9. C C PROCEED NOW AND RUN OUT THE 3 6X6 MATRICES KIJ-SUB-1,2,3. C 110 NSAVE = NPT1 NPOINT = (NPVT-1)*27 C C INSERT G INTO TEMPAR C DO 115 I = 1,9 115 TEMPAR(I+18) = G(I) DO 190 I = 1,3 CALL GMMATS (C(6*I-5),3,2,0, E,3,2,1, TEMPAR(NSAVE)) C C NPT2 IS SET TO POINT TO THE BEGINNING OF THE PRODUCT C * E * T C J J NPT2 = NSAVE NPT1 = 19 C C CHECK FOR ZERO CSID IN WHICH CASE TJ IS NOT NEEDED C IF (NECPT(4*I +5) .EQ. 0) GO TO 120 C C COMMING HERE IMPLIES NEED FOR TJ C WILL STORE TJ IN TI C CALL TRANSS (NECPT(4*I+5),TI) CALL GMMATS (TEMPAR(NPT2),3,3,0, TI,3,3,0, TEMPAR(19)) NPT1 = NPT2 NPT2 = 19 C C 60 AT THIS POINT COMPLETE COMPUTATION FOR K-SUB-I,J C 120 CALL GMMATS (TEMPAR(NCOM),3,3,0, TEMPAR(NPT2),3,3,0, TEMPAR(NPT1)) NPT36 = NPT1 + 35 C DO 140 J = 1,9 NPOINT = NPOINT + 1 NPT2 = NPT1 + J - 1 140 KIJ(NPOINT) = TEMPAR(NPT2) 190 CONTINUE 200 CONTINUE C DICT5 = GSUBE RETURN C C HEAT PROBLEM LOGIC PICKS UP HERE. CALL HMAT FOR MATERIAL DATA. C 300 INFLAG = 2 MATID = NECPT(6) ELTEMP = ECPT(21) CALL HMAT (NECPT) G(1) = MATBUF(1) G(2) = MATBUF(2) G(3) = MATBUF(2) G(4) = MATBUF(3) C C CONDENSE C MATRIX FOR HEAT PROBLEM (FORMED ABOVE) C IS (2X3) C C(2) = C(4) C(3) = C(7) C(4) = C(10) C(5) = C(13) C(6) = C(16) C C DETERMINE THE PIVOT POINT. C KQ = 3 KMAX = KQ*3 DO 320 I = 1,KMAX 320 KIJ(I) = 0. DO 400 NPVT = 1,3 C C PIVOT C MATRIX TIMES VOLUME (STORED INTO TT(1) AND TT(2).) C TT(1) = VOL*C(2*NPVT-1) TT(2) = VOL*C(2*NPVT ) C C OUTPUT THE CONDUCTIVITY MATRICES C NPOINT = (NPVT-1)*KQ C DO 380 I = 1,3 N2 = 2*I N1 = N2 - 1 TEMPAR(1) = (G(1)*C(N1) + G(2)*C(N2))*TT(1) + 1 (G(3)*C(N1) + G(4)*C(N2))*TT(2) C C SUB-TRIANGLE (RETURN 3X3-S AS ABOVE IN STIFFNESS PORTION) C KIJ(NPOINT+1) = TEMPAR(1) NPOINT = NPOINT + 1 380 CONTINUE 400 CONTINUE RETURN C C ERROR EXITS C 7770 CALL MESAGE (30,31,NECPT(1)) 7777 NOGO = .TRUE. RETURN 7780 CALL MESAGE (30,32,NECPT(1)) GO TO 7777 7790 CALL MESAGE (30,26,NECPT(1)) GO TO 7777 C END ================================================ FILE: mis/elelbl.f ================================================ SUBROUTINE ELELBL (GPLST,X,U,DEFORM,BUF1) C LOGICAL SOLID INTEGER BLANK ,BUF1 ,BR ,Q4 ,T3 , 1 CHR ,CREW ,DEFORM ,HB ,TWOD , 2 ECT ,ELID ,ELIDP(2) ,ELSETS ,ELTYPE , 3 GPTS ,GPLST(1) ,LBL(10) ,LBLP(8) ,RDREW , 4 PID ,PLABEL ,PLTFLG ,PSET ,OFFSET REAL INFNTY ,LEN ,MA ,MAXLEN ,MB , 1 MINSLP ,X(3,1) ,U(2,1) COMMON /BLANK / SKP(3),PLTFLG,SKP1(6),SKP2(2),ELSETS,CASECC(5),ECT COMMON /SYSTEM/ KSYSTM(40),NCPW COMMON /NAMES / NOREW,RDREW,SKPN(2),CREW COMMON /GPTA1 / NTYPS,LAST,INCR,NE(1) COMMON /CHAR94/ CHR(60) COMMON /PLTDAT/ SKPPLT(20),SKPA(3),CNTCHR(2) COMMON /DRWDAT/ PSET,PLABEL COMMON /PLTSCR/ NCOR,XY(2,8),GPTS(4) C DATA BLANK , INFNTY,SLPMAX / 1H ,1.E3,5. /, PID / 4 /, 1 ITETRA / 2HTE /, IECT / 4HECT / , HB / 2HHB /, 2 BR / 2HBR /, Q4 / 2HQ4 /, T3 / 2HT3 / C NP = 0 CALL TIPE (0,0,0,0,0,-1) CNTX = CNTCHR(1) CNTY = CNTCHR(1) + (CNTCHR(2) - CNTCHR(1))/2. C C . CHECK IF PROPERTY ID IS TO BE TYPED NEXT TO ELEMENT ID C IF (PLABEL .NE. PID) GO TO 40 IF (PLTFLG .LT. 0) GO TO 10 CALL PRELOC (*10,GPLST(BUF1),ECT) CALL FNAME (ECT,GPTS(1)) IF (GPTS(1) .EQ. IECT) GO TO 20 CALL CLOSE (ECT,CREW) 10 PLABEL = PID - 1 GO TO 40 20 CALL DELSET LPID = 0 C C . READ THE ELEMENT TYPE + NUMBER OF GRID POINTS / ELEMENT OF THIS C TYPE. C 30 IF (LPID .GT. 0) CALL FWDREC(*40,ECT) 40 CALL READ (*200,*200,ELSETS,ELTYPE,1,0,I) CALL FREAD (ELSETS,NGPEL,1,0) TWOD = 0 IF (NGPEL .GT. 2) TWOD = 1 NGPEL = IABS (NGPEL) SOLID =.FALSE. IF ((ELTYPE.EQ.ITETRA .OR. NGPEL.GT.4) .AND. ELTYPE.NE.HB) 1 SOLID = .TRUE. C----- C . REJECT ELEMENTS WITH 0 OR MORE THAN --NCOR-16-- GRID POINTS C IF (NGPEL.GT.1 .AND. NGPEL.LT.NCOR-13) GO TO 60 50 CALL FREAD (ELSETS,ELID,1,0) IF (ELID .LE. 0) GO TO 40 CALL FREAD (ELSETS,0,-1,0) CALL FREAD (ELSETS,0,-NGPEL,0) GO TO 50 60 CONTINUE C----- IF (PLABEL .NE. PID) GO TO 90 J = 16 DO 70 I = 1,NTYPS IF (NE(J) .EQ. ELTYPE) GO TO 80 70 J = J + INCR GO TO 90 80 LPID = J - 12 IF (NE(LPID+2) .LE. 0) GO TO 90 NPID = NE(LPID+2) CALL LOCATE (*90,GPLST(BUF1),NE(LPID),GPTS(1)) GO TO 100 90 LPID = 0 C 100 NGPEL1 = NGPEL + 1 OFFSET = 0 IF (ELTYPE .EQ. BR) OFFSET = 6 IF (ELTYPE.EQ.Q4 .OR. ELTYPE.EQ.T3) OFFSET = 1 C C READ AN ELEMENT ID + ITS GRID POINTS. C 102 CALL FREAD (ELSETS,ELID,1,0) IF (ELTYPE .EQ. HB) NGPEL = 8 IF (ELID .LE. 0) GO TO 30 CALL FREAD (ELSETS,0,-1,0) CALL FREAD (ELSETS,GPTS(1),NGPEL,0) IF (OFFSET .GT. 0) CALL FREAD (ELSETS,0,-OFFSET,0) IF (ELTYPE .NE. HB) GO TO 1028 DO 1023 I = 2,4 IF (GPTS(I)) 1023,1025,1023 1023 CONTINUE I = 5 1025 NGPEL = I - 1 1028 CONTINUE K = ELID NL = 0 DO 103 I = 1,8 J = ELID/10**(8-I) IF (J.EQ.0 .AND. NL.EQ.0) GO TO 103 NL = NL + 1 LBL(NL) = CHR(J+1) ELID = ELID - J*10**(8-I) 103 CONTINUE LBL(NL+1) = KHRFN1(BLANK,1,ELTYPE,1) LBL(NL+2) = KHRFN1(BLANK,1,ELTYPE,2) NL = NL + 2 C C . DECODE PROPERTY ID C IF (LPID .LE. 0) GO TO 105 1040 CALL READ (*1041,*1041,ECT,ELIDP,2,0,I) CALL FREAD (ECT,0,-(NPID-2),0) IF (ELIDP(1) .EQ. K) GO TO 1042 GO TO 1040 1041 LPID = -1 GO TO 105 C C . ELEMENT PROPERTY FOUND C 1042 K = 10000000 NP = 0 DO 1043 I = 1,8 J = ELIDP(2)/K IF (J.EQ.0 .AND. NP.EQ.0) GO TO 1043 NP = NP + 1 LBLP(NP) = CHR(J+1) ELIDP(2) = ELIDP(2) - J*K 1043 K = K/10 C 105 CONTINUE C C . SET UP THE COORDINATES OF THE GRID POINTS C DO 108 I = 1,NGPEL J = GPTS(I) J = IABS(GPLST(J)) IF (DEFORM .NE. 0) GO TO 106 XX = X(2,J) YY = X(3,J) GO TO 107 106 XX = U(1,J) YY = U(2,J) 107 IF (SOLID) GO TO 1071 XY(1,I) = XX XY(2,I) = YY J = NGPEL + I XY(1,J) = XX XY(2,J) = YY GO TO 108 1071 IF (I .GT. 2) GO TO 1072 XY(1,I) = XX XY(2,I) = YY IF (I .NE. 1) GO TO 1072 XY(1,3) = 0.0 XY(2,3) = 0.0 1072 XY(1,3) = XX + XY(1,3) XY(2,3) = YY + XY(2,3) 108 CONTINUE C IF (SOLID) GO TO 160 IF (TWOD .NE. 0) GO TO 110 IF (NGPEL .EQ. 2) GO TO 125 K = 3 GO TO 120 C C FIND THE BASE OF THIS POLYGON = LONGEST SIDE (IF MORE THAN ONE C LONGEST SIDE, CHOOSE FROM THEM THE SIDE OF SMALLEST SLOPE). C 110 MAXLEN = 0. DO 116 I = 1,NGPEL XX = XY(1,I+1) - XY(1,I) YY = XY(2,I+1) - XY(2,I) LEN = XX**2 + YY**2 IF (XX .NE. 0.) GO TO 111 SLP = INFNTY GO TO 112 111 SLP = ABS(YY/XX) 112 IF (MAXLEN-LEN) 113,114,116 113 MAXLEN = LEN GO TO 115 114 IF (SLP .GE. MINSLP) GO TO 116 115 K = I MINSLP = SLP 116 CONTINUE C IF (K .EQ. 1) GO TO 122 120 DO 121 I = 1,NGPEL1 XY(1,I) = XY(1,K) XY(2,I) = XY(2,K) K = K + 1 121 CONTINUE 122 IF (NGPEL .EQ. 6) GO TO 140 IF (NGPEL-3) 125,140,150 C C LINE ELEMENT. C 125 XX = XY(1,2) - XY(1,1) IF (XX .EQ. 0.) GO TO 126 YY = XY(2,2) - XY(2,1) SLP= YY/XX GO TO 127 126 SLP= INFNTY 127 XC = (XY(1,1) + XY(1,2))/2. YC = (XY(2,1) + XY(2,2))/2. C IF (ABS(SLP)-1.) 128,128,129 128 YC = YC + CNTY GO TO 175 129 IF (ABS(SLP)-SLPMAX) 130,131,131 130 XC = XC - SIGN(CNTX,SLP) GO TO 175 131 XC = XC + CNTX GO TO 175 C C TRIANGULAR ELEMENT. POINTS 1+2 ARE THE BASE - POINT 3 THE APEX. C 140 XC = (XY(1,1) + XY(1,2) + XY(1,3))/3. YC = (XY(2,1) + XY(2,2) + XY(2,3))/3. GO TO 175 C C QUADRILATERAL ELEMENT. C 150 XX = (XY(1,3)+XY(1,4)) - (XY(1,1)+XY(1,2)) IF (XX .NE. 0.) GO TO 151 MA = INFNTY GO TO 152 151 YY = (XY(2,3)+XY(2,4)) - (XY(2,1)+XY(2,2)) MA = YY/XX BA = (XY(2,1)+XY(2,2))/2. - MA*(XY(1,1)+XY(1,2))/2. 152 XX = (XY(1,2)+XY(1,3)) - (XY(1,1)+XY(1,4)) IF (XX .NE. 0.) GO TO 153 MB = INFNTY GO TO 155 153 YY = (XY(2,2)+XY(2,3)) - (XY(2,1)+XY(2,4)) MB = YY/XX BB = (XY(2,1)+XY(2,4))/2. - MB*(XY(1,1)+XY(1,4))/2. C 155 IF (ABS(MA) .GE. INFNTY) GO TO 156 IF (ABS(MB) .GE. INFNTY) GO TO 157 IF (MB .EQ. MA) GO TO 158 XC = (BA-BB)/(MB-MA) YC = MA*XC + BA GO TO 175 156 XC = (XY(1,1) + XY(1,2))/2. YC = MB*XC + BB GO TO 175 157 XC = (XY(1,1) + XY(1,4))/2. YC = MA*XC + BA GO TO 175 158 XC = (XY(1,3) + XY(1,4) + XY(1,2)+XY(1,1))/4.0 YC = (XY(2,3) + XY(2,4) + XY(2,2)+XY(2,1))/4.0 GO TO 175 C C . ELEMENTS WITH MORE THAN FOUR GRIDS C 160 XC = XY(1,3)/FLOAT(NGPEL) YC = XY(2,3)/FLOAT(NGPEL) GO TO 175 C C SETUP THE STRAIGHT LINE EQUATION OF THE LINE ON WHICH THE ELEMENT C LABEL IS TO BE TYPED - Y=MX+B. C 175 XX = XY(1,2) - XY(1,1) IF (XX .EQ. 0.) GO TO 176 YY = XY(2,2) - XY(2,1) SLP= YY/XX B = YC - XC*SLP GO TO 180 176 SLP= INFNTY C C TYPE THE ELEMENT LABEL (NL CHARACTERS) C 180 ZZ = NL/2 IF (NL/2 .EQ. (NL+1)/2) ZZ = ZZ - .5 ABSSLP = ABS(SLP) CC = CNTX IF (ABSSLP .GE. SLPMAX) CC = CNTY K = MAX0(NL,NP) C DO 191 I = 1,K XX = CC*(ZZ - FLOAT(I-1)) IF (ABSSLP .GT. 1.) GO TO 181 XX = XC - XX YY = SLP*XX + B GO TO 190 181 IF (ABSSLP .GE. SLPMAX) GO TO 182 YY = SIGN(1.,SLP) GO TO 183 182 YY = -1. 183 YY = YC - YY*XX IF (ABSSLP .GE. INFNTY) GO TO 184 XX = (YY-B)/SLP GO TO 190 184 XX = XC C C C OFFSET THE HB LABEL AND PROPERTY ID IF ANY WHEN TIPE LABEL C 190 IF (ELTYPE .NE. HB) GO TO 1905 JTJ = 2 IF (ABSSLP .LT. SLPMAX) YY = YY - JTJ*CC IF (ABSSLP .GE. SLPMAX) XX = XX + JTJ*CC 1905 IF (NL .GE. I) CALL TIPE (XX,YY,1,LBL(I),1,0) IF (LPID .LE. 0) GO TO 191 IF (NP .LT. I) GO TO 191 IF (ABSSLP .LT. SLPMAX) YY = YY - 2.*CC IF (ABSSLP .GE. SLPMAX) XX = XX + 2.*CC CALL TIPE (XX,YY,1,LBLP(I),1,0) 191 CONTINUE GO TO 102 C 200 CALL TIPE (0,0,0,0,0,1) IF (PLABEL .EQ. PID) CALL CLOSE (ECT,CREW) RETURN END ================================================ FILE: mis/elim.f ================================================ SUBROUTINE ELIM (IN1,IN2,IN3,IN4,OUT1,SCR1,SCR2,SCR3) C C ELIM EVALUATES THE MATRIX EQUATION - C C OUT1 = IN1 + IN4(T)*IN2 + IN2(T)*IN4 + IN4(T)*IN3*IN4 C INTEGER OUT1 ,SCR1 ,SCR2 ,SCR3 ,FILEA ,FILEB ,FILEC , 1 FILED ,T ,SIGNAB,SIGNC ,PREC ,RDP ,PLUS , 2 SCRTCH DIMENSION FILEA(7) ,FILEB(7) ,FILEC(7) ,FILED(7) C 1, MCB(7) COMMON /MPYADX/ FILEA ,FILEB ,FILEC ,FILED ,NZ ,T ,SIGNAB , 1 SIGNC ,PREC ,SCRTCH COMMON /SYSTEM/ IDUM(54) ,IPREC COMMON /ZZZZZZ/ Z(1) DATA PLUS / +1 / C RDP = IPREC C C PERFORM GENERAL INITIALIZATION C NZ = KORSZ(Z) SIGNAB = PLUS SIGNC = PLUS PREC = RDP SCRTCH = SCR3 C C INITIALIZE MATRIX CONTROL BLOCKS FOR IN3,IN4,IN2 AND SCR1 C FILEA(1) = IN3 CALL RDTRL (FILEA) FILEB(1) = IN4 CALL RDTRL (FILEB) FILEC(1) = IN2 CALL RDTRL (FILEC) FILED(1) = SCR1 FILED(3) = FILEC(3) FILED(4) = FILEC(4) FILED(5) = RDP C C COMPUTE SCR1 = IN3*IN4 + IN2 C T = 0 CALL MPYAD (Z,Z,Z) C C SAVE MATRIX CONTROL BLOCK FOR SCR1 C C DO 41 I = 1,7 CALL WRTTRL (FILED) C C INITIALIZE MATRIX CONTROL BLOCKS FOR IN2, IN4, IN1 AND SCR2 C DO 51 I = 1,7 51 FILEA(I) = FILEC(I) FILEC(1) = IN1 CALL RDTRL (FILEC) FILED(1) = SCR2 FILED(3) = FILEC(3) FILED(4) = FILEC(4) C C COMPUTE SCR2 = IN2(T)*IN4 + IN1 C T = 1 CALL MPYAD (Z,Z,Z) CALL WRTTRL (FILED) C C INITIALIZE MATRIX CONTROL BLOCKS FOR IN4,SCR1,SCR2 AND OUT1 C FILEA(1) = FILEB(1) FILEB(1) = SCR1 FILEC(1) = FILED(1) CALL RDTRL (FILEA) CALL RDTRL (FILEB) CALL RDTRL (FILEC) FILED(1) = OUT1 FILED(3) = FILEC(3) FILED(4) = FILEC(4) C C COMPUTE OUT1= IN4(T)*SCR1 + SCR2 C T = 1 CALL MPYAD (Z,Z,Z) C C WRITE TRAILER FOR OUT1 AND RETURN C CALL WRTTRL (FILED) RETURN END ================================================ FILE: mis/em1d.f ================================================ SUBROUTINE EM1D (ELTYPE,ISTART,ITYPE,NCOUNT,IDO,IWORDS,NBDYS, 1 ALL,NELOUT) C C COMPUTE LOAD DUE TO MAGNETIC FIELD, K*A + F = 0 C SOLVE FOR -F C C USE ELEMENT COORDINATES FOR ROD C C SET UP COMMON BLOCKS, TABLES C C KSYSTM(1) = 1ST POS. OF OPEN CORE C KSYSTM(2) = OUTPUT FILE NO. C KSYSTM(56) NE 0 FOR HEAT TRANSFER OPTION C C Z = OPEN CORE ARRAY C OUTPT = OUTPUT FILE NO. C NELEMS = NO OF ELEMENTS (TYPES) IN THIS TABLE C LAST = LOC OF 1ST WORD OF LAST ENTRY(EL) IN TABLE C INCR = MAX NO WDS ALLOWED IN ANY ENTRY C C BUF1 = BUFFER FOR EST C EST = ELEMENT SUMMARY TABLE(PROG MAN 2.3.56) C SLT = STAIC LOADS TABLE(2.3.51) C SYSTEM 2.4.13 PROG MANUAL C GPTA1 2.5.6 C EST 2.3.56 C SLT 2.3.51 C C ISTART GIVES 1ST POSITION OF HC OR REMFLUX VALUES C ROD IS IN ELEMENT COORDINATES, AS ARE TUBE,CONROD,BAR C C X1 = 0. X2 = X C AREA OF ROD NEEDED TO COMPUTE VOL C VOL = LENGTH * A C AREA OF TUBE CONPUTED WT OUTS.DIA. C C OPEN FILE EST FOR ELEMENT DATA C C INTEGRAL OVER VOL OF (GRADIENT SHAPE FUNC. TIMES GNU TIMES HC) C C Z(1) 1ST POSITION OF LOAD C NELEMS = NO OF ELEMENTS C INCR = MAX NO OF WORDS FOR AN ELEMENT OF THE ES T TABLE C NE(1 AND2) = ELEMENT NAME C LOGICAL ONLYC INTEGER ELTYPE,ESTWDS,OUTPT,SYSBUF,ALL,SCR6 DIMENSION XN(2),XLOAD(2),NSIL(2),IZ(1),NAM(2), 1 NECPT(200),NAME(2),HCX(2),HCY(2),HCZ(2), 2 ZI(3),DNDX(2),DNDY(2),DNDZ(2),BUF(50),IBUF(50), 3 XLACC(3),XI(2),W(2),SC(5),ISC(5) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ KSYSTM(64) COMMON /ZZZZZZ/ Z(1) COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1) COMMON /EMECPT/ ECPT(200) COMMON /MATIN / MATID,INFLAG,ELTEMP COMMON /HMTOUT/ XMAT EQUIVALENCE (IBUF(1) ,BUF(1)), (SC(1) ,ISC(1) ), 1 (KSYSTM(1 ),SYSBUF), (KSYSTM(2),OUTPT ), 2 (KSYSTM(56),ITHRML), (ECPT(1),NECPT(1)), 3 (Z(1) ,IZ(1) ), (NSIL(1),NECPT(2)) DATA NAM / 4H EM,4H1D / DATA SCR6 / 306 / C C FROM EST GET ALL NECESSARY ELEMENT INFO C ONLYC = .FALSE. NG = 3 ISC(1) = NECPT(1) ISC(2) = 1 XI(1) = -.5773502692 XI(2) = -XI(1) W(1) = 1. W(2) = 1. IDX = (ELTYPE-1)*INCR ESTWDS = NE(IDX+12) NGRIDS = NE(IDX+10) NAME(1)= NE(IDX+ 1) NAME(2)= NE(IDX+ 2) C C CHECK TO SEE IF THIS ELEMENT CONTAINS A GRID POINT ON A PERMBDY C CARD. IF SO, OR IF NO PERMBDY CARD EXISTS, COMPUTE LOADS FOR THE C ELEMENT IF NOT, COMPUTE HC CENTROIDAL VALUE ONLY. (ONLYC=.TRUE.) C THE PERMBDY SILS START AT Z(ISTART-NBDYS-1) C IF (NBDYS .EQ. 0) GO TO 20 C DO 10 I = 1,NGRIDS DO 10 J = 1,NBDYS IF (NSIL(I) .EQ. IZ(ISTART-NBDYS-NELOUT+J-1)) GO TO 20 10 CONTINUE C C ELEMENT HAS NO GRIDS ON PERMBDY C ONLYC = .TRUE. NG = 1 20 CONTINUE IF (ONLYC .AND. ITYPE.EQ.24) RETURN C C IF ONLYC=TRUE, CHECK TO SEE IF THE ELEMENT HAD AN ELFORCE REQUEST. C IF SO, CONTINUE. IF NOT, JUST WRITE ZEROS TO HCCEN,SCR6) AND C RETURN. C IF (.NOT.ONLYC) GO TO 40 IF (ALL .EQ. 1) GO TO 40 IF (NELOUT .EQ. 0) GO TO 70 C DO 30 I = 1,NELOUT IF (NECPT(1) .EQ. IZ(ISTART-NELOUT+I-1)) GO TO 40 30 CONTINUE GO TO 70 40 CONTINUE C C 1ST CHECK FOR ZERO LOAD C IF (ITYPE.NE.20 .AND. ITYPE.NE.24) GO TO 80 H1 = 0. H2 = 0. H3 = 0. DO 50 I = 1,2 ISUB = ISTART + 3*NSIL(I) - 3 IF (ITYPE .EQ. 24) ISUB = ISTART + 3*NCOUNT - 3 H1 = H1 + ABS(Z(ISUB )) H2 = H2 + ABS(Z(ISUB+1)) H3 = H3 + ABS(Z(ISUB+2)) IF (ITYPE .EQ. 24) GO TO 60 50 CONTINUE 60 HL = H1 + H2 + H3 IF (HL .NE. 0.) GO TO 80 IF (ITYPE .EQ. 24) RETURN C C ALL ZEROS-WRITE ON SCR6 C 70 SC(3) = 0. SC(4) = 0. SC(5) = 0. CALL WRITE (SCR6,SC,5,0) RETURN C 80 CONTINUE C C ROD ELTYPE 1 C TUBE 3 C CONROD 10 C BAR 34 C OTHERWISE GET OUT C ONED SOLVES LOAD DUE TO MAGNETIC FILED C PI = 3.14159 INFLAG= 1 IF (ELTYPE.NE.1 .AND. ELTYPE.NE.10) GO TO 90 MID = 4 ITEMP = 17 IX1 = 10 IX2 = 14 IY1 = 11 IY2 = 15 IZ1 = 12 IZ2 = 16 IAR = 5 GO TO 110 90 IF (ELTYPE .NE. 3) GO TO 100 MID = 4 ITEMP = 16 IX1 = 9 IX2 = 13 IY1 = 10 IY2 = 14 IZ1 = 11 IZ2 = 15 C C COMPUTE AREA C DIA = ECPT(5) TH = ECPT(6) RAD = DIA - 2.*TH ARROD = PI*((DIA/2)**2 - (RAD/2.)**2) GO TO 110 100 IF (ELTYPE .NE. 34) GO TO 300 MID = 16 ITEMP = 42 IX1 = 35 IX2 = 39 IY1 = 36 IY2 = 40 IZ1 = 37 IZ2 = 41 IAR = 17 110 IF (ONLYC) GO TO 120 XL = ECPT(IX2) - ECPT(IX1) YL = ECPT(IY2) - ECPT(IY1) ZL = ECPT(IZ2) - ECPT(IZ1) XLEN = SQRT(XL**2 + YL**2 + ZL**2) XN(1) = -1./XLEN XN(2) = 1./XLEN IF (ELTYPE .NE. 3) ARROD = ECPT(IAR) ELTEMP= ECPT (ITEMP) MATID = NECPT(MID) C C ARROD = AREA OF CROSS SECTION OF ROD C IF (ITYPE .NE. 24) CALL HMAT (NECPT(1)) GNU = XMAT IF (ITYPE .EQ. 24) GNU = 1. C C HC FROM Z(ISTART) C YIELDS X COORD OF HC FOR GRID PT DEFINED BY NSIL C VOL = ARROD*XLEN C C COMPUTE BASIC TO LOCAL TRANSFORMATION C ZI(1) = XL/XLEN ZI(2) = YL/XLEN ZI(3) = ZL/XLEN C C PARTIALS OF N W.R.T X-GLOBAL,Y-GLOBAL,Z-GLOBAL C DNDX(1) = -ZI(1)/XLEN DNDY(1) = -ZI(2)/XLEN DNDZ(1) = -ZI(3)/XLEN DNDX(2) = -DNDX(1) DNDY(2) = -DNDY(1) DNDZ(2) = -DNDZ(1) CONST = .5*GNU*VOL IF (ITYPE .EQ. 24)GO TO 250 120 CONTINUE JTYPE = ITYPE - 19 XLACC(1)= 0. XLACC(2)= 0. XLACC(3)= 0. C C LOOP OVER INTEGRATION POINTS-ASSUME CUBIC VARIATION. SO NEED 2 C INTEGRATION POINTS + CENTROID C DO 240 NPTS = 1,NG IF (NPTS .NE. NG) GO TO 130 XX = .5*(ECPT(IX1) + ECPT(IX2)) YY = .5*(ECPT(IY1) + ECPT(IY2)) ZZ = .5*(ECPT(IZ1) + ECPT(IZ2)) C C AVERAGE SPCFLD C XLX = .5 XLXP = .5 GO TO 140 C C COMPUTE LOCAL COORDINATE OF SAMPLING POINT C 130 XLOCAL = .5*XLEN*(1.+XI(NPTS)) XLX = XLOCAL/XLEN XLXP = 1. - XLX C C COMPUTE BASIC COORDS FOR XLOCAL C XX = XLXP*ECPT(IX1) + XLX*ECPT(IX2) YY = XLXP*ECPT(IY1) + XLX*ECPT(IY2) ZZ = XLXP*ECPT(IZ1) + XLX*ECPT(IZ2) 140 AHCX = 0. AHCY = 0. AHCZ = 0. C C COMPUTE HC AT THIS POINT DUE TO ALL LOADS OF THIS TYPE C DO 220 IJK = 1,IDO IF (ITYPE .EQ. 20) GO TO 160 ISUB = ISTART + (IJK-1)*IWORDS - 1 DO 150 I = 1,IWORDS 150 BUF(I) = Z(ISUB+I) GO TO (160,180,190,200), JTYPE C C SPCFLD C 160 DO 170 I = 1,2 IS = ISTART + 3*NSIL(I) -3 HCX(I) = Z(IS ) HCY(I) = Z(IS+1) 170 HCZ(I) = Z(IS+2) C C INTERPOLATE GRID VALUES TO INTEGRATION POINT C HC1 = XLXP*HCX(1) + XLX*HCX(2) HC2 = XLXP*HCY(1) + XLX*HCY(2) HC3 = XLXP*HCZ(1) + XLX*HCZ(2) GO TO 210 180 CALL AXLOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 210 190 CALL GELOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 210 200 CALL DIPOLE (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) 210 AHCX = AHCX + HC1 AHCY = AHCY + HC2 AHCZ = AHCZ + HC3 220 CONTINUE IF (NPTS .NE. NG) GO TO 230 SC(3) = AHCX SC(4) = AHCY SC(5) = AHCZ CALL WRITE (SCR6,SC,5,0) IF (ONLYC) RETURN GO TO 240 C C WE HAVE HC AT THIS INTEGRATION POINT. MULT. BY WEIGHT AND C ACCUMULATE C 230 XLACC(1) = XLACC(1) + AHCX*W(NPTS) XLACC(2) = XLACC(2) + AHCY*W(NPTS) XLACC(3) = XLACC(3) + AHCZ*W(NPTS) 240 CONTINUE C C MULT. BY CONST AND GRAD N TO GET LOADS C XLOAD(1) = CONST*(DNDX(1)*XLACC(1) + DNDY(1)*XLACC(2) + 1 DNDZ(1)*XLACC(3)) XLOAD(2) = CONST*(DNDX(2)*XLACC(1) + DNDY(2)*XLACC(2) + 1 DNDZ(2)*XLACC(3)) GO TO 260 C C REMFLUX C 250 IS = ISTART + 3*NCOUNT - 3 AHCX = Z(IS ) AHCY = Z(IS+1) AHCZ = Z(IS+2) C XLOAD(1) = GNU*VOL*(DNDX(1)*AHCX + DNDY(1)*AHCY + DNDZ(1)*AHCZ) XLOAD(2) = GNU*VOL*(DNDX(2)*AHCX + DNDY(2)*AHCY + DNDZ(2)*AHCZ) 260 DO 290 I = 1,2 J = NSIL(I) C C IF PERMBDY EXISTS AND IF GRID IS NOT ON IT, IGNORE ITS LOAD C IF (NBDYS .EQ. 0) GO TO 280 DO 270 K = 1,NBDYS IF (J .NE. IZ(ISTART-NBDYS-NELOUT+K-1)) GO TO 270 GO TO 280 270 CONTINUE GO TO 290 280 CONTINUE 290 Z(J) = Z(J) - XLOAD(I) RETURN C 300 WRITE (OUTPT,310) UFM 310 FORMAT (A23,', ELEMENT TYPE ',2A4,' WAS USED IN AN E AND M ', 1 'PROBLEM.') CALL MESAGE (-37,0,NAM) RETURN END ================================================ FILE: mis/em2d.f ================================================ SUBROUTINE EM2D (ITYPE,ISTART,JTYPE,NCOUNT,IDO,IWORDS,NBDYS,ALL, 1 NELOUT) C C COMPUTES ADDITIONAL E AND M LOADS FOR TWO DIMENSIONAL ELEMENTS C C THIS ROUTINE HANDLES THE FOLLOWING 2-D ELEMENTS C C TRIA1 -6- TRMEM -9- QDMEM-16- TRIA2-17- QUAD2-18- QUAD1-19- C TRIARG-36- TRAPRG-37 IS2D8-80- C LOGICAL ONLYC INTEGER OTPE,ALL,POINTR(9,9),TYPOLD,SCR6 REAL L(3,4),W(4) DIMENSION BUF(50),JBUF(50),XLACC(3),IZ(1),NAM(2),NECPT(10), 1 R(3,8),IP(3),HC(3),XLOAD(3),D12(3),D13(3),XN(18), 2 G(9),DXX(3),ZI(3),ZJ(3),ZK(3),ET(9),XNG(9),HCX(3), 3 HCY(3),HCZ(3),ISC(5),SC(5),PT(3),H(3),Z14(3), 4 XZ(16),VEC(3),VVEC(3),HCI(24),F(8),GH(3),DN(8), 5 DNXI(1),DNETA(1),DNC(16),DNL(16),DNX(1),DNY(1), 6 XI(8),ETA(8),XJB(4),XXJB(2,2),IWS(2,3),HCXYZ(3), 7 DDNL(24),DDNLB(24) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ IBUF,OTPE,IDUM(78) COMMON /BLANK / NROWSP COMMON /EMECPT/ ECPT(200) COMMON /ZZZZZZ/ Z(1) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /HMTOUT/ XMAT(6) EQUIVALENCE (BUF(1),JBUF(1)),(SC(1),ISC(1)),(Z(1),IZ(1)), 1 (ECPT(1),NECPT(1)),(I1,IP(1)),(I2,IP(2)), 2 (I3,IP(3)),(DNC(1),DNXI(1)),(DNC(9),DNETA(1)), 3 (DNL(1),DNX(1)),(DNL(9),DNY(1)) DATA XI / -1., 1., 1.,-1., 0., 1., 0.,-1./ DATA ETA / -1.,-1., 1., 1.,-1., 0., 1., 0./ DATA TWOPI3/ 2.094395103 / DATA NAM / 4HEM2D,4H / DATA TYPOLD/ 0 /, SCR6 / 306/ C C EST STARTING POINTERS C C ISIL = 1ST SIL NUMBER C ITH = MATERIAL ANGLE C MID = MATERIAL ID C IA = AREA FACTOR (TO COMPUTE VOLUME) C ISYS = 1ST OUTPUT CORRDINATE SYSYTEM NUMBER C NGRIDS = NUMBER OF GRID POINTS C ITEMP = ELEMENT TEMPERATURE C NEL = NUMBER OF TRIANGLES USED TO FORM ELEMENT C C ITYPE ISIL ITH MID IA ISYS NGRIDS ITEMP NEL C DATA POINTR/ 6, 2, 5, 6, 7, 15, 3, 27, 1, 1 9, 2, 5, 6, 7, 9, 3, 21, 1, 2 16, 2, 6, 7, 8, 10, 4, 26, 4, 3 17, 2, 5, 6, 7, 9, 3, 21, 1, 4 18, 2, 6, 7, 8, 10, 4, 26, 4, 5 19, 2, 6, 7, 8, 16, 4, 32, 4, 6 36, 2, 5, 6, 0, 7, 3, 19, 1, 7 37, 2, 6, 7, 0, 8, 4, 24, 4, 8 80, 2, 11, 12, 13, 14, 8, 46, 1/ C ONLYC = .FALSE. IF (ITYPE .EQ. 80) GO TO 10 L(1,1) = 1./3. L(2,1) = L(1,1) L(3,1) = L(1,1) L(1,2) = .6 L(2,2) = .2 L(3,2) = .2 L(1,3) = .2 L(2,3) = .6 L(3,3) = .2 L(1,4) = .2 L(2,4) = .2 L(3,4) = .6 W(1) =-27./48. W(2) = 25./48. W(3) = W(2) W(4) = W(2) NOPTS = 4 10 CONTINUE ISC(1) = NECPT(1) ISC(2) = 1 IF (ITYPE .EQ. 80) ISC(2) = 9 C C FIND ELEMENT TYPE TO PICK UP POINTERS C IF (ITYPE .EQ. TYPOLD) GO TO 40 TYPOLD = ITYPE DO 20 I = 1,9 JEL = I IF (ITYPE-POINTR(1,I)) 1600,30,20 20 CONTINUE GO TO 1600 C 30 ISIL = POINTR(2,JEL) ITH = POINTR(3,JEL) MID = POINTR(4,JEL) IA = POINTR(5,JEL) ISYS = POINTR(6,JEL) NGRIDS= POINTR(7,JEL) ITEMP = POINTR(8,JEL) NEL = POINTR(9,JEL) C C CHECK TO SEE IF THIS ELEMENT CONTAINS A GRID POINT ON A PERMBDY C CARD. IF SO, OR IF NO PERMBDY CARD EXISTS, COMPUTE LOADS FOR THE C ELEMENT. IF NOT, COMPUTE HC CENTROIDAL VALUE ONLY. (ONLYC=.TRUE.) C THE PERMBDY SILS START AT Z(ISTART-NBDYS-1) C 40 IF (NBDYS .EQ. 0) GO TO 60 C DO 50 I = 1,NGRIDS NG = NECPT(ISIL+I-1) DO 50 J = 1,NBDYS IF (NG .EQ. IZ(ISTART-NBDYS-NELOUT+J-1)) GO TO 60 50 CONTINUE C C ELEMENT HAS NO GRIDS ON PERMBDY C ONLYC = .TRUE. NOPTS = 0 60 IF (ONLYC .AND. JTYPE.EQ.24) RETURN C C IF ONLYC=TRUE, CHECK TO SEE IF THE ELEMENT HAD AN ELFORCE REQUEST. C IF SO, CONTINUE. IF NOT, JUST WRITE ZEROS TO HCCEN,SCR6) AND C RETURN. C IF(.NOT.ONLYC) GO TO 80 IF(ALL .EQ. 1) GO TO 80 IF(NELOUT .EQ. 0) GO TO 110 C DO 70 I = 1,NELOUT IF (NECPT(1) .EQ. IZ(ISTART-NELOUT+I-1)) GO TO 80 70 CONTINUE GO TO 110 C C CHECK FOR ZERO LOAD C 80 IF (JTYPE.NE.20 .AND. JTYPE.NE.24) GO TO 210 H1 = 0. H2 = 0. H3 = 0. G1 = 0. G2 = 0. G3 = 0. DO 90 I = 1,NGRIDS ISUB = ISTART + 3*NECPT(ISIL+I-1) - 3 IF (JTYPE .EQ. 24) ISUB = ISTART + 3*NCOUNT - 3 H1 = H1 + ABS(Z(ISUB )) H2 = H2 + ABS(Z(ISUB+1)) H3 = H3 + ABS(Z(ISUB+2)) G1 = G1 + Z(ISUB ) G2 = G2 + Z(ISUB+1) G3 = G3 + Z(ISUB+2) IF (JTYPE .EQ. 24) GO TO 100 90 CONTINUE 100 HL = H1 + H2 + H3 IF (HL .NE. 0.) GO TO 200 IF (JTYPE .EQ. 24) RETURN C C ALL ZEROS - WRITE TO SCR6 C 110 SC(3) = 0. SC(4) = 0. SC(5) = 0. CALL WRITE (SCR6,SC,2,0) ISC2 = ISC(2) DO 120 I = 1,ISC2 CALL WRITE (SCR6,SC(3),3,0) 120 CONTINUE RETURN C 200 IF (JTYPE .EQ. 24) GO TO 210 C C AVERAGE SPCFLD C AHCX = G1/FLOAT(NGRIDS) AHCY = G2/FLOAT(NGRIDS) AHCZ = G3/FLOAT(NGRIDS) C 210 IF (ONLYC) GO TO 310 C C PICK UP MATERIAL INFO C INFLAG = 3 MEANS A 3 X 3 MATERIAL MATRIX WILL BE RETURNED. THE C REASON FOR DOING THIS FOR A 2-D ELEMENT IS THAT HC CAN HAVE A C COMPONENT NORMAL TO THE PLANE OF THE ELEMENT. PARTIAL DERIVATIVE C W.R.T Z IS 0. BUT IF THE MATERIAL IS ANISOTROPIC, THEN A C CONTRIBUTION TO THE SCALAR LOAD IS POSSIBLE IF MATERIAL CONTAINS C A NON-ZERO X-Z TERM. FOR ISOTROPIC MATERIALS, THE NORMAL COMPONENT C OF HC WILL BE IGNORED W.R.T ITS CONTRIBUTION TO THE LOAD. IF ALL C TERMS OF MATERIAL MATRIX W.R.T.Z ARE 0, AND IF ANISOTROPIC ANGLE C IS NOT 0, THEN WE MUST TRANSFORM MATERIALS TO ELEMENT SYSTEM HERE. C INFLAG = 3 IF (JTYPE .EQ. 24) GO TO 260 MATID = NECPT(MID) ELTEMP = ECPT(ITEMP) ANGLE = ECPT(ITH)*0.017453293 SINTH = SIN(ANGLE) COSTH = COS(ANGLE) CALL HMAT (NECPT(1)) C C CHECK FOR 3-D ANISOTROPY C IF (XMAT(3).EQ.0. .AND. XMAT(5).EQ.0.) GO TO 230 C 220 G(1) = XMAT(1) G(2) = XMAT(2) G(3) = XMAT(3) G(5) = XMAT(4) G(6) = XMAT(5) G(9) = XMAT(6) GO TO 240 C C CHECK FOR 2-D ANISOTROPY C 230 IF (ABS(ANGLE) .LE. .0001) GO TO 220 C C 2-D ANISOTROPY C CSQ = COSTH*COSTH SSQ = SINTH*SINTH CS = COSTH*SINTH G(1) = CSQ*XMAT(1) - 2.*CS*XMAT(2) + SSQ*XMAT(4) G(2) = CS*(XMAT(1) - XMAT(4)) + (CSQ-SSQ)*XMAT(2) G(3) = 0. G(5) = SSQ*XMAT(1) + 2.*CS*XMAT(2) + CSQ*XMAT(4) G(6) = 0. G(9) = XMAT(6) C 240 IF (ITYPE.NE.36 .AND. ITYPE.NE.37) GO TO 250 C C SWITCH Y-Z MATERIALS FOR TRAPRG AND TRIARG C TEMP = G(5) G(5) = G(9) G(9) = TEMP TEMP = G(2) G(2) = G(3) G(3) = TEMP C C FILL IN SYMMETRIC PART C 250 G(4) = G(2) G(7) = G(3) G(8) = G(6) C C SINCE QUADRILATERALS ARE COVERED BY 4 OVERLAPPING TRIANGLES, C MUST DIVIDE QUAD RESULTS BY 2 C 260 XMUL = 1. IF (NGRIDS .EQ. 4) XMUL = .5 C C PICK UP COORDINATES OF GRID POINTS C DO 300 I = 1,NGRIDS ISUBI = ISYS + 4*I - 4 DO 300 J = 1,3 ISUB = ISUBI + J R(J,I)= ECPT(ISUB) 300 CONTINUE 310 IF (ITYPE .EQ. 80) GO TO 900 C C COMPUTE COORDINATES OF CENTROID (OR, AT LEAST, AVERAGE ELEMENT C COORDS) C XXC = 0. YYC = 0. ZZC = 0. DO 320 I = 1,NGRIDS XXC = XXC + R(1,I) YYC = YYC + R(2,I) ZZC = ZZC + R(3,I) 320 CONTINUE XXC = XXC/FLOAT(NGRIDS) YYC = YYC/FLOAT(NGRIDS) ZZC = ZZC/FLOAT(NGRIDS) C C NOW COMPUTE PROPER LOADS FOR EACH TRIANGLE C DO 800 IEL = 1,NEL IF (ONLYC) GO TO 500 C C 1ST SET UP AN ARRAY TO PICK UP GRID POINTS IN A PARTICULAR ORDER. C FOR TRIANGLES, IT IS 1,2,3. FOR QUADRILATERALS, FORM 4 TRIANGLES C BY TAKING GRIDS 1,2,3, 2,3,4, 3,4,1, AND 4,1,2 C DO 330 I = 1,3 IP(I) = I + IEL - 1 IF (IP(I) .GT. 4) IP(I) = IP(I) - 4 330 CONTINUE C C COMPUTE VECTORS FROM 1ST GRID TO 2ND AND FROM 1ST TO 3RD C DO 340 I = 1,3 D12(I) = R(I,I2) - R(I,I1) 340 D13(I) = R(I,I3) - R(I,I1) C C SET UP GRADIENTS FOR AXISYMMETRIC ELEMENTS SEPARATELY C IF (ITYPE.NE.36 .AND. ITYPE.NE.37) GO TO 360 C C THE LENGTH OF THE CROSS PRODUCT VECTOR IS TWICE THE AREA OF THE C TRIANG C CALL SAXB (D12(1),D13(1),D12(1)) AREA = .5*SQRT(D12(1)**2 + D12(2)**2 + D12(3)**2) VOL = AREA*TWOPI3*(R(1,I1) + R(1,I2) + R(1,I3)) C C NOW SET UP GRADIENT OF THE SHAPE FUNCTION AT EACH GRID POINT. C SET UP A 3 X3 MATRIX ROW-STORED FOR GMMATS C D = (R(1,I2)-R(1,I1))*R(3,I3) + (R(1,I1)-R(1,I3))*R(3,I2) + 1 (R(1,I3)-R(1,I2))*R(3,I1) XN(1) = R(3,I2) - R(3,I3) XN(2) = 0. XN(3) = R(1,I3) - R(1,I2) XN(4) = R(3,I3) - R(3,I1) XN(5) = 0. XN(6) = R(1,I1) - R(1,I3) XN(7) = R(3,I1) - R(3,I2) XN(8) = 0. XN(9) = R(1,I2) - R(1,I1) C DO 350 I = 1,9 XN(I) = XN(I)/D 350 CONTINUE C C FOR ALL EXCEPT REMFLUX, MULT. GRADIENTS INTO MATERIALS C IF (JTYPE .NE. 24) CALL GMMATS (XN(1),3,3,0,G,3,3,0,XN(10)) GO TO 420 C C FIRST, CONVERT COORDINATES TO ELEMNT COORDINATE SYSTEM C 360 ZLEN = SQRT(D12(1)**2 + D12(2)**2 + D12(3)**2) DO 370 I = 1,3 370 ZI(I) = D12(I)/ZLEN C CALL SAXB (ZI(1),D13(1),DXX(1)) C X2 = ZLEN X3 = D13(1)*ZI(1) + D13(2)*ZI(2) + D13(3)*ZI(3) Y3 = SQRT(DXX(1)**2 + DXX(2)**2 + DXX(3)**2) C AREA = .5*X2*Y3 VOL = AREA*ECPT(IA) C C GET J AND K VECTORS FOR LATER USE C DO 380 I = 1,3 380 ZK(I) = DXX(I)/Y3 C CALL SAXB (ZK(1),ZI(1),ZJ(1)) ZLEN = SQRT(ZJ(1)**2 + ZJ(2)**2 + ZJ(3)**2) DO 390 I = 1,3 390 ZJ(I) = ZJ(I)/ZLEN DO 400 I = 1,3 ET(I ) = ZI(I) ET(I+3) = ZJ(I) 400 ET(I+6) = ZK(I) C C SHAPE FUNCTION GRADIENTS C XN(1) = -1./X2 XN(2) = (X3-X2)/(X2*Y3) XN(3) = 0. XN(4) = -XN(1) XN(5) = -X3/(X2*Y3) XN(6) = 0. XN(7) = 0. XN(8) = 1./Y3 XN(9) = 0. C C TRANSFORM SHAPE FN GRADIENTS FROM LOCAL TO BASIC C CALL GMMATS (ET,3,3,1,XN(1),3,3,1,XNG(1)) C C FOR ALL EXCEPT REMFLUX, MULT. GRADIENTS OF SHAPE FNS INTO C MATERIALS C IF (JTYPE .EQ. 24) GO TO 410 CALL GMMATS (XNG(1),3,3,1,G,3,3,0,XN(10)) GO TO 420 410 XN(1) = XNG(1) XN(2) = XNG(4) XN(3) = XNG(7) XN(4) = XNG(2) XN(5) = XNG(5) XN(6) = XNG(8) XN(7) = XNG(3) XN(8) = XNG(6) XN(9) = XNG(9) 420 IF (JTYPE .EQ. 24) GO TO 740 C C START INTEGRATION PROCEDURE- 4 POINTS FOR CUBIC PLUS ONE AT C CENTROID C 500 KTYPE = JTYPE - 19 XLACC(1) = 0. XLACC(2) = 0. XLACC(3) = 0. NOPTSP = NOPTS + 1 DO 720 NPTS = 1,NOPTSP C C DO CENTROID FOR ONLY 1ST TRIANGLE C IF (NPTS.EQ.NOPTSP .AND. IEL.GT.1) GO TO 720 C C COMPUTE BASIC COORDS OF INTEGRATION POINT C IF (NPTS .NE. NOPTSP) GO TO 510 C C CENTROID C XX = XXC YY = YYC ZZ = ZZC IF (JTYPE .NE. 20) GO TO 520 C C AVERAGE SPCFLD C HC(1) = AHCX HC(2) = AHCY HC(3) = AHCZ GO TO 610 510 XX = L(1,NPTS)*R(1,I1) + L(2,NPTS)*R(1,I2) + L(3,NPTS)*R(1,I3) YY = L(1,NPTS)*R(2,I1) + L(2,NPTS)*R(2,I2) + L(3,NPTS)*R(2,I3) ZZ = L(1,NPTS)*R(3,I1) + L(2,NPTS)*R(3,I2) + L(3,NPTS)*R(3,I3) 520 HC(1) = 0. HC(2) = 0. HC(3) = 0. C C COMPUTE HC AT THIS POINT FOR ALL LOADS OF THIS TYPE C DO 600 IJK = 1,IDO IF (JTYPE .EQ. 20) GO TO 540 ISUB = ISTART + (IJK-1)*IWORDS - 1 DO 530 I = 1,IWORDS 530 BUF(I) = Z(ISUB+I) GO TO (540,560,570,580), KTYPE 540 DO 550 I = 1,3 IPI = IP(I) NSIL = NECPT(ISIL+IPI-1) IPT = ISTART + 3*NSIL - 3 HCX(I) = Z(IPT ) HCY(I) = Z(IPT+1) HCZ(I) = Z(IPT+2) 550 CONTINUE HC1 = L(1,NPTS)*HCX(1) + L(2,NPTS)*HCX(2) + L(3,NPTS)*HCX(3) HC2 = L(1,NPTS)*HCY(1) + L(2,NPTS)*HCY(2) + L(3,NPTS)*HCY(3) HC3 = L(1,NPTS)*HCZ(1) + L(2,NPTS)*HCZ(2) + L(3,NPTS)*HCZ(3) GO TO 590 C C CEMLOOP, GEMLOOP, MDIPOLE C 560 CALL AXLOOP (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 590 570 CALL GELOOP (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 590 580 CALL DIPOLE (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3) 590 HC(1) = HC(1) + HC1 HC(2) = HC(2) + HC2 HC(3) = HC(3) + HC3 600 CONTINUE C 610 IF (NPTS .NE. NOPTSP) GO TO 700 SC(3) = HC(1) SC(4) = HC(2) SC(5) = HC(3) CALL WRITE (SCR6,SC,5,0) GO TO 720 C C WE HAVE HC AT THIS INTEG. PT. MULT. BY WEIGHT AND ACCUMULATE C 700 DO 710 I = 1,3 710 XLACC(I) = XLACC(I) + HC(I)*W(NPTS) C C GET ANOTHER INTEGRATION POINT C 720 CONTINUE C IF (ONLYC) RETURN DO 730 I = 1,3 730 HC(I) = XLACC(I) GO TO 750 C C REMFLUX C 740 IPT = ISTART + 3*NCOUNT - 3 HC(1) = Z(IPT ) HC(2) = Z(IPT+1) HC(3) = Z(IPT+2) C C TAKE XMUL MULTIPLIER INTO ACCOUNT C 750 DO 760 I = 1,3 760 HC(I) = HC(I)*XMUL C C MAKE FINAL COMPUTATION. MULTIPLY PRODUCT OF SHAPE FUNCTION C GRADIENTS AND MATERIAL MATRIX INTO HC AND MULTIPLY BY VOLUME C ISUB = 10 IF (JTYPE .EQ. 24) ISUB = 1 CALL GMMATS (XN(ISUB),3,3,0,HC,3,1,0,XLOAD(1)) C C ADD THIS ELEMENT LOAD VECTOR IN OVERALL VECTOR. USE NSIL AND IP TO C POI C DO 790 J = 1,3 IPI = IP(J) NSIL = NECPT(ISIL+IPI-1) C C IF PERMBDY EXISTS AND IF GRID IS NOT ON IT, IGNORE ITS LOAD C IF (NBDYS .EQ. 0) GO TO 780 DO 770 I = 1,NBDYS IF (NSIL .NE. IZ(ISTART-NBDYS-NELOUT+I-1)) GO TO 770 GO TO 780 770 CONTINUE GO TO 790 780 Z(NSIL) = Z(NSIL) - XLOAD(J)*VOL 790 CONTINUE C C DONE FOR THIS TRIANGLE. GO BACK FOR ANOTHER C 800 CONTINUE RETURN C C IS2D8 C C SET UP QUADRATURE POINTS AND WEIGHTS C 900 IF (ONLYC) GO TO 1000 PT(1) = -0.57735027 PT(2) = -PT(1) H(1) = 1. H(2) = 1. IF (NECPT(10) .EQ. 2) GO TO 910 PT(1) = -0.77459667 PT(2) = 0. PT(3) = -PT(1) H(1) = 5./9. H(2) = 8./9. H(3) = H(1) C C COMPUTE I,J,K VECTORS- I IS 1 TO 2 C 910 DO 920 I = 1,3 ZI(I) = R(I,2) - R(I,1) 920 Z14(I)= R(I,4) - R(I,1) ZLEN = SQRT(ZI(1)**2 + ZI(2)**2 + ZI(3)**2) DO 930 I = 1,3 930 ZI(I) = ZI(I)/ZLEN C C GET K BY CROSSING I INTO VECTOR FROM 1 TO 4 C ZK(1) = ZI(2)*Z14(3) - ZI(3)*Z14(2) ZK(2) = ZI(3)*Z14(1) - ZI(1)*Z14(3) ZK(3) = ZI(1)*Z14(2) - ZI(2)*Z14(1) ZKLEN = SQRT(ZK(1)**2 + ZK(2)**2 + ZK(3)**2) DO 940 I = 1,3 940 ZK(I) = ZK(I)/ZKLEN C C GET J BY CROSSING K INTO I AND STORE INTO TRANSFORMATION MATRIX C ZJ(1) = ZK(2)*ZI(3) - ZK(3)*ZI(2) ZJ(2) = ZK(3)*ZI(1) - ZK(1)*ZI(3) ZJ(3) = ZK(1)*ZI(2) - ZK(2)*ZI(1) ZJLEN = SQRT(ZJ(1)**2 + ZJ(2)**2 + ZJ(3)**2) DO 950 I = 1,3 950 ZJ(I) = ZJ(I)/ZJLEN C DO 960 I = 1,3 ET(I ) = ZI(I) ET(I+3) = ZJ(I) 960 ET(I+6) = ZK(I) C C COMPUTE ELMENT COORDS FOR 1 AND 2 C XZ(1) = 0. XZ(2) = 0. XZ(3) = ZLEN XZ(4) = 0. C C FOR 3-8, X IS DOT PRODUCT OF VECTOR FROM 1 TO GRID WITH I. C Y IS THE LENFTH OF THE VECTOR RESULTING FROM CROSSING I INTO C VECTOR FROM 1 TO GRID C DO 980 I = 3,8 IXX = 2*I - 1 DO 970 J = 1,3 970 VEC(J) = R(J,I) - R(J,1) XZ(IXX) = VEC(1)*ZI(1) + VEC(2)*ZI(2) + VEC(3)*ZI(3) VVEC(1) = ZI(2)*VEC(3) - ZI(3)*VEC(2) VVEC(2) = ZI(3)*VEC(1) - ZI(1)*VEC(3) VVEC(3) = ZI(1)*VEC(2) - ZI(2)*VEC(1) XZ(IXX+1) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2) 980 CONTINUE C DO 990 I = 1,8 990 F(I) = 0. C C GET HC AT EACH GRID C IF (JTYPE .NE. 24) GO TO 1000 C C REMFLUX C ISUB = ISTART + 3*NCOUNT - 3 GH(1) = Z(ISUB ) GH(2) = Z(ISUB+1) GH(3) = Z(ISUB+2) GO TO 1020 C C IF SPCFLD, PICK UP GRID VALUES HERE. IF NOT, PICK UP INTEGRATION C POINT VALUES LATER C 1000 IF (JTYPE .NE. 20) GO TO 1020 DO 1010 I = 1,NGRIDS ISIL = 3*NECPT(I+1) HCI(3*I-2) = Z(ISTART+ISIL-3) HCI(3*I-1) = Z(ISTART+ISIL-2) HCI(3*I ) = Z(ISTART+ISIL-1) 1010 CONTINUE 1020 INIP = NECPT(10) KTYPE = JTYPE - 20 IF (ONLYC) GO TO 1340 C C START INTEGRATION C DO 1300 III = 1,INIP DO 1300 JJJ = 1,INIP C C COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA C EACH GRID POINT C DO 1030 N = 1,4 DN(N) = .25*(1.+PT(III)*XI(N))*(1.+PT(JJJ)*ETA(N))* 1 (PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.) DNXI(N) = .25*XI(N)*(1.+PT(JJJ)*ETA(N))* 1 (2.*PT(III)*XI(N)+PT(JJJ)*ETA(N)) DNETA(N)= .25*ETA(N)*(1.+PT(III)*XI(N))* 1 (PT(III)*XI(N)+2.*PT(JJJ)*ETA(N)) 1030 CONTINUE DO 1040 N = 5,7,2 C DN(N) = .5*(1.-PT(III)*PT(III))*(1.+PT(JJJ)*ETA(N)) DNXI(N) = -PT(III)*(1.+PT(JJJ)*ETA(N)) DNETA(N)= .5*(1.-PT(III)*PT(III))*ETA(N) 1040 CONTINUE C DO 1050 N = 6,8,2 DN(N) = .5*(1.+PT(III)*XI(N))*(1.-PT(JJJ)*PT(JJJ)) DNXI(N) = .5*XI(N)*(1.-PT(JJJ)*PT(JJJ)) DNETA(N)= -PT(JJJ)*(1.+PT(III)*XI(N)) 1050 CONTINUE C C COMPUTE JACOBEAN C C N1XI N2XI N3XI N4XI N5XI N6XI N7XI N8XI C DNC = N1ETA N2ETA N3ETA N4ETA N5ETA N6ETA N7ETA N8ETA C C X1 Y1 C X2 Y2 C X3 Y3 C XX = X4 Y4 C X5 Y5 C X6 Y6 C X7 Y7 C X8 Y8 C CALL GMMATS (DNC,2,8,0,XZ,8,2,0,XJB) C C XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED C FOR INVERSION C K = 0 DO 1060 I = 1,2 DO 1060 J = 1,2 K = K + 1 1060 XXJB(I,J) = XJB(K) C C COMPUTE INVERSE AND DETERMINANT OF JACOBEAN C CALL INVERS (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS) C C COMPUTE DERIVATIVES WITH RESPECT TO X AND Y C K = 0 DO 1070 I = 1,2 DO 1070 J = 1,2 K = K + 1 1070 XJB(K) = XXJB(I,J) CALL GMMATS (XJB,2,2,0,DNC,2,8,0,DNL) C C N1X N2X N3X N4X N5X N6X N7X N8X C DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y C IF (JTYPE .EQ. 24) GO TO 1190 C C INITIALIZE HC AT PRESENT UNTEGRATION POINT C DO 1080 I = 1,3 1080 HCXYZ(I) = 0. IF (JTYPE .EQ. 20) GO TO 1160 C C FOR LOOPS AND DIPOLES, COMPITE BASIC COORDS. FOR THIS INTEGRATION C PT C XX = 0. YY = 0. ZZ = 0. DO 1090 M = 1,NGRIDS XX = XX + DN(M)*R(1,M) YY = YY + DN(M)*R(2,M) 1090 ZZ = ZZ + DN(M)*R(3,M) C DO 1150 IJK = 1,IDO ISUB = ISTART + (IJK-1)*IWORDS - 1 DO 1100 M = 1,IWORDS 1100 BUF(M) = Z(ISUB+M) GO TO (1110,1120,1130), KTYPE 1110 CALL AXLOOP (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 1140 1120 CALL GELOOP (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 1140 1130 CALL DIPOLE (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3) 1140 HCXYZ(1) = HCXYZ(1) + HC1 HCXYZ(2) = HCXYZ(2) + HC2 HCXYZ(3) = HCXYZ(3) + HC3 1150 CONTINUE GO TO 1180 C C SPCFLD C 1160 DO 1170 M = 1,NGRIDS HCXYZ(1) = HCXYZ(1) + DN(M)*HCI(3*M-2) HCXYZ(2) = HCXYZ(2) + DN(M)*HCI(3*M-1) 1170 HCXYZ(3) = HCXYZ(3) + DN(M)*HCI(3*M) C C MULTIPLY MATERIAL INTO HC AT THIS INTEGRATION POINT C 1180 CALL GMMATS (G,3,3,0,HCXYZ,3,1,0,GH) 1190 SFACT = H(III)*H(JJJ)*DETERM C C TRANSFORM DNL FROM LOCAL TO BASIC C 1 ST EXPAND TO ADD IN ZEROS CORRESPONDING TO Z DIRECTION C DO 1200 I = 1,16 1200 DDNL(I) = DNL(I) DO 1210 I = 17,24 1210 DDNL(I) = 0. C CALL GMMATS (ET,3,3,1,DDNL,3,8,0,DDNLB) C DO 1220 M = 1,NGRIDS F(M) = F(M) + (DDNLB(M)*GH(1) + DDNLB(M+8)*GH(2) + 1 DDNLB(M+16)*GH(3))*SFACT 1220 CONTINUE C C GET ANOTHER INTEGRATION POINT C 1300 CONTINUE C C ADD LOAD INTO LOAD ARRAY C DO 1330 M = 1,NGRIDS ISIL = NECPT(M+1) C C IF PERMBDY EXISTS AND IF GRID IS NOT ON IT, IGNORE ITS LOAD C IF (NBDYS .EQ. 0) GO TO 1320 DO 1310 I = 1,NBDYS IF (ISIL .NE. IZ(ISTART-NBDYS-NELOUT+I-1)) GO TO 1310 GO TO 1320 1310 CONTINUE GO TO 1330 1320 Z(ISIL) = Z(ISIL)-F(M)*ECPT(IA) 1330 CONTINUE C C BEFORE LEAVING COMPUTE HC AT GRIDS AND CENTROID AND WRITE TO SCR6 C 1340 IF (JTYPE .EQ. 24) RETURN CALL WRITE (SCR6,ISC,2,0) C C SET UP SHAPE FUNCTIONS AT CENTROID C DO 1350 I = 1,4 1350 DN(I) = -.25 DO 1360 I = 5,8 1360 DN(I) = .5 C IF (JTYPE .NE. 20) GO TO 1400 C C FOR SPCFLD HC VALUES AT GRIDS ARE IN CORE C CALL WRITE (SCR6,HCI,24,0) C DO 1370 I = 1,3 1370 HCXYZ(I) = 0. DO 1380 M = 1,NGRIDS HCXYZ(1) = HCXYZ(1) + DN(M)*HCI(3*M-2) HCXYZ(2) = HCXYZ(2) + DN(M)*HCI(3*M-1) HCXYZ(3) = HCXYZ(3) + DN(M)*HCI(3*M ) 1380 CONTINUE C CALL WRITE (SCR6,HCXYZ,3,0) RETURN C C NOT SPCFLD C 1400 DO 1500 J = 1,9 IF (J .NE. 9) GO TO 1420 C C CENTROID C XX = 0. YY = 0. ZZ = 0. DO 1410 M = 1,8 XX = XX + DN(M)*R(1,M) YY = YY + DN(M)*R(2,M) 1410 ZZ = ZZ + DN(M)*R(3,M) GO TO 1430 1420 XX = R(1,J) YY = R(2,J) ZZ = R(3,J) 1430 HC(1) = 0. HC(2) = 0. HC(3) = 0. DO 1490 IJK = 1,IDO ISUB = ISTART + (IJK-1)*IWORDS - 1 DO 1440 I = 1,IWORDS 1440 BUF(I) = Z(ISUB+I) GO TO (1450,1460,1470), KTYPE 1450 CALL AXLOOP (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 1480 1460 CALL GELOOP (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 1480 1470 CALL DIPOLE (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3) 1480 HC(1) = HC(1) + HC1 HC(2) = HC(2) + HC2 HC(3) = HC(3) + HC3 1490 CONTINUE C CALL WRITE (SCR6,HC,3,0) 1500 CONTINUE C RETURN C 1600 WRITE (OTPE,1610) UFM,NAM,ITYPE 1610 FORMAT (A23,', IN SUBROUTINE',2A4,' ELEMENT TYPE',I8,' IS NOT ', 1 'LEGAL') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/em3d.f ================================================ SUBROUTINE EM3D (ELTYPE,ISTART,ITYPE,NCOUNT,IDO,IWORDS,NBDYS,ALL, 1 NELOUT) C C E AND M LOADS FOR 3-D ELEMENTS C TETRA 39 WEDGE 40 HEXA1 41 HEXA2 42 C IHEX1 65 IHEX2 66 IHEX3 67 C LOGICAL ONLYC INTEGER SCR6,ALL,TYPOLD,ELID, 1 ELTYPE,OUTPT,SYSBUF,POINTR(7,7),FRSTGD,TMAP(88) REAL LL(4,5),W(5) DIMENSION ISC(5),SC(5),XLACC(3),BUF(50),IBUF(50),HCX3(60), 1 HCX(4),HCY(4),HCZ(4), 2 G(9),NECPT(1),DR(24),IZ(1),IP(4),R(3,8),XLOAD(8), 3 GPT(32),BXYZ(3,32),S(4),H(4),GAUSS(8),F(32), 4 SHP(32),DSHP(3,32),XJACOB(3,3),DSHPB(3,32),HC(96), 5 HCXYZ(3),GH(3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ KSYSTM(2) COMMON /ZZZZZZ/ Z(1) COMMON /EMECPT/ ECPT(200) COMMON /MATIN / MATID,INFLAG,ELTEMP COMMON /HMTOUT/ XMAT(6) EQUIVALENCE (KSYSTM(1),SYSBUF), (KSYSTM(2),OUTPT), 1 (ECPT(1),NECPT(1)), (Z(1),IZ(1)), (I1,IP(1)), 2 (I2,IP(2)),(I3,IP(3)), (I4,IP(4)) EQUIVALENCE (BUF(1),IBUF(1)) , (ISC(1),SC(1)) C C GRID POINT NO FOR EACH ELEMENT C DATA TMAP / 1, 2, 3, 4, 1, 2, 3, 5, 1, 2, 3, 6, 1 1, 4, 5, 6, 2, 4, 5, 6, 3, 4, 5, 6, 2 1, 2, 4, 6, 2, 3, 4, 6, 1, 3, 4, 5, 3 2, 3, 4, 5, 1, 3, 5, 6, 1, 2, 5, 6, 4 1, 2, 3, 6, 1, 3, 4, 8, 1, 3, 8, 6, 5 1, 5, 6, 8, 3, 6, 7, 8, 2, 3, 4, 7, 6 1, 2, 4, 5, 2, 4, 5, 7, 2, 5, 6, 7, 7 4, 5, 7, 8/ C DATA NAM / 4HEM3D,4H / DATA TYPOLD/ 0 / DATA SCR6 / 306 / C C SET UP GAUSSIAN INTEGRATION POINTS C DATA GAUSS / 0.57735027, 0.55555556, 1 0.77459667, 0.88888889, 2 0.34785484, 0.86113631, 3 0.65214515, 0.33998104/ C C SET UP POINTR ARRAY ONTO EST C C TYPE MID FRSTGD ISYS1 NIP ITEMP NELS DATA POINTR/ 39, 2, 3 , 7, 0, 23, 1, 1 40, 2, 3, 9, 0, 33, 12, 2 41, 2, 3, 11, 0, 43, 5, 3 42, 2, 3, 11, 0, 43, 10, 4 65, 10, 2, 16, 12, 48, 1, 5 66, 22, 2, 28, 24, 108, 1, 6 67, 34, 2, 40, 36, 168, 1 / C C ONLYC =.FALSE. NOPTS = 6 IF (ELTYPE .EQ. TYPOLD) GO TO 30 TYPOLD = ELTYPE DO 10 L = 1,7 ILIS = L IF (ELTYPE-POINTR(1,L)) 1200,20,10 10 CONTINUE GO TO 1200 C C SET UPPOINTERS INTO EST(ECPT) DATA C 20 MID = POINTR(2,ILIS) C C MATERIAL ID C FRSTGD = POINTR(3,ILIS) C C FIRST SIL C ISYS1 = POINTR(4,ILIS) C C FIRST CSIL C NIP = POINTR(5,ILIS) C C NO OF INTEGRATION POINTS (ISOPARAMETRICS ONLY) C ITEMP = POINTR(6,ILIS) C C TEMPERATURE DATA C NELS = POINTR(7,ILIS) C C NO. OF ELEMENTS C C GO TO SECTION 190 FOR ISOPARAMETRICS C C CHECK FOR ZERO LOAD C 30 NGRID = ISYS1 - FRSTGD IF (ELTYPE .GE. 65) NGRID = NGRID - 6 C 65 TO 67 ?? ISC(1) = NECPT(1) ISC(2) = 1 IF (ELTYPE .EQ. 65) ISC(2) = 9 IF (ELTYPE.EQ.66 .OR. ELTYPE.EQ.67) ISC(2) = 21 C C CHECK TO SEE IF THIS ELEMENT CONTAINS A GRID POINT ON A PERMBDY C CARD. IF SO, OR IF NO PERMBDY CARD EXISTS, COMPUTE LOADS FOR THE C ELEMENT. IF NOT, COMPUTE HC CENTROIDAL VALUE ONLY. (ONLYC=.TRUE.) C THE PERMBDY SILS START AT Z(ISTART-NBDYS-1) C IF (NBDYS .EQ. 0) GO TO 50 C DO 40 I = 1,NGRID NG = NECPT(FRSTGD+I-1) DO 40 J = 1,NBDYS IF (NG .EQ. IZ(ISTART-NBDYS-NELOUT+J-1)) GO TO 50 40 CONTINUE C C ELEMENT HAS NO GRIDS ON PERMBDY C ONLYC =.TRUE. NOPTS = 1 50 IF (ONLYC .AND. ITYPE.EQ.24) RETURN C C IF ONLYC=TRUE, CHECK TO SEE IF THE ELEMENT HAD AN ELFORCE REQUEST. C IF SO, CONTINUE. IF NOT, JUST WRITE ZEROS TO HCCEN,SCR6) AND C RETURN. C IF (.NOT.ONLYC) GO TO 70 IF (ALL .EQ. 1) GO TO 70 IF (NELOUT .EQ. 0) GO TO 100 C DO 60 I = 1,NELOUT IF (NECPT(1) .EQ. IZ(ISTART-NELOUT+I-1)) GO TO 70 60 CONTINUE GO TO 100 70 IF (ITYPE.NE.20 .AND. ITYPE.NE.24) GO TO 130 G1 = 0. G2 = 0. G3 = 0. H1 = 0. H2 = 0. H3 = 0. DO 80 I = 1,NGRID ISUB = ISTART + 3*NECPT(FRSTGD+I-1) - 3 IF (ITYPE .EQ. 24) ISUB = ISTART + 3*NCOUNT - 3 H1 = H1 + ABS(Z(ISUB )) H2 = H2 + ABS(Z(ISUB+1)) H3 = H3 + ABS(Z(ISUB+2)) G1 = G1 + Z(ISUB ) G2 = G2 + Z(ISUB+1) G3 = G3 + Z(ISUB+2) IF (ITYPE .EQ. 24) GO TO 90 80 CONTINUE 90 HL = H1 + H2 + H3 IF (HL .NE. 0.) GO TO 120 IF (ITYPE .EQ. 24) RETURN C 100 SC(3) = 0. SC(4) = 0. SC(5) = 0. CALL WRITE (SCR6,SC,2,0) ISC2 = ISC(2) DO 110 I = 1,ISC2 CALL WRITE (SCR6,SC(3),3,0) 110 CONTINUE RETURN C 120 IF (ITYPE .EQ. 24) GO TO 130 C C AVERGAGE SPCFLD C AHCX = G1/FLOAT(NGRID) AHCY = G2/FLOAT(NGRID) AHCZ = G3/FLOAT(NGRID) C 130 IF (ELTYPE .GE. 65) GO TO 500 IF (ONLYC) GO TO 140 C C GET MATERIAL INFO C INFLAG = 3 RETURNS A 3X3 MATRIX C LL(1,1) = .25 LL(2,1) = .25 LL(3,1) = .25 LL(4,1) = .25 LL(1,2) = .5 LL(2,2) = 1./6. LL(3,2) = LL(2,2) LL(4,2) = LL(2,2) LL(1,3) = 1./6. LL(2,3) = .5 LL(3,3) = LL(1,3) LL(4,3) = LL(1,3) LL(1,4) = 1./6. LL(2,4) = LL(1,4) LL(3,4) = .5 LL(4,4) = LL(1,4) LL(1,5) = 1./6. LL(2,5) = LL(1,5) LL(3,5) = LL(1,5) LL(4,5) = .5 W(1) =-.8 W(2) = 9./20. W(3) = W(2) W(4) = W(2) W(5) = W(2) INFLAG = 3 MATID = NECPT(MID) ELTEMP = ECPT(ITEMP) CALL HMAT (NECPT(1)) C C G STORED BY ROW C G(1) = XMAT(1) G(2) = XMAT(2) G(3) = XMAT(3) G(4) = XMAT(2) G(5) = XMAT(4) G(6) = XMAT(5) G(7) = XMAT(3) G(8) = XMAT(5) G(9) = XMAT(6) C C PUT COORDINATES OF GRID POINTS INTO ARRAY C FOR HEXA2 DIVIDE VOLUME BY 2. C XM = 1. IF (ELTYPE .EQ. 42) XM = 2. C C TETRA 4 GRID PTS 1 ELEMENT C WEDGE 6 GRID PTS 18 ELEMENTS(6 ARE DUPLICATES-4 POINTS AT A C HEXA1 8 GRID PTS 5 ELEMENT (4 PTS AT A TIME) C HEXA2 8 GRID PTS 10ELEMENT (4 PTS AT A TIME) C SET UP PROPER POINTERS VIA TMAP C R ARRAY CONTAINS COORDINATE INFO C 140 DO 150 I = 1,NGRID ITT = ISYS1 + 4*I - 4 R(1,I) = ECPT(ITT+1) R(2,I) = ECPT(ITT+2) R(3,I) = ECPT(ITT+3) 150 CONTINUE C C SET UP POINTER TO GRID PT NO C IROW = 0 IF (ELTYPE.EQ.41 .OR. ELTYPE.EQ.42) IROW = 12 DO 160 I = 1,8 160 XLOAD(I) = 0.0 C C SET UP POINTS FOR AVERAGE COORDINATES C XXC = 0. YYC = 0. ZZC = 0. DO 170 I = 1,NGRID XXC = XXC + R(1,I) YYC = YYC + R(2,I) ZZC = ZZC + R(3,I) 170 CONTINUE XXC = XXC/FLOAT(NGRID) YYC = YYC/FLOAT(NGRID) ZZC = ZZC/FLOAT(NGRID) C C PRINCIPAL LOOP OVER ELEMENT OF THE GIVEN TYPE C DO 400 IEL = 1,NELS IF (ONLYC) GO TO 200 C C RESET XM FOR WEDGES. 1ST 12 CONFIGURATIONS ARE MULTIPLIED BY 2. C ALL 18 ARE DIVIDED BY 6.(SINCE XM IS A DIVISOR, USE RECIPROCALS) C IF (ELTYPE.EQ.40 .AND. IEL.LE.6) XM = 6./2. IF (ELTYPE.EQ.40 .AND. IEL.GT.6) XM = 6. ISUB = (IROW+IEL-1)*4 DO 180 I = 1,4 F(I) = 0. IP(I) = I IF (ELTYPE .GE. 40) IP(I) = TMAP(ISUB+I) 180 CONTINUE C C NEED DET TO COMPUTE VOL C TERM1 = R(3,I4)*((R(1,I2)-R(1,I1))*R(2,I3) + 1 (R(1,I1)-R(1,I3))*R(2,I2) + (R(1,I3)-R(1,I2))*R(2,I1)) TERM2 = R(3,I3)*((R(1,I1)-R(1,I2))*R(2,I4) + 1 (R(1,I4)-R(1,I1))*R(2,I2) + (R(1,I2)-R(1,I4))*R(2,I1)) TERM3 = R(3,I2)*((R(1,I3)-R(1,I1))*R(2,I4) + (R(1,I1)-R(1,I4))* 1 R(2,I3) + (R(1,I4)-R(1,I3))*R(2,I1)) TERM4 = R(3,I1)*((R(1,I2)-R(1,I3))*R(2,I4) + (R(1,I4)-R(1,I2))* 1 R(2,I3) + (R(1,I3)-R(1,I4))*R(2,I2)) DET = TERM1 + TERM2 + TERM3 + TERM4 VOL = ABS(DET)/6. C C GRADIENTS OF SHAPE FUNCTIONS C DR( 1) = R(3,I3)*R(2,I4) - R(3,I4)*R(2,I3) + R(2,I2)*(R(3,I4)- 1 R(3,I3)) - R(3,I2)*(R(2,I4)-R(2,I3)) DR( 2) = R(1,I3)*R(3,I4) - R(1,I4)*R(3,I3) - R(1,I2)*(R(3,I4)- 1 R(3,I3)) + R(3,I2)*(R(1,I4)-R(1,I3)) DR( 3) = R(2,I3)*R(1,I4) - R(1,I3)*R(2,I4) + R(1,I2)*(R(2,I4)- 1 R(2,I3)) - R(2,I2)*(R(1,I4)-R(1,I3)) DR( 4) = R(2,I3)*R(3,I4) - R(2,I4)*R(3,I3) - R(2,I1)*(R(3,I4)- 1 R(3,I3)) + R(3,I1)*(R(2,I4)-R(2,I3)) DR( 5) = R(1,I4)*R(3,I3) - R(1,I3)*R(3,I4) + R(1,I1)*(R(3,I4)- 1 R(3,I3)) - R(3,I1)*(R(1,I4)-R(1,I3)) DR( 6) = R(1,I3)*R(2,I4) - R(2,I3)*R(1,I4) - R(1,I1)*(R(2,I4)- 1 R(2,I3)) + R(2,I1)*(R(1,I4)-R(1,I3)) DR( 7) = R(3,I2)*R(2,I4) - R(2,I2)*R(3,I4) + R(2,I1)*(R(3,I4)- 1 R(3,I2)) - R(3,I1)*(R(2,I4)-R(2,I2)) DR( 8) = R(1,I2)*R(3,I4) - R(1,I4)*R(3,I2) - R(1,I1)*(R(3,I4)- 1 R(3,I2)) + R(3,I1)*(R(1,I4)-R(1,I2)) DR( 9) = R(2,I2)*R(1,I4) - R(1,I2)*R(2,I4) + R(1,I1)*(R(2,I4)- 1 R(2,I2)) - R(2,I1)*(R(1,I4)-R(1,I2)) DR(10) = R(2,I2)*R(3,I3) - R(3,I2)*R(2,I3) - R(2,I1)*(R(3,I3)- 1 R(3,I2)) + R(3,I1)*(R(2,I3)-R(2,I2)) DR(11) = R(3,I2)*R(1,I3) - R(1,I2)*R(3,I3) + R(1,I1)*(R(3,I3)- 1 R(3,I2)) - R(3,I1)*(R(1,I3)-R(1,I2)) DR(12) = R(1,I2)*R(2,I3) - R(2,I2)*R(1,I3) - R(1,I1)*(R(2,I3)- 1 R(2,I2)) + R(2,I1)*(R(1,I3)-R(1,I2)) C DO 190 K = 1,12 190 DR(K) = DR(K)/DET C C MULTIPLY SHAPE FUNCTION BY G C IF (ITYPE .NE. 24) CALL GMMATS (DR(1),4,3,0,G,3,3,0,DR(13)) C C COMPUTE HC C IF (ITYPE .NE. 24) GO TO 200 C C REMFLUX C NSUBX = ISTART + 3*NCOUNT - 3 HC(1) = Z(NSUBX) HC(2) = Z(NSUBX+1) HC(3) = Z(NSUBX+2) GO TO 360 C C INTEGRATE TO GET HC C 200 KTYPE = ITYPE - 19 XLACC(1) = 0. XLACC(2) = 0. XLACC(3) = 0. C C START INTEGRATION PROCEDURE-NEED 5 POINTS FOR CUBIC + CENTROID C DO 340 NPTS = 1,NOPTS C C DO CENTROID FOR ONLY 1ST TETRA C IF (NPTS.EQ.NOPTS .AND. IEL.GT.1) GO TO 340 C C COMPUTE BASIC COORDS OF INTEGRATION POINT C IF (NPTS .NE. NOPTS) GO TO 210 C C CENTROID C XX = XXC YY = YYC ZZ = ZZC IF (ITYPE .NE. 20) GO TO 220 C C AVERAGE SPCFLD C HC(1) = AHCX HC(2) = AHCY HC(3) = AHCZ GO TO 310 210 XX = LL(1,NPTS)*R(1,I1) + LL(2,NPTS)*R(1,I2) + LL(3,NPTS)*R(1,I3) 1 + LL(4,NPTS)*R(1,I4) YY = LL(1,NPTS)*R(2,I1) + LL(2,NPTS)*R(2,I2) + LL(3,NPTS)*R(2,I3) 1 + LL(4,NPTS)*R(2,I4) ZZ = LL(1,NPTS)*R(3,I1) + LL(2,NPTS)*R(3,I2) + LL(3,NPTS)*R(3,I3) 1 + LL(4,NPTS)*R(3,I4) 220 HC(1) = 0. HC(2) = 0. HC(3) = 0. C C COMPUTE HC AT THIS PPOINT FOR ALL LOADS OF THIS TYPE IN THIS C SUBCASE C DO 300 IJK = 1,IDO IF (ITYPE .EQ. 20) GO TO 240 ISUB = ISTART + (IJK-1)*IWORDS - 1 DO 230 I = 1,IWORDS 230 BUF(I) = Z(ISUB+I) C GO TO (240,260,270,280), KTYPE C C SPCFLD C 240 DO 250 I = 1,4 ISIL = FRSTGD - 1 + IP(I) IST = ISTART + 3*NECPT(ISIL) - 3 HCX(I) = Z(IST ) HCY(I) = Z(IST+1) HCZ(I) = Z(IST+2) 250 CONTINUE HC1 = LL(1,NPTS)*HCX(1) + LL(2,NPTS)*HCX(2) + LL(3,NPTS)*HCX(3) + 1 LL(4,NPTS)*HCX(4) HC2 = LL(1,NPTS)*HCY(1) + LL(2,NPTS)*HCY(2) + LL(3,NPTS)*HCY(3) + 1 LL(4,NPTS)*HCY(4) HC3 = LL(1,NPTS)*HCZ(1) + LL(2,NPTS)*HCZ(2) + LL(3,NPTS)*HCZ(3) + 1 LL(4,NPTS)*HCZ(4) GO TO 290 C C CEMLOOP,GEMLOOP,MDIPOLE C 260 CALL AXLOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 290 270 CALL GELOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 290 280 CALL DIPOLE (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) 290 HC(1) = HC(1) + HC1 HC(2) = HC(2) + HC2 HC(3) = HC(3) + HC3 300 CONTINUE 310 IF (NPTS .NE. NOPTS) GO TO 320 SC(3) = HC(1) SC(4) = HC(2) SC(5) = HC(3) CALL WRITE (SCR6,SC,5,0) GO TO 340 C C WE HAVE HC AT THIS POINT. MULT. BY WEIGHT AND ACCUMULATE C 320 DO 330 I = 1,3 330 XLACC(I) = XLACC(I) + HC(I)*W(NPTS) C C GET ANOTHER INTEGRATTION POINT C 340 CONTINUE C IF (ONLYC) RETURN DO 350 I = 1,3 350 HC(I) = XLACC(I) 360 CONTINUE C C MULTIPLY HC BY GRADIENTS AND MATERIALS C ISUBX = 13 IF (ITYPE .EQ. 24) ISUBX = 1 CALL GMMATS (DR(ISUBX),4,3,0,HC,3,1,0,F(1)) C DO 370 K = 1,4 KK = IP(K) 370 XLOAD(KK) = XLOAD(KK) + F(K)*VOL/XM C C XLOAD IS SUM OF ALL LOADS FOR ALL THE ELEMENTS C F COMPUTED FOR A GIVEN TETRA OF THE TOTAL SHAPE C SO MULTIPLY BY VOL C 400 CONTINUE C DO 430 I = 1,NGRID IS = FRSTGD - 1 + I ISIL = NECPT(IS) C C IF PERMBDY EXISTS AND IF GRID IS NOT ON IT, IGNORE ITS LOAD C IF (NBDYS .EQ. 0) GO TO 420 DO 410 J = 1,NBDYS IF (ISIL .NE. IZ(ISTART-NBDYS-NELOUT+J-1)) GO TO 410 GO TO 420 410 CONTINUE GO TO 430 420 Z(ISIL) = Z(ISIL) - XLOAD(I) 430 CONTINUE RETURN C C ISOPARAMETRIC SOLIDS C 500 JTYPE = ITYPE ITYPE = ELTYPE - 64 INIP = NECPT(NIP) IF (INIP .EQ. 0) INIP = ITYPE/2 + 2 NP = 12*ITYPE - 4 ELID = NECPT(1) C C SET UP FOR FETCHING SHAPE FUNCTIONS C DO 510 I = 1,NP GPT(I) = ECPT(ITEMP-1+I) DO 510 J = 1,3 BXYZ(J,I) = ECPT(NP+4+4*I+J) 510 CONTINUE IF (ONLYC) GO TO 570 I = INIP - 1 GO TO (520,530,540), I 520 H(1) = 1. S(1) = GAUSS(1) H(2 ) = H(1) S(2) = -S(1) GO TO 550 530 H(1) = GAUSS(2) S(1) = GAUSS(3) H(2 ) = GAUSS(4) S(2) = 0. H(3 ) = H(1) S(3 ) = -S(1) GO TO 550 540 H(1 ) = GAUSS(5) S(1) = GAUSS(6) H(2) = GAUSS(7) S(2) = GAUSS(8) H(3) = H(2) S(3) = -S(2) H(4) = H(1) S(4) = -S(1) 550 DO 560 I = 1,32 560 F(I) = 0.0 C C SET UP HC ARRAY GIVING HC AT EACH GRID C IF (JTYPE .NE. 24) GO TO 570 C C REMFLUX C ISUB = ISTART + 3*NCOUNT - 3 GH(1) = Z(ISUB) GH(2) = Z(ISUB+1) GH(3) = Z(ISUB+2) GO TO 610 C C IF SPCFLD,PICK UP GRID VALUES HERE. IF NOT, PICK UP INTEGRATION C POINT VALUES LATER.(THERE IS ONLY ONE SPCFLD CARD AT THIS POINT) C 570 IF (JTYPE .NE. 20) GO TO 590 DO 580 I = 1,NP ISIL = 3*NECPT(I+1) HC(3*I-2) = Z(ISTART+ISIL-3) HC(3*I-1) = Z(ISTART+ISIL-2) HC(3*I ) = Z(ISTART+ISIL-1) 580 CONTINUE 590 INFLAG = 3 MATID = NECPT(MID) 610 KTYPE = JTYPE - 20 IF (ONLYC) GO TO 850 C C START INTEGRATION C DO 800 I = 1,INIP DO 800 J = 1,INIP DO 800 K = 1,INIP C C FETCH SHAPE FUNCTIONS FOR THIS INTEGRATION POINT C CALL IHEXSS(ITYPE,SHP,DSHP,XJACOB,DETJ,ELID,S(I),S(J),S(K),BXYZ) C C COMPUTE NI W.R.T. X,Y,Z(REVERVSE CALLING SEQUENCE,SINCE COL STOR) C CALL GMMATS(DSHP,NP,3,0,XJACOB,3,3,0,DSHPB) C C COMPUTE TEMPERATURES AND HC AT THIS INTEGRSTION POINT C ELTEMP = 0 DO 620 L = 1,NP ELTEMP = ELTEMP + SHP(L)*GPT(L) 620 CONTINUE IF (JTYPE .EQ. 24) GO TO 730 HCXYZ(1) = 0. HCXYZ(2) = 0. HCXYZ(3) = 0. IF (JTYPE .EQ. 20) GO TO 700 C C FOR LOOPS AND DIPOLES, COMPUTE BASIC COORDS FOR THIS INTEGRATION C POINT C XX = 0. YY = 0. ZZ = 0. DO 630 L = 1,NP XX = XX + SHP(L)*BXYZ(1,L) YY = YY + SHP(L)*BXYZ(2,L) ZZ = ZZ + SHP(L)*BXYZ(3,L) 630 CONTINUE DO 690 IJK = 1,IDO ISUB = ISTART + (IJK-1)*IWORDS - 1 DO 640 L = 1,IWORDS 640 BUF(L) = Z(ISUB+L) C C COMPUTE HC AT THIS POINT DUE TO ALL LOADS OF PRESENT TYPE C GO TO (650,660,670), KTYPE 650 CALL AXLOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 680 660 CALL GELOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 680 670 CALL DIPOLE (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) 680 HCXYZ(1) = HCXYZ(1) + HC1 HCXYZ(2) = HCXYZ(2) + HC2 HCXYZ(3) = HCXYZ(3) + HC3 690 CONTINUE GO TO 720 C C SPCFLD C 700 DO 710 L = 1,NP HCXYZ(1) = HCXYZ(1) + SHP(L)*HC(3*L-2) HCXYZ(2) = HCXYZ(2) + SHP(L)*HC(3*L-1) HCXYZ(3) = HCXYZ(3) + SHP(L)*HC(3*L ) 710 CONTINUE C CALL HMAT(ELID) C 720 G(1) = XMAT(1) G(2) = XMAT(2) G(3) = XMAT(3) G(4) = XMAT(2) G(5) = XMAT(4) G(6) = XMAT(5) G(7) = XMAT(3) G(8) = XMAT(5) G(9) = XMAT(6) C CALL GMMATS (G,3,3,0,HCXYZ,3,1,0,GH) C 730 SFACT = H(I)*H(J)*H(K)*DETJ DO 740 L = 1,NP F(L) = F(L) + (DSHPB(1,L)*GH(1) + DSHPB(2,L)*GH(2) + 1 DSHPB(3,L)*GH(3))*SFACT 740 CONTINUE C C GET ANOTHER INTEGRATIONPOINT C 800 CONTINUE C C ADD LOADS INTO LOAD ARRAY C DO 840 L = 1,NP ISIL = NECPT(FRSTGD+L-1) C C IF PERMBDY EXISTS AND IF GRID IS NOT ON IT, IGNORE ITS LOAD C IF (NBDYS .EQ. 0) GO TO 830 DO 820 I = 1,NBDYS IF (ISIL .NE. IZ(ISTART-NBDYS-NELOUT+I-1)) GO TO 820 GO TO 830 820 CONTINUE GO TO 840 830 Z(ISIL) = Z(ISIL) - F(L) 840 CONTINUE 850 ITYPE = JTYPE C C BEFORE LEAVING, WE MUST COMPUTE HC VALUES AT GRIDS OF ISOPARA- C METRICS AND WRITE TO SCR6 C IF (JTYPE .EQ. 24) GO TO 1150 CALL WRITE (SCR6,ISC,2,0) IF (JTYPE .NE. 20) GO TO 1010 C C FOR SPCFLD THE VALUES ARE IN CORE(EXCEPT FOR MIFPOINTS OF IHEX3) C IF (ELTYPE .EQ. 67) GO TO 880 CALL WRITE (SCR6,HC,3*NP,0) C C CENTROID/ XI = ETA = ZETA = 0 C 860 CALL IHEXSS (ELTYPE-64,SHP,DSHP,XJACOB,DETJ,ELID,0.,0.,0.,BXYZ) HCX3(1) = 0. HCX3(2) = 0. HCX3(3) = 0. DO 870 L = 1,NP HCX3(1) = HCX3(1) + SHP(L)*HC(3*L-2) HCX3(2) = HCX3(2) + SHP(L)*HC(3*L-1) HCX3(3) = HCX3(3) + SHP(L)*HC(3*L ) 870 CONTINUE CALL WRITE (SCR6,HCX3,3,0) GO TO 1150 880 ISUB1 = 1 ISUB2 = 10 J = -5 890 DO 900 I = ISUB1,ISUB2,3 J = J + 6 K = 3*I - 2 HCX3(J ) = HC(K ) HCX3(J+1) = HC(K+1) HCX3(J+2) = HC(K+2) HCX3(J+3) = .5*(HC(K+3) + HC(K+6)) HCX3(J+4) = .5*(HC(K+4) + HC(K+7)) HCX3(J+5) = .5*(HC(K+5) + HC(K+8)) 900 CONTINUE IF (ISUB1 .EQ. 21) GO TO 1000 J = 22 DO 910 I = 13,16 J = J + 3 K = 3*I - 2 HCX3(J ) = .5*(HC(K ) + HC(K+12)) HCX3(J+1) = .5*(HC(K+1) + HC(K+13)) HCX3(J+2) = .5*(HC(K+2) + HC(K+14)) 910 CONTINUE ISUB1 = 21 ISUB2 = 30 J = 31 GO TO 890 C C DONE - WRITE RESULTS C 1000 CALL WRITE (SCR6,HCX3,60,0) GO TO 860 C C CEMLOOP, GEMLOOP, MDIPOLE C 1010 NX = NP + 1 IF (ELTYPE .EQ. 67) NX = 21 DO 1140 J = 1,NX IF (J .NE. NX) GO TO 1030 C C CENTROID C CALL IHEXSS (ELTYPE-64,SHP,DSHP,XJACOB,DETJ,ELID,0.,0.,0.,BXYZ) XX = 0. YY = 0. ZZ = 0. DO 1020 L = 1,NP XX = XX + SHP(L)*BXYZ(1,L) YY = YY + SHP(L)*BXYZ(2,L) ZZ = ZZ + SHP(L)*BXYZ(3,L) 1020 CONTINUE GO TO 1070 C 1030 IF (ELTYPE .NE. 67) GO TO 1060 C C IHEX3 C IF (J.EQ. 1) K1 =-1 IF (J.EQ.13) K1 = 7 IF (J.EQ. 1) K2 =-1 IF (J.EQ.13) K2 = 7 IF (J.LT.9 .OR. J.GT.12) GO TO 1040 XX = .5*(BXYZ(1,J+4) + BXYZ(1,J+8)) YY = .5*(BXYZ(2,J+4) + BXYZ(2,J+8)) ZZ = .5*(BXYZ(3,J+4) + BXYZ(3,J+8)) GO TO 1070 1040 IF ((J/2)*2 .NE. J)GO TO 1050 K1 = K1 + 1 XX = .5*(BXYZ(1,J+K1) + BXYZ(1,J+K1+1)) YY = .5*(BXYZ(2,J+K1) + BXYZ(2,J+K1+1)) ZZ = .5*(BXYZ(3,J+K1) + BXYZ(3,J+K1+1)) GO TO 1070 1050 K2 = K2 + 1 XX = BXYZ(1,J+K2) YY = BXYZ(2,J+K2) ZZ = BXYZ(3,J+K2) GO TO 1070 C 1060 XX = BXYZ(1,J) YY = BXYZ(2,J) ZZ = BXYZ(3,J) 1070 HC(1) = 0. HC(2) = 0. HC(3) = 0. DO 1130 IJK = 1,IDO ISUB = ISTART + (IJK-1)*IWORDS - 1 DO 1080 I = 1,IWORDS 1080 BUF(I) = Z(ISUB+I) C C COMPUTE HC AT THIS POINT C GO TO (1090,1100,1110), KTYPE 1090 CALL AXLOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 1120 1100 CALL GELOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 1120 1110 CALL DIPOLE (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3) 1120 HC(1) = HC(1) + HC1 HC(2) = HC(2) + HC2 HC(3) = HC(3) + HC3 1130 CONTINUE C CALL WRITE (SCR6,HC,3,0) 1140 CONTINUE C 1150 RETURN C 1200 WRITE (OUTPT,1210) UFM 1210 FORMAT (A23,' - WRONG ELEMENT TYPE IN EM3D PROBLEM.') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/ema.f ================================================ SUBROUTINE EMA C C DMAP SEQUENCE C C EMA GPECT,XEMD,XBLOCK/XGG/C,N,NOK4/C,N,WTMASS $ C C WHERE NOK4 .NE. -1 TO BUILD K4GG (USE DAMPING FACTOR), C .EQ. -1 TO IGNORE DAMPING FACTOR C C EMA USES TWO SCRATCH FILES C EXTERNAL LSHIFT,RSHIFT,ANDF ,ORF LOGICAL FIRST ,LAST ,PIEZ INTEGER BUF1 ,BUF2 ,SCRIN ,SCROUT,SCR1 ,SCR2 ,GPECT , 1 BUF ,SYSBUF,RDREW ,WRTREW,RD ,WRT ,CLS , 2 CLSREW,Z ,BUF3 ,XEMD ,OUTPUT,GPEWDS,GPECTX, 3 HIGH ,XBLOCK,SCALAS,XGG ,ANDF ,PREC ,HDR , 4 PPOINT,UNION ,ORF ,OP ,RSHIFT,COL ,OLDCOD, 5 COL1 ,COLN ,Q ,OPENR ,OPENW DOUBLE PRECISION ZD ,XD ,D CWKBI 1/95 DOUBLE PRECISION XDD DIMENSION BUF(100) ,SCALAS(32) ,HDR(6),MSG(4),MCB(7), 1 MA1H(2) ,ZD(1) ,XD(1) ,XS(2) ,IS(2) ,Y(1) , 2 D(18) ,IHQ(180) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /MACHIN/ MACH ,IHALF ,JHALF COMMON /LHPWX / LHPW(5) ,KSHIFT COMMON /BLANK / NOK4 ,WTMASS COMMON /SYSTEM/ KSYSTM(100) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW,CLS COMMON /ZBLPKX/ Q(4) ,IQ COMMON /ZZZZZZ/ Z(1) COMMON /MA1XX / BUF ,BUF1 ,BUF2 ,BUF3 ,COL ,COLN ,COL1 , 1 GPEWDS,HIGH ,I ,ICOL ,ICOLX ,IDICT ,IELEM , 2 IGPX ,ILIST ,IMAT ,IMATN ,IPVT ,IROW ,IROWP , 3 IROWX ,JJ ,K ,KELEM ,KK ,II ,K4FLAG, 4 L ,J ,LCORE ,LDICT ,LOW ,L1 ,L2 , 5 M ,MAXII ,MAXIPV,MAXN ,MAXNPR,JNEXT ,N , 6 NBRCOL,NBRROW,NBRWDS,NCOL ,NGPS ,NGRIDS,NHDR , 7 NLIST ,NLOCS ,NMAT ,NPVT ,NREAD ,NREC ,NROW , 8 NROWP ,NSCA ,NWDS ,OLDCOD,OP ,PREC ,SCRIN , 9 SCROUT, UNION,SCALAS EQUIVALENCE (KSYSTM( 1),SYSBUF), (KSYSTM( 2),OUTPUT), 1 (KSYSTM(78),IPIEZ ) EQUIVALENCE (Z(1) ,ZD(1)), (XS(1),XD(1),IS(1)), (Z(1) ,Y(1) ), 1 (BUF(1),D(1)), (IPVT ,IVPT ), (BUF(1),IHQ(1)) DATA LBUF / 100/, MCB/ 7*0 /, MA1H/ 4HEMA ,2H /, KONS/ 14 /, 1 MDICT / 6 /, HDR/ 6*0 / DATA GPECT , XEMD , XBLOCK / 101, 102, 103 / , 1 XGG / 201 / , 2 SCR1 , SCR2 / 301, 302 / C C C RE-SET KONS IF HALF WORD IS LARGER THAN THAN 16 BITS C IF (IHALF .GE. 18) KONS = 16 IF (IHALF .GE. 30) KONS = 24 C C ALLOCATE BUFFERS. OPEN GPECT AND ALLOCATE A TABLE OF 4 WORDS C PER ELEMENT TYPE. OPEN SCRATCH FILE FOR GPECTX. OPEN XEMD. C MCB(1) = 0 MCB(2) = 0 MCB(3) = 0 MCB(4) = 0 MCB(5) = 0 MCB(6) = 0 MCB(7) = 0 MAXII = 2**KONS - 1 MAXBLK = 0 KSFT = KSHIFT MASK = LSHIFT(JHALF,IHALF) BUF1 = KORSZ(Z) - SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF LCORE = BUF1 + SYSBUF - 1 K4FLAG = 1 IF (NOK4 .EQ. -1) K4FLAG = 0 C C SET LOGICAL VARIABLE TRUE IF THIS IS A PIEZOELECRRIC COUPLED C PROBLEM AND STRUCTURAL DAMPING FLAG IS ON C PIEZ = .FALSE. IF (IPIEZ.EQ.1 .AND. K4FLAG.NE.0) PIEZ = .TRUE. BUF(1) = XBLOCK CALL RDTRL (BUF) IF (BUF(1) .LT. 0) GO TO 9132 PREC = BUF(2) BUF(1) = GPECT CALL RDTRL (BUF) IF (BUF(1) .LT. 0) GO TO 9131 IDICT = 4*BUF(2) + 1 NSIL = BUF(3) MAXEL = BUF(4) MAXDOF= BUF(5) CALL GOPEN (GPECT,Z(BUF1),RDREW) L = (2**(IHALF+IHALF-2)-1)*2 + 1 MAXIPV= RSHIFT(L,KONS) SCRIN = GPECT SCROUT= SCR1 CALL GOPEN (XEMD,Z(BUF3),RDREW) CALL OPEN (*9134,SCROUT,Z(BUF2),WRTREW) CALL WRITE (SCROUT,BUF,3,1) C C SET SWITCHES FOR MULTIPLICATION BY DAMPING C OR WEIGHT MASS FACTOR (OR BOTH) C EPS = ABS(WTMASS-1.0) IF (EPS.LT.1.E-6 .AND. K4FLAG.EQ.0) ASSIGN 1370 TO KFACT IF (EPS.LT.1.E-6 .AND. K4FLAG.NE.0) ASSIGN 13651 TO KFACT IF (EPS.GT.1.E-6 .AND. K4FLAG.EQ.0) ASSIGN 13652 TO KFACT IF (EPS.GT.1.E-6 .AND. K4FLAG.NE.0) ASSIGN 13653 TO KFACT C C FILL CORE WITH ELEMENT MATRIX DICTIONARIES. FOR EACH ELEMENT TYPE C STORE POINTER TO 1ST DICT AND THE NBR OF DICTS IN TABLE AT TOP OF C CORE ALSO STORE LENGTH OF EACH DICTIONARY AND FORMAT CODE. C L = IDICT DO 1012 I = 1,IDICT 1012 Z(I) = 0 MAXN = 0 LAST = .TRUE. 1014 CALL READ (*1026,*9135,XEMD,HDR,3,0,NREAD) IELEM = 4*HDR(1) - 3 LDICT = HDR(2) Z(IELEM ) = L Z(IELEM+2) = LDICT Z(IELEM+3) = HDR(3) 1016 IF (L+LDICT .GE. BUF3) GO TO 1024 JDICT = LDICT CALL READ (*9136,*1018,XEMD,Z(L),LDICT,0,NREAD) L = L + LDICT GO TO 1016 1018 IF (NREAD .NE. 0) GO TO 9001 HIGH = Z(L-LDICT) Z(IELEM+1) = (L-Z(IELEM))/LDICT GO TO 1014 1024 LAST = .FALSE. Z(IELEM+1) = (L-Z(IELEM))/LDICT HIGH = Z(L-JDICT) IF (Z(IELEM+1) .NE. 0) GO TO 1030 Z(IELEM) = 0 GO TO 1030 1026 LAST = .TRUE. CALL CLOSE (XEMD,CLSREW) C C PASS GPECT (OR PARTIALLY COMPLETED GPECTX) ENTRY BY ENTRY. C IF ENTRY HAS BEEN COMPLETED, COPY IT OUT. OTHERWISE, LOCATE C DICTIONARY FOR ELEMENT (IF IN CORE) AND ATTACH IT. C DETERMINE LENGTH OF LONGEST RECORD IN GPECTX. C DETERMINE THE MAXIMUM LENGTH OF ONE COLUMN OF AN ELEMENT MATRIX. C 1030 NHDR = 2 IF (LAST) NHDR = 5 MAXGPE = 0 LOW = Z(IDICT) NGPS = 0 C C READ AND WRITE HEADER FOR RECORD (SIL, DOF, ETC.) C 1032 CALL READ (*1110,*9137,SCRIN,HDR,2,0,NREAD) CALL WRITE (SCROUT,HDR,NHDR,0) GPEWDS = NHDR NGPS = NGPS + 1 C C READ FIRST WORD OF ENTRY ON GPECT. TEST FOR DICT ALREADY ATTACHED C 1035 CALL READ (*9138,*1100,SCRIN,BUF,1,0,NREAD) IF (IABS(BUF(1)) .GT. LBUF) GO TO 9002 IF (BUF(1) .LT. 0) GO TO 1040 C C DICTIONARY ALREADY ATTACHED---READ REMAINDER OF ENTRY AND C COPY ENTRY TO GPECTX. C CALL READ (*9139,*9140,SCRIN,BUF(2),BUF(1),0,NREAD) N = BUF(1) + 1 1038 CALL WRITE (SCROUT,BUF,N,0) GPEWDS = GPEWDS + N GO TO 1035 C C DICTIONARY NOT ATTACHED---TRY TO LOCATE DICT IN CORE C 1040 M = -BUF(1) CALL READ (*9141,*9142,SCRIN,BUF(2),M,0,NREAD) IF (BUF(2) .LT. LOW) GO TO 1044 IF (BUF(2) .GT. HIGH) GO TO 1042 KELEM = 4*BUF(3) - 3 IF (Z(KELEM) .EQ. 0) GO TO 1035 L = Z(KELEM ) N = Z(KELEM+1) LDICT = Z(KELEM+2) NLOCS = Z(KELEM+3) CALL BISLOC (*1035,BUF(2),Z(L),LDICT,N,K) K = K + L - 1 IF (K4FLAG.NE.0 .AND. Z(K+4).EQ.0) GO TO 1035 GO TO 1050 1042 IF (LAST) GO TO 1044 N = M + 1 GO TO 1038 1044 CONTINUE GO TO 1035 C C DICTIONARY LOCATED---WRITE OUT COMPLETED ENTRY ON GPECTX C 0 NO. OF WORDS IN ENTRY (NOT INCL THIS WORD) C 1 - 5 ELEM ID, F, N, C, GE C 6 LOC OF ELEMENT MATRIX COLUMNS FOR CURRENT PIVOT C 7 - 6+NGRIDS SIL-S OF CONNECTED GRID POINTS C 1050 NGRIDS = M - 2 INDX = K + MDICT - 1 IF (NLOCS .EQ. 1) GO TO 1056 IF (NGRIDS .GT. NLOCS) GO TO 9004 KK = 1 DO 1053 I = 1,NGRIDS IF (KK .EQ. 1) GO TO 10525 C C CHECK FOR DUPLICATE SILS - E.G. HBDY ELEMENT WITH AMBIENT PTS C 10522 IF (BUF(KK+3) .NE. BUF(KK+2)) GO TO 10525 KK = KK + 1 GO TO 10522 10525 IF (BUF(KK+3) .NE. HDR(1)) GO TO 10530 C C SIL THAT MATCHES THE PIVOT FOUND. NOW INSURE THAT THIS SIL C HAS NOT BEEN ALREADY CONNECTED DUE TO A PREVIOUS ENTRY IN THIS C GPECT RECORD. (CAUSED BY DUPLICATE IDS I.E. CELAS2) C C GINO-LOC WILL NOW BE ZERO IF THAT IS TRUE C INDX = K + MDICT + I - 2 IF (Z(INDX)) 1054,10530,1054 10530 KK = KK + 1 1053 CONTINUE GO TO 1035 1054 Z(K+MDICT-1) = Z(INDX) IF (Z(K+1) .NE. 2) GO TO 1056 BUF(4) = BUF(I+3) NGRIDS = 1 1056 IF (LDICT-NLOCS+1 .NE. MDICT) GO TO 9010 N = MDICT + NGRIDS CALL WRITE (SCROUT,N,1,0) CALL WRITE (SCROUT,Z(K),MDICT,0) MAXBLK = MAX0(Z(INDX)/KSFT,MAXBLK) C C ZERO GINO-LOC AS HAVING BEEN USED NOW. C Z(INDX) = 0 CALL WRITE (SCROUT,BUF(4),NGRIDS,0) MAXN = MAX0(MAXN,Z(K+2)) GPEWDS = GPEWDS + N + 1 GO TO 1035 C C HERE ON END-OF-RECORD ON GPECT C 1100 CALL WRITE (SCROUT,0,0,1) MAXGPE = MAX0(MAXGPE,GPEWDS) GO TO 1032 C C HERE ON END-OF-FILE ON GPECT---TEST FOR COMPLETION OF GPECTX C 1110 CALL CLOSE (SCRIN ,CLSREW) CALL CLOSE (SCROUT,CLSREW) IF (NGPS .NE. NSIL) GO TO 9024 IF (LAST) GO TO 1200 C C GPECTX NOT COMPLETE---SWITCH FILES AND MAKE ANOTHER PASS C IF (SCRIN .EQ. GPECT) SCRIN = SCR2 K = SCRIN SCRIN = SCROUT SCROUT = K CALL GOPEN (SCRIN ,Z(BUF1),RDREW ) CALL GOPEN (SCROUT,Z(BUF2),WRTREW) L = IDICT LDICT = Z(IELEM+2) NLOCS = Z(IELEM+3) DO 1114 I = 1,IDICT 1114 Z(I) = 0 LAST = .TRUE. Z(IELEM ) = IDICT Z(IELEM+2) = LDICT Z(IELEM+3) = NLOCS GO TO 1016 C C HERE WE GO NOW FOR THE ASSEMBLY PHASE---PREPARE BY ALLOCATING C STORAGE FOR ONE ELEMENT MATRIX COLUMN AND ITS ROW POSITIONS C 1200 IROWP = PREC*MAXN + 1 IGPX = IROWP + MAXN FIRST = .TRUE. GPECTX = SCROUT MCB(1) = XGG MCB(4) = 6 MCB(5) = PREC MCB(6) = 0 MCB(7) = 0 LAST = .FALSE. NREC = 0 MAXNPR = MAXN*PREC OPENR = RDREW OPENW = WRTREW OLDCOD = 0 ITAB = BUF1 - MAXBLK NTAB = BUF1 - 1 IF (ITAB .LT. IGPX) GO TO 9011 C C BEGIN A PASS - OPEN GPECTX C 1210 IPVT = IGPX JJ = ITAB - 3 DO 1212 INDX = ITAB,NTAB Z(INDX) = 0 1212 CONTINUE CALL GOPEN (GPECTX,Z(BUF1),OPENR) C C READ A RECORD FROM GPECTX INTO CORE C 1220 IF (IVPT+MAXGPE.GE.JJ .OR. IPVT.GT.MAXIPV) GO TO 1304 CALL READ (*9144,*1222,GPECTX,Z(IVPT),MAXGPE+1,1,NREAD) GO TO 9006 1222 ICOL = IPVT + NREAD NREC = NREC + 1 C C MAKE A PASS THROUGH EACH ELEMENT CONNECTED TO THE PIVOT---FORM THE C UNION OF ALL CODE WORDS AND STORE ELEMENT POINTERS IN LIST AT THE C END OF OPEN CORE C PPOINT = LSHIFT(IPVT,KONS) II = IPVT + 5 UNION = 0 Z(IPVT+2) = 0 Z(IPVT+3) = 0 Z(IPVT+4) = IPVT GO TO 1234 1231 IF (Z(II) .LT. 0) GO TO 9007 KK = II - IPVT IF (KK .GT. MAXII) GO TO 9008 IF (JJ .LE. ICOL ) GO TO 1300 Z(JJ ) = Z(II+MDICT) Z(JJ+1) = ORF(PPOINT,KK) Z(JJ+2) = 0 INDX = ITAB + Z(JJ)/KSFT - 1 IF (INDX .GT. NTAB) GO TO 9016 IF (Z(INDX) .NE. 0) GO TO 1236 Z(INDX) = ORF(LSHIFT(ITAB-JJ,IHALF),ITAB-JJ) GO TO 1237 1236 JJLAST = ITAB - ANDF(Z(INDX),JHALF) Z(JJLAST+2) = JJ Z(INDX) = ORF(ANDF(Z(INDX),MASK),ITAB-JJ) 1237 JJ = JJ - 3 UNION = ORF(UNION,Z(II+4)) II = II + Z(II) + 1 1234 IF (II .LT. ICOL) GO TO 1231 IF (II .NE. ICOL) GO TO 9022 C C FORM THE LIST OF NON-NULL COLUMNS TO BE BUILT FOR THIS PIVOT C IF (UNION .EQ. 0) GO TO 1280 IF (UNION .EQ. OLDCOD) GO TO 1243 CALL DECODE (UNION,SCALAS,NSCA) OLDCOD = UNION 1243 Z(IPVT+2) = ICOL IF (ICOL+NSCA .GE. JJ) GO TO 1300 II = ICOL DO 1244 L = 1,NSCA Z(II) = Z(IPVT) + SCALAS(L) II = II + 1 1244 CONTINUE IROW = II C C NOW MAKE A PASS AGAIN THROUGH EACH ELEMENT CONNECTED TO CURRENT C PIVOT AND FORM A LIST OF UNIQUE ROW INDICES. C II = IPVT + 5 1252 L1 = II + MDICT + 1 L2 = II + Z(II) IF (OLDCOD .EQ. Z(II+4)) GO TO 1253 ICODE = Z(II+4) CALL DECODE (ICODE,SCALAS,NSCA) OLDCOD = Z(II+4) 1253 CONTINUE KK = IROW IF (II .NE. IPVT+5) GO TO 1258 DO 1256 L = L1,L2 C C IGNORE DUPLICATE IDS AS IN SOME CELAS2 ELEMENTS ETC. C IF (L.GT.L1 .AND. Z(L).EQ.Z(L-1)) GO TO 1256 DO 1254 I = 1,NSCA Z(KK) = Z(L) + SCALAS(I) KK = KK + 1 IF (KK .GE. JJ) GO TO 1300 1254 CONTINUE 1256 CONTINUE NROW = KK - 1 NBRWDS = KK - IROW GO TO 1269 1258 J = IROWP DO 1264 L = L1,L2 C C IGNORE DUPLICATE IDS AS IN SOME CELAS2 ELEMENTS ETC. C IF (L.GT.L1 .AND. Z(L).EQ.Z(L-1)) GO TO 1264 DO 1262 I = 1,NSCA Z(J) = Z(L) + SCALAS(I) J = J + 1 1262 CONTINUE 1264 CONTINUE IF (J .GT. IGPX) GO TO 9023 M = J - IROWP IF (IROW+NBRWDS+M .GE. JJ) GO TO 1300 CALL MRGE (Z(IROW),NBRWDS,Z(IROWP),M) NROW = IROW + NBRWDS - 1 IF (NROW .GE. JJ) GO TO 1300 1269 II = L2 + 1 IF (II .LT. ICOL) GO TO 1252 Z(IPVT+3) = IROW C C NOW ALLOCATE STORAGE FOR COLUMNS OF XGG ASSOCIATED WITH THIS PIVOT C IMAT = NROW + 1 NBRCOL = IROW - ICOL NBRROW = IMAT - IROW NBRWDS = PREC*NBRCOL*NBRROW NMAT = IMAT + NBRWDS - 1 IF (NMAT .GE. JJ) GO TO 1300 DO 1272 I = IMAT,NMAT Z(I) = 0 1272 CONTINUE Z(IPVT+4) = IMAT II = NMAT + 1 C C ADVANCE POINTER AND TRY TO GET ANOTHER PIVOT ALLOCATED C 1280 ILIST = JJ + 3 NPVT = IPVT IF (NREC .EQ. NGPS) GO TO 1310 IPVT = II GO TO 1220 C C HERE WHEN STORAGE EXCEEDED DURING PROCESSING OF A PIVOT. C IF FIRST PIVOT ON PASS, INSUFFICIENT CORE FOR MODULE. C OTHERWISE, BACKSPACE GPECTX AND PREPARE TO PROCESS ALL C PIVOTS IN CORE WHICH HAVE BEEN COMPLETELY ALLOCATED. C 1300 IF (IPVT .EQ. IGPX) CALL MESAGE (-8,0,MA1H) CALL BCKREC (GPECTX) NREC = NREC - 1 1304 OP = CLS IF (IPVT .EQ. IGPX) CALL MESAGE (-8,0,MA1H) GO TO 1320 C C HERE WHEN LAST PIVOT POINT HAS BEEN READ AND ALLOCATED C 1310 LAST = .TRUE. OP = CLSREW C C CLOSE GPECTX. OPEN XBLOCK. C 1320 CALL CLOSE (GPECTX,OP) NWDS = BUF1 - ILIST IF (NWDS .LE. 0) GO TO 1402 CALL GOPEN (XBLOCK,Z(BUF1),RDREW) OLDCOD = 0 C C PASS THE LIST OF ELEMENT MATRIX POINTERS. EACH ENTRY POINTS TO THE C PIVOT POINT AND ELEMENT DICTIONARY IN CORE AND TO THE POSITION IN C THE XBLOCK FILE CONTAINING THE ASSOCIATED ELEMENT MATRIX COLUMNS. C WHEN PROCESSING OF ALL ENTRIES IS COMPLETE, COLUMNS OF XGG NOW IN C CORE ARE COMPLETE. C DO 1398 INDX = ITAB,NTAB IF (Z(INDX) .EQ. 0) GO TO 1398 JJ = ITAB - RSHIFT(Z(INDX),IHALF) IF (JJ .LT. ILIST) GO TO 1398 1330 CONTINUE CALL FILPOS (XBLOCK,Z(JJ)) IPVT = RSHIFT(Z(JJ+1),KONS) IF (IPVT .GT. NPVT) GO TO 9019 IELEM = IPVT + ANDF(Z(JJ+1),MAXII) ICOL = Z(IPVT+2) IROW = Z(IPVT+3) IMAT = Z(IPVT+4) C C DECODE CODE WORD FOR ELEMENT. FORM LIST OF ROW INDICES DESCRIBING C TERMS IN THE ELEMENT MATRIX COLUMN. THEN CONVERT THESE INDICES TO C RELATIVE ADDRESSES IN XGG COLUMN IN CORE (USE LIST OF ROW INDICES C FOR XGG COLUMN TO DO THIS). C IF (Z(IELEM+4) .EQ. OLDCOD) GO TO 1341 ICODE = Z(IELEM+4) CALL DECODE (ICODE,SCALAS,NSCA) OLDCOD = Z(IELEM+4) 1341 L1 = IELEM + MDICT + 1 L2 = IELEM + Z(IELEM) K = IROWP DO 1344 L = L1,L2 C C IGNORE DUPLICATE IDS AS IN SOME CELAS2 ELEMENTS ETC. C IF (L.GT.L1 .AND. Z(L).EQ.Z(L-1)) GO TO 1344 DO 1342 I = 1,NSCA Z(K) = Z(L) + SCALAS(I) K = K + 1 1342 CONTINUE 1344 CONTINUE NROWP = K - 1 IF (NROWP.GE. IGPX) GO TO 9012 NROW = IMAT - 1 ID = Z(IROWP) CALL BISLOC (*9020,ID,Z(IROW),1,(IMAT-IROW),IROWX) IROWX = IROW + IROWX - 1 DO 1348 K = IROWP,NROWP DO 1346 I = IROWX,NROW IF (Z(K) .EQ. Z(I)) GO TO 1347 1346 CONTINUE GO TO 9013 1347 Z(K) = (I-IROW)*PREC IROWX = I + 1 1348 CONTINUE NBRROW = NROWP - IROWP + 1 C C PREPARE TO READ EACH COLUMN OF ELEMENT MATRIX C NCOL = IROW - 1 ICOLX = ICOL NBRWDS= Z(IELEM+3)*PREC IF (Z(IELEM+2) .EQ. 2) NBRWDS = PREC IF (NBRWDS .GT. MAXNPR) GO TO 9014 DO 1396 I = 1,NSCA C C READ A COLUMN OF THE ELEMENT MATRIX AND DETERMINE ADDRESS C OF FIRST WORD OF ASSOCIATED COLUMN OF XGG IN CORE. C CALL READ (*9145,*9146,XBLOCK,Z,NBRWDS,0,NREAD) COL = Z(IPVT) + SCALAS(I) DO 1362 K = ICOLX,NCOL IF (COL .EQ. Z(K)) GO TO 1364 1362 CONTINUE GO TO 9015 1364 IMATN = IMAT + (IMAT-IROW)*(K-ICOL)*PREC ICOLX = K + 1 IF (Z(IELEM+2) .NE. 2) GO TO 1365 C C ELEMENT MATRIX IS DIAGONAL C NBRROW = 1 Z(IROWP) = Z(IROWP+I-1) C C IF DAMPING OR WEIGHT MASS FACTOR (OR BOTH) PRESENT, MULTIPLY C EACH TERM IN THE ELEMENT MATRIX COLUMN BY THE FACTOR. C 1365 GO TO KFACT, (1370,13651,13652,13653) 13651 FACTOR = Y(IELEM+5) GO TO 13654 13652 FACTOR = WTMASS GO TO 13654 13653 FACTOR = Y(IELEM+5)*WTMASS 13654 CONTINUE IF (PREC .EQ. 2) GO TO 1367 DO 1366 K = 1,NBRWDS C C FOR PIEZOELECTRIC COUPLED PROBLEMS, ANY STRUCTURAL DAMPING COEFF. C SHOULD MULTIPLY ONLY THE UNCOUPLED STRUCTURAL TERMS. SO, SKIP C EVERY 4TH TERM IN A COLUMN AND SKIP EVERY 4TH COLUMN C IF (PIEZ .AND. (I.EQ.NSCA .OR. MOD(K,4).EQ.0)) Y(K) = 0. Y(K) = FACTOR*Y(K) 1366 CONTINUE GO TO 1371 1367 M = NBRWDS/2 DO 1368 K = 1,M IF (PIEZ .AND. (I.EQ.NSCA.OR.MOD(K,4).EQ.0)) ZD(K) = 0.D0 ZD(K) = FACTOR*ZD(K) 1368 CONTINUE GO TO 1374 C C NOW ADD TERMS OF THE ELEMENT MATRIX INTO XGG C 1370 IF (PREC .EQ. 2) GO TO 1374 C C DO ARITHMETIC IN SINGLE PRECISION C 1371 DO 1372 K = 1,NBRROW J = IMATN + Z(IROWP+K-1) CWKBI 1/95 YJ = Y(J) Y(J) = Y(J) + Y(K) CWKBNB 1/95 FOLLOWING CODE WILL CAUSE A TRUE ZERO WHEN SUBTRACTING SAME NO. IF ( Y(K) .EQ. 0.0 ) GO TO 13720 YJ = YJ / Y(K) IF ( YJ .LE. -.999999999998 .AND. YJ .GE. -1.000000000001 ) & Y(J) = 0.0 13720 CONTINUE CWKBNE 1/95 1372 CONTINUE GO TO 1396 C C DO ARITHMETIC IN DOUBLE PRECISION C 1374 DO 1376 K = 1,NBRROW J = IMATN + Z(IROWP+K-1) IS(1) = Z(J ) IS(2) = Z(J+1) CWKBI 1/95 XDD = XD(1) XD(1) = XD(1) + ZD(K) CWKBNB 1/95 FOLLOWING CODE WILL CAUSE A TRUE ZERO WHEN SUBTRACTING SAME NO. C WITHOUT THIS CODE, A SYMMETRIC MATRIX MIGHT HAVE UNSYMMETRIC TERMS ON C THE HP AND ULTRIX (SEE DEMO D01011A, MATRIX KAA, COLUMN 84 ROW 70) IF ( ZD(K) .EQ. 0.0D0 ) GO TO 1375 XDD = XDD / ZD(K) IF ( XDD .LE. -.999999999998 .AND. XDD .GE. -1.000000000001 ) & XD(1) = 0.0D0 1375 CONTINUE CWKBNE 1/95 Z(J )= IS(1) Z(J+1)= IS(2) C 1376 CONTINUE GO TO 1396 C C END OF DO LOOPS C 1396 CONTINUE JJ = Z(JJ+2) IF (JJ .GE. ILIST) GO TO 1330 1398 CONTINUE C C ALL COLUMNS OF XGG IN CORE ARE NOW COMPLETE - SEND THEM C OUT TO THE XGG DATA BLOCK VIA THE BLDPK ROUTINE. C CALL CLOSE (XBLOCK,CLSREW) 1402 CALL GOPEN (XGG,Z(BUF1),OPENW) IPVT = IGPX C C PREPARE TO PACK ALL COLUMNS FOR CURRENT PIVOT C 1410 COL1 = Z(IPVT) COLN = COL1 + Z(IPVT+1) - 1 ICOL = Z(IPVT+2) IROW = Z(IPVT+3) IMAT = Z(IPVT+4) NCOL = IROW - 1 NROW = IMAT - 1 JNEXT = ICOL NXTCOL = Z(JNEXT) II = IMAT DO 1430 COL = COL1,COLN C C INITIATE PACKING BY CALLING BLDPK. TEST FOR NULL COL. C CALL BLDPK (PREC,PREC,XGG,0,0) IF (ICOL .EQ. 0) GO TO 1428 IF (COL .LT. NXTCOL) GO TO 1428 JNEXT = JNEXT + 1 NXTCOL = Z(JNEXT) IF (JNEXT .GT. NCOL) NXTCOL = COLN + 1 IF (PREC .EQ. 2) GO TO 1426 C C NON-NULL COLUMN - SEND THE TERMS OUT VIA ZBLPKI C C SINGLE PRECISION C DO 1424 K = IROW,NROW IQ = Z(K) Q(1) = Z(II) CALL ZBLPKI II = II + 1 1424 CONTINUE GO TO 1428 C C DOUBLE PRECISION C 1426 DO 1427 K = IROW,NROW IQ = Z(K) Q(1) = Z(II ) Q(2) = Z(II+1) CALL ZBLPKI II = II + 2 1427 CONTINUE C C TERMINATE COLUMN BY CALLING BLDPKN C 1428 CALL BLDPKN (XGG,0,MCB) 1430 CONTINUE C C LOGIC TEST TO MAKE SURE POINTERS ENDED CORRECTLY C NBRWDS = 5 IF (ICOL .EQ. 0) GO TO 1440 NBRWDS = (IMAT-IROW)*(IROW-ICOL)*PREC IF (II-IMAT.NE.NBRWDS .AND. Z(IPVT+1).NE.1) GO TO 9017 C C TEST FOR LAST PIVOT C 1440 IF (IPVT .GE. NPVT) GO TO 1450 IPVT = IMAT + NBRWDS GO TO 1410 C C CLOSE XGG C 1450 CALL CLOSE (XGG,OP) C C TEST FOR LAST PASS C IF (LAST) GO TO 1490 FIRST = .FALSE. OPENR = RD OPENW = WRT GO TO 1210 C C XGG NOW COMPLETE - WRITE ITS TRAILER. C 1490 MCB(3) = MCB(2) IF (MCB(2) .NE. Z(NPVT)+Z(NPVT+1)-1) GO TO 9018 CALL WRTTRL (MCB) RETURN C C FATAL ERROR MESSAGES C 9001 MSG(1) = 1016 GO TO 9098 9002 MSG(1) = 1035 GO TO 9098 9004 MSG(1) = 1052 GO TO 9098 9006 MSG(1) = 1220 GO TO 9098 9007 MSG(1) = 1231 GO TO 9098 9008 MSG(1) = 1232 GO TO 9098 9010 MSG(1) = 1056 GO TO 9098 9011 MSG(1) = 1202 GO TO 9098 9012 MSG(1) = 1344 GO TO 9098 9013 MSG(1) = 1346 GO TO 9098 9014 MSG(1) = 1352 GO TO 9098 9015 MSG(1) = 1362 GO TO 9098 9016 MSG(1) = 1238 GO TO 9098 9017 MSG(1) = 1432 GO TO 9098 9018 MSG(1) = 1490 GO TO 9098 9019 MSG(1) = 1332 GO TO 9098 9020 MSG(1) = 1345 GO TO 9098 9022 MSG(1) = 1235 GO TO 9098 9023 MSG(1) = 1264 GO TO 9098 9024 MSG(1) = 1110 GO TO 9098 9098 WRITE (OUTPUT,9099) SFM,MSG(1) 9099 FORMAT (A25,' 3102, LOGIC ERROR EMA - ',I4) 9097 CONTINUE WRITE (OUTPUT,9091) 9091 FORMAT (/,' *** CONTENTS OF /MA1XX/') WRITE (OUTPUT,9092) IHQ 9092 FORMAT (5X,10I10) WRITE (OUTPUT,9093) 9093 FORMAT (/,' FIRST 250 WORDS OF OPEN CORE') J = 250 WRITE (OUTPUT,9092) (Z(I),I=1,J) CALL MESAGE (-61,0,0) 9100 CALL FNAME (MSG(3),MSG(1)) WRITE (OUTPUT,9101) SFM,(MSG(I),I=1,4) 9101 FORMAT (A25,' 3001, ATTEMPT TO OPEN DATA SET ',2A4,', FILE (',I4, 1 ') IN SUBROUTINE EMA (',I4,') WHICH WAS NOT DEFINED IN FIST.') GO TO 9097 9110 CALL FNAME (MSG(3),MSG(1)) WRITE (OUTPUT,9111) SFM,(MSG(I),I=1,4) 9111 FORMAT (A25,' 3002, EOF ENCOUNTERED WHILE READING DATA SET ',2A4, 1 ', (FILE',I5,') IN SUBROUTINE EMA (',I4,1H)) GO TO 9097 9120 CALL FNAME (MSG(3),MSG(1)) WRITE (OUTPUT,9121) SFM,(MSG(I),I=1,4) 9121 FORMAT (A25,' 3003, ATTEMPT TO READ PAST END OF LOGICAL RECORD IN' 1, ' DATA SET ',2A4,' (FILE',I5,') IN SUBROUTINE EMA (',I4,1H)) GO TO 9097 9131 MSG(3) = GPECT MSG(4) = 1002 GO TO 9100 9132 MSG(3) = XBLOCK MSG(4) = 1001 GO TO 9100 9134 MSG(3) = SCROUT MSG(4) = 1005 GO TO 9100 9135 MSG(3) = XEMD MSG(4) = 1014 GO TO 9120 9136 MSG(3) = XEMD MSG(4) = 1017 GO TO 9110 9137 MSG(3) = SCRIN MSG(4) = 1032 GO TO 9120 9138 MSG(3) = SCRIN MSG(4) = 1035 GO TO 9110 9139 MSG(3) = SCRIN MSG(4) = 1036 GO TO 9110 9140 MSG(3) = SCRIN MSG(4) = 1036 GO TO 9120 9141 MSG(3) = SCRIN MSG(4) = 1040 GO TO 9110 9142 MSG(3) = SCRIN MSG(4) = 1040 GO TO 9120 9144 MSG(3) = GPECTX MSG(4) = 1221 GO TO 9110 9145 MSG(3) = XBLOCK MSG(4) = 1360 GO TO 9110 9146 MSG(3) = XBLOCK MSG(4) = 1360 GO TO 9120 END ================================================ FILE: mis/ema1.f ================================================ SUBROUTINE EMA1 C C EMA1 ASSEMBLES A STRUCTURAL MATRIX FOR THE MODEL FROM EACH OF C THE INDIVIDUAL ELEMENT STRUCTURAL MATRICES. C C EMA1 GPECT,KDICT,KELEM,SIL,ECT / KGG / C,N,NOK4/ C,N,WTMASS C C NOK4 .NE. -1 MEANS MULTIPLY BY DAMPING FACTOR (GE) C ABS(WTMASS-1.0) .GT. 1.E-6 MEANS MULTIPLY BY WTMASS C C EMA1 USES 2 SCRATCH FILES C LOGICAL LAST INTEGER SYSTEM ,SYSBUF ,ZI(1) ,RD ,RDREW ,WRT , 1 WRTREW ,CLSREW ,CLS ,GPECT ,SIL ,ECT , 2 SUBNAM(2) ,SCR1 ,SCR2 ,ELEM ,DOFG , 3 MCBKGG(7) ,TYPIN1 ,TYPOU1 ,TYPIN2 ,PREC , 4 TRLSIL(7) ,EVEN ,BUF(10),BUF1 ,BUF2 , 5 BUF3 ,OPENW ,OPENR ,SILNBR ,OPCLS ,MCB(7), 6 TT(3) ,OLDCOD ,SCALAS(32) ,DOF , 7 BLOCK(20) REAL ZS(1) ,XS(4) DOUBLE PRECISION ZD ,XD ,D CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /SYSTEM/ SYSTEM(80) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW ,CLS COMMON /BLANK / NOK4 ,WTMASS COMMON /PACKX / TYPIN1 ,TYPOU1 ,II1 ,JJ1 ,INCR1 COMMON /UNPAKX/ TYPIN2 ,II2 ,JJ2 ,INCR2 COMMON /ZBLPKX/ XD(2) ,IX COMMON /GPTA1 / NELEM ,JLAST ,INCRE ,ELEM(1) COMMON /MA1XX / D(18) COMMON /ZZZZZZ/ ZD(1) EQUIVALENCE (SYSTEM(1),SYSBUF), (SYSTEM(2),NOUT), 1 (TRLSIL(2),NBRSIL), (TRLSIL(3),LUSET), 2 (SYSTEM(22),MACH ), (ZD(1),ZS(1),ZI(1)), 3 (XD(1),XS(1)) C C DEFINITION OF INPUT DATA BLOCKS C DATA GPECT , KDICT, KELEM, SIL, ECT / 1 101 , 102 , 103 , 104, 105 / C C DEFINITION OF OUTPUT DATA BLOCKS C DATA KGG / 201 / C C DEFINITION OF SCRATCH FILES C DATA SCR1 , SCR2 / 301, 302 / C C MISCELANEOUS DATA C DATA SUBNAM/ 4HEMA1,4H /, NHEMA1/ 4HEMA1/, 1 LARGE / 2147483647 /, LPCB / 8 / C C DATA TERMS / 1, 0, 9, 0, 0, 18 /, C 1 SCL / 1, 1, 0 / C C STATEMENT FUNCTION C EVEN(N) = 2*((N+1)/2) C C PERFORM GENERALIZATION C LCORE = KORSZ(ZD) TRLSIL(1) = SIL CALL RDTRL (TRLSIL) WRITE (NOUT,999) (TRLSIL(I),I=1,7) 999 FORMAT (1H ,7I10) ISIL0 = LCORE - NBRSIL - 1 LCORE = ISIL0 BUF1 = LCORE - SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF(1)= KELEM CALL RDTRL (BUF) WRITE (NOUT,999) (BUF(I),I=1,7) PREC = BUF(2) CALL MAKMCB (MCBKGG,KGG,LUSET,6,PREC) OPENW = WRTREW OPENR = RDREW LAST = .FALSE. SILNBR= 0 OPCLS = CLS MAXDCT= 0 MAXVEC= 0 OLDCOD= 0 C C SET SWITCH FOR MULTIPLICATION BY DAMPING AND/OR WEIGHT MASS FACTOR C EPS = ABS(WTMASS-1.0) IF (EPS.LT.1.E-6 .AND. NOK4.LT.0) ASSIGN 244 TO KFACT IF (EPS.LT.1.E-6 .AND. NOK4.GE.0) ASSIGN 245 TO KFACT IF (EPS.GE.1.E-6 .AND. NOK4.LT.0) ASSIGN 246 TO KFACT IF (EPS.GE.1.E-6 .AND. NOK4.GE.0) ASSIGN 247 TO KFACT C C READ THE CONTENTS OF THE SIL DATA BLOCK INTO CORE C CALL GOPEN (SIL,ZI(BUF1),RDREW) CALL FREAD (SIL,ZI(ISIL0+1),NBRSIL,1) CALL CLOSE (SIL,CLSREW) ZI(ISIL0+NBRSIL+1) = LUSET + 1 CALL CDCBUG (NHEMA1,100,ZI(ISIL0+1),NBRSIL+1) C C READ THE KDICT AND ECT DATA BLOCKS. WRITE A MODIFIED KDICT ON SCR2 C WHICH INCLUDES THE INTERNAL GRID NUMBERS FOR EACH ELEMENT. C THE FORMAT FOR EACH RECORD ON SCR2 IS... C 3-WORD RECORD HEADER C 1 ELEMENT TYPE C 2 NBR OF WORDS PER ENTRY( N ) C 3 NBR OF GRID POINTS PER ENTRY C N-WORD ELEMENT ENTRY C 1 ELEMENT ID( INTERNAL NUMBER ) C 2 FORM OF COLUMN PARTITIONS( 1=RECT, 2=DIAG ) C 3 NUMBER OF TERMS PER COLUMN PARTITION C 4 SCALAR CODE DEFINING DOF PER GRID POINT C 5 GE C 6 INTERNAL INDEX OF 1ST GRID POINT C 7 GINO ADDRESS OF 1ST COLUMN PARTITION C ... C N-1 INTERNAL INDEX OF LAST GRID POINT C N GINO ADDRESS OF LAST COLUMN PARTITION C C NOTE... C GRID POINTS ARE IN SORT BY INTERNAL INDEX. ZERO INDICATES C MISSING GRID POINT. ANY ZERO-S ARE LAST IN LIST. C CALL GOPEN (KDICT,ZI(BUF1),RDREW ) CALL GOPEN (ECT ,ZI(BUF2),RDREW ) CALL GOPEN (SCR2 ,ZI(BUF3),WRTREW) 111 CALL READ (*124,*111,KDICT,BUF(4),3,0,J) CALL CDCBUG (NHEMA1,111,BUF(4),3) 112 CALL ECTLOC (*900,ECT,BUF,I) CALL CDCBUG (NHEMA1,112,BUF,3) IF (ELEM(I+2) .EQ. BUF(4)) GO TO 114 CALL SKPREC (ECT,1) GO TO 112 114 BUF(5) = BUF(5) + BUF(6) CALL WRITE (SCR2,BUF(4),3,0) IGRID = ELEM(I+12) NBRGRD = ELEM(I+ 9) NWDECT = ELEM(I+ 5) IDICT = NWDECT + 1 NWDDCT = BUF(5) - BUF(6) NGRID = IGRID + NBRGRD - 1 MAXDCT = MAX0(MAXDCT,BUF(5)) IF (NBRGRD .NE. BUF(6)) GO TO 901 115 CALL READ (*122,*122,ECT,ZI,NWDECT,0,J) CALL CDCBUG (NHEMA1,115,ZI,NWDECT) CALL FREAD (KDICT,ZI(IDICT),NWDDCT,0) CALL CDCBUG (NHEMA1,116,ZI(IDICT),NWDDCT) DO 116 J = IGRID,NGRID IF (ZI(J) .EQ. 0) ZI(J) = LARGE 116 CONTINUE CALL SORT (0,0,1,1,ZI(IGRID),NBRGRD) DO 118 J = IGRID,NGRID IF (ZI(J) .EQ. LARGE) ZI(J) = 0 118 CONTINUE CALL CDCBUG (NHEMA1,118,ZI(IGRID),NBRGRD) CALL WRITE (SCR2,ZI(IDICT),NWDDCT-NBRGRD,0) ILOC = IDICT + NWDDCT - NBRGRD DO 120 J = 1,NBRGRD CALL WRITE (SCR2,ZI(IGRID+J-1),1,0) CALL WRITE (SCR2,ZI(ILOC +J-1),1,0) 120 CONTINUE MAXVEC = MAX0(MAXVEC,ZI(IDICT+2)*PREC) GO TO 115 122 CALL SKPREC (KDICT,1) CALL WRITE (SCR2,0,0,1) GO TO 111 124 CALL CLOSE (KDICT,CLSREW) CALL CLOSE ( ECT,CLSREW) CALL CLOSE ( SCR2,CLSREW) TT(1) = MAXDCT TT(2) = MAXVEC CALL CDCBUG (NHEMA1,125,TT,2) C C READ GPECT AND PREPARE THE SCR1 DATA BLOCK. FOR EACH GRID/SCALAR C POINT, TWO RECORDS ARE WRITTEN. THE 1ST CONTAINS 6 WORDS... C 1 INTERNAL INDEX OF GRID/SCALAR POINT C 2 DOF OF POINT (1=SCALAR, 6=GRID) C 3 DOF OF EACH CONNECTED POINT (0 IF NO CONNECTED POINTS) C 4 NUMBER OF CONNECTED POINTS C 5 INDEX OF 1ST CONNECTED POINT C 6 INDEX OF LAST CONNECTED POINT C C THE 2ND RECORD IS A PACKED COLUMN WHICH CONTAINS A NON-ZERO TERM C FOR EACH CONNECTED POINT. C TYPIN1 = 1 TYPOU1 = 1 INCR1 = 1 INCR2 = 1 CALL MAKMCB (MCB,SCR1,NBRSIL,1,1) ILOOK0 = NBRSIL + 1 IF (ILOOK0+LUSET+1 .GE. BUF3) CALL MESAGE (-8,0,SUBNAM) DO 131 I = 1,NBRSIL J = ZI(ISIL0+I) ZI(ILOOK0+J) = I 131 CONTINUE CALL CDCBUG (NHEMA1,131,ZI(ILOOK0+1),LUSET) CALL GOPEN (GPECT,ZI(BUF1),RDREW ) CALL GOPEN (SCR1 ,ZI(BUF2),WRTREW) DO 148 II = 1,NBRSIL NBRCON = BUF(4) MINNBR = BUF(5) MAXNBR = BUF(6) IF (II .NE. 1) GO TO 130 NBRCON = NBRSIL MINNBR = 1 MAXNBR = NBRSIL 130 CALL FREAD (GPECT,BUF,2,0) BUF(1) = II BUF(3) = 0 BUF(4) = 0 BUF(5) = LARGE BUF(6) = 0 IF (NBRCON .EQ. 0) GO TO 134 DO 132 I = MINNBR,MAXNBR ZI(I) = 0 132 CONTINUE 134 CALL READ (*138,*138,GPECT,TT,3,0,I) CALL CDCBUG (NHEMA1,134,TT,3) NBRGRD = IABS(TT(1)) - 2 DO 136 I = 1,NBRGRD CALL FREAD (GPECT,SILNBR,1,0) J = ZI(ILOOK0+SILNBR ) IF (ZS(J) .NE. 0) GO TO 136 BUF(3) = MAX0(BUF(3),ZI(ISIL0+J+1)-ZI(ISIL0+J)) BUF(4) = BUF(4) + 1 BUF(5) = MIN0(BUF(5),J) BUF(6) = MAX0(BUF(6),J) ZS(J) = 1.0 136 CONTINUE GO TO 134 138 CALL WRITE (SCR1,BUF,6,1) CALL CDCBUG (NHEMA1,138,BUF,6) IF (BUF(4) .EQ. 0) GO TO 142 C C PACK COLUMN FOR POINT WITH CONNECTED POINTS C II1 = BUF(5) JJ1 = BUF(6) CALL CDCBUG (NHEMA1,139,ZI(II1),JJ1-II1+1) CALL PACK (ZS(II1),SCR1,MCB) GO TO 148 C C HERE IF PIVOT HAS NO CONNECTED POINTS C 142 CONTINUE MCB(2) = MCB(2) + 1 C C CLOSE FILES C 148 CONTINUE CALL CLOSE (GPECT,CLSREW) CALL CLOSE ( SCR1,CLSREW) CALL WRTTRL (MCB) C C ALLOCATE STORAGE FOR MAXIMUM COLUMN OF ELEMENT MATRIX C AND MAXIMUM ENTRY FROM MODIFIED KDICT( SCR2 ) C IDICT = MAXVEC + 1 IGRID = IDICT + 5 IPVT = IDICT + MAXDCT LCORE = EVEN( BUF2 ) - 1 C C C BEGIN A PASS BY OPENING SCR1 AND SETTING ALLOCATION POINTERS C C 150 CALL GOPEN (SCR1,ZI(BUF1),OPENR) II = IPVT JJ = LCORE C C BEGIN A PIVOT ALLOCATION BY READING PIVOT CONTROL BLOCK FROM SCR1 C 160 CONTINUE TT(1) = II TT(2) = JJ CALL CDCBUG (NHEMA1,160,TT,2) IF (II+LPCB .GE. JJ) GO TO 202 CALL FREAD (SCR1,ZI(II),6,1) SILNBR = ZI(II) ZI(II+6) = 0 ZI(II+7) = 0 IF (ZI(II+3) .EQ. 0) GO TO 195 C C ATTEMPT TO ALLOCATE SPACE FOR CONNECTED GRID VECTOR C AND FOR MATRICES CONNECTED TO THE PIVOT C NWDCGV = ZI(II+5) - ZI(II+4) + 1 NWDMAT = PREC*ZI(II+1)*ZI(II+2)*ZI(II+3) IF (II+LPCB .GE. JJ-NWDCGV-NWDMAT) GO TO 200 IMAT = JJ - NWDMAT ZI(II+6) = IMAT - EVEN(NWDCGV) ZI(II+7) = IMAT JJ = ZI(II+6) NMAT = IMAT + NWDMAT - 1 DO 165 I = IMAT,NMAT ZS(I) = 0 165 CONTINUE ICGVEC = JJ NCGVEC = ICGVEC + NWDCGV - 1 C C UNPACK CONNECTED GRID VECTOR. CONVERT NON-ZERO POSITIONS TO C RELATIVE POINTERS (IN PRECISION OF PROBLEM) TO THE CORRESPONDING C 1ST TERM OF THE ELEMENT MATRIX C II2 = ZI(II+4) JJ2 = ZI(II+5) NTRMEC = ZI(II+2) KK = 1 TYPIN2 = 1 CALL UNPACK (*902,SCR1,ZS(ICGVEC)) DO 174 I = ICGVEC,NCGVEC IF (ZI(I) .EQ. 0) GO TO 174 ZI(I) = KK KK = KK + NTRMEC 174 CONTINUE CALL CDCBUG (NHEMA1,174,ZI(II),8) CALL CDCBUG (NHEMA1,175,ZI(ICGVEC),NWDCGV) IF (KK-1 .NE. ZI(II+2)*ZI(II+3)) GO TO 903 C C TEST FOR LAST PIVOT. IF NOT, TRY TO ALLOCATE ANOTHER PIVOT C 195 IF (SILNBR .EQ. NBRSIL) GO TO 210 II = II + LPCB GO TO 160 C C HERE IF CURRENT PIVOT CANNOT BE ALLOCATED -- MAKE SURE AT LEAST C ONE PIVOT HAS BEEN ALLOCATED. C 200 CALL BCKREC (SCR1) 202 IF (II .EQ. IPVT) CALL MESAGE (-8,0,SUBNAM) NPVT = II - LPCB GO TO 220 C C HERE WHEN LAST PIVOT HAS BEEN READ AND ALLOCATED C 210 LAST = .TRUE. OPCLS= CLSREW NPVT = II C C C CLOSE SCR1, OPEN SCR2 AND KELEM. PREPARE TO ASSEMBLE C STRUCTURAL MATRIX FOR THOSE PIVOTS CURRENTLY ALLOCATED. C C 220 CONTINUE CALL CLOSE (SCR1,OPCLS) CALL GOPEN (SCR2, ZI(BUF1),RDREW) CALL GOPEN (KELEM,ZI(BUF2),RDREW) C C READ HEADER FOR CURRENT ELEMENT TYPE FROM SCR2 C 230 CONTINUE CALL READ (*260,*230,SCR2,TT,3,0,I) CALL CDCBUG (NHEMA1,230,TT,3) NWDDCT = TT(2) NGRID = IGRID + 2*(TT(3)-1) C C READ AN ELEMENT DEFINITION. IF ANY GRID POINT IS IN CURRENT C ALLOCATION, PREPARE TO PROCESS IT. C 240 CALL READ (*230,*230,SCR2,ZI(IDICT),NWDDCT,0,I) CALL CDCBUG (NHEMA1,240,ZI(IDICT),NWDDCT) DO 242 I = IGRID,NGRID,2 IF (ZI(I).GE.ZI(IPVT) .AND. ZI(I).LE.ZI(NPVT)) 1 GO TO KFACT, (244,245,246,247) 242 CONTINUE GO TO 240 244 FACTOR = 1.0 GO TO 248 245 FACTOR = ZS(IDICT+4) GO TO 248 246 FACTOR = WTMASS GO TO 248 247 FACTOR = WTMASS*ZS(IDICT+4) C C DECODE RELATIVE COLUMN NUMBERS C 248 IF (OLDCOD .EQ. ZI(IDICT+3)) GO TO 250 ICODE = ZI(IDICT+3) CALL DECODE (ICODE,SCALAS,NSCA) OLDCOD = ZI(IDICT+3) C C READ EACH COLUMN OF THE ELEMENT MATRIX. C ADD IT TO THE STRUCTURAL MATRIX. C 250 NWDCOL = PREC*ZI(IDICT+2) IF (ZI(IDICT+1) .EQ. 2) NWDCOL = PREC 252 II = IPVT + (ZI(I)-ZI(IPVT))*LPCB TT(1) = I TT(2) = ZI(I) TT(3) = NSCA CALL CDCBUG (NHEMA1,252,TT,3) CALL FILPOS (KELEM,ZI(I+1)) ICGVEC = ZI(II+6) IMAT = ZI(II+7) DO 254 J = 1,NSCA CALL FREAD (KELEM,ZI,NWDCOL,0) CALL CDCBUG(NHEMA1,254,ZI,NWDCOL) IF (PREC .EQ. 1) CALL EMA1S (J,NSCA,SCALAS,ZI(II),ZI(IDICT), 1 ZI(ICGVEC),ZI(IMAT),ZI,FACTOR) IF (PREC .EQ. 2) CALL EMA1D (J,NSCA,SCALAS,ZI(II),ZI(IDICT), 1 ZI(ICGVEC),ZI(IMAT),ZI,FACTOR) 254 CONTINUE 255 IF (I .EQ. NGRID) GO TO 240 I = I + 2 IF (ZI(I).GE.ZI(IPVT) .AND. ZI(I).LE.ZI(NPVT)) GO TO 252 GO TO 255 C C ALL COLUMNS OF STRUCTURAL MATRIX NOW ALLOCATED ARE COMPLETE. C OPEN KGG AND PACK COLUMNS. C 260 CALL CLOSE (SCR2,CLSREW) CALL CLOSE (KELEM,CLSREW) CALL GOPEN (KGG,ZI(BUF1),OPENW) DO 269 II = IPVT,NPVT,LPCB DOF = ZI(II+1) DOFG = ZI(II+2) NBRCON = ZI(II+3) ICGVEC = ZI(II+6) IMAT = ZI(II+7) II1 = ZI(II+4) II2 = ZI(II+5) KK = IMAT CALL CDCBUG (NHEMA1,260,ZI(IMAT),((II2-II1+1)*(DOF*DOFG))) C C PACK COLUMNS WITH BLDPK C DO 268 JJ = 1,DOF CALL BLDPK (PREC,PREC,KGG,BLOCK,1) IF (NBRCON .EQ. 0) GO TO 266 I = ICGVEC DO 264 J = II1,II2 IF (ZI(I) .EQ. 0) GO TO 263 K = ZI(ISIL0+J) N = K + MIN0(DOFG,ZI(ISIL0+J+1)-ZI(ISIL0+J)) - 1 LL = KK DO 262 SILNBR = K,N CALL BLDPKI (ZS(LL),SILNBR,KGG,BLOCK) LL = LL + PREC 262 CONTINUE KK = KK + DOFG*PREC 263 I = I + 1 264 CONTINUE 266 CALL BLDPKN (KGG,BLOCK,MCBKGG) 268 CONTINUE 269 CONTINUE CALL CLOSE (KGG,OPCLS) C C TEST FOR COMPLETION OF LAST PASS C IF (LAST) GO TO 310 OPENR = RD OPENW = WRT GO TO 150 C C KGG NOW COMPLETE -- WRITE ITS TRAILER. C 310 CONTINUE CALL WRTTRL (MCBKGG) RETURN C C FATAL ERRORS C 900 KERR = 112 GO TO 990 901 KERR = 114 GO TO 990 902 KERR = 172 GO TO 990 903 KERR = 174 GO TO 990 C C PROCESS LOGIC ERROR C 990 WRITE (NOUT,991) SFM,KERR 991 FORMAT (A25,' 3102, EMA1 LOGIC ERROR',I4) IF (MACH.EQ.2 .OR. MACH.EQ.5 .OR. MACH.EQ.21) KERR = -KERR CALL GPERR (SUBNAM,KERR) RETURN END ================================================ FILE: mis/ema1d.f ================================================ SUBROUTINE EMA1D( J, NSCA, SCALAS, PIVOT, DICT, CGV, KGG, CP, F ) C SUBROUTINE EMA1S( J, NSCA, SCALAS, PIVOT, DICT, CGV, KGG, CP, F ) C******* C EMA1S ADDS A COLUMN VECTOR IN REAL SINGLE PRECISION C EMA1D ADDS A COLUMN VECTOR IN REAL DOUBLE PRECISION C C J INDEX IN SCALAS TO CURRENT RELATIVE COLUMN NBR C NSCA NBR OF ROWS( TERMS ) PER GRID POINT IN COLUMN VECTOR C SCALAS ARRAY OF RELATIVE ROW/COLUMN NUMBERS C PIVOT 6-WORD ARRAY AS FOLLOWS... C (1) INTERNAL INDEX OF PIVOT C (2) DOF OF PIVOT C (3) DOF OF EACH POINT CONNECTED TO PIVOT C (4) NBR OF CONNECTED POINTS C (5) INTERNAL INDEX OF 1ST CONNECTED POINT C (6) INTERNAL INDEX OF LAST CONNECTED POINT C DICT DICTIONARY ENTRY FOR ELEMENT AS FOLLOWS... C (1) ELEMENT ID C (2) FORM( 1=RECT, 2=DIAG ) C (3) NBR OF TERMS PER COLUMN C (4) COMPONENT CODE( DECODED IN SCALAS ARRAY ) C (5) GE C (6) INTERNAL INDEX OF 1ST POINT C (7) GINO ADDR OF 1ST COLUMN PARTITION C .... C CGV CONNECTED GRID POINT VECTOR C KGG ADDR OF KGG COLUMNS FOR PIVOT C CP ADDR OF COLUMN PARTITION C F FACTOR( RSP ) TO BE APPLIED TO EACH TERM IN CP C C****** INTEGER SCALAS(1) ,PIVOT(6) ,DICT(7) ,CGV(1) C C REAL KGG(1), CP(1) DOUBLE PRECISION KGG(1), CP(1) C C INITIALIZE C ICOL0 = SCALAS(J)*PIVOT(3)*PIVOT(4) II0 = PIVOT(5) - 1 L = 1 IF( DICT(2) .NE. 2 ) GO TO 20 C C PROCESS DIAGONAL PARTITION C II = PIVOT(1) IMAT = ICOL0 + CGV(II-II0)+ SCALAS(J) KGG(IMAT) = KGG(IMAT) + F*CP(1) RETURN C C PROCESS RECTANGULAR PARTITION C 20 CONTINUE NGRID = 4 + 2*DICT(3)/NSCA DO 28 I=6,NGRID,2 K = DICT(I) IF( K.EQ. 0 ) RETURN IMAT = ICOL0 + CGV(K-II0) DO 26 K=1,NSCA M = SCALAS(K) KGG(IMAT+M) = KGG(IMAT+M) + F*CP(L) L = L + 1 26 CONTINUE 28 CONTINUE RETURN END ================================================ FILE: mis/ema1s.f ================================================ SUBROUTINE EMA1S( J, NSCA, SCALAS, PIVOT, DICT, CGV, KGG, CP, F ) C SUBROUTINE EMA1D( J, NSCA, SCALAS, PIVOT, DICT, CGV, KGG, CP, F ) C******* C EMA1S ADDS A COLUMN VECTOR IN REAL SINGLE PRECISION C EMA1D ADDS A COLUMN VECTOR IN REAL DOUBLE PRECISION C C J INDEX IN SCALAS TO CURRENT RELATIVE COLUMN NBR C NSCA NBR OF ROWS( TERMS ) PER GRID POINT IN COLUMN VECTOR C SCALAS ARRAY OF RELATIVE ROW/COLUMN NUMBERS C PIVOT 6-WORD ARRAY AS FOLLOWS... C (1) INTERNAL INDEX OF PIVOT C (2) DOF OF PIVOT C (3) DOF OF EACH POINT CONNECTED TO PIVOT C (4) NBR OF CONNECTED POINTS C (5) INTERNAL INDEX OF 1ST CONNECTED POINT C (6) INTERNAL INDEX OF LAST CONNECTED POINT C DICT DICTIONARY ENTRY FOR ELEMENT AS FOLLOWS... C (1) ELEMENT ID C (2) FORM( 1=RECT, 2=DIAG ) C (3) NBR OF TERMS PER COLUMN C (4) COMPONENT CODE( DECODED IN SCALAS ARRAY ) C (5) GE C (6) INTERNAL INDEX OF 1ST POINT C (7) GINO ADDR OF 1ST COLUMN PARTITION C .... C CGV CONNECTED GRID POINT VECTOR C KGG ADDR OF KGG COLUMNS FOR PIVOT C CP ADDR OF COLUMN PARTITION C F FACTOR( RSP ) TO BE APPLIED TO EACH TERM IN CP C C****** INTEGER SCALAS(1) ,PIVOT(6) ,DICT(7) ,CGV(1) C REAL KGG(1), CP(1) C DOUBLE PRECISION KGG(1), CP(1) C C INITIALIZE C ICOL0 = SCALAS(J)*PIVOT(3)*PIVOT(4) II0 = PIVOT(5) - 1 L = 1 IF( DICT(2) .NE. 2 ) GO TO 20 C C PROCESS DIAGONAL PARTITION C II = PIVOT(1) IMAT = ICOL0 + CGV(II-II0)+ SCALAS(J) KGG(IMAT) = KGG(IMAT) + F*CP(1) RETURN C C PROCESS RECTANGULAR PARTITION C 20 CONTINUE NGRID = 4 + 2*DICT(3)/NSCA DO 28 I=6,NGRID,2 K = DICT(I) IF( K.EQ. 0 ) RETURN IMAT = ICOL0 + CGV(K-II0) DO 26 K=1,NSCA M = SCALAS(K) KGG(IMAT+M) = KGG(IMAT+M) + F*CP(L) L = L + 1 26 CONTINUE 28 CONTINUE RETURN END ================================================ FILE: mis/emadtq.f ================================================ SUBROUTINE EMADTQ(NARG,MASS) C THE EMG MASS DOUBLE PRECISION ROUTINE FOR TRI S, QUAD S, TWIST + C SHEAR ELEMENTS C C THIS SUBROUTINE CALCULATES THE MASS MATRIX FOR THE ELEMENTS LISTED C BELOW C C NOTE THAT THE OUTPUT MASS MATRIX IS NOT ORDERED BY INCREASING SIL C DOUBLE PRECISION VERSION C C ****************************************************************** C E C P T L I S T I N G S C ************************** C MTWIST MQDMEM MTRMEM C MSHEAR MQUAD1 MQUAD2 MTRIA1 MTRBSC MTRIA2 C ********************************************************************** C ECPT( 1)ELEM. ID ELEM. ID ELEM. ID ELEM. ID ELEM. ID ELEM. ID C ECPT( 2)GR.PT. A GR.PT. A GR.PT. A GR.PT. A GR.PT. A GR.PT. A C ECPT( 3)GR.PT. B GR.PT. B GR.PT. B GR.PT. B GR.PT. B GR.PT. B C ECPT( 4)GR.PT. C GR.PT. C GR.PT. C GR.PT. C GR.PT. C GR.PT. C C ECPT( 5)GR.PT. D GR.PT. D GR.PT. D THETA THETA THETA C ECPT( 6)MAT ID THETA THETA MAT ID 1 MAT ID 1 MAT ID C ECPT( 7)T MAT ID 1 MAT ID T1 I T C ECPT( 8)N S MASS T1 T MAT ID 2 MAT ID 2 NS MASS C ECPT( 9)CSID 1 MAT ID 2 N S MASS I T2 CSID 1 C ECPT(10)X1 I CSID 1 MAT ID 3 N S MASS X1 C ECPT(11)Y1 MAT ID 3 X1 T2 Z1 Y1 C ECPT(12)Z1 T2 Y1 N S MASS Z2 Z1 C ECPT(13)CSID 2 N S MASS Z1 Z1 CSID 1 CSID 2 C ECPT(14)X2 Z1 CSID 2 Z2 X1 X2 C ECPT(15)Y2 Z2 X2 CSID 1 Y1 Y2 C ECPT(16)Z2 CSID 1 Y2 X1 Z1 Z2 C ECPT(17)CSID 3 X1 Z2 Y1 CSID 2 CSID 3 C ECPT(18)X3 Y1 CSID 3 Z1 X2 X3 C ECPT(19)Y3 Z1 X3 CSID 2 Y2 Y3 C ECPT(20)Z3 CSID 2 Y3 X2 Z2 Z3 C ECPT(21)CSID 4 X2 Z3 Y2 CSID 3 TEMP C ECPT(22)X4 Y2 CSID 4 Z2 X3 C ECPT(23)Y4 Z2 X4 CSID 3 Y3 C ECPT(24)Z4 CSID 3 Y4 X3 Z3 C ECPT(25)TEMP X3 Z4 Y3 TEMP C ECPT(26) Y3 TEMP Z3 C ECPT(27) Z3 TEMP C ECPT(28) CSID 4 C ECPT(29) X4 C ECPT(30) Y4 C ECPT(31) Z4 C ECPT(32) TEMP C ********************************************************************** C DOUBLE PRECISION MASS(100),V1(3),V2(3),V1XV2(3), X FMU, T, AREA , TERM, RHOD DIMENSION NECPT (7) INTEGER HEAT C COMMON /HMTOUT/ CP COMMON /MATIN/ MATID,INFLAG,ELTEMP COMMON /MATOUT/ RHO COMMON/SYSTEM/ KSYSTM(55),HEAT C COMMON / EMGEST/ ECPT(100) C EQUIVALENCE ( NECPT(1) , ECPT(1) ) EQUIVALENCE (IFLAG , ECPT(8) ) DATA PI23/2.0943952/ C C THIS ROUTINE COMPUTES A MASS MATRIX OF THE FOLLOWING FORM. C C MASS MATRIX = (T1,T1,T1,T2,T2,T2,T3,T3,T3,IF REQ-D T4,T4,T4) ) C C ******************* C NTYPE = 1 -MQDMEM- C NTYPE = 1 -MQUAD2- C NTYPE = 2 -MQUAD1- C NTYPE = 3 -MTRBSC- C NTYPE = 3 -MTRPLT- C NTYPE = 4 -MTRMEM- C NTYPE = 4 -MTRIA2- C NTYPE = 5 -MTRIA1- C NTYPE = 6 -MSHEAR- C NTYPE = 6 -MTWIST- C NTYPE = 7 -MQDPLT- C ******************* C NTYPE = NARG NDOF = 3 C C -MQDMEM- -MTRPLT-MTRMEM- -MTWIST- C -MQUAD2-MQUAD1-MTRBSC-MTRIA2-MTRIA1-MSHEAR-MQDPLT- GO TO(10,20,30,40,50,60,70),NTYPE C 10 NCSID = 10 NGRIDS = 4 MATID = NECPT(7) T = ECPT(8) FMU = ECPT(9) GO TO 80 C 20 NCSID = 16 NGRIDS = 4 MATID = NECPT(7) T = ECPT(8) FMU = ECPT(13) GO TO 80 C 30 NCSID = 13 NGRIDS = 3 MATID = NECPT( 6) T = 0.0E0 FMU = ECPT(10) GO TO 80 C 40 NCSID = 9 NGRIDS = 3 MATID = NECPT(6) T = ECPT(7) FMU = ECPT(8) GO TO 80 C 50 NCSID = 15 NGRIDS = 3 MATID = NECPT( 6) T = ECPT( 7) FMU = ECPT(12) GO TO 80 60 NCSID = 9 NGRIDS = 4 MATID = NECPT(6) T = ECPT(7) FMU = ECPT(8) GO TO 80 70 NCSID = 14 NGRIDS = 4 MATID = NECPT(7) T = 0.0E0 FMU = ECPT(11) C C 30 COMPUTE PIVOT TRIANGLE AREA C C FIRST SET UP THE POINTERS TO THE CSID OF THE 3 POINTS FROM THE C BASE CSID C 80 DO 250 NPVT = 1,NGRIDS NPT1 = 0 NPT2 = 4 NPT3 = 8 IF (NGRIDS .EQ. 3 ) GO TO 140 ICHEK = 1 C SELECT 3 POINTS FOR THE PIVOT TRIANGLE OF A QUADRILATERAL GO TO (110,140,130,120), NPVT 110 NPT3 = 12 GO TO 140 120 NPT2 = 12 GO TO 140 130 NPT1 = 12 C 140 DO 150 I=1,3 ISUB1 = NCSID + NPT1 + I ISUB2 = NCSID + NPT2 + I ISUB3 = NCSID + NPT3 + I V1(I) = ECPT(ISUB3) - ECPT(ISUB1) 150 V2(I) = ECPT(ISUB3) - ECPT(ISUB2) C C COMPUTE AREA OF QUAD OR TRI USING V1 AND V2 AREA= 0.D0 C 160 V1XV2(1) = V1(2) * V2(3) - V1(3) * V2(2) V1XV2(2) = V1(3) * V2(1) - V1(1) * V2(3) V1XV2(3) = V1(1) * V2(2) - V1(2) * V2(1) C AREA = AREA + DSQRT(V1XV2(1)**2 + V1XV2(2)**2 + V1XV2(3)**2)/2.D0 C IF (NGRIDS .EQ. 3) GO TO 190 IF( ICHEK ) 170,190,170 C C COMPUTE AREA OF WHOLE QUAD, FIRST SET UP V1 + V2 THEN TRA TO 600. C 170 IF ( NARG .NE. 1 .OR. IFLAG .NE. 1 ) GO TO 175 ISUB1 = NCSID + NPT1 + 1 ISUB2 = NCSID + NPT2 + 1 ISUB3 = NCSID + NPT3 + 1 T = PI23 * ( ECPT(ISUB1) + ECPT(ISUB2) + ECPT(ISUB3) ) 175 NPT1 = NCSID NPT2 = NCSID + 4 NPT3 = NCSID + 8 NPT4 = NCSID +12 DO 180 I=1,3 NPT1 = NPT1 + 1 NPT2 = NPT2 + 1 NPT3 = NPT3 + 1 NPT4 = NPT4 + 1 V1(I) = ECPT(NPT1) - ECPT(NPT3) 180 V2(I) = ECPT(NPT2) - ECPT(NPT4) ICHEK = 0 C GO TO 160 C ****************************************************************** C FINAL COMPUTATION OF TERM AND SHIP OUT OF MATRIX. C 190 CONTINUE IF( T ) 210,220,210 C RHO NOT NEEDED IF T = 0 C 210 INFLAG = 4 IF (HEAT .EQ. 1) GO TO 240 CALL MAT( ECPT(1) ) RHOD = RHO C C 220 TERM = (FMU + RHOD*T)* AREA/3.D0 IF (NGRIDS .EQ. 4) TERM = TERM/2. I1 = (NPVT-1)*3 + 1 I2 = I1 + 2 DO 230 I = I1,I2 230 MASS(I) = TERM GO TO 250 C C HEAT FORMULATION C 240 CALL HMAT(ECPT) CPD = CP MASS(NPVT) = (CPD*T)*AREA/3.D0 IF (NGRIDS .EQ. 4) MASS(NPVT) = MASS(NPVT) / 2. C 250 CONTINUE RETURN END ================================================ FILE: mis/emastq.f ================================================ SUBROUTINE EMASTQ (NARG,MASS) C C THIS SUBROUTINE CALCULATES THE MASS MATRIX FOR THE ELEMENTS LISTED C BELOW C C NOTE THAT MATRIX IS NOT ORDERED BY INCREASING SIL VALUE C NOTE THAT THE OUTPUT MASS MATRIX IS NOT ORDERED BY INCREASING SIL C SINGLE PRECISION VERSION C ****************************************************************** C E C P T L I S T I N G S C ************************** C MTWIST MQDMEM MTRMEM C MSHEAR MQUAD1 MQUAD2 MTRIA1 MTRBSC MTRIA2 C ********************************************************************** C ECPT( 1)ELEM. ID ELEM. ID ELEM. ID ELEM. ID ELEM. ID ELEM. ID C ECPT( 2)GR.PT. A GR.PT. A GR.PT. A GR.PT. A GR.PT. A GR.PT. A C ECPT( 3)GR.PT. B GR.PT. B GR.PT. B GR.PT. B GR.PT. B GR.PT. B C ECPT( 4)GR.PT. C GR.PT. C GR.PT. C GR.PT. C GR.PT. C GR.PT. C C ECPT( 5)GR.PT. D GR.PT. D GR.PT. D THETA THETA THETA C ECPT( 6)MAT ID THETA THETA MAT ID 1 MAT ID 1 MAT ID C ECPT( 7)T MAT ID 1 MAT ID T1 I T C ECPT( 8)N S MASS T1 T MAT ID 2 MAT ID 2 NS MASS C ECPT( 9)CSID 1 MAT ID 2 N S MASS I T2 CSID 1 C ECPT(10)X1 I CSID 1 MAT ID 3 N S MASS X1 C ECPT(11)Y1 MAT ID 3 X1 T2 Z1 Y1 C ECPT(12)Z1 T2 Y1 N S MASS Z2 Z1 C ECPT(13)CSID 2 N S MASS Z1 Z1 CSID 1 CSID 2 C ECPT(14)X2 Z1 CSID 2 Z2 X1 X2 C ECPT(15)Y2 Z2 X2 CSID 1 Y1 Y2 C ECPT(16)Z2 CSID 1 Y2 X1 Z1 Z2 C ECPT(17)CSID 3 X1 Z2 Y1 CSID 2 CSID 3 C ECPT(18)X3 Y1 CSID 3 Z1 X2 X3 C ECPT(19)Y3 Z1 X3 CSID 2 Y2 Y3 C ECPT(20)Z3 CSID 2 Y3 X2 Z2 Z3 C ECPT(21)CSID 4 X2 Z3 Y2 CSID 3 TEMP C ECPT(22)X4 Y2 CSID 4 Z2 X3 C ECPT(23)Y4 Z2 X4 CSID 3 Y3 C ECPT(24)Z4 CSID 3 Y4 X3 Z3 C ECPT(25)TEMP X3 Z4 Y3 TEMP C ECPT(26) Y3 TEMP Z3 C ECPT(27) Z3 TEMP C ECPT(28) CSID 4 C ECPT(29) X4 C ECPT(30) Y4 C ECPT(31) Z4 C ECPT(32) TEMP C ********************************************************************** C REAL MASS(100),V1(3),V2(3),V1XV2(3) DIMENSION NECPT (7) INTEGER HEAT COMMON /HMTOUT/ CP COMMON /MATIN / MATID,INFLAG,ELTEMP COMMON /MATOUT/ RHO COMMON /SYSTEM/ KSYSTM(55),HEAT COMMON /EMGEST/ ECPT(100) C COMMON /EMGPRM/ DUM(16),IMASS,IDAMP,IPREC,NOGO C C EQUIVALENCE (NECPT(1), ECPT(1)) EQUIVALENCE (IFLAG , ECPT(8)) DATA PI23 / 2.0943952/ C C THIS ROUTINE COMPUTES A MASS MATRIX OF THE FOLLOWING FORM. C C MASS MATRIX = (T1,T1,T1,T2,T2,T2,T3,T3,T3,IF REQ-D T4,T4,T4) ) C C ******************* C NTYPE = 1 -MQDMEM- C NTYPE = 1 -MQUAD2- C NTYPE = 2 -MQUAD1- C NTYPE = 3 -MTRBSC- C NTYPE = 3 -MTRPLT- C NTYPE = 4 -MTRMEM- C NTYPE = 4 -MTRIA2- C NTYPE = 5 -MTRIA1- C NTYPE = 6 -MSHEAR- C NTYPE = 6 -MTWIST- C NTYPE = 7 -MQDPLT- C ******************* C NTYPE = NARG NDOF = 3 C C -MQDMEM- -MTRPLT-MTRMEM- -MTWIST- C -MQUAD2-MQUAD1-MTRBSC-MTRIA2-MTRIA1-MSHEAR-MQDPLT- GO TO(10,20,30,40,50,60,70),NTYPE C 10 NCSID = 10 NGRIDS = 4 MATID = NECPT(7) T = ECPT(8) FMU = ECPT(9) GO TO 80 C 20 NCSID = 16 NGRIDS = 4 MATID = NECPT(7) T = ECPT(8) FMU = ECPT(13) GO TO 80 C 30 NCSID = 13 NGRIDS = 3 MATID = NECPT( 6) T = 0.0E0 FMU = ECPT(10) GO TO 80 C 40 NCSID = 9 NGRIDS = 3 MATID = NECPT(6) T = ECPT(7) FMU = ECPT(8) GO TO 80 C 50 NCSID = 15 NGRIDS = 3 MATID = NECPT( 6) T = ECPT( 7) FMU = ECPT(12) GO TO 80 60 NCSID = 9 NGRIDS = 4 MATID = NECPT(6) T = ECPT(7) FMU = ECPT(8) GO TO 80 70 NCSID = 14 NGRIDS = 4 MATID = NECPT(7) T = 0.0E0 FMU = ECPT(11) C C 30 COMPUTE PIVOT TRIANGLE AREA C C FIRST SET UP THE POINTERS TO THE CSID OF THE 3 POINTS FROM THE C BASE CSID C 80 DO 250 NPVT = 1,NGRIDS NPT1 = 0 NPT2 = 4 NPT3 = 8 IF (NGRIDS .EQ. 3 ) GO TO 140 ICHEK = 1 C SELECT 3 POINTS FOR THE PIVOT TRIANGLE OF A QUADRILATERAL GO TO (110,140,130,120), NPVT 110 NPT3 = 12 GO TO 140 120 NPT2 = 12 GO TO 140 130 NPT1 = 12 C 140 DO 150 I=1,3 ISUB1 = NCSID + NPT1 + I ISUB2 = NCSID + NPT2 + I ISUB3 = NCSID + NPT3 + I V1(I) = ECPT(ISUB3) - ECPT(ISUB1) 150 V2(I) = ECPT(ISUB3) - ECPT(ISUB2) C C COMPUTE AREA OF QUAD OR TRI USING V1 AND V2 AREA = 0.0E0 C 160 V1XV2(1) = V1(2) * V2(3) - V1(3) * V2(2) V1XV2(2) = V1(3) * V2(1) - V1(1) * V2(3) V1XV2(3) = V1(1) * V2(2) - V1(2) * V2(1) C AREA = AREA + SQRT(V1XV2(1)**2 + V1XV2(2)**2 + V1XV2(3)**2)/2.0E0 C IF (NGRIDS .EQ. 3) GO TO 190 IF( ICHEK ) 170,190,170 C C COMPUTE AREA OF WHOLE QUAD, FIRST SET UP V1 + V2 THEN TRA TO 600. C 170 IF ( NARG .NE. 1 .OR. IFLAG .NE. 1 ) GO TO 175 ISUB1 = NCSID + NPT1 + 1 ISUB2 = NCSID + NPT2 + 1 ISUB3 = NCSID + NPT3 + 1 T = PI23 * ( ECPT(ISUB1) + ECPT(ISUB2) + ECPT(ISUB3) ) 175 NPT1 = NCSID NPT2 = NCSID + 4 NPT3 = NCSID + 8 NPT4 = NCSID +12 DO 180 I=1,3 NPT1 = NPT1 + 1 NPT2 = NPT2 + 1 NPT3 = NPT3 + 1 NPT4 = NPT4 + 1 V1(I) = ECPT(NPT1) - ECPT(NPT3) 180 V2(I) = ECPT(NPT2) - ECPT(NPT4) ICHEK = 0 C GO TO 160 C ****************************************************************** C FINAL COMPUTATION OF TERM AND SHIP OUT OF MATRIX. C 190 CONTINUE IF( T ) 210,220,210 C RHO NOT NEEDED IF T = 0 C 210 INFLAG = 4 IF (HEAT .EQ. 1) GO TO 240 CALL MAT( ECPT(1) ) C C 220 TERM = ( FMU + RHO * T ) * AREA / 3.0E0 IF (NGRIDS .EQ. 4) TERM = TERM/2. I1 = (NPVT-1)*3 + 1 I2 = I1 + 2 DO 230 I = I1,I2 230 MASS(I) = TERM GO TO 250 C C HEAT FORMULATION C 240 CALL HMAT(ECPT) MASS (NPVT) = (CP*T) * AREA/3. IF (NGRIDS .EQ. 4) MASS(NPVT) = MASS(NPVT) / 2. C 250 CONTINUE RETURN END ================================================ FILE: mis/emfld.f ================================================ SUBROUTINE EMFLD C C SEE T01191A =========== C COMPUTES TOTAL MAGNETIC FIELD STRENGTH AND INDUCTION FOR C EACH ELEMENT IN BASIC COORDINATES BY ADDING HM AND HC C C EMFLD HOEF1,HEST,CASECC,HCFLD,MPT,DIT,REMFLD,GEOM1,CSTM,HCCEN/ C HOEH1/V,N,HLUSET $ C INTEGER HEST,HOEH1,HOEF1,CASECC,ESTFLD,HLUSET,DIT, 1 FILE,BUF1,BUF2,BUF3,BUF4,BUF5,SYSBUF,OTPE,TYPOUT, 2 ELTYPE,SUBCAS,ELID,OLDCAS,OLDEID,STRSPT, 3 REMFL,BUF6,IDUM(2),GEOM1,CSTM,HCCEN,HCOUNT DIMENSION COORD(4),ICOORD(4),TA(9),TEMP(3),MCB(7),HMG(3), 1 HM(3),HC(3),IBUF(150),RBUF(150),NAM(2),IZ(1),ZN(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / HLUSET COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1) COMMON /SYSTEM/ SYSBUF,OTPE COMMON /UNPAKX/ TYPOUT,II,NN,INCUR COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (RBUF(1),IBUF(1)),(COORD(1),ICOORD(1)), 1 (Z(1),IZ(1)) DATA HOEF1 , HEST,CASECC,MPT,DIT/ 101,102,103, 105,106/ DATA REMFL , GEOM1,CSTM,HCCEN / 107,108,109, 110 / DATA ESTFLD, HOEH1/301,201 / DATA NAM / 4HEMFL,4HD /, ZN/ 4HHOEH,4H1 / DATA HEX1 , HEX2, HEX3 / 4HHEX1,4HHEX2,4HHEX3 / C C CHECK TO SEE IF HOEF1 EXISTS. IF NOT, THEN NO MAG. FIELD REQUESTS C MCB(1) = HOEF1 CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 600 MCB(1) = HCCEN CALL RDTRL (MCB) NN = MCB(3) IF (MCB(1) .GT. 0) GO TO 20 NN = 0 MCB(1) = REMFL CALL RDTRL (MCB) IF (MCB(1) .GT. 0) GO TO 20 WRITE (OTPE,10) UWM 10 FORMAT (A25,', DATA BLOCKS HCFLD AND REMFL ARE PURGED IN EM ', 1 'PROBLEM. ALL RESULTS ARE ZERO') GO TO 600 C 20 MCB(1) = HEST CALL RDTRL (MCB) NELX = 3*MCB(2) C TYPOUT = 1 II = 1 INCUR = 1 C C CREATE ESTFLD WHICH LOOKS LIKE HEST BUT CONTAINS ONLY TYPE, ID, C NUMBER OF SILS,SILS,3 X 3 MATERAIL MATRIX,AND 3 X 3 TRANSFORMATION C MATRIX FROM LOCAL TO BASIC,BFIELD,AND COORDS OF STRESS POINT FOR C NON-RECTANGULAR BFIELD C CALL ESTMAG (HEST,ESTFLD,MPT,DIT,GEOM1,IANY,KCOUNT) C C KCOUNT SHOULD BE NUMBER OF TERMS IN ROW OF HCCEN C IF (NN .EQ. 0) NN = KCOUNT IF (NN .NE. KCOUNT) GO TO 500 NROWS = NN C C NOW FETCH HC AT EACH POINT FROM HCFLD C LCORE = KORSZ(Z) BUF1 = LCORE- SYSBUF + 1 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF BUF5 = BUF4 - SYSBUF BUF6 = BUF5 - SYSBUF LCORE = BUF6 - 1 IF (LCORE .LE. 0) GO TO 550 C NCOUNT = 0 OLDCAS = 0 HCOUNT = 0 C C COPY HEADER FROM HOEF1 TO HOEH1 C FILE = HOEH1 CALL OPEN (*520,HOEH1,Z(BUF5),1) FILE = HOEF1 CALL OPEN (*520,HOEF1,Z(BUF4),0) CALL READ (*530,*30,HOEF1,Z,LCORE,0,IWORDS) GO TO 550 30 Z(1) = ZN(1) I = 2 Z(I) = ZN(2) CALL WRITE (HOEH1,Z,IWORDS,1) C C OPEN CSTM FOR NON-BASIC COORDINATE SYSTEM C NCSTM = 0 IF (IANY .EQ. 0) GO TO 50 CALL GOPEN (CSTM,Z(BUF1),0) CALL READ (*530,*40,CSTM,Z,LCORE,0,NCSTM) GO TO 550 40 CALL CLOSE (CSTM,1) CALL PRETRS (Z(1),NCSTM) C 50 NNCR = NCSTM + NROWS NALL = NNCR + NELX CALL GOPEN (CASECC,Z(BUF1),0) CALL GOPEN (HCCEN,Z(BUF2),0) CALL GOPEN (ESTFLD,Z(BUF3),0) CALL GOPEN (REMFL,Z(BUF6),0) C C READ ID RECORD FROM HOEF1. COPY TO HOEH1, EXCEPT CHANGE NUMBER OF C WORDS FROM +9 TO -9 AS AN INDICATOR FOR TITLES IN OFP. (+9 IS FOR C HEAT TRANSFER) ALSO PICK UP SUBCASE NUMBER AND ELEMENT TYPE. IF C SAME SUBCASE AS PREVIUUS ONE, USE SAME HCFLD VECTOR. IF NOT, C CREATE A NEW ONE C 60 CALL READ (*410,*540,HOEF1,IBUF,146,1,IWORDS) IBUF(10) = -9 CALL WRITE (HOEH1,IBUF,146,1) ELTYPE = IBUF(3) SUBCAS = IBUF(4) OLDEID = 0 IF (SUBCAS .EQ. OLDCAS) GO TO 260 OLDCAS = SUBCAS NCOUNT = 0 HCOUNT = 0 CALL REWIND (ESTFLD) FILE = ESTFLD CALL FWDREC (*530,ESTFLD) C C IF THIS SUBCASE IS NOT A SUBCOM, UNPACK NEXT COLUMN OF HCFLD. IF C IT IS A SUBCOM, BCKREC HCFLD THE SAME NUMBER OF RECORDS AS THERE C ARE FACTORS ON THE SUBSEQ AND COMBINE VECTORS TO PRODUCE ONE C VECTOR. C IF (LCORE .LT. 16) GO TO 550 70 FILE = CASECC CALL READ (*530,*540,CASECC,Z(NCSTM+1),16,0,IWORDS) IF (IZ(NCSTM+1) .EQ. SUBCAS) GO TO 80 CALL FWDREC (*530,CASECC) FILE = HCCEN CALL FWDREC (*530,HCCEN) FILE = REMFL CALL FWDREC (*530,REMFL) GO TO 70 C C MATCH ON SUBCASE ID. SEE HOW LONG THE RECORD IS C 80 IF (IZ(NCSTM+16) .EQ. 0) GO TO 200 C C SUBCOM UNLESS IZ(16).LT.0. IN WHICH CASE IT IS A REPEAT SUBCASE C IF (IZ(NCSTM+16) .GT. 0) GO TO 90 CALL BCKREC (HCCEN) CALL BCKREC (REMFL) GO TO 200 C C SUBCOM. GET NUMBER OF FACTORS AND BCKREC THAT MANY RECORDS ON C HCFLD C C OPEN CORE (AFTER NCSTM WORDS OF CSTM) C 1 - NEXTZ CASECC C NEXTZ+1 - NEXTZ+NROWS COLUMN OF HCCEN C NEXTZ+NROWS+1 - NEXTZ+2*NROWS=NEXTP HCCEN COMBINATION C NEXTP+1 - NEXTP+NELX COLUMN OF REMFL C NEXTP+NELX+1 - NEXTP+2*NELX REMFL COMBINATION C 90 CALL READ (*530,*100,CASECC,Z(NCSTM+17),LCORE,0,IWORDS) GO TO 550 100 LCC = IZ(NCSTM+166) LSYM = IZ(NCSTM+LCC) DO 110 I = 1,LSYM CALL BCKREC (HCCEN) CALL BCKREC (REMFL) 110 CONTINUE NEXTZ = IWORDS + 16 + NCSTM NROWS2 = 2*NROWS NEXTR = NEXTZ + NROWS NELX2 = 2*NELX NALL2 = NROWS2 + NELX2 NEXTP = NEXTZ + NROWS2 ISUB = NEXTP + NELX IF (NEXTZ+NALL2 .GT. LCORE) GO TO 550 C C SET UP FOR SUBSEQ C DO 120 I = 1,NALL2 120 Z(NEXTZ+I) = 0. DO 170 I = 1,LSYM COEF = Z(NCSTM+LCC+I) IF (COEF .EQ. 0.) GO TO 160 NN = NROWS CALL UNPACK (*140,HCCEN,Z(NEXTZ+1)) DO 130 J = 1,NROWS Z(NEXTR+J) = Z(NEXTR+J) + COEF*Z(NEXTZ+J) 130 CONTINUE 140 NN = NELX CALL UNPACK (*170,REMFL,Z(NEXTP+1)) DO 150 J = 1,NELX Z(ISUB+J) = Z(ISUB+J) + COEF*Z(NEXTP+J) 150 CONTINUE GO TO 170 C C COEF = 0. C 160 FILE = HCCEN CALL FWDREC (*530,HCCEN) FILE = REMFL CALL FWDREC (*530,REMFL) 170 CONTINUE C C MOVE THE VECTOR IN CORE C DO 180 I = 1,NROWS 180 Z(NCSTM+I) = Z(NEXTR+I) DO 190 I = 1,NELX 190 Z(NNCR+I) = Z(ISUB+I) GO TO 260 C C NOT A SUBCOM C UNPACK A COLUMN OF HCFLD. FIRST SKIP TO NEXT RECORD ON CASECC C 200 FILE = CASECC CALL FWDREC (*530,CASECC) NN = NROWS CALL UNPACK (*210,HCCEN,Z(NCSTM+1)) GO TO 230 210 DO 220 I = 1,NROWS 220 Z(NCSTM+I) = 0. 230 NN = NELX CALL UNPACK (*240,REMFL,Z(NNCR+1)) GO TO 260 240 DO 250 I = 1,NELX 250 Z(NNCR+I) = 0. C C HCFLD VECTOR IS IN Z(NCSTM+1)-Z(NCSTM+NROWS=NNCR) AND REMFL IS IN C Z(NNCR+1)-Z(NNCR+NELX). MATCH ELEMENT TYPE ON HOEF1 WITH ESTFLD C 260 FILE = ESTFLD 270 CALL READ (*530,*540,ESTFLD,IEL,1,0,IWORDS) IEX = 3 IF (IEL.EQ.66 .OR. IEL.EQ.67) IEX = 63 IF (IEL .EQ. 65) IEX = 27 IPTS = IEX/3 C C SINCE IS2D8 HAS 9 POINTS ON HCCEN BUT ONLY ONE ON HEOF1 AND ESTFLD C RESET IPTS C IF (IEL .EQ. 80) IPTS = 9 IF (IEL .EQ. ELTYPE) GO TO 290 C C NO MATCH. SKIP TO NEXT RECORD, BUT KEEP UP WITH NCOUNT C 280 CALL READ (*530,*270,ESTFLD,IDUM,2,0,IWORDS) CALL FREAD (ESTFLD,IDUM,-(IDUM(2)+19+IEX),0) NCOUNT = NCOUNT + 1 HCOUNT = HCOUNT + IPTS GO TO 280 C C MATCH ON ELEMENT TYPE. FIND A MATCH ON ELEMENT ID C 290 FILE = HOEF1 CALL READ (*530,*380,HOEF1,RBUF,9,0,IWORDS) ELID = IBUF(1)/10 FILE = ESTFLD C C NEXT STATEMENT IS FOR ISOPARAMETRICS WHICH HAVE MULTIPLE POINTS C ON HOEF1, BUT ONLY ONE SET OF INFO ON ESTFLD(BUT MULTIPLE COORDS C FOR NON-BASIC COORDINATE SYSTEMS). IF MATERIAL IS ALLOWED TO BE C TEMPERATURE-DEPENDENT AT SOME LATER DATE IN MAGNETICS PROBLEMS, C THEN ESTFLD WILL HAVE MULTIPLE INFO. WRIITEN IN ESTMAG AND THIS C STATEMENT CAN BE DELETED C IF (OLDEID .NE. 0) GO TO 310 C 300 CALL READ (*530,*540,ESTFLD,IZ(NALL+1),2,0,IWORDS) NCOUNT = NCOUNT + 1 HCOUNT = HCOUNT + IPTS IELID = IZ(NALL+1) NGRIDS = IZ(NALL+2) NWORDS = NGRIDS + 19 + IEX IF (NALL+NWORDS .GT. LCORE) GO TO 550 CALL READ (*530,*540,ESTFLD,Z(NALL+1),NWORDS,0,IWORDS) C IF (ELID.EQ.IELID) GO TO 310 GO TO 300 C C MATCH ON ELEMENT ID. PICK UP HM FROM HOEF1(IN ELEMENT COORDS) C PICK UP 3 X 3 TRANSFORMATION MATRIX FROM ESTFLD TO CONVERT ELEMENT C SYSTEM TO BASIC. THEN MULTIPLY C 310 HM(1) = RBUF(4) HM(2) = RBUF(5) HM(3) = RBUF(6) CWKBNB 8/94 ALPHA-VMS ITYPE = NUMTYP( HM(2) ) IF ( ITYPE .LE. 1 ) HM(2) = 0. ITYPE = NUMTYP( HM(3) ) IF ( ITYPE .LE. 1 ) HM(3) = 0. CWKBNE 8/94 ALPHA-VMS CALL GMMATS (Z(NALL+NGRIDS+10),3,3,0,HM,3,1,0,HMG) C C PICK UP HC FROM HCCEN VECTOR. FOR ALL EXCEPT ISOPARAMETRICS,HCOUNT C POINTS TO THE Z COMPONENT OF PROPER HC WHICH STARTS AT Z(NCSTM+1) C IF (RBUF(2).NE.HEX1 .AND. RBUF(2).NE.HEX2 .AND. RBUF(2).NE.HEX3) 1 GO TO 330 C C ISOPARAMETRIC SOLIDS C IF (OLDEID .EQ. ELID) GO TO 320 OLDEID = ELID STRSPT = 0 320 STRSPT = STRSPT + 1 IF (STRSPT .GE. 21) OLDEID = 0 IF (RBUF(2).EQ.HEX1 .AND. STRSPT.GE.9) OLDEID = 0 GO TO 340 330 STRSPT = 1 C C NEXT LINE IS FOR IS2D8 WHICH HAS 9 POINTS ON HCCEN BUT ONE ON C ESTFLD C IF (IEL .EQ. 80) STRSPT = 9 340 ISUB = NCSTM + 3*(HCOUNT-IPTS+STRSPT-1) HC(1) = Z(ISUB+1) HC(2) = Z(ISUB+2) HC(3) = Z(ISUB+3) C DO 350 I = 1,3 350 RBUF(I+3) = HMG(I) + HC(I) C C TO GET INDUCTION B, MULTIPLY H BY MATERIALS C CALL GMMATS (Z(NALL+NGRIDS+1),3,3,0,RBUF(4),3,1,0,RBUF(7)) C C ADD IN REMANENCE Z(NNCR+1)-Z(NNCR+NELX) C ISUB = NNCR + 3*NCOUNT - 3 RBUF(7) = RBUF(7) + Z(ISUB+1) RBUF(8) = RBUF(8) + Z(ISUB+2) RBUF(9) = RBUF(9) + Z(ISUB+3) C C CHECK FOR REQUEST FOR NON-BASIC COORD. SYSTEM. TA TRANSFORMS TO C BASIC C IFIELD = IZ(NALL+NGRIDS+19) IF (IFIELD .EQ. 0) GO TO 370 ICOORD(1) = IFIELD C C NEXT LINE IS FOR IS2D8 WHICH ONLY ONE POINT ON ESTFLD C IF (IEL .EQ. 80) STRSPT = 1 ISUB = NALL + NGRIDS + 19 + 3*STRSPT - 3 COORD(2) = Z(ISUB+1) COORD(3) = Z(ISUB+2) COORD(4) = Z(ISUB+3) CALL TRANSS (COORD,TA) CALL GMMATS (TA,3,3,1,RBUF(7),3,1,0,TEMP) DO 360 I = 1,3 360 RBUF(I+6) = TEMP(I) C 370 CONTINUE C C WRITE OUT TO HOEH1 C CALL WRITE (HOEH1,RBUF,9,0) C C GET ANOTHER ELEMENT OF THIS TYPE IN THIS SUBCASE C GO TO 290 C C END OF ELEMENTS OF PRESENT TYPE AND/OR SUBCASE ON HOEF1 C 380 CALL WRITE (HOEH1,0,0,1) FILE = ESTFLD C C SKIP RECORD BUT KEEP UP WITH NCOUNT C 390 CALL READ (*530,*400,ESTFLD,IDUM,2,0,IWORDS) CALL FREAD (ESTFLD,IDUM,-(IDUM(2)+19+IEX),0) NCOUNT = NCOUNT + 1 HCOUNT = HCOUNT + IPTS GO TO 390 400 FILE = HOEF1 GO TO 60 C C EOF ON HOEF1 - ALL DONE C 410 CALL CLOSE (CASECC,1) CALL CLOSE (HCCEN,1) CALL CLOSE (ESTFLD,1) CALL CLOSE (HOEF1,1) CALL CLOSE (REMFL,1) CALL CLOSE (HOEH1,1) MCB(1) = HOEF1 CALL RDTRL (MCB) MCB(1) = HOEH1 CALL WRTTRL (MCB) GO TO 600 C C FATAL ERROR MESSAGES C 500 WRITE (OTPE,510) SFM 510 FORMAT (A25,', ROW COUNT ON HCCEN IN EMFLD IS NOT CONSISTENT') CALL MESAGE (-61,0,0) 520 N = -1 GO TO 560 530 N = -2 GO TO 560 540 N = -3 GO TO 560 550 N = -8 FILE = 0 560 CALL MESAGE (N,FILE,NAM) C 600 RETURN END ================================================ FILE: mis/emg.f ================================================ SUBROUTINE EMG C C ELEMENT-MATRIX-GENERATOR MAIN DRIVING ROUTINE. C C DMAP SEQUENCE C C EMG, EST,CSTM,MPT,DIT,GEOM2, /KMAT,KDICT, MMAT,MDICT, BMAT,BDICT/ C V,N,NOKGG/V,N,NOMGG/V,N,NOBGG/V,N,NOK4GG/V,N,NOKDGG/ C C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/ C C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CQDPLT/C,Y,CPTRPLT/ C C,Y,CPTRBSC/V,Y,VOLUME/V,Y,SURFACE $ C LOGICAL ERROR, ANYCON, NOGO, HEAT, LINEAR INTEGER Z, EST, CSTM, DIT, GEOM2, DICTN INTEGER PRECIS, CMASS, FLAGS, NAME(2) DIMENSION IBUF(7),MCB(7) COMMON /BLANK / NOK, NOM, NOB, NOK4GG, NOKDGG, CMASS COMMON /EMGPRM/ ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT, 1 IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG, 2 ANYCON, FLAGS(3), PRECIS, ERROR, HEAT, ICMBAR, 3 LCSTM, LMAT, LHMAT, KFLAGS(3), L38 COMMON /ZZZZZZ/ Z(1) COMMON /EMGFIL/ EST, CSTM, MPT, DIT, GEOM2, MATS(3), DICTN(3) COMMON /HMATDD/ SKP(4), LINEAR COMMON /SYSTEM/ KSYSTM(65) COMMON /MACHIN/ MACH EQUIVALENCE (KSYSTM(3),NOGO), (KSYSTM(55),IPRECI), 1 (KSYSTM(2),NOUT), (KSYSTM(56),NOHEAT) DATA NAME / 4HEMG ,4H / C C SET EMG PRECISION FLAG TO SYSTEM PRECISION FLAG C PRECIS = IPRECI C C IF .NOT.1 .AND. .NOT.2 DEFAULT EMG PRECISION TO SINGLE C IF (PRECIS.LT.1 .OR. PRECIS.GT.2) PRECIS = 1 C C HEAT FORMULATION C HEAT = .FALSE. IF (NOHEAT .LE. 0) GO TO 2 HEAT = .TRUE. LINEAR = .TRUE. NOKDGG = -1 C C TEST FOR NO SIMPLE ELEMENTS C 2 NOGO = .FALSE. MCB(1) = 101 CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 3 IF (MCB(2).NE.0 .OR. MCB(5).NE.0 .OR. MCB(6).NE.0 .OR. 1 MCB(7).NE.0) GO TO 5 3 NOK = -1 NOM = -1 NOB = -1 NOK4GG = -1 RETURN C C SET OPEN CORE C 5 NCORE = KORSZ(Z(1)) ICORE = 3 IF (MACH.EQ.3 .OR. MACH.EQ.4) CALL EMGSOC (ICORE,NCORE,HEAT) NCORE = NCORE - 1 JCORE = ICORE C C SET WORKING CORE TO ALL ZEROS C DO 10 I = ICORE,NCORE Z(I) = 0 10 CONTINUE C C THIS MODULE WILL SET NOK4GG = -1 . IF DURING EXECUTION A NON-ZERO C DAMPING CONSTANT IS DETECTED IN A DICTIONARY BY EMGOUT, NOK4GG C WILL BE SET TO 1 C C A DMAP DETERMINATION CAN THEN BE MADE WHETHER OR NOT TO HAVE EMA C FORM THE K4GG MATRIX C NOK4GG = -1 C C SET GINO FILE NUMBERS C EST = 101 CSTM = 102 MPT = 103 DIT = 104 GEOM2 = 105 DO 20 I = 1,3 MATS(I) = 199 + 2*I DICTN(I) = MATS(I) + 1 20 CONTINUE ERROR = .FALSE. C C IF DIAG 38 IS ON, PRINT TOTAL TIME (IN SECONDS) USED BY EMGPRO C AND MESSAGES 3113 AND 3107 WHILE PRPCESSING ELEMENTS C CALL SSWTCH (38,L38) C C READ AND SETUP INTO CORE MISC. TABLES. C E.G. MPT, CSTM, DIT, ETC. C CALL EMGTAB C C PROCESS ANY CONGRUENT DATA CARDS AND BUILD TABLE IN OPEN CORE. C CALL EMGCNG C C SETUP BALANCE OF CORE WITH REQUIRED BUFFERS AND OPEN C REQUIRED DATA BLOCKS. C CALL EMGCOR (IBUF) C C PASS THE EST AND WRITE THE OUTPUT DATA BLOCKS. C IF (L38 .EQ. 1) CALL KLOCK (I) CALL EMGPRO (IBUF) IF (L38 .EQ. 0) GO TO 40 CALL KLOCK (J) J = J - I WRITE (NOUT,30) J 30 FORMAT (///,34H *** EMG ELEMENT PROCESSING TIME =,I10,8H SECONDS) C C WRAP-UP OPERATIONS. C 40 CALL EMGFIN IF (NOGO .OR. ERROR) CALL MESAGE (-37,0,NAME) RETURN END ================================================ FILE: mis/emg1b.f ================================================ SUBROUTINE EMG1B (BUF,SIL,II,FILE,DAMPC) C C THIS ROUTINE REPLACES SMA1B AND GROUPS TOGETHER THE C SUB-PARTITIONS OF A PIVOT-PARTITION. C C THE SUB-PARTIONS ARE ARRANGED IN CORE BY ASCENDING SILS OF THE C ELEMENT INVOLVED. C LOGICAL ANYCON, ERROR, DOUBLE, LAST, HEAT INTEGER Z, ZBASE, POSVEC, PRECIS, ROWSIZ, FILE, 1 ELTYPE, ELID, DICT, OUTPT, ESTID, 2 FILTYP, SIL, SILS, SUBR(2), FLAGS REAL RZ(1) DOUBLE PRECISION DZ(1), DAMPC, BUF(1) CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON /XMSSG / UFM, UWM, UIM, SFM COMMON /EMGPRM/ ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT, 1 IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG, 2 ANYCON, FLAGS(3), PRECIS, ERROR, HEAT, ICMBAR, 3 LCSTM, LMAT, LHMAT COMMON /EMG1BX/ NSILS, POSVEC(10), IBLOC, NBLOC, IROWS, DICT(15), 1 FILTYP, SILS(10), LAST COMMON /EMGDIC/ ELTYPE, LDICT, NLOCS, ELID, ESTID COMMON /SMA1IO/ SMAIO(36) COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ KSYSTM(65) COMMON /IEMG1B/ ICALL, ILAST C EQUIVALENCE (KSYSTM(2), OUTPT) EQUIVALENCE (Z(1), DZ(1), RZ(1)), (C, IC) EQUIVALENCE (SMAIO(13), IF4GG) C DATA SUBR / 4HEMG1,4HB / C IF (ERROR) RETURN IF (SIL .EQ. -1111111) GO TO 155 DOUBLE = .FALSE. IF (PRECIS .EQ. 2) DOUBLE = .TRUE. ICALL = ICALL + 1 C C IF -FILE- EQUALS IF4GG FOR THE OLD ELEMENTS, THEN THE ELEMENT C DAMPING CONSTANT SENT IS PLACED IN THE DICTIONARY AND A SIMPLE C RETURN IS MADE. C IF (HEAT) GO TO 10 IF (FILE .NE. IF4GG) IF (II) 20,20,10 C = DAMPC DICT(5) = IC ICALL = ICALL - 1 RETURN C 10 IROWS = 1 DICT(4) = 1 GO TO 30 20 IROWS = 6 DICT(4) = 63 30 IF (ICALL .GT. 1) GO TO 70 ROWSIZ = NSILS*IROWS DICT(3) = ROWSIZ IBLOC = JCORE + MOD(JCORE+1,2) IF (DICT(2) .EQ. 2) GO TO 40 NBLOC = IBLOC + ROWSIZ*IROWS*PRECIS - 1 GO TO 50 40 NBLOC = IBLOC + IROWS*PRECIS - 1 50 IF (NBLOC .GT. NCORE) CALL MESAGE (-8,NBLOC-NCORE,SUBR) IF (DOUBLE) GO TO 60 DO 55 I = IBLOC, NBLOC RZ(I) = 0.0E0 55 CONTINUE GO TO 70 C 60 IDBLOC = IBLOC/2 + 1 NDBLOC = NBLOC/2 DO 65 I = IDBLOC,NDBLOC DZ(I) = 0.0D0 65 CONTINUE C C INSERT SUB-PARTITION OF PARTITION IN POSITION OF SIL ORDER. C C BUF IS ASSUMED DOUBLE PRECISION. C 70 DO 80 I = 1,NSILS IF (SIL .EQ. SILS(I)) GO TO 100 80 CONTINUE WRITE (OUTPT,90) SFM,ELID 90 FORMAT (A25,' 3116, ELEMENT ID',I10,' SENDS BAD SIL TO ROUTINE ', 1 'EMG1B.') CALL MESAGE (-37,0,SUBR) C 100 IF (DICT(2) .EQ. 2) GO TO 130 ZBASE = IROWS*(I-1) KMAT = 1 IF (DOUBLE) GO TO 125 C C SINGLE PRECISION ADDITION OF DATA C J1 = IBLOC + ZBASE J2 = J1 + IROWS - 1 DO 120 I = 1,IROWS DO 110 J = J1,J2 RZ(J) = RZ(J) + SNGL(BUF(KMAT)) KMAT = KMAT + 1 110 CONTINUE J1 = J1 + ROWSIZ J2 = J2 + ROWSIZ 120 CONTINUE GO TO 150 C C DOUBLE PRECISION ADDITION OF MATRIX DATA. C 125 J1 = IDBLOC + ZBASE J2 = J1 + IROWS - 1 DO 127 I = 1,IROWS DO 126 J = J1,J2 DZ(J) = DZ(J) + BUF(KMAT) KMAT = KMAT + 1 126 CONTINUE J1 = J1 + ROWSIZ J2 = J2 + ROWSIZ 127 CONTINUE GO TO 150 C C SIMPLE DIAGONAL MATRIX INSERTION C 130 KMAT = 1 IF (DOUBLE) GO TO 145 J1 = IBLOC DO 140 I = 1,IROWS RZ(J1) = RZ(J1) + SNGL(BUF(KMAT)) J1 = J1 + 1 KMAT = KMAT + 14 140 CONTINUE GO TO 150 C 145 J1 = IDBLOC DO 146 I = 1,IROWS DZ(J1) = DZ(J1) + BUF(KMAT) J1 = J1 + 1 KMAT = KMAT + 14 146 CONTINUE C 150 RETURN C C OUTPUT PIVOT-ROWS-PARTITION C 155 IF (ICALL .LE. 0) GO TO 161 IF (.NOT. LAST) GO TO 160 ILAST = 1 160 CALL EMGOUT (Z(IBLOC),Z(IBLOC),(NBLOC-IBLOC+1)/PRECIS,ILAST, 1 DICT,FILTYP,PRECIS) 161 ILAST = 0 ICALL = 0 RETURN END ================================================ FILE: mis/emgcng.f ================================================ SUBROUTINE EMGCNG C C THIS ROUTINE OF THE -EMG- MODULE READS -CNGRNT- CARD C IMAGES, IF ANY, FROM GEOM2 AND BUILDS A PAIRED LIST. C C ON EACH -CNGRNT- DATA CARD THE FIRST ID (NEED NOT BE THE SMALLEST C ID) BECOMES THE PRIMARY ID. THIS ID WILL BE PAIRED WITH A ZERO C NOW AND A NEGATIVE DICTIONARY-TABLE ADDRESS LATER. AS SOME OF C THE ID-S APPEARING ON THE -CNGRNT- DATA CARD MAY NOT EVEN BE IN C THE PROBLEM, THE FIRST ID OF A CONGRUENT GROUP REFERENCED WILL C RESULT IN THE ELEMENT COMPUTATIONS AND THE SETTING OF A DICTIONARY C FILE TABLE ADDRESS WITH THE PRIMARY ID. C LOGICAL ANYCON, ERROR, HEAT INTEGER Z, GEOM2, SYSBUF, BUF, SUBR(2), CNGRNT(2), EST, 1 CSTM, DIT, DICTN, RD, WRT, WRTREW, RDREW, CLS, 2 CLSREW, PRECIS, FLAG, FLAGS CHARACTER UFM*23, UWM*25 COMMON /XMSSG / UFM, UWM COMMON /SYSTEM/ KSYSTM(65) COMMON /NAMES / RD, RDREW, WRT, WRTREW, CLSREW, CLS COMMON /EMGFIL/ EST, CSTM, MPT, DIT, GEOM2, MATS(3), DICTN(3) COMMON /EMGPRM/ ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT, 1 IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG, 2 ANYCON, FLAGS(3), PRECIS, ERROR, HEAT, 3 ICMBAR, LCSTM, LMAT, LHMAT COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (KSYSTM(1), SYSBUF), (KSYSTM(2), NOUT) DATA SUBR / 4HEMGC, 4HNG /, NOEOR / 0 /, CNGRNT / 5008,50 / C BUF = NCORE - SYSBUF - 2 IF (BUF .LE. JCORE) CALL MESAGE (-8,JCORE-BUF,SUBR) ANYCON= .FALSE. ICONG = JCORE NCONG = JCORE - 1 LCONG = 0 C C LOCATE -CNGRNT- BULK DATA CARDS IF ANY. C CALL PRELOC (*90,Z(BUF),GEOM2) CALL LOCATE (*80,Z(BUF),CNGRNT,FLAG) C C PROCESS ONE DATA CARD C 10 IF (NCONG+2 .GE. BUF) GO TO 35 CALL READ (*40,*40,GEOM2,Z(NCONG+1),1,NOEOR,IWORDS) Z(NCONG+2) = 0 IDPRIM = Z(NCONG+1) NCONG = NCONG + 2 C C READ ANY SECONDARY IDS. C 20 IF (NCONG+2 .GE. BUF) GO TO 35 CALL READ (*40,*40,GEOM2,Z(NCONG+1),1,NOEOR,IWORDS) C C CHECK FOR THE FOLLOWING CONDITION C C CONDITION 1 C ------------ C C A SECONDARY ID ON THIS CARD IS THE SAME AS THE PRIMARY ID C ON THIS CARD. THE SECONDARY ID IS IGNORED AND THE CONDITION C IS INDICATED BY A USER INFORMATION MESSAGE. C IF (Z(NCONG+1).NE.IDPRIM) GO TO 25 C C THE ABOVE CONDITION EXISTS C CALL PAGE2 (3) WRITE (NOUT,2010) UWM,IDPRIM GO TO 20 C 25 IF (Z(NCONG+1)) 10,20,30 30 Z(NCONG+2) = IDPRIM NCONG = NCONG + 2 GO TO 20 C C INSUFFICIENT CORE TO PROCESS ALL -CNGRNT- CARDS C 35 ICRQ = NCONG + 2 - BUF CALL PAGE2 (2) WRITE (NOUT,2050) UWM,ICRQ C C NO MORE -CNGRNT- CARDS C 40 LCONG = NCONG - ICONG + 1 IF (LCONG .LE. 0) GO TO 80 CALL SORT (0,0,2,1,Z(ICONG),LCONG) C C CHECK FOR THE FOLLOWING ADDITIONAL CONDITIONS C C CONDITION 2 C ----------- C C A PRIMARY ID ON A CNGRNT CARD IS ALSO USED AS A SECONDARY C ID ON ANOTHER CNGRNT CARD. THIS RESULTS IN A USER FATAL C MESSAGE. C C CONDITION 3 C ----------- C C A SECONDARY ID IS SPECIFIED AS CONGRUENT TO MORE THAN ONE C PRIMARY ID. THIS ALSO RESULTS IN A USER FATAL MESSAGE. C C CONDITION 4 C ----------- C C A SECONDARY ID IS REDUNDANTLY SPECIFIED. THE REDUNDANCIES ARE C IGNORED AND THE CONDITION IS INDICATED BY A USER INFORMATION C MESSAGE. C NOGO = 0 NCONG1 = NCONG - 2 DO 440 I = ICONG,NCONG1,2 IF (Z(I ) .NE. Z(I+2)) GO TO 440 IF (Z(I+1) .EQ. Z(I+3)) GO TO 440 NOGO = 1 IF (Z(I+1).NE.0 .AND. Z(I+3).NE.0) GO TO 420 C C THIS IS CONDITION 2 DESCRIBED ABOVE C WRITE (NOUT,2020) UFM,Z(I) GO TO 440 C C THIS IS CONDITION 3 DESCRIBED ABOVE C 420 WRITE (NOUT,2030) UFM,Z(I) C 440 CONTINUE IF (NOGO .EQ. 1) CALL MESAGE (-37,0,SUBR) NCONG2 = NCONG1 DO 480 I = ICONG,NCONG1,2 IF (Z(I) .LT. 0) GO TO 480 IF (Z(I) .NE. Z(I+2)) GO TO 480 J = I + 2 450 DO 460 K = J,NCONG2,2 Z(K ) = Z(K+2) Z(K+1) = Z(K+3) 460 CONTINUE LCONG = LCONG - 2 NCONG = NCONG - 2 Z(NCONG2-1) = -1 NCONG2 = NCONG2 - 2 IF (Z(J) .EQ. Z(I)) GO TO 450 IF (Z(I+1) .EQ. 0) GO TO 480 C C THIS IS CONDITION 4 DESCRIBED ABOVE C CALL PAGE2 (2) WRITE (NOUT,2040) UWM,Z(I) C 480 CONTINUE C C REPLACE PRIMARY ID ASSOCIATED WITH EACH SECONDARY ID C WITH LOCATION OF PRIMARY ID IN TABLE. C LNUM = LCONG / 2 ICONGZ = ICONG - 1 DO 60 I = ICONG,NCONG,2 IF (Z(I+1)) 50,60,50 50 KID = Z(I+1) CALL BISLOC (*60,KID,Z(ICONG),2,LNUM,J) Z(I+1) = ICONGZ + J 60 CONTINUE C C TABLE IS COMPLETE C 80 CALL CLOSE (GEOM2,CLSREW) IF (NCONG .GT. ICONG) ANYCON = .TRUE. JCORE = NCONG + 1 90 RETURN C C 2010 FORMAT (A25,' 3169, PRIMARY ID',I9,' ON A CNGRNT CARD ALSO USED ', 1 'AS A SECONDARY ID ON THE SAME CARD.', /5X, 3 'SECONDARY ID IGNORED.') 2020 FORMAT (A23,' 3170, PRIMARY ID',I9,' ON A CNGRNT CARD ALSO USED ', 1 'AS A SECONDARY ID ON ANOTHER CNGRNT CARD.') 2030 FORMAT (A23,' 3171, SECONDARY ID',I9, 1 ' SPECIFIED AS CONGRUENT TO MORE THAN ONE PRIMARY ID.') 2040 FORMAT (A25,' 3172, SECONDARY ID',I9,' REDUNDANTLY SPECIFIED ON ', 1 'CNGRNT CARDS. REDUNDANCY IGNORED.') 2050 FORMAT (A25,' 3182, INSUFFICIENT CORE TO PROCESS ALL CNGRNT ', 1 'CARDS. ADDITIONAL CORE NEEDED =',I8,7H WORDS.) C END ================================================ FILE: mis/emgcor.f ================================================ SUBROUTINE EMGCOR (BUF) C C CORE ALLOCATION AND PARAMETER INITIALIZATION FOR MAIN -EMG- C PROCESSOR -EMGPRO-. C LOGICAL ANYCON, ERROR, HEAT INTEGER Z, SYSBUF, OUTPT, SUBR(2), TYPE(3), BUF(8), BUFS, 1 BUF1, BUF2, RD, WRT, RDREW, WRTREW, CLS, PRECIS, 2 CLSREW, EST, CSTM, DIT, GEOM2, NAME(2), EOR, 3 FLAGS, SCR4 CHARACTER UFM*23, UWM*25, UIM*29, SFM*25, SWM*27 COMMON /XMSSG / UFM, UWM, UIM, SFM, SWM COMMON /BLANK / NOKMB(3), DUMMY(13), VOLUME, SURFAC COMMON /SYSTEM/ KSYSTM(65) COMMON /NAMES / RD, RDREW, WRT, WRTREW, CLSREW, CLS COMMON /EMGFIL/ EST, CSTM, MPT, DIT, GEOM2, KMBMAT(3), KMBDIC(3) COMMON /EMGPRM/ ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT, 1 IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG, 2 ANYCON, FLAGS(3), PRECIS, ERROR, HEAT, 3 ICMBAR, LCSTM, LMAT, LHMAT, KFLAGS(3), L38 COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (KSYSTM(1), SYSBUF) EQUIVALENCE (KSYSTM(2), OUTPT ) DATA TYPE / 4HSTIF,4HMASS,4HDAMP/ DATA SCR4 / 304 / DATA SUBR / 4HEMGC,4HOR /, EOR/ 1 / C IF (L38 .EQ. 0) WRITE (OUTPT,5) UIM 5 FORMAT (A29,' 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT ', 1 'PROCESSING INFORMATION',/) C C DETERMINATION OF FUNCTIONS TO BE PERFORMED AND RESULTANT NUMBER C OF BUFFERS NEEDED. C BUFS = 1 DO 10 I = 1,3 FLAGS(I) = 0 KFLAGS(I) = 0 IF (NOKMB(I) .EQ. -1) GO TO 10 FLAGS(I) = -1 BUFS = BUFS + 2 10 CONTINUE IF (VOLUME.GT.0.0 .OR. SURFAC.GT.0.0) BUFS = BUFS + 1 C C ALLOCATE BUFFERS C N = NCORE DO 20 I = 1,BUFS BUF(I) = N - SYSBUF - 2 N = BUF(I) 20 CONTINUE NCORE = N - 1 IF (NCORE .LT. JCORE) CALL MESAGE (-8,JCORE-NCORE,SUBR) C C OPEN REQUIRED DATA BLOCKS. C BUF1 = BUF(1) CALL OPEN (*60,EST,Z(BUF1),RDREW) CALL SKPREC (EST,1) IBUF = 1 C C K, M, OR B MATRIX DATA BLOCKS C DO 50 I = 1,3 IF (FLAGS(I) .EQ. 0) GO TO 50 BUF1 = BUF(IBUF+1) BUF2 = BUF(IBUF+2) CALL OPEN (*30,KMBMAT(I),Z(BUF1),WRTREW) CALL OPEN (*30,KMBDIC(I),Z(BUF2),WRTREW) CALL FNAME (KMBMAT(I),NAME) CALL WRITE (KMBMAT(I),NAME,2,EOR) CALL FNAME (KMBDIC(I),NAME) CALL WRITE (KMBDIC(I),NAME,2,EOR) IBUF = IBUF + 2 KFLAGS(I) = 1 GO TO 50 C C FILE REQUIRED IS MISSING C 30 FLAGS(I) = 0 CALL PAGE2 (2) WRITE (OUTPT,40) UWM,KMBMAT(I),KMBDIC(I),TYPE(I) 40 FORMAT (A25,' 3103, EMGCOR OF EMG MODULE FINDS EITHER OF DATA ', 1 'BLOCKS ',I4,4H OR ,I4,' ABSENT AND THUS,', /5X,A4, 2 ' MATRIX WILL NOT BE FORMED.') 50 CONTINUE C C IF VOLUME OR SURFACE COMPUTATION IS REQUESTED BY USER FOR THE 2-D C AND 3-D ELEMENTS, OPEN SCR4 FILE. (ONLY TO BE CLOSED BY EMGFIN) C IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 55 IBUF = IBUF + 1 BUF1 = BUF(IBUF) CALL OPEN (*80,SCR4,Z(BUF1),WRTREW) C C ALL FILES READY TO GO. C 55 NCORE = BUF(IBUF) - 1 RETURN C C EST MISSING C 60 CALL PAGE2 (2) WRITE (OUTPT,70) SWM,EST 70 FORMAT (A27,' 3104, EMGCOR FINDS EST (ASSUMED DATA BLOCK',I5, 2 ') MISSING. EMG MODULE COMPUTATIONS LIMITED.') FLAGS(1) = 0 FLAGS(2) = 0 FLAGS(3) = 0 RETURN C 80 CALL MESAGE (-1,SCR4,SUBR) RETURN END ================================================ FILE: mis/emgfin.f ================================================ SUBROUTINE EMGFIN C C THIS ROUTINE OF THE -EMG- MODULE WRAPS UP THE WORK OF THE MODULE. C LOGICAL ERROR, HEAT, LINEAR INTEGER CLS, CLSREW, RDREW, WRTREW, DATE, MCB(7), PRECIS, 1 EST, DICTN, FLAGS, SCR3, SCR4, VAFILE, SUB(2), 2 IX(6), SIL(32) REAL INPI(10), Z(2), RX(200), COREY(201) COMMON /BLANK / NOKMB(3), NOK4GG, CMASS, DUMMY(11), VOLUME, SURFAC COMMON /HMATDD/ SKP(4), LINEAR COMMON /EMGPRM/ ICORE, JCORE, NCORE, DUM12(12), FLAGS(3), PRECIS, 1 ERROR, HEAT, ICMBAR, LCSTM, LMAT, LHMAT COMMON /NAMES / RD, RDREW, WRT, WRTREW, CLSREW, CLS COMMON /EMGFIL/ EST, CSTM, MPT, DIT, GEOM2, MATRIX(3), DICTN(3) COMMON /OUTPUT/ HEAD(96) COMMON /SYSTEM/ IBUF, NOUT, SKIP6(6), NLPP, SKIP2(2), LINE, 1 SK1P2(2), DATE(3) COMMON /MACHIN/ MACH COMMON /ZZZZZZ/ COREX(1) EQUIVALENCE (COREX(1),COREY(1),RX(1),IX(1)), (Z(1),COREY(201)) DATA VAFILE, SCR4 / 207, 304 / DATA D2, D3 / 4H2-D , 4H3-D / DATA SUB, SCR3 / 4HEMGF, 4HIN , 303 / DATA INPI / 4HINPT, 4HINP1, 4HINP2, 4HINP3, 4HINP4, 1 4HINP5, 4HINP6, 4HINP7, 4HINP8, 4HINP9/ C C CLOSE ALL FILES, EXCEPT SCR4 C DO 10 I = 1,3 NOKMB(I) = -FLAGS(I) - 1 IF (FLAGS(I)+1 .EQ. 0) FLAGS(I) = 0 IF (FLAGS(I) .EQ. 0) NOKMB(I) =-1 CALL CLOSE (MATRIX(I),CLSREW) CALL CLOSE (DICTN(I),CLSREW) 10 CONTINUE CALL CLOSE (EST,CLSREW) C C HEAT ONLY - SET NONILINEAR FLAG BASED ON VALUE PREVIOUSLY SET BY C HMAT ROUTINE C IF (HEAT .AND. .NOT.LINEAR) NOKDGG = +1 IF (HEAT .AND. LINEAR) NOKDGG = -1 C C WRITE TRAILERS FOR FILES PREPARED. C IF (ERROR) GO TO 340 DO 40 I = 1,3 C C PRECISION IS STORED IN FIRST DATA WORD OF TRAILER. C IF (FLAGS(I) .EQ. 0) GO TO 40 MCB(1) = MATRIX(I) CALL RDTRL (MCB) IF (MCB(1)) 40,40,20 20 MCB(2) = PRECIS MCB(3) = 0 MCB(4) = 0 MCB(5) = 0 MCB(6) = 0 MCB(7) = 0 CALL WRTTRL (MCB) C MCB(1) = DICTN(I) CALL RDTRL (MCB) IF (MCB(1)) 40,40,30 30 MCB(2) = PRECIS MCB(3) = 0 MCB(4) = 0 MCB(5) = 0 MCB(6) = 0 MCB(7) = 0 CALL WRTTRL (MCB) 40 CONTINUE IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 330 C C COMPUTE AND PRINT VOLUMES AND SURFACE AREAS FOR THE 2-D AND 3-D C ELEM. IF USER REQUESTED VIA PARAM CARD. C CALL CLOSE (SCR4,CLSREW) IBUF1 = ICORE + 200 IBUF2 = IBUF1 + IBUF CALL OPEN (*350,SCR4,Z(IBUF1),RDREW) TVOL2 = 0.0 TVOL3 = 0.0 TMAS2 = 0.0 TMAS3 = 0.0 NREC = 0 LINE = NLPP INP = 0 C C CHECK ANY REQUEST TO SAVE VOLUME AND AREA COMPUTATIONS ON OUTPUT C FILE SET INP TO APPROPRIATE VALUE IF IT IS AN INPI FILE C MCB(1) = VAFILE CALL RDTRL (MCB(1)) IF (MCB(1) .LE. 0) GO TO 70 CALL FNAME (VAFILE,Z(1)) DO 55 I = 1,10 IF (Z(1) .EQ. INPI(I)) GO TO 60 55 CONTINUE GO TO 65 60 INP = I + 13 IF (INP.EQ.14 .AND. MACH.EQ.2) INP = 24 VAFILE = SCR3 MCB(1) = SCR3 65 CALL OPEN (*360,VAFILE,Z(IBUF2),WRTREW) CALL WRITE (VAFILE,Z(1), 2,0) CALL WRITE (VAFILE,HEAD(1),96,0) CALL WRITE (VAFILE,DATE(1), 3,1) NREC = 1 70 CALL READ (*210,*90,SCR4,RX,201,1,I) WRITE (NOUT,80) 80 FORMAT (' *** WARNING, RX TOO SMALL IN EMGFIN ***') 90 NGPT = IX(6) IF (NGPT .LT. 3) GO TO 70 IF (LINE .LT. NLPP) GO TO 130 LINE = 5 CALL PAGE1 WRITE (NOUT,100) (I,I=1,6) 100 FORMAT (17X,'V O L U M E S, M A S S E S, A N D S U R F A C E ', 1 ' A R E A S O F 2- A N D 3- D E L E M E N T S', 2 ///10X,7HELEMENT,8X,3HEID,8X,6HVOLUME,7X,4HMASS,1X, 3 6(3X,7HSURFACE,I2), /10X, 29(4H----),/) IF (VOLUME .LE. 0.0) WRITE (NOUT,110) IF (SURFAC .LE. 0.0) WRITE (NOUT,120) IF (VOLUME.LE.0.0 .OR. SURFAC.LE.0.0) LINE=LINE+2 110 FORMAT (10X,42H(NO MASS AND VOLUME COMPUTATION REQUESTED),/) 120 FORMAT (10X,39H(NO SURFACE AREA COMPUTATION REQUESTED),/) 130 L = 5 C C ENTRIES IN RX ARRAY, AS SAVED IN SCR4 BY KTRIQD,KTETRA,IHEXI, C EMGPRO C RX( 1),RX(2) = ELEMENT BCD NAME C IX( 3) = ELEMENT ID C RX( 4) = VOLUME (SOLID), OR THICKNESS (PLATE) C RX( 5) = TOTAL MASS (SOLID), OR DENSITY (PLATE) C IX( 6) = NO. OF GRID POINTS, = NGPT C IX(7)...IX(6+NGPT) = SIL OF THE GRID POINTS C RX( 7+NPGT) = CID OF 1ST GRID POINT C RX( 8+NPGT) = X COORD. OF 1ST GRID POINT C RX( 9+NPGT) = Y COORD. OF 1ST GRID POINT C RX(10+NPGT) = Z COORD. OF 1ST GRID POINT C IX(11+NPGT...) = REPEAT FOR OTHER GRID POINTS C C CALL SFAREA TO COMPUTE AREAS, 6 VALUES ARE RETURNED IN RX(6...11) C AND NO. OF SURFACES IN NGPT C VOLUME AND MASS ARE ALSO COMPUTED FOR THE PLATE ELEMENTS. C DO 140 I = 1,NGPT 140 SIL(I) = IX(6+I) LN = NGPT CALL SFAREA (LN,RX,IX(NGPT+7)) L = 5 IF (SURFAC .GT. 0.0) L = 5 + LN IF (VOLUME .GT. 0.0) WRITE (NOUT,160) (IX(I),I=1,3),(RX(I),I=4,L) IF (VOLUME .LE. 0.0) WRITE (NOUT,170) (IX(I),I=1,3),(RX(I),I=6,L) 160 FORMAT (10X,2A4,I10, 2X,8E12.4) 170 FORMAT (10X,2A4,I10,26X,6E12.4) LINE = LINE + 1 C IF (NREC .EQ. 0) GO TO 190 NREC = NREC + 1 IX(5) = (LN*100) + NGPT CALL WRITE (VAFILE,RX(1),L,0) N4 = NGPT*4 N7 = N4 + 7 J = 1 DO 180 I = 7,N7,4 IX(I) = SIL(J) 180 J = J + 1 CALL WRITE (VAFILE,RX(NGPT+7),N4,1) C C A RECORD IS SAVED IN VAFILE FOR EACH ELEM., HAVING THE FOLLOWING C DATA C C WORDS 1,2 ELEMENT BCD NAME C 3 ELEMENT ID, INTEGER C 4 VOLUME (3-D ELEMS), ZERO (2-D ELEMS), REAL C 5 (NO. OF SURFACES, N)*100 + NO. OF GRID PTS, INTEGER C 6 AREA OF FIRST SURFACE, REAL C 7 THRU 5+N REPEAT FOR N SURFACES, REAL C 5+N+1 SIL OF FIRST GRID POINT, INTEGER C 5+N+2,3,4 X,Y,Z COORDINATES OF THE FIRST GRID POINT, REAL C ... REPEAT LAST 4 WORDS FOR OTHER GRID POINTS, REAL C 190 IF (VOLUME .LE. 0.0) GO TO 70 IF (NGPT .GT. 1) GO TO 200 TVOL2 = TVOL2 + RX(4) TMAS2 = TMAS2 + RX(5) GO TO 70 200 TVOL3 = TVOL3 + RX(4) TMAS3 = TMAS3 + RX(5) GO TO 70 210 CALL CLOSE (SCR4,CLSREW) IF (NREC .EQ. 0) GO TO 230 CALL CLOSE (VAFILE,CLSREW) MCB(2) = NREC DO 220 I = 3,7 220 MCB(I) = 0 CALL WRTTRL (MCB(1)) 230 IF (VOLUME .LE. 0.0) GO TO 330 IF (TVOL2 .GT. 0.0) WRITE (NOUT,240) TVOL2,TMAS2,D2 IF (TVOL3 .GT. 0.0) WRITE (NOUT,240) TVOL3,TMAS3,D3 240 FORMAT (/6X,24H* TOTAL VOLUME AND MASS=,2E12.4,3H (,A4, 1 9HELEMENTS)) IF (NREC .LE. 0) GO TO 330 C C IF OUTPUT FILE REQUESTED BY USER IS AN INPI FILE, COPY FROM VAFILE C TO INPI, A FORTRAN WRITTEN BINARY FILE C IF (INP .EQ. 0) GO TO 280 CALL OPEN (*360,VAFILE,Z(IBUF2),RDREW) 260 CALL READ (*280,*270,VAFILE,Z(1),IBUF2,1,J) GO TO 370 270 WRITE (INP) (Z(I),I=1,J) GO TO 260 280 CALL CLOSE (VAFILE,CLSREW) CALL FNAME (207,Z(1)) WRITE (NOUT,300) Z(1),Z(2),DATE 300 FORMAT ('0*** VOLUMES AND EXTERNAL SURFACE AREAS WERE SAVED IN ', 1 'OUTPUT FILE ',2A4,4H ON ,I2,1H/,I2,3H/19,I2) IF (INP .EQ. 0) WRITE (NOUT,310) IF (INP .NE. 0) WRITE (NOUT,320) INP 310 FORMAT (1H+,91X,21H(A GINO WRITTEN FILE)) 320 FORMAT (1H+,91X,28H(A FORTRAN BINARY FILE, UNIT,I3,1H)) 330 VOLUME = 0.0 SURFAC = 0.0 RETURN C 340 IF (VOLUME.NE.0. .OR. SURFAC.NE.0.) CALL CLOSE (SCR4,CLSREW) GO TO 330 350 CALL MESAGE (-1,SCR4,SUB) 360 J = -1 GO TO 380 370 J = -8 380 CALL MESAGE (J,VAFILE,SUB) RETURN END ================================================ FILE: mis/emgold.f ================================================ SUBROUTINE EMGOLD C C THIS IS A DRIVING ROUTINE OF THE -EMG- MODULE WHICH ALLOWS PIVOT- C POINT-LOGIC ELEMENT SUBROUTINES TO BE USED IN CONJUNCTION WITH THE C NON-PIVOT-POINT PROCESS. C LOGICAL ERROR,LAST,HEAT,KHEAT,LHEAT,HYDRO INTEGER OUTPT,SIL,POSVEC,ELTYPE,ELID,ELEM,DICT,ESTWDS, 1 ESTID,ESTBUF,FILTYP,PRECIS,MDICT(15),KDICT(15), 2 BDICT(15),FLAGS,QP DOUBLE PRECISION DUMMY CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27,SIM*31 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM,SIM COMMON /MACHIN/ MACH,DUM2(2),LQRO COMMON /SYSTEM/ KSYSTM(65) COMMON /GPTA1 / NELEMS,NLAST,INCR,ELEM(1) COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID COMMON /EMGEST/ ESTBUF(100) COMMON /SMA1ET/ KECPT(100) COMMON /SMA2ET/ MECPT(100) COMMON /SMA1IO/ SMAIO(36) COMMON /SMA1BK/ S1DUM(10) COMMON /SMA2BK/ S2DUM(10) COMMON /SMA1DP/ KWORK(700) COMMON /SMA2DP/ MWORK(700) COMMON /SMA1CL/ IOPT4,K4GGSW,KNPVT,SKIP19(19),KNOGO,KSAFE(200) COMMON /SMA2CL/ IOPTB,BGGIND,MNPVT,SKIP17(17),MNOGO,SKIP2(2), 1 MSAFE(200) COMMON /EMG1BX/ NSILS,POSVEC(10),IBLOC,NBLOC,IROWS,DICT(15), 1 FILTYP,SIL(10),LAST COMMON /EMGPRM/ SKIPXX(15),FLAGS(3),PRECIS,ERROR,HEAT,ICMBAR, 1 LCSTM,LMAT,LHMAT,KFLAGS(3),L38 COMMON /HYDROE/ HYDRO COMMON /SMA1HT/ KHEAT COMMON /SMA2HT/ LHEAT COMMON /IEMGOD/ DUMMY,LTYPES EQUIVALENCE (KSYSTM(2),OUTPT), (KSYSTM(40),NBPW), 1 (SMAIO(11),IFKGG), (SMAIO(13),IF4GG) C KTEMP = KNOGO MTEMP = MNOGO QP = MOD(LQRO/100,10) JLTYPE= 2*(ELTYPE-1) + PRECIS KHEAT = HEAT LHEAT = HEAT IZERO = INCR*(ELTYPE - 1) IF (ELTYPE .EQ. LTYPES) GO TO 20 CALL PAGE2 (3) INDEX = IZERO IF (.NOT.HEAT) GO TO 3 IF (ELTYPE.EQ.62 .OR. ELTYPE.EQ.63) INDEX = 15*INCR 3 IF (L38 .EQ. 1) WRITE (OUTPT,4) SIM,ELEM(INDEX+1),ELEM(INDEX+2) 4 FORMAT (A31,' 3107',/5X,'EMGOLD CALLED BY EMGPRO TO PROCESS ',2A4, 1 ' ELEMENTS.') LTYPES = ELTYPE GO TO 20 5 WRITE (OUTPT,10) SWM,ELID,ELEM(IZERO+1),ELEM(IZERO+2) 10 FORMAT (A27,' 3121, EMGOLD HAS RECEIVED A CALL FOR ELEMENT ID',I9, 1 ' (ELEMENT TYPE ',2A4,2H)., /5X,'ELEMENT IGNORED AS THIS ', 2 'ELEMENT TYPE IS NOT HANDLED BY EMGOLD.') GO TO 1220 C 20 NSILS = ELEM(IZERO+10) ISIL = ELEM(IZERO+13) IF (ELEM(IZERO+9) .NE. 0) ISIL = ISIL - 1 ESTWDS = ELEM(IZERO+12) I1 = ISIL I2 = ISIL + NSILS - 1 L = NSILS C C MOVE SILS TO SEPARATE ARRAY C C SORT ARRAY OF SILS C C POSITION VECTOR C DO 80 I = I1,I2 IF (ESTBUF(I) .EQ. 0) GO TO 72 K = 1 DO 70 J = I1,I2 IF (ESTBUF(J) - ESTBUF(I)) 60,50,70 50 IF (J .GE. I) GO TO 70 60 IF (ESTBUF(J) .NE. 0) K = K + 1 70 CONTINUE GO TO 74 72 K = L L = L - 1 74 POSVEC(K) = I - I1 + 1 80 SIL(K) = ESTBUF(I) C C ELIMINATE DUP SILS THAT MAY OCCUR,E.G. CHBDY WITH AMB.PTS. C K = 1 ICOUNT = 1 DO 85 I = 2,NSILS 82 K = K + 1 IF (K .LE. NSILS) GO TO 84 SIL(I) = 0 POSVEC(I) = 0 GO TO 85 84 IF (SIL(K) .EQ. SIL(K-1)) GO TO 82 SIL(I) = SIL(K) IF (SIL(K) .NE. 0) ICOUNT = ICOUNT + 1 POSVEC(I) = POSVEC(K) 85 CONTINUE NSILS = ICOUNT C C SETUP VALUES AND DICTIONARY IN /EMG1BX/ FOR EMG1B USE C DICT(1) = ESTID DICT(2) = 1 C C PSUEDO SMA1-SMA2 FILE NUMBERS C IFKGG = 201 IF4GG = 202 C C DICT(4) WILL BE RESET TO EITHER 1 OR 63 BY EMG1B C BASED ON INCOMING DATA TO EMG1B C DO 90 I = 5,15 DICT(I) = 0 90 CONTINUE C C CALL ELEMENT FOR EACH PIVOT ROW C LAST = .FALSE. KNOGO = 0 MNOGO = 0 DO 1210 I = 1,NSILS IF (I .EQ. NSILS) LAST = .TRUE. C C STIFFNESS MATRIX C IF (FLAGS(1) .EQ. 0) GO TO 550 C C RESTORE K-DICTIONARY IF NECESSARY C IF (I .EQ. 1) GO TO 110 DO 100 L = 1,15 DICT(L) = KDICT(L) 100 CONTINUE 110 CONTINUE FILTYP = 1 C C IOPT4 IS TURNED ON SO THAT DAMPING CONSTANTS ARE SENT TO EMG1B C IN ALL AVAILABLE CASES BY ELEMENT ROUTINES. MATRIX DATA WILL BE C IGNORED BY EMG1B ON EMG1B CALLS SENDING DAMPING CONSTANTS. C DAMPING CONSTANTS WILL BE PLACED IN 5TH WORD OF ELEMENT DICTIONARY C ENTRY. C IOPT4 = 1 K4GGSW = 0 KNPVT = SIL(I) C C FULL 6X6 MATRIX FORCED FOR STIFFNESS WITH OLD ELEMENT ROUTINES C DICT(2) = 1 IF (SIL(I) .NE. 0) GO TO 115 CALL EMG1B (DUMMY,0,1,1,0) GO TO 520 115 CONTINUE DO 120 L = 1,ESTWDS KECPT(L) = ESTBUF(L) 120 CONTINUE HYDRO = .FALSE. IF (ELTYPE.GE.76 .AND. ELTYPE.LE.79) HYDRO = .TRUE. C C CALL THE PROPER ELEMENT STIFFNESS ROUTINE C LOCAL = JLTYPE - 100 IF (LOCAL) 130,130,140 C C PAIRED -GO TO- ENTRIES PER ELEMENT SINGLE/DOUBLE PRECISION C C 1 CROD 2 C..... 3 CTUBE 4 CSHEAR 5 CTWIST 130 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 6 CTRIA1 7 CTRBSC 8 CTRPLT 9 CTRMEM 10 CONROD 1, 190, 190, 5, 5, 210, 210, 5, 5, 5, 5 C C 11 ELAS1 12 ELAS2 13 ELAS3 14 ELAS4 15 CQDPLT 2, 5, 5, 5, 5, 5, 5, 5, 5, 280, 280 C C 16 CQDMEM 17 CTRIA2 18 CQUAD2 19 CQUAD1 20 CDAMP1 3, 290, 290, 300, 300, 310, 310, 320, 320, 5, 5 C C 21 CDAMP2 22 CDAMP3 23 CDAMP4 24 CVISC 25 CMASS1 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 26 CMASS2 27 CMASS3 28 CMASS4 29 CONM1 30 CONM2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 31 PLOTEL 32 C..... 33 C..... 34 CBAR 35 CCONEAX 6, 520, 520, 5, 5, 5, 5, 5, 5, 340, 345 C C 36 CTRIARG 37 CTRAPRG 38 CTORDRG 39 CTETRA 40 CWEDGE 7, 350, 350, 370, 370, 5, 5, 400, 400, 410, 410 C C 41 CHEXA1 42 CHEXA2 43 CFLUID2 44 CFLUID3 45 CFLUID4 8, 420, 420, 430, 430, 440, 440, 450, 450, 460, 460 C C 46 CFLMASS 47 CAXIF2 48 CAXIF3 49 CAXIF4 50 CSLOT3 9, 520, 520, 440, 440, 450, 450, 460, 460, 470, 470 C * ), JLTYPE C C 51 CSLOT4 52 CHBDY 53 CDUM1 54 CDUM2 55 CDUM3 140 GO TO (480, 480, 5, 5, 5, 5, 5, 5, 5, 5 C C 56 CDUM4 57 CDUM5 58 CDUM6 59 CDUM7 60 CDUM8 B, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 61 CDUM9 62 CQDMEM1 63 CQDMEM2 64 CQDMEM3 65 CIHEX1 C, 5, 5, 292, 292, 295, 294, 5, 5, 5, 5 C C 66 CIHEX2 67 CIHEX3 68 CQUADTS 69 CTRIATS 70 CTRIAAX D, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 71 CTRAPAX 72 CAERO1 73 CTRIM6 74 CTRPLT1 75 CTRSHL E, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 76 CFHEX1 77 CFHEX2 78 CFTETRA 79 CFWEDGE 80 CIS2D8 F, 420, 420, 430, 430, 400, 400, 410, 410, 5, 5 C C 81 CELBOW 82 FTUBE 83 CTRIA3 84 CPSE2 85 CPSE3 G, 390, 390, 5, 5, 5, 5, 5, 5, 5, 5 C C 86 CPSE4 H, 5, 5 C * ), LOCAL C C C IN -HEAT- FORMULATIONS SOME ELEMENTS ARE IGNORED (OPTION(1)=HEAT) C IN STRUCTURE PROBLEMS SOME ELEMENTS ARE IGNORED (OPTION(1)=STRUCT) C 190 CALL KTRIQD (1) GO TO 520 210 CALL KTRPLT GO TO 520 280 CALL KQDPLT GO TO 520 290 CALL KQDMEM GO TO 520 C C REPLACE ELEMENT TYPE CQDMEM1 BY ELEMENT TYPE CQDMEM C IN -HEAT- FORMULATION C 292 IF (HEAT) GO TO 290 GO TO 5 C C REPLACE ELEMENT TYPE CQDMEM2 BY ELEMENT TYPE CQDMEM C IN -HEAT- FORMULATION C 294 IF (HEAT) GO TO 290 GO TO 5 C C REPLACE ELEMENT TYPE CQDMEM2 BY ELEMENT TYPE CQDMEM C IN -HEAT- FORMULATION C 295 IF (HEAT) GO TO 290 GO TO 5 300 CALL KTRIQD (2) GO TO 520 310 CALL KTRIQD (4) GO TO 520 320 CALL KTRIQD (3) GO TO 520 340 CALL KCONES GO TO 520 343 CALL KCONE2 GO TO 520 345 IF (MACH .EQ. 3) GO TO 340 IF (NBPW .GE. 60) GO TO 343 IF (QP .EQ. 0) CALL KCONED IF (QP .NE. 0) CALL KCONEQ GO TO 520 350 IF (HEAT) GO TO 360 IF (KNOGO .EQ. 2) GO TO 1210 CALL KTRIRG IF (KNOGO .EQ. 2) GO TO 1210 GO TO 520 360 CALL HRING (3) GO TO 520 370 IF (HEAT) GO TO 380 CALL KTRAPR GO TO 520 390 CALL KELBOW GO TO 520 380 CALL HRING (4) GO TO 520 400 CALL KTETRA (0,0) GO TO 520 410 CALL KSOLID (1) GO TO 520 420 CALL KSOLID (2) GO TO 520 430 CALL KSOLID (3) GO TO 520 440 CALL KFLUD2 GO TO 520 450 CALL KFLUD3 GO TO 520 460 CALL KFLUD4 GO TO 520 470 CALL KSLOT (0) GO TO 520 480 CALL KSLOT (1) GO TO 520 C C OUTPUT THE PIVOT ROW PARTITION NOW COMPLETED BY -EMG1B- C 520 CALL EMG1B (0.0D0,-1111111,0,0,0.0D0) C C SAVE K-DICTIONARY C DO 530 L = 1,15 KDICT(L) = DICT(L) 530 CONTINUE C C MASS MATRIX M C 550 IF (FLAGS(2) .EQ. 0) GO TO 1090 IF (HEAT) GO TO 1090 C C RESTORE M-DICTIONARY IF NECESSARY C IF (I .EQ. 1) GO TO 570 DO 560 L = 1,15 DICT(L) = MDICT(L) 560 CONTINUE 570 CONTINUE FILTYP = 2 IOPTB = 0 BGGIND =-1 MNPVT = SIL(I) DICT(2)= 1 IF (SIL(I) .NE. 0) GO TO 575 CALL EMG1B (DUMMY,0,1,2,0) GO TO 1060 575 CONTINUE DO 580 L = 1,ESTWDS MECPT(L) = ESTBUF(L) 580 CONTINUE C C CALL THE PROPER ELEMENT MASS ROUTINE. C 590 LOCAL = JLTYPE - 100 IF (LOCAL) 600,600,610 C C PAIRED -GO TO- ENTRIES PER ELEMENT SINGLE/DOUBLE PRECISION C C 1 CROD 2 C..... 3 CTUBE 4 CSHEAR 5 CTWIST 600 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 6 CTRIA1 7 CTRBSC 8 CTRPLT 9 CTRMEM 10 CONROD 1, 670, 670, 5, 5, 710, 710, 5, 5, 5, 5 C C 11 ELAS1 12 ELAS2 13 ELAS3 14 ELAS4 15 CQDPLT 2, 5, 5, 5, 5, 5, 5, 5, 5, 740, 740 C C 16 CQDMEM 17 CTRIA2 18 CQUAD2 19 CQUAD1 20 CDAMP1 3, 760, 760, 770, 770, 790, 790, 810, 810, 5, 5 C C 21 CDAMP2 22 CDAMP3 23 CDAMP4 24 CVISC 25 CMASS1 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 26 CMASS2 27 CMASS3 28 CMASS4 29 CONM1 30 CONM2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 31 PLOTEL 32 C..... 33 C..... 34 CBAR 35 CCONEAX 6, 1060, 1060, 5, 5, 5, 5, 5, 5, 910, 910 C C 36 CTRIARG 37 CTRAPRG 38 CTORDRG 39 CTETRA 40 CWEDGE 7, 930, 930, 940, 940, 5, 5, 960, 960, 970, 970 C C 41 CHEXA1 42 CHEXA2 43 CFLUID2 44 CFLUID3 45 CFLUID4 8, 980, 980, 990, 990, 1000, 1000, 1010, 1010, 1020, 1020 C C 46 CFLMASS 47 CAXIF2 48 CAXIF3 49 CAXIF4 50 CSLOT3 9, 1030, 1030, 1000, 1000, 1010, 1010, 1020, 1020, 1040, 1040 C * ), JLTYPE C C C 51 CSLOT4 52 CHBDY 53 CDUM1 54 CDUM2 55 CDUM3 610 GO TO (1050,1050, 5, 5, 5, 5, 5, 5, 5, 5 C C 56 CDUM4 57 CDUM5 58 CDUM6 59 CDUM7 60 CDUM8 B, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 61 CDUM9 62 CQDMEM1 63 CQDMEM2 64 CQDMEM3 65 CIHEX1 C, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 66 CIHEX2 67 CIHEX3 68 CQUADTS 69 CTRIATS 70 CTRIAAX D, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 71 CTRAPAX 72 CAERO1 73 CTRIM6 74 CTRPLT1 75 CTRSHL E, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 C C 76 CFHEX1 77 CFHEX2 78 CFTETRA 79 CFWEDGE 80 CIS2D8 F, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060, 5, 5 C C 81 CELBOW 82 FTUBE 83 CTRIA3 84 CPSE2 85 CPSE3 G, 950, 950, 5, 5, 5, 5, 5, 5, 5, 5 C C 86 CPSE4 H, 5, 5 C * ), LOCAL C C C CONVENTIONAL MASS MATRIX GENERATION ROUTINE CALLED WHEN C ICMBAR .LT. 0 C OTHERWISE CONSISTENT MASS MATRIX GENERATION ROUTINE CALLED C 670 IF (ICMBAR .LT. 0) GO TO 680 CALL MTRIQD (1) GO TO 1060 680 CALL MASSTQ (5) GO TO 1060 C 710 IF (ICMBAR .LT. 0) GO TO 720 CALL MTRPLT GO TO 1060 720 CALL MASSTQ (3) GO TO 1060 C 740 IF (ICMBAR .LT. 0) GO TO 750 CALL MQDPLT GO TO 1060 750 CALL MASSTQ (7) GO TO 1060 760 CALL MASSTQ (1) GO TO 1060 C 770 IF (ICMBAR .LT. 0) GO TO 780 CALL MTRIQD (2) GO TO 1060 780 CALL MASSTQ (4) GO TO 1060 C 790 IF (ICMBAR .LT. 0) GO TO 800 CALL MTRIQD (4) GO TO 1060 800 CALL MASSTQ (1) GO TO 1060 C 810 IF (ICMBAR .LT. 0) GO TO 820 CALL MTRIQD (3) GO TO 1060 820 CALL MASSTQ (2) GO TO 1060 910 CALL MCONE GO TO 1060 930 IF (MNOGO .EQ. 2) GO TO 1210 IF (HEAT) GO TO 935 CALL MTRIRG IF (MNOGO .EQ. 2) GO TO 1210 GO TO 1060 935 CALL MRING (3) GO TO 1060 940 IF (HEAT) GO TO 945 CALL MTRAPR GO TO 1060 945 CALL MRING (4) GO TO 1060 950 CALL MELBOW GO TO 1060 960 CALL MSOLID (1) GO TO 1060 970 CALL MSOLID (2) GO TO 1060 980 CALL MSOLID (3) GO TO 1060 990 CALL MSOLID (4) GO TO 1060 1000 CALL MFLUD2 GO TO 1060 1010 CALL MFLUD3 GO TO 1060 1020 CALL MFLUD4 GO TO 1060 1030 CALL MFREE GO TO 1060 1040 CALL MSLOT (0) GO TO 1060 1050 CALL MSLOT (1) GO TO 1060 C C OUTPUT THE PIVOT ROW PARTITION NOW COMPLETED BY -EMG1B- C 1060 CALL EMG1B (0.0D0,-1111111,0,0,0.0D0) IF (HEAT) GO TO 1185 C C SAVE M-DICTIONARY C DO 1070 L = 1,15 MDICT(L) = DICT(L) 1070 CONTINUE C C DAMPING MATRIX B C 1090 IF (FLAGS(3) .EQ. 0) GO TO 1210 IF (.NOT.HEAT) GO TO 1210 C C RESTORE B-DICTIONARY IF NECESSARY C IF (I .EQ. 1) GO TO 1110 DO 1100 L = 1,15 DICT(L) = BDICT(L) 1100 CONTINUE 1110 FILTYP = 3 IOPTB =-1 BGGIND =-1 MNPVT = SIL(I) DICT(2)= 1 IF (SIL(I) .NE. 0) GO TO 1115 CALL EMG1B (DUMMY,0,1,3,0) GO TO 1180 1115 DO 1120 L = 1,ESTWDS MECPT(L) = ESTBUF(L) 1120 CONTINUE GO TO 590 C C OUTPUT THE PIVOT ROW PARTITION NOW COMPLETED BY -EMG1B- C 1180 CALL EMG1B (0.0D0,-1111111,0,0,0.0D0) C C SAVE DICTIONARY C 1185 DO 1190 L = 1,15 BDICT(L) = DICT(L) 1190 CONTINUE C 1210 CONTINUE IF (KNOGO .EQ. 0) KNOGO = KTEMP IF (MNOGO .EQ. 0) MNOGO = MTEMP C 1220 RETURN END ================================================ FILE: mis/emgout.f ================================================ SUBROUTINE EMGOUT (RBUF,DBUF,LBUF,EOE,DICT,FILE,INPREC) C C THIS ROUTINE OF THE -EMG- MODULE WRITES THE DATA IN -BUF- TO C -FILE-. C C BEFORE CALLING THIS ROUTINE THE CALLING ROUTINE SETS UP THE C FOLLOWING ARGUMENTS..... C C RBUF,DBUF = BOTH POINT TO THE SAME MATRIX ARRAY CONTAINING THE C MATRIX DATA TO BE OUTPUT. C C LBUF = NUMBER OF DATA VALUES TO BE OUTPUT ON CURRENT CALL NOT C CONSIDERING THE PRECISION OF THE DATA VALUES. C C EOE = SEE BELOW. C C DICT = ARRAY OF SIZE NLOCS (SEE BELOW) + 5. WORDS 1 THROUGH 5 C OF THIS ARRAY ARE SET BY THE CALLING ROUITNE.(SEE BELOW) C C FILE = SET TO 1 IF STIFFNESS MATRIX C SET TO 2 IF MASS MATRIX C SET TO 3 IF DAMPING MATRIX C C INPREC = PRECISION OF THE DATA RBUF AND DBUF POINT TO. C SET = 1 IF SINGLE AND SET TO 2 IF DOUBLE. C C --- IMPORTANT--- UNDER NO CIRCUMSTANCES SHOULD THE CALLING PROGRAM C MODIFY DATA IN COMMON BLOCK /EMGDIC/. C C NOTE. ON EACH CALL TO THIS ROUTINE THE CALLING ROUTINE MUST SEND C AN AMOUNT OF DATA FOR ONE OR MORE GRID POINT-PARTITIONS OF THE C TOTAL ELEMENT MATRIX. THIS IS CONSIDERING DEGREES OF FREEDOM AND C ANY CONDENSATION OF THE DATA IF A DIAGONAL MATRIX IS BEING SENT.) C C IE. FOR A MATRIX WHERE 6 DEGREES OF FREEDOM ARE LISTED IN THE CODE C WORD OF THE DICTIONARY THEN THE FOLLWING WOULD BE CONSIDERED. C C IF THE MATRIX WAS DIAGONAL THE VALUE OF LBUF WOULD BE SIMPLY C (0 TO NLOCS) TIMES 6 C C IF THE MATRIX WAS SQUARE THEN LBUF WOULD BE C (0 TO NLOCS) TIMES 6 TIMES NLOCS TIMES 6. NOTE THE PRECISION DOES C NOT ENTER INTO THE CALCULATION OF LBUF BY THE CALLING ROUTINE) C C IF -EOE- IS GREATER THAN 0, INDICATING END-OF-ELEMENT-DATA, THE C DICTIONARY WILL BE WRITTEN TO THE APPROPRIATE COMPANION FILE C OF -FILE-. IF CONGRUENT LOGIC IS ACTIVE THE DICTIONARY WILL C ALSO BE PLACED IN CORE IF POSSIBLE. C C CHECKS TO INSURE THAT THE CALLING ROUTINE SENT A REASONABLY C CORRECT AMOUNT OF MATRIX DATA ARE MADE BY THIS ROUTINE. C C DICTIONARY FORMAT 1)ELEMENT-COUNTER-ID-POSITON-IN-EST C ================= 2)F = 1 IF SQUARE, = 2 IF DIAGONAL FORMAT DATA. C DICTIONARY 3)N = NUMBER OF CONNECTED GRID POINTS * FREEDOMS C CAN EXPAND 4)COMPONENT-CODE-WORD C THROUGH THE 5)DAMPING CONSTANT C MIDDLE. . C LDICT-NLOC+1)GINO-LOC. (FIRST PARTITION) C . C . C . (NLOCS GINO-LOC VALUES) C . C LDICT-1)GINO-LOC. (NEXT TO LAST PARTITION) C LDICT)GINO-LOC. (LAST PARTITION OF THIS ELEMENT IF C ALL -NLOCS- GRID POINTS CONNECTED.) C C THIS ROUTINE WILL WRITE PARTITIONS OF THE MATRIX WHERE THE NUMBER C OF COLUMNS IN EACH PARTITION WRITTEN EQUALS ACTIVE FREEDOMS C WHICH = NUMBER OF BITS ON IN THE CODE WORD ( DICT(4) ). C C THE VALUES OF DICT(1), DICT(2), DICT(3), DICT(4), AND DICT(5) MUST C REMAIN CONSTANT BETWEEN CALLS TO THIS ROUTINE WITH RESPECT TO C A PARTICULAR ELEMENT ID AND FILE TYPE. C C ONE OR MORE PARTITIONS WILL BE WRITTEN ON EACH CALL. C LOGICAL ANYCON, ERROR, HEAT INTEGER LOCS(3), OUTPT, DICT(5), FILE, EOE, Z, 1 DICTN, NLOCS, PART(3), ELTYPE, ELID, EOR, PRECIS, 2 ESTID, FLAGS, QFILE, FREDMS(3) REAL RBUF(LBUF) DOUBLE PRECISION DBUF(LBUF), DA CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON /XMSSG / UFM, UWM, UIM, SFM COMMON /BLANK / XXXXX(3), NOK4GG COMMON /SYSTEM/ KSYSTM(65) COMMON /EMGDIC/ ELTYPE, LDICT, NLOCS, ELID, ESTID COMMON /EMGFIL/ MISC(5), MATRIX(3), DICTN(3) COMMON /EMGPRM/ ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT, 1 IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG, 2 ANYCON, FLAGS(3), PRECIS, ERROR, HEAT, ICMBAR, 3 LCSTM, LMAT, LHMAT, KFLAGS(3) COMMON /ZZZZZZ/ Z(1) COMMON /IEMGOT/ NVAL(3) EQUIVALENCE (KSYSTM(2), OUTPT), (FFF,IFFF) DATA EOR , NOEOR, MAXFIL / 1, 0, 3 / C IF (ERROR) RETURN IF (FILE.GE.1 .AND. FILE.LE.MAXFIL) GO TO 30 C C ILLEGAL FILE VALUE C WRITE (OUTPT,10) SFM,FILE 10 FORMAT (A25,' 3108, EMGOUT RECEIVES ILLEGAL FILE TYPE =',I10) 20 ERROR = .TRUE. RETURN C C ON FIRST CALL TO THIS ROUTINE FOR THIS ELEMENT THE SIZE OF COLUMN C AND SIZE OF PARTITION BEING WRITTEN IS SET. C IF NVAL(FILE) .GT. 0 THEN THIS IS NOT THE FIRST CALL. C 30 IF (KFLAGS(FILE) .EQ. 0) RETURN IF (NVAL(FILE)) 40,40,80 40 NVAL(FILE) = DICT(3) C C DETERMINE NUMBER OF ACTIVE FREEDOMS BY COUNTING BITS ON IN CODE C WORD. THIS CODE ADDED AS AN TEMPORARY NECESSITY. C IF (DICT(4) .EQ. 63) GO TO 46 I = DICT(4) ITEMP = 0 DO 45 J = 1,31 IF (MOD(I,2)) 44,44,43 43 ITEMP = ITEMP + 1 44 I = I / 2 IF (I) 47,47,45 45 CONTINUE GO TO 47 C 46 ITEMP = 6 47 FREDMS(FILE) = ITEMP C C CHECK NUMBER OF ACTIVE GRID POINTS FOR THIS ELEMENT TO BE C LESS THAN OR EQUAL TO NLOCS. C IGRIDS = DICT(3)/FREDMS(FILE) IF (IGRIDS .LE. NLOCS) GO TO 48 WRITE (OUTPT,42) SFM,IGRIDS,ELID 42 FORMAT (A25,' 3122, EMGOUT HAS DETERMINED THAT THERE ARE',I10, 1 ' CONNECTING GRID POINTS FOR ELEMENT ID =',I10, /5X, 2 'THIS IS GREATER THAN THE MAXIMUM AS PER /GPTA1/ TABLE ', 3 'FOR THE TYPE OF THIS ELEMENT. PROBABLE ERROR IN ELEMENT', 4 ' ROUTINE PROGRAM') GO TO 20 C 48 LOCS(FILE) = LDICT - NLOCS C C ZERO ALL GINO-LOC SLOTS IN DICTIONARY. C I = LDICT - NLOCS + 1 DO 49 J = I,LDICT DICT(J) = 0 49 CONTINUE IF (DICT(2) .EQ. 1) GO TO 60 IF (DICT(2) .EQ. 2) GO TO 70 WRITE (OUTPT,50) SFM,DICT(2),ELID 50 FORMAT (A25,' 3109, EMGOUT HAS BEEN SENT AN INVALID DICTIONARY ', 1 'WORD-2 =',I10,' FROM ELEMENT ID =',I10) GO TO 20 C C FULL SQUARE MATRIX WILL BE OUTPUT. (VALUES PER PARTITION TO WRITE) C 60 PART(FILE) = DICT(3)*FREDMS(FILE) GO TO 80 C C DIAGONAL MATRIX. (VALUES PER PARTITION TO WRITE) C 70 PART(FILE) = FREDMS(FILE) C C WRITE MATRIX DATA TO FILE DESIRED. C 80 NWORDS = PART(FILE) IF (MOD(LBUF,NWORDS)) 90,110,90 90 WRITE (OUTPT,100) SFM,ELID 100 FORMAT (A25,' 3110, EMGOUT HAS BEEN CALLED TO WRITE AN INCORRECT', 1 ' NUMBER OF WORDS FOR ELEMENT ID =',I10) GO TO 20 C 110 ILOC = LOCS(FILE) IF (LBUF .LE. 0) GO TO 130 QFILE = MATRIX(FILE) IF (INPREC .NE. PRECIS) GO TO 121 C C INPUT AND OUTPUT PRECISIONS ARE THE SAME C N2WORD = PRECIS*NWORDS K = 1 DO 120 I = 1,LBUF,NWORDS ILOC = ILOC + 1 CALL WRITE (QFILE,RBUF(K),N2WORD,EOR) CALL SAVPOS (QFILE,DICT(ILOC)) K = K + N2WORD 120 CONTINUE GO TO 129 C C INPUT PRECISION IS DIFFERENT FROM OUTPUT PRECISION C 121 K = 0 DO 126 I = 1,LBUF,NWORDS K = K + NWORDS IF (PRECIS .EQ. 2) GO TO 123 C C DOUBLE PRECISION INPUT AND SINGLE PRECISION OUTPUT C DO 122 J = I,K RA = DBUF(J) CALL WRITE (QFILE,RA,1,NOEOR) 122 CONTINUE GO TO 125 C C SINGLE PRECISION INPUT AND DOUBLE PRECISION OUTPUT C 123 DO 124 J = I,K DA = RBUF(J) CALL WRITE (QFILE,DA,2,NOEOR) 124 CONTINUE 125 ILOC = ILOC + 1 CALL WRITE (QFILE,0,0,EOR) CALL SAVPOS (QFILE,DICT(ILOC)) 126 CONTINUE C 129 LOCS(FILE) = ILOC C C IF -EOE- .GT. 0 (IMPLYING END-OF-ELEMENT-DATA) WRITE C OUT THE COMPLETED DICTIONARY. C 130 IF (EOE) 140,140,150 140 RETURN C C OK -EOE- IS ON. FIRST WRITE DICTIONARY OUT. C INSURE ALL -LOCS- SET CONSIDERING THE NUMBER OF ACTIVE GRID POINTS C FOR THIS PARTICULAR ELEMENT. C 150 IF (LOCS(FILE) .EQ. LDICT-NLOCS+DICT(3)/FREDMS(FILE)) GO TO 170 WRITE (OUTPT,160) SFM,ELID,FILE 160 FORMAT (A25,' 3111, INVALID NUMBER OF PARTITIONS WERE SENT EMGOUT' 1, ' FOR ELEMENT ID =',I10, /5X,'WITH RESPECT TO DATA BLOCK ', 2 'TYPE =',I3,1H.) GO TO 20 C 170 IF (FLAGS(FILE) .GE. 0) GO TO 172 FLAGS(FILE) = IABS(FLAGS(FILE)) CALL WRITE (DICTN(FILE),ELTYPE,3,NOEOR) 172 FLAGS(FILE) = FLAGS(FILE) + 1 CALL WRITE (DICTN(FILE),DICT,LDICT,NOEOR) NVAL(FILE) = 0 C C EXISTENCE OF NON-ZERO DAMPING CONSTANT TURNS ON NOK4GG FLAG. C IF (NOK4GG) 177,177,179 177 IFFF = DICT(5) IF (FFF) 178,179,178 178 NOK4GG = 1 C C CHECK FOR THIS ELEMENT BEING IN CONGRUENT LIST. C C EMGOUT WILL NEVER BE CALLED FOR AN ELEMENT WHICH IS IN THE C CONGRUENT LIST AND ALREADY HAS A DICTIONARY. C 179 IF (.NOT. ANYCON) GO TO 140 CALL BISLOC (*140,ELID,Z(ICONG),2,LCONG/2,J) C C OK ELEMENT IS CONGRUENT, FIND PRIMARY ID. C IADD = ICONG + J 180 IPRIME = Z(IADD) C C IPRIME .GT. 0 POINTS TO PRIMARY ID C IPRIME .EQ. 0 IS PRIMARY ID TABLE POINTER AND NO TABLE EXISTS C IPRIME .LT. 0 IS TABLE POINTER NEGATED. C IF (IPRIME) 260,210,200 C C IPRIME POINTS TO PRIMARY ID C 200 IADD = IPRIME + 1 GO TO 180 C C IPRIME IS TABLE POINTER AND NONE EXISTS YET. C THUS ADD ONE TO CORE, FROM THE BOTTOM OF CORE. C 210 IF (NCORE-MAXFIL .GT. JCORE) GO TO 240 C C NOT ENOUGH CORE SO CONGRUENCY IS IGNORED. C ICRQ = JCORE - NCORE + MAXFIL 220 CALL PAGE2 (4) WRITE (OUTPT,230) UIM,ELID 230 FORMAT (A29,' 3112, ELEMENTS CONGRUENT TO ELEMENT ID =',I10, /5X, 1 'WILL BE RE-COMPUTED AS THERE IS INSUFFICIENT CORE AT ', 2 'THIS MOMENT TO HOLD DICTIONARY DATA.') WRITE (OUTPT,232) ICRQ 232 FORMAT (5X,24HADDITIONAL CORE NEEDED =,I8,7H WORDS.) GO TO 140 C C ALLOCATE SMALL TABLE FOR POINTERS TO DICTIONARY FOR EACH FILE TYPE C POSSIBLE. C C NOTE THAT THE ELEMENT-ID (IF SECONDARY) WILL HAVE A POINTER TO THE C PRIMARY-ID. THE PRIMARY-ID THEN WILL HAVE A POINTER TO A TABLE C OF SIZE -MAXFIL- POINTING TO -MAXFIL- DICTIONARYS. (SOME OF WHICH C MAY NOT YET OR EVER BE CREATED). C NO CORE IS USED UNTIL A DICTIONARY IS CREATED. C 240 I2 = NCORE NCORE = NCORE - MAXFIL I1 = NCORE + 1 DO 250 I = I1,I2 Z(I) = 0 250 CONTINUE C C STORE ZERO ADDRESS OF THIS TABLE WITH PRIMARY ID. C Z(IADD) = -NCORE IPRIME = -NCORE C C IPRIME IS NEGATIVE ZERO POINTER TO FILE-DICTIONARY-TABLE FOR THIS C CONGRUENCY SET. C 260 ITAB = -IPRIME C C ALLOCATE DICTIONARY SPACE IN CORE, IF THERE IS CORE, C SET FILE POSITION IN TABLE TO POINT TO THIS DICTIONARY, C AND STORE THE DICTIONARY. C IF (NCORE-LDICT .GT. JCORE) GO TO 270 C C INSUFFICIENT CORE THUS IGNORE CONGRUENCY, AND FOR SAFETY C PURGE THIS CONGRUENCY FOR ALL FILES. C ICRQ = JCORE - NCORE + LDICT Z(IADD) = 0 GO TO 220 C C ALLOCATE AND WRITE DICTIONARY C 270 NCORE = NCORE - LDICT J = NCORE DO 280 I = 1,LDICT J = J + 1 Z(J) = DICT(I) 280 CONTINUE C C STORE DICTIONARY ADDRESS IN TABLE(FILE), WHERE TABLE BEGINS C AT Z(ITAB+1). C Z(ITAB+FILE) = NCORE + 1 GO TO 140 END ================================================ FILE: mis/emgpro.f ================================================ SUBROUTINE EMGPRO (IBUF) C C THIS ROUTINE OF THE -EMG- MODULE IS THE MAIN PROCESSOR. IT WILL C PASS THE -EST- DATA BLOCK ONCE, ELEMENT TYPE BY ELEMENT TYPE. C C ELEMENT TYPES CONTRIBUTING TO STIFFNESS, MASS, OR DAMPING MATRICES C WILL BE PROCESSED. C LOGICAL ANYCON, ERROR, HEAT INTEGER Z, EST, CSTM, DIT, GEOM2, DICTN, SAVJCR, ELID, 1 OUTPT, EOR, SUBR(2), ELTYPE, PRECIS, ESTBUF, 2 ELEM, ESTWDS, ESTID, SAVNCR, DOSI(2), FLAGS, 3 SIL(32), SYSBUF, SCR3, SCR4, RET DOUBLE PRECISION DUMMY DIMENSION IZ(1), IPOS(32), IBUF(7), TRIM6(2), TRPL1(2), 1 TRSHL(2), ESTX(12) CHARACTER UFM*23, UWM*25, UIM*29, SFM*25, SWM*27 COMMON /XMSSG / UFM, UWM, UIM, SFM, SWM COMMON /BLANK / NOK, NOM, NOB, NOK4GG, NOKDGG, NOCMAS, NCPBAR, 1 NCPROD, NCPQD1, NCPQD2, NCPTR1, NCPTR2, NCPTUB, 2 NCPQDP, NCPTRP, NCPTRB, VOLUME, SURFAC COMMON /SYSTEM/ KSYSTM(65) COMMON /GPTA1 / NELEM, LAST, INCR, ELEM(1) COMMON /EMGFIL/ EST, CSTM, MPT, DIT, GEOM2, MATS(3), DICTN(3) COMMON /EMGPRM/ ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT, 1 IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG, 2 ANYCON, FLAGS(3), PRECIS, ERROR, HEAT, 3 ICMBAR, LCSTM, LMAT, LHMAT, KFLAGS(3), L38 COMMON /EMGEST/ ESTBUF(200) COMMON /EMGDIC/ ELTYPE, LDICT, NLOCS, ELID, ESTID COMMON /ZZZZZZ/ Z(1) COMMON /IEMGOT/ NVAL(3) COMMON /MATOUT/ EGNU(6), RHO COMMON /IEMGOD/ DUMMY, KTYPES COMMON /IEMG1B/ ICALL, ILAST COMMON /SMA1CL/ KDUMMY(22), KNOGO COMMON /SMA2CL/ MDUMMY(20), MNOGO EQUIVALENCE (KSYSTM( 2),OUTPT), (KSYSTM( 1),SYSBUF ), 1 (KSYSTM(55),IPREC), (ESTBUF( 1),ESTX(1)), 2 (IZ ( 1),Z(1) ) DATA TRIM6, TRPL1, TRSHL / 1 4HCTRI, 4HM6 , 4HCTRP,4HLT1 , 4HCTRS,4HHL / DATA SCR3 , SCR4 / 303, 304 / DATA EOR , NOEOR / 1, 0 /, SUBR / 4HEMGP,4HRO / DATA DOSI / 4HDOUB, 4HSING / C IQDMM1 = 0 IQDMM2 = 0 NVAL(1)= 0 NVAL(2)= 0 NVAL(3)= 0 LTYPES = 0 KTYPES = 0 DUMMY = 0.0D0 ICALL = 0 ILAST = 0 C C INITIALIZE /SMA1CL/ AND /SMA2CL/ C KNOGO = 0 MNOGO = 0 KDUMMY(10) = 10 MDUMMY(10) = 10 C C FOLLOWING CALL PREPS /GPTA1/ FOR DUMMY ELEMENTS C CALL DELSET C C DEFINE WORKING CORE BLOCK FOR RESET PURPOSES. C IPR = PRECIS IF (IPR .NE. 1) IPR = 0 SAVJCR = JCORE SAVNCR = NCORE ESTID = 0 LNUM = LCONG/2 C C READ THE ELEMENT TYPE FROM THE EST. C 10 CALL READ (*1340,*1360,EST,ELTYPE,1,NOEOR,IWORDS) IZERO = INCR*(ELTYPE-1) C C CHECK FOR ALLOWABLE ELEMENT TYPES C IF (ELTYPE.EQ. 2 .OR. ELTYPE.EQ.32 .OR. ELTYPE.EQ.33 .OR. 1 ELTYPE.EQ.68 .OR. ELTYPE.EQ.69 .OR. ELTYPE.EQ.72) GO TO 15 IF (ELTYPE.GE.1 .AND. ELTYPE.LE.NELEM) GO TO 40 15 WRITE (OUTPT,20) SFM,ELEM(IZERO+1),ELEM(IZERO+2),ELTYPE 20 FORMAT (A25,' 3105, EMGPRO FINDS ',2A4,' ELEMENTS (ELEM. TYPE ', 1 I3,') UNDEFINED IN EST DATA BLOCK AND/OR ELEMENT ROUTINE.') 30 CALL FWDREC (*1350,EST) ERROR = .TRUE. GO TO 10 C C RESTORE CORE POINTERS C 40 JCORE = SAVJCR NCORE = SAVNCR C C CLEAR ESTBUF C DO 50 I = 1,200 ESTBUF(I) = 0 50 CONTINUE C C SET VARIOUS PARAMETERS = FUNCTION OF THIS ELEMENT TYPE C C TURN ON COUPLED MASS FLAG IF EITHER OF ALL-COUPLED-MASS-FLAG C OR SPECIFIC-TYPE-COUPLED-MASS-FLAG IS ON. C IF (FLAGS(2)) 51,53,51 51 IF (NOCMAS ) 53,52,54 52 IF (ELTYPE .EQ. 34) IF (NCPBAR) 53,53,54 IF (ELTYPE .EQ. 1) IF (NCPROD) 53,53,54 IF (ELTYPE .EQ. 19) IF (NCPQD1) 53,53,54 IF (ELTYPE .EQ. 18) IF (NCPQD2) 53,53,54 IF (ELTYPE .EQ. 6) IF (NCPTR1) 53,53,54 IF (ELTYPE .EQ. 17) IF (NCPTR2) 53,53,54 IF (ELTYPE .EQ. 3) IF (NCPTUB) 53,53,54 IF (ELTYPE .EQ. 15) IF (NCPQDP) 53,53,54 IF (ELTYPE .EQ. 8) IF (NCPTRP) 53,53,54 IF (ELTYPE .EQ. 7) IF (NCPTRB) 53,53,54 53 ICMBAR = -1 GO TO 56 C 54 ICMBAR = 1 C 56 JLTYPE = 2*ELTYPE - IPR ESTWDS = ELEM(IZERO+12) NSILS = ELEM(IZERO+10) ISIL = ELEM(IZERO+13) IF (ELEM(IZERO+9) .NE. 0) ISIL = ISIL - 1 I1 = ISIL I2 = ISIL + NSILS - 1 ISAVE2 = 0 IF (ESTWDS. LE. 200) GO TO 70 WRITE (OUTPT,60) SFM,ELTYPE 60 FORMAT (A25,' 3106, EMGPRO FINDS THAT ELEMENT TYPE ',I3, 1 ' HAS EST ENTRIES TOO LARGE TO HANDLE CURRENTLY.') GO TO 30 C C CHECK TO SEE IF ILLEGAL ELEMENTS ARE USED IN -HEAT- FORMULATION C 70 IF (.NOT.HEAT) GO TO 80 IF (ELTYPE.EQ. 1 .OR. ELTYPE.EQ. 3 .OR. ELTYPE.EQ. 6) GO TO 80 IF (ELTYPE.GE. 9 .AND. ELTYPE.LE.14) GO TO 80 IF (ELTYPE.GE.16 .AND. ELTYPE.LE.24) GO TO 80 IF (ELTYPE.EQ.34 .OR. ELTYPE.EQ.36 .OR. ELTYPE.EQ.37) GO TO 80 IF (ELTYPE.GE.39 .AND. ELTYPE.LE.42) GO TO 80 IF (ELTYPE.EQ.52 .OR. ELTYPE.EQ.62 .OR. ELTYPE.EQ.63) GO TO 80 IF (ELTYPE.GE.64 .AND. ELTYPE.LE.67) GO TO 80 IF (ELTYPE.EQ.80 .OR. ELTYPE.EQ.81 .OR. ELTYPE.EQ.83) GO TO 80 C WRITE (OUTPT,75) UFM,ELEM(IZERO+1),ELEM(IZERO+2),ELTYPE 75 FORMAT (A23,' 3115, EMGPRO FINDS ',2A4,' ELEMENTS (ELEMENT TYPE ', 1 I3,') PRESENT IN A HEAT FORMULATION.') GO TO 30 C C SET UP VARIABLES TO BE WRITTEN AS DICTIONARY 3-WORD HEADER C 80 NLOCS = NSILS LDICT = NLOCS + 5 C C READ AN ELEMENT EST ENTRY C 90 CALL READ (*1350,*1200,EST,ESTBUF,ESTWDS,NOEOR,IWORDS) ELID = ESTBUF(1) ESTID = ESTID + 1 C C CHECK TO SEE IF THIS ELEMENT IS CONGRUENT TO ANOTHER ALREADY C POSSESSING A DICTIONARY IN CORE. C IF (.NOT.ANYCON) GO TO 150 CALL BISLOC (*150,ELID,Z(ICONG),2,LNUM,J) C C MATCH FOUND. CHECK FOR DICTIONARY-TABLE ON PRIMARY. C IPRIME = Z(ICONG+J ) IDPRIM = Z(ICONG+J-1) 100 IF (IPRIME) 120,104,110 C C SET UP ELEMENT MATRIX MAPPING ARRAY FOR LATER USE BY OTHER C ELEMENTS IN THIS CONGRUENT SET C 104 ICG = JCORE JJCORE = JCORE + 2*NSILS + 5 ICRQ = JJCORE - NCORE IF (JJCORE .GE .NCORE) GO TO 1800 JCORE = JJCORE IZ(ICG) = IDPRIM IZ(ICG+1) = NSILS IZ(ICG+2) = 0 IZ(ICG+3) = 0 IZ(ICG+4) = 0 IGOTO = 0 GO TO 1380 C C IPRIME POINTS TO PRIMARY ID C 110 IDPRIM = Z(IPRIME ) IPRIME = Z(IPRIME+1) GO TO 100 C C IPRIME IS NEGATIVE TABLE ADDRESS IMPLYING DICTIONARY EXISTS. C 120 IF (ERROR) GO TO 150 IPRIME =-IPRIME IMATCH = 0 IBFIND = 1 J = 0 125 J = J + 1 IADD = Z(IPRIME+J) IF (IADD) 140,140,130 C C COPY DICTIONARY FROM CORE TO DICTIONARY FILE. C 130 Z(IADD) = ESTID FLAGS(J) = FLAGS(J) + 1 CALL WRITE (DICTN(J),Z(IADD),5,NOEOR) IADDD = IADD + 5 IF (IMATCH .EQ. 1) GO TO 135 IF (IMATCH .EQ. 2) GO TO 1600 INDCNG = SAVJCR IGOTO = 1 131 IF (IZ(INDCNG) .EQ. IDPRIM) GO TO 1380 JJCORE = INDCNG + 2*IZ(INDCNG+1) + 5 IF (JJCORE .GE. NCORE) GO TO 1820 INDCNG = JJCORE GO TO 131 133 DO 134 L = 1,NSILS IF (IPOS(L) .NE. IZ(INDCNG+NSILS+L+4)) GO TO 137 134 CONTINUE IMATCH = 1 135 CALL WRITE (DICTN(J),Z(IADDD),NSILS,NOEOR) GO TO 140 137 IMATCH = 2 GO TO 1600 140 IBFIND = IBFIND + 2 IF (J .LT. 3) GO TO 125 GO TO 90 C C BRANCH ON ELEMENT TYPE. INDIVIDUAL ROUTINES WILL COMPUTE AND C OUTPUT ALL MATRIX TYPES DESIRED BASED ON FLAGS AVAILABLE TO THEM. C 150 IF (ELTYPE .EQ. LTYPES) GO TO 152 LTYPES = ELTYPE IF (LTYPES .GT. NELEM) GO TO 15 CALL PAGE2 (3) WRITE (OUTPT,151) UIM,DOSI(IPR+1),ELEM(IZERO+1),ELEM(IZERO+2), 1 ELTYPE,ELID 151 FORMAT (A29,' 3113,', /5X,'EMG MODULE PROCESSING ',A4, 1 'LE PRECISION ',2A4,' ELEMENTS (ELEMENT TYPE ',I3, 2 ') STARTING WITH ID ',I8) IF (ELTYPE.GE.84 .AND. ELTYPE.LE.86) WRITE (OUTPT,2300) 152 IF (L38 .NE. 1) GO TO 154 CALL PAGE2 (1) WRITE (OUTPT,153) ELID 153 FORMAT (5X,'ELEMENT ',I8,' IS BEING PROCESSED') 154 LOCAL = JLTYPE - 100 IF (LOCAL) 155,155,156 C C PAIRED -GO TO- ENTRIES PER ELEMENT SINGLE/DOUBLE PRECISION C C 1 CROD 2 C..... 3 CTUBE 4 CSHEAR 5 CTWIST 155 GO TO (210, 215, 15, 15, 230, 235, 240, 245, 250, 255, C C 6 CTRIA1 7 CTRBSC 8 CTRPLT 9 CTRMEM 10 CONROD 1 260, 265, 270, 275, 280, 285, 290, 295, 210, 215, C C 11 ELAS1 12 ELAS2 13 ELAS3 14 ELAS4 15 CQDPLT 2 320, 320, 325, 325, 335, 335, 345, 345, 350, 355, C C 16 CQDMEM 17 CTRIA2 18 CQUAD2 19 CQUAD1 20 CDAMP1 3 360, 365, 370, 375, 380, 385, 390, 395, 405, 405, C C 21 CDAMP2 22 CDAMP3 23 CDAMP4 24 CVISC 25 CMASS1 4 415, 415, 425, 425, 435, 435, 440, 445, 455, 455, C C 26 CMASS2 27 CMASS3 28 CMASS4 29 CONM1 30 CONM2 5 465, 465, 475, 475, 485, 485, 490, 495, 500, 505, C C 31 PLOTEL 32 C..... 33 C..... 34 CBAR 35 CCONEAX 6 510, 515, 15, 15, 15, 15, 540, 545, 550, 555, C C 36 CTRIARG 37 CTRAPRG 38 CTORDRG 39 CTETRA 40 CWEDGE 7 560, 565, 570, 575, 580, 585, 590, 595, 600, 605, C C 41 CHEXA1 42 CHEXA2 43 CFLUID2 44 CFLUID3 45 CFLUID4 8 610, 615, 620, 625, 630, 635, 640, 645, 650, 655, C C 46 CFLMASS 47 CAXIF2 48 CAXIF3 49 CAXIF4 50 CSLOT3 9 660, 665, 670, 675, 680, 685, 690, 695, 700, 705 C * ), JLTYPE C C C 51 CSLOT4 52 CHBDY 53 CDUM1 54 CDUM2 55 CDUM3 156 GO TO (710, 715, 720, 725, 730, 730, 740, 740, 750, 750, C C 56 CDUM4 57 CDUM5 58 CDUM6 59 CDUM7 60 CDUM8 B 760, 760, 770, 770, 780, 780, 790, 790, 800, 800, C C 61 CDUM9 62 CQDMEM1 63 CQDMEM2 64 CQUAD4 65 CIHEX1 C 810, 810, 820, 825, 830, 835, 950, 955, 850, 855, C C 66 CIHEX2 67 CIHEX3 68 CQUADTS 69 CTRIATS 70 CTRIAAX D 850, 855, 850, 855, 15, 15, 15, 15, 880, 885, C C 71 CTRAPAX 72 CAERO1 73 CTRIM6 74 CTRPLT1 75 CTRSHL E 890, 895, 15, 15, 900, 905, 910, 915, 920, 925, C C 76 CFHEX1 77 CFHEX2 78 CFTETRA 79 CFWEDGE 80 CIS2D8 F 610, 615, 620, 625, 590, 595, 600, 605, 930, 935, C C 81 CELBOW 82 FTUBE 83 CTRIA3 84 CPSE2 85 CPSE3 G 940, 945, 840, 840, 960, 965, 90, 90, 90, 90, C C 86 CPSE4 H 90, 90 C * ), LOCAL C C ================================================================== C A WALKING TOUR OF EMG TO COMPUTE STIFFNESS (K-) AMD MASS (M-) C MATRICES FOR AN 'OLD' ELEMENT SUCH AS CTRIA2. C SEE HOW EASY IT IS. G.CHAN/UNISYS, 7/87 C C EMG SUPPORTING ROUTINES - C EMGTAB,EMGCNG,EMGCOR,EMGFIN, C EMGSOC (WHICH COMPUTES OFFSET BETWWEN /ZZEMGX/ AND /ZZEMII/ AND C / SETS ICORE,JCORE,NCORE IN /EMGPRM/ FOR OPEN CORE USAGE) C / C / --->EMG1B---->EMGOUT C / / OUTPUT PIVOT ROW PARTITION C EMG---->EMGPRO---->CTRIA2 / AFTER KTRIQD IS DONE, AND C / AN ENTRY POINT / ALSO AFTER MTRIQD C /ZZEMGX/ IN / (*) C OLDEL3--->EMGOLD--->KTRIQD--->KTRMEM--->KTRPLT C / / C ------->MTRIQD /ZZEM14/ C (*) (&) UNIT 14 IS C KTRPLT---------------->KTRBSC ALLOCATED C TO COMPUTE BENDING TO COMPUTE MEMBRANE TO CTRIA2 C FOR CTRIA2 FOR CTRIA2 BY TA1ABD C / / C ------->SMA1B<---------- C \ C ---->EMG1B---->EMGOUT C OUTPUT A K-MATRIX C (&) PARTITION C MTRIQD BRANCH, FOR M-MATRIX C FOR CTRIA2 ELEMENT, IS SIMILARLY C STRUCTURED AS THAT OF THE KTRIQD BRANCH C C REPEAT DAMPING B-MATRIX IF NECESSARY C IF ELEMENT HAS HEAT CAPBABILITY - WHAT DO I DO NOW? C C THIS SYMBOL '>' IS RIGHT ARROW HEAD, AND '<' IS LEFT ARROW HEAD C ================================================================== C 210 CALL RODS GO TO 90 215 CALL RODD GO TO 90 230 CALL TUBES GO TO 90 235 CALL TUBED GO TO 90 240 CALL SHEARS GO TO 90 245 CALL SHEARD GO TO 90 250 CALL TWISTS GO TO 90 255 CALL TWISTD GO TO 90 260 CALL TRIA1S GO TO 300 265 CALL TRIA1D GO TO 300 270 CALL TRBSCS GO TO 300 275 CALL TRBSCD GO TO 300 280 CALL TRPLTS GO TO 300 285 CALL TRPLTD GO TO 300 290 CALL TRMEMS GO TO 300 295 CALL TRMEMD 300 KHT = 7 L = 9 IF (VOLUME.EQ.0 .AND. SURFAC.EQ.0) GO TO 90 CALL WRITE (SCR4,ELEM(IZERO+1),2,0) CALL WRITE (SCR4,ESTBUF(1),1,0) ESTX(5) = ESTX(KHT) ESTX(6) = RHO ESTBUF(7) = 3 CALL WRITE (SCR4,ESTBUF(5), 3,0) CALL WRITE (SCR4,ESTBUF(2), 3,0) CALL WRITE (SCR4,ESTBUF(L),12,1) GO TO 90 310 KHT = 8 L = 10 315 IF (VOLUME.EQ.0 .AND. SURFAC.EQ.0) GO TO 90 CALL WRITE (SCR4,ELEM(IZERO+1),2,0) CALL WRITE (SCR4,ESTBUF(1),1,0) ESTX(5) = ESTX(KHT) ESTX(6) = RHO ESTBUF(7) = 4 CALL WRITE (SCR4,ESTBUF(5), 3,0) CALL WRITE (SCR4,ESTBUF(2), 4,0) CALL WRITE (SCR4,ESTBUF(L),16,1) GO TO 90 320 NSCAL1 = 1 GO TO 346 325 NSCAL1 = 2 GO TO 346 335 NSCAL1 = 3 GO TO 346 345 NSCAL1 = 4 346 NSCAL2 = 1 GO TO 487 350 CALL QDPLTS 352 KHT = 10 L = 14 GO TO 315 355 CALL QDPLTD GO TO 352 360 CALL QDMEMS GO TO 310 365 CALL QDMEMD GO TO 310 370 CALL TRIA2S GO TO 300 375 CALL TRIA2D GO TO 300 380 CALL QUAD2S GO TO 310 385 CALL QUAD2D GO TO 310 390 CALL QUAD1S 392 IF (ESTX(12) .LE. 0.0) ESTX(12) = ESTX(8) KHT = 12 L = 14 GO TO 315 395 CALL QUAD1D GO TO 392 405 NSCAL1 = 1 GO TO 436 415 NSCAL1 = 2 GO TO 436 425 NSCAL1 = 3 GO TO 436 435 NSCAL1 = 4 436 NSCAL2 = 3 GO TO 487 440 CALL VISCS IF (FLAGS(3) .EQ. 0) WRITE (OUTPT,442) UWM 442 FORMAT (A25,' 2422, VISC DATA NOT PROCESSED BY EMGPRO.') GO TO 90 445 CALL VISCD IF (FLAGS(3) .EQ. 0) WRITE (OUTPT,442) UWM GO TO 90 455 NSCAL1 = 1 GO TO 486 465 NSCAL1 = 2 GO TO 486 475 NSCAL1 = 3 GO TO 486 485 NSCAL1 = 4 486 NSCAL2 = 2 487 CALL SCALED (NSCAL1,NSCAL2) GO TO 90 490 CALL CONM1S GO TO 90 495 CALL CONM1D GO TO 90 500 CALL CONM2S GO TO 90 505 CALL CONM2D GO TO 90 510 CALL PLOTLS GO TO 90 515 CALL PLOTLD GO TO 90 540 CALL BARS GO TO 90 545 CALL BARD GO TO 90 550 CALL CONES GO TO 90 555 CALL CONED GO TO 90 560 CALL TRIARS GO TO 90 565 CALL TRIARD GO TO 90 570 CALL TRAPRS GO TO 90 575 CALL TRAPRD GO TO 90 580 CALL TORDRS GO TO 90 585 CALL TORDRD GO TO 90 590 CALL TETRAS GO TO 90 595 CALL TETRAD GO TO 90 600 CALL WEDGES GO TO 90 605 CALL WEDGED GO TO 90 610 CALL HEXA1S GO TO 90 615 CALL HEXA1D GO TO 90 620 CALL HEXA2S GO TO 90 625 CALL HEXA2D GO TO 90 630 CALL FLUD2S GO TO 90 635 CALL FLUD2D GO TO 90 640 CALL FLUD3S GO TO 90 645 CALL FLUD3D GO TO 90 650 CALL FLUD4S GO TO 90 655 CALL FLUD4D GO TO 90 660 CALL FLMASS GO TO 90 665 CALL FLMASD GO TO 90 670 CALL AXIF2S GO TO 90 675 CALL AXIF2D GO TO 90 680 CALL AXIF3S GO TO 90 685 CALL AXIF3D GO TO 90 690 CALL AXIF4S GO TO 90 695 CALL AXIF4D GO TO 90 700 CALL SLOT3S GO TO 90 705 CALL SLOT3D GO TO 90 710 CALL SLOT4S GO TO 90 715 CALL SLOT4D GO TO 90 720 CALL HBDYS GO TO 90 725 CALL HBDYD GO TO 90 730 CALL KDUM1 GO TO 90 740 CALL KDUM2 GO TO 90 750 CALL KDUM3 GO TO 90 760 CALL KDUM4 GO TO 90 770 CALL KDUM5 GO TO 90 780 CALL KDUM6 GO TO 90 790 CALL KDUM7 GO TO 90 800 CALL KDUM8 GO TO 90 810 CALL KDUM9 GO TO 90 820 IF (.NOT.HEAT) GO TO 822 IF (IQDMM1 .NE. 0) GO TO 360 ASSIGN 360 TO RET IQDMM1 = 1 GO TO 1000 822 CALL QDMM1S GO TO 310 825 IF (.NOT.HEAT) GO TO 827 IF (IQDMM1 .NE. 0) GO TO 365 ASSIGN 365 TO RET IQDMM1 = 1 GO TO 1000 827 CALL QDMM1D GO TO 310 830 IF (.NOT.HEAT) GO TO 832 IF (IQDMM2 .NE. 0) GO TO 360 ASSIGN 360 TO RET IQDMM2 = 1 GO TO 1000 832 CALL QDMM2S GO TO 310 835 IF (.NOT.HEAT) GO TO 837 IF (IQDMM2 .NE. 0) GO TO 365 ASSIGN 365 TO RET IQDMM2 = 1 GO TO 1000 837 CALL QDMM2D GO TO 310 840 CALL FTUBE GO TO 90 850 CALL IHEXS (ELTYPE-64) GO TO 90 855 CALL IHEXD (ELTYPE-64) GO TO 90 880 CALL TRIAAX GO TO 90 885 CALL TRIAAD GO TO 90 890 CALL TRAPAX GO TO 90 895 CALL TRAPAD GO TO 90 900 CALL KTRM6S L = 14 GO TO 927 905 CALL KTRM6D L = 14 GO TO 927 910 CALL KTRPLS L = 24 GO TO 927 915 CALL KTRPLD L = 24 GO TO 927 920 CALL KTSHLS L = 28 GO TO 927 925 CALL KTSHLD L = 28 927 IF (VOLUME.EQ.0.0 .AND. SURFAC.EQ.0.0) GO TO 90 ESTX(8) = ELEM(IZERO+1) ESTX(9) = ELEM(IZERO+2) IF (ESTX(11) .LE. 0.0) ESTX(11) = ESTX(10) IF (ESTX(12) .LE. 0.0) ESTX(12) = ESTX(10) THK = (ESTX(10) + ESTX(11) + ESTX(12))/3. ESTBUF(10) = ESTBUF(1) ESTX (11) = THK ESTX (12) = RHO ESTBUF(13) = 6 CALL WRITE (SCR4,ESTBUF(8), 6,0) CALL WRITE (SCR4,ESTBUF(2), 6,0) CALL WRITE (SCR4,ESTBUF(L),24,1) GO TO 90 930 CALL IS2D8S GO TO 90 935 CALL IS2D8D GO TO 90 940 CALL ELBOWS GO TO 90 945 CALL ELBOWD GO TO 90 950 CALL QUAD4S GO TO 90 955 CALL QUAD4D GO TO 90 960 CALL TRIA3S GO TO 90 965 CALL TRIA3D GO TO 90 C C PRINT WARNING MESSAGE TO INDICATE THAT QDMEM1 ELEMENTS C (ELEMENT TYPE 62) AND QDMEM2 ELEMENTS (ELEMENT TYPE 63) C ARE REPLACED BY QDMEM ELEMENTS (ELEMENT TYPE 16) IN C -HEAT- FORMULATION C 1000 INDEX = 15*INCR INDEX1 = 16 CALL PAGE2 (3) WRITE (OUTPT,1100) UWM,ELEM(IZERO+1),ELEM(IZERO+2),ELTYPE, 1 ELEM(INDEX+1),ELEM(INDEX+2),INDEX1 1100 FORMAT (A25,' 3144, EMGPRO FINDS ',2A4,' ELEMENTS (ELEMENT TYPE ', 1 I3,') PRESENT IN A HEAT FORMULATION AND IS',/5X,'REPLACING' 2, ' THE SAME BY ',2A4,' ELEMENTS (ELEMENT TYPE ',I3,2H).) GO TO RET, (360,365) C C ALL ELEMENTS OF THIS ELEMENT TYPE PROCESSED. C COMPLETE DICTIONARY RECORD FOR ELEMENT TYPE. C 1200 IF (ERROR) GO TO 1310 DO 1300 I = 1,3 IF (FLAGS(I) .LE. 0) GO TO 1300 FLAGS(I) = -FLAGS(I) CALL WRITE (DICTN(I),0,0,EOR) 1300 CONTINUE C C FOR SAFETY AND IF CONGRUENCY EXISTS CLEAR OFF ANY TABLE POINTERS C ON PRIMARY-IDS IN THE CONGRUENCY LIST C 1310 IF (.NOT.ANYCON) GO TO 10 DO 1330 I = ICONG,NCONG,2 IF (Z(I+1) .LT. 0) Z(I+1) = 0 1330 CONTINUE GO TO 10 C C ALL ELEMENT TYPES HAVE BEEN PROCESSED. C 1340 CONTINUE IF (KNOGO.GT.0 .OR. MNOGO.GT.0) CALL MESAGE (-61,0,0) RETURN C C IMPROPER ENCOUNTER OF AN -EOF- C 1350 JFILE = EST 1355 CALL MESAGE (-2,JFILE,SUBR) C C IMPROPER ENCOUNTER OF AN -EOR- C 1360 JFILE = EST CALL MESAGE (-3,JFILE,SUBR) C C FILE NOT IN FIST C 1370 CALL MESAGE (-1,JFILE,SUBR) C C COMPUTE MAPPING DATA FOR CONGRUENT ELEMENTS C 1380 L1 = NSILS DO 1430 L = I1,I2 IF (ESTBUF(L) .EQ. 0) GO TO 1420 M = 1 DO 1410 N = I1,I2 IF (ESTBUF(N)-ESTBUF(L)) 1400,1390,1410 1390 IF (N.GE.L) GO TO 1410 1400 IF (ESTBUF(N) .NE. 0) M = M + 1 1410 CONTINUE GO TO 1425 1420 M = L1 L1 = L1 - 1 1425 IPOS(M) = L - I1 + 1 SIL(M) = ESTBUF(L) 1430 CONTINUE IF (IGOTO .EQ. 1) GO TO 133 DO 1460 L = I1,I2 L1 = L - I1 + 1 DO 1440 N = 1,NSILS IF (ESTBUF(L) .NE. SIL(N)) GO TO 1440 IZ(ICG+L1+4) = N GO TO 1450 1440 CONTINUE 1450 IZ(ICG+NSILS+L1+4) = IPOS(L1) 1460 CONTINUE GO TO 150 C C CHECK IF THE ELEMENT MATRIX IS DIAGONAL C 1600 IF (IZ(IADD+1) .NE. 2) GO TO 1604 C C ELEMENT MATRIX IS DIAGONAL. C RE-WRITE ONLY THE ELEMENT DICTIONARY FOR A CONGRUENT ELEMENT. C DO 1602 L = 1,NSILS M = IPOS(L) N = IZ(INDCNG+M+4) - 1 CALL WRITE (DICTN(J),Z(IADDD+N),1,NOEOR) 1602 CONTINUE GO TO 140 C C ELEMENT MATRIX IS SQUARE. C PICK UP ELEMENT MATRIX DATA FOR A CONGRUENT ELEMENT THAT HAS C ALREADY BEEN PROCESSED AND STORE IT ON SCR3. C 1604 IBUF1 = NCORE - SYSBUF - 2 ICRQ = JCORE - IBUF1 IF (ICRQ .GT. 0) GO TO 1840 IBUF3 = IBUF1 - 1 ICRQ = JCORE - IBUF3 + 36*NSILS*IPREC IF (ICRQ .GT. 0) GO TO 1840 IFILE = MATS(J) IF (IZ(INDCNG+J+1) .NE. 0) GO TO 1640 CALL SAVPOS (IFILE,ISAVE1) CALL CLOSE (IFILE,1) IBUF2 = IBUF(IBFIND+1) CALL GOPEN (IFILE,Z(IBUF2),0) CALL FILPOS (IFILE,Z(IADDD)) IF (ISAVE2 .NE. 0) GO TO 1605 CALL GOPEN (SCR3,Z(IBUF1),1) GO TO 1607 1605 JFILE = SCR3 CALL OPEN (*1370,SCR3,Z(IBUF1),3) 1607 JFILE = IFILE DO 1620 L1 = 1,NSILS CALL READ (*1355,*1610,IFILE,Z(JCORE),IBUF3,EOR,N) 1610 CALL WRITE (SCR3,Z(JCORE),N,EOR) IF (L1 .EQ. 1) CALL SAVPOS (SCR3,IZ(INDCNG+J+1)) 1620 CONTINUE CALL FILPOS (IFILE,ISAVE1) CALL SKPREC (IFILE,1) CALL CLOSE (IFILE,2) CALL OPEN (*1370,IFILE,Z(IBUF2),3) CALL SAVPOS (SCR3,ISAVE2) CALL CLOSE (SCR3,1) C C ELEMENT MATRIX DATA IS AVAILABLE ON SCR3. REARRANGE IT IN C THE REQUIRED ORDER AND WRITE IT ON THE OUTPUT DATA BLOCK. C 1640 CALL GOPEN (SCR3,Z(IBUF1),0) JFILE = SCR3 DO 1680 L = 1,NSILS CALL FILPOS (SCR3,IZ(INDCNG+J+1)) M = IPOS(L) N = IZ(INDCNG+M+4) - 1 CALL SKPREC (SCR3,N) CALL READ (*1355,*1650,SCR3,Z(JCORE),IBUF3,EOR,N) 1650 NNWRDS = N/(NSILS*IPREC) NNWRDS = SQRT(NNWRDS+0.5) NWORDS = NNWRDS*IPREC JJCORE = JCORE DO 1670 L2 = 1,NNWRDS DO 1660 L1 = 1,NSILS M = IPOS(L1) N = IZ(INDCNG+M+4) - 1 CALL WRITE (IFILE,Z(JJCORE+N*NWORDS),NWORDS,NOEOR) 1660 CONTINUE JJCORE = JJCORE + NWORDS*NSILS 1670 CONTINUE CALL WRITE (IFILE,0,0,1) CALL SAVPOS (IFILE,ISAVE1) CALL WRITE (DICTN(J),ISAVE1,1,NOEOR) 1680 CONTINUE CALL FILPOS (SCR3,ISAVE2) CALL SKPREC (SCR3,1) CALL CLOSE (SCR3,2) GO TO 140 1800 WRITE (OUTPT,2000) UIM,IDPRIM WRITE (OUTPT,2400) ICRQ GO TO 1850 1820 WRITE (OUTPT,2100) SWM,ESTID GO TO 1850 1840 WRITE (OUTPT,2200) UIM,ESTID WRITE (OUTPT,2400) ICRQ 1850 CALL PAGE2 (4) GO TO 150 C 2000 FORMAT (A29,' 2382, ELEMENT MATRICES FOR ELEMENTS CONGRUENT TO ', 1 'ELEMENT ID =',I10, /5X,'WILL BE RE-COMPUTED AS THERE IS', 2 ' INSUFFICIENT CORE AT THIS TIME TO HOLD CONGRUENCY ', 3 'MAPPING DATA.') 2100 FORMAT (A27,' 2383, UNABLE TO LOCATE CONGRUENCY MAPPING DATA FOR', 1 ' ELEMENT ID =',I10,1H., /5X,'ELEMENT MATRICES FOR THIS ', 2 'ELEMENT WILL, THEREFORE, BE RE-COMPUTED.') 2200 FORMAT (A29,' 2384, CONGRUENCY OF ELEMENT ID =',I10, 1 ' WILL BE IGNORED AND ITS ELEMENT MATRICES', /5X, 2 'WILL BE RE-COMPUTED AS THERE IS INSUFFICIENT CORE AT ', 3 'THIS TIME TO PERFORM CONGRUENCY MAPPING COMPUTATIONS.') 2300 FORMAT (5X,'(STEPPING THRU ONLY. NO REAL COMPUTATION HERE FOR ', 1 'THIS DIFFERENTIAL STIFFNESS ELEMENT)') 2400 FORMAT (5X,'ADDITIONAL CORE NEEDED =',I9,' WORDS.') C END ================================================ FILE: mis/emgtab.f ================================================ SUBROUTINE EMGTAB C***** C THIS ROUTINE OF THE -EMG- MODULE PREPARES OPEN CORE WITH SOME C VARIOUS TABLES. CSTM, MAT, ETC. C C UTILITY ROUTINES ARE USED FOR THE MOST PART. C***** LOGICAL ANYCON, ERROR, HEAT INTEGER RDREW, WRT, WRTREW, CLS, CLSREW, BUF1, SUBR(2), 1 PRECIS, SYSBUF, EST, CSTM, DIT, GEOM2, Z, FILE, 2 EOR, RD, FLAGS, DITFIL COMMON /SYSTEM/ KSYSTM(65) COMMON /NAMES / RD, RDREW, WRT, WRTREW, CLSREW, CLS COMMON /EMGPRM/ ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT, 1 IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG, 2 ANYCON, FLAGS(3), PRECIS, ERROR, HEAT 3 ,ICMBAR, LCSTM, LMAT, LHMAT COMMON /EMGFIL/ EST, CSTM, MPT, DIT, GEOM2 COMMON /HMATDD/ IIHMAT, NNHMAT, MPTFIL, DITFIL COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (KSYSTM(1), SYSBUF) DATA SUBR / 4HEMGT, 4HAB /, EOR/ 1 / C***** C READ -CSTM- INTO CORE. C***** BUF1 = NCORE - SYSBUF - 2 ICRQ = JCORE - BUF1 IF (BUF1 .LE. JCORE) GO TO 10 ICSTM = JCORE NCSTM = JCORE - 1 FILE = CSTM CALL OPEN (*30,CSTM,Z(BUF1),RDREW) CALL FWDREC (*30,CSTM) CALL READ (*60,*20,CSTM,Z(ICSTM),BUF1-JCORE,EOR,LCSTM) ICRQ = BUF1 - JCORE 10 CALL MESAGE (-8,ICRQ,SUBR) 20 CALL CLOSE (CSTM,CLSREW) NCSTM = ICSTM + LCSTM - 1 CALL PRETRS (Z(ICSTM),LCSTM) CALL PRETRD (Z(ICSTM),LCSTM) C***** C HAMT AND PREMAT C***** 30 IF (.NOT.HEAT) GO TO 40 C C HEAT PROBLEM THUS USE -HMAT- C IMAT = NCSTM + 1 NMAT = NCSTM IIHMAT = NMAT NNHMAT = NCORE MPTFIL = MPT DITFIL = DIT CALL PREHMA (Z) IHMAT = IIHMAT NHMAT = NNHMAT LHMAT = NHMAT - IHMAT JCORE = NHMAT + 1 GO TO 50 C C NON-HEAT PROBLEM THUS USE -MAT- C 40 IMAT = NCSTM + 1 CALL PREMAT (Z(IMAT),Z(IMAT),Z(BUF1),BUF1-IMAT,LMAT,MPT,DIT) NMAT = IMAT + LMAT - 1 IHMAT = NMAT + 1 NHMAT = NMAT JCORE = NHMAT + 1 C 50 CONTINUE RETURN C 60 CALL MESAGE (-2,FILE,SUBR) RETURN END ================================================ FILE: mis/empcor.f ================================================ SUBROUTINE EMPCOR(MT1X,MT2X,PT,PC,FRSROW,MIDROW,LASROW,NX,A,Z) C C EMPTY CORE OF A TRIANGULAR MATRIX C INTEGER PT,PC,FRSROW,ROW,MCB(7) REAL A(1),Z(1) C C C MT1 FIRST PART OF THE MATRIX (UP TO ROW -MIDROW-). C MT2 REST OF THE MATRIX. C PT PRECISION OF THE MATRIX ON TAPE. C PC ......... .. ... ...... IN CORE. C FRSROW FIRST ROW IN CORE. C LAST LAST ... .. CORE. C N SIZE OF THE COMPLETE MATRIX. C A LOCATION OF THE COMPLETE MATRIX. C COMMON /PACKX/IT1,IT2,II,JJ,INCR DATA MCB /7*0/ MT1 = MT1X MT2 = MT2X N = NX MT = MT1 IF(FRSROW .GT. MIDROW .AND. MT2 .NE. 0) MT = MT2 NA =1 INCR = 1 IT1 = PC IT2 = PT JJ = N DO 105 ROW = FRSROW,LASROW II = ROW CALL PACK(A(NA),MT,MCB) IF( ROW .EQ. N) GO TO 110 NA = NA + PC* (N-ROW+1) IF( ROW .NE. MIDROW .OR. MT2 .EQ. 0) GO TO 105 CALL CLOSE(MT,1) MT = MT2 CALL GOPEN(MT,Z,1) 105 CONTINUE GO TO 115 C C END OF CORE DUMP C 110 CALL CLOSE(MT,1) 115 RETURN END ================================================ FILE: mis/emsg.f ================================================ SUBROUTINE EMSG(NCHAR,NO,ISYS,IWF,ITEXT) INTEGER IMSG(2,4), ITEXT(1) COMMON /SYSTEM/SYSBUF(41) C ISYS = 1 USER IWF = 1 WARNING C = 2 SYSTEM = 2 FATAL C EQUIVALENCE (NCPW,SYSBUF(41)),(NOUT,SYSBUF(2)),(IMACH,SYSBUF(22)) DATA IMSG /4HUSER,1H ,4HSYST,4HEM ,4HWARN,4HING ,4HFATA,1HL / NWORD = (NCHAR + NCPW-1)/NCPW NLINE = (NCHAR + 9 + 131)/ 132 +2 CALL PAGE2(-NLINE) NO1=IABS(NO) K = IWF +2 WRITE(NOUT,10)(IMSG(I,ISYS),I=1,2),(IMSG(M,K),M=1,2),NO1 10 FORMAT(1H0,4H*** ,4A4, I4,1H,) IF(NCHAR .EQ. 0) RETURN GO TO (20,30,20,50,30), IMACH C C 7094 C 20 WRITE (NOUT,25)(ITEXT(I),I=1,NWORD) 25 FORMAT(10X, 20A6,A2) GO TO 60 C C 360/370 C 30 WRITE(NOUT,35) (ITEXT(I),I=1,NWORD) 35 FORMAT(10X, 30A4,A2) GO TO 60 C C CDC C 50 WRITE(NOUT,55) (ITEXT(I),I=1,NWORD) 55 FORMAT(10X,12A10,A2) 60 IF (NO .LT. 0) CALL MESAGE(-61,0,0) RETURN END ================================================ FILE: mis/encode.f ================================================ SUBROUTINE ENCODE( II ) C C THIS SUBROUTINE CONVERTS THE DEGREE OF FREEDOM CODES AS GIVEN C IN BULK DATA FORM ( INTEGERS FROM 1-6 ) TO THE BIT PATTERN C USED IN SUBSTRUCTURE ANALYSIS. C DIMENSION IDIV(6) DATA IDIV/ 100000 , 10000 , 1000 , 100 , 10 , 1 / C ISUM = 0 DO 1 I=1,6 J = II/IDIV(I) IF( J .EQ. 0 ) GO TO 1 ISUM = ISUM + 2 ** (J-1) II = II - J*IDIV(I) 1 CONTINUE II = ISUM RETURN END ================================================ FILE: mis/endsys.f ================================================ SUBROUTINE ENDSYS (JOBSEG,JOBEND) C C ENDSYS SAVES VARIOUS EXEC TABLES ON A SCRATCH FILE C C LAST REVISED 5/91 BY G.CHAN/UNISYS FOR SUPERLINK OPERATION C IF SPERLK = 0, WE ARE IN NASTRAN MULTI-LINK COMPUTATION C IF SPERLK = NON-ZERO, WE ARE IN NASTRAN SUPERLINK C SPERLK IS THE 95TH WORD OF /SYSTEM/ C EXTERNAL LSHIFT,RSHIFT,ANDF,ORF LOGICAL BITPAS INTEGER ANDF,FIST,SAVE,SCRN1,SCRN2,THCRMK,POOL,SPERLK, 1 NOPREF(2),RSHIFT,BUF,MSGBUF(8),BCDNUM(10),UNITS, 2 TENS,ORF,UNITAB(75),FCB(75),DATABF,MSG(2),NAME(2), 3 FILE,FILEX,LNKNUM(15),COMM,XF1AT,PREFAC CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,FORTXX*7 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /MACHIN/ MACH COMMON /BLANK / IBLKCM(58),PREFAC(2) COMMON /XPFIST/ NPFIST COMMON /XFIST / FIST(2) COMMON /MSGX / ITAB1(1) COMMON /STIME / ITAB2(2) COMMON /STAPID/ ITAB3(1) COMMON /XDPL / ITAB4(3) COMMON /XXFIAT/ ITAB5(1) COMMON /XFIAT / ITAB6(4) COMMON /XVPS / ITAB7(2) COMMON /XCEITB/ ITAB8(2) COMMON /GINOX / ITAB9(170) COMMON /SYSTEM/ ITAB10(22),LSYSTM,ICFIAT,JTAB10(11),NPRUS, 1 KTAB10(35),BITPAS,LTAB10(18),LPCH,LDICT,MTAB10(2), 2 SPERLK,NTAB10(5) COMMON /OUTPUT/ ITAB11(1) COMMON /NTIME / ITAB13(1) COMMON /XLINK / ITAB14(1) COMMON /SOFCOM/ ITAB15(1) COMMON /BITPOS/ BT(32,2) COMMON /OSCENT/ INOSCR(2) CZZ COMMON /ZZENDS/ DATABF(1) COMMON /ZZZZZZ/ DATABF(1) COMMON /SEM / MASK,THCRMK,IMASK,LINKS(15) COMMON /L15 L8/ L15,L8,L13 COMMON /XSFA1 / DUMMY(1902),COMM(20),XF1AT(1100) C 1902 = 401+1501 C EQUIVALENCE (ITAB10( 1),ISYBUF), (ITAB10(2),NOUT ), 1 (ITAB9 ( 2),FILEX ), (ITAB9(12),UNITAB(1)), 2 (ITAB9(170),FCB(1)) DATA MSGBUF(1)/ 4HLINK / DATA MSGBUF(3)/ 4H / DATA MSGBUF(5)/ 4H---- / DATA MSGBUF(6)/ 4H---- / DATA MSGBUF(7)/ 4H---- / DATA MSGBUF(8)/ 4H---- / DATA SCRN1 , SCRN2 /4HSCRA,4HTCH0/, SAVE/4HSAVE/, 1 POOL / 4HPOOL /, 2 NOPREF / 4HNOT , 4HPREF/ DATA MSG / 4HBEGN, 4HEND / DATA BCDNUM / 1H0, 1H1, 1H2, 1H3, 1H4, 1H5, 1H6, 1H7, 1H8, 1H9 / DATA LNKNUM / 4H 1 , 4H 2 , 4H 3 , 4H 4 , 4H 5 , 1 4H 6 , 4H 7 , 4H 8 , 4H 9 , 4H10 , 2 4H11 , 4H12 , 4H13 , 4H14 , 4H15 / DATA NAME / 4HENDS,4HYS / C C C PUNCH RESTART DICTIONAY C LDICT MAY NOT BE A SYSTEM PUNCH FILE, PUNCH THE CARDS OUT FIRST C BEFORE THE RESTART DICTIONARY CARDS GET LOST C IF (MACH.GE.5 .OR. LDICT.EQ.LPCH) GO TO 8 ENDFILE LDICT REWIND LDICT 5 READ (LDICT,6,ERR=7,END=7) (DATABF(J),J=1,20) 6 FORMAT (20A4) WRITE (LPCH,6) (DATABF(J),J=1,20) GO TO 5 7 REWIND LDICT C 8 MSGBUF(2) = 0 J = 0 DO 10 I = 1,15 IF (JOBEND .EQ. LINKS(I)) MSGBUF(2) = LNKNUM(I) IF (JOBSEG .EQ. LINKS(I)) J = I 10 CONTINUE IF (MSGBUF(2) .NE. 0) GO TO 15 WRITE (NOUT,12) SFM,JOBEND 12 FORMAT (A25,', ILLEGAL LINK NUMBER ',A4,' ENCOUNTERED BY ENDSYS') CALL MESAGE (-61,0,0) 15 MSGBUF(4) = MSG(2) C IF (SPERLK .EQ. 0) GO TO 30 C C SIMPLIFIED OPERATION IF SUPERLINK (USED IN UNIX VERSION) C SPERLK = J ITAB10(22) = JOBSEG C PREFAC(1) = NOPREF(1) C PREFAC(2) = NOPREF(2) CALL CONMSG (MSGBUF ,4,0) CALL CONMSG (MSGBUF(5),4,0) DO 20 J = 2,11 20 ITAB9(J) = 0 DO 25 J = 87,161 IF (ITAB9(J) .EQ. 0) GO TO 25 I = J - 86 WRITE (NOUT,23) SFM,I,JOBEND 23 FORMAT (A25,', LOGICAL UNIT',I5,' WAS NOT CLOSED AT END OF ',A4) C ITAB9(J) = 0 CALL MESAGE (-37,0,0) 25 CONTINUE GO TO 400 C C SEARCH FIAT FOR A SAVE FILE -- FILE MUST SATISFY THE FOLLOWING C (1) FILE MUST BE SCRATCHX OR TRAILERS=0 OR EXPIRED* C (2) IF (1) IS TRUE, NO UNEXPIRED SECONDARY ALLOCATIONS WITH C NON-ZERO TRAILERS MAY EXIST. (ALSO FILE MUST NOT BE PURGED) C AN EXPIRED FILE HAS AN LTU LESS THAN THE CURRENT OSCAR POSITION. C 30 FILE = SAVE LMT = ITAB6(3)*ICFIAT + 3 NEXT = LSHIFT(INOSCR(2),16) IFOUND = 0 FIST(2) = NPFIST + 1 FIST(2*NPFIST+3) = SAVE C K = ANDF(THCRMK,SCRN2) DO 50 I = 4,LMT,ICFIAT IF (ITAB6(I+1).EQ.SCRN1 .AND. ANDF(THCRMK,ITAB6(I+2)).EQ.K) 1 GO TO 35 IF (ITAB6(I+3).NE.0 .OR. ITAB6(I+4).NE.0 .OR. ITAB6(I+5).NE.0) 1 GO TO 32 IF (ICFIAT.EQ.11 .AND. (ITAB6(I+8).NE.0 .OR. ITAB6(I+9).NE.0 .OR. 1 ITAB6(I+10).NE.0)) GO TO 32 GO TO 35 32 LTU = ANDF(ITAB6(I),1073676288) C 1073676288 = 2**30 - 2**16 = 3FFF0000 HEX C = 0 SIGN BIT + LEFT 14 BITS OF 1's IF (LTU.GE.NEXT .OR. LTU .EQ. 0) GO TO 50 35 IUCB = ANDF(ITAB6(I),32767) C 32767 = 2**15 - 1 = RIGHT 15 BITS OF 1's IF (IUCB .EQ. 32767) GO TO 50 DO 40 J = 4,LMT,ICFIAT IF (ANDF(ITAB6(J),32767) .NE. IUCB) GO TO 40 IF (I .EQ. J) GO TO 40 LTU = ANDF(ITAB6(J),1073676288) IF (LTU.LT.NEXT .AND. LTU.NE.0) GO TO 40 IF (ITAB6(J+3).NE.0 .OR. ITAB6(J+4).NE.0 .OR. ITAB6(J+5).NE.0) 1 GO TO 50 IF (ICFIAT.EQ.11 .AND. (ITAB6(J+8).NE.0 .OR. ITAB6(J+9).NE.0 .OR. 1 ITAB6(J+10).NE.0)) GO TO 50 40 CONTINUE IF (IFOUND .EQ. 0) IFOUND = I C C FLUSH FILE IN CASE DATA EXISTS ON FILE C THIS WILL FREE UP SECONDARIES ON 360 AND DISK ON CDC AND UNIVAC C IF (ITAB6(I+3).NE.0 .OR. ITAB6(I+4).NE.0 .OR. ITAB6(I+5).NE.0) 1 GO TO 45 IF (ICFIAT.EQ.11 .AND. (ITAB6(I+8).NE.0 .OR. ITAB6(I+9).NE.0 .OR. 1 ITAB6(I+10).NE.0)) GO TO 45 GO TO 50 45 FIST(2*NPFIST+4) = I - 1 CALL OPEN (*360,SAVE,DATABF,1) CALL CLOSE (SAVE,1) 50 CONTINUE C IF (IFOUND .EQ. 0) CALL MESAGE (-39,0,0) I = -2 IF (ITAB11(1)+ITAB11(-I) .EQ. I) ICFIAT = ICFIAT + I C C GOOD NEWS - WE FOUND A FILE FOR SAVE PURPOSES. C SAVE POINTER TO FILE IN BLANK COMMON. C I = IFOUND IBLKCM(1) = ITAB6(I) C C SAVE UNIT = 2 FOR ALL MACHINES, IBM INCLUDED C (IBM USED 51 BEFORE) C IUNITU = 2 C C FCB ARREY OF 75 WORDS IS NOT USED BY VAX AND UNIX C REWIND IUNITU IF (MACH .LT. 5) WRITE (IUNITU) ITAB6(I),ISYBUF,FCB IF (MACH .GE. 5) WRITE (IUNITU) ITAB6(I),ISYBUF REWIND IUNITU FIST(2*NPFIST+4) = I - 1 C C SET PREFAC FLAG SO LINK 1 IS RE-ENTRANT C C PREFAC(1) = NOPREF(1) C PREFAC(2) = NOPREF(2) C C SAVE THE NEXT LINK NO. IN THE 22ND WORD OF /SYSTEM/ C ITAB10(22) = JOBSEG C C WRITE EXEC TABLES ON THE FILE JUST FOUND. C CALL OPEN (*360,SAVE,DATABF,1) LTAB10(7) = 0 CALL WRITE (SAVE,ITAB10,LSYSTM,1) CALL WRITE (SAVE,ITAB1,ITAB1(1)*4+2,1) CALL WRITE (SAVE,ITAB2,1,1) CALL WRITE (SAVE,ITAB3,6,1) CALL WRITE (SAVE,ITAB4,ITAB4(3)*3+3,1) CALL WRITE (SAVE,ITAB5,NPFIST,1) CALL WRITE (SAVE,ITAB6,ITAB6(3)*ICFIAT+3,1) CALL WRITE (SAVE,ITAB7,ITAB7(2),1) CALL WRITE (SAVE,ITAB8,ITAB8(2),1) CALL WRITE (SAVE,ITAB9(12),75,1) CALL WRITE (SAVE,ITAB11,224,1) CALL WRITE (SAVE,ITAB13,ITAB13(1)+1,1) CALL WRITE (SAVE,ITAB14,ITAB14(1)+2,1) CALL WRITE (SAVE,ITAB15,27,1) CALL WRITE (SAVE,BT,64,1) CALL CLOSE (SAVE,1) C C FLUSH ANY QUEUED SYSTEM OUTPUT. C LOAD NEXT LINK NO. INTO UNIT 97, AND TERMINATE PRESENT LINK. C KK = ITAB10(2) WRITE (KK,55) 55 FORMAT (//) CALL CONMSG (MSGBUF ,4,0) CALL CONMSG (MSGBUF(5),4,0) IF (MACH .EQ. 4) GO TO 67 IF (ITAB10(7) .LT. 0) ENDFILE 52 C C IF IBM NEW LOGIC OF LINK SWITCHING VIA FILE 97 IS NOT AVAILBLE, C WE STILL NEED THE NEXT 3 LINES FOR DEAR OLD IBM C IF (MACH .NE. 2) GO TO 60 C CALL SEARCH (JOBSEG,SYSLB2,NOTUSE) CALL SEARCH (JOBSEG) GO TO 400 C 60 I = KHRFN3(MSGBUF(3),JOBSEG,2,1) IF (MACH.EQ.9 .OR. MACH.EQ.12) GO TO 61 OPEN (UNIT=97,ACCESS='SEQUENTIAL',STATUS='NEW',ERR=64) GO TO 62 61 CALL FLUNAM (97,FORTXX) OPEN (UNIT=97,ACCESS='SEQUENTIAL',STATUS='NEW',ERR=64,FILE=FORTXX) 62 WRITE (97,63) I 63 FORMAT ('NAST',A2) CLOSE (UNIT=97) CALL EXIT CSUN CALL EXIT (0) 64 WRITE (NOUT,65) 65 FORMAT ('0*** SYSTEM ERROR, CAN NOT OPEN FORTRAN UNIT 97 FOR ', 1 'LINK SWITCH') CALL MESAGE (-37,0,NAME) C C DETERMINE LINK NUMBER FOR 6600 C 67 I = ANDF(4095,RSHIFT(JOBSEG,36)) I1 = I/64 I2 = I - I1*64 I = 10*I1 + I2 - 297 I76= 76 CALL LINK (I,ITAB10(I76),0) GO TO 350 C C ENTRY BGNSYS C ============ C NPRUS = 0 BITPAS = .TRUE. MSGBUF(4) = MSG(1) C PREFAC(1) = 0 C PREFAC(2) = 0 IF (SPERLK .EQ. 0) GO TO 70 C C SIMPLEFIED OPERATION IF SUPERLINK (USED IN UNIX VERSION) C IF (SPERLK.LT.1 .OR. SPERLK.GT.15) GO TO 225 ITAB10(22) = LINKS(SPERLK) MSGBUF(2) = LNKNUM(SPERLK) JOBSXX = ITAB10(22) GO TO 228 C C BGNSYS RESTORES THE EXEC TABLES SAVED BY ENDSYS C THEN REPOSITIONS THE OSCAR TO THE ENTRY FOR THE MODULE C IN THE CURRENT LINK. C 70 IUNITU = 2 IF (MACH .LT. 5) READ (IUNITU) ITAB6(4),ISYBUF,FCB IF (MACH .GE. 5) READ (IUNITU) ITAB6(4),ISYBUF FIST(2) = NPFIST + 1 FIST(2*NPFIST+3) = SAVE FIST(2*NPFIST+4) = 3 J = 5000 CALL OPEN (*360,SAVE,DATABF(J),0) CALL READ (*340,*80,SAVE,ITAB10,900,1,FLG) 80 CALL READ (*340,*90,SAVE,ITAB1,900,1,FLG) GO TO 350 90 CALL READ (*340,*100,SAVE,ITAB2,900,1,FLG) GO TO 350 100 CALL READ (*340,*110,SAVE,ITAB3,900,1,FLG) GO TO 350 110 CALL READ (*340,*120,SAVE,ITAB4,900,1,FLG) GO TO 350 120 CALL READ (*340,*130,SAVE,ITAB5,900,1,FLG) GO TO 350 130 CALL READ (*340,*140,SAVE,ITAB6,900,1,FLG) GO TO 350 140 CALL READ (*340,*150,SAVE,ITAB7,900,1,FLG) GO TO 350 150 CALL READ (*340,*160,SAVE,ITAB8,900,1,FLG) GO TO 350 160 CALL READ (*340,*170,SAVE,ITAB9(12),900,1,FLG) GO TO 350 170 CALL READ (*340,*190,SAVE,ITAB11,900,1,FLG) GO TO 350 190 CALL READ (*340,*210,SAVE,ITAB13,900,1,FLG) GO TO 350 210 CALL READ (*340,*220,SAVE,ITAB14,900,1,FLG) GO TO 350 220 CALL READ (*340,*221,SAVE,ITAB15,900,1,FLG) GO TO 350 221 CALL READ (*340,*222,SAVE,BT,900,1,FLG) GO TO 350 222 CALL CLOSE (SAVE,1) C C RETRIEVE THE CURRENT LINK NO. FROM THE 22ND WORD OF /SYSTEM/ C JOBSXX = ITAB10(22) DO 224 I = 1,15 IF (JOBSXX .NE. LINKS(I)) GO TO 224 MSGBUF(2) = LNKNUM(I) GO TO 228 224 CONTINUE 225 WRITE (NOUT,226) SFM,JOBSXX,SPERLK 226 FORMAT (A25,', ILLEGAL LINK NUMBER ',A4,' ENCOUNTERED BY BGNSYS.', 1 4X,'SPERLK=',I14) CALL MESAGE (-61,0,0) C 228 CALL PRESSW (JOBSXX,I) CALL CONMSG (MSGBUF,4,0) CALL SSWTCH (15,L15) CALL SSWTCH ( 8,L 8) CALL SSWTCH (13,L13) IF (MACH .NE. 3) GO TO 320 C IF (ITAB10(7) .GE. 0) GO TO 238 232 READ (52,234,END=236) I 234 FORMAT (A1) GO TO 232 236 BACKSPACE 52 238 CONTINUE C C REPOSITION DRUM FILES OFF LOAD POINT (1108 ONLY) C CALL DEFCOR CALL CONTIN C C TAPE-FLAG IS THE 45TH WORD OF /SYSTEM/ C IF THE 7TH BIT (COUNTING FROM RIGHT TO LEFT) OF TAPE-FLAG IS NOT C ON (=1), AND PLT2 HAS NOT BEEN EXTERNALLY ASSIGNED AS A MAGNETIC C TAPE, SET PLT2 IS TO DISK. SIMILARILY, C IF THE 6TH BIT IS NOT SET, AND PLT1 IS NOT TAPE ASSIGNED, SET PLT1 C TO DISK C I45 = 45 ISTAT = ANDF(ITAB10(I45),64) JSTAT = ANDF(ITAB10(I45),32) C DO 300 I = 1,75 C C CALL FACIL TO DETERMINE IF UNIT IS TAPE C TENS = I/10 UNITS = I - 10*TENS NBCD = BCDNUM(UNITS+1) IF (TENS .EQ. 0) GO TO 295 MASKK = 255 MASKK = LSHIFT(MASKK,27) NBCD = ORF(ANDF(BCDNUM(TENS+1),MASKK),RSHIFT(NBCD,9)) 295 CALL FACIL (NBCD,J) C C DECODE UNITAB ENTRY C NBLOCK = ANDF(RSHIFT(UNITAB(I),12),262143) NLR = ANDF(UNITAB(I),4095) IF (J.EQ.7 .OR. J.EQ.9) GO TO 298 C C POSITION DRUM UNIT NOW OFF LOAD POINT C IF (NBLOCK+NLR .EQ. 1) GO TO 300 CALL NTRAN (I,10,22) NOSECT = NBLOCK*ITAB9(164) IF (NLR .EQ. 0) NOSECT = NOSECT - ITAB9(164) IF (I.EQ.13 .AND. ISTAT.NE.0) NOSECT = UNITAB(13) IF (I.EQ.12 .AND. JSTAT.NE.0) NOSECT = UNITAB(12) CALL NTRAN (I,6,NOSECT) C C RESET FCB ENTRY C COMMENTS FROM G.CHAN/UNISYS 11/90 C FCB ARRAY OF 75 WORDS IS USED ONLY BY UNIVAC AND IBM. IT BEGINS C AT THE 170TH WORD OF /GINOX/ C 298 IF (NLR .NE. 0) NBLOCK = NBLOCK + 1 FCB(I) = NBLOCK 300 CONTINUE C 320 IF (SPERLK .NE. 0) GO TO 330 C C DEFINE OPEN CORE FOR VAX AND UNIX C IF (MACH .GE. 5) CALL DEFCOR C C REPOSITION POOL TO OSCAR ENTRY TO BE EXECUTED. C 330 BUF = KORSZ(DATABF) - ITAB10(1) FILE = POOL CALL OPEN (*360,POOL,DATABF(BUF),2) CALL BCKREC (POOL) IF (SPERLK .EQ. 0) GO TO 400 DO 333 J = 1,60 333 IBLKCM(J)= 0 C DO 334 J = 1,1902 C 334 DUMMY(J) = 0 C COMM( 1) = 0 C COMM( 3) = 0 COMM( 8) = 0 C COMM( 9) = 0 C COMM(12) = 0 C COMM(15) = 0 C COMM(18) = 0 DO 335 J = 1,1100 335 XF1AT(J) = 0 GO TO 400 C 340 CONTINUE 350 CALL MESAGE (-37,0,NAME) 360 CALL MESAGE (-1,FILE,NAME) C 400 RETURN END ================================================ FILE: mis/eqmck.f ================================================ SUBROUTINE EQMCK C C EQMCK CREATES AN OUTPUT FILE OF MPC CONSTRAINT FORCES AND AN C OVERALL TOTAL OF FORCES AND MOMENTS ON THE MODEL TO PROVIDE AN C EQUILIBRIUM CHECK. C VALID ONLY FOR STATICS AND REAL EIGENVALUE ANALYSIS. C C DMAP CALLING SEQUENCE (DEFAULT PARAMETERS SHOWN) C LAMA C EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ C OQM1/V,Y,OPT=0/V,Y,GRDPNT=-1/V,N,NSKIP/V,Y,SUBNAM $ C WHERE C OPT .EQ. 0, CREATE OQM C .LT. 0, CALCULATE ST1 C .GT. 0, CALCULATE ST1 AND CREATES OQM C GRDPNT - POINT ABOUT WHICH EQUILIBRIUM IS CALCULATED. C NSKIP - NO. RECORDS TO SKIP ON APPENDED FILES (1 OR GREATER), C NEGATIVE IF EIGENVALUE PROBLEM. C SUBNAM - RESERVED FOR FUTURE USE C INTEGER BGPDT,CSTM,CASECC,EQEXIN,GM,GPL,NAME(2),OQM,PGG, 1 QG,SF(7),SIL,UGV,USET,PARM,KFIL(14),TRL,SFL(7) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / IOPT,IGRID,NSKIP COMMON /EQMK1 / K(21),KMPC,KLOAD,KSPC ,PARM(4),TRL(7) COMMON /SYSTEM/ KSYSTM(80) EQUIVALENCE (KSYSTM(2),NOUT),(K(1),CASECC),(K(2),EQEXIN), 1 (K(3),GPL),(K(4),BGPDT),(K(5),SIL),(K(6),USET), 2 (K(7),KGG),(K(8),GM),(K(9),UGV),(K(10),PGG), 3 (K(11),QG),(K(12),CSTM),(K(13),LAMA),(K(14),OQM), 4 (K(15),SF(1)) DATA KFIL / C ... CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM ,UGV,PGG,QG,CSTM, 1 101 , 102, 103,104, 105,106, 107,108,109,110,111,112, C ... LAMA , OQM ..... 2 110 , 201 / DATA SFL / 301,302,303,304,305,306,307 / DATA NAME / 4HEQMC, 2HK / C OQM = 0 KMPC = 0 KSPC = 0 KLOAD = 0 PARM(3) = NAME(1) PARM(4) = NAME(2) DO 5 I = 1,7 5 SF(I) = SFL(I) C DO 10 I = 1,11 TRL(1) = KFIL(I) CALL RDTRL (TRL) K(I) = TRL(1) 10 CONTINUE LAMA = K(10) CSTM = KFIL(12) C C ALWAYS NECESSARY FILES C PARM(2) = KFIL(1) IF (CASECC .LT. 0) GO TO 120 PARM(2) = KFIL(2) IF (EQEXIN .LT. 0) GO TO 120 PARM(2) = KFIL(13) IF (NSKIP.LT.0 .AND. LAMA.LT.0) GO TO 120 C C FILES FOR OQM C L = 0 IF (IOPT .LT. 0) GO TO 40 IF (GPL.LT.0 .OR. SIL.LT.0 .OR. USET.LT.0) GO TO 20 OQM = KFIL(14) C C MPC CONSTRAINTS C 20 IF (GM.LT.0 .OR. UGV.LT.0 .OR. KGG.LT.0) GO TO 30 KMPC = 1 30 IF (KMPC.LE.0 .OR. IOPT.LT.0) OQM = -KFIL(14) IF (OQM .GT. 0) GO TO 40 IF (IOPT .LT. 0) GO TO 40 CALL PAGE2 (2) WRITE (NOUT,35) UWM,NAME 35 FORMAT (A25,' 2370, MULTI-POINT CONSTRAINT FORCES NOT CALCULATED', 1 ' IN ',A4,A2,' DUE TO MISSING INPUT FILE.') IF (IOPT .EQ. 0) GO TO 70 C C ST1 CALCULATION C CWKBD 11/93 SPR93007 40 IF (IOPT .EQ. 0) GO TO 60 CWKBD 11/93 SPR93007 IF (BGPDT .LT. 0) GO TO 50 CWKBI 11/93 SPR93007 40 CONTINUE IF (PGG.GE.0 .AND. NSKIP.GE.0) KLOAD = 1 IF (QG .GE. 0) KSPC = 1 L = KSPC + KMPC + KLOAD CWKBNB 11/93 SPR93007 IF (IOPT .EQ. 0) GO TO 60 IF (BGPDT .LT. 0) GO TO 50 CWKBNE 11/93 SPR93007 IF (L .GT. 0) GO TO 60 50 CALL PAGE2 (2) WRITE (NOUT,110) UWM,NAME IF (IOPT .LT. 0) GO TO 70 IOPT = 0 C 60 CONTINUE IF (IOPT.LT.0 .AND. L .EQ.0) GO TO 70 IF (IOPT.EQ.0 .AND. OQM.LE.0) GO TO 70 IF (IOPT.GT.0 .AND. L.EQ.0 .AND. OQM.LE.0) GO TO 70 C C CREATE MPC DATA AND OQM C IF (KMPC.GT.0 .OR. (NSKIP.GT.1 .AND. L.GT.0)) CALL EQMCKM IF (L .EQ. 0) GO TO 70 C C CALCULATE D-T FOR ST1 C I = IGRID CALL EQMCKA (IGRID,BGPDT,CSTM,EQEXIN,SF(2),L) IF (IGRID .NE. 0) IGRID = I IF (L .EQ. 0) GO TO 140 C C CALCULATE AND OUTPUT ST1 C CALL EQMCKS C 70 RETURN C C ERROR MESSAGES C 110 FORMAT (A25,' 2371, EQUILIBRIUM FORCES NOT CALCULATED IN ',A4,A2, 1 ' DUE TO MISSING INPUT FILE.') 120 PARM(1) = 1 CALL MESAGE (PARM(1),PARM(2),PARM(3)) GO TO 70 C 140 CALL PAGE2 (2) WRITE (NOUT,150) UWM,NAME 150 FORMAT (A25,' 2372, ',A4,A2,' IS UNABLE TO CALCULATE RIGID BODY ', 1 'TRANSFORMATION FOR SCALAR MODEL.') GO TO 70 END ================================================ FILE: mis/eqmcka.f ================================================ SUBROUTINE EQMCKA (IP,BGPDT,CSTM,EQEXIN,D,ISCALR) C C ROUTINE FORMS D MATRIX (ACCTUALLY D TRANSPOSE) C INTEGER BGPDT,FILE,CSTM,EQEXIN,D,SYSBUF,IZ(1),MCB(7), 1 NAME(2) REAL TR(3,3),TI(3,3),DD(6,6),R(3) DIMENSION TT(3,3) C COMMON /SYSTEM/ SYSBUF COMMON /PACKX / IT1,IT2,II,JJ,INCR COMMON /ZZZZZZ/ Z(1) C EQUIVALENCE (IZ(1),Z(1)) C DATA IZ2 , IZ3,IZ4,IZ5 / 2,3,4,5 / DATA NAME / 4HEQMC,4HKA / C C CONVERT EXTERNAL IP TO INTERNAL IP C IBUF = KORSZ(Z)-SYSBUF+1 FILE = EQEXIN CALL GOPEN (EQEXIN,Z(IBUF),0) CALL READ (*220,*10,EQEXIN,IZ(1),IBUF-1,0,IFLAG) GO TO 240 10 CALL CLOSE (EQEXIN,1) DO 20 I = 1,IFLAG,2 IF (IZ(I) .EQ.IP) GO TO 40 20 CONTINUE CALL MESAGE (41,IP,NAME) IP = 0 GO TO 50 30 CALL MESAGE (41,IP,NAME) C C SCALAR POINT C GO TO 60 40 IP = IZ(I+1) C C FIND RZERO FOR IP C 50 FILE = BGPDT R(1) = 0.0 R(2) = 0.0 R(3) = 0.0 CALL GOPEN (BGPDT,Z(IBUF),0) IF (IP .EQ. 0) GO TO 70 I= (IP-1)*4 CALL FREAD (BGPDT,Z,-I,0) CALL FREAD (BGPDT,I, 1,0) IF (I .EQ. -1) GO TO 30 CALL FREAD (BGPDT,R,3,0) 60 CALL REWIND (BGPDT) CALL SKPREC (BGPDT,1) C C SET UP TO WRITE D C 70 IBUF1 = IBUF-SYSBUF NZ = IBUF1-5 C C BRING IN CSTM C FILE = CSTM CALL OPEN (*90,CSTM,Z(IBUF1),0) CALL FWDREC (*220,CSTM) CALL READ (*220,*80,CSTM,Z(IZ5),NZ,0,NCSTM) GO TO 240 80 CALL CLOSE (CSTM,1) CALL PRETRS (Z(IZ5),NCSTM) 90 CALL GOPEN (D,Z(IBUF1),1) CALL MAKMCB (MCB,D,6,2,1) ISCALR = 0 II = 1 JJ = 6 IT1 = 1 IT2 = 1 INCR = 1 C C EXAMINE BGPDT C 100 CALL READ (*220,*190,BGPDT,Z(1),4,0,IFLAG) IF (IZ(1) .EQ. -1) GO TO 170 C C COMPUTE TR C ISCALR = 1 TR(1,1) = 0.0 TR(2,2) = 0.0 TR(3,3) = 0.0 TR(2,1) = Z(IZ4) -R(3) TR(1,2) =-TR(2,1) TR(3,1) = R(2)- Z(IZ3) TR(1,3) =-TR(3,1) TR(3,2) = Z(IZ2)-R(1) TR(2,3) =-TR(3,2) DO 110 I = 1,3 DO 110 J = 1,3 TI(I,J) = 0.0 IF (I .EQ. J) TI(I,J) = 1.0 110 CONTINUE IF (IZ(1) .EQ. 0) GO TO 130 CALL TRANSS (IZ(1),TI) CALL GMMATS (TI,3,3,1,TR,3,3,0,TT) DO 120 I = 1,3 DO 120 J = 1,3 120 TR(I,J) = TT(I,J) C C MOVE STUFF INTO DD C 130 DO 150 I = 1,6 DO 150 J = 1,3 IF (I .GT. 3) GO TO 140 DD(I ,J ) = TI(J,I) DD(I+3,J+3) = DD(I,J) GO TO 150 140 DD(I,J) = TR(I-3,J) DD(J,I) = 0.0 150 CONTINUE DO 160 I = 1,6 CALL PACK (DD(1,I),D,MCB) 160 CONTINUE GO TO 100 C C SCALAR POINT C 170 DO 180 I = 1,6 180 DD(I,1) = 0.0 CALL PACK (DD,D,MCB) GO TO 100 C C END BGPDT C 190 CALL CLOSE (BGPDT,1) CALL CLOSE (D,1) CALL WRTTRL (MCB) RETURN C C ERROR MESAGES C 210 CALL MESAGE (IP1,FILE,NAME) 220 IP1 = -2 GO TO 210 240 IP1 = -8 GO TO 210 END ================================================ FILE: mis/eqmckm.f ================================================ SUBROUTINE EQMCKM C C THIS SUBROUTINE CALCULATES THE MPC CONSTRAINT FORCES AND CREATES C THE OUTPUT FILE FOR OFP. C TASKS INCLUDE CREATING THE SCRATCH FILES FOR THE CURRENT SUBCASES C (PGG, QG - ALSO USED IN EQUILIBRIUM CHECKS). C NOT CODED TO HANDLE CONICAL ELEMENTS OR SORT2. C LOGICAL FIRSTC,FIRSTO,LASCAS,ANYOUT INTEGER NAME(2),KON(10),IDAT(3),PARM,TRL,UG,UM,UN,MCB(7), 1 RDNRW,RDRW,WRTNRW,WRTRW,ZZ,OCB(8) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /NAMES / RDNRW,RDRW,WRTNRW,WRTRW,KRW,KNRW,KNERW COMMON /SYSTEM/ KSYSTM(80) COMMON /BITPOS/ UM,SKPS(8),UN,UG COMMON /BLANK / SKPB(2),NSKIP COMMON /EQMK1 / KSCC,KEXIN,KGPL,KBGDT,KSIL,KUSET,KGG,KGM,KUGV, 1 KPGG,KQG,KCSTM,KLAM,KOQM,KSCR(7),KMPC,KLOAD,KSPC, 2 PARM(4),TRL(7) CZZ COMMON /ZZSSA2/ ZZ(1) COMMON /ZZZZZZ/ ZZ(20000) COMMON /UNPAKX/ ITYPU,INRU,ILRU,INCU COMMON /MPYADX/ MA(7),MB(7),MC(7),MD(7),MZ,MT,MSAB,MSC,MPR,MSCR COMMON /PATX / LCOR,INS(3),LUSET EQUIVALENCE (MCB(1),OCB(1)),(KSYSTM(1),ISBZ),(KSYSTM(2),NOUT), 1 (KSYSTM(15),ITIM),(KSYSTM(16),IDAT(1)) CWKBI 3/94 SPR93007 EQUIVALENCE (KSYSTM(55),IPREC) DATA NAME / 4HEQMC,2HKM / DATA KON / 1,20,0,-1,0,0,0,0,1,8 / DATA KG / 1HG / C C KNG C PARTITION KGG = ---- , ONLY KMG SAVED C KMG ANYOUT =.FALSE. NZZ = KORSZ (ZZ(1)) LCOR = NZZ LUSET = KUSET IF (KMPC .EQ. 0) GO TO 10 KMPC = -1 CALL CALCV (KSCR(1),UG,UN,UM,ZZ) CALL SSG2A (KGG,0,KSCR(2),KSCR(1)) C C UNAPPEND FILES C 10 CONTINUE NZZ3 = NZZ - 3*ISBZ + 1 NZZ2 = NZZ3 + ISBZ NZZ1 = NZZ2 + ISBZ NZZ4 = NZZ3 IF (NSKIP.LE.0) NZZ4 = NZZ3 - ISBZ C IF (NSKIP .LE. 1) GO TO 30 C IF (KLOAD .LE. 0) GO TO 20 TRL(1) = KPGG MCB(1) = KSCR(4) CALL CURCAS (*15,NSKIP,TRL,MCB,ZZ,NZZ2) KPGG = MCB(1) GO TO 20 15 KLOAD = 0 C 20 IF (KUGV .LT. 0) GO TO 30 TRL(1) = KUGV MCB(1) = KSCR(3) CALL CURCAS (*345,NSKIP,TRL,MCB,ZZ,NZZ2) KUGV = MCB(1) 30 CONTINUE IF (KMPC .EQ. 0) GO TO 360 C C PN C PARTITION PGG = --- , ONLY PM SAVED C PM IF (KLOAD.GT.0) CALL SSG2A (KPGG,0,KSCR(7),KSCR(1)) C C M C MULTIPLY QM = -PM + KMG*UGV C MD(1) = KSCR(5) MC(1) = KSCR(7) CALL RDTRL (MC) IF (KLOAD .LE. 0) MC(1) = 0 MA(1) = KSCR(2) MB(1) = KUGV CALL RDTRL (MA) CALL RDTRL (MB) MD(3) = MA(3) MD(4) = MB(4) CWKBR 11/93 SPR93007 MD(5) = 1 MD(5) = IPREC MZ = NZZ MT = 0 MSAB = 1 MSC =-1 CWKBR 11/93 SPR93007 MPR = 1 MPR = IPREC MSCR = KSCR(1) CALL MPYAD (ZZ,ZZ,ZZ) IF (MD(3) .EQ. MD(2)) MD(4) = 1 CALL WRTTRL (MD) C C N T M C MULTIPLY QM = - GM * QM C MD(1) = KSCR(6) MC(1) = 0 MA(1) = KGM MB(1) = KSCR(5) CALL RDTRL (MA) CALL RDTRL (MB) MD(3) = MA(2) MD(4) = MB(4) CWKBR SPR93007 MD(5) = 1 MD(5) = IPREC MT = 1 MSAB =-1 CALL MPYAD (ZZ,ZZ,ZZ) IF (MD(3) .EQ. MD(2)) MD(4) = 1 CALL WRTTRL (MD) C C N M C MERGE QM AND QM ON SCRATCH 3 C TRL(1) = KSCR(5) CALL RDTRL (TRL) IF (TRL(1) .LT. 0) GO TO 345 KMPC = 1 C CALL SDR1B (KSCR(1),KSCR(6),KSCR(5),KSCR(3),UG,UN,UM,KUSET,0,0) TRL(1) = KSCR(3) CALL RDTRL (TRL) MSZE = 2*TRL(3) C C CREATE MPC-CONSTRAINT OUTPUT FILE C IF (KOQM .LE. 0) GO TO 360 IAPP = 10 IF (NSKIP .LT. 0) IAPP = 20 CALL MXCID (*345,ZZ,KG,MSZE/2,2,KUSET,KGPL,KSIL,NZZ2) DO 40 I = 2,MSZE,2 40 ZZ(I) = I/2 C C SORT ON EXTERNAL ID C NENT = 2 IF (MSZE .EQ. 2) GO TO 70 C IFIL = KSIL DO 60 I = 3,MSZE,2 IF (ZZ(I) .GT. ZZ(I-2)) GO TO 50 TRL(1) = ZZ(I) TRL(2) = ZZ(I+1) CALL BISHEL (*410,TRL,NENT,2,ZZ(1)) GO TO 60 50 NENT = NENT + 2 60 CONTINUE C 70 CONTINUE LKSCC = MSZE + 1 IF (LKSCC+146 .GE. NZZ4) GO TO 420 IVEC = 0 TRL(1) = KSCR(3) CALL RDTRL (TRL) NVEC = TRL(2) ITYPU = 1 INCU = 1 ISDONE = 0 LASCAS = .FALSE. CALL GOPEN (KSCC,ZZ(NZZ1),RDRW) CALL GOPEN (KSCR(3),ZZ(NZZ3),RDRW) C IF (NSKIP .GT. 0) GO TO 90 C C POSITION LAMA C IFIL = KLAM CALL OPEN (*350,KLAM,ZZ(NZZ4),RDRW) CALL READ (*440,*450,KLAM,0,0,1,I) CALL READ (*440,*450,KLAM,0,0,1,I) 90 IFIL = KOQM CALL OPEN (*430,KOQM,ZZ(NZZ2),WRTRW) CALL FNAME (KOQM,TRL(1)) TRL(3) = ITIM TRL(4) = IDAT(1) TRL(5) = IDAT(2) TRL(6) = IDAT(3) TRL(7) = 1 CALL WRITE (KOQM,TRL(1),7,1) C C POSITION CASECC. ASSUME USER WILL MISSET NSKIP C IF (NSKIP .LE. 1) GO TO 100 J = NSKIP - 1 IFIL = KSCC DO 95 I = 1,J 95 CALL FWDREC (*440,KSCC) C C LOOP ON EACH VECTOR C 100 IVEC = IVEC + 1 C C SUBCASE ID C CALL READ (*160,*160,KSCC,ZZ(LKSCC),38,0,I) ISB = ZZ(LKSCC ) ILD = ZZ(LKSCC+3) IEG = 0 C C CLEAN UP UNUSED WORDS C I = LKSCC + 10 J = LKSCC + 49 DO 105 K = I,J 105 ZZ(K) = 0 C C TITLES C CALL FREAD (KSCC,ZZ(LKSCC+50),96,0) CALL FREAD (KSCC,0,-31,0) CALL FREAD (KSCC,LCC,1,0) CALL FREAD (KSCC,0,-6,0) C C MPCFORCE REQUEST C NGSET = 0 LSETD = LKSCC + 146 CALL FREAD (KSCC,INS(1),3,0) IF (INS(1)) 110,120,130 C C ALL REQUESTED C 110 CALL FREAD (KSCC,0,0,1) GO TO 180 C C NONE REQUESTED C 120 IFIL = KLAM CALL FREAD (KSCC,0,0,1) IF (NSKIP .GT. 0) GO TO 240 CALL READ (*350,*350,KLAM,TRL(1),7,0,I) GO TO 240 C C SET REQUESTED C 130 CONTINUE CALL FREAD (KSCC,0,-LCC+176,0) C C SKIP SYMMETRY SEQUENCE C CALL FREAD (KSCC,I,1,0) IF (I .LE. 0) GO TO 140 CALL FREAD (KSCC,0,-I,0) 140 IFIL = KSCC CALL READ (*440,*450,KSCC,TRL(1),2,0,I) IF (TRL(1) .EQ. INS(1)) GO TO 150 CALL FREAD (KSCC,0,-TRL(2),0) GO TO 140 150 IF (LSETD+TRL(2).GT.NZZ4) GO TO 420 NGSET = TRL(2) CALL FREAD (KSCC,ZZ(LSETD),NGSET,1) GO TO 180 C C EOF ON CASE CONTROL. CHECK IF REALLY DONE C 160 CONTINUE IF (NSKIP .LT. 0) GO TO 170 IF (IVEC .GT. NVEC) GO TO 350 IFIL = KSCC GO TO 440 C 170 IF (IVEC .GT. NVEC) GO TO 350 LASCAS = .TRUE. IVEC = IVEC - 1 C C INITIALIZE C 180 CONTINUE IF (LASCAS) IVEC = IVEC + 1 FIRSTC = .TRUE. FIRSTO = .TRUE. IF (NSKIP .GT. 0) GO TO 190 CALL READ (*235,*235,KLAM,TRL(1),7,0,I) ILD = TRL(1) IEG = TRL(3) 190 MT = LKSCC - 1 DO 200 J = 1,10 I = J + MT 200 ZZ(I) = KON(J) C IF (INS(3) .EQ. 1) GO TO 210 CALL PAGE2 (2) WRITE (6,205) UWM,NAME 205 FORMAT (A25,' 2373, ONLY SORT1-REAL SUPPORTED IN ',2A4) 210 ZZ(MT+1) = INS(2) + IAPP ZZ(MT+4) = ISB ZZ(MT+5) = ILD ZZ(MT+6) = IEG LVEC = LSETD + NGSET - 1 C C LOOP ON POINT DATA C MT = POINTER TO MATCID GRID ID, MS = POINTER TO CASECC GRID REQUEST. C IDG = -1 MT = -1 MS = LSETD 220 MT = MT + 2 IF (MT .GT. MSZE) GO TO 240 IF (ZZ(MT)/10 .EQ. IDG) GO TO 220 IDG = ZZ(MT)/10 IF (INS(1) .LT. 0) GO TO 300 C C LOCATE POINT IN SET C 221 I = ZZ(MS) 222 IF (MS-LVEC) 223,228,240 223 IF (IDG-I) 230,300,224 224 I = ZZ(MS+1) IF (I) 225,227,227 225 IF (IDG+I) 300,300,226 226 MS = MS+2 GO TO 221 227 MS = MS+1 GO TO 222 C C LAST POINT IN SET C 228 IF (I.LT.0 .AND. IDG+I.LE.0) GO TO 300 IF (IDG-I) 230,300,230 C C NOT IN SET C 230 IF (MT+2 .LT. LKSCC) GO TO 220 GO TO 240 C C END-OF-FILE C 235 ISDONE = 1 C C NO MORE GRIDS IN THIS SET C 240 CONTINUE IF (.NOT.FIRSTO) CALL WRITE (KOQM,0,0,1) IF (IVEC+1 .GT. NVEC) GO TO 350 IF (ISDONE .NE. 0) GO TO 350 C C CHECK IF COLUMN NEEDS TO BE SKIPPED C IFIL = KSCR(3) IF (FIRSTC) CALL FWDREC (*440,KSCR(3)) C IF (LASCAS) GO TO 180 GO TO 100 C C PROCESS THE GRID FOR OUTPUT C 300 MCB(1) = 10*IDG + INS(2) IF (.NOT.FIRSTC) GO TO 310 IF (LVEC+MSZE/2 .GT. NZZ4) GO TO 420 INRU = 1 ILRU = MSZE/2 FIRSTC = .FALSE. CALL UNPACK (*240,KSCR(3),ZZ(LVEC+1)) C 310 CONTINUE L = 1 NENT = 0 OCB(3) = 0 OCB(4) = 0 OCB(5) = 0 OCB(6) = 0 OCB(7) = 0 OCB(8) = 0 M = MIN0(MT+10,MSZE) DO 330 I = MT,M,2 J = ZZ(I)/10 IF (J .NE. IDG) GO TO 335 K = ZZ(I+1) + LVEC J = ZZ(I) - J *10 + 2 IF (J .GT. 2) GO TO 320 C C SCALAR C L = 2 J = 3 C 320 OCB(J) = ZZ(K) IF (ZZ(K) .NE. 0) NENT = NENT + 1 330 CONTINUE C 335 OCB(2) = L IF (NENT .EQ. 0) GO TO 220 IF (.NOT.FIRSTO) GO TO 340 C C WRITE OUT CONTROL RECORD (ODD NUMBER) C ANYOUT = .TRUE. CALL WRITE (KOQM,ZZ(LKSCC),146,1) FIRSTO = .FALSE. C C WRITE AN ENTRY OUT C 340 CALL WRITE (KOQM,OCB(1),8,0) GO TO 220 C C CLOSE FILES C 345 CALL CLOSE (KOQM,KRW) KOQM = -1 ANYOUT = .FALSE. 350 CALL CLOSE (KSCR(3),KRW) CALL CLOSE (KSCC,KRW) CALL CLOSE (KLAM,KRW) IF (ANYOUT) CALL EOF (KOQM) CALL CLOSE (KOQM,KRW) IF (.NOT.ANYOUT) GO TO 360 TRL(1) = KOQM TRL(2) = NVEC TRL(3) = MSZE/2 TRL(4) = 0 TRL(5) = 0 TRL(6) = 1 TRL(7) = 0 CALL WRTTRL (TRL) 360 CONTINUE C C CALCULATE UPDATED QG FILE - SCRATCH 5 C IF (KSPC .EQ. 0) GO TO 405 IF (NSKIP .LE. 1) GO TO 405 TRL(1) = KQG MCB(1) = KSCR(5) CALL CURCAS (*407,NSKIP,TRL,MCB,ZZ,NZZ2) KQG = MCB(1) C 405 RETURN C C ERROR CONDITIONS C C KQG BAD C 407 KSPC = -1 GO TO 405 C 410 I = 7 GO TO 490 420 I = 8 IFIL = NZZ4 GO TO 490 430 I = 1 GO TO 490 440 I = 2 GO TO 490 450 I = 3 490 CALL MESAGE (I,IFIL,NAME) C C MPC OUTPUT FILE NOT CREATED, BUT DATA IS ON SCR3 FOR EQMCKS C CALL PAGE2 (2) WRITE (NOUT,510) UWM,NAME 510 FORMAT (A25,' 2380, MULTI-POINT CONSTRAINT FORCES NOT OUTPUT IN ', 1 A4,A2,', SEE QUEUED MESSAGES.') GO TO 345 END ================================================ FILE: mis/eqmcks.f ================================================ SUBROUTINE EQMCKS C C THIS SUBROUTINE CALCULATES AND OUTPUTS OVERALL EQUILIBRIUM FORCES C C THE INPUT FILES ARE C KSCC - CASE CONTROL - NOT PREPOSITIONED. C KPGG - LOAD VECTORS - FILE 110 OR SCRATCH4 C KQG - SPC CONSTRAINTS - FILE 111 OR SCRATCH5 C QMG - MPC CONSTRAINTS - SCRATCH3 C DT - RIGID BODY TRANS - SCRATCH2 C LOGICAL LSTEIG INTEGER EJECT ,NAME(2) ,PARM , 1 RDNRW ,RDRW ,WRTNRW ,WRTRW REAL HEAD(2,4),COR1(8,1),COR3(8,3) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /NAMES / RDNRW,RDRW,WRTNRW,WRTRW,KRW,KNRW,KNERW CWKBR 3/94 SPR93007 COMMON /SYSTEM/ ISBZ,NOUT COMMON /SYSTEM/ ISBZ,NOUT,DUM(52),IPREC COMMON /BLANK / IOPT,IGPT,NSKIP,SKPB(15),CORE(8,4) COMMON /UNPAKX/ IUNPR,IUNRW,NUNRW,IUNINC COMMON /MPYADX/ MA(7),MB(7),MC(7),MD(7),MZ,MT,MSAB,MSC,MPR,MSCR COMMON /EQMK1 / KSCC,KEQIN(8),KPGG,KQG,KCSTM,KLAMA,KOQM,KSCR(7) 1, KMPC,KLOAD,KSPC,PARM(4) CZZ COMMON /ZZEQMS/ ZZ(1) COMMON /ZZZZZZ/ ZZ(20000) EQUIVALENCE (MB(6),FREQ), (CORE(1,1),COR1(1,1),COR3(1,1)) DATA NAME / 4HEQMC,4HKS / DATA HEAD / 4HAPPL,4HIED , 4HSPCF,4HORCE, 4HMPCF,4HORCE 1, 4H---T,4HOTAL / C PARM(3) = NAME(1) PARM(4) = NAME(2) NZZ = KORSZ (ZZ) NZZ3 = NZZ - 3*ISBZ + 1 NZZ2 = NZZ3 + ISBZ NZZ1 = NZZ2 + ISBZ C NVEC = 0 MA(1) = KSCR(2) MC(1) = 0 CALL RDTRL (MA) MZ = NZZ MT = 0 MSAB = 1 MSC = 1 CWKBR 11/93 SPR93007 MPR = 1 MPR = IPREC MSCR = KSCR(1) C C CALCULATE DT*PG ON SCRATCH7 C IF (KLOAD .LE. 0) GO TO 40 MB(1) = KPGG MD(1) = KSCR(7) CALL RDTRL (MB) MD(3) = MA(3) MD(4) = MB(4) CWKBR 11/93 SPR93007 MD(5) = 1 MD(5) = IPREC CALL MPYAD (ZZ,ZZ,ZZ) IF (MD(3) .EQ. MD(2)) MD(4) = 1 CALL WRTTRL (MD) NVEC = MD(2) C C CALCULATE DT*QG ON SCRATCH6 C 40 IF (KSPC .LE. 0) GO TO 50 MB(1) = KQG MD(1) = KSCR(6) CALL RDTRL (MB) MD(3) = MA(3) MD(4) = MB(4) CWKBR 11/93 SPR93007 MD(5) = 1 MD(5) = IPREC CALL MPYAD (ZZ,ZZ,ZZ) IF (MD(3) .EQ. MD(2)) MD(4) = 1 CALL WRTTRL (MD) NVEC = MAX0(NVEC,MD(2)) C C CALCULATE DT*MPC ON SCRATCH5 C 50 IF (KMPC .LE. 0) GO TO 60 MD(1) = KSCR(5) MB(1) = KSCR(3) CALL RDTRL (MB) PARM(2) = MB(1) IF (MB(1) .LE. 0) GO TO 520 MD(3) = MA(3) MD(4) = MB(4) CWKBR 11/93 SPR93007 MD(5) = 1 MD(5) = IPREC CALL MPYAD (ZZ,ZZ,ZZ) IF (MD(3) .EQ. MD(2)) MD(4) = 1 CALL WRTTRL (MD) NVEC = MAX0(MD(2),NVEC) 60 IF (NVEC .LE. 0) GO TO 400 C C POSITION CASE CONTROL C CALL GOPEN (KSCC,ZZ(NZZ1),RDRW) IF (NSKIP .GT. 0) GO TO 70 C C RESERVE THIRD BUFFER FOR LAMA C IBFL = NZZ3 PARM(2) = KLAMA CALL GOPEN (KLAMA,ZZ(NZZ3),RDRW) CALL FWDREC (*510,KLAMA) GO TO 90 70 IBFL = NZZ2 IF (NSKIP .LE. 1) GO TO 90 C C ASSUME USER MAY MALADJUST NSKIP C J = NSKIP - 1 PARM(2) = KSCC DO 80 I = 1,J 80 CALL FWDREC (*510,KSCC) C C READ INTO CORE AS MANY (MAXVEC) VECTORS THAT FIT C 90 NENTRY = 0 IF (KLOAD .GT. 0) NENTRY = 6 IF (KMPC .GT. 0) NENTRY = NENTRY + 6 IF (KSPC .GT. 0) NENTRY = NENTRY + 6 C MAXVEC = (IBFL-1)/NENTRY IF (MAXVEC .GE. NVEC) GO TO 110 C C INSUFFICIENT CORE TO DO ALL VECTORS C CALL PAGE2 (2) WRITE (NOUT,100) UWM,MAXVEC,NAME 100 FORMAT (A25,' 2374, INSUFFICIENT CORE TO PROCESS MORE THAN',I7, 1 ' VECTORS IN ',2A4) C IF (MAXVEC .LE. 0) GO TO 400 C 110 MAXVEC = MIN0 (NVEC,MAXVEC) L = 1 MA(1) = 0 IF (KLOAD .LE. 0) GO TO 160 PARM(2) = KSCR(7) MA(1) = 1 ASSIGN 160 TO IRET C C INTERNAL FUNCTION TO LOAD MAXVEC COLUMNS INTO CORE C 120 CONTINUE CALL GOPEN (PARM(2),ZZ(NZZ2),RDRW) IUNPR = 1 IUNINC = 1 IUNRW = 1 NUNRW = 6 C DO 150 MT = 1,MAXVEC CALL UNPACK (*130,PARM(2),ZZ(L)) GO TO 150 130 MPR = L - 1 DO 140 I = 1,6 MPR = MPR + 1 140 ZZ(MPR) = 0.0 150 L = L + 6 C CALL CLOSE (PARM(2),KRW) GO TO IRET, (160,170,180) C 160 MA(2) = 0 IF (KSPC .LE. 0) GO TO 170 PARM(2) = KSCR(6) MA(2) = L ASSIGN 170 TO IRET GO TO 120 C 170 MA(3) = 0 IF (KMPC .LE. 0) GO TO 180 PARM(2) = KSCR(5) MA(3) = L ASSIGN 180 TO IRET GO TO 120 C 180 IVEC = 0 LSTEIG = .FALSE. CALL PAGE1 C C LOOP ON OUTPUT C 200 CONTINUE IVEC = IVEC + 1 IF (LSTEIG) GO TO 260 PARM(2) = KSCC CALL READ (*250,*500,KSCC,MB(1),7,1,I) I = MB(1) IF (IVEC.EQ.1 .OR. EJECT(11).NE.0) WRITE (NOUT,210) IGPT 210 FORMAT (1H0,20X,'E Q U I L I B R I U M C H E C K L O A D S', 1 /,1H0,16X,'RESULTANT LOADS AT POINT',I7, 2 ' IN BASIC COORDINATE SYSTEM') IF (NSKIP .LE. 0) GO TO 260 C C STATICS SUBCASES C IF (MB(4) .EQ. 0) MB(4) = MB(7) IF (MB(4) .EQ. 0) MB(4) = MB(6) WRITE (NOUT,220) MB(1),MB(4) 220 FORMAT (1H0,24X,7HSUBCASE,I8,8H, LOAD,I8) WRITE (NOUT,230) 230 FORMAT (1H0,5X,46H-TYPE- T1 T2 T3, 1 13X,32HR1 R2 R3) C 240 FORMAT (5X,2A4,1P,6E15.6) C GO TO 300 C C EOF FOUND C 250 CONTINUE IF (IVEC .GT. MAXVEC) GO TO 400 IF (NSKIP .GT. 0) GO TO 510 LSTEIG = .TRUE. C C EIGENVALUE PROBLEM C 260 PARM(2) = KLAMA CALL READ (*510,*500,KLAMA,MB(2),7,0,I) WRITE (NOUT,270) MB(1),MB(2),FREQ 270 FORMAT (1H0,24X,7HSUBCASE,I8,8H, MODE,I5,13H, FREQUENCY, 1 1P,E15.6) WRITE (NOUT,230) C C LOOP ON OUTPUT CATAGORY C 300 K = NENTRY/6 + 1 IHDCNT = 1 DO 310 I = 3,8 310 CORE(I,K) = 0.0E0 C DO 330 I = 1,3 IF (MA(I) .EQ. 0) GO TO 330 CORE(1,IHDCNT) = HEAD(1,I) CORE(2,IHDCNT) = HEAD(2,I) J = MA(I) + IVEC*6 - 6 C DO 320 L = 3,8 CORE(L,IHDCNT) = ZZ(J) CORE(L,K) = CORE(L,K) + ZZ(J) J = J + 1 320 CONTINUE IHDCNT = IHDCNT + 1 330 CONTINUE C CORE(1,K) = HEAD(1,4) CORE(2,K) = HEAD(2,4) IF (K .EQ. 2) WRITE (NOUT,240) COR1 IF (K .EQ. 3) WRITE (NOUT,240) COR3 IF (K .EQ. 4) WRITE (NOUT,240) CORE IF (IVEC .LT. MAXVEC) GO TO 200 400 CALL CLOSE (KSCC,KRW) IF (NSKIP .LE. 0) CALL CLOSE (KLAMA,KRW) RETURN C C ERROR MESSAGES C C EOR C 500 PARM(1) = 3 GO TO 600 C C EOF C 510 PARM(1) = 2 GO TO 600 C C ILLEGAL INPUT C 520 PARM(1) = 1 GO TO 600 C 600 CALL MESAGE (PARM(1),PARM(2),PARM(3)) GO TO 400 END ================================================ FILE: mis/eqout1.f ================================================ SUBROUTINE EQOUT1 (IA,LEN1,NS,LEN2,ISIL) C C THIS ROUTINE GENERATES OUTPUT ENTRIES FOR CONNECTION TRACE C EXTERNAL LSHIFT,RSHIFT INTEGER IA(1),NS(1),IBITS(2),N1(17),N2(14),RSHIFT,OUTT COMMON /CMB002/ JUNK(8),OUTT COMMON /SYSTEM/ JUNK1(8),NLPP,JUNK2(2),NLINE COMMON /CMB003/ ICOMB(7,5),CONSET,IAUTO,TOLER,NPSUB COMMON /MACHIN/ MACH,IHALF DATA IBLANK/ 4H / C C SORT ON PSEUDOSTRUCTURE NUMBER C IFIRST = 1 DO 28 K = 1,17 N1(K) = IBLANK 28 CONTINUE DO 29 K = 1,14 N2(K) = IBLANK 29 CONTINUE CALL SORT (0,0,4,1,IA(1),LEN1) J = 1 N1(1) = IA(J+2) ICODE = IA(J+3) CALL BITPAT (ICODE,IBITS) DO 1 I = 1,2 N1(I+1) = IBITS(I) 1 CONTINUE 13 IPS = RSHIFT(IA(J),IHALF) ISUB = 2*(IPS-1) + 4 IDBAS = IA(J) - LSHIFT(IPS,IHALF) N1(ISUB ) = NS(2*IDBAS-1) N1(ISUB+1) = NS(2*IDBAS ) IA(J) = -IA(J) CALL PUSH (IA(J+1),N2(2*IPS-1),1,8,1) JJ = J 12 IF (JJ+4 .GT. LEN1) GO TO 14 IF (IA(JJ+4)) 11,11,50 50 IF (RSHIFT(IABS(IA(J)),IHALF) - RSHIFT(IA(JJ+4),IHALF)) 10,11,10 11 JJ = JJ + 4 GO TO 12 10 J = JJ + 4 GO TO 13 C C WRITE OUTPUT C 14 NLINE = NLINE + 3 IF (NLINE .LE. NLPP) GO TO 20 CALL PAGE NLINE = NLINE + 3 20 CONTINUE J = 3 + 2*NPSUB IF (IFIRST .EQ. 1) WRITE(OUTT,1000) N1(1),ISIL,(N1(K),K=2,J) IF (IFIRST .EQ. 0) WRITE(OUTT,1003) (N1(K),K=4,J) WRITE (OUTT,1001) (N2(K),K=1,14) IFIRST = 0 J = -3 15 J = J + 4 IF (J .GT. LEN1) GO TO 17 IF (IA(J)) 15,15,16 16 DO 18 K = 1,17 N1(K) = IBLANK 18 CONTINUE DO 19 K = 1,14 N2(K) = IBLANK 19 CONTINUE GO TO 13 17 WRITE (OUTT,1002) 1000 FORMAT (8X,I6,6X,I6,8X,A4,A2,7(3X,2A4)) 1001 FORMAT (40X,7(3X,2A4) ) 1002 FORMAT (7X,4H --,27(4H----),4H- ) 1003 FORMAT (/40X,7(3X,2A4) ) RETURN END ================================================ FILE: mis/eqscod.f ================================================ SUBROUTINE EQSCOD (LOC,N,Z) C EXTERNAL LSHIFT,ORF INTEGER Z(1),ORF C I = LOC MEND= LOC+N-1 1 IST = I NG = 1 2 CONTINUE IF (I .GE. MEND-2) GO TO 3 IF (Z(I+3) .NE. Z(IST)) GO TO 3 NG = NG+1 I = I+3 GO TO 2 3 CONTINUE IF (NG .NE. 1) GO TO 4 I = I+3 IF (I .GE. MEND-2) GO TO 6 GO TO 1 4 DO 5 J=1,NG ILOC = IST+3*(J-1) ICODE = 8*J+NG INEW = LSHIFT(ICODE,26) Z(ILOC+2) = ORF(Z(ILOC+2),INEW) 5 CONTINUE I = I+3 IF (I .GE. MEND-2) GO TO 6 GO TO 1 6 CONTINUE RETURN END ================================================ FILE: mis/eqsout.f ================================================ SUBROUTINE EQSOUT C C THIS ROUTINE WRITES THE CONNECTION TRACE FOR A NEWLY COMBINED C PSEUDOSTRUCTURE. C EXTERNAL LSHIFT,RSHIFT,ANDF,ORF INTEGER Z,SCORE,ORF,NBOT(7),NTOP(7),CNAM INTEGER COMBO,IORDS(2) INTEGER WORDS(6),IHD(64),STRING(32),ANDF,RSHIFT COMMON /CMB002/ JUNK(5),SCORE COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT COMMON /CMB004/ TDAT(6),NIPNEW,CNAM(2) COMMON /ZZZZZZ/ Z(1) COMMON /OUTPUT/ ITITL(96),IHEAD(96) COMMON /MACHIN/ MACH,IHALF DATA IHD/ 10*4H , 4H S , 4HUMMA , 4HRY O , 4HF PS , 4HEUDO , 1 4HSTRU , 4HCTUR , 4HE CO , 4HNNEC , 4HTIVI , 2 4HTIES , 12*4H , 4HINTE , 4HRNAL , 2 4H I , 4HNTER , 3 4HNAL , 4H DE , 4HGREE , 4HS OF , 4 4H ** ,5*4H****, 4H P S , 4H E U , 5 4H D O , 4H S T , 4H R U , 4H C T , 4H U R , 6 4H E , 4H N A , 4H M E , 4H S * ,3*4H****, 7 3*4H / DATA WORDS / 4HPOIN , 4HT NO , 4HFREE , 4HDOM , 4HDOF , 4HNO / DATA IBLANK,NHEQSS / 4H , 4HEQSS / C IF (ANDF(RSHIFT(IPRINT,11),1) .NE. 1) RETURN CALL SFETCH (CNAM,NHEQSS,1,ITEST) CALL SUREAD (Z(SCORE),-1,NOUT,ITEST) NCOMP = Z(SCORE+2) NWRD = NOUT - 4 ISTEQS= SCORE + NWRD C C MOVE COMPONENT SUBSTRUCTURE NAMES INTO FIRST NWRD OF OPEN CORE. C DO 100 I=1,NWRD II = I - 1 Z(SCORE+II) = Z(SCORE+II+4) 100 CONTINUE DO 1 I=1,32 STRING(I) = IBLANK 1 CONTINUE CALL PUSH (WORDS(1),STRING, 5,8,0) CALL PUSH (WORDS(5),STRING,17,8,0) CALL PUSH (WORDS(3),STRING,29,8,0) DO 2 I=1,NPSUB IORDS(1) = COMBO(I,1) IORDS(2) = COMBO(I,2) LOC = 39+11*(I-1) CALL PUSH (IORDS(1),STRING,LOC,8,0) 2 CONTINUE DO 3 I=1,64 IHEAD(I) = IHD(I) 3 CONTINUE DO 4 I=65,96 IHEAD(I) = STRING(I-64) 4 CONTINUE CALL PAGE C C COMPUTE FIRST AND LAST COMPONENT SUBSTRUCTURE ID NUMBERS C FOR EACH PSEUDOSTRUCTURE. C NBOT(1) = 1 DO 110 I=1,NPSUB NTOP(I) = NBOT(I) + COMBO(I,5) - 1 II = I + 1 IF (I .EQ. NPSUB) GO TO 110 NBOT(II) = NTOP(I) + 1 110 CONTINUE C C READ EQSS INTO OPEN CORE STARTING AT LOCATION ISTEQS C JJ = 0 ICOMP = 0 180 ICOMP = ICOMP + 1 IF (ICOMP .GT. NCOMP) GO TO 140 170 CALL SUREAD (Z(ISTEQS+JJ+1),3,NOUT,ITEST) GO TO (130,120,140), ITEST 130 CONTINUE C C NORMAL ROUTE - PROCESS ENTRIES C Z(ISTEQS+JJ) = ICOMP DO 160 J=1,NPSUB IF (ICOMP.GE.NBOT(J) .AND. ICOMP.LE.NTOP(J)) GO TO 150 160 CONTINUE 150 Z(ISTEQS+JJ) = ORF(LSHIFT(J,IHALF),Z(ISTEQS+JJ)) JJ = JJ + 4 GO TO 170 120 GO TO 180 C C SORT ON INTERNAL POINT NUMBER C 140 CONTINUE Z(ISTEQS+JJ ) = 0 Z(ISTEQS+JJ+1) = 0 Z(ISTEQS+JJ+2) = 0 Z(ISTEQS+JJ+3) = 0 CALL SORT (0,0,4,3,Z(ISTEQS),JJ) II = 1 ISIL = 1 DO 200 I=1,JJ,4 IF (Z(ISTEQS+I+1) .NE. Z(ISTEQS+I+5)) GO TO 210 II = II + 1 GO TO 200 210 IW = 4*II IOFF = I - 1 - 4*(II-1) ICODE = Z(ISTEQS+IOFF+3) CALL DECODE (ICODE,STRING,NDOF) CALL EQOUT1 (Z(ISTEQS+IOFF),IW,Z(SCORE),NWRD,ISIL) ISIL = ISIL + NDOF II = 1 200 CONTINUE RETURN END ================================================ FILE: mis/errmkn.f ================================================ SUBROUTINE ERRMKN (N,IERR) C C SENDS ERROR MESSAGES. N IS THE INDEX OF THE SUBROUTINE CALLING C ERROR, AND IERR IS AN ERROR CODE. C DIMENSION ISUBR(26) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ NBUFF,NOUT DATA ISUBR / 4HCRSU,4HB ,4HDSTR,4HOY ,4HFDIT,4H , 1 4HFMDI,4H ,4HFNXT,4H ,4HGETB,4HLK , 2 4HRETB,4HLK ,4HSETE,4HQ ,4HSJUM,4HP , 3 4HSURE,4HAD ,4HRENA,4HME ,4HEXO2,4H , 4 4HEXIO,4H1 / C WRITE (NOUT,1000) SFM,ISUBR(N),ISUBR(N+1) CALL SOFCLS GO TO (10,20,30,40,50,60,70,80,90,100), IERR 10 WRITE (NOUT,1010) GO TO 900 20 WRITE (NOUT,1020) GO TO 900 30 WRITE (NOUT,1030) GO TO 900 40 WRITE (NOUT,1040) GO TO 900 50 WRITE (NOUT,1050) GO TO 900 60 WRITE (NOUT,1060) GO TO 900 70 WRITE (NOUT,1070) GO TO 900 80 WRITE (NOUT,1080) GO TO 900 90 WRITE (NOUT,1090) GO TO 900 100 WRITE (NOUT,1100) GO TO 900 900 CALL MESAGE (-61,0,0) RETURN C 1000 FORMAT (A25,' 6224, SOF UTILITY SUBROUTINE ',2A4) 1010 FORMAT (5X,'I IS TOO LARGE OR NXTTSZ HAS NOT BEEN PROPERLY ', 1 'UPDATED') 1020 FORMAT (5X,'ILLEGAL BLOCK NUMBER') 1030 FORMAT (5X,'ERROR IN SETTING UP THE LIST IMORE') 1040 FORMAT (5X,'NXTCUR IS TOO LARGE') 1050 FORMAT (5X,'ERROR IN UPDATING DIT') 1060 FORMAT (5X,'ERROR IN UPDATING MDI') 1070 FORMAT (5X,'ERROR IN LINKING BLOCKS OF DIT') 1080 FORMAT (5X,'LINK THROUGH COMBINED SUBSTRUCTURES IS NOT CIRCULAR') 1090 FORMAT (5X,'ERROR IN LINKING SOF BLOCKS') 1100 FORMAT (5X,'INTERNAL ARRAY DIMENSION EXCEEDED') END ================================================ FILE: mis/estmag.f ================================================ SUBROUTINE ESTMAG (HEST,ESTFLD,MPT,DIT,GEOM1,IANY,KCOUNT) C C CREATE SCRATCH FILE ESTFLD WHICH WILL BE USED TO COMPUTE TOTAL C MAGNETIC FIELD. READ EST AND CREATE SIMILAR RECORDS CONTAINING C ELTYPE,EID,NUMBER OF SILS,SILS,3 X 3 MATERIALS MATRIX, AND 3 X 3 C TRANSFORMATION MATRIX TO BRING HM BACK TO BASIC COORD. SYSTEM C FROM ELEMENT SYSTEM,OUTPUT COORD. SYSTEM ID, AND BASIC COORDS. C OF STRESS POINT(USUALLY AVERAGE OF GRID COORDS.) C INTEGER HEST,ESTFLD,SYSBUF,ELTYPE,POINTR(6,20),MCB(7), 1 BUF1,BUF2,IZ(1),NAM(2),ESTWDS,FRSTGD,OTPE,DIT, 2 BFIELD(2),OLDEID,BUF3,FILE,GEOM1 DIMENSION DN(8),XM(32),COORD(3),KOUNT(2),NAME(2),V12(3), 1 V13(3),XI(3),XJ(3),XK(3),ECPT(200),IECPT(200), 2 E(9),G(9) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1) COMMON /SYSTEM/ SYSBUF,OTPE COMMON /ZZZZZZ/ Z(1) COMMON /HMATDD/ IIHMAT,NNHMAT,MPTFIL,IDITFL COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /HMTOUT/ XMAT(6) EQUIVALENCE (Z(1),IZ(1)),(ECPT(1),IECPT(1)) DATA NAM / 4HESTM,4HAG / DATA BFIELD/ 3101,31 / DATA DN / 4*-.25, 4*.5 / C C ITYPE ITH MID ISYS1 ITEMP DIM C DATA POINTR/ 1, 0, 4, 9, 17, 1, 1 3, 0, 4, 8, 16, 1, 2 6, 5, 6, 15, 27, 2, 3 9, 5, 6, 9, 21, 2, 4 10, 0, 4, 9, 17, 1, 5 16, 6, 7, 10, 26, 2, 6 17, 5, 6, 9, 21, 2, 7 18, 6, 7, 10, 26, 2, 8 19, 6, 7, 16, 32, 2, 9 34, 0, 16, 34, 42, 1, 1 36, 5, 6, 7, 19, 2, 2 37, 6, 7, 8, 24, 2, 3 39, 0, 2, 7, 23, 3, 3 40, 0, 2, 9, 33, 3, 4 41, 0, 2, 11, 43, 3, 5 42, 0, 2, 11, 43, 3, 6 65, 0, 10, 16, 48, 3, 6 66, 0, 22, 28, 108, 3, 7 67, 0, 34, 40, 168, 3, 8 80, 11, 12, 14, 46, 2 / C LCORE = KORSZ(Z) BUF1 = LCORE - SYSBUF + 1 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF - 1 LCORE = BUF3 - 1 IF (LCORE .LE. 0) GO TO 1008 C C COUNT NUMBER OF TERMS IN A COLUMN OF HCCEN C KCOUNT = 0 C C SET UP MATERIALS C IIHMAT = 0 NNHMAT = LCORE MPTFIL = MPT IDITFL = DIT CALL PREHMA (Z) NEXTZ = NNHMAT + 1 C CALL GOPEN (HEST,Z(BUF1),0) CALL GOPEN (ESTFLD,Z(BUF2),1) C C READ IN ANY BFIELD CARDS C IANY = 0 IALL = 1 IFIELD = 0 IDEFID = 0 NFIELD = 0 FILE = GEOM1 CALL PRELOC (*1001,Z(BUF3),GEOM1) CALL LOCATE (*3,Z(BUF3),BFIELD,IDEX) IANY = 1 CALL READ (*1002,*1,GEOM1,Z(NEXTZ+1),LCORE-NEXTZ,0,IWORDS) GO TO 1008 1 NFIELD = IWORDS/2 IF (NFIELD.NE.1 .OR. IZ(NEXTZ+2).NE.-1) GO TO 2 IFIELD = IZ(NEXTZ+1) IDEFID = IFIELD GO TO 3 C C BFIELD ARE NOT THE SAME FOR EVERY ELEMENT C 2 IALL = 0 3 CALL CLOSE (GEOM1,1) C C CHECK FOR ALL SO THAT CSTM WONT BE OPENED C IF (NFIELD .EQ. 0) GO TO 8 DO 4 I = 1,IWORDS,2 IF (IZ(NEXTZ+I) .NE. 0) GO TO 5 4 CONTINUE IANY = 0 IALL = 1 IFIELD = 0 5 CONTINUE C C CHECK FOR A DEFAULT ID C DO 6 I = 2,IWORDS,2 IF (IZ(NEXTZ+I) .EQ. -1) GO TO 7 6 CONTINUE GO TO 8 7 IDEFID = IZ(NEXTZ+I-1) 8 CONTINUE FILE = HEST C 10 CALL READ (*120,*1003,HEST,ELTYPE,1,0,IFLAG) CALL WRITE (ESTFLD,ELTYPE,1,0) OLDEID = 0 ICOUNT = 0 IDX = (ELTYPE-1)*INCR ESTWDS = NE(IDX+12) NGRIDS = NE(IDX+10) FRSTGD = 2 IF (ELTYPE.GE.39 .AND. ELTYPE.LE.42) FRSTGD = 3 NAME(1) = NE(IDX+1) NAME(2) = NE(IDX+2) C C PICK UP MATERIAL ID, START OF BGPDT DATA, AND DIMENSIONALITY OF C ELEMENT C DO 20 I = 1,20 JEL = I IF (ELTYPE-POINTR(1,I)) 500,30,20 20 CONTINUE GO TO 500 C 30 ITH = POINTR(2,JEL) MID = POINTR(3,JEL) ISYS1 = POINTR(4,JEL) ISYS2 = ISYS1 + 4 ISYS3 = ISYS2 + 4 C C FOR IS2D8, USE 4TH POINT FOR GEOMETRY SINCE THAT IS WHAT WE USE C FOR IS2D8 ELSEWHERE C IF (ELTYPE .EQ. 80) ISYS3 = ISYS3 + 4 ITEMP = POINTR(5,JEL) IDIM = POINTR(6,JEL) C 40 CALL READ (*1002,*110,HEST,ECPT,ESTWDS,0,IFLAG) IF (ELTYPE .LT. 65) KCOUNT = KCOUNT + 3 IF (ELTYPE .EQ. 65) KCOUNT = KCOUNT + 27 IF (ELTYPE.EQ.66 .OR. ELTYPE.EQ.67) KCOUNT = KCOUNT + 63 IF (ELTYPE .EQ. 80) KCOUNT = KCOUNT + 27 C C FIND BFIELD FOR THIS ELEMENT C IF (IALL .EQ. 1) GO TO 47 DO 45 I = 2,IWORDS,2 IF (IECPT(1) .EQ. IZ(NEXTZ+I)) GO TO 46 45 CONTINUE IFIELD = IDEFID GO TO 47 46 IFIELD = IZ(NEXTZ+I-1) 47 CONTINUE C C WRITE EID, SILS C CALL WRITE (ESTFLD,IECPT(1),1,0) CALL WRITE (ESTFLD,NGRIDS,1,0) CALL WRITE (ESTFLD,IECPT(FRSTGD),NGRIDS,0) C C FETCH MATERIALS C MATID = IECPT(MID) SINTH = 0. COSTH = 0. C*** C ASSUME HERE THAT FOR ISOPARAMETRICS WE HAVE TEMPERATURE-INDEPENDENT C MATERIALS IN THIS MAGNETICS PROBLEM C*** ELTEMP = ECPT(ITEMP) INFLAG = 3 CALL HMAT (IECPT(1)) G(1) = XMAT(1) G(2) = XMAT(2) G(3) = XMAT(3) G(4) = XMAT(2) G(5) = XMAT(4) G(6) = XMAT(5) G(7) = XMAT(3) G(8) = XMAT(5) G(9) = XMAT(6) C C NOW CREATE TRANSFORMATION MATRIX FROM LOACL COORDS TO BASIC C DETERMINE DIMENSIONALITY OF ELEMENT C GO TO (50,70,90), IDIM C C ONE-DIMENSIONAL-DETERMINE THE LOCAL X-AXIS(IN BASIC COORDS) C 50 DO 55 I = 1,3 55 V12(I) = ECPT(ISYS2+I) - ECPT(ISYS1+I) XLEN = SQRT(V12(1)**2 + V12(2)**2 + V12(3)**2) DO 60 I = 1,3 60 V12(I) = V12(I)/XLEN C DO 65 I = 1,9 65 E(I) = 0. E(1) = V12(1) E(4) = V12(2) E(7) = V12(3) GO TO 100 C C TWO-DIMENSIONAL WE WILL USE ONLY GRIDS 1,2,3 ASSUMING A PLANAR C OR NEARLY PLANAR ELEMENT FOR QUADS C 70 DO 75 I = 1,3 V12(I) = ECPT(ISYS2+I) - ECPT(ISYS1+I) V13(I) = ECPT(ISYS3+I) - ECPT(ISYS1+I) 75 CONTINUE XLEN = SQRT(V12(1)**2 + V12(2)**2 + V12(3)**2) DO 78 I = 1,3 78 XI(I) = V12(I)/XLEN C XK(1) = XI(2)*V13(3) - XI(3)*V13(2) XK(2) = XI(3)*V13(1) - XI(1)*V13(3) XK(3) = XI(1)*V13(2) - XI(2)*V13(1) XLEN = SQRT(XK(1)**2 + XK(2)**2 + XK(3)**2) DO 80 I = 1,3 80 XK(I) = XK(I)/XLEN C XJ(1) = XK(2)*XI(3) - XK(3)*XI(2) XJ(2) = XK(3)*XI(1) - XK(1)*XI(3) XJ(3) = XK(1)*XI(2) - XK(2)*XI(1) XLEN = SQRT(XJ(1)**2 + XJ(2)**2 + XJ(3)**2) DO 85 I = 1,3 85 XJ(I) = XJ(I)/XLEN C DO 86 I = 1,3 E(3*I-2) = XI(I) E(3*I-1) = XJ(I) E(3*I ) = XK(I) 86 CONTINUE C C CHECK ON MATERIALS AS IN EMRING C ANGLE = ECPT(ITH)*0.017453293 IF (XMAT(3).EQ.0. .AND. XMAT(5).EQ.0.) GO TO 87 GO TO 100 87 IF (ABS(ANGLE) .LE. .0001) GO TO 100 DO 88 I = 1,9 88 G(I) = 0. S = SIN(ANGLE) C = COS(ANGLE) CSQ = C*C SSQ = S*S CS = C*S X2 = 2.*CS*XMAT(2) G(1) = CSQ*XMAT(1) - X2 + SSQ*XMAT(4) G(2) = CS*(XMAT(1) - XMAT(4)) + (CSQ-SSQ)*XMAT(2) G(5) = SSQ*XMAT(1) + X2 + CSQ*XMAT(4) G(4) = G(2) G(9) = XMAT(6) C IF (ELTYPE.NE.36 .AND. ELTYPE.NE.37) GO TO 100 C C SINCE MAT5 INFO FOR TRAPRG,TRIARG MUST BE GIVEN IN X-Y TERMS, C RE-ORDER THE 3 X 3 , INTERCHANGING Y AND Z C TEMP = G(5) G(5) = G(9) G(9) = TEMP TEMP = G(2) G(2) = G(3) G(3) = TEMP G(4) = G(2) G(7) = G(3) GO TO 100 C C THREE-DIMENSIONAL-NO ELEMENT COORDINATE SYSTEM-EVERYTHING IS C OUTPUT IN BASIC- SO E IS IDENTITY C 90 DO 95 I = 1,9 95 E(I) = 0. E(1) = 1. E(5) = 1. E(9) = 1. C 100 CALL WRITE (ESTFLD,G,9,0) CALL WRITE (ESTFLD,E,9,0) IF (ELTYPE.GE.65 .AND. ELTYPE.LE.67) GO TO 104 C C COMPUTE THE AVERAGE COORDINATES OF THE GRID POINTS OF THE ELEMENT C FOR USE IN NON-RECTANGULAR COORDIANTE SYSTEMS. THIS POINT IS NOT C NECESSARILY THE CENTROID,BUT ANY POINT WILL DO FOR CONSTANT STRAIN C ELEMENTS AND THIS IS CONVENIENT C IF (ELTYPE .NE. 80) GO TO 1013 C C FOR IS2D8 USE SHAPE FUNCTION C DO 1012 I = 1,3 COORD(I) = 0. DO 1012 J = 1,8 JSUB = ISYS1 + 4*(J-1) COORD(I) = COORD(I) + DN(J)*ECPT(JSUB+I) 1012 CONTINUE GO TO 108 1013 CONTINUE DO 102 I = 1,3 COORD(I) = 0. DO 102 J = 1,NGRIDS JSUB = ISYS1 + 4*(J-1) COORD(I) = COORD(I) + ECPT(JSUB+I) 102 CONTINUE DO 103 I = 1,3 103 COORD(I) = COORD(I)/FLOAT(NGRIDS) GO TO 108 C C ISOPARAMETRICS-PICK UP COORDS. OF APPLICABLE POINT. FOR THE LAST C POINT, GO TO THE PREVIOUS METHOD C 104 IF (IECPT(1) .EQ. OLDEID) GO TO 105 OLDEID = IECPT(1) 105 ICOUNT = ICOUNT + 1 IF (ELTYPE.EQ.65 .AND. ICOUNT.LT. 9) GO TO 106 IF (ELTYPE.GT.65 .AND. ICOUNT.LT.21) GO TO 106 C C CENTROIDAL POINT-COMPUTE COORDS BASED ON XI=ETA=ZETA=0 C ICOUNT = 0 OLDEID = 0 IF (ELTYPE .NE. 65) GO TO 1051 DO 1050 I = 1,8 1050 XM(I) = .125 GO TO 1057 1051 IF (ELTYPE .NE. 66) GO TO 1054 DO 1052 I = 1,20 1052 XM(I) = .25 DO 1053 I = 1,7,2 XM(I) =-.25 1053 XM(I+12) =-.25 GO TO 1057 1054 CON1 = 9./64. CON2 =-19./64. DO 1055 I = 1,32 1055 XM(I) = CON1 DO 1056 I = 1,10,3 XM(I) = CON2 1056 XM(I+20) = CON2 C 1057 DO 1058 I = 1,3 COORD(I) = 0. DO 1058 J = 1,NGRIDS JSUB = ISYS1 + 4*(J-1) COORD(I) = COORD(I) + ECPT(JSUB+I)*XM(J) 1058 CONTINUE GO TO 109 106 IF (ELTYPE.EQ.67 .AND. ICOUNT.LT.21) GO TO 1071 JSUB = ISYS1 + 4*(ICOUNT-1) DO 107 I = 1,3 107 COORD(I) = ECPT(JSUB+I) IF (ICOUNT .GT. 1) GO TO 109 GO TO 108 C C FOR IHEX3, MUST GET PROPER COORDINATES IF NOT THE LAST POINT C 1071 IF (ICOUNT.GE.9 .AND. ICOUNT.LE.12) GO TO 1072 IF ((ICOUNT/2)*2 .EQ. ICOUNT) GO TO 1073 C C CORNERS C IF (ICOUNT.EQ.1 .OR. ICOUNT.EQ.13) JCOUNT =-1 IADD = 0 IF (ICOUNT .GE. 13) IADD = 8 JCOUNT = JCOUNT + 1 NUM = 1 KOUNT(1) = ICOUNT + JCOUNT + IADD GO TO 1075 C C MIDSIDES C 1072 KADD = 4 JCO = 3 GO TO 1074 1073 KADD = 1 IF (ICOUNT.EQ.2 .OR. ICOUNT.EQ.14) JCO = -1 1074 IADD = 0 IF (ICOUNT .GE. 14) IADD = 8 JCO = JCO + 1 NUM = 2 KOUNT(1) = ICOUNT + JCO + IADD KOUNT(2) = KOUNT(1) + KADD 1075 DO 1077 I = 1,3 COORD(I) = 0. DO 1076 J = 1,NUM JSUB = ISYS1 + 4*(KOUNT(J)-1) 1076 COORD(I) = COORD(I) + ECPT(JSUB+I) 1077 CONTINUE DO 1078 I = 1,3 1078 COORD(I) = COORD(I)/FLOAT(NUM) IF (ICOUNT .GT. 1) GO TO 109 C C WRITE OUT CID AND COORDINATES C 108 CALL WRITE (ESTFLD,IFIELD,1,0) 109 CALL WRITE (ESTFLD,COORD,3,0) C C FOR ISOPARAMETRICS, GET COORDS OF NEXT POINT, OTHERWISE, C GO BACK FOR ANOTHER ELEMENT OF THIS TYPE C IF (OLDEID .EQ. 0) GO TO 40 GO TO 105 C C C GET ANOTHER ELEMENT TYPE C 110 CALL WRITE (ESTFLD,0,0,1) GO TO 10 C C DONE C 120 CALL CLOSE (ESTFLD,1) CALL CLOSE (HEST,1) MCB(1) = HEST CALL RDTRL (MCB) MCB(1) = ESTFLD CALL WRTTRL (MCB) RETURN C C FATAL ERRORS C 500 WRITE (OTPE,501) UFM,NAME 501 FORMAT (A23,', ELEMENT TYPE ',2A4,' NOT ALLOWED IN ESTMAG') CALL MESAGE (-61,0,0) C 1001 N = -1 GO TO 1010 1002 N = -2 GO TO 1010 1003 N = -3 GO TO 1010 1008 N = -8 FILE = 0 1010 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/etrbkd.f ================================================ SUBROUTINE ETRBKD (IOPT) C C THIS SUBROUTINE CALCULATES THE STIFFNESS MATRIX FOR THE BASIC C BENDING TRIANGLE. IT IS USED BY SUBROUTINES TRBSCD,QDPLTD, C TRPLTD, QUAD1D, TRIA1D, TRIA2D C DOUBLE PRECISION VERSION C IOPT MAY BE VARIED AS FOLLOWS TO PRODUCE APPROPRIATE RESULTS C ****************************************************************** C C C C IOPT = 0 IMPLIES DO COMPLETE BASIC BENDING TRIANGLE. C IOPT = 1 IMPLIES COMPUTE ONLY THE NINE (3X3)MATRICES C WHICH FORM THE 9X9 K SUPER U - MATRIX. C IOPT = 2 SAME AS IOPT = 1,BUT SAVE H-INVERSE AND S... C C ****************************************************************** C ECPT LIST FOR BASIC BENDING TRIANGLE NAME IN C THIS C ECPT ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID 1 MATID1 INTEGER C ECPT( 7) = I = MOMENT OF INERTIA EYE REAL C ECPT( 8) = MATERIAL ID 2 MATID2 INTEGER C ECPT( 9) = T2 T2 REAL C ECPT(10) = NON-STRUCTURAL-MASS FMU REAL C ECPT(11) = Z1 Z11 REAL C ECPT(12) = Z2 Z22 REAL C ECPT(13) = COORD. SYSTEM ID 1 NECPT(13) INTEGER C ECPT(14) = X1 X1 REAL C ECPT(15) = Y1 Y1 REAL C ECPT(16) = Z1 Z1 REAL C ECPT(17) = COORD. SYSTEM ID 2 NECPT(17) INTEGER C ECPT(18) = X2 X2 REAL C ECPT(19) = Y2 Y2 REAL C ECPT(20) = Z2 Z2 REAL C ECPT(21) = COORD. SYSTEM ID 3 NECPT(21) INTEGER C ECPT(22) = X3 X3 REAL C ECPT(23) = Y3 Y3 REAL C ECPT(24) = Z3 Z3 REAL C ECPT(25) = ELEMENT TEMPERATURE ELTEMP REAL C ****************************************************************** C LOGICAL NOGO INTEGER NECPT(26),NO(2) REAL ECPT(25) DOUBLE PRECISION J2X2(4), G2X2(4),S(18),G(9),TJTE(18),TITE(18) 1, TI(9),A,PROD9,TEMP9,XSUBB,XSUBC,YSUBC,DICT5 2, E,K,AOUT,D(9) 3, CONSTS,DEGRA,TEMP,THETA,SINTH,COSTH,AREA,XBAR 4, YBAR,XCSQ,YCSQ,XBSQ,XCYC,PX2,PY2,PXY2,XBAR3 5, YBAR3,YBAR2,DETERM C COMMON /CONDAD/ CONSTS(5) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE, 2 G2X211, G2X212, G2X222 C COMMON /EMGPRM/ DUM(15),SMB(3),IPREC,NOGO COMMON /EMGEST/ IELID , NGRID(3) 2 ,ANGLE ,MATID1 3 ,EYE ,MATID2 4 ,T2 ,FMU 5 ,Z11 ,Z22 6 ,DUMMY1 ,X1 7 ,Y1 ,Z1 8 ,DUMMY2 ,X2 9 ,Y2 ,Z2 1 ,DUMMY3 ,X3 2 ,Y3 ,Z3 ,DUMB(76) COMMON /EMGTRX/ A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,DICT5, 2 E(18),K(324),AOUT(324) C EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (IELID,ECPT(1),NECPT(1)), (D(1),G(1), A(79)) 2 ,(G2X2(1),A(88)) 3 ,(TJTE(1),A(100)) ,(TITE(1),S(1),A(82)) 4 ,(J2X2(1),A(92)) ,(TI(1),A(118)) C DATA NO /81,190/ NTYPE = 0 IF( IOPT.GT.0 ) NTYPE = 1 IF (NTYPE .EQ. 1) GOTO 100 ELTEMP = ECPT(25) C SET UP I, J, K VECTORS STORING AS FOLLOWS AND ALSO CALCULATE C X-SUB-B, X-SUB-C, AND Y-SUB-C. C C E(11), E(14), E(17) WILL BE THE I-VECTOR. C E(12), E(15), E(18) WILL BE THE J-VECTOR. C E( 1), E( 4), E( 7) WILL BE THE K-VECTOR. C C FIND I-VECTOR = RSUBB - RUBA (NON-NORMALIZED) E(11) = DBLE(X2) - DBLE(X1) E(14) = DBLE(Y2) - DBLE(Y1) E(17) = DBLE(Z2) - DBLE(Z1) C C FIND LENGTH = X-SUB-B COOR. IN ELEMENT SYSTEM XSUBB = DSQRT(E(11)**2 + E(14)**2 + E(17)**2) IF (XSUBB .LE. 1.D-6) GO TO 7770 C E(11) = E(11)/XSUBB E(14) = E(14)/XSUBB E(17) = E(17)/XSUBB C C TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN E(2), E(5), E(8) C E(2) = DBLE(X3) - DBLE(X1) E(5) = DBLE(Y3) - DBLE(Y1) E(8) = DBLE(Z3) - DBLE(Z1) C C X-SUB-C = I . (RSUBC - RSUBA), THUS C XSUBC = E(11) * E(2) + E(14) * E(5) + E(17) * E(8) C C CROSSING I-VECTOR TO (RSUBC - RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(1) = E(14) * E( 8) - E( 5) * E(17) E(4) = E( 2) * E(17) - E(11) * E( 8) E(7) = E(11) * E( 5) - E( 2) * E(14) C C FIND LENGTH = Y-SUB-C COOR. IN ELEMENT SYSTEM YSUBC = DSQRT(E(1)**2 + E(4)**2 + E(7)**2) IF (YSUBC .LE. 1.0-6) GO TO 7780 C C NORMALIZE K-VECTOR WITH Y-SUB-C C E(1) = E(1)/YSUBC E(4) = E(4) / YSUBC E(7) = E(7) / YSUBC C C NOW HAVING I AND K VECTORS GET -- J = K CROSS I C E(12) = E( 4) * E(17) - E(14) * E( 7) E(15) = E(11) * E( 7) - E( 1) * E(17) E(18) = E( 1) * E(14) - E(11) * E( 4) C C NORMALIZE J-VECTOR FOR COMPUTER EXACTNESS JUST TO MAKE SURE C TEMP = DSQRT(E(12)**2 + E(15)**2 + E(18)**2) E(12) = E(12) / TEMP E(15) = E(15) / TEMP E(18) = E(18) / TEMP E(2) = 0. E(3) = 0. E(5) = 0. E(6) = 0. E(8) = 0. E(9) = 0. E(10) = 0. E(13) = 0. E(16) = 0. C C CONVERT ANGLE FROM DEGREES TO RADIANS STORING IN THETA. C THETA = DBLE(ANGLE) * DEGRA SINTH = DSIN(THETA) COSTH = DCOS(THETA) IF (DABS(SINTH) .LT. 1.D-6) SINTH = 0.D0 C C ****************************************************************** C C SETTING UP G MATRIX 100 INFLAG = 2 MATID = MATID1 CALL MAT( ECPT(1) ) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C ****************************************************************** C C 50 COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT) C DO 120 I=1,9 120 D(I) = G(I) * DBLE(EYE) C C ****************************************************************** C AREA = XSUBB* YSUBC/2.D0 XBAR = (XSUBB + XSUBC)/3.D0 YBAR = YSUBC/3.D0 C XCSQ = XSUBC ** 2 YCSQ = YSUBC ** 2 XBSQ = XSUBB ** 2 XCYC = XSUBC * YSUBC PX2 = (XBSQ + XSUBB*XSUBC + XCSQ)/6.D0 PY2 = YCSQ/6.D0 PXY2 = YSUBC*(XSUBB + 2.D0*XSUBC)/12.D0 XBAR3 = 3.D0 * XBAR YBAR3 = 3.D0 * YBAR YBAR2 = 2.D0 * YBAR C C ****************************************************************** C X C FILL THE (K ) MATRIX STORING IN A(1). . .A(36) C A( 1) = D( 1) A( 2) = D( 3) A( 3) = D( 2) A( 4) = D( 1) * XBAR3 A( 5) = D( 2) * XBAR + YBAR2 * D(3) A( 6) = D( 2) * YBAR3 A( 7) = A( 2) A( 8) = D( 9) A( 9) = D( 6) A(10) = D( 3) * XBAR3 A(11) = D( 6) * XBAR + YBAR2 * D(9) A(12) = D( 6) * YBAR3 A(13) = A( 3) A(14) = A( 9) A(15) = D( 5) A(16) = D( 2) * XBAR3 A(17) = D( 5) * XBAR + YBAR2 * D(6) A(18) = D( 5) * YBAR3 A(19) = A( 4) A(20) = A(10) A(21) = A(16) A(22) = D(1)*9.*PX2 A(23) = D(2)*3.*PX2 + 6.*PXY2*D(3) A(24) = D(2)*9.*PXY2 A(25) = A( 5) A(26) = A(11) A(27) = A(17) A(28) = A(23) A(29) = D(5)*PX2 + 4.*PXY2*D(6) + 4.*PY2*D(9) A(30) = D(5)*3.*PXY2 + 6.*PY2*D(6) A(31) = A( 6) A(32) = A(12) A(33) = A(18) A(34) = A(24) A(35) = A(30) A(36) = D(5)*9.*PY2 TEMP = 4.*AREA DO 140 I=1,36 140 A(I) = A(I)*TEMP C C ****************************************************************** C C F1LL (HBAR) MATRIX STORING AT A(37). . .A(72) C DO 160 I =37,72 160 A(I)=0. C A(37) = XBSQ A(40) = XBSQ * XSUBB A(44) = XSUBB A(49) = -2.*XSUBB A(52) = -3.*XBSQ A(55) = XCSQ A(56) = XCYC A(57) = YCSQ A(58) = XCSQ * XSUBC A(59) = YCSQ * XSUBC A(60) = YCSQ * YSUBC A(62) = XSUBC A(63) = YSUBC*2. A(65) = XCYC*2. A(66) = YCSQ*3. A(67) = -2.*XSUBC A(68) =-YSUBC A(70) = -3.*XCSQ A(71) =-YCSQ C C ****************************************************************** C IF (T2 .EQ. 0.) GO TO 220 C C ALL OF OPERATIONS THRU STMT 220 C ARE NECESSARY IF T2 IS NON-ZERO. C C ****************************************************************** C C C GET THE G2X2 MATRIX C MATID = MATID2 INFLAG = 3 CALL MAT( ECPT(1) ) IF(G2X211.EQ.0.0E0 .AND. G2X212.EQ.0.0E0 .AND. G2X222.EQ.0.0E0) 1 GO TO 220 G2X2(1) = DBLE(G2X211) * DBLE(T2) G2X2(2) = DBLE(G2X212) * DBLE(T2) G2X2(3) = DBLE(G2X212) * DBLE(T2) G2X2(4) = DBLE(G2X222) * DBLE(T2) C DETERM = G2X2(1) * G2X2(4) - G2X2(3) * G2X2(2) J2X2(1) = G2X2(4) / DETERM J2X2(2) =-G2X2(2) / DETERM J2X2(3) =-G2X2(3) / DETERM J2X2(4) = G2X2(1) / DETERM C C ****************************************************************** C C (H ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE C YQ RIGHT PORTION IS COMPUTED AND USED AS A (2X3). THE LEFT C 2X3 PORTION IS NULL. THE RIGHT PORTION WILL BE STORED AT C A(73)...A(78) UNTIL NOT NEEDED ANY FURTHER. C C C TEMP = 2.*D(2) + 4.*D(9) A(73) = -6.* (J2X2(1)*D(1) + J2X2(2)*D(3)) A(74) = -J2X2(1)*TEMP - 6.*J2X2(2)*D(6) A(75) = -6.*(J2X2(1)*D(6) + J2X2(2)*D(5)) A(76) = -6.*(J2X2(2)*D(1) + J2X2(4)*D(3)) A(77) = -J2X2(2)*TEMP - 6.*J2X2(4)*D(6) A(78) = -6.*(J2X2(2)*D(6) + J2X2(4)*D(5)) C C THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H ) MATRIX (2X3) C YQ C C NOW FORMING PRODUCT (G2X2)(H ) AND STORING AS AN INTERMEDIATE C STEP. YQ C C CALL GMMATD (G2X2, 2,2,0, A(73), 2,3,0, A(79)) C C Y C WITH LAST PRODUCT FORM LOWER RIGHT 3 X 3 PARTITION OF (K ) C C Y T C THUS (K ) PARTITION = (H ) (LAST PRODUCT) STORE AT A(85) C YQ C CALL GMMATD (A(73), 2,3,1, A(79), 2,3,0, A(85)) C C X C NOW ADD THE 9 ELEMENTS OF THIS 3X3 PORTION TO (K ) C PER STEP 5 PAGE -16- MS-17 Y C MULTIPLY IN AREA AT SAME TIME WHICH WAS LEFT OUT OF (K ) ABOVE. C DO 180 I=1,3 A(I + 21) = A(I + 21) + A(I + 84) * AREA A(I + 27) = A(I + 27) + A(I + 87) * AREA 180 A(I + 33) = A(I + 33) + A(I + 90)*AREA C C ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H )(H ) C UY YQ C THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW. C NO (H ) MATRIX IS ACTUALLY COMPUTED DIRECTLY. C UY C C THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17. C DO 200 I=1,3 A(I + 39) = A(I + 39) + XSUBB * A(I + 72) 200 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75) C C THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO C C ****************************************************************** C 220 CONTINUE C C AT THIS POINT INVERT (H) WHICH IS STORED AT A(37). . .A(72) C STORE INVERSE BACK IN A(37) . . . A(72) C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERD (6, A(37), 6,A(73), 0, DETERM,ISING,A(79)) C C CHECK TO SEE IF H WAS SINGULAR IF (ISING .EQ. 2) GO TO 7790 C C C ****************************************************************** C Q -1 C FORM (K )(H ) AND STORE AT A(73). . .A(108) C X Q C NOTE THAT (K ) AT THIS POINT IS (K )... C CALL GMMATD (A(1), 6,6,0, A(37), 6,6,0, A(73)) C C -1 T C FORM(K ) = (H ) (LAST PRODUCT) STORE AT A(109). . .A(144) C II C CALL GMMATD (A(37), 6,6,1, A(73), 6,6,0, A(109)) C C ****************************************************************** C C FILL S-MATRIX EQUIVALENCED TO A(82) (S IS 6X3 ) C IF (IOPT .NE. 2) GO TO 260 C C SAVE H-INVERSE TO BE USED BY TRIANGULAR PLATE ROUTINE. C DO 240 I = 37,72 240 A(I+108) = A(I) C 260 S(1) = 1.0 S(2) = 0. S( 3) =-XSUBB S(4) = 0. S(5) = 1. S(6) = 0. S(7) = 0. S(8) = 0. S(9) = 1. S(10)= 1. S(11) = YSUBC S(12) =-XSUBC S(13)= 0. S(14)= 1. S(15)= 0. S(16)= 0. S(17)= 0. S(18)= 1. C C ****************************************************************** C T C FORM K = K = -K S STORING AT A(46) (K IS 6X3) C IA AI II IA C CALL GMMATD (A(109), 6,6,0, S(1), 6,3,0, A(46)) C C THIS PRODUCT IS MULTIPLIED BY SCALER -1 BELOW. C C T C (K ) = (S )(-K ) C AA IA C C NOTE K HAS NOT BEEN MULTIPLIED ABOVE BY -1, THUS IGNORE MINUS C IA HERE. C CALL GMMATD (S(1), 6,3,1, A(46), 6,3,0, A(1)) C C NOW MULTIPLY K BY SCALER (-1) C IA C DO 280 I =46,63 280 A(I) = -A(I) C C AT THIS POINT, STORED BY ROWS ARE C C K (6X6) AT A(109). . .A(144) C II C C K (6,3) AT A(46). . .A(63) C IA C C K (3X3) AT A( 1). . .A( 9) C AA C C ARRANGE NINE 3X3 MATRICES OF K SUPER U DO 300 I = 28,36 300 A(I) = A(I+18) A(10) = A(46) A(11) = A(49) A(12) = A(52) A(13) = A(47) A(14) = A(50) A(15) = A(53) A(16) = A(48) A(17) = A(51) A(18) = A(54) A(19) = A(55) A(20) = A(58) A(21) = A(61) A(22) = A(56) A(23) = A(59) A(24) = A(62) A(25) = A(57) A(26) = A(60) A(27) = A(63) A(37) = A(109) A(38) = A(110) A(39) = A(111) A(40) = A(115) A(41) = A(116) A(42) = A(117) A(43) = A(121) A(44) = A(122) A(45) = A(123) A(46) = A(112) A(47) = A(113) A(48) = A(114) A(49) = A(118) A(50) = A(119) A(51) = A(120) A(52) = A(124) A(53) = A(125) A(54) = A(126) A(64) = A(127) A(65) = A(128) A(66) = A(129) A(67) = A(133) A(68) = A(134) A(69) = A(135) A(70) = A(139) A(71) = A(140) A(72) = A(141) A(73) = A(130) A(74) = A(131) A(75) = A(132) A(76) = A(136) A(77) = A(137) A(78) = A(138) A(79) = A(142) A(80) = A(143) A(81) = A(144) DICT5 = GSUBE IF (NTYPE .NE. 1) GO TO 350 LOOPND = NO(IOPT) DO 320 I=1,LOOPND 320 AOUT(I) = A(I) RETURN 350 CONTINUE C C ****************************************************************** C C DO 600 NPIVOT = 1,3 C C C AT THIS POINT START ASSEMBLY OF 3 6X6 MATRICES FOR I = PIVOT, C AND J =1,2,3 IN THE FOLLOWING EQUATION. C C T U T C (K ) = (T ) (E) (K ) (E ) (T ) C IJ I IJ J C C ****************************************************************** C C FIRST GET THE PRODUCT APPLICABLE TO ALL 3 K . C IJ C T C = (T ) (E) A 6X3 MATRIX. C I C C C CHECK TO SEE IF TI-MATRIX IS NEEDED C IF THE CSID IS ZERO FOR THE PIVOT POINT SKIP TRANSFORMATION. C IF (NECPT(4*NPIVOT+9) .EQ. 0) GO TO 420 C C GET TI AND MULTIPLY WITH E TO FILL TITE (THE COMMON PRODUCT) C CALL TRANSD (NECPT(4*NPIVOT+9),TI) C C TI IS EQUIVALENCED TO A(118) AND IS 3X3. C C FORM TITE (UPPER AND LOWER) OK OK OK.... C CALL GMMATD (TI(1),3,3,1, E(1),3,3,0, TITE(1)) CALL GMMATD (TI(1), 3,3,1, E(10),3,3,0, TITE(10)) C GO TO 460 C C 250 COMING HERE IMPLIES TI NOT USED. C JUST SET TITE = E MATRIX 420 DO 440 I=1,18 440 TITE(I) = E(I) C C ****************************************************************** C T C 280 AT THIS POINT COMMON PRODUCT IS COMPLETE =(T )(E) STORED IN TITE C I C C THE PIVOT I IS NPIVOT 460 NPT1 = 189 C C THE ABOVE SETS A POINTER, NPT1, TO POINT TO 18 FREE DOUBLE PREC. C CORE LOCATIONS IN THE A-ARRAY FOR STORAGE OF THE FOLLOWING C SUB-PRODUCT. C U T C (K )(E )(T ) C IJ J C C ****************************************************************** C C LOOP THRU FOR THE 3 - 6X6 K ARRAYS. C IJ DO 580 J=1,3 C T C TAKE SUB PRODUCT = (E )(T ).. STORE IN TJTE MATRIX C J C C NOTE.. THE TRANSPOSE OF THE ABOVE IS BEING FOUND AND USED, C T C = (T )(E), AND STORED IN TJTE-MATRIX C J EQUIVALENCED TO A(100) C C C CHECK TO SEE IF TRANSFORMATION IS NEEDED. C IF NOT SKIP TO 480 C IF (NECPT(4*J +9) .EQ. 0) GO TO 480 C CALL TRANSD (NECPT(4*J+9),TI) C CALL GMMATD (TI(1), 3,3,1, E(1),3,3,0, TJTE(1)) CALL GMMATD (TI(1),3,3,1, E(10),3,3,0, TJTE(10)) GO TO 500 C C 480 COMING HERE IF TRANSFORMATION NOT USED C C 480 SET TJTE = E 480 DO 490 I =1,18 490 TJTE(I) = E(I) C C ****************************************************************** C T T C 880 ( (E )(T ) ) IS COMPLETE AND STORED BY ROWS IN TJTE-MATRIX. C J C U T C NOW FORM, (K )(E )(T ), STORING AT A(NPT1) C IJ J C C U C TO COMPUTE ABOVE USE 3X3 K C (NPIVOT,J) C COMPUTE POINTER TO THIS 3X3. C 500 NPT2 = 27*NPIVOT+9*J - 35 C CALL GMMATD (A(NPT2), 3,3,0, TJTE, 6,3,1, A(NPT1)) C C ****************************************************************** C C 950 AT THIS POINT, C U T C (K )(E )(T ) IS STORED AT A(NPT1), (3X6). C IJ J C C AND, T C (T )(E) IS STORED AT TITE(1) = A(82) (6X3) C I C ****************************************************************** C C FORMING FINAL PRODUCT, AND STORING AT A(100) THE 6X6. C CALL GMMATD (TITE(1), 6,3,0, A(NPT1), 3,6,0, A(100)) C C ****************************************************************** C C C NOW STORE THE 6X6 MATRIX IN AOUT C IOUT = (NPIVOT-1)*27 + (J-1)*9 + 1 I = 113 DO 570 II=1,3 DO 550 JJ=1,3 IA = I + (II-1)*6 + JJ AOUT(IOUT) = A(IA) 550 IOUT = IOUT+1 570 CONTINUE C 580 CONTINUE C 600 CONTINUE C RETURN C C ERROR RETURNS C 7770 CALL MESAGE (30,31,ECPT(1)) 7777 NOGO = .TRUE. RETURN C 7780 CALL MESAGE (30,32,IELID) GO TO 7777 C 7790 CALL MESAGE (30,33,IELID) GO TO 7777 C ****************************************************************** END ================================================ FILE: mis/etrbks.f ================================================ SUBROUTINE ETRBKS (IOPT) C C THIS SUBROUTINE CALCULATES THE STIFFNESS MATRIX FOR THE BASIC C BENDING TRIANGLE. IT IS USED BY SUBROUTINES TRBSCS, QDPLTS, C TRPLTS, QUAD1S,TRIA1S,TRIA2S C SINGLE PRECISION VERSION C IOPT MAY BE VARIED AS FOLLOWS TO PRODUCE APPROPRIATE RESULTS C ****************************************************************** C C C C IOPT = 0 IMPLIES DO COMPLETE BASIC BENDING TRIANGLE. C IOPT = 1 IMPLIES COMPUTE ONLY THE NINE (3X3)MATRICES C WHICH FORM THE 9X9 K SUPER U - MATRIX. C IOPT = 2 SAME AS IOPT = 1,BUT SAVE H-INVERSE AND S... C C ****************************************************************** C ECPT LIST FOR BASIC BENDING TRIANGLE NAME IN C THIS C ECPT ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID 1 MATID1 INTEGER C ECPT( 7) = I = MOMENT OF INERTIA EYE REAL C ECPT( 8) = MATERIAL ID 2 MATID2 INTEGER C ECPT( 9) = T2 T2 REAL C ECPT(10) = NON-STRUCTURAL-MASS FMU REAL C ECPT(11) = Z1 Z11 REAL C ECPT(12) = Z2 Z22 REAL C ECPT(13) = COORD. SYSTEM ID 1 NECPT(13) INTEGER C ECPT(14) = X1 X1 REAL C ECPT(15) = Y1 Y1 REAL C ECPT(16) = Z1 Z1 REAL C ECPT(17) = COORD. SYSTEM ID 2 NECPT(17) INTEGER C ECPT(18) = X2 X2 REAL C ECPT(19) = Y2 Y2 REAL C ECPT(20) = Z2 Z2 REAL C ECPT(21) = COORD. SYSTEM ID 3 NECPT(21) INTEGER C ECPT(22) = X3 X3 REAL C ECPT(23) = Y3 Y3 REAL C ECPT(24) = Z3 Z3 REAL C ECPT(25) = ELEMENT TEMPERATURE ELTEMP REAL C ****************************************************************** C LOGICAL NOGO INTEGER NECPT(26),NO(2) REAL J2X2,K DIMENSION D(9),G2X2(4),J2X2(4),S(18),ECPT(25),G(9), 1 TJTE(18),TITE(18),TI(9) C COMMON /CONDAS/ CONSTS(5) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0, G SUB E,SIGTEN,SIGCOM,SIGSHE, 2 G2X211,G2X212,G2X222 C COMMON /EMGPRM/ DUM(15),SMB(3),IPREC,NOGO COMMON /EMGEST/ IELID ,NGRID(3) 2 ,ANGLE ,MATID1 3 ,EYE ,MATID2 4 ,T2 ,FMU 5 ,Z11 ,Z22 6 ,DUMMY1 ,X1 7 ,Y1 ,Z1 8 ,DUMMY2 ,X2 9 ,Y2 ,Z2 1 ,DUMMY3 ,X3 2 ,Y3 ,Z3 3 ,DUMB(76) COMMON /EMGTRX/ A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,DICT5, 1 E(18),K(324),AOUT(324) C EQUIVALENCE (CONSTS(4),DEGRA) ,(G2X2(1),A(88)) EQUIVALENCE (IELID,ECPT(1),NECPT(1)), (D(1),G(1),A(79)), 1 (TJTE(1),A(100)) ,(TITE(1),S(1),A(82)), 2 (J2X2(1),A( 92)) ,(TI(1),A(118)) C DATA NO /81,190/ NTYPE = 0 IF( IOPT.GT.0 ) NTYPE = 1 IF (NTYPE .EQ. 1) GOTO 100 ELTEMP = ECPT(25) C SET UP I, J, K VECTORS STORING AS FOLLOWS AND ALSO CALCULATE C X-SUB-B, X-SUB-C, AND Y-SUB-C. C C E(11), E(14), E(17) WILL BE THE I-VECTOR. C E(12), E(15), E(18) WILL BE THE J-VECTOR. C E( 1), E( 4), E( 7) WILL BE THE K-VECTOR. C C FIND I-VECTOR = RSUBB - RUBA (NON-NORMALIZED) E(11) = X2-X1 E(14) = Y2-Y1 E(17) = Z2-Z1 C C FIND LENGTH = X-SUB-B COOR. IN ELEMENT SYSTEM XSUBB = SQRT(E(11)**2 + E(14)**2 + E(17)**2) IF (XSUBB .LE. 1.E-6) GO TO 7770 C E(11) = E(11)/XSUBB E(14) = E(14)/XSUBB E(17) = E(17)/XSUBB C C TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN E(2), E(5), E(8) C E(2) = X3-X1 E(5) = Y3-Y1 E(8) = Z3-Z1 C C X-SUB-C = I . (RSUBC - RSUBA), THUS C XSUBC = E(11) * E(2) + E(14) * E(5) + E(17) * E(8) C C CROSSING I-VECTOR TO (RSUBC - RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(1) = E(14) * E( 8) - E( 5) * E(17) E(4) = E( 2) * E(17) - E(11) * E( 8) E(7) = E(11) * E( 5) - E( 2) * E(14) C C FIND LENGTH = Y-SUB-C COOR. IN ELEMENT SYSTEM YSUBC = SQRT(E(1)**2 + E(4)**2 + E(7)**2) IF (YSUBC .LE. 1.E-6) GO TO 7780 C C NORMALIZE K-VECTOR WITH Y-SUB-C C E(1) = E(1)/YSUBC E(4) = E(4) / YSUBC E(7) = E(7) / YSUBC C C NOW HAVING I AND K VECTORS GET -- J = K CROSS I C E(12) = E( 4) * E(17) - E(14) * E( 7) E(15) = E(11) * E( 7) - E( 1) * E(17) E(18) = E( 1) * E(14) - E(11) * E( 4) C C NORMALIZE J-VECTOR FOR COMPUTER EXACTNESS JUST TO MAKE SURE C TEMP = SQRT(E(12)**2 + E(15)**2 + E(18)**2) E(12) = E(12) / TEMP E(15) = E(15) / TEMP E(18) = E(18) / TEMP E(2) = 0. E(3) = 0. E(5) = 0. E(6) = 0. E(8) = 0. E(9) = 0. E(10) = 0. E(13) = 0. E(16) = 0. C C CONVERT ANGLE FROM DEGREES TO RADIANS STORING IN THETA. C THETA = ANGLE * DEGRA SINTH = SIN( THETA ) COSTH = COS( THETA ) IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 C C ****************************************************************** C C SETTING UP G MATRIX 100 INFLAG = 2 MATID = MATID1 CALL MAT( ECPT(1) ) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C ****************************************************************** C C 50 COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT) C DO 120 I=1,9 120 D(I) = G(I)*EYE C C ****************************************************************** C AREA = XSUBB * YSUBC/2. XBAR = (XSUBB+XSUBC)/3. YBAR = YSUBC/3. C XCSQ = XSUBC ** 2 YCSQ = YSUBC ** 2 XBSQ = XSUBB ** 2 XCYC = XSUBC * YSUBC PX2 =(XBSQ+XSUBB*XSUBC + XCSQ)/6. PY2 = YCSQ/6. PXY2 = YSUBC*(XSUBB + 2.*XSUBC)/12. XBAR3 = 3.* XBAR YBAR3 = 3.* YBAR YBAR2 = 2.* YBAR C C ****************************************************************** C X C FILL THE (K ) MATRIX STORING IN A(1). . .A(36) C A( 1) = D( 1) A( 2) = D( 3) A( 3) = D( 2) A( 4) = D( 1) * XBAR3 A( 5) = D( 2) * XBAR + YBAR2 * D(3) A( 6) = D( 2) * YBAR3 A( 7) = A( 2) A( 8) = D( 9) A( 9) = D( 6) A(10) = D( 3) * XBAR3 A(11) = D( 6) * XBAR + YBAR2 * D(9) A(12) = D( 6) * YBAR3 A(13) = A( 3) A(14) = A( 9) A(15) = D( 5) A(16) = D( 2) * XBAR3 A(17) = D( 5) * XBAR + YBAR2 * D(6) A(18) = D( 5) * YBAR3 A(19) = A( 4) A(20) = A(10) A(21) = A(16) A(22) = D(1)*9.*PX2 A(23) = D(2)*3.*PX2 + 6.*PXY2*D(3) A(24) = D(2)*9.*PXY2 A(25) = A( 5) A(26) = A(11) A(27) = A(17) A(28) = A(23) A(29) = D(5)*PX2 + 4.*PXY2*D(6) + 4.*PY2*D(9) A(30) = D(5)*3.*PXY2 + 6.*PY2*D(6) A(31) = A( 6) A(32) = A(12) A(33) = A(18) A(34) = A(24) A(35) = A(30) A(36) = D(5)*9.*PY2 TEMP = 4.*AREA DO 140 I=1,36 140 A(I) = A(I)*TEMP C C ****************************************************************** C C F1LL (HBAR) MATRIX STORING AT A(37). . .A(72) C DO 160 I =37,72 160 A(I)=0. C A(37) = XBSQ A(40) = XBSQ * XSUBB A(44) = XSUBB A(49) = -2.*XSUBB A(52) = -3.*XBSQ A(55) = XCSQ A(56) = XCYC A(57) = YCSQ A(58) = XCSQ * XSUBC A(59) = YCSQ * XSUBC A(60) = YCSQ * YSUBC A(62) = XSUBC A(63) = YSUBC*2. A(65) = XCYC*2. A(66) = YCSQ*3. A(67) = -2.*XSUBC A(68) =-YSUBC A(70) = -3.*XCSQ A(71) =-YCSQ C C ****************************************************************** C IF (T2 .EQ. 0.) GO TO 220 C C ALL OF OPERATIONS THRU STMT 220 C ARE NECESSARY IF T2 IS NON-ZERO. C C ****************************************************************** C C C GET THE G2X2 MATRIX C MATID = MATID2 INFLAG = 3 CALL MAT( ECPT(1) ) IF(G2X211.EQ.0.0E0 .AND. G2X212.EQ.0.0E0 .AND. G2X222.EQ.0.0E0) 1 GO TO 220 G2X2(1) = G2X211 * T2 G2X2(2) = G2X212 * T2 G2X2(3) = G2X212 * T2 G2X2(4) = G2X222 * T2 C DETERM = G2X2(1) * G2X2(4) - G2X2(3) * G2X2(2) J2X2(1) = G2X2(4) / DETERM J2X2(2) =-G2X2(2) / DETERM J2X2(3) =-G2X2(3) / DETERM J2X2(4) = G2X2(1) / DETERM C C ****************************************************************** C C (H ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE C YQ RIGHT PORTION IS COMPUTED AND USED AS A (2X3). THE LEFT C 2X3 PORTION IS NULL. THE RIGHT PORTION WILL BE STORED AT C A(73)...A(78) UNTIL NOT NEEDED ANY FURTHER. C C C TEMP = 2.*D(2) + 4.*D(9) A(73) = -6.* (J2X2(1)*D(1) + J2X2(2)*D(3)) A(74) = -J2X2(1)*TEMP - 6.*J2X2(2)*D(6) A(75) = -6.*(J2X2(1)*D(6) + J2X2(2)*D(5)) A(76) = -6.*(J2X2(2)*D(1) + J2X2(4)*D(3)) A(77) = -J2X2(2)*TEMP - 6.*J2X2(4)*D(6) A(78) = -6.*(J2X2(2)*D(6) + J2X2(4)*D(5)) C C THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H ) MATRIX (2X3) C YQ C C NOW FORMING PRODUCT (G2X2)(H ) AND STORING AS AN INTERMEDIATE C STEP. YQ C C CALL GMMATS(G2X2(1),2,2,0, A(73),2,3,0, A(79)) C C Y C WITH LAST PRODUCT FORM LOWER RIGHT 3 X 3 PARTITION OF (K ) C C Y T C THUS (K ) PARTITION = (H ) (LAST PRODUCT) STORE AT A(85) C YQ C CALL GMMATS(A(73),2,3,1, A(79),2,3,0, A(85)) C C X C NOW ADD THE 9 ELEMENTS OF THIS 3X3 PORTION TO (K ) C PER STEP 5 PAGE -16- MS-17 Y C MULTIPLY IN AREA AT SAME TIME WHICH WAS LEFT OUT OF (K ) ABOVE. C DO 180 I=1,3 A(I + 21) = A(I + 21) + A(I + 84) * AREA A(I + 27) = A(I + 27) + A(I + 87) * AREA 180 A(I + 33) = A(I + 33) + A(I + 90)*AREA C C ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H )(H ) C UY YQ C THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW. C NO (H ) MATRIX IS ACTUALLY COMPUTED DIRECTLY. C UY C C THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17. C DO 200 I=1,3 A(I + 39) = A(I + 39) + XSUBB * A(I + 72) 200 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75) C C THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO C C ****************************************************************** C 220 CONTINUE C C AT THIS POINT INVERT (H) WHICH IS STORED AT A(37). . .A(72) C STORE INVERSE BACK IN A(37) . . . A(72) C NO NEED TO COMPUTE THE INVERSE SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERS(6,A(37),6,A(73),0,DETERM,ISING,A(79)) C C CHECK TO SEE IF H WAS SINGULAR IF (ISING .EQ. 2) GO TO 7790 C C C ****************************************************************** C Q -1 C FORM (K )(H ) AND STORE AT A(73). . .A(108) C X Q C NOTE THAT (K ) AT THIS POINT IS (K )... C CALL GMMATS(A(1),6,6,0, A(37),6,6,0, A(73)) C C -1 T C FORM(K ) = (H ) (LAST PRODUCT) STORE AT A(109). . .A(144) C II C CALL GMMATS(A(37),6,6,1, A(73),6,6,0, A(109)) C C ****************************************************************** C C FILL S-MATRIX EQUIVALENCED TO A(82) (S IS 6X3 ) C IF (IOPT .NE. 2) GO TO 260 C C SAVE H-INVERSE TO BE USED BY TRIANGULAR PLATE ROUTINE. C DO 240 I = 37,72 240 A(I+108) = A(I) C 260 S(1) = 1.0 S(2) = 0. S( 3) =-XSUBB S(4) = 0. S(5) = 1. S(6) = 0. S(7) = 0. S(8) = 0. S(9) = 1. S(10)= 1. S(11) = YSUBC S(12) =-XSUBC S(13)= 0. S(14)= 1. S(15)= 0. S(16)= 0. S(17)= 0. S(18)= 1. C C ****************************************************************** C T C FORM K = K = -K S STORING AT A(46) (K IS 6X3) C IA AI II IA C CALL GMMATS(A(109),6,6,0, S(1),6,3,0, A(46)) C C THIS PRODUCT IS MULTIPLIED BY SCALER -1 BELOW. C C T C (K ) = (S )(-K ) C AA IA C C NOTE K HAS NOT BEEN MULTIPLIED ABOVE BY -1, THUS IGNORE MINUS C IA HERE. C CALL GMMATS(S(1),6,3,1, A(46),6,3,0, A(1)) C C NOW MULTIPLY K BY SCALER (-1) C IA C DO 280 I =46,63 280 A(I) = -A(I) C C AT THIS POINT, STORED BY ROWS ARE C C K (6X6) AT A(109). . .A(144) C II C C K (6,3) AT A(46). . .A(63) C IA C C K (3X3) AT A( 1). . .A( 9) C AA C C ARRANGE NINE 3X3 MATRICES OF K SUPER U DO 300 I = 28,36 300 A(I) = A(I+18) A(10) = A(46) A(11) = A(49) A(12) = A(52) A(13) = A(47) A(14) = A(50) A(15) = A(53) A(16) = A(48) A(17) = A(51) A(18) = A(54) A(19) = A(55) A(20) = A(58) A(21) = A(61) A(22) = A(56) A(23) = A(59) A(24) = A(62) A(25) = A(57) A(26) = A(60) A(27) = A(63) A(37) = A(109) A(38) = A(110) A(39) = A(111) A(40) = A(115) A(41) = A(116) A(42) = A(117) A(43) = A(121) A(44) = A(122) A(45) = A(123) A(46) = A(112) A(47) = A(113) A(48) = A(114) A(49) = A(118) A(50) = A(119) A(51) = A(120) A(52) = A(124) A(53) = A(125) A(54) = A(126) A(64) = A(127) A(65) = A(128) A(66) = A(129) A(67) = A(133) A(68) = A(134) A(69) = A(135) A(70) = A(139) A(71) = A(140) A(72) = A(141) A(73) = A(130) A(74) = A(131) A(75) = A(132) A(76) = A(136) A(77) = A(137) A(78) = A(138) A(79) = A(142) A(80) = A(143) A(81) = A(144) DICT5 = GSUBE IF (NTYPE .NE. 1) GO TO 350 LOOPND = NO(IOPT) DO 320 I=1,LOOPND 320 AOUT(I) = A(I) RETURN 350 CONTINUE C C ****************************************************************** C C DO 600 NPIVOT = 1,3 C C C AT THIS POINT START ASSEMBLY OF 3 6X6 MATRICES FOR I = PIVOT, C AND J =1,2,3 IN THE FOLLOWING EQUATION. C C T U T C (K ) = (T ) (E) (K ) (E ) (T ) C IJ I IJ J C C ****************************************************************** C C FIRST GET THE PRODUCT APPLICABLE TO ALL 3 K . C IJ C T C = (T ) (E) A 6X3 MATRIX. C I C C C CHECK TO SEE IF TI-MATRIX IS NEEDED C IF THE CSID IS ZERO FOR THE PIVOT POINT SKIP TRANSFORMATION. C IF (NECPT(4*NPIVOT+9) .EQ. 0) GO TO 420 C C GET TI AND MULTIPLY WITH E TO FILL TITE (THE COMMON PRODUCT) C CALL TRANSS(NECPT(4*NPIVOT+9),TI) C C TI IS EQUIVALENCED TO A(118) AND IS 3X3. C C FORM TITE (UPPER AND LOWER) OK OK OK.... C CALL GMMATS(TI(1),3,3,1, E(1),3,3,0, TITE(1)) CALL GMMATS(TI(1),3,3,1, E(10),3,3,0, TITE(10)) C GO TO 460 C C 250 COMING HERE IMPLIES TI NOT USED. C JUST SET TITE = E MATRIX 420 DO 440 I=1,18 440 TITE(I) = E(I) C C ****************************************************************** C T C 280 AT THIS POINT COMMON PRODUCT IS COMPLETE =(T )(E) STORED IN TITE C I C C THE PIVOT I IS NPIVOT 460 NPT1 = 189 C C THE ABOVE SETS A POINTER, NPT1, TO POINT TO 18 FREE DOUBLE PREC. C CORE LOCATIONS IN THE A-ARRAY FOR STORAGE OF THE FOLLOWING C SUB-PRODUCT. C U T C (K )(E )(T ) C IJ J C C ****************************************************************** C C LOOP THRU FOR THE 3 - 6X6 K ARRAYS. C IJ DO 580 J=1,3 C T C TAKE SUB PRODUCT = (E )(T ).. STORE IN TJTE MATRIX C J C C NOTE.. THE TRANSPOSE OF THE ABOVE IS BEING FOUND AND USED, C T C = (T )(E), AND STORED IN TJTE-MATRIX C J EQUIVALENCED TO A(100) C C C CHECK TO SEE IF TRANSFORMATION IS NEEDED. C IF NOT SKIP TO 480 C IF (NECPT(4*J +9) .EQ. 0) GO TO 480 C CALL TRANSS (NECPT (4*J+9),TI) C CALL GMMATS (TI(1),3,3,1, E(1),3,3,0, TJTE(1)) CALL GMMATS (TI(1),3,3,1, E(10),3,3,0, TJTE(10)) GO TO 500 C C 480 COMING HERE IF TRANSFORMATION NOT USED C C 480 SET TJTE = E 480 DO 490 I =1,18 490 TJTE(I) = E(I) C C ****************************************************************** C T T C 880 ( (E )(T ) ) IS COMPLETE AND STORED BY ROWS IN TJTE-MATRIX. C J C U T C NOW FORM, (K )(E )(T ), STORING AT A(NPT1) C IJ J C C U C TO COMPUTE ABOVE USE 3X3 K C (NPIVOT,J) C COMPUTE POINTER TO THIS 3X3. C 500 NPT2 = 27*NPIVOT+9*J - 35 C CALL GMMATS (A(NPT2),3,3,0, TJTE,6,3,1, A(NPT1)) C C ****************************************************************** C C 950 AT THIS POINT, C U T C (K )(E )(T ) IS STORED AT A(NPT1), (3X6). C IJ J C C AND, T C (T )(E) IS STORED AT TITE(1) = A(82) (6X3) C I C ****************************************************************** C C FORMING FINAL PRODUCT, AND STORING AT A(100) THE 6X6. C CALL GMMATS (TITE(1),6,3,0, A(NPT1),3,6,0, A(100)) C C ****************************************************************** C C C NOW STORE THE 6X6 MATRIX IN AOUT C IOUT = (NPIVOT-1)*27 + (J-1)*9 + 1 I = 113 DO 570 II=1,3 DO 550 JJ=1,3 IA = I + (II-1)*6 + JJ AOUT(IOUT) = A(IA) 550 IOUT = IOUT+1 570 CONTINUE C 580 CONTINUE C 600 CONTINUE C RETURN C C ERROR RETURNS C 7770 CALL MESAGE (30,31,ECPT(1)) 7777 NOGO = .TRUE. RETURN C 7780 CALL MESAGE (30,32,IELID) GO TO 7777 C 7790 CALL MESAGE (30,33,IELID) GO TO 7777 C ****************************************************************** END ================================================ FILE: mis/etrbmd.f ================================================ SUBROUTINE ETRBMD C C BASIC BENDING TRIANGLE ELEMENT ROUTINE C DOUBLE PRECISION VERSION C C THIS SUBROUTINE CALCULATES THE COUPLED MASS MATRIX FOR THE BASIC C BENDING TRIANGLE. C C ECPT LIST FOR BASIC BENDING TRIANGLE NAME IN C THIS C ECPT ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID 1 MATID1 INTEGER C ECPT( 7) = I = MOMENT OF INERTIA EYE REAL C ECPT( 8) = MATERIAL ID 2 MATID2 INTEGER C ECPT( 9) = T2 T2 REAL C ECPT(10) = NON-STRUCTURAL-MASS FMU REAL C ECPT(11) = Z1 Z11 REAL C ECPT(12) = Z2 Z22 REAL C ECPT(13) = COORD. SYSTEM ID 1 NECPT(13) INTEGER C ECPT(14) = X1 X1 REAL C ECPT(15) = Y1 Y1 REAL C ECPT(16) = Z1 Z1 REAL C ECPT(17) = COORD. SYSTEM ID 2 NECPT(17) INTEGER C ECPT(18) = X2 X2 REAL C ECPT(19) = Y2 Y2 REAL C ECPT(20) = Z2 Z2 REAL C ECPT(21) = COORD. SYSTEM ID 3 NECPT(21) INTEGER C ECPT(22) = X3 X3 REAL C ECPT(23) = Y3 Y3 REAL C ECPT(24) = Z3 Z3 REAL C ECPT(25) = ELEMENT TEMPERATURE ELTEMP REAL C LOGICAL NOGO INTEGER NECPT(26) REAL ECPT(26) DOUBLE PRECISION D(9),G(9),G2X2(4),J2X2(4),S(18),HYQ(6),SIIJ(7,7), 1 MBARAA(9),MAR(18),MRR(36),A,PROD9,TEMP9,XSUBB, 2 XSUBC,YSUBC,BFACT,E,AOUT,DETERM,TEMP,XCSQ,YCSQ, 3 XBSQ,XCYC,YPRODJ,FJ,FJ2,AIJ,BIJ,XPRODI,FI,FIJ, 4 SIZERO COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE, 2 G2X211,G2X212,G2X222,SPACE(2) COMMON /EMGEST/ IELID,NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU, 1 Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3, 2 X3,Y3,Z3,DUMB(76) COMMON /EMGTRX/ A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC, 1 BFACT,E(18),AOUT(324) EQUIVALENCE (IELID,ECPT(1),NECPT(1)),(J2X2(1),A(14)), 1 (D(1),G(1),A(1),SIIJ(1,1)),(G2X2(1),A(10)), 2 (HYQ(1),A(50)),(MBARAA(1),A(136)), 3 (MAR(1),A(145)),(MRR(1),A(163)),(S(1),A(82)) C C SETTING UP G MATRIX C BEFORE THIS SUBROUTINE CAN FUNCTION SEVERAL TERMS MUST BE DEFINED C SEE ETRBKD. C C POSSIBLE ERROR SOURCE FIX. MAY REQUIRE LOADER CHANGE. C IF (ISMB(1) .EQ. 0) CALL ETRBKD (1) C INFLAG = 2 MATID = MATID1 CALL MAT (ECPT(1)) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C DO 350 I = 1,9 350 D(I) = G(I)*DBLE(EYE) C C F1LL (HBAR) MATRIX STORING AT A(100). . .A(135) C XCSQ = XSUBC**2 YCSQ = YSUBC**2 XBSQ = XSUBB**2 XCYC = XSUBC*YSUBC C DO 380 I = 100,135 380 A(I) = 0. C A(100) = XBSQ A(103) = XBSQ*XSUBB A(107) = XSUBB A(112) =-2.*XSUBB A(115) =-3.*XBSQ A(118) = XCSQ A(119) = XCYC A(120) = YCSQ A(121) = XCSQ*XSUBC A(122) = YCSQ*XSUBC A(123) = YCSQ*YSUBC A(125) = XSUBC A(126) = YSUBC*2.0D0 A(128) = XCYC *2.0D0 A(129) = YCSQ *3.0D0 A(130) =-2.0D0*XSUBC A(131) =-YSUBC A(133) =-3.0D0*XCSQ A(134) =-YCSQ C IF (T2 .EQ. 0.) GO TO 410 C C ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 110 C ARE NECESSARY IF T2 IS NON-ZERO. C C GET THE G2X2 MATRIX C MATID = MATID2 INFLAG = 3 CALL MAT (ECPT(1)) IF (G2X211.EQ.0.0 .AND. G2X212.EQ.0.0 .AND. G2X222.EQ.0.0) 1 GO TO 410 C G2X2(1) = DBLE(G2X211)*DBLE(T2) G2X2(2) = DBLE(G2X212)*DBLE(T2) G2X2(4) = DBLE(G2X222)*DBLE(T2) C DETERM = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2) J2X2(1) = G2X2(4)/DETERM J2X2(2) =-G2X2(2)/DETERM J2X2(3) = J2X2(2) J2X2(4) = G2X2(1)/DETERM C C (H ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE C YQ RIGHT PORTION IS COMPUTED AND USED AS A (2X3). THE LEFT C 2X3 PORTION IS NULL. THE RIGHT PORTION WILL BE STORED AT C A(50)...A(55) UNTIL NOT NEEDED ANY FURTHER. C TEMP = 2.*D(2) + 4.*D(9) HYQ(1) = -6.*(J2X2(1)*D(1) + J2X2(2)*D(3)) HYQ(2) = -J2X2(1)*TEMP - 6.*J2X2(2)*D(6) HYQ(3) = -6.*(J2X2(1)*D(6) + J2X2(2)*D(5)) HYQ(4) = -6.*(J2X2(2)*D(1) + J2X2(4)*D(3)) HYQ(5) = -J2X2(2)*TEMP - 6.*J2X2(4)*D(6) HYQ(6) = -6.*(J2X2(2)*D(6) + J2X2(4)*D(5)) C C ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H )(H ) C UY YQ C THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW. C NO (H ) MATRIX IS ACTUALLY COMPUTED DIRECTLY. C UY C C THE FOLLOWING IS THEN STEP 6 PAGE 8, FMMS-66 C DO 400 I = 1,3 A(I+102) = A(I+102) + XSUBB*HYQ(I) 400 A(I+120) = A(I+120) + XSUBC*HYQ(I) + YSUBC*HYQ(I+3) C C THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO C 410 CONTINUE C C AT THIS POINT INVERT (H) WHICH IS STORED AT A(100). . .A(135) C STORE INVERSE BACK IN A(100). . A(135) C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (6,A(100),6, A(136),0,DETERM,ISING,A(142)) C C CHECK TO SEE IF H WAS SINGULAR C IF (ISING .EQ. 2) GO TO 600 C C ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION. C C CHUNK OUT INTEGRAL VALUES I USED IN REFERENCED M MATRICES C IJ SEE P.9, FMMS-66 C C THE CALCULATION FOR (I ) ARE AS FOLLOWS C IJ C *** C A1 = XSUBB * YSUBC**(J+1) / ((J+1)*(J+2)) * C 0J * C * C B = XSUBC * YSUBC**(J+1) / (J+2) * C 0J ** J=0,6 C * C A = A1 + B * C 0J 0J 0J * C * C I = MU * A1 * C 0J 0J *** C C *** C A1 = I * XSUBB * A /(I+J+2) * C IJ I-1,J * C * C B = XSUBC**(I+1) * YSUBC**(J+1) /((I+1)*(I+J+2)) * I=1,6 C IJ ** J=0,6 C * C A = A1 + B * C IJ IJ IJ * C * C I MU * A1 * C IJ= IJ * C *** C NOTE.. LOOPS FOR PROGRAM BEGIN AT 1 INSTEAD OF 0 C I.E. I = 1,7 C J = 1,7 C DO 440 J = 1,7 YPRODJ = YSUBC**J FJ = J FJ2 = J + 1 AIJ = XSUBB*YPRODJ/(FJ*FJ2) BIJ = XSUBC*YPRODJ/FJ2 SIIJ(1,J) = FMU*AIJ AIJ = AIJ + BIJ IF (J .EQ. 7) GO TO 440 K = 8 - J DO 430 I = 2,K XPRODI = XSUBC**I FI = I FIJ = I + J AIJ = (FI-1.)*XSUBB*AIJ/FIJ BIJ = XPRODI*YPRODJ/(FI*FIJ) SIIJ(I,J) = FMU*AIJ 430 AIJ = AIJ + BIJ C 440 CONTINUE SIZERO = SIIJ(1,1)/3. C C CHUNK IN NUMBERS FOR (M-BAR-AA) 3X3 MATRIX AS PER MS-48, PP. 6-10 C C (M ) 3X6 MATRIX C AR C C (M ) 6X6 MATRIX C RR C C (M-BAR-AA) MATRIX C MBARAA(1) = SIIJ(1,1) MBARAA(2) = SIIJ(1,2) MBARAA(3) = -SIIJ(2,1) MBARAA(4) = SIIJ(1,2) MBARAA(5) = SIIJ(1,3) MBARAA(6) = -SIIJ(2,2) MBARAA(7) = -SIIJ(2,1) MBARAA(8) = -SIIJ(2,2) MBARAA(9) = SIIJ(3,1) C C (M ) MATRIX C AR C MAR( 1) = SIIJ(3,1) MAR( 2) = SIIJ(2,2) MAR( 3) = SIIJ(1,3) MAR( 4) = SIIJ(4,1) MAR( 5) = SIIJ(2,3) MAR( 6) = SIIJ(1,4) MAR( 7) = SIIJ(3,2) MAR( 8) = SIIJ(2,3) MAR( 9) = SIIJ(1,4) MAR(10) = SIIJ(4,2) MAR(11) = SIIJ(2,4) MAR(12) = SIIJ(1,5) MAR(13) =-SIIJ(4,1) MAR(14) =-SIIJ(3,2) MAR(15) =-SIIJ(2,3) MAR(16) =-SIIJ(5,1) MAR(17) =-SIIJ(3,3) MAR(18) =-SIIJ(2,4) C C (M ) MATRIX A 6X6 SYMMETRIC MATRIX C RR C MRR( 1) = SIIJ(5,1) MRR( 2) = SIIJ(4,2) MRR( 3) = SIIJ(3,3) MRR( 4) = SIIJ(6,1) MRR( 5) = SIIJ(4,3) MRR( 6) = SIIJ(3,4) MRR( 7) = MRR(2) MRR( 8) = SIIJ(3,3) MRR( 9) = SIIJ(2,4) MRR(10) = SIIJ(5,2) MRR(11) = SIIJ(3,4) MRR(12) = SIIJ(2,5) MRR(13) = MRR(3) MRR(14) = MRR(9) MRR(15) = SIIJ(1,5) MRR(16) = SIIJ(4,3) MRR(17) = SIIJ(2,5) MRR(18) = SIIJ(1,6) MRR(19) = MRR( 4) MRR(20) = MRR(10) MRR(21) = MRR(16) MRR(22) = SIIJ(7,1) MRR(23) = SIIJ(5,3) MRR(24) = SIIJ(4,4) MRR(25) = MRR( 5) MRR(26) = MRR(11) MRR(27) = MRR(17) MRR(28) = MRR(23) MRR(29) = SIIJ(3,5) MRR(30) = SIIJ(2,6) MRR(31) = MRR( 6) MRR(32) = MRR(12) MRR(33) = MRR(18) MRR(34) = MRR(24) MRR(35) = MRR(30) MRR(36) = SIIJ(1,7) C IF (T2 .EQ. 0.) GO TO 445 C MAR( 4) = MAR( 4) + HYQ(1)*SIIJ(2,1) + HYQ(4)*SIIJ(1,2) MAR( 5) = MAR( 5) + HYQ(2)*SIIJ(2,1) + HYQ(5)*SIIJ(1,2) MAR( 6) = MAR( 6) + HYQ(3)*SIIJ(2,1) + HYQ(6)*SIIJ(1,2) MAR(10) = MAR(10) + HYQ(1)*SIIJ(2,2) + HYQ(4)*SIIJ(1,3) MAR(11) = MAR(11) + HYQ(2)*SIIJ(2,2) + HYQ(5)*SIIJ(1,3) MAR(12) = MAR(12) + HYQ(3)*SIIJ(2,2) + HYQ(6)*SIIJ(1,3) MAR(16) = MAR(16) - HYQ(1)*SIIJ(3,1) - HYQ(4)*SIIJ(2,2) MAR(17) = MAR(17) - HYQ(2)*SIIJ(3,1) - HYQ(5)*SIIJ(2,2) MAR(18) = MAR(18) - HYQ(3)*SIIJ(3,1) - HYQ(6)*SIIJ(2,2) MRR( 4) = MRR( 4) + HYQ(1)*SIIJ(4,1) + HYQ(4)*SIIJ(3,2) MRR( 5) = MRR( 5) + HYQ(2)*SIIJ(4,1) + HYQ(5)*SIIJ(3,2) MRR( 6) = MRR( 6) + HYQ(3)*SIIJ(4,1) + HYQ(6)*SIIJ(3,2) MRR(10) = MRR(10) + HYQ(1)*SIIJ(3,2) + HYQ(4)*SIIJ(2,3) MRR(11) = MRR(11) + HYQ(2)*SIIJ(3,2) + HYQ(5)*SIIJ(2,3) MRR(12) = MRR(12) + HYQ(3)*SIIJ(3,2) + HYQ(6)*SIIJ(2,3) MRR(16) = MRR(16) + HYQ(1)*SIIJ(2,3) + HYQ(4)*SIIJ(1,4) MRR(17) = MRR(17) + HYQ(2)*SIIJ(2,3) + HYQ(5)*SIIJ(1,4) MRR(18) = MRR(18) + HYQ(3)*SIIJ(2,3) + HYQ(6)*SIIJ(1,4) MRR(19) = MRR( 4) MRR(20) = MRR(10) MRR(21) = MRR(16) MRR(22) = MRR(22) + HYQ(1)*(HYQ(1)*SIIJ(3,1) + 2.0D0*(SIIJ(5,1) + 1 HYQ(4)*SIIJ(2,2))) + HYQ(4)*(2.0D0*SIIJ(4,2) + 2 HYQ(4)*SIIJ(1,3)) MRR(23) = MRR(23) + HYQ(2)*SIIJ(5,1) + HYQ(5)*SIIJ(4,2) + 1 HYQ(1)*(SIIJ(3,3) + HYQ(2)*SIIJ(3,1) + HYQ(5)*SIIJ(2,2)) 2 + HYQ(4)*(SIIJ(2,4) + HYQ(2)*SIIJ(2,2) + HYQ(5)*SIIJ(1,3)) MRR(24) = MRR(24) + HYQ(3)*SIIJ(5,1) + HYQ(6)*SIIJ(4,2) + 1 HYQ(1)*(SIIJ(2,4) + HYQ(3)*SIIJ(3,1) + HYQ(6)*SIIJ(2,2)) 2 + HYQ(4)*(SIIJ(1,5) + HYQ(3)*SIIJ(2,2) + HYQ(6)*SIIJ(1,3)) MRR(25) = MRR( 5) MRR(26) = MRR(11) MRR(27) = MRR(17) MRR(28) = MRR(23) MRR(29) = MRR(29) + HYQ(2)*(HYQ(2)*SIIJ(3,1) + 2.0D0*(SIIJ(3,3) + 1 HYQ(5)*SIIJ(2,2))) + HYQ(5)*(2.0D0*SIIJ(2,4) + 2 HYQ(5)*SIIJ(1,3)) MRR(30) = MRR(30) + HYQ(3)*SIIJ(3,3) + HYQ(6)*SIIJ(2,4) + 1 HYQ(2)*(SIIJ(2,4) + HYQ(3)*SIIJ(3,1) + HYQ(6)*SIIJ(2,2)) 2 + HYQ(5)*(SIIJ(1,5) + HYQ(3)*SIIJ(2,2) + HYQ(6)*SIIJ(1,3)) MRR(31) = MRR( 6) MRR(32) = MRR(12) MRR(33) = MRR(18) MRR(34) = MRR(24) MRR(35) = MRR(30) MRR(36) = MRR(36) + HYQ(3)*(HYQ(3)*SIIJ(3,1) + 2.0D0*(SIIJ(2,4) + 1 HYQ(6)*SIIJ(2,2))) + HYQ(6)*(2.0D0*SIIJ(1,5) + 2 HYQ(6)*SIIJ(1,3)) C C FILL S-MATRIX EQUIVALENCED TO A(82) (S IS 6X3 ) C 445 S( 1) = 1. S( 2) = 0. S( 3) =-XSUBB S( 4) = 0. S( 5) = 1. S( 6) = 0. S( 7) = 0. S( 8) = 0. S( 9) = 1. S(10) = 1. S(11) = YSUBC S(12) =-XSUBC S(13) = 0. S(14) = 1. S(15) = 0. S(16) = 0. S(17) = 0. S(18) = 1. C C CAN NOW COMPUTE 9 (3X3) MASS MATRICES (FMMS-66, PAGES 10-11) C C -1 T -1 C ( M ) = ( H ) ( M ) ( H ) C RR C C PARTITION (M) C /// /// C / * / C / MBB * MBC / C / * / C ( M ) = / ********* / C / * / C / MCB * MCC / C / * / C /// /// C 4 (3X3) MATRICES C -1 C ( M ) = ( M ) ( H ) C AI AR C C PARTITION (M ) /// /// C AI / * / C ( M ) = / M-BAR-AB * M-BAR-AC / C AI / * / C /// /// C 2 (3X3) MATRICES C T T C ( MAB ) = (M-BAR-AB) - (S ) (MBB) - (S ) (MCB) C B C C C T T C ( MAC ) = (M-BAR-AC) - (S ) (MBC) - (S ) (MCC) C B C C C T T T T C ( MAA ) = (M-BAR-AA) - (S ) (M ) - (S ) (MAC ) C B AB C C C - (M-BAR-AB) (S ) - (M-BAR-AC) (S ) C B C C C T C ( MBA ) = (MAB ) C C T C ( MCA ) = (MAC ) C C CHOOSE APPROPRIATE BLOCK OF A-ARRAY FOR STORAGE C C (3X3) STORED IN (3X3) STORED IN (3X3) STORED IN C (MAA) A( 1... 9) (MAB) A(10)...8) (MAC) A(19...27) C (MBA) A(28...36) (MBB) A(37)...45) (MBC) A(46...54) C (MCA) A(55...63) (MCB) A(64...72) (MCC) A(73...81) C C -1 C (H ) IS STORED AT A(100...135) C (S) EQUIVALENCED A( 81... 99) C WORKING STORAGE IS A(181...216) C (M-BAR-AB) STORED UNTIL NO LONGER NEEDED IN A(163...171) C (M-BAR-AC) STORED UNTIL NO LONGER NEEDED IN A(172...180) C C -1 T -1 C COMPUTE (M) = (H ) ((M ) (H )) C RR C CALL GMMATD (MRR(1), 6,6,0, A(100), 6,6,0, A(37)) CALL GMMATD (A(100), 6,6,1, A(37), 6,6,0, A(1)) C C CREATE PARTITION OF 4 (3X3) C DO 470 I = 1,3 A(I+36) = A(I ) A(I+39) = A(I+ 6) A(I+42) = A(I+12) C A(I+45) = A(I+ 3) A(I+48) = A(I+ 9) A(I+51) = A(I+15) C A(I+63) = A(I+18) A(I+66) = A(I+24) A(I+69) = A(I+30) C A(I+72) = A(I+21) A(I+75) = A(I+27) 470 A(I+78) = A(I+33) C C COMPUTE -1 C (M ) = (M ) (H ) AND PARTITION INTO 2 (3X3) (M-BAR-AB) C AI AR AND (M-BAR-AC) C CALL GMMATD (MAR(1), 3,6,0, A(100), 6,6,0, A(181)) DO 480 I = 1,3 A(I+162) = A(I+180) A(I+165) = A(I+186) A(I+168) = A(I+192) C A(I+171) = A(I+183) A(I+174) = A(I+189) 480 A(I+177) = A(I+195) C C COMPUTE (MAB) C CALL GMMATD (S(1), 3,3,1, A(37), 3,3,0, A(181)) CALL GMMATD (S(10), 3,3,1, A(64), 3,3,0, A(190)) DO 490 I = 1,9 490 A(I+9) = A(I+162) - A(I+180) - A(I+189) C C COMPUTE (MAC) C CALL GMMATD (S(1) , 3,3,1, A(46), 3,3,0, A(181)) CALL GMMATD (S(10), 3,3,1, A(73), 3,3,0, A(190)) DO 500 I = 1,9 500 A(I+18) = A(I+171) - A(I+180) - A(I+189) C C COMPUTE (MAA) C CALL GMMATD (S(1) , 3,3,1, A(10), 3,3,1, A(181)) CALL GMMATD (S(10), 3,3,1, A(19), 3,3,1, A(190)) CALL GMMATD (A(163),3,3,0, S(1) , 3,3,0, A(199)) CALL GMMATD (A(172),3,3,0, S(10), 3,3,0, A(208)) DO 510 I = 1,9 510 A(I) = MBARAA(I) - A(I+180) - A(I+189) - A(I+198) - A(I+207) C C COMPUTE (MBA) AND (MCA) C DO 520 I = 1,3 NPT = 3*I + 7 A(I+27) = A(NPT ) A(I+30) = A(NPT+1) A(I+33) = A(NPT+2) C A(I+54) = A(NPT+ 9) A(I+57) = A(NPT+10) 520 A(I+60) = A(NPT+11) C DO 550 I = 1,136 550 AOUT(I) = A(I) RETURN C C ERROR EXITS C 600 CALL MESAGE (30,33,ECPT(1)) NOGO = .TRUE. RETURN END ================================================ FILE: mis/etrbms.f ================================================ SUBROUTINE ETRBMS C C BASIC BENDING TRIANGLE ELEMENT ROUTINE C SINGLE PRECISION VERSION C C THIS SUBROUTINE CALCULATES THE COUPLED MASS MATRIX FOR THE BASIC C BENDING TRIANGLE. C C ECPT LIST FOR BASIC BENDING TRIANGLE NAME IN C THIS C ECPT ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID 1 MATID1 INTEGER C ECPT( 7) = I = MOMENT OF INERTIA EYE REAL C ECPT( 8) = MATERIAL ID 2 MATID2 INTEGER C ECPT( 9) = T2 T2 REAL C ECPT(10) = NON-STRUCTURAL-MASS FMU REAL C ECPT(11) = Z1 Z11 REAL C ECPT(12) = Z2 Z22 REAL C ECPT(13) = COORD. SYSTEM ID 1 NECPT(13) INTEGER C ECPT(14) = X1 X1 REAL C ECPT(15) = Y1 Y1 REAL C ECPT(16) = Z1 Z1 REAL C ECPT(17) = COORD. SYSTEM ID 2 NECPT(17) INTEGER C ECPT(18) = X2 X2 REAL C ECPT(19) = Y2 Y2 REAL C ECPT(20) = Z2 Z2 REAL C ECPT(21) = COORD. SYSTEM ID 3 NECPT(21) INTEGER C ECPT(22) = X3 X3 REAL C ECPT(23) = Y3 Y3 REAL C ECPT(24) = Z3 Z3 REAL C ECPT(25) = ELEMENT TEMPERATURE ELTEMP REAL C LOGICAL NOGO INTEGER NECPT(26) REAL ECPT(1),MBARAA,MAR,MRR,J2X2 DIMENSION D(9),G(9),G2X2(4),J2X2(4),S(18),HYQ(6),SIIJ(7,7), 1 MBARAA(9),MAR(18),MRR(36) COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE, 2 G2X211,G2X212,G2X222,SPACE(2) COMMON /EMGEST/ IELID,NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU, 1 Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3, 2 X3,Y3,Z3,DUMB(76) COMMON /EMGTRX/ A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC, 1 BFACT,E(18),AOUT(324) EQUIVALENCE (IELID,ECPT(1),NECPT(1)),(J2X2(1),A(14)), 1 (D(1),G(1),A(1),SIIJ(1,1)),(G2X2(1),A(10)), 2 (HYQ(1),A(50)),(MBARAA(1),A(136)), 3 (MAR(1),A(145)),(MRR(1),A(163)),(S(1),A(82)) C C SETTING UP G MATRIX C BEFORE THIS SUBROUTINE CAN FUNCTION SEVERAL TERMS MUST BE DEFINED C SEE ETRBKD. C C POSSIBLE ERROR SOURCE FIX. MAY REQUIRE LOADER CHANGE. C IF (ISMB(1) .EQ. 0) CALL ETRBKD (1) C INFLAG = 2 MATID = MATID1 CALL MAT (ECPT(1)) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C DO 350 I = 1,9 350 D(I) = G(I)*DBLE(EYE) C C F1LL (HBAR) MATRIX STORING AT A(100). . .A(135) C XCSQ = XSUBC**2 YCSQ = YSUBC**2 XBSQ = XSUBB**2 XCYC = XSUBC*YSUBC C DO 380 I = 100,135 380 A(I) = 0. C A(100) = XBSQ A(103) = XBSQ*XSUBB A(107) = XSUBB A(112) =-2.*XSUBB A(115) =-3.*XBSQ A(118) = XCSQ A(119) = XCYC A(120) = YCSQ A(121) = XCSQ*XSUBC A(122) = YCSQ*XSUBC A(123) = YCSQ*YSUBC A(125) = XSUBC A(126) = YSUBC*2.0 A(128) = XCYC *2.0 A(129) = YCSQ *3.0 A(130) =-2.0*XSUBC A(131) =-YSUBC A(133) =-3.0*XCSQ A(134) =-YCSQ C IF (T2 .EQ. 0.) GO TO 410 C C ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 110 C ARE NECESSARY IF T2 IS NON-ZERO. C C GET THE G2X2 MATRIX C MATID = MATID2 INFLAG = 3 CALL MAT (ECPT(1)) IF (G2X211.EQ.0.0 .AND. G2X212.EQ.0.0 .AND. G2X222.EQ.0.0) 1 GO TO 410 C G2X2(1) = DBLE(G2X211)*DBLE(T2) G2X2(2) = DBLE(G2X212)*DBLE(T2) G2X2(4) = DBLE(G2X222)*DBLE(T2) C DETERM = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2) J2X2(1) = G2X2(4)/DETERM J2X2(2) =-G2X2(2)/DETERM J2X2(3) = J2X2(2) J2X2(4) = G2X2(1)/DETERM C C (H ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE C YQ RIGHT PORTION IS COMPUTED AND USED AS A (2X3). THE LEFT C 2X3 PORTION IS NULL. THE RIGHT PORTION WILL BE STORED AT C A(50)...A(55) UNTIL NOT NEEDED ANY FURTHER. C TEMP = 2.*D(2) + 4.*D(9) HYQ(1) = -6.*(J2X2(1)*D(1) + J2X2(2)*D(3)) HYQ(2) = -J2X2(1)*TEMP - 6.*J2X2(2)*D(6) HYQ(3) = -6.*(J2X2(1)*D(6) + J2X2(2)*D(5)) HYQ(4) = -6.*(J2X2(2)*D(1) + J2X2(4)*D(3)) HYQ(5) = -J2X2(2)*TEMP - 6.*J2X2(4)*D(6) HYQ(6) = -6.*(J2X2(2)*D(6) + J2X2(4)*D(5)) C C ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H )(H ) C UY YQ C THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW. C NO (H ) MATRIX IS ACTUALLY COMPUTED DIRECTLY. C UY C C THE FOLLOWING IS THEN STEP 6 PAGE 8, FMMS-66 C DO 400 I = 1,3 A(I+102) = A(I+102) + XSUBB*HYQ(I) 400 A(I+120) = A(I+120) + XSUBC*HYQ(I) + YSUBC*HYQ(I+3) C C THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO C 410 CONTINUE C C AT THIS POINT INVERT (H) WHICH IS STORED AT A(100). . .A(135) C STORE INVERSE BACK IN A(100). . A(135) C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (6,A(100),6, A(136),0,DETERM,ISING,A(142)) C C CHECK TO SEE IF H WAS SINGULAR C IF (ISING .EQ. 2) GO TO 600 C C ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION. C C CHUNK OUT INTEGRAL VALUES I USED IN REFERENCED M MATRICES C IJ SEE P.9, FMMS-66 C C THE CALCULATION FOR (I ) ARE AS FOLLOWS C IJ C *** C A1 = XSUBB * YSUBC**(J+1) / ((J+1)*(J+2)) * C 0J * C * C B = XSUBC * YSUBC**(J+1) / (J+2) * C 0J ** J=0,6 C * C A = A1 + B * C 0J 0J 0J * C * C I = MU * A1 * C 0J 0J *** C C *** C A1 = I * XSUBB * A /(I+J+2) * C IJ I-1,J * C * C B = XSUBC**(I+1) * YSUBC**(J+1) /((I+1)*(I+J+2)) * I=1,6 C IJ ** J=0,6 C * C A = A1 + B * C IJ IJ IJ * C * C I MU * A1 * C IJ= IJ * C *** C NOTE.. LOOPS FOR PROGRAM BEGIN AT 1 INSTEAD OF 0 C I.E. I = 1,7 C J = 1,7 C DO 440 J = 1,7 YPRODJ = YSUBC**J FJ = J FJ2 = J + 1 AIJ = XSUBB*YPRODJ/(FJ*FJ2) BIJ = XSUBC*YPRODJ/FJ2 SIIJ(1,J) = FMU*AIJ AIJ = AIJ + BIJ IF (J .EQ. 7) GO TO 440 K = 8 - J DO 430 I = 2,K XPRODI = XSUBC**I FI = I FIJ = I + J AIJ = (FI-1.)*XSUBB*AIJ/FIJ BIJ = XPRODI*YPRODJ/(FI*FIJ) SIIJ(I,J) = FMU*AIJ 430 AIJ = AIJ + BIJ C 440 CONTINUE SIZERO = SIIJ(1,1)/3. C C CHUNK IN NUMBERS FOR (M-BAR-AA) 3X3 MATRIX AS PER MS-48, PP. 6-10 C C (M ) 3X6 MATRIX C AR C C (M ) 6X6 MATRIX C RR C C (M-BAR-AA) MATRIX C MBARAA(1) = SIIJ(1,1) MBARAA(2) = SIIJ(1,2) MBARAA(3) = -SIIJ(2,1) MBARAA(4) = SIIJ(1,2) MBARAA(5) = SIIJ(1,3) MBARAA(6) = -SIIJ(2,2) MBARAA(7) = -SIIJ(2,1) MBARAA(8) = -SIIJ(2,2) MBARAA(9) = SIIJ(3,1) C C (M ) MATRIX C AR C MAR( 1) = SIIJ(3,1) MAR( 2) = SIIJ(2,2) MAR( 3) = SIIJ(1,3) MAR( 4) = SIIJ(4,1) MAR( 5) = SIIJ(2,3) MAR( 6) = SIIJ(1,4) MAR( 7) = SIIJ(3,2) MAR( 8) = SIIJ(2,3) MAR( 9) = SIIJ(1,4) MAR(10) = SIIJ(4,2) MAR(11) = SIIJ(2,4) MAR(12) = SIIJ(1,5) MAR(13) =-SIIJ(4,1) MAR(14) =-SIIJ(3,2) MAR(15) =-SIIJ(2,3) MAR(16) =-SIIJ(5,1) MAR(17) =-SIIJ(3,3) MAR(18) =-SIIJ(2,4) C C (M ) MATRIX A 6X6 SYMMETRIC MATRIX C RR C MRR( 1) = SIIJ(5,1) MRR( 2) = SIIJ(4,2) MRR( 3) = SIIJ(3,3) MRR( 4) = SIIJ(6,1) MRR( 5) = SIIJ(4,3) MRR( 6) = SIIJ(3,4) MRR( 7) = MRR(2) MRR( 8) = SIIJ(3,3) MRR( 9) = SIIJ(2,4) MRR(10) = SIIJ(5,2) MRR(11) = SIIJ(3,4) MRR(12) = SIIJ(2,5) MRR(13) = MRR(3) MRR(14) = MRR(9) MRR(15) = SIIJ(1,5) MRR(16) = SIIJ(4,3) MRR(17) = SIIJ(2,5) MRR(18) = SIIJ(1,6) MRR(19) = MRR( 4) MRR(20) = MRR(10) MRR(21) = MRR(16) MRR(22) = SIIJ(7,1) MRR(23) = SIIJ(5,3) MRR(24) = SIIJ(4,4) MRR(25) = MRR( 5) MRR(26) = MRR(11) MRR(27) = MRR(17) MRR(28) = MRR(23) MRR(29) = SIIJ(3,5) MRR(30) = SIIJ(2,6) MRR(31) = MRR( 6) MRR(32) = MRR(12) MRR(33) = MRR(18) MRR(34) = MRR(24) MRR(35) = MRR(30) MRR(36) = SIIJ(1,7) C IF (T2 .EQ. 0.) GO TO 445 C MAR( 4) = MAR( 4) + HYQ(1)*SIIJ(2,1) + HYQ(4)*SIIJ(1,2) MAR( 5) = MAR( 5) + HYQ(2)*SIIJ(2,1) + HYQ(5)*SIIJ(1,2) MAR( 6) = MAR( 6) + HYQ(3)*SIIJ(2,1) + HYQ(6)*SIIJ(1,2) MAR(10) = MAR(10) + HYQ(1)*SIIJ(2,2) + HYQ(4)*SIIJ(1,3) MAR(11) = MAR(11) + HYQ(2)*SIIJ(2,2) + HYQ(5)*SIIJ(1,3) MAR(12) = MAR(12) + HYQ(3)*SIIJ(2,2) + HYQ(6)*SIIJ(1,3) MAR(16) = MAR(16) - HYQ(1)*SIIJ(3,1) - HYQ(4)*SIIJ(2,2) MAR(17) = MAR(17) - HYQ(2)*SIIJ(3,1) - HYQ(5)*SIIJ(2,2) MAR(18) = MAR(18) - HYQ(3)*SIIJ(3,1) - HYQ(6)*SIIJ(2,2) MRR( 4) = MRR( 4) + HYQ(1)*SIIJ(4,1) + HYQ(4)*SIIJ(3,2) MRR( 5) = MRR( 5) + HYQ(2)*SIIJ(4,1) + HYQ(5)*SIIJ(3,2) MRR( 6) = MRR( 6) + HYQ(3)*SIIJ(4,1) + HYQ(6)*SIIJ(3,2) MRR(10) = MRR(10) + HYQ(1)*SIIJ(3,2) + HYQ(4)*SIIJ(2,3) MRR(11) = MRR(11) + HYQ(2)*SIIJ(3,2) + HYQ(5)*SIIJ(2,3) MRR(12) = MRR(12) + HYQ(3)*SIIJ(3,2) + HYQ(6)*SIIJ(2,3) MRR(16) = MRR(16) + HYQ(1)*SIIJ(2,3) + HYQ(4)*SIIJ(1,4) MRR(17) = MRR(17) + HYQ(2)*SIIJ(2,3) + HYQ(5)*SIIJ(1,4) MRR(18) = MRR(18) + HYQ(3)*SIIJ(2,3) + HYQ(6)*SIIJ(1,4) MRR(19) = MRR( 4) MRR(20) = MRR(10) MRR(21) = MRR(16) MRR(22) = MRR(22) + HYQ(1)*(HYQ(1)*SIIJ(3,1) + 2.0*(SIIJ(5,1) + 1 HYQ(4)*SIIJ(2,2))) + HYQ(4)*(2.0*SIIJ(4,2) + 2 HYQ(4)*SIIJ(1,3)) MRR(23) = MRR(23) + HYQ(2)*SIIJ(5,1) + HYQ(5)*SIIJ(4,2) + 1 HYQ(1)*(SIIJ(3,3) + HYQ(2)*SIIJ(3,1) + HYQ(5)*SIIJ(2,2)) 2 + HYQ(4)*(SIIJ(2,4) + HYQ(2)*SIIJ(2,2) + HYQ(5)*SIIJ(1,3)) MRR(24) = MRR(24) + HYQ(3)*SIIJ(5,1) + HYQ(6)*SIIJ(4,2) + 1 HYQ(1)*(SIIJ(2,4) + HYQ(3)*SIIJ(3,1) + HYQ(6)*SIIJ(2,2)) 2 + HYQ(4)*(SIIJ(1,5) + HYQ(3)*SIIJ(2,2) + HYQ(6)*SIIJ(1,3)) MRR(25) = MRR( 5) MRR(26) = MRR(11) MRR(27) = MRR(17) MRR(28) = MRR(23) MRR(29) = MRR(29) + HYQ(2)*(HYQ(2)*SIIJ(3,1) + 2.0*(SIIJ(3,3) + 1 HYQ(5)*SIIJ(2,2))) + HYQ(5)*(2.0*SIIJ(2,4) + 2 HYQ(5)*SIIJ(1,3)) MRR(30) = MRR(30) + HYQ(3)*SIIJ(3,3) + HYQ(6)*SIIJ(2,4) + 1 HYQ(2)*(SIIJ(2,4) + HYQ(3)*SIIJ(3,1) + HYQ(6)*SIIJ(2,2)) 2 + HYQ(5)*(SIIJ(1,5) + HYQ(3)*SIIJ(2,2) + HYQ(6)*SIIJ(1,3)) MRR(31) = MRR( 6) MRR(32) = MRR(12) MRR(33) = MRR(18) MRR(34) = MRR(24) MRR(35) = MRR(30) MRR(36) = MRR(36) + HYQ(3)*(HYQ(3)*SIIJ(3,1) + 2.0*(SIIJ(2,4) + 1 HYQ(6)*SIIJ(2,2))) + HYQ(6)*(2.0*SIIJ(1,5) + 2 HYQ(6)*SIIJ(1,3)) C C FILL S-MATRIX EQUIVALENCED TO A(82) (S IS 6X3 ) C 445 S( 1) = 1. S( 2) = 0. S( 3) =-XSUBB S( 4) = 0. S( 5) = 1. S( 6) = 0. S( 7) = 0. S( 8) = 0. S( 9) = 1. S(10) = 1. S(11) = YSUBC S(12) =-XSUBC S(13) = 0. S(14) = 1. S(15) = 0. S(16) = 0. S(17) = 0. S(18) = 1. C C CAN NOW COMPUTE 9 (3X3) MASS MATRICES (FMMS-66, PAGES 10-11) C C -1 T -1 C ( M ) = ( H ) ( M ) ( H ) C RR C C PARTITION (M) C /// /// C / * / C / MBB * MBC / C / * / C ( M ) = / ********* / C / * / C / MCB * MCC / C / * / C /// /// C 4 (3X3) MATRICES C -1 C ( M ) = ( M ) ( H ) C AI AR C C PARTITION (M ) /// /// C AI / * / C ( M ) = / M-BAR-AB * M-BAR-AC / C AI / * / C /// /// C 2 (3X3) MATRICES C T T C ( MAB ) = (M-BAR-AB) - (S ) (MBB) - (S ) (MCB) C B C C C T T C ( MAC ) = (M-BAR-AC) - (S ) (MBC) - (S ) (MCC) C B C C C T T T T C ( MAA ) = (M-BAR-AA) - (S ) (M ) - (S ) (MAC ) C B AB C C C - (M-BAR-AB) (S ) - (M-BAR-AC) (S ) C B C C C T C ( MBA ) = (MAB ) C C T C ( MCA ) = (MAC ) C C CHOOSE APPROPRIATE BLOCK OF A-ARRAY FOR STORAGE C C (3X3) STORED IN (3X3) STORED IN (3X3) STORED IN C (MAA) A( 1... 9) (MAB) A(10)...8) (MAC) A(19...27) C (MBA) A(28...36) (MBB) A(37)...45) (MBC) A(46...54) C (MCA) A(55...63) (MCB) A(64...72) (MCC) A(73...81) C C -1 C (H ) IS STORED AT A(100...135) C (S) EQUIVALENCED A( 81... 99) C WORKING STORAGE IS A(181...216) C (M-BAR-AB) STORED UNTIL NO LONGER NEEDED IN A(163...171) C (M-BAR-AC) STORED UNTIL NO LONGER NEEDED IN A(172...180) C C -1 T -1 C COMPUTE (M) = (H ) ((M ) (H )) C RR C CALL GMMATS (MRR(1), 6,6,0, A(100), 6,6,0, A(37)) CALL GMMATS (A(100), 6,6,1, A(37), 6,6,0, A(1)) C C CREATE PARTITION OF 4 (3X3) C DO 470 I = 1,3 A(I+36) = A(I ) A(I+39) = A(I+ 6) A(I+42) = A(I+12) C A(I+45) = A(I+ 3) A(I+48) = A(I+ 9) A(I+51) = A(I+15) C A(I+63) = A(I+18) A(I+66) = A(I+24) A(I+69) = A(I+30) C A(I+72) = A(I+21) A(I+75) = A(I+27) 470 A(I+78) = A(I+33) C C COMPUTE -1 C (M ) = (M ) (H ) AND PARTITION INTO 2 (3X3) (M-BAR-AB) C AI AR AND (M-BAR-AC) C CALL GMMATS (MAR(1), 3,6,0, A(100), 6,6,0, A(181)) DO 480 I = 1,3 A(I+162) = A(I+180) A(I+165) = A(I+186) A(I+168) = A(I+192) C A(I+171) = A(I+183) A(I+174) = A(I+189) 480 A(I+177) = A(I+195) C C COMPUTE (MAB) C CALL GMMATS (S(1), 3,3,1, A(37), 3,3,0, A(181)) CALL GMMATS (S(10), 3,3,1, A(64), 3,3,0, A(190)) DO 490 I = 1,9 490 A(I+9) = A(I+162) - A(I+180) - A(I+189) C C COMPUTE (MAC) C CALL GMMATS (S(1) , 3,3,1, A(46), 3,3,0, A(181)) CALL GMMATS (S(10), 3,3,1, A(73), 3,3,0, A(190)) DO 500 I = 1,9 500 A(I+18) = A(I+171) - A(I+180) - A(I+189) C C COMPUTE (MAA) C CALL GMMATS (S(1) , 3,3,1, A(10), 3,3,1, A(181)) CALL GMMATS (S(10), 3,3,1, A(19), 3,3,1, A(190)) CALL GMMATS (A(163),3,3,0, S(1) , 3,3,0, A(199)) CALL GMMATS (A(172),3,3,0, S(10), 3,3,0, A(208)) DO 510 I = 1,9 510 A(I) = MBARAA(I) - A(I+180) - A(I+189) - A(I+198) - A(I+207) C C COMPUTE (MBA) AND (MCA) C DO 520 I = 1,3 NPT = 3*I + 7 A(I+27) = A(NPT ) A(I+30) = A(NPT+1) A(I+33) = A(NPT+2) C A(I+54) = A(NPT+ 9) A(I+57) = A(NPT+10) 520 A(I+60) = A(NPT+11) C DO 550 I = 1,136 550 AOUT(I) = A(I) RETURN C C ERROR EXITS C 600 CALL MESAGE (30,33,ECPT(1)) NOGO = .TRUE. RETURN END ================================================ FILE: mis/exi2.f ================================================ SUBROUTINE EXI2 C C EXI2 PERFORMS EXTERNAL FORMAT SOFIN OPERATIONS C EXTERNAL LSHIFT LOGICAL USRMSG INTEGER DRY ,UNAME ,UNIT ,SYSBUF ,A , 1 Z ,SOF ,PRC ,Q4 ,T3 , 2 SRD ,SWRT ,EOI ,SP ,BAR , 3 SCR1 ,SUBR(2) ,BUF1 ,BUF2 ,BUF3 , 4 BUF4 ,HDR(7) ,RC ,MCB(7) ,PREC , 5 DIT ,NAME(2) ,EOG ,PLTS ,OFFSET REAL ZERO(6) DOUBLE PRECISION DZ(1) ,DA CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /MACHIN/ MACH COMMON /BLANK / DRY ,X1(3) ,UNAME(2) ,X2(18) , 1 UNIT ,UNIVAC ,LBUF ,IADD COMMON /SYSTEM/ SYSBUF ,NOUT ,X3(6) ,NLPP , 1 X4(2) ,LINE COMMON /ZBLPKX/ A(4) ,IROW COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW COMMON /TYPE / PRC(2) ,NWORD(4) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),DZ(1)) ,(A(1),DA) DATA SOF ,SRD ,SWRT ,EOI ,SP / 1 4HSOF ,1 ,2 ,3 ,1 / DATA LEOF ,JH ,SCR1 ,SUBR / 3 4H$EOF ,1 ,301 ,4HEXI2 ,4H / DATA DIT ,MDI ,EOG ,ZERO / 5 4HDIT ,4HMDI ,2 ,6*0.0 / DATA Q4 ,T3 ,BAR ,PLTS / 7 2HQ4 ,2HT3 ,2HBR ,4HPLTS / C C INITIALIZE C NCORE = KORSZ(Z) I = NCORE - LBUF IF (MACH .EQ. 12) I = I - LBUF NCORE = I - 1 IRW = IADD IADD = I CALL EXFORT (3,UNIT,0,0,IRW,0,0) BUF1 = NCORE - SYSBUF + 1 BUF2 = BUF1 - SYSBUF - 1 BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF NCORE = BUF4 - 1 NOS = 0 IDM = 1 USRMSG=.TRUE. LCORE = NCORE IF (NCORE .LE. 0) GO TO 9008 CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3)) CALL PAGE C C READ THE HEADER OF THE NEXT ITEM AND FETCH THE ITEM ON THE SOF C 10 CALL EXFORT (SRD,UNIT,JH,HDR,7,SP,0) 20 NAME(1) = HDR(1) NAME(2) = HDR(2) ITEM = HDR(3) ITEST = HDR(7) IF (ITEST .EQ. EOI) ITEST = EOG IF (HDR(1).EQ.DIT .OR. HDR(1).EQ. MDI) GO TO 200 IF (HDR(3).EQ. -1 .OR. HDR(1).EQ.LEOF) GO TO 300 ITM = ITTYPE(HDR(3)) IF (ITM .EQ. 1) GO TO 100 RC = 3 CALL SFETCH (HDR(1),HDR(3),SWRT,RC) IF (RC .EQ. 3) GO TO 60 LINE = LINE + 2 IF (LINE .GT. NLPP) CALL PAGE GO TO (30,30,60,40,50), RC 30 WRITE (NOUT,6346) UWM,HDR(1),HDR(2),HDR(3) USRMSG = .FALSE. GO TO 60 40 CALL EXLVL (NOS,Z(IDM),HDR,Z,LCORE) RC = 3 CALL SFETCH (HDR(1),HDR(3),SWRT,RC) IF (RC .EQ. 3) GO TO 60 50 CALL SMSG (RC-2,HDR(3),HDR) USRMSG = .FALSE. 60 CONTINUE C C TABLES C C C ELSETS TABLE CORRECTION BY G.CHAN/UNISYS 4/91 C C IN 91 VERSION, ELEMENT PLOT SYMBOL LINE HAS 2 WORDS, SYMBOL AND C NO. OF GRID POINT PER ELEMENT, NGPEL, WRITTEN OUT BY EXO2 USING C FORMAT 25. THE ELSETS DATA LINE COMING UP NEXT USE FORMAT 10 FOR C ELEMENTS WITH NO OFFSETS, FORMAT 26 FOR BAR WHICH HAS 6 OFFSET C VALUES, AND FORMATS 27 AND 28 FOR TRIA3 AND QUAD4 WHICH HAS 1 C OFFSET VALUE EACH. C IN 90 AND EARLIER VERSIONS, ONLY ONE ELEMENT PLOT SYMBOL WORD WAS C WRITTEN OUT, AND ON ELSETS DATA LINE COMING UP NEXT, FORMAT 10 C WAS USED FOR ALL ELEMENTS. NO OFFSET DATA FOR THE BAR, QUAD4 AND C TRIA3 ELEMENTS. NGPEL WAS THE FIRST WORD ON THE ELSETS DATA LINE. C ALSO, THE 90 AND EARLIER VERSIONS DID NOT COUNT PROPERTY ID, PID, C ON THE ELSETS DATA LINE. THUS THE TOTAL NO. OF WORDS MAY BE IN C ERROR AND MAY CAUSE EXTRA ZEROS AT THE END OF THE DATA LINE. C C THEREFORE, IF THE 90 OR EARLIER EXTERNAL SOF FILE WAS USED, WE C NEED TO ADD THE OFFSETS (1 OR 6 FLOATING POINTS ZEROS) TO THE BAR, C QUAD4 AND TRIA3 ELEMENTS FOR THE ELSETS TABLE. C (AS OF 4/91, THESE CHANGES HAVE NOT BEEN TESTED) C OFFSET = 0 70 NWDS = HDR(5) IF (NWDS .GT. LCORE) GO TO 9008 CALL EXFORT (SRD,UNIT,HDR(4),Z,NWDS,SP,0) IF (OFFSET .EQ. 0) GO TO 80 J = 1 CALL SUWRT (Z(1),1,J) NP2 = Z(1) + 2 DO 73 K = 2,NWDS,NP2 IF (Z(K) .EQ. 0) GO TO 75 CALL SUWRT (Z(K),NP2,J) CALL SUWRT (ZERO,OFFSET,J) 73 CONTINUE 75 Z(1) = 0 NWDS = 1 80 CALL SUWRT (Z,NWDS,ITEST) IF (HDR(7) .EQ. EOI) GO TO 90 CALL EXFORT (SRD,UNIT,JH,HDR,7,SP,0) IF (HDR(1).NE.NAME(1) .OR. HDR(2).NE.NAME(2)) GO TO 160 IF (HDR(3) .NE. ITEM) GO TO 160 ITEST = HDR(7) IF (ITEST .EQ. EOI) ITEST = EOG IF (ITEM.NE.PLTS .OR. HDR(5).NE.1 .OR. HDR(4).NE.10) GO TO 85 OFFSET = 0 IF (Z(1) .EQ. BAR) OFFSET = 6 IF (Z(1).EQ.Q4 .OR. Z(1).EQ.T3) OFFSET = 1 85 IF (HDR(4) .GT. 0) GO TO 70 90 ITEST = EOI CALL SUWRT (0,0,ITEST) GO TO 140 C C MATRICES C C C READ TRAILER C 100 CALL SOFTRL (HDR(1),HDR(3),MCB(1)) RC = MCB(1) IF (RC .EQ. 3) GO TO 108 LINE = LINE + 2 IF (LINE .GT. NLPP) CALL PAGE GO TO (102,102,108,104,106), RC 102 WRITE (NOUT,6346) UWM,HDR(1),HDR(2),HDR(3) USRMSG = .FALSE. GO TO 108 104 CALL EXLVL (NOS,Z(IDM),HDR,Z,LCORE) GO TO 108 106 CALL SMSG (3,HDR(3),HDR) USRMSG = .FALSE. 108 CALL EXFORT (SRD,UNIT,HDR(4),MCB(2),6,SP,0) NCOL = MCB(2) PREC = MCB(5) MCB(1) = SCR1 MCB(2) = 0 MCB(6) = 0 MCB(7) = 0 IF (USRMSG) CALL GOPEN (SCR1,Z(BUF4),WRTREW) C C READ MATRIX ONE COLUMN AT A TIME AND PACK ON SCR2 C DO 130 J = 1,NCOL CALL EXFORT (SRD,UNIT,JH,HDR,7,SP,0) IF (HDR(1).NE.NAME(1) .OR. HDR(2).NE.NAME(2)) GO TO 160 IF (HDR(3) .NE. ITEM) GO TO 160 NWDS = HDR(5) IF (NWDS*1.4 .GT. NCORE) GO TO 9008 CALL EXFORT (SRD,UNIT,HDR(4),Z,NWDS,PREC,DZ) IF (.NOT. USRMSG) GO TO 130 CALL BLDPK (PREC,PREC,SCR1,0,0) IPRC = PRC(PREC) N = NWORD(PREC) + IPRC K = 1 110 IF (Z(K) .LT. 0) GO TO 120 IROW = Z(K) A(1) = Z(K+IPRC) IF (PREC .EQ. 1) GO TO 115 A(2) = Z(K+IPRC+1) IF (PREC .LE. 3) GO TO 115 A(3) = Z(K+4) A(4) = Z(K+5) 115 CALL ZBLPKI K = K + N GO TO 110 120 CALL BLDPKN (SCR1,0,MCB) 130 CONTINUE IF (.NOT.USRMSG) GO TO 150 CALL WRTTRL (MCB) CALL CLOSE (SCR1,REW) CALL MTRXO (SCR1,HDR,HDR(3),0,RC) C C WRITE USER MESSAGE C 140 IF (.NOT.USRMSG) GO TO 150 LINE = LINE + 1 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,6357) UIM,HDR(1),HDR(2),HDR(3),UNAME,SOF 150 USRMSG = .TRUE. GO TO 10 C C NO EOI FOR ITEM AND A NEW ITEM WAS READ C 160 LINE = LINE + 2 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,6363) UWM,NAME(1),NAME(2),ITEM,UNAME IF (ITM .EQ. 0) CALL DELETE (NAME,ITEM,RC) IF (ITM .EQ. 1) CALL CLOSE (SCR1,REW) USRMSG = .TRUE. GO TO 20 C C READ DIT AND MDI C 200 NOS = HDR(5)/2 LCORE = NCORE - HDR(5)*4 IDM = LCORE + 1 IF (6*NOS .GT. LCORE) GO TO 9008 CALL EXFORT (SRD,UNIT,HDR(4),Z,HDR(5),SP,0) DO 210 I = 1,NOS Z(IDM+4*I-4) = Z(2*I-1) Z(IDM+4*I-3) = Z(2*I ) 210 CONTINUE CALL EXFORT (SRD,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SRD,UNIT,HDR(4),Z,HDR(5),SP,0) DO 220 I = 1,NOS J = IDM + 4*I - 2 K = 6*I - 6 Z(J ) = LSHIFT(Z(K+1),20) + LSHIFT(Z(K+2),10) + Z(K+3) Z(J+1) = LSHIFT(Z(K+4),20) + LSHIFT(Z(K+5),10) + Z(K+6) 220 CONTINUE GO TO 10 C C NORMAL MODULE COMPLETION C 300 CALL SOFCLS RETURN C C ABNORMAL MODULE COMPLETION C 9008 CALL MESAGE (8,0,SUBR) DRY = -2 CALL SOFCLS RETURN C C MESSAGE TEXTS C 6346 FORMAT (A25,' 6346, SUBSTRUCTURE ',2A4,' ITEM ',A4, 1 ' NOT COPIED. IT ALREADY EXISTS ON THE SOF.') 6357 FORMAT (A29,' 6357, SUBSTRUCTURE ',2A4,' ITEM ',A4, 1 ' SUCCESSFULLY COPIED FROM ',2A4,' TO ',A4) 6363 FORMAT (A25,' 6363, INCOMPLETE DATA FOR SUBSTRUCTURE ',2A4, 1 ' ITEM ',A4,' ON ',2A4,'. THE ITEM WILL NOT BE COPIED.') END ================================================ FILE: mis/exio.f ================================================ SUBROUTINE EXIO C C THE MAIN PURPOSE OF THIS MODULE IS TO COPY DATA BETWEEN THE C RESIDENT SOF AND AN EXTERNAL TAPE OR DISK FILE. AS AN EXTRA C ADDED ATTRACTION, IT WILL ALSO APPEND AN EXTERNAL SOF (CREATED BY C SOME OTHER NASTRAN RUNS) TO THE RESIDENT SOF AND COMPRESS THE C RESIDENT SOF. C C OPTIONS ARE - C C (1) DUMP (RESTORE) THE ENTIRE SOF TO (FROM) AN EXTERNAL FILE. C INTERNAL FORM ONLY. THIS IS THE MOST EFFICIENT MEANS TO SAVE C OR RECOVER A BACKUP COPY OF THE SOF, EXCEPT FOR SYSTEM UTILITY C PROGRAMS. C C (2) COPY SELECTED ITEMS BETWEEN THE SOF AND AN EXTERNAL FILE. C C (3) CHECK THE EXTERNAL FILE AND PRINT OUT A LIST OF ALL SUBSTRUC- C TURES AND ITEMS ON IT ALONG WITH THE DATE AND TIME EACH WAS C CREATED. C C (4) APPEND AN EXTERNAL SOF TO THE RESIDENT SOF. C C (5) COMPRESS THE RESIDENT SOF. (PLACE ALL ITEMS IN CONTIGUOUS C BLOCKS ON THE SOF AND ELIMINATE ALL EMBEDDED FREE BLOCKS) C C FEBRUARY 1974 C INTEGER FORMAT,EXTE,BLANK,HEAD1,HEAD2,DRY,DEVICE,UNAME, 1 POS,BCDS(2,10),INBCDS(2,5) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / DRY,XMACH,DEVICE(2),UNAME(2),FORMAT(2),MODE(2), 1 POS(2),DATYPE(2),NAMES(10),PDATE,PTIME COMMON /SYSTEM/ SYSBUF,NOUT COMMON /OUTPUT/ HEAD1(96),HEAD2(96) EQUIVALENCE (INTE,BCDS(1,7)),(EXTE,BCDS(1,8)), 1 (DEVICE(1),INBCDS(1,1)) DATA BLANK / 4H / DATA BCDS / 4HSOFI ,4HN , 1 4HSOFO ,4HUT , 2 4HREST ,4HORE , 3 4HCHEC ,4HK , 4 4HCOMP ,4HRESS , 5 4HAPPE ,4HND , 6 4HINTE ,4HRNAL , 7 4HEXTE ,4HRNAL , 8 4HREWI ,4HND , 9 4HNORE ,4HWIND / C DO 10 I = 1,96 10 HEAD2(I) = BLANK DO 30 I = 1,5 DO 20 J = 1,10 IF (INBCDS(1,I) .NE. BCDS(1,J)) GO TO 20 INBCDS(2,I) = BCDS(2,J) GO TO 30 20 CONTINUE 30 CONTINUE C DO 40 I = 1,2 HEAD2(I ) = MODE(I) HEAD2(I+ 3) = FORMAT(I) HEAD2(I+ 6) = DEVICE(I) HEAD2(I+ 9) = UNAME(I) HEAD2(I+12) = POS(I) 40 CONTINUE C C INTERNAL FORMAT - GINO I/O IS USED FOR DATA WHICH WILL BE READ OR C WAS WRITTEN ON THE SAME HARDWARE. C IF (FORMAT(1) .EQ. INTE) CALL EXIO1 C C EXTERNAL FORMAT - FORTRAN I/O IS USED FOR DATA WHICH WILL BE READ C OR WAS WRITTEN ON A DIFFERENT MACHINE. C IF (FORMAT(1) .EQ. EXTE) CALL EXIO2 C C CHECK VALIDITY OF FORMAT TO ASCERTAIN WHETHER EITHER EXIO1 OR C EXIO2 WAS CALLED. C IF (FORMAT(1).EQ.INTE .OR. FORMAT(1).EQ.EXTE) RETURN WRITE (NOUT,50) UWM,FORMAT 50 FORMAT (A25,' 6333, ',2A4,' IS AN INVALID FORMAT PARAMETER FOR ', 1 'MODULE EXIO.') DRY = -2 RETURN END ================================================ FILE: mis/exio1.f ================================================ SUBROUTINE EXIO1 C C EXIO1 SERVICES INTERNAL FORMAT FUNCTIONS FOR EXIO. C EXTERNAL LSHIFT ,RSHIFT ,ANDF ,ORF LOGICAL FIRST ,OPNSOF ,DITUP ,MDIUP ,NXTUP , 1 NXTRST ,TAPBIT INTEGER DRY ,COR(1) ,DEVICE ,UNAME ,POS , 1 DATYPE ,PDATE ,PTIME ,TIME ,SEC , 2 HOURS ,SSNAME ,SAVREC ,HDREC ,REWI2 , 3 BUF ,SYSBUF ,DATE ,RD ,RDREW , 4 WRT ,WRTREW ,REW ,EOFNRW ,FILNAM , 5 FILSIZ ,STATUS ,PASSWD ,BLKSIZ ,DIRSIZ , 6 SUPSIZ ,AVBLKS ,DIT ,DITPBN ,DITLBN , 7 DITSIZ ,DITNSB ,DITBL ,Z ,TAPE , 8 DISK ,SOFIN ,SOFOUT ,CHECK ,APPEND , 9 COMPRS ,REWI ,EQF ,ALL ,TABLES , O PHASE3 ,DUMP ,RESTOR ,WHOLE(2) ,XITEMS(50), 1 SUBR(2) ,BLANK ,SOF ,EOI ,HDR , 2 Q ,QQQQ ,XXXX ,SCR1 ,SRD , 3 SWRT ,RSHIFT ,ANDF ,SOFSIZ ,ORF , 4 BUF1 ,BUF2 ,BUF3 ,BUF4 ,UNIT , 5 RC ,FLAG ,OLDTSZ ,BUF5 ,SCR2 , 6 HEAD1 ,HEAD2 ,INBLK(15),OUTBLK(15) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 , 1 SWM*27 ,SIM*31 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM , 1 SWM ,SIM COMMON /MACHIN/ MACH ,IHALF ,JHALF COMMON /BLANK / DRY ,XMACH ,DEVICE(2),UNAME(2) , 1 FORMT(2) ,MODE(2) ,POS(2) ,DATYPE(2) , 2 NAMES(10),PDATE ,PTIME ,TIME(3) , 3 SSNAME(2),SAVREC(9),HDREC(10),BUF(10) COMMON /SYSTEM/ SYSBUF ,NOUT ,X1(6) ,NLPP , 1 X2(2) ,LINE ,X3(2) ,DATE(3) , 2 X4(21) ,NBPC ,NBPW ,NCPW COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW COMMON /SOFCOM/ NFILES ,FILNAM(10) ,FILSIZ(10), 1 STATUS ,PASSWD(2),FIRST ,OPNSOF COMMON /SYS / BLKSIZ ,DIRSIZ ,SUPSIZ ,AVBLKS , 1 NOBLKS ,IFRST COMMON /ITEMDT/ NITEM ,ITEMS(7,1) COMMON /OUTPUT/ HEAD1(96),HEAD2(96) COMMON /SOF / DIT ,DITPBN ,DITLBN ,DITSIZ , 1 DITNSB ,DITBL ,IO ,IOPBN , 2 IOLBN ,IOMODE ,IOPTR ,IOSIND , 3 IOITCD ,IOBLK ,MDI ,MDIPBN , 4 MDILBN ,MDIBL ,NXT ,NXTPBN , 5 NXTLBN ,NXTTSZ ,NXTFSZ(10) , 6 NXTCUR ,DITUP ,MDIUP ,NXTUP , 7 NXTRST COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (COR(1) ,Z(1)) EQUIVALENCE (TIME(1) ,HOURS) ,(TIME(2) ,MIN) , 1 (TIME(3) ,SEC) DATA TAPE ,DISK ,SOFIN ,SOFOUT ,CHECK / 1 4HTAPE ,4HDISK ,4HSOFI ,4HSOFO ,4HCHEC /, 2 APPEND ,COMPRS ,NOREWI ,REWI ,EQF / 3 4HAPPE ,4HCOMP ,4HNORE ,4HREWI ,4HEOF /, 4 ALL ,MATRIC ,TABLES ,PHASE3 ,DUMP / 5 4HALL ,4HMATR ,4HTABL ,4HPHAS ,4HDUMP /, 6 RESTOR ,WHOLE ,REWI2 / 8 4HREST ,4HWHOL ,4HESOF ,4HND /, 9 SUBR ,BLANK ,SOF ,EOI / O 4HEXIO ,4H1 ,4H ,4HSOF ,4HEOI /, 1 ID ,HDR ,Q ,QQQQ ,XXXX / 2 4H$ID$ ,4H$HD$ ,4HQ ,4HQQQQ ,4HXXXX / DATA SCR1 ,SCR2 ,SRD ,SWRT ,IZ2 / 1 301 ,302 ,1 ,2 ,2 / C C INITIALIZE C IF (NITEM .GT. 50) CALL ERRMKN (25,10) LCORE = KORSZ(Z) BUF1 = LCORE- SYSBUF + 1 BUF2 = BUF1 - SYSBUF - 1 BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF BUF5 = BUF4 - SYSBUF LCORE = BUF5 - 1 NCORE = LCORE NOS = 0 IDM = 1 IF (LCORE .LE. 0) CALL MESAGE (-8,0,SUBR) IF (MODE(1) .NE. RESTOR) CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3)) UNIT = UNAME(1) C C CHECK TAPE BIT IF DEVICE=TAPE C IF (DEVICE(1) .EQ. DISK .OR. MODE(1) .EQ. COMPRS .OR. 1 MODE(1) .EQ. APPEND) GO TO 10 IF (DEVICE(1) .NE. TAPE) GO TO 1810 IF (.NOT. TAPBIT(UNIT)) GO TO 1800 C C SET REWIND VARIABLE C C IF SOFOUT COMMAND POSITION TO END-OF-FILE IF REQUESTED C C IF POSITION = REWIND AND WE ARE WRITING THEN BCKREC OVER LAST EOF C C IF POSITION = EOF AND WE ARE WRITING THEN BCKREC FIRST TO INSURE C WE ARE INFRONT OF AND EOF AND THEN SEARCH FOR EOF C 10 IPOS = -1 IF (POS(1).EQ.NOREWI .OR. POS(1).EQ.EQF) IPOS = 2 IF (POS(1) .EQ. REWI) IPOS = 0 IF (IPOS .LT. 0) GO TO 1830 IF (MODE(1).EQ.DUMP .OR. MODE(1).EQ.RESTOR) IPOS = 0 IF (IPOS .NE. 0) GO TO 20 HEAD2(13) = REWI HEAD2(14) = REWI2 20 IF (MODE(1) .NE. SOFOUT) GO TO 60 IF (IPOS .EQ. 0) GO TO 60 CALL OPEN (*1860,UNIT,Z(BUF4),RD) CALL BCKREC (UNIT) IF (POS(1) .EQ. NOREWI) GO TO 50 30 CALL FWDREC (*40,UNIT) GO TO 30 40 CALL BCKREC (UNIT) 50 CALL CLOSE (UNIT,NOREW) C C BRANCH ON MODE OF OPERATION C 60 IF (MODE(1).EQ.SOFOUT .OR. MODE(1).EQ. DUMP) GO TO 70 IF (MODE(1).EQ.SOFIN .OR. MODE(1).EQ.RESTOR) GO TO 370 IF (MODE(1) .EQ. CHECK ) GO TO 1160 IF (MODE(1) .EQ. APPEND) GO TO 1220 IF (MODE(1) .EQ. COMPRS) GO TO 1500 GO TO 1820 C C C ********************** W R I T E ********************** C C OPEN FILE AND WRITE 9 WORD ID RECORD C 70 CALL OPEN (*1860,UNIT,Z(BUF4),WRTREW+IPOS) CALL WALTIM (SEC) HOURS= SEC/3600 SEC = MOD(SEC,3600) MIN = SEC/60 SEC = MOD(SEC,60) HDREC(1) = ID HDREC(2) = PASSWD(1) HDREC(3) = PASSWD(2) DO 80 I = 1,3 HDREC(I+3) = DATE(I) HDREC(I+6) = TIME(I) 80 CONTINUE CALL WRITE (UNIT,HDREC,9,1) CALL PAGE WRITE (NOUT,2120) UIM,PASSWD,DATE,TIME LINE = LINE + 1 C C WRITE DIT AND MDI CONTROL WORDS C N = DITSIZ/2 CALL WRITE (UNIT,N,1,0) DO 90 I = 1,N CALL FDIT(I,J) CALL WRITE (UNIT,COR(J),2,0) CALL FMDI (I,J) CALL WRITE (UNIT,COR(J+1),2,0) 90 CONTINUE CALL WRITE (UNIT,0,0,1) CALL WRITE (UNIT,EOI,1,1) IF (MODE(1) .NE. DUMP) GO TO 110 C C C DUMP FORM -- C C COPY OUT ALL SOF SUPERBLOCKS WHICH HAVE BEEN USED WITHOUT REGARD C TO THE DATA SEQUENCE OR CONTENT. C C DO 100 I = 1,NOBLKS CALL SOFIO (SRD,I,Z(BUF1)) CALL WRITE (UNIT,Z(BUF1+3),BLKSIZ,0) 100 CONTINUE CALL WRITE (UNIT,0,0,1) CALL CLOSE (UNIT,REW) WRITE (NOUT,2130) UIM,NOBLKS,NXTTSZ,UNAME GO TO 1740 C C STANDARD FORM -- C C COPY OUT EACH SUBSTRUCTURE/ITEM WITH ITS DATA IN THE CORRECT C SEQUENCE. C C SETUP THE ARRAY XITEMS OF NAMES OF ITEMS TO BE COPIED. C 110 IF (DATYPE(1) .NE. ALL) GO TO 130 NITEMS = NITEM DO 120 I = 1,NITEM 120 XITEMS(I) = ITEMS(1,I) GO TO 200 130 IF (DATYPE(1) .NE. TABLES) GO TO 150 NITEMS = 0 DO 140 I = 1,NITEM IF (ITEMS(2,I) .GT. 0) GO TO 140 NITEMS = NITEMS + 1 XITEMS(NITEMS) = ITEMS(1,I) 140 CONTINUE GO TO 200 150 IF (DATYPE(1) .NE. MATRIC) GO TO 170 NITEMS = 0 DO 160 I = 1,NITEM IF (ITEMS(2,I) .LE. 0) GO TO 160 NITEMS = NITEMS + 1 XITEMS(NITEMS) = ITEMS(1,I) 160 CONTINUE GO TO 200 170 IF (DATYPE(1) .NE. PHASE3) GO TO 190 NITEMS = 0 DO 180 I = 1,NITEM IF (ANDF(ITEMS(7,I),8) .EQ. 0) GO TO 180 NITEMS = NITEMS + 1 XITEMS(NITEMS) = ITEMS(1,I) 180 CONTINUE GO TO 200 190 NITEMS = 2 XITEMS(1) = DATYPE(1) XITEMS(2) = DATYPE(2) IF (XITEMS(2) .EQ. BLANK) NITEMS = 1 C C LOOP OVER SUBSTRUCTURE NAMES. FOR EACH SUBSTRUCTURE, WRITE OUT C THE NITEMS IN XITEMS. C 200 ISS = 0 210 ISS = ISS + 1 IF (NAMES(1).NE.WHOLE(1) .OR. NAMES(2).NE.WHOLE(2)) GO TO 220 C C WRITE ALL SUBSTRUCTURES IN THE RESIDENT SOF. C IF (ISS .GT. DITSIZ/2) GO TO 360 CALL FDIT (ISS,I) IF (COR(I) .EQ. BLANK) GO TO 210 SSNAME(1) = COR(I ) SSNAME(2) = COR(I+1) GO TO 230 C C WRITE ONLY THOSE SUBSTRUCTURES IN THE PARAMETER LIST C 220 IF (ISS .GT. 5) GO TO 360 IF (NAMES(2*ISS-1) .EQ. XXXX) GO TO 210 SSNAME(1) = NAMES(2*ISS-1) SSNAME(2) = NAMES(2*ISS ) C C LOOP OVER ALL ITEMS OF THIS SUBSTRUCTURE. C 230 DO 350 ITEM = 1,NITEMS KDH = ITTYPE(XITEMS(ITEM)) IF (KDH .EQ. 1) GO TO 260 CALL SFETCH (SSNAME,XITEMS(ITEM),SRD,RC) GO TO (260,240,350,250,250), RC 240 LINE = LINE + 2 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,2160) UWM,SSNAME,XITEMS(ITEM) GO TO 350 250 LINE = LINE+2 IF (LINE .GT. NLPP) CALL PAGE CALL SMSG (RC-2,XITEMS(ITEM),SSNAME) GO TO 350 C C WRITE SUBSTRUCTURE/ITEM HEADER RECORD C 260 CALL WALTIM (SEC) HOURS = SEC/3600 SEC = MOD(SEC,3600) MIN = SEC/60 SEC = MOD(SEC,60) HDREC(1) = HDR HDREC(2) = SSNAME(1) HDREC(3) = SSNAME(2) HDREC(4) = XITEMS(ITEM) DO 270 I = 1,3 HDREC(I+4) = DATE(I) HDREC(I+7) = TIME(I) 270 CONTINUE IF (KDH .EQ. 1) GO TO 310 CALL WRITE (UNIT,HDREC,10,1) C C COPY DATA C 280 CALL SUREAD (Z(1),LCORE,NWDS,RC) GO TO (290,300,340), RC 290 CALL WRITE (UNIT,Z,LCORE,0) GO TO 280 300 CALL WRITE (UNIT,Z,NWDS,1) GO TO 280 C C COPY MATRIX DATA ITEMS C 310 IFILE = SCR1 CALL MTRXI (SCR1,SSNAME,XITEMS(ITEM),0,RC) GO TO (320,240,350,250,250,2010), RC 320 CALL WRITE (UNIT,HDREC,10,1) Z(1) = SCR1 CALL RDTRL (Z(1)) CALL WRITE (UNIT,Z(IZ2),6,1) CALL OPEN (*2010,SCR1,Z(BUF5),RDREW) CALL CPYFIL(SCR1,UNIT,Z,LCORE,ICOUNT) CALL CLOSE (SCR1,1) C C WRITE END-OF-ITEM RECORD AND USER MESSAGE C 340 CALL WRITE (UNIT,EOI,1,1) LINE = LINE + 1 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,2170) UIM,SSNAME,XITEMS(ITEM),SOF,UNIT,DATE,TIME 350 CONTINUE C C BOTTOM OF LOOP OVER SUBSTRUCTURES C GO TO 210 C C ALL SUBSTRUCTURE/ITEMS HAVE NOW BEEN COPIED. CLOSE WITH EOF AND C NO REWIND (IN CASE MORE DATA TO FOLLOW). C C WRITE EOF FOR NOU BECAUSE LEVEL 16 GINO OPT=3 DOESN T AS C ADVERTISED C 360 CALL EOF (UNIT) CALL CLOSE (UNIT,EOFNRW) GO TO 1740 C C *********************** R E A D ************************ C C BRANCH FOR RESTORE OR STANDARD READ C 370 IF (MODE(1) .NE. RESTOR) GO TO 400 C C RESTORE FORM -- C C COPY EACH LOGICAL RECORD ON THE EXTERNAL FILE INTO CONSEQUTIVE, C CONTIGUOUS BLOCKS ON THE RESIDENT SOF. C C MAKE SURE THE RESIDENT SOF IS EMPTY. C IF (STATUS .NE. 0) GO TO 1840 CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3)) CALL SOFCLS C C OPEN FILE AND READ THE ID RECORD C CALL OPEN (*1860,UNIT,Z(BUF4),RDREW) CALL READ (*1850,*1850,UNIT,HDREC,9,1,FLAG) IF (HDREC(1) .NE. ID) GO TO 1850 CALL PAGE LINE = LINE+1 WRITE (NOUT,2120) UIM,(HDREC(I),I=2,9) CALL FWDREC (*1870,UNIT) CALL FWDREC (*1870,UNIT) C C BEGIN DATA TRANSFER C I = 1 380 CALL READ (*1870,*390,UNIT,Z(BUF1+3),BLKSIZ,0,FLAG) CALL SOFIO (SWRT,I,Z(BUF1)) I = I+1 GO TO 380 C C RESTORE COMPLETE. CLOSE FILE AND GIVE USER THE NEWS. C 390 CALL CLOSE (UNIT,REW) I = I - 1 WRITE (NOUT,2200) UIM,I GO TO 1750 C C STANDARD FORM - C C COPY IN EACH INDIVIDUAL SUBSTRUCTURE/ITEM. C 400 ISS = 0 C C SETUP ARRAY OF NAMES OF ITEMS TO BE COPIED. C IF (DATYPE(1) .NE. ALL) GO TO 420 NITEMS = NITEM DO 410 I = 1,NITEM 410 XITEMS(I) = ITEMS(1,I) GO TO 490 420 IF (DATYPE(1) .NE. TABLES) GO TO 440 NITEMS = 0 DO 430 I = 1,NITEM IF (ITEMS(2,I) .GT. 0) GO TO 430 NITEMS = NITEMS + 1 XITEMS(NITEMS) = ITEMS(1,I) 430 CONTINUE GO TO 490 440 IF (DATYPE(1) .NE. MATRIC) GO TO 460 NITEMS = 0 DO 450 I = 1,NITEM IF (ITEMS(2,I) .LE. 0) GO TO 450 NITEMS = NITEMS + 1 XITEMS(NITEMS) = ITEMS(1,I) 450 CONTINUE GO TO 490 460 IF (DATYPE(1) .NE. PHASE3) GO TO 480 NITEMS = 0 DO 470 I = 1,NITEM IF (ANDF(ITEMS(7,I),8) .EQ. 0) GO TO 470 NITEMS = NITEMS + 1 XITEMS(NITEMS) = ITEMS(1,I) 470 CONTINUE GO TO 490 480 NITEMS = 2 XITEMS(1) = DATYPE(1) XITEMS(2) = DATYPE(2) IF (XITEMS(2) .EQ. BLANK) NITEMS = 1 C C DETERMINE NUMBER OF SUBSTRUCTURE/ITEMS TO BE COPIED AND INITIALIZE C COUNTER. C 490 JCOPY = 0 NCOPY = 0 IF (NAMES(1).EQ.WHOLE(1) .AND. NAMES(2).EQ.WHOLE(2)) GO TO 510 DO 500 I = 1,5 IF (NAMES(2*I-1) .NE. XXXX) NCOPY = NCOPY + 1 500 CONTINUE NCOPY = NCOPY*NITEMS IF (PDATE .NE. 0) NCOPY = 1 C C OPEN THE EXTERNAL FILE AND READ THE IDENTIFICATION OR HEADER C RECORD. C REMEMBER IT IN CASE THE USER HAS REQUESTED A SUBSTRUCTURE/ITEM C WHICH IS NOT PRESENT ON THE FILE. C 510 CALL PAGE CALL OPEN (*1860,UNIT,Z(BUF4),RDREW+IPOS) 520 CALL READ (*530,*540,UNIT,HDREC,10,1,LREC1) LREC1 = 10 GO TO 540 530 CALL REWIND (UNIT) GO TO 520 540 DO 550 I = 1,LREC1 550 BUF(I) = HDREC(I) IF (HDREC(1) .NE. ID) GO TO 560 GO TO 610 560 IF (HDREC(1) .NE. HDR) GO TO 1850 GO TO 610 C C SCAN THROUGH THE EXTERNAL TAPE. FOR EACH SUBSTRUCTURE/ITEM C ENCOUNTERED, CHECK TO SEE IF IT SHOULD BE READ. THEN, EITHER C READ OR SKIP IT. C C FOR EACH SUBSTRUCTURE/ITEM WHICH IS READ, SAVE THE HEADER RECORD C IN OPEN CORE. WHEN DUPLICATES ARE FOUND, AND THE DATE AND TIME C PARAMETERS HAVE NOT BEEN SET, ISSUE A WARNING AND USE THE MOST C RECENT. C C IF THE DATE AND TIME PARAMETERS ARE NON-ZERO, READ ONLY THE C SUBSTRUCTURE/ITEM WHICH HAS MATCHING VALUES AND IGNORE THE C SUBSTRUCTURE AND ITEM NAME PARAMETERS. C C READ AN IDENTIFICATION OR HEADER RECORD C 570 CALL READ (*580,*590,UNIT,BUF,10,1,FLAG) GO TO 590 580 IF (NAMES(1).EQ.WHOLE(1) .AND. NAMES(2).EQ.WHOLE(2)) GO TO 1150 CALL REWIND (UNIT) GO TO 570 C C CHECK IT AGAINST THE FIRST RECORD READ. IF IT MATCHES, THE ENTIRE C TAPE HAS BEEN SCANNED, BUT NOT ALL ITEMS WERE FOUND. C 590 DO 600 I = 1,LREC1 IF (BUF(I) .NE. HDREC(I)) GO TO 610 600 CONTINUE GO TO 1080 C C IF THAT WAS AN ID RECORD, ISSUE MESSAGE AND GO BACK TO READ THE C IMMEDIATELY FOLLOWING HEADER RECORD. C 610 IF (BUF(1) .NE. ID) GO TO 620 C C READ OLD DIT AND MDI DATA C CALL READ (*1870,*1880,UNIT,NOS,1,0,FLAG) LCORE= NCORE - 4*NOS IDM = LCORE + 1 IF (LCORE .LE. 0) GO TO 1890 NOS4 = NOS*4 CALL READ (*1870,*1880,UNIT,Z(IDM),NOS4,1,FLAG) CALL FWDREC (*1870,UNIT) LINE = LINE + 1 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,2120) UIM,(BUF(I),I=2,9) GO TO 570 C C READ OR SKIP THE SUBSTRUCTURE/ITEM DATA. C 620 IF (PDATE .NE. 0) GO TO 820 IF (NAMES(1).EQ.WHOLE(1) .AND. NAMES(2).EQ.WHOLE(2)) GO TO 680 DO 630 I = 1,5 IF (NAMES(2*I-1) .EQ. XXXX) GO TO 630 IF (BUF(2).EQ.NAMES(2*I-1) .AND. BUF(3).EQ.NAMES(2*I)) GO TO 640 630 CONTINUE GO TO 660 640 DO 650 I = 1,NITEMS IF (BUF(4) .EQ. XITEMS(I)) GO TO 680 650 CONTINUE C C SKIP - C 660 CALL RECTYP (UNIT,IREC) IF (IREC .EQ. 0) GO TO 670 C C STRING RECORD - SKIP IT C CALL FWDREC (*1870,UNIT) GO TO 660 C C NORMAL GINO RECORD - CHECK IF EOI C 670 CALL READ (*1870,*660,UNIT,I,1,1,FLAG) IF (I-EOI) 660,570,660 C C READ - C C CHECK HEADER RECORDS SAVED IN CORE FOR DUPLICATE C 680 IF (ISS .EQ. 0) GO TO 850 DO 700 I = 1,ISS JSS = 10*(I-1) DO 690 J = 1,3 IF (BUF(J+1) .NE. Z(JSS+J)) GO TO 700 690 CONTINUE GO TO 710 700 CONTINUE GO TO 850 C C DUPLICATE SUBSTRUCTURE/ITEM ENCOUNTER. USE MOST RECENT. C 710 IF (Z(JSS+10) .NE. 0) GO TO 780 LINE = LINE+3 IF (LINE .GT. NLPP) CALL PAGE C C CHECK YEAR, MONTH, DAY, HOUR, MINUTE, SECOND C IF (Z(JSS+6)-BUF( 7)) 800,720,770 720 IF (Z(JSS+4)-BUF( 5)) 800,730,770 730 IF (Z(JSS+5)-BUF( 6)) 800,740,770 740 IF (Z(JSS+7)-BUF( 8)) 800,750,770 750 IF (Z(JSS+8)-BUF( 9)) 800,760,770 760 IF (Z(JSS+9)-BUF(10)) 800,780,770 C C MOST RECENT VERSION IS THE ONE ALREADY READ. THEREFORE, SKIP THE C ONE ON TAPE. C 770 WRITE (NOUT,2210) UWM,BUF(2),BUF(3),BUF(4),UNAME,(BUF(I),I=5,10) 780 CALL RECTYP (UNIT,IREC) IF (IREC .EQ. 0) GO TO 790 C C STRING RECORD - SKIP IT C CALL FWDREC (*1870,UNIT) GO TO 780 C C NORMAL GINO RECORD - CHECK IF EOI C 790 CALL READ (*1870,*780,UNIT,I,1,1,FLAG) IF (I-EOI) 780,570,780 C C MOST RECENT VERSION IS ON TAPE. REPLACE OLDER VERSION ALREADY C READ. C 800 WRITE (NOUT,2210) UWM,BUF(2),BUF(3),BUF(4),UNAME,(Z(JSS+I),I=4,9) DO 810 I = 1,9 810 Z(JSS+I) = BUF(I+1) JCOPY = JCOPY - 1 CALL DELETE (BUF(2),BUF(4),RC) GO TO 870 C C IF DATE AND TIME PARAMETERS WERE INVOKED, CHECK THEM. C 820 IF (MOD(PDATE,100) .EQ.BUF( 7) .AND. 1 PDATE/10000 .EQ.BUF( 5) .AND. 2 MOD(PDATE,10000)/100 .EQ.BUF( 6) .AND. 3 PTIME/10000 .EQ.BUF( 8) .AND. 4 MOD(PTIME,10000)/100 .EQ.BUF( 9) .AND. 5 MOD(PTIME,100) .EQ.BUF(10)) GO TO 870 C C DATE AND TIME DONT MATCH. SKIP THIS SUBSTRUCTURE/ITEM. C 830 CALL RECTYP (UNIT,IREC) IF (IREC .EQ. 0) GO TO 840 C C STRING RECORD - SKIP IT C CALL FWDREC (*1870,UNIT) GO TO 830 C C NORMAL GINO RECORD - CHECK IF EOI C 840 CALL READ (*1870,*830,UNIT,I,1,1,FLAG) IF (I-EOI) 830,570,830 C C NO DUPLICATE. ADD THIS HEADER TO THOSE IN CORE. C 850 IF (10*(ISS+1) .GT. LCORE) GO TO 1890 DO 860 I = 1,9 860 Z(10*ISS+ I) = BUF(I+1) Z(10*ISS+10) = 0 ISS = ISS+1 C C FETCH THE ITEM ON THE SOF. C 870 RC = 3 KDH = ITTYPE(BUF(4)) IF (KDH .EQ. 1) GO TO 970 CALL SFETCH (BUF(2),BUF(4),SWRT,RC) IF (RC .EQ. 3) GO TO 930 LINE = LINE + 2 IF (LINE .GT. NLPP) CALL PAGE GO TO (880,930,930,890,900), RC C C ITEM ALREADY EXISTS. C 880 WRITE (NOUT,2220) UWM,BUF(2),BUF(3),BUF(4) Z(10*ISS) = 1 GO TO 910 C C SUBSTRUCTURE DOES NOT EXIST. ADD IT TO THE SOF HIERARCHY. C 890 CALL EXLVL (NOS,Z(IDM),BUF(2),Z(10*ISS+1),LCORE-10*ISS) GO TO 870 C C INVALID ITEM NAME C 900 CALL SMSG (3,BUF(4),BUF(2)) C C BECAUSE OF ERRORS, NO COPY. SKIP DATA. C 910 CALL RECTYP (UNIT,IREC) IF (IREC .EQ. 0) GO TO 920 C C STRING RECORD - SKIP IT C CALL FWDREC (*1870,UNIT) GO TO 910 C C NORMAL GINO RECORD - CHECK IF EOI C 920 CALL READ (*1870,*910,UNIT,I,1,1,FLAG) IF (I-EOI) 910,570,910 C C COPY THE DATA FROM THE GINO FILE TO THE SOF. C 930 I = 10*ISS + 1 J = LCORE - I + 1 IF (J .LT. 2) GO TO 1890 940 CALL READ (*1870,*950,UNIT,Z(I),J,0,FLAG) RC = 1 CALL SUWRT (Z(I),J,RC) GO TO 940 950 IF (Z(I) .EQ. EOI) GO TO 960 RC = 2 CALL SUWRT (Z(I),FLAG,RC) GO TO 940 960 RC = 3 CALL SUWRT (0,0,RC) GO TO 1070 C C COPY MATRIX DATA FROM THE GINO FILE TO THE SOF. C 970 IFILE = SCR2 I = 10*ISS + 1 J = LCORE - I + 1 IF (J .LT. 7) GO TO 1890 CALL READ (*2020,*2030,UNIT,Z(I+1),6,1,NW) Z(I) = SCR2 CALL WRTTRL (Z(I)) INBLK(1) = UNIT OUTBLK(1) = SCR2 CALL OPEN (*2010,SCR2,Z(BUF5),WRTREW) 980 CALL RECTYP (UNIT,ITYPE) IF (ITYPE .NE. 0) GO TO 1010 990 CALL READ (*2010,*1000,UNIT,Z(I),J,0,NW) CALL WRITE (SCR2,Z(I),J,0) GO TO 990 1000 IF (Z(I) .EQ. EOI) GO TO 1020 CALL WRITE (SCR2,Z(I),NW,1) GO TO 980 1010 CALL CPYSTR (INBLK,OUTBLK,0,0) GO TO 980 1020 CALL CLOSE (SCR2,1) 1030 CALL MTRXO (SCR2,BUF(2),BUF(4),0,RC) GO TO (1040,1070,1070,1050,1060,2010), RC C C ITEM ALREADY EXISTS C 1040 LINE = LINE + 2 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,2220) UWM,BUF(2),BUF(3),BUF(4) Z(10*ISS) = 1 GO TO 570 C C SUBSTRUCTURE DOES NOT EXIST - ADD IT TO THE SOF HIERARCHY C 1050 CALL EXLVL (NOS,Z(IDM),BUF(2),Z(10*ISS+1),LCORE-10*ISS) GO TO 1030 C C ILLEGAL ITEM NAME C 1060 LINE = LINE + 2 IF (LINE .GT. NLPP) CALL PAGE CALL SMSG (3,BUF(4),BUF(2)) GO TO 570 C C ITEM COPIED - PRINT MESSAGE C 1070 LINE = LINE + 1 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,2170) UIM,BUF(2),BUF(3),BUF(4),UNIT,SOF, 1 (BUF(I),I=5,10) C C INCREMENT NUMBER OF ITEMS COPIED. IF NOT ALL ARE COPIED, LOOP C BACK TO FIND NEXT SUBSTRUCTURE/ITEM ON THE EXTERNAL FILE TO BE C COPIED. C JCOPY = JCOPY + 1 IF (NCOPY-JCOPY) 570,1150,570 C C THE ENTIRE EXTERNAL FILE HAS NOW BEEN SCANNED, BUT NOT ALL ITEMS C WERE FOUND. WARN USER OF EACH ITEM NOT FOUND. C C SKIP REMAINDER OF CURRENT ITEM SO FILE IS PROPERLY POSITIONED C FOR NEXT EXECUTION OF MODULE. C 1080 DO 1120 I = 1,9,2 IF (NAMES(I) .EQ. XXXX) GO TO 1120 DO 1110 ITEM = 1,NITEMS IF (ISS .EQ. 0) GO TO 1100 DO 1090 J = 1,ISS JSS = 10*(J-1) IF (NAMES(I).EQ.Z(JSS+1) .AND. NAMES(I+1).EQ.Z(JSS+2) .AND. 1 XITEMS(ITEM) .EQ. Z(JSS+3)) GO TO 1110 1090 CONTINUE 1100 LINE = LINE + 2 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,2230) UWM,NAMES(I),NAMES(I+1),XITEMS(ITEM),UNAME 1110 CONTINUE 1120 CONTINUE 1130 CALL RECTYP (UNIT,IREC) IF (IREC .EQ. 0) GO TO 1140 C C STRING RECORD - SKIP IT C CALL FWDREC (*1870,UNIT) GO TO 1130 C C NORMAL GINO RECORD - CHECK IF EOI C 1140 CALL READ (*1870,*1130,UNIT,I,1,1,FLAG) IF (I-EOI) 1130,1150,1130 C C READ OPERATION COMPLETE C 1150 CALL CLOSE (UNIT,NOREW) GO TO 1740 C C ********************* C H E C K *************************** C C REWIND THE EXTERNAL FILE AND PRINT A LIST OF ALL SUBSTRUCTURE/ C ITEMS ON IT WITH THE DATE AND TIME WHEN THEY WERE WRITTEN THERE. C 1160 CALL OPEN (*1860,UNIT,Z(BUF4),RDREW) CALL PAGE WRITE (NOUT,2240) UIM,UNAME LINE = LINE + 1 CALL READ (*1870,*1880,UNIT,BUF,9,1,FLAG) GO TO 1180 1170 CALL READ (*1210,*1180,UNIT,BUF,10,1,FLAG) LINE = LINE + 1 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,2250) (BUF(I),I=2,10) GO TO 1190 1180 LINE = LINE + 1 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,2120) UIM,(BUF(I),I=2,9) 1190 CALL RECTYP (UNIT,IREC) IF (IREC .EQ. 0) GO TO 1200 C C STRING RECORD - SKIP IT C CALL FWDREC (*1870,UNIT) GO TO 1190 C C NORMAL GINO RECORD - CHECK IF EOI C 1200 CALL READ (*1870,*1190,UNIT,I,1,1,FLAG) IF (I-EOI) 1190,1170,1190 1210 CALL BCKREC (UNIT) CALL CLOSE (UNIT,NOREW) GO TO 1740 C C ******************** A P P E N D *************************** C C ADD AN EXISTING SOF IN ITS RANDOM ACCESS FORM TO THE RESIDENT SOF. C THE MDI AND DIT OF THE EXTERNAL SOF ARE MERGED INTO THOSE OF THE C RESIDENT SOF. THE NXT OF THE EXTERNAL SOF IS INCREMENTED BY THE C NUMBER OF BLOCKS IN THE RESIDENT SOF. THE COMMON BLOCKS /SYS/, C /SOF/, AND /SOFCOM/ ARE UPDATED AND WRITTEN TO THE FIRST PHYSICAL C BLOCK ON EACH FILE OF THE RESIDENT SOF BY SOFCLS. NOTE THAT NO C USER DATA IS ACTUALLY MOVED. C C FIRST, ADD THE EXTERNAL SOF TO /SOFCOM/ SO THAT SOFIO CAN BE USED C TO READ IT. C 1220 IF (NFILES .LT. 10) GO TO 1230 WRITE (NOUT,2260) UWM,UNAME WRITE (NOUT,2270) GO TO 1910 1230 NFILES = NFILES + 1 FILNAM(NFILES) = UNIT FILSIZ(NFILES) = 4 NSAVE = NOBLKS + 1 C C READ THE FIRST PHYSICAL BLOCK OF THE EXTERNAL SOF AND SEE THAT IT C IS COMPATIBLE WITH THE RESIDENT SOF. INCBLK =-4 DO 1240 I = 1,NFILES 1240 INCBLK = INCBLK+FILSIZ(I) CALL SOFIO (SRD,INCBLK+1,Z(BUF4)) C C PASSWORD CHECK C IF (Z(BUF4+3).EQ.DATYPE(1) .AND. Z(BUF4+4).EQ.DATYPE(2)) 1 GO TO 1250 WRITE (NOUT,2260) UWM,UNAME WRITE (NOUT,2310) INCBLK =-1 C C FILE SEQUENCE NUMBER CHECK C 1250 IF (Z(BUF4+5) .EQ. 1) GO TO 1260 WRITE (NOUT,2260) UWM,UNAME WRITE (NOUT,2280) INCBLK =-1 C C NUMBER OF EXTERNAL FILES CHECK C 1260 IF (Z(BUF4+6) .EQ. 1) GO TO 1270 WRITE (NOUT,2260) UWM,UNAME WRITE (NOUT,2290) INCBLK =-1 C C BLOCKSIZE CHECK C 1270 IF (Z(BUF4+27) .EQ. BLKSIZ) GO TO 1280 WRITE (NOUT,2260) UWM,UNAME WRITE (NOUT,2300) BLKSIZ,Z(BUF4+27) INCBLK =-1 1280 IF (INCBLK .LT. 0) GO TO 1490 C C COMPLETE THE UPDATING OF THE COMMON BLOCKS C FILSIZ(NFILES) = Z(BUF4+17) AVBLKS = AVBLKS + Z(BUF4+30) NXTCUR = 1 NXTRST =.TRUE. NXTFSZ(NFILES) = Z(BUF4+36) J = NFILES-1 NXTTSZ = 0 DO 1290 I = 1,J 1290 NXTTSZ = NXTTSZ + NXTFSZ(I) OLDTSZ = NXTTSZ + 1 NXTTSZ = NXTTSZ + Z(BUF4+35) C C READ THE DIT OF THE EXTERNAL SOF AND ADD EACH SUBSTRUCTURE THERE C TO THE DIT OF THE RESIDENT SOF. KEEP A TABLE IN OPEN CORE OF TWO C WORDS PER SUBSTRUCTURE - C C (1) SUBSTRUCTURE NUMBER FROM THE EXTERNAL SOF. C (2) NEW SUBSTRUCTURE NUMBER ON THE RESIDENT SOF. C NOLD = Z(BUF4+32) IF (2*NOLD .GT. LCORE) GO TO 1890 ISS = 1 K = 1 KDIT = Z(BUF4+33) + INCBLK KMDI = Z(BUF4+34) + INCBLK 1300 CALL SOFIO (SRD,KDIT,Z(BUF4)) DO 1350 I = 1,BLKSIZ,2 SSNAME(1) = Z(BUF4+I+2) SSNAME(2) = Z(BUF4+I+3) IF (SSNAME(1) .EQ. BLANK) GO TO 1350 1320 CALL FDSUB (SSNAME,J) IF (J .EQ. -1) GO TO 1330 C C DUPLICATE NAME ON RESIDENT SOF. PREFIX IT WITH -Q- AND TRY AGAIN. C WRITE (NOUT,2320) UWM,SSNAME CALL PREFIX (Q,SSNAME) IF (SSNAME(2) .NE. QQQQ) GO TO 1320 WRITE (NOUT,2330) Z(ISS ) = (I+1)/2 Z(ISS+1) = 0 ISS = ISS + 2 GO TO 1340 1330 CALL CRSUB (SSNAME,J) Z(ISS ) = K Z(ISS+1) = J ISS = ISS + 2 K = K + 1 1340 IF (ISS/2 .GE. NOLD) GO TO 1380 1350 CONTINUE C C GET THE NEXT BLOCK OF THE DIT FROM THE EXTERNAL SOF C CALL FNXT (KDIT,J) IF (MOD(KDIT,2) .EQ. 1) GO TO 1360 I = ANDF(RSHIFT(COR(J),IHALF),JHALF) GO TO 1370 1360 I = ANDF(COR(J),JHALF) 1370 KDIT = I + INCBLK GO TO 1300 C C THE DIT OF THE EXTERNAL SOF HAS NOW BEEN MERGED WITH THE DIT OF C THE RESIDENT SOF. NOW MERGE THE MDI C 1380 ISS = 0 1390 CALL SOFIO (SRD,KMDI,Z(BUF4)) DO 1420 I = 1,BLKSIZ,DIRSIZ IF (BLKSIZ-I+1 .LT. DIRSIZ) GO TO 1420 ISS = ISS + 1 JMDI= BUF4 + I + 1 CALL BISLOC (*1900,ISS,Z,2,NOLD,K) CALL FMDI (Z(K+1),JRMDI) C C PUT THE CONVERTED SUBSTRUCTURE INDICES IN THE FIRST TWO WORDS OF C THE MDI OF THE RESIDENT SOF. C DO 1400 J = 1,6 MASK = LSHIFT(1023,10*((J-1)/2)) C 1023 = 2*10-1, LEFT SHIFT 0, 10, AND 20 BITS C K = MOD(J-1,2) + 1 JSS = ANDF(Z(JMDI+K),MASK) IF (JSS .EQ. 0) GO TO 1400 CALL BISLOC (*1900,JSS,Z,2,NOLD,K) JSS = Z(K+1) COR(JRMDI+K) = ANDF(COR(JRMDI+K),LSHIFT(JSS,10*((J-1)/2))) 1400 CONTINUE C C INCREMENT THE BLOCK INDICES OF THE ITEMS IN THIS MDI DIRECTORY BY C THE NUMBER OF BLOCKS ON THE RESIDENT SOF. C DO 1410 J = IFRST,DIRSIZ IF (ANDF(Z(JMDI+J),JHALF) .EQ. 0) GO TO 1410 COR(JRMDI+J) = Z(JMDI+J) + INCBLK 1410 CONTINUE IF (ISS .EQ. NOLD) GO TO 1450 1420 CONTINUE C C GET THE NEXT BLOCK OF THE MDI FROM THE EXTERNAL SOF. C CALL FNXT (KMDI,J) IF (MOD(KMDI,2) .EQ. 1) GO TO 1430 I = ANDF(RSHIFT(COR(J),IHALF),JHALF) GO TO 1440 1430 I = ANDF(COR(J),JHALF) 1440 KMDI = I + INCBLK GO TO 1390 C C THE MDI OF THE EXTERNAL SOF HAS NOW BEEN MERGED WITH THE MDI OF C THE RESIDENT SOF. NOW UPDATE THE NXT OF THE EXTERNAL SOF. C 1450 N = BLKSIZ KNXT = INCBLK + 2 INCBLK = ORF(INCBLK,LSHIFT(INCBLK,IHALF)) DO 1470 I = OLDTSZ,NXTTSZ CALL SOFIO (SRD,KNXT,Z(BUF4)) IF (I-OLDTSZ+1 .EQ. NXTFSZ(NFILES)) 1 N = (MOD(FILSIZ(NFILES)-2,SUPSIZ)+1)/2 + 1 DO 1460 J = 1,N 1460 Z(BUF4+J+2) = Z(BUF4+J+2) + INCBLK CALL SOFIO (SWRT,KNXT,Z(BUF4)) KNXT = KNXT + SUPSIZ 1470 CONTINUE C C RELEASE THE BLOCKS USED BY THE MDI AND DIT OF THE EXTERNAL SOF. C (THIS WILL CAUSE THE EXTERNAL SOF TO BE UNUSEABLE IN ITS ORIGINAL C FORM.) C INCBLK = ANDF(INCBLK,JHALF) CALL SOFIO (SRD,INCBLK+1,Z(BUF4)) KDIT = Z(BUF4+33) + INCBLK KMDI = Z(BUF4+34) + INCBLK CALL RETBLK (KDIT) CALL RETBLK (KMDI) C C WRITE ON ALL BLOCKS BETWEEN THE HIGHEST BLOCK WRITTEN ON THE C ORIGINAL RESIDENT SOF AND THE FIRST BLOCK OF THE APPENDED SOF. C THIS IS REQUIRED TO AVOID DATA TRANSMISSION ERRORS. C N = FILSIZ(NFILES-1) DO 1480 I = NSAVE,N CALL SOFIO (SWRT,NSAVE,Z(BUF4)) 1480 CONTINUE C C SOFCLS WILL UPDATE THE FIRST PHYSICAL BLOCK ON EACH SOF UNIT. C CALL SOFCLS C C APPEND OPERATION COMPLETED SUCCESSFULLY. TELL USER THE NEWS. C WRITE (NOUT,2340) UIM,UNAME N = SOFSIZ(N) WRITE (NOUT,2360) UIM,AVBLKS,N GO TO 1750 C C APPEND OPERATION ABORTED. RESTORE THE COMMON BLOCKS FOR THE C RESIDENT SOF. C 1490 FIRST =.TRUE. OPNSOF=.FALSE. CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3)) GO TO 1900 C C ******************** C O M P R E S S ********************** C C FOR EACH SUBSTRUCTURE IN THE DIT, COPY EACH ITEM WHICH EXISTS OR C PSEUDO-EXISTS TO SCR1 AND DELETE THE ITEM ON THE SOF. THEN COPY C ALL ITEMS BACK. ALL INTERMEDIATE FREE BLOCKS WILL THUS BE C ELIMINATED AND THE DATA FOR ANY ONE ITEM WILL BE STORED ON C CONTIGUOUS BLOCKS. C C THE FORMAT OF THE SCRATCH FILE IS -- C C +------------+ C SUBSTRUCTURE NAME (2 WORDS) I I+ C ITEM NAME (1 WORD) I HEADER I + C PSEUDO FLAG -- 2 FOR PSEUDO-ITEM I RECORD I + C 3 FOR REAL DATA I I + REPEATED C +------------+ + FOR EACH C DATA -- 1 SOF GROUP PER I DATA I + SUBS./ITEM C GINO LOGICAL RECORD I RECORDS I + C +------------+ + C END OF ITEM FLAG (1 WORD) I EOI RECORD I+ C +------------+ C 1500 UNIT = SCR1 CALL OPEN (*1860,SCR1,Z(BUF4),WRTREW) C C COPY OUT DIT AND MDI INFORMATION C ISS = 0 DO 1510 K = 1,DITSIZ,2 ISS = ISS + 1 CALL FDIT (ISS,J) CALL WRITE (SCR1,COR(J),2,0) CALL FMDI (ISS,J) CALL WRITE (SCR1,COR(J+1),2,0) 1510 CONTINUE CALL WRITE (SCR1,0,0,1) C C COPY OUT SUBSTRUCTURE ITEMS C ISS = 0 DO 1600 K = 1,DITSIZ,2 ISS = ISS + 1 CALL FDIT (ISS,J) SSNAME(1) = COR(J ) SSNAME(2) = COR(J+1) IF (SSNAME(1) .EQ. BLANK) GO TO 1600 DO 1590 ITEM = 1,NITEM KDH = ITEMS(2,ITEM) IF (KDH .EQ. 1) GO TO 1570 CALL SFETCH (SSNAME,ITEMS(1,ITEM),SRD,RC) GO TO (1540,1530,1590,1520,1520), RC 1520 CALL SMSG (RC-2,ITEMS(1,ITEM),SSNAME) GO TO 1590 C C ITEM PSEUDO-EXISTS. WRITE PSEUDO-HEADER RECORD AND EOI RECORD. C 1530 CALL WRITE (SCR1,SSNAME,2,0) CALL WRITE (SCR1,ITEMS(1,ITEM),1,0) CALL WRITE (SCR1,2,1,1) CALL WRITE (SCR1,EOI,1,1) GO TO 1590 C C ITEM EXISTS. COPY IT OUT. C 1540 CALL WRITE (SCR1,SSNAME,2,0) CALL WRITE (SCR1,ITEMS(1,ITEM),1,0) CALL WRITE (SCR1,3,1,1) 1550 CALL SUREAD(Z,LCORE,N,RC) IF (RC .GT. 1) GO TO 1560 CALL WRITE (SCR1,Z,LCORE,0) GO TO 1550 1560 CALL WRITE (SCR1,Z,N,1) IF (RC .EQ. 2) GO TO 1550 C C END OF ITEM HIT. WRITE EOI RECORD C CALL WRITE (SCR1,EOI,1,1) GO TO 1590 C C PROCESS MATRIX ITEMS C 1570 CALL MTRXI (SCR2,SSNAME,ITEMS(1,ITEM),0,RC) IFILE = SCR2 GO TO (1580,1530,1590,1520,1520,2010), RC 1580 CALL WRITE (SCR1,SSNAME,2,0) CALL WRITE (SCR1,ITEMS(1,ITEM),1,0) CALL WRITE (SCR1,3,1,1) CALL OPEN (*2010,SCR2,Z(BUF5),RDREW) Z(1) = SCR2 CALL RDTRL (Z(1)) CALL WRITE (SCR1,Z(IZ2),6,1) CALL CPYFIL(SCR2,SCR1,Z,LCORE,ICOUNT) CALL WRITE (SCR1,EOI,1,1) CALL CLOSE (SCR2,1) 1590 CONTINUE 1600 CONTINUE C C COPY ALL ITEMS BACK TO THE SOF C CALL CLOSE (SCR1,REW) CALL OPEN (*1860,SCR1,Z(BUF4),RDREW) C C RE-INITIALIZE THE SOF, THEN RESTORE THE OLD DIT AND MDI C CALL SOFCLS STATUS= 0 FIRST =.TRUE. CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3)) CALL PAGE ISS = 0 1610 CALL READ (*1870,*1620,SCR1,BUF,4,0,FLAG) ISS = ISS + 1 IF (BUF(1) .EQ. BLANK) GO TO 1610 CALL CRSUB (BUF,I) CALL FMDI (I,J) COR(J+1) = BUF(3) COR(J+2) = BUF(4) MDIUP = .TRUE. GO TO 1610 C C READ HEADER RECORD AND FETCH THE SOF ITEM C 1620 CALL READ (*1730,*1880,SCR1,BUF,4,1,FLAG) KDH = ITTYPE(BUF(3)) IF (KDH .EQ. 1) GO TO 1660 CALL SFETCH (BUF,BUF(3),2,BUF(4)) C C COPY THE DATA C 1630 CALL READ (*1870,*1640,SCR1,Z,LCORE,0,FLAG) IF (Z(1) .EQ. EOI) GO TO 1650 CALL SUWRT (Z,LCORE,1) GO TO 1630 1640 IF (Z(1) .EQ. EOI) GO TO 1650 CALL SUWRT (Z,FLAG,2) GO TO 1630 C C EOI FOUND C 1650 CALL SUWRT (0,0,3) GO TO 1720 C C COPY IN MATRIX ITEMS C 1660 CALL OPEN (*2010,SCR2,Z(BUF5),WRTREW) CALL READ (*1870,*1880,SCR1,Z(IZ2),6,1,NW) Z(1) = SCR2 CALL WRTTRL (Z(1)) INBLK(1) = SCR1 OUTBLK(1) = SCR2 1670 CALL RECTYP (SCR1,ITYPE) IF (ITYPE .NE. 0) GO TO 1700 1680 CALL READ (*1870,*1690,SCR1,Z,LCORE,0,NW) CALL WRITE (SCR2,Z,LCORE,0) GO TO 1680 1690 IF (Z(1) .EQ. EOI) GO TO 1710 CALL WRITE (SCR2,Z,NW,1) GO TO 1670 1700 CALL CPYSTR (INBLK,OUTBLK,0,0) GO TO 1670 C C EOI FOUND C 1710 CALL CLOSE (SCR2,1) CALL MTRXO (SCR2,BUF,BUF(3),0,RC) 1720 CONTINUE LINE = LINE + 1 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,2350) UIM,BUF(1),BUF(2),BUF(3) GO TO 1620 C C COMPRESS COMPLETE C 1730 CALL CLOSE (SCR1,REW) C C ********************** C O D A ************************ C C NORMAL TERMINATION C 1740 CALL SOFCLS 1750 RETURN C C ERRORS CAUSING MODULE AND/OR JOB TERMINATION C 1800 WRITE (NOUT,2100) UWM,UNAME GO TO 1910 1810 WRITE (NOUT,2110) UWM,DEVICE GO TO 1910 1820 WRITE (NOUT,2140) UWM,MODE GO TO 1910 1830 WRITE (NOUT,2150) UWM,POS GO TO 1910 1840 WRITE (NOUT,2180) UWM GO TO 1910 1850 WRITE (NOUT,2190) SWM,UNAME CALL CLOSE (UNIT,NOREW) GO TO 1910 C 1860 N = -1 GO TO 2000 1870 N = -2 GO TO 2000 1880 N = -3 GO TO 2000 1890 N = 8 GO TO 2000 1900 N = -61 GO TO 2000 1910 CALL SOFCLS DRY = -2 WRITE (NOUT,2370) SIM RETURN C 2000 CALL SOFCLS CALL MESAGE (N,UNIT,SUBR) DRY = -2 WRITE (NOUT,2370) SIM RETURN C 2010 N = -1 GO TO 2040 2020 N = -2 GO TO 2040 2030 N = -3 2040 CALL SOFCLS CALL MESAGE (N,IFILE,SUBR) RETURN C C TEXT OF ERROR MESSAGES C 2100 FORMAT (A25,' 6334, EXIO DEVICE PARAMETER SPECIFIES TAPE, BUT ', 1 'UNIT ',2A4,' IS NOT A PHYSICAL TAPE') 2110 FORMAT (A25,' 6335, ',2A4,' IS AN INVALID DEVICE FOR MODULE EXIO') 2120 FORMAT (A29,' 6336, EXIO FILE IDENTIFICATION. PASSWORD= ',2A4, 1 ' DATE=',I3,1H/,I2,1H/,I2,7H TIME=,I3,1H.,I2,1H.,I2) 2130 FORMAT (A29,' 6337,',I6,' BLOCKS (',I4,' SUPERBLOCKS) OF THE SOF', 1 ' SUCCESSFULLY DUMPED TO EXTERNAL FILE ',2A4) 2140 FORMAT (A25,' 6338, ',2A4,' IS AN INVALID MODE PARAMETER FOR ', 1 'MODULE EXIO') 2150 FORMAT (A25,' 6339, ',2A4,' IS AN INVALID FILE POSITIONING ', 1 'PARAMETER FOR MODULE EXIO') 2160 FORMAT (A25,' 6340, SUBSTRUCTURE ',2A4,' ITEM ',A4, 1 ' PSEUDOEXISTS ONLY AND CANNOT BE COPIED OUT BY EXIO') 2170 FORMAT (A29,' 6341, SUBSTRUCTURE ',2A4,' ITEM ',A4, 1 ' SUCCESSFULLY COPIED FROM ',A4,' TO ',A4,2H (, 2 I2,1H/,I2,1H/,I2,2H, ,I2,1H.,I2,1H.,I2,1H)) 2180 FORMAT (A25,' 6342, SOF RESTORE OPERATION FAILED. THE RESIDENT ', 1 'SOF IS NOT EMPTY') 2190 FORMAT (A27,' 6343, ',2A4,' IS NOT AN EXTERNAL SOF FILE') 2200 FORMAT (A29,' 6344, SOF RESTORE OF ',I6,' BLOCKS SUCCESSFULLY ', 1 'COMPLETED') 2210 FORMAT (A25,' 6345, SUBSTRUCTURE ',2A4,' ITEM ',A4, 1 ' IS DUPLICATED ON EXTERNAL FILE ',2A4, /32X, 2 'OLDER VERSION (',I2,1H/,I2,1H/,I2,2H, ,I2,1H.,I2,1H.,I2, 3 ') IS IGNORED') 2220 FORMAT (A25,' 6346, SUBSTRUCTURE ',2A4,' ITEM ',A4, 1 ' NOT COPIED. IT ALREADY EXISTS ON THE SOF') 2230 FORMAT (A25,' 6348, SUBSTRUCTURE ',2A4,' ITEM ',A4, 1 ' NOT FOUND ON EXTERNAL FILE ',2A4) 2240 FORMAT (A29,' 6349, CONTENTS OF EXTERNAL SOF FILE ',2A4,' FOLLOW') 2250 FORMAT (5X,'SUBSTRUCTURE ',2A4,5X,'ITEM ',A4,10X,5HDATE ,I2,1H/, 1 I2,1H/,I2,10X,5HTIME ,I2,1H.,I2,1H.,I2) 2260 FORMAT (A25,' 6350, SOF APPEND OF FILE ',2A4,' FAILED') 2270 FORMAT (32X,'TOO MANY PHYSICAL SOF UNITS. MAXIMUM ALLOWED IS 10') 2280 FORMAT (32X,'THE SEQUENCE NUMBER OF THE EXTERNAL SOF FILE IS NOT', 1 ' 1') 2290 FORMAT (32X,'THE EXTERNAL SOF FILE MUST CONSIST OF ONLY ONLY ONE', 1 ' PHYSICAL UNIT') 2300 FORMAT(32X,45HTHE EXTERNAL SOF HAS INCOMPATIBLE BLOCK SIZE., / 1 32X, 32HBLOCK SIZE OF THE RESIDENT SOF = ,I5, / 2 32X, 32HBLOCK SIZE OF THE EXTERNAL SOF = ,I5 ) 2310 FORMAT (32X,17HINVALID PASSWORD.) 2320 FORMAT (A25,' 6351, DUPLICATE SUBSTRUCTURE NAME ',2A4, 1 ' FOUND DURING SOF APPEND OF FILE ',2A4, /32X, 2 'THE SUBSTRUCTURE WITH THIS NAME ON THE FILE BEING ', 3 'APPENDED WILL BE PREFIXED WITH Q') 2330 FORMAT (1H0,31X, 37HPREFIX FAILED. SUBSTRUCTURE IGNORED.) 2340 FORMAT (A29,' 6352, EXTERNAL SOF FILE ',2A4, 1 ' SUCCESSFULLY APPENDED TO THE RESIDENT SOF') 2350 FORMAT (A29,' 6353, SUBSTRUCTURE ',2A4,' ITEM ',A4, 1 ' HAS BEEN SUCCESSFULLY COMPRESSED') 2360 FORMAT (A29,' 6354, THERE ARE',I7,' FREE BLOCKS (',I9, 1 ' WORDS) ON THE RESIDENT SOF') 2370 FORMAT (A31,' 6355, EXIO TERMINATED WITH ERRORS. DRY RUN MODE ', 1 'ENTERED') END ================================================ FILE: mis/exio2.f ================================================ SUBROUTINE EXIO2 C C EXIO2 COPIES SUBSTRUCTURE ITEMS BETWEEN THE SOF AND AN EXTERNAL C TAPE USING FORTRAN FORMATTED IO. THE TAPE COULD HAVE BEEN CREATED C OR COULD BE READ ON A DIFFERENT BRAND OF COMPUTER. C C LOGICAL UNIVAC INTEGER DRY ,XBLK ,UNAME ,POS , 1 UNIT ,FORT ,NUM(32) ,SOFIN , 2 SOFOUT ,REWI ,EQF CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /BLANK / DRY ,XBLK ,DEVICE(2),UNAME(2) , 1 FORMT(2) ,MODE(2) ,POS(2) ,DATYPE(2), 2 NAMES(10),UNIT ,UNIVAC ,LBUF , 3 IADD COMMON /SYSTEM/ SYSBUF ,NOUT ,X1(36) ,NBPC , 1 NBPW ,NCPW DATA FORT , SOFIN ,SOFOUT ,REWI ,EQF / 1 4HFORT, 4HSOFI ,4HSOFO ,4HREWI ,4HEOF / DATA NUM / 1 2H1 , 2H2 ,2H3 ,2H4 ,2H5 , 2 2H6 , 2H7 ,2H8 ,2H9 ,2H10 , 3 2H11 , 2H12 ,2H13 ,2H14 ,2H15 , 4 2H16 , 2H17 ,2H18 ,2H19 ,2H20 , 5 2H21 , 2H22 ,2H23 ,2H24 ,2H25 , 6 2H26 , 2H27 ,2H28 ,2H29 ,2H30 , 7 2H31 , 2H32 / C C INITIALIZE C NOGO = 0 C C DECODE FORTRAN UNIT C IF (UNAME(1) .NE. FORT) GO TO 20 DO 10 I = 1,32 UNIT = I IF (UNAME(2) .EQ. NUM(UNIT)) GO TO 30 10 CONTINUE 20 NOGO = 1 CALL PAGE2 (-2) WRITE (NOUT,6356) UWM,UNAME C C DECODE MODE OF OPERATION C 30 IOMODE = 0 IF (MODE(1) .EQ. SOFOUT) IOMODE = 1 IF (MODE(1) .EQ. SOFIN ) IOMODE = 2 IF (IOMODE .GT. 0) GO TO 40 NOGO = 1 CALL PAGE2 (-2) WRITE (NOUT,6338) UWM,MODE C C IF ERRORS THEN QUIT C 40 IF (NOGO .EQ. 0) GO TO 50 DRY = -2 GO TO 300 C C SET POSITION AND UNIVAC FLAGS C 50 UNIVAC = .TRUE. IF (XBLK .LE. 0) XBLK = 3960 XBLK = XBLK - MOD(XBLK,132) LBUF = XBLK/NCPW IF (MOD(XBLK,NCPW) .NE. 0) LBUF = LBUF + 1 IADD = 2 IF (POS(1) .EQ. REWI) IADD = 1 IF (POS(1) .EQ. EQF) IADD = 3 C C BRANCH ON MODE OF OPERATION C GO TO (100,200), IOMODE C C SOFOUT C 100 CALL EXO2 GO TO 300 C C SOFIN C 200 CALL EXI2 C C NORMAL MODULE COMPLETION C 300 RETURN C C MESSAGE TEXT C 6338 FORMAT (A25,' 6338, ',2A4,' IS AN INVALID MODE PARAMETER FOR ', 1 'MODULE EXIO') 6356 FORMAT (A25,' 6356, ',2A4,' IS AN INVALID UNIT FOR MODULE EXIO,', 1 ' EXTERNAL FORMAT') END ================================================ FILE: mis/exlvl.f ================================================ SUBROUTINE EXLVL (NOS,MD,NAME,Z,NWDS) C C EXLVL ADDS A SUBSTRUCTURE TO THE RESIDENT SOF FOR THE SOFIN C OPERATION. IT USES THE DIT AND MDI DATA WRITTEN ON THE EXTERNAL C FILE BY SOFOUT TO RESTORE THE HL, CS, AND LL POINTERS IN THE MDI. C EXTERNAL LSHIFT ,RSHIFT ,ANDF ,ORF LOGICAL MDIUP INTEGER MD(4,1) ,NAME(2) ,BUF ,ANDF ,RSHIFT , 1 PS ,CS ,HL ,TP ,Z(2) , 2 SUBR(2) ,ORF COMMON /ZZZZZZ/ BUF(1) COMMON /SYSTEM/ SYSBUF ,NOUT ,X1(6) ,NLPP , 1 X2(2) ,LINE COMMON /SOF / X3(34) ,MDIUP DATA SUBR / 4HEXLV ,4HL / C C C ADD THE NEW SUBSTRUCTURE TO THE RESIDENT DIT. C CALL FDSUB (NAME,I) IF (I .NE. -1) GO TO 6104 CALL CRSUB (NAME,I) IF (NOS .LE. 0) GO TO 200 Z(1) = NAME(1) Z(2) = NAME(2) NSS = 1 ISS = 1 C C DECODE THE OLD MDI ENTRY C 5 DO 10 I = 1,NOS IF (MD(1,I).NE.Z(2*ISS-1) .OR. MD(2,I).NE.Z(2*ISS)) GO TO 10 PS = ANDF(MD(3,I),1023) TP = ANDF(RSHIFT(MD(3,I),20),1023) LL = RSHIFT(MD(4,I),20) CS = ANDF(RSHIFT(MD(4,I),10),1023) HL = ANDF(MD(4,I),1023) IOLD = I GO TO 15 10 CONTINUE C C SET NEW MDI POINTERS FOR HL, CS, AND LL IF THE SUBSTRUCTURES OF C THE ORIGINATING SOF WHICH ARE INDICATED THEREBY EXIST. C C C HIGHER LEVEL (HL) C 15 M = 0 IF (HL .EQ. 0) GO TO 30 CALL FDSUB (MD(1,HL),I) IF (I .GT. 0) GO TO 20 CALL CRSUB (MD(1,HL),I) NSS = NSS + 1 IF (2*NSS .GT. NWDS) GO TO 9008 Z(2*NSS-1) = MD(1,HL) Z(2*NSS ) = MD(2,HL) 20 M = I HL = I C C COMBINED SUBSTRUCTURE (CS) C 30 IF (CS .EQ. 0) GO TO 60 CALL FDSUB (MD(1,CS),J) IF (J .GT. 0) GO TO 50 CALL CRSUB (MD(1,CS),J) NSS = NSS + 1 IF (2*NSS .GT. NWDS) GO TO 9008 Z(2*NSS-1) = MD(1,CS) Z(2*NSS ) = MD(2,CS) 50 M = ORF(M,LSHIFT(J,10)) CS = J C C LOWER LEVEL (LL) C 60 IF (LL .EQ. 0) GO TO 90 CALL FDSUB (MD(1,LL),J) IF (J .GT. 0) GO TO 80 CALL CRSUB (MD(1,LL),J) NSS = NSS + 1 IF (2*NSS .GT. NWDS) GO TO 9008 Z(2*NSS-1) = MD(1,LL) Z(2*NSS ) = MD(2,LL) 80 M = ORF(M,LSHIFT(J,20)) LL = J C C UPDATE THE MDI C 90 CALL FDSUB (Z(2*ISS-1),J) CALL FMDI (J,I) BUF(I+1) = LSHIFT(TP,20) BUF(I+2) = M MDIUP =.TRUE. C C WRITE USER MESSAGES C NL = 2 IF (LL .NE. 0) NL = NL + 1 IF (CS .NE. 0) NL = NL + 1 IF (HL .NE. 0) NL = NL + 1 IF (PS .NE. 0) NL = NL + 3 IF (LINE+NL .GT. NLPP) CALL PAGE LINE = LINE + NL WRITE (NOUT,63470) Z(2*ISS-1),Z(2*ISS) IF (HL .EQ. 0) GO TO 100 CALL FDIT (HL,I) WRITE (NOUT,63471) BUF(I),BUF(I+1) 100 IF (CS .EQ. 0) GO TO 130 CALL FDIT (CS,I) WRITE (NOUT,63472) BUF(I),BUF(I+1) 130 IF (LL .EQ. 0) GO TO 160 CALL FDIT (LL,I) WRITE (NOUT,63473) BUF(I),BUF(I+1) 160 IF (PS .EQ. 0) GO TO 170 WRITE (NOUT,63590) Z(2*ISS-1),Z(2*ISS) 170 ISS = ISS + 1 IF (ISS-NSS) 5,5,210 C C SUBSTRUCTURE ADDED TO SOF SUCCESSFULLY C 200 WRITE (NOUT,63470) NAME 210 RETURN C C SUBSTRUCTURE NAME WAS DUPLICATED C 6104 CALL SMSG (4,0,NAME) RETURN C C INSUFFICIENT CORE C 9008 CALL MESAGE (-8,0,SUBR) RETURN C C MESSAGE TEXT C 63470 FORMAT (49H0*** USER INFORMATION MESSAGE 6347, SUBSTRUCTURE , 1 2A4,18H ADDED TO THE SOF.) 63471 FORMAT (5X, 25HHIGHER LEVEL SUBSTRUCTURE,2X,2A4) 63472 FORMAT (5X, 25HCOMBINED SUBSTRUCTURE ,6(2X,2A4)) 63473 FORMAT (5X, 25HLOWER LEVEL SUBSTRUCTURE ,7(2X,2A4)) 63590 FORMAT (49H0*** USER INFORMATION MESSAGE 6359, SUBSTRUCTURE , 1 2A4,41H WAS ORIGINALLY A SECONDARY SUBSTRUCTURE./36X, 2 42HON THIS SOF, IT IS A PRIMARY SUBSTRUCTURE.) END ================================================ FILE: mis/exo2.f ================================================ SUBROUTINE EXO2 C C EXO2 PERFORMS EXTERNAL FORMAT SOFOUT OPERATIONS C EXTERNAL RSHIFT ,ANDF LOGICAL UNIVAC INTEGER DRY ,COR(1) ,UNAME ,TYPE ,UNIT , 1 ITMS(50) ,SYSBUF ,A ,EOL ,EOR , 2 DITSIZ ,Z ,ALL ,Q4 ,T3 , 3 MATRIC ,TABLES ,PHASE3 ,WHOLE(2) ,SUBR(2) , 4 BLANK ,SOF ,XXXX ,SRD ,PRC , 5 SWRT ,EOG ,EOI ,SP ,BAR , 6 SCR1 ,BUF1 ,BUF2 ,BUF3 ,ELTYPE , 7 BUF4 ,RC ,HDR(7) ,TYPOUT ,BDIT , 8 BMDI ,RSHIFT ,ANDF ,OFFSET INTEGER EQSS ,BGSS ,CSTM ,LODS ,LOAP , 1 PLTS ,SOLN ,LAMS DOUBLE PRECISION DZ(1) ,DA CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 , 1 SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM , 1 SWM COMMON /BLANK / DRY ,X1(3) ,UNAME(2) ,X2(6) , 1 TYPE(2) ,NAMES(10),UNIT ,UNIVAC , 2 LBUF ,IADD COMMON /SYSTEM/ SYSBUF ,NOUT ,X3(6) ,NLPP , 1 X4(2) ,LINE ,X6(9) ,MACH COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW COMMON /TYPE / PRC(2) ,NWORD(4) COMMON /ZNTPKX/ A(4) ,IROW ,EOL ,EOR COMMON /SOF / X5(3) ,DITSIZ COMMON /ITEMDT/ NITEM ,ITEMS(7,1) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (COR(1) ,Z(1)) EQUIVALENCE (Z(1) ,DZ(1)) ,(A(1) ,DA) DATA ALL ,MATRIC ,TABLES ,PHASE3 ,WHOLE / 1 4HALL ,4HMATR ,4HTABL ,4HPHAS ,4HWHOL ,4HESOF/, 2 SUBR ,BLANK ,SOF ,XXXX / 3 4HEXO2 ,4H ,4H ,4HSOF ,4HXXXX /, 4 EQSS ,BGSS ,CSTM ,LODS ,LOAP / 5 4HEQSS ,4HBGSS ,4HCSTM ,4HLODS ,4HLOAP /, 6 PLTS ,SOLN ,LAMS ,Q4 ,T3 ,BAR / 7 4HPLTS ,4HSOLN ,4HLAMS ,2HQ4 ,2HT3 ,2HBR /, 8 SRD ,SWRT ,MORE ,EOG ,EOI ,SP / 9 1 ,2 ,1 ,2 ,3 ,1 /, O JH ,SCR1 ,BDIT ,BMDI / A 1 ,301 ,4HDIT ,4HMDI / C C INITIALIZE C IF (NITEM .GT. 50) CALL ERRMKN (23,10) NCORE = KORSZ(Z) I = NCORE - LBUF IF (MACH .EQ. 4) I = I - LBUF NCORE = I - 1 IRW = IADD IADD = I CALL EXFORT (3,UNIT,0,0,IRW,0,0) BUF1 = NCORE - SYSBUF + 1 BUF2 = BUF1 - SYSBUF - 1 BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF NCORE = BUF4 - 1 IF (BUF4 .LE. 0) GO TO 9008 CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3)) C C CONSTRUCT ARRAY OF NAMES OF ITEMS TO BE COPIED C IF (TYPE(1) .NE. ALL) GO TO 10 NITEMS = NITEM DO 5 I = 1,NITEM 5 ITMS(I) = ITEMS(1,I) GO TO 70 10 IF (TYPE(1) .NE. TABLES) GO TO 20 NITEMS = 0 DO 15 I = 1,NITEM IF (ITEMS(2,I) .GT. 0) GO TO 15 NITEMS = NITEMS + 1 ITMS(NITEMS) = ITEMS(1,I) 15 CONTINUE GO TO 70 20 IF (TYPE(1) .NE. MATRIC) GO TO 50 NITEMS = 0 DO 30 I = 1,NITEM IF (ITEMS(2,I) .LE. 0) GO TO 30 NITEMS = NITEMS + 1 ITMS(NITEMS) = ITEMS(1,I) 30 CONTINUE GO TO 70 50 IF (TYPE(1) .NE. PHASE3) GO TO 60 NITEMS = 0 DO 55 I = 1,NITEM IF (ANDF(ITEMS(7,I),8) .EQ. 0) GO TO 55 NITEMS = NITEMS + 1 ITMS(NITEMS) = ITEMS(1,I) 55 CONTINUE GO TO 70 60 NITEMS = 2 ITMS(1) = TYPE(1) ITMS(2) = TYPE(2) IF (ITMS(2) .EQ. BLANK) NITEMS = 1 C C PUT NAMES OF ALL SUBSTRUCTURES TO BE COPIED AT TOP OF OPEN CORE C 70 NSS = 0 IF (NAMES(1).EQ.WHOLE(1) .AND. NAMES(2).EQ.WHOLE(2)) GO TO 90 DO 80 I = 1,9,2 IF (NAMES(I) .EQ. XXXX) GO TO 80 NSS = NSS + 1 IF (2*NSS .GT. NCORE) GO TO 9008 Z(2*NSS-1) = NAMES(I ) Z(2*NSS ) = NAMES(I+1) 80 CONTINUE GO TO 110 90 N = DITSIZ/2 DO 100 I = 1,N CALL FDIT (I,J) IF (COR(J) .EQ. BLANK) GO TO 100 NSS = NSS + 1 IF (2*NSS .GT. NCORE) GO TO 9008 Z(2*NSS-1) = COR(J) Z(2*NSS ) = COR(J+1) 100 CONTINUE 110 ICORE = 2*NSS + 3 LCORE = NCORE - ICORE + 1 IDPCOR = ICORE/2 + 1 CALL PAGE C C WRITE OUT DIT AND MDI CONTROL WORDS C N = DITSIZ/2 IF (6*N .GT. LCORE) GO TO 9008 HDR(1) = BDIT HDR(2) = BLANK HDR(3) = BLANK HDR(4) = 2 HDR(5) = DITSIZ HDR(6) = SP HDR(7) = EOG CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) DO 112 I = 1,N CALL FDIT (I,J) Z(ICORE+2*I-2) = COR(J) Z(ICORE+2*I-1) = COR(J+1) 112 CONTINUE CALL EXFORT (SWRT,UNIT,2,Z(ICORE),DITSIZ,SP,0) HDR(1) = BMDI HDR(4) = 10 HDR(5) = 6*N HDR(7) = EOI CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) K = ICORE DO 114 I = 1,N CALL FMDI (I,J) Z(K ) = RSHIFT(COR(J+1),20) Z(K+1) = ANDF(RSHIFT(COR(J+1),10),1023) Z(K+2) = ANDF(COR(J+1),1023) Z(K+3) = ANDF(RSHIFT(COR(J+2),20),1023) Z(K+4) = ANDF(RSHIFT(COR(J+2),10),1023) Z(K+5) = ANDF(COR(J+2),1023) K = K + 6 114 CONTINUE CALL EXFORT (SWRT,UNIT,10,Z(ICORE),6*N,SP,0) C C LOOP OVER ALL SUBSTRUCTURES AND ITEMS, COPYING EACH ONE TO THE C EXTERNAL FILE C DO 1000 ISS = 1,NSS HDR(1) = Z(2*ISS-1) HDR(2) = Z(2*ISS) DO 990 ITEM = 1,NITEMS HDR(3) = ITMS(ITEM) ITM = ITTYPE (ITMS(ITEM)) IF (ITM .EQ. 1) GO TO 800 CALL SFETCH (HDR,HDR(3),SRD,RC) GO TO (140,120,990,120,120), RC 120 LINE = LINE + 2 IF (LINE .GT. NLPP) CALL PAGE IF (RC .GT. 3) GO TO 130 WRITE (NOUT,6340) UWM,(HDR(I),I=1,3) GO TO 990 130 CALL SMSG (RC-2,HDR(3),HDR) GO TO 990 140 CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .NE. 2) GO TO 9008 C IF (ITMS(ITEM) .EQ. EQSS) GO TO 200 IF (ITMS(ITEM) .EQ. BGSS) GO TO 300 IF (ITMS(ITEM) .EQ. CSTM) GO TO 400 IF (ITMS(ITEM) .EQ. LODS) GO TO 500 IF (ITMS(ITEM) .EQ. LOAP) GO TO 500 IF (ITMS(ITEM) .EQ. PLTS) GO TO 600 IF (ITMS(ITEM) .EQ. SOLN) GO TO 700 IF (ITMS(ITEM) .EQ. LAMS) GO TO 700 GO TO 1100 C C EQSS C C GROUP 0 C 200 N = NWDS NS = Z(ICORE+2) IF (NS .GT. 13) N = 30 HDR(4) = 3 HDR(5) = N HDR(6) = SP HDR(7) = EOG IF (N .LT. NWDS) HDR(7) = MORE CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,3,Z(ICORE),N,SP,0) IF (N .EQ. NWDS) GO TO 210 HDR(4) = 2 HDR(5) = NWDS - N HDR(7) = EOG CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,2,Z(ICORE+N),NWDS-N,SP,0) C C GROUPS 1 TO NS + 1 C 210 HDR(4) = 10 NS = NS + 1 DO 220 J = 1,NS CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .NE. 2) GO TO 9008 HDR(5) = NWDS IF (J .EQ. NS) HDR(7) = EOI CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,10,Z(ICORE),NWDS,SP,0) 220 CONTINUE GO TO 900 C C BGSS C C GROUP 0 C 300 HDR(4) = 3 HDR(5) = 3 HDR(6) = SP HDR(7) = EOG CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,3,Z(ICORE),3,SP,0) C C GROUP 1 C CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .NE. 2) GO TO 9008 HDR(4) = 6 HDR(5) = NWDS HDR(7) = EOI CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,6,Z(ICORE),NWDS,SP,0) GO TO 900 C C CSTM C C GROUP 0 C 400 HDR(4) = 3 HDR(5) = 2 HDR(6) = SP HDR(7) = EOG CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,3,Z(ICORE),2,SP,0) C C GROUP 1 C IF (ICORE+13 .GT. NCORE) GO TO 9008 420 CALL SUREAD (Z(ICORE),14,NWDS,RC) IF (RC .EQ. 2) GO TO 430 HDR(4) = 8 HDR(5) = 4 HDR(7) = MORE CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,8,Z(ICORE),4,SP,0) HDR(4) = 9 HDR(5) = 10 CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,9,Z(ICORE+4),10,SP,0) GO TO 420 430 HDR(5) = 0 HDR(7) = EOG CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) HDR(4) = 0 HDR(7) = EOI CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) GO TO 900 C C LODS AND LOAP C C GROUP 0 C 500 N = NWDS NS = Z(ICORE+3) IF (NS .GT. 13) N = 30 HDR(4) = 3 HDR(5) = N HDR(6) = SP HDR(7) = EOG IF (N .LT. NWDS) HDR(7) = MORE CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,3,Z(ICORE),N,SP,0) IF (N .EQ. NWDS) GO TO 510 HDR(4) = 2 HDR(5) = NWDS - N HDR(7) = EOG CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,2,Z(ICORE+N),NWDS-N,SP,0) C C GROUP 1 TO NS C 510 HDR(4) = 10 DO 520 J = 1,NS CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .NE. 2) GO TO 9008 HDR(5) = NWDS IF (J .EQ. NS) HDR(7) = EOI CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,10,Z(ICORE),NWDS,SP,0) 520 CONTINUE GO TO 900 C C PLTS C C GROUP 0 C 600 N = NWDS NS = Z(ICORE+2) HDR(6) = SP HDR(4) = 3 HDR(5) = 3 HDR(7) = MORE CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,3,Z(ICORE),3,SP,0) DO 620 J = 1,NS HDR(4) = 13 HDR(5) = 4 CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,13,Z(ICORE+14*J-11),4,SP,0) HDR(4) = 9 HDR(5) = 10 IF (J .EQ. NS) HDR(7) = EOG CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,9,Z(ICORE+14*J-7),10,SP,0) 620 CONTINUE C C GROUP 1 -- BGPDT C CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .EQ. 3) GO TO 680 IF (RC .NE. 2) GO TO 9008 HDR(4) = 6 HDR(5) = NWDS CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,6,Z(ICORE),NWDS,SP,0) C C GROUP 2 -- EQEXIN C CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .NE. 2) GO TO 9008 HDR(4) = 10 HDR(5) = NWDS CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,10,Z(ICORE),NWDS,SP,0) C C GROUP 3 -- GPSETS C CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .NE. 2) GO TO 9008 HDR(4) = 10 HDR(5) = NWDS CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,10,Z(ICORE),NWDS,SP,0) C C GROUP 4 -- ELSETS C C OUTPUT CHANGES MADE BY G.CHAN/UNISYS 4/91 C C IN 90 AND EARLIER VERSIONS, ONLY ONE ELEMENT PLOT SYMBOL WORD WAS C WRITTEN OUT USING FORMAT 2, AND ON NEXT ELSETS DATA LINE, FORMAT C 10 WAS USED FOR ALL ELEMENTS. NO OFFSET DATA WAS PROVIDED FOR THE C BAR, QUAD4 AND TRIA3 ELEMENTS. THE NO. OF GRID POINT PER ELEMENT, C NGPEL, WAS THE FIRST WORD ON THE ELSETS DATA LINE. (LINE=RECORD) C ALSO, THE 90 AND EARLIER VERSIONS DID NOT COUNT PROPERTY ID, PID, C ON THE ELSETS DATA LINE. THUS THE TOTAL NO. OF WORDS MAY BE IN C ERROR AND MAY CAUSE EXTRA ZEROS TO APPEAR AT THE END OF THE LINE. C C IN 91 VERSION, ELEMENT PLOT SYMBOL LINE HAS 2 WORDS, SYMBOL AND C NGPEL, AND FORMAT 25 IS USED. ON NEXT ELSETS DATA LINE, FORMAT 10 C IS USED FOR ALL ELEMENTS WITH NO OFFSETS. FORMAT 26 IS USED FOR C THE BAR WHICH HAS 6 OFFSET VALUES, AND FORMATS 27 AND 28 ARE USED C FOR TRIA3 AND QUAD4 WHICH HAVE 1 OFFSET VALUE EACH. NOTE THAT C NGPEL HAS BEEN MOVED, AND IS NO LONGER THE FIRST WORD ON THE C ELSETS DATA LINE. C HDR(7) = MORE C C READ PLOT SYMBOL, AND NO. OF GRID POINTS PER ELEMENT C SET UP NO. OF OFFSET DATA FOR BAR, QUAD4 AND TRIA3 C 640 CALL SUREAD (Z(ICORE),2,NWDS,RC) IF (RC .GE. 2) GO TO 670 HDR(4) = 25 HDR(5) = 2 NGPEL = Z(ICORE+1) ELTYPE = Z(ICORE ) OFFSET = 0 IF (ELTYPE .EQ. BAR) OFFSET = 6 IF (ELTYPE.EQ.Q4 .OR. ELTYPE.EQ.T3) OFFSET = 1 CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,25,Z(ICORE),2,SP,0) C C READ ELEMENT ID NUMBER, PROPERTY ID, GRID POINT CONNECTION INDICES C AND OFFSETS IF THEY EXIST C (ERROR IN 90 AND EARLIER VERSIONS, PROPERTY ID WAS LEFT OUT, AND C THEREFORE DATA COUNT PER ELEMENT WAS INCORRECT) C N = ICORE - NGPEL - 2 - OFFSET 650 N = N + NGPEL + 2 + OFFSET IF (N .GT. NCORE) GO TO 9008 CALL SUREAD (Z(N),1,NWDS,RC) IF (Z(N) .EQ. 0) GO TO 655 IF (N+NGPEL+2+OFFSET .GT. NCORE) GO TO 9008 CALL SUREAD (Z(N+1),NGPEL+1,NWDS,RC) IF (OFFSET .NE. 0) CALL SUREAD (Z(N+NGPEL+2),OFFSET,NWDS,RC) GO TO (650,6100,6100), RC C C ALL ELEMENTS OF ONE TYPE READ INTO CORE, NOW COPY OUT C 655 HDR(5) = N - ICORE + 1 IF (OFFSET-1) 660, 661, 663 C REGULAR QUAD4 BAR C ELEMENT TRIA3 C 660 HDR(4) = 10 GO TO 665 661 HDR(4) = 27 IF (ELTYPE .EQ. Q4) HDR(4) = 28 GO TO 665 663 HDR(4) = 26 665 CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,HDR(4),Z(ICORE),HDR(5),SP,0) GO TO 640 C C WRITE END-OF-ITEM FOR PLTS C 670 HDR(5) = 0 HDR(7) = EOG CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) 680 HDR(4) = 0 HDR(5) = 0 HDR(7) = EOI CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) GO TO 900 C C SOLN AND LAMS C 700 IRFNO = Z(ICORE+2) IF (IRFNO .EQ. 1) GO TO 715 IF (IRFNO .EQ. 2) GO TO 715 IF (IRFNO .EQ. 3) GO TO 730 IF (IRFNO .EQ. 8) GO TO 750 IF (IRFNO .EQ. 9) GO TO 750 LINE = LINE + 2 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,6358) SWM,IRFNO,HDR(1),HDR(2) GO TO 900 C C GROUP 0 -- STATICS C 715 N = NWDS NS = Z(ICORE+3) IF (NS .GT. 6) N = 23 NS = Z(ICORE+4) HDR(4) = 16 HDR(5) = N HDR(6) = SP HDR(7) = EOG IF (N .LT. NWDS) HDR(7) = MORE CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,16,Z(ICORE),N,SP,0) IF (N .EQ. NWDS) GO TO 710 HDR(4) = 17 HDR(5) = NWDS - N HDR(7) = EOG CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,17,Z(ICORE+N),NWDS-N,SP,0) C C GROUPS 1 TO NS (ONE PER SUBCASE) -- STATICS C 710 DO 720 J = 1,NS CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .NE. 2) GO TO 9008 N = NWDS IF (Z(ICORE) .GT. 5) N = 11 HDR(4) = 18 HDR(5) = N HDR(7) = EOG IF (J .EQ. NS) HDR(7) = EOI IF (N .LT. NWDS) HDR(7) = MORE CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,18,Z(ICORE),N,SP,0) IF (N .EQ. NWDS) GO TO 720 HDR(4) = 19 HDR(5) = NWDS - N HDR(7) = EOG IF (J .EQ. NS) HDR(7) = EOI CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,19,Z(ICORE+N),NWDS-N,SP,0) 720 CONTINUE GO TO 900 C C GROUP 0 -- NORMAL MODES (REAL OR COMPLEX) C 730 NS = Z(ICORE+3) HDR(4) = 3 HDR(5) = 4 HDR(6) = SP HDR(7) = EOG IF (NS .LE. 0) HDR(7) = EOI CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,3,Z(ICORE),4,SP,0) IF (NS .LE. 0) GO TO 900 C C GROUP 1 -- NORMAL MODES C CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .NE. 2) GO TO 9008 HDR(4) = 20 HDR(5) = NWDS HDR(7) = EOI IF (ITMS(ITEM) .EQ. LAMS) HDR(7) = EOG CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,20,Z(ICORE),NWDS,SP,0) IF (ITMS(ITEM) .NE. LAMS) GO TO 900 C C GROUP 2 -- NORMAL MODES (LAMS ITEM ONLY) C CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .NE. 2) GO TO 9008 HDR(4) = 10 HDR(5) = NWDS HDR(7) = EOI CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,10,Z(ICORE),NWDS,SP,0) GO TO 900 C C GROUP 0 -- DYNAMICS C 750 NS = Z(ICORE+3) NWDS0 = 3*NS + 5 N = NWDS0 IF (NS .GT. 6) N = 23 NS = Z(ICORE+4) + 1 IF (Z(ICORE+NWDS0) .EQ. 0) NS = 1 HDR(4) = 16 HDR(5) = N HDR(6) = SP HDR(7) = MORE CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,16,Z(ICORE),N,SP,0) IF (N .EQ. NWDS0) GO TO 760 HDR(4) = 17 HDR(5) = NWDS0 - N CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,17,Z(ICORE+N),NWDS0-N,SP,0) 760 HDR(4) = 10 HDR(5) = NWDS - NWDS0 HDR(7) = EOG CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,10,Z(ICORE+NWDS0),NWDS-NWDS0,SP,0) C C GROUP 1 TO NS+1 -- DYNAMICS C DO 770 J = 1,NS CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .NE. 2) GO TO 9008 HDR(4) = 9 HDR(5) = NWDS HDR(7) = EOG IF (J .EQ. NS) HDR(7) = EOI CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,9,Z(ICORE),NWDS,SP,0) 770 CONTINUE GO TO 900 C C UNKNOWN TABLE ITME C 1100 LINE = LINE + 2 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,6360) SWM,ITMS(ITEM) GO TO 990 C C MATRICES C C ON CDC MACHINE (NOT ANY 64-BIT MACHINE), FORCE ALL MATRIX DATA TO C BE DOUBLE PRECISION SO THE EXTRA DIGITS WONT BE LOST GOING TO C OTHER MACHINES C C GROUP 0 -- MATRIX TRAILER C 800 CALL SOFTRL (HDR,HDR(3),Z(ICORE-1)) RC = Z(ICORE-1) GO TO (805,120,990,120,120), RC 805 TYPOUT = Z(ICORE+3) IF (MACH.EQ.4 .AND. PRC(TYPOUT).EQ.1) TYPOUT = TYPOUT + 1 Z(ICORE+3) = TYPOUT NCOL = Z(ICORE) HDR(4) = 10 HDR(5) = 6 HDR(6) = SP HDR(7) = EOG CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,10,Z(ICORE),6,SP,0) C C MOVE MATRIX TO SCR2 C CALL MTRXI (SCR1,HDR,HDR(3),Z(BUF4),RC) CALL GOPEN (SCR1,Z(BUF4),RDREW) C C COPY MATRIX OUT ONE COLUMN AT A TIME, NON-ZEROES ONLY. C C ROW NO. + C VALUE + C ROW NO. + C VALUE I FORMAT OF ONE MATRIX C . I COLUMN ON THE EXTERNAL C . I FILE. C . + C -1 + C 0.0 + C HDR(4) = 20 + TYPOUT HDR(6) = TYPOUT IPRC = PRC(TYPOUT) N = NWORD(TYPOUT) + IPRC N2 = NWORD(TYPOUT) + 1 DO 830 J = 1,NCOL NWDS = 0 K = ICORE CALL INTPK (*820,SCR1,0,TYPOUT,0) 810 CALL ZNTPKI Z(K ) = IROW Z(K+IPRC) = A(1) IF (TYPOUT .EQ. 1) GO TO 815 Z(K+IPRC+1) = A(2) IF (TYPOUT .LE. 3) GO TO 815 Z(K+4) = A(3) Z(K+5) = A(4) 815 NWDS = NWDS + N2 K = K + N IF (K+N .GT. NCORE) GO TO 9008 IF (EOL .EQ. 0) GO TO 810 820 Z(K) = -1 Z(K+IPRC ) = 0 Z(K+IPRC+1) = 0 Z(K+4) = 0 Z(K+5) = 0 NWDS = NWDS + N2 HDR(5) = NWDS IF (J .EQ. NCOL) HDR(7) = EOI CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0) CALL EXFORT (SWRT,UNIT,20+TYPOUT,Z(ICORE),NWDS,TYPOUT,DZ(IDPCOR)) 830 CONTINUE CALL CLOSE (SCR1,REW) C C WRITE USER MESSAGE FOR SUCCESSFUL COPY C 900 LINE = LINE + 1 IF (LINE .GT. NLPP) CALL PAGE WRITE (NOUT,6357) UIM,HDR(1),HDR(2),HDR(3),SOF,UNAME 990 CONTINUE 1000 CONTINUE C C NORMAL MODULE COMPLETION. WRITE LOGICAL EOF C CALL EXFORT (4,UNIT,0,0,1,0,0) CALL SOFCLS RETURN C C ABNORMAL MODULE COMPLETION C 6100 CALL SMSG (RC+4,ITMS(ITEM),HDR) GO TO 9100 9008 CALL MESAGE (8,0,SUBR) 9100 DRY = -2 CALL SOFCLS RETURN C C MESSAGE TEXT C 6340 FORMAT (A25,' 6340, SUBSTRUCTURE ',2A4,' ITEM ',A4, /5X, 1 ' PSEUDO-EXISTS ONLY AND CANNOT BE COPIED OUT BY EXIO.') 6357 FORMAT (A29,' 6357, SUBSTRUCTURE ',2A4,' ITEM ',A4, 1 ' SUCCESSFULLY COPIED FROM ',A4,' TO ',2A4) 6358 FORMAT (A27,' 6358, ILLEGAL RIGID FORMAT NUMBER ',I5, 1 ' IN SOLN ITEM FOR SUBSTRUCTURE ',2A4,1H., 2 /34X,'THE ITEM WILL NOT BE COPIED.') 6360 FORMAT (A27,' 6360, SOFOUT (EXTERNAL) ENCOUNTERS A UNSUPPORTED ', 1 'TABLE ITEM ',A4, /35X,'THE ITEM WILL NOT BE COPIED.') END ================================================ FILE: mis/extern.f ================================================ SUBROUTINE EXTERN (NEX,NGRAV,GVECT,ILIST,PG,N1,IHARM) C C GENERATES EXTERNAL LOADS C IMPLICIT INTEGER (A-Z) INTEGER PG(1),ILIST(1),NAME(2),IZ(1) REAL CORE,GVECT(1) COMMON /TRANX / IDUM(14) COMMON /BLANK / NROWSP COMMON /ZZZZZZ/ CORE(1) COMMON /LOADX / LCARE,SLT,BGPDT,OLD,CSTM,SIL,ISIL,EST,MPT,NN(7), 1 NOBLD,IDIT,ICM,ILID COMMON /SYSTEM/ SYSBUF COMMON /PACKX / ITYA,ITYB,II,JJ,INCUR COMMON /HMATDD/ IIHMAT,NNHMAT,MPTFIL,IDITFL COMMON /PINDEX/ IEST(45) COMMON /GPTA1 / JDUM EQUIVALENCE (CORE(1),IZ(1)) DATA CASECC, PERMBD,HCFLDS,REMFLS,SCR6,HCCENS, NAME / 1 110 , 112 ,304 ,305 ,306 ,307 , 4HEXTE,4HRN / C IEST(1) =-1 IDUM(1) = 0 JOPEN = 0 IPRE = 0 INCUR = 1 II = 1 JJ = NROWSP NGRAV = 0 OLD = 0 ICM = 1 ITYA = 1 ITYB = 1 IBUF1 = LCARE - SYSBUF + 1 IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF IBUF5 = IBUF4 - SYSBUF LCORE = IBUF5 - SYSBUF CALL GOPEN (SLT,CORE(IBUF1),0) CALL GOPEN (BGPDT,CORE(IBUF2),0) FILE = CSTM CALL OPEN (*20,CSTM,CORE(IBUF3),0) ICM = 0 CALL SKPREC (CSTM,1) 20 CALL GOPEN (SIL,CORE(IBUF4),0) FILE = SLT ISIL = 0 IF (LCORE .LT. NROWSP) GO TO 1580 C III = 1 DO 1400 NLOOP = 1,N1 C ILID = ILIST(III) IF (ILID .NE. 0) GO TO 30 CALL SKPREC (SLT,1) GO TO 1310 30 DO 40 I = 1,NROWSP 40 CORE(I) = 0.0 NOGRAV = 0 NGROLD = NGRAV 50 CALL READ (*1520,*1300,SLT,NOBLD,1,0,FLAG) CALL FREAD (SLT,IDO,1,0) IF (NOGRAV .EQ. 1) GO TO 1570 IF (NOBLD .EQ. -20) GO TO 800 GO TO (100,100,120,120,140,140,160,200,220,300, 1 320,340,600,620,630,640,360,700,730,800, 2 800,800,800,800,400), NOBLD 100 DO 110 J = 1,IDO 110 CALL DIRECT GO TO 50 120 DO 130 J = 1,IDO 130 CALL TPONT GO TO 50 140 DO 150 J = 1,IDO 150 CALL FPONT GO TO 50 160 DO 170 J = 1,IDO 170 CALL SLOAD GO TO 50 200 IF (NOGRAV .EQ. 2) GO TO 1570 DO 210 J = 1,IDO CALL GRAV (NGRAV,GVECT(1),NEX,ILIST(1),NLOOP) 210 CONTINUE NOGRAV = 1 GO TO 50 220 DO 230 J = 1,IDO 230 CALL PLOAD GO TO 50 C C RFORCE CARDS C 300 DO 310 J = 1,IDO 310 CALL RFORCE (LCORE) GO TO 50 C C PRESAX CARDS C 320 DO 330 J = 1,IDO 330 CALL PRESAX (IHARM) GO TO 50 C C QHBDY CARDS C 340 DO 350 J = 1,IDO CALL QHBDY 350 CONTINUE GO TO 50 C C PLOAD3 CARDS C 360 DO 370 J = 1,IDO 370 CALL PLOAD3 GO TO 50 C C PLOAD4 CARDS C 400 CALL PLOAD4 (IBUF5,IDO,JOPEN) GO TO 50 C C QVOL CARDS (MODIFIED USER ENTRYS) C 600 DO 610 J = 1,IDO CALL QVOL 610 CONTINUE GO TO 50 C C QBDY1 CARDS (MODIFIED USER ENTRYS) C 620 KKKK = 1 GO TO 650 C C QBDY2 CARDS (MODIFIED USER ENTRYS) C 630 KKKK = 2 GO TO 650 C C QVECT CARDS (MODIFIED USER ENTRYS) C 640 KKKK = 3 650 DO 660 J = 1,IDO CALL QLOADL (KKKK) 660 CONTINUE GO TO 50 C C PLOAD1 CARDS C 700 IF (IPRE .EQ. 1) GO TO 710 IPRE = 1 LCORE = LCORE - SYSBUF - 1 MCORE = LCORE - NROWSP - 1 IF (LCORE .LT. NROWSP) GO TO 1580 CALL PREMAT (CORE(NROWSP+1),CORE(NROWSP+1),CORE(LCORE),MCORE, 1 NCORE,MPT,IDIT) 710 DO 720 J = 1,IDO CALL PLBAR1 (IDO,LCORE) 720 CONTINUE GO TO 50 C C PLOADX CARDS C 730 DO 740 J = 1,IDO CALL PLOADX 740 CONTINUE GO TO 50 C C CEMLOOP, SPCFLD, GEMLOOP, MDIPOLE, AND REMFLUX CARDS C C BRING HEAT MATERIALS INTO CORE C 800 IF (IPRE .EQ. 1) GO TO 1230 IPRE = 1 C C 1ST AND LAST AVAILABLE LOCATIONS IN OPEN CORE C IIHMAT = NROWSP NNHMAT = LCORE MPTFIL = MPT IDITFL = IDIT CALL PREHMA (CORE) C C NOW NNHMAT CONTAINS LAST LOCATION OF MATERIAL INFO C NEXTZ = NNHMAT + 1 C C OPEN HCFLDS TO CONTAIN APPLIED MAGNETIC FIELD LOAD C LCORE = LCORE - SYSBUF IF (LCORE .LE. NEXTZ) GO TO 1580 C C STORE SILS ON PERMBDY, IF ANY, INTO OPEN CORE C NBDYS = 0 FILE = PERMBD CALL OPEN (*820,PERMBD,CORE(LCORE+1),0) CALL FWDREC (*1520,PERMBD) CALL READ (*1520,*810,PERMBD,CORE(NEXTZ),LCORE-NEXTZ+1,0,NBDYS) GO TO 1580 810 CALL CLOSE (PERMBD,1) 820 CONTINUE NEXTZ = NEXTZ + NBDYS C C NOW CHECK FOR FORCE REQUESTS ON CASECC(MAGNETIC FIELD REQUESTS) C MAKE A UNIQUE LIST OF ELEMENT ID-S CORRESPONDING TO ALL SUBCASES. C IF A SUBCASE REQUESTS ALL, NO LIST IS NECESSARY. C ALL = 0 NELOUT = 0 IJ = 0 C C 1ST GET MAXIMUM LENGTH OF CASE CONTROL IN ORDER TO STORE ELEMENT C ID-S C NCC = 0 CALL GOPEN (CASECC,CORE(LCORE+1),0) 830 CALL READ (*850,*840,CASECC,CORE(NEXTZ),LCORE-NEXTZ+1,0,KCC) GO TO 1580 840 NCC = MAX0(NCC,KCC) GO TO 830 850 CALL REWIND (CASECC) CALL FWDREC (*1520,CASECC) KSET = NEXTZ + NCC C 860 CALL READ (*1200,*870,CASECC,CORE(NEXTZ),LCORE-NEXTZ+1,0,NCC) GO TO 1580 870 SETNO = IZ(NEXTZ+25) IF (SETNO .EQ. 0) GO TO 860 IF (SETNO .GT. 0) GO TO 1010 C C ALL C 1000 ALL = 1 NELOUT = 0 GO TO 1200 C C CREATE UNIQUE LIST OF ELEMENT ID-S C 1010 ILSYM = IZ(NEXTZ+165) ISETNO = ILSYM + IZ(ILSYM+NEXTZ-1) + NEXTZ 1020 ISET = ISETNO + 2 NSET = IZ(ISETNO+1) + ISET - 1 IF (IZ(ISETNO) .EQ. SETNO) GO TO 1030 ISETNO = NSET + 1 C C IF SET CANNOT BE FOUND, SET TO ALL. BUT SHOULD NOT HAPPEN C IF (ISETNO .LT. NCC+NEXTZ-1) GO TO 1020 GO TO 1000 C C PICK UP ELEMENT ID-S. STORE IN UNIQUE LIST C 1030 I = ISET 1040 IF (I .EQ. NSET) GO TO 1060 IF (IZ(I+1) .GT. 0) GO TO 1060 IB = IZ(I ) N =-IZ(I+1) I = I + 1 ASSIGN 1050 TO RET GO TO 1100 1050 IB = IB + 1 IF (IB .LE. N) GO TO 1100 GO TO 1070 1060 IB = IZ(I) ASSIGN 1070 TO RET GO TO 1100 1070 I = I + 1 IF (I .LE. NSET) GO TO 1040 C C DONE WITH THIS SET. GO BACK FOR ANOTHER C GO TO 860 C C SEARCH LIST OF ELEMENT ID-S. ADD ID TO LIST IF NOT A DUPLICATE C 1100 IF (IJ .NE. 0) GO TO 1110 MSET = KSET IZ(MSET) = IB NELOUT = 1 IJ = MSET GO TO RET, (1050,1070) 1110 DO 1120 J = MSET,IJ IF (IZ(J) .EQ. IB) GO TO RET, (1050,1070) 1120 CONTINUE IJ = IJ + 1 IF (IJ .LT. LCORE) GO TO 1130 GO TO 1000 1130 IZ(IJ) = IB NELOUT = NELOUT + 1 GO TO RET, (1050,1070) C C DONE WITH ALL CASES. IF ALL.NE.1, MOVE THE ID-S UP IN CORE C 1200 CALL CLOSE (CASECC,1) IF (ALL .EQ. 1) GO TO 1220 C DO 1210 J = 1,NELOUT 1210 IZ(NEXTZ+J-1) = IZ(MSET+J-1) NEXTZ = NEXTZ + NELOUT 1220 CONTINUE C CALL GOPEN (HCFLDS,CORE(LCORE+1),1) I = LCORE - SYSBUF J = I - SYSBUF LCORE = J - SYSBUF IF (LCORE .LE. NEXTZ) GO TO 1580 CALL GOPEN (REMFLS,CORE(I+1),1) CALL GOPEN (HCCENS,CORE(J+1),1) CALL GOPEN (SCR6,CORE(LCORE+1),1) C C NO DO LOOP ON IDO. IN EANDM WE WILL READ ALL CARDS C 1230 CALL EANDM (NOBLD,IDO,NEXTZ,LCORE,NBDYS,ALL,NELOUT) GO TO 50 C C 1300 IF (NGROLD .NE. NGRAV) GO TO 1400 CALL PACK (CORE,PG,PG(1)) 1310 III = III + 1 C 1400 CONTINUE C CALL CLOSE (BGPDT,1) IF (ICM .EQ. 0) CALL CLOSE (CSTM,1) CALL CLOSE (SLT,1) CALL CLOSE (SIL,1) IF (IPRE .NE. 1) GO TO 1410 CALL CLOSE (HCFLDS,1) CALL CLOSE (REMFLS,1) CALL CLOSE (HCCENS,1) CALL CLOSE (SCR6,1) 1410 CONTINUE RETURN C C FILE ERRORS C 1520 IP1 = -2 GO TO 1600 1570 IP1 = -7 GO TO 1600 1580 IP1 = -8 1600 CALL MESAGE (IP1,FILE,NAME(1)) RETURN END ================================================ FILE: mis/f6211.f ================================================ FUNCTION F6211(I,A,B,X) DIMENSION X(1) XX = X(I) IF ( (B * XX) ** 2 - A ** 2 ) 100,1,200 1 CONTINUE IF (A .NE. B * XX) GO TO 50 F6211=0.5* (ALOG(ABS(2.0 * B * XX))) ** 2 RETURN 50 CONTINUE F6211 = 0.0 RETURN 100 CONTINUE F6211 = ALOG(ABS(A)) * ALOG(ABS(XX)) C1 =-B * XX / A C2 = 1.0 J = 0 110 J = J + 1 AAJ = J C2 = C2 * C1 C3 = C2 / (AAJ ** 2) F6211 = F6211 - C3 IF (ABS(C3) .GT. 0.000001) GO TO 110 RETURN 200 CONTINUE F6211 = (ALOG(ABS(B * XX)) ** 2) / 2.0 C1 =-A / (B * XX) C2 = 1.0 J = 0 210 J = J + 1 AAJ = J C2 = C2 * C1 C3 = C2 / (AAJ ** 2) F6211 = F6211 + C3 IF (ABS(C3) .GT. 0.000001) GO TO 210 RETURN END ================================================ FILE: mis/f89.f ================================================ FUNCTION F89 (I,A,B,M,N,X) C DIMENSION X(1) C F89 = 0.0 CAPX = A + B*X(I) NFAC = M ASSIGN 5 TO IRET GO TO 1000 5 AMF = IFAC N1 = M + 1 N2 = N1 - N AN1 = N1 AN2 = N2 IS = 0 S = 0.0 SF = 1.0 AMMSF = AMF GO TO 50 10 IS = IS + 1 S = IS SF = SF*S AMMSF = AMMSF/(AN1-S) 50 CONTINUE N3 = N2 - IS IF (N3 .EQ. 0) GO TO 100 F89 = F89 + AMF*((-A)**IS)*(CAPX**N3)/(AMMSF*SF*(AN2-S)) GO TO 200 100 CONTINUE NFAC = N2 ASSIGN 110 TO IRET GO TO 1000 110 AMN1F = IFAC NFAC = N - 1 ASSIGN 120 TO IRET GO TO 1000 120 ANM1F = IFAC F89 = F89 + AMF*((-A)**N2)*ALOG(ABS(CAPX))/(AMN1F*ANM1F) 200 IF (IS .LT. M) GO TO 10 IF (B .EQ. 0.0) GO TO 300 F89 = F89/(B**N1) RETURN C 300 F89 = 0.0 RETURN C 1000 IFAC = 1 IF (NFAC .LT. 2) GO TO 1020 DO 1010 LFAC = 2,NFAC IFAC = IFAC*LFAC 1010 CONTINUE 1020 GO TO IRET, (5,110,120) END ================================================ FILE: mis/fa1.f ================================================ SUBROUTINE FA1 C C FA1 IS THE DRIVER FOR PART ONE OF FLUTTER ANALYSIS C INTEGER SYSBUF,OUT,BUFF,BUFF1,NS(2),FLOOP,TSTART, 1 KHH,BHH,MHH,QHHL,CASECC,FLIST,FSAVE,KXHH,MXHH, 2 BXHH,SCR1,REC0(8),FLUT(10),IMETH(2),FMETHD,SMETH, 3 TRL(10),AERO(2),FLFACT(2),FLUTER(2), 4 SR,SM,SK,PR,PM,PK,SL,IBLOCK(12),METHOD(4) REAL BLOCK(12),REC(8),KFREQ,RHO DIMENSION DLT(3),Z(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,OUT COMMON /BLANK / FLOOP,TSTART,ICEAD COMMON /OUTPUT/ HDG(96) COMMON /PACKX / ITI,ITO,IJ,NN,INCR1 COMMON /ZZZZZZ/ IZ(1) COMMON /UNPAKX/ IOUT,II,JJ,INCR EQUIVALENCE (REC0(1),REC(1)) EQUIVALENCE (BLOCK(1),IBLOCK(1)) EQUIVALENCE (IZ(1),Z(1)) DATA KHH /101/, BHH /102/, MHH /103/, QHHL /104/, CASECC /105/ 1, FLIST /106/, FSAVE /201/, KXHH /202/, BXHH /203/, MXHH /204/ DATA SCR1/301/, NS /4HFA1 ,4H / DATA IMETH / 4HS ,4HL / DATA NMD /4 /, METHOD/4HK ,4HKE ,4HPK ,4HINV / DATA TRL / 90,1006,7*0,6 / DATA AERO / 3202,32 /, FLFACT /4102,41/, FLUTER /3902,39/ C DO 5 I = 1,12 5 IBLOCK(I) = 0 NCORE = KORSZ(IZ) BUFF = NCORE - SYSBUF - 1 BUFF1 = BUFF - SYSBUF IF (FLOOP .NE. 0) GO TO 200 C C FIRST TIME THROUGH FIND FMETHOD ON CASECC C IFILE = CASECC CALL GOPEN (CASECC,IZ(BUFF+1),0) CALL READ (*530,*10,CASECC,IZ,BUFF,1,NWR) 10 LCC = NWR CALL CLOSE (CASECC,1) C C GET DATA FOR REC0 OF FSAVE C CALL FNAME (FSAVE,REC0) IFILE = FLIST CALL PRELOC (*480,IZ(BUFF+1),FLIST) CALL LOCATE (*470,IZ(BUFF+1),AERO,IDUM) CALL READ (*530,*530,FLIST,REC0(4),4,1,NWR) REC(6) = REC(6)*0.5 CALL LOCATE (*15,IZ(BUFF+1),FLFACT,IDUM) CALL READ (*530,*20,FLIST,IZ(LCC+1),BUFF,1,NWR) GO TO 400 15 NWR = 0 20 LFL = NWR + LCC CALL LOCATE (*450,IZ(BUFF+1),FLUTER,IDUM) 30 CALL READ (*530,*450,FLIST,FLUT,10,0,NWR) I165 = 165 IF (FLUT(1) .NE. IZ(I165)) GO TO 30 CALL CLOSE (FLIST,1) REC0(8) = FLUT(9) IEP = FLUT(10) DO 40 I = 1,NMD IF (FLUT(2) .EQ. METHOD(I)) GO TO 50 40 CONTINUE GO TO 490 50 REC0(3) = I FMETHD = I GO TO (60,60,61,490), I 60 REC0(4) = 0 IF (FLUT(7) .EQ. IMETH(1)) REC0(4) = 1 IF (FLUT(7) .EQ. IMETH(2)) REC0(4) = 2 IF (REC0(4) .EQ. 0) GO TO 430 SMETH = REC0(4) GO TO 65 C C PK METHOD HAS LINEAR SPLINE ONLY C 61 REC0(4) = 2 SMETH = 2 65 CONTINUE C C BUILD RECORDS 0,1,2,3 OF SAVE C IFILE = FSAVE CALL OPEN (*480,FSAVE,IZ(BUFF+1),1) CALL WRITE (FSAVE,REC0,8,1) BREF = REC(6) RREF = REC(7) NEIW = REC0(8) C C BUILD M,K,RHO LIST FOR FLUTTER LOOP C SR = 0 SM = 0 SK = 0 I = LCC IF (I .EQ. LFL) GO TO 410 70 I = I + 1 IF (IZ(I) .EQ. FLUT(4)) SR = I IF (IZ(I) .EQ. FLUT(5)) SM = I IF (IZ(I) .EQ. FLUT(6)) SK = I 80 I = I + 1 IF (I .GE. LFL) GO TO 90 IF (IZ(I) .EQ. -1) GO TO 70 GO TO 80 90 IF (SR.EQ.0 .OR. SM.EQ.0 .OR. SK.EQ.0) GO TO 410 NRHO = 0 PR = SR 95 PR = PR + 1 IF (IZ(PR) .EQ. -1) GO TO 97 NRHO = NRHO + 1 GO TO 95 97 NLOOPS = 0 IF (FMETHD .NE. 3) GO TO 105 C C J.PETKAS/LOCKHEED 3/91 C 19 LINES OF OLD CODE FOR BUILDING ELEMENTS OF FSAVE FOR PK METHOD C WERE IN ERROR, AND ARE NOW REPLACED BY NEXT 29 NEW LINES C PM = SM 101 PM = PM + 1 IF (IZ(PM) .EQ. -1) GO TO 130 DLT(1) = Z(PM) C C CENTER LOOP ON RHO C PR = SR 102 PR = PR + 1 IF (IZ(PR) .EQ. -1) GO TO 101 DLT(3) = Z(PR) C C INNER LOOP ON VELOCITY C PK = SK 103 PK = PK + 1 IF (IZ(PK) .EQ. -1) GO TO 102 DLT(2) = Z(PK) NLOOPS = NLOOPS + 1 CALL WRITE (FSAVE,DLT,3,0) GO TO 103 C C ALGORITHM FOR BUILDING ELEMENTS OF FSAVE FOR K AND KE METHODS C 105 CONTINUE C C OUTER LOOP ON MACH NUMBER C PM = SM 107 PM = PM + 1 IF (IZ(PM) .EQ. -1) GO TO 130 DLT(1) = Z(PM) C C CENTER LOOP ON KFREQ C PK = SK 110 PK = PK + 1 IF (IZ(PK) .EQ. -1) GO TO 107 DLT(2) = Z(PK) C C INNER LOOP ON RHO C PR = SR 120 PR = PR + 1 IF (IZ(PR) .EQ. -1) GO TO 110 DLT(3) = Z(PR) NLOOPS = NLOOPS + 1 CALL WRITE (FSAVE,DLT,3,0) GO TO 120 130 CALL WRITE (FSAVE,0,0,1) C C PICK UP M AND K FROM QHHL C IFILE = QHHL CALL OPEN (*480,QHHL,IZ(BUFF1+1),0) CALL READ (*530,*140,QHHL,IZ(LCC+1),BUFF1,1,NWR) GO TO 400 140 LFL = NWR + LCC SL = LCC + 5 CALL CLOSE (QHHL,1) REC0(1) = QHHL CALL RDTRL (REC0) NP = MIN0(IZ(SL-1),REC0(2)/REC0(3)) LFL = MIN0(LFL,2*NP+SL-1) NP = LFL - SL + 1 CALL WRITE (FSAVE,IZ(SL),NP,1) NP = NP/2 C C WRITE CASECC RECORD AND TRAILER C CALL WRITE (FSAVE,IZ(1),LCC,1) CALL CLOSE (FSAVE,1) REC0(1) = FSAVE REC0(2) = FLOOP REC0(3) = NLOOPS REC0(4) = NP REC0(5) = LCC REC0(6) = 0 REC0(7) = NRHO CALL WRTTRL (REC0) GO TO 210 200 IFILE = FSAVE CALL OPEN (*480,FSAVE,IZ(BUFF+1),0) CALL READ (*530,*530,FSAVE,IZ(1),8,1,NWR) CALL CLOSE (FSAVE,1) IZX = 0 FMETHD= IZ(IZX+3) SMETH = IZ(IZX+4) BREF = Z(IZX+6) RREF = Z(IZX+7) NEIW = IZ(IZX+8) 210 REC0(1) = FSAVE CALL RDTRL (REC0) C C START OF LOOPING BUMP LOOP COUNTER SET TIME AND GO C FLOOP = FLOOP + 1 NLOOPS= REC0(3) CALL KLOCK (TSTART) GO TO (220,230,240,490), FMETHD C C K METHOD BUILD PROPER QHH ON SCR1 C 220 CALL FA1K (SMETH,KFREQ,RHO,SCR1,0) GO TO 300 C C KE METHOD DO INCORE EIGNVALUE EXTRACTION C 230 REC0(1) = BHH CALL RDTRL (REC0) IF (REC0(1).GT.0 .AND. REC0(7).GT.0) GO TO 510 REC0(1) = KHH CALL RDTRL (REC0) ICO = REC0(2)*REC0(2)*4 + 4 235 CALL FA1K (SMETH,KFREQ,RHO,SCR1,ICO) CALL FA1KE (SCR1,KFREQ,BREF,RHO,RREF,FLOOP,NLOOPS) IF (FLOOP .GE. NLOOPS) GO TO 350 FLOOP = FLOOP + 1 GO TO 235 C C PK METHOD LINEAR INTERPOLATION AND INCORE LOOP FOR C EIGENVALUE CONVERGENCE C 240 CALL FA1PKI (FSAVE,QHHL) CALL FA1PKE (KHH,BHH,MHH,BXHH,FSAVE,NLOOPS,BREF,RREF,NEIW,IEP) IF (FLOOP .GE. NLOOPS) GO TO 250 FLOOP = FLOOP + 1 GO TO 240 C C PHID - KXHH CLAMAD - BXHH C 250 IBUF = BUFF1 - SYSBUF TRL(1) = SCR1 CALL RDTRL (TRL) IF (TRL(2) .EQ. 0) GO TO 350 CALL OPEN (*350,SCR1,Z(IBUF),0) CALL READ (*290,*255,SCR1,REC,6,1,NWR) 255 CALL READ (*290,*260,SCR1,Z,IBUF,1,NWR) 260 NN = NWR/2 CALL GOPEN (KXHH,Z(BUFF),1) CALL GOPEN (BXHH,Z(BUFF1),1) CALL WRITE (BXHH,TRL(1),50,0) CALL WRITE (BXHH,HDG,96,1) TRL(1) = KXHH TRL(2) = 0 TRL(3) = NN TRL(4) = 2 TRL(5) = 3 ITI = 3 ITO = 3 IJ = 1 INCR1 = 1 265 CALL WRITE (BXHH,REC,6,0) CALL PACK (Z,KXHH,TRL) CALL READ (*280,*270,SCR1,REC,6,1,NWR) 270 CALL READ (*280,*265,SCR1,Z,IBUF,1,NWR) 280 CALL WRITE (BXHH,0,0,1) CALL CLOSE (BXHH,1) CALL CLOSE (KXHH,1) CALL WRTTRL (TRL) TRL(1) = BXHH TRL(2) = 1006 TRL(7) = 0 CALL WRTTRL (TRL) 290 CALL CLOSE (SCR1,1) GO TO 350 C C COPY KHH TO KXHH C 300 CALL GOPEN (KHH,IZ(BUFF+1),0) CALL GOPEN (KXHH,IZ(BUFF1+1),1) REC0(1) = KHH CALL RDTRL (REC0) REC0(1) = KXHH IOUT = REC0(5) INCR = 1 I = REC0(2) REC0(2) = 0 REC0(6) = 0 REC0(7) = 0 CALL CYCT2B (KHH,KXHH,I,Z,REC0) CALL CLOSE (KHH,1) CALL CLOSE (KXHH,1) CALL WRTTRL (REC0) C C BUILD BXHH = (K/B)BHH C REC0(1) = BHH CALL RDTRL (REC0) IF (REC0(1) .LE. 0) GO TO 310 IBLOCK(2) = 1 BLOCK(3) = KFREQ/BREF CALL SSG2C (BHH,0,BXHH,0,BLOCK(2)) 310 CONTINUE C C 2 2 C MXHH = (K /B ) MHH + (RHO*RREF/2.0) QHH C IBLOCK(2) = 1 BLOCK (3) = (KFREQ*KFREQ)/(BREF*BREF) IBLOCK(8) = 1 BLOCK (9) = RHO*RREF/2.0 CALL SSG2C (MHH,SCR1,MXHH,0,BLOCK(2)) C C THE END C 350 CONTINUE REC0(1) = FSAVE CALL RDTRL (REC0) REC0(2) = FLOOP CALL WRTTRL (REC0) IF (FLOOP .EQ. NLOOPS) FLOOP = -1 ICEAD = 1 IF (FMETHD .EQ. 2) ICEAD = -1 IF (FMETHD .EQ. 3) ICEAD = -1 GO TO 600 C C ERROR MESSAGES C 400 CALL MESAGE (-8,0,NS) 410 WRITE (OUT,420) UFM,FLUT(4),FLUT(5),FLUT(6) 420 FORMAT (A23,', ONE OR MORE OF THE FOLLOWING FLFACT SETS WERE NOT', 1 ' FOUND - ',3I9) GO TO 540 430 WRITE (OUT,440) UFM,FLUT(7) 440 FORMAT (A23,' 2267, INTERPOLATION METHOD ',A4,' UNKNOWN') GO TO 540 450 I165 = 165 WRITE (OUT,460) UFM,IZ(I165) 460 FORMAT (A23,' 2268, FMETHOD SET',I9,' NOT FOUND') GO TO 540 470 CALL MESAGE (-7,0,NS) 480 CALL MESAGE (-1,IFILE,NS) 490 WRITE (OUT,500) UFM,FLUT(2) 500 FORMAT (A23,' 2269, FLUTTER METHOD ',A4,' NOT IMPLEMENTED') GO TO 540 510 WRITE (OUT,520) UFM,FLUT(2) 520 FORMAT (A23,', FLUTTER METHOD ',A4,' NOT IMPLEMENTED WITH B ', 1 'MATRIX') GO TO 540 530 CALL MESAGE (-3,IFILE,NS) 540 CALL MESAGE (-61,0,NS) C 600 RETURN END ================================================ FILE: mis/fa1k.f ================================================ SUBROUTINE FA1K (IMETH,K,RHO,OUTFIL,ICO) C C FA1K BUILDS AN INTERPOLATED MATRIX ON OUTFIL FROM QHHL OR FSAVE C LOGICAL NEW INTEGER SYSBUF,OUT,BUFF,BUFF1,FLOOP,NS(2),TYPE,TRL(7), 1 OUTFIL,FSAVE,QHHL,SCR2,SCR3,SCR4,MCB(7) REAL K DIMENSION Z(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /ZZZZZZ/ IZ(1) COMMON /UNPAKX/ IOUT,INN,NNN,INCR1 COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /SYSTEM/ SYSBUF,OUT,DUM(52),IPREC COMMON /BLANK / FLOOP EQUIVALENCE (IZ(1),Z(1)) DATA FSAVE / 201/, QHHL /104/, SCR2,SCR3,SCR4 /302,303,304/ DATA NS / 4HFA1K,4H / C NCORE = KORSZ(IZ) - ICO BUFF = NCORE - SYSBUF BUFF1 = BUFF - SYSBUF TRL(1)= FSAVE CALL RDTRL (TRL) C C READ IN DEPENDENT POINTS AND SET K AND RHO C JJ = TRL(3)*3 IFIL = FSAVE CALL GOPEN (FSAVE,IZ(BUFF+1),0) CALL READ (*430,*5,FSAVE,Z,JJ,1,NWR) 5 CONTINUE I = (FLOOP-1)*3 + 1 CMACH = Z(I ) K = Z(I+1) RHO = Z(I+2) INCR1 = 1 INCR = 1 II = 1 INN = 1 GO TO (10,100), IMETH C C SURFACE SPLINE INTERPOLATION C 10 IF (FLOOP .NE. 1) GO TO 70 C C SET UP CALL TO SPLINE INTERPOLATOR C NRHO = TRL(7) JI = NRHO*3 J = 1 DO 50 I = 1,JJ,JI Z(J ) = Z(I ) Z(J+1) = Z(I+1) 50 J = J + 2 ND = JJ/JI NI = TRL(4) TYPE = 1 IDP = 1 IIP = ND*2 + IDP IG = IIP + 2*NI NI2 = NI*2 CALL READ (*430,*60,FSAVE,Z(IIP),NI2,1,NWR) 60 CALL FWDREC (*430,FSAVE) CALL CLOSE (FSAVE,2) C C REWRITE QHHL SO EACH LIST MATRIX IS A COLUMN C GO TO 300 15 J = 1 20 JI = IG GO TO 350 30 IF (J .EQ. NCOL) GO TO 40 J = J + 1 GO TO 20 40 CALL CLOSE (QHHL,1) CALL CLOSE (OUTFIL,1) CALL WRTTRL (TRL) GO TO 200 C C GET A COLUMN FROM FSAVE AND BUILD QHH ON OUTFIL C 70 NF = 2 + (FLOOP-1)/TRL(7) DO 80 I = 1,NF CALL FWDREC (*430,FSAVE) 80 CONTINUE 85 IOUT = TRL(6) ITI = IOUT ITO = IOUT NWC = 1 IF (ITO.EQ.2 .OR. ITO.EQ.3) NWC = 2 IF (ITO .EQ. 4) NWC = 4 MCB(1) = QHHL CALL RDTRL (MCB) NC = MCB(3) NN = NC NNN = NC*NC CALL UNPACK (*410,FSAVE,Z) IJ = 1 CALL CLOSE (FSAVE,1) CALL GOPEN (OUTFIL,IZ(BUFF+1),1) MCB(1) = OUTFIL MCB(2) = 0 MCB(3) = NC MCB(4) = 1 MCB(5) = IOUT MCB(6) = 0 MCB(7) = 0 DO 90 I = 1,NC CALL PACK (Z(IJ),OUTFIL,MCB) IJ = IJ + NC*NWC 90 CONTINUE CALL CLOSE (OUTFIL,1) CALL WRTTRL (MCB) GO TO 450 C C LINEAR SPLINE INTERPOLATION C C C IS A GOOD MATRIZ ON FSAVE C 100 EPS = .001 NEW = .TRUE. NI = TRL(4) IF (FLOOP .EQ. 1) GO TO 110 OK = Z(I-2) OMACH = Z(I-3) IF (ABS(CMACH-OMACH) .LT. EPS) NEW = .FALSE. C C REWRITE QHHL IF NEW IS TRUE C IF (.NOT.NEW) GO TO 180 IF (FLOOP .NE. 1) GO TO 120 C C TEST TO SEE IF QHHL HAS ENOUGH MACH NUMBERS C 110 NIP = NI*2 NOGO = 0 IIP = JJ + 1 CALL READ (*430,*111,FSAVE,Z(IIP),NIP,1,NWR) 111 CALL BCKREC (FSAVE) TEMP = 0.0 DO 119 I = 1,JJ,3 IF (TEMP .EQ. Z(I)) GO TO 119 TEMP = Z(I) NF = 0 DO 115 J = 1,NIP,2 IF (TEMP-Z(IIP+J-1) .LT. EPS) NF = NF + 1 115 CONTINUE IF (NF .GT. 1) GO TO 119 WRITE (OUT,400) UFM,TEMP NOGO = 1 119 CONTINUE IF (NOGO .EQ.1 ) GO TO 410 120 J = 1 NRD = 0 DO 125 I = 1,JJ,3 IF (ABS(CMACH-Z(I)) .LT. EPS) GO TO 126 GO TO 125 126 IF (Z(I+2) .NE. RHO) GO TO 125 Z(J ) = Z(I ) Z(J+1) = Z(I+1) J = J + 2 NRD = NRD + 1 125 CONTINUE IDP = 1 IIP = NRD*2 + IDP NI2 = NI*2 CALL READ (*430,*130,FSAVE,Z(IIP),NI2,1,NWR) 130 CALL FWDREC (*430,FSAVE) CALL CLOSE (FSAVE,2) GO TO 300 135 IG = IIP + NI*2 NF = 0 IK = 1 IFIL= QHHL JJ = 2*NI + 1 I = 1 138 IF (ABS(CMACH-Z(IIP+I-1)) .LT. EPS) GO TO 140 C C SKIP MATRIX C DO 139 J = 1,NCM 139 CALL FWDREC (*430,QHHL) GO TO 150 140 Z(IIP+IK) = Z(IIP+I) IK = IK + 2 NF = NF + 1 JI = IG GO TO 350 150 CONTINUE I = I + 2 IF (I .EQ. JJ) GO TO 160 GO TO 138 160 CALL CLOSE (QHHL,1) CALL CLOSE (OUTFIL,1) CALL WRTTRL (TRL) C C SET UP CALL TO SPLINE INTERPOLATION C TYPE = -1 ND = NRD NI = NF GO TO 200 C C GET COLUMN FROM FSAVE AND BUILD QHH C 170 CALL GOPEN (FSAVE,IZ(BUFF+1),0) IJ = 3 171 DO 175 I = 1,IJ 175 CALL FWDREC (*430,FSAVE) GO TO 85 180 IF (OK-K.EQ.0.0) GO TO 190 TRL(7) = TRL(7) + 1 190 IJ = TRL(7) + 1 CALL WRTTRL (TRL) GO TO 171 C C CALL MINTRP C 200 IG = IIP + 2*NI NC = NCORE - IG NOGO = 0 CALL MINTRP (NI,Z(IIP),ND,Z(IDP),TYPE,0,0,0.0,OUTFIL,SCR2,SCR3, 1 SCR4,Z(IG),NC,NOGO,IPREC) IF (NOGO .EQ. 1) GO TO 410 C C INTERPOLATED MATRIX IS ON SCR2 MOVE TO FSAVE C CALL OPEN (*430,FSAVE,IZ(BUFF+1),3) CALL GOPEN (SCR2,IZ(BUFF1+1),0) TRL(1) = SCR2 CALL RDTRL (TRL) NCOL = TRL(2) NN = TRL(3) NNN = NN ITI = TRL(5) ITO = ITI IOUT = ITI TRL(1) = FSAVE TRL(2) = 0 TRL(6) = 0 TRL(7) = 0 I = 1 210 CALL UNPACK (*410,SCR2,Z) CALL PACK (Z,FSAVE,TRL) IF (I .EQ. NCOL) GO TO 230 I = I + 1 GO TO 210 230 CALL CLOSE (SCR2,1) CALL CLOSE (FSAVE,1) CALL RDTRL (TRL) TRL(6) = ITO IF (IMETH .EQ. 2) TRL(7) = 1 CALL WRTTRL (TRL) GO TO 170 C C SET UP COLUMN - MATRIX COPY C 300 CALL GOPEN (QHHL,IZ(BUFF+1),0) TRL(1) = QHHL CALL RDTRL (TRL) NCOL = TRL(2)/TRL(3) NCM = TRL(3) CALL GOPEN (OUTFIL,IZ(BUFF1+1),1) NNN = NCM NN = NCM*NCM ITI = TRL(5) ITO = ITI IOUT = ITI NWC = 1 IF (ITO.EQ.2 .OR. ITO.EQ.3) NWC = 2 IF (ITO .EQ. 4) NWC = 4 TRL(1) = OUTFIL TRL(2) = 0 TRL(3) = NN TRL(6) = 0 TRL(7) = 0 GO TO (15,135), IMETH C C MAKE A COLUMN INTO MATRIX C 350 DO 390 ILOP = 1,NCM CALL UNPACK (*360,QHHL,Z(JI)) GO TO 380 360 N = NCM*NWC DO 370 IJ = 1,N 370 Z(JI+IJ-1) = 0.0 380 JI = JI + NCM*NWC 390 CONTINUE CALL PACK (Z(IG),OUTFIL,TRL) GO TO (30,150), IMETH C C ERROR MESSAGES C 400 FORMAT (A23,' 2270, LINEAR INTERPOLATION WITHOUT ENOUGH IND. ', 1 'MACH NUMBERS EQUAL TO DEP. MACH ',F10.4) 410 WRITE (OUT,420) UFM 420 FORMAT (A23,' 2271, INTERPOLATION MATRIX IS SINGULAR') GO TO 440 430 CALL MESAGE (-3,IFIL,NS) 440 CALL MESAGE (-61,0,NS) 450 RETURN END ================================================ FILE: mis/fa1ke.f ================================================ SUBROUTINE FA1KE (SCR1,KFREQ,BREF,RHO,RREF,FLOOP,NLOOP) C INTEGER SCR1,MHH,KHH,FLOOP,SYSBUF,MOUT,NAME(2) INTEGER BUF1,TRL(7),FSAVE C REAL KFREQ,K2B2 C COMPLEX CZ(1) C COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ Z(1) COMMON /UNPAKX/ IOUT,INN,NNN,INCR1 C EQUIVALENCE (Z(1),CZ(1)) C DATA NAME /4HFA1K,4HE / DATA KHH /101/, MHH /103/ , MOUT /203/ , FSAVE /201/ C C INITILIZE ON FIRST LOOP C IF(FLOOP .GT. 1) GO TO 100 NCORE = KORSZ(Z) TRL(1)= KHH CALL RDTRL(TRL) N = TRL(3) NN = N*N N2 = N*2 IM = NN * 2 C C LOC SIZE USE C C IAM1K N*N*2 A-1 K C IKC N*N*2 K SCRATCH FOR ALLMAT C IMS N*N*2 M + Q LAMBDA FOR ALLMAT C IPM N*N*2 M HELD IN CORE C IPK N*N*2 K BETWEEN LOOPS C IAM1K = 1 IKC = IAM1K + IM IMS = IKC + IM ICP = IMS + IM IF(IM*5+SYSBUF.GT.NCORE) CALL MESAGE(-8,0,NAME) IPM = NCORE - IM IPK = IPM - IM NCORE= IPK -1 BUF1 = NCORE - SYSBUF IOUT = 3 INN = 1 NNN = N INCR1= 1 C C PUT MHH AND KHH IN CORE C IFL = KHH JI = IPK 10 CALL GOPEN(IFL,Z(BUF1),0) DO 20 I=1,N CALL UNPACK(*15,IFL,Z(JI)) GO TO 16 15 CALL ZEROC(Z(JI),N2) 16 JI = JI + N2 20 CONTINUE CALL CLOSE(IFL,1) IF(IFL.EQ.MHH) GO TO 40 IFL = MHH JI = IPM GO TO 10 C C WRITE A HEADER ON MOUT C 40 CALL GOPEN(MOUT,Z(BUF1),1) CALL CLOSE(MOUT,2) C C 2 2 C SOLVE K /B MHH + (RHO*RREF)/2.0 QHH KHH C 100 K2B2 = (KFREQ*KFREQ) /(BREF*BREF) RR2 = (RHO*RREF) / 2.0 IOUT = 3 INN = 1 NNN = N INCR1= 1 DO 105 I=1,IKC 105 Z(I) = 0.0 JI = IMS CALL GOPEN(SCR1,Z(BUF1),0) DO 110 I=1,N CALL UNPACK(*115,SCR1,Z(JI)) 115 JI = JI+N2 110 CONTINUE CALL CLOSE(SCR1,1) ICK = IKC -1 IKP = IPK -1 IMP = IPM -1 ISM = IMS -1 J = NN*2 DO 120 I=1,J Z(I+ISM) = Z(I+ISM) * RR2 + Z(I+IMP) * K2B2 Z(I+ICK) = - Z(I+IKP) 120 CONTINUE CALL INCORE(Z(IMS),N,Z(IKC),Z(IAM1K),N) C C GET EIGENVALUES FROM ALLMAT C IM = IMS + N2 IN = IM + N2 L = 0 CALL ALLMAT(Z(IAM1K),Z(IMS),Z(IKC),0,0,Z(IM),0,Z(IN),N,L,0) C C WRITE OUT EIGENVALUES ON MOUT C IM = IMS/2 NL = 2*L DO 130 I = 1,L IF(CZ(I+IM).NE.(0.0,0.0))CZ(I+IM) = CSQRT(CZ(I+IM)) IF(AIMAG(CZ(I+IM)) .LT. 0.0) CZ(I+IM) = - CZ(I+IM) 130 CONTINUE CALL GOPEN(MOUT,Z(BUF1),3) CALL WRITE(MOUT,Z(IMS),NL,1) IF(FLOOP.GE.NLOOP) GO TO 200 CALL CLOSE(MOUT,3) RETURN C C LAST LOOP BUILD FSAVE C 200 CALL CLOSE(MOUT,1) IBUF2 = BUF1 - SYSBUF CALL GOPEN(MOUT,Z(BUF1),0) CALL GOPEN(FSAVE,Z(IBUF2),0) CALL SKPREC(FSAVE,3) CALL CLOSE(FSAVE,2) CALL GOPEN(FSAVE,Z(IBUF2),3) 210 CALL READ(*230,*220,MOUT,Z(1),IBUF2,1,NWR) 220 CALL WRITE(FSAVE,Z(1),NWR,1) GO TO 210 230 CALL CLOSE(MOUT,1) CALL CLOSE(FSAVE,1) TRL(1) = FSAVE TRL(2) = NLOOP TRL(7) = L CALL WRTTRL(TRL) RETURN END ================================================ FILE: mis/fa1pka.f ================================================ SUBROUTINE FA1PKA(A,M1K,M1B,EIV,NCORE,N) C C FA1PKA BUILDS THE MATRIX FOR ALLMAT C INTEGER NAME(2) REAL A(1),EIV(1) REAL M1K(1),M1B(1) DATA NAME /4HFA1P,4HKA / DATA NHEIGS,NHEIGE /4HEIGS,4HEIGE/ N2 = N*2 IZ = 0 IMK = N IMI = N*N*2 IMB = IMI + N K = 0 DO 10 I = 1,N DO 20 J = 1,N K = K +1 A(IZ+J) = 0.0 A(IMK+J) = M1K(K) A(IMB+J) = M1B(K) A(IMI+J) = 0.0 IF(I.EQ.J) A(IMI+J) = 1.0 20 CONTINUE IZ = IZ + N2 IMK = IMK + N2 IMI = IMI + N2 IMB = IMB + N2 10 CONTINUE C C CALL HSBG AND ATEIG FOR EIVENVALUES C N4=N2*2 IL = 1 IH = IL + N2 IM=IH+N4 II=IM+N4 IF(II .GT.NCORE) CALL MESAGE(-8,0,NAME) CALL SSWTCH(39,L39) IF(L39.NE.0) CALL CONMSG(NHEIGS,1,0) CALL HSBG(N2,A,N2,A) CALL ATEIG(N2,A,EIV(IH),EIV(IM),EIV(IL),N2, * A,EIV(IH),EIV(IM)) IL = 0 DO 30 I=1,N2 EIV(I+IL) = EIV(I+IH-1) EIV(I+IL+1) = EIV(I + IM -1) IL = IL +1 30 CONTINUE IF(L39.NE.0) CALL CONMSG(NHEIGE,1,0) RETURN END ================================================ FILE: mis/fa1pke.f ================================================ SUBROUTINE FA1PKE (KHH,BHH,MHH,BXHH,FSAVE,NLOOP,BREF,RREF,NEIW, 1 EPS) C C FA1PKE COMPUTES THE EIGENVALUES FOR THE PK METHOD C C LAST REVISED 2/91, BY J.PETKAS/LOCKHEED C ELEMENTS OF INTERPOLATION MATRIX IN D.P. AND LEAST SQUARE FIT C LOGICAL EIGV INTEGER BHH,BXHH,SYSBUF,NAME(2),TRL(7),BUF1,FLOOP,FSAVE REAL KINT DOUBLE PRECISION DX1,DX2,DSUM,DZ(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ SYSBUF,NOUT COMMON /UNPAKX/ IOUT,INN,NNN,INCR1 COMMON /ZZZZZZ/ Z(1) COMMON /FA1PKC/ NCORE,NK,IMVR,IK,IA,IQ,ICP,IFLAG COMMON /BLANK / FLOOP COMMON /CONDAS/ PI,TWOPI EQUIVALENCE (Z(1),DZ(1)) DATA NAME / 4HFA1P,4HKE / DATA ISTART/ 0 / C C REINITIALIZE EVERY TIME MACH CHANGES C IF (IFLAG .EQ. 0) GO TO 100 CALL SSWTCH (39,L39) TRL(1) = KHH CALL RDTRL (TRL) NROW = TRL(2) NEIW = MIN0(NEIW,NROW) NEIGN = NROW*2 IOUT = 1 INN = 1 INCR1 = 1 NNN = NROW IEIGNS= NCORE - NROW*5 - 1 BUF1 = IEIGNS - SYSBUF NN = NROW*NROW NN2 = NN*2 IMH = ICP IBH = IMH + NN IKH = IBH + NN IV = IKH + NN IB = IV + NN IMA = IB + NN IF (MOD(IMA,2) .EQ. 0) IMA = IMA + 1 IOP = IMA + NN2*4 C C CORE CHECK C IF (IOP+SYSBUF .GT. IEIGNS) CALL MESAGE (-8,0,NAME) C C PUT K B M IN CORE C IFL = KHH JI = IKH 10 CALL GOPEN (IFL,Z(BUF1),0) DO 20 I = 1,NROW CALL UNPACK (*15,IFL,Z(JI)) GO TO 20 15 CALL ZEROC (Z(JI),NROW) 20 JI = JI + NROW CALL CLOSE (IFL,1) IF (IFL .EQ. MHH) GO TO 40 IF (IFL .EQ. BHH) GO TO 30 IFL = BHH JI = IBH TRL(1) = BHH CALL RDTRL (TRL) IF (TRL(1) .GT. 0) GO TO 10 CALL ZEROC (Z(JI),NN) 30 IFL = MHH JI = IMH GO TO 10 40 CONTINUE C C MODIFICATION FOR LEVEL 17.7 UPDATE C REPLACE CALLS TO INVAER WITH CALLS TO INVERS. C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (NROW,Z(IMH),NROW,0,0,DET,ISING,Z(IOP)) IF (ISING .EQ. 2) CALL MESAGE (-7,0,NAME) C C START OF LARGE LOOP WITH K = 0.0 C 100 KINT = 0.0 IF (EPS .LE. 0.0) EPS = .001 KN1 = NK + 1 IQ0 = IEIGNS - (NN2+1) IC0 = IQ0 - KN1*2 - 2 IF (MOD(IC0,2) .EQ. 0) IC0 = IC0 - 1 IP0 = IC0 - KN1*2 - 2 IF (MOD(IP0,2) .EQ. 0) IP0 = IP0 - 1 C I = (FLOOP-1)*3 EIGV= .FALSE. IF (Z(IMVR+I+1) .LT. 0.0) EIGV = .TRUE. VEL = ABS(Z(IMVR+I+1)) VELS= VEL*VEL RHO = (RREF*Z(IMVR+I+2))/2.0 IF (L39 .NE. 0) WRITE (NOUT,105) FLOOP,Z(IMVR+I),Z(IMVR+I+1), 1 Z(IMVR+I+2) 105 FORMAT ('0 TRACE FOR PK METHOD LOOP',I5,6X,4HMACH,8X, 1 8HVELOCITY,8X,7HDENSITY,/,30X,1P,E15.5,1P,E15.5,1P,E15.5) NIT = 0 NROOT = 0 C C INITIALIZE LEAST SQUARE COEFFCIENTS C XAV = 0. YAV1 = 0. X10 = 0. X11 = 0. X12 = 0. Y10 = 0. Y11 = 0. C C BUILD P C 110 CONTINUE NIT = NIT + 1 C C SUM LEAST SQUARE COEFFICIENTS ASSOCIATED WITH INDEPENDENT C VARIABLE STARTING WITH SECOND TRIAL C IF (NIT .EQ. 1) GO TO 115 XAV = XAV + KINT X10 = X10 + 1. X11 = X11 + KINT X12 = X12 + KINT**2 C 115 IP0D = IP0/2 + 1 DX1 = KINT DO 120 I = 1,NK DX2 = Z(IK+I-1) DZ(IP0D+I) = DABS((DX1-DX2)**3) + (DX1+DX2)**3 120 CONTINUE DZ(IP0D+KN1) = 1.D0 C C FIND C = A-1 P C IAD = IA/2 + 1 IC0D = IC0/2 + 1 L = IAD DO 135 I = 1,KN1 DSUM = 0.D+0 DO 130 J = 1,KN1 DSUM = DSUM + DZ(L)*DZ(IP0D+J) L = L + 1 130 CONTINUE DZ(IC0D+I) = DSUM 135 CONTINUE C C FIND QR AND QI = Q C Q IS COLUMN STORED C L = IQ DO 145 I = 1,NN2 DSUM = 0.D+0 DO 140 J = 1,NK K = L + (J-1)*NN2 DSUM = DSUM + Z(K)*DZ(IC0D+J) 140 CONTINUE L = L + 1 Z(IQ0+I) = DSUM 145 CONTINUE C C COLUMN STORED M-1 BHH KNH QR (Z(IQ0+1) QI (Z(IQ3+NN+1) C C B = -BHH + RHO*BREF*VEL QHHI C C K = -KHH + RHO*VELS QHHR C C BUILD A C 0 I C C -1 -1 C -M K -M B C NREM = IQ0 - IOP IF (NREM-NN .LE. 0) CALL MESAGE (-8,0,NAME) IT = IOP IF (MOD(IT,2) .EQ. 0) IT = IT + 1 IF (EIGV .AND. IT+NN.GT.BUF1) CALL MESAGE (-8,0,NAME) BOV = BREF/VEL RBV = RHO*BREF*VEL IQR = IQ0 IQI = IQ0 + NN RVS = RHO*VELS C C BUILD M-1K IN IB AND M-1B IN IT THEN GMMATS INTO IV AND IB C DO 150 I = 1,NN Z(IT+I-1) = -Z(IBH+I-1) + RBV*Z(IQI+I) Z(IB+I-1) = -Z(IKH+I-1) + RVS*Z(IQR+I) 150 CONTINUE CALL GMMATS (Z(IB),NROW,NROW,0,Z(IMH),NROW,NROW,0,Z(IV)) CALL GMMATS (Z(IT),NROW,NROW,0,Z(IMH),NROW,NROW,0,Z(IB)) C C CALL FA1PKA TO MAKE A MATRIX AND GET EIGENVALUES C CALL FA1PKA (Z(IMA),Z(IV),Z(IB),Z(IT),IEIGNS-IT,NROW) C C SORT EIGENVALUES C J = NEIGN*2 CALL RSORT (2,1,Z(IT),J) CALL RSORT (2,2,Z(IT),J) IF (KINT .NE. 0.0) GO TO 180 NLFT = NEIGN DO 160 I = 1,J,2 IF (Z(IT+I) .GE. 0.0) GO TO 170 NLFT = NLFT - 1 160 CONTINUE 170 NL = IT + (NEIGN-NLFT)*2 NR = 0 DO 175 I = 1,J,2 IF (Z(IT+I) .NE. 0.0) GO TO 175 NR = NR + 1 IF (EIGV) CALL FA1PKV (Z(IMA),Z(IV),Z(IB),NROW,Z(IT+I-1),Z(IMA), 1 BREF,PI,VEL,Z(BUF1)) 175 CONTINUE NRS = NR + 1 NR = NR/2 NRA = 0 180 CONTINUE IF (L39 .EQ. 0) GO TO 200 WRITE (NOUT,182) KINT 182 FORMAT (1H0,29H ESTIMATED REDUCED FREQUENCY ,1P,E15.5, /10X, 1 11HEIGENVALUES,10X,18H REDUCED FREQUENCY,4X,9HFREQUENCY, 2 6X,8H DAMPING,/,7X,4HREAL,10X,4HIMAG) DO 190 I = 1,J,2 ER = Z(IT+I-1) EI = Z(IT+I ) IF (EI .EQ. 0.0) GO TO 183 RK = BOV*EI RF = (1.0/TWOPI)*EI RG = (2.0*ER)/EI GO TO 185 183 RK = 0.0 RF = 0.0 RG = (BREF/(PI*VEL))*ER 185 WRITE (NOUT,186) ER,EI,RK,RF,RG 186 FORMAT (1H ,1P,E15.5,1P,E15.5,3X,1P,E15.5,1P,E15.5,1P,E15.5) 190 CONTINUE C C ROOT ACCEPTANCE AND SAVING C 200 J = NLFT*2 L = NROOT*2 + 1 + NRA*2 IMHERE = 200 IF (L .GT. J) GO TO 360 C DO 270 I = L,J,2 K = (NROOT*5) + 1 + IEIGNS IF (Z(NL+I) .NE. 0.0) GO TO 220 IF (KINT .NE. 0.0) GO TO 220 IF (NRS .NE. NR) NRS = NRS - 1 IF (NRS .NE. NR) GO TO 270 NRA = NRA + 1 Z(K ) = Z(NL+I-1) Z(K+1) = Z(NL+I ) Z(K+2) = 0.0 Z(K+3) = 0.0 Z(K+4) = (BREF/(.34657*VEL))*Z(NL+I-1) 210 NROOT = NROOT + 1 C C PRINT EIGENVECTORS IF ASKED FOR C NIT = 0 C C NO. OF ITERATIONS RESET TO ZERO. RE-INITIALIZE LEASE SQUARE COEFF. C XAV = 0. YAV1= 0. X10 = 0. X11 = 0. X12 = 0. Y10 = 0. Y11 = 0. IF (NROOT .GE. NEIW) GO TO 300 GO TO 270 220 RKTST = BOV*Z(NL+I) IF (ABS(RKTST-KINT) .LT. EPS) GO TO 230 IF (RKTST .EQ. 0.0) GO TO 230 C C SUM LEAST SQUARE COEFFICIENTS ASSOCIATED WITH DEPENDENT VARIABLE C STARTING WITH RESULT OF SECOND TIRAL C IF (NIT .EQ. 1) GO TO 225 YAV1 = YAV1 + RKTST Y10 = Y10 + RKTST Y11 = Y11 + RKTST*KINT 225 KINT = RKTST IF (NIT .EQ. 10) GO TO 240 GO TO 110 C C START LOOP OVER C 230 Z(K ) = Z(NL+I-1) Z(K+1) = Z(NL+I ) Z(K+2) = RKTST Z(K+3) = (1.0/TWOPI)*Z(NL+I) IF (Z(NL+I) .NE. 0.0) Z(K+4) = (2.0*Z(NL+I-1))/Z(NL+I) IF (Z(NL+I) .EQ. 0.0) Z(K+4) = (BREF/(.34657*VEL))*Z(NL+I-1) IF (EIGV) CALL FA1PKV (Z(IMA),Z(IV),Z(IB),NROW,Z(K),Z(IMA), 1 BREF,PI,VEL,Z(BUF1)) GO TO 210 C C FAILURE TO CONVERGE. REPLACE LOOP END WITH LEAST SQUARES FIT C 240 NIT = NIT + 1 XAV1 = XAV/(NIT-2) XAV = (XAV + RKTST)/(NIT-1) YAV1 = YAV1/(NIT-2) D1 = X12*X10 - X11*X11 A11 = (X10*Y11 - X11*Y10)/D1 A10 = (X12*Y10 - X11*Y11)/D1 RKTST= -A10/(A11-1.) WRITE (NOUT,250) UWM,NIT,FLOOP,NROOT,NEIW 250 FORMAT (A25,', PK METHOD FIALED TO CONVERGE', /1X,I4, 1 ' ITERATIONS ON LOOP',I5,', FOUND',I5,', ROOTS WANTED', 2 I5, /5X,'LEAST SQUARES FIT APPROXIMATION IMPLEMENTED.') IF (L39 .EQ. 1) WRITE (NOUT,260) XAV1,YAV1,XAV, A11,A10,RKTST 260 FORMAT (/5X,'AVG. TRIAL = ',1P,E12.5,', AGV. RESLT. = ',1P,E12.5, 4 ', NET AVG. = ',1P,E12.5, //9X,'SLOPE = ',1P,E12.5, 5 ', INTERCEPT = ',1P,E12.5,', VALUE = ',1P,E12.5) GO TO 230 C 270 CONTINUE C C LOGIC ERROR C IMHERE = 270 GO TO 360 C C SAVE EIGENVALUES ON BXHH C 300 IF (ISTART .NE. 0) GO TO 310 ISTART = 1 CALL GOPEN (BXHH,Z(BUF1),1) CALL CLOSE (BXHH,2) 310 CALL GOPEN (BXHH,Z(BUF1),3) CALL WRITE (BXHH,Z(IEIGNS+1),NROOT*5,1) IF (FLOOP .GE. NLOOP) GO TO 320 CALL CLOSE (BXHH,3) RETURN C C LAST LOOP BUILD FSAVE C 320 CALL CLOSE (BXHH,1) IBUF2 = BUF1 - SYSBUF CALL GOPEN (BXHH,Z(BUF1),0) CALL GOPEN (FSAVE,Z(IBUF2),0) CALL SKPREC (FSAVE,3) CALL CLOSE (FSAVE,2) CALL GOPEN (FSAVE,Z(IBUF2),3) 330 CALL READ (*350,*340,BXHH,Z(1),IBUF2,1,NWR) 340 CALL WRITE (FSAVE,Z(1),NWR,1) GO TO 330 350 CALL CLOSE (BXHH,1) CALL CLOSE (FSAVE,1) TRL(1) = FSAVE TRL(2) = NLOOP TRL(7) = NEIW CALL WRTTRL (TRL) GO TO 400 C 360 WRITE (NOUT,370) SFM,IMHERE,L,J 370 FORMAT (A25,'. ERROR IN FA1PKE/@',I3,' L,J=',2I7) CALL MESAGE (-61,0,0) C 400 RETURN END ================================================ FILE: mis/fa1pki.f ================================================ SUBROUTINE FA1PKI (FSAVE,QHHL) C C FA1PKI BUILDS AN INTERPOLATION MATRIX IN CORE FOR PK METHOD C C LAST REVISED 2/91, BY J.PETKAS/LOOKHEED C TO ALLOW CALCULATION OF INTERPOLATION MATRIX IN D.P. C INTEGER FSAVE,QHHL,SYSBUF,NAME(2),TRL(7),BUF1,FLOOP REAL NEWM DOUBLE PRECISION DX1,DX2,DET,DZ(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / FLOOP COMMON /SYSTEM/ SYSBUF,NOUT COMMON /UNPAKX/ IOUT,INN,NNN,INCR1 COMMON /ZZZZZZ/ Z(1) COMMON /FA1PKC/ NCORE,NK,IMVR,IK,IA,IQ,ICP,IFLAG EQUIVALENCE (DZ(1),Z(1)) DATA OLDM / -1.0/ DATA NAME / 4HFA1P,4HKI / C IFLAG = 0 IF (OLDM .NE. -1.0) GO TO 20 NCORE= KORSZ(Z) BUF1 = NCORE - SYSBUF IMVR = 1 C C PUT M V IN CORE ON SECOND LOOP RETURN IF SAME MACH C IFLE = FSAVE CALL GOPEN (FSAVE,Z(BUF1),0) CALL READ (*180,*10,FSAVE,Z(IMVR),BUF1,1,NWR) 10 IK = IMVR + NWR CALL CLOSE (FSAVE,1) 20 I = (FLOOP-1)*3 + IMVR NEWM = Z(I) IF (OLDM .EQ. NEWM) GO TO 200 OLDM = NEWM IFLAG= 1 C C PUT LIST OF M K'S IN CORE FOR THIS MACH C TRL(1) = QHHL CALL RDTRL (TRL) NROW = TRL(3) NI = (TRL(2)/TRL(3))*2 IOUT = 3 INN = 1 INCR1= 1 NNN = NROW N2 = NROW*2 NN = NROW*NROW IFLE = QHHL CALL OPEN (*180,QHHL,Z(BUF1),0) CALL READ (*180,*180,QHHL,Z,-3,0,NWR) CALL READ (*180,*180,QHHL,N, 1,0,NWR) N = N + N NI = MIN0(NI,N) CALL READ (*180,*180,QHHL,Z(IK),NI,1,NWR) C C FIND M'S CLOSEST TO NEWM C IA = IK + NI IF (MOD(IA,2) .EQ. 0) IA = IA + 1 RMI = 1.E20 RMS = 0.0 DO 30 I = 1,NI,2 RMX = ABS(Z(IK+I-1)-NEWM) RMI = AMIN1(RMI,RMX) IF (RMX .GT. RMI) GO TO 30 RMS = Z(IK+I-1) 30 CONTINUE RMI = RMS C C COUNT K"S C NK = 0 DO 50 I = 1,NI,2 IF (Z(IK+I-1) .EQ. RMI) GO TO 40 GO TO 50 40 NK = NK + 1 50 CONTINUE C C ALLOCATE CORE FOR A-1 AND Q. THEN BUILD THEM. C I = 2*(NK+1)**2 IQ = IA + I ICP= IQ + NN*2*NK IF (MOD(ICP,2) .EQ. 0) ICP = ICP + 1 IF (ICP+SYSBUF+N2 .GT. NCORE) CALL MESAGE (-8,0,NAME) C C BUILD A C J = 0 DO 70 I = 1,NI,2 IF (Z(IK+I-1) .EQ. RMI) GO TO 60 GO TO 70 60 Z(IQ+J) = Z(IK+I) J = J + 1 70 CONTINUE NK1 = NK + 1 N = 0 M = IQ - 1 IAD = IA/2 + 1 ICPD= ICP/2 + 1 DO 90 I = 1,NK1 DX2 = Z(M+I) DO 90 J = 1,NK1 IF (I.EQ.NK1 .AND. J.EQ.NK1) GO TO 100 IF (J.EQ.NK1 .OR. I.EQ.NK1) GO TO 75 DX1 = Z(M+J) DZ(IAD+N) = DABS((DX1-DX2)**3) + (DX1+DX2)**3 GO TO 80 75 DZ(IAD+N) = 1.0D+0 80 N = N + 1 90 CONTINUE 100 DZ(IAD+N) = 0.0D+0 C C MODIFICATION FOR LEVEL 17.7 UPDATE C REPLACE ALL CALLS TO INVAER WITH CALLS TO INVERS. C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (NK1,DZ(IAD),NK1,0,0,DET,ISING,DZ(ICPD)) IF (ISING .EQ. 2) GO TO 150 C C BUILD Q C N = 0 IN = NN L = 0 DO 140 I = 1,NI,2 IF (Z(IK+I-1) .EQ. RMI) GO TO 110 CALL SKPREC (QHHL,NROW) GO TO 140 110 DO 130 J = 1,NROW CALL UNPACK (*115,QHHL,Z(ICP)) GO TO 120 115 CALL ZEROC (Z(ICP),NROW*2) C C SPLIT REAL AND IMAGINARY DIVIDE IMAGINARY BY K C 120 DO 125 K = 1,N2,2 Z(IQ+N) = Z(ICP+K-1) N = N + 1 Z(IQ+IN) = Z(ICP+K)/Z(IK+I) IN = IN + 1 125 CONTINUE 130 CONTINUE Z(IK+L) = Z(IK+I) L = L + 1 N = N + NN IN= IN + NN 140 CONTINUE CALL CLOSE (QHHL,1) GO TO 200 C 150 WRITE (NOUT,160) UFM,NAME 160 FORMAT (A23,' 2427, SINGULAR MATRIX FOR INTERPOLATION IN ',2A4) CALL MESAGE (-61,0,0) 180 CALL MESAGE (-2,IFLE,NAME) 200 RETURN END ================================================ FILE: mis/fa1pkv.f ================================================ SUBROUTINE FA1PKV (AZ,AMK,AMB,N,E1,CZ,BREF,PI,VEL,IBUF) C INTEGER IBUF(1),IV(6),TRL(7) REAL E1(5),V(6),E(2),AMK(1),AMB(1),CZ(1) COMPLEX AZ(1),CEIG,EIGEN,EIGZ COMMON /SYSTEM/ SYSBUF,NOUT,SPACE(6),NLPP,X(2),LINES EQUIVALENCE (V(1),IV(1)),(EIGEN,E(1)) DATA ISCR / 301/, IPASS /0/ C EIGZ = (0.0,0.0) IF (N .LT. 2) GO TO 1000 E(1) = E1(1) E(2) = E1(2) IF (IPASS .NE. 0) GO TO 5 CALL OPEN (*1000,ISCR,IBUF,1) GO TO 9 5 CALL OPEN (*1000,ISCR,IBUF,3) 9 IPASS = IPASS + 1 C C BUILD A = IP2 + M-1B P + M-1K C CEIG = EIGEN*EIGEN K = 0 DO 10 I = 1,N DO 10 J = 1,N K = K + 1 AZ(K) = -AMB(K)*EIGEN - AMK(K) IF (I .EQ. J) AZ(K) = AZ(K) + CEIG 10 CONTINUE C C CORE FOR EGNVCT C N2 = N*2 NA = 1 + N2*N NB = NA + N2 NC = NB + N2 ND = NC + N2 CALL EGNVCT (AZ,CZ(NA),EIGZ,CZ(NB),CZ(NC),CZ(ND),N) C C BUILD ON SCR1 DATA FOR VECTOR OUTPUT C IV(1) = IPASS IV(2) = IPASS V (3) = E1(1) V (4) = E1(2) IF (E1(2) .EQ. 0.0) GO TO 20 V(5) = E1(3) V(6) = E1(5) GO TO 22 20 V(5) = 0.0 V(6) = (BREF/(.34657*VEL))*E1(1) 22 CALL WRITE (ISCR,IV,6,1) CALL WRITE (ISCR,CZ(NB),N2,1) C C VECTOR IS IN CZ(NB) C LINES = NLPP K = 0 DO 30 I = 1,N IF (LINES .LT. NLPP) GO TO 25 CALL PAGE1 WRITE (NOUT,21) EIGEN 21 FORMAT (1H0,47X,30HEIGENVECTOR FROM THE PK METHOD, /3X, 1 13HEIGENVALUE = ,1P,E15.5,1P,E15.5, //3X,11HEIGENVECTOR) LINES = LINES + 5 25 LINES = LINES + 1 WRITE (NOUT,26) CZ(NB+K),CZ(NB+K+1) 26 FORMAT (16X,1P,E15.5,1P,E15.5) K = K + 2 30 CONTINUE TRL(1) = ISCR TRL(2) = 1 CALL WRTTRL (TRL) 1000 CALL CLOSE (ISCR,3) RETURN END ================================================ FILE: mis/fa2.f ================================================ SUBROUTINE FA2 C C THIS IS THE DMAP MODULE FA2 C C DMAP CALLING SEQUENCE C C FA2 PHIH,CLAMA,FSAVE/PHIHL,CLAMAL,CASEYY,OVG/V,N,TSTART/C,Y,VREF/ C 1 C,Y,PRINT=YES $ C C ALL OUTPUTS ARE APPEND C C THE PURPOSE OF THIS MODULE IS TO COPY PARTS OF PHIH, CLAMA, AND C 1 FSAVE ONTO PHIHL, CLAMAL, CASEYY, AND OVG RESPECTIVELY C EXTERNAL LSHIFT INTEGER SYSBUF,PHIH,CLAMA,FSAVE,PHIHL,CLAMAL,CASEYY,OVG, 1 TSTART,PRINT(2),MCB(7),FILE,NAME(2),FMETH,FLOOP, 2 MCBPHL(7),MCBCL(7),MCBCC(7),MCBOVG(7),BUF(146), 3 EJECT,IARY(22),IALPH(2),ME(3),YES,YESB REAL XMACH,KFREQ,LBUF(6),IML,Z(1) COMMON /SYSTEM/ SYSBUF,NOUT,SKP(6),NLPP,MTEMP,NPAG,NLINES COMMON /ZZZZZZ/ IZ(1) COMMON /UNPAKX/ ITC,II,JJ,INCR COMMON /BLANK / TSTART,VREF,PRINT EQUIVALENCE (Z(1),IZ(1)) DATA PHIH , CLAMA,FSAVE,PHIHL,CLAMAL,CASEYY,OVG / 1 101 , 102 , 103, 201, 202, 203,204 / DATA NAME , NO,MCBCL,MCBCC,MCBOVG,IBLNK / 1 4HFA2 , 1H , 2HNO, 21*0,4H / DATA BUF / 146*1H / DATA IARY / 4H POI,4HNT =,1H ,1H ,4H MAC,4HH = ,1H ,1H , 1 4H KFR, 4HEQ= ,1H ,1H ,4H RHO,4H = ,1H ,1H ,6*1H / DATA TWOPHI/ 6.28318531 / DATA ME / 1HK, 2HKE, 2HPK / DATA YES , YESB/ 3HYES, 4HYESB / C C INITIALIZE C NZ = KORSZ(Z) IBUF1 = NZ - SYSBUF + 1 IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF NZ = IBUF4 - 1 ITC = 3 INCR = 1 MCBCL(1) = CLAMAL MCBCC(1) = CASEYY MCBOVG(1)= OVG IF (VREF .EQ. 0.0) VREF = 1.0 C C FIND PROPER METHOD C FILE = FSAVE CALL OPEN (*900,FSAVE,IZ(IBUF1),0) CALL READ (*910,*920,FSAVE,IZ(1),8,1,IFLAG) J = 3 FMETH = IZ(J) METH = ME(FMETH) ONEOK = 1.E+25 MCB(1)= FSAVE CALL RDTRL (MCB) FLOOP = MCB(2) NLOOP = MCB(3) NVALUE= MCB(7) J = 6 BREF = Z(J) PHIB = TWOPHI*BREF GO TO (1000,2000,3000), FMETH C C K METHOD C 1000 CONTINUE C C PICK UP CONSTANTS C NVALUE = 8 NVALUE = IZ(NVALUE) C C COPY ONTO PHIHL C IF (FLOOP .NE. 1) GO TO 1010 C C FIRST TIME C CALL GOPEN (PHIHL,IZ(IBUF2),1) CALL CLOSE (PHIHL,1) MCBPHL(1) = PHIH CALL RDTRL (MCBPHL) MCBPHL(2) = 0 MCBPHL(6) = 0 MCBPHL(7) = 0 MCBPHL(1) = PHIHL CALL WRTTRL (MCBPHL) CALL GOPEN (CLAMAL,IZ(IBUF2),1) CALL GOPEN (CLAMA,IZ(IBUF3),0) CALL FREAD (CLAMA,BUF,146,1) CALL CLOSE (CLAMA,1) CALL WRITE (CLAMAL,BUF,146,1) CALL WRITE (CLAMAL,0,0,1) CALL CLOSE (CLAMAL,1) CALL GOPEN (CASEYY,IZ(IBUF2),1) CALL CLOSE (CASEYY,1) CALL GOPEN (OVG,IZ(IBUF2),1) CALL CLOSE (OVG,1) C C COPY NVALUE VECTORS TO PHIHL C 1010 CONTINUE MCB(1) = PHIH CALL RDTRL (MCB) NCOPY = MIN0(NVALUE,MCB(2)) CALL GOPEN (PHIH,IZ(IBUF2),0) CALL GOPEN (PHIHL,IZ(IBUF3),0) CALL SKPFIL (PHIHL, 1) CALL SKPFIL (PHIHL,-1) CALL CLOSE (PHIHL, 2) CALL GOPEN (PHIHL,IZ(IBUF3),3) MCBPHL(1) = PHIHL CALL RDTRL (MCBPHL) MCBPHL(7) = (2*MCBPHL(7)*MCBPHL(2)*MCBPHL(3))/10000 CALL CYCT2B (PHIH,PHIHL,NCOPY,IZ,MCBPHL) CALL CLOSE (PHIH,1) CALL CLOSE (PHIHL,1) CALL WRTTRL (MCBPHL) C C PICK UP M,K,RHO FOR THIS LOOP C CALL FREAD (FSAVE,IZ,-3*(FLOOP-1),0) CALL FREAD (FSAVE,Z,3,1) J = 0 XMACH = Z( 1) KFREQ = Z(J+2) RHO = Z(J+3) CALL FREAD (FSAVE,Z,1,1) C C PUT CASEYY INTO CORE C CALL READ (*910,*1020,FSAVE,IZ,NZ,0,IFLAG) CALL MESAGE (-8,0,NAME) 1020 CONTINUE CALL CLOSE (FSAVE,1) K = 39 DO 1021 I = 51,146 BUF(I) = IZ(K) K = K + 1 1021 CONTINUE C C READY CLAMA C CALL GOPEN (CLAMA,IZ(IBUF1),0) CALL FWDREC (*910,CLAMA) C C READY CLAMAL C CALL GOPEN (CLAMAL,IZ(IBUF2),0) CALL SKPFIL (CLAMAL, 1) CALL SKPFIL (CLAMAL,-1) CALL BCKREC (CLAMAL) CALL READ (*910,*1022,CLAMAL,IZ(IFLAG+1),NZ,0,I) CALL MESAGE (-8,0,NAME) 1022 CONTINUE CALL BCKREC (CLAMAL) CALL CLOSE (CLAMAL,2) CALL GOPEN (CLAMAL,IZ(IBUF2),3) CALL WRITE (CLAMAL,IZ(IFLAG+1),I,0) CALL RDTRL (MCBCL) C C READY CASEYY C CALL GOPEN (CASEYY,IZ(IBUF3),0) CALL SKPFIL (CASEYY, 1) CALL SKPFIL (CASEYY,-1) CALL CLOSE (CASEYY, 2) CALL GOPEN (CASEYY,IZ(IBUF3),3) CALL RDTRL (MCBCC) C C READY OVG C CALL GOPEN (OVG,IZ(IBUF4),0) CALL SKPFIL (OVG, 1) CALL SKPFIL (OVG,-1) CALL CLOSE (OVG,2) CALL GOPEN (OVG,IZ(IBUF4),3) CALL RDTRL (MCBOVG) MCBOVG(2)= MCBOVG(2) + 1 MCBCC(4) = IFLAG CALL WRTTRL (MCBOVG) MCBCC(2) = MCBCC(2) + NCOPY CALL WRTTRL (MCBCC) MCBCL(2) = MCBCL(2) + NCOPY CALL WRTTRL (MCBCL) GO TO 1042 C C K-E METHOD C 2000 CONTINUE C C P - K METHOD C 3000 CONTINUE C C READY OVG C CALL GOPEN (OVG,IZ(IBUF2),1) MCBOVG(2) = 1 CALL WRTTRL (MCBOVG) C C PUT RECORD 2 OF FSAVE INTO CORE C CALL READ (*910,*3010,FSAVE,IZ(1),NZ,1,IFLAG) CALL MESAGE (-8,0,NAME) 3010 CONTINUE CALL SKPREC (FSAVE,1) CALL FREAD (FSAVE,0,-51,0) CALL FREAD (FSAVE,BUF,96,1) IMR = 1 FLOOP = 1 C C COUNT RHO S C NRHO = 1 IF (FMETH .EQ. 3) GO TO 3012 IRHO = 1 RHO = Z(IMR+2) IMR1 = IMR + 3 3013 CONTINUE IF (IMR1 .GT. IFLAG) GO TO 3012 IF (RHO .EQ. Z(IMR1+2)) GO TO 3012 NRHO = NRHO + 1 IMR1 = IMR1 + 3 GO TO 3013 3012 CONTINUE 3011 CONTINUE NV = 1 C C DETERMINE THE NUMBER OF M-RHO PAIRS FOR THIS GO C XMACH = Z(IMR ) RHO = Z(IMR+2) NCOPY = 1 IMR1 = IMR + 3*NRHO 3020 CONTINUE IF (IMR1 .GT. IFLAG) GO TO 1042 IF (XMACH.NE.Z(IMR1) .OR. RHO.NE.Z(IMR1+2)) GO TO 1042 NCOPY = NCOPY + 1 IMR1 = IMR1 + 3*NRHO GO TO 3020 1042 CONTINUE C IF (PRINT(1) .EQ. NO) GO TO 1041 C SET UP PAGE FORMATS C CALL PAGE1 NLINES = NLINES + 7 IF (PRINT(1) .EQ. YESB) WRITE (NOUT,1039) FLOOP,XMACH,RHO,METH IF (PRINT(1) .EQ. YES ) WRITE (NOUT,1040) FLOOP,XMACH,RHO,METH 1039 FORMAT (1H0,55X,16HFLUTTER SUMMARY, //7X, 1 9HPOINT = ,I3,5X,14HSIGMA VALUE = ,F8.3,4X, 2 16HDENSITY RATIO = ,1P,E11.4,5X,9HMETHOD = ,A4, ///7X, 3 5HKFREQ,12X, 8H1./KFREQ, 9X,8HVELOCITY, 12X,7HDAMPING, 4 9X,9HFREQUENCY,12X,20HCOMPLEX EIGENVALUE) 1040 FORMAT (1H0,55X,16HFLUTTER SUMMARY, //7X, 1 9HPOINT = ,I3, 5X,14HMACH NUMBER = ,F7.4,5X, 2 16HDENSITY RATIO = ,1P,E11.4, 5X,9HMETHOD = ,A4, ///7X, 3 5HKFREQ, 12X,8H1./KFREQ, 9X,8HVELOCITY, 12X,7HDAMPING, 4 9X,9HFREQUENCY, 12X,20HCOMPLEX EIGENVALUE) 1041 CONTINUE C C SET UP FOR OVG C BUF(1) = 60 BUF(2) = 2002 BUF(4) = 1 BUF(5) = 10*FLOOP BUF(9) = 1 BUF(10)= 4 CALL WRITE (OVG,BUF,146,1) IF (FMETH .NE. 1) GO TO 1101 DO 1090 I = 115,146 BUF(I) = IBLNK 1090 CONTINUE CALL INT2A8 (*1092,FLOOP,IALPH) 1092 IARY(3) = IALPH(1) IARY(4) = IALPH(2) CALL RE2AL (XMACH,IALPH) IARY(7) = IALPH(1) IARY(8) = IALPH(2) CALL RE2AL (KFREQ,IALPH) IARY(11) = IALPH(1) IARY(12) = IALPH(2) CALL RE2AL (RHO,IALPH) IARY(15) = IALPH(1) IARY(16) = IALPH(2) K = 115 DO 1095 I = 1,16 BUF(K) = IARY(I) K = K + 1 1095 CONTINUE K = 103 DO 1100 I = 115,146 IZ(K) = BUF(I) K = K + 1 1100 CONTINUE 1101 CONTINUE DO 1030 I = 1,NCOPY GO TO (1102,1150,3200), FMETH C C KE METHOD C 1150 CONTINUE IF (I.NE.1 .OR. NV.NE.1) GO TO 1152 IR = IFLAG + 1 J = NVALUE*2 DO 1153 M = 1,NCOPY C C READ A RECORD OF COMPLEX EIGENVALUES INTO CORE C CALL FREAD (FSAVE,IZ(IR),J,1) CALL SKPREC (FSAVE,NRHO-1) C C REARRANGE THE COMPLEX EIGENVALUES IN THE RECORD IN ASCENDING C ORDER OF THE ABSOLUTE VALUES OF THE IMAGINARY PARTS C NVALU1 = NVALUE - 1 DO 1170 L = 1,NVALU1 LR = IR + 2*(L-1) LI = LR + 1 VALUER = Z(LR) VALUEI = Z(LI) VALUE = ABS(VALUEI) INDEX = L L1 = L + 1 DO 1160 K = L1,NVALUE KR = IR + 2*(K-1) KI = KR + 1 VALUE1 = ABS(Z(KI)) IF (VALUE1 .GE. VALUE) GO TO 1160 VALUER = Z(KR) VALUEI = Z(KI) VALUE = VALUE1 INDEX = K 1160 CONTINUE IF (INDEX .EQ. L) GO TO 1170 IRR = IR + 2*(INDEX-1) IRI = IRR + 1 Z(IRR) = Z(LR) Z(IRI) = Z(LI) Z(LR) = VALUER Z(LI) = VALUEI 1170 CONTINUE IR = IR + J 1153 CONTINUE C C SELECT EACH FOR OUTPUT C 1152 CONTINUE J = IFLAG + 1 + (I-1)*NVALUE*2 + (NV-1)*2 REL = Z(J) IML = Z(J+1) VOUT = ABS(IML)/VREF G = 0.0 IF (IML .NE. 0.0) G = 2.*REL/IML KFREQ= Z(IMR+3*I-2) F = KFREQ*IML/PHIB GO TO 1103 C C PK METHOD C 3200 CONTINUE CALL FREAD (FSAVE,LBUF,-(NV-1)*5,0) CALL FREAD (FSAVE,LBUF,5,1) REL = LBUF(1) IML = LBUF(2) KFREQ = LBUF(3) F = LBUF(4) G = LBUF(5) VOUT = ABS(Z(IMR+3*I-2))/VREF GO TO 1103 C C K METHOD C 1102 CONTINUE CALL FREAD (CLAMA ,LBUF,6,0) CALL WRITE (CLAMAL,LBUF,6,0) REL = LBUF(3) IML = LBUF(4) VOUT= ABS(IML)/VREF G = 0.0 IF (IML .NE. 0.0) G = 2.0*REL/IML F = KFREQ*IML/(PHIB) C C PUT OUT CASEYY C CALL WRITE (CASEYY,IZ,IFLAG,1) 1103 CONTINUE IF (PRINT(1) .EQ. NO) GO TO 1050 C C PRINT OUTPUT C K = EJECT(1) IF (K .EQ. 0) GO TO 1060 IF (PRINT(1) .EQ. YESB) WRITE (NOUT,1039) FLOOP,XMACH,RHO,METH IF (PRINT(1) .EQ. YES ) WRITE (NOUT,1040) FLOOP,XMACH,RHO,METH NLINES = NLINES + 7 1060 CONTINUE IF (KFREQ .NE. 0.0) ONEOK = 1.0/KFREQ WRITE (NOUT,1070) KFREQ,ONEOK,VOUT,G,F,REL,IML 1070 FORMAT (1H ,5X,F8.4,5X,6(1X,1P,E14.7,3X)) 1050 CONTINUE C C PUT OUT OVG PARTS C LBUF(1) = VOUT LBUF(2) = 0.0 LBUF(3) = G LBUF(4) = F CALL WRITE (OVG,LBUF,4,0) 1030 CONTINUE FLOOP = FLOOP+1 CALL WRITE (OVG,0,0,1) GO TO (1031,2031,3331), FMETH C C FINISH UP FOR KE METHOD C 2031 CONTINUE NV = NV + 1 IF (NV .LE. NVALUE) GO TO 1042 C C ALL MODES DONE C IF (IRHO .GE. NRHO) GO TO 2090 C C DO ANOTHER RHO C IRHO= IRHO + 1 IMR = IMR + 3 RHO = Z(IMR+2) CALL SKPREC (FSAVE,NCOPY*(NRHO-1)) GO TO 1042 2090 CONTINUE IF (IMR1 .GT. IFLAG) GO TO 4000 IMR = IMR1 GO TO 3011 C C P-K AT POINT END C 3331 CONTINUE NV = NV + 1 IF (NV .GT. NVALUE) GO TO 3390 CALL SKPREC (FSAVE,-NCOPY) GO TO 1042 C C ALL MODES DONE--CONSIDER MORE M-RHO VALUES C 3390 IF (IMR1 .GT. IFLAG) GO TO 4000 IMR = IMR1 GO TO 3011 C C DONE C 4000 CALL CLOSE (OVG,1) CALL CLOSE (FSAVE,1) RETURN C C FINISH UP C 1031 CALL WRITE (CLAMAL,0,0,1) CALL CLOSE (OVG,1) CALL CLOSE (CLAMAL,1) CALL CLOSE (CLAMA,1) CALL CLOSE (CASEYY,1) C C CHECK TIMES C CALL KLOCK (NOW) CALL TMTOGO (ITLFT) IF (NOW-TSTART.GE.ITLFT .AND. FLOOP.NE.NLOOP) GO TO 1110 RETURN C C INSUFFICIENT TIME C 1110 CALL MESAGE (45,NLOOP - FLOOP,NAME) TSTART = -1 RETURN C C ERROR MESSAGES C 900 IP1 = -1 GO TO 901 910 IP1 = -2 GO TO 901 920 IP1 = -3 901 CALL MESAGE (IP1,FILE,NAME) RETURN END ================================================ FILE: mis/factor.f ================================================ SUBROUTINE FACTOR (INPUT,LOWER,SCR1,SCR2,SCR3,SCR4) C IMPLICIT INTEGER (A-Z) INTEGER BCD(2) DOUBLE PRECISION DET COMMON /SYSTEM/ KSYSTM(65) COMMON /SFACT / FILEA(7),FILEL(7),FILEU(7),SCR1FL,SCR2FL,NZ , 1 DET(2) ,P ,SCR3FL ,XX3 ,XX4 ,CHL COMMON /ZZZZZZ/ Z(1) DATA LOWTRI/ 4 / DATA BCD / 4HFACT,4HOR / C C INITIALIZE MATRIX CONTROL BLOCKS AND SFACT COMMON C NZ = KORSZ(Z) FILEA(1) = INPUT CALL RDTRL (FILEA) CALL MAKMCB (FILEL,LOWER,FILEA(3),LOWTRI,FILEA(5)) FILEU(1) = IABS(SCR1) SCR1FL = SCR2 SCR2FL = SCR3 SCR3FL = SCR4 CHL = 0 IF (SCR1 .LT. 0) CHL = 1 C C DECOMPOSE INPUT MATRIX INTO LOWER TRIANGULAR FACTOR. C CALL SDCOMP (*40,Z,Z,Z) C C WRITE TRAILER FOR LOWER TRIANGULAR FACTOR. C CALL WRTTRL (FILEL) RETURN C C FATAL ERROR MESSAGE FOR SINGULAR INPUT MATRIX C 40 CALL MESAGE (-5,INPUT,BCD) RETURN END ================================================ FILE: mis/factru.f ================================================ SUBROUTINE FACTRU(*,A,LLL,ULL,SCR1,SCR2,SCR3) C INTEGER A,SCR1,SCR2,SCR3,ULL DOUBLE PRECISION DETT,MINDIA C COMMON /DCOMPX/IA(7),IL(7),IU(7),ISCR1,ISCR2,ISCR3,DETT,IPOW, 1 NZ,MINDIA,IB,IBB COMMON /SYSTEM/SYS(54),IPREC COMMON /ZZZZZZ/ XX(1) C C ---------------------------------------------------------------------- C IB = 0 IBB = 0 IA(1) = A CALL RDTRL(IA) IL(1)=LLL IU(1)=ULL ISCR1=SCR1 ISCR2=SCR2 ISCR3=SCR3 NZ = KORSZ(XX) IL(3) = IA(3) IU(3) = IA(3) IL(4) =4 IU(4) =5 IU(5) = IPREC IL(5) = IPREC CALL DECOMP(*10,XX,XX,XX) CALL WRTTRL(IL) CALL WRTTRL(IU) RETURN 10 RETURN 1 C END ================================================ FILE: mis/failrs.f ================================================ SUBROUTINE FAILRS (FTHR,ULTSTN,STRESL,FINDEX) C C THIS ROUTINE COMPUTES THE FAILURE INDEX OF A LAYER IN A LAMINATED C COMPOSITE ELEMENT USING ONE OF THE FOLLOWING FIVE FAILURE THEORIES C CURRENTLY AVAILABLE C 1. HILL C 2. HOFFMAN C 3. TSAI-WU C 4. MAX STRESS C 5. MAX STRAIN C C C DEFINITIONS C C XT = ULTIMATE UNIAXIAL TENSILE STRENGTH IN THE FIBER DIRECTION C XC = ULTIMATE UNIAXIAL COMPRESSIVE STRENGTH IN THE FIBER DIRECTION C YT = ULTIMATE UNIAXIAL TENSILE STRENGTH PERPENDICULAR TO THE FIBER C DIRECTION C YC = ULTIMATE UNIAXIAL COMPRESSIVE STRENGTH PERPENDICULAR TO THE C FIBER DIRECTION C S = ULTIMATE PLANAR SHEAR STRENGTH UNDER PURE SHEAR LOADING C C SIMILARILY FOR THE ULTIMATE STRAINS C C INTEGER FTHR REAL ULTSTN(6),STRESL(3) C C C CHECK FOR ZERO STRENGTH VALUES C DO 50 I = 1,5 50 IF (ULTSTN(I) .EQ. 0.0) GO TO 700 C C ULTIMATE STRENGTH VALUES C XT = ULTSTN(1) XC = ULTSTN(2) YT = ULTSTN(3) YC = ULTSTN(4) S = ULTSTN(5) F12 = ULTSTN(6) C C LAYER STRESSES C SIG1 = STRESL(1) SIG2 = STRESL(2) TAU12= STRESL(3) C C LAYER STRAINS C EPS1 = STRESL(1) EPS2 = STRESL(2) GAMA = STRESL(3) C GO TO (100,200,300,400,500), FTHR C C HILL FAILURE THEORY C ------------------- C 100 X = XT IF (SIG1 .LT. 0.0) X = XC C Y = YT IF (SIG2 .LT. 0.0) Y = YC C XX = XT IF (SIG1*SIG2 .LT. 0.0) XX = XC C FINDEX = (SIG1*SIG1)/(X*X) FINDEX = FINDEX + (SIG2 * SIG2)/(Y * Y) FINDEX = FINDEX - (SIG1 * SIG2)/(XX*XX) FINDEX = FINDEX + (TAU12*TAU12)/(S * S) GO TO 600 C C C HOFFMAN FAILURE THEORY C ---------------------- C 200 FINDEX = (1.0/XT-1.0/XC)*SIG1 FINDEX = FINDEX + (1.0/YT-1.0/YC)*SIG2 FINDEX = FINDEX + (SIG1 * SIG1)/(XT*XC) FINDEX = FINDEX + (SIG2 * SIG2)/(YT*YC) FINDEX = FINDEX + (TAU12*TAU12)/(S * S) FINDEX = FINDEX + (SIG1 * SIG2)/(XT*XC) GO TO 600 C C C TSAI-WU FAILURE THEORY C ---------------------- C C CHECK STABILITY CRITERIA FOR THE INTERACTION TERM F12 C 300 IF (F12 .EQ. 0.0) GO TO 350 C CRIT = (1.0/(XT*XC))*(1.0/(YT*YC)) - F12*F12 IF (CRIT .GT. 0.0) GO TO 350 C C IF STABILITY CRITERIA IS VIOLATED THEN SET THE F12 THE INTERACTION C TERM TO ZERO C F12 = 0.0 C C 350 FINDEX = (1.0/XT-1.0/XC)*SIG1 FINDEX = FINDEX + (1.0/YT-1.0/YC)*SIG2 FINDEX = FINDEX + (SIG1 * SIG1)/(XT*XC) FINDEX = FINDEX + (SIG2 * SIG2)/(YT*YC) FINDEX = FINDEX + (TAU12*TAU12)/(S * S) IF (F12 .EQ. 0.0) GO TO 600 FINDEX = FINDEX + 2.0*F12*SIG1*SIG2 GO TO 600 C C C MAX STRESS FAILURE THEORY C ------------------------- C 400 FI1 = SIG1/XT IF (SIG1 .LT. 0.0) FI1 = ABS(SIG1/XC) C FI2 = SIG2/YT IF (SIG2 .LT. 0.0) FI2 = ABS(SIG2/YC) C FI12 = ABS(TAU12)/S C FINDEX = FI1 IF (FI2 .GT. FINDEX) FINDEX = FI2 IF (FI12 .GT. FINDEX) FINDEX = FI12 GO TO 600 C C C MAX STRAIN FAILURE THEORY C ------------------------- C 500 FI1 = EPS1/XT IF (EPS1 .LT. 0.0) FI1 = ABS(EPS1/XC) C FI2 = EPS2/YT IF (EPS2 .LT. 0.0) FI2 = ABS(EPS2/YC) C FI12 = ABS(GAMA)/S C FINDEX = FI1 IF (FI2 .GT. FINDEX) FINDEX = FI2 IF (FI12 .GT. FINDEX) FINDEX = FI12 C 600 CONTINUE C RETURN C C C NON-FATAL ERROR C 700 FINDEX = 0.0 RETURN END ================================================ FILE: mis/failur.f ================================================ SUBROUTINE FAILUR (FTHR,ULTSTN,STRESL,FINDEX) C C THIS ROUTINE COMPUTES THE FAILURE INDEX OF A LAYER C IN A LAMINATED COMPOSITE ELEMENT USING ONE OF THE C FOLLOWING FIVE FAILURE THEORIES CURRENTLY AVAILABLE C C 1. HILL C 2. HOFFMAN C 3. TSAI-WU C 4. MAX STRESS C 5. MAX STRAIN C C DEFINITIONS C ----------- C XT = ULTIMATE UNIAXIAL TENSILE STRENGTH IN THE FIBER C DIRECTION C XC = ULTIMATE UNIAXIAL COMPRESSIVE STRENGTH IN THE C FIBER DIRECTION C YT = ULTIMATE UNIAXIAL TENSILE STRENGTH PERPENDICULAR TO C THE FIBER DIRECTION C YC = ULTIMATE UNIAXIAL COMPRESSIVE STRENGTH PERPENDICULAR C TO THE FIBER DIRECTION C S = ULTIMATE PLANAR SHEAR STRENGTH UNDER PURE SHEAR C LOADING C SIMILARILY FOR THE ULTIMATE STRAINS C DIMENSION ULTSTN(6),STRESL(3) INTEGER FTHR COMMON /SYSTEM/ IBUF,NOUT C C**** CHECK FOR ZERO STRENGTH VALUES C DO 10 I = 1,5 10 IF (ULTSTN(I) .EQ. 0.0) GO TO 90 C C**** ULTIMATE STRENGTH VALUES C XT = ULTSTN(1) XC = ULTSTN(2) YT = ULTSTN(3) YC = ULTSTN(4) S = ULTSTN(5) F12 = ULTSTN(6) C C**** LAYER STRESSES C SIG1 = STRESL(1) SIG2 = STRESL(2) TAU12 = STRESL(3) C C**** LAYER STRAINS C EPS1 = STRESL(1) EPS2 = STRESL(2) GAMA = STRESL(3) C C GO TO (20,30,40,60,70), FTHR C C H I L L F A I L U R E T H E O R Y C ==================================== C 20 X = XT IF (SIG1 .LT. 0.0) X = XC C Y = YT IF (SIG2 .LT. 0.0) Y = YC C XX = XT IF ((SIG1*SIG2) .LT. 0.0) XX = XC C FINDEX = ( SIG1*SIG1 )/( X*X ) FINDEX = FINDEX + ( SIG2*SIG2 )/( Y*Y ) FINDEX = FINDEX - ( SIG1*SIG2 )/( XX*XX ) FINDEX = FINDEX + ( TAU12*TAU12 )/( S*S ) GO TO 80 C C C H O F F M A N F A I L U R E T H E O R Y C ========================================= C 30 FINDEX = ( 1.0/XT - 1.0/XC )*SIG1 FINDEX = FINDEX + ( 1.0/YT - 1.0/YC )*SIG2 FINDEX = FINDEX + ( SIG1*SIG1 )/( XT*XC ) FINDEX = FINDEX + ( SIG2*SIG2 )/( YT*YC ) FINDEX = FINDEX + ( TAU12*TAU12 )/( S*S ) FINDEX = FINDEX - ( SIG1*SIG2 )/( XT*XC ) GO TO 80 C C C T S A I-W U F A I L U R E T H E O R Y C ======================================= C C**** CHECK STABILITY CRITERIA FOR THE INTERACTION TERM F12 40 IF (F12 .EQ. 0.0) GO TO 50 C CRIT = ( 1.0/(XT*XC) )*( 1.0/(YT*YC) ) - ( F12*F12 ) IF (CRIT .GT. 0.0) GO TO 50 C C**** IF STABILITY CRITERIA IS VIOLATED THEN SET THE C F12 THE INTERACTION TERM TO ZERO C F12 = 0.0 C C 50 FINDEX = ( 1.0/XT - 1.0/XC )*SIG1 FINDEX = FINDEX + ( 1.0/YT - 1.0/YC )*SIG2 FINDEX = FINDEX + ( SIG1*SIG1 )/( XT*XC ) FINDEX = FINDEX + ( SIG2*SIG2 )/( YT*YC ) FINDEX = FINDEX + ( TAU12*TAU12 )/( S*S ) IF (F12 .EQ. 0.0) GO TO 80 FINDEX = FINDEX + ( 2.0*F12*SIG1*SIG2 ) GO TO 80 C C C M A X S T R E S S F A I L U R E T H E O R Y C ============================================== C 60 FI1 = SIG1/XT IF (SIG1 .LT. 0.0) FI1 = SIG1/XC C FI2 = SIG2/YT IF (SIG2 .LT. 0.0) FI2 = SIG2/YC C FI12 = ABS(TAU12)/S C FINDEX = FI1 IF (FI2 .GT. FINDEX) FINDEX = FI2 IF (FI12 .GT. FINDEX) FINDEX = FI12 GO TO 80 C C C M A X S T R A I N F A I L U R E T H E O R Y C ============================================== C 70 FI1 = EPS1/XT IF (EPS1 .LT. 0.0) FI1 = EPS1/XC C FI2 = EPS2/YT IF (EPS2 .LT. 0.0) FI2 = EPS2/YC C FI12 = ABS(GAMA)/S C FINDEX = FI1 IF (FI2 .GT. FINDEX) FINDEX = FI2 IF (FI12 .GT. FINDEX) FINDEX = FI12 C 80 CONTINUE C RETURN C C C NON-FATAL ERROR C C 90 FINDEX = 0.0 RETURN END ================================================ FILE: mis/fbs.f ================================================ SUBROUTINE FBS (ZS,ZD) C C GIVEN A LOWER TRIANGULAR FACTOR WITH DIAGONAL SUPERIMPOSED, AND C WRITTEN WITH TRAILING STRING DEFINITION WORDS, FBS WILL PERFORM C THE FORWARD-BACKWARD SUBSTITUTION NECESSARY TO SOLVE A LINEAR C SYSTEM OF EQUATIONS. C C THE ARE TWO METHODS AVAILABLE FOR THIS PROCESS. C METHOD 1 - THIS METHOD READS AS MANY RIGHT HAND VECTORS INTO MEMORY C AS POSSIBLE, AND THEN READS THE LOWER TRIANGULAR MATRIX C USING GETSTR AND GETSTB TO SOLVE FOR THE SOLUTION VECTORS. C MORE THAN ONE PASS MAY BE REQUIRED IF INSUFFICIENT MEMORY C EXISTS FOR LOADING ALL RIGHT HAND VECTORS AT ONE TIME. C THIS METHOD IS THE OLDER OF THE TWO METHODS. C (SEE SUBROUTINES FBSF, FBSF1, FBSF2, FBSF3 AND FBSF4) C METHOD 2 - THIS METHOD IS THE SAME AS METHOD 1 WITH THE EXCEPTION C THAT MEMORY EXISTS FOR LOADING PART OR ALL OF THE LOWER C TRIANGULAR MATRIX INTO OPEN CORE AFTER LOADING ALL OF C THE RIGHT HAND VECTORS INTO OPEN CORE. THIS METHOD C WILL ELIMINATE THE NEED TO READ THE LOWER TRIANGULAR C MATRIX TWICE (ONCE FORWARD AND ONCE BACKWARD). C (SEE SUBROUTINES FBSI, FBSI1, FBSI2, FBSI3 AND FBSI4) C C THE SELECTION OF METHOD 1 OR 2 IS DEPENDENT UPON WHETHER C MEMORY EXISTS FOR READING THE LOWER TRIANGULAR MATRIX INTO MEMORY C C SEE SUBROUTINES FBSF AND FBSI FOR OPEN CORE LAYOUTS C INTEGER DBL ,DBB ,SYSBUF &, WORDS ,RLCMPX ,RC &, TYPEL ,TYPEB REAL ZS(1) DOUBLE PRECISION ZD(1) COMMON /FBSX / DBL(7) ,DBU(7) ,DBB(7) ,DBX(7) ,LCORE 1, PREC ,SIGN ,SCRX COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /TYPE / PRC(2) ,WORDS(4) ,RLCMPX(4) C C GENERAL INITIALIZATION C C DIAG 46 FORCES METHOD ONE C CALL SSWTCH ( 46, L46 ) IF ( L46 .NE. 0 ) GO TO 1000 NCOL = DBL( 2 ) TYPEL = DBL( 5 ) TYPEB = DBB( 5 ) RC = RLCMPX( TYPEB ) C C NRHVWD = NUMBER OF WORDS REQUIRED FOR EACH RIGHT HAND VECTOR C NRHV = NUMBER OF RIGHT HAND VECTORS C NRHVWD = WORDS(TYPEL) * NCOL NRHV = DBB(2) C C CHECK FOR RIGHT HAND VECTORS BEING THE IDENTITY MATRIX C IF ( DBB( 4 ) .EQ. 8 ) NRHV = NCOL C C COMPUTE THE MEMORY TO READ ALL OF THE RIGHT HAND VECTORS INTO MEMORY C NEED = NRHV * NRHVWD IREMAIN = LCORE - 2 * SYSBUF - NEED C C IF LESS THAN ONE COLUMN WORTH OF MEMORY AVAILABLE, USE METHOD ONE C IF ( IREMAIN .GE. NRHVWD ) GO TO 2000 C C METHOD ONE - FIRST, CHECK FOR SUFFICIENT MEMORY FOR PROCESS C 1000 MEMAVL = LCORE - 2*SYSBUF - NRHVWD IF ( MEMAVL .LE. 0 ) CALL MESAGE ( -8, -MEMAVL, SUBNAM ) CALL FBSF ( ZS, ZD ) GO TO 7000 C C METHOD TWO C 2000 CALL FBSI ( ZS, ZD ) 7000 CONTINUE RETURN END ================================================ FILE: mis/fbs1.f ================================================ SUBROUTINE FBS1 (BLOCK,Y,YN,NWDS) C C FBS1 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSF IN RSP C INTEGER BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END REAL Y(1), YN(1), LJJ, L, SUM CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON /XMSSG / UFM, UWM, UIM, SFM COMMON /MACHIN/ MACH COMMON /SYSTEM/ SYSBUF, NOUT COMMON /ZZZZZZ/ L(1) COMMON /FBSX / DBL , N DATA SUBNAM, BEGN, END / 4HFBS1, 4HBEGN, 4HEND / C BUF(1) = SUBNAM BUF(2) = BEGN CALL CONMSG (BUF,2,0) NBRITM = NWDS J = (LOCFX(YN)-LOCFX(Y)+1)/NWDS LAST = MAX0(J,1)*NBRITM DO 35 J = 1,N J1 = J -1 DO 5 K = J,LAST,NBRITM IF (Y(K) .NE. 0.0) GO TO 7 5 CONTINUE CALL SKPREC (BLOCK(1),1) GO TO 35 C C MAKE 1ST STRING CALL FOR COLUMN AND SAVE DIAGONAL ELEMENT C 7 BLOCK(8) = -1 CALL GETSTR (*80,BLOCK) IF (BLOCK(4) .NE. J) GO TO 80 JSTR = BLOCK(5) LJJ = 1.0/L(JSTR) IF (BLOCK(6) .EQ. 1) GO TO 20 NSTR = JSTR + BLOCK(6) - 1 JSTR = JSTR + 1 BLOCK(4) = BLOCK(4) + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 10 DO 15 K = 1,LAST,NBRITM YJK = Y(J1+K) IF (YJK .EQ. 0.0) GO TO 15 IK = BLOCK(4) + K - 1 DO 12 IJ = JSTR,NSTR Y(IK) = Y(IK) + L(IJ)*YJK 12 IK = IK + 1 15 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 20 CALL ENDGET (BLOCK) CALL GETSTR (*30,BLOCK) JSTR = BLOCK(5) NSTR = JSTR + BLOCK(6) - 1 GO TO 10 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 30 DO 32 K = J,LAST,NBRITM 32 Y(K) = Y(K)*LJJ C 35 CONTINUE C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C IF (N .EQ. 1) GO TO 65 CALL BCKREC (BLOCK) J = N - 1 C C GET A STRING IN CURRENT COLUMN. IF STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 40 J1 = J - 1 BLOCK(8) = -1 42 CALL GETSTB (*60,BLOCK) IF (BLOCK(4)-BLOCK(6) .EQ. J1) BLOCK(6) = BLOCK(6) - 1 IF (BLOCK(6) .EQ. 0) GO TO 58 NTERMS = BLOCK(6) C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 55 K = 1,LAST,NBRITM JI = BLOCK(5) + 1 IK = BLOCK(4) + K SUM = 0.0 DO 53 II = 1,NTERMS JI = JI - 1 IK = IK - 1 SUM = SUM + L(JI)*Y(IK) 53 CONTINUE Y(J1+K) = Y(J1+K) + SUM 55 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C 58 CALL ENDGTB (BLOCK) GO TO 42 C C END-OF-COLUMN -- TEST FOR COMPLETION C 60 IF (J .NE. 1) GO TO 70 65 BUF(2) = END CALL CONMSG (BUF,2,0) RETURN C 70 J = J - 1 GO TO 40 C C FATAL ERROR MESSAGE C 80 WRITE (NOUT,82) SFM,SUBNAM 82 FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU', 1 'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/fbs2.f ================================================ SUBROUTINE FBS2 (BLOCK,Y,YN,NWDS) C C FBS2 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSF IN RDP C INTEGER BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END DOUBLE PRECISION Y(1), YN(1), LJJ, L, YJK, SUM, ZERO CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON /XMSSG / UFM, UWM, UIM, SFM COMMON /MACHIN/ MACH COMMON /SYSTEM/ SYSBUF, NOUT COMMON /ZZZZZZ/ L(1) COMMON /FBSX / DBL, N DATA ZERO / 0.0D+0 / DATA SUBNAM, BEGN, END / 4HFBS2, 4HBEGN, 4HEND / C BUF(1) = SUBNAM BUF(2) = BEGN CALL CONMSG (BUF,2,0) NBRITM = NWDS/2 J = (LOCFX(YN)-LOCFX(Y)+1)/NWDS LAST = MAX0(J,1)*NBRITM DO 35 J = 1,N J1 = J - 1 DO 5 K = J,LAST,NBRITM IF (Y(K) .NE. ZERO) GO TO 7 5 CONTINUE CALL SKPREC (BLOCK(1),1) GO TO 35 C C MAKE 1ST STRING CALL FOR COLUMN AND SAVE DIAGONAL ELEMENT C 7 BLOCK(8) = -1 CALL GETSTR (*80,BLOCK) IF (BLOCK(4) .NE. J) GO TO 80 JSTR = BLOCK(5) LJJ = 1.0D+0/L(JSTR) IF (BLOCK(6) .EQ. 1) GO TO 20 NSTR = JSTR + BLOCK(6) - 1 JSTR = JSTR + 1 BLOCK(4) = BLOCK(4) + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 10 DO 15 K = 1,LAST,NBRITM YJK = Y(J1+K) IF (YJK .EQ. ZERO) GO TO 15 IK = BLOCK(4) + K - 1 DO 12 IJ = JSTR,NSTR Y(IK) = Y(IK) + L(IJ)*YJK 12 IK = IK + 1 15 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 20 CALL ENDGET (BLOCK) CALL GETSTR (*30,BLOCK) JSTR = BLOCK(5) NSTR = JSTR + BLOCK(6) - 1 GO TO 10 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 30 DO 32 K = J,LAST,NBRITM 32 Y(K) = Y(K)*LJJ C 35 CONTINUE C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C IF (N .EQ. 1) GO TO 70 CALL BCKREC (BLOCK) J = N - 1 C C GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 40 J1 = J - 1 BLOCK(8) = -1 42 CALL GETSTB (*60,BLOCK) IF (BLOCK(4)-BLOCK(6) .EQ. J1) BLOCK(6) = BLOCK(6) - 1 IF (BLOCK(6) .EQ. 0) GO TO 58 NTERMS = BLOCK(6) C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 55 K = 1,LAST,NBRITM JI = BLOCK(5) + 1 IK = BLOCK(4) + K SUM = 0.0D+0 DO 53 II = 1,NTERMS JI = JI - 1 IK = IK - 1 SUM = SUM + L(JI)*Y(IK) 53 CONTINUE Y(J1+K) = Y(J1+K) + SUM 55 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C 58 CALL ENDGTB (BLOCK) GO TO 42 C C END-OF-COLUMN -- TEST FOR COMPLETION C 60 IF (J .EQ. 1) GO TO 70 J = J - 1 GO TO 40 C 70 BUF(2) = END CALL CONMSG (BUF,2,0) RETURN C C C FATAL ERROR MESSAGE C 80 WRITE (NOUT,82) SFM,SUBNAM 82 FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU', 1 'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/fbs21.f ================================================ SUBROUTINE FBS21 (BLOCK,Y,YN,NWDS) C C FBS2 EXECUTES THE FORWARD/BACKWARD PASS FOR FBS IN RSP C === C INTEGER BLOCK(20),DBL,BUF(3),SUBNAM(2),BEGN,END REAL Y(1),YN(1) DOUBLE PRECISION LJJ,L CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ SYSBUF,NOUT COMMON /ZZZZZZ/ L(1) COMMON /FBSX / DBL, N DATA SUBNAM, BEGN, END /4HFBS2, 4H1 , 4HBEGN, 4HEND / C BUF(1) = SUBNAM(1) BUF(2) = SUBNAM(2) BUF(3) = BEGN CALL CONMSG (BUF,3,0) NBRITM = NWDS/2 NBRVEC = (LOCFX(YN) - LOCFX(Y))/NWDS + 1 LAST = 1 + (NBRVEC-1)*NBRITM DO 38 J=1,N C C MAKE 1ST STRING CALL FOR COLUMN AND SAVE DIAGONAL ELEMENT C BLOCK(8) = -1 CALL GETSTR (*81,BLOCK) IF (BLOCK(4) .NE. J) GO TO 81 JSTR = BLOCK(5) LJJ = L(JSTR) CWKBI XLJJ = LJJ IF (BLOCK(6) .EQ. 1) GO TO 20 NSTR = JSTR + BLOCK(6) - 1 JSTR = JSTR + 1 BLOCK(4) = BLOCK(4) + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 10 DO 18 K = 1,LAST,NBRITM YJK = Y(J+K-1) IK = BLOCK(4) + K - 1 DO 16 IJ = JSTR,NSTR CWKBI XLIJ = L(IJ) CWKBR Y(IK) = Y(IK) + L(IJ)*YJK Y(IK) = Y(IK) + XLIJ*YJK IK = IK + 1 16 CONTINUE 18 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 20 CALL ENDGET (BLOCK) CALL GETSTR (*30,BLOCK) JSTR = BLOCK(5) NSTR = JSTR + BLOCK(6) - 1 GO TO 10 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 30 DO 34 K = 1,LAST,NBRITM CWKBR Y(J+K-1) = Y(J+K-1)/LJJ Y(J+K-1) = Y(J+K-1)/XLJJ 34 CONTINUE 38 CONTINUE C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C IF (N .EQ. 1) GO TO 65 CALL BCKREC (BLOCK) J = N - 1 C C GET A STRING IN CURRENT COLUMN. IF STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 40 BLOCK(8) = -1 42 CALL GETSTB (*60,BLOCK) IF (BLOCK(4)-BLOCK(6)+1 .EQ. J) BLOCK(6) = BLOCK(6) - 1 IF (BLOCK(6) .EQ. 0) GO TO 59 NTERMS = BLOCK(6) C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 58 K = 1,LAST,NBRITM JI = BLOCK(5) IK = BLOCK(4) + K - 1 JK = J + K - 1 DO 56 II = 1,NTERMS Y(JK) = Y(JK) + L(JI)*Y(IK) JI = JI - 1 IK = IK - 1 56 CONTINUE 58 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C 59 CALL ENDGTB (BLOCK) GO TO 42 C C END-OF-COLUMN -- TEST FOR COMPLETION C 60 IF (J .NE. 1) GO TO 70 65 BUF(3) = END CALL CONMSG (BUF,3,0) RETURN C 70 J = J - 1 GO TO 40 C C FATAL ERROR MESSAGE C 81 WRITE (NOUT,82) SFM,SUBNAM 82 FORMAT (A25,' 2149, SUBROUTINE ',2A4,/5X,'FIRST ELEMENT OF A COL', 1 'UMN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/fbs3.f ================================================ SUBROUTINE FBS3 (BLOCK,Y,YN,NWDS) C C FBS3 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSF IN CSP C INTEGER BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END REAL Y(1), YN(1), LJJR, LJJI, L CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON /XMSSG / UFM, UWM, UIM, SFM COMMON /SYSTEM/ SYSBUF, NOUT COMMON /ZZZZZZ/ L(1) COMMON /FBSX / DBL , N EQUIVALENCE (SUMR,YJKR), (SUMI,YJKI) DATA SUBNAM, BEGN , END / 4HFBS3, 4HBEGN, 4HEND / C BUF(1) = SUBNAM BUF(2) = BEGN CALL CONMSG (BUF,2,0) NBRITM = NWDS J = (LOCFX(YN)-LOCFX(Y)+1)/NWDS LAST = MAX0(J,1)*NBRITM DO 35 J = 1,N J1 = J - 1 DO 5 K = 1,LAST,NBRITM YJKR = Y(2*J+K-2) YJKI = Y(2*J+K-1) IF (YJKR.NE.0.0 .OR. YJKI.NE.0.0) GO TO 7 5 CONTINUE CALL SKPREC (BLOCK(1),1) GO TO 35 C C MAKE 1ST CALL FOR COLUMN AND SAVE DIAGONAL ELEMENT C 7 BLOCK(8) = -1 CALL GETSTR (*80,BLOCK) IF (BLOCK(4) .NE. J) GO TO 80 JSTR = BLOCK(5) LJJR = L(JSTR ) LJJI = L(JSTR+1) IF (BLOCK(6) .EQ. 1) GO TO 20 NSTR = JSTR + 2*BLOCK(6) - 2 JSTR = JSTR + 2 BLOCK(4) = BLOCK(4) + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 10 DO 15 K = 1,LAST,NBRITM YJKR = Y(2*J+K-2) YJKI = Y(2*J+K-1) IF (YJKR.EQ.0.0 .AND. YJKI.EQ.0.0) GO TO 15 IK = 2*BLOCK(4) + K - 2 DO 12 IJ = JSTR,NSTR,2 Y(IK ) = Y(IK ) + L(IJ)*YJKR - L(IJ+1)*YJKI Y(IK+1) = Y(IK+1) + L(IJ)*YJKI + L(IJ+1)*YJKR 12 IK = IK + 2 15 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 20 CALL ENDGET (BLOCK) CALL GETSTR (*30,BLOCK) JSTR = BLOCK(5) NSTR = JSTR + 2*BLOCK(6) - 2 GO TO 10 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 30 SSQR = 1.0/(LJJR**2 + LJJI**2) DO 32 K = 1,LAST,NBRITM YJKR = (Y(2*J+K-2)*LJJR + Y(2*J+K-1)*LJJI)*SSQR Y(2*J+K-1) =-(Y(2*J+K-2)*LJJI - Y(2*J+K-1)*LJJR)*SSQR 32 Y(2*J+K-2) = YJKR C 35 CONTINUE C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C IF (N .EQ. 1) GO TO 65 CALL BCKREC (BLOCK) J = N - 1 C C GET A STRING IN CURRENT COLUMN. IF STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 40 J1 = J - 1 BLOCK(8) = -1 42 CALL GETSTB (*60,BLOCK) IF (BLOCK(4)-BLOCK(6) .EQ. J1) BLOCK(6) = BLOCK(6) - 1 IF (BLOCK(6) .EQ. 0) GO TO 58 NTERMS = BLOCK(6) C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 55 K = 1,LAST,NBRITM JI = BLOCK(5) + 2 IK = BLOCK(4)*2 + K JK = J1*2 + K SUMR = 0.0 SUMI = 0.0 DO 53 II = 1,NTERMS JI = JI - 2 IK = IK - 2 SUMR = SUMR + L(JI)*Y(IK ) - L(JI+1)*Y(IK+1) SUMI = SUMI + L(JI)*Y(IK+1) + L(JI+1)*Y(IK ) 53 CONTINUE Y(JK ) = Y(JK ) + SUMR Y(JK+1) = Y(JK+1) + SUMI 55 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C 58 CALL ENDGTB (BLOCK) GO TO 42 C C END-OF-COLUMN -- TEST FOR COMPLETION C 60 IF (J .NE. 1) GO TO 70 65 BUF(2) = END CALL CONMSG (BUF,2,0) RETURN C 70 J = J - 1 GO TO 40 C C FATAL ERROR MESSAGE C 80 WRITE (NOUT,82) SFM,SUBNAM 82 FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU', 1 'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/fbs4.f ================================================ SUBROUTINE FBS4 (BLOCK,Y,YN,NWDS) C C FBS4 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSF IN CDP C INTEGER BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END DOUBLE PRECISION Y(1), YN(1), LJJR, LJJI, L, YJKR, YJKI, SSQR, 1 SUM1, SUM2, ZERO CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON /XMSSG / UFM, UWM, UIM, SFM COMMON /SYSTEM/ SYSBUF, NOUT COMMON /ZZZZZZ/ L(1) COMMON /FBSX / DBL , N EQUIVALENCE (SUM1,YJKR), (SUM2,YJKI) DATA SUBNAM, BEGN , END / 4HFBS4, 4HBEGN, 4HEND / DATA ZERO / 0.0D+0 / C BUF(1) = SUBNAM BUF(2) = BEGN CALL CONMSG (BUF,2,0) NBRITM = NWDS/2 J = (LOCFX(YN)-LOCFX(Y)+1)/NWDS LAST = MAX0(J,1)*NBRITM DO 35 J = 1,N J1 = J - 1 DO 5 K = 1,LAST,NBRITM YJKR = Y(J1*2+K ) YJKI = Y(J1*2+K+1) IF (YJKR.NE.ZERO .OR. YJKI.NE.ZERO) GO TO 7 5 CONTINUE CALL SKPREC (BLOCK(1),1) GO TO 35 C C MAKE 1ST CALL FOR COLUMN AND SAVE DIAGONAL ELEMENT C 7 BLOCK(8) = -1 CALL GETSTR (*80,BLOCK) IF (BLOCK(4) .NE. J) GO TO 80 JSTR = BLOCK(5) LJJR = L(JSTR ) LJJI = L(JSTR+1) IF (BLOCK(6) .EQ. 1) GO TO 20 NSTR = JSTR + 2*BLOCK(6) - 2 JSTR = JSTR + 2 BLOCK(4) = BLOCK(4) + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 10 DO 15 K = 1,LAST,NBRITM YJKR = Y(J1*2+K ) YJKI = Y(J1*2+K+1) IF (YJKR.EQ.ZERO .AND. YJKI.EQ.ZERO) GO TO 15 IK = 2*BLOCK(4) + K - 2 DO 12 IJ = JSTR,NSTR,2 Y(IK ) = Y(IK ) + L(IJ)*YJKR - L(IJ+1)*YJKI Y(IK+1) = Y(IK+1) + L(IJ)*YJKI + L(IJ+1)*YJKR 12 IK = IK + 2 15 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 20 CALL ENDGET (BLOCK) CALL GETSTR (*30,BLOCK) JSTR = BLOCK(5) NSTR = JSTR + 2*BLOCK(6) - 2 GO TO 10 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 30 SSQR = 1.0D+0/(LJJR**2 + LJJI**2) DO 32 K = 1,LAST,NBRITM YJKR = (Y(2*J+K-2)*LJJR + Y(2*J+K-1)*LJJI)*SSQR Y(2*J+K-1) =-(Y(2*J+K-2)*LJJI - Y(2*J+K-1)*LJJR)*SSQR 32 Y(2*J+K-2) = YJKR C 35 CONTINUE C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C IF (N .EQ. 1) GO TO 65 CALL BCKREC (BLOCK) J = N - 1 C C GET A STRING IN CURRENT COLUMN. IF STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 40 J1 = J - 1 BLOCK(8) = -1 42 CALL GETSTB (*60,BLOCK) IF (BLOCK(4)-BLOCK(6) .EQ. J1) BLOCK(6) = BLOCK(6) - 1 IF (BLOCK(6) .EQ. 0) GO TO 58 NTERMS = BLOCK(6) C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 55 K = 1,LAST,NBRITM JI = BLOCK(5) + 2 IK = BLOCK(4)*2 + K JK = J1*2 + K SUM1 = 0.0D+0 SUM2 = 0.0D+0 DO 53 II = 1,NTERMS JI = JI - 2 IK = IK - 2 SUM1 = SUM1 + L(JI)*Y(IK ) - L(JI+1)*Y(IK+1) SUM2 = SUM2 + L(JI)*Y(IK+1) + L(JI+1)*Y(IK ) 53 CONTINUE Y(JK ) = Y(JK ) + SUM1 Y(JK+1) = Y(JK+1) + SUM2 55 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C 58 CALL ENDGTB (BLOCK) GO TO 42 C C END-OF-COLUMN -- TEST FOR COMPLETION C 60 IF (J .NE. 1) GO TO 70 65 BUF(2) = END CALL CONMSG (BUF,2,0) RETURN C 70 J = J - 1 GO TO 40 C C FATAL ERROR MESSAGE C 80 WRITE (NOUT,82) SFM,SUBNAM 82 FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU', 1 'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/fbsf.f ================================================ SUBROUTINE FBSF (ZS,ZD) C C GIVEN A LOWER TRIANGULAR FACTOR WITH DIAGONAL SUPERIMPOSED, AND C WRITTEN WITH TRAILING STRING DEFINITION WORDS, FBS WILL PERFORM C THE FORWARD-BACKWARD SUBSTITUTION NECESSARY TO SOLVE A LINEAR C SYSTEM OF EQUATIONS. C C OPEN CORE IS DEFINED AS FOLLOWS C C ZS( 1 ) - FIRST RIGHT HAND VECTOR ON FILE DBB C (SIZE = NCOL*NWDS) C NCOL = NUMBER OF COLUMNS (ROWS) IN LOWER C TRIANGULAR MATRIX C NWDS = 1, IF MATRICES ARE REAL SINGLE C = 2, IF MATRICES ARE REAL DOUBLE OR C COMPLEX SINGLE C = 4, IF MATRICES ARE COMPLEX DOUBLE C ZS( NCOL*NWDS+1 ) - NEXT RIGHT HAND VECTOR C . C . ( "KN" RIGHT HAND VECTORS WILL BE LOADED INTO C . MEMORY) C . C ZS( BUF1 ) - BUFFER FOR FILE WITH RIGHT HAND VECTORS C AND FOR SOLUTION VECTORS C ZS( BUF2 ) - BUFFER FOR FILE WITH TRIANGULAR MATRIX C IMPLICIT INTEGER (A-Z) LOGICAL IDENT INTEGER SUBNAM(2) ,BLOCK(15),BEGN ,END REAL ZS(1) ,XS(4) ,YS(4) DOUBLE PRECISION ZD(1) ,XD ,YD CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /LOGOUT/ LOUT COMMON /XMSSG / UFM ,UWM ,UIM COMMON /FBSX / DBL(7) ,DBU(7) ,DBB(7) ,DBX(7) ,LCORE , 1 PREC ,SIGN ,SCRX COMMON /SYSTEM/ SYSBUF ,NOUT ,SKIP(91) ,KSYS94 COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,REW , 1 NOREW ,EOFNRW ,RSP ,RDP ,CSP , 2 CDP COMMON /TYPE / PRC(2) ,WORDS(4) ,RLCMPX(4) COMMON /PACKX / ITYPE1 ,ITYPE2 ,I1 ,J1 ,INCR1 COMMON /UNPAKX/ ITYPE3 ,I2 ,J2 ,INCR2 COMMON /ZNTPKX/ XD(2) ,IX ,EOL COMMON /ZBLPKX/ YD(2) ,IY EQUIVALENCE (DBL(2),NL), (DBB(5),TYPEB), (DBX(5),TYPEX), 1 (XD(1),XS(1)), (YD(1),YS(1)) DATA SUBNAM/ 4HFBSF,4H / DATA BEGN / 4HBEGN/ DATA END / 4HEND / C C GENERAL INITIALIZATION C BUF2 = LCORE - SYSBUF BUF1 = BUF2 - SYSBUF RC = RLCMPX(TYPEB) TYPEL = DBL(5) WDS = WORDS(TYPEL) NWDS = WDS*NL NBRLOD = DBB(2) IDENT = .FALSE. IF (DBB(4) .EQ. 8) IDENT = .TRUE. IF (IDENT) NBRLOD = NL SWITCH = 1 IF (TYPEL.EQ.RSP .AND. RC.EQ.2) SWITCH = 2 IF (TYPEL.EQ.RDP .AND. RC.EQ.2) SWITCH = 3 DBL1 = DBL(1) NNN = BUF1 - 1 NVECS = NNN/NWDS IF (NVECS .EQ. 0) CALL MESAGE (-8,NWDS-NNN,SUBNAM) IF (SWITCH .NE. 1) NVECS = NVECS/2 NPASS = (NBRLOD+NVECS-1)/NVECS SUBNAM(2) = BEGN CALL CONMSG (SUBNAM,2,0) 40 NPASS = (NBRLOD+NVECS-1)/NVECS IF ( NPASS .EQ. 1 ) GO TO 50 NEED = NWDS*NBRLOD + 2*SYSBUF WRITE ( LOUT, 9001 ) NPASS, NEED 9001 FORMAT(I4,' PASSES REQUIRED, OPEN CORE NEEDS TO BE ',I7 &,' TO ELIMINATE THIS') 50 CONTINUE I2 = 1 J2 = NL INCR2 = 1 I1 = 1 J1 = NL INCR1 = 1 ITYPE1 = TYPEL ITYPE2 = TYPEX ITYPE3 = SIGN*TYPEL DBX(2) = 0 DBX(6) = 0 DBX(7) = 0 NNNDBL = NNN/2 NTERMS = RLCMPX(TYPEL)*NL K1 = 1 OPRD = RDREW OPWRT = WRTREW BLOCK(1) = DBL(1) C C OPEN LOWER TRIANGULAR FACTOR FILE (DBL1) C CALL GOPEN (DBL1,ZS(BUF2),RDREW) C C OPEN RIGHT HAND VECTORS FILE (DBB) AND COMPUTE EXTENT OF THIS PASS C 100 KN = MIN0(K1+NVECS-1,NBRLOD) LAST = (KN-K1+1)*NWDS OPCLS = NOREW IF (KN .EQ. NBRLOD) OPCLS = REW IF (IDENT) GO TO 280 CALL GOPEN (DBB,ZS(BUF1),OPRD) GO TO (140,180,230), SWITCH C C NORMAL CASE - FILL CORE WITH RIGHT HAND VECTORS C 140 DO 170 L = 1,LAST,NWDS CALL UNPACK (*150,DBB,ZS(L)) GO TO 170 150 LN = L + NWDS - 1 DO 160 LL = L,LN 160 ZS(LL) = 0. 170 CONTINUE GO TO 390 C C SPECIAL CASE - FACTOR IS RSP AND VECTORS ARE CSP C 180 LAST = 2*(KN-K1+1)*NWDS L = 0 DO 190 K = 1,NNNDBL 190 ZD(K) = 0.0D+0 DO 220 K = K1,KN ICSPSG = CSP*SIGN CALL INTPK (*210,DBB,0,ICSPSG,0) 200 CALL ZNTPKI ZS(L+IX ) = XS(1) ZS(L+IX+NL) = XS(2) IF (EOL .EQ. 0) GO TO 200 210 L = L + 2*NL 220 CONTINUE GO TO 390 C C SPECIAL CASE - FACTOR IS RDP AND VECTORS ARE CDP C 230 LAST = 2*(KN-K1+1)*NWDS L = 0 DO 240 K = 1,NNNDBL 240 ZD(K) = 0.0D+0 DO 270 K = K1,KN ICDPSG = CDP*SIGN CALL INTPK (*260,DBB,0,ICDPSG,0) 250 CALL ZNTPKI ZD(L+IX ) = XD(1) ZD(L+IX+NL) = XD(2) IF (EOL .EQ. 0) GO TO 250 260 L = L + 2*NL 270 CONTINUE GO TO 390 C C SPECIAL CASE - GENERATE IDENTITY MATRIX C 280 DO 290 K = 1,NNNDBL 290 ZD(K) = 0.0D+0 L = 0 GO TO (300,320,340,360), TYPEL 300 DO 310 K = K1,KN ZS(L+K) = 1.0 310 L = L + NTERMS GO TO 400 320 DO 330 K = K1,KN ZD(L+K) = 1.0D+0 330 L = L + NTERMS GO TO 400 340 DO 350 K = K1,KN ZS(L+2*K-1) = 1.0 350 L = L + NTERMS GO TO 400 360 DO 370 K = K1,KN ZD(L+2*K-1) = 1.0D+0 370 L = L + NTERMS GO TO 400 C C CLOSE RIGHT HAND VECTORS FILE (DBB). C START FORWARD-BACKWARD SUBSTITUTION ON RIGHT HAND VECTORS NOW IN CORE C 390 CALL CLOSE (DBB,OPCLS) 400 CALL REWIND (DBL1) CALL FWDREC (*610,DBL1) C J = TYPEL GO TO (410,420,430,440), J 410 CALL FBS1 (BLOCK,ZS,ZS(LAST),NWDS) GO TO 500 420 CALL FBS2 (BLOCK,ZS,ZS(LAST),NWDS) GO TO 500 430 CALL FBS3 (BLOCK,ZS,ZS(LAST),NWDS) GO TO 500 440 CALL FBS4 (BLOCK,ZS,ZS(LAST),NWDS) GO TO 500 C C OPEN AND PACK SOLUTION VECTORS ONTO OUTPUT FILE (DBX) C 500 CALL GOPEN (DBX,ZS(BUF1),OPWRT) GO TO (510,530,560), SWITCH C C NORMAL CASE - CALL PACK C 510 DO 520 L = 1,LAST,NWDS CALL PACK (ZS(L),DBX,DBX) 520 CONTINUE GO TO 600 C C SPECIAL CASE - FACTOR IS RSP AND VECTORS ARE CSP, CALL BLDPK C 530 L = 0 DO 550 K = K1,KN CALL BLDPK (CSP,TYPEX,DBX,0,0) DO 540 I = 1,NL YS(1) = ZS(L+I ) YS(2) = ZS(L+I+NL) IY = I CALL ZBLPKI 540 CONTINUE CALL BLDPKN (DBX,0,DBX) L = L + 2*NL 550 CONTINUE GO TO 600 C C SPECIAL CASE - FACTOR IS RDP AND VECTORS ARE CDP, CALL BLDPK C 560 L = 0 DO 580 K = K1,KN CALL BLDPK (CDP,TYPEX,DBX,0,0) DO 570 I = 1,NL YD(1) = ZD(L+I ) YD(2) = ZD(L+I+NL) IY = I CALL ZBLPKI 570 CONTINUE CALL BLDPKN (DBX,0,DBX) L = L + 2*NL 580 CONTINUE C C CLOSE OUTPUT FILE, AND TEST FOR MORE PASSES C 600 CALL CLOSE (DBX,OPCLS) IF (KN .EQ. NBRLOD) GO TO 620 K1 = KN + 1 OPRD = RD OPWRT= WRT GO TO 100 C C ERROR C 610 CALL MESAGE (-2,DBL1,SUBNAM) C C JOB DONE. CLOSE TRIANGULAR FACTOR FILE. C 620 CALL CLOSE (DBL1,REW) SUBNAM(2) = END CALL CONMSG (SUBNAM,2,0) RETURN END ================================================ FILE: mis/fbsi.f ================================================ SUBROUTINE FBSI (ZS,ZD) C C GIVEN A LOWER TRIANGULAR FACTOR WITH DIAGONAL SUPERIMPOSED, AND C WRITTEN WITH TRAILING STRING DEFINITION WORDS, FBS WILL PERFORM C THE FORWARD-BACKWARD SUBSTITUTION NECESSARY TO SOLVE A LINEAR C SYSTEM OF EQUATIONS. C C OPEN CORE IS DEFINED AS FOLLOWS C C ZS( 1 ) - FIRST RIGHT HAND VECTOR ON FILE DBB C (SIZE = NCOL*NWDS) C NCOL = NUMBER OF COLUMNS (ROWS) IN LOWER C TRIANGULAR MATRIX C NWDS = 1, IF MATRICES ARE REAL SINGLE C = 2, IF MATRICES ARE REAL DOUBLE OR C COMPLEX SINGLE C = 4, IF MATRICES ARE COMPLEX DOUBLE C ZS( NCOL*NWDS+1 ) - NEXT RIGHT HAND VECTOR C . C . ( "NRHV" RIGHT HAND VECTORS WILL BE LOADED INTO C . MEMORY) C . C ZS( MTRIA ) - MEMORY FOR STORAGE OF ALL OR PART OF THE LOWER C TRIANGULAR MATRIX. (SEE SUBROUTINE FBSRDM FOR C FORMAT OF STORAGE OF MATRIX.) C ZS( BUF1 ) - BUFFER FOR FILE WITH RIGHT HAND VECTORS C AND FOR SOLUTION VECTORS C ZS( BUF2 ) - BUFFER FOR FILE WITH TRIANGULAR MATRIX C IMPLICIT INTEGER (A-Z) LOGICAL IDENT INTEGER SUBNAM(2) ,BLOCK(15),BEGN ,END ,INAME(2) REAL ZS(1) ,XS(4) ,YS(4) DOUBLE PRECISION ZD(1) ,XD ,YD CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /LOGOUT/ LOUT COMMON /XMSSG / UFM ,UWM ,UIM COMMON /FBSX / DBL(7) ,DBU(7) ,DBB(7) ,DBX(7) ,LCORE , 1 PREC ,SIGN ,SCRX COMMON /FBSM / NVEC ,NVECSZ ,NWDS ,LASIND ,IPOS(7) COMMON /SYSTEM/ SYSBUF ,NOUT ,SKIP(91) ,KSYS94 COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,REW , 1 NOREW ,EOFNRW ,RSP ,RDP ,CSP , 2 CDP COMMON /TYPE / PRC(2) ,WORDS(4) ,RLCMPX(4) COMMON /PACKX / ITYPE1 ,ITYPE2 ,I1 ,J1 ,INCR1 COMMON /UNPAKX/ ITYPE3 ,I2 ,J2 ,INCR2 COMMON /ZNTPKX/ XD(2) ,IX ,EOL COMMON /ZBLPKX/ YD(2) ,IY EQUIVALENCE (DBL(2),NCOL), (DBB(5),TYPEB), (DBX(5),TYPEX), 1 (XD(1),XS(1)), (YD(1),YS(1)) DATA SUBNAM/ 4HFBSI,4H / DATA BEGN / 4HBEGN/ DATA END / 4HEND / C C GENERAL INITIALIZATION C BUF2 = LCORE - SYSBUF BUF1 = BUF2 - SYSBUF TYPEL = DBL(5) RCB = RLCMPX( TYPEB ) RCL = RLCMPX( TYPEL ) NWDS = WORDS ( TYPEB ) IF ( RCB .EQ. RCL .AND. TYPEL .GT. TYPEB ) NWDS = WORDS( TYPEL ) NRHVWD = NWDS * NCOL NWDS = WORDS ( TYPEL ) NRHV = DBB(2) IDENT = .FALSE. IF (DBB(4) .EQ. 8) IDENT = .TRUE. IF (IDENT) NRHV = NCOL SWITCH = 1 C C SET SWITCH AS FOLLOWS: C =1, IF LOWER TRIANGULAR MATRIX AND RIGHT HAND VECTORS ARE SAME TYPE C =2, LOWER TRIANGULAR MATRIX IS REAL SINGLE AND RIGHT HAND VECTOR IS C COMPLEX C =3, LOWER TRIANGULAR MATRIX IS REAL DOUBLE AND RIGHT HAND VECTOR IS C COMPLEX C (NOTE, IF SWITCH IS .NE. 1, THEN THE REAL AND IMAGINARY PARTS OF THE C THE RIGHT HAND VECTOR ARE TREATED AS TWO SEPARATE VECTORS. I.E., C THE REAL PART BECOMES ONE VECTOR AND THE IMAGINARY PART BECOMES A C SECOND VECTOR.) C IF (TYPEL.EQ.RSP .AND. RCB.EQ.2) SWITCH = 2 IF (TYPEL.EQ.RDP .AND. RCB.EQ.2) SWITCH = 3 IF (SWITCH .EQ. 1 ) GO TO 90 IF (SWITCH .EQ. 3 ) GO TO 70 NRHVWD = 2 * NCOL GO TO 90 70 CONTINUE NRHVWD = 4 * NCOL 90 CONTINUE MTRIA = NRHV * NRHVWD + 1 C C ENSURE DOUBLE WORD BOUNDARY C MTRIA = ( MTRIA/2 ) * 2 + 1 MEMAVL = BUF1 - MTRIA - 2 SUBNAM(2) = BEGN CALL CONMSG (SUBNAM,2,0) CALL FBSRDM ( DBL , ZS(MTRIA), ZS(MTRIA), ZS(MTRIA) &, MEMAVL, ZS(BUF2 ), LASIND , IPOS ) CALL SSWTCH ( 47, L47 ) CALL FNAME ( DBL, INAME ) IF ( L47 .EQ. 0 ) GO TO 100 WRITE ( LOUT, 9001 ) DBL(1), INAME, IPOS( 1 ), NCOL, LCORE, MEMAVL CALL FNAME ( DBB, INAME ) WRITE ( LOUT, 9002 ) DBB(1), INAME, DBL, DBB 9001 FORMAT(4X &, ' FORWARD BACKWARD SUBSTITUTION OF FILE ',I3,' NAME=',2A4 &,/,4X, ' LAST COLUMN OF TRIANGULAR MATRIX IN MEMORY =',I8 &,/,4X, ' TOTAL COLUMNS IN TRIANGULAR MATRIX =',I8 &,/,4X, ' TOTAL OPEN CORE AVAILABLE FOR USE =',I8 &,/,4X, ' OPEN CORE AVAILABLE FOR TRIANGULAR MATRIX STORAGE =',I8 ) 9002 FORMAT(4X &, ' RIGHT HAND VECTOR FILE ',I3,' NAME=',2A4 &,/,4X, ' TRIANGULAR MATRIX TRAILER =', 7I6 &,/,4X, ' RIGHT HAND VECTOR(S) TRAILER =', 7I6 ) 100 CONTINUE I2 = 1 J2 = NCOL INCR2 = 1 I1 = 1 J1 = NCOL INCR1 = 1 ITYPE1 = TYPEL ITYPE2 = TYPEX ITYPE3 = SIGN*TYPEL DBX(2) = 0 DBX(6) = 0 DBX(7) = 0 BLOCK(1) = DBL(1) C C OPEN RIGHT HAND VECTORS FILE (DBB) C LAST = NRHV*NRHVWD IF ( IDENT ) GO TO 280 CALL GOPEN ( DBB, ZS(BUF1), RDREW ) GO TO ( 140, 180, 230 ), SWITCH C C READ RIGHT HAND VECTORS INTO MEMORY C 140 DO 170 L = 1, LAST, NRHVWD CALL UNPACK ( *150, DBB, ZS(L) ) GO TO 170 150 LN = L + NRHVWD - 1 DO 160 LL = L,LN 160 ZS( LL ) = 0. 170 CONTINUE GO TO 390 C C SPECIAL CASE - LOWER TRIANGULAR MATRIX IS RSP AND VECTORS ARE CSP C 180 LAST2 = LAST / 2 L = 0 DO 190 K = 1,LAST2 190 ZD(K) = 0.0D+0 DO 220 K = 1, NRHV ICSPSG = CSP*SIGN CALL INTPK ( *210, DBB, 0, ICSPSG, 0 ) 200 CALL ZNTPKI ZS(L+IX ) = XS(1) ZS(L+IX+NCOL) = XS(2) IF ( EOL .EQ. 0 ) GO TO 200 210 L = L + 2*NCOL 220 CONTINUE GO TO 390 C C SPECIAL CASE - LOWER TRIANGULAR MATRIX IS RDP AND VECTORS ARE CDP C 230 LAST2 = LAST / 2 L = 0 DO 240 K = 1,LAST2 240 ZD(K) = 0.0D+0 DO 270 K = 1, NRHV ICDPSG = CDP*SIGN CALL INTPK ( *260, DBB, 0, ICDPSG, 0 ) 250 CALL ZNTPKI ZD(L+IX ) = XD(1) ZD(L+IX+NCOL) = XD(2) IF ( EOL .EQ. 0 ) GO TO 250 260 L = L + 2*NCOL 270 CONTINUE GO TO 390 C C SPECIAL CASE - GENERATE IDENTITY MATRIX C 280 LAST = NRHV * NRHVWD DO 290 K = 1,LAST 290 ZD(K) = 0.0D+0 L = 0 GO TO ( 300, 320, 340, 360 ), TYPEL 300 DO 310 K = 1, NRHV ZS(L+K) = 1.0 310 L = L + NRHVWD GO TO 400 320 DO 330 K = 1, NRHV ZD(L+K) = 1.0D+0 330 L = L + NRHVWD GO TO 400 340 DO 350 K = 1, NRHV ZS(L+2*K-1) = 1.0 350 L = L + NRHVWD GO TO 400 360 DO 370 K = 1, NRHV ZD(L+2*K-1) = 1.0D+0 370 L = L + NRHVWD GO TO 400 C C CLOSE RIGHT HAND VECTORS FILE (DBB). C START FORWARD-BACKWARD SUBSTITUTION ON RIGHT HAND VECTORS C 390 CALL CLOSE (DBB,REW) 400 CONTINUE J = TYPEL NVEC = NRHV NVECSZ = NCOL IF ( SWITCH .GT. 1 ) NVEC = NVEC*2 GO TO ( 410, 420, 430, 440), J 410 CONTINUE CALL FBSI1 ( BLOCK, ZS, ZS(MTRIA), ZS(MTRIA), ZS(BUF2) ) GO TO 500 420 CONTINUE CALL FBSI2 ( BLOCK, ZS, ZS(MTRIA), ZS(MTRIA), ZS(BUF2) ) GO TO 500 430 CONTINUE CALL FBSI3 ( BLOCK, ZS, ZS(MTRIA), ZS(MTRIA), ZS(BUF2) ) GO TO 500 440 CONTINUE CALL FBSI4 ( BLOCK, ZS, ZS(MTRIA), ZS(MTRIA), ZS(BUF2) ) GO TO 500 C C OPEN AND PACK SOLUTION VECTORS ONTO OUTPUT FILE (DBX) C 500 CALL GOPEN ( DBX, ZS(BUF1), WRTREW) GO TO ( 510, 530, 560 ), SWITCH C C NORMAL CASE - CALL PACK C 510 DO 520 L = 1, LAST, NRHVWD CALL PACK ( ZS(L), DBX, DBX ) 520 CONTINUE GO TO 600 C C SPECIAL CASE - LOWER TRIANGULAR MATRIX IS RSP AND VECTORS ARE CSP C 530 L = 0 DO 550 K = 1, NRHV CALL BLDPK ( CSP, TYPEX, DBX, 0, 0 ) DO 540 I = 1, NCOL YS(1) = ZS(L+I ) YS(2) = ZS(L+I+NCOL) IY = I CALL ZBLPKI 540 CONTINUE CALL BLDPKN ( DBX, 0, DBX ) L = L + 2*NCOL 550 CONTINUE GO TO 600 C C SPECIAL CASE - LOWER TRIANGULAR MATRIX IS RDP AND VECTORS ARE CDP C 560 L = 0 DO 580 K = 1, NRHV CALL BLDPK ( CDP, TYPEX, DBX, 0, 0 ) DO 570 I = 1,NCOL YD(1) = ZD(L+I ) YD(2) = ZD(L+I+NCOL) IY = I CALL ZBLPKI 570 CONTINUE CALL BLDPKN ( DBX, 0, DBX ) L = L + 2*NCOL 580 CONTINUE GO TO 600 C C JOB DONE. CLOSE TRIANGULAR MATRIX AND SOLUTION FILE. C 600 CALL CLOSE ( DBX, REW ) SUBNAM( 2 ) = END CALL CONMSG ( SUBNAM, 2, 0 ) RETURN END ================================================ FILE: mis/fbsi1.f ================================================ SUBROUTINE FBSI1 (BLOCK, Y, MEM, DMEM, IBUFF) C C FBSI2 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSI IN RDP C INTEGER BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END INTEGER IBUFF(2), DBU, DBB, DBC INTEGER RD, RDREW, WRT, WRTREW, REW, MEM(2) REAL Y(1), LJJ, L, YJK, SUM, ZERO, DMEM(2) CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW COMMON /XMSSG / UFM, UWM, UIM, SFM COMMON /ZZZZZZ/ L(2) COMMON /SYSTEM/ SYSBUF, NOUT COMMON /FBSX / DBL(7), DBU(7), DBB(7), DBC(7) COMMON /FBSM / NVEC , NVECSZ, NWDS , LASIND, IPOS(7) DATA ZERO / 0.0 / DATA SUBNAM, BEGN, END / 4HFBS1, 4HBEGN, 4HEND / C NCOL = DBL(2) BUF(1) = SUBNAM BUF(2) = BEGN IOPEN = 0 CALL CONMSG (BUF,2,0) LAST = NVEC * NVECSZ NIDLT = 1 LCOL = IPOS( 1 ) DO 1000 J = 1,LCOL C PRINT *,' FORWARD, PROCESSING COLUMN J=',J J1 = J - 1 C C CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS C DO 10 K = J,LAST,NVECSZ IF (Y(K) .NE. ZERO) GO TO 100 10 CONTINUE C C ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS C IF ( NIDLT .GE. LASIND ) GO TO 1005 KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 7001 40 NROWS = MEM( NIDLT+1 ) NIDLT = NIDLT + NROWS + 4 IF ( NIDLT .GE. LASIND ) GO TO 1005 KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 1000 GO TO 40 C C GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT C 100 CONTINUE KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 7001 NROWS = MEM( NIDLT + 1 ) IROW = MEM( NIDLT + NROWS + 2 ) INDXI = NIDLT + 2 INDXL = INDXI + NROWS - 1 LJJ = 1.0 / DMEM( INDXI ) IF (NROWS .EQ. 1) GO TO 600 INDXI = INDXI + 1 IROW = IROW + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 300 DO 500 K = 1, LAST, NVECSZ YJK = Y( J1+K ) IF ( YJK .EQ. ZERO ) GO TO 500 IYROW = IROW + K - 1 DO 400 IJ = INDXI, INDXL Y( IYROW ) = Y( IYROW ) + DMEM( IJ ) * YJK 400 IYROW = IYROW + 1 500 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 600 CONTINUE NIDLT = NIDLT + 4 + NROWS IF ( NIDLT .GE. LASIND ) GO TO 800 KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 800 NROWS = MEM( NIDLT + 1 ) IROW = MEM( NIDLT + NROWS + 2 ) INDXI = NIDLT + 2 INDXL = INDXI + NROWS - 1 GO TO 300 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 800 DO 900 K = J,LAST,NVECSZ Y(K) = Y(K)*LJJ 900 CONTINUE C 1000 CONTINUE 1005 CONTINUE IF ( LCOL .EQ. NCOL ) GO TO 2005 IFCOL = LCOL + 1 CALL GOPEN ( DBL, IBUFF, RDREW ) C C POSITION FILE TO APPROPRIATE COLUMN TO BE READ C CALL DSSPOS ( DBL, IPOS(2), IPOS(3), IPOS(4) ) DO 2000 J = IFCOL, NCOL J1 = J - 1 C C CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS C DO 1010 K = J,LAST,NVECSZ IF (Y(K) .NE. ZERO) GO TO 1100 1010 CONTINUE C C ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS C CALL SKPREC ( DBL, 1 ) GO TO 2000 C C GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT C 1100 CONTINUE BLOCK(8) = -1 CALL GETSTR ( *7002, BLOCK ) IF (BLOCK(4) .NE. J) GO TO 7002 IROW = BLOCK(4) INDXI = BLOCK(5) NROWS = BLOCK(6) INDXL = INDXI + NROWS - 1 1200 CONTINUE LJJ = 1.0D+0 / L( INDXI ) IF (NROWS .EQ. 1) GO TO 1600 INDXI = INDXI + 1 IROW = IROW + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 1300 DO 1500 K = 1, LAST, NVECSZ YJK = Y( J1+K ) IF ( YJK .EQ. ZERO ) GO TO 1500 IYROW = IROW + K - 1 DO 1400 IJ = INDXI, INDXL Y( IYROW ) = Y( IYROW ) + L( IJ ) * YJK 1400 IYROW = IYROW + 1 1500 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 1600 CONTINUE CALL ENDGET ( BLOCK ) CALL GETSTR ( *1800, BLOCK ) IROW = BLOCK(4) INDXI = BLOCK(5) NROWS = BLOCK(6) INDXL = INDXI + NROWS - 1 GO TO 1300 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 1800 DO 1900 K = J,LAST,NVECSZ Y(K) = Y(K)*LJJ 1900 CONTINUE 2000 CONTINUE 2005 continue IF ( NCOL .EQ. 1 ) GO TO 7000 J = NCOL - 1 IF ( LCOL .EQ. NCOL ) GO TO 3000 C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C CALL BCKREC (BLOCK) C C GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 2200 J1 = J - 1 BLOCK(8) = -1 2300 CALL GETSTB (*2900,BLOCK) IROW = BLOCK( 4 ) NROWS = BLOCK( 6 ) IF (IROW-NROWS .EQ. J1) NROWS = NROWS - 1 IF (NROWS .EQ. 0) GO TO 2800 INDXI = BLOCK( 5 ) C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 2700 K = 1,LAST,NVECSZ JI = INDXI + 1 IK = IROW + K SUM = 0.0D+0 DO 2600 II = 1,NROWS JI = JI - 1 IK = IK - 1 SUM = SUM + L(JI)*Y(IK) 2600 CONTINUE Y(J1+K) = Y(J1+K) + SUM 2700 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C 2800 CONTINUE CALL ENDGTB (BLOCK) GO TO 2300 C C END-OF-COLUMN -- TEST FOR COMPLETION C 2900 IF (J .EQ. 1) GO TO 7000 J = J - 1 IF ( J .EQ. LCOL ) GO TO 3010 GO TO 2200 C 3000 CONTINUE C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C 3005 CONTINUE NIDLT = NIDLT - 1 NROWS = MEM( NIDLT ) NIDLT = NIDLT - NROWS - 3 KCOL = MEM( NIDLT ) IF ( KCOL .EQ. NCOL ) GO TO 3005 NIDLT = NIDLT + NROWS + 4 3010 CONTINUE C C GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 3200 J1 = J - 1 3250 NIDLT = NIDLT - 1 IF ( NIDLT .LE. 1 ) GO TO 3900 NROWS = MEM( NIDLT ) IROW = MEM( NIDLT-1 ) NIDLT = NIDLT - NROWS - 3 KCOL = MEM( NIDLT ) 3260 CONTINUE IF ( KCOL .NE. J ) GO TO 3900 INDXI = NIDLT + NROWS + 1 IROW = IROW + NROWS - 1 IF ( (IROW-NROWS) .EQ. J1 ) NROWS = NROWS - 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 3700 K = 1,LAST,NVECSZ JI = INDXI + 1 IK = IROW + K SUM = 0.0D+0 DO 3600 II = 1,NROWS JI = JI - 1 IK = IK - 1 SUM = SUM + DMEM(JI)*Y(IK) 3600 CONTINUE Y(J1+K) = Y(J1+K) + SUM 3700 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C GO TO 3250 C C END-OF-COLUMN -- TEST FOR COMPLETION C 3900 IF (J .EQ. 1) GO TO 7000 J = J - 1 J1 = J - 1 GO TO 3260 C 7000 BUF(2) = END CALL CONMSG (BUF,2,0) CALL CLOSE ( DBL, REW ) RETURN C C FATAL ERROR MESSAGE C 7001 CONTINUE 7002 CONTINUE WRITE (NOUT,9001) SFM,SUBNAM 9001 FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU', 1 'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/fbsi2.f ================================================ SUBROUTINE FBSI2 (BLOCK, Y, MEM, DMEM, IBUFF) C C FBSI2 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSI IN RDP C INTEGER BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END INTEGER IBUFF(2), DBU, DBB, DBC INTEGER RD, RDREW, WRT, WRTREW, REW, MEM(2) DOUBLE PRECISION Y(1), LJJ, L, YJK, SUM, ZERO, DMEM(2) CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW COMMON /XMSSG / UFM, UWM, UIM, SFM COMMON /ZZZZZZ/ L(2) COMMON /SYSTEM/ SYSBUF, NOUT COMMON /FBSX / DBL(7), DBU(7), DBB(7), DBC(7) COMMON /FBSM / NVEC , NVECSZ, NWDS , LASIND, IPOS(7) DATA ZERO / 0.0D+0 / DATA SUBNAM, BEGN, END / 4HFBS2, 4HBEGN, 4HEND / C NCOL = DBL(2) BUF(1) = SUBNAM BUF(2) = BEGN IOPEN = 0 CALL CONMSG (BUF,2,0) LAST = NVEC * NVECSZ NIDLT = 1 LCOL = IPOS( 1 ) DO 1000 J = 1,LCOL C PRINT *,' FORWARD, PROCESSING COLUMN J=',J J1 = J - 1 C C CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS C DO 10 K = J,LAST,NVECSZ IF (Y(K) .NE. ZERO) GO TO 100 10 CONTINUE C C ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS C IF ( NIDLT .GE. LASIND ) GO TO 1005 KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 7001 40 NROWS = MEM( NIDLT+1 ) NIDLT = NIDLT + NROWS*NWDS + 4 IF ( NIDLT .GE. LASIND ) GO TO 1005 KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 1000 GO TO 40 C C GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT C 100 CONTINUE KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 7001 NROWS = MEM( NIDLT + 1 ) IROW = MEM( NIDLT + NROWS*NWDS + 2 ) INDXI = ( NIDLT + 3 ) / 2 INDXL = INDXI + NROWS - 1 LJJ = 1.0D+0 / DMEM( INDXI ) IF (NROWS .EQ. 1) GO TO 600 INDXI = INDXI + 1 IROW = IROW + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 300 DO 500 K = 1, LAST, NVECSZ YJK = Y( J1+K ) IF ( YJK .EQ. ZERO ) GO TO 500 IYROW = IROW + K - 1 DO 400 IJ = INDXI, INDXL Y( IYROW ) = Y( IYROW ) + DMEM( IJ ) * YJK 400 IYROW = IYROW + 1 500 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 600 CONTINUE NIDLT = NIDLT + 4 + NROWS*NWDS IF ( NIDLT .GE. LASIND ) GO TO 800 KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 800 NROWS = MEM( NIDLT + 1 ) IROW = MEM( NIDLT + NROWS*NWDS + 2 ) INDXI = ( NIDLT + 3 ) / 2 INDXL = INDXI + NROWS - 1 GO TO 300 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 800 DO 900 K = J,LAST,NVECSZ Y(K) = Y(K)*LJJ 900 CONTINUE 1000 CONTINUE 1005 CONTINUE IF ( LCOL .EQ. NCOL ) GO TO 2005 IFCOL = LCOL + 1 CALL GOPEN ( DBL, IBUFF, RDREW ) C C POSITION FILE TO APPROPRIATE COLUMN TO BE READ C CALL DSSPOS ( DBL, IPOS(2), IPOS(3), IPOS(4) ) DO 2000 J = IFCOL, NCOL J1 = J - 1 C C CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS C DO 1010 K = J,LAST,NVECSZ IF (Y(K) .NE. ZERO) GO TO 1100 1010 CONTINUE C C ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS C CALL SKPREC ( DBL, 1 ) GO TO 2000 C C GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT C 1100 CONTINUE BLOCK(8) = -1 CALL GETSTR ( *7002, BLOCK ) IF (BLOCK(4) .NE. J) GO TO 7002 IROW = BLOCK(4) INDXI = BLOCK(5) NROWS = BLOCK(6) INDXL = INDXI + NROWS - 1 1200 CONTINUE LJJ = 1.0D+0 / L( INDXI ) IF (NROWS .EQ. 1) GO TO 1600 INDXI = INDXI + 1 IROW = IROW + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 1300 DO 1500 K = 1, LAST, NVECSZ YJK = Y( J1+K ) IF ( YJK .EQ. ZERO ) GO TO 1500 IYROW = IROW + K - 1 DO 1400 IJ = INDXI, INDXL Y( IYROW ) = Y( IYROW ) + L( IJ ) * YJK 1400 IYROW = IYROW + 1 1500 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 1600 CONTINUE CALL ENDGET ( BLOCK ) CALL GETSTR ( *1800, BLOCK ) IROW = BLOCK(4) INDXI = BLOCK(5) NROWS = BLOCK(6) INDXL = INDXI + NROWS - 1 GO TO 1300 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 1800 DO 1900 K = J,LAST,NVECSZ Y(K) = Y(K)*LJJ 1900 CONTINUE 2000 CONTINUE 2005 CONTINUE IF ( NCOL .EQ. 1 ) GO TO 7000 J = NCOL - 1 IF ( LCOL .EQ. NCOL ) GO TO 3000 C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C CALL BCKREC (BLOCK) C C GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 2200 J1 = J - 1 BLOCK(8) = -1 2300 CALL GETSTB (*2900,BLOCK) IROW = BLOCK( 4 ) NROWS = BLOCK( 6 ) IF (IROW-NROWS .EQ. J1) NROWS = NROWS - 1 IF (NROWS .EQ. 0) GO TO 2800 INDXI = BLOCK( 5 ) C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 2700 K = 1,LAST,NVECSZ JI = INDXI + 1 IK = IROW + K SUM = 0.0D+0 DO 2600 II = 1,NROWS JI = JI - 1 IK = IK - 1 SUM = SUM + L(JI)*Y(IK) 2600 CONTINUE Y(J1+K) = Y(J1+K) + SUM 2700 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C 2800 CONTINUE CALL ENDGTB (BLOCK) GO TO 2300 C C END-OF-COLUMN -- TEST FOR COMPLETION C 2900 IF (J .EQ. 1) GO TO 7000 J = J - 1 IF ( J .EQ. LCOL ) GO TO 3010 GO TO 2200 C 3000 CONTINUE C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C 3005 CONTINUE NIDLT = NIDLT - 1 NROWS = MEM( NIDLT ) NIDLT = NIDLT - NROWS*NWDS - 3 KCOL = MEM( NIDLT ) IF ( KCOL .EQ. NCOL ) GO TO 3005 NIDLT = NIDLT + NROWS*NWDS + 4 3010 CONTINUE C C GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 3200 J1 = J - 1 C print *,' processing column in backward step, j=',j 3250 NIDLT = NIDLT - 1 IF ( NIDLT .LE. 1 ) GO TO 3900 NROWS = MEM( NIDLT ) IROW = MEM( NIDLT-1 ) NIDLT = NIDLT - NROWS*NWDS - 3 KCOL = MEM( NIDLT ) 3260 CONTINUE IF ( KCOL .NE. J ) GO TO 3900 INDXI = NIDLT/2 + NROWS + 1 IROW = IROW + NROWS - 1 IF ( (IROW-NROWS) .EQ. J1 ) NROWS = NROWS - 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 3700 K = 1,LAST,NVECSZ JI = INDXI + 1 IK = IROW + K SUM = 0.0D+0 DO 3600 II = 1,NROWS JI = JI - 1 IK = IK - 1 SUM = SUM + DMEM(JI)*Y(IK) 3600 CONTINUE Y(J1+K) = Y(J1+K) + SUM 3700 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C GO TO 3250 C C END-OF-COLUMN -- TEST FOR COMPLETION C 3900 IF (J .EQ. 1) GO TO 7000 J = J - 1 J1 = J - 1 GO TO 3260 C 7000 BUF(2) = END CALL CONMSG (BUF,2,0) CALL CLOSE ( DBL, REW ) RETURN C C FATAL ERROR MESSAGE C 7001 CONTINUE 7002 CONTINUE WRITE (NOUT,9001) SFM,SUBNAM 9001 FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU', 1 'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/fbsi3.f ================================================ SUBROUTINE FBSI3 (BLOCK, Y, MEM, DMEM, IBUFF) C C FBSI3 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSI IN CSP C INTEGER BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END INTEGER IBUFF(2), DBU, DBB, DBC INTEGER RD, RDREW, WRT, WRTREW, REW, MEM(2) REAL L, DMEM(2) COMPLEX Y(1), YJK, SUM, ZERO, LJJ CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW COMMON /XMSSG / UFM, UWM, UIM, SFM COMMON /ZZZZZZ/ L(2) COMMON /SYSTEM/ SYSBUF, NOUT COMMON /FBSX / DBL(7), DBU(7), DBB(7), DBC(7) COMMON /FBSM / NVEC , NVECSZ, NWDS , LASIND, IPOS(7) DATA ZERO / (0.0, 0.0 ) / DATA SUBNAM, BEGN, END / 4HFBS4, 4HBEGN, 4HEND / C NCOL = DBL(2) BUF(1) = SUBNAM BUF(2) = BEGN IOPEN = 0 CALL CONMSG (BUF,2,0) LAST = NVEC * NVECSZ NIDLT = 1 LCOL = IPOS( 1 ) DO 1000 J = 1,LCOL C PRINT *,' FORWARD, PROCESSING COLUMN J=',J J1 = J - 1 C C CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS C DO 10 K = J,LAST,NVECSZ IF (Y(K) .NE. ZERO) GO TO 100 10 CONTINUE C C ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS C IF ( NIDLT .GE. LASIND ) GO TO 1005 KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 7001 40 NROWS = MEM( NIDLT+1 ) NIDLT = NIDLT + NROWS*NWDS + 4 IF ( NIDLT .GE. LASIND ) GO TO 1005 KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 1000 GO TO 40 C C GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT C 100 CONTINUE KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 7001 NROWS = MEM( NIDLT + 1 ) IROW = MEM( NIDLT + NROWS*NWDS + 2 ) INDXI = NIDLT + 2 INDXL = INDXI + NROWS*2 - 1 LJJ = 1.0 / CMPLX( DMEM( INDXI ), DMEM( INDXI+1 ) ) IF (NROWS .EQ. 1) GO TO 600 INDXI = INDXI + 2 IROW = IROW + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 300 DO 500 K = 1, LAST, NVECSZ YJK = Y( J1+K ) IF ( YJK .EQ. ZERO ) GO TO 500 IYROW = IROW + K - 1 DO 400 IJ = INDXI, INDXL, 2 Y( IYROW ) = Y( IYROW ) + CMPLX( DMEM(IJ), DMEM(IJ+1) ) * YJK 400 IYROW = IYROW + 1 500 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 600 CONTINUE NIDLT = NIDLT + 4 + NROWS*NWDS IF ( NIDLT .GE. LASIND ) GO TO 800 KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 800 NROWS = MEM( NIDLT + 1 ) IROW = MEM( NIDLT + NROWS*NWDS + 2 ) INDXI = NIDLT + 2 INDXL = INDXI + NROWS*2 - 1 GO TO 300 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 800 DO 900 K = J,LAST,NVECSZ Y(K) = Y(K)*LJJ 900 CONTINUE C 1000 CONTINUE 1005 CONTINUE IF ( LCOL .EQ. NCOL ) GO TO 2005 IFCOL = LCOL + 1 CALL GOPEN ( DBL, IBUFF, RDREW ) C C POSITION FILE TO APPROPRIATE COLUMN TO BE READ C CALL DSSPOS ( DBL, IPOS(2), IPOS(3), IPOS(4) ) DO 2000 J = IFCOL, NCOL J1 = J - 1 C C CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS C DO 1010 K = J,LAST,NVECSZ IF (Y(K) .NE. ZERO) GO TO 1100 1010 CONTINUE C C ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS C CALL SKPREC ( DBL, 1 ) GO TO 2000 C C GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT C 1100 CONTINUE BLOCK(8) = -1 CALL GETSTR ( *7002, BLOCK ) IF (BLOCK(4) .NE. J) GO TO 7002 IROW = BLOCK(4) INDXI = BLOCK(5) NROWS = BLOCK(6) INDXL = INDXI + NROWS*2 - 1 1200 CONTINUE LJJ = 1.0 / CMPLX( L( INDXI ), L( INDXI+1 ) ) IF (NROWS .EQ. 1) GO TO 1600 INDXI = INDXI + 2 IROW = IROW + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 1300 DO 1500 K = 1, LAST, NVECSZ YJK = Y( J1+K ) IF ( YJK .EQ. ZERO ) GO TO 1500 IYROW = IROW + K - 1 DO 1400 IJ = INDXI, INDXL, 2 Y( IYROW ) = Y( IYROW ) + CMPLX( L(IJ), L(IJ+1) ) * YJK 1400 IYROW = IYROW + 1 1500 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 1600 CONTINUE CALL ENDGET ( BLOCK ) CALL GETSTR ( *1800, BLOCK ) IROW = BLOCK(4) INDXI = BLOCK(5) NROWS = BLOCK(6) INDXL = INDXI + NROWS*2 - 1 GO TO 1300 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 1800 DO 1900 K = J,LAST,NVECSZ Y(K) = Y(K)*LJJ 1900 CONTINUE 2000 CONTINUE 2005 CONTINUE IF ( NCOL .EQ. 1 ) GO TO 7000 J = NCOL - 1 IF ( LCOL .EQ. NCOL ) GO TO 3000 C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C CALL BCKREC (BLOCK) C C GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 2200 J1 = J - 1 BLOCK(8) = -1 2300 CALL GETSTB (*2900,BLOCK) IROW = BLOCK( 4 ) NROWS = BLOCK( 6 ) IF (IROW-NROWS .EQ. J1) NROWS = NROWS - 1 IF (NROWS .EQ. 0) GO TO 2800 INDXI = BLOCK( 5 ) C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 2700 K = 1,LAST,NVECSZ JI = INDXI + 2 IK = IROW + K SUM = (0.0, 0.0) DO 2600 II = 1,NROWS JI = JI - 2 IK = IK - 1 SUM = SUM + CMPLX( L(JI),L(JI+1) ) * Y(IK) 2600 CONTINUE Y(J1+K) = Y(J1+K) + SUM 2700 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C 2800 CONTINUE CALL ENDGTB (BLOCK) GO TO 2300 C C END-OF-COLUMN -- TEST FOR COMPLETION C 2900 IF (J .EQ. 1) GO TO 7000 J = J - 1 IF ( J .EQ. LCOL ) GO TO 3010 GO TO 2200 C 3000 CONTINUE C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C 3005 CONTINUE NIDLT = NIDLT - 1 NROWS = MEM( NIDLT ) NIDLT = NIDLT - NROWS*NWDS - 3 KCOL = MEM( NIDLT ) IF ( KCOL .EQ. NCOL ) GO TO 3005 NIDLT = NIDLT + NROWS*NWDS + 4 3010 CONTINUE C C GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 3200 J1 = J - 1 C print *,' processing column in backward step, j=',j 3250 NIDLT = NIDLT - 1 IF ( NIDLT .LE. 1 ) GO TO 3900 NROWS = MEM( NIDLT ) IROW = MEM( NIDLT-1 ) NIDLT = NIDLT - NROWS*NWDS - 3 KCOL = MEM( NIDLT ) 3260 CONTINUE IF ( KCOL .NE. J ) GO TO 3900 INDXI = NIDLT + NROWS*2 IROW = IROW + NROWS - 1 IF ( (IROW-NROWS) .EQ. J1 ) NROWS = NROWS - 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 3700 K = 1,LAST,NVECSZ JI = INDXI + 2 IK = IROW + K SUM = 0.0 DO 3600 II = 1,NROWS JI = JI - 2 IK = IK - 1 SUM = SUM + CMPLX( DMEM(JI),DMEM(JI+1) ) * Y(IK) 3600 CONTINUE Y(J1+K) = Y(J1+K) + SUM 3700 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C GO TO 3250 C C END-OF-COLUMN -- TEST FOR COMPLETION C 3900 IF (J .EQ. 1) GO TO 7000 J = J - 1 J1 = J - 1 GO TO 3260 C 7000 BUF(2) = END CALL CONMSG (BUF,2,0) CALL CLOSE ( DBL, REW ) RETURN C C FATAL ERROR MESSAGE C 7001 CONTINUE 7002 CONTINUE WRITE (NOUT,9001) SFM,SUBNAM 9001 FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU', 1 'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/fbsi4.f ================================================ SUBROUTINE FBSI4 (BLOCK, Y, MEM, DMEM, IBUFF) C C FBSI4 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSI IN CDP C INTEGER BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END INTEGER IBUFF(2), DBU, DBB, DBC INTEGER RD, RDREW, WRT, WRTREW, REW, MEM(2) DOUBLE PRECISION L, DMEM(2) DOUBLE COMPLEX Y(1), YJK, SUM, ZERO, LJJ CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW COMMON /XMSSG / UFM, UWM, UIM, SFM COMMON /ZZZZZZ/ L(2) COMMON /SYSTEM/ SYSBUF, NOUT COMMON /FBSX / DBL(7), DBU(7), DBB(7), DBC(7) COMMON /FBSM / NVEC , NVECSZ, NWDS , LASIND, IPOS(7) DATA ZERO / (0.0D+0, 0.0D+0 ) / DATA SUBNAM, BEGN, END / 4HFBS4, 4HBEGN, 4HEND / C NCOL = DBL(2) BUF(1) = SUBNAM BUF(2) = BEGN IOPEN = 0 CALL CONMSG (BUF,2,0) LAST = NVEC * NVECSZ NIDLT = 1 LCOL = IPOS( 1 ) DO 1000 J = 1,LCOL C PRINT *,' FORWARD, PROCESSING COLUMN J=',J J1 = J - 1 C C CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS C DO 10 K = J,LAST,NVECSZ IF (Y(K) .NE. ZERO) GO TO 100 10 CONTINUE C C ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS C IF ( NIDLT .GE. LASIND ) GO TO 1005 KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 7001 40 NROWS = MEM( NIDLT+1 ) NIDLT = NIDLT + NROWS*NWDS + 4 IF ( NIDLT .GE. LASIND ) GO TO 1005 KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 1000 GO TO 40 C C GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT C 100 CONTINUE KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 7001 NROWS = MEM( NIDLT + 1 ) IROW = MEM( NIDLT + NROWS*NWDS + 2 ) INDXI = ( NIDLT + 3 ) / 2 INDXL = INDXI + NROWS*2 - 1 LJJ = 1.0D+0 / DCMPLX( DMEM( INDXI ), DMEM( INDXI+1 ) ) IF (NROWS .EQ. 1) GO TO 600 INDXI = INDXI + 2 IROW = IROW + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 300 DO 500 K = 1, LAST, NVECSZ YJK = Y( J1+K ) IF ( YJK .EQ. ZERO ) GO TO 500 IYROW = IROW + K - 1 DO 400 IJ = INDXI, INDXL, 2 Y( IYROW ) = Y( IYROW ) + DCMPLX( DMEM(IJ), DMEM(IJ+1) ) * YJK 400 IYROW = IYROW + 1 500 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 600 CONTINUE NIDLT = NIDLT + 4 + NROWS*NWDS IF ( NIDLT .GE. LASIND ) GO TO 800 KCOL = MEM( NIDLT ) IF ( KCOL .NE. J ) GO TO 800 NROWS = MEM( NIDLT + 1 ) IROW = MEM( NIDLT + NROWS*NWDS + 2 ) INDXI = ( NIDLT + 3 ) / 2 INDXL = INDXI + NROWS*2 - 1 GO TO 300 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 800 DO 900 K = J,LAST,NVECSZ Y(K) = Y(K)*LJJ 900 CONTINUE C 1000 CONTINUE 1005 CONTINUE IF ( LCOL .EQ. NCOL ) GO TO 2005 IFCOL = LCOL + 1 CALL GOPEN ( DBL, IBUFF, RDREW ) C C POSITION FILE TO APPROPRIATE COLUMN TO BE READ C CALL DSSPOS ( DBL, IPOS(2), IPOS(3), IPOS(4) ) DO 2000 J = IFCOL, NCOL J1 = J - 1 C C CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS C DO 1010 K = J,LAST,NVECSZ IF (Y(K) .NE. ZERO) GO TO 1100 1010 CONTINUE C C ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS C CALL SKPREC ( DBL, 1 ) GO TO 2000 C C GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT C 1100 CONTINUE BLOCK(8) = -1 CALL GETSTR ( *7002, BLOCK ) IF (BLOCK(4) .NE. J) GO TO 7002 IROW = BLOCK(4) INDXI = BLOCK(5) NROWS = BLOCK(6) INDXL = INDXI + NROWS*2 - 1 1200 CONTINUE LJJ = 1.0D+0 / DCMPLX( L( INDXI ), L( INDXI+1 ) ) IF (NROWS .EQ. 1) GO TO 1600 INDXI = INDXI + 2 IROW = IROW + 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K) C 1300 DO 1500 K = 1, LAST, NVECSZ YJK = Y( J1+K ) IF ( YJK .EQ. ZERO ) GO TO 1500 IYROW = IROW + K - 1 DO 1400 IJ = INDXI, INDXL, 2 Y( IYROW ) = Y( IYROW ) + DCMPLX( L(IJ), L(IJ+1) ) * YJK 1400 IYROW = IYROW + 1 1500 CONTINUE C C GET NEXT STRING IN TRIANGULAR FACTOR C 1600 CONTINUE CALL ENDGET ( BLOCK ) CALL GETSTR ( *1800, BLOCK ) IROW = BLOCK(4) INDXI = BLOCK(5) NROWS = BLOCK(6) INDXL = INDXI + NROWS*2 - 1 GO TO 1300 C C END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL C 1800 DO 1900 K = J,LAST,NVECSZ Y(K) = Y(K)*LJJ 1900 CONTINUE 2000 CONTINUE 2005 CONTINUE IF ( NCOL .EQ. 1 ) GO TO 7000 J = NCOL - 1 IF ( LCOL .EQ. NCOL ) GO TO 3000 C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C CALL BCKREC (BLOCK) C C GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 2200 J1 = J - 1 BLOCK(8) = -1 2300 CALL GETSTB (*2900,BLOCK) IROW = BLOCK( 4 ) NROWS = BLOCK( 6 ) IF (IROW-NROWS .EQ. J1) NROWS = NROWS - 1 IF (NROWS .EQ. 0) GO TO 2800 INDXI = BLOCK( 5 ) C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 2700 K = 1,LAST,NVECSZ JI = INDXI + 2 IK = IROW + K SUM = (0.0D+0, 0.0D+0) DO 2600 II = 1,NROWS JI = JI - 2 IK = IK - 1 SUM = SUM + DCMPLX( L(JI),L(JI+1) ) * Y(IK) 2600 CONTINUE Y(J1+K) = Y(J1+K) + SUM 2700 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C 2800 CONTINUE CALL ENDGTB (BLOCK) GO TO 2300 C C END-OF-COLUMN -- TEST FOR COMPLETION C 2900 IF (J .EQ. 1) GO TO 7000 J = J - 1 IF ( J .EQ. LCOL ) GO TO 3010 GO TO 2200 C 3000 CONTINUE C C INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN C 3005 CONTINUE NIDLT = NIDLT - 1 NROWS = MEM( NIDLT ) NIDLT = NIDLT - NROWS*NWDS - 3 KCOL = MEM( NIDLT ) IF ( KCOL .EQ. NCOL ) GO TO 3005 NIDLT = NIDLT + NROWS*NWDS + 4 3010 CONTINUE C C GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL, C ADJUST STRING TO SKIP IT. C 3200 J1 = J - 1 C print *,' processing column in backward step, j=',j 3250 NIDLT = NIDLT - 1 IF ( NIDLT .LE. 1 ) GO TO 3900 NROWS = MEM( NIDLT ) IROW = MEM( NIDLT-1 ) NIDLT = NIDLT - NROWS*NWDS - 3 KCOL = MEM( NIDLT ) 3260 CONTINUE IF ( KCOL .NE. J ) GO TO 3900 INDXI = NIDLT/2 + NROWS*2 IROW = IROW + NROWS - 1 IF ( (IROW-NROWS) .EQ. J1 ) NROWS = NROWS - 1 C C PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH C LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K) C DO 3700 K = 1,LAST,NVECSZ JI = INDXI + 2 IK = IROW + K SUM = 0.0D+0 DO 3600 II = 1,NROWS JI = JI - 2 IK = IK - 1 SUM = SUM + DCMPLX( DMEM(JI),DMEM(JI+1) ) * Y(IK) 3600 CONTINUE Y(J1+K) = Y(J1+K) + SUM 3700 CONTINUE C C TERMINATE CURRENT STRING AND GET NEXT STRING C GO TO 3250 C C END-OF-COLUMN -- TEST FOR COMPLETION C 3900 IF (J .EQ. 1) GO TO 7000 J = J - 1 J1 = J - 1 GO TO 3260 C 7000 BUF(2) = END CALL CONMSG (BUF,2,0) CALL CLOSE ( DBL, REW ) RETURN C C FATAL ERROR MESSAGE C 7001 CONTINUE 7002 CONTINUE WRITE (NOUT,9001) SFM,SUBNAM 9001 FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU', 1 'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/fbsint.f ================================================ SUBROUTINE FBSINT (X,Y) C C GIVEN THE DECOMPOSITION OF A REAL SYMMETRIC MATRIX, FBSINT WILL C SOLVE A SYSTEM OF SIMULTANEOUS LINEAR EQUATIONS BY FORWARD- C BACKWARD SUBSTITUTION C C THIS ROUTINE IS SUITABLE FOR BOTH SINGLE AND DOUBLE PRECISION C OPERATION C INTEGER FILEL ,IBLK(15) REAL X(1) ,Y(1) COMMON /INFBSX/ FILEL(7) COMMON /FBSX / LFILE(7) EQUIVALENCE (FILEL(3) ,NROW) C NROW2 = NROW IF (FILEL(5) .EQ. 2) NROW2 = 2*NROW DO 100 I = 1,NROW2 Y(I) = X(I) 100 CONTINUE DO 120 I = 1,7 LFILE(I) = FILEL(I) 120 CONTINUE CALL REWIND (FILEL) CALL SKPREC (FILEL,1) IBLK(1) = FILEL(1) IF (FILEL(5) .EQ. 1) CALL FBS1 (IBLK,Y,Y,NROW2) IF (FILEL(5) .EQ. 2) CALL FBS2 (IBLK,Y,Y,NROW2) RETURN END ================================================ FILE: mis/fbsinv.f ================================================ SUBROUTINE FBSINV (X,Y,IOBUFF) C C SINGLE PRECISION VERSION C C FBSINV IS A SPECIAL FORWARD-BACKWARD SUBSTITUTION ROUTINE FOR C INVPWR. IT OPERATES ON CONJUNCTION WITH SDCOMP. C THE ARITHMETIC PRECISION IS THAT OF THE INPUT FILE C C FILEL = MATRIX CONTROL BLOCK FOR THE LOWER TRIANGLE C X = THE LOAD VECTOR C Y = THE SOLUTION VECTOR C IOBUFF = NOT USED C INTEGER FILEL ,PARM(3) ,IBLK(15) REAL X(1) ,Y(1) COMMON /FBSX / FILEL(7) EQUIVALENCE (FILEL(3),NROW), (FILEL(5),LTYPE) DATA PARM / 4H ,4HFBSI, 4HNV / C C FORWARD PASS C PARM(1) = FILEL(1) IBLK(1) = FILEL(1) IF (LTYPE .EQ. 2) GO TO 20 IF (LTYPE .NE. 1) GO TO 50 C C TRANSFER THE SINGLE PRECISION LOAD VECTOR TO THE SOLUTION VECTOR C DO 10 I = 1,NROW 10 Y(I) = X(I) CALL FBS1 (IBLK,Y,Y,NROW) GO TO 40 C C TRANSFER THE DOUBLE PRECISION LOAD VECTOR TO THE SOLUTION VECTOR C 20 NROW2 = 2*NROW DO 30 I = 1,NROW2 30 Y(I) = X(I) CALL FBS2 (IBLK,Y,Y,NROW2) C 40 CALL REWIND (FILEL) CALL SKPREC (FILEL,1) RETURN C C FATAL ERRORS C 50 CALL MESAGE (-7,PARM(1),PARM(2)) RETURN END ================================================ FILE: mis/fbsrdm.f ================================================ SUBROUTINE FBSRDM ( MCB , ICORE , RCORE , DCORE &, MEMTOT, BUFF, LASIND, IPOS ) C C FBSRDM - This routine will store an entire matrix in memory C if sufficient memory exists. The matrix C is stored in memory according to the following scheme: C (Subroutine FERRDM is very similiar to this subroutine) C C 1st word = current column number C 2nd word = number of terms in string (ntms) C 3rd word } C | } C | } = actual C | } matrix C | } string C | } data C | } C | } C 3+(ntms*prec) } (where prec=1 for s.p.; =2 for d.p. ) C 3+(ntms*prec)+1 = row position of first element in above string C 3+(ntms*prec)+2 = number of terms in ABOVE string (ntms) C C The above data repeats for all strings within a column and then C for all columns in the matrix. C C Argument list : C MCB - Matrix control block for input matrix C ICORE - Memory for storage of data (integer) C RCORE - Same location as ICORE but real single reference C DCORE - Same location as ICORE but real double reference C MEMTOT - Total amount of memory available for this data C BUFF - Buffer allocation for input matrix C LASIND - Memory index of last string stored in memory C IPOS - 6 word array with the following information C (1) = last column read into memory C (2) = block number of following column not read into memory C (3) = current logical record pointer for following column C not read into memory C (4) = current buffer pointer for following record not read C into memory C (5) = last block number in file C (6) = current logical record pointer for last record in file C (7) = current buffer pointer for last record in file C DOUBLE PRECISION DCORE(1), DXL REAL RCORE(1), RXL(1) INTEGER RD, RDREW, WRT, WRTREW, REW, BUFF(2) INTEGER IPOS(7) , ICORE(1) INTEGER IBLK(20),MCB(7) COMMON /ZZZZZZ/ DXL(1) COMMON /SYSTEM/ KSYSTM(65) COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW EQUIVALENCE ( KSYSTM( 2), NOUT ) EQUIVALENCE ( DXL,RXL ) MEM = 1 NCOL = MCB( 2 ) NTYPE = MCB( 5 ) INCR = 1 IF ( NTYPE .EQ. 2 .OR. NTYPE .EQ. 3 ) INCR = 2 IF ( NTYPE .EQ. 4 ) INCR = 4 NTWDS = 0 IPOS( 1 ) = NCOL DO 5 I = 2,7 IPOS( I ) = 0 5 CONTINUE DO 10 I = 1,20 10 IBLK(I) = 0 IBLK(1) = MCB( 1 ) IBLK(9) = 1 IBLK(10) = 1 CALL GOPEN ( MCB, BUFF, RDREW ) CALL REWIND ( MCB) CALL SKPREC ( MCB, 1 ) DO 1000 JCOL = 1,NCOL IBLK(8) = -1 LASIND = MEM - 1 CALL DSCPOS ( MCB, IBLOCK, ICLR, ICBP ) 100 CALL GETSTR(*1000,IBLK(1)) INDEX = IBLK( 5 ) NTMS = IBLK( 6 ) JROW = IBLK( 4 ) NTWDS = NTWDS + 4 + NTMS*INCR IF ( NTWDS .GT. MEMTOT ) GO TO 2000 ICORE(MEM) = JCOL ICORE(MEM+1) = NTMS GO TO ( 110, 120, 130, 140 ), NTYPE 110 CONTINUE MINDEX = MEM + 1 DO 115 II = 1,NTMS RCORE(MINDEX+II) = RXL(INDEX+II-1) 115 CONTINUE MEM = MEM + 2 + NTMS GO TO 180 120 CONTINUE MINDEX = MEM/2+1 DO 125 II = 1,NTMS DCORE(MINDEX+II) = DXL(INDEX+II-1) 125 CONTINUE MEM = MEM + 2 + NTMS*2 GO TO 180 130 CONTINUE MINDEX = MEM + 1 NTMS2 = NTMS*2 DO 135 II = 1,NTMS2 RCORE(MINDEX+II) = RXL(INDEX+II-1) 135 CONTINUE MEM = MEM + 2 + NTMS2 GO TO 180 140 CONTINUE MINDEX = MEM/2+1 NTMS2 = NTMS*2 DO 145 II = 1,NTMS2 DCORE(MINDEX+II) = DXL(INDEX+II-1) 145 CONTINUE MEM = MEM + 2 + NTMS*4 GO TO 180 180 CONTINUE ICORE(MEM ) = JROW ICORE(MEM+1) = NTMS MEM = MEM + 2 185 CALL ENDGET (IBLK( 1 ) ) GO TO 100 1000 CONTINUE LASIND = MEM - 1 GO TO 7000 2000 IPOS( 1 ) = JCOL - 1 IPOS( 2 ) = IBLOCK IPOS( 3 ) = ICLR IPOS( 4 ) = ICBP CALL SKPREC ( MCB, NCOL-JCOL+1 ) CALL DSCPOS ( MCB, IBLOCK, ICLR, ICBP ) IPOS( 5 ) = IBLOCK IPOS( 6 ) = ICLR IPOS( 7 ) = ICBP 7000 CONTINUE CALL CLOSE ( MCB , REW ) RETURN END ================================================ FILE: mis/fcurl.f ================================================ SUBROUTINE FCURL (FMEO, FME1, FFEO, FFE1, YI, S, LAM1) C ------------------------------------------------------------------ DIMENSION FMEO (10,2), FME1 (10,2), FFEO (10,2), FFE1 (10,2) DIMENSION YI (6, 7) REAL LAM1 FMEO( 1,1) = 0.0 FMEO( 2,1) = YI(1,1) FMEO(3,1) = YI(1,2) * 2.0 FMEO(4,1) = YI(1,3) * 3.0 FMEO( 5,1) = YI(1,1) * LAM1 FMEO( 6,1) = YI(1,2) * LAM1 FMEO( 7,1) = YI(1,3) * LAM1 FMEO( 8,1) = YI(1,4) * LAM1 FMEO( 9,1) = YI(1,5) * LAM1 FMEO(10,1) = YI(1,6) * LAM1 C FMEO( 1,2) = YI(4,1) FMEO( 2,2) = YI(4,2) FMEO( 3,2) = YI(4,3) FMEO( 4,2) = YI(4,4) FMEO( 5,2) = YI(2,1) FMEO( 6,2) = YI(2,2) FMEO( 7,2) = YI(2,3) FMEO( 8,2) = YI(2,4) FMEO( 9,2) = YI(2,5) FMEO(10,2) = YI(2,6) C S1 = 1.0 / S FME1( 1,1) = 0.0 FME1( 2,1) = S1 * YI(1,2) FME1(3,1) = S1 * YI(1,3) * 2.0 FME1(4,1) = S1 * YI(1,4) * 3.0 FME1( 5,1) = S1 * YI(1,2) * LAM1 FME1( 6,1) = S1 * YI(1,3) * LAM1 FME1( 7,1) = S1 * YI(1,4) * LAM1 FME1( 8,1) = S1 * YI(1,5) * LAM1 FME1( 9,1) = S1 * YI(1,6) * LAM1 FME1(10,1) = S1 * YI(1,7) * LAM1 C FME1( 1,2) = S1 * YI(4,2) FME1( 2,2) = S1 * YI(4,3) FME1( 3,2) = S1 * YI(4,4) FME1( 4,2) = S1 * YI(4,5) FME1( 5,2) = S1 * YI(2,2) FME1( 6,2) = S1 * YI(2,3) FME1( 7,2) = S1 * YI(2,4) FME1( 8,2) = S1 * YI(2,5) FME1( 9,2) = S1 * YI(2,6) FME1(10,2) = S1 * YI(2,7) C FFEO( 1,1) = 0.0 FFEO (2,1) = 0.0 FFEO (3,1) = 0.0 FFEO (4,1) = 0.0 FFEO( 5,1) = 0.0 FFEO( 6,1) = 0.0 FFEO( 7,1) = - 2.0 * YI(1,1) FFEO( 8,1) = - 6.0 * YI(1,2) FFEO( 9,1) = -12.0 * YI(1,3) FFEO(10,1) = -20.0 * YI(1,4) C FFEO (1,2) = 0.0 FFEO (2,2) = 0.0 FFEO (3,2) = 0.0 FFEO (4,2) = 0.0 FFEO( 5,2) = 0.0 FFEO( 6,2) = -YI(4,1) FFEO( 7,2) = -2.0 * YI(4,2) FFEO( 8,2) = -3.0 * YI(4,3) FFEO( 9,2) = -4.0 * YI(4,4) FFEO(10,2) = -5.0 * YI(4,5) C FFE1( 1,1) = 0.0 FFE1 (2,1) = 0.0 FFE1 (3,1) = 0.0 FFE1 (4,1) = 0.0 FFE1( 5,1) = 0.0 FFE1( 6,1) = 0.0 FFE1( 7,1) = -S1 * 2.0 * YI(1,2) FFE1( 8,1) = -S1 * 6.0 * YI(1,3) FFE1( 9,1) = -S1 * 12.0 * YI(1,4) FFE1(10,1) = -S1 * 20.0 * YI(1,5) C FFE1 (1,2) = 0.0 FFE1 (2,2) = 0.0 FFE1 (3,2) = 0.0 FFE1 (4,2) = 0.0 FFE1( 5,2) = 0.0 FFE1( 6,2) = -S1 * YI(4,2) FFE1( 7,2) = -S1 * 2.0 * YI(4,3) FFE1( 8,2) = -S1 * 3.0 * YI(4,4) FFE1( 9,2) = -S1 * 4.0 * YI(4,5) FFE1(10,2) = -S1 * 5.0 * YI(4,6) RETURN END ================================================ FILE: mis/fdit.f ================================================ SUBROUTINE FDIT (I,K) C C FETCHES FROM THE RANDOM ACCESS STORAGE DEVICE THE BLOCK OF THE C DIT CONTAINING THE ITH SUBSTRUCTURE NAME, AND STORES IT IN THE C ARRAY BUF STARTING AT LOCATION (DIT+1) AND EXTENDING TO LOCATION C (DIT+BLKSIZ). THE OUTPUT K INDICATES THAT THE SUBSTRUCTURE HAS C THE KTH ENTRY IN BUF. C EXTERNAL RSHIFT,ANDF LOGICAL DITUP,NXTUP,NEWBLK INTEGER BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL, 1 BLKSIZ,DIRSIZ,ANDF,RSHIFT,NMSBR(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL, 1 IODUM(8),MDIDUM(4), 2 NXT,NXTPBN,NXTLBN,NXTTSZ,NXTFSZ(10),NXTCUR, 3 DITUP,MDIUP,NXTUP,NXTRST COMMON /SYS / BLKSIZ,DIRSIZ COMMON /SYSTEM/ NBUFF,NOUT COMMON /MACHIN/ MACH,IHALF,JHALF DATA IRD , IWRT / 1,2 / DATA IEMPTY/ 4H / DATA INDSBR/ 5 /, NMSBR /4HFDIT,4H / C CALL CHKOPN (NMSBR(1)) C C NDIR IS THE NUMBER OF SUBSTRUCTURE NAMES IN ONE BLOCK OF THE DIT C NDIR = BLKSIZ/2 C C COMPUTE THE LOGICAL BLOCK NUMBER, AND THE WORD NUMBER WITHIN C BUF IN WHICH THE ITH SUBSTRUCTURE NAME IS STORED. STORE THE BLOCK C NUMBER IN IBLOCK, AND THE WORD NUMBER IN K. C IBLOCK = I/NDIR IF (I .EQ. IBLOCK*NDIR) GO TO 10 IBLOCK = IBLOCK + 1 10 K = 2*(I-(IBLOCK-1)*NDIR) - 1 + DIT IF (DITLBN .EQ. IBLOCK) RETURN C C THE DESIRED DIT BLOCK IS NOT PRESENTLY IN CORE, MUST THEREFORE C FETCH IT. C NEWBLK = .FALSE. C C FIND THE PHYSICAL BLOCK NUMBER OF THE BLOCK ON WHICH THE LOGICAL C BLOCK IBLOCK IS STORED. C J = DITBL ICOUNT = 1 30 IF (ICOUNT .EQ. IBLOCK) GO TO 40 ICOUNT = ICOUNT + 1 CALL FNXT (J,INXT) IF (MOD(J,2) .EQ. 1) GO TO 33 IBL = RSHIFT(BUF(INXT),IHALF) GO TO 36 33 IBL = ANDF(BUF(INXT),JHALF) 36 IF (IBL .EQ. 0) GO TO 70 J = IBL GO TO 30 40 IF (DITPBN .EQ. 0) GO TO 43 C C THE IN CORE BLOCK SHARED BY THE DIT AND THE ARRAY NXT IS NOW C OCCUPIED BY THE DIT. WRITE IT OUT IF IT HAS BEEN UPDATED. C IF (.NOT.DITUP) GO TO 50 CALL SOFIO (IWRT,DITPBN,BUF(DIT-2)) GO TO 50 43 IF (NXTPBN .EQ. 0) GO TO 50 C C THE IN CORE BLOCK SHARED BY THE DIT AND THE ARRAY NXT IS NOW C OCCUPIED BY NXT. WRITE OUT NXT IF IT HAS BEEN UPDATED. C IF (.NOT.NXTUP) GO TO 46 CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2)) NXTUP = .FALSE. 46 NXTPBN = 0 NXTLBN = 0 C C READ THE DESIRED DIT BLOCK INTO CORE. C 50 DITPBN = J DITLBN = IBLOCK IF (NEWBLK) GO TO 60 CALL SOFIO (IRD,J,BUF(DIT-2)) RETURN C 60 ISTART = DIT + 1 IEND = DIT + BLKSIZ DO 65 LL = ISTART,IEND BUF(LL) = IEMPTY 65 CONTINUE RETURN C C WE NEED A FREE BLOCK FOR THE DIT. C 70 CALL GETBLK (J,IBL) IF (IBL .EQ. -1) GO TO 80 NEWBLK = .TRUE. J = IBL IF (ICOUNT .EQ. IBLOCK) GO TO 40 C C ERROR MESSAGES. C CALL ERRMKN (INDSBR,7) 80 WRITE (NOUT,85) UFM 85 FORMAT (A23,' 6223, SUBROUTINE FDIT - THERE ARE NO MORE FREE ', 1 'BLOCKS AVAILABLE ON THE SOF') CALL SOFCLS CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/fdsub.f ================================================ SUBROUTINE FDSUB (NAME,I) C ** PRETTIED C SEARCHES IF THE SUBSTRUCTURE NAME HAS AN ENTRY IN THE DIT. IF IT C DOES, THE OUTPUT VALUE OF I WILL INDICATE THAT NAME IS THE ITH C SUBSTRUCTURE IN THE DIT. I WILL BE SET TO -1 IF NAME DOES NOT C HAVE AN ENTRY IN THEDIT. C LOGICAL DITUP INTEGER BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL, 1 BLKSIZ,DIRSIZ DIMENSION NAME(2),NMSBR(2) COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,IODUM(8), 1 MDIDUM(4),NXTDUM(15),DITUP COMMON /SYS / BLKSIZ,DIRSIZ DATA NMSBR / 4HFDUB,4HB / C C NNMS IS THE NUMBER OF NAMES ON ONE BLOCK OF THE DIT, AND NBLKS IS C THE SIZE OF THE DIT IN NUMBER OF BLOCKS. C CALL CHKOPN (NMSBR(1)) IF (DITNSB .EQ. 0) GO TO 70 NNMS = BLKSIZ/2 NBLKS = DITSIZ/BLKSIZ IF (DITSIZ .EQ. NBLKS*BLKSIZ) GO TO 30 NBLKS = NBLKS + 1 C C START LOOKING FOR THE SUBSTRUCTURE NAME. C 30 MAX = BLKSIZ DO 60 J = 1,NBLKS I = 1 + (J-1)*NNMS CALL FDIT (I,DUMMY) IF (J .NE. NBLKS) GO TO 40 MAX = DITSIZ - (NBLKS-1)*BLKSIZ C C SEARCH THE BLOCK OF THE DIT WHICH IS PRESENTLY IN CORE. C 40 DO 50 K = 1,MAX,2 IF (BUF(DIT+K).NE.NAME(1) .OR. BUF(DIT+K+1).NE.NAME(2)) GO TO 50 KK = K GO TO 80 50 CONTINUE 60 CONTINUE C C DID NOT FIND NAME IN THE DIT. C 70 I = -1 RETURN C C DID FIND NAME IN THE DIT. RETURN NAME INDEX NUMBER C 80 I = (DITLBN-1)*NNMS + (KK+1)/2 RETURN END ================================================ FILE: mis/fdvect.f ================================================ SUBROUTINE FDVECT (DELTA,PK) C INTEGER SYSBUF,ICORE(1),MCB(7) C 1, NAME(2) DOUBLE PRECISION DCORE(1),DMAX,PK COMMON /SYSTEM/ KSYSTM(65) COMMON /ZZZZZZ/ CORE(1) COMMON /REGEAN/ IA(14),IVECT(7),IB(5),LC1,IB1(9),LOADS,LX,ICOUNT, 1 LAMA,IBUCK,NSYM COMMON /PACKX / IT1P,IT2P,IIP,JJP,INCRP EQUIVALENCE (ICORE(1),CORE(1),DCORE(1)), 1 (KSYSTM(1),SYSBUF),(KSYSTM(55),IPREC) C DATA NAME / 4HFDVE,4HCT / C NPROB = IA(3) KPREC = IA(5) IF (KPREC.NE.1 .AND. KPREC.NE.2) KPREC = IPREC NPRO2 = NPROB ICNT = IVECT(2) IM1 = 1 LCORE = (KORSZ(CORE)/2)*2 - LC1 - SYSBUF X = NPROB Y = ICOUNT MCB(1)= IB(5) CALL RDTRL (MCB(1)) C CALL DETFBS (NPRO2+1,ICORE(LCORE+1),MCB,NPROB,ICOUNT) C C COPY FX ONTO IVECT + NORMALIZE C IPM1 = IVECT(1) IF (ICNT .EQ. 0) GO TO 40 CALL GOPEN (IVECT(1),ICORE(LCORE+1),0) CALL SKPREC (IVECT(1),ICNT) CALL CLOSE (IVECT(1),2) IM1 = 3 40 CALL GOPEN (IVECT,ICORE(LCORE+1),IM1) LCORE = LCORE - SYSBUF IF (KPREC .EQ. 2) GO TO 71 XMAX = 0.0 DO 60 I = 1, NPROB 60 XMAX = AMAX1(XMAX,ABS(CORE(I))) DO 70 I = 1,NPROB 70 CORE(I) = CORE(I)/XMAX GO TO 73 71 DMAX = 0.0D0 DO 69 I = 1,NPROB IF (DABS(DCORE(I)) .GT. DMAX) DMAX = DABS(DCORE(I)) 69 CONTINUE DO 72 I = 1,NPROB 72 DCORE(I) = DCORE(I)/DMAX 73 CONTINUE IT1P = KPREC IT2P = IPREC IIP = 1 JJP = NPROB INCRP = 1 CALL PACK (CORE,IVECT,IVECT) CALL CLOSE (IVECT(1),1) IPM1 = LAMA CALL GOPEN (LAMA,ICORE(LCORE+1),3) DCORE(1) = PK CALL WRITE (LAMA,CORE,IPREC,1) CALL CLOSE (LAMA,2) RETURN END ================================================ FILE: mis/feer.f ================================================ SUBROUTINE FEER C C DRIVER FOR THE FEER (FAST EIGENVALUE EXTRACTION ROUTINE) METHOD. C THIS ROUTINE WAS CALLED FCNTL BEFORE C C GIVEN A REAL SYMETRIC MATRIX, FEER WILL SOLVE FOR THE EIGENVALUES C AND EIGENVECTORS AROUND THE CENTER OF INTEREST C C DEFINITION OF INPUT AND OUTPUT PARAMETERS C C IFKAA(7) = 101, MATRIX GINO BLOCK FOR THE INPUT STIFFNESS MATRIX K C IFMAA(7) = 102, MATRIX GINO BLOCK FOR THE INPUT MASS MATRIX M C IFLELM(7)= 201, MATRIX GINO BLOCK FOR THE OUTPUT EIGENVALUES C IFLVEC(7)= 202, MATRIX GINO BLOCK FOR THE OUTPUT EIGENVECTORS C ? = 203 C DMPFLE = 204, EIGENVALUE SUMMARY FILE C SR1FLE-SR8FLE = 301-308, SCRATCH FILES REQUIRED INTERNALLY C XLMBDA = INPUT, CENTER OF RANGE OF INTEREST. C (USER SPECIFIED SHIFT) C NEIG = NUMBER OF DESIRED EIGENVALUES AROUND THE CENTER C OF INTEREST. (EIGENVALUES SPECIFIED BY USER) C NORD = PROBLEM SIZE (SET INTERNALLY USING THE DIMENSION OF C THE STIFFNESS MATRIX) C MORD = ORDER OF THE REDUCED PROBLEM (SET INTERNALLY) C NORTHO = NO. OF ORTHOGONAL VECTORS IN PRESENT SET (INCLUDE C PREVISOUSLY COMPUTED VECTORS) C EPXM = ZERO MASS CRITERIA TO DETERMINE RANK C EPX = ORTHOGONALITY CONVERGENCE CRITERIA C IBK = BUCKLING OPTION INDICATOR (SET INTERNALLY) C CRITF = THE USER SPECIFIED (OR DEFAULT) DESIRED THEORETICAL C ACCURACY OF THE EIGENVALUES EXPRESSED AS A PERCENTAGE C LAMBDA = VALUE OF THE SHIFT ACTUALLY USED (D.P.) C CNDFLG = TERMINATION INDICATOR C ITER = NO. OF STARTING POINTS USED C IOPTF = SPECIFIED SHIFT OPTION INDICATOR, SET INTERNALLY C NOCHNG = THEORETICAL ERROR PARAMETER C IFSET = INTERNALLY COMPUTED SHIFT INDICTOR C NONUL = NO. OF VETOR ITERATIONS C MRANK = MATRIX RANK OF THE PROBLEM C IND,LMBDA,IDAIG = NOT ACTIVEATED C C EIGENVALUES AND EIGENVECTORS WILL BE STORED ON THE ACTUAL SR1FLE C AND SR2FLE. THE SELECTION OF ACCURATE EIGENVALUES AND VECTORS WILL C PUT THEM ON IFLELM AND IFLVEC IN THE CORRECT SEQUENCE AT THE END C OF PROCESSING C C IFLELM CONTAINS (K+LAMBDA*M) OR KAA C IFLVEC CONTAINS THE LOWER TRIANGLE L OR C C SR4FLE IS USED AS SCRATCH IN SDCOMP C SR5FLE IS USED AS SCRATCH IN SDCOMP C SR6FLE IS USED AS SCRATCH IN SDCOMP C SR7FLE CONTAINS THE VECTORS WHICH ARE USED TO ORTHOGONALIZE C SR8FLE CONTAINS THE CONTITIONED MAA MATRIX C IFLRVA = 301 C IFLRVC = 302 C MCBLT LOWER TRAINGULAR MATRIX L CONTROL BLOCK C MCBSMA CONTITIONED MASTRIX M CONTROL BLOCK C MCBVEC ORTHOGONAL VECTOR FILE CONTROL BLOCK C MCBRM TRIAL VECTOR V OR C(INVERSE-TRANSPOSE)*V CONTROL C BLOCK C INTEGER SYSBUF ,CNDFLG ,SR8FLE ,NAME(3) , 1 DMPFLE ,IZ(12) ,TIMED ,STURM , 2 T1 ,T2 ,T3 ,TIMET , 3 MCB(7) ,ICR(2) ,JCR(2) DOUBLE PRECISION LAMBDA ,LMBDA ,DZ(1) ,DRSN , 1 DRSM ,EPXM ,SCALE ,DSM DIMENSION TMT(4) ,TML(4) CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /BLANK / IPROB(2) ,NUMMOD ,ICASE COMMON /FEERCX/ IFKAA(7) ,IFMAA(7) ,IFLELM(7),IFLVEC(7), 1 SR1FLE ,SR2FLE ,SR3FLE ,SR4FLE , 2 SR5FLE ,SR6FLE ,SR7FLE ,SR8FLE , 3 DMPFLE ,NORD ,XLMBDA ,NEIG , 4 MORD ,IBK ,CRITF ,NORTHO , 5 IFLRVA ,IFLRVC COMMON /FEERXX/ LAMBDA ,CNDFLG ,ITER ,TIMED , 1 L16 ,IOPTF ,EPX ,NOCHNG , 2 IND ,LMBDA ,IFSET ,NZERO , 3 NONUL ,IDIAG ,MRANK ,ISTART , 4 NZ3 COMMON /REIGKR/ OPTION(2) COMMON /ZZZZZZ/ Z(1) COMMON /NTIME / LNTIME ,TCONS(15) COMMON /OPINV / MCBLT(7) ,MCBSMA(7),MCBVEC(7),MCBRM(7) COMMON /SYSTEM/ KSYSTM(65) COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP , 1 INCRP COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW COMMON /STURMX/ STURM ,SHFTPT ,KEEP(2) EQUIVALENCE (IZ(1),Z(1),DZ(1)) ,(KSYSTM( 1),SYSBUF), 1 (KSYSTM(2), IO) ,(KSYSTM(55),IPREC ), 2 (TCONS(8) ,TMT(1)) ,(TCONS(12) ,TML(4)), 3 (KSYSTM(40), NBPW) DATA NAME / 4HFEER,2*2H / ,IBEGN/ 4HBEGN / DATA IEND / 4HEND / ,MODE / 4HMODE / DATA I1,I2 , I3,I4,I0 / 1H1,1H2,1H3,1H4,1H / DATA ICR / 4HPASS,4HFAIL /, JCR/4HFREQ,4HBUCK / C C SET PRECISION DIGITS TO 12, ALL MACHINES (NEW 1/92) C IT = 12 EPX = 10.**(2-IT) DSM = 10.0D0**(-2*IT/3) NAME(3) = IBEGN CALL CONMSG (NAME,3,0) CALL FEERDD C C INITIALIZE FEERCX C DEFINITION OF INTERNAL PARAMETERS C IBK = 0 IF (IPROB(1) .NE. MODE) IBK = 1 IOPTF = IBK TIMED = 0 TIMET = 0 CALL SSWTCH (16,L16) IF (L16 .EQ. 1) WRITE (IO,10) 10 FORMAT (//,' *** DIAG16 - ALL TERMS USED ARE DESCRIBED IN ', 1 'PROGRAMMER MANUAL P. 4.48-19I THRU K',/) LAMBDA = -XLMBDA IF (IBK .EQ. 0) GO TO 40 IF (XLMBDA .EQ. 0.0) GO TO 30 CALL PAGE2 (3) WRITE (IO,20) UWM 20 FORMAT (A25,' 2388', /5X,'USER SPECIFIED RANGE NOT USED FOR FEER', 1 ' BUCKLING. THE ROOTS OF LOWEST MAGNITUDE ARE OBTAINED') 30 LAMBDA = 0.0D+0 40 IFSET = 0 IF (XLMBDA.EQ.0. .AND. IBK.EQ.0) IFSET = 1 IF (IFSET .EQ. 1) IOPTF = 1 CNDFLG = 0 NODCMP = 0 CALL RDTRL (IFKAA(1)) CALL RDTRL (IFMAA(1)) IFK = IFKAA(1) IFM = IFMAA(1) IPRC = IPREC NORD = IFKAA(2) INCR = 1 INCRP = INCR ITP1 = IPRC ITP2 = IPRC NZ = KORSZ(Z) IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF NTOT = IPRC*(5*NORD+1) + 4*SYSBUF - NZ IF (NTOT .GT. 0) CALL MESAGE (-8,NTOT,NAME) CALL KLOCK (ISTART) MRANK = 0 CALL GOPEN (IFM,Z(IBUF1),RDREW) CALL MAKMCB (MCB,SR8FLE,NORD,6,IPRC) CALL GOPEN (SR8FLE,Z(IBUF2),WRTREW) MCB(2) = 0 MCB(6) = 0 IF (IPRC .EQ. 2) GO TO 90 DO 80 J = 1,NORD II = 0 CALL UNPACK (*60,IFM,Z(1)) NT = NN - II + 1 EPXM = 0.0D+0 IF (II.LE.J .AND. NN.GE.J) EPXM = Z(J-II+1)*DSM NTZ = 0 DO 50 JJ = 1,NT IF (ABS(Z(JJ)) .GT. EPXM) GO TO 50 Z(JJ) = 0. NTZ = NTZ + 1 50 CONTINUE IF (NTZ .LT. NT) MRANK = MRANK + 1 GO TO 70 60 II = 1 NN = 1 NT = 1 Z(1)= 0. 70 IIP = II NNP = NN CALL PACK (Z(1),SR8FLE,MCB(1)) 80 CONTINUE GO TO 140 90 DO 130 J = 1,NORD II = 0 CALL UNPACK (*110,IFM,DZ(1)) NT = NN - II + 1 EPXM = 0.0D+0 IF (II.LE.J .AND. NN.GE.J) EPXM = DZ(J-II+1)*DSM NTZ = 0 DO 100 JJ = 1,NT IF (DABS(DZ(JJ)) .GT. EPXM) GO TO 100 DZ(JJ) = 0.0D+0 NTZ = NTZ + 1 100 CONTINUE IF (NTZ .LT. NT) MRANK = MRANK + 1 GO TO 120 110 II = 1 NN = 1 NT = 1 DZ(1) = 0.0D+0 120 IIP = II NNP = NN CALL PACK (DZ(1),SR8FLE,MCB(1)) 130 CONTINUE 140 CALL WRTTRL (MCB) MORD = 2*(NEIG-NORTHO) + 10 MRK = MRANK - NORTHO NZERO= NORTHO IF (MORD .GT. MRK) MORD = MRK IF (NEIG .LE. MRANK) GO TO 160 CALL PAGE2 (3) WRITE (IO,150) UWM 150 FORMAT (A25,' 2385', /5X,'DESIRED NUMBER OF EIGENVALUES EXCEED ', 1 'THE EXISTING NUMBER, ALL EIGENSOLUTIONS WILL BE SOUGHT.') 160 CALL CLOSE (SR8FLE,NOREW) CALL CLOSE (IFM,REW) DO 170 I = 1,7 MCBSMA(I) = MCB(I) 170 IFMAA(I) = MCBSMA(I) IFM = IFMAA(1) IF (IBK .EQ. 0) GO TO 180 C C SET UP TO DECOMPOSE KAA C IFLELM(1) = IFKAA(1) GO TO 210 180 IF (IFSET .EQ. 0) GO TO 200 C C CALCULATE INITIAL SHIFT C CALL GOPEN (IFK,Z(IBUF1),RDREW) CALL GOPEN (IFM,Z(IBUF2),RDREW) CALL FRMAX (IFK,IFM,NORD,IPRC,DRSN,DRSM) CALL CLOSE (IFK,REW) CALL CLOSE (IFM,REW) SCALE = DBLE(FLOAT(NORD))*10.0D0**(-IT)*DRSM LAMBDA = 10.0D0**(-IT/3)*DRSN IF (LAMBDA .LT. SCALE) LAMBDA = SCALE C C CALL IN ADD LINK TO FORM (K+LAMBDA*M) C 200 NAME(2) = I1 CALL CONMSG (NAME,3,0) CALL FEER1 NAME(3) = IEND CALL CONMSG (NAME,3,0) C C CALL IN SDCOMP TO DECOMPOSE THIS MATRIX C 210 NODCMP = NODCMP + 1 SHFTPT = DABS(LAMBDA) NAME(2) = I2 NAME(3) = IBEGN CALL CONMSG (NAME,3,0) CALL FEER2 (ISING) NAME(3) = IEND CALL CONMSG (NAME,3,0) IK = IBK + 1 IJ = ISING + 1 IF (ISING.NE.1 .AND. L16.EQ.0) GO TO 230 CALL PAGE2 (4) WRITE (IO,220) JCR(IK),NORD,MRANK,MORD,NORTHO,NEIG,NZERO,XLMBDA, 1 LAMBDA,ICR(IJ) 220 FORMAT ('0*** DIAG 16 OUTPUT FOR FEER ANALYSIS, OPTION =',A4, /5X, 1 'ORDER =',I5,', MAX RANK =',I5,', REDUCED ORDER =',I5, 2 ', ORTH VCT =',I5,', NEIG =',I4,', NZERO =',I4, /5X, 3 'USER SHIFT =',1P,E16.8,', INTERNAL SHIFT =',D16.8, 4 ', SINGULARITY CHECK ',A4) 230 IF (ISING .EQ. 0) GO TO 300 C C SINGULAR MATRIX. ADJUST LAMBDA C IF (IBK .EQ. 1) GO TO 500 CNDFLG = CNDFLG + 1 IF (NODCMP .EQ. 3) GO TO 520 LAMBDA = 100.0D0*LAMBDA GO TO 200 C C DETERMINE THE TIME REQUIRED TO COMPLETE FEER PROCESS C 300 CALL TMTOGO (T1) XM = MORD XMP = NORTHO XN = NORD XI = IFSET IFL = MCBLT(1) CALL GOPEN (IFL,Z(IBUF1),RDREW) NTMS = 0 DO 310 I = 1,NORD II = 0 CALL UNPACK (*310,IFL,Z(1)) NTMS = NTMS + NN - II + 1 310 CONTINUE CALL CLOSE (IFL,REW) XT = NTMS SP = (XT*(1.-XI)*(XM+XMP)+2.*XM) + XN*(2.+XI)*.5*(3.*XM**2+2.*XMP) 1 + (16.+11.*XI*.5)*XN*XM + 14.*XM**2 C C OBTAIN TRIDIAGONAL REDUCTION C NAME(2) = I3 NAME(3) = IBEGN CALL CONMSG (NAME,3,0) CALL FEER3 NAME(3) = IEND CALL CONMSG (NAME,3,0) IF (CNDFLG .NE. 3) GO TO 330 CALL PAGE2 (3) WRITE (IO,320) UWM 320 FORMAT (A25,' 2389', /5X,'PROBLEM SIZE REDUCED - NO MORE TRIAL ', 1 'VECTORS CAN BE OBTAINED.') 330 IF (MORD .EQ. 0) GO TO 350 CALL TMTOGO (T2) TIMET = T3 - T1 C C OBTAIN EIGENVALUES AND EIGENVECTORS C NAME(2) = I4 NAME(3) = IBEGN CALL CONMSG (NAME,3,0) CALL FEER4 (IT) NAME(3) = IEND CALL CONMSG (NAME,3,0) CALL TMTOGO (T3) IF (L16 .NE. 0) WRITE (IO,340) T1,T2,T3,SP 340 FORMAT (' FEER COMPLETE, T1,T2,T3 =',3I9,', SP = ',1P,E16.8) IF (CNDFLG .NE. 4) GO TO 370 350 WRITE (IO,360) UFM 360 FORMAT (A23,' 2391, PROGRAM LOGIC ERROR IN FEER') GO TO 540 370 IF (MORD+NZERO .GE. NEIG) GO TO 390 NPR = NEIG - MORD - NZERO CALL PAGE2 (3) WRITE (IO,380) UWM,NPR,NEIG 380 FORMAT (A25,' 2390', /4X,I5,' FEWER ACCURATE EIGENSOLUTIONS THAN', 1 ' THE',I5,' REQUESTED HAVE BEEN FOUND.') CNDFLG = 1 GO TO 420 390 IF (MORD+NZERO .EQ. NEIG) GO TO 420 NPR = MORD + NZERO - NEIG CALL PAGE2 (3) WRITE (IO,400) UIM,NPR,NEIG 400 FORMAT (A29,' 2392', /4X,I5,' MORE ACCURATE EIGENSOLUTIONS THAN ', 1 'THE',I5,' REQUESTED HAVE BEEN FOUND.') IF (L16 .EQ. 0) WRITE (IO,410) 410 FORMAT (5X,'USE DIAG 16 TO DETERMINE ERROR BOUNDS') 420 CALL GOPEN (DMPFLE,Z(IBUF1),WRTREW) C C SET IZ(1) TO 2 (FOR INVPWR) THEN IZ(7) TO 1 (POINTS TO FEER METHOD) C IZ(1) = 2 IZ(2) = MORD + NZERO IZ(3) = ITER IZ(4) = 0 IZ(5) = NODCMP IZ(6) = NONUL IZ(7) = 1 IZ(8) = CNDFLG IZ(9) = 0 IZ(10)= 0 IZ(11)= 0 IZ(12)= 0 CALL WRITE (DMPFLE,IZ,12,1) CALL CLOSE (DMPFLE,REW) CRITF = XN*10.0**(-IT) NAME(2) = I0 CALL CONMSG (NAME,3,0) RETURN C 500 WRITE (IO,510) UFM 510 FORMAT (A23,' 2436, SINGULAR MATRIX IN FEER BUCKLING SOLUTION.') GO TO 540 520 WRITE (IO,530) UFM 530 FORMAT (A23,' 2386', /5X,'STIFFNESS MATRIX SINGULARITY CANNOT BE', 1 ' REMOVED BY SHIFTING.') 540 CALL MESAGE (-37,0,NAME) RETURN END ================================================ FILE: mis/feer1.f ================================================ SUBROUTINE FEER1 C C FEER1 INITIALIZES AND CALLS SUBROUTINE ADD FOR FEER C INTEGER FILEA ,FILEB ,FILEC ,FILEK , 1 FILEM ,SCR1 ,TYPALP ,TYPBTA , 2 SQR ,RDP DOUBLE PRECISION LAMBDA ,DALPHA ,DBETA COMMON /FEERCX/ FILEK(7) ,FILEM(7) ,SCR1 COMMON /FEERXX/ LAMBDA COMMON /SADDX / NOMAT ,NZ ,FILEA(7) ,TYPALP , 1 DALPHA(2) ,FILEB(7) ,TYPBTA ,DBETA(2) , 2 DUM(36) ,FILEC(7) COMMON /ZZZZZZ/ Z(1) COMMON /NAMES / IJ(8) ,RDP ,IK(2) ,SQR COMMON /SYSTEM/ KSYSTM(56) EQUIVALENCE (KSYSTM(55),IPREC) C C SET UP CALL TO ADD C DO 10 I = 1,7 FILEA(I) = FILEM(I) 10 FILEB(I) = FILEK(I) DALPHA(1)= LAMBDA DBETA(1) = 1.0D+0 TYPALP = IPREC TYPBTA = IPREC NZ = KORSZ(Z) FILEC(1) = SCR1 FILEC(2) = FILEK(2) FILEC(3) = FILEK(3) FILEC(4) = SQR FILEC(5) = IPREC NOMAT = 2 IF (FILEB(1) .EQ. 0) NOMAT = 1 CALL SADD (Z,Z) CALL WRTTRL (FILEC) RETURN END ================================================ FILE: mis/feer2.f ================================================ SUBROUTINE FEER2 (IRET) C C FEER2 INITIALIZES THEN CALLS SDCOMP C INTEGER FILEA ,FILEL ,FILEU ,SR1FLE , 1 SR2FLE ,SR3FLE ,SR4FLE ,SR5FLE , 2 SR6FLE ,SR7FLE ,SR8FLE ,RDP , 3 UPRTRI ,PREC DOUBLE PRECISION DET ,DETC ,MINDD C COMMON /OPINV / MCBLT(7) ,MCBSMA(7) COMMON /SFACT / FILEA(7) ,FILEL(7) ,FILEU(7) ,ISR1FL , 1 ISR2FL ,NZ ,DET ,DETC , 2 POWER ,ISR3FL ,MINDD ,ICHL COMMON /FEERXX/ DUMM(12) ,IFSET COMMON /FEERCX/ IFKAA(7) ,IFMAA(7) ,IFLELM(7),IFLVEC(7), 1 SR1FLE ,SR2FLE ,SR3FLE ,SR4FLE , 2 SR5FLE ,SR6FLE ,SR7FLE ,SR8FLE , 3 DMPFLE ,NORD ,XLMBDA ,NEIG , 4 MORD ,IBK ,CRITF ,NORTHO , 5 IFLRVA ,IFLRVC COMMON /ZZZZZZ/ Z(1) COMMON /NAMES / IJ(8) ,RDP ,IK(5) ,LOWTRI , 1 UPRTRI COMMON /SYSTEM/ KSYSTM(54),PREC C IRET = 0 C FILEA(1) = IFLELM(1) FILEL(1) = IFLVEC(1) FILEU(1) = SR3FLE ISR1FL = SR4FLE ISR2FL = SR5FLE ISR3FL = SR6FLE ICHL = 0 IF (IBK.EQ.1 .OR. IFSET.EQ.1) ICHL = 1 FILEA(2) = IFKAA(2) FILEA(3) = IFKAA(3) FILEA(4) = IFKAA(4) FILEA(5) = PREC FILEA(6) = 0 FILEA(7) = 0 FILEL(5) = PREC C C SYMMETRIC DECOMPOSITION C NZ = KORSZ(Z) CALL SDCOMP (*30,Z,Z,Z) 10 FILEL(3) = FILEL(2) FILEL(4) = LOWTRI CALL WRTTRL (FILEL) DO 20 I = 1,7 20 MCBLT(I) = FILEL(I) RETURN C 30 IRET = 1 GO TO 10 END ================================================ FILE: mis/feer3.f ================================================ SUBROUTINE FEER3 C T C FEER3 OBTAINS THE REDUCED TRIDIAGONAL MATRIX (LI)*M*(LI) C WHERE M IS A SYMETRIC MATRIX AND L IS LOWER TRIANGULAR, AND (LI) C IS INVERSE OF L C C THE TRANSFORMATION IS ALPHA = VT(L**(-1)M (L**-(1))TV C WHERE V IS A RECTANGULAR TRANSFORMATION. C C Comments to follow refer to updates made 11/94. C This is a new version of FEER3. The old version has been renamed FEER3X. C Diag 43 may be used to force the use of the old version. The new version C uses all of available open core for storage of the orthogonal vectors, C the lower triangular matrix from SDCOMP, and the SMA matrix. If C insufficient memory is available, only part of the lower triangular C INTEGER SYSBUF ,CNDFLG ,MCBSCL(7),SR5FLE , 1 SR6FLE ,SR7FLE ,SR8FLE , 2 IZ(1) ,NAME(2) ,REW ,WRTREW , 3 OPTN2 ,RDREW ,SMAPOS C INTEGER DASHQ DOUBLE PRECISION LAMBDA ,LMBDA ,DZ(1) ,DSQ COMMON /FEERCX/ IFKAA(7) ,IFMAA(7) ,IFLELM(7),IFLVEC(7), 1 SR1FLE ,SR2FLE ,SR3FLE ,SR4FLE , 2 SR5FLE ,SR6FLE ,SR7FLE ,SR8FLE , 3 DMPFLE ,NORD ,XLMBDA ,NEIG , 4 MORD ,IBK ,CRITF ,NORTHO , 5 IFLRVA ,IFLRVC COMMON /FEERXX/ LAMBDA ,CNDFLG ,ITER ,TIMED , 1 L16 ,IOPTF ,EPX ,NOCHNG , 2 IND ,LMBDA ,IFSET ,NZERO , 3 NONUL ,IDIAG ,MRANK ,ISTART C C NIDSMA = IN-MEMORY INDEX FOR COLUMN DATA OF SMA MATRIX C NIDLT = IN-MEMORY INDEX FOR LOWER TRIANGULAR MATRIX C NIDORV = IN-MEMORY INDEX FOR ORTHOGONAL VECTORS C NLTLI = INDEX OF LAST STRING OF LOWER TRIANGULAR MATRIX HELD IN MEMORY C NSMALI = INDEX OF LAST STRING OF SMA MATRIX HELD IN MEMORY C IBFSMA = IN-MEMORY INDEX FOR BUFFER FOR OPENING SMA MATRIX C IBMLT = IN-MEMORY INDEX FOR BUFFER FOR OPENING LOWER TRIANGULAR MATRIX C IBFORV = IN-MEMORY INDEX FOR BUFFER FOR ORTHOGONAL VECTORS C SMAPOS = POSITION OF RECORD FOLLOWING LAST RECORD READ INTO MEMORY C AND THE LAST RECORD OF MATRIX SMA (SEE SUBROUTINE DSCPOS) C LTPOS = POSITION OF RECORD FOLLOWING LAST RECORD READ INTO MEMORY C AND THE LAST RECORD OF THE LOWER TRIANGULAR MATRIX C COMMON /FEERIM/ NIDSMA ,NIDLT ,NIDORV ,NLTLI , 1 NSMALI ,IBFSMA ,IBFLT , 2 IBFORV ,SMAPOS(7),LTPOS(7) COMMON /REIGKR/ OPTION ,OPTN2 COMMON /TYPE / RC(2) ,IWORDS(4) COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF ,NOUT ,SYSTM(52),IPREC , 1 SKIP36(38),KSYS94 COMMON /OPINV / MCBLT(7) ,MCBSMA(7),MCBVEC(7),MCBRM(7) COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP , 1 INCRP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW EQUIVALENCE (IZ(1),Z(1),DZ(1)) DATA NAME / 4HFEER,4H3 / C DATA DASHQ / 4H-Q / C C SR5FLE CONTAINS THE TRIDIAGONAL ELEMENTS C SR6FLE CONTAINS THE G VECTORS C SR7FLE CONTAINS THE ORTHOGONAL VECTORS C SR8FLE CONTAINS THE CONDITIONED MAA OR KAAD MATRIX C IFLVEC CONTAINS THE L OR C MATRIX FROM SDCOMP C IFLELM CONTAINS KAA+ALPHA*MAA C IFLRVC CONTAINS THE RESTART AND/OR RIGID BODY VECTORS C CALL SSWTCH ( 43, L43 ) IF ( L43 .EQ. 0 ) GO TO 1 CALL FEER3X GO TO 7777 1 CONTINUE IPRC = MCBLT(5) NWDS = IWORDS(IPRC) NZ = KORSZ(Z) CALL MAKMCB (MCBVEC(1),SR7FLE,NORD,2,IPRC) MCBVEC(2) = 0 MCBVEC(6) = 0 CALL MAKMCB (MCBRM(1) ,SR6FLE,MORD,2,IPRC) MCBRM(2) = 0 MCBRM(6) = 0 MCBSCL(1) = IFLRVC CALL RDTRL (MCBSCL(1)) C C INITIALIZE ALLOCATIONS C IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF IBFORV = IBUF1 IBFLT = IBUF3 IBFSMA = IBUF2 IV1 = 1 IV2 = IV1 + NORD IV2M1 = IV2 - 1 IV3 = IV2 + NORD IV4 = IV3 + NORD IV5 = IV4 + NORD IEND = NWDS*(5*NORD + 1) + 2 MAVAIL = IEND - IBUF4 IF (MAVAIL .GT. 0) CALL MESAGE (-8,MAVAIL,NAME) C C COMPUTE THE MEMORY REQUIREMENT FOR ORTHOGONAL VECTORS C MEMORT = NORD * ( MORD+NORTHO ) * IPRC C C COMPUTE THE MEMORY REQUIREMENT FOR THE LOWER TRIANGULAR MATRIX C CALL DSSIZE ( MCBLT, NCOLS, NTERMS, NSTRGS, NWDTRM ) MEMLT = NTERMS*NWDTRM + NSTRGS*4 C C COMPUTE THE MEMORY REQUIREMENT FOR THE SMA MATRIX C CALL DSSIZE ( MCBSMA, NCOLS, NTERMS, NSTRGS, NWDTRM ) MEMSMA = NTERMS*NWDTRM + NSTRGS*4 IF ( L16 .EQ. 0 ) GO TO 2 MINNEE = IEND + 4*SYSBUF MEMTOT = MEMORT + MEMLT + MEMSMA + MINNEE WRITE ( NOUT, 901 ) & MINNEE, MEMORT, MEMSMA, MEMLT, MEMTOT, NZ 901 FORMAT(' FEER EIGENVALUE EXTRACTION NFORMATION' &,/, 5X,' THE FOLLOWING GIVES OPEN CORE REQUIREMENTS FOR KEEPING' &,/, 5X,' VARIOUS MATRICES AND VECTORS IN CORE FOR THE FEER' &,/, 5X,' EIGENVALUE EXTRACTION METHOD' &,/,10X,' MINIMUM NUMBER OF WORDS NEEDED IN OPEN CORE =',I10 &,/,10X,' NUMBER OF WORDS FOR ORTHOGONAL VECTORS =',I10 &,/,10X,' NUMBER OF WORDS FOR SMA MATRIX =',I10 &,/,10X,' NUMBER OF WORDS FOR LOWER TRIANGULAR MATRIX =',I10 &,/,10X,' TOTAL NUMBER OF WORDS NEEDED TO ELIMINATE I/O =',I10 &,/,10X,' WORDS FOR OPEN CORE SPECIFIED IN THIS RUN =',I10 & ) 2 CONTINUE C CHECK TO SEE IF MEMORY AVAILABLE FOR ORTHOGONAL VECTORS NIDORV = 0 ITEST = IEND + MEMORT IF ( ITEST .GT. IBUF4 ) GO TO 3 NIDORV = IEND NIDORV = ( NIDORV/2 ) * 2 + 1 IEND = IEND + MEMORT 3 CONTINUE C CHECK TO SEE IF MEMORY AVAILABLE FOR SMA MATRIX IRMEM = IBUF4 - IEND IF ( IRMEM .LE. 10 ) GO TO 4 NIDSMA = IEND NIDSMA = (NIDSMA/2) * 2 + 1 MEMSMA = MEMSMA MEMSMA = MIN0 ( MEMSMA, IRMEM ) IEND = IEND + MEMSMA GO TO 5 4 CONTINUE NIDSMA = 0 MEMSMA = 0 5 CONTINUE C CHECK TO SEE IF MEMORY AVAILABLE FOR LOWER TRIANGULAR MATRIX IRMEM = IBUF4 - IEND IF ( IRMEM .LE. 10 ) GO TO 6 NIDLT = IEND NIDLT = (NIDLT/2) * 2 + 1 MEMLT = MEMLT MEMLT = MIN0 ( MEMLT, IRMEM ) IEND = IEND + MEMLT GO TO 7 6 CONTINUE NIDLT = 0 MEMLT = 0 7 CONTINUE LTPOS ( 4 ) = -1 SMAPOS( 4 ) = -1 C PRINT *,' FEER3, CALLING FERRDM,NIDSMA,NIDLT=',NIDSMA,NIDLT IF ( NIDSMA .EQ. 0 ) GO TO 11 CALL FERRDM ( MCBSMA,NIDSMA,MEMSMA,IBFSMA,NSMALI,SMAPOS) C PRINT *,' RETURN FROM FERRDM,MEMSMA,NSMALI=',MEMSMA,NSMALI C PRINT *,' SMAPOS=',SMAPOS 11 IF ( NIDLT .EQ. 0 ) GO TO 12 CALL FERRDM ( MCBLT ,NIDLT ,MEMLT ,IBFLT ,NLTLI ,LTPOS ) C PRINT *,' RETURN FROM FERRDM,MEMLT,NLTLI=',MEMLT,NLTLI C PRINT *,' LTPOS=',LTPOS 12 CONTINUE IF ( L16 .EQ. 0 ) GO TO 8 WRITE ( NOUT, 902 ) 'SMA',SMAPOS(1) WRITE ( NOUT, 902 ) 'LT ',LTPOS(1) 902 FORMAT(10X,' LAST COLUMN OF ',A3,' MATRIX IN MEMORY IS ',I4 ) C PRINT *,' SMAPOS=',SMAPOS C PRINT *,' LTPOS =',LTPOS 8 CONTINUE CALL GOPEN (SR7FLE,Z(IBUF1),WRTREW) IF (NORTHO .EQ. 0) GO TO 130 C C LOAD RESTART AND/OR RIGID BODY VECTORS C CALL GOPEN (IFLRVC,Z(IBUF2),RDREW) INCR = 1 INCRP = 1 ITP1 = IPRC ITP2 = IPRC DO 110 J = 1,NORTHO II = 1 NN = NORD CALL UNPACK (*110,IFLRVC,DZ(1)) IIP = II NNP = NN IF (IPRC .EQ. 1) GO TO 60 IF (IOPTF .EQ. 0) GO TO 40 DSQ = 0.D0 C PRINT *,' FERR3 CALLING FRMLTX' CALL FRMLTX (MCBLT(1),DZ(IV1),DZ(IV2),DZ(IV3)) DO 20 IJ = 1,NORD 20 DSQ = DSQ + DZ(IV2M1+IJ)**2 DSQ = 1.D0/DSQRT(DSQ) DO 30 IJ = 1,NORD 30 DZ(IJ) = DSQ*DZ(IV2M1+IJ) 40 CONTINUE GO TO 100 60 IF (IOPTF .EQ. 0) GO TO 90 SQ = 0.0 C PRINT *,' FEER3 CALLING FRMLTA' CALL FRMLTA (MCBLT(1),Z(IV1),Z(IV2),Z(IV3)) DO 70 IJ = 1,NORD 70 SQ = SQ + Z(IV2M1+IJ)**2 SQ = 1.0/SQRT(SQ) DO 80 IJ = 1,NORD 80 Z(IJ) = SQ*Z(IV2M1+IJ) 90 CONTINUE 100 CALL PACK (DZ(1),SR7FLE,MCBVEC(1)) 110 CONTINUE CALL CLOSE (IFLRVC,NOREW) 130 K = NORTHO CALL CLOSE (SR7FLE,NOREW) J = K NONUL = 0 ITER = 0 C PRINT *,' FEER3,SR7FLE,IFLRVC,SR6FLE=',SR7FLE,IFLRVC,SR6FLE C PRINT *,' FEER3,SR6FLE,SR8FLE,SR5FLE=',SR6FLE,SR8FLE,SR5FLE C PRINT *,' FEER3,MCBSMA,MCBLT,MCBVEC=',MCBSMA(1),MCBLT(1),MCBSMA(1) CALL GOPEN (SR6FLE,Z(IBUF4) ,WRTREW) CALL CLOSE (SR6FLE,NOREW) IF ( SR8FLE .EQ. MCBSMA(1) ) GO TO 131 C PRINT *,' PROBLEM IN FEER3, SR8FLE NE MCBSMA =',SR8FLE,MCBSMA(1) STOP 131 CONTINUE C CALL GOPEN (SR8FLE,Z(IBUF2) ,RDREW ) CALL GOPEN (SR5FLE,Z(IBUF4) ,WRTREW) CALL GOPEN (MCBSMA,Z(IBFSMA),RDREW ) CALL GOPEN (MCBLT ,Z(IBFLT ),RDREW ) C C GENERATE SEED VECTOR C 140 K = K + 1 J = K IFN = 0 C C GENERATE SEED VECTOR FOR LANCZOS C SS = 1.0 IF (IPRC .EQ. 1) GO TO 160 DO 150 I = 1,NORD SS =-SS J = J + 1 DSQ = FLOAT(MOD(J,3)+1)/(3.0*FLOAT((MOD(J,13)+1)*(1+5*I/NORD))) 150 DZ(IV2M1+I) = DSQ*SS C PRINT *,' FEER3 CALLING FERXTD' CALL FERXTD (DZ(IV1), DZ(IV2), DZ(IV3) 1, DZ(IV4), DZ(IV5), Z(IBUF1), IFN ) GO TO 180 160 DO 170 I = 1,NORD SS =-SS J = J + 1 SQ = FLOAT(MOD(J,3)+1)/(3.0*FLOAT((MOD(J,13)+1)*(1+5*I/NORD))) 170 Z(IV2M1+I) = SQ*SS C IF (OPTN2 .EQ. DASHQ) GO TO 175 CALL FERXTS ( Z(IV1), Z(IV2) , Z(IV3), Z(IV4 ) 1, Z(IV5), Z(IBUF1), IFN) GO TO 180 C 175 CALL FERXTQ ( Z(IV1), Z(IV2) , Z(IV3), Z(IV4 ) C 1, Z(IV5), Z(IBUF1), IFN) 180 IF (ITER .LE. MORD) GO TO 190 MORD = NORTHO - NZERO CNDFLG = 3 GO TO 200 C 190 IF (IFN .LT. MORD) GO TO 140 200 CALL CLOSE (SR5FLE,NOREW) CALL CLOSE (SR8FLE,REW) CALL CLOSE (MCBLT ,REW) 7777 CONTINUE RETURN END ================================================ FILE: mis/feer3x.f ================================================ SUBROUTINE FEER3X C T C FEER3 OBTAINS THE REDUCED TRIDIAGONAL MATRIX (LI)*M*(LI) C WHERE M IS A SYMETRIC MATRIX AND L IS LOWER TRIANGULAR, AND (LI) C IS INVERSE OF L C C THE TRANSFORMATION IS ALPHA = VT(L**(-1)M (L**-(1))TV C WHERE V IS A RECTANGULAR TRANSFORMATION. C C LAST REVISED 11/91 BY G.CHAN/UNISYS, MAKE ROOM FOR NEW FBS METHOD C INTEGER SYSBUF ,CNDFLG ,MCBSCL(7),SR5FLE , 1 SR6FLE ,SR7FLE ,SR8FLE ,SR9FLE , 2 SR10FL ,SRXFLE ,IZ(1) ,NAME(2) , 3 DASHQ ,OPTN2 DOUBLE PRECISION LAMBDA ,LMBDA ,DZ(1) ,DSQ COMMON /FEERCX/ IFKAA(7) ,IFMAA(7) ,IFLELM(7),IFLVEC(7), 1 SR1FLE ,SR2FLE ,SR3FLE ,SR4FLE , 2 SR5FLE ,SR6FLE ,SR7FLE ,SR8FLE , 3 DMPFLE ,NORD ,XLMBDA ,NEIG , 4 MORD ,IBK ,CRITF ,NORTHO , 5 IFLRVA ,IFLRVC COMMON /FEERXX/ LAMBDA ,CNDFLG ,ITER ,TIMED , 1 L16 ,IOPTF ,EPX ,NOCHNG , 2 IND ,LMBDA ,IFSET ,NZERO , 3 NONUL ,IDIAG ,MRANK ,ISTART , 4 NZV5 COMMON /REIGKR/ OPTION ,OPTN2 COMMON /TYPE / RC(2) ,IWORDS(4) COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF ,IO ,SYSTM(52),IPREC , 1 SKIP36(38),KSYS94 COMMON /OPINV / MCBLT(7) ,MCBSMA(7),MCBVEC(7),MCBRM(7) COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP , 1 INCRP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW EQUIVALENCE (IZ(1),Z(1),DZ(1)) DATA NAME / 4HFEER,4H3 / ,DASHQ / 4H-Q / C C SR5FLE CONTAINS THE TRIDIAGONAL ELEMENTS C SR6FLE CONTAINS THE G VECTORS C SR7FLE CONTAINS THE ORTHOGONAL VECTORS C SR8FLE CONTAINS THE CONDITIONED MAA OR KAAD MATRIX C SR9FLE CONTAINS MCBSMA DATA IN UNPACKED FORM = 309 C SR10FL CONTAINS MCBLT DATA IN UNPACKED FORM = 310 C (OR = 308 IF IT IS FREE) C IFLVEC CONTAINS THE L OR C MATRIX FROM SDCOMP C IFLELM CONTAINS KAA+ALPHA*MAA C IFLRVC CONTAINS THE RESTART AND/OR RIGID BODY VECTORS C SR9FLE = 309 SR10FL = 308 IPRC = MCBLT(5) NWDS = IWORDS(IPRC) NZ = KORSZ(Z) CALL MAKMCB (MCBVEC(1),SR7FLE,NORD,2,IPRC) MCBVEC(2) = 0 MCBVEC(6) = 0 CALL MAKMCB (MCBRM(1) ,SR6FLE,MORD,2,IPRC) MCBRM(2) = 0 MCBRM(6) = 0 MCBSCL(1) = IFLRVC CALL RDTRL (MCBSCL(1)) C C INITIALIZE ALLOCATIONS C IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF IV1 = 1 IV2 = IV1 + NORD IV3 = IV2 + NORD IV4 = IV3 + NORD IV5 = IV4 + NORD NZV5 = IBUF4 - IV5*NWDS - 2 IX2 = IV2 - 1 IEND = NWDS*(5*NORD + 1) + 2 ICRQ = IEND - IBUF4 IF (ICRQ .GT. 0) CALL MESAGE (-8,ICRQ,NAME) IFL = MCBLT(1) SRXFLE= SR8FLE C C CALL UNPSCR TO MOVE MCBSMA DATA INTO SR9FLE, AND MCBLT INTO SR10FL C (ORIGINAL MCBSMA AND MCBLT TRAILER WORDS 4,5,6,7 WILL BE CHANGED) C NZV5 IS THE AVAILABE SIZE OF THE WORKING SPACE FOR NEW FBS METHOD C USED IN FRSW/2, FRBK/2, FRMLT/D, AND FRMLTX/A ROUTINES C C IF KSYS94 IS 10000 OR DIAG 41 IS ON, NEW FBS METHODS AND UNPSCR C ARE NOT USED C IF (MOD(KSYS94,100000)/10000 .EQ. 1) GO TO 10 CALL SSWTCH (41,I) IF (I .EQ. 1) GO TO 10 SRXFLE = SR9FLE CALL UNPSCR (MCBSMA,SRXFLE,Z,IBUF2,IBUF1,NZV5,0,1) J = 2 IF (IOPTF .EQ. 1) J = 3 CALL UNPSCR (MCBLT,SR10FL,Z,IBUF2,IBUF1,NZV5,0,J) NZV5 = NZV5 + 1 IFL = SR10FL C 10 CALL GOPEN (IFL,Z(IBUF3),RDREW) CALL GOPEN (SR7FLE,Z(IBUF1),WRTREW) IF (NORTHO .EQ. 0) GO TO 130 C C LOAD RESTART AND/OR RIGID BODY VECTORS C CALL GOPEN (IFLRVC,Z(IBUF2),RDREW) INCR = 1 INCRP = 1 ITP1 = IPRC ITP2 = IPRC C DO 110 J = 1,NORTHO II = 1 NN = NORD CALL UNPACK (*110,IFLRVC,DZ(1)) IIP = II NNP = NN IF (IPRC .EQ. 1) GO TO 60 IF (IOPTF .EQ. 0) GO TO 40 DSQ = 0.D0 CALL FRMLTX (MCBLT(1),DZ(IV1),DZ(IV2),DZ(IV3)) DO 20 IJ = 1,NORD 20 DSQ = DSQ + DZ(IX2+IJ)**2 DSQ = 1.D0/DSQRT(DSQ) DO 30 IJ = 1,NORD 30 DZ(IJ) = DSQ*DZ(IX2+IJ) 40 IF (L16 .EQ. 0) GO TO 100 CALL PAGE2 (2) WRITE (IO,50) IIP,NNP,(DZ(I),I=1,NORD) 50 FORMAT (10H ORTH VCT ,2I5, /(1X,8E16.8)) GO TO 100 60 IF (IOPTF .EQ. 0) GO TO 90 SQ = 0.0 CALL FRMLTA (MCBLT(1),Z(IV1),Z(IV2),Z(IV3)) DO 70 IJ = 1,NORD 70 SQ = SQ + Z(IX2+IJ)**2 SQ = 1.0/SQRT(SQ) DO 80 IJ = 1,NORD 80 Z(IJ) = SQ*Z(IX2+IJ) 90 IF (L16 .EQ. 0) GO TO 100 CALL PAGE2 (2) WRITE (IO,50) IIP,NNP,(Z(I),I=1,NORD) 100 CALL PACK (DZ(1),SR7FLE,MCBVEC(1)) 110 CONTINUE C CALL CLOSE (IFLRVC,NOREW) IF (L16 .EQ. 0) GO TO 130 CALL PAGE2 (1) WRITE (IO,120) NORTHO,MCBVEC 120 FORMAT (5X,I5,16H ORTH VECTORS ON,I5,5H FILE,5I5,I14) 130 K = NORTHO CALL CLOSE (SR7FLE,NOREW) J = K NONUL = 0 ITER = 0 CALL GOPEN (SR6FLE,Z(IBUF4),WRTREW) CALL CLOSE (SR6FLE,NOREW) CALL GOPEN (SRXFLE,Z(IBUF2),RDREW) CALL GOPEN (SR5FLE,Z(IBUF4),WRTREW) C C GENERATE SEED VECTOR C 140 K = K + 1 J = K IFN = 0 C C GENERATE SEED VECTOR FOR LANCZOS C SS = 1.0 IF (IPRC .EQ. 1) GO TO 160 DO 150 I = 1,NORD SS =-SS J = J + 1 DSQ = FLOAT(MOD(J,3)+1)/(3.0*FLOAT((MOD(J,13)+1)*(1+5*I/NORD))) 150 DZ(IX2+I) = DSQ*SS IF (OPTN2 .NE. DASHQ) CALL FNXTVC (DZ(IV1),DZ(IV2),DZ(IV3), 1 DZ(IV4),DZ(IV5),Z(IBUF1),IFN) GO TO 180 C 160 DO 170 I = 1,NORD SS =-SS J = J + 1 SQ = FLOAT(MOD(J,3)+1)/(3.0*FLOAT((MOD(J,13)+1)*(1+5*I/NORD))) 170 Z(IX2+I) = SQ*SS IF (OPTN2 .NE. DASHQ) CALL FNXTV (Z(IV1),Z(IV2),Z(IV3),Z(IV4), 1 Z(IV5),Z(IBUF1),IFN) IF (OPTN2 .EQ. DASHQ) CALL FNXTVD (Z(IV1),Z(IV2),Z(IV3),Z(IV4), 1 Z(IV5),Z(IBUF1),IFN) C 180 IF (ITER .LE. MORD) GO TO 190 MORD = NORTHO - NZERO CNDFLG = 3 GO TO 200 C 190 IF (IFN .LT. MORD) GO TO 140 200 CALL CLOSE (SR5FLE,NOREW) CALL CLOSE (SRXFLE,REW) CALL CLOSE (IFL,REW) C C IF NEW FBS METHOD IS USED, SR9FLE AND SR10FL FILES COULD BE VERY C BIG. MAKE SURE THEY ARE PHYSICALLY REDUCED TO ZERO SIZE. THIS IS C IMPORTANT FOR A COMPUTER SYSTEM WITH LIMITED DISC SPACE C IF (IFL .NE. SR10FL) GO TO 210 CALL GOPEN (SR9FLE,Z(IBUF2),WRTREW) CALL GOPEN (SR10FL,Z(IBUF3),WRTREW) CALL CLOSE (SR9FLE,REW) CALL CLOSE (SR10FL,REW) C 210 IF (L16 .EQ. 0) RETURN CALL PAGE2 (1) I = IBUF4 - NORTHO*NORD*NWDS - 2 IF (I .LT. 0) I = IBUF4 - IEND WRITE (IO,220) I,NAME 220 FORMAT (19H OPEN CORE NOT USED,I10,2X,2A4) C RETURN END ================================================ FILE: mis/feer4.f ================================================ SUBROUTINE FEER4 (IT) C C FEER4 OBTAINS FROM THE REDUCED TRIDIAGONAL MATRIX THE EIGENVALUES C AND EIGENVECTORS C LOGICAL INCORE INTEGER SYSBUF ,CNDFLG ,SR2FLE ,SR6FLE , 1 SR7FLE ,SR8FLE ,IZ(1) ,NAME(2) CWKBNB NCL93007 11/94 INTEGER SR4FLE ,SR5FLE ,REW ,EOFNRW 1, WRTREW ,RDREW ,WRT CWKBNE NCL93007 11/94 DOUBLE PRECISION LAMBDA ,LMBDA ,DZ(1) ,B(2) , 1 DSM ,DSCE DIMENSION MCBC(7) ,ICR(2) ,SB(2) COMMON /MACHIN/ MACH COMMON /FEERCX/ IFKAA(7) ,IFMAA(7) ,IFLELM(7),IFLVEC(7) , 1 SR1FLE ,SR2FLE ,SR3FLE ,SR4FLE , 2 SR5FLE ,SR6FLE ,SR7FLE ,SR8FLE , 3 DMPFLE ,NORD ,XLMBDA ,NEIG , 4 MORD ,IBK ,CRITF ,NORTHO , 5 IFLRVA ,IFLRVC COMMON /FEERXX/ LAMBDA ,CNDFLG ,ITER ,TIMED , 1 L16 ,IOPTF ,EPX ,ERRC , 2 IND ,LMBDA ,IFSET ,NZERO , 3 NONUL ,IDIAG ,MRANK ,ISTART COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF ,IO ,SYSTM(52),IPREC COMMON /OPINV / MCBLT(7) ,MCBSMA(7),MCBVEC(7),MCBRM(7) COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP , 1 INCRP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW EQUIVALENCE (IZ(1),Z(1),DZ(1)), (SB(1),B(1)), (DSCE,SCE) DATA NAME / 4HFEER,4H4 /, ICR / 4HPASS,4HFAIL / C C SR4FLE CONTAINS THE EIGENVECTORS OF THE REDUCED PROBLEM C SR5FLE CONTAINS THE TRIDIAGONAL ELEMENTS AND SCRATCH IN FQRWV C SR6FLE CONTAINS THE G VECTORS C SR7FLE CONTAINS THE ORTHOGONAL VECTORS C CALL SSWTCH (26,L26) MDIM = MORD + 1 DSM = 10.0D+0**(-2*IT/3) SM = DSM IPRC = MCBRM(5) NZ = KORSZ(Z) CALL MAKMCB (MCBC(1),SR4FLE,MDIM,2,IPRC) MCBC(2) = 0 MCBC(6) = 0 M = 0 C C INITIALIZE ALLOCATIONS C IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF IV1 = 1 IV2 = IV1 + MDIM IV3 = IV2 + MDIM IV4 = IV3 + MDIM IV5 = IV4 + MDIM IV6 = IV5 + MDIM IV7 = IV6 + MDIM IV8 = IV7 + MDIM IV9 = IV8 + MDIM IX3 = IV3 - 1 IX4 = IV4 - 1 IEND = IPRC*(8*MDIM+1) + MDIM IF (IEND .GT. IBUF3) CALL MESAGE (-8,IEND-IBUF3,NAME) CALL GOPEN (SR5FLE,Z(IBUF2),RDREW) IF (IPRC .EQ. 2) DZ(IV4+MORD) = ERRC IF (IPRC .EQ. 1) Z(IV4+MORD) = ERRC NW = IPRC*2 DO 10 I = 1,MORD CALL READ (*420,*430,SR5FLE,B(1),NW,1,M) IF (IPRC .EQ. 1) GO TO 5 DZ(IX3+I) = B(1) DZ(IX4+I) = B(2) GO TO 10 5 Z(IX3+I) = SB(1) Z(IX4+I) = SB(2) 10 CONTINUE CALL CLOSE (SR5FLE,REW) CALL GOPEN (SR4FLE,Z(IBUF2),WRTREW) IF (IPRC .EQ. 1) GO TO 12 CALL FQRWV (MORD,DZ(IV1),DZ(IV2),DZ(IV3),DZ(IV4),DZ(IV5),DZ(IV6), 1 DZ(IV7),DZ(IV8),DZ(IV9),Z(IBUF1),SR5FLE,MCBC(1)) C SR4FLE GO TO 15 12 CALL FQRW (MORD,Z(IV1),Z(IV2),Z(IV3),Z(IV4),Z(IV5),Z(IV6), 1 Z(IV7),Z(IV8),Z(IV9),Z(IBUF1),SR5FLE,MCBC(1)) C SR4FLE 15 CALL CLOSE (SR4FLE,NOREW) C C RECONFIGURE VECTOR INDEX TO OBTAIN PHYSICAL EIGENVECTORS C IX1 = IV1 - 1 IX2 = IV2 - 1 IX3 = IV3 - 1 IX4 = IV4 - 1 IX5 = IX4 + NORD ISRV = MCBRM(1) IFLVEC(1) = IFLRVC IFLELM(1) = IFLRVA IF (NZERO .NE. 0) GO TO 20 C C PREPARE FILES WHEN NO RESTART AND/OR RIGID BODY VECTORS C IFLVEC(2) = 0 IFLVEC(6) = 0 CALL GOPEN (IFLRVC,Z(IBUF3),WRTREW) CALL CLOSE (IFLRVC,NOREW) CALL GOPEN (IFLRVA,Z(IBUF3),WRTREW) CALL CLOSE (IFLRVA,NOREW) 20 ITP1 = IPRC ITP2 = 1 INCRP= 1 II = 1 CALL GOPEN (IFLRVA,Z(IBUF1),WRT) MRED = 0 MFLG = 1 DO 30 M = 1,MORD IF (IPRC .EQ. 1) GO TO 22 DSCE = 1.0D+0/DZ(IX1+M) - LAMBDA IF (L16 .EQ. 0) GO TO 24 ERF = 0.0D+0 IF (DABS(DSCE) .GT. DSM) 1 ERF = 100.D0*DZ(IX2+M)/DABS(1.D0-DZ(IX1+M)*LAMBDA) DZ(IX2+M) = DSCE GO TO 23 22 SCE = 1.0/Z(IX1+M) - LAMBDA IF (L16 .EQ. 0) GO TO 24 ERF = 0.0D+0 IF (ABS(SCE) .GT. SM) 1 ERF = 100.0D+0*Z(IX2+M)/DABS(1.0D+0-Z(IX1+M)*LAMBDA) Z(IX2+M) = SCE 23 IF (ERF .GT. CRITF) MFLG = 2 24 IF (MFLG .EQ. 2) GO TO 25 MRED = MRED + 1 CALL WRITE (IFLRVA,DSCE,IPREC,1) 25 IF (L16 .EQ. 0) GO TO 30 CALL PAGE2 (1) IF (IPRC .EQ. 2) WRITE (IO,26) M,DSCE,ERF,ICR(MFLG) IF (IPRC .EQ. 1) WRITE (IO,26) M, SCE,ERF,ICR(MFLG) 26 FORMAT (10X,'PHYSICAL EIGENVALUE',I5,1P,E16.8, 1 ' THEOR ERROR ',E16.8,' PERCENT',5X,A4) 30 CONTINUE CALL CLOSE (IFLRVA,EOFNRW) IF (MORD .EQ. 0) RETURN C CALL GOPEN (ISRV,Z(IBUF1),RDREW) CALL GOPEN (SR4FLE,Z(IBUF2),RDREW) CALL GOPEN (IFLRVC,Z(IBUF3),WRT) CWKBNB NCL93007 11/94 INCORE = .FALSE. CALL SSWTCH ( 43, L43 ) IF ( L43 .NE. 0 ) GO TO 42 IVW = IX5 + NORD + 1 ICREQ = NORD*MORD*IPRC ICAVL = IBUF3 - IVW - 1 IF ( ICAVL .GT. ICREQ ) INCORE = .TRUE. IF ( .NOT. INCORE ) GO TO 42 NN = NORD DO 41 I = 1, MORD IVR = IVW + (I-1)*NORD IF ( IPRC .EQ. 1 ) CALL UNPACK ( *41, ISRV, Z(IVR+1) ) IF ( IPRC .EQ. 2 ) CALL UNPACK ( *41, ISRV, DZ(IVR+1) ) 41 CONTINUE 42 CONTINUE CWKBNE NCL93007 11/94 C C IF DIAG 26 IS OFF, LIMIT EIGENSOLUTIONS TO NUMBER REQUESTED C IF (MRED.GE.NEIG .AND. L26.NE.0) MRED = NEIG IF (IPRC .EQ. 1) GO TO 200 DO 100 M = 1,MRED DO 50 L = 1,NORD 50 DZ(IX5+L) = 0.0D+0 NN = MORD CALL UNPACK (*75,SR4FLE,DZ(IV3)) NN = NORD CWKBI NCL93007 11/94 IF ( INCORE ) GO TO 72 DO 70 I = 1,MORD CALL UNPACK (*100,ISRV,DZ(IV4)) DO 60 J = 1,NORD 60 DZ(IX5+J) = DZ(IX5+J) + DZ(IX4+J)*DZ(IX3+I) 70 CONTINUE CWKBNB NCL93007 11/94 GO TO 73 72 CONTINUE DO 61 I = 1, MORD IVR = IVW + (I-1)*NORD DO 61 J = 1, NORD 61 DZ(IX5+J) = DZ(IX5+J) + DZ(IVR+J)*DZ(IX3+I) 73 CONTINUE CWKBNE NCL93007 11/94 75 CONTINUE IF (IOPTF .EQ. 0) GO TO 90 DSCE = 1.0D+0/DSQRT(DABS(DZ(IX1+M))) DO 80 L = 1,NORD 80 DZ(IX5+L) = DSCE*DZ(IX5+L) 90 CONTINUE IIP = 1 NNP = NORD CALL PACK (DZ(IX5+1),IFLRVC,IFLVEC(1)) CWKBI NCL93007 11/94 IF ( INCORE ) GO TO 100 CALL REWIND (MCBRM) CALL SKPREC (MCBRM,1) 100 CONTINUE GO TO 400 200 DO 300 M = 1,MRED DO 250 L = 1,NORD 250 Z(IX5+L) = 0.0 NN = NORD CALL UNPACK (*275,SR4FLE,Z(IV3)) NN = NORD CWKBI NCL93007 11/94 IF ( INCORE ) GO TO 272 DO 270 I = 1,MORD CALL UNPACK (*300,ISRV,Z(IV4)) DO 260 J = 1,NORD 260 Z(IX5+J) = Z(IX5+J) + Z(IX4+J)*Z(IX3+I) 270 CONTINUE CWKBNB NCL93007 11/94 GO TO 273 272 CONTINUE DO 261 I = 1, MORD IVR = IVW + (I-1)*NORD DO 261 J = 1, NORD 261 Z(IX5+J) = Z(IX5+J) + Z(IVR+J)*Z(IX3+I) 273 CONTINUE CWKBNE NCL93007 11/94 275 CONTINUE IF (IOPTF .EQ. 0) GO TO 290 SCE = 1.0/SQRT(ABS(Z(IX1+M))) DO 280 L = 1,NORD 280 Z(IX5+L) = SCE*Z(IX5+L) 290 CONTINUE IIP = 1 NNP = NORD CALL PACK (Z(IX5+1),IFLRVC,IFLVEC(1)) CWKBI NCL93007 11/94 IF ( INCORE ) GO TO 300 CALL REWIND (MCBRM) CALL SKPREC (MCBRM,1) 300 CONTINUE C 400 CALL CLOSE (IFLRVC,EOFNRW) CALL CLOSE (ISRV,REW) CALL CLOSE (SR4FLE,REW) MORD = MRED GO TO 500 420 IER = 2 GO TO 440 430 IER = 3 440 CNDFLG = 4 CALL MESAGE (IER,SR5FLE,NAME) 500 IOPN = IBUF3 - IEND IF (L16 .EQ. 1) WRITE (IO,510) IOPN,NAME 510 FORMAT (' OPEN CORE NOT USED',I10,2X,2A4) RETURN END ================================================ FILE: mis/feerdd.f ================================================ SUBROUTINE FEERDD C******* C C SUBROUTINE TO INITIALIZE COMMON /FEERCX/ C C******* INTEGER JFRCX(28) INTEGER KFRCX( 4) INTEGER LFRCX( 4) C COMMON /FEERCX/ IFRCX(37) C DATA JFRCX / 1 101,6*0 ,102,6*0 ,201,6*0 ,202,6*0 / DATA KFRCX / 1 301 ,302 ,303 ,304 / DATA LFRCX / 1 305 ,306 ,307 ,308 / DATA MFRCX / 204 / C DO 10 I = 1,28 10 IFRCX(I) = JFRCX(I) DO 20 I = 1,4 IFRCX(I+28) = KFRCX(I) 20 IFRCX(I+32) = LFRCX(I) IFRCX(37) = MFRCX C RETURN END ================================================ FILE: mis/ferfbs.f ================================================ SUBROUTINE FERFBS(V1,V2,V3,VB) C C FERFBS is a modification of the old FRBK subroutine. It has been C modified to read matrix data from memory until that data is exhausted C and then to read the remaining data from the file. C REAL DCORE(1) REAL V1(1) ,V2(1) ,V3(1) ,VB(1) , 1 XL(1) ,XLJJ ,V3J ,V2J INTEGER IBLK(20) ,SMAPOS COMMON / ZZZZZZ / ICORE(1) COMMON / OPINV / MCBLT(7) ,MCBSMA(7) COMMON / SYSTEM / KSYSTM(65) COMMON / FEERIM / NIDSMA ,NIDLT ,NIDORV ,NLTLI 1, NSMALI ,IBFSMA ,IBFLT 2, IBFORV ,SMAPOS(7) ,LTPOS(7) EQUIVALENCE ( KSYSTM(02),NOUT) EQUIVALENCE ( DCORE(1) ,ICORE(1), XL ) C NROW = MCBLT(2) DO 10 I = 1,NROW 10 V2(I) = V1(I) ILROW = LTPOS( 1 ) ICROW = NROW IF ( ILROW .EQ. 0 .AND. NIDLT .NE. 0 ) GO TO 1000 C C BACKWARD SUBSTITUTION C C POSITION FILE TO LAST COLUMN C IF ( NIDLT .EQ. 0 ) GO TO 12 CALL DSSPOS ( MCBLT, LTPOS(5), LTPOS(6), LTPOS(7) ) GO TO 16 12 CALL REWIND ( MCBLT ) CALL SKPREC ( MCBLT, NROW+1 ) 16 CONTINUE IBLK( 1 ) = MCBLT( 1 ) J = NROW 15 IBLK(8) = -1 ICROW = J IF ( J .LE. ILROW ) GO TO 1000 20 CALL GETSTB(*50,IBLK(1)) NTMS = IBLK(6) JI = IBLK(5) IK = IBLK(4) IF( IK - NTMS + 1 .NE. J) GO TO 25 NTMS = NTMS - 1 XLJJ = XL(JI-NTMS) IF(NTMS .EQ. 0) GO TO 40 25 V2J = V2(J) DO 30 II= 1,NTMS V2J = V2J + XL(JI) * V2(IK) JI = JI - 1 IK = IK - 1 30 CONTINUE V2(J) = V2J 40 CALL ENDGTB(IBLK(1)) GO TO 20 50 V2(J) = V2(J) / XLJJ IF(J .EQ. 1) GO TO 2000 J = J -1 GO TO 15 C C CONTINUE BACKWARD SUBSTITUTION WITH DATA IN MEMORY C 1000 CONTINUE MEM = NLTLI NTMS = ICORE(MEM) MEM = MEM - NTMS - 3 J = ICROW 1015 ICOL = ICORE(MEM) IF ( ICOL .NE. J ) GO TO 1050 NTMS = ICORE(MEM+1) NTMSS = NTMS JI = MEM + 1 + NTMS IK = ICORE( MEM + 2 + NTMS ) + NTMS - 1 IF( IK-NTMS+1 .NE. J) GO TO 1025 NTMS = NTMS - 1 XLJJ = DCORE(JI-NTMS) IF(NTMS .EQ. 0) GO TO 1040 1025 V2J = V2(J) DO 1030 II= 1,NTMS V2J = V2J + DCORE(JI) * V2(IK) JI = JI - 1 IK = IK - 1 1030 CONTINUE V2(J) = V2J 1040 IF ( MEM .EQ. NIDLT ) GO TO 1050 NTMSNX = ICORE( MEM-1 ) MEM = MEM - NTMSNX - 4 GO TO 15 1050 V2(J) = V2(J) / XLJJ IF(J .EQ. 1) GO TO 2000 J = J -1 GO TO 1015 2000 CALL FERLTS(MCBSMA(1),V2(1),V3(1),VB(1)) C C BEGIN FORWARD SWEEP DIRECTLY ON V3 C ICROW = 1 IF ( NIDLT .EQ. 0 ) GO TO 3005 MEM = NIDLT DO 2120 J = 1, NROW ICROW = J IF ( J .GT. ILROW ) GO TO 3000 2080 ICOL = ICORE(MEM) IF( ICOL .NE. J ) GO TO 2120 JI = MEM + 2 NTMS = ICORE( MEM+1 ) NTMSS = NTMS IK = ICORE(MEM + 2 + NTMS) IF ( IK .NE. J ) GO TO 2085 NTMS = NTMS - 1 V3(J) = V3(J) / DCORE(JI) JI = JI + 1 IK = IK + 1 2085 IF(NTMS .EQ. 0) GO TO 2100 V3J = V3(J) DO 2090 II = 1,NTMS V3(IK)= V3(IK) + DCORE(JI) * V3J IK = IK + 1 JI = JI + 1 2090 CONTINUE 2100 MEM = MEM + NTMSS + 4 GO TO 2080 2120 CONTINUE GO TO 7000 3000 CONTINUE C C CONTINUE FORWARD SWEEP DIRECTLY ON V3 C C POSITION FILE TO CONTINUE READING COLUMN DATA NOT IN MEMORY C CALL DSSPOS ( MCBLT, LTPOS(2), LTPOS(3), LTPOS(4) ) GO TO 3008 3005 CALL REWIND ( MCBLT ) CALL SKPREC ( MCBLT, 1 ) 3008 CONTINUE DO 3120 J = ICROW, NROW IBLK( 8 ) = -1 3080 CALL GETSTR( *3120, IBLK ) IK = IBLK( 4 ) JI = IBLK( 5 ) NTMS = IBLK( 6 ) IF ( IK .NE. J) GO TO 3085 NTMS = NTMS - 1 V3(J) = V3(J) / XL(JI) JI = JI + 1 IK = IK + 1 3085 IF(NTMS .EQ. 0) GO TO 3100 V3J = V3(J) DO 3090 II = 1,NTMS V3(IK)= V3(IK) + XL(JI) * V3J IK = IK + 1 JI = JI + 1 3090 CONTINUE 3100 CALL ENDGET(IBLK(1)) GO TO 3080 3120 CONTINUE GO TO 7000 7000 CONTINUE RETURN END ================================================ FILE: mis/ferltd.f ================================================ SUBROUTINE FERLTD (IFILE,DZ,DY,ZM) C C FERLTD was originally subroutine FRMLTD. FERLTD allows for C reading the input matrix from core and after the core data is C exhausted, then reading the remaining data from the file. C See subroutine FERRDM for how data is stored within memory for the C matrix and for the contents of SMAPOS. C C FEER MATRIX TRANSPOSE MULTIPLY (DOUBLE PREC) C DOUBLE PRECISION DZ(1) ,DY(1) ,DSUM ,ZM(1) DOUBLE PRECISION DCORE(1) INTEGER IFILE(7) ,SMAPOS COMMON /UNPAKX/ ITYP ,IP ,NP ,INCR COMMON /ZZZZZZ/ ICORE(1) COMMON /FEERIM/ NIDSMA ,NIDLT ,NIDORV ,NLTLI 1, NSMALI ,IBFSMA ,IBFLT 2, IBFORV ,SMAPOS(7) ,LTPOS(7) EQUIVALENCE ( DCORE(1),ICORE(1) ) N = IFILE(2) ICCOL = 1 IF ( NIDSMA .EQ. 0 ) GO TO 1005 MEM = NIDSMA ILCOL = SMAPOS( 1 ) DO 20 I = 1,N ICCOL = I C CHECK TO SEE IF REMAINING DATA IS ON THE FILE AND NOT IN MEMORY IF ( ICCOL .GT. ILCOL ) GO TO 1000 DY(I) = 0.D0 DSUM = 0.D0 5 ICOL = ICORE(MEM) IF( ICOL .NE. I ) GO TO 20 NTMS = ICORE(MEM+1) IP = ICORE(MEM+2+2*NTMS) NP = IP+NTMS-1 INDX = MEM/2+1 II = 0 DO 10 J = IP,NP II = II +1 10 DSUM = DSUM + DCORE(INDX+II) * DZ(J) DY(I) = DSUM MEM = MEM+4+2*NTMS GO TO 5 20 CONTINUE GO TO 7000 1000 CONTINUE CALL DSSPOS ( IFILE, SMAPOS(2), SMAPOS(3), SMAPOS(4) ) GO TO 1008 1005 CALL REWIND ( IFILE ) CALL SKPREC ( IFILE, 1 ) 1008 CONTINUE INCR = 1 ITYP = IFILE(5) DO 1020 I = ICCOL, N DY(I) = 0.D0 IP = 0 CALL UNPACK(*1020,IFILE,ZM(1)) II = 0 DSUM = 0.D0 DO 1010 J = IP,NP II = II +1 1010 DSUM = DSUM + ZM(II) * DZ(J) DY(I) = DSUM 1020 CONTINUE 7000 CONTINUE RETURN END ================================================ FILE: mis/ferlts.f ================================================ SUBROUTINE FERLTS (IFILE,DZ,DY,ZM) C C FEER MATRIX TRANSPOSE MULTIPLY (SINGLE PRECISION) C SEE SUBROUTINE FERRDM FOR CONTENTS OF SMAPOS AND HOW THE MATRIX C DATA IS STORED IN MEMORY. C REAL DZ(1) ,DY(1) ,DSUM ,ZM(1) REAL DCORE(1) INTEGER IFILE(7) ,SMAPOS COMMON /FEERIM/ NIDSMA ,NIDLT ,NIDORV ,NLTLI 1, NSMALI ,IBFSMA ,IBFLT 2, IBFORV ,SMAPOS(7) ,LTPOS(7) COMMON /UNPAKX/ IPRC ,IP ,NP ,INCR COMMON /ZZZZZZ/ ICORE(1) EQUIVALENCE ( DCORE(1),ICORE(1) ) N = IFILE(2) ICCOL = 1 IF ( NIDSMA .EQ. 0 ) GO TO 1005 MEM = NIDSMA ILCOL = SMAPOS( 1 ) DO 20 I = 1,N ICCOL = I C CHECK TO SEE IF REMAINING DATA IS ON THE FILE AND NOT IN MEMORY IF ( ICCOL .GT. ILCOL ) GO TO 1000 DY(I) = 0. DSUM = 0. 5 ICOL = ICORE(MEM) IF( ICOL .NE. I ) GO TO 20 NTMS = ICORE(MEM+1) IP = ICORE(MEM+2+NTMS) NP = IP+NTMS-1 INDX = MEM+1 II = 0 DO 10 J = IP,NP II = II +1 10 DSUM = DSUM + DCORE(INDX+II) * DZ(J) DY(I) = DSUM MEM = MEM+4+NTMS GO TO 5 20 CONTINUE GO TO 7000 1000 CONTINUE CALL DSSPOS ( IFILE, SMAPOS(2), SMAPOS(3), SMAPOS(4) ) GO TO 1008 1005 CALL REWIND ( IFILE ) CALL SKPREC ( IFILE, 1 ) 1008 CONTINUE INCR = 1 IPRC = IFILE(5) DO 1020 I = ICCOL, N DY(I) = 0. IP = 0 CALL UNPACK(*1020,IFILE,ZM(1)) II = 0 DSUM = 0.0 DO 1010 J = IP,NP II = II +1 1010 DSUM = DSUM + ZM(II) * DZ(J) DY(I) = DSUM 1020 CONTINUE 7000 CONTINUE RETURN END ================================================ FILE: mis/ferrdm.f ================================================ SUBROUTINE FERRDM ( MCB,NIDX,MEMTOT,IBUFFI,LASIND,IPOS ) C C FERRDM - This routine will store an entire matrix in memory C if sufficient memory exists. The matrix C is stored in memory according to the following scheme: C C 1st word = current column number C 2nd word = number of terms in string (ntms) C 3rd word } C | } C | } = actual C | } matrix C | } string C | } data C | } C | } C 3+(ntms*prec) } (where prec=1 for s.p.; =2 for d.p. ) C 3+(ntms*prec)+1 = row position of first element in above string C 3+(ntms*prec)+2 = number of terms in ABOVE string (ntms) C C The above data repeats for all strings within a column and then C for all columns in the matrix. C C Argument list : C MCB - Matrix control block for input matrix C NIDX - Memory index for storing matrix data C MEMTOT - Total amount of memory available for this data C IBUFFI - Buffer allocation for input matrix C LASIND - Memory index of last string stored in memory C IPOS - 6 word array with the following information C (1) = last column read into memory C (2) = block number of following column not read into memory C (3) = current logical record pointer for following column C not read into memory C (4) = current buffer pointer for following record not read C into memory C (5) = last block number in file C (6) = current logical record pointer for last record in file C (7) = current buffer pointer for last record in file C DOUBLE PRECISION DCORE(1), DXL(1) REAL RCORE(1), RXL(1) INTEGER RD, RDREW, WRT, WRTREW, REW, IXL(1) INTEGER IPOS(7) DIMENSION IBLK(20),MCB(7) COMMON /SYSTEM/ KSYSTM(65) COMMON /ZZZZZZ/ ICORE(1) COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW EQUIVALENCE ( KSYSTM( 2), NOUT ) EQUIVALENCE ( KSYSTM(55), IPREC ) EQUIVALENCE ( ICORE,DCORE,RCORE,DXL,RXL,IXL ) MEM = NIDX NCOL = MCB( 2 ) NTWDS = 0 IPOS( 1 ) = NCOL DO 10 i = 1,20 10 IBLK(i) = 0 IBLK(1) = MCB( 1 ) IBLK(9) = 1 IBLK(10) = 1 CALL GOPEN ( MCB, ICORE( IBUFFI ), RDREW ) CALL REWIND ( MCB) CALL SKPREC ( MCB, 1 ) DO 1000 JCOL = 1,NCOL IBLK(8) = -1 LASIND = MEM - 1 CALL DSCPOS ( MCB, IBLOCK, ICLR, ICBP ) 100 CALL GETSTR(*1000,IBLK(1)) INDEX = IBLK( 5 ) NTMS = IBLK( 6 ) JROW = IBLK( 4 ) NTWDS = NTWDS + 4 + NTMS*IPREC IF ( NTWDS .GT. MEMTOT ) GO TO 2000 ICORE(MEM) = JCOL ICORE(MEM+1) = NTMS IF ( IPREC .EQ. 1 ) GO TO 160 MINDEX = MEM/2+1 DO 150 II = 1,NTMS DCORE(MINDEX+II) = DXL(INDEX+II-1) 150 CONTINUE GO TO 180 160 MINDEX = MEM + 1 DO 170 II = 1,NTMS RCORE(MINDEX+II) = RXL(INDEX+II-1) 170 CONTINUE 180 CONTINUE MEM = MEM + 2 + NTMS*IPREC ICORE(MEM ) = JROW ICORE(MEM+1) = NTMS MEM = MEM + 2 185 CALL ENDGET (IBLK( 1 ) ) GO TO 100 1000 CONTINUE LASIND = MEM - 1 GO TO 7000 2000 IPOS( 1 ) = JCOL - 1 IPOS( 2 ) = IBLOCK IPOS( 3 ) = ICLR IPOS( 4 ) = ICBP CALL SKPREC ( MCB, NCOL-JCOL+1 ) CALL DSCPOS ( MCB, IBLOCK, ICLR, ICBP ) IPOS( 5 ) = IBLOCK IPOS( 6 ) = ICLR IPOS( 7 ) = ICBP 7000 CONTINUE CALL CLOSE ( MCB , REW ) RETURN END ================================================ FILE: mis/ferswd.f ================================================ SUBROUTINE FERSWD(V1,V3,VB) C C The original to this subroutine was FRSW2. It has been modified C to read the matrix data from memory and after this data is exhausted C then to read the remaining data from the file. C DOUBLE PRECISION V1(1) ,V3(1) ,VB(1) 1, XL(1) ,XLJJ ,V3J 2, ZERO ,SUM ,DCORE(1) INTEGER IBLK(20) COMMON / ZZZZZZ / ICORE(1) COMMON /OPINV / MCBLT(7) ,MCBSMA(7) COMMON /SYSTEM/ KSYSTM(65) COMMON /FEERIM/ NIDSMA, NIDLT , NIDORV , NLTLI 1, NSMALI, IBFSMA , IBFLT 2, IBFORV, SMAPOS(7), LTPOS(7) EQUIVALENCE (KSYSTM(02),IO) EQUIVALENCE ( DCORE(1),ICORE(1), XL(1) ) DATA ZERO / 0.0D0 / C NROW = MCBLT(2) CALL FERLTD(MCBSMA(1),V1(1),V3(1),VB(1)) C FORWARD SWEEP DIRECTLY ON V3 ICROW = 1 IF ( NIDLT .EQ. 0 ) GO TO 1005 ILROW = LTPOS( 1 ) MEM = NIDLT DO 190 J = 1,NROW ICROW = J IF ( ICROW .GT. ILROW ) GO TO 1000 140 ICOL = ICORE(MEM) IF ( ICOL .NE. J ) GO TO 180 JI = MEM/2+2 NTMS = ICORE(MEM+1) NTMSS = NTMS IK = ICORE(MEM+2+2*NTMS) IF(IK .NE. J) GO TO 150 NTMS = NTMS - 1 XLJJ = DCORE(JI) JI = JI + 1 IK = IK + 1 150 IF(NTMS .EQ. 0) GO TO 170 V3J = V3(J) DO 160 II = 1,NTMS V3(IK)= V3(IK) + DCORE(JI) * V3J IK = IK + 1 JI = JI + 1 160 CONTINUE 170 MEM = MEM + NTMSS*2 + 4 GO TO 140 180 V3(J) = V3(J) / XLJJ 190 CONTINUE GO TO 3000 1000 CONTINUE C POSITION FILE TO APPROPRIATE COLUMN CALL DSSPOS ( MCBLT, LTPOS(2), LTPOS(3), LTPOS(4) ) GO TO 1008 1005 CONTINUE CALL REWIND ( MCBLT ) CALL SKPREC ( MCBLT, 1 ) 1008 CONTINUE IBLK( 1 ) = MCBLT( 1 ) C C CONTINUE WITH FORWARD SWEEP C DO 1090 J = ICROW, NROW IBLK( 8 ) = -1 1030 CALL GETSTR ( *1070, IBLK ) IK = IBLK( 4 ) JI = IBLK( 5 ) NTMS = IBLK( 6 ) IF ( IK .NE. J ) GO TO 1040 NTMS = NTMS - 1 XLJJ = XL( JI ) JI = JI + 1 IK = IK + 1 1040 IF ( NTMS .EQ. 0 ) GO TO 1060 V3J = V3( J ) IF ( V3J .EQ. ZERO ) GO TO 1060 DO 1050 II = 1, NTMS V3( IK ) = V3( IK ) + XL(JI)*V3J IK = IK + 1 JI = JI + 1 1050 CONTINUE 1060 CALL ENDGET ( IBLK ) GO TO 1030 1070 CONTINUE V3( J ) = V3( J ) / XLJJ 1090 CONTINUE 2000 CONTINUE C C BACKWARD SUBSTITUTION OMIT DIAGONAL C ICROW = NROW IF ( J .EQ. 1 ) RETURN IF ( ILROW .EQ. NROW .AND. NIDLT .NE. 0 ) GO TO 3000 J = NROW 2090 IBLK( 8 ) = -1 2100 CALL GETSTB ( *2130, IBLK ) IK = IBLK( 4 ) JI = IBLK( 5 ) NTMS = IBLK( 6 ) IF ( IK-NTMS+1 .EQ. J ) NTMS = NTMS - 1 IF ( NTMS .EQ. 0 ) GO TO 2120 SUM = ZERO DO 2110 II = 1, NTMS SUM = SUM + XL(JI) * V3(IK) JI = JI - 1 IK = IK - 1 2110 CONTINUE V3( J ) = V3( J ) + SUM 2120 CALL ENDGTB ( IBLK ) GO TO 2100 2130 IF ( J .EQ. 1 ) GO TO 7000 J = J - 1 IF ( J .LE. ILROW ) GO TO 3000 GO TO 2090 C CONTINUE BACKWARD SUBSTITUTION USING DATA FROM MEMORY 3000 CONTINUE MEM = MEM - NTMSS*2 - 4 3200 CONTINUE 3210 ICOL = ICORE(MEM) IF ( ICOL .NE. J ) GO TO 3240 NTMS = ICORE(MEM+1) NTMSS = NTMS JI = MEM/2+1+NTMS IK = ICORE(MEM+2+2*NTMS)+NTMS-1 IF( IK-NTMS+1 .EQ. J) NTMS = NTMS - 1 IF( NTMS .EQ. 0 ) GO TO 3230 V3J = V3( J ) DO 3220 II = 1,NTMS V3J = V3J + DCORE(JI) * V3(IK) JI = JI-1 IK = IK-1 3220 CONTINUE V3(J) = V3J 3230 IF ( MEM .EQ. NIDLT ) GO TO 3250 NTMSNX= ICORE(MEM-1) MEM = MEM - NTMSNX*2 - 4 GO TO 3210 3240 IF ( J .EQ. 1 ) GO TO 3250 J = J-1 GO TO 3200 3250 CONTINUE 7000 CONTINUE RETURN END ================================================ FILE: mis/fersws.f ================================================ SUBROUTINE FERSWS(V1,V3,VB) C C The original to this subroutine was FRSW. It has been modified C to read the matrix data from memory and after this data is exhausted C then to read the remaining data from the file. C REAL V1(1) ,V3(1) ,VB(1) , 1 XL(1) ,XLJJ ,V3J REAL ZERO ,SUM REAL DCORE(1) INTEGER IBLK(20) COMMON / ZZZZZZ / ICORE(1) COMMON /OPINV / MCBLT(7) ,MCBSMA(7) COMMON /SYSTEM/ KSYSTM(65) COMMON /FEERIM/ NIDSMA, NIDLT , NIDORV , NLTLI 1, NSMALI, IBFSMA , IBFLT 2, IBFORV, SMAPOS(7), LTPOS(7) EQUIVALENCE (KSYSTM(02),IO) EQUIVALENCE ( DCORE(1),ICORE(1), XL(1) ) DATA ZERO / 0.0 / C NROW = MCBLT(2) CALL FERLTS(MCBSMA(1),V1(1),V3(1),VB(1)) C FORWARD SWEEP DIRECTLY ON V3 ICROW = 1 IF ( NIDLT .EQ. 0 ) GO TO 1005 ILROW = LTPOS( 1 ) MEM = NIDLT DO 190 J = 1,NROW ICROW = J IF ( ICROW .GT. ILROW ) GO TO 1000 140 ICOL = ICORE(MEM) IF ( ICOL .NE. J ) GO TO 180 JI = MEM + 2 NTMS = ICORE(MEM+1) NTMSS = NTMS IK = ICORE(MEM + 2 + NTMS) IF(IK .NE. J) GO TO 150 NTMS = NTMS - 1 XLJJ = DCORE(JI) JI = JI + 1 IK = IK + 1 150 IF(NTMS .EQ. 0) GO TO 170 V3J = V3(J) DO 160 II = 1,NTMS V3(IK)= V3(IK) + DCORE(JI) * V3J IK = IK + 1 JI = JI + 1 160 CONTINUE 170 MEM = MEM + NTMSS + 4 GO TO 140 180 V3(J) = V3(J) / XLJJ 190 CONTINUE GO TO 2000 1000 CONTINUE C POSITION FILE TO APPROPRIATE COLUMN CALL DSSPOS ( MCBLT, LTPOS(2), LTPOS(3), LTPOS(4) ) GO TO 1008 1005 CONTINUE CALL REWIND ( MCBLT ) CALL SKPREC ( MCBLT, 1 ) 1008 CONTINUE IBLK( 1 ) = MCBLT( 1 ) C C CONTINUE WITH FORWARD SWEEP C DO 1090 J = ICROW, NROW IBLK( 8 ) = -1 1030 CALL GETSTR ( *1070, IBLK ) IK = IBLK( 4 ) JI = IBLK( 5 ) NTMS = IBLK( 6 ) IF ( IK .NE. J ) GO TO 1040 NTMS = NTMS - 1 XLJJ = XL( JI ) JI = JI + 1 IK = IK + 1 1040 IF ( NTMS .EQ. 0 ) GO TO 1060 V3J = V3( J ) IF ( V3J .EQ. ZERO ) GO TO 1060 DO 1050 II = 1, NTMS V3( IK ) = V3( IK ) + XL(JI)*V3J IK = IK + 1 JI = JI + 1 1050 CONTINUE 1060 CALL ENDGET ( IBLK ) GO TO 1030 1070 CONTINUE V3( J ) = V3( J ) / XLJJ 1090 CONTINUE 2000 CONTINUE C C BACKWARD SUBSTITUTION OMIT DIAGONAL C ICROW = NROW IF ( J .EQ. 1 ) RETURN IF ( ILROW .EQ. NROW .AND. NIDLT .NE. 0 ) GO TO 3000 J = NROW 2090 IBLK( 8 ) = -1 2100 CALL GETSTB ( *2130, IBLK ) IK = IBLK( 4 ) JI = IBLK( 5 ) NTMS = IBLK( 6 ) IF ( IK-NTMS+1 .EQ. J ) NTMS = NTMS - 1 IF ( NTMS .EQ. 0 ) GO TO 2120 SU = ZERO DO 2110 II = 1, NTMS SUM = SUM + XL(JI) * V3(IK) JI = JI - 1 IK = IK - 1 2110 CONTINUE V3( J ) = V3( J ) + SUM 2120 CALL ENDGTB ( IBLK ) GO TO 2100 2130 IF ( J .EQ. 1 ) GO TO 7000 J = J - 1 IF ( J .LE. ILROW ) GO TO 3000 GO TO 2090 C CONTINUE BACKWARD SUBSTITUTION USING DATA FROM MEMORY 3000 CONTINUE MEM = MEM - NTMSS - 4 3200 CONTINUE 3210 ICOL = ICORE(MEM) IF ( ICOL .NE. J ) GO TO 3240 NTMS = ICORE(MEM+1) NTMSS = NTMS JI = MEM + 1 + NTMS IK = ICORE( MEM + 2 + NTMS ) + NTMS - 1 IF( IK-NTMS+1 .EQ. J) NTMS = NTMS - 1 IF( NTMS .EQ. 0 ) GO TO 3230 V3J = V3( J ) DO 3220 II = 1,NTMS V3J = V3J + DCORE(JI) * V3(IK) JI = JI-1 IK = IK-1 3220 CONTINUE V3(J) = V3J 3230 IF ( MEM .EQ. NIDLT ) GO TO 3250 NTMSNX= ICORE(MEM-1) MEM = MEM - NTMSNX - 4 GO TO 3210 3240 IF ( J .EQ. 1 ) GO TO 3250 J = J-1 GO TO 3200 3250 CONTINUE 7000 CONTINUE RETURN END ================================================ FILE: mis/ferxtd.f ================================================ SUBROUTINE FERXTD (V1,V2,V3,V4,V5,ZB,IFN) C C FERXTD is a modification of the old subroutine FNXTVC. The C modification allows for reading the orthogonal vectors and the C SMA and LT matrices from memory instead of from files. The C SMA and LT matrices may be partially in memory and part read C from the file. C FERXTD OBTAINS THE REDUCED TRIDIAGONAL MATRIX B WHERE FERFBD C PERFORMS THE OPERATIONAL INVERSE. (DOUBLE PREC VERSION) C C T - C B = V * A * V C C V1 = SPACE FOR THE PREVIOUS CURRENT TRIAL VECTOR. INITALLY NULL C V2 = SPACE FOR THE CURRENT TRIAL VECTOR. INITIALLY A PSEUDO- C RANDOM START VECTOR C V3,V4,V5 = WORKING SPACES FOR THREE VECTORS C IFN = NO. OF TRIAL VECOTRS EXTRACTED. INITIALLY ZERO. C SEE FEER FOR DEFINITIONS OF OTHER PARAMETERS. ALSO PROGRAMMER'S C MANUAL PP. 4.48-19G THRU I C C REAL*16, MARKED BY 'CQ', WAS TRIED FOR IMPROVED ACCURACY. BUT THE C REAL*16 OPERATIONS ON VAX WERE 10 TIMES SLOWER THAN REAL*8 C (NUMERIC ACCURACY IS VERY IMPORTANT IN THIS SUBROUTINE) C INTEGER SYSBUF ,CNDFLG ,SR5FLE ,NAME(5) , 1 VCDOT ,SMAPOS ,EOFNRW DOUBLE PRECISION V1(1) ,V2(1) ,V3(1) ,V4(1) , 1 V5(1) ,LMBDA ,LAMBDA ,B(2) , 2 ZERO ,ZB(1) CQ REAL*16 D ,DB ,DSQ ,SD , DOUBLE PRECISION ZD DOUBLE PRECISION D ,DB ,DSQ ,SD , 1 AII ,DBI ,DEPX ,DEPX2 , 2 SDMAX ,DTMP ,OPDEPX ,OMDEPX CHARACTER UFM*23 ,UWM*25 COMMON /ZZZZZZ/ ZD(1) COMMON /FEERIM/ NIDSMA ,NIDLT ,NIDORV ,NLTLI 1, NSMALI ,IBFSMA ,IBFLT 2, IBFORV ,SMAPOS(7),LTPOS(7) COMMON /XMSSG / UFM ,UWM COMMON /FEERCX/ IFKAA(7) ,IFMAA(7) ,IFLELM(7),IFLVEC(7), 1 SR1FLE ,SR2FLE ,SR3FLE ,SR4FLE , 2 SR5FLE ,SR6FLE ,SR7FLE ,SR8FLE , 3 DMPFLE ,NORD ,XLMBDA ,NEIG , 4 MORD ,IBK ,CRITF ,NORTHO , 5 IFLRVA ,IFLRVC COMMON /FEERXX/ LAMBDA ,CNDFLG ,ITER ,TIMED , 1 L16 ,IOPTF ,EPX ,ERRC , 2 IND ,LMBDA ,IFSET ,NZERO , 3 NONUL ,IDIAG ,MRANK ,ISTART COMMON /SYSTEM/ KSYSTM(65) COMMON /OPINV / MCBLT(7) ,MCBSMA(7),MCBVEC(7),MCBRM(7) COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP , 1 INCRP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW EQUIVALENCE (KSYSTM(1),SYSBUF) ,(KSYSTM(2),IO) DATA NAME / 4HFERX ,4HTD ,2*4HBEGN ,4HEND / DATA VCDOT , ZERO / 4HVC. ,0.0D+0 / C C SR5FLE CONTAINS THE REDUCED TRIDIAGONAL ELEMENTS C C SR6FLE CONTAINS THE G VECTORS C SR7FLE CONTAINS THE ORTHOGONAL VECTORS C SR8FLE CONTAINS THE CONDITIONED MAA MATRIX C IF (MCBLT(7) .LT. 0) NAME(2) = VCDOT NAME(3) = NAME(4) CALL CONMSG (NAME,3,0) ITER = ITER + 1 IPRC = 2 INCR = 1 INCRP = INCR ITP1 = IPRC ITP2 = IPRC IFG = MCBRM(1) IFV = MCBVEC(1) DEPX = EPX DEPX2 = DEPX**2 OPDEPX= 1.0D+0 + DEPX OMDEPX= 1.0D+0 - DEPX CQ OPDEPX= 1.0Q+0 + DEPX CQ OMDEPX= 1.0Q+0 - DEPX D = ZERO NORD1 = NORD - 1 C C NORMALIZE START VECTOR C DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 20 CALL FERLTD (MCBSMA(1),V2(1),V3(1),V5(1)) DO 10 I = 1,NORD 10 DSQ = DSQ + V2(I)*V3(I) GO TO 40 20 DO 30 I = 1,NORD 30 DSQ = DSQ + V2(I)*V2(I) 40 DSQ = 1.0D+0/DSQRT(DSQ) CQ 40 DSQ = 1.0D+0/QSQRT(DSQ) DO 50 I = 1,NORD 50 V2(I) = V2(I)*DSQ IF (NORTHO .EQ. 0) GO TO 200 C C ORTHOGONALIZE WITH PREVIOUS VECTORS C DO 60 I = 1,NORD 60 V3(I) = V2(I) C C READ ORTHOGONAL VECTORS INTO MEMORY IF SPACE EXISTS C IF ( NIDORV .EQ. 0 ) GO TO 70 IF ( NORTHO .EQ. 0 ) GO TO 70 CALL GOPEN ( IFV, ZB(1), RDREW ) II = 1 NN = NORD NIDX = NIDORV/2 + 1 DO 65 IC = 1, NORTHO ILOC = ( IC-1 ) * NORD + NIDX CALL UNPACK ( *65, IFV, ZD( ILOC ) ) 65 CONTINUE CALL CLOSE ( IFV, EOFNRW ) C C BEGINNING OF ITERATION LOOP C 70 DO 170 IX = 1,14 NONUL = NONUL + 1 IF (IOPTF .EQ. 0) & CALL FERLTD (MCBSMA(1),V2(1),V3(1),V5(1)) IF ( NIDORV .NE. 0 ) GO TO 1000 C C READ ORTHOGONAL VECTORS FROM FILE C CALL GOPEN (IFV,ZB(1),RDREW) SDMAX = ZERO DO 110 IY = 1,NORTHO II = 1 NN = NORD SD = ZERO CALL UNPACK (*90,IFV,V5(1)) DO 80 I = 1,NORD SD = SD + V3(I)*V5(I) 80 CONTINUE 90 IF (DABS(SD) .GT. SDMAX) SDMAX = DABS(SD) CQ 90 IF (QABS(SD) .GT. SDMAX) SDMAX = QABS(SD) DO 100 I = 1,NORD 100 V2(I) = V2(I) - SD*V5(I) 110 CONTINUE CALL CLOSE (IFV,EOFNRW) GO TO 2000 C C ORTHOGONAL VECTORS ARE IN MEMORY C 1000 CONTINUE SDMAX = ZERO NIDX = NIDORV/2 + 1 DO 1110 IY = 1, NORTHO SD = ZERO ILOC = (IY-1)*NORD + NIDX - 1 DO 1080 I = 1, NORD SD = SD + V3(I)*ZD(ILOC+I) 1080 CONTINUE IF ( DABS( SD ) .GT. SDMAX ) SDMAX = DABS( SD ) DO 1100 I = 1, NORD V2(I) = V2(I) - SD*ZD(ILOC+I) 1100 CONTINUE 1110 CONTINUE 2000 CONTINUE DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 130 CALL FERLTD (MCBSMA(1),V2(1),V3(1),V5(1)) DO 120 I = 1,NORD1 120 DSQ = DSQ + V2(I)*V3(I) GO TO 150 130 DO 140 I = 1,NORD1 140 DSQ = DSQ + V2(I)*V2(I) C C 150 IF (DSQ .LT. DEPX2) GO TO 500 C C COMMENTS FORM G.CHAN/UNISYS ABOUT DSQ AND DEPX2 ABOVE, 1/92 C C DEPX2 IS SQUARE OF EPX. ORIGINALLY SINCE DAY 1, EPX (FOR VAX AND C IBM) IS 10.**-14 AND THEREFORE DEPX2 = 10.**-28. (10.**-24 FOR C THE 60/64 BIT MACHINES, USING S.P. COMPUTATION) C (EPX WAS SET TO 10.**-10 FOR ALL MACHINES, S.P. AND D.P., 1/92) C C NOTICE THAT DSQ IS THE DIFFERENCE OF TWO CLOSE NUMERIC NUMBERS. C THE FINAL VAULES OF DSQ AND THE PRODUCT OF V2*V2 OR V2*V3 APPROACH C ONE ANOTHER, AND DEFFER ONLY IN SIGN. THEREFORE, THE NUMBER OF C DIGITS (MANTISSA) AS WELL AS THE EXPONENT ARE IMPORTANT HERE C (PREVIOUSLY, DO LOOPS 120 AND 140 COVERED 1 THRU NORD) C C MOST OF THE 32 BIT MACHINES HOLD 15 DIGIT IN D.P. WORD, AND SAME C FOR THE 64 BIT MACHINES USING S.P. WORD. THEREFORE, CHECKING DSQ C DOWN TO 10.**-28 (OR 10.**-24) IS BEYOND THE HARDWARE LIMITS. C THIS MAY EXPLAIN SOME TIMES THE RIGID BODY MODES (FREQUENCY = 0.0) C GO TO NEGATIVE; IN SOME INSTANCES REACHING -1.E+5 RANGE C C NEXT 7 LINES TRY TO SOLVE THE ABOVE DILEMMA C 150 D = V3(NORD) IF (IOPTF .EQ. 1) D = V2(NORD) D = V2(NORD)*D DTMP = DSQ DSQ = DSQ + D IF (DSQ .LT. DEPX2) GO TO 500 DTMP = DABS(D/DTMP) CQ DTMP = QABS(D/DTMP) IF (DTMP.GT.OMDEPX .AND. DTMP.LT.OPDEPX) GO TO 500 D = ZERO C DSQ = DSQRT(DSQ) CQ DSQ = QSQRT(DSQ) IF (L16 .NE. 0) WRITE (IO,620) IX,SDMAX,DSQ DSQ = 1.0D+0/DSQ DO 160 I = 1,NORD V2(I) = V2(I)*DSQ 160 V3(I) = V2(I) IF (SDMAX .LT. DEPX) GO TO 200 170 CONTINUE C GO TO 500 200 IF (IFN .NE. 0) GO TO 300 C C SWEEP START VECTOR FOR ZERO ROOTS C DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 220 CALL FERSWD (V2(1),V3(1),V5(1)) CALL FERLTD (MCBSMA(1),V3(1),V4(1),V5(1)) DO 210 I = 1,NORD 210 DSQ = DSQ + V3(I)*V4(I) GO TO 240 220 CONTINUE CALL FERFBD (V2(1),V4(1),V3(1),V5(1)) DO 230 I = 1,NORD 230 DSQ = DSQ + V3(I)*V3(I) 240 DSQ = 1.0D+0/DSQRT(DSQ) CQ240 DSQ = 1.0D+0/QSQRT(DSQ) DO 250 I = 1,NORD 250 V2(I) = V3(I)*DSQ GO TO 320 C C CALCULATE OFF DIAGONAL TERM OF B C 300 D = ZERO DO 310 I = 1,NORD 310 D = D + V2(I)*V4(I) C C COMMENTS FROM G.CHAN/UNISYS 1/92 C WHAT HAPPENS IF D IS NEGATIVE HERE? NEXT LINE WOULD BE ALWAY TRUE. C IF (D .LT. DEPX*DABS(AII)) GO TO 500 CQ IF (D .LT. DEPX*QABS(AII)) GO TO 500 320 CALL GOPEN (IFG,ZB(1),WRT) IIP = 1 NNP = NORD IF (IOPTF .EQ. 1) GO TO 330 CALL FERSWD (V2(1),V3(1),V5(1)) CALL FERLTD (MCBSMA(1),V3(1),V4(1),V5(1)) CALL PACK (V2(1),IFG,MCBRM(1)) GO TO 350 330 CONTINUE CALL FERFBD (V2(1),V4(1),V3(1),V5(1)) CALL PACK (V4(1),IFG,MCBRM(1)) DO 340 I = 1,NORD 340 V4(I) = V3(I) 350 CALL CLOSE (IFG,NOREW) C C CALCULATE DIAGONAL TERM OF B C AII = ZERO DO 400 I = 1,NORD 400 AII = AII + V2(I)*V4(I) IF (D .EQ. ZERO) GO TO 420 DO 410 I = 1,NORD 410 V3(I) = V3(I) - AII*V2(I) - D*V1(I) GO TO 440 420 DO 430 I = 1,NORD 430 V3(I) = V3(I) - AII*V2(I) 440 DB = ZERO IF (IOPTF .EQ. 1) GO TO 460 CALL FERLTD (MCBSMA(1),V3(1),V4(1),V5(1)) DO 450 I = 1,NORD 450 DB = DB + V3(I)*V4(I) GO TO 480 460 DO 470 I = 1,NORD 470 DB = DB + V3(I)*V3(I) 480 DB = DSQRT(DB) CQ480 DB = QSQRT(DB) ERRC = SNGL(DB) B(1) = AII B(2) = D CALL WRITE (SR5FLE,B(1),4,1) IF ( NIDORV .NE. 0 ) GO TO 3000 CALL GOPEN (IFV,ZB(1),WRT) IIP = 1 NNP = NORD CALL PACK (V2(1),IFV,MCBVEC(1)) CALL CLOSE (IFV,NOREW) GO TO 4000 3000 CONTINUE NIDX = NIDORV/2 + 1 ILOC = NORTHO * NORD + NIDX DO 3100 I = IIP, NNP ZD( ILOC+I-1 ) = V2( I ) 3100 CONTINUE 4000 CONTINUE NORTHO = NORTHO + 1 IFN = NORTHO - NZERO IF (L16 .NE. 0) WRITE (IO,610) IFN,MORD,AII,DB,D IF ( IFN .LT. MORD ) GO TO 6000 C C NEED TO SAVE ORTHOGONAL VECTORS BACK TO FILE C CALL GOPEN ( IFV, ZB(1), WRT ) IIP = 1 NNP = NORD NIDX = NIDORV/2 + 1 DO 5000 I = 1, NORTHO ILOC = (I-1)*NORD + NIDX CALL PACK ( ZD( ILOC ), IFV, MCBVEC(1) ) 5000 CONTINUE CALL CLOSE ( IFV, NOREW ) 6000 CONTINUE IF (IFN .GE. MORD) GO TO 630 C C IF NULL VECTOR GENERATED, RETURN TO OBTAIN A NEW SEED VECTOR C IF (DB .LT. DEPX*DABS(AII)) GO TO 630 C C A GOOD VECTOR IN V2. MOVE IT INTO 'PREVIOUS' VECTOR SPACE V1, C NORMALIZE V3 AND V2. LOOP BACK FOR MORE VECTORS. C DBI = 1.0D+0/DB DO 490 I = 1,NORD V1(I) = V2(I) V3(I) = V3(I)*DBI 490 V2(I) = V3(I) GO TO 70 C 500 MORD = IFN WRITE (IO,600) UWM,MORD GO TO 630 C 600 FORMAT (A25,' 2387, PROBLEM SIZE REDUCED TO',I5,' DUE TO -', /5X, 1 'ORTHOGONALITY DRIFT OR NULL TRIAL VECTOR', /5X, 2 'ALL EXISTING MODES MAY HAVE BEEN OBTAINED. USE DIAG 16', 3 ' TO DETERMINE ERROR BOUNDS',/) 610 FORMAT (5X,'TRIDIAGONAL ELEMENTS ROW (IFN)',I5, /5X,'MORD =',I5, 1 ', AII,DB,D = ',1P,3D16.8) 620 FORMAT (11X,'ORTH ITER (IX)',I5,', MAX PROJ (SDMAX)',1P,D16.8, 1 ', NORMAL FACT (DSQ)',1P,D16.8) C 630 NAME(3) = NAME(5) CALL CONMSG (NAME,3,0) RETURN END ================================================ FILE: mis/ferxts.f ================================================ SUBROUTINE FERXTS (V1,V2,V3,V4,V5,ZB,IFN) C C FERXTS is a modification of the old subroutine FNXTV. The C modification allows for reading the orthogonal vectors and the C SMA and LT matrices from memory instead of from files. The C SMA and LT matrices may be partially in memory and part read C from the file. C FERXTS OBTAINS THE REDUCED TRIDIAGONAL MATRIX B WHERE FERFBD C PERFORMS THE OPERATIONAL INVERSE. (SINGLE PREC VERSION) C T - C B = V * A * V C C V1 = SPACE FOR THE PREVIOUS CURRENT TRIAL VECTOR. INITALLY NULL C V2 = SPACE FOR THE CURRENT TRIAL VECTOR. INITIALLY A PSEUDO- C RANDOM START VECTOR C V3,V4,V5 = WORKING SPACES FOR THREE VECTORS C IFN = NO. OF TRIAL VECOTRS EXTRACTED. INITIALLY ZERO. C SEE FEER FOR DEFINITIONS OF OTHER PARAMETERS. ALSO PROGRAMMER'S C MANUAL PP. 4.48-19G THRU I C C NUMERIC ACCURACY IS VERY IMPORTANT IN THIS SUBROUTINE. SEVERAL C KEY AREAS ARE REINFORCED BY DOUBLE PRECISION CALCULATIONS C C IN THIS SINGLE PRECISION VERSION, WE AVOID MATHEMATIC OPERATION C IN A DO LOOP, INVOLVING MIXED MODE COMPUTATION AND THE RESULT C STORED IN S.P. WORD. SOME MACHINES, SUCH AS VAX, ARE VERY SLOW IN C THIS SITUATION. MIXED MODE COMPUTATION AND RESULT IN D.P. IS OK. C INTEGER SYSBUF ,CNDFLG ,SR5FLE ,NAME(5) , 1 VDOT ,EOFNRW DOUBLE PRECISION LMBDA ,LAMBDA DOUBLE PRECISION DBI ,SDMAX ,D ,DB , 1 DSQ ,SD ,AII ,DTMP , 2 DEPX ,DEPX2 ,OPDEPX ,OMDEPX , 3 ZERO DIMENSION V1(1) ,V2(1) ,V3(1) ,V4(1) , 1 V5(1) ,ZB(1) ,B(2) CHARACTER UFM*23 ,UWM*25 COMMON /FEERIM/ NIDSMA ,NIDLT ,NIDORV ,NLTLI 1, NSMALI ,IBFSMA ,IBFLT 2, IBFORV ,SMAPOS(7),LTPOS(7) COMMON /ZZZZZZ/ ZD(2) COMMON /XMSSG / UFM ,UWM COMMON /FEERCX/ IFKAA(7) ,IFMAA(7) ,IFLELM(7),IFLVEC(7), 1 SR1FLE ,SR2FLE ,SR3FLE ,SR4FLE , 2 SR5FLE ,SR6FLE ,SR7FLE ,SR8FLE , 3 DMPFLE ,NORD ,XLMBDA ,NEIG , 4 MORD ,IBK ,CRITF ,NORTHO , 5 IFLRVA ,IFLRVC COMMON /FEERXX/ LAMBDA ,CNDFLG ,ITER ,TIMED , 1 L16 ,IOPTF ,EPX ,ERRC , 2 IND ,LMBDA ,IFSET ,NZERO , 3 NONUL ,IDIAG ,MRANK ,ISTART COMMON /SYSTEM/ KSYSTM(65) COMMON /OPINV / MCBLT(7) ,MCBSMA(7),MCBVEC(7),MCBRM(7) COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP , 1 INCRP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW EQUIVALENCE (KSYSTM(1),SYSBUF) ,(KSYSTM(2),IO) DATA NAME / 4HFERX ,4HTS ,2*4HBEGN ,4HEND / DATA VDOT , ZERO / 4HV. ,0.0D+0 / C C SR5FLE CONTAINS THE REDUCED TRIDIAGONAL ELEMENTS C C SR6FLE CONTAINS THE G VECTORS C SR7FLE CONTAINS THE ORTHOGONAL VECTORS C SR8FLE CONTAINS THE CONDITIONED MAA MATRIX C IF (MCBLT(7) .LT. 0) NAME(2) = VDOT NAME(3) = NAME(4) CALL CONMSG (NAME,3,0) ITER = ITER + 1 IPRC = 1 INCR = 1 INCRP = INCR ITP1 = IPRC ITP2 = IPRC IFG = MCBRM(1) IFV = MCBVEC(1) DEPX = EPX DEPX2 = DEPX**2 OPDEPX= 1.0D0 + DEPX OMDEPX= 1.0D0 - DEPX D = ZERO NORD1 = NORD - 1 C C NORMALIZE START VECTOR C DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 20 CALL FERLTS (MCBSMA(1),V2(1),V3(1),V5(1)) DO 10 I = 1,NORD 10 DSQ = DSQ + DBLE(V2(I)*V3(I)) GO TO 40 20 DO 30 I = 1,NORD 30 DSQ = DSQ + DBLE(V2(I)*V2(I)) 40 DSQ = 1.0D+0/DSQRT(DSQ) TMP = SNGL(DSQ) DO 50 I = 1,NORD 50 V2(I) = V2(I)*TMP IF (NORTHO .EQ. 0) GO TO 200 C C ORTHOGONALIZE WITH PREVIOUS VECTORS C DO 60 I = 1,NORD 60 V3(I) = V2(I) C C READ ORTHOGONAL VECTORS INTO MEMORY IF SPACE EXISTS C IF ( NIDORV .EQ. 0 ) GO TO 70 IF ( NORTHO .EQ. 0 ) GO TO 70 CALL GOPEN ( IFV, ZB(1), RDREW ) II = 1 NN = NORD NIDX = NIDORV DO 65 IC = 1, NORTHO ILOC = ( IC-1 ) * NORD + NIDX CALL UNPACK ( *65, IFV, ZD( ILOC ) ) 65 CONTINUE CALL CLOSE ( IFV, EOFNRW ) C C BEGINNING OF ITERATION LOOP C 70 DO 170 IX = 1,14 NONUL = NONUL + 1 IF (IOPTF .EQ. 0) & CALL FERLTS (MCBSMA(1),V2(1),V3(1),V5(1)) IF ( NIDORV .NE. 0 ) GO TO 1000 C C READ ORTHOGONAL VECTORS FROM FILE C CALL GOPEN (IFV,ZB(1),RDREW) SDMAX = ZERO DO 110 IY = 1,NORTHO II = 1 NN = NORD SD = ZERO CALL UNPACK (*90,IFV,V5(1)) DO 80 I = 1,NORD SD = SD + V3(I)*V5(I) 80 CONTINUE 90 IF (DABS(SD) .GT. SDMAX) SDMAX = DABS(SD) CQ 90 IF (QABS(SD) .GT. SDMAX) SDMAX = QABS(SD) DO 100 I = 1,NORD 100 V2(I) = V2(I) - SD*V5(I) 110 CONTINUE CALL CLOSE (IFV,EOFNRW) GO TO 2000 C C ORTHOGONAL VECTORS ARE IN MEMORY C 1000 CONTINUE SDMAX = ZERO NIDX = NIDORV DO 1110 IY = 1, NORTHO SD = ZERO ILOC = (IY-1)*NORD + NIDX - 1 DO 1080 I = 1, NORD SD = SD + V3(I)*ZD(ILOC+I) 1080 CONTINUE IF ( DABS( SD ) .GT. SDMAX ) SDMAX = DABS( SD ) DO 1100 I = 1, NORD V2(I) = V2(I) - SD*ZD(ILOC+I ) 1100 CONTINUE 1110 CONTINUE 2000 CONTINUE DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 130 CALL FERLTS (MCBSMA(1),V2(1),V3(1),V5(1)) DO 120 I = 1,NORD1 120 DSQ = DSQ + DBLE(V2(I)*V3(I)) GO TO 150 130 DO 140 I = 1,NORD1 140 DSQ = DSQ + DBLE(V2(I)*V2(I)) C C 150 IF (DSQ .LT. DEPX2) GO TO 500 C C COMMENTS FORM G.CHAN/UNISYS ABOUT DSQ AND DEPX2 ABOVE, 1/92 C C DEPX2 IS SQUARE OF EPX. ORIGINALLY SINCE DAY 1, EPX (FOR VAX AND C IBM) IS 10.**-14 AND THEREFORE DEPX2 = 10.**-28. (10.**-24 FOR C THE 60/64 BIT MACHINES, USING S.P. COMPUTATION) C (EPX WAS CHAGNED TO 10.**-10, ALL MACHINE, S.P. AND D.P., 1/92) C C NOTICE THAT DSQ IS THE DIFFERENCE OF TWO CLOSE NUMERIC NUMBERS. C THE FINAL VAULES OF DSQ AND THE PRODUCT OF V2*V2 OR V2*V3 APPROACH C ONE ANOTHER, AND DEFFER ONLY IN SIGN. THEREFORE, THE NUMBER OF C DIGITS (MANTISSA) AS WELL AS THE EXPONENT ARE IMPORTANT HERE. C (PREVIOUSLY, DO LOOPS 120 AND 140 GO FROM 1 THRU NORD) C C MOST OF THE 32 BIT MACHINES HOLD 15 DIGIT IN D.P. WORD, AND SAME C FOR THE 64 BIT MACHINES USING S.P. WORD. THEREFORE, CHECKING DSQ C DOWN TO 10.**-28 (OR 10.**-24) IS BEYOND THE HARDWARE LIMITS. C THIS MAY EXPLAIN SOME TIMES THE RIGID BODY MODES (FREQUENCY = 0.0) C GO TO NEGATIVE; IN SOME INSTANCES REACHING -1.E+5 RANGE C C NEXT 7 LINES TRY TO SOLVE THE ABOVE DILEMMA. C 150 D = DBLE(V3(NORD)) IF (IOPTF .EQ. 1) D = DBLE(V2(NORD)) D = DBLE(V2(NORD))*D DTMP = DSQ DSQ = DSQ + D IF (DSQ .LT. DEPX2) GO TO 500 DTMP = DABS(D/DTMP) IF (DTMP.GT.OMDEPX .AND. DTMP.LT.OPDEPX) GO TO 500 D = ZERO C DSQ = DSQRT(DSQ) IF (L16 .NE. 0) WRITE (IO,620) IX,SDMAX,DSQ DSQ = 1.0D+0/DSQ TMP = SNGL(DSQ) DO 160 I = 1,NORD V2(I) = V2(I)*TMP 160 V3(I) = V2(I) IF (SDMAX .LT. DEPX) GO TO 200 170 CONTINUE GO TO 500 C 200 IF (IFN .NE. 0) GO TO 300 C C SWEEP START VECTOR FOR ZERO ROOTS C DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 220 CALL FERSWS (V2(1),V3(1),V5(1)) CALL FERLTS (MCBSMA(1),V3(1),V4(1),V5(1)) DO 210 I = 1,NORD 210 DSQ = DSQ + DBLE(V3(I)*V4(I)) GO TO 240 220 CALL FERFBS(V2(1),V4(1),V3(1),V5(1)) DO 230 I = 1,NORD 230 DSQ = DSQ + DBLE(V3(I)*V3(I)) 240 DSQ = 1.0D+0/DSQRT(DSQ) TMP = SNGL(DSQ) DO 250 I = 1,NORD 250 V2(I) = V3(I)*TMP GO TO 320 C C CALCULATE OFF DIAGONAL TERM OF B C 300 D = ZERO DO 310 I = 1,NORD 310 D = D + DBLE(V2(I)*V4(I)) C C COMMENTS FROM G.CHAN/UNISYS 1/92 C WHAT HAPPENS IF D IS NEGATIVE HERE? NEXT LINE WILL BE ALWAYS TRUE. C IF (D .LT. DEPX*DABS(AII)) GO TO 500 320 CALL GOPEN (IFG,ZB(1),WRT) IIP = 1 NNP = NORD IF (IOPTF .EQ. 1) GO TO 330 CALL FERSWS (V2(1),V3(1),V5(1)) CALL FERLTS (MCBSMA(1),V3(1),V4(1),V5(1)) CALL PACK (V2(1),IFG,MCBRM(1)) GO TO 350 330 CALL FERFBS (V2(1),V4(1),V3(1),V5(1)) CALL PACK (V4(1),IFG,MCBRM(1)) DO 340 I = 1,NORD 340 V4(I) = V3(I) 350 CALL CLOSE (IFG,NOREW) C C CALCULATE DIAGONAL TERM OF B C AII = ZERO DO 400 I = 1,NORD 400 AII = AII + DBLE(V2(I)*V4(I)) TMP = SNGL(AII) IF (D .EQ. ZERO) GO TO 420 XD = SNGL(D) DO 410 I = 1,NORD 410 V3(I) = V3(I) - TMP*V2(I) - XD*V1(I) GO TO 440 420 DO 430 I = 1,NORD 430 V3(I) = V3(I) - TMP*V2(I) 440 DB = ZERO IF (IOPTF .EQ. 1) GO TO 460 CALL FERLTS (MCBSMA(1),V3(1),V4(1),V5(1)) DO 450 I = 1,NORD 450 DB = DB + DBLE(V3(I)*V4(I)) GO TO 480 460 DO 470 I = 1,NORD 470 DB = DB + DBLE(V3(I)*V3(I)) 480 DB = DSQRT(DB) ERRC = SNGL(DB) B(1) = SNGL(AII) B(2) = SNGL(D) CALL WRITE (SR5FLE,B(1),2,1) IF ( NIDORV .NE. 0 ) GO TO 3000 CALL GOPEN (IFV,ZB(1),WRT) IIP = 1 NNP = NORD CALL PACK (V2(1),IFV,MCBVEC(1)) CALL CLOSE (IFV,NOREW) GO TO 4000 3000 CONTINUE NIDX = NIDORV ILOC = NORTHO * NORD + NIDX DO 3100 I = IIP, NNP ZD( ILOC+I-1 ) = V2( I ) 3100 CONTINUE 4000 CONTINUE NORTHO = NORTHO + 1 IFN = NORTHO - NZERO IF (L16 .NE. 0) WRITE (IO,610) IFN,MORD,AII,DB,D IF ( IFN .LT. MORD ) GO TO 6000 C C NEED TO SAVE ORTHOGONAL VECTORS BACK TO FILE C CALL GOPEN ( IFV, ZB(1), WRT ) IIP = 1 NNP = NORD NIDX = NIDORV DO 5000 I = 1, NORTHO ILOC = (I-1)*NORD + NIDX CALL PACK ( ZD( ILOC ), IFV, MCBVEC(1) ) 5000 CONTINUE CALL CLOSE ( IFV, NOREW ) 6000 CONTINUE IF (IFN .GE. MORD) GO TO 630 C C IF NULL VECTOR GENERATED, RETURN TO OBTAIN A NEW SEED VECTOR C IF (DB .LT. DEPX*DABS(AII)) GO TO 630 C C A GOOD VECTOR IN V2. MOVE IT INTO 'PREVIOUS' VECTOR SPACE V1, C NORMALIZE V3 AND V2. LOOP BACK FOR MORE VECTORS. C DBI = 1.0D+0/DB TMP = SNGL(DBI) DO 490 I = 1,NORD V1(I) = V2(I) V3(I) = V3(I)*TMP 490 V2(I) = V3(I) GO TO 70 C 500 MORD = IFN WRITE (IO,600) UWM,MORD GO TO 630 C 600 FORMAT (A25,' 2387, PROBLEM SIZE REDUCED TO',I5,' DUE TO -', /5X, 1 'ORTHOGONALITY DRIFT OR NULL TRIAL VECTOR', /5X, 2 'ALL EXISTING MODES MAY HAVE BEEN OBTAINED. USE DIAG 16', 3 ' TO DETERMINE ERROR BOUNDS',/) 610 FORMAT (5X,'TRIDIAGONAL ELEMENTS ROW (IFN)',I5, /5X,'MORD =',I5, 1 ', AII,DB,D = ',1P,3D16.8) 620 FORMAT (11X,'ORTH ITER (IX)',I5,', MAX PROJ (SDMAX)',1P,D16.8, 1 ', NORMAL FACT (DSQ)',1P,D16.8) C 630 NAME(3) = NAME(5) CALL CONMSG (NAME,3,0) RETURN END ================================================ FILE: mis/ff100.f ================================================ FUNCTION FF100(I,A,B,M,N,X) DIMENSION X(1) F100 = 0.0 CAPX = A + B * X(I) XX = X(I) N1 = M + N - 2 N2 = M - 1 N3 = N1 + 1 AN1 = N1 AN2 = N2 NFAC = N1 ASSIGN 5 TO IRET GO TO 1000 5 AMN2F = IFAC AN1P1 = AN1 + 1.0 IS = 0 S = 0.0 SF = 1.0 AMN2SF = AMN2F GO TO 50 10 IS = IS + 1 S = IS SF = SF * S AMN2SF = AMN2SF / (AN1P1 - S) 50 CONTINUE N4 = N2 - IS IF (N4 .EQ. 0) GO TO 100 F100 = F100 + AMN2F * (CAPX ** N4) *((-B)** IS) / (AMN2SF * SF 1 * (AN2 - S) * (XX ** N4)) GO TO 200 100 CONTINUE NFAC = N2 ASSIGN 110 TO IRET GO TO 1000 110 AM1F = IFAC NFAC = N-1 ASSIGN 120 TO IRET GO TO 1000 120 AN1F = IFAC F100 = F100 + AMN2F *((-B)** N2) * ALOG(ABS(CAPX/XX)) 1 / (AM1F * AN1F) 200 CONTINUE IF (IS .LT. N1) GO TO 10 F100 = -F100 / (A ** N3) FF100 = F100 RETURN 1000 IFAC = 1 IF(NFAC.LT.2) GO TO 1020 DO 1010 LFAC=2,NFAC IFAC=IFAC*LFAC 1010 CONTINUE 1020 GO TO IRET,(5,110,120) END ================================================ FILE: mis/ffhelp.f ================================================ SUBROUTINE FFHELP (*,*,J) CHARACTER*1 QMARK CHARACTER*4 STOP, YES, HELP, XX COMMON /MACHIN/ MACH COMMON /SYSTEM/ DUMMY(3), IN COMMON /XREADX/ NOUT COMMON /XECHOX/ SKIP(2), IECHOS COMMON /QMARKQ/ QMARK DATA STOP, YES, HELP / 'STOP', 'Y ', 'HELP' / C C THIS ROUTINE IS CALLED ONLY BY FF C GO TO (10,50,100,120,140), J 10 WRITE (NOUT,20) 20 FORMAT (///1X, 1 'GENERATED OUTPUT CARDS ARE SAVED ONLY IF FILE NAME IS GIVEN.', 2 //,' YOU MAY ENTER NASTRAN EXECUTIVE CONTROL AND CASE CONTROL', 2 ' CARDS FIRST',/,' (NO INPUT ECHO ON SCREEN)', //, 3 ' ADDITIONAL INPUT INFORMATION WILL BE GIVEN WHEN YOU ENTER ', 3 12H'BEGIN BULK', //, 4 ' YOU MAY QUIT FREE-FIELD PROGRAM AT ANY TIME BY ENTERING ', 4 6H'STOP', /,' NORMALLY, JOB TERMINATES BY ',9H'ENDDATA', //, 5 ' YOU MAY USE ',10H'READFILE',' COMMAND TO READ ANY FILE WHICH', 5 14H WAS 'STOPPED', /, 5 ' BEFORE, AND CONTINUE FROM WHERE THE PREVIOUS JOB ENDED', //, 6 ' FREE-FIELD INPUT IS AVAILABLE ONLY IN BULK DATA SECTION', /, 6 ' AND IS ACTIVATED BY A COMMA OR EQUAL SIGN IN COLS. 1 THRU 10', 7 //,' BOTH UPPER-CASE AND LOWER-CASE LETTERS ARE ACCEPTABLE',//, 8 ' REFERENCE - G.CHAN: ',1H','COSMIC/NASTRAN FREE-FIELD INPUT', 8 2H',, /13X,'12TH NASTRAN USERS',1H',' COLLOQUIUM, MAY 1984') WRITE (NOUT,30) QMARK 30 FORMAT (/,' MORE',A1,' (Y,N) - ') READ (IN,40,END=80) XX 40 FORMAT (A4) CALL UPCASE (XX,4) IF (XX .NE. YES) GO TO 80 C 50 WRITE (NOUT,60) 60 FORMAT (///,' THE FOLLOWING SYMBOLS ARE USED FOR FREE-FIELD INPUT' 1, //10X,'SYMBOL', 12X,'FUNCTION',/,9X,2('----'),5X,10('----'), 2 /10X,', OR BLANK FIELD SEPERATORS', 3 /10X,' = DUPLICATES ONE CORRESPONDING FIELD', 4 /10X,' == DUPLICATES THE REMAINING FIELDS', 5 /10X,' *(N) INCREMENT BY N', 6 /10X,' %(E) ENDING VALUE BY E', 7 /10X,' / THIS INPUT FIELD IS SAME AS PREVIOUS FIELD', 8 /10X,' J) FIELD INDEX, J-TH FIELD (MUST FOLLOWED BY A V 9ALUE)', O /10X,')+ OR 10) INDEX FOR CONTINUATION FIELD', A /10X,' ) (IN COL. 1 ONLY) DUPLICATES THE CONTINUATION BID',/22X,'OF PREVIOUS CARD INTO FIELD 1 OF CURRENT CARD', C /10X,' , COL.1 ONLY, AUTO-CONTINUATION ID GENERATION', D /10X,' =(N) 1ST FIELD ONLY, DUPLICATES N CARDS WITH PROPE ER',/22X,' INCREMENTS', F /12X,'+A-I',6X,'CONTINUATION ID CAN BE DUPLICATED AUTOMATICALLY G', /22X,'ONLY IF IT IS IN PLUS-ALPHA-MINUS-INTEGER FORM', H //1X,'EXAMPLES:', /1X,'GRID, 101,, 0. 0. , 7. 8)2 )+ABC-2', I /1X,'=(11),*(1) ,, *(1.), / %(23.45),==') IF (J.EQ.1 .OR. IECHOS.NE.-2) GO TO 170 WRITE (NOUT,30) QMARK READ (IN,40,END=80) XX CALL UPCASE (XX,4) IF (XX .EQ. YES) GO TO 140 80 IF (XX .EQ. STOP) RETURN 2 IF (MACH.EQ.4 .AND. IN.EQ.5) REWIND IN GO TO 190 C 100 WRITE (NOUT,110) 110 FORMAT (//,24H ENTER 'N' FOR NO PUNCH,, /7X, 1 38H'Y' FOR PUNCH IN FREE-FIELD FORMAT, OR, /7X, 2 43H'X' FOR PUNCH IN NASTRAN FIXED-FIELD FORMAT,/) GO TO 190 C 120 WRITE (NOUT,130) 130 FORMAT (/,' MIFYLE - IS A RESERVED WORD. TRY ANY OTHER NAME') GO TO 190 C 140 WRITE (NOUT,150) 150 FORMAT (//,' *** FREE-FIELD INPUT IS OPTIONAL.',//5X,'FOUR (4)', 1 ' CONTROL OPTIONS ARE AVAILABLE - CAN BE ENTERED AT ANY TIME', 2 /7X,'1. PROMPT=ON, PROMPT=OFF, OR PROMPT=YES(DEFAULT)', 3 /7X,'2. SCALE/10, OR SCALE/8', 4 /7X,'3. CANCEL=N, (TO CANCEL N PREVIOUSLY GENERATED CARDS)', 5 /7X,'4. LIST =N, (TO LIST N PREVIOUSLY GENERATED CARDS)', 6//7X,'ENTER ''HELP'' IF YOU NEED ADDITIONAL INSTRUCTIONS', 7//7X,'INTEGER INPUT SHOULD BE LIMITED TO 8 DIGITS', 8 /7X,'UP TO 12 DIGITS ARE ALLOWED FOR FLOATING PT. NUMBER INPUT', 9 /7X,'HOWEVER, ONLY UP TO 8 DIGIT ACCURACY IS KEPT', O /7X,' INPUT RESULT ', 1 /7X,' ------------ --------', 2 /7X,'E.G. 123.456789 123.4567', 3 /7X,' 123.456789+6 .12345+9', 4 /7X,' -123.4567D+5 -.1234+8', 5 /7X,' 123.45678E+4 1234567.', 6 /7X,' 0.00123456-3 .12345-5', 7 /7X,' 0.0123456789 .0123456', 8 /7X,' .00000123456 .12345-5') IF (IECHOS .NE. -2) WRITE (NOUT,160) 160 FORMAT (/7X,'(3 AND 4 ARE AVAILABLE ONLY IN THE FREE-FIELD STAND', 1 '-ALONE VERSION)') 170 WRITE (NOUT,180) 180 FORMAT (/4X,'UP TO 94 CHARATERS ALLOWABLE ON AN INPUT LINE. ', 1 ' C/R TO CONTINUE') READ (IN,40,END=80) XX CALL UPCASE (XX,4) IF (XX .EQ. HELP) GO TO 50 IF (J .NE. 1) GO TO 80 190 RETURN 1 END ================================================ FILE: mis/ffread.f ================================================ SUBROUTINE FFREAD (*,CARD) C C THIS ROUTINE READS INPUT CARDS IN FREE FIELD OR FIXED FIELD C FORMATS. C C IF READFILE COMMAND IS ENCOUNTERED, IT SWITCHE THE INPUT FILE TO C THE ONE SPECIFIED BY READFILE UNTIL EOF IS REACHED. THEN IT C SWITCHES BACK TO THE NORMAL CARD READER. NESTED READFILE IS C ALLOWED. C C IT ALSO PRINTS THE INPUT CARDS IF UNSORTED ECHO FLAG IS ONE C C ALL INTEGERS, BCD, AND REAL NUMBERS ARE LEFT ADJUSTED BEFORE C RETURNING TO THE CALLER, XSORT2 C C IN BULK DATA SECTION - C ALL INTEGERS ARE LIMITED TO 8 DIGITS. REAL NUMBERS CAN BE UP TO 12 C DIGITS IF INPUT VIA FREE-FIELD, OR UP TO 8 DIGITS IF FIXED-FIELD. C ALL REAL NUMBER MUST HAVE A DECIMAL POINT. 10E-6 OR 1+7 ARE C NOT ACCEPTABLE C C THREE WORDS ARE ATTACHED TO THE END OF AN INPUT CARD TO BE USED C FOR ALPHA-NUMERIC SORTING C LOGICAL FP, STAR, PCT, NOTYET, TWODOT INTEGER FFFLAG, INFLAG, NONE, SCREEN, PROM, 1 UNIVC(11),XSORT, WASFF INTEGER IB, IC, IE, IS, IL, 1 IR, ID, IP, IM, IG, 2 IA, IH, PT, SP, AII, 3 A1, DOT, AT, A(94) CHARACTER*1 CB, CC, CE, CS, CL, 1 CR, CD, CP, CM, CG, 2 CA, CH, CT, C1, C(80), 3 CX(94), TMP, QMARK, DOTC CHARACTER*4 PROMPT, ON, OFF, YES, TEMP4, 1 ECHO CHARACTER*5 A5, SEQGP, SEQEP CHARACTER*8 CARD(10), BLANK, A8(10), A81, CANCEL, 1 SAVE, RDFL, SKFL, DEND, DBGN, 2 TEMP, FROM, SPILL, LIST, HELP, 3 STOP, SCALE8, SCALE1, NOPRT, SLASH, 4 A8X(12) CHARACTER*48 A48 COMMON /XREADX/ SCREEN, LOOP, KOUNT, PROM, NOTYET, 1 STAR, PCT, JC(9), L(9), RC(9), 2 F(9) COMMON /QMARKQ/ QMARK, TMP(8), SPILL, SAVE(10) COMMON /XECHOX/ FFFLAG, IECHOU, IECHOS, IECHOP, XSORT, 1 WASFF, NCARD, DUM(2), NOECHO COMMON /XXREAD/ INFLAG, INSAVE, LOOP4, IBMCDC, IERR COMMON /MACHIN/ MCHN COMMON /SYSTEM/ IBUF, NOUT, NOGO, IN EQUIVALENCE (C(1),CX(1),A8(1),A8X(1),A5,A48,A81), (KKF,FKK), 1 (TEMP4,TEMP,TMP(1)),(A1,A(1)) C DATA NONE, PROMPT, ON, OFF, YES / 1 4HNONE, 'PROM', 'ON, ', 'OFF,', 'YES,' / DATA BLANK, DEND, DBGN, FROM, SLASH / 1 ' ','$ END ','$ ...',' FROM-', '/ ' / DATA CT, XXXX, CANCEL, LIST, LOUT / 1 '.', 4HXXXX, 'CANCEL', 'LIST', 3 / DATA RDFL, SKFL, DOTC, ECHO / 1 'READFILE', 'SKIPFILE','.', 'ECHO' / DATA HELP, IWO, SCALE8, SCALE1, STOP / 1 'HELP', 60, 'SCALE/8','SCALE/10','STOP' / DATA A, IB, NOPRT, SEQGP, SEQEP / 1 94*1H , 0, 'NOPRINT,','SEQGP', 'SEQEP' / DATA CB , CC , CE , CS , CL , CR , CD , CP , CM , CG / 1 ' ', ',', '=', '*', '(', ')', '$', '+', '-', '%'/ DATA L12, L94/ 10, 80 /, CA, CH, AT / '/', '!', 2H@ / DATA UNIVC / 4H*ADD, 4H,E , 8*4H , 4H . / C C THIS ROUTINE IS A PREPROCESSOR FOR THE XREAD ROUTINE IN NASTRAN C WRITTEN BY G. CHAN/SPERRY, APRIL 1985 C C FFFLAG IN /XECHOX/ MUST BE SET TO 1234 FOR FREE-FIELD INPUT. C IECHOS IS SET TO -2 IN STAND-ALONE VERSION. C MUST RESERVE 43 WORDS IN SEMINT FOR /XREADX/ IN ALL MACHINES. C C FREE FIELD INPUT IS TRIGGERED BY THE PRESENCE OF COMMA (,) OR C EQUAL SIGN (=) IN COLS. 1 THRU 10, AND AFTER BEGIN BULK CARD WAS C READ. C C FFREAD IS DESIGNED TO BE USER FRIENDLY - C UNDER NO CIRCUMSTANCES SHOULD THE USER BE KICKED OUT OF THE C COMPUTER DUE TO HIS OR HER STUPID INPUT ERROR(S). C C DURING FREE-FIELD INPUT SESSION, FOUR CONTROL CARDS ARE ALLOWED - C C ECHO = SORT, UNSORT, BOTH, NONE, PUNCH, LINK1 C PROMPT= ON, OFF, YES (YES = ON + GENERATED CARD ECHO) C CANCEL= N, TO CANCEL N PREVIOUSLY GENERATED LINES C LIST =-N, TO LIST N PREVIOUSLY GENERATED LINES C (CANCEL AND LIST ARE AVAILABLE ONLY IN STAND-ALONE VERSION AND C A SAVE FILE HAS BEEN REQUESTED) C C WRITTEN BY G.CHAN/UNISYS ON A COLD DECEMBER MORNING, 1983 C REFERENCE - CHAN, G.C.: 'COSMIC/NASTRAN FREE-FIELD INPUT', C 12TH NASTRAN USERS' COLLOQUIUM, MAY 1984 C C THIS ROUTINE WILL HANDLE COMPUTER WORD OF ANY SIZE, 32,36,60,64 C BITS, UPPER CASE AND LOWER CASE ASCII AND EBCDIT CHARACTER SETS. C C VAX AND UNIX ONLY - C (UNIVAC TOO, ONLY IF OPEN STATEMENT IS USED FOR LOGICAL UNIT 5) C DURING FREE-FIELD SESSION, 94 COLUMNS, INSTEAD OF REGULARLY 80, C ARE ALLOWED FOR AN INPUT CARD COMING FROM CARD READER OR READFILE C (A MAXINUM OF 94 COLUMNS IS ALLOWED IN PRINT FORMAT 310) C C THIS ROUTINE CALLS THE FOLLOWING SUPPORTING SUBROUTINES FOR BCD C (LEFT ADJUSTED), INTEGER, AND F.P. NUMBER CONVERSION - C C INT 2 K8 - DECODES INTEGER TO A8 CHAR. C FP 2 K8 - DECODES F.P. NUMBER TO A8 CHAR. C NK1 2 IF - ENCODES N(A1) CHAR. TO INTEGER OR F.P. NUMBER C NK1 2 K8 - ENCODES N(A1) CHARS. TO A A8 CHAR. WORD C K8 2 INT - DECODES A8 CHAR. TO INTEGER C K8 2 FP - DECODES A8 CHAR. TO F.P. NUMBER C UPCASE - REPLACES ANY LOWER-CASE LETTER BY ITS UPPER CASE C C THIS ROUTINE WILL ALSO HANDLE 'READFILE' AND 'SKIPFILE' CARDS. C FILE NAME IS LIMITED UP TO 48 CHARACTERS, 8/91 C C THIS ROUTINE TRIES NOT TO USE SYSTEM ENCODE/DECODE FUNCTIONS, C SHIFT, AND ANY NON-STANDARD CHARACTER FUNCTIONS. C C C INPUT FILE LOGIC: C C IN UNIVAC, INPUT CARDS ARE READ FROM CARD READER INFLAG, UNIT 5. C ALL OTHER INPUT FILES, NESTED OR NOT, ARE DYNAMICALLY INSERTED IN- C TO INPUT STREAM (WITH THE E-O-F MARK STRIPPED OFF), AND READ INTO C COMPUTER SYSTEM FROM UNIT 5 ALSO. IF AN E-O-F MARK ENCOUNTERED C BEFORE ENDDATA CARD, IT IS FATAL. INFLAG=TWO=IN=5 C C IN ALL OTHER MACHINES, INPUT CARDS ARE READ FROM CARD READER C INFLAG, UNIT 5. WHEN A READFILE CARD IS ENCOUNTERED, DATA ARE READ C INTO COMPUTER SYSTEM FROM UNIT INFLAG, WHICH BEGINS AT 60; C INFLAG = IWO = 60 FOR THE FIRST FILE C INFLAG = 61 FOR THE SECOND FILE C INFLAG = 62 FOR THE THIRD FILE, ETC. C (NOTE, SINCE NASTRAN USES READFILE INTERNALLY TO READ RIGID FORMAT C FILE, NESTED READFILE IS NOT UNCOMMON) C WHEN E-O-F IS ENCOUNTERED, CURRENT FILE IS CLOSED AND INFLAG IS C DECREASE BY 1. INFLAG IS SET TO ZERO WHEN INFLAG .LE. IWO (END C OF CURRENT NESTED FILE OPERATION). NEXT READFILE, NESTED OR NOT, C IS ALLOWED. C C ADD READFILE,NOPRINT OPTION. 2/2/1989 C LAST REVISED, 8/1989, IMPROVED EFFICIENCY BY REDUCING CHARACTER C OPERATIONS (VERY IMPORTANT FOR CDC MACHINE) C 8/93, LIBERAL READFILE NOPRINT FORMATS: C READFILE,NOPRINT FILENAME C READFILE,NOPRINT, FILENAME C READFILE NOPRINT FILENAME C READFILE(NOPRINT) FILENAME C (EMBEDDED BLANK, COMMA, BRACKETS, AND EQUAL-SIGN ALLOWED) C READFILE = FILENAME C C INITIALIZE THE FOLLOWING ITEMS SO THAT COMPILER WILL NOT COMPLAIN C DATA C1,I,II,JJ,KK / ' ', 4*0 / C MACH = MCHN IF (MACH .EQ. 12) MACH = 4 IF (MACH .LT. 5) GO TO 40 L12 = 12 L94 = 94 40 IF (IB .NE. 0) GO TO 50 CALL K2B (CB,IB,1) CALL K2B (CC,IC,1) CALL K2B (CE,IE,1) CALL K2B (CS,IS,1) CALL K2B (CL,IL,1) CALL K2B (CR,IR,1) CALL K2B (CD,ID,1) CALL K2B (CP,IP,1) CALL K2B (CM,IM,1) CALL K2B (CG,IG,1) CALL K2B (CA,IA,1) CALL K2B (CH,IH,1) CALL K2B (CT,PT,1) CALL K2B (DOTC,DOT,1) CALL KHRFN1 (UNIVC(1),1,AT,1) C 50 IF (KOUNT .NE. 0) GO TO 300 60 IF (INFLAG .EQ. 0) IF (FFFLAG-1234) 80,200,80 READ (INFLAG,65,END=150) (A8X(J),J=1,L12) 65 FORMAT (11A8,A6) C NCARD = NCARD + 1 IF (IECHOS .EQ. -2) WRITE (LOUT,65) A8X IF (A81 .EQ. RDFL) GO TO 4500 IF (A81.EQ.SKFL .AND. A8(2).EQ.BLANK) GO TO 130 IF (FFFLAG .EQ. 1234) GO TO 240 DO 70 I = 1,10 CARD(I) = A8(I) 70 SAVE(I) = A8(I) GO TO 2800 C C 10A8 INPUT C 80 READ (IN,90,END=150) CARD 90 FORMAT (10A8) NCARD = NCARD + 1 IF (IECHOS .EQ. -2) WRITE (LOUT,90) CARD C IF (CARD(1).EQ.SKFL .AND. CARD(2).EQ.BLANK) GO TO 130 IF (CARD(1) .NE. RDFL) GO TO 2000 DO 120 I = 1,10 120 A8(I) = CARD(I) CALL K2B (A8,A,80) GO TO 350 C C IT IS A SKIPFILE CARD - TO SKIP TO THE END OF INPUT FILE C 130 IF (INFLAG .EQ. 0) GO TO 5200 140 READ (INFLAG,90,END=5100) CARD GO TO 140 C C CLOSE FILE, AND SET INFLAG BACK TO ZERO, OR PREVIOUS FILE OPENED C 150 IF (MACH .GE. 5) GO TO 154 GO TO (154,154,158,152), MACH 152 IF (INFLAG .EQ. 0) RETURN 1 IF (INFLAG .GE. IWO) REWIND INFLAG IERR = IERR + 1 IF (IERR-15) 156,156,3070 154 IF (INFLAG .EQ. 0) RETURN 1 156 CLOSE (UNIT=INFLAG) 158 IF (INFLAG .EQ. 0) RETURN 1 INFLAG = INFLAG - 1 IF (INFLAG .LE. IWO) INFLAG = 0 CARD(1) = DEND CARD(2) = RDFL DO 160 J = 3,10 160 CARD(J) = BLANK IF (IECHOS .EQ. -2) GO TO 60 CALL PAGE2 (-2) NOECHO = NOECHO - 1 IF (NOECHO .GE. 0) WRITE (NOUT,165) NOECHO 165 FORMAT (12X,1H(,I4,' CARDS READ)') WRITE (NOUT,460) CARD NOECHO = 0 GO TO 60 C 170 LOOP = 0 LOOP4 = LOOP - 4 KOUNT = 0 STAR = .FALSE. PCT = .FALSE. NOTYET= .FALSE. DO 180 J = 1,9 L(J) = 0 180 F(J) = 0.0 IF (INFLAG-IWO) 200,60,60 C C FREE FIELD INPUT C 190 WRITE (NOUT,3020) IERR = IERR + 1 IF (IERR .GT. 3) GO TO 3070 WRITE (SCREEN,3060) A8 IF (MACH.EQ.4 .AND. IN.EQ.5) REWIND IN 200 IF (PROM .NE. 0) WRITE (SCREEN,210) 210 FORMAT (7H ENTER ) READ (IN,220,END=190) (CX(J),J=1,L94) 220 FORMAT (94A1) NCARD = NCARD + 1 LASH = 0 240 CONTINUE IF (IECHOS .EQ. -2) WRITE (LOUT,220) CX CALL K2B (A8,A,L94) IF (A1 .EQ. ID) GO TO 280 C IF (A81 .EQ. RDFL) GO TO 350 IF (A81.EQ.SKFL .AND. A8(2).EQ.BLANK) GO TO 130 IF (FFFLAG .EQ. 1234) GO TO 260 DO 250 I = 1,10 250 CARD(I) = A8(I) GO TO 2800 260 WASFF = +1 DO 270 I = 1,10 IF (A(I).EQ.IC .OR. A(I).EQ.IE) GO TO 300 270 CONTINUE 280 WASFF = -1 IF (IECHOU.EQ.0 .OR. XSORT.EQ.0) GO TO 288 CALL PAGE2 (-1) WRITE (NOUT,285) A 285 FORMAT (30X,94A1) 288 IF (A1 .EQ. ID) GO TO 60 J = 0 DO 290 I = 1,10 IF (A8(I) .NE. BLANK) J = 1 290 CARD(I) = A8(I) LOOP = -1 LOOP4 = LOOP - 4 IF (J.EQ.0 .AND. IECHOS.EQ.-2) GO TO 4700 GO TO 2000 C 300 IF (IECHOS .EQ. -2) GO TO 340 IF (IECHOU.EQ.0 .OR. KOUNT.GE.1) GO TO 320 CALL PAGE2 (-1) WRITE (NOUT,310) A 310 FORMAT (30X,4H-FF-,4X,94A1) 320 IF (LOOP .EQ. -1) GO TO 340 DO 330 J = 1,10 330 CARD(J) = SAVE(J) 340 IF (KOUNT .NE. 0) GO TO 900 350 KE = 0 K = 0 DO 380 J = 1,L94 AII = A(J) IF (AII .NE. IB) GO TO 360 IF (KE .EQ. 0) GO TO 380 IF (A(KE ).EQ.IC .OR. A(KE ).EQ.IL) GO TO 380 IF (A(J+1).EQ.IC .OR. A(J+1).EQ.IB) GO TO 380 IF (A(J+1).EQ.IR .AND. K.EQ. 1) GO TO 370 AII = IC 360 IF (AII .EQ. ID) GO TO 390 KE = KE + 1 A(KE) = AII C(KE) = C(J) IF (AII .EQ. IC) C(KE) = CC IF (AII .EQ. IL) K = K + 1 IF (AII .EQ. IR) K = K - 1 IF (K-1) 380,380,5000 370 K = 0 380 CONTINUE IF (K .GT. 0) GO TO 5000 IF (KE .EQ. 0) GO TO 4700 390 IF (A(KE) .EQ. IC) GO TO 400 KE = KE + 1 A(KE) = IC C(KE) = CC 400 IF (A81 .NE. RDFL) GO TO 520 C C IT IS A READFILE CARD - C CHECK NOPRINT OPTION, SET NOECHO = 1, IF FOUND. C LOOK FOR FILE NAME. SET INFLAG TO UNIT IWO (OR IWO+ IF NESTED C READFFILE), AND OPEN USERS FILE (NOT MEMBER OF A FILE AS IN IBM) C C READFILE FORMAT - '(', ')', ',', AND '=' ARE IGNORED. C NOECHO = 0 NOEC = 0 I = 9 405 A(1) = IB C(1) = CB C(8) = CC J = 0 410 I = I + 1 IF (I .GT. L94) GO TO 480 AII = A(I) IF (AII .EQ. IB) GO TO 415 IF (AII.EQ.IL .OR. AII.EQ.IR .OR. AII.EQ.IC .OR. AII.EQ.IE) 1 IF (NOEC) 410,410,415 J = J + 1 IF (J .GT. 48) GO TO 480 A(J) = AII C(J) = C(I) IF (J.NE.7 .OR. A81.NE.NOPRT) GO TO 410 NOECHO = 1 NOEC = 1 GO TO 405 415 IF (J .EQ. 0) GO TO 410 IF (J .GE. 60) GO TO 422 J1 = J + 1 DO 420 I = J1,60 C(I) = CB 420 A(I) = IB 422 IF (MACH .EQ. 3) GO TO 425 IF (INFLAG .LT. IWO) INFLAG = IWO - 1 INFLAG = INFLAG + 1 CWKBI 8/94 ALPHA-VMS IF ( MACH .EQ. 21 ) GO TO 423 IF (IBMCDC.EQ.0) OPEN(UNIT=INFLAG,FILE=A8(1),STATUS='OLD',ERR=470) IF (IBMCDC.NE.0) OPEN(UNIT=INFLAG,FILE=A48 ,STATUS='OLD',ERR=470) CWKBNB 8/94 ALPHA-VMS GO TO 424 423 INDX = INDEX( A48, ' ' ) A48(INDX:INDX) = '.' OPEN(UNIT=INFLAG,FILE=A48,STATUS='OLD',ERR=470) 424 CONTINUE CWKBNE 8/94 ALPHA-VMS C IF (MACH .EQ. 4) REWIND INFLAG GO TO 450 C C UNIVAC - USE SYSTEM FACSF ROUTINE, SO THAT IT CAN READ A FILE OR C AN ELEMENT OF A FILE. INPUT UNIT IWO IS NOT USED C MAKE SURE FILE NAME CONTAINS A DOT C 425 K = 0 DO 430 I = 1,48 IF (A(I) .EQ. DOT) GO TO 440 IF (A(I) .NE. IB) K = 1 IF (K.EQ.1 .AND. A(I).EQ.IB) GO TO 435 430 CONTINUE I = 49 435 A(I) = DOT 440 INFLAG = IN IWO = IN READ (A48,445) (UNIVC(I),I=3,14) 445 FORMAT (12A4) I = FACSF(UNIVC) IF (I .NE. 0) GO TO 470 C 450 CARD(1) = DBGN CARD(2) = RDFL CARD(3) = FROM DO 455 J = 4,10 455 CARD(J) = A8(J-3) IF (IECHOS .EQ. -2) GO TO 465 CALL PAGE2 (-1) WRITE (NOUT,460) CARD 460 FORMAT (5H0*** ,10A8) GO TO 60 465 PROM = +1 GO TO 60 C 470 WRITE (NOUT,475) INFLAG,(A(I),I=1,J) 475 FORMAT (//,29H *** CAN NOT OPEN FILE (UNIT=,I3,4H) - ,94A1) GO TO 500 480 J = J - 1 WRITE (NOUT,485) (A(I),I=1,J) 485 FORMAT (//,23H *** FILE NAME ERROR - ,48A1) IF (J .GE. 48) WRITE (NOUT,490) 490 FORMAT (5X,31HFILE NAME EXCEEDS 48 CHARACTERS) 500 NOGO = 1 IF (MACH.EQ.3 .OR. MACH.GE.5) WRITE (NOUT,505) 505 FORMAT (5X,38HSUGGESTION- CHECK USER ID OR QUALIFIER) INFLAG = INFLAG - 1 IF (INFLAG .LE. IWO) INFLAG = 0 CARD(1) = BLANK CARD(2) = BLANK RETURN C C HERE WE GO C 520 KK = 0 II = 0 JJ = 0 TWODOT = .FALSE. 530 IISAVE = JJ - 2 540 JJ = II + 1 550 II = II + 1 IF (II .GT. KE) GO TO 1500 AII = A(II) IF (AII .EQ. IH) GO TO 540 IF (AII .EQ. IE) GO TO 700 IF (JJ .GT. 1) GO TO 580 IF ((STAR .OR. PCT) .AND. LOOP.NE.-1) WRITE (NOUT,560) 560 FORMAT (' *** PREVIOUS CARD SETTING UP FOR DUPLICATION IS NOW ', 1 'ABANDONNED') KOUNT = 0 LOOP = 0 STAR =.FALSE. PCT =.FALSE. NOTYET=.FALSE. DO 570 J = 1,9 L(J) = 0 570 F(J) = 0.0 580 IF (AII .EQ. IC) GO TO 600 IF (AII .EQ. IA) GO TO 650 IF (AII .EQ. IR) GO TO 1300 IF (AII.EQ.IS .OR. AII.EQ.IG) GO TO 1000 IF (AII .EQ. IL) GO TO 5400 GO TO 550 C C ... COMMA (,): C 600 KK = KK + 1 IF (KK.EQ.1 .OR. KK.EQ.10) GO TO 620 JE = II - 1 IF (JE .LE. JJ) GO TO 620 I = 0 DO 610 J = JJ,JE IF (A(J) .EQ. PT) I = I + 1 610 CONTINUE IF (I .LE. 1) GO TO 620 IF (A5.NE.SEQGP .AND. A5.NE.SEQEP) GO TO 4400 TWODOT =.TRUE. LOOP =-1 620 CALL NK12K8 (*3200,C(JJ),II-JJ,CARD(KK),1) GO TO 530 C C ... ECHO OR PROMPT: C 630 CALL NK12K8 (*3200,C(JJ),II-JJ,TEMP,1) IF (TEMP.EQ.CANCEL .OR. TEMP.EQ.LIST) GO TO 1600 IF (TEMP4 .EQ. ECHO) GO TO 4600 IF (TEMP4 .NE. PROMPT) GO TO 3000 CALL NK12K8 (*3200,C(II+1),4,TEMP,-1) IF (TEMP4.NE.ON .AND. TEMP4.NE.OFF .AND. TEMP4.NE.YES) GO TO 3000 IF (TEMP4 .EQ. ON ) PROM =-1 IF (TEMP4 .EQ. OFF) PROM = 0 IF (TEMP4 .EQ. YES) PROM =+1 GO TO 60 C C ... SLASH (/): C 650 IF (IISAVE .LE. 0) GO TO 660 A(II) = IH C(II) = CH II = II + 1 IF (A(II) .NE. IC) GO TO 655 A(II) = IH C(II) = CH 655 II = IISAVE - 1 GO TO 540 660 IF (LASH.EQ.0 .AND. KK.EQ. 0) GO TO 680 J = KK + 1 WRITE (NOUT,670) J 670 FORMAT (34H *** ILLEGAL USE OF SLASH IN FIELD,I3) GO TO 540 C C A DELETE CARD (/) READ C 680 LASH = +1 GO TO 530 C C ... EQUAL (=): C 700 IF (JJ .NE. II) GO TO 630 KK = KK + 1 II = II + 1 IF (II .GT. KE) GO TO 3600 AII = A(II) IF (AII .EQ. IL) GO TO 750 IF (AII .EQ. IE) GO TO 730 IF (AII .EQ. IC) GO TO 530 GO TO 3600 C 730 KK = 10 IF (TWODOT) GO TO 2400 IF (LOOP) 2000,2000,850 C C ... DUPLICATE WITH INCREMENT, =(N): C 750 IF (KK .NE. 1) GO TO 3600 JJ = II + 1 800 II = II + 1 IF (II .GT. KE) GO TO 3600 AII = A(II) IF (AII .EQ. IR) GO TO 820 IF (AII.EQ.IC .OR. AII.EQ.IS .OR. AII.EQ.IE) GO TO 3000 GO TO 800 820 INT = 1 CALL NK12IF (*3800,C(JJ),II-JJ,LOOP,INT) IF (LOOP .LE. 0) GO TO 4100 LOOP4 = LOOP - 4 II = II + 1 IF (II+1 .LT. KE) GO TO 530 IF (.NOT.STAR .AND. .NOT.PCT) GO TO 3300 850 KOUNT = 0 IF (.NOT.NOTYET) GO TO 900 NOTYET = .FALSE. DO 880 KK = 2,9 IF (L(KK) .EQ. NONE) GO TO 860 IF (F(KK) .NE. XXXX) GO TO 870 F(KK) = 0.0 I = (L(KK)-JC(KK))/LOOP IF (I*LOOP+JC(KK) .NE. L(KK)) GO TO 4200 L(KK) = I GO TO 880 860 L(KK) = 0 F(KK) = (F(KK)-RC(KK))/FLOAT(LOOP) GO TO 880 870 IF (L(KK) .NE. 0) JC(KK) = JC(KK) - L(KK) IF (F(KK) .NE. 0.0) RC(KK) = RC(KK) - F(KK) 880 CONTINUE 900 KOUNT = KOUNT + 1 IF (KOUNT .GT. LOOP) GO TO 170 DO 950 KK = 2,9 IF (L(KK) .EQ. 0) GO TO 920 JC(KK) = JC(KK) + L(KK) CALL INT2K8 (*3200,JC(KK),CARD(KK)) GO TO 950 920 IF (F(KK) .EQ. 0.0) GO TO 950 RC(KK) = RC(KK) + F(KK) CALL FP2K8 (*3000,RC(KK),CARD(KK)) 950 CONTINUE IF (PROM.LT.0 .AND. KOUNT.EQ.LOOP) WRITE (SCREEN,970) LOOP,CARD 970 FORMAT (/,I5,' ADDITIONAL CARDS WERE GENERATED. LAST CARD WAS-', 1 /1X,10A8) GO TO 2000 C C ... STAR (*), OR PERCENTAGE (%): C 1000 SP = AII II = II + 1 IF (A(II) .NE. IL) GO TO 4000 JJ = II + 1 FP =.FALSE. IF (STAR .OR. PCT) GO TO 1030 DO 1020 K = 1,9 L(K) = 0 1020 F(K) = 0.0 1030 IF (SP .EQ. IS) STAR =.TRUE. IF (SP .EQ. IG) PCT =.TRUE. 1050 II = II + 1 AII= A(II) IF (II.GT.KE .OR. AII.EQ.IC) GO TO 4000 IF (AII .EQ. PT) FP =.TRUE. IF (II.GT.JJ .AND. (AII.EQ.IP .OR. AII.EQ.IM)) FP =.TRUE. IF (AII .NE. IR) GO TO 1050 IF (II .LE. JJ) GO TO 4000 KK = KK + 1 IF (FP) GO TO 1070 INT = 1 CALL NK12IF (*3800,C(JJ),II-JJ,L(KK),INT) CALL K82INT (*3100,SAVE(KK),8,JC(KK),INT) 1060 IF (SP .EQ. IG) GO TO 1120 IF (LOOP .GT. 0) GO TO 1100 JC(KK) = JC(KK) + L(KK) CALL INT2K8 (*3200,JC(KK),CARD(KK)) GO TO 1100 1070 INT =-1 CALL NK12IF (*3900,C(JJ),II-JJ,KKF,INT) F(KK) = FKK CALL K82FP (*3100,SAVE(KK),8,RC(KK),INT) 1080 IF (SP .EQ. IG) GO TO 1150 IF (LOOP .GT. 0) GO TO 1100 RC(KK) = RC(KK) + F(KK) CALL FP2K8 (*3000,RC(KK),CARD(KK)) 1100 II = II + 1 GO TO 530 C 1120 IF (LOOP .GT. 0) GO TO 1130 F(KK) = XXXX GO TO 1160 1130 I = (L(KK)-JC(KK))/LOOP IF (I*LOOP+JC(KK) .NE. L(KK)) GO TO 4200 L(KK) = I GO TO 1100 1150 IF (LOOP .GT. 0) GO TO 1180 L(KK) = NONE 1160 NOTYET =.TRUE. GO TO 1100 1180 F(KK) = (F(KK)-RC(KK))/FLOAT(LOOP) GO TO 1100 C C ... RIGHT BRACKET ): C 1300 IF (KK .EQ. 0) GO TO 1450 IF (II+1 .GE. KE) GO TO 3400 AII = A(II+1) IF (AII.EQ.IS .OR. AII.EQ.IE) GO TO 3400 J = 10 INT= 1 IF (AII .NE. IP) CALL NK12IF (*3900,C(JJ),II-JJ,J,INT) IF (J.LE.0 .OR. J.GT.10) GO TO 3700 IF (J .LE. KK) GO TO 1400 KK = KK + 1 DO 1350 K = KK,J 1350 CARD(K) = BLANK KK = J 1400 IF (A(II+1) .EQ. IC) II = II + 1 JJ = II + 1 1420 II = II + 1 IF (II .GT. KE) GO TO 1430 IF (A(II) .NE. IC) GO TO 1420 1430 CALL NK12K8 (*3000,C(JJ),II-JJ,CARD(J),1) IF (KK .LT. 10) IF (II-KE) 530,1500,1500 GO TO 730 1450 KK = 1 CARD(KK) = SAVE(10) II = II + 1 IF (II.GT.KE .OR. A(II).NE.IC) GO TO 3000 GO TO 530 C C ... END OF CARD READ C 1500 IF (KK-10) 1550,730,3500 1550 KK = KK + 1 CARD(KK) = BLANK IF (KK .LT. 10) GO TO 1550 GO TO 730 C C ... CANCEL = N, LIST = +N C 1600 IF (IECHOS .NE. -2) GO TO 5300 CARD(1) = TEMP JJ = II + 1 1650 II = II + 1 IF (A(II) .NE. IC) GO TO 1650 INT = 1 CALL NK12IF (*3800,C(JJ),II-JJ,JC(1),INT) IF (TEMP.EQ.CANCEL .AND. JC(1).LE.0) GO TO 3800 IF (TEMP.EQ. LIST .AND. JC(1).LE.0) GO TO 3800 CARD(3) = TEMP GO TO 2800 C C PREPARE TO RETURN C 2000 IF (NOTYET) GO TO 60 C C ... UPDATE CONTINUATION FIELDS IF WE ARE IN A DUPLICATION LOOP C IF (LOOP .EQ. -1) GO TO 2400 IF (KOUNT.EQ.0 .AND. .NOT.STAR) GO TO 2400 KK = 10 IF (SAVE(KK) .EQ. BLANK) GO TO 2300 2100 TEMP = SAVE(KK) IF (TMP(1) .NE. CP) GO TO 2300 JJ = 0 DO 2150 I = 3,8 IF (TMP(I) .EQ. CM) JJ = I IF (TMP(I) .EQ. CB) GO TO 2200 2150 CONTINUE I = 9 2200 IF (JJ .EQ. 0) GO TO 2300 INT = 1 CALL NK12IF (*4800,TMP(JJ+1),I-JJ-1,J,INT) IF (MACH .EQ. 3) GO TO 2230 J = J + 1 CALL INT2K8 (*3800,J,TMP(JJ+1)) GO TO 2270 C C ... UNIVAC USES NEXT 5 CARDS INSTEAD OF THE 3 ABOVE C 2230 CALL INT2K8 (*3800,J,SPILL) J = 9 - JJ DO 2250 I = 1,J TMP(JJ+I) = TMP(8+I) 2250 CONTINUE 2270 J = 9 IF (TMP(J) .NE. CB) GO TO 4900 CARD(KK) = TEMP 2300 IF (KK .EQ. 1) GO TO 2400 KK = 1 GO TO 2100 C 2400 IF (FFFLAG .NE. 1234) GO TO 2700 IF (LASH .EQ. +1) CARD(1) = SLASH IF (PROM .NE. +1) GO TO 2500 IF (KOUNT.LT.7 .OR. KOUNT.GT.LOOP4) WRITE (SCREEN,2450) CARD IF (KOUNT.EQ.7 .AND. KOUNT.LE.LOOP4) WRITE (SCREEN,2460) 2450 FORMAT (1X,10A8) 2460 FORMAT (9X,1H.,2(/,9X,1H.)) 2500 IF (LOOP .EQ. -1) GO TO 2700 DO 2600 KK = 1,10 2600 SAVE(KK) = CARD(KK) 2700 IF (CARD(1).EQ.HELP .AND. CARD(2).EQ.BLANK .AND. IECHOS.EQ.-2) 1 CALL FFHELP (*60,*2900,2) IF (CARD(1).EQ.STOP .AND. CARD(2).EQ.BLANK .AND. IECHOS.NE.-2) 1 GO TO 2900 IF (CARD(1).NE.SCALE8 .AND. CARD(1).NE.SCALE1) GO TO 2800 IF (CARD(1) .EQ. SCALE8) WRITE (NOUT,2710) (I,I=1,10) IF (CARD(1) .EQ. SCALE1) WRITE (NOUT,2720) (I,I=1,8 ) 2710 FORMAT (/1X,10(I5,3X),/1X,5('--------++++++++')) 2720 FORMAT (/1X, 8I10,/1X,8('1234567890')) GO TO 60 C 2800 RETURN 2900 STOP C C ERRORS C 3000 WRITE (SCREEN,3020) 3020 FORMAT (31H *** CARD ERROR - INPUT IGNORED) 3050 IF (IECHOS .EQ. -2) GO TO 170 IF (IERR .LE. 15) WRITE (SCREEN,3060) A8 3060 FORMAT (5X,1H',10A8,1H',/) NOGO = 1 IERR = IERR + 1 IF (IERR .LT. 30) GO TO 170 3070 WRITE (SCREEN,3080) 3080 FORMAT (48H0*** JOB TERMINATED DUE TO TOO MANY INPUT ERRORS) STOP 3100 JE = II - 1 WRITE (SCREEN,3150) KK,CARD(KK),(A(J),J=JJ,JE) 3150 FORMAT (5X,5HFIELD,I3,2H (,A8,') OF PREVIOUS CARD SHOULD NOT BE ', 1 'USED FOR', /5X,'INCREMENTATION (BY ',8A1, 2 '). ZERO IS ASSUMED') IF (INT .GT. 0) JC(KK) = 0 IF (INT .LT. 0) RC(KK) = 0.0 IF (INT) 1080,3000,1060 3200 JE = II - 1 WRITE (SCREEN,3250) KK,(A(J),J=JJ,JE) 3250 FORMAT (5X,'FIELD',I3,' IS TOO LONG. ONLY 8 DIGITS ALLOWED - ', 1 16A1) GO TO 3000 3300 WRITE (SCREEN,3350) 3350 FORMAT (5X,44HPREVIOUS CARD WAS NOT SET UP FOR DUPLICATION) GO TO 3000 3400 WRITE (SCREEN,3450) A8 3450 FORMAT (35H *** INDEX ERROR. NO VALUE AFTER )) GO TO 3050 3500 WRITE (SCREEN,3550) 3550 FORMAT (49H *** INPUT ERROR - TOO MANY FIELDS. REPEAT INPUT) GO TO 3050 3600 WRITE (SCREEN,3650) 3650 FORMAT (37H *** INPUT ERROR AFTER EQUAL SIGN (=)) IF (IECHOS .EQ. -2) GO TO 60 WRITE (SCREEN,3060) A8 NOGO = 1 GO TO 60 3700 WRITE (SCREEN,3750) 3750 FORMAT (5X,'INDEX ERROR BEFORE RIGHT BRACKET )') GO TO 3050 3800 JE = II - 1 WRITE (SCREEN,3850) (A(J),J=JJ,JE) 3850 FORMAT (5X,18HINVALID INTEGER - ,16A1) GO TO 3000 3900 JE = II - 1 WRITE (SCREEN,3950) (A(J),J=JJ,JE) 3950 FORMAT (5X,22HINVALID F.P. NUMBER - ,16A1) GO TO 3000 4000 WRITE (SCREEN,4050) 4050 FORMAT (47H *** INPUT ERROR AFTER STAR (*), OR PERCENT (%)) GO TO 3050 4100 WRITE (SCREEN,4150) 4150 FORMAT (41H *** ZERO LOOP COUNT. NO CARDS GENERATED) GO TO 3050 4200 WRITE (SCREEN,4250) KK,L(KK),JC(KK),LOOP 4250 FORMAT (5X,5HFIELD,I3,2H (,I8,1H-,I8,21H) IS NOT DIVIDABLE BY,I4, 1 /5X,12HRESUME INPUT,/) 4300 IF (IECHOS .NE. -2) NOGO = 1 DO 4350 J = 1,10 4350 CARD(J) = SAVE(J) GO TO 60 4400 WRITE (SCREEN,4450) (A(J),J=JJ,JE) 4450 FORMAT (5X,27HMORE THAN ONE DEC. PT., - ,16A1) GO TO 3000 4500 WRITE (SCREEN,4550) 4550 FORMAT (39H *** WARNING- NESTED READFILE OPERATION) GO TO 350 4600 WRITE (SCREEN,4650) 4650 FORMAT (45H *** SO BE IT. TO RUN NASTRAN LINK1 ONLY ***,/) GO TO 60 4700 WRITE (SCREEN,4750) 4750 FORMAT (23H *** BLANK LINE IGNORED) GO TO 60 4800 WRITE (SCREEN,4850) TEMP 4850 FORMAT (40H *** INTEGER ERROR IN CONTINUATION ID - ,A8) IF (IECHOS .NE. -2) WRITE (SCREEN,3060) A8 GO TO 4300 4900 WRITE (SCREEN,4950) (TMP(J),J=1,9) 4950 FORMAT (35H *** CONTINUATION FIELD TOO LONG - ,9A1, /5X, 1 25HLAST GENERATED CARD WAS -,/) WRITE (SCREEN,2450) SAVE GO TO 4300 5000 WRITE (SCREEN,5050) 5050 FORMAT (27H *** TOO MANY LEFT BRACKETS) GO TO 3050 5100 WRITE (NOUT,5150) 5150 FORMAT (/,20H *** EOF ENCOUNTERED ) IF (MACH.EQ.4 .AND. INFLAG.EQ.5) REWIND INFLAG GO TO 60 5200 WRITE (NOUT,5250) 5250 FORMAT (/,48H *** SKIPFILE IGNORED. FILE HAS NOT BEEN OPENED) GO TO 60 5300 WRITE (NOUT,5350) 5350 FORMAT (/,26H *** FEATURE NOT AVAILABLE) IF (IECHOS .NE. -2) WRITE (SCREEN,3060) A8 GO TO 60 5400 WRITE (NOUT,5450) 5450 FORMAT (/,73H *** LEFT BRACKET ENCOUNTERED WITHOUT FIRST PRECEEDED 1 BY '=', '*', OR '%') GO TO 3000 C END ================================================ FILE: mis/filcor.f ================================================ INTEGER FUNCTION FILCOR(MT1X,MT2X, PC,FRSROW,MIDROW,NX,A,NZA,Z) C C FILL CORE WITH A TRIANGULAR MATRIX C REAL A(1),Z(1) INTEGER PC,FRSROW C COMMON /UNPAKX/IT1,II,JJ,INCR1 C C MT1 FIRST PART OF THE MATRIX (UP TO ROW -MIDROW-). C MT2 REST OF THE MATRIX C PC PRECISION OF THE MATRIX IN CORE C NX COLUMN SIZE OF THE MATRIX C A STORAGE FOR THE MATRIX C Z BUFFER FOR GINO C FRSROW FIRST ROW OF THE MATRIX TO BE READ C ANSWER LAST ROW READ C MT1 = MT1X MT2 = MT2X N = NX MT = MT1 LASROW = FRSROW-1 IT1 = PC INCR1 =1 JJ = N IF( LASROW .GE. MIDROW .AND. MT2 .NE. 0) MT = MT2 NN = NZA/PC NA = 0 C C READ IN EACH ROW C 105 IF (NA + N -LASROW .GT. NN) GO TO 115 LASROW = LASROW +1 I = PC*NA +1 II = LASROW CALL UNPACK(*106,MT,A(I)) GO TO 107 106 K = I +LASROW*PC-1 DO 108 J = I,K 108 A(J) =0.0 107 IF (LASROW .EQ. N) GO TO 110 NA = NA + (N-LASROW +1) IF( LASROW .NE. MIDROW .OR. MT2 .EQ. 0) GO TO 105 CALL CLOSE(MT,1) MT = MT2 CALL GOPEN(MT,Z,0) GO TO 105 C C END OF ROUTINE C 110 CALL CLOSE(MT,1) 115 FILCOR = LASROW RETURN END ================================================ FILE: mis/filswi.f ================================================ SUBROUTINE FILSWI (NAME1,NAME2) C C FILSWI SWITCHES THE UNITS ASSIGNED TO THE SPECIFIED DATA BLOCKS. C EXTERNAL COMPLF,ANDF,ORF INTEGER FIST,FIAT,COMPLF,SYS,ANDF,UNIT1,UNIT2,ORF,UNIT CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /XFIST / NFIST,LFIST,FIST(1) 1 /XFIAT / FIAT(4) 2 /SYSTEM/ SYS,NOUT,SKIP(21),ICFIAT DATA MASK1 / 32767/ C '7FFF'X C C SEARCH FIST FOR POINTERS TO FIAT. C IF (NAME1 .EQ. NAME2) RETURN K1 = 0 K2 = 0 N = 2*LFIST - 1 DO 8 I = 1,N,2 IF (FIST(I) .EQ. NAME1) K1 = FIST(I+1) IF (FIST(I) .EQ. NAME2) K2 = FIST(I+1) 8 CONTINUE IF (K1.GT.0 .AND. K2.GT.0) GO TO 10 WRITE (NOUT,9) SFM 9 FORMAT (A23,' 2178, GINO REFERENCE NAMES, IMPROPER FOR ', 1 'SUBROUTINE FILSWI.') CALL MESAGE (-61,0,0) C C SWITCH UNIT REFERENCE NUMBERS IN FIAT. C 10 MASK2 = COMPLF(MASK1) UNIT1 = ANDF(FIAT(K1+1),MASK1) UNIT2 = ANDF(FIAT(K2+1),MASK1) N = ICFIAT*FIAT(3) - 2 DO 12 I = 4,N,ICFIAT UNIT = ANDF(FIAT(I),MASK1) IF (UNIT .EQ. UNIT1) FIAT(I) = ORF(ANDF(FIAT(I),MASK2),UNIT2) IF (UNIT .EQ. UNIT2) FIAT(I) = ORF(ANDF(FIAT(I),MASK2),UNIT1) 12 CONTINUE RETURN END ================================================ FILE: mis/find.f ================================================ SUBROUTINE FIND (MODE,BUF1,BUF4,SETID,X) C INTEGER AWRD(2),BUF1,BUF4,BUFSIZ,ERR(3),FOR,FSCALE,FVP, 1 GPSET,ORIGIN,ORG,PARM,PRJECT,PRNT,REGION,SET, 2 SETD,SETID(1),TRA,WORD,X(1),HSET,ORIG,POIN,REGI, 3 SCAL,VANT,MSG1(20),MSG3(21),MSG6(20),NAME(2) REAL IMSEP,MAX,MAXDEF,MIN,MM17P5 DOUBLE PRECISION DWRD CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ BUFSIZ, NOUT COMMON /BLANK / NGP,SKP11,NSETS,PRNT,SKP12,NGPSET,SKP13(4), 1 PARM,GPSET,SKP2(8),MERR,SETD COMMON /XXPARM/ PLTBUF,PLTTER(5),NOPENS,PAPSIZ(2),PENPAP(27), 1 SCALE,OBJMOD,FSCALE,MAXDEF,DEFMAX,AXIS(6),VIEW(9), 2 FVP,SKPVP1(4),D0,SKPVP2(2),PRJECT,S0S,FOR,ORG, 3 NORG,ORIGIN(11),EDGE(11,4),XY(11,3) COMMON /PLTDAT/ SKPPLT(2),REG(4),AXYMAX(14),SKPA(3),CNTCHR(2) COMMON /RSTXXX/ CSTM(3,3),MIN(3),MAX(3),D(3),AVER(3) EQUIVALENCE (WORD,AWRD(1),IWRD,FWRD,DWRD) DATA NAME / 4H FI, 4HND / DATA MM17P5, RDIST, SQRT3 / .688975, 29., 1.732051/, 1 ORIG / 4HORIG/, REGI / 4HREGI/, SCAL / 4HSCAL/, 2 HSET / 3HSET /, VANT / 4HVANT/, POIN / 4HPOIN/ DATA NMSG1 , MSG1 / 20, 1 4H(34X, 4H,45H, 4HAN A, 4HTTEM, 4HPT H, 4HAS B, 2 4HEEN , 4HMADE, 4H TO , 4HDEFI, 4HNE M, 4HORE , 3 4HTHAN, 4H ,I2, 4H,17H, 4H DIS, 4HTINC, 4HT OR, 4 4HIGIN, 4HS) / DATA NMSG3 , MSG3 / 21, 1 4H(25X, 4H,27H, 4HAN U, 4HNREC, 4HOGNI, 4HZABL, 2 4HE RE, 4HQUES, 4HT (,, 4H2A4,, 4H37H), 4H HAS, 3 4H BEE, 4HN SP, 4HECIF, 4HIED , 4HON A, 4H -FI, 4 4HND- , 4HCARD, 4H) / DATA NMSG6 , MSG6 / 20, 1 4H(33X, 4H,71H, 4HMAXI, 4HMUM , 4HDEFO, 4HRMAT, 2 4HION , 4HCARD, 4H NEE, 4HDED , 4H- 5 , 4HPER , 3 4HCENT, 4H OF , 4HMAXI, 4HMUM , 4HDIME, 4HNSIO, 4 4HN US, 4HED.) / C CALL RDMODX (PARM,MODE,WORD) SET = SETD REGION = 0 REG(1) = 0. REG(2) = 0. REG(3) = 1. REG(4) = 1. RATIO = 0. NOGO = 0 IF (MODE .LT. 0) GO TO 480 C C INTERPRET THE REQUESTS ON THE -FIND- CARD. C 10 IF (MODE .LE. 0) CALL RDMODE (*10,*20,*480,MODE,WORD) 20 CALL RDWORD (MODE,WORD) C C IS AN ORIGIN TO BE FOUND C 30 IF (WORD .NE. ORIG) GO TO 90 IF (MODE .NE. 0) GO TO 10 ASSIGN 40 TO TRA GO TO 400 40 IF (ORG .EQ. 0) GO TO 70 DO 50 J = 1,ORG IF (ORIGIN(J) .EQ. IWRD) GO TO 80 50 CONTINUE IF (ORG .LT. NORG) GO TO 70 IF (PRNT .LT. 0) GO TO 60 ERR(1) = 1 ERR(2) = NORG CALL WRTPRT (MERR,ERR,MSG1,NMSG1) 60 ORG = NORG I = ORG + 1 EDGE(I,1) = 0.0 EDGE(I,2) = 0.0 EDGE(I,3) = 1.0 EDGE(I,4) = 1.0 70 ORG = ORG + 1 ORIGIN(ORG) = IWRD J = ORG 80 FOR = J GO TO 10 C C IS A REGION SPECIFIED C 90 IF (WORD .NE. REGI) GO TO 200 IF (MODE .NE. 0) GO TO 10 REGION = 1 ASSIGN 110 TO TRA J = 0 100 J = J + 1 GO TO 440 110 REG(J) = AMIN1(1.,ABS(FWRD)) IF (J-4) 100,10,10 C C IS THE SCALE TO BE FOUND C 200 IF (WORD .NE. SCAL) GO TO 220 FSCALE = 1 IF (MODE .NE. 0) GO TO 10 ASSIGN 210 TO TRA GO TO 440 210 RATIO = FWRD GO TO 10 C C IS THERE A SET ON THE FIND CARD C 220 IF (WORD .NE. HSET) GO TO 300 IF (MODE .NE. 0) GO TO 10 ASSIGN 230 TO TRA GO TO 400 230 DO 240 J = 1,NSETS IF (IWRD .EQ. SETID(J)) GO TO 260 240 CONTINUE WRITE (NOUT,250) UWM,IWRD 250 FORMAT (A25,' 700, SET',I9,' REQUESTED ON FIND CARD HAS NOT BEEN', 1 ' DEFINED. DEFAULT SET',I9,' USED') NOGO = 1 GO TO 10 260 SET = J GO TO 10 C C IS THE VANTAGE POINT TO BE FOUND C 300 IF (WORD .NE. VANT) GO TO 320 IF (MODE .EQ. 0) CALL RDMODE (*10,*310,*480,MODE,WORD) 310 CALL RDWORD (MODE,WORD) IF (WORD .NE. POIN) GO TO 30 FVP = 1 GO TO 10 C C UNRECOGNIZABLE OPTION ON THE FIND CARD C 320 IF (PRNT .LT. 0) GO TO 10 ERR(1) = 2 ERR(2) = AWRD(1) ERR(3) = AWRD(2) CALL WRTPRT (MERR,ERR,MSG3,NMSG3) GO TO 10 C C READ AN INTEGER FROM THE FIND CARD C 400 CALL RDMODE (*410,*10,*480,MODE,WORD) 410 IF (MODE .EQ. -1) GO TO 430 IF (MODE .EQ. -4) GO TO 420 IWRD = FWRD GO TO 430 420 IWRD = DWRD 430 GO TO TRA, (40,230) C C READ A REAL NUMBER FROM THE FIND CARD C 440 CALL RDMODE (*450,*10,*480,MODE,WORD) 450 IF (MODE .EQ. -4) GO TO 460 IF (MODE .NE. -1) GO TO 470 FWRD = IWRD GO TO 470 460 FWRD = DWRD 470 GO TO TRA, (110,210) C C END OF THE FIND CARD C 480 IF (ORG .GT. 0) GO TO 485 C C ALLOW NO ORIGIN REQUEST ON FIRST FIND CARD C ORIGIN ID IS ZERO C ORG = 1 ORIGIN(1) = 0 REGION = 1 485 IF (FOR .EQ. 0) GO TO 500 IF (REGION .EQ. 0) GO TO 490 EDGE(FOR,1) = REG(1) EDGE(FOR,2) = REG(2) EDGE(FOR,3) = REG(3) EDGE(FOR,4) = REG(4) GO TO 500 490 REG(1) = EDGE(FOR,1) REG(2) = EDGE(FOR,2) REG(3) = EDGE(FOR,3) REG(4) = EDGE(FOR,4) 500 REG(1) = REG(1)*AXYMAX(1) IF (REG(2) .NE. 0.) GO TO 510 REG(2) = 4.*CNTCHR(2) GO TO 520 510 REG(2) = REG(2)*AXYMAX(2) 520 REG(3) = REG(3)*AXYMAX(1) - CNTCHR(1)*8. REG(4) = REG(4)*AXYMAX(2) - CNTCHR(2) C C CALCULATE THE ROTATION MATRIX + ROTATE THE CO-ORDINATES OF THE SET C CALL GOPEN (GPSET,X(BUF4),0) I = 1 CALL FWDREC (*810,GPSET) IF (SET .EQ. 1) GO TO 540 DO 530 I = 2,SET CALL FWDREC (*810,GPSET) 530 CONTINUE C C READ NGPSET C 540 CALL FREAD (GPSET,NGPSET,1,0) C C CHECK CORE C ICRQ = 3*NGPSET + NGP - BUF4 - BUFSIZ - 1 IF (ICRQ .GT. 0) GO TO 800 CALL FREAD (GPSET,X,NGP,0) CALL CLOSE (GPSET,1) CALL FNDSET (X,X(NGP+1),BUF1,0) DO 550 I = 1,3 MIN(I) = +1.E+20 550 MAX(I) = -1.E+20 CALL PROCES (X(NGP+1)) IF (MAXDEF.NE.0.0 .OR. PRNT.GE.0) GO TO 560 C C DEFORMED PLOTS AND MAXDEF WAS NOT SPECIFIED C ERR(1) = 0 CALL WRTPRT (MERR,ERR,MSG6,NMSG6) MAXDEF = AMAX1(D(2),D(3)) IF (MAXDEF .LE. 0.0) MAXDEF = 1.0 MAXDEF = 0.05*MAXDEF 560 CONTINUE GO TO (600,570,700), PRJECT C C PERSPECTIVE PROJECTION (FIND VANTAGE POINT IF REQUESTED) C 570 DO 580 I = 1,3 MIN(I) = +1.E+20 580 MAX(I) = -1.E+20 CALL PERPEC (X(NGP+1),0) FVP = 0 C C ORTHOGRAPHIC OR PERSPECTIVE PROJECTION C C FIND SCALE FACTOR (IF REQUESTED). C 600 IF (FSCALE .EQ. 0) GO TO 630 A = D(2) + 2.*MAXDEF*SQRT3 IF (A .EQ. 0.0) GO TO 610 A = (REG(3)-REG(1))/A 610 B = D(3) + 2.*MAXDEF*SQRT3 IF (B .EQ. 0.0) GO TO 620 B = (REG(4)-REG(2))/B 620 SCALE = AMIN1(A,B) IF (SCALE .LE. 0.) SCALE = AMAX1(A,B) IF (SCALE .LE. 0.) SCALE = 1. IF (RATIO .NE. 0.) SCALE = RATIO*SCALE C C FIND ORIGIN -FOR- IF REQUESTED C 630 IF (FOR .EQ. 0) GO TO 830 XY(FOR,1) = AVER(2)*SCALE - (REG(1)+REG(3))/2. XY(FOR,3) = AVER(3)*SCALE - (REG(2)+REG(4))/2. GO TO 830 C C STEREO PROJECTION C C FIND SCALE FACTORS (IF REQUESTED). C 700 IF (FSCALE .EQ. 0) GO TO 710 DIAM = SQRT(D(1)**2 + D(2)**2 + D(3)**2) A = SQRT3*MAXDEF IF (D(2)+A.GE.DIAM .OR. D(3)+A.GE.DIAM) DIAM = DIAM + MAXDEF IF (DIAM .EQ. 0.0) DIAM = 1.E-5 OBJMOD = 10./DIAM SCALE = AMIN1(REG(3)-REG(1),REG(4)-REG(2))/MM17P5 IF (RATIO .NE. 0.) SCALE=RATIO*SCALE C C FIND VANTAGE POINT (IF REQUESTED) C 710 CALL PERPEC (X(NGP+1),0) FVP = 0 C C FIND ORIGIN -FOR- IF REQUESTED C IF (FOR .EQ. 0) GO TO 830 IMSEP = S0S*(RDIST-D0)/(2.*RDIST) XY(FOR,1) = SCALE*(AVER(2)*OBJMOD-IMSEP) - (REG(1)+REG(3))/2. XY(FOR,2) = SCALE*(AVER(2)*OBJMOD+IMSEP) - (REG(1)+REG(3))/2. XY(FOR,3) = SCALE*(AVER(3)*OBJMOD) - (REG(2)+REG(4))/2. GO TO 830 C 800 CALL MESAGE (-8,ICRQ,NAME) C 810 WRITE (NOUT,820) UFM,SETID(SET) 820 FORMAT (A23,' 703, SET',I9,' REQUESTED ON FIND CARD NOT IN ', 1 'GPSETS FILE.') NOGO = 1 CALL CLOSE (GPSET,1) GO TO 840 C 830 FSCALE = 0 FOR = 0 840 IF (NOGO .NE. 0) CALL MESAGE (-37,0,NAME) RETURN END ================================================ FILE: mis/findc.f ================================================ INTEGER FUNCTION FINDC (B,BBAR,N,IX,JX) INTEGER B,BBAR DIMENSION IX(1),JX(1) C******* C PICK OUT PAIRS OF NUMBERS FOR ACTIVE ROWS C******* ICC = 0 J = 1 DO 10 I=1,N IF (I-IX(I) .LE. BBAR) GO TO 10 JX(J) = I+B-1 JX(J+1) = IX(I) J = J+2 10 CONTINUE J = J-1 IF(J .EQ. 0) GO TO 31 DO 30 K = 1,J,2 IF((J-K-1)/2 .LT. ICC) GO TO 31 IC = 0 DO 20 L=K,J,2 IF(JX(K) .LT. JX(L+1)) GO TO 20 IC = IC+1 20 CONTINUE ICC = MAX0(ICC,IC) 30 CONTINUE 31 FINDC = ICC RETURN END ================================================ FILE: mis/finder.f ================================================ SUBROUTINE FINDER( NAM , SUBNO , COMNO ) C C C THIS SUBROUTINE READS THE TABLE OF CONTENTS OF SUBSTRUCTURES C BEING COMBINED ( SCRATCH FILE SCTOC ) AND FOR ANY GIVEN C BASIC SUBSTRUCTURE NAME ( NAM ) RETURNS THE ID NUMBER OF THE C PSEUDO-STRUCTURE CONTAINING IT ( SUBNO ) AND ITS POSITION IN C THE COMPONENT LIST FOR THAT STRUCTURE ( COMNO ). IF A NAME C DOES NOT APPEAR IN THE SCTOC AN ERROR MESSAGE IS ISSUED. C INTEGER SCTOC,BUF4,ID(3),SUBNO,COMNO,NAM(2),CNAM(2),OUTT LOGICAL TOCOPN COMMON/CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON, 1 SCTOC,GEOM4,CASECC COMMON/ZZZZZZ/ Z(1) COMMON/CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT COMMON/CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN, 1 MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT,TOCOPN COMMON/CMBFND/ INAM(2),IERR C C OPEN SCTOC FILE C IERR = 0 IF(.NOT.TOCOPN)CALL OPEN(*2001,SCTOC,Z(BUF4),0) CALL REWIND( SCTOC ) C DO 1 I=1,NPSUB CALL READ(*2001,*2002,SCTOC,ID,3,0,NNN) NCOM = ID(3) DO 2 J=1,NCOM IEOR = 0 IF( J .EQ. NCOM ) IEOR = 1 CALL READ(*2001,*2002,SCTOC,CNAM,2,IEOR,NNN) IF( NAM(1).EQ.CNAM(1) .AND. NAM(2).EQ.CNAM(2) ) GO TO 11 2 CONTINUE 1 CONTINUE C C IERR = 1 MEANS THAT THE SUBSTRUCTURE NAME IS NOT IN THE TOC C IERR = 1 RETURN 11 SUBNO = I INAM(1) = ID(1) INAM(2) = ID(2) COMNO = J IF( .NOT. TOCOPN ) CALL CLOSE( SCTOC , 1 ) 2001 CONTINUE 2002 CONTINUE RETURN END ================================================ FILE: mis/flbelm.f ================================================ SUBROUTINE FLBELM C C READS CFLSTR AND CFREE BULK DATA AND BUILDS INCORE TABLES TO C DESCRIBE THE CONNECTIVITY BETWEEN THE STRUCTURE AND FLUID C LOGICAL ERROR INTEGER GEOM2 ,ECT ,BGPDT ,SIL ,MPT , 1 GEOM3 ,CSTM ,USET ,EQEXIN ,USETF , 2 USETS ,AF ,DKGG ,FBELM ,FRELM , 3 CONECT ,AFMAT ,AFDICT ,KGMAT ,KGDICT , 4 Z ,FILE ,NAME(2) ,MCB(7) ,CFLSTR(2), 5 CARD(10) ,ID(3) ,GRID(4) ,CFREE(2) ,ELM2D(7,3) 6, ELMFL(4,3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /FLBFIL/ GEOM2 ,ECT ,BGPDT ,SIL ,MPT , 1 GEOM3 ,CSTM ,USET ,EQEXIN ,USETF , 2 USETS ,AF ,DKGG ,FBELM ,FRELM , 3 CONECT ,AFMAT ,AFDICT ,KGMAT ,KGDICT COMMON /FLBPTR/ ERROR ,ICORE ,LCORE ,IBGPDT ,NBGPDT , 1 ISIL ,NSIL ,IGRAV ,NGRAV ,IGRID , 2 NGRID ,IBUF1 ,IBUF2 ,IBUF3 ,IBUF4 , 3 IBUF5 COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /BLANK / NOGRAV ,NOFREE DATA CFLSTR/ 7610,76/ ,CFREE / 4810,48 / ,MCB / 7*0 / DATA NAME / 4HFLBE , 4HLM / C C TWO DIMENSIONAL STRUCTURAL ELEMENTS DESCRIPTIONS C DATA N2D / 7 / DATA ELM2D / C C TRIA1 TRIA2 TRMEM QUAD1 QUAD2 QDMEM SHEAR C 1 IFP CARD NUMBERS C 2 NUMBER OF GRIDS C 3 NUMBER OF WORDS IN ECT RECORD C 1 52 ,53 ,56 ,57 ,58 ,60 ,61 , 2 3 ,3 ,3 ,4 ,4 ,4 ,4 , 3 6 ,6 ,6 ,7 ,7 ,7 ,6 / C C FLUID ELEMENT DESCRIPTIONS C DATA NFL / 4 / DATA ELMFL / C C FHEX1 FHEX2 FTETRA FWEDGE C 1 IFP CARD NUMBERS C 2 NUMBER OF GRIDS C 3 NUMBER OF WORDS IN ECT RECORD C 1 333 ,334 ,335 ,336 , 2 8 ,8 ,4 ,6 , 3 10 ,10 ,6 ,8 / C C C READ BGPDT INTO OPEN CORE C IBGPDT = 1 FILE = BGPDT CALL GOPEN (BGPDT,Z(IBUF1),0) NZ = IBUF3 - 1 CALL READ (*1002,*10,BGPDT,Z(IBGPDT),NZ,1,NBGPDT) GO TO 1008 10 ICORE = IBGPDT + NBGPDT NGRDT = NBGPDT/4 CALL CLOSE (BGPDT,1) C C LOCATE CFLSTR CARDS ON GEOM2 AND READ THEM INTO ELEMENT TABLE C IN CORE. ONE ELEMENT TABLE RECORD WILL LOOK AS FOLLOWS - C C WORD DESCRIPTION C C 1 STRUCTURE ELEMENT ID C 2 FLUID ELEMENT ID C 3-6 ZERO C 7 GRAV LOAD ID C FILE = GEOM2 CALL PRELOC (*1001,Z(IBUF1),GEOM2) CALL LOCATE (*1200,Z(IBUF1),CFLSTR,ID) IELMT = ICORE 20 CALL READ (*1002,*40,GEOM2,ID,2,0,N) 30 CALL READ (*1002,*1003,GEOM2,IDS,1,0,N) IF (IDS .LT. 0) GO TO 20 IF (ICORE+7 .GE. IBUF3) GO TO 1008 Z(ICORE ) = IDS Z(ICORE+1) = ID(1) Z(ICORE+2) = 0 Z(ICORE+3) = 0 Z(ICORE+4) = 0 Z(ICORE+5) = 0 Z(ICORE+6) = ID(2) ICORE = ICORE + 7 GO TO 30 C 40 NELMT = ICORE - IELMT NELM = NELMT/7 C C SORT ELEMENT TABLE BY STRUCTUREAL ELEMENT ID C CALL SORT (0,0,7,1,Z(IELMT),NELMT) C C READ ECT AND PROCESS 2D STRUCTURAL ELEMENTS C FILE = ECT CALL GOPEN (ECT,Z(IBUF2),0) 50 CALL READ (*100,*1002,ECT,CARD,3,0,N) DO 60 I = 1,N2D IF (CARD(3) .EQ. ELM2D(I,1)) GO TO 70 60 CONTINUE C C SKIP RECORD BECAUSE NOT ACCEPTABLE 2D ELEMENT TYPE C CALL FWDREC (*1001,ECT) GO TO 50 C C PROCESS THE 2D ELEMENT C 70 NGRDS = ELM2D(I,2) NWDS = ELM2D(I,3) C C READ DATA FOR ONE 2D ELEMENT C 80 CALL READ (*1001,*50,ECT,CARD,NWDS,0,N) C C CHECK IF STRUCTURAL ELEMENT IS CONNECTED TO ANY FLUID ELEMENT C MAKE SURE BISLOC FINDS FIRST OF SEVERAL POSSIBLE ENTRIES C CALL BISLOC (*80,CARD(1),Z(IELMT),7,NELM,JLOC) 82 IF (JLOC.EQ.1 .OR. Z(IELMT+JLOC-8).NE.CARD(1)) GO TO 84 JLOC = JLOC - 7 GO TO 82 C C INSERT ELEMENT GRID POINTS INTO ELEMENT TABLE WORDS 3-6 C 84 DO 90 I = 1,NGRDS 90 Z(IELMT+JLOC+I) = CARD(I+2) IF (NGRDS .EQ. 3) Z(IELMT+JLOC+4) = -1 C C CHECK IF NEXT ENTRY IS FOR THE SAME STRUCTURAL ELEMENT C IF (JLOC+7.GE.NELMT .OR. Z(IELMT+JLOC+6).NE.CARD(1)) GO TO 80 JLOC = JLOC + 7 GO TO 84 C 100 CONTINUE C C PASS THROUGH ELEMENT TABLE AND CHECK THAT EACH ENTRY HAS GRIDS. C ALSO SWITCH THE STRUCTURE AND FLUID ELEMENTS IN THE TABLE FOR C FUTURE WORD WITH FLUID ID. C LELMT = IELMT + NELMT - 1 DO 110 I = IELMT,LELMT,7 IDS = Z(I ) Z(I) = Z(I+1) IF (Z(I+2) .NE. 0) GO TO 110 ERROR = .TRUE. WRITE (NOUT,8002) UFM,IDS IDS = 0 110 Z(I+1) = IDS C C ALLOCATE AND ZERO THE GRID POINT CONNECTIVE TABLE AT THE BOTTOM C OF CORE C C TABLE ENTRIES WILL BE AS FOLLOWS C C POSITIVE LESS THEN 1,000,000 - NUMBER OF STRUCTURAL POINTS C CONNECTED TO THIS FLUID POINT C MULTIPLES OF 1,000,000 - NUMBER OF FREE SURFACE POINTS C CONNECTED TO THIS FLUID POINT C NEGATIVE - NUMBER OF STRUCTURAL POINTS C CONNECTED TO THIS STRUCTURAL C POINT C IGRID = IBUF3 - NGRDT - 1 IF (IGRID .LT. ICORE) GO TO 1008 NGRID = NGRDT LGRID = IBUF3 - 1 DO 115 I = IGRID,LGRID 115 Z(I) = 0 C C LOCATE CFREE CARDS ON GEOM2 AND ADD THEM TO THE ELEMENT TABLE. C THESE ELEMENT RECORDS WILL APPEAR AS FOLLOWS C C WORD DESCRIPTION C C 1 FLUID ELEMENT ID C 2 -1 C 3 FACE ID C 4-6 ZERO C 7 GRAV ID C FILE = GEOM2 CALL LOCATE (*124,Z(IBUF1),CFREE,ID) NOFREE = 1 120 CALL READ (*1002,*130,GEOM2,ID,3,0,N) IF (ICORE+7 .GE. IGRID) GO TO 1008 Z(ICORE ) = ID(1) Z(ICORE+1) = -1 Z(ICORE+2) = ID(3) Z(ICORE+3) = 0 Z(ICORE+4) = 0 Z(ICORE+5) = 0 Z(ICORE+6) = ID(2) ICORE = ICORE + 7 GO TO 120 C C NO CFREE CARDS - THIS IMPLIES THAT THERE WILL BE NO FREE SURFACE C 124 NOFREE = -1 C C COMPLETE CORE ALLOCATION FOR THIS PHASE C 130 NELMT = ICORE - IELMT NELM = NELMT/7 CALL CLOSE (GEOM2,1) C C SORT ELEMENT TABLE BY FLUID ID C CALL SORT (0,0,7,1,Z(IELMT),NELMT) C C OPEN FBELM AND FRELM SCRATCH FILES C CALL GOPEN (FBELM,Z(IBUF1),1) CALL GOPEN (FRELM,Z(IBUF3),1) C C READ ECT AND PROCESS FLUID ELEMENTS C FILE = ECT CALL REWIND (ECT) CALL FWDREC (*1002,ECT) 140 CALL READ (*220,*1003,ECT,CARD,3,0,N) DO 150 I = 1,NFL IF (CARD(3) .EQ. ELMFL(I,1)) GO TO 160 150 CONTINUE C C SKIP RECORD BECAUSE NOT FLUID ELEMENT TYPE C CALL FWDREC (*1001,ECT) GO TO 140 C C PRECESS FLUID ELEMENT C 160 NTYPE = ELMFL(I,1) NWDS = ELMFL(I,3) C C READ DATA FOR ONE FLUID ELEMENT C 170 CALL READ (*1001,*140,ECT,CARD,NWDS,0,N) C C FIND IF FLUID ELEMENT IS ON FREE SURFACE OR STRUCTURAL BOUNDARY. C MAKE SURE BISLOC FINDS THE FIRST OF SEVERAL POSSIBLE ENTRIES. C CALL BISLOC (*170,CARD(1),Z(IELMT),7,NELM,JLOC) 175 IF (JLOC.EQ.1 .OR. Z(IELMT+JLOC-8).NE.CARD(1)) GO TO 180 JLOC = JLOC - 7 GO TO 175 C C DETERMINE IF ENTRY IS EITHER A BOUNDARY OR FREE SURFACE C DESCRIPTION - IGNORE ENTRY IF IT WAS IN ERROR DURING STRUCTURAL C ELEMENT PROCESSING C 180 IF (Z(IELMT+JLOC) .GT. 0) GO TO 190 IF (Z(IELMT+JLOC) .EQ. -1) GO TO 200 GO TO 210 C C THIS ENTRY DESCRIBES THE FLUID / STRUCTURE BOUNDARY - FIND THE C FLUID GRID POINTS WHICH COINCIDE WITH THE STRUCTURAL POINTS C 190 CALL FLFACE (NTYPE,CARD,Z(IELMT+JLOC-1),GRID) IF (ERROR) GO TO 210 C C INCLUDE CONNECTIONS IN GRID POINT CONNECTIVITY TABLE C 1) NUMBER OF STRUCTURE GRID POINTS CONNECTED TO EACH FLUID C 2) NUMBER OF STRUCTURAL GRID POINTS CONNECTED TO EACH C STRUCTURE POINT C NGRDF = 4 IF (GRID(4) .LT. 0) NGRDF = 3 NGRDS = 4 IF (Z(IELMT+JLOC+4) .LT. 0) NGRDS = 3 DO 192 I = 1,NGRDF J = GRID(I) - 1 192 Z(IGRID+J) = Z(IGRID+J) + NGRDS DO 194 I = 1,NGRDS J = Z(IELMT+JLOC+I) - 1 194 Z(IGRID+J) = Z(IGRID+J) - NGRDS C C WRITE 12 WORD RECORD FOR THIS ENTRY ON FBELM C C WORD DESCRIPTION C C 1 FLUID ELEMENT ID C 2 STRUCTURAL ELEMENT ID C 3-6 STRUCTURE GRID POINTS C 7 GRAVITY LOAD ID C 8 MATERIAL ID C 9-12 FLUID GRID POINTS C CALL WRITE (FBELM,Z(IELMT+JLOC-1),7,0) CALL WRITE (FBELM,CARD(2),1,0) CALL WRITE (FBELM,GRID,4,0) GO TO 210 C C THIS ENTRY DESCRIBES THE FREE SURFACE - FIND THE FLUIDS GRID C POINTS WHICH DEFINE THE FACE ID GIVEN C 200 CALL FLFACE (NTYPE,CARD,Z(IELMT+JLOC-1),GRID) IF (ERROR) GO TO 210 C C INCLUDE CONNECTIONS IN GRID POINT CONNECTIVITY TABLE C 1) NUMBER OF FREE SURFACE POINTS CONNECTED TO THIS FREE C SURFACE POINT C NGRDF = 4 IF (GRID(4) .LT. 0) NGRDF = 3 DO 202 I = 1,NGRDF J = GRID(I) - 1 202 Z(IGRID+J) = Z(IGRID+J) + NGRDF*1000000 C C WRITE 7 WORD RECORD ON FRELM FILE C C WORD DESCRIPTION C C 1 FLUID ELEMENT ID C 2 MATERIAL FLAG C 3-6 FLUID GRID POINTS C 7 GRAVITY LOAD ID C Z(IELMT+JLOC) = CARD(2) CALL WRITE (FRELM,Z(IELMT+JLOC-1),2,0) CALL WRITE (FRELM,GRID,4,0) CALL WRITE (FRELM,Z(IELMT+JLOC+5),1,0) C C FLAG THE ELEMENT TABLE ENTRY AS BEEN PROCESSED AND CHECK IF C THE NEXT ENTRY IS FOR THE SAME FLUID ELEMENT C 210 Z(IELMT+JLOC) = -2 IF (JLOC+7.GE.NELMT .OR. Z(IELMT+JLOC+6).NE.CARD(1)) GO TO 170 JLOC = JLOC + 7 GO TO 180 C 220 CALL CLOSE (ECT,1) CALL CLOSE (FBELM,1) CALL CLOSE (FRELM,1) MCB(1) = FBELM MCB(2) = NGRDT MCB(3) = NELM CALL WRTTRL (MCB) MCB(1) = FRELM CALL WRTTRL (MCB) C C MAKE ONE FINAL PASS THROUGH ELEMENT TABLE AND VERIFY THAT C EVERY FLUID ELEMENT WAS PROCESSED C LELMT = IELMT + NELMT - 1 DO 240 I = IELMT,LELMT,7 IF (Z(I+1) .EQ. -2) GO TO 240 IF (Z(I+1) .EQ. -1) GO TO 230 ERROR = .TRUE. WRITE (NOUT,8003) UFM,Z(I) GO TO 240 C 230 ERROR = .TRUE. WRITE (NOUT,8004) UFM,Z(I) C 240 CONTINUE C C ELEMENT TABLE IS NO LONGER NEEDED SO DELETE IT AND RETURN C ICORE = IELMT RETURN C C ERROR CONDITIONS C 1001 N = -1 GO TO 1100 1002 N = -2 GO TO 1100 1003 N = -3 GO TO 1100 1008 N = -8 1100 CALL MESAGE (N,FILE,NAME) C C NO FLUID / STRUCTURE BOUNDARY DEFINED. FATAL ERROR BECAUSE DMAP C CANNOT HANDLE THIS CONDITION C 1200 ERROR = .TRUE. WRITE (NOUT,8001) UFM RETURN C C ERROR FORMATS C 8001 FORMAT (A23,' 8001. THERE MUST BE A FLUID/STRUCTURE BOUNDARY IN ', 1 'HYDROELASTIC ANALYSIS.') 8002 FORMAT (A23,' 8002, ELEMENT ID',I9,' ON A CFLSTR CARD DOES NOT ', 1 'REFERENCE A VALID 2D STRUCTURAL ELEMENT.') 8003 FORMAT (A23,' 8003. ELEMENT ID',I9,' ON A CFLSTR CARD DOES NOT ', 1 'REFERENCE A VALID FLUID ELEMENT.') 8004 FORMAT (A23,' 8004. ELEMENT ID',I9,' ON A CFFREE CARD DOES NOT ', 1 'REFERENCE A VALID FLUID ELEMENT.') END ================================================ FILE: mis/flbema.f ================================================ SUBROUTINE FLBEMA (TYPE) C C ASSEMBLES THE AF OR DKGG MATRIX UTITLIZING THE ELEMENT C MATRICES GENERATED IN FLBEMG C C TYPE = 1 AFF MATRIX C TYPE = 2 DKGG MATRIX C LOGICAL ERROR ,SKIP INTEGER GEOM2 ,ECT ,BGPDT ,SIL ,MPT , 1 GEOM3 ,CSTM ,USET ,EQEXIN ,USETF , 2 USETS ,AF ,DKGG ,FBELM ,FRELM , 3 CONECT ,AFMAT ,AFDICT ,KGMAT ,KGDICT , 4 TYPE ,OUTMAT ,XMAT ,XDICT ,Z , 5 FILE ,NAME(2) ,MCB(7) ,ALLOC(3) ,DICT(2) , 6 TYPIN ,TYPOUT ,ROWSIL(4),COLSIL(12) , 7 OPTC ,OPTW ,RD ,RDREW ,WRT , 8 WRTREW ,REW ,NOREW ,TERMS(288) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /FLBFIL/ GEOM2 ,ECT ,BGPDT ,SIL ,MPT , 1 GEOM3 ,CSTM ,USET ,EQEXIN ,USETF , 2 USETS ,AF ,DKGG ,FBELM ,FRELM , 3 CONECT ,AFMAT ,AFDICT ,KGMAT ,KGDICT COMMON /ZZZZZZ/ Z(1) COMMON /FLBPTR/ ERROR ,ICORE ,LCORE ,IBGPDT ,NBGPDT , 1 ISIL ,NSIL ,IGRAV ,NGRAV ,IGRID , 2 NGRID ,IBUF1 ,IBUF2 ,IBUF3 ,IBUF4 , 3 IBUF5 COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,REW , 1 NOREW DATA NAME / 4HFLBE,4HMA / C C C ASSIGN FILES DEPENDING ON TYPE C GO TO (2,4), TYPE C C AF MATRIX C 2 OUTMAT = AF XMAT = AFMAT XDICT = AFDICT GO TO 6 C C DKGG MATRIX C 4 OUTMAT = DKGG XMAT = KGMAT XDICT = KGDICT C C ALLOCATE COLUMN POINTER VECTOR IN TOP OF CORE C 6 MCB(1) = USET CALL RDTRL(MCB) LUSET = MCB(3) ICOL = 1 NCOL = LUSET DO 10 I = 1,NCOL 10 Z(I) = 0 C C INITILIZE OPEN AND CLOSE OPTIONS C OPTW = WRTREW OPTC = NOREW C C POSITION CONNECT FILE TO PROPER RECORD C FILE = CONECT CALL OPEN (*1001,CONECT,Z(IBUF1),RDREW) IF (TYPE .EQ. 2) CALL SKPFIL (CONECT,1) CALL FWDREC (*1002,CONECT) CALL CLOSE (CONECT,NOREW) C C INITIALIZE PACK - UNPACK DATA C TYPIN = 2 TYPOUT = 2 MCB(1) = OUTMAT MCB(2) = 0 MCB(3) = LUSET MCB(4) = 3 - TYPE MCB(5) = TYPOUT MCB(6) = 0 MCB(7) = 0 C C SET UP CORE POINTERS C ICORE = NCOL + 1 LCORE = IBUF2 - 1 NCORE = LCORE - ICORE IF (NCORE .LT. 200) GO TO 1008 C SKIP = .FALSE. ILCOL = 0 C C C ALLOCATE ALL AVALABLE CORE FOR THIS PASS BY USE OF CONECT FILE C 30 IFCOL = ILCOL + 1 JCORE = ICORE FILE = CONECT C CALL GOPEN (CONECT,Z(IBUF1),RD) C IF (SKIP) GO TO 60 50 CALL READ (*70,*1008,CONECT,ALLOC,3,1,N) C 60 ISIL = ALLOC(1) Z(ISIL) = JCORE Z(JCORE) = JCORE + 1 JCORE = JCORE + 1 + ALLOC(2) + 2*ALLOC(3) IF(JCORE .GT. LCORE ) GO TO 80 ILCOL = ISIL GO TO 50 C C END OF RECORD ON CONECT - ALL COLUMNS ALLOCATED C 70 ILCOL = LUSET OPTC = REW GO TO 90 C C INSUFFICIENT CORE FOR NEXT COLUMN - SET FLAG TO SAVE CURRENT C CONECT ALLOCATION RECORD C 80 SKIP = .TRUE. C 90 CALL CLOSE (CONECT,OPTC) C C OPEN DICTIONARY AND MATRIX FILES AND PREPARE TO MAKE PASS C CALL GOPEN (XDICT,Z(IBUF1),RDREW) CALL GOPEN (XMAT,Z(IBUF2),RDREW) ICPOS = 0 C C READ XDICT ENTRY AND DETERMINE IF COLUMN IS IN CORE FOR THIS C PASS C 100 FILE = XDICT CALL READ (*1002,*200,XDICT,DICT,2,0,N) ISIL = DICT(1) IF (ISIL.LT.IFCOL .OR. ISIL.GT.ILCOL) GO TO 100 C C THE COLUMN IS IN CORE - OBTAIN MATRIX DATA FROM XMAT FILE IF C WE DO NOT ALREADY HAVE IT C IF (DICT(2) .EQ. ICPOS) GO TO 150 ICPOS = DICT(2) FILE = XMAT CALL FILPOS (XMAT,ICPOS) CALL READ (*1002,*1003,XMAT,ROWSIL,4,0,N) CALL READ (*1002,*1003,XMAT,COLSIL,4,0,N) NROW = 4 IF (ROWSIL(4) .LT. 0) NROW = 3 NCOL = 4 IF (COLSIL(4) .LT. 0) NCOL = 3 CALL READ (*1002,*110,XMAT,TERMS,289,0,NWDS) ICODE = 1 GO TO 8010 C C EXPAND COLSIL TO INCLUDE ALL SILS C 110 IF(NWDS .LT. 162) GO TO 130 DO 120 I = 1,4 J = 4 - I COLSIL(3*J+1) = COLSIL(J+1) COLSIL(3*J+2) = COLSIL(J+1) + 1 120 COLSIL(3*J+3) = COLSIL(J+1) + 2 NCOL = NCOL * 3 130 NTPERS = 2 IF(NWDS .LT. 54) GO TO 150 NTPERS = 6 C C LOCATE POSITION OF MATRIX TERMS FOR DESIRED SIL C 150 DO 160 KCOL = 1,NCOL IF (COLSIL(KCOL) .EQ. ISIL) GO TO 170 160 CONTINUE ICODE = 2 GO TO 8010 C 170 ILOC = (KCOL-1)*NROW*NTPERS + 1 C C EXTRACT MATRIX TERMS AND STORE THEM IN CORE C ICODE = 3 JCORE = Z(ISIL) IF (JCORE .EQ. 0) GO TO 8010 KCORE = Z(JCORE) DO 190 I = 1,NROW Z(KCORE) = ROWSIL(I) IF (NTPERS .EQ. 2) Z(KCORE) = -ROWSIL(I) KCORE = KCORE + 1 DO 180 J = 1,NTPERS Z(KCORE) = TERMS(ILOC) ILOC = ILOC + 1 180 KCORE = KCORE + 1 190 CONTINUE Z(JCORE) = KCORE C GO TO 100 C C END OF FILE ON XDICT - PREPARE TO PACK OUT COLUMNS IN CORE C 200 CALL CLOSE (XDICT,OPTC) CALL CLOSE (XMAT,OPTC) CALL GOPEN (OUTMAT,Z(IBUF1),OPTW) C C PACK OUT COLUMNS C DO 210 I = IFCOL,ILCOL CALL BLDPK (TYPIN,TYPOUT,OUTMAT,0,0) IF (Z(I) .EQ. 0) GO TO 210 C ILOC = Z(I) + 1 NLOC = Z(ILOC-1) - ILOC CALL PAKCOL (Z(ILOC),NLOC) C 210 CALL BLDPKN (OUTMAT,0,MCB) C CALL CLOSE (OUTMAT,OPTC) C C RETURN FOR ADDITIONAL PASS IF MORE NONZERO COLUMNS REMAIN C OPTW = WRT IF (ILCOL .LT. LUSET) GO TO 30 C C ALL COLUMNS PROCESSED - WRITE TRAILER AND RETURN C CALL WRTTRL (MCB) RETURN C C ERROR CONDITIONS C 1001 N = -1 GO TO 1100 1002 N = -2 GO TO 1100 1003 N = -3 GO TO 1100 1008 N = -8 GO TO 1100 C 1100 CALL MESAGE (N,FILE,NAME) C 8010 WRITE (NOUT,9010) SFM,ICODE 9010 FORMAT (A25,' 8010, LOGIC ERROR IN SUBROUTINE FLBEMA - CODE',I3/) N = -61 GO TO 1100 END ================================================ FILE: mis/flbemg.f ================================================ SUBROUTINE FLBEMG C C GENERATES ELEMENT AREA FACTOR AND GRAVITIATIONAL STIFFNESS C MATRICES C INTEGER GEOM2 ,ECT ,BGPDT ,SIL ,MPT 1 ,GEOM3 ,CSTM ,USET ,EQEXIN ,USETF 2 ,USETS ,AF ,DKGG ,FBELM ,FRELM 3 ,CONECT ,AFMAT ,AFDICT ,KGMAT ,KGDICT 4 ,Z ,GRAV(2) ,POS ,FRREC(7) ,FBREC(12) 5 ,FILE ,NAME(2) ,DICT(2) C LOGICAL ERROR ,NOCARD C DOUBLE PRECISION AFE(48) ,KGE(144) C C GINO FILES C COMMON / FLBFIL / GEOM2 ,ECT ,BGPDT ,SIL 1 ,MPT ,GEOM3 ,CSTM ,USET 2 ,EQEXIN ,USETF ,USETS ,AF 3 ,DKGG ,FBELM ,FRELM ,CONECT 4 ,AFMAT ,AFDICT ,KGMAT ,KGDICT C C OPEN CORE C COMMON / ZZZZZZ / Z(1) C C CORE POINTERS C COMMON / FLBPTR / ERROR ,ICORE ,LCORE ,IBGPDT 1 ,NBGPDT ,ISIL ,NSIL ,IGRAV 2 ,NGRAV ,IGRID ,NGRID ,IBUF1 3 ,IBUF2 ,IBUF3 ,IBUF4 ,IBUF5 C C MODULE PARAMETERS C COMMON /BLANK/ NOGRAV ,NOFREE ,TILT(2) C DATA NAME / 4HFLBE,4HMG / DATA GRAV / 4401 , 44 / C C*********************************************************************** C C READ MATERIAL PROPERTY DATA INTO CORE C IMAT = ICORE NZ = IBUF5 - IMAT CALL PREMAT(Z(IMAT),Z(IMAT),Z(IBUF1),NZ,NMAT,MPT,0) C C READ CSTM DATA INTO CORE C ICSTM = IMAT + NMAT NCSTM = 0 NZ = IBUF5 - ICSTM FILE = CSTM CALL OPEN(*20,CSTM,Z(IBUF1),0) CALL FWDREC(*1002,CSTM) CALL READ(*1002,*10,CSTM,Z(ICSTM),NZ,0,NCSTM) GO TO 1008 10 CALL CLOSE(CSTM,1) CALL PRETRD(Z(ICSTM),NCSTM) C C READ GRAV DATA INTO CORE C 20 IGRAV = ICSTM + NCSTM NGRAV = 0 NZ = IBUF5 - IGRAV NOGRAV = -1 NOCARD = .TRUE. FILE = GEOM3 CALL PRELOC(*40,Z(IBUF1),GEOM3) CALL LOCATE(*30,Z(IBUF1),GRAV,ID) NOCARD = .FALSE. CALL READ(*1002,*30,GEOM3,Z(IGRAV),NZ,0,NGRAV) GO TO 1008 C 30 CALL CLOSE(GEOM3,1) 40 CONTINUE C C OPEN MATRIX AND DICTIONARY FILES C CALL GOPEN(AFMAT,Z(IBUF2),1) CALL GOPEN(AFDICT,Z(IBUF4),1) IF(NOCARD) GO TO 60 CALL GOPEN(KGMAT,Z(IBUF3),1) CALL GOPEN(KGDICT,Z(IBUF5),1) C C C PASS THROUGH FBELM FILE AND PROCESS EACH ENTRY ON THE BOUNDARY. C SUBROUTINE BOUND WILL GENERATE THE ELEMENT MATRICES FOR C EACH ENTRY. C 60 FILE = FBELM CALL GOPEN(FBELM,Z(IBUF1),0) 70 CALL READ(*1002,*120,FBELM,FBREC,12,0,N) C CALL BOUND(FBREC,AFE,NAFE,KGE,NKGE) IF(ERROR) GO TO 70 C C CONVERT GRID POINTS TO SILS C DO 80 I=1,4 J = FBREC(I+2) - 1 IF(J .GE. 0) FBREC(I+2) = Z(ISIL+J) J = FBREC(I+8) - 1 IF(J .GE. 0) FBREC(I+8) = Z(ISIL+J) 80 CONTINUE C C WRITE AREA MATRICES AND DICTIONARY ENTRUES C CALL WRITE(AFMAT,FBREC(3),4,0) CALL WRITE(AFMAT,FBREC(9),4,0) CALL WRITE(AFMAT,AFE,NAFE,1) CALL SAVPOS(AFMAT,POS) DICT(2) = POS DO 90 I=1,4 DICT(1) = FBREC(I+8) IF(DICT(1) .LT. 0) GO TO 90 CALL WRITE(AFDICT,DICT,2,0) 90 CONTINUE C C WRITE GRAVITATIONAL STIFFNESS MATRICES IF THEY EXIST C IF(NKGE .EQ. 0) GO TO 70 CALL WRITE(KGMAT,FBREC(3),4,0) CALL WRITE(KGMAT,FBREC(3),4,0) CALL WRITE(KGMAT,KGE,NKGE,1) CALL SAVPOS(KGMAT,POS) DICT(2) = POS DO 110 I=1,4 JSIL = FBREC(I+2) IF(JSIL .LT. 0) GO TO 110 DO 100 J=1,3 DICT(1) = JSIL CALL WRITE(KGDICT,DICT,2,0) 100 JSIL = JSIL + 1 110 CONTINUE C GO TO 70 120 CALL CLOSE(FBELM,1) C C C PASS THROUGH FRELM FILE AND PROCESS EACH ENTRY ON THE FREE C SURFACE. SUBROUTINE FLFREE WILL CALCULATE THE AREA AND C GRAVITATIONAL STIFFNESS MATRICES FOR EACH ENTRY C IF(NOFREE .LT. 0) GO TO 180 FILE = FRELM CALL GOPEN(FRELM,Z(IBUF1),0) 130 CALL READ(*1002,*170,FRELM,FRREC,7,0,N) C CALL FLFREE(FRREC,AFE,NAFE,KGE,NKGE) IF(ERROR) GO TO 130 C C CONVERT GRID POINTS TO SILS C DO 140 I=1,4 J = FRREC(I+2) - 1 IF(J .GE. 0) FRREC(I+2) = Z(ISIL+J) 140 CONTINUE C C WRITE AREA MATRICES AND DICTIONARY ENTRIES C CALL WRITE(AFMAT,FRREC(3),4,0) CALL WRITE(AFMAT,FRREC(3),4,0) CALL WRITE(AFMAT,AFE,NAFE,1) CALL SAVPOS(AFMAT,POS) DICT(2) = POS DO 150 I=1,4 DICT(1) = FRREC(I+2) IF(DICT(1) .LT. 0) GO TO 150 CALL WRITE(AFDICT,DICT,2,0) 150 CONTINUE C C WRITE GRAVITATIONAL STIFFNESS MATRICES IF THEY EXIST C IF(NKGE .EQ. 0) GO TO 130 CALL WRITE(KGMAT,FRREC(3),4,0) CALL WRITE(KGMAT,FRREC(3),4,0) CALL WRITE(KGMAT,KGE,NKGE,1) CALL SAVPOS(KGMAT,POS) DICT(2) = POS DO 160 I=1,4 DICT(1) = FRREC(I+2) IF(DICT(1) .LT. 0) GO TO 160 CALL WRITE(KGDICT,DICT,2,0) 160 CONTINUE C GO TO 130 170 CALL CLOSE(FRELM,1) C C CLOSE FILES AND RETURN C 180 CALL CLOSE(AFMAT,1) CALL CLOSE(AFDICT,1) IF(NOCARD) GO TO 190 CALL CLOSE(KGMAT,1) CALL CLOSE(KGDICT,1) C 190 CONTINUE RETURN C C ERROR CONDITIONS C 1002 N = -2 GO TO 1100 1008 N = -8 1100 CALL MESAGE(N,FILE,NAME) RETURN END ================================================ FILE: mis/flbmg.f ================================================ SUBROUTINE FLBMG C C DRIVER FOR MODULE FLBMG C C COMPUTES THE HYDROELASTIC AREA FACTOR MATRIX AND THE C GRAVITATIONAL STIFFNESS MATRIX. C C THE HYDROELASTIC USET VECTOR IA ALSO BUILT. C C DMAP CALL C C FLBMG GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/ C USETF,USETS,AF,DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $ C C INPUT DATA BLOCKS C C GEOM2 - FLUID ELEMENT BOUNDARY DATA C ECT - ELEMENT CONNECTION TABLE C BGPDT - BASIC GRID POINT DEFINITION TABLE C SIL - SCALAR INDEX LIST C MPT - MATERIAL PROPERTIES TABLE C GEOM3 - GRAVITY LOAD DATA C CSTM - COORDINATE SYSTEM TRANSFORMATION MATRICES C USET - DISPLACEMENT SET DEFINITION TABLE C EQEXIN - EQUIVALENCE BETWEEN EXTERNAL AND INTERNAL GRID POINTS C C OUTPUT DATA BLOCK C C USETF - FLUID AND STRUCTURAL POINT SET DEFINITION TABLE C USETS - STRUCTURAL POINT SET DEFINITION TABLE C AF - FLUID AREA FACTOR MATRIX C DKGG - STRUCTURAL GRAVITY STIFFNESS AMTRIX C C PARAMETERS C C NOGRAV - INPUT - FLAG WHICH SPECIFIES WHETHER GRAVITY C EFFECTS ARE TO BE COMPUTED. C NOFREE - OUTPUT - FLAG WHICH SPECIFIES WHETHER A FLUID FREE C SURFACE EXISTS. C TILT - OUTPUT - FREE SURFACE TILT VECTOR USED IN PLOTTING C C USER PRINT OPTIONS C C DIAG 32 - PRINTS HYDROELASTIC SET DEFINITION. C DIAG 33 - PRINTS HYDROELASTIC DEGREE OF FREEDOM DEFINITION. C C LOGICAL ERROR INTEGER GEOM2 ,ECT ,BGPDT ,SIL ,MPT , 1 GEOM3 ,CSTM ,USET ,EQEXIN ,USETF , 2 USETS ,AF ,DKGG ,FBELM ,FRELM , 3 CONECT ,AFMAT ,AFDICT ,KGMAT ,KGDICT , 4 Z1 ,Z2(1) ,SYSBUF CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /FLBFIL/ GEOM2 ,ECT ,BGPDT ,SIL ,MPT , 1 GEOM3 ,CSTM ,USET ,EQEXIN ,USETF , 2 USETS ,AF ,DKGG ,FBELM ,FRELM , 3 CONECT ,AFMAT ,AFDICT ,KGMAT ,KGDICT COMMON /FLBPTR/ ERROR ,ICORE ,LCORE ,IBGPDT ,NBGPDT , 1 ISIL ,NSIL ,IGRAV ,NGRAV ,IGRID , 2 NGRID ,IBUF1 ,IBUF2 ,IBUF3 ,IBUF4 , 3 IBUF5 COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /BLANK / NOGRAV ,NOFREE ,TILT(2) COMMON /ZZZZZZ/ Z1(1) EQUIVALENCE (Z2(1),Z1(1)) C C C INITILIZE OPEN CORE FOR ELEMENT MATRIX GENERATION PHASE C ERROR =.FALSE. LCORE = KORSZ(Z1(1)) ICORE = 1 IBUF1 = LCORE - SYSBUF - 1 IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF IBUF5 = IBUF4 - SYSBUF C C PROCESS FLUID ELEMENTS ON THE FLUID / STRUCTURE BOUNDARY C AND THE FREE SURFACE . C CALL FLBELM IF (ERROR) GO TO 20 C C BUILD THE HYDROELASTIC USET VECTOR C CALL FLBSET IF (ERROR) GO TO 20 C C GENERATE THE ELEMENT MATRICES C CALL FLBEMG IF (ERROR) GO TO 20 C C INITIALIZE CORE FOR THE MATRIX ASSEMBLY PHASE C LCORE = KORSZ(Z2(1)) ICORE = 1 IBUF1 = LCORE - SYSBUF - 1 IBUF2 = IBUF1 - SYSBUF C C ASSEMBLE THE AREA FACTOR MATRIX C CALL FLBEMA (1) C C IF GRAVITY LOADS - ASSEMBLE THE GRAVITY STIFFNESS MATRIX C IF (NOGRAV .LT. 0) GO TO 10 CALL FLBEMA (2) C C MODULE COMPLETION C 10 CONTINUE RETURN C C FATAL ERROR OCCURED DURING PROCESSING - TERMINATE RUN C 20 WRITE (NOUT,30) UIM 30 FORMAT (A29,' 8000, MODULE FLBMG TERMINATED DUE TO ABOVE ERRORS.') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/flbprt.f ================================================ SUBROUTINE FLBPRT (IUSET,IEQEX,IBUF) C C HYDROELEASTIC USET OUTPUT C C PRINTS DOF VS. DISP SETS IF DIAG 32 IS ON. C PRINTS DISP SETS VS. DOF IF DIAG 33 IS ON. C EXTERNAL ANDF INTEGER Z ,SYSBUF ,EQEXIN ,D32 ,D33 , 1 FILE ,NAME(2) ,MSK(17) ,ZGRD(10) ,TITLE(3,9) 2, ZDOF(10) ,TWO ,UM ,UO ,UR , 3 USG ,USB ,UL ,UA ,UF , 4 US ,UN ,UG ,UX ,UY , 5 UFR ,UZ ,UAB ,UI ,DASH , 6 ASTRIC ,BLANK ,SBIT(17) ,EXPNT ,UPBIT(17), 7 ANDF CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /FLBFIL/ DUM1(8) ,EQEXIN COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF ,NOUT ,DUM2(6) ,NLPP , 1 DUM3 ,NPAGE ,LINE COMMON /TWO / TWO(32) COMMON /BITPOS/ UM ,UO ,UR ,USG , 1 USB ,UL ,UA ,UF , 2 US ,UN ,UG ,UE , 3 UP ,UNE ,UFE ,UD , 4 UPS ,USA ,UK ,UPA , 5 U21 ,U22 ,U23 ,UX , 6 UY ,UFR ,UZ ,UAB , 7 UI DATA NAME / 4HFLBP , 4HRT / DATA TITLE / 4H , 4H , 4H MPC , 1 4H , 4H , 4H SPC , 2 4H , 4H , 4HOMIT , 3 4H , 4HANAL , 4HYSIS , 4 4H , 4HPERM , 4H SPC , 5 4H , 4HBDRY , 4H SPC , 6 4H S , 4HTRUC , 4HTURE , 7 4H , 4H F , 4HLUID , 8 4HFREE , 4H SUR , 4HFACE / DATA BLANK / 1H / , DASH / 1H- / , ASTRIC / 1H* / C C C DETERMINE IF ANY OUTPUT IS REQUESTED C CALL SSWTCH (32,D32) CALL SSWTCH (33,D33) IF (D32.EQ.0 .AND. D33.EQ.0) RETURN C C READ EQEXIN INTO CORE C FILE = EQEXIN CALL OPEN (*1001,EQEXIN,Z(IBUF),0) CALL FWDREC (*1002,EQEXIN) CALL FWDREC (*1002,EQEXIN) NZ = IBUF - IEQEX CALL READ (*1002,*10,EQEXIN,Z(IEQEX),NZ,1,NEQEX) GO TO 1008 10 CALL CLOSE (EQEXIN,1) C C SORT ON INTERNAL ID C CALL SORT (0,0,2,2,Z(IEQEX),NEQEX) C C SET UP USET MASKS FOR DOF VS. DISP SET PRINTOUT C IF (D32 .EQ. 0) GO TO 100 MSK( 1) = TWO(USB) MSK( 2) = TWO(USG) MSK( 3) = TWO( UL) MSK( 4) = TWO( UA) MSK( 5) = TWO( UF) MSK( 6) = TWO( UN) MSK( 7) = TWO( UG) MSK( 8) = TWO( UR) MSK( 9) = TWO( UO) MSK(10) = TWO( US) MSK(11) = TWO( UM) MSK(12) = TWO( UX) MSK(13) = TWO( UY) MSK(14) = TWO(UFR) MSK(15) = TWO( UZ) MSK(16) = TWO(UAB) MSK(17) = TWO( UI) C DO 20 I = 1,17 20 SBIT(I) = 0 C C PASS THROUGH EQEXIN TABLE AND DETERMINE NUMBER OF DOF FOR EACH C POINT C JUSET = IUSET - 1 LINE = NLPP INPNT = 0 DO 60 K = 1,NEQEX,2 ITYPE = MOD(Z(IEQEX+K),10) NDOF = 6 IF (ITYPE .EQ. 2) NDOF = 1 C C FOR EACH DOF - GET USET ENTRY AND TEST VARIOUS MACK BITS C DO 50 KK = 1,NDOF JUSET = JUSET + 1 IU = Z(JUSET) INPNT = INPNT + 1 EXPNT = Z(IEQEX+K-1) IDOF = KK IF (NDOF .EQ. 1) IDOF = 0 DO 30 IBIT = 1,17 IF (ANDF(MSK(IBIT),IU) .NE. 0) GO TO 25 UPBIT(IBIT) = BLANK GO TO 30 25 UPBIT(IBIT) = ASTRIC SBIT (IBIT) = SBIT(IBIT) + 1 30 CONTINUE C C PRINT LINE OF OUTPUT C LINE = LINE + 1 IF (LINE .LE. NLPP) GO TO 40 CALL PAGE1 WRITE (NOUT,2000) LINE = 1 40 WRITE (NOUT,2010) INPNT,EXPNT,DASH,IDOF,UPBIT 50 CONTINUE 60 CONTINUE C C PRINT COLUMN TOTALS C WRITE (NOUT,2020) SBIT C C SET UP MASKS FOR DISP SET VS. DOF PRINTOUT C 100 IF (D33 .EQ. 0) RETURN MSK( 1) = TWO( UM) MSK( 2) = TWO( US) MSK( 3) = TWO( UO) MSK( 4) = TWO( UA) MSK( 5) = TWO(USG) MSK( 6) = TWO(USB) MSK( 7) = TWO( UX) MSK( 8) = TWO( UY) MSK( 9) = TWO(UFR) C C PASS THROUGH EQEXIN TABLE ONCE FOR EACH DISP SET TO BE PRINTED C DO 150 IMK = 1,9 INUM = -9 ICOL = 0 LINE = NLPP JUSET = IUSET - 1 DO 130 K = 1,NEQEX,2 ITYPE = MOD(Z(IEQEX+K),10) NDOF = 6 IF (ITYPE .EQ. 2) NDOF = 1 C C FOR EACH DOF - TEST IF IT IS IN DESIRED SET FOR THIS PASS C EXPNT = Z(IEQEX+K-1) DO 120 KK = 1,NDOF JUSET = JUSET + 1 IF (ANDF(Z(JUSET),MSK(IMK)) .EQ. 0) GO TO 120 IDOF = KK IF (NDOF .EQ. 1) IDOF = 0 ICOL = ICOL + 1 ZGRD(ICOL) = EXPNT ZDOF(ICOL) = IDOF IF (ICOL .LT. 10) GO TO 120 C C WE HAVE ACUMULATED 10 POINTS - PRINT THEM C ICOL = 0 LINE = LINE + 1 IF (LINE .LE. NLPP) GO TO 110 CALL PAGE1 WRITE (NOUT,2030) (TITLE(I,IMK),I=1,3) LINE = 1 110 INUM = INUM + 10 WRITE (NOUT,2040) INUM,(ZGRD(I),ZDOF(I),I=1,10) C 120 CONTINUE 130 CONTINUE C C PRINT ANY REMAINING ENTRIES C IF (ICOL .EQ. 0) GO TO 150 LINE = LINE + 1 IF (LINE .LE. NLPP) GO TO 140 CALL PAGE1 WRITE (NOUT,2030) (TITLE(I,IMK),I=1,3) LINE = 1 140 INUM = INUM + 10 WRITE (NOUT,2040) INUM,(ZGRD(I),ZDOF(I),I=1,ICOL) C 150 CONTINUE C C PRINT OUT COMPLETE C RETURN C C ERROR CONDITIONS - PRINT NON-FATAL MESSAGE C 1001 N = 1 GO TO 1100 1002 N = 2 GO TO 1100 1008 WRITE (NOUT,2050) UWM RETURN 1100 CALL MESAGE (N,FILE,NAME) RETURN C C FORMAT STATEMENTS C 2000 FORMAT (//12X,'INT DOF EXT GP. DOF SB SG L A F ', 1 'N G R O S M X Y FR Z AB I', 2 /1X,131(1H-)) 2010 FORMAT (10X,I8,1X,I8,1X,A1,I2,1X,17(4X,A1)) 2020 FORMAT (1H0,31H-- C O L U M N T O T A L S -- ,17I5) 2030 FORMAT (45X,3A4,17H DISPLACEMENT SET, //16X,3H-1-,8X,3H-2-,8X, 1 3H-3-,8X,3H-4-,8X,3H-5-,8X,3H-6-,8X,3H-7-,8X,3H-8-,8X, 2 3H-9-,7X,4H-10- ,/1H ) 2040 FORMAT (1H ,I6,1H=,10(1X,I8,1H-,I1)) 2050 FORMAT (A25,' 8011, INSUFFICIENT CORE TO HOLD CONTENTS OF EQEXIN', 1 ' DATA BLOCK', /31X,'HYDROELASTIC USET PRINTOUT TERMINATED.') END ================================================ FILE: mis/flbset.f ================================================ SUBROUTINE FLBSET C C CONSTRUCTS THE HYDROELASTIC USET VECTOR AND WRITES THE CONECT C FILE FOR USE IN CORE ALLOCATION DURING MATRIX ASSEMBLY C EXTERNAL COMPLF ,RSHIFT ,ANDF ,ORF C LOGICAL ERROR C INTEGER GEOM2 ,ECT ,BGPDT ,SIL ,MPT 1 ,GEOM3 ,CSTM ,USET ,EQEXIN ,USETF 2 ,USETS ,AF ,DKGG ,FBELM ,FRELM 3 ,CONECT ,AFMAT ,AFDICT ,KGMAT ,KGDICT 4 ,Z ,GROUP(3) ,TWO ,UX ,UY 5 ,UFR ,UZ ,UAB ,UI ,UA 6 ,MCB(7) ,NAME(2) ,FILE ,TOTAL ,NAM(2) C INTEGER ANDF ,ORF ,COMPLF ,RSHIFT C C MACHINE AND HALF WORD C COMMON / MACHIN / MACH ,IHALF ,JHALF C C GINO FILES C COMMON / FLBFIL / GEOM2 ,ECT ,BGPDT ,SIL 1 ,MPT ,GEOM3 ,CSTM ,USET 2 ,EQEXIN ,USETF ,USETS ,AF 3 ,DKGG ,FBELM ,FRELM ,CONECT 4 ,AFMAT ,AFDICT ,KGMAT ,KGDICT C C CORE POINTERS C COMMON / FLBPTR / ERROR ,ICORE ,LCORE ,IBGPDT 1 ,NBGPDT ,ISIL ,NSIL ,IGRAV 2 ,NGRAV ,IGRID ,NGRID ,IBUF1 3 ,IBUF2 ,IBUF3 ,IBUF4 ,IBUF5 C C OPEN CORE C COMMON / ZZZZZZ / Z(1) C C POWERS OF TWO C COMMON /TWO / TWO(32) C C USET PIT POSITIONS C COMMON /BITPOS / BIT1(6) ,UA ,BIT2(16) ,UX 1 ,UY ,UFR ,UZ ,UAB 2 ,UI C DATA NAME / 4HFLBS,4HET / DATA NAM / 4HCONE,4HCT / DATA MCB / 7*0 / C C*********************************************************************** C C READ SIL INTO CORE C FILE = SIL ISIL = ICORE NZ = IGRID - ISIL - 1 CALL GOPEN (SIL,Z(IBUF1),0) CALL READ (*1002,*10,SIL,Z(ISIL),NZ,0,NSIL) GO TO 1008 10 CALL CLOSE (SIL,1) C C WRITE OUT CONECT FILE C C FILE 1 - FOR USE IN ASSEMBLING AF MATRIX, CONTAINS SILS WHICH C CONNECT FLUID POINTS TO STRUCTURE POINTS ALONG THE C BOUNDARY AND SILS WHICH CONNECT FLUID POINTS ALONG THE C FREE SURFACE C FILE 2 - FOR USE IN ASSEMBLING THE DKGG MATRIX, CONTAINS SILS C WHICH CONNECT STRUCTURE POINTS ALONG THE BOUNDARY AND C SILS WHICH CONNECT FLUID POINTS ALONG THE FREE SURFACE C C EACH FILE IS COMPOSED OF A 3 WORD RECORD FOR EACH SIL C C WORD DESCRIPTION C C 1 SIL NUMBER C 2 MAXIMUN GRID POINTS CONNECTED C 3 MAXIMUM SILS CONNECTED C FILE = CONECT CALL OPEN (*1001,CONECT,Z(IBUF1),1) C C FILE 1 C CALL WRITE (CONECT,NAM,2,1) DO 20 I = 1,NGRID J = IGRID + I - 1 IF (Z(J) .LE. 0) GO TO 20 NFR = Z(J) / 1000000 NFL = Z(J) - NFR*1000000 GROUP(1) = Z(ISIL+I-1) GROUP(2) = NFR+NFL GROUP(3) = NFR + 3*NFL CALL WRITE (CONECT,GROUP,3,1) 20 CONTINUE CALL EOF (CONECT) C C FILE 2 C CALL WRITE (CONECT,NAM,2,1) DO 60 I = 1,NGRID J = IGRID + I - 1 IF (Z(J) .GE. 0 .AND. Z(J) .LT. 1000000) GO TO 60 IF (Z(J) .GT. 0) GO TO 30 NGROUP = 3 NNGRID = IABS(Z(J)) NNSIL = NNGRID*3 GO TO 40 30 NGROUP = 1 NNGRID = Z(J) / 1000000 NNSIL = NNGRID 40 JSIL = Z(ISIL+I-1) DO 50 J = 1,NGROUP GROUP(1) = JSIL GROUP(2) = NNGRID GROUP(3) = NNSIL CALL WRITE (CONECT,GROUP,3,1) 50 JSIL = JSIL + 1 60 CONTINUE C CALL CLOSE (CONECT,1) MCB(1) = CONECT MCB(2) = NGRID CALL WRTTRL (MCB) C C READ USET TABLE INTO CORE C FILE = USET IUSET = ISIL + NSIL + 1 NZ = IGRID - IUSET - 1 CALL GOPEN (USET,Z(IBUF1),0) CALL READ (*1002,*70,USET,Z(IUSET),NZ,0,NUSET) GO TO 1008 70 CALL CLOSE (USET,1) C C CONSTRUCT A LIST OF FREE SURFACE GRID POINTS BY PASSING THROUGH C THE GRID POINT CONNECTIVITY TABLE. C ICORE = IUSET + NUSET IFREE = ICORE DO 80 I = 1,NGRID IF (Z(IGRID+I-1) .LT. 1000000) GO TO 80 Z(ICORE) = I ICORE = ICORE + 1 IF (ICORE .GE. IGRID) GO TO 1008 80 CONTINUE NFREE = ICORE - IFREE C C PASS THROUGH SIL AND PROCESS EACH GRID POINT TO SET THE C APPROPRIATE BIT POSITIONS IN THE NEW USET C C *** NOTE. C THE UW BIT IS NO LONGER USED. INSTEAD THE UA BIT WILL REFLECT C THE SOLUTION SET (UAB + UFR) C Z(ISIL+NSIL) = NUSET + 1 NSTR = 0 TOTAL = 0 MASKA = COMPLF(TWO(UA)) JUSET = IUSET DO 110 IGRD = 1,NSIL K = IBGPDT + 4*(IGRD-1) ICSTM = Z(K) IF (ICSTM .EQ. -1) GO TO 82 IF (Z(ISIL+IGRD) .EQ. Z(ISIL+IGRD-1)+1) GO TO 100 C C STURCTURE POINT - SET UX AND UZ. ALSO SET UAB IF UA IS SET C NNSIL = 6 GO TO 84 82 NNSIL = 1 84 NSTR = NSTR + NNSIL DO 90 J = 1,NNSIL Z(JUSET) = ORF(Z(JUSET),TWO(UX)) Z(JUSET) = ORF(Z(JUSET),TWO(UZ)) IF (ANDF(Z(JUSET),TWO(UA)) .EQ. 0) GO TO 85 Z(JUSET) = ORF(Z(JUSET),TWO(UAB)) 85 CONTINUE TOTAL = ORF(TOTAL,Z(JUSET)) 90 JUSET = JUSET + 1 GO TO 110 C C FLUID POINT - SET Y BIT. C 100 Z(JUSET) = ORF(Z(JUSET),TWO(UY)) CALL BISLOC (*102,IGRD,Z(IFREE),1,NFREE,JLOC) C C FREE SURFACE FLUID POINT - SET UFR, UA AND UZ BITS C Z(JUSET) = ORF(Z(JUSET),TWO(UFR)) Z(JUSET) = ORF(Z(JUSET),TWO(UA)) Z(JUSET) = ORF(Z(JUSET),TWO(UZ)) GO TO 106 C C INTERIOR FLUID POINT - SET UI BIT AND TURN OF UA BIT C 102 Z(JUSET) = ORF(Z(JUSET),TWO(UI)) Z(JUSET) = ANDF(Z(JUSET),MASKA) C 106 CONTINUE TOTAL = ORF(TOTAL,Z(JUSET)) JUSET = JUSET + 1 110 CONTINUE C C WRITE OUT NEW USETF VECTOR C CALL GOPEN (USETF,Z(IBUF1),1) CALL WRITE (USETF,Z(IUSET),NUSET,1) CALL CLOSE (USETF,1) MCB(1) = USETF MCB(2) = 0 MCB(3) = NUSET MCB(4) = RSHIFT(TOTAL,IHALF) MCB(5) = ANDF(TOTAL,JHALF) CALL WRTTRL (MCB) C C WRITE OUT NEW USETS VECTOR C CALL GOPEN (USETS,Z(IBUF1),1) LUSET = IUSET + NUSET - 1 DO 120 I = IUSET,LUSET IF (ANDF(Z(I),TWO(UX)) .EQ. 0) GO TO 120 CALL WRITE (USETS,Z(I),1,0) 120 CONTINUE CALL CLOSE (USETS,1) MASK = COMPLF(ORF(TWO(UY),TWO(UFR))) TOTAL = ANDF(TOTAL,MASK) MCB(1) = USETS MCB(3) = NSTR MCB(4) = RSHIFT(TOTAL,IHALF) MCB(5) = ANDF(TOTAL,JHALF) CALL WRTTRL (MCB) C C PRINT NEW USET VECTOR IF USER REQUESTS C ICORE = IUSET + NUSET CALL FLBPRT (IUSET,ICORE,IBUF1) C C USET PROCESSING COMPLETED C ICORE = IUSET RETURN C C ERROR CONDITIONS C 1001 N = -1 GO TO 1100 1002 N = -2 GO TO 1100 1008 N = -8 1100 CALL MESAGE (N,FILE,NAME) RETURN END ================================================ FILE: mis/flface.f ================================================ SUBROUTINE FLFACE (TYPE,ECT,ELT,GRID) C C LOCATES THE FLUID GRID POINTS DEFINING THE FACE OF A FLUID C ELEMENT. THE FACE MAY BE SPECIFIED IN TWO MANNERS. C C 1) FACE NUMBER - ELT(2) LESS THEN ZERO AND FACE = ELT(3) C 2) STRUCTURAL ELEMENT WHICH COINCIDES WITH FACE - C ELT(2) = ELEMENT ID AND ELT(3)-ELT(6) = GRIDS C LOGICAL ERROR INTEGER ECT(10) ,ELT(7) ,GF(10) ,TYPE ,GRID(4) , 1 GS1 ,GS2 ,GS3 ,GS4 ,GF1 , 2 GF2 ,GF3 ,GF4 ,GRIDF(4) ,NFACE(4) , 3 FACEID ,HEX1(4,6),HEX2(4,6),TETRA(4,4) , 4 WEDGE(4,5) ,FACE(4,6,4) REAL MAG ,R1(3) ,R2(3) ,R3(3) ,KS(3) , 1 KF(3) ,CS(3) ,ANGLE(6) ,Z ,HEIGTH(6) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /FLBPTR/ ERROR ,ICORE ,LCORE ,IBGPDT ,NBGPDT COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF ,NOUT EQUIVALENCE (HEX1(1,1),FACE(1,1,1)), (HEX2(1,1),FACE(1,1,2)), 1 (TETRA(1,1),FACE(1,1,3)), (WEDGE(1,1),FACE(1,1,4)) C C DATA DEFINING FACES OF THE FLUID ELEMENTS C C NUMBER OF GRID POINTS PER ELEMENT C C FHEX1 FHEX2 FTETRA FWEDGE C DATA GRIDF / 8 ,8 ,4 ,6 / C C NUMBER OF FACES ON EACH ELEMENT C DATA NFACE / 6 ,6 ,4 ,5 / C C GRID POINTS WHICH DEFINE FACES FOR FHEX1 ELEMENTS C DATA HEX1 / 1 ,4 ,3 ,2 , 1 1 ,2 ,6 ,5 , 2 2 ,3 ,7 ,6 , 3 3 ,4 ,8 ,7 , 4 4 ,1 ,5 ,8 , 5 5 ,6 ,7 ,8 / C C GRID POINTS WHICH DEFINE FACES FOR FHEX2 ELEMENTS C DATA HEX2 / 1 ,4 ,3 ,2 , 1 1 ,2 ,6 ,5 , 2 2 ,3 ,7 ,6 , 3 3 ,4 ,8 ,7 , 4 4 ,1 ,5 ,8 , 5 5 ,6 ,7 ,8 / C C GRID POINTS WHICH DEFINE FACES FOR FTETRA ELEMENTS C DATA TETRA / 1 ,3 ,2 ,-1 , 1 1 ,2 ,4 ,-1 , 2 2 ,3 ,4 ,-1 , 3 3 ,1 ,4 ,-1 / C C GRID POINTS WHICH DEFINE FACES FOR FWEDGE ELEMENTS C DATA WEDGE / 1 ,3 ,2 ,-1 , 1 1 ,2 ,5 ,4 , 2 2 ,3 ,6 ,5 , 3 3 ,1 ,4 ,6 , 4 4 ,5 ,6 ,-1 / C C C DETERMINE HOW THE FACE IS SPECIFIED C C SUBTRACT IFP CARD NUMBER OF ELEMENT JUST BEFORE CFHEX1 FROM TYPE INTYPE = TYPE - 332 C NF = NFACE(INTYPE) IF (ELT(2) .LT. 0) GO TO 200 C C THE FACE IS DEFINED BY STRUCTURAL GRIDS C C INITIALIZE POINTERS TO GRID POINT DATA C NGRIDS = 4 IF (ELT(6) .LT. 0) NGRIDS = 3 GS1 = IBGPDT + (ELT(3)-1)*4 GS2 = IBGPDT + (ELT(4)-1)*4 GS3 = IBGPDT + (ELT(5)-1)*4 GS4 = -1 IF (NGRIDS .EQ. 4) GS4 = IBGPDT + (ELT(6)-1)*4 C NGRIDF = GRIDF(INTYPE) DO 10 I = 1,NGRIDF 10 GF(I) = IBGPDT + (ECT(I+2)-1)*4 C C FIND NORMAL VECTOR TO STRUCTURAL ELEMENT FACE C DO 20 I = 1,3 R1(I) = Z(GS2+I) - Z(GS1+I) 20 R2(I) = Z(GS3+I) - Z(GS1+I) C KS(1) = R1(2)*R2(3) - R1(3)*R2(2) KS(2) = R1(3)*R2(1) - R1(1)*R2(3) KS(3) = R1(1)*R2(2) - R1(2)*R2(1) C MAG = SQRT(KS(1)**2 + KS(2)**2 + KS(3)**2) IF (MAG .LT. 1.0E-7) GO TO 8005 DO 30 I = 1,3 30 KS(I) = KS(I)/MAG C C FIND AREA OF STRUCTURE FACE AND TOLERANCE USED IN CHECKING C SEPERATIOON C AREA = MAG IF (GS4 .LT. 0) AREA = MAG/2.0 TOL = .2*SQRT(AREA) C C FIND CENTROID OF STRUCTURAL FACE C DO 35 I = 1,3 CS(I) = Z(GS1+I) + Z(GS2+I) + Z(GS3+I) IF (NGRIDS .EQ. 4) CS(I) = CS(I) + Z(GS4+I) 35 CS(I) = CS(I)/FLOAT(NGRIDS) C C PROCESS EACH FACE OF THE FLUID ELEMENT - FIRST GET GRID POINTERS C POINTERS C DO 100 IF = 1,NF I = FACE(1,IF,INTYPE) GF1 = GF(I) I = FACE(2,IF,INTYPE) GF2 = GF(I) I = FACE(3,IF,INTYPE) GF3 = GF(I) I = FACE(4,IF,INTYPE) GF4 = -1 IF (I .GT. 0) GF4 = GF(I) C C FIND NORMAL TO FLUID FACE C DO 40 I = 1,3 R2(I) = Z(GF2+I) - Z(GF1+I) 40 R3(I) = Z(GF3+I) - Z(GF1+I) C KF(1) = R2(2)*R3(3) - R2(3)*R3(2) KF(2) = R2(3)*R3(1) - R2(1)*R3(3) KF(3) = R2(1)*R3(2) - R2(2)*R3(1) C MAG = SQRT(KF(1)**2 + KF(2)**2 + KF(3)**2) IF (MAG .LT. 1.0E-7) GO TO 8006 DO 45 I = 1,3 45 KF(I) = KF(I)/MAG C C DETERMINE ANGLE BETWEEN FACES C ANGLE(IF) = KF(1)*KS(1) + KF(2)*KS(2) + KF(3)*KS(3) IF (ABS(ANGLE(IF)) .LE. .866) GO TO 100 C C FIND DISTANCE FROM THE CENTROID OF THE STRUCTURE TO THE FLUID C FACE. THE DISTANCE IS MEASURED ALONG THE NORMAL TO THE C FLUID FACE C DO 60 I = 1,3 60 R2(I) = CS(I) - Z(GF1+I) C HEIGTH(IF) = ABS(KF(1)*R2(1) + KF(2)*R2(2) + KF(3)*R2(3)) C 100 CONTINUE C C CHOSE THE FACE OF THE FLUID WITH THE SMALLEST DISTANCE TO THE C STRUCTURAL ELEMENT AND WITH THE ANGLE BETWEEN THE TWO FACES LESS C THEN 30 DEGREES C DIST = 1.0E+10 FACEID = 0 DO 110 IF = 1,NF IF (ABS(ANGLE(IF)) .LE. .866) GO TO 110 IF (HEIGTH(IF) .GE. DIST) GO TO 110 DIST = HEIGTH(IF) FACEID = IF 110 CONTINUE IF (FACEID .EQ. 0) GO TO 8007 C C VERIFY THAT THE FACE IS WITHIN PROPER TOLERENCE C IF (DIST .GT. TOL) GO TO 8008 C C IF ANGLE WAS COMPUTED NEGATIVE - SWICTH STRUCTURAL GRIDS AROUND C IN ELEMENT TABLE RECORD FOR LATER USE C IF (ANGLE(FACEID) .GE. 0.0) GO TO 300 IF (NGRIDS .EQ. 3) GO TO 120 I = ELT(3) ELT(3) = ELT(6) ELT(6) = I I = ELT(4) ELT(4) = ELT(5) ELT(5) = I GO TO 300 C 120 I = ELT(3) ELT(3) = ELT(5) ELT(5) = I GO TO 300 C C THE FACE IS DEFINED BY A FACE ID C 200 FACEID = ELT(3) IF (FACEID.LT.1 .OR. FACEID.GT.NF) GO TO 8009 C C USING THE FACE SPECIFIES OR FOUND - RETURN THE PROPER C FLUID GRID POINTS C 300 DO 310 I = 1,4 J = FACE(I,FACEID,INTYPE) IF (J .GT. 0) GO TO 305 GRID(I) = -1 GO TO 310 305 GRID(I) = ECT(J+2) 310 CONTINUE C RETURN C C ERROR CONDITIONS C C BAD GEOMETRY FOR STRUCTURAL ELEMENT C 8005 WRITE (NOUT,9005) UFM,ELT(2) GO TO 9000 C C BAD GEOMETRY FOR FLUID ELEMENT C 8006 WRITE (NOUT,9006) UFM,IF,ECT(1) GO TO 9000 C C NO FACE WITHIN 30 DEGREES FO STRUCTURAL ELEMENT FACE C 8007 WRITE (NOUT,9007) UFM,ECT(1),ELT(2) GO TO 9000 C C FLUID ELEMENT IS NOT WITHIN TOLERENCE RANGE OF STRUCTURAL ELEMENT C 8008 WRITE (NOUT,9008) UFM,ECT(1),ELT(2) GO TO 9000 C C ILLEGAL FACE NUMBER C 8009 WRITE (NOUT,9009) UFM,FACEID,ECT(1) C 9000 ERROR = .TRUE. RETURN C C ERROR FORMATS C 9005 FORMAT (A23,' 8005. BAD GEOMETRY DEFINED FOR STRUCTURAL ELEMENT', 1 I9) 9006 FORMAT (A23,' 8006. BAD GEOMETRY DEFINED FOR FACE',I9, 1 ' OF FLUID ELEMENT',I9) 9007 FORMAT (A23,' 8007. NO FACE ON FLUID ELEMENT',I9, 1 ' IS WITHIN 30 DEGREES OF STRUCTURAL ELEMENT',I9) 9008 FORMAT (A23,' 8008. THE DISTANCE BETWEEN FLUID ELEMENT',I9, 1 ' AND STRUCTURAL ELEMENT',I9, /30X, 2 'IS GREATER THAN THE ALLOWED TOLERANCE.') 9009 FORMAT (A23,' 8009. FACE',I9,' SPECIFIED FOR FLUID ELEMENT',I9, 1 ' IS AN ILLEGAL VALUE.') END ================================================ FILE: mis/flfree.f ================================================ SUBROUTINE FLFREE (FRREC,AFE,NAFE,KGE,NKGE) C C CALCULATES THE AREA FACTOR MATRIX AND GRAVITATIONAL STIFFNESS C MATRIX FOR A SINGLE FLUID ELEMENT ON THE FREE SURFACE C LOGICAL ERROR ,GRAV ,LTILT INTEGER FRREC(7) ,GF1 ,GF2 ,GF3 ,IZ(1) , 1 GRID(3,4) DOUBLE PRECISION R12(3) ,R13(3) ,A ,RT(3) , 1 AFE(16) ,KGE(16) ,AFACT ,RHOXG CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /ZZZZZZ/ Z(1) COMMON /FLBPTR/ ERROR ,ICORE ,LCORE ,IBGPDT ,NGBPDT , 1 ISIL ,NSIL ,IGRAV ,NGRAV COMMON /MATIN / MATID ,INFLAG COMMON /MATOUT/ DUM(3) ,RHO COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /BLANK / NOGRAV ,NOFREE ,TILT(2) EQUIVALENCE (Z(1),IZ(1)) C C GRID POINTS DEFINING FOUR OVERLAPING TRIANGLES IN A QUAD C DATA GRID / 1 ,2 ,3 , 1 2 ,3 ,4 , 2 3 ,4 ,1 , 3 4 ,1 ,2 / DATA LTILT / .FALSE. / C C C CALCULATE SIZE OF ELEMENT MATRICES C NGRIDF = 4 IF (FRREC(6) .LT. 0) NGRIDF = 3 NAFE = NGRIDF*NGRIDF*2 NKGE = 0 C C OBTAIN MATERIAL PROPERTY AND GRAVITY DATA IF A GRAV ID IS GIVEN C GRAV = .FALSE. IF (FRREC(7) .EQ. 0) GO TO 6 INFLAG = 11 MATID = FRREC(2) CALL MAT (FRREC(1)) C IF (NGRAV .EQ. 0) GO TO 70 LGRAV = IGRAV + NGRAV - 1 DO 2 I = IGRAV,LGRAV,6 IF (IZ(I) .EQ. FRREC(7)) GO TO 4 2 CONTINUE C GO TO 70 C 4 G = SQRT(Z(I+3)**2 + Z(I+4)**2 + Z(I+5)**2) C C USING THE FIRST GRAV VECTOR DETERMING THE FREE SURFACE PLOTTING C ANGLE C IF (LTILT) GO TO 5 TILT(1) = Z(I+5)/G TILT(2) = Z(I+3)/G LTILT = .FALSE. C 5 G = G*Z(I+2) RHOXG = DBLE(RHO)*DBLE(G) NKGE = NAFE NOGRAV= 1 GRAV = .TRUE. C C DETERMINE NUMBER OF OVERLAPING TRIANGLES TO BE UESED C C 1 IF TRIANGLAR FLUID FACE C 4 IF QUADRATIC FLUID FACE C 6 ITRIA = 4 IF (NGRIDF .NE. 4) ITRIA = 1 C C ZERO OUT GRAVITATIONAL STIFFNESS AND AREA FACTOR MATRIX C DO 10 I = 1,16 KGE(I) = 0.0D0 10 AFE(I) = 0.0D0 C C LOOP OVER TRIANGLES C C FIRST LOCATE GRID POINT COORDINATES FOR CORNERS FO THIS TRIANGLE C DO 50 IT = 1,ITRIA C I = GRID(1,IT) GF1 = IBGPDT + (FRREC(I+2)-1)*4 I = GRID(2,IT) GF2 = IBGPDT + (FRREC(I+2)-1)*4 I = GRID(3,IT) GF3 = IBGPDT + (FRREC(I+2)-1)*4 C C CALCUATE AREA OF TRIAGLE C DIVIDE AREA BY TWO IF OVERLAPPING TRIAGLES USED C DO 20 I = 1,3 R12(I) = Z(GF2+I) - Z(GF1+I) 20 R13(I) = Z(GF3+I) - Z(GF1+I) C CALL DCROSS (R12,R13,RT) C A = DSQRT(RT(1)*RT(1) + RT(2)*RT(2) + RT(3)*RT(3))/2.0D0 IF (ITRIA .EQ. 4) A = A/2.0D0 C C INSERT AREA AND STIFFNESS CONTRIBUTIONS INTO FULL SIZE C ELEMTENT MATRICES C DO 40 I = 1,3 ICOL = GRID(I,IT) ILOC = NGRIDF*(ICOL-1) DO 30 J = 1,3 IROW = GRID(J,IT) IF (IROW .EQ. ICOL) AFACT = A/6.0D0 IF (IROW .NE. ICOL) AFACT = A/12.0D0 AFE(ILOC+IROW) = AFE(ILOC+IROW) + AFACT IF (GRAV) KGE(ILOC+IROW) = KGE(ILOC+IROW) + RHOXG*AFACT 30 CONTINUE 40 CONTINUE C 50 CONTINUE C RETURN C C ERROR CONDITIONS C 70 WRITE (NOUT,80) UFM,FRREC(1),FRREC(7) 80 FORMAT (A23,' 8012, FLUID ELEMENT',I9, 1 ' ON A CFFREE CARD REFERENCES UNDEFINED GRAVITY ID',I9) ERROR = .TRUE. RETURN END ================================================ FILE: mis/flld.f ================================================ SUBROUTINE FLLD (X01,X02,Y0,Z0,SGR,CGR,SGS,CGS,KR,CBAR,FMACH,E, 1 L,KD1R,KD1I,KD2R,KD2I) C C CALCULATION OF THE NUMERATOR OF A DOUBLET LINE OF FINITE LENGTH. C LIKE KERN, THERE ARE TWO OUTPUT COMPLEX VALUES REPRESENTED BY C FOUR REAL NUMBERS AND AN INPUT OPTION. C C WRITTEN BY D. H. LARSON, STRUCTURAL MECHANICS MDAC 11/70 C C X01 - X - XI1 C X02 - X - XI2 C Y0 - Y - ETA C Z0 - Z - ZETA C SGR - SIN ( GAMMA-R) C CGR - COS ( GAMMA-R) C SGS - SIN ( GAMMA-S) C CGS - COS ( GAMMA-S) C KR - REDUCED FREQUENCY C BR - REFERENCE LENGTH C FMACH- MACH NUMBER C E - C L - OPTION FLAG USED IN TKER C KD1R - REAL PART OF KD1 C KD1I - IMAGINARY PART OF KD1 C KD2R - REAL PART OF KD2 C KD2I - IMAGINARY PART OF KD2 C REAL KR,KK1R,KK1I,KK2R,KK2I,KD1R,KD1I,KD2R,KD2I,K10T1, 1 K20T2P,K1RT1,K10,K2IT2P,K20,K2RT2P,K1IT1 COMPLEX KD1,KD2,K1XI1,K1XI2,TEMP1,TEMP2,K2XI1,K2XI2 COMMON /KDS/ IND,KK1R,KK1I,KK2R,KK2I COMMON /DLM/ K10,K20,K1RT1,K1IT1,K2RT2P,K2IT2P,K10T1,K20T2P C C X01 = X-XI1 AND X02 = X-XI2, DELXI = XI2-XI1 C DELXI = X01 - X02 C C FULL KERNEL FROM -TKER- C IND = 0 KD1R = 0.0 KD2R = 0.0 T1 = KR*DELXI/CBAR BR = CBAR/2.0 ST1 = SIN(T1) CT1 = COS(T1) I = 1 X0 = X01 C 10 CALL TKER (X0,Y0,Z0,KR,BR,SGR,CGR,SGS,CGS,RT1,RT2,FMACH) C GO TO (30,40), I 30 K1XI1 = CMPLX(KK1R,KK1I) K2XI1 = CMPLX(KK2R,KK2I) IF (L .EQ. 0) GO TO 35 KD1R = KD1R - K10T1 KD2R = KD2R - K20T2P 35 CONTINUE C C NOW GO CALCULATE FOR XI = XI2 C X0 = X02 I = 2 GO TO 10 C 40 K1XI2 = CMPLX(KK1R,KK1I) K2XI2 = CMPLX(KK2R,KK2I) IF (L .EQ. 0) GO TO 50 KD1R = KD1R + K10T1 KD2R = KD2R + K20T2P 50 CONTINUE C TEMP1 = CMPLX(CT1, ST1) TEMP2 = CMPLX(CT1,-ST1) C C DESIRED RESULTS (COMPLEX) C KD1 = K1XI1*TEMP1 - K1XI2*TEMP2 KD2 = K2XI1*TEMP1 - K2XI2*TEMP2 C C CONVERT TO REAL AND IMAGINARY PARTS C KD1R = REAL (KD1) + KD1R KD1I = AIMAG(KD1) KD2R = REAL (KD2) + KD2R KD2I = AIMAG(KD2) RETURN END ================================================ FILE: mis/flunam.f ================================================ SUBROUTINE FLUNAM (LU,FILNAM) C C THIS ROUTINE FORMULATES A FORTRAN LOGICAL UNIT NAME FROM A C LOGICAL UNIT NUMBER = = = === C C INPUT LU e.g. LU = 8 C OUTPUT FILNAM FILNAM = 'fort.08' NOTE - IS .08 NOT .8 c CHARACTER FILNAM*7,FOR7*7,FOR5*5,FORT*5 EQUIVALENCE (FOR5,FOR7) DATA FORT/ 'fort.' / C J = LU + 100 WRITE (FOR7,10) J 10 FORMAT (4X,I3) FOR5 = FORT FILNAM = FOR7 RETURN END ================================================ FILE: mis/fmdi.f ================================================ SUBROUTINE FMDI (I,J) C C THE SUBROUTINE FETCHES FROM THE RANDOM ACCESS STORAGE DEVICE THE C BLOCK OF MDI CONTAINING THE I-TH DIRECTORY, AND STORES THAT BLOCK C IN THE ARRAY BUF STARTING AT LOCATION (MDI+1) AND EXTENDING TO C LOCATION (MDI+BLKSIZ). IT ALSO RETURNS IN J THE (INDEX-1) OF THE C DIRECTORY IN BUF. C EXTERNAL RSHIFT,ANDF LOGICAL MDIUP,NEWBLK INTEGER BUF,MDI,MDIPBN,MDILBN,MDIBL,BLKSIZ,DIRSIZ, 1 ANDF,RSHIFT,NMSBR(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /MACHIN/ MACH,IHALF,JHALF COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DITDUM(6),IODUM(8),MDI,MDIPBN,MDILBN,MDIBL, 1 NXTDUM(15),DITUP,MDIUP COMMON /SYS / BLKSIZ,DIRSIZ COMMON /SYSTEM/ NBUFF,NOUT DATA IRD , IWRT / 1, 2 / DATA INDSBR/ 7 /, NMSBR /4HFMDI,4H / C C NDIR IS THE NUMBER OF DIRECTORIES ON ONE BLOCK OF THE MDI. C CALL CHKOPN (NMSBR(1)) NDIR = BLKSIZ/DIRSIZ C C COMPUTE THE LOGICAL BLOCK NUMBER, AND THE WORD NUMBER WITHIN C BUF IN WHICH THE ITH SUBSTRUCTURE DIRECTORY IS STORED. STORE THE C BLOCK NUMBER IN IBLOCK, AND THE WORD NUMBER IN J. C IBLOCK = I/NDIR IF (I .EQ. IBLOCK*NDIR) GO TO 10 IBLOCK = IBLOCK + 1 10 J = DIRSIZ*(I-(IBLOCK-1)*NDIR-1) + MDI IF (MDILBN .EQ. IBLOCK) RETURN IF (MDIPBN .EQ. 0) GO TO 20 IF (.NOT.MDIUP) GO TO 20 C C THE MDI BLOCK CURRENTLY IN CORE HAS BEEN UPDATED. MUST THEREFORE C WRITE IT OUT BEFORE READING IN A NEW BLOCK. C CALL SOFIO (IWRT,MDIPBN,BUF(MDI-2)) MDIUP = .FALSE. C C THE DESIRED MDI BLOCK IS NOT PRESENTLY IN CORE, MUST THEREFORE C FETCH IT. C 20 NEWBLK = .FALSE. C C FIND THE PHYSICAL BLOCK NUMBER OF THE BLOCK ON WHICH THE LOGICAL C BLOCK IBLOCK IS STORED. C K = MDIBL ICOUNT = 1 30 IF (ICOUNT .EQ. IBLOCK) GO TO 35 ICOUNT = ICOUNT + 1 CALL FNXT (K,NXTK) IF (MOD(K,2) .EQ. 1) GO TO 32 IBL = RSHIFT(BUF(NXTK),IHALF) GO TO 34 32 IBL = ANDF(BUF(NXTK),JHALF) 34 IF (IBL .EQ. 0) GO TO 60 K = IBL GO TO 30 35 IF (MDIPBN .EQ. K) GO TO 500 C C READ THE DESIRED MDI BLOCK INTO CORE. C MDIPBN = K MDILBN = IBLOCK IF (NEWBLK) RETURN CALL SOFIO (IRD,MDIPBN,BUF(MDI-2)) RETURN C C WE NEED A FREE BLOCK FOR THE MDI. C 60 CALL GETBLK (K,IBL) IF (IBL .EQ. -1) GO TO 1000 NEWBLK = .TRUE. K = IBL MIN = MDI + 1 MAX = MDI + BLKSIZ DO 70 LL = MIN,MAX BUF(LL) = 0 70 CONTINUE CALL SOFIO (IWRT,K,BUF(MDI-2)) GO TO 30 C C ERROR IN UPDATING EITHER MDIPBN OR MDILBN. C 500 CALL ERRMKN (INDSBR,6) C C ERROR MESSAGES. C 1000 WRITE (NOUT,1001) UFM 1001 FORMAT (A23,' 6223, SUBROUTINE FMDI - THERE ARE NO MORE FREE ', 1 'BLOCKS AVAILABLE ON THE SOF.') CALL SOFCLS CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/fname.f ================================================ SUBROUTINE FNAME (FILE,NAME) C******* C GIVEN A FILE NO., FNAME WILL RETURN THE BCD DESCRIPTOR C******* INTEGER FIAT,FILE,FIST,NAME(2) COMMON /XFIST / FIST(2) COMMON /XFIAT / FIAT(1) DATA NBLANK/ 4H / DATA NON1 , NON2 / 4H (NO,4HNE) / C******* C SEARCH THE FIST FOR THE FILE C******* N = FIST(2)*2 + 2 DO 10 J=3,N,2 IF (FILE .EQ. FIST(J)) GO TO 20 10 CONTINUE C******* C FILE DOES NOT EXIST, RETURN -(NONE)- C******* NAME(1) = NON1 NAME(2) = NON2 RETURN 20 K = FIST(J+1) IF (K) 21,21,30 21 CONTINUE C******* C RETURN BCD DESCRIPTOR C******* NAME(1) = FILE NAME(2) = NBLANK RETURN C 30 IX = FIST(J+1) + 2 NAME(1) = FIAT(IX ) NAME(2) = FIAT(IX+1) RETURN END ================================================ FILE: mis/fndgrd.f ================================================ SUBROUTINE FNDGRD( ISUB , ICOMP , IGRID , IP , IC , N ) C INTEGER AAA(2),SCSFIL,BUF3,Z,SCORE,IP(6),IC(6) COMMON/CMB001/JUNK(3),SCSFIL COMMON/CMB002/JUNK1(2),BUF3,JUNK2(2),SCORE,LCORE COMMON/CMBFND/ INAM(2),IERR COMMON/ZZZZZZ/Z(1) DATA AAA/ 4HFNDG,4HRD / CALL OPEN(*2001,SCSFIL,Z(BUF3),0) NFIL = ISUB-1 CALL SKPFIL( SCSFIL , NFIL ) NREC = ICOMP - 1 IF( NREC .EQ. 0 ) GO TO 3 DO 1 I=1,NREC CALL FWDREC(*2002,SCSFIL) 1 CONTINUE 3 CALL READ(*2002,*2,SCSFIL,Z(SCORE),LCORE,1,NWD) GO TO 2004 2 CONTINUE CALL GRIDIP( IGRID , SCORE , NWD , IP , IC , N , Z , LLOC ) CALL CLOSE( SCSFIL , 1 ) RETURN 2001 CALL MESAGE( -1 , SCSFIL , AAA ) 2002 CALL MESAGE( -2 , SCSFIL , AAA ) 2004 CALL MESAGE( -8 , SCSFIL , AAA ) RETURN END ================================================ FILE: mis/fndiam.f ================================================ SUBROUTINE FNDIAM (SND1,SND2,NDSTK,NDEG,LVL,LVLS1,LVLS2,IWK, 1 IDFLT,NDLST,JWK,IDIM) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C FNDIAM IS THE CONTROL PROCEDURE FOR FINDING THE PSEUDO-DIAMETER C OF NDSTK AS WELL AS THE LEVEL STRUCTURE FROM EACH END C C SND1- ON INPUT THIS IS THE NODE NUMBER OF THE FIRST C ATTEMPT AT FINDING A DIAMETER. ON OUTPUT IT C CONTAINS THE ACTUAL NUMBER USED. C SND2- ON OUTPUT CONTAINS OTHER END OF DIAMETER C LVLS1- ARRAY CONTAINING LEVEL STRUCTURE WITH SND1 AS ROOT C LVLS2- ARRAY CONTAINING LEVEL STRUCTURE WITH SND2 AS ROOT C IDFLT- FLAG USED IN PICKING FINAL LEVEL STRUCTURE, SET =1 C IF WIDTH OF LVLS1 .GE. WIDTH OF LVLS2, OTHERWISE =2 C LVL,IWK- WORKING STORAGE C JWK- WORKING STORAGE, CURRENTLY SHARING SAME SPACE WITH RENUM C DIMENSION OF NDLST IS THE MAX NUMBER OF NODES IN LAST LEVEL. C INTEGER FLAG, SND, SND1, SND2 DIMENSION NDEG(1), LVL(1), LVLS1(1), LVLS2(1), IWK(1), 1 JWK(1), NDSTK(1), NDLST(IDIM) COMMON /BANDB / DUM3B(3), NGRID COMMON /BANDG / N, IDPTH C FLAG=0 MTW2=N SND=SND1 C C ZERO LVL TO INDICATE ALL NODES ARE AVAILABLE TO TREE C 20 DO 25 I=1,N 25 LVL(I)=0 LVLN=1 C C DROP A TREE FROM SND C CALL TREE (SND,NDSTK,LVL,IWK,NDEG,LVLWTH,LVLBOT,LVLN,MAXLW,MTW2, 1 JWK) IF (FLAG.GE.1) GO TO 110 FLAG=1 70 IDPTH=LVLN-1 MTW1=MAXLW C C COPY LEVEL STRUCTURE INTO LVLS1 C DO 75 I=1,N 75 LVLS1(I)=LVL(I) NDXN=1 NDXL=0 MTW2=N C C SORT LAST LEVEL BY DEGREE AND STORE IN NDLST C CALL SORTDG (NDLST,IWK(LVLBOT),NDXL,LVLWTH,NDEG) IF (NDXL.LE.IDIM) GO TO 100 C C DIMENSION EXCEEDED . . . STOP JOB. C 80 NGRID=-3 RETURN C 100 CONTINUE SND=NDLST(1) GO TO 20 110 IF (IDPTH.GE.LVLN-1) GO TO 120 C C START AGAIN WITH NEW STARTING NODE C SND1=SND GO TO 70 120 IF (MAXLW.GE.MTW2) GO TO 130 MTW2=MAXLW SND2=SND C C STORE NARROWEST REVERSE LEVEL STRUCTURE IN LVLS2 C DO 125 I=1,N 125 LVLS2(I)=LVL(I) 130 IF (NDXN.EQ.NDXL) GO TO 140 C C TRY NEXT NODE IN NDLST C NDXN=NDXN+1 SND=NDLST(NDXN) GO TO 20 140 IDFLT=1 IF (MTW2.LE.MTW1) IDFLT=2 IF (IDPTH .GT. IDIM) GO TO 80 RETURN END ================================================ FILE: mis/fndlvl.f ================================================ SUBROUTINE FNDLVL (NAME,NEWNM) C C THIS SUBROUTINE LOOKS FOR A LOWER LEVEL SUBSTRUCTUE TO THE C SUBSTRUCTURE NAME. IF NAME DOES HAVE A LOWER LEVEL SUBSTRUCTURE, C THE NAME OF ONE OF THESE LOWER LEVEL SUBSTRUCTURES WILL BE C RETURNED IN NEWNM. IF NAME DOES NOT HAVE A LOWER LEVEL C SUBSTRUCTURE, NAME WILL BE RETURNED IN NEWNM. IF NAME IS NOT C KNOWN TO THE SYSTEM, BLANKS WILL BE RETURNED IN NEWNM. C EXTERNAL RSHIFT,ANDF INTEGER RSHIFT,ANDF,BUF DIMENSION NAME(2),NEWNM(2),NMSBR(2) COMMON /ZZZZZZ/ BUF(1) DATA LL / 2 / DATA IEMPTY/ 4H /, NMSBR / 4HFNDL,4HVL / C C CHECK IF NAME EXISTS C CALL CHKOPN (NMSBR(1)) CALL FDSUB (NAME(1),K) IF(K .NE. -1) GO TO 10 NEWNM(1) = IEMPTY NEWNM(2) = IEMPTY RETURN C C FIND THE LOWER LEVEL SUBSTRUCTURE C 10 CALL FMDI (K,IMDI) ILL = ANDF(RSHIFT(BUF(IMDI+LL),20),1023) IF(ILL .EQ. 0) GO TO 20 C C NAME DOES HAVE A LOWER LEVEL SUBSTRUCTURE C CALL FDIT (ILL,JDIT) NEWNM(1) = BUF(JDIT) NEWNM(2) = BUF(JDIT+1) RETURN C C NAME DOES NOT HAVE A LOWER LEVEL SUBSTRUCTURE C 20 NEWNM(1) = NAME(1) NEWNM(2) = NAME(2) RETURN END ================================================ FILE: mis/fndnxl.f ================================================ SUBROUTINE FNDNXL (NAME,NEWNM) C C THE SUBROUTINE LOOKS FOR A HIGHER LEVEL SUBSTRUCTURE TO THE C SUBSTRUCTURE NAME. IF NAME DOES HAVE A HIGHER LEVEL SUBSTRUCTURE, C THE NAME OF THE HIGHER LEVEL SUBSTRUCTURE WILL BE RETURNED IN C NEWNM. IF NAME DOES NOT HAVE A HIGHER LEVEL SUBSTRUCTURE, NAME C WILL BE RETURNED IN NEWNM. IF NAME IS NOT KNOWN TO THE SYSTEM, C BLANKS WILL BE RETURNED IN NEWNM. C EXTERNAL ANDF LOGICAL DITUP,MDIUP INTEGER ANDF,BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL, 1 MDI,MDIPBN,MDILBN,MDIBL,HL DIMENSION NAME(2),NEWNM(2),NMSBR(2) COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,IODUM(8), 1 MDI,MDIPBN,MDILBN,MDIBL,NXTDUM(15),DITUP,MDIUP DATA HL / 2 / DATA IEMPTY/ 4H /, NMSBR /4HFNDN,4HXL / C CALL CHKOPN (NMSBR(1)) CALL FDSUB (NAME(1),K) IF (K .NE. -1) GO TO 10 NEWNM(1) = IEMPTY NEWNM(2) = IEMPTY RETURN C C FIND THE HIGHER LEVEL SUBSTRUCTURE TO NAME. C 10 CALL FMDI (K,IMDI) I = ANDF(BUF(IMDI+HL),1023) IF (I .EQ. 0) GO TO 20 C C NAME DOES HAVE A HIGHER LEVEL SUBSTRUCTURE. C CALL FDIT (I,JDIT) NEWNM(1) = BUF(JDIT ) NEWNM(2) = BUF(JDIT+1) RETURN C C NAME DOES NOT HAVE A HIGHER LEVEL SUBSTRUCTURE. C 20 NEWNM(1) = NAME(1) NEWNM(2) = NAME(2) RETURN END ================================================ FILE: mis/fndpar.f ================================================ SUBROUTINE FNDPAR (NP2,INDEX) C C FNDPAR FINDS THE INDEX INTO THE VPS FOR PARAMETER NUMBER NP C IN THE CURRENT OSCAR (THIS PARAMETER MUST BE VARIABLE) C EXTERNAL ANDF INTEGER OSCAR,NAME(2),ANDF CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /OSCENT/ OSCAR(7) COMMON /SYSTEM/ SYSBUF,NOUT COMMON /SEM / MASK,MASK2,MASK3 DATA NAME / 4HFNDP,4HAR / C NIP = OSCAR(7) ITYPE= ANDF(OSCAR(3),7) I = 8 + 3*NIP IF (ITYPE .EQ. 2) GO TO 100 NOP = OSCAR(I) I = I + 3*NOP + 1 100 CONTINUE I = I + 1 NP1 = OSCAR(I) NP = IABS(NP2) IF (NP .LE. NP1) GO TO 120 IF (NP2 .LE. 0) GO TO 200 WRITE (NOUT,110) UFM,NP 110 FORMAT (A23,' 3123, PARAMETER NUMBER',I6,' NOT IN DMAP CALL.') CALL MESAGE (-61,0,NAME) 120 CONTINUE NP1 = NP - 1 K = I + 1 IF (NP1 .EQ. 0) GO TO 170 DO 130 I = 1,NP1 M = OSCAR(K) IF (M) 140,150,150 C C VARTABLE C 140 K = K + 1 GO TO 130 C C CONSTANT C 150 K = K + 1 + M 130 CONTINUE C C K POINTS TO WANTED OSCAR WORD C 170 IF (OSCAR(K) .LT. 0) GO TO 190 IF (NP2 .LE. 0) GO TO 200 WRITE (NOUT,180) UFM,NP 180 FORMAT (A23,' 3124, PARAMETER NUMBER',I6,' IS NOT A VARIABLE.') CALL MESAGE (-61,0,NAME) 190 INDEX = ANDF(OSCAR(K),MASK3) RETURN C C PARAMETER SPORT NOT SUPPLIES C 200 INDEX = -1 RETURN END ================================================ FILE: mis/fndplt.f ================================================ SUBROUTINE FNDPLT (PLOTER, MODEL, PMODEL) C C PLOTER = PLOTTER INDEX. C MODEL = MODEL INDEX. C PMODEL = PLOTTER MODEL ID. C C... DATA FOR PLOTTER + MODEL RECOGNITION. C INTEGER PLOTER, PMODEL(2), PLTTER(2,6), PLTMDL(2,6) C DATA PLTMDL / C NASTRAN GENERAL PURPOSE PLOTTER 1 1HM,1, 1HT,1, 1HD,1, 2 1HM,0, 1HT,0, 1HD,0/ DATA PLTTER / 1 1,-1, 2,-2, 2,-3, 2 1,+1, 2,+2, 2,+3/ C C FIND THE MODEL ID. C N = -1 N1 = PMODEL(2) DO 120 I = 1, 6 IF (PMODEL(1).NE.PLTMDL(1,I)) GO TO 120 IF (N.LE.0) N=I IF (N1.EQ.PLTMDL(2,I)) N = I 120 CONTINUE C C SETUP THE PLOTTER + MODEL INDICES. C I2 = PMODEL(2) IF (N.LT.0) I2 = 0 N = IABS (N) DO 130 I = 1,2 IF (PLTMDL(I,N).NE.0) PMODEL(I)=PLTMDL(I,N) 130 CONTINUE PLOTER = PLTTER(1,N) MODEL = PLTTER(2,N) C RETURN END ================================================ FILE: mis/fndpnt.f ================================================ SUBROUTINE FNDPNT (IARY,ID) C INTEGER NAME(2),OLD,BGPDT,SIL,EDT DIMENSION IARY(4),ISAVE(4),ARRY(3),IRY(3),IEDT(2),ICORE(1), 1 IFED(2) COMMON /SYSTEM/ IBUF,NOUT COMMON /FPT / DUM(3),NROW1,LCORE COMMON /ZZZZZZ/ CORE(1) COMMON /LOADX / I1(2),BGPDT,OLD,CSTM,SIL,ISIL,I2,MPT,GPTT,EDT, 1 IMPT,IGPTT,IED EQUIVALENCE (IRY(1),ARRY(1)), (CORE(1),ICORE(1)) DATA NAME / 4HFNDP,4HNT / DATA IEDT / 4HEDT ,4HFEDT/, IFED/4HFEDT,4HST / C C FIND POINT ON BGPDT C IF (ID .LT. 0) GO TO 90 IF (ID.LT.268435455 .AND. OLD.GE.0) GO TO 10 C 268435455 = 2**28 - 1 WRITE (NOUT,5) ID,OLD 5 FORMAT (//,' BAD DATA PASSED TO FNDPNT, ID,OLD =',2I14) CALL MESAGE (-37,0,NAME) 10 NS = 4*(ID-OLD) IF (NS-4) 70,30,20 20 CALL READ (*90,*90,BGPDT,ISAVE(1),-NS+4,0,FLAG) 30 CALL READ (*90,*90,BGPDT,ISAVE(1), 4,0,FLAG) OLD = ID 40 DO 50 I = 1,4 50 IARY(I) = ISAVE(I) 60 RETURN C 70 IF (NS) 80,40,80 80 CALL BCKREC (BGPDT) OLD = 0 GO TO 10 C 90 IPM = BGPDT 100 CALL MESAGE (-2,IPM,NAME) 110 IPM = SIL GO TO 100 120 IPM = EDT GO TO 100 C C ENTRY FNDSIL (IP) C ================= C C FIND SIL VALUE C 130 NS = IP - ISIL IF (NS-1) 140,170,160 140 IF (NS) 150,180,150 150 CALL BCKREC (SIL) ISIL = 0 GO TO 130 160 CALL READ (*110,*110,SIL,I,-NS+1,0,FLAG) 170 CALL READ (*110,*110,SIL,IF, 1,0,FLAG) ISIL = IP 180 IP = IF GO TO 60 C C ENTRY FEDTST (IDEF) C =================== C C FIND ENFORCED DISPLACEMENT C C PUT DEFORM EID S AND VALUES INTO CORE FOR THIS SET C ICP = NROW1 + 1 K = 0 CALL READ (*120,*120,EDT,ARRY(1),-3,0,FLAG) 200 CALL READ (*120,*210,EDT,ARRY(1), 3,0,FLAG) IF (IDEF.NE.IRY(1) .AND. K.EQ.0) GO TO 200 IF (IDEF .NE. IRY(1)) GO TO 210 K = K + 2 CORE(ICP+K ) = ARRY(3) ICORE(ICP+K-1) = IRY(2) IF (LCORE-NROW1+K .LE. 0) CALL MESAGE (-8,IPM,IFED) GO TO 200 210 IF (K .EQ. 0) CALL MESAGE (-32,IDEF,IEDT) CALL BCKREC (EDT) GO TO 60 C C ENTRY FEDT (IED1,DELTA,IDEF) C ============================ C C FIND VALUE FOR EID IF IT EXISTS C DO 220 I = 1,K,2 IF (IED1 .NE. ICORE(ICP+I)) GO TO 220 ICORE(ICP+I) = -ICORE(ICP+I) DELTA = CORE(ICP+I+1) GO TO 60 220 CONTINUE DELTA = 0.0 GO TO 60 C C ENTRY FEDTED (IDEF) C =================== C C CHECK TO SEE IF ALL ELEMENTS IN THE SET WERE USED C IFOUND = 0 DO 230 I = 1,K,2 IF (ICORE(ICP+I) .LT. 0) GO TO 230 IEDT(1) = ICORE(ICP+I) IEDT(2) = IDEF CALL MESAGE (30,139,IEDT) IFOUND = 1 230 CONTINUE IF (IFOUND .EQ. 1) CALL MESAGE (-61,0,0) GO TO 60 END ================================================ FILE: mis/fndset.f ================================================ SUBROUTINE FNDSET (GPID,X,IBUF,N) C C GPID = GRID POINT TABLE FOR THIS SET C C N = 0 INPUT C FNDSET READS THE COORDINATES OF THE GRID POINTS IN THIS SET. C IF THE GRID POINT TABLE VALUE IS ZERO THE CORRESPONDING GRID C POINT IS NOT USED IN THIS SET AND ITS VALUES SKIPPED, OTHERWISE C THE XYZ COORDINDATE VALUES ARE READ FROM BGPDT AND PACKED INTO C X SPACE. TOTALLY THERE ARE NGPSET GRID DATA SAVED IN X. C CORE NEEDED FOR X = 3*NGPSET (PROVIDED BY CALLING ROUTINE) C C N = 1 INPUT/OUTPUT C FNDSET POSITIONS THE STRESS FILE TO THE SUBCASE/VALUE LAST C PROCESSED C INTEGER GPID(1),BGPDT,OES1,REW,SUBC REAL X(3,1),U(3) COMMON /BLANK / NGP,SKP11(4),NGPSET,SKP12(4),SKP21(4),BGPDT, 1 SKP22(8),OES1 COMMON /NAMES / NIREW,INPREW,SKPN1(2),REW,NOREW COMMON /XXPARM/ SKPP(211),SUBC,FLAG,DATA EQUIVALENCE (U(1),INSUB) DATA TWOPI / 0.0 / C IF (N .NE. 0) GO TO 30 CALL GOPEN (BGPDT,GPID(IBUF),INPREW) J = 1 DO 20 I = 1,NGP IF (GPID(I) .NE. 0) GO TO 10 CALL FREAD (BGPDT,0,-4,0) GO TO 20 10 CALL FREAD (BGPDT,0,-1,0) CALL FREAD (BGPDT,X(1,J),3,0) J = J + 1 20 CONTINUE CALL CLOSE (BGPDT,REW) GO TO 110 C C POSITION OES1 C 30 IF (TWOPI .LT. 6.2) TWOPI = 8.0*ATAN(1.0) CALL GOPEN (OES1,GPID(IBUF),INPREW) 40 CALL READ (*90,*90,OES1,J,1,0,I) CALL FREAD (OES1,0,-2,0) CALL FREAD (OES1,U,3,0) IF (SUBC .NE. INSUB) GO TO 70 IF (FLAG-1.0) 100,60,50 50 J = J/10 C C REAL EIGENVALUE ANALYSIS - CONVERT TO FREQUENCY C IF (J .EQ. 2) U(3) = SQRT(ABS(U(3)))/TWOPI IF (DATA-U(3) .GT. 1.0E-6) GO TO 70 GO TO 100 60 IF (DATA-U(2)) 70,100,70 C C WRONG CASE C 70 CALL FWDREC (*90,OES1) CALL FWDREC (*90,OES1) GO TO 40 90 N = N + 1 100 CALL BCKREC (OES1) CALL CLOSE (OES1,NOREW) C 110 RETURN END ================================================ FILE: mis/fnxt.f ================================================ SUBROUTINE FNXT (II,J) C C FETCHES FROM THE RANDOM ACCESS STORAGE DEVICE THE BLOCK OF THE C ARRAY NXT CONTAINING THE ENTRY FOR BLOCK I. IT STORES THE FETCHED C BLOCK IN THE ARRAY BUF, STARTING AT LOCATION NXT. THE OUTPUT J C INDICATES THAT BLOCK I HAS THE JTH ENTRY IN THE ARRAY BUF. C LOGICAL DITUP,NXTUP INTEGER BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL, 1 BLKSIZ,DIRSIZ,SUPSIZ,FILSIZ,FILNUM,FILSUP DIMENSION NMSBR(2) COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,IODUM(8), 1 MDIDUM(4),NXT,NXTPBN,NXTLBN,NXTTSZ,NXTFSZ(10), 2 NXTCUR,DITUP,MDIUP,NXTUP,NXTRST COMMON /SYS / BLKSIZ,DIRSIZ,SUPSIZ COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10) DATA IRD , IWRT,INDSBR / 1,2, 9 / DATA NMSBR / 4HFNXT,4H / C C FILNUM IS THE NUMBER OF THE DEVICE TO WHICH BLOCK I BELONGS. C CALL CHKOPN (NMSBR(1)) INDEX = II DO 4 L = 1,NFILES IF (INDEX .GT. FILSIZ(L)) GO TO 2 FILNUM = L GO TO 10 2 INDEX = INDEX - FILSIZ(L) 4 CONTINUE GO TO 500 C C INDEX IS THE INDEX OF BLOCK I WITHIN FILE FILNUM. C FILSUP IS THE NUMBER OF THE SUPERBLOCK WITHIN FILE FILNUM TO WHICH C BLOCK I BELONGS, AND SUPSIZ IS THE SIZE OF A SUPERBLOCK. C 10 FILSUP = (INDEX-1)/SUPSIZ IF (INDEX-1 .EQ. FILSUP*SUPSIZ) GO TO 20 FILSUP = FILSUP + 1 C C COMPUTE THE LOGICAL BLOCK NUMBER, WITHIN THE ARRAY NXT, IN WHICH C THE ITH BLOCK HAS AN ENTRY, ALSO COMPUTE THE INDEX OF THIS ENTRY C RELATIVE TO THE ARRAY BUF. STORE THE BLOCK NUMBER IN IBLOCK, AND C THE INDEX IN J. C 20 IBLOCK = 0 MAX = FILNUM - 1 IF (MAX .LT. 1) GO TO 26 DO 24 I = 1,MAX IBLOCK = IBLOCK + NXTFSZ(I) 24 CONTINUE 26 IBLOCK = IBLOCK + FILSUP J = (INDEX-(FILSUP-1)*SUPSIZ)/2 + 1 + NXT IF (IBLOCK .EQ. NXTLBN) RETURN IF (IBLOCK .GT. NXTTSZ) GO TO 500 C C THE DESIRED NXT BLOCK IS NOT PRESENTLY IN CORE, MUST THEREFORE C FETCH IT. C IF (DITPBN .EQ. 0) GO TO 40 C C THE IN CORE BLOCK SHARED BY THE DIT AND THE ARRAY NXT IS NOW C OCCUPIED BY ONE BLOCK OF THE DIT. C IF (.NOT.DITUP) GO TO 30 C C THE DIT BLOCK NOW IN CORE HAS BEEN UPDATED. MUST THEREFORE WRITE C IT OUT BEFORE READING IN THE DESIRED NXT BLOCK. C CALL SOFIO (IWRT,DITPBN,BUF(DIT-2)) DITUP = .FALSE. 30 DITPBN = 0 DITLBN = 0 GO TO 50 40 IF (NXTPBN .EQ. 0) GO TO 50 C C THE IN CORE BLOCK SHARED BY THE DIT AND THE ARRAY NXT IS NOW C OCCUPIED BY ONE BLOCK OF NXT. C IF (.NOT.NXTUP) GO TO 50 C C THE NEXT BLOCK CURRENTLY IN CORE HAS BEEN UPDATED. MUST THEREFORE C WRITE IT OUT BEFORE READING IN A NEW BLOCK. C CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2)) NXTUP = .FALSE. C C READ THE DESIRED NXT BLOCK INTO CORE. C 50 NXTLBN = IBLOCK NXTPBN = 0 IF (MAX .LT. 1) GO TO 70 DO 60 I = 1,MAX NXTPBN = NXTPBN+FILSIZ(I) 60 CONTINUE 70 NXTPBN = NXTPBN + (FILSUP-1)*SUPSIZ + 2 CALL SOFIO (IRD,NXTPBN,BUF(NXT-2)) RETURN C C ERROR MESSAGES. C 500 CALL ERRMKN (INDSBR,1) RETURN END ================================================ FILE: mis/fnxtv.f ================================================ SUBROUTINE FNXTV (V1,V2,V3,V4,V5,ZB,IFN) C C FNXTV OBTAINS THE REDUCED TRIDIAGONAL MATRIX B WHERE FRBK C PERFORMS THE OPERATIONAL INVERSE. (SINGLE PREC VERSION) C C T - C B = V * A * V C C V1 = SPACE FOR THE PREVIOUS CURRENT TRIAL VECTOR. INITALLY NULL C V2 = SPACE FOR THE CURRENT TRIAL VECTOR. INITIALLY A PSEUDO- C RANDOM START VECTOR C V3,V4,V5 = WORKING SPACES FOR THREE VECTORS C IFN = NO. OF TRIAL VECOTRS EXTRACTED. INITIALLY ZERO. C SEE FEER FOR DEFINITIONS OF OTHER PARAMETERS. ALSO PROGRAMMER'S C MANUAL PP. 4.48-19G THRU I C C NUMERIC ACCURACY IS VERY IMPORTANT IN THIS SUBROUTINE. SEVERAL C KEY AREAS ARE REINFORCED BY DOUBLE PRECISION CALCULATIONS C C IN THIS SINGLE PRECISION VERSION, WE AVOID MATHEMATIC OPERATION C IN A DO LOOP, INVOLVING MIXED MODE COMPUTATION AND THE RESULT C STORED IN S.P. WORD. SOME MACHINES, SUCH AS VAX, ARE VERY SLOW IN C THIS SITUATION. MIXED MODE COMPUTATION AND RESULT IN D.P. IS OK. C INTEGER SYSBUF ,CNDFLG ,SR5FLE ,NAME(5) , 1 VDOT DOUBLE PRECISION LMBDA ,LAMBDA DOUBLE PRECISION DBI ,SDMAX ,D ,DB , 1 DSQ ,SD ,AII ,DTMP , 2 DEPX ,DEPX2 ,OPDEPX ,OMDEPX , 3 ZERO DIMENSION V1(1) ,V2(1) ,V3(1) ,V4(1) , 1 V5(1) ,ZB(1) ,B(2) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /FEERCX/ IFKAA(7) ,IFMAA(7) ,IFLELM(7),IFLVEC(7), 1 SR1FLE ,SR2FLE ,SR3FLE ,SR4FLE , 2 SR5FLE ,SR6FLE ,SR7FLE ,SR8FLE , 3 DMPFLE ,NORD ,XLMBDA ,NEIG , 4 MORD ,IBK ,CRITF ,NORTHO , 5 IFLRVA ,IFLRVC COMMON /FEERXX/ LAMBDA ,CNDFLG ,ITER ,TIMED , 1 L16 ,IOPTF ,EPX ,ERRC , 2 IND ,LMBDA ,IFSET ,NZERO , 3 NONUL ,IDIAG ,MRANK ,ISTART COMMON /SYSTEM/ KSYSTM(65) COMMON /OPINV / MCBLT(7) ,MCBSMA(7),MCBVEC(7),MCBRM(7) COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP , 1 INCRP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW EQUIVALENCE (KSYSTM(1),SYSBUF) ,(KSYSTM(2),IO) DATA NAME / 4HFNXT ,4HV ,2*4HBEGN ,4HEND / DATA VDOT , ZERO / 4HV. ,0.0D+0 / C C SR5FLE CONTAINS THE REDUCED TRIDIAGONAL ELEMENTS C C SR6FLE CONTAINS THE G VECTORS C SR7FLE CONTAINS THE ORTHOGONAL VECTORS C SR8FLE CONTAINS THE CONDITIONED MAA MATRIX C IF (MCBLT(7) .LT. 0) NAME(2) = VDOT NAME(3) = NAME(4) CALL CONMSG (NAME,3,0) ITER = ITER + 1 IPRC = 1 INCR = 1 INCRP = INCR ITP1 = IPRC ITP2 = IPRC IFG = MCBRM(1) IFV = MCBVEC(1) DEPX = EPX DEPX2 = DEPX**2 OPDEPX= 1.0D0 + DEPX OMDEPX= 1.0D0 - DEPX D = ZERO NORD1 = NORD - 1 C C NORMALIZE START VECTOR C DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 20 CALL FRMLT (MCBSMA(1),V2(1),V3(1),V5(1)) DO 10 I = 1,NORD 10 DSQ = DSQ + DBLE(V2(I)*V3(I)) GO TO 40 20 DO 30 I = 1,NORD 30 DSQ = DSQ + DBLE(V2(I)*V2(I)) 40 DSQ = 1.0D+0/DSQRT(DSQ) TMP = SNGL(DSQ) DO 50 I = 1,NORD 50 V2(I) = V2(I)*TMP IF (NORTHO .EQ. 0) GO TO 200 C C ORTHOGONALIZE WITH PREVIOUS VECTORS C DO 60 I = 1,NORD 60 V3(I) = V2(I) 70 DO 170 IX = 1,14 NONUL = NONUL + 1 CALL GOPEN (IFV,ZB(1),RDREW) IF (IOPTF .EQ. 0) CALL FRMLT (MCBSMA(1),V2(1),V3(1),V5(1)) SDMAX = ZERO DO 110 IY = 1,NORTHO II = 1 NN = NORD SD = ZERO CALL UNPACK (*90,IFV,V5(1)) DO 80 I = 1,NORD SD = SD + DBLE(V3(I)*V5(I)) 80 CONTINUE 90 IF (DABS(SD) .GT. SDMAX) SDMAX = DABS(SD) TMP = SNGL(SD) DO 100 I = 1,NORD 100 V2(I) = V2(I) - TMP*V5(I) 110 CONTINUE CALL CLOSE (IFV,EOFNRW) DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 130 CALL FRMLT (MCBSMA(1),V2(1),V3(1),V5(1)) DO 120 I = 1,NORD1 120 DSQ = DSQ + DBLE(V2(I)*V3(I)) GO TO 150 130 DO 140 I = 1,NORD1 140 DSQ = DSQ + DBLE(V2(I)*V2(I)) C C 150 IF (DSQ .LT. DEPX2) GO TO 500 C C COMMENTS FORM G.CHAN/UNISYS ABOUT DSQ AND DEPX2 ABOVE, 1/92 C C DEPX2 IS SQUARE OF EPX. ORIGINALLY SINCE DAY 1, EPX (FOR VAX AND C IBM) IS 10.**-14 AND THEREFORE DEPX2 = 10.**-28. (10.**-24 FOR C THE 60/64 BIT MACHINES, USING S.P. COMPUTATION) C (EPX WAS CHAGNED TO 10.**-10, ALL MACHINE, S.P. AND D.P., 1/92) C C NOTICE THAT DSQ IS THE DIFFERENCE OF TWO CLOSE NUMERIC NUMBERS. C THE FINAL VAULES OF DSQ AND THE PRODUCT OF V2*V2 OR V2*V3 APPROACH C ONE ANOTHER, AND DEFFER ONLY IN SIGN. THEREFORE, THE NUMBER OF C DIGITS (MANTISSA) AS WELL AS THE EXPONENT ARE IMPORTANT HERE. C (PREVIOUSLY, DO LOOPS 120 AND 140 GO FROM 1 THRU NORD) C C MOST OF THE 32 BIT MACHINES HOLD 15 DIGIT IN D.P. WORD, AND SAME C FOR THE 64 BIT MACHINES USING S.P. WORD. THEREFORE, CHECKING DSQ C DOWN TO 10.**-28 (OR 10.**-24) IS BEYOND THE HARDWARE LIMITS. C THIS MAY EXPLAIN SOME TIMES THE RIGID BODY MODES (FREQUENCY = 0.0) C GO TO NEGATIVE; IN SOME INSTANCES REACHING -1.E+5 RANGE C C NEXT 7 LINES TRY TO SOLVE THE ABOVE DILEMMA. C 150 D = DBLE(V3(NORD)) IF (IOPTF .EQ. 1) D = DBLE(V2(NORD)) D = DBLE(V2(NORD))*D DTMP = DSQ DSQ = DSQ + D IF (DSQ .LT. DEPX2) GO TO 500 DTMP = DABS(D/DTMP) IF (DTMP.GT.OMDEPX .AND. DTMP.LT.OPDEPX) GO TO 500 D = ZERO C DSQ = DSQRT(DSQ) IF (L16 .NE. 0) WRITE (IO,620) IX,SDMAX,DSQ DSQ = 1.0D+0/DSQ TMP = SNGL(DSQ) DO 160 I = 1,NORD V2(I) = V2(I)*TMP 160 V3(I) = V2(I) IF (SDMAX .LT. DEPX) GO TO 200 170 CONTINUE GO TO 500 C 200 IF (IFN .NE. 0) GO TO 300 C C SWEEP START VECTOR FOR ZERO ROOTS C DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 220 CALL FRSW (V2(1),V4(1),V3(1),V5(1)) CALL FRMLT (MCBSMA(1),V3(1),V4(1),V5(1)) DO 210 I = 1,NORD 210 DSQ = DSQ + DBLE(V3(I)*V4(I)) GO TO 240 220 CALL FRBK (V2(1),V4(1),V3(1),V5(1)) DO 230 I = 1,NORD 230 DSQ = DSQ + DBLE(V3(I)*V3(I)) 240 DSQ = 1.0D+0/DSQRT(DSQ) TMP = SNGL(DSQ) DO 250 I = 1,NORD 250 V2(I) = V3(I)*TMP GO TO 320 C C CALCULATE OFF DIAGONAL TERM OF B C 300 D = ZERO DO 310 I = 1,NORD 310 D = D + DBLE(V2(I)*V4(I)) C C COMMENTS FROM G.CHAN/UNISYS 1/92 C WHAT HAPPENS IF D IS NEGATIVE HERE? NEXT LINE WILL BE ALWAYS TRUE. C IF (D .LT. DEPX*DABS(AII)) GO TO 500 320 CALL GOPEN (IFG,ZB(1),WRT) IIP = 1 NNP = NORD IF (IOPTF .EQ. 1) GO TO 330 CALL FRSW (V2(1),V4(1),V3(1),V5(1)) CALL FRMLT (MCBSMA(1),V3(1),V4(1),V5(1)) CALL PACK (V2(1),IFG,MCBRM(1)) GO TO 350 330 CALL FRBK (V2(1),V4(1),V3(1),V5(1)) CALL PACK (V4(1),IFG,MCBRM(1)) DO 340 I = 1,NORD 340 V4(I) = V3(I) 350 CALL CLOSE (IFG,NOREW) C C CALCULATE DIAGONAL TERM OF B C AII = ZERO DO 400 I = 1,NORD 400 AII = AII + DBLE(V2(I)*V4(I)) TMP = SNGL(AII) IF (D .EQ. ZERO) GO TO 420 XD = SNGL(D) DO 410 I = 1,NORD 410 V3(I) = V3(I) - TMP*V2(I) - XD*V1(I) GO TO 440 420 DO 430 I = 1,NORD 430 V3(I) = V3(I) - TMP*V2(I) 440 DB = ZERO IF (IOPTF .EQ. 1) GO TO 460 CALL FRMLT (MCBSMA(1),V3(1),V4(1),V5(1)) DO 450 I = 1,NORD 450 DB = DB + DBLE(V3(I)*V4(I)) GO TO 480 460 DO 470 I = 1,NORD 470 DB = DB + DBLE(V3(I)*V3(I)) 480 DB = DSQRT(DB) ERRC = SNGL(DB) B(1) = SNGL(AII) B(2) = SNGL(D) CALL WRITE (SR5FLE,B(1),2,1) CALL GOPEN (IFV,ZB(1),WRT) IIP = 1 NNP = NORD CALL PACK (V2(1),IFV,MCBVEC(1)) CALL CLOSE (IFV,NOREW) NORTHO= NORTHO + 1 IFN = NORTHO - NZERO IF (L16 .NE. 0) WRITE (IO,610) IFN,MORD,AII,DB,D IF (IFN .GE. MORD) GO TO 630 C C IF NULL VECTOR GENERATED, RETURN TO OBTAIN A NEW SEED VECTOR C IF (DB .LT. DEPX*DABS(AII)) GO TO 630 C C A GOOD VECTOR IN V2. MOVE IT INTO 'PREVIOUS' VECTOR SPACE V1, C NORMALIZE V3 AND V2. LOOP BACK FOR MORE VECTORS. C DBI = 1.0D+0/DB TMP = SNGL(DBI) DO 490 I = 1,NORD V1(I) = V2(I) V3(I) = V3(I)*TMP 490 V2(I) = V3(I) GO TO 70 C 500 MORD = IFN WRITE (IO,600) UWM,MORD GO TO 630 C 600 FORMAT (A25,' 2387, PROBLEM SIZE REDUCED TO',I5,' DUE TO -', /5X, 1 'ORTHOGONALITY DRIFT OR NULL TRIAL VECTOR', /5X, 2 'ALL EXISTING MODES MAY HAVE BEEN OBTAINED. USE DIAG 16', 3 ' TO DETERMINE ERROR BOUNDS',/) 610 FORMAT (5X,'TRIDIAGONAL ELEMENTS ROW (IFN)',I5, /5X,'MORD =',I5, 1 ', AII,DB,D = ',1P,3D16.8) 620 FORMAT (11X,'ORTH ITER (IX)',I5,', MAX PROJ (SDMAX)',1P,D16.8, 1 ', NORMAL FACT (DSQ)',1P,D16.8) C 630 NAME(3) = NAME(5) CALL CONMSG (NAME,3,0) RETURN END ================================================ FILE: mis/fnxtvc.f ================================================ SUBROUTINE FNXTVC (V1,V2,V3,V4,V5,ZB,IFN) C C FNXTVC OBTAINS THE REDUCED TRIDIAGONAL MATRIX B WHERE FRBK2 C PERFORMS THE OPERATIONAL INVERSE. (DOUBLE PREC VERSION) C C T - C B = V * A * V C C V1 = SPACE FOR THE PREVIOUS CURRENT TRIAL VECTOR. INITALLY NULL C V2 = SPACE FOR THE CURRENT TRIAL VECTOR. INITIALLY A PSEUDO- C RANDOM START VECTOR C V3,V4,V5 = WORKING SPACES FOR THREE VECTORS C IFN = NO. OF TRIAL VECOTRS EXTRACTED. INITIALLY ZERO. C SEE FEER FOR DEFINITIONS OF OTHER PARAMETERS. ALSO PROGRAMMER'S C MANUAL PP. 4.48-19G THRU I C C REAL*16, MARKED BY 'CQ', WAS TRIED FOR IMPROVED ACCURACY. BUT THE C REAL*16 OPERATIONS ON VAX WERE 10 TIMES SLOWER THAN REAL*8 C (NUMERIC ACCURACY IS VERY IMPORTANT IN THIS SUBROUTINE) C INTEGER SYSBUF ,CNDFLG ,SR5FLE ,NAME(5) , 1 VCDOT DOUBLE PRECISION V1(1) ,V2(1) ,V3(1) ,V4(1) , 1 V5(1) ,LMBDA ,LAMBDA ,B(2) , 2 ZERO ,ZB(1) CQ REAL*16 D ,DB ,DSQ ,SD , DOUBLE PRECISION D ,DB ,DSQ ,SD , 1 AII ,DBI ,DEPX ,DEPX2 , 2 SDMAX ,DTMP ,OPDEPX ,OMDEPX CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /FEERCX/ IFKAA(7) ,IFMAA(7) ,IFLELM(7),IFLVEC(7), 1 SR1FLE ,SR2FLE ,SR3FLE ,SR4FLE , 2 SR5FLE ,SR6FLE ,SR7FLE ,SR8FLE , 3 DMPFLE ,NORD ,XLMBDA ,NEIG , 4 MORD ,IBK ,CRITF ,NORTHO , 5 IFLRVA ,IFLRVC COMMON /FEERXX/ LAMBDA ,CNDFLG ,ITER ,TIMED , 1 L16 ,IOPTF ,EPX ,ERRC , 2 IND ,LMBDA ,IFSET ,NZERO , 3 NONUL ,IDIAG ,MRANK ,ISTART COMMON /SYSTEM/ KSYSTM(65) COMMON /OPINV / MCBLT(7) ,MCBSMA(7),MCBVEC(7),MCBRM(7) COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP , 1 INCRP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW EQUIVALENCE (KSYSTM(1),SYSBUF) ,(KSYSTM(2),IO) DATA NAME / 4HFNXT ,4HVC ,2*4HBEGN ,4HEND / DATA VCDOT , ZERO / 4HVC. ,0.0D+0 / C C SR5FLE CONTAINS THE REDUCED TRIDIAGONAL ELEMENTS C C SR6FLE CONTAINS THE G VECTORS C SR7FLE CONTAINS THE ORTHOGONAL VECTORS C SR8FLE CONTAINS THE CONDITIONED MAA MATRIX C IF (MCBLT(7) .LT. 0) NAME(2) = VCDOT NAME(3) = NAME(4) CALL CONMSG (NAME,3,0) ITER = ITER + 1 IPRC = 2 INCR = 1 INCRP = INCR ITP1 = IPRC ITP2 = IPRC IFG = MCBRM(1) IFV = MCBVEC(1) DEPX = EPX DEPX2 = DEPX**2 OPDEPX= 1.0D+0 + DEPX OMDEPX= 1.0D+0 - DEPX CQ OPDEPX= 1.0Q+0 + DEPX CQ OMDEPX= 1.0Q+0 - DEPX D = ZERO NORD1 = NORD - 1 C C NORMALIZE START VECTOR C DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 20 CALL FRMLTD (MCBSMA(1),V2(1),V3(1),V5(1)) DO 10 I = 1,NORD 10 DSQ = DSQ + V2(I)*V3(I) GO TO 40 20 DO 30 I = 1,NORD 30 DSQ = DSQ + V2(I)*V2(I) 40 DSQ = 1.0D+0/DSQRT(DSQ) CQ 40 DSQ = 1.0D+0/QSQRT(DSQ) DO 50 I = 1,NORD 50 V2(I) = V2(I)*DSQ IF (NORTHO .EQ. 0) GO TO 200 C C ORTHOGONALIZE WITH PREVIOUS VECTORS C DO 60 I = 1,NORD 60 V3(I) = V2(I) 70 DO 170 IX = 1,14 NONUL = NONUL + 1 CALL GOPEN (IFV,ZB(1),RDREW) IF (IOPTF .EQ. 0) CALL FRMLTD (MCBSMA(1),V2(1),V3(1),V5(1)) SDMAX = ZERO DO 110 IY = 1,NORTHO II = 1 NN = NORD SD = ZERO CALL UNPACK (*90,IFV,V5(1)) DO 80 I = 1,NORD SD = SD + V3(I)*V5(I) 80 CONTINUE 90 IF (DABS(SD) .GT. SDMAX) SDMAX = DABS(SD) CQ 90 IF (QABS(SD) .GT. SDMAX) SDMAX = QABS(SD) DO 100 I = 1,NORD 100 V2(I) = V2(I) - SD*V5(I) 110 CONTINUE CALL CLOSE (IFV,EOFNRW) DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 130 CALL FRMLTD (MCBSMA(1),V2(1),V3(1),V5(1)) DO 120 I = 1,NORD1 120 DSQ = DSQ + V2(I)*V3(I) GO TO 150 130 DO 140 I = 1,NORD1 140 DSQ = DSQ + V2(I)*V2(I) C C 150 IF (DSQ .LT. DEPX2) GO TO 500 C C COMMENTS FORM G.CHAN/UNISYS ABOUT DSQ AND DEPX2 ABOVE, 1/92 C C DEPX2 IS SQUARE OF EPX. ORIGINALLY SINCE DAY 1, EPX (FOR VAX AND C IBM) IS 10.**-14 AND THEREFORE DEPX2 = 10.**-28. (10.**-24 FOR C THE 60/64 BIT MACHINES, USING S.P. COMPUTATION) C (EPX WAS SET TO 10.**-10 FOR ALL MACHINES, S.P. AND D.P., 1/92) C C NOTICE THAT DSQ IS THE DIFFERENCE OF TWO CLOSE NUMERIC NUMBERS. C THE FINAL VAULES OF DSQ AND THE PRODUCT OF V2*V2 OR V2*V3 APPROACH C ONE ANOTHER, AND DEFFER ONLY IN SIGN. THEREFORE, THE NUMBER OF C DIGITS (MANTISSA) AS WELL AS THE EXPONENT ARE IMPORTANT HERE C (PREVIOUSLY, DO LOOPS 120 AND 140 COVERED 1 THRU NORD) C C MOST OF THE 32 BIT MACHINES HOLD 15 DIGIT IN D.P. WORD, AND SAME C FOR THE 64 BIT MACHINES USING S.P. WORD. THEREFORE, CHECKING DSQ C DOWN TO 10.**-28 (OR 10.**-24) IS BEYOND THE HARDWARE LIMITS. C THIS MAY EXPLAIN SOME TIMES THE RIGID BODY MODES (FREQUENCY = 0.0) C GO TO NEGATIVE; IN SOME INSTANCES REACHING -1.E+5 RANGE C C NEXT 7 LINES TRY TO SOLVE THE ABOVE DILEMMA C 150 D = V3(NORD) IF (IOPTF .EQ. 1) D = V2(NORD) D = V2(NORD)*D DTMP = DSQ DSQ = DSQ + D IF (DSQ .LT. DEPX2) GO TO 500 DTMP = DABS(D/DTMP) CQ DTMP = QABS(D/DTMP) IF (DTMP.GT.OMDEPX .AND. DTMP.LT.OPDEPX) GO TO 500 D = ZERO C DSQ = DSQRT(DSQ) CQ DSQ = QSQRT(DSQ) IF (L16 .NE. 0) WRITE (IO,620) IX,SDMAX,DSQ DSQ = 1.0D+0/DSQ DO 160 I = 1,NORD V2(I) = V2(I)*DSQ 160 V3(I) = V2(I) IF (SDMAX .LT. DEPX) GO TO 200 170 CONTINUE C GO TO 500 200 IF (IFN .NE. 0) GO TO 300 C C SWEEP START VECTOR FOR ZERO ROOTS C DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 220 CALL FRSW2 (V2(1),V4(1),V3(1),V5(1)) CALL FRMLTD (MCBSMA(1),V3(1),V4(1),V5(1)) DO 210 I = 1,NORD 210 DSQ = DSQ + V3(I)*V4(I) GO TO 240 220 CALL FRBK2 (V2(1),V4(1),V3(1),V5(1)) DO 230 I = 1,NORD 230 DSQ = DSQ + V3(I)*V3(I) 240 DSQ = 1.0D+0/DSQRT(DSQ) CQ240 DSQ = 1.0D+0/QSQRT(DSQ) DO 250 I = 1,NORD 250 V2(I) = V3(I)*DSQ GO TO 320 C C CALCULATE OFF DIAGONAL TERM OF B C 300 D = ZERO DO 310 I = 1,NORD 310 D = D + V2(I)*V4(I) C C COMMENTS FROM G.CHAN/UNISYS 1/92 C WHAT HAPPENS IF D IS NEGATIVE HERE? NEXT LINE WOULD BE ALWAY TRUE. C IF (D .LT. DEPX*DABS(AII)) GO TO 500 CQ IF (D .LT. DEPX*QABS(AII)) GO TO 500 320 CALL GOPEN (IFG,ZB(1),WRT) IIP = 1 NNP = NORD IF (IOPTF .EQ. 1) GO TO 330 CALL FRSW2 (V2(1),V4(1),V3(1),V5(1)) CALL FRMLTD (MCBSMA(1),V3(1),V4(1),V5(1)) CALL PACK (V2(1),IFG,MCBRM(1)) GO TO 350 330 CALL FRBK2 (V2(1),V4(1),V3(1),V5(1)) CALL PACK (V4(1),IFG,MCBRM(1)) DO 340 I = 1,NORD 340 V4(I) = V3(I) 350 CALL CLOSE (IFG,NOREW) C C CALCULATE DIAGONAL TERM OF B C AII = ZERO DO 400 I = 1,NORD 400 AII = AII + V2(I)*V4(I) IF (D .EQ. ZERO) GO TO 420 DO 410 I = 1,NORD 410 V3(I) = V3(I) - AII*V2(I) - D*V1(I) GO TO 440 420 DO 430 I = 1,NORD 430 V3(I) = V3(I) - AII*V2(I) 440 DB = ZERO IF (IOPTF .EQ. 1) GO TO 460 CALL FRMLTD (MCBSMA(1),V3(1),V4(1),V5(1)) DO 450 I = 1,NORD 450 DB = DB + V3(I)*V4(I) GO TO 480 460 DO 470 I = 1,NORD 470 DB = DB + V3(I)*V3(I) 480 DB = DSQRT(DB) CQ480 DB = QSQRT(DB) ERRC = SNGL(DB) B(1) = AII B(2) = D CALL WRITE (SR5FLE,B(1),4,1) CALL GOPEN (IFV,ZB(1),WRT) IIP = 1 NNP = NORD CALL PACK (V2(1),IFV,MCBVEC(1)) CALL CLOSE (IFV,NOREW) NORTHO = NORTHO + 1 IFN = NORTHO - NZERO IF (L16 .NE. 0) WRITE (IO,610) IFN,MORD,AII,DB,D IF (IFN .GE. MORD) GO TO 630 C C IF NULL VECTOR GENERATED, RETURN TO OBTAIN A NEW SEED VECTOR C IF (DB .LT. DEPX*DABS(AII)) GO TO 630 C C A GOOD VECTOR IN V2. MOVE IT INTO 'PREVIOUS' VECTOR SPACE V1, C NORMALIZE V3 AND V2. LOOP BACK FOR MORE VECTORS. C DBI = 1.0D+0/DB DO 490 I = 1,NORD V1(I) = V2(I) V3(I) = V3(I)*DBI 490 V2(I) = V3(I) GO TO 70 C 500 MORD = IFN WRITE (IO,600) UWM,MORD GO TO 630 C 600 FORMAT (A25,' 2387, PROBLEM SIZE REDUCED TO',I5,' DUE TO -', /5X, 1 'ORTHOGONALITY DRIFT OR NULL TRIAL VECTOR', /5X, 2 'ALL EXISTING MODES MAY HAVE BEEN OBTAINED. USE DIAG 16', 3 ' TO DETERMINE ERROR BOUNDS',/) 610 FORMAT (5X,'TRIDIAGONAL ELEMENTS ROW (IFN)',I5, /5X,'MORD =',I5, 1 ', AII,DB,D = ',1P,3D16.8) 620 FORMAT (11X,'ORTH ITER (IX)',I5,', MAX PROJ (SDMAX)',1P,D16.8, 1 ', NORMAL FACT (DSQ)',1P,D16.8) C 630 NAME(3) = NAME(5) CALL CONMSG (NAME,3,0) RETURN END ================================================ FILE: mis/fnxtvd.f ================================================ SUBROUTINE FNXTVD (V1,V2,V3,V4,V5,ZB,IFN) C C THIS ROUTINE IS SAME AS FNXTV EXCEPT IN CERTAIN KEY AREAS THE C COMPUTATIONS ARE REINFORCED BY DOUBLE PRECISION OPERATIONS FOR C IMPROVED NUMERIC ACCURACY. IT IS INTENED TO BE USED IN THE 60/64 C BIT WORD MACHINES C C FOR THE 32 BIT WORD MACHINES, USE FNXTVQ. C C IN SOME 60/64 BIT MACHINES, FNXTVD MAY RUN MUCH SLOWER THAN FNXTV C C THIS ROUTINE IS ACTIVATED BY THE EIGR BULKDATA CARD USING THE BCD C WORD 'FEER-Q' INSTEAD OF 'FEER' ON THE 3RD FIELD. C C FNXTVD OBTAINS THE REDUCED TRIDIAGONAL MATRIX B WHERE FRBK2 C PERFORMS THE OPERATIONAL INVERSE. (QUAD/DOUBLE PREC VERSION) C C T - C B = V * A * V C C V1 = SPACE FOR THE PREVIOUS CURRENT TRIAL VECTOR. INITALLY NULL C V2 = SPACE FOR THE CURRENT TRIAL VECTOR. INITIALLY A PSEUDO- C RANDOM START VECTOR C V3,V4,V5 = WORKING SPACES FOR THREE VECTORS C IFN = NO. OF TRIAL VECOTRS EXTRACTED. INITIALLY ZERO. C SEE FEER FOR DEFINITIONS OF OTHER PARAMETERS. ALSO PROGRAMMER'S C MANUAL PP. 4.48-19G THRU I C INTEGER SYSBUF ,CNDFLG ,SR5FLE ,NAME(5) , 1 VDDOT DOUBLE PRECISION LMBDA ,LAMBDA ,DBI ,SDMAX , 1 D ,DB ,DSQ ,SD , 2 AII ,DEPX ,DEPX2 ,OPDEPX , 3 OMDEPX ,ZERO ,B(2) DIMENSION V1(1) ,V2(1) ,V3(1) ,V4(1) , 1 V5(1) ,ZB(1) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /FEERCX/ IFKAA(7) ,IFMAA(7) ,IFLELM(7),IFLVEC(7), 1 SR1FLE ,SR2FLE ,SR3FLE ,SR4FLE , 2 SR5FLE ,SR6FLE ,SR7FLE ,SR8FLE , 3 DMPFLE ,NORD ,XLMBDA ,NEIG , 4 MORD ,IBK ,CRITF ,NORTHO , 5 IFLRVA ,IFLRVC COMMON /FEERXX/ LAMBDA ,CNDFLG ,ITER ,TIMED , 1 L16 ,IOPTF ,EPX ,ERRC , 2 IND ,LMBDA ,IFSET ,NZERO , 3 NONUL ,IDIAG ,MRANK ,ISTART COMMON /SYSTEM/ KSYSTM(65) COMMON /OPINV / MCBLT(7) ,MCBSMA(7),MCBVEC(7),MCBRM(7) COMMON /UNPAKX/ IPRC ,II ,NN ,INCR COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP , 1 INCRP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW EQUIVALENCE (KSYSTM(1),SYSBUF) ,(KSYSTM(2),IO) DATA NAME / 4HFNXT ,4HVD ,2*4HBEGN ,4HEND / DATA VDDOT , ZERO / 4HVD. ,0.0D+0 / C C SR5FLE CONTAINS THE REDUCED TRIDIAGONAL ELEMENTS C C SR6FLE CONTAINS THE G VECTORS C SR7FLE CONTAINS THE ORTHOGONAL VECTORS C SR8FLE CONTAINS THE CONDITIONED MAA MATRIX C IF (MCBLT(7) .LT. 0) NAME(2) = VDDOT NAME(3) = NAME(4) CALL CONMSG (NAME,3,0) ITER = ITER + 1 IPRC = 2 INCR = 1 INCRP = INCR ITP1 = IPRC ITP2 = IPRC IFG = MCBRM(1) IFV = MCBVEC(1) DEPX = DBLE(EPX) DEPX2 = DEPX**2 OPDEPX= 1.0D0 + DEPX OMDEPX= 1.0D0 - DEPX D = ZERO NORD1 = NORD - 1 C C NORMALIZE START VECTOR C DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 20 CALL FRMLT (MCBSMA(1),V2(1),V3(1),V5(1)) DO 10 I = 1,NORD 10 DSQ = DSQ + DBLE(V2(I)*V3(I)) GO TO 40 20 DO 30 I = 1,NORD 30 DSQ = DSQ + DBLE(V2(I)*V2(I)) 40 DSQ = 1.0D+0/DSQRT(DSQ) TMP = SNGL(DSQ) DO 50 I = 1,NORD 50 V2(I) = V2(I)*TMP IF (NORTHO .EQ. 0) GO TO 200 C C ORTHOGONALIZE WITH PREVIOUS VECTORS C DO 60 I = 1,NORD 60 V3(I) = V2(I) 70 DO 170 IX = 1,14 NONUL = NONUL + 1 CALL GOPEN (IFV,ZB(1),RDREW) IF (IOPTF .EQ. 0) CALL FRMLT (MCBSMA(1),V2(1),V3(1),V5(1)) SDMAX = ZERO DO 110 IY = 1,NORTHO II = 1 NN = NORD SD = ZERO CALL UNPACK (*90,IFV,V5(1)) DO 80 I = 1,NORD SD = SD + DBLE(V3(I)*V5(I)) 80 CONTINUE 90 IF (DABS(SD) .GT. SDMAX) SDMAX = DABS(SD) TMP = SNGL(SD) DO 100 I = 1,NORD 100 V2(I) = V2(I) - TMP*V5(I) 110 CONTINUE CALL CLOSE (IFV,EOFNRW) DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 130 CALL FRMLT (MCBSMA(1),V2(1),V3(1),V5(1)) DO 120 I = 1,NORD1 120 DSQ = DSQ + DBLE(V2(I)*V3(I)) GO TO 150 130 DO 140 I = 1,NORD1 140 DSQ = DSQ + DBLE(V2(I)*V2(I)) C 150 D = DBLE(V3(NORD)) IF (IOPTF .EQ. 1) D = DBLE(V2(NORD)) D = DBLE(V2(NORD))*D DTMP = DSQ DSQ = DSQ + D IF (DSQ .LT. DEPX2) GO TO 500 DTMP = DABS(D/DTMP) IF (DTMP.GT.OMDEPX .AND. DTMP.LT.OPDEPX) GO TO 500 D = ZERO C DSQ = DSQRT(DSQ) IF (L16 .NE. 0) WRITE (IO,620) IX,SDMAX,DSQ DSQ = 1.0D+0/DSQ TMP = SNGL(DSQ) DO 160 I = 1,NORD V2(I) = V2(I)*TMP 160 V3(I) = V2(I) IF (SDMAX .LT. DEPX) GO TO 200 170 CONTINUE GO TO 500 C 200 IF (IFN .NE. 0) GO TO 300 C C SWEEP START VECTOR FOR ZERO ROOTS C DSQ = ZERO IF (IOPTF .EQ. 1) GO TO 220 CALL FRSW (V2(1),V4(1),V3(1),V5(1)) CALL FRMLT (MCBSMA(1),V3(1),V4(1),V5(1)) DO 210 I = 1,NORD 210 DSQ = DSQ + DBLE(V3(I)*V4(I)) GO TO 240 220 CALL FRBK (V2(1),V4(1),V3(1),V5(1)) DO 230 I = 1,NORD 230 DSQ = DSQ + DBLE(V3(I)*V3(I)) 240 DSQ = 1.0D+0/DSQRT(DSQ) TMP = SNGL(DSQ) DO 250 I = 1,NORD 250 V2(I) = V3(I)*TMP GO TO 320 C C CALCULATE OFF DIAGONAL TERM OF B C 300 D = ZERO DO 310 I = 1,NORD 310 D = D + DBLE(V2(I)*V4(I)) C C COMMENTS FROM G.CHAN/UNISYS 1/92 C WHAT HAPPENS IF D IS NEGATIVE HERE? NEXT LINE WOULD BE ALWAYS TRUE C IF (D .LT. DEPX*DABS(AII)) GO TO 500 320 CALL GOPEN (IFG,ZB(1),WRT) IIP = 1 NNP = NORD IF (IOPTF .EQ. 1) GO TO 330 CALL FRSW (V2(1),V4(1),V3(1),V5(1)) CALL FRMLT (MCBSMA(1),V3(1),V4(1),V5(1)) CALL PACK (V2(1),IFG,MCBRM(1)) GO TO 350 330 CALL FRBK (V2(1),V4(1),V3(1),V5(1)) CALL PACK (V4(1),IFG,MCBRM(1)) DO 340 I = 1,NORD 340 V4(I) = V3(I) 350 CALL CLOSE (IFG,NOREW) C C CALCULATE DIAGONAL TERM OF B C AII = ZERO DO 400 I = 1,NORD 400 AII = AII + DBLE(V2(I)*V4(I)) TMP = SNGL(AII) IF (D .EQ. ZERO) GO TO 420 TMX = SNGL(D) DO 410 I = 1,NORD 410 V3(I) = V3(I) - TMP*V2(I) - TMX*V1(I) GO TO 440 420 DO 430 I = 1,NORD 430 V3(I) = V3(I) - TMP*V2(I) 440 DB = ZERO IF (IOPTF .EQ. 1) GO TO 460 CALL FRMLT (MCBSMA(1),V3(1),V4(1),V5(1)) DO 450 I = 1,NORD 450 DB = DB + DBLE(V3(I)*V4(I)) GO TO 480 460 DO 470 I = 1,NORD 470 DB = DB + DBLE(V3(I)*V3(I)) 480 DB = DSQRT(DB) ERRC = SNGL(DB) B(1) = AII B(2) = D CALL WRITE (SR5FLE,B(1),4,1) CALL GOPEN (IFV,ZB(1),WRT) IIP = 1 NNP = NORD CALL PACK (V2(1),IFV,MCBVEC(1)) CALL CLOSE (IFV,NOREW) NORTHO= NORTHO + 1 IFN = NORTHO - NZERO IF (L16 .NE. 0) WRITE (IO,610) IFN,MORD,AII,DB,D IF (IFN .GE. MORD) GO TO 630 C C IF NULL VECTOR GENERATED, RETURN TO OBTAIN A NEW SEED VECTOR C IF (DB .LT. DEPX*DABS(AII)) GO TO 630 C C A GOOD VECTOR IN V2. MOVE IT INTO 'PREVIOUS' VECTOR SPACE V1, C NORMALIZE V3 AND V2. LOOP BACK FOR MORE VECTORS. C DBI = 1.0D+0/DB TMP = SNGL(DBI) DO 490 I = 1,NORD V1(I) = V2(I) V3(I) = V3(I)*TMP 490 V2(I) = V3(I) GO TO 70 C 500 MORD = IFN WRITE (IO,600) UWM,MORD GO TO 630 C 600 FORMAT (A23,' 2387, PROBLEM SIZE REDUCED TO',I5,' DUE TO -', /5X, 1 'ORTHOGONALITY DRIFT OR NULL TRIAL VECTOR', /5X, 2 'ALL EXISTING MODES MAY HAVE BEEN OBTAINED. USE DIAG 16', 3 ' TO DETERMINE ERROR BOUNDS',/) 610 FORMAT (5X,'TRIDIAGONAL ELEMENTS ROW (IFN)',I5, /5X,'MORD =',I5, 1 ', AII,DB,D = ',1P,3D16.8) 620 FORMAT (11X,'ORTH ITER (IX)',I5,', MAX PROJ (SDMAX)',1P,D16.8, 1 ', NORMAL FACT (DSQ)',1P,D16.8) C 630 NAME(3) = NAME(5) CALL CONMSG (NAME,3,0) RETURN END ================================================ FILE: mis/forfil.f ================================================ INTEGER FUNCTION FORFIL (NAME) C C FORFIL RETURNS THE LOGICAL UNIT TO WHICH NAME IS ASSIGNED. C EXTERNAL ANDF INTEGER ANDF ,EXFIAT,FIAT ,FIST ,SYSOUT CHARACTER UFM*23 ,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /SYSTEM/ SYSBUF ,SYSOUT COMMON /XXFIAT/ EXFIAT(1) COMMON /XFIAT / FIAT(1) COMMON /XFIST / MFIST ,NFIST ,FIST(1) C C SEARCH FIST FOR NAME. ERROR IF NOT FOUND. C NN = 2*NFIST - 1 DO 2001 I = 1,NN,2 IF (FIST(I) .EQ. NAME) GO TO 2010 2001 CONTINUE WRITE (SYSOUT,2002) SFM,NAME,NAME 2002 FORMAT (A25,' 2179, ERROR DETECTED IN FUNCTION FORFIL',A4,I4, 1 ' NOT IN FIST.') CALL MESAGE (-61,0,0) FORFIL = 0 RETURN C C PICK UP UNIT FROM /XXFIAT/ OR /XFIAT/ AND RETURN. C 2010 J = FIST(I+1) IF (J) 2013,2014,2015 2013 J = -J 2014 FORFIL = ANDF(EXFIAT(J+1),32767) RETURN 2015 FORFIL = ANDF(FIAT(J+1),32767) RETURN END ================================================ FILE: mis/form1.f ================================================ SUBROUTINE FORM1(U0,UDOT0,U1,P0,P1,DELTT,IBUF) C******* C FORM1 GENERATES THE STARTING VECTORS FOR THE INTEGRATION MODULE C C THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION C******* DIMENSION U0(1) ,UDOT0(1) ,U1(1) ,P0(1) , 1 P1(1),IBUF(1) C COMMON /BLANK/ DUMMY(5) ,ISTART COMMON /TRDXX / IFILK(7) ,IFILM(7) ,IFILB(7) C NROW = IFILK(2) C C******* C FORM U(-1) C******* DO 10 I = 1,NROW P1(I) = 0. 10 U1(I) = U0(I)-DELTT*UDOT0(I) IF (ISTART.GE.0) GO TO 30 DO 15 I = 1, NROW P0(I) = 0.0 15 CONTINUE C******* C FORM P0 C******* CALL MATVEC(U0(1),P0(1),IFILK(1),IBUF) CALL MATVEC(UDOT0(1),P0(1),IFILB(1),IBUF) C******* C FORM P(-1) C******* CALL MATVEC(UDOT0(1),P1(1),IFILK(1),IBUF) DO 20 I = 1,NROW 20 P1(I) = P0(I)-DELTT*P1(I) RETURN C C ALTERNATE STARTING METHOD C 30 CALL MATVEC (U0(1), P1(1), IFILK(1), IBUF) CALL MATVEC (UDOT0(1), P1(1), IFILB(1), IBUF) DO 40 I = 1, NROW P0(I) = 0.5*(P0(I) + P1(I)) UDOT0(I) = - UDOT0(I)*DELTT 40 CONTINUE C C ADD UDOT CONTRIBUTION C CALL MATVEC (UDOT0(1), P1(1), IFILK(1), IBUF) C C RESTORE UDOT C DO 50 I = 1, NROW UDOT0(I) = - UDOT0(I)/DELTT 50 CONTINUE RETURN END ================================================ FILE: mis/form12.f ================================================ SUBROUTINE FORM12 (U0, UDOT0, U1, P0, P1, DELTT, IBUF) C******* C FORM12 GENERATES THE STARTING VECTORS FOR THE INTEGRATION MODULE C C THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION C******* DOUBLE PRECISION U0(1) ,UDOT0(1) ,U1(1) ,P0(1) , 1 P1(1) C DIMENSION IBUF(1) C COMMON /BLANK/ DUMMY(5) ,ISTART COMMON /TRDXX / IFILK(7) ,IFILM(7) ,IFILB(7) C NROW = IFILK(2) C******* C FORM U(-1) C******* DO 10 I = 1,NROW P1(I) = 0.0D0 10 U1(I) = U0(I)-DELTT*UDOT0(I) IF (ISTART.GE.0) GO TO 30 DO 15 I = 1, NROW P0(I) = 0.0D0 15 CONTINUE C******* C FORM P0 C******* CALL MATVC2(U0(1),P0(1),IFILK(1),IBUF) CALL MATVC2(UDOT0(1),P0(1),IFILB(1),IBUF) C******* C FORM P(-1) C******* CALL MATVC2(UDOT0(1),P1(1),IFILK(1),IBUF) DO 20 I = 1,NROW 20 P1(I) = P0(I)-DELTT*P1(I) RETURN C C ALTERNATE STARTING METHOD C 30 CALL MATVC2 (U0(1), P1(1), IFILK(1), IBUF) CALL MATVC2 (UDOT0(1), P1(1), IFILB(1), IBUF) DO 40 I = 1, NROW P0(I) = 0.5D0*(P0(I) + P1(I)) UDOT0(I) = - UDOT0(I)*DELTT 40 CONTINUE C C ADD UDOT CONTRIBUTION C CALL MATVC2 (UDOT0(1), P1(1), IFILK(1), IBUF) C C RESTORE UDOT C DO 50 I = 1, NROW UDOT0(I) = - UDOT0(I)/DELTT 50 CONTINUE RETURN END ================================================ FILE: mis/form2.f ================================================ SUBROUTINE FORM2(UDDIP1,UDIPRM,UIPRM,PIPRM,IBUF) C******* C FORM2 GENERATES THE VECTORS NECESSARY TO CHANGE THE TIME STEP C C THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION C******* DIMENSION UDDIP1(1),UDIPRM(1),UIPRM(1),PIPRM(1),IBUF(1) C COMMON /TRDXX / IFILK(7) ,IFILM(7) ,IFILB(7) C******* C FORM UDOT(I+1), UDDOT(I+1), UDOT-(I), AND U-(I) C******* CALL MATVEC(UDDIP1(1),PIPRM(1),IFILM(1),IBUF) CALL MATVEC(UDIPRM(1),PIPRM(1),IFILB(1),IBUF) CALL MATVEC(UIPRM(1),PIPRM(1),IFILK(1),IBUF) RETURN END ================================================ FILE: mis/form22.f ================================================ SUBROUTINE FORM22 (UDDIP1, UDIPRM, UIPRM, PIPRM, IBUF) C******* C FORM22 GENERATES THE VECTORS NECESSARY TO CHANGE THE TIME STEP C C THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION C******* DOUBLE PRECISION UDDIP1(1), UDIPRM(1), UIPRM(1), PIPRM(1) C DIMENSION IBUF(1) C COMMON /TRDXX / IFILK(7) ,IFILM(7) ,IFILB(7) C******* C FORM UDOT(I+1), UDDOT(I+1), UDOT-(I), AND U-(I) C******* CALL MATVC2(UDDIP1(1),PIPRM(1),IFILM(1),IBUF) CALL MATVC2(UDIPRM(1),PIPRM(1),IFILB(1),IBUF) CALL MATVC2(UIPRM(1),PIPRM(1),IFILK(1),IBUF) RETURN END ================================================ FILE: mis/format.f ================================================ SUBROUTINE FORMAT (A,N1X,N2X,N3X,L1X,L2X) C C $MIXED_FORMATS C REAL FF(6),F(6,6,2),F11(6),F21(6),F31(6),F41(6),F51(6), 1 F61(6),F12(6),F22(6),F32(6),F42(6),F52(6),F62(6) DIMENSION A(6) COMMON /SYSTEM/ SKIP,MO EQUIVALENCE (F11(1),F(1,1,1)), (F21(1),F(1,2,1)), 1 (F31(1),F(1,3,1)), (F41(1),F(1,4,1)), 2 (F51(1),F(1,5,1)), (F61(1),F(1,6,1)), 3 (F12(1),F(1,1,2)), (F22(1),F(1,2,2)), 4 (F32(1),F(1,3,2)), (F42(1),F(1,4,2)), 5 (F52(1),F(1,5,2)), (F62(1),F(1,6,2)) DATA F11 / 4H(I5, ,4H49X, ,4H1P,1 ,4HE19. ,4H6,I0 ,4H58) /, 1 F21 / 4H(I5, ,4H40X, ,4H1P,2 ,4HE19. ,4H6,I0 ,4H48) /, 2 F31 / 4H(I5, ,4H30X, ,4H1P,0 ,4HE19. ,4H6,I0 ,4H39) /, 3 F41 / 4H(I5, ,4H21X, ,4H1P,4 ,4HE19. ,4H6,I0 ,4H29) /, 4 F51 / 4H(I5, ,4H11X, ,4H1P,5 ,4HE19. ,4H6,I0 ,4H20) /, 5 F61 / 4H(I5, ,4H02X, ,4H1P,6 ,4HE19. ,4H6,I0 ,4H10) / DATA F12 / 4H(I5, ,4H02X, ,4H1P,1 ,4HE19. ,4H6,I1 ,4H05) /, 1 F22 / 4H(I5, ,4H02X, ,4H1P,2 ,4HE19. ,4H6,I0 ,4H86) /, 2 F32 / 4H(I5, ,4H02X, ,4H1P,3 ,4HE19. ,4H6,I0 ,4H67) /, 3 F42 / 4H(I5, ,4H02X, ,4H1P,4 ,4HE19. ,4H6,I0 ,4H48) /, 4 F52 / 4H(I5, ,4H02X, ,4H1P,5 ,4HE19. ,4H6,I0 ,4H29) /, 5 F62 / 4H(I5, ,4H02X, ,4H1P,6 ,4HE19. ,4H6,I0 ,4H10) / C N1 = N1X N2 = N2X N3 = N3X L1 = L1X L2 = L2X N = (N2-N1+N3)/N3 IF (N .LE. 0) GO TO 20 IF (N .GT. 6) N = 6 L = 2 IF (L1.LE.0 .OR. L2.LE.0) L = 1 DO 10 I = 1,6 FF(I) = F(I,N,L) 10 CONTINUE L1 = IABS(L1) L2 = IABS(L2) WRITE (MO,FF,ERR=20) L1,(A(I),I=N1,N2,N3),L2 C 20 RETURN END ================================================ FILE: mis/formg2.f ================================================ SUBROUTINE FORMG2(IG,JR,JD,IR,ID) C C FORMGG FORMS THE GG MATRIX FOR EACH RIGID ELEMENT DEGREE OF C FREEDOM. IG IS THE START OF THE ROW STORED GG MATRIX - 1 C JR IS THE START OF THE TA MATRIX - 1. C JD IS THE START OF THE TB MATRIX - 1. C IR IS THE START OF THE BGPDT INFORMATION FOR REFERENCE POINT C ID IS THE START OF THE BGPDT INFORMATION FOR DEPENDENT POINT C DOUBLE PRECISION XD,YD,ZD,ZZ(1) DIMENSION ZR(1) INTEGER Z COMMON/ZZZZZZ/Z(1) EQUIVALENCE (ZZ(1),ZR(1)) EQUIVALENCE (ZZ(1),Z(1)) C C CALCULATE THE X,Y,AND Z DIRECTED DISTANCES WITH RESPECT TO THE C REFERENCE GRID POINT C XD = ZR(ID+1) - ZR(IR+1) YD = ZR(ID+2) - ZR(IR+2) ZD = ZR(ID+3) - ZR(IR+3) C C IF NO TRANSFORMATION IS NECESSARY, GO TO 30 C IF (Z(IR).EQ.0.AND.Z(ID).EQ.0) GO TO 30 C C IF ONLY DEPENDENT GRID POINT HAS A TRANSFORMATION, GO TO 20 C IF (Z(IR).EQ.0) GO TO 20 C C IF BOTH HAVE TRANSFORMATIONS, GO TO 10 C C IF (Z(ID).NE.0) GO TO 10 C C ONLY REFERENCE GRID POINT HAS A TRANSFORMATION C ZZ(IG+ 1) = ZZ(JR+1) ZZ(IG+ 2) = ZZ(JR+2) ZZ(IG+ 3) = ZZ(JR+3) ZZ(IG+ 4) =ZD * ZZ(JR+4) - YD * ZZ(JR+7) ZZ(IG+ 5) =ZD * ZZ(JR+5) - YD * ZZ(JR+8) ZZ(IG+ 6) =ZD * ZZ(JR+6) - YD * ZZ(JR+9) ZZ(IG+ 7) = ZZ(JR+4) ZZ(IG+ 8) = ZZ(JR+5) ZZ(IG+ 9) = ZZ(JR+6) ZZ(IG+10) =XD * ZZ(JR+7) - ZD * ZZ(JR+1) ZZ(IG+11) =XD * ZZ(JR+8) - ZD * ZZ(JR+2) ZZ(IG+12) =XD * ZZ(JR+9) - ZD * ZZ(JR+3) ZZ(IG+13) = ZZ(JR+7) ZZ(IG+14) = ZZ(JR+8) ZZ(IG+15) = ZZ(JR+9) ZZ(IG+16) =YD * ZZ(JR+1) - XD * ZZ(JR+4) ZZ(IG+17) =YD * ZZ(JR+2) - XD * ZZ(JR+5) ZZ(IG+18) =YD * ZZ(JR+3) - XD * ZZ(JR+6) ZZ(IG+19) = 0.0 ZZ(IG+20) = 0.0 ZZ(IG+21) = 0.0 ZZ(IG+22) = ZZ(IG+ 1) ZZ(IG+23) = ZZ(IG+ 2) ZZ(IG+24) = ZZ(IG+ 3) ZZ(IG+25) = 0.0 ZZ(IG+26) = 0.0 ZZ(IG+27) = 0.0 ZZ(IG+28) = ZZ(IG+ 7) ZZ(IG+29) = ZZ(IG+ 8) ZZ(IG+30) = ZZ(IG+ 9) ZZ(IG+31) = 0.0 ZZ(IG+32) = 0.0 ZZ(IG+33) = 0.0 ZZ(IG+34) = ZZ(IG+13) ZZ(IG+35) = ZZ(IG+14) ZZ(IG+36) = ZZ(IG+15) RETURN 10 CONTINUE C C BOTH HAVE TRANSFORMATIONS C ZZ(IG+ 1) = ZZ(JD+1)*ZZ(JR+1) + ZZ(JD+4)*ZZ(JR+4) + 1 ZZ(JD+7)*ZZ(JR+7) ZZ(IG+ 2) = ZZ(JD+1)*ZZ(JR+2) + ZZ(JD+4)*ZZ(JR+5) + 2 ZZ(JD+7)*ZZ(JR+8) ZZ(IG+ 3) = ZZ(JD+1)*ZZ(JR+3) + ZZ(JD+4)*ZZ(JR+6) + 3 ZZ(JD+7)*ZZ(JR+9) ZZ(IG+ 4) = ZZ(JD+1)*ZD*ZZ(JR+4)-ZZ(JD+1)*YD*ZZ(JR+7) + 1 ZZ(JD+4)*XD*ZZ(JR+7) - ZZ(JD+4)*ZD*ZZ(JR+1) + 1 ZZ(JD+7)*YD*ZZ(JR+1) - ZZ(JD+7)*XD*ZZ(JR+4) ZZ(IG+ 5) = ZZ(JD+1)*ZD*ZZ(JR+5)-ZZ(JD+1)*YD*ZZ(JR+8) + 2 ZZ(JD+4)*XD*ZZ(JR+8) - ZZ(JD+4)*ZD*ZZ(JR+2) + 2 ZZ(JD+7)*YD*ZZ(JR+2) - ZZ(JD+7)*XD*ZZ(JR+5) ZZ(IG+ 6) = ZZ(JD+1)*ZD*ZZ(JR+6)-ZZ(JD+1)*YD*ZZ(JR+9) + 3 ZZ(JD+4)*XD*ZZ(JR+9) - ZZ(JD+4)*ZD*ZZ(JR+3) + 3 ZZ(JD+7)*YD*ZZ(JR+3) - ZZ(JD+7)*XD*ZZ(JR+6) ZZ(IG+ 7) = ZZ(JD+2)*ZZ(JR+1) + ZZ(JD+5)*ZZ(JR+4) + 4 ZZ(JD+8)*ZZ(JR+7) ZZ(IG+ 8) = ZZ(JD+2)*ZZ(JR+2) + ZZ(JD+5)*ZZ(JR+5) + 5 ZZ(JD+8)*ZZ(JR+8) ZZ(IG+ 9) = ZZ(JD+2)*ZZ(JR+3) + ZZ(JD+5)*ZZ(JR+6) + 6 ZZ(JD+8)*ZZ(JR+9) ZZ(IG+10) = ZZ(JD+2)*ZD*ZZ(JR+4)-ZZ(JD+2)*YD*ZZ(JR+7) + 4 ZZ(JD+5)*XD*ZZ(JR+7) - ZZ(JD+5)*ZD*ZZ(JR+1) + 4 ZZ(JD+8)*YD*ZZ(JR+1) - ZZ(JD+8)*XD*ZZ(JR+4) ZZ(IG+11) = ZZ(JD+2)*ZD*ZZ(JR+5)-ZZ(JD+2)*YD*ZZ(JR+8) + 5 ZZ(JD+5)*XD*ZZ(JR+8) - ZZ(JD+5)*ZD*ZZ(JR+2) + 5 ZZ(JD+8)*YD*ZZ(JR+2) - ZZ(JD+8)*XD*ZZ(JR+5) ZZ(IG+12) = ZZ(JD+2)*ZD*ZZ(JR+6)-ZZ(JD+2)*YD*ZZ(JR+9) + 6 ZZ(JD+5)*XD*ZZ(JR+9) - ZZ(JD+5)*ZD*ZZ(JR+3) + 6 ZZ(JD+8)*YD*ZZ(JR+3) - ZZ(JD+8)*XD*ZZ(JR+6) ZZ(IG+13) = ZZ(JD+3)*ZZ(JR+1) + ZZ(JD+6)*ZZ(JR+4) + 7 ZZ(JD+9)*ZZ(JR+7) ZZ(IG+14) = ZZ(JD+3)*ZZ(JR+2) + ZZ(JD+6)*ZZ(JR+5) + 8 ZZ(JD+9)*ZZ(JR+8) ZZ(IG+15) = ZZ(JD+3)*ZZ(JR+3) + ZZ(JD+6)*ZZ(JR+6) + 9 ZZ(JD+9)*ZZ(JR+9) ZZ(IG+16) = ZZ(JD+3)*ZD*ZZ(JR+4)-ZZ(JD+3)*YD*ZZ(JR+7) + 7 ZZ(JD+6)*XD*ZZ(JR+7) - ZZ(JD+6)*ZD*ZZ(JR+1) + 7 ZZ(JD+9)*YD*ZZ(JR+1) - ZZ(JD+9)*XD*ZZ(JR+4) ZZ(IG+17) = ZZ(JD+3)*ZD*ZZ(JR+5)-ZZ(JD+3)*YD*ZZ(JR+8) + 8 ZZ(JD+6)*XD*ZZ(JR+8) - ZZ(JD+6)*ZD*ZZ(JR+2) + 8 ZZ(JD+9)*YD*ZZ(JR+2) - ZZ(JD+9)*XD*ZZ(JR+5) ZZ(IG+18) = ZZ(JD+3)*ZD*ZZ(JR+6)-ZZ(JD+3)*YD*ZZ(JR+9) + 9 ZZ(JD+6)*XD*ZZ(JR+9) - ZZ(JD+6)*ZD*ZZ(JR+3) + 9 ZZ(JD+9)*YD*ZZ(JR+3) - ZZ(JD+9)*XD*ZZ(JR+6) ZZ(IG+19) = 0.0 ZZ(IG+20) = 0.0 ZZ(IG+21) = 0.0 ZZ(IG+22) = ZZ(IG+ 1) ZZ(IG+23) = ZZ(IG+ 2) ZZ(IG+24) = ZZ(IG+ 3) ZZ(IG+25) = 0.0 ZZ(IG+26) = 0.0 ZZ(IG+27) = 0.0 ZZ(IG+28) = ZZ(IG+ 7) ZZ(IG+29) = ZZ(IG+ 8) ZZ(IG+30) = ZZ(IG+ 9) ZZ(IG+31) = 0.0 ZZ(IG+32) = 0.0 ZZ(IG+33) = 0.0 ZZ(IG+34) = ZZ(IG+13) ZZ(IG+35) = ZZ(IG+14) ZZ(IG+36) = ZZ(IG+15) RETURN 20 CONTINUE C C DEPENDENT GRID POINT HAS TRANSFORMATION C ZZ(IG+ 1) = ZZ(JD+1) ZZ(IG+ 2) = ZZ(JD+4) ZZ(IG+ 3) = ZZ(JD+7) ZZ(IG+ 4) = ZZ(JD+7)*YD - ZZ(JD+4)*ZD ZZ(IG+ 5) = ZZ(JD+1)*ZD - ZZ(JD+7)*XD ZZ(IG+ 6) = ZZ(JD+4)*XD - ZZ(JD+1)*YD ZZ(IG+ 7) = ZZ(JD+2) ZZ(IG+ 8) = ZZ(JD+5) ZZ(IG+ 9) = ZZ(JD+8) ZZ(IG+10) = ZZ(JD+8)*YD - ZZ(JD+5)*ZD ZZ(IG+11) = ZZ(JD+2)*ZD - ZZ(JD+8)*XD ZZ(IG+12) = ZZ(JD+5)*XD - ZZ(JD+2)*YD ZZ(IG+13) = ZZ(JD+3) ZZ(IG+14) = ZZ(JD+6) ZZ(IG+15) = ZZ(JD+9) ZZ(IG+16) = ZZ(JD+9)*YD - ZZ(JD+6)*ZD ZZ(IG+17) = ZZ(JD+3)*ZD - ZZ(JD+9)*XD ZZ(IG+18) = ZZ(JD+6)*XD - ZZ(JD+3)*YD ZZ(IG+19) = 0.0 ZZ(IG+20) = 0.0 ZZ(IG+21) = 0.0 ZZ(IG+22) = ZZ(IG+ 1) ZZ(IG+23) = ZZ(IG+ 2) ZZ(IG+24) = ZZ(IG+ 3) ZZ(IG+25) = 0.0 ZZ(IG+26) = 0.0 ZZ(IG+27) = 0.0 ZZ(IG+28) = ZZ(IG+ 7) ZZ(IG+29) = ZZ(IG+ 8) ZZ(IG+30) = ZZ(IG+ 9) ZZ(IG+31) = 0.0 ZZ(IG+32) = 0.0 ZZ(IG+33) = 0.0 ZZ(IG+34) = ZZ(IG+13) ZZ(IG+35) = ZZ(IG+14) ZZ(IG+36) = ZZ(IG+15) RETURN 30 CONTINUE C C NO TRANSFORMATIONS C DO 40 I = 1,36 ZZ(IG+I) = 0.0 40 CONTINUE ZZ(IG+ 1) = 1.0 ZZ(IG+ 8) = 1.0 ZZ(IG+15) = 1.0 ZZ(IG+22) = 1.0 ZZ(IG+29) = 1.0 ZZ(IG+36) = 1.0 ZZ(IG+ 5) = ZD ZZ(IG+ 6) = -YD ZZ(IG+10) = -ZD ZZ(IG+12) = XD ZZ(IG+16) = YD ZZ(IG+17) = -XD RETURN END ================================================ FILE: mis/formgg.f ================================================ SUBROUTINE FORMGG(IG,JR,JD,IR,ID) C C FORMGG FORMS THE GG MATRIX FOR EACH RIGID ELEMENT DEGREE OF C FREEDOM. IG IS THE START OF THE ROW STORED GG MATRIX - 1 C JR IS THE START OF THE TA MATRIX - 1. C JD IS THE START OF THE TB MATRIX - 1. C IR IS THE START OF THE BGPDT INFORMATION FOR REFERENCE POINT C ID IS THE START OF THE BGPDT INFORMATION FOR DEPENDENT POINT C INTEGER Z DIMENSION ZZ(1) COMMON/ZZZZZZ/Z(1) EQUIVALENCE (ZZ(1),Z(1)) C C CALCULATE THE X,Y,AND Z DIRECTED DISTANCES WITH RESPECT TO THE C REFERENCE GRID POINT C XD = ZZ(ID+1) - ZZ(IR+1) YD = ZZ(ID+2) - ZZ(IR+2) ZD = ZZ(ID+3) - ZZ(IR+3) C C IF NO TRANSFORMATION IS NECESSARY, GO TO 30 C IF (Z(IR).EQ.0.AND.Z(ID).EQ.0) GO TO 30 C C IF ONLY DEPENDENT GRID POINT HAS A TRANSFORMATION, GO TO 20 C IF (Z(IR).EQ.0) GO TO 20 C C IF BOTH HAVE TRANSFORMATIONS, GO TO 10 C C IF (Z(ID).NE.0) GO TO 10 C C ONLY REFERENCE GRID POINT HAS A TRANSFORMATION C ZZ(IG+ 1) = ZZ(JR+1) ZZ(IG+ 2) = ZZ(JR+2) ZZ(IG+ 3) = ZZ(JR+3) ZZ(IG+ 4) =ZD * ZZ(JR+4) - YD * ZZ(JR+7) ZZ(IG+ 5) =ZD * ZZ(JR+5) - YD * ZZ(JR+8) ZZ(IG+ 6) =ZD * ZZ(JR+6) - YD * ZZ(JR+9) ZZ(IG+ 7) = ZZ(JR+4) ZZ(IG+ 8) = ZZ(JR+5) ZZ(IG+ 9) = ZZ(JR+6) ZZ(IG+10) =XD * ZZ(JR+7) - ZD * ZZ(JR+1) ZZ(IG+11) =XD * ZZ(JR+8) - ZD * ZZ(JR+2) ZZ(IG+12) =XD * ZZ(JR+9) - ZD * ZZ(JR+3) ZZ(IG+13) = ZZ(JR+7) ZZ(IG+14) = ZZ(JR+8) ZZ(IG+15) = ZZ(JR+9) ZZ(IG+16) =YD * ZZ(JR+1) - XD * ZZ(JR+4) ZZ(IG+17) =YD * ZZ(JR+2) - XD * ZZ(JR+5) ZZ(IG+18) =YD * ZZ(JR+3) - XD * ZZ(JR+6) ZZ(IG+19) = 0.0 ZZ(IG+20) = 0.0 ZZ(IG+21) = 0.0 ZZ(IG+22) = ZZ(IG+ 1) ZZ(IG+23) = ZZ(IG+ 2) ZZ(IG+24) = ZZ(IG+ 3) ZZ(IG+25) = 0.0 ZZ(IG+26) = 0.0 ZZ(IG+27) = 0.0 ZZ(IG+28) = ZZ(IG+ 7) ZZ(IG+29) = ZZ(IG+ 8) ZZ(IG+30) = ZZ(IG+ 9) ZZ(IG+31) = 0.0 ZZ(IG+32) = 0.0 ZZ(IG+33) = 0.0 ZZ(IG+34) = ZZ(IG+13) ZZ(IG+35) = ZZ(IG+14) ZZ(IG+36) = ZZ(IG+15) RETURN 10 CONTINUE C C BOTH HAVE TRANSFORMATIONS C ZZ(IG+ 1) = ZZ(JD+1)*ZZ(JR+1) + ZZ(JD+4)*ZZ(JR+4) + 1 ZZ(JD+7)*ZZ(JR+7) ZZ(IG+ 2) = ZZ(JD+1)*ZZ(JR+2) + ZZ(JD+4)*ZZ(JR+5) + 2 ZZ(JD+7)*ZZ(JR+8) ZZ(IG+ 3) = ZZ(JD+1)*ZZ(JR+3) + ZZ(JD+4)*ZZ(JR+6) + 3 ZZ(JD+7)*ZZ(JR+9) ZZ(IG+ 4) = ZZ(JD+1)*ZD*ZZ(JR+4)-ZZ(JD+1)*YD*ZZ(JR+7) + 1 ZZ(JD+4)*XD*ZZ(JR+7) - ZZ(JD+4)*ZD*ZZ(JR+1) + 1 ZZ(JD+7)*YD*ZZ(JR+1) - ZZ(JD+7)*XD*ZZ(JR+4) ZZ(IG+ 5) = ZZ(JD+1)*ZD*ZZ(JR+5)-ZZ(JD+1)*YD*ZZ(JR+8) + 2 ZZ(JD+4)*XD*ZZ(JR+8) - ZZ(JD+4)*ZD*ZZ(JR+2) + 2 ZZ(JD+7)*YD*ZZ(JR+2) - ZZ(JD+7)*XD*ZZ(JR+5) ZZ(IG+ 6) = ZZ(JD+1)*ZD*ZZ(JR+6)-ZZ(JD+1)*YD*ZZ(JR+9) + 3 ZZ(JD+4)*XD*ZZ(JR+9) - ZZ(JD+4)*ZD*ZZ(JR+3) + 3 ZZ(JD+7)*YD*ZZ(JR+3) - ZZ(JD+7)*XD*ZZ(JR+6) ZZ(IG+ 7) = ZZ(JD+2)*ZZ(JR+1) + ZZ(JD+5)*ZZ(JR+4) + 4 ZZ(JD+8)*ZZ(JR+7) ZZ(IG+ 8) = ZZ(JD+2)*ZZ(JR+2) + ZZ(JD+5)*ZZ(JR+5) + 5 ZZ(JD+8)*ZZ(JR+8) ZZ(IG+ 9) = ZZ(JD+2)*ZZ(JR+3) + ZZ(JD+5)*ZZ(JR+6) + 6 ZZ(JD+8)*ZZ(JR+9) ZZ(IG+10) = ZZ(JD+2)*ZD*ZZ(JR+4)-ZZ(JD+2)*YD*ZZ(JR+7) + 4 ZZ(JD+5)*XD*ZZ(JR+7) - ZZ(JD+5)*ZD*ZZ(JR+1) + 4 ZZ(JD+8)*YD*ZZ(JR+1) - ZZ(JD+8)*XD*ZZ(JR+4) ZZ(IG+11) = ZZ(JD+2)*ZD*ZZ(JR+5)-ZZ(JD+2)*YD*ZZ(JR+8) + 5 ZZ(JD+5)*XD*ZZ(JR+8) - ZZ(JD+5)*ZD*ZZ(JR+2) + 5 ZZ(JD+8)*YD*ZZ(JR+2) - ZZ(JD+8)*XD*ZZ(JR+5) ZZ(IG+12) = ZZ(JD+2)*ZD*ZZ(JR+6)-ZZ(JD+2)*YD*ZZ(JR+9) + 6 ZZ(JD+5)*XD*ZZ(JR+9) - ZZ(JD+5)*ZD*ZZ(JR+3) + 6 ZZ(JD+8)*YD*ZZ(JR+3) - ZZ(JD+8)*XD*ZZ(JR+6) ZZ(IG+13) = ZZ(JD+3)*ZZ(JR+1) + ZZ(JD+6)*ZZ(JR+4) + 7 ZZ(JD+9)*ZZ(JR+7) ZZ(IG+14) = ZZ(JD+3)*ZZ(JR+2) + ZZ(JD+6)*ZZ(JR+5) + 8 ZZ(JD+9)*ZZ(JR+8) ZZ(IG+15) = ZZ(JD+3)*ZZ(JR+3) + ZZ(JD+6)*ZZ(JR+6) + 9 ZZ(JD+9)*ZZ(JR+9) ZZ(IG+16) = ZZ(JD+3)*ZD*ZZ(JR+4)-ZZ(JD+3)*YD*ZZ(JR+7) + 7 ZZ(JD+6)*XD*ZZ(JR+7) - ZZ(JD+6)*ZD*ZZ(JR+1) + 7 ZZ(JD+9)*YD*ZZ(JR+1) - ZZ(JD+9)*XD*ZZ(JR+4) ZZ(IG+17) = ZZ(JD+3)*ZD*ZZ(JR+5)-ZZ(JD+3)*YD*ZZ(JR+8) + 8 ZZ(JD+6)*XD*ZZ(JR+8) - ZZ(JD+6)*ZD*ZZ(JR+2) + 8 ZZ(JD+9)*YD*ZZ(JR+2) - ZZ(JD+9)*XD*ZZ(JR+5) ZZ(IG+18) = ZZ(JD+3)*ZD*ZZ(JR+6)-ZZ(JD+3)*YD*ZZ(JR+9) + 9 ZZ(JD+6)*XD*ZZ(JR+9) - ZZ(JD+6)*ZD*ZZ(JR+3) + 9 ZZ(JD+9)*YD*ZZ(JR+3) - ZZ(JD+9)*XD*ZZ(JR+6) ZZ(IG+19) = 0.0 ZZ(IG+20) = 0.0 ZZ(IG+21) = 0.0 ZZ(IG+22) = ZZ(IG+ 1) ZZ(IG+23) = ZZ(IG+ 2) ZZ(IG+24) = ZZ(IG+ 3) ZZ(IG+25) = 0.0 ZZ(IG+26) = 0.0 ZZ(IG+27) = 0.0 ZZ(IG+28) = ZZ(IG+ 7) ZZ(IG+29) = ZZ(IG+ 8) ZZ(IG+30) = ZZ(IG+ 9) ZZ(IG+31) = 0.0 ZZ(IG+32) = 0.0 ZZ(IG+33) = 0.0 ZZ(IG+34) = ZZ(IG+13) ZZ(IG+35) = ZZ(IG+14) ZZ(IG+36) = ZZ(IG+15) RETURN 20 CONTINUE C C DEPENDENT GRID POINT HAS TRANSFORMATION C ZZ(IG+ 1) = ZZ(JD+1) ZZ(IG+ 2) = ZZ(JD+4) ZZ(IG+ 3) = ZZ(JD+7) ZZ(IG+ 4) = ZZ(JD+7)*YD - ZZ(JD+4)*ZD ZZ(IG+ 5) = ZZ(JD+1)*ZD - ZZ(JD+7)*XD ZZ(IG+ 6) = ZZ(JD+4)*XD - ZZ(JD+1)*YD ZZ(IG+ 7) = ZZ(JD+2) ZZ(IG+ 8) = ZZ(JD+5) ZZ(IG+ 9) = ZZ(JD+8) ZZ(IG+10) = ZZ(JD+8)*YD - ZZ(JD+5)*ZD ZZ(IG+11) = ZZ(JD+2)*ZD - ZZ(JD+8)*XD ZZ(IG+12) = ZZ(JD+5)*XD - ZZ(JD+2)*YD ZZ(IG+13) = ZZ(JD+3) ZZ(IG+14) = ZZ(JD+6) ZZ(IG+15) = ZZ(JD+9) ZZ(IG+16) = ZZ(JD+9)*YD - ZZ(JD+6)*ZD ZZ(IG+17) = ZZ(JD+3)*ZD - ZZ(JD+9)*XD ZZ(IG+18) = ZZ(JD+6)*XD - ZZ(JD+3)*YD ZZ(IG+19) = 0.0 ZZ(IG+20) = 0.0 ZZ(IG+21) = 0.0 ZZ(IG+22) = ZZ(IG+ 1) ZZ(IG+23) = ZZ(IG+ 2) ZZ(IG+24) = ZZ(IG+ 3) ZZ(IG+25) = 0.0 ZZ(IG+26) = 0.0 ZZ(IG+27) = 0.0 ZZ(IG+28) = ZZ(IG+ 7) ZZ(IG+29) = ZZ(IG+ 8) ZZ(IG+30) = ZZ(IG+ 9) ZZ(IG+31) = 0.0 ZZ(IG+32) = 0.0 ZZ(IG+33) = 0.0 ZZ(IG+34) = ZZ(IG+13) ZZ(IG+35) = ZZ(IG+14) ZZ(IG+36) = ZZ(IG+15) RETURN 30 CONTINUE C C NO TRANSFORMATIONS C DO 40 I = 1,36 ZZ(IG+I) = 0.0 40 CONTINUE ZZ(IG+ 1) = 1.0 ZZ(IG+ 8) = 1.0 ZZ(IG+15) = 1.0 ZZ(IG+22) = 1.0 ZZ(IG+29) = 1.0 ZZ(IG+36) = 1.0 ZZ(IG+ 5) = ZD ZZ(IG+ 6) = -YD ZZ(IG+10) = -ZD ZZ(IG+12) = XD ZZ(IG+16) = YD ZZ(IG+17) = -XD RETURN END ================================================ FILE: mis/fornam.f ================================================ SUBROUTINE FORNAM ( IELT, ISCAN, NAME ) COMMON / SYSTEM / ISYSBF, NOUT CHARACTER*12 NAME NAME= ' ' IF ( IELT .NE. 1 .AND. IELT .NE. 3 .AND. IELT .NE. 10 ) GO TO 10 C ROD, TUBE, CONROD IF ( ISCAN .EQ. 2 ) NAME='AXIAL' IF ( ISCAN .EQ. 4 ) NAME='TORQUE' GO TO 7000 10 IF ( IELT .NE. 4 .AND. IELT .NE. 5 ) GO TO 20 C SHEAR, TWIST IF ( ISCAN .EQ. 2 ) NAME='FORCE-1' IF ( ISCAN .EQ. 3 ) NAME='FORCE-2' GO TO 7000 20 IF ( IELT .NE. 6 .AND. IELT .NE. 17 .AND. IELT .NE. 19 .AND. & IELT .NE. 18 .AND. IELT .NE. 7 .AND. IELT .NE. 8 .AND. & IELT .NE. 15 ) GO TO 30 C TRIA1, TRIA2, QUAD1, QUAD2, TRBSC, TRPLT, QDPLT IF ( ISCAN .EQ. 2 ) NAME='MOMENT-X' IF ( ISCAN .EQ. 3 ) NAME='MOMENT-Y' IF ( ISCAN .EQ. 5 ) NAME='SHEAR-X' IF ( ISCAN .EQ. 6 ) NAME='SHEAR-Y' IF ( ISCAN .EQ. 4 ) NAME='TWIST' GO TO 7000 30 IF ( IELT .NE. 9 .AND. IELT .NE. 16 .AND. IELT .NE. 62 .AND. & IELT .NE. 63 ) GO TO 40 C TRMEM, QDMEM, QDMEM1, QDMEM2 IF ( ISCAN .EQ. 3 .OR. ISCAN .EQ. 4 ) NAME='FORCE-12' IF ( ISCAN .EQ. 5 .OR. ISCAN .EQ. 6 ) NAME='FORCE-23' IF ( ISCAN .EQ. 7 .OR. ISCAN .EQ. 8 ) NAME='FORCE-34' IF ( ISCAN .EQ. 2 .OR. ISCAN .EQ. 9 ) NAME='FORCE-41' IF ( ISCAN .EQ. 10) NAME='KICK ON1' IF ( ISCAN .EQ. 12) NAME='KICK ON2' IF ( ISCAN .EQ. 14) NAME='KICK ON3' IF ( ISCAN .EQ. 16) NAME='KICK ON4' IF ( ISCAN .EQ. 11) NAME='SHEAR-XY' IF ( ISCAN .EQ. 13) NAME='SHEAR-YZ' IF ( ISCAN .EQ. 15) NAME='SHEAR-ZX' IF ( ISCAN .EQ. 17) NAME='SHEAR' GO TO 7000 40 IF ( IELT .NE. 11 .AND. IELT .NE. 12 .AND. IELT .NE. 13 .AND. & IELT .NE. 80 ) GO TO 50 C ELAS1, ELAS2, ELAS3, IS2D8 IF ( ISCAN .EQ. 2 ) NAME='CIRCUM' IF ( ISCAN .EQ. 4 .AND. ISCAN .EQ. 9 ) NAME='FORCE-1' IF ( ISCAN .EQ. 3 .AND. ISCAN .EQ. 6 ) NAME='FORCE-2' IF ( ISCAN .EQ. 5 .AND. ISCAN .EQ. 8 ) NAME='FORCE-3' IF ( ISCAN .EQ. 2 .AND. ISCAN .EQ. 7 ) NAME='FORCE-4' GO TO 7000 50 IF ( IELT .NE. 34 .AND. IELT .NE. 81 ) GO TO 60 C BAR, ELBOW IF ( ISCAN .EQ. 5 .OR. ISCAN .EQ. 6 ) NAME='SHEAR' IF ( ISCAN .EQ. 2 .OR. ISCAN .EQ. 3 ) NAME='MOMENT-A' IF ( ISCAN .EQ. 4 .OR. ISCAN .EQ. 5 ) NAME='MOMENT-B' IF ( ISCAN .EQ. 8 ) NAME='AXIAL' IF ( ISCAN .EQ. 9 ) NAME='TORQUE' GO TO 7000 60 IF ( IELT .NE. 35 ) GO TO 70 C CONEAX IF ( ISCAN .EQ. 3 ) NAME='MOMENT-U' IF ( ISCAN .EQ. 4 ) NAME='MOMENT-V' IF ( ISCAN .EQ. 6 ) NAME='SHEAR-XY' IF ( ISCAN .EQ. 7 ) NAME='SHEAR-YZ' GO TO 7000 70 IF ( IELT .NE. 36 ) GO TO 80 C TRIARG KSCAN = MOD ( ISCAN, 3 ) IF ( KSCAN .EQ. 2 ) NAME='RADIAL' IF ( KSCAN .EQ. 3 ) NAME='CIRCUM' IF ( KSCAN .EQ. 1 ) NAME='AXIAL' GO TO 7000 80 IF ( IELT .NE. 37 ) GO TO 90 C TRAPRG KSCAN = MOD( ISCAN, 3 ) IF ( KSCAN .EQ. 2 ) NAME='RADIAL' IF ( KSCAN .EQ. 3 ) NAME='CIRCUM' IF ( KSCAN .EQ. 1 ) NAME='AXIAL' GO TO 7000 90 IF ( IELT .NE. 38 ) GO TO 120 C TORDRG KSCAN = MOD( ISCAN, 6 ) IF ( KSCAN .EQ. 2 ) NAME='RADIAL' IF ( KSCAN .EQ. 3 ) NAME='CIRCUM' IF ( KSCAN .EQ. 4 ) NAME='AXIAL' IF ( KSCAN .EQ. 5 ) NAME='MOMENT' IF ( KSCAN .EQ. 1 ) NAME='CURV' GO TO 7000 120 IF ( IELT .NE. 70 .AND. IELT .NE. 71 ) GO TO 130 C TRIAAX, TRAPAX KSCAN = MOD ( ISCAN, 4 ) IF ( KSCAN .EQ. 3 ) NAME='RADIAL' IF ( KSCAN .EQ. 0 ) NAME='CIRCUM' IF ( KSCAN .EQ. 1 ) NAME='AXIAL' GO TO 7000 130 IF ( IELT .NE. 64 .AND. IELT .NE. 83 ) GO TO 150 C QUAD4, TRIA3 IF ( ISCAN .EQ. 2 .OR. ISCAN .EQ. 3 ) NAME='FX+FY' IF ( ISCAN .EQ. 4 ) NAME='FXY' IF ( ISCAN .EQ. 5 .OR. ISCAN .EQ. 6 ) NAME='MX+MY' IF ( ISCAN .EQ. 7 ) NAME='MXY' IF ( ISCAN .EQ. 8 .OR. ISCAN .EQ. 9 ) NAME='VX+VY' GO TO 7000 150 WRITE ( NOUT, 901 ) IELT 901 FORMAT(//' SCAN MODULE PROCESSING UNKNOWN ELEMENT NUMBER ' & ,I8,//) CALL MESAGE( -61,0,0) 7000 RETURN END ================================================ FILE: mis/fornum.f ================================================ SUBROUTINE FORNUM ( FORM, ICHAR, IMULT ) C C THIS SUBROUTINE CONVERTS ALL NUMBERS TO INTEGER FORMAT C CHARACTER*1 FORM(200), BLANK, NUMBER(2) DATA BLANK /' ' / DATA NUMBER /'0','9'/ IMULT = 0 10 IF ( FORM( ICHAR ) .NE. BLANK ) GO TO 20 ICHAR = ICHAR + 1 GO TO 10 20 IF ( FORM( ICHAR ) .LT. NUMBER(1) .OR. & FORM( ICHAR ) .GT. NUMBER(2) ) GO TO 700 READ ( FORM( ICHAR ), 901 ) II 901 FORMAT(I1) IMULT = IMULT*10 + II ICHAR = ICHAR + 1 GO TO 20 700 CONTINUE RETURN END ================================================ FILE: mis/fpont.f ================================================ SUBROUTINE FPONT C C DOES DIRECT,TPONT,FPONT,AND SCALAR LOADS C INTEGER GPID,SLT,PONT(5),SWLOAD(2) DIMENSION IGPCO(4,5),GPCO1(3),GPCO2(3),GPCO3(3),GPCO4(3), 1 VECT1(3),VECT2(3),IORD(5),VECT(3),GRIDP(7) COMMON /LOADX / LC,SLT,BG,OLD,N(12),IFM COMMON /ZZZZZZ/ CORE(1) EQUIVALENCE (GPID,GRIDP(2)), (GRIDP(4),IP1), (GRIDP(5),IP2), 1 (GRIDP(6),IP3) , (GRIDP(7),IP4), 2 (IGPCO(2,1),GPCO1(1)), (IGPCO(2,2),GPCO2(1)), 3 (IGPCO(2,3),GPCO3(1)), (IGPCO(2,4),GPCO4(1)), 4 (ICOSYT,GRIDP(3)) DATA SWLOAD/ 4HFPON,4HT / C NR = 6 NP = 5 MINUS = 5 10 CALL READ (*120,*130,SLT,GRIDP(2),NR,0,FLAG) SCALE = GRIDP(3) PONT(1) = IP1 PONT(2) = IP2 IF (NP .EQ. 3) GO TO 20 PONT(3) = IP3 PONT(4) = IP4 20 PONT(NP)= GPID CALL PERMUT (PONT(1),IORD(1),NP,OLD) DO 30 I = 1,NP L = IORD(I) 30 CALL FNDPNT (IGPCO(1,L),PONT(L)) IF (NP .EQ. 3) GO TO 50 DO 40 I = 1,3 VECT1(I) = GPCO2(I) - GPCO1(I) 40 VECT2(I) = GPCO4(I) - GPCO3(I) CALL CROSS (VECT1(1),VECT2(1),VECT(1)) GO TO 70 50 DO 60 I = 1,3 60 VECT(I) = GPCO2(I) - GPCO1(I) 70 CALL NORM (VECT(1),XL) 80 IF (IGPCO(1,NP)) 90,100,90 90 CALL BASGLB (VECT(1),VECT(1),IGPCO(2,NP),IGPCO(1,NP)) 100 CALL FNDSIL (GPID) GPID = GPID + (IFM-MINUS)*3 - 1 DO 110 I = 1,3 IN = GPID + I CORE(IN) = CORE(IN) + VECT(I)*SCALE 110 CONTINUE GO TO 150 120 N1 = -2 GO TO 140 130 N1 = -3 140 IPARM = SLT CALL MESAGE (N1,IPARM,SWLOAD) 150 RETURN C C ENTRY TPONT C =========== C C TPONT PROCESSES FORCE1 AND MOMENT1 CARDS C NR = 4 NP = 3 MINUS = 3 GO TO 10 C C ENTRY DIRECT C ============ C C DIRECT PROCESSES FORCE+ MOMENT CARDS C NP = 1 MINUS = 1 CALL READ (*120,*130,SLT,GRIDP(2),6,0,FLAG) DO 170 I = 1,3 170 VECT(I) = GRIDP(I+4) CALL FNDPNT (IGPCO(1,1),GPID) SCALE = GRIDP(4) IF (ICOSYT .EQ. IGPCO(1,NP)) GO TO 100 IF (ICOSYT) 180,80,180 180 CALL GLBBAS (VECT(1),VECT(1),IGPCO(2,1),ICOSYT) GO TO 80 C C ENTRY SLOAD C =========== C C SLOAD PROCESSES SLOAD CARDS C CALL READ (*120,*130,SLT,GRIDP(2),2,0,FLAG) CALL FNDSIL (GPID) CORE(GPID) = CORE(GPID) + GRIDP(3) GO TO 150 END ================================================ FILE: mis/fqrw.f ================================================ SUBROUTINE FQRW (M,E,ER,A,B,W,P,Q,XM,INT,ZB,SRFLE,MCBC) C LOGICAL INT(1) INTEGER SRFLE DOUBLE PRECISION DLAMDA REAL LAMBDA DIMENSION A(1) ,B(2) ,W(1) ,P(1) ,E(1) , 1 Q(1) ,ER(1) ,XM(1) DIMENSION ZB(1) ,MCB(7) ,MCBC(7) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /FEERXX/ DLAMDA ,CNDFLG ,ITER ,TIMED ,L16 COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,REW , 1 NOREW ,EOFNRW COMMON /LHPWX / LHPW(3) ,IACC COMMON /SYSTEM/ KSYSTM(65) COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP ,INCRP COMMON /UNPAKX/ IPRC ,II ,NN ,INCR EQUIVALENCE (KSYSTM(2),IO) ,(KSYSTM(55),IPREC) DATA ILIM , IEXP ,BASE / 120, 60, 2. / C C IACC = ACCURACY CONTROL (EPSILON) FOR UNDERFLOW C IF (M .EQ. 1) RETURN LAMBDA = DLAMDA IPRC = 1 CALL MAKMCB (MCB(1),SRFLE,M,2,IPRC) ICF = MCBC(1) INCR = 1 INCRP= 1 ITP1 = IPRC ITP2 = IPRC IT = IACC*IPREC PRC = 10.**(-IT) PPRC = 10.E-4 JERR = 0 EPX = 10.**(2-IT) EPX2 = EPX**2 HOV = BASE**IEXP M1 = M - 1 DO 20 I = 1,M 20 E(I) = A(I) TOL = PRC/(10.*FLOAT(M)) BMAX = 0. TMAX = 0. W(M+1) = 0. DO 30 I = 1,M IF (BMAX .LT. ABS(B(I))) BMAX = ABS(B(I)) IF (TMAX .LT. ABS(A(I))) TMAX = ABS(A(I)) 30 CONTINUE IF (TMAX .LT. BMAX) TMAX = BMAX SCALE = 1. DO 40 I = 1,ILIM IF (SCALE*TMAX .GT. HOV) GO TO 50 40 SCALE = SCALE*2. 50 IF (BMAX .EQ. 0.) GO TO 170 DO 60 I = 1,M E(I) = A(I)*SCALE 60 W(I) = (B(I)*SCALE)**2 DELTA= TMAX*SCALE*TOL EPS = DELTA*DELTA K = M 70 L = K IF (L .LE. 0) GO TO 140 L1 = L - 1 DO 80 I = 1,L K1 = K K = K - 1 IF (W(K1) .LT. EPS) GO TO 90 80 CONTINUE 90 IF (K1 .NE. L) GO TO 100 W(L) = 0. GO TO 70 100 T = E(L) - E(L1) X = W(L) Y = .5*T S = SQRT(X) IF (ABS(T) .GT. DELTA) S = (X/Y)/(1.+SQRT(1.+X/Y**2)) E1 = E(L ) + S E2 = E(L1) - S IF (K1 .NE. L1) GO TO 110 E(L ) = E1 E(L1) = E2 W(L1) = 0. GO TO 70 110 SHIFT = E1 IF (ABS(T).LT.DELTA .AND. ABS(E2).LT.ABS(E1)) SHIFT = E2 S = 0. C = 1. GG = E(K1) - SHIFT GO TO 130 120 C = F/T S = X/T X = GG GG = C*(E(K1) - SHIFT) - S*X E(K) = (X - GG) + E(K1) 130 IF (ABS(GG) .LT. DELTA) GG = GG + C*DELTA*GG/ABS(GG) F = GG**2/C K = K1 K1 = K + 1 X = W(K1) T = X + F W(K) = S*T IF (K .LT. L) GO TO 120 E(K) = GG + SHIFT GO TO 70 140 DO 150 I = 1,M 150 E(I) = E(I)/SCALE DO 155 L = 1,M1 K = M - L DO 155 I = 1,K IF (E(I) .GT. E(I+1)) GO TO 155 X = E(I) E(I ) = E(I+1) E(I+1) = X 155 CONTINUE DO 160 L = 1,M1 K = M - L DO 160 I = 1,K IF (ABS(E(I)) .GT. ABS(E(I+1))) GO TO 160 X = E(I) E(I ) = E(I+1) E(I+1) = X 160 CONTINUE 170 IF (M .EQ. 0) RETURN C C COMPUTE EIGENVECTORS BY INVERSE ITERATION C ERF = B(M+1) MVEC = M F = SCALE/HOV DO 190 I = 1,M A(I) = A(I)*F 190 B(I) = B(I)*F DIMF = 10.**(-IT/3) DO 460 NV = 1,MVEC IJ = NV SUMX = 0. IRP = 0 IF (NV .EQ. 1) GO TO 200 RATIO = ABS(E(NV)/E(NV-1) - 1.) DIM = .02*ABS(1.-LAMBDA*E(NV)) IF (RATIO.LT.DIM .OR. RATIO.LT.DIMF) GO TO 220 NRP = 0 GO TO 225 200 NRP = 0 DO 210 I = 1,M 210 W(I) = 1. IIP = 1 NNP = M GO TO 330 C C MULTIPLE EIGENVALUES C 220 NRP = NRP + 1 225 IF (NV .NE. 2) GO TO 230 CALL GOPEN (SRFLE,ZB(1),WRTREW) MCB(2) = 0 MCB(6) = 0 GO TO 240 230 CALL GOPEN (SRFLE,ZB(1),WRT) 240 IIP = 1 NNP = M CALL PACK (W(1),SRFLE,MCB(1)) CALL CLOSE (SRFLE,NOREW) SS = 1.0 SUM = 0. DO 250 I = 1,M SS =-SS IJ = IJ + 1 P(I) = FLOAT(MOD(IJ,3)+1)/(3.0*FLOAT((MOD(IJ,13)+1)*(1+5*I/M))) P(I) = P(I)*SS 250 SUM = SUM + P(I)**2 SUM = 1./SQRT(SUM) DO 255 I = 1,M P(I) = P(I)*SUM 255 Q(I) = P(I) CALL GOPEN (SRFLE,ZB(1),RDREW) J = 0 260 SUM = 0. J = J + 1 DO 270 I = 1,M 270 SUM = SUM + W(I)*P(I) DO 280 I = 1,M 280 Q(I) = Q(I) - SUM*W(I) IF (J .EQ. NV-1) GO TO 290 II = 1 NN = M CALL UNPACK (*290,SRFLE,W(1)) GO TO 260 290 CALL CLOSE (SRFLE,NOREW) SUM = 0. DO 300 I = 1,M 300 SUM = SUM + Q(I)**2 SUM = 1./SQRT(SUM) DO 310 I = 1,M Q(I) = Q(I)*SUM 310 W(I) = Q(I) 330 EV = E(NV)*F X = A(1) - EV Y = B(2) DO 350 I = 1,M1 C = A(I+1) - EV S = B(I+1) IF (ABS(X) .GE. ABS(S)) GO TO 340 P(I) = S Q(I) = C INT(I) = .TRUE. Z = -X/S X = Y + Z*C IF (I .LT. M1) Y = Z*B(I+2) GO TO 350 340 IF (ABS(X) .LT. TOL) X = TOL P(I) = X Q(I) = Y INT(I) = .FALSE. Z = -S/X X = C + Z*Y Y = B(I+2) 350 XM(I) = Z IF (ABS(X) .LT. TOL) X = TOL NITER = 0 360 NITER = NITER + 1 W(M) = W(M)/X EMAX = ABS(W(M)) DO 370 L = 1,M1 I = M - L Y = W(I) - Q(I)*W(I+1) IF (INT(I)) Y = Y - B(I+2)*W(I+2) W(I) = Y/P(I) IF (ABS(W(I)) .GT. EMAX) EMAX = ABS(W(I)) 370 CONTINUE SUM = 0. DO 375 I = 1,M W(I) = (W(I)/EMAX)/EPX IF (ABS(W(I)) .LT. EPX2) W(I) = EPX2 375 SUM = SUM + W(I)**2 S = SQRT(SUM) DO 380 I = 1,M W(I) = W(I)/S 380 CONTINUE IF (NITER .GE. 4) GO TO 402 DO 400 I = 1,M1 IF (INT(I)) GO TO 390 W(I+1) = W(I+1) + XM(I)*W(I) GO TO 400 390 Y = W(I) W(I ) = W(I+1) W(I+1) = Y + XM(I)*W(I) 400 CONTINUE GO TO 360 402 IF (NV .EQ. 1) GO TO 410 C C MULTIPLE EIGENVALUES AND ORTHOGONALIZATION C IRP = IRP + 1 CALL GOPEN (SRFLE,ZB(1),RDREW) DO 404 I = 1,M 404 Q(I) = W(I) SUMX = 0. JRP = NV - 1 DO 407 I = 1,JRP II = 1 NN = M CALL UNPACK (*408,SRFLE,P(1)) SUM = 0. DO 405 J = 1,M 405 SUM = SUM + P(J)*Q(J) IF (ABS(SUM) .GT. SUMX) SUMX = ABS(SUM) DO 406 J = 1,M 406 W(J) = W(J) - SUM*P(J) 407 CONTINUE 408 CALL CLOSE (SRFLE,NOREW) 410 CONTINUE C C LOGIC SETTING SUM (BY G.CHAN/UNISYS 7/92) C C SUM = PRC*PREC COULD PRODUCE UNDERFLOW C SUM = ZERO, COULD CAUSE DIVIDED BY ZERO AFTER 420 FOR NULL VECTOR C SO, WE CHOOSE SUM A LITTLE SMALLER THAN PRC C C SUM = PRC*PRC C SUM = 0.0 SUM = PRC*1.0E-4 C DO 420 I = 1,M 420 SUM = SUM + W(I)*W(I) SUM = 1./SQRT(SUM) DO 430 I = 1,M 430 W(I) = W(I)*SUM IF (SUMX.GT.0.9 .AND. IRP.LT.3) GO TO 330 IF (L16 .NE. 0) WRITE (IO,435) NV,NITER,IRP,SUMX 435 FORMAT (10X,18H FEER QRW ELEMENT ,I5,6H ITER ,2I3,6H PROJ ,E16.8) IF (JERR.GT. 0) GO TO 450 ZERR = ABS(W(1)) DO 440 I = 2,M IF (ABS(W(I)) .GT. ZERR) ZERR = ABS(W(I)) 440 CONTINUE ZERR = (ABS(W(M)))/ZERR IF (ZERR .GT. PPRC) JERR = NV-1 IF (JERR .NE. 0) WRITE (IO,445) UWM,JERR 445 FORMAT (A25,' 2399', /5X,'ONLY THE FIRST',I6,' EIGENSOLUTIONS ', 1 'CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ', 2 'ACCURACY TEST FOR EIGENVECTORS.') 450 CONTINUE CALL PACK (W(1),ICF,MCBC(1)) ER(NV) = ABS(W(M)*ERF/E(NV)) 460 CONTINUE RETURN END ================================================ FILE: mis/fqrwv.f ================================================ SUBROUTINE FQRWV (M,E,ER,A,B,W,P,Q,XM,INT,ZB,SRFLE, MCBC ) C SR5FLE SR4FLE C LOGICAL INT(1) INTEGER SRFLE DOUBLE PRECISION PPRC ,ZERR ,SS ,DSIGN DOUBLE PRECISION A(1) ,B(2) ,W(1) ,P(1) ,E(1) , 1 Q(1) ,ER(1) ,XM(1) ,PRC ,HOV , 2 SQRT2 ,TOL ,BMAX ,TMAX ,SCALE , 3 DELTA ,EPS ,T ,X ,Y , 4 S ,E1 ,E2 ,SHIFT ,C , 5 GG ,BASE ,SUM ,ERF ,Z , 6 F ,EV ,X1 ,LAMBDA ,DIM , 7 DIMF ,RATIO ,SUMX ,EPX ,EPX2 , 8 EMAX DIMENSION ZB(1) ,MCB(7) ,MCBC(7) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /MACHIN/ MACHX COMMON /LHPWX / LHPW(3) ,IACC COMMON /FEERXX/ LAMBDA ,CNDFLG ,ITER ,TIMED ,L16 COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,REW , 1 NOREW ,EOFNRW COMMON /SYSTEM/ KSYSTM(65) COMMON /PACKX / ITP1 ,ITP2 ,IIP ,NNP ,INCRP COMMON /UNPAKX/ IPRC ,II ,NN ,INCR EQUIVALENCE (KSYSTM(2),IO) ,(KSYSTM(55),IPREC) DATA ILIM , IEXP ,BASE / 120, 60, 2.D0 / C C IACC = MACHINE ACCURACY CONTROL (EPSILON) C IACC IS USED TO CONTROL NUMBER UNDERFLOW C IEXP AND BASE ARE USED TO CONTROL NUMBER OVERFLOW C IF (M .EQ. 1) RETURN IPRC = 2 CALL MAKMCB (MCB(1),SRFLE,M,2,IPRC) ICF = MCBC(1) INCR = 1 INCRP= 1 ITP1 = IPRC ITP2 = IPRC IT = IACC*IPREC PRC = 10.D0**(-IT) PPRC = 10.D-4 JERR = 0 EPX = 10.D0**(2-IT) EPX2 = EPX**2 HOV = BASE**IEXP IF ((MACHX.GE.5 .AND. MACHX.LE.11) .OR. MACHX.EQ.13 .OR. 1 MACHX.EQ.21) HOV = BASE**(IEXP-10) SQRT2= DSQRT(BASE) M1 = M - 1 DO 20 I = 1,M 20 E(I) = A(I) TOL = PRC/(10.D0*DBLE(FLOAT(M))) BMAX = 0.D0 TMAX = 0.D0 W(M+1) = 0.D0 DO 30 I = 1,M IF (BMAX .LT. DABS(B(I))) BMAX = DABS(B(I)) IF (TMAX .LT. DABS(A(I))) TMAX = DABS(A(I)) 30 CONTINUE IF (TMAX .LT. BMAX) TMAX = BMAX SCALE = 1.D0 DO 40 I = 1,ILIM IF (SCALE*TMAX .GT. HOV) GO TO 50 40 SCALE = SCALE*2.D0 50 IF (BMAX .EQ. 0.D0) GO TO 170 DO 60 I = 1,M E(I) = A(I)*SCALE 60 W(I) = (B(I)*SCALE)**2 DELTA= TMAX*SCALE*TOL EPS = DELTA*DELTA K = M 70 L = K IF (L .LE. 0) GO TO 140 L1 = L - 1 DO 80 I = 1,L K1 = K K = K - 1 IF (W(K1) .LE. EPS) GO TO 90 80 CONTINUE 90 IF (K1 .NE. L) GO TO 100 W(L) = 0.D0 GO TO 70 100 T = E(L) - E(L1) X = W(L) Y = .5D0*T S = DSQRT(X) IF (DABS(T) .GT. DELTA) S = (X/Y)/(1.D0+DSQRT(1.D0+X/Y**2)) E1 = E(L ) + S E2 = E(L1) - S IF (K1 .NE. L1) GO TO 110 E(L ) = E1 E(L1) = E2 W(L1) = 0.D0 GO TO 70 110 SHIFT = E1 IF (DABS(T).LT.DELTA .AND. DABS(E2).LT.DABS(E1)) SHIFT = E2 S = 0.D0 C = 1.D0 GG = E(K1) - SHIFT GO TO 130 120 C = F/T S = X/T X = GG GG = C*(E(K1) - SHIFT) - S*X E(K) = (X - GG) + E(K1) 130 IF (DABS(GG) .LT. DELTA) GG = GG + C*DELTA*DSIGN(1.D0,GG) F = GG**2/C K = K1 K1 = K + 1 X = W(K1) T = X + F W(K) = S*T IF (K .LT. L) GO TO 120 E(K) = GG + SHIFT GO TO 70 140 DO 150 I = 1,M 150 E(I) = E(I)/SCALE DO 155 L = 1,M1 K = M - L DO 155 I = 1,K IF (E(I) .GT. E(I+1)) GO TO 155 X = E(I) E(I ) = E(I+1) E(I+1) = X 155 CONTINUE DO 160 L = 1,M1 K = M - L DO 160 I = 1,K IF (DABS(E(I)) .GT. DABS(E(I+1))) GO TO 160 X = E(I) E(I ) = E(I+1) E(I+1) = X 160 CONTINUE 170 IF (M .EQ. 0) RETURN C C COMPUTE EIGENVECTORS BY INVERSE ITERATION C ERF = B(M+1) MVEC = M F = SCALE/HOV DO 190 I = 1,M A(I) = A(I)*F 190 B(I) = B(I)*F X1 = 0.D0 DIMF = 10.D0**(-IT/3) DO 460 NV = 1,MVEC IJ = NV SUMX = 0.D0 IRP = 0 IF (NV .EQ. 1) GO TO 200 RATIO= DABS(E(NV)/E(NV-1) - 1.D0) DIM = .02D0*DABS(1.D0-LAMBDA*E(NV)) IF (RATIO.LT.DIM .OR. RATIO.LT.DIMF) GO TO 220 NRP = 0 GO TO 225 200 NRP = 0 W(I) = 1.D0 IIP = 1 NNP = M GO TO 330 C C MULTIPLE EIGENVALUES C 220 NRP = NRP + 1 225 IF (NV .NE. 2) GO TO 230 CALL GOPEN (SRFLE,ZB(1),WRTREW) MCB(2) = 0 MCB(6) = 0 GO TO 240 230 CALL GOPEN (SRFLE,ZB(1),WRT) 240 IIP = 1 NNP = M CALL PACK (W(1),SRFLE,MCB(1)) CALL CLOSE (SRFLE,NOREW) SUM = 0.D0 SS = 1.0D0 DO 250 I = 1,M SS =-SS IJ = IJ + 1 P(I)= FLOAT(MOD(IJ,3)+1)/(3.0*FLOAT((MOD(IJ,13)+1)*(1+5*I/M))) P(I)= P(I)*SS 250 SUM = SUM + P(I)**2 SUM = 1.D0/DSQRT(SUM) DO 255 I = 1,M P(I) = P(I)*SUM 255 Q(I) = P(I) CALL GOPEN (SRFLE,ZB(1),RDREW) J = 0 260 SUM = 0.D0 J = J + 1 DO 270 I = 1,M 270 SUM = SUM + W(I)*P(I) DO 280 I = 1,M 280 Q(I) = Q(I) - SUM*W(I) IF (J .EQ. (NV-1)) GO TO 290 II = 1 NN = M CALL UNPACK (*290,SRFLE,W(1)) GO TO 260 290 CALL CLOSE (SRFLE,NOREW) SUM = 0.D0 DO 300 I = 1,M 300 SUM = SUM + Q(I)**2 SUM = 1.D0/DSQRT(SUM) DO 310 I = 1,M Q(I) = Q(I)*SUM 310 W(I) = Q(I) 330 EV = E(NV)*F X = A(1) - EV Y = B(2) DO 350 I = 1,M1 C = A(I+1) - EV S = B(I+1) IF (DABS(X) .GE. DABS(S)) GO TO 340 P(I) = S Q(I) = C INT(I) = .TRUE. Z = -X/S X = Y + Z*C IF (I .LT. M1) Y = Z*B(I+2) GO TO 350 340 IF (DABS(X) .LT. TOL) X = TOL P(I) = X Q(I) = Y INT(I) = .FALSE. Z = -S/X X = C + Z*Y Y = B(I+2) 350 XM(I) = Z IF (DABS(X) .LT. TOL) X = TOL NITER = 0 360 NITER = NITER + 1 W(M) = W(M)/X EMAX = DABS(W(M)) DO 370 L = 1,M1 I = M-L Y = W(I) - Q(I)*W(I+1) IF (INT(I)) Y = Y - B(I+2)*W(I+2) W(I) = Y/P(I) IF (DABS(W(I)) .GT. EMAX) EMAX = DABS(W(I)) 370 CONTINUE SUM = 0.D0 DO 375 I = 1,M CWKBR W(I) = (W(I)/EMAX)/EPX IF ( EMAX .NE. 0.0 ) W(I) = (W(I)/EMAX)/EPX IF (DABS(W(I)) .LT. EPX2) W(I) = EPX2 375 SUM = SUM + W(I)**2 S = DSQRT(SUM) DO 380 I = 1,M W(I) = W(I)/S 380 CONTINUE IF (NITER .GE. 4) GO TO 402 DO 400 I = 1,M1 IF (INT(I)) GO TO 390 W(I+1) = W(I+1) + XM(I)*W(I) GO TO 400 390 Y = W(I) W(I ) = W(I+1) W(I+1) = Y + XM(I)*W(I) 400 CONTINUE GO TO 360 402 IF (NV .EQ. 1) GO TO 410 C C MULTIPLE EIGENVALUES AND ORTHOGONALIZATION C IRP = IRP + 1 CALL GOPEN (SRFLE,ZB(1),RDREW) DO 404 I = 1,M 404 Q(I) = W(I) SUMX = 0.D0 JRP = NV - 1 DO 407 I = 1,JRP II = 1 NN = M CALL UNPACK (*408,SRFLE,P(1)) SUM = 0.D0 DO 405 J = 1,M 405 SUM = SUM + P(J)*Q(J) IF (DABS(SUM) .GT. SUMX) SUMX = DABS(SUM) DO 406 J = 1,M 406 W(J) = W(J) - SUM*P(J) 407 CONTINUE 408 CALL CLOSE (SRFLE,NOREW) 410 CONTINUE C C LOGIC SETTING SUM (BY G.CHAN/UNISYS 7/92) C C SUM = PRC*PREC COULD PRODUCE UNDERFLOW (IT=16, PRC=10.**-32) C SUM = ZERO, COULD CAUSE DIVIDED BY ZERO AFTER 420 FOR NULL VECTOR C SO, WE CHOOSE SUM A LITTLE SMALLER THAN PRC C C SUM = PRC*PRC C SUM = 0.0D+0 SUM = PRC*1.0D-2 C DO 420 I = 1,M IF (DABS(W(I)) .GE. PRC) SUM = SUM + W(I)*W(I) 420 CONTINUE SUM = 1.D0/DSQRT(SUM) DO 430 I = 1,M 430 W(I) = W(I)*SUM IF (SUMX.GT.0.9D0 .AND. IRP.LT.3) GO TO 330 IF (L16 .NE. 0) WRITE (IO,435) NV,NITER,IRP,SUMX 435 FORMAT (10X,18H FEER QRW ELEMENT ,I5,6H ITER ,2I3,6H PROJ ,D16.8) IF (JERR.GT. 0) GO TO 450 ZERR = DABS(W(1)) DO 440 I = 2,M IF (DABS(W(I)) .GT. ZERR) ZERR = DABS(W(I)) 440 CONTINUE ZERR = (DABS(W(M)))/ZERR IF (ZERR .GT. PPRC) JERR = NV - 1 IF (JERR .NE. 0) WRITE (IO,445) UWM,JERR 445 FORMAT (A25,' 2399', /5X,'ONLY THE FIRST',I5,' EIGENSOLUTIONS ', 1 'CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ', 2 'ACCURACY TEST FOR EIGENVECTORS.') 450 CONTINUE CALL PACK (W(1),ICF,MCBC(1)) ER(NV) = DABS(W(M)*ERF/E(NV)) 460 CONTINUE RETURN END ================================================ FILE: mis/frbk.f ================================================ SUBROUTINE FRBK (V1,V2,V3,VB) C C LAST REVISED BY G.CHAN/UNISYS 11/1991 C . ELIMINATE UN-NECCESSARY REWIND AND SKIP AFTER FIRST CALL TO THIS C ROUTINE (NASTRAN ORIGINAL METHOD) C . ADDITION OF A NEW BACKWARD-FORWARD SUBSTITUTION METHOD WHICH IS C MORE EFFICIENT, AND IS ALREADY GOOD FOR VECTORIZATION C CDB LOGICAL DEBUG INTEGER BASE ,LJJ ,IBLK(15),BUF(6) REAL V1(1) ,V2(1) ,V3(1) ,VB(1) ,XL(1) ,XLJJ , 1 ZERO ,V3J ,SUM COMMON /OPINV / MCBLT(7),MCBSMA(7) COMMON /SYSTEM/ KSYSTM ,IO COMMON /FEERXX/ DUMM(18),NZVB COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (XL(1),IZ(1)) EQUIVALENCE (LJJ,XLJJ) ,(L16,DUMM(6)) DATA BUF / 4HFRBK ,4H ,2*4HBEGN ,4HEND ,4HBGIN / DATA ZERO / 0.0 / CDB DATA DEBUG , ITER ,MAX / .FALSE. ,0 ,3 / C CDB IF (.NOT.DEBUG) GO TO 20 C ITER = ITER + 1 C IF (ITER .GT. MAX) DEBUG = .FALSE. C WRITE (IO,10) NZVB,ITER C 10 FORMAT (' .... IN FRBK. NZVB =',I8,', ITER =',I3) C 20 CONTINUE NROW = MCBLT(2) DO 30 I = 1,NROW 30 V2(I) = V1(I) C C SELECTION OF ORIGINAL OR NEW FBS METHOD C J = NROW IF (MCBLT(7) .LT. 0) GO TO 200 C C NASTRAN ORIGIANL METHOD C IBLK( 1) = MCBLT(1) IBLK( 9) = 1 IBLK(10) = 1 C C BACKWARD SUBSTITUTION C IF (BUF(3) .EQ. BUF(5)) GO TO 40 BUF(3) = BUF(4) IF (L16 .NE. 0) CALL CONMSG (BUF,3,0) C C REWIND AND SKIP TO COLUMN N C CALL REWIND (MCBLT) CALL SKPREC (MCBLT,NROW+1) GO TO 50 C C ALREADY AT END, NO SKIP NEEDED C 40 BUF(3) = BUF(6) IF (L16 .NE. 0) CALL CONMSG (BUF,3,0) C 50 IBLK(8) = -1 60 CALL GETSTB (*100,IBLK(1)) NTMS = IBLK(6) JI = IBLK(5) IK = IBLK(4) IF (IK-NTMS+1 .NE. J) GO TO 70 NTMS = NTMS - 1 XLJJ = XL(JI-NTMS) IF (NTMS .EQ. 0) GO TO 90 70 SUM = ZERO DO 80 II = 1,NTMS SUM = SUM + XL(JI)*V2(IK) JI = JI - 1 IK = IK - 1 80 CONTINUE V2(J)= V2(J) + SUM 90 CALL ENDGTB (IBLK(1)) GO TO 60 100 V2(J)= V2(J)/XLJJ IF (J .EQ. 1) GO TO 110 J = J - 1 GO TO 50 110 CALL FRMLT (MCBSMA(1),V2(1),V3(1),VB(1)) C C FORWARD SWEEP DIRECTLY ON V3 C DO 160 J = 1,NROW IBLK(8) = -1 120 CALL GETSTR (*160,IBLK(1)) JI = IBLK(5) NTMS = IBLK(6) IK = IBLK(4) IF (IK .NE. J) GO TO 130 NTMS = NTMS - 1 V3(J)= V3(J)/XL(JI) JI = JI + 1 IK = IK + 1 130 IF (NTMS .EQ. 0) GO TO 150 V3J = V3(J) IF (V3J .EQ. ZERO) GO TO 150 DO 140 II = 1,NTMS V3(IK) = V3(IK) + XL(JI)*V3J IK = IK + 1 JI = JI + 1 140 CONTINUE 150 CALL ENDGET (IBLK(1)) GO TO 120 160 CONTINUE GO TO 500 C C NEW METHOD C C MATRIX MCBLT HAS BEEN RE-WRITTEN TO MCBLTX BY UNPSCR/FEER3. NO C STRING OPERATIONS HERE. C 200 IF (BUF(3) .EQ. BUF(5)) BUF(3) = BUF(6) IF (L16 .NE. 0) CALL CONMSG (BUF,3,0) MCBLTX = -MCBLT(7) IF (MOD(MCBLT(4),10) .NE. 3) GO TO 440 NREC = 0 CALL REWIND (MCBLTX) CALL FWDREC (*400,MCBLTX) C NWDS = MCBLT(5) C C IZ(1) GINO C / V1 V2 V3 VB (OPEN CORE LENGTH = NZVB) BUFFERS C +-----+-----+-----+-----+-------------------------------+--------- C OPEN CORE C C BACKWARD SUBSTITUTION C LL2 = 0 BASE = 1 IFB = -350 DO 280 IK = 1,NROW IF (BASE .LT. LL2) GO TO 240 NREC = NREC + 1 CDB IF (DEBUG) WRITE (IO,210) NREC,IFB C 210 FORMAT (' ...READING RECORD',I5,'. IFB =',I5) CALL READ (*400,*220,MCBLTX,VB,NZVB,1,LL) CALL MESAGE (-8,0,NAM) C 220 LL2 = LL/NWDS 220 LL2 = LL CDB LL3 = LL2/30 C LL4 = LL2 - LL3 C IF (DEBUG) WRITE (IO,230) LL,NREC,LL2 C 230 FORMAT (1X,I10,' WORDS READ FROM RECORD NO.',I5,'. LL2 =',I10) BASE = 1 240 XLJJ = VB(BASE) II = LJJ XLJJ = VB(BASE+1) JJ = LJJ CDB IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4)) C 1 WRITE (IO,250) J,BASE,II,JJ,IFB C 250 FORMAT (11X,'J,BASE,II,JJ,IFB =',5I8) IF (II .NE. J) GO TO 420 NTMS = JJ - II + 1 IB = BASE + 3 IE = BASE + 1 + NTMS BASE = IE + 1 IF (NTMS .LE. 1) GO TO 270 SUM = ZERO DO 260 I = IB,IE II = II + 1 260 SUM = SUM + VB(I)*V2(II) V2(J)= V2(J) + SUM 270 V2(J)= V2(J)/VB(IB-1) 280 J = J - 1 CALL FRMLT (MCBSMA(1),V2(1),V3(1),VB(1)) C C FORWARD SWEEP DIRECTLY ON V3 C IF (NROW .EQ. 1) GO TO 500 NREC = 0 LL2 = 0 BASE = 1 IFB = +390 DO 320 J = 1,NROW IF (BASE .LT. LL2) GO TO 300 NREC = NREC + 1 CDB IF (DEBUG) WRITE (IO,210) NREC,IFB CALL READ (*400,*290,MCBLTX,VB,NZVB,1,LL) CALL MESAGE (-8,0,NAM) C 290 LL2 = LL/NWDS 290 LL2 = LL CDB LL3 = LL2/30 C LL4 = LL2 - LL3 C IF (DEBUG) WRITE (IO,230) LL,NREC,LL2 BASE = 1 300 XLJJ = VB(BASE) II = LJJ XLJJ = VB(BASE+1) JJ = LJJ CDB IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4)) C 1 WRITE (IO,250) J,BASE,II,JJ,IFB IF (II .NE. J) GO TO 420 NTMS = JJ - II + 1 V3(J)= V3(J)/VB(BASE+2) IF (NTMS .LE. 1) GO TO 320 V3J = V3(J) IF (V3J .EQ. ZERO) GO TO 320 IB = BASE + 3 IE = BASE + 1 + NTMS DO 310 I = IB,IE II = II + 1 310 V3(II) = V3(II) + VB(I)*V3J 320 BASE = BASE + NTMS + 2 GO TO 500 C 400 I = MCBLT(4)/10 WRITE (IO,410) NREC,J,I,IFB 410 FORMAT ('0*** TRY TO READ RECORD',I5,'. J,MCBLT(4),IFB =',I7,2I5) CALL MESAGE (-3,MCBLTX,BUF(1)) 420 WRITE (IO,430) J,II,IFB 430 FORMAT ('0*** ROW MISMATCH. J,II,(IFB =',I7,I12,3H (,I4) GO TO 460 440 J = MOD(MCBLT(4),10) WRITE (IO,450) J 450 FORMAT ('0*** MCBLT MATRIX IN WRONG FORM. UNPSCR FLAG =',I3) GO TO 460 460 CALL MESAGE (-37,0,BUF(1)) C 500 BUF(3) = BUF(5) IF (L16 .NE. 0) CALL CONMSG (BUF,3,0) RETURN END ================================================ FILE: mis/frbk2.f ================================================ SUBROUTINE FRBK2 (V1,V2,V3,VB) C C LAST REVISED BY G.CHAN/UNISYS 11/1991 C . ELIMINATE UN-NECCESSARY REWIND AND SKIP AFTER FIRST CALL TO THIS C ROUTINE (NASTRAN ORIGINAL METHOD) C . ADDITION OF A NEW BACKWARD-FORWARD SUBSTITUTION METHOD WHICH IS C MORE EFFICIENT, AND IS ALREADY GOOD FOR VECTORIZATION C CDB LOGICAL DEBUG INTEGER BASE ,BUF(6) ,LJJ(2) ,IBLK(15) DOUBLE PRECISION V1(1) ,V2(1) ,V3(1) ,VB(1) ,XL(1) ,XLJJ , 1 ZERO ,V3J ,SUM COMMON /OPINV / MCBLT(7),MCBSMA(7) COMMON /SYSTEM/ KSYSTM ,IO COMMON /FEERXX/ DUMM(18),NZVB COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (XL(1),IZ(1)) EQUIVALENCE (LJJ(1) ,XLJJ) ,(L16,DUMM(6)) DATA BUF / 4HFRBK ,4H2 ,2*4HBEGN ,4HEND ,4HBGIN / DATA ZERO / 0.0D+0 / CDB DATA DEBUG , ITER ,MAX / .FALSE. ,0 ,3 / C CDB IF (.NOT.DEBUG) GO TO 20 C ITER = ITER + 1 C IF (ITER .GT. MAX) DEBUG = .FALSE. C WRITE (IO,10) NZVB,ITER C 10 FORMAT (' .... IN FRBK2. NZVB =',I8,', ITER =',I3) C 20 CONTINUE NROW = MCBLT(2) DO 30 I = 1,NROW 30 V2(I) = V1(I) C C SELECTION OF ORIGINAL OR NEW FBS METHOD C J = NROW IF (MCBLT(7) .LT. 0) GO TO 200 C C NASTRAN ORIGIANL METHOD C IBLK( 1) = MCBLT(1) IBLK( 9) = 1 IBLK(10) = 1 C C BACKWARD SUBSTITUTION C IF (BUF(3) .EQ. BUF(5)) GO TO 40 C BUF(3) = BUF(4) IF (L16 .NE. 0) CALL CONMSG (BUF,3,0) C C REWIND AND SKIP TO COLUMN N C CALL REWIND (MCBLT) CALL SKPREC (MCBLT,NROW+1) GO TO 50 C C ALREADY AT END, NO SKIP NEEDED C 40 BUF(3) = BUF(6) IF (L16 .NE. 0) CALL CONMSG (BUF,3,0) C 50 IBLK(8) = -1 60 CALL GETSTB (*100,IBLK(1)) NTMS = IBLK(6) JI = IBLK(5) IK = IBLK(4) IF (IK-NTMS+1 .NE. J) GO TO 70 NTMS = NTMS - 1 XLJJ = XL(JI-NTMS) IF (NTMS .EQ. 0) GO TO 90 70 SUM = ZERO DO 80 II = 1,NTMS SUM = SUM + XL(JI)*V2(IK) JI = JI - 1 IK = IK - 1 80 CONTINUE V2(J)= V2(J) + SUM 90 CALL ENDGTB (IBLK(1)) GO TO 60 100 V2(J)= V2(J)/XLJJ IF (J .EQ. 1) GO TO 110 J = J - 1 GO TO 50 110 CALL FRMLTD (MCBSMA(1),V2(1),V3(1),VB(1)) C C FORWARD SWEEP DIRECTLY ON V3 C DO 160 J = 1,NROW IBLK(8) = -1 120 CALL GETSTR (*160,IBLK(1)) JI = IBLK(5) NTMS = IBLK(6) IK = IBLK(4) IF (IK .NE. J) GO TO 130 NTMS = NTMS - 1 V3(J)= V3(J)/XL(JI) JI = JI + 1 IK = IK + 1 130 IF (NTMS .EQ. 0) GO TO 150 V3J = V3(J) IF (V3J .EQ. ZERO) GO TO 150 DO 140 II = 1,NTMS V3(IK) = V3(IK) + XL(JI)*V3J IK = IK + 1 JI = JI + 1 140 CONTINUE 150 CALL ENDGET (IBLK(1)) GO TO 120 160 CONTINUE GO TO 500 C C NEW METHOD C C MATRIX MCBLT HAS BEEN RE-WRITTEN TO MCBLTX BY UNPSCR/FEER3. NO C STRING OPERATIONS HERE. C 200 IF (BUF(3) .EQ. BUF(5)) BUF(3) = BUF(6) IF (L16 .NE. 0) CALL CONMSG (BUF,3,0) MCBLTX = -MCBLT(7) IF (MOD(MCBLT(4),10) .NE. 3) GO TO 440 NREC = 0 CALL REWIND (MCBLTX) CALL FWDREC (*400,MCBLTX) NWDS = MCBLT(5) C C IZ(1) GINO C / V1 V2 V3 VB (OPEN CORE LENGTH = NZVB) BUFFERS C +-----+-----+-----+-----+-------------------------------+--------- C OPEN CORE C C C BACKWARD SUBSTITUTION C C LL2 = 0 BASE = 1 IFB = -350 DO 280 IK = 1,NROW IF (BASE .LT. LL2) GO TO 240 NREC = NREC + 1 CDB IF (DEBUG) WRITE (IO,210) NREC,IFB C 210 FORMAT (' ...READING RECORD',I5,'. IFB =',I5) CALL READ (*400,*220,MCBLTX,VB,NZVB,1,LL) CALL MESAGE (-8,0,NAM) 220 LL2 = LL/NWDS CDB LL3 = LL2/30 C LL4 = LL2 - LL3 C IF (DEBUG) WRITE (IO,230) LL,NREC,LL2 C 230 FORMAT (1X,I10,' WORDS READ FROM RECORD NO.',I5,'. LL2 =',I10) BASE = 1 240 XLJJ = VB(BASE) II = LJJ(1) JJ = LJJ(2) CDB IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4)) C 1 WRITE (IO,250) J,BASE,II,JJ,IFB C 250 FORMAT (11X,'J,BASE,II,JJ,IFB =',5I8) IF (II .NE. J) GO TO 420 NTMS = JJ - II + 1 IB = BASE + 2 IE = BASE + NTMS BASE = IE + 1 IF (NTMS .LE. 1) GO TO 270 SUM = ZERO DO 260 I = IB,IE II = II + 1 260 SUM = SUM + VB(I)*V2(II) V2(J)= V2(J) + SUM 270 V2(J)= V2(J)/VB(IB-1) 280 J = J - 1 CALL FRMLTD (MCBSMA(1),V2(1),V3(1),VB(1)) C C FORWARD SWEEP DIRECTLY ON V3 C IF (NROW .EQ. 1) GO TO 500 NREC = 0 LL2 = 0 BASE = 1 IFB = +390 DO 320 J = 1,NROW IF (BASE .LT. LL2) GO TO 300 NREC = NREC + 1 CDB IF (DEBUG) WRITE (IO,210) NREC,IFB CALL READ (*400,*290,MCBLTX,VB,NZVB,1,LL) CALL MESAGE (-8,0,NAM) 290 LL2 = LL/NWDS CDB LL3 = LL2/30 C LL4 = LL2 - LL3 C IF (DEBUG) WRITE (IO,230) LL,NREC,LL2 BASE = 1 300 XLJJ = VB(BASE) II = LJJ(1) JJ = LJJ(2) CDB IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4)) C 1 WRITE (IO,250) J,BASE,II,JJ,IFB IF (II .NE. J) GO TO 420 NTMS = JJ - II + 1 V3(J)= V3(J)/VB(BASE+1) IF (NTMS .LE. 1) GO TO 320 V3J = V3(J) IF (V3J .EQ. ZERO) GO TO 320 IB = BASE + 2 IE = BASE + NTMS DO 310 I = IB,IE II = II + 1 310 V3(II) = V3(II) + VB(I)*V3J 320 BASE = BASE + NTMS + 1 GO TO 500 C 400 I = MCBLT(4)/10 WRITE (IO,410) NREC,J,I,IFB 410 FORMAT ('0*** TRY TO READ RECORD',I5,'. J,MCBLT(4),IFB =',I7,2I5) CALL MESAGE (-3,MCBLTX,NAM) 420 WRITE (IO,430) J,II,IFB 430 FORMAT ('0*** ROW MISMATCH. J,II,(IFB =',I7,I12,3H (,I4) GO TO 460 440 J = MOD(MCBLT(4),10) WRITE (IO,450) J 450 FORMAT ('0*** MCBLT MATRIX IN WRONG FORM. UNPSCR FLAG =',2I3) 460 CALL MESAGE (-37,0,BUF(1)) C 500 BUF(3) = BUF(5) IF (L16 .NE. 0) CALL CONMSG (BUF,3,0) RETURN END ================================================ FILE: mis/frd2a.f ================================================ SUBROUTINE FRD2A (NQHL,QHR,QHI,IH,NFREQ) C INTEGER QHR,QHI,SYSBUF,MCB(7),THR(7),THI(7) DIMENSION Z(1) COMMON /ZZZZZZ/ Z COMMON /SYSTEM/ SYSBUF COMMON /UNPAKX/ IOUT,INN,NNN,INCR1 COMMON /PACKX / ITI,ITO,II,NN,INCR C C FIND COLUMN OF NQHL AND COPY REAL TO QHR AND IMAG TO QHI C NZ = KORSZ(Z) - SYSBUF MCB(1) = NQHL CALL RDTRL (MCB) IF (MCB(2) .EQ.0) GO TO 999 IOUT = MCB(5) ITI = 1 IF (IOUT .EQ. 4) ITI = 2 ITO = ITI NNN = MCB(3) INN = 1 INCR1= 1 II = 1 NN = IH INCR = 2 NWC = 2 IF (IOUT .EQ. 4) NWC = 4 IBUF1 = NZ IBUF2 = IBUF1 - SYSBUF CALL OPEN (*999,NQHL,Z(IBUF1),0) CALL READ (*999,*999,NQHL,Z(1),-2,1,FLAG) CALL MAKMCB (THR,QHR,IH,MCB(4),ITO) CALL MAKMCB (THI,QHI,IH,MCB(4),ITO) CALL SKPREC (NQHL,NFREQ-1) CALL UNPACK (*25,NQHL,Z(1)) GO TO 30 25 CALL ZEROC (Z,NNN*NWC) 30 J = 1 CALL CLOSE (NQHL,1) CALL GOPEN (QHR,Z(IBUF2),1) CALL GOPEN (QHI,Z(IBUF1),1) DO 40 I = 1,IH CALL PACK (Z(J),QHR,THR) CALL PACK (Z(J+1),QHI,THI) J = J + IH*NWC 40 CONTINUE CALL CLOSE (QHR,1) CALL CLOSE (QHI,1) CALL WRTTRL (THR) CALL WRTTRL (THI) CALL DMPFIL (-QHR,Z,NZ) CALL DMPFIL (-QHI,Z,NZ) GO TO 1000 999 CALL MAKMCB (THR,QHR,0,0,0) CALL WRTTRL (THR) THR(1) = QHI CALL WRTTRL (THR) 1000 RETURN END ================================================ FILE: mis/frd2b.f ================================================ SUBROUTINE FRD2B (A,ALP,B,BET,C,GAM,D,DEL,E,EPS,OUT) C C ADD UP MATRICIES C INTEGER A,B,C,D,E,OUT,TYPA,TYPB,TYPC,TYPD,TYPE REAL ALP(2),BET(2),GAM(2),DEL(2),EPS(2),Z(1) COMMON /SYSTEM/ KSYSTM(54), IPREC COMMON /ZZZZZZ/ Z COMMON /SADDX / NOMAT,LCORE,MCBA(7),TYPA,ALPHA(4),MCBB(7),TYPB, 1 BETA(4),MCBC(7),TYPC,GAMA(4),MCBD(7),TYPD, 2 DELTA(4),MCBE(7),TYPE,EPSLN(4),MC(7) COMMON /FRD2BC/ IH C NC = KORSZ(Z) NOMAT = 5 LCORE = NC TYPA = 3 TYPB = 3 TYPC = 3 TYPD = 3 TYPE = 3 ALPHA(1) = ALP(1) ALPHA(2) = ALP(2) BETA(1) = BET(1) BETA(2) = BET(2) GAMA(1) = GAM(1) GAMA(2) = GAM(2) DELTA(1) = DEL(1) DELTA(2) = DEL(2) EPSLN(1) = EPS(1) EPSLN(2) = EPS(2) MCBA(1) = A MCBB(1) = B MCBC(1) = C MCBD(1) = D MCBE(1) = E CALL RDTRL (MCBA) CALL RDTRL (MCBB) CALL RDTRL (MCBC) CALL RDTRL (MCBD) CALL RDTRL (MCBE) IFO = 6 ITY = 3 IF (IH.EQ.0 .AND. IPREC.EQ.2) ITY = 4 C C IH IN /FRD2BC/ IS INITIALIZED BY ROUTINE FRRD2. C (COMPLEX D.P. ARITHMETIC IS USED IF IH = 0) C N = 0 DO 10 I = 1,49,12 IF (MCBA(I ) .LT. 0) MCBA(I) = 0 IF (MCBA(I+1) .EQ. 0) MCBA(I) = 0 IF (MCBA(I ) .EQ. 0) GO TO 10 IF (N .EQ. 0) N = MCBA(I+1) IROW = MCBA(I+2) IF (MCBA(I+3) .NE. 6) IFO = 1 10 CONTINUE CALL MAKMCB (MC,OUT,IROW,IFO,ITY) MC(2) = N CALL SADD (Z,Z) CALL WRTTRL (MC) CALL DMPFIL (-OUT,Z,NC) RETURN END ================================================ FILE: mis/frd2c.f ================================================ SUBROUTINE FRD2C (A,B,X,SCR1,SCR2,SCR3,SCR4,SCR5,NLOAD,NFREQ) C C SOLVE A X = B C USE INCORE DECOMP IF POSSIBLE C INTEGER A,B,X,SCR1,SCR2,SCR3,SCR4,SCR5,SYSBUF,OUT,TA(7), 1 TB(7),TX(7) DIMENSION ZZ(1) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /SYSTEM/ SYSBUF,OUT,DUM(52),IPREC COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /UNPAKX/ IOUT,INN,NNN,INCR1 COMMON /FRD2BC/ IH,IP COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (ZZ(1),Z(1)) C ICORE= KORSZ(Z) INCR = 1 II = 1 INN = 1 INCR1= 1 IOUT = 3 IF (IH.EQ.0 .AND. IPREC.EQ.2) IOUT = 4 C C IH IN /FRD2BC/ IS INITIALIZED BY ROUTINE FRRD2. C (COMPLEX D.P. ARITHMETIC IS USED IF IH=0) C ITO = IOUT ITI = ITO C C DECIDE IF INCORE IS POSSIBLE C TA(1) = A CALL RDTRL (TA) TB(1) = B CALL RDTRL (TB) NA = TA(2) NB = TB(3)*NLOAD IBUF1 = ICORE - SYSBUF NCORE = NA*NA*2 + NB*2 + NB*2 + SYSBUF C C IF IH=0, COMPLEX D.P. COMPUTATION WILL BE USED. NOTICE THAT THE C ROUTINE INCORE IS WRITTEN ONLY FOR COMPLEX S.P. OPERATION. C IF (IH .EQ. 0) GO TO 102 IF (NCORE .GT. ICORE) GO TO 100 C C DO INCORE C IA = 1 CALL GOPEN (A,Z(IBUF1),0) NNN = TA(3) INCR1 = NNN N = NA + NA DO 10 I = 1,N,2 CALL UNPACK (*11,A,Z(I)) GO TO 10 11 DO 12 K = 1,N,2 L = (K-1)*NNN Z(I+L ) = 0.0 Z(I+L+1) = 0.0 12 CONTINUE 10 CONTINUE CALL CLOSE (A,1) C C GET FREQ FROM B C IB = NNN*NNN*2 + 1 NNN = TB(3) INCR1= NLOAD N1 = NNN + NNN J = TB(2)/NLOAD - 1 M = 0 CALL GOPEN (B,Z(IBUF1),0) CALL SKPREC (B,NFREQ-1) DO 30 I = 1,NLOAD CALL UNPACK (*31,B,Z(IB+M)) GO TO 33 31 DO 32 K = 1,N1,2 L = (K-1)*NLOAD + IB + M Z(L ) = 0.0 Z(L+1) = 0.0 32 CONTINUE 33 IF (I .NE. NLOAD) CALL SKPREC (B,J) M = M+2 30 CONTINUE CALL CLOSE (B,1) IX = NLOAD*NNN*2 + IB CALL INCORE (Z(IA),NA,Z(IB),Z(IX),NLOAD) NN = NA CALL GOPEN (X,Z(IBUF1),1) CALL MAKMCB (TX,X,NN,TB(4),ITO) INCR = NLOAD J = IX DO 50 I = 1,NLOAD CALL PACK (Z(J),X,TX) 50 J = J + 2 CALL CLOSE (X,1) CALL WRTTRL (TX) GO TO 1000 C C USE FILE SOLVE C 100 IF (IP .NE. 0) GO TO 102 IP = NCORE - ICORE WRITE (OUT,101) UIM,IP 101 FORMAT (A29,' 2437, ADDITIONAL CORE NEEDED FOR IN-CORE ', 1 'DECOMPOSITION IN FRRD2 MODULE IS',I8,' WORDS.') 102 CALL CFACTR (A,SCR1,SCR2,SCR3,SCR4,SCR5,IOPT) ICORE = KORSZ(ZZ) IBUF1 = ICORE - SYSBUF IBUF2 = IBUF1 - SYSBUF CALL GOPEN (B,ZZ(IBUF1),0) CALL GOPEN (SCR3,ZZ(IBUF2),1) IOUT = 3 IF (IH.EQ.0 .AND. IPREC.EQ.2) IOUT = 4 INCR1 = 1 J = TB(2)/NLOAD - 1 NN = TB(3) CALL MAKMCB (TX,SCR3,NN,TB(4),ITO) CALL SKPREC (B,NFREQ-1) DO 110 I = 1,NLOAD CALL CYCT2B (B,SCR3,1,ZZ,TX) IF (I .NE. NLOAD) CALL SKPREC (B,J) 110 CONTINUE CALL CLOSE (SCR3,1) CALL CLOSE (B,1) CALL WRTTRL (TX) CALL CFBSOR (SCR1,SCR2,SCR3,X,IOPT) 1000 RETURN END ================================================ FILE: mis/frd2d.f ================================================ SUBROUTINE FRD2D (IN,IO,IP) C INTEGER SYSBUF,MA(7),MB(7) COMMON /SYSTEM/ SYSBUF COMMON /UNPAKX/ IOUT,INN,MNN,INCR1 COMMON /ZZZZZZ/ Z(1) C C ADD IN TO END OF IO C INCR1 = 1 MA(1) = IN MB(1) = IO CALL RDTRL (MA) IOUT = MA(5) NC = KORSZ(Z) IB1 = NC - SYSBUF IB2 = IB1 - SYSBUF CALL GOPEN (IN,Z(IB1),0) IF (IP .NE. 0) GO TO 10 CALL GOPEN (IO,Z(IB2),1) CALL MAKMCB (MB,IO,MA(3),2,IOUT) GO TO 20 10 CALL GOPEN (IO,Z(IB2),3) CALL RDTRL (MB) 20 N = MA(2) CALL CYCT2B (IN,IO,N,Z,MB) CALL CLOSE (IN,1) CALL CLOSE (IO,3) CALL WRTTRL (MB) CALL DMPFIL (-IN,Z,NC) RETURN END ================================================ FILE: mis/frd2e.f ================================================ SUBROUTINE FRD2E (IN,IO,NLOAD,NFREQ) C INTEGER MA(7),MB(7) COMMON /SYSTEM/ ISYS COMMON /UNPAKX/ IOUT,INN,NNN,INCR1 COMMON /ZZZZZZ/ Z(1) C C MAKE UHDF FROM IN C INCR1 = 1 MA(1) = IN MB(1) = IO IB1 = KORSZ(Z) - ISYS IB2 = IB1 - ISYS CALL RDTRL (MA) IOUT = MA(5) CALL GOPEN (IN,Z(IB1),0) CALL GOPEN (IO,Z(IB2),1) CALL MAKMCB (MB,IO,MA(3),MA(4),IOUT) DO 30 J = 1,NLOAD CALL SKPREC (IN,J-1) DO 10 I = 1,NFREQ CALL CYCT2B (IN,IO,1,Z,MB) IF (I .NE. NFREQ) CALL SKPREC (IN,NLOAD-1) 10 CONTINUE CALL REWIND (IN) CALL SKPREC (IN,1) 30 CONTINUE CALL CLOSE (IN,1) CALL CLOSE (IO,1) CALL WRTTRL (MB) RETURN END ================================================ FILE: mis/frd2f.f ================================================ SUBROUTINE FRD2F (MHH,BHH,KHH,FRL,FRQSET,NLOAD,NFREQ,PH,UHV) C C ROUTINE SOLVES DIRECTLY FOR UNCOUPLED MODAL FORMULATION C INTEGER BHH,FRL,FRQSET,PH,UHV,SYSBUF,FILE,MCB(7) INTEGER NAME(2) C COMMON /SYSTEM/ SYSBUF COMMON /ZBLPKX/ B(4),JJ COMMON /ZNTPKX/A(4),II,IEOL,IEOR COMMON /ZZZZZZ/ CORE(1) C DATA NAME /4HFRD2,4HF / C C ---------------------------------------------------------------------- C IBUF1 = KORSZ(CORE) -SYSBUF +1 C C PICK UP FREQUENCY LIST C CALL GOPEN(FRL,CORE(IBUF1),0) CALL SKPREC(FRL,FRQSET-1) IF(IBUF1-1 .LT. NFREQ) GO TO 170 CALL FREAD(FRL,CORE,NFREQ,1) CALL CLOSE( FRL, 1 ) C C BRING IN MODAL MATRICES C IMHH = NFREQ MCB(1) = MHH CALL RDTRL(MCB) LHSET =MCB(2) IF(IBUF1-1 .LT. NFREQ+3*LHSET) GO TO 170 IBHH = IMHH+LHSET IKHH = IBHH+LHSET C C BRING IN MHH C MATNAM = MHH ASSIGN 30 TO IRET IPNT = IMHH GO TO 110 C C BRING IN BHH C 30 MATNAM = BHH ASSIGN 40 TO IRET IPNT = IBHH GO TO 110 C C BRING IN KHH C 40 MATNAM = KHH ASSIGN 50 TO IRET IPNT = IKHH GO TO 110 C C READY LOADS C 50 CALL GOPEN(PH,CORE(IBUF1),0) C C READY SOLUTIONS C IBUF2 = IBUF1-SYSBUF CALL GOPEN(UHV,CORE(IBUF2),1) CALL MAKMCB(MCB,UHV,LHSET,2,3) C C COMPUTE SOLUTIONS C DO 100 I=1,NLOAD DO 90 J=1,NFREQ C C PICK UP FREQ C W = CORE(J) W2 = -W*W CALL BLDPK(3,3,UHV,0,0) CALL INTPK(*80,PH,0,3,0) 60 IF( IEOL) 80,70,80 70 CALL ZNTPKI C C COMPUTE REAL AND COMPLEX PARTS OF DENOMINATOR C IK = IKHH +II IB = IBHH +II IM = IMHH +II RDEM = W2*CORE(IM) + CORE(IK) CDEM = CORE(IB)* W DEM = RDEM*RDEM+CDEM*CDEM IF(DEM .NE. 0.0) GO TO 71 CALL MESAGE(5,J,NAME) B(1) = 0.0 B(2) = 0.0 GO TO 72 71 CONTINUE C C COMPUTE REAL AND COMPLEX PHI-S C B(1) = (A(1)*RDEM+A(2)*CDEM)/DEM B(2) = (A(2)*RDEM-A(1)*CDEM)/DEM 72 JJ = II CALL ZBLPKI GO TO 60 C C END COLUMN C 80 CALL BLDPKN(UHV,0,MCB) 90 CONTINUE 100 CONTINUE CALL CLOSE(UHV,1) CALL CLOSE(PH,1) CALL WRTTRL(MCB) RETURN C C INTERNAL SUBROUTINE TO BRING IN H MATRICES C 110 FILE =MATNAM CALL OPEN(*132,MATNAM,CORE(IBUF1),0) CALL SKPREC(MATNAM,1) DO 130 I=1,LHSET IPNT =IPNT +1 CALL INTPK(*120,MATNAM,0,1,0) CALL ZNTPKI IF( II .NE. I .OR. IEOL .NE. 1) GO TO 180 CORE(IPNT) = A(1) GO TO 130 C C NULL COLUMN C 120 CORE(IPNT) = 0.0 130 CONTINUE CALL CLOSE(MATNAM,1) 131 GO TO IRET,(30,40,50) C C ZERO CORE FOR PURGED MATRIX C 132 DO 133 I = 1 , LHSET IPNT = IPNT+1 CORE(IPNT) = 0.0 133 CONTINUE GO TO 131 C C ERROR MESAGES C 150 CALL MESAGE(IP1,FILE,NAME) 170 IP1 = -8 GO TO 150 180 IP1 = -7 GO TO 150 END ================================================ FILE: mis/frd2i.f ================================================ SUBROUTINE FRD2I (FL,NFREQ,NCORE,QHHL,SCR2,SCR1,SCR3,SCR4,NROW) C INTEGER QHHL,SCR1,SCR2,SCR3,SCR4,TRL(7),OUT DIMENSION FL(1),MCB(7),NAME(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / BOV,Q,RM COMMON /CONDAS/ PI,TWOPI COMMON /SYSTEM/ ISYS,OUT,DUM(52),IPREC COMMON /UNPAKX/ IOUT,INN,NNN,INCR1 COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /TYPE / P(2),IWC(4) DATA NAME / 4HFRD2,4HI / DATA NHFRDI/ 4HFRDI/ C IBUF1 = NCORE - ISYS IBUF2 = IBUF1 - ISYS NROW = 0 INCR = 1 INCR1 = 1 II = 1 INN = 1 MCB(1)= QHHL CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 1000 NROW = MCB(3) NI =(MCB(2)/MCB(3))*2 NNN = NROW NN = NROW*NROW ITI = 3 ITO = ITI IOUT = ITI NWC = IWC(ITI) ISCR = SCR1 NLOOP = 1 INDX = 0 XM = RM IF (RM .GE. 0.0) GO TO 5 ISCR = SCR2 NLOOP = NFREQ INDX = 1 5 CALL MAKMCB (TRL,ISCR,NN,MCB(4),ITO) C C MAKE INDEPENDENT FREQ LIST C IPD = 1 NL = 2*NFREQ N = NFREQ + 1 ICORE = IBUF1 IPI = IPD + NL DO 10 I = 1,NFREQ FL(NL) = FL(N-I)*TWOPI*BOV FL(NL-1) = 0.0 NL = NL -2 10 CONTINUE C C MAKE INDEPENDENT FREQ LIST C CALL OPEN (*1000,QHHL,FL(IBUF2),0) CALL GOPEN (ISCR,FL(IBUF1),1) CALL READ (*999,*999,QHHL,FL(IPI),-3,0,FLAG) CALL READ (*999,*999,QHHL,N,1,0,FLAG) N = N + N IF (RM.GE.0.0 .OR. N.EQ.NI) GO TO 15 WRITE (OUT, 2000) UFM,N,NI 2000 FORMAT (A23,', THE NUMBER OF (M,K) PAIRS SPECIFIED ON MKAEROX ', 1 'CARDS (', I5, ') IS NOT EQUAL ', /5X, 2 'TO THE NUMBER OF FREQUENCIES SPECIFIED (', I5, '),') CALL MESAGE (-37,0,NAME) 15 NI = MIN0(NI,N) CALL READ (*999,*999,QHHL,FL(IPI),NI,1,FLAG) IF (RM .LT. 0.0) CALL CLOSE (QHHL, 1) C DO 200 KKK = 1, NLOOP IF (RM .GE. 0.0) GO TO 20 XM = FL(2*KKK) CALL GOPEN (QHHL,FL(IBUF2),0) 20 CONTINUE C C FOR RM.GE.0.0, FIND M CLOSEST TO XM C FOR RM.LT.0.0, FIND K CLOSEST TO XM C ICP = IPI + NI RMI = 1.E20 RMS = 0.0 DO 30 I = 1,NI,2 RMX = ABS(FL(IPI+I+INDX-1)-XM) RMI = AMIN1(RMI,RMX) IF (RMX .GT. RMI) GO TO 30 RMS = FL(IPI+I+INDX-1) 30 CONTINUE RMI = RMS C C FOR RM.GE.0.0, SELECT ALL K'S ASSOCIATED WITH RMI C FOR RM.LT.0.0, SELECT THE K EQUAL TO RMI C K = 0 DO 100 I = 1,NI,2 IF (FL(IPI+I+INDX-1) .EQ. RMI) GO TO 120 C C SKIP MATRIX C CALL SKPREC (QHHL,NROW) GO TO 100 C C MAKE MATRIX INTO COLUMN C 120 FL(IPI+K+1) = FL(IPI+I) K = K + 2 JI = ICP N = NROW*NWC DO 130 J = 1,NROW CALL UNPACK (*131,QHHL,FL(JI)) GO TO 135 131 CALL ZEROC (FL(JI),N) 135 JI = JI + N 130 CONTINUE C C DIVIDE IMAG PART OF QHHL BY FREQUENCY C JJ = ICP + 1 KK = JI - 1 DO 132 J = JJ,KK,2 FL(J) = FL(J)/FL(IPI+I) 132 CONTINUE IF (RM .LT. 0.0) FL(IPI+I) = -10000.0 CALL PACK (FL(ICP),ISCR,TRL) IF (RM .LT. 0.0) GO TO 150 100 CONTINUE 150 CALL CLOSE (QHHL,1) CALL CLOSE (ISCR,1) 200 CONTINUE C CALL WRTTRL (TRL) CALL BUG (NHFRDI,200,K ,1) CALL BUG (NHFRDI,200,NFREQ,1) CALL BUG (NHFRDI,200,FL(1),ICP) IF (RM .LT. 0.0) RETURN C C SETUP TO CALL MINTRP C NI = K/2 NOGO = 0 NC = NCORE - ICP CALL DMPFIL (-SCR1,FL(ICP),NC) IM = 0 IK = 1 CALL MINTRP (NI,FL(IPI),NFREQ,FL(IPD),-1,IM,IK,0.0,SCR1,SCR2,SCR3, 1 SCR4,FL(ICP),NC,NOGO,IPREC) IF (NOGO .EQ. 1) GO TO 998 CALL DMPFIL (-SCR2,FL(ICP),NC) RETURN C 998 WRITE (OUT,9980) UFM 9980 FORMAT (A23,' 2271, INTERPOLATION MATRIX IS SINGULAR') GO TO 9999 999 CALL MESAGE (-3,QHHL,NAME) 9999 CALL MESAGE (-61,0,NAME) 1000 CALL CLOSE (QHHL,1) RETURN END ================================================ FILE: mis/fread.f ================================================ SUBROUTINE FREAD (FILE,BLOCK,N,EOR) C INTEGER FILE,EOR REAL BLOCK(1),SUBNAM(2) DATA SUBNAM / 4H FRE,4HAD / C CALL READ (*100,*101,FILE,BLOCK,N,EOR,K) RETURN 100 K = -2 GO TO 110 101 K = -3 110 CALL MESAGE (K,FILE,SUBNAM) GO TO 110 END ================================================ FILE: mis/frlg.f ================================================ SUBROUTINE FRLG C C FREQUENCE RESPONSE LOAD GENERATOR C C INPUTS - CASEXX,USETD,DLT,FRL,GMD,GOD,DIT,PHIDH C C OUTPUTS - PPF,PSF,PDF,FOL,PHF C C 4 SCRATHCES C C EXTERNAL ANDF INTEGER CASEXX,USETD,DLT,FRL,GMD,GOD,DIT,PHIDH,PPF,PSF, 1 PDF,FOL,PHF,SCR1,SCR2,SCR3,SCR4,MCB(7),ANDF, 2 SINGLE,OMIT,IFREQ(2),ITRAN(2) COMMON /TWO / ITWO(32) COMMON /BLANK / MODAL(2),NOTRD,IAPP(2) COMMON /BITPOS/ IUM,IUO,SKP(6),IUS DATA CASEXX, USETD,DLT,FRL,GMD,GOD,DIT,PHIDH / 1 101 , 102 ,103,104,105,106,107,108 / DATA PPF , PSF,PDF,FOL,PHF, SCR1,SCR2,SCR3,SCR4 / 1 201 , 202,203,204,205, 301 ,302 ,303 ,304 / DATA MODA / 4HMODA / DATA IFREQ , ITRAN /4HFREQ,1H ,4HTRAN,1H / C C DETERMINE USET DATA C MCB(1) = USETD CALL RDTRL (MCB) LUSETD = MCB(2) MULTI =-1 IF (ANDF(MCB(5),ITWO(IUM)) .NE. 0) MULTI = 1 SINGLE =-1 IF (ANDF(MCB(5),ITWO(IUS)) .NE. 0) SINGLE = 1 OMIT =-1 IF (ANDF(MCB(5),ITWO(IUO)) .NE. 0) OMIT = 1 C IAPP(1) = IFREQ(1) IAPP(2) = IFREQ(2) C C BUILD LOADS ON P SET C C ORDER IS ALL FREQUENCIES FOR GIVEN LOAD TOGETHER C CALL FRLGA (DLT,FRL,CASEXX,DIT,PPF,LUSETD,NFREQ,NLOAD,FRQSET,FOL, 1 NOTRD) IF (NOTRD .EQ. -1) GO TO 10 IAPP(1) = ITRAN(1) IAPP(2) = ITRAN(2) 10 CONTINUE C C REDUCE LOADS TO D OR H SET C IF (MULTI.LT.0 .AND. SINGLE.LT.0 .AND. OMIT.LT.0 .AND. 1 MODAL(1).NE.MODA) RETURN CALL FRLGB (PPF,USETD,GMD,GOD,MULTI,SINGLE,OMIT,MODAL,PHIDH,PDF, 1 PSF,PHF,SCR1,SCR2,SCR3,SCR4) RETURN END ================================================ FILE: mis/frlga.f ================================================ SUBROUTINE FRLGA (DLT,FRL,CASECC,DIT,PP,LUSETD,NFREQ,NLOAD, 1 FRQSET,FOL,NOTRD) C C THIS ROUTINE GENERATES LOADS INCORE AT EACH FREQUENCY C C WITH ENTRY POINTS - GUST1A AND FRRD1A C ====== ====== C INTEGER SYSBUF,DLT,FRL,CASECC,DIT,PP,FRQSET,ICORE(14), 1 FILE,MCB(7),IHEAD(8),ITLIST(13),NAME(6),FOL REAL FX(2) COMPLEX POW,EB,R2,R1 DIMENSION HEAD(8) COMMON /SYSTEM/ KSYSTM(55) COMMON /BLANK / XX COMMON /PACKX / IT1,IT2,II,JJ,INCR COMMON /ZZZZZZ/ CORE(1) COMMON /CONDAS/ PI,TWOPHI,RADEG,DEGRA,S4PISQ COMMON /FRRDST/ OVR(152),ITL(3) EQUIVALENCE (CORE(1),ICORE(1)), (HEAD(1),IHEAD(1),ISIL), 1 (HEAD(2),A), (HEAD(3),TAU), (HEAD(4),THETA), 1 (KSYSTM(1),SYSBUF), (KSYSTM(55),IPREC) DATA ITLIST/ 4,1105,11,1,1205,12,2,1305,13,3,1405,14,4 / DATA NAME / 4HDLT ,4HFRLG,4HA ,4HGUST,4H1A ,4HFRRD / DATA IFRL / 4HFRL / C C IDENTIFICATION OF VARIABLES C C NFREQ = NUMBER OF FREQ IN SELECTED FREQ SET C NDONE = NUMBER OF FREQUENCIES CURRENTLY BUILT FOR CUR LOAD C LLIST = POINTER TO START OF LOAD TABLE C ITABL = POINTER TO START OF LIST OF TABLES NEEDED FOR CURRENT C LOAD C ILOAD = POINTER TO BEGINNING OF LOADS IN CORE C IFL = POINTER TO VALUES OF FREQ FUNCTIONS C NBUILD = NUMBER OF FREQUENCIES WHICH CAN BE BUILT AT ONCE C NLOAD = NUMBER OF LOADS FOUND IN CASE CONTROL C LCORE = AMOUNT OF CORE AVAILABLE TO HOLD LOADS + F(F)-S C FRQSET = SELECT FREQUENCY SET ID C LOADN = SELECTED DYNAMIC LOAD C NDLOAD = NUMBER OF DLOAD CARDS C NSIMPL = NUMBER OF SIMPLE LOADS C NSUBL = NUMBEL OF SIMPLE LOADS COMPOSING PRESENT LOAD C NTABL = NUBER OF TABLE ID-S IN PRESENT LOAD C ICDTY = CARD TYPE CODE 1=RLOAD1, 2=RLOAD2 C C GO TO 2 C C ENTRY GUST1A (DLT,FRL,CASECC,DIT,PP,LUSETD,NFREQ,NLOAD, 1 FRQSET,FOL,NOTRD) C ======================================================= C NAME(2) = NAME(4) NAME(3) = NAME(5) GO TO 2 C C ENTRY FRRD1A (DLT,FRL,CASECC,DIT,PP,LUSETD,NFREQ,NLOAD, 1 FRQSET,FOL,NOTRD) C ======================================================= C NAME(2) = NAME(6) NAME(3) = NAME(5) C C C INITALIZE C 2 IT1 = 3 IT2 = 2 + IPREC II = 1 JJ = LUSETD INCR = 1 NOTRD =-1 LCORE = KORSZ(CORE(1)) C C PICK UP AND STORE FREQUENCY SET C IBUF = LCORE - SYSBUF + 1 NZ1 = IBUF - 1 LCORE = LCORE - 2*SYSBUF NZ = LCORE IGUST = 0 IF (CASECC .GT. 0) GO TO 5 CASECC = IABS(CASECC) IGUST = 1 5 CONTINUE FILE = CASECC CALL OPEN (*510,CASECC,CORE(IBUF),0) CALL FWDREC (*530,CASECC) CALL FREAD (CASECC,CORE,149,0) FRQSET = ICORE(14) NLOAD = 0 LOADN = ICORE(13) CALL CLOSE (CASECC,1) ITL(1) = 2 I149 = 149 ITL(2) = ICORE(I149) ITL(3) = ITL(2) + 1 ITLD = 1 C C BRING IN AND SAVE FREQ LIST -- CONVERT W-S TO F F = TWOPHI* W C FILE = FRL CALL OPEN (*510,FRL,CORE(IBUF),0) CALL READ (*530,*10,FRL,CORE(1),NZ1,0,IFLAG) GO TO 540 10 DO 20 I = 3,IFLAG IF (ICORE(I) .EQ. FRQSET) GO TO 30 20 CONTINUE NAME(1) = IFRL CALL MESAGE (-31,FRQSET,NAME) 30 K = I-3 IF (K .EQ. 0) GO TO 50 DO 40 I = 1,K CALL FWDREC (*530,FRL) 40 CONTINUE C C READ IN FREQ LIST C 50 CALL READ (*530,*60,FRL,CORE(1),NZ1,0,NFREQ) GO TO 540 60 CALL CLOSE (FRL,1) LCORE = LCORE - NFREQ NZ1 = NZ1 - NFREQ FRQSET= K + 1 LLIST = NFREQ + 1 C C CONVERT TO F C DO 70 I = 1,NFREQ CORE(I) = CORE(I)/TWOPHI 70 CONTINUE C C PUT HEADER ON LOAD FILE C FILE = PP NZ = IBUF - SYSBUF NZ1 = NZ1 - SYSBUF CALL OPEN (*510,PP,CORE(NZ),1) CALL FNAME (PP,MCB(1)) CALL WRITE (PP,MCB(1),2,0) CALL WRITE (PP,CORE(1),NFREQ,1) FILE = FOL CALL OPEN (*71,FOL,CORE(IBUF),1) CALL FNAME (FOL,MCB) CALL WRITE (FOL,MCB,2,0) CALL WRITE (FOL,CORE,NFREQ,1) CALL CLOSE (FOL,1) MCB(1) = FOL MCB(2) = NFREQ MCB(3) = FRQSET CALL WRTTRL (MCB) 71 CONTINUE C C SET UP MCB FOR PP C MCB(1) = PP MCB(2) = 0 MCB(3) = LUSETD MCB(4) = 2 MCB(5) = 2 + IPREC MCB(6) = 0 MCB(7) = 0 C C BEGIN LOOP ON LOADS SELECTED C 80 IF (NLOAD .EQ. 0) GO TO 100 FILE = CASECC CALL OPEN (*510,CASECC,CORE(IBUF),0) L = NLOAD + 1 DO 90 I = 1,L CALL FWDREC (*530,CASECC) 90 CONTINUE CALL READ (*500,*540,CASECC,CORE(LLIST),16,1,IFLAG) LOADN = ICORE(LLIST+12) CALL CLOSE (CASECC,1) 100 NLOAD = NLOAD + 1 IF (LOADN .EQ. 0) GO TO 491 NDONE = 0 LCORE = NZ1 C C FIND SELECTED LOAD IN DLT C FILE = DLT CALL OPEN (*510,DLT,CORE(IBUF),0) CALL READ (*530,*110,DLT,CORE(LLIST),NZ1,0,IFLAG) C C IS IT A DLOAD SET C 110 NDLOAD = ICORE(LLIST+2) NSIMPL = IFLAG - 3 - NDLOAD IF (NSIMPL .EQ. 0) CALL MESAGE (-31,LOADN,NAME) IF (NDLOAD .EQ. 0) GO TO 300 K = LLIST + 2 DO 120 I = 1,NDLOAD K = K + 1 IF (ICORE(K) .EQ. LOADN) GO TO 130 120 CONTINUE GO TO 300 C C PROCESS DLOAD SET C C FORMAT OF DLOAD CARD = SET ID, SCALE,SCALE,ID, SCALE, ID, ...,0,-1 C 130 NZ1 = NZ1 - IFLAG C C BRING IN ALL DLOADS C L = LLIST + IFLAG CALL READ (*530,*140,DLT,CORE(L),NZ1,0,I) GO TO 540 C C FIND SELECTED ID C 140 ISEL = L 150 IF (ICORE(ISEL) .EQ. LOADN) GO TO 170 160 ISEL = ISEL + 2 IF (ICORE(ISEL+1) .NE. -1) GO TO 160 ISEL = ISEL + 2 GO TO 150 C C FOUND LOAD SET SELECTED C 170 SCALE = CORE(ISEL+1) C C CONVERT SCALE FACTORS TO OVERALL SCALE +ID-S TO RECORD NUMBERS-1 C L = ISEL + 2 NSUBL = 0 180 CORE(L) = CORE(L)*SCALE K = LLIST + 2 + NDLOAD DO 190 I = 1,NSIMPL K = K + 1 IF (ICORE(L+1) .EQ. ICORE(K)) GO TO 200 190 CONTINUE CALL MESAGE (-31,ICORE(L),NAME) C C FOUND SIMPLE ID C 200 ICORE(L+1) = I + 1 NSUBL = NSUBL + 1 L = L + 2 IF (ICORE(L+1) .GE. 0) GO TO 180 C C MOVE TO LOAD LIST AREA C L = ISEL + 2 K = LLIST DO 210 I = 1,NSUBL ICORE(K) = ICORE(L+1) CORE(K+1) = CORE(L) L = L + 2 K = K + 2 210 CONTINUE C C BUILD LIST OF UNIQUE TABLES NEEDED FOR NSUBL LOADS C IPOS = 2 230 NTABL = 0 ITABL = LLIST + 2*NSUBL DO 290 I = 1,NSUBL K = LLIST + (I-1)*2 J = ICORE(K) L = J - IPOS IF (L .EQ. 0) GO TO 250 DO 240 K = 1,L CALL FWDREC (*530,DLT) 240 CONTINUE C C READ IN DESCRIPTOR WORDS C 250 IPOS = J + 1 CALL READ (*530,*550,DLT,HEAD(1),8,1,IFLAG) ICDTY = IHEAD(1) NT = 4 GO TO (251,251,252,291), ICDTY C C TLOAD 1 CARD C 252 NT = 3 ITLD = 2 NOTRD = 1 251 CONTINUE DO 280 M = 3,NT IF (IHEAD(M) .EQ. 0) GO TO 280 IF( NTABL .EQ. 0) GO TO 270 DO 260 K = 1,NTABL L = ITABL+K IF (ICORE(L) .EQ. IHEAD(M)) GO TO 280 260 CONTINUE C C STORE NEW TABLE ID C 270 NTABL = NTABL + 1 K = ITABL + NTABL ICORE(K) = IHEAD(M) 280 CONTINUE GO TO 290 C C TLOAD2 CARD C 291 CONTINUE NOTRD = 1 290 CONTINUE CALL REWIND (DLT) LCORE = LCORE - NTABL - 1 ILOAD = ITABL + NTABL + 1 ICORE(ITABL) = NTABL GO TO 330 C C PROCESS SIMPLE LOAD REQUEST C 300 NSUBL = 1 CORE(LLIST+1) = 1.0 L = LLIST + 2 + NDLOAD DO 310 I = 1,NSIMPL L = L + 1 IF (ICORE(L) .EQ. LOADN) GO TO 320 310 CONTINUE CALL MESAGE (-31,LOADN,NAME) C C FOUND SIMPLE LOAD STORE RECORD NUMBER C 320 IF (NDLOAD .NE. 0) I = I + 1 ICORE(LLIST) = I IPOS = 1 LCORE = LCORE - 2 GO TO 230 C C ALLOCATE CORE C 330 LVECT = 2*LUSETD NBUILD = LCORE/(LVECT+NTABL*ITLD) NBUILD = MIN0(NBUILD,NFREQ) IF (NBUILD .EQ. 0) GO TO 540 KK = NTABL*NBUILD IFL = NZ - NTABL*NBUILD*ITLD C C LOOP HERE FOR FREQUENCY SPILL C LCORE = LCORE - NTABL*NBUILD NBUF = LCORE - SYSBUF IF (NTABL .EQ. 0) GO TO 361 340 CALL PRETAB (DIT,CORE(ILOAD),CORE(ILOAD),CORE(NBUF),NBUF,L, 1 CORE(ITABL),ITLIST(1)) DO 360 J = 1,NTABL L = ITABL + J DO 350 I = 1,NBUILD M = NDONE + I K = IFL + NBUILD*(J-1) + I - 1 IF (ITLD .EQ. 2) GO TO 341 C C TAB X F(X) CALL TAB (CORE(L),CORE(M),CORE(K)) GO TO 350 C C TRANSFOR LOOK UP FOR TLOAD 1 CARDS C 341 CONTINUE CALL TAB1 (CORE(L),CORE(M),FX(1)) CORE(K ) = FX(1) CORE(K+KK) = FX(2) GO TO 350 350 CONTINUE 360 CONTINUE 361 CONTINUE C C READY CORE FOR BUILDING LOADS C K = ILOAD - 1 DO 380 I = 1,NBUILD DO 370 L = 1,LVECT K = K + 1 CORE(K) = 0.0 370 CONTINUE 380 CONTINUE C C POSITION TO LOAD IN DLT C IPOS = 0 DO 480 I = 1,NSUBL K = LLIST + 2*I - 2 L = ICORE(K) - IPOS SCALE = CORE(K+1) IF (L .EQ. 0) GO TO 400 DO 390 J = 1,L CALL FWDREC (*530,DLT) 390 CONTINUE C C READ IN 8 WORD LOAD ID C 400 IPOS = L + 1 + IPOS CALL READ (*530,*540,DLT,HEAD(1),8,0,IFLAG) ICDTY = IHEAD(1) TK1 = HEAD(3) TK2 = HEAD(4) NT = 4 GO TO (404,404,403,435), ICDTY 403 NT = 3 C C FIND COEFFICIENTS IN TABLE LIST C 404 DO 430 K = 3,NT IF (IHEAD(K) .NE. 0) GO TO 405 IHEAD(K+3) = -1 GO TO 430 405 DO 410 L = 1,NTABL M = ITABL + L IF (ICORE(M) .EQ. IHEAD(K)) GO TO 420 410 CONTINUE GO TO 550 C C COMPUTE POINTER INTO COEF TABLE C 420 IHEAD(K+3) = IFL + (L-1)*NBUILD IF (ICDTY .EQ. 3) IHEAD(K+4) = IFL + (L-1)*NBUILD + NTABL*NBUILD 430 CONTINUE C C REPEATLY READ IN 4 WORDS --SIL,A,TAU,THETA C 435 IGUST1 = 0 440 CONTINUE IF (IGUST .EQ. 0) GO TO 442 IF (IGUST1 .EQ. 1) GO TO 480 IGUST1 = 1 442 CONTINUE CALL READ (*530,*480,DLT,IHEAD(1),4,0,IFLAG) IF (IGUST .EQ. 0) GO TO 443 ISIL = 1 A = 1.0 TAU = 0.0 THETA = 0.0 443 CONTINUE A = A*SCALE THETA = THETA*DEGRA DO 470 J = 1,NBUILD IF (ICDTY .EQ. 4) GO TO 448 C C COMPUTE COEFFICIENTS C C1 = 0.0 IF (IHEAD(6) .LT. 0) GO TO 445 K = IHEAD(6) + J - 1 C1 = CORE(K) 445 C2 = 0.0 IF (IHEAD(7) .LT. 0) GO TO 448 K = IHEAD(7) + J - 1 C2 = CORE(K) 448 L = NDONE + J M = (J-1)*LVECT + 2*ISIL - 2 + ILOAD GO TO (450,460,450,471), ICDTY C C RLOAD 1 CARDS OF TLOAD1 CARDS C 450 XLAMA = THETA - CORE(L)*TAU*TWOPHI SINXL = SIN(XLAMA) COSXL = COS(XLAMA) CORE(M ) = A*(C1*COSXL - C2*SINXL) + CORE(M ) CORE(M+1) = A*(C1*SINXL + C2*COSXL) + CORE(M+1) GO TO 470 C C RLOAD2 CARDS C 460 XLAMA = THETA - CORE(L)*TAU*TWOPHI + C2*DEGRA CORE(M ) = A*C1*COS(XLAMA) + CORE(M ) CORE(M+1) = A*C1*SIN(XLAMA) + CORE(M+1) GO TO 470 C C TLOAD 2 CARDS C 471 CONTINUE F = HEAD(5) P = HEAD(6)*DEGRA C = HEAD(7) IB = HEAD(8) +.5 DT = TK2 - TK1 RZ =-C*DT CZ =-DT*(F-CORE(L))*TWOPHI C C COMPUTE E(B+1) (ZR2) C CALL FRR1A1 (RZ,CZ,IB+1,REB,CEB) EB = CMPLX(REB,CEB) RP =-RZ CP = P - CORE(L)*TWOPHI*TK2 + TWOPHI*F*DT POW= CMPLX(RP,CP) R2 = CEXP(POW)*EB C C COMPUTE R1 C CZ = -DT*(-F -CORE(L))*TWOPHI C C COMPUTE E(B+1)ZR1 C CALL FRR1A1 (RZ,CZ,IB+1,REB,CEB) EB = CMPLX(REB,CEB) CP =-P - CORE(L)*TWOPHI*TK2 - TWOPHI*F*DT POW = CMPLX(RP,CP) R1 = R2 + CEXP(POW)*EB C C COMPUTE P(W) R2 = CMPLX(0.,-CORE(L)*TAU*TWOPHI) POW = R1*CEXP(R2) CP = (DT**(IB+1))/(2.0 *(HEAD(8)+1.)) RZ = REAL(POW)*A*CP CZ = AIMAG (POW)*A*CP CORE(M ) = CORE(M ) + RZ CORE(M+1) = CORE(M+1) + CZ GO TO 470 470 CONTINUE GO TO 440 C C END OF STUFF IN DLT TABLE C 480 CONTINUE C C PACK OUT LOADS BUILT C DO 490 I = 1,NBUILD M = (I-1)*LVECT + ILOAD CALL PACK (CORE(M),PP,MCB(1)) 490 CONTINUE NDONE = NDONE + NBUILD NBUILD = MIN0(NBUILD,NFREQ-NDONE) CALL REWIND (DLT) IF (NBUILD .NE. 0) GO TO 340 CALL CLOSE (DLT,1) GO TO 80 C C BUILD ZERO LOAD C 491 DO 492 I = 1,NFREQ CALL BLDPK (3,3,PP,0,0) CALL BLDPKN (PP,0,MCB) 492 CONTINUE GO TO 80 C C EOF ON CASECC END OF ROUTINE C 500 CALL CLOSE (CASECC,1) CALL WRTTRL (MCB(1)) CALL CLOSE (PP,1) RETURN C C ERROR MESAGES C 510 IP1 = -1 520 CALL MESAGE (IP1,FILE,NAME(2)) 530 IP1 = -2 GO TO 520 540 IP1 = -8 GO TO 520 550 IP1 = -7 GO TO 520 END ================================================ FILE: mis/frlgb.f ================================================ SUBROUTINE FRLGB (PP,USETD,GMD,GOD,MULTI,SINGLE,OMIT,MODAL,PHIDH, 1 PD,PS,PH,SCR1,SCR2,SCR3,SCR4) C C THIS ROUTINE REDUCES LOADS FROM P SET TO D SET C C ENTRY POINT - FRRD1B C ====== C INTEGER PP,USETD,GMD,GOD,SINGLE,OMIT,PHIDH,PD,PS,PH,PO, 1 SCR1,SCR2,SCR3,SCR4,USET,PN,PNBAR,PM,PF,PDBAR COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE, 1 UD COMMON /PATX / NZ,N1,N2,N3,USET COMMON /ZZZZZZ/ CORE(1) DATA MODA / 4HMODA / C GO TO 5 C C ENTRY FRRD1B (PP,USETD,GMD,GOD,MULTI,SINGLE,OMIT,MODAL,PHIDH, 1 PD,PS,PH,SCR1,SCR2,SCR3,SCR4) C ============================================================= C C SET UP INITIAL VALUES C 5 NZ = KORSZ(CORE) USET = USETD PNBAR = SCR2 PM = SCR3 PN = SCR4 PF = SCR2 PDBAR = SCR3 PO = PH C C REMOVE EACH TYPE OF CONSTRAINT C IF (MULTI .LT. 0) GO TO 10 C C REMOVE MULTIPOINT CONSTRAINTS C IF (SINGLE.LT.0 .AND. OMIT.LT.0) PN = PD CALL CALCV (SCR1,UP,UNE,UM,CORE(1)) CALL SSG2A (PP,PNBAR,PM,SCR1) CALL SSG2B (GMD,PM,PNBAR,PN,1,1,1,SCR1) GO TO 20 C C NO M-S C 10 PN = PP 20 IF (SINGLE .LT. 0) GO TO 30 C C REMOVE SINGLE POINT CONSTRAINTS C IF (OMIT .LT. 0) PF = PD CALL CALCV (SCR1,UNE,UFE,US,CORE(1)) CALL SSG2A (PN,PF,PS,SCR1) GO TO 40 C C NO SINGLE POINT CONSTRAINTS C 30 PF = PN 40 IF (OMIT .LT. 0) GO TO 50 C C REMOVE OMITS C CALL CALCV (SCR1,UFE,UD,UO,CORE(1)) CALL SSG2A (PF,PDBAR,PO,SCR1) CALL SSG2B (GOD,PO,PDBAR,PD,1,1,1,SCR1) GO TO 60 50 PD = PF 60 IF (MODAL .NE. MODA) GO TO 70 C C TRANSFORM TO MODAL COORDINATES C CALL SSG2B (PHIDH,PD,0,PH,1,1,1,SCR1) 70 RETURN END ================================================ FILE: mis/frmax.f ================================================ SUBROUTINE FRMAX(IFK,IFM,N,IPR,RSN,RSM) DIMENSION ZK(1) ,ZM(1) DOUBLE PRECISION RSN ,RSM ,RATIO ,RATINV , 1 DZK(1) ,DZM(1) EQUIVALENCE (DZK(1) ,ZK(1) ),(DZM(1) ,ZM(1) ) COMMON /UNPAKX/ IPRC ,IP ,NP ,INCR IPRC = IPR INCR = 1 RSN = 0.D0 RSM = 0.D0 DO 30 I = 1,N IP = I NP = I CALL UNPACK(*30,IFK,DZK(1)) CALL UNPACK(*30,IFM,DZM(1)) IF(IPR .EQ. 2) GO TO 10 IF (ZK(1).EQ.0.OR.ZM(1).EQ.0) GO TO 30 RATIO = ZK(1) / ZM(1) GO TO 20 10 IF (DZK(1).EQ.0.0D0.OR.DZM(1).EQ.0.0D0) GO TO 30 RATIO = DZK(1)/DZM(1) 20 RATINV = 1.D0 /RATIO IF(RATIO .GT. RSM) RSM = RATIO IF(RATINV .GT. RSN) RSN = RATINV 30 CONTINUE RSN = 1.D0 / RSN RETURN END ================================================ FILE: mis/frmlt.f ================================================ SUBROUTINE FRMLT (IFILE,Z,Y,ZM) C C FEER MATRIX TRANSPOSE MULTIPLY (SINGLE PREC) C T C Y = IFILE * Z WHERE Z IS A VECTOR ALREADY IN CORE C IFILE IS A GINO MATIRX FILE C C LAST REVISED 11/91, BY C.CHAN/UNISYS C ADDITION OF A NEW TRANSPOSE MULTIPLY METHOD WHICH IS MORE C EFFECIENT, AND IS ALREADY GOOD FOR VECTORIZATION C CDB LOGICAL DEBUG REAL Z(1) ,Y(1) ,ZM(1) ,DP ,SUM DIMENSION IFILE(7) ,NAM(2) COMMON /UNPAKX/ ITYP ,IP ,NP ,INCR COMMON /SYSTEM/ IBUF ,NOUT COMMON /FEERXX/ DUM18(18),NZM COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (DP,IDP) DATA NAM / 4HFRML ,4HT / CDB DATA DEBUG , ITER ,MAX / .FALSE. ,0 ,3 / C CDB IF (.NOT.DEBUG) GO TO 20 C ITER = ITER + 1 C IF (ITER .GT. MAX) DEBUG = .FALSE. C IF (DEBUG) WRITE (NOUT,10) NZM,IFILE(5) C 10 FORMAT (' .... IN FRMLT DEBUG. NZM,IFILE(5) =',2I8) C 20 CONTINUE N = IFILE(2) IFL = IFILE(1) IF (IFILE(7) .LT. 0) IFL = -IFILE(7) CALL REWIND (IFL) CALL SKPREC (IFL,1) IF (IFILE(7) .LT. 0) GO TO 50 ITYP = IFILE(5) C C NASTRAN ORIGIANL METHOD C INCR = 1 DO 40 I = 1,N Y(I) = 0.0 IP = 0 CALL UNPACK (*40,IFL,ZM(1)) SUM = 0.0 II = 0 DO 30 J = IP,NP II = II + 1 30 SUM = SUM + ZM(II)*Z(J) Y(I) = SUM 40 CONTINUE GO TO 200 C C NEW METHOD, READ ONLY AND NO UNPACK C C UNLIKE FRMLTA, IFL WAS UNPACKED FORWARD BY UNPSCR C 50 NREC = 0 C NWDS = IFILE(5) CDB N20 = N - 20 C IF (DEBUG) WRITE (NOUT,60) IFILE(5),NZM C 60 FORMAT (' /@60 NWDS,NZM =',2I8) LL2 = 0 NEXT = 1 DO 140 I = 1,N IF (NEXT .LT. LL2) GO TO 100 NREC = NREC + 1 CDB IF (DEBUG) WRITE (NOUT,70) NREC,I C 70 FORMAT (' ...READING RECORD',I5,'. I =',I7) CALL READ (*150,*80,IFL,ZM,NZM,1,LL) CALL MESAGE (-8,0,NAM) C 50 LL2 = LL/NWDS 80 LL2 = LL CDB IF (DEBUG) WRITE (NOUT,90) LL,NREC,LL2 C 90 FORMAT (1X,I10,'WORDS READ FROM RECORD',I5,'. LL2 =',I10) NEXT = 1 100 DP = ZM(NEXT) II = IDP DP = ZM(NEXT+1) JJ = IDP CDB IF (DEBUG .AND. (I.LT.20 .OR. I.GT.N20)) WRITE (NOUT,110) I,II,JJ, C 1 NEXT C 110 FORMAT (' @110 I,II,JJ,NEXT =',4I8) IF (JJ .EQ. II) GO TO 130 SUM = 0.0 LL = NEXT + 1 DO 120 J = II,JJ LL = LL + 1 120 SUM = SUM + ZM(LL)*Z(J) Y(I) = SUM GO TO 140 130 Y(I) = ZM(NEXT+2)*Z(II) 140 NEXT = NEXT + JJ - II + 3 GO TO 200 C 150 J = IFILE(4)/10 WRITE (NOUT,160) NREC,I,N,J 160 FORMAT ('*** TRY TO READ RECORD',I5,'. I,N,IFILE(4) =',2I7,I5) CALL MESAGE (-2,IFL,NAM) C 200 RETURN END ================================================ FILE: mis/frmlta.f ================================================ SUBROUTINE FRMLTA (IFILE,Z,Y,ZM) C C LOWER TRIANGULAR TRANSPOSE WITH OFF-DIAGONAL SWITCH C SINGLE PRECISION VERSION C C LAST REVISED 11/91, BY G.CHAN/UNISYS C ADDITIONAL OF A NEW METHODS WHICH IS MORE EFFICIENT, AND IS C ALREADY GOOD FOR VECTORIZATION C REAL Z(1) ,Y(1) ,ZM(1) DIMENSION IFILE(7),NAM(2) COMMON /UNPAKX/ ITYP ,IP ,NP ,INCR COMMON /FEERXX/ DM18(18),NZM COMMON /ZZZZZZ/ IZ(1) COMMON /SYSTEM/ IBUF ,NOUT EQUIVALENCE (DP,IDP) DATA NAM / 4HFRML ,4HTA / C N = IFILE(2) IFL = IFILE(1) IF (IFILE(7) .LT. 0) IFL = -IFILE(7) CALL REWIND (IFL) IF (IFILE(7) .LT. 0) GO TO 30 CALL SKPREC (IFL,1) ITYP = IFILE(5) C C NASTRAN ORIGINAL METHOD C INCR = 1 DO 20 I = 1,N Y(I) = 0.0 IP = 0 CALL UNPACK (*30,IFL,ZM(1)) IF (IP .EQ. I) ZM(1) = -ZM(1) SUM = 0.0 II = 0 DO 10 J = IP,NP II = II + 1 10 SUM = SUM - ZM(II)*Z(J) Y(I) = SUM 20 CONTINUE GO TO 150 C C NEW METHOD C C UNLIKE FRMLT, IFL WAS UNPACKED BACKWARD FIRST, THEN FORWARD BY C UNPSCR/FEER3. SO WE SKIP BACKWARD PASS BEFORE READING DATA C 30 NREC = IFILE(4)/10 CALL SKPREC (IFL,NREC+1) NREC = 0 LL2 = 0 NTMS = 1 DO 70 I = 1,N IF (NTMS .LT. LL2) GO TO 50 NREC = NREC + 1 CALL READ (*100,*40,IFL,ZM,NZM,1,LL) CALL MESAGE (-8,0,NAM) 40 LL2 = LL NTMS = 1 50 DP = ZM(NTMS) II = IDP IF (II .NE. I) GO TO 120 DP = ZM(NTMS+1) JJ = IDP ZM(NTMS+2) = -ZM(NTMS+2) SUM = 0.0 LL = NTMS + 1 DO 60 J = II,JJ LL = LL + 1 60 SUM = SUM - ZM(LL)*Z(J) Y(I) = SUM 70 NTMS = NTMS + JJ - II + 3 GO TO 150 C 100 J = IFILE(4)/10 WRITE (NOUT,110) NREC,I,N,J 110 FORMAT ('0*** TRY TO READ RECORD',I5,'. I,N,IFILE(4) =',2I7,I5) CALL MESAGE (-2,ILF,NAM) 120 WRITE (NOUT,130) II,I 130 FORMAT ('0*** II AND I MISMATCH =',2I8) CALL MESAGE (-37,0,NAM) C 150 RETURN END ================================================ FILE: mis/frmltd.f ================================================ SUBROUTINE FRMLTD (IFILE,DZ,DY,ZM) C C FEER MATRIX TRANSPOSE MULTIPLY (DOUBLE PREC) C T C DY = IFILE * DZ WHERE DZ IS A VECTOR ALREADY IN CORE C IFILE IS A GINO MATIRX FILE C C LAST REVISED 11/91, BY C.CHAN/UNISYS C ADDITION OF A NEW TRANSPOSE MULTIPLY METHOD WHICH IS MORE C EFFECIENT, AND IS ALREADY GOOD FOR VECTORIZATION C CDB LOGICAL DEBUG DOUBLE PRECISION DZ(1) ,DY(1) ,ZM(1) ,DP ,DSUM DIMENSION IFILE(7) ,IDP(2) ,NAM(2) COMMON /UNPAKX/ ITYP ,IP ,NP ,INCR COMMON /SYSTEM/ IBUF ,NOUT COMMON /FEERXX/ DUM18(18),NZM COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (DP,IDP(1)) DATA NAM / 4HFRML ,4HTD / CDB DATA DEBUG , ITER ,MAX / .FALSE. ,0 ,4 / C CDB IF (.NOT.DEBUG) GO TO 20 C ITER = ITER + 1 C IF (ITER .GT. MAX) DEBUG = .FALSE. C IF (DEBUG) WRITE (NOUT,10) NZM,IFILE(5) C 10 FORMAT (' .... IN FRMLTD DEBUG. NZM,IFILE(5) =',2I8) C 20 CONTINUE N = IFILE(2) IFL = IFILE(1) IF (IFILE(7) .LT. 0) IFL = -IFILE(7) CALL REWIND (IFL) CALL SKPREC (IFL,1) IF (IFILE(7) .LT. 0) GO TO 50 ITYP = IFILE(5) C C NASTRAN ORIGIANL METHOD C INCR = 1 DO 40 I = 1,N DY(I) = 0.0D+0 IP = 0 CALL UNPACK (*40,IFL,ZM(1)) DSUM = 0.0D+0 II = 0 DO 30 J = IP,NP II = II + 1 30 DSUM = DSUM + ZM(II)*DZ(J) DY(I) = DSUM 40 CONTINUE GO TO 200 C C NEW METHOD, READ ONLY AND NO UNPACK C C UNLIKE FRMLTX, IFL WAS UNPACKED FORWARD BY UNPSCR C 50 NREC = 0 NWDS = IFILE(5) CDB N20 = N - 20 C IF (DEBUG) WRITE (NOUT,60) NWDS,NZM C 60 FORMAT (' /@60 NWDS,NZM =',2I8) LL2 = 0 NEXT = 1 DO 140 I = 1,N IF (NEXT .LT. LL2) GO TO 100 NREC = NREC + 1 CDB IF (DEBUG) WRITE (NOUT,70) NREC,I C 70 FORMAT (' ...READING RECORD',I5,'. I =',I7) CALL READ (*150,*80,IFL,ZM,NZM,1,LL) CALL MESAGE (-8,0,NAM) 80 LL2 = LL/NWDS CDB IF (DEBUG) WRITE (NOUT,90) LL,NREC,LL2 C 90 FORMAT (1X,I10,' WORDS READ FROM RECORD NO.',I5,' LL2 =',I10) NEXT = 1 100 DP = ZM(NEXT) II = IDP(1) JJ = IDP(2) CDB IF (DEBUG .AND. (I.LT.20 .OR. I.GT.N20)) WRITE (NOUT,110) I,II,JJ, C 1 NEXT C 110 FORMAT (' @110 I,II,JJ,NEXT =',4I8) IF (II .EQ. JJ) GO TO 130 DSUM = 0.0D+0 LL = NEXT DO 120 J = II,JJ LL = LL + 1 120 DSUM = DSUM + ZM(LL)*DZ(J) DY(I)= DSUM GO TO 140 130 DY(I)= ZM(NEXT+1)*DZ(II) 140 NEXT = NEXT + JJ - II + 2 GO TO 200 C 150 J = IFILE(4)/10 WRITE (NOUT,160) NREC,I,N,J 160 FORMAT ('0*** TRY TO READ RECORD',I5,'. I,N,IFILE(4) =',2I7,I5) CALL MESAGE (-2,IFL,NAM) C 200 RETURN END ================================================ FILE: mis/frmltx.f ================================================ SUBROUTINE FRMLTX (IFILE,DZ,DY,ZM) C C LOWER TRIANGULAR TRANSPOSE WITH OFF-DIAGONAL SWITCH C DOUBLE PRECISION VERSION C C LAST REVISED 11/91, BY G.CHAN/UNISYS C ADDITIONAL OF A NEW METHOD WHICH IS MORE EFFICIENT, AND IS C ALREADY GOOD FOR VECTORIZATION C DOUBLE PRECISION DZ(1) ,DY(1) ,ZM(1) ,DP ,DSUM DIMENSION IFILE(7),IDP(2) ,NAM(2) COMMON /UNPAKX/ ITYP ,IP ,NP ,INCR COMMON /FEERXX/ DM18(18),NZM COMMON /ZZZZZZ/ IZ(1) COMMON /SYSTEM/ IBUF ,NOUT EQUIVALENCE (DP,IDP(1)) DATA NAM / 4HFRML ,4HTX / C N = IFILE(2) IFL = IFILE(1) IF (IFILE(7) .LT. 0) IFL = -IFILE(7) CALL REWIND (IFL) IF (IFILE(7) .LT. 0) GO TO 30 CALL SKPREC (IFL,1) ITYP = IFILE(5) C C NASTRAN ORIGINAL METHOD C INCR = 1 DO 20 I = 1,N DY(I)= 0.0D+0 IP = 0 CALL UNPACK (*30,IFL,ZM(1)) IF (IP .EQ. I) ZM(1) = -ZM(1) DSUM = 0.D0 II = 0 DO 10 J = IP,NP II = II + 1 10 DSUM = DSUM - ZM(II)*DZ(J) DY(I)= DSUM 20 CONTINUE GO TO 150 C C NEW METHOD C C UNLIKE FRMLTD, IFL WAS UNPACKED BACKWARD FIRST, THEN FORWARD BY C UNPSCR/FEER3. SO WE SKIP BACKWARD PASS BEFORE READING DATA C 30 NREC = IFILE(4)/10 CALL SKPREC (IFL,NREC+1) NWDS = IFILE(5) NREC = 0 LL2 = 0 NTMS = 1 DO 70 I = 1,N IF (NTMS .LT. LL2) GO TO 50 NREC = NREC + 1 CALL READ (*100,*40,IFL,ZM,NZM,1,LL) CALL MESAGE (-8,0,NAM) 40 LL2 = LL/NWDS NTMS = 1 50 DP = ZM(NTMS) II = IDP(1) JJ = IDP(2) IF (II .NE. I) GO TO 120 ZM(NTMS+1) = -ZM(NTMS+1) DSUM = 0.0D+0 LL = NTMS DO 60 J = II,JJ LL = LL + 1 60 DSUM = DSUM - ZM(LL)*DZ(J) DY(I)= DSUM 70 NTMS = NTMS + JJ - II + 2 GO TO 150 C 100 J = IFILE(4)/10 WRITE (NOUT,110) NREC,I,N,J 110 FORMAT ('0*** TRY TO READ RECORD',I5,'. I,N,IFILE(4) =',2I7,I5) CALL MESAGE (-2,IFL,NAM) 120 WRITE (NOUT,130) II,I 130 FORMAT ('0*** II AND I MISMATCH =',2I8) CALL MESAGE (-37,0,NAM) C 150 RETURN END ================================================ FILE: mis/frr1a1.f ================================================ SUBROUTINE FRR1A1 (RZ,CZ,IB,REB,CEB) C COMPLEX Z,SUM,ZK,TERM C Z = CMPLX(RZ,CZ) IF (CABS(Z) .LT. .1) GO TO 100 ZK = CMPLX(1.,0.) N = IB BF = 1. BF1 = 0. SUM = CMPLX(0.,0.) DO 10 I = 1,N SUM = SUM + ZK/CMPLX(BF,0.) ZK = ZK*Z BF1 = BF1 + 1. BF = BF*BF1 10 CONTINUE ZK = CMPLX(BF,0.)/ZK*(CEXP(Z)-SUM) REB = REAL(ZK) CEB = AIMAG(ZK) RETURN C 100 CONTINUE ZK = Z DEN = FLOAT(IB) + 1. SUM = CMPLX(1.,0.) DO 20 I = 1,30 TERM= ZK/DEN SUM = SUM + TERM IF (CABS(TERM) .LT. 1.E-9) GO TO 200 ZK = ZK*Z DEN = DEN*(FLOAT(IB)+ FLOAT(I+1)) 20 CONTINUE 200 REB = REAL(SUM) CEB = AIMAG(SUM) RETURN END ================================================ FILE: mis/frrd.f ================================================ SUBROUTINE FRRD C C FREQUENCY AND RANDOM RESPONSE MODULE C C INPUTS CASECC,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,PHIDH,DIT C C OUTPUTS UDV,PS,PD,PP C C 8 SCRATCHES C INTEGER SINGLE,OMIT,CASECC,USETD,DLT,FRL,GMD,GOD,BDD, 1 PHIDH,DIT,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8, 2 UDV,PS,PD,PP,PDD,FOL,NAME(2),MCB(7) COMMON /BLANK / APP(2),MODAL(2),LUSETD,MULTI,SINGLE,OMIT, 1 NONCUP,FRQSET COMMON /FRRDST/ OVF(150),ICNT,IFRST,ITL(3),IDIT,IFRD,K4DD COMMON /CDCMPX/ DUM32(32),IB,IBBAR DATA CASECC, USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,PHIDH,DIT / 1 101 , 102, 103,104,105,106,107,108,109,110, 111 / DATA UDV , PS, PD, PP ,PDD,FOL / 1 201 , 202,203,204,203,205 / DATA SCR1 , SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8 / 1 301 , 302, 303, 304, 305, 306, 307, 308 / DATA MODA / 4HMODA /, NAME /4HFRRD,4H / C PDD = 203 SCR6 = 306 IB = 0 C C BUILD LOADS ON P SET ORDER IS ALL FREQ. FOR LOAD TOGETHER C FRRD1A IS AN ENTRY POINT IN FRLGA C CALL FRRD1A (DLT,FRL,CASECC,DIT,PP,LUSETD,NFREQ,NLOAD,FRQSET,FOL, 1 NOTRD) IF (MULTI.LT.0 .AND. SINGLE.LT.0 .AND. OMIT.LT.0 .AND. 1 MODAL(1).NE. MODA) GO TO 60 C C REDUCE LOADS TO D OR H SET C FRRD1B IS AN ENTRY POINT IN FRLGB C CALL FRRD1B (PP,USETD,GMD,GOD,MULTI,SINGLE,OMIT,MODAL(1),PHIDH,PD, 1 PS,SCR5,SCR1,SCR2,SCR3,SCR4) C C SCR5 HAS PH IF MODAL FORMULATION C IF (MODAL(1) .EQ.MODA) PDD = SCR5 C C SOLVE PROBLEM FOR EACH FREQUENCY C IF (NONCUP.LT.0 .AND. MODAL(1).EQ.MODA) GO TO 50 10 IF (NFREQ.EQ.1 .OR. NLOAD.EQ.1) SCR6 = UDV DO 20 I = 1,NFREQ CALL KLOCK (ITIME1) C C FORM AND DECOMPOSE MATRICES C IF MATRIX IS SINGULAR, IGOOD IS SET TO 1 IN FRRD1C. ZERO OTHERWISE C CALL FRRD1C (FRL,FRQSET,MDD,BDD,KDD,I,SCR1,SCR2,SCR3,SCR4,SCR8, 1 SCR7,IGOOD) C C ULL IS ON SCR1 -- LLL IS IN SCR2 C C SOLVE FOR PD LOADS STACK ON SCR6 C CALL FRRD1D (PDD,SCR1,SCR2,SCR3,SCR4,SCR6,I,NLOAD,IGOOD,NFREQ) CALL KLOCK (ITIME2) CALL TMTOGO (ITLEFT) IF (2*(ITIME2-ITIME1) .GT. ITLEFT .AND. I.NE.NFREQ) GO TO 70 20 CONTINUE C I = NFREQ 30 IF (NFREQ.EQ.1 .OR. NLOAD.EQ.1) GO TO 40 C C RESORT SOLUTION VECTORS INTO SAME ORDER AS LOADS C FRRD1E IS AN ENTRY POINT IN FRRD1D C CALL FRRD1E (SCR6,UDV,NLOAD,I) 40 RETURN C C UNCOUPLED MODAL C 50 CALL FRRD1F (MDD,BDD,KDD,FRL,FRQSET,NLOAD,NFREQ,PDD,UDV) GO TO 40 60 PDD = PP GO TO 10 C C INSUFFICIENT TIME TO COMPLETE ANOTHER LOOP C 70 CALL MESAGE (45,NFREQ-I,NAME) MCB(1) = SCR6 CALL RDTRL (MCB(1)) NDONE = MCB(2) MCB(1) = PP CALL RDTRL (MCB(1)) MCB(2) = NDONE CALL WRTTRL (MCB(1)) IF (SINGLE .LT. 0) GO TO 80 MCB(1) = PS CALL RDTRL (MCB(1)) MCB(2) = NDONE CALL WRTTRL (MCB(1)) 80 MCB(1) = PD CALL RDTRL( MCB(1)) MCB(2) = NDONE CALL WRTTRL (MCB(1)) GO TO 30 END ================================================ FILE: mis/frrd1c.f ================================================ SUBROUTINE FRRD1C (FRL,FRQSET,MDD,BDD,KDD,IFR,ULL,LLL,SCR1,SCR2, 1 SCR3,SCR4,IGOOD) C (A) (B) (C) C THIS ROUTINE FORMS AND DECOMPOSES KDD + I*W*BDD - W**2*MDD C WHERE W = OMEGA, CYCLIC FREQ. AND I = SQUARE ROOT MINUS ONE C C THE DECOMPOSITION ROUTINES ARE CALLED ACCORDING TO THE FOLLOWING C TABLE AS DETERMINED BY THE MATRIX RESULTING FROM THE ADDITION C C IF MATRIX IS COMPLEX SYMMETRIC CALL SDCOMP C UNSYMMETRIC CALL CDCOMP C REAL SYMMETRIC CALL SDCOMP C UNSYMMETRIC CALL DECOMP C INTEGER FA,FL,SCR1,SCR2,FRL,FU,FRQ SET,BDD,ULL,LLL,SR1, 1 SR2,SCR3,SYSBUF,SCR4,SR3,CHLSKY,NAME(2), 2 MCORE(1),ICORE(1) DOUBLE PRECISION DET,MINDA,AMCB(2),BMCB(2),CMCB(2),DDR,DDC,MINDD, 1 DETT CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ KSYSTM(63) COMMON /CDCMPX/ FA(7),FL(7),FU(7),SR1,SR2,SR3,DET(2),POWR,NX, 1 MINDA,IB,IBBAR COMMON /DCOMPX/ IA(7),IL(7),IU(7),ISCR1,ISCR2,ISCR3,DETT,IPOW, 1 NY,MINDIA,IIB,IIBB,ICBR(3) COMMON /SFACT / MFA(7),MFL(7),MFC(7),M1FIL,M2FIL,MXX,DDR,DDC, 1 POWER,M3FIL,MINDD,CHLSKY COMMON /SADDX / NOMAT,LCORE,MCBA(12),MCBB(12),MCBC(12),MCBD(12), 1 MCBE(12),MX(7) COMMON /ZZZZZZ/ CORE(1) EQUIVALENCE (MCORE(1),CORE(1)) EQUIVALENCE (ICORE(1),CORE(1)) EQUIVALENCE (AMCB(1),MCBA(9)),(BMCB(1),MCBB(9)), 1 (CMCB(1),MCBC(9)),(KSYSTM(2),NOUT) EQUIVALENCE (KSYSTM(1),SYSBUF),(KSYSTM(55),IPREC) DATA NAME / 4HFRRD,4H1C / C C NX = KORSZ(CORE) NZ = NX - SYSBUF C C PICK UP CURRENT FREQUENCY C CALL GOPEN (FRL,CORE(NZ+1),0) CALL SKPREC (FRL,FRQSET-1) CALL FREAD (FRL,CORE,IFR,1) W = CORE(IFR) CALL CLOSE (FRL,1) C C ADD MATRICES TOGETHER C MCBA(1) = KDD MCBB(1) = BDD MCBC(1) = MDD CALL RDTRL (MCBA) CALL RDTRL (MCBB) CALL RDTRL (MCBC) IF (MCBA(1).GT.0 .AND. MCBC(1).GT.0) GO TO 20 WRITE (NOUT,10) UFM 10 FORMAT (A23,', EITHER STIFFNESS MATRIX OR MASS MATRIX IS MISSING') CALL MESAGE (-37,0,NAME) C 20 MCBA(8) = 2 MCBB(8) = 4 MCBC(8) = 2 AMCB(1) = 1.0D0 AMCB(2) = 0.0D0 BMCB(1) = 0.0D0 BMCB(2) = W CMCB(1) =-W*W CMCB(2) = 0.0D0 IF (MCBB(1) .GT. 0) GO TO 30 C C NO BDD TO BE ADDED C MCBB(1) = 0 MCBB(8) = 0 BMCB(2) = 0.0D0 C 30 MX(1) = SCR3 MX(2) = MCBA(2) MX(3) = MCBA(3) MX4A = 6 MX4B = 6 MX4C = 6 IF (MCBA(1) .GT. 0) MX4A = MCBA(4) IF (MCBB(1) .GT. 0) MX4B = MCBB(4) IF (MCBC(1) .GT. 0) MX4C = MCBC(4) MX(4) = MIN0(MX4A,MX4B,MX4C) MX(5) = 2 + IPREC IF (MCBA(1).GT.0 .AND. MCBA(5).GT.2) GO TO 40 IF (MCBB(1) .GT. 0) GO TO 40 IF (MCBC(1).GT.0 .AND. MCBC(5).GT.2) GO TO 40 MX(5) = IPREC 40 CONTINUE LCORE = NX NOMAT = 3 CALL SADD (CORE,CORE) CALL WRTTRL (MX) C C SET UP TO DECOMPOSE MATRICES C FA(1) = SCR3 CALL RDTRL (FA) IGOOD = 1 IF (FA(4) .EQ. 6) GO TO 120 IF (FA(5) .LE. 2) GO TO 150 FL(1) = LLL FU(1) = ULL DO 50 I = 2,7 FL(I) = FA(I) FU(I) = FA(I) 50 CONTINUE FL(4) = 4 FU(4) = 5 SR1 = SCR1 SR2 = SCR2 SR3 = SCR4 CALL CDCOMP (*100,CORE(1),CORE(1),CORE(1)) IGOOD = 0 CALL WRTTRL (FL) CALL WRTTRL (FU) C C FORCE RE-EVALUATION OF DECOMP PARAM IF W = 0.0 C 60 IF (W .NE. 0.0) GO TO 70 IB = 0 IBBAR = 0 70 RETURN C C MATRIX SINGULR C 100 I = 5 IF (W .NE. 0.0) I = -5 CALL MESAGE (I,SCR3,NAME) GO TO 60 C C USE SDCOMP TO PERFORM DECOMPOSITION C 120 MFA(1) = SCR3 MFL(1) = LLL MFC(1) = ULL DO 130 I = 2,7 MFA(I) = FA(I) MFL(I) = FA(I) MFC(I) = FA(I) 130 CONTINUE MFL(4) = 4 M1FIL = SCR1 M2FIL = SCR2 M3FIL = SCR4 MXX = KORSZ(MCORE) CHLSKY = 0 CALL SDCOMP (*100,MCORE,MCORE,MCORE) IGOOD = 0 C C DIRECTION FOR FRRD1D TO USE FBS RATHER THAN GFBS C ULL = -IABS(ULL) C CALL WRTTRL (MFL) GO TO 60 C C USE DECOMP TO PERFORM DECOMPOSITION C 150 IA(1) = SCR3 IL(1) = LLL IU(1) = ULL DO 160 I = 2,7 IA(I) = FA(I) IL(I) = FA(I) IU(I) = FA(I) 160 CONTINUE IL(4) = 4 IU(4) = 5 ISCR1 = SCR1 ISCR2 = SCR2 ISCR3 = SCR4 NY = KORSZ(ICORE) CALL DECOMP (*100,ICORE,ICORE,ICORE) CALL WRTTRL (IL) CALL WRTTRL (IU) IGOOD = 0 RETURN END ================================================ FILE: mis/frrd1d.f ================================================ SUBROUTINE FRRD1D (PD,ULL,LLL,SCR1,SCR2,UDV,IFR,NLOAD,IGOOD,NFREQ) C C ROUTINE SOLVES FOR UDV GIVEN ULL,LLL, AND PD C C IF IGOOD = 1 DCOMP FAILED -- PUT ZERO SOLUTION VECTORS OUT C C 1. PULL LOADS FROM PD ONTO SCR1 C 2. SOLVE FOR UDV-S ON SCR2 C 3. STACK SOLVED LOADS ON UDV C INTEGER SYSBUF,PD,ULL,LLL,SCR1,SCR2,UDV,FL,FU,FB,FX,PREC, 1 FILE,ICORE(1),UDV1,MCB(7),NAME(2),MCORE(1) COMMON /MACHIN/ MACH COMMON /UNPAKX/ IT1,II,JJ,INCR COMMON /PACKX / IT2,IT3,II1,JJ1,INCR1 COMMON /SYSTEM/ KSYSTM(65) COMMON /GFBSX / FL(7),FU(7),FB(7),FX(7),NX,PREC,ISIGN COMMON /FBSX / MFL(7),MFLT(7),MFB(7),MFX(7),MX,MPREC,MSIGN,ISCRX COMMON /ZZZZZZ/ CORE(1) EQUIVALENCE (KSYSTM(1),SYSBUF),(KSYSTM(55),IPREC), 1 (CORE(1),ICORE(1),MCORE(1)) DATA NAME / 4HFRRD,4H1D /, IC / 0 / C NX = KORSZ(CORE) FB(1) = PD CALL RDTRL (FB) FX(1) = SCR2 IF (IFR .EQ. 1) FX(1) = UDV FX(2) = NLOAD FX(3) = FB(3) FX(4) = 2 FX(5) = 2 + IPREC IT1 = FB(5) INCR = 1 INCR1 = 1 IT2 = IT1 IT3 = 2 + IPREC IF (IGOOD .EQ. 1) GO TO 98 C C PULL LOADS FROM PD ONTO SCR1 C FU(1) = ULL CALL RDTRL (FU) FL(1) = LLL CALL RDTRL (FL) IF (NFREQ .EQ. 1) GO TO 30 NZ = NX - SYSBUF CALL GOPEN (PD,CORE(NZ+1),0) CALL SKPREC (PD,IFR-1) NZ = NZ - SYSBUF CALL GOPEN (SCR1,CORE(NZ+1),1) CALL MAKMCB (MCB,SCR1,FB(3),2,IT3) DO 10 I = 1,NLOAD IF (I .GT. 1) CALL SKPREC (PD,NFREQ-1) II = 0 CALL UNPACK (*28,PD,CORE) II1 = II JJ1 = JJ 22 CALL PACK (CORE,SCR1,MCB) GO TO 10 28 CORE( 1) = 0 CORE(IC+2) = 0 CORE(IC+3) = 0 CORE(IC+4) = 0 II1 = 1 JJ1 = 1 GO TO 22 10 CONTINUE CALL WRTTRL (MCB) CALL CLOSE (PD,1) CALL CLOSE (SCR1,1) C C SET UP FOR GFBS C FB(1) = SCR1 30 FB(2) = NLOAD CALL WRTTRL (FB) PREC = 1 IF (FB(5).EQ.2 .OR. FB(5).EQ.4) PREC = 2 ISIGN = 1 IF (FU(1) .LT. 0) GO TO 40 CALL GFBS (CORE,CORE) CALL WRTTRL (FX) GO TO 98 C C SET UP FOR FBS C 40 DO 41 I = 1,7 MFL(I) = FL(I) C C FBS DOES NOT USE THE MATRIX CONTROL BLOCK MFLT. C IF MFLT(1) EXISTS, SET ISCRX = MFLT(1) FILE FOR NEW FBS METHOD. C OTHERWISE SET ISCRX = 0, AND WE DO NOT HAVE A SCRATCH FILE FOR C NEW FBS. OLD FBS WILL BE USED. C MFB(I) = FB(I) MFX(I) = FX(I) 41 CONTINUE MPREC = PREC MSIGN = ISIGN MX = KORSZ(MCORE) ISCRX = MFLT(1) MCORE(1) = MFLT(1) CALL RDTRL (MCORE(1)) IF (MCORE(1) .LE. 0) ISCRX = 0 CALL FBS (MCORE,MCORE) CALL WRTTRL (MFX) 98 ICORE(1) = 16777215 C 16777215 = '00FFFFFF'X IFLAG = 1 C C STACK LOADS ONTO UDV C FILE = UDV NZ = NX-SYSBUF IF (IFR .EQ. 1) GO TO 300 CALL OPEN (*900,UDV,CORE(NZ+1),0) FX(1) = UDV CALL RDTRL (FX) IF (MACH .NE. 1) GO TO 60 50 CALL FWDREC (*51,UDV) GO TO 50 51 CALL BCKREC (UDV) CALL SKPREC (UDV,1) GO TO 61 60 CALL SKPFIL (UDV,1) CALL SKPFIL (UDV,-1) 61 CALL CLOSE (UDV,2) CALL OPEN (*900,UDV,CORE(NZ+1),3) C C RESET TYPE FLAGS C IT1 = FX(5) IT2 = IT1 IT3 = IT1 IF (IGOOD .EQ. 1) GO TO 101 NZ = NZ - SYSBUF CALL GOPEN (SCR2,CORE(NZ+1),0) 101 DO 55 I = 1,NLOAD IF (IGOOD .EQ. 1) GO TO 54 II = 0 CALL UNPACK (*54,SCR2,CORE) II1 = II JJ1 = JJ 53 CALL PACK (CORE,UDV,FX) GO TO 55 54 CORE( 1) = 0 CORE(IC+2) = 0 CORE(IC+3) = 0 CORE(IC+4) = 0 II1 = 1 JJ1 = 1 GO TO 53 55 CONTINUE CALL CLOSE (UDV,1) IF (IGOOD .EQ. 1) GO TO 56 CALL CLOSE (SCR2,1) 56 CONTINUE CALL WRTTRL (FX) 350 RETURN C 300 IF (IGOOD .NE. 1) GO TO 350 CALL GOPEN (UDV,CORE(NZ+1),1) FX(2) = 0 FX(6) = 0 FX(7) = 0 CALL WRTTRL (FX) GO TO 101 C C ERROR MESAGES C 900 CALL MESAGE (-1,FILE,NAME) C C ENTRY FRRD1E (UDV1,UDV,NLOAD,NFREQ) C =================================== C NZ = KORSZ(CORE) - SYSBUF C C ROUTINE REORDERS SOLUTIONS TO GET SORT BY LOADS C FILE = UDV1 CALL OPEN (*900,UDV1,CORE(NZ+1),0) NZ = NZ - SYSBUF CALL GOPEN (UDV,CORE(NZ+1),1) FILE = UDV1 DO 400 I = 1,NLOAD CALL SKPREC (UDV1,I) DO 500 M = 1,NFREQ II = 0 CALL UNPACK (*420,UDV1,CORE) II1 = II JJ1 = JJ 421 CALL PACK (CORE,UDV,MCB) GO TO 422 420 CORE( 1) = 0 CORE(IC+2) = 0 CORE(IC+3) = 0 CORE(IC+4) = 0 II1 = 1 JJ1 = 1 GO TO 421 422 IF (M .LT. NFREQ) CALL SKPREC (UDV1,NLOAD-1) 500 CONTINUE CALL REWIND (UDV1) 400 CONTINUE CALL CLOSE (UDV1,1) CALL CLOSE (UDV,1) FX(1) = UDV1 CALL RDTRL (FX) FX(1) = UDV CALL WRTTRL (FX) RETURN END ================================================ FILE: mis/frrd1f.f ================================================ SUBROUTINE FRRD1F (MHH,BHH,KHH,FRL,FRQSET,NLOAD,NFREQ,PH,UHV) C C ROUTINE SOLVES DIRECTLY FOR UNCOUPLED MODAL FORMULATION C INTEGER BHH,FRL,FRQSET,PH,UHV,SYSBUF,FILE,MCB(7),NAME(2) COMMON /SYSTEM/ SYSBUF COMMON /ZBLPKX/ B(4),JJ COMMON /ZNTPKX/ A(4),II,IEOL,IEOR COMMON /ZZZZZZ/ CORE(1) DATA NAME / 4HFRRD,4H1F / C C IBUF1 = KORSZ(CORE) - SYSBUF + 1 C C PICK UP FREQUENCY LIST C CALL GOPEN (FRL,CORE(IBUF1),0) CALL SKPREC (FRL,FRQSET-1) IF (IBUF1-1 .LT. NFREQ) GO TO 170 CALL FREAD (FRL,CORE,NFREQ,1) CALL CLOSE (FRL,1) C C BRING IN MODAL MATRICES C IMHH = NFREQ MCB(1) = MHH CALL RDTRL (MCB) LHSET = MCB(2) IF (IBUF1-1 .LT. NFREQ+3*LHSET) GO TO 170 IBHH = IMHH + LHSET IKHH = IBHH + LHSET C C BRING IN MHH C MATNAM = MHH ASSIGN 30 TO IRET IPNT = IMHH GO TO 110 C C BRING IN BHH C 30 MATNAM = BHH ASSIGN 40 TO IRET IPNT = IBHH GO TO 110 C C BRING IN KHH C 40 MATNAM = KHH ASSIGN 50 TO IRET IPNT = IKHH GO TO 110 C C READY LOADS C 50 CALL GOPEN (PH,CORE(IBUF1),0) C C READY SOLUTIONS C IBUF2 = IBUF1 - SYSBUF CALL GOPEN (UHV,CORE(IBUF2),1) CALL MAKMCB (MCB,UHV,LHSET,2,3) C C COMPUTE SOLUTIONS C DO 100 I = 1,NLOAD DO 90 J = 1,NFREQ C C PICK UP FREQ C W = CORE(J) W2 = -W*W CALL BLDPK (3,3,UHV,0,0) CALL INTPK (*80,PH,0,3,0) 60 IF (IEOL) 80,70,80 70 CALL ZNTPKI C C COMPUTE REAL AND COMPLEX PARTS OF DENOMINATOR C IK = IKHH + II IB = IBHH + II IM = IMHH + II RDEM = W2*CORE(IM) + CORE(IK) CDEM = CORE(IB)*W CIBMD DEM = RDEM*RDEM + CDEM*CDEM CIBMR IF (DEM .NE. 0.0) GO TO 71 IF (RDEM.NE.0.0 .OR. CDEM.NE.0.0) GO TO 71 CALL MESAGE (5,J,NAME) B(1) = 0.0 B(2) = 0.0 GO TO 72 71 CONTINUE C C COMPUTE REAL AND COMPLEX PHI-S C CIBMD B(1) = (A(1)*RDEM + A(2)*CDEM)/DEM CIBMD B(2) = (A(2)*RDEM - A(1)*CDEM)/DEM CIBMNB IF (RDEM .EQ. 0.0) GO TO 715 RATIO = CDEM/RDEM FACTR = 1.0 / (RDEM + RATIO*CDEM) B(1) = (A(1) + A(2)*RATIO) * FACTR B(2) = (A(2) - A(1)*RATIO) * FACTR GO TO 72 715 RATIO = RDEM/CDEM FACTR = 1.0 / (RATIO*RDEM + CDEM) B(1) = (A(1)*RATIO + A(2)) * FACTR B(2) = (A(2)*RATIO - A(1)) * FACTR CIBMNE 72 JJ = II CALL ZBLPKI GO TO 60 C C END COLUMN C 80 CALL BLDPKN (UHV,0,MCB) 90 CONTINUE 100 CONTINUE CALL CLOSE (UHV,1) CALL CLOSE (PH,1) CALL WRTTRL (MCB) RETURN C C INTERNAL SUBROUTINE TO BRING IN H MATRICES C 110 FILE = MATNAM CALL OPEN (*132,MATNAM,CORE(IBUF1),0) CALL SKPREC (MATNAM,1) DO 130 I = 1,LHSET IPNT = IPNT + 1 CALL INTPK (*120,MATNAM,0,1,0) CALL ZNTPKI IF (II.NE.I .OR. IEOL.NE.1) GO TO 180 CORE(IPNT) = A(1) GO TO 130 C C NULL COLUMN C 120 CORE(IPNT) = 0.0 130 CONTINUE CALL CLOSE (MATNAM,1) 131 GO TO IRET, (30,40,50) C C ZERO CORE FOR PURGED MATRIX C 132 DO 133 I = 1,LHSET IPNT = IPNT + 1 CORE(IPNT) = 0.0 133 CONTINUE GO TO 131 C C ERROR MESAGES C 150 CALL MESAGE (IP1,FILE,NAME) 170 IP1 = -8 GO TO 150 180 IP1 = -7 GO TO 150 END ================================================ FILE: mis/frrd2.f ================================================ SUBROUTINE FRRD2 C C AEROELASTIC FREQUENCY RESPONSE SOLUTION MODULE C C INPUTS KHH,BHH,MHH,QHHL,PHF,FOL C C OUTPUT UHVF C C SCRATCHES NINE C C PARAMETERS BOV - REAL - INPUT C Q - REAL - INPUT C M - REAL - INPUT C C COMMON FRD2BC WILL BE USED BY ROUTINES FRD2B AND FRD2C. C INTEGER BHH,QHHL,PHF,FOL,UHVF, 1 SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,SCR9, 2 SYSBUF,IZ(1),MCB(7),NAME(2),PASS,ITAB(5) REAL M,ZZZ(1) COMPLEX A1,A2,A3,A4,A5 COMMON /CONDAS/ PHI,TWOPI COMMON /FRRDST/ OVF(150),ICNT,IFRST COMMON /BLANK / BOV,Q,M COMMON /SYSTEM/ SYSBUF COMMON /CDCMPX/ DUMM32(32),IB COMMON /FRD2BC/ IH,IPFRDC COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (ZZZ(1),Z(1)) EQUIVALENCE (IZ(1) ,Z(1)) DATA KHH ,BHH ,MHH ,QHHL,PHF ,FOL, UHVF/ 1 101 ,102 ,103 ,104 ,105 ,106, 201 / DATA SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,SCR9/ 1 301 ,302 ,303 ,304 ,305 ,306 ,307 ,308 ,309 / DATA NAME / 4HFRRD,4H2 / C DATA PASS / 0 / C C SETUP C SCR9 = 309 PASS = 0 IB = 0 IH = 0 IPFRDC = 0 NZ = KORSZ(Z) IBUF1 = NZ - SYSBUF - 1 NZ = NZ - SYSBUF NONCUP = 1 MCB(1) = QHHL CALL RDTRL (MCB) IF (MCB(1).LE.0 .OR. Q.EQ.0.0) NONCUP = -1 C C IF QHHL IS PURGED AND MACH NUMBER IS NEGATIVE, THE COUPLED EQU. C (-M*W**2 + IW*B + K)*U = P IS SOLVED. COMPLEX D.P. IS USED. C THE VARIABLE IH WILL BE USED TO CONTROL SOLUTION LOGIC IN C ROUTINES FRRD2, FRD2B AND FRD2C. C IF (MCB(1).LE.0 .AND. M.LT.0.0) NONCUP = 1 C MCB(1) = PHF CALL RDTRL (MCB) I = PHF IF (MCB(1) .LT. 0) GO TO 920 I = FOL CALL OPEN (*920,FOL,IZ(IBUF1),0) CALL READ (*910,*10,FOL,IZ,2,0,NFREQ) CALL READ (*910,*10,FOL,IZ,NZ,0,NFREQ) CALL MESAGE (-8,0,NAME) 10 CONTINUE CALL CLOSE (FOL,1) NLOAD = MCB(2)/NFREQ IF (NONCUP .EQ. -1) GO TO 200 IF (NFREQ.EQ.1 .OR. NLOAD.EQ.1) SCR9 = UHVF ICNT = 0 IFRST = 0 C C BUILD INTERPOLATION MATRIX - ON SCR1 C CALL FRD2I (IZ(1),NFREQ,NZ+SYSBUF,QHHL,SCR1,SCR2,SCR3,SCR4,IH) NTO = 0 IHH = MCB(3) ICOR = KORSZ(ZZZ) - 6*SYSBUF - 3 NCORE= 2*(IH*IH + 2*(IHH*NLOAD)) + 50 ICOR = ICOR - NCORE C C IF IH = 0, COMPLEX D.P. COMPUTATION WILL BE USED. NOTICE THAT THE C ROUTINE INCORE IS WRITTEN ONLY FOR COMPLEX S.P. OPERATION. C IF (IH.EQ.0 .OR. ICOR.LT.500) GO TO 20 NTO = 1 ITAB(1) = MHH ITAB(2) = BHH ITAB(3) = KHH ITAB(4) = PHF ITAB(5) = SCR1 IHH = 4 IF (IH .NE. 0) IHH = 5 CALL OPEN (*21,MHH,IZ(IBUF1),0) 21 CALL CLOSE (MHH,1) CALL OPEN (*22,BHH,IZ(IBUF1),0) 22 CALL CLOSE (BHH,1) CALL OPEN (*23,KHH,IZ(IBUF1),0) 23 CALL CLOSE (KHH,1) CALL OPEN (*24,PHF,IZ(IBUF1),0) 24 CALL CLOSE (PHF,1) 20 CONTINUE C C LOOP ON FREQUENCY C DO 40 I = 1,NFREQ C C PICK UP FREQUENCY C IF (I .LE. ICNT+IFRST-1) GO TO 30 CALL GOPEN (FOL,IZ(IBUF1),0) CALL BCKREC (FOL) CALL FREAD (FOL,OVF,-(I-1)-2,0) ICNT = MIN0(150,NFREQ-I+1) CALL FREAD (FOL,OVF,ICNT,0) IFRST = I CALL CLOSE (FOL,1) 30 CONTINUE K = I - IFRST + 1 W = OVF(K)*TWOPI IF (IH .EQ. 0) GO TO 35 C C INTERPOLATE QHHL C CALL FRD2A (SCR1,SCR2,SCR3,IH,I) GO TO 38 35 CONTINUE C C CREATE NULL TRAILERS FOR SCR2 (QHR) AND SCR3 (QHI) IF IH = 0. C (THESE DATA BLOCKS ARE NORMALLY GENERATED BY FRD2A IF IH .NE. 0. C SINCE FRD2A IS NOT EXECUTED WHEN IH = 0, AND SINCE SCR2 AND SCR3 C ARE ALSO USED BY FRD2C, WE NEED TO CLEAR THE TRAILERS.) C CALL MAKMCB (MCB,SCR2,0,0,0) CALL WRTTRL (MCB) MCB(1) = SCR3 CALL WRTTRL (MCB) C 38 CONTINUE C C FOR DYNAMIC MATRIX C A1 = CMPLX(-W*W,0.0) A2 = CMPLX(0.0,W) A3 = CMPLX(0.0,-W*Q*BOV) A4 = CMPLX(1.0,0.0) A5 = CMPLX(-Q,0.0) CALL FRD2B (MHH,A1,BHH,A2,SCR3,A3,KHH,A4,SCR2,A5,SCR4) C C DECOMPOSE SCR4 AND SOLVE C CALL FRD2C (SCR4,PHF,SCR7,SCR2,SCR3,SCR5,SCR6,SCR8,NLOAD,I) C C COPY TO TEMPORARY UHVF C CALL FRD2D (SCR7,SCR9,PASS) PASS = PASS + 1 40 CONTINUE IF (NFREQ.EQ.1 .OR. NLOAD.EQ.1) GO TO 100 CALL FRD2E (SCR9,UHVF,NLOAD,NFREQ) C C FORM FINAL ANSWER C 100 RETURN C C UNCOUPLED MODAL C 200 CONTINUE C C THE FREQUENCIES FOL (ALREADY IN IZ ARRAY) IS CONVERTED FROM CPS C TO RADIAN UNITS (FRL), AND SAVED IN SCR1. NO TRAILER NEEDED. C CALL GOPEN (SCR1,IZ(IBUF1),1) DO 210 I = 1,NFREQ Z(I) = Z(I)*TWOPI 210 CONTINUE CALL WRITE (SCR1,Z,NFREQ,1) CALL CLOSE (SCR1,1) CALL FRD2F (MHH,BHH,KHH,SCR1,1,NLOAD,NFREQ,PHF,UHVF) GO TO 100 910 CALL MESAGE (-3,FOL,NAME) 920 CALL MESAGE (-1,I,NAME) RETURN END ================================================ FILE: mis/frsw.f ================================================ SUBROUTINE FRSW (V1,V2,V3,VB) C C LAST REVISED 11/91, BY G.CHAN/UNISYS C ADDITION OF A NEW FORWARD-BACKWARD SUBSTITUTION METHOD, WHICH IS C MORE EFFICIENT, AND IS ALREADY GOOD FOR VECTORIZATION. C CDB LOGICAL DEBUG INTEGER NAM(6) ,IBLK(15),BASE REAL V1(1) ,V2(1) ,V3(1) ,VB(1) ,XL(1) ,XLJJ , 1 V3J ,ZERO ,SUM COMMON /OPINV / MCBLT(7),MCBSMA(7) COMMON /SYSTEM/ KSYSTM ,IO COMMON /FEERXX/ DUMM(18),NZVB COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (XL(1),IZ(1)) EQUIVALENCE (LJJ,XLJJ) ,(L16,DUMM(6)) DATA NAM / 4HFRSW ,4H ,2*4HBEGN,4HEND ,4HBGIN / DATA ZERO / 0.0 / CDB DATA DEBUG , ITER ,MAX / .FALSE. ,0 ,3 / C CDB IF (.NOT.DEBUG) GO TO 20 C ITER = ITER + 1 C IF (ITER .GT. MAX) DEBUG = .FALSE. C WRITE (IO,10) NZVB,ITER C 10 FORMAT (' .... IN FRSW2. NZVB =',I8,', ITER =',I3) C 20 CONTINUE NROW = MCBLT(2) CALL FRMLT (MCBSMA(1),V1(1),V3(1),VB(1)) IF (MCBLT(7) .LT. 0) GO TO 200 C C NASTRAN ORIGINAL METHOD C IBLK( 1) = MCBLT(1) IBLK( 9) = 1 IBLK(10) = 1 CALL REWIND (MCBLT) CALL SKPREC (MCBLT,1) C C FORWARD SWEEP DIRECTLY ON V3 C DO 80 J = 1,NROW IBLK(8) = -1 30 CALL GETSTR (*70,IBLK(1)) JI = IBLK(5) NTMS = IBLK(6) IK = IBLK(4) IF (IK .NE. J) GO TO 40 NTMS = NTMS - 1 XLJJ = XL(JI) JI = JI + 1 IK = IK + 1 40 IF (NTMS .EQ. 0) GO TO 60 V3J = V3(J) IF (V3J .EQ. ZERO) GO TO 60 DO 50 II = 1,NTMS V3(IK) = V3(IK) + XL(JI)*V3J IK = IK + 1 JI = JI + 1 50 CONTINUE 60 CALL ENDGET (IBLK(1)) GO TO 30 70 V3(J) = V3(J)/XLJJ 80 CONTINUE C C BACKWARD SUBSTITUTION OMIT DIAGONAL C IF (NROW .EQ. 1) GO TO 500 J = NROW 90 IBLK(8) = -1 100 CALL GETSTB (*130,IBLK(1)) NTMS = IBLK(6) JI = IBLK(5) IK = IBLK(4) IF (IK-NTMS+1 .EQ. J) NTMS = NTMS - 1 IF (NTMS .EQ. 0) GO TO 120 SUM = ZERO DO 110 II = 1,NTMS SUM = SUM + XL(JI)*V3(IK) JI = JI - 1 IK = IK - 1 110 CONTINUE V3(J)= V3(J) + SUM 120 CALL ENDGTB (IBLK(1)) GO TO 100 130 IF (J .EQ. 1) GO TO 500 J = J - 1 GO TO 90 C C NEW METHOD C C THE MCBLT MATRIX HAS BEEN RE-WRITTEN FORWARD FIRST THAN BACKWARD C BY UNPSCR IN FEER3. NO STRING OPERATION HERE C 200 IF (NAM(3) .EQ. NAM(5)) NAM(3) = NAM(6) IF (L16 .NE. 0) CALL CONMSG (NAM,3,0) MCBLTX =-MCBLT(7) IF (MOD(MCBLT(4),10) .NE. 2) GO TO 440 CALL REWIND (MCBLTX) CALL SKPREC (MCBLTX,1) C NWDS = MCBLT(5) C C IZ(1) GINO C / V1 V2 V3 VB (OPEN CORE LENGTH = NZVB) BUFFERS C +-----+-----+-----+-----+-------------------------------+--------- C OPEN CORE C C FORWARD SWEEP DIRECTLY ON V3 C NREC = 0 LL2 = 0 BASE = 1 IFB = +450 DO 260 J = 1,NROW IF (BASE .LT. LL2) GO TO 230 NREC = NREC + 1 CDB IF (DEBUG) WRITE (IO,210) NREC,IFB C 210 FORMAT (' ...READING RECORD',I5,'. IFB =',I5) CALL READ (*400,*220,MCBLTX,VB,NZVB,1,LL) CALL MESAGE (-8,0,NAM) C 220 LL2 = LL/NWDS 220 LL2 = LL CDB LL3 = LL2/30 C LL4 = LL2 - LL3 BASE = 1 230 XLJJ = VB(BASE) II = LJJ XLJJ = VB(BASE+1) JJ = LJJ CDB IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4)) C 1 WRITE (IO,240) IFB,J,BASE,II,JJ C 240 FORMAT (11X,'IFB,J,BASE,II,JJ =',4I8) IF (II .NE. J) GO TO 420 NTMS = JJ - II + 1 IB = BASE + 3 IE = BASE + 1 + NTMS BASE = IE + 1 IF (NTMS .LE. 1) GO TO 260 V3J = V3(J) IF (V3J .EQ. ZERO) GO TO 260 DO 250 I = IB,IE II = II + 1 250 V3(II) = V3(II) + VB(I)*V3J 260 V3(J)= V3(J)/VB(IB-1) C C BACKWARD SUBSTITUTION OMIT DIAGONAL C IF (NROW .EQ. 1) GO TO 500 NREC = 0 LL2 = 0 BASE = 1 J = NROW IFB = -490 DO 300 JX = 1,NROW IF (BASE .LT. LL2) GO TO 280 NREC = NREC + 1 CDB IF (DEBUG) WRITE (IO,210) NREC,IFB CALL READ (*400,*270,MCBLTX,VB,NZVB,1,LL) CALL MESAGE (-8,0,NAM) C 270 LL2 = LL/NWDS 270 LL2 = LL CDB LL3 = LL2/30 C LL4 = LL2 - LL3 BASE = 1 280 XLJJ = VB(BASE) II = LJJ XLJJ = VB(BASE+1) JJ = LJJ CDB IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4)) C 1 WRITE (IO,240) IFB,J,BASE,II,JJ IF (II .NE. J) GO TO 420 NTMS = JJ - II + 1 IB = BASE + 3 IE = BASE + 1 + NTMS BASE = IE + 1 IF (NTMS .LE. 1) GO TO 300 SUM = ZERO DO 290 I = IB,IE II = II + 1 290 SUM = SUM + VB(I)*V3(II) V3(J)= V3(J) + SUM 300 J = J - 1 GO TO 500 C C ERROR C 400 I = MCBLT(4)/10 WRITE (IO,410) NREC,J,I,IFB 410 FORMAT ('0*** TRY TO READ RECORD',I5,'. J,MCBLT(4),IFB =',I7,2I5) CALL MESAGE (-2,MCBLTX,NAM) 420 WRITE (IO,430) IFB,II,J 430 FORMAT ('0*** ERROR. IFB),II,J =',I5,1H),2I8) GO TO 460 440 J = MOD(MCBLT(4),10) WRITE (IO,450) J 450 FORMAT ('0*** MCBLT MATRIX IN WRONG FORM. UNPSCR FLAG =',I3) 460 CALL MESAGE (-37,0,NAM) C 500 NAM(3) = NAM(5) IF (L16 .NE. 0) CALL CONMSG (NAM,3,0) RETURN END ================================================ FILE: mis/frsw2.f ================================================ SUBROUTINE FRSW2 (V1,V2,V3,VB) C C LAST REVISED 11/91, BY G.CHAN/UNISYS C ADDITION OF A NEW FORWARD-BACKWARD SUBSTITUTION METHOD, WHICH IS C MORE EFFICIENT, AND IS ALREADY GOOD FOR VECTORIZATION. C CDB LOGICAL DEBUG INTEGER NAM(6) ,LJJ(2) ,IBLK(15),BASE DOUBLE PRECISION V1(1) ,V2(1) ,V3(1) ,VB(1) ,XL(1) ,XLJJ , 1 V3J ,ZERO ,SUM COMMON /OPINV / MCBLT(7),MCBSMA(7) COMMON /SYSTEM/ KSYSTM ,IO COMMON /FEERXX/ DUMM(18),NZVB COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (XL(1),IZ(1)) EQUIVALENCE (LJJ(1) ,XLJJ) ,(L16,DUMM(6)) DATA NAM / 4HFRSW ,4H2 ,2*4HBEGN,4HEND ,4HBGIN / DATA ZERO / 0.0D+0 / CDB DATA DEBUG , ITER ,MAX / .FALSE. ,0 ,3 / C CDB IF (.NOT.DEBUG) GO TO 20 C ITER = ITER + 1 C IF (ITER .GT. MAX) DEBUG = .FALSE. C WRITE (IO,10) NZVB,ITER C 10 FORMAT (' .... IN FRSW2. NZVB =',I8,', ITER =',I3) C 20 CONTINUE NROW = MCBLT(2) CALL FRMLTD (MCBSMA(1),V1(1),V3(1),VB(1)) IF (MCBLT(7) .LT. 0) GO TO 200 C C NASTRAN ORIGINAL METHOD C IBLK( 1) = MCBLT(1) IBLK( 9) = 1 IBLK(10) = 1 CALL REWIND (MCBLT) CALL SKPREC (MCBLT,1) C C FORWARD SWEEP DIRECTLY ON V3 C DO 80 J = 1,NROW IBLK(8) = -1 30 CALL GETSTR (*70,IBLK(1)) JI = IBLK(5) NTMS = IBLK(6) IK = IBLK(4) IF (IK .NE. J) GO TO 40 NTMS = NTMS - 1 XLJJ = XL(JI) JI = JI + 1 IK = IK + 1 40 IF (NTMS .EQ. 0) GO TO 60 V3J = V3(J) IF (V3J .EQ. ZERO) GO TO 60 DO 50 II = 1,NTMS V3(IK) = V3(IK) + XL(JI)*V3J IK = IK + 1 JI = JI + 1 50 CONTINUE 60 CALL ENDGET (IBLK(1)) GO TO 30 70 V3(J)= V3(J)/XLJJ 80 CONTINUE C C BACKWARD SUBSTITUTION OMIT DIAGONAL C IF (NROW .EQ. 1) GO TO 500 J = NROW 90 IBLK(8) = -1 100 CALL GETSTB (*130,IBLK(1)) NTMS = IBLK(6) JI = IBLK(5) IK = IBLK(4) IF (IK-NTMS+1 .EQ. J) NTMS = NTMS - 1 IF (NTMS .EQ. 0) GO TO 120 SUM = ZERO DO 110 II = 1,NTMS SUM = SUM + XL(JI)*V3(IK) JI = JI - 1 IK = IK - 1 110 CONTINUE V3(J)= V3(J) + SUM 120 CALL ENDGTB (IBLK(1)) GO TO 100 130 IF (J .EQ. 1) GO TO 500 J = J - 1 GO TO 90 C C NEW METHOD C C THE MCBLT MATRIX HAS BEEN RE-WRITTEN FORWARD FIRST THAN BACKWARD C BY UNPSCR IN FEER3. NO STRING OPERATION HERE C 200 IF (NAM(3) .EQ. NAM(5)) NAM(3) = NAM(6) IF (L16 .NE. 0) CALL CONMSG (NAM,3,0) MCBLTX =-MCBLT(7) IF (MOD(MCBLT(4),10) .NE. 2) GO TO 440 NREC = 0 CALL REWIND (MCBLTX) CALL FWDREC (*400,MCBLTX) NWDS = MCBLT(5) C C IZ(1) GINO C / V1 V2 V3 VB (OPEN CORE LENGTH = NZVB) BUFFERS C +-----+-----+-----+-----+-------------------------------+-------- C OPEN CORE C C FORWARD SWEEP DIRECTLY ON V3 C LL2 = 0 BASE = 1 IFB = +450 DO 270 J = 1,NROW IF (BASE .LT. LL2) GO TO 240 NREC = NREC + 1 CDB IF (DEBUG) WRITE (IO,210) NREC,IFB C 210 FORMAT (' ...READING RECORD',I5,'. IFB =',I5) CALL READ (*400,*220,MCBLTX,VB,NZVB,1,LL) CALL MESAGE (-8,0,NAM) 220 LL2 = LL/NWDS CDB LL3 = LL2/30 C LL4 = LL2 - LL3 C IF (DEBUG) WRITE (IO,230) LL,NREC,LL2 C 230 FORMAT (5X,I10,' WORDS READ FROM RECORD',I5,'. LL2 =',I8) BASE = 1 240 XLJJ = VB(BASE) II = LJJ(1) JJ = LJJ(2) CDB IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4)) C 1 WRITE (IO,250) J,BASE,II,JJ,IFB C 250 FORMAT (11X,'J,BASE,II,JJ,IFB =',5I8) IF (II .NE. J) GO TO 420 NTMS = JJ - II + 1 IB = BASE + 2 IE = BASE + NTMS BASE = IE + 1 IF (NTMS .LE. 1) GO TO 270 V3J = V3(J) IF (V3J .EQ. ZERO) GO TO 270 DO 260 I = IB,IE II = II + 1 260 V3(II) = V3(II) + VB(I)*V3J 270 V3(J)= V3(J)/VB(IB-1) C C BACKWARD SUBSTITUTION OMIT DIAGONAL C IF (NROW .EQ. 1) GO TO 500 NREC = 0 LL2 = 0 BASE = 1 J = NROW IFB = -490 DO 310 JX = 1,NROW IF (BASE .LT. LL2) GO TO 290 NREC = NREC + 1 CDB IF (DEBUG) WRITE (IO,210) NREC,IFB CALL READ (*400,*280,MCBLTX,VB,NZVB,1,LL) CALL MESAGE (-8,0,NAM) 280 LL2 = LL/NWDS CDB LL3 = LL2/30 C LL4 = LL2 - LL3 C IF (DEBUG) WRITE (IO,230) LL,NREC,LL2 BASE = 1 290 XLJJ = VB(BASE) II = LJJ(1) JJ = LJJ(2) CDB IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4)) C 1 WRITE (IO,250) J,BASE,II,JJ,IFB IF (II .NE. J) GO TO 420 NTMS = JJ - II + 1 IB = BASE + 2 IE = BASE + NTMS BASE = IE + 1 IF (NTMS .LE. 1) GO TO 310 SUM = ZERO DO 300 I = IB,IE II = II + 1 300 SUM = SUM + VB(I)*V3(II) V3(J)= V3(J) + SUM 310 J = J - 1 GO TO 500 C C ERROR C 400 I = MCBLT(4)/10 WRITE (IO,410) NREC,J,I,IFB 410 FORMAT ('0*** TRY TO READ RECORD',I5,'. J,MCBLT(4),IFB =',I7,2I5) CALL MESAGE (-2,MCBLTX,NAM) 420 WRITE (IO,430) IFB,II,J 430 FORMAT ('0*** ERROR. IFB),II,J =',I5,1H),2I8) GO TO 460 440 J = MOD(MCBLT(4),10) WRITE (IO,450) J 450 FORMAT ('0*** MCBLT MATRIX IN WRONG FORM. UNPSCR FLAG =',I3) 460 CALL MESAGE (-37,0,NAM) C 500 NAM(3) = NAM(5) IF (L16 .NE. 0) CALL CONMSG (NAM,3,0) RETURN END ================================================ FILE: mis/ftube.f ================================================ SUBROUTINE FTUBE C C THIS IS THE FLUID TUBE ELEMENT IN HEAT TRANSFER. C IT COMPUTES AND OUTPUTS THE CONDUCTIVITY AND/OR CAPACITY MATRICES C OF THE ELEMENT. C C - SINGLE AND DOUBLE PRECISION VERSION - C C EST ENTRY FOR -FTUBE- ELEMENT. C ============================== C C EST( 1) = ELEMENT ID C EST( 2) = SIL-A C EST( 3) = SIL-B C EST( 4) = HEAT CAPACITY/UNIT VOLUME = RHO C C EST( 5) = VOLUME FLOW RATE = VDOT P C EST( 6) = DIAMETER AT A C EST( 7) = DIAMETER AT B = DIAMETER AT A IF NOT DEFINED. C EST( 8) = CSID-A NOT USED C EST( 9) = XA C EST(10) = YA C EST(11) = ZA C EST(12) = CSID-B NOT USED C EST(13) = XB C EST(14) = YB C EST(15) = ZB C EST(16) = AVG TEMP OF ELEMENT. NOT USED. C C LOGICAL HEAT ,ERROR INTEGER DICT(7) ,ESTID ,IEST(1) REAL RK(4) ,ID1 ,ID2 ,DICT5 DOUBLE PRECISION K(4) ,LENGTH CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /SYSTEM/ SYSBUF ,IOUTPT COMMON /EMGPRM/ DUM15(15),KMB(3) ,IPREC ,ERROR ,HEAT COMMON /EMGDIC/ DMMM(4) ,ESTID COMMON /EMGEST/ EST(16) COMMON /CONDAS/ PI EQUIVALENCE (IEST(1) , EST(1)) ,(RK(1) , K(1)) , 1 (DICT(5) , DICT5 ) C IF (.NOT.HEAT) GO TO 240 DICT(1) = ESTID DICT(2) = 1 DICT(3) = 2 DICT(4) = 1 DICT5 = 0.0 IF (KMB(1) .EQ. 0) GO TO 170 C C CONDUCTIVITY C RHOCP = EST(4) VDOT = EST(5) C C STORE CONDUCTIVITY BY COLUMNS C K(1) = DBLE(RHOCP*VDOT) C K(2) = -K(1) K(3) = 0.0D0 K(4) = 0.0D0 C C OUTPUT VIA EMGOUT THE FULL MATRIX IN GLOBAL, UNSYMETRIC C IFIL = 1 ISZE = 4 ASSIGN 170 TO IRTN IF (IPREC .EQ. 2) GO TO 160 150 RK(1) = SNGL(K(1)) RK(2) = SNGL(K(2)) RK(3) = SNGL(K(3)) RK(4) = SNGL(K(4)) 160 CALL EMGOUT (RK(1),K(1),ISZE,1,DICT,IFIL,IPREC) GO TO IRTN, (170,240) C C CAPACITY MATRIX C 170 IF (KMB(3) .EQ. 0) GO TO 240 RHOCP = EST( 4) VDOT = EST( 5) ID1 = EST( 6) IF (EST(7)) 190,180,190 180 ID2 = ID1 GO TO 200 190 ID2 = EST( 7) 200 XA = EST( 9) YA = EST(10) ZA = EST(11) XB = EST(13) YB = EST(14) ZB = EST(15) LENGTH = DBLE((XB-XA))**2 + DBLE((YB-YA))**2 + DBLE((ZB-ZA))**2 IF (LENGTH .GT. 0.0D0) GO TO 220 LENGTH = DSQRT(LENGTH) WRITE (IOUTPT,210) UIM,IEST(1) 210 FORMAT (A29,' FROM ELEMENT FTUBE -', /5X,'ELEMENT WITH ID =',I9, 1 ' HAS A ZERO LENGTH.') ERROR = .TRUE. C C FILL AND OUTPUT CAPACITY MATRIX BY COLUMNS IN GLOBAL, SYMMETRIC. C 220 K(1) = (DBLE(RHOCP*PI*(ID1+ID2)))**2*LENGTH/32.0D0 K(2) = 0.0D0 K(3) = 0.0D0 K(4) = K(1) DICT(2) = 2 IFIL = 3 ISZE = 2 ASSIGN 240 TO IRTN IF (IPREC-1) 240,150,160 C 240 RETURN END ================================================ FILE: mis/fvrs1a.f ================================================ SUBROUTINE FVRS1A (BASE,BASE1,Z,W,BUF,INDEX,MODFRL,BASEXG,NROW, 1 NF,NFX,FKMAX,OMEGA) C LOGICAL MODFRL C INTEGER BASEXG,FKMAX C COMPLEX BASE(3,NFX),Z(NROW),BASE1(3,NFX) C DIMENSION MCB(7),BUF(1),W(NF),INDEX(1) C COMMON /PACKX/ IN,IOUT,NS,NL,INCR C C----------------------------------------------------------------------- C COMPUTE NUMBER OF GRID POINTS (SCALAR POINTS ARE NOT ALLOWED). C----------------------------------------------------------------------- NPTS=NROW/6 C----------------------------------------------------------------------- C GENERATE BASE TABLE C---------------------------------------------------------------------- IF (MODFRL) GO TO 100 CALL FVRS1B(BASE,W,NF) GO TO 135 100 CALL FVRS1C(BASE,W,OMEGA,NF) 135 CONTINUE C--------------------------------------------------------------------- C SORT BASE BY INDEX TO MAKE IT COMPATIBLE TO FRLX IF (.NOT. MODFRL) GO TO 137 CALL FVRS1D(BASE,BASE1,INDEX,NFX) 137 CONTINUE C--------------------------------------------------------------------- C PREPARE TO OUTPUT BASEXG C---------------------------------------------------------------------- CALL GOPEN(BASEXG,BUF,1) C------------------------------- C DEFINE MCB MCB(1)=BASEXG MCB(2)=0 MCB(3)=NROW MCB(4)=2 MCB(5)=3 MCB(6)=0 MCB(7)=0 C------------------------------- C DEFINE PACKING CONSTANTS IN=3 IOUT=3 NS=1 NL=NROW INCR=1 C----------------------------------------------------------------------- C GENERATE AND PACK 1ST NF COLUMNS OF BASEXG C BASEXG-1 C ZERO OUT COLUMN DO 140 I=1,NROW 140 Z(I)=(0.0,0.0) DO 160 I=1,NFX L=1 DO 143 K=1,NPTS Z(L)=BASE(1,I) L=L+6 143 CONTINUE CALL PACK(Z,BASEXG,MCB) 160 CONTINUE IF(FKMAX.LT.2)GO TO 500 C---------------------------------------------------------------------- C GENERATE AND PACK 2ND NF COLUMNS OF BASEXG C BASEXG-2 C ZERO COLUMN DO 240 I=1,NROW Z(I)=(0.0,0.0) 240 CONTINUE DO 260 I=1,NFX L=1 DO 243 K=1,NPTS Z(L+1)=BASE(2,I) Z(L+2)=BASE(3,I) L=L+6 243 CONTINUE CALL PACK(Z,BASEXG,MCB) 260 CONTINUE IF(FKMAX.LT.3) GO TO 500 C---------------------------------------------------------------------- C GENERATE AND PACK 3RD NF COLUMNS OF BASEXG C BASEXG-3 DO 360 I=1,NFX L=1 DO 343 K=1,NPTS Z(L+1)=BASE(3,I) Z(L+2)=-BASE(2,I) L=L+6 343 CONTINUE CALL PACK(Z,BASEXG,MCB) 360 CONTINUE C----------------------------------------------------------------------- C GENERATE 4TH THRU FKMAX NF COLUMN GROUPS-(NULL)INTO BASEXG IF(FKMAX.LT.4)GO TO 500 NS=1 NL=1 Z(1)=(0.0,0.0) DO 400 I=4,FKMAX DO 390 K=1,NFX CALL PACK(Z,BASEXG,MCB) 390 CONTINUE 400 CONTINUE C---------------------------------------------------------------------- C CLOSE OUTPUT DATA BLOCK 500 CALL CLOSE(BASEXG,1) CALL WRTTRL(MCB) RETURN END ================================================ FILE: mis/fvrs1b.f ================================================ SUBROUTINE FVRS1B (BASE,W1,NF) C C SUBROUTINE TO COMPUTE BASE(FI)(3X1) FOR MODFRL=FALSE C COMPLEX BASE(3,NF),Z1,P C DIMENSION W1(NF) C COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PIQ COMMON /BLANK / DUM(5),IT(6),DUM1(3) C DO 110 K=1,NF F=W1(K)/TWOPI LT=1 LP=2 DO 100 I=1,3 IF(IT(LT).EQ.-1)GO TO 90 CALL TAB(IT(LT),F,XO) IF(IT(LP).EQ.-1)GO TO 40 CALL TAB(IT(LP),F,PHI) RAD=PHI*DEGRA Z1=CMPLX(0.0,RAD) P=CEXP(Z1) GO TO 50 40 P=(1.0,0.0) 50 BASE(I,K)=XO*P GO TO 95 90 BASE(I,K)=(0.0,0.0) 95 LT=LT+2 LP=LP+2 100 CONTINUE 110 CONTINUE RETURN END ================================================ FILE: mis/fvrs1c.f ================================================ SUBROUTINE FVRS1C (Z,W1,OMEGA,NF) C---------------------------------------------------------------------- COMPLEX Z(3,NF),P,Z1,PY1A,PY1B,PZ1A,PZ1B,PY2A,PY2B,PZ2A,PZ2B C DIMENSION W1(NF) C COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PIQ COMMON /BLANK / DUM(5),IXT,IXP,IYT,IYP,IZT,IZP,DUM1(3) C---------------------------------------------------------------------- LL=1 DO 400 KKK=1,NF IF(W1(KKK).EQ.0.0)GO TO 30 A=1.0 IF(W1(KKK)-OMEGA.LT.0.0)A=-1.0 B=1.0 IF(W1(KKK)+OMEGA.LT.0.0)B=-1.0 C C COMPUTE BASE(FI)(3X3) IF W.NE.0--MODFRL=TRUE C C ZERO OUT MATRIX C KK=LL+2 DO 1 I=1,3 DO 1 J=LL,KK 1 Z(I,J)=(0.0,0.0) F=W1(KKK)/TWOPI IF(IXT.EQ.-1) GO TO 9 CALL TAB(IXT,F,XO) IF(IXP.EQ.-1)GO TO 4 CALL TAB(IXP,F,PHI) RAD=PHI*DEGRA Z1=CMPLX(0.0,RAD) P=CEXP(Z1) GO TO 5 4 P=(1.0,0.0) 5 Z(1,LL+1)=XO*P 9 IF(IYT.EQ.-1)GO TO 11 CALL TAB(IYT,F,YO) GO TO 12 11 YO=0.0 12 IF(IZT.EQ.-1)GO TO 13 CALL TAB(IZT,F,ZO) GO TO 14 13 ZO=0.0 14 IF(IYP.EQ.-1)GO TO 15 CALL TAB(IYP,F,PHI) GO TO 16 15 PHI=0.0 16 RAD=PHI*DEGRA Z1=CMPLX(0.0,RAD) PY1A=CEXP(A*Z1) PY1B=CEXP(B*Z1) Z1=CMPLX(0.0,RAD-0.5*PI*A) PY2A=CEXP(A*Z1) Z1=CMPLX(0.0,RAD-0.5*PI*B) PY2B=CEXP(B*Z1) IF(IZP.EQ.-1)GO TO 17 CALL TAB(IZP,F,PHI) GO TO 18 17 PHI=0.0 18 RAD=PHI*DEGRA Z1=CMPLX(0.0,RAD) PZ1A=CEXP(A*Z1) PZ1B=CEXP(B*Z1) Z1=CMPLX(0.0,RAD-0.5*PI*A) PZ2A=CEXP(A*Z1) Z1=CMPLX(0.0,RAD-0.5*PI*B) PZ2B=CEXP(B*Z1) Z(2,LL)=(YO*PY1A-A*ZO*PZ2A)*0.5 Z(3,LL)=(A*YO*PY2A+ZO*PZ1A)*0.5 Z(2,LL+2)=(YO*PY1B+B*ZO*PZ2B)*0.5 Z(3,LL+2)=(-B*YO*PY2B+ZO*PZ1B)*0.5 LL=LL+3 GO TO 400 30 CONTINUE C C COMPUTE BASE(FI)(3X2) IF W1=0.0, FOR MODFRL=TRUE C A=1.0 IF(OMEGA.LT.0.0)A=-1.0 C------ZERO OUT MATRIX(3X2) KK=LL+1 DO 32 I=1,3 DO 32 J=LL,KK 32 Z(I,J)=(0.0,0.0) F=W1(KKK)/TWOPI IF(IXT.EQ.-1)GO TO 90 CALL TAB(IXT,F,XO) IF(IXP.EQ.-1)GO TO 40 CALL TAB(IXP,F,PHI) RAD=PHI*DEGRA Z1=CMPLX(0.0,RAD) P=CEXP(Z1) GO TO 50 40 P=(1.0,0.0) 50 Z(1,LL)=XO*P GO TO 100 90 Z(1,LL)=(0.0,0.0) 100 IF(IYT.EQ.-1)GO TO 190 CALL TAB(IYT,F,YO) IF(IYP.EQ.-1) GO TO 140 CALL TAB(IYP,F,PHI) RAD=PHI*DEGRA CY=COS(RAD) GO TO 150 140 CY=1.0 150 YY=YO*CY GO TO 200 190 YY=0.0 200 IF(IZT.EQ.-1)GO TO 290 CALL TAB(IZT,F,ZO) IF(IZP.EQ.-1) GO TO 240 CALL TAB(IZP,F,PHI) RAD=PHI*DEGRA CZ=COS(RAD) GO TO 250 240 CZ=1.0 250 ZZ=ZO*CZ GO TO 300 290 ZZ=0.0 300 Z(2,KK)=YY-A*CMPLX(0.0,ZZ) Z(3,KK)=ZZ+A*CMPLX(0.0,YY) LL=LL+2 400 CONTINUE RETURN END ================================================ FILE: mis/fvrs1d.f ================================================ SUBROUTINE FVRS1D (BASE,BASE1,INDEX,NFX) C COMPLEX BASE(3,NFX),BASE1(3,NFX) C DIMENSION INDEX(NFX) C DO 100 I=1,NFX LOC =INDEX(I) DO 10 L=1,3 10 BASE1(L,I)=BASE(L,LOC) 100 CONTINUE C C-----RETURN BASE1 TO BASE C DO 200 I=1,NFX DO 110 L=1,3 110 BASE(L,I)=BASE1(L,I) 200 CONTINUE RETURN END ================================================ FILE: mis/fvrs1e.f ================================================ SUBROUTINE FVRS1E (A,K,N) C C PURPOSE C TO SORT THE ELEMENTS OF A REAL*4 VECTOR, A, INTO ASCENDING C ORDER AND TO CONSTRUCT AN INTEGER*4 VECTOR, K, WHICH INDICATES C HOW THE ELEMENTS OF A HAVE BEEN REARRANGED. C C USAGE C CALL FVRS1E(A,K,N) C C DESCRIPTION OF PARAMETERS C A - REAL*4 VECTOR. C ON INPUT - A CONTAINS THE NUMBERS TO BE SORTED. C ON OUTPUT- A CONTAINS THE NUMBERS IN ASCENDING ORDER. C K - OUTPUT VECTOR CONTAINING INTERCHANGE INFORMATION, I.E., C THE NUMBER IN A(K(I)) (OF THE INPUT A) HAS BEEN MOVED TO C A(I). C N - LENGTH OF A AND K. C C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED C NONE C C REMARKS C THE K-VECTOR CAN BE USED IN CONJUNCTION WITH SUBROUTINE FVRS1E C TO REARRANGE OTHER VECTORS IN THE SAME WAY THAT THE A-VECTOR C HAS BEEN REARRANGED. C C METHOD C THIS ROUTINE IS A TRANSLATION OF THE ALGOL PROCEDURE, C 'SHELLSORT', ALGORITHM 201, 'COLLECTED ALGORITHMS FROM CACM', C BY J. BOOTHROYD. C DIMENSION A(1),K(1) C DO 17 IKL =1,N 17 K(IKL) = IKL I = 1 1 I = I+I IF(I-N)1,2,7 7 I = I/2 2 CONTINUE M = 2*I-1 5 CONTINUE M = M/2 K1 = N-M DO 6 J=1,K1 I = J 3 IPM = I+M AIPM = A(IPM) IF(AIPM.GE.A(I)) GO TO 4 W = A(I) KW = K(I) A(I) = AIPM K(I) = K(IPM) A(IPM) = W K(IPM) = KW I = I-M IF(I.GE.1) GO TO 3 4 CONTINUE 6 CONTINUE IF(M.GT.1) GO TO 5 RETURN END ================================================ FILE: mis/fvrs2a.f ================================================ SUBROUTINE FVRS2A (FILE,KK1,KK2,NORO,BUFFER) C C GENERATE COLUMN REORDERING MATRIX. THIS MATRIX WILL REORDER C COLUMNS OF A MATRIX BY POST-MULTIPLYING THE MATRIX WHOSE C COLUMNS ARE TO BE REORDERED BY THE REORDERING MATRIX. C C THE MATRIX WILL BE A REAL SINGLE-PRECISION SQUARE MATRIX. C INTEGER FILE,ROW,TRL(7),BUFFER(1),TYPIN,TYPOUT C COMMON /PACKX/ TYPIN,TYPOUT,II,NN,INCR C NORO = -1 IF(KK1.EQ.1 .OR. KK2.EQ.1) RETURN C NORO = 1 C TYPIN = 1 TYPOUT = 1 INCR = 1 C TRL(1) = FILE TRL(2) = 0 TRL(3) = KK1*KK2 TRL(4) = 1 TRL(5) = TYPOUT TRL(6) = 0 TRL(7) = 0 C CALL GOPEN(FILE,BUFFER,1) C VALUE = 1.0 C DO 20 K1 = 1,KK1 ROW = K1 DO 10 K2 = 1,KK2 C II = ROW NN = ROW CALL PACK(VALUE,FILE,TRL) C ROW = ROW + KK1 C 10 CONTINUE 20 CONTINUE C CALL CLOSE(FILE,1) CALL WRTTRL(TRL) C RETURN END ================================================ FILE: mis/fvrst1.f ================================================ SUBROUTINE FVRST1 C C C 1. ENTRY POINT - FVRST1 C C 2. PURPOSE - THIS MODULE IS USED FOR FORCED VIBRATION RESPONSE C ANALYSIS OF ROTATING CYCLIC STRUCTURES. C FVRSTR1 GENERATES DATA BLOCKS FRLX, B1GG, M1GG, C M2GG, BASEXG AND PDZERO. IT ALSO COMPUTES PARAMETERS C FKMAX AND NOBASEX. C C 3. DMAP CALLING SEQUENCE - C C FVRSTR1 CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG, C M2GG,BASEXG,PDZERO,, /V,N,NOMGG/V,Y,CYCIO/V,Y,NSEGS/ C V,Y,KMAX/V,N,FKMAX/V,Y,BXTID=-1/V,Y,BXPTID=-1/ C V,Y,BYTID=-1/V,Y,BYPTID=-1/V,Y,BZTID=-1/ C V,Y,BZPTID=-1/V,N,NOBASEX/V,N,NOFREQ/V,N,OMEGA $ C C 4. INPUT DATA BLOCKS - C C CASECC - CASE CONTROL C BGPDT - BASIC GRID POINT DEFINITION TABLE. C CSTM - COORDINATE SYSTEM TRANSFORMATION MATRICES. C DIT - DIRECT INPUT TABLES. C FRL - FREQUENCY RESPONSE LIST. (FREQUENCIES IN RADIANS) C MGG - GLOBAL MASS MATRIX (G-SET). C C NOTE - (1) ALL INPUT DATA BLOCKS CAN BE PURGED IF ONLY C PARAMETERS FKMAX AND NOBASEX ARE TO BE COMPUTED. C (2) CASECC, DIT AND FRL CAN BE PURGED IF FRLX AND C BASEXG ARE PURGED. C C 5. OUTPUT DATA BLOCKS - C C FRLX - FREQUENCY RESPONSE LIST (MODIFIED). C B1GG - CORIOLIS ACCELERATION COEFFICIENT MATRIX (G-SET). C M1GG - CENTRIPETAL ACCELERATION COEFFICIENT MATRIX (G-SET). C M2GG - BASE ACCELERATION COEFFICIENT MATRIX (G-SET). C BASEXG - BASE ACCELERATION MATRIX (G-SET). C PDZERO - LOAD MODIFICATION MATRIX IN BASE ACCELERATION C PROBLEMS. C C NOTE - (1) ALL OUTPUT DATA BLOCKS CAN BE PURGED IF C PARAMETER NOMGG =-1. C (2) B1GG AND M1GG CAN BE PURGED IF NOMGG =-1 OR C IF OMEGA = 0.0. C (3) FRLX AND PDZERO CAN BE PURGED IF OMEGA = 0.0. C (4) FRLX, PDZERO, M2GG AND BASEXG CAN BE PURGED C IF NOMGG =-1 OR NOFREQ =-1 OR CYCIO =+1 OR IF C ALL PARAMETERS BXTID = BXPTID = BYTID =-1. C C 6. PARAMETERS - C C (A) NOMGG - INPUT-INTEGER-NO DEFAULT. MASS MATRIX WAS NOT C GENERATED IF NOMGG =-1. C (B) CYCIO - INPUT-INTEGER-NO DEFAULT. THE INTEGER VALUE C OF THIS PARAMETER SPECIFIES THE FORM OF THE INPUT C AND OUTPUT DATA FOR CYCLIC STRUCTURES. A VALUE C OF +1 IS USED TO SPECIFY PHYSICAL SEGMENT REPRE- C SENTATION AND A VALUE OF -1 FOR CYCLIC TRANSFOR- C MATION REPRESENTATION. C (C) NSEGS - INPUT-INTEGER-NO DEFAULT. THE NUMBER OF C IDENTICAL SEGMENTS IN THE STRUCTURAL MODEL. C (D) KMAX - INPUT-INTEGER-NO DEFAULT. THE INTEGER VALUE C OF THIS PARAMETER SPECIFIES THE MAXIMUM VALUE C OF THE HARMONIC INDEX.THE MAXIMUM VALUE OF C KMAX IS NSEGS/2. C (E) FKMAX - OUTPUT-INTEGER-NO DEFAULT. FUNCTION OF KMAX. C (F) BXTID - INPUT -INTEGER-DEFAULTS. THE VALUES OF THESE C (G) BYTID PARAMETERS DEFINE THE SET IDENTIFICATION NUMBERS C (H) BZTID OF THE TABLEDI BULK DATA CARDS WHICH DEFINE THE C (I) BXPTID COMPONENTS OF THE BASE ACCELERATION VECTOR. THE C (J) BYPTID TABLES REFERED TO BY BXTID, BYTID AND BZTID C (K) BZPTID DEFINE MAGNITUDE(LT-2) AND THE TABLES REFERED TO C BY BXPTID, BYPTID AND BZPTID DEFINE PHASE(DEGREE) C THE DEFAULT VALUES ARE -1 WHICH MEANS THAT THE C RESPECTIVE TERMS ARE IGNORED. C (L) NOBASEX - OUTPUT-INTEGER-NO DEFAULT. NOBASEX =-1 IF DATA C BLOCK BASEXG IS NOT GENERATED. C (M) NOFREQ - INPUT-INTEGER-NO DEFAULT. NOFREQ =-1 IF FREQUENCY C WAS NOT SELECTED IN THE CASE CONTROL DECK. C (N) OMEGA - INPUT-REAL-NO DEFAULT. ROTATIONAL SPEED OF THE C STRUCTURE IN RADIANS. OMEGA = 2*PI*RPS. C C 7. METHOD - SEE FUNCTIONAL MODULE DESCRIPTION. C C 8. SUBROUTINES - FVRST1 CALLS ROUTINES FVRS1A, FVRS1B, FVRS1C, C FVRS1D, FVRS1E, GMMATD, PRETRD, TRANSD, PRETAB, C TAB AND OTHER STANDARD NASTRAN UTILITY ROUTINES. C GINO ROUTINES. C C 9. DESIGN REQUIREMENTS - C C (1) OPEN CORE IS DEFINED AT /ZZFVR1/. C (2) NO SCRATCH FILES ARE USED. C (3) FVRST1 RESIDES IN LINKNS07 C (4) OPEN CORE FOR 5 BUFFERS PLUS 14*NCSTM PLUS NTYPE*NROW OF C MGG IS REQUIRED. C C NOTE - (1) NTYPE = 1 IF MGG IS REAL SP C NTYPE = 2 IF MGG IS REAL DP C C 10. DIAGNOSTIC MESSAGES - C C THE FOLLOWING MESSAGES MAY BE ISSUED - 3001,3002,3003,3008 C AND 3031. C C LOGICAL MODFRL INTEGER CASECC,BGPDT,CSTM,DIT,FRL,FRLX,B1GG,BASEXG,PDZERO, 1 CYCIO,FKMAX,BXTID,BXPTID,BYTID,BYPTID,BZTID, 2 BZPTID,ITLIST(13),ITID(6),FRQSET,CASE(14) DOUBLE PRECISION Z,A(3,3),B(3,3),C(3,3),ROW(3),TA(3,3),AVGM, 1 DPI,DTWOPI,DRADEG,DDEGRA,D4PISQ DIMENSION MCBB1(7),MCBM1(7),MCBM2(7),MCB(7),COORD(4), 1 MODNAM(3),ZS(1),IZ(1),MCB1(7),MCB2(7),ROW2(3) COMMON /BLANK / NOMGG,CYCIO,NSEGS,KMAX,FKMAX,BXTID,BXPTID, 1 BYTID,BYPTID,BZTID,BZPTID,NOBASX,NOFREQ,OMEGA COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ NBUF,NOUT,NERR COMMON /UNPAKX/ IN1,NF1,NL1,INCR COMMON /PACKX / IN,IOUT,NF,NL,INCR1 COMMON /CONDAD/ DPI,DTWOPI,DRADEG,DDEGRA,D4PISQ EQUIVALENCE (COORD(1),NCRD),(Z(1),ZS(1)),(Z(1),IZ(1)), 1 (MCB(1),MCB1(1)),(MCBM1(1),MCB2(1)), 2 (ITID(1),BXTID) DATA CASECC, BGPDT, CSTM, DIT, FRL, MGG / 1 101, 102, 103, 104, 105, 106 / DATA FRLX, B1GG, M1GG, M2GG, BASEXG, PDZERO / 1 201, 202, 203, 204, 205 , 206 / DATA MODNAM / 4HFRL , 4HFVRS,4HTR1 / DATA ITLIST / 4, 1105,11,1, 1205,12,2, 1305,13,3, 1405,14,4 / C LOCATE CODES FOR - TABLED1 TABLED2 TABLED3 TABLED4 C C CALCULATE PARAMETERS C C TEST TO SEE IF BASEXG IS TO BE GENERATED. C NOBASX = -1 IF (NOMGG.EQ.-1 .OR. CYCIO.NE.-1 .OR. NOFREQ.EQ.-1) GO TO 10 IF (BXTID.EQ.-1 .AND. BYTID.EQ.-1 .AND. BZTID.EQ.-1) GO TO 10 NOBASX = 1 10 CONTINUE C IF (CYCIO .NE. -1) GO TO 25 C C DETERMINE FKMAX C IF (MOD(NSEGS,2) .NE. 0) GO TO 23 IF (KMAX .EQ. NSEGS/2) GO TO 24 23 FKMAX = 2*KMAX + 1 GO TO 25 24 FKMAX = NSEGS C C TEST TO SEE IF ANY DATA BLOCKS ARE TO BE GENERATED. C 25 IF (NOMGG .EQ. -1) GO TO 1000 IF (OMEGA.EQ.0.0 .AND. (CYCIO.NE.-1 .OR. NOFREQ.EQ.-1) .AND. 1 (BXTID.EQ.-1 .AND. BYTID.EQ.-1 .AND. BZTID.EQ.-1)) GO TO 1000 C C TEST TRAILER OF MGG TO SEE IF PURGED C MCB(1) = MGG CALL RDTRL (MCB) NFILE = MGG IF (MCB(1) .LE. 0) GO TO 902 C C COLUMN COUNT FOR MGG READ CHECK C NCOLC = MCB(2) NROWC = MCB(3) NFORM = MCB(4) NTYPE = MCB(5) C NZ = KORSZ(Z) C C ALLOCATE BUFFERS C C MGG,CSTM (IBUF1 IS NBUF+1 LONG) C IBUF1 = NZ - NBUF C C BGPDT C IBUF2 = IBUF1 - NBUF C C B1GG C IBUF3 = IBUF2 - NBUF C C M1GG C IBUF4 = IBUF3 - NBUF C C M2GG C IBUF5 = IBUF4 - NBUF IF (OMEGA .EQ. 0.0) IBUF5 = IBUF3 C C CALCULATE LENGTH OF OPEN CORE C NZ = IBUF5 - 1 C C PROCESS CSTM DATA BLOCK C NFILE = CSTM MCB(1) = CSTM CALL RDTRL (MCB) IF (MCB(1) .LE. 0) GO TO 61 C C NO. OF COORDINATE SYSTEMS C NCSYM = MCB(3) LCSTM = 14*NCSYM C C CSTM TABLE C ICSTM = IBUF5 - LCSTM NZ = ICSTM - 1 C C CORE FOR ENOUGH CORE FOR CSTM C IF (NZ .LT. 0) GO TO 901 C C CORE CHECK FULL COLUMN OF MGG READ ASSUMED C IF (NZ-NTYPE*NROWC .LT. 0) GO TO 901 CALL GOPEN (CSTM,ZS(IBUF1),0) CALL READ (*903,*904,CSTM,ZS(ICSTM),LCSTM,1,NWDS) CALL PRETRD (ZS(ICSTM),LCSTM) CALL CLOSE (CSTM,1) GO TO 64 C C CORE CHECK NO CSTM C 61 IF (NZ-NTYPE*NROWC .LT. 0) GO TO 901 64 CONTINUE C C BGPDT TABLE C MCB(1) = BGPDT CALL RDTRL (MCB) NFILE = BGPDT IF (MCB(1) .LE. 0) GO TO 902 C C NO. OF GRID POINTS AND SCALAR POINTS READ CHECK FOR BGPDT C NGRID = MCB(2) CALL GOPEN (BGPDT,ZS(IBUF2),0) C C OPEN MGG AND OUTPUT MATRICES C CALL GOPEN (MGG,ZS(IBUF1),0) IF (OMEGA .EQ. 0.0) GO TO 65 CALL GOPEN (B1GG,ZS(IBUF3),1) MCBB1(1) = B1GG MCBB1(2) = 0 MCBB1(3) = NROWC MCBB1(4) = 1 MCBB1(5) = NTYPE MCBB1(6) = 0 MCBB1(7) = 0 CALL GOPEN (M1GG,ZS(IBUF4),1) MCBM1(1) = M1GG MCBM1(2) = 0 MCBM1(3) = NROWC MCBM1(4) = NFORM MCBM1(5) = NTYPE MCBM1(6) = 0 MCBM1(7) = 0 65 IF (NOBASX .EQ. -1) GO TO 66 CALL GOPEN (M2GG,ZS(IBUF5),1) MCBM2(1) = M2GG MCBM2(2) = 0 MCBM2(3) = NROWC MCBM2(4) = 1 MCBM2(5) = NTYPE MCBM2(6) = 0 MCBM2(7) = 0 C C SET UP PACK AND UNPACK TERMS C 66 IN1 = NTYPE IN = 2 IOUT = NTYPE INCR = 1 INCR1= 1 C C READ INTERNAL SORT BGPDT PICK UP CID,X,Y,Z C NDOF = 0 70 CALL READ (*903,*800,BGPDT,COORD,4,0,M) NDOF = NDOF + 1 IF (NCRD .NE. -1) GO TO 79 C C SCALAR POINT-UNPACK ONE COL OF MGG C SAVE DIAGONAL TERM C NF1 = 0 CALL UNPACK (*76,MGG,Z) NROW = NDOF - NF1 + 1 NTERM= NL1 - NF1 + 1 IF (NROW.LT.1 .OR. NROW.GT.NTERM) GO TO 76 IF (NTYPE .EQ. 1) ROW(1) = ZS(NROW) IF (NTYPE .EQ. 2) ROW(1) = Z(NROW) NF = NDOF NL = NDOF GO TO 77 C C OUT OF RANGE OF NON-ZERO BAND C 76 ROW(1) = 0.0 NF = 1 NL = 1 C C NOW PUT DIAGONAL ELEMENT INTO OUTPUT MATRICES C 77 IF (OMEGA .EQ. 0.0) GO TO 78 CALL PACK (ROW,M1GG,MCBM1) CALL PACK (ROW,B1GG,MCBB1) 78 IF (NOBASX .EQ. -1) GO TO 70 CALL PACK (ROW,M2GG,MCBM2) GO TO 70 C C UNPACK 3 COL OF MGG AND SAVE DIAGONAL TERMS C 79 DO 80 I = 1,3 DO 80 J = 1,3 80 A(I,J) = 0.0 DO 100 I = 1,3 NF1 = 0 CALL UNPACK (*95,MGG,Z) C C LOCATE DIAGONAL ELEMENT IN COL-NROW C NROW = NDOF - NF1 + I NTERM = NL1 - NF1 + 1 IF (NROW.LT.1 .OR. NROW.GT.NTERM) GO TO 95 IF (NTYPE .EQ. 1) A(I,I) = ZS(NROW) IF (NTYPE .EQ. 2) A(I,I) = Z(NROW) GO TO 100 C C OUT OF RANGE OF NON-ZERO ELEMENT BAND C 95 A(I,I) = 0.0 100 CONTINUE C C NOW TRANSFORM FROM LOCAL(GLOBAL) TO BASIC C IF (NCRD .NE. 0) GO TO 150 C C ALREADY IN BASIC COORDINATES C AVGM = (A(1,1) + A(2,2) + A(3,3))/3.0 GO TO 161 C C SELECT TRANSFORMATION MATRIX-TA C 150 CALL TRANSD (COORD,TA) CALL GMMATD (TA,3,3,0,A,3,3,0,B) CALL GMMATD (B,3,3,0,TA,3,3,1,C) C C C-IS NOW IN BASIC COORDINATES-ROW,WISE C AVGM = (C(1,1) + C(2,2) + C(3,3))/3.0 C 161 IF (OMEGA .EQ. 0.0) GO TO 307 C C PROCESS M1GG C DO 162 I = 1,3 DO 162 J = 1,3 162 A(I,J) = 0.0 A(2,2) = AVGM A(3,3) = AVGM IF (NCRD .NE. 0) GO TO 170 DO 165 I = 1,3 DO 165 J = 1,3 165 C(I,J) = A(I,J) GO TO 180 C C TRANSFORM TO GLOBAL(LOCAL) FROM BASIC C 170 CALL GMMATD (TA,3,3,1,A,3,3,0,B) CALL GMMATD (B,3,3,0,TA,3,3,0,C) C C C- IS NOW M1-11 ROW WISE C 180 DO 200 I = 1,3 DO 190 K = 1,3 190 ROW(K) = C(I,K) NF = NDOF NL = NDOF + 2 CALL PACK (ROW,M1GG,MCBM1) 200 CONTINUE C C WRITE OUT 3 NULL COLUMNS C ROW(1) = 0.0 DO 205 K = 1,3 NF = 1 NL = 1 CALL PACK (ROW,M1GG,MCBM1) 205 CONTINUE C C NOW TAKE CARE OF B1GG C IF (NCRD .NE. 0) GO TO 240 DO 210 I = 1,3 DO 210 J = 1,3 210 C(I,J) = 0.0 C(3,2) =-AVGM C(2,3) = AVGM GO TO 250 240 DO 245 I = 1,3 DO245 J = 1,3 245 A(I,J) = 0.0 A(3,2) =-AVGM A(2,3) = AVGM C C TRANSFORM TO GLOBAL(LOCAL) FROM BASIC C CALL GMMATD (TA,3,3,1,A,3,3,0,B) CALL GMMATD (B,3,3,0,TA,3,3,0,C) C C C-IS NOW B1-11 ROW WISE C 250 CONTINUE DO 300 I = 1,3 DO 265 K = 1,3 265 ROW(K) = C(I,K) NF = NDOF NL = NDOF + 2 CALL PACK (ROW,B1GG,MCBB1) 300 CONTINUE C C WRITE OUT 3 NULL COLUMNS C ROW(1) = 0.0 DO 305 I = 1,3 NF = 1 NL = 1 CALL PACK (ROW,B1GG,MCBB1) 305 CONTINUE 307 IF (NOBASX .EQ. -1) GO TO 407 C C NOW PROCESS M2GG C IF (NCRD .NE. 0) GOT O 340 DO 310 I = 1,3 DO 310 J = 1,3 310 C(I,J) = 0.0 C(1,1) = AVGM C(2,2) = AVGM C(3,3) = AVGM C(3,2) = AVGM C(2,3) =-AVGM GO TO 350 340 DO 345 I = 1,3 DO 345 J = 1,3 345 A(I,J) = 0.0 A(1,1) = AVGM A(2,2) = AVGM A(3,3) = AVGM A(3,2) = AVGM A(2,3) =-AVGM C C TRANSFORM TO GLOBAL(LOCAL) FROM BASIC C CALL GMMATD (TA,3,3,1,A,3,3,0,C) C C C-IS NOW M2-11 ROW WISE C 350 CONTINUE DO 400 I = 1,3 DO 365 K = 1,3 365 ROW(K) = C(I,K) NF = NDOF NL = NDOF + 2 CALL PACK (ROW,M2GG,MCBM2) 400 CONTINUE C C WRITE OUT 3 NULL COLUMNS C ROW(1) = 0.0 DO 405 I = 1,3 NF = 1 NL = 1 CALL PACK (ROW,M2GG,MCBM2) 405 CONTINUE C C SPACE DOWN 3 COL IN MGG C 407 CONTINUE NDOF = NDOF + 5 NFILE = MGG CALL FWDREC (*903,MGG) CALL FWDREC (*903,MGG) CALL FWDREC (*903,MGG) NFILE = BGPDT GO TO 70 C C FINISH PROCESSING C 800 CALL CLOSE (MGG,1) IF (NOBASX .EQ. -1) GO TO 802 CALL CLOSE (M2GG,1) CALL WRTTRL (MCBM2) 802 IF (OMEGA .EQ. 0.0) GO TO 805 CALL CLOSE (B1GG,1) CALL CLOSE (M1GG,1) CALL WRTTRL (MCBB1) CALL WRTTRL (MCBM1) 805 CALL CLOSE (BGPDT,1) C C BEGIN PROCESSING OF FRLX, PDZERO AND BASEXG DATA BLOCKS. C C C TEST TO SEE IF BASEXG IS TO BE GENERATED. C IF (NOBASX .EQ. -1) GO TO 1000 C C RE-ESTABLISH LENGTH OF OPEN CORE FOR PHASE II PROCESSING C NZ = IBUF3 - 1 C C PROCESS FRL, FRLX AND PDZERO C MODFRL = .TRUE. IF (OMEGA.EQ.0.0 .OR. BYTID.EQ.-1 .AND. BZTID.EQ.-1) 1 MODFRL = .FALSE. C NFILE = FRL MCB1(1) = FRL CALL RDTRL (MCB1) NFSETS = MCB1(2) IFRL = 1 CALL OPEN (*902,FRL,ZS(IBUF1),0) C C READ HEADER RECORD C CALL READ (*903,*810,FRL,IZ(IFRL),NZ,1,NWRDS) GO TO 901 C C OPEN CASECC C 810 NFILE = CASECC CALL GOPEN (CASECC,ZS(IBUF2),0) C C READ RECORD 1, WORD 14 (FREQUENCY SET ID) C CALL READ (*903,*904,CASECC,CASE,14,0,DUMMY) FRQSET = CASE(14) CALL CLOSE (CASECC,1) C C CHECK WHAT LOGICAL RECORD FRQSET IS IN FRL. C MM = 0 II = IFRL + 2 DO 840 I = II,NWRDS MM = MM + 1 IF (IZ(I) .EQ. FRQSET) GO TO 850 840 CONTINUE C C FREQUENCY SET NOT FOUND. C GO TO 905 C C MM IS LOGICAL RECORD NO. IN FRL FOR FRQSET. C 850 IF (.NOT.MODFRL) GO TO 852 CALL OPEN (*902,FRLX,ZS(IBUF2),1) CALL WRITE (FRLX,IZ(IFRL),NWRDS,1) CALL GOPEN (PDZERO,ZS(IBUF3),1) MCB2(1) = PDZERO MCB2(2) = 0 MCB2(3) = 0 MCB2(4) = 1 MCB2(5) = 1 MCB2(6) = 0 MCB2(7) = 0 IN = 1 IOUT = 1 INCR1 = 1 ROW2(1) = 0.0 ROW2(2) = 1.0 ROW2(3) = 0.0 852 IFRL = 1 NFS = 0 NFSX = 0 NFILE = FRL DO 859 I = 1,NFSETS CALL READ (*903,*853,FRL,ZS(IFRL),NZ,1,M) GO TO 901 853 IF (I .EQ. MM) NFS = M IF (.NOT.MODFRL .AND.I.EQ.MM) GO TO 865 IF (.NOT.MODFRL) GO TO 859 IF (I .NE. MM) GO TO 858 C C SET POINTERS FOR SORT INDEX , FRLX AND PDZERO ARRAYS. C INDEX = IFR L + NFS IFRLX = INDEX + 3*NFS IPDZ = IFRLX + 3*NFS C C RESET IFRL POINTER TO CONTINUE READING FRL RECORDS. C IFRL = IFRLX C C CHECK CORE REQUIRED FOR EXPANDED FREQUENCY LIST AND SORT INDEX C NZ = NZ - (IPDZ + 3*NFS) + 1 IF (NZ .LT. 0) GO TO 901 C LL = IFRLX - 1 KKK= IPDZ - 1 DO 857 II = 1,NFS IF (ZS(II) .EQ. 0.0) GO TO 856 DO 854 KK = 1,3 KKK = KKK + 1 ZS(KKK) = ROW2(KK) 854 CONTINUE ZS(LL+1) = ABS(ZS(II)-OMEGA) ZS(LL+2) = ZS(II) ZS(LL+3) = ABS(ZS(II)+OMEGA) LL = LL + 3 GO TO 857 856 ZS(LL+1) = 0.0 ZS(LL+2) = ABS(OMEGA) KKK = KKK + 1 ZS(KKK) = ROW2(2) KKK = KKK + 1 ZS(KKK) = ROW2(1) LL = LL + 2 857 CONTINUE C C COMPUTE THE EXPANDED NUMBER OF FREQUIENCES, NFSX. C NFSX = LL - IFRLX + 1 C C SORT EXPANDED W'S AND GET INDEX FOR SORTING BASE TABLE. C CALL FVRS1E (ZS(IFRLX),IZ(INDEX),NFSX) CALL WRITE (FRLX,ZS(IFRLX),NFSX,1) GO TO 859 858 CALL WRITE (FRLX,ZS(IFRL),M,1) 859 CONTINUE IF (.NOT.MODFRL) GO TO 865 C C FRLX IS A COPY OF FRL WITH THE SELECTED FREQUENCY SET, FRQSET, C EXPANDED. C CALL CLOSE (FRLX,1) MCB1(1) = FRLX CALL WRTTRL (MCB1) C C SORT PDZERO BY INDEX JUST AS WAS DONE FOR FRLX C USE WORK AT ZS(IFRLX) C INDEX AT ZS(INDEX) ALL NFSX LONG C PDZERO AT ZS(IPDZ) C DO 860 KK = 1,NFSX LOC = IZ(INDEX+KK-1) 860 ZS(IFRLX+KK-1) = ZS(IPDZ+LOC-1) C C NOW OUTPUT NFSX * FKMAX COLUMNS FOR PDZERO C KKK = 0 DO 862 KK = 1,FKMAX DO 861 JJ = 1,NFSX KKK = KKK + 1 NF = KKK NL = KKK CALL PACK (ZS(IFRLX+JJ-1),PDZERO,MCB2) 861 CONTINUE 862 CONTINUE CALL CLOSE (PDZERO,1) MCB2(3) = MCB2(2) CALL WRTTRL (MCB2) 865 CALL CLOSE (FRL,1) C C RE-ESTABLISH OPEN CORE FOR PHASE III AND C RESET POINTER TO ORIGINAL FREQUIENCIES. C IFRL = 1 NZ = IBUF1 - (NFS+NFSX) - 1 C C NFS = THE ORIGINAL NUMBER OF FREQUIENCES C NFSX = THE EXPANDED NUMBER OF FREQUIENCES. C C GENERATE BASE ACCELERATION MATRIX BASEXG. C C C BUILD A LIST OF UNIQUE TABLE IDS FOR PRETAB. C INITIALIZE THE TABLE WITH A ZERO ENTRY. C ITAB = NFS + NFSX + 1 NTABL=1 K = ITAB + NTABL IZ(K) = 0 C C WE HAVE A LIST OF TABLE ID'S TO CONSIDER C WE WANT ONLY A UNIQUE LIST OF TABLE ID'S GIVEN TO PRETAB C DO 872 I = 1,6 IITID = ITID(I) C C SEARCH EXISTING LIST OF TABLE ID'S TO SEE IF IITID IS ALREADY IN C LIST C IF (IITID.LE.0 .OR. IITID.GT.9999999) GO TO 872 DO 871 L = 1,NTABL LL = ITAB + L IF (IZ(LL) .EQ. IITID) GO TO 872 871 CONTINUE C C IITID WAS NOT AMONG EXISTING TABLE ID'S IN LIST, C IT'S A NEW TABLE ID,ADD IT TO LIST AND UPDATE LENGHT OF LIST C NTABL = NTABL + 1 K = ITAB + NTABL IZ(K) = IITID 872 CONTINUE C C ALL TABLE ID'S HAVE BEEN PROCESSED,NOW PRETAB CAN BE CALLED C NTABL IS THE NUMBER OF TID'S IN THE LIST. C IZ(ITAB) = NTABL C C ILTAB IS THE NEXT AVAILABLE LOCATION OF OPEN CORE FOR PRETAB. C ILTAB = ITAB + NTABL + 1 C C COMPUTE LENGTH OF OPEN CORE AVAILABLE TO PRETAB. C NZTAB = NZ - NTABL - 1 LTAB = 0 CALL PRETAB (DIT,ZS(ILTAB),IZ(ILTAB),ZS(IBUF1),NZTAB,LTAB, 1 IZ(ITAB),ITLIST) C C COMPUTE LENGTH OF OPEN CORE AFTER PRETAB AND NEXT AVAILABLE LOC. C NZ = NZ - LTAB NEXT = ILTAB + LTAB C C ALLOCATE COMPLEX ARRAYS FOR BASEXG. START ON DOUBLE WORD BOUNDARY. C IF (MOD(NEXT,2) .EQ. 0) NEXT = NEXT + 1 C C DEFINE NFSX IF MODFRL IS FALSE. C IF (.NOT.MODFRL) NFSX = NFS C N1 = NEXT N2 = N1 + (3*NFSX)*2 N3 = N2 + (3*NFSX)*2 NT = N3 + NROWC*2 - 1 IF (NZ .LT. NT) GO TO 901 CALL FVRS1A (ZS(N1),ZS(N2),ZS(N3),ZS(IFRL),ZS(IBUF1),ZS(INDEX), 1 MODFRL,BASEXG,NROWC,NFS,NFSX,FKMAX,OMEGA) GO TO 1000 C C ERROR PROCESSING C C NOT ENOUGH CORE (ERROR 3008) C 901 IP1 = -8 GO TO 999 C C DATA SET NOT IN FIST (ERROR 3001) C 902 IP1 = -1 GO TO 999 C C EOF ENCOUNTERED (ERROR 3002) C 903 IP1 = -2 GO TO 999 C C EOL ENCOUNTERED (ERROR 3003) C 904 IP1 = -3 GO TO 999 C C FREQUENCY SET NOT FOUND IN FRL (ERROR 3031) C 905 CALL MESAGE (-31,FRQSET,MODNAM) GO TO 1000 999 CALL MESAGE (IP1,NFILE,MODNAM(2)) 1000 RETURN END ================================================ FILE: mis/fvrst2.f ================================================ SUBROUTINE FVRST2 C C 1. ENTRY POINT - FVRST2 C C 2. PURPOSE - THIS MODULE IS USED DURING A FORCED VIBRATION C RESPONSE ANALYSIS OF ROTATING CYCLIC STRUCTURES C TO GENERATE TABLE DATA BLOCKS FRL AND FOL AND TO C GENERATE MATRIX DATA BLOCKS REORDER1 AND REORDER2. C FVRSTR2 ALSO COMPUTES PARAMETERS LMAX, NTSTEPS, C FLMAX, NORO1 AND NORO2. C C 3. DMAP CALLING SEQUENCE - C C FVRSTR2 TOL,,,,,,, / FRL,FOL,REORDER1,REORDER2,,,, / C V,Y,NSEGS/ V,Y,CYCIO/ V,Y,LMAX=-1/ V,N,FKMAX/ C V,N,FLMAX/ V,N,NTSTEPS/ V,N,NORO1/ V,N,NORO2 $ C C 4. INPUT DATA BLOCKS - C C TOL - TIME OUTPUT LIST. C C NOTE - (1) TOL MUST BE PRESENT. C C 5. OUTPUT DATA BLOCKS - C C FRL - FREQUENCY RESPONSE LIST. C FOL - FREQUENCY OUTPUT LIST. C REORDER1 - LOAD REORDERING MATRIX FO TIME-DEPENDENT PROBLEMS. C REORDER2 - LOAD REORDERING MATRIX FO TIME-DEPENDENT PROBLEMS. C C NOTE - (1) FRL AND FOL CANNOT BE PURGED. C (2) REORDER1 AND REORDER2 SHOULD NOT BE PURGED. C C 6. PARAMETERS - C C (A) NSEGS - INPUT-INTEGER-NO DEFAULT. THE NUMBER OF C IDENTICAL SEGMENTS IN THE STRUCTURAL MODEL. C (B) CYCIO - INPUT-INTEGER-NO DEFAULT. THE INTEGER VALUE C OF THIS PARAMETER SPECIFIES THE FORM OF THE INPUT C AND OUTPUT DATA FOR CYCLIC STRUCTURES. A VALUE C OF +1 IS USED TO SPECIFY PHYSICAL SEGMENT REPRE- C SENTATION AND A VALUE OF -1 FOR CYCLIC TRANSFOR- C MATION REPRESENTATION. C (C) LMAX - INPUT/OUTPUT-INTEGER. THE INTEGER VALUE OF THIS C PARAMETER SPECIFIES THE MAXIMUM TIME HARMONIC C INDEX FOR CYCLIC STRUCTURES. THE DEFAULT VALUE C IS NTSTEPS/2, WHERE NTSTEPS IS THE NUMBER OF C TIME STEPS DEFINED BELOW. C (D) FKMAX - INPUT-INTEGER-NO DEFAULT. FUNCTION OF KMAX. C (E) FLMAX - OUTPUT-INTEGER-NO DEFAULT. FUNCTION OF LMAX. C (F) NTSTEPS - OUTPUT-INTEGER-NO DEFAULT. THE NUMBER OF C TIME STEPS FOUND IN DATA BLOCK TOL. C (G) NORO1 - OUTPUT-INTEGER-NO DEFAULT. NORO1 =-1 IF DATA C BLOCK REORDER1 IS NOT GENERATED. C (H) NORO2 - OUTPUT-INTEGER-NO DEFAULT. NORO2 =-1 IF DATA C BLOCK REORDER2 IS NOT GENERATED. C C 7. METHOD - C C DATA BLOCK TOL IS READ AND THE LIST OF SOLUTION TIMES IS C STORED. SET NTSTEPS TO THE NUMBER OF SOLUTION TIMES READ. C IF NECESSARY COMPUTE THE DEFAULT VALUE OF LMAX AND THEN C COMPUTE FLMAX. C GENERATE TABLE DATA BLOCKS FOL AND FRL. C GENERATE MATRIX DATA BLOCKS REORDER1 AND REORDER2 AND C PARAMETERS NORO1 AND NORO2. C C 8. SUBROUTINES - FVRST2 CALLS SUBROUTINE FVRS2A AND OTHER C STANDARD NASTRAN UTILITY ROUTINES. C C 9. DESIGN REQUIREMENTS - C C (1) OPEN CORE IS DEFINED AT /ZZFVR2/. C (2) NO SCRATCH FILES ARE USED. C (3) FVRST2 RESIDES IN LINKNS07. C (4) OPEN CORE FOR ONE BUFFER+1 IS REQUIRED. C C 10. DIAGNOSTIC MESSAGES - C C THE FOLLOWING MESSAGES MAY BE ISSUED - 3001,3002,3003,3008. C C INTEGER MODNAM(2),FILE,FNAM(2),TRL(7),DUM(2),SYSBUF,TOL, 1 FRL,FOL,REORD1,REORD2,CYCIO,FKMAX,FLMAX DOUBLE PRECISION PERIOD,FREQ,FACT,DPI,DTWOPI,DRADEG,DDEGRA,D4PISQ COMMON /BLANK / NSEGS,CYCIO,LMAX,FKMAX,FLMAX,NTSTPS,NORO1,NORO2 COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,NOUT COMMON /CONDAD/ DPI,DTWOPI,DRADEG,DDEGRA,D4PISQ DATA MODNAM/ 4HFVRS,4HTR2 / DATA TOL, FRL, FOL, REORD1, REORD2 / 1 101, 201, 202, 203, 204 / C C C DETERMINE LENGTH OF OPEN CORE AND ALLOCATE BUFFERS. C NZ = KORSZ(Z) IBUF1 = NZ - SYSBUF NZ = IBUF1 - 1 IF (NZ .LE. 0) GO TO 9908 C C READ DATA BLOCK TOL (TIME OUTPUT LIST). C LIST OF OUTPUT TIME VALUES ARE STORED IN TOL HEADER. C FILE = TOL ITOL = 1 CALL FNAME (FILE,FNAM) CALL OPEN (*9901,FILE,Z(IBUF1),0) CALL FREAD (FILE,DUM,2,0) CALL READ (*9902,*10,FILE,Z(ITOL),NZ,1,NTIMES) C C INSUFFICIENT CORE TO HOLD ALL TIMES. C GO TO 9908 C 10 CALL CLOSE (FILE,1) C NZ = NZ - NTIMES NEXT = NTIMES + 1 IF (NZ .LE. 0) GO TO 9908 C C DEFINE PARAMETER NTSTEPS. C C IF (CYCIO .EQ. -1) NTSTEPS = (NTIMES*FKMAX)/FKMAX C IF (CYCIO .EQ. +1) NTSTEPS = (NTIMES*NSEGS)/NSEGS C NTSTPS = NTIMES C C SET DEFAULT VALUE OF PARAMETER LMAX. C IF (LMAX .LT. 0) LMAX = NTSTPS/2 C C DEFINE PARAMETER FLMAX C KK = (NTSTPS/2)*2 IF (KK .NE. NTSTPS) GO TO 20 C C NTSTPS IS EVEN. C IF (LMAX .NE. NTSTPS/2) GO TO 20 FLMAX = NTSTPS GO TO 30 C C NTSTPS IS ODD. C 20 FLMAX = 2*LMAX + 1 C 30 CONTINUE C C GENERATE DATA BLOCKS FRL AND FOL BY CONVERTING TOL TIMES C TO THE FREQUENCY DOMAIN. C NFREQ= FLMAX IFOL = NEXT NEXT = IFOL + NFREQ NZ = NZ - NFREQ IF (NZ .LE. 0) GO TO 9908 C C GENERATE FREQUENCY LIST FROM TOL TIME LIST. C Z(IFOL) = 0.0 IF (NFREQ .LE. 1) GO TO 60 C PERIOD = DBLE(Z(ITOL+1)) + DBLE(Z(ITOL+NTIMES-1)) FREQ = 1.0D0/PERIOD FACT = 1.0D0 C IFREQ1 = IFOL + 1 IFREQ2 = IFOL + NFREQ - 1 C DO 50 IFREQ = IFREQ1,IFREQ2,2 Z(IFREQ) = FACT*FREQ Z(IFREQ+1) = Z(IFREQ) FACT = FACT + 1.0D0 50 CONTINUE C KK = (NFREQ/2)*2 IF (KK .NE. NFREQ) GO TO 60 Z(IFREQ2) = FACT*FREQ C 60 CONTINUE C C OUTPUT FOL TABLE (FREQUENCY OUTPUT RESPONSE LIST). C FILE = FOL CALL FNAME (FILE,FNAM) CALL OPEN (*9901,FILE,Z(IBUF1),1) CALL WRITE (FILE,FNAM,2,0) CALL WRITE (FILE,Z(IFOL),NFREQ,1) CALL CLOSE (FILE,1) C TRL(1) = FILE TRL(2) = NFREQ TRL(3) = 1 TRL(4) = 0 TRL(5) = 0 TRL(6) = 0 TRL(7) = 0 CALL WRTTRL (TRL) C C GENERATE DATA BLOCK FRL FROM FOL (W = F*2*PI). C USE SAME CORE WHERE FOL IS STORED. C DO 70 IFREQ = IFREQ1,IFREQ2 Z(IFREQ) = Z(IFREQ)*DTWOPI 70 CONTINUE C C OUTPUT FRL TABLE (FREQUENCY RESPONSE LIST). C FILE = FRL CALL FNAME (FILE,FNAM) CALL OPEN (*9901,FILE,Z(IBUF1),1) CALL WRITE (FILE,FNAM,2,0) CALL WRITE (FILE,1,1,1) CALL WRITE (FILE,Z(IFOL),NFREQ,1) CALL CLOSE (FILE,1) C TRL(1) = FILE TRL(2) = 1 TRL(3) = 0 TRL(4) = 0 TRL(5) = 0 TRL(6) = 0 TRL(7) = 0 CALL WRTTRL (TRL) C C GENERATE MATRIX DATA BLOCKS REORDER1 AND REORDER2 USED FOR C REORDERING COLUMNS OF A MATRIX BY POST-MULTIPLYING THE MATRIX C WHOSE COLUMNS ARE TO BE REORDERED. C K1 = NTSTPS K3 = FLMAX IF (CYCIO .EQ. -1) K2 = FKMAX IF (CYCIO .EQ. +1) K2 = NSEGS C C GENERATE MATRIX REORDER1 C CALL FVRS2A (REORD1,K1,K2,NORO1,Z(IBUF1)) C C GENERATE MATRIX REORDER2 C CALL FVRS2A (REORD2,K2,K3,NORO2,Z(IBUF1)) C RETURN C C ERROR PROCESSING C C DATA SET NOT IN FIST C 9901 IP1 = -1 GO TO 9999 C C E-O-F ENCOUNTERED C 9902 IP1 = -2 GO TO 9999 C C E-O-L ENCOUNTERED C 9908 IP1 = -8 GO TO 9999 9999 CALL MESAGE (IP1,FILE,MODNAM) CALL MESAGE (-37,0,MODNAM) C RETURN END ================================================ FILE: mis/fwmw.f ================================================ SUBROUTINE FWMW (ND,NE,SGS,CGS,IRB,A0,ARB,XBLE,XBTE,YB,ZB,XS, 1 YS,ZS,NAS,NASB,KR,BETA2,CBAR,AVR,FWZ,FWY) C C CALCULATES THE EFFECT OF A DOUBLET PLUS ANY CONTRIBUTIONS DUE TO C IMAGES, SYMMETRY AND GROUND EFFECT ON BODY C COMPLEX FWZ,FWY DIMENSION YB(1),ZB(1),NASB(1),AVR(1),ARB(1) C C ND SYMMETRY FLAG C NE GROUND EFFECTS FLAG C SGS SINE OF SENDING POINT DIHEDRAL ANGLE C CGS COSINE OF SENDING POINT DIHEDRAL ANGLE C IRB NUMBER OF THE RECEIVING BODY C A0 RADIUS OF THE BODY C ARB ARRAY OF RATIOS OF BODY AXIS C XBLE LEADING EDGE COORDINATE OF SLENDER BODY ELEMENT C XBTE TRAILING EDGE COORDINATE OF SLENDER BODY ELEMENT C YB ARRAY CONTAINING THE Y-COORDINATES OF THE BODIES C ZB ARRAY CONTAINING THE Y-COORDINATES OF THE BODIES C XS 1/4-CHORD X-COORDINATE OF SLENDER BODY ELEMENT C YS Y-COORDINATE OF SENDING POINT C ZS Z COORDINATE OF THE SENDING POINT C NAS NUMBER OF ASSOCIATED BODIES C NASB ARRAY CONTAINING THE ASSOCIATED BODY NOS. C KR REDUCED FREQUENCY C BETA2 = 1 - MACH**2 C CBAR REFERENCE CHARD LENGTH C AVR ARRAY OF BODY RADII C FWZ OUTPUT Z-FORCE C FWY OUTPUT Y FORCE C FWZ = CMPLX(0.0,0.0) FWY = CMPLX(0.0,0.0) C DMMY = 0.0 INFL = 1 C C ARG-R ARGUMENTS C DYB = YB(IRB) DZB = ZB(IRB) DA = A0 DELEPS = 1.0 C = CGS S =-SGS DY = YS DZ = ZS ITYPE= 1 K = 1 ASSIGN 100 TO IRET1 GO TO 2000 100 SY = 1.0 SZ = 1.0 SG = SGS ASSIGN 200 TO IRET1 GO TO 5000 200 CONTINUE C C CHECK SYMMETRY FLAG. BRANCH IF EQUAL TO ZERO C IF (ND .EQ. 0) GO TO 700 C C PORTION FOR SYMMETRIC CALCULATIONS C DELEPS = ND C = CGS S = SGS DY =-YS DZ = ZS ITYPE= 1 K = 2 ASSIGN 300 TO IRET1 GO TO 2000 300 CONTINUE SY =-1.0 SZ = 1.0 SG =-SGS ASSIGN 400 TO IRET1 GO TO 5000 400 CONTINUE C C CHECK GROUND EFFECTS FLAG. SKIP IF ZERO C IF (NE .EQ. 0) GO TO 7000 C C PORTION FOR COMBINATION OF SYMMETRY AND GROUND EFFECTS C ITYPE = 1 K = 3 DELEPS= ND*NE C = CGS S =-SGS DY =-YS DZ =-ZS ASSIGN 500 TO IRET1 GO TO 2000 500 CONTINUE SY =-1.0 SG = SGS SZ =-1.0 ASSIGN 600 TO IRET1 GO TO 5000 600 CONTINUE GO TO 800 C C SKIP GROUND EFFECTS CALCULATIONS IF FLAG IS ZERO C 700 IF (NE .EQ. 0) GO TO 7000 C C PORTION FOR GROUND EFFECTS ONLY C 800 CONTINUE DELEPS = NE DY = YS DZ =-ZS C = CGS S = SGS ITYPE= 1 K = 4 ASSIGN 900 TO IRET1 GO TO 2000 900 CONTINUE SY = 1.0 SZ =-1.0 SG =-SGS ASSIGN 1000 TO IRET1 GO TO 5000 1000 CONTINUE RETURN C C CALCULATION OF EFFECTIVE FORCES C 2000 CONTINUE RHO2 = (DY-DYB)**2 + (DZ-DZB)**2 RHO = SQRT(RHO2) B = AVR(IRB)*ARB(IRB) RHODB= RHO/B F = 1.0 IF (RHO .LE. B) GO TO 2020 F = RHODB/(ARB(IRB)*(RHODB-1.0)+1.0) 2020 CONTINUE ZBAR = (DZ-DZB)/(F*ARB(IRB)) + DZB CALL FZY2 (XS,XBLE,XBTE,DY,ZBAR,DYB,DZB,DA,BETA2,CBAR,KR,DFZZR, 1 DFZZI,DFZYR,DFZYI,DFYZR,DFYZI,DFYYR,DFYYI) C FWZR = C*DFZZR + S*DFZYR FWZI = C*DFZZI + S*DFZYI FWZ = FWZ + DELEPS*CMPLX(FWZR,FWZI) FWYR = C*DFYZR + S*DFYYR FWYI = C*DFYZI + S*DFYYI FWY = FWY + DELEPS*CMPLX(FWYR,FWYI) 2060 GO TO (3000,6000), ITYPE 3000 GO TO IRET1, (100,200,300,400,500,600,800,900,1000) C C CALCULATION LOOP FOR ASSOCIATED BODIES C 5000 IF (NAS .LE. 0) GO TO 3000 I = 1 ITYPE = 2 5100 IB = NASB(I) C C CHECK TO SEE IF THE ASSOCIATED BODY IS THE RECEIVING BODY. C IF (IB .NE. IRB) GO TO 5800 C C IF IT IS DETERMINE IF THE SENDING POINT IS OUTSIDE OR INSIDE THE C BODY. C GO TO (5600,5500,5400,5300), K 5300 IF (DYB .NE. 0.0) GO TO 5800 GO TO 5800 5400 IF (DYB .NE. 0.0) GO TO 5800 5500 IF (DZB .NE. 0.0) GO TO 5800 5600 CONTINUE 5800 CONTINUE ETA = SY*YS ZETA = SZ*ZS ZBI = SZ*ZB(IB) YBI = SY*YB(IB) DARIB = ARB(IB) DAIB = AVR(IB) CALL SUBI (DAIB,ZBI,YBI,DARIB,ETA,ZETA,CGS,SG,DMMY,DMMY,DMMY,DY, 1 DZ,DMMY,DMMY,DMMY,DMMY,S,C,INFL,IOUTFL) IF (IOUTFL) 2000,2060,2000 6000 I = I + 1 IF (I - NAS) 5100,5100,3000 7000 RETURN END ================================================ FILE: mis/fzy2.f ================================================ SUBROUTINE FZY2 (XIJ, X1, X2,ETA,ZETA, YB, ZB, A, BETA2,CBAR, K, 1 FZZR, FZZI, FZYR, FZYI, FYZR, FYZI, FYYR, FYYI) C *** THIS SUBROUTINE IS AN ALTERNATIVE TO SUBROUTINE FMZY --- C IT IS USED WHENEVER THE OPTION FLAG IBFS = 1 C *** REAL M,K,KBAR,KBAR2,I1,I2,I3,I4,I5,I6,I7,I8,I9,I10,I11,KBAR3 DATA LASTBR /0/ DATA TEST1,TEST2,CTH,STH,RAIJ,RAIJ2 /0.142857, 0.5, 1.0,3*0.0/ DATA CAPDR,CAPDI,I1,I2,I3,I4,I5,I6,I7,I8,I9,I10,I11/ 13*0.0 / M = SQRT(1.0 - BETA2) IF (K. LE .0.0001 . AND . M. LE .0.0001) GO TO 110 KBAR = 2.0 *K *M *A / CBAR KBAR2 = KBAR*KBAR GO TO 120 110 CONTINUE KBAR = 0.0 KBAR2 = 0.0 120 XA = 0.5 * (X1 + X2) DX = X2 - X1 A2 = A * A EPS = 0.001 * A2 IF (ETA. EQ .YB. AND . ZETA. EQ .ZB) GO TO 130 RAIJ2 = (ETA-YB)**2 + (ZETA-ZB)**2 RAIJ = SQRT(RAIJ2) CTH = (ETA- YB) / RAIJ STH = (ZETA-ZB) / RAIJ IF (RAIJ2. GT .A2) GO TO 150 GO TO 140 130 CONTINUE RAIJ = 0.0 RAIJ2 = 0.0 CTH = 1.0 STH = 0.0 140 RWIG2 = A2 GO TO 160 150 RWIG2 = RAIJ2 160 RAA = SQRT((XA -XIJ)**2 + BETA2*RWIG2) CT2 = CTH*CTH ST2 = 0.0 IF (ABS(STH) . GT . 0.0001) ST2=STH*STH RWIG = SQRT(RWIG2) RAA2 = RAA * RAA RAA3 = RAA * RAA2 RAA4 = RAA * RAA3 CAPA = M - (XA- XIJ) / RAA DELTA = DX / RAA DELTA2 = DELTA * DELTA EARG = 0.0 IF (KBAR . LE . 0.0001) GO TO 180 EARG = KBAR * (M * (XA-XIJ) - RAA) / (BETA2 * A) QR = COS(EARG) / (4.0 * DX) QI = SIN(EARG) / (4.0 * DX) GO TO 190 180 QR = 1.0 / (4.0 * DX) QI = 0.0 190 CONTINUE IF (DELTA. GT . TEST1) GO TO 240 I1 = DELTA / RAA2 TRM1 = BETA2 * A * I1 FTHR = A * QR * TRM1 FTHI = A * QI * TRM1 IF (KBAR. LE .0.0001) GO TO 210 I4 = DELTA / RAA TRM2 = KBAR * I4 FTHR = FTHR - A * QI * TRM2 FTHI = FTHI + A * QR * TRM2 210 CONTINUE IF (RAIJ2. GT . (A2+EPS)) GO TO 220 FRR = FTHR FRI = FTHI GO TO 370 220 I6 = DELTA / RAA4 TRM1 = -3.0 * A2 * BETA2*BETA2 * I6 CAPDR = RAIJ2 * QR * TRM1 CAPDI = RAIJ2 * QI * TRM1 IF (KBAR . LE . 0.0001) GO TO 230 I9 = DELTA / RAA3 TRM1 = TRM1 + KBAR2 * I1 TRM2 = -3.0 * A * BETA2 * KBAR * I9 CAPDR = RAIJ2 * (QR * TRM1 - QI * TRM2) CAPDI = RAIJ2 * (QR * TRM2 + QI * TRM1) 230 FRR = FTHR + CAPDR FRI = FTHI + CAPDI GO TO 370 240 CONTINUE IF (DELTA . GT . TEST2) GO TO 320 LASTBR = 0 TAU = (XA - XIJ) / RAA TAU2 = TAU * TAU I1 = DELTA * (1.0 - (-1.0+5.0*TAU2)*DELTA2/8.0) / RAA2 250 TRM1 = A * BETA2 * I1 FTHR = A * QR * TRM1 FTHI = A * QI * TRM1 IF (KBAR . LE . 0.0001) GO TO 270 IF (LASTBR . NE . 0) GO TO 350 DELTA3 = DELTA * DELTA2 I2 = -(TAU * DELTA3) / (4.0 * RAA) I3 = DELTA3 / 12.0 I4 = DELTA * (1.0 + (-1.0+3.0*TAU2)*DELTA2/12.0) / RAA I5 = -(TAU * DELTA3) / 6.0 260 TRM1 = TRM1 - (KBAR2 * CAPA * I5) / (A * BETA2) TRM2 = KBAR * (CAPA * I2 + I4 - I3*BETA2*RWIG2/(2.0*RAA3) ) FTHR = A * (QR * TRM1 - QI * TRM2) FTHI = A * (QR * TRM2 + QI * TRM1) 270 IF (RAIJ2. GT . (A2+EPS)) GO TO 280 FRR = FTHR FRI = FTHI GO TO 370 280 CONTINUE KBAR3 = KBAR*KBAR2 IF (LASTBR . NE . 0) GO TO 340 I6 = DELTA * (1.0 + 5.0*(-1.0+7.0*TAU2)*DELTA2/24.0) / RAA4 290 TRM1 = -3.0 * A2 * BETA2*BETA2 * I6 CAPDR = RAIJ2 * QR * TRM1 CAPDI = RAIJ2 * QI * TRM1 IF (KBAR . LE . 0.0001) GO TO 310 IF (LASTBR . NE . 0) GO TO 360 I7 = -5.0 * TAU * DELTA3 / (12.0 * RAA3) I8 = DELTA3 / (12.0 * RAA2) I9 = DELTA * (1.0 + (-1.0+6.0*TAU2)*DELTA2/6.0) / RAA3 I10 = -DELTA3 * TAU / (3.0 * RAA2) 300 TRM1 = TRM1 + KBAR2 * (I1 + 3.0 * CAPA * I10) TRM2 = 3.0*A*BETA2 * KBAR * (-CAPA*I7 +I8*BETA2*RWIG2/(2.0*RAA3) 1 -I9) + KBAR3 * CAPA * I2 / (A * BETA2) CAPDR = RAIJ2 * (QR * TRM1 - QI * TRM2) CAPDI = RAIJ2 * (QR * TRM2 + QI * TRM1) 310 FRR = FTHR + CAPDR FRI = FTHI + CAPDI GO TO 370 320 CONTINUE LASTBR = 1 RWIG = SQRT(RWIG2) RA12 = (X1 - XIJ)**2 + BETA2 * RWIG2 RA22 = (X2 - XIJ)**2 + BETA2 * RWIG2 RA1 = SQRT(RA12) RA2 = SQRT(RA22) I1 = ((X2-XIJ)/RA2 - (X1-XIJ)/RA1) / (BETA2*RWIG2) GO TO 250 340 CONTINUE RA13 = RA1 * RA12 RA23 = RA2 * RA22 I6 = ((X2-XIJ)/RA23-(X1-XIJ)/RA13 + 2.0*I1)/(3.0*BETA2*RWIG2) GO TO 290 350 PART1 = 0.5 * DX * (XA - XIJ) I2 = -((PART1+RAA2)/RA2 + (PART1-RAA2)/RA1)/ (BETA2*RWIG2) DENOM = X1 - XIJ + RA1 I11 = ALOG(ABS((X2 - XIJ + RA2) / DENOM)) I3 = I11 - 2.0*(XA - XIJ)*I2 - RAA2 * I1 DENO4 = SQRT(BETA2) * RWIG ARG1 = (X2 - XIJ) / DENO4 ARG2 = (X1 - XIJ) / DENO4 I4 = (ATAN(ARG1) - ATAN(ARG2)) / DENO4 I5 = 0.5 * ALOG(RA22 / RA12) - (XA - XIJ) * I4 GO TO 260 360 CONTINUE I7 = -(1.0/RA23 - 1.0/RA13) / 3.0 - (XA - XIJ) * I6 I8 = I1 - 2.0 * (XA - XIJ) * I7 - RAA2 * I6 I9 = ((X2-XIJ)/RA22-(X1-XIJ)/RA12 + I4) / (2.0*BETA2*RWIG2) I10 = -((PART1 + RAA2)/RA22 + (PART1 - RAA2)/RA12 + 1 (XA - XIJ) * I4) / (2.0 * BETA2 * RWIG2) GO TO 300 370 CONTINUE FZZR = CT2 * FTHR + ST2 * FRR FZZI = CT2 * FTHI + ST2 * FRI FYYR = ST2 * FTHR + CT2 * FRR FYYI = ST2 * FTHI + CT2 * FRI IF (CTH. EQ .0.0 . OR . STH. EQ . 0.0) GO TO 400 FZYR = CTH * STH * (FRR - FTHR) FZYI = CTH * STH * (FRI - FTHI) GO TO 410 400 FZYR = 0.0 FZYI = 0.0 410 CONTINUE FYZR = FZYR FYZI = FZYI RETURN END ================================================ FILE: mis/gauss.f ================================================ SUBROUTINE GAUSS (A,N,N2) C COMPLEX A(20,1) C DO 100 I=1,N K=I+1 DO 10 J=K,N2 10 A(I,J)=A(I,J)/A(I,I) DO 30 M=1,N IF(M.EQ.I) GO TO 30 DO 20 L=K,N2 20 A(M,L)=A(M,L)-A(M,I)*A(I,L) 30 CONTINUE 100 CONTINUE RETURN END ================================================ FILE: mis/gauss2.f ================================================ SUBROUTINE GAUSS2 (A,N,N2) C COMPLEX A(20,1) DOUBLE COMPLEX DA(20,30) C DO 5 I = 1, N DO 5 J = 1, N2 DA(I,J) = A(I,J) 5 CONTINUE DO 100 I=1,N K=I+1 DO 10 J=K,N2 10 DA(I,J)=DA(I,J)/DA(I,I) DO 30 M=1,N IF(M.EQ.I) GO TO 30 DO 20 L=K,N2 20 DA(M,L)=DA(M,L)-DA(M,I)*DA(I,L) 30 CONTINUE 100 CONTINUE DO 150 I = 1, N DO 150 J = 1, N2 A(I,J) = DA(I,J) 150 CONTINUE RETURN END ================================================ FILE: mis/geloop.f ================================================ SUBROUTINE GELOOP(RBUF,BUF,XX,YY,ZZ,HC1,HC2,HC3) C C GELOOP COMPUTES MAGNETIC FIELD COMPONENTS HC1,HC2,HC3(IN BASIC C COORDS. AT XX,YY,ZZ DUE TO GEMLOOP CARD. DATA FIELDS(EXCEPT SET ID) C OF GEMLOOP ARE IN RBUF=REAL AND BUF=INTEGER C INTEGER BUF(50),TI1,TI2 DIMENSION RBUF(50),ZI(3),ZJ(3),ZK(3),ZJXI(3) DATA FPI/12.566371/ C HC1=0. HC2=0. HC3=0. C XI=RBUF(1) C C ICID IS 0 FOR NOW AND UNUSED C ICID=BUF(2) NPTS=BUF(3) NPTSM1=NPTS-1 DO 10 I=1,NPTSM1 C C 2 CONSECUTIVE POINTS DEFINE A SEGMENT OF A COIL. LET ZI BE THE VECTOR C FROM 1ST POINT OF SEGMENT TO 2ND. LET ZJ BE VECTOR FROM FILED POINT C XX,YY,ZZ TO 1ST POINT OF SEGMENT. ZK IS VECTOR FROM FILED POINT C TO 2ND POINT. IF THE FILED POINT LIES ON A SEGMENT, IGNORE THE C COMPUTATION FOR THAT SEGMENT FOR THAT POINT C TI1=3*I+3 TI2=3*(I+1)+3 ZI(1)=RBUF(TI2-2)-RBUF(TI1-2) ZI(2)=RBUF(TI2-1)-RBUF(TI1-1) ZI(3)=RBUF(TI2)-RBUF(TI1) ZJ(1)=RBUF(TI1-2)-XX ZJ(2)=RBUF(TI1-1)-YY ZJ(3)=RBUF(TI1)-ZZ ZK(1)=RBUF(TI2-2)-XX ZK(2)=RBUF(TI2-1)-YY ZK(3)=RBUF(TI2)-ZZ C ZKL=SQRT(ZK(1)**2+ZK(2)**2+ZK(3)**2) IF(ZKL.LT.1.E-8)GO TO 10 ZJL=SQRT(ZJ(1)**2+ZJ(2)**2+ZJ(3)**2) IF(ZJL.LT.1.E-8)GO TO 10 ZDOT=0. DO 5 II=1,3 ZDOT=ZDOT+ZI(II)*(ZK(II)/ZKL-ZJ(II)/ZJL) 5 CONTINUE ZJXI(1)=ZJ(2)*ZI(3)-ZJ(3)*ZI(2) ZJXI(2)=ZJ(3)*ZI(1)-ZJ(1)*ZI(3) ZJXI(3)=ZJ(1)*ZI(2)-ZJ(2)*ZI(1) ZLEN2=ZJXI(1)**2+ZJXI(2)**2+ZJXI(3)**2 IF(ZLEN2.LT.1.E-8)GO TO 10 FACTOR=XI*ZDOT/FPI/ZLEN2 HC1=HC1+ZJXI(1)*FACTOR HC2=HC2+ZJXI(2)*FACTOR HC3=HC3+ZJXI(3)*FACTOR 10 CONTINUE RETURN END ================================================ FILE: mis/gencos.f ================================================ SUBROUTINE GENCOS C C GENCOS GENERATES DIRECTION COSINE MATRIX, UP TO NX3, FOR DDAM. C THE SHOCK DIRECTIONS ARE GIVEN BY A COORDINATE SYSTEM (PROBABLY C RECTANGULAR, BUT NOT NECESSARILY) DEFINED ON A CORDIJ CARD. C THE ID OF THAT SYSTEM MUST BE SPECIFIED BY PARAM SHOCK ID. C THE DIRECTIONS OF INTEREST MUST BE SPECIFIED ON A PARAM DIRECT DIR C CARD WHERE DIR=1,2,3,12,13,23,OR 123 GIVING THE SHOCK DIRECTIONS C DESIRED IN THE SHOCK COORDINATE SYSTEM. (DEFAULT IS 123) WE WILL C BE CONVERTING A ROW VECTOR IN THE GLOBAL SYSTEM TO A ROW VECTOR IN C THE SHOCK SYSTEM. TO CONVERT A COLUMN VECTOR FROM GLOBAL TO SHOCK C FIRST CONVERT TO BASIC. THEN TRANSFORM FROM BASIC TO SHOCK, I.E. C (VECTOR-SHOCK) = (TRANSPOSE(T-SHOCK TO BASIC))* C (T-GLOBAL TO BASIC)*(VECTOR-GLOBAL) C BUT BECAUSE WE ARE TRANSFORMING ROW VECTORS, THE EQUATION IS C TRANSPOSED . NSCALE =1 MEANS THERE ARE SCALAR POINTS,=0 MEANS NO C C GENCOS BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/ C V,N,LUSET/V,N,NSCALE $ C LOGICAL REC,ALL INTEGER BGPDT,CSTM,DIRCOS,BUF1,FILE,SHOCK,DIRECT,OTPE DIMENSION NAM(2),MCB(7),IZ(1),TSHOCK(9),COORD(4),ICOORD(4), 1 TPOINT(9),TFINAL(9),IDIR(3),ISUB(3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / SHOCK,DIRECT,LUSET,NSCALE COMMON /SYSTEM/ IBUF,OTPE COMMON /PACKX / IN,IOUT,II,NN,INCR COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)), (COORD(1),ICOORD(1)) DATA BGPDT , CSTM,DIRCOS / 101,102,201 / DATA NAM / 4HGENC,4HOS / C C OPEN CORE AND BUFFERS C LCORE = KORSZ(Z) BUF1 = LCORE - IBUF + 1 LCORE = BUF1 - 1 IF (LCORE .LE. 0) GO TO 1008 C C CHECK FOR SCALAR POINTS AND SET NSCALE C MCB(1) = BGPDT CALL RDTRL (MCB) NPTS = MCB(2) CALL GOPEN (BGPDT,Z(BUF1),0) DO 1 I = 1,NPTS CALL FREAD (BGPDT,COORD,4,0) IF (ICOORD(1) .EQ. -1) GO TO 2 1 CONTINUE NSCALE = 0 GO TO 3 2 NSCALE = 1 3 CALL CLOSE (BGPDT,1) C IF (DIRECT.GE.1 .AND. DIRECT.LE.3) GO TO 5 IF (DIRECT.NE.12 .AND. DIRECT.NE.13 .AND. DIRECT.NE.23 .AND. 1 DIRECT.NE.123) GO TO 500 5 IF (SHOCK .LT. 0) GO TO 500 NCSTM = 0 NCOUNT = 0 ALL = .FALSE. REC = .FALSE. NDIR = 2 IF (DIRECT .LE. 3) NDIR = 1 IF (DIRECT .EQ. 123) NDIR = 3 IF (LUSET*NDIR .GT. LCORE) GO TO 1008 C GO TO (6,7,8), NDIR C 6 IDIR(1) = DIRECT GO TO 9 C 7 IF (DIRECT .EQ. 23) GO TO 175 IDIR(1) = 1 IDIR(2) = 2 IF (DIRECT .EQ. 13) IDIR(2) = 3 GO TO 9 175 IDIR(1) = 2 IDIR(2) = 3 GO TO 9 C 8 IDIR(1) = 1 IDIR(2) = 2 IDIR(3) = 3 9 CONTINUE C C C READ CSTM FOR FETCHING TRANSFORMATION MATRICES C CALL OPEN (*10,CSTM,Z(BUF1),0) GO TO 30 C C CSTM IS PURGED. SO, GLOBAL SYSTEM IS BASIC AND SHOCK SYSTEM MUST C BE ALSO. IF SHOCK SYSTEM IS NOT 0, FATAL MESSAGE. IF IT IS 0, C THEN NEED ONLY IDENTITIES. C 10 IF (SHOCK .EQ. 0) GO TO 25 WRITE (OTPE,20) UFM 20 FORMAT (A23,', IN GENCOS, CSTM IS PURGED AND SHOCK COORDINATE ', 1 'SYSTEM IS NOT BASIC') CALL MESAGE (-61,0,0) C C EVERYTHING IS BASIC - CHECK FOR SCALAR POINTS - IF THEY EXIST, C WE MUST READ BGPDT C 25 IF (NSCALE .EQ. 1) GO TO 55 ALL = .TRUE. ISYS = 0 GO TO 130 C 30 FILE = CSTM CALL FWDREC (*1002,CSTM) CALL READ (*1002,*40,CSTM,Z,LCORE,0,NCSTM) GO TO 1008 40 CALL CLOSE (CSTM,1) C C CHECK FOR ENOUGH OPEN CORE C IF (NCSTM+LUSET*NDIR .GT. LCORE) GO TO 1008 CALL PRETRS (Z(1),NCSTM) C C IF SHOCK COORDINATE SYSTEM IS RECTANGULAR, LET'S GET THE TRANS- C FORMATION MATRIX ONCE SINCE IT WILL NOT BE POINT-DEPENDENT. C IF (SHOCK .EQ. 0) GO TO 55 DO 50 I = 1,NCSTM,14 IF (SHOCK .NE. IZ(I)) GO TO 50 IF (IZ(I+1) .NE. 1) GO TO 60 C C RECTANGULAR C REC = .TRUE. DO 45 J = 1,9 45 TSHOCK(J) = Z(I+J+4) GO TO 60 50 CONTINUE C C CAN'T FIND SHOCK COORDINATE SYSTEM C CALL MESAGE (-30,25,SHOCK) C C SHOCK IS BASIC C 55 REC = .TRUE. DO 56 I = 1,9 56 TSHOCK(I) = 0. TSHOCK(1) = 1. TSHOCK(5) = 1. TSHOCK(9) = 1. C C OPEN BGPDT TO GET GRID POINT OUTPUT COORDINATE SYSTEMS AND C BASIC COORDINATES C 60 CALL GOPEN (BGPDT,Z(BUF1),0) FILE = BGPDT 70 CALL READ (*1002,*210,BGPDT,COORD,4,0,IWORDS) ISYS = ICOORD(1) IF (ICOORD(1) .EQ. -1) GO TO 150 IF (ICOORD(1) .NE. 0) GO TO 80 C C IDENTITY - BASIC SYSTEM C DO 75 I = 1,9 75 TPOINT(I) = 0. TPOINT(1) = 1. TPOINT(5) = 1. TPOINT(9) = 1. GO TO 85 C C FETCH GLOBAL-TO-BASIC MATRIX FOR THIS POINT C 80 CALL TRANSS (COORD,TPOINT) C C IF SHOCK IS NOT RECTANGULAR, FETCH SHOCK-TO-BASIC FOR THIS POINT C 85 IF (REC) GO TO 90 ICOORD(1) = SHOCK CALL TRANSS (COORD,TSHOCK) C C THE MATRIX WE NEED IS (TRANSPOSE(TPOINT))*(TSHOCK) C 90 IF (SHOCK .EQ. 0) GO TO 100 IF (ISYS .EQ. 0) GO TO 110 C C NEITHER MATRIX IS NECESSARILY IDENTITY C CALL GMMATS (TPOINT,3,3,1,TSHOCK,3,3,0,TFINAL) GO TO 150 C C TSHOCK IS IDENTITY C 100 IF (ISYS .EQ. 0) GO TO 130 C C BUT TPOINT IS NOT C TFINAL(1) = TPOINT(1) TFINAL(2) = TPOINT(4) TFINAL(3) = TPOINT(7) TFINAL(4) = TPOINT(2) TFINAL(5) = TPOINT(5) TFINAL(6) = TPOINT(8) TFINAL(7) = TPOINT(3) TFINAL(8) = TPOINT(6) TFINAL(9) = TPOINT(9) GO TO 150 C C TPOINT IS IDENTITY, BUT TSHOCK IS NOT C 110 DO 120 I = 1,9 120 TFINAL(I) = TSHOCK(I) GO TO 150 C C BOTH ARE IDENTITY C 130 DO 140 I = 1,9 140 TFINAL(I) = 0. TFINAL(1) = 1. TFINAL(5) = 1. TFINAL(9) = 1. C C STORE TFINAL BY INTERNAL ORDERING AND DIRECTIONS REQUESTED START- C ING AT Z(NCSTM+1) - MAKE UP TO 3 COLUMNS OF LUSET EACH C 150 ISUB(1) = NCSTM + NCOUNT ISUB(2) = ISUB(1) + LUSET ISUB(3) = ISUB(2) + LUSET C DO 200 I = 1,NDIR IP = IDIR(I) JSUB = ISUB(I) IF (ISYS .EQ. -1) GO TO 195 Z(JSUB+1) = TFINAL(IP ) Z(JSUB+2) = TFINAL(IP+3) Z(JSUB+3) = TFINAL(IP+6) Z(JSUB+4) = 0. Z(JSUB+5) = 0. Z(JSUB+6) = 0. GO TO 200 C C SCALAR C 195 Z(JSUB+1) = 1. 200 CONTINUE C C GO BACK FOR ANOTHER POINT C NCOUNT = NCOUNT + 6 IF (ISYS .EQ. -1) NCOUNT = NCOUNT - 5 IF (.NOT.ALL) GO TO 70 IF (NCOUNT .EQ. LUSET) GO TO 210 GO TO 150 C C DONE WITH ALL POINTS - PACK RESULTS C 210 IF (.NOT.ALL) CALL CLOSE (BGPDT,1) CALL GOPEN (DIRCOS,Z(BUF1),1) IN = 1 IOUT = 1 II = 1 NN = LUSET INCR = 1 MCB(1) = DIRCOS MCB(2) = 0 MCB(3) = LUSET MCB(4) = 2 MCB(5) = 1 MCB(6) = 0 MCB(7) = 0 DO 220 I = 1,NDIR JSUB = NCSTM + LUSET*(I-1) CALL PACK (Z(JSUB+1),DIRCOS,MCB) 220 CONTINUE C CALL CLOSE (DIRCOS,1) CALL WRTTRL (MCB) RETURN C 500 WRITE (OTPE,510) UFM,SHOCK,DIRECT 510 FORMAT (A23,', SHOCK AND DIRECT ARE',2I10, /10X,'RESPECTIVELY. ', 1 'SHOCK MUST BE NONNEGATIVE AND DIRECT MUST BE EITHER 1,2', 2 ',3,12,13,23, OR 123') CALL MESAGE (-61,0,0) C 1002 N = -2 GO TO 1010 1008 N = -8 FILE = 0 1010 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/gend.f ================================================ SUBROUTINE GEND(NCARAY,NBARAY,YS,ZS,SG,CG,DT,WORK,MATOUT) C GENERATE THE INFLUENCE COEFFICIENT MATRIX ADPP COMPLEX DT DIMENSION NCARAY(1),NBARAY(1),YS(1),ZS(1),SG(1),CG(1), 1 DT(1),WORK(1) COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK COMMON /DLCOM / NP,NSTRIP,NTP,F,NJJ,NEXT,LENGTH, 1 INC,INB,IYS,IZS,IEE,ISG,ICG, 2 IXIC,IDELX,IXLAM,IDT, 3 ICORE I1 = 1 I2 = NTP J1 = 1 J2 = NTP C C POSITION IN DT TO START OF THIS PART OF MATRIX C IDTPT = I1 + NROW DO 10 I = I1,NJJ 10 DT(I) = (0.0,0.0) C DPP LOOP K = 1 C K IS THE PANEL NUMBER KS = 1 C KS IS THE STRIP NUMBER NBXR = NCARAY(K) DO 60 I = I1,I2 SGR = SG(KS) CGR = CG(KS) CALL DPPS(KS,I,J1,J2,SGR,CGR,YS,ZS,NBARAY,NCARAY,DT(IDTPT),WORK) CALL PACK(DT,MATOUT,MCB) IF(I.EQ.I2) GO TO 60 IF(I.EQ.NBARAY(K)) K=K+1 IF(I.EQ.NBXR) GO TO 50 GO TO 60 50 CONTINUE KS = KS +1 NBXR = NBXR + NCARAY(K) 60 CONTINUE RETURN END ================================================ FILE: mis/gendsb.f ================================================ SUBROUTINE GENDSB(NCARAY,NBARAY,SG,CG,NFL,NBEA1,NBEA2,IFLA1, * IFLA2,DT,DPZ,DPY) INTEGER SCR1,SCR2,SCR3,SCR4,SCR5,ECORE,SYSBUF INTEGER Z DIMENSION NAME(2) DIMENSION NCARAY(1),NBARAY(1),SG(1),CG(1),NFL(1),NBEA1(1) DIMENSION NBEA2(1),IFLA1(1),IFLA2(1) COMPLEX DT(1),DPZ(1),DPY(1) COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ / Z(1) COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NTO,NTZS,NTYS, * INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB, * IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG, * ICG,IXIJ,IX,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA, * INASB,IFLAX,IFLA ,ITH1A,ITH2A, * ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5,NTBE DATA NAME /4HGEND,4HB / C *** GENERATES THE INFLUENCE COEFFICIENT MATRIX DT USING THE C FOLLOWING FOUR SUBROUTINES -- DPPS, DPZY, DZPY, AND DYPZ NBOX = NTP LBO = 1 LSO = 1 JBO = 1 KB = 0 KT = 0 DO 40 I=1,NTBE DPY(I) = (0.0,0.0) DT(I) = (0.0,0.0) 40 CONTINUE NBUF = 4 IF(NTP.EQ.0) NBUF = NBUF - 1 IF(NTZ.EQ.0) NBUF = NBUF - 1 IF(NTY.EQ.0) NBUF = NBUF - 2 IF(NEXT + NBUF*SYSBUF .GT. ECORE) CALL MESAGE(-8,0,NAME) IBUF1 = ECORE - SYSBUF IBUF2 = IBUF1 - SYSBUF NSTRIP = 0 J2 = 0 I2 = 0 NYFLAG = 0 IF(NTP.NE.0) CALL GOPEN(SCR1,Z(IBUF1),1) IF(NTP .EQ.0) GO TO 201 I1 = 1 I2 = NTP J1 = 1 J2 = NTP C DPP-LOOP K = 1 C K IS THE PANEL NUMBER ASSOCIATED WITH RECEIVING POINT I KS = 1 C KS IS THE STRIP NUMBER ASSOCIATED WITH RECEIVING POINT I NBXR = NCARAY(K) DO 60 I=I1,I2 SGR = SG(KS) CGR = CG(KS) CALL DPPSB( KS,I,J1,J2,SGR,CGR, Z(IYS),Z(IZS), * NBARAY,NCARAY,DT,Z(1)) CALL WRITE(SCR1,DT,2*NTP,0) IF (I.EQ.I2) GO TO 60 IF (I.EQ.NBARAY(K)) K=K+1 IF (I.EQ.NBXR) GO TO 50 GO TO 60 50 CONTINUE KS = KS+1 NBXR = NBXR+NCARAY(K) 60 CONTINUE CALL WRITE(SCR1,0,0,1) NSTRIP = KS NZYSV= 0 DO 70 J=J1,J2 DT(J)= (0.0,0.0) 70 CONTINUE NLT1 = 0 NLT2 = 0 IF (NTZ.EQ.0) GO TO 180 IF(NTY.NE.0) CALL GOPEN(SCR4,Z(IBUF2),1) I1 = I2+1 I2 = I2+NTZ C DPZ-LOOP ** ALSO USED FOR GENERATING THE DPY-MATRIX -- SEE C COMMENT IN DPY-LOOP BELOW 80 CONTINUE KB = KB+1 C KB IS THE BODY NUMBER ASSOCIATED WITH RECEIVING POINT I IZ = 0 KT = KT+1 C KT IS THE INDEX OF THE ARRAY OF FIRST-AND-LAST-ELEMENTS FOR THETA-1 ICOUNT = 1 IFL = NFL(KB) NZYKB = NBEA2(KB) IFIRST = IFLA1(KT) ILAST = IFLA2(KT) DO 170 I=I1,I2 DO 90 J=J1,J2 DPZ(J) = (0.0,0.0) DPY(J) = (0.0,0.0) 90 CONTINUE CALL DPZY( KB,IZ,I,J1,J2,IFIRST,ILAST,Z(IYB), * Z(IZB),Z(IAVR),Z(IARB),Z(ITH1A+NLT1),Z(ITH2A+NLT2),Z(INT121), * Z(INT122),NBARAY,NCARAY,NZYKB,DPZ,DPY) GO TO (100,100,110), NZYKB 100 CONTINUE CALL WRITE(SCR1,DPZ,2*NTP,0) IF (NZYKB.EQ.1) GO TO 120 110 CONTINUE CALL WRITE(SCR4,DPY,2*NTP,0) 120 CONTINUE IF (IZ.EQ.NBEA1(KB) ) GO TO 130 IF (IZ.EQ.ILAST.AND.ICOUNT.LT.IFL) GO TO 160 GO TO 170 130 CONTINUE IZ = 0 IF (NZYSV.LE.1.AND.NZYKB.GE.2) GO TO 140 GO TO 150 140 CONTINUE LBO = KB LSO = NSTRIP+LBO JBO = I-NBEA1(KB) -NBOX+1 150 CONTINUE NZYSV = NZYKB IF(I.EQ.I2) GO TO 180 KB = KB+1 ICOUNT = 0 IFL = NFL(KB) NZYKB = NBEA2(KB) 160 CONTINUE KT = KT+1 ICOUNT = ICOUNT+1 IFIRST = IFLA1(KT) ILAST = IFLA2(KT) 170 CONTINUE 180 CONTINUE IF(I2.EQ.NTBE) GO TO 190 C DPY-LOOP ** THIS LOOP IS REDUCED TO SETTING THE CORRECT INDICES C AND USING THE DPZ-LOOP ABOVE IF(NTZ.EQ.0) CALL GOPEN(SCR4,Z(IBUF2),1) I1 = I2+1 I2 = NTBE GO TO 80 190 CALL WRITE(SCR1,0,0,1) IF(NTY.NE.0) CALL WRITE(SCR4,0,0,1) CALL CLOSE(SCR1,1) CALL CLOSE(SCR4,1) I1 = 1 I2 = NTP IF (NTZ.EQ.0) GO TO 250 CALL GOPEN(SCR2,Z(IBUF1),1) C DZP-LOOP K = 1 C K IS THE PANEL NUMBER ASSOCIATED WITH RECEIVING POINT I KS = 1 C KS IS THE STRIP NUMBER ASSOCIATED WITH RECEIVING POINT I NBXR = NCARAY(K) KB = 0 C HERE KB=0 SERVES AS A FLAG INDICATING THAT THE RECEIVING POINT I C IS ON A PANEL AND NOT ON A BODY J1 = J2+1 J2 = J2+NTZ DO 210 I=I1,I2 LS = NSTRIP+1 SGR = SG(KS) CGR = CG(KS) CALL DZPY(KB,KS,LS, I,J1,J2,NYFLAG, SGR,CGR, 1 FMACH, Z(IARB),Z(INBEA1),DT) CALL WRITE(SCR2,DT(J1),2*NTZ,0) IF (I.EQ.I2) GO TO 210 IF (I.EQ.NBARAY(K)) K =K +1 IF (I.EQ.NBXR) GO TO 200 GO TO 210 200 CONTINUE KS = KS+1 NBXR = NBXR+NCARAY(K) 210 CONTINUE CALL WRITE(SCR2,0,0,1) 201 CONTINUE IF(NTZ.EQ.0) GO TO 250 IF(NTP.EQ.0) CALL GOPEN(SCR2,Z(IBUF1),1) NYFLAG = 0 C DZZ-LOOP ** ALSO USED FOR GENERATING THE DZY MATRIX -- SEE C COMMENT IN DZY-LOOP BELOW KB = 1 C KB IS THE BODY NUMBER ASSOCIATED WITH RECEIVING POINT I KS = NSTRIP+1 IZ = 0 I1 = I2+1 I2 = I2+NTZ SGR = 0.0 CGR = 1.0 220 CONTINUE LS = NSTRIP+1 LSX = LS DO 240 I=I1,I2 LS = LSX IZ = IZ+1 C KS IS THE INDEX OF THE Y AND Z COORDINATES OF RECEIVING POINT I C IN THE DZZ-LOOP KS RUNS FROM (NSTRIP+1) THROUGH (NSTRIP+NBZ) C IN THE DZY-LOOP KS RUNS FROM (NSTRIP+NB-NBY+1) THROUGH NSTRIP+NB CALL DZPY(KB,KS,LS, I,J1,J2,NYFLAG, SGR,CGR, 1 FMACH, Z(IARB),Z(INBEA1),DT) CALL WRITE(SCR2,DT(J1),2*NTZ,0) IF (IZ.EQ.NBEA1(KB) ) GO TO 230 GO TO 240 230 CONTINUE IZ = 0 KB = KB+1 KS = KS+1 240 CONTINUE CALL WRITE(SCR2,0,0,1) IF(NTY.EQ.0) CALL CLOSE(SCR2,1) IF (NTY.EQ.0) GO TO 320 IF (NYFLAG.NE.0) GO TO 250 C DZY-LOOP ** THIS LOOP IS REDUCED TO SETTING THE CORRECT INDICES C AND USING THE DZZ-LOOP ABOVE I1 = NTBE-NTY+1 I2 = NTBE NYFLAG = 1 KB = LBO KS = LSO SGR =-1.0 CGR = 0.0 GO TO 220 250 CONTINUE CALL CLOSE(SCR2,1) IF (NTY.EQ.0) GO TO 320 CALL GOPEN(SCR3,Z(IBUF1),1) I1 = 1 I2 = NTP J1 = NTBE-NTY+1 J2 = NTBE IF(NTP.EQ.0) GO TO 275 C DYP-LOOP K = 1 KS = 1 KB = 0 NBXR = NCARAY(K) SGR = SG(KS) CGR = CG(KS) DO 270 I=I1,I2 CALL DYPZ(KB,KS,LS, I,J1,J2,NYFLAG, SGR,CGR, 1 FMACH, Z(IARB),Z(INBEA1), LBO,LSO,JBO,DT) CALL WRITE(SCR3,DT(J1),2*NTY,0) IF (I.EQ.NBARAY(K)) K=K+1 IF (I.EQ.NBXR) GO TO 260 GO TO 270 260 CONTINUE KS = KS+1 NBXR = NBXR+NCARAY(K) SGR = SG(KS) CGR = CG(KS) 270 CONTINUE CALL WRITE(SCR3,0,0,1) 275 CONTINUE NYFLAG = 0 IZ = 0 IF (NTZ.EQ.0) GO TO 310 C DYZ-LOOP ** ALSO USED FOR GENERATING THE DYY MATRIX -- SEE C COMMENT IN DYY-LOOP BELOW I1 = I2+1 I2 = I2+NTZ KS = NSTRIP+1 KB = 1 SGR = 0.0 CGR = 1.0 280 CONTINUE DO 300 I=I1,I2 LS = LSO IZ = IZ+1 CALL DYPZ(KB,KS,LS, I,J1,J2,NYFLAG, SGR,CGR, 1 FMACH, Z(IARB),Z(INBEA1), LBO,LSO,JBO,DT) CALL WRITE(SCR3,DT(J1),2*NTY,0) IF (IZ.EQ.NBEA1(KB) ) GO TO 290 GO TO 300 290 CONTINUE IZ = 0 KB = KB+1 KS = KS+1 300 CONTINUE CALL WRITE(SCR3,0,0,1) 310 CONTINUE IF (NYFLAG.NE.0) GO TO 320 C DYY-LOOP ** THIS LOOP IS REDUCED TO SETTING THE CORRECT INDICES C AND USING THE DYZ-LOOP ABOVE IF(NTP.EQ.0.AND.NTZ.EQ.0) CALL GOPEN(SCR3,Z(IBUF1),1) I1 = NTBE-NTY+1 I2 = NTBE NYFLAG = 1 KB = LBO KS = LSO SGR =-1.0 CGR = 0.0 GO TO 280 320 CONTINUE CALL CLOSE(SCR3,1) C C BUILD SCR5 WITH GEND PART OF A MATRIX C I1 = 1 I2 = NTP+NTZ NYFLAG = 0 CALL GOPEN(SCR5,Z(IBUF1),1) IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF IF(NTZ.NE.0) CALL GOPEN(SCR2,Z(IBUF3),0) IF(NTY.NE.0) CALL GOPEN(SCR3,Z(IBUF4),0) ITAPE = SCR1 IF(I2.EQ.0) GO TO 365 330 IF(NTP.NE.0) CALL GOPEN(ITAPE,Z(IBUF2),0) DO 360 I=I1,I2 J1 = 1 J2 = NTP IF(NTP.NE.0) CALL FREAD(ITAPE,DT,2*J2,0) IF(I.EQ.NTP) CALL FREAD(ITAPE,0,0,1) IF (NTZ.EQ.0) GO TO 340 J1 = J2+1 J2 = J2+NTZ CALL FREAD(SCR2,DT(J1),2*NTZ,0) IF(I.EQ.NTP) CALL FREAD(SCR2,0,0,1) 340 CONTINUE IF (NTY.EQ.0) GO TO 350 J1 = J2+1 J2 = J2+NTY CALL FREAD(SCR3,DT(J1),2*NTY,0) IF(I.EQ.NTP) CALL FREAD(SCR3,0,0,1) 350 CONTINUE CALL WRITE(SCR5,DT,2*J2,0) 360 CONTINUE IF (NTY.EQ.0) GO TO 370 IF (NYFLAG.NE.0) GO TO 370 IF(NTZ.NE.0.AND.NTP.NE.0)CALL FREAD(SCR2,0,0,1) IF(NTY.NE.0.AND.NTP.NE.0)CALL FREAD(SCR3,0,0,1) CALL CLOSE(ITAPE,1) 365 CONTINUE NYFLAG = 1 I1 = I2+1 I2 = I2+NTY ITAPE = SCR4 GO TO 330 370 CONTINUE CALL WRITE(SCR5,0,0,1) CALL CLOSE(SCR1,1) CALL CLOSE(SCR2,1) CALL CLOSE(SCR3,1) CALL CLOSE(SCR4,1) CALL CLOSE(SCR5,1) CALL DMPFIL(SCR5,Z(NEXT),ECORE-NEXT-100) RETURN END ================================================ FILE: mis/genpar.f ================================================ SUBROUTINE GENPAR C C GENERATES PARTITIONING VECTORS FOR DDAM SO THAT ONLY THE FIRST C LMODES MODES WILL BE USED, NOT NECESSARILY ALL THE ONES FOUND ON C THE PREVIOUS EIGENVALUE RUN. LMODES MUST BE GREATER THAN ZERO. C IF LMODES IS GREATER THAN THE NUMBER FOUND(OBTAINED FROM PF), IT C IS REDUCED TO THE NUMBER PREVIOUSLY FOUND C C GENPART PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/V,N,NMODES $ C SAVE NMODES $ C INTEGER PF,CPLAMB,RPLAMB,RPPF,CPMP,BUF1,SYSBUF,OTPE DIMENSION IZ(1),MCB(7),NAM(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / LMODES,NMODES COMMON /PACKX / IN,IOUT,II,NN,INCR COMMON /SYSTEM/ SYSBUF,OTPE COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)) DATA PF,RPLAMB,CPLAMB,RPPF,CPMP / 101,201,202,203,204 / DATA NAM / 4HGENP,4HART / C LCORE = KORSZ(Z) BUF1 = LCORE - SYSBUF + 1 LCORE = BUF1 - 1 IF (LCORE .LT. 5) GO TO 1008 C IN = 1 IOUT = 1 II = 1 INCR = 1 C IF (LMODES .LE. 0) GO TO 500 MCB(1) = PF CALL RDTRL (MCB) NMODES = MCB(3) NDIR = MCB(2) IF (LMODES .GT. NMODES) LMODES=NMODES C C GENERATE ROW PARTITIONING VECTOR FOR LAMB MATRIX TO PICK OFF THE C 2ND COLUMN, WHICH IS THE COLUMN OF RADIAN FREQUENCIES. THEN C TRUNCATE THE COLUMN TO LMODES SIZE C IF (LCORE .LT. NMODES) GO TO 1008 CALL GOPEN (CPLAMB,Z(BUF1),1) NN = 0 Z( 1) = 0. Z(NN+2) = 1. Z(NN+3) = 0. Z(NN+4) = 0. Z(NN+5) = 0. NN = 5 MCB(1) = CPLAMB MCB(2) = 0 MCB(3) = 5 MCB(4) = 2 MCB(5) = 1 MCB(6) = 0 MCB(7) = 0 CALL PACK (Z,CPLAMB,MCB) CALL CLOSE (CPLAMB,1) CALL WRTTRL (MCB) C CALL GOPEN (RPLAMB,Z(BUF1),1) DO 10 I = 1,LMODES 10 Z(I) = 1. IF (LMODES .EQ. NMODES) GO TO 30 L1 = LMODES + 1 DO 20 I = L1,NMODES 20 Z(I) = 0. 30 NN = NMODES MCB(1) = RPLAMB MCB(2) = 0 MCB(3) = NMODES MCB(4) = 2 MCB(5) = 1 MCB(6) = 0 MCB(7) = 0 CALL PACK (Z,RPLAMB,MCB) CALL CLOSE (RPLAMB,1) CALL WRTTRL (MCB) C C ROW PARTITION FOR PF C CALL GOPEN (RPPF,Z(BUF1),1) MCB(1) = RPPF MCB(2) = 0 MCB(6) = 0 MCB(7) = 0 CALL PACK (Z,RPPF,MCB) CALL CLOSE (RPPF,1) CALL WRTTRL (MCB) C C COLUMN PARTITION FOR MP-SAME AS ROW PARTITION FOR PREVIOUS FILES C CALL GOPEN (CPMP,Z(BUF1),1) MCB(1) = CPMP MCB(2) = 0 MCB(6) = 0 MCB(7) = 0 CALL PACK (Z,CPMP,MCB) CALL CLOSE (CPMP,1) CALL WRTTRL (MCB) C RETURN 500 WRITE (OTPE,501) UFM 501 FORMAT (A23,', LMODES PARAMETER MUST POSITIVE') CALL MESAGE (-61,0,0) C 1008 CALL MESAGE (-8,0,NAM) RETURN END ================================================ FILE: mis/genvec.f ================================================ SUBROUTINE GENVEC (*,IBUF,FILEA,NX,IX,NCOL,B,BBAR,C,CBAR,R,IENTRY) C C GENVEC WILL PICK THE OPTIMUM VALUE OF B AND BBAR FOR A GIVEN C MATRIX C INTEGER FILEA(1) ,NAME(2) ,BMAX ,CMAX , 1 IX(2) ,RSP ,EOL ,SYSBUF , 2 B ,BBAR ,C ,CBAR , 3 R ,BB ,CC ,BBR , 4 CCR ,RRR ,BBR1 ,CCR1 , 5 BBR2 ,CCR2 ,RR1 ,RR2 , 6 P ,DBNAME(2),FINDC ,NAMIN(2,2) DIMENSION IBUF(1) ,XMB(2) CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP COMMON /ZNTPKX/ IA(4) ,II ,EOL C COMMON /DESCRP/ LENGTH ,MAJOR(1) COMMON /NTIME / LNTIME ,TCONS(15) COMMON /SYSTEM/ ISTV(65) COMMON /DCOMPX/ DUM(35) ,ISYM EQUIVALENCE (ISTV( 1),SYSBUF) ,(ISTV( 2),NOUT ) , 1 (ISTV(55),P ) ,(TCONS(8),XMB(1)) DATA NAME / 4HGENV,4HEC / ,CMAX / 200 /, 1 NAMIN / 4H REA,1HL ,4HCOMP,3HLEX / C C CALL FNAME (FILEA,DBNAME) CALL SSWTCH (11,L11) IF (L11 .NE. 0) WRITE (NOUT,6) FILEA 6 FORMAT ('O*** DIAG 11 OUTPUT FROM GENVEC (UNSYMMETRIC DECOMP) FOR' 1, ' FILE',I6 , /9X,1HB,6X,4HBBAR,9X,1HC,6X,4HCBAR,9X,1HR,3X, 2 4HTIME ) C BMAX = MIN0(IFIX(1.0E+05/SQRT(FLOAT(NCOL)*XMB(P))),NCOL) IFILE= FILEA(1) CALL OPEN (*280,FILEA(1),IBUF,RDREW) I1 = NCOL I4 = 4*NCOL + 2*CMAX ICRQ = I4 - NX + SYSBUF IF (I4 .GT. NX-SYSBUF) GO TO 300 DO 10 I = 1,I4 10 IX(I) = 0 NMAX = 0 MMAX = 0 CALL FWDREC (*290,FILEA(1)) C C GENERATE THE ROW AND COLUMN VECTORS C DO 60 I = 1,NCOL CALL INTPK (*320,FILEA(1),0,RSP,0) CALL ZNTPKI IN1 = I1 + I IX(IN1) = II NMAX = MAX0(NMAX,I-II+1) 20 IF (IX(II)) 40,30,40 30 IX(II) = I MMAX = MAX0(MMAX,II-I+1) 40 IF (EOL) 60,50,60 50 CALL ZNTPKI GO TO 20 60 CONTINUE CALL CLOSE (FILEA(1),REW) I2 = I1 + NCOL + 1 I3 = I2 + 2*NCOL NMAX = MIN0(NMAX,BMAX) MMAX = MIN0(MMAX,BMAX) MMAX = MAX0(MMAX,2) C C SET UP ACTIVE COLUMN BANDWIDTH VECTOR C DO 100 I = 2,NCOL J = NCOL - I + 1 ICOUNT = 0 DO 90 K = 1,J L = I2 - K IF (IX(L)-I) 70,80,80 70 ICOUNT = ICOUNT + 1 80 L = I2 + (J-K)*2 90 IX(L) = MAX0(IX(L),ICOUNT) 100 CONTINUE C C REDUCE LIST TO UNIQUE PAIRS C I = I2 J = I2 + 2 K = 2 110 IF (IX(J) .EQ. 0) GO TO 140 IF (IX(J) -IX(I)) 120,130,120 120 I = I + 2 IX(I ) = IX(J) IX(I+1) = K 130 J = J + 2 K = K + 1 GO TO 110 140 CONTINUE I = I + 2 IX(I ) = 0 IX(I+1) = K ILAST = 0 C C BEGIN SEARCH FOR B,BBAR C TIME = 1000000. B = 0 BBAR = 0 C = 0 CBAR = 0 150 BB = IX(I+1) IF (BB .LE. BMAX) GO TO 155 I = I - 2 GO TO 150 155 CONTINUE C C MAKE PRELIMINARY SEARCH C TT1 = 1000000. 156 CONTINUE BB = IX(I+1) CC = IX(I) + 1 IF (CC .EQ. 1) CC = 0 BBR = BB CCR = CC CALL RCORE (BB,BBR,CC,CCR,NCOL,IENTRY,NX,RRR) RRR = MIN0(RRR,BB+BBR-1,NCOL-1) IF (RRR .LT. 2) GO TO 157 CALL TIMEEQ (FLOAT(BB),FLOAT(BBR),FLOAT(CC),FLOAT(CCR),FLOAT(RRR), 1 IENTRY,NCOL,TT) IF (ILAST .EQ. 0) ILAST = I IF (L11 .EQ. 0) GO TO 1500 WRITE (NOUT,151) BB,BBR,CC,CCR,RRR,TT 151 FORMAT (5I10,F10.2) 1500 CONTINUE IF (TT .GT. TT1) GO TO 157 TT1 = TT BBR1 = BBR CCR1 = CCR RR1 = RRR 157 I = I - 2 IF (BB .LT. 3) GO TO 158 IF (I .GE. I2+2) GO TO 156 158 CONTINUE I = I + 2 IF (TT1 .EQ. 1000000.)GO TO 300 BB = BBR1 CC = CCR1 TT1= 1000000. C C SEARCH ON INCREASING BBAR C 159 BBR = BB INCRXX = MAX1(.02*FLOAT(BB),1.) 160 CCR = FINDC(BB,BBR,NCOL,IX(1),IX(I3)) CALL RCORE (BB,BBR,CC,CCR,NCOL,IENTRY,NX,RRR) RRR = MIN0(RRR,BB+BBR-1) RRR = MIN0(RRR,NCOL-1) IF (RRR .LT. 2) GO TO 170 CALL TIMEEQ (FLOAT(BB),FLOAT(BBR),FLOAT(CC),FLOAT(CCR),FLOAT(RRR), 1 IENTRY,NCOL,TT) IF (L11 .EQ. 0) GO TO 1600 WRITE (NOUT,151) BB,BBR,CC,CCR,RRR,TT 1600 CONTINUE IF (TT1 .EQ. 1000000.) TT1 = TT IF (TT .GT. TT1) GO TO 170 TT1 = TT BBR1 = BBR CCR1 = CCR RR1 = RRR 170 CONTINUE BBR = BBR + INCRXX IF (TT .GT. 1.2*TT1) GO TO 180 IF (CCR .EQ. 0) GO TO 180 IF (BBR .LT. BMAX) GO TO 160 C C BEGIN SEARCH ON DECREASING BBAR C 180 TT2 = 1000000. BBR = BB - INCRXX 190 IF (BBR .LE. 2 ) GO TO 210 CCR = FINDC(BB,BBR,NCOL,IX(1),IX(I3)) CALL RCORE (BB,BBR,CC,CCR,NCOL,IENTRY,NX,RRR) RRR = MIN0(RRR,BB+BBR-1) RRR = MIN0(RRR,NCOL-1) IF (RRR .LT. 2) GO TO 200 CALL TIMEEQ (FLOAT(BB),FLOAT(BBR),FLOAT(CC),FLOAT(CCR),FLOAT(RRR), 1 IENTRY,NCOL,TT) IF (L11 .EQ. 0) GO TO 195 WRITE (NOUT,151) BB,BBR,CC,CCR,RRR,TT 195 CONTINUE IF (TT2 .EQ. 1000000.) TT2 = TT IF (TT .GT. TT2) GO TO 200 TT2 = TT BBR2 = BBR CCR2 = CCR RR2 = RRR 200 CONTINUE BBR = BBR - INCRXX IF (TT .GT. 1.20*TT2) GO TO 210 GO TO 190 210 CONTINUE IF (TT1 .GE. TIME) GO TO 220 TIME = TT1 B = BB C = CC BBAR = BBR1 CBAR = CCR1 R = RR1 220 IF (TT2 .GE. TIME) GO TO 230 TIME = TT2 B = BB C = CC BBAR = BBR2 CBAR = CCR2 R = RR2 230 IF (TT1.EQ.1000000. .AND. TT2.EQ.1000000.) GO TO 275 IB = B IC = C IBBAR = BBAR ICBAR = CBAR IR = R IX(1) = C IX(2) = R CALL PAGE2 (4) WRITE (NOUT,240) UIM,B,BBAR,C,CBAR,R 240 FORMAT (A29,' 3028',6X,3HB =,I5,5X,6HBBAR =,I5, /40X,3HC =,I5,5X, 1 6HCBAR =,I5, /40X,3HR =,I5) CALL TFIN (FLOAT(B),FLOAT(BBAR),FLOAT(C),FLOAT(CBAR),FLOAT(R), 1 IENTRY,FLOAT(NCOL),TIME) IX(1) = TIME CALL PAGE2 (3) WRITE (NOUT,250) UIM,NAMIN(1,IENTRY),NAMIN(2,IENTRY),DBNAME,NCOL, 1 IX(1) 250 FORMAT (A29,' 3027, UNSYMMETRIC ',2A4,' DECOMPOSITION OF DATA ', 1 'BLOCK ',2A4,6H (N = ,I5,1H), /5X,'TIME ESTIMATE = ',I8, 2 8H SECONDS) CALL TMTOGO (IXY) IF (IXY .LT. IX(1)) CALL MESAGE (-50,IX(1),NAME) RETURN C C TRY TO FIND POSSIBLE SOLUTION WITHIN FEASIBLE RANGE BY VARYING BB C 275 I = I + 2 IF (I .GT. ILAST) GO TO 300 BB = IX(I+1) CC = IX(I) + 1 IF (BB .GT. BMAX) GO TO 300 GO TO 159 280 NO = -1 GO TO 310 290 NO = -2 GO TO 310 300 NO = -8 IFILE = ICRQ 310 CALL MESAGE (NO,IFILE,NAME) RETURN C C NULL COLUMN DISCOVERED C 320 WRITE (NOUT,325) UFM,I,NAMIN(1,IENTRY),NAMIN(2,IENTRY) 325 FORMAT (A23,' 3097, COLUMN',I7,' IS SINGULAR. UNSYMMETRIC ',2A4, 1 'DECOMP ABORTED.') RETURN 1 C END ================================================ FILE: mis/getblk.f ================================================ SUBROUTINE GETBLK (IOLD,INEW) C C FINDS A FREE BLOCK INEW. IF IOLD IS NOT ZERO IOLD POINTER WILL C BE SET TO INEW. C EXTERNAL LSHIFT,RSHIFT,ANDF,ORF LOGICAL DITUP,NXTUP,NXTRST INTEGER BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,ORF, 1 BLKSIZ,DIRSIZ,SUPSIZ,FILSIZ,AVBLKS,ANDF,RSHIFT, 2 FILNUM,TPFREE,BTFREE,FILIND,FILSUP,NMSBR(2) COMMON /MACHIN/ MACH,IHALF,JHALF COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL, 1 IODUM(8),MDIDUM(4), 2 NXT,NXTPBN,NXTLBN,NXTTSZ,NXTFSZ(10),NXTCUR, 3 DITUP,MDIUP,NXTUP,NXTRST COMMON /SYS / BLKSIZ,DIRSIZ,SUPSIZ,AVBLKS COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10) COMMON /SYSTEM/ NBUFF DATA IRD , IWRT / 1, 2 / DATA INDSBR / 11 /, NMSBR / 4HGETB,4HLK / C C CHECK IF THE SUPERBLOCK NXTCUR HAS A FREE BLOCK. C CALL CHKOPN (NMSBR(1)) LMASK = LSHIFT(JHALF,IHALF) 5 IF (NXTCUR .EQ. NXTLBN) GO TO 40 C C THE SUPERBLOCK NXTCUR IS NOT IN CORE. C IF (NXTLBN .EQ. 0) GO TO 10 C C THE IN CORE BUFFER SHARED BY THE DIT AND THE ARRAY NXT IS NOW C OCCUPIED BY A BLOCK OF NXT. C IF (.NOT.NXTUP) GO TO 20 C C THE BLOCK OF THE ARRAY NXT WHICH IS NOW IN CORE HAS BEEN UPDATED, C MUST THEREFORE WRITE IT OUT BEFORE READING IN A NEW BLOCK. C CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2)) NXTUP = .FALSE. GO TO 20 10 IF (DITPBN .EQ. 0) GO TO 20 C C THE IN CORE BUFFER SHARED BY THE DIT AND THE ARRAY NXT IS NOW C OCCUPIED BY A BLOCK OF DIT. C IF (.NOT.DITUP) GO TO 15 C C THE DIT BLOCK WHICH IS NOW IN CORE HAS BEEN UPDATED, MUST C THEREFORE WRITE IT OUT BEFORE READING IN A NEW BLOCK. C CALL SOFIO (IWRT,DITPBN,BUF(DIT-2)) DITUP = .FALSE. 15 DITPBN = 0 DITLBN = 0 C C READ INTO CORE THE DESIRED BLOCK OF THE ARRAY NXT. C 20 NXTLBN = NXTCUR NXTPBN = 0 LEFT = NXTLBN DO 25 I = 1,NFILES IF (LEFT .GT. NXTFSZ(I)) GO TO 23 FILNUM = I GO TO 30 23 NXTPBN = NXTPBN + FILSIZ(I) LEFT = LEFT - NXTFSZ(I) 25 CONTINUE GO TO 510 30 NXTPBN = NXTPBN + (LEFT-1)*SUPSIZ + 2 CALL SOFIO (IRD,NXTPBN,BUF(NXT-2)) C C CHECK THE FREE LIST OF SUPERBLOCK NXTCUR. C 40 TPFREE = RSHIFT(BUF(NXT+1),IHALF) IF (TPFREE .GT. 0) GO TO 180 C C THE SUPERBLOCK NXTCUR DOES NOT HAVE ANY FREE BLOCKS. C IF (NXTCUR .EQ. NXTTSZ) GO TO 50 NXTCUR = NXTCUR + 1 GO TO 5 C C NXTCUR IS THE LAST SUPERBLOCK. C 50 IF (NXTRST) GO TO 60 NXTCUR = 1 NXTRST = .TRUE. GO TO 5 C C MUST START A BRAND NEW SUPERBLOCK. C 60 NXTRST = .FALSE. IF (NXTUP) CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2)) NXTUP = .FALSE. 70 NXTCUR = NXTCUR + 1 LEFT = NXTCUR DO 80 I = 1,NFILES IF (LEFT .GT. NXTFSZ(I)) GO TO 75 FILNUM = I GO TO 85 75 LEFT = LEFT-NXTFSZ(I) 80 CONTINUE NXTCUR = NXTCUR - 1 GO TO 500 85 LAST = NBUFF - 4 DO 86 I = 1,LAST BUF(NXT+I) = 0 86 CONTINUE IF (LEFT .EQ. 1) GO TO 110 C C NXTCUR IS NOT THE FIRST SUPERBLOCK ON FILE FILNUM. C NXTPBN = NXTPBN + SUPSIZ IF (LEFT .NE. NXTFSZ(FILNUM)) GO TO 120 C C NXTCUR IS THE LAST BLOCK ON FILE FILNUM. C LSTSIZ = MOD(FILSIZ(FILNUM)-2,SUPSIZ) + 1 IF (LSTSIZ .GT. 1) GO TO 90 C C THE SIZE OF THE LAST BLOCK ON FILE FILNUM IS EQUAL TO 1. C THERE ARE THEREFORE NO FREE BLOCKS AVAILABLE ON SUPERBLOCK NXTCUR. C SET TPFREE AND BTFREE OF NXTCUR EQUAL TO ZERO. C BUF(NXT+1) = 0 AVBLKS = AVBLKS - 1 CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2)) GO TO 70 C C THE SIZE OF SUPERBLOCK NXTCUR IS LARGER THAN 1. C 90 IF (LSTSIZ .GT. 2) GO TO 100 C C THE SIZE OF SUPERBLOCK NXTCUR IS EQUAL TO 2. THERE IS THEREFORE C ONLY ONE FREE BLOCK IN NXTCUR. SET TPFREE AND BTFREE TO ZERO. C BUF(NXT+1) = 0 GO TO 170 C C THE SIZE OF SUPERBLOCK NXTCUR IS LARGER THAN 2. C 100 BTFREE = NXTPBN + LSTSIZ - 1 GO TO 130 C C NXTCUR IS THE FIRST SUPERBLOCK ON FILE FILNUM. C 110 LSTSIZ = MOD(FILSIZ(FILNUM-1)-2,SUPSIZ) + 1 NXTPBN = NXTPBN + LSTSIZ + 1 AVBLKS = AVBLKS - 1 IF (FILSIZ(FILNUM) .GE. SUPSIZ+1) GO TO 120 BTFREE = NXTPBN + FILSIZ(FILNUM) - 2 GO TO 130 120 BTFREE = NXTPBN + SUPSIZ - 1 C C INITIALIZE THE NEW SUPERBLOCK. C 130 TPFREE = NXTPBN + 2 C C PUT THE VALUES OF BTFREE AND TPFREE IN THE FIRST WORD OF THE ARRAY C NXT BELONGING TO SUPERBLOCK NXTCUR. C BUF(NXT+1) = BTFREE BUF(NXT+1) = ORF(BUF(NXT+1),LSHIFT(TPFREE,IHALF)) IF (MOD(BTFREE,2) .EQ. 1) GO TO 140 C C BTFREE IS AN EVEN INTEGER. C MAX = (BTFREE-NXTPBN+2)/2 BUF(NXT+MAX+1) = 0 GO TO 150 C C BTFREE IS AN ODD INTEGER. C 140 MAX = (BTFREE-NXTPBN+1)/2 BUF(NXT+MAX+1) = LSHIFT(BTFREE,IHALF) C C SET UP THE THREAD THROUGH THE BLOCKS OF SUPERBLOCK NXTCUR. C 150 IF (MAX.LT.3) GO TO 170 DO 160 I = 3,MAX BUF(NXT+I) = 2*I + NXTPBN - 2 BUF(NXT+I) = ORF(BUF(NXT+I),LSHIFT(2*I+NXTPBN-3,IHALF)) 160 CONTINUE C C SETUP VARIABLES RELATED TO THE SUPERBLOCK NXTCUR. C 170 BUF(NXT+2) = 0 INEW = NXTPBN + 1 AVBLKS = AVBLKS - 2 NXTLBN = NXTCUR NXTTSZ = NXTCUR GO TO 230 C C SUPERBLOCK NXTCUR DOES HAVE A FREE BLOCK. C 180 INEW = TPFREE AVBLKS = AVBLKS - 1 C C COMPUTE THE INDEX OF TPFREE ENTRY IN THE BLOCK OF ARRAY NXT C BELONGING TO SUPERBLOCK NXTCUR. C FILIND = TPFREE DO 185 I = 1,NFILES IF (FILIND .LE. FILSIZ(I)) GO TO 187 FILIND = FILIND - FILSIZ(I) 185 CONTINUE 187 FILSUP = (FILIND-1)/SUPSIZ IF (FILIND-1 .EQ. FILSUP*SUPSIZ) GO TO 190 FILSUP = FILSUP + 1 190 INDEX = (FILIND-(FILSUP-1)*SUPSIZ)/2 + 1 IF (MOD(TPFREE,2) .EQ. 1) GO TO 200 C C TPFREE IS AN EVEN INTEGER. THE ENTRY FOR TPFREE IS THEREFORE C IN BITS (IHALF+1) TO (2*IHALF-1) OF THE WORD. SAVE TPFREE ENTRY C IN NXTBLK AND THEN SET IT TO ZERO. C NXTBLK = RSHIFT(BUF(NXT+INDEX),IHALF) BUF(NXT+INDEX) = ANDF(BUF(NXT+INDEX),JHALF) GO TO 210 C C TPFREE IS AN ODD INTEGER. THE ENTRY FOR TPFREE IS THEREFORE C IN BITS 0 TO IHALF OF THE WORD. SAVE TPFREE ENTRY IN NXTBLK C AND THEN SET IT TO ZERO. C 200 NXTBLK = ANDF(BUF(NXT+INDEX),JHALF) BUF(NXT+INDEX) = ANDF(BUF(NXT+INDEX),LMASK) 210 BTFREE = ANDF(BUF(NXT+1),JHALF) IF (TPFREE .EQ. BTFREE) GO TO 220 C C SET TPFREE TO NXTBLK. C BUF(NXT+1) = ORF(ANDF(BUF(NXT+1),JHALF),LSHIFT(NXTBLK,IHALF)) GO TO 230 C C SET TPFREE AND BTFREE TO ZERO. C 220 BUF(NXT+1) = 0 230 IF (IOLD .EQ. 0) GO TO 250 C C WANT TO SET IOLD POINTER TO INEW. C NXTUP =.TRUE. CALL FNXT (IOLD,IND) IF (MOD(IOLD,2) .EQ. 1) GO TO 240 C C IOLD IS AN EVEN INTEGER C BUF(IND) = ORF(ANDF(BUF(IND),JHALF),LSHIFT(INEW,IHALF)) GO TO 250 C C IOLD IS AN ODD INTEGER C 240 BUF(IND) = ORF(ANDF(BUF(IND),LMASK),INEW) 250 NXTUP = .TRUE. RETURN C C ERROR MESSAGES. C 500 INEW = -1 RETURN 510 CALL ERRMKN (INDSBR,4) RETURN END ================================================ FILE: mis/getdef.f ================================================ SUBROUTINE GETDEF (DFRM,PH,MAG,CONV,PLTTYP,BUF,GPT,D) C INTEGER DFRM,BUF(1),GPT(1),SILN,REW,SP,GP,GPX,SIL1,SIL2, 1 TRL(7),TYPE,PLTTYP REAL D(3,1),MAXDEF COMMON /BLANK / NGP,LSIL,SKP11(3),NGPSET,SKP12(4),SKP2(6),MSIL COMMON /XXPARM/ PBUFSZ,PLOTER(5),PENPAP(30),SCALE(4),MAXDEF COMMON /ZNTPKX/ DEFC(4),SILN,LAST EQUIVALENCE (DEFVAL,DEFC(1)) DATA INPREW, REW / 0,1 / C LAST = 0 K = 3*NGPSET DO 10 I = 1,K 10 D(I,1) = 0.0 TRL(1) = DFRM CALL RDTRL (TRL(1)) IF (TRL(5) .LE. 0) RETURN SP = TRL(5) ASSIGN 140 TO TYPE C C NOTE TRANSIENT RESPONSE HAS SP = 1 C IF (SP .LT. 3) GO TO 30 ASSIGN 130 TO TYPE IF (MAG .NE. 0) GO TO 30 ASSIGN 120 TO TYPE SN = SIN(PH)*CONV CN = COS(PH)*CONV IF (PLTTYP .EQ. 2) GO TO 20 C C DISPLACEMENT OR ACCELERATION C I1 = 1 I2 = SP - 1 IF (PLTTYP.EQ.3 .OR. PLTTYP.EQ.4) CN = -CN GO TO 30 C C VELOCITY C 20 I1 = SP - 1 I2 = 1 30 CONTINUE MAXDEF = 0. CALL INTPK (*170,DFRM,0,SP,0) GP = 0 SILN = 0 CALL GOPEN (MSIL,BUF(1),INPREW) CALL FREAD (MSIL,SIL2,1,0) C C -GP- = PREVIOUS EXISTENT GRID POINT IN THIS SET. FIND NEXT ONE. C 40 K = GP + 1 DO 50 GPX = K,NGP IF (GPT(GPX) .NE. 0) GO TO 60 50 CONTINUE SIL1 = LSIL + 1 GO TO 100 60 IF (GPX .NE. GP+1) GO TO 70 SIL1 = SIL2 GO TO 80 70 GP = GP + 1 CALL FREAD (MSIL,SIL2,1,0) GO TO 60 C C -SIL1- = SIL NUMBER OF NEXT EXISTENT GRID POINT. READ SIL NUMBER C OF NEXT GRID POINT. C 80 GP = GPX GPX = IABS(GPT(GP)) IF (GP .EQ. NGP) SIL2 = LSIL + 1 IF (GP .NE. NGP) CALL FREAD (MSIL,SIL2,1,0) C C READ NEXT DEFORMATION VALUE AT THIS EXISTING GRID POINT. C 90 IF (SILN.LE.LSIL .AND. SILN.GE.SIL1) GO TO 150 100 IF (LAST .NE. 0) GO TO 160 110 CALL ZNTPKI GO TO TYPE, (120,130,140) 120 DEFVAL = DEFC(I1)*CN - DEFC(I2)*SN GO TO 140 130 DEFVAL = CONV*SQRT(DEFC(1)**2 + DEFC(SP-1)**2) 140 IF (ABS(DEFVAL) .GT. MAXDEF) MAXDEF = ABS(DEFVAL) GO TO 90 150 IF (SILN.GT.SIL1+2 .OR. SILN.GE.SIL2) GO TO 40 K = SILN - SIL1 + 1 D(K,GPX) = DEFVAL IF (LAST) 160,110,160 C 160 CALL CLOSE (MSIL,REW) 170 RETURN END ================================================ FILE: mis/gfbs.f ================================================ SUBROUTINE GFBS (X,DX) C C GIVEN THE TRIANGULAR FACTORS FOR A GENERAL MATRIX, GFBS WILL C PERFORM THE FORWARD-BACKWARD SUBSTITUTION NECESSARY TO SOLVE C A SYSTEM OF EQUATIONS C C DEFINITION OF INPUT PARAMETERS C C FILEL = MATRIX CONTROL BLOCK FOR THE LOWER TRIANGLE L C FILEU = MATRIX CONTROL BLOCK FOR THE UPPER TRIANGLE U C FILEB = MATRIX CONTROL BLOCK FOR THE LOAD VECTORS B C FILEX = MATRIX CONTROL BLOCK FOR THE SOLUTION VECTORS X C NX = NUMBER OF CELLS OF CORE AVAILABLE AT X C PREC = DESIRED PRECISION OF ARITHMETIC OPERATIONS C (1 = SINGLE PRECISION, 2 = DOUBLE PRECISION) C ISIGN = SIGN TO BE APPLIED TO THE LOAD VECTORS C X = BLOCK OF CORE AVAILABLE AS WORKING STORAGE C DX = SAME BLOCK AS X, BUT TYPED DOUBLE PRECISION C INTEGER FILEL ,FILEU ,FILEB ,FILEX , 1 TYPEA ,TYPE1 ,TYPE2 ,FORMB , 2 SYSBUF ,PREC ,EOL ,TYPEAR , 3 TYPEX ,TYPEL ,RC ,REW , 4 TYPEB ,TRA1 ,TRA2 ,TRA3 , 5 TRA4 ,TRA5 ,PARM(4) ,CMPLX , 6 EOFNRW ,COL ,FSTCOL ,CLSOP REAL ZEROS(4) , 1 SUBNAM(2) ,BUF(2) ,BEGN ,END DOUBLE PRECISION DX(1) ,DA(2) ,DTEMP DIMENSION X(1) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /TYPE / PRC(2) ,NWDS(4) ,RC(10) C COMMON /DESCRP/ LENGTH ,MAJOR COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,LOWTRI ,UPRTRI , 4 SYM ,ROW ,IDENTY COMMON /UNPAKX/ TYPEA ,IXY ,JXY ,INCRY COMMON /PACKX / TYPE1 ,TYPE2 ,IY ,JY , 1 INCRX COMMON /ZNTPKX/ A(4) ,II ,EOL COMMON /GFBSX / FILEL(7) ,FILEU(7) ,FILEB(7) ,FILEX(7) , 1 NX ,PREC ,ISIGN EQUIVALENCE (A(1),DA(1)) ,(FILEL(5),TYPEL) , 1 (FILEL(3),NROW) ,(FILEX(5),TYPEX) , 2 (FILEB(4),FORMB) ,(FILEB(5),TYPEB) DATA PARM(3), PARM(4) /4HGFBS,4H / DATA ZEROS / 0., 0., 0., 0. / DATA SUBNAM/ 4HGFBS,4H /, BEGN/ 4HBEGN/, END/ 4HEND / C BUF(1) = SUBNAM(1) BUF(2) = BEGN CALL CONMSG (BUF,2,0) C C INITIALIZE C IF (FORMB .EQ. IDENTY)TYPEB = 1 TYPEAR = PREC IF (RC(TYPEL)+RC(TYPEB)-1 .GT. 1) TYPEAR = PREC + 2 INCR = NWDS(TYPEAR)*NROW TYPEA = TYPEAR*ISIGN TYPE1 = TYPEAR TYPE2 = TYPEX INCRX = 1 INCRY = 1 CMPLX = RC(TYPEAR) IOBUF = NX - SYSBUF ICOL = IOBUF - 1 COL = 1 CLSOP = EOFNRW C C SET UP TRANSFER VECTORS FOR THE ARITHMETIC TYPES C GO TO (10,20,30,40), TYPEAR 10 ASSIGN 120 TO TRA1 ASSIGN 240 TO TRA2 ASSIGN 330 TO TRA3 ASSIGN 430 TO TRA4 ASSIGN 540 TO TRA5 GO TO 50 20 ASSIGN 130 TO TRA1 ASSIGN 250 TO TRA2 ASSIGN 340 TO TRA3 ASSIGN 440 TO TRA4 ASSIGN 550 TO TRA5 GO TO 50 30 ASSIGN 140 TO TRA1 ASSIGN 260 TO TRA2 ASSIGN 350 TO TRA3 ASSIGN 450 TO TRA4 ASSIGN 560 TO TRA5 GO TO 50 40 ASSIGN 150 TO TRA1 ASSIGN 270 TO TRA2 ASSIGN 360 TO TRA3 ASSIGN 460 TO TRA4 ASSIGN 570 TO TRA5 50 CONTINUE NM = (IOBUF-1)/INCR IF (NM .LE. 0) GO TO 640 NOLOAD = FILEB(2) IF (FORMB .EQ. IDENTY)NOLOAD = NROW IDENT = 1 LSTLOD = NOLOAD C C WRITE OUTPUT HEADER RECORDS AND INITIALIZE MATRIX CONTROL BLOCKS C CALL GOPEN (FILEX,X(IOBUF),1) CALL CLOSE (FILEX(1),NOREW) FILEX(2) = 0 FILEX(6) = 0 FILEX(7) = 0 IF (FORMB .EQ. IDENTY) GO TO 100 C C OPEN THE LOAD FILE AND FILL CORE WITH LOAD VECTORS C CALL GOPEN (FILEB,X(IOBUF),0) 60 NN = 0 KHR = ICOL FSTCOL = COL L = 1 IXY = 1 JXY = NROW 70 IF (L+INCR .GE. KHR) GO TO 85 CALL UNPACK (*80,FILEB,X(L)) NN = NN + 1 X(KHR) = COL KHR = KHR - 1 L = L + INCR 80 IF (COL .EQ. LSTLOD) GO TO 90 COL = COL + 1 GO TO 70 85 COL = COL - 1 90 NCOL = KHR X(NCOL) = LSTLOD + 1 LSTCOL = COL IF (LSTCOL .EQ. LSTLOD) CLSOP = REW CALL CLOSE (FILEB,CLSOP) IF (NN .EQ. 0) GO TO 592 GO TO 180 C C GENERATE COLUMNS OF THE IDENTITY MATRIX C 100 NN = MIN0(NM,NOLOAD) L = 1 DO 170 I = 1,NN J1 = L J2 = J1 + INCR - 1 DO 110 K = J1,J2 110 X(K) = 0. K = L + IDENT - 1 GO TO TRA1, (120,130,140,150) 120 X(K) = 1. GO TO 160 130 K = (L-1)/2 + IDENT DX(K) = 1.D0 GO TO 160 140 KK = K + IDENT - 1 X(KK) = 1. GO TO 160 150 KK = (L-1)/2 + 2*IDENT - 1 DX(KK) = 1.D0 160 IDENT = IDENT + 1 170 L = L + INCR FSTCOL = COL COL = IDENT - 1 LSTCOL = COL 180 IJK = 0 C C OPEN FILE FOR THE LOWER TRIANGLE C PARM(2) = FILEL(1) CALL GOPEN (FILEL,X(IOBUF),0) C C BEGIN FORWARD PASS C J = 1 190 CALL INTPK (*380,FILEL(1),0,TYPEAR,0) 200 IF (EOL) 650,210,650 210 CALL ZNTPKI IF (J-II) 310,220,200 C C PERFORM THE REQUIRED ROW INTERCHANGE C 220 INTCHN = A(1) K = 0 IF (PREC .EQ. 2) INTCHN = DA(1) IN1 = J*CMPLX IN2 = IN1 + INTCHN*CMPLX 230 GO TO TRA2, (240,250,260,270) 240 TEMP = X(IN1) X(IN1) = X(IN2) X(IN2) = TEMP GO TO 280 250 DTEMP = DX(IN1) DX(IN1) = DX(IN2) DX(IN2) = DTEMP GO TO 280 260 TEMP = X(IN1) X(IN1) = X(IN2) X(IN2) = TEMP TEMP = X(IN1-1) X(IN1-1) = X(IN2-1) X(IN2-1) = TEMP GO TO 280 270 DTEMP = DX(IN1) DX(IN1) = DX(IN2) DX(IN2) = DTEMP DTEMP = DX(IN1-1) DX(IN1-1) = DX(IN2-1) DX(IN2-1) = DTEMP 280 IN1 = IN1 + NROW*CMPLX IN2 = IN2 + NROW*CMPLX K = K + 1 IF (K-NN) 230,290,290 290 IF (EOL) 380,300,380 300 CALL ZNTPKI 310 K = 0 IN2 = J*CMPLX IN1 = II*CMPLX 320 K = K + 1 GO TO TRA3, (330,340,350,360) 330 X(IN1) = X(IN1) - X(IN2)*A(1) GO TO 370 340 DX(IN1) = DX(IN1) - DX(IN2)*DA(1) GO TO 370 350 X(IN1-1) = X(IN1-1) - A(1)*X(IN2-1) + A(2)*X(IN2 ) X(IN1 ) = X(IN1 ) - A(1)*X(IN2 ) - A(2)*X(IN2-1) GO TO 370 360 DX(IN1-1) = DX(IN1-1) - DA(1)*DX(IN2-1) + DA(2)*DX(IN2 ) DX(IN1 ) = DX(IN1 ) - DA(1)*DX(IN2 ) - DA(2)*DX(IN2-1) 370 IN1 = IN1 + NROW *CMPLX IN2 = IN2 + NROW *CMPLX IF (K-NN) 320,290,290 380 J = J + 1 IF (J .LT. NROW) GO TO 190 CALL CLOSE (FILEL(1),REW) C C BEGIN BACKWARD PASS C IOFF = FILEU(7)-1 PARM(2) = FILEU(1) CALL GOPEN (FILEU,X(IOBUF),0) J = NROW 390 CALL INTPK (*650,FILEU(1),0,TYPEAR,0) IF (EOL) 650,410,650 410 CALL ZNTPKI I = NROW - II + 1 IF (I .NE. J) GO TO 510 C C DIVIDE BY THE DIAGONAL C IN1 = I*CMPLX K = 0 420 GO TO TRA4, (430,440,450,460) 430 X(IN1) = X(IN1)/A(1) GO TO 470 440 DX(IN1) = DX(IN1)/DA(1) GO TO 470 450 TEMP = (A(1)*X(IN1-1) + A(2)*X(IN1 ))/(A(1)*A(1) + A(2)*A(2)) X(IN1) = (A(1)*X(IN1 ) - A(2)*X(IN1-1))/(A(1)*A(1) + A(2)*A(2)) X(IN1-1) = TEMP GO TO 470 460 DTEMP = (DA(1)*DX(IN1-1) + DA(2)*DX(IN1 ))/(DA(1)**2 +DA(2)**2) DX(IN1) = (DA(1)*DX(IN1 ) - DA(2)*DX(IN1-1))/(DA(1)**2 +DA(2)**2) DX(IN1-1) = DTEMP 470 K = K + 1 IN1 = IN1 + NROW*CMPLX IF (K-NN) 420,490,490 C C SUBTRACT OFF REMAINING TERMS C 480 IF (I .GT. J) GO TO 410 490 IF (EOL) 590,500,590 500 CALL ZNTPKI I = NROW - II + 1 510 IN1 = I*CMPLX IN2 = J*CMPLX IF (I .LT. J) GO TO 520 K = IN1 IN1 = IN2 - IOFF*CMPLX IN2 = K 520 K = 0 530 GO TO TRA5, (540,550,560,570) 540 X(IN1) = X(IN1) - A(1)*X(IN2) GO TO 580 550 DX(IN1) = DX(IN1) - DX(IN2)*DA(1) GO TO 580 560 X(IN1-1) = X(IN1-1) - A(1)*X(IN2-1) + A(2)*X(IN2 ) X(IN1 ) = X(IN1 ) - A(1)*X(IN2 ) - A(2)*X(IN2-1) GO TO 580 570 DX(IN1-1) = DX(IN1-1) - DA(1)*DX(IN2-1) + DA(2)*DX(IN2 ) DX(IN1 ) = DX(IN1 ) - DA(1)*DX(IN2 ) - DA(2)*DX(IN2-1) 580 IN1 = IN1 + NROW*CMPLX IN2 = IN2 + NROW*CMPLX K = K + 1 IF (K-NN) 530,480,480 590 J = J - 1 IF (J .GT. 0) GO TO 390 CALL CLOSE (FILEU(1),REW) C C OUTPUT LOAD VECTORS C 592 CONTINUE CALL GOPEN (FILEX,X(IOBUF),WRT) L = 1 IY = 1 IF (FORMB .NE. IDENTY) NXTNZ = X(ICOL) KHR = ICOL DO 600 COL = FSTCOL,LSTCOL IF (FORMB .EQ. IDENTY) GO TO 595 C 593 CONTINUE IF (COL-NXTNZ) 594,595,901 594 JY = 1 CALL PACK (ZEROS,FILEX,FILEX) GO TO 600 595 JY = NROW CALL PACK (X(L),FILEX,FILEX) L = L + INCR KHR = KHR - 1 IF (FORMB .NE. IDENTY) NXTNZ = X(KHR) 600 CONTINUE IF (FORMB.NE.IDENTY .AND. KHR.NE.NCOL) GO TO 902 IF (LSTCOL .EQ. LSTLOD) CLSOP = REW CALL CLOSE (FILEX,CLSOP) NOLOAD = NOLOAD - (LSTCOL-FSTCOL+1) IF (LSTCOL .EQ. LSTLOD) GO TO 670 COL = LSTCOL + 1 IF (FORMB .EQ. IDENTY) GO TO 100 CALL GOPEN (FILEB,X(IOBUF),RD) GO TO 60 640 PARM(1) = -8 GO TO 660 650 PARM(1) = -5 660 CALL MESAGE (PARM(1),PARM(2),PARM(3)) 670 IF (FILEX(2) .NE. LSTLOD) GO TO 903 BUF(1) = SUBNAM(1) BUF(2) = END CALL CONMSG (BUF,2,0) RETURN C C LOGIC ERRORS LAND HERE C 901 KERR = 593 GO TO 997 902 KERR = 600 GO TO 997 903 KERR = 670 GO TO 997 997 WRITE (NOUT,998) SFM,KERR 998 FORMAT (A25,I4,' - LOGIC ERROR IN GFBS') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/gfscom.f ================================================ SUBROUTINE GFSCOM(AWY,NUY,KC,IDENT,AC,SCR) C C ROUTINE TO COMPUTE THE FLUID COMPRESSIBILTY MATRIX C C THIS MATRIX CONTAINS THE SPRING FACTOR WHICH COUPLES THE C STRUCTURE AND FREE SURFACE TO PREVENT VOLUME CHANGES C DOUBLE PRECISION DZ(1) ,DKCOMP ,VAL C REAL KCOMP ,RZ(1) C INTEGER KC ,AC ,Z ,SYSBUF ,AWY 1 ,MCB(7) ,NAME(2) ,TI1 ,TO1 ,TO2 2 ,SCR C C C MODULE PARAMETERS C COMMON /BLANK/ NOGRAV ,NOFREE ,KCOMP ,COMPTP 1 ,FORM ,LMODES C C OPEN CORE C COMMON / ZZZZZZ / Z(1) C C SYSTEM COMMON C COMMON / SYSTEM / SYSBUF C C PACK - UNPACK COMMON BLOCKS C COMMON / PACKX / TI1 ,TO1 ,I1 ,N1 1 ,INCR1 COMMON / UNPAKX / TO2 ,I2 ,N2 ,INCR2 COMMON / ZBLPKX / A(4) ,IROW C EQUIVALENCE ( Z(1) , RZ(1) , DZ(1) ) 1 ,( VAL , A(1) ) C DATA NAME / 4HGFSC , 4HOM / C C ALLOCATE CORE C NZ = KORSZ(Z(1)) IBUF = NZ - SYSBUF NZ = IBUF - 1 IF(NZ .LT. NUY) GO TO 1008 C C FORM A COLUMN VECTOR OF ONES C TI1 = 1 TO1 = 2 I1 = 1 N1 = NUY INCR1 = 1 DO 30 I=1,NUY 30 RZ(I) = 1.0 CALL MAKMCB(MCB,IDENT,NUY,2,2) CALL GOPEN(IDENT,Z(IBUF),1) CALL PACK(RZ(1),IDENT,MCB) CALL CLOSE(IDENT,1) CALL WRTTRL(MCB) C CALL SSG2B(AWY,IDENT,0,AC,0,2,1,SCR) C C PERFORM MULTIPLY TO GET COMPRESSIBLITY MATRIX C C C UNPACK ROW OF AC INTO CORE C MCB(1) = AC CALL RDTRL(MCB) NROW = MCB(3) IF(NZ .LT. 2*NROW) GO TO 1008 TO2 = 2 I2 = 1 N2 = NROW INCR2 = 1 C CALL GOPEN(AC,Z(IBUF),0) CALL UNPACK(*40,AC,DZ(1)) GO TO 60 C C AC IS NULL C 40 DO 50 I=1,NROW 50 DZ(I) = 0.0D0 C C SET UP TO CREATE KC MATRIX C 60 CALL CLOSE(AC,1) C DKCOMP = DBLE(KCOMP) CALL GOPEN(KC,Z(IBUF),1) CALL MAKMCB(MCB,KC,NROW,1,2) C C LOOP OVER NON-ZERO TERMS OF AC TO CREATE KC C DO 90 I=1,NROW CALL BLDPK(2,2,KC,0,0) IF(DZ(I) .EQ. 0.0D0) GO TO 80 DO 70 J=1,NROW IROW = J VAL = DKCOMP * DZ(J) * DZ(I) CALL ZBLPKI 70 CONTINUE 80 CALL BLDPKN(KC,0,MCB) 90 CONTINUE CALL CLOSE(KC,1) C C WRITE TRAILER C CALL WRTTRL(MCB) RETURN C C ERRORS C 1008 CALL MESAGE(-8,0,NAME) RETURN END ================================================ FILE: mis/gfsdir.f ================================================ SUBROUTINE GFSDIR C C THIS ROUTINE PERFORMS THE DIRECT FORMULATION OF THE C FLUID/STRUCTURE MATRICES C EXTERNAL ANDF INTEGER SCR1 ,SCR2 ,SCR3 ,SCR4 ,SCR5 , 1 SCR6 ,SCR7 ,SCR8 ,AXY ,AFRY , 2 KYY ,DKAA ,DKFRFR ,KAA ,MAA , 3 GM ,GO ,USETS ,USETF ,KMAT , 4 MMAT ,GIA ,PVEC ,IDENT ,KJJL , 5 ANYBAR ,AFY ,AWY ,SCR9 ,KAABAR , 6 AMY ,AAYBAR ,AWJ ,KJJ ,GJW , 7 ANY ,AOY ,AJW ,AC ,GYW , 8 AAY ,KWWBAR ,MWWBAR ,KC ,H , 9 USET ,MCB(7) ,MBIT ,SBIT ,SFBIT , O OBIT ,UM ,US ,UO ,UG , 1 UN ,UA ,UF ,UY ,UAB , 2 UFR ,UI ,Z ,SYSBUF ,TWO , 3 FILE ,TYPIN ,TYPOUT ,BADD(11) ,NAME(2) , 4 UR ,USG ,USB ,UL ,UX , 5 UZ ,BIT ,AYW ,MT ,HC , 6 COMPTP ,ANDF REAL RZ(1) ,KCOMP ,RBADD(12) DOUBLE PRECISION DBADD(5) C C MODULE PARAMETERS C COMMON / BLANK / NOGRAV ,NOFREE ,KCOMP ,COMPTP , 1 FORM ,LMODES C C SYSTEM COMMON C COMMON / SYSTEM / SYSBUF C C CALCV COMMON BLOCK C COMMON / PATX / LCORE ,NSUB0 ,NSUB1 ,NSUB2 , 1 USET C C OPEN CORE C COMMON / ZZZZZZ / Z(1) C C PACK COMMON BLOCKS C COMMON / ZBLPKX / A(4) ,IROW COMMON / PACKX / TYPIN ,TYPOUT ,II ,NN , 1 INCR C C POWERS OF TWO C COMMON / TWO / TWO(32) C C USET BIT POSITIONS C COMMON / BITPOS / UM ,UO ,UR ,USG , 1 USB ,UL ,UA ,UF , 2 US ,UN ,UG ,BIT(12) , 3 UX ,UY ,UFR ,UZ , 4 UAB ,UI C C SCRATCH FILE ASSIGNMENTS C EQUIVALENCE (BADD(1),RBADD(2)) , (DBADD(1),RBADD(3)) , 1 (RZ(1), Z(1)), 2 (SCR1 , PVEC , IDENT , KJJL) , 3 (SCR2 , ANYBAR , AFY , AWY ) , 4 (SCR3 , AMY , AAYBAR , AWJ , GJW , KJJ) , 5 (SCR4 , AOY , AJW , GYW) , 6 (SCR5 , AAY , KWWBAR , AYW ) , 7 (SCR6 , AC) , 8 (SCR7 , KC , MT) , 9 (SCR8 , H) , O (SCR9 , GIA) C C GINO FILE ASSIGNMENTS C DATA AXY ,AFRY ,KYY ,DKAA ,DKFRFR , 1 KAA ,MAA ,GM ,GO ,USETS , 2 USETF ,KMAT ,MMAT ,HC , 3 GIA ,SCR1 ,SCR2 ,SCR3 ,SCR4 , 4 SCR5 ,SCR6 ,SCR7 ,SCR8 / 5 101 ,102 ,103 ,104 ,105 , 6 106 ,107 ,108 ,109 ,110 , 7 111 ,201 ,202 ,205 , 8 203 ,301 ,302 ,303 ,304 , 9 305 ,306 ,307 ,308 / C DATA NAME / 4HGFSD ,4HIR / DATA BADD / 11*0 / C C ANY = SCR4 KAABAR = SCR2 MWWBAR = SCR6 C LCORE = KORSZ(Z(1)) IBUF = LCORE - SYSBUF - 1 IF (IBUF .LT. 0) GO TO 1008 C C REDUCE FLUID / STRUCTURE AREA MATRIX. MATRIX IS TREATED AS C A LOAD VECTOR C MCB(1) = USETS CALL RDTRL (MCB) MBIT = ANDF(MCB(5),TWO(UM)) SBIT = ANDF(MCB(5),TWO(US)) OBIT = ANDF(MCB(5),TWO(UO)) C USET = USETS C C PARTITION OUT MULTIPOINT CONSTRAINTS C IF (MBIT) 10,20,10 10 CALL CALCV (PVEC,UG,UN,UM,Z(1)) CALL GFSPTN (AXY,ANYBAR,AMY,0,0,0,PVEC) CALL SSG2B (GM,AMY,ANYBAR,ANY,1,2,1,SCR1) GO TO 30 C 20 ANY = AXY C C PARTITION OUT SINGLE POINT CONSTRAINTS C 30 IF (SBIT) 40,50,40 40 CALL CALCV (PVEC,UN,UF,US,Z(1)) CALL GFSPTN (ANY,AFY,0,0,0,0,PVEC) GO TO 60 C 50 CALL GFSWCH (AFY,ANY) C C PARTITION OUT OMITS C 60 IF (OBIT) 70,80,70 70 CALL CALCV (PVEC,UF,UA,UO,Z(1)) CALL GFSPTN (AFY,AAYBAR,AOY,0,0,0,PVEC) CALL SSG2B (GO,AOY,AAYBAR,AAY,1,2,1,SCR1) GO TO 85 C 80 CALL GFSWCH (AAY,AFY) C C IF FREE SURFACE POINTS EXIST - MERGE THEM WITH THE REDUCED C AREA MATRIX C 85 USET = USETF IF (NOFREE) 100,90,90 90 CALL CALCV (PVEC,UA,UAB,UFR,Z(1)) CALL GFSMRG (AWY,AAY,AFRY,0,0,0,PVEC) GO TO 110 C 100 CALL GFSWCH (AWY,AAY) C C DETERMINE IF ANY SINGLE POINT CONSTRAINTS EXIST ON THE FLUID C 110 CALL CALCV (PVEC,UY,UF,US,Z(1)) NUY = NSUB0 + NSUB1 SFBIT = 1 IF (NSUB1 .EQ. 0) SFBIT = 0 C C IF SPC POINTS EXIST ON THE FLUID - PARTITION THEM OUT OF C THE FLUID AREA AND STIFFNESS MATRIX C IF (SFBIT) 120,130,120 120 CALL GFSPTN (AWY,AWJ,0,0,0,PVEC,0) CALL GFSTRN (AWJ,AJW,SCR2,SCR5) CALL GFSPTN (KYY,KJJ,0,0,0,PVEC,PVEC) GO TO 170 C C NO SPC POINTS EXIST ON THE FLUID C C CONSTRAIN THE FIRST FLUID POINT TO REMOVE ANY POTENTIAL C SINGULARITIES C 130 CALL GFSSPC (NUY,PVEC) NSUB0 = NUY - 1 NSUB1 = 1 CALL GFSPTN (KYY,KJJ,0,0,0,PVEC,PVEC) C C GENERATE THE H TRANSFORMATION MATRIX C CALL GFSH (NUY,H) CALL GFSTRN (AWY,AYW,SCR1,SCR6) CALL SSG2B (H,AYW,0,AJW,0,2,1,SCR6) C C CHECK COMPRESSIBLITY TYPE C IF (COMPTP .GT. 0) GO TO 140 C C A SPRING WILL BE GENERATED TO COUPLE THE STRUCTURE AND THE C FREE SURFACE TO RESTRICT VOLUME CHANGES C C COMPUTE THE COMPRESSIBLITY MATRIX WHICH CONTAINS THIS SPRING C CALL GFSCOM (AWY,NUY,KC,IDENT,AC,SCR5) GO TO 170 C C PURELY INCOMPRESSIBLE APPROACH - A CONSTRAINT EQUATION IS C GENERATED TO RESTRICT VOLUME CHANGE C C GENERATE HC MATRIX WHICH CONTAINS THE CONSTRAINT C 140 CALL GFSHC (AWY,NUY,HC,IDENT,AC,MROW) C C SOLVE FOR THE INITIAL PRESSURE TRANSFORMATION MATRIX C 170 CALL FACTOR (KJJ,KJJL,SCR2,SCR5,SCR6,SCR9) CALL SSG3A (0,KJJL,AJW,GJW,SCR5,SCR6,-1,0) C C IF GRAVITY EXISTS - ADD THE ADDITIONAL STIFFNESS C IF (NOGRAV) 190,180,180 180 BADD (1) = 2 DBADD(1) = 1.0D0 BADD (7) = 2 DBADD(4) = 1.0D0 CALL SSG2C (KAA,DKAA,KAABAR,0,BADD) GO TO 200 C 190 KAABAR = KAA C C IF FREE SURFACE EXISTS - MERGE THE STIFFNESS TO SOLUTION SIZE C AND EXPAND THE MASS MATRIX C 200 IF (NOFREE) 220,210,210 210 CALL CALCV (PVEC,UA,UAB,UFR,Z(1)) CALL GFSMRG (KWWBAR,KAABAR,0,0,DKFRFR,PVEC,PVEC) CALL GFSMRG (MWWBAR,MAA,0,0,0,PVEC,PVEC) GO TO 230 C 220 CALL GFSWCH (KWWBAR,KAABAR) MWWBAR = MAA C C COMPUTE THE FINAL MASS MATRIX C FOR COMPTP = 1 THIS MATRIX IS NOT THE FINAL ONE C 230 CALL SSG2B (AJW,GJW,MWWBAR,MMAT,1,2,1,SCR2) C C COMPUTE THE FINAL STIFFNESS MATRIX C IF (SFBIT) 260,240,260 240 IF (COMPTP .GT. 0) GO TO 250 C C ADD IN THE SPRING FACTOR KC C BADD (1) = 2 DBADD(1) = 1.0D0 BADD (7) = 2 DBADD(4) = 1.0D0 CALL SSG2C (KWWBAR,KC,KMAT,0,BADD) GO TO 270 C C APPLY THE CONSTRAINT EQUATION TO STIFFNESS AND MASS FOR C THE INCOMPRESSIBLE APPROACH C 250 CALL SSG2B (HC,KWWBAR,0,SCR2,1,2,1,SCR1) CALL SSG2B (SCR2,HC,0,KMAT,0,2,1,SCR1) CALL SSG2B (HC,MMAT,0,SCR2,1,2,1,SCR1) CALL SSG2B (SCR2,HC,0,MT,0,2,1,SCR1) C C ADD 1.0 TO THE NULL COLUMN IN THE MASS MATRIX TO PREVENT C SINGULATITIES C CALL GFSMT (MT,MMAT,MROW) GO TO 270 C 260 CALL GFSWCH (KMAT,KWWBAR) C C TRANSFORM THE FINAL PRESSURE TRANSFORMATION MATRIX OR IF C SPC POINTS EXIST ON THE FLUID MERGE IN ZEROS C 270 IF (SFBIT) 300,280,300 280 CALL SSG2B (H,GJW,0,GYW,1,2,1,SCR5) GO TO 310 C 300 CALL CALCV (PVEC,UY,UF,US,Z(1)) CALL GFSMRG (GYW,GJW,0,0,0,0,PVEC) C C PARTITON OUT THE FREE SURFACE POINTS C 310 IF (NOFREE) 330,320,320 320 CALL CALCV (PVEC,UY,UFR,UI,Z(1)) CALL GFSPTN (GYW,0,GIA,0,0,0,PVEC) RETURN C 330 CALL GFSWCH (GIA,GYW) RETURN C C ERROR CONDITIONS C 1008 N = -8 CALL MESAGE (N,FILE,NAME) RETURN END ================================================ FILE: mis/gfsh.f ================================================ SUBROUTINE GFSH(NUY,H) C C ROUTINE TO CALCULTE THE H TRANSFORMATION MATRIX USED WHEN NO C SPC'S ARE ON THE FLUID C REAL RZ(2) C INTEGER Z ,SYSBUF ,MCB(7) ,H ,TI1 1 ,TO1 ,NAME(2) C C OPEN CORE C COMMON / ZZZZZZ / Z(1) C C SYSTEM COMMON C COMMON / SYSTEM / SYSBUF C C PACK - UNPACK COMMON BLOCKS C COMMON / PACKX / TI1 ,TO1 ,I1 ,N1 1 ,INCR1 C EQUIVALENCE ( Z(1) , RZ(1) ) C DATA NAME / 4HGFSH , 4H / C C ALLOCATE CORE C NZ = KORSZ(Z(1)) IBUF = NZ - SYSBUF NZ = IBUF - 1 IF(NZ .LT. NUY) GO TO 1008 NUY1 = NUY - 1 CALL MAKMCB(MCB,H,NUY1,2,2) TI1 = 1 TO1 = 2 I1 = 1 N1 = NUY1 INCR1 = 1 C DO 100 I=1,NUY 100 RZ(I) = -1.0 / FLOAT(NUY) CALL GOPEN(H,Z(IBUF),1) DO 120 I=1,NUY RZ(I) = FLOAT(NUY1) / FLOAT(NUY) CALL PACK(RZ(2),H,MCB) 120 RZ(I) = -1.0 / FLOAT(NUY) CALL CLOSE(H,1) CALL WRTTRL(MCB) RETURN C C ERRORS C 1008 CALL MESAGE(-8,0,NAME) RETURN END ================================================ FILE: mis/gfshc.f ================================================ SUBROUTINE GFSHC(AWY,NUY,HC,IDENT,AC,MROW) C C ROUTINE TO GENERATE CONSTRAINT MATRIX FOR PURELY INCOMPRESSIBLE C FORMULATION WHEN NO SPC'S ARE ON FLUID C DOUBLE PRECISION DZ(1) ,DTERM ,VAL C REAL RZ(1) C INTEGER Z ,SYSBUF ,MCB(7) ,NAME(2) ,HC 1 ,TI1 ,TO1 ,TO2 ,AWY ,SCR 2 ,AC C C OPEN CORE C COMMON / ZZZZZZ / Z(1) C C SYSTEM COMMON C COMMON / SYSTEM / SYSBUF C C PACK - UNPACK COMMON BLOCKS C COMMON / PACKX / TI1 ,TO1 ,I1 ,N1 1 ,INCR1 COMMON / UNPAKX / TO2 ,I2 ,N2 ,INCR2 COMMON / ZBLPKX / A(4) ,IROW C EQUIVALENCE ( Z(1) , RZ(1) , DZ(1) ) 1 ,( VAL , A(1) ) C DATA NAME / 4HGFSH , 4HC / C C C ALLOCATE CORE C NZ = KORSZ(Z(1)) IBUF = NZ - SYSBUF NZ = IBUF - 1 IF(NZ .LT. NUY) GO TO 1008 C C FORM A COLUMN VECTOR OF ONES C TI1 = 1 TO1 = 2 I1 = 1 N1 = NUY INCR1 = 1 DO 30 I=1,NUY 30 RZ(I) = 1.0 CALL MAKMCB(MCB,IDENT,NUY,2,2) CALL GOPEN(IDENT,Z(IBUF),1) CALL PACK(RZ(1),IDENT,MCB) CALL CLOSE(IDENT,1) CALL WRTTRL(MCB) C CALL SSG2B(AWY,IDENT,0,AC,0,2,1,SCR) C C PERFORM MULTIPLY TO GET COMPRESSIBLITY MATRIX C C C UNPACK ROW OF AC INTO CORE C MCB(1) = AC CALL RDTRL(MCB) NROW = MCB(3) IF(NZ .LT. 2*NROW) GO TO 1008 TO2 = 2 I2 = 1 N2 = NROW INCR2 = 1 C CALL GOPEN(AC,Z(IBUF),0) CALL UNPACK(*40,AC,DZ(1)) GO TO 60 C C AC IS NULL C 40 DO 50 I=1,NROW 50 DZ(I) = 0.0D0 C 60 CALL CLOSE(AC,1) C C LOCATE LARGEST TERM IN AC C DTERM = -1.0D10 DO 210 I=1,NROW IF(DZ(I) .LE. DTERM) GO TO 210 MROW = I DTERM = DZ(I) 210 CONTINUE C C GENERATE THE HC MATRIX C CALL MAKMCB(MCB,HC,NROW,1,2) CALL GOPEN(HC,Z(IBUF),1) C C GENERATE COLUMNS UP TO MROW C IF(MROW .EQ. 1) GO TO 230 MR = MROW - 1 DO 220 IR = 1,MR CALL BLDPK(2,2,HC,0,0) IROW = IR VAL = 1.0D0 CALL ZBLPKI IROW = MROW VAL = -DZ(IR) / DTERM CALL ZBLPKI 220 CALL BLDPKN(HC,0,MCB) C C PACK OUT NULL COLUMN FOR MROW C 230 CALL BLDPK(2,2,HC,0,0) CALL BLDPKN(HC,0,MCB) C C GENERATE REMAINING ROWS C IF(MROW .GE. NROW) GO TO 250 MR = MROW + 1 DO 240 IR=MR,NROW CALL BLDPK(2,2,HC,0,0) IROW = MROW VAL = -DZ(IR) / DTERM CALL ZBLPKI IROW = IR VAL = 1.0D0 CALL ZBLPKI 240 CALL BLDPKN(HC,0,MCB) C 250 CALL CLOSE(HC,1) CALL WRTTRL(MCB) C RETURN C C ERRORS C 1008 CALL MESAGE(-8,0,NAME) RETURN END ================================================ FILE: mis/gfsma.f ================================================ SUBROUTINE GFSMA C C MODULE GFSMA ( GENERAL FLUID / STRUCTURE MATRIX ASSEMBLER ) C C C DMAP CALL C C GFSMA AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF, C PHIA,PHIX,LAMA/KMAT,MMAT,GIA,POUT,HC/V,N,NOGRAV/ C V,N,NOFREE/V,Y,KCOMP/V,Y,COMPTYP/V,N,FORM/V,Y,LMODES $ C C INPUT DATA BLOCKS C C AXY - STRUCTURE / FLUID AREA MATRIX C AFRY - FREE SURFACE AREA MATRIX C KYY - FLUID STIFFNESS MATRIX C DKAA - STRUCTURE GRAVITY STIFFNESS MATRIX C DKFRFR - FREE SURFACE GRAVITY STIFFNESS MATRIX C KAA - REDUCED STRUCTURE STIFFNESS MATRIX C MAA - REDUCED STRUCTURE MASS MATRIX C GM - MULTIPOINT CONSTRAINT TRANSFORMATION MATRIX C GO - OMIT POINT TRANSFORMATION MATRIX C USETS - STRUCTURE ONLY SET DEFINITION TABLE C USETF - FLUID AND STRUCTURE SET DEFINITION TABLE C PHIA - SOLUTION EIGENVECTORS A - SET C PHIX - SOLUTION EIGENVECTORS X - SET C LAMA - SOLUTION EIGENVALUE TABLE C C OUTPUT DATA BLOCKS C C KMAT - COMBINATION FLUID / STRUCTURE STIFFNESS MATRIX C MMAT - COMBINATION FLUID / STRUCTURE MASS MATRIX C GIA - PRESSURE TRANSFORMATION MATRIX C POUT - PARTITIONING VECTOR FOR MODAL DISPLACEMENTS C HC - CONSTRAINT TRANSFORMATION MATRIX FOR INCOMPRESSIBLE C APPROACH C C PARAMETERS C C NOGRAV - GRAVITY FLAG (-1 FOR NO GRAVITY) C NOFREE - FREE SURFACE FLAG (-1 FOR NO FREE SURFACE) C KCOMP - COMPRESSIBILITY FACTOR (DEFAULT = 1.0) C COMPTYP - TYPE OF COMPRESSIBLILITY COMPUTATIONS C -1 STRUCTURE AND FREE SURFACE ARE COUPLED C WITH A SPRING TO RESIST VOLUME CHANGE C 1 PURE INCOMPRESSIBLE - CONSTRAINT EQUATION C IS GENERATED TO RESTRICT VOLUME CHANGE C FORM - TYPE OF FORMULATION TO BE USED C -1 DIRECT FORMULATION C 1 MODAL FORMULATION C LMODES - NUMBER OF MODES USED IN MODAL FORMULATION C ( -1 IF ALL STRUCTURE MODES ARE TO BE USED ( C INTEGER FORM ,COMPTP C C MODULE PARAMETERS C COMMON /BLANK/ NOGRAV ,NOFREE ,KCOMP ,COMPTP 1 ,FORM ,LMODES C C LOCAL VARIABLES FOR GFSMOD AND GFSMO2 C COMMON /GFSMOX/ DUMMY(38) C*********************************************************************** C IF(FORM .GT. 0) GO TO 10 C C DIRECT FORMULATION C CALL GFSDIR GO TO 100 C C MODAL FORMULATION C 10 CALL GFSMOD CALL GFSMO2 C C MODULE COMPLETION C 100 CONTINUE RETURN END ================================================ FILE: mis/gfsmo2.f ================================================ SUBROUTINE GFSMO2 C C THIS ROUTINE IS THE CONTINUATION OF GFSMOD C REAL RZ(1) ,EIGVAL(7) C DOUBLE PRECISION DBADD(5) C INTEGER SCR1 ,SCR2 ,SCR3 ,SCR4 ,SCR5 1 ,SCR6 ,SCR7 ,SCR8 ,SCR9 ,SCR10 2 ,AXY ,AFRY ,KYY ,DKAA ,DKFRFR 3 ,USETF ,PHIA ,PHIX ,AC ,POUT 4 ,LAMA ,KMAT ,MMAT ,GIA ,PVEC 5 ,IDENT ,USET ,USETD ,KC ,H 6 ,COMPTP ,AZY ,AHY ,AHJ ,AJH 7 ,KJJ ,AYH ,KJJL ,GJH ,MZZ 8 ,KZZ ,MHHBAR ,PHIAR ,KZZBAR ,KHHBAR 9 ,GYH ,MCB(7) ,SFBIT ,FILE ,UM 1 ,UZ ,UNZ ,UFR ,UH ,UY 2 ,UF ,US ,UI ,Z ,SYSBUF 3 ,TWO ,TYPIN ,TYPOUT ,BADD(11) ,NAME(2) C C MODULE PARAMETERS C COMMON /BLANK/ NOGRAV ,NOFREE ,KCOMP ,COMPTP 1 ,FORM ,LLMODE C C SYSTEM COMMON C COMMON / SYSTEM / SYSBUF ,NOUT C C CALCV COMMON BLOCK C COMMON / PATX / LCORE ,NSUB0 ,NSUB1 ,NSUB2 1 ,USET C C OPEN CORE C COMMON / ZZZZZZ / Z(1) C C PACK COMMON BLOCK C COMMON / PACKX / TYPIN ,TYPOUT ,II ,NN 1 ,INCR C C POWERS OF TWO C COMMON / TWO / TWO(32) C C USET BIT POSITIONS - SOME OF THESE ARE USED JUST HERE C COMMON / BITPOS / UNZ ,UZ ,UM ,UH 1 ,BIT1(3) ,UF ,US ,BIT2(15) 2 ,UY ,UFR ,BIT3(2) ,UI C C LOCAL VARIABLES FOR GFSMO1 AND GFSMO2 C COMMON /GFSMOX/AXY ,AFRY ,KYY ,DKAA ,DKFRFR 1 ,USETF ,PHIA ,PHIX ,LAMA 2 ,KMAT ,MMAT ,GIA ,POUT 3 ,SCR1 ,SCR2 ,SCR3 ,SCR4 ,SCR5 4 ,SCR6 ,SCR7 ,SCR8 5 ,LMODES ,NMODES ,IBUF ,SFBIT ,BADD 6 ,NAME C C SCRATCH FILE ASSIGNMENTS C EQUIVALENCE ( BADD(2) , DBADD(1) ) 1 ,( RZ(1) , Z(1) ) 2 ,( SCR1 , USETD ) 3 ,( SCR2 , PVEC , IDENT , KJJL ) 4 ,( SCR3 , AZY , AHJ , KJJ , GJH ) 5 ,( SCR4 , AJH , KHHBAR , GYH ) 6 ,( SCR5 , AC , AYH , MZZ , KZZBAR ) 7 ,( SCR6 , KZZ ) 8 ,( SCR7 , KC , AHY ) 9 ,( SCR8 , H ) 1 ,( SCR9 , MMAT ) 2 ,( SCR10 , GIA , MHHBAR ) C C C*********************************************************************** C C C GET THE GENERALIZED STIFFNESS AND MASS FOR THE DESIRED MODES C FROM THE LAMA DATA BLOCK C IF(2*LMODES .GE. IBUF) GO TO 1008 CALL GOPEN(LAMA,Z(IBUF),0) FILE = LAMA CALL FWDREC(*1002,LAMA) IGK = 1 IGM = LMODES + 1 DO 170 I=1,LMODES 165 CALL READ(*1001,*1002,LAMA,EIGVAL,7,0,N) IF(EIGVAL(6) .EQ. 0.0) GO TO 165 RZ(IGK) = EIGVAL(7) IGK = IGK + 1 RZ(IGM) = EIGVAL(6) IGM = IGM + 1 170 CONTINUE CALL CLOSE(LAMA,1) C C GENERATE THE DIAGONAL MODAL STIFFNESS MATRIX C I1 = 1 I2 = LMODES CALL MAKMCB(MCB,KZZ,LMODES,6,2) CALL GOPEN(KZZ,Z(IBUF),1) TYPIN = 1 TYPOUT = 2 INCR = 1 DO 180 I=I1,I2 II = I NN = I 180 CALL PACK(RZ(I),KZZ,MCB) CALL CLOSE(KZZ,1) CALL WRTTRL(MCB) C C GENERATE THE DIAGANOL MODAL MASS MATRIX C I1 = LMODES + 1 I2 = 2 * LMODES CALL MAKMCB(MCB,MZZ,LMODES,6,2) CALL GOPEN(MZZ,Z(IBUF),1) DO 190 I=I1,I2 II = I - LMODES NN = II 190 CALL PACK(RZ(I),MZZ,MCB) CALL CLOSE(MZZ,1) CALL WRTTRL(MCB) C C IF A FREE SURFACE EXISTS - EXPAND THE MASS MATRIX C THE PARTITIONING VECTOR WILL BE SAVED FOR DMAP USE C IF(NOFREE) 210,200,200 200 USET = USETD CALL CALCV(POUT,UH,UZ,UFR,Z(1)) NSUB0S = NSUB0 NSUB1S = NSUB1 CALL GFSMRG(MHHBAR,MZZ,0,0,0,POUT,POUT) GO TO 220 C 210 CALL GFSWCH(MHHBAR,MZZ) C C COMPUTE THE FINAL MASS MATRIX C 220 CALL SSG2B(AJH,GJH,MHHBAR,MMAT,1,2,1,SCR2) C C IF GRAVITY EXISTS - TRANSFORM THE ADDITIONAL STIFFNESS AND C ADD IT IN. BE SURE TO USE ONLY THOSE MODES REQUESTED IN C THE TRANSFORMATION FROM PHIA C IF(NOGRAV) 260,230,230 230 USET = USETD IF(LMODES .GE. NMODES) GO TO 240 CALL CALCV(PVEC,UM,UZ,UNZ,Z(1)) CALL GFSPTN(PHIA,PHIAR,0,0,0,PVEC,0) GO TO 250 C 240 PHIAR = PHIA C 250 CALL SSG2B(PHIAR,DKAA,0,SCR2,1,2,1,SCR5) CALL SSG2B(SCR2,PHIAR,KZZ,KZZBAR,0,2,1,SCR10) GO TO 270 C 260 CALL GFSWCH(KZZ,KZZBAR) C C IF A FREE SURFACE EXISTS - MERGE THE FREE SURFACE STIFFNESS IN C 270 IF(NOFREE) 290,280,280 280 NSUB0 = NSUB0S NSUB1 = NSUB1S CALL GFSMRG(KHHBAR,KZZBAR,0,0,DKFRFR,POUT,POUT) GO TO 300 C 290 CALL GFSWCH(KHHBAR,KZZBAR) C C COMPUTE THE FINAL STIFFNESS MATRIX BY ADDING IN COMPRESSIBILITY C IF IT EXISTS C 300 IF(SFBIT) 320,310,320 310 BADD(1) = 2 DBADD(1) = 1.0D0 BADD(7) = 2 DBADD(4) = 1.0D0 CALL SSG2C(KHHBAR,KC,KMAT,0,BADD) C GO TO 330 320 CALL GFSWCH(KHHBAR,KMAT) C C TRANSFORM THE FINAL PRESSURE TRANSFORMATION MATRIX OR IF SPC C POINTS EXIST ON THE FLUID MERGE IN ZEROS C 330 USET = USETF IF(SFBIT) 350,340,350 340 CALL SSG2B(H,GJH,0,GYH,1,2,1,SCR5) GO TO 360 C 350 CALL CALCV(PVEC,UY,UF,US,Z(1)) CALL GFSMRG(GYH,GJH,0,0,0,0,PVEC) C C PARTITION OUT THE FREE SURFACE POINTS C 360 IF(NOFREE) 380,370,370 370 CALL CALCV(PVEC,UY,UFR,UI,Z(1)) CALL GFSPTN(GYH,0,GIA,0,0,0,PVEC) RETURN C 380 CALL GFSWCH(GYH,GIA) RETURN C C ERROR EXITS C 1001 N = -1 GO TO 9999 1002 N = -2 GO TO 9999 1008 N = -8 C 9999 CALL MESAGE(N,FILE,NAME) RETURN END ================================================ FILE: mis/gfsmod.f ================================================ SUBROUTINE GFSMOD C C THIS ROUTINE PERFORMS THE MODAL FORMULATION OF THE C FLUID / STRUCTURE MATRICES C EXTERNAL ANDF INTEGER SCR1 ,SCR2 ,SCR3 ,SCR4 ,SCR5 , 1 SCR6 ,SCR7 ,SCR8 ,SCR9 ,SCR10 , 2 AXY ,AFRY ,KYY ,DKAA ,DKFRFR , 3 USETF ,PHIA ,PHIX ,AC ,POUT , 4 LAMA ,KMAT ,MMAT ,GIA ,PVEC , 5 IDENT ,USET ,USETD ,KC ,H , 6 COMPTP ,AZY ,AHY ,AHJ ,AJH , 7 KJJ ,AYH ,KJJL ,GJH ,MZZ , 8 KZZ ,MHHBAR ,PHIAR ,KZZBAR ,KHHBAR , 9 GYH ,MCB(7) ,SFBIT ,FILE ,UM , 1 UZ ,UNZ ,UFR ,UH ,UY , 2 UF ,US ,UI ,Z ,SYSBUF , 3 TWO ,TYPIN ,TYPOUT ,BADD(11) ,NAME(2) , 4 PHIXR ,ANDF ,NAMEX(2) REAL RZ(1) DOUBLE PRECISION DBADD(5) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /BLANK / NOGRAV ,NOFREE ,KCOMP ,COMPTP ,FORM , 1 LLMODE COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /PATX / LCORE ,NSUB0 ,NSUB1 ,NSUB2 ,USET COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / TYPIN ,TYPOUT ,II ,NN ,INCR COMMON /TWO / TWO(32) COMMON /BITPOS/ UNZ ,UZ ,UM ,UH ,BIT1(3) , 1 UF ,US ,BIT2(15) ,UY ,UFR , 2 BIT3(2) ,UI COMMON /GFSMOX/ AXY ,AFRY ,KYY ,DKAA ,DKFRFR , 1 USETF ,PHIA ,PHIX ,LAMA , 2 KMAT ,MMAT ,GIA ,POUT , 3 SCR1 ,SCR2 ,SCR3 ,SCR4 ,SCR5 , 4 SCR6 ,SCR7 ,SCR8 , 5 LMODES ,NMODES ,IBUF ,SFBIT ,BADD , 6 NAME EQUIVALENCE (BADD(2),DBADD(1)) ,(RZ(1),Z(1)) , 1 (SCR1,USETD) ,(SCR2,PVEC,IDENT,KJJL) , 2 (SCR3,AZY,AHJ,KJJ,GJH) ,(SCR4,AJH,KHHBAR,GYH) , 3 (SCR5,AC,AYH,MZZ,KZZBAR) ,(SCR6,KZZ) , 4 (SCR7,KC,AHY) ,(SCR8,H) ,(SCR9,MMAT) , 5 (SCR10,GIA,MHHBAR) C DATA AXY ,AFRY ,KYY ,DKAA ,DKFRFR , C 1 USETF ,PHIA ,PHIX ,LAMA , C 2 KMAT ,MMAT ,GIA ,POUT , C 3 SCR1 ,SCR2 ,SCR3 ,SCR4 ,SCR5 , C 4 SCR6 ,SCR7 ,SCR8 / C 5 101 ,102 ,103 ,104 ,105 , C 6 111 ,112 ,113 ,114 , C 7 201 ,202 ,203 ,204 , C 8 301 ,302 ,303 ,304 ,305 , C 9 306 ,307 ,308 / C C DATA BADD / 11*0 / DATA NAMEX / 4HGFSM , 4HOD / C AXY = 101 AFRY = 102 KYY = 103 DKAA = 104 DKFRFR = 105 USETF = 111 PHIA = 112 PHIX = 113 LAMA = 114 KMAT = 201 MMAT = 202 GIA = 203 POUT = 204 SCR1 = 301 SCR2 = 302 SCR3 = 303 SCR4 = 304 SCR5 = 305 SCR6 = 306 SCR7 = 307 SCR8 = 308 NAME(1)= NAMEX(1) NAME(2)= NAMEX(2) DO 5 I = 1,11 5 BADD(I)= 0 C C PHIAR = SCR4 PHIXR = SCR2 C LCORE = KORSZ(Z(1)) IBUF = LCORE - SYSBUF - 1 IF (IBUF .LT. 0) GO TO 1008 C C CREATE A DUMMY USET VECTOR TOR USE WITH THE MODAL DISPLACEMENTS C C BIT POSITIONS WILL BE C C UM - MODAL POINT UZ + UNZ C UZ - DESIRED MODAL POINT C UNZ - MODAL POINT TO BE SKIPPED C UFR - FREE SURFACE POINT C UH - UFR + UZ C C SET MODAL DISPLACEMENTS C FILE = PHIX MCB(1) = PHIX CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 1001 NMODES = MCB(2) IF (LLMODE.GT.NMODES .OR. LLMODE.EQ.0) LLMODE = -1 LMODES = LLMODE IF (LMODES .LE. 0) LMODES = NMODES IF (LMODES.LE.0 .OR. LMODES.GT.NMODES) LMODES = NMODES IZM = TWO(UZ) + TWO(UM) + TWO(UH) INZM = TWO(UNZ) + TWO(UM) IF (IBUF .LE. NMODES) GO TO 1008 DO 10 I = 1,NMODES Z(I) = IZM IF (I .GT. LMODES) Z(I) = INZM 10 CONTINUE C C SET FREE SURFACE DISPLACEMENTS C IFR = TWO(UFR) + TWO(UH) LVEC = NMODES IF (NOFREE) 45,20,20 20 CALL GOPEN (USETF,Z(IBUF),0) 30 CALL READ (*40,*40,USETF,IBIT,1,0,N) IF (ANDF(IBIT,TWO(UFR)) .EQ. 0) GO TO 30 LVEC = LVEC + 1 IF (LVEC .GE. IBUF) GO TO 1008 Z(LVEC) = IFR GO TO 30 C 40 CALL CLOSE (USETF,1) C C WRITE DUMMY USETD FILE C 45 CALL GOPEN (USETD,Z(IBUF),1) CALL WRITE (USETD,Z(1),LVEC,1) CALL CLOSE (USETD,1) MCB(1) = USETD MCB(2) = LVEC DO 50 I = 3,7 50 MCB(I) = 0 CALL WRTTRL (MCB) C C EXTRACT THE DESIRED MODES FORM THE PHIX MATRIX C USET = USETD IF (LMODES .GE. NMODES) GO TO 70 CALL CALCV (PVEC,UM,UZ,UNZ,Z(1)) CALL GFSPTN (PHIX,PHIXR,0,0,0,PVEC,0) GO TO 80 C 70 PHIXR = PHIX C C TRANSFORM THE FLUID STRUCTURE AREA MATRIX C 80 CALL SSG2B (PHIXR,AXY,0,AZY,1,2,1,SCR5) C C IF FREE SURFACE POINTS EXIST - MERGE THEM WITH THE TRANSFORMED C AREA MATRIX C IF (NOFREE) 100,90,90 90 CALL CALCV (PVEC,UH,UZ,UFR,Z(1)) CALL GFSMRG (AHY,AZY,AFRY,0,0,0,PVEC) GO TO 110 C 100 CALL GFSWCH (AHY,AZY) C C DETERMINE IF ANY SINGLE POINT CONSTRAINTS EXIST ON THE FLUID C 110 USET = USETF CALL CALCV (PVEC,UY,UF,US,Z(1)) NUY = NSUB0 + NSUB1 SFBIT = 1 IF (NSUB1 .EQ. 0) SFBIT = 0 C C IF SPC POINTS EXIST ON THE FLUID - PARTITION THEM OUT OF THE C FLUID AREA AND STIFFNESS MATRICES C IF (SFBIT) 120,130,120 120 CALL GFSPTN (AHY,AHJ,0,0,0,PVEC,0) CALL GFSTRN (AHJ,AJH,SCR5,SCR6) CALL GFSPTN (KYY,KJJ,0,0,0,PVEC,PVEC) GO TO 160 C C IF NO SPC POINTS EXIST ON THE FLUID, CONSTRAIN THE FIRST FLUID C POINT TO REMOVE POTENTIAL SINGULARITIES C 130 IF (COMPTP .GT. 0) WRITE (NOUT,140) UWM 140 FORMAT (A25,' 8015. THE PURELY INCOMPRESSIBLE METHOD IS AVAIL', 1 'ABLE ONLY WITH THE DIRECT FORMULATION.') CALL GFSSPC (NUY,PVEC) NSUB0 = NUY - 1 NSUB1 = 1 CALL GFSPTN (KYY,KJJ,0,0,0,PVEC,PVEC) C C GENERATE THE H TRANSFORMATION MATRIX C CALL GFSH (NUY,H) CALL GFSTRN (AHY,AYH,SCR2,SCR6) CALL SSG2B (H,AYH,0,AJH,0,2,1,SCR6) C C GENERATE THE COMPRESSIBLITY MATRIX C CALL GFSCOM (AHY,NUY,KC,IDENT,AC,SCR6) C C SOLVE FOR THE INITIAL PRESSURE TRANSFORMATION MATRIX C 160 CALL FACTOR (KJJ,KJJL,SCR5,SCR6,SCR9,SCR10) CALL SSG3A (0,KJJL,AJH,GJH,SCR5,SCR6,-1,0) C C FOR COMPUTER CORE CONSERVATION REASON, THE REST OF GFSMOD IS C MOVED TO GFSMO2, WHICH CAN BE SEGMENTED IN PARALLEL WITH GFSMOD. C RETURN C C ERROR EXITS C 1001 N = -1 GO TO 9999 1008 N = -8 C 9999 CALL MESAGE (N,FILE,NAME) RETURN END ================================================ FILE: mis/gfsmrg.f ================================================ SUBROUTINE GFSMRG (FILEA,FILE11,FILE21,FILE12,FILE22,RPART,CPART) C C GENERAL MATRIX MERGE ROUTINE C C C -- -- C I I I C I FILE11 I FILE12 I -- -- C I I I I I C I-----------------I = I FILEA I C I I I I I C I FILE21 I FILE22 I -- -- C I I I C -- -- C C WHERE C C RPART - ROW PARTITIONING VECTOR C CPART - COLUMN PARTITION VECTOR C C INTEGER FILEA ,FILE11 ,FILE12 ,FILE21 ,FILE22 , 1 RPART ,CPART ,RULE ,CORE ,NAME(2) , 2 RP(7) ,CP(7) C C OPEN CORE C COMMON / ZZZZZZ / CORE(1) C C CALCV COMMON BLOCK C COMMON / PATX / LCORE ,NSUB0 ,NSUB1 C C PARTITION - MERGE COMMON BLOCK C COMMON / PARMEG / IA(7) ,IA11(7) ,IA21(7) ,IA12(7) , 1 IA22(7) ,LCR ,RULE C DATA NAME / 4HGFSM , 4HRG / C C C GET TRAILERS FOR INPUTS C RP(1) = RPART IF (RPART .NE. 0) CALL RDTRL (RP) CP(1) = CPART IF (CPART .NE. 0) CALL RDTRL (CP) C DO 10 I = 2,7 IA(I) = 0 IA11(I) = 0 IA12(I) = 0 IA21(I) = 0 10 IA22(I) = 0 C IA11(1) = FILE11 IF (FILE11 .NE. 0) CALL RDTRL (IA11) IF (IA11(1) .LT. 0) IA11(1) = 0 IA12(1) = FILE12 IF (FILE12 .NE. 0) CALL RDTRL (IA12) IF (IA12(1) .LT. 0) IA12(1) = 0 IA21(1) = FILE21 IF (FILE21 .NE. 0) CALL RDTRL (IA21) IF (IA21(1) .LT. 0) IA21(1) = 0 IA22(1) = FILE22 IF (FILE22 .NE. 0) CALL RDTRL (IA22) IF (IA22(1) .LT. 0) IA22(1) = 0 C C SET UP MATRIX CONTROL BLOCK FOR OUTPUT C IA(1) = FILEA IA(4) = 2 IF (RPART.NE.0 .AND. CPART.NE.0) IA(4) = 1 IA(5) = MAX0(IA11(5),IA12(5),IA21(5),IA22(5)) C C SET UP DUMMY PARTITION VECTOR C I = 0 CORE( 1) = 0 CORE(I+2) = 1 CORE(I+3) = IA(2) CORE(I+4) = 2 CORE(I+5) = 1 CORE(I+6) = 0 C RULE = 0 LCR = KORSZ(CORE) C IF (RPART .EQ. 0) GO TO 30 IF (CPART .EQ. 0) GO TO 20 C C FULL MERGE C IA(2) = NSUB0 + NSUB1 IA(3) = IA(2) CALL MERGE (RP,CP,CORE) GO TO 40 C C ROW MERGE C 20 IA(2) = NSUB0 + NSUB1 IA(3) = MAX0(IA11(3),IA12(3)) CALL MERGE (RP,CORE,CORE) GO TO 40 C C COLUMN MERGE C 30 IF (CPART .EQ. 0) GO TO 50 IA(2) = MAX0(IA11(2),IA21(2)) IA(3) = NSUB0 + NSUB1 CALL MERGE (CORE,CP,CORE) C C WRITE TRIALER FOR OUTPUT C 40 CALL WRTTRL (IA) C RETURN C C ILLEGAL INPUT - NO PARTITION VECTOR C 50 CALL MESAGE (-7,0,NAME) RETURN END ================================================ FILE: mis/gfsmt.f ================================================ SUBROUTINE GFSMT(MT,MMAT,MROW) C C ROUTINE TO ADD 1.0 TO ROW MROW AND COLUMN MROW OF MT TO PREVENT C SINGULARITIES IN THE MASS MATRIX FOR GIVINS C DOUBLE PRECISION VAL C INTEGER Z ,SYSBUF ,MCB(7) ,NAME(2) ,MMAT 1 ,MT ,INBLK(15),OUTBLK(15) C C OPEN CORE C COMMON / ZZZZZZ / Z(1) C C SYSTEM COMMON COMMON / SYSTEM / SYSBUF C C C PACK - UNPACK COMMON BLOCKS C COMMON / ZBLPKX / A(4) ,IROW C EQUIVALENCE ( VAL , A(1) ) C DATA NAME / 4HGFSM , 4HT / DATA INBLK / 15*0 /, OUTBLK / 15*0 / C C MCB(1) = MT CALL RDTRL(MCB) NROW = MCB(2) C C ALLOCATE BUFFERS C NZ = KORSZ(Z(1)) IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF NZ = IBUF2 - 1 IF(NZ .LT. 100) GO TO 1008 C C OPEN FILES C CALL MAKMCB(MCB,MMAT,NROW,1,2) INBLK(1) = MT OUTBLK(1) = MMAT CALL GOPEN(MT,Z(IBUF1),0) CALL GOPEN(MMAT,Z(IBUF2),1) C C COPY RECORDS UP TO MROW C IF(MROW .EQ. 1) GO TO 310 MR = MROW - 1 DO 300 I=1,MR CALL CPYSTR(INBLK,OUTBLK,0,0) 300 CONTINUE C C PACK OUT COLUMN MROW WITH A 1.0 IN ROW MROW. THE COLUMN IS NULL C IN MT SO IT IS SKIPPED C 310 CALL BLDPK(2,2,MMAT,0,0) IROW = MROW VAL = 1.0D0 CALL ZBLPKI CALL BLDPKN(MMAT,0,MCB) C IF(MROW .GE. NROW) GO TO 320 CALL FWDREC(*1002,MT) C C BLAST OUT REST OF FILE C CALL CPYFIL(MT,MMAT,Z,NZ,ICNT) C C CLOSE FILES C 320 CALL CLOSE(MT,1) CALL CLOSE(MMAT,1) C C COPY TRAILER OVER. THE DENSITY WILL BE SLIGHTLY OFF BECAUSE C OF THE NEW TERM BUT IT:S CLOSE C MCB(1) = MT CALL RDTRL(MCB) MCB(1) = MMAT CALL WRTTRL(MCB) RETURN C C ERRORS C 1002 CALL MESAGE(-2,MT,NAME) 1008 CALL MESAGE(-8,0,NAME) RETURN END ================================================ FILE: mis/gfsptn.f ================================================ SUBROUTINE GFSPTN (FILEA,FILE11,FILE21,FILE12,FILE22,RPART,CPART) C C GENERAL MATRIX PARTION ROUTINE C C C -- -- C I I I C -- -- I FILE11 I FILE12 I C I I I I I C I FILEA I = I-----------------I C I I I I I C -- -- I FILE21 I FILE22 I C I I I C -- -- C C WHERE C C RPART - ROW PARTITIONING VECTOR C CPART - COLUMN PARTITION VECTOR C INTEGER FILEA ,FILE11 ,FILE12 ,FILE21 ,FILE22 , 1 RPART ,CPART ,RULE ,CORE ,NAME(2) , 2 RP(7) ,CP(7) C C OPEN CORE C COMMON / ZZZZZZ / CORE(1) C C CALCV COMMON BLOCK C C C PARTITION - MERGE COMMON BLOCK COMMON / PATX / LCORE ,NSUB0 ,NSUB1 C COMMON / PARMEG / IA(7) ,IA11(7) ,IA21(7) ,IA12(7) , 1 IA22(7) ,LCR ,RULE C DATA NAME / 4HGFSP ,4HTN / C C C GET TRAILERS FOR INPUTS C RP(1) = RPART IF (RPART .NE. 0) CALL RDTRL (RP) CP(1) = CPART IF (CPART .NE. 0) CALL RDTRL (CP) IA(1) = FILEA CALL RDTRL (IA) C C SET UP MATRIX CONTROL BLOCKS FOR OUTPUTS C IA11(1) = FILE11 IA12(1) = FILE12 IA21(1) = FILE21 IA22(1) = FILE22 C DO 10 I = 2,5 IA11(I) = IA(I) IA12(I) = IA(I) IA21(I) = IA(I) 10 IA22(I) = IA(I) C C SET UP DUMMY PARTITION VECTOR C I = 0 CORE( 1) = 0 CORE(I+2) = 1 CORE(I+3) = IA(2) CORE(I+4) = 2 CORE(I+5) = 1 CORE(I+6) = 0 C RULE = 0 LCR = KORSZ(CORE) C IF (RPART .EQ. 0) GO TO 30 IF (CPART .EQ. 0) GO TO 20 C C FULL PARTITION C IA11(3) = NSUB0 IA12(3) = NSUB0 IA21(3) = NSUB1 IA22(3) = NSUB1 CALL PARTN (RP,CP,CORE) GO TO 40 C C ROW PARTITION C 20 CALL PARTN (RP,CORE,CORE) GO TO 40 C C COLUMN PARTITION C 30 IF (CPART .EQ. 0) GO TO 1007 IA11(3) = NSUB0 IA12(3) = NSUB0 IA21(3) = NSUB1 IA22(3) = NSUB1 CALL PARTN (CORE,CP,CORE) C C WRITE TRAILERS FOR OUTPUTS C 40 IF (IA11(1) .NE. 0) CALL WRTTRL (IA11) IF (IA12(1) .NE. 0) CALL WRTTRL (IA12) IF (IA21(1) .NE. 0) CALL WRTTRL (IA21) IF (IA22(1) .NE. 0) CALL WRTTRL (IA22) C RETURN C C ILLEGAL INPUT - NO PARTITION VECTOR C 1007 CALL MESAGE (-7,0,NAME) RETURN END ================================================ FILE: mis/gfsspc.f ================================================ SUBROUTINE GFSSPC(NUY,PVEC) C C ROUTINE TO CALCULATE A PARTITIONING VECTOR TO REMOVE FIRST C ROW AND COLUMN OF FLUID STIFFNESS MATRIX IF NO SPC'S ARE ON C THE FLUID C INTEGER MCB(7) ,PVEC ,Z ,SYSBUF ,NAME(2) C C OPEN CORE C COMMON / ZZZZZZ / Z(1) C C SYSTEM COMMON C COMMON / SYSTEM / SYSBUF C C PACK - UNPACK COMMON BLOCKS C COMMON / ZBLPKX / A(4) ,IROW C DATA NAME / 4HGFSS , 4HPC / C C ALLOCATE CORE C NZ = KORSZ(Z(1)) IBUF = NZ - SYSBUF NZ = IBUF - 1 IF(NZ .LT. 0) GO TO 1008 C NUY1 = NUY - 1 CALL MAKMCB(MCB,PVEC,NUY,2,1) CALL GOPEN(PVEC,Z(IBUF),1) CALL BLDPK(1,1,PVEC,0,0) A(1) = 1.0 IROW = 1 CALL ZBLPKI CALL BLDPKN(PVEC,0,MCB) CALL CLOSE(PVEC,1) CALL WRTTRL(MCB) RETURN C C ERRORS C 1008 CALL MESAGE(-8,0,NAME) RETURN END ================================================ FILE: mis/gfstrn.f ================================================ SUBROUTINE GFSTRN(A,AT,I,SCR1) C C MATRIX TRANSPOSE ROUTINE C C MORE EFFICIENT THEN TRANSPOSE FOR SPARSE MATRICES C C C TRANSPOSE IS SOLVED BY THE FOLLOWING EQUATION C C T C -- -- -- -- -- -- C I I I I I I C I AT I = I A I I I I C I I I I I I C -- -- -- -- -- -- C C WHERE I IS AN IDENITY MATRIX C C INTEGER A ,AT ,I ,SCR1 ,MCB(7) 1 ,Z ,SYSBUF ,NAME(2) C C SYSTEM PARAMETERS C COMMON /SYSTEM / SYSBUF C C PACK COMMON C COMMON / ZBLPKX / VAL(4) ,IROW C C OPEN CORE C COMMON / ZZZZZZ / Z(1) C DATA NAME / 4HGFST , 4HRN / C C*********************************************************************** C NZ = KORSZ(Z) IBUF = NZ - SYSBUF IF(IBUF .LT. 0) CALL MESAGE(-8,0,NAME) C C GET MATRIX TRAILER C MCB(1) = A CALL RDTRL(MCB) IF(MCB(1) .LT. 0) RETURN IR = MCB(3) C C GENERATE A SQUARE IDENITY MATRIX IR BY IR C VAL(1) = 1.0 CALL MAKMCB(MCB,I,IR,2,2) CALL GOPEN(I,Z(IBUF),1) C DO 10 IROW=1,IR CALL BLDPK(1,2,I,0,0) CALL ZBLPKI CALL BLDPKN(I,0,MCB) 10 CONTINUE CALL CLOSE(I,1) CALL WRTTRL(MCB) C C PERFORM MULTIPLY C CALL SSG2B(A,I,0,AT,1,2,1,SCR1) C RETURN END ================================================ FILE: mis/gfswch.f ================================================ SUBROUTINE GFSWCH (FILE1,FILE2) C C THE PURPOSE OF THIS SUBROUTINE IS TO INTERCHANGE THE NAMES OF C TWO FILES. THIS IS ACCOMPLISHED BY THE DIRECT UPDATEING C OF THE FIAT AND THE FIST C EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF INTEGER FILE1,FILE2,MODNAM(2),NAME(2),PSAVE1,PSAVE2, 1 ANDF,ORF,RSHIFT,COMPLF,UNIT,UNIT1,UNIT2,UNT CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /XFIAT / IFIAT(3) COMMON /XFIST / IFIST(2) COMMON /XPFIST/ IPFIST COMMON /SYSTEM/ SYSBUF,NOUT,SKIP(21),ICFIAT DATA MODNAM/ 4HGFSW,4HCH / C MASK = LSHIFT(1,30) - 1 MASK = LSHIFT(RSHIFT(MASK,16),16) MASK1 = COMPLF(MASK) MASK2 = 32767 MASK3 = COMPLF(MASK2) NUNIQE = IFIAT(1)*ICFIAT + 3 MXE = IFIAT(2)*ICFIAT + 3 LASTWD = IFIAT(3)*ICFIAT + 3 C C LOCATE FILE POINTERS IN THE FIST C NWD = 2*IPFIST + 2 NACENT = 2*IFIST(2) + 2 NFILES = NACENT - NWD PSAVE1 = 0 PSAVE2 = 0 DO 25 I = 1,NFILES,2 IF (IFIST(NWD+I).NE.FILE1 .AND. IFIST(NWD+I).NE.FILE2) GO TO 25 IF (IFIST(NWD+I) - FILE1) 10,15,10 10 IF (IFIST(NWD+I) - FILE2) 25,20,25 15 PSAVE1 = IFIST(NWD+I+1) + 1 ILOC1 = I+NWD GO TO 25 20 PSAVE2 = IFIST(NWD+I+1) + 1 ILOC2 = I+NWD 25 CONTINUE C C CHECK THAT FILES ARE IN FIST C IF (PSAVE1 .EQ. 0) CALL MESAGE (-1,FILE1,MODNAM) IF (PSAVE2 .EQ. 0) CALL MESAGE (-1,FILE2,MODNAM) C C SWITCH THE FIST POINTERS C IFLOC = IFIST(ILOC1+1) IFIST(ILOC1+1) = IFIST(ILOC2+1) IFIST(ILOC2+1) = IFLOC C C SWITCH FILE NAMES IN FIAT C NAME(1)= IFIAT(PSAVE1+1) NAME(2)= IFIAT(PSAVE1+2) UNIT1 = ANDF(MASK2,IFIAT(PSAVE1)) UNIT2 = ANDF(MASK2,IFIAT(PSAVE2)) NWD = ICFIAT*IFIAT(3)-2 LTU1 = ANDF(MASK,IFIAT(PSAVE1)) LTU2 = ANDF(MASK,IFIAT(PSAVE2)) IFIAT(PSAVE1 ) = ORF(ANDF(IFIAT(PSAVE1),MASK2 ),LTU2) IFIAT(PSAVE1+1) = IFIAT(PSAVE2+1) IFIAT(PSAVE1+2) = IFIAT(PSAVE2+2) IFIAT(PSAVE2 ) = ORF(ANDF(IFIAT(PSAVE2),MASK2),LTU1) IFIAT(PSAVE2+1) = NAME(1) IFIAT(PSAVE2+2) = NAME(2) C C SWITCH STACKED DATA BLOCKS C DO 100 I = 4,NWD,ICFIAT IF (PSAVE1.EQ.I .OR. PSAVE2.EQ.I) GO TO 100 IF (IFIAT(I+1).EQ.0 .AND. IFIAT(I+2).EQ.0) GO TO 100 UNIT = ANDF(MASK2,IFIAT(I)) IF (UNIT.NE.UNIT1 .AND. UNIT.NE.UNIT2) GO TO 100 IF (UNIT .EQ. UNIT1) UNT = UNIT2 IF (UNIT .EQ. UNIT2) UNT = UNIT1 IF (I .GT. NUNIQE) GO TO 70 C C DATA BLOCK RESIDES IN UNIQUE PART OF FIAT C MOVE ENTRY TO BOTTOM C IF (LASTWD+ICFIAT .LE. MXE) GO TO 40 WRITE (NOUT,30) SFM 30 FORMAT (A25,' 1021, FIAT OVERFLOW') CALL MESAGE (-37,0,MODNAM) 40 IFIAT(LASTWD+1) = ORF(ANDF(IFIAT(I),MASK3),UNT) DO 50 K = 2,ICFIAT 50 IFIAT(LASTWD+K) = IFIAT(I+K-1) LASTWD = LASTWD + ICFIAT IFIAT(3) = IFIAT(3) + 1 C C CLEAR OLD ENTRY IN UNIQUE PART C IFIAT(I) = ANDF(IFIAT(I),MASK2) J1 = I + 1 J2 = I + ICFIAT - 1 DO 60 K = J1,J2 60 IFIAT(K) = 0 GO TO 100 C C DATA BLOCK RESIDES IN NON-UNIQUE PORTION OF FIAT C SWITCH UNIT NUMBERS C 70 IFIAT(I) = ORF(ANDF(IFIAT(I),MASK3),UNT) 100 CONTINUE RETURN END ================================================ FILE: mis/gi.f ================================================ SUBROUTINE GI C EXTERNAL ANDF LOGICAL MULTI,SINGLE,OMIT INTEGER ANDF,TWO1,IA(7) INTEGER UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG INTEGER SPLINE,USETA,CSTM,BAGPDT,SILA,ECTA,GM,GO,SCR1, 1 SCR2,SCR3,SCR4,SCR5,KSIZE,GSIZE,GTKA COMMON /GICOM / SPLINE,USETA,CSTM,BAGPDT,SILA,ECTA,GM,GO,GTKA, 1 KSIZE,GSIZE,SCR1,SCR2,SCR3,SCR4,SCR5 COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG COMMON /TWO / TWO1(32) COMMON /BLANK / NK,NG DATA SINGLE/ .TRUE./, MULTI /.TRUE./, OMIT /.TRUE./ DATA IA / 7*0 / C SPLINE = 101 USETA = 102 CSTM = 103 BAGPDT = 104 SILA = 105 ECTA = 106 GM = 107 GO = 108 GTKA = 201 KSIZE = NK GSIZE = NG IF (GSIZE .GT. 0) GO TO 5 IA(1) = SILA CALL RDTRL (IA) GSIZE = IA(3) 5 CONTINUE SCR1 = 301 SCR2 = 302 SCR3 = 303 SCR4 = 304 SCR5 = 305 CALL GIGGKS IA(1) = USETA CALL RDTRL (IA) IF (ANDF(IA(5),TWO1(UM)) .EQ. 0) MULTI = .FALSE. IF (ANDF(IA(5),TWO1(US)) .EQ. 0) SINGLE = .FALSE. IF (ANDF(IA(5),TWO1(UO)) .EQ. 0) OMIT = .FALSE. IF (MULTI .OR. SINGLE .OR. OMIT) GO TO 10 SCR2 = GTKA 10 CALL GIGTKG CALL GIPSST IF (MULTI .OR. SINGLE .OR. OMIT) GO TO 20 GO TO 30 20 CALL GIGTKA (MULTI,SINGLE,OMIT) 30 RETURN END ================================================ FILE: mis/gibstk.f ================================================ SUBROUTINE GIBSTK (NDSTK,IOLD,RENUM,NDEG,LVL,LVLS1,LVLS2,CCSTOR, 1 JUMP,ICRIT,NHIGH,NLOW,NACUM,SIZE,STPT,UN,IDIM) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C GIBBSTOCK USES GRAPH THEORETICAL METHODS TO PRODUCE A PERMUTATION C OF AN INPUT ARRAY WHICH REDUCES ITS BANDWITH C C THE FOLLOWING INPUT PARAMETERS ARE REQUIRED--NDSTK,N,IDEG,IOLD C C THESE INTEGER ARRAYS MUST BE DIMENSIONED IN THE CALLING PROGRAM-- C NDSTK(NR,D1),RENUM(D2+1),NDEG(D2),IOLD(D2),LVL(D2),LVLS1(D2), C LVLS2(D2),CCSTOR(D2) WHERE D1 .GE. MAX DEGREE OF ANY NODE AND C D2 AND NR ARE .GE. THE TOTAL NUMBER OF NODES IN THE GRAPH. C C EXPLANATION OF PARAMETERS-- C NDSTK - ADJACENCY ARRAY REPRESENTING GRAPH TO BE PROCESSED C NDSTK(I,J) = NODE NUMBER OF JTH CONNECTION TO NODE C NUMBER I. A CONNECTION OF A NODE TO ITSELF IS NOT C LISTED. EXTRA POSITIONS MUST HAVE ZERO FILL. C NR - ROW DIMENSION ASSIGNED NDSTK IN CALLING PROGRAM = II1 C IOLD(I) - RENUMBERING OF ITH NODE BEFORE GIBBSTOCK PROCESSING C IF NO RENUMBERING EXISTS THEN ILD(1)=1,ILD(2)=2, ETC. C N - NUMBER OF NODES IN GRAPH BEING PROCESSED C IDEG - MAX DEGREE OF ANY NODE IN GRAPH BEING PROCESSED C JUMP IS SET TO 0 IF EITHER CRITERION IS REDUCED. C ICRIT - RESEQUENCING CRITERION, SET BY BANDIT C 1 RMS WAVEFRONT, 2 BANDWIDTH, 3 PROFILE, 4 MAX.WAVEFRONT C C ON OUTPUT THESE VARIABLES CONTAIN THE FOLLOWING INFORMATION-- C RENUM(I)- THE NEW NUMBER FOR THE ITH NODE C NDEG(I) - THE DEGREE OF THE ITH NODE C IDPTH - NUMBER OF LEVELS IN GIBBSTOCK LEVEL STRUCTURE C IBW2 - THE BANDWITH AFTER RENUMBERING C IPF2 - THE PROFILE AFTER RENUMBERING C C THE FOLLOWING ONLY HAVE MEANING IF THE GRAPH WAS ALL ONE COMPONENT C LVL(I) - INDEX INTO LVLS1 TO THE FIRST NODE IN LEVEL I C LVL(I+1)-LVL(I)= NUMBER OF NODES IN ITH LEVEL C LVLS1 - LEVEL STRUCTURE CHOSEN BY GIBBSTOCK C LVLS2(I)- THE LEVEL ASSIGNED TO NODE I BY GIBBSTOCK C INTEGER STNODE, RVNODE, RENUM, XC, SUMWB, 1 STNUM, CCSTOR, SIZE, STPT, SBNUM, 2 OBW, OP, XCMAX REAL IM1, IM2 DIMENSION NHIGH(1), NLOW(1), NACUM(1), SIZE(1), STPT(1), 1 CCSTOR(1),IOLD(1), LVL(1), LVLS1(1), LVLS2(1), 2 RENUM(1), NDEG(1), NDSTK(1), UN(1) COMMON /BANDA / DUM5A(5), METHOD COMMON /BANDB / DUM3B(3), NGRID COMMON /BANDD / OBW, NBW, OP, NP, NCM, 1 NZERO COMMON /BANDG / N, IDPTH, IDEG COMMON /BANDW / MAXW0, RMS0, MAXW1, RMS1, I77, 1 BRMS0, BRMS1 COMMON /BANDS / NN, MM COMMON /SYSTEM/ IBUF, NOUT, DUM6S(6), NLPP C C OLD AND NEW MAX AND RMS WAVEFRONT FOR ENTIRE PROBLEM, C NOT JUST GIBSTK. C DIMENSIONS OF NHIGH, NLOW, AND NACUM ARE IDIM EACH C SIZE AND STPT HAVE DIMENSION IDIM/2 AND SHOULD BE CONTIGUOUS IN C CORE WITH SIZE FIRST. C XC = NUMBER OF SUB-COMPONENTS RESULTING AFTER REMOVING DIAMETER C FROM ONE COMPONENT OF ORIGINAL GRAPH. C XCMAX = IDIM/2 NCM = 0 N = NN IBW2 = 0 IPF2 = 0 C C SET RENUM(I) = 0 FOR ALL I TO INDICATE NODE I IS UNNUMBERED C THEN COMPUTE DEGREE OF EACH NODE AND ORIGINAL B AND P. C DO 30 I = 1,N 30 RENUM(I) = 0 CALL DGREE (NDSTK,NDEG,IOLD,IBW1,IPF1,UN) C C ORIGINAL ACTIVE COLUMN DATA IN MAXW1 AND RMS1, COMPUTED BY SCHEME C IF (METHOD .NE. 0) GO TO 35 MAXWA = MAXW1 RMSA = RMS1 BRMSA = BRMS1 GO TO 38 35 MAXWA = MAXW0 RMSA = RMS0 BRMSA = BRMS0 38 CONTINUE C C NUMBER THE NODES OF DEGREE ZERO C SBNUM = LOW END OF AVAILABLE NUMBERS FOR RENUMBERING C STNUM = HIGH END OF AVAILABLE NUMBERS FOR RENUMBERING C SBNUM = 1 STNUM = N DO 40 I = 1,N IF (NDEG(I) .GT. 0) GO TO 40 RENUM(I) = STNUM STNUM = STNUM-1 40 CONTINUE C C NODES OF ZERO DEGREE APPEAR LAST IN NEW SEQUENCE. C NZERO = N - STNUM NCM = NZERO C C FIND AN UNNUMBERED NODE OF MIN DEGREE TO START ON C 50 LOWDG = IDEG + 1 NCM = NCM + 1 NFLG = 1 ISDIR = 1 DO 70 I = 1,N IF (NDEG(I).GE.LOWDG .OR. RENUM(I).GT.0) GO TO 70 LOWDG = NDEG(I) STNODE = I 70 CONTINUE C C FIND PSEUDO-DIAMETER AND ASSOCIATED LEVEL STRUCTURES. C STNODE AND RVNODE ARE THE ENDS OF THE DIAM AND LVLS1 AND LVLS2 C ARE THE RESPECTIVE LEVEL STRUCTURES. C CALL FNDIAM (STNODE,RVNODE,NDSTK,NDEG,LVL,LVLS1,LVLS2,CCSTOR, 1 IDFLT,SIZE,UN,IDIM) IF (NGRID .EQ. -3) RETURN IF (NDEG(STNODE) .LE. NDEG(RVNODE)) GO TO 75 C C NFLG INDICATES THE END TO BEGIN NUMBERING ON C NFLG =-1 STNODE = RVNODE 75 CALL RSETUP (LVL,LVLS1,LVLS2, NACUM,IDIM) C NHIGH,NLOW, <===== NEW IF (NGRID .EQ. -3) RETURN C C FIND ALL THE CONNECTED COMPONENTS (XC COUNTS THEM) C XC = 0 LROOT = 1 LVLN = 1 DO 85 I = 1,N IF (LVL(I) .NE. 0) GO TO 85 XC = XC + 1 IF (XC .LE. XCMAX) GO TO 80 C C DIMENSION EXCEEDED. STOP JOB. C NGRID =-3 RETURN C 80 STPT(XC) = LROOT CALL TREE (I,NDSTK,LVL,CCSTOR,NDEG,LVLWTH,LVLBOT,LVLN,MAXLW,N,UN) SIZE(XC) = LVLBOT + LVLWTH - LROOT LROOT = LVLBOT + LVLWTH LVLN = LROOT 85 CONTINUE CALL PIKLVL (*90,LVLS1,LVLS2,CCSTOR,IDFLT,ISDIR,XC,NHIGH,NLOW, 1 NACUM,SIZE,STPT) C C ON RETURN FROM PIKLVL, ISDIR INDICATES THE DIRECTION THE LARGEST C COMPONENT FELL. ISDIR IS MODIFIED NOW TO INDICATE THE NUMBERING C DIRECTION. NUM IS SET TO THE PROPER VALUE FOR THIS DIRECTION. C 90 ISDIR = ISDIR*NFLG NUM = SBNUM IF (ISDIR .LT. 0) NUM = STNUM C CALL NUMBER (STNODE,NUM,NDSTK,LVLS2,NDEG,RENUM,LVLS1,LVL,NFLG, 1 IBW2,IPF2,CCSTOR,ISDIR,NHIGH,NLOW,NACUM,SIZE,UN,IDIM) IF (NGRID .EQ. -3) RETURN C C UPDATE STNUM OR SBNUM AFTER NUMBERING C IF (ISDIR .LT. 0) STNUM = NUM IF (ISDIR .GT. 0) SBNUM = NUM IF (SBNUM .LE. STNUM) GO TO 50 C C COMPUTE THE NEW BANDWIDTH, PROFILE, AND WAVEFRONT. C CALL WAVEY (NDSTK,RENUM,LVL,0,LVLS2,LVLS1,MAXB,MAXWB,AVERWB, 1 SUMWB,RMSB,BRMSB,UN) C IBW2 = MAXB IPF2 = SUMWB IF (NLPP .GT. 50) WRITE (NOUT,100) MAXB,SUMWB,MAXWB,AVERWB, 1 RMSB,BRMSB 100 FORMAT (/31X,66HAFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) 1 ALGORITHM - - -, 2 /40X,13HBANDWIDTH ,I9, /40X,13HPROFILE ,I9, 3 /40X,13HMAX WAVEFRONT,I9, /40X,13HAVG WAVEFRONT,F9.3, 4 /40X,13HRMS WAVEFRONT,F9.3,/40X,13HRMS BANDWIDTH,F9.3) C C CHECK NEW NUMBERING AGAINST OLD NUMBERING. C GO TO (110,120,130,140), ICRIT 110 IM1 = RMSA IM2 = IPF1 CRIT1 = RMSB CRIT2 = IPF2 GO TO 150 120 IM1 = IBW1 IM2 = IPF1 CRIT1 = IBW2 CRIT2 = IPF2 GO TO 150 130 IM1 = IPF1 IM2 = IBW1 CRIT1 = IPF2 CRIT2 = IBW2 GO TO 150 140 IM1 = MAXWA IM2 = RMSA CRIT1 = MAXWB CRIT2 = RMSB C 150 IF (CRIT1-IM1) 210,160,170 160 IF (CRIT2 .LT. IM2) GO TO 210 C C IF ORIGINAL NUMBERING IS BETTER THAN NEW ONE, SET UP TO RETURN IT C 170 DO 200 I = 1,N 200 RENUM(I) = IOLD(I) IBW2 = IBW1 IPF2 = IPF1 MAXWB = MAXWA RMSB = RMSA BRMSB = BRMSA GO TO 220 C C EQUATE CORRESPONDING GPS AND BANDIT VARIABLES. C 210 JUMP = 0 220 NBW = IBW2 NP = IPF2 MAXW1 = MAXWB RMS1 = RMSB BRMS1 = BRMSB RETURN END ================================================ FILE: mis/giggks.f ================================================ SUBROUTINE GIGGKS C C THIS SUBROUTINE READS THE SPLINE CARDS AND DETERMINES THE C POINTS IN THE G AND K S C INTEGER BUFF,BUFF1,SYSBUF,BUFF2,EQT(7), 1 SCARD(5),CCARD(5),SS1(3),LS2(3),CAERO(3),SET1(3), 2 ST2(3),NS(2),GKSET,TRL(7),TYPE,OUT,SPL3(3), 3 ATAB(2),PCSTM,PBGPT,PRCP,PTCP,PTE,PRE,CTYP, 4 SPLINE,USETA,CSTM,BAGPDT,SILA,ECTA,GM,GO,SCR1, 5 SCR2,SCR3,SCR4,SCR5,NS1,NS2,KSIZE,GSIZE,GTKA DIMENSION C(18),X1B(3),X4B(3),TEMP(3),TEMP1(6),X1E(3), 1 X4E(3),CB(18),B(6),Z(28) DIMENSION SET2(8),CRARD(16) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ SYSBUF,OUT COMMON /GICOM / SPLINE,USETA,CSTM,BAGPDT,SILA,ECTA ,GM,GO,GTKA, 1 KSIZE,GSIZE,SCR1,SCR2,SCR3,SCR4,SCR5 COMMON /CONDAS/ DUM(3),DEGRA COMMON /ZZZZZZ/ IZ(1) C C CHANGE IN EQUIV FOR SIZE OF SCARD OR CCARD C EQUIVALENCE (IZ(1),Z(1),SCARD(1),SET2(1)),(Z(28),NKSET) EQUIVALENCE (Z(11),CCARD(1),CRARD(1)) ,(Z(27),NGSET), 1 (SET2(3),SP1), (SET2(4),SP2) ,(SET2(5),CH1), 2 (SET2(6),CH2), (SET2(7),Z1 ) ,(SET2(8),Z2 ) DATA C / 18*0.0 /, SET1 / 3502,35,999/ DATA SS1 / 3302,33, 6 /, LS2 / 3402,34,10 /, 1 ST2 / 3602,36, 8 /, CAERO / 3002,30,16 / DATA SPL3 / 4901,49, 1 /, ATAB / 200 ,2 / DATA NS / 4HGIGG, 4HKS /,IZ2 /2 / C DATA IECT / 3002,46 / C C INITILIZE C CALL SSWTCH (18,I18) NWDS = KORSZ(IZ) NOGO = 0 NS1 = 0 NS2 = 0 NS3 = 0 C C BUFF HAS SPLINE C BUFF1 HAS CSTM,BGPT,EQAERO,SILA,SCR1 C BUFF2 HAS SCR2 C BUFF = NWDS - SYSBUF - 1 BUFF1 = BUFF - SYSBUF - 1 BUFF2 = BUFF1- SYSBUF C C PROCESS SET CARDS AND WRITE G LISTS ON SCR2 C IFIL = SCR2 CALL OPEN (*999,SCR2,IZ(BUFF2+1),1) IFIL = SPLINE CALL PRELOC (*999,IZ(BUFF+1),SPLINE) C C SET1 CARDS C CALL LOCATE (*340,IZ(BUFF+1),SET1,IDUM) N = 1 NCO = BUFF2 - N CALL READ (*998,*310,SPLINE,IZ(N),NCO,1,NWR) GO TO 993 310 I = N - 1 N1 = 0 ASSIGN 335 TO TYPE 320 I = I + 1 IF (IZ(I) .EQ. -1) GO TO 330 IF (I .EQ. NWR) GO TO 990 N1 = N1 + 1 GO TO 320 330 IF (N1 .LT. 2) GO TO 9971 CALL WRITE (SCR2,IZ(N),N1,1) 335 IF (I .EQ. NWR) GO TO 340 N = I + 1 N1 = 0 GO TO 320 C C SET 2 CARDS C 340 CALL LOCATE (*490,IZ(BUFF+1),ST2,IDUM) C C READ IN BAGPDT AND CSTM C N = LS2(3) + CAERO(3) + 1 TRL(1) = CSTM CALL RDTRL (TRL) IF (TRL(1) .LT. 0) TRL(3) = 0 NCSTM = (TRL(3)+1)*14 PCSTM = BUFF2 - NCSTM TRL(1)= BAGPDT CALL RDTRL (TRL) NBG = (TRL(2)-TRL(3))*4 PBGPT = PCSTM - NBG IF (PBGPT .LT. N+150) GO TO 993 C C READ IN CSTM AT PCSTM + 14 ADD BASIC COORD SYSTEM C IZ(PCSTM ) = 0 IZ(PCSTM+1) = 1 DO 5 I = 2,13 Z(PCSTM+I) = 0.0 5 CONTINUE Z(PCSTM+5 ) = 1.0 Z(PCSTM+9 ) = 1.0 Z(PCSTM+13) = 1.0 IF (NCSTM .EQ. 14) GO TO 7 IFIL = CSTM CALL GOPEN (CSTM,IZ(BUFF1+1),0) CALL READ (*998,*998,CSTM,IZ(PCSTM+14),NCSTM-14,1,NWR) CALL CLOSE (CSTM,1) 7 CONTINUE C C READ IN BAGPDT AT PBGPT C IFIL = BAGPDT CALL GOPEN (BAGPDT,IZ(BUFF1+1),0) CALL READ (*998,*998,BAGPDT,IZ(PBGPT),NBG,1,NWR) CALL CLOSE (BAGPDT,1) C C READ IN SET2 CARDS WITH CAERO1 APPENDED C IFIL = SPLINE LCA = 0 ASSIGN 350 TO TYPE 350 CALL READ (*998,*490,SPLINE,IZ(1),N-1,0,NWR) N1 = 1 IF (CCARD(1) .EQ. LCA) GO TO 4001 LCA= CCARD(1) K = PCSTM J = PCSTM + NCSTM - 1 IF (CCARD(3) .EQ. 0) GO TO 371 DO 360 I = K,J,14 IF (CCARD(3) .EQ. IZ(I)) GO TO 370 360 CONTINUE GO TO 990 370 PRCP = I + 2 PTCP = I + 5 CTYP = IZ(I+1) C C LOCATE POINTS 1 AND 4 AS INPUT C GO TO (371,372,373), CTYP 371 X1B(1) = CRARD(9) X1B(2) = CRARD(10) X1B(3) = CRARD(11) X4B(1) = CRARD(13) X4B(2) = CRARD(14) X4B(3) = CRARD(15) IF (CCARD(3) .EQ. 0) GO TO 390 GO TO 374 372 X1B(1) = CRARD( 9)*COS(CRARD(10)*DEGRA) X1B(2) = CRARD( 9)*SIN(CRARD(10)*DEGRA) X1B(3) = CRARD(11) X4B(1) = CRARD(13)*COS(CRARD(14)*DEGRA) X4B(2) = CRARD(13)*SIN(CRARD(14)*DEGRA) X4B(3) = CRARD(15) GO TO 374 373 X1B(1) = CRARD( 9)*SIN(CRARD(10)*DEGRA)*COS(CRARD(11)*DEGRA) X1B(2) = CRARD( 9)*SIN(CRARD(10)*DEGRA)*SIN(CRARD(11)*DEGRA) X1B(3) = CRARD( 9)*COS(CRARD(10)*DEGRA) X4B(1) = CRARD(13)*SIN(CRARD(14)*DEGRA)*COS(CRARD(15)*DEGRA) X4B(2) = CRARD(13)*SIN(CRARD(14)*DEGRA)*SIN(CRARD(15)*DEGRA) X4B(3) = CRARD(13)*COS(CRARD(14)*DEGRA) 374 CALL GMMATS (Z(PTCP),3,3,0, X1B,3,1,0, TEMP) X1B(1) = TEMP(1) + Z(PRCP ) X1B(2) = TEMP(2) + Z(PRCP+1) X1B(3) = TEMP(3) + Z(PRCP+2) CALL GMMATS (Z(PTCP),3,3,0, X4B,3,1,0, TEMP) X4B(1) = TEMP(1) + Z(PRCP ) X4B(2) = TEMP(2) + Z(PRCP+1) X4B(3) = TEMP(3) + Z(PRCP+2) 390 IF (CCARD(2) .EQ. 0) GO TO 399 C C FIND ELEMENT COORDINATE SYSTEM C DO 391 I = K,J,14 IF (CCARD(2) .EQ. IZ(I)) GO TO 392 391 CONTINUE GO TO 990 392 PRE = I + 2 PTE = I + 5 X1B(1) = X1B(1) - Z(PRE ) X1B(2) = X1B(2) - Z(PRE+1) X1B(3) = X1B(3) - Z(PRE+2) X4B(1) = X4B(1) - Z(PRE ) X4B(2) = X4B(2) - Z(PRE+1) X4B(3) = X4B(3) - Z(PRE+2) CALL GMMATS (Z(PTE),3,3,1, X1B(1),3,1,0, X1E) CALL GMMATS (Z(PTE),3,3,1, X4B(1),3,1,0, X4E) GO TO 400 399 X1E(1) = X1B(1) X1E(2) = X1B(2) X4E(1) = X4B(1) X4E(2) = X4B(2) 400 X2E = X1E(1) + CRARD(12) Y2E = X1E(2) X3E = X4E(1) + CRARD(16) Y3E = X4E(2) C C FIND PRISM POINTS C 4001 CONTINUE PX1 = (1.0-SP1)*(1.0-CH1)*X1E(1) + (1.0-SP1)*CH1*X2E + 1 SP1*CH1*X3E + SP1*(1.0-CH1)*X4E(1) PX2 = (1.0-SP1)*(1.0-CH2)*X1E(1) + (1.0-SP1)*CH2*X2E + 1 SP1*CH2*X3E + SP1*(1.0-CH2)*X4E(1) PX3 = (1.0-SP2)*(1.0-CH2)*X1E(1) + (1.0-SP2)*CH2*X2E + 1 SP2*CH2*X3E + SP2*(1.0-CH2)*X4E(1) PX4 = (1.0-SP2)*(1.0-CH1)*X1E(1) + (1.0-SP2)*CH1*X2E + 1 SP2*CH1*X3E + SP2*(1.0-CH1)*X4E(1) C C CHECK FOR BAD GEOMETRY C IF (PX1.GT.PX2 .OR. PX4.GT.PX3) GO TO 997 PY1 = (1.0-SP1)*(1.0-CH1)*X1E(2) + (1.0-SP1)*CH1*Y2E + 1 SP1*CH1*Y3E + SP1*(1.0-CH1)*X4E(2) PY2 = (1.0-SP1)*(1.0-CH2)*X1E(2) + (1.0-SP1)*CH2*Y2E + 1 SP1*CH2*Y3E + SP1*(1.0-CH2)*X4E(2) PY3 = (1.0-SP2)*(1.0-CH2)*X1E(2) + (1.0-SP2)*CH2*Y2E + 1 SP2*CH2*Y3E + SP2*(1.0-CH2)*X4E(2) PY4 = (1.0-SP2)*(1.0-CH1)*X1E(2) + (1.0-SP2)*CH1*Y2E + 1 SP2*CH1*Y3E + SP2*(1.0-CH1)*X4E(2) C C BUILD PRISM INEQUALITY MATRICES C C(1) = PY1 - PY2 C(2) = PX2 - PX1 C(4) = PY2 - PY3 C(5) = PX3 - PX2 C(7) = PY3 - PY4 C(8) = PX4 - PX3 C(10)= PY4 - PY1 C(11)= PX1 - PX4 C(15)= 0.0 C(18)= 0.0 B(1) = PX2*PY1 - PX1*PY2 B(2) = PX3*PY2 - PX2*PY3 B(3) = PX4*PY3 - PX3*PY4 B(4) = PX1*PY4 - PX4*PY1 NR = 4 IF (Z1 .EQ. 0.0) GO TO 401 C(15)=-1.0 B(5) =-Z1 NR = 5 401 IF (Z2 .EQ. 0.0) GO TO 404 IF (Z1 .EQ. 0.0) GO TO 403 C(18)= 1.0 B(6) = Z2 NR = 6 GO TO 404 403 C(15)= 1.0 B(5) = Z2 NR = 5 C C CONVERT TO BASIC C 404 IF (CCARD(2) .EQ. 0) GO TO 406 CALL GMMATS (C,NR,3,0, Z(PTE),3,3,1, CB) CALL GMMATS (Z(PTE),3,3,1, Z(PRE),3,1,0, TEMP) CALL GMMATS (C,NR,3,0, TEMP,3,1,0, TEMP1) B(1) = B(1) + TEMP1(1) B(2) = B(2) + TEMP1(2) B(3) = B(3) + TEMP1(3) B(4) = B(4) + TEMP1(4) IF (NR .EQ. 4) GO TO 405 B(5) = B(5) + TEMP1(5) IF (NR .EQ. 5) GO TO 405 B(6) = B(6) + TEMP1(6) GO TO 405 406 DO 407 I = 1,18 407 CB(I) = C(I) 405 CONTINUE C C FINALLY TEST ALL GRID POINTS TO SEE IF THEY ARE IN PRISM C KK = PBGPT KKK= KK + NBG - 1 DO 440 K = KK,KKK,4 IF (IZ(K) .EQ. -1) GO TO 440 JJ = 0 DO 430 I = 1,NR SUM = 0.0 DO 420 J = 1,3 JJ = JJ + 1 SUM = SUM + CB(JJ)*Z(K+J) 420 CONTINUE IF (SUM .LT. B(I)) GO TO 440 430 CONTINUE C C FOUND ONE C N1 = N1 + 1 IZ(N1) = (K-PBGPT)/4 + 1 440 CONTINUE IF (N1 .LT. 2) GO TO 997 IF (I18 .EQ. 0) GO TO 446 WRITE (OUT,445) (IZ(II),II=1,N1) 445 FORMAT (5H0SET2 ,I8,2X,(/,10I9)) 446 CONTINUE CALL WRITE (SCR2,IZ(1),N1,1) GO TO 350 490 CALL CLOSE (SCR2,1) CALL OPEN (*999,SCR2,IZ(BUFF2+1),0) NEQ = KSIZE*3 EQT(1) = SILA CALL RDTRL (EQT) NSIL = EQT(2) IEQ = BUFF2 - NEQ - NSIL C C INITIAL CORE CHECK PLUS FUDGE FACTOR C IF (IEQ-150 .LT. 0) GO TO 993 C C READ SPLINE FOR K POINT POINTERS C C READ SILA C CALL LOCATE (*990,IZ(BUFF+1),ATAB,IDUM) CALL READ (*998,*11,SPLINE,IZ(IEQ),NEQ+1,0,NWR) GO TO 990 11 NEQ = NWR IFIL = SILA CALL GOPEN (SILA,IZ(BUFF1+1),0) CALL READ (*998,*998,SILA,IZ(IEQ+NEQ),NSIL,1,NWR) CALL CLOSE (SILA,1) IFIL = SPLINE TRL(1)= SCR1 MAX = 0 CALL GOPEN (SCR1,IZ(BUFF1+1),1) C C N = LENGTH OF LONGEST SPLINE CARD + CAERO1 CARD + 3 C N POINTS TO 1 ST LOCATION OF CORE AVAILABLE SEE EQIV C N = LS2(3) + CAERO(3) + 3 NCO = IEQ - N C C READ SPLINE1 CARDS C CALL LOCATE (*100,IZ(BUFF+1),SS1,IDUM) ASSIGN 10 TO TYPE NR = LS2(3) + CAERO(3) 10 CALL READ (*998,*100,SPLINE,IZ(1),NR,0,NWR) NS1 = NS1 + 1 ASSIGN 30 TO GKSET GO TO 300 C C G AND K SET ARE IN CORE SORTED BY INTERNAL NUMBERS C A SECOND SET OF G ARE SORTED BY SIL NUMBERS C A SECOND SET OF K ARE IN CORE BY K NUMBER C NK POINTS TO K SET C N1 IS FIRST LOCATION OF OPEN CORE C NGSET IS THE NUMBER OF G NKSET FOR K C 30 IF (NOGO .EQ. 1) GO TO 10 C C WRITE ALL SPLINE1 DATA ON SCR1 AS PROCESSED C ID OF SPLINE1 = 1 C IZ(IZ2) = 1 NW = N1 - 1 MAX = MAX0(MAX,NW) CALL WRITE (SCR1,IZ(1),NW,1) GO TO 10 C C END OF SPLINE1 CARDS C C READ SPLINE2 CARDS C 100 CALL LOCATE (*190,IZ(BUFF+1),LS2,IDUM) ASSIGN 110 TO TYPE NR = LS2(3) + CAERO(3) 110 CALL READ (*998,*190,SPLINE,IZ(1),NR,0,NWR) NS2 = NS2 + 1 ASSIGN 120 TO GKSET GO TO 300 C C ID OF SPLINE2 = 2 C 120 IF (NOGO .EQ. 1) GO TO 110 IZ(IZ2) = 2 NW = N1 - 1 MAX = MAX0(MAX,NW) CALL WRITE (SCR1,IZ(1),NW,1) GO TO 110 C C END OF SPLINE2 CARDS C 190 CALL CLOSE (SCR1,1) CALL CLOSE (SCR2,1) CALL GOPEN (SCR3,IZ(BUFF1+1),1) C C SPLINE 3 CARDS TO SCR3 C CALL LOCATE (*290,IZ(BUFF+1),SPL3,IDUM) CALL READ (*998,*200,SPLINE,IZ,IEQ,0,NS3) GO TO 993 200 N = NS3 + 1 C C CONVERT AERO IDS TO K COLUMN NUMBERS, BUILD A LIST OF SPLINE CARD C POINTERS, SORT ON K COLUMNS, PROCESS CARDS IN SORTED ORDER GET C G POINTS TO SILS C N1 = 1 NW = IEQ - 1 ASSIGN 240 TO TYPE I = N 210 K = IZ(N1+3) DO 220 J = 1,NEQ,3 IF (K .EQ. IZ(NW+J)) GO TO 230 220 CONTINUE GO TO 992 230 IZ(N1+3) = IZ(NW+J+2) IZ(I ) = N1 IZ(I +1) = IZ(N1+3) I = I+2 240 N1 = N1 + IZ(N1) + 1 IF (N1 .GE. NS3) GO TO 250 GO TO 210 250 NW = I - N NS3 = NW/2 IF (NS3 .EQ. 0) GO TO 1001 IF (NS3 .EQ. 1) GO TO 255 CALL SORT (0,0,2,2,IZ(N),NW) C C PROCESS BY SORTED ORDER C 255 N = N - 1 J = IEQ + NEQ - 1 JJ = 5 DO 280 I = 1,NW,2 N1 = IZ(N+I) JJJ= IZ(N1) - CAERO(3) DO 260 K = JJ,JJJ,3 L = IZ(N1+K) IZ(N1+K) = IZ(J+L) 260 CONTINUE CALL WRITE (SCR3,IZ(N1+1),IZ(N1),1) 280 CONTINUE 290 CALL CLOSE (SPLINE,1) CALL CLOSE (SCR3,1) CALL DMPFIL (SCR1,Z,NWDS) CALL DMPFIL (SCR3,Z,NWDS) TRL(2) = MAX TRL(3) = NS1 + NS2 CALL WRTTRL (TRL) IF (NOGO .EQ. 1) GO TO 1001 IF (NS1.EQ.0 .AND. NS2.EQ.0 .AND. NS3.EQ.0) GO TO 990 GO TO 1000 C C SET 1 CARDS C SET 2 CARDS C 300 NGSET = 0 IFIL = SCR2 301 CALL READ (*996,*996,SCR2,IZ(N),1,0,NWR) IF (SCARD(5) .EQ. IZ(N)) GO TO 305 CALL FWDREC (*998,SCR2) GO TO 301 305 CALL READ (*998,*306,SCR2,IZ(N),NCO,1,NWR) GO TO 993 306 CALL REWIND (SCR2) IFIL = SPLINE NGSET = NWR N1 = N+NGSET CALL SORT (0,0,1,1,IZ(N),NGSET) C C GET K SET C NK = N1 -1 NKSET= 0 NMIN = SCARD(3) NMAX = SCARD(4) NCORD= CCARD(5) IFRST= CCARD(1) IF (NMIN .GT. NMAX) GO TO 990 J1 = NCORD*CCARD(4) + IFRST - 1 IF (NMIN.LT.IFRST .OR. NMAX.GT.J1) GO TO 990 J1 = (NMIN-IFRST)/NCORD + 1 I1 = (NMIN-IFRST) - NCORD*(J1-1) + 1 JL = (NMAX-IFRST)/NCORD + 1 IL = (NMAX-IFRST) - NCORD*(JL-1) + 1 DO 530 J = J1,JL DO 520 I = I1,IL IZ(N1) = IFRST + (I-1) + NCORD*(J-1) N1 = N1 + 1 NKSET = NKSET + 1 520 CONTINUE 530 CONTINUE C C MAKE A LIST OF SIL NUMBERS FOR G SET C NW = NGSET J = IEQ + NEQ - 1 DO 610 I = 1,NW K = IZ(N+I-1) IZ(N1) = IZ(K+J) N1 = N1 + 1 610 CONTINUE C C FIND INTERNAL K POINT NUMBER FOR BGPT PLUS K NUMBER C JJ = 1 NW = IEQ - 1 DO 560 I = 1,NKSET DO 540 J = JJ,NEQ,3 IF (IZ(NK+I) .EQ. IZ(NW+J)) GO TO 550 540 CONTINUE GO TO 991 550 JJ = J IZ(NK+I) = IZ(NW+J+1) IZ(N1 ) = IZ(NW+J+2) N1 = N1 + 1 560 CONTINUE GO TO GKSET, (30,120) C C ERROR MESSAGES C 999 CALL MESAGE (-1,IFIL,NS) 998 CALL MESAGE (-3,IFIL,NS) 993 CALL MESAGE (-8,0,NS) 990 CALL MESAGE (-7,0,NS) 9971 SCARD(1) = IZ(N) 997 WRITE (OUT,9970) UWM,SCARD(5),SCARD(1) 9970 FORMAT (A25,' 2257, SET',I9,' REFERENCED ON SPLINE CARD',I9, 1 ' IS EMPTY.') GO TO 901 996 WRITE (OUT,9960) UFM,SCARD(5),SCARD(1) 9960 FORMAT (A23,' 2258, SET',I9,' REFERENCED ON SPLINE CARD',I9, 2 ' NOT FOUND OR IT IS EMPTY.') CALL REWIND (SCR2) GO TO 900 991 WRITE (OUT,9910) SFM,IZ(NK+I-1),CCARD(1) 9910 FORMAT (A25,' 2259, POINT ASSIGNED TO BOX',I9,' FOR CAER01',I9, 1 ' NOT IN EQAERO.') GO TO 900 992 WRITE (OUT,9910) K,IZ(N1+2) GO TO 900 1001 CALL MESAGE (-61,0,NS) 900 NOGO = 1 901 GO TO TYPE, (10,100,240,335,350) 1000 RETURN END ================================================ FILE: mis/gigtka.f ================================================ SUBROUTINE GIGTKA(MULTI,SINGLE,OMIT) C LOGICAL MULTI,SINGLE,OMIT INTEGER CORE,USET1,GM,GO,GKA,GKG,GKNB,GKM,SCR1,GKAB,GKF, * GKS,GKO,USETA,GKN INTEGER UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG C COMMON /PATX/ LC,N,NO,NY,USET1,IBC COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG COMMON /ZZZZZZ/ CORE(1) COMMON/GICOM/ SPLINE,USETA,CSTM,BGPT,SILA,EQAERO,GM,GO,GKA, * KSIZE,GSIZE,SCR1,GKG,GKNB,GKM,GKAB C C----------------------------------------------------------------------- C LC = KORSZ(CORE) GKF = GKNB GKS = GKM GKO = GKS USET1 = USETA C C REDUCE TO N SET IF MULTI POINT CONSTRAINTS C GKN = GKG IF(.NOT.MULTI) GO TO 20 IF(.NOT.SINGLE.AND..NOT.OMIT) GKN = GKA CALL CALCV(SCR1,UG,UN,UM,CORE) CALL SSG2A(GKG,GKNB,GKM,SCR1) CALL SSG2B(GM,GKM,GKNB,GKN,1,1,1,SCR1) C C PARTITION INTO F SET IF SINGLE POINT CONSTRAINTS C 20 IF(.NOT.SINGLE) GO TO 30 IF(.NOT.OMIT) GKF = GKA CALL CALCV(SCR1,UN,UF,US,CORE) CALL SSG2A(GKN,GKF, 0,SCR1) GO TO 40 C C REDUCE TO A SET IF OMITS C 30 GKF = GKN 40 IF(.NOT.OMIT) GO TO 50 CALL CALCV(SCR1,UF,UA,UO,CORE) CALL SSG2A(GKF,GKAB,GKO,SCR1) CALL SSG2B(GO,GKO,GKAB,GKA,1,1,1,SCR1) 50 RETURN END ================================================ FILE: mis/gigtkg.f ================================================ SUBROUTINE GIGTKG C EXTERNAL WRITE INTEGER GSIZE,SCR2,SCR3,TRL(7),IZ(1),SYSBUF,OUT,BUF1, 1 BUF2,NAM(2),SDTAB(6,5),CTYPE CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,OUT COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /GICOM / SPLINE,DUM(8),KSIZE,GSIZE,SCR1,SCR2,SCR3 COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)) DATA NAM / 4HGIGT,4HKG / DATA SDTAB / 9, 9, 0, 9, 1, 9, 1 9, 0, 1, 9, 2, 3, 2 9, 9, 0, 9, 9, 9, 3 9, 9, 0, 9, 1, 2, 4 9, 9, 0, 9, 1, 2/ C NCORE = KORSZ(Z) - 2*SYSBUF BUF1 = NCORE BUF2 = BUF1 + SYSBUF ITI = 1 ITO = 1 II = 1 INCR = 1 TRL(1) = SCR2 TRL(2) = 0 TRL(3) = GSIZE TRL(4) = 2 TRL(5) = 1 TRL(6) = 0 TRL(7) = 0 C C BUILD A G BY K MATRIX PUT OUT SPLINE3 COLUMNS WHEN NECESSARY C CALL GOPEN (SCR2,Z(BUF1),1) CALL GOPEN (SCR3,Z(BUF2),0) ISS = GSIZE + 1 NCORE= NCORE - ISS KCOL = 0 DO 80 I = 1,KSIZE IF (KCOL .LT. I) GO TO 20 10 IF (KCOL .EQ. I) GO TO 50 NN = 1 Z(1) = 0.0 CALL PACK (Z,SCR2,TRL) GO TO 80 20 CALL READ (*30,*40,SCR3,Z(ISS),NCORE,0,NWR) GO TO 90 30 KCOL = KSIZE +1 GO TO 10 40 KST = IZ(ISS+2) CTYPE= IZ(ISS+NWR-9) ICM = IZ(ISS+3) K = SDTAB(ICM,CTYPE) IF(K.EQ.9) GO TO 100 KCOL = KST + K GO TO 10 C C BUILD COLUMN FOR SPLINE CARD C 50 DO 60 J = 1,GSIZE 60 Z(J) = 0.0 NN = GSIZE JJ = ISS+4 JJJ = ISS+NWR-19 DO 70 J = JJ,JJJ,3 K = IZ(J) + IZ(J+1) -1 Z(K) = Z(J+2) 70 CONTINUE CALL PACK (Z,SCR2,TRL) 80 CONTINUE CALL CLOSE (SCR2,1) CALL CLOSE (SCR3,1) CALL WRTTRL (TRL) GO TO 120 C C ERROR MESSAGES C 90 CALL MESAGE (-8,NCORE,NAM) 100 WRITE (OUT,110) UFM,IZ(ISS),CTYPE,ICM 110 FORMAT (A23,' 2263, SPLINE3',I9,' FOR CAERO',I1, 1 ' HAS ILLEGAL COMPONENT',I6) CALL MESAGE (-37,0,NAM) 120 RETURN END ================================================ FILE: mis/ginofl.f ================================================ SUBROUTINE GINOFL C C ROUTINE FOR GINOFILE MODULE C C MODULE GINOFILE WILL CAPTURE ONE SCRATCH FILE (301 THRU 309) OF C PREVIOUS DAMP MODULE, AND MAKE IT A LEGITIMATE GINO FILE. C THE SCRATCH FILE CAN BE A TABLE DATA BLOCK OR A MATRIX DATA BLOCK. C USE DMAP ALTER TO PLACE THIS MODULE IMMEDIATELY AFTER ANY NASTRAN C EXECUTABLE DMAP MODULE WHOSE SCRATCH FILE IS TO BE CAPTURED C C IT IS USER'S RESPONSIBILITY TO SEE THAT NO FIAT TABLE RE- C ARRANGEMENT BY MODULE XSFA BETWEEN THIS GINOFILE MODULE AND THE C PREVIOUS INTENDED MODULE C C GINOFILE /OUTFL/C,N,P1/C,N,P2/C,N,P3 $ C C INPUT FILE = NONE C OUTPUT FILE = OUTFL, ANY UNIQUE NAME C SCRATCH FILE = 301 C PARAMETERS - C P1 = SCRATCH FILE NUMBER, 301,302,303,...,309 C (NO DEFAULT) C P2 = ADDITIONAL NUMBER OF RECORDS IN P1 FILE TO BE C SKIPPED (NOT INCLUDING HEADER RECORD, WHETHER IT C EXISTS OR NOT, DEFAULT = 0) C P3 = NO. OF RECORDS TO BE COPIED TO OUTPUT FILE OUTFL, C STARTING FROM THE P2+1 RECORD, OR UP TO EOF RECORD C (DEFAULT JJ=999999) C C THIS GINOFILE MODULE SHOULD BE MAPPED IN ALL LINKS EXCEPT LINK1 C C WRITTEN BY G.CHAN/UNISYS, MAY 1988 C DEFINITELY THIS IS NOT AN ORDINARY JOB FOR AMATEUR OR SEASONNED C PROGRAMMERS, MY FRIENDS C C THE TRICKY PART OF THIS PROGRAM IS THAT GINOFILE MODULE USES ONLY C ONE OUTPUT FILE AND ONE SCRATCH FILE, WHICH IS 301 C THE PROBLEMS HERE ARE (1) HOW TO CAPTURE OTHER SCRATCH FILE OF THE C PREVIOUS DMAP MODULE, SAY 303, WHILE ONLY 301 IS AVAILABLE. AND C (2) HOW TO CAPTURE SCRATCH1 FILE WHILE THE ORIGINAL 301 GINO DATA, C SUCH AS TRAILER, UNIT NUMBER, FILE INDEX ETC. ARE GONE. (THE C ORIGINAL 301 GINO DATA HAS BEEN ZEROED OUT TO GIVE ROOM FOR THE C NEW SCRATCH1 BEING ASSIGNED TO GINOFILE MODULE). C IMPLICIT INTEGER (A-Z) LOGICAL DEBUG CHARACTER*6 TBMX,MXTB(2) DIMENSION TRL(7),FN(2),NAME(2),TCHI(9) DIMENSION ITRL(7) C COMMON /PACKX / ITYPEP, JTYPEP, IROWP, JROWP, INCRP COMMON /UNPAKX/ ITYPEU, IROWU, JROWU, INCRU CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /SYSTEM/ SYSBUF,NOUT,SKIP(21),ICFIAT COMMON /BLANK / P1,P2,P3 COMMON /XFIAT / FIAT(3) COMMON /XFIST / FIST(2) COMMON /XSORTX/ SAVE(6) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (SCR,P1) DATA NAME / 4HGINO,4HFL /, SCRA, TCH / 4HSCRA, 4H / CWKBR DATA BLANK / 4H /, IZ2 / 2 /,OUTFL / 201 / DATA IZ2 / 2 /,OUTFL / 201 / DATA TCHI / 4HTCH1,4HTCH2 , 4HTCH3,4HTCH4,4HTCH5,4HTCH6, 1 4HTCH7,4HTCH8 , 4HTCH9 / DATA MXTB / 'MATRIX' , 'TABLE ' /,DEBUG /.FALSE./ C C CHECK SCRATCH FILE PARAMETER C IF (SCR.GT.300 .AND. SCR.LT.400) GO TO 20 WRITE (NOUT,10) UWM,SCR 10 FORMAT (A25,', SCRATCH FILE PARAMETER ERROR. GINOFILE ABORTED AND' 1, ' NO OUTPUT GINO FILE CREATED', /5X,'FIRST PARAMETER =',I5) GO TO 300 20 IF (SCR .LT. 310) GO TO 40 WRITE (NOUT,30) UFM 30 FORMAT (A23,', GINOFILE IS PROGRAMMED TO PROCESS ONLY THE FIRST ', 1 '9 SCRATCH FILES') CALL MESAGE (-61,0,0) C C SETUP CORE, BUFFERS, AND GINO OUTPUT FILE NAME C 40 KORE = KORSZ(Z(1)) IBUF1 = KORE - SYSBUF - 1 IBUF2 = IBUF1- SYSBUF KORE = IBUF2- 1 CALL FNAME (OUTFL,FN) C C RECAPTURE SCRATCH FILE NUMBER, TRAILER, AND INDEX POINTER IN FIAT C AND FIST C NOTE - C IT IS HERE THAT SCRATCH FILE IS LIMITED FROM 301 THRU 309 C SCRATCH FILES 310 AND HIGHER MAY NOT HAVE UNIQUE 8-LETTER NAMES C IN ALL COMPUTERS. C INDEX = 0 K = FIAT(3)*ICFIAT - 2 TCH = TCHI(SCR-300) DO 50 I = 4,K,ICFIAT IF (FIAT(I+1).EQ.SCRA .AND. FIAT(I+2).EQ.TCH) GO TO 70 50 CONTINUE WRITE (NOUT,60) UFM,SCR 60 FORMAT (A23,', SCRATCH FILE',I4,' DOES NOT EXIST IN FIAT TABLE. ', 1 'THIS ERROR MAY DUE TO', /5X, 2 'USER ERROR, OR GINOFILE WAS PRECEDED BY XSFA MODULE') CALL MESAGE (-37,0,NAME) 70 INDEX = I IF (DEBUG) WRITE (6,80) INDEX 80 FORMAT (5X,'INDEX =',I6) IF (SCR .NE. 301) GO TO 90 C C IF SCRATCH FILE IS 301, THE TRAILER IN FIAT HAS BEEN INITIALIZED C TO ZEROS. MUST RECLAIM THE TRAILER FROM /XSORTX/, SAVED BY WRTTRL C C THE LABEL COMMON /XSORTX/, DEFINED VIA SEMDBD AND AVAILABLE IN ALL C LINKS, IS ORIGNALLY USED ONLY BY XSORT2 ROUTINE WHICH WAS EXECUTED C IN EARLY LINK1. THUS IT IS SAFE TO SAVE THE SCRATCH 301 TRAILER IN C /XSORTX/. NOTE THE OTHER SCARTCH FILES 302 THRU 309 DO NOT HAVE C THIS PROBLEM C FIAT(INDEX+ 3) = SAVE(1) FIAT(INDEX+ 4) = SAVE(2) FIAT(INDEX+ 5) = SAVE(3) IF (ICFIAT .EQ. 8) GO TO 90 FIAT(INDEX+ 8) = SAVE(4) FIAT(INDEX+ 9) = SAVE(5) FIAT(INDEX+10) = SAVE(6) C C LOCATE 301 IN FIST TABLE AND SWAP FIAT INDEX THAT POINTS TO THE C TARGET SCR FILE C 90 K = FIST(2)*2+2 DO 100 I=3,K,2 IF (FIST(I) .EQ. 301) GO TO 110 100 CONTINUE CALL MESAGE (-37,0,NAME) 110 FISTI = I FISTI1 = FIST(I+1) FIST(I+1) = INDEX-1 IF (DEBUG) WRITE (6,120) I,FIST(I),FIST(I+1),INDEX 120 FORMAT (10X,' I,FIST(I),FIST(I+1),INDEX =',4I6) C C NOW, WE CAN READ THE SCRATCH FILE TRAILER C TRL(1) = 301 CALL RDTRL (TRL(1)) TRL(1) = SCR TBMX = MXTB(2) IF (TRL(7) .GT. 0) TBMX = MXTB(1) WRITE (NOUT,130) UIM,TCH,TRL,TBMX,FN 130 FORMAT (A29,' FROM GINOFILE MODULE', /5X,'TRAILER OF SCRA',A4, 1 ' FILE IN PREVIOUS MODULE = (',I3,1H),5I5,I8, /5X,A6, 2 ' CONTENTS OF THIS FILE WILL BE TRANSFERRED TO GINO FILE ', 3 2A4,/) C C SWAP SCR AND SCRX (301) FILE C OPEN SCRS FILE, AND SKIP P2 RECORDS IF REQUESTED BY USER C (DEFAULT SKIP 1 HEADER RECORD IF IT EXISTS) C TRL2 = TRL(2) FILE = SCR SCRX = 301 CALL OPEN (*260,SCRX,Z(IBUF1),0) NWDS = TRL(5) IF (NWDS .EQ. 3) NWDS =2 NWDS = TRL(3)*NWDS ITYPEU = TRL(5) IROWU = 1 JROWU = TRL(3) INCRU = 1 ITYPEP = ITYPEU JTYPEP = ITYPEU IROWP = 1 JROWP = TRL(3) INCRP = 1 ITRL(1) = OUTFL ITRL(2) = 0 ITRL(3) = TRL(3) ITRL(4) = TRL(4) ITRL(5) = TRL(5) ITRL(6) = 0 ITRL(7) = 0 CALL RECTYP (SCRX, IRCTYP) IF (IRCTYP .EQ. 0) GO TO 135 ICRQ = NWDS -KORE IF (ICRQ .LE. 0) GO TO 145 CALL MESAGE (-8, SCRX, NAME) 135 CALL READ (*250,*140,SCRX,Z,2,1,K) CWKBR 140 IF (Z(1).NE.SCRA .OR. Z(IZ2).NE.TCH) CALL BCKREC (SCRX,1) 140 IF (Z(1).NE.SCRA .OR. Z(IZ2).NE.TCH) CALL BCKREC (SCRX) 145 NCOL = 0 IF (P3 .LE. 0) P3 = 999999 IF (P2 .LE. 0) GO TO 160 DO 150 II=1,P2 150 CALL FWDREC (*250,SCRX) C C OPEN OUTPUT GINO FILE AND WRITE A HEADER RECORD C 160 FILE = OUTFL CALL OPEN (*260,OUTFL,Z(IBUF2),1) CALL WRITE (OUTFL,FN,2,1) 162 CALL RECTYP (SCRX, IRCTYP) IF (IRCTYP .EQ. 0) GO TO 170 C C PROCESS STRING-FORMATED RECORD HERE C CALL UNPACK (*164, SCRX, Z) GO TO 168 164 DO 166 L = 1, NWDS Z(L) = 0 166 CONTINUE 168 CALL PACK (Z, OUTFL, ITRL) GO TO 185 C C COPY SCRATCH FILE DATA DIRECTLY TO OUTPUT FILE C 170 CALL READ (*190,*180,SCRX,Z,KORE,0,K) CALL WRITE (OUTFL,Z,KORE,0) GO TO 170 180 CALL WRITE (OUTFL,Z,K,1) 185 NCOL = NCOL + 1 IF (NCOL .LT. P3) GO TO 162 C C ALL DONE, CLOSE ALL FILES, WRITE TRAILER, AND ISSUE FRIENDLY C MESSAGES C 190 CALL CLOSE (SCRX ,1) CALL CLOSE (OUTFL,1) TRL(1) = OUTFL TRL(2) = NCOL IF (NCOL .GT. ITRL(2)) CALL WRTTRL (TRL) IF (NCOL .EQ. ITRL(2)) CALL WRTTRL (ITRL) WRITE (NOUT,200) UIM,TCH,FN 200 FORMAT (A29,', DATA TRANSFER FROM PREVIOUS SCRA',A4,' FILE TO ', 1 2A4,' IS ACCOMPLISHED') IF (P2 .GT. 0) WRITE (NOUT,210) TCH,P2 IF (P3 .LT. 999999) WRITE (NOUT,220) P3 210 FORMAT (5X,'FIRST',I5,' RECORDS IN SCRA',A4,' FILE WERE SKIPPED ', 1 'BEFORE DATA TRANSFER') 220 FORMAT (5X,'LAST RECORD COPIED WAS RECORD NO.',I5) WRITE (NOUT,230) FN,TRL 230 FORMAT (5X,'TRAILER OF THE NEW GINO FILE ',2A4,' = (',I3,1H), 1 5I5,I8) C C IF SCRATCH FILE CONTAINS MATRIX DATA, CHECK NO. OF COLUMNS C IF (TBMX.EQ.MXTB(1) .AND. NCOL.NE.TRL2 .AND. 1 (P2.EQ.0 .AND. P3.EQ.999999)) WRITE (NOUT,240) UIM,TCH,FN 240 FORMAT (A29,', POSSIBLE ERROR IN GINOFILE WAS DETECTED', /5X, 1 'NUMBERS OF COLUMNS IN INPUT FILE SCAR',A4, 2 ' AND OUTPUT FILE ',2A4,' DISAGREE',//) C C RESET FIST ORIGINAL INDEX FOR SCRATCH FILE 301 C FIST(FISTI+1) = FISTI1 GO TO 300 C C ERRORS C 250 K =-2 GO TO 270 260 K = -1 270 CALL MESAGE (K,FILE,NAME) C 300 RETURN END ================================================ FILE: mis/gipsst.f ================================================ SUBROUTINE GIPSST C C THIS SUBROUTINE LOCATES ALL THE G AND K SET POINTS IN THE SPLINE C COORDINATE SYSTEM AND FORMS G FOR EACH SET THEN C INSERTS THE G INTO THE FULL SIZED G MATRIX C LOGICAL OXR,OYR,ZAP,KCOL INTEGER SYSBUF,OUT,BUFF,BUFF1,TRL(7),TGKG(7),OLDID,IZ(28), 1 PCSTM,PBGPT,NWR,TYPE,NS(2),PROE,PTE,ISNG,SLOPE, 2 PG,PK,PROL,PTL,BUFF2,CTYPE,PSIL INTEGER SCARD(10),CCARD(16) INTEGER SPLINE,USETA,CSTM,BAGPDT,SILA,EQAERO,GM,GO,SCR1, 1 SCR2,SCR3,SCR4,SCR5,KSIZE,GSIZE,GTKA DIMENSION TL(9),ROL(3),AN(6),BLOCK(20),TGS(18),T(3),TG(9) DIMENSION TT(9),Z(1),SRARD(10) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /ZNTPKX/ A,DUM(3),NR,IEOL,IEOR COMMON /SYSTEM/ SYSBUF,OUT COMMON /GICOM / SPLINE,USETA,CSTM,BAGPDT,SILA,EQAERO,GM,GO,GTKA, 1 KSIZE,GSIZE,SCR1,SCR2,SCR3,SCR4,SCR5 COMMON /UNPAKX/ ITC,II,J1,INCR COMMON /ZZZZZZ/ IZX(1) C C CHANGE IN EQUIV FOR SIZE OF SCARD OR CCARD C NEED TO CHANGE PENDC C EQUIVALENCE (IZX(1),IZ(1),Z(1),SCARD(1),SRARD(1)), 1 (IZ(11),CCARD(1)) ,(IZ(27),NGSET) ,(IZ(28),NKSET) DATA NS / 4HGIPS,4HST / DATA TGS / 18*0.0 / C PENDC = 28 NOGO = 0 OLDID =-1 LC =-1 NWDS = KORSZ(IZ) BUFF = NWDS - SYSBUF BUFF1 = BUFF - SYSBUF BUFF2 = BUFF1- SYSBUF TRL(1)= CSTM CALL RDTRL (TRL) IF (TRL(1) .LT. 0) TRL(3) = 0 NCSTM = (TRL(3)+1)*14 PCSTM = BUFF2 - NCSTM TRL(1)= BAGPDT CALL RDTRL (TRL) NBG = TRL(2)*4 PBGPT = PCSTM - NBG TRL(1)= SCR1 CALL RDTRL (TRL) MAX = TRL(2) IF (TRL(3) .EQ. 0) GO TO 1000 I = SCR2 SCR2 = SCR3 SCR3 = I IPASS = 0 C C INITIAL CORE CHECK C IF (PBGPT-2*MAX .LT. 0) GO TO 993 C C OPEN SCR1 TO LOOP ON G AND K SET RECORDS C CALL GOPEN (SCR1,IZ(BUFF+1),0) C C READ IN CSTM AT PCSTM + 14 ADD BASIC COORD SYSTEM C 1 IZ(PCSTM ) = 0 IZ(PCSTM+1) = 1 DO 5 I = 2,13 Z(PCSTM+I) = 0.0 5 CONTINUE Z(PCSTM+5) = 1.0 Z(PCSTM+9) = 1.0 Z(PCSTM+13)= 1.0 IF (NCSTM .EQ. 14) GO TO 7 IFIL = CSTM CALL GOPEN (CSTM,IZ(BUFF1+1),0) CALL READ (*999,*999,CSTM,IZ(PCSTM+14),NCSTM-14,1,NWR) CALL CLOSE (CSTM,1) 7 CALL PRETRS (IZ(PCSTM),NCSTM) C C READ IN BAGPDT AT PBGPT C IFIL = BAGPDT CALL GOPEN (BAGPDT,IZ(BUFF1+1),0) CALL READ (*999,*999,BAGPDT,IZ(PBGPT),NBG,1,NWR) CALL CLOSE (BAGPDT,1) C C READ SCR1 AND PROCESS A SPLINE DEPENDING ON TYPE C 10 N1 = MAX + 1 IFIL= SCR1 CALL READ (*500,*20,SCR1,IZ(1),N1,1,NWR) 20 J = 2 TYPE= IZ(J) PG = PENDC PK = PG + NGSET PSIL= PK + NKSET IPK = PSIL + NGSET NP = NGSET + NKSET C C USE A K POINT TO PICK UP POINTER TO BAGPDT FOR C COORDINATE SYSTEM ID OF SPLINE C NEWID = CCARD(2) CTYPE = CCARD(8) K = PCSTM J = PCSTM + NCSTM - 1 IF (NEWID .EQ. OLDID) GO TO 40 DO 30 I = K,J,14 IF (IZ(I) .NE. NEWID) GO TO 30 PROE = I + 2 PTE = I + 5 OLDID = NEWID GO TO 40 30 CONTINUE IC = NEWID GO TO 997 40 GO TO (50,100), TYPE C C SURFACE SPLINE C 50 GO TO (51,998,51,51,51), CTYPE 51 CONTINUE IS = 1 PTL = PTE DO 54 I = 1,9 54 TL(I) = Z(PTE+I-1) DO 60 I = 1,NP K = (IZ(PG+I)-1)*4 C C BASIC COORDINATES C BX = Z(PBGPT+K+1) BY = Z(PBGPT+K+2) BZ = Z(PBGPT+K+3) IF (NEWID .EQ. 0) GO TO 55 C C X AND Y OF SPLINE C T1 = BX - Z(PROE ) T2 = BY - Z(PROE+1) T3 = BZ - Z(PROE+2) Z(N1 ) = Z(PTE)*T1 + Z(PTE+3)*T2 + Z(PTE+6)*T3 Z(N1+1) = Z(PTE+1)*T1 + Z(PTE+4)*T2 + Z(PTE+7)*T3 GO TO 59 55 Z(N1 ) = BX Z(N1+1) = BY 59 N1 = N1 + 2 60 CONTINUE K = MAX + 1 J = K + 2*NGSET NCORE = PBGPT - N1 C C CORE CHECK C N = NGSET + 3 ND = NKSET*2 NN = N*N + 3*N + N*ND + ND*NGSET IF (NN .LT. NCORE) GO TO 70 NCORE = BUFF2 - N1 IF (NN .GT. NCORE) GO TO 992 ZAP =.TRUE. C C GET G FOR A SURFACE SPLINE C 70 CALL SSPLIN (NGSET,IZ(K),NKSET,IZ(J),0,0,1,1,SCARD(6),IZ(N1), 1 NCORE,ISNG) IF (ISNG .EQ. 2) GO TO 998 IF (NOGO .EQ. 1) GO TO 10 C C REVERSE SIGN OF SLOPE COLUMN C K = N1 DO 80 I = 1,NKSET K = K + NGSET DO 90 J = 1,NGSET Z(K) = -Z(K) K = K + 1 90 CONTINUE 80 CONTINUE GO TO 300 C C LINEAR SPLINE C 100 GO TO (101,130,101,101,101), CTYPE C C CAERO2 PROSESSING BODIES C 130 SCARD( 8) = NEWID SCARD( 9) = SCARD(10) SCARD(10) = -1.0 IBTYP = CCARD(16) KD = 1 DO 135 I = 2,8 135 TL(I) = 0.0 TL(1) = 1.0 TL(5) = 1.0 TL(9) = 1.0 GO TO 102 101 KD = 2 102 CONTINUE C C FIND CORD SYSTEM OF LINEAR SPLINE C IF (SCARD(8) .EQ. LC) GO TO 120 DO 110 I = K,J,14 IF (SCARD(8) .NE. IZ(I)) GO TO 110 LC = SCARD(8) PROL = I + 2 PTL = I + 5 GO TO 120 110 CONTINUE IC = SCARD(8) GO TO 997 120 IF (NEWID.EQ.0 .AND. SCARD(8).EQ.0) GO TO 145 T1 = Z(PROL ) - Z(PROE) T2 = Z(PROL+1) - Z(PROE+1) T3 = Z(PROL+2) - Z(PROE+2) T1 = Z(PTE+2)*T1 + Z(PTE+5)*T2 + Z(PTE+8)*T3 T2 = Z(PTE+5)*T1 T3 = Z(PTE+8)*T1 T1 = Z(PTE+2)*T1 ROL(1) = Z(PROL ) - T1 ROL(2) = Z(PROL+1) - T2 ROL(3) = Z(PROL+2) - T3 T1 = Z(PTL+4)*Z(PTE+8) - Z(PTL+7)*Z(PTE+5) T2 = Z(PTL+7)*Z(PTE+2) - Z(PTL+1)*Z(PTE+8) T3 = Z(PTL+1)*Z(PTE+5) - Z(PTL+4)*Z(PTE+2) T4 = SQRT(T1*T1 + T2*T2 + T3*T3) IF (T4 .EQ. 0.0) GO TO 996 TL(1) = T1/T4 TL(4) = T2/T4 TL(7) = T3/T4 TL(2) = Z(PTE+5)*TL(7) - Z(PTE+8)*TL(4) TL(5) = Z(PTE+8)*TL(1) - Z(PTE+2)*TL(7) TL(8) = Z(PTE+2)*TL(4) - Z(PTE+5)*TL(1) TL(3) = Z(PTE+2) TL(6) = Z(PTE+5) TL(9) = Z(PTE+8) 145 DO 160 I = 1,NP C C BASIC CORD C K = (IZ(PG+I)-1)*4 BX = Z(PBGPT+K+1) BY = Z(PBGPT+K+2) BZ = Z(PBGPT+K+3) IF (NEWID.EQ.0 .AND. SCARD(8).EQ.0) GO TO 150 T1 = BX - ROL(1) T2 = BY - ROL(2) T3 = BZ - ROL(3) Z(N1 ) = TL(1)*T1 + TL(4)*T2 + TL(7)*T3 Z(N1+1) = TL(2)*T1 + TL(5)*T2 + TL(8)*T3 GO TO 155 150 Z(N1 ) = BX Z(N1+1) = BY 155 N1 = N1 + 2 160 CONTINUE IF (CTYPE .NE. 2) GO TO 169 N1 = MAX + 1 DO 165 I = 1,NP Z(N1+1) = Z(N1) Z(N1 ) = 0.0 165 N1 = N1 + 2 C C CHECK CORE C 169 K = MAX + 1 J = K + 2*NGSET NCORE = PBGPT - N1 OYR = .FALSE. OXR = .FALSE. IF (SRARD( 9) .LT. 0.0) OXR = .TRUE. IF (SRARD(10) .LT. 0.0) OYR = .TRUE. IS = 3 IF (OXR) IS = IS - 1 IF (OYR) IS = IS - 1 N = IS*NGSET + 3 ND = NKSET*(1+KD) NN = N*N + 3*N + N*ND + ND*NGSET*IS IF (NN .LT. NCORE) GO TO 170 NCORE = BUFF2 - N1 IF (NN .GT. NCORE) GO TO 992 ZAP =.TRUE. C C GET G FOR A LINEAR SPLINE C 170 CALL LSPLIN (NGSET,IZ(K),NKSET,IZ(J),0,KD,1,SCARD(6),SCARD(9), 1 SCARD(10),SCARD(7),IZ(N1),NCORE,ISNG) IF (ISNG .EQ. 2) GO TO 998 IF (NOGO .EQ. 1) GO TO 10 IF (CTYPE.EQ. 2) GO TO 300 C C TRANSFORM G TO SPLINE COORDINATES C TYL = 1.0 TXL = 0.0 IF (NEWID.EQ.0 .AND. SCARD(8).EQ.0) GO TO 190 TYL = Z(PTE+1)*TL(2) + Z(PTE+4)*TL(5) + Z(PTE+7)*TL(8) TXL = Z(PTE+1)*TL(1) + Z(PTE+4)*TL(4) + Z(PTE+7)*TL(7) C C MOVE COLUMNS UP C 190 NRGS = NGSET*IS K2 = NRGS + NRGS K3 = K2 + NRGS NCORE= N1 N1 = N1 + NRGS - 1 N2 = N1 DO 200 I = 1,NKSET DO 210 K = 1,NRGS Z(N2+K) = Z(N1+K)*TXL + Z(N1+NRGS+K)*TYL Z(N2+NRGS+K) = Z(N1+K2+K) 210 CONTINUE N1 = N1 + K3 N2 = N2 + K2 200 CONTINUE N1 = NCORE C C TRANSFORM G INTO GLOBAL C 300 CONTINUE C C T C OPEN SCR2 TO WRITE G MATRIX C KG C CALL GOPEN (SCR2,IZ(BUFF1+1),1) CALL GOPEN (SCR3,IZ(BUFF2+1),0) TGKG(3) = GSIZE TGKG(4) = 2 TGKG(5) = 1 TGKG(1) = SCR2 TGKG(2) = 0 TGKG(6) = 0 TGKG(7) = 0 IBCC = 1 SIGN = 1.0 SLOPE = 1 KCOL = .FALSE. KN = 1 KCOLN = IZ(IPK+KN) C C KCOLN PICKS UP COLUMN NUMBER TO INSERT C KN POINT TO COLUMN OF G MATRIX C SLOPE IS FLIP FLOP SWITCH FOR SLOPE COLUMN (KEEPS KCOL TRUE) C C C LOOP THROUGH COLUMNS OF GKT C DO 400 I = 1,KSIZE CALL BLDPK (1,1,SCR2,BLOCK,1) IF (KCOLN .EQ. I) KCOL = .TRUE. C C COPY A COLUMN OR OUTPUT A NULL COLUMN C CALL INTPK (*340,SCR3,0,1,0) IF (KCOL) GO TO 995 330 CALL ZNTPKI CALL BLDPKI (A,NR,SCR2,BLOCK) IF (IEOL .EQ. 0) GO TO 330 GO TO 390 340 IF (.NOT.KCOL) GO TO 390 C C LOOP THROUGH COLUMN OF G BUILDING COLUMN OF GKT C DO 380 J = 1,NGSET NR = IZ(PSIL+J) K = (IZ(PG+J)-1)*4 CALL TRANSS (IZ(PBGPT+K),TT) CALL GMMATS (TT,3,3,1,TL,3,3,0,TG) GO TO (350,360), TYPE C C TERMS OF SURFACE SPLINE C 350 CONTINUE DO 351 JJ = 3,9,3 A = TG (JJ)*Z(N1) CALL BLDPKI (A,NR,SCR2,BLOCK) NR = NR + 1 351 CONTINUE N1 = N1 + 1 GO TO 380 C C TERMS OF LINEAR SPLINE C 360 IF (CTYPE .EQ. 2) GO TO 370 IF (IS .EQ. 1) GO TO 350 TGS( 1) = TG(3) TGS( 4) = TG(6) TGS( 7) = TG(9) TGS(11) = TG(1) TGS(12) = TG(2) TGS(14) = TG(4) TGS(15) = TG(5) TGS(17) = TG(7) TGS(18) = TG(8) GO TO 365 C C BODIES C 370 GO TO (372,371,373), IBTYP 371 GO TO (373,372,372,373), IBCC 372 TGS( 1) = TG(3)*SIGN TGS( 4) = TG(6)*SIGN TGS( 7) = TG(9)*SIGN TGS(11) =-TG(2)*SIGN TGS(12) = TG(1)*SIGN TGS(14) =-TG(5)*SIGN TGS(15) = TG(4)*SIGN TGS(17) =-TG(8)*SIGN TGS(18) = TG(7)*SIGN GO TO 365 373 TGS( 1) = TG(2) TGS( 4) = TG(5) TGS( 7) = TG(8) TGS(11) = TG(3) TGS(12) = TG(1) TGS(14) = TG(6) TGS(15) = TG(4) TGS(17) = TG(9) TGS(18) = TG(7) 365 T(1) = Z(N1) N1 = N1 + 1 T(2) = 0.0 T(3) = 0.0 IF (OXR) GO TO 361 T(2) = Z(N1) N1 = N1 + 1 361 IF (OYR) GO TO 362 T(3) = Z(N1) N1 = N1 + 1 362 CALL GMMATS (TGS,6,3,0,T,3,1,0,AN) DO 363 JJ = 1,6 CALL BLDPKI (AN(JJ),NR,SCR2,BLOCK) NR = NR + 1 363 CONTINUE 380 CONTINUE C C COLUMN FINISHED CHECKSLOPE COLUMN NEXT OR END OF G C IF (CTYPE .NE. 3) GO TO 382 N1 = N1 + NGSET*IS GO TO 384 382 IF (CTYPE .NE. 2) GO TO 383 IF (IBTYP .EQ. 1) SIGN = -SIGN IF (IBTYP .NE. 2) GO TO 383 IBCC = IBCC + 1 IF (IBCC .EQ. 3) SIGN = -SIGN IF (IBCC .EQ. 5) SIGN = -SIGN IF (IBCC .EQ. 5) IBCC = 1 C C KEEP SLOPE NEG FOR ZY BODIES AND REPROCESS SAME COLUMN TWICE C IF (IBCC.EQ.2 .OR. IBCC.EQ.4) N1 = N1 - NGSET*IS IF (IBCC .GT. 2) GO TO 390 383 SLOPE = -SLOPE IF (SLOPE .NE. 1) GO TO 390 384 KN = KN + 1 IF (KN .GT. NKSET) GO TO 385 KCOLN = IZ(IPK+KN) 385 KCOL = .FALSE. 390 CALL BLDPKN (SCR2,BLOCK,TGKG) 400 CONTINUE C C SWITCH FILES FOR ANOTHER SPLINE C CALL CLOSE (SCR2,1) CALL WRTTRL (TGKG) CALL CLOSE (SCR3,1) I = SCR2 SCR2 = SCR3 SCR3 = I IPASS= IPASS + 1 IF (ZAP) GO TO 1 GO TO 10 C C FINISHED SWITCH FILES SO OUTPUT IS SCR2 C C C IF ALL DONE BE SURE SCR2 IS GTKA C 500 I = SCR2 SCR2 = SCR3 SCR3 = I IF (SCR3 .NE. 201) GO TO 520 CALL GOPEN (SCR2,Z(BUFF1),0) CALL GOPEN (SCR3,Z(BUFF2),1) TGKG(1) = SCR2 CALL RDTRL (TGKG) N = TGKG(2) TGKG(1) = SCR3 TGKG(2) = 0 TGKG(6) = 0 TGKG(7) = 0 INCR = 1 ITC = 1 CALL CYCT2B (SCR2,SCR3,N,Z,TGKG) CALL CLOSE (SCR2,1) CALL CLOSE (SCR3,1) CALL WRTTRL (TGKG) 520 CONTINUE CALL CLOSE (SCR1,1) IF (NOGO .EQ. 0) GO TO 1000 C C ERROR MESSAGES C CALL MESAGE (-61,0,NS) 999 CALL MESAGE (-3,IFIL,NS) 993 CALL MESAGE (-8,0,NS) 998 WRITE (OUT,9980) UFM,SCARD(1) 9980 FORMAT (A23,' 2260, SINGULAR MATRIX DEVELOPED WHILE PROCESSING ', 1 'SPLINE',I9) GO TO 1001 997 CALL MESAGE (30,25,IC) GO TO 1001 996 WRITE (OUT,9960) UFM,SCARD(1),CCARD(1) 9960 FORMAT (A23,' 2261, PLANE OF LINEAR SPLINE',I9, 1 ' PERPENDICULAR TO PLANE OF AERO ELEMENT',I9) GO TO 1001 995 WRITE (OUT,9950) UFM,SCARD(1) 9950 FORMAT (A23,' 2262, SPLINE',I9,' INCLUDES AERO BOX INCLUDED ON A', 1 ' EARLIER SPLINE') GO TO 1001 992 WRITE (OUT,9920) UFM,SCARD(1) 9920 FORMAT (A23,' 2263, INSUFFICIENT CORE TO PROCESS SPLINE',I9) 1001 NOGO = 1 GO TO 10 1000 RETURN END ================================================ FILE: mis/givens.f ================================================ SUBROUTINE GIVENS C C DRIVER FOR GIVENS-HOUSEHOLDER METHOD C INTEGER SYSBUF ,EIGR(4) ,ICORE(1) ,OPTION ,FILE , 1 NAME(4) ,END ,PHIA ,T ,IX(7) , 2 SCR1 ,SCR2 ,SCR3 ,SCR4 ,SCR5 , 3 SCR6 ,SCR7 REAL LFREQ ,MB(1) DOUBLE PRECISION DCORE(1) ,DLMDAS ,DALPHA(2),DBETA(2) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /SADDX / NOMAT ,LLCORE ,MCBA(7) ,ITYPA ,ALPHA(4), 1 MCBB(7) ,ITYPB ,BETA(4) ,MCBCDE(36),MCBX(7) COMMON /MGIVXX/ DLMDAS COMMON /BLANK / IPROB(2) ,NUMMOD ,ICASE ,XLMDAS 1 /GIVN / DUM(100) ,N ,LFREQ ,ORDER ,D1 , 2 HFREQ ,D2 ,NV ,D3 ,D4 , 3 NFR 4 /NTIME / LNTIME ,TCONS(15) 5 /REGEAN/ IM(7) ,IK(7) ,IEV(7) ,SCR1 ,SCR2 , 6 SCR3 ,SCR4 ,SCR5 ,LCORE ,RMAX , 7 RMIN ,MZ ,NEV ,EPSI ,RMINR , 8 NE ,NIT ,NEVM ,SCR6 ,SCR7 , 9 NFOUND ,LAMDA ,IBUCK ,NSYM O /REIGKR/ OPTION 1 /SYSTEM/ SYSBUF ,NOUT ,NOGO ,KSYS(51) ,JPREC 2 /ZZZZZZ/ CORE(1) COMMON /CONDAS/ PI ,TWOPI ,RADEG ,DEGRA ,FPS COMMON /PACKX / ITP1 ,ITP2 ,IIP ,JJP ,INCRP COMMON /UNPAKX/ ITU ,IIU ,JJU ,INCRU EQUIVALENCE (BETA(1),DBETA(1)) ,(ALPHA(1),DALPHA(1)), 1 (SLMDAS ,DLMDAS ) ,(TCONS(8),MB(1) ), 2 (CORE(1),DCORE(1)) ,(ICORE(1),CORE(1) ), 3 (TCONS(4),APC ) ,(TCONS(5),APU ) DATA NAME / 4HGIVE ,4HNS ,4HBEGI ,4HNS /, 1 MGIV / 4HMGIV / ,END / 4HENDS /, 2 ICR1 , ICR2 /301, 302 / C C CALL CONMSG (NAME,4,0) I = 0 KAA = ICORE( 1) MAA = ICORE(I+2) PHIA= ICORE(I+3) DO 50 I = 1,4 50 EIGR(I) = ICORE(I+3) NNV = NV NZ = KORSZ(CORE(1)) IBUF1 = NZ - 3 - SYSBUF IBUF2 = IBUF1 - SYSBUF IX(1) = KAA CALL RDTRL (IX) IF (IX(1) .GT. 0) GO TO 70 WRITE (NOUT,60) SFM,IX,KAA,MAA,PHIA 60 FORMAT (A25,' FROM GIVENS. FILE ERROR, TRAIL =',5I5,2I8, /5X, 1 'KAA,MAA,PHIA = ',3I5) CALL ERRTRC ('GIVENS ',60) 70 AN = IX(2) C C CHECK THE CORE SIZE REQUIREMENT FOR WILVEC/VALVEC BEFORE GOING C BLINDLY INTO EIGENVALUE COMPUTATION AND EVENTUALLY STOP DUE TO C INSUFFICIENT CORE IN THOSE ROUTINES. C PRESENTLY CDC IS USING D.P. IN GIVENS COMPUTATION. IF CDC VERSION C IS MODIFIED TO USE S.P., 19 IN THE FOLLOWING FORMULA SHOULD CHANGE C TO 10. (COMMENT FROM G.CHAN/UNISYS) C N = (9*JPREC+1)*IX(2) + 2*SYSBUF - NZ IF (N .GT. 0) GO TO 120 AZ = NZ - (3*JPREC+1)*IX(2) - 2*SYSBUF AZ = AZ/JPREC AM = SQRT(2.0*AZ) AK = AN - AM AN2 = AN**2 AMB = MB(JPREC) AV = NV ANV = AN*AV AV2 = AV**2 T1 = AMB*AN*(3.0*(AN2+ANV) + AV2) T23 = APU*(10.0*AN2 + 5.0*ANV) T2 = APC*( 5.0*AN2 + 3.0*ANV + AV2) + T23 T3 = 0 IF (AM .LT. AN) T3 = T23+.5*(APC+APU)*AK*(AN2-AK*(AN+.5+AK/3.)+AN) T = (T1+T2+T3)*1.0E-6 N = AN M = AM WRITE (NOUT,100) UIM,T,N,M 100 FORMAT (A29,' 2016, GIVENS TIME ESTIMATE IS ',I8,' SECONDS.', 1 /36X,'PROBLEM SIZE IS',I8,', SPILL WILL OCCUR FOR THIS ', 2 'CORE AT A PROBLEM SIZE OF',I8,2H .) IF (T.GT.2000 .OR. N.GT.1000) WRITE (NOUT,110) UIM 110 FORMAT (A29,', FEER METHOD WOULD BE MORE EFFICIENT FOR PROBLEM ', 1 'OF THIS SIZE',/) CALL TMTOGO (I) IF (I .GE. T) GO TO 200 IP1 =-50 FILE = T GO TO 180 120 WRITE (NOUT,150) UIM,IX(2),IX(2),N 150 FORMAT (A29,' 3008, INSUFFICIENT CORE FOR GIVENS METHOD.', /5X, 1 'MATRIX SIZE IS',I5,3H BY,I5,'. ADDITIONAL CORE OF',I7, 2 ' WORDS IS NEEDED.', /5X,'OR SWITCH TO INVPWR OR FEER ', 3 'METHOD.') CALL MESAGE (-37,0,NAME) 180 CALL MESAGE (IP1,FILE,NAME) C C CHOLESKI DECOMPOSE MAA C 200 IF (OPTION .NE. MGIV) GO TO 250 NOMAT = 2 MCBA(1) = KAA MCBB(1) = MAA CALL RDTRL (MCBA) CALL RDTRL (MCBB) MCBX(1) = ICR1 MCBX(2) = MCBA(2) MCBX(3) = MCBA(3) MCBX(4) = MCBA(4) MCBX(5) = JPREC MCBX(6) = 0 MCBX(7) = 0 DALPHA(1) = 0.0D0 DALPHA(2) = 0.0D0 DBETA(1) = 0.0D0 DBETA(2) = 0.0D0 IF (JPREC .EQ. 2) GO TO 210 SLMDAS = XLMDAS ALPHA(1) = 1.0 BETA(1) = SLMDAS ITYPA = 1 ITYPB = 1 GO TO 220 210 DLMDAS = XLMDAS DALPHA(1) = 1.0D0 DBETA(1) = DLMDAS ITYPA = 2 ITYPB = 2 220 LLCORE = NZ CALL SADD (CORE,CORE) CALL WRTTRL (MCBX) IFILE1 = ICR1 IFILE2 = MAA GO TO 260 250 IFILE1 = MAA IFILE2 = KAA 260 CALL FACTOR (IFILE1,SCR3,-SCR4,SCR5,SCR6,SCR7) C C C IS ON SCR3 C C CHANGE SIGNS OF THE OFF-DIAGONAL TERMS OF C AS SDCOMP HAS THEM C REVERSED. C IP1 = -5 FILE = SCR3 IX(1) = SCR3 CALL RDTRL (IX) IX(5) = JPREC ITP1 = IX(5) ITP2 = ITP1 ITU = ITP1 INCRP = 1 INCRU = 1 NCOL = IX(2) IX(1) = SCR7 IX(2) = 0 IX(6) = 0 IX(7) = 0 CALL GOPEN (SCR3,CORE(IBUF1+1),0) CALL GOPEN (SCR7,CORE(IBUF2+1),1) DO 400 L = 1,NCOL IIU = 1 JJU = NCOL CALL UNPACK (*180,SCR3,CORE) IF (ITU .EQ. 2) GO TO 320 DO 300 K = 1,NCOL CORE(K) = -CORE(K) 300 CONTINUE CORE(L) = -CORE(L) GO TO 350 320 DO 340 K = 1,NCOL DCORE(K) = -DCORE(K) 340 CONTINUE DCORE(L) = -DCORE(L) 350 IIP = IIU JJP = JJU CALL PACK (CORE,SCR7,IX) 400 CONTINUE CALL CLOSE (SCR3,1) CALL CLOSE (SCR7,1) CALL WRTTRL (IX) C C C IS NOW ON SCR7 C C INVERT C C CALL INVERT (SCR7,SCR5,SCR6) C C C INVERSE IS ON SCR5 C C C GET C INVERSE TRANSPOSE ON SCR6 C C CALL TRANP1 (SCR5,SCR6,4,SCR4,SCR3,SCR7,ICR1,0,0,0,0) C GINO UNITS 308, 305, 304, 303, 204, 301 C ARE THESE UNITS AVAILABEL? , 306, 307, 309 C SCR1,SCR2, EMPTY C C TRANP1 SHOULD BE 60 PERCENT FASTER BY ADDING 3 MORE SCRATCH FILES C CALL TRANP1 (SCR5,SCR6,7,SCR4,SCR3,SCR7,ICR1,SCR1,SCR2, 309,0) C C COMPUTE J C CALL SSG2B (IFILE2,SCR6,0,SCR5,0,JPREC,1,SCR4) CALL SSG2B (SCR6 ,SCR5,0,SCR4,1,JPREC,1,SCR3) C C J IS ON SCR4 C C EXTRACT EIGENVALUES C CALL VALVEC C C TRANSFORM C CALL SSG2B (SCR6,SCR5,0,SCR4,0,JPREC,1,SCR7) C C MERGE MODES AND FREE BODY MODES C CALL READ6 (ICR2,SCR4,NFR,PHIA) ICORE(1)= NNV NAME(3) = END CALL CONMSG (NAME,3,0) RETURN END ================================================ FILE: mis/gkad.f ================================================ SUBROUTINE GKAD C C GENERAL K ASSEMBLER DIRECT C C INPUT = 10, USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP C OUTPUT = 8, KDD,BDD,MDD,GMD,GOD,K2DD,M2DD,B2DD C SCRATCHES = 6 C PARAMETERS 3 BCD, 3 REAL, 11 INTERGER C - TYPE,APP,FORM, G,W3,W4, NOK2PP,MOM2PP,NOB2PP,MULTI,SINGLE,OMIT, C NOUE,NOK4GG,NOBGG,NOKMGG,MODACC C C INTEGER TYPE(2),APP(2),FORM(2),IBLOCK(11),BLCK(12),MCB(7), 1 TRAN,FORC,OMIT,BAA,B2PP,B2DD,B1DD,SCR1,SCR2,SCR3, 2 SCR4,SCR5,SCR6,GM,GO,GOD,GMD,BDD,USETD,SINGLE DOUBLE PRECISION BLOCK(5) COMMON /BLANK / TYPE,APP,FORM, G,W3,W4, IK2PP,IM2PP,IB2PP,MULTI, 1 SINGLE,OMIT,NOUE,NOK4GG,NOBGG,NOKMGG,MODACC COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE, 1 UD EQUIVALENCE (IBLOCK(1),BLCK(2)),(BLOCK(1),BLCK(3)) DATA USETD , GM, GO, KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP / 1 101 , 102,103,104,105,106,107, 108, 109, 110 / DATA KDD , BDD,MDD,GMD,GOD,K2DD,M2DD,B2DD / 1 201 , 202,203,204,205,206, 207, 208 / DATA SCR1 , SCR2,SCR3,SCR4,SCR5,SCR6 / 1 301 , 302, 303, 304, 305, 306 / DATA FORC , TRAN,MODAL / 4HFORC,4HTRAN,4HMODA / DATA BLOCK(1),BLOCK(2),BLOCK(4),BLOCK(5),IBLOCK(1),IBLOCK(7) / 1 1.0D0 , 0.0D0, 1.0D0, 0.0D0, 2, 2 / DATA XNUM , MCB / 1.0,7*0 / ,IBLOCK(6) / -1 / C C KDD = 201 BDD = 202 MDD = 203 K2DD = 206 M2DD = 207 B2DD = 208 K1DD = 302 M1DD = 303 B1DD = 304 K41DD = 305 SCR3 = 303 SCR4 = 304 IF (NOUE .GT. 0) GO TO 10 C C NO E-S A = 1DD C K1DD = KAA B1DD = BAA M1DD = MAA K41DD = K4AA 10 IF (TYPE(1) .EQ. TRAN) GO TO 20 C C COMPLEX EIGENVALUE OR FREQUENCY RESPONSE - SET UP FOR FINAL ADD C IF (IB2PP .LT. 0) B1DD = BDD IF (IM2PP .LT. 0) M1DD = MDD GO TO 50 C C TRANSIENT ANALYSIS - SETUP FOR FINAL ADD C 20 IF (IK2PP .LT. 0) K1DD = KDD IF (IM2PP .LT. 0) M1DD = MDD IF (W3 .NE. 0.0) GO TO 30 G = 0.0 W3 = 1.0 30 IF (W4 .NE. 0.0) GO TO 50 W4 = 1.0 XNUM = 0.0 50 IF (APP(1) .NE. FORC) GO TO 60 C C FORCE APPROACH P = D C K2DD = K2PP B2DD = B2PP M2DD = M2PP GO TO 140 C C DISPLACEMENT APPROACH - REDUCE P TO D C C IF MODAL DO NOT MAKE KDD AND BDD C 60 IF (FORM(1) .NE. MODAL) GO TO 70 KDD = 0 K1DD = 0 BDD = 0 B1DD = 0 70 IF (NOUE .LT. 0) GO TO 100 C C BUILD GMD AND GOD C C M-S PRESENT C IF (MULTI .GE. 0) CALL GKAD1A (USETD,GM,GMD,SCR1,UE,UN,UNE) C C 0-S PRESENT C IF (OMIT .GE. 0) CALL GKAD1A (USETD,GO,GOD,SCR1,UE,UA,UD) C 100 IF (MULTI.LT.0 .AND. SINGLE.LT.0 .AND. OMIT .LT.0) GO TO 130 IF (IM2PP.LT.0 .AND. IB2PP .LT.0 .AND. IK2PP.LT.0) GO TO 130 C C REDUCE 2PP-S TO 2DD-S C CALL GKAD1C (GMD,GOD,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,USETD) IF (IK2PP .GE. 0) CALL GKAD1D (K2PP,K2DD) IF (IM2PP .GE. 0) CALL GKAD1D (M2PP,M2DD) IF (IB2PP .GE. 0) CALL GKAD1D (B2PP,B2DD) 130 IF (FORM(1).EQ.MODAL .AND. MODACC.LT.0) GO TO 180 IF (NOUE .LT. 0) GO TO 140 C C EXPAND AA-S TO DD SET C CALL GKAD1B (USETD,KAA,MAA,BAA,K4AA,K1DD,M1DD,B1DD,K41DD,UA,UE, 1 UD,SCR1) 140 IF (TYPE (1) .EQ. TRAN) GO TO 190 C C FREQUENCY RESPONSE OR COMPLEX EIGENVALUE C IF (B1DD.EQ.BDD .OR. NOBGG.LT.0 .OR. FORM(1).EQ.MODAL) GO TO 150 CALL SSG2C (B1DD,B2DD,BDD,1,IBLOCK(1)) 150 IF (M1DD.EQ.MDD .OR. NOKMGG.LT.0) GO TO 160 CALL SSG2C (M1DD,M2DD,MDD,1,IBLOCK(1)) 160 IF (K1DD.EQ.KDD .OR. FORM(1).EQ.MODAL .OR. NOKMGG.LT.0) GO TO 180 IBLOCK(1) = 4 BLOCK(2) = G IF (NOK4GG .LT. 0) SCR4 = KDD C C DETERMINE IF KDD IS REAL OR IMAGINARY (COMPLEX EIGEN) C MCB(1) = K2DD CALL RDTRL (MCB(1)) IF (G.NE.0.0 .OR. NOK4GG.GT.0 .OR. MCB(5).GT.2) GO TO 170 IBLOCK(1) = 2 IBLOCK(7) = 2 170 CALL SSG2C (K1DD,K2DD,SCR4,1,IBLOCK) IF (NOK4GG .LT. 0) GO TO 180 BLOCK(1) = 0.0D0 BLOCK(2) = 1.0D0 CALL SSG2C (K41DD,SCR4,KDD,1,IBLOCK(1)) 180 RETURN C C TRANSIENT ANALYSIS C 190 IBLOCK(1) = 2 IBLOCK(7) = 2 IF (K1DD.EQ.KDD .OR. NOKMGG.LT.0) GO TO 200 CALL SSG2C (K1DD,K2DD,KDD,1,IBLOCK(1)) 200 IF (M1DD.EQ.MDD .OR. NOKMGG.LT.0) GO TO 210 CALL SSG2C (M1DD,M2DD,MDD,1,IBLOCK(1)) 210 IF (B1DD .EQ. BDD) GO TO 180 BLOCK(1) = G/W3 BLOCK(4) = XNUM/W4 IF (G.EQ.0.0 .AND. XNUM.EQ.0.0 .AND. NOBGG.LT.0 .AND. IB2PP.LT.0) 1 GO TO 180 IF (NOBGG.LT.0 .AND. IB2PP.LT.0) SCR3 = BDD CALL SSG2C (K1DD,K41DD,SCR3,1,IBLOCK(1)) IF (SCR3 .EQ. BDD) GO TO 180 BLOCK(1) = 1.0D0 BLOCK(4) = 1.0D0 CALL SSG2C (B1DD,B2DD,SCR5,1,IBLOCK(1)) CALL SSG2C (SCR5,SCR3,BDD, 1,IBLOCK(1)) GO TO 180 END ================================================ FILE: mis/gkad1a.f ================================================ SUBROUTINE GKAD1A (USETD,GO,GOD,SCR1,UE,UA,UD) C C GKAD1A WILL EXPAND GO BY NULL MATRIX TO MAKE GOD, AND C AA-S TO D-S ADDING ZEROS FOR E-S C INTEGER USETD,USET1,GO,GOD,IPV1(7),SCR1,CORE,BAA,B1DD COMMON /PATX / LC,N,NO,N4,USET1 COMMON /ZZZZZZ/ CORE(1) COMMON /PARMEG/ IA(7),IA11(7),IA12(7),IB11(7),IB12(7),NZ,IRULE COMMON /SYSTEM/ IDUM(54),IPREC C C IENT = 0 C C COMPUTE CORE FOR CALCV AND MERGE C 20 LC = KORSZ(CORE) C C BUILD PART VECTOR C USET1 = USETD CALL CALCV (SCR1,UD,UA,UE,CORE(1)) C C SET UP FOR MERGE C NZ = LC IRULE = 0 DO 10 I = 1,7 IA11 (I) = 0 IA (I) = 0 IA12 (I) = 0 IB11 (I) = 0 IB12 (I) = 0 10 CONTINUE IPV1(1) = SCR1 CALL RDTRL (IPV1) IF (IENT .NE. 0) GO TO 30 C C SET UP FOR 2 WAY MERGE C IA11(1) = GO CALL RDTRL (IA11) IA(1) = GOD IA(2) = N+NO+N4 IA(3) = IA11(3) IA(4) = IA11(4) IA(5) = IA11(5) C BUILD NULL COLUMN IN CORE I = 0 CORE( 1) = 0 CORE(I+2) = 1 CORE(I+3) = IA(3) CORE(I+4) = 2 CORE(I+5) = 1 CORE(I+6) = 0 CORE(I+7) = 0 CALL MERGE (IPV1(1),CORE(1),CORE(1)) CALL WRTTRL (IA) 40 RETURN C C ENTRY GKAD1B (USETD,KAA,MAA,BAA,K4AA,K1DD,M1DD,B1DD,K41DD,UA,UE, 1 UD,SCR1) C ================================================================ C IENT = 1 GO TO 20 C C VECTOR MADE, SET UP MCB-S C 30 IA(2) = N+NO+N4 IA(3) = IA(2) IA(4) = 6 IA(5) = IPREC IA11(1) = KAA IA(1) = K1DD IOUT = 1 CALL RDTRL (IA11) IF (IA11(1) .GT. 0) GO TO 35 K1DD = 0 GO TO 31 35 CALL MERGE (IPV1(1),IPV1(1),CORE(1)) CALL WRTTRL (IA) 31 GO TO (32,33,34,40), IOUT 32 IOUT = 2 IA(1) = B1DD IA11(1) = BAA CALL RDTRL (IA11) IF (IA11(1) .GT. 0) GO TO 35 B1DD = 0 GO TO 31 33 IOUT = 3 IA(1) = M1DD IA11(1) = MAA CALL RDTRL (IA11) IF (IA11(1) .GT. 0) GO TO 35 M1DD = 0 GO TO 31 34 IOUT = 4 IA(1) = K41DD IA11(1) = K4AA CALL RDTRL (IA11) IF (IA11(1) .GT. 0) GO TO 35 K41DD = 0 GO TO 31 END ================================================ FILE: mis/gkad1c.f ================================================ SUBROUTINE GKAD1C (XMD,XOD,XCR1,XCR2,XCR3,XCR4,XCR5,XCR6,XSETD) C C GKAD1C SETS UP TO REDUCE STRUCTURAL MODAL C INTEGER XMD,XOD,XCR1,XCR2,XCR3,XCR4,XCR5,XCR6,XSETD, 1 GMD,GOD,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,USETD, 2 OMIT,SINGLE,CHECK,NAME(2) CNV 3 MCB(7),T COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE, 1 UD COMMON /BLANK / TYPE(2),APP(2),MODAL(2),G,W3,W4,IK2PP, 1 IM2PP,IB2PP,MULTI,SINGLE,OMIT,NOUE DATA NAME / 4HGKAD,4H1C / C GMD = XMD GOD = XOD SCR1 = XCR1 SCR2 = XCR2 SCR3 = XCR3 SCR4 = XCR4 SCR5 = XCR5 SCR6 = XCR6 USETD = XSETD CHECK = 123456789 RETURN C C ENTRY GKAD1D (K2PP,K2DD) C ======================== C IF (CHECK .NE. 123456789) CALL MESAGE (-37,0,NAME) C C NAVY'S FIX (MARKED BY CNV) TO FORCE K2NN BE SYMMETRIC IF K2PP IS C SYMMETRIC. A PARAMETER OF -6 IS PASSED TO SSG2B TO FLAG THE FORM C OF THE MATRIX TO BE SYMMETRIC. C ALSO, IN SSG2B, ABOUT LINE 55, ADD FOLLOWING 2 LINES C IF (T1 .EQ. -6) T = 1 C IF (T1 .EQ. -6) FILED(4) = SYMM C C (THE FIX IS NOT ADOPTED HERE. A MORE GENERAL FIX IS ADDED IN SSG2B C WHICH SHOULD TAKE CARE OF THE PROBLEM HERE G.C/UNISYS 3/93) C CNV MCB(1) = K2PP CNV CALL RDTRL (MCB) CNV T = 1 CNV IF (MCB(4) .EQ. 6) T = -6 C K2FF = K2DD IF (MULTI .LT. 0) GO TO 20 IF (OMIT.LT.0 .AND. SINGLE.LT.0) GO TO 10 K2NN = SCR4 IF (SINGLE .LT. 0) K2NN = K2DD GO TO 30 10 K2NN = K2DD GO TO 30 20 K2NN = K2PP 30 IF (SINGLE .GE. 0) GO TO 40 K2FF = K2NN 40 IF (MULTI .LT. 0) GO TO 50 C C MULTI POINT CONSTRAINTS C CALL UPART (USETD,SCR1,UP,UNE,UM) CALL MPART (K2PP,SCR2,SCR3,SCR5,SCR4) CALL SSG2B (SCR4,GMD,SCR3,SCR1,0,2,1,SCR6) CALL SSG2B (SCR5,GMD,SCR2,SCR3,0,2,1,SCR6) C CNV CALL SSG2B (GMD,SCR1,SCR3,K2NN,T,2,1,SCR6) CALL SSG2B (GMD,SCR1,SCR3,K2NN,1,2,1,SCR6) C 50 IF (SINGLE .LT. 0) GO TO 60 CALL UPART (USETD,SCR1,UNE,UFE,US) CALL MPART (K2NN,K2FF,0,0,0) 60 IF (OMIT .LT. 0) GO TO 70 CALL UPART (USETD,SCR1,UFE,UD,UO) CALL MPART (K2FF,SCR2,SCR3,SCR5,SCR4) CALL SSG2B (SCR4,GOD,SCR3,SCR1,0,2,1,SCR6) CALL SSG2B (SCR5,GOD,SCR2,SCR3,0,2,1,SCR6) C CNV CALL SSG2B (GOD,SCR1,SCR3,K2DD,T,2,1,SCR6) CALL SSG2B (GOD,SCR1,SCR3,K2DD,1,2,1,SCR6) C 70 RETURN END ================================================ FILE: mis/gkam.f ================================================ SUBROUTINE GKAM C C ROUTINE TO ASSEMBLE MODAL MATRICES C C INPUTS = 9 C C USETD,PHIA,MI,LAMA,SDT,M2DD,B2DD,K2DD,CASECC C C OUTPUTS = 4 C C MHH,BHH,KHH,PHIDH C C SCRATCHES = 4 C INTEGER USETD,B2DD,SDT,PHIA,PHIDH,BHH,SCR1,SCR2,SCR3, 1 PHIDH1,SYSBUF,CASECC,NAME(2) REAL LFREQ DIMENSION MCB(7),ICORE(2),BLOCK(11),IBLOCK(11) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / NOUE,NLMODE,LFREQ,HFREQ,NOM2DD,NOB2DD,NOK2DD, 1 NONCUP,NMODE,KDAMP COMMON /PACKX / IT1,IT2,II,JJ,INCR COMMON /UNPAKX/ IT3,II1,JJ1,INCR1 COMMON /CONDAS/ PI,TWOPHI,RADEG,DEGRA,S4PISQ COMMON /ZZZZZZ/ CORE(1) COMMON /SYSTEM/ SYSBUF,NOUT C EQUIVALENCE (CORE(1),ICORE(1)),(IBLOCK(1),BLOCK(1)) C DATA NAME / 4HGKAM,4H / DATA IBLOCK(1),IBLOCK(7),BLOCK(2),BLOCK(8) / 1,1,1.0,1.0 / DATA USETD , PHIA,MI, LAMA,SDT,M2DD,B2DD,K2DD/ 1 101 , 102, 103,104, 105,106, 107, 108 / DATA MHH , BHH,KHH,PHIDH/ 1 201 , 202,203,204 / DATA SCR1 , SCR2,SCR3,PHIDH1,CASECC / 1 301 , 302 ,303 ,304 ,109 / C C C PICK UP AND STORE SELECTED MODES, SAVING EIGENVECTORS C LC1 = KORSZ(CORE) NZ = LC1 - SYSBUF ICRQ = 2*SYSBUF - NZ IF (ICRQ .GT. 0) GO TO 220 C C FIND SELECTED SDT INTO CASECC C CALL GOPEN (CASECC,CORE(NZ+1),0) CALL FREAD (CASECC,ICORE,166,1) CALL CLOSE (CASECC,1) I149 = 149 NOSDT = ICORE(I149) C C OPEN LAMA, PHIA, AND PHI0H C CALL GOPEN (LAMA,CORE(NZ+1),0) CALL SKPREC (LAMA,1) NZ = NZ - SYSBUF CALL GOPEN (PHIA,CORE(NZ+1),0) ICORE(1) = PHIA CALL RDTRL (ICORE) NVECT = ICORE(2) NZ = NZ - SYSBUF IF (NOUE .LT. 0) PHIDH1 = PHIDH CALL GOPEN (PHIDH1,CORE(NZ+1),1) MCB(1) = PHIA CALL RDTRL (MCB) MCB(1)= PHIDH1 IT1 = MCB(5) IT2 = IT1 IT3 = IT1 INCR = 1 INCR1 = 1 II = 1 II1 = 1 JJ = MCB(3) JJ1 = JJ MCB(2)= 0 MCB(6)= 0 MCB(7)= 0 ISW = 1 MODES = 1 DO 10 I = 1,NVECT CALL READ (*190,*40,LAMA,CORE(NZ-6),7,0,IFLAG) C C PICK UP FREQUENCY C F = CORE(NZ-2) IF (NLMODE .EQ. 0) GO TO 50 C C ACCEPT LAMA C 20 CORE(MODES) = F*TWOPHI MODES = MODES + 1 CALL UNPACK (*210,PHIA,CORE(MODES)) GO TO 30 C C FREQUENCY RANGE SPECIFICATION C 50 IF (F .GT. HFREQ) GO TO 40 IF (F .GE. LFREQ) GO TO 20 CALL SKPREC (PHIA,1) ISW = ISW + 1 GO TO 10 30 CALL PACK (CORE(MODES),PHIDH1,MCB) IF (NLMODE .EQ. 0) GO TO 10 IF (MODES .GT. NLMODE) GO TO 40 10 CONTINUE C C DONE C 40 CALL CLOSE (LAMA,1) CALL CLOSE (PHIA,1) CALL CLOSE (PHIDH1,1) CALL WRTTRL (MCB) GO TO 60 C C BUILD PHIDH C 60 LHSET = MODES - 1 NMODE = ISW IF (LHSET .LE. 0) GO TO 230 IF (NOUE .LT. 0) GO TO 70 CALL GKAM1B (USETD,SCR1,SCR2,PHIDH,PHIDH1,MODES,CORE,LHSET,NOUE, 1 SCR3) C C FORM H MATRICES C 70 MODES = MODES - 1 C C SAVE MODES ON SCRATCH3 IN CASE DMI WIPES THEM OUT C NZ = LC1 - SYSBUF CALL OPEN (*250,SCR3,CORE(NZ+1),1) CALL WRITE (SCR3,CORE(1),MODES,1) CALL CLOSE (SCR3,1) NONCUP = 1 C C FORM MHH C CALL GKAM1A (MI,PHIDH,SDT,SCR1,SCR2,1,MHH,NO M2DD,CORE(1),MODES, 1 NOSDT,LHSET,M2DD,ISW,SCR3) IF (NOM2DD .LT. 0) GO TO 80 CALL SSG2C (SCR1,SCR2,MHH,1,IBLOCK(1)) 80 CONTINUE C C FORM BHH C IF (NOSDT.EQ.0 .AND. NOB2DD.LT.0) GO TO 90 CALL GKAM1A (MI,PHIDH,SDT,SCR1,SCR2,2,BHH,NOB2DD,CORE(1),MODES, 1 NOSDT,LHSET,B2DD,ISW,SCR3) IF (NOB2DD .LT. 0) GO TO 90 CALL SSG2C (SCR1,SCR2,BHH,1,IBLOCK(1)) 90 CONTINUE C C FORM KHH C CALL GKAM1A (MI,PHIDH,SDT,SCR1,SCR2,3,KHH,NOK2DD,CORE(1),MODES, 1 NOSDT,LHSET,K2DD,ISW,SCR3) IF (NOK2DD .LT. 0) GO TO 100 CALL SSG2C (SCR1,SCR2,KHH,1,IBLOCK(1)) 100 CONTINUE IF (NOB2DD.LT.0 .AND. NOM2DD.LT.0 .AND. NOK2DD.LT.0) NONCUP = -1 RETURN C C ERROR MESAGES C 120 IP1 = -1 130 CALL MESAGE (IP1,IP2,NAME) 190 IP2 = LAMA IP1 = -3 GO TO 130 210 WRITE (NOUT,215) SFM 215 FORMAT (A25,' 2204, UNPACK FOUND NULL COLUMN IN PHIA FILE IN ', 1 'GKAM MODULE.') IP1 = -37 GO TO 130 220 IP1 = -8 FILE = ICRQ GO TO 130 C C NO MODES SELECTED C 230 IP1 = -47 GO TO 130 250 IP2 = SCR3 GO TO 120 END ================================================ FILE: mis/gkam1a.f ================================================ SUBROUTINE GKAM1A (MI,PHIDH,SDT,SCR1,SCR2,IOPT,IOUT,NOPP,W,NW, 1 NOSDT,LHSET,I2DD,IWS,SCR3) C INTEGER PHIDH,SDT,SCR1,SCR2,SYSBUF,MCB(7),SCR3,FILE, 1 NAME(2),IHH(3) DOUBLE PRECISION MD,MC,MA(2),ZERO(2) DIMENSION W(1),ITAB(2),ITABT(13) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ KSYSTM(65) COMMON /BLANK / XX(9), KDAMP COMMON /CONDAS/ PI,TWOPHI,RADEG,DEGRA,S4PISQ COMMON /PACKX / IT1,IT2,II,JJ,INCR COMMON /UNPAKX/ IT11,III,JJJ,INCR1 EQUIVALENCE (KSYSTM(1),SYSBUF), (KSYSTM(2),NOUT), 1 (KSYSTM(55),IPREC), (MD,MA(1)), (MC,MA(2)) DATA ZERO / 0.0D0,0.0D0 / DATA NAME / 4HGKAM,4H1A / DATA IHH / 4HMHH ,4HBHH ,4HKHH / DATA G / 0.0 / DATA ITABT , ITAB(1) / 4,15,21,1,25,22,2,35,23,3,45,24,4,0 / C C MC = 0.0 IF (NOPP .LT. 0) GO TO 10 C C COMPUTE PHIDH(T)*I2DD*PHIDH ONTO SCR2 C CALL SSG2B (I2DD,PHIDH,0,SCR1,0,2,1,IOUT) CALL SSG2B (PHIDH,SCR1,0,SCR2,1,2,1,IOUT) MCB(1) = I2DD CALL RDTRL (MCB) IF (MCB(4) .NE. 6) GO TO 11 MCB(1) = SCR2 CALL RDTRL (MCB) MCB(4) = 6 CALL WRTTRL (MCB) 11 CONTINUE MII = SCR1 10 IF (NOPP .LT. 0) MII = IOUT C C BUILD MII DATA BLOCK = MIXF(W) C LC = KORSZ(W(NW+1)) NZ = LC - SYSBUF C C RESTORE MODES C FILE = SCR3 C CALL OPEN (*130,SCR3,W(NZ+1),0) CALL FREAD (SCR3,W,NW,1) CALL CLOSE (SCR3,1) FILE = MI CALL OPEN (*170,MI,W(NZ+1),0) IMI = 0 CALL SKPREC (MI,IWS) 21 CONTINUE NZ = NZ - SYSBUF IBUF = NZ - SYSBUF ICRQ = -IBUF IF (ICRQ .GT. 0) GO TO 150 CALL GOPEN (MII,W(NZ+1),1) CALL MAKMCB (MCB,MII,LHSET,6,IPREC) IF (KDAMP .EQ. 1) MCB(5) = MCB(5) + 2 C C SET UP FOR PACK AND UNPACK C IT1 = 2 IF (KDAMP .EQ. 1) IT1 = 4 IT2 = MCB(5) INCR = 1 IT11 = 2 INCR1= 1 DO 90 I = 1,NW MC = 0.0 K = IWS + I - 1 II = I JJ = I III = K JJJ = K IF (IMI .NE. 0) GO TO 85 CALL UNPACK (*160,MI,MD) 22 CONTINUE GO TO (30,50,40), IOPT C C BUILDING MHH C 30 CALL PACK (MD,MII,MCB) GO TO 90 C C BUILDING KHH C 40 MD = MD*W(I)*W(I) IF (KDAMP .NE. 1) GO TO 30 ASSIGN 45 TO IRET IF (NOSDT .GT. 0) GO TO 70 45 MC = G*MD GO TO 30 C C BUILDING BHH C 50 CONTINUE IF (KDAMP .EQ. 1) GO TO 61 ASSIGN 60 TO IRET IF (NOSDT .GT. 0) GO TO 70 60 MD = MD*W(I)*G GO TO 30 61 MD = 0.0 GO TO 30 C C LOOK UP G(W) IN SDT C 70 IF (ITAB(1) .GT. 0) GO TO 80 ITAB(1) = 1 ITAB(2) = NOSDT CALL PRETAB (SDT,W(NW+1),W(NW+1),W(IBUF),IBUF-1,IZ,ITAB(1),ITABT) 80 CALL TAB (ITAB(2),W(I)/TWOPHI,G) GO TO IRET, (60,45) C C PICK UP MODAL MASS FROM LAMA C 85 CALL FREAD (MI+1,0,-5,0) CALL FREAD (MI+1,XMASS,1,0) CALL FREAD (MI+1,0,-1,0) MD = XMASS GO TO 22 C C ADD INTERPOLATION HERE C 90 CONTINUE CALL CLOSE (MI ,1) CALL CLOSE (MI+1,1) NE = LHSET - NW IF (NE .LE. 0) GO TO 110 DO 100 I = 1,NE CALL PACK (ZERO,MII,MCB) 100 CONTINUE 110 CALL WRTTRL (MCB) CALL CLOSE (MII,1) RETURN C C ERROR MESAGES C 130 IP1 = -1 140 CALL MESAGE (IP1,FILE,NAME) RETURN 150 IP1 = -8 FILE = ICRQ GO TO 140 160 WRITE (NOUT,9001) SFM,IHH(IOPT) 9001 FORMAT (A25,' 2203, NULL COLUMN FOUND IN MI FILE DURING ASSEMBLY', 1 ' OF ',A4,' MATRIX BY GKAM MODULE.') IP1 = -37 GO TO 140 C C USE LAMA RATHER THAN MI C 170 CONTINUE CALL GOPEN (MI+1,W(NZ+1),0) CALL SKPREC (MI+1,1) CALL FREAD (MI+1,MCB,-7*(IWS-1),0) IMI = 1 GO TO 21 END ================================================ FILE: mis/gkam1b.f ================================================ SUBROUTINE GKAM1B(USETD,SCR1,SCR2,PHIDH,PHIDH1,MODES,CORE, 1 LHSET,NOUE,SCR3) C INTEGER USET,USETD,PHIDH,PHIDH1,SCR1,SCR2 INTEGER MCB(7),SYSBUF,CORE INTEGER SCR3 DIMENSION CORE(1) C COMMON /SYSTEM/ SYSBUF COMMON /PATX/LC,N1,N2,N3,USET COMMON /BITPOS/UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE, 1UD COMMON /ZBLPKX/A(4),II COMMON /PARMEG/ IA(7),IA11(7),IA12(7),IA21(7),IA22(7),LCORE,IRULE C C ---------------------------------------------------------------------- C LHSET =LHSET + NOUE C C BUILD MERGE VECTOR C USET = USETD LC = KORSZ(CORE(MODES)) LCORE = LC CALL CALCV(SCR1,UD,UA,UE,CORE(MODES)) C C BUILD EXE IDENTY MATRIX C NZ = LC-SYSBUF CALL GOPEN(SCR2,CORE(NZ+1),1) CALL MAKMCB(MCB,SCR2,NOUE,6,1) A(1) = 1.0 DO 10 I=1,NOUE CALL BLDPK(1,1,SCR2,0,0) II = I CALL ZBLPKI CALL BLDPKN(SCR2,0,MCB) 10 CONTINUE CALL CLOSE(SCR2, 1) CALL WRTTRL ( MCB ) C C SET UP FOR MERGE C IRULE =0 IA22(1)= SCR2 CALL RDTRL(IA22) IA(1) = PHIDH IA(2)= LHSET IA(3) = N1+N2+N3 IA(4) = 2 IA(5) = 1 IA21 (1) = 0 IA12 (1) = 0 IA11 (1) = PHIDH1 CALL MAKMCB(CORE(MODES),SCR3,LHSET,2,1) CALL RDTRL (IA11) C C BUILD VECTOR IN CORE C CALL GOPEN(SCR3,CORE(NZ+1),1) CALL BLDPK(1,1,SCR3,0,0) II = MODES -1 DO 20 I=1,NOUE II = II+1 CALL ZBLPKI 20 CONTINUE CALL BLDPKN( SCR3, 0, CORE(MODES) ) CALL CLOSE(SCR3,1) CALL WRTTRL(CORE(MODES)) CALL MERGE(SCR3,SCR1,CORE(MODES)) CALL WRTTRL( IA ) RETURN END ================================================ FILE: mis/gmmatc.f ================================================ SUBROUTINE GMMATC( A,ROWA,COLA,MTA, B, ROWB,COLB,NTB, C ) C***** C GMMATC - G E N E R A L M A T R I X M U L T I P L Y C A N D C T R A N S P O S E C S I N G L E P R E C I S I O N V E R S I O N C COMPLEX VERSION C C PERFORMS WHEN C A * B = C MTA=0 NTB= 0 C A * B TRANSPOSE = C 0 1 C A TRANSPOSE * B = C 1 0 C A TRANSPOSE * B TRANSPOSE = C 1 1 C***** C A - IS A MATRIX (ROWA) ROWS BY (COLA) COLUMNS C B - IS A MATRIX (ROWB) ROWS BY (COLB) COLUMNS C A,B AND C ARE STORED BY ROWS (EXAMPLE) C MATRIX STORED C A= 1 2 A= 1 C 3 4 2 C 5 6 3 C 4 C 5 C 6 C***** C C C IF MTA .LT. 0, C IS NOT ZEROED OUT. HENCE THE ROUTINE, IN THIS C CASE, COMPUTES A * B + D = C WHERE THE MATRIX D HAS BEEN C STORED ROW-WISE AT C BY THE CALLING PROGRAM. IF MTA = -1, A C IS TRANSPOSED. IF MTA = -2, A IS NOT TRANSPOSED. NTB IS C DEFINED AS ABOVE AND IS INDEPENDENT OF MTA. C C INTEGER ROWA,COLA, ROWB,COLB C C C INTEGER IPARM(2) COMPLEX A(1),B(1),C(1) C C C NTA = IABS(MTA) IF (MTA .EQ. (-2)) NTA = 0 IF ( NTA .NE. 0 ) GO TO 10 C C A IS NOT TRANSPOSED C NROWA = ROWA NCOLA = COLA INCRIK = 1 IKN = COLA INCIK1 = COLA GO TO 20 C C A IS TRANSPOSED C 10 NROWA = COLA NCOLA = ROWA INCRIK = COLA IKN = ( ROWA-1 )*COLA + 1 INCIK1 = 1 20 IF( NTB .NE. 0 ) GO TO 30 C C B IS NOT TRANSPOSED C NROWB = ROWB NCOLB = COLB INCRKJ = COLB INCKJ1 = 1 GO TO 40 C C B IS TRANSPOSED C 30 NROWB = COLB NCOLB = ROWB INCRKJ = 1 INCKJ1 = COLB C C CHECK CONSISTANT DIMENSIONS AND ZERO C IF NO D MATRIX C 40 IF( NCOLA .NE. NROWB ) GO TO 80 IF( MTA .LT. 0 ) GO TO 50 NTERMS = NROWA*NCOLB DO 42 I=1,NTERMS C(I) = 0 42 CONTINUE C C PERFORM MATRIX MULTIPLICATION C 50 IJ1 = 1 IJN = NCOLB IK1 = 1 DO 58 I=1,NROWA KJ1 = 1 DO 56 IJ =IJ1,IJN KJ = KJ1 DO 54 IK=IK1,IKN,INCRIK C(IJ) = C(IJ) + A(IK)*B(KJ) KJ = KJ + INCRKJ 54 CONTINUE KJ1 = KJ1 + INCKJ1 56 CONTINUE IJ1 = IJN + 1 IJN = IJN + NCOLB IK1 = IK1 + INCIK1 IKN = IKN + INCIK1 58 CONTINUE RETURN 80 IPARM(1) = NTA IPARM(2) = NTB CALL MESAGE (-30,21,IPARM(1)) RETURN END ================================================ FILE: mis/gmmatd.f ================================================ SUBROUTINE GMMATD (A,IROWA,ICOLA,MTA, B,IROWB,ICOLB,NTB, C) C***** C GMMATD - G E N E R A L M A T R I X M U L T I P L Y C A N D C T R A N S P O S E C D O U B L E P R E C I S I O N V E R S I O N C C PERFORMS WHEN C A * B = C MTA=0 NTB= 0 C A * B TRANSPOSE = C 0 1 C A TRANSPOSE * B = C 1 0 C A TRANSPOSE * B TRANSPOSE = C 1 1 C***** C A - IS A MATRIX (ROWA) ROWS BY (COLA) COLUMNS C B - IS A MATRIX (ROWB) ROWS BY (COLB) COLUMNS C A,B AND C ARE STORED BY ROWS (EXAMPLE) C MATRIX STORED C A= 1 2 A= 1 C 3 4 2 C 5 6 3 C 4 C 5 C 6 C***** C***** C C C IF MTA .LT. 0, C IS NOT ZEROED OUT. HENCE THE ROUTINE, IN THIS C CASE, COMPUTES A * B + D = C WHERE THE MATRIX D HAS BEEN C STORED ROW-WISE AT C BY THE CALLING PROGRAM. IF MTA = -1, A C IS TRANSPOSED. IF MTA = -2, A IS NOT TRANSPOSED. NTB IS C DEFINED AS ABOVE AND IS INDEPENDENT OF MTA. C C INTEGER ROWA,COLA, ROWB,COLB C C C DOUBLE PRECISION A(1), B(1), C(1) C C C DIMENSION IPARM(2) C C C ROWA = IROWA COLA = ICOLA ROWB = IROWB COLB = ICOLB NTA = IABS(MTA) IF (MTA .EQ. (-2)) NTA = 0 IF (NTA .EQ. 0 .AND. NTB .EQ. 0) IF (COLA - ROWB) 80,5,80 IF (NTA .EQ. 1 .AND. NTB .EQ. 0) IF (ROWA - ROWB) 80,5,80 IF (NTA .EQ. 0 .AND. NTB .EQ. 1) IF (COLA - COLB) 80,5,80 IF (NTA .EQ. 1 .AND. NTB .EQ. 1) IF (ROWA - COLB) 80,5,80 5 IF (NTA .EQ. 1) GO TO 10 ILIM= ROWA KLIM= COLA INCI= COLA INCKA= 1 GO TO 20 10 ILIM= COLA KLIM= ROWA INCI= 1 INCKA= COLA 20 IF(NTB.EQ.1) GO TO 30 JLIM= COLB INCJ= 1 INCKB= COLB GO TO 40 30 JLIM= ROWB INCJ= COLB INCKB= 1 40 IF (MTA .LT. 0) GO TO 47 LIM = ILIM * JLIM DO 45 I = 1,LIM 45 C(I) = 0.0D0 47 IJ = 0 I = 0 50 I = I + 1 IFIX=I*INCI-COLA J = 0 60 J = J + 1 IJ=IJ+1 IA=IFIX JB=J*INCJ-COLB K = 0 70 K = K + 1 IA=IA+INCKA JB=JB+INCKB C(IJ)=C(IJ)+ A(IA) * B(JB) IF (K .LT. KLIM) GO TO 70 IF (J .LT. JLIM) GO TO 60 IF (I .LT. ILIM) GO TO 50 RETURN 80 IPARM(1) = NTA IPARM(2) = NTB CALL MESAGE (-30,21,IPARM) RETURN END ================================================ FILE: mis/gmmats.f ================================================ SUBROUTINE GMMATS (A,IROWA,ICOLA,MTA, B,IROWB,ICOLB,NTB, C) C***** C GMMATS - G E N E R A L M A T R I X M U L T I P L Y C A N D C T R A N S P O S E C S I N G L E P R E C I S I O N V E R S I O N C C PERFORMS WHEN C A * B = C MTA=0 NTB= 0 C A * B TRANSPOSE = C 0 1 C A TRANSPOSE * B = C 1 0 C A TRANSPOSE * B TRANSPOSE = C 1 1 C***** C A - IS A MATRIX (ROWA) ROWS BY (COLA) COLUMNS C B - IS A MATRIX (ROWB) ROWS BY (COLB) COLUMNS C A,B AND C ARE STORED BY ROWS (EXAMPLE) C MATRIX STORED C A= 1 2 A= 1 C 3 4 2 C 5 6 3 C 4 C 5 C 6 C***** C***** C C C IF MTA .LT. 0, C IS NOT ZEROED OUT. HENCE THE ROUTINE, IN THIS C CASE, COMPUTES A * B + D = C WHERE THE MATRIX D HAS BEEN C STORED ROW-WISE AT C BY THE CALLING PROGRAM. IF MTA = -1, A C IS TRANSPOSED. IF MTA = -2, A IS NOT TRANSPOSED. NTB IS C DEFINED AS ABOVE AND IS INDEPENDENT OF MTA. C C INTEGER ROWA,COLA, ROWB,COLB C C C DIMENSION A(1),B(1),C(1),IPARM(2) C C C ROWA = IROWA COLA = ICOLA ROWB = IROWB COLB = ICOLB NTA = IABS(MTA) IF (MTA .EQ. (-2)) NTA = 0 IF (NTA .EQ. 0 .AND. NTB .EQ. 0) IF (COLA - ROWB) 80,5,80 IF (NTA .EQ. 1 .AND. NTB .EQ. 0) IF (ROWA - ROWB) 80,5,80 IF (NTA .EQ. 0 .AND. NTB .EQ. 1) IF (COLA - COLB) 80,5,80 IF (NTA .EQ. 1 .AND. NTB .EQ. 1) IF (ROWA - COLB) 80,5,80 5 IF (NTA .EQ. 1) GO TO 10 ILIM= ROWA KLIM= COLA INCI= COLA INCKA= 1 GO TO 20 10 ILIM= COLA KLIM= ROWA INCI= 1 INCKA= COLA 20 IF(NTB.EQ.1) GO TO 30 JLIM= COLB INCJ= 1 INCKB= COLB GO TO 40 30 JLIM= ROWB INCJ= COLB INCKB= 1 40 IF (MTA .LT. 0) GO TO 47 LIM = ILIM * JLIM DO 45 I = 1,LIM 45 C(I) = 0.0 47 IJ = 0 I = 0 50 I = I + 1 IFIX=I*INCI-COLA J = 0 60 J = J + 1 IJ=IJ+1 IA=IFIX JB=J*INCJ-COLB K = 0 70 K = K + 1 IA=IA+INCKA JB=JB+INCKB C(IJ)=C(IJ)+ A(IA) * B(JB) IF (K .LT. KLIM) GO TO 70 IF (J .LT. JLIM) GO TO 60 IF (I .LT. ILIM) GO TO 50 RETURN 80 IPARM(1) = NTA IPARM(2) = NTB CALL MESAGE (-30,21,IPARM(1)) RETURN END ================================================ FILE: mis/gmmerg.f ================================================ SUBROUTINE GMMERG(FILEA,FILE11,FILE21,FILE12,FILE22,RPART,CPART, 1 NSUB,MRGTYP,CORE,LCORE) C C GENERAL MATRIX MERGE ROUTINE C C C -- -- C I I I C I FILE11 I FILE12 I -- -- C I I I I I C I-----------------I = I FILEA I C I I I I I C I FILE21 I FILE22 I -- -- C I I I C -- -- C C WHERE C C RPART - ROW PARTITIONING VECTOR C NSUB(1) - NUMBER OF COLUMNS IN RPART 0 SUBSET C NSUB(2) - NUMBER OF COLUMNS IN RPART 1 SUBSET C NSUB(3) - NUMBER OF ROWS IN CPART 0 SUBSET C NSUB(4) - NUMBER OF ROWS IN CPART 1 SUBSET C MRGTYP - MERGE TYPE (1 .EQ. SQUARE, 2 .EQ. RECTANGULAR) C CPART - COLUMN PARTITION VECTOR C C INTEGER FILEA ,FILE11 ,FILE12 ,FILE21 ,FILE22 1 ,RPART ,CPART ,RULE ,CORE(6) ,NAME(2) 2 ,RP(7) ,CP(7) C COMMON / PARMEG / IA(7) ,IA11(7) ,IA21(7) ,IA12(7) 1 ,IA22(7) ,LCR ,RULE C DIMENSION NSUB(4) C DATA NAME / 4HGMME , 4HRG / C C*********************************************************************** C C GET TRAILERS FOR INPUTS C RP(1) = RPART IF(RPART .NE. 0) CALL RDTRL(RP) CP(1) = CPART IF(CPART .NE. 0) CALL RDTRL(CP) C DO 10 I=2,7 IA(I) = 0 IA11(I) = 0 IA12(I) = 0 IA21(I) = 0 10 IA22(I) = 0 C IA11(1) = FILE11 IF(FILE11 .NE. 0) CALL RDTRL(IA11) IF(IA11(1) .LT. 0) IA11(1) = 0 IA12(1) = FILE12 IF(FILE12 .NE. 0) CALL RDTRL(IA12) IF(IA12(1) .LT. 0) IA12(1) = 0 IA21(1) = FILE21 IF(FILE21 .NE. 0) CALL RDTRL(IA21) IF(IA21(1) .LT. 0) IA21(1) = 0 IA22(1) = FILE22 IF(FILE22 .NE. 0) CALL RDTRL(IA22) IF(IA22(1) .LT. 0) IA22(1) = 0 C C SET UP MATRIX CONTROL BLOCK FOR OUTPUT C IA(1) = FILEA IA(4) = MRGTYP IA(5) = MAX0(IA11(5),IA12(5),IA21(5),IA22(5)) C C SET UP DUMMY PARTITION VECTOR C CORE(1) = 0 CORE(2) = 1 CORE(3) = IA(2) CORE(4) = 2 CORE(5) = 1 CORE(6) = 0 LCR = LCORE RULE = 0 C IF(RPART .EQ. 0) GO TO 30 IF(CPART .EQ. 0) GO TO 20 C C FULL MERGE C IA(2) = NSUB(1) + NSUB(2) IA(3) = NSUB(3) + NSUB(4) CALL MERGE(RP,CP,CORE) GO TO 40 C C * * MERGE COLUMNS ONLY C 20 IA(2) = NSUB(1) + NSUB(2) IA(3) = MAX0(IA11(3),IA12(3)) CALL MERGE(RP,CORE,CORE) GO TO 40 C C * * MERGE ROWS ONLY C 30 IF(CPART .EQ. 0) GO TO 1007 IA(2) = MAX0(IA11(2),IA21(2)) IA(3) = NSUB(3) + NSUB(4) CALL MERGE(CORE,CP,CORE) C C WRITE TRIALER FOR OUTPUT C 40 CALL WRTTRL(IA) C RETURN C C ILLEGAL INPUT - NO PARTITION VECTOR C 1007 CALL MESAGE(-7,0,NAME) RETURN END ================================================ FILE: mis/gmprtn.f ================================================ SUBROUTINE GMPRTN(FILEA,FILE11,FILE21,FILE12,FILE22,RPART,CPART, 1 NSUB0,NSUB1,CORE,LCORE) C C GENERAL MATRIX PARTION ROUTINE C C C -- -- C I I I C -- -- I FILE11 I FILE12 I C I I I I I C I FILEA I = I-----------------I C I I I I I C -- -- I FILE21 I FILE22 I C I I I C -- -- C C WHERE C C RPART - ROW PARTITIONING VECTOR C CPART - COLUMN PARTITION VECTOR C INTEGER FILEA ,FILE11 ,FILE12 ,FILE21 ,FILE22 1 ,RPART ,CPART ,RULE ,CORE(6) ,NAME(2) 2 ,RP(7) ,CP(7) C COMMON / PARMEG / IA(7) ,IA11(7) ,IA21(7) ,IA12(7) 1 ,IA22(7) ,LCR ,RULE C DATA NAME / 4HGMPR , 4HTN / C C*********************************************************************** C C GET TRAILERS FOR INPUTS C RP(1) = RPART IF(RPART .NE. 0) CALL RDTRL(RP) CP(1) = CPART IF(CPART .NE. 0) CALL RDTRL(CP) IA(1) = FILEA CALL RDTRL(IA) C C SET UP MATRIX CONTROL BLOCKS FOR OUTPUTS C IA11(1) = FILE11 IA12(1) = FILE12 IA21(1) = FILE21 IA22(1) = FILE22 C DO 10 I=2,5 IA11(I) = IA(I) IA12(I) = IA(I) IA21(I) = IA(I) 10 IA22(I) = IA(I) C C SET UP DUMMY PARTITION VECTOR C CORE(1) = 0 CORE(2) = 1 CORE(3) = IA(2) CORE(4) = 2 CORE(5) = 1 CORE(6) = 0 C RULE = 0 LCR = LCORE C IF(RPART .EQ. 0) GO TO 30 IF(CPART .EQ. 0) GO TO 20 C C FULL PARTITION C IA11(3) = NSUB0 IA12(3) = NSUB0 IA21(3) = NSUB1 IA22(3) = NSUB1 CALL PARTN(RP,CP,CORE) GO TO 40 C C * * PARTITION COLUMNS ONLY C 20 CALL PARTN(RP,CORE,CORE) GO TO 40 C C * * PARTITION ROWS ONLY C 30 IF(CPART .EQ. 0) GO TO 1007 IA11(3) = NSUB0 IA12(3) = NSUB0 IA21(3) = NSUB1 IA22(3) = NSUB1 CALL PARTN(CORE,CP,CORE) C C WRITE TRAILERS FOR OUTPUTS C 40 IF(IA11(1) .NE. 0) CALL WRTTRL(IA11) IF(IA12(1) .NE. 0) CALL WRTTRL(IA12) IF(IA21(1) .NE. 0) CALL WRTTRL(IA21) IF(IA22(1) .NE. 0) CALL WRTTRL(IA22) C RETURN C C ILLEGAL INPUT - NO PARTITION VECTOR C 1007 CALL MESAGE(-7,0,NAME) RETURN END ================================================ FILE: mis/gnfist.f ================================================ SUBROUTINE GNFIST (FILENM,FISTNM,MODNO) C EXTERNAL ANDF INTEGER ANDF,FIAT,FILENM(2),FIST,FISTNM,FISTX,OSCAR COMMON /XFIST / FIST(2) COMMON /XFIAT / FIAT(3) COMMON /XDPL / IDPL(3) COMMON /OSCENT/ OSCAR(7) COMMON /IPURGE/ IPVAL(5) COMMON /ISOSGN/ ISVAL(34) COMMON /IXSFA / IXVAL(5) COMMON /SYSTEM/ SKIP(23),ICFIAT DATA MASK1 / 65535 /, MASK / 32767 / C MASK1 = O177777 MASK = O77777 C DO 1 K = 1,5 IPVAL(K) = 0 IXVAL(K) = 0 1 CONTINUE DO 2 K = 5,34 ISVAL(K) = 0 2 CONTINUE C ISVAL(1) = 3 ISVAL(2) = 3 ISVAL(3) = 1 ISVAL(4) = 2 C IXVAL(3) = 10 C IF (FILENM(1).EQ.0 .AND. FILENM(2).EQ.0) RETURN C C SEARCH FIAT FOR MATCHING FILE C LFIAT = FIAT(3) K = 5 DO 10 J = 1,LFIAT IF (FILENM(1).EQ.FIAT(K) .AND. FILENM(2).EQ.FIAT(K+1)) GO TO 30 10 K = K + ICFIAT C C FILE NOT IN FIAT - IF INPUT FILE ASSUME PURGED C IF (FISTNM.GT.100 .AND. FISTNM.LT.200) GO TO 40 C C MUST CALL IN FILE ALLOCATOR C 20 CALL XSFA (MODNO) MODNO = -MODNO RETURN C C IF FILE POINTER = 77777 NO ENTRY IS MADE IN FIST C 30 IF (ANDF(FIAT(K-1),MASK) .EQ. MASK) RETURN IF (FISTNM.LE.100 .OR. FISTNM.GE.300) GO TO 170 IF (FISTNM .GE. 200) GO TO 120 C C C INPUT FILE C ========== C C SEE IF IT EXISTS C IF (FIAT(K+2).NE.0 .OR. FIAT(K+3).NE.0 .OR. FIAT(K+4).NE.0) 1 GO TO 170 IF (ICFIAT.EQ.11 .AND. (FIAT(K+7).NE.0 .OR. FIAT(K+8).NE.0 .OR. 1 FIAT(K+9).NE.0)) GO TO 170 C C INPUT FILE NOT GENERATED ACCORDING TO FIAT - CHECK DPL C 40 I1 = OSCAR(7)*3 + 5 J1 = IDPL(3) *3 + 1 L = FIAT(3) *ICFIAT - 2 DO 50 J = 4,J1,3 IF (IDPL(J).EQ.FILENM(1) .AND. IDPL(J+1).EQ.FILENM(2)) GO TO 60 50 CONTINUE RETURN C C FILE IN DPL - ZERO FIAT ENTRY SO FILE ALLOCATOR WILL UNPOOL IT. C DO THIS FOR OTHER LIKE I/P FILES IN OSCAR ENTRY. C 60 DO 110 I = 8,I1,3 IF (OSCAR(I) .EQ. 0) GO TO 110 C C SEARCH FIAT C DO 70 K = 4,L,ICFIAT IF (OSCAR(I).EQ.FIAT(K+1) .AND. OSCAR(I+1).EQ.FIAT(K+2)) GO TO 80 70 CONTINUE C C FILE NOT IN FIAT - CHECK NEXT INPUT FILE C GO TO 110 C C FILE IN FIAT - CHECK DPL IF FIAT TRAILER IS ZERO C 80 IF (FIAT(K+3).NE.0 .OR. FIAT(K+4).NE.0 .OR. FIAT(K+5).NE.0 .OR. 1 ANDF(MASK,FIAT(K)).EQ.MASK) GO TO 110 IF (ICFIAT.EQ.11 .AND. (FIAT(K+8).NE.0 .OR. FIAT(K+9).NE.0 .OR. 1 FIAT(K+10).NE.0)) GO TO 110 DO 90 J = 4,J1,3 IF (IDPL(J).EQ.FIAT(K+1) .AND. IDPL(J+1).EQ.FIAT(K+2)) GO TO 100 90 CONTINUE GO TO 110 C C FILE IS IN DPL - ZERO OUT FIAT ENTRY C 100 FIAT(K) = ANDF(MASK1,FIAT(K)) IF (ANDF(MASK,FIAT(K)) .EQ. MASK) FIAT(K) = 0 FIAT(K+1) = 0 FIAT(K+2) = 0 110 CONTINUE C C CALL FILE ALLOCATOR AND UNPOOL FILES C GO TO 20 C C C OUTPUT FILE C =========== C C SEARCH DPL FOR FILE NAME C 120 J1 = IDPL(3)*3 + 1 DO 130 M = 4,J1,3 IF (IDPL(M).EQ.FILENM(1) .AND. IDPL(M+1).EQ.FILENM(2)) GO TO 140 130 CONTINUE GO TO 170 C C FILE NAME IS IN DPL - PURGE IT AND ALL EQUIV FILE FROM DPL C 140 IDPL(M ) = 0 IDPL(M+1) = 0 L = IDPL(M+2) DO 150 J = 4,J1,3 IF (J.EQ.M .OR. L.NE.IDPL(J+2)) GO TO 150 IDPL(J ) = 0 IDPL(J+1) = 0 IDPL(J+2) = 0 150 CONTINUE C C IF THIS IS LAST FILE ON POOL TAPE, DECREASE FILE COUNT IN DPL C IF (ANDF(L,MASK) .NE. IDPL(1)-1) GO TO 160 IDPL( 1) = IDPL(1) - 1 IDPL(M+2) = 0 C C IF DELETED FILES ARE AT END OF DPL, DECREMENT ENTRY COUNT C 160 IF (IDPL(J1).NE.0 .OR. IDPL(J1+1).NE.0 .OR. IDPL(J1+2).NE.0) 1 GO TO 170 IDPL(3) = IDPL(3) - 1 J1 = IDPL(3)*3 + 1 GO TO 160 C C CHECK FOR FIST TABLE OVERFLOW C 170 IF (FIST(1) .LE. FIST(2)) CALL MESAGE (-20,IABS(MODNO),FILENM) FIST(2) = FIST(2) + 1 FISTX = FIST(2)*2 + 1 FIST(FISTX ) = FISTNM FIST(FISTX+1) = K - 2 IF (FISTNM .LT. 300) RETURN C C ZERO TRAILER FOR SCRATCH FILE C FIAT(K+2) = 0 FIAT(K+3) = 0 FIAT(K+4) = 0 IF (ICFIAT .EQ. 8) GO TO 180 FIAT(K+7) = 0 FIAT(K+8) = 0 FIAT(K+9) = 0 180 RETURN END ================================================ FILE: mis/go.f ================================================ FUNCTION GO ( R , ETAR , ETAL , EKM ) C DIMENSION AS(2) , C(2) , S(2) , S0(2) DIMENSION BSL(23) C DBSLJ = 1.0E-10 S(1) = ETAR S(2) = ETAL DO 400 I = 1 , 2 IF ( ABS ( S(I) ) .GE. R ) GO TO 200 S(I) = S(I) / R C(I) = SQRT ( 1.0 - S(I) ** 2 ) AS(I) = 2.0 * ATAN ( S(I) / ( 1.0 + C(I) ) ) S(I) = 2.0 * S(I) * C(I) C(I) = 2.0 * C(I) ** 2 - 1.0 GO TO 300 C 200 AS(I) = SIGN ( 1.570796 , S(I) ) S(I) = 0.0 C 300 S0(I) = 0.0 400 CONTINUE C GO = AS(1) - AS(2) IF ( ABS ( GO ) .LE. DBSLJ ) GO TO 700 C ARG = EKM * R IF ( ARG .EQ. 0.0 ) RETURN CALL MBBSLJ(ARG,N,BSL) C GO = BSL(1) * GO F = 1.0 FI = 1.0 DO 600 J = 2 , N GO = BSL(J) * ( S(1) - S(2) ) / FI - GO C DO 500 I = 1 , 2 S4 = 2.0 * S(I) * C(I) - S0(I) S0(I) = S(I) S(I) = S4 500 CONTINUE C F = -F FI = FI + 1.0 600 CONTINUE C IF ( F .LT. 0.0 ) GO = -GO RETURN C 700 GO = 0.0 RETURN END ================================================ FILE: mis/gopen.f ================================================ SUBROUTINE GOPEN (FILE,BUFFER,OPTION) C INTEGER FILE,OPTION,ERR,OUTREW,OUTNOR REAL BUFFER(1),SUBNAM(2),HEADER(2) DATA SUBNAM / 4H GOP,4HEN / DATA OUTREW,INPNOR,OUTNOR / 1,2,3 / C CALL OPEN (*200,FILE,BUFFER,OPTION) IF (OPTION.EQ.INPNOR .OR. OPTION.EQ.OUTNOR) GO TO 150 IF (OPTION.EQ.OUTREW) GO TO 110 CALL READ (*201,*202,FILE,HEADER,2,1,ERR) GO TO 150 110 CALL FNAME (FILE,HEADER) CALL WRITE (FILE,HEADER,2,1) 150 RETURN C 200 ERR = -1 GO TO 210 201 ERR = -2 GO TO 210 202 ERR = -3 210 CALL MESAGE (ERR,FILE,SUBNAM) C RETURN END ================================================ FILE: mis/gp1.f ================================================ SUBROUTINE GP1 C C GP1 BUILDS THE FOLLOWING DATA BLOCKS-- C 1. GRID POINT LIST (GPL) C 2. EXTERNAL INTERNAL GRID POINT EQUIVALENCE TABLE (EQEXIN) C 3. GRID POINT DEFINITION TABLE (GPDT) C 4. COORDINATE SYSTEM TRANSFORMATION MATRICES (CSTM) C 5. BASIC GRID POINT DEFINITION TABLE (BGPDT) C 6. SCALAR INDEX LIST (SIL) C C THE FOLLOWING CARDS ARE READ BY GP1-- C 1. GRID C 2. CELASI, CDAMPI, CMASSI (I=1,2,3,4) C 3. SPOINT C 4. SEQGP (SEQEP IS PROCESSED IN DPD1) C 5. CORDIJ (I=1,2, J=R,S,C) C C IMPORTANT C ========= C REVISED 7/89 BY G.CHAN/UNISYS, TO ALLOW GRID, SCALAR AND EXTRA C POINT EXTERNAL ID UP TO 8 DIGITS FOR ALL 32-BIT MACHINES C PREVIOUSLY, ID OF 2000000 IS THE UPPER LIMIT FOR IBM AND VAX C C REVISED 8/89 BY G.CHAN/UNISYS, AS PART OF THE EFFORT TO ALLOW A C NASTRAN JOB TO EXCEED 65535 LIMIT. C NORMALLY, IF GRID POINTS OR SCALAR POINTS DO NOT HAVE VERY LARGE C EXTERNAL ID NUMBERS, THEIR ID NOS. ARE MULTIPLIED BY 1000, SO THAT C 999 ADDITIONAL POINTS CAN SQUEEZE IN VIA SEQGP CARDS. (NOTE - A C 7- OR 8-DIGIT ID NO., TIMES 1000, EXCEEDS A 32-BIT WORD COMPUTER C HARDWARE LIMIT). THIS MULTIPLY FACTOR IS NOW ADJUSTABLE, 1000,100, C OR 10, SO THAT ADDITIONAL DIGITS CAN BE USED FOR THE EXTERNAL GRID C OR SCALAR POINTS IN CASE THERE ARE LIMITTED SEQGP CARDS PRESENT. C THIS VARIABLE MULTIPLIER (10,100, OR 1000) IS ALSO RECORDED IN THE C 3RD WORD OF THE HEADER RECORD OF THE GPL DATA BLOCK FOR LATER USE. C THE ACTUAL FACTOR OF THE MULTIPLIER IS ALSO MACHINE DEPENDENT. C UNIVAC, A 36-BIT MACHINE, CAN HAVE A MULTIPLIER OF 100 OR 1000. C OTHER 60- OR 64- BIT MACHINES, THE MULTIPLIER REMAINS AT 1000 C IF THE MULTIPLIER IS 1000, THE SEQGP AND SEQEP CARDS, AS BEFORE, C CAN HAVE 4 SEQID LEVELS, SUCH AS XXX.X.X.X C IF THE MULTIPLIER IS 100, SEQGP AND SEQEP CARDS ARE LIMITED TO C 3 SEQID LEVELS, XXX.X.X C FINALLY, IF MULTIPLIER IS 10, SEQGP AND SEQEP ARE LIMITED TO XXX.X C C SPECIAL CONSIDERATION FOR THE AXISYM. AND HYDROELAS. PROBLEMS - 10 C IS USED FOR THE MULTIPLIER, AND THEREFOR A ONE SEQID LEVEL IS C AVAILABLE. PREVIOUSLY, SEQGP CARDS WERE NOT USED IN AXISYM. AND C HYDROELAS. PROBLEMS, AND NO USER WARNING MESSAGE PRINTED C C NO ADJUSTABLE MULTIPLY FACTOR FOR SUBRSTRUCTURING (MULT=1000, C SEE ALSO SGEN) C C THE 65535 LIMITATION INVOLVES ONLY A SAMLL CHANGE IN STA 973 C EXTERNAL RSHIFT INTEGER RD,WRT,CLS,FILE,ELEM,AXIC,Z,SYSBUF,BUF1,BUF2, 1 BUF3,GEOMP,GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL,SCR1, 2 SCR2,WRTREW,RDREW,A,SPOINT,FLAG,GRID,CLSREW, 3 SEQGP,GPFL,CORD,CORDIJ,GP1AH,GEOM1,GEOM2,PTR, 4 SOLV,SOLVP,SCALPT,TYPE,OFFSET,RSHIFT REAL LENGTH DIMENSION A(34),AA(34),AB(3),AC(3),AI(3),AJ(3),AK(3),AX(3), 1 AR(3),SPOINT(2),GRID(2),SEQGP(2),CORDIJ(12), 2 CORD(6),GP1AH(2),SCALPT(2),ZZ(1),MCB(7) CHARACTER*29 LVL1,LVL2 CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / LUSET,NOGPDT,NOCSTM COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ KSYSTM(100) COMMON /SETUP / NFILE(6),PTR COMMON /GPTA1 / NELEM,LASTX,INCRX,ELEM(1) COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS EQUIVALENCE (KSYSTM( 1),SYSBUF), (KSYSTM( 2),IOUT ), 1 (KSYSTM(24),ICFIAT), (KSYSTM(27),AXIC ), 2 (KSYSTM(38),IAXIF ), (KSYSTM(40),NBPW ), 3 (KSYSTM(56),ITHERM), (KSYSTM(69),ISUBS) EQUIVALENCE (Z( 1),ZZ(1)), (A( 1),AA(1)), (A( 4),AB(1)), 1 (A( 7),AC(1)), (A(10),AI(1)), (A(13),AJ(1)), 2 (A(16),AK(1)), (A(19),AX(1)), (A(22),AR(1)), 3 (NOCSTM,IFL ), (GEOMP,GEOM1), (MCB(2),KN ) EQUIVALENCE (IGPDT,ICSDT) DATA GEOM1 / 101/, GEOM2 / 102/, 1 GPL / 201/, EQEXIN/ 202/, GPDT / 203/, 2 CSTM / 204/, BGPDT / 205/, SIL / 206/, 3 SCR1 / 301/, SCR2 / 302/ DATA GP1AH / 4HGP1 , 4H /, 1 CORD / 6,6,6,13,13,13/, 2 GRID / 4501,45 /, 3 SEQGP / 5301,53 /, 4 CORDIJ/ 1701,17,1801,18,1901,19,2001,20,2101,21,2201,22/, 5 SCALPT/ 5551,49 / DATA MCB / 7*0 /, 1 LARGE / 100000000/, 2 LVL1 / '3 I.E. XXX.X.X.X TO XXX.X.X' /, 3 LVL2 / '2 I.E. XXX.X.X.X TO XXX.X ' / C C PERFORM GENERAL INITIALIZATION C CALL DELSET NZ = KORSZ(Z) BUF1 = NZ - SYSBUF - 2 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF NOGO = 0 NOCSTM = 0 NOGPDT =-1 NOGMP1 = 1 MAXA1 = 0 MULT = 1000 AXI = 0 IF (AXIC.NE.0 .OR. IAXIF.NE.0) AXI = 1 IF (AXI .NE. 0) MULT = 10 IF (ISUBS .NE. 0) MULT = 1000 IMAX = LARGE IF (NBPW .EQ. 32) IMAX = 2147483 IF (NBPW .EQ. 36) IMAX = 34359738 C 2147483=2**31/1000 34359738=2**35/1000 C C READ SCALAR ELEMENT CONNECTION CARDS (IF PRESENT). C EXTRACT SCALAR POINTS AND WRITE THEM ON SCR2. C FILE = SCR2 CALL OPEN (*1170,SCR2,Z(BUF2),WRTREW) NOSCLR= 0 M8 =-8 A(11) =-1 DO 30 K = 12,16 30 A(K) = 0 CALL PRELOC (*80,Z(BUF1),GEOM2) I = 1 DO 60 I = 1,LASTX,INCRX KK = ELEM(I+10) IF (KK .EQ. 0) GO TO 60 CALL LOCATE (*60,Z(BUF1),ELEM(I+3),FLAG) NN = ELEM(I+5) 40 CALL READ (*1180,*60,GEOM2,A,NN,0,FLAG) DO 50 K = 3,4 IF (A(K).EQ.0 .OR. (KK.EQ.1 .AND. A(K+2).NE.0)) GO TO 50 A(10) = A(K) NOSCLR = 1 CALL WRITE (SCR2,A(10),1,0) 50 CONTINUE GO TO 40 60 CONTINUE C C COPY SCALAR POINTS DEFINED ON SPOINT CARDS (IF PRESENT) ONTO SCR2. C CALL LOCATE (*80,Z(BUF1),SCALPT,FLAG) NOSCLR = 1 CALL READ (*1180,*70,GEOM2,Z,BUF2-1,1,N) CALL MESAGE (M8,0,GP1AH) 70 CALL WRITE (SCR2,Z,N,0) C C CLOSE FILES. IF SCALAR POINTS PRESENT, SORT LIST. C THEN DISCARD DUPLICATES AND WRITE UNIQUE LIST ON SCR2. C 80 CALL WRITE (SCR2,0,0,1) CALL CLOSE (SCR2,CLSREW) CALL CLOSE (GEOM2,CLSREW) IF (NOSCLR .EQ. 0) GO TO 110 NFILE(1) = GPDT NFILE(2) = BGPDT NFILE(3) = SIL CALL OPEN (*1170,SCR2,Z(BUF1),RDREW) CALL SORTI (SCR2,0,1,1,Z,BUF1-1) CALL CLOSE (SCR2,CLSREW) FILE = NFILE(6) CALL OPEN (*1170,FILE,Z(BUF1),RDREW) CALL OPEN (*1170,SCR2,Z(BUF2),WRTREW) LAST = -1 90 CALL READ (*1180,*100,FILE,A(10),1,0,FLAG) IF (A(10) .EQ. LAST) GO TO 90 CALL WRITE (SCR2,A(10),1,0) LAST = A(10) GO TO 90 100 CALL WRITE (SCR2,0,0,1) CALL CLOSE (SCR2,CLSREW) CALL CLOSE (FILE,CLSREW) CALL OPEN (*1170,SCR2,Z(BUF3),RDREW) C C READ GRID ENTRIES (IF PRESENT). C MERGE GRID AND SCALAR NOS. C CREATING LIST IN CORE OF EXTERNAL NO., MULT * EXTERNAL NO. C WRITE 7-WORD GRID AND SCALAR ENTRIES ON SCR1. C 110 A(1) = LARGE A(10) = LARGE FILE = SCR1 IF (MAXA1 .EQ. 0) CALL OPEN (*1170,SCR1,Z(BUF2),WRTREW) I = -1 NOGRID = 0 IF (MAXA1 .EQ. 0) CALL PRELOC (*190,Z(BUF1),GEOM1) CALL LOCATE (*200,Z(BUF1),GRID,FLAG) NOGRID = 1 CALL READ (*1180,*1200,GEOM1,A,8,0,FLAG) CALL WRITE (SCR1,A,7,0) 120 IF (NOSCLR .EQ. 0) GO TO 140 CALL READ (*1180,*1200,SCR2,A(10),1,0,FLAG) CALL WRITE (SCR1,A(10),7,0) 130 IF (NOGRID .EQ. 0) GO TO 160 IF (NOSCLR .EQ. 0) GO TO 140 IF (A(1) - A(10)) 140,1250,160 C C GRID NO. .LT. SCALAR NO. C 140 I = I + 2 Z(I) = A(1) C C GRID POINT EXTERNAL ID * MULT IS LIMITED TO COMPUTER MAXIMUM C INTEGER SIZE C IF (A(1).LE.IMAX .OR. AXI.NE.0) GO TO 142 IF (A(1) .GT. MAXA1) MAXA1 = A(1) GO TO 146 142 Z(I+1) = MULT*A(1) 146 CALL READ (*1180,*150,GEOM1,A,8,0,FLAG) CALL WRITE (SCR1,A,7,0) GO TO 130 150 NOGRID = 0 A(1) = LARGE IF (NOSCLR .EQ. 0) GO TO 180 C C SCALAR NO. .LT. GRID NO. C 160 I = I + 2 Z(I) = A(10) C C SCALAR POINT EXTERNAL ID * MULT IS LIMITED TO COMPUTER MAXIMUM C INTEGER SIZE C IF (A(10).LE.IMAX .OR. AXI.NE.0) GO TO 162 IF (A(10) .GT. MAXA1) MAXA1 = A(10) GO TO 166 162 Z(I+1) = MULT*A(10) 166 CALL READ (*1180,*170,SCR2,A(10),1,0,FLAG) CALL WRITE (SCR1,A(10),7,0) GO TO 130 170 NOSCLR = 0 A(10) = LARGE IF (NOGRID .EQ. 0) GO TO 180 GO TO 140 C C LIST COMPLETE ONLY IF MAXA1 .LE. ZERO C C IF MAXA1 IS .GT. ZERO, SOME LARGE GRID OR SCALAR POINTS HAD BEEN C LEFT OUT IN LIST. MAXA1 IS THE LARGEST GRID OR SCALAR POINT C EXTERNAL ID. RESET MULT AND REPEAT COMPILING LIST C 180 IF (MAXA1 .LE. 0) GO TO 185 IF (ISUBS .NE. 0) GO TO 183 CALL REWIND (SCR1) CALL REWIND (GEOM1) IF (NOSCLR .NE. 0) CALL REWIND (SCR2) MULT = 100 IF (MAXA1 .GT. IMAX*10) MULT = 10 IMAX = (IMAX/MULT)*1000 MAXA1 = -1 CWKBR CALL PAGE (-3) CALL PAGE2(-3) IF (MULT .EQ. 100) WRITE (IOUT,182) UWM,LVL1 IF (MULT .EQ. 10) WRITE (IOUT,182) UWM,LVL2 182 FORMAT (A25,' 2140A, DUE TO THE PRESENCE OF ONE OR MORE GRID OR ', 1 'SCALAR POINTS WITH VERY LARGE EXTERNAL ID''S, THE SEQGP' , 2 /5X,'AND SEQEP CARDS, IF USED, ARE FORCED TO REDUCE FROM ', 3 'ALLOWABLE 4 SEQID LEVELS TO ',A29,/) GO TO 110 C 183 WRITE (IOUT,184) UFM 184 FORMAT (A23,' 2140B, EXTERNAL GRID OR SCALAR POINT ID TOO BIG') CALL MESAGE (-61,0,0) C 185 N = I NEQEX= N N1 = N + 1 N2 = N + 2 IGPDT= N2 ILIST= N2 KN = N1/2 CALL CLOSE (SCR1,CLSREW) CALL CLOSE (SCR2,CLSREW) GO TO 210 C C NO GRID CARDS PRESENT-- TEST FOR ANY SCALAR PTS. C 190 NOGMP1 = 0 200 IF (NOSCLR .EQ. 0) GO TO 980 GO TO 120 C C READ THE SEQGP TABLE (IF PRESENT) C FOR EACH ENTRY, FIND MATCH IN THE SORTED EXTERNAL GRID POINTS C AND REPLACE SEQUENCE NO. WITH SEQGP NO. C 210 NOSEQ = 0 NOGPDT = 1 IF (NOGMP1 .EQ. 0) GO TO 260 ASSIGN 230 TO NDX SPOINT(2) = 0 IERR = 1 ASSIGN 220 TO NERR CALL LOCATE (*250,Z(BUF1),SEQGP,FLAG) NOSEQ = 1 IFAIL = 0 2010 CALL READ (*1180,*2020,GEOMP,Z(N2),BUF1-1,1,FLAG) IFAIL = IFAIL + 1 GO TO 2010 2020 IF (IFAIL .EQ. 0) GO TO 2060 NWDS = (IFAIL-1)*(BUF1-1) + FLAG WRITE (IOUT,2040) UFM,NWDS 2040 FORMAT (A23,' 3135, UNABLE TO PROCESS SEQGP DATA IN SUBROUTINE ', 1 'GP1 DUE TO INSUFFICIENT CORE.', //5X, 2 'ADDITIONAL CORE REQUIRED =',I10,7H WORDS) CALL MESAGE (-61,0,0) C C CHECK FOR MULTIPLE REFERENCES TO GRID (OR SCALAR) POINT ID NOS. C AND SEQUENCE ID NOS. ON SEQGP CARDS C 2060 K = N2 KK = N2 + FLAG - 1 JJ = KK - 2 2080 DO 2285 I = K,JJ,2 IF (Z(I).LT.0 .OR. I.GE.KK) GO TO 2275 II = I + 2 IFAIL = 0 DO 2270 J = II,KK,2 IF (Z(I) .NE. Z(J)) GO TO 2270 IF (IFAIL .NE. 0) GO TO 2260 IFAIL = 1 NOGO = 1 IF (K .NE. N2) GO TO 2110 WRITE (IOUT,2100) UFM,Z(I) 2100 FORMAT (A23,' 3136, MULTIPLE REFERENCES TO GRID (OR SCALAR) POINT' 1, ' ID NO.',I9,' ON SEQGP CARDS.') GO TO 2260 2110 IDSEQ1 = Z(I)/1000 IRMNDR = Z(I) - 1000*IDSEQ1 IF (IRMNDR.NE.0 .AND. MULT.GE.10) GO TO 2140 IF (AXI .NE. 0) GO TO 2130 WRITE (IOUT,2120) UFM,IDSEQ1 2120 FORMAT (A23,' 3137, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6,6X, 1 ' ON SEQGP CARDS.') GO TO 2260 2130 IF (AXI .EQ. 1) WRITE (IOUT,2135) UFM 2135 FORMAT (A23,' 3137A, SEQGP CARDS WITH MORE THAN ONE SEQID LEVEL ', 1 'ARE ILLEGAL FOR AXISYSM. OR HYDROELAS. PROBLEM') AXI = 2 NOGO = 1 GO TO 2260 2140 IDSEQ2 = IRMNDR/100 IRMNDR = IRMNDR - 100*IDSEQ2 IF (IRMNDR.NE.0 .AND. MULT.GE.100) GO TO 2180 WRITE (IOUT,2160) UFM,IDSEQ1,IDSEQ2 2160 FORMAT (A23,' 3137, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6, 1 1H.,I1,5X,'ON SEQGP CARDS.') GO TO 2260 2180 IDSEQ3 = IRMNDR/10 IRMNDR = IRMNDR - 10*IDSEQ3 IF (IRMNDR .NE. 0) GO TO 2220 WRITE (IOUT,2200) UFM,IDSEQ1,IDSEQ2,IDSEQ3 2200 FORMAT (A23,' 3137, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6, 1 1H.,I1,1H.,I1,4X,'ON SEQGP CARDS.') GO TO 2260 2220 WRITE (IOUT,2240) UFM,IDSEQ1,IDSEQ2,IDSEQ3,IRMNDR 2240 FORMAT (A23,' 3137, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6, 1 1H.,I1,1H.,I1,1H.,I1,' ON SEQGP CARDS.') 2260 Z(J) = -Z(J) 2270 CONTINUE C 2275 IF (JJ.LT.KK .OR. MULT.EQ.1000) GO TO 2285 L = Z(I) IF (MULT .LE. 10) GO TO 2280 IF (MOD(L,10) .NE. 0) GO TO 2276 Z(I) = L/10 GO TO 2285 2276 IF (MAXA1 .EQ. 0) GO TO 2285 MAXA1 = 0 NOGO = 1 WRITE (IOUT,2277) UFM 2277 FORMAT (A23,' 2140B, ILLEGAL DATA IN SEQGP CARD, POSSIBLY CAUSED', 1 ' BY LARGE GRID OR SCALAR POINTS') GO TO 2285 2280 IF (MULT .EQ. 1) GO TO 2282 IF (MOD(L,100) .NE. 0) GO TO 2276 Z(I) = L/100 GO TO 2285 2282 IF (AXI .EQ. 0) CALL MESAGE (-37,0,NAM) IF (MOD(L,1000) .EQ. 0) GO TO 2285 IF (AXI .EQ. 1) WRITE (IOUT,2135) UFM AXI = 2 NOGO = 1 2285 CONTINUE C IF (K .NE. N2) GO TO 2290 JJ = KK K = K + 1 GO TO 2080 C 2290 DO 2300 I = N2,KK,2 IF (Z(I) .LT. 0) Z(I) = -Z(I) 2300 CONTINUE IF (NOGO .EQ. 1) GO TO 2400 C C CHECK TO SEE IF ANY SEQUENCE ID NO. ON SEQGP CARDS IS THE SAME C AS A GRID (OR SCALAR) POINT ID NO. THAT HAS NOT BEEN RESEQUENCED C DO 2390 I = K,KK,2 IF (Z(I) .LT. 0) GO TO 2390 IDSEQ1 = Z(I)/MULT IRMNDR = Z(I) - MULT*IDSEQ1 IF (IRMNDR .NE. 0) GO TO 2390 DO 2320 J = N2,KK,2 IF (IDSEQ1 .EQ. Z(J)) GO TO 2390 2320 CONTINUE DO 2340 J = 1,N1,2 IF (IDSEQ1 .EQ. Z(J)) GO TO 2360 2340 CONTINUE GO TO 2390 2360 NOGO = 1 WRITE (IOUT,2380) UFM,IDSEQ1 2380 FORMAT (A23,' 3138, SEQUENCE ID NO.',I6,' ON SEQGP CARDS IS THE ', 1 'SAME AS A', /5X,'GRID (OR SCALAR) POINT ID NO. THAT HAS ', 2 'NOT BEEN RESEQUENCED.') 2390 CONTINUE 2400 CONTINUE I = -1 220 I = I + 2 IF (I .GT. FLAG) GO TO 240 A(1) = Z(N2+I-1) A(2) = Z(N2+I ) GO TO 1060 230 Z(2*K) = A(2) GO TO 220 C C SORT THE CORE TABLE BY INTERNAL GRID PT NO C THUS FORMING THE GPL (EXTERNAL GRID PT NOS IN SORT BY INTERNAL NO) C 240 IF (NOGO .NE. 0) GO TO 1165 CALL SORTI (0,0,2,2,Z,N1) C C CLOSE GEOM1. WRITE THE GPL. FIRST RECORD IS A SINGE ENTRIED LIST C OF EXTERNAL GRID NOS. IN INTERNAL SORT. SECOND RECORD IS A DOUBLE C ENTRIED LIST OF EXTERAL GRID NO., SEQUENCE NO. (SORT IS INTERNAL). C ADD THE MULTIPLIER, MULT, TO THE 3RD WORD OF GPL HEADER RECORD C 250 IF (NOGMP1 .NE. 0) CALL CLOSE (GEOM1,CLSREW) 260 CALL FNAME (GPL,A) FILE = GPL CALL OPEN (*1170,GPL,Z(BUF1),WRTREW) A(3) = MULT CALL WRITE (GPL,A,3,1) DO 270 I = 1,N,2 270 CALL WRITE (GPL,Z(I),1,0) CALL WRITE (GPL,0,0,1) CALL WRITE (GPL,Z,N1,1) CALL CLOSE (GPL,CLSREW) MCB(1) = GPL CALL WRTTRL (MCB) C C FORM INTERNAL INDEX FOR EACH EXTERNAL GRID PT. NO. C I = 2 Z(I) = 1 IF (N .EQ. 1) GO TO 310 DO 290 I = 3,N,2 290 Z(I+1) = Z(I-1) + 1 C C TEST TO SEE IF EXTERNAL GRID PT NOS ARE STILL IN EXTERNAL SORT C I.E., IF NO SEQGP TABLE, THEN SORT IS MAINTAINED C OTHERWISE, SORT ON EXTERNAL GRID NO. C IF (NOSEQ .NE. 0) CALL SORTI (0,0,2,1,Z,N1) C C DETERMINE IF THE GPDT CAN BE HELD IN CORE C NWDS= TOTAL NO OF WORDS IN THE GPDT C M= MAX NO OF ENTRIES CORE CAN HOLD WITH ONE BUFFER OPEN C IF NWDS/7.LE.M,CORE WILL HOLD THE GPDT C OTHERWISE THE FILE SORT ROUTINE WILL BE USED C 310 NWDS = 7*KN M = (BUF1-N1)/7 GPFL = 0 IF (KN .GT. M) GPFL = 7 FILE = SCR1 C C READ THE GRID AND SPOINT TABLES FROM SCR1 C REPLACE THE EXTERNAL GRID PT NO WITH THE INTERNAL INDEX C IF CORE WILL HOLD THE GPDT, USE THE INTERNAL INDEX AS A POINTER C OTHERWISE, WRITE THE UNSORTED GPDT ON SCR2 C CALL OPEN (*1170,SCR1,Z(BUF1),RDREW) FILE = SCR2 IF (GPFL .NE. 0) CALL OPEN (*1170,SCR2,Z(BUF2),WRTREW) FILE = SCR1 ASSIGN 340 TO NDX IERR = 2 ASSIGN 330 TO NERR 330 CALL READ (*1180,*370,SCR1,A,7,0,FLAG) GO TO 1060 340 IF (GPFL .NE. 0) GO TO 360 J = N1 + 7*(A(1)-1) DO 350 K = 1,7 I = J+K 350 Z(I) = A(K) GO TO 330 360 CALL WRITE (SCR2,A,7,0) GO TO 330 370 IF (NOGO .NE. 0) GO TO 1165 CALL CLOSE (SCR1,CLSREW) C C OPEN OUTPUT FILE FOR GPDT AND WRITE HEADER DATA C IF GPDT IS IN CORE, WRITE IT OUT C FILE = GPDT CALL FNAME (GPDT,A) CALL OPEN (*1170,GPDT,Z(BUF1),WRTREW) CALL WRITE (GPDT,A,2,1) IF (GPFL .NE. 0) GO TO 390 CALL WRITE (GPDT,Z(IGPDT),NWDS,1) GO TO 400 C C IF GPDT NOT IN CORE, CALL SORT C 390 NFILE(1) = SCR1 NFILE(2) = CSTM NFILE(3) = BGPDT CALL CLOSE (SCR2,CLSREW) FILE = SCR2 CALL OPEN (*1170,SCR2,Z(BUF2),RDREW) CALL SORTI (SCR2,GPDT,7,1,Z(IGPDT),BUF2-IGPDT) CALL CLOSE (SCR2,CLSREW) 400 CALL CLOSE (GPDT,CLSREW) MCB(1) = GPDT CALL WRTTRL (MCB) C C READ THE CORDIJ TABLES INTO CORE (IF PRESENT) C IFL = -1 M = ICSDT NOLIST = 0 IF (NOGMP1 .EQ. 0) GO TO 810 NDX = BUF1 - 15 NCORE = BUF1 - 15 DO 420 I = ICSDT,BUF1 420 Z(I) = 0 FILE = GEOMP CALL PRELOC (*1170,Z(BUF1),GEOMP) DO 440 I = 1,6 IJ = I + I - 1 CALL LOCATE (*440,Z(BUF1),CORDIJ(IJ),FLAG) IFL = 1 430 CALL READ (*1180,*440,GEOMP,Z(M),CORD(I),0,FLAG) M = M + 16 IF (M .GT. NCORE) CALL MESAGE (-8,0,GP1AH) GO TO 430 440 CONTINUE CALL CLOSE (GEOMP,CLSREW) M = M - 16 NCSDT = M C C TEST FOR PRESENCE OF ANY CORDIJ TABLES C IF (IFL .EQ. -1) GO TO 810 C C REPLACE EXTERNAL GRID PT NO IN CORD1J ENTRIES (IF ANY) C WITH CORRESPONDING INTERNAL INDEX C SAVE A TABLE OF GRID PTS REFERENCED ON CORD1J ENTRIES C JJ = ICSDT ILIST= NCSDT + 16 II = ILIST - 1 NCORE= BUF1 - 3 IERR = 3 470 IF (Z(JJ+2).NE.1) GO TO 510 NOLIST = 1 ASSIGN 480 TO NDX ASSIGN 485 TO NERR A(1) = Z(JJ+3) SPOINT(2) = Z(JJ+1) GO TO 1060 480 Z(JJ+3) = A(1) Z(II+1) = A(1) 485 ASSIGN 490 TO NDX ASSIGN 495 TO NERR A(1) = Z(JJ+4) GO TO 1060 490 Z(JJ+4) = A(1) Z(II+2) = A(1) 495 ASSIGN 500 TO NDX ASSIGN 505 TO NERR A(1) = Z(JJ+5) GO TO 1060 500 Z(JJ+5) = A(1) Z(II+3) = A(1) 505 II = II+3 IF (II .GT. NCORE) CALL MESAGE (-8,0,GP1AH) 510 JJ = JJ + 16 IF (JJ .LE. NCSDT) GO TO 470 IF (NOGO .NE. 0) GO TO 1165 C C IF ANY CORD1J ENTRIES, PASS THE GPDT AND CREATE A TABLE OF THE C REFERENCED GRID PTS. THIS TABLE IS CALLED CSGP C IF (NOLIST .EQ. 0) GO TO 550 NLIST = II ICSGP = NLIST + 1 CALL SORTI (0,0,1,1,Z(ILIST),ICSGP-ILIST) Z(ICSGP) = 0 JJ = ILIST DO 530 KK = ILIST,NLIST IF (Z(KK+1) .EQ. Z(KK)) GO TO 530 Z(JJ) = Z(KK) JJ = JJ + 1 530 CONTINUE NLIST = JJ - 1 ICSGP = JJ FILE = GPDT CALL OPEN (*1170,GPDT,Z(BUF1),RDREW) CALL FWDREC (*1180,GPDT) NCORE = BUF1 - 5 I = ILIST 540 CALL READ (*1180,*1200,GPDT,Z(JJ),7,0,FLAG) IF (Z(JJ) .NE. Z(I)) GO TO 540 JJ = JJ + 5 IF (JJ .GT. NCORE) CALL MESAGE (-8,0,GP1AH) I = I + 1 IF (I .LE. NLIST) GO TO 540 NCSGP = JJ - 5 CALL CLOSE (GPDT,CLSREW) C C LOOP THRU THE CSDT SOLVING AS MANY COORDINATE SYSTEMS AS POSSIBLE C ON EACH PASS. C 550 NN = (NCSDT-ICSDT)/16 + 1 SOLV = 0 SOLVP = 0 560 II = ICSDT 570 IF (Z(II+2)-2) 580,620,690 C C ***** TYPE = 1 ***** C CHECK TO SEE IF EACH OF THE 3 REFERENCE GRID PTS IS IN BASIC SYS C IF SO,CALCULATE THE TRANSFORMATION TO BASIC AND SET COORD SYSTEM C AS SOLVED, IF NOT CONTINUE TO NEXT COORDINATE SYSTEM C 580 I = 0 590 K = II + I J = ICSGP - 1 600 IF (Z(J+1) .EQ. Z(K+3)) GO TO 610 J = J + 5 IF (J .LT. NCSGP) GO TO 600 GO TO 1220 610 IF (Z(J+2).NE.0) GO TO 700 K = I*3 AA(K+1) = ZZ(J+3) AA(K+2) = ZZ(J+4) AA(K+3) = ZZ(J+5) I = I+1 IF (I .LE. 2) GO TO 590 GO TO 1020 C C ***** TYPE = 2 ***** C CHECK THE DEFINING LOCAL COORDINATE SYSTEM C IF BASIC, SOLVE AS IN TYPE=1 C IF NOT BASIC, FIND THE REFERENCED COORD SYSTEM AND TEST IF THAT C SYSTEM IS SOLVED. IF YES, CALCULATE THE TRANSFORMATION TO BASIC C IF NO, CONTINUE THRU THE CSDT C 620 IF (Z(II+3) .NE. 0) GO TO 640 DO 630 I = 1,9 K = II + I 630 AA(I) = ZZ(K+3) GO TO 1020 640 I = ICSDT 650 IF (Z(I) .EQ. Z(II+3)) GO TO 660 I = I + 16 IF (I .LE. NCSDT) GO TO 650 GO TO 1230 660 IF (Z(I+2).NE.3 .OR. Z(I+3).NE.0) GO TO 700 K = 0 ASSIGN 680 TO NDX 670 L = K + II AX(1) = ZZ(L+4) AX(2) = ZZ(L+5) AX(3) = ZZ(L+6) IF (Z(I+1)-2) 990,1000,1010 680 AA(K+1) = AR(1) AA(K+2) = AR(2) AA(K+3) = AR(3) K = K + 3 IF (K .LE. 6) GO TO 670 GO TO 1020 C C ***** TYPE = 3 ***** C CHECK THE DEFINING LOCAL COORDINATE SYSTEM C IF BASIC, CONTINUE THRU CSDT C IF NOT BASIC, ERROR CONDITION C 690 IF (Z(II+3) .NE. 0) GO TO 1190 C C TEST FOR COMPLETION OF PASS THRU CSDT C 700 II = II + 16 IF (II .LE. NCSDT) GO TO 570 C C LOOP THRU THE CSGP (IFPRESENT) AND TRANSFORM ALL C POSSIBLE GRID PTS TO BASIC C IF (NOLIST .EQ. 0) GO TO 770 JJ = ICSGP 720 IF (Z(JJ+1) .EQ. 0) GO TO 760 I = ICSDT 730 IF (Z(JJ+1) .EQ. Z(I)) GO TO 740 I = I + 16 IF (I .LE. NCSDT) GO TO 730 IERR = 6 SPOINT(1) = Z(JJ ) SPOINT(2) = Z(JJ+1) GO TO 1190 740 IF (Z(I+2).NE.3 .OR. Z(I+3).NE.0) GO TO 760 AX(1) = ZZ(JJ+2) AX(2) = ZZ(JJ+3) AX(3) = ZZ(JJ+4) ASSIGN 750 TO NDX IF (Z(I+1)-2) 990,1000,1010 750 ZZ(JJ+2) = AR(1) ZZ(JJ+3) = AR(2) ZZ(JJ+4) = AR(3) ZZ(JJ+1) = 0 760 JJ = JJ + 5 IF (JJ .LE. NCSGP) GO TO 720 C C TEST TO SEE IF ALL COORDINATE SYSTEMS SOLVED C IF NOT, TEST TO SEE IF ANY NEW SOLUTIONS ON LAST PASS C IF NONE, INCONSISTANT DEFINITION OF COORDINATE SYSTEMS C OTHERWISE LOOP BACK THRU THE CSDT C 770 IF (SOLV .EQ. NN) GO TO 780 IF (SOLV .EQ. SOLVP) GO TO 1240 SOLVP = SOLV GO TO 560 C C WRITE THE CSTM C 780 CALL FNAME (CSTM,A) FILE = CSTM CALL OPEN (*1170,CSTM,Z(BUF1),WRTREW) CALL WRITE (CSTM,A,2,1) DO 800 II = ICSDT,NCSDT,16 CALL WRITE (CSTM,Z(II),2,0) CALL WRITE (CSTM,Z(II+4),12,0) 800 CONTINUE CALL CLOSE (CSTM,CLSREW) NOCSTM = NN MCB(3) = NN MCB(1) = CSTM CALL WRTTRL (MCB) C C OPEN EQEXIN AND WRITE HEADER RECORD. C THEN WRITE FIRST RECORD (PAIRS OF EXTERNAL GRID NO., INTERNAL NO. C IN EXTERNAL SORT). C 810 FILE = EQEXIN CALL OPEN (*1170,EQEXIN,Z(BUF1),WRTREW) CALL FNAME (EQEXIN,A) CALL WRITE (EQEXIN,A,2,1) CALL WRITE (EQEXIN,Z,N1,1) CALL CLOSE (EQEXIN,CLS) C C A LIST OF DEGREES OF FREEDOM FOR EACH GRID OR SCALAR POINT IS C FORMED BEGINNING AT Z(ILIST) BY READING GEOM2 AND USING THE C CONNECTION INFORMATION IN CONJUNCTION WITH THE ELEM TABLE IN C /GPTA1/. C FILE = GEOM2 ILIST0 = ILIST - 1 NLIST = ILIST + (NEQEX+1)/2 IF (NLIST .GE. BUF3) CALL MESAGE (-8,0,GP1AH) DO 8102 I = ILIST,NLIST Z(I) = 0 8102 CONTINUE JERR = 0 CALL OPEN (*8130,GEOM2,Z(BUF1),RDREW) 8103 CALL FWDREC (*1180,GEOM2) 8104 CALL ECTLOC (*8130,GEOM2,A,I) C C ELEMENT TYPE LOCATED--PREPARE TO PROCESS EACH ELEMENT C IF (ELEM(I+9) .EQ. 0) GO TO 8103 J1 = ELEM(I+12) NREAD = J1 + ELEM(I+9) - 1 NSKIP =-(ELEM(I+5 ) - NREAD) MAXDOF= ELEM(I+24) ITYPE = ELEM(I+2 ) C C READ CONNECTION DATA FOR ELEMENT AND LOCATE EXT. GRID NBR IN C EQEXIN UPDATE DOF LIST FOR EACH GRID NBR C 8110 CALL READ (*1180,*8104,GEOM2,A,NREAD,0,M) DO 8128 I = J1,NREAD IF (A(I) .EQ. 0) GO TO 8128 CALL BISLOC (*8122,A(I),Z,2,KN,K) J = ILIST0 + Z(K+1) IF (ITYPE.GE.76 .AND. ITYPE.LE.79) GO TO 8115 C C STRUCTURE ELEMENT AND OTHERS C IF (Z(J) .LT. 0) GO TO 8124 Z(J) = MAX0(Z(J),MAXDOF) GO TO 8128 C C FLUID ELEMENT (CFHEX1,CFHEX2,CFWEDGE,CFTETRA) C 8115 IF (Z(J) .GT. 0) GO TO 8124 C Z(J) = -1 GO TO 8128 8122 WRITE (IOUT,8123) UFM,A(1),A(I) 8123 FORMAT (A23,' 2007, ELEMENT',I8,' REFERENCES UNDEFINED GRID ', 1 'POINT',I8) JERR = JERR + 1 GO TO 8128 8124 WRITE (IOUT,8125) UFM,A(I) 8125 FORMAT (A23,' 8011, GRID POINT',I8,' HAS BOTH STRUCTURE AND ', 1 'FLUID ELEMENTS CONNECTED') JERR = JERR + 1 8128 CONTINUE CALL READ (*1180,*8104,GEOM2,A,NSKIP,0,M) GO TO 8110 C C END-OF-FILE ON GEOM2---IF FATAL ERRORS, TERMINATE C 8130 CONTINUE IF (JERR .NE. 0) CALL MESAGE (-61,A,Z) C C OPEN BGPDT AND SIL. WRITE HEADER RECORDS. OPEN GPDT. SKIP HEADER. C OFFSET = RSHIFT(KN,5) CALL FNAME (BGPDT,A) CALL FNAME (SIL,A(3)) FILE = BGPDT CALL OPEN (*1170,BGPDT,Z(BUF1),WRTREW) FILE = SIL CALL OPEN (*1170,SIL,Z(BUF2),WRTREW) FILE = GPDT CALL OPEN (*1170,GPDT,Z(BUF3),RDREW) CALL FWDREC (*1180,GPDT) CALL WRITE (BGPDT,A,2,1) CALL WRITE (SIL,A(3),2,1) LUSET = 1 C C READ AN ENTRY FROM THE GPDT. C TEST FOR DEFINING COORDINATE SYSTEM. C 820 CALL READ (*1180,*970,GPDT,A,7,0,FLAG) IF (A(2)) 910,880,830 C C COORDINATE SYSTEM NOT BASIC-- C USE CSDT IN CORE TO TRANSFORM TO BASIC. C 830 IF (NOCSTM .EQ. -1) GO TO 850 I = ICSDT 840 IF (Z(I).EQ.A(2)) GO TO 860 I = I + 16 IF (I .LE. NCSDT) GO TO 840 850 IERR = 6 SPOINT(1) = A(1) SPOINT(2) = A(2) GO TO 1190 860 AX(1) = AA(3) AX(2) = AA(4) AX(3) = AA(5) ASSIGN 870 TO NDX IF (Z(I+1)-2) 990,1000,1010 870 AA(3) = AR(1) AA(4) = AR(2) AA(5) = AR(3) C C GRID POINT NOW BASIC-- C STORE DISPLACEMENT SYSTEM COORD. SYSTEM ID AND SET TYPE. C MAKE SURE DISPLACEMENT COORD. SYSTEM IS DEFINED. C 880 A(2) = A(6) TYPE = 1 KHR = ILIST0 + A(1) INCR = Z(KHR) C C IF INCR NEGATIVE - SPECIAL HYDROELASTIC GRID POINT WITH SINGLE C DEGREE OF FREEDOM C IF (INCR .LT. 0) GO TO 905 IF (INCR .EQ. 0) INCR = 6 C C /////////////////////////////// C C TEMP PATCH C INCR = MAX0(INCR,6) C C /////////////////////////////// C IF (A(2).EQ.0 .AND. ITHERM.EQ.0) GO TO 920 C C IF A(2) WHICH EQUALS A(6) IS EQUAL TO -1 THEN A FLUID GRID POINT C AS CREATED BY IFP4 IS AT HAND AND HAS ONLY 1 DEGREE OF FREEDOM C ..... IF -HEAT- PROBLEM THEN ALL GRIDS HAVE 1 DEGREE OF FREEDOM. C IF (A(2).EQ.(-1) .OR. ITHERM.GT.0) GO TO 905 IF (NOCSTM .EQ. -1) GO TO 900 DO 890 IJK = ICSDT,NCSDT,16 IF (A(2) .EQ. Z(IJK)) GO TO 920 890 CONTINUE 900 NOGO = 1 CALL MESAGE (30,104,A(2)) GO TO 920 C C SCALAR POINT-- SET TYPE. C 905 A(2) = 0 A(6) = 0 910 TYPE = 2 INCR = 1 C C WRITE ENTRY ON BGPDT AND SIL. C 920 CALL WRITE (BGPDT,A(2),4,0) CALL WRITE (SIL, LUSET,1,0) C C REPLACE INTERNAL NO. IN EQEXIN WITH CODED SIL NO. C THEN INCREMENT SIL NO. C NCODE = 10*LUSET + TYPE IF (NOSEQ .NE. 0) GO TO 925 K = 2*A(1) IF (Z(K) - A(1)) 950,960,950 925 NCODE = -NCODE LMT1 = MAX0(2*(A(1)-OFFSET),2) DO 930 K = LMT1,N1,2 IF (Z(K) .EQ. A(1)) GO TO 960 930 CONTINUE DO 940 K = 2,LMT1,2 IF (Z(K) .EQ. A(1)) GO TO 960 940 CONTINUE 950 CALL MESAGE (-30,2,A) 960 Z(K) = NCODE LUSET = LUSET + INCR GO TO 820 C C CLOSE BGPDT AND SIL. WRITE TRAILERS. C 970 CALL CLOSE (BGPDT,CLSREW) CALL CLOSE (SIL,CLSREW) CALL CLOSE (GPDT,CLSREW) LUSET = LUSET - 1 C 2147483647 = 2**31-1 IF (LUSET .LE. 2147483647) GO TO 974 WRITE (IOUT,972) UFM,LUSET 972 FORMAT (A23,' 3175, TOTAL NUMBER OF DEGREES OF FREEDOM IN THE ', 1 'PROBLEM (',I11,' ) EXCEEDS 2,147,483,647 (I.E., ' 2 '2**31 - 1)') 973 FORMAT (A29,' 3175, PROBLEM SIZE,',I8,' DOF''S, EXCEEDS THE OLD ', 1 'LIMIT OF 65535.', /5X,'GOOD NEWS, JOB WILL CONTINUE') CALL MESAGE (-61,0,0) 974 MCB(1) = BGPDT MCB(3) = 0 CALL WRTTRL (MCB) MCB(1) = SIL MCB(3) = LUSET CALL WRTTRL (MCB) C C IF GRID NOS. ARE RESEQUENCED, SWITCH SIGN ON CODED SIL NO. C WRITE SECOND RECORD OF EQEXIN. CLOSE FILE AND WRITE TRAILER. C IF (NOSEQ .EQ. 0) GO TO 978 DO 976 K = 2,N1,2 Z(K) = -Z(K) 976 CONTINUE 978 FILE = EQEXIN CALL OPEN (*1170,EQEXIN,Z(BUF1),WRT) CALL WRITE (EQEXIN,Z,N1,1) CALL CLOSE (EQEXIN,CLSREW) MCB(1) = EQEXIN MCB(3) = 0 CALL WRTTRL (MCB) CALL SSWTCH (36,K) IF (K .EQ. 1) CALL DIAG36 (Z,BUF1,GPL,SIL,EQEXIN) IF (NOGO .NE. 0) CALL MESAGE (-61,0,0) RETURN C C ABNORMAL EXIT FROM GP1 C 980 CALL CLOSE (SCR1,CLSREW) CALL CLOSE (GEOM1,CLSREW) NOCSTM = -1 RETURN C C =============================================================== C C INTERNAL SUBROUTINE TO TRANSFORM A RECTANGULAR GRID PT TO BASIC C I POINTS TO THE CSDT ENTRY WHERE THE TRANSFORMATION IS DEFINED C THE GRID PT TO BE TRANSFORMED IS STORED AT AX(1,2,3) C THE TRANSFORMED GRID PT WILL BE STORED AT AR(1,2,3) C 990 AR(1) = ZZ(I+ 7)*AX(1) + ZZ(I+ 8)*AX(2) + ZZ(I+ 9)*AX(3) + ZZ(I+4) AR(2) = ZZ(I+10)*AX(1) + ZZ(I+11)*AX(2) + ZZ(I+12)*AX(3) + ZZ(I+5) AR(3) = ZZ(I+13)*AX(1) + ZZ(I+14)*AX(2) + ZZ(I+15)*AX(3) + ZZ(I+6) GO TO NDX, (680,750,870) C C INTERNAL SUBROUTINE TO TRANSFORM A CYLINDRICAL GRID PT TO BASIC C R,THETA,Z IS STORED AX(1,2,3) C 1000 R = AX(1) AX(2) = DEGRA*AX(2) AX(1) = R*COS(AX(2)) AX(2) = R*SIN(AX(2)) GO TO 990 C C C INTERNAL SUBROUTINE TO TRANSFORM A SPHERICAL GRID PT TO BASIC C RHO,THETA,PHI IS STORED AT AX(1,2,3) C 1010 AX(2) = DEGRA*AX(2) AX(3) = DEGRA*AX(3) RSTH = AX(1)*SIN(AX(2)) RCTH = AX(1)*COS(AX(2)) AX(1) = RSTH *COS(AX(3)) AX(2) = RSTH *SIN(AX(3)) AX(3) = RCTH GO TO 990 C C C INTERNAL SUBROUTINE TO CALCULATE THE 3X3 TRANSFORMATION MATRIX C AND 3X1 TRANSLATION VECTOR GIVEN THREE POINTS IN THE BASIC SYSTEM C THE RESULTS ARE STORED BACK IN THE CSDT C C STORE R0 = A IN THE CSDT C 1020 ZZ(II+4) = AA(1) ZZ(II+5) = AA(2) ZZ(II+6) = AA(3) C C FORM B - A C DO 1030 I = 1,3 1030 AK(I) = AB(I) - AA(I) C C FORM K = (B - A)/LENGTH(B - A) C FORM C - A C LENGTH = SQRT(AK(1)**2 + AK(2)**2 + AK(3)**2) DO 1040 I = 1,3 AK(I) = AK(I)/LENGTH 1040 AC(I) = AC(I) - AA(I) C C FORM K X (C - A) C AJ(1) = AK(2)*AC(3) - AK(3)*AC(2) AJ(2) = AK(3)*AC(1) - AK(1)*AC(3) AJ(3) = AK(1)*AC(2) - AK(2)*AC(1) C C FORM J = (K X (C-A))/LENGTH(K X (C-A)) C LENGTH = SQRT(AJ(1)**2 + AJ(2)**2 + AJ(3)**2) DO 1050 I = 1,3 1050 AJ(I) = AJ(I)/LENGTH C C FORM I = J X K C AI(1) = AJ(2)*AK(3) - AJ(3)*AK(2) AI(2) = AJ(3)*AK(1) - AJ(1)*AK(3) AI(3) = AJ(1)*AK(2) - AJ(2)*AK(1) C C STORE 3X3 ROTATION MATRIX = ((IX,JX,KX),(IY,JY,KY),(IZ,JZ,KZ)) C IN THE CSDT C ZZ(II+ 7) = AI(1) ZZ(II+ 8) = AJ(1) ZZ(II+ 9) = AK(1) ZZ(II+10) = AI(2) ZZ(II+11) = AJ(2) ZZ(II+12) = AK(2) ZZ(II+13) = AI(3) ZZ(II+14) = AJ(3) ZZ(II+15) = AK(3) C C SET WD 3 OF CSDT = 3 AND WD 4 = 0 TO INDICATE SOLVED SYSTEM C INCREMENT SOLVED SYSTEM COUNT C Z(II+2) = 3 Z(II+3) = 0 SOLV = SOLV + 1 GO TO 700 C C C INTERNAL SUBROUTINE TO PERFORM BINARY SEARCH ON FIRST ENTRY C OF A DOUBLE ENTRIED TABLE STORED AT Z(1) THRU Z(N+1) C 1060 KLO = 1 KHI = KN 1070 K = (KLO+KHI+1)/2 1080 IF (A(1)-Z(2*K-1)) 1090,1150,1100 1090 KHI = K GO TO 1110 1100 KLO = K 1110 IF (KHI-KLO-1) 1160,1120,1070 1120 IF (K.EQ.KLO) GO TO 1130 K = KLO GO TO 1140 1130 K = KHI 1140 KLO = KHI GO TO 1080 1150 A(1) = Z(2*K) GO TO NDX, (230,340,480,490,500) 1160 CALL MESAGE (30,IERR,A(1)) NOGO = 1 GO TO NERR, (220,330,485,495,505) 1165 CALL MESAGE (-61,0,0) C C C FATAL ERROR MESAGES C 1170 NDX = -1 GO TO 1210 1180 NDX = -2 GO TO 1210 1190 CALL MESAGE (-30,IERR,SPOINT) 1200 NDX = -3 GO TO 1210 1210 CALL MESAGE (NDX,FILE,GP1AH) 1220 SPOINT(1) = Z(K+3) SPOINT(2) = Z(II ) IERR = 3 GO TO 1190 1230 SPOINT(1) = Z(II ) SPOINT(2) = Z(II+3) IERR = 4 GO TO 1190 1240 SPOINT(1) = 0 SPOINT(2) = 0 IERR = 5 GO TO 1190 1250 SPOINT(1) = A(1) SPOINT(2) = 0 IERR = 12 GO TO 1190 END ================================================ FILE: mis/gp2.f ================================================ SUBROUTINE GP2 C C GP2 BUILDS THE ELEMENT CONNECTION TABLE (ECT). C STRUCTURAL ELEMENT CONNECTION CARDS ARE ON GEOM2. C EACH EXTERNAL GRID PT. NO. IS CONVERTED TO AN INTERNAL INDEX. C IN ADDITION, GENERAL ELEMENT CARDS ARE READ AND C EXTERNAL GRID NUMBERS ARE CONVERTED TO INTERNAL NUMBERS. C C INTEGER ELEM ,SYSBUF,BUF1 ,BUF2 ,EQEXIN,RD ,RDREW , 1 WRT ,WRTREW,CLSREW,CLS ,ECT ,GEOMP ,B , 2 FILE ,Z ,GENEL ,GEOM2 ,RET ,RET1 ,GP2H , 3 CBAR ,CBEAM ,BUF3 ,TWO DIMENSION B(34) ,GP2H(2) ,MCB(7) ,GENEL(2) COMMON /BLANK / NOECT COMMON /ZZZZZZ/ Z(1) COMMON /GPTA1 / NELEM ,LAST ,INCR ,ELEM(1) COMMON /SYSTEM/ SYSBUF,JUNK(36) ,IAXIF ,NBPC ,NBPW COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW,CLS COMMON /SETUP / NFILE(6) COMMON /TWO / TWO(32) EQUIVALENCE (GEOMP,GEOM2) C C INPUT DATA FILES DATA GEOM2,EQEXIN / 101,102 / C C OUTPUT DATA FILES DATA ECT / 201 / C C MISC DATA DATA GP2H/ 4HGP2 ,4H /, CBAR / 4HBAR /, CBEAM / 4HBEAM / C C GENEL DATA CARDS PROCESSED BY GP2 IN ADDITION TO ELEMENTS. DATA GENEL / 4301, 43 / C C C PERFORM GENERAL INITIALIZATION C CALL DELSET BUF1 = KORSZ(Z) - SYSBUF - 2 BUF2 = BUF1 - SYSBUF NOECT = -1 BUF3 = BUF2 - SYSBUF MCB(1)= GEOM2 CALL RDTRL (MCB) C C READ EQEXIN INTO CORE C FILE = EQEXIN CALL OPEN (*580,EQEXIN,Z(BUF1),RDREW) CALL FWDREC (*590,EQEXIN) CALL READ (*590,*30,EQEXIN,Z,BUF2,1,N) CALL MESAGE (-8,0,GP2H) 30 CALL CLOSE (EQEXIN,CLSREW) KN = N/2 N1 = N + 1 C C OPEN GEOM2. IF PURGED, RETURN. C OTHERWISE, OPEN ECT AND WRITE HEADER RECORD. C NOGEO2 = 0 CALL PRELOC (*50,Z(BUF1),GEOM2) NOGEO2 = 1 GO TO 60 50 RETURN C 60 NOECT = 1 NOGO = 0 FILE = ECT CALL OPEN (*580,ECT,Z(BUF2),WRTREW) CALL FNAME (ECT,B) CALL WRITE (ECT,B,2,1) C C READ 3-WORD ID FROM GEOM2. SEARCH ELEMENT TABLE FOR MATCH. C IF FOUND, BRANCH TO ELEMENT CODE. IF NOT FOUND, SEARCH GENEL C TABLE FOR MATCH. IF FOUND BRANCH TO APPROPRIATE CODE. IF NOT C FOUND, SKIP RECORD AND CONTINUE. C 70 CALL READ (*460,*600,GEOM2,B,3,0,FLAG) DO 80 I = 1,LAST,INCR IF (ELEM(I+3) .EQ. B(1)) GO TO 120 80 CONTINUE IF (GENEL(1) .EQ. B(1)) GO TO 110 CALL FWDREC (*460,GEOM2) GO TO 70 110 K = (I+1)/2 GO TO 280 C C WRITE 3-WORD ID ON ECT. READ ALL CARDS FOR ELEMENT AND C CONVERT EXTERNAL GRID NOS. TO INTERNAL NOS. WRITE ENTRIES ON ECT C DIRECTLY AFTER CONVERSION. C 120 ASSIGN 170 TO RET ASSIGN 630 TO RET1 CALL WRITE (ECT,B,3,0) M = ELEM(I+5) LX = ELEM(I+12) MM = LX + ELEM(I+9) NAME = ELEM(I) II = N1 FILE = GEOM2 150 CALL READ (*590,*270,FILE,B,M,0,FLAG) C C CHECK LATER TO SEE IF RESTRICTION APPLIES TO AXIF PROBLEMS C IF (IAXIF .NE. 0) GO TO 155 IF (NBPW.LE.32 .AND. B(1).GT.16777215) GO TO 670 C 16777215 = 2**24 - 1 155 L = LX 160 IF (B(L) .NE. 0) GO TO 470 170 L= L + 1 IF (L .LT. MM) GO TO 160 IF (NAME .EQ. CBEAM) GO TO 180 IF (NAME .NE. CBAR) GO TO 200 C C SPECIAL PROCESSING FOR BAR AND BEAM ELEMENTS C IF (B(8) .EQ. 1) GO TO 200 ASSIGN 190 TO RET L = 5 GO TO 470 180 IF (B(8) .EQ. 0) GO TO 200 ASSIGN 190 TO RET L = 8 GO TO 470 190 ASSIGN 170 TO RET C 200 CALL WRITE (ECT,B,M,0) GO TO 150 C C CURRENT ELEMENT IS COMPLETE C 270 CALL WRITE (ECT,0,0,1) GO TO 70 C C GENERAL ELEMENTS-- WRITE 3-WORD ID ON ECT. READ ALL GENELS, C CONVERT EXTERNAL GRID NOS. TO INTERNAL NOS. AND WRITE THEM ON ECT. C 280 CALL WRITE (ECT,B,3,0) FILE = GEOM2 L = 2 ASSIGN 310 TO RET ASSIGN 640 TO RET1 290 IJK = 0 CALL READ (*590,*360,GEOM2,B,1,0,FLAG) CALL WRITE (ECT,B,1,0) 300 CALL READ (*590,*600,GEOM2,B(2),2,0,FLAG) IF (B(2) .EQ. -1) GO TO 320 GO TO 470 310 CALL WRITE (ECT,B(2),2,0) GO TO 300 320 NUD = B(3) IF (IJK .NE. 0) GO TO 330 NUI = B(3) IJK = 1 GO TO 310 330 CALL WRITE (ECT,B(2),2,0) CALL READ (*590,*600,GEOM2,IJK1,1,0,FLAG) CALL WRITE (ECT,IJK1,1,0) NCORE = BUF2 - N1 NZ = (NUI*(NUI+1))/2 NREAD = 0 340 N= MIN0(NCORE,NZ-NREAD) CALL READ (*590,*600,GEOM2,Z(N1),N,0,FLAG) CALL WRITE (ECT,Z(N1),N,0) NREAD = NREAD + N IF (NREAD .LT. NZ) GO TO 340 CALL READ (*590,*600,GEOM2,IJK,1,0,FLAG) CALL WRITE (ECT,IJK,1,0) IF (IJK .EQ. 0) GO TO 290 NS = NUI*NUD NREAD = 0 350 N= MIN0(NCORE,NS-NREAD) CALL READ (*590,*600,GEOM2,Z(N1),N,0,FLAG) CALL WRITE (ECT,Z(N1),N,0) NREAD = NREAD + N IF (NREAD .LT. NS) GO TO 350 GO TO 290 360 CALL WRITE (ECT,0,0,1) GO TO 70 C C CLOSE FILES, WRITE TRAILER AND RETURN. C 460 CALL CLOSE (GEOM2,CLSREW) CALL CLOSE (ECT ,CLSREW) MCB(1) = GEOM2 CALL RDTRL (MCB) MCB(1) = ECT CALL WRTTRL (MCB) IF (NOGO .NE. 0) CALL MESAGE (-61,0,0) RETURN C C C INTERNAL BINARY SEARCH ROUTINE C ============================== C 470 KLO = 1 KHI = KN IGRID = B(L) 480 K = (KLO+KHI+1)/2 490 IF (IGRID-Z(2*K-1)) 500,560,510 500 KHI = K GO TO 520 510 KLO = K 520 IF (KHI-KLO-1) 570,530,480 530 IF (K .EQ. KLO) GO TO 540 K = KLO GO TO 550 540 K = KHI 550 KLO = KHI GO TO 490 560 B(L) = Z(2*K) GO TO RET, (170,310,190) 570 GO TO RET1, (630,640) C C C FATAL ERROR MESSAGES C 580 J = -1 GO TO 610 590 J = -2 GO TO 610 600 J = -3 610 CALL MESAGE (J,FILE,GP2H) 630 K = 7 GO TO 660 640 K = 61 660 B(2) = IGRID CALL MESAGE (30,K,B) NOGO = 1 GO TO RET, (170,310) 670 NOGO = 1 CALL MESAGE (30,138,B) GO TO 155 END ================================================ FILE: mis/gp3.f ================================================ SUBROUTINE GP3 C C GP3 IS THE MAIN CONTROL PROGRAM FOR MODULE GP3. C IF PLOAD2 CARDS ARE PRESENT, GP3C IS EXECUTED TO BUILD PLOAD DATA C ON SCRATCH FILE 2 (SCR2). GP3A IS EXECUTED TO BUILD THE STATIC C LOADS TABLE (SLT). GP3B IS EXECUTED TO BUILD THE GRID POINT C TEMPERATURE TABLE (GPTT). C GP3D IS EXECUTED TO BUILD THE ELEMENT TEMPERATURE TABLE (ETT) FROM C THE GPTT AND ANY TEMPP1,TEMPP2,TEMPP3, AND TEMPRB DATA PRESENT. C INTEGER BUF1 ,BUF2 ,BUF ,SYSBUF,PLOAD2,TWO ,SLT , 1 GPTT ,GEOM3 ,BUF3 ,STATUS,SPERLK COMMON /BLANK / NOGRAV ,NOLOAD,NOTEMP COMMON /GP3COM/ GEOM3 ,EQEXIN,GEOM2 ,SLT ,GPTT ,SCR1 ,SCR2 , 1 BUF1 ,BUF2 ,BUF(50) ,CARDID(60) ,IDNO(30) 2, CARDDT(60) ,MASK(60) ,STATUS(60) ,NTYPES, 3 IPLOAD,IGRAV ,PLOAD2(2) ,LOAD(2) ,NOPLD2, 4 TEMP(2) ,TEMPD(2) ,TEMPP1(2) , 5 TEMPP2(2) ,TEMPP3(2) ,TEMPRB(2) ,BUF3 , 6 PLOAD3(2) ,IPLD3 COMMON /SYSTEM/ SYSBUF,SY(93),SPERLK COMMON /ZZZZZZ/ Z(1) COMMON /TWO / TWO(32) C C TURN PARAMETERS ON. INITIALIZE BUFFER POINTERS. C READ TRAILER ON GEOM3. IF PURGED, EXIT. C CALL DELSET C IF (SPERLK .EQ. 0) GO TO 20 DO 10 I = 1,60,2 STATUS(I ) =-1 10 STATUS(I+1) = 0 20 NOLOAD = -1 NOGRAV = -1 NOTEMP = -1 BUF1 = KORSZ(Z) - SYSBUF - 2 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF - 2 BUF(1) = GEOM3 CALL RDTRL (BUF) IF (BUF(1) .NE. GEOM3) RETURN C C IF THE SLT IS PURGED, BYPASS THE SLT PHASE OF GP3. C OTHERWISE, IF PLOAD2 CARDS PRESENT, EXECUTE GP3C. C EXECUTE GP3A TO COMPLETE SLT PHASE. C BUF(7) = SLT CALL RDTRL (BUF(7)) IF (BUF(7) .NE. SLT) GO TO 30 CALL GP3C CALL GP3A C C IF THE GPTT IS NOT PURGED, EXECUTE GP3B TO BUILD IT. C 30 BUF(7) = GPTT CALL RDTRL (BUF(7)) IF (BUF(7) .NE. GPTT) RETURN C C GP3B WILL FORM A GPTT ON SCR1 AND THEN GP3D WILL READ SCR1 AND C THE TEMPP1,TEMPP2,TEMPP3, AND TEMPRB DATA FROM GEOM3 TO FORM THE C ETT (ELEMENT TEMPERATURE TABLE) ON THE OUTPUT FILE GPTT. C CALL GP3B CALL GP3D RETURN END ================================================ FILE: mis/gp3a.f ================================================ SUBROUTINE GP3A C C GP3A BUILDS THE STATIC LOADS TABLE (SLT). C FORCE, FORCE1, FORCE2, MOMENT, MOMNT1, MOMNT2, GRAV, PLOAD, SLOAD C AND LOAD CARDS ARE READ. EXTERNAL GRID NOS. ARE CONVERTED TO C INTERNAL INDICES. EACH LOAD SET ID (EXCEPT ON LOAD CARD) IS C WRITTEN IN THE HEADER RECORD OF THE SLT. THE SLT THEN COMPRISES C ONE LOGICAL RECORD PER LOAD SET. THE LAST RECORD OF THE SLT C CONTAINS THE LOAD CARDS. RFORCE CARD ADDED IN AUGUST, 1968. C PLOAD3 CARD ADDED ON HALLOWEEN 1972 C LOGICAL PIEZ INTEGER GEOM3 ,EQEXIN,SLT ,GPTT ,BUF1 ,BUF2 ,BUF , 1 Z ,RD ,RDREW ,WRT ,WRTREW,CLSREW,CARDID, 2 CARDDT,STATUS,FILE ,GPOINT,SCR1 ,SCR2 ,FIRST , 3 SETID ,FLAG ,NAM(2),KSYSTM(80) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ ISB ,IPTR ,IDM(6),NLPP ,IDUM(2),LINES COMMON /BLANK / NOGRAV,NOLOAD,NOTEMP COMMON /GP3COM/ GEOM3 ,EQEXIN,GEOM2 ,SLT ,GPTT ,SCR1 ,SCR2 , 1 BUF1 ,BUF2 ,BUF(50) ,CARDID(60) ,IDNO(30) 2 ,CARDDT(60) ,MASK(60) ,STATUS(60) ,NTYPES, 3 IPLOAD,IGRAV ,PLOAD2(2) ,LOAD(2) ,NOPLD2, 4 TEMP(2) ,TEMPD(2) ,TEMPP1(2) , 5 TEMPP2(2) ,TEMPP3(2) ,TEMPRB(2) ,BUF3 , 6 PLOAD3(2) ,IPLD3 COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (KSYSTM(1),ISB) DATA NAM / 4HGP3A,4H / ,IRFRC / 9 / C C READ EQEXIN INTO CORE. INITIALIZE BINARY SEARCH ROUTINE. C FILE = EQEXIN CALL OPEN (*570,EQEXIN,Z(BUF1),RDREW) CALL FWDREC (*580,EQEXIN) CALL READ (*580,*20,EQEXIN,Z,BUF2,1,NEQX) CALL MESAGE (-8,0,NAM) 20 CALL CLOSE (EQEXIN,CLSREW) KN = NEQX/2 NOGO = 0 C C INITIALIZE POINTERS AND OPEN SCR1 AND GEOM3. C ISET = BUF2 - 2 KSET = ISET ILIST = NEQX + 1 KLIST = ILIST KTABL = 1 FIRST = 1 FILE = SCR1 CALL OPEN (*570,SCR1,Z(BUF2),WRTREW) C C IF PLOAD2 CARDS PRESENT, INITIALIZE TO READ PLOAD DATA FROM SCR2 C INSTEAD OF GEOM3. C IF (NOPLD2 .EQ. 0) GO TO 40 FILE = SCR2 CALL OPEN (*570,SCR2,Z(BUF1),RDREW) GO TO 60 40 FIRST = 0 50 FILE = GEOM3 CALL OPEN (*570,GEOM3,Z(BUF1),RDREW) CALL FWDREC (*580,GEOM3) C C READ 3-WORD RECORD ID. IF ID BELONGS TO LOAD SET, TURN NOLOAD FLAG C OFF. C SET 1ST WORD IN STATUS ENTRY TO CURRENT POINTER IN LIST TABLE. C SET PARAMETERS FOR CONVERSION OF GRID NOS. TO INTERNAL INDICES. C 60 CALL READ (*170,*60,FILE,BUF,3,0,FLAG) DO 70 I = 1,NTYPES,2 IF (BUF(1).EQ.CARDID(I) .AND. BUF(2).EQ.CARDID(I+1)) GO TO 90 70 CONTINUE 80 CALL FWDREC (*170,FILE) GO TO 60 90 NOLOAD = 1 IF (FIRST .EQ. 1) GO TO 100 C C IF I POINTS TO PLOAD RECORD AND PLOAD2 CARDS ARE PRESENT, THEN C PLOAD DATA IS ALREADY PROCESSED. IN THIS CASE, SKIP PLOAD RECORD. C IF I POINTS TO PLOAD3 RECORD ON GEOM3, SKIP RECORD. C IF (I.EQ.IPLOAD .AND. NOPLD2.NE.0 .AND. NOPLD2.NE.2) GO TO 80 IF (I .EQ. IPLD3) GO TO 80 100 CONTINUE STATUS(I) = KLIST - ILIST + 1 NWDS = CARDDT(I) NWDS1 = NWDS - 1 JX = CARDDT(I+1) JJ1 = JX + 1 JJN = JX + MASK(JX) ID = 0 C C READ A LOAD CARD. IF SET ID IS DIFFERENT FROM LAST READ (OR 1ST C ONE) STORE SET ID IN POINTER LIST AND IN SET LIST. STORE POINTER C IN POINTER LIST. IF NOT FIRST CARD OF TYPE, STORE WORD COUNT IN C POINTER LIST. C 110 CALL READ (*580,*160,FILE,BUF,NWDS,0,FLAG) IF (BUF(1) .EQ. ID) GO TO 120 Z(KLIST ) = BUF(1) Z(KLIST+1) = KTABL IF (ID .NE. 0) Z(KLIST-1) = N ID = BUF(1) N = 0 KLIST = KLIST + 3 Z(KSET) = BUF(1) KSET = KSET - 1 C C CONVERT EXTERNAL GRID NOS. ON CARD TO INTERNAL NOS. INCREMENT C WORD COUNT. WRITE LOAD CARD (WITHOUT SET ID) ON SCR1. C 120 IF (JX .EQ. 0) GO TO 150 JJ = JJ1 JSTOP = 0 130 IF (JSTOP .EQ. 0) GO TO 135 JX = JX + 1 GO TO 136 135 JX = MASK(JJ) IF (JX .GT. 0) GO TO 136 JX = -JX JSTOP = 1 136 GPOINT = BUF(JX) PIEZ = .FALSE. IF (GPOINT.LT.0 .AND. KSYSTM(78).EQ.1) PIEZ = .TRUE. IF (PIEZ) GPOINT = -GPOINT IF (GPOINT.EQ.-1 .AND. (CARDID(I).EQ.3209 .OR. CARDID(I).EQ.3409)) 1 GO TO 140 IF (GPOINT .NE. 0) GO TO 450 140 IF (PIEZ) GPOINT = -GPOINT BUF(JX) = GPOINT JJ = JJ + 1 IF (JJ .LE. JJN) GO TO 130 C C CHECK FOR PLOAD4 CARD C 150 IF (I .NE. 49) GO TO 152 C C CHECK FOR THRU OPTION ON PLOAD4 CARD C IF (BUF(7) .EQ. 0) GO TO 153 C 152 CALL WRITE (SCR1,BUF(2),NWDS1,0) GO TO 158 C C PROCESS PLOAD4 DATA FOR ALL ELEMENT IDS IMPLIED BY THE THRU OPTION C 153 III = BUF(2) JJJ = BUF(8) BUF(7) =-1 BUF(8) = 0 DO 155 KKK = III,JJJ BUF(2) = KKK CALL WRITE (SCR1,BUF(2),NWDS1,0) N = N + NWDS1 KTABL = KTABL + NWDS1 155 CONTINUE GO TO 110 C 158 N = N + NWDS1 KTABL = KTABL + NWDS1 GO TO 110 C C HERE WHEN ALL CARDS OF CURRENT CARD TYPE HAVE BEEN READ. C STORE WORD COUNT FOR LAST SET IN POINTER LIST. STORE POINTER C TO LAST ENTRY FOR CARD TYPE IN 2ND WORD OF STATUS ENTRY. C LOOP BACK TO READ NEXT CARD TYPE. C 160 Z(KLIST-1) = N STATUS(I+1) = KLIST - ILIST - 2 GO TO 60 170 IF (FIRST .EQ. 0) GO TO 175 FIRST = 0 CALL CLOSE (SCR2,CLSREW) GO TO 50 C C HERE WHEN END-OF-FILE ON GEOM3 ENCOUNTERED. IF ERROR CONDITION C NOTED, CALL PEXIT. IF NO LOAD CARDS FOUND, CLOSE FILES AND RETURN. C 175 IF (NOGO .NE. 0) CALL MESAGE (-61,0,0) IF (NOLOAD .NE. -1) GO TO 180 CALL CLOSE (GEOM3,CLSREW) CALL CLOSE (SCR1,CLSREW) RETURN C C IF GRAVITY LOADS WERE READ, TURN NOGRAV FLAG OFF. C CLOSE FILES AND MOVE POINTER LIST TO BEGINNING OF CORE. C 180 IF (STATUS(IGRAV).GT.0 .OR. STATUS(IRFRC).GT.0) NOGRAV = +1 CALL WRITE (SCR1,0,0,1) CALL CLOSE (GEOM3,CLSREW) CALL CLOSE (SCR1, CLSREW) N = KLIST - ILIST DO 190 I = 1,N K = ILIST + I 190 Z(I) = Z(K-1) ILIST = 1 NLIST = N - 2 C C CHECK UNIQUENESS OF LOAD SETS WITTH RESPECT TO GRAVITY LOAD SETS C IF (STATUS(IGRAV) .LT. 0) GO TO 200 K1 = STATUS(IGRAV ) K2 = STATUS(IGRAV+1) DO 194 I = ILIST,NLIST,3 IF (I.GE.K1 .AND. I.LE.K2) GO TO 194 SETID = Z(I) DO 193 K = K1,K2,3 IF (Z(K) .NE. SETID) GO TO 193 NOGO = 1 CALL MESAGE (30,134,SETID) 193 CONTINUE 194 CONTINUE C C SORT THE SET LIST AND DISCARD DUPLICATE SET NOS. C 200 N = ISET - KSET KSET = KSET + 1 CALL SORT (0,0,1,1,Z(KSET),N) Z(ISET+1) = 0 K = NLIST + 3 DO 210 I = KSET,ISET IF (Z(I) .EQ. Z(I+1)) GO TO 210 Z(K) = Z(I) K = K + 1 210 CONTINUE ISET = NLIST + 3 NSET = K - 1 ITABL = NSET C C OPEN SCRATCH FILE AND SLT FILE. C WRITE SET LIST IN HEADER RECORD OF THE SLT. C CALL OPEN (*570,SCR1,Z(BUF1),RDREW) FILE = SLT CALL OPEN (*570,SLT,Z(BUF2),WRTREW) CALL FNAME (SLT,BUF) CALL WRITE (SLT,BUF,2,0) N = NSET - ISET + 1 CALL WRITE (SLT,Z(ISET),N,1) C C IF ALL LOAD CARDS WILL FIT IN CORE, READ THEM IN. C NWDS = KTABL - 1 NCORE = ITABL + KTABL IF (NCORE .GE. BUF2) GO TO 370 FILE = SCR1 CALL READ (*580,*590,SCR1,Z(ITABL+1),NWDS,1,FLAG) CALL CLOSE (SCR1,CLSREW) C C FOR EACH LOAD SET IN THE SET LIST, LOOP THRU THE STATUS TABLE. C FOR EACH CARD TYPE PRESENT IN THE STATUS TABLE, PICK UP POINTERS C TO THE POINTER LIST. SEARCH THE POINTER LIST FOR A SET ID MATCH. C IF FOUND, PICK UP POINTERS TO THE DATA IN CORE. SORT THE DATA ON C INTERNAL INDEX (EXCEPT GRAV AND PLOAD CARDS). C THEN, WRITE CARD TYPE ID, NO. OF CARDS IN THE SET, AND THE DATA C ON THE CARDS. THUS, THE SLT IS COMPRISED OF ONE LOGICAL RECORD PER C SET DATA WITHIN EACH RECORD IS GROUPED BY CARD TYPE, AND, WITHIN C THE GROUP, IS SORTED BY INTERNAL INDEX (WHERE DEFINED). C DO 280 K = ISET,NSET SETID = Z(K) II = 1 DO 270 I = 1,NTYPES,2 IF (STATUS(I) .LT. 0) GO TO 270 JJ1 = STATUS(I ) JJN = STATUS(I+1) DO 250 JJ = JJ1,JJN,3 IF (Z(JJ) .EQ. SETID) GO TO 260 250 CONTINUE GO TO 270 C 260 CONTINUE JX = ITABL + Z(JJ+1) NWDS = Z(JJ+2) N = CARDDT(I) - 1 NKEY = 1 IF (IDNO(II) .EQ. 20) NKEY = 5 IF (IDNO(II) .EQ. 21) GO TO 265 IF (IDNO(II).GE.22 .AND. IDNO(II).LE.24) GO TO 265 IF (I.EQ.IPLOAD .OR. I.EQ.IPLD3 .OR. I.EQ.IGRAV) GO TO 265 CALL SORT (0,0,N,NKEY,Z(JX),NWDS) 265 BUF(1) = IDNO(II) BUF(2) = NWDS/N CALL WRITE (SLT,BUF,2,0) CALL WRITE (SLT,Z(JX),NWDS,0) 270 II = II + 1 280 CALL WRITE (SLT,0,0,1) C C IF COMBINATION LOADS ARE PRESENT, SET IDS ARE CHECKED TO ASSURE C THAT THEY ARE UNIQUE WITH RESPECT TO LOAD CARDS. THE SET IDS C SPECIFIED ON THE LOAD CARD ARE THEN CHECKED AGAINST THOSE IN THE C SET LIST TO VERIFY THAT ALL ARE AVAILABLE AND AGAINST EACH OTHER C TO ENSURE THAT NO DUPLICATE SPECIFICATIONS EXIST. THE COMBINATION C LOADS ARE WRITTEN AS THE LAST LOGICAL RECORD OF THE SLT. C 290 FILE = GEOM3 CALL PRELOC (*570,Z(BUF1),GEOM3) CALL LOCATE (*360,Z(BUF1),LOAD,FLAG) 300 CALL READ (*580,*350,GEOM3,BUF,2,0,FLAG) CALL WRITE (SLT,BUF,2,0) DO 320 I = ISET,NSET IF (BUF(1) .EQ. Z(I)) GO TO 330 320 CONTINUE GO TO 340 330 NOGO = 1 CALL MESAGE (30,106,BUF) 340 LSET = NSET + 1 MSET = NSET IDCMLD = BUF(1) 341 CALL READ (*580,*350,GEOM3,BUF,2,0,FLAG) CALL WRITE (SLT,BUF,2,0) IF (BUF(1) .EQ. -1) GO TO 300 DO 342 I = ISET,NSET IF (BUF(2) .EQ. Z(I)) GO TO 343 342 CONTINUE NOGO = 1 WRITE (IPTR,3178) UFM,BUF(2),IDCMLD 3178 FORMAT (A23,' 3178, LOAD SET',I9,' NOT FOUND. REQUIRED FOR ', 1 'DEFINITION OF COMBINATION LOAD',I9) LINES = LINES + 2 IF (LINES .GE. NLPP) CALL PAGE GO TO 341 343 IF (MSET .EQ. NSET) GO TO 345 DO 344 I = LSET,MSET IF (BUF(2) .EQ. Z(I)) GO TO 346 344 CONTINUE 345 MSET = MSET + 1 Z(MSET) = BUF(2) GO TO 341 346 NOGO = 1 WRITE (IPTR,3179) UFM,BUF(2),IDCMLD 3179 FORMAT (A23,' 3179, DUPLICATE LOAD SET',I9,' FOUND IN DEFINITION', 1 ' OF COMBINATION LOAD',I9) LINES = LINES + 2 IF (LINES .GE. NLPP) CALL PAGE GO TO 341 350 CALL WRITE (SLT,0,0,1) 360 CALL CLOSE (GEOM3,CLSREW) CALL CLOSE (SLT,CLSREW) BUF(1) = SLT BUF(2) = NSET - ISET + 1 DO 361 I = 3,7 361 BUF(I) = 0 CALL WRTTRL (BUF) IF (NOGO .NE. 0) CALL MESAGE (-61,0,0) RETURN C C HERE IF CORE WILL NOT HOLD ALL LOAD CARDS. C CODE IS SIMILAR TO THAT ABOVE EXCEPT THAT POINTER LIST NOW POINTS C TO THE DATA ON THE SCRATCH FILE INSTEAD OF IN CORE. THEREFORE, THE C SCRATCH FILE WILL HAVE TO BE PASSED ONCE FOR EACH SET IN THE SET C LIST. C 370 FILE = SCR1 DO 430 K = ISET,NSET SETID = Z(K) II = 1 NREAD = 0 DO 420 I = 1,NTYPES,2 IF (STATUS(I) .LT. 0) GO TO 420 JJ1 = STATUS(I ) JJN = STATUS(I+1) DO 380 JJ = JJ1,JJN,3 IF (Z(JJ) .EQ. SETID) GO TO 390 380 CONTINUE GO TO 420 390 NSKIP = Z(JJ+1) - NREAD - 1 NWDS = Z(JJ+2) N = CARDDT(I) - 1 IF (NSKIP) 440,410,400 400 CALL READ (*580,*590,SCR1,0,-NSKIP,0,FLAG) 410 CALL READ (*580,*590,SCR1,Z(ITABL+1),NWDS,0,FLAG) NREAD = Z(JJ+1) + NWDS - 1 NKEY = 1 IF (IDNO(II) .EQ. 20) NKEY = 5 IF (IDNO(II) .EQ. 21) GO TO 415 IF (IDNO(II).GE.22 .AND. IDNO(II).LE.24) GO TO 415 IF (I.EQ.IPLOAD .OR. I.EQ.IPLD3 .OR. I.EQ.IGRAV) GO TO 415 CALL SORT (0,0,N,NKEY,Z(ITABL+1),NWDS) 415 BUF(1) = IDNO(II) BUF(2) = NWDS/N CALL WRITE (SLT,BUF,2,0) CALL WRITE (SLT,Z(ITABL+1),NWDS,0) 420 II = II + 1 CALL WRITE (SLT,0,0,1) 430 CALL REWIND (SCR1) CALL CLOSE (SCR1,CLSREW) GO TO 290 440 CALL MESAGE (-61,0,0) C C BINARY SEARCH ROUTINE C 450 KLO = 1 KHI = KN 460 K = (KLO+KHI+1)/2 470 IF (GPOINT-Z(2*K-1)) 480,540,490 480 KHI = K GO TO 500 490 KLO = K 500 IF (KHI-KLO-1) 550,510,460 510 IF (K .EQ. KLO) GO TO 520 K = KLO GO TO 530 520 K = KHI 530 KLO = KHI GO TO 470 540 GPOINT = Z(2*K) GO TO 140 550 BUF(2) = GPOINT NOGO = 1 CALL MESAGE (30,8,BUF) GO TO 140 C C FATAL FILE ERRORS C 560 CALL MESAGE (N,FILE,NAM) 570 N = -1 GO TO 560 580 N = -2 GO TO 560 590 N = -3 GO TO 560 END ================================================ FILE: mis/gp3b.f ================================================ SUBROUTINE GP3B C C GP3B BUILDS THE GRID POINT TEMPERATURE TABLE (GPTT). C TEMPD AND TEMP CARDS ARE READ. C THE GPTT HEADER CONTAINS THE FILE NAME PLUS 3 WORDS FOR EACH C TEMPERATURE SET. C WORD 1 = TEMP SET ID. C WORD 2 = DEFAULT TEMP OR -1 IF NO DEFAULT TEMP. C WORD 3 = RECORD NO. (AFTER HEADER RECORD) OF TEMPERATURE DATA C FOR THE SET, OR C ZERO IF ONLY A DEFAULT TEMP IS DEFINED FOR THE SET. C DATA RECORDS OF THE GPTT CONSIST OF PAIRS OF EXTERNAL INDEX AND C TEMPERATURE. EACH DATA RECORD IS SORTED ON EXTERNAL INDEX. C C AN IDENTICAL SET OF RECORDS WITH INTERNAL INDICES IS APPENDED AT C THE END OF THE GPTT. C C LOGICAL INTERN INTEGER GEOMP ,EQEXIN,SLT ,GPTT ,SCR1 ,BUF1 ,BUF2 , 1 BUF ,TEMP ,TEMPD ,FILE ,FLAG ,Z ,RD , 2 RDREW ,WRTREW,WRT ,CLSREW,NAM(2),GEOM3 ,ETT , 3 TEMPP1,TEMPP2,TEMPP3,TEMPRB,BUF3 ,TEMPG ,TEMPP4 CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / NOGRAV,NOLOAD,NOTEMP COMMON /GP3COM/ GEOM3 ,EQEXIN,GEOM2 ,SLT ,ETT ,SCR1 ,SCR2 , 1 BUF1 ,BUF2 ,BUF(50) ,CARDID(60) ,IDNO(30) 2, CARDDT(60) ,MASK(60) ,STATUS(60) ,NTYPES, 3 IPLOAD,IGRAV ,PLOAD2(2) ,LOAD(2) ,NOPLD2, 4 TEMP(2) ,TEMPD(2) ,TEMPP1(2) , 5 TEMPP2(2) ,TEMPP3(2) ,TEMPRB(2) ,BUF3 , 6 PLOAD3(2) ,IPLD3 ,TEMPG(2) , 7 TEMPP4(2) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,NOUT EQUIVALENCE (GEOM3,GEOMP),(GPTT,SCR1) DATA NAM / 4HGP3B,4H / C C TURN NODEF FLAG ON C ID = 0 NODEF = 0 C C READ EQEXIN INTO CORE C FILE = EQEXIN CALL OPEN (*400,EQEXIN,Z(BUF2),RDREW) CALL FWDREC (*410,EQEXIN) CALL READ (*410,*10,EQEXIN,Z,BUF3,1,NEQX) CALL MESAGE (-8,0,NAM) 10 CALL CLOSE (EQEXIN,CLSREW) KN = NEQX/2 ITEMPD = NEQX + 1 ITABL = ITEMPD C C READ TEMPERATURE DEFAULT CARDS (IF PRESENT) C FILE = GEOMP CALL PRELOC (*460,Z(BUF1),GEOMP) CALL LOCATE (*40,Z(BUF1),TEMPD,FLAG) I = ITEMPD NODEF = 1 NOTEMP = 1 20 CALL READ (*410,*30,GEOMP,Z(I),2,0,FLAG) I = I + 2 GO TO 20 30 ITABL = I NTEMPD = I - 2 N = ITABL - ITEMPD CALL SORT (0,0,2,1,Z(ITEMPD),N) C C READ TEMP CARDS. DETERMINE NO. OF TEMP SETS C FOR EACH SET ID, LOOK UP THE DEFAULT TEMPERATURE C WRITE SET ID, DEFAULT TEMP (OR -1) AND RECORD NUMBER C OF THE TEMPERATURE DATA (OR 0) IN THE GPTT HEADER C 40 J = 0 K = ITEMPD I = ITABL L = 1 FILE = GEOMP CALL LOCATE (*270,Z(BUF1),TEMP,FLAG) NOTEMP = 1 FILE = GPTT CALL OPEN (*400,GPTT,Z(BUF2),WRTREW) CALL FNAME (GPTT,BUF) CALL WRITE (GPTT,BUF,2,0) C C OPEN ETT AS TEMPORARY SCRATCH TO FORM IDENTICAL FILE WITH C INTERNAL NOTATION C FILE = ETT CALL OPEN (*400,ETT,Z(BUF3),WRTREW) CALL FNAME (ETT,BUF) CALL WRITE (ETT,BUF,2,0) FILE = GEOMP 50 CALL READ (*410,*110,GEOMP,BUF,3,0,FLAG) J = J + 1 IF (ID .EQ. BUF(1)) GO TO 50 ID = BUF(1) Z(I) = J I = I + 1 IF (NODEF .EQ. 0) GO TO 80 60 IF (K .GT. NTEMPD) GO TO 80 IF (ID-Z(K)) 80,90,70 70 BUF(1) = Z(K ) BUF(2) = Z(K+1) BUF(3) = 0 CALL WRITE (GPTT,BUF,3,0) CALL WRITE (ETT ,BUF,3,0) K = K + 2 GO TO 60 80 BUF(2) = -1 GO TO 100 90 BUF(2) = Z(K+1) K = K + 2 100 BUF(3) = L BUF(1) = ID L = L + 1 CALL WRITE (GPTT,BUF,3,0) CALL WRITE (ETT ,BUF,3,0) J = 0 GO TO 50 110 IF (NODEF .EQ. 0) GO TO 130 IF (K .GT. NTEMPD) GO TO 130 BUF(3) = 0 DO 120 L = K,NTEMPD,2 BUF(1) = Z(L ) BUF(2) = Z(L+1) CALL WRITE (ETT ,BUF,3,0) 120 CALL WRITE (GPTT,BUF,3,0) 130 CALL WRITE (GPTT,0,0,1) CALL WRITE (ETT ,0,0,1) CALL BCKREC (GEOMP) N = I Z(N) = J + 1 I = ITABL + 1 C C READ EACH TEMP SET C SORT ON EXTERNAL INDEX AND WRITE ON GPTT C IFILE = GPTT INTERN = .FALSE. ISAVE = I NOGO = 0 140 CALL READ (*410,*420,GEOMP,0,-3,0,FLAG) N1 = N + 1 150 J = N1 NX = Z(I) NI = 1 160 CALL READ (*410,*420,GEOMP,BUF,3,0,FLAG) IF (INTERN) GO TO 300 170 Z(J ) = BUF(2) Z(J+1) = BUF(3) J = J + 2 IF (J .GE. BUF3) GO TO 430 NI = NI + 1 IF (NI .LE. NX) GO TO 160 NX = J - N1 CALL SORT (0,0,2,1,Z(N1),NX) C C TEST FOR UNIQUENESS OF POINT AND TEMPERATURE C KHI = J - 1 KLO = N1 + 2 K = J IF (KLO .GE. KHI) GO TO 210 K = KLO DO 200 J = KLO,KHI,2 IF (Z(J) .NE. Z(J-2)) GO TO 190 C C NOT FATAL IF SAME TEMPERATURE C IF (Z(J+1) .NE. Z(J-1)) NOGO = NOGO + 1 IF (INTERN) GO TO 200 CALL PAGE2 (2) WRITE (NOUT,180) UFM,Z(J-1),Z(J+1),Z(J) 180 FORMAT (A23,' 2100, TEMPERATURE SPECIFIED HAS ',1P,E10.3,4H AND, 1 1P,E10.3,' FOR GRID',I9) GO TO 200 C C VALID TEMPERATURE C 190 Z(K ) = Z(J ) Z(K+1) = Z(J+1) K = K + 2 200 CONTINUE C 210 NX = K - N1 CALL WRITE (IFILE,Z(N1),NX,1) I = I + 1 IF (I .LE. N) GO TO 150 C C NOW DO SAME AS ABOVE WITH OUTPUT IN INTERNAL INDEX NOTATION. C IF (NOGO .NE. 0) CALL MESAGE (-61,NOGO,0) IF (INTERN) GO TO 220 CALL BCKREC (GEOMP) INTERN = .TRUE. IFILE = ETT I = ISAVE GO TO 140 C C NOW APPEND ENTIRE ETT FILE TO GPTT FILE C 220 FILE = ETT CALL CLOSE (ETT,CLSREW) CALL OPEN (*400,ETT,Z(BUF3),RDREW) 230 CALL READ (*250,*240,ETT,Z,BUF3-1,0,FLAG) CALL WRITE (GPTT,Z,BUF3-1,0) GO TO 230 240 CALL WRITE (GPTT,Z,FLAG,1) GO TO 230 250 CALL CLOSE (GPTT,CLSREW) CALL CLOSE (ETT,CLSREW) 260 CALL CLOSE (GEOMP,CLSREW) GO TO 460 C C NO TEMP CARDS PRESENT. IF NO DEFAULT CARDS, NO GPTT. C OTHERWISE, GPTT IS COMPRISED ONLY OF DEFAULT TEMPERATURES. C WRITE THE SET IDS AND DEFAULT TEMPS IN THE HEADER RECORD. C 270 IF (NODEF .EQ. 0) GO TO 260 FILE = GPTT CALL OPEN (*400,GPTT,Z(BUF2),WRTREW) CALL FNAME (GPTT,BUF) CALL WRITE (GPTT,BUF,2,0) FILE = ETT CALL OPEN (*400,ETT,Z(BUF3),WRTREW) CALL FNAME (ETT,BUF) CALL WRITE (ETT,BUF,2,0) BUF(3) = 0 DO 280 K = ITEMPD,NTEMPD,2 BUF(1) = Z(K ) BUF(2) = Z(K+1) 280 CALL WRITE (GPTT,BUF,3,0) CALL WRITE (ETT ,BUF,3,0) CALL WRITE (GPTT,0,0,1) CALL WRITE (ETT ,0,0,1) GO TO 220 C C INTERNAL BINARY SEARCH ROUTINE. C 300 KLO = 1 KHI = KN 310 K = (KLO+KHI+1)/2 320 IF (BUF(2)-Z(2*K-1)) 330,390,340 330 KHI = K GO TO 350 340 KLO = K 350 IF (KHI -KLO-1) 440,360,310 360 IF (K .EQ. KLO) GO TO 370 K = KLO GO TO 380 370 K = KHI 380 KLO = KHI GO TO 320 390 BUF(2) = Z(2*K) GO TO 170 C C FATAL ERROR MESAGES C 400 J = -1 GO TO 450 410 J = -2 GO TO 450 420 J = -3 GO TO 450 430 J = -8 GO TO 450 440 CALL MESAGE (-30,9,BUF) 450 CALL MESAGE (J,FILE,NAM) C 460 RETURN END ================================================ FILE: mis/gp3c.f ================================================ SUBROUTINE GP3C C C GP3C EXECUTES ONLY IF PLOAD2 AND/OR PLOAD3 CARDS ARE PRESENT. ITS C FUNCTION IS TO -- C (1) PROCESS PLOAD2 CARDS SO THAT THEIR FORMAT IS IDENTICAL TO C PLOAD CARDS. IF A PLOAD RECORD EXISTS ON GEOM3, PLOAD2 DATA C IS APPENDED TO THE DATA, SORTED, AND ALL RESULTING PLOAD DATA C IS WRITTEN ON SCR2. C (2) PROCESS PLOAD3 CARDS SO THAT ALL PRESSURES APPLIED TO AN ISO- C PARAMETRIC SOLID ARE GATHERED IN ONE ENTRY AND SORTED BY THE C FACE NUMBER TO WHICH THE PRESSURE IS APPLIED. THE SORTED C PRESSURES AND GRID POINT NUMBERS FOR EACH ELEMENT ARE WRITTEN C ON SCR2. C C EXTERNAL ANDF INTEGER GEOM3 ,GEOM2 ,SCR2 ,BUF1 ,BUF2 ,BUF ,CLSREW, 1 WRTREW,RDREW ,ELEM ,FILE ,NAM(2),PLOAD2,Z , 2 CARDID,PLOAD3,PL2 ,PL3 ,PLD(3),D1 ,D2 , 3 ANDF ,FACES(6,12) ,PL3ERR(14) REAL RZ(1),P(12) COMMON /GP3COM/ GEOM3 ,EQEXIN,GEOM2 ,SLT ,GPTT ,SCR1 ,SCR2 , 1 BUF1 ,BUF2 ,BUF(50) ,CARDID(60) ,IDNO(30) 2 , CARDDT(60) ,MASK(60) ,STATUS(60) ,NTYPES , 3 IPLOAD,IGRAV ,PLOAD2(2) ,LOAD(2) ,NOPLD2 , 4 TEMP(2) ,TEMPD(2) ,TEMPP1(2) , 5 TEMPP2(2) ,TEMPP3(2) ,TEMPRB(2) ,BUF3 , 6 PLOAD3(2) ,IPLD3 COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /ZZZZZZ/ Z(1) COMMON /GPTA1 / NELEM ,LAST ,INCR ,ELEM(1) COMMON /TWO / TWO(32) COMMON /SYSTEM/ SYSBUF,NOUT EQUIVALENCE (RZ(1),Z(1)) C C FACE IHEX1 IHEX2 IHEX3 C NO D1 D2 D1 D2 D1 D2 DATA FACES/ 1, 3, 1, 5, 1, 7, 1 2, 4, 3, 7, 4, 10, 2 1, 6, 1, 15, 1, 24, 2 2, 5, 3, 13, 4, 21, 3 2, 7, 3, 17, 4, 27, 3 3, 6, 5, 15, 7, 24, 4 3, 8, 5, 19, 7, 30, 4 4, 7, 7, 17, 10, 27, 5 1, 8, 1, 19, 1, 30, 5 4, 5, 7, 13, 10, 21, 6 5, 7, 13, 17, 21, 27, 6 6, 8, 15, 19, 24, 30/ C DATA N3304,N3305,PL3ERR/4H3304, 4H3305, 4H0***, 4H USE, 4HR FA, C 4HTAL , 4HMESS, 4HAGE , 4H330*, 4H, PL, 2 4HOAD3, 4H CAR, 4HD FR, 4HOM L, 4HOAD , 3 4HSET / DATA NAM / 4HGP3C,4H / C C CHECK TRAILER BITS FOR PRESENCE OF PLOAD2 AND PLOAD3 CARDS. C IF NONE EXIST, RETURN. OTHERWISE, BRANCH AND INITIALIZE TO C PROCESS ONE OF THESE CARD TYPES. C NOGO = 0 PL2 = 0 PL3 = 0 J = (PLOAD2(2)-1)/16 K = PLOAD2(2) - 16*J IF (ANDF(BUF(J+2),TWO(K+16)) .NE. 0) PL2 = 1 J = (PLOAD3(2)-1)/16 K = PLOAD3(2) - 16*J IF (ANDF(BUF(J+2),TWO(K+16)) .NE. 0) PL3 = 1 - 2*PL2 FILE = SCR2 IF (PL2-PL3 .NE. 0) CALL OPEN (*210,SCR2,Z(BUF2),WRTREW) IF (PL2 .EQ. 0) GO TO 15 NOPLD2 = 1 PLD(1) = PLOAD2(1) PLD(2) = PLOAD2(2) PLD(3) = 24 INCRD = 3 INCL = 6 IDL = 2 GO TO 10 15 IF (PL3 .EQ. 0) GO TO 196 NOPLD2 = NOPLD2 + 2 PLD(1) = PLOAD3(1) PLD(2) = PLOAD3(2) PLD(3) = 255 INCRD = 5 INCL = 39 IDL = 1 C C READ PLOAD2 OR PLOAD3 CARDS INTO CORE IN AN EXPANDED FORMAT. C SET THE SET ID NEGATIVE TO INDICATE THE CARD IS NOT YET CONVERTED. C 10 I = 1 FILE = GEOM3 CALL PRELOC (*210,Z(BUF1),GEOM3) CALL LOCATE (*230,Z(BUF1),PLD,FLAG) IF (PL2 .NE. 1) GO TO 20 PLD(1) = CARDID(IPLOAD ) PLD(2) = CARDID(IPLOAD+1) 20 CALL READ (*220,*30,GEOM3,Z(I),INCRD,0,FLAG) Z(I) = -Z(I) IF (PL2 .EQ. 1) GO TO 29 IF (I .LT. INCL) GO TO 25 DO 21 J = 2,I,INCL K = J IF (Z(J) .NE. Z(I+2)) GO TO 21 IF (Z(J-1) .EQ. Z(I)) GO TO 22 21 CONTINUE 25 P(1) = RZ(I+1) Z(I+1) = Z(I+2) RZ(I+2)= P(1) Z(I+14)= Z(I+3) Z(I+15)= Z(I+4) Z(I+3) =-1 GO TO 29 22 J = K + 2 23 IF (Z(J) .EQ. -1) GO TO 24 J = J + 1 IF (J .LE. K+12) GO TO 23 GO TO 25 24 RZ(J) = RZ(I+1) IF (J .LT. K+12) Z(J+1) = -1 J = K + 15 + 2*(J-K-2) Z(J ) = Z(I+3) Z(J+1) = Z(I+4) GO TO 20 29 Z(I+INCL-1) = 0 I = I+INCL IF (I .LT. BUF2) GO TO 20 CALL MESAGE (-8,0,NAM) 30 CALL CLOSE (GEOM3,CLSREW) NPLD2 = I - INCL NWDS = I - 1 C C POSITION TO FIRST DATA RECORD ON GEOM2. C FILE = GEOM2 CALL OPEN (*130,GEOM2,Z(BUF1),RDREW) CALL FWDREC (*220,GEOM2) C C READ 3-WORD RECORD ID. LOOK FOR ID IN ELEM TABLE. C IF NOT THERE, SKIP RECORD. C IF PROCESSING PLOAD2, AND NOT A TWO-DIMENSIONAL ELEMENT, SKIP REC. C IF PROCESSING PLOAD3, AND NOT AN ISOPARAMETRIC ELEMENT, SKIP REC. C OTHERWISE, INITIALIZE PARAMETERS. C 50 CALL READ (*130,*50,GEOM2,BUF,3,0,FLAG) DO 60 I = 1,LAST,INCR IF (BUF(1) .EQ. ELEM(I+3)) GO TO 80 60 CONTINUE 70 CALL FWDREC (*220,GEOM2) GO TO 50 80 NGPS = ELEM(I+9) ITYPE = ELEM(I+2) C C . IF ELEMENT TYPE IS 68 (QUADTS) THEN USE FIRST FOUR GRID POINTS C . IF ELEMENT TYPE IS 69 (TRIATS) THEN USE FIRST THREE GRID POINTS C IF (ITYPE.EQ.68 .OR. ITYPE.EQ.69) NGPS = NGPS/2 IF (PL2.EQ.1 .AND. (NGPS.LT.3 .OR. NGPS.GT.4)) GO TO 70 IF (PL3.EQ.1 .AND. (ITYPE.LT.65 .OR. ITYPE.GT.67)) GO TO 70 ITYPE = 2*(ITYPE-64) - 1 NWDECT = ELEM(I+5) J1 = ELEM(I+12) J2 = J1 + NGPS - 1 C C READ EACH ELEMENT IN RECORD. LOOK FOR ELEMENT ID MATCH IN PLOAD2 C OR PLOAD3 LIST. IF FOUND, SET THE SET ID POSITIVE TO INDICATE C ENTRY IS CONVERTED. C 90 CALL READ (*220,*50,GEOM2,BUF,NWDECT,0,FLAG) DO 110 I = 1,NPLD2,INCL IF (Z(I) .GT. 0) GO TO 110 IF (Z(I+IDL) .NE. BUF(1)) GO TO 110 Z(I) = -Z(I) IX = I IF (PL3 .EQ. 1) GO TO 300 C C PLACE GRID POINT NUMBERS FROM ELEMENT CARD IN PLOAD2 ENTRY TO C MAKE IT LOOK LIKE PLOAD CARD. C DO 100 J = J1,J2 Z(IX+2) = BUF(J) IX = IX + 1 100 CONTINUE GO TO 110 C C FIND THE DIAGONALS ON THE PLOAD3 CARD ON THE ELEMENT CARD TO C DETERMINE THE FACES TO WHICH THE PRESSURES ARE APPLIED. SORT C THE PRESSURES BY FACE NUMBER AND APPEN+ THE GRID POINT NUMBERS C FROM THE ELEMENT CARD TO THE PLOAD3 ENTRY. C 300 NP = 0 DO 310 J = 1,12 IF (Z(I+J+1) .EQ. -1) GO TO 315 NP = NP + 1 P(J) = RZ(I+J+1) 310 CONTINUE 315 DO 320 J = 1,6 320 RZ(I+J) = 0.0 DO 350 J = 1,NP K = I + 14 + 2*(J-1) ID1 = Z(K ) ID2 = Z(K+1) DO 322 K = J1,J2 IF (ID1 .EQ. BUF(K)) GO TO 324 322 CONTINUE GO TO 335 324 ID1 = K - J1 + 1 DO 326 K = J1,J2 IF (ID2 .EQ. BUF(K)) GO TO 328 326 CONTINUE GO TO 335 328 ID2 = K - J1 + 1 D1 = MIN0(ID1,ID2) D2 = MAX0(ID1,ID2) DO 330 K = 1,12 NFACE = (K+1)/2 IF (D1 .NE. FACES(ITYPE ,K)) GO TO 330 IF (D2 .EQ. FACES(ITYPE+1,K)) GO TO 340 330 CONTINUE 335 NOGO = 1 PL3ERR(7) = N3305 WRITE (NOUT,420) PL3ERR,Z(I),BUF(1) GO TO 350 340 RZ(I+NFACE) = RZ(I+NFACE)+P(J) 350 CONTINUE IX = IX + 7 DO 360 J = J1,J2 Z(IX) = BUF(J) IX = IX + 1 360 CONTINUE IF (IX+1-I .GT. 39) GO TO 110 K = I + 38 DO 370 J = IX,K 370 Z(J) = 0 110 CONTINUE GO TO 90 C C HERE WHEN END-OF-FILE ON GEOM2 IS ENCOUNTERED. C MAKE SURE ALL PLOAD2 OR PLOAD3 ENTRIES HAVE BEEN CONVERTED. C 130 CALL CLOSE (GEOM2,CLSREW) DO 140 I = 1,NPLD2,INCL IF (Z(I) .GT. 0) GO TO 140 NOGO = 1 BUF(1) = -Z(I) BUF(2) = Z(I+IDL) IF (PL2 .EQ. 1) CALL MESAGE (30,105,BUF) PL3ERR(7) = N3304 IF (PL3 .EQ. 1) WRITE (NOUT,410) PL3ERR,BUF(1),BUF(2) 140 CONTINUE IF (NOGO .NE. 0) CALL MESAGE (-61,0,0) IF (PL3 .EQ. 1) GO TO 190 C C LOCATE PLOAD RECORD ON GEOM3. IF PRESENT, READ PLOAD DATA INTO C CORE (AFTER PLOAD2 DATA) AND SORT COMBINED DATA ON SET ID. C CALL PRELOC (*210,Z(BUF1),GEOM3) CALL LOCATE (*180,Z(BUF1),CARDID(IPLOAD),FLAG) I = NPLD2 + 6 160 CALL READ (*220,*170,GEOM3,Z(I),6,0,FLAG) I = I + 6 IF (I .LT. BUF2) GO TO 160 CALL MESAGE (-8,0,NAM) 170 NPLD2 = I - 6 NWDS = I - 1 CALL SORT (0,0,6,1,Z,NWDS) 180 CALL CLOSE (GEOM3,CLSREW) C C WRITE DATA ON SCR2, SET FLAG TO INDICATE AND RETURN. C 190 CALL WRITE (SCR2,PLD,3,0) CALL WRITE (SCR2,Z,NWDS,1) IF (PL2 .NE. 1) GO TO 196 195 PL2 = -PL2 PL3 = -PL3 GO TO 15 196 CALL CLOSE (SCR2,CLSREW) RETURN C C ERROR MESSAGES. C 200 CALL MESAGE (N,FILE,NAM) 210 N = -1 GO TO 200 220 N = -2 GO TO 200 C C ABNORMAL RETURN. C 230 IF (PL3 .LT. 0) GO TO 195 CALL CLOSE (GEOM3,CLSREW) RETURN C C PLOAD3 CARD ERRORS C 410 FORMAT (14A4,I9,' REFERENCES MISSING OR NON-ISOPARAMETRIC ELEMENT' 1 ,I9) 420 FORMAT (14A4,I9,' HAS INVALID GRID POINT NUMBERS FOR ELEMENT',I9) END ================================================ FILE: mis/gp3d.f ================================================ SUBROUTINE GP3D C C GP3D CREATES THE ETT (ELEMENT TEMPERATURE TABLE) C C THE GPTT AS PREPARED BY GP3B COMES TO THIS ROUTINE VIA SCRATCH C DATA SET 1. C C DATA IN THE GPTT IS USED TOGETHER WITH DATA OBTAINED FROM TEMPP1, C TEMPP2, TEMPP3, AND TEMPRB CARDS WHICH RESIDE ON GEOM3. C LOGICAL ANYGPT ,ANYET ,LFLAG ,ANY ,HEAT INTEGER GEOM3 ,EQEXIN ,GEOM2 ,SLT ,ETT , 1 SCR1 ,SCR2 ,BUF1 ,BUF2 ,BUF , 2 FILE ,CARDID ,CARDDT ,STATUS ,PLOAD2 , 3 TEMPD ,TEMPP1 ,TEMPP2 ,TEMPP3 ,TEMPRB , 4 RD ,RDREW ,WRT ,WRTREW ,REW , 5 NOREW ,Z ,FLAG ,TWOI ,DEFALT , 6 NAM(2) ,RECORD ,GPTREC ,SETID ,OUTPT , 7 SYSBUF ,OUTWDS ,ECTWDS ,ELEM ,BUF3 REAL RZ(1) ,RBUF(50) ,TGRID(32) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / NOGRAV ,NOLOAD ,NOTEMP COMMON /SYSTEM/ KSYSTM(63) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,REW , 1 NOREW COMMON /GP3COM/ GEOM3 ,EQEXIN ,GEOM2 ,SLT ,ETT , 1 SCR1 ,SCR2 ,BUF1 ,BUF2 ,BUF(50) , 2 CARDID(60),IDNO(30),CARDDT(60),MASK(60),STATUS(60) 3, NTYPES ,IPLOAD ,IGRAV ,PLOAD2(2),LOAD(2) , 4 NOPLD2 ,TEMP(2) ,TEMPD(2) ,TEMPP1(2),TEMPP2(2), 5 TEMPP3(2),TEMPRB(2),BUF3 COMMON /GPTA1 / NELEM ,LAST ,INCR ,ELEM(1) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (RZ(1),Z(1)), (RBUF(1),BUF(1)), (DEFALT,DEFTMP), 1 (KSYSTM(1),SYSBUF), (KSYSTM(2),OUTPT), 2 (KSYSTM(56),IHEAT) DATA NAM / 4HGP3D,4H / C C +---------------------+ C OPEN CORE I I Z(ILIST) = Z(1) C I ET SET-LIST I C DESIGN FOR I 2 WDS/ENTRY I C I I Z(NLIST) C GP3D +---------------------+ C I I Z(IGPTT) C I GPT SET-LIST I C I 3 WDS/ENTRY I C I I Z(NGPTT) C +---------------------+ C I I Z(IGPT) * C I GPTT DATA I * C I FOR CURRENT SETID I * C I 2 WDS/ENTRY I * C I I Z(NGPT) * C +---------------------+ * C I I Z(IET1) * C I 2-DIMEN EL-TEMP I * THIS SPACE IS C I FOR CURRENT SETID I * DYNAMIC FOR C I 7 WDS/ENTRY I * EACH SET OF C I I Z(NET1) * TEMPERATURE C +---------------------+ * DATA. C I I Z(IET2) * C I 1-DIMEN EL-TEMP I * C I FOR CURRENT SETID I * C I 15 WDS/ENTRY I * C I I Z(NET2) * C +---------------------+ * C I/////////////////////I * C I/////////////////////I * C +---------------------+ C I I Z(BUF1) C I BUFFER 2 I C I I C +---------------------+ C I I Z(BUF2) C I BUFFER 1 I C I I Z(KORSZ) C +---------------------+ C C C C OPEN GEOM3, AND SCR1. READ IN TEMPP1, TEMPP2, TEMPP3, TEMPRB CARDS C CONVERT AND WRITE THEM OUT ON SCR2. C HEAT = .FALSE. IF (IHEAT .EQ. 1) HEAT = .TRUE. LFLAG = .FALSE. J = -1 NWORDS= 8 ILIST = 1 NLIST = 0 FILE = GEOM3 ANY = .FALSE. CALL PRELOC (*820,Z(BUF1),GEOM3) FILE = SCR2 CALL OPEN (*820,SCR2,Z(BUF2),WRTREW) C C PICK UP TEMPP1 CARDS C FILE = GEOM3 CALL LOCATE (*20,Z(BUF1),TEMPP1,FLAG) ANY = .TRUE. ASSIGN 10 TO IRETRN BUF(7) = 0 BUF(8) = 1 10 CALL READ (*840,*20,GEOM3,BUF,6,0,FLAG) GO TO 170 C C PICK UP TEMPP2 CARDS C 20 CALL LOCATE (*40,Z(BUF1),TEMPP2,FLAG) ANY = .TRUE. ASSIGN 30 TO IRETRN 30 CALL READ (*840,*40,GEOM3,BUF,8,0,FLAG) GO TO 170 C C PICK UP TEMPP3 CARDS (CONVERT THESE TO LOOK LIKE TEMPP1 CARDS) C 40 CALL LOCATE (*140,Z(BUF1),TEMPP3,FLAG) ANY = .TRUE. ASSIGN 50 TO IRETRN 50 CALL READ (*840,*140,GEOM3,BUF,24,0,FLAG) N = 25 DO 60 I = 1,11 N = N - 2 IF (RBUF(N).NE.0.0 .OR. RBUF(N+1).NE.0.0) GO TO 70 60 CONTINUE 70 N = N/2 T1 = RBUF(4) T2 = RBUF(2*N+2) IF (N .EQ. 1) GO TO 100 H = RBUF(2*N+1) - RBUF(3) SUM= 0.0 N = N-1 DO 80 I = 1,N TWOI = 2*I FACTOR = RBUF(TWOI+3) - RBUF(TWOI+1) IF (FACTOR .LE. 0.0) GO TO 120 SUM = SUM + (RBUF(TWOI+2) + RBUF(TWOI+4))*FACTOR 80 CONTINUE TBAR = SUM/(2.0*H) HOVER2 = H/2.0 SUM = 0.0 DO 90 I = 1,N TWOI = 2*I SUM = SUM + (RBUF(TWOI+3) - RBUF(TWOI+1) )*(3.0* 1 (RBUF(TWOI+1) - RBUF(3) - HOVER2)* 2 (RBUF(TWOI+4) + RBUF(TWOI+2) ) + 3 (RBUF(TWOI+2) + 2.0*RBUF(TWOI+4))* 4 (RBUF(TWOI+3) - RBUF(TWOI+1) )) 90 CONTINUE TPRIME = 2.0*SUM/H**3 GO TO 110 C 100 TBAR = RBUF(4) TPRIME = 0.0 C 110 RBUF(3) = TBAR RBUF(4) = TPRIME RBUF(5) = T1 RBUF(6) = T2 BUF(7) = 0 BUF(8) = 1 GO TO 170 C C BAD DATA ON A TEMPP3 CARD C 120 WRITE (OUTPT,130) UFM,BUF(1),BUF(2) 130 FORMAT (A23,' 4010, TEMPP3 BULK DATA CARD WITH SET ID =',I8, 1 ' AND ELEMENT ID =',I8, /27X, 2 'DOES NOT HAVE ASCENDING VALUES SPECIFIED FOR Z.') LFLAG = .TRUE. GO TO 50 C C END OF 8 WORD CARDS. WRITE EOR ON SCR2 AND DO TEMPRB CARDS NOW. C 140 CALL WRITE (SCR2,0,0,1) NWORDS = 16 CALL LOCATE (*160,Z(BUF1),TEMPRB,FLAG) ANY = .TRUE. ASSIGN 150 TO IRETRN 150 CALL READ (*840,*160,GEOM3,BUF,16,0,FLAG) GO TO 170 C C WRITE EOR ON SCR2. SCR2 THEN WILL HAVE 2 RECORDS (1 OR BOTH EMPTY) C 160 CALL WRITE (SCR2,0,0,1) CALL CLOSE (GEOM3,REW ) CALL CLOSE (SCR2 ,REW ) GO TO 230 C C INTERNAL SUBROUTINE TO BUILD SET LIST FROM TEMPERATURE CARD DATA C FIND SET-ID OR ADD IT TO LIST IN SORT, BUMP COUNT AND WRITE CARD. C 170 IF (J .EQ. -1) GO TO 210 IF (BUF(1) .EQ. Z(J)) GO TO 180 IF (BUF(1).GT.Z(J) .AND. J.EQ.NLIST-1) GO TO 210 C C LOOK FOR MATCHING SETID OR FIND WHERE NEW SETID BELONGS C CALL BISLOC (*190,BUF(1),Z(ILIST),2,NLIST/2,J) C C MATCH WAS FOUND (ILIST ASSUMED TO BE EQUAL TO 1) C 180 Z(J+1) = Z(J+1) + NWORDS GO TO 220 C C ADD THIS NEW SETID INTO LIST C 190 IF (BUF(1) .GT. Z(J)) J = J + 2 C C PUSH Z(J) THRU Z(NLIST) DOWN TWO WORDS TO MAKE ROOM FOR NEW SETID C I = NLIST + 2 DO 200 K = J,NLIST Z(I) = Z(I-2) I = I - 1 200 CONTINUE GO TO 211 C C ADD NEW SETID TO LIST C 210 J = J + 2 211 Z(J) = BUF(1) NLIST = NLIST + 2 Z(J+1)= NWORDS C C WRITE OUT THE DATA CARD ON THE SCRATCH FILE FOR LATER USE C 220 CALL WRITE (SCR2,BUF,NWORDS,0) GO TO IRETRN, (10,30,50,150) C C READ IN GPTT HEADER RECORD FROM SCR1 C 230 IGPTT = NLIST + 1 NGPTT = IGPTT FILE = SCR1 IF (NOTEMP .NE. 1) GO TO 250 CALL OPEN (*820,SCR1,Z(BUF1),RDREW) CALL READ (*840,*240,SCR1,Z(IGPTT),BUF2-IGPTT,1,FLAG) CALL MESAGE (-8,0,NAM) 240 NGPTT = NLIST + FLAG IGPTT = IGPTT + 2 NSETS = (NGPTT - IGPTT + 1)/3 C C DETERMINE NUMBER OF RECORDS OF EXTERNAL INDEX TEMP DATA C FOLLOWING HEADER RECORD. C IRECS = 0 IF (NSETS) 247,247,241 241 DO 244 I = IGPTT,NGPTT,3 IRECS = MAX0(Z(I+2),IRECS) 244 CONTINUE 247 CONTINUE CALL CLOSE (SCR1,NOREW) C C OPEN ETT, PUT OUT HEADER RECORD WITH THE 3 WORD SET ENTRIES. C 250 IF (NOTEMP.NE.1 .AND. .NOT.ANY) GO TO 810 NOTEMP = 1 FILE = ETT CALL OPEN (*820,ETT,Z(BUF2),WRTREW) CALL FNAME (ETT,BUF) CALL WRITE (ETT,BUF,2,0) LIST1 = ILIST LIST2 = IGPTT RECORD= 0 260 IF (LIST1.GT.NLIST-1 .AND. LIST2.LE.NGPTT-2) GO TO 290 IF (LIST1.LE.NLIST-1 .AND. LIST2.GT.NGPTT-2) GO TO 270 IF (LIST1.GT.NLIST-1 .AND. LIST2.GT.NGPTT-2) GO TO 330 C IF (Z(LIST1) - Z(LIST2)) 270,280,290 C C SET-ID OF LIST1 IS .LT. SET-ID OF LIST2 OR LIST2 IS ALL USED. C 270 BUF(1) = Z(LIST1) BUF(2) = -1 LIST1 = LIST1 + 2 GO TO 300 C C SET-ID OF LIST1 IS .EQ. SET-ID OF LIST2. C 280 BUF(1) = Z(LIST2 ) BUF(2) = Z(LIST2+1) LIST1 = LIST1 + 2 LIST2 = LIST2 + 3 GO TO 300 C C SET-ID OF LIST2 IS .LT. SET-ID OF LIST1 OR LIST1 IS ALL USED. C 290 BUF(1) = Z(LIST2 ) BUF(2) = Z(LIST2+1) LIST2 = LIST2 + 3 IF (Z(LIST2-1) .EQ. 0) GO TO 310 C C WRITE 3-WORD SET-ID ENTRY IN HEADER C 300 RECORD = RECORD + 1 BUF(3) = RECORD GO TO 320 310 BUF(3) = 0 320 CALL WRITE (ETT,BUF,3,0) GO TO 260 C C HEADER RECORD IS COMPLETE. WRITE EOR AND CLOSE WITH NOREWIND. C 330 CALL WRITE (ETT,0,0,1) CALL CLOSE (ETT,NOREW) C C FOR EACH SET DEFINED IN THE EL-TEMP SET LIST AND OR THE GRID-TEMP C SET LIST PASS GEOM2 USING LOCATE FOR ALL THE ELEMENTS FOR C WHICH ETT TEMP DATA OUTPUT IS POSSIBLE. C IF ANY ELEMENTS CONCERNED ARE PRESENT THEN SELECT FROM THE TEMP C DATA AVAILABLE THAT WHICH IS APPLICABLE AND OUTPUT THE DATA ON THE C ETT IN THE FOLLOWING FORMAT. C C CONTENTS OF 1 RECORD OF THE OUTPUT FILE ETT. EACH RECORD CONTAINS C DATA FOR 1 SET. C C SET-ID C ELEMENT TYPE * * * * * * * * * * C NUMBER OF TEMPERATURE DATA VALUES/EL-ID * C EL-ID * * C TEMP-VALUE * * C . * EL-ID * C . * ENTRY * C . * * ELEMENT-TYPE C LAST-TEMP-VALUE* * ENTRY C * (1 OR MORE EL-ID * C * ENTRIES PER EL-TYPE * (1 OR MORE C * ENTRY) * PER RECORD) C EL-ID * * C TEMP-VALUE * * C . * EL-ID * C . * ENTRY * C . * * C LAST-TEMP-VALUE* * C 0 * * * * * * * * * * C C IN THE ABOVE IF THE ELEMENT HAS NO SPECIAL DATA, A NEGATIVE C ELEMENT ID IS INSERTED FOLLOWED BY NO TEMPERATURE DATA. C C NOW GATHER THE DATA AVAILABLE FOR A SET FROM SCR1 AND OR SCR2. C GPTREC = 1 LIST1 = ILIST LIST2 = IGPTT 340 ANYGPT = .FALSE. ANYET = .FALSE. IGPT = 0 NGPT = 0 IET1 = 0 NET1 = 0 IET2 = 0 NET2 = 0 IF (LIST1 .GT. NLIST-1) GO TO 350 IF (LIST2 .LE. NGPTT-2) GO TO 360 GO TO 370 350 IF (LIST2 .LE. NGPTT-2) GO TO 390 GO TO 770 C 360 IF (Z(LIST1) - Z(LIST2)) 370,380,390 C C NEXT SET-ID HAS ONLY EL-TEMP DATA C 370 SETID = Z(LIST1) DEFALT = -1 ANYET = .TRUE. NWORDS = Z(LIST1+1) LIST1 = LIST1 + 2 GO TO 400 C C NEXT SET-ID HAS BOTH GRID-TEMP AND EL-TEMP DATA C 380 SETID = Z(LIST2 ) DEFALT = Z(LIST2+1) ANYET = .TRUE. INREC = Z(LIST2+2) IF (INREC .GT. 0) ANYGPT = .TRUE. NWORDS = Z(LIST1+1) LIST1 = LIST1 + 2 LIST2 = LIST2 + 3 GO TO 400 C C NEXT SET-ID HAS ONLY GRID-TEMP DATA C 390 SETID = Z(LIST2 ) DEFALT = Z(LIST2+1) INREC = Z(LIST2+2) IF (INREC .GT. 0) ANYGPT = .TRUE. LIST2 = LIST2 + 3 GO TO 400 C C AT THIS POINT READ IN ANY GRID-TEMP DATA AND/OR ANY EL-TEMP DATA. C SORT THE EL-TEMP DATA ON EL-ID. THE GRID-TEMP DATA IS SORTED ON C GRIDS C 400 IGPT = NGPTT + 1 NGPT = IGPT IF (.NOT.ANYGPT) GO TO 460 FILE = SCR1 CALL OPEN (*820,SCR1,Z(BUF1),RD) C C POSITION GPTT TO DESIRED GRID-POINT-TEMP SET AND READ IT IN. C MOVE = INREC - GPTREC IF (MOVE) 410,440,420 410 CALL REWIND (SCR1) MOVE = INREC 420 DO 430 I = 1,MOVE CALL FWDREC (*840,SCR1) 430 CONTINUE 440 GPTREC = INREC + 1 CALL READ (*840,*450,SCR1,Z(IGPT),BUF2-IGPT,1,FLAG) CALL MESAGE (-8,0,NAM) 450 NGPT = IGPT + FLAG - 1 CALL CLOSE (SCR1,NOREW) C C READ IN EL-TEMP DATA PERTAINING TO THIS SET-ID C 460 IF (.NOT.ANYET) GO TO 520 IF (NGPT+NWORDS .GE. BUF2) CALL MESAGE (-8,0,NAM) FILE = SCR2 CALL OPEN (*820,SCR2,Z(BUF1),RDREW) IET1 = NGPT + 1 NET1 = NGPT 470 CALL READ (*840,*490,SCR2,BUF,8,0,FLAG) IF (BUF(1) .NE. SETID) GO TO 470 DO 480 I = 2,8 NET1 = NET1 + 1 480 Z(NET1) = BUF(I) NWORDS = NWORDS - 8 IF (NWORDS .NE. 0) GO TO 470 CALL FWDREC (*820,SCR2) 490 IET2 = NET1 + 1 NET2 = NET1 500 CALL READ (*840,*520,SCR2,BUF,16,0,FLAG) IF (BUF(1) .NE. SETID) GO TO 500 DO 510 I = 2,16 NET2 = NET2 + 1 510 Z(NET2) = BUF(I) NWORDS = NWORDS - 16 IF (NWORDS .NE. 0) GO TO 500 C C ALL DATA IS NOW IN CORE FOR THIS SET-ID C 520 CALL CLOSE (SCR2,REW) IF (.NOT.ANYET .AND. .NOT.ANYGPT) GO TO 340 C C SORT THE 7-WORD TEMP CARDS ON ID AND CHECK FOR DUPLICATE ID S C AMONG ALL THE ELEMENT TEMPERATURE DATA C IF (IET1 .LT. NET1) CALL SORT (0,0, 7,1,Z(IET1),NET1-IET1+1) IF (IET2 .LT. NET2) CALL SORT (0,0,15,1,Z(IET2),NET2-IET2+1) C LET1 = (NET1 - IET1 + 1)/7 LET2 = (NET2 - IET2 + 1)/15 LGPT = (NGPT - IGPT + 1)/2 LFLAG = .FALSE. IF (LET1 .LE. 1) GO TO 560 ID = Z(IET1) J = IET1 + 7 DO 550 I = J,NET1,7 IF (ID .NE. Z(I)) GO TO 540 C C ERROR - TWO OR MORE ID-S EQUAL IN TEMPERATURE DATA WITHIN A SET. C WRITE (OUTPT,530) UFM,SETID,ID 530 FORMAT (A23,' 4011, ELEMENT TEMPERATURE SET',I9,' CONTAINS ', 1 'MULTIPLE TEMPERATURE DATA SPECIFIED FOR ELEMENT ID',I9) LFLAG = .TRUE. 540 ID = Z(I) 550 CONTINUE 560 IF (LET2 .LE. 1) GO TO 590 ID = Z(IET2) J = IET2 + 15 DO 580 I = J,NET2,15 IF (ID .NE. Z(I)) GO TO 570 WRITE (OUTPT,530) UFM,SETID,ID LFLAG = .TRUE. 570 ID = Z(I) 580 CONTINUE C C OPEN GEOM2, PREPARE TO PASS GEOM2, AND OUTPUT A RECORD OF THE ETT. C 590 FILE = GEOM2 CALL PRELOC (*820,Z(BUF1),GEOM2) C C OPEN ETT TO PUT OUT DATA-RECORD FOR THIS SET AND WRITE SETID, C FILE = ETT CALL OPEN (*820,ETT,Z(BUF2),WRT) CALL WRITE (ETT,SETID,1,0) C C RUN THROUGH POSSIBLE TEMPERATURE DEPENDENT ELEMENTS ON GEOM2. C FILE = GEOM2 595 CALL ECTLOC (*760,FILE,BUF,I) C C OK DATA FOR A CARD TYPE HAS BEEN FOUND. WRITE EL-TYPE AND C DATA FOR A CARD TYPE FOUND. C BUF(1) = ELEM(I+2) BUF(2) = ELEM(I+14) - 1 IELTYP = BUF(1) C C WRITE ELEMENT TYPE HEADER C CALL WRITE (ETT,BUF,2,0) IF (ELEM(I+13) .EQ. 0) GO TO 740 JTEMP = ELEM(I+13) OUTWDS = ELEM(I+14) ECTWDS = ELEM(I+ 5) IGRID = ELEM(I+12) NGRID = IGRID + ELEM(I+9) - 1 FGRIDS = 0.0 600 CALL READ (*840,*740,GEOM2,BUF,ECTWDS,0,FLAG) C C ON FIRST PASS COUNT NUMBER OF NON-ZERO GRIDS C IF (FGRIDS) 605,601,605 601 DO 603 J = IGRID,NGRID IF (BUF(J) .NE. 0) FGRIDS = FGRIDS + 1.0 603 CONTINUE 605 CONTINUE C C SELECT DATA TO BE OUTPUT C IF (.NOT.ANYET) GO TO 650 GO TO (610,620,650,650), JTEMP C C 1 - DIMENSIONAL ELEMENT-TEMP DATA MAY BE AVAIL. C 610 IF (LET2 .LT. 1) GO TO 650 CALL BISLOC (*650,BUF(1),Z(IET2),15,LET2,J) J = IET2 + J C C AVERAGE T-BAR-A AND T-BAR-B IF THIS IS A ROD, CONROD, OR TUBE C IF (IELTYP.NE.1 .AND. IELTYP.NE.3 .AND. IELTYP.NE.10) GO TO 630 RBUF(2) = (RZ(J) + RZ(J+1))/2.0 GO TO 730 C C 2 - DIMENSIONAL ELEMENT-TEMP DATA MAY BE AVAIL. C 620 IF (LET1 .LT. 1) GO TO 650 CALL BISLOC (*650,BUF(1),Z(IET1),7,LET1,J) J = IET1 + J 630 DO 640 K = 2,OUTWDS BUF(K) = Z(J) J = J + 1 640 CONTINUE GO TO 730 C C CHECK FOR GRID-POINT-TEMP-DATA C 650 IF (.NOT.ANYGPT) GO TO 700 C C GRID-POINT-TEMP-DATA IS AVAILABLE FOR SOME OR ALL GRID POINTS. C ANY = .FALSE. RTEMP = 0.0 II = 0 DO 670 K = IGRID,NGRID II = II + 1 IF (BUF(K)) 655,665,655 655 CALL BISLOC (*660,BUF(K),Z(IGPT),2,LGPT,J) J = IGPT + J RTEMP = RTEMP + RZ(J) IF (II .GT. 32) CALL MESAGE (-61,0,0) TGRID(II) = RZ(J) ANY = .TRUE. GO TO 670 660 IF (DEFALT .EQ. -1) GO TO 710 RTEMP = RTEMP + DEFTMP TGRID(II) = DEFTMP GO TO 670 C C UNDEFINED GRID-POINT C 665 TGRID(II) = 0 670 CONTINUE C C IF NOTHING BUT DEFAULT DATA THEN WRITE NOTHING SINCE THE C DEFAULT IS IN THE HEADER RECORD. C IF (.NOT.ANY) GO TO 735 C C IF BAR ELEMENT PUT GRID TEMPS INTO BUFFER FOR T-BAR-A AND T-BAR-B C IF (IELTYP .NE. 34) GO TO 675 RBUF(2) = TGRID(1) RBUF(3) = TGRID(2) J = 4 GO TO 676 C 675 RBUF(2) = RTEMP/FGRIDS J = 3 IF (JTEMP .EQ. 4) J = 2 C 676 IF (JTEMP .LT. 3) GO TO 690 DO 680 K = 1,II RBUF(J) = TGRID(K) 680 J = J + 1 690 IF (J .GT. OUTWDS) GO TO 730 BUF(J) = 0 J = J + 1 GO TO 690 C C NO GRID-POINT-TEMP-DATA. VERIFY THAT THERE IS A DEFAULT TEMP. C 700 IF (DEFALT .NE. -1) GO TO 735 C C ERROR NO TEMP DATA OR DEFALT OF ANY KIND FOR THIS ID. C 710 LFLAG = .TRUE. WRITE (OUTPT,720) UFM,SETID,BUF(1) 720 FORMAT (A23,' 4012, THERE IS NO ELEMENT, GRID POINT, OR DEFAULT', 1 ' TEMPERATURE DATA FOR', /30X,'TEMPERATURE SET',I12, 2 ', WITH RESPECT TO ELEMENT ID =',I8) GO TO 735 C C OUTPUT ELEMENT-TEMPERATURE DATA FOR 1 ELEMENT OF THIS TYPE IN SET C 730 CALL WRITE (ETT,BUF,OUTWDS,0) GO TO 600 C C OUTPUT A NEGATIVE ELEMENT ID SINCE THERE IS NO DATA AVAILABLE. C 735 ID = -BUF(1) CALL WRITE (ETT,ID,1,0) GO TO 600 C C END OF ELEMENTS FOR THIS EL-TYPE. WRITE ZERO ON ETT C 740 CALL WRITE (ETT,0,1,0) GO TO 595 760 CONTINUE C C ETT-RECORD IS COMPLETE FOR THIS SET. WRITE EOR AND PROCESS NEXT C SET. C CALL WRITE (ETT,0,0,1) CALL CLOSE (ETT,NOREW) GO TO 340 C C ETT IS COMPLETE C 770 IF (LFLAG) CALL MESAGE (-61,0,0) C C WRITE TRAILER FOR ETT C BUF(1) = ETT BUF(7) = 7 DO 775 I = 2,6 775 BUF(I) = 0 C C OPEN ETT AND APPEND GPTT SECTION OF TEMP DATA IN INTERNAL NOTATION C FILE = ETT CALL OPEN (*820,ETT,Z(BUF2),WRT) IF (.NOT.ANYGPT .AND. .NOT.HEAT) GO TO 800 C C OPEN SCR1 AND SKIP THE TEMPERATURE DATA HAVING EXTERNAL INDICES C FILE = SCR1 CALL GOPEN (SCR1,Z(BUF1),RDREW) IF (IRECS) 790,790,780 780 DO 785 I = 1,IRECS CALL FWDREC (*840,SCR1) 785 CONTINUE C C COPY BALANCE OF SCR1 TO ETT C 790 CALL READ (*800,*795,SCR1,Z,BUF2-1,0,FLAG) CALL WRITE (ETT,Z,BUF2-1,0) GO TO 790 795 CALL WRITE (ETT,Z,FLAG,1) GO TO 790 800 CALL CLOSE (SCR1,REW) CALL CLOSE (ETT, REW) CALL WRTTRL (BUF) C C THERE WAS NO GPTT DATA AND ALSO NO ETT DATA. THUS RETURN HAVING C CREATED NO ETT DATA SET. C 810 RETURN C C ERROR CONDITIONS ON FILES C C C FILE NOT IN FIST OR PURGED C 820 J = -1 GO TO 850 C C EOF HIT WHILE READING FILE C 840 J = -2 850 CALL MESAGE (J,FILE,NAM) RETURN END ================================================ FILE: mis/gp4.f ================================================ SUBROUTINE GP4 C C GP4 PERFORMS THE FOLLOWING FUNCTIONS-- C 1. READS CASECC AND MAKES ANALYSIS OF SUBCASE LOGIC C 2. PROCESSES RIGID ELEMENTS AND ALL OTHER CONSTRAINT DATA (MPC, C SPC, OMIT, SUPORT, ASET, ETC.) C 3. BUILDS THE USET FOR THE CURRENT SUBCASE C 4. CALLS GP4SP TO EXAMINE GRID POINT SINGULARITIES C 5. BUILDS THE RGT MATRIX AND YS VECTOR FOR CURRENT SUBCASE C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT ,RSHIFT ,ANDF ,ORF ,COMPLF DIMENSION BUF(20),MPC(2) ,OMIT(2),SUPORT(2) ,SPC(2) , 1 MPCADD(2) ,SPC1(2),SPCADD(2) ,MASK(6), 2 NAME(2),MCB(7) ,MCBUST(7) ,MCBYS(7) , 3 OMITX1(2) ,ASET(2),ASET1(2) ,MAK(4) , 4 SPCD(2),CTYPE(18) REAL RZ(1) ,BUFR(2) CHARACTER UFM*23 CWKBI 3/95 NCL94002 CHARACTER UWM*25 ,UIM*29 CWKBR 3/95 NCL94002 COMMON /XMSSG / UFM COMMON /XMSSG / UFM ,UWM ,UIM COMMON /MACHIN/ MACH ,IHALF ,JHALF COMMON /BITPOS/ UM ,UO ,UR ,USG ,USB ,UL , 1 UA ,UF ,US ,UN ,UG COMMON /BLANK / LUSET ,MPCF1 ,MPCF2 ,SINGLE ,OMIT1 ,REACT , 1 NSKIP ,REPEAT ,NOSETS ,NOL ,NOA ,IDSUB , 2 IAUTSP COMMON /GP4FIL/ GEOMP ,BGPDT ,CSTM ,RGT ,SCR1 COMMON /GP4PRM/ BUF ,BUF1 ,BUF2 ,BUF3 ,BUF4 ,KNKL1 , 1 MASK16 ,NOGO ,GPOINT ,KN COMMON /GP4SPX/ MSKUM ,MSKUO ,MSKUR ,MSKUS ,MSKUL ,MSKSNG , 1 SPCSET ,MPCSET ,NAUTO ,IOGPST COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW COMMON /PACKX / ITA1 ,ITB1 ,II1 ,JJ1 ,INCR1 COMMON /SYSTEM/ KSYSTM(65) COMMON /TWO / TWO(32) COMMON /UNPAKX/ ITB ,II ,JJ ,INCR COMMON /ZBLPKX/ X(4) ,IX COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (KSYSTM( 1),SYSBUF), (KSYSTM( 2),OUTTAP ), 1 (KSYSTM(27),IAXIC ), (KSYSTM(38),IAXIF ), 2 (Z(1) ,RZ(1) ), (BUF(1) ,BUFR(1)), 3 (UGSET ,USGSET), (IB6 ,BUF(6) ) DATA OMIT / 5001, 50/, 1 SUPORT/ 5601, 56/, 2 SPC / 5501, 55/, 3 SPC1 / 5481, 58/, 4 SPCADD/ 5491, 59/, 5 OMITX1/ 4951, 63/, 6 ASET / 5561, 76/, 7 ASET1 / 5571, 77/, 8 SPCD / 5110, 51/, 9 MPC / 4901, 49/, O MPCADD/ 4891, 60/ DATA NAME / 4HGP4 ,4H / DATA MSET / 4H M /, SG/4H SG /, R/ 4H R / DATA YS , USET /202 ,203 / DATA SCR2 /302 / DATA MPCAX1, MPCAX2 /101 ,102 / DATA CASECC, EQEXIN ,GPDT /101 ,103 ,104 / DATA CTYPE / 4HMPC , 4H , 1 4HOMIT, 4H , 2 4HOMIT, 4H1 , 3 4HSUPO, 4HRT , 4 4HSPC1, 4H , 5 4HSPC , 4H , 6 4HSPCD, 4H , 7 4HASET, 4H , 8 4HASET, 4H1 / DATA IZ2,IZ3,IZ5,IZ16,IZ138/ 2, 3, 5, 16, 138 / C C PERFORM GENERAL INITIALIZATION C CWKBI 3/95 NCL94002 CALL SSWTCH ( 51, L51 ) GEOMP = 102 BGPDT = 105 CSTM = 106 RGT = 201 SCR1 = 301 NAUTO = 0 IOGPST = -1 BUF1 = KORSZ(Z) - SYSBUF - 2 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF ICRQ = LUSET- BUF4 INSUFF = 10 IF (LUSET .GE. BUF4) GO TO 2430 MASK16 = JHALF MASK15 = JHALF/2 N23 = 2 MSKUM = TWO(UM ) MSKUO = TWO(UO ) MSKUR = TWO(UR ) MSKUSG = TWO(USG) MSKUSB = TWO(USB) MSKUL = TWO(UL ) MSKUA = TWO(UA ) MSKUF = TWO(UF ) MSKUS = TWO(US ) MSKUN = TWO(UN ) MSKUG = TWO(UG ) MSKUNG = ORF(MSKUN,MSKUG) MSKFNG = ORF(MSKUF,MSKUNG) MSKSNG = ORF(MSKUS,MSKUNG) MASK(1)= ORF(MSKUM,MSKUG) MASK(2)= ORF(MSKUO,MSKFNG) MASK(3)= ORF(MSKUR,ORF(MSKUA,MSKFNG)) MASK(4)= ORF(MSKUSG,MSKSNG) MASK(5)= ORF(MSKUSB,MSKSNG) MASK(6)= ORF(MSKUL,ORF(MSKUA,MSKFNG)) MAK(1) = ORF(MSKUM,MSKUL) MAK(2) = ORF(MSKUS,MSKUL) MAK(3) = ORF(MSKUO,MSKUL) MAK(4) = ORF(MSKUR,MSKUL) CALL MAKMCB (MCBYS,YS,0,2,1) CALL MAKMCB (MCBUST,USET,LUSET,0,0) MULTI = -1 USGSET = -1 SINGLE = -1 OMIT1 = -1 NOSETS = -1 ASETX = -1 REACT = -1 NOYS = 0 NOGEOM = 0 NOL = -1 NOA = +1 NOGO = 0 NOGOOF = 0 DUP = 0 IFLAG = 0 FLAG = 0 MSKCK = COMPLF(LSHIFT(COMPLF(0),20)) RIGID = 0 SPCOLD = -1 MPCOLD = -1 L21 = 0 L22 = 0 MCB(1) = GEOMP CALL RDTRL (MCB(1)) IF (MCB(1) .LT. 0) GO TO 20 C C BIT ASSIGNMENTS FOR RIGID ELEMENTS - C CRIGD1 - 53 CRROD - 65 CRBE1 - 68 C CRIGD2 - 54 CRBAR - 66 CRBE2 - 69 C CRIGD3 - 83 CRTRPLT - 67 CRBE3 - 70 C CRIGDR - 82 CRSPLINE - 71 C IF (ANDF(MCB(5),TWO(21)) .EQ. TWO(21)) RIGID = 1 IF (ANDF(MCB(5),TWO(22)) .EQ. TWO(22)) RIGID = 1 IF (ANDF(MCB(7),TWO(19)) .EQ. TWO(19)) RIGID = 1 IF (ANDF(MCB(7),TWO(18)) .EQ. TWO(18)) RIGID = 1 I = MCB(6) DO 10 J = 17,23 IF (ANDF(I,TWO(J)) .EQ. TWO(J)) RIGID = 1 10 CONTINUE CALL MAKMCB (MCB,RGT,0,2,1) C C SUBCASE LOGIC -- NSKIP IS 0 (SET BY PARAM MODULE) IF FIRST C SUBCASE. OTHERWISE NSKIP IS THE NO. OF RECORDS TO SKIP ON CASE C CONTROL DATA BLOCK TO REACH THE LAST SUBCASE. GP4 SETS THE C FOLLOWING PARAMETERS - C (1) MPCF1 = +1 (DO NOT PURGE OR EQUIV MCE DATA BLOCKS) = -1 (PURGE C AND EQUIV TO TAKE). C (2) MPCF2 = +1 (EXECUTE MCE1 AND MCE2) = -1 (DO NOT EXECUTE) C (3) REPEAT= +1 (MORE SUBCASES AFTER THIS ONE) = -1 (LAST SUBCASE). C (4) NSKIP = NO. OF RECORDS TO SKIP ON CASE CONTROL TO REACH THE C CURRENT SUBCASE (FOR MODULES IN REMAINDER OF LOOP). C 20 REPEAT= -1 MPCF1 = -1 MPCF2 = -1 NSKP1 = 1 FILE = CASECC CALL GOPEN (CASECC,Z(BUF1),0) IF (NSKIP .GT. 1) CALL SKPREC (CASECC,NSKIP-1) CALL FREAD (CASECC,Z,36,1) IF (NSKIP .GT. 0) GO TO 30 C C FIRST SUBCASE - INITIALIZE. C MPCSET = Z(IZ2) SPCSET = Z(IZ3) NSKIP = 1 GO TO 50 C C SUBSEQUENT SUBCASE - POSITION CASE CONTROL AND INITIALIZE. C 30 MPCOLD = Z(IZ2) SPCOLD = Z(IZ3) 40 NSKIP = NSKIP + 1 CALL FREAD (CASECC,Z,36,1) IF (Z(IZ16) .NE. 0) GO TO 40 IF (Z(IZ2).EQ.MPCOLD .AND. Z(IZ3).EQ.SPCOLD) GO TO 40 MPCSET = Z(IZ2) SPCSET = Z(IZ3) C C LOOK AHEAD TO END OF CURRENT SUBCASE AND SET PARAMETERS. C 50 CALL READ (*60,*2420,CASECC,Z,138,1,FLAG) C C CHECK FOR SYMMETRY C IF (Z(IZ16) .NE. 0) GO TO 50 C C CHECK FOR BUCKLING OR DIFFERENTIAL STIFFNESS C IF (Z(IZ5).NE.0 .OR. Z(IZ138).NE.0) GO TO 60 IF (Z(IZ2).EQ.MPCSET .AND. Z(IZ3).EQ.SPCSET) GO TO 110 REPEAT = 1 C C CHECK TO SEE IF MPC SET IS SELECTED OR IF RIGID ELEMENTS EXIST C 60 IF (MPCSET.EQ.0 .AND. RIGID.EQ.0) GO TO 70 MPCF1 = 1 MPCF2 = 1 IF (NSKIP .EQ. 1) GO TO 70 IF (MPCSET .EQ. MPCOLD) MPCF2 = -1 70 CALL CLOSE (CASECC,CLSREW) ASSIGN 120 TO RET C C READ EQEXIN INTO CORE C 80 FILE = EQEXIN CALL GOPEN (EQEXIN,Z(BUF1),0) CALL READ (*2410,*90,EQEXIN,Z,BUF4,1,KN) INSUFF = 80 ICRQ = BUF4 GO TO 2430 90 CALL READ (*2410,*2420,EQEXIN,Z(KN+1),KN,1,FLAG) CALL CLOSE (EQEXIN, CLSREW) KM = 2*KN KN2 = KN/2 C C FORM ARRAY OF SORTED SIL VALUES STARTING AT Z(KM+1) C DO 100 I = 1, KN2 J = 2*(I-1) + 2 + KN Z(KM+I) = Z(J)/10 100 CONTINUE CALL SORT (0,0,1,1,Z(KM+1),KN2) Z(KM+KN2+1) = LUSET + 1 KNKL1 = KM + KN2 + 2 C C SET DIAG-S 21 AND 22 FOR DEGREE-OF-FREEDOM PRINTER LATER. C CALL SSWTCH (21,L21) CALL SSWTCH (22,L22) GO TO RET, (120,1930,1660) C 110 NSKP1 = NSKP1 + 1 GO TO 50 C C OPEN INPUT DATA FILE C 120 FILE = GEOMP CALL PRELOC (*130,Z(BUF1),GEOMP) NOGEOM = 1 C C CHECK TO SEE IF MPC SET IS SELECTED OR IF RIGID ELEMENTS EXIST C IF (MPCSET.EQ.0 .AND. RIGID.EQ.0) GO TO 130 C C OPEN RGT FILE C FILE = RGT CALL GOPEN (RGT,Z(BUF3),1) C C IF RIGID ELEMENTS EXIST, GENERATE THEIR COEFFICIENTS C NOGOO = NOGO NOGO = 0 IF (RIGID .EQ. 1) CALL CRIGGP (N23) IF (NOGO .NE. 0) GO TO 2540 NOGO = NOGOO C C OPEN SCRATCH DATA FILE C 130 FILE = SCR1 CALL OPEN (*2400,SCR1,Z(BUF2),WRTREW) C C CHECK TO SEE IF GEOMP FILE EXISTS C IF (NOGEOM .EQ. 0) GO TO 790 C C CHECK TO SEE IF MPC SET IS SELECTED OR IF RIGID ELEMENTS EXIST C IF (MPCSET.EQ.0 .AND. RIGID.EQ.0) GO TO 610 IF (MPCSET .NE. 0) GO TO 140 C C NO MPC SET IS SELECTED C MULTI = 0 IMPC = KNKL1 I = IMPC J = BUF3 - 1 GO TO 370 C C IF MPC SET IS SELECTED, DETERMINE IF SET IS ON MPCADD CARD. C IF NOT, SIMULATE AN MPCADD SET LIST WITH ONE SET = MPCSET. C 140 IMPCAD = KNKL1 NMPCAD = KNKL1 IMPC = IMPCAD + 2 I = IMPCAD Z(I) = MPCSET Z(I+1) = 0 FILE = GEOMP CALL LOCATE (*200,Z(BUF1),MPCADD,FLAG) 150 CALL READ (*2410,*200,GEOMP,ID,1,0,FLAG) IF (ID .EQ. MPCSET) GO TO 170 160 CALL FREAD (GEOMP,BUF,1,0) IF (BUF(1) .NE. -1) GO TO 160 GO TO 150 170 CALL READ (*2410,*190,GEOMP,BUF,1,0,FLAG) IF (BUF(1) .EQ. -1) GO TO 180 Z(I ) = BUF(1) Z(I+1) = 0 I = I + 2 GO TO 170 180 CALL FWDREC (*2410,GEOMP) 190 IMPC = I NMPCAD = I - 2 C C READ MPC CARDS. FOR EACH EQUATION WHOSE SET ID MATCHES A SET ID C IN THE MPCADD SET LIST, CONVERT THE GRID POINT AND COMPONENT NO. C (OR SCALAR NO.) TO A SIL VALUE. COMPUTE THE ROW AND COLUMN NO. C FOR THE POINT AND SAVE THIS ALONG WITH ITS VALUE. C 200 CALL LOCATE (*320,Z(BUF1),MPC,FLAG) J = BUF3 - 1 I = IMPC MULTI = 0 ASSIGN 260 TO RET ASSIGN 2460 TO RET1 ASSIGN 250 TO RET2 ASSIGN 270 TO RET3 210 CALL READ (*2410,*320,GEOMP,ID,1,0,FLAG) DO 220 K = IMPCAD,NMPCAD,2 IF (Z(K) .EQ. ID) GO TO 240 220 CONTINUE 230 CALL FREAD (GEOMP,BUF,3,0) IF (BUF(1) .NE. -1) GO TO 230 GO TO 210 240 MULTI = MULTI + 1 Z(K+1)= 1 IFL = 0 250 CALL FREAD (GEOMP,BUF,3,0) IF (BUF(1) .EQ. -1) GO TO 310 GPOINT = BUF(1) GO TO 2100 260 INDEX = 1 ICOMP = BUF(2) GO TO 2300 270 IF (ICOMP .NE. 0) GPOINT = GPOINT + ICOMP - 1 IF (IFL .EQ. 0) SILD = GPOINT IF (N23 .EQ. 3) GO TO 300 IF (GPOINT .GT. MASK15) GO TO 290 Z(I ) = ORF(LSHIFT(GPOINT,IHALF),SILD) Z(I+1) = BUF(3) 280 I = I + N23 INSUFF = 236 IF (I .GE. J) GO TO 2430 IFL = 1 GO TO 250 C C GPOINT IS TOO BIG TO BE PACKED INTO HALF A WORD. ABANDON COL. C AND ROW PACKING LOGIC, AND DO IT OVER AGAIN WITHOUT PACKING. C 290 N23 = 3 CALL REWIND (GEOMP) CALL FWDREC (*2410,GEOMP) GO TO 200 300 Z(I ) = GPOINT Z(I+1) = SILD Z(I+2) = BUF(3) GO TO 280 C C SAVE A LIST OF DEPENDENT SIL VALUES C 310 Z(J)= SILD J = J - 1 GO TO 210 C C DETERMINE IF ALL MPC SETS IN MPCADD SET LIST HAVE BEEN INPUT C 320 IF (NOGO .NE. 0) GO TO 2540 NOGOO = NOGO NOGO = 0 IGOTCH= 0 DO 350 K = IMPCAD,NMPCAD,2 IF (Z(K+1) .NE. 0) GO TO 340 NOGO = -1 IF (Z(K).EQ.200000000 .AND. IAXIF.NE.0) GO TO 350 IF (IAXIC .EQ. 0) GO TO 330 IF (Z(K).EQ.MPCAX1 .OR. Z(K).EQ.MPCAX2) GO TO 350 IF (Z(K) .EQ. 200000000) GO TO 350 330 NOGO = +1 BUF(1)= Z(K) BUF(2)= 0 CALL MESAGE (30,47,BUF) GO TO 350 340 IGOTCH= 1 350 CONTINUE IF (NOGO .EQ. 0) GO TO 370 IF (NOGO.EQ.-1 .AND. IGOTCH.EQ.1) GO TO 360 MPCSET= 0 MULTI = -1 MPCF1 = -1 MPCF2 = -1 IF (NOGO.EQ.-1 .AND. NOGOO.EQ.0) NOGO = 0 GO TO 600 360 CONTINUE IF (NOGO.EQ.-1 .AND. NOGOO.EQ.0) NOGO = 0 C C CHECK TO SEE IF RIGID ELEMENTS EXIST C 370 IF (RIGID .EQ. 0) GO TO 470 C C EXPAND THE DEPENDENT SET BY APPENDING RIGID ELEMENT C DATA TO MPC DATA C CALL GOPEN (RGT,Z(BUF3),0) CALL SKPREC (RGT,1) I1 = BUF3 - I CALL READ (*2410,*380,RGT,Z(I),I1,1,NRIGID) INSUFF = 3020 GO TO 2430 380 J = J - NRIGID MULTI = MULTI + NRIGID CALL SKPREC (RGT,-2) CALL READ (*2410,*410,RGT,Z(I),I1,1,FLAG) INSUFF = 3030 I2 = I1 390 CALL BCKREC (RGT) CALL READ (*2410,*400,RGT,Z(I),-I2,0,FLAG) CALL READ (*2410,*400,RGT,Z(I), I1,0,FLAG) I2 = I2 + I1 GO TO 390 400 FLAG = I2 + FLAG GO TO 440 C C RE-CODE COLUMN-ROW PACKED WORD IF NECESSARY FOR DATA JUST BROUGHT C IN FROM RIGID ELEMENTS C THEN READ THE LAST RECORD FROM RGT C 410 IF (N23 .EQ. 3) GO TO 430 I1 = I - 1 I2 = I1 I3 = I1 + FLAG 420 Z(I2+1) = ORF(LSHIFT(Z(I1+1),IHALF),Z(I1+2)) Z(I2+2) = Z(I1+3) I1 = I1 + 3 I2 = I2 + 2 IF (I1 .LT. I3) GO TO 420 FLAG = I2 - I + 1 C 430 INSUFF = 3050 440 I3 = I + FLAG IF (I3 .LT. J) GO TO 460 WRITE (OUTTAP,450) I,I3,J,FLAG,BUF3,NRIGID,N23 450 FORMAT (' GP4/3060 I,I3,J,FLAG,BUF3,NRIGID,N23 =',7I7) ICRQ = I - J GO TO 2430 460 I = I3 CALL READ (*2410,*2420,RGT,Z(J+1),NRIGID,1,FLAG) CALL CLOSE (RGT,CLSREW) CALL GOPEN (RGT,Z(BUF3),1) C C SORT THE LIST OF DEPENDENT SIL VALUES C THUS FORMING THE UM SUBSET C 470 II = J + 1 M = BUF3 - II NNX= BUF3 - 1 IF (M .EQ. 1) GO TO 510 CALL SORT (0,0,1,1,Z(II),M) C C CHECK FOR DEPENDENT COMPONENT ERRORS IN MPC/RIGID ELEMENT DATA C JJ = NNX - 1 NOLD = 0 JXX = 0 DO 490 J = II,JJ IF (Z(J) .EQ. NOLD) GO TO 490 IF (Z(J).NE.Z(J+1)) GO TO 490 NOLD = Z(J) NOGO = 1 JXX = JXX + 1 IF (JXX .GT. 50) GO TO 490 CALL PAGE2 (2) WRITE (OUTTAP,480) UFM,Z(J) 480 FORMAT (A23,' 2423, DEPENDENT COMPONENT SPECIFIED MORE THAN ONCE', 1 ' ON MPC CARDS AND/OR IN RIGID ELEMENTS. SIL =',I9) 490 CONTINUE IF (JXX .GT. 50) WRITE (OUTTAP,500) 500 FORMAT (//12X,12H... AND MORE,/) 510 IF (NOGO .NE. 0) GO TO 2540 CALL WRITE (SCR1,Z(II),M,1) C C SORT THE LIST OF CODED COL AND ROW NOS (OR UNCODED NOS) C THEN BLDPK EACH COL THUS FORMING THE RG MATRIX C N = I - IMPC NMPC= I - N23 J = IMPC IF (N23 .EQ. 3) CALL SORT2K (0,0,3,1,Z(J),N) IF (N23 .EQ. 2) CALL SORT (0,0,2,1,Z(J),N) C C CHECK FOR INDEPENDENT COMPONENT ERRORS IN MPC DATA C KJ = J + N - 2*N23 NOLD = 0 NOGO = 0 DO 540 KK = J,KJ,N23 IF (Z(KK) .EQ. NOLD) GO TO 540 IF (Z(KK) .NE. Z(KK+N23)) GO TO 540 IF (N23.EQ.3 .AND. Z(KK+1).NE.Z(KK+N23+1)) GO TO 540 NOLD = Z(KK) NOGO = 1 JJ = NOLD IF (N23 .EQ. 2) JJ = RSHIFT(NOLD,IHALF) CALL PAGE2 (-2) WRITE (OUTTAP,530) UFM,JJ 530 FORMAT (A23,' 3180, INDEPENDENT COMPONENT SPECIFIED MORE THAN ', 1 'ONCE IN AN MPC RELATIONSHIP. SIL =',I6) 540 CONTINUE IF (NOGO .NE. 0) GO TO 2540 NCOL= 1 M = BUF3 - I N231= N23 - 1 550 CALL BLDPK (1,1,RGT,0,0) 560 IF (J .GT. NMPC) GO TO 590 JJ = Z(J) IF (N23 .EQ. 2) JJ = RSHIFT(Z(J),IHALF) IF (JJ .GT. NCOL) GO TO 590 IX = Z(J+1) IF (N23 .EQ. 2) IX = ANDF(Z(J),MASK16) X(1) = Z(J+N231) DO 570 NN1 = II,NNX IF (IX .EQ. Z(NN1)) GO TO 580 570 CONTINUE GO TO 2540 580 IX = NN1 - II + 1 CALL ZBLPKI J = J + N23 GO TO 560 590 CALL BLDPKN (RGT,0,MCB) NCOL = NCOL + 1 IF (NCOL .LE. LUSET) GO TO 550 MCB(3) = MULTI CALL WRTTRL (MCB) 600 CALL CLOSE (RGT,CLSREW) C C READ OMIT CARDS (IF PRESENT). C 610 I = KNKL1 CALL LOCATE (*650,Z(BUF1),OMIT,FLAG) ASSIGN 630 TO RET ASSIGN 2470 TO RET1 ASSIGN 620 TO RET2 ASSIGN 640 TO RET3 OMIT1 = 1 620 CALL READ (*2410,*650,GEOMP,BUF,2,0,FLAG) GPOINT= BUF(1) GO TO 2100 630 INDEX = 3 ICOMP = BUF(2) GO TO 2300 640 IF (ICOMP .NE. 0) GPOINT = GPOINT + ICOMP - 1 Z(I)= GPOINT I = I + 1 IF (I .LE. BUF3) GO TO 620 ICRQ = I - BUF3 INSUFF = 345 GO TO 2430 C C READ OMIT1 CARDS (IF PRESENT). C 650 IF (NOGO .NE. 0) GO TO 2540 CALL LOCATE (*720,Z(BUF1),OMITX1,FLAG) OMIT1 = 1 ASSIGN 680 TO RET ASSIGN 2470 TO RET1 ASSIGN 670 TO RET2 ASSIGN 690 TO RET3 660 CALL READ (*2410,*720,GEOMP,BUF,1,0,FLAG) IF (BUF(1) .NE. 0) CALL SCALEX (1,BUF(1),BUF(8)) 670 CALL READ (*2410,*720,GEOMP,BUF(2),1,0,FLAG) IF (BUF(2) .EQ. -1) GO TO 660 GPOINT = BUF(2) GO TO 2100 680 INDEX = 5 ICOMP = BUF(1) GO TO 2300 690 IF (ICOMP .NE. 0) GO TO 700 Z(I) = GPOINT I = I + 1 GO TO 670 700 GPOINT = GPOINT - 1 DO 710 IJK = 1,6 IF (BUF(IJK+7) .EQ. 0) GO TO 670 Z(I) = GPOINT+BUF(IJK+7) I = I + 1 710 CONTINUE GO TO 670 720 IF (OMIT1 .NE. 1) GO TO 730 IF (NOGO .NE. 0) GO TO 2540 C C SORT OMIT AND OMIT1 DATA AND WRITE IT ON SCR1. C N = I - KNKL1 I = KNKL1 CALL SORT (0,0,1,1,Z(I),N) CALL WRITE (SCR1,Z(I),N,1) C C READ SUPORT CARDS (IF PRESENT) C 730 CALL LOCATE (*780,Z(BUF1),SUPORT,FLAG) REACT = 1 I = KNKL1 ASSIGN 750 TO RET ASSIGN 2480 TO RET1 ASSIGN 740 TO RET2 ASSIGN 760 TO RET3 740 CALL READ (*2410,*770,GEOMP,BUF,2,0,FLAG) GPOINT = BUF(1) GO TO 2100 750 INDEX = 7 ICOMP = BUF(2) GO TO 2300 760 IF (ICOMP .NE. 0) GPOINT = GPOINT + ICOMP - 1 Z(I) = GPOINT I = I + 1 IF (I .LT. BUF3) GO TO 740 ICRQ = I - BUF3 INSUFF = 445 GO TO 2430 770 IF (NOGO .NE. 0) GO TO 2540 N = I - KNKL1 I = KNKL1 CALL SORT (0,0,1,1,Z(I),N) CALL WRITE (SCR1,Z(I),N,1) C C READ THE GPDT AND EXTRACT CONSTRAINED POINTS (IF ANY) C 780 CALL CLOSE (GEOMP,CLSREW) 790 FILE = GPDT ASSIGN 810 TO RET CALL GOPEN (GPDT,Z(BUF1),0) 800 CALL READ (*2400,*820,GPDT,BUF,7,0,FLAG) IF (BUF(7) .EQ. 0) GO TO 800 J = BUF(1) + KM BUF(1) = Z(J) CALL SCALEX (BUF,BUF(7),BUF(8)) GO TO 2200 810 CALL WRITE (SCR1,BUF(8),N,0) UGSET = 1 GO TO 800 820 IF (UGSET .GT. 0) CALL WRITE (SCR1,0,0,1) CALL CLOSE (GPDT,CLSREW) FILE = GEOMP IF (NOGEOM .EQ. 0) GO TO 830 CALL PRELOC (*2400,Z(BUF1),GEOMP) GO TO 840 830 IF (MPCSET .NE. 0) CALL MESAGE (30,47,MPCSET) IF (SPCSET .NE. 0) CALL MESAGE (30,53,SPCSET) IF (MPCSET.NE.0 .OR. SPCSET.NE.0) NOGO = +1 GO TO 1280 C C IF SPC SET IS SELECTED, READ SPCADD CARDS (IF PRESENT). C DETERMINE IF SET ID IS ON SPCADD CARD. C IF NOT, SIMULATE AN SPCADD SET LIST WITH ONE SET = SPCSET. C 840 IF (SPCSET .EQ. 0) GO TO 1150 ISPCAD = KNKL1 NSPCAD = KNKL1 ISPC = ISPCAD + 2 I = ISPCAD Z(I ) = SPCSET Z(I+1) = 0 CALL LOCATE (*900,Z(BUF1),SPCADD,FLAG) 850 CALL READ (*2410,*900,GEOMP,ID,1,0,FLAG) IF (ID .EQ. SPCSET) GO TO 870 860 CALL FREAD (GEOMP,ID,1,0) IF (ID .NE. -1) GO TO 860 GO TO 850 870 CALL READ (*2410,*890,GEOMP,BUF,1,0,FLAG) IF (BUF(1) .EQ. -1) GO TO 880 Z(I ) = BUF(1) Z(I+1) = 0 I = I + 2 GO TO 870 880 CALL FWDREC (*2410,GEOMP) 890 ISPC = I NSPCAD = I - 2 C C READ SPC1 AND SPC CARDS. C FOR EACH SET ID WHICH IS IN THE SPCADD SET LIST, C CONVERT THE GRID POINT NO. AND COMPONENT VALUE (OR SCALAR NO.) C TO AN SIL VALUE. SAVE A LIST IN CORE OF SIL VALUES AND C ENFORCED DISPLACEMENT (ON SPC1 CARDS, ENF. DISPL. = 0.) C 900 I = ISPC GO TO 1010 C C SPC1 PROCESSING EXECUTES AFTER SPC PROCESSING C 910 IF (NOGO .NE. 0) GO TO 2540 CALL LOCATE (*1130,Z(BUF1),SPC1,FLAG) ASSIGN 970 TO RET ASSIGN 2490 TO RET1 ASSIGN 960 TO RET2 ASSIGN 980 TO RET3 920 CALL READ (*2410,*1130,GEOMP,ID,1,0,FLAG) DO 930 K = ISPCAD,NSPCAD,2 IF (Z(K) .EQ. ID) GO TO 950 930 CONTINUE 940 CALL FREAD (GEOMP,BUF,1,0) IF (BUF(1) .NE. -1) GO TO 940 GO TO 920 950 Z(K+1) = 1 CALL FREAD (GEOMP,BUF,1,0) SINGLE = 1 IF (BUF(1) .NE. 0) CALL SCALEX (1,BUF(1),BUF(8)) 960 CALL READ (*2410,*920,GEOMP,BUF(2),1,0,FLAG) IF (BUF(2) .LT. 0) GO TO 920 GPOINT = BUF(2) GO TO 2100 970 INDEX = 9 ICOMP = BUF(1) GO TO 2300 980 IF (ICOMP .NE. 0) GO TO 990 Z(I ) = GPOINT Z(I+1) = 0 I = I + 2 GO TO 960 990 GPOINT = GPOINT - 1 DO 1000 IJK = 1,6 IF (BUF(IJK+7) .EQ. 0) GO TO 960 Z(I ) = GPOINT+BUF(IJK+7) Z(I+1) = 0 I = I + 2 1000 CONTINUE GO TO 960 C C PROCESSING OF SPC CARDS EXECUTES FIRST. C 1010 CALL LOCATE (*910,Z(BUF1),SPC,FLAG) ASSIGN 1050 TO RET ASSIGN 2530 TO RET1 ASSIGN 1020 TO RET2 ASSIGN 1060 TO RET3 1020 CALL READ (*2410,*1090,GEOMP,BUF,4,0,FLAG) DO 1030 K = ISPCAD,NSPCAD,2 IF (Z(K) .EQ. BUF(1)) GO TO 1040 1030 CONTINUE GO TO 1020 1040 SINGLE = 1 Z(K+1) = 1 GPOINT = BUF(2) GO TO 2100 1050 INDEX = 11 ICOMP = BUF(3) GO TO 2300 1060 IF (ICOMP .NE. 0) GO TO 1070 Z(I ) = GPOINT Z(I+1) = BUF(4) I = I+2 GO TO 1020 1070 CALL SCALEX (GPOINT,BUF(3),BUF(8)) DO 1080 IJK = 1,6 IF (BUF(IJK+7) .EQ. 0) GO TO 1020 Z(I ) = BUF(IJK+7) Z(I+1) = BUF(4) I = I + 2 1080 CONTINUE GO TO 1020 1090 IF (NOGO .NE. 0) GO TO 2540 N = I - ISPC IF (N .LE. 2) GO TO 910 C C CHECK FOR DUPLICATELY DEFINED ENFORCED DISPLACEMENTS ON SPC CARDS C CALL SORT (0,0,2,1,Z(ISPC),N) N = N - 2 NOLD = 0 DO 1110 K = 1,N,2 IF (Z(ISPC+K-1) .EQ. NOLD) GO TO 1110 IF (Z(ISPC+K-1) .NE. Z(ISPC+K+1)) GO TO 1110 IF (Z(ISPC+K).EQ.0 .AND. Z(ISPC+K+2).EQ.0) GO TO 1110 NOLD = Z(ISPC+K-1) NOGO = 1 CALL PAGE2 (3) WRITE (OUTTAP,1100) UFM,NOLD 1100 FORMAT (A23,' 3147, ENFORCED DISPLACEMENT ON SPC CARDS SPECIFIED', 1 ' MORE THAN ONCE', /5X,'FOR THE SAME COMPONENT. SIL VALUE =' 2, I10) 1110 CONTINUE IF (NOGO .NE. 0) GO TO 2540 GO TO 910 C C FLUID PROBLEM AND NO SPC-S AT ALL. C 1120 SPCSET = 0 GO TO 840 1130 NSPC = I - 2 ICRQ = NSPC - BUF3 INSUFF = 740 IF (ICRQ .GT. 0) GO TO 2430 C C DETERMINE IF ALL SPC SETS IN SPCADD SET LIST HAVE BEEN DEFINED C IF (NOGO .NE. 0) GO TO 2540 DO 1140 K = ISPCAD,NSPCAD,2 IF (Z(K+1) .NE. 0) GO TO 1140 IF (IAXIF.NE.0 .AND. Z(K).EQ.200000000) GO TO 1120 NOGO = 1 BUF(1) = Z(K) BUF(2) = 0 CALL MESAGE (30,53,BUF) 1140 CONTINUE IF (NOGO .NE. 0) GO TO 2540 C C SORT THE SPC LIST AND WRITE IT ON SCR1 C N = NSPC - ISPC + 2 CALL SORT (0,0,2,1,Z(ISPC),N) CALL WRITE (SCR1,Z(ISPC),N,1) C C READ ASET CARDS (IF PRESENT) C 1150 I = KNKL1 CALL LOCATE (*1190,Z(BUF1),ASET,FLAG) ASSIGN 1170 TO RET ASSIGN 2470 TO RET1 ASSIGN 1160 TO RET2 ASSIGN 1180 TO RET3 ASETX = 1 1160 CALL READ (*2410,*1190,GEOMP,BUF,2,0,FLAG) GPOINT = BUF(1) GO TO 2100 1170 INDEX = 15 ICOMP = BUF(2) GO TO 2300 1180 IF (ICOMP .NE. 0) GPOINT = GPOINT + ICOMP - 1 Z(I) = GPOINT I = I + 1 IF (I .LE. BUF3) GO TO 1160 ICRQ = I - BUF3 INSUFF = 1445 GO TO 2430 C C READ ASET1 CARDS (IF PRESENT) C 1190 IF (NOGO .NE. 0) GO TO 2540 CALL LOCATE (*1260,Z(BUF1),ASET1,FLAG) ASETX = 1 ASSIGN 1220 TO RET ASSIGN 2470 TO RET1 ASSIGN 1210 TO RET2 ASSIGN 1230 TO RET3 1200 CALL READ (*2410,*1260,GEOMP,BUF,1,0,FLAG) IF (BUF(1) .NE. 0) CALL SCALEX (1,BUF(1),BUF(8)) 1210 CALL READ (*2410,*1260,GEOMP,BUF(2),1,0,FLAG) IF (BUF(2) .EQ. -1) GO TO 1200 GPOINT = BUF(2) GO TO 2100 1220 INDEX = 17 ICOMP = BUF(1) GO TO 2300 1230 IF (ICOMP .NE. 0) GO TO 1240 Z(I) = GPOINT I = I + 1 GO TO 1210 1240 GPOINT = GPOINT - 1 DO 1250 IJK = 1,6 IF (BUF(IJK+7) .EQ. 0) GO TO 1210 Z(I) = GPOINT + BUF(IJK+7) I = I + 1 1250 CONTINUE GO TO 1210 1260 IF (ASETX .NE. 1) GO TO 1270 IF (NOGO .NE. 0) GO TO 2540 C C SORT ASET AND ASET1 DATA AND WRITE IT ON SCR1 C N = I - KNKL1 I = KNKL1 CALL SORT (0,0,1,1,Z(I),N) CALL WRITE (SCR1,Z(I),N,1) 1270 CALL CLOSE (GEOMP,CLSREW) 1280 CALL CLOSE (SCR1,CLSREW) C C FORM THE BASIC USET BY READING EACH OF THE SUBSETS AND C TURNING ON THE APPROPRIATE BIT IN THE APPROPRIATE WORD C FILE = SCR1 CALL OPEN (*2400,SCR1,Z(BUF2),RDREW) DO 1290 K = 1,LUSET 1290 Z(K) = 0 BUF(1) = MULTI BUF(2) = OMIT1 BUF(3) = REACT BUF(4) = USGSET BUF(5) = SINGLE BUF(6) = ASETX ICOUNT = 0 DO 1360 K = 1,6 IF (BUF(K) .LT. 0) GO TO 1360 IF (K .LT. 5) ICOUNT = ICOUNT + 1 GO TO (1300,1310,1300,1300,1300,1310), K 1300 MCBUST(5) = ORF(MCBUST(5),MASK(K)) NOSETS = 1 IF (K .EQ. 5) GO TO 1350 1310 CALL READ (*2410,*1360,SCR1,J,1,0,FLAG) IF (K .EQ. 2) GO TO 1340 IF (K .EQ. 6) GO TO 1330 IF (ANDF(Z(J),MASK(K)) .NE. MASK(K)) GO TO 1340 DUP = 1 IF (IFLAG .NE. 0) GO TO 1320 FILE = USET CALL OPEN (*2400,USET,Z(BUF1),WRTREW) IFLAG = 1 FILE = SCR1 1320 BUF(1) = J BUF(2) = K CALL WRITE (USET,BUF(1),2,0) GO TO 1340 1330 IF (ANDF(Z(J),MSKUA) .NE. 0) GO TO 1310 1340 Z(J) = ORF(Z(J),MASK(K)) GO TO 1310 1350 CALL READ (*2410,*1360,SCR1,BUF(7),2,0,FLAG) J = BUF(7) Z(J) = ORF(Z(J),MASK(K)) GO TO 1350 1360 CONTINUE IF (DUP .EQ. 0) GO TO 1370 CALL WRITE (USET,0,0,1) CALL CLOSE (USET,CLSREW) 1370 CALL CLOSE (SCR1,CLSREW) C C THE FOLLOWING CONVENTION WILL BE USED WITH REGARD TO DEGREES OF C FREEDOM NOT SPECIFICALLY INCLUDED OR OMITTED- C 1. IF ASET OR ASET1 CARDS ARE PRESENT, UNSPECIFIED DEGREES OF C FREEDOM WILL BE OMITTED. C 2. IF ASET OR ASET1 CARDS ARE NOT PRESENT AND OMIT OR OMIT1 C CARDS ARE PRESENT, UNSPECIFIED DEGREES OF FREEDOM WILL BE C INCLUDED IN THE ANALYSIS SET. C 3. IF NO ASET, ASET1, OMIT, OR OMIT 1 CARDS ARE PRESENT ALL C UNSPECIFIED DEGREES OF FREEDOM WILL BE INCLUDED IN THE C ANALYSIS SET. C 4. IF BOTH ASET OR ASET1 CARDS AND OMIT OR OMIT1 CARDS ARE C SUPPLIED, UNSPECIFIED DEGREES OF FREEDOM WILL BE OMITTED. C MSKRST = MASK(2) IF (ASETX .GT. 0) GO TO 1380 MSKRST = MASK(6) IMSK = 0 1380 DO 1390 K = 1, LUSET IF (ANDF(MSKCK,Z(K)) .NE. 0) GO TO 1390 IMSK = MSKRST Z(K) = ORF(Z(K),MSKRST) 1390 CONTINUE IF (IMSK .EQ. MASK(6)) ASETX = 1 IF (IMSK .EQ. MASK(2)) OMIT1 = 1 C C CALL SUBROUTINE GP4SP TO EXAMINE GRID POINT SINGULARITIES C CALL GP4SP (BUF2,BUF3,BUF4) C C TURN ON CERTAIN FLAGS IF THERE ARE OMIT OR ASET C DEGREES OF FREEDOM C OMIT1 = -1 DO 1400 K = 1,LUSET IF (ANDF(Z(K),MSKUO) .EQ. 0) GO TO 1400 MCBUST(5) = ORF(MCBUST(5),MASK(2)) NOSETS = 1 OMIT1 = 1 GO TO 1410 1400 CONTINUE 1410 DO 1420 K = 1,LUSET IF (ANDF(Z(K),MSKUA) .EQ. 0) GO TO 1420 MCBUST(5) = ORF(MCBUST(5),MASK(6)) NOL = 1 GO TO 1430 1420 CONTINUE C 1430 CALL OPEN (*2400,SCR1,Z(BUF2),RDREW) CALL SKPREC (SCR1,ICOUNT) C C OPEN YS FILE. WRITE SPCSET IN YS HEADER. C IF NO USB SET (FROM SPC AND SPC1 CARDS), WRITE NULL COLUMN C FOR YS VECTOR. IF USB SET IS PRESENT, BUILD THE YS VECTOR. C FILE = SCR1 CALL OPEN (*1440,YS,Z(BUF3),WRTREW) NOYS = 1 CALL FNAME (YS,BUF) BUF(3) = SPCSET CALL WRITE (YS,BUF,3,1) 1440 IX = 0 II = 1 IF (SINGLE .GT. 0) GO TO 1450 IF (NAUTO.GT.0 .OR. USGSET.GT.0) SINGLE = 1 IF (NOYS .NE. 0) CALL BLDPK (1,1,YS,0,0) GO TO 1490 1450 IF (NOYS .NE. 0) CALL BLDPK (1,1,YS,0,0) 1460 CALL READ (*2410,*1490,SCR1,BUF,2,0,FLAG) J = BUF(1) IF (BUF(2) .EQ. 0) GO TO 1460 DO 1470 K = II,J IF (ANDF(Z(K),MSKUS) .NE. 0) IX = IX + 1 1470 CONTINUE II = J + 1 X(1) = BUF(2) IF (NOYS .NE. 0) GO TO 1480 IF (NOGOOF .NE. 0) GO TO 1460 NOGO = 1 NOGOOF = 1 CALL MESAGE (30,132,BUF) GO TO 1460 1480 CALL ZBLPKI GO TO 1460 1490 IF (NOYS .NE. 0) CALL BLDPKN (YS,0,MCBYS) IF (II .GT. LUSET) GO TO 1510 DO 1500 K = II,LUSET IF (ANDF(Z(K),MSKUS) .NE. 0) IX = IX + 1 1500 CONTINUE 1510 MCBYS(3) = IX IF (NOYS .EQ. 0) GO TO 1520 CALL WRTTRL (MCBYS) CALL CLOSE (YS,CLSREW) 1520 CALL CLOSE (SCR1,CLSREW) C IF (L21+L22.GT.0 .OR. IDSUB.GT.0) CALL GP4PRT (BUF1) IF (NAUTO .EQ. 0) GO TO 1540 C C CHANGE AUTO SPC FLAGS TO BOUNDARY SPC FLAGS C J = 0 DO 1530 K = 1,LUSET IF (ANDF(Z(K),MSKUS) .EQ. 0) GO TO 1530 IF (ANDF(Z(K),MSKUSG).NE.0 .OR. ANDF(Z(K),MSKUSB).NE.0) 1 GO TO 1530 Z(K) = MASK(5) J = 1 1530 CONTINUE IF (J .EQ. 1) MCBUST(5) = ORF(MCBUST(5),MASK(5)) C 1540 FILE = USET IF (DUP .EQ. 0) GO TO 1570 CALL OPEN (*2400,USET,Z(BUF1),RDREW) FILE = SCR1 CALL OPEN (*2400,SCR1,Z(BUF2),WRTREW) FILE = USET 1550 CALL READ (*1560,*1560,USET,BUF(1),2,0,FLAG) CALL WRITE (SCR1,BUF(1),2,0) GO TO 1550 1560 CALL WRITE (SCR1,0,0,1) CALL CLOSE (USET,CLSREW) 1570 CALL OPEN (*2400,USET,Z(BUF1),WRTREW) CALL FNAME (USET,BUF) BUF(3) = SPCSET BUF(4) = MPCSET CALL WRITE (USET,BUF,4,1) CALL WRITE (USET,Z(1),LUSET,1) IF (NOL .EQ. 1) MCBUST(5)= ORF(MCBUST(5),MASK(6)) C C SEPARATE TRAILER WORD 4 INTO TWO PARTS C MCBUST(4) = RSHIFT(MCBUST(5),IHALF) MCBUST(5) = ANDF(MCBUST(5),COMPLF(LSHIFT(MCBUST(4),IHALF))) CALL WRTTRL (MCBUST) CALL CLOSE (USET,CLSREW) C C PROCESS USET FOR CONSISTENCY OF DISPLACEMENT SET DEFINITIONS. C EACH POINT IN USET MAY BELONG TO AT MOST ONE DEPENDENT SUBSET. C FLAG = 0 MASK(1) = MSKUM MASK(2) = MSKUS MASK(3) = MSKUO MASK(4) = MSKUR MSKUMS = ORF(MSKUM,MSKUS) MSKUOR = ORF(MSKUO,MSKUR) BUF( 1) = ORF(MSKUS,MSKUOR) BUF( 2) = ORF(MSKUM,MSKUOR) BUF( 3) = ORF(MSKUR,MSKUMS) BUF(4) = ORF(MSKUO,MSKUMS) MSKALL = ORF(MSKUMS,MSKUOR) MSKAL = ORF(MSKALL,MSKUL) DO 1620 I = 1,LUSET IUSET = Z(I) IDEPN = ANDF(MSKAL,IUSET) DO 1580 IK = 1,4 IF (ANDF(MAK(IK),IDEPN) .EQ. MAK(IK)) GO TO 1600 1580 CONTINUE IDEPN = ANDF(IUSET,MSKALL) IF (IDEPN .EQ. 0) GO TO 1620 DO 1590 J = 1,4 MSK1 = MASK(J) MSK2 = BUF( J) IF (ANDF(IDEPN,MSK1) .EQ. 0) GO TO 1590 IF (ANDF(IDEPN,MSK2) .NE. 0) GO TO 1600 1590 CONTINUE GO TO 1620 1600 IF (FLAG.NE.0 .OR. IFLAG.NE.0) GO TO 1610 FILE = SCR1 CALL OPEN (*2400,SCR1,Z(BUF1),WRTREW) 1610 BUF(5) = I BUF(6) = IDEPN FLAG = 1 CALL WRITE (SCR1,BUF(5),2,0) 1620 CONTINUE 1630 IF (MPCF1.GT.0 .OR. SINGLE.GT.0 .OR. OMIT1.GT.0 .OR. 1 REACT.GT.0) NOSETS = 1 IF (MPCF1.EQ.-1 .AND. SINGLE.EQ.-1 .AND. OMIT1.EQ.-1) NOA = -1 IF (ANDF(MSKUA,MCBUST(5)).NE.0 .OR. OMIT1.LT.0) GO TO 1650 CALL PAGE2 (2) WRITE (OUTTAP,1640) UFM 1640 FORMAT (A23,' 2403, INVALID TO HAVE AN O-SET WITH A NULL A-SET.') NOGO = 1 1650 CONTINUE IF (NOGO .NE. 0) GO TO 2540 IF (IFLAG.NE.0 .OR. FLAG.NE.0) GO TO 1920 C C RECOMPUTE YS MATRIX TO ACCOUNT FOR SPCD CARDS C C IF (NOYS.EQ.0 .OR . NOGEOM.EQ.0) GO TO 1910 C BRING EQEXIN,SIL,AND USET BACK INTO CORE C ASSIGN 1660 TO RET GO TO 80 1660 CALL GOPEN (USET,Z(BUF1),0) FILE = USET CALL READ (*2410,*1670,USET,Z(KNKL1),BUF4-KNKL1,1,LUSET) ICRQ = BUF4 INSUFF = 9711 GO TO 2430 1670 CALL CLOSE (USET,1) C C CONVERT USET POINTERS INTO SILA VALUES C M = KNKL1 N = KNKL1 + LUSET - 1 IX = 0 DO 1690 I = M,N IF (ANDF(Z(I),MSKUS) .NE. 0) GO TO 1680 Z(I) = 0 GO TO 1690 1680 IX = IX + 1 Z(I)= IX 1690 CONTINUE C C POSITION CASECC C FILE = CASECC ILOAD = N + 1 ICRQ = N + 2*NSKP1 + 1 - BUF4 INSUFF = 977 IF (ICRQ .GT. 0) GO TO 2430 CALL GOPEN (CASECC,Z(BUF1),0) CALL SKPREC (CASECC,NSKIP-1) DO 1710 I = 1,NSKP1 1700 CALL FREAD (CASECC,BUF,16,1) IF (BUF(16) .NE. 0) GO TO 1700 K = ILOAD + 2*(I-1) Z(K ) = BUF(4) Z(K+1) = 0 1710 CONTINUE CALL CLOSE (CASECC,CLSREW) C C CONVERT SPCD CARD TO SILA + VALUE AND WRITE ON SCR2 C CALL GOPEN (SCR2,Z(BUF2),1) FILE = GEOMP CALL PRELOC (*2400,Z(BUF1),GEOMP) CALL LOCATE (*1830,Z(BUF1),SPCD,FLAG) NN = 2*NSKP1 + ILOAD - 2 IOLD = 0 IRECN = 0 1720 CALL READ (*2410,*1820,GEOMP,BUF,4,0,FLAG) DO 1730 I = ILOAD,NN,2 IF (BUF(1) .EQ. Z(I)) GO TO 1740 1730 CONTINUE C C GO ON TO NEXT SET C GO TO 1720 C 1740 IF (BUF(1) .EQ. IOLD) GO TO 1760 IF (IOLD .NE. 0) CALL WRITE (SCR2,0,0,1) IOLD = BUF(1) IRECN = IRECN + 1 DO 1750 I = ILOAD,NN,2 IF (IOLD .EQ. Z(I)) Z(I+1) = IRECN 1750 CONTINUE 1760 GPOINT = BUF(2) ASSIGN 1770 TO RET ASSIGN 2530 TO RET1 ASSIGN 1720 TO RET2 ASSIGN 1780 TO RET3 GO TO 2100 C C FOUND SIL C 1770 INDEX = 13 ICOMP = BUF(3) GO TO 2300 1780 IF (ICOMP .NE. 0) GO TO 1790 M = KNKL1 + GPOINT - 1 IF (Z(M) .EQ. 0) GO TO 1810 MCB(1) = Z(M) MCB(2) = BUF(4) CALL WRITE (SCR2,MCB,2,0) GO TO 1720 C C BREAK UP COMPONENTS C 1790 CALL SCALEX (GPOINT,BUF(3),BUF(8)) DO 1800 I = 1,6 IF (BUF(I+7) .EQ. 0) GO TO 1720 M = KNKL1 + BUF(I+7) - 1 IF (Z(M) .EQ. 0) GO TO 1810 MCB(1) = Z(M) MCB(2) = BUF(4) CALL WRITE (SCR2,MCB,2,0) 1800 CONTINUE GO TO 1720 1810 N = 108 BUF(1) = BUF(2) BUF(2) = BUF(I+7) - GPOINT GO TO 2520 C C END OF SPCD-S C 1820 IF (NOGO .NE. 0) GO TO 2540 CALL WRITE (SCR2,0,0,1) 1830 CALL CLOSE (GEOMP,1) CALL CLOSE (SCR2,1) IF (SINGLE .LT. 0) GO TO 1910 C C BRING IN OLD YS C N = 2*NSKP1 DO 1840 I = 1,N K = ILOAD + I - 1 1840 Z(I) = Z(K) IOYS = N INYS = IOYS + IX ICRQ = INYS + IX - BUF4 INSUFF = 988 IF (ICRQ .GT. 0) GO TO 2430 MCB(1) = YS CALL RDTRL (MCB) MCB(2) = 0 MCB(6) = 0 MCB(7) = 0 CALL GOPEN (YS,Z(BUF1),0) ITB = MCB(5) ITA1 = ITB ITB1 = ITB INCR = 1 INCR1= 1 II = 1 II1 = 1 JJ = MCB(3) JJ1 = JJ DO 1850 I = 1,IX RZ(IOYS+I) = 0.0 1850 CONTINUE CALL UNPACK (*1860,YS,RZ(IOYS+1)) 1860 CALL CLOSE (YS,CLSREW) CALL GOPEN (YS,Z(BUF1),1) CALL GOPEN (SCR2,Z(BUF2),0) FILE = SCR2 DO 1900 I = 1,N,2 C C COPY OLD YS TO NEW YS C DO 1870 K = 1,IX RZ(INYS+K) = RZ(IOYS+K) 1870 CONTINUE IF (Z(I+1) .EQ. 0) GO TO 1890 C C POSITION SCR2 C CALL SKPREC (SCR2,Z(I+1)-1) 1880 CALL READ (*2410,*1890,SCR2,BUF,2,0,FLAG) K = BUF(1) + INYS RZ(K) = BUFR(2) GO TO 1880 C C PUT OUT COLUMN C 1890 CALL PACK (RZ(INYS+1),YS,MCB) CALL REWIND (SCR2) CALL FWDREC (*2410,SCR2) 1900 CONTINUE CALL CLOSE (YS,1) CALL WRTTRL (MCB) CALL CLOSE (SCR2,1) 1910 IF (NOGO .NE. 0) GO TO 2540 IF (FLAG .NE. 0) GO TO 1920 IF (IOGPST .EQ. 1) CALL MESAGE (17,IAUTSP,0) RETURN C C INCONSISTENT DISPLACEMENT SET DEFINITIONS-- C READ EQEXIN AND SIL INTO CORE. FOR EACH INCONSISTANT DEFINITION, C LOOK UP EXTERNAL NUMBER AND QUEUE MESSAGE. C 1920 CALL WRITE (SCR1,0,0,1) CALL CLOSE (SCR1,CLSREW) ASSIGN 1930 TO RET GO TO 80 1930 CALL OPEN (*2400,SCR1,Z(BUF1),RDREW) ISIL = KM + 1 NEQX = KN - 1 Z(KNKL1) = LUSET + 1 1940 CALL READ (*2080,*2080,SCR1,BUF(5),2,0,IFLG) DO 1950 I = ISIL,KNKL1 IF (Z(I+1) .GT. BUF(5)) GO TO 1960 1950 CONTINUE 1960 INTRNL = I - KM KOMP = BUF(5) - Z(I) + 1 IF (Z(I+1)-Z(I) .EQ. 1) KOMP = 0 DO 1970 J = 1,NEQX,2 IF (Z(J+1) .EQ. INTRNL) GO TO 1980 1970 CONTINUE 1980 IF (DUP .EQ. 0) GO TO 2070 IF (IFLAG.EQ.0) GO TO 2070 CALL PAGE2 (2) GO TO (1990,1940,2010,2030), IB6 1990 IF (KOMP .EQ. 0) GO TO 2000 NOGO = 1 WRITE (OUTTAP,2050) UFM,Z(J),KOMP,MSET GO TO 1940 2000 WRITE (OUTTAP,2060) UFM,Z(J),MSET NOGO = 1 GO TO 1940 2010 IF (KOMP .EQ. 0) GO TO 2020 WRITE (OUTTAP,2050) UFM,Z(J),KOMP,R NOGO = 1 GO TO 1940 2020 WRITE (OUTTAP,2060) UFM,Z(J),R NOGO = 1 GO TO 1940 2030 IF (KOMP .EQ. 0) GO TO 2040 WRITE (OUTTAP,2050) UFM,Z(J),KOMP,SG NOGO = 1 GO TO 1940 2040 WRITE (OUTTAP,2060) UFM,Z(J),SG NOGO = 1 GO TO 1940 2050 FORMAT (A23,' 2152, GRID POINT',I9,' COMPONENT',I3, 1 ' DUPLICATELY DEFINED IN THE ',A4,5H SET.) 2060 FORMAT (A23,' 2153, SCALAR POINT',I9,' DUPLICATELY DEFINED IN ', 1 'THE ',A4,5H SET.) 2070 BUF(7) = Z(J) BUF(8) = KOMP IF (ANDF(BUF(6),MSKUM) .NE. 0) BUF(8)= BUF(8) + 10 IF (ANDF(BUF(6),MSKUS) .NE. 0) BUF(8)= BUF(8) + 100 IF (ANDF(BUF(6),MSKUO) .NE. 0) BUF(8)= BUF(8) + 1000 IF (ANDF(BUF(6),MSKUR) .NE. 0) BUF(8)= BUF(8) + 10000 IF (ANDF(BUF(6),MSKUL) .NE. 0) BUF(8)= BUF(8) + 100000 CALL MESAGE (30,101,BUF(7)) GO TO 1940 2080 IF (DUP .EQ. 0) GO TO 2090 IF (IFLAG .EQ. 0) GO TO 2090 IFLAG = 0 IF (FLAG .NE. 0) GO TO 1940 CALL CLOSE (SCR1,CLSREW) GO TO 1630 2090 CALL CLOSE (SCR1,CLSREW) GO TO 2540 C C C INTERNAL SUBROUTINE TO PERFORM BINARY SEARCH IN EQEXIN C AND CONVERT THE EXTERNAL NUMBER TO A SIL VALUE AND A C CORRESPONDING TYPE CODE C 2100 KLO = 0 KHI = KN2 LASTK = 0 2110 K = (KLO+KHI+1)/2 IF (LASTK .EQ. K) GO TO 2150 LASTK = K IF (GPOINT-Z(2*K-1)) 2120,2140,2130 2120 KHI = K GO TO 2110 2130 KLO = K GO TO 2110 2140 K = 2*K + KN IPOINT = GPOINT GPOINT = Z(K)/10 ICODE = Z(K) - 10*GPOINT GO TO RET, (260,630,680,750,970,1050,1770,1170,1220) 2150 GO TO RET1, (2460,2470,2480,2490,2530) C C C INTERNAL SUBROUTINE TO SORT THE SCALAR COMPONENTS C 2200 DO 2210 II = 1,6 IF (BUF(II+7) .EQ. 0) GO TO 2220 2210 CONTINUE II = 7 2220 N = II - 1 IF (N .EQ. 0) GO TO RET, (810) DO 2240 II = 1,N IJK = LUSET + 1 DO 2230 JJ = II,N IF (BUF(JJ+7) .GE. IJK) GO TO 2230 IJK = BUF(JJ+7) JJX = JJ 2230 CONTINUE BUF(JJX+7) = BUF(II+7) 2240 BUF(II +7) = IJK GO TO RET, (810) C C CHECK TO SEE IF GRID AND SCALAR POINTS HAVE BEEN PROPERLY USED C ON CONSTRAINT CARDS C 2300 IF (ICODE .EQ. 2) GO TO 2320 C C GRID POINTS ARE CHECKED HERE C IF (ICOMP .GT. 0) GO TO 2350 NOGO = 1 CALL PAGE2 (2) WRITE (OUTTAP,2310) UFM,IPOINT,CTYPE(INDEX),CTYPE(INDEX+1) 2310 FORMAT (A23,' 3145, COMPONENT 0 (OR BLANK) SPECIFIED FOR GRID ', 1 'POINT',I9,4H ON ,2A4,6HCARDS.) GO TO 2340 C C SCALAR POINTS ARE CHECKED HERE C 2320 IF (ICOMP .LE. 1) GO TO 2350 NOGO = 1 CALL PAGE2 (2) WRITE (OUTTAP,2330) UFM,IPOINT,CTYPE(INDEX),CTYPE(INDEX+1) 2330 FORMAT (A23,' 3146, ILLEGAL COMPONENT SPECIFIED FOR SCALAR POINT', 1 I9,4H ON ,2A4,6HCARDS.) 2340 GO TO RET2, (250,620,670,740,960,1020,1720,1160,1210) 2350 GO TO RET3, (270,640,690,760,980,1060,1780,1180,1230) C C C FATAL ERROR MESSAGES C 2400 J = -1 GO TO 2450 2410 J = -2 GO TO 2450 2420 J = -3 GO TO 2450 2430 J = -8 WRITE (OUTTAP,2440) INSUFF 2440 FORMAT (/33X,'GP4 INSUFFICIENT CORE AT ',I5) FILE = ICRQ 2450 CALL MESAGE (J,FILE,NAME) 2460 BUF(1) = GPOINT BUF(2) = MPCSET N = 48 GPOINT = 1 GO TO 2520 2470 BUF(1) = GPOINT GPOINT = 1 N = 49 GO TO 2510 2480 BUF(1) = GPOINT GPOINT = 1 N = 50 GO TO 2510 2490 N = 51 2500 BUF(1) = GPOINT BUF(2) = SPCSET GPOINT = 1 CWKBNB 3/95 NCL94002 IF ( L51 .EQ. 0 ) GO TO 2520 WRITE ( OUTTAP, 9001 ) UWM, 2051, BUF(1), SPCSET 9001 FORMAT( A25,I5,' UNDEFINED GRID POINT ',I6,' IN SINGLE-POINT' &,' CONSTRAINT SET ',I8) GO TO 2521 CWKBNE 3/95 NCL94002 2510 BUF(2) = 0 2520 NOGO = 1 CALL MESAGE (30,N,BUF) CWKBI 3/95 NCL94002 2521 CONTINUE GO TO RET2, (250,620,670,740,960,1020,1720,1160,1210) 2530 N = 52 GO TO 2500 2540 IF (L21+L22.GT.0 .OR. IDSUB.GT.0) CALL GP4PRT (-BUF4) J = -37 GO TO 2450 END ================================================ FILE: mis/gp4prt.f ================================================ SUBROUTINE GP4PRT (IBUF) C C 1. PRINTS DOF VS. DISP. SETS IF DIAG 21 ON. C 2. PRINTS DISP. SETS VS. DOF IF DIAG 22 ON. C 3. CREATES SUBSTRUCTURE COUPLING DATA TABLE. C C IF IBUF IS .LT. 0, SOME FILES MAY NOT BE CLOSED PROPERLY WHEN C THIS ROUTINE IS CALLED C EXTERNAL ANDF,ORF INTEGER TITLE(2,8),Z,SYSBUF,ANDF,EQEXIN,ORF,FILE,NAME(3), 1 D21,D22,MSK(12),IFLG(8),SCR1,ZDUM(10),ZCOM(10), 2 EREC1,BUF,TWO,UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG, 3 DASH,UPBIT(12),BLANK,TDB204,NAM204(2),TRL(7), 4 EXFLAG,EXTYPE,SBIT(12), 5 IFRMAT(32),IIFRMT(2),IAFRMT(2) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /SYSTEM/ SYSBUF,NOUT,JUNK(6),NLPP,MTEMP,NPAGE,LINE COMMON /TWO / TWO(32) COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / LUSET,MPCF1,MPCF2,SINGLE,OMIT1,REACT,NSKIP, 1 REPEAT,NOSETS,NOL,NOA,IDSUB,IAUTSP DATA SCR1 / 301/ , EQEXIN / 103 /, TDB204 / 204 / DATA NAME / 4HGP4P, 4HRT , 4H / DATA IBEGN , IEND / 4HBEGN , 4HEND / DATA TITLE / 4H , 4H MPC , 2 4H , 4H SPC , 3 4H , 4HOMIT , 4 4HANAL, 4HYSIS , 5 4H SU, 4HPORT , 6 4HPERM, 4H SPC , 7 4HBDRY, 4H SPC , 8 4HAUTO, 4H SPC / DATA BLANK / 1H / DATA DASH / 1H- / DATA IFRMAT/ 4H(13X, 4H,I6,, 4H3X,I, 4H8,1X, 4H,A1,, 4HI2,1, 1 4HX , 4H,1X,, 4H I6, 4H,1X,, 4H I6, 4H,1X,, 2 4H I6, 4H,1X,, 4H I6, 4H,1X,, 4H I6, 4H,1X,, 3 4H I6, 4H,1X,, 4H I6, 4H,1X,, 4H I6, 4H,1X,, X 4H I6, 4H,1X,, 4 4H I6, 4H,1X,, 4H I6, 4H,1X,, 4H I6, 4H) / DATA IIFRMT/ 4H,1X,, 4H I6/ DATA IAFRMT/ 4H,3X,, 4H A4/ DATA IPRINT/ 0 / C C CALL SSWTCH (21,D21) CALL SSWTCH (22,D22) IF (D21.NE.1 .AND. D22.NE.1 .AND. IDSUB.LE.0) RETURN IF (IPRINT .EQ. 1) RETURN IPRINT = 1 NAME(3) = IBEGN CALL CONMSG (NAME,3,0) BUF = IABS(IBUF) FILE = EQEXIN IF (IBUF .LT. 0) CALL CLOSE (EQEXIN,1) CALL OPEN (*1220,EQEXIN,Z(BUF),0) CALL FWDREC (*1230,EQEXIN) CALL FWDREC (*1230,EQEXIN) EREC1 = LUSET +1 CALL READ (*1230,*2900,EQEXIN,Z(EREC1),BUF-EREC1,1,KN) GO TO 9001 2900 CALL CLOSE (EQEXIN,1) CALL SORT (0,0,2,2,Z(EREC1),KN) C IF (D21 .NE. 1) GO TO 3000 KU = 1 MSK(KU+1 ) = TWO(USB) MSK(KU+2 ) = TWO(USG) MSK(KU+3 ) = TWO( UL) MSK(KU+4 ) = TWO( UA) MSK(KU+5 ) = TWO( UF) MSK(KU+6 ) = TWO( UN) MSK(KU+7 ) = TWO( UG) MSK(KU+8 ) = TWO( UR) MSK(KU+9 ) = TWO( UO) MSK(KU+10) = TWO( US) MSK(KU+11) = TWO( UM) DO 2910 KU = 1,12 SBIT(KU) = 0 2910 CONTINUE CALL PAGE1 LINE = LINE + 2 WRITE (NOUT,1900) UIM LINE = LINE + 4 WRITE (NOUT,1902) I = EREC1 KL = 0 DO 2960 K = 1,KN,2 ITM = Z(K+I)/10 ITM = Z(K+I) - 10*ITM L = 6 IF (ITM .EQ. 2) L = 1 DO 2950 KK = 1,L KL = KL + 1 IU = Z(KL) IP = Z(I+K-1) IDOF = KK IF (ANDF(MSK(11),IU) .EQ. 0) GO TO 2914 IF (ANDF(MSK(2),IU).NE.0 .OR. ANDF(MSK(3),IU).NE.0) GO TO 2914 SBIT(1) = SBIT(1) + 1 UPBIT(1) = SBIT(1) IFRMAT(8) = IIFRMT(1) IFRMAT(9) = IIFRMT(2) GO TO 2916 2914 UPBIT(1) = BLANK IFRMAT(8) = IAFRMT(1) IFRMAT(9) = IAFRMT(2) 2916 DO 2940 KU = 2,12 INDEX = 2*(KU-1) + 8 IF (ANDF(MSK(KU),IU) .EQ. MSK(KU)) GO TO 2920 UPBIT(KU) = BLANK IFRMAT(INDEX ) = IAFRMT(1) IFRMAT(INDEX+1) = IAFRMT(2) GO TO 2940 2920 SBIT (KU) = SBIT(KU) + 1 UPBIT(KU) = SBIT(KU) IFRMAT(INDEX ) = IIFRMT(1) IFRMAT(INDEX+1) = IIFRMT(2) 2940 CONTINUE IF (L .EQ. 1) IDOF = 0 LINE = LINE + 1 IF (LINE .LE. NLPP) GO TO 2945 CALL PAGE1 WRITE (NOUT,1902) LINE = LINE + 5 2945 WRITE (NOUT,IFRMAT) KL,IP,DASH,IDOF,UPBIT 2950 CONTINUE 2960 CONTINUE WRITE (NOUT,1901) SBIT LINE = LINE + 2 C 3000 IF (D22.NE.1 .AND. IDSUB.LE.0) RETURN MSK(1) = TWO(UM ) MSK(2) = TWO(US ) MSK(3) = TWO(UO ) MSK(4) = TWO(UA ) MSK(5) = TWO(UR ) MSK(6) = TWO(USG) MSK(7) = TWO(USB) EXFLAG = 0 EXTYPE = 0 IF (D22 .NE. 1) GO TO 3010 CALL PAGE1 LINE = LINE + 2 WRITE (NOUT,1907) UIM LINE = LINE + 4 3010 FILE = SCR1 IF (IBUF .LT. 0) CALL CLOSE (SCR1,1) CALL OPEN (*1220,SCR1,Z(BUF),1) DO 4000 IMK = 1,8 IFLG(IMK) = 0 I = EREC1 IP = 0 KL = 0 DO 3960 K = 1,KN,2 ITM = Z(K+I)/10 ITM = Z(K+I) - 10*ITM L = 6 IF (ITM .EQ. 2) L = 1 DO 3950 KK = 1,L KL = KL + 1 IU = Z(KL) IF (Z(I+K-1) .LT. IP) EXFLAG = 1 IP = Z(I+K-1) IF (L .EQ. 1) GO TO 3920 IDOF = KK EXTYPE = ORF(EXTYPE,2) GO TO 3930 3920 IDOF = 0 EXTYPE = ORF(EXTYPE,1) 3930 IF (IMK .NE. 8) GO TO 3940 IF (ANDF(IU,MSK(2)) .EQ. 0) GO TO 3950 IF (ANDF(IU,MSK(6)).NE.0 .OR. ANDF(IU,MSK(7)).NE.0) GO TO 3950 GO TO 3945 3940 IF (ANDF(IU,MSK(IMK)) .NE. MSK(IMK)) GO TO 3950 3945 CALL WRITE (SCR1,10*IP+IDOF,1,0) IFLG(IMK) = 1 3950 CONTINUE 3960 CONTINUE IF (IFLG(IMK) .NE. 1) GO TO 4000 CALL WRITE (SCR1,0,0,1) 4000 CONTINUE CALL WRITE (SCR1,Z(1),LUSET,1) CALL CLOSE (SCR1,1) CALL OPEN (*1220,SCR1,Z(BUF),0) IFLAG = 0 DO 4500 I = 1,8 IF (IFLG(I) .NE. 1) GO TO 4500 IFLAG = IFLAG + 1 CALL READ (*1230,*4010,SCR1,Z(1),BUF,1,KN) CALL PAGE2 (-4) WRITE (NOUT,9501) FILE GO TO 4600 4010 CONTINUE IF (IDSUB.LE.0 .OR. I.NE.4) GO TO 4040 CALL CLOSE (SCR1,2) FILE = TDB204 CALL OPEN (*1220,TDB204,Z(BUF),1) CALL FNAME (TDB204,NAM204) CALL WRITE (TDB204,NAM204,2,1) CALL WRITE (TDB204,Z(1),KN,1) CALL CLOSE (TDB204,1) TRL(1) = TDB204 TRL(2) = 0 TRL(3) = KN TRL(4) = 0 TRL(5) = IDSUB TRL(6) = EXFLAG TRL(7) = EXTYPE CALL WRTTRL (TRL) CALL OPEN (*1220,SCR1,Z(BUF),2) 4040 CONTINUE IF (D22 .NE. 1) GO TO 4500 IPAS = KN/10 IREM = KN - 10*IPAS IF (IFLAG .GT. 1) LINE = NLPP ID1 =-9 INOS = 0 IF (IPAS .LT. 1) GO TO 4105 DO 4100 K = 1,IPAS DO 4050 J = 1,10 INOS = INOS + 1 ZDUM(J) = Z(INOS)/10 ZCOM(J) = Z(INOS) - 10*ZDUM(J) 4050 CONTINUE LINE = LINE + 1 IF (IFLAG.EQ.1 .AND. K.EQ.1) GO TO 4060 IF (LINE .LE. NLPP) GO TO 4090 CALL PAGE1 4060 WRITE (NOUT,1910) TITLE(1,I),TITLE(2,I) LINE = LINE + 5 4090 CONTINUE ID1 = ID1 + 10 WRITE (NOUT,1913) ID1,(ZDUM(KK),ZCOM(KK),KK=1,10) 4100 CONTINUE 4105 IF (IREM .EQ. 0) GO TO 4500 DO 4110 J = 1,IREM INOS = INOS + 1 ZDUM(J) = Z(INOS)/10 ZCOM(J) = Z(INOS) - ZDUM(J)*10 4110 CONTINUE LINE = LINE + 1 IF (IFLAG.EQ.1 .AND. IPAS.EQ.0) GO TO 4120 IF (LINE .LE. NLPP) GO TO 4400 CALL PAGE1 4120 WRITE (NOUT,1910) TITLE(1,I),TITLE(2,I) LINE = LINE + 5 4400 CONTINUE ID1 = ID1 + 10 WRITE (NOUT,1913) ID1,(ZDUM(KK),ZCOM(KK),KK=1,IREM) 4500 CONTINUE C C RE-ESTABLISH USET IN OPEN CORE. C 4600 CALL READ (*1230,*9001,SCR1,Z(1),LUSET,1,KN) CALL CLOSE (SCR1,1) NAME(3) = IEND CALL CONMSG (NAME,3,0) C C TERMINATE RUN IF DIAG 21 OR 22, AND DIAG 20 ARE REQUESTED BY UESER C SIMLUTANEOUSLY C CALL SSWTCH (20,J) IF (J.EQ.0 .OR. D21+D22.EQ.0) RETURN WRITE (NOUT,4700) 4700 FORMAT (10X,25HJOB TERMINATED BY DIAG 20) CALL PEXIT C 1220 J = -1 GO TO 1260 1230 J = -2 1260 CALL MESAGE (J,FILE,NAME) RETURN C 1900 FORMAT (A29,' 2118, SUBROUTINE GP4PRT - DIAG 21 SET-DOF VS. DISP', 1 ' SETS FOLLOWS.') 1901 FORMAT (1H0, 34H--- C O L U M N T O T A L S --- , 12I7) 1902 FORMAT (1H0,14X,5H(SIL), /14X, 1 48HINT DOF EXT GP. DOF SAUTO SB SG , 2 49HL A F N G R O , 3 8HS M, /1H , 131(1H-)) 1907 FORMAT (A29,' 2119, SUBROUTINE GP4PRT - DIAG 22 SET DISP SETS VS', 1 '. DOF FOLLOWS') 1910 FORMAT (1H0,52X,2A4,17H DISPLACEMENT SET ,/ 1 1H0,15X,3H-1-,8X,3H-2-,8X,3H-3-,8X,3H-4-,8X,3H-5-, 2 8X,3H-6-,8X,3H-7-,8X,3H-8-,8X,3H-9-,7X,4H-10- ,/1H ) 1913 FORMAT (1H ,I6,1H=,10(1X,I8,1H-,I1)) C C ERRORS C 9001 CALL PAGE2(-4) WRITE (NOUT,9501) UWM,FILE 9501 FORMAT (A25,' 2110, INSUFFICIENT CORE TO HOLD CONTENTS OF GINO ', 1 'FILE',I4, //5X, 2 'FURTHER PROCESSING OF THIS DATA BLOCK IS ABANDONED.') C CALL CLOSE (FILE,1) RETURN C END ================================================ FILE: mis/gp4sp.f ================================================ SUBROUTINE GP4SP (IBUF1,IBUF2,IBUF3) C C ROUTINE TO LOOK AT GPST TO ELIMINATE SINGULARITIES C C EXTERNAL ANDF ,ORF ,COMPLF,LSHIFT INTEGER ANDF ,ORF ,COMPLF,EQEXIN,GPST ,OGPST ,SCR2 , 1 MCB(7),OMIT1 ,SPCSET,OGPST1(10) DIMENSION IPONTS(9) ,JPONTS(9) ,INDXMS(9) , 1 IEXCLD(9) ,ISUBNM(2) ,IWORD(8) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /BLANK / LUSET ,MPCF1 ,MPCF2 ,SINGLE,OMIT1 ,REACT ,NSKIP , 1 REPEAT,NOSETS,NOL ,NOA ,IDSUB ,IAUTSP COMMON /GP4FIL/ DUM(3),IRGT COMMON /GP4SPX/ MSKUM ,MSKUO ,MSKUR ,MSKUS ,MSKUL , 1 MSKSNG,SPCSET,MPCSET,NAUTO ,IOGPST COMMON /OUTPUT/ HEAD(1) COMMON /SYSTEM/ ISYSBF,IOUTPT,JDUM(6),NLPP ,KDUM(2),LINE, 1 DD(78),IPUNCH COMMON /UNPAKX/ ITYPOT,IIII ,JJJJ ,INCR COMMON /ZZZZZZ/ IZ(1) DATA EQEXIN, GPST, OGPST, SCR2 /103, 107, 205, 302/ DATA ISUBNM /4HGP4S, 4HP / DATA NCARD, IERROR / 2*0 / DATA ISCR2, IEQEXN / 2*-1 / C C INDEX = IABS (IAUTSP) IF (INDEX .GT. 2) GO TO 730 IF (INDEX.EQ.2 .AND. OMIT1.GT.0) INDEX = 3 MSKMS = ORF(MSKUM,MSKUS) IF (IAUTSP .EQ. 0) GO TO 6 MULTI = 0 IF (MPCF1 .EQ. -1) GO TO 6 MSKIN = LSHIFT(1,12) MSKXX = COMPLF(MSKIN) CALL GOPEN (IRGT,IZ(IBUF1),0) ITYPOT = 1 IIII = 1 JJJJ = 1 INCR = 1 DO 4 I = 1,LUSET CALL UNPACK (*4,IRGT,IDUM) IF (ANDF(IZ(I),MSKMS) .NE. 0) GO TO 4 MULTI = 1 IZ(I) = ORF(IZ(I),MSKIN) 4 CONTINUE CALL CLOSE (IRGT,1) 6 CONTINUE CALL OPEN (*610,GPST,IZ(IBUF1),0) IFILE = GPST CALL FWDREC (*700,GPST) C 10 CALL READ (*480,*480,GPST,IORDR,1,0,IFLAG) INITL = IORDR IMS = 0 ISPC = 0 DO 20 I = 1, 9 INDXMS(I) = 0 IEXCLD(I) = 0 IPONTS(I) = 0 JPONTS(I) = 0 20 CONTINUE CALL FREAD (GPST,NPTS,1,0) CALL FREAD (GPST,IPONTS,NPTS,0) IBASE = IPONTS(1) C C SET VARIOUS FLAGS FOR THE SINGULARITIES C DO 30 I = 1,NPTS II = IPONTS(I) J = IZ(II) IF (ANDF(J,MSKMS) .NE. 0) INDXMS(I) = 1 IF (IAUTSP .EQ. 0) GO TO 30 IF (ANDF(J,MSKUO).NE.0 .AND. ANDF(J,MSKUL).NE.0) GO TO 740 IF (ANDF(J,MSKUO).NE.0 .AND. ANDF(J,MSKUR).NE.0) GO TO 740 IF (ANDF(J,MSKUR).NE.0 .AND. ANDF(J,MSKUL).NE.0) GO TO 740 IF (ANDF(J,MSKUR) .NE. 0) IEXCLD(I) = 1 IF (MULTI.EQ.0 .OR. INDXMS(I).NE.0) GO TO 25 IF (ANDF(J,MSKIN) .NE. 0) IEXCLD(I) = 1 25 IF (INDEX .LT. 3) GO TO 30 IF (ANDF(J,MSKUL) .NE. 0) IEXCLD(I) = 1 30 CONTINUE C C DETERMINE THE ORDER OF SINGULARITY C IF (IORDR-2) 230,260,410 C C 40 LOGIC = 100 IF (ISPC .GT. INITL) GO TO 750 IF (IEQEXN .EQ. 1) GO TO 60 IEQEXN = 1 C C BRING IN EQEXIN C CALL GOPEN (EQEXIN,IZ(IBUF2),0) CALL SKPREC (EQEXIN,1) MCB(1) = EQEXIN CALL RDTRL (MCB) ICORE = LUSET + 2*(MCB(2)+1) - IBUF2 IF (ICORE .GE. 0) GO TO 720 IFILE = EQEXIN CALL READ (*700,*50,EQEXIN,IZ(LUSET+1),IBUF2-LUSET,0,NEQEXN) GO TO 720 50 CALL CLOSE (EQEXIN,1) CALL SORT (0,0,2,2,IZ(LUSET+1),NEQEXN) IZ(LUSET+NEQEXN+1) = 0 IZ(LUSET+NEQEXN+2) = 10*(LUSET+1) NEQEXN = NEQEXN + 2 C C LOOK UP SIL IN EQEXIN C ISTART = 2 60 KK = IBASE DO 70 I = ISTART,NEQEXN,2 K = LUSET + I ISIL = IZ(K)/10 IF (KK .LT. ISIL) GO TO 80 70 CONTINUE LOGIC = 110 GO TO 750 C C PICK UP POINT ID AND TYPE (GRID OR SCALAR) FROM EQEXIN C 80 IGPID = IZ(K-3) ISIL = IZ(K-2)/10 ITYP = IZ(K-2) - 10*ISIL ISTART= I - 2 IF (ITYP .EQ. 1) GO TO 90 C C SCALAR POINT C IORDR = 0 NPTS = 0 C C 90 IF (ISPC .EQ. 0) GO TO 140 LOGIC = 120 IF (ITYP.EQ.2 .AND. ISPC.GT.1) GO TO 750 IF (ITYP .EQ. 2) JPONTS(1) = 0 IF (ISCR2 .EQ. 1) GO TO 100 ISCR2 = 1 IWORD(1) = SPCSET IF (IWORD(1) .LE. 0) IWORD(1) = 1 C C INITIALIZE SCR2 C CALL GOPEN (SCR2,IZ(IBUF3),1) C C WRITE AUTOMATICALLY GENERATED SPC1 DATA ON SCR2 C 100 DO 130 I = 1,ISPC IF (ITYP .EQ. 2) GO TO 120 IF (JPONTS(I) .GT. 0) GO TO 110 LOGIC = 130 GO TO 750 110 JPONTS(I) = JPONTS(I) - ISIL + 1 120 CALL WRITE (SCR2,JPONTS(I),1,0) CALL WRITE (SCR2,IGPID, 1,0) 130 CONTINUE IF (ISPC+IMS .GE. INITL) GO TO 10 C C 140 IF (IOGPST .EQ. 1) GO TO 150 IOGPST = 1 C C INITIALIZE OGPST C CALL GOPEN (OGPST,IZ(IBUF2),1) OGPST1( 1) = 0 OGPST1( 2) = 8 OGPST1( 3) = SPCSET OGPST1( 4) = MPCSET OGPST1(10) = 12 CALL WRITE (OGPST,OGPST1, 10,0) CALL WRITE (OGPST,IZ, 40,0) CALL WRITE (OGPST,HEAD(1),96,1) C C PUT OUT ERROR RECORDS ON OGPST C 150 CALL WRITE (OGPST,IGPID,1,0) CALL WRITE (OGPST,ITYP ,1,0) CALL WRITE (OGPST,IORDR,1,0) IORDR = IORDR + 1 IF (IORDR .EQ. 1) GO TO 180 DO 170 I = 1,NPTS IF (IPONTS(I) .GT. 0) GO TO 160 LOGIC = 140 GO TO 750 160 IPONTS(I) = IPONTS(I) - ISIL + 1 170 CONTINUE LOGIC = 150 GO TO (750,200,210,220), IORDR C C SCALAR C 180 DO 190 I = 1,9 190 IPONTS(I) = 0 GO TO 220 C C FIRST ORDER OUTPUT C 200 IPONTS(4) = IPONTS(2) IPONTS(7) = IPONTS(3) IPONTS(2) = 0 IPONTS(3) = 0 IPONTS(5) = 0 IPONTS(6) = 0 IPONTS(8) = 0 IPONTS(9) = 0 GO TO 220 C C SECOND ORDER OUTPUT C 210 IPONTS(8) = IPONTS(6) IPONTS(7) = IPONTS(5) IPONTS(5) = IPONTS(4) IPONTS(4) = IPONTS(3) IPONTS(3) = 0 IPONTS(6) = 0 IPONTS(9) = 0 C C THIRD ORDER OUTPUT C 220 CALL WRITE (OGPST,IPONTS,9,0) GO TO 10 C C FIRST ORDER SINGULARITY C 230 DO 240 I = 1,NPTS IF (INDXMS(I) .NE. 0) GO TO 10 240 CONTINUE IF (IAUTSP .EQ. 0) GO TO 40 DO 250 I = 1,NPTS IF (IEXCLD(I) .NE. 0) GO TO 250 II = IPONTS(I) IZ(II) = MSKSNG NAUTO = NAUTO + 1 ISPC = ISPC + 1 JPONTS(ISPC) = II GO TO 40 250 CONTINUE GO TO 40 C C SECOND ORDER SINGULARITY C 260 ILOOP = 1 270 DO 360 I = 1,NPTS,2 II = IPONTS(I) IF (II .EQ. 0) GO TO 310 IF (INDXMS(I) .NE. 0) GO TO 280 IF (ILOOP .EQ. 1) GO TO 310 IF (IEXCLD(I) .NE. 0) GO TO 310 IZ(II) = MSKSNG NAUTO = NAUTO + 1 ISPC = ISPC + 1 JPONTS(ISPC) = II GO TO 290 280 IMS = IMS + 1 290 IORDR = 1 DO 300 III = 1,NPTS IF (IPONTS(III) .EQ. II) IPONTS(III) = 0 300 CONTINUE II = 0 310 JJ = IPONTS(I+1) IF (JJ .EQ. 0) GO TO 330 IF (INDXMS(I+1) .NE. 0) GO TO 320 IF (ILOOP .EQ. 1) GO TO 360 IF (IEXCLD(I+1) .NE. 0) GO TO 360 IZ(JJ) = MSKSNG NAUTO = NAUTO + 1 ISPC = ISPC + 1 JPONTS(ISPC) = JJ GO TO 330 320 IMS = IMS + 1 330 IF (II .NE. 0) GO TO 340 LOGIC = 160 IF (ISPC+IMS .LT. 2) GO TO 750 IF (ISPC .EQ. 0) GO TO 10 GO TO 380 340 IORDR = 1 DO 350 III = 1, NPTS IF (IPONTS(III) .EQ. JJ) IPONTS(III) = 0 350 CONTINUE 360 CONTINUE IF (IAUTSP .EQ. 0) GO TO 370 IF (ILOOP .EQ. 2) GO TO 370 ILOOP = 2 GO TO 270 370 IF (IORDR .EQ. 1) GO TO 380 IF (IORDR .EQ. 2) GO TO 40 LOGIC = 170 GO TO 750 380 IOK = 0 DO 400 I = 1, NPTS IF (IPONTS(I) .EQ. 0) GO TO 400 IOK = IOK + 1 IPONTS(IOK) = IPONTS(I) IF (IOK .NE. I) IPONTS(I) = 0 IF (I .EQ. NPTS) GO TO 400 II = I + 1 DO 390 J = II,NPTS IF (IPONTS(J) .EQ. 0) GO TO 390 IF (IPONTS(J) .EQ. IPONTS(IOK)) IPONTS(J) = 0 390 CONTINUE 400 CONTINUE NPTS = IOK IF (NPTS .EQ. 0) GO TO 40 C LOGIC = 180 IF (NPTS .GT. 2) GO TO 750 LOGIC = 190 IF (IPONTS(1) .EQ. IPONTS(2)) GO TO 750 GO TO 40 C C THIRD ORDER SINGULARITY C 410 IOK = 0 DO 450 I = 1,NPTS IF (INDXMS(I) .NE. 0) GO TO 430 IF (IAUTSP .EQ. 0) GO TO 420 IF (IEXCLD(I) .NE. 0) GO TO 420 II = IPONTS(I) IZ(II) = MSKSNG NAUTO = NAUTO + 1 ISPC = ISPC + 1 JPONTS(ISPC) = II GO TO 440 420 IOK = 1 GO TO 450 430 IMS = IMS + 1 440 IORDR = IORDR - 1 IPONTS(I) = 0 450 CONTINUE IF (IOK .EQ. 1) GO TO 460 LOGIC = 200 IF (ISPC+IMS .NE. 3) GO TO 750 IF (ISPC .EQ. 0) GO TO 10 GO TO 40 460 IOK = 0 DO 470 I = 1,NPTS IF (IPONTS(I) .EQ. 0) GO TO 470 IOK = IOK + 1 IPONTS(IOK) = IPONTS(I) IF (IOK .NE. I) IPONTS(I) = 0 470 CONTINUE NPTS = IOK GO TO 40 C 480 CALL CLOSE (GPST,1) IF (IOGPST .NE. 1) GO TO 490 CALL CLOSE (OGPST,1) IF (IERROR .NE. 0) GO TO 490 CALL MAKMCB (OGPST1,OGPST,0,0,0) OGPST1(2) = 8 CALL WRTTRL (OGPST1) 490 IF (IAUTSP .EQ. 0) GO TO 610 IF (NAUTO .GT. 0) GO TO 500 LOGIC = 210 IF (ISCR2 .EQ. 1) GO TO 750 IF (IOGPST.EQ.1 .AND. INDEX.LT.3) WRITE (IOUTPT,810) UWM IF (IOGPST.EQ.1 .AND. INDEX.EQ.3) WRITE (IOUTPT,815) UWM GO TO 610 500 LOGIC = 220 IF (ISCR2 .NE. 1) GO TO 750 CALL WRITE (SCR2,0,0,1) CALL CLOSE (SCR2,1) IF (IERROR .NE. 0) GO TO 610 IF (IOGPST .NE. 1) WRITE (IOUTPT,800) UIM IF (IOGPST .EQ. 1) WRITE (IOUTPT,805) UIM IF (IOGPST.EQ.1 .AND. INDEX.LT.3) WRITE (IOUTPT,820) UWM IF (IOGPST.EQ.1 .AND. INDEX.EQ.3) WRITE (IOUTPT,825) UWM C C PRINT OUT AND, IF REQUESTED, PUNCH OUT C AUTOMATICALLY GENERATED SPC DATA CARDS C CALL GOPEN (SCR2,IZ(IBUF3),0) IFILE = SCR2 CALL READ (*700,*510,SCR2,IZ(LUSET+1),IBUF3-LUSET,0,IFLAG) ICORE = LUSET + 2*NAUTO - IBUF3 GO TO 720 510 LOGIC = 230 IF (IFLAG .NE. 2*NAUTO) GO TO 750 CALL SORT (0,0,2,1,IZ(LUSET+1),IFLAG) I = LUSET + 1 IOLD = -1 IST = I 520 J = 0 530 IF (I .GT. LUSET+IFLAG) GO TO 540 IF (IOLD.GE.0 .AND. IZ(I).NE.IOLD) GO TO 540 IOLD = IZ(I) J = J + 2 I = I + 2 GO TO 530 540 CALL SORT (0,0,2,-2,IZ(IST),J) IF (I .GT. LUSET+IFLAG) GO TO 550 IOLD = IZ(I) IST = I GO TO 520 C 550 I = LUSET + 1 IOLD = -1 CALL PAGE1 WRITE (IOUTPT,830) LINE = LINE + 6 560 II = 2 DO 570 J = 1,6 IF (I .GT. LUSET+IFLAG) GO TO 580 IF (IOLD.GE.0 .AND. IZ(I).NE.IOLD) GO TO 580 IOLD = IZ(I) IWORD(II+1) = IZ(I+1) II = II + 1 I = I + 2 570 CONTINUE 580 IWORD(2) = IOLD IF (LINE .LE. NLPP) GO TO 590 CALL PAGE1 WRITE (IOUTPT,830) LINE = LINE + 6 590 NCARD = NCARD + 1 WRITE (IOUTPT,840) NCARD,(IWORD(J),J=1,II) LINE = LINE + 1 IF (IAUTSP .LT. 0) WRITE (IPUNCH,850) (IWORD(J),J=1,II) IF (I .GT. LUSET+IFLAG) GO TO 600 IOLD = IZ(I) GO TO 560 600 CALL CLOSE (SCR2,1) 610 IF (IAUTSP.EQ.0 .OR. MULTI.EQ.0) RETURN DO 620 I = 1,LUSET IZ(I) = ANDF(IZ(I),MSKXX) 620 CONTINUE RETURN C C ERROR MESSAGES C 700 NUM = -2 710 CALL MESAGE (NUM,IFILE,ISUBNM) 720 NUM = -8 IFILE = ICORE GO TO 710 730 IERROR = 1 WRITE (IOUTPT,870) UWM GO TO 480 740 IERROR = 2 WRITE (IOUTPT,880) UWM GO TO 480 750 WRITE (IOUTPT,860) SFM,LOGIC CALL MESAGE (-61,0,0) C 800 FORMAT (A29,' 2435, AT USER''S REQUEST, ALL POTENTIAL ', 1 'SINGULARITIES HAVE BEEN REMOVED BY THE', /5X, 2 'APPLICATION OF SINGLE POINT CONSTRAINTS. REFER TO PRINT' 3, 'OUT OF AUTOMATICALLY GENERATED SPC1 CARDS FOR DETAILS.') 805 FORMAT (A29,' 2436, AT USER''S REQUEST, ONE OR MORE POTENTIAL ', 1 'SINGULARITIES HAVE BEEN REMOVED BY THE', /5X, 2 'APPLICATION OF SINGLE POINT CONSTRAINTS. REFER TO PRINT' 3, 'OUT OF AUTOMATICALLY GENERATED SPC1 CARDS FOR DETAILS.') 810 FORMAT (A25,' 2437A, IN SPITE OF THE USER''S REQUEST, NONE OF ', 1 'THE POTENTIAL SINGULARITIES HAS BEEN REMOVED', /5X, 2 'BECAUSE OF THG PRESENCE OF SUPORT CARDS AND/OR MULTI', 3 'POINT CONSTRAINTS OR RIGID ELEMENTS.', /5X, 4 'REFER TO THE GRID POINT SINGULARITY TABLE FOR DETAILS.') 815 FORMAT (A25,' 2437A, IN SPITE OF THE USER''S REQUEST, NONE OF ', 1 'THE POTENTIAL SINGULARITIES HAS BEEN REMOVED', /5X, 2 'BECAUSE OF THG PRESENCE OF SUPORT CARDS AND/OR MULTI', 3 'POINT CONSTRAINTS OR RIGID ELEMENTS', /5X,'OR BECAUSE ', 4 'THE SINGULARITIES ARE NOT PART OF THE OMIT SET (O-SET) ', 5 'DEGREES OF FREEDOM.', /5X, 2 'REFER TO THE GRID POINT SINGULARITY TABLE FOR DETAILS.') 820 FORMAT (A25,' 2437, ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT', 1 ' BEEN REMOVED', /5X,'BECAUSE OF THG PRESENCE OF SUPORT ', 2 'CARDS AND/OR MULTIPOINT CONSTRAINTS OR RIGID ELEMENTS.', 2 /5X,'REFER TO THE GRID POINT SINGULARITY TABLE FOR DETAILS.') 825 FORMAT (A25,' 2437, ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT', 1 ' BEEN REMOVED', /5X,'BECAUSE OF THG PRESENCE OF SUPORT ', 2 'CARDS AND/OR MULTIPOINT CONSTRAINTS OR RIGID ELEMENTS', 3 /5X,'OR BECAUSE THE SINGULARITIES ARE NOT PART OF THE ', 4 'OMIT SET (O-SET) DEGREES OF FREEDOM.', /5X, 2 'REFER TO THE GRID POINT SINGULARITY TABLE FOR DETAILS.') 830 FORMAT (//32X, 'A U T O M A T I C A L L Y ', 1 'G E N E R A T E D ', 2 'S P C 1 C A R D S', /, 3 16X, 'CARD ',8X, /, 4 16X, 'COUNT',8X, 5 '---1--- +++2+++ ---3--- +++4+++ ---5--- ', 6 '+++6+++ ---7--- +++8+++ ---9--- +++10+++',/) 840 FORMAT (15X, I5, '-', 8X, 'SPC1 ',8I8) 850 FORMAT ( 'SPC1 ',8I8) 860 FORMAT (A25,' 2438, LOGIC ERROR NO.',I4, 1 ' IN SUBROUTINE GP4SP IN MODULE GP4') 870 FORMAT (A25,' 2439, ILLEGAL VALUE INPUT FOR PARAMETER AUTOSPC - ', 1 'SINGULARITY PROCESSING SKIPPED IN MODULE GP4') 880 FORMAT (A25,' 2440, SINGULARITY PROCESSING SKIPPED IN MODULE GP4', 1 ' BECAUSE OF INCONSISTENT SET DEFINITION') C RETURN END ================================================ FILE: mis/gpcyc.f ================================================ SUBROUTINE GPCYC C C GPCYC IS THE GEOMETRY PROCESSOR FOR CYCLIC PROBLEM C C INPUT DATA BLOCKS - GEOM4,EQEXIN,USET C C OUTPUT DATA BLOCKS - CYCD C C PARAMETERS CTYPE - INPUT,BCD - C NOGO - OUTPUT--+1 UNLESS ERROR--THEN-1 C C SCRATCH FILES (2) C DEFINITION OF VARIABLES C NZ OPEN CORE LENGTH C NX ORIGINAL OPEN CORE C NENT NUMBER OF ENTRIES IN EQEXIN C ITYP PROBLEM TYPE (ROT=0 ,OTHERWISE=1) C LCYJ LENGTH OF CJOIN CARDS C ISID1 POINTER TO START OF SIDE 1 CZRDS C ISID2 POINTER TO START OF SIDE 2 CZRDS C EXTERNAL ANDF INTEGER GEOM4,EQEXIN,USET,CYCD,CTYPE,SYSBUF,FILE,NAME(2), 1 SCR1,SCR2,REC,CYL,SPH,ROT,CYJOIN(2),IB(5),ANDF, 2 IBB(4),MCB(7),BLK CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /TWO / ITWO(32) COMMON /BITPOS/ ISK(6),IUA COMMON /SYSTEM/ KSYSTM(65) COMMON /ZZZZZZ/ IZ(1) COMMON /BLANK / CTYPE(2),NOGO EQUIVALENCE (KSYSTM(1),SYSBUF),(KSYSTM(2),NOUT) DATA GEOM4 , EQEXIN,USET,CYCD,SCR1,SCR2,NAME / 1 101 , 102 ,103 ,201 ,301 ,302 ,4HGPCY,4HC / DATA ROT / 4HROT /,REC,CYL,SPH / 1HR,1HC,1HS / DATA CYJOIN/ 5210,52 / DATA NOCY , NOSID1, ISID1, IBLEN, ICM, ISAM, NOCNT, NOPAR / 1 4024 , 4025, 4026, 4027, 4028, 4029, 4030, 4032 / DATA NOEQ , NCORD / 1 4037 , 4039 / DATA MCB / 7*0/, BLK/ 1H / C C NZ = KORSZ(IZ) NOGO = 1 C C IBUF1 IS PRELOC BUFFER C IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF NZ = IBUF2 - 1 NX = NZ IF (NZ .LE. 0) CALL MESAGE (-8,0,NAME) C C PUT SECOND RECORD OF EQEXIN ITO CORE C FILE = EQEXIN CALL GOPEN (EQEXIN,IZ(IBUF1),0) CALL FWDREC (*560,EQEXIN) CALL READ (*560,*10,EQEXIN,IZ,NZ,0,IFLAG) CALL MESAGE (-8,0,NAME) 10 CALL CLOSE (EQEXIN,1) NENT = IFLAG/2 C C DECIDE ON TYPE C ITYP = 1 IF (CTYPE(1) .EQ. ROT) ITYP = 0 C C FIND CYJOIN CARDS ON GEOM4 C FILE = GEOM4 CALL PRELOC (*540,IZ(IBUF1),GEOM4) CALL LOCATE (*580,IZ(IBUF1),CYJOIN,IDUM) NZ = NZ - IFLAG K = IFLAG + 1 CALL READ (*560,*20,GEOM4,IZ(K),NZ,0,LCYJ) CALL MESAGE (-8,0,NAME) 20 CALL CLOSE (GEOM4,1) LCYJ = LCYJ + K - 1 IF (IZ(K) .EQ. 1) GO TO 40 WRITE (NOUT,590) UFM,NOSID1 WRITE (NOUT,30) 30 FORMAT ('0NO SIDE 1 DATA FOUND.') GO TO 620 31 WRITE (NOUT,590) UFM,NOSID1 WRITE (NOUT,32) 32 FORMAT ('0NO SIDE 2 DATA FOUND.') GO TO 620 C C FIND SIDE TWO DATA C 40 L = K 50 IF (L .GT. LCYJ) GO TO 31 IF (IZ(L) .EQ. -1) GO TO 70 60 L = L + 1 GO TO 50 C C END OF CARD FOUND C 70 IF (L+1 .GT. LCYJ) GO TO 31 IF (IZ(L+1) .EQ. 2) GO TO 90 IF (ITYP .EQ. 1) GO TO 60 WRITE (NOUT,590) UFM,ISID1 WRITE (NOUT,80) 80 FORMAT ('0TOO MANY SIDE 1 CARDS.') GO TO 620 C C FOUND SIDE TWO LIST C 90 ISID2 = L + 1 IF (ITYP .NE. 0) GO TO 370 C C CHECK LENGTH OF SIDE TWO LIST C NS1 = ISID2 - K - 4 NS2 = LCYJ - ISID2 - 3 IF (NS1 .EQ. NS2) GO TO 110 WRITE (NOUT,590) UFM,IBLEN WRITE (NOUT,100) 100 FORMAT ('0NUMBER OF ENTRIES IN SIDE 1 NOT EQUAL TO NUMBER IN ', 1 'SIDE 2') NOGO = -1 GO TO 620 C C BUILD 5 WORDS FOR EACH PAIR C C C FIVE WORD ENTRY FOR EACH PAIR APPEARS AS FOLLOWS C C 1 CODE(1 = GRID 2 = SCALAR) C 2 INTERNAL INDEX (SIL) SIDE 1 C 3 GRID ID (EXTERNAL) SIDE 1 C 4 INTERNAL INDEX (SIL) SIDE 2 C 5 GRID ID (EXTERNAL) SIDE 2 C 110 CALL GOPEN (SCR1,IZ(IBUF1),1) L = ISID2 + 3 K = K + 3 DO 160 I = 1,NS1 IF (IZ(K) .NE. IZ(L)) GO TO 130 WRITE (NOUT,590) UFM,ISAM WRITE (NOUT,120) IZ(K) 120 FORMAT ('0GRID POINT',I10,' APPEARS IN BOTH SIDE LISTS.') GO TO 620 130 CONTINUE IP = IZ(K) CALL BISLOC (*610,IP,IZ(1),2,NENT,M) IX1 = IZ(M+1)/10 IC1 = IZ(M+1) - IX1*10 IP = IZ(L) CALL BISLOC (*610,IP,IZ(1),2,NENT,M) IX2 = IZ(M+1)/10 IC2 = IZ(M+1) - IX2*10 IF (IC1 .EQ. IC2) GO TO 150 WRITE (NOUT,590) UFM,ICM WRITE (NOUT,140) IZ(K),IZ(L) 140 FORMAT ('0THE CODE FOR GRID POINT',I10,' DOES NOT MATCH THE CODE', 1 ' FOR GRID POINT',I10) GO TO 620 150 IB(1) = IC1 IB(2) = IX1 IB(3) = IZ(K) IB(4) = IX2 IB(5) = IZ(L) CALL WRITE (SCR1,IB,5,0) K = K + 1 L = L + 1 160 CONTINUE 170 CALL WRITE (SCR1,0,0,1) CALL CLOSE (SCR1,1) C C SET UP USET C CALL GOPEN (USET,IZ(IBUF1),0) FILE = USET NZ = NX CALL READ (*560,*190,USET,IZ,NZ,0,LUSET) CALL MESAGE (-8,0,NAME) 190 CALL CLOSE (USET,1) C C SET UP REDUCED USET TABLE C K = 0 M = ITWO(IUA) DO 220 I = 1,LUSET IF (ANDF(IZ(I),M)) 210,200,210 200 IZ(I) = 0 GO TO 220 210 K = K + 1 IZ(I) = -K 220 CONTINUE LUA = K C C FORM SILA VALUES C FILE = SCR1 CALL GOPEN (SCR1,IZ(IBUF1),0) CALL GOPEN (SCR2,IZ(IBUF2),1) IF (ITYP .NE. 0) GO TO 410 230 CALL READ (*560,*300,SCR1,IB(1),5,0,IFLAG) NP = 1 IF = 0 IF (IB(1) .EQ. 1) NP = 6 K = 0 240 L = IB(2) + K M = IB(4) + K C C IF NEITHER IGNORE C IF (IZ(L).EQ.0 .AND. IZ(M).EQ.0) GO TO 280 IF (IZ(L).LT.0 .AND. IZ(M).LT.0) GO TO 270 WRITE (NOUT,250) UWM,NOCNT 250 FORMAT (A25,I5) M = K + 1 WRITE (NOUT,260) M,IB(3),IB(5) 260 FORMAT ('0COMPONENT',I4,' OF GRID POINTS',I10,5H AND ,I10, 1 ' CANNOT BE CONNECTED.') GO TO 280 270 IF = IF + 1 IBB(1) = IABS(IZ(L)) IBB(2) = IB(3) IBB(3) = IABS(IZ(M)) IBB(4) = IB(5) CALL WRITE (SCR2,IBB,4,0) 280 K = K + 1 IF (K .NE. NP) GO TO 240 IF (IF .NE. 0) GO TO 230 WRITE (NOUT,250) UWM,NOPAR WRITE (NOUT,290) IB(3),IB(5) 290 FORMAT ('0NO COMPONENTS OF GRID POINTS',I10,5H AND ,I10, 1 ' WERE CONNECTED.') GO TO 230 C C CLOSE UP C 300 CALL WRITE (SCR2,0,0,1) CALL CLOSE (SCR1,1) CALL CLOSE (SCR2,1) C C BUILD CYCD C DO 310 I = 1,LUA IZ(I) = 0 310 CONTINUE FILE = SCR2 CALL GOPEN (SCR2,IZ(IBUF1),0) IF (ITYP .NE. 0) GO TO 520 320 CALL READ (*560,*360,SCR2,IBB,4,0,IFLAG) K = IBB(1) M = IBB(3) IF (IZ(K) .EQ. 0) GO TO 340 WRITE (NOUT,590) UFM,NOEQ WRITE (NOUT,330) IBB(2) 330 FORMAT ('0GRID POINT',I10,' IS LISTED MORE THAN ONCE.') NO GO = -1 340 IF (IZ(M) .EQ. 0) GO TO 350 WRITE (NOUT,590) UFM,NOEQ WRITE (NOUT,330) IBB(4) NOGO = -1 350 IZ(K) = M IZ(M) = -K GO TO 320 C C END OF PAIRS C 360 CALL CLOSE (SCR2,1) CALL GOPEN (CYCD,IZ(IBUF1),1) CALL WRITE (CYCD,IZ(1),LUA,1) CALL CLOSE (CYCD,1) MCB(1) = CYCD MCB(2) = ITYP + 1 MCB(3) = LUA CALL WRTTRL (MCB) IF (NOGO .NE. -1) RETURN GO TO 620 C C 1. DIHEDRAL TYPE C C BUILD FIVE WORD LIST C C C FIVE WORD ENTRY FOR EACH POINT IN SIDE 1 OR SIDE TWO LOOKS AS C FOLLOWS C 1 SIDE (1,2) C 2 COORD SYS (R = 1,C = 1,S = 2,BLANK = 0) C 3 CODE ( 1 = GRID 2 = SCALAR) C 4 INTERNAL INDEX (SIL) C 5 GRID ID (EXTERNAL) C 370 L = K CALL GOPEN (SCR1,IZ(IBUF1),1) 380 ICID = IZ(L+1) ISID = IZ(L ) IF (ICID .EQ. REC) ICID = 1 IF (ICID .EQ. CYL) ICID = 1 IF (ICID .EQ. SPH) ICID = 2 IF (ICID .EQ. BLK) ICID = 0 L = L + 3 390 IF (IZ(L) .EQ. -1) GO TO 400 IP = IZ (L) CALL BISLOC (*610,IP,IZ(1),2,NENT,M) IB(1) = ISID IB(2) = ICID IB(4) = IZ(M+1)/10 IB(3) = IZ(M+1) - IB(4)*10 IB(5) = IP CALL WRITE (SCR1,IB,5,0) L = L + 1 GO TO 390 C C END OF LIST C 400 IF (L .GE. LCYJ) GO TO 170 L = L + 1 GO TO 380 C C END OF CYJOIN LISTS C C C PRODUCE CYCD CODES C 410 CALL READ (*560,*300,SCR1,IB(1),5,0,IFLAG) NP = 1 IF (IB(3) .EQ. 1) NP = 6 IF = 0 K = 0 IF (IB(1) .EQ. 2) IB(1) = IB(1) + 1 420 L = IB(4) + K IF (IZ(L) .EQ. 0) GO TO 500 C C POINT IS IN A SET C IBB(2) = IABS(IZ(L)) IBB(3) = IB(5) IF (IB(3) .EQ. 2) GO TO 480 IF (IB(2) .EQ. 1) GO TO 440 IF (IB(2) .EQ. 2) GO TO 460 C C COORD SYS = 0 C WRITE (NOUT,590) UFM,NCORD WRITE (NOUT,430) IBB(3) 430 FORMAT ('0NO COORDINATE SYSTEM DEFINED FOR GRID POINT',I10) NOGO = -1 GO TO 480 C C RECTANGULAR OR CYL C 440 IF (MOD(K+1,2) .EQ. 1) GO TO 480 450 M = 1 GO TO 490 C C SPH C 460 IF (K.LT.2 .OR. K.EQ.5 .OR. NP.LT.3 .OR. NP.EQ.6) GO TO 480 GO TO 450 C C EVEN C 480 M = 0 490 IBB(1) = IB(1) + M IF = IF + 1 CALL WRITE (SCR2,IBB,3,0) 500 K = K + 1 IF (K .NE. NP) GO TO 420 IF (IF .NE. 0) GO TO 410 WRITE (NOUT,250) UWM,NOPAR WRITE (NOUT,510) IB(5) 510 FORMAT ('0NO COMPONENTS OF GRID POINT',I10,' WERE IN THE A SET') GO TO 410 C C BUILD CYCD FOR DIH C 520 CALL READ (*540,*360,SCR2,IBB,3,0,IFLAG) K = IBB(2) IF (IZ(K) .EQ. 0) GO TO 530 WRITE (NOUT,590) UFM,NOEQ WRITE (NOUT,330) IBB(3) NOGO = -1 530 IZ(K) = IBB(1) GO TO 520 C C ERROR MESSAGES C 540 IP1 = -1 550 CALL MESAGE (IP1,FILE,NAME) RETURN 560 IP1 = -2 GO TO 550 580 WRITE (NOUT,590) UFM,NOCY 590 FORMAT (A23,I5) WRITE (NOUT,600) 600 FORMAT ('0NO CYJOIN CARDS WERE SUPPLIED.') GO TO 620 610 CALL MESAGE (-30,2,IP) 620 CALL MESAGE (-61,0,NAME) RETURN END ================================================ FILE: mis/gpfdr.f ================================================ SUBROUTINE GPFDR C C GRID-POINT-FORCE-DATA-RECOVERY (MODULE) C C THIS MODULE FORMULATES OFP TYPE OUTPUT DATA BLOCKS OF ELEMENT- C STRAIN ENERGYS AND GRID-POINT FORCE BALANCES. C C DMAP CALLING SEQUENCES. C C SOLUTION 1 - C GPFDR CASECC,UGV,KMAT,KDICT,ECT,EQEXIN,GPECT,PG,QG/ONRGY1,OGPF1/ C *STATICS* $ C SOLUTION 3 - C GPFDR CASECC,PHIG,KMAT,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,OGPF1/ C *REIG* $ C C COMMENT FROM G.CHAN/UNISYS, 1/88 - C FOR MACHINES OF 32 OR 36 BIT WORDS, THE STRAIN ENERGY COMPUTATION C (OTHER COMPUTATIONS TOO) MUST BE DONE IN DOUBLE PRECISION. SINCE C THE K-MATRIX NORMALLY IN 10**7, AND THE DISPLACEMENT VECTOR IN C 10**-2 OR 10**-3 RANGE, SINGLE PRECISION COMPUTATION GIVES BAD C RESULT. C LOGICAL DICOUT ,ENGOUT ,ENFLAG ,ANYGP ,DIAGM ,ANY , 1 DOUBLE ,SILIN ,ENFILE ,GPFILE ,EORST4 ,AXIC , 2 AXIF INTEGER Z ,CASECC ,SCRT1 ,EOR ,SYSBUF ,TITLE , 1 NAMES(2) ,TYPOUT ,UG ,SCRT2 ,CORE ,SUBR(2) 2, GSIZE ,ECT ,SCRT3 ,SYMFLG ,EXTGP ,SUBTIT, 3 BUF(100) ,TRL(7) ,ONRGY1 ,GPSET ,POINTS ,SCRT4 , 4 PG ,QG ,UGPGQG ,OLOAD(2) ,OSPCF(2) ,III(2), 5 ISUM(10) ,SCALE(2) ,KVEC(10) ,CLSEOF ,RECIDX(3),OUTPT , 6 FILE ,MCB(7) ,EQEXIN ,OGPF1 ,ELNSET ,BRANCH, 7 RD ,APP ,GPECT ,SET ,GPDVIS ,SUBCAS, 8 RDREW ,ECTWDS ,GRDPTS ,COMPS(32),ELDVIS ,BUF1 , 9 WRT ,ELTYPE ,GRID1 ,EXELID ,DICLOC ,BUF2 , O WRTREW ,ELEM ,NAME(2) ,GRIDL ,IDREC(10),BUF3 , 1 CLS ,PHEAD(3) ,RECID(3) ,GPSIL ,COMP ,BUF4 , 2 CLSREW ,ESTID ,OLDCOD ,OUT(10) ,OLDID ,BUF5 , 3 PIVOT ,EXTID ,PTR ,ENTRYS ,TOTAL ,BUF6 , 5 METHOD(20) REAL RZ(1) ,RBUF(5) ,ROUT(10) ,VEC(6) ,RIDREC(146) , 1 RSUM(10) ,FVEC(10) DOUBLE PRECISION DIII ,ELENGY ,TOTENG ,DZ(1) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 ,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM ,SWM COMMON /SYSTEM/ SYSBUF ,OUTPT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW , 1 CLS ,CLSEOF COMMON /GPTA1 / NELEMS ,LAST ,INCR ,ELEM(1) COMMON /UNPAKX/ TYPOUT ,IROW ,NROW ,INCRX COMMON /ZNTPKX/ A(4) ,IROWX ,IEOL COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / APP(2) EQUIVALENCE (Z(1),RZ(1),DZ(1)) ,(BUF(1),RBUF(1)), 1 (OUT(1),ROUT(1)) ,(NAME1,NAMES(1)), 2 (NAME2,NAMES(2)) ,(IDREC(1),RIDREC(1)), 3 (DIII,III(1)) ,(ISUM(1),RSUM(1)), 4 (KVEC(1),FVEC(1)) DATA ENOEOR, EOR / 0,1/ , LBUF/100/, SUBR/4HGPFD,4HR / DATA CASECC, UG, KMAT,KDICT,ECT,EQEXIN,GPECT,PG, QG / 1 101 , 102,103, 104, 105,106, 107, 108,109 / DATA ONRGY1, OGPF1,SCRT1,SCRT2,SCRT3,SCRT4 ,LAMA / 1 201 , 202, 301, 302, 303, 304, 108 / DATA METHS / 10/, OLOAD/4HAPP-,4HLOAD/, OSPCF/4HF-OF,4H-SPC/ DATA SCALE / 5, 0/, ISUM / 0,0,4H*TOT,4HALS*,0,0,0,0,0,0 / DATA METHOD/ 4HSTAT,4HICS , 4HREIG,4HEN , 4HDS0 ,4H , 1 4HDS1 ,4H , 4HFREQ,4H , 4HTRAN,4HSNT , 2 4HBKL0,4H , 4HBKL1,4H , 4HCEIG,4HEN , 3 4HPLA ,4H / C C CASE CONTROL POINTERS C DATA TITLE , SUBTIT, LABEL / 39, 71,103 / DATA ISYM , IGP,IELN,ILSYM,ISUBC / 16,167,170,200,1 / C C DETERMINE APPROACH C N = 2*METHS - 1 DO 10 I = 1,N,2 IF (APP(1) .EQ. METHOD(I)) GO TO 40 10 CONTINUE WRITE (OUTPT,30) UWM,APP 30 FORMAT (A25,' 2342, UNRECOGNIZED APPROACH PARAMETER ',2A4, 1 ' IN GPFDR INSTRUCTION.') I = 19 NERROR = 0 GO TO 1810 C 40 BRANCH = (I+1)/2 C C INITIALIZATION AND BUFFER ALLOCATION. C CORE = KORSZ(Z) BUF1 = CORE - SYSBUF - 2 BUF2 = BUF1 - SYSBUF - 2 BUF3 = BUF2 - SYSBUF - 2 BUF4 = BUF3 - SYSBUF - 2 BUF5 = BUF4 - SYSBUF - 2 BUF6 = BUF5 - SYSBUF - 2 CORE = BUF6 - 1 C C READ IN FREQUENCIES IF APPROACH IS REIGEN C IF (BRANCH .NE. 2) GO TO 70 MODE = 0 CALL OPEN (*70,LAMA,Z(BUF1),RDREW) CALL FWDREC (*60,LAMA) CALL FWDREC (*60,LAMA) LFEQ = CORE 50 CALL READ (*60,*60,LAMA,BUF,7,0,IWORDS) RZ(CORE) = RBUF(5) CORE = CORE - 1 GO TO 50 60 CALL CLOSE (LAMA,CLSREW) C C GPTA1 DUMMY ELEMENT SETUP CALL. C 70 CALL DELSET NERROR = 1 IF (CORE) 1800,1800,80 C C OPEN CASE CONTROL C 80 FILE = CASECC NERROR = 2 CALL OPEN (*1760,CASECC,Z(BUF1),RDREW) CALL FWDREC (*1770,CASECC) C C OPEN VECTOR FILE. C FILE = UG CALL OPEN (*1760,UG,Z(BUF2),RDREW) CALL FWDREC (*1770,UG) TRL(1) = UG CALL RDTRL (TRL) GSIZE = TRL(3) C C PREPARE OUTPUT BLOCKS FOR ANY OUTPUTS POSSIBLE C ENFILE = .FALSE. CALL OPEN (*90,ONRGY1,Z(BUF3),WRTREW) ENFILE = .TRUE. CALL FNAME (ONRGY1,NAME) CALL WRITE (ONRGY1,NAME,2,EOR) CALL CLOSE (ONRGY1,CLSEOF) MCB(1) = ONRGY1 CALL RDTRL (MCB) MCB(2) = 0 CALL WRTTRL (MCB) C 90 GPFILE = .FALSE. NERROR = 4 CALL OPEN (*100,OGPF1,Z(BUF3),WRTREW) GPFILE = .TRUE. CALL FNAME (OGPF1,NAME) CALL WRITE (OGPF1,NAME,2,EOR) CALL CLOSE (OGPF1,CLSEOF) C 100 MOVEPQ = 1 SILIN = .FALSE. TRL(1) = EQEXIN CALL RDTRL (TRL) POINTS = TRL(2) ISILEX = 1 NSILEX = 2*POINTS NERROR = 5 IF (NSILEX .GT. CORE) GO TO 1800 ICCZ = NSILEX ICC = ICCZ + 1 GO TO 120 C C OPEN CASECC AND UGV WITH NO REWIND C 110 FILE = CASECC NERROR = 8 CALL OPEN (*1760,CASECC,Z(BUF1),RD) FILE = UG CALL OPEN (*1760,UG,Z(BUF2),RD) C C READ NEXT CASE CONTROL RECORD. C 120 CALL READ (*1750,*130,CASECC,Z(ICCZ+1),CORE-ICCZ,EOR,IWORDS) NERROR = 7 GO TO 1800 C 130 NCC = ICCZ + IWORDS ITEMP = ICCZ + ISUBC SUBCAS = Z(ITEMP) C C SYMMETRY-REPCASE, GP-FORCE REQUEST, AND EL-ENERGY REQUEST CHECKS C ITEMP = ICCZ + ISYM SYMFLG = Z(ITEMP) C C SET REQUEST PARAMETERS FOR GP-FORCE AND EL-ENERGY. C ITEMP = ICCZ + IGP GPSET = Z(ITEMP) IF (.NOT.GPFILE) GPSET = 0 GPDVIS = Z(ITEMP+1) ITEMP = ICCZ + IELN ELNSET = Z(ITEMP) IF (.NOT. ENFILE) ELNSET = 0 ELDVIS = Z(ITEMP+1) IF (GPSET.LE.0 .AND. ELNSET.LE.0) GO TO 170 C C POINTERS TO SET LIST DOMAINS C ITEMP = ICCZ + ILSYM LSYM = Z(ITEMP) ITEMP = ITEMP + LSYM + 1 140 SET = Z(ITEMP) ISET = ITEMP + 2 LSET = Z(ITEMP+1) C C CHECK IF THIS SET IS THE ONE FOR GP-FORCE C IF (SET .NE. GPSET) GO TO 150 IGPLST = ISET LGPLST = LSET C C CHECK IF THIS SET IS THE ONE FOR EL-ENERGY C 150 IF (SET .NE. ELNSET) GO TO 160 IELLST = ISET LELLST = LSET C 160 ITEMP = ISET + LSET IF (ITEMP .LT. NCC) GO TO 140 C C IS THIS A REPCASE. IF SO BACK-RECORD UG (REP-CASE OK ONLY FOR C STATICS) C 170 IF (SYMFLG) 180,190,190 C C NEGATIVE SYMFLG IMPLIES A REP-CASE. C 180 IF (APP(1) .NE. METHOD(1)) GO TO 120 C C REP-CASE AND STATICS APPROACH THUS POSITION BACK ONE C VECTOR ON UG UNLESS THERE IS NO REQUEST FOR GP-FORCE OR C EL-ENERGY TO BEGIN WITH. C IF (GPSET.EQ.0 .AND. ELNSET.EQ.0) GO TO 120 CALL BCKREC (UG) MOVEPQ = MOVEPQ - 1 GO TO 210 C C NOT A REP-CASE BUT STILL IF THERE IS NO REQUEST FOR C GP-FORCE OR EL-ENERGY POSITION OVER VECTORS ASSOCIATED C WITH THIS CASE. C 190 IF (GPSET.NE.0 .OR. ELNSET.NE.0) GO TO 210 IF (SYMFLG) 120,200,120 C C NOT A SYMMETRY CASE (WHICH WOULD USE VECTORS ALREADY READ, THUS C SKIP A VECTOR ASSOCIATED WITH THIS CASE. C 200 NERROR = 8 CIBMD 6/93 CALL FWDREC (*1770,UG) CIBMNB 6/93 C MAJOR LOOP OF MODULE TERMINATES WITH ENDING OF CASE CONTROL OR C END OF EIGENVECTORS COMPUTED. IF MODES CARD IS USED AND SPECIFIES C MORE MODES THAN WERE COMPUTED, THEN THE FOLLOWING WILL TERMINATE C THE LOOP. (SEE DEMO T03011A WHICH COMPUTED 4 EIGENVALUES BUT HAD C A MODES CARD SPECIFYING 5 MODES) CALL FWDREC (*1750,UG) CIBMNE MOVEPQ = MOVEPQ + 1 GO TO 120 C C BRING VECTOR INTO CORE, BRANCH IF SYMMETRY CASE. C 210 IVEC = NCC + 1 IVECZ = NCC NVEC = IVECZ + GSIZE NERROR = 9 IF (NVEC .GT. CORE) GO TO 1800 ASSIGN 320 TO IRETRN UGPGQG = UG 220 IF (SYMFLG) 230,230,260 C 230 IROW = 1 NROW = GSIZE INCRX = 1 TYPOUT = 1 CALL UNPACK (*240,UGPGQG,RZ(IVEC)) GO TO 310 C C NULL VECTOR (SET VECTOR SPACE TO ZERO) C 240 DO 250 I = IVEC,NVEC RZ(I) = 0.0 250 CONTINUE GO TO 310 C C SYMMETRY SEQUENCE. SUM VECTORS OF SEQUENCE APPLYING COEFFICIENTS. C 260 ITEMP = ICCZ + ILSYM LSYM = Z(ITEMP) C C BACK UP OVER THE VECTORS OF THE SEQUENCE C DO 270 I = 1,LSYM CALL BCKREC (UGPGQG) 270 CONTINUE C DO 280 I = IVEC,NVEC RZ(I) = 0.0 280 CONTINUE C DO 300 I = 1,LSYM ITEMP = ITEMP + 1 COEF = RZ(ITEMP) C C SUM IN COEF*VECTOR(I) C CALL INTPK (*300,UGPGQG,0,1,0) 290 CALL ZNTPKI J = IVECZ + IROWX RZ(J) = RZ(J) + COEF*A(1) IF (IEOL) 300,290,300 300 CONTINUE 310 GO TO IRETRN, (320,1460) C C AT THIS POINT VECTOR IS IN CORE ALONG WITH THE CASE CONTROL RECORD C C NOW START ECT PASS. IN THIS PASS GP-FORCES REQUESTED WILL BE C WRITTEN TO PMAT (A SCRATCH SET ACTUALLY=SCRT1), AND BY THE GINO C DIRECT-ACCESS METHOD. ALSO EL-ENERGY OUTPUTS WILL BE FORMED FOR C ANY REQUESTED ELEMENTS. C C NOTE. THE ASSEMBLY OF GP-FORCES FOR OUTPUT IS ACCOMPLISHED AFTER C ALL GP-FORCES REQUESTED HAVE BEEN WRITTEN TO PMAT. C 320 CALL CLOSE (CASECC,CLS) CALL CLOSE (UG,CLS) IF (SILIN) GO TO 370 C C GET SECOND RECORD OF EQEXIN INTO CORE AND TRANSFER CODES FROM C SILS TO EXTERNALS AND THEN INSURE SORT ON SILS. C NERROR = 6 FILE = EQEXIN CALL OPEN (*1760,EQEXIN,Z(BUF1),RDREW) CALL FWDREC (*1770,EQEXIN) CALL FWDREC (*1770,EQEXIN) CALL READ (*1770,*350,EQEXIN,Z(ISILEX),CORE-ISILEX,NOEOR,IWORDS) 330 WRITE (OUTPT,340) SWM,EQEXIN 340 FORMAT (A27,' 2343. DATA BLOCK',I5,' IS EITHER NOT -EQEXIN- OR ', 1 'POSSIBLY INCORRECT.') GO TO 1810 C 350 IF (IWORDS .NE. 2*POINTS) GO TO 330 CALL CLOSE (EQEXIN,CLSREW) DO 360 I = ISILEX,NSILEX,2 Z(I ) = 10*Z(I) + MOD(Z(I+1),10) Z(I+1) = Z(I+1)/10 360 CONTINUE SILIN = .TRUE. CALL SORT (0,0,2,2,Z(ISILEX),NSILEX-ISILEX+1) C C SET UP OFP ID RECORD WITH TITLE, SUBTITLE, AND LABEL. C 370 ITIT = ICCZ + TITLE ISUB = ICCZ + SUBTIT ILAB = ICCZ + LABEL DO 380 I = 1,32 IDREC(I+ 50) = Z(ITIT) IDREC(I+ 82) = Z(ISUB) IDREC(I+114) = Z(ILAB) ITIT = ITIT + 1 ISUB = ISUB + 1 ILAB = ILAB + 1 380 CONTINUE DO 390 I = 1,50 IDREC(I) = 0 390 CONTINUE FILE = ECT NERROR = 10 CALL OPEN (*1760,ECT,Z(BUF4),RDREW) FILE = KMAT CALL OPEN (*1760,KMAT,Z(BUF5),RDREW) C C DETERMINE PRECISION OF KMAT DATA C MCB(1) = KMAT CALL RDTRL (MCB) DOUBLE = .FALSE. IF (MCB(2) .EQ. 2) DOUBLE = .TRUE. FILE = KDICT CALL OPEN (*1760,KDICT,Z(BUF6),RDREW) CALL FWDREC (*1770,KDICT) C C PMAT WILL BE ON SCRATCH1 C PDICT WILL BE ON SCRATCH2 C FILE = SCRT1 NERROR = 11 CALL OPEN (*1760,SCRT1,Z(BUF1),WRTREW) FILE = SCRT2 CALL OPEN (*1760,SCRT2,Z(BUF2),WRTREW) C C REQUESTED OUTPUT ELEMENT ENERGIES WILL BE TEMPORARILY WRITTEN ON C SCRT3 WHILE THE TOTAL ENERGY IS SUMMED. C FILE = SCRT3 IF (ELNSET .NE. 0) CALL OPEN (*1760,SCRT3,Z(BUF3),WRTREW) NEXTGP = 1 LASTID = 0 OLDCOD = 0 TOTENG = 0.0D0 ESTID = 0 AXIC = .FALSE. AXIF = .FALSE. C C ECT PASS OF ALL ELEMENT TYPES PRESENT. C C DETERMINE NEXT ELEMENT TYPE TO FIND ON ECT AND THEN FIND ITS C TYPE IN ECT. C 400 FILE = KDICT NERROR = 12 CALL READ (*990,*1780,KDICT,RECID,3,NOEOR,IWORDS) KT = RECID(1) C C CCONAX CTRIAAX CTRAPAX IF (KT.EQ.35 .OR. KT.EQ.70 .OR. KT.EQ.71) AXIC = .TRUE. C CFLUID2/3/4 AND CFMASS IF (KT.GE.43 .AND. KT.LE.46) AXIF = .TRUE. C CAXIF2/3/4 AND CSLOT3/4 IF (KT.GE.47 .AND. KT.LE.51) AXIF = .TRUE. C FILE = ECT CALL FWDREC (*1770,ECT) 410 CALL READ (*1770,*1780,ECT,RECIDX,3,NOEOR,IWORDS) C 2147483647 = 2**31-1 IF (RECIDX(1) .EQ. 2147483647) GO TO 1770 DO 440 I = 1,LAST,INCR IF (ELEM(I+3) .NE. RECIDX(1)) GO TO 440 ELTYPE = (I/INCR) + 1 ECTWDS = ELEM(I+5) IF (ECTWDS .LE. LBUF) GO TO 430 WRITE (OUTPT,420) SWM,ELEM(I),ELEM(I+1) 420 FORMAT (A27,' 2344. GPFDR FINDS ELEMENT = ',2A4,' HAS AN ECT ', 1 'ENTRY LENGTH TOO LONG FOR A PROGRAM LOCAL ARRAY.') GO TO 1810 C 430 GRDPTS= ELEM(I+ 9) GRID1 = ELEM(I+12) NAME1 = ELEM(I ) NAME2 = ELEM(I+ 1) GO TO 470 440 CONTINUE C C UNRECOGNIZED ELEMENT DATA ON ECT. C WRITE (OUTPT,450) SWM,RECIDX 450 FORMAT (A27,' 2345. GPFDR FINDS AND IS IGNORING UNDEFINED ECT ', 1 'DATA WITH LOCATE NUMBERS = ',3I8) FILE = ECT C C PASS THIS ECT RECORD BUT KEEP ESTID COUNTER IN SYNC. C 460 CALL READ (*1770,*410,ECT,BUF,ECTWDS,NOEOR,IWORDS) ESTID = ESTID + 1 GO TO 460 C 470 IF (ELTYPE .NE. RECID(1)) GO TO 460 FILE = KDICT LDICT = RECID(2) IF (RECID(3) .EQ. GRDPTS) GO TO 500 480 WRITE (OUTPT,490) SWM,ELTYPE,KDICT 490 FORMAT (A27,' 2346. GPFDR FINDS DATA FOR EL-TYPE =',I9, 1 ' IN DATA BLOCK',I9, /5X, 2 'NOT TO BE IN AGREEMENT WITH THAT WHICH IS EXPECTED.') GO TO 1810 C 500 IKDIC = NVEC + 1 NKDIC = NVEC + LDICT DICOUT = .FALSE. ENGOUT = .FALSE. C C ALLOCATE A P-DICTIONARY FOR THE ELEMENTS GP-FORCE VECTOR C CONTRIBUTION. CONTENTS = ESTID, EXT-EL.-ID, GINO-LOCS (GRDPTS) C IPDIC = NKDIC + 1 NPDIC = IPDIC + GRDPTS + 1 LPDIC = GRDPTS + 2 NERROR= 13 IF (NPDIC .GT. CORE) GO TO 1800 ILOC1 = NKDIC - GRDPTS PHEAD(1) = ELTYPE PHEAD(2) = LPDIC PHEAD(3) = GRDPTS C C LOOP IS NOW MADE ON THE ELEMENT ENTRIES OF THIS ELEMENT TYPE. C NEXTEN = 1 C C READ NEXT ELEMENT DICTIONARY FROM KDICT OF CURRENT ELEMENT TYPE C AND FIND ECT ENTRY WITH SAME ESTID. C 510 FILE = KDICT CALL READ (*1770,*980,KDICT,Z(IKDIC),LDICT,NOEOR,IWORDS) FILE = ECT NERROR = 14 520 CALL READ (*1770,*1780,ECT,BUF,ECTWDS,NOEOR,IWORDS) ESTID = ESTID + 1 IF (Z(IKDIC)-ESTID) 480,530,520 C C DECODE THE CODE WORD INTO A LIST OF INTEGERS C 530 IF (Z(IKDIC+3) .EQ. OLDCOD) GO TO 540 OLDCOD = Z(IKDIC+3) CALL DECODE (OLDCOD,COMPS,NCOMPS) NCOMP2 = NCOMPS IF (DOUBLE) NCOMP2 = NCOMPS + NCOMPS C C DETERMINE ACTIVE CONNECTIONS C 540 NSIZE = Z(IKDIC+2) NGRIDS = NSIZE / NCOMP2 IF (NGRIDS .LE. GRDPTS) GO TO 560 WRITE (OUTPT,550) UWM,BUF(1) 550 FORMAT (A25,' 2347. GPFDR FINDS TOO MANY ACTIVE CONNECTING GRID', 1 ' POINTS FOR ELEMENT ID =',I9) GO TO 1810 C C ELEMENT ONLY DISPLACEMENT AND LOAD SPACE. C 560 IUGE = NPDIC + 1 IF (DOUBLE ) IUGE = IUGE/2 + 1 NUGE = IUGE + NSIZE - 1 IPGE = NUGE + 1 NPGE = NUGE + NSIZE IF (NPGE .GT. CORE) GO TO 1800 C C ECT ENTRY AND K-DICTIONARY ENTRY NOW AT HAND. C C SET FLAG IF EL-ENERGY IS TO BE OUTPUT FOR THIS ELEMENT. C EXELID = BUF(1) Z(IPDIC) = ESTID Z(IPDIC+1)= EXELID ENFLAG = .FALSE. IF (AXIC) EXELID = MOD(EXELID,10000 ) IF (AXIF) EXELID = MOD(EXELID,1000000) IF (ELNSET) 580,590,570 C C FIND THIS EXTERNAL ELEMENT ID IN THE REQUESTED SET LIST FOR C ELEMENT ENERGY OUTPUTS. C 570 CALL SETFND (*590,Z(IELLST),LELLST,EXELID,NEXTEN) 580 ENFLAG = .TRUE. 590 GRIDL = GRID1 + GRDPTS - 1 C C REORDER ECT CONNECTION LIST ACCORDING TO SIL SEQUENCE. C J = GRID1 - 1 600 J = J + 1 IF (J .GE. GRIDL) GO TO 620 GPSIL = ISILEX + 2*BUF(J) - 1 LSIL = Z(GPSIL) I = J 610 I = I + 1 IF (I .GT. GRIDL) GO TO 600 GPSIL = ISILEX + 2*BUF(I) - 1 ISIL = Z(GPSIL) IF (ISIL .GT. LSIL) GO TO 610 LSIL = BUF(J) BUF(J) = BUF(I) BUF(I) = LSIL LSIL = ISIL GO TO 610 C C NOW SET INTERNAL GRID POINT ID-S IN THE ECT ENTRY NEGATIVE IF THEY C ARE TO HAVE THEIR GP-FORCE BALANCE OUTPUT. C 620 ANYGP = .FALSE. IF (GPSET .EQ. 0) GO TO 670 DO 660 I = GRID1,GRIDL IF (BUF(I)) 660,660,630 630 IF (GPSET ) 650,660,640 640 IDX = ISILEX + 2*BUF(I) ID = Z(IDX-2)/10 IF (AXIC) ID = MOD(ID,1000000) IF (AXIF) ID = MOD(ID,500000 ) IF (ID .LT. LASTID) NEXTGP = 1 LASTID = ID CALL SETFND (*660,Z(IGPLST),LGPLST,ID,NEXTGP) 650 BUF(I) = -BUF(I) ANYGP = .TRUE. 660 CONTINUE C C IF NO GRID POINTS OF THIS ELEMENT WERE FLAGGED AND THERE IS C NO POTENTIAL OF ANY ELEMENT ENERGY OUTPUTS THEN SKIP THIS ELEMENT C AT THIS POINT. C 670 IF (.NOT.ANYGP .AND. ELNSET.EQ.0) GO TO 510 C C BUILD A NON-EXPANDED ELEMENT DISPLACEMENT VECTOR AT THIS TIME. C J = IUGE DO 720 I = GRID1,GRIDL IF (BUF(I)) 680,720,690 680 GPSIL = ISILEX - 2*BUF(I) - 1 GO TO 700 690 GPSIL = ISILEX + 2*BUF(I) - 1 700 ISIL = Z(GPSIL) DO 710 K = 1,NCOMPS LSIL = ISIL + COMPS(K) DZ(J) = DBLE(RZ(IVECZ+LSIL)) J = J + 1 710 CONTINUE 720 CONTINUE C IF (J-1 .EQ. NUGE) GO TO 740 WRITE (OUTPT,730) SWM,BUF(1) 730 FORMAT (A27,' 2348. GPFDR DOES NOT UNDERSTAND THE MATRIX-', 1 'DICTIONARY ENTRY FOR ELEMENT ID =',I9) GO TO 1810 C C TOTAL ELEMENT FORCE VECTOR IS NOW COMPUTED. C 740 DO 750 I = IPGE,NPGE DZ(I) = 0.0D0 750 CONTINUE C JSIZE = NSIZE IKMAT = NPGE + 1 IF (.NOT.DOUBLE) GO TO 760 JSIZE = JSIZE + NSIZE IKMAT = NPGE*2+ 1 760 NKMAT = IKMAT + JSIZE - 1 IF (NKMAT .GT. CORE) GO TO 1800 DIAGM = .FALSE. IF (Z(IKDIC+1) .EQ. 2) DIAGM = .TRUE. C C LOOP THROUGH ALL PARTITIONS ON KMAT FOR THIS ELEMENT. C JPGE = IPGE DO 870 I = 1,GRDPTS ITEMP = ILOC1 + I IF (Z(ITEMP)) 770,870,770 770 CALL FILPOS (KMAT,Z(ITEMP)) IF (DIAGM) GO TO 830 C C FULL MATRIX. READ COLUMNS OF ROW-STORED VERETICAL PARTITION. C NERROR = 16 DO 820 K = 1,NCOMPS CALL READ (*1770,*1780,KMAT,Z(IKMAT),JSIZE,NOEOR,IWORDS) JKMAT = IKMAT IF (DOUBLE) GO TO 790 DO 780 J = IUGE,NUGE DZ(JPGE) = DZ(JPGE) + DZ(J)*DBLE(RZ(JKMAT)) JKMAT = JKMAT + 1 780 CONTINUE GO TO 810 C 790 DO 800 J = IUGE,NUGE III(1) = Z(JKMAT ) III(2) = Z(JKMAT+1) DZ(JPGE) = DZ(JPGE) + DZ(J)*DIII JKMAT = JKMAT + 2 800 CONTINUE C 810 JPGE = JPGE + 1 820 CONTINUE GO TO 870 C C DIAGONAL MATRIX. THUS ONLY DIAGONAL TERMS OF PARTITION CAN C BE READ. C 830 NERROR = 17 CALL READ (*1770,*1780,KMAT,Z(IKMAT),NCOMP2,NOEOR,IWORDS) IF (DOUBLE) GO TO 850 C DO 840 J = 1,NCOMPS DZ(JPGE) = DZ(IUGE+J-1)*DBLE(RZ(IKMAT+J-1)) JPGE = JPGE + 1 840 CONTINUE GO TO 870 C 850 JKMAT = IKMAT DO 860 J = 1,NCOMPS III(1) = Z(JKMAT) III(2) = Z(JKMAT+1) DZ(JPGE) = DZ(IUGE+J-1)*DIII JKMAT = JKMAT + 2 JPGE = JPGE + 1 860 CONTINUE C 870 CONTINUE C C ENERGY COMPUTATION IS NOW MADE IF NECESSARY. C C U = 0.5(PG ) X (UG ) C T E E C C IF (ELNSET) 880,900,880 880 JPGE = IPGE ELENGY= 0.0D0 DO 890 I = IUGE,NUGE ELENGY= ELENGY + DZ(I)*DZ(JPGE) JPGE = JPGE + 1 890 CONTINUE C C NOTE, TOTAL ENERGY WILL BE DIVIDED BY 2.0 LATER. C TOTENG = TOTENG + ELENGY C C WRITE THIS ELEMENTS ENERGY ON SCRT3 FOR LATER OUTPUT IF REQUESTED. C IF (.NOT. ENFLAG) GO TO 900 OUT (1) = BUF(1) ROUT(2) = SNGL(ELENGY)*0.50 IF (.NOT.ENGOUT) CALL WRITE (SCRT3,NAMES,2,NOEOR) CALL WRITE (SCRT3,OUT,2,NOEOR) ENGOUT = .TRUE. C C GRID POINT FORCE BALANCE OUTPUTS FOR REQUESTED GIRD POINTS. C 900 IF (.NOT. ANYGP) GO TO 970 C C EXPAND TO 6X1 FROM PGE EACH GRID POINT FORCE TO BE OUTPUT. C C FORCES COMPUTED FOR COMPONENTS OTHER THAN 1 THRU 6 ARE NOT C NOW OUTPUT FROM MODULE GPFDR... FUTURE ADDITIONAL CAPABLILITY. C OFP MODS NEEDED AT THAT TIME. C JPGE = IPGE DICLOC = IPDIC + 2 DO 910 I = DICLOC,NPDIC Z(I) = 0 910 CONTINUE DO 960 I = GRID1,GRIDL IF (BUF(I)) 930,960,920 C C THIS GRID POINT NOT IN GP-FORCE BALANCE REQUEST LIST. C 920 JPGE = JPGE + NCOMPS DICLOC = DICLOC + 1 GO TO 960 C C OK THIS GRID POINT GETS OUTPUT. C 930 DO 940 J = 1,6 VEC(J) = 0.0 940 CONTINUE DO 950 J = 1,NCOMPS COMP = COMPS(J) IF (COMP .LE. 5) VEC(COMP+1) =-SNGL(DZ(JPGE)) JPGE = JPGE + 1 950 CONTINUE C CALL WRITE (SCRT1,VEC,6,EOR) CALL SAVPOS (SCRT1,Z(DICLOC)) DICLOC = DICLOC + 1 960 CONTINUE C C OUTPUT THE DICTIONARY C IF (.NOT.DICOUT) CALL WRITE (SCRT2,PHEAD,3,NOEOR) CALL WRITE (SCRT2,Z(IPDIC),LPDIC,NOEOR) DICOUT = .TRUE. C C GO FOR NEXT ELEMENT OF CURRENT TYPE. C 970 GO TO 510 C C END OF ELEMENT ENTRIES OF CURRENT ELEMENT TYPE. C COMPLETE RECORDS IN PDIC, AND SCRT3=EL-ENERGY. C 980 IF (DICOUT) CALL WRITE (SCRT2,0,0,EOR) IF (ENGOUT) CALL WRITE (SCRT3,0,0,EOR) C C GO FOR NEXT ELEMENT TYPE C GO TO 400 C C END OF ALL ELEMENT DATA ON ECT (WRAP UP PHASE I OF GPFDR). C 990 CALL CLOSE (KMAT,CLSREW) CALL CLOSE (KDICT,CLSREW) CALL CLOSE (ECT,CLSREW) CALL CLOSE (SCRT1,CLSREW) CALL CLOSE (SCRT2,CLSREW) CALL CLOSE (SCRT3,CLSREW) C C PREPARE AND WRITE THE ELEMENT ENERGY OUTPUTS NOW RESIDENT ON SCRT3 C IF (ELNSET .EQ. 0) GO TO 1050 C C OFP ID RECORD DATA C DEVICE, OFP-TYPE, TOTAL ENERGY, SUBCASE, ELEMENT NAME, WORDS C PER ENTRY. C IDREC( 1) = 10*BRANCH + ELDVIS IDREC( 2) = 18 RIDREC(3) = SNGL(TOTENG)*0.50 IDREC( 4) = SUBCAS IDREC(10) = 3 C C IF APPROACH IS REIG, PUT MODE NO. AND FREQ. INTO IDREC, 8 AND 9 C WORDS C IF (BRANCH .NE. 2) GO TO 1000 RIDREC(9) = RZ(LFEQ-MODE) MODE = MODE + 1 IDREC( 8) = MODE C 1000 NERROR = 22 FILE = ONRGY1 CALL OPEN (*1760,ONRGY1,Z(BUF2),WRT) FILE = SCRT3 CALL OPEN (*1760,SCRT3,Z(BUF3),RDREW) C C TOTENG FACTOR FOR MULTIPLICATION TO GET DECIMAL PERCENTAGE BELOW C IF (TOTENG .NE. 0.0D0) TOTENG = 200.0D0/TOTENG C C READ ELEMENT NAME INTO IDREC RECORD. C JTYPE = 0 1010 CALL READ (*1040,*1780,SCRT3,IDREC(6),2,NOEOR,IWORDS) CALL WRITE (ONRGY1,IDREC,146,EOR) 1020 CALL READ (*1770,*1030,SCRT3,BUF,2,NOEOR,IWORDS) JTYPE = JTYPE + 1 BUF(1) = 10*BUF(1) + ELDVIS RBUF(3)= RBUF(2)*SNGL(TOTENG) CALL WRITE (ONRGY1,BUF,3,NOEOR) GO TO 1020 C 1030 CALL WRITE (ONRGY1,0,0,EOR) GO TO 1010 C 1040 CALL CLOSE (ONRGY1,CLSEOF) MCB(1) = ONRGY1 CALL RDTRL (MCB) MCB(2) = MCB(2) + JTYPE CALL WRTTRL (MCB) CALL CLOSE (SCRT3,CLSREW) IDREC(3) = 0 IDREC(6) = 0 IDREC(7) = 0 C C A GRID-POINT-FORCE-BALANCE-OUTPUT-MAP IS NOW CONSTRUCTED. (GPFBOM) C C CONTENTS... 1 LOGICAL RECORD FOR EACH GRID POINT TO BE OUTPUT C =========== C C REPEATING 4 * EXTERNAL-ELEMENT-ID C WORD ENTRIES * ELEMENT NAME FIRST 4H C OF THE CON- * ELEMENT NAME LAST 4H C NECTED ELEMENTS * GINO-LOC OF THE 6X1 FORCE VECTOR CONTRIBUTION C C FOR EACH RECORD WRITTEN ABOVE, A 3-WORD ENTRY IS WRITTEN TO A C COMPANION DICTIONARY FILE GIVING, C C * 1-THE EXTERNAL GRID POINT ID C REPEATING ENTRY * 2-THE GINO-LOC TO THE ABOVE RECORD C * 3-THE NUMBER OF ENTRIES IN THE RECORD C C C ALLOCATE A TABLE WITH AN ENTRY FOR EACH ELEMENT TYPE. C POSSIBLE IN IT. EACH ENTRY TO HAVE 3 WORDS. C C ENTRY I = 1= PTR TO DICTIONARY DATA FOR ELEMENT TYPE-I C ********* 2= LENGTH OF DICTIONARY DATA C 3= NUMBER OF ENTRIES C 1050 IF (GPSET .EQ. 0) GO TO 110 IDTAB = NCC + 1 NDTAB = IDTAB + NELEMS*3 - 1 JDICTS= NDTAB + 1 IF (JDICTS .GT. CORE) GO TO 1800 DO 1060 I = IDTAB,NDTAB Z(I) = 0 1060 CONTINUE C C READ IN DICTIONARIES OF PMAT VECTORS. (SCRT2) C FILE = SCRT2 CALL OPEN (*1760,SCRT2,Z(BUF2),RDREW) C C READ AN ELEMENT TYPE HEADER (FIRST 3-WORDS OF EACH RECORD) C 1070 CALL READ (*1090,*1780,SCRT2,BUF,3,NOEOR,IWORDS) ITYPE = BUF(1) LDICT = BUF(2) GRDPTS= BUF(3) K = INCR*ITYPE - INCR J = IDTAB + 3*ITYPE - 3 Z(J) = JDICTS C C BLAST READ IN THE DICTIONARIES OF THIS TYPE. C CALL READ (*1770,*1080,SCRT2,Z(JDICTS),CORE-JDICTS,NOEOR,IWORDS) NERROR = 18 GO TO 1800 C 1080 Z(J+1) = IWORDS Z(J+2) = IWORDS/LDICT JDICTS = JDICTS + IWORDS NERROR = 19 IF (CORE-JDICTS) 1800,1800,1070 C 1090 CALL CLOSE (SCRT2,CLSREW) C C DICTIONARIES ALL IN CORE. SCRT2 IS AVAILABLE FOR USE AS THE C -GPFBOM-. C NDICTS = JDICTS - 1 C C PASS THE -GPECT- AND BUILD THE -GPFBOM- (ON SCRT2) AND ITS C COMPANION DICTIONARY FILE (ON SCRT3). C FILE = SCRT2 CALL OPEN (*1760,SCRT2,Z(BUF2),WRTREW) FILE = SCRT3 CALL OPEN (*1760,SCRT3,Z(BUF3),WRTREW) C FILE = GPECT CALL OPEN (*1760,GPECT,Z(BUF4),RDREW) CALL FWDREC (*1770,GPECT) OLDID = 0 NEXT = 1 C C READ PIVOT HEADER DATA FROM -GPECT- RECORD. C 1100 CALL READ (*1240,*1780,GPECT,BUF,2,NOEOR,IWORDS) PIVOT = BUF(1) C C CONVERT SIL TO EX-ID C CALL BISLOC (*1200,PIVOT,Z(ISILEX+1),2,POINTS,J) J = ISILEX + J - 1 EXTID = Z(J)/10 IDEXT = EXTID IF (AXIC) IDEXT = MOD(EXTID,1000000) IF (AXIF) IDEXT = MOD(EXTID,500000 ) NENTRY = 0 C C CHECK FOR OUTPUT REQUEST THIS EX-ID C IF (GPSET) 1120,1220,1110 1110 IF (IDEXT .LT. OLDID) NEXT = 1 OLDID = IDEXT CALL SETFND (*1220,Z(IGPLST),LGPLST,IDEXT,NEXT) C C YES GP-FORCE BALANCE FOR PIVOT IS TO BE OUTPUT. C C PROCESS ALL ELEMENTS CONNECTING THIS PIVOT. C 1120 CALL READ (*1770,*1230,GPECT,LENGTH,1,NOEOR,IWORDS) LENGTH = IABS(LENGTH) IF (LENGTH .LE. LBUF) GO TO 1140 WRITE (OUTPT,1130) SWM,PIVOT,GPECT 1130 FORMAT (A27,' 2349. GPFDR FINDS AN ELEMENT ENTRY CONNECTING ', 1 'PIVOT SIL =',I9,' ON DATA BLOCK',I5, /5X, 2 'TOO LARGE FOR A LOCAL ARRAY. ENTRY IS BEING IGNORED.') CALL READ (*1770,*1780,GPECT,0,-LENGTH,NOEOR,IWORDS) GO TO 1120 C C LOCATE ELEMENT FORCE DICTIONARY FOR THIS ELEMENT ENTRY. C 1140 CALL READ (*1770,*1780,GPECT,BUF,LENGTH,NOEOR,IWORDS) KTYPE = BUF(2)*3 - 3 + IDTAB PTR = Z(KTYPE) LDICTS= Z(KTYPE+2) IF (LDICTS .EQ. 0) GO TO 1180 N = Z(KTYPE+1) CALL BISLOC (*1180,BUF(1),Z(PTR),N/LDICTS,LDICTS,J) J = PTR + J OUT(1) = Z(J) C C FOUND DICTIONARY. DETERMINE GINO-LOC TO USE. C DO 1150 I = 3,LENGTH J = J + 1 IF (BUF(I).EQ.PIVOT .AND. Z(J).GT.0) GO TO 1170 1150 CONTINUE WRITE (OUTPT,1160) SWM,PIVOT,OUT(1),GPECT 1160 FORMAT (A27,' 2350. GPFDR CANNOT FIND PIVOT SIL =',I10, /5X, 1 'AMONG THE SILS OF ELEMENT ID =',I9, 2 ' AS READ FROM DATA BLOCK',I5,', ENTRY THUS IGNORED.') GO TO 1120 C 1170 K = BUF(2)*INCR - INCR OUT(2) = ELEM(K+1) OUT(3) = ELEM(K+2) OUT(4) = Z(J) C C GINO-LOC IN P-DICTIONARY NO LONGER NEEDED, THUS SET IT NEGATIVE C TO AVOID RE-USE IN CASE WHERE AN ELEMENT CONNECTS SAME GRID MORE C THAN ONCE. C Z(J) = -Z(J) C C OUTPUT THE 4-WORD ENTRY TO -GPFBOM- C CALL WRITE (SCRT2,OUT,4,NOEOR) C C INCREMENT COUNTS C NENTRY = NENTRY + 1 C C GET THE NEXT ELEMENT ENTRY. C GO TO 1120 C C HERE WHEN PMAT DICTIONARY MISSING FOR AN ELEMENT C CONNECTED TO A GRID POINT TO HAVE GP-FORCE BALANCE OUTPUT. C 1180 KKK = BUF(2)*INCR - INCR WRITE (OUTPT,1190) UIM,ELEM(KKK+1),ELEM(KKK+2),EXTID 1190 FORMAT (A29,' 2351. A FORCE CONTRIBUTION DUE TO ELEMENT TYPE = ', 1 2A4,', ON POINT ID =',I10, /5X, 2 'WILL NOT APPEAR IN THE GRID-POINT-FORCE-BALANCE SUMMARY.') GO TO 1120 C C SIL NOT FOUND IN LIST OF SILS, OR NOT REQUESTED. C 1200 WRITE (OUTPT,1210) SWM,PIVOT,GPECT 1210 FORMAT (A27,' 2352. GPFDR IS NOT ABLE TO FIND PIVOT SIL =',I10, 1 ' AS READ FROM DATA BLOCK',I5, /5X,'IN TABLE OF SILS.') C 1220 CALL FWDREC (*1770,GPECT) GO TO 1100 C C HERE WHEN END OF RECORD ON GPECT. C COMPLETE THE RECORD ON -GPFBOM- AND WRITE DICTIONARY ENTRY FOR THE C COMPLETED RECORD. C 1230 CALL WRITE (SCRT2,0,0,EOR) BUF(1) = EXTID BUF(3) = NENTRY CALL SAVPOS (SCRT2,BUF(2)) CALL WRITE (SCRT3,BUF,3,NOEOR) C C GO FOR NEXT PIVOT SIL C GO TO 1100 C C HERE WHEN END OF FILE ON -GPECT-. C 1240 CALL CLOSE (GPECT,CLSREW) CALL CLOSE (SCRT2,CLSREW) CALL CLOSE (SCRT3,CLSREW) C C SO AS TO OUTPUT THE FORCE BALANCES IN EXTERNAL GRID POINT ORDER C THE FOLLOWING STEPS ARE NOW PERFORMED ON THE DICTIONARY ENTRIES OF C THE -GPFBOM- COMPANION FILE (SCRT3). C C 1) ALL OF THE COMPANION FILE DICTIONARIES ARE READ INTO CORE. C 2) THEY ARE SORTED ON THE EXTERNAL IDS. C 3) THEY ARE PARTITIONED INTO GROUPS BASED ON A CONSIDERATION OF C THE NEED FOR 12 WORDS OF CORE FOR EACH ENTRY OF EACH -GPFBOM- C RECORD REPRESENTED BY THE GROUP IN THE FINAL OUTPUT PASS. C 4) EACH ENTRYS 3-RD WORD (THE NUMBER OF ENTRIES IN THE RECORD) IS C REPLACED WITH THE INTEGER POSITION OF THE ENTRY IN THE GROUP. C 5) EACH GROUP IS SORTED ON GINO-LOC AND WRITTEN BACK C TO THE COMPANION FILE AS A LOGICAL RECORD. (THIS INSURES THAT C NO MORE THAN ONE PASS OF THE -GPFBOM- IS MADE PER GROUP WHEN C CONSTRUCTING TABLE-1 AND TABLE-2 IN THE FINAL OUTPUT PASS.) C FILE = SCRT3 NERROR = 20 CALL OPEN (*1760,SCRT3,Z(BUF3),RDREW) C C BLAST-READ 3-WORD -GPFBOM- DICTIONARY ENTRIES INTO CORE. C IDICTS = NCC + 1 CALL READ (*1770,*1250,SCRT3,Z(IDICTS),CORE-IDICTS,NOEOR,IWORDS) GO TO 1800 C 1250 NDICTS = IDICTS + IWORDS - 1 CALL CLOSE (SCRT3,CLSREW) NERROR = 21 CALL OPEN (*1760,SCRT3,Z(BUF3),WRTREW) C C SORT ENTRIES ON EXTERNAL ID C CALL SORT (0,0,3,1,Z(IDICTS),IWORDS) C C DETERMINE A -GPFBOM- GROUP OF RECORDS FOR OUTPUT. EACH -GPFBOM- C RECORDS ENTRY WILL REQUIRE 12 WORDS OF CORE IN THE FINAL OUTPUT C PROCEEDURES. C ENTRYS = (CORE-NCC)/12 1260 J = IDICTS TOTAL = 0 1270 IF (TOTAL+Z(J+2) .GT. ENTRYS) GO TO 1280 TOTAL = TOTAL + Z(J+2) J = J + 3 IF (J .LT. NDICTS) GO TO 1270 C C GROUP RANGE HAS BEEN FOUND. REPLACE EACH ENTRYS -GPFBOM- ENTRY C COUNT WITH THE OUTPUT ORDER OF THE EXTERNAL ID ENTRY HERE. C 1280 JDICTS = J - 1 K = 1 DO 1290 I = IDICTS,JDICTS,3 JK = Z(I+2) Z(I+2) = K K = K + JK 1290 CONTINUE C C SORT THIS GROUP OF 3-WORD ENTRIES ON THE GINO-LOCS. C LENGTH = JDICTS - IDICTS + 1 CALL SORT (0,0,3,2,Z(IDICTS),LENGTH) C C OUTPUT AS A LOGICAL RECORD. C CALL WRITE (SCRT3,Z(IDICTS),LENGTH,EOR) C C PROCESS NEXT GROUP IF THERE ARE MORE. C IDICTS = JDICTS + 1 IF (IDICTS .LT. NDICTS) GO TO 1260 C C ALL GROUPS HAVE BEEN DETERMINED, SEQUENCED, SORTED ON GINO-LOCS, C AND OUTPUT. C CALL CLOSE (SCRT3,CLSREW) C C PREPARE GRID-POINT-FORCE-BALANCE ENTRIES WITH RESPECT TO APPLIED- C LOAD AND SINGLE-POINT-CONSTRAINT FORCES. C C LINE ENTRIES WILL BE WRITTEN TO SCRT4 FROM THE VECTOR IN CORE C FOR EACH OF PG AND QG CONTAINING, C C EXTERNAL GP ID, 0, 4H----, 4H----, T1, T2, T3, R1, R2, R3, C C ONLY FOR THOSE POINTS WHICH MAY BE OUTPUT IN THE GRID-POINT FORCE C BALANCE. C C (NULL ENTRIES ARE NOT OUTPUT) C C AFTER ALL ENTRIES FOR PG AND QG DESIRED HAVE BEEN WRITTEN TO C SCRT4 THEY ARE BROUGHT BACK INTO CORE, SORTED ON EXTERNAL GP ID C AND RE-OUTPUT TO SCRT4. C FILE = SCRT4 CALL OPEN (*1760,SCRT4,Z(BUF1),WRTREW) C C PROCESS PG. C UGPGQG = PG BUF(2) = 0 BUF(3) = OLOAD(1) BUF(4) = OLOAD(2) LASTID = 0 NEXTGP = 1 ASSIGN 1300 TO ICONT GO TO 1400 C C PROCESS QG C 1300 UGPGQG = QG BUF(3) = OSPCF(1) BUF(4) = OSPCF(2) LASTID = 0 NEXTGP = 1 ASSIGN 1310 TO ICONT GO TO 1400 C C SORT SCRT4 ENTRIES ON EXTERNAL GP ID C 1310 CALL WRITE (SCRT4,0,0,EOR) CALL CLOSE (SCRT4,CLSREW) MOVEPQ = 0 CALL OPEN (*1760,SCRT4,Z(BUF1),RDREW) CALL READ (*1770,*1330,SCRT4,Z(ICC),BUF1-ICC,NOEOR,IWORDS) WRITE (OUTPT,1320) UWM,SUBCAS 1320 FORMAT (A25,' 2353. INSUFFICIENT CORE TO HOLD ALL NON-ZERO APP-', 1 'LOAD AND F-OF-SPC OUTPUT LINE ENTRIES OF', /5X, 2 'GRID-POINT-FORCE-BALANCE REQUESTS. SOME POINTS REQUESTED', 3 ' FOR OUTPUT WILL BE MISSING THEIR APP-LOAD OR F-OF-SPC', 4 /5X,'CONTRIBUTION IN THE PRINTED BALANCE.') IWORDS = BUF1 - ICC - MOD(BUF1-ICC,10) 1330 CALL SORT (0,0,10,1,Z(ICC),IWORDS) CALL CLOSE (SCRT4,CLSREW) CALL OPEN (*1760,SCRT4,Z(BUF1),WRTREW) CALL WRITE (SCRT4,Z(ICC),IWORDS,EOR) CALL CLOSE (SCRT4,CLSREW) GO TO 1560 C C INTERNAL ROUTINE TO GET A VECTOR IN CORE (PG OR QG) AND WRITE C SELECTED NON-ZERO ENTRIES TO SCRT4 FOR INCLUSION LATER IN THE C GRID-POINT-FORCE-BALANCE. C 1400 CALL OPEN (*1550,UGPGQG,Z(BUF2),RD) IF (MOVEPQ) 1410,1450,1430 C C BACK POSITION DATA BLOCK C 1410 J = IABS(MOVEPQ) DO 1420 I = 1,J CALL BCKREC (UGPGQG) 1420 CONTINUE GO TO 1450 C C FORWARD POSITION DATA BLOCK C 1430 FILE = UGPGQG DO 1440 I = 1,MOVEPQ CALL FWDREC (*1770,UGPGQG) 1440 CONTINUE C C GET VECTOR INTO CORE. C 1450 ASSIGN 1460 TO IRETRN GO TO 220 C C OUTPUT NON-ZERO ENTRIES REQUESTED C 1460 CALL CLOSE (UGPGQG,CLS) DO 1540 I = ISILEX,NSILEX,2 ICODE = MOD(Z(I),10) I1 = IVECZ + Z(I+1) I2 = I1 + SCALE(ICODE) DO 1470 J = I1,I2 IF (RZ(J)) 1480,1470,1480 1470 CONTINUE GO TO 1540 C C NON-ZERO ENTRY. CHECK FOR OUTPUT. C 1480 BUF(1) = Z(I)/10 IBUF1 = BUF(1) IF (AXIC) IBUF1 = MOD(IBUF1,1000000) IF (AXIF) IBUF1 = MOD(IBUF1,500000 ) IF (IBUF1 .LT. LASTID) NEXTGP = 1 LASTID = IBUF1 IF (GPSET) 1500,1550,1490 1490 CALL SETFND (*1540,Z(IGPLST),LGPLST,IBUF1,NEXTGP) 1500 L = 5 DO 1510 J = I1,I2 BUF(L) = Z(J) L = L + 1 1510 CONTINUE IF (L .GE. 11) GO TO 1530 DO 1520 J = L,10 RBUF(L) = 0.0 1520 CONTINUE 1530 BUF(1) = BUF(1)*10 + GPDVIS CALL WRITE (SCRT4,BUF,10,NOEOR) 1540 CONTINUE 1550 GO TO ICONT, (1300,1310) 1560 CONTINUE C C FINAL OUTPUT PHASE FOR CURRENT CASE CONTROL. C C THE -GPFBOM- COMPANION FILE IS PROCESSED RECORD BY RECORD. C C FOR EACH RECORD THEN, C C 1) A 3-WORD ENTRY IS READ GIVING 1) EXTERNAL GP-ID C 2) GINO-LOC OF -GPFBOM- RECORD C 3) OUTPUT ORDER WITHIN THE GROUP. C C 2) -GPFBOM- IS POSITIONED USING THE GINO-LOC. C C 3) A POINTER IS DETERMINED INTO TABLE-2 OF WHERE OUTPUTS BELONG C =10*ORDER - 10 (A ZERO POINTER) + TABLE BASE (A ZERO POINTER) C C 4) ENTRIES ARE READ FROM -GPFBOM- CONTAINING, C C 1) EXTERNAL ELEMENT ID C 2) ELEMENT NAME FIRST 4H C 3) ELEMENT NAME LAST 4H C 4) GINO LOC TO 6X1 FORCE VECTOR C C UNTIL AN EOR IS ENCOUNTERED. C C FOR EACH ENTRY READ A 2-WORD ENTRY IS ADDED TO TABLE-1 C CONSISTING OF 1) GINO-LOC TO THE 6X1 VECTOR C 2) PTR INTO TABLE-2 C C AND A 10-WORD ENTRY IS ADDED TO TABLE-2 AT Z(PTR) C CONSISTING OF 1) EXTERNAL GP-ID C 2) EXTERNAL ELEMENT-ID C 3) NAME FIRST 4H C 4) NAME LAST 4H C 5 THRU 10) NOT SET YET. C C 5) WHEN ALL ENTRIES OF THE -GPFBOM- RECORDS OF THE GROUP C (AS SPECIFIED BY ONE RECORD ON THE COMPANINON FILE) ARE IN CORE C TABLE-1 IS SORTED ON GINO LOCS. C THIS WILL PREVENT HAVING TO MAKE MORE THAN ONE PASS C OF THE PMAT DATA PER GROUP. C C 6) A SERIAL PASS OF TABLE-1 IS MADE AND EACH 6X1 VECTOR IS C READ DIRECTLY INTO Z(PTR+4) OF TABLE-2. C C 7) OUTPUT TO THE FORCE BALANCE DATA BLOCK IS MADE WITH THE C STANDARD OFP METHOD OF HEADER RECORD, AND REPEATING ENTRY DATA C RECORD. A HEADER RECORD WILL BE OUTPUT EACH TIME THE GRID C POINT CHANGES. C C C ALLOCATE TABLE-1 AND TABLE-2 C ITAB1 = NCC + 1 NTAB1 = NCC + 2*ENTRYS ITAB2 = NTAB1 + 1 C C OPEN -GPFBOM- (SCRT2) AND ITS COMPANION DICTIONARY FILE (SCRT3). C FILE = SCRT2 NERROR = 23 CALL OPEN (*1760,SCRT2,Z(BUF2),RDREW) FILE = SCRT3 CALL OPEN (*1760,SCRT3,Z(BUF3),RDREW) C C OPEN THE OUTPUT FILE FOR GP-FORCES. C FILE = OGPF1 CALL OPEN (*1760,OGPF1,Z(BUF4),WRT) LINES = 0 IDREC(1) = 10*BRANCH + GPDVIS IDREC(2) = 19 IDREC(4) = SUBCAS IDREC(10)= 10 C C OPEN THE PMAT 6X1 FORCE VECTORS FILE. C FILE = SCRT1 CALL OPEN (*1760,SCRT1,Z(BUF1),RDREW) C C INITIALIZE INPUT OF APP-LOAD AND F-OF-SPC LINE ENTRIES FROM SCRT4. C FILE = SCRT4 CALL OPEN (*1760,SCRT4,Z(BUF5),RDREW) CALL READ (*1770,*1570,SCRT4,KVEC,10,NOEOR,IWORDS) EORST4 = .FALSE. GO TO 1580 1570 EORST4 = .TRUE. 1580 CONTINUE C C PROCESS ONE GROUP OF -GPFBOM- RECORDS AS SPECIFIED BY THE 3-WORD C ENTRIES OF ONE RECORD ON SCRT3. C ANY = .FALSE. OLDID = 0 CALL WRITE (OGPF1,IDREC,146,EOR) 1590 IPTR1 = ITAB1 - 1 JTAB1 = ITAB1 - 1 JTAB2 = ITAB2 - 1 FILE = SCRT2 1600 CALL READ (*1740,*1620,SCRT3,BUF,3,NOEOR,IWORDS) EXTGP = BUF(1) LOC = BUF(2) IPTR2 = ITAB2 + 10*BUF(3) - 11 C C POSITION -GPFBOM- TO RECORD OF 4-WORD ENTRIES FOR THIS EXTERNAL GP C CALL FILPOS (SCRT2,LOC) NERROR = 24 C C READ AND DISTRIBUTE THE DATA OF THE 4-WORD ENTRIES. C 1610 CALL READ (*1770,*1600,SCRT2,BUF,4,NOEOR,IWORDS) Z(IPTR1+1) = BUF(4) Z(IPTR1+2) = IPTR2 Z(IPTR2+1) = EXTGP Z(IPTR2+2) = BUF(1) Z(IPTR2+3) = BUF(2) Z(IPTR2+4) = BUF(3) IPTR1 = IPTR1 + 2 IPTR2 = IPTR2 + 10 JTAB1 = JTAB1 + 2 JTAB2 = JTAB2 + 10 GO TO 1610 C C HERE ON END OF A GROUP. SORT TABLE-1 ON GINO LOCS. C AND FILL TABLE-2 WITH 6X1 FORCE VECTORS. C 1620 CALL SORT (0,0,2,1,Z(ITAB1),JTAB1-ITAB1+1) C NERROR= 25 FILE = SCRT1 DO 1630 I = ITAB1,JTAB1,2 CALL FILPOS (SCRT1,Z(I)) PTR = Z(I+1) CALL READ (*1770,*1780,SCRT1,Z(PTR+5),6,NOEOR,IWORDS) 1630 CONTINUE C C OUTPUT DATA. START NEW SUM WHEN ENCOUNTERING A NEW GP-ID. C APPLIED-LOADS AND FORCES-OF-SPC WILL INITIALIZE SUM, IF THEY EXIST C FOR GRID POINT IN QUESTION, OHTERWISE SUM IS INITIALIZED TO ZERO. C DO 1730 I = ITAB2,JTAB2,10 C C IS THIS SAME GRID POINT ID AS CURRENTLY BEING SUMMED. IF SO, C CONTINUE OUTPUT OF LINE ENTRY AND SUM IN. OTHERWISE OUTPUT C SUM LINE, AND NEW ID-S APPLIED-LOAD AND F-OF-SPC ENTRY. C 1640 IF (Z(I) .EQ. OLDID) GO TO 1710 C C CHANGE IN GRID POINT ID. C ISUM(1) = OLDID*10 + GPDVIS IF (ANY) CALL WRITE (OGPF1,ISUM,10,NOEOR) IF (ANY) LINES = LINES + 1 ANY = .FALSE. C C OUTPUT ALL LINE ENTRIES OF APP-LOADS AND F-OF-SPC UNTIL C MATCH ON NEW ID IS FOUND OR CURRENT FVEC IS NOT YET NEEDED. C IF (EORST4) GO TO 1690 IF (KVEC(1)/10 .GT. Z(I)) GO TO 1690 DO 1650 J = 5,10 RSUM(J) = FVEC(J) 1650 CONTINUE OLDID = KVEC(1)/10 CALL WRITE (OGPF1,KVEC,10,NOEOR) LINES = LINES + 1 ANY = .TRUE. C C SUM IN ANY MORE FROM SCRT4 OF CURRENT ID, OUTPUT LINE ENTRIES. C 1660 CALL READ (*1770,*1680,SCRT4,KVEC,10,NOEOR,IWORDS) IF (KVEC(1)/10 .NE. OLDID) GO TO 1640 CALL WRITE (OGPF1,KVEC,10,NOEOR) LINES = LINES + 1 DO 1670 J = 5,10 RSUM(J) = RSUM(J) + FVEC(J) 1670 CONTINUE GO TO 1660 C 1680 EORST4 = .TRUE. GO TO 1640 C C NO APP-LOAD OR F-OF-SPC ENTRIES LEFT OR CURRENT ONE NOT NEEDED YET C 1690 DO 1700 J = 5,10 RSUM(J) = 0.0 1700 CONTINUE ANY = .TRUE. OLDID= Z(I) C 1710 Z(I) = 10*Z(I) + GPDVIS CALL WRITE (OGPF1,Z(I),10,NOEOR) LINES = LINES + 1 DO 1720 J = 5,10 RSUM(J) = RSUM(J) + RZ(I+J-1) 1720 CONTINUE C 1730 CONTINUE C ISUM(1) = OLDID*10 + GPDVIS IF (ANY) CALL WRITE (OGPF1,ISUM,10,NOEOR) IF (ANY) LINES = LINES + 1 ANY = .FALSE. C C GO FOR NEXT GROUP FROM THE -GPFBOM-. C GO TO 1590 C C HERE ON EOF ON -GPFBOM- COMPANION FILE. THUS AT CONCLUSION OF C OUTPUT PHASE FOR GP-FORCE BALANCE ONE SUBCASE, OR ONE TIME STEP OF C ONE SUBCASE. C 1740 CALL CLOSE (SCRT1,CLSREW) CALL CLOSE (SCRT2,CLSREW) CALL CLOSE (SCRT3,CLSREW) CALL CLOSE (SCRT4,CLSREW) MCB(1) = OGPF1 CALL RDTRL (MCB) MCB(2) = MCB(2) + LINES CALL WRTTRL (MCB) CALL CLOSE (OGPF1,CLSEOF) GO TO 110 C C NORMAL COMPLETION. C 1750 CALL CLOSE (CASECC,CLSREW) CALL CLOSE (UG,CLSREW) RETURN C C HERE ON ERROR CONDITIONS. C 1760 MM = 1 GO TO 1790 1770 MM = 2 GO TO 1790 1780 MM = 3 1790 CALL MESAGE (MM,FILE,SUBR) GO TO 1810 1800 CALL MESAGE (8,0,SUBR) 1810 WRITE (OUTPT,1820) SWM,NERROR 1820 FORMAT (A27,' 2354.' ,/5X,'GPFDR MODULE IS UNABLE TO CONTINUE ', 1 'AND HAS BEEN TERMINATED DUE TO ERROR MESSAGE PRINTED ', 2 'ABOVE OR BELOW THIS MESSAGE.', /5X,'THIS ERROR OCCURRED ', 4 'IN GPFDR CODE WHERE THE VARIABLE -NERROR- WAS SET =',I5) DO 1840 I = 100,300,100 DO 1830 J = 1,9 CALL CLOSE (I+J,CLSREW) 1830 CONTINUE 1840 CONTINUE RETURN END ================================================ FILE: mis/gpstg.f ================================================ SUBROUTINE GPSTG C C THIS SUBROUTINE GENERATES THE GRID POINT SINGULARITY TABLE C BY EXAMINING THE TRANSLATIONAL AND ROTATIONAL 3 X 3 C SUBMATRICES ALONG THE LEADING DIAGONAL OF THE INPUT C STIFFNESS MATRIX C DIMENSION IARRAY(8), ISUBNM(2) C INTEGER GPST , TTLWDS C DOUBLE PRECISION B(9), FL(3), D DOUBLE PRECISION M(3), R(3) , TEMP, FM, FR, DET, CONST, DTOL C COMMON /GPSTGX/ GPST , IGPST, NPVT, NSING , IBUF2 COMMON /GPSTGY/ D(18) COMMON /SYSTEM/ ISYS(69) , TOLEL COMMON /ZZZZZZ/ IZ(1) C EQUIVALENCE (IORDER, IARRAY(1)), (NWDS, IARRAY(2)) C DATA ISUBNM / 4HGPST,4HG / C DTOL = TOLEL C C AT THIS POINT, BOTH TRANSLATIONAL AND ROTATIONAL DIAGONAL 3X3 S ARE C STORED IN THE D ARRAY. HENCE WE PROCESS THEM. C IP = NPVT - 1 ASSIGN 470 TO IGOTO ASSIGN 20 TO IBACK DO 10 I = 1,9 10 B(I) = D(I) GO TO 90 20 DO 30 I = 1,9 30 B(I) = D(I+9) C C INSURE THE SYMMETRY OF THE B MATRIX C IF (B(2) .NE. 0.0D0 .AND. B(4) .NE. 0.0D0) GO TO 40 B(2) = 0.0D0 B(4) = 0.0D0 GO TO 50 40 TEMP = (B(2) + B(4)) / 2.0D0 B(2) = TEMP B(4) = TEMP 50 IF (B(3) .NE. 0.0D0 .AND. B(7) .NE. 0.0D0) GO TO 60 B(3) = 0.0D0 B(7) = 0.0D0 GO TO 70 60 TEMP = (B(3) + B(7)) / 2.0D0 B(3) = TEMP B(7) = TEMP 70 IF (B(6) .NE. 0.0D0 .AND. B(8) .NE. 0.0D0) GO TO 80 B(6) = 0.0D0 B(8) = 0.0D0 GO TO 90 80 TEMP = (B(6) + B(8)) / 2.0D0 C C SCALE THE MATRIX BY DIVIDING EACH ELEMENT OF B BY THE LARGEST ELEMENT. C IF THE LARGEST ELEMENT IS NON-POSITIVE, THE SINGULARITY IS OF ORDER 3. C 90 TEMP = B(1) DO 100 I = 2,9 IF (B(I) .GT. TEMP) TEMP = B(I) 100 CONTINUE IF (TEMP .LE. 0.0D0) GO TO 430 DO 110 I = 1,9 110 B(I) = B(I) / TEMP C C FIND THE SQUARES OF THE MAGNITUDES OF THE VECTORS OF THE ROWS OF THE C B MATRIX. C IORDER = 0 J = 0 DO 120 I = 1,9,3 J = J + 1 FL(J) = B(I)**2 + B(I+1)**2 + B(I+2)**2 IF (FL(J) .EQ. 0.0D0) IORDER = IORDER + 1 120 CONTINUE IF (IORDER .EQ. 2) GO TO 410 IF (IORDER .EQ. 0) GO TO 260 C C AT THIS POINT ONE AND ONLY ONE FL(I) IS ZERO. C DO 130 I = 1,3 ISAVE = I IF (FL(I) .EQ. 0. 0D0) GO TO (140,150,160), ISAVE 130 CONTINUE CALL MESAGE (-30,26,ISUBNM) 140 FM = B(5) * B(9) - B(6) * B(8) FR = DSQRT( (B(5)**2 + B(6)**2) * (B(8)**2 + B(9)**2) ) GO TO 170 150 FM = B(1) * B(9) - B(3) * B(7) FR = DSQRT( (B(1)**2 + B(3)**2) * (B(7)**2 + B(9)**2) ) GO TO 170 160 FM = B(1) * B(5) - B(2) * B(4) FR = DSQRT( (B(1)**2 + B(2)**2) * (B(4)**2 + B(5)**2) ) 170 IF ( FM .EQ. 0.0D0 ) GO TO 180 IF ( FR .LE. 0.0D0 ) GO TO 250 IF ( FM/FR .GE. DTOL ) GO TO 250 C C HERE WE HAVE THAT THE ORDER OF THE SINGULARITY IS 2. C 180 IORDER = 2 NWDS = 0 TTLWDS = 2 GO TO (190,200,210), ISAVE 190 K1 = 5 K2 = 9 INC1 = 1 INC2 = 3 INC3 = 2 GO TO 220 200 K1 = 1 K2 = 9 INC1 = 2 INC2 = 3 INC3 = 1 GO TO 220 210 K1 = 1 K2 = 5 INC1 = 3 INC2 = 2 INC3 = 1 220 IF (B(K1) .LE. 0.0D0 .AND. B(K2) .LE. 0.0D0) GO TO 430 IF (B(K1) .LE. 0.0D0) GO TO 230 NWDS = 2 TTLWDS = 4 IARRAY(3) = IP + INC1 IARRAY(4) = IP + INC2 IPOINT = 5 GO TO 240 230 IPOINT = 3 240 IF (B(K2) .LE. 0.0D0) GO TO 440 NWDS = NWDS + 2 TTLWDS = TTLWDS + 2 IARRAY(IPOINT) = IP + INC1 IARRAY(IPOINT+1) = IP + INC3 GO TO 440 C C AT THIS POINT WE HAVE THAT ONE AND ONLY ONE FL IS ZERO BUT THAT ORDER C OF THE SINGULARITY IS 1. C 250 IORDER = 1 NWDS = 1 TTLWDS = 3 IARRAY(3) = IP + ISAVE GO TO 440 C C AT STATEMENT NO. 260, WE HAVE THAT ALL THE FL(I) ARE .GT. 0.0D0, SO C THAT THE DETERMINANT, DET, OF B MUST BE COMPUTED. C 260 DET = B(1) * ( B(5)*B(9) - B(6)*B(8) ) 1 - B(2) * ( B(4)*B(9) - B(6)*B(7) ) 2 + B(3) * ( B(4)*B(8) - B(5)*B(7) ) CONST = 0.05D0*DTOL * FL(1) * FL(2) * FL(3) IF (DET .GT. CONST) GO TO 460 C C COMPUTE M(I) AND R(I) C M(1) = B(5) * B(9) - B(6) * B(8) M(2) = B(1) * B(9) - B(3) * B(7) M(3) = B(1) * B(5) - B(2) * B(4) R(1) = DSQRT ( B(5)**2 + B(6)**2 ) * DSQRT ( B(8)**2 + B(9)**2 ) R(2) = DSQRT ( B(1)**2 + B(3)**2 ) * DSQRT ( B(7)**2 + B(9)**2 ) R(3) = DSQRT ( B(1)**2 + B(2)**2 ) * DSQRT ( B(4)**2 + B(5)**2 ) C C FIND I1,J1,K1 SUCH THAT M(I1)/R(I1) .GE. M(J1)/R(J1) .GE. M(K1)/R(K1) C I1 = 1 J1 = 2 K1 = 3 IF (M(1)*R(2).GE.M(2)*R(1)) GO TO 270 I1 = 2 J1 = 1 270 IF (M(I1)*R(K1).GE.M(K1)*R(I1)) GO TO 280 ITEMP = I1 I1 = K1 K1 = ITEMP 280 IF (M(J1)*R(K1).GE.M(K1)*R(J1)) GO TO 290 ITEMP = J1 J1 = K1 K1 = ITEMP 290 IF (M(I1).GE.R(I1)*DTOL) GO TO 400 C C HERE THE SINGULARITY IS OF ORDER 2. C NWDS = 0 TTLWDS = 2 IORDER = 2 C C FIND II, JJ, KK SUCH THAT B(II) .GE. B(JJ) .GE. B(KK) C II = 1 JJ = 5 KK = 9 IF (B(1) .GE. B(5)) GO TO 300 II = 5 JJ = 1 300 IF (B(II) .GE. B(KK)) GO TO 310 ITEMP = II II = KK KK = ITEMP 310 IF (B(JJ) .GE. B(KK)) GO TO 320 ITEMP = JJ JJ = KK KK = ITEMP 320 LL = II KOUNT = 0 IPOINT= 3 330 IF (B(LL) .LE. 0.0D0) GO TO 440 NWDS = NWDS + 2 TTLWDS = TTLWDS + 2 IF (LL - 5) 340,350,360 340 INC1 = 2 INC2 = 3 GO TO 370 350 INC1 = 1 INC2 = 3 GO TO 370 360 INC1 = 1 INC2 = 2 370 IARRAY(IPOINT) = IP + INC1 IARRAY(IPOINT+1) = IP + INC2 IPOINT = IPOINT + 2 KOUNT = KOUNT + 1 IF (KOUNT - 2) 380,390,440 380 LL = JJ GO TO 330 390 LL = KK GO TO 330 C C AT THIS POINT THE SINGULARITY IS OF ORDER 1. C 400 IORDER = 1 NWDS = 1 TTLWDS = 3 IARRAY(3) = IP + I1 IF (M(J1).LT.R(J1)*DTOL) GO TO 440 NWDS = 2 TTLWDS = 4 IARRAY(4) = IP + J1 IF (M(K1).LT.R(K1)*DTOL) GO TO 440 NWDS = 3 TTLWDS = 5 IARRAY(5) = IP + K1 GO TO 440 C C AT THIS POINT 2 ROWS OF THE B MATRIX ARE IDENTICALLY ZERO. C 410 NWDS = 2 TTLWDS = 4 IPOINT = 2 DO 420 I = 1,3 IF (FL(I) .NE. 0.0D0) GO TO 420 IPOINT = IPOINT + 1 IARRAY(IPOINT) = IP + I 420 CONTINUE GO TO 440 C C THE SINGULARITY IS OF ORDER 3 C 430 IORDER = 3 NWDS = 3 TTLWDS = 5 IARRAY(3) = IP + 1 IARRAY(4) = IP + 2 IARRAY(5) = IP + 3 C C WRITE IARRAY ON THE GPST FILE. C 440 IF (IGPST.EQ.1) GO TO 450 IGPST = 1 CALL GOPEN (GPST,IZ(IBUF2),1) 450 NSING = NSING + 1 CALL WRITE (GPST,IARRAY,TTLWDS,0) 460 GO TO IGOTO, (470,480) 470 ASSIGN 480 TO IGOTO IP = IP + 3 GO TO IBACK, (20,430) 480 CONTINUE RETURN END ================================================ FILE: mis/gpstgn.f ================================================ SUBROUTINE GPSTGN C C THIS MODULE GENERATES THE GRID POINT SINGULARITY TABLE C BY EXAMINING THE SUBMATRICES ALONG THE LEADING DIAGONAL C OF THE INPUT STIFFNESS MATRIX C C MODULE DMAP SEQUENCE C C GPSTGEN KGG,SIL/GPST $ C DIMENSION K(3) , MCB(7),ISUBNM(2) C INTEGER SIL , GPST C DOUBLE PRECISION B CWKBI 8/94 SPR93026 REAL BS(18) C COMMON /GPSTGX/ GPST , IGPST , ISIL , NSING , IBUF2 COMMON /GPSTGY/ B(18) CWKBI 8/94 SPR93026 COMMON /SYSTEM/ ISYSBF COMMON /SYSTEM/ ISYSBF , NOUT , DUM(52),IPREC COMMON /UNPAKX/ ITYPOT, II , JJ , INCR COMMON /ZZZZZZ/ IZ(1) CWKBI 8/94 SPR93026 EQUIVALENCE ( BS, B ) C DATA KGG, SIL /101 , 102 / DATA ISUBNM /4HGPST, 4HGN / C GPST = 201 IGPST = 0 NSING = 0 CWKBR 8/94 SPR93026 ITYPOT= 2 ITYPOT= IPREC INCR = 1 K(1) = 1 K(2) = 1 IBUF1 = KORSZ (IZ) - ISYSBF - 2 IBUF2 = IBUF1 - ISYSBF IFILE = SIL CALL OPEN (*120,SIL,IZ(IBUF1),0) CALL SKPREC (SIL,1) MCB(1) = SIL CALL RDTRL (MCB) LUSET = MCB(3) ICORE = LUSET + 1 - IBUF1 IF (ICORE.GE.0) GO TO 160 CALL READ (*140,*10,SIL,IZ,IBUF1,0,NPTS) GO TO 160 10 CALL CLOSE (SIL,1) LOGIC = 110 IF (NPTS.NE.MCB(2)) GO TO 150 IZ(NPTS+1) = LUSET + 1 C IFILE = KGG CALL OPEN (*120,KGG,IZ(IBUF1),0) CALL SKPREC (KGG,1) MCB(1) = KGG CALL RDTRL (MCB) LOGIC = 120 IF (MCB(2).NE.LUSET .OR. MCB(3).NE.LUSET) GO TO 150 C DO 100 I = 1, NPTS ITYP = 1 ISIL = IZ(I) ISILNX = IZ(I+1) IF (ISILNX-ISIL.EQ.1) ITYP = 2 ILOOP = 1 IST = 1 II = ISIL 20 JJ = II + 2*(2 - ITYP) DO 60 J = II, JJ CWKBD 8/94 SPR93026 CALL UNPACK (*30,KGG,B(IST)) CWKBNB 8/94 SPR93026 IF ( IPREC .EQ. 1 ) CALL UNPACK (*30,KGG,BS(IST)) IF ( IPREC .EQ. 2 ) CALL UNPACK (*30,KGG,B(IST)) CWKBNE 8/94 SPR93026 GO TO 50 30 ISTX = IST + 2 CWKBI 8/94 SPR93026 IF ( IPREC .EQ. 1 ) GO TO 45 DO 40 III = IST, ISTX B(III) = 0.0D0 40 CONTINUE CWKBNB 8/94 SPR93026 GO TO 50 45 DO 48 III = IST, ISTX BS(III) = 0.0 48 CONTINUE 50 IST = IST + 3 60 CONTINUE IF (ITYP .EQ.2) GO TO 70 IF (ILOOP.EQ.2) GO TO 90 ILOOP = 2 II = II + 3 GO TO 20 CWKBD 8/94 SPR93026 70 IF (B(1).GT.0.0D0) GO TO 100 CWKBNB 8/94 SPR93026 70 CONTINUE IF (IPREC. EQ. 2 .AND. B(1) .GT.0.0D0) GO TO 100 IF (IPREC .EQ. 1 .AND. BS(1).GT.0.0 ) GO TO 100 CWKBNE 8/94 SPR93026 K(3) = ISIL IF (IGPST.EQ.1) GO TO 80 IGPST = 1 CALL GOPEN (GPST,IZ(IBUF2),1) 80 NSING = NSING + 1 CALL WRITE (GPST,K,3,0) GO TO 100 CWKBD 8/94 SPR93026 90 CALL GPSTG CWKBNB 8/94 SPR93026 90 IF ( IPREC .EQ. 1 ) CALL GPSTGS IF ( IPREC .EQ. 2 ) CALL GPSTG CWKBNE 8/94 SPR93026 100 CONTINUE IF (IGPST.EQ.0) GO TO 110 CALL WRITE (GPST,0,0,1) CALL CLOSE (GPST,1) CALL MAKMCB (MCB,GPST,NPTS,LUSET,0) MCB(2) = NSING CALL WRTTRL (MCB) 110 CALL CLOSE (KGG,1) GO TO 170 C C ERROR MESSAGES C 120 N = -1 130 CALL MESAGE (N,IFILE,ISUBNM) 140 N = -2 GO TO 130 150 N = -7 GO TO 130 160 N = -8 IFILE = ICORE GO TO 130 C 170 RETURN END ================================================ FILE: mis/gpstgs.f ================================================ SUBROUTINE GPSTGS C C THIS SUBROUTINE GENERATES THE GRID POINT SINGULARITY TABLE C BY EXAMINING THE TRANSLATIONAL AND ROTATIONAL 3 X 3 C SUBMATRICES ALONG THE LEADING DIAGONAL OF THE INPUT C STIFFNESS MATRIX C DIMENSION IARRAY(8), ISUBNM(2) C INTEGER GPST , TTLWDS C REAL B(9), FL(3), D REAL M(3), R(3) , TEMP, FM, FR, DET, CONST, DTOL C COMMON /GPSTGX/ GPST , IGPST, NPVT, NSING , IBUF2 COMMON /GPSTGY/ D(18) COMMON /SYSTEM/ ISYS(69) , TOLEL COMMON /ZZZZZZ/ IZ(1) C EQUIVALENCE (IORDER, IARRAY(1)), (NWDS, IARRAY(2)) C DATA ISUBNM / 4HGPST,4HG / C DTOL = TOLEL C C AT THIS POINT, BOTH TRANSLATIONAL AND ROTATIONAL DIAGONAL 3X3 S ARE C STORED IN THE D ARRAY. HENCE WE PROCESS THEM. C IP = NPVT - 1 ASSIGN 470 TO IGOTO ASSIGN 20 TO IBACK DO 10 I = 1,9 10 B(I) = D(I) GO TO 90 20 DO 30 I = 1,9 30 B(I) = D(I+9) C C INSURE THE SYMMETRY OF THE B MATRIX C IF (B(2) .NE. 0.0 .AND. B(4) .NE. 0.0) GO TO 40 B(2) = 0.0 B(4) = 0.0 GO TO 50 40 TEMP = (B(2) + B(4)) / 2.0 B(2) = TEMP B(4) = TEMP 50 IF (B(3) .NE. 0.0 .AND. B(7) .NE. 0.0) GO TO 60 B(3) = 0.0 B(7) = 0.0 GO TO 70 60 TEMP = (B(3) + B(7)) / 2.0 B(3) = TEMP B(7) = TEMP 70 IF (B(6) .NE. 0.0 .AND. B(8) .NE. 0.0) GO TO 80 B(6) = 0.0 B(8) = 0.0 GO TO 90 80 TEMP = (B(6) + B(8)) / 2.0 C C SCALE THE MATRIX BY DIVIDING EACH ELEMENT OF B BY THE LARGEST ELEMENT. C IF THE LARGEST ELEMENT IS NON-POSITIVE, THE SINGULARITY IS OF ORDER 3. C 90 TEMP = B(1) DO 100 I = 2,9 IF (B(I) .GT. TEMP) TEMP = B(I) 100 CONTINUE IF (TEMP .LE. 0.0) GO TO 430 DO 110 I = 1,9 110 B(I) = B(I) / TEMP C C FIND THE SQUARES OF THE MAGNITUDES OF THE VECTORS OF THE ROWS OF THE C B MATRIX. C IORDER = 0 J = 0 DO 120 I = 1,9,3 J = J + 1 FL(J) = B(I)**2 + B(I+1)**2 + B(I+2)**2 IF (FL(J) .EQ. 0.0) IORDER = IORDER + 1 120 CONTINUE IF (IORDER .EQ. 2) GO TO 410 IF (IORDER .EQ. 0) GO TO 260 C C AT THIS POINT ONE AND ONLY ONE FL(I) IS ZERO. C DO 130 I = 1,3 ISAVE = I IF (FL(I) .EQ. 0. 0) GO TO (140,150,160), ISAVE 130 CONTINUE CALL MESAGE (-30,26,ISUBNM) 140 FM = B(5) * B(9) - B(6) * B(8) FR = SQRT( (B(5)**2 + B(6)**2) * (B(8)**2 + B(9)**2) ) GO TO 170 150 FM = B(1) * B(9) - B(3) * B(7) FR = SQRT( (B(1)**2 + B(3)**2) * (B(7)**2 + B(9)**2) ) GO TO 170 160 FM = B(1) * B(5) - B(2) * B(4) FR = SQRT( (B(1)**2 + B(2)**2) * (B(4)**2 + B(5)**2) ) 170 IF ( FM .EQ. 0.0 ) GO TO 180 IF ( FR .LE. 0.0 ) GO TO 250 IF ( FM/FR .GE. DTOL ) GO TO 250 C C HERE WE HAVE THAT THE ORDER OF THE SINGULARITY IS 2. C 180 IORDER = 2 NWDS = 0 TTLWDS = 2 GO TO (190,200,210), ISAVE 190 K1 = 5 K2 = 9 INC1 = 1 INC2 = 3 INC3 = 2 GO TO 220 200 K1 = 1 K2 = 9 INC1 = 2 INC2 = 3 INC3 = 1 GO TO 220 210 K1 = 1 K2 = 5 INC1 = 3 INC2 = 2 INC3 = 1 220 IF (B(K1) .LE. 0.0 .AND. B(K2) .LE. 0.0) GO TO 430 IF (B(K1) .LE. 0.0) GO TO 230 NWDS = 2 TTLWDS = 4 IARRAY(3) = IP + INC1 IARRAY(4) = IP + INC2 IPOINT = 5 GO TO 240 230 IPOINT = 3 240 IF (B(K2) .LE. 0.0) GO TO 440 NWDS = NWDS + 2 TTLWDS = TTLWDS + 2 IARRAY(IPOINT) = IP + INC1 IARRAY(IPOINT+1) = IP + INC3 GO TO 440 C C AT THIS POINT WE HAVE THAT ONE AND ONLY ONE FL IS ZERO BUT THAT ORDER C OF THE SINGULARITY IS 1. C 250 IORDER = 1 NWDS = 1 TTLWDS = 3 IARRAY(3) = IP + ISAVE GO TO 440 C C AT STATEMENT NO. 260, WE HAVE THAT ALL THE FL(I) ARE .GT. 0.0, SO C THAT THE DETERMINANT, DET, OF B MUST BE COMPUTED. C 260 DET = B(1) * ( B(5)*B(9) - B(6)*B(8) ) 1 - B(2) * ( B(4)*B(9) - B(6)*B(7) ) 2 + B(3) * ( B(4)*B(8) - B(5)*B(7) ) CONST = 0.05*DTOL * FL(1) * FL(2) * FL(3) IF (DET .GT. CONST) GO TO 460 C C COMPUTE M(I) AND R(I) C M(1) = B(5) * B(9) - B(6) * B(8) M(2) = B(1) * B(9) - B(3) * B(7) M(3) = B(1) * B(5) - B(2) * B(4) R(1) = SQRT ( B(5)**2 + B(6)**2 ) * SQRT ( B(8)**2 + B(9)**2 ) R(2) = SQRT ( B(1)**2 + B(3)**2 ) * SQRT ( B(7)**2 + B(9)**2 ) R(3) = SQRT ( B(1)**2 + B(2)**2 ) * SQRT ( B(4)**2 + B(5)**2 ) C C FIND I1,J1,K1 SUCH THAT M(I1)/R(I1) .GE. M(J1)/R(J1) .GE. M(K1)/R(K1) C I1 = 1 J1 = 2 K1 = 3 IF (M(1)*R(2).GE.M(2)*R(1)) GO TO 270 I1 = 2 J1 = 1 270 IF (M(I1)*R(K1).GE.M(K1)*R(I1)) GO TO 280 ITEMP = I1 I1 = K1 K1 = ITEMP 280 IF (M(J1)*R(K1).GE.M(K1)*R(J1)) GO TO 290 ITEMP = J1 J1 = K1 K1 = ITEMP 290 IF (M(I1).GE.R(I1)*DTOL) GO TO 400 C C HERE THE SINGULARITY IS OF ORDER 2. C NWDS = 0 TTLWDS = 2 IORDER = 2 C C FIND II, JJ, KK SUCH THAT B(II) .GE. B(JJ) .GE. B(KK) C II = 1 JJ = 5 KK = 9 IF (B(1) .GE. B(5)) GO TO 300 II = 5 JJ = 1 300 IF (B(II) .GE. B(KK)) GO TO 310 ITEMP = II II = KK KK = ITEMP 310 IF (B(JJ) .GE. B(KK)) GO TO 320 ITEMP = JJ JJ = KK KK = ITEMP 320 LL = II KOUNT = 0 IPOINT= 3 330 IF (B(LL) .LE. 0.0) GO TO 440 NWDS = NWDS + 2 TTLWDS = TTLWDS + 2 IF (LL - 5) 340,350,360 340 INC1 = 2 INC2 = 3 GO TO 370 350 INC1 = 1 INC2 = 3 GO TO 370 360 INC1 = 1 INC2 = 2 370 IARRAY(IPOINT) = IP + INC1 IARRAY(IPOINT+1) = IP + INC2 IPOINT = IPOINT + 2 KOUNT = KOUNT + 1 IF (KOUNT - 2) 380,390,440 380 LL = JJ GO TO 330 390 LL = KK GO TO 330 C C AT THIS POINT THE SINGULARITY IS OF ORDER 1. C 400 IORDER = 1 NWDS = 1 TTLWDS = 3 IARRAY(3) = IP + I1 IF (M(J1).LT.R(J1)*DTOL) GO TO 440 NWDS = 2 TTLWDS = 4 IARRAY(4) = IP + J1 IF (M(K1).LT.R(K1)*DTOL) GO TO 440 NWDS = 3 TTLWDS = 5 IARRAY(5) = IP + K1 GO TO 440 C C AT THIS POINT 2 ROWS OF THE B MATRIX ARE IDENTICALLY ZERO. C 410 NWDS = 2 TTLWDS = 4 IPOINT = 2 DO 420 I = 1,3 IF (FL(I) .NE. 0.0) GO TO 420 IPOINT = IPOINT + 1 IARRAY(IPOINT) = IP + I 420 CONTINUE GO TO 440 C C THE SINGULARITY IS OF ORDER 3 C 430 IORDER = 3 NWDS = 3 TTLWDS = 5 IARRAY(3) = IP + 1 IARRAY(4) = IP + 2 IARRAY(5) = IP + 3 C C WRITE IARRAY ON THE GPST FILE. C 440 IF (IGPST.EQ.1) GO TO 450 IGPST = 1 CALL GOPEN (GPST,IZ(IBUF2),1) 450 NSING = NSING + 1 CALL WRITE (GPST,IARRAY,TTLWDS,0) 460 GO TO IGOTO, (470,480) 470 ASSIGN 480 TO IGOTO IP = IP + 3 GO TO IBACK, (20,430) 480 CONTINUE RETURN END ================================================ FILE: mis/gptlbl.f ================================================ SUBROUTINE GPTLBL (GPLST,X,U,DEFORM,BUF) C INTEGER GPLST(1),DEFORM,EXGPID,REW,GP,GPT,GPX,BUF REAL X(3,1),U(2,1) COMMON /BLANK / NGP,SKP1(9),SKP2(5),EXGPID COMMON /PLTDAT/ SKPPLT(20),SKPA(3),CNTX DATA INPREW, REW / 0,1 / C CALL GOPEN (EXGPID,GPLST(BUF),INPREW) CALL TYPINT (0,0,0,0,0,-1) DO 120 GP = 1,NGP CALL FREAD (EXGPID,GPT,1,0) CALL FREAD (EXGPID,GPX,1,0) GPX = GPLST(GPX) C C IF THE GRID POINT INDEX IS 0 (NOT IN SET) OR NEGATIVE (EXCLUDED), C NEVER PUT A LABEL AT THAT GRID POINT. C IF (GPX .LE. 0) GO TO 120 C C TYPE THE GRID POINT ID C IF (DEFORM .NE. 0) GO TO 111 XX = X(2,GPX) YY = X(3,GPX) GO TO 112 111 XX = U(1,GPX) YY = U(2,GPX) 112 CALL TYPINT (XX+CNTX,YY,1,GPT,0,0) 120 CONTINUE C CALL CLOSE (EXGPID,REW) CALL TYPINT (0,0,0,0,0,1) RETURN END ================================================ FILE: mis/gptsym.f ================================================ SUBROUTINE GPTSYM (GPLST,X,U,SYM,DEFORM) C INTEGER GPLST(1),SYM(2),DEFORM REAL X(3,1),U(2,1) COMMON /BLANK/ NGP C CALL SYMBOL (0,0,0,-1) C C IF THE GRID POINT INDEX IS 0 (NOT IN SET) OR NEGATIVE (EXCLUDED), C NEVER PUT A SYMBOL AT THAT GRID POINT. C DO 110 I = 1,NGP J = GPLST(I) IF (J .LE. 0) GO TO 110 IF (DEFORM .NE. 0) GO TO 105 XX = X(2,J) YY = X(3,J) GO TO 106 105 XX = U(1,J) YY = U(2,J) 106 CALL SYMBOL (XX,YY,SYM,0) 110 CONTINUE C CALL SYMBOL (0,0,0,1) RETURN END ================================================ FILE: mis/gpwg.f ================================================ SUBROUTINE GPWG C C GRID POINT WEIGHT GENERATOR C C INPUTS - BGPDT,CSTM,EQEXIN,MGG C C OUTPUTS - OGPWG C C PARAMETERS -- POINT,WTMASS C INTEGER BGPDT,CSTM,EQEXIN,OGPWG,SCR1,SCR2,SCR3,SCR4,POINT COMMON /BLANK/ POINT,WTMASS DATA BGPDT, CSTM,EQEXIN,MGG, OGPWG, SCR1,SCR2,SCR3,SCR4 / 1 101 , 102 ,103 ,104, 201 , 301 ,302 ,303 ,304 / C C FORM D MATRIX (TRANSPOSED) C IP = POINT C CALL GPWG1A (POINT,BGPDT,CSTM,EQEXIN,SCR3,NOGO) C C CHECK FOR AN ALL SCALAR PROBLEM AND A STUPID USER C IF (NOGO .EQ. 0) GO TO 10 C C COMPUTE MZERO = DT*MGG*D C CALL TRANP1 (SCR3,SCR1,2,SCR2,SCR4,0,0,0,0,0,0) CALL SSG2B (MGG ,SCR1,0,SCR2,0,1,1,SCR3) CALL SSG2B (SCR1,SCR2,0,SCR4,1,1,1,SCR3) C C M-ZERO IS ON SCR4 C C FORM OUTPUT STUFF C IF (POINT .EQ. 0) IP = 0 CALL GPWG1B (SCR4,OGPWG,WTMASS,IP) 10 RETURN END ================================================ FILE: mis/gpwg1a.f ================================================ SUBROUTINE GPWG1A (IP,BGPDT,CSTM,EQEXIN,D,ISCALR) C C ROUTINE FORMS D MATRIX (ACCTUALLY D TRANSPOSE) C INTEGER BGPDT,FILE,CSTM,EQEXIN,D,SYSBUF,MCB(7),NAME(2) REAL TR(3,3),TI(3,3),DD(6,6),R(3),TT(3,3),Z(5) COMMON /SYSTEM/ SYSBUF COMMON /PACKX / IT1,IT2,II,JJ,INCR COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (IZ(1),Z(1)) DATA NAME / 4HGPWG,4H1A / C C CONVERT EXTERNAL IP TO INTERNAL IP C IBUF = KORSZ(Z)-SYSBUF+1 FILE = EQEXIN CALL GOPEN (EQEXIN,Z(IBUF),0) CALL READ (*220,*10,EQEXIN,IZ(1),IBUF-1,0,IFLAG) GO TO 240 10 CALL CLOSE (EQEXIN,1) DO 20 I = 1,IFLAG,2 IF (IZ(I) .EQ. IP) GO TO 40 20 CONTINUE CALL MESAGE (41,IP,NAME) IP = 0 GO TO 50 30 CALL MESAGE (41,IP,NAME) C C SCALAR POINT C GO TO 60 40 IP = IZ(I+1) C C FIND RZERO FOR IP C 50 FILE = BGPDT R(1) = 0.0 R(2) = 0.0 R(3) = 0.0 CALL GOPEN (BGPDT,Z(IBUF),0) IF (IP .EQ. 0) GO TO 70 I = (IP-1)*4 CALL FREAD (BGPDT,Z,-I,0) CALL FREAD (BGPDT,I, 1,0) IF (I .EQ. -1) GO TO 30 CALL FREAD (BGPDT,R,3,0) 60 CALL REWIND (BGPDT) CALL SKPREC (BGPDT,1) C C SET UP TO WRITE D C 70 IBUF1 = IBUF-SYSBUF NZ = IBUF1-5 C C BRING IN CSTM C FILE = CSTM CALL OPEN (*90,CSTM,Z(IBUF1),0) CALL FWDREC (*220,CSTM) CALL READ (*220,*80,CSTM,Z(5),NZ,0,NCSTM) GO TO 240 80 CALL CLOSE (CSTM,1) CALL PRETRS (Z(5),NCSTM) 90 CALL GOPEN (D,Z(IBUF1),1) CALL MAKMCB (MCB,D,6,2,1) ISCALR = 0 II = 1 JJ = 6 IT1 = 1 IT2 = 1 INCR = 1 C C EXAMINE BGPDT C 100 CALL READ (*220,*190,BGPDT,Z(1),4,0,IFLAG) IF (IZ(1) .LT. 0) GO TO 170 C C COMPUTE TR C ISCALR = 1 TR(1,1) = 0.0 TR(2,2) = 0.0 TR(3,3) = 0.0 TR(2,1) = Z(4)-R(3) TR(1,2) =-TR(2,1) TR(3,1) = R(2)-Z(3) TR(1,3) =-TR(3,1) TR(3,2) = Z(2)-R(1) TR(2,3) =-TR(3,2) DO 110 I = 1,3 DO 110 J = 1,3 TI(I,J) = 0.0 IF (I .EQ. J) TI(I,J) = 1.0 110 CONTINUE IF (IZ(1) .EQ. 0) GO TO 130 CALL TRANSS (IZ(1),TI) CALL GMMATS (TI,3,3,1,TR,3,3,0,TT) DO 120 I = 1,3 DO 120 J = 1,3 120 TR(I,J) = TT(I,J) C C MOVE STUFF INTO DD C 130 DO 150 I = 1,6 DO 150 J = 1,3 IF (I .GT. 3) GO TO 140 DD(I, J ) = TI(J,I) DD(I+3,J+3) = DD(I,J) GO TO 150 140 DD(I,J) = TR(I-3,J) DD(J,I) = 0.0 150 CONTINUE DO 160 I = 1,6 CALL PACK (DD(1,I),D,MCB) 160 CONTINUE GO TO 100 C C SCALAR POINT C 170 DO 180 I = 1,6 180 DD(I,1) = 0.0 CALL PACK (DD,D,MCB) GO TO 100 C C END BGPDT C 190 CALL CLOSE (BGPDT,1) CALL CLOSE (D,1) CALL WRTTRL (MCB) RETURN C C ERROR MESAGES C 210 CALL MESAGE (IP1,FILE,NAME) 220 IP1 = -2 GO TO 210 240 IP1 = -8 GO TO 210 END ================================================ FILE: mis/gpwg1b.f ================================================ SUBROUTINE GPWG1B (MO,OGPWG,WTMASS,IPOINT) C C DOUBLE PRECISION VERSION, BY G.CHAN/UNISYS 8/86 C C THIS ROUTINE WRITES OGPWG-- C HEADER C MO = 36 D.P.WORDS C S = 9 D.P.WORDS C MX,XX,YX,ZX,MY,XY,YY,ZY,MZ,XZ,YZ,ZZ = 12 D.P.WORDS C I = 9 D.P.WORDS C I1P, I2P, I3P = 3 D.P.WORDS C Q = 9 D.P.WORDS C 78 D.P.WORDS (156 S.P.WORDS) TOTAL C DOUBLE PRECISION S(3,3),MT(3,3),MTR(3,3),MR(3,3),TEMP(3,3), 1 DZ(36),DELTA,EPSI INTEGER SYSBUF,MO,OGPWG,NAME(2),Z(150) EQUIVALENCE (DZ(1),Z(1),IZ(1)) C COMMON /ZZZZZZ/ IZ(1) COMMON /UNPAKX/ IT1,II,JJ,INCR COMMON /SYSTEM/ SYSBUF COMMON /OUTPUT/ HEAD(1) C DATA NAME / 4HGPWG,4H1B / C C ASSIGN BUFFER C OPEN OGPWG, PUT ON OFP HEADER C IBUF = KORSZ(Z)- SYSBUF+1 CALL GOPEN (MO,Z(IBUF),0) C C UNPACK MO + MOVE TO PARTITIONS C IT1 = 2 INCR = 1 JJ = 6 II = 1 K = 1 DO 30 I=1,6 CALL UNPACK (*10,MO,DZ(K)) GO TO 30 10 DO 20 L=1,6 M = L+K-1 DZ(M) =0.0D0 20 CONTINUE 30 K = K+6 CALL CLOSE (MO,1) DELTA=1.D0/WTMASS DO 40 I=1,36 DZ(I) = DZ(I)*DELTA 40 CONTINUE C C OPEN OGPWG FOR OUTPUT C CALL GOPEN (OGPWG,Z(IBUF),1) DO 42 I = 104,150 42 Z(I) = 0 Z(101) = 1 Z(102) = 13 Z(103) = IPOINT Z(110) = 78*2 CALL WRITE (OGPWG,Z(101),50,0) CALL WRITE (OGPWG,HEAD,96,1) C C PUT MO ON OGPWG C CALL WRITE (OGPWG,Z(1),72,0) C C PARTITION MO INTO MT, MTR, AND MR C AND CREATE DIAGONAL S MATRIX C MT(1,1) = DZ(1) MT(1,2) = DZ(2) MT(1,3) = DZ(3) MT(2,1) = DZ(7) MT(2,2) = DZ(8) MT(2,3) = DZ(9) MT(3,1) = DZ(13) MT(3,2) = DZ(14) MT(3,3) = DZ(15) MTR(1,1)= DZ(4) MTR(2,1)= DZ(5) MTR(3,1)= DZ(6) MTR(1,2)= DZ(10) MTR(2,2)= DZ(11) MTR(3,2)= DZ(12) MTR(1,3)= DZ(16) MTR(2,3)= DZ(17) MTR(3,3)= DZ(18) MR(1,1) = DZ(22) MR(1,2) = DZ(23) MR(1,3) = DZ(24) MR(2,1) = DZ(28) MR(2,2) = DZ(29) MR(2,3) = DZ(30) MR(3,1) = DZ(34) MR(3,2) = DZ(35) MR(3,3) = DZ(36) S(1,1) = 1.0D0 S(1,2) = 0.0D0 S(1,3) = 0.0D0 S(2,1) = 0.0D0 S(2,2) = 1.0D0 S(2,3) = 0.0D0 S(3,1) = 0.0D0 S(3,2) = 0.0D0 S(3,3) = 1.0D0 C C COMPUTE DETERMINATE OF MT C DELTA = DSQRT(MT(1,1)**2 + MT(2,2)**2 + MT(3,3)**2) EPSI = DSQRT(MT(2,1)**2 + MT(3,1)**2 + MT(3,2)**2) IF (EPSI .EQ. 0.0D0) GO TO 60 EPSI = EPSI/DELTA IF (DELTA .EQ. 0.0D0) GO TO 45 IF (EPSI .LT. 1.0D-6) GO TO 60 C C ROTATE COORDINATES C 45 R = EPSI CALL MESAGE (42,R,NAME) DO 50 I=1,3 DO 50 J=1,3 TEMP(I,J)= MT(I,J) 50 CONTINUE C C COMPUTE EIGENVECTORS OF MT BY JACOBY METHOD C CALL GPWG1C (TEMP,S,DZ(1),IFLAG) IF (IFLAG .GT. 0) CALL MESAGE(-7,0,NAME) C C ORDER EIGENVECTORS SUCH THAT C C TRANSFORM MT C CALL GMMATD (MT,3,3,0,S,3,3,0,TEMP) CALL GMMATD (S,3,3,1,TEMP,3,3,0,MT) C C TRANSFORM MTR C CALL GMMATD (MTR,3,3,0,S,3,3,0,TEMP) CALL GMMATD (S,3,3,1,TEMP,3,3,0,MTR) C C TRANSFORM MR C CALL GMMATD (MR,3,3,0,S,3,3,0,TEMP) CALL GMMATD (S,3,3,1,TEMP,3,3,0,MR) C C OUTPUT S C 60 CALL WRITE (OGPWG,S,18,0) C C COMPUTE MX,XX,YX,ZX C DZ(1) = MT(1,1) DZ(2) = 0.0D0 DZ(3) = 0.0D0 DZ(4) = 0.0D0 IF (DZ(1) .EQ. 0.0D0) GO TO 70 DZ(2) = MTR(1,1)/DZ(1) DZ(3) =-MTR(3,1)/DZ(1) DZ(4) = MTR(2,1)/DZ(1) 70 CALL WRITE (OGPWG,DZ(1),8,0) DZ(5) = MT(2,2) DZ(6) = 0.0D0 DZ(7) = 0.0D0 DZ(8) = 0.0D0 IF (DZ(5) .EQ.0. 0D0) GO TO 80 DZ(6) = MTR(3,2)/DZ(5) DZ(7) = MTR(2,2)/DZ(5) DZ(8) =-MTR(1,2)/DZ(5) 80 CALL WRITE (OGPWG,DZ(5),8,0) DZ( 9) = MT(3,3) DZ(10) = 0.0D0 DZ(11) = 0.0D0 DZ(12) = 0.0D0 IF (DZ(9) .EQ. 0.0D0) GO TO 90 DZ(10) =-MTR(2,3)/DZ(9) DZ(11) = MTR(1,3)/DZ(9) DZ(12) = MTR(3,3)/DZ(9) 90 CALL WRITE (OGPWG,DZ(9),8,0) C C COMPUTE INERTIAS C TEMP(1,1) = MR(1,1) - DZ(5)*DZ(8)*DZ(8) - DZ(9)*DZ(11)*DZ(11) TEMP(2,1) =-MR(1,2) - DZ(9)*DZ(10)*DZ(11) TEMP(1,2) = TEMP(2,1) TEMP(1,3) =-MR(1,3) - DZ(5)*DZ(6)*DZ(8) TEMP(3,1) = TEMP(1,3) TEMP(2,2) = MR(2,2) - DZ(9)*DZ(10)*DZ(10) - DZ(1)*DZ(4)*DZ(4) TEMP(2,3) =-MR(2,3) - DZ(1)*DZ(3)*DZ(4) TEMP(3,2) = TEMP(2,3) TEMP(3,3) = MR(3,3) - DZ(1)*DZ(3)*DZ(3) - DZ(5)*DZ(6)*DZ(6) CALL WRITE (OGPWG,TEMP,18,0) CALL GPWG1C (TEMP,S,DZ(1),IFLAG) IF (IFLAG .GT. 0) CALL MESAGE(-7,0,NAME) C C PUT OUT PRINCIPLE INERTIA-S C CALL WRITE (OGPWG,DZ(1),6,0) C C PUT OUT Q C CALL WRITE (OGPWG,S,18,0) CALL CLSTAB (OGPWG,1) RETURN END ================================================ FILE: mis/gpwg1c.f ================================================ SUBROUTINE GPWG1C (B,E,EIG,IFLAG) C C DOUBLE PRECISION VERSION, BY G.CHAN/SPERRY 8/86 C C IFLAG=0 MEANS RUN OK C IFLAG=1 MEANS NO SOLUTION IN 20 ITERATIONS C DOUBLE PRECISION E(3,3),EP(3,3),B(3,3),BP(3,3),EIG(3) DOUBLE PRECISION DETB,EPSIL,BMAX,R,S,C,T C DETB = 0.0D0 DO 5 I = 1,3 DO 5 J = 1,3 DETB = DETB+B(I,J)*B(I,J) 5 CONTINUE EPSIL = DSQRT(DETB)*1.0D-5 IFLAG =0 II = 1 DO 10 I=1,3 DO 10 J=1,3 E(I,J) = 0.0D0 IF (I .EQ. J) E(I,J) = 1.0D0 10 CONTINUE IF (DETB .EQ. 0.0D0) GO TO 100 15 BMAX = DMAX1(DABS(B(1,2)),DABS(B(1,3)),DABS(B(2,3))) IF (DABS(BMAX) .LT. EPSIL) GO TO 100 IF (BMAX .NE. DABS(B(1,2))) GO TO 20 I = 1 J = 2 K = 3 GO TO 40 20 IF (BMAX .NE. DABS(B(1,3))) GO TO 30 I = 1 J = 3 K = 2 GO TO 40 30 I = 2 J = 3 K = 1 40 R = (B(J,J)-B(I,I))/B(I,J) IF (DABS(R) .LT. 1.0D-6) GO TO 50 IF (DABS(R) .GT. 1.0D+6) GO TO 60 T = DSQRT((R*R)/4.0D0+1.0D0)-0.5D0*R C = DSQRT(1.0D0+T*T) S = T/C C = 1.0D0/C GO TO 70 50 S = DSQRT(.5D0) C = S GO TO 70 60 S = 0.0D0 C = 1.0D0 70 BP(I,I) = B(I,I)*C*C+B(J,J)*S*S-2.0D0*B(I,J)*S*C BP(J,J) = B(I,I)*S*S+B(J,J)*C*C+2.0D0*B(I,J)*S*C BP(K,K) = B(K,K) BP(J,I) = 0.0D0 BP(I,J) = 0.0D0 BP(K,I) = B(I,K)*C-B(J,K)*S BP(I,K) = BP(K,I) BP(K,J) = B(J,K)*C+B(I,K)*S BP(J,K) = BP(K,J) EP(I,1) = E(I,1)*C-E(J,1)*S EP(J,1) = E(I,1)*S+E(J,1)*C EP(K,1) = E(K,1) EP(I,2) = E(I,2)*C-E(J,2)*S EP(J,2) = E(I,2)*S+E(J,2)*C EP(K,2) = E(K,2) EP(I,3) = E(I,3)*C-E(J,3)*S EP(J,3) = E(I,3)*S+E(J,3)*C EP(K,3) = E(K,3) DO 80 I=1,3 DO 80 J=1,3 B(I,J) = BP(I,J) E(I,J) = EP(I,J) 80 CONTINUE IF (II .GE. 21) GO TO 90 II = II+1 GO TO 15 90 IFLAG=1 GO TO 120 100 DO 110 I=1,3 110 EIG(I) = B(I,I) 120 RETURN END ================================================ FILE: mis/grav.f ================================================ SUBROUTINE GRAV (NGRAV,GVECT,NLIST,ILIST,NLOOP) C INTEGER NAME(2) DIMENSION GVECT(1),GL(5),X(3),ILIST(1) COMMON /TRANX/ NSYS,TYSYS,RO(3),TO(3,3) COMMON /LOADX/ LCORE,SLT,N(14),NOBLD EQUIVALENCE (IGL,GL(2)) DATA NAME / 4HGRAV,4H / C C CONVERTS GRAV CARD TO BASIC AND STORES C GB = G*TON*V C CALL READ (*30,*40,SLT,GL(1),5,0,FLAG) GO TO 50 20 RETURN C 30 CONTINUE 40 CALL MESAGE (-7,NAME,NAME) 50 NGRAV = NGRAV + 1 IF (GL(1)) 60,70,60 60 CALL FDCSTM (GL(1)) CALL MPYL (TO,GL(3),3,3,1,X(1)) DO 61 I = 1,3 GL(I+2) = X(I) 61 CONTINUE 70 DO 80 I = 1,3 J = (NGRAV-1)*3 + I 80 GVECT(J) = GL(I+2)*GL(2) NL1 = NLOOP - NGRAV + 1 IF (NL1 .EQ. NLIST) GO TO 20 NSAVE = ILIST(NL1) NLIST1 = NLIST - 1 DO 90 I = NL1,NLIST1 90 ILIST(I) = ILIST(I+1) ILIST(NLIST) = NSAVE GO TO 20 END ================================================ FILE: mis/gravl1.f ================================================ SUBROUTINE GRAVL1(NVECT,GVECT,SR1,IHARM) C INTEGER GRAVT(7),OLD,SYSBUF,SR1,BGPDT,SIL,CSTM INTEGER NAME(2) C DIMENSION IGPCO(4),GVECT(1),VECT(3) C COMMON /BLANK/NROWSP COMMON /SYSTEM/SYSBUF COMMON /ZBLPKX/ B(4),II COMMON /ZZZZZZ/ CORE(1) COMMON /LOADX/ N(2),BGPDT,OLD,CSTM,SIL,ISTL,NN(8),MASS C DATA NAME/4HGRAV,4HL1 / C C ---------------------------------------------------------------------- C IF (IHARM .EQ. 0) GO TO 5 CALL GRAVL3(NVECT,GVECT,SR1,IHARM) RETURN 5 CONTINUE LCORE=KORSZ(CORE) ICM = 1 NZ = LCORE LCORE=LCORE-SYSBUF CALL GOPEN(SR1,CORE(LCORE+1),1) LCORE =LCORE - SYSBUF CALL GOPEN(BGPDT,CORE(LCORE+1),0) OLD =0 LCORE =LCORE -SYSBUF CALL OPEN(*10,CSTM,CORE(LCORE+1),0) ICM = 0 CALL SKPREC(CSTM,1) LCORE =LCORE-SYSBUF 10 CALL GOPEN(SIL,CORE(LCORE+1),0) ISIL=0 CALL MAKMCB(GRAVT,SR1,NROWSP,2,1) DO 140 ILOOP=1,NVECT 20 CALL READ(*200,*120,SIL,ISIL1,1,0,FLAG) IF(ISIL1) 20,30,30 30 IL=(ILOOP-1)*3 ASSIGN 60 TO IOUT IPONT=1 CALL BLDPK(1,1,GRAVT(1),0,0) 40 CALL READ(*200,*120,SIL,ISIL2,1,0,FLAG) IF(ISIL2) 40,50,50 50 IF(ISIL2 -ISIL1-1) 70,60,70 60 ISIL1 = ISIL2 IPONT = IPONT+1 GO TO 40 70 CALL FNDPNT (IGPCO(1),IPONT) DO 80 I=1,3 IN= I+IL 80 VECT(I) = GVECT(IN) IF (IGPCO(1).NE.0) CALL BASGLB (VECT(1),VECT(1),IGPCO(2),IGPCO(1)) DO 110 I=1,3 B(1)=VECT(I) II = ISIL1-1+I CALL ZBLPKI 110 CONTINUE GO TO IOUT,(60,130) C C END SIL C 120 ASSIGN 130 TO IOUT IF(NROWSP-ISIL1) 70,130,70 130 CALL REWIND(BGPDT) CALL REWIND(SIL) CALL BLDPKN(GRAVT(1),0,GRAVT) CALL SKPREC(SIL,1) ISIL=0 CALL SKPREC(BGPDT,1) OLD=0 140 CONTINUE CALL CLOSE(BGPDT,1) IF(ICM .EQ. 0) CALL CLOSE(CSTM,1) CALL CLOSE (SIL,1) CALL CLOSE (GRAVT(1),1) CALL WRTTRL (GRAVT) RETURN C 200 CALL MESAGE (-3,IPM,NAME) RETURN C END ================================================ FILE: mis/gravl2.f ================================================ SUBROUTINE GRAVL2(NVECT,FILD,PG) C INTEGER PG(7),SYSBUF,FILD,SIL INTEGER NAME(2) C COMMON /BLANK/NROWSP COMMON /SYSTEM/ SYSBUF COMMON /ZNTPKX/ A(4),LL,IEOL COMMON /ZBLPKX/ B(4),II COMMON /ZZZZZZ/ CORE(1) COMMON /LOADX/ N(2),BGPDT,OLD,CSTM,SIL,ISTL,NN(8),MASS C DATA NAME/4HGRAV,4HL2 / C C ---------------------------------------------------------------------- C LCORE=KORSZ(CORE) NZ = LCORE LCORE=LCORE-SYSBUF CALL OPEN(*170,PG(1),CORE(LCORE+1),0) CALL SKPFIL (PG,1) CALL SKPFIL (PG,-1) CALL CLOSE (PG,2) CALL OPEN(*170,PG(1),CORE(LCORE+1),3) LCORE = LCORE-SYSBUF CALL GOPEN(FILD,CORE(LCORE+1),0) LCORE=LCORE-SYSBUF CALL GOPEN( SIL,CORE(LCORE+1),0) IBUF=LCORE ISIL=0 DO 160 ILOOP=1,NVECT 50 CALL READ(*210,*130,SIL,ISIL1,1,0,FLAG) IF(ISIL1) 50,60,60 60 ASSIGN 100 TO IOUT CALL BLDPK(1,1,PG(1),0,0) CALL INTPK(*150,FILD,0,1,0) 70 CALL READ(*210,*130,SIL,ISIL2,1,0,FLAG) IF(ISIL2) 70,80,80 80 IF (ISIL2-ISIL1-1) 140,90,140 90 GO TO IOUT,(100,150) 100 IF (IEOL.NE.0) GO TO 150 CALL ZNTPKI IF (LL-ISIL1) 120,90,70 120 B(1)=A(1) II=LL CALL ZBLPKI GO TO 90 130 ASSIGN 150 TO IOUT IF(NROWSP-ISIL1) 140,150,140 140 ISIL1 = 999999 GO TO 90 150 CALL REWIND(SIL) CALL BLDPKN(PG(1),0,PG) CALL SKPREC(SIL,1) ISIL=0 160 CONTINUE CALL CLOSE (SIL,1) CALL CLOSE (FILD,1) CALL WRTTRL (PG) CALL CLOSE (PG,1) RETURN C 170 IPM=PG(1) CALL MESAGE (-1,IPM,NAME) C 210 CALL MESAGE (-3,SIL,NAME) RETURN C END ================================================ FILE: mis/gravl3.f ================================================ SUBROUTINE GRAVL3 (NVECT,GVECT,SR1,IHARM) C C BUILD GRAVITY LOADS FOR AXISYMMETRIC SHELL C C DEFINITION OF VARIABLES C C NVECT NUMBER OF GRAVITY LOADS C GVECT ARRAY OF G VECTORS C SR1 FILE TO PUT ACCELERATION VECTOR ON C IHARM SINE OR COSINE SET FLAG -- 1 = SINE SET C LUSET LENGTH OF G SET C MCB MATRIX CONTROL BLOCK FOR SR1 C M NUMBER OF RINGS C N NUMBER OF HARMONICS C IL POINTER IN GVECT ARRAY C EXTERNAL RSHIFT,ANDF INTEGER ANDF,RSHIFT,SYSBUF,MCB(7),SR1 DIMENSION GVECT(1) DIMENSION ISYSTM(175) COMMON /MACHIN/ MACH,IHALF,JHALF COMMON /BLANK / LUSET COMMON /SYSTEM/ SYSBUF,IX(25),MN COMMON /ZZZZZZ/ Z(1) COMMON /ZBLPKX/ B(4),II EQUIVALENCE (SYSBUF, ISYSTM(1)) C C INITIALIZE STUFF C IBUF = KORSZ(Z) - SYSBUF + 1 CALL GOPEN (SR1,Z(IBUF),1) CALL MAKMCB (MCB,SR1,LUSET,2,1) IL = 1 N = MN M = ISYSTM(161) C C BUILD NVECT GRAVITY VECTORS C DO 140 ILOOP = 1,NVECT CALL BLDPK (1,1,MCB(1),0,0) C C COMPUTE VALUES C SINTH = 0.0 SINPH = 0.0 COSPH = 1.0 G = SQRT(GVECT(IL)*GVECT(IL)+GVECT(IL+1)*GVECT(IL+1)+GVECT(IL+2)* 1 GVECT(IL+2)) COSTH = GVECT(IL+2)/G IF (GVECT(IL).EQ.0.0 .AND. GVECT(IL+1).EQ.0.0) GO TO 30 GXY = SQRT(GVECT(IL)*GVECT(IL)+ GVECT(IL+1)*GVECT(IL+1)) SINTH = GXY/G SINPH = GVECT(IL+1)/GXY COSPH = GVECT(IL )/GXY 30 CONTINUE GO TO (40,50), IHARM C C SINE SET C 40 B(1) = G*SINTH*SINPH II = LUSET - M*(N-1)*6 + 1 DO 41 I = 1,M CALL ZBLPKI II = II +1 CALL ZBLPKI II = II +5 41 CONTINUE GO TO 110 C C COSINE SET C 50 B(1)= G*COSTH II = LUSET - M*N*6 + 3 C C LOAD ZERO HARMONIC C DO 51 I = 1,M CALL ZBLPKI II = II + 6 51 CONTINUE C C LOAD 2-D HARMONIC C II = II - 2 B(1) = G*SINTH*COSPH DO 52 I = 1,M CALL ZBLPKI II = II +1 B(1) = -B(1) CALL ZBLPKI B(1) = -B(1) II = II +5 52 CONTINUE C C END OF COLUMN C 110 CALL BLDPKN (MCB(1),0,MCB(1)) IL = IL + 3 140 CONTINUE CALL CLOSE (MCB(1),1) CALL WRTTRL (MCB) RETURN C END ================================================ FILE: mis/grbvec.f ================================================ SUBROUTINE GRBVEC C C THIS SUBROUITNE IS THE MAIN DRIVER FOR THE VECGRB MODULE C WHICH GENERATES C C (1) THE GEOMETRIC RIGID BODY VECTORS ABOUT THE INDICATED GRID C POINT OR ORIGIN. C THIS SET OF VECTORS CONSISTS OF UNIT DISPLACEMENTS IN ZERO C COORDINATE SYSTEM ABOUT THE SPECIFIED GRID IN GLOBAL COORD. C FOR EASE OF ASSEMBLY THE VECTOR IS GENERATED IN THE TRANSPOSED C FORM, THAT IS, WITH SIX ROW, ONE FOR EACH OF THE SIX UNIT C MOTIONS AND G-SET COLUMNS, ONE FOR EACH DOF'S CORRESPONDING C MOTION. THIS SET OF VECTORS WOULD BE EXACTLY EQUAL TO A UNIT C DISPLACEMENT CHECK IF ALL THE GRIDS HAD STIFFNESS BUT WERE C NOT GROUNDED. C C (2) A g-SET SIZED CSTM FROM BASIC TO GOLBAL C C DMAP SEQUENCE - C C VECGRB BGPDT,EQEXIN,CSTM/OUTVEC/P1/P2/P3 $ C C WHERE P1 = 1, GENERATE CSTM FROM BASIC TO GLOBAL C = 2, GENERATE PHIRBT C P2 = REFERENCE GRID FOR PHIRB (0=BASIC, DEFAULT) C P3 = CURRENTLY NOT USED C C EXAMPLES - C C (1) G-SET EQUILIBRIUM CHECK C THIS CHECK MULTIPLIES THE STIFFNESS MATRIX TIMES THE GEOMETRIC C RIGID BODY SHAPES PENERATED BY VECRGB. THE FORCES OBATINED FROM C THIS MULTIPLICATION SHOULD BE ZERO. C C VECGRB BGPDT,CSTM,EQEXIN/PHIRBT/2/0 $ CREATE TRANSPOSE OF RIGID C TRNSP PHIRBT/PHIRB $ BODY VECTORS, THEN TRNSP C MPYAD KGG,PHIRB,/KPHIG/0 $ MULTIPLY BY STIFFNESS. C MPYAD PHIRBT,KPHIG,/KPHG6/0 $ SUM FORCES AND PRINT C MATPRN KPHG6,,,, // $ 6X6 SUMMATION. PRINT ALL C MATGPR GPL,USET,SIL,KPHIG//*G*/*G*// $ FORCES OVER 0.0001 C .0001 $ C C (2) COORDINATE SYSTEM TRANSFORMATION C C VECRGB BGPDT,CSTM,EQEXIN/BCSTM/1 $ TRANSFORM GLOBAL KGG TO C TRNSP BCSTM/BCSTMT/ $ BASIC C MPYAD BCSTM,KGG,/BGKGG/0 $ C MPYAD BGKGG,BCSTMT,/BBKGG/0 $ C C THIS SUBROUTINE WAS ORIGINALLY CALLED CSTMX, AND WAS WRITTEN BY C P.KIRCHMAN/SWALES, 2/1993, WITH THE DMAP MODULE OF THE SAME NAME C C THE DMAP MODLUE IS RENAMED TO GEOMETRIC RIGID BODY VECTOR, VECGRB, C AND THE SUBROUTINE GRBVEC. THE ORIGINAL SUBROUTINE WAS RE-CODED BY C G.CHAN/UNISIS, USING NASTRAN TRADITIONAL FORTRAN STYLE, AND THE C SUBSTITUTION OF GMMATD ROUTINE FOR DP3X3M. ALSO, THE ORDER OF 2ND C AND 3RD INPUT DATA BLOCKS IS INTERCHANGED. C C THE ORIGINAL CSTMX IS INCLUDED IN THE 1993 RELEASE. IT IS ONLY C FOR BACKUP PURPOSE. CSTMX WILL BE DELETED IN NEXT NASTRAN RELEASE C (THE ORIGINAL CSTMX ROUTINE PRODUCED HUNDREDS OF FORTRAN ERRORS C ON CDC MACHINE WITH FTN5 COMPILER. 3/93) C IMPLICIT INTEGER (A-Z) LOGICAL RBV INTEGER TRL(7),NAME(2),SUB(2) REAL RX(1) DOUBLE PRECISION RBVR(3),V3(3),ZERO,ONE,XG,YG,ZG,RAD,XL,TU(9), 1 T1(9),T2(9),T(9),RVEC(9),RBVEC(9),V(3),VOUT(6) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / P1,P2,P3 COMMON /ZZZZZZ/ IX(1) COMMON /SYSTEM/ IBUFF,NOUT COMMON /PACKX / TIN,TOU,II,JJ,INCR EQUIVALENCE (IX(1),RX(1)) DATA BGPDT , EQEXIN, CSTM / 101,102,103 /, 1 OUTVEC/ 201 /, SUB / 4HGRBV,4HC / DATA ZERO , ONE / 0.0D+0, 1.0D+0 / DATA CSTMX , EQE,XIN, BGP,DT / 1 4HCSTM, 4HEQEX,4HIN , 4HBGPD,4HT / C C CHECK FOR THE PRESENCE OF OUTPUT DATA BLOCK C TRL(1) = OUTVEC CALL RDTRL (TRL) IF (TRL(1) .LE. 0) GO TO 1000 C C INITIALIZATION C LCOR = KORSZ(IX(1)) - IBUFF BUF1 = LCOR - 1 TU(1) = ONE TU(2) = ZERO TU(3) = ZERO TU(4) = ZERO TU(5) = ONE TU(6) = ZERO TU(7) = ZERO TU(8) = ZERO TU(9) = ONE C C CHECK THE PRESENCE OF BGPDT AND CSTM FILES C TRL(1)= BGPDT CALL RDTRL (TRL) IF (TRL(1) .LE. 0) GO TO 1020 NENT = TRL(2) TRL(1)= CSTM CALL RDTRL (TRL) NCST = TRL(3) IF (TRL(1) .LE. 0) NCST = 0 NENT4 = NENT*4 NCST14= NCST*14 IF (NENT4+NCST14 .GT. LCOR) GO TO 1100 RBV = P1 .EQ. 2 C C CHECK IF THIRD INPUT FILE IS PRESENT, THEN OPEN EQEXIN FILE AND C READ THE FIRST TABLE INTO CORE IF APPROPRIEATE C GRDPNT = 0 IF (P1.NE.2 .OR. P2.EQ.0) GO TO 60 TRL(1) = EQEXIN CALL RDTRL (TRL) IF (TRL(1) .LE. 0) GO TO 1020 FILE = EQEXIN CALL FNAME (EQEXIN,NAME) IF (NAME(1).NE.EQE .OR. NAME(2).NE.XIN) GO TO 1040 CALL OPEN (*1200,EQEXIN,IX(BUF1),0) CALL FWDREC (*1300,EQEXIN) CALL READ (*1300,*20,EQEXIN,IX(1),BUF1-1,1,FLAG) CALL MESAGE (-8,0,SUB) 20 TRL2 = TRL(2)*2 IF (FLAG .NE. TRL2) GO TO 1320 J = 1 DO 30 I = 1,TRL2,2 IF (P2 .NE. IX(J)) GO TO 30 GRDPNT = IX(J+1) GO TO 50 30 J = J + 2 GRDPNT = 0 WRITE (NOUT,40) UWM,P2 40 FORMAT (A25,' - ID ',I8,' IS NOT A GRID POINT. THE ORIGIN WILL ', 1 'BE USED.') 50 CALL CLOSE (EQEXIN,1) C C OPEN AND READ BGPDT TABLE INTO BEGINNING OF CORE C 60 FILE = BGPDT CALL FNAME (BGPDT,NAME) IF (NAME(1).NE.BGP .AND. NAME(2).NE.DT) GO TO 1040 CALL OPEN (*1200,BGPDT,IX(BUF1),0) CALL FWDREC (*1300,BGPDT) CALL READ (*1300,*70,BGPDT,IX(1),BUF1-1,1,FLAG) CALL MESAGE (-8,0,SUB) 70 IF (FLAG .NE. NENT4) GO TO 1330 CALL CLOSE (BGPDT,1) C C OPEN AND READ CSTM FIRST TABLE INOT CORE AFTER BGPDT C IF (NCST .EQ. 0) GO TO 90 FILE = CSTM CALL FNAME (CSTM,NAME) IF (NAME(1) .NE. CSTMX) GO TO 1040 CALL OPEN (*1200,CSTM,IX(BUF1),0) CALL FWDREC (*1300,CSTM) CALL READ (*1300,*80,CSTM,IX(NENT4+1),BUF1-NENT4-1,1,FLAG) CALL MESAGE (-8,0,SUB) 80 IF (FLAG .NE. NCST14) GO TO 1340 CALL CLOSE (CSTM,1) C C USE BGPDT INFO TO FIGURE OUT THE g-SET SIZE FOR OUTPUT C 90 SIZE = 0 I = 1 DO 100 J = 1,NENT IF (IX(I) .LT. 0) SIZE = SIZE + 1 IF (IX(I) .GE. 0) SIZE = SIZE + 6 100 I = I + 4 C C STORE RIGID BODY REFERENCE VECTOR C RBVR(1) = 0. RBVR(2) = 0. RBVR(3) = 0. IF (.NOT.RBV .OR. GRDPNT.EQ.0) GO TO 110 RBVR(1) = RX(GRDPNT*4-2) RBVR(2) = RX(GRDPNT*4-1) RBVR(3) = RX(GRDPNT*4 ) C C OPNE OUTPUT FILE AND FILL OUTPUT TRAILER C 110 CALL FNAME (OUTVEC,NAME) CALL OPEN (*1200,OUTVEC,IX(BUF1),1) CALL WRITE (OUTVEC,NAME,2,1) IF ( RBV) CALL MAKMCB (TRL(1),OUTVEC,6,2,2) IF (.NOT.RBV) CALL MAKMCB (TRL(1),OUTVEC,SIZE,2,2) C C INITIALIZE PACK COMMONS C TIN = 2 TOU = 2 INCR = 1 COL = 1 C C BEGIN LOOP FOR NUMBER OF ENTRIES IN BGPDT C E4 = 0 DO 440 ENTRY = 1,NENT E4 = E4 + 4 OCID= IX(E4-3) XG = RX(E4-2) YG = RX(E4-1) ZG = RX(E4 ) C C RBVEC IS A VECTOR BASED ON UNIT ROTATIONS OF A VECTOR FROM THE C REFERENCE GRID TO THE GRID IN QUESTION. THE TRANSFORMATION IS C FROM BASIC ROTATIONS TO BASIC TRANSLATIONS. C IF (.NOT.RBV) GO TO 130 RVEC(1) = ZERO RVEC(2) = (ZG-RBVR(3)) RVEC(3) =-(YG-RBVR(2)) RVEC(4) =-(ZG-RBVR(3)) RVEC(5) = ZERO RVEC(6) = (XG-RBVR(1)) RVEC(7) = (YG-RBVR(2)) RVEC(8) =-(XG-RBVR(1)) RVEC(9) = ZERO C C IF THIS ENTRY IS A SCALAR AND A RIGID BODY VECTOR HAS BEEN C REQUESTED, STORE A ZERO COLUMN C 130 IF (OCID.NE.-1 .OR. .NOT.RBV) GO TO 140 II = 1 JJ = 1 CALL PACK (ZERO,OUTVEC,TRL) COL = COL + 1 GO TO 440 C C IF THIS ENTRY IS A SCALAR AND A CSTM HAS BEEN REQUESTED, SIMPLY C PLACE A ONE ON THE DIAGONAL AND CONTINUE C 140 IF (OCID .NE. -1) GO TO 150 II = COL JJ = COL CALL PACK (ONE,OUTVEC,TRL) COL = COL + 1 GO TO 440 C C IF THIS ENTRY IS ALREADY IN BASIC COORDINATES, STORE AN IDENTITY C IN THE APPOPRIATE SIX BY SIX C 150 IF (OCID.NE.0 .OR. .NOT.RBV) GO TO 190 II = 1 JJ = 1 DO 170 I = 1,3 I3 = 0 DO 160 J = 1,3 VOUT(J ) = TU(J+I*3) 160 VOUT(J+3) = RVEC(J+I*3) I3 = I3 + 3 II = 1 JJ = 6 CALL PACK (VOUT,OUTVEC,TRL) 170 COL = COL + 1 DO 180 I = 1,3 II = I + 3 JJ = I + 3 CALL PACK (ONE,OUTVEC,TRL) 180 CONTINUE GO TO 440 C 190 IF (OCID .NE. 0) GO TO 210 DO 200 I = 1,6 II = COL JJ = COL CALL PACK (ONE,OUTVEC,TRL) 200 COL = COL + 1 GO TO 440 C C CSTM MUST BE MISSING C 210 IF (NCST .NE. 0) GO TO 220 TRL(1) = CSTM GO TO 1020 C C SET UP VECTORS AND MATRICES COMMON TO ALL COORDINATE SYSTEM C TRANSFORMATIONS C C FIND COORDINATE SYSTEM C 220 DO 230 ICST = 1,NCST IF (IX(ICST*14-13+NENT4) .EQ. OCID) GO TO 240 230 CONTINUE GO TO 1400 C C GET COORDINATE SYSTEM TYPE AND C TRANSFORMATION FROM BASIC TO COORDINATE SYSTEM ORIGIN TRIAD C 240 OCIDT = IX(ICST*14-12+NENT4) T1(1) = RX(ICST*14- 8+NENT4) T1(4) = RX(ICST*14- 7+NENT4) T1(7) = RX(ICST*14- 6+NENT4) T1(2) = RX(ICST*14- 5+NENT4) T1(5) = RX(ICST*14- 4+NENT4) T1(8) = RX(ICST*14- 3+NENT4) T1(3) = RX(ICST*14- 2+NENT4) T1(6) = RX(ICST*14- 1+NENT4) T1(9) = RX(ICST*14 +NENT4) C IK = ICST*14 + NENT4 V3(1) = RX(ENTRY*4-2) - RX(IK-11) V3(2) = RX(ENTRY*4-1) - RX(IK-10) V3(3) = RX(ENTRY*4 ) - RX(IK- 9) C V(1) = RX(IK-8)*V3(1) + RX(IK-5)*V3(2) + RX(IK-2)*V3(3) V(2) = RX(IK-7)*V3(1) + RX(IK-4)*V3(2) + RX(IK-1)*V3(3) V(3) = RX(IK-6)*V3(1) + RX(IK-3)*V3(2) + RX(IK )*V3(3) C C SPECIAL CHECKS FOR ZERO RADIUS CYLINDRICAL OR SPHERICAL COORDINATE C SYSTEM. IF SO TREAT AS RECTANGULAR. C RAD = SQRT(V(1)**2 + V(2)**2) IF (RAD .EQ. 0.) OCIDT = 1 C C PERFORM INDIVIDUAL COORDINATE SYSTEM TRANSFORMATION AND GENERATE C T2 C GO TO (250,330,340), OCIDT C C RECTANGULAR, T = T1 C 250 IF (.NOT.RBV) GO TO 290 INDEX = 1 CALL GMMATD (RVEC,3,3,0, T1,3,3,0, RBVEC) C C ADD RIGID BODY INFORMATION TO LOWER OFF DIAGONAL 3X3 IF REQUESTED C DO 280 I = 1,3 I3 = 0 DO 270 J = 1,3 VOUT(J ) = T1(J+I3) 270 VOUT(J+3) = RBVEC(J+I3) I3 = I3 + 3 II = 1 JJ = 6 CALL PACK (VOUT,OUTVEC,TRL) 280 COL = COL + 1 GO TO 310 C C OR SIMPLY PACK THE TRANSFORMATION C 290 INDEX = COL DO 300 I = 1,3 II = INDEX JJ = INDEX + 2 CALL PACK (T1(I*3-2),OUTVEC,TRL) 300 COL = COL + 1 C C STORE LOWER 3X3, AND GET NEXT GRID C 310 DO 320 I = 1,3 II = INDEX + 3 JJ = INDEX + 5 CALL PACK (T1(I*3-2),OUTVEC,TRL) 320 COL = COL + 1 GO TO 440 C C CYLINDRICAL C 330 T2(1) = V(1)/RAD T2(4) =-V(2)/RAD T2(7) = ZERO T2(2) =-T2(4) T2(5) = T2(1) T2(8) = ZERO T2(3) = ZERO T2(6) = ZERO T2(9) = ONE GO TO 350 C C SPHERICAL C 340 XL = SQRT(V(1)*V(1) + V(2)*V(2) + V(3)*V(3)) IF (XL .LE. 0.0) GO TO 1060 T2(1) = V(1)/XL T2(4) =(V(1)*V(3))/(RAD*XL) T2(7) =-V(2)/RAD T2(2) = V(2)/XL T2(5) =(V(2)*V(3))/(RAD*XL) T2(8) = V(1)/RAD T2(3) = V(3)/XL T2(6) =-RAD/XL T2(9) = ZERO C 350 CALL GMMATD (T1,3,3,0, T2,3,3,0, T) IF (.NOT.RBV) GO TO 400 C C ADD RIGID BODY INFORMATION TO LOWER OFF DIAGONAL 3X3 IF REQUESTED C THEN PACK C INDEX = 1 CALL GMMATD (RVEC,3,3,0, T,3,3,0, RBVEC) DO 390 I = 1,3 I3 = 0 DO 380 J = 1,3 VOUT(J ) = T(J+I3) 380 VOUT(J+3) = RBVEC(J+I3) I3 = I3 + 3 II = 1 JJ = 6 CALL PACK (VOUT,OUTVEC,TRL) 390 COL = COL + 1 GO TO 420 C C OR SIMPLY PACK THE TRANSFORMATION C 400 INDEX = COL DO 410 I = 1,3 II = INDEX JJ = INDEX + 2 CALL PACK (T(I*3-2),OUTVEC,TRL) 410 COL = COL + 1 C C STORE LOWER 3X3 C 420 DO 430 I = 1,3 II = INDEX + 3 JJ = INDEX + 5 CALL PACK (T(I*3-2),OUTVEC,TRL) 430 COL = COL + 1 C 440 CONTINUE C CALL CLOSE (OUTVEC,1) CALL WRTTRL (TRL) RETURN C C ERRORS C 1000 WRITE (NOUT,1010) UFM 1010 FORMAT (A23,'. MISSING REQUIRED OUTPUT FILE') GO TO 1500 1020 WRITE (NOUT,1030) UFM,TRL(1) 1030 FORMAT (A23,'. MISSING REQUIRED INPUT FILE',I4) GO TO 1500 1040 WRITE (NOUT,1050) UFM,NAME 1050 FORMAT (A23,'. INPUT FILE ',2A4,' ERROR') GO TO 1500 1060 WRITE (NOUT,1070) UFM 1070 FORMAT (A23,' FROM GRBVEC. ZERO RADIAL LENGTH, ERROR AT 340') GO TO 1500 1100 J = -8 GO TO 1490 1200 J = -1 GO TO 1490 1300 J = -2 GO TO 1490 1320 J = TRL2 GO TO 1350 1330 J = NENT4 GO TO 1350 1340 J = NCST14 1350 WRITE (NOUT,1360) SFM,NAME,J,FLAG 1360 FORMAT (A25,'. EXPECTED RECORD LENGTH DOES NOT MATCH ACTUAL ', 1 ' RECORD LENGTH ON INPUT FILE ',2A4, /5X,2I10) GO TO 1500 1400 WRITE (NOUT,1410) UFM,OCID 1410 FORMAT (A23,'. UNABLE TO FIND COORDINATE SYSTEM ',I8) GO TO 1500 C 1490 CALL MESAGE (J,FILE,SUB) 1500 CALL MESAGE (-61,0,SUB) RETURN END ================================================ FILE: mis/gridip.f ================================================ SUBROUTINE GRIDIP (GRID,SEQSS,LEN,IPSET,CSET,NO,Z,LLOC) C C THIS SUBROUTINE FINDS SETS OF IP NUMBERS AND DEGREE OF FREEDOM C COMPONENT NUMBERS FOR GRID POINTS DEFINED IN A BASIC C SUBSTRUCTURE THAT IS A COMPONENT OF A PSEUDO-STRUCTURE. C C ARGUMENTS C GRID - GRID POINT ID NUMBER C SEQSS - THE STARTING ADDRESS IN OPEN CORE OF THE C PSEUDO-STRUCTURE EQSS RECORD C LEN - LENGTH OF THE EQSS C IPSET - THE SET OF IP NUMBERS FOR GRID C CSET - COMPONENTS OF GIVEN IP NUMBER C NO - THE NUMBER OF IP DEFINED BY GRID C C EXTERNAL ORF,RSHIFT INTEGER ORF,RSHIFT,GRID,SEQSS,IPSET(6),CSET(6),POSNO,Z(1) COMMON /CMBFND/ INAM(2),IERR C IERR = 0 NENT = LEN/3 C C SEARCH FOR THE GRID ID IN THE EQSS C C NOTE --- FOR RAPID LOCATION OF ALL IP FOR A GIVEN GRID, C THE COMPONENT WORD OF THE EQSS HAS HAD ITS FIRST C SIX BITS PACKED WITH A CODE- THE FIRST THREE C BITS GIVE THE NUMBER OF THE IP AND THE SECOND C THREE THE TOTAL NO. OF IP. E.G. 011101 MEANS C THE CURRENT IP IS THE THIRD OF FIVE FOR THIS C GRID ID. C C CALL BISLOC (*30,GRID,Z(SEQSS),3,NENT,LOC) K = SEQSS + LOC - 1 ICODE = RSHIFT(Z(K+2),26) C C ICODE CONTAINS SIX BIT CODE C POSNO = ICODE/8 NOAPP = ICODE - 8*POSNO C C POSNO IS THE POSITION NUMBER OF THE GRID WE HAVE FOUND, C NOAPP IS THE TOTAL NUMBER OF APPEARANCES OF THAT GRID. C IF (NOAPP .EQ. 0) POSNO = 1 IF (NOAPP .EQ. 0) NOAPP = 1 ISTART = K - 3*(POSNO-1) LLOC = ISTART C C PICK UP RIGHT 26 BITS BY MASK26 FOR CSET(I), INSTEAD OF R/LSHIFT C MASK26 = MASKN(26,0) C DO 20 I = 1,NOAPP KK = ISTART + 3*(I-1) IPSET(I) = Z(KK+1) CSET(I) = ORF(Z(KK+2),MASK26) 20 CONTINUE C NO = NOAPP GO TO 40 30 IERR = 1 40 RETURN END ================================================ FILE: mis/gtmat1.f ================================================ SUBROUTINE GTMAT1 (SYM,TT) C C THIS SUBROUTINE PROCESSES TRANSFORMATION MATRICES C IT IS CALLED ONLY BY CMSFIL C EXTERNAL RSHIFT ,ANDF ,ORF INTEGER TRN ,SYM ,ORF ,TRAN ,ECPT1 , 1 ANDF ,CHK1 ,CHK2 ,NAME(2) ,RSHIFT DIMENSION ECPT(4) ,TID(3,3) ,TT(3,3) ,LIST(32),SYMM(6,6), 1 SMAT(6,3),PROD(6) ,TC(3,3) ,TG6(6,6),TG(3,3) , 2 T(6,6) DIMENSION ACPT(1) COMMON /GTMATX/ LOC1 ,LEN1 ,TRN ,TT6(6,6),TC6(6,6) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (ECPT1,ECPT(1)) EQUIVALENCE (IFLAG,RFLAG) DATA TID / 1., 0., 0., 0., 1., 0., 0., 0., 1. / DATA SMAT /-1., 1., 1., 1.,-1.,-1., 1.,-1., 1.,-1., 1.,-1., 1 1., 1.,-1.,-1.,-1., 1. / DATA NAME / 4HGTMT, 4H1Z / C IKIND = 0 DO 10 I = 1,6 DO 10 J = 1,6 TT6(I,J) = 0.0 10 CONTINUE IF (TRN.EQ.0 .AND. SYM.EQ.0) GO TO 170 IF (LOC1.EQ.0 .OR. TRN.EQ.0) GO TO 30 CALL PRETRS (Z(LOC1),LEN1) IKIND = ORF(IKIND,1) DO 20 I = 2,4 ECPT(I) = 0.0 20 CONTINUE ECPT1 = TRN CALL TRANSS (ECPT,TT) GO TO 50 30 DO 40 I = 1,3 DO 40 J = 1,3 TT(I,J) = TID(I,J) 40 CONTINUE 50 DO 60 I = 1,3 DO 60 J = 1,3 TT6(I ,J ) = TT(I,J) TT6(I+3,J+3) = TT(I,J) 60 CONTINUE DO 70 I = 1,6 DO 70 J = 1,6 SYMM(I,J) = 0.0 70 CONTINUE IF (SYM .EQ. 0) GO TO 120 IKIND = ORF(IKIND,1) CALL DECODE (SYM,LIST,NDIR) DO 80 I = 1,6 PROD(I) = 1.0 80 CONTINUE DO 100 I = 1,NDIR IDIR = LIST(I) + 1 IDIR = 4 - IDIR DO 90 J = 1,6 PROD(J) = PROD(J)*SMAT(J,IDIR) 90 CONTINUE 100 CONTINUE DO 110 I = 1,6 SYMM(I,I) = PROD(I) 110 CONTINUE GO TO 140 120 DO 130 I = 1,6 SYMM(I,I) = 1.0 130 CONTINUE 140 CALL GMMATS (TT6,6,6,0, SYMM,6,6,0, T) DO 150 I = 1,6 DO 150 J = 1,6 TT6(I,J) = T(I,J) 150 CONTINUE DO 160 I = 1,3 DO 160 J = 1,3 TT(I,J) = TT6(I,J) 160 CONTINUE ISAV = IKIND RETURN C 170 DO 180 I = 1,6 TT6(I,I) = 1.0 180 CONTINUE DO 190 I = 1,3 DO 190 J = 1,3 TT(I,J) = TID(I,J) 190 CONTINUE ISAV = IKIND CHK1 = 13579 RETURN C C ENTRY GTMAT2 (LOC2,LEN2,ACPT,TC) C ================================ C IKIND = ISAV DO 200 I = 1,6 DO 200 J = 1,6 TC6(I,J) = 0.0 200 CONTINUE RFLAG = ACPT(1) IF (LOC2.EQ.0 .OR. IFLAG.EQ.0) GO TO 210 CALL PRETRS (Z(LOC2),LEN2) CALL TRANSS (ACPT,TC) IKIND = ORF(IKIND,2) GO TO 230 210 DO 220 I = 1,3 DO 220 J = 1,3 TC(I,J) = TID(I,J) 220 CONTINUE 230 DO 240 I = 1,3 DO 240 J = 1,3 TC6(I ,J ) = TC(I,J) TC6(I+3,J+3) = TC(I,J) 240 CONTINUE CHK2 = 24680 RETURN C C ENTRY GTMAT3 (TRAN,TG,TG6,IHELP) C ================================ C IF (CHK1.NE.13579 .AND. CHK2.NE.24680) CALL MESAGE (-37,0,NAME) DO 300 I = 1,6 DO 300 J = 1,6 TG6(I,J) = 0.0 300 CONTINUE IF (TRAN) 340,330,310 310 CALL PRETRS (Z(LOC1),LEN1) DO 320 I = 2,4 ECPT(I) = 0.0 320 CONTINUE ECPT1 = TRAN IKIND = ORF(IKIND,8) IF (TRAN .NE. TRN) IKIND = ORF(IKIND,16) CALL TRANSS (ECPT,TG) IKIND = ORF(IKIND,4) GO TO 370 330 IKIND = ORF(IKIND,4) 340 DO 350 I = 1,3 DO 350 J = 1,3 TG(I,J) = TID(I,J) 350 CONTINUE IF (ANDF(RSHIFT(IKIND,1),1).NE.1 .OR. TRAN.NE.-1) GO TO 360 CALL GMMATS (TT6,6,6,0, TC6,6,6,0, TG6) IHELP = IKIND RETURN C 360 CONTINUE 370 DO 380 I = 1,3 DO 380 J = 1,3 TG6(I ,J ) = TG(I,J) TG6(I+3,J+3) = TG(I,J) 380 CONTINUE IHELP = IKIND RETURN END ================================================ FILE: mis/gust.f ================================================ SUBROUTINE GUST C C THE PURPOSE OF THIS MODULE IS TO COMPUTE STATIONARY VERTICAL GUST C LOADS FOR USE IN AEROLASTIC ANALYSIS C C DMAP CALLING SEQUENCE C C GUST CASECC,DLT,FRL,QHJL,,,ACPT,CSTMA,PHF1/PHF/V,N,NOGUST/ C V,N,BOV/C,Y,MACH/C,Y,Q $ C C GUST USES SEVEN SCRATCH FILES INTEGER CASECC,DLT,FRL,QHJL,ACPT,CSTMA,PHF1,PHF,SCR1,SCR2,SCR3, 1 SCR4,SCR5,SCR6,SCR7,SYSBUF,NAME(2),DIT,IBLOCK(11) REAL XM(2),RBLOCK(11) COMMON /SYSTEM/SYSBUF COMMON /ZZZZZZ/ IZ(1) COMMON /BLANK/NOGUST,BOV,RMACH,Q EQUIVALENCE (XM(1),NOGUST),(IBLOCK(1),RBLOCK(1)) DATA CASECC,DLT,FRL,QHJL,ACPT,CSTMA,PHF1,PHF,SCR1,SCR2,SCR3,SCR4 1 / 101 ,102,103,105 ,108 ,109 ,110 ,201,301 ,302 ,303 ,304 / DATA DIT,SCR5,SCR6,SCR7 / 1 104,305 ,306 ,307 /,NAME/4HGUST,1H /,RBLOCK /11*0.0/ C C GUST1 GENERATES A FREQUENCY FUNCTION TABLE(SCR1) C FOL DATA BLOCK (SCR2) C A IMAGE OF GUST CARDS SID,DLOAD,WG,X0,V(SCR4) C AND SUPPLIES NFREQ,NLOAD,XO,V,NOGUST C CALL GUST1(CASECC,DIT,DLT,FRL,SCR1,SCR2,SCR4,NFREQ,NLOAD,XO,V, 1 NOGUST,SCR3) IF( NOGUST .LT. 0) RETURN C C GUST2 COMPUTES WJ MATRIX(SCR3) C CALL GUST2(SCR2,SCR3,ACPT,XO,V,CSTMA,QHJL) C C SET UP FOR ADRI C NZ = KORSZ(IZ) IBUF1 = NZ-SYSBUF+1 XM(1) =BOV XM(2) = RMACH CALL GOPEN(SCR2,IZ(IBUF1),0) CALL BCKREC(SCR2) CALL FREAD(SCR2,IZ,-2,0) CALL FREAD(SCR2,IZ,NFREQ,1) CALL CLOSE(SCR2,1) NZ= NZ-NFREQ C C ADRI INTERPOLATES ON QHJL PUTTING OUTPUT ON SCR2 (QHJK) C CALL ADRI(IZ,NFREQ,NZ,QHJL,SCR2,SCR5,SCR6,SCR7,NROWJ,NCOLW,NOGO) IF( NOGO .EQ. 1) CALL MESAGE(-61,0,NAME) C C GUST3 MULTIPLIES QHJK BY WJ ONTO SCR5 C SCR5 IS MULTIPLIED BY LOAD FUNCTION,WG,AND Q ONTO C SCR6 C CALL GUST3(SCR2,SCR3,SCR1,SCR4,SCR5,SCR6,Q,NFREQ,NLOAD,NROWJ,NCOLW 1) C QHJK WJ P GUST POEL C C C SET UP TO ADD LOADS C NOGUST=1 IBLOCK(1) =1 RBLOCK(2) =1.0 IBLOCK(7) =1 RBLOCK(8) =1.0 CALL SSG2C(SCR6,PHF1,PHF,1,IBLOCK) RETURN END ================================================ FILE: mis/gust1.f ================================================ SUBROUTINE GUST1(CASECC,DIT,DLT,FRL,PP,FOL,GUSTL,NFREQ,NLOAD, 1 XO,V,NOGUST,CASNEW) C C THE PURPOSE OF THI ROUTINE IS TO GERATE PP,GUSTL,FOL. C C THE ROUTINE PROCEEDS AS FOLLOWS C C FIND GUST CARD(NO-CARDS--SET NOGUST=1 AND RETURN) C PUT GUST CARDS IN CORE C READ CASECC -- BUILD GUSTL C SUPPLU DLOAD = FROM GUST = C C CALL GUST1A WITH NEW CASECC C INTEGER CASECC,DIT,DLT,FRL,PP,FOL,GUSTL,CASNEW,SYSBUF,NAME(2), 1 FILE,IGUST(2),LGUST(5) REAL Z(1),RGUST(5) COMMON /SYSTEM/SYSBUF COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (IZ(1),Z(1)),(RGUST(1),LGUST(1)) DATA NAME /4HGUST,1H1 /,IGUST /1005,10 / DATA IGST /178/ C C INITIALIZE C NZ = KORSZ(IZ) IBUF1 = NZ-SYSBUF IBUF2 = IBUF1-SYSBUF IBUF3 = IBUF2-SYSBUF NZ = IBUF3-1 NOGUST =-1 NOGO =0 CALL PRELOC(*1000,IZ(IBUF1),DIT) CALL LOCATE(*1000,IZ(IBUF1),IGUST,IDX) C C PUT GUST CARDS IN CORE C FILE =DIT CALL READ(*910,*10,DIT,IZ,NZ,0,NLGUST) CALL MESAGE(-8,0,NAME) 10 CONTINUE CALL CLOSE(DIT,1) ICC = NLGUST+1 CALL GOPEN(CASECC,IZ(IBUF1),0) CALL GOPEN(CASNEW,IZ(IBUF2),1) CALL GOPEN(GUSTL,IZ(IBUF3),1) NZ = NZ - NLGUST C C BLAST READ A CASE CONTROL RECORD INTO CORE C 20 CONTINUE FILE = CASECC CALL READ(*100,*30,CASECC,IZ(ICC),NZ,0,LCC) CALL MESAGE(-8,0,NAME) 30 CONTINUE IGSID = IZ(ICC+IGST) IZ(ICC+12) = IGSID CALL ZEROC(RGUST,5) IF( IGSID .EQ. 0) GO TO 90 C C FIND GUST ID AMONG GUST CARDS C DO 40 I = 1 ,NLGUST,5 IF( IZ(I) .EQ. IGSID) GO TO 50 40 CONTINUE CALL MESAGE(31,IGSID,NAME) NOGO =1 GO TO 90 C C FOUND GUST CARD C 50 CONTINUE IZ(ICC+12) = IZ(I+1) IGUST(1) =IGSID LGUST(2) = IZ(I+1) RGUST(3) = Z(I+2) RGUST(4) = Z(I+3) RGUST(5) = Z(I+4) XO = RGUST(4) V = RGUST(5) NOGUST = 1 C C PUT OUT GUSTL /CASNEW C 90 CALL WRITE(CASNEW,IZ(ICC),LCC,1) CALL WRITE(GUSTL,LGUST,5,1) GO TO 20 C C END OF FILE ON CASECC 100 CONTINUE IF( NOGO .EQ. 1) CALL MESAGE(-61,0,NAME) CALL CLOSE(CASECC,1) CALL CLOSE(GUSTL,1) CALL CLOSE(CASNEW,1) C C CALL GUST1A FOR LOADS(W) C CALL GUST1A (DLT, FRL, -CASNEW, DIT, PP, 1, NFREQ, NLOAD, FRQSET, 1 FOL, NOTRD) CALL DMPFIL(-PP,IZ,NZ) 1000 CALL CLOSE(DIT,1) RETURN C C FILE ERRORS C 910 IP1 = -2 CALL MESAGE (IP1, FILE, NAME) RETURN END ================================================ FILE: mis/gust2.f ================================================ SUBROUTINE GUST2(FOL,WJ,ACPT,X0,V,CSTM,QHJL) C C GUST2 MAKE WJ(W) MATRIX FOR GUST C INTEGER FOL,WJ,ACPT,CSTM,QHJL,BUF1,FILE INTEGER SYSBUF,IZ(1),TRL(7),ACDR(13),NAM(2) C COMMON /CONDAS/ PI,TWOPI COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ Z(1) COMMON /ZBLPKX/ A(4),IRN C EQUIVALENCE (Z(1),IZ(1)) C DATA NAM /4HGUST,1H2 / DATA NHNJU,NHACJ /4HNJU ,4HACJ / C ICORE = KORSZ(IZ) - SYSBUF-2 BUF1 = ICORE+1 C C READ IN FREQUENCYS AND CONVERT TO OMEGA C FILE = FOL CALL OPEN(*999,FOL,Z(BUF1),0) CALL FREAD(FOL,Z,-2,0) CALL READ(*998,*10,FOL,Z,ICORE,0,NFREQ) GO TO 997 10 DO 20 I=1,NFREQ 20 Z(I) = Z(I) * TWOPI CALL CLOSE(FOL,1) C C SPACE FOR COLUMN OF W - 2 * J LONG 1 J FOR A 1 J FOR COEF. C FILE = QHJL TRL(1) = QHJL CALL RDTRL(TRL) IF(TRL(1).LT.0) GO TO 999 NJ = TRL(3) JAP= NFREQ JCP = JAP + NJ IACPT = JCP + NJ + 1 IF(IACPT.GT.ICORE) GO TO 997 DO 30 I=1,NJ 30 Z(JAP+I) = 0.0 C C SET UP WJ C TRL(1) = WJ TRL(2) = 0 TRL(3) = NJ TRL(4) = 2 TRL(5) = 3 TRL(6) = 0 TRL(7) = 0 C C READ ACPT RECORDS BY METHOD AND FILL IN THE TWO COLUMNS C A = COS G (CG) FOR DLB 1 FOR Z BODIES 0 FOR ALL ELSE C COEF = XM FOR PANELS AND BODIES C CALL GOPEN(ACPT,Z(BUF1),0) NJU = 0 FILE = ACPT 40 CALL READ(*100,*100,ACPT,METH,1,0,NWR) GO TO (50,60,90,90,90), METH C C DOUBLET LATTICE WITHOUT BODIES C 50 CALL READ(*998,*995,ACPT,ACDR,4,0,NWR) NP = ACDR(1) NSTRIP = ACDR(2) NJG = ACDR(3) NR = 2*NP + 5*NSTRIP + 2*NJG IF(IACPT+NR.GT.ICORE) GO TO 997 CALL READ(*998,*995,ACPT,Z(IACPT),NR,1,NWR) IXIC = IACPT + 2*NP + 5*NSTRIP - 1 IDELX = IXIC + NJG ICG = IACPT + 2*NP + 4*NSTRIP K = 0 KS= 0 NBXR = IZ(IACPT) DO 59 I = 1,NJG Z(JAP+NJU+I)=Z(ICG+KS) Z(JCP+NJU+I)=Z(IXIC+I) + .5* Z(IDELX+I) IF(I.EQ.NJG) GO TO 59 IF(I.EQ.IZ(IACPT+NP+K)) K=K+1 IF(I.NE.NBXR) GO TO 59 KS = KS+1 NBXR = NBXR + IZ(IACPT+K) 59 CONTINUE NJU = NJU+NJG GO TO 40 C C DOUBLET LATTICE WITH BODIES C 60 CALL READ(*998,*995,ACPT,ACDR,13,0,NWR) NJG = ACDR(1) NP = ACDR(3) NB = ACDR(4) NTP = ACDR(5) NTO = ACDR(10) NTZS= ACDR(11) NTYS = ACDR(12) NSTRIP = ACDR(13) IC = IACPT IB = IC + NP IB1= IB + 2*NP IBS= IB1+ 2*NB NR = 3*NP + 3*NB CALL READ(*998,*995,ACPT,Z(IACPT),NR,0,NWR) NBEI = 0 NBES = 0 DO 61 I=1,NB NBEI= NBEI+ IZ(IB1+I-1) NBES= NBES+ IZ(IBS+I-1) 61 CONTINUE ICG = IB+ NP IX = ICG + NSTRIP -1 IXS1= IX + 4*NTP + 2*NBEI + NBES IXS2= IXS1+ NBES NR = 11*NB + 4*NSTRIP CALL READ(*998,*995,ACPT,Z(ICG),-NR,0,NWR) NR = NSTRIP + 4*NTP + 2*NBEI + 3* NBES IF(ICG+NR.GT.ICORE) GO TO 997 CALL READ(*998,*995,ACPT,Z(ICG),NR,1,NWR) IF(NTP.EQ.0) GO TO 65 K= 0 KS=0 NBXR = IZ(IC) DO 64 I=1,NTP Z(JAP+NJU+I) = Z(ICG+KS) Z(JCP+NJU+I) = Z(IX+I) IF(I.EQ.NTP) GO TO 64 IF(I.EQ.IZ(IB+K)) K=K+1 IF(I.NE.NBXR) GO TO 64 KS = KS + 1 NBXR = NBXR + IZ(IC+K) 64 CONTINUE 65 NJU = NJU + NTO IF(NTZS.EQ.0) GO TO 80 DO 70 I=1,NTZS Z(JAP+NJU+I) = 1.0 Z(JCP+NJU+I) = .5 * (Z(IXS1+I) + Z(IXS2+I)) 70 CONTINUE 80 NJU = NJU + NTZS + NTYS GO TO 40 C C MACH BOX STRIP PISTON THEORIES C 90 CALL READ(*998,*995,ACPT,NJG,1,1,NWR) NJU= NJU + NJG GO TO 40 100 CALL CLOSE(ACPT,1) CALL BUG(NHNJU ,100,NJU,1) CALL BUG(NHACJ ,100,Z(JAP+1),2*NJ) IF(NJU.NE.NJ) GO TO 996 C C BUILD WJ LOOP OVER ALL FREQUENCIES WITH AN INNER LOOP ON NJ C CALL GOPEN(WJ,Z(BUF1),1) DO 150 I=1,NFREQ FREQ = Z(I) CALL BLDPK(3,3,WJ,0,0) DO 140 J=1,NJ AM = Z(JAP+J) IF( AM .EQ. 0.0 ) GO TO 140 IRN = J TEMP = FREQ *((Z(JCP+J)-X0)/V) A(1) = COS(TEMP)*AM A(2) = -SIN(TEMP)*AM CALL ZBLPKI 140 CONTINUE CALL BLDPKN(WJ,0,TRL) 150 CONTINUE CALL CLOSE(WJ,1) CALL WRTTRL(TRL) CALL DMPFIL(-WJ,Z,ICORE) 1000 RETURN C C ERROR MESSAGES C 995 CALL MESAGE(-3,FILE,NAM) 996 CALL MESAGE(-7,0,NAM) 997 CALL MESAGE(-8,0,NAM) 998 CALL MESAGE(-2,FILE,NAM) 999 CALL MESAGE(-1,FILE,NAM) GO TO 1000 END ================================================ FILE: mis/gust3.f ================================================ SUBROUTINE GUST3 (QHJK,WJ,PP,GUSTL,PDEL,PGUST,Q,NFREQ,NLOAD, 1 NROWJ,NCOLW) C C THE PURPOSE OF THIS ROUTINE IS TO MULTIPLY QHJK(+) BY WJ C FORMING PDEL C PDEL IS THEN MULTIPLIED BY Q*WG*PP(W) FORMING PGUST C INTEGER QHJK,WJ,PP,GUSTL,PDEL,PGUST,IZ(1),SYSBUF,MCB(7), 1 NAME(2) COMMON /PACKX / ITC1,ITC2,II1,JJ1,INCR1 COMMON /UNPAKX/ ITC,II,JJ,INCR COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (IZ(1),Z(1)) DATA NAME / 4HGUST,1H3 / C C INITIALIZE C IBUF1 = KORSZ(IZ)- SYSBUF+1 IBUF2 = IBUF1- SYSBUF IBUF3 = IBUF2- SYSBUF INCR1 = 1 INCR = 1 IBUF4 = IBUF3- SYSBUF MCB(1)= QHJK CALL RDTRL(MCB) ITC = 3 ITC1 = ITC ITC2 = ITC CALL GOPEN (WJ,IZ(IBUF1),0) CALL GOPEN (QHJK,IZ(IBUF2),0) CALL GOPEN (PDEL,IZ(IBUF3),1) C C SET UP TO PACK C IT1 = 1 JJ1 = MCB(3) / NROWJ NRQHJ = MCB(3) NTQHJ = NRQHJ*2 CALL MAKMCB (MCB,PDEL,JJ1,2,ITC2) II = 1 IQHJ = 2*NFREQ+1 IWJ = IQHJ+NTQHJ NTWZ = NROWJ*2 IPDEL= IWJ + NTWZ NTPDEL = JJ1*2 NZ = IBUF4-1 - IPDEL + 2*JJ1 IF (NZ .LT. 0) CALL MESAGE (-8,0,NAME) DO 100 I = 1,NFREQ JJ = NRQHJ CALL UNPACK (*10,QHJK,Z(IQHJ)) C C MULTIPY EACH IMAGINARY PART BY K C DO 5 J = 1,NTQHJ,2 Z(IQHJ+J) = Z(IQHJ+J)*Z(2*I) 5 CONTINUE GO TO 20 C C NULL COLUMN C 10 CALL ZEROC (Z(IQHJ),NTQHJ) 20 CONTINUE C C BRING WJ COLUMN INTO CORE C JJ = NROWJ CALL UNPACK (*30,WJ,Z(IWJ)) GO TO 40 30 CALL ZEROC (Z(IWJ),NTWZ) 40 CONTINUE C C MULTIPLY C CALL GMMATC (Z(IQHJ),JJ1,NROWJ,0,Z(IWJ),NROWJ,1,0,Z(IPDEL)) CALL PACK (Z(IPDEL),PDEL,MCB) 100 CONTINUE CALL CLOSE (WJ,1) CALL CLOSE (QHJK,1) CALL CLOSE (PDEL,1) CALL WRTTRL (MCB) CALL DMPFIL (-PDEL,Z,NZ) C C REPEATEDLY READ PDEL MULTIPLYING BY Q,WG, AND PP C CALL GOPEN (PDEL,IZ(IBUF1),0) CALL GOPEN (PP,IZ(IBUF2),0) CALL GOPEN (GUSTL,IZ(IBUF3),0) CALL GOPEN (PGUST,IZ(IBUF4),1) CALL MAKMCB (MCB,PGUST,MCB(3),MCB(4),MCB(5)) DO 400 I = 1,NLOAD CALL REWIND (PDEL) CALL SKPREC (PDEL,1) CALL FREAD (GUSTL,IZ,5,1) IZ2 = 2 QWG = Q*Z(IZ2+1) DO 300 J = 1,NFREQ JJ = 1 CALL UNPACK (*310,PP,Z) QWGR = QWG * Z(1) QWGC = QWG * Z(IZ2) GO TO 320 310 CONTINUE QWGR = 0.0 QWGC = 0.0 320 CONTINUE JJ = JJ1 CALL UNPACK (*330,PDEL,Z) GO TO 340 330 CALL ZEROC (Z,NTPDEL) 340 CONTINUE DO 350 M = 1,NTPDEL,2 PGR = QWGR*Z(M ) - QWGC*Z(M+1) PGC = QWGR*Z(M+1) + QWGC*Z(M ) Z(M ) = PGR Z(M+1) = PGC 350 CONTINUE CALL PACK (Z,PGUST,MCB) 300 CONTINUE 400 CONTINUE CALL CLOSE (PDEL,1) CALL CLOSE (PP,1) CALL CLOSE (GUSTL,1) CALL CLOSE (PGUST,1) CALL WRTTRL (MCB) RETURN END ================================================ FILE: mis/hbdy.f ================================================ SUBROUTINE HBDY (ECPT,NECPT,IOPT,RVECT,IVECT) C C THIS SUBROUTINE CALCULATES THE GEOMETRIC PROPERTIES OF THE VARIOUS C TYPES OF HBDY ELEMENTS. IOPT IS DESCRIBED BELOW C C THE ECPT INPUT DATA IS C C POSITION DATA C 1 EL ID C 2 FLAG C 3 SIL-1 C 4 SIL-2 C 5 SIL-3 C 6 SIL-4 C 7 SIL-5 C 8 SIL-6 C 9 SIL-7 C 10 SIL-8 C 11 VECTOR V1 C 12 VECTOR V2 C 13 VECTOR V3 C 14 ECPT14 C 15 MAT ID C 16 A-FACTOR C 17 EMISSIVITY C 18 ABSORBTIVIY C 19 R1 C 20 R2 C 21 CS-1 C 22 X1 C 23 Y1 C 24 Z1 C 25 CS-2 C 26 X2 C 27 Y2 C 28 Z2 C 29 CS-3 C 30 X3 C 31 Y3 C 32 Z3 C 33 CS-4 C 34 X4 C 35 Y4 C 36 Z4 C 37-52 NOT USED C 53 AVG. EL. TEMP. C C THE VALUE OF FLAG INDICATES THE TYPE OF ELEMENT C C FLAG TYPE C **** **** C 1 POINT C 2 LINE C 3 REV C 4 TRIANGLE C 5 QUADRILATERAL C 6 ELLIPTIC CYLINDER C 7 FTUBE C C C THE OUTPUT DATA IS PLACED IN VECT AND IVECT C THE FORMATS ARE C C POSITION C IOPT= 1 2 C 1 EL ID EL ID C 2 AREA AREA C 3 EMIS SIL-1 C 4 --- SIL-2 C 5 SIL-1 SIL-3 C 6 SIL-2 SIL-4 C 7 SIL-3 AREA-1 C 8 SIL-4 AREA-2 C 9 GFACT-1 AREA-3 C 10 GFACT-2 AREA-4 C 11 GFACT-3 N1X C 12 GFACT-4 N1Y C 13 N1Z C 14 N2X - FOR FLAG = 6 ONLY C 15 N2Y - C 16 N2Z - C C INTEGER NECPT(5),IVECT(5),FLAG REAL ECPT(36),DXYZ(3),RVECT(16),V(3) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /CONDAS/ CONSTS(5) EQUIVALENCE (CONSTS(1),PI), (DXYZ(1),DX), (DXYZ(2),DY), 1 (DXYZ(3),DZ) C C DO 10 I = 1,16 RVECT(I) = 0.0 10 IVECT(I) = 0 IVECT(1) = NECPT(1) FLAG = NECPT(2) IF (FLAG.LE.0 .OR. FLAG.GT. 7) GO TO 210 IF (FLAG .EQ. 7) ECPT(16) = PI*(ECPT(19) + ECPT(20)) C GO TO (20,30,40,50,60,90,30), FLAG C C FLAG = POINT C 20 IVECT(3) = NECPT(3) RVECT(7) = ECPT(16) RVECT(2) = ECPT(16) CALL SANORM (*110,ECPT(11)) NPTS = 1 GO TO 110 C C FLAG = LINE C 30 IVECT(3) = NECPT(3) IVECT(4) = NECPT(4) NPTS = 2 DX = ECPT(26) - ECPT(22) DY = ECPT(27) - ECPT(23) DZ = ECPT(28) - ECPT(24) C TEMP = DX**2 + DY**2 + DZ**2 IF (TEMP .LE. 1.0E-20) GO TO 210 C C AREA CALCULATIONS C RVECT(2) = ECPT(16)*SQRT(TEMP) RVECT(7) = RVECT(2)*0.5 RVECT(8) = RVECT(7) C C NORMAL VECTOR CALCULATIONS C TEMP =(DX*ECPT(11) + DY*ECPT(12) + DZ*ECPT(13))/TEMP RVECT(11) = ECPT(11) - TEMP*DX RVECT(12) = ECPT(12) - TEMP*DY RVECT(13) = ECPT(13) - TEMP*DZ C C NORMALIZE C CALL SANORM (*110,RVECT(11)) GO TO 110 C C TYPE= REV C 40 IVECT(3) = NECPT(3) IVECT(4) = NECPT(4) NPTS = 2 DX = ECPT(26) - ECPT(22) DZ = ECPT(28) - ECPT(24) TEMP = SQRT(DX**2 +DZ**2)*PI IF (TEMP .LE. 1.0E-20) GO TO 210 RVECT(7) = (2.0*ECPT(22) + ECPT(26))*TEMP/3.0 RVECT(8) = (2.0*ECPT(26) + ECPT(22))*TEMP/3.0 RVECT(2) = RVECT(7) + RVECT(8) C TEMP = TEMP/PI RVECT(11) = DZ/TEMP RVECT(13) =-DX/TEMP GO TO 110 C C FLAG = AREA3 C 50 IVECT(3) = NECPT(3) IVECT(4) = NECPT(4) IVECT(5) = NECPT(5) NPTS = 3 DX = ECPT(26) - ECPT(22) DY = ECPT(27) - ECPT(23) DZ = ECPT(28) - ECPT(24) RVECT(7) = ECPT(30) - ECPT(26) RVECT(8) = ECPT(31) - ECPT(27) RVECT(9) = ECPT(32) - ECPT(28) C C CALC. NORMAL VECTOR C CALL SAXB (DXYZ,RVECT(7),RVECT(11)) C CALL SANORM (*210,RVECT(11)) C RVECT(2) = TEMP/2.0 RVECT(7) = TEMP/6.0 RVECT(8) = RVECT(7) RVECT(9) = RVECT(7) C GO TO 110 C C FLAG = AREA4 C 60 DO 70 I = 3,6 70 IVECT(I) = NECPT(I) NPTS = 4 DO 80 I = 1,3 C C CALCULATE DIFFERENCE VECTORS C C R2 - R1 C RVECT(I+6) = ECPT(I+25) - ECPT(I+21) C C R3 - R1 C RVECT(I+13) = ECPT(I+29) - ECPT(I+21) C C R4 - R2 C V(I) = ECPT(I+33) - ECPT(I+25) 80 CONTINUE C C (R3 - R1) X (R4 - R2) C CALL SAXB (RVECT(14),V,RVECT(11)) C C 2*AREA C TEMP = SQRT(RVECT(11)**2 + RVECT(12)**2 + RVECT(13)**2) RVECT(2) = TEMP/2.0 C C NORMALIZE C CALL SANORM (*210,RVECT(11)) C CALL SAXB (RVECT(7),RVECT(14),DXYZ) C C AREA OF TRIANGLE 123 C TEMP = SQRT(DX**2 + DY**2 + DZ**2)/2.0 C CALL SAXB (RVECT(7),V,DXYZ) C C AREA OF TRIANGLE 412 C DX = SQRT(DX**2 + DY**2 + DZ**2)/2.0 C C AREA FOR POINTS C RVECT( 7) = (RVECT(2)+DX )/6.0 RVECT( 8) = (RVECT(2)+TEMP )/6.0 RVECT( 9) = (RVECT(2)*2.-DX)/6.0 RVECT(10) = (RVECT(2)*2.-TEMP)/6.0 RVECT(14) = 0.0 RVECT(15) = 0.0 RVECT(16) = 0.0 NPTS = 4 GO TO 110 C C FLAG = ELCYL C 90 IVECT(3) = NECPT(3) IVECT(4) = NECPT(4) NPTS = 2 DX = ECPT(26) - ECPT(22) DY = ECPT(27) - ECPT(23) DZ = ECPT(28) - ECPT(24) TEMP = SQRT(DX**2 + DY**2 + DZ**2) RVECT(2) = TEMP*ECPT(16) IF (IOPT .EQ. 3) RVECT(2) = TEMP IF (TEMP .LE. 0) GO TO 210 CALL SAXB (ECPT(11),DXYZ,RVECT(14)) CALL SAXB (DXYZ,RVECT(14),RVECT(11)) C CALL SANORM (*210,RVECT(11)) CALL SANORM (*210,RVECT(14)) DO 100 I = 1,3 RVECT(I+10) = RVECT(I+10)*ECPT(20) 100 RVECT(I+13) = RVECT(I+13)*ECPT(19) RVECT(7) = RVECT(2)/2.0 RVECT(8) = RVECT(7) C C IOPT EQUALS 1 C CALCULATE G FACTORS. STORE IN NEW LOCATIONS. C WORK FROM LAST TO FIRST C C CHECK FOR ZERO AREA C 110 AREA = RVECT(2) IF (AREA .LT. 1.0E-20) GO TO 210 120 IF (IOPT .GT. 1) GO TO 170 DO 130 I = 1,NPTS J = NPTS - I + 1 130 RVECT(J+8) = RVECT(J+6)/AREA C DO 160 I = 1,4 J = 5-I IF (J -NPTS) 150,150,140 140 IVECT(J+4) = 0 GO TO 160 150 IVECT(J+4) = IVECT(J+2) 160 CONTINUE C C STORE EMISSIVITY VALUE C RVECT(3) = ECPT(17) RETURN C C IOPT EQUALS 2 C 170 IF (IOPT .EQ. 2) RETURN DO 180 I = 1,NPTS RVECT(I+6) = RVECT(I+6)*ECPT(18) 180 CONTINUE RETURN C 210 WRITE (6,220) UWM,NECPT(1) 220 FORMAT (A25,' 2154, ZERO AREA OR ILLEGAL CONNECTION FOR HBDY ', 1 'ELEMENT NUMBER',I9) AREA = 1.0 GO TO 120 END ================================================ FILE: mis/hbdyd.f ================================================ SUBROUTINE HBDYD C C THIS IS THE BOUNDARY CONDITION (HEAT) ELEMENT ROUTINE C IT PRODUCES THE STIFFNESS AND OR DAMPING ELEMENT MATRICES. C LOGICAL HEAT ,NOGO INTEGER NGRIDS(7),NECPT(53),OUTPT ,SILTAB(8) , 1 SET1(8) ,SET2(4) ,SILS ,DICT(13) , 2 ELID ,ESTID REAL ECPT(53) DOUBLE PRECISION C(16) ,CC(4,4) ,PI ,MASTER(8,8), 1 MAST(64) ,KE ,ME ,ITEMP , 2 A1(5) ,A2(3) ,A3(3) ,A4(3) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /SYSTEM/ KSYSTM(100) COMMON /EMGEST/ ECPT1 ,IFLAG ,SILS(8) ,V(3) , 1 ECPT14 ,MATFLG ,AF ,EMISS , 2 ABSORP ,R1 ,R2 ,CSID(4,8) , 3 AVGTMP COMMON /HMTOUT/ HX ,CPX COMMON /MATIN / MATID ,INFLAG ,ELTEMP COMMON /EMGPRM/ D15(15) ,KMBGG(3) ,IPREC ,NOGO , 1 HEAT ,ICMBAR COMMON /EMGDIC/ DMMM(2) ,NLOCS ,ELID ,ESTID COMMON /CONDAD/ PI EQUIVALENCE (NECPT(1), ECPT(1)), (SET2(1), SET1(5)) , 1 (ECPT1 , ECPT(1)), (DICT5 , DICT(5)) , 2 (KSYSTM(2),OUTPT ), (CC(1,1), C(1) ) , 3 (MASTER(1,1),MAST(1)) DATA NGRIDS/ 1, 2, 2, 3, 4, 2 ,2/ C C EST ENTRY FOR -CHBDY- ELEMENT C ====================================================== C ECPT( 1) = EL-ID ELEMENT ID C ECPT( 2) = IFLAG ELEM. TYPE FLAG = (1,2,3,4,5,6,7) C ECPT( 3) = SIL-1 SCALER INDICES C ECPT( 4) = SIL-2 C ECPT( 5) = SIL-3 C ECPT( 6) = SIL-4 C ECPT( 7) = SIL-5 C ECPT( 8) = SIL-6 C ECPT( 9) = SIL-7 C ECPT(10) = SIL-8 C ECPT(11) = V1 ORIENTATION VECTOR C ECPT(12) = V2 C ECPT(13) = V3 C ECPT(14) = ECPT14 C ECPT(15) = MATFLG MAT ID FOR MAT4, MAT5 DATA C ECPT(16) = AF AREA FACTOR C ECPT(17) = EMISS EMISSIVITY COEFF C ECPT(18) = ABSORP ABSORPTIVITY COEFF C ECPT(19) = R1 RADII OF ELIPTICAL CYLINDER C ECPT(20) = R2 C ECPT(21) = CSID-1 COORDINATE SYSTEM ID AND C ECPT(22) = X1 COORDINATE GRID POINTS C ECPT(23) = Y1 (1-4 ARE ELEMENT POINTS, C ECPT(24) = Z1 C ECPT(25) = CSID-2 C ECPT(26) = X2 C ECPT(27) = Y2 C ECPT(28) = Z2 C ECPT(29) = CSID-3 C ECPT(30) = X3 C ECPT(31) = Y3 C ECPT(32) = Z3 C ECPT(33) = CSID-4 C ECPT(34) = X4 C ECPT(35) = Y4 C ECPT(36) = Z4 C ECPT(37) = CSID-5 5-8 ARE POINTS IN THE FLUID) C -ETC- -ETC- C ECPT(53) = AVGTMP AVERAGE ELEM. TEMPERATURE C C GENERAL INITIALIZATION C IF (.NOT. HEAT) RETURN IMHERE = 0 IF (IFLAG.LT.1 .OR. IFLAG.GT.7) GO TO 470 IF (IFLAG .EQ. 7) AF = PI*(DBLE(R1)+DBLE(R2)) N = NGRIDS(IFLAG) DICT(1) = ESTID DICT(2) = 1 DICT(4) = 1 DICT5 = 0.0 C C MASTER OUTPUT MATRIX OF SIZE UP TO 8 X 8 IS FORMED. DUPLICATE C SILS ARE SUPERIMPOSED RESULTING IN A POSSIBLY SMALLER OUTPUT MATRX C C FOR A GIVEN ELEMENT-ID THE MATRIX OUTPUT WILL BE OF ORDER EQUAL C TO THE NUMBER OF UNIQUE SILS PRESENT. C C IFLAG = 1 WILL BE 1X1 OR 2X2 * C IFLAG = 2 WILL BE 2X2 UP TO 4X4 * C IFLAG = 3 WILL BE 2X2 UP TO 4X4 * (DEPENDING ON GROUDING AND C IFLAG = 4 WILL BE 3X3 UP TO 6X6 * DUPLICATE SILS.) C IFLAG = 5 WILL BE 4X4 UP TO 8X8 * C C -SET1- WILL BE A MAP OF OUTPUT POSITIONS FOR SILS 1 THRU 4 C -SET2- WILL BE A MAP OF OUTPUT POSITIONS FOR SILS 5 THRU 8 C C C FIRST FORM THE TABLE OF UNIQUE SILS. C ISIZE = 0 DO 50 I = 1,8 IF (SILS(I) .LE. 0) GO TO 50 IF (ISIZE .LE. 0) GO TO 40 DO 30 J = 1,ISIZE IF (SILS(I) .EQ. SILTAB(J)) GO TO 50 30 CONTINUE 40 ISIZE = ISIZE + 1 SILTAB(ISIZE) = SILS(I) 50 CONTINUE CALL SORT (0,0,1,1,SILTAB(1),ISIZE) IMHERE = 50 IF (ISIZE .LE. 0) GO TO 470 C C BUILD -SET1- AND -SET2- MAPS OF WHERE OUTPUTS GO IN MASTER OUTPUT. C DO 100 I = 1,8 J = 8 IF (SILS(I) .LE. 0) GO TO 90 DO 80 J = 1,ISIZE IF (SILS(I) .EQ. SILTAB(J)) GO TO 90 80 CONTINUE IMHERE = 80 GO TO 470 90 SET1(I) = J 100 CONTINUE DICT(3) = ISIZE C C FORM STIFFNESS -HEAT- IF REQUESTED. C IF (KMBGG(1) .EQ. 0) GO TO 360 INFLAG = 1 ELTEMP = AVGTMP MATID = MATFLG IF (MATID .EQ. 0) GO TO 360 CALL HMAT (NECPT) CP = CPX H = HX IF (H .EQ. 0.0) GO TO 360 GO TO (120,130,140,210,240,130,130), IFLAG C C IFLAG = 1, (POINT), 1 GRID-POINT. (1 X 1) C = H * AF C 120 C(1) = H C(2) = AF C(1) = C(1)*C(2) GO TO 300 C C IFLAG = 2, (LINE OR ELLIPTIC CYL. ) ** ** C 2 GRID POINTS H*AF*L * 2 1 * C (2X2) C =------ * * C 6 * 1 2 * C ** ** C 130 C(1) = H C(2) = AF C(3) = ECPT(26) - ECPT(22) C(4) = ECPT(27) - ECPT(23) C(5) = ECPT(28) - ECPT(24) C(1) = C(1)*C(2)*DSQRT(C(3)**2 + C(4)**2 + C(5)**2)/3.0D0 C(2) = C(1)/2.0D0 C(5) = C(2) C(6) = C(1) GO TO 300 C C IFLAG = 3, (REVOLUTION), 2 GRID-POINTS ** ** C *(3X +X ) (X + X )* C H*2PI*L * 1 2 1 2 * C (2X2) C = ------- * * C 12 *(X + X ) (X +3X )* C * 1 2 1 2 * C ** ** C 140 IF (ECPT(22).LE.0.0 .OR. ECPT(26).LE.0.0) GO TO 180 IF (ECPT(23).NE.0.0 .OR. ECPT(27).NE.0.0) GO TO 180 GO TO 200 180 WRITE (OUTPT,190) UFM,NECPT(1) 190 FORMAT (A23,' 3088, ILLEGAL GEOMETRY FOR REVOLUTION ELEMENT',I14) NOGO = .TRUE. GO TO 490 C C FILL CONDUCTIVITIY MATRIX C 200 C(1) = H C(2) = PI C(3) = ECPT(26) - ECPT(22) C(4) = ECPT(28) - ECPT(24) C C NOTE Y2 AND Y1 ARE 0 FOR REVOLUTION ELEMENT. C C(1) = C(1)*C(2)*DSQRT(C(3)**2 + C(4)**2)/6.0D0 C(2) = C(1)*DBLE(ECPT(22) + ECPT(26)) C(5) = C(2) C(6) = C(1)*DBLE(ECPT(22) + 3.0*ECPT(26)) C(1) = C(1)*DBLE(3.0*ECPT(22) + ECPT(26)) GO TO 300 C C IFLAG = 4, (TRIANGLE), 3 GRID-POINTS. ** ** C * 2 1 1 * C H * A * * C (3X3) C = ----- * 1 2 1 * C 24 * * C * 1 1 2 * C ** ** C C C COMPUTE AREA -A- OF TRIANGLE GET R2-R1 AND R3-R2 C 210 C(1) = ECPT(26) - ECPT(22) C(2) = ECPT(27) - ECPT(23) C(3) = ECPT(28) - ECPT(24) C(4) = ECPT(30) - ECPT(26) C(5) = ECPT(31) - ECPT(27) C(6) = ECPT(32) - ECPT(28) C C (R2-R1) X (R3-R2) INTO C(1),C(2),C(3) C CALL DAXB (C(1),C(4),C(1)) C(7) = DSQRT(C(1)**2 + C(2)**2 + C(3)**2) IF (C(7) .LE. 0.0) GO TO 220 C(2) = C(7)*DBLE(H)/24.0D0 C(1) = 2.0D0*C(2) C(3) = C(2) C(5) = C(2) C(6) = C(1) C(7) = C(2) C(9) = C(2) C(10)= C(2) C(11)= C(1) GO TO 300 220 WRITE (OUTPT,230) UFM,NECPT(1) 230 FORMAT (A23,' 3089, ILLEGAL GEOMETRY FOR TRIANGLE ELEMENT',I14) NOGO = .TRUE. GO TO 490 C C IFLAG = 5, (QUADRILATERAL), 4 GRID-POINTS. C C *** *** C * 2(A2+A3+A4) (A3+A4) (A2+A4) (A2+A3) * C * * C * 2(A1+A3+A4) (A1+A4) (A1+A3) * C (4X4) C = * * C * 2(A1+A2+A4) (A1+A2) * C * -SYM- * C * 2(A1+A2+A3)* C *** *** C C R = XI, YI, ZI C I C C A1 = MAG((R3-R2) X (R4-R3)) C A2 = MAG((R4-R3) X (R1-R4)) C A3 = MAG((R1-R4) X (R2-R1)) C A4 = MAG((R2-R1) X (R3-R2)) C C C R3-R2 C 240 C( 1) = ECPT(30) - ECPT(26) C( 2) = ECPT(31) - ECPT(27) C( 3) = ECPT(32) - ECPT(28) C C R4-R3 C C( 4) = ECPT(34) - ECPT(30) C( 5) = ECPT(35) - ECPT(31) C( 6) = ECPT(36) - ECPT(32) C C R1-R4 C C( 7) = ECPT(22) - ECPT(34) C( 8) = ECPT(23) - ECPT(35) C( 9) = ECPT(24) - ECPT(36) C C R2-R1 C C(10) = ECPT(26) - ECPT(22) C(11) = ECPT(27) - ECPT(23) C(12) = ECPT(28) - ECPT(24) C C CALL DAXB (C( 1),C( 4),A1(1)) CALL DAXB (C( 4),C( 7),A2(1)) CALL DAXB (C( 7),C(10),A3(1)) CALL DAXB (C(10),C( 1),A4(1)) C C(1) = A1(1)*A2(1) + A1(2)*A2(2) + A1(3)*A2(3) C(2) = A1(1)*A3(1) + A1(2)*A3(2) + A1(3)*A3(3) C(3) = A1(1)*A4(1) + A1(2)*A4(2) + A1(3)*A4(3) IF (C(1)*C(2)*C(3) .LE. 0.0D0) GO TO 280 A1(1) = DSQRT(A1(1)**2 + A1(2)**2 + A1(3)**2) A1(2) = DSQRT(A2(1)**2 + A2(2)**2 + A2(3)**2) A1(3) = DSQRT(A3(1)**2 + A3(2)**2 + A3(3)**2) A1(4) = DSQRT(A4(1)**2 + A4(2)**2 + A4(3)**2) A1(5) = A1(1) + A1(2) + A1(3) + A1(4) ITEMP = DBLE(H)/48.0D0 DO 270 I = 1,4 IC = 4*(I-1) DO 270 J = 1,4 IJ = IC + J IF (I .EQ. J) GO TO 260 C(IJ) = ITEMP*(A1(5) - A1(I) - A1(J)) GO TO 270 260 C(IJ) = ITEMP*(2.0D0*(A1(5) - A1(I))) 270 CONTINUE GO TO 300 280 WRITE (OUTPT,290) UFM,NECPT(1) 290 FORMAT (A23,' 3090, ILLEGAL GEOMETRY FOR QUAD. ELEMENT',I14) NOGO =.TRUE. GO TO 490 C C HERE WHEN -C- MATRIX OF SIZE N X N IS READY FOR INSERTION (MAPING) C INTO MASTER OUTPUT MATRIX OF SIZE ISIZE X ISIZE. C 300 DO 310 I = 1,64 MAST(I) = 0.0D0 310 CONTINUE C DO 330 I = 1,N I1 = SET1(I) I2 = SET2(I) DO 320 J = 1,N J1 = SET1(J) J2 = SET2(J) KE = CC(I,J) MASTER(I1,J1) = MASTER(I1,J1) + KE MASTER(I1,J2) = MASTER(I1,J2) - KE MASTER(I2,J1) = MASTER(I2,J1) - KE MASTER(I2,J2) = MASTER(I2,J2) + KE 320 CONTINUE 330 CONTINUE C C CONDENSE (ISIZE X ISIZE) MATRIX IN (8 X 8) MASTER ARRAY INTO A C SINGLE STRAND FOR OUTPUT TO EMGOUT C K = 0 DO 350 JCOL = 1,ISIZE DO 340 IROW = 1,ISIZE K = K + 1 MAST(K) = MASTER(IROW,JCOL) 340 CONTINUE 350 CONTINUE C C OUTPUT VIA EMGOUT THE TRIANGLE IN GLOBAL FOR STIFFNESS MATRIX C CALL EMGOUT (MAST(1),MAST(1),K,1,DICT,1,IPREC) C C FORM DAMPING -HEAT- IF REQUESTED. C 360 IF (KMBGG(3) .EQ. 0) GO TO 490 INFLAG = 4 ELTEMP = AVGTMP MATID = MATFLG IF (MATID .EQ. 0) GO TO 490 CALL HMAT (NECPT) CP = HX IF (CP .EQ. 0.0) GO TO 490 GO TO (380,390,400,410,420,390,390), IFLAG C C IFLAG = 1, (POINT), 1 GRID-POINT. (1 X 1) C = CP* AF C 380 C(1) = CP C(2) = AF C(1) = C(1)*C(2) GO TO 440 C C IFLAG = 2, (LINE OR ELLIPTIC CYL. ) C 2 GRID POINTS CP*AF*L* * C C = ------*1 , 1 * C 2 * * C 390 C(1) = CP C(2) = AF C(3) = ECPT(26) - ECPT(22) C(4) = ECPT(27) - ECPT(23) C(5) = ECPT(28) - ECPT(24) C(1) = C(1)*C(2)*DSQRT(C(3)**2 + C(4)**2 + C(5)**2)/2.0D0 C(2) = C(1) GO TO 440 C C IFLAG = 3, (REVOLUTION), 2 GRID-POINTS C CP*PI*L * * C C = ------- *2X +X , 2X +X * C 3 * 1 2 2 1* C 400 C(1) = CP C(2) = PI C(3) = ECPT(26) - ECPT(22) C(4) = ECPT(28) - ECPT(24) C C NOTE Y2 AND Y1 ARE 0 FOR REVOLUTION ELEMENT. C C(1) = C(1)*C(2)*DSQRT(C(3)**2 + C(4)**2)/3.0D0 C(2) = C(1)*DBLE(ECPT(22) + 2.0*ECPT(26)) C(1) = C(1)*DBLE(2.0*ECPT(22) + ECPT(26)) GO TO 440 C C IFLAG = 4, (TRIANGLE), 3 GRID-POINTS. C CP*A * * C C = ---- * 1, 1, 1 * C 3 * * C C C COMPUTE AREA -A- OF TRIANGLE GET R2-R1 AND R3-R2 C 410 C(1) = ECPT(26) - ECPT(22) C(2) = ECPT(27) - ECPT(23) C(3) = ECPT(28) - ECPT(24) C(4) = ECPT(30) - ECPT(26) C(5) = ECPT(31) - ECPT(27) C(6) = ECPT(32) - ECPT(28) C C (R2-R1) X (R3-R2) INTO C(1),C(2),C(3) C CALL DAXB (C(1),C(4),C(1)) C(7) = DSQRT(C(1)**2 + C(2)**2 + C(3)**2) C(1) = C(7)*DBLE(CP)/6.0D0 C(2) = C(1) C(3) = C(1) GO TO 440 C C IFLAG = 5, (QUADRILATERAL), 4 GRID-POINTS. C C CP * * C C = -- * A +A +A , A +A +A , A +A +A , ETC* C 6 * 2 3 4 3 4 1 4 1 2 * C C R = XI, YI, ZI C I C C A1 = MAG((R3-R2) X (R4-R3)) C A2 = MAG((R4-R3) X (R1-R4)) C A3 = MAG((R1-R4) X (R2-R1)) C A4 = MAG((R2-R1) X (R3-R2)) C C C R3-R2 C 420 C( 1) = ECPT(30) - ECPT(26) C( 2) = ECPT(31) - ECPT(27) C( 3) = ECPT(32) - ECPT(28) C C R4-R3 C C( 4) = ECPT(34) - ECPT(30) C( 5) = ECPT(35) - ECPT(31) C( 6) = ECPT(36) - ECPT(32) C C R1-R4 C C( 7) = ECPT(22) - ECPT(34) C( 8) = ECPT(23) - ECPT(35) C( 9) = ECPT(24) - ECPT(36) C C R2-R1 C C(10) = ECPT(26) - ECPT(22) C(11) = ECPT(27) - ECPT(23) C(12) = ECPT(28) - ECPT(24) C C CALL DAXB (C( 1),C( 4),A1(1)) CALL DAXB (C( 4),C( 7),A2(1)) CALL DAXB (C( 7),C(10),A3(1)) CALL DAXB (C(10),C( 1),A4(1)) C A1(1) = DSQRT(A1(1)**2 + A1(2)**2 + A1(3)**2) A1(2) = DSQRT(A2(1)**2 + A2(2)**2 + A2(3)**2) A1(3) = DSQRT(A3(1)**2 + A3(2)**2 + A3(3)**2) A1(4) = DSQRT(A4(1)**2 + A4(2)**2 + A4(3)**2) A1(5) = A1(1) + A1(2) + A1(3) + A1(4) ITEMP = DBLE(CP)/12.0D0 DO 430 I = 1,4 C(I) = ITEMP*(A1(5) - A1(I)) 430 CONTINUE GO TO 440 C C HERE WHEN DIAGONAL C MATRIX OF SIZE 1 X N IS READY FOR INSERTION C (MAPING) INTO MASTER DIAGONAL OUTPUT MATRIX OF SIZE 1 X ISIZE. C 440 DO 450 I = 1,8 MAST(I) = 0.0D0 450 CONTINUE C DO 460 I = 1,N I1 = SET1(I) I2 = SET2(I) ME = C(I) MAST(I1) = MAST(I1) + ME MAST(I2) = MAST(I2) + ME 460 CONTINUE C C OUTPUT VIA EMGOUT THE DIAGONAL MATRIX IN GLOBAL C DICT(2) = 2 CALL EMGOUT (MAST(1),MAST(1),ISIZE,1,DICT,3,IPREC) GO TO 490 C C LOGIC ERROR C 470 WRITE (OUTPT,480) SFM,IMHERE,NECPT(1),SILS 480 FORMAT (A25,' 3037 FROM HBDYD.', /5X, 1 'LOGIC ERROR, IMHERE =',I5,' ELEMENT ID = ',I10, /5X, 2 'SILS =',8I10) NOGO = .TRUE. 490 RETURN END ================================================ FILE: mis/hbdys.f ================================================ SUBROUTINE HBDYS C C THIS IS THE BOUNDARY CONDITION (HEAT) ELEMENT ROUTINE C IT PRODUCES THE STIFFNESS AND OR DAMPING ELEMENT MATRICES. C LOGICAL HEAT ,NOGO INTEGER NGRIDS(7),NECPT(53),OUTPT ,SILTAB(8) , 1 SET1(8) ,SET2(4) ,SILS ,DICT(13) , 2 ELID ,ESTID REAL C(16) ,CC(4,4) ,PI ,MASTER(8,8), 1 MAST(64) ,KE ,ME ,ITEMP , 2 A1(5) ,A2(3) ,A3(3) ,A4(3) REAL ECPT(53) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /SYSTEM/ KSYSTM(100) COMMON /EMGEST/ ECPT1 ,IFLAG ,SILS(8) ,V(3) , 1 ECPT14 ,MATFLG ,AF ,EMISS , 2 ABSORP ,R1 ,R2 ,CSID(4,8) , 3 AVGTMP COMMON /HMTOUT/ HX ,CPX COMMON /MATIN / MATID ,INFLAG ,ELTEMP COMMON /EMGPRM/ D15(15) ,KMBGG(3) ,IPREC ,NOGO , 1 HEAT ,ICMBAR COMMON /EMGDIC/ DMMM(2) ,NLOCS ,ELID ,ESTID COMMON /CONDAS/ PI EQUIVALENCE (NECPT(1), ECPT(1)), (SET2(1), SET1(5)) , 1 (ECPT1 , ECPT(1)), (DICT5 , DICT(5)) , 2 (KSYSTM(2),OUTPT ), (CC(1,1), C(1) ) , 3 (MASTER(1,1),MAST(1)) DATA NGRIDS/ 1, 2, 2, 3, 4, 2 ,2/ C C EST ENTRY FOR -CHBDY- ELEMENT C ====================================================== C ECPT( 1) = EL-ID ELEMENT ID C ECPT( 2) = IFLAG ELEM. TYPE FLAG = (1,2,3,4,5,6,7) C ECPT( 3) = SIL-1 SCALER INDICES C ECPT( 4) = SIL-2 C ECPT( 5) = SIL-3 C ECPT( 6) = SIL-4 C ECPT( 7) = SIL-5 C ECPT( 8) = SIL-6 C ECPT( 9) = SIL-7 C ECPT(10) = SIL-8 C ECPT(11) = V1 ORIENTATION VECTOR C ECPT(12) = V2 C ECPT(13) = V3 C ECPT(14) = ECPT14 C ECPT(15) = MATFLG MAT ID FOR MAT4, MAT5 DATA C ECPT(16) = AF AREA FACTOR C ECPT(17) = EMISS EMISSIVITY COEFF C ECPT(18) = ABSORP ABSORPTIVITY COEFF C ECPT(19) = R1 RADII OF ELIPTICAL CYLINDER C ECPT(20) = R2 C ECPT(21) = CSID-1 COORDINATE SYSTEM ID AND C ECPT(22) = X1 COORDINATE GRID POINTS C ECPT(23) = Y1 (1-4 ARE ELEMENT POINTS, C ECPT(24) = Z1 C ECPT(25) = CSID-2 C ECPT(26) = X2 C ECPT(27) = Y2 C ECPT(28) = Z2 C ECPT(29) = CSID-3 C ECPT(30) = X3 C ECPT(31) = Y3 C ECPT(32) = Z3 C ECPT(33) = CSID-4 C ECPT(34) = X4 C ECPT(35) = Y4 C ECPT(36) = Z4 C ECPT(37) = CSID-5 5-8 ARE POINTS IN THE FLUID) C -ETC- -ETC- C ECPT(53) = AVGTMP AVERAGE ELEM. TEMPERATURE C C C GENERAL INITIALIZATION C IF (.NOT. HEAT) RETURN IMHERE = 0 IF (IFLAG.LT.1 .OR. IFLAG.GT.7) GO TO 470 IF (IFLAG .EQ. 7) AF = PI*(R1+R2) N = NGRIDS(IFLAG) DICT(1) = ESTID DICT(2) = 1 DICT(4) = 1 DICT5 = 0.0 C C MASTER OUTPUT MATRIX OF SIZE UP TO 8 X 8 IS FORMED. DUPLICATE C SILS ARE SUPERIMPOSED RESULTING IN A POSSIBLY SMALLER OUTPUT MATRX C C FOR A GIVEN ELEMENT-ID THE MATRIX OUTPUT WILL BE OF ORDER EQUAL C TO THE NUMBER OF UNIQUE SILS PRESENT. C C IFLAG = 1 WILL BE 1X1 OR 2X2 * C IFLAG = 2 WILL BE 2X2 UP TO 4X4 * C IFLAG = 3 WILL BE 2X2 UP TO 4X4 * (DEPENDING ON GROUDING AND C IFLAG = 4 WILL BE 3X3 UP TO 6X6 * DUPLICATE SILS.) C IFLAG = 5 WILL BE 4X4 UP TO 8X8 * C C -SET1- WILL BE A MAP OF OUTPUT POSITIONS FOR SILS 1 THRU 4 C -SET2- WILL BE A MAP OF OUTPUT POSITIONS FOR SILS 5 THRU 8 C C C FIRST FORM THE TABLE OF UNIQUE SILS. C ISIZE = 0 DO 50 I = 1,8 IF (SILS(I) .LE. 0) GO TO 50 IF (ISIZE .LE. 0) GO TO 40 DO 30 J = 1,ISIZE IF (SILS(I) .EQ. SILTAB(J)) GO TO 50 30 CONTINUE 40 ISIZE = ISIZE + 1 SILTAB(ISIZE) = SILS(I) 50 CONTINUE CALL SORT (0,0,1,1,SILTAB(1),ISIZE) IMHERE = 50 IF (ISIZE .LE. 0) GO TO 470 C C BUILD -SET1- AND -SET2- MAPS OF WHERE OUTPUTS GO IN MASTER OUTPUT. C DO 100 I = 1,8 J = 8 IF (SILS(I) .LE. 0) GO TO 90 DO 80 J = 1,ISIZE IF (SILS(I) .EQ. SILTAB(J)) GO TO 90 80 CONTINUE IMHERE = 80 GO TO 470 90 SET1(I) = J 100 CONTINUE DICT(3) = ISIZE C C FORM STIFFNESS -HEAT- IF REQUESTED. C IF (KMBGG(1) .EQ. 0) GO TO 360 INFLAG = 1 ELTEMP = AVGTMP MATID = MATFLG IF (MATID .EQ. 0) GO TO 360 CALL HMAT (NECPT) CP = CPX H = HX IF (H .EQ. 0.0) GO TO 360 GO TO (120,130,140,210,240,130,130), IFLAG C C IFLAG = 1, (POINT), 1 GRID-POINT. (1 X 1) C = H * AF C 120 C(1) = H C(2) = AF C(1) = C(1)*C(2) GO TO 300 C C IFLAG = 2, (LINE OR ELLIPTIC CYL. ) ** ** C 2 GRID POINTS H*AF*L * 2 1 * C (2X2) C =------ * * C 6 * 1 2 * C ** ** C 130 C(1) = H C(2) = AF C(3) = ECPT(26) - ECPT(22) C(4) = ECPT(27) - ECPT(23) C(5) = ECPT(28) - ECPT(24) C(1) = C(1)*C(2)*SQRT(C(3)**2 + C(4)**2 + C(5)**2)/3.0 C(2) = C(1)/2.0 C(5) = C(2) C(6) = C(1) GO TO 300 C C IFLAG = 3, (REVOLUTION), 2 GRID-POINTS ** ** C *(3X +X ) (X + X )* C H*2PI*L * 1 2 1 2 * C (2X2) C = ------- * * C 12 *(X + X ) (X +3X )* C * 1 2 1 2 * C ** ** C 140 IF (ECPT(22).LE.0.0 .OR. ECPT(26).LE.0.0) GO TO 180 IF (ECPT(23).NE.0.0 .OR. ECPT(27).NE.0.0) GO TO 180 GO TO 200 180 WRITE (OUTPT,190) UFM,NECPT(1) 190 FORMAT (A23,' 3088, ILLEGAL GEOMETRY FOR REVOLUTION ELEMENT',I14) NOGO = .TRUE. GO TO 490 C C FILL CONDUCTIVITIY MATRIX C 200 C(1) = H C(2) = PI C(3) = ECPT(26) - ECPT(22) C(4) = ECPT(28) - ECPT(24) C C NOTE Y2 AND Y1 ARE 0 FOR REVOLUTION ELEMENT. C C(1) = C(1)*C(2)*SQRT(C(3)**2 + C(4)**2)/6.0 C(2) = C(1)*(ECPT(22) + ECPT(26)) C(5) = C(2) C(6) = C(1)*(ECPT(22) + 3.0*ECPT(26)) C(1) = C(1)*(3.0*ECPT(22) + ECPT(26)) GO TO 300 C C IFLAG = 4, (TRIANGLE), 3 GRID-POINTS. ** ** C * 2 1 1 * C H * A * * C (3X3) C = ----- * 1 2 1 * C 24 * * C * 1 1 2 * C ** ** C C C COMPUTE AREA -A- OF TRIANGLE GET R2-R1 AND R3-R2 C 210 C(1) = ECPT(26) - ECPT(22) C(2) = ECPT(27) - ECPT(23) C(3) = ECPT(28) - ECPT(24) C(4) = ECPT(30) - ECPT(26) C(5) = ECPT(31) - ECPT(27) C(6) = ECPT(32) - ECPT(28) C C (R2-R1) X (R3-R2) INTO C(1),C(2),C(3) C CALL SAXB (C(1),C(4),C(1)) C(7) = SQRT(C(1)**2 + C(2)**2 + C(3)**2) IF (C(7) .LE. 0.0) GO TO 220 C(2) = C(7)*H/24.0 C(1) = 2.0 *C(2) C(3) = C(2) C(5) = C(2) C(6) = C(1) C(7) = C(2) C(9) = C(2) C(10)= C(2) C(11)= C(1) GO TO 300 220 WRITE (OUTPT,230) UFM,NECPT(1) 230 FORMAT (A23,' 3089, ILLEGAL GEOMETRY FOR TRIANGLE ELEMENT',I14) NOGO = .TRUE. GO TO 490 C C IFLAG = 5, (QUADRILATERAL), 4 GRID-POINTS. C C *** *** C * 2(A2+A3+A4) (A3+A4) (A2+A4) (A2+A3) * C * * C * 2(A1+A3+A4) (A1+A4) (A1+A3) * C (4X4) C = * * C * 2(A1+A2+A4) (A1+A2) * C * -SYM- * C * 2(A1+A2+A3)* C *** *** C C R = XI, YI, ZI C I C C A1 = MAG((R3-R2) X (R4-R3)) C A2 = MAG((R4-R3) X (R1-R4)) C A3 = MAG((R1-R4) X (R2-R1)) C A4 = MAG((R2-R1) X (R3-R2)) C C C R3-R2 C 240 C( 1) = ECPT(30) - ECPT(26) C( 2) = ECPT(31) - ECPT(27) C( 3) = ECPT(32) - ECPT(28) C C R4-R3 C C( 4) = ECPT(34) - ECPT(30) C( 5) = ECPT(35) - ECPT(31) C( 6) = ECPT(36) - ECPT(32) C C R1-R4 C C( 7) = ECPT(22) - ECPT(34) C( 8) = ECPT(23) - ECPT(35) C( 9) = ECPT(24) - ECPT(36) C C R2-R1 C C(10) = ECPT(26) - ECPT(22) C(11) = ECPT(27) - ECPT(23) C(12) = ECPT(28) - ECPT(24) C C CALL SAXB (C( 1),C( 4),A1(1)) CALL SAXB (C( 4),C( 7),A2(1)) CALL SAXB (C( 7),C(10),A3(1)) CALL SAXB (C(10),C( 1),A4(1)) C C(1) = A1(1)*A2(1) + A1(2)*A2(2) + A1(3)*A2(3) C(2) = A1(1)*A3(1) + A1(2)*A3(2) + A1(3)*A3(3) C(3) = A1(1)*A4(1) + A1(2)*A4(2) + A1(3)*A4(3) IF (C(1)*C(2)*C(3) .LE. 0.0) GO TO 280 A1(1) = SQRT(A1(1)**2 + A1(2)**2 + A1(3)**2) A1(2) = SQRT(A2(1)**2 + A2(2)**2 + A2(3)**2) A1(3) = SQRT(A3(1)**2 + A3(2)**2 + A3(3)**2) A1(4) = SQRT(A4(1)**2 + A4(2)**2 + A4(3)**2) A1(5) = A1(1) + A1(2) + A1(3) + A1(4) ITEMP = H/48.0 DO 270 I = 1,4 IC = 4*(I-1) DO 270 J = 1,4 IJ = IC + J IF (I .EQ. J) GO TO 260 C(IJ) = ITEMP*(A1(5) - A1(I) - A1(J)) GO TO 270 260 C(IJ) = ITEMP*(2.0*(A1(5) - A1(I))) 270 CONTINUE GO TO 300 280 WRITE (OUTPT,290) UFM,NECPT(1) 290 FORMAT (A23,' 3090, ILLEGAL GEOMETRY FOR QUAD. ELEMENT',I14) NOGO =.TRUE. GO TO 490 C C HERE WHEN -C- MATRIX OF SIZE N X N IS READY FOR INSERTION (MAPING) C INTO MASTER OUTPUT MATRIX OF SIZE ISIZE X ISIZE. C 300 DO 310 I = 1,64 MAST(I) = 0.0 310 CONTINUE C DO 330 I = 1,N I1 = SET1(I) I2 = SET2(I) DO 320 J = 1,N J1 = SET1(J) J2 = SET2(J) KE = CC(I,J) MASTER(I1,J1) = MASTER(I1,J1) + KE MASTER(I1,J2) = MASTER(I1,J2) - KE MASTER(I2,J1) = MASTER(I2,J1) - KE MASTER(I2,J2) = MASTER(I2,J2) + KE 320 CONTINUE 330 CONTINUE C C CONDENSE (ISIZE X ISIZE) MATRIX IN (8 X 8) MASTER ARRAY INTO A C SINGLE STRAND FOR OUTPUT TO EMGOUT C K = 0 DO 350 JCOL = 1,ISIZE DO 340 IROW = 1,ISIZE K = K + 1 MAST(K) = MASTER(IROW,JCOL) 340 CONTINUE 350 CONTINUE C C OUTPUT VIA EMGOUT THE TRIANGLE IN GLOBAL FOR STIFFNESS MATRIX C CALL EMGOUT (MAST(1),MAST(1),K,1,DICT,1,IPREC) C C FORM DAMPING -HEAT- IF REQUESTED. C 360 IF (KMBGG(3) .EQ. 0) GO TO 490 INFLAG = 4 ELTEMP = AVGTMP MATID = MATFLG IF (MATID .EQ. 0) GO TO 490 CALL HMAT (NECPT) CP = HX IF (CP .EQ. 0.0) GO TO 490 GO TO (380,390,400,410,420,390,390), IFLAG C C IFLAG = 1, (POINT), 1 GRID-POINT. (1 X 1) C = CP* AF C 380 C(1) = CP C(2) = AF C(1) = C(1)*C(2) GO TO 440 C C IFLAG = 2, (LINE OR ELLIPTIC CYL. ) C 2 GRID POINTS CP*AF*L* * C C = ------*1 , 1 * C 2 * * C 390 C(1) = CP C(2) = AF C(3) = ECPT(26) - ECPT(22) C(4) = ECPT(27) - ECPT(23) C(5) = ECPT(28) - ECPT(24) C(1) = C(1)*C(2)*SQRT(C(3)**2 + C(4)**2 + C(5)**2)/2.0 C(2) = C(1) GO TO 440 C C IFLAG = 3, (REVOLUTION), 2 GRID-POINTS C CP*PI*L * * C C = ------- *2X +X , 2X +X * C 3 * 1 2 2 1* C 400 C(1) = CP C(2) = PI C(3) = ECPT(26) - ECPT(22) C(4) = ECPT(28) - ECPT(24) C C NOTE Y2 AND Y1 ARE 0 FOR REVOLUTION ELEMENT. C C(1) = C(1)*C(2)*SQRT(C(3)**2 + C(4)**2)/3.0 C(2) = C(1)*(ECPT(22) + 2.0*ECPT(26)) C(1) = C(1)*(2.0*ECPT(22) + ECPT(26)) GO TO 440 C C IFLAG = 4, (TRIANGLE), 3 GRID-POINTS. C CP*A * * C C = ---- * 1, 1, 1 * C 3 * * C C C COMPUTE AREA -A- OF TRIANGLE GET R2-R1 AND R3-R2 C 410 C(1) = ECPT(26) - ECPT(22) C(2) = ECPT(27) - ECPT(23) C(3) = ECPT(28) - ECPT(24) C(4) = ECPT(30) - ECPT(26) C(5) = ECPT(31) - ECPT(27) C(6) = ECPT(32) - ECPT(28) C C (R2-R1) X (R3-R2) INTO C(1),C(2),C(3) C CALL SAXB (C(1),C(4),C(1)) C(7) = SQRT(C(1)**2 + C(2)**2 + C(3)**2) C(1) = C(7)*CP/6.0 C(2) = C(1) C(3) = C(1) GO TO 440 C C IFLAG = 5, (QUADRILATERAL), 4 GRID-POINTS. C C CP * * C C = -- * A +A +A , A +A +A , A +A +A , ETC* C 6 * 2 3 4 3 4 1 4 1 2 * C C R = XI, YI, ZI C I C C A1 = MAG((R3-R2) X (R4-R3)) C A2 = MAG((R4-R3) X (R1-R4)) C A3 = MAG((R1-R4) X (R2-R1)) C A4 = MAG((R2-R1) X (R3-R2)) C C C R3-R2 C 420 C( 1) = ECPT(30) - ECPT(26) C( 2) = ECPT(31) - ECPT(27) C( 3) = ECPT(32) - ECPT(28) C C R4-R3 C C( 4) = ECPT(34) - ECPT(30) C( 5) = ECPT(35) - ECPT(31) C( 6) = ECPT(36) - ECPT(32) C C R1-R4 C C( 7) = ECPT(22) - ECPT(34) C( 8) = ECPT(23) - ECPT(35) C( 9) = ECPT(24) - ECPT(36) C C R2-R1 C C(10) = ECPT(26) - ECPT(22) C(11) = ECPT(27) - ECPT(23) C(12) = ECPT(28) - ECPT(24) C C CALL SAXB (C( 1),C( 4),A1(1)) CALL SAXB (C( 4),C( 7),A2(1)) CALL SAXB (C( 7),C(10),A3(1)) CALL SAXB (C(10),C( 1),A4(1)) C A1(1) = SQRT(A1(1)**2 + A1(2)**2 + A1(3)**2) A1(2) = SQRT(A2(1)**2 + A2(2)**2 + A2(3)**2) A1(3) = SQRT(A3(1)**2 + A3(2)**2 + A3(3)**2) A1(4) = SQRT(A4(1)**2 + A4(2)**2 + A4(3)**2) A1(5) = A1(1) + A1(2) + A1(3) + A1(4) ITEMP = CP/12.0 DO 430 I = 1,4 C(I) = ITEMP*(A1(5) - A1(I)) 430 CONTINUE GO TO 440 C C HERE WHEN DIAGONAL C MATRIX OF SIZE 1 X N IS READY FOR INSERTION C (MAPING) INTO MASTER DIAGONAL OUTPUT MATRIX OF SIZE 1 X ISIZE. C 440 DO 450 I = 1,8 MAST(I) = 0.0 450 CONTINUE C DO 460 I = 1,N I1 = SET1(I) I2 = SET2(I) ME = C(I) MAST(I1) = MAST(I1) + ME MAST(I2) = MAST(I2) + ME 460 CONTINUE C C OUTPUT VIA EMGOUT THE DIAGONAL MATRIX IN GLOBAL C DICT(2) = 2 CALL EMGOUT (MAST(1),MAST(1),ISIZE,1,DICT,3,IPREC) GO TO 490 C C LOGIC ERROR C 470 WRITE (OUTPT,480) SFM,IMHERE,NECPT(1),SILS 480 FORMAT (A25,' 3037 FROM HBDYS.', /5X, 1 'LOGIC ERROR, IMHERE =',I5,' ELEMENT ID =',I10, /5X, 2 'SILS =',8I10) NOGO = .TRUE. 490 RETURN END ================================================ FILE: mis/hccom.f ================================================ SUBROUTINE HCCOM(ITYPE,LCORE,ICORE,NEXTZ,KCOUNT) C C COMBINES HC CENTROID INFO ON SCR6 TO HCCENS C INTEGER SCR6,HCCENS,IZ(1),ID(2),NAM(2),MCBH(7) LOGICAL INCORE,BLDP,EOR DIMENSION HC(63) COMMON/SYSTEM/IDUM,IOUT COMMON/ZZZZZZ/Z(1) COMMON/PACKX/ITA,ITB,II,JJ,INCR COMMON/ZBLPKX/A(4),IROW EQUIVALENCE (Z(1),IZ(1)) DATA MCBH/307,0,0,2,1,0,0/ DATA SCR6,HCCENS/306,307/ DATA NAM/4HHCCO,4HM / C ITA=1 ITB=1 II=1 INCR=1 ICOUNT=0 NSKIP=0 NSKIP1=0 IN=0 EOR=.FALSE. BLDP=.FALSE. INCORE=.TRUE. C C IF TYPE IS 24 JUST PACK ZEROS ON HCCENS C IF(ITYPE.EQ.24)GO TO 60 C CALL GOPEN(SCR6,Z(LCORE+1),0) C C SCR6 HAS 3 ENTRIES PER ELEMENT-ID,NUMBER OF POINTS AT WHICH HC IS C COMPUTED=N, AND 3*N HC VALUES--THERE IS ONE RECORD PER CARD TYPE C ON SCR6 FOR THIS SUBCASE C IF .NOT. INCORE, THEN WE ARE BACK HERE DUE TO SPILL LOGIC AND ARE C TRYING TO FINISH THE FIRST RECORD. SO WE MUST SKIP THE PART OF THE C RECORD PREVIOUSLY READ. C 5 IF(.NOT.INCORE)CALL FREAD(SCR6,ID,-NSKIP,0) INWORD=0 10 CALL READ (*1002,*20,SCR6,ID,2,0,NWDS) NSKIP=NSKIP+2 INEXT=NEXTZ+INWORD NWORDS=3*ID(2) IF(INEXT+NWORDS.GT.ICORE)GO TO 80 CALL FREAD(SCR6,Z(INEXT),NWORDS,0) C C INWORD IS THE NUMBER OF WORDS READ INTO CORE ON THIS READ C NSKIP IS THE TOTAL NUMBER OF WORDS READ FROM SCR6 FROM THIS RECORD C ICOUNT IS THE TOTAL NUMBER OF WORDS SAVED IN CORE FROM THIS RECORD C INWORD=INWORD+NWORDS NSKIP=NSKIP+NWORDS ICOUNT=ICOUNT+NWORDS GO TO 10 C 20 EOR=.TRUE. IF(.NOT.INCORE)GO TO 95 C C CHECK ON COUNT CONSISTENCY C IF(ICOUNT.NE.KCOUNT)GO TO 500 C C EOR ON SCR6, I.E. END OF HC FOR A GIVEN CARD TYPE IN THIS SUBCASE. C IF OTHER CARD TYPES EXIST IN THIS SUBCASE, THEY ARE IN SUBSEQUENT C RECORDS. ADD RESULTS TO PREVIOUS ONES C 30 JCOUNT=0 35 CALL READ (*50,*30,SCR6,ID,2,0,NWDS) NWORDS=3*ID(2) CALL FREAD(SCR6,HC,NWORDS,0) C C ADD TO PREVIOUS HC FOR THIS ELEMENT- ALL ELEMENTS SHOULD BE ON SCR6 C IN SAME ORDER IN EVERY RECORD C NJ=NEXTZ+JCOUNT-1 DO 40 I=1,NWORDS Z(NJ+I)=Z(NJ+I)+HC(I) 40 CONTINUE JCOUNT=JCOUNT+NWORDS IF((.NOT.INCORE).AND.JCOUNT.EQ.INWORD)GO TO 90 GO TO 35 C C INFO WILL NOT FIT IN CORE - SPILL LOGIC C 80 INCORE=.FALSE. 90 CALL FWDREC (*1002,SCR6) C C SKIP APPROPRIATE NUMBER OF WORDS IN THIS RECORD TO ACCOUNT FOR C THE PORTION OF THIS RECORD PREVIOUSLY READ C 95 CALL READ (*50,*1003,SCR6,ID,-NSKIP1,0,NWDS) GO TO 30 C C C DONE FOR THIS SUBCASE. PACK RESULTS. CLOSE SCR6 AND REOPEN TO WRITE C NEXT SUBCASE (IF ALL DATA CAN FIT INTO CORE) C 50 IF(INCORE)GO TO 57 C C SPILL LOGIC-PACK OUT INWORD WORDS. THEN REWIND SCRL AND SKIP DOWN C AS NECESSARY C IF(.NOT.BLDP)CALL BLDPK(1,1,SCR6,0,0) BLDP=.TRUE. DO 55 K=1,INWORD A(1)=Z(NEXTZ+K-1) IROW=IN+K CALL ZBLPKI 55 CONTINUE IF(EOR)GO TO 58 C IN=IN+INWORD CALL REWIND(SCR6) CALL FWDREC (*1002,SCR6) NSKIP=NSKIP-2 NSKIP1=NSKIP GO TO 5 C 57 CALL CLOSE(SCR6,1) JJ=ICOUNT MCBH(3)=JJ CALL PACK(Z(NEXTZ),HCCENS,MCBH) GO TO 70 C C DONE FOR THIS SUBCASE (SPILL LOGIC) C 58 CALL CLOSE(SCR6,1) MCBH(3)=ICOUNT CALL BLDPKN(SCR6,0,MCBH) GO TO 70 C C C PACK A COLUMN OF ZEROS CORRESPONDING TO REMFLUX C 60 MCBH(3)=KCOUNT CALL BLDPK(1,1,HCCENS,0,0) CALL BLDPKN(HCCENS,0,MCBH) C 70 CALL WRTTRL(MCBH) IF(ITYPE.EQ.24)GO TO 75 C C CHECK ON COUNT CONSISTENCY C IF(INCORE)GO TO 75 IF(ICOUNT.NE.KCOUNT)GO TO 500 C 75 CALL GOPEN(SCR6,Z(LCORE+1),1) RETURN C 500 WRITE(IOUT,501) 501 FORMAT(58H0***SYSTEM FATAL ERROR,LOGIC ERROR,COUNTS ARE OFF IN HCC 1OM) CALL MESAGE(-61,0,0) C 1002 CALL MESAGE(-2,SCR6,NAM) 1003 CALL MESAGE(-3,SCR6,NAM) RETURN END ================================================ FILE: mis/hdchk.f ================================================ SUBROUTINE HDCHK(XXX,CCC,NNO,II,XI,YI,NGX,ZM,ZMI, 1 RV,RVI,TGM,TGI,ZI,LZ,XCC) C C C C THIS SUBROUTINE SOLVES FOR THE POINTS OF INTERSECTION ON THE C LINES OF THE JTH ELEMENT WITH OTHER LINES AND PLANES(RELEVANT) C C DIMENSION CCC(1),XXX(1) DIMENSION RV(1),RVI(1),TGM(1),TGI(1),ZM(1),ZMI(1), 1 NNO(1),NGX(1),XCC(1),XI(1),YI(1),ZI(1) COMMON/HEDG/JS,M,JT,VX,VX1,VX2,VX3,NN COMMON/GO3/L0,L1,L00,L01,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13 JM=1 EEX=.015 EXP=.005 NGX(1)=0 IF(II.EQ.0)GO TO 190 IF(NN .EQ. 1) GO TO 5 IF(VX3 .NE. 0.)GO TO 5 A=XXX(JT+2) B=XXX(JT+1) C=XXX(JT+4) Z1=XCC(JS) Z2=XCC(JS+1) IF(A.EQ.0.) GO TO 1 Y1=-XCC(JS+3)*B-C Y2=-XCC(JS+4)*B-C X1=XCC(JS+3) X2=XCC(JS+4) GO TO 50 1 CONTINUE Y1=XCC(JS+3) Y2=XCC(JS+4) X1=-C X2=X1 GO TO 50 5 CONTINUE A=XCC(JS) B=XCC(JS+1) C=XCC(JS+2) IF(A.EQ.0.)GO TO 20 Y1=-XCC(JS+3)*XCC(JS+1)-XCC(JS+2) Y2=-XCC(JS+4)*XCC(JS+1)-XCC(JS+2) X1=XCC(JS+3) X2=XCC(JS+4) GO TO 30 20 CONTINUE Y1=XCC(JS+3) Y2=XCC(JS+4) X1=-XCC(JS+2) X2=X1 30 CONTINUE IF(NN.NE.1)GO TO 40 Z1=XXX(1+JT) Z2=XXX(2+JT) GO TO 50 40 CONTINUE Z1=-(VX+VX1*Y1+VX2*X1)/VX3 Z2=-(VX+VX1*Y2+VX2*X2)/VX3 50 CONTINUE AL=X2-X1 BL=Y2-Y1 CL=Z2-Z1 EG=AMIN1(Z1,Z2) EGX=AMAX1(X1,X2) EGX1=AMIN1(X1,X2) EGY=AMAX1(Y1,Y2) EGY1=AMIN1(Y1,Y2) C C C THIS CODE DETERMINES THE POINTS OF INTERSECTIONS ON THE LINES OF C JTH ELEMENT RESULTING FROM THE INTERSECTION OF THE PLANES WITH C THESE LINES. C C DO 170 JR=1,II LG=NNO(L4+JR) NNO(L4+JR)=IABS(NNO(JR+L4)) LE=NNO(L4+JR) JE=L13+LZ*(LE-1) JU=L12+5*(LE-1) NK=XXX(5+JU) JV=1 AC=XXX(1+JU) BC=XXX(2+JU) CC=XXX(3+JU) D=XXX(4+JU) IF(EGX.LT.TGM(L5+LE))GO TO 170 IF(EGX1.GT.TGI(L6+LE))GO TO 170 IF(EGY.LT.RVI(L8+LE))GO TO 170 IF(EGY1.GT.RV(L7+LE))GO TO 170 IF(EG.GT.ZM(L2+LE))GO TO 170 IF(LG.LT.0)GO TO 80 IF((AL.EQ.0.).AND.(BL.EQ.0.))GO TO 80 IF(AL.EQ.0.)GO TO 60 XP=((BC*BL)/AL)*X1+(CC*CL/AL)*X1-D XP=XP-BC*Y1-CC*Z1 VU=AC+(BC*BL/AL)+(CC*CL/AL) IF(VU.EQ.0.)GO TO 80 XP=XP/VU T=(XP-X1)/AL YP=T*BL+Y1 ZP=T*CL+Z1 GO TO 70 60 CONTINUE YP=(AC*AL/BL)*Y1+(CC*CL/BL)*Y1-D YP=YP-CC*Z1-AC*X1 VU=BC+(AC*AL/BL)+(CC*CL/BL) IF(VU.EQ.0.)GO TO 80 YP=YP/VU T=(YP-Y1)/BL XP=T*AL+X1 ZP=T*CL+Z1 70 CONTINUE S=ZP-ZM(L2+LE) S1=ZP-ZMI(L3+LE) IF((ABS(S).LT.EEX).OR.(ABS(S1).LT.EEX))GO TO 56 IF(S*S1.GT.0.)GO TO 80 56 CONTINUE S=XP-TGM(L5+LE) S1=XP-TGI(L6+LE) IF(S*S1.GT.0.)GO TO 80 S=YP-RV(L7+LE) S1=YP-RVI(L8+LE) IF(S*S1.GT.0.)GO TO 80 T=XP IF(A.EQ.0.)T=YP S=T-XCC(JS+3) S1=T-XCC(JS+4) IF(S*S1.GE.0.)GO TO 80 M=M+1 C C STORES INTERSECTIONS. C XI(M+1)=XP YI(M+1)=YP ZI(M+1)=ZP 80 CONTINUE C C THIS CODE DETERMINES INTERSECTION POINTS OF LINES WITH LINES. C DO 160 JC=1,NK B1=CCC(JV+1+JE) A1=CCC(JV+JE) C1=CCC(JV+2+JE) T=A1*B-B1*A IF(T.EQ.0.)GO TO 160 XO=(C1*A-C*A1)/T IF((ABS(B).LE.50.).AND.(A.NE.0.))GO TO 90 YO=-C1-B1*XO GO TO 100 90 CONTINUE YO=-C-B*XO 100 CONTINUE T=XO IF(A.EQ.0.)T=YO S=T-XCC(JS+3) S1=T-XCC(JS+4) IF(S*S1.GE.0.)GO TO 160 T=XO IF(A1.EQ.0.)T=YO S1=T-CCC(JV+4+JE) S=T-CCC(JV+3+JE) IF((ABS(S).LE.EEX).OR.(ABS(S1).LE.EEX))GO TO 110 IF(S*S1.GT.0.)GO TO 160 110 CONTINUE IF(CC.EQ.0.)GO TO 160 ZX=-(AC*XO+BC*YO+D)/CC IF(NN.NE.1 .AND. VX3 .NE. 0.)GO TO 130 TSZ=Z2-Z1 TSX=X2-X1 VT=XO-X1 IF(TSX.NE.0.)GO TO 120 VT=YO-Y1 TSX=Y2-Y1 120 CONTINUE ZX1=(TSZ/TSX)*VT+Z1 GO TO 140 130 CONTINUE ZX1=-(VX+VX1*YO+VX2*XO)/VX3 140 CONTINUE IF(ABS(ZX-ZX1).LE.EXP)GO TO 150 IF(ZX1.GT.ZX)GO TO 160 150 CONTINUE M=M+1 C C STORES INTERSECTIONS. C XI(M+1)=XO YI(M+1)=YO ZI(M+1)=ZX1 160 JV=JV+5 170 CONTINUE NGX(1)=M 190 RETURN END ================================================ FILE: mis/hdcoef.f ================================================ SUBROUTINE HDCOEF(X,Y,Z,XXX,JXX,NS,CCC,LZ) C C C THIS SUBROUTINE DETERMINES EQUATION OF LINES AND PLANES. C C INTEGER ZCOEF1,ZCOEF,IBCOEF(5) DIMENSION CCC(1),XXX(1),X(1),Y(1),Z(1),COE(8) COMMON/ZZZZZZ/RZ(1) COMMON/HDPTRS/XDUM,XCC,XASOLV,YASOLV,ZASOLV,X1SKT,Y1SKT,Z1SKT, 1 ZCOEF1,ZCOEF COMMON/GO3/L0,L1,L00,L01,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13 DATA EPSI / 1.0E-5 / LE=0 JA=L13+(JXX-1)*LZ JF=L12+(JXX-1)*5 I=0 J=1 10 CONTINUE C C C SEARCH FOR MATCHING COORDINATES. C C I=I+1 T=X(I+1)-X(I) S=Y(I+1)-Y(I) U=Z(I+1)-Z(I) IF (ABS(T) .GT. EPSI) GO TO 20 IF (ABS(S) .GT. EPSI) GO TO 20 IF (ABS(U) .GT. EPSI) GO TO 20 C C C MATCH FOUND.....PROCEED IF LIST IS NOT EXHAUSTED. C C I=I+2 20 CONTINUE IF(I.GT.NS)GO TO 70 C C C DETERMINE EQUATION OF LINE-SEGMENTS. C C T=X(I+1)-X(I) T1=Y(I+1)-Y(I) IF ((ABS(T1) .LT. EPSI) .AND. (ABS(T) .LT. EPSI)) GO TO 10 IF (ABS(T) .GT. EPSI) GO TO 30 29 CONTINUE CCC(J+JA)=0 CCC(J+1+JA)=1 CCC(J+2+JA)=-X(I) GO TO 40 30 CONTINUE CCC(J+JA)=1 E=(Y(I+1)-Y(I))/(X(I+1)-X(I)) IF(ABS(E).GT.100000.)GO TO 29 F=(E*X(I))-Y(I) CCC(J+1+JA)=-E CCC(J+2+JA)=F 40 CONTINUE IF (ABS(CCC(J+JA)) .GT. EPSI) GO TO 50 CCC(J+3+JA)=Y(I) CCC(J+4+JA)=Y(I+1) GO TO 60 50 CONTINUE CCC(J+3+JA)=X(I) CCC(J+4+JA)=X(I+1) 60 CONTINUE J=J+5 RZ(ZCOEF1+LE)=Z(I) RZ(ZCOEF+LE)=Z(I+1) LE=LE+1 IF(LE.GT.3)GO TO 10 IBCOEF(LE)=I GO TO 10 70 CONTINUE C C C DETERMINE EQUATION OF PLANE. C J=(J-1)/5 XXX(JF+5)=J IF(NS.LE.3)GO TO 120 K1=1 K2=2 K3=3 A1=X(K3)-X(K1) B1=Y(K3)-Y(K1) C1=Z(K3)-Z(K1) A2=X(K2)-X(K1) B2=Y(K2)-Y(K1) C2=Z(K2)-Z(K1) COE(1)=B1*C2-B2*C1 COE(2)=C1*A2-C2*A1 COE(3)=A1*B2-A2*B1 COE(4)=COE(1)*X(1)+COE(2)*Y(1)+COE(3)*Z(1) COE(4)=-COE(4) DO 110 J=1,4 110 XXX(JF+J)=COE(J) IF (ABS(COE(3)) .GT. EPSI) GO TO 140 J=1 DO 25 K=1,LE JAPJ=JA+J CCC(JAPJ)=RZ(ZCOEF1-1+K) CCC(JAPJ+1)=RZ(ZCOEF-1+K) J=J+5 25 CONTINUE IF (ABS(COE(1)) .GT. EPSI) I=1 IF (ABS(COE(2)) .GT. EPSI) I=2 P=COE(I) IF (ABS(P) .LT. EPSI) P = EPSI DO 26 K=1,4 JFPK=JF+K 26 XXX(JFPK)=XXX(JFPK)/P GO TO 140 120 CONTINUE XXX(JF+5)=1 DO 130 IX=1,2 130 XXX(JF+IX)=Z(IX) XXX(JF+3)=0 140 CONTINUE RETURN END ================================================ FILE: mis/hdlin.f ================================================ SUBROUTINE HDLIN (X,Y,Z,NP,NC, 1 XCC,ICOUNT,IRCT,X21,Y21,Z21,IIA,XE,YE,XU,YU,XI,YI,ZI, 2 DI,IBEG,IEND,ICT,ICCT, 3 IND,NIND,XXX,CCC,IN,IN1,IN2,TGM,TGMT,TGI,ZM,ZMI,RV, 4 RVI,NNO,NOCT,YMIN,ZMIN,COORD,SNDT,NEH,KEEP) C C C THIS SUBROUTINE IS THE EXECUTIVE. C C DIMENSION X(1),Y(1),Z(1),I2(2),I3(2),RRX(20),NGX(15),H(15), 1 U(6),V(6),W(6),X1(10),Y1(10) DIMENSION XCC(1),ICOUNT(1),IRCT(1),X21(1),Y21(1),Z21(1), 1 IIA(1),XE(1),YE(1),XU(1),YU(1),XI(1),YI(1),ZI(1), 2 DI(1),IBEG(1),IEND(1),ICT(1),ICCT(1) DIMENSION IND(1),NIND(1),XXX(1),CCC(1),IN(1),IN1(1),IN2(1), 1 TGM(1),TGMT(1),TGI(1),ZM(1),ZMI(1),RV(1),RVI(1), 2 NNO(1),NOCT(1),YMIN(1),ZMIN(1),COORD(1),SNDT(1), 3 NEH(1),KEEP(1) COMMON /GO3 / L0,L1,L00,L01,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12, 1 L13 COMMON /HDSC/ SCX,YAW,ROLL,PIT,LZ,VP,JJJ,ICORE COMMON /HEDG/ JAT,ME,JT,VX,VX1,VX2,VX3,NN C IF (VP .LT. 0.) GO TO 20 HXX = .015 AVA = .0 HX1 = .001 LC = 10**6 IXXX= 0 IF (SCX .LT. 0.) IXXX = 1 SCX = ABS(SCX) C C INITIALIZE VARIABLES. C LZ = LZ*5 SW1 = 0 SW = 0 IDAV= 0 C C CALCULATE MAXIMUM ALLOWABLE ELEMENTS. C IABC = ICORE/(25+LZ+4*JJJ) SCT = 1. VP = VP/SCT VPX = ABS(VP) ISAVE= NC NC = IABC L5 = 0 L6 = NC L7 = 2*NC L8 = 3*NC L2 = 4*NC L3 = 5*NC L4 = 6*NC L00 = 7*NC L01 = 8*NC L1 = 9*NC L0 = 10*NC L9 = 11*NC L10 = 12*NC L11 = 13*NC L15 = 14*NC L16 = 15*NC L17 = 16*NC L18 = 19*NC L12 = 20*NC L13 = 25*NC L14 = L13 + LZ*NC DO 10 J = 1,NC RVI(L8+J) = 10**6 TGM(L5+J) = 10**6 RV (L7+J) =-RVI(L8+J) TGI(L6+J) =-TGM(L5+J) NOCT(L9+J)= 0 ZM (L2+J)= RV(L7+J) ZMI(L3+J) = RVI(L8+J) NIND(L16+J) = 0 IND (L15+J) = J KEEP(L18+J) = 0 10 CONTINUE NC = ISAVE IK = 0 IKT = 0 KR = JJJ PI = 3.1416/180. U(6)= SCX V(6)= SCX VP =-VP C C STORE EULERIAN ANGLES. C XX = YAW*PI YY = ROLL*PI ZZ = PIT*PI COSY = COS(YY) SINY = SIN(YY) COSZ = COS(ZZ) SINZ = SIN(ZZ) COSX = COS(XX) SINX = SIN(XX) 20 CONTINUE NT = NP-1 IKK = IK+1 IK = IK+1 C C SET ERROR CODES, IF NECESSARY. C IF (IKK .LE. IABC) GO TO 30 SW = 1 30 CONTINUE IF (NC .EQ. 0) GO TO 40 IDAV = 1 NC =-SW1 IF (SW .EQ. 0.) GO TO 50 ICORE = (25+LZ+4*JJJ)*IKK NC =-(SW+SW1) 40 CONTINUE 50 CONTINUE DO 60 J = 1,NP X21(J) = X(J) Y21(J) = Y(J) Z21(J) = Z(J) 60 CONTINUE C C STORE COORDINATES AND SET PEN POSITION WHENEVER ABS(Z)=9999. C DO 70 J = 1,NT IIA(J) = 0 IF (Z21(J) .NE. 9999.) GO TO 70 IIA(J) = 1 IXU = J - 2 IBB = J - ISIGN(1,IXU) X21(J) = X21(IBB) Y21(J) = Y21(IBB) Z21(J) = Z21(IBB) 70 CONTINUE IIA(NP) = 1 Z21(NP) = Z21(NT) Y21(NP) = Y21(NT) X21(NP) = X21(NT) JXX = IKK I = 1 VL = ABS(VP) C C LOOP THAT DOES THE THREE DIMENSIONAL TRANSFORMATION ON THE C COORDINATES. C JV = L14 + (IKK-1)*4*JJJ JT = 1 DO 90 J = 1,NP XJ = X21(J)/SCT YJ = Y21(J)/SCT ZJ = Z21(J)/SCT U(I) = ZJ*(COSY*SINX) + XJ*(COSY*COSX) - YJ*SINY TW = YJ*COSY*COSZ TZ = XJ*( SINZ*SINX+SINY*COSZ*COSX) TY = ZJ*(-SINZ*COSX+SINY*COSZ*SINX) V(I) = TZ + TW + TY PT = YJ*COSY*SINZ PK = ZJ*( COSZ*COSX+SINY*SINZ*SINX) PS = XJ*(-COSZ*SINX+SINY*SINZ*COSX) ZJ = PK + PS + PT IF (ZJ .LT. VL) GO TO 80 SW1 = 2 VPX = AMAX1(ZJ,VPX) VPX = VPX + (.5/SCT) 80 CONTINUE T = SW + SW1 IF (T .NE. 0.) GO TO 90 C C CALCULATES PERSPECTIVE BASED ON VALUE VP(DV) FROM CALLING PROGRAM. C HH = VL/(VL-ZJ) X21(J) = U(I)*HH Y21(J) = V(I)*HH Z21(J) = ZJ*HH C C CALCULATES MAX/MIN VALUES OF EACH ELEMENT ON THE X,Y,Z DIMENSION C RV (L7+JXX) = AMAX1(RV (L7+JXX),Y21(J)) RVI(L8+JXX) = AMIN1(RVI(L8+JXX),Y21(J)) TGI(L6+JXX) = AMAX1(TGI(L6+JXX),X21(J)) TGM(L5+JXX) = AMIN1(TGM(L5+JXX),X21(J)) ZM (L2+JXX) = AMAX1(ZM (L2+JXX),Z21(J)) ZMI(L3+JXX) = AMIN1(ZMI(L3+JXX),Z21(J)) COORD(JT+JV ) = X21(J) COORD(JT+JV+1) = Y21(J) COORD(JT+JV+2) = Z21(J) COORD(JT+3+JV) = IIA(J) JT = JT + 4 90 CONTINUE IF (IDAV .EQ. 1) VP = VPX*SCT IF (T .NE. 0.) GO TO 400 NOCT(L9+IKK) = NOCT(L9+IKK) + NP NS = NP AVA = AVA + (TGI(L6+JXX)-TGM(L5+JXX))*(RV(L7+JXX)-RVI(L8+JXX)) IF (IXXX .EQ. 1) GO TO 95 C C CALL SUBROUTINE WHICH CALCULATES BOTH THE EQUATIONS OF THE LINE C SEGMENTS AND POLYGONS. C CALL HDCOEF (X21,Y21,Z21,XXX,JXX,NS,CCC,LZ) C C CHECKS TO SEE IF ALL ELEMENTS(SETS) HAVE BEEN PASSED. C 95 CONTINUE IF (IDAV .EQ. 1) GO TO 100 GO TO 400 100 CONTINUE AVA = AVA/IKK DO 1301 J = 1,100 ICCT(J) = 0 ICT (J) = 0 IRCT(J) = J - 1 IBEG(J) = 1 IEND(J) = 0 1301 CONTINUE IAUG = 50 + (IKK/10000)*2 AMAXX =-999999. AMAXY =-999999. AMINX = 999999. AMINY = 999999. DO 1400 J = 1,IKK AMAXX = AMAX1(AMAXX,TGI(L6+J)) AMAXY = AMAX1(AMAXY,RV (L7+J)) AMINX = AMIN1(AMINX,TGM(L5+J)) AMINY = AMIN1(AMINY,RVI(L8+J)) 1400 CONTINUE TMAX = (AMAXX-AMINX)*(AMAXY-AMINY) IBL = TMAX/AVA IBL = IBL/4 C C DETERMINES THE NUMBER OF GRID POINTS IN THE GRID. C C EN = IKK K = (ALOG(EN)/ALOG(2.)) + .01 K = K + IAUG K = MIN0(K,IBL) IF (K .LE. 1) K = 1 T = K R = T**.5 KS = R + .5 S = T/KS MS = S + .5 N = KS*MS MND= N + 1 XMD= MND T = 3./(MND-1) IGY= T*IKK K = KS K1 = MS CRX= (AMAXX-AMINX)/K CRY= (AMAXY-AMINY)/K1 C C C DETERMINES THE RELEVANT ELEMENTS VIA THE GRID BLOCKS. C C DO 3 J = 1,IKK IA = 0 XMAT = TGI(L6+J) XMIT = TGM(L5+J) YMAT = RV(L7+J) YMIT = RVI(L8+J) M = 0 DO 1 I = 1,K1 DO 2 L = 1,K M = M + 1 S = XMAT - ((L-1)*CRX+AMINX) S1 = XMAT - (L*CRX+AMINX) R = XMIT - ((L-1)*CRX+AMINX) R1 = XMIT - (L*CRX+AMINX) A = YMAT - ((I-1)*CRY+AMINY) A1 = YMAT - (I*CRY+AMINY) B = YMIT - ((I-1)*CRY+AMINY) B1 = YMIT - (I*CRY+AMINY) IF (S.LE.0. .OR. R1.GE.0.) GO TO 2 IF (A.LE.0. .OR. B1.GE.0.) GO TO 2 IF (S*S1.GT.0. .OR. R*R1.GT.0.) GO TO 4 IF (A*A1.GT.0. .OR. B*B1.GT.0.) GO TO 4 NIND(L16+J) = M GO TO 3 4 CONTINUE IA = IA + 1 IF (IA .LE. 4) GO TO 8000 NIND(J+L16) = 0 GO TO 8001 8000 CONTINUE NIND(L16+J) = NIND(L16+J) + M*(MND**(IA-1)) 8001 CONTINUE IF (ICCT(M) .LT. 0) GO TO 2 ICCT(M) = ICCT(M) + 1 JK = (M-1)*IGY+ICCT(M) + L17 NEH(JK) = J IF (ICCT(M) .GE. IGY) ICCT(M) = -1 2 CONTINUE 1 CONTINUE 3 CONTINUE CALL HDVS1 (NIND(L16+1),IK,IND(L15+1)) SW = 0 L = 1 DO 5 I = 1,IKK 11 CONTINUE IF (NIND(L16+I) .NE. IRCT(L)) GO TO 6 SW = SW + 1 IF (SW .EQ. 1.) LT = I ICT(L) = ICT(L) + 1 GO TO 5 6 CONTINUE IF (SW .NE. 0.) GO TO 8 L = L + 1 GO TO 11 8 CONTINUE IBEG(L) = LT IEND(L) = LT + ICT(L) - 1 SW = 0 IF (NIND(L16+I) .GE. MND) GO TO 2110 L = L + 1 GO TO 11 5 CONTINUE IBEG(L) = LT IEND(L) = LT + ICT(L) - 1 2110 CONTINUE DO 2111 J = 1,IKK SNDT(L4+J) = IND(L15+J) 2111 CONTINUE CALL HDVSR (SNDT(L4+1),IK,NIND(L16+1)) EN = IKK IGX = (ALOG(EN)/ALOG(2.)) + 1. DO 105 J = 1,IGX RRX(J) = 2**(IGX-J) 105 CONTINUE U(6) = SCX V(6) = SCX W(6) = SCX IKT = NC T = AMINY T1 = AMINX V(5) = T U(5) = T1 IJ = 0 X1(3)= U(5) Y1(3)= V(5) X1(4)= U(6) Y1(4)= V(6) X1(4)= X1(4)/SCT Y1(4)= Y1(4)/SCT DO 115 J = 1,IKK IN(L11 +J) = J IN1(L0 +J) = J IN2(L00+J) = J TGMT(L10+J) = TGM(L5+J) YMIN(L1 +J) = RVI(L8+J) ZMIN(L01+J) = ZM(L2+J) 115 CONTINUE C C CALL SUBROUTINE WHICH WILL SORT ON X,Y AND Z. C CALL HDVSR (TGMT(L10+1),IK,IN(L11+1)) CALL HDVSR (YMIN(L1+1),IK,IN1(L0+1)) CALL HDVSR (ZMIN(L01+1),IK,IN2(L00+1)) H(8) = 0 DO 395 J = 1,IKK KS = IKK JJ = L14 + (J-1)*4*JJJ JH = 1 II = 0 IXR= NOCT(L9+J) NIT= 0 JT = L12 + 5*(J-1) JO = L13 + LZ*(J-1) IF (IXXX .EQ. 1) GO TO 200 NS = XXX(5+JT) NG = NS*5 A3 = XXX(1+JT) B3 = XXX(2+JT) C3 = XXX(3+JT) D3 = XXX(4+JT) I = 0 DO 121 IX = 1,NG,5 IF (IXR .LE. 3) GO TO 121 I = I + 1 XE(I) = CCC(IX+3+JO) IF (CCC(IX+JO) .NE. 0.) GO TO 120 XE(I) =-CCC(IX+2+JO) YE(I) = CCC(IX+3+JO) GO TO 121 120 CONTINUE YE(I) =-CCC(IX+2+JO) - CCC(IX+1+JO)*XE(I) 121 CONTINUE C C THIS LOOP DETERMINES THE RELEVANT ELEMENTS AS THEY RELATE TO A C PARTICULAR ELEMENT. THAT IS, EACH ELEMENT HAS ASSOCIATED WITH IT C THOSE OTHER ELEMENTS WHICH COULD POSSIBLY HIDE SOME PORTION C OF THE GIVEN ELEMENT. C K = 2**IGX K1 = K K2 = K C C DO LOGARITHMIC SEARCH TO DETERMINE RELEVANT ELEMENTS. C S = -1 DO 131 I = 1,IGX K = K + SIGN(RRX(I),S) IF (K .GT. IKK) K = IKK S = TGI(L6+J) - TGMT(L10+K ) S1 = TGI(L6+J) - TGMT(L10+K-1) IF (S*S1 .LE. 0.) GO TO 132 131 CONTINUE K = IKK 132 CONTINUE S = -1 DO 133 I = 1,IGX K1 = K1 + SIGN(RRX(I),S) IF (K1 .GT. IKK) K1 = IKK S = RV(L7+J) - YMIN(L1+K1 ) S1 = RV(L7+J) - YMIN(L1+K1-1) IF (S*S1 .LE. 0.) GO TO 134 133 CONTINUE K1 = IKK 134 CONTINUE S = -1 DO 135 I = 1,IGX K2 = K2 + SIGN(RRX(I),S) IF (K2 .LE. 1) K2 = 2 IF (K2 .GT. IKK) K2 = IKK S = ZMI(L3+J) - ZMIN(L01+K2 ) S1 = ZMI(L3+J) - ZMIN(L01+K2-1) IF (S*S1 .LE. 0.) GO TO 136 135 CONTINUE K2 = 1 136 CONTINUE I1 = IKK - K2 + 1 C C RETRIEVE THE RELEVANT ELEMENTS DETERMINED FROM SCHEME 1. C IF (NIND(L16+J) .EQ. 0) GO TO 1270 IR = NIND(L16+J) VX = NIND(L16+J) T = ALOG(VX) IF (NIND(L16+J) .LE. LC) GO TO 1800 E = LC LG = NIND(L16+J)/LC MU = MOD(IR,LC) UX = LG + (MU/E) T = ALOG(UX) + ALOG(E) 1800 CONTINUE IXT = 0 IEXP= (T/ALOG(XMD)) + 1 DO 8004 L = 1,IEXP IV = IR/(MND**(IEXP-L)) IR = IR - IV*(MND**(IEXP-L)) IV = IV + 1 IF (ICCT(IV-1) .EQ. 0) GO TO 4000 IF (ICCT(IV-1) .GT. 0) GO TO 4001 GO TO 1270 4001 CONTINUE KE = ICCT(IV-1) IL = 0 JTT= (IV-2)*IGY + L17 DO 4003 I = 1,KE KV = NEH(I+JTT) IF (KEEP(L18+KV) .EQ. J) GO TO 4003 IL = IL + 1 NNO(L4+IXT+IL) = KV KEEP(L18+KV) = J 4003 CONTINUE IXT = IXT + IL 4000 CONTINUE IX = IBEG(IV) IX1 = IEND(IV) DO 1170 I = IX,IX1 1170 NNO(L4+IXT+I-IX+1) = IND(L15+I) IXT = IXT + IX1 - IX + 1 8004 CONTINUE KS = IXT 1270 CONTINUE IM = MIN0(I1,K,K1) C C PICK MINIMUM COUNT FROM BOTH SCHEMES. C IF (KS .LT. IM) GO TO 129 IF (IM .EQ. I1) GO TO 1000 IF (IM .EQ. K) GO TO 1001 IF (IM .EQ. K1) GO TO 1002 1000 CONTINUE KS = I1 DO 1003 I = 1,KS 1003 NNO(L4+I) = IN2(L00+IKK-I+1) GO TO 129 1001 CONTINUE KS = K DO 1004 I = 1,KS 1004 NNO(L4+I) = IN(L11+I) GO TO 129 1002 CONTINUE KS = K1 DO 1006 I = 1,KS 1006 NNO(L4+I) = IN1(L0+I) 129 CONTINUE DO 170 I = 1,KS IT = 0 JB = NNO(L4+I) IF (J .EQ. JB) GO TO 170 JK = L13 + LZ*(JB-1) JS = L12 + 5*(JB-1) IF (TGM(L5+J).GE.TGI(L6+JB) .OR. TGI(L6+J).LE.TGM(L5+JB)) 1 GO TO 170 IF (RV(L7+J).LE.RVI(L8+JB) .OR. RVI(L8+J).GE.RV(L7+JB)) GO TO 170 IF (ZMI(L3+J) .GE. ZM(L2+JB)) GO TO 170 NV = XXX(5+JS) IF (XXX(JS+3) .EQ. 0.) GO TO 170 IF (XXX(3+JT) .EQ. 0.) GO TO 165 NB = 5*NV C C C TEST TO SEE IF ALL VERTICES LIE EITHER BEHIND OR IN FRONT OF C THE GIVEN POLYGON. C C M = 0 DO 145 IX = 1,NB,5 M = M + 1 A = CCC(IX+3+JK) IF (CCC(IX+JK) .NE. 0.) GO TO 130 A =-CCC(IX+2+JK) B = CCC(IX+3+JK) GO TO 140 130 CONTINUE B =-CCC(IX+2+JK) - CCC(IX+1+JK)*A 140 CONTINUE XU(M) = A YU(M) = B VX = XXX(4+JS) VX1 = XXX(2+JS)*B VX2 = XXX(1+JS)*A ZS =-(VX+VX1+VX2)/XXX(3+JS) VX = XXX(4+JT) VX1 = XXX(2+JT)*B VX2 = XXX(1+JT)*A ZS1 =-(VX+VX1+VX2)/XXX(3+JT) IF (ABS(ZS-ZS1) .LT. HXX) GO TO 145 IT = IT + 1 ICOUNT(IT) = 0 IF (ZS .GT. ZS1) ICOUNT(IT) = 1 145 CONTINUE C C C TESTS FOR SEMI-RELEVANT PLANES. THAT IS,NEGATIVE INDEXES C INDICATE ELEMENT IS TO BE USED FOR VISIBILITY TEST, BUT NOT FOR C INTERSECTION LINE DETERMINATION. C C IF (IT .EQ. 0) GO TO 170 L = 0 DO 150 M = 1,IT 150 L = L + ICOUNT(M) IF (L .EQ. 0) GO TO 170 IF (L .EQ. IT) JB = -JB IF (II .NE. 0) GO TO 165 C C C INTERROGATE THE RELATIONSHIP OF THE CANDIDATE POLYGON TO THE C GIVEN POLYGON BY DETERMINING IF THE PROJECTION OF ONE POLYGON C CAN BE SEPARATED BY AN EDGE FROM THE OTHER'S PROJECTION C C C3 = XXX(3+JT) C4 = XXX(3+JS) SD = 0 I3(1) = JK I3(2) = JO I2(1) = NV*5 I2(2) = NS*5 DO 164 KU = 1,2 IS = I3(KU) IB = I2(KU) DO 163 L = 1,IB,5 151 CONTINUE IF (SD .EQ. 1.) GO TO 152 A = XXX(2+JT)*C4 - XXX(2+JS)*C3 B = XXX(1+JT)*C4 - XXX(1+JS)*C3 C = XXX(4+JT)*C4 - XXX(4+JS)*C3 GO TO 153 152 CONTINUE A = CCC(L+IS ) B = CCC(L+IS+1) C = CCC(L+IS+2) 153 CONTINUE IF (A.EQ.0. .AND. B.EQ.0.) GO TO 162 IF (A .NE. 0.) GO TO 154 A = 0 C = C/B B = 1 GO TO 155 154 CONTINUE B = B/A C = C/A A = 1 155 CONTINUE M = 0 R1= 0 DO 158 IX = 1,NV M = M + 1 YG= YU(M) IF (A .NE. 0.) GO TO 156 DY = -C/B YG = XU(M) GO TO 157 156 CONTINUE DY = -C - B*XU(M) 157 IF (ABS(DY-YG) .LT. HXX) GO TO 158 R = YG - DY IF (R*R1 .LT. 0.) GO TO 162 R1 = R 158 CONTINUE M = 0 R2 = 0 DO 161 IX = 1,NS M = M + 1 YG = YE(M) IF (A .NE. 0.) GO TO 159 DY = -C/B YG = XE(M) GO TO 160 159 CONTINUE DY = -C - B*XE(M) 160 IF (ABS(DY-YG) .LT. HXX) GO TO 161 R = YG - DY IF (R*R2 .LT. 0.) GO TO 162 R2 = R 161 CONTINUE IF (R1*R2 .LT. 0.) GO TO 170 162 CONTINUE IF (SD .NE. 0.) GO TO 163 SD = 1 GO TO 151 163 CONTINUE 164 CONTINUE 165 CONTINUE II = II + 1 NNO(L4+II) = JB 170 CONTINUE JS = 1 JAT =-4 JT = L12 + (J-1)*5 NN = XXX(JT+5) VX = XXX(JT+4) VX1 = XXX(2+JT) VX2 = XXX(1+JT) VX3 = XXX(3+JT) IF (IXR .LE. 2) GO TO 200 IF (II .EQ. 0) GO TO 190 C C CALL SUBROUTINE WHICH SOLVES FOR THE LINES OF INTERSECTION,IF ANY, C OF THE JTH ELEMENT WITH OTHER ELEMENTS. C CALL HDSOLV(IXR,J,XXX,CCC,II,NNO,NIT,X21,Y21,Z21,IIA,NC,ZM,ZMI,LZ) 190 CONTINUE 200 CONTINUE DO 210 JM = 1,IXR X21(JM) = COORD(JH +JJ) Y21(JM) = COORD(JH+1+JJ) Z21(JM) = COORD(JH+2+JJ) IIA(JM) = COORD(JH+3+JJ) JH = JH + 4 210 CONTINUE IXR = IXR + 3*NIT IF (II .EQ. 0) GO TO 220 IF (IXXX .NE. 1) GO TO 240 220 CONTINUE DO 230 JM = 1,IXR X1(2) = X21(JM) Y1(2) = Y21(JM) IM = IIA(JM) CALL HDPLT (X1,Y1,IJ,IM) 230 CONTINUE GO TO 390 240 CONTINUE JX = 1 250 CONTINUE C C PLOTS IF IIA(JX+1) IS EQUAL TO 1. C IF (IIA(JX).EQ.0 .AND. IIA(JX+1).EQ.0) GO TO 260 IM = IIA(JX+1) X1(2) = X21(JX+1) Y1(2) = Y21(JX+1) CALL HDPLT (X1,Y1,IJ,IM) JX = JX + 2 IF (JX .GE. IXR) GO TO 390 GO TO 250 260 CONTINUE JAT = JAT + 5 ME = 0 C C CALL SUBROUTINE WHICH DETERMINES THE POINTS OF INTERSECTIONS C OF THE LINES OF THE JTH SET WITH THE RELEVANT LINES AND PLANES C OF OTHER ELEMENTS. C CALL HDCHK (XXX,CCC,NNO,II,XI,YI,NGX,ZM,ZMI,RV,RVI,TGM,TGI,ZI,LZ, 1 XCC) IF (JS .NE. 1) STOP 'MY GOSH. JS IS NOT 1 /HDLIN' NG = NGX(JS) + 2 XI(1) = X21(JX) YI(1) = Y21(JX) ZI(1) = Z21(JX) XI(NG) = X21(JX+1) YI(NG) = Y21(JX+1) ZI(NG) = Z21(JX+1) IF (NG .LE. 3) GO TO 340 C C THE FOLLOWING CODE SORTS THE INTERSECTION POINTS IN ASCENDING C ORDER OF OCCURENCE AND THEN SHRINKS THE LIST IF REDUNDANCY EXIST. C NI = NG - 2 NII = NI DO 270 M = 1,NG DI(M) = (XI(M)-XI(1))**2 PPPPP = (YI(M)-YI(1))**2 DI(M) = DI(M) + PPPPP 270 CONTINUE DO 290 M = 2,NI DO 280 MX= 2,NII IF (DI(MX) .LE. DI(MX+1)) GO TO 280 HOLD = DI(MX) HOLD1 = XI(MX) HOLD2 = YI(MX) HOLD3 = ZI(MX) XI(MX) = XI(MX+1) YI(MX) = YI(MX+1) ZI(MX) = ZI(MX+1) DI(MX) = DI(MX+1) DI(MX+1) = HOLD XI(MX+1) = HOLD1 YI(MX+1) = HOLD2 ZI(MX+1) = HOLD3 280 CONTINUE NII = NII - 1 290 CONTINUE LX = 1 NPX = NG 300 NPX = NPX - 1 I = LX DO 320 M = I,NPX RX = 0 T = XI(M) - XI(M+1) T1 = YI(M) - YI(M+1) T = (T**2+T1**2)**.5 IF (T .GT. HX1) GO TO 320 IX = M IX1 = NPX DO 310 MX = IX,IX1 XI(MX) = XI(MX+1) YI(MX) = YI(MX+1) ZI(MX) = ZI(MX+1) 310 CONTINUE RX = 1 LX = M IF (LX .EQ. NPX) GO TO 330 GO TO 300 320 CONTINUE 330 CONTINUE IF (RX .EQ. 1.) NPX = NPX - 1 NG = NPX + 1 340 CONTINUE C C THIS CODE DETERMINES THE HDSTUS(VISIBILITY) OF EVERY OTHER POINT C AS SUGGESTED BY THE THEOREM IN THE TECHNICAL REPORT. C DO 350 L = 1,NG,2 C OJ = XI(L) TMJ = YI(L) ZJ = ZI(L) CALL HDSTUS (OJ,TMJ,XXX,TGM,RV,RVI,TGI,ZM,NNO,II,H,IM,JXT,ZJ,NC, 1 ZMI,CCC,LZ) DI(L) = IM 350 CONTINUE DO 370 L = 1,NG,2 IF (L .EQ. NG ) GO TO 370 IF (L .EQ. NG-1) GO TO 360 C = DI(L) + DI(L+2) IF (C .NE. 2.) GO TO 360 DI(L+1) = DI(L) GO TO 370 360 OJ = XI(L+1) TMJ = YI(L+1) ZJ = ZI(L+1) CALL HDSTUS (OJ,TMJ,XXX,TGM,RV,RVI,TGI,ZM,NNO,II,H,IM,JXT,ZJ,NC, 1 ZMI,CCC,LZ) DI(L+1) = IM 370 CONTINUE C C THE FOLLOWING CODE ACTUALLY PLOTS THE POINTS ON A GIVEN LINE C GOVERNED BY THE VALUE(IM) RETURNED BY HDSTUS SUBROUTINE. C 1 MEANS INVISIBLE,...0 MEANS VISIBLE. C DO 380 L = 1,NG X1(2) = XI(L) Y1(2) = YI(L) IM = DI(L) CALL HDPLT (X1,Y1,IJ,IM) IF (L .EQ. NG) GO TO 380 C = DI(L) + DI(L+1) IF (C .GT. 0.) GO TO 380 H(8) = 1 OJ = (XI(L)+XI(L+1))/2 TMJ = (YI(L)+YI(L+1))/2 ZJ = (ZI(L)+ZI(L+1))/2 CALL HDSTUS (OJ,TMJ,XXX,TGM,RV,RVI,TGI,ZM,NNO,II,H,IM,JXT,ZJ,NC, 1 ZMI,CCC,LZ) H(8) = 0 X1(2)= OJ Y1(2)= TMJ CALL HDPLT (X1,Y1,IJ,IM) 380 CONTINUE JX = JX + 1 GO TO 250 390 CONTINUE C C DECREMENTS THE COUNT OF THE NUMBER OF LINES IN THE JTH SET C SINCE THE LINES OF INTERSECTIONS WERE ADDED TO THIS ELEMENT C BY THE SUBROUTINE SOLVE. C XXX(5+JT) = XXX(5+JT) - NIT 395 CONTINUE 400 CONTINUE RETURN END ================================================ FILE: mis/hdplot.f ================================================ SUBROUTINE HDPLOT (GPLST,NMAX,MAXSF,IOPCOR,IB) C IMPLICIT INTEGER (A-Z) LOGICAL DEBUG INTEGER GPLST(1),NAME(2),ISYS(100),PTRS(29) REAL DV,PSI,PHI,THETA,SCF,P,X(20),Y(20),Z(20) COMMON /BLANK / NGP,NSIL,NSETS,SKP1(7), 1 SKP2(2),ELSET,SKP22(7), 2 MERR,IDUM(3),NSCR1,NSCR2,NSCR3 COMMON /SYSTEM/ SKPS,IOUT COMMON /PLTSCR/ NNN,G(3) COMMON /HDREC / NOFSUR,NS,ELID,LID,NPERS,P(3,13) COMMON /ZZZZZZ/ RZ(1) COMMON /HDPTRS/ XDUM,XCC,XASOLV,YASOLV,ZASOLV,X1SKT,Y1SKT,Z1SKT, 1 ZCOEF1,ZCOEF,ICOUNT,IRCT,X21,Y21,Z21,IIA,XE,YE, 2 XU,YU,XI,YI,ZI,DI,IBEG,IEND,ICT,ICCT,WORK COMMON /HDSC / SCF,PSI,PHI,THETA,MNE,DV,MNP,ICORE COMMON /PLOTHD/ USED EQUIVALENCE (ISYS(1),SKPS), (PTRS(1),XDUM) DATA NAME / 4HHDPL,4HOT / DATA DEBUG / .FALSE. / C C CALL SSWTCH (47,J) C IF (J .EQ. 1) DEBUG = .TRUE. C C SET MNE EQUAL TO THE MAXIMUM NUMBER OF EDGES IN ANY ONE POLYGON. C MNE = NMAX C C MNP=MNE+2+2*NHOLES WHERE NHOLES IS THE NUMBER OF HOLES,IF ANY C NHOLES = 0 MNP = MNE + 2 + 2*NHOLES C C SET DISTANCE FROM VIEWER, AND SET SCALING FACTOR = 1 UNITS/INCH C DV = 99999. SCF = 1.00 C C SET MAX. LINES OF INTERSECTION ALLOWED IN HDSOLV (DIMEN. OF XCC) C LINTC = 800 IF (ISYS(85) .NE. 0) LINTC = ISYS(85) C C DEFINE EULERIAN ANGLES IN DEGREES. C PSI = 0. PHI = 0. THETA = 0. C C INITIALIZE ARRAY POINTERS IN OPEN CORE SPACE (USED, SET BY PLOT, C IS NO. OF WORDS ALREADY IN USE) C XDUM = 1 XCC = XDUM + USED XASOLV= XCC + LINTC YASOLV= XASOLV+ 50 ZASOLV= YASOLV+ 50 X1SKT = ZASOLV+ 50 Y1SKT = X1SKT + 160 Z1SKT = Y1SKT + 160 ZCOEF1= Z1SKT + 160 ZCOEF = ZCOEF1+ 150 ICOUNT= ZCOEF + 150 IRCT = ICOUNT+ 150 X21 = IRCT + 100 Y21 = X21 + 200 Z21 = Y21 + 200 IIA = Z21 + 200 XE = IIA + 200 YE = XE + 150 XU = YE + 150 YU = XU + 150 IBEG = YU + 150 IEND = IBEG + 100 ICT = IEND + 100 ICCT = ICT + 100 XI = ICCT + 100 ICORE = (25+5*MNE+4*MNP)*(MAXSF+1) J = (IOPCOR-ICORE-XI)/5 YI = XI + J ZI = YI + J DI = ZI + J WORK = DI + J IF (DEBUG .OR. J.LT.300) WRITE (IOUT,55) NMAX,MAXSF,ICORE,USED, 1 LINTC,IOPCOR,IB,NSETS,J,PTRS IF (J .GE. 300) GO TO 5 J = 300*5 + XI + ICORE - IOPCOR CALL MESAGE (-8,J,NAME) C 5 CALL GOPEN (NSCR2,GPLST(IB),0) CALL LINE (0.,0.,0.,0.,1,-1) 10 CONTINUE CALL READ (*25,*25,NSCR2,NOFSUR,44,0,M) NPS = NPERS DO 20 I = 1,NPS X(I) = P(1,I) Y(I) = P(2,I) Z(I) = P(3,I) 20 CONTINUE IF (DEBUG) WRITE (IOUT,65) 1 NOFSUR,NS,ELID,LID,NPS,(X(N),Y(N),Z(N),N=1,NPS) NC = 0 CALL HDSKET (X,Y,Z,NPS,NC) GO TO 10 25 CALL CLOSE (NSCR2,1) NC = 1 CALL HDSKET (X,Y,Z,NPS,NC) IF (NC .EQ. 0) GO TO 40 WRITE (IOUT,30) NC,ICORE,DV 30 FORMAT (22H CODE FOR HIDDEN ERROR,I3,6H ICORE,I9,3H DV,F15.5) 40 CALL LINE (0.,0.,0.,0.,1,+1) IF (DEBUG) WRITE (IOUT,60) RETURN C 55 FORMAT (1X,10HIN HDPLOT ,9I8, /,(5X,15I8)) 60 FORMAT (1X,10HOUT HDPLOT) 65 FORMAT (1X,5I10/(1X,3G20.4)) END ================================================ FILE: mis/hdplt.f ================================================ SUBROUTINE HDPLT (X1,Y1,IJ,IM) C C PLOTS POINTS GOVERNED BY THE VALUE OF IM. C C NOTE THAT CALL PLOT(X,Y,2) MEANS MOVE PEN FROM THE CURRENT C POSITION TO THE POINT,(X,Y),WITH THE PEN DOWN. C C CALL PLOT(X,Y,3) MEANS MOVE THE PEN FROM THE CURRENT POSITION C TO THE POINT,(X,Y), WITH THE PEN UP. C LOGICAL DEBUG INTEGER PPEN DIMENSION X1(4),Y1(4) COMMON /DRWDAT/ DUM(3),PPEN COMMON /SYSTEM/ IBUF,NOUT DATA DEBUG / .FALSE./ C IF (DEBUG) WRITE (NOUT,1000)IJ,IM,(X1(I),I=1,4),(Y1(J),J=1,4) 1000 FORMAT (7H HDPLT ,2I3,8F12.5) IF (IM .EQ. 1) GO TO 20 XVALUE = (X1(2))/X1(4) YVALUE = (Y1(2))/Y1(4) IF (IJ .EQ. 0) GO TO 10 CALL LINE (XOLD,YOLD,XVALUE,YVALUE,PPEN,0) XOLD = XVALUE YOLD = YVALUE GO TO 30 10 CONTINUE XOLD = XVALUE YOLD = YVALUE IJ = 1 GO TO 30 20 CONTINUE IJ = 0 30 CONTINUE RETURN END ================================================ FILE: mis/hdsket.f ================================================ SUBROUTINE HDSKET (X,Y,Z,NP,NC) C C THIS SUBROUTINE SETS UP PEN MOTION INDICATORS. C INTEGER XCC,X1SKT,Y1SKT,Z1SKT,X21,Y21,Z21,XE,YE,XU,YU, 1 XI,YI,ZI,DI,W,IZ(1) DIMENSION X(1),Y(1),Z(1) COMMON /HDPTRS/ XDUM,XCC,XASOLV,YASOLV,ZASOLV,X1SKT,Y1SKT,Z1SKT, 1 ZCOEF1,ZCOEF,ICOUNT,IRCT,X21,Y21,Z21,IIA,XE,YE, 2 XU,YU,XI,YI,ZI,DI,IBEG,IEND,ICT,ICCT,W COMMON /ZZZZZZ/ RZ(1) COMMON /HDSC / SCX,YAW,ROL,PIT,LZ,VP,JJJ,ICORE EQUIVALENCE (IZ(1),RZ(1)) C L = NP LI = NP IF (L .LE. 2) GO TO 50 LX = 1 NPX = NP 1 NPX = NPX-1 I = LX DO 8 M = I,NPX RX = 0 A = X(M+1) - X(M) B = Y(M+1) - Y(M) C = Z(M+1) - Z(M) IF (A .NE. 0.) GO TO 8 IF (B .NE. 0.) GO TO 8 IF (C .NE. 0.) GO TO 8 IX = M IX1SKT = NPX DO 4 MX = IX,IX1SKT X(MX) = X(MX+1) Y(MX) = Y(MX+1) Z(MX) = Z(MX+1) 4 CONTINUE RX = 1 LX = M IF (LX .EQ. NPX) GO TO 10 GO TO 1 8 CONTINUE 10 CONTINUE IF (RX .EQ. 1.) NPX = NPX - 1 NP = NPX + 1 LI = NP IF (NP .LE. 2) GO TO 50 IX = 0 M1 = 0 M = 1 IS = NP - 1 20 CONTINUE M = M + IX M1 = M1 + IX + 1 IF (M-1 .EQ. LI) GO TO 70 C C SEARCH FOR MATCHING COORDINATES. C DO 40 J = M,IS T = X(J+1) - X(M) U = Z(J+1) - Z(M) V = Y(J+1) - Y(M) IF (T .NE. 0.) GO TO 40 IF (V .NE. 0.) GO TO 40 IF (U .NE. 0.) GO TO 40 NP = NP + 1 C C MATCH FOUND.....STORE COORDINATES AND SET SWITCH TO LIFT PEN C AND/OR END SET. C IX = J + 2 - M IX1SKT = J - IS + 1 DO 30 IK = 1,IX RZ(X1SKT+M1-2+IK) = X(M-1+IK) RZ(Y1SKT+M1-2+IK) = Y(M-1+IK) RZ(Z1SKT+M1-2+IK) = Z(M-1+IK) 30 CONTINUE RZ(Z1SKT-1+M1+IX) = -ISIGN(1,IX1SKT)*9999. GO TO 20 40 CONTINUE 50 CONTINUE DO 60 J = 1,LI RZ(X1SKT-1+J) = X(J) RZ(Y1SKT-1+J) = Y(J) RZ(Z1SKT-1+J) = Z(J) 60 CONTINUE NP = NP + 1 RZ(Z1SKT-1+NP) = -9999. 70 CONTINUE CALL HDLIN (RZ(X1SKT),RZ(Y1SKT),RZ(Z1SKT),NP,NC, 1 RZ(XCC),IZ(ICOUNT),IZ(IRCT),RZ(X21),RZ(Y21),RZ(Z21), 2 IZ(IIA),RZ(XE),RZ(YE),RZ(XU),RZ(YU),RZ(XI),RZ(YI),RZ(ZI), 3 RZ(DI),IZ(IBEG),IZ(IEND),IZ(ICT),IZ(ICCT), 4 IZ(W),IZ(W),RZ(W),RZ(W),IZ(W),IZ(W),IZ(W),RZ(W),RZ(W),RZ(W), 5 RZ(W),RZ(W),RZ(W),RZ(W),IZ(W),IZ(W),RZ(W),RZ(W),RZ(W),RZ(W), 6 IZ(W),IZ(W)) NP = L C C RESET VALUE FOR MAXIMUM NUMBER OF EDGES IF ARGUMENT IS COMPLETED. C IF (VP .GT. 0.) LZ = LZ/5 RETURN END ================================================ FILE: mis/hdsolv.f ================================================ SUBROUTINE HDSOLV (IXR,J,XXX,CCC,II,NNO,NIT,X21,Y21,Z21,IIA,NC, 1 ZM,ZMI,LZ) C C THIS SUBROUTINE SOLVES FOR THE LINES OF INTERSECTION RESULTING C FROM THE INTERSECTIONS OF THE JTH ELEMENT WITH THE OTHER C RELEVANT ELEMENTS. C C C INTEGER XCC,XASOLV,YASOLV,ZASOLV DIMENSION XXX(1),CCC(1),NNO(1),ZM(1),ZMI(1), 1 X21(1),Y21(1),Z21(1),IIA(1),IV(2) COMMON /HDPTRS/ XDUM,XCC,XASOLV,YASOLV,ZASOLV COMMON /ZZZZZZ/ RZ(1) COMMON /GO3 / L0,L1,L00,L01,L2,L3,L4,L5,L6,L7,L8,L9,L10, 1 L11,L12,L13 C ERS = .015 ER = ERS EXX = .015 EXP = .015 JT = L12 + (J-1)*5 JB = L13 + (J-1)*LZ IF (II .EQ. 0) GO TO 80 A3 = XXX(1+JT) B3 = XXX(2+JT) C3 = XXX(3+JT) D3 = XXX(4+JT) IF (XXX(JT+3) .EQ. 0.) GO TO 80 DO 70 L = 1,II K = NNO(L4+L) C C CHECKS TO SEE IF THIS RELEVANT ELEMENT IS TO BE CONSIDERED FOR C INTERSECTION C IF (K .GT. 0) GO TO 9 GO TO 70 9 CONTINUE IF (K .LT. J) GO TO 70 JX = L12 + (K-1)*5 IF (ZM(L2+J) .LT. ZMI(L3+K)) GO TO 70 IF (ABS(XXX(3+JX)) .LT. ERS) GO TO 70 MT = 0 A4 = XXX(1+JX) B4 = XXX(2+JX) C4 = XXX(3+JX) D4 = XXX(4+JX) C C DETERMINES THE EQUATION OF LINE OF INTERSECTION. C B = A3*C4 - A4*C3 A = B3*C4 - B4*C3 C = D3*C4 - D4*C3 IF (A.EQ.0. .AND. B.EQ.0.) GO TO 70 IF (A .NE. 0.) GO TO 10 A = 0 C = C/B B = 1 GO TO 20 10 CONTINUE B = B/A C = C/A A = 1 20 CONTINUE IV(1) = J IV(2) = K DO 60 M = 1,2 JV = 1 I = IV(M) JJ = L13 + (I-1)*LZ IG = L12 + (I-1)*5 + 5 NK = XXX(IG) DO 50 IX = 1,NK A1 = CCC(JV+ JJ) B1 = CCC(JV+1+JJ) C1 = CCC(JV+2+JJ) C C CHECK TO BE SURE LINE OF INTERSECTION IS NOT BOUNDARY LINE C OF THE JTH SET. C S = A1 + B1 + C1 S1 = A + B + C E = ABS(S-S1) S = A1*50 + B1*50 + C1 S1 = A *50 + B *50 + C F = ABS(S-S1) IF (F.LT.EXP .AND. E.LT.EXP) GO TO 70 C C C DETERMINES THE POINTS OF INTERSECTIONS OF THE LINE OF INTERSECTION C WITH OTHER LINES OF RELEVANT ELEMENTS. C C T = A1*B - B1*A IF (ABS(T) .LT. ER) GO TO 50 XO = (C1*A-C*A1)/T IF (A .NE. 0.) GO TO 30 YO = -C1 - B1*XO GO TO 40 30 CONTINUE YO = -C - B*XO 40 CONTINUE T = XO IF (A1 .EQ. 0.) T = YO S = T - CCC(JV+4+JJ) S1 = T - CCC(JV+3+JJ) IF (S*S1 .GT. 0.) GO TO 50 MT = MT + 1 C C STORE THE PTS OF INTERSECTIONS. C RZ(XASOLV-1+MT) = XO RZ(YASOLV-1+MT) = YO RZ(ZASOLV-1+MT) =-(D3+A3*XO+B3*YO)/C3 ZT = -(D4+A4*XO+B4*YO)/C4 IF (ABS(ZT-RZ(ZASOLV-1+MT)) .GT. EXX) GO TO 70 50 JV = JV + 5 60 CONTINUE CALL HDSTAT (MT,NIT,IXR,X21,Y21,Z21,IIA,IV,A,B,C,J, 1 RZ(XASOLV),RZ(YASOLV),RZ(ZASOLV),CCC,XXX,LZ) 70 CONTINUE 80 CONTINUE NR = 5*XXX(5+JT) DO 90 IS = 1,NR RZ(XCC-1+IS) = CCC(IS+JB) 90 CONTINUE XXX(5+JT) = XXX(5+JT) + NIT RETURN END ================================================ FILE: mis/hdstat.f ================================================ SUBROUTINE HDSTAT(MT,NIT,IXR,X21,Y21,Z21,IIA,IV,A,B,C, 1 IK,XA,YA,ZA,CCC,XXX,LZ) C C C THIS SUBROUTINE TAKES THE PTS OF INTERSECTION DETERMINED BY C SUBROUTINE SOLVE AND PICKS THE COORDINATES WITH THE MAX AND C MIN X COORDINATES PROVIDED THEY LIE ON THE INTERIOR/BOUNDARY C OF BOTH ELEMENTS. C C INTEGER XCC DIMENSION XXX(1),CCC(1),X21(1),Y21(1),Z21(1), 1 IIA(1),IV(1),XA(1),YA(1),ZA(1) COMMON/HDPTRS/XDUM,XCC COMMON/ZZZZZZ/RZ(1) COMMON/GO3/L0,L1,L00,L01,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13 C EXX=.015 NX=0 IF(MT.EQ.0)GO TO 160 DO 50 JX=1,MT EI=0 10 EI=EI+.1 IF(EI .GE. 1.) GO TO 160 D=EI*XA(JX)-YA(JX) DO 40 JO=1,2 M=IV(JO) JC=L13+(M-1)*LZ JXC=L12+(M-1)*5 NK=XXX(5+JXC) I=0 IB=NK*5 C C C DETERMINE IF THE PROJECTION OF THE POINT OF INTERSECTION C BELONGS TO THE INTERIOR OF BOTH PLANES. C C DO 30 J=1,IB,5 EXX=.015 NSUB=J+1+JC IF(ABS(CCC(NSUB)).GE.100.)EXX=ALOG10(ABS(CCC(NSUB))) VE=XA(JX) IF(CCC(J+JC).EQ.0.)VE=YA(JX) S=VE-CCC(J+3+JC) S1=VE-CCC(J+4+JC) T=CCC(J+JC)*YA(JX)+CCC(J+1+JC)*XA(JX)+CCC(J+2+JC) IF((ABS(T).LT.EXX).AND.(S*S1.LE.0.))GO TO 40 T=-CCC(J+2+JC)+CCC(J+JC)*D R=EI*CCC(J+JC)+CCC(J+1+JC) IF(R.EQ.0.)GO TO 30 T=T/R IF(T.LT.XA(JX))GO TO 30 IF(CCC(J+JC).NE.0.)GO TO 20 T=EI*T-D 20 CONTINUE IF((T.EQ.CCC(J+3+JC)).OR.(T.EQ.CCC(J+4+JC)))GO TO 10 S=T-CCC(J+3+JC) S1=T-CCC(J+4+JC) IF(S*S1.GT.0.)GO TO 30 I=I+1 30 CONTINUE IF(MOD(I,2).EQ.0)GO TO 50 40 CONTINUE NX=NX+1 XA(NX)=XA(JX) YA(NX)=YA(JX) ZA(NX)=ZA(JX) 50 CONTINUE IF(NX.EQ.0)GO TO 160 C C C C THIS CODE FINDS THE MAX/MIN X-COORDINATES(Y-COORDINATES) AND C STORES THEM. FUTHERMORE BOTH THE EQUATION OF LINE AND POINTS(2) C ARE TREATED LIKE ADDITIONAL EDGES. IN THIS WAY, THE ALGORITHM NEED C NOT BE DISTURBED. ESSENTIALLY,THEN,THIS TRICK IS TRANSPARENT TO C THE REST OF THE PROGRAM. C C AMAXX=-(10**6) AMINX=-AMAXX AMAXY=AMAXX AMINY=AMINX IS=5+(IK-1)*5+L12 IS=XXX(IS) DO 110 JI=1,NX IF(A.EQ.0.)GO TO 80 IF(XA(JI).GE.AMINX)GO TO 60 AMINX=XA(JI) YI=YA(JI) ZI=ZA(JI) 60 IF(XA(JI).LE.AMAXX)GO TO 70 AMAXX=XA(JI) YII=YA(JI) ZII=ZA(JI) 70 CONTINUE GO TO 110 80 CONTINUE IF(YA(JI).GE.AMINY)GO TO 90 AMINY=YA(JI) XI=XA(JI) ZI=ZA(JI) 90 CONTINUE IF(YA(JI).LE.AMAXY)GO TO 100 XII=XA(JI) AMAXY=YA(JI) ZII=ZA(JI) 100 CONTINUE 110 CONTINUE NIT=NIT+1 K=5*(NIT-1+IS)+1 RZ(XCC+K-1)=A RZ(XCC+K )=B RZ(XCC+K+1)=C IF (A.EQ.0.) GO TO 120 RZ(XCC+K+2)=AMINX RZ(XCC+K+3)=AMAXX AMIN=AMINX AMAX=AMAXX YE=YII ZE=ZII GO TO 130 120 CONTINUE RZ(XCC+K+2)=AMINY RZ(XCC+K+3)=AMAXY AMIN=XI AMAX=XII YI=AMINY YE=AMAXY ZE=ZII 130 CONTINUE IG=IXR+NIT*3 X21(IG-2)=AMIN Y21(IG-2)=YI Z21(IG-2)=ZI DO 140 JK=1,2 IE=IG-JK+1 X21(IE)=AMAX Y21(IE)=YE Z21(IE)=ZE 140 CONTINUE DO 150 JK=1,2 IIA(IG-JK)=0 150 CONTINUE IIA(IG)=1 TX=(AMAX-AMIN)**2 TY=(YE-YI)**2 DX=(TX+TY)**.5 IF(DX.LT..001)NIT=NIT-1 160 RETURN END ================================================ FILE: mis/hdstus.f ================================================ SUBROUTINE HDSTUS (OJ,TMJ,XXX,TGM,RV,RVI,TGI,ZM,NNO,II,H,IM,JXT, 1 ZJ,NC,ZMI,CCC,LZ) C C THIS SUBROUTINE DETERMINES THE VISIBILITY OF AN ARBITRARY POINT C BY DRAWING A LINE FROM THE POINT IN QUESTION TO INFINITY AND C COUNTING THE NUMBER OF TIMES IT CROSSES THE BOUNDARIES OF A C RELEVANT ELEMENT. C DIMENSION CCC(1),XXX(1),ZMI(1),TGM(1),RV(1),RVI(1),TGI(1), 1 ZM(1),NNO(1),H(8) COMMON /GO3/ L0,L1,L00,L01,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13 C GGK = .015 EI = 0 IM = 0 10 CONTINUE IF (EI .GE. 1.) GO TO 70 EI = EI + .2 D = EI*OJ - TMJ DO 60 JO = 1,II GGK = .015 I = 0 JG = NNO(L4+JO) JS = L13 + (JG-1)*LZ JT = L12 + (JG-1)*5 C C PRELIMINARY CHECK TO SEE IF THE POINT IS OUTSIDE THE BOUNDARY C BOXES IN THE X,Y,Z DIMENSIONS. C IF (TMJ.GE.RV(L7+JG) .OR. TMJ.LE.RVI(L8+JG)) GO TO 60 IF (OJ.GE.TGI(L6+JG) .OR. OJ.LE.TGM(L5+JG) ) GO TO 60 IF (ZJ .GE. ZM(L2+JG)) GO TO 60 VX = XXX(4+JT) VX1 = XXX(2+JT)*TMJ VX2 = XXX(1+JT)*OJ ZS =-(VX+VX1+VX2)/XXX(3+JT) IF (ABS(ZJ-ZS) .LT. GGK) GO TO 60 IF (ZJ .GE. ZS) GO TO 60 NS = XXX(5+JT) IB = NS*5 IF (H(8) .EQ. 1.) GO TO 25 DO 20 J = 1,IB,5 GGK = .015 NSUB= J + 1 + JS IF (ABS(CCC(NSUB)) .GE. 100.) GGK = ALOG10(ABS(CCC(NSUB))) VE = OJ IF (CCC(J+JS) .EQ. 0.) VE = TMJ S = VE - CCC(J+3+JS) S1 = VE - CCC(J+4+JS) YG = TMJ IF (CCC(J+JS) .NE. 0.) GO TO 15 DY =-CCC(J+2+JS)/CCC(J+1+JS) YG = OJ GO TO 16 15 CONTINUE DY =-CCC(J+2+JS) - CCC(J+1+JS)*OJ 16 CONTINUE IF (ABS(YG-DY).LT.GGK .AND. S*S1.LE.0.) GO TO 60 20 CONTINUE 25 CONTINUE C C THE FOLLOWING CODE COUNTS THE INTERSECTIONS OF BOUNDARIES C OF A GIVEN ELEMENT WITH THE INFINITE LINE AND CHECKS,IF INSIDE C OF THE BOUNDARY, WHETHER OR NOT THE POINT IS BEHIND OR IN FRONT C OF THE ELEMENT. C DO 40 J = 1,IB,5 T =-CCC(J+2+JS) + CCC(J+JS)*D R = EI*CCC(J+JS) + CCC(J+1+JS) IF (R .EQ. 0.) GO TO 40 T = T/R IF (T .LT. OJ) GO TO 40 IF (CCC(J+JS) .NE. 0.) GO TO 30 T = EI*T - D 30 CONTINUE S = T - CCC(J+3+JS) S1 = T - CCC(J+4+JS) IF (S.EQ.0. .OR. S1.EQ.0.) GO TO 10 IF (S*S1 .GE. 0.) GO TO 40 I = I + 1 40 CONTINUE IF (MOD(I,2) .EQ. 0) GO TO 60 IM = 1 GO TO 70 60 CONTINUE IM = 0 70 CONTINUE RETURN END ================================================ FILE: mis/hdsurf.f ================================================ SUBROUTINE HDSURF (GPLST,X,U,PEN,DEFORM,NMAX,MAXSF,IZ,IB,PEDGE, 1 IOPCOR) C C THIS ROUTINE PREPARES THE ELEMENT SURFACES FOR HIDDEN LINE PLOT C IT ALSO GENERATES THE SHRINK PLOT IF SHRINK ALONE IS REQUESTED. C IF SHRINK AND HIDDEN ARE REQUESTED, THIS ROUTINE WILL PREPARE THE C SHRUNK SURFACES FOR HDPLOT. C C REVISED 10/1990 BY G.CHAN/UNISYS C (1) HIDDEN PLOT WITH SOLID ELEMENTS BUGS C (2) HIDDEN AND SHRINK TOGETHER C (3) SKIP ANY OFFSET DATA IN ELSET FILE IF THEY ARE PRESENT C LOGICAL SHRINK,HIDDEN INTEGER GPLST(1),PEN,DEFORM,PEDGE,ETYP,G,NAME(2),GP,ELID, 1 ELSET,IZ(14,1),M1(16),LDX(9),FILE,SOLID,TEMP(27), 2 OFFSET REAL X(3,1),U(2,1) COMMON /BLANK / NGP,SKP11(11),ELSET,SKP22(7),MERR,IDUM(3),NSCR1, 1 NSCR2,NSCR3 COMMON /SYSTEM/ IBUF,IOUT COMMON /PLTSCR/ NNN,G(3) COMMON /HDREC / NOFSUR,NS,ELID,LID,NPERS,P(3,13) C C DIMENSIONS TEMP, IZ, AND P ARE TEMP(2*N+1), IZ(N+1,1), AND C P(3,N) WHERE N=LETSZ2=MAX OF LETSZ(2,I), I=1,9 C DIMENSION LET1(5),LET2(4,4),LET3(5,5),LET4(5,6),LET5(9,6), 1 LET6(13,6),LET7(5),LET8(7),LET9(9),LET(229), 2 LETSZ(3,9) EQUIVALENCE (LET( 1),LET1( 1)), (LET( 6),LET2(1,1)), 1 (LET( 22),LET3(1,1)), (LET( 47),LET4(1,1)), 2 (LET( 77),LET5(1,1)), (LET(131),LET6(1,1)), 3 (LET(209),LET7( 1)), (LET(214),LET8( 1)), 4 (LET(221),LET9( 1)) C DATA NAME / 4HHDSU, 4HRF / , 1 NM1,M1/ 16,4H(33X, 4H,13H, 4HELEM, 4HENT , 4HTYPE, 4H A5,, 2 4H4HWI, 4HTHI8, 4H,24H, 4H GRI, 4HDS S, 4HKIPP, 4HED I, 3 4HN LI, 4HNEL., 4H) / C C SPECIAL ELEMENT CONNECTION PATTERNS C DATA LDX / 2HD1,2HD2,2HD3,2HD4,2HD5,2HD6,2HD7,2HD8,2HD9 / DATA KTET / 2HTE /, KWEG / 2HWG /, KHX1 / 2HH1 /, 1 KHX2 / 2HH2 /, KIX1 / 2HXL /, KIX2 / 2HXQ /, 2 KIX3 / 2HXC /, KAE / 2HAE /, KTRIM6/ 2HT6 /, 3 KTRPLT/ 2HP6 /, KTRSHL/ 2HSL /, KIS2D8/ 2HD8 /, 4 KFHEX1/ 2HFA /, KFHEX2/ 2HFB /, KFTETA/ 2HFT /, 5 KFWEDG/ 2HFW /, KBAR / 2HBR /, KT3 / 2HT3 /, 6 KQ4 / 2HQ4 / C 7 KELBOW/ 2HEB / C C 1 - LINE,TRIANGLE,QUAD 5 - IHEXA2 C 2 - TETRA 6 - IHEXA3 C 3 - WEDGE 7 - AERO C 4 - HEXA 8 - TRIM6 AND TRPLT1 AND TRSHL C DATA LETSZ2/ 13 / DATA LETSZ / 1 1, 5, 1, 2 4, 4, 6, 3 5, 5, 22, 4 6, 5, 47, 5 6, 9, 77, 6 6, 13, 131, 7 1, 5, 209, 8 1, 7, 214, 9 1, 9, 221/ C NELSRF, NPTS, IS DATA LET1 / 1 1, 2, 3, 4, 5/ DATA LET2 / 1 1, 2, 3, 1, 2 1, 2, 4, 1, 3 2, 3, 4, 2, 4 1, 3, 4, 1/ DATA LET3 / 1 1, 2, 3, 1, 0, 2 4, 5, 6, 4, 0, 3 1, 3, 6, 4, 1, 4 1, 2, 5, 4, 1, 5 2, 3, 6, 5, 2/ DATA LET4 / 1 1, 2, 3, 4, 1, 2 5, 6, 7, 8, 5, 3 3, 4, 8, 7, 3, 4 1, 2, 6, 5, 1, 5 2, 3, 7, 6, 2, 6 1, 4, 8, 5, 1/ DATA LET5 / 1 1, 2, 3, 4, 5, 6, 7, 8, 1, 2 13, 14, 15, 16, 17, 18, 19, 20, 13, 3 3, 10, 15, 16, 17, 11, 5, 4, 3, 4 5, 11, 17, 18, 19, 12, 7, 6, 5, 5 7, 12, 19, 20, 13, 9, 1, 8, 7, 6 1, 2, 3, 10, 15, 14, 13, 9, 1/ DATA LET6 / 1 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 21, 3 4, 5, 6, 7, 15, 19, 27, 26, 25, 24, 18, 14, 4, 4 7, 8, 9, 10, 16, 20, 30, 29, 28, 27, 19, 15, 7, 5 10, 11, 12, 1, 13, 17, 21, 32, 31, 30, 20, 16, 10, 6 1, 2, 3, 9, 14, 18, 24, 23, 22, 21, 17, 13, 1/ DATA LET7 / 1 1, 2, 3, 4, 1/ DATA LET8 / 1 1, 2, 3, 4, 5, 6, 1/ DATA LET9 / 1 1, 5, 2, 6, 3, 7, 4, 8, 1/ C C PEDGE FLAG = 2 OR 200 - HIDDEN LINE PLOT C = 10 THRU 100 - SHRINK PLOT. C = 100 - FILL, NOT USED HERE C = .GT. 200 - SHRINK AND HIDDEN LINE PLOT C E.G. PEDGE = 270 INDICATES HIDDEN LINE PLOT WITH EACH ELEMENT C SHRUNK TO 70 PERCENT OF FULL SIZE. C IPEDGE = MOD(PEDGE,200) NWDS = 0 NMAX = 0 LS = 0 LSMAX = IOPCOR/14 IF (PEDGE .GT. 200) LSMAX = 0 NOFSUR = 0 SHK = 1.0 SHRINK = .FALSE. IF (PEDGE .LT. 10) GO TO 10 SHRINK = .TRUE. SHK = 1. - FLOAT(IPEDGE)/100. CALL LINE (0.,0.,0.,0.,1.,-1) 10 HIDDEN = .FALSE. IF (PEDGE.NE.2 .AND. PEDGE.LT.200) GO TO 20 HIDDEN = .TRUE. CALL GOPEN (NSCR2,GPLST(IB),1) NWDS = 3*LETSZ2 + 5 C 20 CALL READ (*310,*190,ELSET,ETYP,1,0,I) CALL FREAD (ELSET,I,1,0) NGPEL = IABS(I) NGPELX = NGPEL SOLID = 0 C OFFSET = 0 IF (ETYP .EQ. KBAR) OFFSET = 6 IF (ETYP.EQ.KT3 .OR. ETYP.EQ.KQ4) OFFSET = 1 ITYPE = 1 IF (ETYP .EQ. KTET ) ITYPE = 2 IF (ETYP .EQ. KFTETA ) ITYPE = 2 IF (ETYP .EQ. KWEG ) ITYPE = 3 IF (ETYP .EQ. KFWEDG ) ITYPE = 3 IF (ETYP .EQ. KHX1 .OR. ETYP .EQ. KHX2 .OR. ETYP .EQ. KIX1 .OR. 1 ETYP .EQ. KFHEX1 .OR. ETYP .EQ. KFHEX2) ITYPE = 4 IF (ETYP .EQ. KIX2 ) ITYPE = 5 IF (ETYP .EQ. KIS2D8 ) ITYPE = 9 IF (ETYP .EQ. KIX3 ) ITYPE = 6 IF (ETYP .EQ. KAE ) ITYPE = 7 IF (ETYP .EQ. KTRIM6 .OR. ETYP .EQ. KTRPLT .OR. ETYP .EQ. KTRSHL) 1 ITYPE = 8 C IF (ITYPE .NE. 1) GO TO 40 C C SIMPLE ELEMENT C IF (NGPEL.GT.2 .AND. I.GT.0) NGPELX = NGPEL + 1 IF (NGPEL .GT. 4) GO TO 130 NPTS = NGPELX GO TO 50 C C COMPLEX ELEMENT C 40 CONTINUE IF (ITYPE.GE.2 .AND. ITYPE.LE.6) SOLID = 1 NPTS = LETSZ(2,ITYPE) 50 IF (NPTS-1 .GT. NMAX) NMAX = NPTS - 1 C C READ THE ELEMENT DATA C 60 CALL FREAD (ELSET,ELID,1,0) IF (ELID .LE. 0) GO TO 20 CALL FREAD (ELSET,LID,1,0) CALL FREAD (ELSET,G,NGPEL,0) IF (OFFSET .NE. 0) CALL FREAD (ELSET,0,-OFFSET,0) IF (NGPEL .NE. NGPELX) G(NGPELX) = G(1) IF (HIDDEN .AND. .NOT.SHRINK) GO TO 80 XC = 0. YC = 0. ZC = 0. DO 70 I = 1,NGPEL GP = G(I) GP = IABS(GPLST(GP)) XC = XC + X(2,GP) YC = YC + X(3,GP) ZC = ZC + X(1,GP) 70 CONTINUE XC = XC/NGPEL YC = YC/NGPEL ZC = ZC/NGPEL C 80 NELSRF = LETSZ(1,ITYPE) IS = LETSZ(3,ITYPE) C DO 120 NS = 1,NELSRF NN = 0 MM = (NS-1)*NPTS + IS - 1 NPERS = NPTS DO 110 I = 1,NPTS M = MM + I N = LET(M) IF (N .NE. 0) GO TO 85 82 NPERS = NPERS - 1 GO TO 110 85 GP = G(N) IF (GP .EQ. 0) GO TO 82 NN = NN + 1 GP = IABS(GPLST(GP)) P(3,NN) = X(1,GP) IF (DEFORM .NE. 0) GO TO 90 P(1,NN) = X(2,GP) P(2,NN) = X(3,GP) GO TO 100 90 P(1,NN) = U(1,GP) P(2,NN) = U(2,GP) 100 CONTINUE IF (.NOT.SHRINK) GO TO 110 IF ( HIDDEN) GO TO 105 IF (NN .EQ. 1) GO TO 110 X1 = P(1,NN-1) - (P(1,NN-1)-XC)*SHK Y1 = P(2,NN-1) - (P(2,NN-1)-YC)*SHK X2 = P(1,NN ) - (P(1,NN )-XC)*SHK Y2 = P(2,NN ) - (P(2,NN )-YC)*SHK IPEN = PEN IF (IPEDGE.EQ.100 .AND. PEN.GT.31 .AND. I.EQ.NPERS) PEN = 0 IF (SHRINK) CALL LINE (X1,Y1,X2,Y2,PEN,0) IF (PEN .EQ. 0) PEN = IPEN GO TO 110 105 P(3,NN) = X(1,GP) - (X(1,GP)-ZC)*SHK P(1,NN) = X(2,GP) - (X(2,GP)-XC)*SHK P(2,NN) = X(3,GP) - (X(3,GP)-YC)*SHK IF (DEFORM .EQ. 0) GO TO 110 P(1,NN) = U(1,GP) - (X(2,GP)-XC)*SHK P(2,NN) = U(2,GP) - (X(3,GP)-YC)*SHK 110 CONTINUE IF (SHRINK .AND. .NOT.HIDDEN) GO TO 120 CALL WRITE (NSCR2,NOFSUR,NWDS,0) NOFSUR = NOFSUR + 1 IF (SOLID.EQ.0 .OR. .NOT.HIDDEN) GO TO 120 C C SAVE SOLID SURFACE DATA IN IZ SPACE FOR SECOND PROCESSING, HIDDEN C PLOT ONLY. SAVE AS MANY AS OPEN CORE CAN HOLD C IF (LS .GE. LSMAX) GO TO 120 LS = LS + 1 NPS1 = NPERS - 1 DO 112 I = 1,NPS1 M = MM + I N = LET(M) GP = G(N) TEMP(I ) = GP 112 TEMP(I+NPS1) = GP M = 1 MIN= TEMP(1) DO 114 I = 2,NPS1 IF (TEMP(I) .GE. MIN) GO TO 114 M = I MIN= TEMP(I) 114 CONTINUE IF (M .EQ. 1) M = M + NPS1 N = + 1 IF (TEMP(M-1) .LT. TEMP(M+1)) N = -1 IF (N.EQ.-1 .AND. M.LT.NPS1) M = M + NPS1 K = NPS1 + 2 DO 116 I = 3,K IZ(I,LS) = TEMP(M) 116 M = M + N IZ(1,LS) = NOFSUR IZ(2,LS) = NPS1 C 120 CONTINUE GO TO 60 C C CHECK FOR PDUM ELEMENTS BEFORE EJECTING C 130 DO 135 I = 1,9 IF (ETYP .EQ. LDX(I)) GO TO 160 135 CONTINUE C C ILLEGAL ELEMENT, NO CORE FOR 1 ELEMENT C 140 G(1) = 2 G(2) = ETYP G(3) = NGPEL CALL WRTPRT (MERR,G,M1,NM1) C C READ TO THE END OF THIS ELEMENT C 150 CALL READ (*180,*20,ELSET,ELID,1,0,M) IF (ELID .LE. 0) GO TO 20 J = 1 + NGPEL + OFFSET CALL FREAD (ELSET,0,-J,0) GO TO 150 160 WRITE (IOUT,170) I 170 FORMAT ('0*** MISSING PDUM',I1,' SUBROUTINE/HDSURF') GO TO 140 180 CALL MESAGE (-8,ELSET,NAME) C 190 CONTINUE MAXSF = NOFSUR CALL BCKREC (ELSET) IF (SHRINK) CALL LINE (0.,0.,0.,0.,1.,+1) IF (.NOT.HIDDEN) GO TO 300 CALL WRITE (NSCR2,0,0,1) IF (LS .LT. 60) GO TO 280 C C REPROCESS NSCR2 TO REMOVE DUPLICATE SURFACES (INTERIOR-INTERFACES) C AND SAVE REDUCED DATA IN NSCR1. C INTERCHANGE NSCR1 AND NSCR2 INDICES C J = (LETSZ2+1)*LS CALL SORT2K (0,0,LETSZ2+1,3,IZ,J) M = 0 NPS1 = 0 DO 240 I = 1,LS NPS2 = IZ(2,I) + 2 IF (NPS2 .EQ. NPS1) GO TO 200 NPS1 = NPS2 GO TO 240 200 IM1 = I - 1 DO 210 J = 3,NPS1 IF (IZ(J,I) .NE. IZ(J,IM1)) GO TO 240 210 CONTINUE IF (M .EQ. 0) GO TO 220 IF (IZ(M,1) .EQ. IZ(1,IM1)) GO TO 230 220 M = M + 1 IZ(M,1) = IZ(1,IM1) 230 M = M + 1 IZ(M,1) = IZ(1,I) 240 CONTINUE C IF (M .LT. 20) GO TO 280 CALL SORT (0,0,1,1,IZ,M) IZ(M+1,1) = 999999999 FILE = NSCR1 CALL GOPEN (NSCR1,GPLST(IB+IBUF),1) FILE = NSCR2 CALL CLOSE (NSCR2,1) CALL GOPEN (NSCR2,GPLST(IB),0) N = 1 DO 270 I = 1,MAXSF CALL READ (*320,*330,NSCR2,NOFSUR,NWDS,0,J) IF (I-IZ(N,1)) 250,260,260 250 CALL WRITE (NSCR1,NOFSUR,NWDS,0) GO TO 270 260 N = N + 1 270 CONTINUE C CALL CLOSE (NSCR2,1) J = NSCR2 NSCR2 = NSCR1 NSCR1 = J MAXSF = MAXSF - M CALL WRITE (NSCR2,0,0,1) 280 CALL CLOSE (NSCR2,1) 300 RETURN C 310 J = -1 FILE = ELSET GO TO 340 320 J = -2 GO TO 340 330 J = -3 340 CALL MESAGE (J,FILE,NAME) GO TO 190 END ================================================ FILE: mis/hdvs1.f ================================================ SUBROUTINE HDVS1(A,LA,IR) INTEGER IU(21),IL(21),I,M,J,K,IJ,IT,L,ITT INTEGER A(1),IR(1),T,TT C FIRST EXECUTABLE STATEMENT IF (LA.LE.0) RETURN M = 1 I = 1 J = LA R = .375 5 IF (I.EQ.J) GO TO 45 IF (R.GT..5898437) GO TO 10 R = R+3.90625E-2 GO TO 15 10 R = R-.21875 15 K = I C SELECT A CENTRAL ELEMENT OF THE C ARRAY AND SAVE IT IN LOCATION T IJ = I+(J-I)*R T = A(IJ) IT = IR(IJ) C IF FIRST ELEMENT OF ARRAY IS GREATER C THAN T, INTERCHANGE WITH T IF (A(I).LE.T) GO TO 20 A(IJ) = A(I) A(I) = T T = A(IJ) IR(IJ) = IR(I) IR(I) = IT IT = IR(IJ) 20 L = J C IF LAST ELEMENT OF ARRAY IS LESS THAN C T, INTERCHANGE WITH T IF (A(J).GE.T) GO TO 30 A(IJ) = A(J) A(J) = T T = A(IJ) IR(IJ) = IR(J) IR(J) = IT IT = IR(IJ) C IF FIRST ELEMENT OF ARRAY IS GREATER C THAN T, INTERCHANGE WITH T IF (A(I).LE.T) GO TO 30 A(IJ) = A(I) A(I) = T T = A(IJ) IR(IJ) = IR(I) IR(I) = IT IT = IR(IJ) GO TO 30 25 IF (A(L).EQ.A(K)) GO TO 30 TT = A(L) A(L) = A(K) A(K) = TT ITT = IR(L) IR(L) = IR(K) IR(K) = ITT C FIND AN ELEMENT IN THE SECOND HALF OF C THE ARRAY WHICH IS SMALLER THAN T 30 L = L-1 IF (A(L).GT.T) GO TO 30 C FIND AN ELEMENT IN THE FIRST HALF OF C THE ARRAY WHICH IS GREATER THAN T 35 K = K+1 IF (A(K).LT.T) GO TO 35 C INTERCHANGE THESE ELEMENTS IF (K.LE.L) GO TO 25 C SAVE UPPER AND LOWER SUBSCRIPTS OF C THE ARRAY YET TO BE SORTED IF (L-I.LE.J-K) GO TO 40 IL(M) = I IU(M) = L I = K M = M+1 GO TO 50 40 IL(M) = K IU(M) = J J = L M = M+1 GO TO 50 C BEGIN AGAIN ON ANOTHER PORTION OF C THE UNSORTED ARRAY 45 M = M-1 IF (M.EQ.0) RETURN I = IL(M) J = IU(M) 50 IF (J-I.GE.11) GO TO 15 IF (I.EQ.1) GO TO 5 I = I-1 55 I = I+1 IF (I.EQ.J) GO TO 45 T = A(I+1) IT = IR(I+1) IF (A(I).LE.T) GO TO 55 K = I 60 A(K+1) = A(K) IR(K+1) = IR(K) K = K-1 IF (T.LT.A(K)) GO TO 60 A(K+1) = T IR(K+1) = IT GO TO 55 END ================================================ FILE: mis/hdvsr.f ================================================ SUBROUTINE HDVSR(A,LA,IR) C IMSL ROUTINE NAME - HDVSR C C----------------------------------------------------------------------- C C COMPUTER - CDC/SINGLE C C LATEST REVISION - JANUARY 1, 1978 C C PURPOSE - SORTING OF ARRAYS BY ALGEBRAIC VALUE - C PERMUTATIONS RETURNED C C USAGE - CALL HDVSR (A,LA,IR) C C ARGUMENTS A - ON INPUT, A CONTAINS THE ARRAY TO BE SORTED. C ON OUTPUT, A CONTAINS THE SORTED ARRAY. C LA - INPUT VARIABLE CONTAINING THE NUMBER OF C ELEMENTS IN THE ARRAY TO BE SORTED. C IR - VECTOR OF LENGTH LA. C ON INPUT, IR CONTAINS THE INTEGER VALUES C 1,2,...,LA. SEE REMARKS. C ON OUTPUT, IR CONTAINS A RECORD OF THE C PERMUTATIONS MADE ON THE VECTOR A. C C PRECISION/HARDWARE - SINGLE/ALL C C REQD. IMSL ROUTINES - NONE REQUIRED C C CONVENTIONS IS AVAILABLE IN THE MANUAL C INTRODUCTION OR THROUGH IMSL ROUTINE UHELP C C REMARKS THE VECTOR IR MUST BE INITIALIZED BEFORE ENTERING C HDVSR. ORDINARILY, IR(1)=1, IR(2)=2, ..., C IR(LA)=LA. FOR WIDER APPLICABILITY, ANY INTEGER C THAT IS TO BE ASSOCIATED WITH A(I) FOR I=1,2,...,LA C MAY BE ENTERED INTO IR(I). C C COPYRIGHT - 1978 BY IMSL, INC. ALL RIGHTS RESERVED. C C WARRANTY - IMSL WARRANTS ONLY THAT IMSL TESTING HAS BEEN C APPLIED TO THIS CODE. NO OTHER WARRANTY, C EXPRESSED OR IMPLIED, IS APPLICABLE. C C----------------------------------------------------------------------- C DIMENSION A(1),IR(1) C SPECIFICATIONS FOR ARGUMENTS C SPECIFICATIONS FOR LOCAL VARIABLES INTEGER IU(21),IL(21),I,M,J,K,IJ,IT,L,ITT REAL T,TT,R C FIRST EXECUTABLE STATEMENT IF (LA.LE.0) RETURN M = 1 I = 1 J = LA R = .375 5 IF (I.EQ.J) GO TO 45 IF (R.GT..5898437) GO TO 10 R = R+3.90625E-2 GO TO 15 10 R = R-.21875 15 K = I C SELECT A CENTRAL ELEMENT OF THE C ARRAY AND SAVE IT IN LOCATION T IJ = I+(J-I)*R T = A(IJ) IT = IR(IJ) C IF FIRST ELEMENT OF ARRAY IS GREATER C THAN T, INTERCHANGE WITH T IF (A(I).LE.T) GO TO 20 A(IJ) = A(I) A(I) = T T = A(IJ) IR(IJ) = IR(I) IR(I) = IT IT = IR(IJ) 20 L = J C IF LAST ELEMENT OF ARRAY IS LESS THAN C T, INTERCHANGE WITH T IF (A(J).GE.T) GO TO 30 A(IJ) = A(J) A(J) = T T = A(IJ) IR(IJ) = IR(J) IR(J) = IT IT = IR(IJ) C IF FIRST ELEMENT OF ARRAY IS GREATER C THAN T, INTERCHANGE WITH T IF (A(I).LE.T) GO TO 30 A(IJ) = A(I) A(I) = T T = A(IJ) IR(IJ) = IR(I) IR(I) = IT IT = IR(IJ) GO TO 30 25 IF (A(L).EQ.A(K)) GO TO 30 TT = A(L) A(L) = A(K) A(K) = TT ITT = IR(L) IR(L) = IR(K) IR(K) = ITT C FIND AN ELEMENT IN THE SECOND HALF OF C THE ARRAY WHICH IS SMALLER THAN T 30 L = L-1 IF (A(L).GT.T) GO TO 30 C FIND AN ELEMENT IN THE FIRST HALF OF C THE ARRAY WHICH IS GREATER THAN T 35 K = K+1 IF (A(K).LT.T) GO TO 35 C INTERCHANGE THESE ELEMENTS IF (K.LE.L) GO TO 25 C SAVE UPPER AND LOWER SUBSCRIPTS OF C THE ARRAY YET TO BE SORTED C THE ARRAY YET TO BE SORTED IF (L-I.LE.J-K) GO TO 40 IL(M) = I IU(M) = L I = K M = M+1 GO TO 50 40 IL(M) = K IU(M) = J J = L M = M+1 GO TO 50 C BEGIN AGAIN ON ANOTHER PORTION OF C THE UNSORTED ARRAY 45 M = M-1 IF (M.EQ.0) RETURN I = IL(M) J = IU(M) 50 IF (J-I.GE.11) GO TO 15 IF (I.EQ.1) GO TO 5 I = I-1 55 I = I+1 IF (I.EQ.J) GO TO 45 T = A(I+1) IT = IR(I+1) IF (A(I).LE.T) GO TO 55 K = I 60 A(K+1) = A(K) IR(K+1) = IR(K) K = K-1 IF (T.LT.A(K)) GO TO 60 A(K+1) = T IR(K+1) = IT GO TO 55 END ================================================ FILE: mis/head.f ================================================ SUBROUTINE HEAD (DTYP,PLTP,MTYP,IDAT) C INTEGER IDAT(17),MAXDEF(3),DTYP,PLTP,UNDEF(4),PTYP(2,5), 1 SUBC(2),MTYPF(2,3),PHAS(3),FPLTIT,PLTITL REAL NT1(5),NT2(4),NT3(3),CSCALE,X,X0 COMMON /OUTPUT/ TITLE(32,3) COMMON /PLTDAT/ SKPPLT(2),XYMIN(2),XYMAX(2),AXYMAX(13),CSCALE, 1 SKPA(3),CNTX,CNTY COMMON /XXPARM/ ISKP(215),FPLTIT,PLTITL(17) C DATA UNDEF / 4HUNDE, 4HFORM, 4HED S, 4HHAPE / C ... NUMBER CHAR+2 FOR STATIC - CMODAL ... NOTE, 1 BLANK AT START... 1, NT1 / 8., 7., 8., 7., 8. / C ... NUMBER CHAR+1 FOR DEFO - ACCEL ... 2, NT2 , PTYP / 7., 9., 7., 7. A, 4HDEFO,2HR. , 4HVELO,4HCITY, 4HACCE,2HL. B, 4HSTRE,2HSS , 4HSTRA,2HIN / 3, SUBC / 4HSUBC,4HASE / C ... NUMBER CHAR+1 FOR FREQ, EIGENV., TIME ... IDENTIFY BY MTYP ... 4, NT3 / 6., 8., 5. / C, MTYPF / 4HFREQ,4H. , 4HEIGE,4HNV. , 4HTIME,1H / C ... NUMBER OF SPACES BETWEEN IDENTIFIERS ... 5, DELX / 3.0 / 6, MAXDEF/ 4HMAX-,4HDEF.,2H = / 7, PHAS / 4H PHA,4HSE ,1H / C XYMIN(1) = 0.0 XYMIN(2) = 0.0 XYMAX(1) = AXYMAX(1) XYMAX(2) = AXYMAX(2) CALL PRINT (0,0,0,0,0,-1) IF (MTYP .LT. 0) GO TO 30 C C LEFT-MOST CHARACTER MAY NOT BE COMPETELY DRAWN IF FRACTION OF C CSCALE IS IS LESS THAN 0.5. SO MOVE OVER A SMALL SPACE OF X0 C J = IFIX(CSCALE) X0 = CSCALE - FLOAT(J) IF (X0 .GT. 0.5) X0 = 0.0 C C PRINT THE TITLE, SUBTITLE AND LABEL C CALL PRINT (X0,3.0*CNTY,1,TITLE(1,1),17,0) CALL PRINT (X0,2.0*CNTY,1,TITLE(1,2),16,0) CALL PRINT (X0,CNTY,1,TITLE(1,3),17,0) C X = 25. - 5.*(CSCALE-1.) IF (DTYP .EQ. 0) GO TO 10 X = 40. IF (IDAT(1) .LE. 8) GO TO 10 X = 45. IF (IDAT(1) .GE. 12) X = 52. IF (IDAT(1) .GE. 15) X = 59. 10 CONTINUE IF (FPLTIT .NE. 0) CALL PRINT (X*CNTX,0.,1,PLTITL,17,0) C C BOTTOM LINE IDENTIFIES PLOT C IF (DTYP .NE. 0) GO TO 20 C C UNDEFORMED SHAPE C CALL PRINT (CNTX+X0,0.,1,UNDEF,4,0) GO TO 40 C C DEFORMED SHAPE C 20 CALL PRINT (CNTX+X0,0.,1,IDAT(3),2,0) X = NT1(DTYP) CALL PRINT (X*CNTX+X0,0.,1,PTYP(1,PLTP),2,0) X = X + NT2(PLTP) CALL PRINT (X*CNTX+X0,0.,1,SUBC,2,0) X = X + 8. N = -1 CALL TYPINT (X*CNTX+X0,0.,1,IDAT(7),N,0) X = X + FLOAT(N) + DELX C C LOAD I OR MODE I C CALL PRINT (X*CNTX+X0,0.,1,IDAT(9),1,0) X = X + 5. N = -1 CALL TYPINT (X*CNTX+X0,0.,1,IDAT(8),N,0) C C FREQUENCY, EIGENVALUE, OR TIME C IF (IDAT(1) .LE. 8) GO TO 40 X = FLOAT(IFIX(X+DELX+0.1) + N) CALL PRINT (X*CNTX+X0,0.,1,MTYPF(1,MTYP),2,0) X = X + NT3(MTYP) CALL TYPFLT (X*CNTX+X0,0.,1,IDAT(10),-8,0) C C MAGNITUDE OR PHASE LAG C IF (IDAT(1) .LE. 12) GO TO 40 X = X + 7.0 + DELX IF (IDAT(14) .NE. PHAS(1)) GO TO 25 IDAT(15) = PHAS(2) IDAT(16) = PHAS(3) 25 CALL PRINT (X*CNTX+X0,0.,1,IDAT(14),3,0) C IF (IDAT(1) .LE. 15) GO TO 40 X = X + 7.0 CALL TYPFLT (X*CNTX+X0,0.,1,IDAT(17),-6,0) GO TO 40 C C PRINT THE MAXIMUM DEFORMATION AT THE TOP C 30 CALL PRINT (20.*CNTX,XYMAX(2),1,MAXDEF,3,0) CALL TYPFLT (31.*CNTX,XYMAX(2),1,IDAT(1),-10,0) C C 40 CALL PRINT (0,0,0,0,0,1) RETURN END ================================================ FILE: mis/hess1.f ================================================ SUBROUTINE HESS1 (KDD,MDD,LAMD,PHID,OEIGS,NFOUND,NVECD,BDD,SCR1, 1 SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,EED,METHOD) C C SUBROUTINE HESS1 TRANSFORMS THE PROBLEM C PSQ M + P B + K INTO PSQ I + MINV K C C THREE CASES ARE AVAILABLE C 1 BDB = 0 MDD NOT IDENTITY C AMAT= MINVERSE K (MINUS ADDED IN CORE) C OUTPUT P = CSQRT COMPUTED PS C OUTPUT VEC = COMPUTED VECTOR C C 2 BDD = 0 MDD IDENTITY C AMAT= KDD C OUTPUT AS IN CASE 1 C C 3 BDD NOT ZERO MDD NOT IDENTITY C AMAT= 1 1 1 C 1 0 1-I 1 C 1---------- C 1 -1 1 -1 1 C 1M K1M B1 C 1 1 1 C OUTPUT P = COMPUTED P C OUTPUT VEC = FIRST HALF OF COMPUTED VECTOR C C CORE LAYOUT (FOR ALLMAT) IS AS FOLLOWS) C C CONTENTS SIZE POINTER TYPE NAME C -------- ---- ------- ---- ---- C INPUT MATRIX--VECTORS 2*NROW*NROW IA COMP A C EIGENVALUES 2*NROW IL COMP LAMBDA C H MATRIX 2*NROW*NROW IH COMP H C HL MATRIX 2*NROW*NROW IHL COMP HL C VECTOR STORAGE 2*NROW IV COMP VEC C MULTPLIERS 2*NROW IM COMP MULT C INTH NROW INTH INT INTH C INT NROW INT LOG INT C C BUFFER SYSBUF IBUF1 INT BUFFER C C C VARIABLE DEFINITION C C ID 0 MEANS IDENTY MASS MATRIX C IBDD 0 MEANS NULL B MATRIX C AMAT FINAL A MATRIX GINO NAME C NROW ORDER OF PROBLEM C C C INTEGER PHID,OEIGS,BDD,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7, 1 IZ(8),MCB(7),SYSBUF,NAME(2),FILE,IHEAD(10),EED, 2 AMAT,EIGC(2),POIN DOUBLE PRECISION D1,D2,D3,D4,D5,DZ(1),TEMP(2) COMPLEX CZ(1),TZ CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /UNPAKX/ ITC,II,JJ,INCR COMMON /ZZZZZZ/ Z(1) COMMON /CDCMPX/ DUM32(32),IB COMMON /SYSTEM/ KSYSTM(65) COMMON /OUTPUT/ HEAD(1) EQUIVALENCE (KSYSTM( 1),SYSBUF), (KSYSTM(2),MOUT ), 1 (KSYSTM(55),IPREC ), (Z(1),DZ(1),IZ(1),CZ(1)) DATA NAME / 4HHESS,4H1 / DATA IHEAD / 0,1009,4,7*0 / DATA EIGC , POIN/ 207,2,4HPOIN/ DATA IZ0 / 0 / C C DETERMINE IF MASS MATRIX IS IDENTITY C MCB(1) = MDD CALL RDTRL (MCB) ID = 0 IF (MCB(4) .EQ. 8) ID = 1 NROW = MCB(2) AMAT = KDD IF (ID .NE. 0) GO TO 10 C C DECOMPOSE MASS MATRIX C IB = 0 CALL CFACTR (MDD,SCR1,SCR2,SCR3,SCR4,SCR5,IOPT) C C SOLVE FOR AMATRIX C CALL CFBSOR (SCR1,SCR2,KDD,SCR3,IOPT) C C DETERMINE IF B MATRIX IS NULL C AMAT = SCR3 10 IBDD = 0 MCB(1) = BDD CALL RDTRL (MCB) IF (MCB(1).LE.0 .OR. MCB(6).EQ.0) GO TO 30 C C FORM M-1 B C IBDD = 1 IMAT1 = BDD IMAT2 = KDD IF (ID .NE. 0) GO TO 20 C C - AS OF APRIL 1985 - C THE UPPER AND LOWER TRIANGULAR MATRICES IN SCR1 AND SCR2 WERE C MYSTERIOUSLY DESTROYED HERE. MUST CALL CFACTR TO RE-GENERATE THEM C C - AS OF JUNE 1991 - C TRY WITHOUT 2ND CALL TO CFACTR, AND MAKE SURE SCR1 AND SCR2 ARE C STILL GINO UNITS 301 AND 302 C IB = 0 CALL CFACTR (MDD,SCR1,SCR2,SCR3,SCR4,SCR5,IOPT) C CALL CFBSOR (SCR1,SCR2,BDD,SCR4,IOPT) IMAT1 = SCR4 IMAT2 = SCR3 20 CALL HESS2 (NROW,SCR5,SCR6) C C IDENTITY ON SCR5 MERGE VECTOR ON SCR6 C CALL MERGED (0,SCR5,IMAT2,IMAT1,SCR7,SCR6,SCR6,0,0) AMAT = SCR7 NROW = 2*NROW C C ALLOCATE CORE FOR ALLMAT C 30 IA = 1 IL = IA + 2*NROW*NROW IH = IL + 2*NROW IHL = IH + 2*NROW*NROW IV = IHL+ 2*NROW*NROW IM = IV + 2*NROW INTH= IM + 2*NROW INT = INTH + NROW NZ = KORSZ(IZ) IBUF1 = NZ - SYSBUF + 1 IF (IH+SYSBUF .GT. NZ) CALL MESAGE (-8,0,NAME) C C PROCESS EIGC CARD C FILE = EED CALL PRELOC (*900,IZ(IBUF1-1),EED) CALL LOCATE (*900,IZ(IBUF1-1),EIGC,IFLAG) 50 CALL FREAD (EED,IZ,10,0) IF (METHOD.EQ.IZ(1) .OR. METHOD.EQ.-1) GO TO 70 C C SKIP REMAINDER OF EIGC CARD C 60 CALL FREAD (EED,IZ,7,0) IF (IZ(6) .NE. -1) GO TO 60 GO TO 50 C C EIGC CARD FOUND C 70 INORM = 0 IF (IZ(4) .NE. POIN) INORM = 1 ISIL = IZ(6) EPSI = 1.0E-6 IF (Z(IZ0+8) .NE. 0.0) EPSI = Z(IZ0+8) C C PROCESS REGION DEFINITION C CALL FREAD (EED,IZ,7,0) ALPH1 = Z(1) ALPH2 = Z(IZ0+3) W1 = Z(IZ0+2) W2 = Z(IZ0+4) NVECD = IZ(7) IF (NVECD .GT. 0) GO TO 95 C C ---- SET DEFAULT TO ONE SOLUTION VECTOR ---- C NVECD = 1 WRITE (MOUT,90) UWM 90 FORMAT (A25,' 2357, ONE VECTOR (DEFAULT) WILL BE COMPUTED IN THE', 1 ' COMPLEX REGION.') 95 CALL CLOSE (EED,1) NVECD = MAX0(NVECD,1) C C BRING IN TERMS OF MATRIX C CALL GOPEN (AMAT,IZ(IBUF1),0) ITC =-3 II = 1 JJ = NROW INCR = 1 DO 100 I = IA,IL Z(I) = 0.0 100 CONTINUE J = IA DO 120 I = 1,NROW CALL UNPACK (*110,AMAT,Z(J)) 110 J = J + 2*NROW 120 CONTINUE CALL CLOSE (AMAT,1) C C DO IT C NCOUNT = NVECD CALL ALLMAT (Z(IA),Z(IL),Z(IH),Z(IHL),Z(IV),Z(IM),Z(INTH),Z(INT), 1 NROW,NCOUNT,IOPT1) NFOUND = NCOUNT/IPREC FILE = LAMD CALL OPEN (*900,LAMD,IZ(IBUF1),1) DO 230 I = 1,NROW J = IA + NROW*NROW + I - 1 IF (IBDD .NE. 0) GO TO 210 C C PUT OUT COMPLEX SQUARE ROOT C TZ = CSQRT(CZ(J)) IF (AIMAG(TZ) .LT. 0.0) TZ = -TZ TEMP(1) = REAL(TZ) TEMP(2) = AIMAG(TZ) GO TO 220 C C NON-ZERO B C 210 CONTINUE TEMP(1) = REAL(CZ(J)) TEMP(2) = AIMAG(CZ(J)) 220 CALL WRITE (LAMD,TEMP,4,1) 230 CONTINUE CALL CLOSE (LAMD,1) C C PUT OUT EIGENVECTORS C FILE = PHID CALL OPEN (*900,PHID,IZ(IBUF1),1) J = NROW*NROW + NROW K = IA - 1 NOUT = NROW*2 IF (IBDD .NE. 0) NOUT = NOUT/2 DO 370 M = 1,NVECD D1 = 0.0 DO 310 I = 1,NOUT,2 II = J + I JJ = K + I DZ(II ) = Z(JJ ) DZ(II+1) = Z(JJ+1) D2 = DZ(II)*DZ(II) + DZ(II+1)*DZ(II+1) IF (D2 .LT. D1) GO TO 310 D3 = DZ(II ) D4 = DZ(II+1) D1 = D2 310 CONTINUE IF (INORM .EQ. 0) GO TO 350 320 DO 330 I = 1,NOUT,2 JJ = J + I D5 = (DZ(JJ)*D3 + DZ(JJ+1)*D4)/D1 DZ(JJ+1) = (D3*DZ(JJ+1) - D4*DZ(JJ))/D1 DZ(JJ ) = D5 330 CONTINUE GO TO 360 350 JJ = 2*ISIL + J D2 = DZ(JJ)*DZ(JJ) + DZ(JJ-1)*DZ(JJ-1) IF (D2.EQ.0.0D0 .OR. D1/D2.GT.1.0D6) GO TO 320 D3 = DZ(JJ-1) D4 = DZ(JJ ) D1 = D2 GO TO 320 360 CONTINUE CALL WRITE (PHID,DZ(J+1),NOUT*2,1) K = K + NROW*2 370 CONTINUE CALL CLOSE (PHID,1) C C PUT OUT OEIGS C CALL GOPEN (OEIGS,IZ(IBUF1),1) CALL WRITE (OEIGS,IHEAD,10,0) IZ(1) = NFOUND IZ(2) = NVECD IZ(3) = 0 IZ(4) = 0 IZ(5) = 0 IZ(6) = 0 IZ(7) = 0 IZ(8) = 1 CALL WRITE (OEIGS,IZ,40,0) CALL WRITE (OEIGS,HEAD,96,1) CALL CLOSE (OEIGS,1) MCB(1) = OEIGS MCB(2) = NFOUND MCB(3) = NVECD CALL WRTTRL (MCB) RETURN C C ERROR MESSAGES C 900 IP1 =-1 CALL MESAGE (IP1,FILE,NAME) RETURN C END ================================================ FILE: mis/hess2.f ================================================ SUBROUTINE HESS2(NROW,IDEN,IPV) C C HESS2 WILL GENERATE AN IDENTITY MATRIX AND A PARTIIONING VECTOR C INTEGER MCB(7) , IZ(1) INTEGER SYSBUF C COMMON /PACKX/IT1,IT2,II,JJ,INCR COMMON /SYSTEM/ KSYSTM(65) COMMON /ZZZZZZ/Z(1) C EQUIVALENCE ( KSYSTM( 1) , SYSBUF ) EQUIVALENCE ( Z(1),IZ(1) ) C C ---------------------------------------------------------------------- C CALL MAKMCB( MCB, IDEN, NROW, 8, 1 ) NZ = KORSZ(Z) IBUF1 = NZ- SYSBUF CALL GOPEN(IDEN,IZ(IBUF1),1) IT1=1 IT2=1 INCR=1 Z(1)=-1.0 DO 10 I=1,NROW II = I JJ=I CALL PACK(Z,IDEN,MCB) 10 CONTINUE CALL CLOSE(IDEN,1) CALL WRTTRL(MCB) C C BUILD PARTITIONING VECTOR C CALL MAKMCB( MCB, IPV, 2*NROW, 2, 1 ) CALL GOPEN(IPV,IZ(IBUF1),1) DO 20 I=1,NROW Z(I)=1.0 20 CONTINUE II = NROW+1 JJ= 2*NROW CALL PACK(Z,IPV,MCB) CALL WRTTRL(MCB) CALL CLOSE(IPV,1) RETURN END ================================================ FILE: mis/hmat.f ================================================ SUBROUTINE HMAT (ID) C C MAT ROUTINE FOR USE IN -HEAT- FORMULATIONS ONLY. C C CALL PREHMA (Z) SETUP CALL MADE BY SMA1A, EMGTAB, ETC. C C CALL HMAT (ELID) ELEMENT ROUTINE CALLS C C C REVISED BY G.CHAN/UNISYS C 5/90 - THE THERMAL CONDUCTIVITY OR CONVECTIVE FILM COEFFICIENT K, C IS TIME DEPENDENT IF MATT4 REFERS TO TABLEM5. TIME STEP IS C DEFINED VIA TSTEP IN /HMATDD/. IF TIME STEP IS NOT USED, C TSTEP SHOULD BE -999. C (TSTEP IS INITIALIZED TO -999. WHEN PREHMA IS CALLED) C 7/92 - NEW REFERENCE TO OPEN CORE ARRAY SUCH THAT THE SOURCE CODE C IS UP TO ANSI FORTRAN 77 STANDARD. C LOGICAL ANY4 ,ANY5 ,ANYT4 ,ANYT5 ,LINEAR , 1 ANYTAB INTEGER NAME(2) ,SYSBUF ,OUTPT ,FLAG ,CORE , 1 DIT ,OLDMID ,OLDFLG ,CLSREW ,CLS , 2 TYPE ,MAT4(2) ,MAT5(2) ,MATT4(2),MATT5(2), 3 TSET ,OFFSET ,TABLST(16) REAL CARD(10),RZ(1) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /ZZZZZZ/ Z(1) COMMON /MATIN / MATID ,INFLAG ,ELTEMP ,DUM(1) ,S ,C COMMON /HMTOUT/ BUF(7) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW ,CLS COMMON /HMATDD/ IHMATX ,NHMATX ,MPT ,DIT ,LINEAR , 1 ANYTAB ,TSTEP COMMON /SYSTEM/ KSYSTM(65) EQUIVALENCE (KSYSTM( 1),SYSBUF) ,(KSYSTM( 2),OUTPT ) , 1 (KSYSTM(10),TSET ) ,(KSYSTM(56),ITHERM) , 2 (F4,N4) ,(F5,N5) DATA NAME / 4HHMAT,4H /, NOEOR / 0 / DATA MAT4 / 2103 ,21 / DATA MAT5 / 2203 ,22 / DATA MATT4 / 2303 ,23 / DATA MATT5 / 2403 ,24 / DATA TABLST/ 5, 105,1,1, 205,2,2, 305,3,3, 405,4,4, 505,5,5 / C C CALL BUG (4HHMTI,0,MATID,6) C IF (ICHECK .NE. 123456789) CALL ERRTRC ('HMAT ',0) GO TO 200 C C ENTRY PREHMA (RZ) C ================= C IF (ITHERM) 500,500,10 10 ICHECK = 123456789 OFFSET = LOCFX(RZ(1)) - LOCFX(Z(1)) IF (OFFSET .LT. 0) CALL ERRTRC ('HMAT ',10) TSTEP = -999. IHMAT = IHMATX + OFFSET NHMAT = NHMATX + OFFSET LBUF = NHMAT - SYSBUF CORE = LBUF - IHMAT IF (CORE .LT. 10) CALL MESAGE (-8,0,NAME) CALL PRELOC (*125,Z(LBUF),MPT) C C LOCATE MAT4 CARDS AND BLAST THEM INTO CORE. C ANYTAB =.FALSE. ANY4 =.FALSE. IMAT4 = IHMAT + 1 NMAT4 = IHMAT CALL LOCATE (*40,Z(LBUF),MAT4,FLAG) CALL READ (*480,*30,MPT,Z(IMAT4),CORE,NOEOR,IWORDS) CALL MESAGE (-8,0,NAME) 30 NMAT4 = NMAT4 + IWORDS 40 MAT4S = (NMAT4 - IMAT4 + 1)/3 IF (MAT4S .GT. 0) ANY4 = .TRUE. C C LOCATE MATT4 CARDS AND BLAST THEM INTO CORE IF THERE WERE ANY MAT4 C ANYT4 =.FALSE. IMATT4 = NMAT4 + 1 NMATT4 = NMAT4 IF (.NOT.ANY4 .OR. (TSET.EQ.0 .AND. TSTEP.LT.0.)) GO TO 60 CALL LOCATE (*60,Z(LBUF),MATT4,FLAG) CALL READ (*480,*50,MPT,Z(IMATT4),CORE,NOEOR,IWORDS) CALL MESAGE (-8,0,NAME) 50 NMATT4 = NMATT4 + IWORDS 60 MATT4S = (NMATT4 - IMATT4 + 1)/2 IF (MATT4S .GT. 0) ANYT4 = .TRUE. C C LOCATE MAT5 CARDS AND BLAST THEM INTO CORE. C ANY5 =.FALSE. IMAT5 = NMATT4 + 1 NMAT5 = NMATT4 CALL LOCATE (*80,Z(LBUF),MAT5,FLAG) CALL READ (*480,*70,MPT,Z(IMAT5),CORE,NOEOR,IWORDS) CALL MESAGE (-8,0,NAME) 70 NMAT5 = NMAT5 + IWORDS 80 MAT5S = (NMAT5 - IMAT5 + 1)/8 IF (MAT5S .GT. 0) ANY5 = .TRUE. C C LOCATE MATT5 CARDS AND BLAST THEM INTO CORE IF THERE WERE ANY MAT5 C ANYT5 =.FALSE. IMATT5 = NMAT5 + 1 NMATT5 = NMAT5 IF (.NOT.ANY5 .OR. (TSET.EQ.0 .AND. TSTEP.LT.0.)) GO TO 100 CALL LOCATE (*100,Z(LBUF),MATT5,FLAG) CALL READ (*480,*90,MPT,Z(IMATT5),CORE,NOEOR,IWORDS) CALL MESAGE (-8,0,NAME) 90 NMATT5 = NMATT5 + IWORDS 100 MATT5S = (NMATT5 - IMATT5 + 1)/7 IF (MATT5S .GT. 0) ANYT5 = .TRUE. CALL CLOSE (MPT,CLSREW) C C IF A TEMPERATURE SET IS SPECIFIED -DIT- IS NOW READ INTO CORE, C PROVIDING ANY MATT4 OR MATT5 CARDS WERE PLACED INTO CORE. C IF ((TSET.EQ.0 .AND. TSTEP.LT.0.) .OR. 1 (.NOT.ANYT4 .AND. .NOT.ANYT5)) GO TO 130 C C BUILD LIST OF TABLE NUMBERS POSSIBLE FOR REFERENCE C KK = 0 ITABNO = NMATT5 + 1 NTABNO = ITABNO C IF (MATT4S .LE. 0) GO TO 110 DO 108 I = IMATT4,NMATT4,2 F4 = Z(I+1) IF (N4) 108,108,102 102 IF (KK) 107,107,103 103 DO 105 J = ITABNO,NTABNO F5 = Z(J) IF (N4 .EQ. N5) GO TO 108 105 CONTINUE C C ADD NEW TABLE ID TO LIST C 107 NTABNO = NTABNO + 1 Z(NTABNO) = Z(I+1) KK = 1 108 CONTINUE C 110 IF (MATT5S .LE. 0) GO TO 120 DO 118 I = IMATT5,NMATT5,7 J1 = I + 1 J2 = I + 6 DO 117 J = J1,J2 F4 = Z(J) IF (N4) 117,117,111 111 IF (KK) 115,115,113 113 DO 114 K = ITABNO,NTABNO F5 = Z(K) IF (N4 .EQ. N5) GO TO 117 114 CONTINUE C C ADD NEW TABLE ID TO LIST C 115 NTABNO = NTABNO + 1 Z(NTABNO) = Z(J) KK = 1 117 CONTINUE 118 CONTINUE C 120 N4 = NTABNO - ITABNO Z(ITABNO) = F4 C C CALL BUG (4HTABL,120,Z(ITABNO),NTABNO-ITABNO+1) C IF (N4) 130,130,122 122 CALL SORT (0,0,1,1,Z(ITABNO+1),N4) C C OK READ IN DIRECT-INPUT-TABLE (DIT) C IDIT = NTABNO + 1 IGBUF = NHMAT - SYSBUF - 2 LZ = IGBUF - IDIT - 1 IF (LZ .LT. 10) CALL MESAGE (-8,0,NAME) CALL PRETAB (DIT,Z(IDIT),Z(IDIT),Z(IGBUF),LZ,LUSED,Z(ITABNO), 1 TABLST) NDIT = IDIT + LUSED NHMAT = NDIT + 1 C C CALL BUG (4HDITS,123,Z(IDIT),NDIT-IDIT+1) C GO TO 140 C C WRAP UP THE PRE-HMAT SECTION C 125 NHMAT = IHMAT - 1 ANY4 =.FALSE. ANY5 =.FALSE. GO TO 140 130 NHMAT = NMATT5 140 OLDMID = 0 OLDFLG = 0 OLDSIN = 0.0 OLDCOS = 0.0 OLDTEM = 0.0 OLDSTP = 0.0 S = 0.0 C = 0.0 DUM(1) = 0.0 ELTEMP = 0.0 NHMATX = NHMAT - OFFSET C C CHECK FOR DUPLICATE MATID-S ON BOTH MAT4 AND MAT5 CARDS. C IF (.NOT.ANY4 .OR. .NOT.ANY5) GO TO 490 J4 = IMAT4 J5 = IMAT5 F4 = Z(J4) F5 = Z(J5) 150 IF (N4 - N5) 160,180,170 C C MAT4 ID IS LESS THAN MAT5 ID C 160 J4 = J4 + 3 IF (J4 .GT. NMAT4) GO TO 490 F4 = Z(J4) GO TO 150 C C MAT5 ID IS LESS THAN MAT4 ID. C 170 J5 = J5 + 8 IF (J5 .GT. NMAT5) GO TO 490 F5 = Z(J5) GO TO 150 C C ID OF MAT4 IS SAME AS THAT OF MAT5 C 180 WRITE (OUTPT,190) UWM,N4 190 FORMAT (A25,' 2155, MAT4 AND MAT5 MATERIAL DATA CARDS HAVE SAME ', 1 'ID =',I14, /5X,'MAT4 DATA WILL BE SUPPLIED WHEN CALLED ', 2 'FOR THIS ID.') GO TO 170 C C DATA RETURNED IF MAT-ID DATA RETURNED IF MAT-ID C INFLAG IS ON A MAT4 CARD IS ON A MAT5 CARD. C ================================================================= C C 1 1- K 1- KXX C 2- CP 2- CP C C 2 1- K 1- KXXB C 2- 0.0 2- KXYB C 3- K 3- KYYB C 4- CP 4- CP C C 3 1- K 1- KXX C 2- 0.0 2- KXY C 3- 0.0 3- KXZ C 4- K 4- KYY C 5- 0.0 5- KYZ C 6- K 6- KZZ C 7- CP 7- CP C C 4 1- CP 1- CP C C C C C DATA LOOK UP SECTION. FIND MAT-ID IN CARD IMAGES. C C 200 IF (INFLAG - OLDFLG) 260,210,260 210 IF (MATID - OLDMID) 260,220,260 220 IF (ELTEMP - OLDTEM) 260,225,260 225 IF (TSTEP - OLDSTP) 260,230,260 230 IF (TYPE .EQ. 4) GO TO 250 IF (S - OLDSIN) 260,240,260 240 IF (C - OLDCOS) 260,250,260 C C ALL INPUTS SEEM TO BE SAME THUS RETURN IS MADE. C 250 GO TO 490 C C FIND POINTER TO SECOND WORD OF CARD IMAGE WITH MAT-ID DESIRED. C AMONG EITHER MAT4S OR MAT5S. C 260 OLDFLG = INFLAG OLDMID = MATID OLDCOS = C OLDSIN = S OLDTEM = ELTEMP OLDSTP = TSTEP LINEAR = .TRUE. IF (.NOT.ANY4) GO TO 270 CALL BISLOC (*270,MATID,Z(IMAT4),3,MAT4S,JPOINT) J = IMAT4 + JPOINT TYPE = 4 GO TO 280 270 IF (.NOT. ANY5) GO TO 460 CALL BISLOC (*460,MATID,Z(IMAT5),8,MAT5S,JPOINT) J = IMAT5 + JPOINT TYPE = 5 C C IF A THERMAL SET IS REQUESTED (TSET.NE.0) THEN A FACTOR, WHICH IS C A FUNCTION OF THE AVERAGE ELEMENT TEMPERATURE, ELTEMP, (OR TIME C STEP, TSTEP) AND THE TABULATED VALUE IN TABLEMI, IS USED AS A C MULTIPLIER TO THE K-TERMS IN MAT4 OR MATT5 C C IF THE MATERIAL ID IS FOUND ON A -MAT4- AN ATTEMPT IS MADE TO FIND C A CORRESPONDING -MATT4- CARD. LIKEWISE THIS IS DONE IF THE C MATERIAL ID IS FOUND ON A -MAT5- CARD WITH RESPECT TO A -MATT5- C CARD. IF THE -MAT4- OR -MAT5- HAS A RESPECTIVE -MATT4- OR -MATT5- C CARD, THEN THE THERMAL CONDUCTIVITY OR THE CONVECTIVE FILM COEFF. C K, IS TEMPERATURE DEPENDENT IF TABLEM1, TABLEM2, TABLEM3 AND C TABLEM4 ARE REFERENECED. K IS TIME DEPENDENT IF TABLEM5 IS USED. C THE K-TERMS OF THE -MAT4- OR -MAT5- CARDS WILL BE MODIFIED BY C USING -ELTEMP- AND THE -DIT- AS SPECIFIED IN THE RESPECTIVE FIELDS C OF THE RESPECTIVE -MATT4- OR -MATT5- CARD. A ZERO T(K) IN A C PARTICULAR FIELD OF THE RESPECTIVE -MATT4- OR -MATT5- CARD IMPLIES C NO TEMPERATURE DEPENDENCE FOR THAT RESPECTIVE K VALUE. C -DIT- TABLES TABLEM1, TABLEM2, TABLEM3, TABLEM4 AND TABLEM5 MAY BE C USED. C C C MOVE MAT CARD INTO SPECIAL BUF WHERE IT CAN BE MODIFIED IF C NECESSARY C 280 DO 290 I = 1,10 CARD(I) = Z(J) J = J + 1 290 CONTINUE C C CHECK FOR EXISTENCE OF A THERMAL SET REQUEST OR TIME STEP. C IF ((TSET.EQ.0 .AND. TSTEP.LT.0.) .OR. INFLAG.EQ.4) GO TO 350 C C IF -MAT4- CARD, FIND THE -MATT4- CARD C (IF NO MATT4 ASSUME NO TEMPERATURE OR TIME DEPENDENCE) C IF (TYPE .EQ. 5) GO TO 300 IWORDS = 2 IMAT = IMATT4 MATS = MATT4S GO TO 310 300 IWORDS = 7 IMAT = IMATT5 MATS = MATT5S 310 IF (MATS) 350,350,315 315 CALL BISLOC (*350,MATID,Z(IMAT),IWORDS,MATS,JPOINT) ITEMP = IMAT + JPOINT NTEMP = ITEMP + IWORDS - 2 C C Z(I) FIELDS SPECIFYING A NON-ZERO TABLE IMPLY TEMPERATURE (OR C TIME) DEPENDENCE ON CORRESPONDING FIELDS OF THE MAT4 OR MAT5 C STORED IN THE ARRAY -CARD-. C KK = 0 DO 340 I = ITEMP,NTEMP KK = KK + 1 F4 = Z(I) IF (N4) 340,340,320 C C OK TEMPERATURE (OR TIME) DEPENDENCE. C 320 IF (TSET .GT. 0) X = ELTEMP IF (TSTEP .GE. 0.) X = TSTEP CALL TAB (N4,X,FACTOR) CARD(KK) = CARD(KK)*FACTOR LINEAR = .FALSE. 340 CONTINUE C C BRANCH ON INFLAG. C 350 IF (INFLAG.LT.1 .OR. INFLAG.GT.4) GO TO 440 GO TO (360,380,400,420), INFLAG C C INFLAG = 1 C 360 IF (TYPE .EQ. 5) GO TO 370 BUF(1) = CARD(1) BUF(2) = CARD(2) GO TO 490 370 BUF(1) = CARD(1) BUF(2) = CARD(7) GO TO 490 C C INFLAG = 2 C 380 IF (TYPE .EQ. 5) GO TO 390 BUF(1) = CARD(1) BUF(2) = 0.0 BUF(3) = BUF(1) BUF(4) = CARD(2) GO TO 490 390 CSQ = C*C SSQ = S*S CS = C*S CS2KXY = CS *2.0*CARD(2) BUF(1) = CSQ* CARD(1) - CS2KXY + SSQ*CARD(4) BUF(2) = CS *(CARD(1) - CARD(4)) + (CSQ - SSQ)*CARD(2) BUF(3) = SSQ* CARD(1) + CS2KXY + CSQ*CARD(4) BUF(4) = CARD(7) GO TO 490 C C INFLAG = 3 C 400 IF (TYPE .EQ. 5) GO TO 410 BUF(1) = CARD(1) BUF(2) = 0.0 BUF(3) = 0.0 BUF(4) = BUF(1) BUF(5) = 0.0 BUF(6) = BUF(1) BUF(7) = CARD(2) GO TO 490 410 BUF(1) = CARD(1) BUF(2) = CARD(2) BUF(3) = CARD(3) BUF(4) = CARD(4) BUF(5) = CARD(5) BUF(6) = CARD(6) BUF(7) = CARD(7) GO TO 490 C C INFLAG = 4. RETURN ONLY CP. C 420 IF (TYPE .EQ. 5) GO TO 430 BUF(1) = CARD(2) GO TO 490 430 BUF(1) = CARD(7) GO TO 490 C C ERROR CONDITIONS C 440 WRITE (OUTPT,450) SFM,INFLAG 450 FORMAT (A25,' 2156, ILLEGAL INFLAG =',I14,' RECEIVED BY HMAT.') GO TO 520 460 WRITE (OUTPT,470) UFM,MATID 470 FORMAT (A23,' 2157, MATERIAL ID =',I14, 1 ' DOES NOT APPEAR ON ANY MAT4 OR MAT5 MATERIAL DATA CARD.') GO TO 520 480 CALL MESAGE (-2,MPT,NAME) GO TO 520 C C RETURN LOGIC C 490 CONTINUE C C CALL BUG (4HHMAT,490,BUF,7) C RETURN C C ERROR - HMAT CALLED IN NON-THERMAL PROBLEM. C 500 WRITE (OUTPT,510) SFM 510 FORMAT (A25,' 3062, HMAT MATERIAL ROUTINE CALLED IN A NON-HEAT-', 1 'TRANSFER PROBLEM.') 520 CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/hring.f ================================================ SUBROUTINE HRING (POINTS) C C HEAT CONDUCTIVITY SMA1 ROUITNE FOR TRIANGULAR (POINTS=3) AND C TRAPEZOIDAL (POINTS=4) RING ELEMENTS. C THIS ROUTINE IS SEPARATE FROM KTRAPR AND KTRIRG SO AS TO BE C IN OVERLAY WITH KTRMEM AND KQDMEM. C LOGICAL NOGO INTEGER POINTS ,OUTPT ,SYSBUF ,TINT ,MAP(15) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 ,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM ,SWM COMMON /SYSTEM/ SYSBUF ,OUTPT ,NOGO COMMON /SMA1ET/ ECPT(100) EQUIVALENCE (T,TINT) DATA PI23 / 2.0943951024E0 / DATA MAP / 1,2,3, 1,2,3, 2,3,4, 3,4,1, 4,1,2 / C C ECPT LISTS C C ECPT TRIRG -------- TRMEM TRAPRG ------- QDMEM C =========================================================== C 1 EL-ID EL-ID EL-ID EL-ID C 2 SIL-1 SIL-1 SIL-1 SIL-1 C 3 SIL-2 SIL-2 SIL-2 SIL-2 C 4 SIL-3 SIL-3 SIL-3 SIL-3 C 5 THETA THETA SIL-4 SIL-4 C 6 MATID MATID THETA THETA C 7 CSID-1 T MATID MATID C 8 X1 NS-MASS CSID-1 T C 9 Y1 CSID-1 X1 NS-MASS C 10 Z1 X1 Y1 CSID-1 C 11 CSID-2 Y1 Z1 X1 C 12 X2 Z1 CSID-2 Y1 C 13 Y2 CSID-2 X2 Z1 C 14 Z2 X2 Y2 CSID-2 C 15 CSID-3 Y2 Z2 X2 C 16 X3 Z2 CSID-3 Y2 C 17 Y3 CSID-3 X3 Z2 C 18 Z3 X3 Y3 CSID-3 C 19 AVG-TEMP Y3 Z3 X3 C 20 Z3 CSID-4 Y3 C 21 AVG-TEMP X4 Z3 C 22 Y4 CSID-4 C 23 Z4 X4 C 24 AVG-TEMP Y4 C 25 Z4 C 26 AVG-TEMP C C GEOMETRY CHECKS X MUST BE .GT.0, AND Y = 0 FOR I = 1,2,..,PTS. C I I C I1 = POINTS + 4 I2 = I1 + 4*POINTS - 1 DO 100 I = I1,I2,4 IF (ECPT(I+1)) 900,900,90 90 IF (ECPT(I+2)) 900,100,900 100 CONTINUE C C POINT ORDERING CHECK. C IF (POINTS .EQ. 4) GO TO 200 I1 = 1 I2 = 3 GO TO 300 200 I1 = 4 I2 = 15 300 JPOINT = POINTS + 1 DO 600 I = I1,I2,3 IR = MAP(I )*4 + JPOINT IS = MAP(I+1)*4 + JPOINT IT = MAP(I+2)*4 + JPOINT TEMP = (ECPT(IS) - ECPT(IR))*(ECPT(IT+2) - ECPT(IS+2)) - 1 (ECPT(IT) - ECPT(IS))*(ECPT(IS+2) - ECPT(IR+2)) IF (TEMP) 900,900,600 600 CONTINUE C C TRAPEZOID TEST. C IF (POINTS .NE. 4) GO TO 700 IF (ECPT(11)-ECPT(15)) 650,640,650 640 IF (ECPT(19)-ECPT(23)) 650,670,650 650 CALL PAGE2 (-2) WRITE (OUTPT,660) SWM,ECPT(1) 660 FORMAT (A27,' 2158, A TRAPRG ELEMENT =',I14, 1 ' DOES NOT HAVE SIDE 1-2 PARALLEL TO SIDE 3-4.') C C THICKNESS OF TRMEM OR QDMEM TO BE CALLED BELOW. C QDMEM WILL SUBDIVIDE THICKNESS FOR SUB-TRIANGLES AND THUS C T IS SET = INTEGER 1 AS A FLAG TO QDMEM ROUTINE WHICH WILL C COMPUTE T FOR EACH. C 670 TINT = 1 TINT = TINT GO TO 750 700 T = PI23*(ECPT(8) + ECPT(12) + ECPT(16)) C C CONVERT ECPT TO THAT OF A TRMEM OR QDMEM. C 750 J = 5*POINTS + 6 K = 4*POINTS + 1 DO 800 I = 1,K ECPT(J) = ECPT(J-2) J = J - 1 800 CONTINUE ECPT(POINTS+4) = T ECPT(POINTS+5) = 0.0 IF (POINTS .EQ. 4) GO TO 850 CALL KTRMEM (0) RETURN C 850 CALL KQDMEM RETURN C C BAD GEOMETRY FATAL ERROR. C 900 WRITE (OUTPT,910) UFM,ECPT(1) 910 FORMAT (A23,' 2159, TRIRG OR TRAPRG ELEMENT =',I14, 1 ' POSSESSES ILLEGAL GEOMETRY.') NOGO = .TRUE. RETURN END ================================================ FILE: mis/hsbg.f ================================================ SUBROUTINE HSBG(N,A,IA,B) C C .................................................................. C C SUBROUTINE HSBG C C PURPOSE C TO REDUCE A REAL MATRIX INTO UPPER ALMOST TRIANGULAR FORM C C USAGE C CALL HSBG(N,A,IA) C C DESCRIPTION OF THE PARAMETERS C N ORDER OF THE MATRIX C A THE INPUT MATRIX, N BY N C IA SIZE OF THE FIRST DIMENSION ASSIGNED TO THE ARRAY C A IN THE CALLING PROGRAM WHEN THE MATRIX IS IN C DOUBLE SUBSCRIPTED DATA STORAGE MODE. IA=N WHEN C THE MATRIX IS IN SSP VECTOR STORAGE MODE. C C REMARKS C THE HESSENBERG FORM REPLACES THE ORIGINAL MATRIX IN THE C ARRAY A. C C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED C NONE C C METHOD C SIMILARITY TRANSFORMATIONS USING ELEMENTARY ELIMINATION C MATRICES, WITH PARTIAL PIVOTING. C C REFERENCES C J.H. WILKINSON - THE ALGEBRAIC EIGENVALUE PROBLEM - C CLARENDON PRESS, OXFORD, 1965. C C .................................................................. C DIMENSION B(1) DOUBLE PRECISION A(1),PIV,S,T C C MAKE THIS ROUTINE DOUBLE A AND B ARE SAME SPACE C N2=N*N K=N2 DO 10 I=1,N2 A(K)=B(K) 10 K=K-1 L=N NIA=L*IA LIA=NIA-IA C C L IS THE ROW INDEX OF THE ELIMINATION C 20 IF(L-3) 360,40,40 40 LIA=LIA-IA L1=L-1 L2=L1-1 C C SEARCH FOR THE PIVOTAL ELEMENT IN THE LTH ROW C ISUB=LIA+L IPIV=ISUB-IA PIV=DABS(A(IPIV)) IF(L-3) 90,90,50 50 M=IPIV-IA DO 80 I=L,M,IA T=DABS(A(I)) IF(T-PIV) 80,80,60 60 IPIV=I PIV=T 80 CONTINUE 90 IF(PIV) 100,320,100 100 IF(PIV-DABS(A(ISUB))) 180,180,120 C C INTERCHANGE THE COLUMNS C 120 M=IPIV-L DO 140 I=1,L J=M+I T=A(J) K=LIA+I A(J)=A(K) 140 A(K)=T C C INTERCHANGE THE ROWS C M=L2-M/IA DO 160 I=L1,NIA,IA T=A(I) J=I-M A(I)=A(J) 160 A(J)=T C C TERMS OF THE ELEMENTARY TRANSFORMATION C 180 DO 200 I=L,LIA,IA A(I)=A(I)/A(ISUB) 200 CONTINUE C C RIGHT TRANSFORMATION C J=-IA DO 240 I=1,L2 J=J+IA LJ=L+J DO 220 K=1,L1 KJ=K+J KL=K+LIA A(KJ)=A(KJ)-A(LJ)*A(KL) 220 CONTINUE 240 CONTINUE C C LEFT TRANSFORMATION C K=-IA DO 300 I=1,N K=K+IA LK=K+L1 S=A(LK) LJ=L-IA DO 280 J=1,L2 JK=K+J LJ=LJ+IA S=S+A(LJ)*A(JK) 280 CONTINUE 300 A(LK)=S C C SET THE LOWER PART OF THE MATRIX TO ZERO C DO 310 I=L,LIA,IA 310 A(I)=0.0 320 L=L1 GO TO 20 360 RETURN END ================================================ FILE: mis/iapd.f ================================================ FUNCTION IAPD(I,J,NC,NCRD) IF(J.NE.1) GO TO 10 IAPD=NCRD+1 IF(I.EQ.1) RETURN IAPD=IAPD+1 IF(I.EQ.2) RETURN IAPD=3+3*(I-2)+NCRD RETURN 10 IF(J.NE.2) GO TO 20 IAPD=3+NCRD IF(I.EQ.1) RETURN IAPD=4+NCRD IF(I.EQ.2) RETURN IAPD=4+3*(I-2)+NCRD RETURN 20 IAPD=J+NC*(2*J-3)+NCRD IF(I.EQ.1) RETURN IAPD=IAPD+1 IF(I.EQ.2) RETURN IAPD=IAPD+2*(I-2) RETURN END ================================================ FILE: mis/idf1.f ================================================ SUBROUTINE IDF1 (EE,E2, ETA01,ZET01,ARE,AIM,BRE,BIM,CRE,CIM, 1 R1SQX,XIIJR,XIIJI) C *** INTEGRATES THE PLANAR PARTS OF THE INCREMENTAL C OSCILLATORY KERNELS FOR UNSTEADY CASES PI = 3.1415926 PARN = ETA01**2 - ZET01**2 FACR = PARN*ARE + ETA01*BRE + CRE FACI = PARN*AIM + ETA01*BIM + CIM PARNR= BRE/2.0 + ETA01*ARE PARNI= BIM/2.0 + ETA01*AIM UP = (ETA01-EE)**2 + ZET01**2 DOWN = (ETA01+EE)**2 + ZET01**2 ARG2 = UP/DOWN ALARG2 = ALOG(ARG2) TRM2R= PARNR * ALOG(ARG2) TRM2I= PARNI * ALOG(ARG2) TRM3R= 2.0*EE* ARE TRM3I= 2.0*EE* AIM AZET = ABS(ZET01) IF ((AZET/EE) . LE . 0.001) GO TO 100 TEST0= ABS((R1SQX-E2)/(2.0*EE*AZET)) IF (TEST0.LE.0.0001) GO TO 110 COEF = (2.0*EE)/(R1SQX-E2) ARGA = COEF*ZET01 TEST = ABS(ARGA) IF (TEST.LE.0.3) GO TO 120 ARGT = COEF*AZET ATANA= ATAN(ARGT) FUNCT= ATANA/AZET GO TO 170 100 CONTINUE FUNCT= (2.0*EE)/(ETA01**2-E2) GO TO 170 110 CONTINUE FUNCT= 0.0 GO TO 170 120 CONTINUE S = ARGA**2 SER = 1./3.+S*(-1./5.+S*(1./7.+S*(-1./9.+S*(1./11.-S/13.)))) ALPHA= E2*(COEF**2)*SER FUNCT= COEF*(1.0-ALPHA*(ZET01**2)/E2) 170 CONTINUE TRM1R= FACR * FUNCT TRM1I= FACI * FUNCT XIIJR= TRM1R + TRM2R + TRM3R XIIJI= TRM1I + TRM2I + TRM3I RETURN END ================================================ FILE: mis/idf2.f ================================================ SUBROUTINE IDF2(EE,E2, ETA01,ZET01,A2R,A2I,B2R,B2I,C2R,C2I, 1 R1SQX,DIIJR,DIIJI) C *** INTEGRATES THE NONPLANAR PARTS OF THE INCREMENTAL C OSCILLATORY KERNELS FOR UNSTEADY CASES EPS = 0.0001 AZET = ABS(ZET01) DENO = R1SQX-E2 PARN = ETA01**2 + ZET01**2 FACR = PARN*A2R + ETA01*B2R + C2R FACI = PARN*A2I + ETA01*B2I + C2I ETA02=ETA01**2 ZET02= ZET01**2 IF ((AZET/EE) . LE . 0.001) GO TO 120 TEST0= ABS((R1SQX-E2)/(2.0*EE*AZET)) IF (TEST0.GT.0.1) GO TO 120 DEN2 = (ETA01+EE)**2+ZET02 DEN3 = (ETA01-EE)**2+ZET02 FAC2A= R1SQX*ETA01+(ETA02-ZET02)*EE FAC3A= R1SQX*ETA01-(ETA02-ZET02)*EE FAC2B= R1SQX+ETA01*EE FAC3B= R1SQX-ETA01*EE TRM2R= (FAC2A*A2R+FAC2B*B2R+(ETA01+EE)*C2R)/DEN2 TRM2I= (FAC2A*A2I+FAC2B*B2I+(ETA01+EE)*C2I)/DEN2 TRM3R=-(FAC3A*A2R+FAC3B*B2R+(ETA01-EE)*C2R)/DEN3 TRM3I=-(FAC3A*A2I+FAC3B*B2I+(ETA01-EE)*C2I)/DEN3 IF (TEST0.LE.0.0001) GO TO 110 COEF = (2.0*EE)/(R1SQX-E2) ARGA = COEF*ZET01 TEST = ABS(ARGA) IF (TEST.GT.0.3) GO TO 90 S = ARGA**2 SER = 1./3.+S*(-1./5.+S*(1./7.+S*(-1./9.+S*(1./11.-S/13.)))) ALPHA= E2*(COEF**2)*SER FUNCT= COEF*(1.0-ALPHA*(ZET01**2)/E2) GO TO 100 90 CONTINUE ARGT = COEF*AZET ATANA= ATAN(ARGT) FUNCT= ATANA/AZET 100 CONTINUE TRM1R= FACR*FUNCT TRM1I= FACI*FUNCT DIIJR= (TRM1R + TRM2R + TRM3R)/(2.0*ZET02) DIIJI= (TRM1I + TRM2I + TRM3I)/(2.0*ZET02) GO TO 170 110 CONTINUE FUNCT= 0.0 GO TO 100 120 CONTINUE DENA = (ETA01+EE)**2 + ZET01**2 DENB = (ETA01-EE)**2 + ZET01**2 UP1R = 2.0*(E2*A2R + C2R) UP1I = 2.0*(E2*A2I + C2I) UP2R = 4.0*E2*ETA01*B2R UP2I = 4.0*E2*ETA01*B2I TRM1R= (UP1R *(R1SQX+E2) + UP2R )/(DENA*DENB) TRM1I= (UP1I *(R1SQX+E2) + UP2I )/(DENA*DENB) IF ((AZET/EE) . LE . 0.001) GO TO 130 COEF = (2.0*EE)/(R1SQX-E2) ARGA = COEF*ZET01 TEST = ABS(ARGA) IF (TEST.GT.0.3) GO TO 125 S = ARGA**2 SER = 1./3.+S*(-1./5.+S*(1./7.+S*(-1./9.+S*(1./11.-S/13.)))) ALPHA= E2*(COEF**2)*SER FUNCT= COEF*(1.0-ALPHA*(ZET01**2)/E2) GO TO 140 125 CONTINUE ARGT= COEF*AZET ATANA= ATAN(ARGT) FUNCT= ATANA/AZET ALPHA= (E2/ZET02)*(1.0-FUNCT*(DENO/(2.0*EE))) GO TO 140 130 CONTINUE ALPHA= ((2.0*E2)/(ETA02-E2))**2 140 CONTINUE TRM2R= -ALPHA*FACR/E2 TRM2I= -ALPHA*FACI/E2 DIIJR= EE*(TRM1R + TRM2R)/DENO DIIJI= EE*(TRM1I + TRM2I)/DENO 170 CONTINUE RETURN END ================================================ FILE: mis/idist.f ================================================ FUNCTION IDIST (NS,ML,MAXLEV,IG,IC,IDEG,IDIS,IW,ICC,JG) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C THIS FUNCTION HAS AS ITS VALUE THE MAXIMUM DISTANCE OF ANY NODE C IN COMPONENT IC(NS) FROM THE NODE NS. C THE DISTANCE OF EACH NODE IN THIS COMPONENT IS STORED IN THE ARRAY C IDIS. C THE MAXIMUM NUMBER OF NODES AT THE SAME DISTANCE FROM NS IS C STORED IN ML. C C INTEGER BUNPK DIMENSION IC(1), IDEG(1), IDIS(1), IW(1), ICC(1), 1 IG(1), JG(1) COMMON /BANDS / NN C ICN = IC(NS) NNC = ICC(ICN+1) - ICC(ICN) DO 50 I = 1,NN IF (IC(I)-IC(NS)) 50,40,50 40 IDIS(I) = 0 50 CONTINUE LL = 1 L = 0 KI = 0 KO = 1 ML = 0 IW(1) = NS IDIS(NS) = -1 130 KI = KI + 1 IF (KI-LL) 135,132,135 132 L = L + 1 LL = KO + 1 K = KO - KI + 1 IF (K-ML) 135,135,133 133 ML = K IF (ML-MAXLEV) 135,135,220 135 II = IW(KI) N = IDEG(II) IF (N) 140,215,140 140 CALL BUNPAK (IG,II,N,JG) DO 200 I = 1,N IA = JG(I) IF (IDIS(IA)) 200,150,200 150 IDIS(IA) = L KO = KO + 1 IW(KO) = IA 200 CONTINUE IF (KO-NNC) 130,205,205 205 IDIST = L IDIS(NS) = 0 K = KO - LL + 1 IF (K-ML) 206,206,207 207 ML = K 206 CONTINUE RETURN C 215 L = 0 GO TO 205 220 IDIST = 1 RETURN END ================================================ FILE: mis/idplot.f ================================================ SUBROUTINE IDPLOT (IDX) C COMMON /OUTPUT/ SKPOUT(32,6),ID(32) COMMON /PLTDAT/ SKPPLT(2),XYMIN(2),XYMAX(2),AXYMAX(2),EDGE(12) 1, SKPA(3),CNTX,CNTY,SKPB(4),PLTYPE INTEGER PLTYPE C INTEGER BLANK REAL SAVE(2,4) DATA BLANK,LINSIZ / 1H ,3 / C C DOES A PLOT ID EXIST AT ALL C IDX = 1 DO 101 I = 1,20 IF (ID(I).NE.BLANK) GO TO 102 101 CONTINUE IDX = 0 GO TO 200 C 102 DO 103 I = 1,2 SAVE(I,1) = XYMIN(I) XYMIN(I) = 0. SAVE(I,2) = XYMAX(I) XYMAX(I) = AXYMAX(I)+EDGE(I) SAVE(I,3) = AXYMAX(I) AXYMAX(I) = XYMAX(I) SAVE(I,4) = EDGE(I) EDGE(I) = 0. 103 CONTINUE NLINES = (AXYMAX(2)-7.*CNTY) / FLOAT(2*LINSIZ) + .1 IF (IABS(PLTYPE).NE.1) GO TO 122 C C FILL TOP HALF OF PLOT WITH X-AXIS LINES ALL THE WAY ACROSS. C CALL AXIS (0,0,0,0,0,-1) DO 111 I = 1,NLINES Y = XYMAX(2) - FLOAT((I-1)*LINSIZ) CALL AXIS (XYMIN(1),Y,XYMAX(1),Y,1,0) 111 CONTINUE C C PRINT THE PLOT ID 2 TIMES IN THE MIDDLE OF THE PLOT. C CALL PRINT (0,0,0,0,0,-1) X = XYMIN(1) + AMAX1(0.,(AXYMAX(1)-80.*CNTX)/2.) YY = Y-CNTY DO 116 I = 1,2 Y = YY - CNTY*FLOAT(I-1) CALL PRINT (X,Y,1,ID,20,0) 116 CONTINUE C C FILL BOTTOM HALF OF PLOT WITH X-AXIS LINES ALL THE WAY ACROSS. C CALL AXIS (0,0,0,0,0,-1) DO 121 I = 1,NLINES Y = XYMIN(2) + FLOAT((I-1)*LINSIZ) CALL AXIS (XYMIN(1),Y,XYMAX(1),Y,1,0) 121 CONTINUE CALL AXIS (0,0,0,0,0,1) GO TO 125 C C NOT A CRT PLOTTER. TYPE THE ID ONCE AT THE BOTTOM OF THE PAPER. C 122 CALL PRINT (0,0,0,0,0,-1) X = XYMIN(1) + AMAX1(0.,(AXYMAX(1)-80.*CNTX)/2.) Y = 0. IF (PLTYPE.LT.0) Y=CNTY/2. CALL PRINT (X,Y,1,ID,20,0) C C END OF ID PLOT. PUT BLANKS IN THE PLOT ID. C 125 CALL PRINT (0,0,0,0,0,1) DO 126 I = 1,20 ID(I) = BLANK 126 CONTINUE DO 127 I = 1,2 XYMIN(I) = SAVE(I,1) XYMAX(I) = SAVE(I,2) AXYMAX(I) = SAVE(I,3) EDGE(I) = SAVE(I,4) 127 CONTINUE C 200 RETURN END ================================================ FILE: mis/ifb2ar.f ================================================ SUBROUTINE IFB2AR (TYPE,IFB,AR,L) C C THIS ROUTINE STORES IN ARRAY AR(L+1) THE BCD VALUE OF IFB, AND C UPDATE THE L COUNTER C C IF TYPE=1, IFB IS AN INTEGER, AND 8 DIGITS ARE USED IN AR, AND C L IS INCREASED BY 2 (INTEGER IS RIGHT ADJUSTED) C IF TYPE=2, IFB IS A REAL NUMBER, 12 DIGITS ARE USED IN AR, AND C L IS INCREASED BY 3 C IF TYPE=3, IFB IS A BCD WORD, 4 LETTERS ARE USE IN AR, AND C L IS INCREASED BY 1 C INTEGER IA,TYPE,IFB,AR(1),L,SUB(2),ZERO(2) REAL RA,X,XL CHARACTER*7 FMTX,FMT(10) CHARACTER*8 C8 CHARACTER*10 FMTY,FNT(9) CHARACTER*12 C12 EQUIVALENCE (IA,RA) DATA FMT / '(F12.9)', '(F12.8)', '(F12.7)', '(F12.6)', '(F12.5)', 1 '(F12.4)', '(F12.3)', '(F12.2)', '(F12.1)', '(F12.0)'/ DATA FNT /'(1X,F11.8)', '(1X,F11.7)', '(1X,F11.6)', '(1X,F11.5)', 1 '(1X,F11.4)', '(1X,F11.3)', '(1X,F11.2)', '(1X,F11.1)', 2 '(1X,F11.0)'/ DATA ZERO/ 4H , 4H 0.0 / DATA SUB / 4HIFB2, 4HAR / C K = -1 J = TYPE + 1 GO TO (300,200,300,250), J 100 K = K + 1 IF (K) 150,200,250 150 CALL MESAGE (-37,0,SUB) C C INTEGER, RIGHT ADJUSTED C 200 WRITE (C8,210,ERR=300) IFB READ (C8,220) AR(L+1),AR(L+2) 210 FORMAT (I8) 220 FORMAT (2A4) L = L + 2 RETURN C C BCD WORD C 250 AR(L+1) = IFB L = L + 1 RETURN C C REAL NUMBER C 300 IA = IFB X = ABS(RA) IF (X .LT. 1.0E-36) GO TO 390 XL = ALOG10(X) IF (XL.GT.-4.0 .AND. XL.LT.10.0) IF (XL-1.0) 350,350,330 310 WRITE (C12,320,ERR=100) RA 320 FORMAT (1P,E12.5) GO TO 370 330 I = XL IF (RA .LT. 0.) I = I + 1 IF (I.LE.0 .OR. I.GT.9 ) GO TO 310 IF (RA.GT.0. .AND. XL.GT.0.) GO TO 340 FMTX = FMT(I) GO TO 360 340 FMTY = FNT(I) WRITE (C12,FMTY) RA GO TO 370 350 FMTX = FMT(1) 360 WRITE (C12,FMTX) RA 370 READ (C12,380) (AR(L+J),J=1,3) 380 FORMAT (3A4) GO TO 400 390 AR(L+1) = ZERO(1) AR(L+2) = ZERO(1) AR(L+3) = ZERO(2) 400 L = L + 3 RETURN END ================================================ FILE: mis/ifp.f ================================================ SUBROUTINE IFP C IMPLICIT INTEGER (A-Z) EXTERNAL ORF,ANDF LOGICAL BADFOR,BADDAT,ABORT,EOFFLG,CF,CL,IAX,LHARM INTEGER FNM(2,16),II(16),IFLE(16),STATUS(16),IBLKDA(2), 1 JR(20),IEND(3),ITRL(7),IFPNA1(2),NM(2),KAP(4), 2 AP(12),KKL(40),IFPNA2(2),OOO(5),MENTRY(40), 3 NAME(2),INAM(2),ITYPE(2),NENTRY(80),ITYPE1(2), 4 ITYPE2(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / ENDARA(40) COMMON /SYSTEM/ N1,NOUT,ABORT,N2(17),IAPP,N3(5),AXICCC,JUNK(10), 1 AXIFCC,DUM(30),ISUBS COMMON /TWO / TWO(32) COMMON /IFPDTA/ ID,N,K,KX,KY,I(100),M(100),MF(100),M1(100), 1 M1F(100),KN,BADDAT,BADFOR,NOPEN,NPARAM,IAX,NAX, 2 IAXF,NAXF,LHARM,KNT,KSLOT1,KSLOT2,KSLOT3,KSLOT4, 3 KSLOT5,GC(7),LL(6) COMMON /ZZZZZZ/ IBUFF(1) C C NCDS = LENGTH OF T1 C NCDSMX = NO. OF CARD NAMES IN NASTRAN C T3(1,K) = THE GINO OUTPUT FILE NUMBER C T3(2,K) = THE APPROACH ACCEPTANCE FLAG C T4(1,K) = THE CONICAL SHELL PROBLEM FLAG C T4(2,K) = USED AS INTERNAL STORAGE WITHIN IFP C T5(1,K) = THE MIN NO. OF WORDS ALLOWED PER CARD C (MINUS MEANS OPEN-ENDED CARD) C T5(2,K) = THE MAX NO. OF WORDS ALLOWED PER CARD C T6(1,K) = THE FORMAT CHECK POINTER INTO F( ) C T6(2,K) = FIELD 2 UNIQUENESS CHECK FLAG C T7(1,K) = LOCATE CODE C T7(2,K) = TRAILER BIT POSITION C F(T6(1,K)) = THE START OF THE FORMAT ACCEPTANCE STRING C C T1(1,K),T1(2,K) = THE BCD CARD NAMES C COMMON /IFPX0 / LBD,LCC,IB(18) COMMON /IFPX1 / NCDS,T1(2,370) COMMON /IFPX2 / T3(2,370) COMMON /IFPX3 / T4(2,370) COMMON /IFPX4 / T5(2,370) COMMON /IFPX5 / T6(2,370) COMMON /IFPX6 / T7(2,370) COMMON /IFPX7 / F(1469) EQUIVALENCE (N3(3),IUMFED), (N2(9),LINE) DATA NCDSMX/ 359 / DATA NFLS / 16 / DATA FNM(1, 1),FNM(2, 1) / 4HGEOM,4H1 / DATA FNM(1, 2),FNM(2, 2) / 4HEPT ,4H / DATA FNM(1, 3),FNM(2, 3) / 4HMPT ,4H / DATA FNM(1, 4),FNM(2, 4) / 4HEDT ,4H / DATA FNM(1, 5),FNM(2, 5) / 4HDIT ,4H / DATA FNM(1, 6),FNM(2, 6) / 4HPVT ,4H / DATA FNM(1, 7),FNM(2, 7) / 4HDYNA,4HMICS/ DATA FNM(1, 8),FNM(2, 8) / 4HGEOM,4H2 / DATA FNM(1, 9),FNM(2, 9) / 4HGEOM,4H3 / DATA FNM(1,10),FNM(2,10) / 4HGEOM,4H4 / DATA FNM(1,11),FNM(2,11) / 4HGEOM,4H5 / DATA FNM(1,12),FNM(2,12) / 4HPOOL,4H / DATA FNM(1,13),FNM(2,13) / 4HFORC,4HE / DATA FNM(1,14),FNM(2,14) / 4HMATP,4HOOL / DATA FNM(1,15),FNM(2,15) / 4HAXIC,4H / DATA FNM(1,16),FNM(2,16) / 4HIFPF,4HILE / DATA IFLE / 201,202,203,204,205,4HNPTP,207,208,209,210,211, 1 4HPOOL ,213,214,215,216 / DATA IEND , EOFZ /3*2147483647,4HZZZZ / DATA KKL / 48, 49, 50, 67, 71, 75, 68, 72, 76, 11, 1 10*0 , 2 45, 46, 44, 41,250,260, 39, 42,121, 34, 3 37, 43, 31, 7*0/ DATA IBLKDA / 4HBULK, 4HDATA /, OOO / 1HA,1HB,1HC,1HD,1HE/ DATA BLANK / 1H /, KAP / 0,-1,1,-1/ DATA IFPNA1 / 4HIFP ,4HBEGN/, IFPNA2/ 4HIFP ,4HEND / DATA IPARM , IVARY /4H1PAR , 4H1VAR/ DATA ICOUNT , JCOUNT, KCOUNT/ 3*0 / DATA IT1K , IT2K , JT1K ,JT2K , KT1K ,KT2K / & 1H , 1H , 1H , 1H , 1H , 1H / DATA AP / 4HDMAP,4H , 4H , 1 4HDISP,4HLACE , 4HMENT, 2 4HHEAT,4H , 4H , 3 4HAERO,4H , 4H / DATA MENTRY / 3001 , 3701 , 3901 , 1201 , 401, 1 801 , 1301 , 501 , 901 , 5201, 10*0, 2 202 , 302 , 402 , 502 , 2202, 3 5302 , 802 , 1002 , 2102 , 1302, 4 1402 , 1702 , 1802 , 7*0 / DATA NAME / 4HIFP , 4H / DATA NENTRY / 4HCROD, 4H , 4HCTUB, 4HE , 4HCVIS, 4HC , 1 4HCMAS, 4HS3 , 4HCDAM, 4HP3 , 4HCELA, 4HS3 , 2 4HCMAS, 4HS4 , 4HCDAM, 4HP4 , 4HCELA, 4HS4 , 3 4HPLOT, 4HEL , 20*0 , 4 4HPDAM, 4HP , 4HPELA, 4HS , 4HPMAS, 4HS , 5 4HPQDM, 4HEM , 4HPQDM, 4HEM1 , 4HPQDM, 4HEM2 , 6 4HPQUA, 4HD2 , 4HPSHE, 4HAR , 4HPTOR, 4HDRG , 7 4HPTRI, 4HA2 , 4HPTRM, 4HEM , 4HPTWI, 4HST , 8 4HPVIS, 4HC , 14*0 / DATA ITYPE1 / 4HELEM, 4HENT / DATA ITYPE2 / 4HPROP, 4HERTY/ C C ============================================================ C REMEMBER TO CHECK FOR THE LONGEST LINK IN OVERLAY STRUCTURE. C ============================================================ C C INITIALIZE COMMON BLOCKS CIFS1P, 2P, 3P, 4P, AND CIFS5P C CALL CIFSDD C DO 10 J = 1,16 STATUS(J) = 1 10 CONTINUE STATUS( 6) = 3 STATUS(12) = 3 LM = 100 CURFIL = 0 KICK = 0 IPVS = 0 EOFFLG = .FALSE. BADDAT = .FALSE. BADFOR = .FALSE. NPARAM = 0 KN = 0 IAX = .FALSE. NAX =-1 IAXF = 0 NAXF =-1 LHARM = .TRUE. KSLOT1 = 0 KSLOT2 = 0 KSLOT3 = 0 KSLOT4 = 0 KSLOT5 = 0 CALL CONMSG (IFPNA1,2,0) IAP = IABS(IAPP) JAP = KAP(IAP) KNT =-1 IAXIC = AXICCC IAXIF = AXIFCC AXICCC = 0 AXIFCC = 0 DO 20 J = 1,NFLS 20 II(J) = 0 DO 30 J = 1,40 ENDARA(J) = 0 30 CONTINUE NOPEN = KORSZ(IBUFF) - 3*N1 CALL SSWTCH (42,L42) IF (NOPEN .GE. 0) GO TO 100 CALL PAGE2 (2) WRITE (NOUT,40) SFM 40 FORMAT (A25,' 303, NO OPEN CORE FOR IFP.') ABORT =.TRUE. RETURN C C OPEN NPTP AND LOCATE BULK DATA C 100 KFIL = IFLE(6) CALL OPEN (*130,KFIL,IBUFF(N1+1),0) 110 CALL SKPFIL (KFIL,1) CALL READ (*1390,*160,KFIL,JR,2,1,KDUM) IF (JR(1).EQ.IBLKDA(1) .AND. JR(2).EQ.IBLKDA(2)) GO TO 180 KICK = KICK + 1 IF (KICK .LT. 5) GO TO 110 CALL PAGE2 (2) WRITE (NOUT,120) SFM,JR(1),JR(2) 120 FORMAT (A25,' 304, IFP NOT READING NPTP. FILE BEING READ = ',2A4) GO TO 150 130 CALL PAGE2 (2) WRITE (NOUT,140) SFM,KFIL 140 FORMAT (A25,' 305, IFP CANNOT OPEN GINO FILE',I10) 150 ABORT =.TRUE. GO TO 1850 160 CALL PAGE2 (2) WRITE (NOUT,170) SFM 170 FORMAT (A25,' 306, READ LOGICAL RECORD ERROR') GO TO 150 180 CALL READ (*1380,*160,IFLE(6),JR,20,1,KDUM) KNT = KNT + 1 C C CHECK FOR 1PARM OR 1VARY CARDS C IF (JR(1).EQ.IPARM .OR. JR(1).EQ.IVARY) CALL IFPPVC (*190,IPVS,JR) IF (L42 .EQ. 0) CALL RCARD2 (M1,M1F,NW,JR) IF (L42 .NE. 0) CALL RCARD (M1,M1F,NW,JR) IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1430 GO TO 220 190 CALL CLOSE (IFLE(6),1) GO TO 1900 C C READ AND DECODE ONE PHYSICAL CARD C 200 IF (EOFFLG) GO TO 1410 CALL READ (*1460,*160,IFLE(6),JR,20,1,KDUM) KNT = KNT + 1 IF (L42 .EQ. 0) CALL RCARD2 (M1,M1F,NW,JR) IF (L42 .NE. 0) CALL RCARD (M1,M1F,NW,JR) IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 200 210 IF (EOFFLG) GO TO 1460 C C IDENTIFY CARD NAME C 220 DO 230 J = 1,NCDSMX K = J IF (M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K)) GO TO 280 230 CONTINUE IF (KT1K.NE.T1(1,K) .OR. KT2K.NE.T1(2,K)) GO TO 240 KCOUNT = KCOUNT + 1 IF (KCOUNT-7) 250,270,200 240 KT1K = T1(1,K) KT2K = T1(2,K) 250 CALL PAGE2 (2) WRITE (NOUT,260) UFM,M1(1),M1(2) 260 FORMAT (A23,' 307, ILLEGAL NAME FOR BULK DATA CARD ',2A4 ) ABORT =.TRUE. GO TO 200 270 CALL PAGE2 (3) WRITE (NOUT,1150) GO TO 200 280 KCOUNT = 0 CL =.FALSE. CF =.TRUE. KX = K - 100 KY = KX - 100 C C CHECK APPROACH ACCEPTABILITY C IF (T3(2,K)*JAP+1) 300,320,340 300 WRITE (NOUT,310) UFM,T1(1,K),T1(2,K),AP(3*IAP-2),AP(3*IAP-1), 1 AP(3*IAP) 310 FORMAT (A23,' 308, CARD ',2A4,' NOT ALLOWED IN ',3A4,' APPROACH.') CALL PAGE2 (2) ABORT =.TRUE. GO TO 340 320 WRITE (NOUT,330) UWM,T1(1,K),T1(2,K),AP(3*IAP-2),AP(3*IAP-1), 1 AP(3*IAP) 330 FORMAT (A25,' 309, CARD ',2A4,' IMPROPER IN ',3A4,' APPROACH.') CALL PAGE2(2) 340 IF (.NOT.IAX .OR. T4(1,K).GE.0) GO TO 400 CALL PAGE2 (2) WRITE (NOUT,350) UFM,T1(1,K),T1(2,K) 350 FORMAT (A23,' 310, CARD ',2A4,' NOT ALLOWED IN SAME DECK WITH ', 1 'AXIC CARD.') ABORT =.TRUE. C C ESTABLISH PROPER OUTPUT FILES FOR THIS CARD C 400 INDX = T3(1,K) IF (INDX.EQ.CURFIL .OR. INDX.EQ.6) GO TO 420 IF (CURFIL.EQ.0 .OR. STATUS(CURFIL).EQ.1) GO TO 410 CALL CLOSE (IFLE(CURFIL),2) STATUS(CURFIL) = 3 410 KFIL = IFLE(INDX) CALL OPEN (*130,KFIL,IBUFF,STATUS(INDX)) CURFIL = INDX STATUS(CURFIL) = -STATUS(CURFIL) IF (STATUS(CURFIL) .NE. -1) GO TO 420 CALL WRITE (IFLE(CURFIL),FNM(1,CURFIL),2,1) II(CURFIL) = 1 STATUS(CURFIL) = -3 420 ID = M1(3) 430 JF = NW - 2 DO 440 L = JF,LM 440 M(L) = 0 DO 450 L = 1,JF 450 M(L) = M1(L+2) C C TEST UNIQUENESS OF FIELD 2 IF APPLICABLE C IF (M1(1).EQ.0 .AND. M1(2).EQ.0 .OR.CF .OR. T6(2,K).NE.1) 1 GO TO 480 IF (ID .EQ. M(1)) GO TO 460 ID = M(1) GO TO 480 460 KNT1 = KNT + 1 CALL PAGE2 (2) WRITE (NOUT,470) UFM,T1(1,K),T1(2,K),M(1),KNT1 470 FORMAT (A23,' 311, NON-UNIQUE FIELD 2 ON BULK DATA CARD ',2A4,I8, 1 10X,'H SORTED CARD COUNT =',I7) ABORT =.TRUE. 480 DO 490 L = 1,LM 490 MF(L) = 0 LF = 0 DO 500 L = 1,JF C C ========================================= C THIS SHOULD BE CHANGED WHEN RCARD CHANGES C IF (M1F(L+1) .LT. 0) GO TO 540 C ======================================== LF = LF + 1 500 MF(L) = M1F(L+1) GO TO 540 510 IF (EOFFLG) GO TO 1420 C C READ ANOTHER CARD (TO BE PROCESSED NEXT) C KNT = KNT + 1 CALL READ (*550,*160,IFLE(6),JR,20,1,KDUM) IF (L42 .EQ. 0) CALL RCARD2 (M1,M1F,NW,JR) IF (L42 .NE. 0) CALL RCARD (M1,M1F,NW,JR) IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 580 C C CHECK FOR TOO MANY CONTINUATIONS C IF (T6(1,K).LT.0 .AND. LF.GT.4) GO TO 600 IF (JF+NW-2-LM .GT. 0) GO TO 560 K1 = NW - 2 DO 520 L = 1,K1 K2 = JF + L 520 M(K2) = M1(L+2) JF = JF + NW - 2 DO 530 L = 1,K1 C C ========================================= C THIS SHOULD BE CHANGED WHEN RCARD CHANGES C IF (M1F(L+1) .LT. 0) GO TO 540 C ========================================= LF = LF + 1 530 MF(LF) = M1F(L+1) 540 MF(LF+1) = -32767 GO TO 510 550 EOFFLG =.TRUE. M1(1) = EOFZ M1(2) = EOFZ GO TO 590 560 WRITE (NOUT,570) UFM,T1(1,K),T1(2,K),M(1),KNT 570 FORMAT (A23,' 312, TOO MANY CONTINUATIONS FOR BULK DATA CARD ', 1 2A4,I8,6X,'SORTED CARD COUNT =',I7) CALL PAGE2 (2) ABORT =.TRUE. GO TO 510 580 IF (M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K)) GO TO 600 590 CL =.TRUE. 600 IF (.NOT.CF .OR. T6(2,K).EQ.2) GO TO 610 KKK = T3(1,K) II(KKK) = II(KKK) + 1 CF =.FALSE. IF (KKK.EQ.6 .OR. KKK.EQ.12) GO TO 640 ITRL(1) = T7(1,K) ITRL(2) = T7(2,K) ITRL(3) = K CALL WRITE (IFLE(CURFIL),ITRL,3,0) C C CHECK FOR MIN-MAX NO. OF WORDS C 610 IF (T5(1,K) .LT. 0) GO TO 640 L = JF IF (T5(1,K)-L) 630,690,650 620 L = L + 4 630 IF (T5(2,K)-L) 650,690,620 640 L =-T5(1,K) IF (JF.GE.L .AND. JF.LE.T5(2,K)) GO TO 690 650 WRITE (NOUT,660) UFM,T1(1,K),T1(2,K),M(1),KNT 660 FORMAT (A23,' 313, ILLEGAL NUMBER OF WORDS ON BULK DATA CARD ', 1 2A4,I8,6X,'SORTED CARD COUNT =',I7) WRITE (NOUT,670) T5(1,K),T5(2,K),K,L,JF 670 FORMAT (' T5(1&2,K),K,L,JF =',5I4) CALL PAGE2 (2) ABORT =.TRUE. IF (T6(1,K)) 710,680,680 680 IF (.NOT.CL) GO TO 430 IF (T6(2,K) .EQ. 2) GO TO 210 CALL WRITE (IFLE(CURFIL),M,0,1) IF (T4(2,K) .GT. 0) GO TO 210 II(KKK) = II(KKK) - 1 CALL BCKREC (IFLE(CURFIL)) GO TO 210 C C CHECK FOR PROPER FORMAT C 690 IF (T6(1,K) .LT. 0) GO TO 710 L = T6(1,K) L1 = 0 DO 700 K1 = 1,LF L1 = L1 + 1 IF (MF(K1) .EQ. 3) L1 = L1 + 1 K2 = L + K1 - 1 IF (F(K2).EQ.MF(K1) .OR. F(K2).EQ.5) GO TO 700 IF (MF(K1).EQ.1 .AND. M(L1).EQ.0) GO TO 700 IF (MF(K1).NE.0 .OR. F(K2).NE.1 .AND. F(K2).NE.2) GO TO 1350 700 CONTINUE 710 N = 0 BADDAT =.FALSE. BADFOR =.FALSE. IF (IPVS .NE. 0) CALL IFPMDC C C CALL SECONDARY ROUTINE TO EXAMINE EACH TYPE OF CARD C KB = (K-1)/20 + 1 IF (KB .GT. 18) GO TO 1060 GO TO ( 810, 820, 830, 840, 850, 860, 870, 880, 890, 900, 1 910, 920, 930, 940, 950, 960, 970, 980), KB 810 KB = K GO TO (1030,1030,1050,1010,1010,1010,1010,1010,1010,1010, 1 1010,1030,1030,1010,1010,1010,1030,1010,1010,1010), KB 820 KB = K - 20 GO TO (1010,1010,1010,1010,1010,1010,1010,1030,1010,1010, 1 1010,1050,1010,1010,1010,1010,1010,1010,1010,1010), KB 830 KB = K - 40 GO TO (1010,1010,1010,1010,1010,1010,1010,1010,1010,1010, 1 1050,1010,1010,1010,1010,1010,1010,1010,1010,1010), KB 840 KB = K - 60 GO TO (1010,1010,1010,1010,1010,1010,1010,1010,1010,1010, 1 1010,1010,1010,1010,1010,1010,1010,1010,1040,1040), KB 850 KB = K - 80 GO TO (1010,1030,1030,1030,1020,1020,1020,1050,1020,1040, 1 1040,1030,1020,1020,1020,1020,1020,1040,1050,1050), KB 860 KB = K - 100 GO TO (1050,1040,1050,1040,1040,1050,1050,1050,1050,1050, 1 1050,1050,1050,1050,1050,1050,1050,1050,1020,1020), KB 870 KB = K - 120 GO TO (1010,1040,1030,1040,1010,1030,1010,1010,1010,1010, 1 1030,1030,1020,1020,1010,1010,1010,1030,1030,1020), KB 880 KB = K - 140 GO TO (1020,1010,1030,1030,1030,1030,1030,1030,1030,1030, 1 1030,1030,1030,1030,1030,1030,1030,1010,1050,1050), KB 890 KB = K - 160 GO TO (1050,1020,1050,1050,1050,1010,1050,1050,1050,1050, 1 1050,1050,1050,1050,1050,1050,1050,1050,1010,1010), KB 900 KB = K - 180 GO TO (1010,1030,1030,1030,1030,1050,1050,1020,1040,1010, 1 1020,1020,1050,1050,1040,1040,1060,1050,1040,1020), KB 910 KB = K - 200 GO TO (1040,1040,1040,1040,1040,1040,1040,1040,1040,1040, 1 1040,1040,1040,1040,1010,1030,1040,1040,1040,1040), KB 920 KB = K - 220 GO TO (1040,1040,1010,1010,1010,1010,1010,1010,1010,1010, 1 1010,1010,1010,1010,1010,1010,1010,1010,1040,1010), KB 930 KB = K - 240 GO TO (1010,1040,1010,1030,1050,1050,1050,1050,1010,1010, 1 1050,1050,1050,1050,1050,1010,1010,1010,1010,1010), KB 940 KB = K - 260 GO TO (1020,1020,1050,1050,1050,1050,1050,1010,1050,1050, 1 1050,1050,1030,1030,1050,1050,1050,1050,1030,1020), KB 950 KB = K - 280 GO TO (1020,1020,1020,1030,1030,1030,1030,1030,1010,1030, 1 1010,1010,1010,1010,1040,1040,1030,1030,1010,1010), KB 960 KB = K - 300 GO TO (1050,1050,1050,1050,1050,1050,1050,1050,1050,1050, 1 1050,1050,1050,1050,1010,1010,1010,1010,1010,1010), KB 970 KB = K - 320 GO TO (1040,1040,1040,1040,1040,1040,1040,1040,1030,1030, 1 1010,1030,1040,1040,1040,1040,1010,1050,1050,1010), KB 980 KB = K - 340 GO TO (1010,1010,1010,1010,1030,1030,1030,1030,1030,1030, 1 1030,1030,1030,1020,1060,1010,1010,1010,1010,1060), KB 1010 CALL IFS1P (*1360,*680,*1100) GO TO 1230 1020 CALL IFS2P (*1360,*680,*1100) GO TO 1230 1030 CALL IFS3P (*1360,*680,*1100) GO TO 1230 1040 CALL IFS4P (*1360,*680,*1100) GO TO 1230 1050 CALL IFS5P (*1360,*680,*1100) GO TO 1230 1060 CALL PAGE2 (2) WRITE (NOUT,1070) SFM,K 1070 FORMAT (A25,' 314, INVALID CALL FROM IFP. K =',I10) ABORT =.TRUE. GO TO 1850 C 1100 IF (.NOT.BADFOR) GO TO 1160 IF (IT1K.NE.T1(1,K) .OR. IT2K.NE.T1(2,K)) GO TO 1110 ICOUNT = ICOUNT + 1 IF (ICOUNT-7) 1120,1140,1170 1110 IT1K = T1(1,K) IT2K = T1(2,K) 1120 CALL PAGE2 (2) IF (ID .EQ. 0) ID = M(1) WRITE (NOUT,1130) UFM,T1(1,K),T1(2,K),ID,KNT 1130 FORMAT (A23,' 315, FORMAT ERROR ON BULK DATA CARD ',2A4,I8,17X, 1 'SORTED CARD COUNT =',I7) GO TO 1170 1140 CALL PAGE2 (3) WRITE (NOUT,1150) 1150 FORMAT (31X,'.', /29X,'MORE', /31X,'.') GO TO 1170 1160 IF (.NOT.BADDAT) ICOUNT = 0 1170 IF (.NOT.BADDAT) GO TO 1220 IF (JT1K.NE.T1(1,K) .OR. JT2K.NE.T1(2,K)) GO TO 1180 JCOUNT = JCOUNT + 1 IF (JCOUNT-7) 1190,1210,1230 1180 JT1K = T1(1,K) JT2K = T1(2,K) 1190 CALL PAGE2 (2) IF (ID .EQ. 0) ID = M(1) WRITE (NOUT,1200) UFM,T1(1,K),T1(2,K),ID,KNT 1200 FORMAT (A23,' 316, ILLEGAL DATA ON BULK DATA CARD ',2A4,I8,17X, 1 'SORTED CARD COUNT =',I7) GO TO 1230 1210 CALL PAGE2 (3) WRITE (NOUT,1150) GO TO 1230 1220 IF (.NOT.BADFOR) JCOUNT = 0 1230 IF (.NOT.BADFOR .AND. .NOT.BADDAT) GO TO 1300 N = 0 ABORT =.TRUE. GO TO 1340 C C WRITE OUT CARD DATA ON APPROPRIATE IFP OUTPUT FILE C 1300 IF (N .EQ. 0) GO TO 1340 T4(2,K) = T4(2,K) + N DO 1310 L = 1,40 IF (K .EQ. KKL(L)) GO TO 1320 1310 CONTINUE GO TO 1330 1320 CALL WRITE (IFLE(CURFIL),I,N,0) GO TO 1340 1330 CONTINUE IF (INDX.NE.6 .AND. .NOT.ABORT .OR. INDX.EQ.15) 1 CALL WRITE (IFLE(CURFIL),I,N,0) 1340 IF (KN .EQ. 0) GO TO 680 KN = 0 GO TO 430 1350 BADFOR =.TRUE. 1360 IF (.NOT.BADFOR) GO TO 1370 CALL PAGE2 (2) WRITE (NOUT,1130) UFM,T1(1,K),T1(2,K),M(1),KNT ABORT = .TRUE. 1370 IF (.NOT.BADDAT) GO TO 1380 CALL PAGE2 (2) WRITE (NOUT,1200) UFM,T1(1,K),T1(2,K),M(1),KNT ABORT =.TRUE. GO TO 680 1380 IF (IAPP .EQ. 1) GO TO 1850 IF (ISUBS .NE. 0) GO TO 1850 1390 WRITE (NOUT,1400) SFM 1400 FORMAT (A25,' 319, IFP READING EOF ON NPTP.') CALL PAGE2 (2) ABORT =.TRUE. GO TO 1850 1410 KERROR = 1410 GO TO 1440 1420 KERROR = 1420 GO TO 1440 1430 KERROR = 1430 1440 CALL PAGE2 (6) WRITE (NOUT,1450) SFM,KERROR,(JR(L),L=1,20),KNT 1450 FORMAT (A25,' 320, IFP ERROR',I5, /5X,'LAST CARD PROCESSED IS -', 1 20A4,1H-, /5X,'SORTED CARD COUNT =',I7) ABORT =.TRUE. GO TO 1850 1460 IF (CURFIL .NE. 0) CALL CLOSE (IFLE(CURFIL),2) DO 1470 L = 1,NFLS IF (L.EQ.6 .OR. L.EQ.12 .OR. STATUS(L).EQ.1) GO TO 1470 KFIL = IFLE(L) CALL OPEN (*130,KFIL,IBUFF,3) CALL WRITE (IFLE(L),IEND,3,1) II(L) = II(L) + 1 CALL CLOSE (IFLE(L),1) 1470 CONTINUE C C CHECK TO SEE IF ALL MULTI-ENTRY CARD DATA (CROD, CTUBE, ETC.) C ARE SORTED ON THEIR ELEMENT/PROPERTY IDS C DO 1480 L = 1,40 IF (ENDARA(L) .LT. 0) GO TO 1490 1480 CONTINUE C C EITHER NO MULTI-ENTRY CARD DATA EXIST OR, IF THEY DO, C THEY ARE ALL SORTED ON THEIR ELEMENT/PROPERTY IDS C GO TO 1700 C C NOT ALL MULTI-ENTRY CARD DATA ARE SORTED ON THEIR C ELEMENT/PROPERTY IDS. C C CLOSE SCRATCH FILE (FILE 6) AT CURRENT POSITION WITHOUT REWIND C AND WITHOUT END-OF-FILE. C 1490 CALL CLOSE (IFLE(6),2) C C READ DATA FROM GEOM2/EPT FILE, SORT ALL MULTI-ENTRY CARD DATA ON C THEIR ELEMENT/PROPERTY IDS AND WRITE THE RESULTING DATA ON C SCRATCH FILE (FILE 16) C C NOTE. GEOM2 IS IFLE(8) AND EPT IS IFLE(2) C DO 1690 NNN = 1,2 IF (NNN .EQ. 2) GO TO 1500 IFILE = IFLE(8) INAM(1) = FNM(1,8) INAM(2) = FNM(2,8) ITYPE(1)= ITYPE1(1) ITYPE(2)= ITYPE1(2) JMIN = 1 JMAX = 20 GO TO 1510 1500 IFILE = IFLE(2) INAM(1) = FNM(1,2) INAM(2) = FNM(2,2) ITYPE(1)= ITYPE2(1) ITYPE(2)= ITYPE2(2) JMIN = 21 JMAX = 40 1510 DO 1520 L = JMIN,JMAX IF (ENDARA(L) .LT. 0) GO TO 1530 1520 CONTINUE GO TO 1690 1530 ILEFT = NOPEN - NPARAM - 2 ISTRT = 2*N1 + NPARAM + 2 CALL GOPEN (IFILE,IBUFF,0) KFIL = IFLE(16) CALL OPEN (*130,IFLE(16),IBUFF(N1+1),1) CALL WRITE (IFLE(16),INAM,2,1) INDEX = JMIN 1540 CALL READ (*1680,*1670,IFILE,IBUFF(ISTRT),3,0,IFLAG) CALL WRITE (IFLE(16),IBUFF(ISTRT),3,0) IF (INDEX .GT. JMAX) GO TO 1560 DO 1550 L = JMIN,JMAX IF (IBUFF(ISTRT).EQ.MENTRY(L) .AND. ENDARA(L).LT.0) GO TO 1580 1550 CONTINUE 1560 CALL READ (*1660,*1570,IFILE,IBUFF(ISTRT),ILEFT,0,IFLAG) CALL WRITE (IFLE(16),IBUFF(ISTRT),ILEFT,0) GO TO 1560 1570 CALL WRITE (IFLE(16),IBUFF(ISTRT),IFLAG,1) GO TO 1540 1580 INDEX = INDEX + 1 CALL PAGE2 (3) WRITE (NOUT,1590) UIM,NENTRY(2*L-1),NENTRY(2*L),ITYPE 1590 FORMAT (A29,' 334, ',2A4,' MULTI-ENTRY CARD DATA ARE NOT SORTED ', 1 'ON THEIR ',2A4,' IDS.', /5X, 2 'SUBROUTINE IFP WILL SORT THE DATA.') IFAIL = 0 1600 CALL READ (*1660,*1610,IFILE,IBUFF(ISTRT),ILEFT,0,IFLAG) IFAIL = IFAIL + 1 GO TO 1600 1610 IF (IFAIL .EQ. 0) GO TO 1630 NWDS = (IFAIL-1)*ILEFT + IFLAG CALL PAGE2 (4) WRITE (NOUT,1620) UFM,NENTRY(2*L-1),NENTRY(2*L),NWDS 1620 FORMAT (A23,' 333, UNABLE TO SORT ',2A4,' MULTI-ENTRY CARD DATA ', 1 'IN SUBROUTINE IFP DUE TO INSUFFICIENT CORE.', /5X, 3 'ADDITIONAL CORE REQUIRED =',I10,7H WORDS) CALL MESAGE (-61,0,0) 1630 NWDS = 4 IF (L.EQ.10 .OR. L.EQ.33) NWDS = 3 IF (L.EQ.21 .OR. L.EQ.23) NWDS = 2 CALL SORT (0,0,NWDS,1,IBUFF(ISTRT),IFLAG) CALL WRITE (IFLE(16),IBUFF(ISTRT),IFLAG,1) C C CHECK SORTED MULTI-ENTRY CARD DATA FOR NON-UNIQUE C ELEMENT/PROPERTY IDS C IREPT = -10000000 NIDSM1= IFLAG/NWDS - 1 DO 1650 KK = 1,NIDSM1 EID = IBUFF(ISTRT+KK*NWDS) EIDM1 = IBUFF(ISTRT+KK*NWDS-NWDS) IF (EID .NE. EIDM1) GO TO 1650 IF (EID .EQ. IREPT) GO TO 1650 IREPT = EID ABORT = .TRUE. CALL PAGE2 (2) WRITE (NOUT,1640) UFM,ITYPE,EID,NENTRY(2*L-1),NENTRY(2*L) 1640 FORMAT (A23,' 335, NON-UNIQUE ',2A4,' ID',I9,' ENCOUNTERED IN ', 1 2A4,' MULTI-ENTRY CARD DATA.') 1650 CONTINUE GO TO 1540 1660 CALL MESAGE (-2,IFILE,NAME) 1670 CALL MESAGE (-3,IFILE,NAME) 1680 CALL CLOSE (IFILE,1) CALL CLOSE (IFLE(16),1) C C COPY DATA BACK FROM SCRATCH FILE (FILE 16) TO GEOM2/EPT FILE C KFIL = IFLE(16) CALL OPEN (*130,IFLE(16),IBUFF,0) KFIL = IFILE CALL OPEN (*130,IFILE,IBUFF(N1+1),1) CALL CPYFIL (IFLE(16),IFILE,IBUFF(ISTRT),ILEFT,IFLAG) CALL CLOSE (IFLE(16),1) CALL CLOSE (IFILE,1) 1690 CONTINUE C C RE-OPEN SCRATCH FILE (FILE 6) TO WRITE WITHOUT REWIND C KFIL = IFLE(6) CALL OPEN (*130,IFLE(6),IBUFF(N1+1),3) C C WRITE TRAILERS C 1700 DO 1740 J = 1,NFLS IF (J.EQ.6 .OR. J.EQ.12) GO TO 1740 DO 1710 L = 2,7 1710 ITRL(L) = 0 ITRL(1) = IFLE(J) IF (II(J).LE.2 .OR. ABORT) GO TO 1730 DO 1720 L = 1,NCDSMX IF (T3(1,L).NE.J .OR. T4(2,L).LE.0) GO TO 1720 KT721 = ANDF(T7(2,L),511) K1 = (KT721-1)/16 + 2 K2 = KT721 - (K1-2)*16 + 16 ITRL(K1) = ORF(ITRL(K1),TWO(K2)) 1720 CONTINUE 1730 CALL WRTTRL (ITRL) 1740 CONTINUE C C WRITE PARAM CARDS ON NPTP C KFIL = IFLE(16) CALL IFPPAR IF (NPARAM.LE.0 .OR. ABORT) GO TO 1850 CALL OPEN (*130,KFIL,IBUFF,1) ITRL(1) = KFIL ITRL(2) = NPARAM CALL WRTTRL (ITRL(1)) CALL WRITE (KFIL,FNM(1,6),2,1) CALL WRITE (KFIL,IBUFF(2*N1+1),NPARAM,1) IPM = 1 IPN = 2*N1 + IPM GO TO 1840 1800 IPN = 2*N1 + IPM NM(1) = IBUFF(IPN ) NM(2) = IBUFF(IPN+1) JPM = 1 1810 JPN = 2*N1 + JPM IF (NM(1).NE.IBUFF(JPN) .OR. NM(2).NE.IBUFF(JPN+1)) GO TO 1830 CALL PAGE2 (2) WRITE (NOUT,1820) UFM,NM(1),NM(2) 1820 FORMAT (A23,' 321, NON-UNIQUE PARAM NAME - ',2A4,1H-) ABORT =.TRUE. 1830 JPM = JPM + 4 IF (IBUFF(JPN+2) .GT. 2) JPM = JPM + 1 IF (IBUFF(JPN+2) .GT. 5) JPM = JPM + 2 IF (JPM .LT. IPM) GO TO 1810 1840 IPM = IPM + 4 IF (IBUFF(IPN+2) .GT. 2) IPM = IPM + 1 IF (IBUFF(IPN+2) .GT. 5) IPM = IPM + 2 IF (IPM .LT. NPARAM) GO TO 1800 CALL EOF (KFIL) CALL CLOSE (KFIL,1) 1850 CALL CLOSE (IFLE(6),1) C C CHECK FOR PROPERTY ID UNIQUENESS IN EPT FILE AND PROPERTY ID C SPECIFIED IN GEOM2 ELEMENTS C CALL SSWTCH (34,JJ1) IF (JJ1 .EQ. 1) GO TO 1900 KFIL = IFLE(2) ITRL(1) = KFIL CALL RDTRL (ITRL) J = ITRL(2) + ITRL(3) + ITRL(4) + ITRL(5) + ITRL(6) + ITRL(7) JJ1 = 1 IF (ITRL(1).LT.0 .OR. J.EQ.0) GO TO 1860 JJ1 = 0 CALL OPEN (*130,KFIL,IBUFF,0) 1860 KFIL = IFLE(8) ITRL(1) = KFIL CALL RDTRL (ITRL) J = ITRL(2) + ITRL(3) + ITRL(4) + ITRL(5) + ITRL(6) + ITRL(7) IF (ITRL(1).LT.0 .OR. J.EQ.0) GO TO 1880 CALL OPEN (*130,KFIL,IBUFF(N1+1),0) JJ = N1*2 + 1 CALL PIDCK (IFLE(2),KFIL,JJ1,IBUFF(JJ)) CALL CLOSE (KFIL,1) IF (JJ1) 1880,1870,1890 1870 IF (IBUFF(JJ) .EQ. 0) GO TO 1880 JJ1 = JJ + IBUFF(JJ) + 1 C C CHECK FOR MATERIAL ID UNIQUENESS IN MPT FILE C AND MATERIAL ID SPECIFIED IN PROPERTY CARDS C KFIL = IFLE(3) ITRL(1) = KFIL CALL RDTRL (ITRL) J = ITRL(2) + ITRL(3) + ITRL(4) + ITRL(5) + ITRL(6) + ITRL(7) IBUFF(JJ1) = 1 IF (ITRL(1).LT.0 .OR. J.EQ.0) IBUFF(JJ1) = 0 IF (IBUFF(JJ1) .EQ. 1) CALL OPEN (*130,KFIL,IBUFF(N1+1),0) CALL MATCK (KFIL,IFLE(2),IBUFF(JJ),IBUFF(JJ1)) IF (IBUFF(JJ1) .NE. 0) CALL CLOSE (KFIL,1) 1880 CALL CLOSE (IFLE(2),1) C C CHECK COORDINATE ID'S AND THEIR REFERENCES FROM C OTHER BULK DATA CARDS C 1890 JJ = NOPEN + N1 - 2 C + N1 - 2 = 2*N1 - (N1+2) CALL CIDCK (IBUFF(N1+2),IBUFF,JJ) 1900 CONTINUE C C CHECK FOR ERRORS IN AXISYMMETRIC DATA C IF (IAX) AXICCC = 1 AXIFCC = IAXF IF (AXICCC.LE.0 .OR. AXIFCC.LE.0) GO TO 1920 AXICCC = 0 AXIFCC = 0 ABORT = .TRUE. CALL PAGE2 (2) WRITE (NOUT,1910) UFM 1910 FORMAT (A23,' 337, BOTH AXIC AND AXIF CARDS USED IN BULK DATA.') GO TO 1980 1920 IF (AXICCC .LE. 0) GO TO 1950 IF (IAXIC .GT. 0) GO TO 1980 AXICCC = 0 C C SUPPRESS ABORT IF IT IS A UMFEDIT RUN C 1930 IF (IUMFED .NE. 0) GO TO 1980 ABORT = .TRUE. CALL PAGE2 (2) WRITE (NOUT,1940) UFM 1940 FORMAT (A23,' 338, AXISYMMETRIC CARD REQUIRED IN CASE CONTROL') GO TO 1980 1950 IF (AXIFCC .LE. 0) GO TO 1960 IF (IAXIF.GT.0 .OR. AXIFCC.EQ.2) GO TO 1980 AXIFCC = 0 GO TO 1930 1960 IF (IAXIC.LE.0 .AND. IAXIF.LE.0) GO TO 1980 AXICCC = 0 AXIFCC = 0 C C SUPPRESS ABORT IF IT IS A UMFEDIT RUN C IF (IUMFED .NE. 0) GO TO 1980 ABORT = .TRUE. CALL PAGE2 (2) WRITE (NOUT,1970) UFM 1970 FORMAT (A23,' 339, ILLEGAL USE OF AXISYMMETRIC CARD IN CASE ', 1 'CONTROL DECK.') C 1980 IF (IAPP .GE. 0) GO TO 1990 C C CHECK CERTAIN RESTART FLAGS BASED ON BULK DATA C MN = LBD + 1 C C TURN ON TEMPMX$ IF MATERIALS USE TEMPS C IF (T4(2,91)+T4(2,102)+T4(2,189) .EQ. 0) GO TO 1990 IF (ANDF(IB(1),TWO(28)).EQ.0 .AND. ANDF(IB(5),TWO(32)).EQ.0 .AND. 1 ANDF(IB(4),TWO( 6)).EQ.0 .AND. ANDF(IB(3),TWO(32)).EQ.0 .AND. 2 ANDF(IB(4),TWO( 2)).EQ.0 .AND. ANDF(IB(4),TWO( 3)).EQ.0 .AND. 3 ANDF(IB(4),TWO( 4)).EQ.0 ) GO TO 1990 IB(MN) = ORF(IB(MN),TWO(19)) 1990 CALL CONMSG (IFPNA2,2,0) C CALL SSWTCH (27,L27) IF (L27 .EQ. 0) GO TO 2060 CALL PAGE1 LINE = LINE + 8 WRITE (NOUT,2000) 2000 FORMAT ('0DIAG 27 DUMP OF IFP TABLES AFTER IFP PROCESSING', /, 1 1H0,6X,6HIFX1BD,9X,6HIFX2BD,7X,6HIFX3BD,2X,6HIFX4BD,3X, 2 6HIFX5BD,6X,6HIFX6BD ,/, 3 1H ,5X,8(1H-),2X,17(1H-),2X,6(1H-),2X,6(1H-),2X,8(1H-), 4 2X,12(1H-) ,/, 5 1H ,1X,3H(A),3X,3H(B),5X,3H(C),3X,3H(D),5X,3H(E),2X,3H(N), 6 5X,3H(F), 3H(G),3X,3H(H),1X,3H(I),3X,3H(J),5X,3H(K), 7 4X,3H(L),3X,3H(M),4X,3H(O),3X,4HFLAG ,/ 8 1H0 ) 2010 FORMAT (1H ,I4,1X,2A4,I4,1X,1H(,2A4,1H),I3,I5,I4, 1 I4,I4,I6,I3,I7,I8,16X, 2 I1,I1,A1,I1,4X,I2) DO 2050 J = 1,NCDSMX ID = T3(1,J) IF (ID .LE. 0) GO TO 2020 LF = FNM(1,ID) LM = FNM(2,ID) GO TO 2030 2020 CONTINUE LF = BLANK LM = BLANK 2030 CONTINUE N = J K = N/90 + MIN0(1,MOD(N,90)) N = N - 90*(K-1) KX = N/30 + MIN0(1,MOD(N,30)) N = N - 30*(KX-1) KY = N/6 + MIN0(1,MOD(N, 6)) L = N - 6*(KY-1) IFLAG = 0 IF (EJECT(1) .EQ. 0) GO TO 2040 WRITE (NOUT,2000) LINE = LINE + 8 2040 CONTINUE LINE = LINE + 1 WRITE (NOUT,2010) J,T1(1,J),T1(2,J), 1 T3(1,J),LF,LM,T3(2,J), 2 T4(1,J),T4(2,J), 3 T5(1,J),T5(2,J), 4 T6(1,J),T6(2,J), 5 T7(1,J),T7(2,J), 6 K,KX,OOO(KY),L,IFLAG 2050 CONTINUE C 2060 RETURN END ================================================ FILE: mis/ifp1.f ================================================ SUBROUTINE IFP1 C C READS AND INTERPRETS CASE CONTROL DECK FOR NASTRAN C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,ANDF,ORF,COMPLF LOGICAL TAPBIT,SETCD,PLOTCD,BIT64 REAL SYMSEQ(360),XCORE(1),XINTCD DIMENSION CASE(200,2),XCASE(200,2),NIFP(2),CASEN(11), 1 NAME(2),TTLCD(9),CCCD(9),CCCDS(54),XYPRM(5), 2 OUTOP(15),ISUBC(5),OUTPCH(13),CORE(7),COREY(401) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /OUTPUT/ TITLE(32),SUBTIT(32),LABEL(32),HEAD1(32), 1 HEAD2(32),HEAD3(32),PLTID(32) COMMON /SYSTEM/ SYSBUF,OTPE,NOGO,INTP,MPCN,SPCN,LOGFL,LOADNN,NLPP, 1 STFTEM,IPAGE,LINE,TLINE,MAXLIN,DATE(3),TIM,IECHO, 2 SPLOTS,APP,IDUM,LSYSTM,DUMMS(16),NBPW,DUMMY(28), 3 ISUBS,DUMZ(16),INTRA,DMZ(4),LPCH COMMON /ZZZZZZ/ COREX(1) COMMON /XIFP1 / BLANK,BIT64 COMMON /IFP1A / SCR1,CASECC,IS,NWPC,NCPW4,NMODES,ICC,NSET, 1 NSYM,ZZZZBB,ISTR,ISUB,LENCC,IBEN,EQUAL,IEOR COMMON /IFP1HX/ MSST,MISSET(20) COMMON /XSORTX/ IBUF41 EQUIVALENCE (COREX(1) ,XCASE(1,1) , CASE(1,1),COREY(1)), 1 (CORE(1) ,XCORE( 1) , COREY(401) ), 2 (NONO ,OUTOP(15)) , (IAXIC ,DUMMS(4) ), 3 (IAXIF ,DUMMS(15)) , (SET ,CCCD( 7) ), 4 (PLOT ,TTLCD(4) ) , (XYPL ,XYPRM(1) ), 5 (OUTP ,CCCD( 1) ) , (BEGI ,CCCD( 2) ), 6 (BOTH ,OUTOP(1) ) , (NONE ,OUTOP(2) ) DATA NIFP / 4H IF, 4HP1 / DATA CASEN / 4HC A , 4HS E , 4H C, 4H O N, 4H T R, 4H O L, 1 4H D, 4H E C, 4H K , 4H E C, 4H H O / DATA IBOB, ISYMCM, LOADN , IOUT2 , INOMOR / A 0, 0, 1, 0, 0 / DATA OUTPCH/ 11,18 , 21,24 , 27,30 , 33,36 , 152,155,158,168, 1 171 / DATA BLANK4, CARD , COUN , T , EQUAL1, NPTP ,DOL1 / 1 4H , 4HCARD, 4HCOUN, 4HT , 4H= , 4HNPTP ,4H$ / DATA NAME / 4HCASE, 4HCC / DATA TTLCD / 4HTITL, 4HSUBT, 4HLABE, 4HPLOT, 4HXTIT, 4HYTIT, 1 4HTCUR, 4HYTTI, 4HYBTI / DATA CCCD / 4HOUTP, 4HBEGI, 4HSYM , 4HSUBC, 4HSYMC, 4HREPC, 1 4HSET , 4HNCHE, 4HSCAN / DATA CCCDS / 4HMPC , 4HSPC , 4HLOAD, 4HNLLO, 4HDEFO, 4HTEMP, 1 4HDLOA, 4HMETH, 4HFREQ, 4HIC , 4HDISP, 4HVECT, 2 4HPRES, 4HTHER, 4HSTRE, 4HELST, 4HELFO, 4HFORC, 3 4HACCE, 4HVELO, 4HSPCF, 4HMAXL, 4HTSTE, 4HSYMS, 4 4HSUBS, 4HECHO, 4HMODE, 4HLINE, 4HDSCO, 4HK2PP, 5 4HM2PP, 4HB2PP, 4HTFL , 4HFMET, 4HOFRE, 4HOTIM, 6 4HCMET, 4HSDAM, 4HSDIS, 4HSVEC, 4HSVEL, 4HSACC, 7 4HNONL, 4HPLCO, 4HAXIS, 4HHARM, 4HRAND, 4HOLOA, 8 4HGPFO, 4HESE , 4HMPCF, 4HAERO, 4HGUST, 4HSTRA/ DATA ALL / 4HALL /, COSI / 4HCOSI/ DATA DEFA / 4HDEFA/, MAT / 4HMATE/ DATA OM / 4HOM /, ONEB / 4H1 / DATA PCDB / 4HPCDB/, PLT1 / 4HPLT1/ DATA PLT2 / 4HPLT2/, SINE / 4HSINE/ DATA XYCB / 4HXYCD/, XYOU / 4HXYOU/ DATA PTIT / 4HPTIT/, FLUI / 4HFLUI/ DATA SYMM / 4HSYMM/, ANTI / 4HANTI/ DATA ANOM / 4HANOM/ DATA XYPRM / 4HXYPL, 4HXYPR, 4HXYPU, 4HXYPE, 4HXYPA / DATA OUTOP / 4HBOTH, 4HNONE, 4HUNSO, 4HSORT, 4HPUNC, 4HPRIN, 1 4HREAL, 4HIMAG, 4HPHAS, 4HNOPR, 4HMAXS, 4HVONM, 2 4HEXTR, 4HLAYE, 4HNONO/ C C INITIALIZE C ICC = 1 ICNT = 0 NSET = 0 NSYM = 0 ISUB = 1 MSST = 0 ORG = 0 PORG =-1 ISTR = 1 NCPW4 = 4 NWPC = 20 JUMPH = 0 NPCH = 0 NOGOPC = 0 SCR1 = 301 SETCD =.FALSE. PLOTCD =.FALSE. BLANK = BLANK4 BIT64 = NBPW.EQ.64 CASECC = NAME(1) ZZZZBB = 0 ZZZZBB = KHRFN1(ZZZZBB,1,ZZZZBB,4) EQUAL = KHRFN1(ZZZZBB,1,EQUAL1,1) DOL = KHRFN1(ZZZZBB,1,DOL1 ,1) IBEN = KHRFN1(ZZZZBB,1,BLANK ,1) IS = 9999999 IEOR = RSHIFT(COMPLF(0),1) NMODES = 1 LENCC = 200 DO 50 J = 1,2 DO 50 I = 1,LENCC 50 CASE(I,J) = 0 CASE(166,1) = LENCC DO 60 J = 1,2 DO 60 I = 1,96 60 CASE(I+38,J) = BLANK DO 61 I = 1,5 ISUBC(I) = BLANK 61 CONTINUE NZ = KORSZ(CORE) - NWPC - 1 C C BLANK TITLE C DO 65 I = 1,96 TITLE(I) = BLANK 65 CONTINUE DO 70 I = 1,11 70 HEAD1(I+9) = CASEN(I) HEAD2( 4) = CARD HEAD3( 4) = COUN HEAD3( 5) = T C I81 = NWPC + 1 C C READ IN DATA-- STORE TITLE CARDS C NZ = NZ - SYSBUF ICRQ = I81 - NZ IF (I81 .GT. NZ) GO TO 330 CALL OPEN (*300,SCR1,COREX(NZ+1),1) 80 CALL XREAD (*2000,CORE(1)) CALL WRITE (SCR1,CORE(1),NWPC,0) IF (IBUF41 .EQ. -1) GO TO 80 C C IS THIS A TITLE SUBTITLE,LABEL,ETC CARD C CALL IFP1F (*80,IWORD,I2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) ASSIGN 80 TO IRET1 ISTR = 0 ISUB = 1 DO 100 I = 1,6 IF (IWORD .EQ. CCCD(I)) GO TO (145, 340, 140, 140, 140, 140), I C OUTP BEGI SYM SUBC SYMC REPC C 100 CONTINUE IF (INOMOR .EQ. 1) GO TO 80 DO 101 I = 1,3 IF (IWORD .EQ. TTLCD(I)) GO TO (110, 120, 130), I C TITL SUBT LABE C 101 CONTINUE GO TO 80 110 IF (LOGFL .LE. 0) CALL LOGFIL (CORE(1)) 115 ITYPE = 1 GO TO 150 120 ITYPE = 2 GO TO 150 130 ITYPE = 3 GO TO 150 131 ITYPE = 7 GO TO 150 C C STOP TITLE SEARCH C 140 INOMOR = 1 GO TO 80 C C IDENTIFY PLOT PACKETS C 145 CALL XRCARD (CORE(I81),NZ,CORE(1)) TEMP = CORE(I81+5) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (TEMP .EQ. PLOT) GO TO 146 IF (TEMP.EQ.XYPL .OR. TEMP.EQ.XYOU) GO TO 140 GO TO 80 C C SET PLOT FLAG C 146 CASE(135,1) = 1 GO TO 140 C C FIND EQUAL SIGN COPY REMAINING DATA ON CARD C 150 CALL IFP1G (ITYPE,CASE(1,1),ISUB) GO TO IRET1, (80,350) C C FILE ERRORS C 300 IP1 = -1 301 CALL MESAGE (IP1,FILE,NIFP) RETURN C 310 IP1 = -2 GO TO 301 320 IP1 = -3 GO TO 301 330 IP1 = -8 FILE = ICRQ GO TO 301 340 CALL CLOSE (SCR1,1) C C START BUILDING RECORDS C CALL PAGE NWDSC = NWPC + 1 ASSIGN 350 TO IRET1 IHOWDY = 1 NSYM = 0 NSYMS = 0 IUN = 0 IXYPL = 0 ICASEC = 0 ISTR = 1 NSUB = 0 MSST = 0 IBUF1 = NZ + 1 FILE = SCR1 CALL OPEN (*300,SCR1,COREX(IBUF1),0) NZ = NZ - SYSBUF IBUF2 = NZ + 1 FILE = CASECC IF (ISUBS .EQ. 0) GO TO 603 C C IN SUBSTRUCTURES, THE CASECC FILE CONTAINS DATA ON THE FRONT. C SKIP FILE BEFORE WRITING. C CALL OPEN (*603,FILE,COREX(IBUF2),3) CALL WRITE (FILE,NAME,2,1) 350 FILE = SCR1 ICONT = 0 ICRQ = I81 - NZ IF (I81 .GT. NZ) GO TO 330 351 CONTINUE CALL READ (*310,*320,SCR1,CORE(1),NWPC,0,FLAG) WRITE (OTPE,360) ICC,(CORE(I),I=1,NWPC) 360 FORMAT (11X,I8,6X,20A4) ICC = ICC + 1 LINE = LINE + 1 IF (LINE .GE. NLPP) CALL PAGE IF (DOL .EQ. KHRFN1(ZZZZBB, 1,CORE(1),1)) GO TO 350 C C IS THIS TITLE SUBTITLE OR LABEL CARD C CALL IFP1F (*350,IWORD,I2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) DO 372 I = 1,4 IF (IWORD.EQ.TTLCD(I) .AND. IBOB+IXYPL.EQ.0) 1 GO TO (115, 120, 130, 131 ), I C TITL SUBT LABE PLOT C 372 CONTINUE IF (IWORD.EQ.PTIT .AND. IBOB.EQ.1) GO TO 1838 IF (IXYPL .NE. 1) GO TO 374 DO 373 I = 5,9 IF (IWORD .EQ. TTLCD(I)) GO TO 1838 373 CONTINUE 374 CALL XRCARD (CORE(I81),NZ,CORE(1)) IF (ICONT .EQ. 1) GO TO 650 C IF (BIT64) CALL MVBITS (BLANK,0,32,CORE(I81+1),0) IF (CORE(I81+1) .EQ. OUTP) GO TO 590 IF (CORE(I81+1) .EQ. BEGI) GO TO 1320 IF (IBOB .EQ. 1) GO TO 1500 IF (IXYPL .EQ. 1) GO TO 1836 IF (CORE(I81) .LT. 0) GO TO 380 IWORD = CORE(I81+1) DO 375 I = 3,9 IO = I - 2 IF (IWORD .EQ. CCCD(I)) 1 GO TO (580, 1060, 1560, 1720, 1050, 791, 1055), IO C SYM SUBC SYMC REPC SET NCHE SCAN C 375 CONTINUE C C C FIND VALUE AFTER EQUAL SIGN C L = 2*IABS(CORE(I81)) + I81 DO 376 I = I81,L TEMP = CORE(I) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (TEMP .EQ. EQUAL1) GO TO 377 376 CONTINUE IL = -617 GO TO 1291 377 I1 = I + 1 IF (I .EQ. L) I1 = I1 + 1 C IWORD = CORE(I81+1) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) DO 379 I = 1,54 IF (IWORD .EQ. CCCDS(I)) C C MPC SPC LOAD NLLO DEFO TEMP DLOA METH FREQ 1 GO TO ( 400, 430, 440, 460, 540, 690, 550, 760, 560, C C IC DISP VECT PRES THER STRE ELST ELFO FORC 2 570, 770, 770, 770, 770, 780, 780, 790, 790, C C ACCE VELO SPCF MAXL TSTE SYMS SUBS ECHO MODE 3 800, 810, 820, 610, 620, 630, 630, 1420, 1490, C C LINE DSCO K2PP M2PP B2PP TFL FMET OFRE OTIM 4 1630, 1660, 1680, 1700, 1710, 1730, 1880, 1740, 1740, C C CMET SDAM SDIS SVEC SVEL SACC NONL PLCO AXIS 5 1750, 1760, 1780, 1780, 1790, 1800, 1810, 1665, 1850, C C HARM RAND OLOA GPFO ESE MPCF AERO GUST STRA 6 1860, 1870, 480, 1890, 1900, 405, 1910, 1930, 1950), I C 379 CONTINUE C C UNABLE TO FIND CARD TYPE C 380 CALL IFP1D (-601) IUN = IUN + 1 IF (IUN .LT. 10) GO TO 350 C C ASSUME BEGIN BULK MISSING C CALL IFP1D (-611) GO TO 1320 C C MPC CARD FOUND C 400 IK = 2 GO TO 490 C C MPCFORCE CARD C 405 IK = 173 GO TO 830 C C TOO MANY SPECIFICATIONS C 410 CALL IFP1D (602) GO TO IRET, (720,500,860) C C SPC CARD DETECTED C 430 IK = 3 GO TO 490 C C LOAD SET SELECTION C 440 IK = 4 GO TO 490 C C PNL FOR VDR C 460 IK = 10 GO TO 830 C C OUTPUT LOAD SET C 480 IK = 17 GO TO 830 490 IF (CORE(I1) .LE. 0) CALL IFP1D (-617) 491 ASSIGN 500 TO IRET C C SKIP CHECK FOR HARMONIC AS DEFAULT IS NON-ZERO C IF (CASE(IK,ISUB) .NE. 0) GO TO 410 500 CASE(IK,ISUB) = CORE(I1) 501 IF (CORE(I1-1) .NE. -1) GO TO 520 C C CHECK FOR END OF DATA C IF (CORE(I1+1) .EQ. IEOR) GO TO 350 C C DATA CARD DID NOT END PROPERLY C 503 CONTINUE IL = -603 GO TO 1291 C C NO INTEGER IN INTEGER FIELD C 520 IL = -604 GO TO 1291 C C DEFORMATION SET C 540 IK = 6 GO TO 490 C C DLOAD CARD C 550 IK = 13 GO TO 490 C C FREQUENCY CARD C 560 IK = 14 GO TO 490 C C IC CARD C 570 IK = 9 GO TO 490 C C SYM CARD C 580 NSYM = NSYM + 1 IF (NSYM-361) 585,586,1070 585 SYMSEQ(NSYM) = 1.0 GO TO 1070 586 CALL IFP1D (-633) GO TO 1070 C C OUTPUT C 590 IOUT2 = 1 C C BLANK CHECK C TEMP = CORE(I81+5) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (CORE(I81+3).EQ.IEOR .AND. CORE(I81).EQ.1) GO TO 350 IF (TEMP .EQ. PLOT) GO TO 600 IF (IBOB.EQ.1 .AND. .NOT.(SETCD.AND.PLOTCD)) CALL IFP1D (-631) IF (TEMP.EQ.XYPL .OR. TEMP.EQ.XYOU) GO TO 1830 IL = -617 GO TO 1291 600 IBOB = 1 C C TURN ON TRAIL BITS FOR PLOT C CORE(1) = PCDB CORE(2) = 0 CORE(3) = 0 CORE(4) = 0 CORE(5) = 7777 CORE(6) = 0 CORE(7) = 0 CALL WRTTRL (CORE(1)) C C CHECK FOR PRESENCE OF PLOT TAPE C (SPLOTS COULD BE SET ALREADY BY NASTRAN PLTFLG CARD) C IF (ISUBS.EQ.0 .AND. .NOT.TAPBIT(PLT1) .AND. .NOT.TAPBIT(PLT2)) 1 CALL IFP1D (-618) IF (SPLOTS .EQ. 0) SPLOTS = 1 IF (SPLOTS .LT. 0) SPLOTS =-SPLOTS ASSIGN 605 TO IRET3 GO TO 1321 C C CLOSE OPEN STUFF C 605 IF (IXYPL .NE. 1) GO TO 602 C C TERMINANT XY PACKAGE C IHOWDY = -1 CALL IFP1XY (IHOWDY,XINTCD) CALL CLOSE (XYCB,1) IXYPL = 0 602 CALL CLOSE (CASECC,1) C C OPEN PCDB C FILE = PCDB C C OPEN WRITE FILE C 603 CALL GOPEN (FILE,COREX(IBUF2),1) GO TO 350 C C MAXLINES CARD C 610 MAXLIN = CORE(I1) GO TO 501 C C TIME STEP CARD C 620 IK = 38 GO TO 490 C C SYMSEQ AND SUBSEQ C 630 IF (ISYMCM .NE. 0) GO TO 631 C C SYMSEQ CARD WITHOUT SYMCOM C IL = -605 GO TO 1291 631 NSYMSQ = 1 NSYM = 1 650 IF (NSYM-361) 655,665,660 655 SYMSEQ(NSYM) = XCORE(I1) 660 IF (CORE(I1+1)) 670,680,350 665 CALL IFP1D (-633) GO TO 660 C C CHECK FOR END OF DATA C 670 IF (CORE(I1+1) .EQ. IEOR) GO TO 350 NSYM = NSYM + 1 I1 = I1 + 2 GO TO 650 C C CONTINUATION CARD C 680 ICONT = 1 NSYM = NSYM + 1 I1 = I81 + 1 GO TO 351 C C TEMPERATURE CARD C 690 IF (CORE(I81) .EQ. 2) GO TO 710 TEMP = CORE(I81+5) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (TEMP .EQ. BOTH) GO TO 710 IF (TEMP .EQ. MAT) GO TO 730 C C THERMAL LOAD C 700 IK = 7 GO TO 490 C C THERMAL + STIFFNESS C 710 ASSIGN 720 TO IRET 720 CASE(8,ISUB) = CORE(I1) STFTEM = CORE(I1) IF (ISUB .NE. 1) GO TO 740 GO TO 700 C C STIFNESS LOAD C 730 IK = 8 STFTEM = CORE(I1) IF (ISUB .NE. 1) GO TO 740 GO TO 490 C C THERMAL REQUEST AT SUBCASE LEVEL C 740 IL = 606 GO TO 1291 C C METHOD C 760 IK = 5 GO TO 490 C C DISP(PLOT,1) CARD C 770 IK = 20 GO TO 830 C C STRESS CARD C 780 IK = 23 GO TO 830 C C ELFORCE CARD C 790 IK = 26 GO TO 830 C C NCHECK CARD C 791 IK = 146 IF (CORE(I81 ) .EQ. 1) GO TO 793 IF (CORE(I81+5) .EQ. -1) GO TO 792 IL = -617 GO TO 1291 792 CASE(IK,ISUB) = CORE(I81+6) IF (CORE(I81+7) .NE. IEOR) GO TO 503 GO TO 350 793 CASE(IK,ISUB) = 5 GO TO 350 C C ACC C 800 IK = 29 GO TO 830 C C VEL CARD C 810 IK = 32 GO TO 830 C C SPC FORC C 820 IK = 35 GO TO 830 C C OUTPUT SPECIFICATION C STRESS AND FORCE FLAGS MAY BE PRE-SET TO 2 (NOPRINT) BY IFP1H C 830 ASSIGN 860 TO IRET IF ((IK.EQ.23 .OR. IK.EQ.26) .AND. CASE(IK+1,ISUB).EQ.2) GO TO 860 IF (CASE(IK,ISUB) .NE. 0) GO TO 410 C C FIND EQUAL SIGN C 860 IDO = CORE(I81) CASE(IK+1,ISUB) = 0 CASE(IK+2,ISUB) = 1 DO 950 I = 1,IDO II = I81 + 2*I TEMP = CORE(II) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (TEMP .EQ. EQUAL1) GO TO 960 IWRD = CORE(II-1) DO 880 IO = 4,14 IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IOP = IO - 3 IF (IWRD .EQ. OUTOP(IO)) GO TO 1 (940, 890, 900, 910, 920, 930, 905, 950, 943, 950, 946), IOP C SORT PUNC PRIN REAL IMAG PHAS NOPR MAXS VONM EXTR LAYE C 880 CONTINUE GO TO 950 C C PUNCH C 890 CASE(IK+1,ISUB) = CASE(IK+1,ISUB) + 4 GO TO 950 C C PRINT C 900 CASE(IK+1,ISUB) = CASE(IK+1,ISUB) + 1 GO TO 950 C C COMPUTE BUT NO PRINT C DEVICE CODE IS 2 (AND SUBPRESS PRINT CODE 1) C 905 CASE(IK+1,ISUB) = CASE(IK+1,ISUB) - MOD(CASE(IK+1,ISUB),2) + 2 GO TO 950 C C REAL PRINT OUT FORMAT C 910 II = 1 GO TO 931 C C REAL AND IMAGINARY C 920 II = 2 GO TO 931 C C MAGNITUE AND PHASE ANGLE C 930 II = 3 931 CASE(IK+2,ISUB) = ISIGN(II,CASE(IK+2,ISUB)) GO TO 950 C C SORT TWO REQUEST C (COMMENTS FORM G.C. 7/1989 C SINCE OES2L FILE HAS NOT BEEN IMPLEMENTED IN ALL DMAPS, SORT2 C STRESS REQUEST ON LAYERED ELEMENTS IS NOT AVAILABLE) C 940 TEMP = CORE(II) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (TEMP .EQ. ONEB) GO TO 950 IF (IK.EQ.23 .AND. CASE(183,ISUB).GE.2) CALL IFP1D (-645) CASE(IK+2,ISUB) = -IABS(CASE(IK+2,ISUB)) GO TO 950 C C VON MISES STRESS C (183 WORD ON CASECC, FIRST RIGHT-MOST BIT) C 943 CASE(183,ISUB) = ORF(CASE(183,ISUB),1) GO TO 950 C C LAYER STRESSES FOR COMPOSITE ELEMENTS C (183 WORD ON CASECC, SECOND RIGHT-MOST BIT) C (SORT2 STRESS REQUEST ON LAYERED ELEMENTS NOT AVAILABLE) C 946 IF (IK .NE. 23) CALL IFP1D (-646) IF (IK.EQ.23 .AND. CASE(25,ISUB).LT.0) CALL IFP1D (-645) CASE(183,ISUB) = ORF(CASE(183,ISUB),2) C 950 CONTINUE 960 IF (CASE(IK+1,ISUB) .EQ. 0) CASE(IK+1,ISUB) = 1 IF (CORE(II+1) .NE. 0) GO TO 962 CALL IFP1D (610) GO TO 970 962 TEMP = CORE(II+1) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (TEMP .EQ. ALL) GO TO 970 IF (TEMP.EQ.NONE .OR. TEMP.EQ.NONO) GO TO 980 IF (CORE(II+1) .EQ. -1) GO TO 964 IL = -617 GO TO 1291 964 I1 = II + 2 GO TO 990 C C ALL SPECIFIED -- SET SET NO. MINUS C 970 CASE(IK,ISUB) = -1 GO TO 1042 C C NONE SPECIFIED C 980 CASE(IK,ISUB) = NONE GO TO 1042 C C FIND SET NUMBER C 990 IF (NSET .NE. 0) GO TO 1020 C C UNDEFINED SET ID ON CARD C 1000 CALL IFP1D (-608) GO TO 350 1020 JJ = NWDSC DO 1030 IL = 1,NSET IF (CORE(JJ) .EQ. CORE(I1)) GO TO 1040 JJ = JJ + CORE(JJ+1) + 3 1030 CONTINUE GO TO 1000 1040 CASE(IK,ISUB) =CORE(I1) 1042 IF (CORE(II+3) .NE. IEOR) GO TO 503 GO TO 350 C C SET CARD C 1050 NSET = NSET + 1 CALL IFP1C (I81,NZ) GO TO 350 C C SCAN CARD C 1055 CALL IFP1H (I81,NZ,JUMPH) GO TO 350 C C SUBCASE C 1060 TEMP = CORE(I81+2) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (TEMP .EQ. OM) GO TO 1560 IF (ISYMCM .EQ. 1) GO TO 1330 NSYM = 0 NSYMS = NSYMS + 1 IF (NSYMS-361) 1062,1064,1070 1062 SYMSEQ(NSYMS) = 1.0 GO TO 1070 1064 CALL IFP1D (-633) 1070 ASSIGN 350 TO IRET3 IF (ISUB .EQ. 2) GO TO 1080 ISUB = 2 LOADN = CORE(I81+4) CALL IFP1F (*350,IWORD,I2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) DO 1071 I = 1,5 ISUBC(I) = CORE(I2) I2 = I2 + 1 1071 CONTINUE IF (CORE(I81+3) + 1) 1290,350,1290 C C TURN STRESS AND FORCE NO-PRINT FLAGS ON IF INTERACTIVE FLAG IS ON C 1080 IF (INTRA .LT. 2) GO TO 1085 CASE(24,ISUB) = ORF(CASE(24,ISUB),8) CASE(27,ISUB) = ORF(CASE(27,ISUB),8) C 1085 CASE(1,ISUB) = LOADN IF (CORE(I81+4) .LE. LOADN+NMODES-1) GO TO 1310 LOADN = CORE(I81+4) IF (CORE(I81+3) .NE. -1) GO TO 1310 1090 IF (CASE(137,1) .EQ. 0) CASE(137,1) = 1 CALL IFP1E (ISUBC(1),SYMSEQ,NWDSC,I81,ICASTE) STFTEM = ICASTE NSUB = NSUB + NMODES C C CHECK SET NOS. THAT WERE SPECIFIED AFTER SCAN CARDS C C FORM G.C./UNISYS 4/1990 C IFP1H IS BY-PASSING THIS NEW CODE HERE (MSST=0) BECAUSE SET DATA C IS NOT AVAILABLE HERE. SAVE THIS CODE FOR FURTHER INVESTIGATION. C IF (MSST .EQ. 0) GO TO 1281 MM = 0 LL = LENCC + CASE(LENCC,ISUB) + 1 DO 1094 M = 1,MSST I = LL MSET = MISSET(M) C C WRITE (6,2345) MSET,MSST,LL C 1091 ISET = CASE(I,ISUB) C C LX1 = I - 3 C LX2 = I + 3 C WRITE (6,6789) ISET,(CASE(LX,ISUB),LX=LX1,LX2) C IF (ISET .EQ. 0) GO TO 1094 IF (MSET-ISET) 1092,1093,1092 1092 I = I + CASE(I+1,ISUB) IF (I .GE. 400) GO TO 1094 GO TO 1091 1093 MISSET(M) = 0 MM = MM + 1 1094 CONTINUE IF (MM .EQ. MSST) GO TO 1281 DO 1096 M = 1,MSST IF (MISSET(M) .EQ. 0) GO TO 1096 WRITE (OTPE,1095) UFM,MISSET(M) 1095 FORMAT (A23,' 608A, UNIDENTIFIED SET',I8,' WAS REQUESTED FOR ', 1 'SCAN') NOGO = 1 1096 CONTINUE C 1281 GO TO IRET3, (350,1370,605,1835) C C SUBCASE ID MISSING C 1290 IL = -609 LOADN = CASE(1,2) 1291 CALL IFP1D (IL) GO TO 350 1310 CALL IFP1D (-609) LOADN = CASE(1,2) GO TO 1090 C C BEGIN BULK C 1320 ASSIGN 1370 TO IRET3 1321 CORE(I81+3) = -1 CORE(I81+4) = 9999999 IF (ICASEC .EQ. 1) GO TO 1281 ICASEC = 1 IF (ISYMCM .EQ. 1) GO TO 1330 NSYM = 0 GO TO 1080 C C PUT OUT SUBCOM OR SYMCOM RECORD C 1330 ISYMCM = 0 1340 IF (NSYMSQ.NE.0 .OR. NSYM.NE.0) GO TO 1360 C C NO SUBSEQ OR SYMSEQ CARD C NSYM = NSYMS C 1360 NSYMSQ = 0 CASE(LENCC,2) = MAX0(NSYM,0) CASE(16,2) = NSYM GO TO 1080 1370 CALL CLOSE (SCR1,1) IF (IBOB.NE.1 .AND. IXYPL.NE.1) CALL CLOSE (CASECC,1) IF (IBOB .EQ. 1) CALL CLOSE (PCDB,1) IF (IBOB.EQ.1 .AND. .NOT.(SETCD.AND.PLOTCD)) CALL IFP1D (-631) IF (IXYPL .NE. 1) GO TO 1371 C C TERMINATE XYPLOT PACKAGE C IHOWDY = -1 CALL IFP1XY (IHOWDY,XINTCD) CALL CLOSE (XYCB,1) C C PUT CASECC ON NPTP C 1371 CONTINUE FILE = CASECC CALL OPEN (*300,CASECC,COREX(IBUF1),0) FILE = NPTP MAXCC = 0 CALL OPEN (*300,NPTP,COREX(IBUF2),3) 1380 CALL READ (*1400,*1390,CASECC,CORE(1),NZ,0,FLAG) ICRQ = NZ GO TO 330 1390 CALL WRITE (NPTP,CORE(1),FLAG,1) MAXCC = MAX0(MAXCC,FLAG) C C CHECK ANY PUNCH REQUEST ON OUTPUT DATA BLOCKS C IF (NPCH.EQ.1 .OR. FLAG.LT.166) GO TO 1380 DO 1393 I = 1,13 J = OUTPCH(I) IF (ANDF(CORE(J),4) .NE. 0) GO TO 1395 1393 CONTINUE GO TO 1380 1395 NPCH = 1 GO TO 1380 1400 CALL CLOSE (CASECC,1) CALL EOF (NPTP) CALL CLOSE (NPTP,2) IF (SPLOTS .LT. 0) SPLOTS = 0 C C IF THIS IS A RESTART SET CHANGE FLAGS IN IFP1B C IF (APP .LT. 0) CALL IFP1B IF (IUN .NE. 0) CALL IFP1D (-612) CALL MAKMCB (CORE,CASECC,NSUB,0,0) CORE(2) = NSUB CORE(4) = MAXCC CALL WRTTRL (CORE) C C SET NOGO FLAG TO -9 IF ERROR IN BULKDATA AND PLOT COMMANDS C SET NOGO FLAG TO POSITIVE IF ERROR IN BULKDATA, AND NOT IN PLOT C SET NOGO FLAG TO NEGATIVE IF NO ERROR IN BULKDATA, BUT IN PLOT C PUNCH AN IDENTIFICATION CARD IF PUNCH IS REQUESTED ON OUTPUT DATA, C AND PRINT SCAN KEYWORDS IF ERROR FLAG (JUMPH) WAS TURNED ON C IF (NOGO.NE.0 .AND. NOGOPC.EQ.-1) NOGO = -9 IF (NOGO .EQ. 0) NOGO = NOGOPC IF (NPCH .EQ. 1) WRITE (LPCH,1415) (TITLE(J),J=1,17) 1415 FORMAT (2H$ ,17A4) IF (JUMPH .EQ. 1) CALL IFP1H (0,0,2) RETURN C C ECHO REQUEST C 1420 IECHO = 0 IDO = CORE(I81) - 2 DO 1460 I = 1,IDO IWRD = CORE(I1) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) DO 1421 IO = 1,5 IF (IWRD .EQ. OUTOP(IO)) GO TO (1435, 1480, 1440, 1430, 1431), IO C BOTH NONE UNSO SORT PUNC C 1421 CONTINUE IF (IWRD .EQ. OUTOP(15)) GO TO 1470 CALL IFP1D (629) GO TO 1432 C C SORTED ECHO C 1430 CONTINUE IF (ANDF(IECHO,2) .NE. 0) CALL IFP1D (629) 1432 IECHO = ORF(IECHO,2) GO TO 1450 C C PUNCH ECHO C 1431 CONTINUE IF (ANDF(IECHO,4) .NE. 0) CALL IFP1D (629) IECHO = ORF(IECHO,4) NPCH = 1 GO TO 1450 C C BOTH ECHO C 1435 CONTINUE IF (ANDF(IECHO,3) .NE. 0) CALL IFP1D (629) IECHO = ORF(IECHO,3) GO TO 1450 C C UNSORTED ECHO C 1440 CONTINUE IF (ANDF(IECHO,1) .NE. 0) CALL IFP1D (629) IECHO = ORF(IECHO,1) 1450 I1 = I1 + 2 1460 CONTINUE C GO TO 350 C C NONO ECHO - ABSOLUTELY NO ECHO, NO EVEN IN RESTART C 1470 IO = 16 C C NONE ECHO C 1480 CONTINUE IF (IECHO.NE.0 .OR. I.LT.IDO) CALL IFP1D (630) IECHO = -1 IF (IO .EQ. 16) IECHO = -2 GO TO 350 C C LOOP CONTROL FOR EIGENVALUE C 1490 NMODES = CORE(I1) GO TO 350 C C PLOT DATA FOR BO BATA C 1500 I1 = I81 C C TEST FOR REQUIRED PLOT AND SET CARDS IN STRUCTURE PLOT OUTPUT PKG C TEMP = CORE(I81+2) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (CORE(I81+1).EQ.PLOT .AND. TEMP.EQ.BLANK) PLOTCD =.TRUE. IF (CORE(I81+1) .EQ. SET) SETCD = .TRUE. C C TEST FOR XYPLOT COMMAND CARDS IN STRUCTURE PLOT OUTPUT PACKAGE C IWRD = CORE(I81+1) DO 1501 I = 1,5 IF (IWRD .EQ. XYPRM(I)) CALL IFP1D (-632) 1501 CONTINUE C C TEST FORMAT OF PLOT COMMAND CARDS C I = NOGO NOGO = 0 CALL IFP1PC (I81,ICNT,XINTCD,ORG,PORG) IF (NOGO .NE. 0) NOGOPC = -1 NOGO = I C C COMPUTE LENGTH OF RECORD C IK = 0 1510 IF (CORE(I1)) 1520,1550,1530 1520 CONTINUE IP = 2 GO TO 1540 1530 IF (CORE( I1) .EQ. IEOR) GO TO 1550 IP = 2*CORE(I1) + 1 1540 IK = IK + IP I1 = I1 + IP GO TO 1510 1550 CALL WRITE (PCDB,CORE(I81),IK+1,1) GO TO 350 C C PLOT TITLE CARD C 1555 CORE(I81 ) = 10 CORE(I81+1) = IWORD CORE(I81+2) = BLANK CALL IFP1G (ITYPE,CORE(I81+3),1) CORE(I81+21) = 9999999 IK = 21 GO TO 1550 C C SYMCOM OR SUBCOM CARD C 1560 IF (ISYMCM .EQ. 0) GO TO 1570 ASSIGN 350 TO IRET3 GO TO 1340 1570 ISYMCM = 1 NSYMSQ = 0 GO TO 1070 C C LINE CARD - NLPP BOTTOM-LIMITED TO 10 C 1630 CONTINUE IF (CORE(I1-1) .NE. -1) GO TO 520 IF (IABS(CORE(I1)) .GT. 0) NLPP = IABS(CORE(I1)) IF (NLPP .LT. 10) NLPP = 10 GO TO 350 C C DIFFERENTIAL STIFFNESS OR PIECEWISE LINEAR COEFFICIENT SET C 1660 IK = 138 GO TO 1670 1665 IK = 164 1670 TEMP = CORE(I1) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (TEMP .NE. DEFA) GO TO 490 CORE(I1 ) = -1 CORE(I1+1) = IEOR CORE(I1-1) = -1 GO TO 491 C C K2PP C 1680 IK = 139 1690 CASE(IK ,ISUB) = CORE(I1 ) CASE(IK+1,ISUB) = CORE(I1+1) GO TO 350 C C M2PP C 1700 IK = 141 GO TO 1690 C C B2PP C 1710 IK = 143 GO TO 1690 C C REPRINT OF ABOVE CASE C 1720 NSYM = -1 IF(ISUB .NE. 2) CALL IFP1D (-607) GO TO 1560 C C TRANSFER FUNCTION SELECTION C 1730 IK = 15 GO TO 490 C C OUTPUT FREQUENCY LIST SET C 1740 IK = 145 TEMP = CORE(I1) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (TEMP .NE. ALL) GO TO 830 CORE(I1 ) = -1 CORE(I1-1) = -1 CORE(I1+1) = IEOR GO TO 491 C C COMPLEX EIGENVALUE METHOD C 1750 IK = 148 GO TO 490 C C STRUCTURAL DAMPING TABLE C 1760 IK = 149 GO TO 490 C C INERTIA RELIEF SET SELECTION C C1770 IK = 150 C GO TO 490 C C ANALYSIS SET FOR VDR C 1780 IK = 151 GO TO 830 C C ANALYSIS VELOCITY C 1790 IK = 154 GO TO 830 C C ANALYSIS ACCELERATION C 1800 IK = 157 GO TO 830 C C NON LINEAR FORCE VECTOR FOR TRANSIENT ANALYSIS C 1810 IK = 160 GO TO 490 C C X-Y PLOTTER PACKAGE C 1830 ASSIGN 1835 TO IRET3 GO TO 1321 1835 CALL CLOSE (CASECC,1) DO 1834 I = 2,6 1834 CORE(I) = 0 CORE(1) = XYCB CORE(7) = 1 CALL WRTTRL (CORE(1)) C C OPEN XYCB C IF (IBOB .NE. 1) GO TO 1837 CALL CLOSE (PCDB,1) IBOB = 0 1837 FILE = XYCB IXYPL = 1 I81 = NWPC + 1 GO TO 603 C C AXIS TITLE CARDS C 1838 ITYPE = 8 CORE(1) = IWORD DO 1839 I = 1,32 K = I81 + I - 1 CORE(K) = BLANK 1839 CONTINUE IF (IBOB .EQ. 1) GO TO 1555 CALL IFP1G (ITYPE,CORE(I81),1) C C PROCESS XYPLOTTER CARD C 1836 CALL IFP1XY (IHOWDY,XINTCD) GO TO 350 C C DELETE SETS FOR FORCE C C1840 IK = 161 C GO TO 490 C C AXISYM CARD C 1850 TEMP = CORE(I1) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (TEMP .EQ. SINE) GO TO 1851 IF (TEMP .EQ. COSI) GO TO 1852 IF (TEMP .EQ. FLUI) GO TO 1852 IF (TEMP .EQ. SYMM) GO TO 1853 IF (TEMP .EQ. ANTI) GO TO 1854 IF (TEMP .EQ. ANOM) GO TO 1855 C C ILLEGAL SPECIFICATION C IL = -617 GO TO 1291 1851 CASE(136,ISUB) = 1 IAXIC = 1 GO TO 350 1852 CASE(136,ISUB) = 2 IF (TEMP .EQ. COSI) IAXIC = 1 IF (TEMP .EQ. FLUI) IAXIF = 1 GO TO 350 1853 CASE(136,ISUB) = -2 GO TO 1856 1854 CASE(136,ISUB) = -1 GO TO 1856 1855 CASE(136,ISUB) = -30 GO TO 350 1856 TEMP = CORE(I1+1) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (TEMP .EQ. ANOM) CASE(136,ISUB) = CASE(136,ISUB)*10 GO TO 350 C C HARMONIC SELECTOR C 1860 IK = 137 TEMP = CORE(I1) IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0) IF (TEMP .EQ. ALL) GO TO 1861 IF (TEMP .EQ. NONE) GO TO 1862 CORE(I1) = CORE(I1) + 1 GO TO 490 1861 CORE(I1) = -1 GO TO 1863 1862 CASE(137,1)= 0 CORE(I1 ) = 0 1863 CORE(I1-1) = -1 CORE(I1+1) = IEOR GO TO 491 C C RANDOM SET SELECTION C 1870 IK = 163 GO TO 490 C C FMETHOD C 1880 IK = 165 GO TO 490 C C GRID POINT FORCE REQUEST C 1890 IK = 167 GO TO 830 C C ELEMENT STRAIN ENERGY C 1900 IK = 170 GO TO 830 C C AEROFORCE OUTPUT REQUEST C 1910 IK = 176 GO TO 830 C C AEROELASTIC GUST LOAD REQUEST C 1930 IK = 179 GO TO 490 C C STRAIN CARD C (180 THRU 182 WORDS OF CASECC) C 1950 IK = 180 GO TO 830 C C EOF ON INPUT UNIT C 2000 CALL IFP1D (-624) CALL MESAGE (-37,0,NIFP) RETURN END ================================================ FILE: mis/ifp1b.f ================================================ SUBROUTINE IFP1B C C THIS ROUTINE DETERMINES THE LOOP CONDITIONS AND CASE CONTROL C REQUEST CHNGES C LOOP$ -- THE CURRENT PROBLEM WILL LOOP C C LOOP1$-- THE OLD PROBLEM WAS A LOOP AND CASE CONTROL IS CHANGED C IN LENGTH C C COMMENTS FROM G.C. 10/92 C IWORD AND IBIT 200 WORDS EACH CORRESPOND TO 200 WORDS IN CASECC C ZERO IN IWORD MEANS NO FURTHER CHECKING C INTEGER VALUE IN IBIT POINTS TO RESTART BIT POSITION, AND WILL BE C SAVED IN BITS(17) AND BITS(18), BITS FOR LCC. (LBD = 16) C C LAST REVISED 7/91, BY G.CHAN/UNISYS, TO ALLOW HUGE THRU-RANGE ON C SET IN CASE CONTROL SECTION FOR PRINTOUT OR PLOTTING C EXTERNAL ANDF,ORF LOGICAL NEW,DEBUG INTEGER NAME(2),OPTP,CASECC,BITS,TWO1,CORE(2),CASE,CC,SS, 1 ORF,ANDF,COREY(401) DIMENSION ICASE(200,2),IWORD(200),IBIT(200) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /TWO / TWO1(32) COMMON /SYSTEM/ IBUF,NOUT COMMON /IFPX0 / LBD,LCC,BITS(1) COMMON /XIFP1 / IBLANK COMMON /ZZZZZZ/ COREX(1) COMMON /IFP1A / SCR1,CASECC,IS,NWPC,NCPW4,NMODES,ICC,NSET,NSYM, 1 ZZZZBB,ISTR,ISUB,LENCC,IBEN,EQUAL,IEOR EQUIVALENCE (COREX(1),COREY(1),ICASE(1,1)),(CORE(1),COREY(401)) DATA NAME / 4HIFP1, 4HB / DATA CASE , CC / 4HCASE,4HCC / DATA SS / 4HSS / DATA OPTP / 4HOPTP / DATA IWORD / 1 -1,01,01,01,01,01,01,01,01,00,01,01,01,01,01,-1,00,01,01,00, 2 01,01,00,01,01,00,01,01,00,01,01,00,01,01,00,01,01,01,-1,-1, 3 -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 4 -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 5 -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 6 -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 7 -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,00,-1,-1,01,01,01, 8 01,01,01,01,00,00,-1,01,01,-1,00,01,01,00,01,01,00,01,01,01, 9 -1,-1,01,01,01,-1,00,01,01,00,01,01,00,01,01,00,01,01,01,00, X 01,01,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1/ DATA IBIT / 1 00,02,03,04,05,06,07,08,09,10,10,10,13,14,15,00,18,18,18,18, 2 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,17,00,00, 3 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 4 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 5 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 6 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 7 00,00,00,00,00,00,00,00,00,00,00,00,00,00,16,00,00,20,21,21, 8 22,22,23,23,18,18,00,24,25,00,10,10,10,10,10,10,10,10,10,27, 9 00,00,30,26,29,00,18,18,18,18,18,18,10,10,10,10,10,10,33,18, X 18,18,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00/ DATA NEW,DEBUG / 2*.FALSE. / C K = LBD + 1 IFIROD = 0 IOLOOP = 0 ILOOP = 0 IFIRST = 0 IEOPTP = 0 C C ALLOCATE GINO BUFFERS C NZ = KORSZ(CORE) IBUF1 = NZ - IBUF + 1 IBUF2 = IBUF1 - IBUF NZ = NZ - 2*IBUF ICRQ =-NZ IF (NZ .LE. 0) GO TO 700 IECASE = 0 C C TRY TO FIND CASECC ON OPTP - TRY TO ASSUME PROPER POSITION C CALL OPEN (*560,OPTP,CORE(IBUF1),2) IOPN = 0 C C FIND CASECC C 10 CALL READ (*600,*610,OPTP,CORE(1),2,1,IFLAG) IF (CORE(1).EQ.CASE .AND. CORE(2).EQ.CC) GO TO 30 IF (CORE(1).EQ.CASE .AND. CORE(2).EQ.SS) GO TO 20 IF (IOPN .EQ. 0) CALL REWIND (OPTP) IOPN = 1 CALL SKPFIL (OPTP,1) GO TO 10 C C CASESS FOUND ON OPTP - SKIP TO CASECC C 20 CALL READ (*600,*610,OPTP,CORE(1),2,1,IFLAG) IF (CORE(1).NE.CASE .OR. CORE(2).NE.CC) GO TO 20 C C CASECC FOUND ON OLD PROB TAPE C C OPEN CASECC AND SKIP CASESS IF PRESENT C 30 CALL OPEN (*650,CASECC,CORE(IBUF2),0) 40 CALL READ (*670,*680,CASECC,CORE(1),2,1,IFLAG) IF (CORE(1).NE.CASE .OR. CORE(2).NE.CC) GO TO 40 ASSIGN 50 TO IHOP 50 CALL READ (*550,*610,OPTP,ICASE(1,2),LENCC,0,IFLAG) IF (ICASE(16,2) .EQ. 0) GO TO 60 CALL FWDREC (*600,OPTP) GO TO 50 60 IF (ICASE(LENCC,2) .EQ. 0) GO TO 70 LSYM = ICASE(LENCC,2) CALL READ (*600,*610,OPTP,CORE(1),-LSYM,0,IFLAG ) 70 CALL READ (*600,*80 ,OPTP,CORE(1), NZ,1,IFOPTP) ICRQ = NZ GO TO 700 80 CALL READ (*510,*680,CASECC,ICASE(1,1),LENCC,0,IFLAG) IF (ICASE(16,1) .EQ. 0) GO TO 90 CALL FWDREC (*670,CASECC) GO TO 80 90 IF (ICASE(LENCC,1) .EQ. 0) GO TO 100 LSYM = ICASE(LENCC,1) CALL READ (*670,*680,CASECC,CORE(IFOPTP+1),-LSYM,0,IFLAG) 100 CALL READ (*670,*110,CASECC,CORE(IFOPTP+1),NZ-IFOPTP,1,IFCASE) ICRQ = NZ - IFOPTP GO TO 700 C C CHECK FOR LOOPING PROBLEM C 110 IF (IFIRST .NE. 0) GO TO 120 IFIRST= 1 ISPC = ICASE( 3,1) IMPC = ICASE( 2,1) IMTD = ICASE( 5,1) IFREQ = ICASE( 14,1) ITFL = ICASE( 15,1) IK1 = ICASE(139,1) IK2 = ICASE(140,1) IM1 = ICASE(141,1) IM2 = ICASE(142,1) IB1 = ICASE(143,1) IB2 = ICASE(144,1) IF (ICASE(165,1).GT.0 .OR. ICASE(164,1).GT.0) GO TO 130 GO TO 140 120 IF (ICASE( 3,1) .NE. ISPC) GO TO 130 IF (ICASE( 2,1) .NE. IMPC) GO TO 130 IF (ICASE( 5,1) .NE. IMTD) GO TO 130 IF (ICASE(139,1).NE.IK1 .OR. ICASE(140,1).NE.IK2) GO TO 130 IF (ICASE(141,1).NE.IM1 .OR. ICASE(142,1).NE.IM2) GO TO 130 IF (ICASE(143,1).NE.IB1 .OR. ICASE(144,1).NE.IB2) GO TO 130 IF (ICASE( 15,1) .NE. ITFL ) GO TO 130 IF (ICASE( 14,1) .NE. IFREQ) GO TO 130 IF (ICASE(138,1) .GT. 0) GO TO 130 IF (ICASE( 38,1) .NE. 0) GO TO 130 GO TO 140 C C SET LOOP$ C 130 BITS(K) = ORF(BITS(K),TWO1(11)) ILOOP = 1 140 CONTINUE C C DETERMINE IF OLD PROBLEM WOULD HAVE LOOPED C IF (IFIROD .NE. 0) GO TO 150 IFIROD= 1 ISPC1 = ICASE( 3,2) IMPC1 = ICASE( 2,2) IMTD1 = ICASE( 5,2) IK11 = ICASE(139,2) IK21 = ICASE(140,2) IM11 = ICASE(141,2) IM21 = ICASE(142,2) IB11 = ICASE(143,2) IB21 = ICASE(144,2) ITFL1 = ICASE( 15,2) IFREQ1= ICASE( 14,2) IF (ICASE(164,2).GT.0 .OR. ICASE(165,2).GT.0) GO TO 160 GO TO 170 C C SECOND RECORD APPLY LOOP RULES C 150 IF (ICASE( 3,2) .NE. ISPC1) GO TO 160 IF (ICASE( 2,2) .NE. IMPC1) GO TO 160 IF (ICASE( 5,2) .NE. IMTD1) GO TO 160 IF (ICASE(139,2).NE.IK11 .OR. ICASE(140,2).NE.IK21) GO TO 160 IF (ICASE(141,2).NE.IM11 .OR. ICASE(142,2).NE.IM21) GO TO 160 IF (ICASE(143,2).NE.IB11 .OR. ICASE(144,2).NE.IB21) GO TO 160 IF (ICASE(138,2) .GT. 0) GO TO 160 IF (ICASE( 38,2) .NE. 0) GO TO 160 IF (ICASE( 15,2) .NE. ITFL1 ) GO TO 160 IF (ICASE( 14,2) .NE. IFREQ1) GO TO 160 GO TO 170 160 IOLOOP = 1 170 CONTINUE IF (IECASE .NE. 1) GO TO 180 IF (IOLOOP .EQ. 1) GO TO 530 GO TO 520 C C CHECK FOR CHANGES - C 180 IF (IEOPTP .EQ. 1) IEOPTP = 2 DO 500 I = 1,LENCC IF (IBIT(I) .EQ. 0) GO TO 500 L = IBIT(I) IF (L.LE.32 .AND. ANDF(BITS(K),TWO1(L)).NE.0) GO TO 500 IF (IWORD(I) .EQ. 0) GO TO 210 IF (ICASE(I,1) .EQ. ICASE(I,2)) GO TO 500 190 IF (L .GT. 32) GO TO 200 BITS(K) = ORF(BITS(K),TWO1(L)) GO TO 500 C C SECOND CASECC WORD C 200 L = L - 31 BITS(K+1) = ORF(BITS(K+1),TWO1(L)) GO TO 500 C C CHECK FOR PRESENCE OF PRINT AND PLOT REQUESTS C 210 IF (I.NE.135 .AND. ICASE(I,1).EQ.0) GO TO 500 IF (I .NE. 135) GO TO 220 IF (ICASE(I,1).NE.0 .OR. ICASE(I,2).NE.0) GO TO 190 GO TO 500 220 IF (IBIT(I) .EQ. 18) BITS(K+1) = ORF(BITS(K+1),TWO1(3)) IF (IBIT(I) .EQ. 10) BITS(K+1) = ORF(BITS(K+1),TWO1(4)) IF (IEOPTP .EQ. 2) GO TO 190 IF (ICASE(I,1).LT.0 .AND. ICASE(I,2).LT.0) GO TO 500 IF (ICASE(I,1).LT.0 .AND. ICASE(I,2).GE.0) GO TO 190 IF (ICASE(I,1).GT.0 .AND. ICASE(I,2).LE.0) GO TO 190 IPCASE = IFOPTP + 1 230 IF (IPCASE .GT. IFOPTP+IFCASE) GO TO 690 IF (CORE(IPCASE) .EQ. ICASE(I,1)) GO TO 240 IPCASE = IPCASE + CORE(IPCASE+1) + 2 GO TO 230 240 IPOPTP = 1 250 IF (IPOPTP .GT. IFOPTP) GO TO 620 IF (CORE(IPOPTP) .EQ. ICASE(I,2)) GO TO 260 IPOPTP = IPOPTP + CORE(IPOPTP+1) + 2 GO TO 250 260 IQCASE = IFOPTP + IFCASE + 1 IX = IPCASE IY = IQCASE ASSIGN 280 TO JUMP IF (DEBUG) WRITE (NOUT,270) 270 FORMAT (/,' ------ NPTP PASS ------') GO TO 360 280 IQOPTP = IY IX = IPOPTP ASSIGN 300 TO JUMP IF (DEBUG) WRITE (NOUT,290) 290 FORMAT (/,' ------ OPTP PASS ------') GO TO 360 300 LENG1 = IQOPTP - IQCASE LENG2 = IY - IQOPTP IF (DEBUG) WRITE (NOUT,310) CORE(IPCASE),LENG1,LENG2,IY,IQOPTP, 1 IQCASE 310 FORMAT (//,' IFP1B/@310 CHECKING SETS',I9,' FROM NPTP AND OPTP', 1 /5X,'LENG1,LENG2, IY,IQOPTP,IQCASE =', 2I5,3I7) IF (LENG1 .NE. LENG2) GO TO 340 DO 320 MM = 1,LENG1 IF (CORE(IQCASE+MM-1) .NE. CORE(IQOPTP+MM-1)) GO TO 340 320 CONTINUE IF (DEBUG) WRITE (NOUT,330) CORE(IPCASE) 330 FORMAT (' ... NO DIFFERENCES IN SET',I8) GO TO 500 340 WRITE (NOUT,350) UIM,CORE(IPCASE) 350 FORMAT (A29,', SET',I9,' DEFINITION HAS BEEN CHANGED IN RESTART') GO TO 190 C C A NEW NON-EXPANDING METHOD IS IMPLEMENTED HERE BY G.CAHN/UNISYS C 8/91, IN CASE THE ORIGINAL LOGIC RUNS OUT OF CORE SPACE C C THE NEW METHOD WILL CONCATINATE VARIATIONS OF SET DEFINITION TO C THE SIMPLEST FORM. E.G. THE NEXT 3 LINES SPECIFY THE SAME SET C 10 THRU 400000 (THIS IS THE SIMPLEST FORM) C 10, 11, 12 THRU 400008, 400009, 400000 C 10 THRU 20, 21, 22, 23 THRU 200, 201 THRU 500, 501 502 THRU 400000 C 360 IF (NEW) GO TO 420 IN = CORE(IX+1) IX = IX + 2 M = 0 370 M = M + 1 IF (M-IN) 380,400,490 380 IF (CORE(IX+M) .GT. 0) GO TO 400 M1 = CORE(IX+M-1) M2 =-CORE(IX+M ) ICRQ = IY + M2 - M1 - NZ IF (ICRQ .GT. 0) GO TO 410 DO 390 MM = M1,M2 CORE(IY) = MM IY = IY + 1 390 CONTINUE M = M + 1 GO TO 370 400 ICRQ = IY - NZ IF (IY .GT. NZ) GO TO 700 CORE(IY) = CORE(IX+M-1) IY = IY + 1 GO TO 370 C C INSUFFICIENT CORE SPACE, SWITCH TO NEW METHOD C 410 NEW = .TRUE. GO TO 260 C C NEW LOGIC WITHOUT THRU RANGE EXPANSION C 420 IN = CORE(IX+1) IX = IX + 2 M0 = IY CORE(IY) = CORE(IX) IY = IY + 1 IF (IN .EQ. 1) GO TO 490 CORE(IY) = CORE(IX+1) IF (CORE(IY) .EQ. CORE(IY-1)+1) CORE(IY) = -CORE(IY) IY = IY + 1 M = 1 430 M = M + 1 IF (M .GE. IN) GO TO 470 M1 = CORE(IX+M) M2 = IABS(M1) IF (DEBUG) WRITE (NOUT,440) M,IN,IX,IY,M1,CORE(IY-1) 440 FORMAT (' @440 M,IN,IX,IY,M1,CORE(IY-1) =',6I8) IF (M1 .LT. 0) GO TO 450 IF (M1 .NE. 1-CORE(IY-1)) GO TO 460 CORE(IY-1) = -M2 GO TO 430 450 IF (CORE(IY-1) .GT. 0) GO TO 460 CORE(IY-1) = -M2 GO TO 430 460 CORE(IY) = M1 IF (M1 .EQ. CORE(IY-1)+1) CORE(IY) = -M2 IY = IY + 1 GO TO 430 470 ICRQ = IY - NZ IF (IY .GT. NZ) GO TO 700 M1 = IY - 1 IF (DEBUG) WRITE (NOUT,480) CORE(IX-2),(CORE(J),J=M0,M1) 480 FORMAT (/,' IFP1B/@480 SET',I8, /,(2X,15I8)) C 490 GO TO JUMP, (280,300) C 500 CONTINUE GO TO IHOP, (50,80) C C EOF ON CASECC C 510 CALL CLOSE (CASECC,1) IF (IEOPTP .NE. 0) GO TO 530 IECASE = 1 GO TO 150 520 CALL READ (*530,*610,OPTP,ICASE(1,2),LENCC,1,IFLAG) IF (ICASE(16,2) .NE. 0) GO TO 520 GO TO 150 530 CALL CLOSE (OPTP,2) IF (IEOPTP.EQ.1 .OR. IOLOOP.EQ.0) GO TO 540 C C SET LOOP1 THIS SHOULD REEXECUTE THE ENTIRE LOOP C BITS(K) = ORF(BITS(K),TWO1(12)) C C CHECK FOR LOOP$ IF NOT ON SET NOLOOP$ C 540 IF (ILOOP .EQ. 0) BITS(K) = ORF(BITS(K),TWO1(32)) RETURN C C EOF ON OPTP C 550 ASSIGN 80 TO IHOP IEOPTP = 1 GO TO 80 C C ERROR MESSAGES C 560 IP1 = -1 570 IP2 = OPTP 580 CALL MESAGE (IP1,IP2,NAME) RETURN C 600 IP1 = -2 GO TO 570 610 IP1 = -3 GO TO 570 620 CORE(1) = OPTP CORE(2) = IBLANK 630 WRITE (NOUT,640) SFM,CORE(1),CORE(2) 640 FORMAT (A25,' 651, LOGIC ERROR IN SUBROUTINE IFP1B WHILE ', 1 'PROCESSING SET DATA ON ',2A4,' FILE.') IP1 = -37 GO TO 580 650 IP1 = -1 660 IP2 = CASECC GO TO 580 670 IP1 = -2 GO TO 660 680 IP1 = -3 GO TO 660 690 CORE(1) = CASE CORE(2) = CC GO TO 630 700 IP1 = -8 IP2 = ICRQ GO TO 580 END ================================================ FILE: mis/ifp1c.f ================================================ SUBROUTINE IFP1C (I81,NZ) C LOGICAL BIT64 INTEGER CORE(1),COREY(401),SCR1,THRU,OTPE,EXCE,BLANK, 1 NIFP1C(2) COMMON /SYSTEM/ SYSBUF,OTPE,NOGO,INTP,MPCN,SPCN,METHOD,LOADNN, 1 NLPP,STFTEM,IPAGE,LINE,TLINE,MAXLIN,DATE(3),TIM, 2 IECHO,SPLOTS,SKIP(65),INTRA COMMON /IFP1A / SCR1,CASECC,IS,NWPC,NCPW4,NMODES,ICC,NSET,NSYM, 1 ZZZZBB,ISTR,ISUB,LENCC,IBEN,EQUAL,IEOR COMMON /XIFP1 / BLANK,BIT64 COMMON /ZZZZZZ/ COREX(1) EQUIVALENCE (COREX(1),COREY(1)), (CORE(1),COREY(401)) DATA THRU / 4HTHRU/,EXCE / 4HEXCE/ DATA NIFP1C / 4H IFP,4H1C / C I81O = I81 CORE(I81+2) = ISUB IF (CORE(I81+3) .NE. -1) GO TO 260 CORE(I81) = CORE(I81+4) ILSET = I81 + 1 CORE(ILSET) = 0 C C FIND BEGINNING OF SET LIST C I81 = I81 + 5 IF (CORE(I81) .EQ. IEOR) GO TO 270 IREAL = 0 IF (CORE(I81) .GT. 1) GO TO 200 I81 = I81 + 3 IF (CORE(I81) .EQ. IEOR) GO TO 270 IPUT = ILSET + 2 20 ITHRU = 0 IEXCPT= 0 30 ASSIGN 20 TO IRET IF (CORE(I81)) 40,60,80 40 ITHRU = 0 IEXCPT = 0 50 IF (IABS(CORE(I81)) .NE. 1) IREAL = 1 CORE(IPUT) = CORE(I81+1) IBK1 = IABS(CORE(I81+1)) I81 = I81 + 2 IPUT = IPUT + 1 CORE(ILSET) = CORE(ILSET) + 1 GO TO 30 C C CONTINUATION CARD C C ... ALLOW ON-LINE READ IF INTRA IS .GT. ZERO, SET BY ONLINS C 60 IF (INTRA .LE. 0) GO TO 65 CALL XREAD (*240,CORE(1)) ICC = ICC + 1 GO TO 67 65 CALL READ (*240,*240,SCR1,CORE(1),NWPC,0,FLAG) WRITE (OTPE,250) ICC,(CORE(I),I=1,NWPC) ICC = ICC + 1 LINE = LINE + 1 IF (LINE .GE. NLPP) CALL PAGE 67 I81 = IPUT NZ = NZ - CORE(ILSET) CALL XRCARD (CORE(I81),NZ,CORE(1)) GO TO IRET, (20,120) C C END OF RECORD C 70 I81 = IPUT IF (CORE(ILSET)-1) 200,230,71 71 CONTINUE IF (IREAL .EQ. 1) GO TO 230 C C SORT LIST C ISET = CORE(ILSET) CALL IFP1S (CORE(ILSET+2),CORE(I81),CORE(ILSET)) C C CORRECT FOR DELETIONS C I81 = I81 + CORE(ILSET) - ISET GO TO 230 C C THRU AND EXCEPT C 80 IF (CORE(I81) .EQ. IEOR) GO TO 70 IF (IREAL .EQ. 1) CALL IFP1D(-622) IF (BIT64) CALL MVBITS (BLANK,0,32,CORE(I81+1),0) IF (CORE(I81+1) .NE. THRU) GO TO 90 IF (CORE(ILSET) .EQ. 0) GO TO 200 IF (CORE(IPUT-1) .LT. 0) GO TO 280 I81 = I81 +3 IF (CORE(I81) .EQ. IEOR) GO TO 270 IBK = IBK1 IFWD = CORE(I81+1) IFWD1= IFWD IF (IBK .GE. IFWD) GO TO 200 ITHRU = 1 C TEST FOR DEGENERATE THRU INTERVAL IF (IFWD-IBK.EQ.1) GO TO 50 CORE(I81+1) = -CORE(I81+1) GO TO 50 C C EXCEPT C 90 IF (CORE(I81+1) .NE. EXCE) GO TO 200 IF (ITHRU .EQ. 1) GO TO 110 C C EXCEPT WITHOUT THRU C CALL IFP1D (-613) GO TO 220 C C PROCESS EXCEPT CANDIDATES C 110 I81 = I81 + 3 IF (CORE(I81) .EQ. IEOR) GO TO 270 IF (IEXCPT .EQ. 1) GO TO 280 IEXCPT = 1 JEXCPT = 0 120 ASSIGN 120 TO IRET IF (CORE(I81)) 130,60,80 130 IF (CORE(I81+1) .GT. IFWD1) GO TO 20 IF (CORE(I81+1) .LT. IBK) GO TO 200 IF (CORE(I81+1).LE.CORE(I81-1) .AND. JEXCPT.EQ.1 .AND. 1 (CORE(I81+2).LE.0 .OR. CORE(I81+2).EQ.IEOR)) GO TO 160 JEXCPT = 1 IF (CORE(I81+1) .EQ. IBK) GO TO 290 IF (CORE(I81+1) .EQ. IFWD) GO TO 300 IF (CORE(I81+1) .EQ. IFWD1) GO TO 310 IF (CORE(I81+1)-1 .EQ. IBK) GO TO 140 IF (CORE(I81+1)+1 .EQ.IFWD) GO TO 180 C EXCEPT IN MIDDLE OF INTERVAL CORE(IPUT-1) = -CORE(I81+1) + 1 IACIP = IABS(CORE(IPUT-1)) IF (IACIP-IBK.EQ.1) CORE(IPUT-1) = IACIP CORE(IPUT ) = CORE(I81+1)+1 CORE(IPUT+1) = -IFWD IF (IFWD-CORE(IPUT).EQ.1) CORE(IPUT+1) = IFWD IBK = CORE(IPUT) I81 = I81 + 2 IPUT= IPUT + 2 CORE(ILSET) = CORE(ILSET) + 2 GO TO 120 C EXCEPT ADJACENT TO BOTTOM OF INTERVAL 140 IL1 = CORE(IPUT-1) IBK = IBK + 2 CORE(IPUT-1) = IBK IAL1 = IABS(IL1) IF (IAL1-IBK.EQ.1) IL1 = IAL1 CORE(IPUT) = IL1 IF (IBK .NE. IAL1) GO TO 150 IBK = 0 IFWD = 0 I81 = I81 + 2 GO TO 120 150 IPUT = IPUT + 1 I81 = I81 + 2 CORE(ILSET) = CORE(ILSET) + 1 GO TO 120 160 CALL IFP1D (-626) I81 = I81 + 2 GO TO 120 C EXCEPT ADJACENT TO TOP OF INTERVAL 180 CORE(IPUT) = IABS(CORE(IPUT-1)) IFWD = IFWD - 2 CORE(IPUT-1) = -IFWD IF (IFWD-IBK .EQ. 1) CORE(IPUT-1) = IFWD GO TO 150 C C FOULED UP SET C 200 CALL IFP1D (-614) 220 I81 = I81O NSET = NSET - 1 230 RETURN 240 CALL MESAGE (-1,SCR1,NIFP1C) GO TO 240 250 FORMAT (11X,I8,6X,20A4) C C NO NAME FOR SET C 260 CALL IFP1D (-615) GO TO 220 C C UNEXPECTED END OF RECORD C 270 CALL IFP1D (-623) GO TO 220 C C EXCEPT FOLLOWED BY THRU C 280 CALL IFP1D (-616) GO TO 220 C C EXCEPTING BEGINNING OF INTERVAL C 290 IBK = IBK + 1 CORE(IPUT-2) = IBK I81 = I81 + 2 IF (IFWD-IBK .EQ. 1) CORE(IPUT-1) = IFWD IF (IBK .NE. IFWD) GO TO 120 IPUT = IPUT - 1 CORE(ILSET) = CORE(ILSET) - 1 IBK = 0 IFWD = 0 GO TO 120 C C EXCEPT END OF INTERVAL C 300 IFWD = IFWD - 1 CORE(IPUT-1) = -IFWD I81 = I81 + 2 IF (IFWD-IBK .EQ. 1) CORE(IPUT-1) = IFWD IF (IBK .NE. IFWD) GO TO 20 IPUT = IPUT - 1 CORE(ILSET) = CORE(ILSET) - 1 GO TO 20 C C EXCEPT PAST OLD END OF INTERVAL C 310 I81 = I81 + 2 IPUT = IPUT- 1 CORE(ILSET) = CORE(ILSET) - 1 GO TO 20 END ================================================ FILE: mis/ifp1d.f ================================================ SUBROUTINE IFP1D (MSNO) C C MESSAGE WRITER FOR IFP1 C INTEGER AMSNO CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ D,NOUT,NOGO,DD(5),NLPP,DDD(2),LINE DATA MAXMSG/ 646 / C AMSNO = IABS(MSNO) IF (MSNO .LT. 0) NOGO = 1 IF (AMSNO .GT. MAXMSG) GO TO 40 IF (AMSNO .EQ. 612) CALL PAGE1 IF (MSNO .LE. 0) WRITE (NOUT,10) UFM,AMSNO IF (MSNO .GT. 0) WRITE (NOUT,20) UWM,AMSNO 10 FORMAT (A23,I7) 20 FORMAT (A25,I5) IF (AMSNO.GE.634 .AND. AMSNO.LE.644) WRITE (NOUT,30) 30 FORMAT (1H+,37X,'(FROM SCAN)') IWHER = AMSNO - 600 GO TO ( 60, 80,100,120,140,160,180,200,220,240, 1 260,280,400,420,440,460,480,500, 40, 40, 2 40,520,540,560,580,600,620,640,660,680, 3 700,720,740,760,780,800,820,840,860,880, 4 900,920,940,960,980,1000), IWHER C C 619 - 621 ARE DEFINED IN IFP1S C 40 WRITE (NOUT,50) AMSNO 50 FORMAT (' NO TEXT AVAILABLE FOR MESSAGE',I6) GO TO 1100 C 60 WRITE (NOUT,70) 70 FORMAT (' THE KEYWORD ON THE ABOVE CARD TYPE IS ILLEGAL OR MISS', 1 'PELLED. SEE THE FOLLOWING LIST FOR LEGAL KEYWORDS.') GO TO 1100 80 WRITE (NOUT,90) 90 FORMAT (' TWO OR MORE OF THE ABOVE CARD TYPES DETECTED WHERE ', 1 'ONLY ONE IS LEGAL.' ,/,' THE LAST FOUND WILL BE USED.') LINE = LINE + 1 GO TO 1100 100 WRITE (NOUT,110) 110 FORMAT (' THE ABOVE CARD DOES NOT END PROPERLY. COMMENTS SHOULD', 1 'BE PRECEEDED', /,' BY A DOLLAR SIGN.') LINE = LINE + 1 GO TO 1100 120 WRITE (NOUT,130) 130 FORMAT (' THE ABOVE CARD HAS A NON-INTEGER IN AN INTEGER FIELD.') GO TO 1100 140 WRITE (NOUT,150) 150 FORMAT (' A SYMSEQ OR SUBSEQ CARD APPEARS WITHOUT A SYMCOM OR ', 1 'SUBCOM CARD.') GO TO 1100 160 WRITE (NOUT,170) 170 FORMAT (' A REQUEST FOR TEMPERATURE DEPENDENT MATERIALS OCCURS AT' 1, ' THE SUBCASE LEVEL.', /,' ONLY ONE ALLOWED PER PROBLEM.') GO TO 1100 180 WRITE (NOUT,190) 190 FORMAT (' A REPCASE CARD MUST BE PROCEEDED BY A SUBCASE CARD') GO TO 1100 200 WRITE (NOUT,210) 210 FORMAT (' THE SET ID SPECIFIED ON THE ABOVE CARD MUST BE DEFINED', 1 ' PRIOR TO THIS CARD.') GO TO 1100 220 WRITE (NOUT,230) 230 FORMAT (' SUBCASE DELIMITER CARDS MUST HAVE A UNIQUE IDENTIFYING', 1 ' INTEGER.') GO TO 1100 240 WRITE (NOUT,250) 250 FORMAT (' NO SET ID SPECIFIED. ALL WILL BE ASSUMED.') GO TO 1100 260 WRITE (NOUT,270) 270 FORMAT (' TEN CARDS HAVE ILLEGAL KEY WORDS. NASTRAN ASSUMES BEGIN' 1, ' BULK CARD', /,' IS MISSING. IT WILL NOW PROCESS YOUR ', 2 'BULK DATA.') LINE = LINE + 1 GO TO 1100 C C THE LIST OF CASE CONTROL CARDS IS FORMATTED FOR SHORT PAPER C 280 WRITE (NOUT,290) 290 FORMAT (///,10(1H-),' THE FOLLOWING IS A LIST OF VALID CASE ', 1 'CONTROL KEY WORDS EXCEPT FOR THE PLOTTER PACKAGES.', 2 10(1H-), //6X,'KEYWORD',20X,'MEANING',/) WRITE (NOUT,300) 300 FORMAT (5X,'ACCELERATION',12X, 1 'OUTPUT REQUEST FOR ACCELERATION VECTORS', 2 /6X,'AEROFORCE',15X, 3 'OUTPUT REQUEST FOR AERODYNAMIC FORCES', 4 /6X,'AXISYMMETRIC',12X, 5 'AXISYMMETRIC CASE SELECTION (SINE OR COSINE)', 6 /6X,'B2PP',20X, 7 'SELECTION OF STRUCTURAL DAMPING OR THERMAL CAPACITANCE ', 8 'MATRICES', 9 /6X,'CMETHOD',17X, O 'COMPLEX EIGENVALUE METHOD SELECTION', 1 /6X,'DEFORM',18X, 2 'REQUEST FOR ENFORCED ELEMENT DEFORMATION', 3 /6X,'DISPLACEMENT',12X, 4 'OUTPUT REQUEST FOR DISPLACEMENT VECTORS', 5 /6X,'DLOAD',19X, 6 'DYNAMIC LOAD SELECTION') WRITE (NOUT,310) 310 FORMAT (6X,'DSCOEFFICIENT',11X, 1 'DIFFERENTIAL STIFFNESS COEFFICIENT SET SELECTION', 2 /6X,'ECHO',20X, 3 'BULK DATA ECHO SELECTOR (SORT,UNSORT,BOTH,NONE,PUNCH)', 4 /6X,'ELFORCE',17X, 5 'OUTPUT REQUEST FOR ELEMENT FORCES', 6 /6X,'ELSTRESS',16X, 7 'OUTPUT REQUEST FOR ELEMENT STRESSES', 8 /6X,'ESE',21X, 9 'REQUEST FOR ELEMENT STRAIN ENERGY OUTPUT', O /6X,'FMETHOD',17X, 1 'REQUEST FOR AEROELASTIC FLUTTER METHOD', 2 /6X,'FORCE',18X, 3 'OUTPUT REQUEST FOR ELEMENT FORCES', 4 /6X,'FREQUENCY',15X, 5 'FREQUENCY SET SELECTION') WRITE (NOUT,320) 320 FORMAT (6X,'GPFORCE',17X, 1 'REQUEST FOR GRID POINT FORCE BALANCE OUTPUT', 2 /6X,'GUST',20X, 3 'AEROELASTIC RESPONSE ANALYSIS INPUT LOADING CONDITION', 4 /6X,'HARMONICS',15X, 5 'HARMONICS TO BE PRINTED FOR AXISYMMETRIC SHELL PROBLEM', 6 /6X,'IC',22X, 7 'INITIAL CONDITIONS FOR DIRECT TRANSIENT PROBLEM', 8 /6X,'K2PP',20X, 9 'SELECTION OF STRUCT-L STIFFNESS OR THERMAL CONDUCTANCE ', O 'MATRICES', 1 /6X,'LABEL',19X, 2 'DEFINES PRINTER, PLOTTER AND PUNCH OUTPUT LABEL', 3 /6X,'LINE',20X, 4 'NUMBER OF LINES PER PAGE (DFLT = 50 -CDC,IBM, 45 -UNIVAC)' 5, /6X,'LOAD',20X, 6 'STATIC ANALYSIS EXTERNAL LOAD SELECTION OR HEAT POWER/', 7 'FLUX') WRITE (NOUT,330) 330 FORMAT (6X,'M2PP',20X, 1 'SELECTION OF INPUT MASS MATRICES VIA DMIG CARDS', 2 /6X,'MAXLINES',16X, 3 'MAXIMUM NUMBER OF PRINTER LINES (DEFAULT = 20000)', 4 /6X,'METHOD',18X, 5 'REAL EIGENVALUE METHOD SELECTION', 6 /6X,'MODES',19X, 7 'DUPLICATE CASE CONTROL THIS MANY TIMES', 8 /6X,'MPC',21X, 9 'SELECTS MULTI-POINT CONSTRAINTS OR HEAT TRANSFER ', O 'BOUNDARY TEMPS', 1 /6X,'MPCFORCE',16X, 2 'OUTPUT REQUEST FOR MULTI-POINT FORCES OF CONSTRAINT', 3 /6X,'NCHECK',18X, 4 'OUTPUT REQUEST FOR FORCE AND STRESS PRECISION', 5 /6X,'NLLOAD',18X, 6 'OUTPUT REQUEST FOR NON-LINEAR LOADS FOR ANALYSIS SET') C CALL PAGE1 WRITE (NOUT,340) 340 FORMAT (//6X,7HKEYWORD,20X,7HMEANING, 1 //6X,'NONLINEAR',15X, 2 'NON-LINEAR LOAD SET FOR TRANSIENT PROBLEMS', 3 /6X,'OFREQUENCY',14X, 4 'SELECTS OUTPUT FREQUENCIES OR -IM- PART OF COMPLEX ', 5 'EIGENVALUES', 6 /6X,'OLOAD',19X, 7 'OUTPUT REQUEST FOR APPLIED LOAD', 8 /6X,'OTIME',19X, 9 'REQUEST FOR SELECTED OUTPUT TIMES', O /6X,'OUTPUT',18X, 1 'OUTPUT PACKET DELIMITER (THIS CARD IS OPTIONAL)', 2 /6X,'OUTPUT(PLOT)',12X, 3 'STRUCTURE PLOTTER OUTPUT PACKET DELIMITER', 4 /6X,'OUTPUT(XYOUT)',11X, 5 'XY OUTPUT PACKET DELIMITER (PLOTTER, PRINTER AND PUNCH)', 6 /6X,'OUTPUT(XYPLOT)',10X, 7 'EQUIVALENT TO OUTPUT(XYOUT)') WRITE (NOUT,350) 350 FORMAT (6X,'PLCOEFFICIENT',11X, 1 'PIECEWISE LINEAR COEFFICIENT SET SELECTION', 2 /6X,'PLOTID',18X, 3 'DEFINES PLOTTER OUTPUT HEADER FRAME TITLE', 4 /6X,'PRESSURE',16X, 5 'OUTPUT REQUEST FOR HYDROELASTIC PRESSURE', 6 /6X,'RANDOM',18X, 7 'RANDOM ANALYSIS PSDL AND RANDT SET SELECTION', 8 /6X,'REPCASE',17X, 9 'REPEAT THE PRECEDING CASE AGAIN', O /6X,'SACCELERATION',11X, 1 'OUTPUT REQUEST FOR SOLUTION SET ACCELERATION VECTORS', 2 /6X,'SCAN',20X, 3 'SCAN AND OUTPUT STRESSES OR FORCES FOR PREDETERMINED ', 4 'CRITERIA', 5 /6X,'SDAMPING',16X, 6 'MODAL FORMULATION STRUCTURAL DAMPING TABULAR FUNCTION ', 7 'SELECTION', 8 /6X,'SDISPLACEMENT',11X, 9 'OUTPUT REQUEST FOR SOLUTION SET DISPLACEMENT VECTORS') WRITE (NOUT,360) 360 FORMAT (6X,'SET',21X, 1 'DEFINES OUTPUT SET LIST', 2 /6X,'SPC',21X, 3 'SELECTS SINGLE POINT CONSTRAINTS OR HEAT TRANSFER ', 4 'BOUNDARY TEMP', 5 /6X,'SPCFORCE',16X, 6 'REQUESTS SINGLE POINT CONSTRAINT FORCES OR THERMAL POWER', 7 /6X,'STRAIN',18X, 8 'OUTPUT REQUEST FOR ELEMENT STRAINS', 9 /6X,'STRESS',18X, O 'OUTPUT REQUEST FOR ELEMENT STRESSES', 1 /6X,'SUBCASE',17X, 2 'SUBCASE DELIMITER', 3 /6X,'SUBCOM',18X, 4 'THIS CASE IS A LINEAR COMBINATION OF THE PRECEDING ', 5 'SUBCASES', 6 /6X,'SUBSEQ',18X, 7 'DEFINES COEFFICIENTS FOR LINEAR SUBCASE COMBINATION') WRITE (NOUT,370) 370 FORMAT (6X,'SUBTITLE',16X, 1 'DEFINES PRINTER, PLOTTER AND PUNCH OUTPUT SUBTITLE', 2 /6X,'SVECTOR',17X, 3 'OUTPUT REQUEST FOR SOLUTION SET DISPLACEMENT VECTORS', 4 /6X,'SVELOCITY',15X, 5 'OUTPUT REQUEST FOR SOLUTION SET VELOCITY VECTORS', 6 /6X,'SYM',21X, 7 'SYMMETRY SUBCASE DELIMITER', 8 /6X,'SYMCOM',18X, 9 'THIS CASE IS A LINEAR COMBINATION OF THE PRECEDING SYM ', O 'CASES', 1 /6X,'SYMSEQ',18X, 2 'DEFINES COEFFICIENTS FOR LINEAR SYM COMBINATION (DEFAULT', 3 ' = 1.0)', 4 /6X,'TEMPERATURE(BOTH)',7X, 5 'THERMAL SET SELECTION FOR BOTH LOAD AND MATERIAL DATA', 6 /6X,'TEMPERATURE(LOAD)',7X, 7 'THERMAL LOAD TEMPERATURE SET SELECTION') C CALL PAGE1 WRITE (NOUT,380) 380 FORMAT (//6X,'KEYWORD',20X,'MEANING', 1 /6X,'TEMPERATURE(MATERIAL)',3X, 2 'SELECTS THERMAL DEPENDENT MATERIALS OR TEMPERATURE ', 3 'ESTIMATES', 4 /6X,'TFL',21X, 5 'TRANSFER FUNCTION SET SELECTION', 6 /6X,'THERMAL',17X, 7 'OUTPUT REQUEST FOR TEMPERATURES IN HEAT TRANSFER ANALYSIS' 8, /6X,'TITLE',19X, 9 'DEFINES PRINTER, PLOTTER AND PUNCH OUTPUT TITLE', O /6X,'TSTEP',19X, 1 'TIME STEP SET SELECTION FOR TRANSIENT PROBLEMS', 2 /6X,'VECTOR',18X, 3 'OUTPUT REQUEST FOR DISPLACEMENT VECTORS', 4 /6X,'VELOCITY',16X, 5 'OUTPUT REQUEST FOR VELOCITY VECTORS', 6 /6X,'BEGIN BULK',14X, 7 'THIS CARD MARKS THE END OF THE CASE CONTROL DECK') GO TO 1110 C 400 WRITE (NOUT,410) 410 FORMAT (' THE ABOVE SET CONTAINS -EXCEPT- WHICH IS NOT PRECEDED ', 1 'BY -THRU-.') GO TO 1100 420 WRITE (NOUT,430) 430 FORMAT (' THE ABOVE SET IS INCORRECTLY SPECIFIED. CHECK FORMAT ', 1 'ON THIS OR PREVIOUS CARD.') GO TO 1100 440 WRITE (NOUT,450) 450 FORMAT (' AN IMPROPER OR NO NAME GIVEN TO THE ABOVE SET.') GO TO 1100 460 WRITE (NOUT,470) 470 FORMAT (' ELEMENT IN THRU RANGE LIES IN RANGE OF PREVIOUS THRU ', 1 'OR EXCEPT. MISSING ELEMENT OR INCORRECT USE OF THRU.') GO TO 1100 480 WRITE (NOUT,490) 490 FORMAT (' INCORRECT OR MISSING VALUE ON CASE CONTROL CARD. ', 1 ' CHECK FOR CORRECT CARD FORMAT.') GO TO 1100 500 WRITE (NOUT,510) 510 FORMAT (' PLOT OUTPUT IS REQUESTED BUT THE PROPER PLOT TAPE IS ', 1 'NOT A PHYSICAL TAPE') GO TO 1100 C 520 WRITE (NOUT,530) 530 FORMAT (' REAL VALUES NOT ALLOWED IN A THRU SEQUENCE.') GO TO 1100 540 WRITE (NOUT,550) 550 FORMAT (' UNEXPECTED END-OF-RECORD ON CASE CONTROL CARD. CHECK ', 1 'FOR CORRECT CARD FORMAT.') GO TO 1100 560 WRITE (NOUT,570) 570 FORMAT (' BEGIN BULK CARD NOT FOUND.') GO TO 1100 580 WRITE (NOUT,590) 590 FORMAT (' TOO LARGE ID ON PRECEDING SUBCASE TYPE CARD. ALL ID-S ', 1 'MUST BE LESS THAN 99,999,999.') GO TO 1100 600 WRITE (NOUT,610) 610 FORMAT (' VALUES IN EXCEPT MUST BE SPECIFIED IN ASCENDING ORDER') GO TO 1100 620 WRITE (NOUT,630) 630 FORMAT (' THE ABOVE SUBCASE HAS BOTH A STATIC LOAD AND A REAL ', 1 'EIGENVALUE METHOD SELECTION - REMOVE ONE.') GO TO 1100 640 WRITE (NOUT,650) 650 FORMAT (/,' THERMAL, DEFORMATION, AND EXTERNAL LOADS CANNOT HAVE', 1 ' THE SAME SET IDENTIFICATION NUMBER.') GO TO 1100 660 WRITE (NOUT,670) 670 FORMAT (' ECHO CARD HAS REPEATED OR UNRECOGNIZABLE SPECIFICATION', 1 ' DATA - ',/11X,'REPEATED SPECIFICATIONS WILL BE IGNORED', 2 /11X,'UNRECOGNIZABLE SPECIFICATIONS WILL BE TREATED AS ', 3 'SORT.') LINE = LINE + 2 GO TO 1100 680 WRITE (NOUT,690) 690 FORMAT (' ECHO CARD WITH -NONE- SPECIFICATION HAS ADDITIONAL ', 1 'SPECIFICATIONS WHICH WILL BE IGNORED.') GO TO 1100 700 WRITE (NOUT,710) 710 FORMAT (' PLOT AND/OR SET COMMAND CARD MISSING FROM STRUCTURE ', 1 'PLOTTER OUTPUT PACKAGE.') GO TO 1100 720 WRITE (NOUT,730) 730 FORMAT (' XYPLOT COMMAND CARDS FOUND IN STRUCTURE PLOTTER OUTPUT', 1 ' PACKAGE.') GO TO 1100 740 WRITE (NOUT,750) 750 FORMAT (' SUBCASE LIMIT OF 360 EXCEEDED') GO TO 1100 C C MESSAGES 634 - 644 (760 THRU 960) ARE CALLED ONLY BY SCAN C 760 WRITE (NOUT,770) 770 FORMAT (5X,'KEYWORD INSIDE BRACKETS IS ILLEGAL OR MIS-SPELLED') GO TO 1100 780 WRITE (NOUT,790) 790 FORMAT (5X,'ONLY ONE SET-ID ALLOWED') GO TO 1100 800 WRITE (NOUT,810) 810 FORMAT (5X,'EXTRA VALUE ENCOUNTERED OR WRONG TYPE OF INPUT DATA') GO TO 1100 820 WRITE (NOUT,830) 830 FORMAT (5X,'ILLEGAL COMPONENT SPECIFIED') GO TO 1100 840 WRITE (NOUT,850) 850 FORMAT (5X,'COMPONENT LIMIT OF 31 IS EXCEEDED') GO TO 1100 860 WRITE (NOUT,870) 870 FORMAT (5X,'SET ID ERROR (REQUESTED BEFORE EQUAL SIGN OR ', 1 'SPLITTED ID)') GO TO 1100 880 WRITE (NOUT,890) 890 FORMAT (5X,'TOO MANY COMPONENTS') GO TO 1100 900 WRITE (NOUT,910) 910 FORMAT (5X,'MINUS MAX EXCEEDS PLUS MAX') GO TO 1100 920 WRITE (NOUT,930) 930 FORMAT (5X,'COMPONENT NAME NOT AVAILABLE FOR ELEMENT SELECTED') GO TO 1100 940 WRITE (NOUT,950) 950 FORMAT (5X,'OUTPUT SCAN BY FORCE OR BY STRESS ONLY') GO TO 1100 960 WRITE (NOUT,970) 970 FORMAT (5X,'LARGE TOPN VALUE REQUESTED MAY RESULT IN INSUFFICIENT' 1, ' CORE IN OUTPUT SCAN MODULE LATER') GO TO 1100 C 980 WRITE (NOUT,990) 990 FORMAT (5X,'SORT2 REQUEST FOR STRESSES ON THE LAYERED ELEMENTS ', 1 'IS CURRENTLY NOT SET UP BY THE RIGID FORMAT') GO TO 1100 1000 WRITE (NOUT,1010) 1010 FORMAT (5X,'LAYER OPTION IS AVAILABLE ONLY IN STRESS OR ELSTRESS') 1100 LINE = LINE + 3 IF (LINE .GE. NLPP) CALL PAGE 1110 RETURN END ================================================ FILE: mis/ifp1e.f ================================================ SUBROUTINE IFP1E (ISUBC,SYMSEQ,NWDSC,I81,ICASTE) C C IFP1E WRITES CASECC OUT FROM CASE C LOGICAL BIT64 INTEGER ISUBC(5),CASE(200,2),BLANK,CASECC,SYMSEQ(1), 1 CORE(1),COREY(401) COMMON /ZZZZZZ/ COREX(1) COMMON /XIFP1 / BLANK,BIT64 COMMON /IFP1A / SCR1,CASECC,IS,NWPC,NCPW4,NMODES,ICC,NSET, 1 NSYM,ZZZZBB,ISTR,ISUB,LENCC,IBEN,EQUAL,IEOR EQUIVALENCE (COREX(1),COREY(1),CASE(1,1)),(CORE(1),COREY(401)) DATA NONE / 4HNONE/ C C INITIALIZE C C C SKIP FILTER INTO SUBCASES FOR SYM SUBCASES C DO 1100 I = 1,16 IF (CASE(I,2) .EQ. 0) CASE(I,2) = CASE(I,1) 1100 CONTINUE IF (CASE(38,2) .EQ. 0) CASE(38,2) = CASE(38,1) IF (NSYM.GT.1 .AND. CASE(16,2).EQ.0) GO TO 1140 DO 1130 I = 1,7 IK = (I-1)*3 + 17 IF (CASE(IK,2) .NE. 0) GO TO 1125 DO 1120 J = 1,3 II = IK + J - 1 1120 CASE(II,2) = CASE(II,1) 1125 IWORD = CASE(IK,2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .EQ. NONE) CASE(IK,2) = 0 1130 CONTINUE 1140 DO 1170 J = 1,3 DO 1150 I = 1,32 K = 32*J + I + 6 IWORD = CASE(K,2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .NE. BLANK) GO TO 1170 1150 CONTINUE DO 1160 I = 1,32 K = 32*J + I + 6 1160 CASE(K,2) = CASE(K,1) 1170 CONTINUE J = 129 DO 1171 I = 1,5 CASE(J,2) = ISUBC(I) J = J + 1 1171 CONTINUE DO 1180 I = 135,LENCC IF (CASE(I,2) .EQ. 0) CASE(I,2) = CASE(I,1) 1180 CONTINUE C IMOV = CASE(136,2)*100000000 !! VAX/IBM INTGER OVERFLOW FOR ANOMA IMOV = CASE(136,2) IF (IMOV .LT. 0) IMOV = 0 IMOV = IMOV*100000000 CASE(136,2) = IABS(CASE(136,2)) CASE(2,2) = CASE(2,2) + IMOV CASE(3,2) = CASE(3,2) + IMOV IF (CASE(7,2) .NE. 0) CASE(7,2) = CASE(7,2) + IMOV IF (CASE(8,2) .NE. 0) CASE(8,2) = CASE(8,2) + IMOV ICASTE = CASE(8,2) DO 1220 ILOOP = 1,NMODES IF (CASE(1,2) .GT. 99999999) CALL IFP1D (-625) C C CHECK FOR METHOD AND LOAD IN SAME SUBCASE C IF (CASE(5,2).NE.0 .AND. CASE(4,2)+CASE(6,2)+CASE(7,2).NE.0) 1 CALL IFP1D (-627) IF (CASE(4,2).EQ.CASE(6,2) .AND. CASE(4,2).NE.0 .OR. 1 CASE(6,2).EQ.CASE(7,2) .AND. CASE(6,2).NE.0 .OR. 2 CASE(4,2).EQ.CASE(7,2) .AND. CASE(4,2).NE.0) CALL IFP1D (-628) CALL WRITE (CASECC,CASE(1,2),LENCC,0) CASE(1,2) = CASE(1,2) + 1 IF (CASE(16,2) .LE. 0) GO TO 1200 IDO = CASE(LENCC,2) CALL WRITE (CASECC,SYMSEQ(1),IDO,0) 1200 IF (NSET .EQ. 0) GO TO 1220 IP = NWDSC + 1 DO 1210 I = 1,NSET NWOR = CORE(IP) CALL WRITE (CASECC,CORE(IP-1), 2,0) CALL WRITE (CASECC,CORE(IP+2),NWOR,0) IP = IP + NWOR + 3 1210 CONTINUE 1220 CALL WRITE (CASECC,CORE(1),0,1) NMODES = 1 IF (NSET .EQ. 0) GO TO 1270 C C REMOVE ALL SETS REFERING TO SUBCASE ONLY C IUP = NWDSC IP = NWDSC NSET1= NSET IMOV = 0 DO 1260 I = 1,NSET IF (CORE(IP+2) .NE. 1) GO TO 1250 IF (IMOV .EQ. 0) GO TO 1240 IDO = CORE(IP+1) + 3 DO 1230 J = 1,IDO II = IUP + J - 1 IK = IP + J - 1 1230 CORE(II) = CORE(IK) 1240 IUP = IUP+CORE(IP+1) + 3 IP = IP +CORE(IP+1) + 3 GO TO 1260 1250 IMOV = 1 NSET1= NSET1 - 1 IP = IP + CORE(IP+1) + 3 1260 CONTINUE NSET = NSET1 I81 = IUP 1270 CONTINUE DO 1280 I = 1,LENCC CASE(I,2) = 0 IF (I.GT.38 .AND. I.LT.135) CASE(I,2) = BLANK 1280 CONTINUE CALL IFP1F (*1281,IWORD,I2) DO 1282 I = 1,5 ISUBC(I) = CORE(I2) I2 = I2 + 1 1282 CONTINUE 1281 RETURN END ================================================ FILE: mis/ifp1f.f ================================================ SUBROUTINE IFP1F (*,IWORD,II) C C FINDS FIRST 4 NON-BLANK CHARACTERS C DIMENSION CORE(1),COREY(401) COMMON /ZZZZZZ/ COREX(1) COMMON /IFP1A / SKIP1(4),NCPW4,SKIP2(4),IZZZBB,SKIP3(3),IBEN EQUIVALENCE (COREX(1),COREY(1)), (CORE(1),COREY(401)) C IWORD = IZZZBB L = 1 II = 0 DO 10 I = 1,18 DO 10 J = 1,NCPW4 K = KHRFN1(IZZZBB,1,CORE(I),J) IF (K .EQ. IBEN) GO TO 10 IF (II .EQ. 0) II = I IWORD = KHRFN1(IWORD,L,K,1) L = L + 1 IF (L .GT. NCPW4) GO TO 20 10 CONTINUE RETURN 1 20 RETURN END ================================================ FILE: mis/ifp1g.f ================================================ SUBROUTINE IFP1G (ITYPE,CASE,ISUB1) C C MAKE SURE THIS VERSION ALSO WORKS IN UNIVAC, IBM, CDC AND 64-BIT C MACHINES C ================================================================ C IZZZBB = 0 (ALL BITS ZERO) C IBEN = FIRST BYTE BLANK, REST IS ZERO FILL C EQUAL = FIRST BYTE EQUAL, REST IS ZERO FILL C INTEGER CHAR,CORE(1),COREY(401),EQUAL,TITLE,CASE(200,2) COMMON /OUTPUT/ TITLE(32) COMMON /ZZZZZZ/ COREX(1) COMMON /IFP1A / SKIP1(3),NWPC,NCPW4,SKIP2(4),IZZZBB,ISTR,SKIP3(2), 1 IBEN,EQUAL EQUIVALENCE (COREX(1),COREY(1)), (CORE(1),COREY(401)) C C FIND EQUAL SIGN AND COPY REMAINING DATA ON CARD C C OR FIND THE FIRST BLANK CHARACTER AFTER THE FIRST NON-BLANK WORD C (USED ONLY FOR ITYPE = 8, PTITLE, AXIS TITLE ETC. WHERE EQUAL SIGN C IS OPTIONAL AND NOT MANDATORY) C K = -1 I2 = NWPC - 2 DO 160 I = 1,I2 DO 160 J = 1,NCPW4 CHAR = KHRFN1(IZZZBB,1,CORE(I),J) IF (CHAR .EQ. EQUAL) GO TO 170 IF (CHAR.NE.IBEN .AND. K.EQ.-1) K = 0 IF (CHAR.EQ.IBEN .AND. K.EQ. 0) K = I*100 + J 160 CONTINUE IF (ITYPE .NE. 8) GO TO 170 I = K/100 J = MOD(K,100) 170 K = (ITYPE-1)*32 K1 = K + 38 IF (ITYPE .EQ. 8) K1 = 0 IF (J .NE. NCPW4) GO TO 180 I = I + 1 J = 0 180 J = J + 1 IPOS = 1 ITS = K + 1 ISAVE = IZZZBB DO 250 II = I,I2 190 ISAVE = KHRFN1(ISAVE,IPOS,CORE(II),J) IPOS = IPOS + 1 IF (IPOS .GT. 4) GO TO 210 200 J = J + 1 IF (J .LE. NCPW4) GO TO 190 J = 1 GO TO 250 210 IPOS = 1 IF (ITYPE .EQ. 7) GO TO 220 IF (ISTR-1) 220,230,220 220 TITLE(ITS) = ISAVE GO TO 240 230 CASE(K1+1,ISUB1) = ISAVE K1 = K1 + 1 240 ISAVE = IZZZBB ITS = ITS + 1 GO TO 200 250 CONTINUE DO 260 I = IPOS,4 260 ISAVE = KHRFN1(ISAVE,I,IBEN,1) IF (ITYPE .EQ. 7) GO TO 270 IF (ISTR-1) 270,280,270 270 TITLE(ITS) = ISAVE GO TO 290 280 CASE(K1+1,ISUB1) = ISAVE 290 RETURN END ================================================ FILE: mis/ifp1h.f ================================================ SUBROUTINE IFP1H (I81,NZ,J400) C C THIS ROUTINE PROCESSES THE SCAN CARD IN CASE CONTROL SECTION C C WRITTEN BY G.CHAN/SPERRY, OCTOBER 1984 C C PROGRAM METHOD C C A 'SCAN(HELP)' INPUT CARD WILL SET J400 TO 2, AND ANY ERROR IN C A SCAN INPUT CARD WILL SET J400 TO 1. NON-ZERO J400 WILL CAUSE C SCAN COMPONENT KEY-WORDS TO BE PRINTED. C C THE SCAN INPUT CARDS, AND THEIR DATA, ARE DECODED AND SAVED IN C CASECC FILE AS SETS OF PSEUDO SET COMMANDS (SET ID OF 10000000 FOR C STRESS, AND 20000000 FOR FORCE). IN THIS WAY, THE SCAN CARDS CAN C BE USED IN ALL SUBCASE LEVELS, OR ABOVE-SUBCASE LEVEL, SIMILAR TO C THE ELEM. STRESS AND ELEM. FORCE CARDS IN THE CASE CONTROL SECTION C HOWEVER, MULTIPLE SCAN CARDS CAN BE USED IN ALL SUBCASE LEVELS, C AND WITHIN EACH SUBCASE C C ELEM. NAME CAN BE SPECIFIED WITH OR WITHOUT THE LEADING LETTER C C E.G. BAR, CBAR, QUAD2, CQUAD2 C C SCAN COMPONENTS CAN BE REQUESTED BY ACTUAL OUTPUT COLUMN NUMBER(S) C OR BY COMPONENT KEYWORD(S) C IF THE ACTUAL OUTPUT COLUMN IS NOT IN THE SAME WORD ORDER AS IN C THE OUTPUT PRINT FILE (E.G. OES1L FOR THE QUAD4 LAYER), THE ACTUAL C COLUMN COUNT AS IT APPEARS IN THE PRINTOUT, IS USED HERE. ANY C DISCREPANCY SHOULD BE HANDLED BY SCAN OR STRSCN ROUTINES. C C A LIST OF KEYWORDS WILL BE PRINTED AUTOMATICALLY IF ELEM. NAME OR C COMPONENT KEYWORD ARE MISSPELLED OR MISSSING C C THIS LIST IS ALSO PRINTED IF A SCAN (HELP) CARD IS IN INPUT DECK C C THIS ROUTINE MAY ISSUE THE FOLLOWING ERROR MESSAGES - C C 604 - NON-INTEGER IN INTEGER FIELD C 608 - SET NOT DEFINED C 617 - IMPROPER FORMAT C 634 - KEYWORD INSIDE BRACKET IS ILLEGAL OR MISSPELLED C 635 - ONLY ONE SET-ID ALLOWED IN A SCAN CARD C 636 - EXTRA VALUE ENCOUNTERED C 637 - ILLEGAL COMPONENT SPECIFIED C 638 - COMPONENT LIMIT OF 31 IS EXCEEDED C 639 - SET ID ERROR (REQUESTED BEFORE EQUAL SIGN OR SPLITTED ID) C 640 - TOO MANY COMPONENTS BY NAME C 641 - -MAX EXCEEDS +MAX C 642 - COMPONENT NAME NOT AVAILABLE FOR ELEMENT SELECTED C 643 - SCAN BY STRESS OR FORCE ONLY C 644 - WARNING MESSAGE FOR POSSIBLE INSUFFICIENT CORE C 909 - CORE ARRAY NOT INITIALIZED CORRECTLY, OR MZERO IS NOT SET C IN AGREEMENT WITH XRCARD C C EXAMPLE - TO ADD A NEW ELEMENT TO THE SCAN MODULE BY G.C. 7/89 C 1. INCREASE COMP DIMENSION TO ALLOW NEW COMPONENT WORDS C IF THEY DO NOT ALREADY EXIST. C 2. EXPAND THE SP-ARRAY IF NECESSARY. INCREASE NCOMP BY C THE NUMBER OF NEW WORDS ADDED C 3. REACTIVATE THE CORRESPONDING WORD IN ETAB THAT POINTS C TO THE NEW ARRAY IN TAB C 4. IF SP-ARRAY IS USED, MAKE SURE THAT THE COMPONENT WORDS C ARE PROPERLY PROCESSED, IN STATEMENT NOS. 110-120 C 5. SET THE CODED WORDS IN TAB. SEE COMMENTS FUTHER DOWN C 6. PREPARE FORMAT FOR COMPONENT WORDS PRINT OUT (FMT 690) C UPDATE ISP-ARRAY IN CASE SP-ARRAY WAS USED PREVIOUSLY C LOGICAL DEBUG, BIT64 INTEGER CORE(1), SCR1, NAM(2), STRESS, FORCE, 1 SETI, BLANK, E, ERR, EQUAL INTEGER SAVE(5), ETAB(90),TAB(10,17), COMP(2,60), 1 COMP1(2,19), COMP2(2,19), ISP(10), 2 TAB1(10,9), TAB2(10,8), SP(30), 3 COMP3(2,19), COMP4(2,3), ICSE(400), 4 COREY(401) DIMENSION RCORE(1),LL(4), CC(4), KEYWDS(3) REAL BCD(2,3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ IBUF, NOUT, NOGO, SKIP(5), NLPP, 1 MORE(2), LINE COMMON /MACHIN/ MACH COMMON /GPTA1 / NELEM, LAST, INCR, E(1) COMMON /XIFP1 / BLANK, BIT64 COMMON /IFP1A / SCR1, CASECC, IS, NWPC, NCPW, 1 NMODES, ICC, NSET, DUMMY(3),ISUB, 2 LENCC, IBLNK, IEQUAL, IEOR COMMON /IFP1HX/ MSST, MISSET(1) COMMON /ZZZZZZ/ COREX(1) EQUIVALENCE (CORE(1) ,RCORE(1) , COREY(401) ), 1 (COREX(1) ,COREY(1) , ICSE(1) ), 2 (COMP(1,1),COMP1(1,1)), (COMP4(1,1),COMP(1,58)), 3 (TAB1(1,1) ,TAB(1, 1)), (COMP2(1,1),COMP(1,20)), 4 (TAB2(1,1),TAB(1,10)) , (COMP3(1,1),COMP(1,39)), 5 (BLANK ,XBLANK ) , (STRESS ,BCD(1,1) ), 6 (FORCE ,BCD(1,2) ) , (SHEA ,COMP(1, 9)), 7 (NORM ,COMP(1,9)) , (MOME ,COMP(1,22)) DATA NCOMP, EQUAL, LLL, SETI, DEBUG / 1 58, 4H= , 4HL , 4HSET , .FALSE. / DATA LLC, COMMA, MZERO, BCD / 1 4HC , 4H, , -0 , 4HSTRE,2HSS,4HFORC,1HE,2*1H / DATA NAM / 4HIFP1, 4HH / DATA COMP1 / 4HAXIA, 4HL , 2 4HTORS, 4HIONA, 3 4HRADI, 4HAL , 4 4HNORM, 4HAL , 5 4HPRIN, 4HCIPA, 6 4HMAJO, 4HR , 7 4HMINO, 4HR , 8 4HBEND, 4HING , 9 4HNORM, 4H-X , C 9 or -U , AL-1, AL-X O 4HNORM, 4H-Y , C O or -V , AL-2, AL-Y 1 4HNORM, 4H-Z , 2 4HSHEA, 4HR , C 2 or R-1Z, R-41 3 4HSHEA, 4HR-XY, C 3 or R-ZR, R-X , R-U , R-12 4 4HSHEA, 4HR-YZ, C 4 or R-RT, R-Y , R-V , R-23 5 4HSHEA, 4HR-ZX, C 5 or R-ZT, R-UV, R-2Z, R-34 6 4HMAX-, 4HSHR , 7 4HSHR-, 4HFORC, 8 4HOCT-, 4HSHR , 9 4HSA-M, 4HAX / DATA COMP2 / 4HSB-M, 4HAX , 1 4HMOME, 4HNT , 2 4HMOME, 4HNT-A, C 2 or NT-X, NT-U , NT-1 3 4HMOME, 4HNT-B, C 3 or NT-Y, NT-V , NT-2 4 4HCURV, 4H , 5 4HTORQ, 4HUE , 6 4HCIRC, 4HUM , 7 4HTWIS, 4HT , 8 4HMARG, 4HIN , 9 4HMAX , 4H , O 4HMEAN, 4H , 1 4HAVG , 4H , 2 4HMEM-, 4HT , 3 4HMEM-, 4HC , 4 4HFLEX, 4H-T , 5 4HFLEX, 4H-C , 6 4HPRIN, 4HC-A , 7 4HPRIN, 4HC-B , 8 4HPRIN, 4HC-C / DATA COMP3 / 4HEFOR, 4HCE , O 4HFORC, 4HE-1 , C or E-12, 1 4HFORC, 4HE-2 , C or E-23, 2 4HFORC, 4HE-3 , C or E-34, 3 4HFORC, 4HE-4 , C or E-41, 4 4HKICK, 4H-FOR, 5 4HSIG-, 4HX , 6 4HSIG-, 4HY , 7 4HTAU-, 4HXY , 8 4HHELP, 4H , 9 4HON-L, 4HINE , O 4HFX+F, 4HY , 1 4HFXY , 4H , 2 4HMX+M, 4HY , 3 4HMXY , 4H , 4 4HVX+V, 4HY , 5 4HKICK, 4H ON1, 6 4HKICK, 4H ON2, 7 4HKICK, 4H ON3/ DATA COMP4 / 4HKICK, 4H ON4, 9 4H .. , 4H .. , O 4H .. , 4H .. / DATA SP / 4HR-ZR, 4HR-U , 4HR-RT, 4HR-V , 4HR-ZT, 1 4HR-UV, 4HNT-X, 4HNT-U, 4HNT-Y, 4HNT-V, 2 4H-U , 4H-V , 4HR-X , 4HR-Y , 4HR-41, 3 4HR-12, 4HR-23, 4HR-34, 4HNT-1, 4HNT-2, 4 4HR-1Z, 4HR-2Z, 4HAL-1, 4HAL-2, 4HAL-X, 5 4HAL-Y, 4HE-12, 4HE-23, 4HE-34, 4HE-41/ DATA ETAB / 1 1, -02, 1, 2, 2, 3, 3, 3, 4, 1, 2 6, 6, 6, -14, 3, 4, 3, 3, 3, -20, 3 -21, -22, -23, -24, -25, -26, -27, -28, -29, -30, 4 -31, -32, -33, 7, 8, 9, 10, 11, -39, -40, 5 -41, -42, -43, -44, -45, -46, -47, -48, -49, -50, 6 -51, -52, -53, -54, -55, -56, -57, -58, -59, -60, 7 -61, 4, 4, 15, 12, 12, 13, 14, 14, -70, 8 -71, -72, -73, -74, -75, -76, -77, -78, -79, 5, 9 7, -82, 15, -84, -85, -86, -87, -88, -89, -90/ DATA TAB1 / C 1. ROD, TUB, CONROD 1 01000002, 02000004, 28000503, 0, 0, 1 -01000002,-25000003, 0, 0, 0, C 2. SHEAR, TWIST 2 16000002, 28000004, 31000003, 29000002, 0, 2 -40000002,-41000003,-22000002,-23000003, 0, C 3. TRIA1, TRIA2, QUAD1, QUAD2, TRBSC, TRPLT, QDPLT 3 09001103, 10001204, 13001305, 06001507, 07001608, 3 16001709,-22000002,-23000003,-13000005,-14000006, C 4. TRMEM, QDMEM, QDMEM1, DQMEM2 4 09000002, 10000003, 13000004, 06000006, 07000007, 4 16000008,-40000403,-41000605,-42000807,-43000902, C ** CONTINUE... 5 -55000010,-56000012,-57000014,-58000016,-13000011, 5 -14000013,-15000015,-12000017, 0, 0, C 6. ELAS1, ELAS2, ELAS3, IS2D8 6 18000002,-26000002, 0, 0, 0, 6 -40000904,-41000603,-42000805,-43000702, 0, C 7. BAR, ELBOW 7 19000807, 20001514, 28001609, 01000006, 0, 7 -01000008,-25000009,-12000605,-22000302,-23000504, C 8. CONEAX 8 09041852, 10051852, 15061852, 06081852, 07091852, 8 16101852,-22000003,-23000004,-13000006,-14000007, C 9. TRIARG 9 03000002, 26000003, 01000004, 12000005, 0, 9 -03020353,-26030353,-01040353, 0, 0/ DATA TAB2 / C O. TRAPRG O 03020455, 26030455, 01040455, 12050455, 17060455, O -03020354,-26030354,-01040354, 0, 0, C 1. TORDRG 1 32020553, 33030553, 34040553, 35050553, 17060553, 1 -03000802,-26000903,-01001004,-21001105,-24001307, C 12. IHEX1, IHEX2 2 09032258, 13042258, 36052258, 30092258, 10112258, 2 14122258, 37132258, 11172258, 15182258, 38192258, C 13. IHEX3 3 09032382, 13042382, 36052382, 30092382, 10122382, 3 14132382, 37142382, 11182382, 15192382, 38202382, C 14. TRIAAX, TRAPAX 4 03030853, 01040853, 26050853, 33060853, 34070853, 4 35080853,-03030453,-26040453,-01050453, 0, C 15. QUAD4, TRIA3 (GENERAL) 5 09000003, 10000004, 13000005, 06000007, 07000008, 5 16000009,-50000302,-51000004,-52000605,-53000007, 6 -54000908, C **. QUAD4, TRIA3 (LAYER), 9 DIGIT CODE 6 81030899, 82040899, 84050899, 83070899, 6 85080899, 0, 0, 0, 0, C 17. 7 10*0/ C C FIRST 2 DIGITS IN A TAB ITEM ARE COMPONENT POINTER, POINTING TO C THE BCD WORDS IN COMP ARRAY. POSITIVE FOR STRESS, AND NEGATIVE FOR C FORCE DATA (WITH SOME EXCEPTIONS). THIS POINTER IS USED ONLY C LOCALLY WITHIN THIS SUBROUTINE. C NEXT 3 NUMBERS (2 DIGITS EACH) ARE POINTERS TO THE FIELD NOS. C C SPECIAL CASE - C IF LAST FIELD IS GREATER THAN 50 THEN, THIS LAST FIELD MINUS 50 IS C THE REPEAT FLAG. IF LAST FIELD IS 99, WE HAVE AN OPEN-END REPEAT. C IF LAST FIELD IS GREATER THAN 50, NEXT TO LAST FIELD IS FIELD C INCREMENT, AND THE FIELD IN FRONT IS THE FIRST STARTING COLUMN TO C BE SCANNED. C THE QUAD4/TRIA3 LAYER HAS COMPONENT INDICES 81 THRU 85 C (THUS - IN FUTURE EXPANSION, ARRAY COMP SHOULD NOT EXCEED 80) C C E.G. TAB(3,1) = 09 00 11 03 C 09 = NORMAL-X (STRESS) C 00 = SKIP C 11 03 = SCAN BY 3RD AND 11TH FIELDS C C E.G. TAB(9,8) = -01 04 03 54 C -01 = AXIAL (FORCE) C 54 = REPEAT 4 TIMES C 03 = INCREASE BY 3 ON EACH REPEAT C 04 = SCAN BY 4, 7, 10, AND 13TH FIELDS C IF (J400 .EQ. 2) GO TO 400 IF (MACH.EQ.2 .OR. MACH.GE.5) MZERO = -1 CALL SSWTCH (20,J) IF (J .EQ. 1) DEBUG = .TRUE. ERR = -909 NSCAN = LENCC - 1 IF (CORE(I81+3) .NE. MZERO) GO TO 300 ISCAN = I81 IWDS = I81 + 1 IISUB = I81 + 2 IELEM = I81 + 3 ISET = I81 + 4 ICOMP = I81 + 5 C +MAX = I81 + 6 = TOP N C -MAX = I81 + 7 IREPT = I81 + 8 C C NOTE - THE IISUB WORD WILL BE DROPPED WHEN THESE WORDS ARE C TRANSFERRED TO CASECC C JCOMP = IWDS IEND = I81 + CORE(I81)*2 - 1 CORE(ISCAN) = 0 CORE(IISUB) = ISUB CORE(IELEM) = 0 CORE(ISET ) = 0 CORE(JCOMP) = 0 NWDSS = 0 NWDSF = 0 IEQ = 0 MAX = 0 MIN = 0 NSV = 0 NRP = 0 II = I81 + 3 C 10 II = II + 2 JJ = CORE(II ) KK = CORE(II+1) JX = JJ IF (.NOT.BIT64) GO TO 15 CWKBD 3/94 CALL MVBITS (BLANK,0,32,JX,0) CWKBD 3/94 CALL MVBITS (BLANK,0,32,KK,0) 15 IF (JJ .EQ. IEOR) GO TO 200 IF (II .GT. IEND) IF (JJ) 150,190,20 GO TO 30 C C DECODE BCD WORD C 20 IEND = II + JJ*2 - 1 II = II - 1 GO TO 10 C C LOOK FOR EQUAL SIGN OR SET C 30 ERR = -617 IF (JJ .NE. MZERO) GO TO 40 IF (KK .NE. EQUAL) GO TO 300 IEQ = IEQ + 1 IF (IEQ .GT. 1) GO TO 300 CORE(ICOMP+1) = 0 CORE(ICOMP+2) = 0 GO TO 10 40 IF (JX .EQ. SETI) GO TO 130 C C LOOK FOR STRESS OR FORCE C IF (IEQ .EQ.1) GO TO 300 IF (JX .NE. STRESS) GO TO 50 CORE(ISCAN) = CORE(ISCAN) + 10000000 GO TO 10 50 IF (JX .NE. FORCE) GO TO 60 CORE(ISCAN) = CORE(ISCAN) + 20000000 GO TO 10 C C LOOK FOR ELEMENT, DROP THE FIRST LETTER C IF NECESSARY C 60 IF (CORE(IELEM) .NE. 0) GO TO 100 JC = NAM(1) KC = JC IF (KHRFN2(JX,1,1) .NE. LLC) GO TO 70 JC = KHRFN3(BLANK,JX,1,1) KC = KHRFN3(BLANK,KK,1,1) JC = KHRFN1(JC,4,KK,1) 70 J = 1 DO 80 I = 1,NELEM IF (JX.EQ.E(J) .AND. KK.EQ.E(J+1)) GO TO 90 IF (JC.EQ.E(J) .AND. KC.EQ.E(J+1)) GO TO 90 80 J = J + INCR GO TO 100 90 CORE(IELEM) = I NWDSS = E(J+17) NWDSF = E(J+18) GO TO 10 C C LOOK FOR COMPONENT C 100 DO 110 I = 1,NCOMP IF (JX.EQ.COMP(1,I) .AND. KK.EQ.COMP(2,I)) GO TO 120 110 CONTINUE ERR = -634 I = 0 C C SP ARRAYS C 1 2 3 4 5 6 7 8 9 10 C R-ZR R-U R-RT R-V R-ZT R-UV NT-X NT-U NT-Y NT-V C 11 12 13 14 15 16 17 18 19 20 C -U -V R-X R-Y R-41 R-12 R-23 R-34 NT-1 NT-2 C 21 22 23 24 25 26 27 28 29 30 C R-1Z R-2Z AL-1 AL-2 AL-X AL-Y E-12 E-23 E-34 E-41 C IF (JX .NE. FORCE) GO TO 115 IF (KK .EQ. SP(27)) I = 40 C FORCE-12 (USED IN QDMEM2) IF (KK .EQ. SP(28)) I = 41 C FORCE-23 IF (KK .EQ. SP(29)) I = 42 C FORCE-34 IF (KK .EQ. SP(30)) I = 43 C FORCE-41 IF (I .EQ. 0) GO TO 300 115 IF (JX.NE.NORM .AND. JX.NE.SHEA .AND. JX.NE.MOME) GO TO 300 IF (KK.EQ.SP( 1) .OR. KK.EQ.SP( 2) .OR. KK.EQ.SP(13)) I = 13 C SHEAR-ZR SHEAR-U SHEAR-X IF (KK.EQ.SP( 3) .OR. KK.EQ.SP( 4) .OR. KK.EQ.SP(14) .OR. 1 KK.EQ.SP(17)) I = 14 C SHEAR-RT SHEAR-V SHEAR-6 C SHEAR-23 IF (KK.EQ.SP( 5) .OR. KK.EQ.SP( 6) .OR. KK.EQ.SP(18)) I = 15 C SHEAR-ZT SHEAR-UV SHEAR-34 IF (I .NE. 0) GO TO 120 IF (KK.EQ.SP( 7) .OR. KK.EQ.SP( 8)) I = 22 C MOMENT-X MOMENT-U IF (KK.EQ.SP( 9) .OR. KK.EQ.SP(10)) I = 23 C MOMENT-Y MOMENT-V IF (KK.EQ.SP(15) .OR. KK.EQ.SP(19)) I = 12 C SHEAR-41 MOMENT-1 IF (KK.EQ.SP(11) .OR. KK.EQ.SP(25)) I = 9 C NORM-U NORNAL-X IF (KK.EQ.SP(12) .OR. KK.EQ.SP(26)) I = 10 C NORM-V NORNAL-Y IF (I .NE. 0) GO TO 120 IF (KK.EQ.SP(16) .OR. KK.EQ.SP(20)) I = 13 C SHEAR-12 MOMENT-2 C C SECOND SET KEYWORDS FOR QUAD4/TRIA3 LAYER, 81 AND HIGHER C (THE GENERAL QUAD4/TRIA3 KEYWORDS ARE BELOW 80) C IF (I .NE. 0) GO TO 120 IF (KK .EQ. SP(23)) I = 81 C NORAML-1 IF (KK .EQ. SP(24)) I = 82 C NORMAL-2 IF (KK .EQ. SP(16)) I = 84 C SHEAR-12 IF (KK .EQ. SP(21)) I = 83 C SHEAR-1Z IF (KK .EQ. SP(22)) I = 85 C SHEAR-2Z IF (I .EQ. 0) GO TO 300 C 120 IF (I .EQ. 48) GO TO 320 IF (I .EQ. 49) GO TO 900 ERR = -640 IF (NSV .GT. 5) GO TO 300 IF (NSV .LE. 0) GO TO 125 DO 123 J = 1,NSV IF (SAVE(J) .EQ. I) GO TO 127 123 CONTINUE 125 NSV = NSV + 1 SAVE(NSV) = I C C TWO WORDS, PRINCIPAL AND TORSIONAL, HAVE A LETTER L TOO LONG C C LLL IS 4HL , BLANK FILL C IBLNK IS 1H , ZERO FILL C 127 IWORD = CORE(II+2) CWKBD 3/94 IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (II.LT.IEND .AND. IWORD.EQ.LLL .AND. CORE(II+3).EQ.IBLNK) 1 II = II + 2 GO TO 10 C C PROCESS SET C 130 ERR = -635 IF (CORE(ISET) .NE. 0) GO TO 300 ERR = -639 IF (IEQ.NE.1 .OR. CORE(II+2).NE.-1) GO TO 300 CORE(ISET) = CORE(II+3) II = II + 2 J = NWPC + 1 + ICSE(LENCC) DO 140 I = 1,NSET IF (CORE(ISET) .EQ. CORE(J)) GO TO 10 140 J = J + CORE(J+1) + 3 ERR = -608 MSST = MSST + 1 IF (MSST .GT. 0) GO TO 300 MISSET(MSST) = CORE(ISET) ERR = 0 GO TO 10 C C NUMERIC DATA C 150 IF (JJ .EQ. -2) GO TO 170 IF (IEQ .EQ. 1) GO TO 160 C C INTEGER BEFORE EQUAL SIGN = COMPONENT(S) C ERR = -637 IF (JJ.NE.-1 .OR. KK.LE.1) GO TO 300 ERR = -638 IF (KK .GT. 31) GO TO 300 CORE(JCOMP) = CORE(JCOMP) + 2**(KK-1) GO TO 10 C C INTEGER AFTER EQUAL SIGN = TOP N C 160 ERR = -608 IF (IEQ .NE. 1) GO TO 300 ERR = -636 IF (MAX-1) 180,300,300 C C F.P. DATA = +MAX OR -MAX C 170 ERR = -608 IF (IEQ .NE. 1) GO TO 300 MIN = 1 ERR = -636 IF (MAX .GE. 2) GO TO 300 180 MAX = MAX + 1 CORE(ICOMP+MAX) = KK ERR = -641 IF (MAX.EQ.2 .AND. RCORE(ICOMP+2).GT.RCORE(ICOMP+1)) GO TO 300 GO TO 10 C C READ CONTINUATION CARD C 190 CALL READ (*290,*290,SCR1,CORE(1),NWPC,0,FLAG) WRITE (NOUT,310) ICC,(CORE(I),I=1,NWPC) ICC = ICC + 1 LINE = LINE + 1 IF (LINE .GT. NLPP) CALL PAGE II = I81 + 8 NZ = NZ - II CALL XRCARD (CORE(II),NZ,CORE(1)) II = II - 2 IEND = II GO TO 10 C C SCAN CARD COMPLETED C 200 IF (NOGO .NE. 0) GO TO 330 ERR = -643 IF (CORE(ISCAN).NE.10000000 .AND. CORE(ISCAN).NE.20000000) 1 GO TO 300 CORE(ICOMP) = CORE(JCOMP) CORE(IWDS ) = 6 IF (CORE(ISET ) .EQ. 0) CORE(ISET) = -1 IF (CORE(IELEM).EQ.0 .AND. CORE(ICOMP+2).EQ.0) CORE(IELEM) = -1 IF (MAX .EQ. 0) CORE(ICOMP+1) = 20 IF (MAX.LE.1 .AND. MIN.EQ.0) CORE(ICOMP+2) = -1 IF (CORE(ICOMP+2) .NE. -1) GO TO 205 C C COMPUTE HOW HIGH TOPN CAN GO ASSUMING LINK14 HAS AN OPEN CORE SIZE C SAME AS THAT OF LINK1 C IF (CORE(ISCAN) .GE. 20000000) NWDSS = NWDSF IF (2*NWDSS*CORE(ICOMP+1) .GT. KORSZ(ICSE(1))) CALL IFP1D (644) C C CONVERT NAMED COMPONENT TO FIELD NO. C 205 IF (NSV.EQ.0 .OR. CORE(IELEM).EQ.-1) GO TO 250 I = CORE(IELEM) I = ETAB(I) ERR = -642 IF (I .LT. 0) GO TO 300 IE = 10 IF (I .EQ. 14) IE = 16 DO 240 K = 1,NSV IF (CORE(ISCAN) .EQ. 20000000) SAVE(K) = -SAVE(K) DO 210 J = 1,IE II = TAB(J,I)/1000000 IF (II .EQ. 0) GO TO 210 IF (SAVE(K) .EQ. II) GO TO 220 210 CONTINUE C C 5 SPECIAL CASES WHERE TAB ARRAY OF 10 IS NOT LONG ENOUGH C SET THE 11TH ITEM OF ECAH OF THESE 3 CASES C II = 0 IF (I.EQ. 3 .AND. SAVE(K).EQ.27) II = -27000004 C TRIA1 TWIST (MOMENT) IF (I.EQ.12 .AND. SAVE(K).EQ.18) II = +18102258 C IHEX1 OCT-SHR (STRESS) +18102270 (IHEX2) IF (I.EQ.13 .AND. SAVE(K).EQ.18) II = +18102382 C IHEX3 OCT-SHR (STRESS) IF (I.EQ.12 .AND. SAVE(K).EQ.16) II = +16102270 C IHEX2 MAX-SHR (STRESS) IF (I.EQ.13 .AND. SAVE(K).EQ.16) II = +16102382 C IHEX2 MAX-SHR (STRESS) ERR = -637 IF (II) 300,300,225 220 II = IABS(TAB(J,I)) 225 II = MOD(II,1000000) DO 230 JJ = 1,3 KK = MOD(II,100) IF (CORE(ICOMP) .NE. 1) GO TO 223 CORE(ICOMP) = 0 IF (IELEM .EQ. 66) KK = 70 C IHEX2 IF (IELEM .EQ. 69) KK = 54 C TRIATS NRP = NRP + KK KK = 0 223 IF (KK .LE. 50) GO TO 227 NRP = (KK-50)*100 C NRP = 4900 FOR OPEN-END REPEAT FLAG KK = 1 227 IF (KK .GT. 0) CORE(ICOMP) = CORE(ICOMP) + 2**(KK-1) II = II/100 IF (II .EQ. 0) GO TO 240 230 CONTINUE 240 CONTINUE C C NRP/100 IS REPEAT FLAG, AND MOD(NRP,100) IS INCREMENT C 250 IF (NOGO .NE. 0) GO TO 330 CORE(IREPT) = NRP C C FINAL ERROR CHECK C IF (CORE(IELEM).EQ.0 .OR. CORE(ICOMP).EQ.0) J400 = 1 ERR = -617 J = 0 DO 260 I = 1,8 IF (CORE(I81+J) .EQ. 0) GO TO 300 260 J = J + 1 C C ALL GO WELL, RE-SET PARAMETERS C NOTE - THE (LENCC-1) WORD OF CASECC RECORDS THE NO. OF SCAN CARDS C NSET = NSET + 1 II = (ISUB-1)*LENCC ICSE(NSCAN+II) = ICSE(NSCAN+II) + 1 CWKBD IF (DEBUG) CALL BUG1 ('IFP1H',270,CORE(I81),9) I81 = I81 + 9 C C TURN ON STRESS OR FORCE OUTPUT FLAGS IF THEY ARE NOT ALREADY DONE C BY THE USER. SET OUTPUT OPTIONS TO - ALL, NOPRINT, AND REAL C (WORD 23 ON CASECC IS STRESS OUTPUT FLAG, AND C WORD 26 ON CASECC IS FORCE OUTPUT FLAG) C IF (CORE(ISCAN).EQ.20000000 .OR. ICSE(23+II+1).NE.0) GO TO 280 ICSE(23+II ) =-1 ICSE(23+II+1) = 2 ICSE(23+II+2) = 1 280 IF (CORE(ISCAN).NE.20000000 .OR. ICSE(26+II+1).NE.0) GO TO 330 ICSE(26+II ) =-1 ICSE(26+II+1) = 2 ICSE(26+II+2) = 1 GO TO 330 C 290 CALL MESAGE (-1,SCR1,NAM) 300 CALL IFP1D (ERR) 310 FORMAT (11X,I8,6X,20A4) IF (ICSE(NSCAN) .LT. 0) GO TO 330 IF (ERR.NE.-634 .AND. ERR.NE.-637 .AND. ERR.NE.-642) GO TO 330 ICSE(NSCAN) = -10000 320 J400 = 1 330 RETURN C C PRINT OUT SCAN COMPONENT KEYWORDS C 400 CALL PAGE1 II = 20 GO TO 810 410 II = 0 WRITE (NOUT,420) 420 FORMAT (46H0*** COMPONENT KEYWORDS FOR THE SCAN OPERATION, //5X, 1 59HFORCE/STRESS KEYWORD COMPONENT (OUTPUT FIELD NO.), 2 /5X,15(4H----),/) LLINE = 15 425 FORMAT (/5X,17HROD, TUBE, CONROD,/) GO TO 700 430 ISP(8) = 19 ISP(9) = 20 LLINE = 11 435 FORMAT (/5X,12HSHEAR, TWIST,/) GO TO 700 440 ISP( 7) = 7 ISP( 8) = 9 ISP( 9) = 13 ISP(10) = 14 LLINE = 14 445 FORMAT (/5X,47HTRIA1, TRIA2, QUAD1, QUAD2, TRBSC, TRPLT, QDPLT,/) GO TO 700 450 WRITE (NOUT,455) 455 FORMAT (10X,'FORCE TWIST',15X,'4') LINE = LINE + 1 ISP( 7) = 27 ISP( 8) = 28 ISP( 9) = 29 ISP(10) = 30 LLINE = 13 460 FORMAT (/5X,28HTRMEM, QDMEM, QDMEM1, QDMEM2,/) GO TO 700 470 LLINE = 8 GO TO 700 480 LLINE = 9 490 FORMAT (/5X,26HELAS1, ELAS2, ELAS3, IS2D8,/) GO TO 700 500 LLINE = 12 510 FORMAT (/5X,10HBAR, ELBOW,/) GO TO 700 520 ISP(1) = 11 ISP(2) = 12 ISP(3) = 6 ISP(7) = 8 ISP(8) = 10 LLINE = 13 530 FORMAT (/5X, 6HCONEAX,/) GO TO 700 540 LLINE = 10 550 FORMAT (/5X, 6HTRIARG,/) GO TO 700 560 LLINE = 11 570 FORMAT (/5X, 6HTRAPRG,/) GO TO 700 580 LLINE = 13 590 FORMAT (/5X, 6HTORDRG,/) GO TO 700 600 LLINE = 14 610 FORMAT (/5X,12HIHEX1, IHEX2,/) GO TO 700 620 WRITE (NOUT,625) 625 FORMAT (10X,'STRESS MAX-SHR',12X,'10, 32, 54, 76 ... ETC', 1 /10X,'STRESS OCT-SHR',12X,'10, 32, 54, 76 ... ETC') LINE = LINE + 1 LLINE = 14 630 FORMAT (/5X, 6HIHEX3 ,/) GO TO 700 640 WRITE (NOUT,645) 645 FORMAT (10X,'STRESS MAX-SHR',12X,'10, 33, 56, 79 ... 746', 1 /10X,'STRESS OCT-SHR',12X,'10, 33, 56, 79 ... 746') LINE = LINE + 1 LLINE = 12 650 FORMAT (/5X,14HTRIAAX, TRAPAX,/) GO TO 700 660 ISP(1) = 25 ISP(2) = 26 LLINE = 19 665 FORMAT (/5X,12HQUAD4, TRIA3,/) GO TO 700 C C . QUAD4/TRIA3 LAYER C 670 ISP(2) = 23 ISP(3) = 24 ISP(4) = 16 ISP(5) = 21 ISP(6) = 22 LLINE = 5 GO TO 700 C 680 WRITE (NOUT,685) 685 FORMAT (1X) GO TO 840 C 700 II = II + 1 CALL PAGE2 (LLINE) GO TO (701,702,703,704,720,706,707,708,709,710, 1 711,712,713,714,715,720,717,700,700,720), II 701 WRITE (NOUT,425) GO TO 720 702 WRITE (NOUT,435) GO TO 720 703 WRITE (NOUT,445) GO TO 720 704 WRITE (NOUT,460) GO TO 720 706 WRITE (NOUT,490) GO TO 720 707 WRITE (NOUT,510) GO TO 720 708 WRITE (NOUT,530) GO TO 720 709 WRITE (NOUT,550) GO TO 720 710 WRITE (NOUT,570) GO TO 720 711 WRITE (NOUT,590) GO TO 720 712 WRITE (NOUT,610) GO TO 720 713 WRITE (NOUT,630) GO TO 720 714 WRITE (NOUT,650) GO TO 720 715 WRITE (NOUT,665) GO TO 720 717 LLINE = 0 GO TO 700 C 720 DO 800 I = 1,10 JJ = TAB(I,II) IF (JJ .EQ. 0) GO TO 800 BCD(1,3) = BCD(1,1) BCD(2,3) = BCD(2,1) IF (JJ .GE. 0) GO TO 725 BCD(1,3) = BCD(1,2) BCD(2,3) = BCD(2,2) 725 JJ = IABS(JJ) C C +-------------------+ LL(1) = XX C JJ = TAB(I,J)= ! CC ! ZZ ! YY ! XX ! LL(2) = YY C +-------------------+ LL(3) = ZZ C LL(4) = CC DO 730 J = 1,4 LL(J) = MOD(JJ,100) 730 JJ = JJ/100 JJ = LL(4) C C QUAD4/TRIA3 LAYER IF JJ IS 81 THRU 85 C IF (JJ.EQ.81 .OR. JJ.EQ.82) JJ = 9 IF (JJ.GE.83 .AND. JJ.LE.85) JJ = 12 C KEYWDS(1) = COMP(1,JJ) KEYWDS(2) = COMP(2,JJ) KEYWDS(3) = BLANK IF (II.EQ.4 .OR. II.EQ.16) GO TO 735 IF (JJ.EQ.2 .OR. JJ.EQ. 5) KEYWDS(3) = LLL IF (JJ.LT.9 .OR. JJ.GT.30) GO TO 740 IF (JJ.EQ.11 .OR. (JJ.GE.16 .AND. JJ.LE.21)) GO TO 740 735 J = ISP(I) IF (J .GT. 0) KEYWDS(2) = SP(J) 740 IF (LL(1) .GT. 50) GO TO 745 LL(4) = 0 IDUPL = 0 JJ = 3 GO TO 760 745 IDUPL = LL(1) - 50 INC = LL(2) JJ = MIN0(IDUPL,4) KK = LL(3) DO 750 J = 1,JJ LL(J) = KK 750 KK = KK+INC KK = INC*IDUPL + LL(1) 760 DO 765 J = 1,JJ IF (LL(J) .EQ. 0) GO TO 770 765 CC(J) = COMMA J = JJ + 1 770 JJ = J - 1 CC(JJ) = XBLANK WRITE (NOUT,775) BCD(1,3),BCD(2,3),KEYWDS,(LL(J),CC(J),J=1,JJ) 775 FORMAT (10X,A4,A2,5X,2A4,A1,9X,4(I3,A1)) IF (IDUPL .LE. 4) GO TO 800 IF (II.NE.12 .AND. II.NE.14 .AND. II.NE.16) WRITE (NOUT,780) KK IF (II.EQ.12 .OR. II.EQ.14 .OR. II.EQ.16) WRITE (NOUT,785) 780 FORMAT (1H+,54X,3H...,I4) 785 FORMAT (1H+,54X,3H...,5H ETC.) 800 CONTINUE 810 DO 820 J = 1,10 820 ISP(J) = 0 GO TO (430,440,450,470,480,500,520,540,560,580, 1 600,620,640,660,670,680,840,840,840,410), II 840 WRITE (NOUT,850) 850 FORMAT (//5X,'USE OUTPUT FIELD NUMBER(S) TO SPECIFY COMPONENT(S)', 1 'FOR ELEMENTS OR KEYWORDS', /5X,'NOT LISTED ABOVE',/) RETURN C C ON-LINE C 900 WRITE (NOUT,910) UFM 910 FORMAT (A23,', SCAN ON-LINE OPTION IS NOT AVAILABLE IN THIS ', 1 'NASTRAN RELEASE') NOGO = 1 RETURN END ================================================ FILE: mis/ifp1pc.f ================================================ SUBROUTINE IFP1PC (I81,ICONT,POCARD,ORG,PORG) C C SUBROUTINE TO PERFORM FIRST-LEVEL CHECKING OF STRUCTURE PLOTTER C CONTROL CARD FORMAT. C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,COMPLF LOGICAL FLAG(3),BIT64 INTEGER CASE(400),CTYPE(21),IDVPR(3),CAMERA(5),ORIGIN(11), 1 AXES(3),MAXES(3),CNTUR(20),SETPR(33),SETP2(12), 2 COORD(25),LBLPR(5),PLTPR(28),NAST(2),POCARD(1), 3 CORE(1),COREY(401) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ ISYS,NOUT,NOGO,SKP(16),PLTOPT,SYS21,ILINK, 1 SKP63(63),INTRA COMMON /XIFP1 / BLANK,BIT64 COMMON /ZZZZZZ/ COREX(1) EQUIVALENCE (PROJ,CTYPE(11)), (DEFO,IDVPR( 1)), 1 (SYMM,PLTPR(13)), (ANTI,PLTPR(14)), 2 (MAGN,CNTUR(13)), (THRU,PLTPR(22)), 3 (POIN,LBLPR( 2)), (CORE(1),COREY(401)), 4 (COREX(1),COREY(1),CASE(1)), (HIDD,PLTPR(24)) DATA CTYPE / 4HPLOT, 4HORTH, 4HPERS, 4HSTER, 4HAXES, 4HVIEW, 1 4HMAXI, 4HCSCA, 4HFIND, 4HCONT, 4HPROJ, 4HOCUL, 2 4HCAME, 4HPAPE, 4HPEN , 4HPTIT, 4HSCAL, 4HORIG, 3 4HVANT, 4HSET , 4HREGI/ DATA CAMERA/ 4HFILM, 4HPAPE, 4HBOTH, 4HBLAN, 4HFRAM/ DATA AXES / 4HX , 4HY , 4HZ / DATA MAXES / 4HMX , 4HMY , 4HMZ / DATA CNTUR / 4HMAJP, 4HMINP, 4HMAXS, 4HXNOR, 4HYNOR, 4HZNOR, 1 4HXYSH, 4HXZSH, 4HYZSH, 4HXDIS, 4HYDIS, 4HZDIS, 2 4HMAGN, 4HNRM1, 4HNRM2, 4HSH12, 4HSH1Z, 4HSH2Z, 3 4HBDSH, 4HSTRA/ DATA SETPR / 4HINCL, 4HEXCL, 4HEXCE, 4HELEM, 4HGRID, 4HALL , 1 4HAERO, 4HAXIF, 4HBAR , 4HCONE, 4HCONR, 4HHEXA, 2 4HFLUI, 4HIHEX, 4HPLOT, 4HQDME, 4HQDPL, 4HQUAD, 3 4HROD , 4HSHEA, 4HSLOT, 4HTETR, 4HTORD, 4HTRAP, 4 4HTRBS, 4HTRIA, 4HTRME, 4HTRPL, 4HTUBE, 4HTWIS, 5 4HVISC, 4HWEDG, 4HHBDY/ DATA SETP2 / 4HAX , 4HRG , 4H1 , 4H2 , 4H3 , 4H4 , 1 4HD2 , 4HD3 , 4HD4 , 4HM , 4HM1 , 4HM2 / DATA PLTPR / 4HSET , 4HSTAT, 4HMODA, 4HCMOD, 4HFREQ, 4HTRAN, 1 4HCONT, 4HRANG, 4HTIME, 4HPHAS, 4HMAGN, 4HORIG, 2 4HSYMM, 4HANTI, 4HPEN , 4HDENS, 4HSYMB, 4HLABE, 3 4HSHAP, 4HVECT, 4HOUTL, 4HTHRU, 4HMAXI, 4HHIDD, 4 4HSHRI, 4HNOFI, 4HFILL, 4HOFFS/ DATA IDVPR / 4HDEFO, 4HVELO, 4HACCE/ DATA COORD / 4HYX , 4HZX , 4HZY , 4HXY , 4HXZ , 4HYZ , 1 4HX , 4HY , 4HZ , 2 4HXYZ , 4HRXY , 4HRXZ , 4HRYZ , 4HR , 4HRN , 3 4HXN , 4HYN , 4HZN , 4HXYN , 4HXZN , 4HYZN , 4 4HXYZN, 4HRXYN, 4HRXZN, 4HRYZN / DATA LBLPR / 4HGRID, 4HPOIN, 4HELEM, 4HBOTH, 4HEPID/ DATA TER / 4HTER /, PLAN / 4HPLAN/, SEPA / 4HSEPA/ DATA LAG / 4HLAG /, NAST / 4HSC , 4HCALC/,ILNK / 4HNS01/ C C C INITIALIZE C IF (INTRA.LE.1 .AND. ILINK.EQ.ILNK) GO TO 15 DO 5 I = 1,200 5 CORE(I)= POCARD(I) 15 ALLON = COMPLF(0) EOR = RSHIFT(ALLON,1) ISPLOT = 0 IWRD = I81 C C BRANCH FOR CONTINUATION CARD C SET PLOT FIND IF (ICONT .NE. 0) GO TO (10, 2111, 2210, 1067), ICONT C IF (CORE(IWRD)) 9800,350,20 10 IF (CORE(IWRD) .LE. 0) GO TO 320 20 IF (CORE(IWRD) .EQ. EOR) GO TO 350 MODE = CORE(IWRD) IWRD = IWRD + 1 C C BRANCH FOR CARD TYPE C 100 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) DO 300 I = 1,20 IF (IWORD .EQ. CTYPE(I)) 1 GO TO (400, 500, 500, 500, 600, 700, 800, 900, 1000, 2 1100, 1200, 1300, 1400, 320, 320, 320, 1800, 1900, 3 2000, 2100), I C C 1 PLOT ORTH PERS STER AXES VIEW MAXI CSCA FIND C 2 CONT PROJ OCUL CAME PAPE PEN PTIT SCAL ORIG C 3 VANT SET C 300 CONTINUE GO TO 9802 320 IF (MODE .LE. 0) GO TO 330 IWRD = IWRD + 2 MODE = MODE - 1 GO TO 320 330 IF (CORE(IWRD)) 335,340,340 335 IF (CORE(IWRD) .EQ. -4) IWRD = IWRD + 1 IWRD = IWRD + 2 GO TO 330 340 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 350 MODE = CORE(IWRD) IWRD = IWRD + 1 GO TO 320 350 ICONT = 0 IF (CORE(IWRD) .EQ. 0) ICONT = 1 GO TO 9998 C C BRANCH TO PLOT OR PLOTTER C 400 IWORD = CORE(IWRD+1) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .EQ. TER) GO TO 410 ISPLOT = 1 GO TO 2200 C C PLOTTER CARD C 410 IWORD = CORE(IWRD+2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD.EQ.NAST(1) .OR. IWORD.EQ.NAST(2)) GO TO 9804 GO TO 320 C C PROJECTION CARD C 500 IWRD = IWRD + 2 MODE = MODE - 1 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .EQ. PROJ) GO TO 510 ASSIGN 510 TO IRTN IPRM = PROJ GO TO 9806 510 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 330,330,100 C C AXES CARD C 600 IWRD = IWRD + 2 MODE = MODE - 1 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 600 DO 605 J = 1,3 605 FLAG(J) = .FALSE. I = 0 GO TO 607 606 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) 607 IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 610 DO 608 J = 1,3 IF (IWORD.EQ.AXES(J) .OR. IWORD.EQ.MAXES(J)) FLAG(J) = .TRUE. 608 CONTINUE I = I + 1 610 IWRD = IWRD + 2 MODE = MODE - 1 IF (I .LT. 3) GO TO 606 C ASSIGN 320 TO IRTN IF (.NOT.FLAG(1) .OR. .NOT.FLAG(2) .OR. .NOT.FLAG(3)) GO TO 9810 620 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD.EQ.SYMM .OR. IWORD.EQ.ANTI) GO TO 630 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 350 IF (CORE(IWRD).NE.ALLON .AND. IWORD.NE.BLANK) GO TO 100 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 9812,9812,620 630 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 330,330,100 C C VIEW COMMAND C 700 NREAL = 3 NOPT = 0 GO TO 1310 C C MAXIMUM DEFORMATION CARD C 800 NREAL = 1 NOPT = 0 IWORD = CORE(IWRD+2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .EQ. DEFO) GO TO 1310 ASSIGN 320 TO IRTN IPRM = CORE(IWRD+2) GO TO 9808 C C CSCALE CARD C 900 ASSIGN 320 TO IRTN 910 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 930,930,920 920 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 910 GO TO 9812 930 IF (CORE(IWRD)+1) 960,940,9816 940 WRITE (NOUT,950) 950 FORMAT (/5X,'REAL VALUE, NOT INTEGER, IS NOW USED FOR CSCALE') GO TO 9816 C 960 NREAL = 1 NOPT = 0 GO TO 1700 C C FIND COMMAND C 1000 IWRD = IWRD + 2 MODE = MODE - 1 1005 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 1080 ASSIGN 1070 TO IRTN IF (MODE) 9812,9812,1006 1006 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1000 DO 1008 I = 17,21 ITYPE = I - 16 IF (IWORD .EQ. CTYPE(I)) 1 GO TO (1020, 1030, 1040, 1030, 1050), ITYPE C SCAL ORIG VANT SET REGI C 1008 CONTINUE IPRM = CORE(IWRD) GO TO 9808 C 1020 NREAL = 1 1021 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE .LE. 0) GO TO 1061 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1021 GO TO 1005 C 1030 IPRM = CORE(IWRD) ASSIGN 1005 TO IRTN 1031 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 1033,1033,1032 1032 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1031 GO TO 9814 1033 INTEG = 1 IF (CORE(IWRD) .EQ. EOR) GO TO 9814 IF (CORE(IWRD) .EQ. -1) INTEG = 0 IF (CORE(IWRD) .EQ. -4) IWRD = IWRD + 1 IF (ITYPE .NE. 2) GO TO 1034 FORG = CORE(IWRD+1) ORG = ORG + 1 ORIGIN(ORG) = FORG 1034 IWRD = IWRD + 2 IF (PORG .GE. 0) GO TO 1066 PORG = 0 PORG1 = FORG GO TO 1066 C 1040 IWRD = IWRD + 2 MODE = MODE - 1 ASSIGN 1070 TO IRTN IF (MODE) 1041,1041,1042 1041 IPRM = POIN GO TO 9806 1042 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .EQ. POIN) GO TO 1000 IPRM = CORE(IWRD) GO TO 9808 C 1050 NREAL = 4 1060 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE .LE. 0) GO TO 1062 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1060 GO TO 9818 1061 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 1080 1062 INTEG = 0 ASSIGN 1005 TO IRTN DO 1065 I = 1,NREAL IF (CORE(IWRD) .EQ. -1) INTEG = 1 IF (CORE(IWRD) .EQ. -4) IWRD = IWRD + 1 IWRD = IWRD + 2 1065 CONTINUE 1066 IF (INTEG) 1067,1067,9816 1067 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 1080 MODE = CORE(IWRD) IWRD = IWRD + 1 GO TO 1005 C 1070 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 1080 IWRD = IWRD + 1 GO TO 1070 1080 ICONT = 0 IF (CORE(IWRD) .EQ. 0) ICONT = 4 GO TO 9998 C C CONTOUR C 1100 IWRD = IWRD + 2 MODE = MODE - 1 ASSIGN 320 TO IRTN 1105 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 350 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1110 DO 1108 I = 1,20 IF (IWORD .EQ. CNTUR(I)) GO TO 320 1108 CONTINUE IPRM = CORE(IWRD) GO TO 9808 1110 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 9812,9812,1105 C C PROJECTION PLANE SEPARATION C 1200 IWRD = IWRD + 2 MODE = MODE - 1 ASSIGN 320 TO IRTN IF (MODE) 1210,1210,1220 1210 IPRM = PLAN GO TO 9806 1220 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .NE. PLAN) GO TO 1231 IWORD = CORE(IWRD+2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .EQ. SEPA) GO TO 1240 1231 IPRM = CORE(IWRD) GO TO 9808 1240 NREAL = 1 NOPT = 0 GO TO 1310 C C OCULAR SEPARATION C 1300 NREAL = 1 NOPT = 0 IWORD = CORE(IWRD+2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .EQ. SEPA) GO TO 1310 ASSIGN 320 TO IRTN IPRM = CORE(IWRD+2) GO TO 9808 C 1310 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 1700,1700,1310 C C CAMERA C 1400 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE .LE. 0) GO TO 1420 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK ) GO TO 1400 IF (CORE(IWRD).EQ.EOR .OR. CORE(IWRD).EQ.0) GO TO 9820 DO 1410 I = 1,4 IF (IWORD .EQ. CAMERA(I)) GO TO 1415 1410 CONTINUE IPRM = CORE(IWRD) ASSIGN 320 TO IRTN GO TO 9808 1415 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE .LE. 0) GO TO 1420 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1415 I = I + 1 IF (IWORD.EQ.CAMERA(4) .OR. IWORD.EQ.CAMERA(5)) GO TO 1415 ASSIGN 320 TO IRTN IF (I-4) 100,9812,100 1420 IF (CORE(IWRD).EQ.EOR .OR. CORE(IWRD).EQ.0) IF (I-3) 350,350,9820 ASSIGN 320 TO IRTN IF (CORE(IWRD)+1) 9816,1430,9816 1430 IWRD = IWRD + 2 GO TO 10 C C TEST FOR REAL VALUES C 1700 IRO = 0 NRO = NREAL 1710 INTEG = 0 ASSIGN 320 TO IRTN DO 1720 I = 1,NRO IF (CORE(IWRD).GE.0 .OR. CORE(IWRD).LT.-4) IF (IRO) 9818,9818,1712 1712 IF (CORE(IWRD) .EQ. -1) INTEG = 1 IF (CORE(IWRD) .EQ. -4) IWRD = IWRD + 1 IWRD = IWRD + 2 1720 CONTINUE IF (INTEG .EQ. 0) GO TO 1730 ASSIGN 1730 TO IRTN GO TO 9816 1730 IF (CORE(IWRD)) 1740,350,20 1740 IF (IRO.EQ.1 .OR. NOPT.EQ.0) GO TO 9812 IRO = 1 NRO = NOPT GO TO 1710 C C SCALE C 1800 NREAL = 1 NOPT = 1 GO TO 1310 C C ORIGIN C 1900 NREAL = 3 NOPT = 0 1905 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 1907,1907,1906 1906 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1905 1907 IF (CORE(IWRD) .EQ. -1) GO TO 1910 IPRM = CTYPE(18) ASSIGN 320 TO IRTN GO TO 9814 1910 IF (CORE(IWRD) .EQ. -4) IWRD = IWRD + 1 IWRD = IWRD + 2 ASSIGN 320 TO IRTN IF (CORE(IWRD) .EQ. EOR) GO TO 9818 IF (CORE(IWRD) .LT. 0) GO TO 1700 MODE = CORE(IWRD) IWRD = IWRD + 1 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1310 GO TO 9812 C C VANTAGE POINT C 2000 NREAL = 3 NOPT = 1 IWORD = CORE(IWRD+2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .EQ. POIN) GO TO 1310 ASSIGN 320 TO IRTN IPRM = CORE(IWRD+2) GO TO 9808 C C SET DEFINITION CARD C 2100 NINT = 0 NTHRU= 0 2105 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 2106,2106,2108 2106 IF (CORE(IWRD) .EQ. -1) GO TO 2110 ASSIGN 2107 TO IRTN GO TO 9816 2107 IF (CORE(IWRD) .EQ. -4) IWRD = IWRD + 1 GO TO 2110 2108 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2105 IPRM = CTYPE(20) ASSIGN 2120 TO IRTN GO TO 9814 C 2110 IWRD = IWRD + 2 NREAL = 0 2111 IF (CORE(IWRD)) 2112,2113,2114 2112 NINT = NINT + 1 IF (CORE(IWRD).EQ.-1 .OR. NREAL.NE.0) GO TO 2110 ASSIGN 2110 TO IRTN GO TO 9816 2113 ICONT = 2 NTHRU = 0 GO TO 9998 2114 IF (CORE(IWRD) .NE. EOR) GO TO 2115 ICONT = 0 GO TO 9998 2115 MODE = CORE(IWRD) IWRD = IWRD + 1 2120 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).NE.ALLON .AND. IWORD.NE.BLANK) GO TO 2121 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 2111,2111,2120 2121 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .NE. THRU) GO TO 2130 NTHRU = NTHRU + 1 IF (CORE(IWRD-3).EQ.-1 .AND. CORE(IWRD+2).EQ.-1) GO TO 2122 ASSIGN 2123 TO IRTN NREAL = 1 GO TO 9822 2122 IF (NTHRU .EQ. 1) GO TO 2123 IF (NINT.GE.2 .AND. CORE(IWRD-2).GT.CORE(IWRD-4)) GO TO 2123 ASSIGN 2123 TO IRTN GO TO 9824 2123 NINT = 0 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 2111,2111,2130 2130 IF (CORE(IWRD) .EQ. 0) GO TO 2113 IF (CORE(IWRD) .EQ. EOR) GO TO 2114 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2135 DO 2132 I = 1,33 IF (IWORD .EQ. SETPR(I)) 1 GO TO (2135, 2135, 2135, 2135, 2138, 2135, 2135, 2142, 2135, 2 2135, 2135, 2143, 2144, 2145, 2135, 2146, 2135, 2143, 3 2135, 2135, 2147, 2135, 2135, 2148, 2135, 2149, 2135, 4 2135, 2135, 2135, 2135, 2135, 2135), I C C 1 INCL EXCL EXCE ELEM GRID ALL AERO AXIF BAR C 2 CONE CONR HEXA FLUI IHEX PLOT QDME QDPL QUAD C 3 ROD SHEA SLOT TETR TORD TRAP TRBS TRIA TRME C 4 TRPL TUBE TWIS VISCX WEDG HBDY C 2132 CONTINUE ASSIGN 2135 TO IRTN IPRM = CORE(IWRD) GO TO 9808 2135 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE .LE. 0) GO TO 2136 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2135 GO TO 2130 2136 NTHRU = 0 GO TO 2111 C 2138 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 2139,2139,2140 2139 ASSIGN 2136 TO IRTN IPRM = POIN GO TO 9806 2140 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .EQ. POIN) GO TO 2135 ASSIGN 2130 TO IRTN IPRM = CORE(IWRD) GO TO 9808 C 2142 ISTT = 4 ISTB = 6 GO TO 2150 C 2143 ISTT = 3 ISTB = 6 GO TO 2150 C 2144 ISTT = 7 ISTB = 9 GO TO 2150 C 2145 ISTT = 3 ISTB = 5 GO TO 2150 C 2146 ISTT = 10 ISTB = 12 GO TO 2150 C 2147 ISTT = 5 ISTB = 6 GO TO 2150 C 2148 ISTT = 1 ISTB = 2 GO TO 2150 C 2149 ISTT = 1 ISTB = 5 C 2150 IWORD = CORE(IWRD+1) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) DO 2155 I = ISTT,ISTB IF (IWORD .EQ. SETP2(I)) GO TO 2135 2155 CONTINUE ASSIGN 2135 TO IRTN IPRM = CORE(IWRD) GO TO 9808 C C PLOT COMMAND CARD C 2200 IWRD = IWRD + 2 MODE = MODE - 1 2202 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 2215 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2207 DO 2205 I = 1,28 IF (IWORD .EQ. PLTPR(I)) 1 GO TO (2208, 2220, 2220, 2220, 2230, 2230, 2207, 2250, 2250, 2 2260, 2207, 2208, 2280, 2280, 2208, 2208, 2208, 2290, 3 2207, 2281, 2207, 2248, 2240, 2207, 2245, 2207, 2207, 4 2208), I C C 1 SET STAT MODA CMOD FREQ TRAN CONT RANG TIME C 2 PHAS MAGN ORIG SYMM ANTI PEN DENS SYMB LABE C 3 SHAP VECT OUTL THRU MAXI HIDD SHRI NOFI FILL C 4 OFFS C 2205 CONTINUE ASSIGN 2207 TO IRTN IPRM = CORE(IWRD) GO TO 9808 C 2207 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 2210,2210,2202 C 2208 IPRM = CORE (IWRD) ASSIGN 2202 TO IRTN 2209 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE .LE. 0) GO TO 2210 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2209 GO TO 9814 C 2210 IF (CORE(IWRD) .GE. 0) GO TO 2215 IF (I .NE. 12) GO TO 2214 PORG = CORE(IWRD+1) IF (ORG .LE. 0) GO TO 9830 DO 2213 I = 1,ORG IF (PORG .EQ. ORIGIN(I)) GO TO 2214 2213 CONTINUE GO TO 9830 2214 IWRD = IWRD + 2 GO TO 2210 C 2215 IF (CORE(IWRD) .NE. 0) GO TO 2216 ICONT = 3 GO TO 9998 2216 IF (CORE(IWRD) .NE. EOR) GO TO 2217 ICONT = 0 GO TO 9998 2217 MODE = CORE(IWRD) IWRD = IWRD + 1 GO TO 2202 C 2220 IPR1 = CORE(IWRD ) IPR2 = CORE(IWRD+1) IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 2222,2222,2223 2222 IPRM = DEFO ASSIGN 2210 TO IRTN GO TO 9806 2223 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) DO 2225 I = 1,3 C DEFO VELO ACCE IF (IWORD .EQ. IDVPR(I)) GO TO (2207, 9826, 9826), I 2225 CONTINUE ASSIGN 2207 TO IRTN IPRM = CORE(IWRD) GO TO 9808 C 2230 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 2231,2231,2232 2231 ASSIGN 2210 TO IRTN IPRM = DEFO GO TO 9806 C 2232 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) DO 2235 I = 1,3 IF (IWORD .EQ. IDVPR(I)) GO TO 2207 2235 CONTINUE ASSIGN 2207 TO IRTN IPRM = CORE(IWRD) GO TO 9808 C 2250 NREAL = 2 ASSIGN 2202 TO IRTN 2251 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE .LE. 0) GO TO 2252 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2251 GO TO 9818 2252 INTEG = 0 DO 2255 I = 1,NREAL IF (CORE(IWRD) .GE. 0) GO TO 2257 IF (CORE(IWRD) .EQ. -1) INTEG = 1 IF (CORE(IWRD) .EQ. -4) IWRD = IWRD + 1 IWRD = IWRD + 2 2255 CONTINUE IF (INTEG) 2210,2210,2256 2256 ASSIGN 2210 TO IRTN GO TO 9816 2257 ASSIGN 2215 TO IRTN GO TO 9818 C 2260 IWRD = IWRD + 2 MODE = MODE - 1 NREAL= 1 IF (MODE) 2261,2261,2262 2261 ASSIGN 2210 TO IRTN IPRM = LAG GO TO 9806 2262 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .EQ. LAG) GO TO 2251 ASSIGN 2251 TO IRTN IPRM = CORE(IWRD) GO TO 9808 C 2280 NCRD = 9 ICRD = 1 IVC = 0 GO TO 2282 2281 NCRD = 25 ICRD = 4 IVC = 1 2282 ASSIGN 2210 TO IRTN IAX = 0 2283 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 9810,9810,2284 2284 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2283 DO 2285 I = ICRD,NCRD IF (IWORD .EQ. COORD(I)) GO TO 2286 2285 CONTINUE IF (IAX) 9810,9810,2202 2286 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 2215,2215,2287 2287 IF (IVC) 2288,2288,2202 2288 IF (IAX) 2289,2289,2202 2289 IAX = 1 GO TO 2284 C 2290 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 2210,2210,2291 2291 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2290 DO 2292 I = 1,5 IF (IWORD .EQ. LBLPR(I)) GO TO (2290, 2207, 2207, 2207, 2207), I C GRID POIN ELEM BOTH EPID 2292 CONTINUE GO TO 2202 C 2240 IWRD = IWRD + 2 MODE = MODE - 1 IF (MODE) 2241,2241,2242 2241 ASSIGN 2210 TO IRTN GO TO 9812 2242 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .EQ. DEFO) GO TO 2243 ASSIGN 2243 TO IRTN IPRM = CORE(IWRD) GO TO 9808 2243 NREAL = 1 GO TO 2251 C 2245 IWRD = IWRD + 2 IWORD = CORE(IWRD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0) IF (IWORD .EQ. HIDD) GO TO 2207 MODE = MODE - 1 IF (MODE) 2241,2210,2210 C 2248 IF (CORE(IWRD-3).EQ.-1 .AND. CORE(IWRD+2).EQ.-1) GO TO 2207 ASSIGN 2207 TO IRTN GO TO 9822 C C SET UP ERROR MESSAGE C 9800 ASSIGN 9900 TO IERR MSGNO = 348 GO TO 9890 9802 ASSIGN 9902 TO IERR MSGNO = 349 GO TO 9890 9804 ASSIGN 9904 TO IERR MSGNO = 350 GO TO 9895 9806 ASSIGN 9906 TO IERR MSGNO = 351 GO TO 9890 9808 ASSIGN 9908 TO IERR MSGNO = 351 GO TO 9890 9810 ASSIGN 9910 TO IERR MSGNO = 352 GO TO 9890 9812 ASSIGN 9912 TO IERR MSGNO = 353 GO TO 9890 9814 ASSIGN 9914 TO IERR MSGNO = 354 GO TO 9895 9816 ASSIGN 9916 TO IERR MSGNO = 355 GO TO 9890 9818 ASSIGN 9918 TO IERR MSGNO = 356 GO TO 9890 9820 ASSIGN 9920 TO IERR MSGNO = 357 GO TO 9895 9822 ASSIGN 9922 TO IERR MSGNO = 358 GO TO 9890 9824 ASSIGN 9924 TO IERR MSGNO = 359 GO TO 9890 9826 ASSIGN 9926 TO IERR MSGNO = 360 GO TO 9890 9828 ASSIGN 9928 TO IERR MSGNO = 361 GO TO 9895 9830 ASSIGN 9930 TO IERR MSGNO = 362 GO TO 9895 C 9890 CALL PAGE2 (2) WRITE (NOUT,9891) UFM,MSGNO 9891 FORMAT (A23,I4) IF (PLTOPT .LE. 2) NOGO = 1 GO TO 9898 9895 CALL PAGE2 (2) WRITE (NOUT,9896) UWM,MSGNO 9896 FORMAT (A25,I4) C 9898 GO TO IERR, (9900,9902,9904,9906,9908,9910,9912,9914,9916,9918, 1 9920,9922,9924,9926,9928,9930) C 9900 WRITE (NOUT,9901) 9901 FORMAT (5X,'FIRST CHARACTER ON CARD IS NUMERIC. INCORRECT FORMAT', 1 ' OR INCORRECT CONTINUATION ON PREVIOUS CARD') GO TO 320 C 9902 WRITE (NOUT,9903) CORE(IWRD) 9903 FORMAT (5X,'PLOT COMMAND ',A4,' NOT RECOGNIZED. CHECK SPELLING ', 1 'AND FORMAT ON THIS CARD AND CONTINUATION ON PREVIOUS ONE') GO TO 320 9904 WRITE (NOUT,9905) 9905 FORMAT (1H+,30X,' - ONLY NASTRAN GENERAL PURPOSE PLOTTER IS ', 1 'SUPPORTED') GO TO 320 C 9906 WRITE (NOUT,9907) IPRM 9907 FORMAT (1H+,30X,' - KEYWORD ',A4,' NOT FOUND') GO TO IRTN, (320,1070,2110,2136,2210,510) C 9908 WRITE (NOUT,9909) IPRM 9909 FORMAT (1H+,30X,' - KEYWORD ',A4,' NOT RECOGNIZED') GO TO IRTN, (320,1070,2130,2135,2202,2207,2243,2251) C 9910 WRITE (NOUT,9911) 9911 FORMAT (1H+,30X,' - COORDINATE AXES INCORRECTLY DEFINED') GO TO IRTN, (320,2210) C 9912 WRITE (NOUT,9913) 9913 FORMAT (1H+,30X,' - INCORRECT FORMAT') GO TO IRTN, (320,1070,2210) C 9914 WRITE (NOUT,9915) IPRM 9915 FORMAT (1H+,30X,3H - ,A4,' IDENTIFICATION NUMBER NOT DEFINED') GO TO IRTN, (320,1005,1910,2120,2202) C 9916 WRITE (NOUT,9917) 9917 FORMAT (1H+,30X,' - DATA TYPE IS INCORRECT') GO TO IRTN, (1005,1730,2107,2110,2210,320) C 9918 WRITE (NOUT,9919) 9919 FORMAT (1H+,30X,' - ONE OR MORE REQUIRED REAL VALUES MISSING') GO TO IRTN, (320,1005,2202,2215) C 9920 WRITE (NOUT,9921) 9921 FORMAT (1H+,30X,' - CAMERA OPTION NOT SPECIFIED') GO TO 320 C 9922 WRITE (NOUT,9923) 9923 FORMAT (1H+,30X,' - THRU MUST BE PRECEDED AND FOLLOWED BY INTEGER' 1, ' VALUES') GO TO IRTN, (2123,2207) C 9924 WRITE (NOUT,9925) 9925 FORMAT (1H+,30X,' - THRU RANGE OVERLAPS RANGE OF PREVIOUS THRU') GO TO 2123 C 9926 WRITE (NOUT,9927) IPR1,IPR2 9927 FORMAT (1H+,30X,' - ONLY DEFORMATION VALID WITH ',2A4) GO TO 2207 C 9928 WRITE (NOUT,9929) FORG,PORG 9929 FORMAT (1H+,30X,' - A NEW ORIGIN',I8,' WAS DEFINED IN A FIND ', 1 'CARD, BUT IT IS NOT USED BY THE IMMEDIATE PLOT CARD', 2 /5X,'(ORIGIN',I8,' WILL BE USED FOR THIS PLOT)',/) GO TO 9999 C 9930 WRITE (NOUT,9931) PORG 9931 FORMAT (1H+,30X,' - ORIGIN',I8,' IS UNDEFINED') GO TO 2207 C 9998 IF (ISPLOT.EQ.0 .OR. PORG.EQ.-1) RETURN IF (PORG .EQ. 0) PORG = PORG1 IF (FORG.NE.0 .AND. FORG.NE.PORG) GO TO 9828 9999 FORG = 0 PORG = 0 RETURN END ================================================ FILE: mis/ifp1s.f ================================================ SUBROUTINE IFP1S (LIST,ISTOR,NLIST) C C THIS ROUTINE FINDS ANY OVERLAPPING INTERVALS IN A SET LIST. C IT WILL ALSO CHECK SINGLES C INTEGER OTPE DIMENSION LIST(1),ISTOR(1) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ SYSBUF,OTPE,INX(6),NLPP,INX1(2),LINE C IPAIR = 0 DO 100 I = 1,NLIST IF (LIST(I) .GT. 0) GO TO 100 10 IF (IPAIR .NE. 0) GO TO 40 20 L = 2*IPAIR + 1 ISTOR(L ) = LIST(I-1) ISTOR(L+1) = LIST(I ) IPAIR = IPAIR + 1 30 LIST(I ) = 0 LIST(I-1) = 0 GO TO 100 C C PAIR FOUND - CHECK FOR OVERLAP C 40 L = 1 IN = IABS(LIST(I-1)) IOUT = IABS(LIST(I )) K = 2*L - 1 50 IF (IN.GE.ISTOR(K) .AND. IN.LE.IABS(ISTOR(K+1)) ) GO TO 60 IF (IOUT.GE.ISTOR(K) .AND. IOUT.LE.IABS(ISTOR(K+1))) GO TO 60 L = L + 1 IF (L .LE. IPAIR) GO TO 50 C C STORE NEW PAIR IN LIST C GO TO 20 C C ERROR IN INTERVAL C 60 LIST(I-1) = MIN0(IN,ISTOR(K)) LIST(I ) =-MAX0(IOUT,IABS(ISTOR(K+1))) IF (LIST(I-1).EQ.ISTOR(K) .AND. LIST(I).EQ.ISTOR(K+1)) GO TO 30 IX = IABS(ISTOR(K+1)) WRITE (OTPE,70) UWM,IN,IOUT,ISTOR(K),IX 70 FORMAT (A25,' 621, INTERVAL',I8,' THRU',I8,' OVERLAPS INTERVAL', 1 I8,' THRU', I8,'. THE MAXIMUM INTERVAL WILL BE USED.') LINE = LINE + 3 IF (LINE .GE. NLPP) CALL PAGE C C REMOVE PAIR L FROM ISTOR C 80 IF (L .GE. IPAIR) GO TO 90 M = 2*L + 1 K = 2*L - 1 ISTOR(K ) = ISTOR(M ) ISTOR(K+1) = ISTOR(M+1) L = L + 1 GO TO 80 90 IPAIR = IPAIR - 1 GO TO 10 100 CONTINUE C C ALL PAIRS PROCESSED - TRY SINGLES C ISING = 0 M = 2*IPAIR DO 180 I = 1,NLIST IN = LIST(I) IF (IPAIR .EQ. 0) GO TO 140 IF (LIST(I) .EQ. 0) GO TO 180 C C CHECK EACH PAIR C L = 1 110 K = 2*L - 1 IF (IN.GE.ISTOR(K) .AND. IN.LE.IABS(ISTOR(K+1))) GO TO 120 L = L + 1 IF (L-IPAIR) 110,110,140 C C ERROR -- PAIR CONTAINS SINGLE C 120 IN1 = IABS(ISTOR(K+1)) WRITE (OTPE,130) UWM,IN,ISTOR(K),IN1 130 FORMAT (A25,' 619, SET MEMBER',I8,' BELONGS TO',I8,' THRU',I8) LINE = LINE + 3 IF (LINE .GE. NLPP) CALL PAGE GO TO 180 C C CHECK FOR DUPLICATE SINGLES C 140 IF (ISING .EQ. 0) GO TO 170 DO 160 K = 1,ISING L = 2*IPAIR + K IF (IN .NE. ISTOR(L)) GO TO 160 WRITE (OTPE,150) UWM,IN 150 FORMAT (A25,' 620, SET MEMBER',I8,' IS DUPLICATED IN SET LIST.') LINE = LINE + 3 IF (LINE .GE. NLPP) CALL PAGE GO TO 180 160 CONTINUE 170 M = M + 1 ISING = ISING + 1 ISTOR(M) = IN 180 CONTINUE C C COPY GOOD STUFF INTO LIST C DO 190 I = 1,M 190 LIST(I) = ISTOR(I) NLIST = M C C SORT LIST C N1 = M - 1 DO 230 I = 1,N1 N2 = I + 1 DO 220 K = N2,M IF (IABS(LIST(I))-IABS(LIST(K))) 220,220,210 C C SWITCH C 210 IN = LIST(I) LIST(I) = LIST(K) LIST(K) = IN 220 CONTINUE 230 CONTINUE C RETURN END ================================================ FILE: mis/ifp1xy.f ================================================ SUBROUTINE IFP1XY (CARD,XYCARD) C C THIS ROUTINE PROCESSES THE XRCARD IMAGES OF THE XY-PLOT CONTROL C CARDS AND CREATES THE -XYCDB- FILE WHICH IS OPENED AND CLOSED BY C THE CALLING ROUTINE. C C THE ARGUMENT -CARD- IS = 1 ON THE FIRST CALL TO THIS ROUTINE C = 0 ON OTHER CALLS WHEN AN IMAGE IS SENT C =-1 ON LAST CALL AND NO IMAGE IS SENT C C TWO RECORDS WILL BE FORMED BY THIS ROUTINE. C THE FIRST RECORD HAS XY-PLOT, XY-PRINT, AND XY-PUNCH DATA AND IS C USED BY THE XYTRAN MODULE. C THE SECOND RECORD IS A SORTED NX6 MATRIX STORED BY ROWS. EACH ROW C CONTAINS THE FOLLOWING. C C 1 - SUBCASE ID OR 0 INDICATING ALL. C 2 - VECTOR CODE NUMBER E.G. DISP,STRESS,SPCF, ETC. C 3 - POINT OR ELEMENT ID NUMBER. C 4 - COMPONENT NUMBER. C 5 - TYPE OF PLOT (1=RESP,2=AUTO,3=PSDF) C 6 - DESTINATION CODE 1-7 (BIT1=PRINT,BIT2=PLOT,BIT3=PUNCH). C CODE 8 ADDED - BIT 4 PAPERPLOT C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF LOGICAL CONTIN,SLASH,PAIRS,OFBCD,TAPBIT,XYCM,BIT64 CHARACTER UFM*23 COMMON /XMSSG / UFM DIMENSION BUF(10),MODID(2),XYCARD(1),KWORD(3),RWORD(14), 1 IWORD(26),BWORD(16),ICSE(400),INCARD(20), 2 BUFF(150),SUBCAS(200),Z(1),COREY(771) COMMON /MACHIN/ MACH,IHALF COMMON /SYSTEM/ KSYSTM(21),ILINK,SKP63(63),INTR COMMON /IFP1A / DUM3(3),NWPC,DUMMY(11),A377 COMMON /XIFP1 / BLANK,BIT64 C COMMON /ZZIFP1/ ICSE(400),INCARD(20),BUFF(150),SUBCAS(200),Z(1) COMMON /ZZZZZZ/ COREX(1) COMMON /IFPX0 / LBD,LCC,BITS(1) EQUIVALENCE (KSYSTM( 1),SYSBUF ), (KSYSTM( 2),L ), 1 (KSYSTM( 3),NOGO ), (KSYSTM( 9),NLPP ), 2 (KSYSTM(12),LINE ), (KSYSTM(21),IRESRT ), 3 (ICSE(1) ,COREX(1 ), COREY(1) ), 4 (INCARD(1) ,COREY(401)), (BUFF(1),COREY(421)), 5 (SUBCAS(1) ,COREY(571)), (Z(1) ,COREY(771)) DATA NRWORD/ 14 /, NIWORD / 26 /, NBWORD / 16 / DATA ILNK / 4HNS01 / DATA KWORD / 4HFILM, 4HPAPE, 4HBOTH/ DATA RWORD / 4HXMIN, 4HXMAX, 4HYMIN, 4HYMAX, 4HYTMI, 4HYTMA, 1 4HYBMI, 4HYBMA, 4HYINT, 4HXINT, 4HYTIN, 4HYBIN, 2 4HXPAP, 4HYPAP/ DATA IWORD / 4HXDIV, 4HYDIV, 4HYTDI, 4HYBDI, 4HXVAL, 4HYVAL, 1 4HYTVA, 4HYBVA, 4HUPPE, 4HLOWE, 4HLEFT, 4HRIGH, 2 4HTLEF, 4HTRIG, 4HBLEF, 4HBRIG, 4HALLE, 4HTALL, 3 4HBALL, 4HCURV, 4HDENS, 4HCAME, 4HPENS, 4HSKIP, 4 4HCSCA, 4HCOLO/ DATA BWORD / 4HXAXI, 4HYAXI, 4HXTAX, 4HXBAX, 4HXLOG, 4HYLOG, 1 4HYTLO, 4HYBLO, 4HXGRI, 4HYGRI, 4HXTGR, 4HXBGR, 2 4HPLOT, 4HYTGR, 4HYBGR, 4HLONG/ DATA CLEA / 4HCLEA /, YES / 4HYES /, NO / 4HNO /, 1 T1 / 4HT1 /, R1 / 4HR1 /, T1RM / 4HT1RM /, 2 T2 / 4HT2 /, R2 / 4HR2 /, T2RM / 4HT2RM /, 3 T3 / 4HT3 /, R3 / 4HR3 /, T3RM / 4HT3RM /, 4 T1IP / 4HT1IP /, R1RM / 4HR1RM /, R1IP / 4HR1IP /, 5 T2IP / 4HT2IP /, R2RM / 4HR2RM /, R2IP / 4HR2IP /, 6 T3IP / 4HT3IP /, R3RM / 4HR3RM /, R3IP / 4HR3IP /, 7 XYPL / 4HXYPL /, XYPU / 4HXYPU /, XYPR / 4HXYPR /, 8 SLAS / 4H/ /, THRU / 4HTHRU /, FRAM / 4HFRAM /, 9 XY / 4HXY /, AUTO / 4HAUTO /, RESP / 4HRESP / DATA PSDF / 4HPSDF /, VDUM / 4HVDUM /, DISP / 4HDISP /, 1 VELO / 4HVELO /, SVEL / 4HSVEL /, ELST / 4HELST /, 2 ACCE / 4HACCE /, SPCF / 4HSPCF /, SACC / 4HSACC /, 3 OLOA / 4HOLOA /, LOAD / 4HLOAD /, STRE / 4HSTRE /, 4 NONL / 4HNONL /, SUBC / 4HSUBC /, FORC / 4HFORC /, 5 SDIS / 4HSDIS /, ELFO / 4HELFO /, XTIT / 4HXTIT /, 6 YTIT / 4HYTIT /, YTTI / 4HYTTI /, TCUR / 4HTCUR /, 7 YBTI / 4HYBTI /, XYPE / 4HXYPE /, VECT / 4HVECT /, 8 PLT1 / 4HPLT1 /, PLT2 / 4HPLT2 /, EOR / 1 /, 9 XYPA / 4HXYPA /, XYCM / .FALSE./, NOEOR / 0 / DATA IDEN / 4HDENS /, IEQUAL/ 4H= /, OPAREN/ 4H( /, 1 FILE / 4HXYCD /, VG / 2HVG /, IMODEL/ 4HMODE /, 2 REAL / -2 /, INTE / -1 /, CONT / 0 /, 3 G / 1HG /, F / 1HF / C BITWRD = LBD + 1 N = 1 IF (INTR.LE.1 .AND. ILINK.EQ.ILNK) GO TO 5 INCARD(1) = XYCARD(1) CALL XRCARD (BUFF,149,XYCARD) BUFF(150) = RSHIFT(COMPLF(0),1) A377 = BUFF(150) FILE = 301 5 CONTINUE IF (CARD) 710,20,10 C C FIRST CALL AND FIRST CARD IMAGE. C 10 IAT = 0 CARD = 0 PLOTS = 0 PLOTER = 0 SDRBIT = 0 VDRBIT = 0 BINPLT = 0 CONTIN = .FALSE. A777 = COMPLF(0) ICORE = KORSZ(Z) - 2*SYSBUF - NWPC - 1 C C RETURNING WITH ANOTHER CARD IMAGE C 20 IF (BUFF(N) .EQ. A377) RETURN C IF (.NOT.CONTIN) GO TO 30 CONTIN = .FALSE. GO TO ICONT, (370,410,430,460,520,540,570,680,640) C C BEGIN PROCESSING NON-CONTINUATION CARD (MUST BEGIN WITH BCD FIELD) C 30 IWRD = INCARD(1) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IF (IWRD.EQ.XTIT .OR. IWRD.EQ.YTIT .OR. IWRD.EQ.YTTI .OR. 1 IWRD.EQ.YBTI .OR. IWRD.EQ.TCUR) GO TO 70 IF (BUFF(N) .EQ. 0) RETURN C IF (BUFF(N) .LT. 0) GO TO 730 BCD = BUFF(N+1) IF (BIT64) CALL MVBITS (BLANK,0,32,BCD,0) DO 40 I = 1,NRWORD IF (BCD .EQ. RWORD(I)) GO TO 120 40 CONTINUE C DO 50 I = 1,NIWORD IF (BCD .EQ. IWORD(I)) GO TO 80 50 CONTINUE C DO 60 I = 1,NBWORD IF (BCD .EQ. BWORD(I)) GO TO 130 60 CONTINUE C IF (BCD.EQ.CLEA .OR. BCD.EQ.VDUM) GO TO 110 IF (BCD.EQ.XYPE .OR. BCD.EQ.XYPL .OR. BCD.EQ.XYPR .OR. 1 BCD.EQ.XYPU .OR. BCD.EQ.XYPA) GO TO 140 GO TO 750 C C TITLE CARD C 70 CALL WRITE (FILE,INCARD(1),1,NOEOR) CALL WRITE (FILE,BUFF(1),32,NOEOR ) RETURN C C VERB FOLLOWED BY AN INTEGER VALUE C ON CAMERA CARD BCD ALSO ACCEPTED C 80 N = N + 2*BUFF(N) + 1 IF (I.EQ.22 .AND. BUFF(N).NE.INTE) GO TO 81 IF (BUFF(N) .NE. INTE) GO TO 770 IF (I .EQ. 26) GO TO 95 IF (BUFF(N+1).GE.0 .AND. I.LE.8) GO TO 90 IF (I .LE. 8) GO TO 770 IF (BUFF(N+1).EQ.0 .OR. I.GT.19) GO TO 90 BUFF(N+1) = BUFF(N+1)/IABS(BUFF(N+1)) 90 BUF(1) = BCD BUF(2) = BUFF(N+1) 100 CALL WRITE (FILE,BUF(1),2,NOEOR) RETURN C 95 BUF(1) = BCD BUF(2) = BUFF(N+1) BUF(3) = BUFF(N+3) CALL WRITE (FILE,BUF(1),3,NOEOR) RETURN C 110 CALL WRITE (FILE,BCD,1,NOEOR) RETURN C 81 IWRD = BUFF(N-2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) DO 85 I = 1,3 IF (IWRD .NE. KWORD(I)) GO TO 85 BUFF(N+1) = I GO TO 90 85 CONTINUE GO TO 770 C C VERB FOLLOWED BY A REAL VALUE C 120 N = N + 2*BUFF(N) + 1 IF (BUFF(N) .NE. REAL) GO TO 770 GO TO 90 C C VERB FOLLOWED BY BCD YES OR NO, UNLESS BCD = PLOT... C 130 IF (I .EQ. 13) GO TO 138 N = N + 2*BUFF(N) - 2 J = N C C SEARCH FOR EQUAL SIGN C 132 IWRD = BUFF(N) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IF (IWRD .EQ. IEQUAL) GO TO 133 N = N - 2 IF (N .GT. 0) GO TO 132 N = J 133 CONTINUE I = -1 134 IWRD = BUFF(N+1) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IF (IWRD .EQ. YES) I = 1 IF (IWRD .EQ. NO ) I = 0 IF (I .LT. 0) GO TO 135 BUF(1) = BCD BUF(2) = I GO TO 100 135 IF (I .LT. -3) GO TO 136 I = I - 1 N = N + 1 GO TO 134 136 N = J GO TO 750 C C PLOTTER SPECIFICATION CARD LOGIC C 138 IF (BUFF(N+3) .EQ. A777) N = N + 2 N = N + 2 NMOD = N + 3 IWRD = BUFF(NMOD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IF (IWRD .EQ. IMODEL) NMOD = NMOD + 2 IF (IWRD .EQ. IDEN) GO TO 147 MODID(1) = 0 MODID(2) = 0 IF (BUFF(NMOD) .EQ. A377) GO TO 147 IF (BUFF(NMOD) .EQ. -1) MODID(1) = BUFF(NMOD+1) IF (BUFF(NMOD) .NE. -1) MODID(1) = BUFF(NMOD ) NMOD = NMOD + 2 IF (BUFF(NMOD) .EQ. 1) NMOD = NMOD + 1 IWRD = BUFF(NMOD) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IF (IWRD .EQ. IDEN) GO TO 147 IF (BUFF(NMOD) .EQ. A377) GO TO 147 IF (BUFF(NMOD) .EQ. -1) MODID(2) = BUFF(NMOD+1) IF (BUFF(NMOD) .NE. -1) MODID(2) = BUFF(NMOD ) 147 CALL FNDPLT (PLOTER,MODEL,MODID(1)) BUF(1) = BCD BUF(2) = ORF(LSHIFT(PLOTER,IHALF),MODEL+100) BINPLT = BINPLT + 1 GO TO 100 C C PRINT, PLOT, OR PUNCH COMMAND CARD C 140 XTYPE = 0 TYPE = 0 XVECT = 0 VECTOR= 0 PRINT = 0 PLOT = 0 PUNCH = 0 PAPLOT= 0 SLASH = .FALSE. N1 = 2 N2 = 2*BUFF(N) + N C C PROCESS ALL WORDS C DO 360 I = N1,N2,2 BCD = BUFF(I) IF (BCD .EQ. A777) GO TO 350 IF (BIT64) CALL MVBITS (BLANK,0,32,BCD,0) IF (BCD .EQ. XYPL) GO TO 150 IF (BCD .EQ. XYPR) GO TO 160 IF (BCD .EQ. XYPU) GO TO 170 IF (BCD .EQ. XYPE) GO TO 359 IF (BCD .EQ. XYPA) GO TO 175 IF (BCD .EQ. RESP) GO TO 180 IF (BCD .EQ. AUTO) GO TO 190 IF (BCD .EQ. PSDF) GO TO 200 IF (BCD .EQ. SUBC) GO TO 220 IF (BCD .EQ. DISP) GO TO 230 IF (BCD .EQ. VECT) GO TO 230 IF (BCD .EQ. VELO) GO TO 240 IF (BCD .EQ. ACCE) GO TO 250 IF (BCD .EQ. SPCF) GO TO 260 IF (BCD .EQ. LOAD) GO TO 270 IF (BCD .EQ. STRE) GO TO 280 IF (BCD .EQ. FORC) GO TO 290 IF (BCD .EQ. SDIS) GO TO 300 IF (BCD .EQ. SVEL) GO TO 310 IF (BCD .EQ. SACC) GO TO 320 IF (BCD .EQ. NONL) GO TO 330 IF (BCD .EQ. ELFO) GO TO 290 IF (BCD .EQ. ELST) GO TO 280 IF (BCD .EQ. OLOA) GO TO 270 IF (BCD .EQ. VG ) GO TO 270 N = I - 1 GO TO 750 150 PLOT = 2 PLOTS = 1 IF (PLOTER .NE. 0) GO TO 359 PLOTER = 1 MODEL =-1 BUF(1) = BWORD(13) BUF(2) = ORF(LSHIFT(PLOTER,IHALF),MODEL+100) BINPLT = BINPLT + 1 CALL WRITE (FILE,BUF(1),2,NOEOR) GO TO 359 160 PRINT = 1 GO TO 359 170 PUNCH = 4 GO TO 359 175 PAPLOT = 1 GO TO 359 180 TYPE = 1 GO TO 210 190 TYPE = 3 GO TO 210 200 TYPE = 2 GO TO 210 210 IF (XTYPE .NE. 0) GO TO 790 XTYPE = 1 220 GO TO 360 230 VECTOR = 1 GO TO 291 240 VECTOR = 2 GO TO 291 250 VECTOR = 3 GO TO 291 260 VECTOR = 4 GO TO 291 270 VECTOR = 5 GO TO 291 280 VECTOR = 6 GO TO 291 290 VECTOR = 7 291 SDRBIT = 16 GO TO 340 300 VECTOR = 8 GO TO 331 310 VECTOR = 9 GO TO 331 320 VECTOR = 10 GO TO 331 330 VECTOR = 11 331 VDRBIT = 2 GO TO 340 340 IF (XVECT .NE. 0) GO TO 790 XVECT = 1 GO TO 360 C C DELIMETER HIT OF SOME KIND. IGNORE IF NOT LAST WORD OF BCD GROUP. C 350 IF (I .NE. N2-1) GO TO 360 IWRD = BUFF(I+1) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IF (IWRD .EQ. SLAS) SLASH = .TRUE. IF (.NOT.SLASH) GO TO 810 GO TO 360 359 XYCM = .TRUE. 360 CONTINUE C C WRITE PLOT CONTROL INFORMATION C BUF(1) = XY BUF(2) = PRINT BUF(3) = PLOT BUF(4) = PUNCH IF (PAPLOT .EQ. 1) PLOT = 2 DESTIN = PRINT + PLOT + PUNCH IF (TYPE .EQ. 0) TYPE = 1 BUF(5) = TYPE IF (VECTOR .EQ. 0) GO TO 1030 BUF(6) = VECTOR BUF(7) = PAPLOT CALL WRITE (FILE,BUF(1),7,NOEOR) C C ALL WORDS PROCESSED. IF SLASH HAS NOT BEEN HIT, START READING C SUBCASE NUMBERS. C NSUBS = 0 N = N2 + 1 IF (SLASH) GO TO 490 C C FORM LIST OF SUBCASES, MAXIMUM OF 200 FOR THIS COMMAND CARD. C 370 IF (BUFF(N) .NE. CONT) GO TO 380 ASSIGN 370 TO ICONT GO TO 700 C 380 SUBCAS(1) = 0 IF (BUFF(N) .NE. INTE) GO TO 830 C C SUBCASES ARE NOT APPLICABLE IN AUTO AND PSDF C IF (TYPE .NE. 1) GO TO 850 C 390 NSUBS = NSUBS + 1 IF (NSUBS .GT. 200) GO TO 890 IF (BUFF(N+1) .LE. 0) GO TO 910 SUBCAS(NSUBS) = BUFF(N+1) 400 N = N + 2 410 IF (BUFF(N) .EQ. A377) GO TO 1080 IF (BUFF(N) .NE. CONT) GO TO 420 ASSIGN 410 TO ICONT GO TO 700 C 420 IF (BUFF(N) .NE. INTE) GO TO 430 IF (SUBCAS(NSUBS)-BUFF(N+1)) 390,400,910 430 IF (BUFF(N) .NE. CONT) GO TO 440 ASSIGN 430 TO ICONT GO TO 700 C 440 IF (BUFF(N) .LT. 0) GO TO 830 IWRD = BUFF(N+2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IF (IWRD .NE. SLAS) GO TO 450 SLASH = .TRUE. N = N + 3 GO TO 490 C 450 IF (IWRD .NE. THRU) GO TO 830 N = N + 3 460 IF (BUFF(N) .NE. CONT) GO TO 470 ASSIGN 460 TO ICONT GO TO 700 C 470 IF (BUFF(N ) .NE. INTE ) GO TO 830 IF (BUFF(N+1) .LT. SUBCAS(NSUBS)) GO TO 910 IF (BUFF(N+1) .EQ. SUBCAS(NSUBS)) GO TO 400 480 NSUBS = NSUBS + 1 IF (NSUBS .GT. 200) GO TO 890 SUBCAS(NSUBS) = SUBCAS(NSUBS-1) + 1 IF (SUBCAS(NSUBS) .LT. BUFF(N+1)) GO TO 480 GO TO 400 C C SLASH HIT. BEGIN PROCESSING FRAME DATA. FIRST WRITE SUBCASE C NUMBERS. C 490 CALL WRITE (FILE,NSUBS,1,NOEOR) IF (NSUBS .NE. 0) CALL WRITE (FILE,SUBCAS(1),NSUBS,NOEOR) IF (NSUBS .EQ. 0) SUBCAS(1) = 0 IF (NSUBS .EQ. 0) NSUBS = 1 500 SLASH = .FALSE. CALL WRITE (FILE,FRAM,1,NOEOR) PAIRS = .FALSE. NCURVE = 0 520 IF (BUFF(N) .NE. CONT) GO TO 530 ASSIGN 520 TO ICONT GO TO 700 C 530 IF (BUFF(N) .NE. INTE) GO TO 830 BUF(1) = BUFF(N+1) BUF(2) = 0 BUF(3) = 0 IDCOM = 0 NCURVE = NCURVE + 1 IF (BUF(1) .LE. 0) GO TO 930 C C GET COMPONENT. POSITIVE INTEGER. C MAY BE T1,T2,T3,R1,R2,R3 ETC. IF THE VECTOR IS NOT STRESS OR FORCE C N = N + 2 540 IF (BUFF(N) .NE. CONT) GO TO 550 ASSIGN 540 TO ICONT GO TO 700 C 550 IWRD = BUFF(N+2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IF (BUFF(N).GT.0 .AND. IWRD.EQ.OPAREN) GO TO 560 GO TO 830 C 560 OFBCD = .FALSE. IF (BUFF(N) .GT. 1) GO TO 590 C C FALL HERE AND A POSITIVE INTEGER COMPONENT IS EXPECTED. C N = N + 3 570 IF (BUFF(N) .NE. CONT) GO TO 580 ASSIGN 570 TO ICONT GO TO 700 C 580 IF (BUFF(N ) .NE. INTE) GO TO 830 IF (BUFF(N+1) .LE. 0) GO TO 950 OFBCD =.FALSE. COMPON = BUFF(N+1) N = N + 2 GO TO 620 C C FALL HERE AND A BCD COMPONENT IS EXPECTED. T1,T2,T3,R1,R2,R3 C 590 N1 = N + 3 600 N = N + 2*BUFF(N) + 1 610 BCD = BUFF(N1) IF (BIT64) CALL MVBITS (BLANK,0,32,BCD,0) IF (BCD .EQ. BLANK) GO TO 615 IF (VECTOR .EQ.6 .OR. VECTOR.EQ.7) GO TO 970 615 OFBCD = .TRUE. COMPON = 3 IF (BCD.EQ.T1 .OR. BCD.EQ.T1RM) GO TO 620 IF (BCD .EQ. G) GO TO 620 COMPON = 4 IF (BCD.EQ.T2 .OR. BCD.EQ.T2RM) GO TO 620 IF (BCD .EQ. F) GO TO 620 COMPON = 5 IF (BCD.EQ.T3 .OR. BCD.EQ.T3RM) GO TO 620 COMPON = 6 IF (BCD.EQ.R1 .OR. BCD.EQ.R1RM) GO TO 620 COMPON = 7 IF (BCD.EQ.R2 .OR. BCD.EQ.R2RM) GO TO 620 COMPON = 8 IF (BCD.EQ.R3 .OR. BCD.EQ.R3RM) GO TO 620 COMPON = 9 IF (BCD .EQ. T1IP) GO TO 620 COMPON = 10 IF (BCD .EQ. T2IP) GO TO 620 COMPON = 11 IF (BCD .EQ. T3IP) GO TO 620 COMPON = 12 IF (BCD .EQ. R1IP) GO TO 620 COMPON = 13 IF (BCD .EQ. R2IP) GO TO 620 COMPON = 14 IF (BCD .EQ. R3IP) GO TO 620 COMPON = 1000 IF (BCD .EQ. BLANK) GO TO 620 GO TO 990 C 620 IDCOM = IDCOM + 1 BUF(IDCOM+1) = COMPON C C CHECK RANGE OF COMPONENT C IF (COMPON .EQ. 1000) GO TO 631 IF ((TYPE.EQ.2 .OR. TYPE.EQ.3) .AND. (COMPON.LT.3 .OR.COMPON.GT.8) 1 .AND. (VECTOR.NE.6 .AND. VECTOR.NE.7)) GO TO 1130 IF ((COMPON.LT.3 .OR. COMPON.GT.14) .AND. 1 (VECTOR.NE.6 .AND. VECTOR.NE.7)) GO TO 1150 IF (NOGO .NE. 0) GO TO 631 C C ADD THIS COMPONENT-ID TO XY-MASTER SET IN OPEN CORE. C DO 630 I = 1,NSUBS IF (IAT+6 .GT. ICORE) GO TO 1090 Z(IAT+1) = SUBCAS(I) Z(IAT+2) = VECTOR Z(IAT+3) = BUF(1) Z(IAT+4) = COMPON Z(IAT+5) = TYPE Z(IAT+6) = DESTIN 630 IAT = IAT + 6 C C PROCEED TO NEXT COMPONENT OR ID OF THIS FRAME C 631 IF (NCURVE.EQ.1 .AND. IDCOM.EQ.2) PAIRS = .TRUE. IF (PAIRS .AND. (TYPE.EQ.2 .OR. TYPE.EQ.3)) GO TO 1110 IF (.NOT.PAIRS .AND. IDCOM.EQ.2) GO TO 1050 IF (IDCOM .GT. 2) GO TO 1050 IF (.NOT.OFBCD ) GO TO 640 IF (N1 .GE. N-2) GO TO 640 N1 = N1 + 2 IWRD = BUFF(N1+1) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IF (IWRD .NE. SLAS) GO TO 610 SLASH = .TRUE. GO TO 670 C C IS NEXT FIELD AN INTEGER FOLLOWED BY AN OPAREN C 640 IF (BUFF(N) .NE. CONT) GO TO 650 ASSIGN 640 TO ICONT GO TO 700 C 650 IF (BUFF(N ) .NE. INTE) GO TO 660 IF (BUFF(N+2) .EQ. A377) GO TO 580 IWRD = BUFF(N+4) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IF (IWRD .EQ. OPAREN) GO TO 670 GO TO 580 660 IF (BUFF(N) .EQ. A377) GO TO 670 IWRD = BUFF(N+2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IF (BUFF(N).LE.0 .OR. IWRD.EQ.SLAS) GO TO 670 N1 = N + 1 GO TO 600 670 IF (PAIRS .AND. IDCOM.EQ.1) GO TO 1050 CALL WRITE (FILE,BUF(1),3,NOEOR) IF (.NOT.SLASH .AND. BUFF(N).EQ.INTE) GO TO 520 BUF(1) = -1 BUF(2) = -1 BUF(3) = -1 CALL WRITE (FILE,BUF(1),3,NOEOR) IF (BUFF(N) .EQ. A377) RETURN C 680 IF (BUFF(N) .NE. CONT) GO TO 690 ASSIGN 680 TO ICONT GO TO 700 690 IF (SLASH) GO TO 500 IWRD = BUFF(N+2) IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0) IF (IWRD .NE. SLAS) GO TO 830 N = N + 2*BUFF(N) + 1 GO TO 500 C C RETURN FOR A CONTINUATION CARD C 700 CONTIN = .TRUE. RETURN C C NO MORE CARDS AVAILABLE. RAP IT UP IF NO ERROR. WRITE XY-SET C RECORD C 710 IF (CONTIN) GO TO 1010 CALL WRITE (FILE,Z(1),0,EOR) IF (IAT .EQ. 0) GO TO 720 J = 7 DO 715 I = 1,6 J = J - 1 CALL SORT (0,0,6,-J,Z(1),IAT) 715 CONTINUE 720 CALL WRITE (FILE,Z(1),IAT,EOR) C C SET CARD = 0 IF NO PLOTS C SET CARD = 1 IF PLOTS C CARD = PLOTS C C SET RESTART BITS FOR VDR AND SDR C IF (IRESRT .LT. 0) BITS(BITWRD) = ORF(BITS(BITWRD),VDRBIT+SDRBIT) C C CHECK FOR COMMAND OP CARD C IF (.NOT.XYCM) GO TO 1170 C C CHECK PLOT TAPE BITS C IF (PLOTS .EQ. 0) RETURN C C CHECK FOR TAPE SETUPS C IF (BINPLT.NE.0 .AND. .NOT.TAPBIT(PLT1) .AND. .NOT.TAPBIT(PLT2)) 1 CALL IFP1D (-618) RETURN C C FATAL ERROR CONDITIONS C 730 J = 675 WRITE (L,740) UFM,J 740 FORMAT (A23,I4,', ABOVE CARD DOES NOT BEGIN WITH A NON-NUMERIC ', 1 'WORD.') GO TO 2000 750 J = 676 WRITE (L,760) UFM,J,BUFF(N+1),BUFF(N+2) 760 FORMAT (A23,I4,1H,,2A4,' IS NOT RECOGNIZED AS AN XYPLOT COMMAND ', 1 'CARD OR PARAMETER.') GO TO 2000 770 J = 677 WRITE (L,780) UFM,J 780 FORMAT (A23,I4,', ILLEGAL VALUE SPECIFIED.') GO TO 2000 790 J = 678 WRITE (L,800) UFM,J,BUFF(I),BUFF(I+1) 800 FORMAT (A23,I4,1H,,2A4,' CONTRADICTS PREVIOUS DEFINITION.') GO TO 2000 810 J = 679 WRITE (L,820) UFM,J,BUFF(I+1) 820 FORMAT (A23,I4,1H,,A4,' DELIMITER ILLEGALLY USED.') GO TO 2000 830 IF (BUFF(N) .EQ. REAL) GO TO 850 IF (BUFF(N) .EQ. INTE) GO TO 870 J = 680 WRITE (L,840) UFM,J,BUFF(N+1),BUFF(N+2) 840 FORMAT (A23,I4,1H,,2A4,' IS ILLEGAL IN STATEMENT.') GO TO 2000 850 J = 681 WRITE (L,860) UFM,J,BUFF(N+1) 860 FORMAT (A23,I4,1H,,E16.8,' IS ILLEGAL IN STATEMENT.') GO TO 2000 870 J = 682 WRITE (L,880) UFM,J,BUFF(N+1) 880 FORMAT (A23,I4,1H,,I10,' IS ILLEGAL IN STATEMENT.') GO TO 2000 890 J = 683 WRITE (L,900) UFM,J 900 FORMAT (A23,I4,', TOO MANY SUBCASES. MAXIMUM = 200 ON ANY ONE XY', 1 '-OUTPUT COMMAND CARD.') GO TO 2000 910 J = 684 WRITE (L,920) UFM,J 920 FORMAT (A23,I4,', SUBCASE-ID IS LESS THAN 1 OR IS NOT IN ', 1 'ASCENDING ORDER.') GO TO 2000 930 J = 685 WRITE (L,940) UFM,J,BUF(1) 940 FORMAT (A23,I4,1H,,I12,' = POINT OR ELEMENT ID IS ILLEGAL (LESS ', 1 'THAN 1).') GO TO 2000 950 J = 686 WRITE (L,960) UFM,J 960 FORMAT (A23,I4,', NEGATIVE OR ZERO COMPONENTS ARE ILLEGAL.') GO TO 2000 970 J = 687 WRITE (L,980) UFM,J 980 FORMAT (A23,I4,', ALPHA-COMPONENTS ARE NOT PERMITTED FOR STRESS ', 1 'OR FORCE XY-OUTPUT REQUESTS.') GO TO 2000 990 J = 688 WRITE (L,1000) UFM,J,BCD 1000 FORMAT (A23,I4,1H,,A4,' COMPONENT NAME NOT RECOGNIZED.') GO TO 2000 1010 J = 689 WRITE (L,1020) UFM,J 1020 FORMAT (A23,I4,', LAST CARD ENDED WITH A DELIMITER BUT NO ', 1 'CONTINUATION CARD WAS PRESENT.') GO TO 2000 1030 J = 690 WRITE (L,1040) UFM,J 1040 FORMAT (A23,I4,', TYPE OF CURVE WAS NOT SPECIFIED. (E.G. ', 1 'DISPLACEMENT, STRESS, ETC.).') GO TO 2000 1050 J = 691 WRITE (L,1060) UFM,J 1060 FORMAT (A23,I4,', MORE THAN 2 OR UNEQUAL NUMBER OF COMPONENTS ', 1 'FOR ID-S WITHIN A SINGLE FRAME.') GO TO 2000 1070 FORMAT (A23,I4,', XY-OUTPUT COMMAND IS INCOMPLETE.') 1080 J = 692 WRITE (L,1070) UFM,J GO TO 2000 1090 J = 693 WRITE (L,1100) UFM,J 1100 FORMAT (A23,I4,', INSUFFICIENT CORE FOR SET TABLE.') ICRQ = (NSUBS-I+1) * 6 WRITE (L,1101) ICRQ 1101 FORMAT (5X,8HAT LEAST,I8,19H MORE WORDS NEEDED.) GO TO 2000 1110 J = 694 WRITE (L,1120) UFM,J 1120 FORMAT (A23,I4,', AUTO OR PSDF REQUESTS MAY NOT USE SPLIT FRAME', 1 ', THUS ONLY ONE COMPONENT PER ID IS PERMITTED.') GO TO 2000 1130 J = 695 WRITE (L,1140) UFM,J,COMPON 1140 FORMAT (A23,I4,', COMPONENT VALUE =',I8,', IS ILLEGAL FOR AUTO ', 1 'OR PSDF VECTOR REQUESTS.') GO TO 2000 1150 J = 696 WRITE (L,1160) UFM,J,COMPON 1160 FORMAT (A23,I4,', COMPONENT VALUE =',I8,', IS ILLEGAL FOR VECTOR', 1 ' TYPE SPECIFIED.') GO TO 2000 1170 J = 697 WRITE (L,1180) UFM,J 1180 FORMAT (A23,I4,', XYPLOT, XYPRINT, XYPUNCH, XYPEAK, OR XYPAPLOT', 1 /5X,' COMMAND CARD NOT FOUND IN XY PLOTTER OUT PUT PACKAGE.') GO TO 2000 2000 NOGO = 1 LINE = LINE + 2 IF (LINE .GE. NLPP) CALL PAGE RETURN END ================================================ FILE: mis/ifp3.f ================================================ SUBROUTINE IFP3 C C DATA PROCESSING AND GENERATION OF THE AXIS-SYMETRIC-CONICAL SHELL C C CARDS TYPE REC.ID-BIT CARDS-FILE, CARDS-FILE C === ======= =========== ========== =========== ========== C 1 AXIC -- AX.SY.SHELL 515- 5 C 2 CCONEAX -- AX.SY.SHELL 8515-85 CCONE-GEOM2, C 3 FORCEAX -- AX.SY.SHELL 2115-21 FORCE-GEOM3, C 4 FORCE -- STANDARD 4201-42 FORCE-GEOM3, C 5 GRAV -- STANDARD 4401-44 GRAV-GEOM3, C 6 LOAD -- STANDARD 4551-61 LOAD-GEOM3, C 7 MOMAX -- AX.SY.SHELL 3815-38 MOMNT-GEOM3, C 8 MOMENT -- STANDARD 4801-48 MOMNT-GEOM3, C 9 MPCADD -- STANDARD 4891-60 MPCADD-GEOM4, C 10 MPCAX -- AX.SY.SHELL 4015-40 MPC-GEOM4, C 11 OMITAX -- AX.SY.SHELL 4315-43 OMIT-GEOM4, C 12 POINTAX -- AX.SY.SHELL 4915-49 MPC-GEOM4, GRID-GEOM1 C 13+ RFORCE -- STANDARD 5509-55 RFORCE-GEOM3, C 14 RINGAX -- AX.SY.SHELL 5615-56 SPC-GEOM4, GRID-GEOM1 C 15 SECTAX -- AX.SY.SHELL 6315-63 MPC-GEOM4, GRID-GEOM1 C 16 SEQGP -- STANDARD 5301-53 SEQGP-GEOM1, C 17 SPCADD -- STANDARD 5491-59 SPCADD-GEOM4, C 18 SPCAX -- AX.SY.SHELL 6215-62 SPC-GEOM4, C 19 SUPAX -- AX.SY.SHELL 6415-64 SUPORT-GEOM4, C 20 TEMPAX -- AX.SY.SHELL 6815-68 TEMP-GEOM3, C 21 TEMPD -- STANDARD 5641-65 TEMPD-GEOM3, C 22 CTRIAAX -- AX.TR.CR 7012-70 CTRIA-GEOM2 C 23 CTRAPAX -- AX.TRA.CR 7042-74 CTRAP-GEOM2 C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT ,RSHIFT ,ANDF ,ORF , 1 COMPLF LOGICAL SECD ,NOGO ,RECOFF ,PIEZ REAL NPHI ,NPHI1 ,NISQ ,NI , 1 A1 ,A2 ,A3 ,A4 , 2 ANGLE ,RADDEG ,PI ,DIFPHI , 3 RZ ,T1 ,T2 ,COEF , 4 CONSTS ,SUM ,TWOPI DIMENSION GEOM(4) ,Z(8) ,NUM(11) ,INUM(11) , 1 MSG1(2) ,MSG2(2) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /SYSTEM/ IBUFSZ ,NOUT ,NOFLAG ,DUMDUM(8) , 1 NLINES ,DUM1(26) ,NBPC ,NBPW , 2 DUM37(37) ,IPIEZ COMMON /TWO / TWO(32) COMMON /CONDAS/ CONSTS(5) COMMON /IFP3LV/ RECID(3) ,RECID1(3) ,RECIDX(3) , 1 IEND ,REC(3) ,REC1(3) ,TRAIL(7) , 2 IT ,AXTRL(7) ,OPENFL(6) ,N , 3 A1 ,CSID ,NI ,NISQ , 4 A2 ,IBUFF1 ,IBUFF2 ,IBUFF3 , 5 A3 ,BUFF ,NOGO ,OP , 6 A4 ,IHEADR ,IBITR ,IFILE , 7 NOREG ,LAST ,IERRTN ,ICONT , 8 NOAXIC ,RINGID ,OUTBUF ,VEOR , 9 ISTART ,IRETRN ,FLAG ,IAMT , O SUM ,IBIT ,SETID ,SORC , 1 IBEGIN ,MPCON ,NWORDS ,NNN , 2 ANGLE ,K3OR6 ,NPHI1 ,ZPT , 3 NMOVE ,CSSET ,NOPONT ,NON , 4 IPHI ,RECOFF ,NPHI ,N3OR5 , 5 ION ,NPLUS1 ,NOSECT ,COEF , 6 IPT ,COMPON ,ICORE ,ISCRAT , 7 ICORE1 ,NCARDS ,I1 ,IAT , 8 I2 ,T1 ,T2 ,NFILE , 9 NADD ,NCARD COMMON /IFP3CM/ FILE(6) ,INAME(12) ,CDTYPE(50),AXIC1(3) , 1 CCONEX(3) ,FORCEX(3) ,FORCE(3) ,GRAV(3) , 2 LOAD(3) ,MOMAX(3) ,MOMENT(3) ,MPCADD(3) , 3 MPCAX(3) ,OMITAX(3) ,POINTX(3) ,PRESAX(3) , 4 RINGAX(3) ,SECTAX(3) ,SEQGP(3) ,SPCAX(3) , 5 SUPAX(3) ,TEMPAX(3) ,TEMPD(3) ,PLOAD(3) , 6 MPC(3) ,SPC(3) ,GRID(3) ,SUPORT(3) , 7 NEG111(3) ,T65535(3) ,TEMP(3) ,OMIT(3) , 8 SPCADD(3) ,ONE ,ZERO ,IHEADB(96), 9 CTRIAA(3) ,CTRAPA(3) ,ICONSO ,RFORCE(3) COMMON /OUTPUT/ DUMMY(96) ,IHEAD(96) COMMON /ZZZZZZ/ RZ(1) EQUIVALENCE (CONSTS(1),PI ) ,(CONSTS(2),TWOPI ) , 1 (CONSTS(4),RADDEG ) ,(Z(1) ,RZ(1) ) , 2 (GEOM(1) ,FILE(1)) ,(SCRTCH ,FILE(5)) , 3 (AXIC ,FILE(6)) ,(NUM(11) ,B ) , 4 (NOEOR ,INPRWD ,ZERO) , 5 (EOR ,CLORWD ,OUTRWD ,ONE ) DATA INUM / 1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9,1H / DATA IFIAT / 4HFIAT/, IFIST / 4HFIST/,I5,I6 / 5,6 / DATA MSG1 / 4HIFP3 , 4HBEGN /, MSG2 / 4HIFP3, 4HEND / C CALL CONMSG (MSG1,2,0) C C RIGHT-JUSTIFY INUM AND CALL IT NUM C DO 1 I = 1,11 1 NUM(I) = RSHIFT(INUM(I),NBPW-NBPC) C C INITIAL CHECK TO MAKE SURE TRAILER BITS ARE ALL OFF FOR GEOM1, C GEOM2, GEOM3, GEOM4. C DO 10 I = 1,96 10 IHEAD(I) = IHEADB(I) C IF (NOFLAG) 30,20,30 20 NOGO = .FALSE. GO TO 40 30 NOGO = .TRUE. C 40 OPENFL(1) = 0 OPENFL(2) = 0 OPENFL(3) = 0 OPENFL(4) = 0 OPENFL(5) = 0 OPENFL(6) = 0 DO 110 I = 1,4 TRAIL(1) = GEOM(I) CALL RDTRL (TRAIL(1)) IF (TRAIL(1)) 50,50,70 50 CALL PAGE2 (3) IMSG = 1061 WRITE (NOUT,55) SFM,IMSG 55 FORMAT (A25,I5) WRITE (NOUT,60) GEOM(I),INAME(2*I-1),INAME(2*I),IFIAT 60 FORMAT (5X,11HFILE NUMBER,I4,3H ( ,2A4,12H) IS NOT IN ,A4,1H.) NOGO = .TRUE. GO TO 110 C 70 DO 100 J = 2,7 IF (TRAIL(J)) 80,100,80 80 CALL PAGE2 (3) IMSG = 1062 WRITE (NOUT,55) SFM,IMSG WRITE (NOUT,90) GEOM(I),INAME(2*I-1),INAME(2*I) 90 FORMAT (5X,'FILE NUMBER',I4,3H ( ,2A4,') HAS TRAILER BIT ON. ', 1 'FILE SHOULD BE CLEAN AT ENTRY TO IFP3.') NOGO = .TRUE. GO TO 110 100 CONTINUE 110 CONTINUE C C PROCEED TO SETUP CORE AND OPEN AXIC FILE C ICORE1 WILL ALWAYS EQUAL THE GROSS OPEN CORE TO IFP3 AT START C ICORE1 = KORSZ(Z) IBUFF1 = ICORE1 - IBUFSZ - 2 IBUFF2 = IBUFF1 - IBUFSZ IBUFF3 = IBUFF2 - IBUFSZ ICORE = IBUFF3 - 1 ICRQ = 100 - ICORE IF (ICORE .LT. 100) GO TO 1310 C C OPEN AXIC FILE C CALL PRELOC (*1330,Z(IBUFF1),AXIC) OPENFL(6) = 1 AXTRL(1) = AXIC CALL RDTRL (AXTRL(1)) C C READ AXIC CARD C CALL LOCATE (*130,Z(IBUFF1),AXIC1(1),FLAG) CALL READ (*1600,*130,AXIC,Z(1),2,EOR,FLAG) N = Z(1) CSID = Z(2) NNN = N NCARD= 1 ASSIGN 140 TO IERRTN GO TO 1420 C C MISSING REQUIRED AXIC CARD C 130 ASSIGN 140 TO IERRTN NNN = 0 NCARD = 1 GO TO 1510 140 N = NNN NPLUS1 = N + 1 C C C GEOM2 PROCESSING C ================= C C OPEN GEOM2 C IFILE= GEOM(2) I = 2 OP = OUTRWD BUFF = IBUFF2 ASSIGN 150 TO IRETRN GO TO 1350 C C CCONEAX CARDS C 150 REC(1) = CCONEX(1) REC(2) = CCONEX(2) REC(3) = CCONEX(3) NCARD = 2 C C IF THERE IS NO CCONEAX CARD, THEN GO TO 1750 AND LOOK FOR C CTRAPAX OR CTRIAAX CARDS C ICONB = 0 ICONSO = 0 CALL LOCATE (*1750,Z(IBUFF1),REC(1),FLAG) C C INPUT IS IN 4-WORD CARDS C OUTPUT IS N+1 4-WORD CARDS FOR EACH CARD INPUT C C RECORD HEADER FOR CCONES C ASSIGN 160 TO IHEADR GO TO 1470 C 160 CALL READ (*1600,*220,AXIC,Z(1),4,NOEOR,IAMT) C C CHECK RING ID-S FOR SIZE C NNN = Z(3) ASSIGN 170 TO IERRTN GO TO 1440 170 NNN = Z(4) ASSIGN 180 TO IERRTN GO TO 1440 C C CHECK CCONEAX ID FOR 1-9999 ALLOWABLE RANGE C 180 IF (Z(1).GT.0 .AND. Z(1).LT.10000) GO TO 200 CALL PAGE2 (3) IMSG = 361 WRITE (NOUT,185) UFM,IMSG 185 FORMAT (A23,I4) WRITE (NOUT,190) Z(1) 190 FORMAT (5X,'CCONEAX ID =',I10,'. OUT OF 1 TO 9999 PERMISSIBLE ', 1 'RANGE') NOGO = .TRUE. C 200 Z(1) = Z(1)*1000 DO 210 I = 1,NPLUS1 Z(1) = Z(1) + 1 Z(3) = Z(3) + 1000000 Z(4) = Z(4) + 1000000 IF (NOGO) GO TO 210 CALL WRITE (GEOM(2),Z(1),4,NOEOR) 210 CONTINUE GO TO 160 C C OUT OF CCONEAX CARDS C 220 IF (IAMT) 230,240,230 C C GO TO 356 FOR RECORD ERROR C 230 ASSIGN 260 TO IERRTN GO TO 1490 C C WRITE EOR AND PUT BITS IN TRAILER C 240 ASSIGN 250 TO IRETRN ICONSO = 1 GO TO 1270 250 ICONB = 1 GO TO 1750 C C CLOSE GEOM2 C 260 I = 2 ASSIGN 270 TO IRETRN GO TO 1380 C C GEOM3 PROCESSING C ================ C C OPEN GEOM3 C 270 IFILE= GEOM(3) I = 3 OP = OUTRWD BUFF = IBUFF2 ASSIGN 280 TO IRETRN GO TO 1350 C C FORCE, FORCEAX, MOMNT, AND MOMNTAX CARDS C 280 RECID(1) = FORCE(1) RECID(2) = FORCE(2) RECID(3) = FORCE(3) RECIDX(1)= FORCEX(1) RECIDX(2)= FORCEX(2) RECIDX(3)= FORCEX(3) NCARD = 3 ASSIGN 620 TO ICONT C C SET NOREG = 0 OR 1, DEPENDING ON PRESSENCE OF RECID C SET NOAXIC= 0 OR 1, DEPENDING ON PRESSENCE OF RECIDX C 290 IBIT = RECIDX(2) ASSIGN 300 TO IBITR GO TO 1460 300 NOAXIC = NON IBIT = RECID(2) ASSIGN 310 TO IBITR GO TO 1460 310 NOREG = NON C REC(1) = RECID(1) REC(2) = RECID(2) REC(3) = RECID(3) C IF (NOAXIC) 340,320,340 320 IF (NOREG ) 330,610,330 C C TRANSFER FORCE OR MOMENT RECORD DIRECTLY. C THERE ARE NO FORCEAX OR MOMAX CARDS RESPECTIVELY. C 330 ASSIGN 610 TO IRETRN GO TO 1230 C C AT 410 READ IN ALL FORCEAX OR MOMNTAX CARDS AND PUT OUT ON GEOM(3) C IF NOREG=0,AND ON SCRTCH IF NOREG NON-ZERO.FIRST WRITE 3-WORD- C REC ID ON GEOM3. C 340 ASSIGN 350 TO IHEADR GO TO 1470 C C OPEN SCRATCH IF NEEDED C 350 IF (NOREG) 360,370,360 360 I = 5 OP = OUTRWD BUFF = IBUFF3 ASSIGN 370 TO IRETRN GO TO 1350 370 CALL LOCATE (*1530,Z(IBUFF1),RECIDX(1),FLAG) 380 CALL READ (*1600,*440,AXIC,Z(1),8,NOEOR,IAMT) C C CHECK RING ID C ASSIGN 390 TO IERRTN NNN = Z(2) GO TO 1440 C C CHECK HARMONIC NUMBER AND FOR A SEQUENCE OF HARMONICS C 390 IF (Z(4) .EQ. 0) GO TO 396 II = 1 NH1 = 0 NH2 = 0 SECD = .TRUE. WORD = 4 DO 391 IJ = 1,2 DO 392 IX = 1,4 CHR = RSHIFT(LSHIFT(Z(WORD),NBPC*IABS(IX-4)),NBPW-NBPC) IF (CHR .EQ. B) GO TO 392 DO 393 I = 1,10 K = I-1 IF (NUM(I) .EQ. CHR) GO TO 394 393 CONTINUE SECD = .FALSE. II = 1 GO TO 392 394 IF (SECD) GO TO 395 NH1 = NH1 + II*K II = II*10 GO TO 392 395 NH2 = NH2 + II*K II = II*10 392 CONTINUE 391 WORD = WORD -1 IF (NH1 .LE. NH2) GO TO 398 WORD = NH1 NH1 = NH2 NH2 = WORD 398 NNN = NH1 ASSIGN 397 TO IERRTN GO TO 1420 396 NH1 = Z(3) NH2 = Z(3) 397 NNN = NH2 ASSIGN 400 TO IERRTN GO TO 1420 400 Z(4) = Z(5) Z(5) = Z(6) Z(6) = Z(7) Z(7) = Z(8) NH1 = NH1 + 1 NH2 = NH2 + 1 SUM = Z(2) MUS = Z(2) DO 430 I = NH1,NH2 Z(2) = MUS + I*1000000 Z(3) = 0 C C OUTPUT TO GEOM(3) IF NOREG = 0 C OUTPUT TO SCRTCH IF NOREG = NON-ZERO C IF (NOGO ) GO TO 380 IF (NOREG) 420,410,420 410 NFILE = GEOM(3) GO TO 430 420 NFILE = SCRTCH 430 CALL WRITE (NFILE,Z(1),7,NOEOR) GO TO 380 C C OUT OF CARDS C 440 IF (IAMT) 450,460,450 C C CHECK FOR RECORD INCONSISTANCY ERROR. C 450 REC(1) = RECIDX(1) REC(2) = RECIDX(2) REC(3) = RECIDX(3) ASSIGN 460 TO IERRTN GO TO 1490 C 460 IF (NOREG) 470,590,470 C C CLOSE THE SCRTCH FILE AND THEN MERGE SCRTCH WITH AXIC C ON TO GEOM3 C 470 I = 5 ASSIGN 480 TO IRETRN GO TO 1380 C C OPEN SCRTCH FILE FOR INPUT AND LOCATE FORCE OR MOMENT CARDS ON C AXIC FILE. C 480 ASSIGN 490 TO IRETRN OP = INPRWD GO TO 1350 490 CALL LOCATE (*1560,Z(IBUFF1),RECID(1),FLAG) IF (NOGO) GO TO 610 C CALL READ (*1600,*600,AXIC,Z(1),7,NOEOR,IAMT) CALL READ (*1610,*1610,SCRTCH,Z(8),7,NOEOR,IAMT) C 500 IF (Z(1) .LE. Z(8)) GO TO 510 C NFILE = SCRTCH OUTBUF = 8 GO TO 520 C 510 NFILE = AXIC OUTBUF = 1 C 520 IF (NOGO) GO TO 610 CALL WRITE (GEOM(3),Z(OUTBUF),7,NOEOR) CALL READ (*1620,*540,NFILE,Z(OUTBUF),7,NOEOR,IAMT) GO TO 500 C C OK ALL WORDS PROCESSED FOR FILE-NFILE C 540 IF (NFILE .EQ. AXIC) GO TO 550 NFILE = AXIC OUTBUF = 1 GO TO 560 550 NFILE = SCRTCH OUTBUF = 8 560 IF (NOGO) GO TO 610 CALL WRITE (GEOM(3),Z(OUTBUF),7,NOEOR) CALL READ (*1620,*580,NFILE,Z(OUTBUF),7,NOEOR,IAMT) GO TO 560 C C CLOSE SCRTCH, WRITE EOR, AND PUT BITS IN TRAILER. C 580 I = 5 ASSIGN 590 TO IRETRN GO TO 1380 590 ASSIGN 610 TO IRETRN GO TO 1270 C C RECORD LENGTH ERROR C 600 REC(1) = RECID(1) REC(2) = RECID(2) REC(3) = RECID(3) ASSIGN 610 TO IERRTN GO TO 1490 C 610 GO TO ICONT, (620,650) C C GRAV CARD C 620 REC(1) = GRAV(1) REC(2) = GRAV(2) REC(3) = GRAV(3) ASSIGN 630 TO IRETRN GO TO 1230 C C LOAD CARD C 630 REC(1) = LOAD(1) REC(2) = LOAD(2) REC(3) = LOAD(3) ASSIGN 640 TO IRETRN GO TO 1230 C C MOMENT AND MOMAX CARDS C 640 RECID(1) = MOMENT(1) RECID(2) = MOMENT(2) RECID(3) = MOMENT(3) RECIDX(1) = MOMAX(1) RECIDX(2) = MOMAX(2) RECIDX(3) = MOMAX(3) NCARD = 7 ASSIGN 650 TO ICONT GO TO 290 C C PRESAX CARD C 650 CALL LOCATE (*722,Z(IBUFF1),PRESAX(1),FLAG) C C RECORD HEADER FOR PRESAX CARDS IS FORMED HERE C REC(1) = PRESAX(1) REC(2) = PRESAX(2) REC(3) = PRESAX(3) NCARD = 13 ASSIGN 660 TO IHEADR GO TO 1470 C 660 CALL READ (*1600,*700,AXIC,Z(1),6,NOEOR,IAMT) C C CREATE N+1 CARDS OF SAME LENGTH AS INPUT CARD. C C CHECK RING ID-S IN FIELDS 3 AND 4 FOR PROPER SIZE. C C CHECK FOR PIEZOELECTRIC C PIEZ = .FALSE. IF (IPIEZ.EQ.1 .AND. Z(3).LT.0) PIEZ = .TRUE. IF (.NOT. PIEZ) GO TO 661 Z(3) = -Z(3) 661 CONTINUE NNN = Z(3) ASSIGN 670 TO IERRTN GO TO 1440 670 NNN = Z(4) ASSIGN 680 TO IERRTN GO TO 1440 C 680 DIFPHI = ABS(RZ(I6) - RZ(I5)) DO 690 I = 1,NPLUS1 Z(7) = I - 1 Z(3) = Z(3) + 1000000 IF (PIEZ) Z(3) = -Z(3) Z(4) = Z(4) + 1000000 IF (NOGO) GO TO 690 IF (DIFPHI .EQ. 0.0) GO TO 690 IF (I.GT.1 .AND. ABS(DIFPHI-360.).LT.1.E-6) GO TO 690 CALL WRITE (GEOM(3),Z(1),7,NOEOR) IF (PIEZ) Z(3) = -Z(3) 690 CONTINUE GO TO 660 C C OUT OF PRESAX CARDS C 700 IF (IAMT) 710,720,710 C C CHECK FOR RECORD INCONSISTANCY ERROR. C 710 ASSIGN 722 TO IERRTN REC(1) = PRESAX(1) REC(2) = PRESAX(2) REC(3) = PRESAX(3) GO TO 1490 C C WRITE EOR AND PUT BITS IN TRAILER C 720 ASSIGN 722 TO IRETRN GO TO 1270 C C RFORCE CARD C 722 CALL LOCATE (*730,Z(IBUFF1),RFORCE(1),FLAG) REC(1) = RFORCE(1) REC(2) = RFORCE(2) REC(3) = RFORCE(3) NCARD = 24 ASSIGN 723 TO IHEADR GO TO 1470 C C PROCESS RFORCE DATA C 723 CALL READ (*1600,*725,AXIC,Z(1),7,NOEOR,IAMT) IF (Z(2).EQ.0 .AND. Z(3).EQ.0 .AND. Z(5).EQ.0 .AND. Z(6).EQ.0) 1 GO TO 7240 WRITE (NOUT,724) UFM,Z(1) 724 FORMAT (A23,' 336, RFORCE DATA IN SET NO.',I8, 1 ' CONTAINS ILLEGAL DIRECTION FOR AXISYMMETRIC PROBLEM') NOGO = .TRUE. GO TO 723 7240 Z(2) = 0 Z(3) = 0 Z(5) = 0 Z(6) = Z(7) Z(7) = 0 CALL WRITE (GEOM(3),Z(1),7,NOEOR) GO TO 723 C C END OF RFORCE CARDS C 725 IF (IAMT) 726,727,726 C C RECORD INCONSISTENCY ERROR C 726 ASSIGN 730 TO IERRTN REC(1) = RFORCE(1) REC(2) = RFORCE(2) REC(3) = RFORCE(3) GO TO 1490 C C WRITE EOR AND BITS IN TRAILER C 727 ASSIGN 730 TO IRETRN GO TO 1270 C C TEMPD CARD C 730 REC(1) = TEMPD(1) REC(2) = TEMPD(2) REC(3) = TEMPD(3) ASSIGN 740 TO IRETRN IF (NOGO) GO TO 740 CALL LOCATE (*740,Z(IBUFF1),REC(1),FLAG) CALL WRITE (IFILE,REC(1),3,NOEOR) VEOR = 0 735 CALL READ (*1600,*738,AXIC,Z(1),ICORE,NOEOR,IAMT) IAMT = ICORE 736 DO 737 I = 1,IAMT,2 737 Z(I) = Z(I) + 100000000 CALL WRITE (IFILE,Z(1),IAMT,0) DO 739 I = 1,IAMT,2 739 Z(I) = Z(I) + 100000000 CALL WRITE (IFILE,Z(1),IAMT,VEOR) IF (VEOR) 1290,735,1290 738 VEOR = 1 GO TO 736 C C TEMPAX CARD C 740 CALL LOCATE (*1210,Z(IBUFF1),TEMPAX(1),FLAG) C C RECORD HEADER ON GEOM3 FOR TEMP CARDS C REC(1) = TEMP(1) REC(2) = TEMP(2) REC(3) = TEMP(3) NCARD = 20 ASSIGN 750 TO IHEADR GO TO 1470 C C AT 604(?) SET UP SCRATCH FILE. C 750 I = 5 BUFF = IBUFF3 OP = OUTRWD ASSIGN 760 TO IRETRN GO TO 1350 C C PICK UP FIRST TEMPAX CARD = 4 WORDS. C 760 LAST = 0 CALL READ (*1600,*1200,AXIC,Z(1),4,NOEOR,IAMT) 770 K = 0 SETID = Z(1) RINGID= Z(2) C C CHECK RING ID FOR PROPER RANGE OF VALUE C NNN = RINGID ASSIGN 780 TO IERRTN GO TO 1440 C 780 IAT = 3 790 K = K + 1 IAT = IAT + 2 ICRQ= IAT + 3 - ICORE IF (ICORE .LT. IAT+3) GO TO 1310 C C ALL TEMPAX CARDS HAVING SAME SET AND RING ID MUST BE ABLE TO C HAVE 2 WORDS EACH FIT IN CORE. C Z(IAT ) = Z(3) Z(IAT+1) = Z(4) C CALL READ (*1600,*1130,AXIC,Z(1),4,NOEOR,IAMT) C C DOES THIS CARD HAVE SAME SET AND RING ID AS LAST IN CURRENT SERIES C IF (Z(1) .NE. SETID ) GO TO 800 IF (Z(2) .NE. RINGID) GO TO 800 GO TO 790 C C WE HAVE A K X 2 ARRAY OF PHI-S AND T-S. C C CONVERT ALL PHIS SUCH THAT (0.LE. PHI .LT.TWOPI) C 800 IEND = IAT + 1 IBEGIN = 5 C DO 840 I = IBEGIN,IEND,2 ANGLE = RZ(I) IF (ANGLE) 810,840,830 810 IF (ANGLE) 820,840,840 820 ANGLE = ANGLE + 360.0 GO TO 810 C 830 IF (ANGLE .LT. 360.0) GO TO 840 ANGLE = ANGLE - 360.0 GO TO 830 C 840 RZ(I) = ANGLE*RADDEG C C SIMPLE SORT FOR THE K X 2 MATRIX. C SORT IS PERFORMED ON COLUMN 1 ONLY C IF (K .EQ. 1) GO TO 950 ISTART = IBEGIN + 2 DO 900 I = ISTART,IEND,2 IAT = I - 2 IF (RZ(I) .GE. RZ(IAT)) GO TO 900 C C ROW NOT HIGH ENOUGH. MOVE IT UP. C 850 IAT = IAT - 2 IF (IAT-IBEGIN) 870,870,860 860 IF (RZ(I) .LT. RZ(IAT)) GO TO 850 IAT = IAT + 2 GO TO 880 870 IAT = IBEGIN C C THE ELEMENTS (I) AND (I+1) WILL BE MOVED UP TO POSITIONS (IAT) AND C (IAT+1) AND ELEMENTS (IAT) THRU (I-1) WILL BE MOVED DOWN 1 ROW. C C FIRST SAVE THE ROW BEING MOVED UP C 880 RZ(IEND+1) = RZ(I) RZ(IEND+2) = RZ(I+1) NMOVE = I - IAT IAT = I + 2 DO 890 J = 1,NMOVE IAT = IAT - 1 890 RZ(IAT) = RZ(IAT-2) C C REPLACE SAVE ROW IN NEW SLOT C RZ(IAT-2) = RZ(IEND+1) RZ(IAT-1) = RZ(IEND+2) C 900 CONTINUE C C CHECK FOR ANY DUPLICATE ANGLES AND REMOVE THEM... C IBEGIN = IBEGIN + 2 910 DO 920 I = IBEGIN,IEND,2 IF (Z(I) .EQ. Z(I-2)) GO TO 930 920 CONTINUE GO TO 950 C C DUPLICATE, SHRINK LIST UP OVER IT. C 930 IEND = IEND - 2 K=K-1 DO 940 J = I,IEND,2 Z(J ) = Z(J+2) 940 Z(J+1) = Z(J+3) IBEGIN = I IF (IBEGIN - IEND) 910,950,950 C C SET UP K + 1 CARD C 950 RZ(IEND+1) = RZ(I5) + TWOPI RZ(IEND+2) = RZ(I6) C C THERE ARE K CARDS NOW WITH SETID, AND RINGID, NOT INCLUDING THE C K + 1ST CARD C C N+1 TEMP CARDS FOR S SET (PUT ON GEOM3) C N+1 TEMP CARDS FOR C SET (PUT ON SCRTCH FOR NOW) C C NOTE FMMS-52 (10/04/67) PAGE -9- FOR FOLLOWING... C CSSET = 1 SETID = SETID + 100000000 C C CSSET = 0 FOR C-SET AND NON-ZERO FOR S-SET. C IBEGIN = K + K + 7 ICRQ = IBEGIN + 2 - ICORE IF ((IBEGIN+2) .GT. ICORE) GO TO 1310 C 960 NADD = 0 Z(IBEGIN) = SETID DO 1100 I = 1,NPLUS1 NADD = NADD + 1000000 C C NI IS REAL C NI = I - 1 NISQ = (I-1)**2 Z(IBEGIN+1) = RINGID + NADD IPHI = 3 IT = 4 SUM = 0.0E0 IF (NI ) 1010,970,1010 970 IF (CSSET) 1000,980,1000 980 DO 990 IK = 1,K IPHI = IPHI + 2 IT = IT + 2 990 SUM = SUM + (RZ(IT)+RZ(IT+2))*(RZ(IPHI+2)-RZ(IPHI)) 1000 RZ(IBEGIN+2) = 0.25*SUM/PI GO TO 1060 C C NON-ZERO NI C 1010 IF (K .EQ. 1) GO TO 1050 DO 1040 IK = 1,K IPHI = IPHI + 2 IT = IT + 2 NPHI = NI*RZ(IPHI ) NPHI1= NI*RZ(IPHI+2) C IF (CSSET) 1030,1020,1030 C C C-SET C 1020 A1 = SIN(NPHI1) A2 = -SIN(NPHI ) A3 = COS(NPHI1) A4 = -COS(NPHI ) GO TO 1040 C C S-SET C 1030 A1 = -COS(NPHI1) A2 = COS(NPHI ) A3 = SIN(NPHI1) A4 = -SIN(NPHI ) C C 1040 SUM = SUM + (((RZ(IT)*RZ(IPHI+2) - RZ(IT+2)*RZ(IPHI))* 1 (A1 + A2)/NI) + ((RZ(IT+2) - RZ(IT))* 2 (A3 + A4 + NPHI1*A1 + NPHI*A2)/NISQ))/ 3 (RZ(IPHI+2) - RZ(IPHI)) C 1050 RZ(IBEGIN+2) = SUM/PI C 1060 IF (NOGO ) GO TO 1105 IF (CSSET) 1070,1080,1070 1070 NFILE = GEOM(3) GO TO 1090 1080 NFILE = SCRTCH 1090 CALL WRITE (NFILE,Z(IBEGIN),3,NOEOR) 1100 CONTINUE 1105 IF (CSSET) 1110,1120,1110 1110 CSSET = 0 SETID = SETID + 100000000 GO TO 960 C C THIS SERIES OF TEMPAX CARDS COMPLETE GO FOR MORE IF LAST = 0 C 1120 IF (LAST) 1140,770,1140 1130 LAST = 1 GO TO 800 C C ALL TEMPAX CARDS COMPLETE. CLOSE SCRATCH, OPEN SCRATCH C AND COPY SCRATCH TO GEOM3. C 1140 IF (NOGO) GO TO 1210 CALL WRITE (SCRTCH,Z(1),0,EOR) CALL CLOSE (SCRTCH,CLORWD) CALL OPEN (*1640,SCRTCH,Z(IBUFF3),INPRWD) C VEOR = 0 1150 CALL READ (*1610,*1170,SCRTCH,Z(1),ICORE,NOEOR,IAMT) IAMT = ICORE 1160 CALL WRITE (GEOM(3),Z(1),IAMT,VEOR) IF (VEOR) 1180,1150,1180 1170 VEOR = 1 GO TO 1160 C C ALL TEMPAX CARDS PROCESSED. C 1180 CALL CLOSE (SCRTCH,CLORWD) C C PUT BITS IN TRAILER FOR TEMP CARDS WRITTEN C REC(1) = TEMP(1) REC(2) = TEMP(2) REC(3) = TEMP(3) ASSIGN 1210 TO IRETRN GO TO 1290 C C RECORD LENGTH ERROR C 1200 REC(1) = TEMPAX(1) REC(2) = TEMPAX(2) REC(3) = TEMPAX(3) ASSIGN 1210 TO IERRTN GO TO 1490 C C CLOSE GEOM3 C 1210 I = 3 ASSIGN 1220 TO IRETRN GO TO 1380 C C CTRIAAX CARD C 1700 REC(1) = CTRIAA (1) REC(2) = CTRIAA (2) REC(3) = CTRIAA (3) NCARD = 43 CALL LOCATE (*1800,Z(IBUFF1),REC(1),FLAG) C C RECORD HEADER FOR CTRIAAX C ASSIGN 1710 TO IHEADR ICONB = 2 ICONSO = 1 GO TO 1470 1710 CALL READ (*1600,*1770,AXIC,Z(1),6,NOEOR,IAMT) Z(1) = Z(1)*1000 DO 1720 I = 1,NPLUS1 Z(1) = Z(1) + 1 Z(3) = Z(3) + 1000000 Z(4) = Z(4) + 1000000 Z(5) = Z(5) + 1000000 IF (NOGO) GO TO 1720 CALL WRITE (GEOM(2),Z(1),6,NOEOR) 1720 CONTINUE GO TO 1710 C C OUT OF CTRIAAX CARD C 1770 IF (IAMT) 1730,1740,1730 1730 ASSIGN 260 TO IERRTN GO TO 1490 C C PUT BITS IN TRILER C 1740 ASSIGN 260 TO IRETRN GO TO 1270 1800 IF (ICONSO .EQ. 1) GO TO 1740 ASSIGN 260 TO IERRTN C C MISSING REQUIRED CCONEAX OR CTRIAAX OR CTRAPAX CARD C CALL PAGE2 (3) IMSG = 362 WRITE (NOUT,185) UFM,IMSG WRITE (NOUT,1910) CDTYPE(3),CDTYPE(4),CDTYPE(43),CDTYPE(44), 1 CDTYPE(45),CDTYPE(46) 1910 FORMAT (5X,'MINIMUM PROBLEM REQUIRES ',2A4,2H, ,2A4,4H OR ,2A4, 1 ' CARD. NONE FOUND') NOGO = .TRUE. GO TO IERRTN, (260,240) C C CTRAPAX CARD C ============ C 1750 REC(1) = CTRAPA (1) REC(2) = CTRAPA (2) REC(3) = CTRAPA (3) CALL LOCATE (*1700,Z(IBUFF1),REC(1),FLAG) ICONB = 1 C C RECORD HEADER FOR CTRAPAX C ASSIGN 1751 TO IHEADR ICONSO = 1 GO TO 1470 1751 CALL READ (*1600,*1753,AXIC,Z(1),7,NOEOR,IAMT) Z(1) = Z(1)*1000 DO 1752 I = 1,NPLUS1 Z(1) = Z(1) + 1 Z(3) = Z(3) + 1000000 Z(4) = Z(4) + 1000000 Z(5) = Z(5) + 1000000 Z(6) = Z(6) + 1000000 IF (NOGO) GO TO 1752 CALL WRITE (GEOM(2),Z(1),7,NOEOR) 1752 CONTINUE GO TO 1751 C C OUT OF CTRAPAX CARD C 1753 IF (IAMT) 1754,1755,1754 1754 ASSIGN 260 TO IERRTN GO TO 1490 C C PUT BITS IN TRILER C 1755 ASSIGN 260 TO IRETRN IF (NOGO) GO TO 1300 CALL WRITE (IFILE,Z(1),IAMT,EOR) I1 = (REC(2)-1)/16 + 2 I2 = REC(2) - (I1-2)*16 + 16 TRAIL (I1) = ORF(TRAIL(I1),TWO(I2)) GO TO 1700 C C GEOM4 AND GEOM1 PROCESSING IS PERFORMED IN IFP3B ROUTINE C ===== C 1220 CALL IFP3B GO TO 1570 C C UTILITY SECTION FOR IFP3 C AXIS-SYMETRIC-CONICAL-SHELL DATA GENERATOR. C ========================================== C C COMMON CODE FOR TRANSFER OF RECORD FROM AXIC FILE TO SOME C OTHER FILE C 1230 CALL LOCATE (*1300,Z(IBUFF1),REC(1),FLAG) IF (NOGO) GO TO 1300 CALL WRITE (IFILE,REC(1),3,NOEOR) 1260 CALL READ (*1600,*1270,AXIC,Z(1),ICORE,NOEOR,IAMT) IAMT = ICORE CALL WRITE (IFILE,Z(1),IAMT,NOEOR) GO TO 1260 1270 IF (NOGO) GO TO 1300 IF (IFILE .EQ. GEOM(3)) GO TO 1280 IF (IFILE.EQ.GEOM(2) .AND. ICONB.EQ.1) GO TO 1300 1280 CALL WRITE (IFILE,Z(1),IAMT,EOR) C C PUT BITS IN TRAILER C 1290 I1 = (REC(2)-1)/16 + 2 I2 = REC(2) - (I1-2)*16 + 16 TRAIL(I1) = ORF(TRAIL(I1),TWO(I2)) C 1300 GO TO IRETRN, (250,260,610,630,640,722,730,740,1210) C C OUT OF CORE C 1310 CALL PAGE2 (4) IMSG = 363 WRITE (NOUT, 185) IMSG WRITE (NOUT,1320) ICRQ 1320 FORMAT (5X,'INSUFFICIENT CORE TO PROCESS AXIC DATA IN SUBROUTINE', 1 'IFP3', /5X,'ADDITIONAL CORE NEEDED =',I8,' WORDS.') NOGO = .TRUE. C C GO TO FATAL ERROR RETURN C GO TO 1570 C C AXIC FILE NOT IN FIST C 1330 CALL PAGE2 (3) IMSG = 1061 WRITE (NOUT,55) SFM,IMSG WRITE (NOUT,60) AXIC,INAME(11),INAME(12),IFIST NOGO = .TRUE. C C GO TO FATAL ERROR RETURN C GO TO 1570 C C OPEN A FILE AND GET THE TRAILER C 1350 IF (NOGO) GO TO 1360 CALL OPEN (*1370,FILE(I),Z(BUFF),OP) OPENFL(I) = 1 IF (I .GT. 4) GO TO 1360 C C WRITE THE HEADER RECORD C CALL WRITE (FILE(I),INAME(2*I-1),2,EOR) TRAIL(1) = FILE(I) CALL RDTRL (TRAIL(1)) C 1360 GO TO IRETRN, (150,280,370,760,490) C 1370 CALL PAGE2 (3) IMSG = 1061 WRITE (NOUT,55) SFM,IMSG WRITE (NOUT,60) FILE(I),INAME(2*I-1),INAME(2*I),IFIST NOGO = .TRUE. GO TO 1570 C C CLOSE A FILE C 1380 IF (OPENFL(I)) 1390,1410,1390 1390 IF (I.GT. 4) GO TO 1400 CALL WRITE (FILE(I),T65535(1),3,EOR) 1400 CALL CLOSE (FILE(I),CLORWD) OPENFL(I) = 0 IF (I .GT. 4) GO TO 1410 CALL WRTTRL (TRAIL(1)) 1410 GO TO IRETRN, (270,590,1220,480) C C HARMONIC NUMBER ... ON CARD TYPE ...... IS OUT OF RANGE 0 TO 998 C 1420 IF (NNN.LT.999 .AND. NNN.GE.0 .AND. NNN.LE.N) 1 GO TO IERRTN, (140,400,397) CALL PAGE2 (3) IMSG = 364 WRITE (NOUT,185 ) UFM,IMSG WRITE (NOUT,1430) NNN,CDTYPE(2*NCARD-1),CDTYPE(2*NCARD),N 1430 FORMAT (5X,'HARMONIC NUMBER ',I6,4H ON ,2A4,' CARD OUT OF 0 TO ', 1 I4,' ALLOWABLE RANGE.') NOGO = .TRUE. GO TO IERRTN, (140,400,397) C C RING ID OUT OF PERMISSABLE RANGE OF 1 TO 999999 C 1440 IF (NNN.GT.0 .AND. NNN.LE.999999) 1 GO TO IERRTN, (170,180,390,670,680,780) CALL PAGE2 (3) IMSG = 365 WRITE (NOUT,185 ) UFM,IMSG WRITE (NOUT,1450) NNN,CDTYPE(2*NCARD-1),CDTYPE(2*NCARD) 1450 FORMAT (5X,'RING ID',I10,4H ON ,2A4,' CARD OUT OF 1 TO 999999 ', 1 'ALLOWABLE RANGE') NOGO = .TRUE. GO TO IERRTN, (170,180,390,670,680,780) C C CHECK BIT-IBIT IN TRAILER AND RETURN NON = ZERO OR NON-ZERO... C 1460 I1 = (IBIT-1)/16 + 2 I2 = IBIT - (I1-2)*16 + 16 NON = ANDF(AXTRL(I1),TWO(I2)) GO TO IBITR, (300,310) C C WRITE 3 WORD RECORD HEADER C 1470 IF (NOGO) GO TO 1480 CALL WRITE (IFILE,REC(1),3,NOEOR) 1480 GO TO IHEADR, (160,350,660,723,750,1710,1751) C C END-OF-RECORD ON AXIC FILE C 1490 CALL PAGE2 (3) IMSG = 1063 WRITE (NOUT,55) SFM,IMSG WRITE (NOUT,1500) CDTYPE(2*NCARD-1),CDTYPE(2*NCARD) 1500 FORMAT (5X,'EOR ON AXIC FILE WHILE READING ',2A4,'CARD RECORDS.') NOGO = .TRUE. GO TO IERRTN, (260,460,610,722,730,1210) C C MISSING REQUIRED CARD C 1510 CALL PAGE2 (3) IMSG = 362 WRITE (NOUT,185 ) UFM,IMSG WRITE (NOUT,1520) CDTYPE(2*NCARD-1),CDTYPE(2*NCARD) 1520 FORMAT (5X,'MINIMUM PROBLEM REQUIRES ',2A4,' CARD. NONE FOUND.') NOGO = .TRUE. GO TO IERRTN, (260,140) C C AXIC TRAILER BIT ON BUT CAN NOT LOCATE RECORD C 1530 CALL PAGE2 (3) IMSG = 1064 WRITE (NOUT,55) SFM,IMSG WRITE (NOUT,1540) CDTYPE(2*NCARD-1),CDTYPE(2*NCARD) 1540 FORMAT (5X,2A4,' CARD COULD NOT BE LOCATED ON AXIC FILE AS ', 1 'EXPECTED') 1550 NOGO = .TRUE. GO TO 610 1560 CALL PAGE2 (2) WRITE (NOUT,1540) RECID(1),RECID(2),RECID(3) GO TO 1550 C C CLOSE ANY OPEN FILES AND RETURN C 1570 DO 1590 I = 1,6 IF (OPENFL(I)) 1580,1590,1580 1580 CALL CLOSE (FILE(I),CLORWD) OPENFL(I) = 0 1590 CONTINUE IF (NOGO) NOFLAG = 32767 CALL CONMSG (MSG2,2,0) RETURN C C EOF ENCOUNTERED READING AXIC FILE. C 1600 NFILE = AXIC IN = 11 IN1 = 12 GO TO 1620 1610 NFILE = SCRTCH IN = 9 IN1 = 10 1620 CALL PAGE2 (3) IMSG = 3002 WRITE (NOUT,55) SFM,IMSG WRITE (NOUT,1630) INAME(IN),INAME(IN1),NFILE 1630 FORMAT (5X,'EOF ENCOUNTERED WHILE READING DATA SET ',2A4,' (FILE', 1 I4,') IN SUBROUTINE IFP3') NOGO = .TRUE. GO TO 1570 C 1640 I = 5 GO TO 1370 END ================================================ FILE: mis/ifp3b.f ================================================ SUBROUTINE IFP3B C C CARDS TYPE REC.ID-BIT CARDS-FILE, CARDS-FILE C === ======= =========== ========== ========== ========== C 1 AXIC ----- AX.SY.SHELL 515- 5 C 2 CCONEAX ----- AX.SY.SHELL 8515-85 CCONE-GEOM2, C 3 FORCEAX ----- AX.SY.SHELL 2115-21 FORCE-GEOM3, C 4 FORCE ----- STANDARD 4201-42 FORCE-GEOM3, C 5 GRAV ----- STANDARD 4401-44 GRAV-GEOM3, C 6 LOAD ----- STANDARD 4551-61 LOAD-GEOM3, C 7 MOMAX ----- AX.SY.SHELL 3815-38 MOMNT-GEOM3, C 8 MOMENT ----- STANDARD 4801-48 MOMNT-GEOM3, C 9 MPCADD ----- STANDARD 4891-60 MPCADD-GEOM4, C 10 MPCAX ----- AX.SY.SHELL 4015-40 MPC-GEOM4, C 11 OMITAX ----- AX.SY.SHELL 4315-43 OMIT-GEOM4, C 12 POINTAX ----- AX.SY.SHELL 4915-49 MPC-GEOM4, GRID-GEOM1 C 13 PRESAX ----- AX.SY.SHELL 5215-52 PLOAD-GEOM3, C 13+ RFORCE ----- STANDARD 5509-55 RFORCE-GEOM3, C 14 RINGAX ----- AX.SY.SHELL 5615-56 SPC-GEOM4, GRID-GEOM1 C 15 SECTAX ----- AX.SY.SHELL 6315-63 MPC-GEOM4, GRID-GEOM1 C 16 SEQGP ----- STANDARD 5301-53 SEQGP-GEOM1, C 17 SPCADD ----- STANDARD 5491-59 SPCADD-GEOM4, C 18 SPCAX ----- AX.SY.SHELL 6215-62 SPC-GEOM4, C 19 SUPAX ----- AX.SY.SHELL 6415-64 SUPORT-GEOM4, C 20 TEMPAX ----- AX.SY.SHELL 6815-68 TEMP-GEOM3, C 21 TEMPD ----- STANDARD 5641-65 TEMPD-GEOM3, C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT ,ANDF ,ORF LOGICAL NOGO ,RECOFF ,IFPDCO REAL NPHI ,NPHI1 ,NISQ ,NI , 1 RADDEG ,RZ ,T1 ,T2 , 2 T3 ,COEF ,A1 ,A2 , 3 A3 ,A4 ,ANGLE ,GC , 4 SUM ,CONSTS DIMENSION GEOM(4) ,Z(13) DIMENSION ISYSTM(175) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /BLANK / BOTTOM COMMON /SYSTEM/ IBUFSZ ,NOUT ,NOFLAG ,DUMDUM(8) , 1 NLINES ,DDD(14) ,MN ,DUM50(50) , 2 IPIEZ COMMON /MACHIN/ MACH ,IHALF COMMON /TWO / TWO(32) COMMON /CONDAS/ CONSTS(5) COMMON /IFP3LV/ RECID(3) ,RECID1(3) ,RECIDX(3) , 1 IEND ,REC(3) ,REC1(3) ,TRAIL(7) , 2 IT ,AXTRL(7) ,OPENFL(6) ,N , 3 A1 ,CSID ,NI ,NISQ , 4 A2 ,IBUFF1 ,IBUFF2 ,IBUFF3 , 5 A3 ,BUFF ,NOGO ,OP , 6 A4 ,IHEADR ,IBITR ,IFILE , 7 NOREG ,LAST ,IERRTN ,ICONT , 8 NOAXIC ,RINGID ,OUTBUF ,VEOR , 9 ISTART ,IRETRN ,FLAG ,IAMT , T SUM ,IBIT ,SETID ,SORC , 1 IBEGIN ,MPCON ,NWORDS ,NNN , 2 ANGLE ,K3OR6 ,NPHI1 ,ZPT , 3 NMOVE ,CSSET ,NOPONT ,NON , 4 IPHI ,RECOFF ,NPHI ,N3OR5 , 5 ION ,NPLUS1 ,NOSECT ,COEF , 6 IPT ,COMPON ,ICORE ,ISCRAT , 7 ICORE1 ,NCARDS ,I1 ,IAT , 8 I2 ,T1 ,T2 ,NFILE , 9 NADD ,NCARD COMMON /IFP3CM/ FILE(6) ,INAME(12) ,CDTYPE(50),AXIC1(3) , 1 CCONEX(3) ,FORCEX(3) ,FORCE(3) ,GRAV(3) , 2 LOAD(3) ,MOMAX(3) ,MOMENT(3) ,MPCADD(3) , 3 MPCAX(3) ,OMITAX(3) ,POINTX(3) ,PRESAX(3) , 4 RINGAX(3) ,SECTAX(3) ,SEQGP(3) ,SPCAX(3) , 5 SUPAX(3) ,TEMPAX(3) ,TEMPD(3) ,PLOAD(3) , 6 MPC(3) ,SPC(3) ,GRID(3) ,SUPORT(3) , 7 NEG111(3) ,T65535(3) ,TEMP(3) ,OMIT(3) , 8 SPCADD(3) ,ONE ,ZERO ,IHEADB(96), 9 CTRIAA(3) ,CTRAPA(3) ,ICONSO COMMON /OUTPUT/ DUMMY(96) ,IHEAD(96) COMMON /IFPDTA/ DUM(521) ,GC(7) ,LL(6) COMMON /ZZZZZZ/ RZ(1) EQUIVALENCE (CONSTS(4),RADDEG ) , (Z(1) ,RZ(1) ) , 1 (GEOM(1) ,FILE(1)) , (SCRTCH ,FILE(5)) , 2 (AXIC ,FILE(6)) , 3 (NOEOR ,INPRWD , ZERO ) , 4 (EOR ,CLORWD , OUTRWD ,ONE ) EQUIVALENCE (IBUFSZ ,ISYSTM(1)) DATA IFIST / 4HFIST/ ,I3,I4,I5 / 3,4,5 / C C C GEOM4 PROCESSING C ================ C C OPEN GEOM4 C IFILE= GEOM(4) I = 4 OP = OUTRWD BUFF = IBUFF2 ASSIGN 20 TO IRETRN GO TO 1340 C C SPCADD OR MPCADD CARDS C ====================== C 20 ASSIGN 30 TO ICONT REC(1) = MPCADD(1) REC(2) = MPCADD(2) REC(3) = MPCADD(3) REC1(1) = MPCAX(1) REC1(2) = MPCAX(2) REC1(3) = MPCAX(3) 21 ASSIGN 28 TO IHEADR GO TO 1470 C C MANDATORY SPCADD AND MPCADD CARDS. C 28 Z( 1) = 100000101 Z( 2) = 101 Z( 3) = -1 Z( 4) = 200000102 Z( 5) = 102 Z( 6) = -1 Z( 7) = 100000000 Z( 8) = 101 Z( 9) = -1 Z(10) = 200000000 Z(11) = 102 Z(12) = -1 IF (NOGO) GO TO 22 CALL WRITE (GEOM(4),Z(1),12,NOEOR) 22 CALL LOCATE (*23,Z(IBUFF1),REC(1),FLAG) C C READ AN OPEN ENDED SPCADD OR MPCADD CARD INTO CORE. C I = 1 27 CALL READ (*1540,*23,AXIC,Z(I),1,NOEOR,IAMT) IF (Z(I)) 25,24,24 24 I = I + 1 IF ((I+1) .GT. ICORE) GO TO 1580 GO TO 27 C C COMPLETE CARD IS AT HAND C 25 Z(I) = 101 I = I + 1 Z(I) = -1 Z(1) = Z(1) + 100000000 IF (NOGO) GO TO ICONT, (30,610) 26 CALL WRITE (GEOM(4),Z(1),I,NOEOR) IF (Z(I-1) .EQ. 102) GO TO 23 Z(I-1) = 102 Z(1 ) = Z(1) + 100000000 GO TO 26 C C ALL SPCADD OR MPCADD CARDS COMPLETE. C NOW CREATE SPCADD OR MPCADD FROM SPCAX OR MPCAX C CARDS RESPECTIVELY. C 23 IREC = REC(1) REC(1) = REC1(1) REC(2) = REC1(2) REC(3) = REC1(3) CALL LOCATE (*35,Z(IBUFF1),REC(1),FLAG) C C OK SPCAX OR MPCAX RECORD EXISTS. C ILAST = -1 38 Z(4) = -1 CALL READ (*1540,*35,AXIC,Z(2),1,NOEOR,IAMT) C C MPCAX CARDS ARE OPEN ENDED C SPCAX CARDS ARE 5 WORDS LONG. C IF (Z(2) .EQ. ILAST) GO TO 47 ILAST = Z(2) C C CREATE TWO SPCADD OR MPCADD CARDS. C Z(3) = 101 Z(1) = Z(2) + 100000000 IF (NOGO) GO TO ICONT, (30,610) 33 CALL WRITE (GEOM(4),Z(1),4,NOEOR) IF (Z(3) .EQ. 102) GO TO 47 Z(3) = 102 Z(1) = Z(1) + 100000000 GO TO 33 C C READ UP TO NEXT CARD C 47 CALL READ (*1540,*35,AXIC,Z(1),4,NOEOR,IAMT) IF (REC(1).EQ.SPCAX(1) .OR. Z(1).EQ.(-1)) GO TO 38 GO TO 47 C C ALL CARDS COMPLETE. C WRITE EOR AND PUT BITS IN TRAILER. C 35 IAMT = 0 ASSIGN 37 TO IRETRN IF (IREC .EQ. SPCADD(1)) GO TO 39 REC(1) = MPCADD(1) REC(2) = MPCADD(2) REC(3) = MPCADD(3) GO TO 1300 39 REC(1) = SPCADD(1) REC(2) = SPCADD(2) REC(3) = SPCADD(3) GO TO 1300 37 GO TO ICONT, (30,610) C C MPCAX CARD C ========== C 30 MPCON = 0 REC(1) = MPC(1) REC(2) = MPC(2) REC(3) = MPC(3) RECOFF = .FALSE. LAST = -1 NCARD = 10 NWORDS = 0 CALL LOCATE (*130,Z(IBUFF1),MPCAX(1),FLAG) C C WRITE RECORD HEADER C RECOFF = .TRUE. ASSIGN 40 TO IHEADR GO TO 1470 C 40 MPCON = 1 LAST = 0 C C READ SET ID C 50 CALL READ (*1540,*120,AXIC,SETID,1,NOEOR,IAMT) IF (SETID .GT. 100) GO TO 130 NWORDS = NWORDS + 1 IF (NOGO) GO TO 60 CALL WRITE (GEOM(4),SETID,1,NOEOR) C C READ 4-WORDS SETS UNTIL -1,-1,-1,-1 ENCOUNTERED... C 60 CALL READ (*1540,*100,AXIC,Z(1),4,NOEOR,IAMT) NWORDS = NWORDS + 4 IF (Z(4) .EQ. -1) GO TO 90 C C CHECK HARMONIC NUMBER C NNN = Z(2) ASSIGN 70 TO IERRTN GO TO 1420 C C CHECK RING ID C 70 NNN = Z(1) ASSIGN 80 TO IERRTN GO TO 1440 C 80 Z(2) = Z(1) + (Z(2)+1)*1000000 IF (NOGO) GO TO 60 CALL WRITE (GEOM(4),Z(2),3,NOEOR) GO TO 60 C C END OF EQUATION C 90 IF (NOGO) GO TO 50 CALL WRITE (GEOM(4),NEG111(1),3,NOEOR) GO TO 50 100 CALL PAGE2 (3) IMSG = 1063 WRITE (NOUT,105) SFM,IMSG 105 FORMAT (A25,I5) WRITE (NOUT,110) SFM,IMSG 110 FORMAT (5X,50HEOR ON AXIC FILE WHILE READING MPCAX CARD RECORDS.) NOGO = .TRUE. GO TO 1530 120 LAST = 1 C C FIRST NWORDS HAVE BEEN PROCESSED OF MPCAX CARDS UNLESS C LAST = 1, IN WHICH CASE ALL MPCAX CARDS ARE COMPLETE. C GO NOW TO THE S-SET MPC CARD-GENERATION FOR POINTAX CARDS C IF LAST = -1, THERE ARE NO MPCAX CARDS. C C C S-SET MPC-S FROM POINTAX CARDS C ============================== C 130 REC(1) = POINTX(1) REC(2) = POINTX(2) REC(3) = POINTX(3) NCARD = 12 N3OR5 = 3 K3OR6 = 6 SORC = 101 ASSIGN 380 TO ICONT C TURN NOPONT OR NOSECT ON IF POINTAX OR SECTAX CARDS EXIST RESPECT. C IBIT = POINTX(2) ASSIGN 140 TO IBITR GO TO 1460 140 NOPONT = NON IBIT = SECTAX(2) ASSIGN 150 TO IBITR GO TO 1460 150 NOSECT = NON C IF (NOPONT) 160,370,160 C 160 CALL LOCATE (*370,Z(IBUFF1),REC(1),FLAG) MPCON = 1 IF (RECOFF) GO TO 170 C C WRITE RECORD HEADER C RECOFF = .TRUE. REC(1) = MPC(1) REC(2) = MPC(2) REC(3) = MPC(3) ASSIGN 170 TO IHEADR GO TO 1470 C 170 CALL READ (*1540,*370,AXIC,Z(1),N3OR5,NOEOR,IAMT) C C CHECK RING ID FOR S-SET PASS ONLY FOR POINTAX AND SECTAX CARDS. C NO CHECK WILL BE MADE IN THE GRID CARD GENERATION AREA. C C IF (SORC .EQ. 102) GO TO 785 NNN = Z(2) ASSIGN 180 TO IERRTN GO TO 1440 C 180 IAT = N3OR5 + 1 DO 360 I = 1,K3OR6 Z(IAT) = SORC Z(IAT+1) = Z(1) Z(IAT+2) = I RZ(IAT+3)= -1.0 IF (NOGO) GO TO 190 CALL WRITE (GEOM(4),Z(IAT),4,NOEOR) 190 DO 350 J = 1,NPLUS1 C C COMPUTE COEFFICIENT. C NI = J - 1 IF (N3OR5 .EQ. 5) GO TO 240 C C POINTAX CARD COEFFICIENTS C T1 = NI*RZ(I3)*RADDEG IF (ANDF(I,1)) 210,210,200 C C ODD I C 200 IF (SORC - 101) 220,220,230 C C EVEN I C 210 IF (SORC - 101) 230,230,220 C 220 COEF = SIN(T1) GO TO 340 C 230 COEF = COS(T1) IF (SORC .EQ. 101) COEF = -COEF IF (NI.EQ.0.0 .AND. SORC.EQ.101) COEF = 1.0 GO TO 340 C C SECTAX CARD COEFFICIENTS C 240 T1 = NI*RZ(I4)*RADDEG T2 = NI*RZ(I5)*RADDEG IF (I .GE. 4) GO TO 245 IF (ANDF(I,1)) 250,250,280 245 IF (ANDF(I,1)) 280,280,250 C C EVEN I C 250 IF (SORC .EQ. 101) GO TO 290 260 IF (NI) 270,320,270 270 T3 = T2 T2 = COS(T1) T1 = COS(T3) GO TO 310 C C ODD I C 280 IF (SORC .EQ. 101) GO TO 260 290 IF (NI) 300,330,300 300 T1 = SIN(T1) T2 = SIN(T2) 310 COEF = RZ(I3)*(T2-T1)/NI IF (SORC.EQ.101 .AND. (I.EQ.2 .OR. I.EQ.5)) COEF = -COEF GO TO 340 320 COEF = 0.0 GO TO 340 330 COEF = RZ(I3)*(RZ(I5)-RZ(I4))*RADDEG C 340 Z(IAT ) = Z(2) + J*1000000 Z(IAT+1) = I RZ(IAT+2)= COEF IF (NOGO) GO TO 350 CALL WRITE (GEOM(4),Z(IAT),3,NOEOR) 350 CONTINUE IF (NOGO) GO TO 360 CALL WRITE (GEOM(4),NEG111(1),3,NOEOR) 360 CONTINUE GO TO 170 C 370 GO TO ICONT, (380,390,400,410) C C S-SET MPC-S FROM SECTAX CARDS C ============================= C C DO SECTAX CARDS FOR S-SET. C 380 REC(1) = SECTAX(1) REC(2) = SECTAX(2) REC(3) = SECTAX(3) N3OR5 = 5 K3OR6 = 6 SORC = 101 NCARD = 15 ASSIGN 390 TO ICONT IF (NOSECT) 160,390,160 C C C-SET MPC-S FROM POINTAX CARDS C ============================== C C 390 REC(1) = POINTX(1) REC(2) = POINTX(2) REC(3) = POINTX(3) N3OR5 = 3 K3OR6 = 6 SORC = 102 ASSIGN 400 TO ICONT IF (NOPONT) 160,400,160 C C C-SET MPC-S FROM SECTAX CARDS C ============================= C 400 REC(1) = SECTAX(1) REC(2) = SECTAX(2) REC(3) = SECTAX(3) N3OR5 = 5 K3OR6 = 6 SORC = 102 ASSIGN 410 TO ICONT IF (NOSECT) 160,410,160 C C BALANCE OF MPCAX CARDS C 410 IF (LAST) 510,420,510 420 CALL LOCATE (*510,Z(IBUFF1),MPCAX(1),FLAG) NCARD = 10 IF (NWORDS .EQ. 0) GO TO 440 DO 430 I = 1,NWORDS CALL READ (*1540,*470,AXIC,Z(1),1,NOEOR,IAMT) 430 CONTINUE C C NOW POSITIONED AT POINT LEFT OFF AT ABOVE. C 440 CALL READ (*1540,*510,AXIC,SETID,1,NOEOR,IAMT) IF (SETID .LT. 101) GO TO 470 IF (SETID .GT. 102) GO TO 448 NOGO = .TRUE. CALL PAGE2(3) IMSG = 366 WRITE (NOUT,445) UFM,IMSG 445 FORMAT (A23,I5) WRITE (NOUT,442) 442 FORMAT (5X,'SPCAX OR MPCAX CARD HAS A SETID = 101 OR 102. 101 ', 1 'AND 102 ARE SYSTEM ID-S RESERVED FOR SINE AND COSINE SETS') 448 IF (NOGO) GO TO 450 CALL WRITE (GEOM(4),SETID,1,NOEOR) 450 CALL READ (*1540,*100,AXIC,Z(1),4,NOEOR,IAMT) IF (Z(4) .EQ. (-1)) GO TO 500 C C CHECK HARMONIC NUMBER C NNN = Z(2) ASSIGN 460 TO IERRTN GO TO 1420 C C CHECK RING ID C 460 NNN = Z(1) ASSIGN 490 TO IERRTN GO TO 1440 470 CALL PAGE2 (3) IMSG = 1063 WRITE (NOUT,105) SFM,IMSG WRITE (NOUT,480) CDTYPE(19),CDTYPE(20) 480 FORMAT (5X,'EOR ON AXIC FILE WHILE READING ',2A4,'CARD RECORDS.') NOGO = .TRUE. GO TO 1530 C 490 Z(2) = Z(1) + (Z(2)+1)*1000000 IF (NOGO) GO TO 450 CALL WRITE (GEOM(4),Z(2),3,NOEOR) GO TO 450 C C END OF EQUATION C 500 IF (NOGO) GO TO 440 CALL WRITE (GEOM(4),NEG111(1),3,NOEOR) GO TO 440 C C AT 713(?) WRITE EOR AND PUT BITS IN TRAILER. C 510 IF (MPCON) 520,530,520 520 IAMT = 0 REC(1) = MPC(1) REC(2) = MPC(2) REC(3) = MPC(3) ASSIGN 530 TO IRETRN GO TO 1300 C C OMITAX CARDS C 530 REC(1) = OMITAX(1) REC(2) = OMITAX(2) REC(3) = OMITAX(3) NCARD = 11 REC1(1)= OMIT(1) REC1(2)= OMIT(2) REC1(3)= OMIT(3) ASSIGN 600 TO ICONT 540 CALL LOCATE (*590,Z(IBUFF1),REC(1),FLAG) IF (NOGO) GO TO 550 CALL WRITE (GEOM(4),REC1(1),3,NOEOR) 550 CALL READ (*1540,*580,AXIC,Z(1),3,NOEOR,IAMT) C C CHECK HARMONIC NUMBER C NNN = Z(2) ASSIGN 560 TO IERRTN GO TO 1420 C C CHECK RING ID C 560 NNN = Z(1) ASSIGN 570 TO IERRTN GO TO 1440 C 570 Z(2) = Z(1) + (Z(2)+1)*1000000 IF (IFPDCO(Z(3))) GO TO 571 DO 572 L2 = 1,6 IF (LL(L2) .EQ. 0) GO TO 572 Z(3) = LL(L2) IF (NOGO) GO TO 550 CALL WRITE (GEOM(4),Z(2),2,NOEOR) 572 CONTINUE GO TO 550 571 NOGO = .TRUE. CALL PAGE2 (3) IMSG = 367 WRITE (NOUT,445) UFM,IMSG WRITE (NOUT,573) Z(3),CDTYPE(2*NCARD-1),CDTYPE(2*NCARD) 573 FORMAT (5X,'COMPONENT SPECIFICATION',I8,4H ON ,2A4, 1 ' CARD IS INCORRECT') GO TO 550 C C WRITE EOR AND PUT BITS IN TRAILER C 580 IAMT = 0 REC(1) = REC1(1) REC(2) = REC1(2) REC(3) = REC1(3) ASSIGN 590 TO IRETRN GO TO 1300 590 GO TO ICONT, (600,870) C C SPCADD CARD C =========== C 600 REC(1) = SPCADD(1) REC(2) = SPCADD(2) REC(3) = SPCADD(3) REC1(1) = SPCAX(1) REC1(2) = SPCAX(2) REC1(3) = SPCAX(3) ASSIGN 610 TO ICONT GO TO 21 C C SPCAX CARD C ========== C 610 REC(1) = SPC(1) REC(2) = SPC(2) REC(3) = SPC(3) C C RECORD HEADER FOR SPC-S C ASSIGN 620 TO IHEADR GO TO 1470 C 620 LAST = -1 NCARD = 18 CALL LOCATE (*670,Z(IBUFF1),SPCAX(1),FLAG) LAST = 0 NWORDS = 0 630 CALL READ (*1540,*660,AXIC,Z(1),5,NOEOR,IAMT) IF (Z(1) .GT. 100) GO TO 670 NWORDS = NWORDS + 5 C C ALTER CARD JUST READ AND OUTPUT C C CHECK HARMONIC NUMBER C NNN = Z(3) ASSIGN 640 TO IERRTN GO TO 1420 C C CHECK RING ID C 640 NNN = Z(2) ASSIGN 650 TO IERRTN GO TO 1440 C 650 Z(2) = Z(2) + (Z(3)+1)*1000000 Z(3) = Z(4) Z(4) = Z(5) IF (NOGO) GO TO 630 C CALL WRITE (GEOM(4),Z(1),4,NOEOR) GO TO 630 660 LAST = 1 C C FIRST NWORDS HAVE BEEN PROCESSED OF SPCAX CARDS C UNLESS LAST = 1, IN WHICH CASE ALL SPCAX CARDS ARE COMPLETE. C IF LAST = -1, THERE ARE NO SPCAX CARDS C C S-SET AND C-SET SPC-S FROM RINGAX CARDS C ======================================= C 670 SORC = 101 NCARD = 14 COMPON = 135 IF (ICONSO .EQ. 1) COMPON = 13 ASSIGN 750 TO ICONT 680 CALL LOCATE (*760,Z(IBUFF1),RINGAX(1),FLAG) 690 CALL READ (*1540,*740,AXIC,Z(1),4,NOEOR,IAMT) C IF (SORC .EQ. 102) GO TO 730 C C GIVE RING CARD A CHECK FOR MINIMUM DATA. C C CHECK RING ID C NNN = Z(1) ASSIGN 700 TO IERRTN GO TO 1440 C C CHECK FOR NON-ZERO RADIUS C 700 IF (RZ(I3-1)) 730,710,730 710 CALL PAGE2 (3) IMSG = 368 WRITE (NOUT,445) UFM,IMSG WRITE (NOUT,720) Z(1) 720 FORMAT (5X,'RINGAX CARD WITH RING ID =',I10,' HAS A ZERO RADIUS', 1 ' SPECIFIED.') NOGO = .TRUE. 730 Z(4) = 0 Z(3) = COMPON Z(2) = Z(1) + 1000000 Z(1) = SORC IF (NOGO) GO TO 690 CALL WRITE (GEOM(4),Z(1),4,NOEOR) GO TO 690 C 740 GO TO ICONT, (750,770) 750 SORC = 102 COMPON = 246 IF (ICONSO .EQ. 1) COMPON = 2 C C KEEP DOF 4 FOR PIEZOELECTRIC PROBLEM C IF (IPIEZ .EQ. 1) COMPON = 26 ASSIGN 770 TO ICONT GO TO 680 C C MISSING REQUIRED CARD C 760 ASSIGN 770 TO IERRTN GO TO 1510 C C BALANCE OF SPCAX CARDS C 770 IF (LAST) 830,780,830 780 CALL LOCATE (*830,Z(IBUFF1),SPCAX(1),FLAG) NCARD = 18 IF (NWORDS .EQ. 0) GO TO 800 DO 790 I = 1,NWORDS,5 CALL READ (*1540,*840,AXIC,Z(1),5,NOEOR,IAMT) 790 CONTINUE C C NOW POSITIONED AT POINT LEFT OFF AT ABOVE... C 800 CALL READ (*1540,*830,AXIC,Z(1),5,NOEOR,IAMT) IF (Z(1) .LT. 101) GO TO 840 IF (Z(1) .GT. 102) GO TO 808 NOGO = .TRUE. CALL PAGE2 (3) IMSG = 366 WRITE (NOUT,445) UFM,IMSG WRITE (NOUT,442) C C CHECK HARMONIC NUMBER C 808 NNN = Z(3) ASSIGN 810 TO IERRTN GO TO 1420 C C RING ID CHECK C 810 NNN = Z(2) ASSIGN 820 TO IERRTN GO TO 1440 C 820 Z(2) = Z(2) + (Z(3)+1)*1000000 Z(3) = Z(4) Z(4) = Z(5) IF (NOGO) GO TO 800 CALL WRITE (GEOM(4),Z(1),4,NOEOR) GO TO 800 C C WRITE EOR AND PUT BITS IN THE TRAILER C 830 IAMT = 0 ASSIGN 860 TO IRETRN GO TO 1300 840 CALL PAGE2 (3) IMSG = 1063 WRITE (NOUT,105) SFM,IMSG WRITE (NOUT,480) CDTYPE(35),CDTYPE(36) NOGO = .TRUE. GO TO 1530 C C SUPAX CARDS C =========== C 860 REC(1) = SUPAX(1) REC(2) = SUPAX(2) REC(3) = SUPAX(3) NCARD = 19 REC1(1) = SUPORT(1) REC1(2) = SUPORT(2) REC1(3) = SUPORT(3) ASSIGN 870 TO ICONT GO TO 540 C C CLOSE GEOM4 C 870 I = 4 ASSIGN 880 TO IRETRN GO TO 1380 C C C GEOM1 PROCESSING C ================ C C OPEN GEOM1 C 880 IFILE = GEOM(1) I = 1 OP = OUTRWD BUFF = IBUFF2 ASSIGN 890 TO IRETRN GO TO 1340 C C GRID CARDS FROM POINTAX AND SECTAX CARDS C C NOPONT = 0 OR 1, DEPENDING ON THE PRESSENCE OF POINTAX CARDS C NOSECT = 0 OR 1, DEPENDING ON THE PRESSENCE OF SECTAX CARDS C C RECORD HEADER FOR GRID CARDS C 890 REC(1) = GRID(1) REC(2) = GRID(2) REC(3) = GRID(3) ASSIGN 900 TO IHEADR GO TO 1470 C 900 IF (NOSECT) 920,910,920 910 IF (NOPONT) 980,1110,980 920 IF (NOPONT) 930,940,930 C C LOCATE SECTAX CARDS, READ SECTAX, CONVERT TO GRID, PUT ON NFILE C 930 NFILE = SCRTCH C C OPEN SCRTCH FILE C I = 5 OP = OUTRWD BUFF= IBUFF3 ASSIGN 950 TO IRETRN GO TO 1340 C 940 NFILE = GEOM(1) C 950 ICARD = 15 CALL LOCATE (*1090,Z(IBUFF1),SECTAX(1),FLAG) 960 CALL READ (*1540,*970,AXIC,Z(1),5,NOEOR,IAMT) Z(2) = 0 Z(6) = CSID Z(7) = 0 Z(8) = 0 IF (NOGO) GO TO 960 CALL WRITE (NFILE,Z(1),8,NOEOR) GO TO 960 970 IF (NOPONT) 980,1110,980 980 ICARD = 12 CALL LOCATE (*1090,Z(IBUFF1),POINTX(1),FLAG) C C READ POINT CARD CONVERT TO GRID CARD AND PUT OUT ON GEOM(1) C MERGING GRID CARDS FROM SCRTCH IF NOSECT IS NON-ZERO C IF (NOSECT) 990,1000,990 990 IF (NOGO ) GO TO 1110 CALL CLOSE (SCRTCH,CLORWD) CALL OPEN (*1570,SCRTCH,Z(IBUFF3),INPRWD) CALL READ (*1050,*1050,SCRTCH,Z(9),8,NOEOR,IAMT) 1000 CALL READ (*1540,*1070,AXIC,Z(1),3,NOEOR,IAMT) C C CONVERT POINTAX CARD C Z(2) = 0 RZ(I4) = 0.0 RZ(I5) = 0.0 Z(6) = CSID Z(7) = 0 Z(8) = 0 IF (NOSECT) 1010,1020,1010 1010 IF (Z(1) .GE. Z(9)) GO TO 1030 1020 ZPT = 1 GO TO 1040 1030 ZPT = 9 1040 IF (NOGO) GO TO 1110 CALL WRITE (GEOM(1),Z(ZPT),8,NOEOR) IF (ZPT .EQ. 1) GO TO 1000 CALL READ (*1050,*1050,SCRTCH,Z(9),8,NOEOR,IAMT) IF (NOPONT) 1010,1040,1010 1050 NOSECT = 0 C C CLOSE SCRTCH C I = 5 ASSIGN 1060 TO IRETRN GO TO 1380 1060 IF (NOPONT) 1020,1110,1020 C 1070 IF (NOSECT) 1080,1110,1080 1080 ZPT = 9 NOPONT = 0 GO TO 1040 C 1090 CALL PAGE2 (3) IMSG = 1064 WRITE (NOUT,105) SFM,IMSG WRITE (NOUT,1100) CDTYPE(2*ICARD-1),CDTYPE(2*ICARD) 1100 FORMAT (5X,2A4,' CARD COULD NOT BE LOCATED ON AXIC FILE AS ', 1 'EXPECTED.') NOGO = .TRUE. GO TO 1110 C C GRID CARDS FROM RING CARDS C C COPY RINGAX CARDS INTO CORE AND TO SCRTCH IF CORE IS EXCEEDED. C 1110 CALL LOCATE (*1240,Z(IBUFF1),RINGAX(1),FLAG) NWORDS = (ICORE/4)*4 - 12 IBEGIN = 13 ISCRAT = 0 CALL READ (*1540,*1140,AXIC,Z(13),NWORDS,NOEOR,IAMT) C C FALL HERE IMPLIES CORE IS FULL.. SPILL BALANCE TO SCRTCH FILE. C ION = 0 ISCRAT = 0 IF (NOGO) GO TO 1240 CALL OPEN (*1570,SCRTCH,Z(IBUFF3),OUTRWD) 1120 CALL READ (*1540,*1130,AXIC,Z(1),8,NOEOR,IAMT) ION = 1 CALL WRITE (SCRTCH,Z(1),8,NOEOR) GO TO 1120 1130 IF ((IAMT/4)*4 .NE. IAMT) GO TO 1230 IF (ION.EQ.0 .AND. IAMT.EQ.0) GO TO 1160 ISCRAT = 1 IF (NOGO) GO TO 1240 CALL WRITE (SCRTCH,Z(1),IAMT,EOR) CALL CLOSE (SCRTCH,CLORWD) GO TO 1160 C 1140 IF ((IAMT/4)*4 .NE. IAMT) GO TO 1230 NWORDS = IAMT C C NWORDS-WORDS ARE IN CORE AND IF ISCRAT = 1 THERE IS C A RECORD OF RINGAX CARDS ON SCRTCH FILE ALSO C C NOW MAKE N+1 PASSES THROUGH THE RING CARDS C 1160 IF (ISCRAT) 1170,1180,1170 1170 IF (NOGO ) GO TO 1240 CALL OPEN (*1570,SCRTCH,Z(IBUFF3),INPRWD) 1180 Z(2) = 0 Z(5) = 0 Z(6) = CSID Z(8) = 0 NCARDS = NWORDS/4 C C 27TH WORD OF SYSTEM IS PACKED AND HOLDS NUMBER OF RINGS AND HARMS C MN = NPLUS1 ISYSTM(161) = NCARDS NADD = 0 DO 1220 I = 1,NPLUS1 NADD = NADD + 1000000 IPT = IBEGIN - 4 C C PASS THROUGH THE INCORE CARDS C DO 1190 J = 1,NCARDS IPT = IPT + 4 Z(1) = Z(IPT) + NADD Z(3) = Z(IPT+1) Z(4) = Z(IPT+2) Z(7) = Z(IPT+3) IF (NOGO) GO TO 1190 CALL WRITE (GEOM(1),Z(1),8,NOEOR) 1190 CONTINUE C C PASS THROUGH SCRTCH CARDS IF ANY C IF (NOGO ) GO TO 1220 IF (ISCRAT) 1200,1220,1200 1200 CALL READ (*1540,*1210,SCRTCH,Z(9),4,NOEOR,IAMT) Z(1) = Z(9) + NADD Z(3) = Z(10) Z(4) = Z(11) Z(7) = Z(12) CALL WRITE (GEOM(1),Z(1),8,NOEOR) GO TO 1200 C 1210 CALL REWIND (SCRTCH) 1220 CONTINUE C C PUT BITS IN TRAILER AND WRITE EOR FOR GRID CARDS C IAMT = 0 REC(1) = GRID(1) REC(2) = GRID(2) REC(3) = GRID(3) ASSIGN 1240 TO IRETRN GO TO 1300 1230 NCARD = 14 ASSIGN 1240 TO IERRTN GO TO 1490 C C SEQGP CARD C ========== C 1240 REC(1) = SEQGP(1) REC(2) = SEQGP(2) REC(3) = SEQGP(3) ASSIGN 1250 TO IRETRN GO TO 1260 C C CLOSE GEOM1 C 1250 I = 1 ASSIGN 1530 TO IRETRN GO TO 1380 C C C UTILITY SECTION FOR IFP3 C AXIS-SYMETRIC-CONICAL-SHELL DATA GENERATOR. C ========================================== C C COMMON CODE FOR TRANSFER OF RECORD FROM AXIC FILE TO SOME C OTHER FILE C 1260 CALL LOCATE (*1330,Z(IBUFF1),REC(1),FLAG) IF (NOGO) GO TO 1330 CALL WRITE (IFILE,REC(1),3,NOEOR) 1290 CALL READ (*1540,*1300,AXIC,Z(1),ICORE,NOEOR,IAMT) IAMT = ICORE CALL WRITE (IFILE,Z(1),IAMT,NOEOR) GO TO 1290 1300 IF (NOGO) GO TO 1330 CALL WRITE (IFILE,Z(1),IAMT,EOR) C C PUT BITS IN TRAILER C I1 = (REC(2)-1)/16 + 2 I2 = REC(2)-(I1-2)*16 + 16 TRAIL(I1) = ORF(TRAIL(I1),TWO(I2)) C 1330 GO TO IRETRN, (590,530,610,30,1240,1250,860,37) C C OPEN A FILE AND GET THE TRAILER C 1340 IF (NOGO) GO TO 1350 CALL OPEN (*1360,FILE(I),Z(BUFF),OP) OPENFL(I) = 1 IF (I .GT. 4) GO TO 1350 C C WRITE THE HEADER RECORD C CALL WRITE (FILE(I),INAME(2*I-1),2,EOR) TRAIL(1) = FILE(I) CALL RDTRL (TRAIL(1)) C 1350 GO TO IRETRN, (890,950,20) C 1360 CALL PAGE2 (3) IMSG = 1061 WRITE (NOUT,105 ) SFM,IMSG WRITE (NOUT,1370) FILE(I),INAME(2*I-1),INAME(2*I),IFIST 1370 FORMAT (5X,11HFILE NUMBER ,I4,3H ( ,2A4,12H) IS NOT IN ,A4) NOGO = .TRUE. GO TO 1530 C C CLOSE A FILE C 1380 IF (OPENFL(I)) 1390,1410,1390 1390 IF (I .GT. 4) GO TO 1400 CALL WRITE (FILE(I),T65535(1),3,EOR) 1400 CALL CLOSE (FILE(I),CLORWD) OPENFL(I) = 0 IF (I .GT. 4) GO TO 1410 CALL WRTTRL (TRAIL(1)) 1410 GO TO IRETRN, (880,1060,1530) C C HARMONIC NUMBER, ON CARD TYPE ..... IS OUT OF RANGE 0 TO 998 C 1420 IF (NNN.LT.999 .AND. NNN.GE.0) GO TO IERRTN, (70,460,560,640,810) CALL PAGE2 (3) IMSG = 364 WRITE (NOUT,445 ) UFM,IMSG WRITE (NOUT,1430) NNN,CDTYPE(2*NCARD-1),CDTYPE(2*NCARD) 1430 FORMAT (5X,'HARMONIC NUMBER',I6,4H ON ,2A4,' CARD OUT OF 0 TO ', 1 '998 ALLOWABLE RANGE') NOGO = .TRUE. GO TO IERRTN, (70,460,560,640,810) C C RING ID OUT PERMISSABLE RANGE OF 1 TO 999999 C 1440 IF (NNN.GT.0 .AND. NNN.LE.999999) 1 GO TO IERRTN, (80,180,490,570,650,700,820) CALL PAGE2 (3) IMSG = 365 WRITE (NOUT,445 ) UFM,IMSG WRITE (NOUT,1450) NNN,CDTYPE(2*NCARD-1),CDTYPE(2*NCARD) 1450 FORMAT (5X,'RING ID',I10,4H ON ,2A4,' CARD OUT OF 0 TO 999999', 1 ' ALLOWABLE RANGE') NOGO = .TRUE. GO TO IERRTN, (80,180,490,570,650,700,820) C C CHECK BIT-IBIT IN TRAILER AND RETURN NON = ZERO OR NON-ZERO C 1460 I1 = (IBIT-1)/16 + 2 I2 = IBIT - (I1-2)*16 + 16 NON = ANDF(AXTRL(I1),TWO(I2)) GO TO IBITR, (140,150) C C WRITE 3 WORD RECORD HEADER C 1470 IF (NOGO) GO TO 1480 CALL WRITE (IFILE,REC(1),3,NOEOR) 1480 GO TO IHEADR, (40,170,620,900,28) C C END-OF-RECORD ON AXIC FILE. C 1490 CALL PAGE2 (3) IMSG = 1063 WRITE (NOUT,105) SFM,IMSG WRITE (NOUT,480) CDTYPE(2*NCARD-1),CDTYPE(2*NCARD) NOGO = .TRUE. GO TO IERRTN, (1240) C C MISSING REQUIRED CARD C 1510 CALL PAGE2 (3) IMSG = 362 WRITE (NOUT,445 ) UFM,IMSG WRITE (NOUT,1520) CDTYPE(2*NCARD-1),CDTYPE(2*NCARD) 1520 FORMAT (5X,'MINIMUM PROBLEM REQUIRES ',2A4,' CARD. NONE FOUND.') NOGO = .TRUE. GO TO IERRTN, (770) C C RETURN TO IFP3 C 1530 RETURN C C EOF ENCOUNTERED READING AXIC FILE C 1540 NFILE = AXIC CALL PAGE2 (3) IMSG = 3002 WRITE (NOUT,105 ) SFM,IMSG WRITE (NOUT,1560) INAME(11),INAME(12),NFILE 1560 FORMAT (5X,'EOF ENCOUNTERED WHILE READING DATA SET ',2A4,' (FILE', 1 I4,') IN SUBROUTINE IFP3B') NOGO = .TRUE. GO TO 1530 C 1580 CALL PAGE2 (3) IMSG = 363 WRITE (NOUT,445 ) UFM,IMSG WRITE (NOUT,1590) 1590 FORMAT (5X,'INSUFFICIENT CORE TO PROCESS AXIC DATA IN SUBROUTINE', 1 'IFP3B') NOGO = .TRUE. GO TO 1530 C 1570 I = 5 GO TO 1360 END ================================================ FILE: mis/ifp4.f ================================================ SUBROUTINE IFP4 C C HYDROELASTIC PREFACE ROUTINE C C THIS PREFACE MODULE OPERATES ON FLUID RELATED INPUT DATA WHICH C EXISTS AT THIS POINT IN THE FORM OF CARD IMAGES ON THE AXIC DATA C BLOCK. C C 7/12/73 NO AXIAL SYMMETRY FIRST FIVE WORDS OF BNDFL NO WRITTEN C C THE FOLLOWING LIST GIVES THE CARD IMAGES IFP4 WILL LOOK FOR ON THE C AXIC DATA BLOCK, THE CARD IMAGES IFP4 WILL GENERATE OR MODIFY, AND C THE DATA BLOCKS ONTO WHICH THE GENERATED OR MODIFIED CARD IMAGES C WILL BE PLACED. C C IFP4 INPUT IFP4 OUTPUT DATA BLOCK C CARD IMAGE CARD IMAGE EFFECTED C ----------- ----------- ---------- C AXIF -NONE- -NONE- C BDYLIST -DATA- MATPOOL C CFLUID2 CFLUID2 GEOM2 C CFLUID3 CFLUID3 GEOM2 C CFLUID4 CFLUID4 GEOM2 C FLSYM -DATA- MATPOOL C FREEPT SPOINT GEOM2 C MPC GEOM4 C FSLIST CFSMASS GEOM2 C SPC GEOM4 C GRIDB GRID GEOM1 C PRESPT SPOINT GEOM2 C MPC GEOM4 C RINGFL GRID GEOM1 C SEQGP GEOM1 C DMIAX DMIG MATPOOL C C SOME OF THE ABOVE OUTPUT CARD IMAGES ARE A FUNCTION OF SEVERAL C INPUT CARD IMAGES C LOGICAL HARMS ,ANYGB ,END ,ANY ,G1EOF , 1 G2EOF ,G4EOF ,SET102 ,PRESS ,BIT , 2 NOGO ,MATEOF ,ANYGRD ,BIT2 INTEGER AXIF(2) ,BDYLST(2),CFLUID(6),FLSYM(2) ,FREEPT(2), 1 FSLST(2) ,GRIDB(2) ,PRESPT(2),RINGFL(2),CFSMAS(2), 2 MPC(2) ,MPCADD(2),TYPE(2) ,SPOINT(2),CORD(8) , 3 SPC(2) ,SPCADD(2),SPC1(2) ,NCORD(4) ,GEOM1 , 4 SUBR(2) ,BUF(10) ,LAST(10) ,AXIC ,GEOM2 , 5 CARD(10) ,FILE ,MATPOL ,GEOM4 ,SEQGP(2) , 6 SCRT1 ,ENTRYS ,CORSYS ,SPACE ,CORE , 7 SCRT2 ,SYSBUF ,OUTPUT ,FLAG ,EOR , 8 CSF ,RD ,RDREW ,WRT ,WRTREW , 9 CLS ,CLSREW ,SAVEID(5),MONES(4) ,DMIG(2) , O BUF1 ,BUF2 ,BUF3 ,BUF4 ,BUF5 , 1 WORDS ,BNDFL(2) ,TRAIL(7) ,Z ,POINT , 2 DMIAX(2) ,MSG1(2) ,MSG2(2) ,GRID(2) REAL RBUF(10) ,RCARD(10),RZ(4) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF ,OUTPUT ,NOGO ,DUM34(34),IAXIF COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW , 1 CLS COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),RZ(1)), (BUF(1),RBUF(1)), (CARD(1),RCARD(1)) 1, (CORE,ICORE), (RHOB,IRHOB), (BD,IBD) DATA AXIF / 8815 ,88 / DATA BDYLST/ 8915 ,89 / DATA CFLUID/ 7815 ,78 , 7915 ,79 , 8015 ,80 / DATA FLSYM / 9115 ,91 / DATA FREEPT/ 9015 ,90 / DATA FSLST / 8215 ,82 / DATA GRIDB / 8115 ,81 / DATA PRESPT/ 8415 ,84 / DATA RINGFL/ 8315 ,83 / DATA CFSMAS/ 2508 ,25 / DATA BNDFL / 9614 ,96 / DATA MPC / 4901 ,49 / DATA SPC / 5501 ,55 / DATA SPC1 / 5481 ,58 / DATA MPCADD/ 4891 ,60 / DATA SPCADD/ 5491 ,59 / DATA SPOINT/ 5551 ,49 / DATA GRID / 4501 ,45 / DATA SEQGP / 5301 ,53 / DATA DMIAX / 214 ,2 / DATA DMIG / 114 ,1 / DATA CORD /1701 ,17 , 1901 ,19 , 2001 ,20 ,2201 ,22 / DATA NCORD / 6 ,6 , 13 ,13 / DATA MONES / -1 ,-1 , -1 ,-1 / DATA SUBR / 4HIFP4,4H / DATA DEGRAD/ 1.7453292519943E-02/, MINUS1/ -1 / DATA GEOM1 , GEOM2,GEOM4 / 201,208,210 / DATA AXIC , MATPOL,EOR / 215,214,1 / C C NOTE SCRATCH2 IN IFP4 IS EQUIVALENCED TO THE -FORCE- DATA BLOCK C DATA SCRT1 , SCRT2 , NOEOR / 301,213,0 / DATA MSG1 / 4HIFP4, 4HBEGN/, MSG2 / 4HIFP4, 4HEND / C C DEFINE CORE AND BUFFER POINTERS C CALL CONMSG (MSG1,2,0) ICORE = KORSZ(Z) BUF1 = ICORE- SYSBUF - 2 BUF2 = BUF1 - SYSBUF - 2 BUF3 = BUF2 - SYSBUF - 2 BUF4 = BUF3 - SYSBUF - 2 BUF5 = BUF4 - SYSBUF - 2 ICORE = BUF5 - 1 ICRQ = 100 - ICORE IF (ICORE .LT. 100) GO TO 2370 C C OPEN AXIC DATA BLOCK (IF NAME NOT IN FIST RETURN - NO MESSAGE) C CALL PRELOC (*2300,Z(BUF1),AXIC) C C PICK UP AXIF CARD. (IF AXIF CARD NOT PRESENT - RETURN NO MESSAGE) C CALL LOCATE (*2300,Z(BUF1),AXIF,FLAG) CALL READ (*2320,*30,AXIC,Z(1),ICORE,EOR,WORDS) WRITE (OUTPUT,10) UFM 10 FORMAT (A23,' 4031, INSUFFICIENT CORE TO READ DATA ON AXIF CARD.') WRITE (OUTPUT,20) ICORE 20 FORMAT (5X,'ADDITIONAL CORE NEEDED =',I8,' WORDS.') GO TO 2310 C C DATA OF AXIF CARD IS NOW STORED C 30 CSF = Z(1) G = RZ(2) DRHO = RZ(3) J = 3 IDRHO = Z(J) BD = RZ(4) NOSYM = Z(J+2) IN = 6 NN = WORDS - 1 NI = NN J = NN - IN + 1 HARMS = .FALSE. IF (J .GE. 1) HARMS =.TRUE. IF (.NOT.HARMS) GO TO 100 C C CONVERT USER INPUT LIST OF HARMONIC NUMBERS TO A LIST OF INDICES. C IF (J .EQ. 1) GO TO 40 CALL SORT (0,0,1,1,Z(IN),J) 40 II = NN + 1 NI = NN DO 70 I = IN,NN ITEMP = 2*Z(I) IF (NOSYM) 50,60,50 50 IF (Z(I) .EQ. 0) GO TO 60 NI = NI + 1 Z(NI) = ITEMP + 1 60 NI = NI + 1 Z(NI) = ITEMP + 2 70 CONTINUE N = NI - II + 1 C C SET MAXIMUM HARMONIC+1 FOR USE BY SDR2C AND VDRB C IAXIF = Z(NN) + 1 C C BEGIN GEOM1 PROCESSING C ********************** C C OPEN GEOM1 AND FIND CORD1C, CORD1S, CORD2C, OR CORD2S CARD IMAGE C WITH COORDINATE SYSTEM ID = CSF OF AXIF CARD. THEN NOTE TYPE C (CYLINDRICAL OR SPHERICAL, 2 OR 3 RESPECTIVELY) C 100 FILE = GEOM1 C C BEFORE CALLING PRELOC ON GEOM1 CHECK FOR DATA ON GEOM1 C TRAIL(1) = GEOM1 CALL RDTRL (TRAIL) DO 110 I = 2,7 IF (TRAIL(I)) 120,110,120 110 CONTINUE GO TO 150 120 CALL PRELOC (*2360,Z(BUF2),GEOM1) DO 140 I = 1,4 I2 = 2*I CALL LOCATE (*140,Z(BUF2),CORD(I2-1),FLAG) NSIZE = NCORD(I) 130 CALL READ (*2340,*140,GEOM1,Z(NI+1),NSIZE,NOEOR,FLAG) IF (Z(NI+1) .EQ. CSF) GO TO 170 GO TO 130 140 CONTINUE C C FALL THROUGH LOOP IMPLIES COORDINATE SYSTEM WAS NOT FOUND C 150 NOGO = .TRUE. WRITE (OUTPUT,160) UFM,CSF 160 FORMAT (A23,' 4033, COORDINATE SYSTEM ID =',I20,' AS SPECIFIED ', 1 'ON AXIF CARD IS NOT PRESENT', /5X,' AMONG ANY OF CORD1C,', 2 ' CORD1S, CORD2C, OR CORD2S CARD TYPES.', /5X, 3 ' CYLINDRICAL TYPE ASSUMED FOR CONTINUING DATA CHECK.') CORSYS = 2 GO TO 180 170 CORSYS = Z(NI+2) 180 CALL CLOSE (GEOM1,CLSREW) C C READ INTO CORE FROM AXIC ALL GRIDB CARD IMAGES (5 WORDS / IMAGE) C ANYGB = .FALSE. IGRIDB = NI + 1 NGRIDB = NI CALL LOCATE (*210,Z(BUF1),GRIDB,FLAG) ANYGB = .TRUE. SPACE = CORE- NI CALL READ (*2320,*200,AXIC,Z(IGRIDB),SPACE,EOR,NWORDS) NOGO = .TRUE. WRITE (OUTPUT,190) UFM 190 FORMAT (A23,' 4034, INSUFFICIENT CORE TO HOLD GRIDB CARD IMAGES.') WRITE (OUTPUT,20) SPACE ANYGB = .FALSE. GO TO 210 200 NGRIDB = NI + NWORDS C C IF ANY GRIDB IMAGES ARE PRESENT A BOUNDARY LIST IS FORMED IN CORE. C 210 IBDYL = NGRIDB + 1 NBDYL = NGRIDB IF (.NOT.ANYGB) GO TO 520 CALL LOCATE (*520,Z(BUF1),BDYLST,FLAG) 220 CALL READ (*2320,*330,AXIC,RHOB,1,NOEOR,FLAG) IF (IRHOB .NE. 1) GO TO 250 IF (IDRHO .NE. 1) GO TO 240 NOGO = .TRUE. WRITE (OUTPUT,230) UFM 230 FORMAT (A23,' 4035, THE FLUID DENSITY HAS NOT BEEN SPECIFIED ON ', 1 'A BDYLIST CARD AND', /5X,'THERE IS NO DEFAULT FLUID ', 2 'DENSITY SPECIFIED ON THE AXIF CARD.') RHOB = 1.0 GO TO 250 240 RHOB = DRHO 250 END = .FALSE. IDFPRE = 0 260 CALL READ (*2320,*2330,AXIC,IDF,1,NOEOR,FLAG) IF (IDF .NE. 0) GO TO 270 IDFPRE = -1 GO TO 260 270 CALL READ (*2320,*2330,AXIC,IDFAFT,1,NOEOR,FLAG) C C NOTE....... ON INPUT ID=0 IMPLIES AXIS C ID=-1 IMPLIES END OF CARD C C C NOTE....... ON OUTPUT ID=0 IMPLIES UNDEFINED ID C ID=-1 IMPLIES AXIS C IF (IDFAFT .EQ. -1) GO TO 280 IF (IDFAFT .EQ. 0) IDFAFT = -1 GO TO 290 280 IDFAFT = 0 END = .TRUE. C C DO NOT PUT OUT ENTRY WHEN IDF = AXIS C 290 IF (IDF .EQ. -1) GO TO 320 IF (NBDYL+7 .LE. CORE) GO TO 310 WRITE (OUTPUT,300) UFM 300 FORMAT (A23,' 4036, INSUFFICIENT CORE TO BUILD BOUNDARY LIST ', 1 'TABLE.') ICRQ = NBDYL + 7 - CORE GO TO 2370 310 Z(NBDYL +1) = IDF Z(NBDYL +2) = 1 Z(NBDYL +3) = 1 Z(NBDYL +4) = 1 Z(NBDYL +5) = IDFPRE Z(NBDYL +6) = IDFAFT RZ(NBDYL+7) = RHOB NBDYL = NBDYL + 7 C C ROTATE THE ID-S C 320 IDFPRE = IDF IDF = IDFAFT IF (.NOT.END) GO TO 270 GO TO 220 C C SORT ENTRIES ON FIRST WORD OF EACH ENTRY. C 330 CALL SORT (0,0,7,1,Z(IBDYL),NBDYL-IBDYL+1) ENTRYS = (NBDYL-IBDYL+1)/7 C C PASS THE RINGFL IMAGES INSERTING X1, X2, AND X3 IN THE APPROPRIATE C BDYLIST ENTRY. C CALL LOCATE (*490,Z(BUF1),RINGFL,FLAG) 340 CALL READ (*2320,*490,AXIC,BUF,4,NOEOR,FLAG) IF (CORSYS .NE. 3) GO TO 360 IF (RBUF(3) .NE. 0.) GO TO 360 NOGO = .TRUE. WRITE (OUTPUT,350) UFM,BUF(1) 350 FORMAT (A23,' 5003, ZERO X2 VALUE ON RINGFL CARD WITH SPHERICAL ', 1 'COORDINATES. FLUID POINT ID =',I10) 360 IF (BUF(CORSYS+1)) 370,410,370 370 NOGO = .TRUE. IF (CORSYS .EQ. 3) GO TO 390 WRITE (OUTPUT,380) UFM,BUF(1) 380 FORMAT (A23,'4042, COORDINATE SYSTEM IS CYLINDRICAL BUT RINGFL ', 1 'CARD ID =',I20,' HAS A NON-ZERO X2 VALUE.') GO TO 410 390 WRITE (OUTPUT,400) UFM,BUF(1) 400 FORMAT (A23,' 4043, COORDINATE SYSTEM IS SPHERICAL BUT RINGFL ', 1 'CARD ID =',I20,' HAS A NON-ZERO X3 VALUE.') 410 CALL BISLOC(*340,BUF(1),Z(IBDYL),7,ENTRYS,JPOINT) NTEMP = IBDYL + JPOINT - 1 IF (Z(NTEMP+1) .EQ. 1) GO TO 430 NOGO = .TRUE. WRITE (OUTPUT,420) UFM,BUF(1) 420 FORMAT (A23,' 4038, RINGFL CARD HAS ID =',I20,' WHICH HAS BEEN ', 1 'USED.') GO TO 340 C C CHECK TO GET RANGE OF BDYLIST HAVING THIS SAME ID. C THEN FILL IN X1, X2, AND X3 IN THOSE ENTRIES. C 430 NLIST = NTEMP 440 NTEMP = NTEMP - 7 IF (NTEMP .LT. IBDYL) GO TO 450 IF (Z(NTEMP) .EQ. Z(NTEMP+7)) GO TO 440 450 ILIST = NTEMP + 7 NTEMP = NLIST 460 NTEMP = NTEMP + 7 IF (NTEMP .GT. NBDYL) GO TO 470 IF (Z(NTEMP) .EQ. Z(NTEMP-7)) GO TO 460 470 NLIST = NTEMP - 1 DO 480 I = ILIST,NLIST,7 Z(I+1) = BUF(2) Z(I+2) = BUF(3) Z(I+3) = BUF(4) 480 CONTINUE GO TO 340 C C CHECK TO SEE THAT X1, X2, AND X3 WERE FOUND FOR ALL ENTRIES. C 490 DO 510 I = IBDYL,NBDYL,7 IF (Z(I+1) .NE. 1) GO TO 510 NOGO = .TRUE. WRITE (OUTPUT,500) UFM,Z(I) 500 FORMAT (A23,' 4040, ID =',I20,' APPEARS ON A BDYLIST CARD, BUT ', 1 'NO RINGFL CARD IS PRESENT WITH THE SAME ID.') 510 CONTINUE C C OPEN GEOM1, OPEN SCRATCH1, COPY HEADER REC FROM GEOM1 TO SCRATCH1 C 520 CALL IFP4C (GEOM1,SCRT1,Z(BUF2),Z(BUF3),G1EOF) C C COPY ALL DATA UP TO FIRST GRID CARD IMAGE. C CALL IFP4B (GEOM1,SCRT1,ANY,Z(NBDYL+1),CORE-NBDYL,GRID,G1EOF) ANYGRD = ANY IF (.NOT.ANYGB) GO TO 1040 IF (NBDYL .LT. IBDYL) GO TO 1040 C C CREATE AND MERGE WITH GRIDS FROM GEOM1, GRIDS FROM GRIDB IMAGES. C FILE = GEOM1 IF (.NOT.ANY) GO TO 540 CALL READ (*2340,*530,GEOM1,LAST,8,NOEOR,FLAG) CALL IFP4E (LAST(1)) GO TO 540 530 ANY = .FALSE. 540 DO 600 I = IGRIDB,NGRIDB,5 CARD(1) = Z(I) CALL IFP4E (CARD(1)) CARD(2) = CSF KID = Z(I+4) CALL BISLOC (*560,KID,Z(IBDYL),7,ENTRYS,POINT) NTEMP = IBDYL + POINT - 1 CARD(3) = Z(NTEMP+1) CARD(4) = Z(NTEMP+2) CARD(5) = Z(NTEMP+3) CARD(CORSYS+2) = Z(I+1) CARD(6) = Z(I+2) CARD(7) = Z(I+3) CARD(8) = 0 C C MERGE CARD IN C IF (.NOT.ANY) GO TO 590 550 IF (LAST(1) .GT. CARD(1)) GO TO 590 CALL WRITE (SCRT1, LAST, 8, NOEOR) CALL READ (*2340,*580,GEOM1,LAST,8,NOEOR,FLAG) CALL IFP4E (LAST(1)) GO TO 550 560 NOGO = .TRUE. WRITE (OUTPUT,570) UFM,Z(I),Z(I+4) 570 FORMAT (A23,' 4057, GRIDB CARD WITH ID =',I10,' HAS A REFERENCE ', 1 'IDF =',I10,/5X,'WHICH DOES NOT APPEAR IN A BOUNDARY LIST') GO TO 600 580 ANY = .FALSE. 590 CALL WRITE (SCRT1,CARD,8,NOEOR) 600 CONTINUE C IF (.NOT.ANY) GO TO 620 610 CALL WRITE (SCRT1,LAST,8,NOEOR) CALL READ (*2340,*620,GEOM1,LAST,8,NOEOR,FLAG) CALL IFP4E (LAST(1)) GO TO 610 C C FURTHER ALTERATIONS TO BOUNDARY LIST TABLE AT THIS TIME. C RADIAL LOCATION (RJ) AND VERTICAL LOCATION (ZJ) C 620 NRING = NGRIDB IF (.NOT.HARMS) GO TO 1200 DO 640 I = IBDYL,NBDYL,7 IF (CORSYS .EQ. 3) GO TO 630 Z(I+2) = Z(I+3) GO TO 640 C 630 ANGLE = RZ(I+2)*DEGRAD TEMP = RZ(I+1) RZ(I+1) = TEMP*SIN(ANGLE) RZ(I+2) = TEMP*COS(ANGLE) 640 CONTINUE C C LENGTH AND ASSOCIATED ANGLE COMPONENTS OF A CONICAL SECTION. L,C,S C IF (NOGO) GO TO 780 DO 770 I = IBDYL,NBDYL,7 RJ = RZ(I+1) ZJ = RZ(I+2) C C FIND R , Z AND R , Z (RJL1,ZJL1,RJP1,ZJP1) C J-1 J-1 J+1 J+1 C IF (Z(I+4)) 650,660,670 C C SECONDARY ID IS AXIS C 650 RJL1 = 0 ZJL1 = ZJ GO TO 680 C C SECONDARY ID IS NOT AVAILABLE C 660 RJL1 = RJ ZJL1 = ZJ GO TO 680 C C FIND SECONDARY ID ENTRY C 670 KID = Z(I+4) CALL BISLOC (*2380,KID,Z(IBDYL),7,ENTRYS,POINT) NTEMP = IBDYL + POINT - 1 RJL1 = RZ(NTEMP+1) ZJL1 = RZ(NTEMP+2) C C SECONDARY ID ON PLUS SIDE C 680 IF (Z(I+5)) 690,700,710 C C SECONDARY ID IS AXIS C 690 RJP1 = 0 ZJP1 = ZJ GO TO 720 C C SECONDARY ID IS NOT AVAILABLE C 700 RJP1 = RJ ZJP1 = ZJ GO TO 720 C C FIND SECONDARY ID ENTRY C 710 KID = Z(I+5) CALL BISLOC (*2380,KID,Z(IBDYL),7,ENTRYS,POINT) NTEMP = IBDYL + POINT - 1 RJP1 = RZ(NTEMP+1) ZJP1 = RZ(NTEMP+2) C C COMPUTE AND INSERT L,C,S. C 720 IF (RJ .NE. 0.0) GO TO 740 NOGO = .TRUE. WRITE (OUTPUT,730) UFM,Z(I) 730 FORMAT (A23,' 4044, RINGFL CARD ID =',I20,' HAS SPECIFIED A ', 1 'ZERO RADIAL LOCATION.') GO TO 770 C 740 TEMP1 = RJP1 - RJ TEMP2 = 0.25/RJ R = 0.5*(RJP1-RJL1+TEMP2*(TEMP1*TEMP1-(RJL1-RJ)**2)) ZZ= 0.5*(ZJL1-ZJP1+TEMP2*(TEMP1*(ZJ-ZJP1)-(RJ-RJL1)*(ZJL1-ZJ))) RZ(I+3) = SQRT(R*R + ZZ*ZZ) IF (RZ(I+3) .NE. 0.0) GO TO 760 NOGO = .TRUE. WRITE (OUTPUT,750) UFM,Z(I) 750 FORMAT (A23,' 4045, THE BOUNDARY LIST ENTRY FOR ID =',I9, 1 ' HAS A ZERO CROSS-SECTION LENGTH.') GO TO 770 C 760 RZ(I+4) = ZZ/RZ(I+3) RZ(I+5) = R/RZ(I+3) 770 CONTINUE C C SORT GRIDB IMAGES TO BE IN SORT ON RID AND PHI WITHIN EACH RID C 780 NTEMP = NGRIDB - IGRIDB + 1 CALL SORT (0,0,5,-2,Z(IGRIDB),NTEMP) CALL SORT (0,0,5,-5,Z(IGRIDB),NTEMP) C C THE BOUNDARY FLUID DATA IS ADDED TO THE MATPOOL DATA BLOCK AS 1 C LOCATE RECORD CONTAINING THE FOLLOWING. C C 1-3 LOCATE CODE 9614,96,0 C 4 CDF C 5 G C 6 DRHO C 7 BD C 8 NOSYM C 9 M C 10 S1 C 11 S2 C 12 N = NUMBER OF INDICES FOLLOWING C 12+1 THRU 12+N THE INDICES C 13+N TO THE EOR IS THE BOUNDARY FLUID DATA C C FILE = MATPOL INAME = NBDYL + 1 NNAME = NBDYL CALL IFP4C (MATPOL,SCRT2,Z(BUF4),Z(BUF5),MATEOF) IF (MATEOF) GO TO 930 C C IF ANY DMIAX CARDS ARE PRESENT THEN THEY ARE MERGED IN FRONT OF C DMIG CARDS IN THE DMIG RECORD. FILE NAMES MAY NOT BE THE SAME ON C BOTH DMIG AND DMIAX CARDS. C CALL IFP4F (DMIAX(2),MATPOL,BIT) CALL IFP4F (DMIG(2) ,MATPOL,BIT2) C C LOCATE DMIAX CARDS, COPY THEM TO SCRT2 AS DMIG CARDS AND KEEP C LIST OF THEIR FILE NAMES. C IF (.NOT.BIT .AND. .NOT.BIT2) GO TO 900 CALL CLOSE (MATPOL,CLSREW) CALL PRELOC (*2360,Z(BUF4),MATPOL) C C WRITE DMIG HEADER. C BUF(1) = DMIG(1) BUF(2) = DMIG(2) BUF(3) = 120 CALL WRITE (SCRT2,BUF,3,NOEOR) IF (.NOT.BIT) GO TO 850 CALL LOCATE (*850,Z(BUF4),DMIAX,FLAG) ASSIGN 800 TO IRETRN C C READ 9 WORD HEADER C 790 GO TO IRETRN(800,860) 800 CALL READ (*2340,*850,MATPOL,BUF,9,NOEOR,FLAG) C C SAVE NAME C Z(INAME ) = BUF(1) Z(INAME+1) = BUF(2) NNAME = NNAME + 2 ICRQ = NNAME + 2 - ICORE IF (ICRQ .GT. 0) GO TO 2370 810 CALL WRITE (SCRT2,BUF,9,NOEOR) C C COPY THE COLUMN DATA. FIRST THE COLUMN INDEX. C 820 CALL READ (*2340,*2350,MATPOL,BUF,2,NOEOR,FLAG) CALL WRITE (SCRT2,BUF,2,NOEOR) IF (BUF(1)) 790,830,830 C C TERMS OF COLUMN C 830 CALL READ (*2340,*2350,MATPOL,BUF,2,NOEOR,FLAG) CALL WRITE (SCRT2,BUF,2,NOEOR) IF (BUF(1)) 820,840,840 840 CALL READ (*2340,*2350,MATPOL,BUF,1,NOEOR,FLAG) CALL WRITE (SCRT2,BUF,1,NOEOR) GO TO 830 C C DMIAX-S ALL COPIED. NOW COPY ANY DMIG-S. C 850 IF (.NOT.BIT2) GO TO 890 CALL LOCATE (*890,Z(BUF4),DMIG,FLAG) ASSIGN 860 TO IRETRN C C READ HEADER C 860 CALL READ (*2320,*890,MATPOL,BUF,9,NOEOR,FLAG) C C CHECK THE NAME FOR BEING THE SAME AS ONE ON A DMIAX CARD C DO 880 I = INAME,NNAME,2 IF (BUF(1) .NE. Z(I )) GO TO 880 IF (BUF(2) .NE. Z(I+1)) GO TO 880 C C ERROR FOR NAME DOES MATCH THAT OF A DMIAX NAME C NOGO = .TRUE. WRITE (OUTPUT,870) UFM,BUF(1),BUF(2) 870 FORMAT (A23,' 4062, DMIG BULK DATA CARD SPECIFIES DATA BLOCK ', 1 2A4,' WHICH ALSO APPEARS ON A DMIAX CARD.') 880 CONTINUE C C COPY THE COLUMN DATA C GO TO 810 C C WRITE THE END OF RECORD FOR DMIG CARDS C 890 CALL WRITE (SCRT2,0,0,EOR) C C TURN ON BIT FOR DMIG CARD TYPE C CALL IFP4G (DMIG(2),MATPOL) CALL REWIND (MATPOL) CALL FWDREC (*2340,MATPOL) C C COPY EVERYTHING ON MATPOL TO SCRT2, EXCEPT FOR DMIG, DMIAX, AND C THE 2**31-1 RECORD. C 900 CALL READ (*930,*2350,MATPOL,BUF,3,NOEOR,FLAG) C 2147483647 = 2**31-1 ITWO31 = 2147483647 IF (BUF(1).NE.ITWO31.AND.(BUF(1).NE.DMIG(1).OR.BUF(2).NE.DMIG(2)) 1 .AND.(BUF(1).NE.DMIAX(1).OR.BUF(2).NE.DMIAX(2))) GO TO 910 CALL FWDREC (*2340,MATPOL) GO TO 900 910 CALL READ (*2340,*920,MATPOL,Z(NBDYL+1),CORE-NBDYL,NOEOR,FLAG) CALL WRITE (SCRT2,Z(NBDYL+1),CORE-NBDYL,NOEOR) GO TO 900 920 CALL WRITE (SCRT2,Z(NBDYL+1),FLAG,EOR) GO TO 900 930 MATEOF = .TRUE. CALL IFP4B (MATPOL,SCRT2,ANY,Z(NBDYL+1),CORE-NBDYL,BNDFL,MATEOF) CARD(1) = 0 CARD(2) = 0 CARD(3) = 0 CARD(4) = N CALL LOCATE (*940,Z(BUF1),FLSYM,FLAG) CALL READ (*2320,*2330,AXIC,CARD,3,EOR,FLAG) 940 CONTINUE CALL WRITE (SCRT2,Z(1),5,NOEOR) CALL WRITE (SCRT2,CARD,4,NOEOR) CALL WRITE (SCRT2,Z(II),N,NOEOR) C C OUTPUT ENTRIES TO MATPOOL DATA BLOCK.(TEMPORARILY ON SCRT2) C JGRIDB = IGRIDB JSAVE = 0 DO 1030 I = IBDYL,NBDYL,7 C C POSSIBILITY OF 2 FLUID ID-S HAVING SAME VALUE C IF (JSAVE .NE. 0) JGRIDB = JSAVE JSAVE = 0 IF (Z(I) .EQ. Z(I+7)) JSAVE = JGRIDB C C IF RHO FOR A FLUID POINT IS ZERO WE DO NOT PUT OUT FLUID C DATA AND CONNECTED POINTS. C IF (RZ(I+6)) 950,960,950 950 CALL WRITE (SCRT2,Z(I),7,NOEOR) C C APPEND GRIDB POINTS WITH THEIR ANGLES. C 960 IF (JGRIDB .GT. NGRIDB) GO TO 1010 IF (Z(JGRIDB+4) - Z(I)) 970,980,1010 970 JGRIDB = JGRIDB + 5 GO TO 960 C C APPEND THE POINT C 980 IF (RZ(I+6)) 990,1000,990 990 CALL WRITE (SCRT2,Z(JGRIDB),2,NOEOR) 1000 JGRIDB = JGRIDB + 5 GO TO 960 C C COMPLETE THE ENTRY C 1010 IF (RZ(I+6)) 1020,1030,1020 1020 CALL WRITE (SCRT2,MONES,2,NOEOR) 1030 CONTINUE C C COMPLETE RECORD. C CALL WRITE (SCRT2,0,0,EOR) CALL IFP4B (MATPOL,SCRT2,ANY,Z(NGRIDB+1),CORE-NGRIDB,MONES,MATEOF) C C READ ALL RINGFL CARD IMAGES INTO CORE C 1040 IF (ANYGB) GO TO 1060 IF (.NOT.ANYGRD) GO TO 1060 C C COPY GRID CARDS NOT COPIED AS A RESULT OF THE ABSENCE OF GRIDB C CARDS. C FILE = GEOM1 1050 CALL READ (*2340,*1060,GEOM1,CARD,8,NOEOR,FLAG) CALL WRITE (SCRT1,CARD,8,NOEOR) GO TO 1050 1060 IRING = NGRIDB + 1 NRING = NGRIDB CALL LOCATE (*1090,Z(BUF1),RINGFL,FLAG) CALL READ (*2320,*1080,AXIC,Z(IRING),CORE-IRING,NOEOR,FLAG) WRITE (OUTPUT,1070) UFM 1070 FORMAT (A23,' 4047, INSUFFICIENT CORE TO HOLD RINGFL IMAGES.') ICRQ = CORE - IRING WRITE (OUTPUT,20) ICRQ GO TO 2310 1080 NRING = IRING + FLAG - 1 C C OUTPUT HARMONIC GRID CARDS. C 1090 IF (NRING .LT. IRING) GO TO 1150 C C SORT RINGFL IDS C CALL SORT (0,0,4,1,Z(IRING),FLAG) CARD(2) = 0 RCARD(5) = 0.0 C C CARD(6) = -1 AS A FLAG TO TELL GP1 THIS IS A ONE DEGREE OF C FREEDOM POINT. C CARD(6) = -1 CARD(7) = 0 CARD(8) = 0 DO 1140 I = II,NI INDEX = Z(I)*500000 DO 1130 K = IRING,NRING,4 C C CALL IFP4E TO CHECK ID RANGE 1 TO 99999 C CALL IFP4E (Z(K)) IF (K .EQ. IRING) GO TO 1100 IF (Z(K) .NE. ZTEMP) GO TO 1100 NOGO = .TRUE. WRITE (OUTPUT,420) UFM,Z(K) 1100 ZTEMP = Z(K) CARD(1) = Z(K) + INDEX IF (CORSYS .EQ. 3) GO TO 1110 CARD(3) = Z(K+1) CARD(4) = Z(K+3) GO TO 1120 1110 ANGLE = RZ(K+2)*DEGRAD RCARD(3) = RZ(K+1)*SIN(ANGLE) RCARD(4) = RZ(K+1)*COS(ANGLE) IF (RCARD(3) .NE. 0.0) GO TO 1120 NOGO = .TRUE. WRITE (OUTPUT,350) UFM,Z(K) GO TO 1140 1120 CALL WRITE (SCRT1,CARD,8,NOEOR) 1130 CONTINUE 1140 CONTINUE C C COMPLETE GRID CARD RECORD. C 1150 CALL WRITE (SCRT1,0,0,EOR) C C CREATE AND OUTPUT SEQGP CARDS ONTO SCRT1. COPY GEOM1 TO SCRT1 UP C TO AND INCLUDING SEQGP 3-WORD HEADER. C IF (NRING .LT. IRING) GO TO 1210 CALL IFP4B (GEOM1,SCRT1,ANY,Z(NRING+1),CORE-NRING,SEQGP,G1EOF) C C COPY ALL SEQGP CARDS OVER ALSO (ID-S MUST BE OF CORRECT VALUE). C FILE = GEOM1 IF (.NOT.ANY) GO TO 1170 1160 CALL READ (*2340,*1170,GEOM1,CARD,2,NOEOR,FLAG) CALL IFP4E (CARD(1)) CALL WRITE (SCRT1,CARD,2,NOEOR) GO TO 1160 C C NOW OUTPUT SEQGP CARDS FOR HARMONICS OF EACH RINGFL. C 1170 DO 1190 I = II,NI INDEX = Z(I)*500000 NTEMP = Z(I) - 1 DO 1180 K = IRING,NRING,4 CARD(1) = Z(K) + INDEX CARD(2) = Z(K)*1000 + NTEMP CALL WRITE (SCRT1,CARD,2,NOEOR) 1180 CONTINUE 1190 CONTINUE 1200 CALL WRITE (SCRT1,0,0,EOR) C C COPY BALANCE OF GEOM1 TO SCRT1 (IF ANY MORE, WRAP UP, AND COPY C BACK) C 1210 CALL IFP4B(GEOM1,SCRT1,ANY,Z(NRING+1),CORE-NRING,MONES,G1EOF) C C IF THERE ARE NO HARMONICS THEN ONLY GRID CARDS ARE CREATED FROM C GRIDB CARDS. C C IF (.NOT. HARMS) GO TO 2300 C === IF (.NOT. HARMS) SHOULD NOT GO TO 2300 HERE === G.CHAN/UNISYS 86 C C END OF GEOM1 PROCESSING C C BEGIN GEOM2 PROCESSING C ********************** C C OPEN GEOM2, AND SCRT1. COPY HEADER FROM GEOM2 TO SCRT1. C CALL IFP4C (GEOM2,SCRT1,Z(BUF2),Z(BUF3),G2EOF) C C PROCESS CFLUID2, CFLUID3, AND CFLUID4 CARDS. C DO 1410 I = 1,3 I2 = 2*I CALL LOCATE (*1410,Z(BUF1),CFLUID(I2-1),FLAG) C C COPY DATA FROM GEOM2 TO SCRT1 UP TO POINT WHERE CFLUID CARDS GO C AND WRITE 3-WORD RECORD ID. C CALL IFP4B (GEOM2,SCRT1,ANY,Z(NI+1),CORE-NI,CFLUID(2*I-1),G2EOF) 1300 CALL READ (*2320,*1400,AXIC,CARD,I+4,NOEOR,FLAG) IF (CARD(I+3) .NE. 1) GO TO 1330 IF (IDRHO .NE. 1) GO TO 1320 NOGO = .TRUE. WRITE (OUTPUT,1310) UFM,CARD(1) 1310 FORMAT (A23,' 4058, THE FLUID DENSITY HAS NOT BEEN SPECIFIED ON ', 1 'A CFLUID CARD WITH ID =',I10, /5X, 2 'AND THERE IS NO DEFAULT ON THE AXIF CARD.') 1320 RCARD(I+3) = DRHO 1330 IF (CARD(I+4) .NE. 1) GO TO 1360 IF (IBD .NE. 1) GO TO 1350 NOGO = .TRUE. WRITE (OUTPUT,1340) UFM,CARD(1) 1340 FORMAT (A23,' 4059, THE FLUID BULK MODULUS HAS NOT BEEN SPECIFIED' 1, ' ON A CFLUID CARD WITH ID =',I10, /5X,'AND THERE IS NO ', 2 'DEFAULT ON THE AXIF CARD.') 1350 RCARD(I+4) = BD C C OUTPUT N IMAGES. C 1360 NTEMP = I+2 DO 1370 K = 1,NTEMP 1370 SAVEID(K) = CARD(K) C DO 1390 K = II,NI CARD(1) = SAVEID(1)*1000 + Z(K) INDEX = 500000*Z(K) DO 1380 L = 2,NTEMP CARD(L) = SAVEID(L) + INDEX 1380 CONTINUE CARD(NTEMP+3) = (Z(K)-1)/2 CALL WRITE (SCRT1,CARD,NTEMP+3,NOEOR) 1390 CONTINUE GO TO 1300 C C END OF CFLUID DATA C 1400 CALL WRITE (SCRT1,0,0,EOR) 1410 CONTINUE C C CONSTRUCTION OF FSLIST TABLE IN CORE 3-WORDS/ENTRY C IFSLST = NI + 1 NFSLST = NI CALL LOCATE (*1600,Z(BUF1),FSLST,FLAG) 1420 CALL READ (*2320,*1490,AXIC,RHOB,1,NOEOR,FLAG) IF (IRHOB .NE. 1) GO TO 1450 IF (IDRHO .NE. 1) GO TO 1440 NOGO = .TRUE. WRITE (OUTPUT,1430) UFM 1430 FORMAT (A23,' 4048, THE FLUID DENSITY HAS NOT BEEN SPECIFIED ON ', 1 'AN FSLIST CARD AND', /5X,'THERE IS NO DEFAULT FLUID ', 2 'DENSITY SPECIFIED ON THE AXIF CARD.') RHOB = 1.0 GO TO 1450 1440 RHOB = DRHO 1450 CALL READ (*2320,*2330,AXIC,IDF,1,NOEOR,FLAG) IF (IDF .EQ. 0) IDF = -1 1460 CALL READ (*2320,*2330,AXIC,IDFAFT,1,NOEOR,FLAG) IF (IDFAFT .EQ. -1) IDFAFT = -2 IF (IDFAFT .EQ. 0) IDFAFT = -1 IF (NFSLST+3 .LE. CORE) GO TO 1480 WRITE (OUTPUT,1470) UFM 1470 FORMAT (A23,' 4049, INSUFFICIENT CORE TO BUILD FREE SURFACE ', 1 'LIST TABLE.') ICRQ = NFSLST + 3 - CORE WRITE (OUTPUT,20) ICRQ GO TO 2310 1480 Z(NFSLST+1) = IDF Z(NFSLST+2) = IDFAFT RZ(NFSLST+3)= RHOB NFSLST = NFSLST + 3 IF (IDFAFT .EQ. -2) GO TO 1420 IDF = IDFAFT GO TO 1460 C C TABLE IS COMPLETE. COPY GEOM2 DATA TO SCRT1 UP TO CFSMASS RECORD C SLOT C 1490 IF (NFSLST .GT. IFSLST) GO TO 1510 NOGO = .TRUE. WRITE (OUTPUT,1500) UFM 1500 FORMAT (A23,' 4050, FSLIST CARD HAS INSUFFICIENT IDF DATA, OR ', 1 'FSLIST DATA MISSING.') GO TO 1600 1510 CALL IFP4B(GEOM2,SCRT1,ANY,Z(NFSLST+1),CORE-NFSLST,CFSMAS,G2EOF) ENTRYS =(NFSLST-IFSLST+1)/3 K = 0 DO 1530 I = IFSLST,NFSLST,3 IF (Z(I+1) .EQ. -2) GO TO 1530 K = K + 1000000 RCARD(4) = RZ(I+2)*G DO 1520 L = II,NI INDEX = 500000*Z(L) CARD(1) = K + Z(L) CARD(2) = Z(I) + INDEX IF (Z(I) .LE. 0) CARD(2) = Z(I+1) + INDEX CARD(3) = Z(I+1) + INDEX IF (Z(I+1) .LE. 0) CARD(3) = Z(I) + INDEX CARD(5) = (Z(L)-1)/2 CALL WRITE (SCRT1,CARD,5,NOEOR) 1520 CONTINUE 1530 CONTINUE CALL WRITE (SCRT1,0,0,EOR) C C BEGIN GEOM4 PROCESSING C ********************** C C OPEN GEOM4 AND SCRT2 AND COPY HEADER RECORD FROM GEOM4 TO SCRT2. C 1600 CALL IFP4C (GEOM4,SCRT2,Z(BUF4),Z(BUF5),G4EOF) C C COPY ALL DATA ON GEOM4 TO SCRT2 UP TO AND INCLUDING 3-WORD RECORD C HEADER OF MPC-RECORD. C CALL IFP4B (GEOM4,SCRT2,ANY,Z(NFSLST+1),CORE-NFSLST,MPC,G4EOF) C C COPY ANY MPC IMAGES HAVING A SET ID .LT. 103 TO SCRT2. ERROR C MESSAGE IF ANY HAVE ID = 102. MAINTAIN A LIST OF SETID-S LESS C THAN 102. C IMPC = NFSLST + 1 NMPC = NFSLST IDLAST = 0 FILE = GEOM4 SET 102 = .FALSE. IF (.NOT.ANY) GO TO 1650 C C PICK UP SET ID C 1610 CALL READ (*2340,*1650,GEOM4,ID,1,NOEOR,FLAG) IF (ID .GT. 102) GO TO 1660 IF (ID .NE. 102) GO TO 1630 NOGO = .TRUE. WRITE (OUTPUT,1620) UFM 1620 FORMAT (A23,' 4051, AN MPC CARD HAS A SET ID SPECIFIED = 102. ', 1 ' SET 102 IS ILLEGAL WHEN FLUID DATA IS PRESENT.') 1630 CALL WRITE (SCRT2,ID,1,NOEOR) C C ADD ID TO LIST IF NOT IN LIST C IF (ID .EQ. IDLAST) GO TO 1640 NMPC = NMPC + 1 Z(NMPC) = ID C C 3 WORD GROUPS C 1640 CALL READ (*2340,*2350,GEOM4,CARD,3,NOEOR,FLAG) CALL WRITE (SCRT2,CARD,3,NOEOR) IF (CARD(1) .EQ. -1) GO TO 1610 GO TO 1640 C C NOW POSITIONED TO OUTPUT MPC CARDS FOR SET 102 C 1650 ID = 0 C C IF G FROM AXIF CARD IS NON-ZERO FREEPT DATA IS NOW PROCESSED. C 1660 ISPNT = NMPC + 1 NSPNT = NMPC PRESS = .FALSE. IF (G .EQ. 0.0) GO TO 1780 C C IF THERE IS NO FREE SURFACE LIST, FREEPT CARDS ARE NOT USED. C IF (NFSLST .LT. IFSLST) GO TO 1780 CALL SORT (0,0,3,1,Z(IFSLST),NFSLST-IFSLST+1) CALL LOCATE (*1780,Z(BUF1),FREEPT,FLAG) C C PICK UP A 3-WORD FREEPT OR PRESPT IMAGE (IDF,IDP,PHI) C 1670 CALL READ (*2320,*1770,AXIC,CARD,3,NOEOR,FLAG) C C START MPC CARD C ANGLE = RCARD(3)*DEGRAD IDF = CARD(1) CARD(1) = 102 CARD(3) = 0 IF (PRESS) GO TO 1700 C C LOOK UP RHOB IN FSLIST TABLE C CALL BISLOC (*1680,IDF,Z(IFSLST),3,ENTRYS,POINT) NTEMP = IFSLST + POINT + 1 RCARD(4) = -ABS(RZ(NTEMP)*G) GO TO 1710 1680 NOGO = .TRUE. WRITE (OUTPUT,1690) UFM,IDF 1690 FORMAT (A23,' 4052, IDF =',I10,' ON A FREEPT CARD DOES NOT ', 1 'APPEAR ON ANY FSLIST CARD.') GO TO 1710 1700 RCARD(4) = -1.0 1710 CALL WRITE (SCRT2,CARD,4,NOEOR) SET102 = .TRUE. C C ADD SPOINT TO CORE LIST C IF (NSPNT+1 .LE. CORE) GO TO 1730 WRITE (OUTPUT,1720) UFM 1720 FORMAT (A23,' 4053, INSUFFICIENT CORE TO PERFORM OPERATIONS ', 1 'REQUIRED AS A RESULT OF FREEPT OR PRESPT DATA CARDS') ICRQ = NSPNT + 1 - CORE WRITE (OUTPUT,20) ICRQ GO TO 2310 1730 NSPNT = NSPNT + 1 Z(NSPNT) = CARD(2) CARD(2) = 0 C C HARMONIC COEFFICIENT DATA C DO 1760 I = II,NI CARD(1) = 500000*Z(I) + IDF NN = (Z(I)-1)/2 IF (MOD(Z(I),2) .EQ. 0) GO TO 1740 RCARD(3) = SIN(FLOAT(NN)*ANGLE) GO TO 1750 1740 RCARD(3) = COS(FLOAT(NN)*ANGLE) 1750 CALL WRITE (SCRT2,CARD,3,NOEOR) 1760 CONTINUE CALL WRITE (SCRT2,MONES,3,NOEOR) GO TO 1670 C C CREATE MPC CARDS AND SPOINTS AS A RESULT OF PRESPT DATA. C 1770 IF (PRESS) GO TO 1790 1780 CALL LOCATE (*1790,Z(BUF1),PRESPT,FLAG) PRESS = .TRUE. GO TO 1670 C C ANY SPOINTS IN CORE ARE AT THIS TIME OUTPUT TO GEOM2. C 1790 IF (NSPNT .LT. ISPNT) GO TO 1830 C C COPY DATA FROM GEOM2 TO SCRT1 UP TO AND INCLUDING THE 3-WORD C RECORD HEADER FOR SPOINTS C FILE = GEOM2 CALL IFP4B (GEOM2,SCRT1,ANY,Z(NSPNT+1),CORE-NSPNT,SPOINT,G2EOF) IF (.NOT.ANY) GO TO 1820 1800 CALL READ (*2340,*1810,GEOM2,Z(NSPNT+1),CORE-NSPNT,NOEOR,FLAG) CALL WRITE (SCRT1,Z(NSPNT+1),CORE-NSPNT,NOEOR) GO TO 1800 1810 CALL WRITE (SCRT1,Z(NSPNT+1),FLAG,NOEOR) 1820 CALL WRITE (SCRT1,Z(ISPNT),NSPNT-ISPNT+1,EOR) C C COPY BALANCE OF GEOM2 TO SCRT1,CLOSE THEM, AND SWITCH DESIGNATIONS C 1830 CALL IFP4B (GEOM2,SCRT1,ANY,Z(NMPC+1),CORE-NMPC,-1,G2EOF) C C END OF GEOM2 PROCESSING C *********************** C C COPY BALANCE OF MPC IMAGES ON GEOM4 TO SCRT2, COMPLETE LIST OF MPC C SETS. C FILE = GEOM4 IF (ID .EQ. 0) GO TO 1930 GO TO 1910 C C 3-WORD GROUPS C 1900 CALL READ (*2340,*2350,GEOM4,CARD,3,NOEOR,FLAG) CALL WRITE (SCRT2,CARD,3,NOEOR) IF (CARD(1) .NE. -1) GO TO 1900 CALL READ (*2340,*1930,GEOM4,ID,1,NOEOR,FLAG) 1910 IF (ID .EQ. IDLAST) GO TO 1920 C C ADD ID TO LIST C IDLAST = ID NMPC = NMPC + 1 Z(NMPC)= ID 1920 CALL WRITE (SCRT2,ID,1,NOEOR) GO TO 1900 1930 CALL WRITE (SCRT2,0,0,EOR) TYPE(1) = MPCADD(1) TYPE(2) = MPCADD(2) C C GENERATION OF MPCADD OR SPCADD CARDS FROM USER ID-S. FIRST C OUTPUT MANDATORY MPCADD OR SPCADD. C 1940 CALL IFP4F (TYPE(2),GEOM4,BIT) IF (.NOT.SET102 .AND. NMPC.LT.IMPC .AND. .NOT.BIT) GO TO 2020 CALL IFP4B (GEOM4,SCRT2,ANY,Z(NMPC+1),CORE-NMPC,TYPE,G4EOF) IF (.NOT. SET102) GO TO 1950 CARD(1) = 200000000 CARD(2) = 102 CARD(3) = -1 CALL WRITE (SCRT2,CARD,3,NOEOR) C C NOW FROM USER ID-S C 1950 IF (NMPC .LT. IMPC) GO TO 1980 DO 1970 I = IMPC,NMPC CARD(1) = Z(I) + 200000000 CARD(2) = Z(I) NN = 3 IF (.NOT.SET102) GO TO 1960 CARD(3) = 102 NN = 4 1960 CARD(NN) = -1 CALL WRITE (SCRT2,CARD,NN,NOEOR) 1970 CONTINUE C C IF USER MPCADD OR SPCADD CARDS ARE PRESENT, NOW CHANGE THEIR ID-S C AND ADD THE 102 SET IF IT EXISTS. C 1980 IF (.NOT.ANY) GO TO 2010 1990 CALL READ (*2340,*2010,GEOM4,ID,1,NOEOR,FLAG) ID = ID + 200000000 CALL WRITE (SCRT2,ID,1,NOEOR) IF (SET102) CALL WRITE (SCRT2,102,1,NOEOR) 2000 CALL READ (*2340,*2350,GEOM4,ID,1,NOEOR,FLAG) CALL WRITE (SCRT2,ID,1,NOEOR) IF (ID .EQ. -1) GO TO 1990 GO TO 2000 C 2010 CALL WRITE (SCRT2,0,0,EOR) 2020 IF (TYPE(1) .EQ. SPCADD(1)) GO TO 2270 C C START LIST OF SPC AND SPC1 ID-S C ISPC = NFSLST + 1 NSPC = NFSLST SET102 = .FALSE. IDLAST = 0 C C CHECK BIT FOR SPC CARDS C CALL IFP4F (SPC(2),GEOM4,BIT) IF (.NOT.BIT) GO TO 2080 C C COPY GEOM4 TO SCRT2 UP TO SPC CARDS C CALL IFP4B (GEOM4,SCRT2,ANY,Z(ISPC),CORE-ISPC,SPC,G4EOF) C C COPY SPC IMAGES KEEPING LIST OF ID-S. C 2030 CALL READ (*2340,*2070,GEOM4,ID,1,NOEOR,FLAG) IF (ID .EQ. IDLAST) GO TO 2060 IF (ID .NE. 102) GO TO 2050 NOGO = .TRUE. WRITE (OUTPUT,2040) UFM 2040 FORMAT (A23,' 4055, SET ID = 102 MAY NOT BE USED FOR SPC CARDS ', 1 'WHEN USING THE HYDROELASTIC-FLUID ELEMENTS.') GO TO 2060 2050 NSPC = NSPC + 1 Z(NSPC) = ID IDLAST = ID 2060 CALL WRITE (SCRT2,ID,1,NOEOR) CALL READ (*2340,*2350,GEOM4,CARD,3,NOEOR,FLAG) CALL WRITE (SCRT2,CARD,3,NOEOR) GO TO 2030 2070 CALL WRITE (SCRT2,0,0,EOR) C C CHECK FOR ANY SPC1 IMAGES C 2080 CALL IFP4F (SPC1(2),GEOM4,BIT) IF (.NOT.BIT .AND. G.NE.0.0) GO TO 2260 C C COPY FROM GEOM4 TO SCRT2 UP TO SPC1 DATA. C CALL IFP4B(GEOM4,SCRT2,ANY,Z(NSPC+1),CORE-NSPC-2,SPC1,G4EOF) C C COPY SPC1-S UP TO SETID .GE. 103. SET 102 IS ILLEGAL FOR USER. C IF (.NOT.BIT) GO TO 2150 2090 CALL READ (*2340,*2150,GEOM4,ID,1,NOEOR,FLAG) IF (ID. LT. 102) GO TO 2100 IF (ID .NE. 102) GO TO 2160 NOGO = .TRUE. WRITE (OUTPUT,2040) UFM C C ADD ID TO LIST IF NOT YET IN LIST C 2100 IF (NSPC .LT. ISPC) GO TO 2120 DO 2110 I = ISPC,NSPC IF (ID .EQ. Z(I)) GO TO 2130 2110 CONTINUE C C ADD ID TO LIST C 2120 NSPC = NSPC + 1 Z(NSPC) = ID 2130 CALL WRITE (SCRT2,ID,1,NOEOR) CALL READ (*2340,*2350,GEOM4,ID,1,NOEOR,FLAG) CALL WRITE (SCRT2,ID,1,NOEOR) 2140 CALL READ (*2340,*2350,GEOM4,ID,1,NOEOR,FLAG) CALL WRITE (SCRT2,ID,1,NOEOR) IF (ID .EQ. -1) GO TO 2090 GO TO 2140 C C IF G IS ZERO AND THERE ARE FSLST ENTRIES, GENERATE SPC1-S NOW. C 2150 ID = 0 2160 IF (G.NE.0.0 .OR. NFSLST.LT.IFSLST) GO TO 2190 C C GENERATION OF HARMONIC SPC1-S C DO 2180 I = IFSLST,NFSLST,3 IF (Z(I) .EQ. -1) GO TO 2180 CARD(1) = 102 CARD(2) = 0 CALL WRITE (SCRT2,CARD,2,NOEOR) DO 2170 J = II,NI CALL WRITE (SCRT2,Z(I)+500000*Z(J),1,NOEOR) 2170 CONTINUE CALL WRITE (SCRT2,MINUS1,1,NOEOR) 2180 CONTINUE SET102 = .TRUE. C C COMPLETE COPYING OF SPC1 CARDS TO SCRT2 WITH SETID-S .GE. 103 C 2190 IF (ID .EQ. 0) GO TO 2250 C C ADD ID TO LIST IF NOT YET IN C IF (NSPC .LT. ISPC) GO TO 2220 2200 DO 2210 I = ISPC,NSPC IF (ID .EQ. Z(I)) GO TO 2230 2210 CONTINUE C C ID NOT IN LIST, THUS ADD IT. C 2220 NSPC = NSPC + 1 Z(NSPC) = ID C C CONTINUE COPYING DATA TO NEXT ID C 2230 CALL WRITE (SCRT2,ID,1,NOEOR) 2240 CALL READ (*2340,*2350,GEOM4,ID,1,NOEOR,FLAG) CALL WRITE (SCRT2,ID,1,NOEOR) IF (ID .NE. -1) GO TO 2240 CALL READ (*2340,*2250,GEOM4,ID,1,NOEOR,FLAG) GO TO 2200 C C END OF SPC1 CARD IMAGES. C 2250 CALL WRITE (SCRT2,0,0,EOR) C C SORT LIST OF SPC AND SPC1 ID-S C CALL SORT (0,0,1,1,Z(ISPC),NSPC-ISPC+1) C C SPCADD WORK (USE MPCADD LOGIC) C 2260 TYPE(1) = SPCADD(1) TYPE(2) = SPCADD(2) IMPC = ISPC NMPC = NSPC GO TO 1940 C C ALL PROCESSING COMPLETE ON GEOM4 C 2270 CALL IFP4B (GEOM4,SCRT2,ANY,Z(1),CORE,MONES,G4EOF) C C END OF GEOM4 PROCESSING C *********************** C C AXIC FILE NOT IN FIST OR AXIF CARD IS MISSING, THUS DO NOTHING. C 2300 CALL CLOSE (AXIC,CLSREW) CALL CONMSG (MSG2,2,0) RETURN C C FATAL ERROR NO MORE PROCESSING POSSIBLE C 2310 NOGO = .TRUE. GO TO 2300 C C END OF FILE ON AXIC C 2320 FILE = AXIC GO TO 2340 C C END OF RECORD ON AXIC C 2330 FILE = AXIC GO TO 2350 C C END OF FILE OR END OF RECORD ON -FILE-, OR FILE NOT IN FIST. C 2340 IER = -2 GO TO 2390 2350 IER = -3 GO TO 2390 2360 IER = -1 GO TO 2390 2370 IER = -8 FILE = ICRQ GO TO 2390 2380 IER = -37 2390 CALL MESAGE (IER,FILE,SUBR) RETURN END ================================================ FILE: mis/ifp4b.f ================================================ SUBROUTINE IFP4B (FILE,SCRT,ANY,SPACE,LSPACE,RECID,EOF) C C THIS ROUTINE, CALLED BY IFP4, COPIES DATA FROM -FILE- TO -SCRT- C UP TO THE -RECID- SPECIFIED IF IT EXISTS AND COPIES THE -RECID- C IN ANY EVENT. -ANY- IS SET TRUE IF THE -RECID- WAS FOUND. C -EOF- IS SET TRUE AS SOON AS AN END OF FILE IS HIT ON -FILE-. C -SPACE- IS A WORKING AREA OF LENGTH -LSPACE-. IF RECID(1) = -1, C THE BALANCE OF -FILE- IS COPIED TO -SCRT- AND THEN -FILE- IS C REWOUND AND -SCRT- IS COPIED BACK ONTO -FILE-. BOTH FILES ARE C THEN CLOSED. C LOGICAL EOF,ANY,BIT,NOGO INTEGER FILE,SCRT,SPACE(5),RECID(2),OUTPUT,NAME(2),SYSBUF, 1 FLAG,BUF1,BUF2,REC(3),ILIMIT(3),EOR CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,OUTPUT,NOGO COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS DATA NAME , NOEOR,EOR /4HIFP4,4HB ,0,1/, 1 ILIMIT/ 3*2147483647 / C IF (RECID(1) .EQ. -1) GO TO 3000 ANY = .FALSE. C C CHECK TRAILER BIT TO SEE IF RECORD EXISTS C CALL IFP4F (RECID(2),FILE,BIT) IF (.NOT.BIT) GO TO 2000 IF (EOF) GO TO 5001 C C READ A 3-WORD RECORD ID C ANY = .TRUE. IFILE = FILE 650 CALL READ (*5001,*6002,FILE,REC(1),3,NOEOR,FLAG) CALL WRITE (SCRT,REC,3,NOEOR) IF (REC(1) .EQ. RECID(1)) RETURN C C NOT THE CORRECT RECORD, THUS COPY BALANCE OF RECORD OVER. C 750 CALL READ (*6001,*800,FILE,SPACE,LSPACE,NOEOR,FLAG) CALL WRITE (SCRT,SPACE,LSPACE,NOEOR) GO TO 750 800 CALL WRITE (SCRT,SPACE,FLAG,EOR) GO TO 650 C C RECORD DOES NOT CURRENTLY EXIST, THUS START ONE C 2000 CALL WRITE (SCRT,RECID,2,NOEOR) CALL WRITE (SCRT,0,1,NOEOR) C C PUT BIT IN TRAILER C CALL IFP4G (RECID(2),FILE) RETURN C C WRAP UP FILES C 3000 IF (EOF) GO TO 3400 3100 CALL READ (*3500,*3200,FILE,SPACE,LSPACE,NOEOR,FLAG) CALL WRITE (SCRT,SPACE,LSPACE,NOEOR) GO TO 3100 3200 CALL WRITE (SCRT,SPACE,FLAG,EOR) GO TO 3100 3400 CALL WRITE (SCRT,ILIMIT,3,EOR) C C FILE IS ALL COPIED TO SCRT. REWIND AND RETURN. C 3500 EOF = .TRUE. CALL CLOSE (SCRT,CLSREW) CALL CLOSE (FILE,CLSREW) C C COPY DATA FROM SCRT TO FILE. C BUF1 = 1 BUF2 = SYSBUF + 2 I = 2*SYSBUF + 4 J = LSPACE - I IF (I .GT. LSPACE) CALL MESAGE (-8,0,NAME) IFILE = FILE CALL OPEN (*6003,FILE,SPACE(BUF1),WRTREW) IFILE = SCRT CALL OPEN (*6003,SCRT,SPACE(BUF2),RDREW) 3800 CALL READ (*4000,*3900,SCRT,SPACE(I),J,NOEOR,FLAG) CALL WRITE (FILE,SPACE(I),J,NOEOR) GO TO 3800 3900 CALL WRITE (FILE,SPACE(I),FLAG,EOR) GO TO 3800 4000 CALL CLOSE (SCRT,CLSREW) CALL CLOSE (FILE,CLSREW) RETURN C C ERROR CONDITIONS C 5001 NOGO = .TRUE. WRITE (OUTPUT,5002) UFM,RECID(1),RECID(2),FILE 5002 FORMAT (A23,' 4056, RECORD ID =',2I10,' IS OUT OF SYNC ON DATA ', 1 'BLOCK NUMBER',I10, /5X,'AN IFP4 SYSTEM ERROR.') EOF = .TRUE. RETURN C 6001 CALL MESAGE (-2,IFILE,NAME) 6002 CALL MESAGE (-3,IFILE,NAME) 6003 CALL MESAGE (-1,IFILE,NAME) RETURN END ================================================ FILE: mis/ifp4c.f ================================================ SUBROUTINE IFP4C (FILE,SCRT,BUF1,BUF2,EOF) C C THIS ROUTINE, CALLED BY IFP4, OPENS THE 2 FILES AND COPIES THE C HEADER RECORD FROM -FILE- TO -SCRT-. C LOGICAL EOF INTEGER FILE,SCRT,BUF1(10),BUF2(10),WORK(10),FLAG,NAME(2), 1 NAME2(2),EOR,TRAIL(7) COMMON /NAMES/ RD,RDREW,WRT,WRTREW,CLSREW,CLS DATA NAME / 4HIFP4,4HC /, EOR,NOEOR/1,0/ C TRAIL(1) = FILE DO 50 I = 2,7 TRAIL(I) = 0 50 CONTINUE CALL RDTRL (TRAIL) DO 70 I = 2,7 IF (TRAIL(I)) 60,70,60 70 CONTINUE GO TO 1000 60 CALL OPEN (*1002,FILE,BUF1,RDREW) EOF = .FALSE. CALL OPEN (*2000,SCRT,BUF2,WRTREW) 80 CALL READ (*1001,*100,FILE,WORK,10,NOEOR,FLAG) CALL WRITE (SCRT,WORK,10,NOEOR) GO TO 80 100 CALL WRITE (SCRT,WORK,FLAG,EOR) RETURN C C FILE IS NULL C 1000 EOF = .TRUE. CALL OPEN (*2000,SCRT,BUF2,WRTREW) CALL FNAME (FILE,NAME2) CALL WRITE (SCRT,NAME2,2,EOR) RETURN C 2000 CALL MESAGE (-1,SCRT,NAME) 1001 CALL MESAGE (-2,FILE,NAME) 1002 CALL MESAGE (-1,FILE,NAME) RETURN END ================================================ FILE: mis/ifp4e.f ================================================ SUBROUTINE IFP4E (ID) C C IFP4E, CALLED BY IFP4, CHECKS TO SEE THAT ID IS WITHIN PERMISSABLE C RANGE OF FROM 1 TO 499999. C LOGICAL NOGO INTEGER OUTPUT CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,OUTPUT C IF (ID .LT. 1) GO TO 100 IF (ID .LE. 499999) RETURN C C ERROR C 100 NOGO = .TRUE. WRITE (OUTPUT,110) UFM,ID 110 FORMAT (A23,' 4041, ID =',I12,' IS OUT OF PERMISSIBLE RANGE OF 1', 1 ' TO 499999.') RETURN END ================================================ FILE: mis/ifp4f.f ================================================ SUBROUTINE IFP4F (IBIT,FILE,BIT) C C TEST BIT -IBIT- IN TRAILER OF DATA BLOCK -FILE- C EXTERNAL ANDF LOGICAL BIT INTEGER TWO, TRAIL(7), FILE, ANDF COMMON /TWO/ TWO(32) C TRAIL(1) = FILE CALL RDTRL (TRAIL) I1 = (IBIT-1)/16 + 2 I2 = IBIT - (I1-2)*16 + 16 IF (ANDF(TRAIL(I1),TWO(I2))) 10,20,10 10 BIT = .TRUE. RETURN 20 BIT = .FALSE. RETURN END ================================================ FILE: mis/ifp4g.f ================================================ SUBROUTINE IFP4G (IBIT,FILE) C C TURNS ON BIT -IBIT- IN TRAILER FOR DATA BLOCK -FILE- C EXTERNAL ORF INTEGER ORF, TRAIL(7), FILE, TWO COMMON/TWO/ TWO(32) C TRAIL(1) = FILE CALL RDTRL (TRAIL) I1 = (IBIT-1)/16 + 2 I2 = IBIT - (I1-2)*16 + 16 TRAIL(I1) = ORF(TRAIL(I1),TWO(I2)) TRAIL(1) = FILE CALL WRTTRL (TRAIL) RETURN END ================================================ FILE: mis/ifp5.f ================================================ SUBROUTINE IFP5 C C ACOUSTIC CAVITY PREFACE ROUTINE C C THIS PREFACE MODULE OPERATES ON ACOUSTIC-CAVITY-ANALYSIS DATA C CARDS WHICH AT THIS POINT ARE IN THE FORM OF IFP-OUTPUT IMAGES ON C THE AXIC DATA BLOCK. C C THE FOLLOWING LIST GIVES THE CARD IMAGES IFP5 WILL LOOK FOR ON THE C AXIC OR GEOM2 DATA BLOCKS, THE CARD IMAGES IFP5 WILL GENERATE OR C MODIFY, AND THE DATA BLOCKS ONTO WHICH THE GENERATED OR MODIFIED C CARD IMAGES WILL BE PLACED. C C IFP5 INPUT IFP5 OUTPUT DATA BLOCK C CARD IMAGE CARD IMAGE EFFECTED C ------------ ----------- ---------- C AXSLOT/AXIC -NONE- -NONE- C CAXIF2/GEOM2 PLOTEL GEOM2 C CAXIF3/GEOM2 PLOTEL GEOM2 C CSLOT3/GEOM2 PLOTEL GEOM2 C CSLOT4/GEOM2 PLOTEL GEOM2 C CAXIF4/GEOM2 PLOTEL GEOM2 C GRIDF/AXIC GRID GEOM1 C GRIDS/AXIC GRID GEOM1 C SLBDY/AXIC CELAS2 GEOM2 C C SOME OF THE ABOVE OUTPUT DATA CARDS ARE A FUNCTION OF MORE THAN C ONE INPUT DATA CARDS C LOGICAL G1EOF ,G2EOF ,PLOTEL ,ANY INTEGER SYSBUF ,OUTPUT ,RD ,RDREW ,CLS , 1 BUF(24) ,Z ,WRT ,WRTREW ,CLSREW , 2 CORE ,SUBR(2) ,FLAG , 3 CAXIF(6) ,CSLOT(4) ,GRID(2) ,CELAS2(2),PLOTLS(2), 4 CARD(10) ,EOR ,GRIDS(2) ,GRIDF(2) ,SLBDY(2) , 5 WORDS ,BUF1 ,BUF2 ,BUF3 ,BUF4 , 6 FILE ,GEOM1 ,GEOM2 ,SCRT1 ,SCRT2 , 7 AXSLOT(2),MSG1(2) ,MSG2(2) ,AXIC ,ENTRYS REAL RZ(4) ,RBUF(24) ,RR(3) ,ZZ(3) ,WW(3) , 1 L1 ,L2 ,L3 ,L1L2 ,KF , 2 LE ,LC ,RCARD(10) COMMON /CONDAS/ CONSTS(5) COMMON /SYSTEM/ KSYSTM(65) COMMON /NAMES / RD,RDREW ,WRT ,WRTREW ,CLSREW ,CLS COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (CONSTS(2),TWOPI) ,(KSYSTM(1),SYSBUF), 1 (KSYSTM(2),OUTPUT) ,(Z(1),RZ(1)), 2 (BUF(1),RBUF(1)) ,(CARD(1),RCARD(1)) DATA AXSLOT/ 1115, 11 / DATA SLBDY / 1415, 14 / DATA CAXIF / 2108, 21 1 , 2208, 22 2 , 2308, 23 / DATA CELAS2/ 701, 7 / DATA CSLOT / 4408, 44 1 , 4508, 45 / DATA GRID / 4501, 45 / DATA GRIDS / 1315, 13 / DATA GRIDF / 1215, 12 / DATA PLOTLS/ 5201, 52 / DATA SUBR / 4HIFP5, 4H / DATA EOR , NOEOR / 1, 0 / C C NOTE... SCRATCH2 IN IFP5 AS IN IFP4 IS EQUIVALENCED TO THE C -FORCE- DATA BLOCK. C DATA AXIC, GEOM1, GEOM2, SCRT1, SCRT2 / 215, 201, 208, 301, 213 / DATA MSG1/ 4HIFP5, 4HBEGN/, MSG2 /4HIFP5, 4HEND / C C DEFINE CORE AND BUFFER POINTERS C CALL CONMSG (MSG1,2,0) CORE = KORSZ(Z) BUF1 = CORE - SYSBUF - 2 BUF2 = BUF1 - SYSBUF - 2 BUF3 = BUF2 - SYSBUF - 2 BUF4 = BUF3 - SYSBUF - 2 CORE = BUF4 - 1 ICRQ = 100 - CORE IF (CORE .LT. 100) GO TO 980 PLOTEL = .FALSE. C C OPEN AXIC DATA BLOCK. (IF NAME IS NOT IN FIST RETURN - NO MESSAGE) C CALL PRELOC (*910,Z(BUF1),AXIC) C C PICK UP THE AXSLOT CARD AND SAVE THE VALUES ON IT. C RHOD, BD, N, WD, MD (FATAL ERROR IF NOT PRESSENT) C CALL LOCATE (*10,Z(BUF1),AXSLOT,FLAG) CALL READ (*920,*30,AXIC,Z(1),6,EOR,WORDS) 10 CALL IFP5A (1) WRITE (OUTPUT,20) 20 FORMAT (' AXSLOT DATA CARD IS NOT PRESENT OR IS INCORRECT.') C C SET VALUES FOR CONTINUING DATA CHECK C RHOD = 0.0 BD = 0.0 N = 0 WD = 1.0 MD = 0 GO TO 40 30 IF (WORDS .NE. 5) GO TO 10 RHOD = RZ(1) BD = RZ(2) J = 3 N = Z(J) WD = RZ(4) MD = Z(J+2) C C READ GRIDS DATA CARDS INTO CORE FROM AXIC DATA BLOCK. C 40 IGRIDS = 1 NGRIDS = IGRIDS - 1 CALL LOCATE (*70,Z(BUF1),GRIDS,FLAG) CALL READ (*920,*60,AXIC,Z(IGRIDS),CORE,EOR,WORDS) CALL IFP5A (2) WRITE (OUTPUT,50) 50 FORMAT (49H INSUFFICIENT CORE TO HOLD ALL GRIDS CARD IMAGES.) WRITE (OUTPUT,431) CORE GO TO 70 60 NGRIDS = NGRIDS + WORDS C C READ GRIDF DATA CARDS INTO CORE FROM AXIC DATA BLOCK. C 70 IGRIDF = NGRIDS + 1 NGRIDF = IGRIDF - 1 CALL LOCATE (*100,Z(BUF1),GRIDF,FLAG) CALL READ (*920,*90,AXIC,Z(IGRIDF),CORE-NGRIDS,EOR,WORDS) CALL IFP5A (3) WRITE (OUTPUT,80) 80 FORMAT (49H INSUFFICIENT CORE TO HOLD ALL GRIDF CARD IMAGES.) ICRQ = CORE - NGRIDS WRITE (OUTPUT,431) ICRQ GO TO 100 90 NGRIDF = NGRIDF + WORDS C C INSERT DEFAULT SLOT WIDTH INTO ANY GRIDS IMAGE HAVING NONE C SPECIFIED BY THE USER. C 100 IF (NGRIDS .LT. IGRIDS) GO TO 170 DO 110 I = IGRIDS,NGRIDS,5 IF (Z(I+3) .EQ. 1) RZ(I+3) = WD 110 CONTINUE C C CREATE A GRIDF CARD FOR EACH GRIDS DATA CARD THAT HAS A NON-ZERO C IDF C DO 140 I = IGRIDS,NGRIDS,5 IF (Z(I+4)) 140,140,130 130 NGRIDF = NGRIDF + 3 IF (NGRIDF .GT. CORE) GO TO 150 Z(NGRIDF-2) = Z(I+4) Z(NGRIDF-1) = Z(I+1) Z(NGRIDF ) = Z(I+2) 140 CONTINUE GO TO 170 150 CALL IFP5A (4) WRITE (OUTPUT,160) 160 FORMAT (' INSUFFICIENT CORE TO HOLD ALL GRIDF CARD IMAGES BEING ', 1 'CREATED INTERNALLY DUE TO GRIDS CARDS SPECIFYING AN IDF.') ICRQ = NGRIDF - CORE WRITE (OUTPUT,431) ICRQ NGRIDF = NGRIDF - 3 C C SORT THE GRIDF CARDS ON THEIR ID. C 170 IF (NGRIDF .GT. IGRIDF) 1 CALL SORT (0,0,3,1,Z(IGRIDF),NGRIDF-IGRIDF+1) C C OPEN GEOM1 AND SCRATCH1, COPY HEADER REC FROM GEOM1 TO SCRATCH1. C CALL IFP4C (GEOM1,SCRT1,Z(BUF2),Z(BUF3),G1EOF) C C COPY ALL DATA FROM GEOM1 TO SCRATCH1 UP TO FIRST GRID CARD. C CALL IFP4B (GEOM1,SCRT1,ANY,Z(NGRIDF+1),CORE-NGRIDF,GRID,G1EOF) FILE = GEOM1 C C CREATE GRID CARDS FROM GRIDS AND GRIDF CARDS. C MERGE THESE INTO EXISTING GRID CARDS CHECKING FOR DUPLICATE ID-S. C IGF = IGRIDF IDGF = 0 IGS = IGRIDS IDGS = 0 IF (IGF .LT. NGRIDF) IDGF = Z(IGF) IF (IGS .LT. NGRIDS) IDGS = Z(IGS) CARD(2) = 0 CARD(6) =-1 CARD(7) = 0 CARD(8) = 0 C C READ A GRID CARD INTO BUF. C IF (.NOT.ANY) GO TO 190 180 CALL READ (*940,*190,GEOM1,BUF,8,NOEOR,WORDS) IDG = BUF(1) GO TO 200 190 IDG = 0 C C DETERMINE WHETHER GRID, GRIDF, OR GRIDS CARD IS TO OUTPUT NEXT. C 200 IF ( IDG ) 210,210,250 210 IF ( IDGF ) 220,220,230 220 IF ( IDGS ) 390,390,370 230 IF ( IDGS ) 360,360,240 240 IF (IDGF-IDGS) 360,330,370 250 IF ( IDGF ) 260,260,280 260 IF ( IDGS ) 350,350,270 270 IF (IDG -IDGS) 350,330,370 280 IF (IDG -IDGF) 310,330,290 290 IF ( IDGS ) 360,360,300 300 IF (IDGF-IDGS) 360,330,370 310 IF ( IDGS ) 360,360,320 320 IF (IDG -IDGS) 350,330,370 C C ERROR - DUPLICATE ID-S ENCOUNTERED C 330 CALL IFP5A (10) WRITE (OUTPUT,340) IDG,IDGS,IDGF 340 FORMAT (' ONE OF THE FOLLOWING NON-ZERO IDENTIFICATION NUMBERS ', 1 'APPEARS ON SOME COMBINATION', /,' OF GRID, GRIDS, OR ', 2 'GRIDF BULK DATA CARDS.',3(6H ID=,I12)) IF (IDG .EQ. IDGF) GO TO 350 IF (IDG .EQ. IDGS) GO TO 350 GO TO 370 C C OUTPUT GRID CARD AND READ ANOTHER C 350 CALL WRITE (SCRT1,BUF,8,NOEOR) GO TO 180 C C OUTPUT A GRID FROM GRIDF CARD. C 360 CARD(1) = IDGF RCARD(3) = RZ(IGF+1) RCARD(4) = RZ(IGF+2) RCARD(5) = 0.0 IGF = IGF + 3 IF (IGF .GT. NGRIDF) IDGF = 0 IF (IDGF .NE. 0) IDGF = Z(IGF) GO TO 380 C C OUTPUT A GRID FROM GRIDS CARD. C 370 CARD(1) = IDGS RCARD(3) = RZ(IGS+1) RCARD(4) = RZ(IGS+2) RCARD(5) = RZ(IGS+3) IGS = IGS + 5 IF (IGS .GT. NGRIDS) IDGS = 0 IF (IDGS .NE. 0) IDGS = Z(IGS) 380 CALL WRITE (SCRT1,CARD,8,NOEOR) GO TO 200 C C ALL GRID CARDS HAVE BEEN OUPTUT, WRITE EOR. C 390 CALL WRITE (SCRT1,0,0,EOR) C C COPY BALANCE OF GEOM1 TO SCRT1, WRAP UP AND COPY BACK. C CALL IFP4B (GEOM1,SCRT1,ANY,Z(IGRIDF),CORE-IGRIDF,-1,G1EOF) C C SLBDY CARD IMAGES ARE NOW PROCESSED AND A BOUNDARY TABLE IS FORMED C IN CORE. EACH ENTRY IN THE TABLE CONTAINS, C C IDS , IDS , IDS , RHO, M C I I-1 I+1 C C IDS = -1 IF IDS IS THE FIRST ID ON SLBDY CARD. C I-1 I C C IDS = -1 IF IDS IS THE LAST ID ON SLBDY CARD. C I+1 I C ISLBDY = NGRIDS + 1 NSLBDY = ISLBDY - 1 CALL LOCATE (*440,Z(BUF1),SLBDY,FLAG) 400 CALL READ (*920,*440,AXIC,BUF,2,NOEOR,WORDS) RHO = RBUF(1) M = BUF(2) IDSL1 = -1 CALL READ (*920,*930,AXIC,IDS,1,NOEOR,WORDS) 410 CALL READ (*920,*930,AXIC,IDSP1,1,NOEOR,WORDS) C C PLACE 5 WORD ENTRY INTO CORE C NSLBDY = NSLBDY + 5 IF (NSLBDY .GT. CORE) GO TO 420 Z(NSLBDY-4) = IDS Z(NSLBDY-3) = IDSL1 Z(NSLBDY-2) = IDSP1 RZ(NSLBDY-1) = RHO Z(NSLBDY ) = M IDSL1 = IDS IDS = IDSP1 IF (IDSP1+1) 410,400,410 C C OUT OF CORE C 420 CALL IFP5A (5) WRITE (OUTPUT,430) 430 FORMAT (' INSUFFICIENT CORE TO CONSTRUCT ENTIRE BOUNDARY TABLE ', 1 'FOR SLBDY CARDS PRESENT.') ICRQ = NSLBDY - CORE WRITE (OUTPUT,431) ICRQ 431 FORMAT (5X,24HADDITIONAL CORE NEEDED =,I8,7H WORDS.) NSLBDY = NSLBDY - 5 C C SKIP BALANCE OF SLBDY DATA. C CALL READ (*920,*440,AXIC,BUF,1,EOR,WORDS) C C SORT BOUNDARY TABLE ON IDS . (FIRST WORD OF EACH ENTRY) C I C 440 IF (NSLBDY .GT. ISLBDY) 1 CALL SORT (0,0,5,1,Z(ISLBDY),NSLBDY-ISLBDY+1) C///// C CALL BUG (10H BOUNDRY ,440,Z(ISLBDY),NSLBDY-ISLBDY+1) C C OPEN GEOM2, OPEN SCRATCH2, COPY HEADER REC FROM GEOM2 TO SCRATCH2. C FILE = GEOM2 CALL IFP4C (GEOM2,SCRT2,Z(BUF2),Z(BUF3),G2EOF) C C OPEN SCRATCH1, FOR TEMPORARY OUTPUT OF PLOTEL IMAGES CREATED FROM C CAXIF2, CAXIF3, CAXIF4, CSLOT3, AND CSLOT4 CARDS. C FILE = SCRT1 CALL OPEN (*960,SCRT1,Z(BUF4),WRTREW) C C CREATE PLOTEL IMAGES FROM CAXIF2, CAXIF3, AND CAXIF4 AT THIS TIME C FILE = GEOM2 DO 490 I = 1,3 IBASE = (I-1)*1000000 IF (I .EQ. 3) IBASE = 4000000 K = 2*I - 1 K4 = I + 5 C C CHECK TRAILER TO SEE IF CAXIF(I+1) EXISTS C CALL IFP4F (CAXIF(K+1),GEOM2,ANY) IF (.NOT.ANY) GO TO 490 C C COPY ALL DATA FROM GEOM2 TO SCRATCH2 UP TO FIRST CAXIF(I+1) IMAGE. C CALL IFP4B(GEOM2,SCRT2,ANY,Z(NSLBDY+1),CORE-NSLBDY,CAXIF(K),G2EOF) IF (.NOT.ANY) GO TO 1610 C C COPY EACH IMAGE TO SCRATCH2 AND CREATE PLOTELS AT SAME TIME. C 460 CALL READ (*940,*480,GEOM2,BUF,K4,NOEOR,WORDS) CALL WRITE (SCRT2,BUF,K4,NOEOR) NLINES = I + 1 IF (I .EQ. 1) NLINES = 1 DO 470 J = 1,NLINES CARD(1) = BUF(1) + IBASE + J*1000000 CARD(2) = BUF(J+1) JJ = J + 1 IF (JJ.GT.NLINES .AND. NLINES.NE.1) JJ = 1 CARD(3) = BUF(JJ+1) CALL WRITE (SCRT1,CARD,3,NOEOR) 470 CONTINUE PLOTEL = .TRUE. GO TO 460 C C END OF RECORD HIT ON GEOM2. COMPLETE RECORD ON SCRATCH2 C 480 CALL WRITE (SCRT2,0,0,EOR) 490 CONTINUE C C COPY ALL DATA FROM GEOM2 TO SCRATCH2 UP TO FIRST CELAS2 CARD C IMAGE. C CALL IFP4B (GEOM2,SCRT2,ANY,Z(NSLBDY+1),CORE-NSLBDY,CELAS2,G2EOF) C C COPY ANY CELAS2 DATA CARDS, MAKE SURE ALL ID ARE LESS THAN C 10000001. C IF (.NOT.ANY) GO TO 540 510 CALL READ (*940,*540,GEOM2,BUF,8,NOEOR,WORDS) IF (BUF(1) .LT. 10000001) GO TO 530 CALL IFP5A (6) WRITE (OUTPUT,520) BUF(1) 520 FORMAT (' CELAS2 DATA CARD HAS ID =',I14, 1 ', WHICH IS GREATER THAN 10000000,', /,' AND 10000000 IS THE ', 2 'LIMIT FOR CELAS2 ID WITH ACOUSTIC ANALYSIS DATA CARDS PRESENT') 530 CALL WRITE (SCRT2,BUF,8,NOEOR) GO TO 510 C C OUTPUT THREE CELAS2 IMAGES FOR EACH ENTRY IN THE BOUNDARY TABLE. C 540 IF (NSLBDY .LT. ISLBDY) GO TO 800 ENTRYS = (NGRIDS-IGRIDS+1)/5 C///// C CALL BUG(10H BOUNDRY ,540,Z(ISLBDY),NSLBDY-ISLBDY+1) C CALL BUG(10H GRIDS ,540,Z(IGRIDS),NGRIDS-IGRIDS+1) IDE = 10000000 DO 790 I = ISLBDY,NSLBDY,5 C C FIND R, Z, W FOR IDS , IDS , IDS RESPECTIVELY. C I I-1 I+1 C K = 0 IS1 = I IS3 = I + 2 DO 600 J = IS1,IS3 K = K + 1 IF (Z(J) ) 570,580,550 550 IF (ENTRYS) 580,580,560 560 KID = Z(J) CALL BISLOC (*580,KID,Z(IGRIDS),5,ENTRYS,JPOINT) NTEMP = IGRIDS + JPOINT C C NTEMP NOW POINTS TO THE SECOND WORD OF THE GRIDS ENTRY HAVING C THE ID SPECIFIED BY Z(J). (1ST,2ND,OR 3RD ID IN SLBDY ENTRY) C C C NO CELAS2 CARDS ARE GENERATED IF GRIDS FOR IDS HAS NO IDF. C I C IF (K .EQ. 1) IDF = Z(NTEMP+3) IF (K.EQ.1 .AND. IDF.LE.0) GO TO 790 RR(K) = RZ(NTEMP ) ZZ(K) = RZ(NTEMP+1) WW(K) = RZ(NTEMP+2) GO TO 600 C C IDS = -1 C 570 RR(K) = RR(1) ZZ(K) = ZZ(1) WW(K) = WW(1) GO TO 600 C C IDS COULD NOT BE FOUND IN GRIDS ENTRYS. C 580 CALL IFP5A (7) WRITE (OUTPUT,590) Z(J) 590 FORMAT (11H SLBDY ID =,I12, 1 ' DOES NOT APPEAR ON ANY GRIDS DATA CARD.') RR(K) = 0.0 ZZ(K) = 0.0 WW(K) = 0.0 600 CONTINUE C C COMPUTE GEOMETRY AND OTHER DATA. C L1 = SQRT((ZZ(3)-ZZ(1))**2 + (RR(3)-RR(1))**2) L2 = SQRT((ZZ(2)-ZZ(1))**2 + (RR(2)-RR(1))**2) L3 = SQRT((ZZ(3)-ZZ(2))**2 + (RR(3)-RR(2))**2)/2.0 C L1L2 = (L1 + L2)*4.0 IF (L1L2) 610,610,630 C C ERROR, ZERO OR NEGATIVE LENGTH C 610 CALL IFP5A (8) WRITE (OUTPUT,620) Z(I),Z(I+1),Z(I+2) 620 FORMAT (' ONE OR MORE OF THE FOLLOWING ID-S NOT EQUAL TO -1 HAVE', 1 ' INCORRECT OR NO GEOMETRY DATA',/3(10X,4HID = ,I10)) GO TO 790 C C COMPUTE W-BAR AND R-BAR C 630 WBAR = (L1*WW(3) + L2*WW(2))/L1L2 + 0.75*WW(1) RBAR = (L1*RR(3) + L2*RR(2))/L1L2 + 0.75*RR(1) C IF (WBAR ) 640,610,640 640 IF (RBAR ) 650,610,650 650 IF (Z(I+4)) 660,740,660 C C COMPUTE BETA,LC C 660 BETA = (TWOPI*RBAR)/(FLOAT(Z(I+4))*WBAR) IF (BETA - 1.0) 610,610,670 670 BL1 = BETA - 1.0 BP1 = BETA + 1.0 LC = WBAR/TWOPI LC = LC*((BETA+1.0/BETA)*ALOG(BP1/BL1) + 1 2.0*ALOG(BP1*BL1/(4.0*BETA))) TERM = 0.01*WBAR LE = AMAX1(LC,TERM) IF (LE) 680,610,680 680 IF (RZ(I+3)) 710,690,710 690 CALL IFP5A (9) WRITE (OUTPUT,700) Z(I) 700 FORMAT (' RHO AS SPECIFIED ON SLBDY OR AXSLOT CARD IS 0.0 FOR ID', 1 ' =',I12) GO TO 790 C C FIND F = M, IF N=0 OR N=M/2 OTHERWISE F = M/2 C I I C 710 IF (N.EQ.0 .OR. 2*N.EQ.Z(I+4)) GO TO 720 FI = FLOAT(Z(I+4))/2.0 GO TO 730 720 FI = Z(I+4) 730 KF = (WBAR*L3*FI)/(RZ(I+3)*LE) GO TO 750 C C M = 0, THUS K = 0.0 C F C 740 KF = 0.0 C C N WBAR C SIN( ------ ) C 2 RBAR C COMPUTE ALPHA = -------------- C N WBAR C ( ------ ) C 2 RBAR C 750 TERM = (FLOAT(N)*WBAR)/(2.0*RBAR) IF (TERM) 760,770,760 760 ALPHA = SIN(TERM)/TERM GO TO 780 770 ALPHA = 1.0 C C OUTPUT THE 3 CELAS2 CARDS C 780 BUF( 1) = IDE + 1 RBUF(2) = KF*(1.0 - ALPHA) BUF( 3) = Z(I) BUF( 4) = 0 BUF( 5) = 1 BUF( 6) = 0 BUF( 7) = 0 BUF( 8) = 0 BUF( 9) = IDE + 2 RBUF(10)= KF*ALPHA BUF(11) = Z(I) BUF(12) = IDF BUF(13) = 1 BUF(14) = 1 BUF(15) = 0 BUF(16) = 0 BUF(17) = IDE + 3 RBUF(18)= KF*ALPHA*(ALPHA - 1.0) BUF(19) = IDF BUF(20) = 0 BUF(21) = 1 BUF(22) = 0 BUF(23) = 0 BUF(24) = 0 CALL WRITE (SCRT2,BUF,24,NOEOR) IDE = IDE + 3 790 CONTINUE C C COMPLETE THE CELAS2 RECORD. C 800 CALL WRITE (SCRT2,0,0,EOR) C C CREATE PLOTEL IMAGES FROM CSLOT3, AND CSLOT4 AT THIS TIME IF ANY C DO 840 I = 1,2 IBASE = 3000000*I + 5000000 K = 2*I - 1 K6 = I + 7 C C CHECK TRAILER BIT TO SEE IF CSLOT(I+2) EXISTS. C CALL IFP4F (CSLOT(K+1),GEOM2,ANY) IF (.NOT.ANY) GO TO 840 C C COPY ALL DATA FROM GEOM2 TO SCRATCH2 UP TO FIRST CSLOT(I+2) IMAGE. C CALL IFP4B (GEOM2,SCRT2,ANY,Z(IGRIDS),CORE-IGRIDS,CSLOT(K),G2EOF) IF (.NOT.ANY) GO TO 1610 C C COPY EACH IMAGE TO SCRATCH2 AND CREATE PLOTELS AT SAME TIME. C 810 CALL READ (*940,*830,GEOM2,BUF,K6,NOEOR,WORDS) CALL WRITE (SCRT2,BUF,K6,NOEOR) NLINES = I + 2 DO 820 J = 1,NLINES CARD(1) = BUF(1) + IBASE + J*1000000 CARD(2) = BUF(J+1) JJ = J + 1 IF (JJ .GT. NLINES) JJ = 1 CARD(3) = BUF(JJ+1) CALL WRITE (SCRT1,CARD,3,NOEOR) 820 CONTINUE PLOTEL = .TRUE. GO TO 810 C C END OF RECORD ON GEOM2. COMPLETE RECORD ON SCRATCH2. C 830 CALL WRITE (SCRT2,0,0,EOR) 840 CONTINUE C C APPEND PLOTELS ON SCRATCH1 TO ANY PLOTELS ON GEOM2. C MAKE SURE ALL PLOTEL ID-S ARE .LE. 1000000 C /// ID CHECK NOT IN YET. C POSITION TO PLOTELS ON GEOM2 IF ANY ARE ON SCRATCH1 C IF (.NOT. PLOTEL) GO TO 900 CALL IFP4B (GEOM2,SCRT2,ANY,Z(IGRIDS),CORE-IGRIDS,PLOTLS,G2EOF) IF (.NOT.ANY) GO TO 870 C C BLAST COPY PLOTELS FROM GEOM2 TO SCRATCH2 C 850 CALL READ (*940,*860,GEOM2,Z(IGRIDS),CORE-IGRIDS,NOEOR,WORDS) CALL WRITE (SCRT2,Z(IGRIDS),CORE-IGRIDS,NOEOR) GO TO 850 860 CALL WRITE (SCRT2,Z(IGRIDS),WORDS,NOEOR) C C CLOSE AND OPEN SCRATCH1 CONTAINING GENERATED PLOTEL IMAGES. C 870 FILE = SCRT1 CALL CLOSE (SCRT1,CLSREW) CALL OPEN (*960,SCRT1,Z(BUF4),RDREW) C C BLAST COPY PLOTELS FROM SCRATCH1 TO SCRATCH2. C 880 CALL READ (*890,*890,SCRT1,Z(IGRIDS),CORE-IGRIDS,NOEOR,WORDS) CALL WRITE (SCRT2,Z(IGRIDS),CORE-IGRIDS,NOEOR) GO TO 880 890 CALL WRITE (SCRT2,Z(IGRIDS),WORDS,EOR) 900 CALL CLOSE (SCRT1,CLSREW) C C ALL PROCESSING OF GEOM2 IS COMPLETE SO COPY BALANCE OF GEOM2 TO C SCRATCH2, WRAP UP, AND COPY BACK. C CALL IFP4B (GEOM2,SCRT2,ANY,Z(IGRIDS),CORE-IGRIDS,-1,G2EOF) C C ALL PROCESSING COMPLETE. C 910 CALL CLOSE (AXIC,CLSREW) CALL CONMSG (MSG2,2,0) RETURN C C END OF FILE ON AXIC. C 920 FILE = AXIC GO TO 940 C C END OF RECORD ON AXIC C 930 FILE = AXIC IER = -3 GO TO 2000 C C END OF FILE OR END OF RECORD ON -FILE-. C 940 IER = -2 GO TO 2000 C C FILE NOT IN FIST C 960 IER = -1 GO TO 2000 C C INSUFFICIENT CORE C 980 IER = -8 FILE = ICRQ GO TO 2000 C C BISLOC EXIT C 1610 IER = -37 C 2000 CALL MESAGE (IER,FILE,SUBR) RETURN END ================================================ FILE: mis/ifp5a.f ================================================ SUBROUTINE IFP5A (NUM) C C IFP5A PRINTS MESSAGE NUMBER LINE ONLY. C CALLING SUBROUTINE PRINTS THE MESSAGE. C LOGICAL NOGO INTEGER OUTPUT CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,OUTPUT,NOGO C CALL PAGE2 (4) I = NUM + 4080 WRITE (OUTPUT,10) UFM,I 10 FORMAT (A23,I15,1H.) NOGO = .TRUE. RETURN END ================================================ FILE: mis/ifpdco.f ================================================ LOGICAL FUNCTION IFPDCO (IC) C C DECODE D.O.F. INTO LL SPACE. C RETURN WITH IFPDCO=.TRUE. IF ERROR ENCOUNTERED C FOR EXAMPLE - GIVEN IC=124, THEN C LL(1)=1, LL(2)=2, LL(4)=4, LL(3)=LL(5)=LL(6)=0 C GC(1)=124, GC(2)=12, GC(3)=1, GC(4)=GC(5),GC(6)=0 C IFPDCO=.FALSE. C INTEGER DG,GC COMMON /IFPDTA/ DUM(521),GC(7),LL(6) COMMON /SYSTEM/ IDUMMY(55),ITHRML C GC(1) = IC DO 110 LC=1,6 110 LL(LC) = 0 IF (IC) 120,116,112 112 DO 114 LC=1,6 GC(LC+1) = GC(LC)/10 DG = GC(LC)-10*GC(LC+1) IF (ITHRML.NE.1 .AND. DG.GT.6) GO TO 120 IF (ITHRML.EQ.1 .AND. DG.GT.1) GO TO 120 IF (DG .EQ. 0) GO TO 118 IF (LL(DG) .NE. 0) GO TO 120 114 LL(DG) = DG IF (GC(7) .NE. 0) GO TO 120 116 IFPDCO = .FALSE. RETURN 118 IF (GC(LC) .EQ. 0) GO TO 116 120 IFPDCO = .TRUE. RETURN END ================================================ FILE: mis/ifpmdc.f ================================================ SUBROUTINE IFPMDC C C IFPMDC MODIFIES BULK DATA CARDS GIVEN THE INFORMATION ON IFIL C EXTERNAL LSHIFT,RSHIFT,ANDF,ORF LOGICAL ABORT,CF,DIAG INTEGER RET,ANDF,ORF,RSHIFT,T1,CNT,DUM,X,EXI,TEST,APPRCH, 1 ICK(6),IVC(2),INC(2),XI(2),CON(38) DIMENSION RM(1),RM1(1),CD(6) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /IFPX1 / NCDS,T1(2,1) COMMON /MACHIN/ MACH COMMON /SYSTEM/ IBUF,NOUT,ABORT,DUM(17),APPRCH,DUM1(17),NBITS,X, 1 NCPW,DUM2(41),JRUN COMMON /IFPDTA/ ID(2),KN,D1(52),M(50),MF(50),M1(35),M1F(35), 1 D2(3),NOPEN,D3(6),KNT,D4(18) COMMON /TWO / ITWO(32) COMMON /IFPX0 / LBD,LCC,IBITS(18),IPARPT COMMON /ZZZZZZ/ KOR(1) COMMON /XSRTCM/ IM1(6),IM2(5),IM3(4),IM4(4),IM5(2),IM6,IM7(8),IM8, 1 ISFT(4),IM9(7),ISFIM,IM10(3),MIS EQUIVALENCE (RM(1),M(1)),(RM1(1),M1(1)),(ICK(1),CD(1)),(K,ICK(1)) DATA CON/4H ,4H 0,4H 1,4H 2,4H 3,4H 4,4H 5,4H 6, 1 4H 7,4H 8,4H 9,4H A,4H B,4H C,4H D,4H E,4H F, 2 4H G,4H H,4H I,4H J,4H K,4H L,4H M,4H N,4H O, 3 4H P,4H Q,4H R,4H S,4H T,4H U,4H V,4H W,4H X, 4 4H Y,4H Z,4H / DATA IFIL, IEOF, ICYCL, IEFM, IEND, DIAG / 1 213, 0, 0, -32767, 4HZZZZ, .FALSE. / C IF (IEOF .EQ. -1) GO TO 190 CNT = 0 IF (IEOF .EQ. 1) GO TO 10 C C FIRST CALL INITIALIZE OPEN FILE ADJUST CORE C IBUF1 = NOPEN + 2*IBUF NOPEN = NOPEN - IBUF DO 1 I = 1,38 1 CON(I) = ANDF(CON(I),IM3(4)) IF (NOPEN .LE. 0) GO TO 1001 CF = .FALSE. IOD = 0 ISC = 0 NF = 0 IONF = 0 ILST = 0 IEOF = 1 CALL OPEN (*1002,IFIL,KOR(IBUF1+1),0) 5 CALL READ (*180,*180,IFIL,ICK,6,0,NW) C C CHECK INCOMING CALL FOR VARY MATCH SORT, UNSORT AND/OR CONT C 10 IF (K .EQ. KN) GO TO 20 C C NOT CARD WE ARE WORKING ON CHECK ALPH POSITION C IF (CF .OR. IOD.EQ.KN) GO TO 190 IOD = KN ISC = 0 ASSIGN 15 TO EXI XI(1) = T1(1,K) XI(2) = T1(2,K) GO TO 100 15 IVC(1) = XI(1) IVC(2) = XI(2) ASSIGN 16 TO EXI XI(1) = T1(1,KN) XI(I) = T1(2,KN) GO TO 100 16 INC(1) = XI(1) INC(2) = XI(2) IF (MACH .EQ. 2) GO TO 18 INC(1) = RSHIFT(INC(1),1) IVC(1) = RSHIFT(IVC(1),1) 18 IF (INC(1) .LT. IVC(1)) GO TO 190 IF (INC(1) .GT. IVC(1)) GO TO 1004 C C SHIFT IN CASE OF STAR C INC(2) = RSHIFT(INC(2),NBITS) IVC(2) = RSHIFT(IVC(2),NBITS) IF (INC(2)-IVC(2)) 190,1004,1004 C C CARD TYPE FOUND TRY ID C 20 IF (ICK(2) .LT. 0) GO TO 70 IF (CF .AND. NF.NE.0 .AND. ILST.EQ.ICK(2) .AND. CNT.EQ.1) GO TO 31 IF (CF .AND. NF.NE.0 .AND. ILST.EQ.ICK(2)) GO TO 25 IF (CF) GO TO 190 NF = 0 IONF = 0 ASSIGN 5 TO RET IF (M(1) .LT. ICK(2)) GO TO 190 IF (M(1) .GT. ICK(2)) GO TO 1004 ILST = ICK(2) C C FIND FIELD FORMAT DOES NOT COUNT FOR FIELD 1 OR 10 K1=COUNT C 25 DO 27 I = 1,50 IF (MF(I) .EQ. IEFM) GO TO 30 27 CONTINUE GO TO 1002 30 NF = NF + I - 1 CNT = 1 31 K1 = ICK(3) C C FIND NUMBER OF FIELDS TO PITCH C I = K1/10 J = (K1-1)/10 K1 = K1 - I - J - 1 C C CHECK TO SEE IF WE HAVE IT NOW C IF (K1 .GT. NF) GO TO 60 C C CHECK FORMAT FIELD FOR TYPE C K1 = K1 - IONF IF (MF(K1).NE.2 .AND. MF(K1).NE.0) GO TO 1003 J = 0 DO 36 I = 1,K1 J = J + 1 IF (MF(I) .GT. 2) J = J +1 36 CONTINUE C C PERFORM VARY C IF (CD(6) .EQ. 0.0) GO TO 38 RM(J) = RM(J)*(1.0 + CD(4)*CD(5))**CD(6) IF (DIAG) WRITE (NOUT,1000) UIM,T1(1,K),T1(2,K),KNT,ICK(2),ICK(3), 1 RM(J) GO TO 40 38 RM(J ) = RM(J) + CD(4)*CD(5) MF(K1) = 2 IF (DIAG) WRITE (NOUT,1000) UIM,T1(1,K),T1(2,K),KNT,ICK(2),ICK(3), 1 RM(J) GO TO 40 C C SET RESTART BITS C 40 IF (APPRCH .GE. 0) GO TO 50 C C CHECK FOR PARAM CARDS (82) C IF (KN .NE. 82) GO TO 45 DO 41 I = IPARPT,NCDS IF (M(1).EQ.T1(1,I) .AND. M(2).EQ.T1(2,I)) GO TO 42 41 CONTINUE GO TO 50 42 J = I - 1 GO TO 46 45 J = KN - 1 46 KARL = 1 IF (ICYCL .EQ. 0) IBITS(KARL) = ORF(IBITS(KARL),RSHIFT(1,(X-1))) ICYCL = (J/31) + KARL IPOS = MOD(J,31) + 2 IBITS(ICYCL) = ORF(IBITS(ICYCL),ITWO(IPOS)) 50 GO TO RET, (5,90) 60 IF (M1(1).NE.0 .AND. M1(2).NE.0) GO TO 1004 GO TO 190 C C SORTED TYPE OF IDS NEED TO COUNT PARENTS IN THE GROUP C 70 CONTINUE IF (CF .AND. NF.NE.0 .AND. ISC.EQ.ICK(2) .AND. CNT.EQ.1) GO TO 31 IF (CF .AND. NF.NE.0 .AND. ISC.EQ.ICK(2)) GO TO 25 IF (CF) GO TO 190 IF (CNT .EQ. 1) GO TO 80 CNT = 1 NF = 0 IONF= 0 ASSIGN 90 TO RET ISC = ISC - 1 80 CONTINUE IF (ISC .GT. ICK(2)) GO TO 190 IF (ISC-ICK(2)) 1004,25,25 C C FOUND ID FIND FIELD C 90 CALL READ (*180,*180,IFIL,ICK,6,0,NW) IF (K.EQ.KN .AND. NF.NE.0 .AND. ISC.EQ.ICK(2)) GO TO 31 GO TO 10 C C CHANGE EXTERNAL BCD TO INTERNAL BCD FOR SORT TEST C 100 DO 150 I = 1,2 ITM = XI(I) DO 130 J = 1,4 JI = 5 - J ISTS = ISFT(JI) TEST = RSHIFT(ANDF(ITM,IM3(J)),ISTS) DO 110 L = 1,37 IF (TEST .EQ. CON(L)) GO TO 120 110 CONTINUE L = 1 GO TO 140 120 ITM = ORF(ANDF(ITM,IM4(J)),LSHIFT(L,ISTS +ISFIM)) IF (L .EQ. 1) GO TO 140 130 CONTINUE 140 XI(I) = ITM IF (L .EQ. 1) GO TO 160 150 CONTINUE 160 GO TO EXI, (15,16) C C IFP IS DONE BUT VARY IS NOT MESSAGES FOR ANY LEFT C 170 WRITE (NOUT,1014) UFM,T1(1,K),T1(2,K),ICK(2),ICK(3) CALL READ (*180,*180,IFIL,ICK,6,0,NW) GO TO 170 C C END OF IFIL C 180 CALL CLOSE (IFIL,1) IEOF = -1 NCORE = NCORE + IBUF C 190 CF = .FALSE. IONF = NF IF (M1(1).EQ.0 .AND. M1(2).EQ.0) CF = .TRUE. IF (M1(1) .NE. IEND) GO TO 200 C C LAST TIME ENTERED MAKE SURE FILE IS USED UP C IF (IEOF .GE. 0) GO TO 170 200 RETURN C C ERROR MESSAGES C 1000 FORMAT (A29,' 3310, CARD TYPE ',2A4,' SORTED',I9,' ID',I9, 1 ' FIELD',I9,' CHANGED TO ',E16.8) 1001 WRITE (NOUT,1011) UFM 1011 FORMAT (A23,' 303, NO OPEN CORE IFP') GO TO 1111 1002 WRITE (NOUT,1012) SFM 1012 FORMAT (A25,' 3037, ERROR IN IFPMDC') GO TO 1111 1003 WRITE (NOUT,1013) UFM,T1(1,K),T1(2,K),KNT,ICK(2),ICK(3) 1013 FORMAT (A23,' 0301, FIELD TO VARY IS NOT A REAL NUMBER. CARD ', 1 2A4,'SORTED',I9,' ID',I9,' FIELD',I9) ABORT = .TRUE. GO TO RET, (5,90) 1004 WRITE (NOUT,1014) UFM,T1(1,K),T1(2,K),ICK(2),ICK(3) 1014 FORMAT (A23,' 520, CARD TO VARY NOT FOUND. CARD ',2A4,' ID',I9, 1 ' FIELD',I9) GO TO RET, (5,90) 1111 ABORT = .TRUE. NOPEN = NOPEN + IBUF IEOF = -1 GO TO 190 END ================================================ FILE: mis/ifppar.f ================================================ SUBROUTINE IFPPAR C C SUBROUTINE TO TEST FOR PARAM CARD PARAMETERS REQUIRED BY VARIOUS C RIGID FORMATS. C LOGICAL ABORT,HFREQ,LFREQ,LMODE,NODJE,P1,P2,P3,PTOT, 1 CTYPE,KINDX,NSEGS,LTEST,QUEUE INTEGER RF,APP,HFRE,CTYP,QUE,APPR(4) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ N1,NOUT,ABORT,N2(17),IAPP,N3(3),RF COMMON /IFPDTA/ IDTA(509),NPARAM COMMON /ZZZZZZ/ IBUFF(1) DATA APPR / 4HDMAP, 4HDISP, 4HHEAT, 4HAERO / DATA HFRE / 4HHFRE /, LFRE / 4HLFRE /, LMOD /4HLMOD / DATA NODJ / 4HNODJ /, IP1 / 4HP1 /, IP2 /4HP2 / DATA IP3 / 4HP3 /, QUE / 4HQ / DATA CTYP / 4HCTYP /, KIND / 4HKIND /, NSEG /4HNSEG / DATA HFREQ / .FALSE./, LFREQ/ .FALSE./, LMODE /.FALSE./ DATA NODJE / .FALSE./, CTYPE/ .FALSE./, KINDX /.FALSE./ DATA NSEGS / .FALSE./, P1 / .FALSE./, P 2/.FALSE./ DATA QUEUE / .FALSE./, P3 / .FALSE. / C APP = IABS(IAPP) C C NO PARAMS REQD FOR HEAT APPROACH, C DMAPS DISP 1 THRU 9, DISP 13, AND DISP 16 THRU 19, AND C AERO RF 9 C IF (APP.EQ.1 .OR. APP.EQ.3) GO TO 9999 IF (APP.EQ.2 .AND. (RF.LE.9 .OR. RF.EQ.13 .OR. RF.GE.16)) 1 GO TO 9999 IF (APP.EQ.4 .AND. RF.EQ.9) GO TO 9999 C C FATAL ERROR IF NO PARAMS ENTERED AS REQUIRED C IF (NPARAM .EQ. 0) GO TO 9800 C C LOOP TO TEST PARAMS IN PVT FOR PRESENCE OF REQUIRED ONES. C IPM = 1 500 IPN = 2*N1 + IPM C IF (RF .GE. 14) GO TO 1000 IF (IBUFF(IPN) .EQ. HFRE) HFREQ = .TRUE. IF (IBUFF(IPN) .EQ. LFRE) LFREQ = .TRUE. IF (IBUFF(IPN).EQ.LMOD .AND. IBUFF(IPN+2).NE.0) LMODE = .TRUE. C IF (APP .NE. 4) GO TO 2000 IF (IBUFF(IPN).EQ.NODJ .AND. IBUFF(IPN+2).NE.0) NODJE = .TRUE. IF (IBUFF(IPN) .EQ. IP1) P1 = .TRUE. IF (IBUFF(IPN) .EQ. IP2) P2 = .TRUE. IF (IBUFF(IPN) .EQ. IP3) P3 = .TRUE. IF (IBUFF(IPN).EQ.QUE .AND. IBUFF(IPN+2).NE.0) QUEUE = .TRUE. GO TO 2000 C 1000 IF (IBUFF(IPN).EQ.CTYP .AND. IBUFF(IPN+2).NE.0) CTYPE = .TRUE. IF (IBUFF(IPN).EQ.NSEG .AND. IBUFF(IPN+2).NE.0) NSEGS = .TRUE. IF (IBUFF(IPN).EQ.KIND .AND. IBUFF(IPN+2).NE.0) KINDX = .TRUE. C 2000 IPM = IPM + 4 IF (IBUFF(IPN+2).GE.3 .AND. IBUFF(IPN+2).LE.5) IPM = IPM + 1 IF (IBUFF(IPN+2) .GE. 6) IPM = IPM + 3 IF (IPM .LT. NPARAM) GO TO 500 C C TEST TO VERIFY THAT ALL REQUIRED PARAMS ARE PRESENT C IF (RF.EQ.14 .OR. RF.EQ.15) GO TO 4000 IF (LMODE .AND. .NOT.(HFREQ.OR.LFREQ)) GO TO 3000 IF (HFREQ .AND. LFREQ .AND. .NOT.LMODE) GO TO 3000 C C SOMETING AMISS - - IS AN LMODES, HFREQ, OR LFREQ MISSING C IF (.NOT.(LMODE .OR. (HFREQ .AND. LFREQ))) GO TO 9810 C C IS LMODES PRESENT WITH HFREQ AND/OR LFREQ C IF (LMODE .AND. (HFREQ .OR. LFREQ)) GO TO 9820 C 3000 IF (APP .NE. 4) GO TO 9999 C C TEST FOR CORRECT NODJE SETUP FOR AERO RF 10 AND 11 C PTOT = P1 .AND. P2 .AND. P3 IF (NODJE .AND. PTOT) GO TO 3500 IF (NODJE .AND. .NOT.PTOT) GO TO 9830 IF ((P1.OR.P2.OR.P3) .AND. .NOT.NODJE) GO TO 9840 C C TEST FOR Q REQUIRED BY AERO RF 11 C 3500 IF (RF .EQ. 10) GO TO 9999 IF (QUEUE) GO TO 9999 GO TO 9870 C C TEST FOR CTYPE, NSEGS, OR KINDEX REQD BY DISP RF 14 AND 15. C 4000 LTEST = CTYPE .AND. NSEGS IF (.NOT.LTEST) GO TO 9850 4100 IF (RF .EQ. 14) GO TO 9999 C IF (KINDX) GO TO 9999 GO TO 9860 C C SET UP ERROR MESSAGE C 9800 ASSIGN 9900 TO IERR MSGNO = 340 GO TO 9890 9810 ASSIGN 9910 TO IERR MSGNO = 341 GO TO 9890 9820 ASSIGN 9920 TO IERR MSGNO = 342 GO TO 9895 9830 ASSIGN 9930 TO IERR MSGNO = 343 GO TO 9890 9840 ASSIGN 9940 TO IERR MSGNO = 344 GO TO 9895 9850 ASSIGN 9950 TO IERR MSGNO = 345 GO TO 9890 9860 ASSIGN 9960 TO IERR MSGNO = 346 GO TO 9890 9870 ASSIGN 9970 TO IERR MSGNO = 347 C 9890 CALL PAGE2 (3) WRITE (NOUT,9891) UFM,MSGNO 9891 FORMAT (A23,I4) ABORT = .TRUE. GO TO 9898 9895 CALL PAGE2 (3) WRITE (NOUT,9896) UWM,MSGNO 9896 FORMAT (A25,I4) 9898 GO TO IERR, (9900,9910,9920,9930,9940,9950,9960,9970) C 9900 WRITE (NOUT,9905) APPR(APP),RF 9905 FORMAT (' PARAM CARDS REQUIRED BY ',A4,' RIGID FORMAT',I3, 1 ' NOT FOUND IN BULK DATA.') GO TO 9999 C 9910 WRITE (NOUT,9915) APPR(APP),RF 9915 FORMAT (' LMODES OR HFREQ/LFREQ PARAM REQUIRED BY ',A4, 1 ' RIGID FORMAT',I3,' NOT IN BULK DATA OR TURNED OFF.') GO TO 3000 C 9920 WRITE (NOUT,9925) 9925 FORMAT (' LMODES PARAM FOUND IN BULK DATA WITH HFREQ OR LFREQ.', X ' LMODES TAKES PRECEDENCE.') GO TO 3000 C 9930 WRITE (NOUT,9935) RF 9935 FORMAT (' NODJE PARAM SPECIFIED FOR AERO RIGID FORMAT',I3, 1 ' BUT P1, P2, OR P3 OMITTED.') GO TO 3500 C 9940 WRITE (NOUT,9945) 9945 FORMAT (' P1, P2, OR P3 PARAM FOUND IN BULK DATA BUT NODJE ', 1 'MISSING OR TURNED OFF.') GO TO 3500 C 9950 WRITE (NOUT,9955) RF 9955 FORMAT (' CTYPE OR NSEGS PARAM REQUIRED BY DISPLACEMENT RIGID ', 1 'FORMAT',I3,' MISSING OR INCORRECT.') GO TO 4100 C 9960 WRITE (NOUT,9965) 9965 FORMAT (' KINDEX PARAM REQUIRED BY DISPLACEMENT RIGID FORMAT 15', 1 ' MISSING OR TURNED OFF.') GO TO 9999 C 9970 WRITE (NOUT,9975) 9975 FORMAT (' DYNAMIC PRESSURE (Q) PARAM REQUIRED BY AERO RIGID FORM', 1 'AT 11 NOT IN BULK DATA.') C 9999 RETURN END ================================================ FILE: mis/ifppvc.f ================================================ SUBROUTINE IFPPVC (*,IPVS,JR) C C IFPPVC TAKES 1PARM AND 1VARY CARDS AND MAKES A SCRATCH FILE C TO USE IN MODIFYING OTHER BULK DATA CARDS C LOGICAL ABORT INTEGER DUM,T1,BLANK,JR(1),NAME(2) DIMENSION Z(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ IBUF,NOUT,ABORT,DUM(79),JRUN COMMON /IFPDTA/ ID(2),KN,D1(52),M(50),MF(50),M1(35),M1F(35), 1 D2(3),NOPEN,D3(6),KNT,D4(18) COMMON /ZZZZZZ/ KOR(1) COMMON /IFPX1 / NCDS,T1(2,1) EQUIVALENCE (KOR(1), Z(1)) DATA NCDSMX, IFIL, IPLUS, ISTAR, NPTP, ITHR, BLANK / 1 343, 213, 1H+, 1H*, 4HNPTP,4HTHRU,4H / DATA IVAR, IPAR, IVAR1, IPAR1, NAME / 1 4HAVAR, 4HAPAR,4H1VAR,4H1PAR,4HIFPP,4HVC / C ISTOP = 0 ICS = 0 LTJ = 0 ISORT = 0 IPP = 2*IBUF + 2 LN = IPP II = IPP - 1 LST = 0 NV = 0 IDON = 0 IF0 = 0 IOLDN = 0 ISV = 0 IPLUS = KHRFN1(BLANK,4,IPLUS,1) ISTAR = KHRFN1(BLANK,4,ISTAR,1) CALL SSWTCH (42,L42) GO TO 20 C C READ NEW CARD C 10 CALL READ (*410,*410,NPTP,JR,20,1,KDUM) KNT = KNT + 1 20 IT = KHRFN1(BLANK,4,JR(1),1) IF (IT.EQ.IPLUS .OR. IT.EQ.ISTAR) GO TO 420 IF (JR(1) .EQ. IVAR1) GO TO 90 IF (JR(1) .NE. IPAR1) GO TO 300 C C 1PARM CARDS C JR(1) = IPAR IF (L42 .EQ. 0) CALL RCARD2 (M1,M1F,NW,JR) IF (L42 .NE. 0) CALL RCARD (M1,M1F,NW,JR) IF (NW .NE. 10) GO TO 430 C C CHECK FORMAT C IF (M1F(2).NE.1 .OR. M1(3).LT.0) GO TO 430 IF (M1(3) .LT. JRUN) GO TO 10 IF (M1F(3).NE.0 .AND. M1F(3).NE.1) GO TO 430 IF (M1F(5).NE.0 .AND. M1F(5).NE.1) GO TO 430 IF (M1F(7).NE.0 .AND. M1F(7).NE.1) GO TO 430 IF (M1( 4).LT.0 .OR. M1( 6).LT.0) GO TO 430 IF (M1( 8).LT.0 .OR. M1F(9).NE.0) GO TO 430 IF (M1F(4).NE.2 .AND. M1F(4).NE.0) GO TO 430 IF (M1F(6).NE.2 .AND. M1F(6).NE.0) GO TO 430 IF (M1F(8).NE.2 .AND. M1F(8).NE.0) GO TO 430 IF (JRUN .EQ. 0) GO TO 10 IF (M1(3).NE.JRUN .AND. ISORT.EQ.0) GO TO 80 IF (M1(3) .NE. JRUN) GO TO 40 C C FORM LIST OF K SK PAIRS FOR THIS J C ISORT = 1 25 IF (IPP .GE. NOPEN) GO TO 440 DO 30 I = 3,7,2 IF (M1F(I).EQ.0 .AND. M1F(I+1).NE.0) GO TO 430 IF (M1F(I) .EQ. 0) GO TO 30 KOR(IPP ) = M1(I+1) KOR(IPP+1) = M1(I+2) IPP = IPP + 2 30 CONTINUE GO TO 10 C C SORT LIST ERROR IF DUPLICATE C 40 I = LN IT = 0 N = IPP - I IF (N .LT. 3) GO TO 50 CALL SORT (0,0,2,-1,KOR(I),N) IT = KOR(I) J = N - 1 DO 45 K = 2,J,2 IF (KOR(I+K) .NE. IT) GO TO 42 ABORT = .TRUE. WRITE (NOUT,450) UFM,IT 42 IT = KOR(I+K) 45 CONTINUE 50 ISORT = 0 IF (ICS .NE. 0) GO TO 55 LST= N LN = IPP 55 IF (JR(1) .EQ. IVAR1) GO TO 100 IF (IDON .EQ. 1) GO TO 310 C C CHECK FOR DUPLICATE K ON 1PARM ON JRUN = 1 C 80 IF (JRUN .NE. 1) GO TO 10 IF (ICS .NE. 0) GO TO 82 ICS = 1 LTJ = M1(3) 82 IF (LTJ .EQ. M1(3)) GO TO 25 LTJ = M1(3) GO TO 40 C C 1VARY CARDS START BUILDING SCRATCH FILE C 90 IF (ISORT.EQ.1 .OR. LTJ.NE.0) GO TO 40 C C IF LST = 0 USE ALL DEFAULT VALUES FOR SK C 100 LTJ = 0 NV = NV + 1 JR(1) = IVAR IF (L42 .EQ. 0) CALL RCARD2 (M1,M1F,NW,JR) IF (L42 .NE. 0) CALL RCARD (M1,M1F,NW,JR) IF (NW.LT.10 .OR. NW.GT.12) GO TO 430 C C CHECK FORMAT C IF (M1F(2) .NE. 3) GO TO 430 IF (M1F(3).NE.1 .OR. M1F(4).NE.1) GO TO 430 IF (M1( 5).LE.0 .OR. M1( 6).LE.0) GO TO 430 IF (M1F(5).NE.0 .AND. M1F(5).NE.2) GO TO 430 IF (M1F(6).NE.0 .AND. M1F(6).NE.2) GO TO 430 IF (M1F(7).NE.0 .AND. M1F(7).NE.1) GO TO 430 IF (M1F(8).NE.0 .AND. M1F(8).NE.1 .AND. M1F(8).NE.3) GO TO 430 IF (M1F(9).NE.0 .AND. M1F(9).NE.1) GO TO 430 IF (M1F(7).EQ.0 .AND. M1F(8).EQ.0 .AND. M1F(9).EQ.0) GO TO 430 IF (M1F(7).EQ.1 .AND. M1( 9).EQ.0) GO TO 430 IF (M1F(8).EQ.1 .AND. M1(10).EQ.0) GO TO 430 I = 0 IF (M1F(8) .EQ. 3) I = 1 IF (M1F(9).EQ.1 .AND. M1(I+11).EQ. 0) GO TO 430 IF (M1F(8).EQ.3 .AND. M1(10).NE.ITHR) GO TO 430 IF (M1F(8).EQ.3 .AND. M1(9).GT.0 .AND. M1(12).LT.0) GO TO 430 IF (M1F(8).EQ.3 .AND. M1(9).LT.0 .AND. M1(12).GT.0) GO TO 430 IF (JRUN .EQ. 0) GO TO 10 DO 105 KN = 1,NCDSMX IF (M1(3).EQ.T1(1,KN) .AND. M1(4).EQ.T1(2,KN)) GO TO 110 105 CONTINUE GO TO 460 110 IF (KN.NE.IOLDN .AND. IOLDN.NE.0) GO TO 140 112 IOLDN = KN C C START A LIST WITH THIS NUMONIC C IFIELD = M1(5) K = M1(6) IA = M1(7) IB = M1(8) IF (M1F(8) .EQ. 3) GO TO 120 IF (LST+ISV+18 .GT. NOPEN) GO TO 440 DO 115 I = 7,9 IF (M1F(I) .EQ. 0) GO TO 115 KOR(LN+ISV ) = KN KOR(LN+ISV+1) = M1(I+2) KOR(LN+ISV+2) = IFIELD KOR(LN+ISV+3) = K KOR(LN+ISV+4) = IA KOR(LN+ISV+5) = IB ISV = ISV + 6 115 CONTINUE GO TO 10 C C THRU OPTION C 120 N1 = M1(9) N2 = M1(12) IF (N2 .GE. N1) GO TO 125 IT = N1 N1 = N2 N2 = IT 125 IF (LST+ISV+(IABS(N2-N1)*6) .GT. NOPEN) GO TO 440 130 KOR(LN+ISV ) = KN KOR(LN+ISV+1) = N1 KOR(LN+ISV+2) = IFIELD KOR(LN+ISV+3) = K KOR(LN+ISV+4) = IA KOR(LN+ISV+5) = IB ISV = ISV + 6 N1 = N1 + 1 IF (N1 .LE. N2) GO TO 130 GO TO 10 C C THIS TYPE OF CARD IS DONE SORT LIST AND MAKE FILE C SORT ON ID THEN FIELD THEN K C 140 IF (ISV .EQ. 6) GO TO 150 CALL SORT (0,0,6,-2,KOR(LN),ISV) CALL SORT (0,0,6,-3,KOR(LN),ISV) CALL SORT (0,0,6,-4,KOR(LN),ISV) C C FIX UP CORE FOR THIS BUFFER AND OPEN FILE C 150 IF (IF0 .NE. 0) GO TO 160 IBUF1 = NOPEN + 2*IBUF NOPEN = NOPEN - IBUF IF0 = 1 IF (LST+ISV .GT. NOPEN) GO TO 440 CALL OPEN (*470,IFIL,KOR(IBUF1+1),1) C C TEST FOR DUPLICATE K FOR SAME FIELD AND ID PLUS SORT AND REG C 160 IF (ISV .EQ. 6) GO TO 220 IT = KOR(LN+1) ICS = KOR(LN+2) IK = KOR(LN+3) DO 210 I = 7,ISV,6 IF (IT.EQ.KOR(LN+I).AND.ICS.EQ.KOR(LN+I+1).AND.IK.EQ.KOR(LN+I+2)) 1 GO TO 170 GO TO 180 170 ABORT = .TRUE. WRITE (NOUT,480) UFM,IT,ICS,IK 180 IF (IT.LT.0 .AND. KOR(LN+I).GT.0) GO TO 220 IF (IT.GT.0 .AND. KOR(LN+I).LT.0) GO TO 200 190 IT = KOR(LN+I ) ICS = KOR(LN+I+1) IK = KOR(LN+I+2) GO TO 210 200 J = KOR(LN) WRITE (NOUT,485) UFM,T1(1,J),T1(2,J) GO TO 190 210 CONTINUE C C PUT OUT CARDS SORT TYPE OF IDS (NEG) DO IN REVERSE C FIND VALUES OF SK FOR EACH K C 220 N = 6 I = LN IF (KOR(LN+1) .GT. 0) GO TO 230 N = -6 I = LN + ISV - 6 230 A = 0.0 IF (KOR(I+3).EQ.JRUN .AND. LST.EQ.0) A = 1.0 IF (LST .EQ. 0) GO TO 250 DO 240 K = 1,LST,2 IF (KOR(I+3) .NE. KOR(II+K)) GO TO 240 A = Z(II+K+1) GO TO 250 240 CONTINUE 250 Z(I+3) = A IT = KOR(I+1) ICS= KOR(I+2) IF (IT.GT.0 .AND .ICS.EQ.2) GO TO 260 J = ICS/10 J = J*10 IF (J .NE. ICS) GO TO 270 260 ABORT = .TRUE. J = KOR(LN) WRITE (NOUT,500) UFM,T1(1,J),T1(2,J),IT,ICS GO TO 280 270 J = (ICS-1)/ 10 J = J*10 IF (J .EQ. ICS-1) GO TO 260 280 CONTINUE IF (ABORT .OR. A.EQ.0.0) GO TO 290 CALL WRITE (IFIL,KOR(I),6,0) 290 I = I + N ISV = ISV - IABS(N) IF (ISV .GT. 0) GO TO 230 ISV = 0 IF (IDON .EQ. 1) GO TO 310 GO TO 112 C C CARDS ARE DONE C 300 IDON = 1 IF (JRUN .EQ. 0) GO TO 320 IF (NV.EQ.0 .AND. JRUN.GT.0) GO TO 490 IF (NV .EQ. 0) GO TO 310 GO TO 140 310 IF (JRUN .EQ. 0) GO TO 320 CALL WRITE (IFIL,0,0,1) CALL CLOSE (IFIL,1) IPVS = 1 320 IF (ISTOP .EQ. 0) RETURN IF (ISTOP .EQ. 1) RETURN 1 C C ERROR MESSAGES C 400 ABORT = .TRUE. IF (IDON-1) 10,310,10 410 WRITE (NOUT,415) UFM 415 FORMAT (A23,', NO BULK DATA CARDS TO MODIFY. ERROR IN IFPPVC') ISTOP = 1 GO TO 310 420 WRITE (NOUT,425) UFM,JR 425 FORMAT (A23,' 312, NO CONTINUATION CARD ALLOWED ON 1PARM OR ', 1 '1VARY CARDS', /5X,'CARD- ',20A4) GO TO 400 430 I = KNT +1 WRITE (NOUT,435) UFM,M1(1),M1(2),I,JR 435 FORMAT (A23,' 317, ILLEGAL DATA OR FORMAT ON CARD ',2A4,' SORTED', 1 I8 ,/5X,'CARD- ' ,20A4) GO TO 400 440 WRITE (NOUT,445) UFM 445 FORMAT (A23,' 3008, NOT ENOUGH CORE FOR 1PARM AND 1VARY CARDS') GO TO 400 450 FORMAT (A23,' 314, DUPLICATE OR NO K ON 1PARM CARDS FOR SOME J ', 1 'K =',I9) 460 WRITE (NOUT,465) UFM,M1(3),M1(4) 465 FORMAT (A23,'316, CARD TYPE ',2A4,' NOT LEGAL ON 1VARY') GO TO 400 470 CALL MESAGE (-1,IFIL,NAME) 480 FORMAT (A23,'314, DUPLICATE K FOR ID',I9,' FIELD',I9,' K',I9) 485 FORMAT (A23,'316, ILLEGAL TO USE SORTED COUNT AND REGULAR ID ON ', 1 'SAME TYPE OF CARD ',2A4) 490 WRITE (NOUT,495) UFM 495 FORMAT (A23,', NO 1VARY CARDS TO GO WITH 1PARM CARDS. ERROR IN ', 1 'IFPPVC') IF (ISORT.EQ.1 .OR. LTJ.NE.0) GO TO 40 GO TO 400 500 FORMAT (A23,'31, CARD TYPE ',2A4,' ID =',I9,' HAS ILLEGAL FIELD', 1 I9) END ================================================ FILE: mis/ifs1p.f ================================================ SUBROUTINE IFS1P (*,*,*) C LOGICAL ABORT,BADDAT,BADFOR,IAX,LHARM,SLOT,IFPDCO INTEGER M(100),KLOTDF(5),B1,BARDF2,BARDF5,BARDF6,BARDF7, 1 BARDF8,HBDYNM(2,7),HBDYIX(7),THRU,BLK,BCDC,BCDR, 2 BCDS,E(40) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ KSYSTM(80) COMMON /BLANK / E COMMON /IFPDTA/ ID,N,K,KX,KY,I(100),RM(100),MF(100),M1(100), 1 M1F(100),KN,BADDAT,BADFOR,NOPEN,NPARAM,IAX,NAX, 2 IAXF,NAXF,LHARM,KNT,SLOTDF(5),GC(7),LL(6) COMMON /CIFS1P/ B1,BARDF2,BARDF5,BARDF6,BARDF7,BARDF8,KM,SLOT, 1 IDRDL EQUIVALENCE (KSYSTM(2),NOUT),(KSYSTM(3),ABORT),(M(1),RM(1)), 1 (SLOTDF(1) ,KLOTDF(1)) DATA HBDYNM / 4HPOIN , 4HT 1 , 4HLINE , 4H 2 , 4HREV , 4H 3 , 4HAREA , 4H3 4 , 4HAREA , 4H4 5 , 4HELCY , 4HL 6 , 4HFTUB , 4HE / DATA HBDYIX / 1,2,2,3,4,2,2 / DATA THRU / 4HTHRU / DATA BLK , BCDC,BCDR,BCDS / 1H ,1HC,1HR,1HS/ DATA IT1,IT2, IT3 / 2HT1, 2HT2, 2HT3 / C IF (K .GT. 100) GO TO 81 GO TO ( 5, 5, 5, 40, 500, 600, 700, 800, 900,1000, 1 1111, 5, 5,1400,1400,1600, 5,1800,1800,2000, 2 2000,2200,2200,2400,2500,2600,2500, 5,2900,2920, 3 318, 5,2980,3011,3020,3020,3012,2980,3013,3020, 4 3014,3015,3016,3210,3220,3255,3260,3281,3282,3283, 5 5,3360,3360,3360,3360,3360,3460,3460,3460,3460, 6 3540,3540,3580,3600,3620,3623,3674,3697,3620,3623, 7 3675,3698,3620,3800,3676,3699,3860,3880, 5, 5, 8 2500, 5, 5, 5, 5, 5, 5, 5, 5, 5, 9 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), K 81 IF (KX .GT. 100) GO TO 82 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 2 3017, 5, 5, 5,1250, 5,1270,1280,1290,1290, 3 5, 5, 5, 5, 40,1360,1370, 5, 5, 5, 4 5,1420, 5, 5, 5, 5, 5, 5, 5, 5, 5 5, 5, 5, 5, 5, 5, 5,1580, 5, 5, 6 5, 5, 5, 5, 5,1660, 5, 5, 5, 5, 7 5, 5, 5, 5, 5, 5, 5, 5, 100, 200, 8 300, 5, 5, 5, 5, 5, 5, 5, 5,1900, 9 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), KX 82 IF (KY .GT. 100) GO TO 83 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5,1400, 5, 5, 5, 5, 5, 2 5, 5,4100,4200,4300,4400,4500,4600,4700,4800, 3 4900,5000,5050,3900,4000,5100,3950,4050, 5,5150, 4 5200, 5,5250, 5, 5, 5, 5, 5,3460,3018, 5 5, 5, 5, 5, 5,1600,5240,5245,3460,3019, 6 5, 5, 5, 5, 5, 5, 5,5300, 5, 5, 7 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8 5, 5, 5, 5, 5, 5, 5, 5,5175, 5, 9 6101,6201,6301,6401, 5, 5, 5, 5,7501,7601), KY 83 KZ = KY - 100 IF (KZ .GT. 59) GO TO 5 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5,4060,4070,4080,4090,4060,4080, 2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 3 1111, 5, 5, 5, 5, 5,3900, 5, 5,1260, 4 1270,1230,1235,1240, 5, 5, 5, 5, 5, 5, 5 5, 5, 5, 5, 5,3280,3360,3460,7700 ), KZ 5 CALL PAGE2 (2) WRITE (NOUT,6) SFM 6 FORMAT (A25,' 322, ILLEGAL ENTRY TO IFS1P.') ABORT = .TRUE. RETURN 1 7 BADFOR = .TRUE. RETURN 1 8 BADDAT = .TRUE. RETURN 1 3 DO 4 L = 1,N 4 I(L) = M(L) 2 RETURN 9 RETURN 3 C C***** 4-SEQGP,135-SEQEP ************************************ C 40 DO 45 L = 1,7,2 IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 45 IF (M(L).LE.0 .OR. M(L+1).LE.0) GO TO 8 N = N + 2 I(N-1) = M(L ) I(N ) = M(L+1) IF (N .LE. 2) GO TO 45 DO 43 L1 = 4,N,2 IF (I(N-1).EQ.I(L1-3) .OR. I(N).EQ.I(L1-2)) GO TO 8 43 CONTINUE 45 CONTINUE IF (N) 8,8,2 C C***** 179-BAROR ***************************************** C 100 IF (B1 .EQ. 0) GO TO 8 B1 = 0 IF (M(2).EQ.0 .AND. M(5).EQ.0 .AND. M(6).EQ.0 .AND. M(7).EQ.0 1 .AND. M(8).EQ.0) GO TO 8 IF (M(2).LT.0 .OR. M(8).LT.0 .OR. M(8).GT.2) GO TO 8 IF (MF(8) .NE. 0) GO TO 110 IF (MF(5).EQ.1 .AND. MF(6).NE.0 .AND. MF(7).NE.0) GO TO 8 IF (MF(5).EQ.1 .AND. MF(6).EQ.0 .AND. MF(7).EQ.0) M(8) = 2 IF (MF(5).EQ.2 .OR. MF(6).EQ.2 .OR. MF(7).EQ.2) M(8) = 1 110 BARDF2 = M(2) BARDF5 = M(5) BARDF6 = M(6) BARDF7 = M(7) BARDF8 = M(8) RETURN 2 C C***** 180-CBAR ***************************************** C 200 IF (MF(2) .NE. 0) GO TO 201 IF (BARDF2 .EQ. 0) GO TO 203 M(2) = BARDF2 GO TO 201 203 M(2) = M(1) 201 CONTINUE IF (MF(5) .EQ. 0) M(5) = BARDF5 IF (MF(8) .EQ. 0) M(8) = BARDF8 IF (MF(5).GE.3 .OR. MF(6).GE.3 .OR. MF(7).GE.3) GO TO 8 IF (M(8).EQ.0 .AND. (MF(5).EQ.2 .OR. MF(6).EQ.2 .OR. MF(7).EQ.2)) 1 M(8) = 1 IF (M(8).EQ.0 .AND. MF(5).EQ.1 .AND. MF(6)+MF(7).EQ.0) M(8) = 2 IF (M(8).LE.0 .OR. M(8).GT.2) GO TO 8 IF (M(8) .EQ. 2) GO TO 205 IF (MF(6) .EQ. 0) M(6) = BARDF6 IF (MF(7) .EQ. 0) M(7) = BARDF7 205 CONTINUE IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0) 1 GO TO 8 IF (M(8).EQ.1 .AND. (MF(5).NE.2 .AND. MF(5).NE.0 .OR. 1 M(5).EQ.0 .AND. M(6).EQ.0 .AND. M(7).EQ.0)) GO TO 8 IF ((M(8).EQ.2 .OR. M(8).EQ.3) .AND. (MF(5).NE.1 .AND.MF(5).NE.0 1 .OR. M(5).LE.0 .OR. M(6).NE.0 .OR. M(7).NE.0)) GO TO 8 IF (IFPDCO(M(9))) GO TO 8 IF (M(9) .GT. 65432) GO TO 8 IF (IFPDCO(M(10))) GO TO 8 IF (M(10) .GT. 65432) GO TO 8 IF (M(3).EQ.M(4) .OR. M(3).EQ.M(5) .AND. M(8).EQ.2) GO TO 8 IF (M(8).EQ.2 .AND. M(4).EQ.M(5)) GO TO 8 N = 16 GO TO 3 C C***** 181-PBAR ***************************************** C 300 N = 19 IF (RM(4).LT.0. .OR. RM(5).LT.0. .OR. RM(4)*RM(5).LT.RM(19)**2) 1 GO TO 8 GO TO 2903 C C***** 31-PVISC ***************************************** C 310 DO 315 L = 1,5,4 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 315 IF (M(L) .LE. 0) GO TO 8 N = N + 3 I(N-2) = M(L ) I(N-1) = M(L+1) I(N ) = M(L+2) IF (E(KL) .LT. 0) GO TO 315 IF (M(L) .GT. E(KL)) GO TO 314 E(KL) = -M(L) GO TO 315 314 E(KL) = M(L) 315 CONTINUE IF (N) 8,8,2 318 KL = 33 GO TO 310 C C***** 5-CORD1R ***************************************** C 500 L50 = 1 510 DO 519 L = 1,5,4 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0 .AND. 1 M(L+3).EQ.0) GO TO 519 IF (M(L).LE.0 .OR. M(L+1).LE.0 .OR. M(L+2).LE.0 .OR. M(L+3).LE.0) 1 GO TO 8 IF (M(L+1).EQ.M(L+2) .OR. M(L+1).EQ.M(L+3) .OR. M(L+3).EQ.M(L+2)) 1 GO TO 8 N = N + 6 IF (N.GT.6 .AND. M(L).EQ.M(L-4)) GO TO 8 I(N-5) = M(L ) I(N-4) = L50 I(N-3) = 1 I(N-2) = M(L+1) I(N-1) = M(L+2) I(N ) = M(L+3) 519 CONTINUE IF (N) 8,8,2 C C***** 6-CORD1C ***************************************** C 600 L50 = 2 GO TO 510 C C***** 7-CORD1S ***************************************** C 700 L50 = 3 GO TO 510 C C***** 8-CORD2R ***************************************** C 800 I(2) = 1 810 I(1) = M(1) IF (M(1).LE.0 .OR. M(2).LT.0) GO TO 8 IF (M(3).EQ.M(6) .AND. M(4).EQ.M( 7) .AND. M(5).EQ.M( 8)) GO TO 8 IF (M(3).EQ.M(9) .AND. M(4).EQ.M(10) .AND. M(5).EQ.M(11)) GO TO 8 IF (M(6).EQ.M(9) .AND. M(7).EQ.M(10) .AND. M(8).EQ.M(11)) GO TO 8 I(3) = 2 DO 813 L = 2,11 813 I(L+2) = M(L) N = 13 GO TO 2 C C***** 9-CORD2C ***************************************** C 900 I(2) = 2 GO TO 810 C C***** 10-CORD2S ***************************************** C 1000 I(2) = 3 GO TO 810 C C***** 11-PLOTEL, 331-CFFREE ************************************* C 1100 DO 1110 L = 1,5,4 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 1110 IF (M(L).LE.0 .OR. M(L+1).LE.0 .OR. M(L+2).LE.0) GO TO 8 IF (M(L+1) .EQ. M(L+2)) GO TO 8 N = N + 3 I(N-2) = M(L ) I(N-1) = M(L+1) I(N ) = M(L+2) IF (E(KL) .LT. 0) GO TO 1110 IF (M(L) .GT. E(KL)) GO TO 1107 E(KL) = -M(L) GO TO 1110 1107 E(KL) = M(L) 1110 CONTINUE IF (N) 8,8,2 1111 KL = 10 GO TO 1100 C C********* 342-CFTUBE ***************************************** C 1230 N = 4 IF (M(1).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0) GO TO 8 IF (MF(2) .EQ. 0) M(2) = M(1) IF (M(2).LE.3 .OR. M(3).EQ.M(4)) GO TO 8 GO TO 3 C C********* 343-PFTUBE **************************************** C 1235 N = 5 IF (M(1) .LE. 0) GO TO 8 IF (RM(2).LE.0. .OR. RM(3).LT.0. .OR. RM(4).LE.0.) GO TO 8 IF (RM(5) .EQ. 0.) RM(5) = RM(4) IF (RM(5) .LT. 0.) GO TO 8 GO TO 3 C C********* 344-NFTUBE ***************************************** C 1240 N = 5 IF (MF(2).NE.1 .OR. M(1).LE.0) GO TO 8 IF (MF(2).NE.1 .OR. M(2).LE.0) GO TO 8 IF (MF(3).NE.1 .OR. M(3).LE.0) GO TO 8 IF (M(2) .EQ. M(3)) GO TO 8 IF (MF(4).NE.0 .AND. MF(4).NE.2) GO TO 8 IF (MF(5).EQ.1 .AND. M(5).LT.0) GO TO 8 IF (MF(5) .GT. 2) GO TO 7 GO TO 3 C C*********** 125-FREQ1 ************************************** C 1250 IF (M(1).LE.0 .OR. RM(2).LT.0. .OR. RM(3).LE.0. .OR. M(4).LE.0) 1 GO TO 8 N = 4 GO TO 3 C C***** 340-NOLIN5 ********************************** C 1260 IF (KM .NE. 0) GO TO 1262 KM = 1 KN = 1 NMO = 8 IF (MF(1).NE.1 .OR. M(1).LE.0 ) BADDAT =.TRUE. IF (MF(2).NE.2 .OR. RM(2).LE.0.) BADDAT =.TRUE. IF (MF(3).NE.2 .OR. RM(3).LE.0.) BADDAT =.TRUE. IF (MF(4).NE.2 .OR. RM(4).LE.0.) BADDAT =.TRUE. IF (MF(5).EQ.1 .AND. M(5).LT.0 ) BADDAT =.TRUE. IF (MF(6).EQ.1 .AND. M(6).LT.0 ) BADDAT =.TRUE. IF (MF(7).EQ.1 .AND. M(7).LT.0 ) BADDAT =.TRUE. IF (MF(8).EQ.1 .AND. M(8).LT.0 ) BADDAT =.TRUE. IF (MF(5).EQ.2 .AND.RM(5).LT.0.) BADDAT =.TRUE. IF (MF(6).EQ.2 .AND.RM(6).LT.0.) BADDAT =.TRUE. IF (MF(7).EQ.2 .AND.RM(7).LT.0.) BADDAT =.TRUE. IF (MF(8).EQ.2 .AND.RM(8).LT.0.) BADDAT =.TRUE. N = 8 DO 1261 L = 1,8 1261 I(L) = M(L) GO TO 1265 1262 N = 8 NMO = NMO + 8 DO 1263 L = 1,8 I(L) = M(L) IF (MF(L) .EQ. 0) GO TO 1263 IF (MF(L).NE.1 .OR. M(L).LE.0) BADDAT =.TRUE. 1263 CONTINUE 1265 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 KM = 0 KN = 0 IF (NMO .EQ. 16) GO TO 9 IF (NMO .GT. 16) BADDAT =.TRUE. DO 1266 L = 1,8 N = N + 1 I(N) = 0 1266 CONTINUE GO TO 9 C C***** 127-NOLIN1,341-NOLIN6 ******************************** C 1270 IF (MF(8)) 8,1282,8 1272 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0 .OR. M(5).LE.0 .OR. 1 M(6).LT.0) GO TO 8 IF (M(3) .GT. 6) GO TO 8 IF ((M(6).GT.6 .AND. M(6).LT.10) .OR. M(6).GT.16) GO TO 8 N = 8 GO TO 3 C C***** 128-NOLIN2 *************************************** C 1280 IF (M(8).LT.0 .OR. MF(8).NE.1 .AND. MF(8).NE.0) GO TO 8 IF ((M(8).GT.6 .AND. M(8).LT.10) .OR. M(8).GT.16) GO TO 8 1282 IF (MF(7).NE.1 .OR. M(7).LE.0) GO TO 8 GO TO 1272 C C***** 129-NOLIN3,130-NOLIN4 **************************** C 1290 IF (MF(8).NE.0 .OR. MF(7).NE.2 .AND. MF(7).NE.0) GO TO 8 GO TO 1272 C C***** 136-TF ****************************************** C 1360 IF (KM .NE. 0) GO TO 1363 NMO = 5 ID = M(1) IF (ID.LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0) GO TO 1427 IF (MF(1).NE.1 .OR. MF(2).NE.1 .OR. MF(3).GT.1) BADFOR =.TRUE. IF ((MF(4).NE.2 .AND. MF(4).NE.0) .OR. (MF(5).NE.2 .AND. 1 MF(5).NE.0) .OR. (MF(6).NE.2 .AND. MF(6).NE.0)) BADFOR =.TRUE. N = 6 1361 DO 1362 L = 1,N 1362 I(L) = M(L) GO TO 1428 1363 IF (M(1).LE.0 .OR. M(2).LT.0) GO TO 1427 IF (MF(1).NE.1 .OR. MF(2).GT.1) BADFOR =.TRUE. IF ((MF(3).NE.2 .AND. MF(3).NE.0) .OR. (MF(4).NE.2 .AND. 1 MF(4).NE.0) .OR. (MF(5).NE.2 .AND. MF(5).NE.0)) BADFOR =.TRUE. N = 5 GO TO 1361 C C***** 137-TIC ****************************************** C 1370 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0 .OR. M(3).GT.6) 1 GO TO 8 N = 5 GO TO 3 C C***** 14-SUPORT,15-OMIT,215-ASET ********************** C 1400 L = 1 1402 IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 1409 IF (M(L) .LE. 0) GO TO 8 IF (IFPDCO(M(L+1))) GO TO 8 IZ = 6 IF (M(L+1) .EQ. 0) IZ = 1 DO 1407 L2 = 1,IZ IF (IZ.NE.1 .AND. LL(L2).EQ.0) GO TO 1407 N = N + 2 I(N-1) = M(L ) I(N ) = LL(L2) IF (N .LE. 2) GO TO 1407 DO 1408 L1 = 4,N,2 IF (I(N-1).EQ.I(L1-3) .AND. I(N).EQ.I(L1-2)) GO TO 8 1408 CONTINUE 1407 CONTINUE 1409 L = L + 2 IF (L .LE. 7) GO TO 1402 IF (N) 8,8,2 C C***** 142-TSTEP **************************************** C 1420 IF (MF(5).NE.0 .OR. MF(6).NE.0 .OR. MF(7).NE.0 .OR. MF(8).NE.0) 1 GO TO 7 IF (KM .NE. 0) GO TO 1422 NMO = 3 ID = M(1) IF (ID.LE.0 .OR. MF(1).NE.1) GO TO 1427 N = 1 I(N) = M(1) GO TO 1425 1422 IF (MF(1) .NE. 0) GO TO 1427 1425 IF (MF(2).NE.1 .OR. MF(4).NE.1 .OR. MF(3).NE.2) GO TO 1427 IF (M(4).LE.0 .OR. RM(3).LE.0. .OR. M(2).LT.M(4)) GO TO 1427 N = N + 3 I(N-2) = M(2) I(N-1) = M(3) I(N ) = M(4) GO TO 1428 1427 BADDAT =.TRUE. 1428 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1429 KM = 0 KN = 0 IF (NMO .LE. 0) GO TO 9 DO 1426 L = 1,NMO N = N + 1 1426 I(N) =-1 GO TO 9 1429 KM = 1 KN = 1 GO TO 9 C C***** 158-EIGP ***************************************** C 1580 IF (M(1) .LE. 0) GO TO 8 DO 1585 L = 2,5,3 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 1585 IF (M(L+2) .LE. 0) GO TO 8 N = N + 4 I(N-3) = M( 1) I(N-2) = M( L) I(N-1) = M(L+1) I(N ) = M(L+2) 1585 CONTINUE IF (N) 8,8,2 C C***** 16-SPC , 256-SPCD *********************************** C 1600 IF (M(1) .LE. 0) GO TO 8 L = 2 1601 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 1609 IF (M(L).LE.0 .OR. M(L+1).LT.0) GO TO 8 IF (IFPDCO(M(L+1))) GO TO 8 N = N + 4 IF (N.GT.4 .AND. M(L).EQ.M(L-3) .AND. M(L+1).EQ.M(L-2)) GO TO 8 I(N-3) = M(1 ) I(N-2) = M(L ) I(N-1) = M(L+1) I(N ) = M(L+2) 1609 L = L + 3 IF (L .EQ. 5) GO TO 1601 IF (N) 8,8,2 C C*********** 166-FREQ2 ************************************** C 1660 IF (RM(2)) 8,8,1250 C C******* 18-FORCE,19-MOMENT ************************** C 1800 IF (M(2)) 8,8,1900 C C*************** 190-RFORCE ***************************** C 1900 IF (MF(3).NE.0 .AND. MF(3).NE.1) GO TO 8 IF (M(1).LE.0 .OR. M(2).LT.0 .OR. M(3).LT.0) GO TO 8 IF (M(5).NE.0 .OR. M(6).NE.0 .OR. M(7).NE.0) GO TO 1905 IF (M(4) .NE. 0) GO TO 8 RM(5) = 1.0 1905 N = 7 CWKBDB 2/95 SPR94015 C IF (K .NE. 190) GO TO 3 C IF (M(8) .EQ. 0) M(8) = 1 C IF (M(8) .LT.0 .OR. M(8).GT.2) GO TO 8 C N = 8 CWKBDE 2/95 SPR94015 GO TO 3 C C***** 20-FORCE1,21-MOMENT1 ********************************** C 2000 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0) 1 GO TO 8 IF (M(4) .EQ. M(5)) GO TO 8 N = 5 GO TO 3 C C***** 22-FORCE2,23-MOMENT2 ********************************** C 2200 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(4).LE.0) GO TO 8 IF (M(5).LE.0 .OR. M(6).LE.0 .OR. M(7).LE.0) GO TO 8 IF (M(4).EQ.M(5) .OR. M(6).EQ.M(7) .OR. M(4).EQ.M(6) .AND. 1 M(5).EQ.M(7) .OR. M(4).EQ.M(7) .AND. M(5).EQ.M(6)) GO TO 8 N = 7 GO TO 3 C C***** 24-PLOAD ***************************************** C 2400 IF (M(1).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0) 1 GO TO 8 IF (M(6).LT.0 .OR. M(6).EQ.0 .AND. MF(6).NE.0) GO TO 8 DO 2404 L = 4,6 DO 2403 L1 = L,6 IF (M(L-1) .EQ. M(L1)) GO TO 8 2403 CONTINUE 2404 CONTINUE N = 6 GO TO 3 C C***** 25-SLOAD,27-TEMP,81-DEFORM *************************** C 2500 IF (M(1) .LE. 0) GO TO 8 DO 2510 L = 2,6,2 IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 2510 IF (M(L) .LE. 0) GO TO 8 N = N + 3 I(N-2) = M(1 ) I(N-1) = M(L ) I(N ) = M(L+1) IF (N .LE. 3) GO TO 2510 DO 2502 L1 = 6,N,3 IF (I(N-1) .EQ. I(L1-4)) GO TO 8 2502 CONTINUE 2510 CONTINUE IF (N) 8,8,2 C C***** 26-GRAV ***************************************** C 2600 IF (M(1).LE.0 .OR. M(2).LT.0) GO TO 8 IF (M(4).NE.0 .OR. M(5).NE.0 .OR. M(6).NE.0) GO TO 2605 IF (M(3) .NE. 0) GO TO 8 RM(4) = 1.0 2605 N = 6 GO TO 3 C C***** 29-PROD ***************************************** C 2900 N = 6 2903 IF (M(2) .LE. 0) GO TO 8 2906 IF (M(1) .LE. 0) GO TO 8 GO TO 3 C C***** 30-PTUBE ***************************************** C 2920 N = 5 IF (RM(3).LE.0.0 .OR. RM(4).LT.0.0 .OR. RM(4).GT.0.5*RM(3)) 1 GO TO 8 IF (RM(4) .EQ. 0.0) RM(4) = 0.5*RM(3) GO TO 2903 C C***** 33-PTRIA1,38-PQUAD1 ********************************** C 2980 IF (M(2).LT.0 .OR. M(4).LT.0 .OR. M(6).LT.0) GO TO 8 IF (M(2).EQ.0 .AND. M(4).EQ.0 .AND. M(6).EQ.0) GO TO 8 DO 2986 L = 2,6,2 IF (M(L).EQ.0 .AND. M(L+1).NE.0) GO TO 8 2986 CONTINUE N = 10 GO TO 2906 C C***** 34-PTRIA2,37-PTRMEM,39-PQUAD2,41-PQDMEM ******************* C***** 42-PSHEAR,43-PTWIST,121-PTORDRG,250-PQDMEM1 ************* C***** 260-PQDMEM2 C 3000 DO 3010 L = 1,5,4 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 3010 IF (M(L).LE.0 .OR. M(L+1).LE.0) GO TO 8 IF (RM(L+2) .LE. 0.0) GO TO 8 N = N + 4 I(N-3) = M(L ) I(N-2) = M(L+1) I(N-1) = M(L+2) I(N ) = M(L+3) IF (E(KL) .LT. 0) GO TO 3010 IF (M(L) .GT. E(KL)) GO TO 3004 E(KL) = -M(L) GO TO 3010 3004 E(KL) = M(L) 3010 CONTINUE IF (N) 8,8,2 3011 KL = 30 GO TO 3000 3012 KL = 31 GO TO 3000 3013 KL = 27 GO TO 3000 3014 KL = 24 GO TO 3000 3015 KL = 28 GO TO 3000 3016 KL = 32 GO TO 3000 3017 KL = 29 GO TO 3000 3018 KL = 25 GO TO 3000 3019 KL = 26 GO TO 3000 C C***** 35-PTRBSC,36-PTRPLT,40-PQDPLT *********************** C 3020 IF (M(2).LT.0 .OR. M(4).LT.0 .OR. M(2).EQ.0 .AND. M(4).EQ.0) 1 GO TO 8 DO 3026 L = 2,4,2 IF (M(L).EQ.0 .AND. M(L+1).NE.0) GO TO 8 3026 CONTINUE N = 8 GO TO 2906 C C***** 44-PMASS,45-PDAMP *********************************** C 3200 DO 3206 L = 1,7,2 IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 3206 IF (M(L) .LE. 0) GO TO 8 N = N + 2 I(N-1) = M(L ) I(N ) = M(L+1) IF (E(KL) .LT. 0) GO TO 3206 IF (M(L) .GT. E(KL)) GO TO 3204 E(KL) = -M(L) GO TO 3206 3204 E(KL) = M(L) 3206 CONTINUE IF (N) 8,8,2 3210 KL = 23 GO TO 3200 3220 KL = 21 GO TO 3200 C C***** 46-PELAS ************************************ C 3240 DO 3250 L = 1,5,4 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 3250 IF (M(L) .LE. 0) GO TO 8 N = N + 4 I(N-3) = M(L ) I(N-2) = M(L+1) I(N-1) = M(L+2) I(N ) = M(L+3) IF (E(KL) .LT. 0) GO TO 3250 IF (M(L) .GT. E(KL)) GO TO 3244 E(KL) = -M(L) GO TO 3250 3244 E(KL) = M(L) 3250 CONTINUE IF (N) 8,8,2 3255 KL = 22 GO TO 3240 C C***** 47-CONROD ***************************************** C 3260 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0) 1 GO TO 8 IF (M(2) .EQ. M(3)) GO TO 8 N = 8 GO TO 3 C C***** 48-CROD,49-CTUBE,50-CVISC,356-CPSE2 ***************** C 3280 DO 3289 L = 1,5,4 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0 .AND. 1 M(L+3).EQ.0) GO TO 3289 IF (M(L).LE.0 .OR. M(L+2).LE.0 .OR. M(L+3).LE.0) GO TO 8 IF (MF(L+1) .EQ. 0) M(L+1) = M(L) IF (M(L+1).LE.0 .OR. M(L+2).EQ.M(L+3)) GO TO 8 N = N + 4 I(N-3) = M(L ) I(N-2) = M(L+1) I(N-1) = M(L+2) I(N ) = M(L+3) IF (E(KL) .LT. 0) GO TO 3289 IF (M(L) .GT. E(KL)) GO TO 3287 E(KL) = -M(L) GO TO 3289 3287 E(KL) = M(L) 3289 CONTINUE IF (N) 8,8,2 3281 KL = 1 GO TO 3280 3282 KL = 2 GO TO 3280 3283 KL = 3 GO TO 3280 C C***** 52-CTRIA1,53-CTRIA2,54-CTRBSC,55-CTRPLT,56-CTRMEM **** C 357-CPSE3 C 3360 IF (M(3).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0) GO TO 8 IF (M(3).EQ.M(4) .OR. M(4).EQ.M(5) .OR. M(3).EQ.M(5)) GO TO 8 N = 6 IF (K .EQ. 357) N = 5 3370 IF (MF(2) .EQ. 0) M(2) = M(1) GO TO 2903 C C***** 57-CQUAD1,58-CQUAD2,59-CQDPLT,60-CQDMEM,249-CQDMEM1 **** C***** 259-CQDMEM2,358-CPSE4 C 3460 IF (M(3).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0 .OR. M(6).LE.0) 1 GO TO 8 IF (M(3).EQ.M(4) .OR. M(4).EQ.M(5) .OR. M(5).EQ.M(6) .OR. 1 M(3).EQ.M(5) .OR. M(4).EQ.M(6) .OR. M(3).EQ.M(6)) GO TO 8 N = 7 IF (K .EQ. 358) N = 6 GO TO 3370 C C***** 61-CSHEAR,62-CTWIST ********************************** C 3540 IF (M(3).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0 .OR. M(6).LE.0) 1 GO TO 8 IF (M(3).EQ.M(4) .OR. M(4).EQ.M(5) .OR. M(5).EQ.M(6) .OR. * M(3).EQ.M(5) .OR. M(4).EQ.M(6) .OR. M(3).EQ.M(6)) GO TO 8 N = 6 GO TO 3370 C C***** 63-CONM1 ***************************************** C 3580 IF (M(1).LT.0 .OR. M(2).LE.0 .OR. M(3).LT.0) GO TO 8 N = 24 GO TO 3 C C***** 64-CONM2 ***************************************** C 3600 IF (M(1).LT. 0 .OR. M(2).LE.0) GO TO 8 DO 3612 L = 1,7 3612 I(L) = M(L) DO 3615 L = 8,13 3615 I(L) = M(L+1) N = 13 GO TO 2 C C***** 65-CMASS1,69-CDAMP1,73-CELAS1,70-CDAMP2,66-CMASS2 **** C 3620 IF (MF(2) .EQ. 0) M(2) = M(1) IF (M(2) .LE. 0) GO TO 8 3623 N = 6 3626 IF (M(1) .LE. 0) GO TO 8 IF (M(3).LT.0 .OR. M(4).LT.0 .OR. M(5).LT.0 .OR. M(6).LT.0) 1 GO TO 8 IF (M(4).GT.6 .OR. M(6).GT.6 .OR. M(3).EQ.0 .AND. M(5).EQ.0) 1 GO TO 8 IF (M(3).EQ.0 .AND. M(4).NE.0 .OR. M(5).EQ.0 .AND. M(6).NE.0) 1 GO TO 8 IF (M(3).EQ.M(5) .AND. M(4).EQ.M(6)) GO TO 8 ICELL = M(4) M(4) = M(5) M(5) = ICELL GO TO 3 C C***** 67-CMASS3,75-CELAS3,71-CDAMP3 ************************ C 3660 DO 3669 L = 1,5,4 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0 .AND. 1 M(L+3).EQ.0) GO TO 3669 IF (M(L).LE.0 .OR. M(L+2).LT.0 .OR. M(L+3).LT.0) GO TO 8 IF (MF(L+1) .EQ. 0) M(L+1) = M(L) IF (M(L+1).LE.0 .OR. M(L+2).EQ.M(L+3)) GO TO 8 N = N + 4 I(N-3) = M(L ) I(N-2) = M(L+1) I(N-1) = M(L+2) I(N ) = M(L+3) IF (E(KL) .LT. 0) GO TO 3669 IF (M(L) .GT. E(KL)) GO TO 3667 E(KL) = -M(L) GO TO 3669 3667 E(KL) = M(L) 3669 CONTINUE IF (N) 8,8,2 3674 KL = 4 GO TO 3660 3675 KL = 5 GO TO 3660 3676 KL = 6 GO TO 3660 C C***** 68-CMASS4,76-CELAS4,72-CDAMP4 ************************ C 3680 DO 3689 L = 1,5,4 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0 .AND. 1 M(L+3).EQ.0) GO TO 3689 IF (M(L).LE.0 .OR. M(L+2).LT.0 .OR. M(L+3).LT.0) GO TO 8 IF (M(L+2) .EQ. M(L+3)) GO TO 8 N = N + 4 I(N-3) = M(L ) I(N-2) = M(L+1) I(N-1) = M(L+2) I(N ) = M(L+3) IF (E(KL) .LT. 0) GO TO 3689 IF (M(L) .GT. E(KL)) GO TO 3687 E(KL) = -M(L) GO TO 3689 3687 E(KL) = M(L) 3689 CONTINUE IF (N) 8,8,2 3697 KL = 7 GO TO 3680 3698 KL = 8 GO TO 3680 3699 KL = 9 GO TO 3680 C C***** 74-CELAS2 ***************************************** C 3800 N = 8 GO TO 3626 C C***** 77-MAT1 ***************************************** C 3860 IF (M(1).LE.0 .OR. (RM(2).EQ.0 .AND. RM(3).EQ.0)) GO TO 8 IF ((RM(2).LT.0. .OR. RM(3).LT.0.) .AND. KSYSTM(78).GE.0) GO TO 8 N = 12 IF (M(12) .LT. 0) GO TO 8 L = 3 IF (MF(2).EQ.0 .OR. RM(2).EQ.0.) L = L - 1 IF (MF(3).EQ.0 .OR. RM(3).EQ.0.) L = L - 1 IF (MF(4).EQ.0 .OR. RM(4).EQ.0.) L = L - 1 IF (L .GE. 2) GO TO 3865 CALL PAGE2 (3) WRITE (NOUT,3862) UWM,M(1) 3862 FORMAT (A25,' 2251, TWO OF THE E, G AND NU ON MAT1 CARD ',I8, 1 ' ARE ZEROS OR BLANKS.', /5X, 2 'POTENTIAL ERROR MAY OCCUR LATER') 3865 IF (MF(2).EQ.2 .AND. MF(3).EQ.2 .AND. MF(4).EQ.2) GO TO 3 IF (MF(2) .EQ. 0) RM(2) = 2.0*RM(3)*(1.0+RM(4)) IF (MF(3) .EQ. 0) RM(3) = RM(2)/(2.0*(1.0+RM(4))) IF (MF(4) .EQ. 0) RM(4) = RM(2)/(2.0*RM(3)) - 1.0 IF (RM(4).GE.-1.0 .AND. RM(4).LE.0.5) GO TO 3 CALL PAGE2 (2) WRITE (NOUT,3870) UWM,M(1),RM(4) 3870 FORMAT (A25,' 2251, PHYSICALLY UNREALISTIC VALUE FOR NU ON MAT1 ', 1 'CARD ',I8,'. VALUE = ',1P,E16.4) GO TO 3 C C***** 78-MAT2 ***************************************** C 3880 N = 17 IF (M(17) .LT. 0) GO TO 8 IF (M(1)) 8,8,3 C C***** 234-MAT4, 337-MATF ************************************** C 3900 IF (M(1) .LE. 0) GO TO 8 IF (RM(2) .LE. 0.0) GO TO 8 IF (RM(3).LE.0.0 .AND. MF(3).EQ.2) GO TO 8 N = 3 GO TO 3 C C***** 237-MATT4 ************************************* C 3950 IF (M(1) .LE. 0) GO TO 8 IF (M(2) .LT. 0) GO TO 8 N = 2 GO TO 3 C C***** 235-MAT5 ************************************* C 4000 IF (M(1) .LE. 0) GO TO 8 IF (RM(8).LE.0.0 .AND. MF(8).EQ.2) GO TO 8 N = 8 GO TO 3 C C***** 238-MATT5 ************************************* C 4050 IF (M(1) .LE. 0) GO TO 8 IF (MF(8) .NE. 0) GO TO 7 N = 7 GO TO 3 C C***** 315-MATPZ1, 319-MAT6 **************************************** C 4060 IF (M(1) .LE. 0) GO TO 8 N = 15 IF (K .EQ. 319) N = 31 GO TO 3 C C***** 316-MATPZ2 ******************************************** C 4070 IF (M(1) .LE. 0) GO TO 8 N = 52 GO TO 3 C C***** 317-MTTPZ1, 320-MATT6 *********************************** C 4080 N = 15 IF (K .EQ. 320) N = 31 DO 4081 L = 1,N IF (M(L) .LT. 0) GO TO 8 4081 CONTINUE IF (M(1) .EQ. 0) GO TO 8 GO TO 3 C C***** 318-MTTPZ2 ************************************************* C 4090 DO 4091 L = 1,52 IF (M(L) .LT. 0) GO TO 8 4091 CONTINUE IF (M(1) .EQ. 0) GO TO 8 N = 52 GO TO 3 C C***** 223-AXSLOT ************************************** C 4100 IF (SLOT) GO TO 8 SLOT = .TRUE. IAXF = IAXF + 2 SLOTDF(1) = RM(1) SLOTDF(2) = RM(2) IF (M(3) .LT. 0) BADDAT =.TRUE. KLOTDF(3) = M(3) SLOTDF(4) = RM(4) IF (M(5) .LT. 0) BADDAT =.TRUE. KLOTDF(5) = M(5) N = 5 GO TO 3 C C***** 224-CAXIF2 ************************************** C 4200 IF (MF(4).NE.0 .OR. MF(5).NE.0) GO TO 7 N = 3 4250 IF (M(1) .LE. 0) GO TO 8 IF (MF(6) .EQ. 0) RM(6) = SLOTDF(1) IF (MF(7) .EQ. 0) RM(7) = SLOTDF(2) IF (MF(8) .EQ. 0) M(8) = KLOTDF(3) DO 4255 L = 2,N IF (M(L) .LE. 0) GO TO 8 IF (L .EQ. 2) GO TO 4255 DO 4253 L1 = 3,L IF (M(L1-1) .EQ. M(L)) GO TO 8 4253 CONTINUE 4255 CONTINUE C CHECK FOR RHO .GE. 0.0 C CHECK FOR B .GE. 0.0 C CHECK FOR N .GE. 0 DO 4260 L = 6,8 L1 = L + N - 5 4260 I(L1) = M(L) DO 4270 L = 1,N 4270 I(L) = M(L) N = N + 3 GO TO 2 C C***** 225-CAXIF3 ************************************** C 4300 IF (MF(5) .NE. 0) GO TO 7 N = 4 GO TO 4250 C C***** 226-CAXIF4 ************************************** C 4400 N = 5 GO TO 4250 C C***** 227-CSLOT3 ************************************** C 4500 IF (MF(5) .NE. 0) GO TO 7 N = 4 4550 IF (MF(6) .EQ. 0) RM(6) = SLOTDF(1) IF (MF(7) .EQ. 0) RM(7) = SLOTDF(2) IF (MF(8) .EQ. 0) M(8) = KLOTDF(5) C CHECK FOR ALL KINDS OF THINGS DO 4560 L = 6,8 L1 = L + N - 5 4560 I(L1) = M(L) DO 4570 L = 1,N 4570 I(L) = M(L) N = N + 4 I(N) = KLOTDF(3) GO TO 2 C C***** 228-CSLOT4 ************************************** C 4600 N = 5 GO TO 4550 C C***** 229-GRIDF ************************************** C 4700 IF (M(1) .LE. 0) GO TO 8 IF (RM(2) .LE. 0.0) GO TO 8 N = 3 GO TO 3 C C***** 230-GRIDS ************************************** C 4800 IF (M(1) .LE. 0) GO TO 8 IF (M(5) .LT. 0) GO TO 8 IF (MF(4) .EQ. 0) RM(4) = SLOTDF(4) N = 5 GO TO 3 C C***** 231-SLBDY ************************************** C 4900 IF (KM .NE. 0) GO TO 4905 KM = 1 IF (MF(1).NE.2 .AND. MF(1).NE.0) BADFOR =.TRUE. IF (MF(1) .EQ. 0) M(1) = KLOTDF(1) IF (MF(2).NE.1 .AND. MF(2).NE.0) BADFOR =.TRUE. IF (MF(2) .EQ. 0) M(2) = KLOTDF(5) IF (M(2) .LT. 0) BADDAT =.TRUE. I(1) = M(1) I(2) = M(2) N = 2 IZ = 3 GO TO 4906 4905 IZ = 1 4906 DO 4908 L = IZ,8 IF (MF(L) .EQ. 0) GO TO 4940 IF (M(L) .LE. 0) BADDAT =.TRUE. N = N + 1 I(N) = M(L) 4908 CONTINUE 4910 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4920 KM = 0 N = N + 1 I(N) =-1 KN = 0 4920 GO TO 9 4940 IZ = L + 1 DO 4950 L = IZ,8 IF (MF(L) .NE. 0) BADFOR =.TRUE. 4950 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADFOR =.TRUE. GO TO 4910 C C***** 232-CHBDY ************************************* C 5000 IF (M(1) .LE. 0) GO TO 8 I(1) = M(1) IF (M(2) .LT. 0) GO TO 8 I(2) = M(2) DO 5010 L = 1,7 IF (M(3).EQ.HBDYNM(1,L) .AND. M(4).EQ.HBDYNM(2,L)) GO TO 5020 5010 CONTINUE GO TO 8 5020 I(3) = L L1 = HBDYIX(L) DO 5025 L2 = 1,L1 IF (M(L2+4).LE.0 .OR. M(L2+9).LT.0) GO TO 8 I(L2+3) = M(L2+4) 5025 I(L2+7) = M(L2+9) IF (L1 .EQ. 4) GO TO 5035 DO 5030 L2 = L1,3 IF (M(L2+5).NE.0 .OR. M(L2+10).NE.0) GO TO 8 I(L2+4) = 0 5030 I(L2+8) = 0 5035 DO 5040 L2 = 12,14 5040 I(L2) = M(L2+2) N = 15 I(15) = M(9) GO TO 2 C C***** 233-QHBDY ************************************* C 5050 IF (M(1) .LE. 0) GO TO 8 I(1) = M(1) DO 5055 L = 1,5 IF (M(2).EQ.HBDYNM(1,L) .AND. M(3).EQ.HBDYNM(2,L)) GO TO 5060 5055 CONTINUE GO TO 8 5060 I(2) = L L1 = HBDYIX(L) DO 5065 L2 = 1,L1 IF (M(L2+5) .LE. 0) GO TO 8 5065 I(L2+4) = M(L2+5) IF (L1 .EQ. 4) GO TO 5075 DO 5070 L2 = L1,3 IF (M(L2+6) .NE. 0) GO TO 8 5070 I(L2+5) = 0 5075 I(3) = M(4) IF (L.GE.3 .AND. MF(4).NE.0) GO TO 7 IF (L.LT.3 .AND. RM(5).LE.0.0) GO TO 8 I(4) = M(5) N = 8 GO TO 2 C C***** 236-PHBDY ************************************* C 5100 IF (M(1) .LE. 0) GO TO 8 IF (M(2) .LT. 0) GO TO 8 IF (RM(3) .LT. 0.0) GO TO 8 IF (RM(4).LT.0.0 .OR. RM(4).GT.1.0) GO TO 8 IF (RM(5).LT.0.0 .OR. RM(5).GT.1.0) GO TO 8 IF (MF(5) .EQ. 0) RM(5) = RM(4) N = 7 GO TO 3 C C***** 240-QBDY2 ************************************* C 5150 IF (M(1) .LE. 0) GO TO 8 IF (M(2) .LE. 0) GO TO 8 N = 6 GO TO 3 C C***** 289-VIEW *************** C 5175 N = 6 IF (M(1) .GT. 0) GO TO 3 GO TO 8 C C***** 241-QVECT ************************************* C 5200 IF (KM .NE. 0) GO TO 5215 IF (M(1) .LE. 0) BADDAT =.TRUE. IF (MF(2).NE.2 .AND. MF(2).NE.0) BADFOR =.TRUE. I(1) = M(1) I(2) = M(2) DO 5210 L = 3,6 IF (MF(L) .EQ. 1) GO TO 5205 IF (MF(L).NE.2 .AND. MF(L).NE.0) BADFOR =.TRUE. I(L) = M(L) GO TO 5210 5205 IF (M(L) .LT. 0) BADDAT =.TRUE. I(L) = M(L) 5210 CONTINUE L = 6 K914 = 209 GO TO 5216 5215 L = 1 5216 KM = 1 KN = 1 N = 6 L4 = L IF (MF(L) .NE. 1) BADFOR =.TRUE. IF (M(L4) .LE. 0) BADDAT =.TRUE. 5220 IF (L .EQ. 8) GO TO 5235 IF (MF(L) .EQ. 3) GO TO 5225 IF (MF(L+1) .EQ. 0) GO TO 5234 IF (M(L4) .LE. 0) BADDAT =.TRUE. I(N) = M(L4) L = L + 1 L4 = L4 + 1 CALL WRITE (K914,I,N,0) GO TO 5220 5225 IF (MF(L+1).NE.1 .OR. M(L4).NE.THRU) GO TO 5232 IF (M(L4-1) .GE. M(L4+2)) GO TO 5232 L1 = M(L4-1) + 1 L2 = M(L4+2) - 1 IF (L2 .LE. L1) GO TO 5230 5227 L3 = L1 I(N) = L3 CALL WRITE (K914,I,N,0) L1 = L1 + 1 IF (L1 .LE. L2) GO TO 5227 5230 L = L + 1 L4 = L4 + 2 GO TO 5220 5232 BADDAT =.TRUE. L = L + 1 L4 = L4 + 2 GO TO 5220 5234 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADFOR =.TRUE. 5235 IF (MF(L) .NE. 1) BADFOR =.TRUE. I(N) = M(L4) IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 KN = 0 KM = 0 GO TO 9 C C***** 257-CYJOIN *************************************** C 5240 IF (KM .NE. 0) GO TO 5253 IF (M(1).NE.1 .AND. M(1).NE.2) BADDAT =.TRUE. I(1) = M(1) IF (MF(2) .EQ. 3) GO TO 5242 IF (MF(2) .NE. 0) BADFOR =.TRUE. I(2) = BLK L4 = 3 GO TO 5244 5242 IF (M(2).NE.BCDC .AND. M(2).NE.BCDR .AND. M(2).NE.BCDS .AND. 1 M(2).NE.IT1 .AND. M(2).NE.IT2 .AND. M(2).NE.IT3) 2 BADDAT=.TRUE. I(2) = M(2) L4 = 4 5244 KM = 1 I(3) = BLK N = 3 L = 3 K914 = 210 IF (MF(L) .NE. 1) BADFOR =.TRUE. IF (M(L4) .LE. 0) BADDAT =.TRUE. GO TO 5252 C C***** 258-CNGRNT ************************************* C 5245 IF (KM .NE. 0) GO TO 5253 K914 = 208 GO TO 5253 C C***** 243-RADLST ************************************* C 5250 IF (KM .NE. 0) GO TO 5253 IF (IDRDL .EQ. 1) BADFOR =.TRUE. IDRDL = 1 K914 = 214 5253 L = 1 N = 0 5251 KM = 1 L4 = L IF (MF(L) .NE. 1) BADFOR =.TRUE. IF (M(L4) .LE. 0) BADDAT =.TRUE. 5252 IF (L .GT. 8) GO TO 5260 IF (MF(L) .EQ. 0) GO TO 5262 IF (MF(L) .EQ. 3) GO TO 5254 IF (M(L4) .LE. 0) BADDAT =.TRUE. IF (N .LT. 49) GO TO 5255 CALL WRITE (K914,I,N,0) N = 0 5255 N = N + 1 I(N) = M(L4) L = L + 1 L4 = L4 + 1 GO TO 5252 5254 IF (L .EQ. 8) GO TO 5258 IF (MF(L+1).NE.1 .OR. M(L4).NE.THRU) GO TO 5258 IF (M(L4-1) .GE. M(L4+2)) GO TO 5258 L1 = M(L4-1) + 1 L2 = M(L4+2) 5256 L3 = L1 IF (N .LT. 49) GO TO 5257 CALL WRITE (K914,I,N,0) N = 0 5257 N = N + 1 I(N) = L3 L1 = L1 + 1 IF (L1 .LE. L2) GO TO 5256 L = L + 2 L4 = L4 + 3 GO TO 5252 5258 BADDAT =.TRUE. L = L + 1 L4 = L4 + 2 GO TO 5252 5260 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 5266 5261 KM = 0 N = N + 1 I(N) =-1 KN = 0 GO TO 9 5262 DO 5264 L2 = L,8 IF (MF(L2) .NE. 0) BADFOR =.TRUE. 5264 CONTINUE IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 5261 BADFOR =.TRUE. 5266 KN = 1 GO TO 9 C C***** 268-SET1 ****************************************** C 5300 IF (KM .NE. 0) GO TO 5253 IF (MF(1) .NE. 1) BADFOR =.TRUE. I(1) = M(1) N = 1 L = 2 K914 = 204 GO TO 5251 C C***** 291-CTRIM6 **************************************** C 6101 IF (M(3).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0 .OR. M(6).LE.0 .OR. 1 M(7).LE.0 .OR. M(8).LE.0) GO TO 8 IF (M(3).EQ.M(4) .OR. M(3).EQ.M(5) .OR. M(3).EQ.M(6) .OR. 1 M(3).EQ.M(7) .OR. M(3).EQ.M(8) .OR. M(4).EQ.M(5) .OR. 2 M(4).EQ.M(6) .OR. M(4).EQ.M(7) .OR. M(4).EQ.M(8)) GO TO 8 IF (M(5).EQ.M(6) .OR. M(5).EQ.M(7) .OR. M(5).EQ.M(8) .OR. 1 M(6).EQ.M(7) .OR. M(6).EQ.M(8) .OR. M(7).EQ.M(8)) GO TO 8 DO 6102 L = 1,8 IF (MF(L) .NE. 1) GO TO 7 6102 CONTINUE IF (MF(9).NE.0 .AND. MF(9).NE.2) GO TO 7 IF (MF(2) .EQ. 0) M(2) = M(1) N = 9 GO TO 2903 C C***** 292-PTRIM6 **************************************** C 6201 IF (M(2).LT.0 .OR. RM(3).LT.0.0 .OR. RM(4).LT.0.0 .OR. 1 RM(5).LT.0.0) GO TO 8 IF (RM(3) .EQ. 0.0) GO TO 8 IF (MF(1).NE.1 .AND. MF(2).NE.1) GO TO 7 IF (MF(3) .NE. 2) GO TO 7 DO 6202 L = 4,6 IF (MF(L).NE.0 .AND. MF(L).NE.2) GO TO 7 6202 CONTINUE N = 6 GO TO 2906 C C***** 293-CTRPLT1 **************************************** C 6301 GO TO 6101 C C***** 294-PTRPLT1 **************************************** C 6401 IF (M(2).LT.0 .OR. M(6).LT.0 .OR. M(2).EQ.0 .AND. M(6).EQ.0) 1 GO TO 8 IF (M(2).EQ.0 .AND. M(3).NE.0 ) GO TO 8 IF (M(6).EQ.0 .AND. M(7).NE.0 ) GO TO 8 IF (MF(1).NE.1 .AND. MF(2).NE.1) GO TO 7 IF (MF(6).NE.0 .AND. MF(6).NE.1) GO TO 7 IF (MF(3) .NE. 2) GO TO 7 IF (MF(4).NE.0 .AND. MF(4).NE.2) GO TO 7 IF (MF(5).NE.0 .AND. MF(5).NE.2) GO TO 7 DO 6402 L = 7,16 IF (MF(L).NE.0 .AND. MF(L).NE.2) GO TO 7 6402 CONTINUE N = 16 GO TO 2906 C C***** 295-CTRSHL **************************************** C 7501 GO TO 6101 C C***** 296-PTRSHL **************************************** C 7601 CONTINUE IF (M(2).LT.0 .OR. M(6).LT.0 .OR. M(10).LT.0 .OR. M(2).EQ.0 .AND. 1 M(6).EQ.0 .AND. M(10).EQ.0) GO TO 8 IF (M(2).EQ.0 .AND. RM(3).NE.0.0) GO TO 8 IF (M(6).EQ.0 .AND. RM(7).NE.0.0) GO TO 8 IF (M(10).EQ.0 .AND. RM(11).NE.0.0) GO TO 8 IF (RM(3).LT.0.0 .OR. RM(4).LT.0.0 .OR. RM(5).LT.0.0) GO TO 8 IF (RM(7).LT.0.0 .OR. RM(8).LT.0.0 .OR. RM(9).LT.0.0) GO TO 8 IF (RM(11).LT.0.0 .OR. RM(12).LT.0.0 .OR. RM(13).LT.0.0) GO TO 8 IF (MF(10).NE.0 .AND. MF(10).NE.1) GO TO 7 IF (MF(1) .NE. 1) GO TO 7 IF (MF(2).NE.0 .AND. MF(2).NE.1) GO TO 7 IF (MF(6).NE.0 .AND. MF(6).NE.1) GO TO 7 DO 7602 L = 3,11,4 IF (MF(L).NE.0 .AND. MF(L).NE.2) GO TO 7 IF (MF(L+1).NE.0 .AND. MF(L+1).NE.2) GO TO 7 IF (MF(L+2).NE.0 .AND. MF(L+2).NE.2) GO TO 7 7602 CONTINUE N = 20 GO TO 2906 C C********* 359-PPSE ****************************************** C 7700 N = 5 IF (M(1) .LE. 0) GO TO 8 IF (RM(2) .EQ. 0.) GO TO 8 RM(3) = 0.0 RM(4) = 0.0 RM(5) = 0.0 GO TO 3 C END ================================================ FILE: mis/ifs2p.f ================================================ SUBROUTINE IFS2P (*,*,*) C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,ORF LOGICAL ABORT,FLUSH,FLSHAL,EC,INT,DMIFLG,FPHYS,FPHYS1, 1 BADDAT,BADFOR,IAX,IAXF,FPHYS2,LHARM,SECD,FTHRU INTEGER NAM(2),ONM(2),NM(2),T(7),IHILL(2),IHOFF(2), 1 ITSAI(2),ISTRS(2),ISTRN(2),IALL(2),ISYM(2), 2 IMEM(2),ISYMM(2) REAL XM(100),Z(100),XL,XL1,X1,X2,ZSEQ,ZSEQ1,OLDXM3 DOUBLE PRECISION DA(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /MACHIN/ MACH COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ KSYSTM(77) COMMON /XPFIST/ IPFIST COMMON /XFIST / IFIST(1) COMMON /XFIAT / IFIAT(2) COMMON /IFPX1 / NT1,T1(2,1) COMMON /IFPDTA/ ID,N,K,KX,KY,I(100),M(100),MF(100),M1(100), 1 M1F(100),KN,BADDAT,BADFOR,NOPEN,NPARAM,IAX,NAX, 2 IAXF,NAXF,LHARM,KNT,SLOTDF(5),GC(7),LL(6) COMMON /ZBLPKX/ A(4),I0 COMMON /ZZZZZZ/ IBUF(1) COMMON /CIFS2P/ FPHYS,FPHYS1,KM,DMIFLG,IBCDS,FTHRU,FPHYS2 COMMON /XDPL / P(3) COMMON /L15 L8/ L15,L8 C C P(1) = NEXT AVAILABLE FILE ON POOL C P(2) = TOTAL NUMBER OF POSSIBLE ENTRYS C P(3) = CURRENT NUMBER OF ENTRYS PRESENT C P(4) - P(3*P(2)+3) = THREE WORDS FOR EACH ENTRY AS FOLLOWS... C 1. NAME(1) C 2. NAME(2) C 3. EQUIV FLAG, SIZE/1000, FILE NO. ON POOL C EQUIVALENCE (KSYSTM( 1) , NBUF ) , (KSYSTM(24) , ICFIAT) , 1 (KSYSTM( 2) , NOUT ) , (KSYSTM(55) , KPREC ) , 2 (KSYSTM( 3) , ABORT ) , (KSYSTM(77) , BANDIT) , 3 (NROWS,T(3)),(IFO,T(4)),(TY2,T(5)),(Z(1),I(1)) , 4 (XM(1),M(1)),(DA(1),A(1)) C DATA NAM / 4HISF2, 4HP / DATA ENDT / 4HENDT /, SKIP / 4HSKIP /, POOL / 4HPOOL / DATA BCDBLK / 4H /, BCDDET / 4HDET /, BCDSDT / 4HSDET /, 1 BCDUDT / 4HUDET /, BCDINV / 4HINV /, BCDSIN / 4HSINV /, 2 BCDUIN / 4HUINV /, BCDGIV / 4HGIV /, BCDMGV / 4HMGIV /, 3 BCDHES / 4HHESS /, BCDFER / 4HFEER /, BCDMAS / 4HMASS /, 4 BCDMAX / 4HMAX /, BCDPOI / 4HPOIN /, 5 BCDQ / 4H-Q /, BCDT / 4HT /, BCDZ / 4H-X /, 6 BCDLL / 4HLL /, BCDSL / 4HSL /, BCDLS / 4HLS / DATA THRU / 4HTHRU /, EIGR / 4HEIGR /, EIGB / 4HEIGB / DATA DMI / 4H DMI /, DTI / 4H DTI /, DMIG / 4HDMIG / DATA ENDRC1, ENDRC2 / 4HENDR , 4HEC / DATA ISCR1 / 301 /, ICOMP / 1 / DATA IHILL , IHOFF , ITSAI , ISTRS , ISTRN / 1 4HHILL , 4H , 4HHOFF , 4H , 4HTSAI , 4H , 2 4HSTRE , 4HSS , 4HSTRA , 4HIN / DATA IALL , ISYM , IMEM , ISYMM / 1 4HALL , 4H , 4HSYM , 4H , 4HMEM , 4H , 2 4HSYMM , 4HEM / DATA IYES, INO / 4HYES , 4HNO / C C ======================================================= C DMI AND DMIG MUST ACCOMODATE ALL KINDS OF SPECIAL FORMS C E.G., IDENTITY MATRIX C ======================================================= C IF (K .GT. 100) GO TO 81 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 3 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 4 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 7 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8 5, 5, 5, 5, 850, 850, 870, 5, 890, 5, 9 5, 5, 920, 920, 920, 960, 920, 5, 5, 5 ), K 81 IF (KX .GT. 100) GO TO 82 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5, 5, 5, 5,1190,1200, 2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 3 5, 5, 920, 920, 5, 5, 5, 5, 5, 920, 4 960, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6 5, 920, 5, 5, 5, 5, 5, 5, 5, 5, 7 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8 5, 5, 5, 5, 5, 5, 5,1000, 5, 5, 9 920,2900, 5, 5, 5, 5, 5, 5, 5,2000 ), KX 82 IF (KY .GT. 100) GO TO 83 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 3 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 4 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6 3100,3300, 5, 5, 5, 5, 5, 5, 5, 5, 7 5, 5, 5, 5, 5, 5, 5, 5, 5,4100, 8 4300,4500,4700, 5, 5, 5, 5, 5, 5, 5, 9 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 ), KY 83 KZ = K - 300 IF (KZ .GT. 60) GO TO 5 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 3 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 4 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 5, 5, 5,3200, 5, 5, 920, 5, 5, 5 ), KZ 5 CALL PAGE2 (2) WRITE (NOUT,6) SFM 6 FORMAT (A25,' 322, ILLEGAL ENTRY TO IFS2P.') ABORT =.TRUE. RETURN 1 7 BADFOR =.TRUE. RETURN 1 8 BADDAT =.TRUE. RETURN 1 3 DO 4 L = 1,N 4 I(L) = M(L) 2 RETURN 9 RETURN 3 C C******* 85-EIGR, 86-EIGB *********************************** C 850 IF (M(1) .LE. 0) GO TO 8 IF (M(3).NE.BCDBLK .AND. M(2).NE.BCDFER) GO TO 8 IF (M(2).NE.BCDDET .AND. M(2).NE.BCDSDT .AND. M(2).NE.BCDUDT .AND. 1 M(2).NE.BCDINV .AND. M(2).NE.BCDSIN .AND. M(2).NE.BCDUIN .AND. 2 M(2).NE.BCDGIV .AND. M(2).NE.BCDMGV .AND. M(2).NE.BCDFER) 3 GO TO 8 IF (M(2).EQ.BCDFER .AND. (M(3).NE.BCDBLK .AND. M(3).NE.BCDQ .AND. 1 M(3).NE.BCDZ)) GO TO 8 IF (M(10)+M(11) .EQ. 0) GO TO 852 IF (M(10).NE.BCDBLK .OR. M(11).NE.BCDBLK) GO TO 860 852 NM(1) = EIGR NM(2) = BCDMAS IF (K .EQ. 85) GO TO 855 NM(1) = EIGB NM(2) = BCDMAX 855 M(10) = NM(2) M(12) = 0 M(13) = 0 CALL MESAGE (30,222,NM) GO TO 865 860 IF ((M(10).NE.BCDMAS .OR. M(11).NE.BCDBLK) .AND. 1 (M(10).NE.BCDMAX .OR. M(11).NE.BCDBLK) .AND. 2 (M(10).NE.BCDPOI .OR. M(11).NE.BCDT )) GO TO 8 IF (M(10).NE.BCDPOI .AND. (M(12).NE.0 .OR. M(13).NE.0)) GO TO 8 IF (M(10).EQ.BCDPOI .AND. (M(12).LE.0 .OR. M(13).LT.0)) GO TO 8 865 IF (M(6).EQ.0 .AND. M(2).NE.BCDGIV .AND. M(2).NE.BCDMGV .AND. 1 M(2).NE.BCDFER) GO TO 8 IF (K.EQ.86 .AND. (M(2).EQ.BCDGIV .OR. M(2).EQ.BCDMGV)) GO TO 8 IF ((M(2).EQ.BCDDET .OR. M(2).EQ.BCDSDT) .AND. XM(4).LT.0.0) 1 GO TO 8 IF (M(2).EQ.BCDUDT .AND. XM(4).LT.0.0) GO TO 8 IF (K.EQ.85 .AND. M(2).NE.BCDGIV .AND. M(2).NE.BCDMGV .AND. 1 XM(4).LT.0.0) GO TO 8 IF (M(2).NE.BCDGIV .AND. M(2).NE.BCDMGV .AND. M(2).NE.BCDFER .AND. 1 XM(5).LE.0.0) GO TO 8 IF (M(2).NE.BCDGIV .AND. M(2).NE.BCDMGV .AND. M(2).NE.BCDFER .AND. 1 XM(4).GE.XM(5)) GO TO 8 N = 18 GO TO 3 C C***** 87-EIGC ************************************** C 870 IF (KM .NE. 0) GO TO 872 IF (MF(1).NE.1 .OR. MF(2).NE.3 .OR. MF(3).NE.3 .OR. MF(4).NE.1 1 .AND. MF(4).NE.0 .OR. MF(5).NE.1 .AND. MF(5).NE.0 .OR. 2 MF(6).NE.2 .AND. MF(6).NE.0 .OR. MF(7).NE.0 .OR. MF(8).NE.0) 3 GO TO 875 IF (M(1).LE.0 .OR. M(2).NE.BCDDET .AND. M(2).NE.BCDINV .AND. 1 M(2).NE.BCDHES .AND. M(2).NE.BCDFER .OR. M(4).NE.BCDMAX .AND. 2 (M(4).NE.BCDPOI .OR. M(5).NE.BCDT) .OR. XM(8).LT.0.) GO TO 875 IF (M(4).EQ.BCDMAX .AND. (M(6).NE.0 .OR. M(7).NE.0)) GO TO 875 IF (M(4).EQ.BCDPOI .AND. (M(6).LE.0 .OR. M(7).LT.0)) GO TO 875 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 875 N = 10 874 DO 871 L = 1,N 871 I(L) = M(L) GO TO 876 872 DO 873 L = 1,5 IF (MF(L).NE.2 .AND. MF(L).NE.0) GO TO 875 873 CONTINUE IF (MF(6).NE.1 .AND. MF(6).NE.0 .OR. MF(7).NE.1 .AND. MF(7).NE.0 1 .OR. MF(8).NE.0) GO TO 875 IF (XM(5) .LE. 0.) XM(5) = 1.0 IF (M(6).LT.0 .OR. M(7).LT.0) GO TO 875 N = 7 GO TO 874 875 BADDAT = .TRUE. 876 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 877 DO 878 L = 1,7 N = N + 1 878 I(N) =-1 KM = 0 KN = 0 GO TO 9 877 KN = 1 KM = 1 GO TO 9 C C******* -BLANK CARD- ************************************* C 890 IF (IBCDS .NE. 0)RETURN 2 IBCDS = 1 CALL PAGE2 (2) WRITE (NOUT,891) UWM 891 FORMAT (A25,' 324, BLANK CARD(S) IGNORED.') RETURN 2 C C******* 93- TABLEM1, 94-TABLEM2, 95-TABLEM3 ******************** C 133-TABLED1,134-TABLED2,140-TABLED3 C 162-TABDMP1, 97-TABLES1,191-TABRND1 C 357-TABLEM5 C (TABLEM5 IS DESIGNED FOR THERMAL COEFFICIENT WHICH IS C FUNCTION OF TIME C THIS PROJECT TEMPORARY HALTS HERE 6/90) C 920 IF (KM .NE. 0) GO TO 933 I2 = M(1) ITEMS = 0 N = 8 IF (M(1) .LE. 0) BADDAT = .TRUE. IF (MF(1).NE. 1) BADFOR = .TRUE. I(1) = I2 DO 925 L = 2,7 IF (MF(L).NE.0 .AND. MF(L).NE.2) BADFOR = .TRUE. 925 I(L) = M(L) C C LOGARITHMIC SCALE C I(8) = 0, LINEAR-LINEAR SCALE (ALL TABLES) C = 1, LOG-LOG SCALE (TABLE-1 ONLY) C = 2, LINEAR-LOG SCALE (TABLE-1, TABLE-2 AND TABLE-3) C = 3, LOG-LINEAR SCALE (TABLE-1 ONLY) C TABLE-1 INCLUDES TABLED1, TABLEM1, TABLES1, TABDMP1 AND TABRND1 C TABLE-2 INCLUDES TABLED2 AND TABLEM2 C I(8) = 0 IF (MF(8).NE. 3) GO TO 930 IF (M(8) .EQ. BCDLL) I(8) = 1 IF (M(8) .EQ. BCDSL) I(8) = 2 IF (M(8) .EQ. BCDLS) I(8) = 3 IF (M(8).NE.BCDSL .AND. (K.EQ.94 .OR. K.EQ.95 .OR. K.EQ.134 .OR. 1 K.EQ.140)) BADDAT = .TRUE. C 930 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 932 KN = 1 KM = 1 GO TO 966 932 BADDAT = .TRUE. KN = 0 KM = 0 GO TO 966 933 L1 = 0 DO 955 L = 1,7,2 IF (MF(L).EQ.3 .OR. MF(L+1).EQ.3) GO TO 937 IF (MF(L).NE.0 .AND. MF(L).NE.2 .OR. MF(L+1).NE.0 .AND. 1 MF(L+1).NE.2) GO TO 943 ITEMS = ITEMS + 1 N = N + 2 L1 = L1 + 2 I(N-1) = M(L1-1) I(N ) = M(L1 ) IF (ITEMS .GT. 2) GO TO 935 IF (ITEMS .GT. 1) GO TO 934 X1 = Z(N-1) XL = X1 GO TO 936 934 X2 = Z(N-1) XL1 = XL XL = X2 ZSEQ= SIGN(1.0,X2-X1) IF (X2 .EQ. X1) BADDAT = .TRUE. GO TO 936 935 XL1 = XL XL = Z(N-1) ZSEQ1 = SIGN(1.0,XL-XL1) IF (ZSEQ1.NE.ZSEQ .AND. XL.NE.XL1) BADDAT = .TRUE. 936 GO TO 955 937 IF (MF(L) .EQ. 3) GO TO 938 L1 = L1 + 1 LP1 = L1 KWORD1 = 0 GO TO 939 938 L1 = L1 + 2 LP1 = L1 - 1 KWORD1 = M(LP1) 939 IF (MF(L+1) .EQ. 3) GO TO 941 L1 = L1 + 1 LP2 = L1 KWORD2 = 0 GO TO 942 941 L1 = L1 + 2 LP2 = L1 - 1 KWORD2 = M(LP2) 942 IF (KWORD1.EQ.ENDT .OR. KWORD2.EQ.ENDT) GO TO 961 IF (KWORD1.EQ.SKIP .OR. KWORD2.EQ.SKIP) GO TO 955 BADDAT = .TRUE. GO TO 956 955 CONTINUE GO TO 956 943 BADFOR = .TRUE. GO TO 956 956 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 966 KN = 0 KM = 0 BADDAT = .TRUE. GO TO 966 961 N = N + 2 I(N-1) = -1 I(N ) = -1 IF (XL .EQ. XL1) BADDAT = .TRUE. IF (ITEMS .LT. 2) BADDAT = .TRUE. 958 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 965 KN = 0 KM = 0 GO TO 966 965 KN = 1 KM = 1 BADDAT = .TRUE. 966 IF (BADDAT .OR. BADFOR) GO TO 968 GO TO 2 968 M(1) = I2 GO TO 8 C C******* 96-TABLEM4, 141-TABLED4 ****************************** C 960 IF (KM .NE. 0) GO TO 964 ITEMS = 0 I2 = M(1) N = 8 IF (M(1) .LE. 0) BADDAT = .TRUE. IF (MF(1) .NE. 1) BADFOR = .TRUE. I(1) = I2 IF (M(3) .EQ. 0) BADDAT = .TRUE. DO 962 L = 2,8 IF (MF(L).NE.0 .AND. MF(L).NE.2 .OR. L.GE.6 .AND. MF(L).NE.0) 1 BADFOR = .TRUE. 962 I(L) = M(L) I(8) = 0 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 963 KN = 1 KM = 1 GO TO 966 963 BADDAT = .TRUE. KN = 0 KM = 0 GO TO 966 964 L1 = 0 DO 967 L = 1,8 KWORD1 = 0 IF (MF(L) .EQ. 3) GO TO 969 IF (MF(L).NE.0 .AND. MF(L).NE.2) GO TO 943 N = N + 1 ITEMS = ITEMS + 1 L1 = L1 + 1 I(N) = M(L1) GO TO 967 969 L1 = L1 + 2 KWORD1 = M(L1-1) IF (KWORD1 .EQ. ENDT) GO TO 959 BADDAT = .TRUE. GO TO 956 967 CONTINUE GO TO 956 959 N = N + 1 I(N) = -1 IF (ITEMS .LT. 1) BADDAT = .TRUE. GO TO 958 C C***** 188-TABRNDG ************************************** C 1000 IF (M(1) .LT. 0) GO TO 8 IF (M(2).LT.1 .OR. M(2).GT.2) GO TO 8 I(1) = M(1) I(2) = M(2) I(3) = M(3) I(4) = M(4) I(5) = 0 I(6) = 0 I(7) = 0 I(8) = 0 I(9) =-1 I(10)=-1 N = 10 GO TO 2 C C****** 119-DMI ************************************ C 1190 IF (KM .NE. 0) GO TO 8150 IF (FPHYS) GO TO 8005 IF (M(1).EQ.NM(1) .AND. M(2).EQ.NM(2)) GO TO 8100 ASSIGN 8010 TO R GO TO 8973 8005 IF (P(1) .GT. 1) DMIFLG = .TRUE. FPHYS = .FALSE. NM(1) = 0 NM(2) = 0 IF (BANDIT.NE.-1 .AND. BANDIT.NE.-2) BANDIT = +9 8010 FLUSH = .FALSE. FLSHAL= .FALSE. EC = .TRUE. SECD = .FALSE. T(1) = ISCR1 DO 8012 L = 2,7 8012 T(L) = 0 IF (M(3) .NE. 0) FLUSH = .TRUE. ONM(1) = NM(1) ONM(2) = NM(2) IF (MF(1).NE.3 .OR. M(1).EQ.ONM(1) .AND. M(2).EQ.ONM(2)) 1 FLUSH = .TRUE. NM(1) = M(1) NM(2) = M(2) IPRINT = 0 J0 = 0 IF (P(1) .LE. P(2)) GO TO 8020 FLUSH = .TRUE. FLSHAL = .TRUE. 8020 ASSIGN 8025 TO R1 ASSIGN 8030 TO R GO TO 200 8025 FLUSH = .TRUE. 8030 IF (FLUSH) GO TO 8960 IFO = M(4) TY1 = M(5) TY2 = M(6) IF (TY2.EQ.0 .AND. MOD(TY1,2).EQ.1) TY2 = TY1 + KPREC - 1 IF (TY2.EQ.0 .AND. MOD(TY1,2).EQ.0) TY2 = TY1 IF (MACH .NE. 12) GO TO 8033 IF (TY2.EQ.2 .OR. TY2.EQ.4) TY2 = TY2 - 1 8033 CONTINUE IF (TY1.LT.1 .OR. TY1.GT.4 .OR. TY2.LT.1 .OR. TY2.GT.4) GO TO 8950 IF (TY1.GE.3 .AND. TY2.LE.2) WRITE (NOUT,8035) UWM,DMI,NAM(1), 1 NAM(2),KNT 8035 FORMAT (A25,' 327A, ',A4,' CARD ',2A4,', SORTED CARD COUNT =',I7, 1 ' SPECIFYING COMPLEX DATA INPUT', /5X, 2 'AND REAL MATRIX OUTPUT MAY NOT MAKE SENSE',/) NROWS = M(8) NCOLS = M(9) IF (IFO .GT. 8) GO TO 8950 IF (MF(6) .NE. 0) GO TO 8950 IF (NROWS.LE.0 .OR. NCOLS.LE.0) GO TO 8950 IF ((IFO.EQ.1 .OR. IFO.EQ.6 .OR. IFO.EQ.8) .AND. (NROWS.NE.NCOLS)) 1 GO TO 8950 NBUF2 = 2*NBUF CALL OPEN (*9997,ISCR1,IBUF(NBUF2+1),1) CALL WRITE (ISCR1,NM,2,1) IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 8950 IF (IFO .EQ. 8) GO TO 8040 IF (M1(1).NE.T1(1,K) .OR. M1(2).NE.T1(2,K)) GO TO 8950 GO TO 8960 8040 IF (M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K) .AND. 1 M1(3).EQ.NM(1) .AND. M1(4).EQ.NM(2) ) GO TO 8950 GO TO 8960 8100 IF (.NOT.EC) GO TO 8950 IF (FLUSH) GO TO 8960 EC = .FALSE. IF (M(3) .LE. J0) GO TO 8950 8130 J0 = J0 + 1 IF (M(3) .EQ. J0) GO TO 8140 CALL BLDPK (TY1,TY2,ISCR1,0,0) CALL BLDPKN (ISCR1,0,T) GO TO 8130 8140 I0 = 1 L1 = 4 L1F=-1 L2 = 9 IF (TY1.EQ.2 .OR. TY1.EQ.4) L2 = 14 IF (MF(3).NE.1 .OR. M(4).LT.I0) GO TO 8950 I0 = M(4) - 1 INT = .FALSE. CALL BLDPK (TY1,TY2,ISCR1,0,0) GO TO 8155 8150 IF (J0.LE.0 .OR. J0.GT.NCOLS) GO TO 8950 L1 = 1 L1F = 0 L2 = 8 IF (TY1.EQ.2 .OR. TY1.EQ.4) L2 = 16 8155 L = L1 8156 LF = L + L1F IF (FTHRU) GO TO 8192 IF (MF(LF) .EQ. 0) GO TO 8300 IF (MF(LF).EQ.2 .OR. MF(LF).EQ.4) GO TO 8180 IF (MF(LF) .EQ. -32767) GO TO 8291 IF (INT) GO TO 8950 IF (MF(LF) .EQ. 3) GO TO 8191 IF (MF(LF).NE.1 .OR. M(L).LT.I0 .OR. M(L).GT.NROWS) GO TO 8950 I0 = M(L) INT = .TRUE. GO TO 8290 8180 GO TO (8181,8182,8183,8184), TY1 C . REAL SINGLE PRECISION 8181 IF (MF(LF) .EQ. 4) GO TO 8950 IF (FLUSH .OR. M(L) .EQ. 0) GO TO 8190 A(1) = M(L) GO TO 8185 C . REAL DOUBLE PRECISION 8182 IF (MF(LF) .EQ. 2) GO TO 8950 A(1) = M(L ) A(2) = M(L+1) L = L + 1 L1F = L1F - 1 IF (FLUSH .OR. DA(1).EQ.0.0D0) GO TO 8190 GO TO 8185 C . COMPLEX SINGLE PRECISION 8183 IF (MF(LF) .EQ. 4) GO TO 8950 IF (SECD) GO TO 8186 A(1) = M(L) SECD = .TRUE. GO TO 8290 8186 A(2) = M(L) SECD = .FALSE. IF (A(1).EQ.0 .AND. A(2).EQ.0 .OR. FLUSH) GO TO 8190 GO TO 8185 C . COMPLEX DOUBLE PRECISION 8184 IF (MF(LF) .EQ. 2) GO TO 8950 IF (SECD) GO TO 8187 A(1) = M(L ) A(2) = M(L+1) L = L + 1 L1F = L1F - 1 SECD = .TRUE. GO TO 8290 8187 A(3) = M(L ) A(4) = M(L+1) L = L + 1 L1F = L1F - 1 SECD = .FALSE. IF (FLUSH .OR. DA(1).EQ.0.0D0 .AND. DA(2).EQ.0.0D0) GO TO 8190 C C PACK AN ELEMENT C 8185 CALL ZBLPKI 8190 INT = .FALSE. I0 = I0 + 1 IF (I0 .GT. NROWS) GO TO 8300 IF (L+1 .GT. L2) GO TO 8290 IF (MF(LF+1) .NE. 3) GO TO 8290 L = L + 1 8191 IF (M(L) .NE. THRU) GO TO 8950 FTHRU = .TRUE. L1F = L1F - 1 L2 = L2 + 1 L = L + 1 IF (L .GE. L2) GO TO 8291 L = L + 1 LF = L + L1F 8192 IF (MF(LF).NE.1 .OR. M(L).LT.I0 .OR. M(L).GT.NROWS) GO TO 8950 8193 CALL ZBLPKI I0 = I0 + 1 IF (I0 .LE. M(L)) GO TO 8193 FTHRU = .FALSE. IF (I0 .GT. NROWS) GO TO 8300 8290 L = L + 1 IF (L .LE. L2) GO TO 8156 8291 IF (M1(1).EQ.0 .AND. M1(2).EQ.0 .OR. INT) GO TO 8960 GO TO 8315 8300 IF (L .EQ. L2) GO TO 8310 LF = LF + 1 DO 8305 LX = LF,8 IF (MF(LX) .EQ. -32767) GO TO 8310 IF (MF(LX) .NE. 0) GO TO 8950 8305 CONTINUE 8310 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 8950 8315 IF (FLUSH) GO TO 8320 IF (SECD ) GO TO 8950 IF (FTHRU) GO TO 8950 CALL BLDPKN (ISCR1,0,T) 8320 EC = .TRUE. GO TO 8960 8950 FLUSH = .TRUE. 8960 IF (M1(1).EQ.0 .AND. M1(2).EQ.0 .OR. M1(1).EQ.T1(1,K) .AND. 1 M1(2).EQ.T1(2,K)) GO TO 8970 ASSIGN 8970 TO R GO TO 8973 8970 N = 0 IF (.NOT.FLUSH .OR. IPRINT.NE.0) GO TO 1226 CALL PAGE2 (2) WRITE (NOUT,8971) UFM,NM(1),NM(2),KNT 8971 FORMAT (A23,' 325, BAD DATA OR FORMAT OR NON-UNIQUE NAME. DMI ', 1 2A4,10X,' SORTED CARD COUNT =',I7) IPRINT = 1 GO TO 1226 8973 IF (FLSHAL) GO TO 8993 IF (FLUSH ) GO TO 8987 IF (IFO .EQ. 8) GO TO 8995 8975 J0 = J0 + 1 IF (J0 .GT. NCOLS) GO TO 8977 CALL BLDPK (TY1,TY2,ISCR1,0,0) CALL BLDPKN (ISCR1,0,T) GO TO 8975 8977 IF (NCOLS .EQ. T(2)) GO TO 8978 FLUSH = .TRUE. GO TO 8987 8978 CONTINUE CALL CLOSE (ISCR1,1) CALL WRTTRL (T) CALL RDTRL (T) IF (ICFIAT .EQ. 11) GO TO 8982 DO 8980 LX = 1,3 8980 T(LX+1) = ORF(LSHIFT(T(2*LX),16),T(2*LX+1)) J = 3 GO TO 8985 8982 J = 6 8985 CALL WRITE (POOL,NM,2,0) CALL WRITE (POOL,T(2),J,1) IF (L8 .NE. 0) WRITE (NOUT,8986) NM,DMI,(T(IP+1),IP=1,J) 8986 FORMAT ('0*** DIAG 8 MESSAGE -- TRAILER FOR DATA BLOCK ',2A4, 1 ' (VIA ',A4,' CARDS) = ',5I7,I9) CALL GOPEN (ISCR1,IBUF(2*NBUF+1),2) CALL CPYFIL (ISCR1,POOL,IBUF(3*NBUF+1),NOPEN,NWORDS) CALL CLOSE (ISCR1,1) CALL EOF (POOL) DMIFLG = .TRUE. P(1) = P(1) + 1 8987 IP = 3*P(3) + 4 P(IP ) = NM(1) P(IP+1) = NM(2) IF (FLUSH) NWORDS = 0 P(IP+2) = ORF(LSHIFT(NWORDS/1000,16),P(1)-1) P(3 ) = P(3) + 1 IF (.NOT.FLUSH) GO TO 8992 CALL CLOSE (ISCR1,1) CALL EOF (POOL) P(1) = P(1) + 1 CALL SKPFIL (POOL,-1) IF (DMIFLG) CALL EOF (POOL) 8990 ABORT = .TRUE. 8992 GO TO R, (8010,8970) 8993 WRITE (NOUT,8994) SFM,NM(1),NM(2) 8994 FORMAT (A25,' 326, NO ROOM IN /XDPL/ FOR DMI ',2A4) CALL PAGE2 (2) GO TO 8990 8995 T(2) = NCOLS GO TO 8978 9997 CALL MESAGE (-1,ISCR1,NM) C C****** 120-DMIG ******************************** C 1200 IF (.NOT.FPHYS1) GO TO 1202 FPHYS1 = .FALSE. NM(1) = 0 NM(2) = 0 1202 IERR = 0 IF (KM .NE. 0) GO TO 1208 IF (M(3) .EQ. 0) GO TO 1206 IF (M(1).NE.NM(1) .OR. M(2).NE.NM(2)) GO TO 1218 IF (MF(2).NE.1 .OR. MF(3).NE.1 .AND. MF(3).NE.0) GO TO 1218 IF (M(3).LE.0 .OR. M(4).LT.0 .OR. M(4).GT.6) GO TO 1218 IF (MF(4) .NE. 0) GO TO 1218 IF (MF(5).NE.1 .OR. MF(6).NE.1 .AND. MF(6).NE.0) GO TO 1218 IF (M(6).LE.0 .OR. M(7).LT.0 .OR. M(7).GT.6) GO TO 1218 IF (MF(7)+ITY1.NE.4 .AND. MF(7).NE.0) GO TO 1218 IF ((TY1.EQ.1 .OR. TY1.EQ.2) .AND. MF(8).NE.0 .OR. 1 TY1.EQ.3 .AND. MF(8).NE.2 .AND. MF(8).NE.0 .OR. 2 TY1.EQ.4 .AND. MF(8).NE.4 .AND. MF(8).NE.0) GO TO 1218 N = 5 I(N-4) = M(3) I(N-3) = M(4) I(N-2) = M(6) I(N-1) = M(7) I(N ) = M(8) IF (TY1 .EQ. 1) GO TO 1204 N = 6 I(N) = M(9) IF (TY1 .NE. 4) GO TO 1204 N = 8 I(N-1) = M(10) I(N ) = M(11) 1204 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1230 N = N + 2 I(N-1) = -1 I(N ) = -1 GO TO 1216 1206 IF (MF(1).NE.3 .OR. M(1).EQ.NM(1) .AND. M(2).EQ.NM(2)) GO TO 1218 IFO = M(4) TY1 = M(5) ITY1= 2*MOD(TY1,2) TY2 = M(6) IF (TY2.EQ.0 .AND. MOD(TY1,2).EQ.1) TY2 = TY1 + KPREC - 1 IF (TY2.EQ.0 .AND. MOD(TY1,2).EQ.0) TY2 = TY1 IF (MACH .NE. 12) GO TO 1207 IF (TY2.EQ.2.OR.TY2.EQ.4) TY2 = TY2 - 1 1207 CONTINUE IF (TY1.LE.0 .OR. TY1.GT.4 .OR. TY2.LE.0 .OR. TY2.GT.4) GO TO 1218 IF (TY1.GE.3 .AND. TY2.LE.2) WRITE (NOUT,8035) UWM,DMIG,NM(1), 1 NM(2),KNT IF (IFO.NE.1 .AND. IFO.NE.2 .AND. IFO.NE.6) GO TO 1218 IF (TY2.EQ.1 .AND. TY1.EQ.3) GO TO 1218 NM(1) = M(1) NM(2) = M(2) IF (MF(6).NE.0 .OR. MF(7).NE.0 .OR. MF(8).NE.0) GO TO 1220 IF (M1F(2).NE.3 .OR. M1(3).NE.NM(1) .OR. M1(4).NE.NM(2)) 1 GO TO 1220 M(6) = TY2 N = 9 GO TO 3 1208 LF = 1 L = 1 1210 IF (M(L).NE.0 .OR. M(L+1).NE.0 .OR. M(L+2).NE.0 .OR. M(L+3).NE.0) 1 GO TO 1212 LF = LF + 4 L = L + 4 GO TO 1214 1212 IF (M(L).LE.0 .OR. M(L+1).LT.0 .OR. M(L+1).GT.6) GO TO 1220 IF (MF(LF).NE.1 .OR. MF(LF+1).NE.1 .AND. MF(LF+1).NE.0) GO TO 1220 IERR = 1 IF (MF(LF+2)+ITY1.NE.4 .AND. MF(LF+2).NE.0) GO TO 1220 IF (MF(LF+3).NE.0 .AND. TY1.NE.3 .AND. TY1.NE.4) GO TO 1220 N = N + 3 I(N-2) = M(L ) I(N-1) = M(L+1) I(N ) = M(L+2) LF = LF + 4 L = L + 4 IF (TY1 .EQ. 1) GO TO 1214 N = N + 1 I(N) = M(L-1) IF (TY1 .EQ. 2) L = L + 1 IF (TY1 .NE. 4) GO TO 1214 N = N + 2 I(N-1) = M(L ) I(N ) = M(L+1) L = L + 2 1214 IF (LF .LE. 7) GO TO 1210 IF (N .LE. 0) GO TO 1220 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1230 N = N + 2 I(N-1) = -1 I(N ) = -1 1216 IF (M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K) .AND. 1 M1(3).EQ.NM(1 ) .AND. M1(4).EQ.NM(2 )) GO TO 1228 N = N + 2 I(N-1) = -1 I(N ) = -1 GO TO 1228 1218 NM(1) = M(1) NM(2) = M(2) 1220 ABORT = .TRUE. CALL PAGE2 (2) WRITE (NOUT,1222) UFM,NM(1),NM(2),KNT 1222 FORMAT (A23,' 327, BAD DATA OR FORMAT OR NON-UNIQUE NAME. DMIG ', 1 2A4,10X,' SORTED CARD COUNT =',I7) IF (IERR .EQ. 1) WRITE (NOUT,1224) 1224 FORMAT (5X,'INPUT MATRIX TYPE (TIN) AND INPUT DATA (XIJ OR YIJ) ', 1 'ARE NOT CONSISTANT') 1226 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1230 1228 KM = 0 KN = 0 GO TO 2 1230 KN = 1 KM = 1 GO TO 2 C C******* 200 - DTI **************************************** C 2000 IF (KM .NE. 0) GO TO 2120 IF (FPHYS2) GO TO 2010 IF (M(1).EQ.NM(1) .AND. M(2).EQ.NM(2)) GO TO 2100 ASSIGN 2020 TO R GO TO 2300 2010 IF (P(1) .GT. 1) DMIFLG = .TRUE. FPHYS2 = .FALSE. NM(1) = 0 NM(2) = 0 2020 FLUSH = .FALSE. FLSHAL = .FALSE. IF (M(3) .NE. 0) FLUSH = .TRUE. ONM(1) = NM(1) ONM(2) = NM(2) IF (MF(1).NE.3 .OR. M(1).EQ.ONM(1) .AND. M(2).EQ.ONM(2)) 1 FLUSH = .TRUE. NM(1) = M(1) NM(2) = M(2) IPRINT = 0 NWORDS = 2 J0 = 0 IF (P(1) .LE. P(2)) GO TO 2050 FLUSH = .TRUE. FLSHAL = .TRUE. 2050 ASSIGN 2055 TO R1 ASSIGN 2056 TO R GO TO 200 2055 FLUSH = .TRUE. 2056 IF (FLUSH) GO TO 2195 ITRLT = 0 DO 2060 L = 2,7 ITRLT = ITRLT+M(L+2) IF (ICFIAT.EQ.8 .AND. (M(L+2).LT.0 .OR. M(L+2).GT.65535)) 1 FLUSH = .TRUE. C 2147483647 = 2**31-1 IF (ICFIAT.EQ.11 .AND. (M(L+2).LT.0 .OR. M(L+2).GT.2147483647)) 1 FLUSH = .TRUE. 2060 T(L) = M(L+2) IF (ITRLT .NE. 0) GO TO 2080 DO 2070 L = 2,7 2070 T(L) = 32767 2080 CONTINUE CALL WRITE (POOL,NM,2,0) IF (ICFIAT .EQ. 11) GO TO 2087 DO 2085 LX = 1,3 2085 T(LX+1) = ORF(LSHIFT(T(2*LX),16),T(2*LX+1)) L = 3 GO TO 2090 2087 L = 6 2090 CALL WRITE (POOL,T(2),L,1) CALL WRITE (POOL,NM,2,0) IF (L8 .NE. 0) WRITE (NOUT,8986) NM,DTI,(T(IP+1),IP=1,J) IF (M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K)) 1 CALL WRITE (POOL,NM,0,1) GO TO 2200 2100 J0 = J0 + 1 IF (M(3) .NE. J0) GO TO 2190 L1 = 4 L1F =-1 GO TO 2150 2120 L1 = 1 L1F= 0 2150 L = L1 LF = L + L1F 2160 IF (MF(LF).EQ.3 .AND. M(L).EQ.ENDRC1 .AND. M(L+1).EQ.ENDRC2) 1 GO TO 2180 IF (MF(LF) .GT. 2) L = L + 1 L = L + 1 LF = LF + 1 IF (MF(LF) .GE. 0) GO TO 2160 CALL WRITE (POOL,M(L1),L-L1,0) NWORDS = NWORDS + L - L1 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 2190 GO TO 2200 2180 CALL WRITE (POOL,M(L1),L-L1,1) NWORDS = NWORDS + L - L1 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 2195 2190 FLUSH = .TRUE. 2195 IF (M1(1).EQ.0 .AND. M1(2).EQ.0 .OR. 1 M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K)) GO TO 2200 ASSIGN 2200 TO R GO TO 2300 2200 N = 0 IF (.NOT.FLUSH .OR. IPRINT.NE.0) GO TO 1226 CALL PAGE2 (2) WRITE (NOUT,2350) UFM,NM(1),NM(2),KNT IPRINT = 1 GO TO 1226 2300 IF (FLSHAL) GO TO 2370 IF (FLUSH ) GO TO 2330 CALL EOF (POOL) DMIFLG = .TRUE. P(1) = P(1) + 1 2330 IP = 3*P(3) + 4 P(IP ) = NM(1) P(IP+1) = NM(2) IF (FLUSH) NWORDS = 0 P(IP+2) = ORF(LSHIFT(NWORDS/1000,16),P(1)-1) P(3) = P(3) + 1 IF (.NOT.FLUSH) GO TO 2365 CALL PAGE2 (2) WRITE (NOUT,2350) UFM,NM(1),NM(2),KNT 2350 FORMAT (A23,' 317, BAD DATA OR FORMAT OR NON-UNIQUE NAME FOR DTI ' 1, 2A4,10X,'SORTED CARD COUNT =',I7) CALL EOF (POOL) P(1) = P(1) + 1 CALL SKPFIL (POOL,-1) IF (DMIFLG) CALL SKPFIL (POOL,+1) 2360 ABORT = .TRUE. 2365 GO TO R, (2020,2200) 2370 WRITE (NOUT,2380) SFM,NM(1),NM(2) 2380 FORMAT (A25,' 318, NO ROOM IN /XDPL/ FOR DTI ',2A4) CALL PAGE2 (2) GO TO 2360 C C ****************************************************************** C C CHECK NAME FOR UNIQUENESS AMONG DMI CARDS, DTI CARDS, ETC. AND C RESERVED NAMES C 200 CONTINUE C C CHECK FIST, FIAT, DPL FOR A NAME MATCH C DO 210 II = 1,IPFIST IF (NM(1).EQ.IFIST(2*II+1) .AND. NM(2).EQ.BCDBLK) GO TO 250 210 CONTINUE NFIAT = ICFIAT*IFIAT(2) - 2 DO 220 II = 4,NFIAT,ICFIAT IF (NM(1).EQ.IFIAT(II) .AND. NM(2).EQ.IFIAT(II+1)) GO TO 250 220 CONTINUE NDPL = P(3)*3 + 1 DO 230 II = 4,NDPL,3 IF (NM(1).EQ.P(II) .AND. NM(2).EQ.P(II+1)) GO TO 250 230 CONTINUE GO TO R, (8030,2056) 250 GO TO R1, (8025,2055) C C******* 192-PLOAD4 **************************************** C 2900 IF (KM .EQ. 1) GO TO 2940 KM = 1 KN = 1 IF (MF(1) .NE. 1) BADFOR = .TRUE. IF (.NOT.(MF(2).EQ.2 .AND. MF(3).EQ.1 .AND. MF(4).EQ.0 .AND. 1 MF(5).EQ.0 .AND. MF(6).EQ.0)) GO TO 2905 C C SPECIAL - ALLOWING PLOAD4 TO TAKE ON PLOAD2 FORMAT C (PLOAD4,SID,P1,E1,blank,blank,blank,"THRU",E2) FOR QUICK INPUT C DATA SWITCHING. INTERCHAGNE 2ND AND 3RD FIELDS C MF(2) = 1 MF(3) = 2 L = M(2) M(2) = M(3) M(3) = L 2905 IF (MF(2) .NE. 1) BADFOR = .TRUE. DO 2910 L = 3,6 IF (MF(L).NE.2 .AND. MF(L).NE.0) BADFOR = .TRUE. 2910 CONTINUE IF (MF(7).NE.3 .AND. MF(7).NE.0 .AND. 1 .NOT.(MF(7).EQ.1 .AND. M(7).EQ.0)) BADFOR = .TRUE. IF (MF(8).NE.1 .AND. MF(8).NE.0) BADFOR = .TRUE. IF (MF(7).EQ.0 .AND. MF(8).NE.0) BADFOR = .TRUE. IF (MF(7).EQ.3 .AND. MF(8).NE.1) BADFOR = .TRUE. IF (M(1) .LE. 0) BADDAT = .TRUE. IF (M(2) .LE. 0) BADDAT = .TRUE. IF (MF(7).EQ.3 .AND. M(7).NE.THRU) BADDAT = .TRUE. IF (MF(7).EQ.3 .AND. M(9).LE. 0) BADDAT = .TRUE. IF (MF(7).EQ.3 .AND. M(9).LE.M(2)) BADDAT = .TRUE. L1 = 0 IF (MF(7) .EQ. 3) L1 = 1 DO 2920 L = 1,6 I(L) = M(L) 2920 CONTINUE I(7) = -1 IF (L1 .EQ. 1) I(7) = 0 I(8) = M(L1+8) N = 8 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 DO 2930 L = 9,12 I(L) = 0 2930 CONTINUE N = 12 KM = 0 KN = 0 GO TO 9 C 2940 IF (MF(1) .GT. 1) BADFOR = .TRUE. DO 2950 L = 2,4 IF (MF(L).NE.2 .AND. MF(L).NE.0) BADFOR = .TRUE. 2950 CONTINUE IF (MF(1) .EQ. 0) M(1) = 0 IF (M(1) .LT. 0) BADDAT = .TRUE. DO 2960 L = 1,4 I(L) = M(L) 2960 CONTINUE N = 4 KM = 0 KN = 0 GO TO 9 C C******* 261-CQUAD4 **************************************** C 3100 IF (MF(2) .EQ. 0) M(2) = M(1) I(1) = M(1) DO 3110 L = 2,6 IF (MF(L) .NE. 1) BADFOR = .TRUE. IF (M(L) .LE. 0) BADDAT = .TRUE. I(L) = M(L) 3110 CONTINUE L1 = 6 DO 3120 L = 11,14 L1 = L1 + 1 I(L1) = M(L) 3120 CONTINUE IF (MF(7).NE.1 .AND. MF(7).NE.2 .AND. MF(7).NE.0) BADFOR = .TRUE. IF (MF(7).EQ.1 .AND. (M(7).LT.0 .OR. M(7).GE.1000000)) 1 BADDAT = .TRUE. I(11) = M(7) I(12) = 0 IF (MF(7) .EQ. 1) I(12) = 1 I(13) = M(8) N = 13 GO TO 9 C C******* 354-CTRIA3 ************************************** C 3200 IF (MF(2) .EQ. 0) M(2) = M(1) I(1) = M(1) DO 3210 L = 2,5 IF (MF(L) .NE. 1) BADFOR = .TRUE. IF (M(L) .LE. 0) BADDAT = .TRUE. 3210 I(L) = M(L) IF (MF(6).NE.1 .AND. MF(6).NE.2 .AND. MF(6).NE.0) BADFOR = .TRUE. IF (MF(6).EQ.1 .AND. (M(6).LT.0 .OR. M(6).GE.1000000)) 1 BADDAT = .TRUE. I( 6) = M(11) I( 7) = M(12) I( 8) = M(13) I( 9) = M(6) I(10) = 0 I(11) = M(7) IF (MF(6) .EQ. 1) I(10) = 1 N = 11 GO TO 9 C C******* 262-MAT8 **************************************** C 3300 IF (MF(2).EQ.0 .OR. MF(3).EQ.0 .OR. MF(5).EQ.0) GO TO 7 IF (M(1) .LE. 0) GO TO 8 IF (XM(2).EQ.0.0 .OR. XM(3).EQ.0.0) GO TO 8 IF (XM(5).LE.0.0) GO TO 8 IF (MF(12).EQ.2 .AND. XM(12).LE.0.0) GO TO 8 IF (MF(14).EQ.2 .AND. XM(14).LE.0.0) GO TO 8 IF (MF(16).EQ.2 .AND. XM(16).LE.0.0) GO TO 8 IF (MF(13) .EQ. 0) XM(13) = XM(12) IF (MF(15) .EQ. 0) XM(15) = XM(14) N = 18 GO TO 3 C C******* 280-PCOMP **************************************** C 4100 KN = 1 IF (ICOMP .GT. 1) GO TO 4140 ICOMP = 2 IF (MF(1).NE.1) BADFOR = .TRUE. IF (MF(2).NE.2 .AND. MF(2).NE.0) BADFOR = .TRUE. IF (MF(3).NE.2 .AND. MF(3).NE.0) BADFOR = .TRUE. IF (MF(4).NE.2 .AND. MF(4).NE.0) BADFOR = .TRUE. IF (MF(5).NE.3 .AND. MF(5).NE.0) BADFOR = .TRUE. L = 0 IF (MF(5).EQ.3) L = 1 IF (MF(6).NE.0) BADFOR = .TRUE. IF (MF(7).NE.0) BADFOR = .TRUE. IF (MF(8).NE.3 .AND. MF(8).NE.0 ) BADFOR = .TRUE. IF (M(1).LE.0 .OR. M(1).GE.1000000) BADDAT = .TRUE. IF (MF(5).EQ.3 .AND. XM(4).LE.0.0 ) BADDAT = .TRUE. FAILUR = -1 IF (MF(5) .EQ. 0) FAILUR = 0 IF (FAILUR .EQ. 0) GO TO 4120 IF (M(5).EQ.IHILL(1) .AND. M(6).EQ.IHILL(2)) FAILUR = 1 IF (M(5).EQ.IHOFF(1) .AND. M(6).EQ.IHOFF(2)) FAILUR = 2 IF (M(5).EQ.ITSAI(1) .AND. M(6).EQ.ITSAI(2)) FAILUR = 3 IF (M(5).EQ.ISTRS(1) .AND. M(6).EQ.ISTRS(2)) FAILUR = 4 IF (M(5).EQ.ISTRN(1) .AND. M(6).EQ.ISTRN(2)) FAILUR = 5 IF (FAILUR .EQ. -1) BADDAT = .TRUE. 4120 LAMOPT = -1 IF (MF(8) .EQ. 0) LAMOPT = 0 IF (LAMOPT .EQ. 0) GO TO 4130 IF (M(L+8).EQ.IALL (1) .AND. M(L+9).EQ.IALL (2)) LAMOPT = 0 IF (M(L+8).EQ.ISYM (1) .AND. M(L+9).EQ.ISYM (2)) LAMOPT = 1 IF (M(L+8).EQ.IMEM (1) .AND. M(L+9).EQ.IMEM (2)) LAMOPT = 2 IF (M(L+8).EQ.ISYMM(1) .AND. M(L+9).EQ.ISYMM(2)) LAMOPT = 3 IF (LAMOPT .EQ. -1) BADDAT = .TRUE. 4130 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4135 BADFOR = .TRUE. KN = 0 ICOMP = 1 N = 0 GO TO 9 4135 I(1) = M(1) I(2) = M(2) I(3) = M(3) I(4) = M(4) I(5) = FAILUR I(6) = 0 I(7) = 0 I(8) = LAMOPT N = 8 GO TO 9 C 4140 N = 0 DO 4190 L = 1,2 L1 = 4*(L-1) L2 = L1 DO 4150 L3 = 1,4 IF (MF(L1+L3) .NE. 0) GO TO 4160 4150 CONTINUE IF (L .EQ. 1) BADFOR = .TRUE. GO TO 4195 4160 IF (L.EQ.2 .AND. MF(4).EQ.3) L2 = L2 + 1 IF (ICOMP .EQ. 3) GO TO 4170 ICOMP = 3 IF (MF(1).NE.1) BADFOR = .TRUE. IF (MF(2).NE.2) BADFOR = .TRUE. IF (MF(3).NE.2 .AND. MF(3).NE.0) BADFOR = .TRUE. IF (M(1) .LE. 0) BADDAT = .TRUE. IF (XM(2) .LE.0.0) BADDAT = .TRUE. GO TO 4180 4170 IF (MF(L1+1).NE.1 .AND. MF(L1+1).NE.0) BADFOR = .TRUE. IF (MF(L1+2).NE.2 .AND. MF(L1+2).NE.0) BADFOR = .TRUE. IF (MF(L1+3).NE.2 .AND. MF(L1+3).NE.0) BADFOR = .TRUE. IF (MF(L1+1).EQ.1 .AND. M (L2+1).LE.0) BADDAT = .TRUE. IF (MF(L1+1) .EQ. 0) M(L2+1) = IOLD1 IF (MF(L1+2).EQ.2 .AND. XM(L2+2).LE.0.0) BADDAT = .TRUE. IF (MF(L1+2) .EQ. 0) M(L2+2) = IOLD2 IF (MF(L1+3) .EQ. 0) M(L2+3) = IOLD3 4180 IF (MF(L1+4).NE.3 .AND. MF(L1+4).NE.0) BADFOR = .TRUE. IF (MF(L1+4).EQ.3 .AND. (M(L2+4).NE.IYES .AND. M(L2+4).NE.INO)) 1 BADDAT = .TRUE. IOUT = 0 IF (M(L2+4) .EQ. IYES) IOUT = 1 I(N+1) = M(L2+1) I(N+2) = M(L2+2) I(N+3) = M(L2+3) I(N+4) = IOUT IOLD1 = M(L2+1) IOLD2 = M(L2+2) IOLD3 = M(L2+3) N = N + 4 4190 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 4195 KN = 0 ICOMP = 1 I(N+1) =-1 N = N + 1 GO TO 9 C C******* 281-PCOMP1 **************************************** C 4300 KN = 1 IF (ICOMP .GT. 1) GO TO 4340 ICOMP = 2 IF (MF(1).NE.1) BADFOR = .TRUE. IF (MF(2).NE.2 .AND. MF(2).NE.0) BADFOR = .TRUE. IF (MF(3).NE.2 .AND. MF(3).NE.0) BADFOR = .TRUE. IF (MF(4).NE.2 .AND. MF(4).NE.0) BADFOR = .TRUE. IF (MF(5).NE.3 .AND. MF(5).NE.0) BADFOR = .TRUE. L = 0 IF (MF(5) .EQ. 3) L = 1 IF (MF(6).NE.1) BADFOR = .TRUE. IF (MF(7).NE.2) BADFOR = .TRUE. IF (MF(8).NE.3 .AND. MF(8).NE.0 ) BADFOR = .TRUE. IF (M(1).LE.0 .OR. M(1).GE.1000000) BADDAT = .TRUE. IF (MF(5).EQ.3 .AND. XM(4).LE.0.0 ) BADDAT = .TRUE. FAILUR = -1 IF (MF(5) .EQ. 0) FAILUR = 0 IF (FAILUR .EQ. 0) GO TO 4320 IF (M(5).EQ.IHILL(1) .AND. M(6).EQ.IHILL(2)) FAILUR = 1 IF (M(5).EQ.IHOFF(1) .AND. M(6).EQ.IHOFF(2)) FAILUR = 2 IF (M(5).EQ.ITSAI(1) .AND. M(6).EQ.ITSAI(2)) FAILUR = 3 IF (M(5).EQ.ISTRS(1) .AND. M(6).EQ.ISTRS(2)) FAILUR = 4 IF (M(5).EQ.ISTRN(1) .AND. M(6).EQ.ISTRN(2)) FAILUR = 5 IF (FAILUR .EQ. -1) BADDAT = .TRUE. 4320 IF (M(L+6) .LE. 0) BADDAT = .TRUE. IF (XM(L+7).LE.0.0) BADDAT = .TRUE. LAMOPT = -1 IF (MF(8) .EQ. 0) LAMOPT = 0 IF (LAMOPT .EQ. 0) GO TO 4330 IF (M(L+8).EQ.IALL (1) .AND. M(L+9).EQ.IALL (2)) LAMOPT = 0 IF (M(L+8).EQ.ISYM (1) .AND. M(L+9).EQ.ISYM (2)) LAMOPT = 1 IF (M(L+8).EQ.IMEM (1) .AND. M(L+9).EQ.IMEM (2)) LAMOPT = 2 IF (M(L+8).EQ.ISYMM(1) .AND. M(L+9).EQ.ISYMM(2)) LAMOPT = 3 IF (LAMOPT .EQ. -1) BADDAT = .TRUE. 4330 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4335 BADFOR = .TRUE. KN = 0 ICOMP = 1 N = 0 GO TO 9 4335 I(1) = M(1) I(2) = M(2) I(3) = M(3) I(4) = M(4) I(5) = FAILUR I(6) = M(L+6) I(7) = M(L+7) I(8) = LAMOPT N = 8 GO TO 9 C 4340 N = 0 DO 4390 L = 1,8 IF (MF(L) .NE. 0) GO TO 4360 IF (L .EQ. 1) BADFOR = .TRUE. GO TO 4395 4360 IF (ICOMP .EQ. 3) GO TO 4370 ICOMP = 3 IF (MF(1) .NE. 2) BADFOR = .TRUE. GO TO 4380 4370 IF (MF(L).NE.2 .AND. MF(L).NE.0) BADFOR = .TRUE. IF (MF(L) .EQ. 0) M(L) = IOLD1 4380 I(N+1) = M(L) IOLD1 = M(L) N = N + 1 4390 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 4395 KN = 0 ICOMP = 1 I(N+1) =-1 N = N + 1 GO TO 9 C C******* 282-PCOMP2 **************************************** C 4500 KN = 1 IF (ICOMP .GT. 1) GO TO 4540 ICOMP = 2 IF (MF(1) .NE. 1) BADFOR = .TRUE. IF (MF(2).NE.2 .AND. MF(2).NE.0) BADFOR = .TRUE. IF (MF(3).NE.2 .AND. MF(3).NE.0) BADFOR = .TRUE. IF (MF(4).NE.2 .AND. MF(4).NE.0) BADFOR = .TRUE. IF (MF(5).NE.3 .AND. MF(5).NE.0) BADFOR = .TRUE. L = 0 IF (MF(5) .EQ. 3) L = 1 IF (MF(6) .NE. 1) BADFOR = .TRUE. IF (MF(7) .NE. 0) BADFOR = .TRUE. IF (MF(8).NE.3 .AND. MF(8).NE.0 ) BADFOR = .TRUE. IF (M(1).LE.0 .OR. M(1).GE.1000000) BADDAT = .TRUE. IF (MF(5).EQ.3 .AND. XM(4).LE.0.0 ) BADDAT = .TRUE. FAILUR = -1 IF (MF(5) .EQ. 0) FAILUR = 0 IF (FAILUR .EQ. 0) GO TO 4520 IF (M(5).EQ.IHILL(1) .AND. M(6).EQ.IHILL(2)) FAILUR = 1 IF (M(5).EQ.IHOFF(1) .AND. M(6).EQ.IHOFF(2)) FAILUR = 2 IF (M(5).EQ.ITSAI(1) .AND. M(6).EQ.ITSAI(2)) FAILUR = 3 IF (M(5).EQ.ISTRS(1) .AND. M(6).EQ.ISTRS(2)) FAILUR = 4 IF (M(5).EQ.ISTRN(1) .AND. M(6).EQ.ISTRN(2)) FAILUR = 5 IF (FAILUR .EQ. -1) BADDAT = .TRUE. 4520 IF (M(L+6) .LE. 0) BADDAT = .TRUE. LAMOPT = -1 IF (MF(8) .EQ. 0) LAMOPT = 0 IF (LAMOPT .EQ. 0) GO TO 4530 IF (M(L+8).EQ.IALL (1) .AND. M(L+9).EQ.IALL (2)) LAMOPT = 0 IF (M(L+8).EQ.ISYM (1) .AND. M(L+9).EQ.ISYM (2)) LAMOPT = 1 IF (M(L+8).EQ.IMEM (1) .AND. M(L+9).EQ.IMEM (2)) LAMOPT = 2 IF (M(L+8).EQ.ISYMM(1) .AND. M(L+9).EQ.ISYMM(2)) LAMOPT = 3 IF (LAMOPT .EQ. -1) BADDAT = .TRUE. 4530 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4535 BADFOR = .TRUE. KN = 0 ICOMP = 1 N = 0 GO TO 9 4535 I(1) = M(1) I(2) = M(2) I(3) = M(3) I(4) = M(4) I(5) = FAILUR I(6) = M(L+6) I(7) = 0 I(8) = LAMOPT N = 8 GO TO 9 C 4540 N = 0 DO 4590 L = 1,4 L1 = 2*(L-1) DO 4550 L3 = 1,2 IF (MF(L1+L3) .NE. 0) GO TO 4560 4550 CONTINUE IF (L .EQ. 1) BADFOR = .TRUE. GO TO 4595 4560 IF (ICOMP .EQ. 3) GO TO 4570 ICOMP = 3 IF (MF(1) .NE. 2) BADFOR = .TRUE. IF (MF(2) .NE. 2) BADFOR = .TRUE. IF (XM(1) .LE.0.0) BADDAT = .TRUE. GO TO 4580 4570 IF (MF(L1+1).NE.2 .AND. MF(L1+1).NE. 0) BADFOR = .TRUE. IF (MF(L1+2).NE.2 .AND. MF(L1+2).NE. 0) BADFOR = .TRUE. IF (MF(L1+1).EQ.2 .AND. XM(L1+1).LE..0) BADDAT = .TRUE. IF (MF(L1+1) .EQ. 0) M(L1+1) = IOLD1 IF (MF(L1+2) .EQ. 0) M(L1+2) = IOLD2 4580 I(N+1) = M(L1+1) I(N+2) = M(L1+2) IOLD1 = M(L1+1) IOLD2 = M(L1+2) N = N + 2 4590 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 4595 KN = 0 ICOMP = 1 I(N+1) =-1 N = N + 1 GO TO 9 C C******* 283-PSHELL **************************************** C 4700 IF (KM .EQ. 1) GO TO 4740 KM = 1 KN = 1 IF (MF( 1).NE.1 ) BADFOR = .TRUE. IF (MF( 2).NE.1 .AND. MF( 2).NE.0) BADFOR = .TRUE. IF (MF( 3).NE.2 .AND. MF( 3).NE.0) BADFOR = .TRUE. IF (MF( 4).NE.1 .AND. MF( 4).NE.0) BADFOR = .TRUE. IF (MF( 5).NE.2 .AND. MF( 5).NE.0) BADFOR = .TRUE. IF (MF( 6).NE.1 .AND. MF( 6).NE.0) BADFOR = .TRUE. IF (MF( 7).NE.2 .AND. MF( 7).NE.0) BADFOR = .TRUE. IF (MF( 8).NE.2 .AND. MF( 8).NE.0) BADFOR = .TRUE. IF (M(1) .LE. 0) BADDAT = .TRUE. IF (MF(2).EQ.1 .AND. M(2).LE.0) BADDAT = .TRUE. IF (MF(4).EQ.1 .AND. M(4).LE.0) BADDAT = .TRUE. IF (MF(4).NE.0 .AND. MF(5).EQ.0) XM(5) = 1.0 IF (MF(6).EQ.1 .AND. M(6).LE.0) BADDAT = .TRUE. IF (MF(6).NE.0 .AND. MF(4).EQ.0) BADDAT = .TRUE. IF (MF(6).NE.0 .AND. MF(7).EQ.0) XM(7) = 0.833333 DO 4710 L = 2,6,2 IF (M(L).EQ.0 .AND. XM(L+1).GT.0.0) BADDAT = .TRUE. 4710 CONTINUE DO 4720 L = 1,8 I(L) = M(L) 4720 CONTINUE IOLMF2 = MF(2) IOLMF4 = MF(4) IOLDM2 = M(2) IOLDM4 = M(4) IOLDM6 = M(6) OLDXM3 = XM(3) N = 8 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 Z( 9) = -0.5*OLDXM3 Z(10) = 0.5*OLDXM3 DO 4730 L = 11,17 I(L) = 0 4730 CONTINUE N = 17 KM = 0 KN = 0 GO TO 9 C 4740 IF (MF(1).NE.2 .AND. MF(1).NE.0) BADFOR = .TRUE. IF (MF(2).NE.2 .AND. MF(2).NE.0) BADFOR = .TRUE. IF (MF(3).NE.1 .AND. MF(3).NE.0) BADFOR = .TRUE. IF (MF(4).NE.1 .AND. MF(4).NE.2 .AND. MF(4).NE.0) BADFOR = .TRUE. IF (MF(5).NE.1 .AND. MF(5).NE.2 .AND. MF(5).NE.0) BADFOR = .TRUE. IF (MF(6).NE.2 .AND. MF(6).NE.0) BADFOR = .TRUE. IF (MF(1) .EQ. 0) XM(1) = -0.5*OLDXM3 IF (MF(2) .EQ. 0) XM(2) = 0.5*OLDXM3 IF (MF(3).EQ.1 .AND. M(3).LE.0) BADDAT = .TRUE. IF (MF(3).NE.0 .AND. (IOLMF2.EQ.0 .OR. IOLMF4.EQ.0)) 1 BADDAT = .TRUE. IF (MF(3).NE.0 .AND. (M(3).EQ.IOLDM2 .OR. M(3).EQ.IOLDM4)) 1 BADDAT = .TRUE. IF (MF(4).EQ.1 .AND. M(4).LT.0) BADDAT = .TRUE. IF (MF(5).EQ.1 .AND. M(5).LT.0) BADDAT = .TRUE. IF (IOLDM2.EQ.0 .AND. IOLDM4.EQ.0 .AND. 1 IOLDM6.EQ.0 .AND. M(3).EQ.0) BADDAT = .TRUE. DO 4750 L = 1,4 I(L) = M(L) 4750 CONTINUE I(5) = 0 IF (MF(4) .EQ. 1) I(5) = 1 C C I(6) IS THE INTEGRATION ORDER (SET TO 0) C C NOTE C ---- C C THE INTEGRATION ORDER IS NOT USED IN THE PROGRAM, C BUT THIS WORD IS REQUIRED BECAUSE OF THE DESIGN C OF THE EST DATA FOR THE CQUAD4 ELEMENT. C I(6) = 0 I(7) = M(5) I(8) = 0 IF (MF(5) .EQ. 1) I(8) = 1 I(9) = M(6) N = 9 KM = 0 KN = 0 GO TO 9 C END ================================================ FILE: mis/ifs3p.f ================================================ SUBROUTINE IFS3P (*,*,*) C LOGICAL NOUD,NOS,BADDAT,BADFOR,ABORT,LH,IAX,IDFREQ,LHARM, 1 GRDMSG,IFPDCO,PERM,PROL,RBE,FIRST,PRT CHURNB 11/93 LOGICAL ONEH,BLANKH CHURNE INTEGER R,R1,G1,T3,T4,THRU,ARIGID,BRIGID,CRIGID,DRIGID, 1 ERIGID,FRIGID,BLNK,ENDT,IA(6),IB(6),IC(6),JA(6), 2 JB(6),JC(6),CRTR,CRBA,CRBE,Q(92) DIMENSION RM(50) CHURNB 11/93 DIMENSION NAM(2),IONES(4) CHURNE CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SCC*19,GCC*19 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ NBUF,NOUT,ABORT,IDUMMY(52),ITHRML,DUM21(21),IPIEZ COMMON /IFPDTA/ ID,N,K,KX,KY,I(100),M(100),MF(100),M1(100), 1 M1F(100),KN,BADDAT,BADFOR,NOPEN,NPARAM,IAX,NN, 2 IAXF,NAXF,LHARM,KNT,SLOTDF(5),GC(7),LL(6) CHURNB 11/93 3, NNS,ONEH,BLANKH,IAXG CHURNE COMMON /ZZZZZZ/ IBUFF(1) COMMON /IFPX2 / T3(2,270) COMMON /IFPX3 / T4(2,270) COMMON /CIFS3P/ GRDMSG,LA1,L7,KM,L0,G1,LH, 1 IGDST2,IGDST6,IGDST7,IGDST8,IDDSF, 2 IDFREQ,IDRAD,NVAR,IDS,JMS,KMS,LPLF EQUIVALENCE (M(1),RM(1)),(LINE,IDUMMY(9)),(NBPW,IDUMMY(37)) CHURNB 11/93 EQUIVALENCE (XIN,IXIN) CHURNE DATA PROL,ENDT / .FALSE.,4HENDT/, PERM /.FALSE. / DATA FIRST,PRT / 2*.TRUE. / DATA LUD,LZ,KK,LS / 4HUD ,4HZ , 4HK ,4HS /, NT1 /250 / DATA ARIGID/4HCRIG/, BRIGID/4HD1 /, CRIGID/4HD2 /, IRIGID /1 / DATA DRIGID/4HD3 /, MSET /4HMSET/, BLNK /4H /, THRU/4HTHRU/ DATA ERIGID/4H1 /, FRIGID/4H2 /, IND /4HIN / DATA CRTR /4HCRTR/, CRBA /4HCRBA/, CRBE /4HCRBE/, IUM /4HUM / DATA SCC /'SORTED CARD COUNT =' /, GCC /'GENERATED CARD -'/ CHURNB 11/93 DATA ISCR1 /301/, IONES/4*-1/, NAM/4HIFS3,4HP / CHURNE C IF (K .GT. 100) GO TO 81 GO TO ( 100, 200, 5, 5, 5, 5, 5, 5, 5, 5, 1 5,3980,4020, 5, 5, 5,1700, 5, 5, 5, 2 5, 5, 5, 5, 5, 5, 5,2800, 5, 5, 3 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 4 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 7 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8 5,3960,4020,4060, 5, 5, 5, 5, 5, 5, 9 5,3981, 5, 5, 5, 5, 5, 5, 5, 5 ),K 81 IF (KX .GT. 100) GO TO 82 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 2 5, 5,4060, 5, 5,1260, 5, 5, 5, 5, 3 1310,1310, 5, 5, 5, 5, 5,1380,1390, 5, 4 5, 5,1430,1440,1450,1460,1470,1480,1490,1500, 5 1500,1520,1530,1540,1550,1560,1560, 5, 5, 5, 6 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 7 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8 5,1820,1820,1820,1420, 5, 5, 5, 5, 5, 9 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 ),KX 82 IF (KY .GT. 100) GO TO 83 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5,3981, 5, 5, 5, 5, 2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 3 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 4 5, 5, 5,1400, 5, 5, 5, 5, 5, 5, 5 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 7 5, 5,1415,1415, 5, 5, 5, 5,2010, 5, 8 5, 5, 5,2060,2111,2030,2040,2030, 5,1410, 9 5, 5, 5, 5, 5, 5,7300,7000, 5, 5 ),KY 83 KZ = KY - 100 IF (KZ .GT. 53) GO TO 5 IF (KZ.LT.47 .OR. KZ.GT.51 .OR. .NOT.FIRST) GO TO 90 FIRST = .FALSE. IF (.NOT.PRT) GO TO 90 CALL PAGE1 WRITE (NOUT,85) UIM 85 FORMAT (A29,', CONVERSIONS OF RIGID ELEMENTS, CRROD, CRBAR, ', 1 'CRTRPLT, CRBE1, AND CRBE2, TO CRIGDR, CRIGD2, OR CRIGD3', 2 /5X,'ARE AS FOLLOWS (BLANK FIELDS MAY BE PRINTED AS ZEROS', 3 '. CONTINUATION FIELDS ARE NOT PRINTED) -',/) LINE = 8 90 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 2 5, 5, 5, 5, 5, 5, 5, 5,5100,5200, 3 5,3980, 5, 5, 5, 5, 5, 5, 5, 5, 4 5, 5, 5, 5,2920,3010,6000,6100,6300,7000, 5 6400,6500,6600 ),KZ 5 CALL PAGE2 (2) WRITE (NOUT,6) SFM 6 FORMAT (A25,' 322, ILLEGAL ENTRY TO IFS3P.') ABORT = .TRUE. RETURN 1 7 BADFOR = .TRUE. RETURN 1 8 BADDAT = .TRUE. RETURN 1 3 DO 4 L = 1,N 4 I(L) = M(L) 9 RETURN 3 C C******* 1-GRID ******************************** C 100 IF (MF(2) .EQ. 0) M(2) = IGDST2 IF (MF(6) .EQ. 0) M(6) = IGDST6 IF (MF(7) .EQ. 0) M(7) = IGDST7 IF (MF(8) .EQ. 0) M(8) = IGDST8 IF (M(1).LE.0 .OR. M(2).LT.0 .OR. M(6).LT.-1) GO TO 8 IF (M(6).GE.0 .OR. GRDMSG) GO TO 105 CALL PAGE2 (2) WRITE (NOUT,103) UWM 103 FORMAT (A23,' 302, ONE OR MORE GRID CARDS HAVE DISPLACEMENT ', 1 'COORDINATE SYSTEM ID OF -1') GRDMSG = .TRUE. 105 IF (IFPDCO(M(7))) GO TO 8 IF (IFPDCO(M(8))) GO TO 8 IF (MF(8) .NE. 0) GO TO 7 N = 8 GO TO 3 C C******* 2-GRDSET **************************************** C 200 IF (G1 .EQ. 0) GO TO 8 G1 = 0 IF (M(2).EQ.0 .AND. M(6).EQ.0 .AND. M(7).EQ.0 .AND. M(8).EQ.0) 1 GO TO 8 IF (M(2).LT.0 .OR. M(6).LT.-1 .OR. M(7).LT.0 .OR. M(8).LT.0) 1 GO TO 8 IF (IFPDCO(M(7)) .OR. IFPDCO(M(8))) GO TO 8 IF (MF(8) .NE. 0) GO TO 7 IGDST2 = M(2) IGDST6 = M(6) IGDST7 = M(7) IGDST8 = M(8) RETURN 2 C C***** 126-FREQ ****************************************** C 1260 IF (IDFREQ) IDDSF = 0 IDFREQ = .FALSE. GO TO 1430 C C****** 131-RLOAD1, 132-RLOAD2 ********************************** C 1310 IF (M(5).EQ.0 .AND. M(6).EQ.0) GO TO 8 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0 .OR. M(4).LT.0) 1 GO TO 8 IF (M(5).LT.0 .OR. M(6).LT.0) GO TO 8 N = 6 GO TO 3 C C******* 138-TLOAD1 ***************************************** C 1380 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0 .OR. M(5).LE.0) 1 GO TO 8 IF (M(4).LT.0 .OR. M(4).GT.4) GO TO 8 N = 5 GO TO 3 C C******* 139-TLOAD2 ***************************************** C 1390 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0) GO TO 8 IF (RM(5).LT.0. .OR. RM(6).LE.RM(5) .OR. RM(7).LT.0.) GO TO 8 IF (M(4).LT.0 .OR. M(4).GT.4) GO TO 8 N = 10 GO TO 3 C C****** 244-RADMTX ***************************************** C 1400 IF (KM .EQ. 1) GO TO 1431 KM = 1 IF (MF(1) .NE. 1) BADFOR = .TRUE. ID = M(1) IF (ID .LE. IDRAD) BADDAT = .TRUE. IDRAD = ID I(1) = ID N = 1 L1 = 2 GO TO 1432 C C****** 290-VARIAN ************************************** C 1410 IF (KM .EQ. 1) GO TO 1431 KM = 1 IF (NVAR .NE. 0) GO TO 8 NVAR = 1 GO TO 1431 C C***** 273-AEFACT , 274-FLFACT ******************************** C 1415 IF (KM .EQ. 1) GO TO 1431 KM = 1 IF (MF(1) .NE. 1) BADFOR = .TRUE. IF (M(1) .LE. 0) BADDAT = .TRUE. I(1) = M(1) N = 1 L1 = 2 IF (MF(3) .NE. 3) GO TO 1432 IF (M(3).NE.THRU .OR. M(4).NE.BLNK) BADDAT = .TRUE. IF (MF(2).NE.2 .OR. MF(4).NE.2 .OR. MF(5).NE.1 .OR. MF(6).NE.2) 1 BADFOR = .TRUE. IF (M(6) .LE. 1) BADDAT = .TRUE. IF (M(5) .EQ. M(2)) BADDAT = .TRUE. IMID = 0 IF (RM(5)-RM(7).GE.0. .AND. RM(7)-RM(2).LT.0.) IMID = 1 IF (RM(5)-RM(7).LE.0. .AND. RM(7)-RM(2).GT.0.) IMID = 1 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 1416 BADFOR = .TRUE. GO TO 1438 1416 IF (BADFOR .OR. BADDAT) GO TO 1435 IF (IMID .EQ. 0) GO TO 1418 RM(7) = 0.5*(RM(2) + RM(5)) CALL PAGE2 (3) WRITE (NOUT,1417) UWM,I(1) 1417 FORMAT (A25,' 528, FACTOR FMID IN FLFACT SET',I9,' DOES NOT LIE ', 1 'BETWEEN F1 AND FNF.', /5X,'IT IS BEING RESET TO (F1 + ', 2 'FNF)/2.0') 1418 T4(2,K) = T4(2,K) + 1 CALL WRITE (204,I,1,0) L = 1 1419 TERM1 = (M(6)-L)*(RM(5)-RM(7)) TERM2 = (L-1)*(RM(7)-RM(2)) ANUM = RM(2)*TERM1 + RM(5)*TERM2 DEN = TERM1 + TERM2 FACTOR= ANUM/ DEN T4(2,K) = T4(2,K) + 1 CALL WRITE (204,FACTOR,1,0) L = L + 1 IF (L .LE. M(6)) GO TO 1419 I(1) = -1 T4(2,K) = T4(2,K) + 1 CALL WRITE (204,I,1,0) N = 0 KM = 0 KN = 0 GO TO 9 C C***** 143-DSFACT(1430), 185-PLFACT(1420) ******************** C 1420 IF (LPLF) 8,1425,1430 1425 LPLF = 1 IDDSF = 0 1430 IF (KM .EQ. 1) GO TO 1431 KM = 1 IF (MF(1) .NE. 1) BADFOR = .TRUE. ID = M(1) IF (ID .LE. IDDSF) BADDAT = .TRUE. IDDSF = ID I(1) = ID IF (MF(2) .NE. 2) BADFOR = .TRUE. N = 2 L1 = 3 I(N) = M(2) GO TO 1432 1431 L1 = 1 1432 DO 1433 L = L1,8 IF (MF(L) .EQ. 0) GO TO 1436 IF (MF(L) .NE. 2) BADFOR = .TRUE. N = N + 1 1433 I(N) = M(L) IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1438 1435 KM = 0 N = N + 1 I(N) =-1 KN = 0 GO TO 9 1436 IF (L .EQ. 1) BADFOR = .TRUE. DO 1437 L2 = L,8 IF (MF(L2).NE.0) BADFOR = .TRUE. 1437 CONTINUE IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 1435 BADFOR = .TRUE. 1438 KN = 1 GO TO 9 C C****** 144-AXIC ************************************** C 1440 IF (IAX) GO TO 1445 IAX = .TRUE. NN = 998 DO 1442 L = 1,NT1 IF (T4(1,L) .GT. 0) T3(1,L) = T3(1,K) 1442 CONTINUE CHURD2 11/93 C IF (M(1).LT.0 .OR. M(1).GT.998 .OR. M(2).NE.0) GO TO 8 C NN = M(1) CHURNB 11/93 C C M.LT.0 CHECK IS REMOVED TO ALLOW FOR SINGLE HARMONIC C C IF(M(1).LT.0.OR.M(1).GT.998.OR.M(2).NE.0)GO TO 8 IF( M(1).GT.998.OR.M(2).NE.0)GO TO 8 NNS = M(1) NN = IABS(M(1)) ONEH = .FALSE. IF(NNS .LT. 0)ONEH = .TRUE. CHURNE N = 2 IF (NN.GT.15 .AND. NBPW.LE.32) GO TO 1448 GO TO 3 1445 CALL PAGE2 (2) WRITE (NOUT,1446) UFM 1446 FORMAT (A23,' 329, ONLY ONE(1) AXIC CARD ALLOWED.') ABORT = .TRUE. GO TO 2 1448 WRITE (NOUT,1449) UWM 1449 FORMAT (A25,', POTENTIAL SYSTEM FATAL ERROR DUE TO LARGE HARMONIC' 1, ' (LARGER THAN 15) ON 32-BIT WORD MACHINE') GO TO 3 C OR GO TO 1447 C C****** 145-RINGAX ************************************** C 1450 IF (M(1).LE.0 .OR. RM(3).LE.0.) GO TO 8 IH = NN ASSIGN 1451 TO R ASSIGN 8 TO R1 GO TO 21 1451 IF (IFPDCO(M(7))) GO TO 8 N = 4 I(1) = M(1) I(2) = M(3) I(3) = M(4) I(4) = M(7) GO TO 2 C C****** 146-CCONEAX ************************************** C 1460 IF (M(1).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0) GO TO 8 IF (MF(2) .EQ. 0) M(2) = M(1) IF (M(2).LE.0 .OR. M(4).EQ.M(3)) GO TO 8 IH = NN ASSIGN 1461 TO R ASSIGN 8 TO R1 GO TO 21 1461 N = 4 GO TO 3 C C****** 147-PCONEAX ************************************** C 1470 IF (M(1) .LE. 0) GO TO 8 IF (M(2).EQ.0 .AND. M(3).NE.0 .OR. M(2).LT.0) GO TO 8 IF (M(4).EQ.0 .AND. M(5).NE.0 .OR. M(4).LT.0) GO TO 8 IF (M(6).EQ.0 .AND. M(7).NE.0 .OR. M(6).LT.0) GO TO 8 IF (M(2).NE.0 .AND. M(3).EQ.0) GO TO 8 IF (M(6).NE.0 .AND. M(7).EQ.0) GO TO 8 IH = NN ASSIGN 1471 TO R ASSIGN 8 TO R1 GO TO 21 1471 N = 24 GO TO 3 C C****** 148-SPCAX ***************************************** C 1480 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0) GO TO 8 IF (IFPDCO(M(4))) GO TO 8 CHURNB 11/93 IF(MF(3).EQ.0)GO TO 1481 CHURNE ASSIGN 8 TO R1 ASSIGN 1489 TO R IH = M(3) GO TO 21 1489 N = 5 GO TO 3 CHURNB 11/93 C C HID IS BLANK - GENERATE HID FOR THIS SPCAX FOR ALL HARMONICS C 1481 NHARMS=NNS+1 IF(ONEH)NHARMS=1 DO 1482 IL=1,NHARMS N=N+5 I(N-4)=M(1) I(N-3)=M(2) I(N-1)=M(4) I( N )=M(5) I(N-2)=IL-1 IF(ONEH)I(N-2)=NN 1482 CONTINUE GO TO 2 CHURNE C C****** 149-MPCAX ***************************************** C 1490 IF (M(7) .GT. 6) BADDAT = .TRUE. IF (ITHRML.EQ.1 .AND. M(7).GT.1) BADDAT = .TRUE. IF (KM .NE. 0) GO TO 1492 KM = 1 NT = 0 CHURNB 11/93 BLANKH=.FALSE. CHURNE IF (MF(1).NE.1 .OR. MF(2).NE.0 .OR. MF(3).NE.0 .OR. MF(4).NE.0) 1 BADFOR = .TRUE. L1 = 5 CHURNB 11/93 IF(MF(6).EQ.0)BLANKH=.TRUE. IF(BLANKH)CALL GOPEN(ISCR1,IBUFF(2*NBUF+1),1) CHURNE ASSIGN 1491 TO R GO TO 1493 1491 IF (M(1) .LE. 0) BADDAT = .TRUE. ID = M(1) N = 1 I(N) = ID IH = NN ASSIGN 1497 TO R ASSIGN 8 TO R1 GO TO 21 1492 L1 = 1 IF (M(3) .GT. 6) BADDAT = .TRUE. IF (ITHRML.EQ.1 .AND. M(3).GT.1) BADDAT = .TRUE. ASSIGN 1496 TO R 1493 DO 1495 L = L1,8 IF (MF(L) .EQ. 0) GO TO 1495 IF (L.EQ.4 .OR. L.EQ.8) GO TO 1494 IF (MF(L) .NE. 1) BADFOR = .TRUE. GO TO 1495 1494 IF (MF(L) .NE. 2) BADFOR = .TRUE. 1495 CONTINUE GO TO R, (1491,1496) 1496 N = 0 1497 DO 1498 L = L1,5,4 IF (M(L ).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0 .AND. 1 M(L+3).EQ.0) GO TO 1498 IF (M(L).LE.0 .OR. M(L+1).LT.0 .OR. M(L+2).LT.0 .OR. M(L+3).EQ.0 1 .AND. L1.EQ.5) BADDAT = .TRUE. CHURNB 11/93 IF(BLANKH.AND.L1.EQ.1.AND.MF(L+1).NE.0)BADFOR=.TRUE. IF(.NOT.BLANKH.AND.L1.EQ.1.AND.MF(L+1).EQ.0)BADFOR=.TRUE. CHURNE N = N + 4 I(N-3) = M(L ) I(N-2) = M(L+1) I(N-1) = M(L+2) I(N ) = M(L+3) 1498 CONTINUE NT = NT + N IF (N .LT. 4) BADDAT = .TRUE. KN = 1 CHURNB 11/93 IF(M1(1).NE.0.OR.M1(2).NE.0)GO TO 1499 IF(.NOT.BLANKH)GO TO 9 CALL WRITE(ISCR1,I,N,0) C WRITE(6,10005)N,(I(IL),IL=1,N) C10005 FORMAT(6H MPCAX,6I5) N=0 GO TO 9 CHURNE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 CHURNB 11/93 1499 CONTINUE CHURNE N = N + 4 I(N-3) = -1 I(N-2) = -1 I(N-1) = -1 I(N ) = -1 KN = 0 KM = 0 IF (NT .LT. 9) BADDAT = .TRUE. CHURNB 11/93 IF(.NOT.BLANKH)GO TO 9 C C MPCAX CARD DONE - GENERATE CARDS FOR ALL HARMONICS ASSUMING THE ONE JU C STORED (WITH BLANK HARMONIC) IS FOR THE ZERO HARMONIC C IF(NT.GT.NOPEN)CALL MESAGE(-8,0,NAM) CALL WRITE(ISCR1,I,N-4,1) C WRITE(6,10006)N,(I(IL),IL=1,N) C0006 FORMAT(7H MPCAX1,10I5) CALL CLOSE(ISCR1,1) CALL GOPEN(ISCR1,IBUFF(2*NBUF+1),0) CALL READ(*14990,*14991,ISCR1,IBUFF(3*NBUF+1),NOPEN,0,NNT) 14990 CALL MESAGE(-8,0,NAM) 14991 CALL CLOSE(ISCR1,1) C WRITE(6,10007)NT,NNT,(IBUFF(3*NBUF+IL),IL=1,NNT) C0007 FORMAT(7H MPCAX2,10I5) IF(NT.NE.NNT)CALL MESAGE(-61,0,0) C C ALL MPCAX CARD INFO FOR THIS CARD IS READ IN. GENERATE FOR ALL HARMONI C NHARMS=NNS+1 IF(ONEH)NHARMS=1 DO 14992 L=1,NHARMS ILL=L-1 IF(ONEH)ILL=IABS(NNS) DO 14993 IL=3,NT,4 14993 IBUFF(3*NBUF+IL)=ILL T4(2,K)=T4(2,K)+NT CALL WRITE(215,IBUFF(3*NBUF+1),NT,0) T4(2,K)=T4(2,K)+4 CALL WRITE(215,IONES,4,0) 14992 CONTINUE N=0 CHURNE GO TO 9 C C****** 151-SUPAX, 150-OMITAX ******************************* C 1500 L = 1 1501 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 1510 IF (M(L).LE.0 .OR. M(L+1).LT.0) GO TO 8 IF (IFPDCO(M(L+2))) GO TO 8 ASSIGN 1507 TO R ASSIGN 8 TO R1 IH = M(L+1) GO TO 21 1507 N = N + 3 IF (N.GT.3 .AND. M(L).EQ.M(L-3) .AND. M(L-1).EQ.M(L-4) .AND. 1 M(L-2).EQ.M(L-5)) GO TO 8 I(N-2) = M(L ) I(N-1) = M(L+1) I(N ) = M(L+2) 1510 L = L + 3 IF (L .EQ. 4) GO TO 1501 IF (N) 8,8,2 C C****** 152-POINTAX ************************************** C 1520 N = 3 1521 IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8 1522 ASSIGN 3 TO R 1523 IH = NN ASSIGN 8 TO R1 GO TO 21 1524 ASSIGN 2 TO R GO TO 1523 C C****** 153-SECTAX ************************************** C 1530 N = 5 IF (RM(3)) 8,8,1521 C C****** 154-PRESAX ************************************** C 1540 N = 6 IF (M(1).LE.0 .OR. M(4).LE.0 .OR. M(4).EQ.M(3)) GO TO 8 IF (IPIEZ .EQ. 1) GO TO 1522 IF (M(3) .LE. 0) GO TO 8 IF (ABS(RM(5)).GE.ABS(RM(6)) .AND. SIGN(1.,RM(5)).EQ.SIGN(1.,RM(6 1 ))) GO TO 8 GO TO 1522 C C****** 155-TEMPAX ************************************** C 1550 DO 1555 L = 1,5,4 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 1555 IF (M(L).LE.0 .OR. M(L+1).LE.0) GO TO 8 N = N + 4 I(N-3) = M(L ) I(N-2) = M(L+1) I(N-1) = M(L+2) I(N ) = M(L+3) 1555 CONTINUE IF (N) 8,8,1524 C C****** 156-FORCEAX, 157-MOMAX ******************************* C 1560 IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8 IF (MF(3).EQ.2.OR.MF(3).EQ.4) GO TO 8 IF (MF(3).NE.3 .AND. M(3) .LT. 0) GO TO 8 N = 8 L = 4 I(1) = M(1) I(2) = M(2) I(3) = M(3) I(4) = 0 IF (MF(3) .EQ. 3) I(4) = M(4) IF (MF(3) .EQ. 3) L = 5 I(5) = M(L) I(6) = M(L+1) I(7) = M(L+2) I(8) = M(L+3) GO TO 2 C C****** 17-MPC ****************************************** C 1700 IF (M(3).GT.6 .OR. M(6).GT.6) BADDAT = .TRUE. IF (ITHRML .NE. 1) GO TO 1710 IF (M(3).GT.1 .OR. M(6).GT.1) BADDAT = .TRUE. 1710 IF (KM .NE. 0) GO TO 1724 KM = 1 NT = 0 IF (MF(1).NE.1 .OR. MF(8).NE.0) BADFOR = .TRUE. ASSIGN 1712 TO R GO TO 1725 1712 IF (M(1) .LE. 0) BADDAT = .TRUE. ID = M(1) IF (M(2).LE.0 .OR. M(3).LT.0 .OR. M(4).EQ.0) BADDAT = .TRUE. IF (IDS.EQ.ID .AND. JMS.EQ.M(2) .AND. KMS.EQ.M(3)) BADDAT = .TRUE. IDS = ID JMS = M(2) KMS = M(3) N = 4 DO 1721 L = 1,4 1721 I(L) = M(L) GO TO 1745 1724 IF (MF(1).NE.0 .OR. MF(8).NE.0) BADFOR = .TRUE. ASSIGN 1737 TO R 1725 DO 1736 L = 2,7 IF (MF(L) .EQ. 0) GO TO 1736 IF (L.EQ.4 .OR. L.EQ.7) GO TO 1733 IF (MF(L) .NE. 1) BADFOR = .TRUE. GO TO 1736 1733 IF (MF(L) .NE. 2) BADFOR = .TRUE. 1736 CONTINUE GO TO R, (1712,1737) 1737 N = 0 IF (M(2).EQ.0 .AND. M(3).EQ.0 .AND. M(4).EQ.0) GO TO 1745 IF (M(2).LE.0 .OR. M(3).LT.0) BADDAT = .TRUE. N = 3 DO 1742 L = 2,4 1742 I(L-1) = M(L) 1745 IF (M(5).EQ.0 .AND. M(6).EQ.0 .AND. M(7).EQ.0) GO TO 1751 IF (M(5).LE.0 .OR. M(6).LT.0) BADDAT = .TRUE. N = N + 3 I(N-2) = M(5) I(N-1) = M(6) I(N ) = M(7) 1751 IF (N .LE. 0) BADDAT = .TRUE. NT = NT + N DO 1754 L = 1,8 1754 M(L) = 0 KN = 1 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 N = N + 3 I(N-2) = -1 I(N-1) = -1 I(N ) = -1 KN = 0 KM = 0 IF (NT .LT. 7) BADDAT = .TRUE. GO TO 9 C C****** 182-DAREA, 183-DELAY, 184-DPHASE ******************* C 1820 IF (M(1) .LE. 0) GO TO 8 DO 1825 L = 2,5,3 CHURNB 11/93 C WRITE(6,10003)L,M(L),M(L+1),M(L+2),N,NNS,(I(IL),IL=1,N) C0003 FORMAT(7H DAREA0,6I10/(1X,24I5)) CHURNE IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 1825 IF (M(L).LE.0 .OR. M(L+1).LT.0 .OR. M(L+1).GT.6) GO TO 8 N = N + 4 I(N-3) = M(1) I(N-2) = M(L) I(N-1) = M(L+1) I(N ) = M(L+2) CHURNB 11/93 IF(.NOT.IAX)GO TO 1825 IF(M(L).GE.1000000)GO TO 1825 C C FOR AXIC PROBLEMS AND GRID ID ON DAREA .LT. 10**6, GENERATE DAREAS FOR C HARMONICS, COMPUTING THE GRID ID. ASSUME PRESSURE VALUE IS GIVEN FOR C ZERO HARMONIC; FOR HIGHER HARMONICS, HALVE IT. C NHARMS=NNS+1 IF(ONEH)NHARMS=1 DO 1824 IL=1,NHARMS ILL=IL IF(NNS.GE.0 .AND. IL.EQ.1)GO TO 1823 IF(IL.GT.1)GO TO 1821 C C NNS.LT.0 .AND. IL.EQ.1 C ILL=NN+1 GO TO 1822 1821 N=N+4 I(N-3)=M(1) I(N-1)=M(L+1) 1822 XIN=0.5*RM(L+2) I(N)=IXIN 1823 I(N-2)=M(L)+1000000*ILL 1824 CONTINUE CHURNE 1825 CONTINUE CHURNB 11/93 C WRITE(6,10001)NHARMS,NNS,N,(I(IL),IL=1,N) C10001 FORMAT(6H DAREA,3I10/(1X,24I5)) CHURNE IF (N) 8,8,2 C C****** 279-CRIGD1 ********************************** C 2010 CONTINUE KN = 1 GO TO (2011,2012), IRIGID 2011 CONTINUE IRIGID = IRIGID + 1 IF (MF(1).NE.1) BADFOR = .TRUE. IF (M(1) .LE.0) BADDAT = .TRUE. I(1) = M(1) N = 2 IF (MF(2).NE.1) BADFOR = .TRUE. IF (M(2) .LT.1) BADDAT = .TRUE. I(2) = M(2) IF (MF(4).EQ.3) GO TO 2020 IRG = 3 GO TO 2013 2012 CONTINUE N = 0 IRG = 1 2013 CONTINUE DO 2015 L = IRG,8 L1 = L IF (M(L) .LE. 0) GO TO 2018 IF (MF(L) .NE. 1) BADFOR = .TRUE. I(N+1) = M(L) DO 2014 J = 1,6 2014 I(N+1+J) = J N = N + 7 2015 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 2016 IRIGID = 1 DO 2017 J = 1,7 2017 I(N+J) = -1 IF (M1(1).EQ.ARIGID .AND. M1(2).EQ.BRIGID) I(N+2) = 0 N = N + 7 KN = 0 GO TO 9 2018 CONTINUE DO 2019 LK = L1,8 IF (M(LK) .NE.0) BADDAT = .TRUE. IF (MF(LK).NE.0) BADFOR = .TRUE. 2019 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2022 GO TO 2016 2020 IF (M(4).EQ.THRU .AND. M(5).EQ.BLNK) GO TO 2024 BADDAT = .TRUE. IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 2016 2022 BADFOR = .TRUE. GO TO 9 2024 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2022 IF (MF(3).NE.1 .OR.MF(5).NE.1) BADFOR = .TRUE. IF (M(3).LE.0 .OR. M(6).LE.0) BADDAT = .TRUE. IF (M(6) .LE. M(3)) BADDAT = .TRUE. DO 2025 L = 6,8 IF (MF(L) .NE. 0) BADFOR = .TRUE. 2025 CONTINUE IF (BADFOR .OR. BADDAT) GO TO 2016 T4(2,K) = T4(2,K) + 2 CALL WRITE (210,M,2,0) L = M(3) 2026 I(1) = L DO 2027 J = 1,6 2027 I(J+1) = J T4(2,K) = T4(2,K) + 7 CALL WRITE (210,I,7,0) L = L + 1 IF (L .LE. M(6)) GO TO 2026 IRIGID = 1 DO 2028 J = 1,7 2028 I(J) = -1 IF (M1(1).EQ.ARIGID .AND. M1(2).EQ.BRIGID) I(2) = 0 N = 0 KN = 0 T4(2,K) = T4(2,K) + 7 CALL WRITE (210,I,7,0) GO TO 9 C C****** 284-CRIGD2 ********************************** C 2060 CONTINUE KN = 1 GO TO (2061,2062), IRIGID 2061 IRIGID = IRIGID + 1 IF (MF(1) .NE. 1) BADFOR = .TRUE. IF (M(1) .LE. 0) BADDAT = .TRUE. I(1) = M(1) N = 2 IF (MF(2) .NE. 1) BADFOR = .TRUE. IF (M(2) .LT. 1) BADDAT = .TRUE. I(2) = M(2) IRG = 3 GO TO 2063 2062 CONTINUE N = 0 IRG = 1 2063 CONTINUE DO 2065 L = IRG,8,2 L1 = L IF (M(L ) .LE. 0) GO TO 2068 IF (M(L+1) .LE. 0) BADDAT = .TRUE. IF (MF(L).NE.1 .OR. MF(L+1).NE.1) BADFOR = .TRUE. I(N+1) = M(L) IF (IFPDCO(M(L+1))) BADDAT = .TRUE. DO 2064 J = 1,6 2064 I(N+1+J) = LL(J) N = N + 7 2065 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 2066 IRIGID = 1 DO 2067 J = 1,7 2067 I(N+J) = -1 IF (M1(1).EQ.ARIGID .AND. M1(2).EQ.CRIGID) I(N+2) = 0 N = N + 7 KN = 0 GO TO 9 2068 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADDAT = .TRUE. DO 2069 LK = L1,8 IF (M(LK) .NE. 0) BADDAT = .TRUE. IF (MF(LK) .NE. 0) BADFOR = .TRUE. 2069 CONTINUE GO TO 2066 C C****** 298-CRIGD3, 350-CRBE1 ****************************** C 7000 KN = 1 GO TO (7020,7160,7200,7240), IRIGID 7020 IRIGID = 2 JRIGID = 1 KNT1 = KNT L1 = 2 L2 = 6 L6 = 0 IF (MF(1).NE.1 .OR. MF(2).NE.1 .OR. MF(3).NE.1) BADFOR = .TRUE. IF (M(1) .LT.1 .OR. M(2) .LT.1 .OR. M(3) .LT.1) BADDAT = .TRUE. N = 1 I(1) = M(1) Q(1) = M(1) L8 = 1 NCOMP= 0 7040 L5 = L2 + 2 DO 7080 L = L1,L2,2 L3 = L + 1 IF (MF(L-L6) .EQ. 0) GO TO 7120 IF (MF(L-L6).NE.1 .OR. MF(L-L6+1).NE.1) BADFOR = .TRUE. IF (M(L).LT.1 .OR. M(L+1).LT.1) BADDAT = .TRUE. IF (.NOT.PRT) GO TO 7050 Q(L8+1) = M(L ) Q(L8+2) = M(L3) L8 = L8 + 2 7050 I(N+1) = M(L) IF (IFPDCO(M(L+1))) BADDAT = .TRUE. DO 7060 J = 1,6 I(N+J+1) = LL(J) IF (IRIGID.EQ. 4) GO TO 7060 IF (LL(J) .NE. 0) NCOMP = NCOMP + 1 7060 CONTINUE N = N + 7 IF (IRIGID .EQ. 4) GO TO 7080 IF (NCOMP .GT. 6) BADDAT = .TRUE. 7080 CONTINUE IF (MF(L5-L6) .NE. 0) BADFOR = .TRUE. IF (M(L5) .NE. 0) BADDAT = .TRUE. GO TO (7100,7100,7220), JRIGID 7100 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 7110 IF (M1F(2).NE.0 .AND. NCOMP.LT.6) BADDAT = .TRUE. GO TO 9 7110 BADFOR = .TRUE. IRIGID = 1 GO TO 9 7120 DO 7140 LK = L3,L5 IF (MF(LK-L6) .NE. 0) BADFOR = .TRUE. IF (M(LK) .NE. 0) BADDAT = .TRUE. 7140 CONTINUE GO TO (7100,7100,7220), JRIGID C 7160 IF (MF(1) .NE. 0) GO TO 7200 IRIGID = 3 JRIGID = 2 L1 = 2 L2 = 6 L6 = 0 IF (MF(2).NE.1 .OR. MF(3).NE.1) BADFOR = .TRUE. IF (M(1).NE.0 .OR. M(2).LT.1 .OR. M(3).LT.1) BADDAT = .TRUE. N = 0 GO TO 7040 C 7200 IRIGID = 4 JRIGID = 3 L1 = 3 L2 = 7 L6 = 1 L7 = L8 IF (MF(1).NE.3 .OR. MF(2).NE.1 .OR. MF(3).NE.1) BADFOR = .TRUE. IF ((M(1).NE.MSET .AND. M(1).NE.IUM) .OR. M(2).NE.BLNK .OR. 1 M(3).LT.1 .OR. M(4).LT.1) GO TO 7250 N = 1 I(1) = MSET GO TO 7040 7220 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 IRIGID = 1 DO 7230 J = 1,7 7230 I(N+J) = -1 IF (M1(1).EQ.ARIGID .AND. M1(2).EQ.DRIGID) I(N+2) = 0 IF (M1(1).EQ.CRBE .AND. M1(2).EQ.ERIGID) I(N+2) = 0 N = N + 7 KN = 0 IF (KZ.NE.50 .OR. .NOT.PRT) GO TO 9 LK = (L8+4)/3 + 2 CALL PAGE2 (LK) WRITE (NOUT,7232) SCC,KNT1,(Q(J),J=1,L7) 7232 FORMAT (/25X,A19,I7,1H-,5X,'CRBE1 ',7I8, /,(71X,6I8)) LK = L7 + 1 WRITE (NOUT,7234) (Q(J),J=LK,L8) 7234 FORMAT (69X,'UM',6I8, /,(71X,6I8)) WRITE (NOUT,7236) GCC,(Q(J),J=1,L7) 7236 FORMAT (25X,A19,13X,'CRIGD3',7I8, /,(71X,6I8)) WRITE (NOUT,7238) (Q(J),J=LK,L8) 7238 FORMAT (67X,'MSET',6I8, /,(71X,6I8)) GO TO 9 C 7240 L1 = 2 L2 = 6 L6 = 0 IF (MF(1).NE.0 .OR. MF(2).NE.1 .OR. MF(3).NE.1) BADFOR = .TRUE. IF (M(1) .NE.0 .OR. M(2) .LT.1 .OR. M(3) .LT.1) BADDAT = .TRUE. N = 0 GO TO 7040 7250 WRITE (NOUT,6475) UFM,BLNK,Q(1),KNT1 GO TO 8 C C****** 297-CRIGDR ************************************* C 7300 DO 7320 L = 1,5,4 IF (M(L ).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0 .AND. 1 M(L+3).EQ.0) GO TO 7320 IF (M(L).LE.0 .OR. M(L+1).LE.0 .OR. M(L+2).LE.0 .OR. M(L+3).LE.0) 1 GO TO 8 IF (M(L+1) .EQ. M(L+2)) GO TO 8 IF (M(L+3) .GT. 3) GO TO 7310 N = N + 4 IF (N.GT.4 .AND. M(L).EQ.M(L-4)) GO TO 8 I(N-3) = M(L ) I(N-2) = M(L+1) I(N-1) = M(L+2) I(N ) = M(L+3) GO TO 7320 7310 WRITE (NOUT,6475) UFM,BLNK,M(L),KNT BADDAT = .TRUE. 7320 CONTINUE IF (N) 8,8,2 C C****** 347-CRROD ***************************************** C C MAP THIS RIGID ELEMENT INTO CRIGID3 FORM C 6000 IF (MF(1)+MF(2)+MF(3) .NE. 3) GO TO 7 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LE.0) GO TO 8 IF (M(2) .EQ. M(3)) GO TO 8 IF (M(4).LT.0 .OR. M(5).LT.0) GO TO 6480 L = M(4) + M(5) IF (L.LT.1 .OR. L.GT.3) GO TO 6480 IF (M(4).NE.0 .AND. M(5).NE.0) GO TO 6480 IF (.NOT.PRT) GO TO 6004 CALL PAGE2 (3) IF (M(4).NE.0) WRITE (NOUT,6002) SCC,KNT,(M(J),J=1,4),GCC,M(1), 1 M(3),M(2),M(4) IF (M(4).EQ.0) WRITE (NOUT,6003) SCC,KNT,(M(J),J=1,3),M(5),GCC, 1 (M(J),J=1,3),M(5) 6002 FORMAT (/25X,A19,I7,1H-,5X,'CRROD ',4I8, 1 /25X,A19,13X,'CRIGDR',4I8) 6003 FORMAT (/25X,A19,I7,1H-,5X,'CRROD ',3I8,8X,I8, 1 /25X,A19,13X,'CRIGDR',4I8) 6004 L = M(3) IF (M(4) .EQ. 0) GO TO 6005 L = M(2) M(2) = M(3) M(3) = L M(5) = M(4) 6005 M(4) = M(5) N = 4 GO TO 3 C C****** 348-CRBAR ***************************************** C C MAP THIS RIGID ELEMENT INTO CRIGD3 FORM C 6100 IF (MF(1)+MF(2)+MF(3) .NE. 3) GO TO 7 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LE.0) GO TO 8 IF (M(2) .EQ. M(3)) GO TO 8 RBE = .FALSE. IF (M(6).EQ.0 .AND. M(7).EQ.0) RBE = .TRUE. IF (M(4).EQ.0 .AND. M(5).EQ.0) GO TO 6470 IF (IFPDCO(M(4))) GO TO 6470 LK = 1 DO 6110 L = 1,6 LLL = LL(L) IF (RBE .AND. LLL.EQ.0) M(6) = M(6) + L*LK IF (LLL .EQ. 0) LK = LK*10 6110 IA(L) = LLL IF (IFPDCO(M(5))) GO TO 6470 LK = 1 DO 6115 L = 1,6 LLL = LL(L) IF (RBE .AND. LLL.EQ.0) M(7) = M(7) + L*LK IF (LLL .EQ. 0) LK = LK*10 6115 IB(L) = LLL IF (RBE) GO TO 6130 IF (IFPDCO(M(6))) GO TO 6480 DO 6120 L = 1,6 IF (IA(L) .EQ. 0) GO TO 6120 IF (IA(L) .EQ. LL(L)) GO TO 6480 6120 JA(L) = LL(L) IF (IFPDCO(M(7))) GO TO 6480 DO 6125 L = 1,6 IF (IB(L) .EQ. 0) GO TO 6125 IF (IB(L) .EQ. LL(L)) GO TO 6480 6125 JB(L) = LL(L) C 6130 IF (.NOT.PRT) GO TO 6133 CALL PAGE2 (4) WRITE (NOUT,6131) SCC,KNT,(M(L),L=1,7),GCC,M(1),M(2),M(4),M(3), 1 M(5),M(2),M(6),M(3),M(7) 6131 FORMAT (/25X,A19,I7,1H-,5X,'CRBAR ',7I8, 1 /25X,A19,13X,'CRIGD3',5I8, /67X,'MSET',4I8) C C KZ=48 (CRBAR), KZ=49 (CRTRPLT) C 6133 NCOMP = 0 DO 6135 L = 1,6 IF (IA(L) .NE. 0) NCOMP = NCOMP + 1 IF (IB(L) .NE. 0) NCOMP = NCOMP + 1 IF (KZ .NE. 49) GO TO 6135 IF (IC(L) .NE. 0) NCOMP = NCOMP + 1 6135 CONTINUE IF (NCOMP .NE. 6) GO TO 6470 LK = 0 IF (KZ .EQ. 49) LK = 1 I(1) = M(1) N = 2 IF (M(4+LK) .EQ. 0) GO TO 6143 I(N) = M(2) DO 6140 J = 1,6 6140 I(N+J) = IA(J) N = N + 7 6143 IF (M(5+LK) .EQ. 0) GO TO 6147 I(N) = M(3) DO 6145 J = 1,6 6145 I(N+J) = IB(J) N = N + 7 6147 IF (KZ.NE.49 .OR. M(6+LK).EQ.0) GO TO 6160 I(N) = M(4) DO 6150 J = 1,6 6150 I(J+N) = IC(J) N = N + 7 C 6160 I(N) = MSET N = N + 1 IF (.NOT.RBE) GO TO 6170 DO 6165 J = 1,6 IF (IA(J) .EQ. 0) IA(J) =-J IF (IA(J) .GT. 0) IA(J) = 0 IF (IB(J) .EQ. 0) IB(J) =-J IF (IB(J) .GT. 0) IB(J) = 0 IF (KZ .NE. 49) GO TO 6165 IF (IC(J) .EQ. 0) IC(J) =-J IF (IC(J) .GT. 0) IC(J) = 0 6165 CONTINUE 6170 IF (KZ .EQ. 49) LK = 3 IF (M(6+LK) .EQ. 0) GO TO 6177 I(N) = M(2) DO 6175 J = 1,6 IF ( RBE) I(N+J) =-IA(J) IF (.NOT.RBE) I(N+J) = JA(J) 6175 CONTINUE N = N + 7 6177 IF (M(7+LK) .EQ. 0) GO TO 6182 I(N) = M(3) DO 6180 J = 1,6 IF ( RBE) I(N+J) =-IB(J) IF (.NOT.RBE) I(N+J) = JB(J) 6180 CONTINUE N = N + 7 6182 IF (KZ.NE.49 .OR. M(8+LK).EQ.0) GO TO 6190 I(N) = M(4) DO 6185 J = 1,6 IF ( RBE) I(N+J) =-IC(J) IF (.NOT.RBE) I(N+J) = JC(J) 6185 CONTINUE N = N + 7 6190 N = N - 1 DO 6195 J = 1,7 6195 I(N+J) = -1 IF (M1(1).EQ.CRTR .OR. M1(1).EQ.CRBA) I(N+2) = 0 N = N + 7 GO TO 9 C C****** 349-CRTRPLT ****************************************** C C MAP THIS RIGID ELEMENT INTO CRIGD3 FORM C 6300 IF (MF(1)+MF(2)+MF(3)+MF(4) .NE. 4) GO TO 7 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0) 1 GO TO 8 IF (M(2).EQ.M(3) .OR. M(2).EQ.M(4) .OR. M(3).EQ.M(4)) GO TO 8 IF (M(5).EQ.0 .AND. M(6).EQ.0 .AND. M(7).EQ.0) GO TO 6470 RBE = .FALSE. IF (M(9).EQ.0 .AND. M(10).EQ.0 .AND. M(11).EQ.0) RBE = .TRUE. IF (IFPDCO(M(5))) GO TO 6470 LK = 1 DO 6310 L = 1,6 LLL = LL(L) IF (RBE .AND. LLL.EQ.0) M(9) = M(9) + L*LK IF (LLL .EQ. 0) LK = LK*10 6310 IA(L) = LLL IF (IFPDCO(M(6))) GO TO 6470 LK = 1 DO 6320 L = 1,6 LLL = LL(L) IF (RBE .AND. LLL.EQ.0) M(10) = M(10) + L*LK IF (LLL .EQ. 0) LK = LK*10 6320 IB(L) = LLL IF (IFPDCO(M(7))) GO TO 6470 LK = 1 DO 6330 L = 1,6 LLL = LL(L) IF (RBE .AND. LLL.EQ.0) M(11) = M(11) + L*LK IF (LLL .EQ. 0) LK = LK*10 6330 IC(L) = LLL IF (RBE) GO TO 6365 IF (IFPDCO(M(9))) GO TO 6480 DO 6340 L = 1,6 IF (IA(L) .EQ. 0) GO TO 6340 IF (IA(L) .EQ. LL(L)) GO TO 6480 6340 JA(L) = LL(L) IF (IFPDCO(M(10))) GO TO 6480 DO 6350 L = 1,6 IF (IB(L) .EQ. 0) GO TO 6350 IF (IB(L) .EQ. LL(L)) GO TO 6480 6350 JB(L) = LL(L) IF (IFPDCO(M(11))) GO TO 6480 DO 6360 L = 1,6 IF (IC(L) .EQ. 0) GO TO 6360 IF (IC(L) .EQ. LL(L)) GO TO 6480 6360 JC(L) = LL(L) 6365 IF (.NOT.PRT) GO TO 6133 KNT1 = KNT IF (.NOT.RBE) KNT1 = KNT - 1 CALL PAGE2 (5) WRITE (NOUT,6370) SCC,KNT1,(M(L),L=1,7),(M(L),L=9,11), GCC,M(1), 1 M(2),M(5),M(3),M(6),M(4),M(7),M(2),M(9),M(3),M(10),M(4),M(11) 6370 FORMAT (/25X,A19,I7,1H-,5X,'CRTRPLT',I7,6I8, /63X,3I8, 1 /25X,A19,13X,'CRIGD3',7I8, /67X,'MSET',6I8) GO TO 6133 C C****** 351-CRBE2 ******************************************* C C MAP THIS RIGID ELEMENT INTO CRIGD2 FORM C 6400 KN = 1 GO TO (6405,6410), IRIGID 6405 IRIGID = IRIGID + 1 KNT1 = KNT L6 = 60 L7 = L6 L8 = 0 IF (MF(1)+MF(2)+MF(3) .NE. 3) GO TO 7 IF (M(1) .LE.0 .OR. M(2) .LE.0) GO TO 8 I(1) = M(1) I(2) = M(2) Q(1) = M(1) Q(2) = M(2) M3 = M(3) L8 = L8+2 Q(L7+1) = M(1) Q(L7+2) = M(2) Q(L7+3) = M3 L7 = L7 + 3 N = 2 IRG = 4 IF (IFPDCO(M3)) BADDAT = .TRUE. IF (M3 .EQ. 0) BADDAT = .TRUE. GO TO 6420 6410 N = 0 IRG = 1 6420 DO 6430 L = IRG,8 IF (MF(L) .EQ. 0) GO TO 6450 IF (MF(L) .NE. 1) BADFOR = .TRUE. IF (M(L) .LE. 0) BADDAT = .TRUE. IF (L8 .GE. L6) GO TO 6422 Q(L8+1) = M(L) Q(L8+2) = M3 6422 L8 = L8 + 2 IF (L7 .LT. 92) Q(L7+1) = M(L) L7 = L7 + 1 I(N+1) = M(L) DO 6425 J = 1,6 6425 I(N+1+J) = LL(J) N = N + 7 6430 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 6440 IRIGID = 1 DO 6445 J = 1,7 6445 I(N+J) = -1 IF (M1(1).EQ.CRBE .AND. M1(2).EQ.FRIGID) I(N+2) = 0 N = N + 7 KN = 0 IF (.NOT.PRT) GO TO 9 L3 = L7 L5 = L8 IF (L3 .GT. 92) L3 = 92 IF (L5 .GT. L6) L5 = L6 J = (L5+2)/8 + (L3-L6+2)/8 + 2 CALL PAGE2 (J) L6 = L6 + 1 WRITE (NOUT,6447) SCC,KNT1,(Q(J),J=L6,L3) WRITE (NOUT,6448) GCC,(Q(J),J=1,L5) 6447 FORMAT (/25X,A19,I7,1H-,5X,'CRBE2 ',8I8, /,(63X,8I8)) 6448 FORMAT ( 25X,A19,13X,'CRIGD2',8I8, /,(63X,8I8)) IF (L8.GT.L6 .OR. L7.GT.102) WRITE (NOUT,6449) 6449 FORMAT (57X,'*** ABOVE PRINTOUT MAY BE IMCOMPLETE. DATA IS OK') GO TO 9 6450 L1 = L IF (L1 .GT. 8) GO TO 6460 DO 6455 L = L1,8 IF (M(L) .NE. 0) BADDAT = .TRUE. IF (MF(L) .NE. 0) BADFOR = .TRUE. 6455 CONTINUE 6460 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADDAT = .TRUE. GO TO 6440 C 6470 WRITE (NOUT,6475) UFM,IND,M(1),KNT1 6475 FORMAT (A23,', ILLEGAL ',A2,'DEPENDENT D.O.F.', 1 ' FOR RIGID ELEMENT',I9,' SORTED COUNT',I8) GO TO 8 6480 WRITE (NOUT,6475) UFM,BLNK,M(1),KNT1 GO TO 8 C C****** 352-CRBE3 ******************************************* C C CARD 3, OR CARDS 2 AND 3, CAN BE OMITTED IF THE CARD(S) CONTAINS C ALL BLANKS. C CARD 5, OR CARDS 4 AND 5, CAN BE OMITTED IF THE CARD(S) CONTIANS C ALL BLANKS, OR DEFAULT FOR THE 'UM' OPTION IS USED C C ACTUALLY THIS CRBE3 INPUT CARD IS NOT WHAT SHOWN IN THE USER'S C MANUAL. THE LIST OF G(I,J) CAN BE AS LONG AS NEEDED. THEREFORE C CARDS 2 AND 3 CAN BE EXPANDED BEYOND THE 3 GRID POINTS AS SHOWN. C THE 4TH AND 5TH CARDS CAN BE EXPANDED TOO. THE WI AND CI FIELDS C NEED NOT BE IN THE FIELDS AS SHOWN IN THE EXAMPLE OF THE MANUAL C C CHANGES DONE IN 92 VERSION WERE REMOVED AND REPLACED BY 91 CODE C SEE 93 CODE FOR THESE CHANGES C C IM HERE IS CARD NUMBER COUNT C 6500 CONTINUE IF (KM .NE. 0) GO TO 6510 KM = 1 IM = 1 IF (MF(1)+MF(3)+MF(4) .NE. 3) BADFOR = .TRUE. IF (M(1).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0) BADDAT = .TRUE. IF (IFPDCO(M(4))) BADDAT = .TRUE. IF (MF(5) .NE. 2) BADDAT = .TRUE. I(1) = M(1) I(2) = M(3) I(3) = M(4) C C ... NOTE - COMPONENTS IN LL NOT SENT OUT IN CRBE3 C N = 3 L1 = 5 GO TO 6520 C C 6510 IF (MF(1) .EQ. 3) GO TO 6560 IF (IM .EQ. 0) GO TO 6565 L1 = 1 6520 DO 6540 L = L1,8 IF (MF(L) .NE. 2) GO TO 6530 IF (L1 .EQ. 5) GO TO 6525 N = N + 1 I(N)=-1 6525 IM = 1 CWKBI 11/93 SPR93018 L1 = 1 N = N + 1 I(N)= M(L) GO TO 6540 6530 IF (MF(L) .EQ. 0) GO TO 6540 IF (MF(L).NE.1 .OR. M(L).LE.0) BADDAT =.TRUE. IF (IM .EQ. -1) GO TO 6535 IF (IFPDCO(M(L))) BADDAT =.TRUE. 6535 IM =-1 N = N + 1 I(N) = M(L) 6540 CONTINUE IF (M1(1) .NE. 0) GO TO 6550 KN = 1 GO TO 9 6550 N = N + 1 I(N) = -1 6555 KN = 0 KM = 0 N = N + 1 I(N) = -3 GO TO 9 6560 IF (M(1) .NE. IUM) BADDAT =.TRUE. I(N+1) = -1 I(N+2) = -2 N = N + 2 IM = 0 L1 = 3 GO TO 6570 6565 L1 = 2 6570 DO 6580 L = 2,6,2 IF (MF(L) .EQ. 0) GO TO 6575 IF (MF(L ).NE.1 .OR. M(L1 ).LE.0) BADDAT =.TRUE. IF (MF(L+1).NE.1 .OR. M(L1+1).LE.0) BADDAT =.TRUE. IF (IFPDCO(M(L1+1))) BADDAT =.TRUE. I(N+1) = M(L1 ) I(N+2) = M(L1+1) N = N + 2 6575 L1 = L1 + 2 6580 CONTINUE IF (M1(1) .NE. 0) GO TO 6555 GO TO 9 C C****** 353-CRSPLINE ******************************************* C 6600 CONTINUE IF (KM .NE. 0) GO TO 6610 KM = 1 IM = -1 IF (MF(1).NE.1 .OR. M(1).LE.0) GO TO 6680 IF (MF(2) .EQ. 0 ) RM(2) = .1 IF (RM(2) .LE. 0.) GO TO 6680 IF (MF(3).NE.1 .OR. M(3).LE.0) GO TO 6680 I(1) = M(1) I(2) = M(2) I(3) = M(3) N = 3 L1 = 4 GO TO 6620 6610 L1 = 1 IF (IM .EQ. -9) GO TO 6680 6620 DO 6640 L = L1,8 IF (MF(L).NE.0 .AND. MF(L).NE.1) GO TO 6680 IF (IM.EQ.-1 .AND. M(L).LT.0) GO TO 6680 IF (IM.EQ.-1 .AND. M(L).EQ.0) GO TO 6650 IF (IM .EQ. -1) GO TO 6630 IF (IFPDCO(M(L))) GO TO 6680 C C ... NOTE - COMPONENTS IN LL NOT SENT OUT IN CRSPLINE C 6630 IM = -IM N = N + 1 I(N) = M(L) 6640 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 6670 N = N + 1 I(N)= 0 6650 IM = -9 N = N + 1 I(N)= -1 IF (L .EQ. 8) GO TO 6670 L1 = L DO 6660 L = L1,8 IF (MF(L) .NE. 0) GO TO 6680 6660 CONTINUE C 6670 KN = 1 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 KN = 0 KM = 0 N = N + 1 I(N) = -1 GO TO 9 6680 BADDAT = .TRUE. GO TO 6670 C C****** 285-CTRIAAX *************************************** C 2111 IF (M(1) .LE. 0 .OR. M(2) .LE. 0) GO TO 8 IF (M(3) .LE. 0 .OR. M(4) .LE. 0) GO TO 8 IF (M(3) .EQ. M(4)) GO TO 8 IF (M(3) .EQ. M(5)) GO TO 8 IH = NN ASSIGN 8 TO R1 ASSIGN 2172 TO R GO TO 21 2172 N = 6 GO TO 3 C C****** 286-PTRIAX, 288-PTRAPAX ******************************* C 2030 IF (M(1) .LE. 0) GO TO 8 IH = NN ASSIGN 8 TO R1 ASSIGN 2031 TO R GO TO 21 2031 N = 17 GO TO 3 C C******* 287-CTRAPAX ******************************** C 2040 IF (M(1) .LE. 0 .OR. M(2) .LE. 0) GO TO 8 IF (M(3) .EQ. M(4)) GO TO 8 IF (M(3) .EQ. M(5)) GO TO 8 IH = NN ASSIGN 8 TO R1 ASSIGN 2041 TO R GO TO 21 2041 N = 7 GO TO 3 C C****** 28-GENEL ************************************** C 2800 GO TO (2802,2810,2830,2810,2836,2844,2858,2844), L0 2802 L0 = L0 + 1 KZFLAG = 0 L8 = 0 NOUD = .TRUE. NOS = .TRUE. IF (MF(1).NE.1 .OR. MF(2).NE.0) BADFOR = .TRUE. IF (M(1) .LE. 0) BADDAT = .TRUE. ID = M(1) I(1) = ID N = 1 L3 = 3 GO TO 2812 2810 L3 = 1 2811 N = 0 2812 DO 2814 L = L3,8 IF (MF(L).NE.0 .AND. MF(L).NE.1) BADFOR = .TRUE. 2814 CONTINUE L5 = 1 DO 2818 L = L3,7,2 IF (M(L) .EQ. 0) GO TO 2824 L5 = L + 2 L8 = L8 + 1 N = N + 2 I(N-1) = M(L ) I(N ) = M(L+1) IF (M(L) .LE. 0) GO TO 2816 IF (M(L+1).GE.0 .AND. M(L+1).LE.6) GO TO 2818 2816 BADDAT = .TRUE. 2818 CONTINUE IF (M1F(2) .NE. 3) GO TO 2864 2820 N = N + 2 I(N-1) = -1 I(N) = L8 L0 = L0 + 1 IF (L0 .EQ. 5) GO TO 2822 L6 = L8 GO TO 2864 2822 L7 = L8 GO TO 2864 2824 DO 2826 L = L5,7,2 IF (M(L).NE.0 .OR. M(L+1).NE.0) BADDAT = .TRUE. 2826 CONTINUE IF (L5 .LE. 1) BADDAT = .TRUE. IF (M1F(2) .EQ. 3) GO TO 2820 BADDAT = .TRUE. GO TO 2864 2830 L0 = L0 + 1 LB = 0 IF (MF(1).NE.3 .OR. (M(1).NE.LZ .AND. M(1).NE.KK)) GO TO 2831 L0 = L0 + 1 LB = 2 I(1) =-1 I(2) = 0 GO TO 2838 2831 L8 = 0 IF (MF(1).NE.3 .OR. MF(2).NE.0) BADFOR = .TRUE. IF (M(1) .NE. LUD) BADDAT = .TRUE. L3 = 3 NOUD = .FALSE. DO 2835 L = 2,8 2835 M(L) = M(L+1) GO TO 2811 2836 IF (M(1).NE.LZ .AND. M(1).NE.KK) BADDAT = .TRUE. 2838 L9 = (L6*(L6+1))/2 LB = LB + 1 IF (M(1) .EQ.LZ) KZFLAG = 1 IF (M(1) .EQ.KK) KZFLAG = 2 I(LB) = KZFLAG 2840 L0 = L0 + 1 L8 = 0 IF (MF(1) .NE. 3) BADFOR = .TRUE. L3 = 2 DO 2843 L = 2,8 2843 M(L) = M(L+1) GO TO 2846 2844 L3 = 1 LB = 0 2846 DO 2848 L = L3,8 IF (MF(L).NE.2 .AND. MF(L).NE.0) BADFOR = .TRUE. 2848 CONTINUE N = LB L5 = L9 - L8 + L3 - 1 IF (L5 .LE. 8) GO TO 2850 L5 = 8 2850 DO 2852 L = L3,L5 N = N + 1 2852 I(N) = M(L) L5 = L9 - L8 + L3 L8 = L8 + N - LB IF (L9 .GT. L8) GO TO 2864 IF (L9 .EQ. L8) GO TO 2855 DO 2854 L = L5,8 IF (M(L) .NE. 0) BADDAT = .TRUE. 2854 CONTINUE 2855 IF (L0 .EQ. 8) GO TO 2856 L0 = L0 + 1 GO TO 2864 2856 L0 = 1 GO TO 2864 2858 IF (M(1) .NE. LS) BADDAT = .TRUE. L9 = L6*L7 LB = 1 I(1) = L7 NOS = .FALSE. GO TO 2840 2864 DO 2866 L = 1,8 2866 M(L) = 0 KN = 1 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 KN = 0 IF (ID .LE. LA1) GO TO 2868 LA1 = ID IF (.NOT.NOUD .AND. L7.NE.6 .AND. NOS .AND. KZFLAG.EQ.1) 1 GO TO 2868 IF (L7.EQ.0 .AND. .NOT. NOS) GO TO 2868 L7 = 0 IF (L0.EQ.1 .AND. .NOT.NOUD) GO TO 9 N = N + 1 I(N) = 0 L0 = 1 GO TO 9 2868 BADDAT = .TRUE. L0 = 1 L7 = 0 LA1= ID GO TO 9 C C****** 345-STREAML1 ************************************** C 2920 IF (KM .EQ. 1) GO TO 2921 KM = 1 IF (MF(1).NE.1) BADFOR = .TRUE. IF (M(1) .LE.0) BADDAT = .TRUE. IF (M(1) .LE.0) BADDAT = .TRUE. I(1) = M(1) N = 1 IF (MF(3).EQ.3 .AND. M(3).EQ.THRU) GO TO 2928 L1 = 2 GO TO 2922 2921 L1 = 1 2922 DO 2923 L = L1,8 IF (MF(L).NE.0 .AND. MF(L).NE.1) BADFOR = .TRUE. 2923 CONTINUE DO 2926 L = L1,8 IF (M(L)) 2925,2926,2924 2924 N = N + 1 I(N) = M(L) GO TO 2926 2925 BADDAT = .TRUE. 2926 CONTINUE IF (N.LT.L1) BADDAT = .TRUE. KN = 1 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 2927 KM = 0 N = N + 1 I(N) = -1 KN = 0 GO TO 9 2928 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 2929 KN = 1 BADFOR = .TRUE. GO TO 9 2929 IF (MF(2).NE.1 .OR. MF(4).NE.1) BADFOR = .TRUE. IF (M(2).LE.0 .OR. M(5).LE.0 .OR. (M(2).GT.M(5))) BADDAT = .TRUE. IF (BADFOR .OR. BADDAT) GO TO 2927 CALL WRITE (204,I,N,0) L1 = M(2) L2 = M(5) DO 2930 L = L1,L2 2930 CALL WRITE (204,L,1,0) N = 0 GO TO 2927 C C****** 346-STREAML2 ************************************** C C THEORY DEPENDENT RESTRICTION - (3.GE. NSTNS .LE.10) C 3010 IF (M(1) .LE. 0) GO TO 8 IF (M(2).LT.3 .OR. M(2).GT.10) GO TO 8 IF (RM(4) .LE. 0.0) GO TO 8 DO 3012 L = 6,9 IF (RM(L) .LE. 0.0) GO TO 8 3012 CONTINUE IF (RM( 3).LE.-90.0 .OR. RM( 3).GE.90.0) GO TO 8 IF (RM(10).LE.-90.0 .OR. RM(10).GE.90.0) GO TO 8 N = 10 GO TO 3 C C****** 82-PARAM *********************************** C 3960 IF (MF(1).NE.3 .OR. MF(2).LE.0 .OR. MF(3).NE.0 .AND. 1 MF(3).NE.MF(2)) GO TO 3968 IF (MF(3).NE.0 .AND. MF(3).NE.2 .AND. MF(3).NE.4) GO TO 3968 DO 3961 L = 4,8 IF (MF(L) .NE. 0) GO TO 3968 3961 CONTINUE IF (NPARAM+7 .LE. NOPEN) GO TO 3964 CALL PAGE2 (2) WRITE (NOUT,3962) SFM 3962 FORMAT (A25,' 330, NO ROOM IN CORE FOR PARAM CARDS.') 3963 ABORT = .TRUE. GO TO 2 3964 IP = 2*NBUF + NPARAM IBUFF(IP+1) = M(1) IBUFF(IP+2) = M(2) IBUFF(IP+3) = MF(2) IBUFF(IP+4) = M(3) NPARAM = NPARAM + 4 IF (MF(2).LE.2 .AND. MF(3).EQ.0) GO TO 2 IBUFF(IP+5) = M(4) NPARAM = NPARAM + 1 IF (MF(2).LE.4 .AND. MF(3).EQ.0) GO TO 2 IF (MF(3) .EQ. 4) GO TO 3965 IBUFF(IP+3) = 5 GO TO 2 3965 IBUFF(IP+3) = 6 IBUFF(IP+6) = M(5) IBUFF(IP+7) = M(6) NPARAM = NPARAM + 2 GO TO 2 3968 WRITE (NOUT,3969) UFM,M(1),M(2),KNT 3969 FORMAT (A23,' 331, IMPROPER PARAM CARD ',2A4,10X, 1 'SORTED CARD COUNT =',I7) CALL PAGE2 (2) GO TO 3963 C C******* 12-SPC1(3980), 92-OMIT1(3981), 216-ASET1(3981) *********** C 332-CFLSTR(3980) C 3980 IZ = 2 IFILE = 210 IF (K .EQ. 332) IFILE = 208 GO TO 3983 3981 IZ = 1 IFILE = 210 3983 IF (KM .NE. 0) GO TO 3990 KM = 1 IF (MF(IZ).NE.0 .AND. MF(IZ).NE.1) BADFOR = .TRUE. IF (K .EQ. 332) GO TO 3984 IF (IFPDCO(M(IZ))) BADDAT = .TRUE. IF (IZ .NE. 2) GO TO 3986 3984 IF (MF(1) .NE. 1) BADFOR = .TRUE. IF (M(1) .LE. 0) BADDAT = .TRUE. 3986 ID = M(1) I(1) = M(1) IF (IZ .EQ. 2) I(2) = M(2) N = IZ L1 = IZ + 1 IF (MF(IZ+2).EQ.3 .AND. M(IZ+2).EQ.THRU) GO TO 4000 GO TO 3991 3990 L1 = 1 3991 DO 3992 L = L1,8 IF (MF(L).NE.0 .AND. MF(L).NE.1) BADFOR = .TRUE. 3992 CONTINUE DO 3993 L = L1,8 IF (MF(L) .EQ. 1) GO TO 3994 3993 CONTINUE BADDAT = .TRUE. 3994 DO 3998 L = L1,8 IF (M(L)) 3996,3998,3995 3995 N = N + 1 I(N) = M(L) GO TO 3998 3996 BADDAT = .TRUE. 3998 CONTINUE KN = 1 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 3999 KM = 0 N = N + 1 I(N) =-1 KN = 0 GO TO 9 4000 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 4001 KN = 1 BADFOR = .TRUE. GO TO 9 4001 IF (MF(IZ+1).NE.1 .OR. MF(IZ+3).NE.1) BADFOR = .TRUE. IF (M(IZ+1).LE.0 .OR. M(IZ+4).LE.M(IZ+1)) BADDAT = .TRUE. DO 4002 L = IZ,4 IF (MF(L+4) .NE. 0) BADFOR = .TRUE. 4002 CONTINUE IF (BADFOR .OR. BADDAT) GO TO 3999 CALL WRITE (IFILE,M,IZ,0) L1 = M(IZ+1) L2 = M(IZ+4) L = L1 4010 CALL WRITE (IFILE,L,1,0) L = L + 1 IF (L .LE. L2) GO TO 4010 N = 0 GO TO 3999 C C****** 13-SPCADD, 83-MPCADD ********************************** C 4020 IF (KM .EQ. 1) GO TO 4990 KM = 1 IF (M(1) .LE. 0) BADDAT = .TRUE. ID = M(1) I(1) = ID IF (M(2).LE.0 .OR. M(3).LT.0) BADDAT = .TRUE. IF (M(3) .EQ. 0) CALL PAGE2 (2) IF (M(3) .EQ. 0) WRITE (NOUT,4024) UWM 4024 FORMAT (A25,' 4124, THE SPCADD OR MPCADD UNION CONSISTS OF A ', 1 'SINGLE SET.') N = 1 GO TO 4992 C C****** 84-LOAD, 123-DLOAD ******************************* C 4060 IF (KM .EQ. 1) GO TO 4068 KM = 1 IF (MF(1).NE.0 .AND. MF(1).NE.1 .OR. MF(2).NE.0 .AND. MF(2).NE.2) 1 BADFOR = .TRUE. IF (M(1) .LE. 0) BADDAT = .TRUE. ID = M(1) I(1) = ID I(2) = M(2) IF (M(4) .LE. 0) BADDAT = .TRUE. N = 2 GO TO 4070 4068 N = 0 4070 L8 = N + 1 DO 4074 L = L8,7,2 IF (MF(L ).NE.0 .AND. MF(L).NE.2 .OR. MF(L+1).NE.0 .AND. 1 MF(L+1).NE.1) BADFOR = .TRUE. 4074 CONTINUE 4076 N = N + 2 IF (M(N)) 4078,4080,4084 4078 BADDAT = .TRUE. 4080 N = N - 2 L7 = 1 L8 = N + 1 DO 4082 L = L8,8 IF (MF(L) .NE. 0) BADDAT = .TRUE. 4082 CONTINUE IF (N .LE. 0) BADDAT = .TRUE. GO TO 4086 4084 I(N-1) = M(N-1) I(N ) = M(N ) IF (N .LT. 8) GO TO 4076 4086 KN = 1 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4088 KM = 0 N = N + 2 I(N-1) =-1 I(N ) =-1 KN = 0 GO TO 4090 4088 IF (L7 .NE. 1) GO TO 9 BADDAT = .TRUE. 4090 L7 = 0 GO TO 9 C C ****************************************************************** C 21 IF (.NOT.IAX) GO TO 22 IF (IH.GT.NN .OR. IH.LT.0) GO TO 25 GO TO 24 22 IF (LH) WRITE (NOUT,23) UFM 23 FORMAT (A23,' 332, AXIC CARD REQUIRED.') IF (LH) CALL PAGE2 (2) LH = .FALSE. ABORT = .TRUE. 24 GO TO R, (1489,1507,1521,1451,1461,1471,1497,2031,2041,2172,3,2) 25 GO TO R1, (8) C C***** TEMPORARY UNFIX FOR SPCADD AND MPCADD *************************** C 4990 N = 0 4992 DO 4994 L = 1,8 IF (MF(L).NE.0 .AND. MF(L).NE.1) BADFOR = .TRUE. 4994 CONTINUE 4995 N = N + 1 IF (M(N)) 4996,4998,5002 4996 BADDAT = .TRUE. 4998 N = N - 1 L7 = 1 L8 = N + 1 DO 5000 L = L8,8 IF (MF(L) .NE. 0) BADDAT = .TRUE. 5000 CONTINUE IF (N .LE. 0) BADDAT = .TRUE. GO TO 5004 5002 I(N) = M(N) IF (N .LT. 8) GO TO 4995 5004 KN = 1 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 5006 KM = 0 N = N + 1 I(N) =-1 KN = 0 GO TO 5008 5006 IF (L7 .NE. 1) GO TO 9 BADDAT = .TRUE. 5008 L7 = 0 GO TO 9 C C****** 329-PROLATE ******************************************** C 5100 IF (KM .NE. 0) GO TO 5115 IF (PROL) BADDAT = .TRUE. PROL = .TRUE. KM = 1 IF (MF(1).NE.2 .OR. MF(2).NE.2) BADFOR = .TRUE. IF (RM(1) .LE. RM(2)) BADDAT = .TRUE. DO 5105 L = 3,6 IF (MF(L) .NE. 1) BADFOR = .TRUE. IF (M(L) .LT. 0) BADDAT = .TRUE. 5105 CONTINUE IF (M(3) .LT. 2) BADDAT = .TRUE. IF (M(4) .LT. 2) BADDAT = .TRUE. IF (M(5) .GT. 30) BADDAT = .TRUE. IF (M(6) .GT. M(5)) M(6) = M(5) ID = M(1) NSEGS = M(3) MSEGS = M(4) ITOT1 = (NSEGS-1)*(MSEGS+1) + 2 ITOT2 = (NSEGS-1)*MSEGS + 2 DO 5110 L = 1,6 5110 I(L) = M(L) N = 6 L1 = 7 ITEMS = 0 GO TO 5120 5115 L1 = 1 5120 DO 5130 L = L1,8 IF (MF(L).NE.1 .AND. MF(L).NE.3) BADFOR = .TRUE. IF (MF(L) .EQ. 3) GO TO 5140 ITEMS = ITEMS + 1 IF (M(L) .LE. 0) BADDAT = .TRUE. N = N + 1 I(N) = M(L) 5130 CONTINUE KN = 1 5135 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 BADDAT = .TRUE. GO TO 5150 5140 IF (M(L) .NE. ENDT) GO TO 5145 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADDAT = .TRUE. GO TO 5150 5145 BADDAT = .TRUE. GO TO 5135 5150 KM = 0 KN = 0 IF (K .EQ. 330) GO TO 9 IF (ITEMS.NE.ITOT1 .AND. ITEMS.NE.ITOT2) BADDAT = .TRUE. GO TO 9 C C****** 330-PERMBDY ***************************************** C 5200 IF (KM .NE. 0) GO TO 5210 IF (PERM) BADDAT = .TRUE. PERM = .TRUE. KM = 1 5210 DO 5220 L = 1,8 IF (MF(L).NE.1 .AND. MF(L).NE.3) BADFOR = .TRUE. IF (MF(L) .EQ. 3) GO TO 5140 IF (M(L) .LE. 0) BADDAT = .TRUE. N = N + 1 I(N) = M(L) 5220 CONTINUE KN = 1 GO TO 5135 C 2 RETURN END ================================================ FILE: mis/ifs4p.f ================================================ SUBROUTINE IFS4P (*,*,*) C LOGICAL ABORT,BADDAT,BADFOR,LHARM,LFLSYM,FPHYS1,IFPDCO INTEGER T1,T4,THRU,SAVE(24),NM(2),TY1,TY2, 1 RET,BCDYES,BCDNO,BCDS,BCDA,BCDNON,BCDAXI REAL Z(100) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /MACHIN/ MACH COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ NBUF,NOUT,ABORT COMMON /IFPX1 / NCDS,T1(2,310) COMMON /IFPX3 / T4(2,314) COMMON /IFPDTA/ ID,N,K,KX,KY,I(100),M(100),MF(100),M1(100), 1 M1F(100),KN,BADDAT,BADFOR,NOPEN,NPARAM,IAX,NAX, 2 IAXF,NAXF,LHARM,KNT,SLOTDF(5),GC(7),LL(6) COMMON /CIFS4P/ J(20),KM,LFLSYM,FPHYS1 EQUIVALENCE (Z(1),M(1)),(KOUT,J(2)) DATA THRU , BCDYES,BCDNO /4HTHRU,4HYES ,4HNO / DATA BCDS , BCDA,BCDNON /4HS ,4HA ,4HNONE/ DATA BCDAXI/ 4HAXIS/ C IF (K .GT. 100) GO TO 81 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 3 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 4 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 7 5, 5, 5, 5, 5, 5, 5, 5, 790, 800, 8 5, 5, 5, 5, 5, 5, 5, 5, 5, 900, 9 900, 5, 5, 5, 5, 5, 5, 980, 5, 5 ), K 81 IF (KX .GT. 100) GO TO 82 GO TO ( 5,1020, 5,1040,1050, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 2 5,1220, 5,1050, 5, 5, 5, 5, 5, 5, 3 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 4 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 7 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8 5, 5, 5, 5, 5, 5, 5, 5,1020, 5, 9 5, 5, 5, 5,1950,1960, 5, 5,1990, 5 ), KX 82 IF (KY .GT. 100) GO TO 83 GO TO ( 2100,2200,2300,2400,3100,3200,3300,3400,3500,3600, 1 3700,3800,3900,4000, 5, 5,4100,4200,4300,4400, 2 4500,4600, 5, 5, 5, 5, 5, 5, 5, 5, 3 5, 5, 5, 5, 5, 5, 5, 5,1990, 5, 4 5,1990, 5, 5, 5, 5, 5, 5, 5, 5, 5 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 7 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 9 5, 5, 5, 5,6501,6601, 5, 5, 5, 5 ), KY 83 KZ = K - 300 IF (KZ .GT. 39) GO TO 5 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 2 8000,9000,9100,9200,9300,9000,9400,9500, 5, 5, 3 5, 5,4300,4400,4100,4200, 5, 5, 5 ), KZ 5 CALL PAGE2 (2) WRITE (NOUT,6) SFM 6 FORMAT (A25,' 322, ILLEGAL ENTRY TO IFS4P.') ABORT =.TRUE. RETURN 1 7 BADFOR =.TRUE. RETURN 1 8 BADDAT =.TRUE. RETURN 1 3 DO 4 L = 1,N 4 I(L) = M(L) 2 RETURN 9 RETURN 3 C C****** 79-CTRIARG,80-CTRAPRG **************** C 790 I1 = 4 GO TO 791 800 I1 = 5 791 IF (M(1).LE.0 .OR. M(I1+2).LE.0) GO TO 8 DO 793 L = 2,I1 IF (M(L) .LE. 0) GO TO 8 IF (L .EQ. 2) GO TO 793 DO 792 L1 = L,I1 IF (M(L-1) .EQ. M(L1)) GO TO 8 792 CONTINUE 793 CONTINUE N = I1 + 2 GO TO 3 C C******* MATS1,MATT1 ************************************** C 900 DO 902 L = 1,11 IF (M(L) .LT. 0) GO TO 8 902 I(L) = M(L) N = 11 GO TO 2 C C******* TEMPD ************************************** C 980 DO 986 L = 1,7,2 IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 986 IF (M(L) .LE. 0) GO TO 8 N = N + 2 I(N-1) = M(L ) I(N ) = M(L+1) IF (N .LE. 2) GO TO 986 DO 987 L1 = 4,N,2 IF (I(N-1) .EQ. I(L1-3)) GO TO 8 987 CONTINUE 986 CONTINUE IF (N) 8,8,2 C C************** MATT2,189-MATT3 ********************************* C 1020 DO 1022 L = 1,16 IF (M(L) .LT. 0) GO TO 8 1022 I(L) = M(L) IF (M(1) .EQ. 0) GO TO 8 N = 16 GO TO 2 C C****** 104-CTORDRG ************************ C 1040 IF (M(1).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0 .OR. M(3).EQ.M(4) .OR. 1 Z(5).LT.0.0 .OR. Z(5).GT.180.0 .OR. Z(6).LT.0.0 .OR. 2 Z(6).GT.180.0) GO TO 8 IF (MF(2) .EQ. 0) M(2) = M(1) IF (M(2) .LE. 0) GO TO 8 N = 7 GO TO 3 C C******* SPOINT,124-EPOINT ************************************ C 1050 IF (MF(2) .EQ. 3) GO TO 1056 DO 1055 L = 1,8 IF (MF(L).NE.1 .AND. MF(L).NE.0) GO TO 7 IF (M(L)) 8,1055,1052 1052 IF (M(L) .GT. 999999) GO TO 8 N = N + 1 I(N) = M(L) IF (N .LE. 1) GO TO 1055 DO 1054 L1 = 2,N IF (I(N) .EQ. I(L1-1)) GO TO 8 1054 CONTINUE 1055 CONTINUE IF (N) 8,8,2 1056 IF (M(2) .NE. THRU) GO TO 8 IF (MF(1).NE.1 .OR. MF(3).NE.1) GO TO 7 K2078 = 208 IF (K .EQ. 124) K2078 = 207 L1 = 1 L2 = 4 DO 1058 L = L2,8 IF (MF(L) .NE. 0) GO TO 7 1058 CONTINUE IF (M(L2) .GT. 9999999) GO TO 8 II = M(L1) - 1 L2 = M(L2) - M(L1) IF (II.LT.0 .OR. L2.LE.0) GO TO 8 L1 = 1 DO 1059 L = 1,L2 II = II + 1 CALL WRITE (K2078,II,1,0) 1059 CONTINUE I(1) = II + 1 N = 1 GO TO 2 C C******* 122-MAT3 ***************************** C 1220 IF (M(1).LE.0 .OR. Z(2).LT.0. .OR. Z(3).LT.0. .OR. Z(4).LT.0. .OR. 1 Z(9).LT.0. .OR. Z(10).LT.0. .OR. Z(11).LT.0.) GO TO 8 IF (ABS(Z(5)).LE.1. .AND. ABS(Z(6)).LE.1. .AND. ABS(Z(7)).LE.1.) 1 GO TO 1222 CALL PAGE2 (2) WRITE (NOUT,1221) UWM,T1(1,K),T1(2,K),KNT 1221 FORMAT (A25,' 301, BULK DATA CARD ',2A4,' CONTAINS INCONSISTENT', 1 ' DATA.',10X,'SORTED CARD COUNT =',I7) 1222 N = 16 GO TO 3 C C C******* 195-RANDPS **************************************** C 1950 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.M(2) .OR. M(6).LT.0) 1 GO TO 8 IF (M(2).EQ.M(3) .AND. Z(5).NE.0.0) GO TO 8 N = 6 IF (KOUT .LE. 2) GO TO 1955 IF (M(1) .EQ. J(KOUT)) GO TO 3 IF (KOUT .EQ. J( 1)) GO TO 8 1955 KOUT = KOUT + 1 J(KOUT) = M(1) GO TO 3 C C******* 196-RANDT1 **************************************** C 1960 IF (KOUT .LE. 2) GO TO 8 DO 1961 IN = 3,KOUT IF (M(1) .EQ. J(IN)) GO TO 1962 1961 CONTINUE GO TO 8 1962 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. Z(3).LT.0.0 .OR. Z(4).LE.Z(3)) 1 GO TO 8 N = 4 GO TO 3 C C***** 199-PLOAD2,239-QBDY1,242-QVOL ************************* C 1990 IF (KM .NE. 0) GO TO 1991 IF (MF(1).NE.1 .OR. MF(2).NE.2 .AND. MF(2).NE.0) GO TO 7 IF (M(1) .LE. 0) GO TO 8 L = 3 ISID = M(1) IQVL = M(2) GO TO 1992 1991 L = 1 1992 IF (MF(8) .EQ. 3) GO TO 7 NTOT = 0 K2078 = 209 1993 IF (M(L) .EQ. 0) GO TO 1998 IF (M(L) .LT. 0) GO TO 8 IF (MF(L) .EQ. 3) GO TO 7 IF (MF(L+1).EQ.3) GO TO 1995 IF (MF(L).NE.1 .AND. MF(L).NE.0) GO TO 7 N = N + 3 I(N-2) = ISID I(N-1) = IQVL I(N) = M(L) L = L + 1 IF (N .LT. 48) GO TO 1997 CALL WRITE (K2078,I,N,0) NTOT = NTOT + N N = 0 GO TO 1997 1995 IF (M(L+1) .NE. THRU) GO TO 8 IF (MF(L+3).NE.1 .AND. MF(L+3).NE.0) GO TO 7 L1 = M(L ) - 1 L2 = M(L+3) - L1 IF (L2.LE.1 .OR. L1.LT.0) GO TO 8 DO 1996 II = 1,L2 N = N + 3 I(N-2) = ISID I(N-1) = IQVL I(N) = II + L1 IF (N .LT. 48) GO TO 1996 CALL WRITE (K2078,I,N,0) NTOT = NTOT + N N = 0 1996 CONTINUE L = L + 4 1997 IF (L .LE. 8) GO TO 1993 1998 T4(2,K) = T4(2,K) + NTOT IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1999 KM = 0 GO TO 2 1999 KM = 1 GO TO 2 C C********** 201-TEMPP1 ******************************* C 2100 IF (KM .NE. 0) GO TO 2120 NN = 6 N = 6 ID = M(1) IF (MF(5) .EQ. -32767) GO TO 2106 IF (MF(7).NE.0 .OR. MF(8).NE.0) BADFOR =.TRUE. 2101 DO 2102 L = 3,6 IF (MF(L).EQ.0 .OR. MF(L).EQ.2) GO TO 2102 BADFOR =.TRUE. 2102 CONTINUE 2103 CONTINUE IF (MF(1).NE.1 .OR. MF(2).NE.1) BADFOR =.TRUE. IF (M(1).LE.0 .OR. M(2).LE.0) BADDAT =.TRUE. DO 2105 L = 1,N I(L) = M(L) 2105 SAVE(L) = M(L) GO TO 2110 2106 DO 2107 L = 3,4 IF (MF(L).EQ.0 .OR. MF(L).EQ.2) GO TO 2107 BADFOR =.TRUE. 2107 CONTINUE GO TO 2103 2110 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2115 KM = 0 KN = 0 GO TO 9 2115 KN = 1 KM = KM + 1 GO TO 9 2120 IF (MF(2).EQ.3 .OR. MF(5).EQ.3) GO TO 2150 N = 0 DO 2140 L = 1,8 IF (MF(L) .EQ. 0) GO TO 2140 IF (MF(L) .EQ. 1) GO TO 2125 IF (MF(L) .EQ.-32767) GO TO 2145 BADFOR =.TRUE. GO TO 2140 2125 IF (M(L) .GT. 0) GO TO 2130 BADDAT =.TRUE. GO TO 2140 2130 SAVE(2) = M(L) CALL WRITE (209,SAVE,NN,0) 2140 CONTINUE 2145 CONTINUE GO TO 2110 2150 N = 0 IF (MF(7).EQ.0 .AND. MF(8).EQ.0) GO TO 2155 IF (MF(4).EQ.0 .AND. MF(5).EQ.-32767) GO TO 2155 BADFOR =.TRUE. GO TO 2110 2155 L1 =-1 DO 2180 L = 1,4,3 IF (MF(L).EQ.0 .AND. MF(L+1).EQ.0 .AND. MF(L+2).EQ.0) GO TO 2180 IF (MF(L).EQ.1 .AND. MF(L+1).EQ.3 .AND. MF(L+2).EQ.1) GO TO 2160 IF (MF(L+1) .EQ. -32767) GO TO 2185 BADFOR =.TRUE. GO TO 2180 2160 L1 = L1 + 1 L2 = L1 + L IF (M(L2).GT.0 .AND. M(L2+1).EQ.THRU .AND. M(L2+3).GT.M(L2)) 1 GO TO 2165 BADDAT =.TRUE. GO TO 2180 2165 L3 = M(L2 ) L4 = M(L2+3) DO 2170 L5 = L3,L4 SAVE(2) = L5 CALL WRITE (209,SAVE,NN,0) 2170 CONTINUE 2180 CONTINUE 2185 CONTINUE GO TO 2110 C C******* 202-TEMPP2 ************************************** C 2200 IF (KM .NE. 0) GO TO 2120 NN = 8 N = 8 ID = M(1) IF (MF(5) .EQ. -32767) GO TO 2106 IF (MF(7).NE.0 .AND. MF(7).NE.2 .OR. 1 MF(8).NE.0 .AND. MF(8).NE.2) BADFOR =.TRUE. GO TO 2101 C C******* 203-TEMPP3 ************************************** C 2300 IF (KM .NE. 0) GO TO 2330 NN = 24 N = 0 ID = M(1) L1 = 1 IF (MF(1).NE.1 .OR. MF(2).NE.1) BADFOR =.TRUE. DO 2305 L = 3,8 IF (MF(L).EQ.0 .OR. MF(L).EQ.2) GO TO 2305 IF (MF(L) .EQ. -32767) GO TO 2302 BADFOR =.TRUE. GO TO 2305 2302 DO 2303 L5 = L,8 M(L5) = 0 2303 CONTINUE MF(7) = 0 MF(8) = 0 2305 CONTINUE IF (M(1).LE.0 .OR. M(2).LE.0) BADDAT =.TRUE. IF (Z(3) .GE. Z(5)) BADDAT =.TRUE. ZZ = Z(5) IF (MF(7).EQ.0 .AND. MF(8).EQ.0) GO TO 2310 IF (ZZ .GE. Z(7)) BADDAT =.TRUE. 2310 ZZ = Z(7) DO 2320 L = 1,8 I(L) = M(L) 2320 SAVE(L) = M(L) 2321 L1 = L1 + 8 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2328 KM = 0 KN = 0 2322 IF (L1 .GT. NN) GO TO 2326 DO 2325 L = L1,NN I(L) = 0 2325 SAVE(L) = 0 2326 N = NN GO TO 9 2328 KM = KM + 1 KN = 1 IF (KM-3) 9,2322,2322 2330 IF (KM .GT. 2) GO TO 2120 N = 0 L3 = 8*KM DO 2350 L = 1,7,2 IF (MF(L).EQ.0 .AND. MF(L+1).EQ.0) GO TO 2340 IF (MF(L) .NE. -32767) GO TO 2335 MF(7) = 0 MF(8) = 0 GO TO 2340 2335 CONTINUE IF (MF(L ).NE.0 .AND. MF(L ).NE.2 .OR. 1 MF(L+1).NE.0 .AND. MF(L+1).NE.2) BADFOR =.TRUE. IF (ZZ .GE. Z(L)) BADDAT =.TRUE. 2340 ZZ = Z(L) L5 = L3 + L I(L5) = M(L) SAVE(L5) = M(L) I(L5+1) = M(L+1) SAVE(L5+1) = M(L+1) 2350 CONTINUE GO TO 2321 C C******* 204-TEMPRB ************************************** C 2400 IF (KM .NE. 0) GO TO 2430 NN = 16 N = 0 ID = M(1) L1 = 1 IF (MF(1).NE.1 .OR. MF(2).NE.1) BADFOR =.TRUE. DO 2405 L = 3,8 IF (MF(L).EQ.0 .OR. MF(L).EQ.2) GO TO 2405 IF (MF(L) .EQ. -32767) GO TO 2402 BADFOR =.TRUE. GO TO 2405 2402 DO 2403 L5 = L,8 M(L5) = 0 2403 CONTINUE 2405 CONTINUE IF (M(1).LE.0 .OR. M(2).LE.0) BADDAT =.TRUE. DO 2420 L = 1,8 I(L) = M(L) 2420 SAVE(L) = M(L) 2421 L1 = L1 + 8 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2428 KM = 0 KN = 0 2422 IF (L1 .GT. NN) GO TO 2426 DO 2425 L = L1,NN I(L) = 0 2425 SAVE(L) = 0 2426 N = NN GO TO 9 2428 KM = KM + 1 KN = 1 IF (KM-2) 9,2422,2422 2430 IF (KM .GT. 1) GO TO 2120 N = 0 DO 2450 L = 1,8 IF (MF(L) .EQ. -32767) GO TO 2455 IF (MF(L).NE.0 .AND. MF(L).NE.2) BADFOR =.TRUE. I(L+8) = M(L) SAVE(L+8) = M(L) 2450 CONTINUE GO TO 2421 2455 DO 2460 L = 5,8 I(L+8) = 0 SAVE(L+8) = 0 2460 CONTINUE GO TO 2421 C C TEMPG IS MODELLED AFTER TEMPP3 C TEMPP4 IS MODELLED AFTER TEMPP1,EXCEPT THAT TEMPP1 HAS ONE LESS C C C C******* 295-TEMPG ******************************************** C 6501 CONTINUE GO TO 2300 C C******* 296-TEMPP4 ******************************************** C 6601 CONTINUE IF (KM .NE. 0) GO TO 6630 NN = 14 N = 0 ID = M(1) L1 = 1 IF (MF(1).NE.1 .OR. MF(2).NE.1) BADFOR =.TRUE. DO 6605 L = 3,8 IF (MF(L).EQ.0 .OR. MF(L).EQ.2) GO TO 6605 IF (MF(L) .EQ. -32767) GO TO 6602 BADFOR =.TRUE. GO TO 6605 6602 DO 6603 L5 = L,8 M(L5) = 0 6603 CONTINUE 6605 CONTINUE IF (M(1).LE.0 .OR. M(2).LE.0) BADDAT =.TRUE. DO 6620 L = 1,8 I(L) = M(L) 6620 SAVE(L) = M(L) 6621 L1 = L1 + 8 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 6628 KM = 0 KN = 0 6622 IF (L1 .GT. NN) GO TO 6626 DO 6625 L = L1,NN I(L) = 0 6625 SAVE(L) = 0 6626 N = NN GO TO 9 6628 KM = KM + 1 KN = 1 IF (KM-2) 9,6622,6622 6630 IF (KM .GT. 1) GO TO 2120 N = 0 L3 = 8*KM IF (MF(7).NE.0 .AND. MF(8).NE.0) BADFOR =.TRUE. DO 6640 L = 1,6 IF (MF(L).EQ.0 .OR. MF(L).EQ.2) GO TO 6640 IF (MF(L) .EQ. -32767) GO TO 6632 BADFOR =.TRUE. GO TO 6640 6632 DO 6633 L6 = L,6 M(L6) = 0 6633 CONTINUE 6640 CONTINUE DO 6650 L = 1,6 L5 = L3 + L I(L5) = M(L) SAVE(L5) = M(L) 6650 CONTINUE GO TO 6621 C C******* 205-GRIDB ************************************** C 3100 ASSIGN 3105 TO RET GO TO 3890 3105 IF (M(1).LE.0 .OR. M(6).LT.0 .OR. M(8).LE.0) GO TO 8 IF (IFPDCO(M(7))) GO TO 8 N = 5 I(1) = M(1) I(2) = M(4) I(3) = M(6) I(4) = M(7) I(5) = M(8) GO TO 2 C C******* 206-FSLIST ************************************** C 3200 IF (KM .NE. 0) GO TO 3270 ASSIGN 3205 TO RET GO TO 3890 3205 IF (MF(1).EQ.0 .OR. MF(1).EQ.2) GO TO 3207 3206 BADFOR =.TRUE. GO TO 3250 3207 IF (MF(1).EQ.0 .OR. (MF(1).EQ.2 .AND. Z(1).GT.0.0)) GO TO 3209 3208 BADDAT =.TRUE. GO TO 3250 3209 IF (MF(1) .EQ. 0) M(1) = 1 I(1) = M(1) N = 1 L1 = 2 L2 = 0 IF (MF(2) .NE. 3) GO TO 3220 IF (M(2) .NE. BCDAXI) GO TO 3208 N = N + 1 I(N) = 0 L1 = L1 + 1 L2 = 1 3220 DO 3225 L = L1,8 L3 = L + L2 IF (MF(L) .EQ. 3) GO TO 3230 IF (MF(L) .EQ. 0) GO TO 3235 IF (MF(L) .NE. 1) GO TO 3206 IF (M(L3) .LE. 0) GO TO 3208 N = N + 1 I(N) = M(L3) 3225 CONTINUE 3227 IF (N) 3208,3208,3250 3230 IF (M(L3) .NE. BCDAXI) GO TO 3208 N = N + 1 I(N) = 0 3235 IF (L .EQ. 8) GO TO 3245 L = L + 1 DO 3240 L2 = L,8 IF (MF(L2) .NE. 0) GO TO 3206 3240 CONTINUE 3245 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 3208 GO TO 3227 3250 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 3255 KM = 0 KN = 0 N = N + 1 I(N) =-1 GO TO 9 3255 KN = 1 KM = KM + 1 GO TO 9 3270 L1 = 1 L2 = 0 GO TO 3220 C C******* 207-RINGFL ************************************** C 3300 ASSIGN 3310 TO RET GO TO 3890 3310 DO 3350 L = 1,5,4 IF (M(L).EQ.0.AND.M(L+1).EQ.0.AND.M(L+2).EQ.0.AND.M(L+3).EQ.0) 1 GO TO 3350 IF (M(L).LE.0 .OR. Z(L+1).LE.0.0) GO TO 8 N = N + 4 IF (N.GT.4 .AND. M(L).EQ.M(L-4)) GO TO 8 IF (M(L) .LE. 99999) GO TO 3320 CALL PAGE2 (2) WRITE (NOUT,3512) UFM GO TO 8 3320 I(N-3) = M(L ) I(N-2) = M(L+1) I(N-1) = M(L+2) I(N ) = M(L+3) 3350 CONTINUE IF (N) 8,8,2 C C******* 208-PRESPT ************************************** C 3400 ASSIGN 3410 TO RET GO TO 3890 3410 IF (M(1).LE.0) GO TO 8 DO 3450 L = 3,7,2 IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 3450 IF (M(L) .LE. 0) GO TO 8 N = N + 3 I(N-2) = M(1) I(N-1) = M(L) I(N ) = M(L+1) 3450 CONTINUE IF (N) 8,8,2 C C******* 209-CFLUID2 ************************************** C 3500 KFL = 2 3505 ASSIGN 3510 TO RET GO TO 3890 3510 IF (M(1) .LE. 0) GO TO 8 IF (M(1) .LE. 99999) GO TO 3513 CALL PAGE2 (2) WRITE (NOUT,3512) UFM 3512 FORMAT (A23,' 5004, FLUID POINT ID ON CFLUID OR RINGFL CARD ', 1 'EXCEEDS 999999 LIMIT') GO TO 8 3513 DO 3520 L = 2,KFL IF (M(L) .LE. 0) GO TO 8 IF (L .EQ. KFL) GO TO 3520 L2 = L + 1 DO 3515 L1 = L2,KFL IF (M(L) .EQ. M(L1)) GO TO 8 3515 CONTINUE 3520 CONTINUE I(1) = M(1) N = KFL + 3 IF (MF(6) .EQ. 0) M(6) = 1 IF (MF(7) .EQ. 0) M(7) = 1 I(KFL+2) = M(6) I(KFL+3) = M(7) DO 3530 L = 1,KFL 3530 I(L+1) = M(L+1) GO TO 2 C C******* 210-CFLUID3 ************************************** C 3600 KFL = 3 GO TO 3505 C C******* 211-CFLUID4 ************************************** C 3700 KFL = 4 GO TO 3505 C C******* 212-AXIF ************************************** C 3800 N = 0 IF (KM .NE. 0) GO TO 3850 IF (IAXF .GT. 0) GO TO 3840 IAXF = IAXF + 1 IF (MF(1).NE.1 .OR. MF(2).NE.0 .AND. MF(2).NE.2 .OR. MF(3).NE.0 1 .AND. MF(3).NE.2 .OR. MF(4).NE.0 .AND. MF(4).NE.2 .OR. 2 MF(5).NE.3) BADFOR =.TRUE. IF (MF(7).NE.0 .OR. MF(8).NE.0 .OR. MF(6).NE.0 .AND. MF(6).NE.3) 1 BADFOR =.TRUE. IF (MF(3) .EQ. 0) M(3) = 1 IF (M(5).NE.BCDYES .AND. M(5).NE.BCDNO) BADDAT =.TRUE. IF (M(5) .EQ. BCDYES) M(5) = 1 IF (M(5) .EQ. BCDNO ) M(5) = 0 CALL WRITE (215,M,5,0) IF (MF(6) .EQ. 3) GO TO 3820 IF (M1(1).NE.0 .OR. M1(2).NE.0) BADDAT =.TRUE. GO TO 3875 3820 IF (M(7) .NE. BCDNON) BADDAT =.TRUE. IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADDAT =.TRUE. GO TO 3875 3840 CALL PAGE2 (2) WRITE (NOUT,3841) UFM 3841 FORMAT (A23,' 4121, ONLY ONE (1) AXIF CARD ALLOWED IN BULK DATA.') ABORT =.TRUE. GO TO 3875 3850 IF (MF(2) .EQ. 3) GO TO 3860 DO 3855 L = 1,8 IF (MF(L) .EQ. 0) GO TO 3855 IF (MF(L) .EQ. 1) GO TO 3853 BADFOR =.TRUE. N = 0 GO TO 3856 3853 IF (M(L) .LE. NAXF) BADDAT =.TRUE. N = N + 1 NAXF = M(L) I(N) = M(L) 3855 CONTINUE IF (N .LE. 0) BADDAT =.TRUE. 3856 GO TO 3875 3860 IF (MF(4) .EQ. 3) GO TO 3870 L1 = 1 L2 = 1 IF (MF(1).EQ.1 .AND. MF(3).EQ.1) GO TO 3862 3861 BADFOR =.TRUE. GO TO 3875 3862 DO 3863 L = 4,8 IF (MF(L) .NE. 0) GO TO 3861 3863 CONTINUE IF (M(1).LT.M(4) .AND. M(1).GE.0) GO TO 3864 BADDAT =.TRUE. GO TO 3875 3864 IF (M(1) .LE. NAXF) BADDAT =.TRUE. IF (M(1) .GT. 0) GO TO 3866 CALL WRITE (215,0,1,0) GO TO 3867 3866 L2 = M(1) 3867 L3 = M(4) DO 3868 L = L2,L3,L1 CALL WRITE (215,L,1,0) 3868 CONTINUE NAXF = L3 GO TO 3875 3870 L1 = M(7) L2 = L1 IF (MF(1).EQ.1 .AND. MF(3).EQ.1 .AND. MF(5).EQ.1 .AND. MF(6).EQ.0 1 .AND. MF(7).EQ.0 .AND. MF(8).EQ.0) GO TO 3872 GO TO 3861 3872 IF (M(1).LT.M(4) .AND. M(7).GT.0 .AND. M(7).LE.M(4) .AND. 1 MOD(M(4)-M(1) , M(7)).EQ.0) GO TO 3874 BADDAT =.TRUE. GO TO 3875 3874 GO TO 3864 3875 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 3878 KM = 0 KN = 0 IF (NAXF .LT. 100) GO TO 3877 CALL PAGE2 (2) WRITE (NOUT,3876) UFM,NAXF 3876 FORMAT (A23,' 4125, MAXIMUM ALLOWABLE HARMONIC ID IS 99. DATA ', 1 'CONTAINS MAXIMUM =',I20) ABORT =.TRUE. 3877 CONTINUE N = N + 1 I(N) =-1 GO TO 9 3878 KN = 1 KM = KM + 1 GO TO 9 3890 IF (IAXF .GT. 0) GO TO 3892 IF (LHARM) CALL PAGE2 (2) IF (LHARM) WRITE (NOUT,3891) UFM 3891 FORMAT (A23,' 4122, AXIF CARD REQUIRED.') LHARM =.FALSE. ABORT =.TRUE. 3892 GO TO RET, (3105,3205,3310,3410,3510,4504,4610) C C******* 213-BDYLIST ************************************** C 3900 GO TO 3200 C C******* 214-FREEPT ************************************** C 4000 GO TO 3400 C C******* 217-CTETRA, 335-CFTETRA ******************************* C 4100 N = 6 4105 DO 4110 L = 1,N IF (M(L) .LE. 0) GO TO 8 4110 CONTINUE N1 = N - 1 DO 4130 L = 3,N1 L2 = L + 1 DO 4120 L1 = L2,N IF (M(L) .EQ. M(L1)) GO TO 8 4120 CONTINUE 4130 CONTINUE GO TO 3 C C******* 218-CWEDGE, 336-CFWEDGE ******************************* C 4200 N = 8 GO TO 4105 C C******* 219-CHEXA1, 333-CFHEX1 ******************************* C 4300 IF (MF(15).NE.0 .OR. MF(16).NE.0) GO TO 7 N = 10 GO TO 4105 C C******* 220-CHEXA2, 334-CFHEX2 ******************************* C 4400 IF (MF(15).NE.0 .OR. MF(16).NE.0) GO TO 7 N = 10 GO TO 4105 C C******* 221-DMIAX ************************************** C 4500 IF (.NOT.FPHYS1) GO TO 4501 FPHYS1 =.FALSE. NM(1) = 0 NM(2) = 0 4501 IF (KM .NE. 0) GO TO 4505 IF (M(3) .EQ. 0) GO TO 4503 IF (M(1).NE.NM(1) .OR. M(2).NE.NM(2)) GO TO 4510 IF (MF(2).NE.1 .OR. MF(3).NE.1 .AND. MF(3).NE.0) GO TO 4511 IF (MF(4).NE.1 .AND. MF(4).NE.0) GO TO 4511 IF (M(3).LE.0 .OR. M(4).LT.0 .OR. M(4).GT.6) GO TO 4511 IF (IABS(M(5)) .GT. NAXF) GO TO 4511 IF (MF(5).NE.0 .OR. MF(6).NE.0 .OR. MF(7).NE.0 .OR. MF(8).NE.0) 1 GO TO 4511 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 4511 N = 2 I(2) = M(4) L1 = 4 L2 = 5 ASSIGN 4595 TO RET GO TO 4520 4503 ASSIGN 4504 TO RET GO TO 3890 4504 IF (MF(1).NE.3 .OR. M(1).EQ.NM(1) .AND. M(2).EQ.NM(2)) GO TO 4510 IFO = M(4) TY1 = M(5) ITY1= 2*MOD(TY1,2) TY2 = M(6) IF (MACH .NE. 12) GO TO 45045 IF (TY2.EQ.2.OR.TY2.EQ.4) TY2 = TY2 - 1 45045 CONTINUE IF (IFO.NE.1 .AND. IFO.NE.2 .AND. IFO.NE.6) GO TO 4510 IF (TY1.LE.0 .OR. TY1.GT.4 .OR. TY2.LE.0 .OR. TY2.GT.4) GO TO 4510 IF (TY2.EQ.1 .AND. TY1.EQ.3) GO TO 4510 NM(1) = M(1) NM(2) = M(2) IF (MF(6).NE.0 .OR. MF(7).NE.0 .OR. MF(8).NE.0) GO TO 4511 IF (M1F(2).NE.3 .OR. M1(3).NE.NM(1) .OR. M1(4).NE.NM(2)) 1 GO TO 4511 N = 9 GO TO 3 4505 IF (M(1).LE.0 .OR. M(2).LT.0 .OR. M(2).GT.6) GO TO 4511 IF (MF(1).NE.1 .OR. MF(2).NE.1 .AND. MF(2).NE.0) GO TO 4511 IF (MF(4).NE.0 .AND. MF(4)+ITY1.NE.4) GO TO 4511 IF (MF(5).NE.0 .AND. TY1.NE.3 .AND. TY1.NE.4) GO TO 4511 IF (IABS(M(3)) .GT. NAXF) GO TO 4511 IF (MF(3).NE.1 .AND. MF(3).NE.0) GO TO 4511 N = 3 I(2) = M(2) L1 = 3 L2 = 3 ASSIGN 4506 TO RET GO TO 4520 4506 I(3) = M(4) IF (TY1 .EQ. 1) GO TO 4508 N = 4 I(4) = M(5) IF (TY1.EQ.2 .OR. TY1.EQ.3) GO TO 4508 N = 6 I(5) = M(6) I(6) = M(7) 4508 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4595 N = N + 2 I(N-1) =-1 I(N ) =-1 IF (M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K) .AND. M1(3).EQ.NM(1) 1 .AND. M1(4).EQ.NM(2)) GO TO 4592 N = N + 2 I(N-1) =-1 I(N ) =-1 GO TO 4592 4510 NM(1) = M(1) NM(2) = M(2) 4511 ABORT =.TRUE. CALL PAGE2 (2) WRITE (NOUT,4512) UFM,NM(1),NM(2) 4512 FORMAT (A23,' 4126, BAD DATA OR FORMAT OR NON-UNIQUE NAME, DMIAX', 1 1X ,2A4) GO TO 4590 4520 IF (MF(L1) .EQ. 1) GO TO 4521 I(1) = M(L2-2) GO TO 4525 4521 IF (M(L2) .LT. 0) GO TO 4522 I(1) = 1000000*(1+M(L2)) + M(L2-2) GO TO 4525 4522 I(1) = 500000*(1-M(L2)*2) + M(L2-2) 4525 GO TO RET, (4506,4595) 4590 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4595 4592 KM = 0 KN = 0 GO TO 2 4595 KN = 1 KM = KM + 1 GO TO 2 C C******* 222-FLSYM ************************************** C 4600 IF (LFLSYM) GO TO 4690 LFLSYM =.TRUE. ASSIGN 4610 TO RET GO TO 3890 4610 CONTINUE IF (MF(1).NE.1 .OR. MF(2).NE.3 .OR. MF(3).NE.3) BADFOR =.TRUE. DO 4615 L = 4,8 IF (MF(L) .NE. 0) BADFOR =.TRUE. 4615 CONTINUE IF (M(1).LT.2 .OR. M(2).NE.BCDS .AND. M(2).NE.BCDA .OR. 1 M(4).NE.BCDS .AND. M(4).NE.BCDA) BADDAT =.TRUE. IF (MOD(M(1),2) .NE. 0) BADDAT =.TRUE. IF (M(2) .EQ. BCDS) M(2) = +1 IF (M(2) .EQ. BCDA) M(2) = -1 IF (M(4) .EQ. BCDS) M(3) = +1 IF (M(4) .EQ. BCDA) M(3) = -1 N = 3 GO TO 3 4690 CALL PAGE2 (2) WRITE (NOUT,4691) UFM 4691 FORMAT (A23,' 4123, ONLY ONE (1) FLSYM CARD ALLOWED IN BULK DATA') ABORT =.TRUE. GO TO 2 C C******* 321-CEMLOOP ******************************************* C 8000 IF (M(1).LE.0 .OR. M(13).LT.0) GO TO 8 IF (M(3) .EQ. 0) GO TO 8002 IF (M(5) .NE. 0) GO TO 8 DO 8001 IEM = 7,13 IF (M(IEM) .NE. 0) GO TO 8 8001 CONTINUE GO TO 8003 8002 DX1 = Z(4) - Z(10) DY1 = Z(5) - Z(11) DZ1 = Z(6) - Z(12) DX2 = Z(7) - Z(10) DY2 = Z(8) - Z(11) DZ2 = Z(9) - Z(12) DL1 = DX1**2 + DY1**2 + DZ1**2 DL2 = DX2**2 + DY2**2 + DZ2**2 IF (ABS(DL1-DL2) .GT. 1.E-4) GO TO 8 DC1 = DY1*DZ2 - DY2*DZ1 DC2 = DX2*DZ1 - DX1*DZ2 DC3 = DX1*DY2 - DY1*DX2 DLC = SQRT(DC1**2 + DC2**2 + DC3**2) IF (DLC/SQRT(DL2) .LT. .0001) GO TO 8 8003 N = 13 GO TO 3 C C******* 322-SPCFLD, 326-REMFLUX ***************************** C 9000 IF (M(1) .LE. 0) GO TO 8 IF (M(2) .LT. 0) GO TO 8 IF (M(6) .NE.-1) GO TO 9003 DO 9002 L = 7,8 IF (MF(L) .NE. 0) GO TO 7 9002 CONTINUE N = 6 GO TO 3 9003 IF (MF(7) .EQ. 3) GO TO 9005 DO 9004 L = 6,8 IF (MF(L).NE.1 .AND. MF(L).NE.0) GO TO 7 IF (M(L) .LT. 0) GO TO 8 IF (M(L) .EQ. 0) GO TO 9004 N = N + 6 I(N-5) = M(1) I(N-4) = M(2) I(N-3) = M(3) I(N-2) = M(4) I(N-1) = M(5) I(N ) = M(L) 9004 CONTINUE IF (N) 8,8,2 9005 IF (M(7) .NE. THRU) GO TO 8 IF (MF(6).NE.1 .OR. MF(8).NE.1) GO TO 7 L1 = 6 L2 = 9 II = M(L1) - 1 L2 = M(L2) - M(L1) IF (II.LT.0 .OR. L2.LE.0) GO TO 8 L1 = 1 DO 9007 L = 1,5 9007 I(L) = M(L) N = 6 DO 9008 L = L1,L2 I(6) = L + II 9008 CALL WRITE (209,I,N,0) I(6) = II + L2 + 1 GO TO 2 C C***** 323-CIS2D8 ************************************************** C 9100 IF (M( 1).LE.0 .OR. M( 2).LE.0 ) GO TO 8 IF (M(11).LT.0 .OR. Z(12).LT.0.) GO TO 8 IF (M(11) .EQ. 0) M(11) = 2 IF (M(11).NE.2 .AND. M(11).NE.3) GO TO 8 DO 9101 L = 3,10 IF (M(L) .LE. 0) GO TO 8 9101 CONTINUE DO 9102 L = 3,9 LP1 = L + 1 DO 9102 LLL = LP1,10 IF (M(L) .EQ. M(LLL)) GO TO 8 9102 CONTINUE N = 12 GO TO 3 C C***** 324-PIS2D8 ************************************************** C 9200 IF (Z(3) .LE. 0.) GO TO 8 IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8 N = 3 GO TO 3 C C***** 325-GEMLOOP ************************************************* C 9300 IF (MF(1) .NE. 1) GO TO 7 IF (MF(2).NE.2 .AND. MF(2).NE.0) GO TO 7 IF (MF(3).NE.1 .AND. MF(3).NE.0) GO TO 7 IF (M(1).LE.0 .OR. M(3).LT.0) GO TO 8 C C FOR NOW, CID MUST BE 0 C IF (M(3) .NE. 0) GO TO 7 NPTS = 0 DO 9310 L = 4,49,3 IF (MF(L) .EQ. 3) GO TO 9320 NPTS = NPTS + 1 IF (MF(L ).NE.2 .AND. MF(L ).NE.0) GO TO 7 IF (MF(L+1).NE.2 .AND. MF(L+1).NE.0) GO TO 7 IF (MF(L+2).NE.2 .AND. MF(L+2).NE.0) GO TO 7 9310 CONTINUE GO TO 8 9320 IF (NPTS .LT. 2) GO TO 8 DO 9325 LLL = L,49 9325 M(LLL) = 0 DO 9330 L = 1,3 9330 I(L) = M(L) I(4) = NPTS DO 9340 L = 4,48 9340 I(L+1) = M(L) N = 49 GO TO 2 C C***** 327-BFIELD ************************************************** C 9400 IF (M(1) .LT. 0) GO TO 8 IF (M(2) .NE.-1) GO TO 9405 DO 9402 L = 3,8 IF (MF(L) .NE. 0) GO TO 7 9402 CONTINUE N = 2 GO TO 3 9405 IF (MF(3) .EQ. 3) GO TO 9420 DO 9410 L = 2,8 IF (MF(L).NE.1 .AND. MF(L).NE.0) GO TO 7 IF (M(L) .LT. 0) GO TO 8 IF (M(L) .EQ. 0) GO TO 9410 N = N + 2 I(N-1) = M(1) I(N ) = M(L) 9410 CONTINUE IF (N) 8,8,2 9420 IF (M(3) .NE. THRU) GO TO 7 IF (MF(2).NE.1 .OR. MF(4).NE.1) GO TO 7 L1 = 2 L2 = 5 II = M(L1) - 1 L2 = M(L2) - M(L1) IF (II.LT.0 .OR. L2.LE.0) GO TO 8 L1 = 1 I(1) = M(1) N = 2 DO 9430 L = L1,L2 I(2) = L + II 9430 CALL WRITE (201,I,N,0) I(2) = II + L2 + 1 GO TO 2 C C***** 328-MDIPOLE *********************************************** C 9500 IF (M(1).LE.0 .OR. M( 2).LT.0 ) GO TO 8 IF (Z(9).LT.0. .OR. Z(10).LT.0.) GO TO 8 N = 10 GO TO 3 C END ================================================ FILE: mis/ifs5p.f ================================================ SUBROUTINE IFS5P (*,*,*) C EXTERNAL LSHIFT,RSHIFT,ORF LOGICAL ABORT,BADDAT,BADFOR,IFPDCO INTEGER M(100),RET,THRU,NFDH(10),ITYPE(12),ISCAL(4), 1 ORF,RSHIFT,LSHIFT,C,P,T1,BLANK,MET(4),MOT(3),GC CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /IFPX1 / NCDS,T1(2,310) COMMON /SYSTEM/ NBUF,NOUT,ABORT,JUNK(42),KDUMEL(9) COMMON /BITPOS/ KB(32,2) COMMON /IFPDTA/ ID,N,K,KX,KY,I(100),RM(100),MF(100),M1(100), 1 M1F(100), 2 KN,BADDAT,BADFOR,NOPEN,NPARAM,IAX,NAX,IAXF,NAXF, 3 LHARM,KNT,SLOTDF(5),GC(7),LL(6) COMMON /CIFS5P/ KM,C,P,ICONT,IAERO,IPOPT EQUIVALENCE (M(1),RM(1)), (BLANK,IBLANK) DATA THRU / 4HTHRU/ DATA BLANK / 1H / DATA IYES , INO / 4HYES , 4HNO / DATA MS,ML / 4HS , 4HL / DATA MOT / 1HZ, 1HY, 2HZY / DATA MET / 1HK, 2HPK,2HKE, 3HINV / DATA NMT / 4 / DATA ITYPE, ISCAL / 1 4HFX ,4HFY ,4HFZ ,4HFXE ,4HFYE ,4HFZE ,4HMX ,4HMY , 2 4HMZ ,4HMXE ,4HMYE ,4HMZE ,4HLE ,4HFR ,4HLEPR,4HFRPR/ C IF (K .GT. 100) GO TO 81 GO TO ( 5, 5, 100, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 3 5, 200, 5, 5, 5, 5, 5, 5, 5, 5, 4 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 300, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 7 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8 5, 5, 5, 5, 5, 5, 5, 400, 5, 5, 9 5, 5, 5, 5, 5, 5, 5, 5, 500, 600 ), K 81 IF (KX .GT. 100) GO TO 82 GO TO ( 700, 5, 800, 5, 5, 900,1000,1100,1200,1300, 1 1400,1500,1600,1700,1800,1900,2000,2100, 5, 5, 2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 3 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 4 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 5, 5, 5, 5, 5, 5, 5, 5,2200,2300, 6 2400, 5,2500,2600,2700, 5,2800,2900,3000,3100, 7 3200,3300,3400,3500,3600,3700,3800,3900, 5, 5, 8 5, 5, 5, 5, 5,4000,4100, 5, 5, 5, 9 5, 5,4400,4500, 5, 5, 5,6000, 5, 5 ), KX 82 IF (KY .GT. 100) GO TO 83 GO TO ( 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 3 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 4 5, 5, 5, 5,4600,4600, 5, 5, 7, 8, 5 5000,5100,5200,5300,5400, 5, 5, 5, 5, 5, 6 5, 5,6400,6500,6600,6700,6800, 5,5600,5700, 7 5800,5900, 5, 5,6100,6200,6300,6900, 5, 5, 8 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 9 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 ), KY 83 KZ = KY-100 IF (KZ .GT. 39) GO TO 5 GO TO ( 6400,6400,6400,6510,6520,6530,6850,7600,6400,7700, 1 3300,3300,3300,3350, 5, 5, 5, 5, 5, 5, 2 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 3 5, 5, 5, 5, 5, 5, 5,4700,4710 ), KZ 5 CALL PAGE2 (2) WRITE (NOUT,6) SFM 6 FORMAT (A25,' 322, ILLEGAL ENTRY TO IFS5P.') ABORT =.TRUE. IF (K .EQ. 0) GO TO 9999 RETURN 1 7 BADFOR =.TRUE. RETURN 1 8 BADDAT =.TRUE. RETURN 1 3 DO 4 L = 1,N 4 I(L) = M(L) 2 RETURN 9 RETURN 3 C C***** 3-ADUM1 ****************************************** C 100 CONTINUE IDUMEL = 1 GO TO 8100 C C***** 32-ADUM2 ****************************************** C 200 CONTINUE IDUMEL = 2 GO TO 8100 C C***** 51-ADUM3 ****************************************** C 300 CONTINUE IDUMEL = 3 GO TO 8100 C C***** 88-ADUM4 ****************************************** C 400 CONTINUE IDUMEL = 4 GO TO 8100 C C***** 99-ADUM5 ****************************************** C 500 CONTINUE IDUMEL = 5 GO TO 8100 C C***** 100-ADUM6 ****************************************** C 600 CONTINUE IDUMEL = 6 GO TO 8100 C C***** 101-ADUM7 ****************************************** C 700 CONTINUE IDUMEL = 7 GO TO 8100 C C***** 103-ADUM8 ****************************************** C 800 CONTINUE IDUMEL = 8 GO TO 8100 C C***** 106-ADUM9 ****************************************** C 900 CONTINUE IDUMEL = 9 GO TO 8100 C C***** 107-CDUM1 ****************************************** C 1000 CONTINUE IDUMEL = 1 GO TO 8200 C C***** 108-CDUM2 ****************************************** C 1100 CONTINUE IDUMEL = 2 GO TO 8200 C C***** 109-CDUM3 ****************************************** C 1200 CONTINUE IDUMEL = 3 GO TO 8200 C C***** 110-CDUM4 ****************************************** C 1300 CONTINUE IDUMEL = 4 GO TO 8200 C C***** 111-CDUM5 ****************************************** C 1400 CONTINUE IDUMEL = 5 GO TO 8200 C C***** 112-CDUM6 ****************************************** C 1500 CONTINUE IDUMEL = 6 GO TO 8200 C C***** 113-CDUM7 ****************************************** C 1600 CONTINUE IDUMEL = 7 GO TO 8200 C C***** 114-CDUM8 ****************************************** C 1700 CONTINUE IDUMEL = 8 GO TO 8200 C C***** 115-CDUM9 ****************************************** C 1800 CONTINUE IDUMEL = 9 GO TO 8200 C C***** 116-PDUM1 ****************************************** C 1900 CONTINUE IDUMEL = 1 GO TO 8300 C C***** 117-PDUM2 ****************************************** C 2000 CONTINUE IDUMEL = 2 GO TO 8300 C C***** 118-PDUM3 ****************************************** C 2100 CONTINUE IDUMEL = 3 GO TO 8300 C C***** 159-PDUM4 ****************************************** C 2200 CONTINUE IDUMEL = 4 GO TO 8300 C C***** 160-PDUM5 ****************************************** C 2300 CONTINUE IDUMEL = 5 GO TO 8300 C C***** 161-PDUM6 ****************************************** C 2400 CONTINUE IDUMEL = 6 GO TO 8300 C C***** 163-PDUM7 ****************************************** C 2500 CONTINUE IDUMEL = 7 GO TO 8300 C C***** 164-PDUM8 ****************************************** C 2600 CONTINUE IDUMEL = 8 GO TO 8300 C C***** 165-PDUM9 ****************************************** C 2700 CONTINUE IDUMEL = 9 GO TO 8300 C C***** 167-CONCT1 ****************************************** C 2800 IF (KM .EQ. 1) GO TO 2850 NSS = 0 IF (MF(1) .NE. 1) GO TO 7 DO 2805 L = 2,8 IF (MF(L).NE.3 .AND. MF(L).NE.0) GO TO 7 IF (MF(L) .EQ. 3) NSS = NSS + 1 2805 CONTINUE IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 7 IF (M(1) .LE. 0) GO TO 8 IF (NSS .EQ. 1) GO TO 8 I(1) = NSS I(2) = M(1) N = 2 NB = 0 DO 2810 L = 2,8 IF (MF(L) .EQ. 0) GO TO 2809 N = N + 2 NFDH(L-1) = 1 I(N-1) = M(N-2+NB) I(N ) = M(N-1+NB) GO TO 2810 2809 NB = NB + 1 NFDH(L-1) = 0 2810 CONTINUE KM = 1 GO TO 2 2850 KM = 0 DO 2855 L = 1,8 IF (MF(L) .GT. 1) GO TO 7 IF (M(L).LE.0 .AND. MF(L).EQ.1) GO TO 8 2855 CONTINUE DO 2860 L = 2,8 IF (MF(L).EQ.1 .AND. NFDH(L-1).EQ.0) GO TO 8 2860 CONTINUE I(1) = M(1) N = 1 DO 2870 L = 2,8 IF (NFDH(L-1) .EQ. 0) GO TO 2870 N = N + 1 I(N) = M(L) 2870 CONTINUE KN = 1 KM = 1 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2 KN = 0 KM = 0 N = N + 1 I(N) = -1 GO TO 2 C C***** 168-CONCT ****************************************** C 2900 IF (KM .EQ. 1) GO TO 2950 KM = 1 DO 2905 L = 1,2 IF (MF(L ) .NE. 1) GO TO 7 IF (MF(L+2) .NE. 3) GO TO 7 IF (M(L) .LE. 0) GO TO 8 2905 CONTINUE DO 2910 L = 1,6 2910 I(L) = M(L) N = 6 IF (M1(1).NE.0 .AND. M1(2).NE.0) GO TO 7 GO TO 2 2950 DO 2955 L = 1,8 IF (MF(L).NE.0 .AND. MF(L).NE.1) GO TO 7 2955 CONTINUE DO 2960 L = 1,8 IF (MF(L).EQ.1 .AND. M(L).LE.0) GO TO 8 2960 CONTINUE N = 0 DO 2965 L = 1,8,2 KDLH = MF(L) + MF(L+1) IF (KDLH.NE.0 .AND. KDLH.NE.2) GO TO 8 IF (KDLH .EQ. 0) GO TO 2965 N = N + 2 I(N-1) = M(N-1) I(N ) = M(N ) 2965 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2 N = N + 2 I(N-1) = -1 I(N ) = -1 KM = 0 GO TO 2 C C***** 169-TRANS ****************************************** C 3000 IF (MF(1).NE.1 .OR. MF(2).NE.0) GO TO 7 DO 3010 L = 3,11 IF (MF(L).NE.2 .AND. MF(L).NE.0) GO TO 7 3010 CONTINUE IF (M(1) .LE. 0) GO TO 8 V11 = RM( 6) - RM(3) V12 = RM( 7) - RM(4) V13 = RM( 8) - RM(5) V21 = RM( 9) - RM(3) V22 = RM(10) - RM(4) V23 = RM(11) - RM(5) TR1 = V12*V23 - V13*V22 TR2 = V11*V23 - V13*V21 TR3 = V11*V22 - V12*V21 TMAG = SQRT(TR1**2 + TR2**2 + TR3**2) V1MAG = SQRT(V11**2 + V12**2 + V13**2) V2MAG = SQRT(V21**2 + V22**2 + V23**2) IF (V1MAG .EQ. 0.0) GO TO 8 IF (V2MAG .EQ. 0.0) GO TO 8 ANGSIN = TMAG/V1MAG/V2MAG IF (ANGSIN .LT. 0.087) GO TO 8 I(1) = M(1) DO 3020 L = 3,11 I(L-1) = M(L) 3020 CONTINUE N = 10 GO TO 2 C C***** 170-RELES ****************************************** C 3100 IF (KM .EQ. 1) GO TO 3170 KM = 1 IF (MF(1) .NE. 1) GO TO 7 IF (MF(2) .NE. 3) GO TO 7 IF (M(1) .LE. 0) GO TO 8 I(1) = M(1) I(2) = M(2) I(3) = M(3) L1 = 3 N = 3 3180 DO 3110 L = L1,8,2 KDLH = MF(L) + MF(L+1) IF (KDLH.NE.0 .AND. KDLH.NE.2) GO TO 8 IF (KDLH .EQ. 0) GO TO 3110 N = N + 2 I(N-1) = M(N-1) I(N ) = M(N ) 3110 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2 N = N + 2 I(N-1) = -1 I(N ) = -1 KM = 0 GO TO 2 3170 N = 0 L1 = 1 GO TO 3180 C C***** 171-LOADC ****************************************** C 3200 IF (KM .EQ. 1) GO TO 3250 KM = 1 IF ((MF(1).NE.0 .AND. MF(1).NE.1) .OR. 1 (MF(2).NE.0 .AND. MF(2).NE.2)) GO TO 7 IF (M(1).LE.0 .OR. M(2).EQ.0) GO TO 8 IF (MF(3).NE.3 .OR. (MF(6).NE.3 .AND. MF(6).NE.0)) GO TO 7 I(1) = M(1) I(2) = M(2) N = 2 LDH = 0 3260 DO 3210 L = 3,8,3 KDLH = MF(L) + MF(L+1) + MF(L+2) IF (KDLH.NE.0 .AND. KDLH.NE.6) GO TO 8 IF (KDLH .EQ. 0) GO TO 3210 N = N + 4 I(N-3) = M(N-3+LDH) I(N-2) = M(N-2+LDH) I(N-1) = M(N-1+LDH) I(N) = M(N +LDH) 3210 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2 N = N + 4 I(N-3) = IBLANK I(N-2) = IBLANK I(N-1) = -1 I(N ) = -1 KM = 0 GO TO 2 3250 N = 0 LDH = 2 GO TO 3260 C C***** 172-SPCSD , 311-DAREAS ********************** C 312-DELAYS, 313-DPHASES C 3300 IF (M(1) .LE. 0) GO TO 8 IF (M(4) .LE. 0) GO TO 8 IF (M(5) .LT. 0) GO TO 8 IF (M(7) .LT. 0) GO TO 8 IF (M(8) .LT. 0) GO TO 8 N = 12 IF (M(7) .EQ. 0 ) N = 9 M(N-2) = -1 M(N-1) = -1 M(N ) = -1 GO TO 3 C C***** 314-TICS ************************************** C 3350 IF (M(1) .LE. 0) GO TO 8 IF (M(4) .LE. 0) GO TO 8 IF (M(5) .LT. 0) GO TO 8 DO 3351 L = 8,11 M(L) = -1 3351 CONTINUE N = 11 GO TO 3 C C***** 173-SPCS1 ****************************************** C 3400 IF (KM .EQ. 1) GO TO 3410 KM = 1 IF (MF(1) .NE. 1) BADFOR =.TRUE. IF (MF(2) .NE. 3) BADFOR =.TRUE. IF (M(4) .LT. 0) BADDAT =.TRUE. CALL WRITE (210,M,4,0) J1 = 4 L1 = 5 GO TO 3920 3410 L1 = 1 J1 = 1 GO TO 3920 C C***** 174-SPCS ****************************************** C C C SAME AS RELES DATA CARD C 3500 GO TO 3100 C C***** 175-BDYC ****************************************** 3600 IF (KM .EQ. 1) GO TO 3650 C IF (MF(8).NE.0 .OR. MF(1).NE.1) GO TO 7 IF (M(1) .LE. 0) GO TO 8 3660 DO 3605 L = 2,7,2 IF (MF( L).NE.0 .AND. MF(L ).NE.3) GO TO 7 IF (MF(L+1).NE.0 .AND. MF(L+1).NE.1) GO TO 7 3605 CONTINUE I(1) = M(1) N = 1 J1 = 1 IF (KM .EQ. 1) J1 = 0 DO 3610 L = 2,7,2 KDLH = MF(L) + MF(L+1) IF (KDLH.NE.0 .AND. KDLH.NE.4) GO TO 8 IF (KDLH .EQ. 0) GO TO 3610 N = N + 3 J1 = J1 + 3 I(J1-2) = M(N-2) I(J1-1) = M(N-1) I(J1 ) = M(N ) 3610 CONTINUE N = J1 KM = 1 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2 KM = 0 N = N + 3 J1 = J1 + 3 I(J1-2) = IBLANK I(J1-1) = IBLANK I(J1 ) = -1 GO TO 2 3650 IF (MF(1).NE.0 .OR. MF(8).NE.0) GO TO 7 GO TO 3660 C C***** 176-MPCS ****************************************** C 3700 IF (KM .EQ. 1) GO TO 3750 KM = 1 IF (MF(1) .NE. 1) GO TO 7 IF (MF(2) .NE. 3) GO TO 7 IF (MF(3) .NE. 1) GO TO 7 IF (MF(4) .NE. 1) GO TO 7 IF (MF(5) .NE. 2) GO TO 7 IF (M(1) .LE. 0) GO TO 8 IF (M(4) .LE. 0) GO TO 8 IF (M(5) .LT. 0) GO TO 8 IF (M(6) .EQ. 0) GO TO 8 DO 3710 L = 1,6 I(L) = M(L) 3710 CONTINUE N = 6 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2 GO TO 7 3750 IF (MF(1) .NE. 0) GO TO 7 IF (MF(2) .NE. 3) GO TO 7 DO 3755 L = 3,6,3 IF (MF(L)+MF(L+2)+MF(L+1) .EQ. 0) GO TO 3755 IF (MF(L).NE.1 .OR. MF(L+1).NE.1) GO TO 7 IF (MF(L+2) .NE. 2) GO TO 7 IF (M(L+1).LE.0 .AND. MF(L+2).LE.0) GO TO 8 3755 CONTINUE N = 0 DO 3765 L = 3,8,3 KDLH = MF(L) + MF(L+1) + MF(L+2) IF (KDLH.NE.0 .AND. KDLH.NE.4) GO TO 8 IF (KDLH .EQ. 0) GO TO 3765 I(N+1) = M(2) I(N+2) = M(3) N = N + 5 I(N-2) = M(L+1) I(N-1) = M(L+2) I(N ) = M(L+3) 3765 CONTINUE IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2 I(N+1) = IBLANK I(N+2) = IBLANK N = N + 5 I(N-2) = -1 I(N-1) = -1 I(N ) = -1 KM = 0 GO TO 2 C C***** 177-BDYS ****************************************** C 3800 DO 3810 L = 1,7 IF (MF(L).NE.1 .AND. MF(L).NE.0) GO TO 7 IF (MF(L).EQ.1 .AND. M(L).LE.0) GO TO 8 3810 CONTINUE IF (MF(1) .EQ. 0) GO TO 7 N = 1 I(N) = M(1) DO 3820 L = 2,7,2 KDLH = MF(L) + MF(L+1) IF (KDLH.NE.2 .AND. KDLH.NE.0) GO TO 8 IF (KDLH .EQ. 0) GO TO 3820 N = N + 2 I(N-1) = M(N-1) I(N ) = M(N ) 3820 CONTINUE N = N + 2 I(N-1) = -1 I(N ) = -1 GO TO 2 C C***** 178-BDYS1 ****************************************** C 3900 IF (KM .EQ. 1) GO TO 3910 KM = 1 IF (MF(1).NE.1 .OR. MF(2).GT.1) BADFOR =.TRUE. IF (M(1) .LT.1 .OR. M(2) .LT.0) BADDAT =.TRUE. CALL WRITE (210,M,2,0) J1 = 3 L1 = 3 GO TO 3920 3910 J1 = 1 L1 = 1 C C COMMON PROCESSING FOR SPCS1 AND BDYS1 CARDS C 3920 IF (MF(J1) .NE. 0) GO TO 3925 J1 = J1 + 1 L1 = L1 + 1 GO TO 3960 3925 IF (MF(J1) .EQ. 1) GO TO 3930 BADFOR =.TRUE. GO TO 3965 3930 IF (J1 .GT. 6) GO TO 3955 IF (MF(J1+1) .NE. 3) GO TO 3955 IF (M(L1+1) .EQ. THRU) GO TO 3935 BADDAT =.TRUE. GO TO 3965 3935 IF (MF(J1+2) .EQ. 1) GO TO 3940 BADFOR =.TRUE. GO TO 3965 3940 IF (M(L1+3) .GT. M(L1)) GO TO 3945 BADDAT =.TRUE. GO TO 3965 3945 IG1 = M(L1 ) IG2 = M(L1+3) DO 3950 J = IG1,IG2 CALL WRITE (210,J,1,0) 3950 CONTINUE J1 = J1 + 3 L1 = L1 + 4 GO TO 3960 3955 CALL WRITE (210,M(L1),1,0) J1 = J1 + 1 L1 = L1 + 1 3960 IF (J1 .LE. 8) GO TO 3920 3965 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 3970 KN = 1 N = 0 GO TO 9 3970 KM = 0 KN = 0 N = 1 I(1) = -1 GO TO 9 C C***** 186-GNEW ****************************************** C 4000 IF (MF(1) .NE. 1) GO TO 7 IF (MF(2) .NE. 3) GO TO 7 IF (MF(3).NE.1 .AND. MF(3).NE.0) GO TO 7 IF (MF(4) .NE. 1) GO TO 7 IF (MF(5) .NE. 1) GO TO 7 IF (M(1) .LE. 0) GO TO 8 IF (M(4) .LT. 0) GO TO 8 IF (M(5) .LE. 0) GO TO 8 IF (M(6) .LE. 0) GO TO 8 N = 6 GO TO 3 C C***** 187-GTRAN ****************************************** C 4100 IF (MF(1) .NE. 1) GO TO 7 IF (MF(2) .NE. 3) GO TO 7 IF (MF(3) .NE. 1) GO TO 7 IF (MF(4).NE.1 .AND. MF(4).NE.0) GO TO 7 IF (M(1) .LE. 0) GO TO 8 IF (M(4) .LE. 0) GO TO 8 IF (M(5) .LT. 0) GO TO 8 N = 5 GO TO 3 C C***** 193-USET ****************************************** C 4400 ASSIGN 4405 TO RET 4401 N = 0 IF (M(2) .NE. BLANK) GO TO 8 DO 4402 L = 1,32 IF (M(1) .EQ. KB(L,2)) GO TO 4404 4402 CONTINUE GO TO 8 4404 ID = KB(L,1) GO TO RET, (4405,4505) 4405 DO 4440 L = 3,7,2 IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 4440 IF (M(L) .LE. 0) GO TO 8 IF (IFPDCO(M(L+1))) GO TO 8 LZ = 6 IF (M(L+1) .EQ. 0) LZ = 1 DO 4430 L2 = 1,LZ IF (LZ.NE.1 .AND. LL(L2).EQ.0) GO TO 4430 N = N + 3 I(N-2) = ID I(N-1) = M(L ) I(N ) = LL(L2) IF (N .LE. 3) GO TO 4430 DO 4420 L1 = 6,N,3 IF (I(N-1).EQ.I(L1-4) .AND. I(N).EQ.I(L1-3)) GO TO 8 4420 CONTINUE 4430 CONTINUE 4440 CONTINUE IF (N) 8,8,2 C C***** 194-USET1 ****************************************** C 4500 IF (KM .NE. 0) GO TO 4510 KM = 1 ASSIGN 4505 TO RET GO TO 4401 4505 N = 2 I(1) = ID IF (MF(2).NE.0 .AND. MF(2).NE.1) BADFOR =.TRUE. IF (IFPDCO(M(3))) BADDAT =.TRUE. I(2) = M(3) IF (MF(4).EQ.3 .AND. M(5).EQ.THRU) GO TO 4550 L1 = 4 L3 =-1 L2 = 9 GO TO 4511 4510 L1 = 1 L3 = 0 L2 = 8 4511 DO 4515 L = L1,L2 IF (MF(L+L3).NE.0 .AND. MF(L+L3).NE.1) BADFOR =.TRUE. 4515 CONTINUE DO 4520 L = L1,L2 IF (MF(L+L3) .EQ. 1) GO TO 4525 4520 CONTINUE BADDAT =.TRUE. 4525 DO 4540 L = L1,L2 IF (M(L)) 4535,4540,4530 4530 N = N + 1 I(N) = M(L) GO TO 4540 4535 BADDAT =.TRUE. 4540 CONTINUE KN = 1 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 4545 KM = 0 N = N + 1 I(N) = -1 KN = 0 GO TO 9 4550 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 4555 KN = 1 BADFOR =.TRUE. GO TO 9 4555 IF (MF(3).NE.1 .OR. MF(5).NE.1 ) BADFOR =.TRUE. IF (M(4).LE.0 .OR. M(7).LE.M(4)) BADDAT =.TRUE. DO 4560 L = 1,3 IF (MF(L+5) .NE. 0) BADFOR =.TRUE. 4560 CONTINUE IF (BADFOR .OR. BADDAT) GO TO 4545 CALL WRITE (210,I,2,0) L1 = M(4) L2 = M(7) DO 4570 L = L1,L2 4570 CALL WRITE (210,L,1,0) N = 0 GO TO 4545 C C***** 245-SAME 246-NOSAME **************************** C 4600 CONTINUE IALT = 1 IF (M(3) .EQ. THRU) IALT = 3 KDX = IALT + ICONT GO TO (4620,4620,4630,4640), KDX 4620 DO 4621 IN1 = 1,8,2 IN2 = IN1 + 1 IF (MF(IN1).EQ.0 .AND. MF(IN2).EQ.0) GO TO 4621 IF (MF(IN1).NE.1 .OR. MF(IN2).NE.1) BADFOR =.TRUE. IF (M(IN1) .LE.0 .OR. M(IN2) .LE.0) BADDAT =.TRUE. C N = N + 2 I(N-1) = M(IN1) I(N ) = M(IN2) 4621 CONTINUE GO TO 4680 C 4630 IF (MF(1).NE.1 .OR. MF(2).NE.1 .OR. MF(3).NE.3 .OR. MF(4).NE.1 .OR 1. MF(5).NE.1 .OR. MF(6).NE.1 .OR. MF(7).NE.3 .OR. MF(8).NE.1) 2 BADFOR =.TRUE. IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(5).LE.0 .OR. M(6).LE.0 .OR. 1 M(7).LE.0 .OR. M(8).NE.THRU .OR. M(10).LE.0) BADDAT =.TRUE. 2 IF (M(5).LE.M(2) .OR. M(10).LE.M(7)) BADDAT =.TRUE. IRANGE = M(5) - M(2) IF ((M(10)-M(7)) .NE. IRANGE) BADDAT =.TRUE. I(1) = -1 I(2) = IRANGE + 1 I(3) = M(1) I(4) = M(2) I(5) = M(6) I(6) = M(7) N = 6 GO TO 4680 4640 DO 4650 IN1 = 1,6,5 IN2 = IN1 + 1 IN3 = IN2 + 1 IN4 = IN3 + 1 IN5 = IN4 + 1 IF (MF(IN1).EQ.0 .AND. MF(IN2).EQ.0 .AND. MF(IN3).EQ.0 .AND. 1 MF(IN4).EQ.0) GO TO 4650 IF (MF(IN1).NE.1 .OR. MF(IN2).NE.1 .OR. MF(IN3).NE.3 .OR. 1 MF(IN4).NE.1) BADFOR = .TRUE. IF (M(IN1).LE.0 .OR. M(IN2).LE.0 .OR. M(IN3).NE.THRU .OR. 1 M(IN5).LE.0) BADDAT =.TRUE. IF (M(IN5).LE.M(IN2) .OR. M(IN5)-M(IN2).NE.IRANGE) BADDAT =.TRUE. I(N+1) = M(IN1) I(N+2) = M(IN2) N = N + 2 4650 CONTINUE C 4680 IF (M1F(1).EQ.0 .AND. M1F(2).EQ.0) GO TO 4685 ICONT = 0 I(N+1) =-1 I(N+2) =-1 N = N + 2 GO TO 9 4685 ICONT = 1 GO TO 9 C C***** 338-CELBOW ****************************************** C 4700 IF (M(2) .EQ. 0) M(2) = M(1) N = 8 GO TO 3 C C***** 339-PELBOW ****************************************** C 4710 N = 24 GO TO 3 C C***** 251-CIHEX1 ****************************************** C 5000 N = 10 5010 DO 5020 L = 1,N IF (M(L) .LE. 0) GO TO 8 5020 CONTINUE N1 = N - 1 DO 5040 L = 3,N1 L2 = L + 1 DO 5030 L1 = L2,N IF (M(L) .EQ. M(L1)) GO TO 8 5030 CONTINUE 5040 CONTINUE GO TO 3 C C***** 252-CIHEX2 ****************************************** C 5100 N = 22 GO TO 5010 C C***** 253-CIHEX3 ****************************************** C 5200 N = 34 GO TO 5010 C C***** 254-PIHEX ****************************************** C 5300 N = 7 IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8 IF (M(3) .LT. 0) GO TO 8 IF ((M(4).LT.2 .OR. M(4).GT.4) .AND. M(4).NE.0) GO TO 8 DO 5320 L = 5,7 IF (MF(L) .EQ. 0) GO TO 5310 IF (MF(L) .NE. 2) GO TO 7 IF (RM(L) .LT. 0.0) GO TO 8 GO TO 5320 5310 RM(L) = -1.0 5320 CONTINUE IF (RM(5).GE.0.0 .AND. RM(5).LT.1.0 ) GO TO 8 IF (RM(6).GT.180.0 .OR. RM(7).GT.180.0) GO TO 8 GO TO 3 C C***** 255-PLOAD3 ****************************************** C 5400 IF (M(1) .LE. 0) GO TO 8 DO 5410 L = 3,6,3 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 5410 IF (M(L).LT.0 .OR. M(L+1).LT.0 .OR. M(L+2).LT.0) GO TO 8 N = N + 5 I(N-4) = M(1) I(N-3) = M(2) I(N-2) = M(L) I(N-1) = M(L+1) I(N ) = M(L+2) 5410 CONTINUE IF (N) 8,8,2 C C***** 263-CAERO1, 301-CAERO2, 302-CAERO3, 303-CAERO4 ******* C 309-CAERO5 C 6400 IF (M(1) .LE. 0) GO TO 8 IF (M(2) .LE. 0) GO TO 8 DO 6404 L = 3,8 IF (M(L) .LT. 0) GO TO 8 6404 CONTINUE IF (K .EQ. 302) GO TO 6410 IF (K .EQ. 303) GO TO 6420 IF (K .EQ. 309) GO TO 6420 IF (M(4).EQ.0 .AND. M(6).EQ.0) GO TO 8 IF (M(5).EQ.0 .AND. M(7).EQ.0) GO TO 8 IF (M(8) .LE. 0) GO TO 8 6405 IF (RM(12) .LT. 0.0) GO TO 8 IF (RM(16) .LT. 0.0) GO TO 8 IF (RM(12).EQ.0.0 .AND. RM(16).EQ.0.0) GO TO 8 N = 16 GO TO 3 C C***** CAERO3 ************************************************ C 6410 IF (M(4) .EQ. 0 ) GO TO 8 IF (RM(12) .EQ. 0.) GO TO 8 GO TO 6405 C C***** CAERO4 CAERO5 ****************************************** C 6420 IF (M(4).EQ.0 .AND. M(5).EQ.0) GO TO 8 IF (M(6) .GT. 2) GO TO 8 GO TO 6405 C C***** 264-PAERO1 ****************************************** C 6500 IF (M(1) .LE. 0) GO TO 8 DO 6501 L = 2,8 IF (M(L) .LT. 0) GO TO 8 6501 CONTINUE N = 8 GO TO 3 C C***** 304 - PAERO2 *************** C 6510 IF (M(1) .LE. 0) GO TO 8 DO 6511 L = 1,3 IF (M(2) .EQ. MOT(L)) GO TO 6512 6511 CONTINUE GO TO 8 6512 IF (RM(4) .LE. 0.0) GO TO 8 IF (RM(5) .LE. 0.0) GO TO 8 DO 6513 L = 6,15 IF (M(L) .LT. 0) GO TO 8 6513 CONTINUE N = 15 GO TO 3 C C***** 305 - PAERO3 **************** C 6520 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0) GO TO 8 IF (M(2) .GT. 50) GO TO 8 N = 0 IF (M(3) .EQ. 0) N = 4 IF (M(3) .EQ. 1) N = 12 IF (M(3) .EQ. 2) N = 16 IF (N .EQ. 0) GO TO 8 M(4) = N N = N + 4 IF (N .EQ. 8) GO TO 6522 DO 6521 L = 9,N IF (MF(L) .EQ. -32767) GO TO 8 6521 CONTINUE IF (RM(12) .LT. RM(10)) GO TO 8 IF (RM(16) .LT. RM(14)) GO TO 8 IF (N .EQ. 16) GO TO 6522 IF (RM(20) .LT. RM(18)) GO TO 8 6522 GO TO 3 C C***** 306 - PAERO4 ********************** C 6530 IF (KM .NE. 0) GO TO 6535 KM = 1 IF (MF(1).NE.1 .OR. M(1).LE.0) GO TO 6540 DO 6531 L = 2,5 IF (MF(1).LT.0 .OR. MF(L).GT.1) GO TO 6540 6531 CONTINUE IF (M(3) .LT. 0) GO TO 6540 IF (M(2).EQ.0 .AND. M(3).NE.0) GO TO 6540 IF (M(2).GT.0 .AND. M(3).EQ.0) GO TO 6540 IF (M(2).NE.0 .AND. M(4).NE.0) GO TO 6540 IF (M(4).LT.0 .OR. M(4).GT.3) GO TO 6540 IF (M(4).EQ.0 .AND. M(5).NE.0) GO TO 6540 IF (M(4).GT.0 .AND. M(5).EQ.0) GO TO 6540 DO 6532 L = 1,5 6532 I(L) = M(L) N = 5 L1 = 6 GO TO 6533 6535 L1 = 1 6533 DO 6534 L = L1,8 IF (MF(L) .EQ. 0) GO TO 6550 IF (MF(L) .NE. 2) GO TO 6540 IF (RM(L) .LT. 0.) GO TO 6540 N = N + 1 I(N) = M(L) 6534 CONTINUE 6539 KN = 1 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9 KN = 0 KM = 0 N = N + 1 I(N) = -1 GO TO 9 6540 BADDAT = .TRUE. GO TO 6539 6550 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADDAT = .TRUE. GO TO 6539 C C***** 310 - PAERO5 ************ C 7700 IF (KM .NE. 0) GO TO 6535 KM = 1 DO 7701 L = 1,3 IF (MF(L).NE.1 .OR. M(L).LE.0) GO TO 6540 7701 CONTINUE DO 7702 L = 4,7 IF (MF(L).LT.0 .OR. MF(L).GT.1) GO TO 6540 7702 CONTINUE IF (M(4).NE.0 .AND. M(5).EQ.0) GO TO 6540 IF (M(6).NE.0 .AND. M(7).EQ.0) GO TO 6540 DO 7703 L = 1,7 7703 I(L) = M(L) N = 7 GO TO 6539 C C***** 265-AERO ****************************************** C 6600 IF (IAERO .NE. 0) GO TO 8 IAERO = 1 IF (M(1) .LT. 0) GO TO 8 N = 6 GO TO 3 C C***** 266-SPLINE1 ****************************************** C 6700 IF (M(2).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0 .OR. 1 M(1).LE.0 .OR. RM(6).LT.0.0) GO TO 8 N = 6 GO TO 3 C C***** 267-SPLINE2 ****************************************** C 6800 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0 .OR. 1 M(5).LE.0 .OR.M(8).LT.0) GO TO 8 N = 10 GO TO 3 C C***** 307 - SPLINE3 ********************* C 6850 IF (KM .NE. 0) GO TO 6852 KM = 1 IF (MF(1).NE.1 .OR. MF(2).NE.1 .OR. MF(3).NE.1 .OR. MF(4).NE.1) 1 GO TO 6540 IF (M(2).LE.0 .OR. M(3).LT.0) GO TO 6540 IF (IFPDCO(M(4))) GO TO 6540 IF (GC(2) .NE. 0) GO TO 6540 DO 6851 L = 1,4 6851 I(L) = M(L) N = 4 L1 = 5 GO TO 6853 6852 L1 = 1 6853 DO 6854 L = L1,8,4 IF (MF(L ) .EQ. 0) GO TO 6854 IF (MF(L ) .NE. 1) GO TO 6540 IF (MF(L+1) .NE. 1) GO TO 6540 IF (IFPDCO(M(L+1))) GO TO 6540 IF (GC(2 ) .NE. 0) GO TO 6540 IF (MF(L+2) .NE. 2) GO TO 6540 IF (M(L) .LE. 0) GO TO 6540 N = N + 3 I(N ) = M(L+2) I(N-1) = M(L+1) I(N-2) = M(L ) 6854 CONTINUE GO TO 6539 C C***** 269-SET2 ****************************************** C 5600 IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8 N = 8 GO TO 3 C C***** 270-MKAERO2 ****************************************** C 5700 N = 0 DO 5702 L = 2,8,2 IF (MF(L).EQ.0 .AND. MF(L-1).EQ.0) GO TO 5702 IF (MF(L).EQ.0 .OR. MF(L-1).EQ.0) GO TO 7 N = N + 2 I(N-1) = M(L-1) IF (RM(L) .LE. 0.0) GO TO 8 I(N) = M(L) 5702 CONTINUE IF (N .EQ. 0) GO TO 8 GO TO 2 C C***** 271-MKAERO1 ****************************************** C 5800 IF (MF(1).NE.2 .OR. MF(9).NE.2) GO TO 7 IF (RM(9) .LE. 0.0) GO TO 8 DO 5810 L = 2,8 IF (MF(L) .EQ. 0) M(L) = -1 IF (MF(L+8).NE.0 .AND. RM(L+8).LE.0.0) GO TO 8 IF (MF(L+8) .EQ. 0) M(L+8) = -1 5810 CONTINUE N = 16 GO TO 3 C C***** 257-FLUTTER ****************************************** C 5900 IF (M(1).LE.0 .OR. M(4).LT.0 .OR. M(5).LT.0 .OR. M(6).LT.0) GOTO 8 DO 5910 L = 1,NMT IF (M(2) .EQ. MET(L)) GO TO 5920 5910 CONTINUE GO TO 8 5920 CONTINUE IF (M(7).NE.MS .AND. M(7).NE.ML) GO TO 8 N = 10 GO TO 3 C C****** 308 - GUST C 7600 IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8 IF (RM(3).EQ.0.0 .OR. RM(5).EQ.0.0) GO TO 8 N = 5 GO TO 3 C C***** 198-PLOAD1 **************************************** C 6000 IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8 I(1) = M(1) I(2) = M(2) DO 6010 L = 1,12 IF (M(3) .EQ. ITYPE(L)) GO TO 6020 6010 CONTINUE GO TO 8 6020 I(3) = L DO 6030 L = 1,4 IF (M(5) .EQ. ISCAL(L)) GO TO 6040 6030 CONTINUE GO TO 8 6040 I(4) = L IF (RM(9) .EQ. 0.0) RM(9) = RM(7) IF (RM(9) .LT. RM(7)) GO TO 8 DO 6050 L = 7,10 6050 I(L-2) = M(L) N = 8 GO TO 2 C C***** 275-CBARAO **************************************** C 6100 IF (M(1) .LE. 0) GO TO 8 I(1) = M(1) DO 6110 L = 1,2 IF (M(2) .EQ. ISCAL(L)) GO TO 6120 6110 CONTINUE GO TO 8 6120 I(2) = L DO 6130 L = 4,9 6130 I(L-1) = M(L) N = 9 IF (MF(3) .EQ. 2) GO TO 6140 IF (MF(3) .NE. 1) GO TO 7 IF (I(3) .LE. 0) GO TO 8 IF (I(3) .GT. 20) I(3) = 20 IF (RM(5).LE.0.0 .OR. RM(6).LE.0.0) GO TO 8 I(9) = -1 GO TO 2 6140 I(9) = 1 DO 6150 L = 4,9 IF (RM(L) .LT. 0.0) GO TO 8 6150 CONTINUE GO TO 2 C C***** 276-PLIMIT **************************************** C 6200 IF (MF(1) .NE. 3) GO TO 7 IF (MF(2).NE.2 .AND. MF(2).NE.0) GO TO 7 IF (RM(3) .LT. 0.0) GO TO 8 IF (RM(3).EQ.0.0 .AND. RM(4).EQ.0.0) GO TO 8 IF (RM(4) .EQ. 0.0) GO TO 6210 IF (MF(3).NE.2 .OR. RM(4).LE.RM(3)) GO TO 8 6210 IF (MF(5) .EQ.3 ) GO TO 6230 DO 6220 L = 4,8 IF (MF(L).NE.0 .AND. MF(L).NE.1) GO TO 7 IF (M(L+1) .LT. 0) GO TO 8 6220 CONTINUE GO TO 6240 6230 IF (M(6) .NE. THRU) GO TO 8 IF (MF(4).NE.1 .OR. MF(6).NE.1) GO TO 7 IF (M(8) .LE. M(5)) GO TO 8 6240 N = 9 GO TO 3 C C***** 277-POPT **************************************** C 6300 IF (M(1).LE.0 .OR. M(4).EQ.0) GO TO 8 IF (IPOPT .NE. 0) GO TO 8 IPOPT = 1 IF (RM(2) .LT. 0.0) GO TO 8 IF (RM(3) .LE. 0.0) GO TO 8 IF (M(5).NE.IYES .AND. M(5).NE.INO) GO TO 8 N = 6 GO TO 3 C C****** 278 PLOADX ****************************************** C 6900 IF (M(1) .LE. 0) GO TO 8 IF (M(4).LE.0 .OR. M(5).LE.0 .OR. M(6).LE.0) GO TO 8 N = 6 GO TO 3 C C C C ****************************************************************** C C PROCESS ADUM-I CARDS. C 8100 CONTINUE IF (M(1) .LE. 0) GO TO 8 IF (M(2) .LT. 0) GO TO 8 IF (M(3) .LT. 0) GO TO 8 IF (M(4).NE.3 .AND. M(4).NE.6) GO TO 8 IF (MF(5).NE.0 .OR. MF(6).NE.0 .OR. MF(7).NE.0 .OR. MF(8).NE.0) 1 GO TO 7 KDUMEL(IDUMEL) = M(4) + 10*(M(3) + 1000*(M(2) + 1000*M(1))) C C PUT IN CONNECTION AND PROPERTY CARD NAME IF SUPPLIED BY USER C IF (MF(5).NE. 3) GO TO 8150 NBPC = JUNK(36) NCPW = JUNK(38) NSHT = NBPC*(NCPW-1) NM1 = T1(1,K) NM2 = T1(2,K) NM1 = RSHIFT(LSHIFT(NM1,NBPC),NBPC) C = LSHIFT(RSHIFT(C,NSHT),NSHT) NM1 = ORF(NM1,C) P = LSHIFT(RSHIFT(P,NSHT),NSHT) DO 8110 L = 1,NCDS IF (NM1.EQ.T1(1,L) .AND. NM2.EQ.T1(2,L)) GO TO 8120 8110 CONTINUE GO TO 8150 8120 T1(1,L) = M(5) T1(2,L) = M(6) NM1 = ORF(P,RSHIFT(LSHIFT(NM1,NBPC),NBPC)) DO 8130 L = 1,NCDS IF (NM1.EQ.T1(1,L) .AND. NM2.EQ.T1(2,L)) GO TO 8140 8130 CONTINUE GO TO 8150 8140 M(5) = ORF(P,RSHIFT(LSHIFT(M(5),NBPC),NBPC)) T1(1,L) = M(5) T1(2,L) = M(6) 8150 CONTINUE RETURN 3 C C ****************************************************************** C C PROCESS CDUM-I CARDS. C 8200 CONTINUE C C ============== C ONLY DO THIS FOR FIRST ONE IF I CAN FIGURE OUT HOW C ASSIGN 8210 TO RET GO TO 9010 8210 CONTINUE C ============== C IF (MF(1).NE.1 .OR. MF(2).NE.1) GO TO 7 IF (M(1).LE.0 .OR. M(2) .LE.0) GO TO 8 L1 = NDUMG + 2 DO 8220 L = 3,L1 IF (MF(L) .NE. 1) GO TO 7 IF (M(L) .LE. 0) GO TO 8 IF (L .EQ. 3) GO TO 8220 L3 = L - 1 DO 8215 L2 = 3,L3 IF (M(L2)-M(L)) 8215,8,8215 8215 CONTINUE 8220 CONTINUE N = NDUMC GO TO 3 C C ****************************************************************** C C PROCESS PDUM-I CARDS. C 8300 CONTINUE C C ============== C ONLY DO THIS FOR FIRST ONE IF I CAN FIGURE OUT HOW C ASSIGN 8310 TO RET GO TO 9010 8310 CONTINUE C ============== C IF (MF(1).NE.1 .OR. MF(2).NE.1) GO TO 7 IF (M(1).LE.0 .OR. M(2) .LE.0) GO TO 8 N = NDUMP GO TO 3 C C ****************************************************************** C C DECODE ADUM-I CARD CONTENTS AS PACKED INTO /SYSTEM/ C 9010 CONTINUE NDUMG = KDUMEL(IDUMEL)/10000000 NDUMD = KDUMEL(IDUMEL) - 10000000*NDUMG NDUMC = NDUMD/10000 NDUMP = (NDUMD - NDUMC*10000)/10 NDUMD = KDUMEL(IDUMEL) - (KDUMEL(IDUMEL)/10)*10 NDUMC = NDUMG + NDUMC + 2 NDUMP = NDUMP + 2 IF (NDUMC .GT. 24) GO TO 8 IF (NDUMP .GT. 24) GO TO 8 GO TO RET, (8210,8310) 9999 RETURN C END ================================================ FILE: mis/ift.f ================================================ SUBROUTINE IFT C C INVERSE FOURIER TRANSFORM MODULE (IFT) C C DMAP CALLING SEQ. C C IFT UHVF,CASECC,TRL,FOL/UHVT,TOL/C,Y,IFTM C INTEGER SYSBUF, IZ(1),UHVF,UHVT,CASECC,TRL,TOL,FOL,NAME(2), 1 MCB(7),FILE,MCB1(7) COMMON /SYSTEM/SYSBUF,NOUT COMMON /PACKX/IT1,IT2,II,JJ,INCR COMMON /UNPAKX/IT3,II1,JJ1,INCR1 COMMON /CONDAS/ PHI,TWOPI COMMON /ZZZZZZ/ Z(1) COMMON /BLANK/ IFTM EQUIVALENCE (Z(1),IZ(1)) DATA UHVF,CASECC,TRL,FOL,UHVT,TOL/101,102,103,104,201,202/ DATA NAME /4HIFT , 1H / C C VARIABLE CORE C C CONTENT LENGTH POINTER C ------- ------ ------- C FOL NFREQ IFREQ C TSTEP NGROUP*3 ITSTP C UHVF NMODES*NFREQ*2 IUHVF C CK NBIG ICK C SK NBIG ISK C UDOT NMODES*NFREW*2 IUDOT C UHVT NMODES IUVT C C C C PUT FOL INTO CORE C NZ = KORSZ(IZ) IBUF1 = NZ-SYSBUF+1 IBUF2 = IBUF1-SYSBUF NZ = NZ-2*SYSBUF FILE = FOL CALL OPEN(*900,FOL,IZ(IBUF1),0) CALL FREAD(FOL ,IZ,-2,0) CALL READ(*910,*10,FOL,IZ,NZ,0,NFREQ) CALL MESAGE(-8,0,NAME) 10 CALL CLOSE(FOL ,1) IFREQ = 1 NZ = NZ-NFREQ ITSTP=NFREQ+1 C C DEFINE BASIC SIZES C MCB(1) = UHVF CALL RDTRL(MCB) NLOAD = MCB(2)/NFREQ NMODES = MCB(3) MCB(1) = UHVT MCB(2) = 0 MCB(5) = 1 MCB(6) = 0 MCB(7) = 0 K = NFREQ + 2*(NMODES*NFREQ*2) + NMODES IF(K .GT. NZ) CALL MESAGE(-8,0,NAME) C C DETERMINE IF EQUAL FREQ - CONVERT TO W'S C DELW = Z(IFREQ+1)-Z(IFREQ) EPSI = DELW*1.E-6 J = NFREQ-1 IEQUAL = 1 DO 20 I=1,J M = IFREQ+I-1 IF( ABS(Z(M+1)-Z(M)-DELW) .GE. EPSI) IEQUAL = 0 Z(M) = Z(M)*TWOPI 20 CONTINUE Z(IFREQ+NFREQ-1) = Z(IFREQ+NFREQ-1)*TWOPI DELW = DELW*TWOPI C C FIRST FREQUENCY MUST BE MULTIPLE OF DELW C NBIG = ABS(Z(IFREQ)/DELW)+.1 IF(ABS(FLOAT(NBIG)*DELW-ABS(Z(IFREQ))) .GT. EPSI) IEQUAL = 0 LLL = NBIG -1 C C FIND TSTEP IN TRL C CALL GOPEN(CASECC,IZ(IBUF1),0) CALL FREAD(CASECC,0,-37,0) CALL FREAD(CASECC,J,1,0) CALL CLOSE(CASECC,1) FILE = TRL CALL OPEN(*900,TRL,IZ(IBUF1),0) CALL FREAD(TRL,MCB1,3,1) M = MCB1(3) CALL SKPREC(TRL,M) 25 CONTINUE CALL FREAD(TRL,M,1,0) IF(M .EQ. J) GO TO 30 CALL FREAD(TRL,0,0,1) GO TO 25 C C FOUND TSTEP C 30 CALL READ(*910,*40,TRL,IZ(ITSTP),NZ,0,NGROUP) CALL MESAGE(-8,0,NAME) 40 NZ = NZ-NGROUP IUHVF = ITSTP+NGROUP CALL CLOSE(TRL,1) NGROUP = NGROUP/3 IF(NGROUP .NE. 1) IEQUAL = 0 IF( IEQUAL .EQ. 0 ) GO TO 50 C C FORCE WAT TO BE INTEGER MULTIPLE OF TWOPI/N C FBIG = TWOPI/(DELW*Z(ITSTP+1)) NBIG = FBIG+.9 Z(ITSTP+1) = TWOPI/(FLOAT(NBIG)*DELW) 50 CONTINUE C C BUILD / WRITE TOL C FILE = TOL CALL OPEN(*900,TOL,IZ(IBUF1),1) CALL FNAME(TOL,MCB1) CALL WRITE(TOL,MCB1,2,0) DELT = Z(ITSTP+1) T = 0.0 N = 0 M = ITSTP DO 60 I=1,NGROUP NSTEP = IZ(M) IF(I .EQ. 1) NSTEP = NSTEP +1 M = M+3 DO 70 J=1,NSTEP CALL WRITE(TOL,T,1,0) N = N+1 IF(J .EQ. NSTEP .AND. I .NE. NGROUP) DELT = Z(M+1) T = T+DELT 70 CONTINUE 60 CONTINUE CALL WRITE(TOL,0,0,1) CALL CLOSE(TOL,1) MCB1(1) = TOL MCB1(2) = NGROUP MCB1(3) = N MCB1(4) = 0 MCB1(5) = 0 MCB1(6) = 0 MCB1(7) = 0 CALL WRTTRL(MCB1) C C BUILD TABLE OF CK, SK C ICK = IUHVF + 2*NMODES*NFREQ ISK = ICK IUDOT = ISK IF( IEQUAL .EQ. 0 ) GO TO 100 ISK = ICK + NBIG IUDOT = ISK + NBIG M = ICK M1 = ISK M2 = ISK J = IUDOT RP = COS(TWOPI/FLOAT(NBIG)) CP = SIN(TWOPI/FLOAT(NBIG)) I = M N = M1+1 L = M2 KK = J Z(I) = 1.0 Z(L) = 0.0 65 IF(M1-I-2) 61,62,63 62 CMNR = -1. CMNC = 0. GO TO 64 63 CMNR = RP*Z(I) -CP*Z(L) CMNC = CP*Z(I) +RP*Z(L) 64 I = I+1 L = L+1 M1 = M1-1 KK = KK-1 Z(I) = CMNR Z(L) = CMNC Z(M1) = CMNR Z(KK) = -CMNC GO TO 65 61 CONTINUE C GET READY FOR OUTPUTS C 100 CALL GOPEN(UHVF,IZ(IBUF1),0) CALL GOPEN(UHVT,IZ(IBUF2),1) IT1 = 1 IT2 = 1 II = 1 JJ=NMODES INCR = 1 IT3 = 3 II1 = 1 JJ1 = NMODES INCR1 = 1 IUVT = IUDOT IF(IFTM .EQ. 2) IUVT = IUVT+2*NFREQ*NMODES ASSIGN 235 TO IHOP C C BEGIN LOOP ON LOADS C DO 200 I=1,NLOAD C C PUT UHVF INTO CORE C DO 110 J=1,NFREQ M = IUHVF+(J-1)*NMODES*2 CALL UNPACK(*120,UHVF,Z(M)) GO TO 110 120 CALL ZEROC(Z(M),2*NMODES) 110 CONTINUE IF(IFTM .NE. 2) GO TO 150 ASSIGN 236 TO IHOP C C COMPUTE SPLINE FIT FOR U DOT C C C COMPUTE A'S C IAP = IUVT + NMODES M =NFREQ + IAP - 1 Z(M) = 0.0 L = NFREQ-2 IF(L .LE. 0) GO TO 126 DO 125 J=1,L M = IAP + NFREQ -J-1 N = IFREQ + NFREQ-J-1 Z(M) = (Z(N) - Z(N-1))/(2.*(Z(N+1)-Z(N-1))-(Z(N+1)-Z(N))*Z(M+1)) 125 CONTINUE 126 CONTINUE C C COMPUTE U DOT DOT C DO 122 M1=1,NMODES M = IUDOT +(NFREQ-1)*NMODES*2 +(M1-1)*2 Z(M) = 0.0 Z(M+1) = 0.0 C C BEGIN BACKWARD PASS C M2= IUHVF +(NFREQ-1)*NMODES*2 +(M1-1)*2 IF(L .LE. 0) GO TO 122 DO 130 J=1,L N2 = M M = M-NMODES*2 N = IFREQ + NFREQ -J-1 M2 = M2-NMODES*2 KK = IAP + NFREQ-J LL = M2+2*NMODES RP = Z(N+1) - Z(N) CP = Z(N) -Z(N-1) N1 = M2-2*NMODES Z(M) = (6. *((Z(LL)-Z(M2))/RP-(Z(M2)-Z(N1))/CP)-RP*Z(KK)*Z(N2)) U /CP Z(M+1) = (6.*((Z(LL+1)-Z(M2+1))/RP-(Z(M2+1)-Z(N1+1))/CP)-RP*Z(KK)* 1 Z(N2+1))/CP 130 CONTINUE 122 CONTINUE C C BEGIN FORWARD PASS C DO 135 M1=1,NMODES M = IUDOT +(M1-1)*2 M2 = IUHVF +(M1-1)*2 N1 = M2+2*NMODES LL = M+2*NMODES RP = Z(IFREQ+1) -Z(IFREQ) Z(M) =(6.*(Z(N1)-Z(M2))/RP-RP*Z(IAP+1)*Z(LL))/(6.*Z(IFREQ)+(RP)* 1 (2.-Z(IAP+1)) ) Z(M+1) = 0.0 DO 138 J=2,NFREQ KK = IAP+J-1 M2 = M M = M+2*NMODES Z(M) = Z(KK)*(Z(LL) - Z(M2)) Z(M+1) = Z(KK)*(Z(LL+1)-Z(M2+1)) LL = LL + 2*NMODES 138 CONTINUE 135 CONTINUE 150 CONTINUE T = 0.0 N = 0 M = ITSTP DELT = Z(ITSTP+1) C C BEGIN LOOP ON TIMES C DO 160 L=1,NGROUP NSTEP = IZ(M) IF(L .EQ. 1) NSTEP = NSTEP+1 M = M+3 DO 170 J=1,NSTEP TT = T CALL ZEROC(Z(IUVT),NMODES) C C BEGIN LOOP ON FREQUENCIES C LX = LLL DO 180 LL=1,NFREQ LX = LX+1 WN = Z(IFREQ+LL-1) IF(LL .EQ. 1) GO TO 191 WNM1 = Z(IFREQ+LL-2) 191 IF(LL .EQ. NFREQ) GO TO 192 WNP1 = Z(IFREQ+LL) 192 CONTINUE IF(IEQUAL .EQ. 0) GO TO 190 KK = MOD(LX*N,NBIG) CK = Z(ICK+KK) SK = Z(ISK+KK) GO TO 195 190 CK = COS(WN*TT) SK = SIN(WN*TT) 195 CONTINUE C C COMPUTE CMN, DMN C IF(IFTM .NE. 0) GO TO 220 C C IFTM =0 C CMNC = 0.0 IF(LL .EQ. 1) GO TO 196 IF(LL .EQ. NFREQ) GO TO 197 CMNR = (WNP1-WNM1)*.5 GO TO 230 196 CONTINUE CMNR = WNP1-WN IF(WN .EQ. 0.0) CMNR = CMNR*.5 GO TO 230 197 CMNR = WN -WNM1 GO TO 230 C C IFTM = 1 C 220 CONTINUE IF(LL .EQ. 1) GO TO 221 IF(LL.GT. 2 .AND. IEQUAL .NE. 0 .AND. LL .NE. NFREQ) GO TO 223 R1 = WN-WNM1 CALL IFTE2(-TT*R1,RP,CP) CMNR = R1*.5*RP CMNC = R1*.5*CP GO TO 222 221 CMNR = 0. CMNC = 0. 222 CONTINUE IF(LL .EQ. NFREQ) GO TO 223 R2 = WNP1-WN CALL IFTE2(TT*R2,RP,CP) CMNR = CMNR+R2*.5*RP CMNC = CMNC+R2*.5*CP 223 IF(IFTM .EQ. 2) GO TO 229 DMNR = 0.0 DMNC = 0.0 GO TO 230 229 CONTINUE C C IFTM = 2 C IM2 = IUDOT -2 +(LL-1)*NMODES*2 IF(LL .EQ. 1) GO TO 224 IF(LL .GT. 2 .AND. IEQUAL .NE. 0 .AND. LL .NE. NFREQ) GO TO 230 CALL IFTG(-TT*R1,RP,CP) R1 = -R1*R1*R1/24. DMNR = R1*RP DMNC = R1*CP GO TO 228 224 CONTINUE DMNR = 0.0 DMNC = 0.0 228 CONTINUE IF(LL .EQ. NFREQ) GO TO 230 CALL IFTG(TT*R2,RP,CP) R2 = -R2*R2*R2/24. DMNR = DMNR+R2*RP DMNC = DMNC+R2*CP 230 CONTINUE IM1 = IUHVF-2 +(LL-1)*NMODES*2 C C BEGIN LOOP ON MODES C DO 240 KK=1,NMODES IM = IM1+2*KK RP = CMNR*Z(IM)-CMNC*Z(IM+1) CP = CMNC*Z(IM)+CMNR* Z(IM+1) GO TO IHOP,(235,236) 236 CONTINUE IM = IM2+2*KK RP = RP+DMNR*Z(IM)-DMNC*Z(IM+1) CP = CP+DMNC*Z(IM)+DMNR*Z(IM+1) 235 CONTINUE Z(IUVT+KK-1) = Z(IUVT+KK-1) + RP*CK-CP*SK C C END LOOP ON MODES C 240 CONTINUE C C END LOOP ON FREQUENCIES C 180 CONTINUE DO 181 KK=1,NMODES Z(IUVT+KK-1) = Z(IUVT+KK-1)/PHI 181 CONTINUE CALL PACK(Z(IUVT),UHVT,MCB) DO 182 KK =1,2 CALL BLDPK(1,1,UHVT,0,0) CALL BLDPKN(UHVT,0,MCB) 182 CONTINUE IF(J .EQ. NSTEP) DELT = Z(M+1) T = T + DELT N = N+1 170 CONTINUE C C END LOOP ON TIME C 160 CONTINUE C C END LOOP ON LOADS C 200 CONTINUE CALL CLOSE(UHVF,1) CALL CLOSE(UHVT,1) CALL WRTTRL(MCB) RETURN C C ERROR MESSAGES C 900 N1=-1 901 CALL MESAGE(N1,FILE,NAME) CALL PEXIT 910 N1=-2 GO TO 901 END ================================================ FILE: mis/ifte2.f ================================================ SUBROUTINE IFTE2(THA,RP,CP) DATA THAO,EPSI /.1,1.E-9 / IF(ABS(THA) .LT. THAO ) GO TO 100 D = .5* THA*THA RP = (1. - COS(THA))/D CP = (THA - SIN(THA))/D RETURN C C EVALUATE SERIES C 100 CONTINUE RN = 1.0 D = 1.0 SIGN = -1. RPS = 1.0 TSQ = THA*THA T1=3. T2=4. IT = 1 101 CONTINUE DO 110 I=1,50 RN = RN*TSQ D = D*T1*T2 TRM = RN/D*SIGN RPS = RPS+TRM IF(ABS(TRM) .LT. EPSI) GO TO 120 SIGN = -SIGN T1 = T1+2. T2 = T2+2. 110 CONTINUE 120 CONTINUE IF(IT .EQ. 2) GO TO 125 RP = RPS RN = THA D = 3.0 SIGN = -1. RPS = THA/3. T1 = 4. T2 = 5. IT = 2 GO TO 101 125 CONTINUE CP = RPS RETURN END ================================================ FILE: mis/ifte4.f ================================================ SUBROUTINE IFTE4(THA,RP,CP) DATA THAO,EPSI /.1,1.E-9 / IF(ABS(THA) .LT. THAO) GO TO 100 D = THA**4/24. RP = ((.5*(THA*THA))-1.+ COS(THA))/D CP = ((THA**3/6.)-THA+SIN(THA))/D RETURN C C EVALUATE SERIES C 100 CONTINUE RN = 1.0 D = 1.0 SIGN = -1. RPS = 1. TSQ = THA*THA T1 = 5. T2 = 6. IT = 1 101 CONTINUE DO 110 I=1,50 RN = RN*TSQ D = D*T1*T2 TRM = RN/D*SIGN RPS = RPS + TRM IF(ABS(TRM) .LT. EPSI) GO TO 120 SIGN = -SIGN T1 = T1+2. T2 = T2+2. 110 CONTINUE 120 CONTINUE IF(IT .EQ. 2) GO TO 125 RP = RPS RN = THA D = 5.0 SIGN = -1. RPS = THA/5. T1 = 6. T2 = 7. IT = 2 GO TO 101 125 CONTINUE CP = RPS RETURN END ================================================ FILE: mis/iftg.f ================================================ SUBROUTINE IFTG(THA,RP,CP) CALL IFTE2(THA,R,C) CALL IFTE4(THA,R1,C1) RP = 2.*R - R1 CP = 2.*C - C1 RETURN END ================================================ FILE: mis/ihex.f ================================================ SUBROUTINE IHEX(TEMPS,PG,TYPE) C C ELEMENT THERMAL LOAD GENERATOR FOR ISOPARAMETRIC SOLID ELEMENTS C C TYPE = 1 CIHEX1 C TYPE = 2 CIHEX2 C TYPE = 3 CIHEX3 C C*********************************************************************** C THE EST ENTRIES ARE C C NAME ---------INDEX--------- DESCRIPTION C IHEX1 IHEX2 IHEX3 C C EID 1 1 1 ELEMENT ID NO. C SIL 2-9 2-21 2-33 SCALAR INDEX LIST C MID 10 22 34 MATERIAL ID NO. C CID 11 23 35 MATERIAL COORD. SYSTEM ID NO. C NIP 12 24 36 NO. INTEGRATION POINTS PER EDGE C MAXAR 13 25 37 MAX ASPECT RATIO C ALFA 14 26 38 MAX ANGLE FOR NORMALS C BETA 15 27 39 MAX ANGLE FOR MIDSIDE POINTS C BGPDT 16-47 28-107 40-167 BASIC GRID POINT DATA C GPT 48-55 108-127 168-199 GRID POINT TEMPERATURES C*********************************************************************** C LOGICAL TDEP ,MTDEP ,ANIS ,RECT C INTEGER TYPE ,OTPT ,EID ,IEST(1) ,BGPDT , 2 BCORD ,GPT ,JZ(32) ,SIL ,CID , 3 UFM(6) INTEGER IB(46) C DOUBLE PRECISION SHP ,DSHP ,JACOB ,DETJ 1, S ,SFACT ,A(6) ,E1 ,E2 2, E3 ,PARG(96) ,CN(3,32) ,TEMP ,ELTEMP 3, ALPVEC ,GMAT(36) ,GAUSS(8) ,DALPHA(6) C REAL TEMPS(1) ,PG(1) ,PSGL(96) C COMMON/TRIMEX/ EST(200) COMMON/MATIN/ MID ,INFLAG ,ELTEMP COMMON/MATOUT/ SE ,G ,SNU ,RHO , 2 TALPHA,TREF,CDAMP,SPACE(18), 3 MTDEP COMMON/MATISO/ BUFM6(46) COMMON/SYSTEM/ SYSBUF ,OTPT ,SYS1(7) ,MTEMP , 2 SYS2(45),HEAT C COMMON/SSGWRK/ SHP(32) ,DSHP(3,32) ,JACOB(3,3) ,S(4) 1, H(4) C EQUIVALENCE (EID,EST(1),IEST(1)),(JZ(1),SHP(1)) EQUIVALENCE (PSGL(1),PARG(1)) EQUIVALENCE (IB(1),BUFM6(1)) C DATA GAUSS/ 0.577350269189626D0 ,0.555555555555556D0 1, 0.774596669241483D0 ,0.888888888888889D0 2, 0.347854845137454D0 ,0.861136311594053D0 3, 0.652145154862546D0 ,0.339981043584856D0/ DATA UFM /4H0***,4H USE,4HR FA,4HTAL ,4HMESS,4HAGE / C C***** C COMPUTE EST POINTERS C***** NGP = 12*TYPE - 4 MID = 10 + 12*(TYPE - 1) CID=IEST(MID+1) NIP=IEST(MID+2) IF (NIP .LT. 2 .OR. NIP .GT. 4) NIP=TYPE/2+2 BGPDT = MID + 6 GPT=BGPDT+4*NGP DO 110 I=1,NGP 110 JZ(I) = IEST(BGPDT + 4*I - 4) BCORD=GPT-3 DO 120 I=2,NGP DO 120 J=1,3 K = BGPDT + 4*(NGP - I) + 4 - J BCORD = BCORD - 1 EST(BCORD) = EST(K) 120 CONTINUE DO 130 I=2,NGP 130 IEST(BGPDT+I-1) = JZ(I) MID=IEST(NGP+2) C C ABSCISSAE AND WEIGHT COEFFICIENTS FOR GAUSSIAN QUADRATURE C I=NIP-1 GO TO (131,132,133),I 131 H(1)=1.0 S(1)=GAUSS(1) H(2)=H(1) S(2)=-S(1) GO TO 134 132 H(1)=GAUSS(2) S(1)=GAUSS(3) H(2)=GAUSS(4) S(2)=0.0 H(3)=H(1) S(3)=-S(1) GO TO 134 133 H(1)=GAUSS(5) S(1)=GAUSS(6) H(2)=GAUSS(7) S(2)=GAUSS(8) H(3)=H(2) S(3)=-S(2) H(4)=H(1) S(4)=-S(1) 134 CONTINUE C C======================================================================= C THIS SECTION OF CODE MUST BE UPDATED WHEN GENERAL ANISOTROPIC C MATERIAL IS ADDED C C TEST FOR ANISOTROPIC MATERIAL C ANIS = .FALSE. INFLAG=10 C C TEST FOR RECTANGULAR COORDINATE SYSTEM IN WHICH THE ANISOTROPIC C MATERIAL IS DEFINED C RECT = .TRUE. C======================================================================= C C FETCH MATERIAL AND SET TEMPERATURE DEPENDENCE FLAG C TDEP=.TRUE. DO 140 I=2,NGP IF (EST(GPT) .NE. EST(GPT+I-1)) GO TO 150 140 CONTINUE TDEP=.FALSE. 150 ELTEMP=EST(GPT) CALL MAT(EID) IF (.NOT. MTDEP) TDEP=.FALSE. IF (IB(46).EQ.6) ANIS=.TRUE. TREF=BUFM6(44) C***** C IF ISOTROPIC TEMPERATURE INDEPENDENT MATERIAL, COMPUTE CONSTANTS C***** IF (TDEP) GO TO 800 IF (ANIS) GO TO 700 IF (IB(46).NE.0) GO TO 640 CALL PAGE2(2) WRITE(OTPT,7300) UFM,MID,EID NOGO = 1 RETURN 640 E1=BUFM6(1) E2=BUFM6(2) E3=BUFM6(22) TALPHA=BUFM6(38) GO TO 800 C C======================================================================= C CODE TO TRANSFORM GENERAL ANISOTROPIC MATERIAL PROPERTIES TO C BASIC COORDINATE SYSTEM MUST BE ADDED HERE C======================================================================= C 700 DO 710 IJK=1,36 710 GMAT(IJK)=BUFM6(IJK) 800 NTLP = 3*NGP DO 900 I=1,NTLP 900 PARG(I) = 0.0 C***** C BEGIN INTEGRATION LOOP NOW C***** DO 2000 I=1,NIP DO 2000 J=1,NIP DO 2000 K=1,NIP C***** C GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE C***** CALL IHEXSD(TYPE,SHP,DSHP,JACOB,DETJ,EID,S(I),S(J),S(K), 2 EST(BCORD)) IF (DETJ .NE. 0.0D0) GO TO 1010 C C JACOBIAN MATRIX WAS SINGULAR C CALL MESAGE(-61,0,0) C***** C COMPUTE PARTIAL DERIVATIVE OF SHAPE FUNCTIONS WITH RESPECT C TO BASIC COORDINATES C***** 1010 CALL GMMATD(DSHP,NGP,3,0,JACOB,3,3,0,CN) C***** C COMPUTE LOADING TEMPERATURE AT THIS INTEGRATION POINT C***** TEMP=0.0D0 DO 1012 L=1,NGP 1012 TEMP=TEMP+SHP(L)*DBLE(TEMPS(L)) TEMP=TEMP-DBLE(TREF) C***** C IF MATERIAL IS TEMPERATURE DEPENDENT, COMPUTE TEMPERATURE AT THIS C INTEGRATION POINT AND FETCH MATERIAL PROPERTIES C***** IF(.NOT.TDEP) GO TO 1030 ELTEMP=0.0D0 DO 1020 L=1,NGP 1020 ELTEMP=ELTEMP+SHP(L)*DBLE(EST(GPT+L-1)) CALL MAT(EID) IF (ANIS) GO TO 1040 IF (IB(46).NE.0) GO TO 1025 CALL PAGE2(2) WRITE(OTPT,7300) UFM,MID,EID NOGO = 1 RETURN 1025 E1=BUFM6(1) E2=BUFM6(2) E3=BUFM6(22) TALPHA=BUFM6(38) GO TO 1100 C***** C IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN RECTANGULAR COOR- C DINATE SYSTEM, MUST TRANSFORM TO BASIC COORDINATE SYSTEM AT THIS C INTEGRATION POINT C***** 1030 IF(.NOT. ANIS) GO TO 1100 IF (RECT) GO TO 1500 1040 CONTINUE DO 1041 IJK=1,36 1041 GMAT(IJK)=BUFM6(IJK) C C======================================================================= C INSERT GLOBAL TO BASIC TRANSFORMATION OPERATIONS HERE FOR C ANISOTROPIC MATERIAL MATRIX GO TO 1500 C======================================================================= C***** C COMPUTE CONTRIBUTION TO THERMAL LOAD VECTOR FOR ISOTROPIC MATERIAL C***** 1100 ALPVEC=DBLE(TALPHA)*(E1+2.0*E2) SFACT=H(I)*H(J)*H(K)*DETJ*ALPVEC*TEMP L = 0 DO 1400 II=1,NGP DO 1400 JJ=1,3 L = L + 1 PARG(L) = SFACT*CN(JJ,II) + PARG(L) 1400 CONTINUE GO TO 2000 C======================================================================= 1500 CONTINUE C ADD LOAD COMPUTATIONS FOR ANISOTROPIC MATERIAL HERE C======================================================================= C SFACT=H(I)*H(J)*H(K)*DETJ*TEMP DO 1560 IJK=1,6 1560 DALPHA(IJK)=BUFM6(IJK+37) C CALL GMMATD(GMAT,6,6,0,DALPHA,6,1,0,A(1)) L=0 DO 1600 II=1,NGP L=L+1 PARG(L)=PARG(L)+SFACT*(CN(1,II)*A(1)+CN(2,II)*A(4)+CN(3,II)*A(6)) L=L+1 PARG(L)=PARG(L)+SFACT*(CN(2,II)*A(2)+CN(1,II)*A(4)+CN(3,II)*A(5)) L=L+1 PARG(L)=PARG(L)+SFACT*(CN(3,II)*A(3)+CN(2,II)*A(5)+CN(1,II)*A(6)) 1600 CONTINUE 2000 CONTINUE DO 2100 I=1,NTLP 2100 PSGL(I)=PARG(I) C***** C INSERT THERMAL LOAD INTO GLOBAL LOAD VECTOR (PG ARRAY) C***** C DO 3000 I=1,NGP SIL = IEST(I+1) IBGP = BGPDT + I - 1 IF (IEST(IBGP) .EQ. 0) GO TO 2500 CALL BASGLB(PSGL(3*I-2),PSGL(3*I-2),EST(BCORD+3*I-3),IEST(IBGP)) 2500 DO 2600 J=1,3 PG(SIL+J-1)=PG(SIL+J-1)+PSGL(3*I-3+J) 2600 CONTINUE 3000 CONTINUE C C 7300 FORMAT(6A4,69H4005. AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED UN 2DER MATERIAL ID =,I10,17H FOR ELEMENT ID =,I10) RETURN END ================================================ FILE: mis/ihexd.f ================================================ SUBROUTINE IHEXD (TYPE) C C DOUBLE PRECISION VERSION C C THIS ROUTINE PROCESSES IHEX1, IHEX2, AND IHEX3 ELEMENT DATA TO C PRODUCE STIFFNESS AND MASS MATRICES. IF THE HEAT TRANSFER OPTION C IS ON, CONDUCTIVITY AND CAPACITY MATRICES ARE PRODUCED. IF THE C DISPLACEMENT VECTOR POINTER IS NON-ZERO, THE DIFFERENTIAL C STIFFNESS MATRIX ONLY IS PRODUCED. C C TYPE = 1 IHEX1 C TYPE = 2 IHEX2 C TYPE = 3 IHEX3 C C THE EST ENTRIES ARE C C NAME ----------INDEX---------- DESCRIPTION C IHEX1 IHEX2 IHEX3 C C EID 1 1 1 ELEMENT ID NO. C SIL 2-9 2-21 2-33 SCALAR INDEX LIST C MID 10 22 34 MATERIAL ID NO. C CID 11 23 35 MATERIAL COORD. SYSTEM ID NO. C NIP 12 24 36 NO. INTEGRATION POINTS PER EDGE C MAXAR 13 25 37 MAX ASPECT RATIO C ALFA 14 26 38 MAX ANGLE FOR NORMALS C BETA 15 27 39 MAX ANGLE FOR MIDSIDE POINTS C BGPDT 16-47 28-107 40-167 BASIC GRID POINT DATA C GPT 48-55 108-127 168-199 GRID POINT TEMPERATURES C C - INSTALLATION NOTE -- C GPTLD IS SUPPOSED TO CONTAIN GRID POINT TEMPERATURE LOADS FOR C COMPUTING DIFFERENTIAL STIFFNESS. FOR INSTALLATION, GPTLD MUST C BE LOADED WITH DATA BY EMG. IF GPTLD(1)=-1, NO TEMP LOAD IS C ASSUMED. C LOGICAL ANIS ,RECT ,TDEP ,DIAG , 1 MTDEP ,HEAT1 ,NOGO ,NOCSTM INTEGER HEAT ,EID ,SIL(1) ,SCR4 , 1 TYPE ,JZ(1) ,CID ,IEST(1) , 2 BCORD ,BGPDT ,GPT ,NC(8) , 3 EDGE ,FACE ,IB(46) ,ELNO(3) , 4 EXCD(3) ,TWINS(9) ,RVRS(5) ,IWORK(1) , 5 BACK ,OTPT ,UGV ,CDAMP , 6 DICT(40) REAL NU ,KHEAT ,MAXAR ,DMAXAR(3) , 1 DALFA(3) ,DBETA(2) ,EVEC(3,12) ,WORK(66) , 2 VN(3,2) ,GPTLD(32) ,BCD2(3) DOUBLE PRECISION Z(1) ,JACOB(3,3) ,DETJ ,S(4) , 1 H(4) ,GAUSS(8) ,SFACT ,PART(3,3) , 2 E1 ,E2 ,E3 ,TF(3,3) , 3 TK(3,3) ,PRT1 ,SIG(6) ,SX , 4 SY ,SZ ,SXY ,SYZ , 5 SZX ,STR(18) ,C(3,3) ,TEMP DOUBLE PRECISION GMAT(36) ,DALPHA(6) ,STORE(45) ,TVOL CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /MATIN/ MID ,INFLAG ,TEMP COMMON /MATOUT/ E ,G ,NU ,RHO , 1 TALPHA ,TREF ,CDAMP ,SPACE(18) , 3 MTDEP COMMON /MATISO/ BUFM6(46) C OMMON /MATISO/ G11,G12,G13,...,G46,G56,G66,RHO,AXX,AYY,AZZ,AXY, C AYZ,AZX,TREF,GE,IER COMMON /BLANK / SKIP16(16) ,VOLUME ,SURFAC COMMON /HMTOUT/ KHEAT(6) ,CP C COMMON /EMG***/ ...,UGV,... C C - INSTALLATION NOTE -- C UGV POINTS TO BEGINNING OF SINGLE PRECISION GLOBAL DISPLACEMENT C VECTOR IN OPEN CORE ARRAY RZ. C COMMON /EMGPRM/ IEXT ,IZS ,NZS ,DUM(12) , 1 KGG1 ,MGG1 ,BGG1 ,IPREC , 2 NOGO ,HEAT1 C C SZ IS OPEN CORE. USE ONLY RZ(IZS) TO RZ(NZS). C COMMON /ZZZZZZ/ RZ(1) COMMON /EMGEST/ EST(200) COMMON /SYSTEM/ SYSBUF ,OTPT ,SYS1(7) ,MTEMP COMMON /EMGDIC/ SPAC(2) ,NGRIDS ,SPAC1 ,IESTID EQUIVALENCE (Z(1),JZ(1),RZ(1)) ,(EID,EST(1),IEST(1)) , 1 (SIL(1),EST(2)) ,(WORK(1),IWORK(1)) , 2 (SIG(1),SX) ,(SIG(2),SY) , 3 (SIG(3),SZ) ,(SIG(4),SXY) , 4 (SIG(5),SYZ) ,(SIG(6),SZX) , 5 (DSTLD,IDSTLD) EQUIVALENCE (WORK(1),EVEC(1,1)) ,(WORK(37),VN(1,1)) , 1 (WORK(43),NC(1)) EQUIVALENCE (WORK(1),JACOB(1,1)) ,(WORK(19),H(1)) , 1 (WORK(27),S(1)) ,(WORK(35),PART(1,1)) , 2 (WORK(53),SIG(1)) ,(WORK(1),C(1,1)) EQUIVALENCE (WORK(1),TF(1,1)) ,(WORK(35),TK(1,1)) EQUIVALENCE (IB(1),BUFM6(1)) DATA SCR4 / 304 / DATA BCD1 , BCD2/ 4HCIHE, 4HX1 , 4HX2 , 4HX3 / DATA DMAXAR, DALFA,DBETA / 5.0 ,10.0 ,15.0 , 1 45.0 ,45.0 ,45.0 , 2 45.0 ,45.0 / DATA DTOR , GAUSS /0.017453292519943E0, 1 0.577350269189626D0, 2 0.555555555555556D0, 3 0.774596669241483D0, 4 0.888888888888889D0, 5 0.347854845137454D0, 6 0.861136311594053D0, 7 0.652145154862546D0, 8 0.339981043584856D0/ DATA IHEX,ELNO /4HIHEX,4H ELE,4HMENT,4H NO./ DATA BAR,BALFA,BBETA /4H AR,4HALFA,4HBETA/ DATA EXCD /4H EXC,4HEEDE,4HD. / DATA RVRS /4HREVE,4HRSED,4H NUM,4HBERI,4HNG. / DATA TWINS /4HCOOR,4HDINA,4HTES ,4HOF T,4HWO P, 1 4HOINT,4HS AR,4HE SA,4HME. / DATA NERR1,NERR2 /3301, 3302 / C C FOR DOUBLE PRECISION, OPEN CORE POINTERS MUST BE MODIFIED C IZ = IZS/2 + 1 NZ = NZS/2 + 1 C C THIS ROUTINE OPERATES IN DOUBLE PRECISION. C EMGOUT WILL PRODUCE THE REQUIRED MATRIX IN THE REQUESTED PRECISION C C ALLOCATE LARGE ARRAYS IN OPEN CORE C NGP = 12*TYPE - 4 HEAT = 0 KGG = 0 MGG = 0 IF (HEAT1) HEAT = 1 IF (KGG1 .NE. 0) KGG = 1 IF (MGG1 .NE. 0) MGG = 1 NGRIDS = NGP UGV = 0 NGG = 3*NGP DICT(1) = IESTID DICT(2) = 1 IF (.NOT.HEAT1) GO TO 5 DICT(3) = NGP DICT(4) = 1 GO TO 30 5 DICT(3) = NGG DICT(4) = 7 IF (KGG .LE. 0) GO TO 10 IK = IZ + 3*NGG NK = IK - 1 + (NGG+1)*NGG/2 GO TO 20 10 IK = IZ NK = IK + 3*NGG - 1 IM = NK + 1 NM = (NGP+1)*NGP/2 + NK GO TO 40 20 NM = NK IF (MGG .LE. 0) GO TO 40 IM = NK + 1 NM = NK + (NGP+1)*NGP/2 GO TO 40 30 IK = IZ + 17 NK = IK - 1 + NGP**2 IM = NK + 1 NM = IM - 1 + NGP**2 NGG= NGP 40 IN = NM + 1 IG = IN + NGP IX = IG + 3*NGP ND = NM + 9*NGP IF (UGV .EQ. 0) GO TO 50 ID = ND + 1 ND = ID + NGG - 1 50 IF (ND .LE. NZ) GO TO 100 WRITE (OTPT,7100) UFM,NERR1,IHEX,TYPE,ELNO,EID NOGO = .TRUE. C C ***** OPEN CORE MAP ***** C C DOUBLE PRECISION Z(1) C COMMON /EMGZZZ/ Z C C NGG = ORDER OF ELEMENT MATRIX C C INDEX STIFFNESS MASS HEAT C AND MASS ONLY TRANSFER C C IZ NGG BY 3 PARTITION NGG BY 3 PARTITION FOUR WORD COORDINATE C OF MATRIX OF MATRIX VECTOR. INPUT TO C TRANSD C C IZ+2 TRANSFORMED THERMAL C CONDUCTANCE MATRIX C C IT MATERIAL TRANSFOR- C MATION MATRIX C C IK SYMMETRIC HALF OF SAME AS IZ FULL CONDUCTANCE C STIFFNESS C C IM SYMMETRIC HALF OF SYMMETRIC HALF OF FULL CAPACITANCE C MASS MASS C C IN --------------------SHAPE FUNCTIONS------------------------- C C IG --------------------D(SHAPE)/D(GREEK)----------------------- C C IX --------------------D(SHAPE)/D(BASIC XYZ)------------------- C C ID DISPLACEMENT C VECTOR IN BASIC C COORDINATES C C CHECK GEOMETRY. THE FOLLOWING CHECKS ARE MADE C 1. ASPECT RATIO C 2. ANGLES BETWEEN NORMALS OF SUB-TRIANGLES ON EACH FACE C 3. ANGLES BETWEEN VECTORS BETWEEN POINTS ALONG EACH EDGE C 4. REVERSE SEQUENCING C 5. DUPLICATE COORDINATE VALUES C C FETCH EPT DATA, COMPUTE EST POINTERS C 100 MID = 10 + 12*(TYPE-1) CID = IEST(MID+1) NIP = IEST(MID+2) MAXAR= EST(MID+3) ALFA = EST(MID+4) BETA = EST(MID+5) BGPDT= MID + 6 GPT = BGPDT + NGP*4 MID = IEST(MID) IF (NIP.LT.2 .OR. NIP.GT.4) NIP = TYPE/2 + 2 IF (MAXAR .LE. 0.0) MAXAR = DMAXAR(TYPE) IF (ALFA .LT. 0.0) ALFA = DALFA(TYPE) IF (BETA.LT.0.0 .AND. TYPE.NE.1) BETA = DBETA(TYPE-1) ALFA = COS(DTOR*ALFA) BETA = COS(DTOR*BETA) IF (UGV .EQ. 0) GO TO 105 C C TRANSFORM DISPLACEMENT VECTOR TO BASIC COORDINATES C MULTIPLY BY 1/4 TO AVOID MULTIPLYING STRAIN-DISPLACEMENT C RELATIONS BY 1/2 UNDER THE INTEGRAL. DITTO FOR LOADING TEMP-S. C DSTLD = GPTLD(1) DO 104 I = 1,NGP M = BGPDT + 4*I - 4 J = UGV + SIL(I) - 1 K = ID + 3*I - 3 IF (IEST(M) .EQ. 0) GO TO 102 CALL TRANSD (EST(M),TK) DO 101 L = 1,3 101 Z(IZ+L-1) = DBLE(RZ(J+L-1)*0.25) CALL GMMATD (TK,3,3,0,Z(IZ),3,1,0,Z(N)) GPTLD(I) = 0.25*GPTLD(I) GO TO 104 102 DO 103 L = 1,3 103 Z(N+L-1) = DBLE(RZ(J+L-1)*0.25) GPTLD(I) = 0.25*GPTLD(I) 104 CONTINUE C C REARRANGE BGPDT C 105 DO 110 I = 1,NGP 110 JZ(IZS+I) = IEST(BGPDT+I*4-4) BCORD = GPT - 3 DO 120 I = 2,NGP DO 120 J = 1,3 K = BGPDT + 4*(NGP-I) + 4 - J BCORD = BCORD - 1 EST(BCORD) = EST(K) 120 CONTINUE DO 130 I = 2,NGP 130 IEST(BGPDT+I-1) = JZ(IZS+I) C C IF COMPUTING DIFFERENTIAL STIFFNESS, SKIP CHECKS C IF (UGV .GT. 0) GO TO 500 C C FIND 8 POINTERS TO CORNER COORDINATES IN EST C C EDGE CORNERS C 1 1 2 C 2 2 3 C 3 3 4 C 4 4 1 C 5 1 5 C 6 2 6 C 7 3 7 C 8 4 8 C 9 5 6 C 10 6 7 C 11 7 8 C 12 8 5 C NC(1) = BCORD J = 3*TYPE GO TO (140,150,160), TYPE 140 NC(5) = BCORD + 12 GO TO 170 150 NC(5) = BCORD + 36 GO TO 170 160 NC(5) = BCORD + 60 170 DO 180 I = 2,4 NC(I ) = NC(I-1) + J 180 NC(I+4) = NC(I+3) + J C C COMPUTE 12 EDGE VECTORS, FIND SMALLEST AND LARGEST MAGNITUDES C I = 0 J = 1 SMAG = 1.0E20 BMAG = 0.0 DO 250 EDGE = 1,12 GO TO (190,190,190,200,210,190,190,190,220,190,190,200), EDGE 190 I = I + 1 J = J + 1 L = NC(I) - 1 M = NC(J) - 1 GO TO 230 200 L = M M = NC(J-3) - 1 GO TO 230 210 I = 0 J = 4 GO TO 190 220 I = 4 J = 5 GO TO 190 230 TMAG = 0.0 DO 240 K = 1,3 EVEC(K,EDGE) = EST(M+K) - EST(L+K) 240 TMAG = TMAG + EVEC(K,EDGE)**2 IF (TMAG .LT. SMAG) SMAG = TMAG IF (TMAG .GT. BMAG) BMAG = TMAG 250 CONTINUE C C CHECK ASPECT RATIO C IF (SMAG .GT. 0.0) GO TO 260 SMAG = 1.0E-10 260 IF (BMAG/SMAG .LE. MAXAR**2) GO TO 265 WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,BAR,EXCD NOGO = .TRUE. C C CHECK ANGLES BETWEEN FACE NORMALS C C FACE CORNERS C 1 1 4 3 2 C 2 1 2 6 5 C 3 2 3 7 6 C 4 3 4 8 7 C 5 4 1 5 8 C 6 5 6 7 8 C 265 DO 350 FACE = 1,6 GO TO (270,280,290,290,300,310), FACE 270 I = 1 J = 4 K = 3 L = 2 GO TO 320 280 I = 1 J = 6 K = 9 L = 5 GO TO 320 290 I = I + 1 J = J + 1 K = K + 1 L = L + 1 GO TO 320 300 I = 4 J = 5 K = 12 L = 8 GO TO 320 310 I = 12 J = 9 K = 10 L = 11 320 DO 340 N = 1,2 VN(1,1) = EVEC(2,I)*EVEC(3,J) - EVEC(3,I)*EVEC(2,J) VN(2,1) = EVEC(3,I)*EVEC(1,J) - EVEC(1,I)*EVEC(3,J) VN(3,1) = EVEC(1,I)*EVEC(2,J) - EVEC(2,I)*EVEC(1,J) VN(1,2) = EVEC(2,K)*EVEC(3,L) - EVEC(3,K)*EVEC(2,L) VN(2,2) = EVEC(3,K)*EVEC(1,L) - EVEC(1,K)*EVEC(3,L) VN(3,2) = EVEC(1,K)*EVEC(2,L) - EVEC(2,K)*EVEC(1,L) SMAG = 0.0 BMAG = 0.0 TMAG = 0.0 DO 330 M = 1,3 SMAG = SMAG + VN(M,1)**2 BMAG = BMAG + VN(M,2)**2 330 TMAG = VN(M,1)*VN(M,2) + TMAG SMAG = SQRT(SMAG*BMAG) IF (SMAG .EQ. 0.0) GO TO 335 C C EPSILON INTRODUCED TO OVERCOME ROUNDOUT ERROR C IF (TMAG/SMAG .GE. 0.99*ALFA) GO TO 335 WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,BALFA,EXCD NOGO = .TRUE. 335 M = I I = L L = K K = J J = M 340 CONTINUE 350 CONTINUE C C CHECK MID-EDGE POINTS C IF (TYPE .EQ. 1) GO TO 455 M = 1 DO 450 EDGE = 1,12 GO TO (370,370,370,370,380,390,390,390,400,370,370,370), EDGE 370 I = NC(M) J = I + 3 K = J + 3 L = K + 3 M = M + 1 IF (EDGE.NE.4 .AND. EDGE.NE.12) GO TO 410 IF (TYPE .EQ. 2) K = NC(M-4) IF (TYPE .EQ. 3) L = NC(M-4) GO TO 410 380 M = 0 390 M = M + 1 I = NC(M) J = I + 12*TYPE - 3*(M-1)*(TYPE-1) K = J + 12 K = K + 3*(M-1)*(3-TYPE) L = NC(M+4) GO TO 410 400 M = 5 GO TO 370 410 SMAG = 0.0 BMAG = 0.0 TMAG = 0.0 DO 420 N = 1,3 VN(N,1) = EST(J+N-1) - EST(I+N-1) VN(N,2) = EST(K+N-1) - EST(J+N-1) TMAG = TMAG + VN(N,1)*VN(N,2) SMAG = SMAG + VN(N,1)**2 420 BMAG = BMAG + VN(N,2)**2 SMAG = SQRT(SMAG*BMAG) IF (SMAG .EQ. 0.0) GO TO 430 IF (TMAG/SMAG .GE. BETA) GO TO 430 GO TO 445 430 IF (TYPE .EQ. 2) GO TO 450 TMAG = 0.0 SMAG = 0.0 DO 440 N = 1,3 VN(N,1) = EST(L+N-1) - EST(K+N-1) TMAG = TMAG + VN(N,1)*VN(N,2) 440 SMAG = SMAG + VN(N,1)**2 SMAG = SQRT(SMAG*BMAG) IF (SMAG .EQ. 0.0) GO TO 450 IF (TMAG/SMAG .GE. BETA) GO TO 450 445 WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,BBETA,EXCD NOGO = .TRUE. 450 CONTINUE C C CHECK FOR LEFT-HANDED ELEMENT COORDINATE SYSTEM C C VOL = EVEC(5)*(EVEC(1) X -EVEC(4)) C 455 VN(1,1) = EVEC(2,4)*EVEC(3,1) - EVEC(3,4)*EVEC(2,1) VN(2,1) = EVEC(3,4)*EVEC(1,1) - EVEC(1,4)*EVEC(3,1) VN(3,1) = EVEC(1,4)*EVEC(2,1) - EVEC(2,4)*EVEC(1,1) TMAG = 0.0 DO 460 I = 1,3 460 TMAG = TMAG + EVEC(I,5)*VN(I,1) IF (TMAG .GT. 0.0) GO TO 470 WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,RVRS NOGO = .TRUE. C C CHECK FOR DUPLICATE COORDINATE VALUES C 470 L = NGP - 1 DO 490 I = 1,L M = BCORD + 3*(I-1) K = I + 1 DO 480 J = K,NGP N = BCORD + 3*(J-1) IF (EST(M ) .NE. EST(N )) GO TO 480 IF (EST(M+1) .NE. EST(N+1)) GO TO 480 IF (EST(M+2) .NE. EST(N+2)) GO TO 480 WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,TWINS NOGO = .TRUE. 480 CONTINUE 490 CONTINUE C C IF NOGO FLAG ON, DON T COMPUTE ELEMENT MATRICES C IF (NOGO) RETURN C C INITIALIZE FOR NUMERICAL INTEGRATION C C ABSCISSAE AND WEIGHT COEFFICIENTS FOR GAUSSIAN QUADRATURE C 500 I = NIP - 1 GO TO (510,520,530), I 510 H(1) = 1.0 S(1) = GAUSS(1) H(2) = 1.0 S(2) =-GAUSS(1) GO TO 540 520 H(1) = GAUSS(2) S(1) = GAUSS(3) H(2) = GAUSS(4) S(2) = 0.0 H(3) = GAUSS(2) S(3) =-GAUSS(3) GO TO 540 530 H(1) = GAUSS(5) S(1) = GAUSS(6) H(2) = GAUSS(7) S(2) = GAUSS(8) H(3) = GAUSS(7) S(3) =-GAUSS(8) H(4) = GAUSS(5) S(4) =-GAUSS(6) C C GENERATE TABLE OF EQUIVALENTS IN SIL ARRAY SO MATRIX WILL BE C ORDERED ACCORDING TO INCREASING SIL NUMBERS C 540 I = -NGP 545 J = 0 DO 560 K = 1,NGP IF (SIL(K) .LT. J) GO TO 560 J = SIL(K) L = K 560 CONTINUE SIL(L) = I I = I + 1 IF (I .LT. 0) GO TO 545 DO 570 I = 1,NGP 570 SIL(I) = -SIL(I) C C NOW SIL(I) = PARTITION NUMBER OF ELEMENT GRID POINT I C C ZERO OUT OPEN CORE FOR MATRIX SUMMATION C DO 580 I = IK,NM 580 Z(I) = 0.0 C C BRANCH ON HEAT TRANSFER FLAG C IF (HEAT .EQ. 1) GO TO 3000 C C FETCH MATERIAL PROPERTIES C C ============================================================= C THIS SECTION OF CODE MUST BE UPDATED WHEN GENERAL ANISOTROPIC C MATERIAL IS ADDED. C C TEST FOR ANISOTROPIC MATERIAL C INFLAG = 10 ANIS =.FALSE. C C TEST FOR RECTANGULAR COORDINATE SYSTEM IN WHICH THE ANISOTROPIC C MATERIAL IS DEFINED C RECT = .TRUE. C =============================================================== C C CHECK FOR TEMPERATURE DEPENDENCE C TDEP = .TRUE. DO 610 I = 2,NGP IF (EST(GPT) .NE. EST(GPT+I-1)) GO TO 630 610 CONTINUE TDEP = .FALSE. 630 TEMP = EST(GPT) CALL MAT (EID) IF (.NOT.MTDEP) TDEP = .FALSE. IF (IB(46) .EQ. 6) ANIS = .TRUE. IF (KGG .LE. 0) GO TO 1000 C C IF ISOTROPIC, TEMPERATURE INDEPENDENT MATERIAL, COMPUTE CONSTANTS C IF (ANIS .OR. TDEP) GO TO 1000 IF (IB(46) .NE. 0) GO TO 640 WRITE (OTPT,7300) UFM,MID,EID NOGO = .TRUE. RETURN C C SET UP FOR EASY MULTIPLICATION IF MATERIALS ARE ON MAT1 C 640 E1 = BUFM6(1) E2 = BUFM6(2) E3 = BUFM6(22) C C ============================================================ C CODE TO TRANSFORM GENERAL ANISOTROPIC MATERIAL PROPERTIES TO C BASIC COORDINATE SYSTEM MUST BE ADDED HERE. C ============================================================ C C ALL SET TO BEGIN INTEGRATION LOOPS. DO IT. C 1000 TVOL = 0.0D+0 DO 2000 I = 1,NIP DO 2000 J = 1,NIP DO 2000 K = 1,NIP C C GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE C CALL IHEXSD (TYPE,Z(IN),Z(IG),JACOB,DETJ,EID,S(I),S(J),S(K), 1 EST(BCORD)) IF (DETJ .NE. 0.0) GO TO 1010 C C BAD ELEMENT IF FALL HERE. JACOBIAN MATRIX WAS SINGULAR. C NOGO = .TRUE. RETURN C 1010 SFACT = H(I)*H(J)*H(K)*DETJ TVOL = TVOL + SFACT IF (KGG .LE. 0) GO TO 1015 C C STIFFNESS C C COMPUTE STRAIN-DISPLACEMENT RELATIONS C C MUST REVERSE CALLING ORDER SINCE MATRICES ARE STORED BY COLUMNS C CALL GMMATD (Z(IG),NGP,3,0,JACOB,3,3,0,Z(IX)) C C IF MATERIAL IS TEMPERATURE DEPENDENT, MUST COMPUTE TEMPERATURE C AT THIS INTEGRATION POINT AND FETCH MATERIAL PROPERTIES AGAIN C 1015 IF (.NOT. TDEP) GO TO 1030 TEMP = 0.0 DO 1020 L = 1,NGP 1020 TEMP = TEMP + Z(IN+L-1)*EST(GPT+L-1) CALL MAT (EID) IF (KGG .LE. 0) GO TO 1100 IF (ANIS) GO TO 1040 IF (IB(46) .NE. 0) GO TO 1025 WRITE (OTPT,7300) UFM,MID,EID NOGO = .TRUE. RETURN C 1025 E1 = BUFM6(1) E2 = BUFM6(2) E3 = BUFM6(22) GO TO 1100 1030 IF (KGG .LE. 0) GO TO 1100 C C IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN RECTANGULAR COOR- C DINATE SYSTEM, MUST TRANSFORM TO BASIC COORDINATE SYSTEM AT THIS C INTEGRATION POINT C IN THIS VERSION, ANISOTROPIC MATERIAL SYSTEMS MUST BE RECTANGULAR. C THEREFORE, NO FURTHER TRANSFORMATIONS ARE NECESSARY C C C ================================================================ C THIS CODE MUST BE COMPLETED WHEN GENERAL ANISOTROPIC MATERIAL IS C ADDED C IF (.NOT.ANIS) GO TO 1100 1040 CONTINUE C C INSERT GLOBAL TO BASIC TRANSFORMATION OPERATIONS HERE FOR C ANISOTROPIC MATERIAL MATRIX C =============+================================================== C DO 1041 IJK = 1,36 1041 GMAT(IJK) = BUFM6(IJK) IF (RECT) GO TO 1100 C C MATERIAL HAS BEEN EVALUATED FOR THIS INTEGRATION POINT WHEN C FALL HERE. C 1100 IF (UGV .EQ. 0) GO TO 1170 C C COMPUTE STRESSES FOR DIFFERENTIAL STIFFNESS MATRIX C C THERMAL EFFECTS C IF (IDSTLD .EQ. -1) GO TO 1120 TEMP = 0.0 DO 1110 L = 1,NGP 1110 TEMP = TEMP + Z(IN+L-1)*DBLE(GPTLD(L)) TEMP = TEMP - DBLE(TREF) IF (ANIS) GO TO 1115 SIG(1) =-DBLE(TALPHA)*(E1+2.0*E2)*TEMP SIG(2) = SIG(1) SIG(3) = SIG(1) SIG(4) = 0.0 SIG(5) = 0.0 SIG(6) = 0.0 GO TO 1140 C =========================================================== 1115 CONTINUE C C ADD THERMAL STRESS COMPUTATIONS FOR ANISOTROPIC MATERIAL C C STORE ALPHA IN DOUBLE PRECISION C DO 1116 IJK = 1,6 1116 DALPHA(IJK) = BUFM6(IJK+37) C CALL GMMATD (GMAT,6,6,0, DALPHA,6,1,0,SIG) DO 1117 IJK = 1,6 1117 SIG(IJK) = -SIG(IJK)*TEMP GO TO 1140 C =========================================================== 1120 DO 1130 L = 1,6 1130 SIG(L) = 0.0 C C DISPLACEMENT EFFECTS, COMPUTE STRESS MATRIX AND MULTIPLY BY DISPL. C 1140 STR(12) = 0.0 STR(13) = 0.0 STR(17) = 0.0 DO 1160 L = 1,NGP II = IX + 3*L - 4 IF (ANIS) GO TO 1145 STR( 1) = E1*Z(II+1) STR( 2) = E2*Z(II+2) STR( 3) = E2*Z(II+3) STR( 4) = E2*Z(II+1) STR( 5) = E1*Z(II+2) STR( 6) = E2*Z(II+3) STR( 7) = E2*Z(II+1) STR( 8) = E2*Z(II+2) STR( 9) = E1*Z(II+3) STR(10) = E3*Z(II+2) STR(11) = E3*Z(II+1) STR(14) = E3*Z(II+3) STR(15) = E3*Z(II+2) STR(16) = E3*Z(II+3) STR(18) = E3*Z(II+1) GO TO 1150 C ========================================================= C 1145 CONTINUE C C ADD STRESS MATRIX COMPUTATION FOR ANISOTROPIC MATERIAL C DO 1146 IJK = 1,18 1146 STORE(IJK) = 0.D0 STORE( 1) = Z(II+1) STORE( 5) = Z(II+2) STORE( 9) = Z(II+3) STORE(10) = Z(II+2) STORE(11) = Z(II+1) STORE(14) = Z(II+3) STORE(15) = Z(II+2) STORE(16) = Z(II+3) STORE(18) = Z(II+1) C CALL GMMATD (GMAT,6,6,0,STORE(1),6,3,0,STR) C C ============================================================ C 1150 CALL GMMATD (STR,6,3,-2,Z(ID+3*L-3),3,1,0,SIG) 1160 CONTINUE STR(1) = SX SX = SX + SY SY = SY + SZ SZ = SZ + STR(1) C C NOW BEGIN LOOPS OVER GRID POINTS ALONG ROWS AND COLUMNS C 1170 DO 1400 N = 1,NGP DO 1400 M = N,NGP C C COMPUTE PARTITION FOR POINTWISE ROW M AND COLUMN N C IF (KGG .LE. 0) GO TO 1300 IF (.NOT.ANIS ) GO TO 1200 C C ================================================================= C MUST ADD CODE TO COMPUTE THE CONTRIBUTION TO THE STIFFNESS MATRIX C FOR ANISOTROPIC MATERIAL HERE C ================================================================= C 1200 IF (SIL(M) .GE. SIL(N)) GO TO 1210 C C MUST COMPUTE TRANSPOSE OF THIS PARTITION FOR SUMMATION IN ELEMENT C MATRIX C MZ = IX + (N-1)*3 NZ = IX + (M-1)*3 GO TO 1220 1210 MZ = IX + (M-1)*3 NZ = IX + (N-1)*3 1220 IF (UGV .EQ. 0) GO TO 1222 C C DIFFERENTIAL STIFFNESS C DO 1221 L = 1,3 DO 1221 INC = 1,3 1221 C(L,INC) = Z(MZ+INC-1)*Z(NZ+L-1) PART(1,1) = SX*C(2,2) + SYZ*(C(2,3)+C(3,2)) + SZ*C(3,3) PART(2,2) = SY*C(3,3) + SZX*(C(3,1)+C(1,3)) + SX*C(1,1) PART(3,3) = SZ*C(1,1) + SXY*(C(1,2)+C(2,1)) + SY*C(2,2) PART(2,1) =-SX*C(2,1) + SXY*C(3,3) -SYZ*C(1,3) - SZX*C(2,3) PART(3,1) =-SZ*C(3,1) - SXY*C(3,2) -SYZ*C(2,1) + SZX*C(2,2) PART(1,2) =-SX*C(1,2) + SXY*C(3,3) -SYZ*C(3,1) - SZX*C(3,2) PART(3,2) =-SY*C(3,2) - SXY*C(3,1) +SYZ*C(1,1) - SZX*C(1,2) PART(1,3) =-SZ*C(1,3) - SXY*C(2,3) -SYZ*C(1,2) + SZX*C(2,2) PART(2,3) =-SY*C(2,3) - SXY*C(1,3) +SYZ*C(1,1) - SZX*C(2,1) GO TO 1228 C C ELASTIC STIFFNESS C 1222 IF (.NOT.ANIS) GO TO 1226 C C STORE CI MATRIX C DO 1223 IJK = 1,18 1223 STORE(IJK) = 0.D0 STORE( 1) = Z(MZ ) STORE( 4) = Z(MZ+1) STORE( 6) = Z(MZ+2) STORE( 8) = Z(MZ+1) STORE(10) = Z(MZ ) STORE(11) = Z(MZ+2) STORE(15) = Z(MZ+2) STORE(17) = Z(MZ+1) STORE(18) = Z(MZ ) C CALL GMMATD (STORE(1),3,6,0,GMAT(1),6,6,0,STORE(19)) C C STORE CJ C DO 1224 IJK = 1,18 1224 STORE(IJK) = 0.D0 STORE( 1) = Z(NZ ) STORE( 5) = Z(NZ+1) STORE( 9) = Z(NZ+2) STORE(10) = Z(NZ+1) STORE(11) = Z(NZ ) STORE(14) = Z(NZ+2) STORE(15) = Z(NZ+1) STORE(16) = Z(NZ+2) STORE(18) = Z(NZ ) C CALL GMMATD (STORE(19),3,6,0,STORE(1),6,3,0,STORE(37)) IJKL = 0 DO 1225 IJK = 1,3 DO 1225 IJL = 1,3 IJKL = IJKL + 1 PART(IJK,IJL) = STORE(IJKL+36) 1225 CONTINUE GO TO 1228 1226 PART(1,1) = E1*Z(NZ)*Z(MZ) + E3*(Z(NZ+1)*Z(MZ+1) +Z(NZ+2)*Z(MZ+2)) PART(2,2) = E1*Z(NZ+1)*Z(MZ+1) + E3*(Z(NZ)*Z(MZ) +Z(NZ+2)*Z(MZ+2)) PART(3,3) = E1*Z(NZ+2)*Z(MZ+2) + E3*(Z(NZ)*Z(MZ) +Z(NZ+1)*Z(MZ+1)) PART(2,1) = E2*Z(NZ )*Z(MZ+1) + E3*Z(NZ+1)*Z(MZ ) PART(3,1) = E2*Z(NZ )*Z(MZ+2) + E3*Z(NZ+2)*Z(MZ ) PART(1,2) = E2*Z(NZ+1)*Z(MZ ) + E3*Z(NZ )*Z(MZ+1) PART(3,2) = E2*Z(NZ+1)*Z(MZ+2) + E3*Z(NZ+2)*Z(MZ+1) PART(1,3) = E2*Z(NZ+2)*Z(MZ ) + E3*Z(NZ )*Z(MZ+2) PART(2,3) = E2*Z(NZ+2)*Z(MZ+1) + E3*Z(NZ+1)*Z(MZ+2) C C ADD STIFFNESS PARTITION TO ELEMENT MATRIX C C COMPUTE INDEX INTO OPEN CORE WHERE PART(1,1) IS TO BE ADDED. C 1228 IF (SIL(M)-SIL(N)) 1230,1240,1250 1230 MZ = SIL(N) NZ = SIL(M) DIAG = .FALSE. GO TO 1260 1240 MZ = SIL(M) NZ = SIL(N) DIAG = .TRUE. GO TO 1260 1250 MZ = SIL(M) NZ = SIL(N) DIAG = .FALSE. C C COLUMN NUMBER C 1260 L = (NZ-1)*3 + 1 C C INCREMENT BETWEEN COLUMNS C INC = NGG - L C C FIRST WORD OF COLUMN C L = IK + ((L-1)*L)/2 + (INC+1)*(L-1) C C WORD IN COLUMN FOR THIS ROW C L = L + 3*(MZ-NZ) C C ADD PARTITION C DO 1280 NZ = 1,3 DO 1270 MZ = 1,3 IF (DIAG .AND. MZ.LT.NZ) GO TO 1270 Z(L+MZ-1) = Z(L+MZ-1) + PART(MZ,NZ)*SFACT 1270 CONTINUE L = L + INC INC = INC - 1 1280 CONTINUE 1300 IF (MGG .LE. 0) GO TO 1400 C C MASS C C COMPUTE TERM FOR MASS MATRIX C RHO = BUFM6(37) MZ = SIL(M) NZ = SIL(N) IF (MZ .GE. NZ) GO TO 1310 MZ = SIL(N) NZ = SIL(M) C C COMPUTE INDEX INTO OPEN CORE FOR THIS MASS TERM C 1310 L = (NZ*(NZ+1))/2 + (NZ-1)*(NGP-NZ) + MZ - NZ + IM - 1 C C COMPUTE AND ADD MASS TERM TO ELEMENT MATRIX C Z(L) = Z(L) + DBLE(RHO)*SFACT*Z(IN+M-1)*Z(IN+N-1) 1400 CONTINUE 2000 CONTINUE C C END OF INTEGRATION LOOPS C ICODE = 7 C C LOOK FOR NON-BASIC COORDINATE SYSTEM C NOCSTM = .FALSE. DO 2003 I = 1,NGP IF (IEST(BGPDT+I-1) .NE. 0) GO TO 2005 2003 CONTINUE NOCSTM = .TRUE. GO TO 2065 C C RESTORE GRID POINT DATA TO ORIGINAL FORM FOR DOING TRANSFORM C TO GLOBAL COORDINATES C C FIRST, TRANSFER IT TO OPEN CORE AT IN C 2005 K = (IN-1)*2 + 1 J = NGP*4 DO 2010 I = 1,J 2010 RZ(K+I-1) = EST(BGPDT+I-1) C C NOW MOVE IT BACK AND REARRANGE IT C DO 2020 I = 1,NGP IEST(BGPDT+4*I-4) = JZ(K+I-1) DO 2020 J = 1,3 EST(BGPDT+4*I-4+J) = RZ(K+NGP+3*I+J-4) 2020 CONTINUE C C FETCH GLOBAL TO BASIC TRANSFORMATION MATRICES C DO 2025 I = 1,NGP J = IN + (I-1)*9 CALL TRANSD (EST(BGPDT+4*I-4),Z(J)) 2025 CONTINUE IF (KGG .LE. 0) GO TO 2110 C C TRANSFORM STIFFNESS TO GLOBAL COORDINATES C I = 0 2026 I = I + 1 ICP = SIL(I) C C COLUMN INDICES C K = (ICP-1)*3 + 1 INC = NGG - K + 1 L = IK + ((K-1)*K)/2 + INC*(K-1) M = L + INC N = M + INC - 1 C C TRANSFORMATION MATRIX INDEX C IGCS = IEST(BGPDT+4*I-4) NZ = IN + (I-1)*9 IF (IGCS .EQ. 0) GO TO 2028 C C TERMS ON DIAGONAL PARTITION C ASSIGN 2028 TO BACK GO TO 6000 C C OFF-DIAGONAL PARTITIONS C 2028 L = L + 3 M = M + 2 N = N + 1 IRP = ICP + 1 IF (IRP .GT. NGP) GO TO 2060 MZ = NZ DO 2050 J = IRP,NGP DO 2029 K = 1,NGP IF (J .EQ. SIL(K)) GO TO 2031 2029 CONTINUE 2031 IF (IGCS .NE. 0) GO TO 2032 IF (IEST(BGPDT+4*K-4) .EQ. 0) GO TO 2045 2032 NZ = IN + (K-1)*9 DO 2030 K = 1,3 TK(K,1) = 0.0 TK(K,2) = 0.0 TK(K,3) = 0.0 DO 2030 II = 1,3 TK(K,1) = TK(K,1) + Z(L+II-1)*Z(NZ+3*II+K-4) TK(K,2) = TK(K,2) + Z(M+II-1)*Z(NZ+3*II+K-4) TK(K,3) = TK(K,3) + Z(N+II-1)*Z(NZ+3*II+K-4) 2030 CONTINUE DO 2040 K = 1,3 Z(L+K-1) = 0.0 Z(M+K-1) = 0.0 Z(N+K-1) = 0.0 DO 2040 II = 1,3 Z(L+K-1) = Z(L+K-1) + TK(K,II)*Z(MZ+3*II-3) Z(M+K-1) = Z(M+K-1) + TK(K,II)*Z(MZ+3*II-2) Z(N+K-1) = Z(N+K-1) + TK(K,II)*Z(MZ+3*II-1) 2040 CONTINUE 2045 L = L + 3 M = M + 3 N = N + 3 2050 CONTINUE 2060 IF (I .LT. NGP) GO TO 2026 C C BUILD STIFFNESS PARTITIONS AND PASS TO EMGOUT C 2065 IDON = 0 DO 2100 I = 1,NGP IF (I .EQ. NGP) IDON = 1 DO 2090 J = 1,3 C C COLUMN NUMBER C K = (I-1)*3 + J C C NUMBER OF TERMS TO FETCH TO COMPLETE THIS COLUMN IN PARTITION C L = K - 1 IF (L .EQ. 0) GO TO 2075 C C FETCH TERMS AND LOAD INTO J-TH COLUMN OF PARTITION C N = IK + L INC = NGG - 1 DO 2070 M = 1,L Z(IZ+NGG*J-NGG+M-1) = Z(N) N = N + INC INC = INC - 1 2070 CONTINUE C C FILL OUT PARTITION WITH COLUMNS OF STIFFNESS MATRIX C C COMPUTE INDEX IN OPEN CORE OF FIRST TERM OF COLUMN K C 2075 N = IK + ((K-1)*K)/2 + (NGG-K+1)*(K-1) C C INSERT THIS COLUMN IN PARTITION C DO 2080 M = K,NGG Z(IZ+NGG*J-NGG+M-1) = Z(N) N = N + 1 2080 CONTINUE 2090 CONTINUE DICT(5) = IB(45) CALL EMGOUT (Z(IZ),Z(IZ),3*NGG,IDON,DICT,1,2) 2100 CONTINUE C C EXPAND AND TRANSFORM MASS MATRIX AND PASS TO EMGOUT C IF (MGG .LE. 0) GO TO 2400 2110 IDON = 0 DO 2140 I = 1,NGP IF (I .EQ. NGP) IDON = 1 DO 2130 J = 1,NGP C C COMPUTE INDEX INTO OPEN CORE FOR MASS TERM C K = I L = J IF (I .LE. J) GO TO 2115 K = J L = I 2115 N = ((K-1)*K)/2 + (K-1)*(NGP-K+1) + L - K + IM C C MULTIPLY GLOBAL TO BASIC TRANSFORMATIONS C M = IZ - NGG+3*J - 4 IF (I.EQ.J .OR. NOCSTM) GO TO 2116 IF (IEST(BGPDT+4*I-4) .NE. 0) GO TO 2118 IF (IEST(BGPDT+4*J-4) .NE. 0) GO TO 2118 2116 Z(M+NGG +1) = Z(N) Z(M+NGG +2) = 0.0 Z(M+NGG +3) = 0.0 Z(M+NGG*2+1) = 0.0 Z(M+NGG*2+2) = Z(N) Z(M+NGG*2+3) = 0.0 Z(M+NGG*3+1) = 0.0 Z(M+NGG*3+2) = 0.0 Z(M+NGG*3+3) = Z(N) GO TO 2130 2118 DO 2119 K = 1,NGP IF (I .EQ. SIL(K)) MZ = IN + 9*(K-1) IF (J .EQ. SIL(K)) NZ = IN + 9*(K-1) 2119 CONTINUE CALL GMMATD (Z(MZ),3,3,1,Z(NZ),3,3,0,TF) C C MULTIPLY BY MASS SCALAR FOR THIS 3 BY 3 PARTITION AND STORE C IN NGG BY 3 PARTITION C DO 2120 K = 1,3 DO 2120 L = 1,3 Z(M+NGG*L+K) = TF(K,L)*Z(N) 2120 CONTINUE 2130 CONTINUE DICT(5) = 0 CALL EMGOUT (Z(IZ),Z(IZ),3*NGG,IDON,DICT,2,2) 2140 CONTINUE C C SAVE ELEMENT BCD NAME, ID, VOLUME, MASS, NO. OF GRID POINTS, AND C GRID POINT DATA IN SCR4 IF USER REQUESTED VOLUME/AREA PRINTOUT C (NOTE - MAKE SURE THE GRID POINT DATA, BGPDT, IS IN ISTS ORIGIANL C FORM) C 2400 IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 5000 IL = IZ*2 RZ(IL+1) = BCD1 RZ(IL+2) = BCD2(TYPE) JZ(IL+3) = EID RZ(IL+4) = TVOL*VOLUME RZ(IL+5) = TVOL IF (RHO .GT. 0.0) RZ(IL+5) = TVOL*RHO JZ(IL+6) = NGP K = IL + 6 DO 2410 I = 1,NGP K = K + 1 2410 RZ(K) = EST(1+I) IF (SURFAC .LE. 0.0) GO TO 2460 IF (.NOT.NOCSTM) GO TO 2440 L = BGPDT + NGP DO 2430 I = 1,NGP K = K + 1 JZ(K) = IEST(BGPDT+I-1) DO 2420 J = 1,3 K = K + 1 RZ(K) = EST(L) 2420 L = L + 1 2430 CONTINUE GO TO 2460 2440 J = NGP*4 DO 2450 I = 1,J K = K + 1 2450 RZ(K) = EST(BGPDT+I-1) 2460 L = K - IL CALL WRITE (SCR4,RZ(IL+1),L,1) GO TO 5000 C C HEAT TRANSFER SECTION C 3000 INFLAG = 3 CALL HMAT (EID) ANIS = .FALSE. IF (KGG .LE. 0) GO TO 3100 C C CHECK FOR ANISOTROPY C IF (KHEAT(1).NE.KHEAT(4) .OR. KHEAT(1).NE.KHEAT(6)) GO TO 3010 IF (KHEAT(2).NE.0.0 .OR. KHEAT(3).NE.0.0 .OR. KHEAT(5).NE.0.0) 1 GO TO 3010 GO TO 3100 3010 ANIS = .TRUE. IT = IZ + 8 C C CHECK FOR RECTANGULAR COORDINATE SYSTEM FOR MATERIAL C RECT = .TRUE. IF (CID .EQ. 0) GO TO 3100 JZ(IZS) = CID DO 3030 I = 1,3 3030 RZ(IZS+I) = EST(BCORD+I-1) CALL TRANSD (RZ(IZS),Z(IT)) DO 3040 I = 1,3 3040 RZ(IZS+I) = -RZ(IZS+I) CALL TRANSD (RZ(IZS),Z(IN)) DO 3050 I = 1,9 IF (Z(IT+I-1) .NE. Z(IN+I-1)) RECT = .FALSE. 3050 CONTINUE C C IF NOT DEFINED IN A RECTANGULAR SYSTEM, MUST TRANSFORM INSIDE C INTEGRATION LOOPS C IF (.NOT.RECT) GO TO 3100 C C TRANSFORM MATERIAL MATRIX TO BASIC SYSTEM C DO 3060 I = 1,6 3060 Z(IZ+I+1) = DBLE(KHEAT(I)) L = IZ + 2 M = L + 3 N = M + 2 NZ = IT ASSIGN 3100 TO BACK GO TO 6000 C C ANISOTROPIC CONDUCTIVITY MATERIAL MATRIX NOW STORED AT RZ(IZ+2) C TO RZ(IZ+7) C C ALL SET FOR DOING INTEGRATION. DO IT. C 3100 I = 0 3101 I = I + 1 J = 0 3102 J = J + 1 K = 0 3103 K = K + 1 C C GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE C CALL IHEXSD (TYPE,Z(IN),Z(IG),JACOB,DETJ,EID,S(I),S(J),S(K), 1 EST(BCORD)) IF (DETJ .NE. 0.0) GO TO 3110 C C FALL HERE IF JACOBIAN MATRIX WAS SINGULAR C NOGO = .TRUE. RETURN C 3110 SFACT = H(I)*H(J)*H(K)*DETJ IF (KGG .LE. 0) GO TO 3120 C C COMPUTE DERIVATIVES OF SHAPE FUNCTION W.R.T. BASIC SYSTEM. C C MUST REVERSE CALLING ORDER SINCE MATRICES ARE STORED BY COLUMNS C CALL GMMATD (Z(IG),NGP,3,0,JACOB,3,3,0,Z(IX)) C C IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN A RECTANGULAR C CORDINATE SYSTEM, MUST TRANSFORM TO BASIC SYSTEM AT THIS C INTEGRATION POINT C 3120 IF (.NOT.ANIS) GO TO 3160 IF (RECT) GO TO 3160 C C COMPUTE BASIC COORDINATES VECTOR AT THIS POINT C DO 3130 L = 1,3 3130 RZ(IZS+L) = 0.0 DO 3140 L = 1,NGP DO 3140 M = 1,3 RZ(IZS+M) = RZ(IZS+M) + Z(IN+L-1)*EST(BCORD + 3*L+M-4) 3140 CONTINUE C C FETCH TRANSFORMATION AND CONDUCTIVITY MATRICES AND PERFORM C TRANSFORMATION OPERATIONS C CALL TRANSD (RZ(IZS),Z(IT)) DO 3150 L = 1,6 3150 Z(IZ+L+1) = DBLE(KHEAT(L)) NZ = IT L = IZ + 2 M = L + 3 N = M + 2 ASSIGN 3160 TO BACK GO TO 6000 C C MATERIAL HAS BEEN EVALUATED FOR THIS INTEGRATION POINT WHEN C FALL HERE C C NOW BEGIN LOOPS OVER GRID POINTS ALONG ROWS AND COLUMNS C 3160 DO 3220 N = 1,NGP DO 3220 M = N,NGP C C COMPUTE 1 BY 1 PARTITION FOR ROW M AND COLUMN N C IF (KGG .LE. 0) GO TO 3210 C C CONDUCTIVITY C IF (ANIS) GO TO 3180 C C ISOTROPIC CASE C PRT1 = 0.0 DO 3170 L = 1,3 3170 PRT1 = PRT1 + Z(IX+3*M+L-4)*Z(IX+3*N+L-4) PRT1 = SFACT*DBLE(KHEAT(1))*PRT1 GO TO 3190 C C ANISOTROPIC CASE C 3180 L = IX + 3*(M-1) E1 = Z(L)*Z(IZ+2) + Z(L+1)*Z(IZ+3) + Z(L+2)*Z(IZ+4) E2 = Z(L)*Z(IZ+3) + Z(L+1)*Z(IZ+5) + Z(L+2)*Z(IZ+6) E3 = Z(L)*Z(IZ+4) + Z(L+1)*Z(IZ+6) + Z(L+2)*Z(IZ+7) L = IX + 3*(N-1) PRT1 = SFACT*(Z(L)*E1 + Z(L+1)*E2 + Z(L+2)*E3) C C COMPUTE INDEX INTO OPEN CORE FOR THIS TERM C 3190 L = SIL(M) MZ = SIL(N) IF (L .LE. MZ) GO TO 3200 L = MZ MZ = SIL(M) 3200 L = (L-1)*NGG + MZ + IK - 1 C C ADD TERM TO MATRIX C Z(L) = Z(L) + PRT1 C C CAPACITANCE C 3210 IF (MGG .LE. 0) GO TO 3220 C C COMPUTE INDEX INTO OPEN CORE FOR THIS TERM C L = SIL(M) MZ = SIL(N) IF (L .LE. MZ) GO TO 3215 L = MZ MZ = SIL(M) 3215 L = (L-1)*NGG + MZ + IM - 1 C C COMPUTE AND ADD TERM C Z(L) = Z(L) + SFACT*DBLE(CP)*Z(IN+M-1)*Z(IN+N-1) 3220 CONTINUE IF (K .LT. NIP) GO TO 3103 IF (J .LT. NIP) GO TO 3102 IF (I .LT. NIP) GO TO 3101 C C END OF HEAT TRANSFER INTEGRATION LOOPS C ICODE = 1 C C FILL IN THE UPPER TRIANGLES OF THE MATRICES C IF (KGG .LE. 0) GO TO 4010 MZ = IK GO TO 4020 4010 IF (MGG .LE. 0) GO TO 4040 MZ = IM 4020 L = NGG - 1 DO 4030 I = 1,L J = I + 1 DO 4030 K = J,NGG M = (I-1)*NGG + K + MZ - 1 N = (K-1)*NGG + I + MZ - 1 Z(N) = Z(M) 4030 CONTINUE IF (MZ .EQ. IK) GO TO 4010 C C PASS MATRICES TO EMGOUT C 4040 K = NGG**2 DICT(5) = 0 IF (KGG .GT. 0) CALL EMGOUT (Z(IK),Z(IK),K,1,DICT,1,2) IF (MGG .GT. 0) CALL EMGOUT (Z(IM),Z(IM),K,1,DICT,3,2) C C ALL DONE, NO ERRORS C 5000 RETURN C C C INTERNAL SUBROUTINE C C TRANSFORM COORDINATE SYSTEM OF SYMMETRIC HALF OF A 3 BY 3 MATRIX C 6000 TK(1,1) = Z(NZ )*Z(L ) + Z(NZ+3)*Z(L+1) + Z(NZ+6)*Z(L+2) TK(2,1) = Z(NZ+1)*Z(L ) + Z(NZ+4)*Z(L+1) + Z(NZ+7)*Z(L+2) TK(3,1) = Z(NZ+2)*Z(L ) + Z(NZ+5)*Z(L+1) + Z(NZ+8)*Z(L+2) TK(1,2) = Z(NZ )*Z(L+1) + Z(NZ+3)*Z(M ) + Z(NZ+6)*Z(M+1) TK(2,2) = Z(NZ+1)*Z(L+1) + Z(NZ+4)*Z(M ) + Z(NZ+7)*Z(M+1) TK(3,2) = Z(NZ+2)*Z(L+1) + Z(NZ+5)*Z(M ) + Z(NZ+8)*Z(M+1) TK(1,3) = Z(NZ )*Z(L+2) + Z(NZ+3)*Z(M+1) + Z(NZ+6)*Z(N ) TK(2,3) = Z(NZ+1)*Z(L+2) + Z(NZ+4)*Z(M+1) + Z(NZ+7)*Z(N ) TK(3,3) = Z(NZ+2)*Z(L+2) + Z(NZ+5)*Z(M+1) + Z(NZ+8)*Z(N ) Z(L ) = Z(NZ )*TK(1,1) + Z(NZ+3)*TK(1,2) + Z(NZ+6)*TK(1,3) Z(L+1) = Z(NZ )*TK(2,1) + Z(NZ+3)*TK(2,2) + Z(NZ+6)*TK(2,3) Z(L+2) = Z(NZ )*TK(3,1) + Z(NZ+3)*TK(3,2) + Z(NZ+6)*TK(3,3) Z(M ) = Z(NZ+1)*TK(2,1) + Z(NZ+4)*TK(2,2) + Z(NZ+7)*TK(2,3) Z(M+1) = Z(NZ+1)*TK(3,1) + Z(NZ+4)*TK(3,2) + Z(NZ+7)*TK(3,3) Z(N ) = Z(NZ+2)*TK(3,1) + Z(NZ+5)*TK(3,2) + Z(NZ+8)*TK(3,3) GO TO BACK, (2028,3100,3160) C 7100 FORMAT (A23,I5,2H, ,A4,I1,3A4,I9,' INSUFFICIENT CORE TO COMPUTE', 1 ' ELEMENT MATRIX') 7200 FORMAT (A23,I5,2H, ,A4,I1,3A4,I9,3X,18HILLEGAL GEOMETRY, ,9A4) 7300 FORMAT (A23,' 4005. AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED ', 1 'UNDER MATERIAL ID =',I10,17H FOR ELEMENT ID =,I10) C END ================================================ FILE: mis/ihexs.f ================================================ SUBROUTINE IHEXS (TYPE) C C SINGLE PRECISION VERSION C C THIS ROUTINE PROCESSES IHEX1, IHEX2, AND IHEX3 ELEMENT DATA TO C PRODUCE STIFFNESS AND MASS MATRICES. IF THE HEAT TRANSFER OPTION C IS ON, CONDUCTIVITY AND CAPACITY MATRICES ARE PRODUCED. IF THE C DISPLACEMENT VECTOR POINTER IS NON-ZERO, THE DIFFERENTIAL C STIFFNESS MATRIX ONLY IS PRODUCED. C C TYPE = 1 IHEX1 C TYPE = 2 IHEX2 C TYPE = 3 IHEX3 C C THE EST ENTRIES ARE C C NAME ----------INDEX---------- DESCRIPTION C IHEX1 IHEX2 IHEX3 C C EID 1 1 1 ELEMENT ID NO. C SIL 2-9 2-21 2-33 SCALAR INDEX LIST C MID 10 22 34 MATERIAL ID NO. C CID 11 23 35 MATERIAL COORD. SYSTEM ID NO. C NIP 12 24 36 NO. INTEGRATION POINTS PER EDGE C MAXAR 13 25 37 MAX ASPECT RATIO C ALFA 14 26 38 MAX ANGLE FOR NORMALS C BETA 15 27 39 MAX ANGLE FOR MIDSIDE POINTS C BGPDT 16-47 28-107 40-167 BASIC GRID POINT DATA C GPT 48-55 108-127 168-199 GRID POINT TEMPERATURES C C - INSTALLATION NOTE -- C GPTLD IS SUPPOSED TO CONTAIN GRID POINT TEMPERATURE LOADS FOR C COMPUTING DIFFERENTIAL STIFFNESS. FOR INSTALLATION, GPTLD MUST C BE LOADED WITH DATA BY EMG. IF GPTLD(1)=-1, NO TEMP LOAD IS C ASSUMED. C LOGICAL ANIS ,RECT ,TDEP ,DIAG , 1 MTDEP ,HEAT1 ,NOGO ,NOCSTM INTEGER HEAT ,EID ,SIL(1) ,SCR4 , 1 TYPE ,JZ(1) ,CID ,IEST(1) , 2 BCORD ,BGPDT ,GPT ,NC(8) , 3 EDGE ,FACE ,IB(46) ,ELNO(3) , 4 EXCD(3) ,TWINS(9) ,RVRS(5) ,IWORK(1) , 5 BACK ,OTPT ,UGV ,CDAMP , 6 DICT(40) REAL NU ,KHEAT ,MAXAR ,DMAXAR(3) , 1 DALFA(3) ,DBETA(2) ,EVEC(3,12) ,WORK(66) , 2 VN(3,2) ,GPTLD(32) ,BCD2(3) ,JACOB(3,3) DIMENSION Z(1) ,S(4) ,H(4) ,GAUSS(8) , 1 PART(3,3) ,TF(3,3) ,TK(3,3) ,SIG(6) , 2 STR(18) ,C(3,3) ,GMAT(36) ,DALPHA(6) , 3 STORE(45) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /MATIN/ MID ,INFLAG ,TEMP COMMON /MATOUT/ E ,G ,NU ,RHO , 1 TALPHA ,TREF ,CDAMP ,SPACE(18) , 3 MTDEP COMMON /MATISO/ BUFM6(46) C OMMON /MATISO/ G11,G12,G13,...,G46,G56,G66,RHO,AXX,AYY,AZZ,AXY, C AYZ,AZX,TREF,GE,IER COMMON /BLANK / SKIP16(16) ,VOLUME ,SURFAC COMMON /HMTOUT/ KHEAT(6) ,CP C COMMON /EMG***/ ...,UGV,... C C - INSTALLATION NOTE -- C UGV POINTS TO BEGINNING OF SINGLE PRECISION GLOBAL DISPLACEMENT C VECTOR IN OPEN CORE ARRAY RZ. C COMMON /EMGPRM/ IEXT ,IZS ,NZS ,DUM(12) , 1 KGG1 ,MGG1 ,BGG1 ,IPREC , 2 NOGO ,HEAT1 C C RZ IS OPEN CORE. USE ONLY RZ(IZS) TO RZ(NZS). C COMMON /ZZZZZZ/ RZ(1) COMMON /EMGEST/ EST(200) COMMON /SYSTEM/ SYSBUF ,OTPT ,SYS1(7) ,MTEMP COMMON /EMGDIC/ SPAC(2) ,NGRIDS ,SPAC1 ,IESTID EQUIVALENCE (Z(1),JZ(1),RZ(1)) ,(EID,EST(1),IEST(1)) , 1 (SIL(1),EST(2)) ,(WORK(1),IWORK(1)) , 2 (SIG(1),SX) ,(SIG(2),SY) , 3 (SIG(3),SZ) ,(SIG(4),SXY) , 4 (SIG(5),SYZ) ,(SIG(6),SZX) , 5 (DSTLD,IDSTLD) EQUIVALENCE (WORK(1),EVEC(1,1)) ,(WORK(37),VN(1,1)) , 1 (WORK(43),NC(1)) EQUIVALENCE (WORK(1),JACOB(1,1)) ,(WORK(19),H(1)) , 1 (WORK(27),S(1)) ,(WORK(35),PART(1,1)) , 2 (WORK(53),SIG(1)) ,(WORK(1),C(1,1)) EQUIVALENCE (WORK(1),TF(1,1)) ,(WORK(35),TK(1,1)) EQUIVALENCE (IB(1),BUFM6(1)) DATA SCR4 / 304 / DATA BCD1 , BCD2/ 4HCIHE, 4HX1 , 4HX2 , 4HX3 / DATA DMAXAR, DALFA,DBETA / 5.0 ,10.0 ,15.0 , 1 45.0 ,45.0 ,45.0 , 2 45.0 ,45.0 / DATA DTOR , GAUSS /0.01745329251994, 1 0.57735026918962, 2 0.55555555555555, 3 0.77459666924148, 4 0.88888888888889, 5 0.34785484513745, 6 0.86113631159405, 7 0.65214515486254, 8 0.33998104358485/ DATA IHEX,ELNO /4HIHEX,4H ELE,4HMENT,4H NO./ DATA BAR,BALFA,BBETA /4H AR,4HALFA,4HBETA/ DATA EXCD /4H EXC,4HEEDE,4HD. / DATA RVRS /4HREVE,4HRSED,4H NUM,4HBERI,4HNG. / DATA TWINS /4HCOOR,4HDINA,4HTES ,4HOF T,4HWO P, 1 4HOINT,4HS AR,4HE SA,4HME. / DATA NERR1,NERR2 /3301, 3302 / C C IZ AND NZ ARE OPEN CORE POINTERS C IZ = IZS NZ = NZS C C THIS ROUTINE OPERATES IN DOUBLE PRECISION. C EMGOUT WILL PRODUCE THE REQUIRED MATRIX IN THE REQUESTED PRECISION C C ALLOCATE LARGE ARRAYS IN OPEN CORE C NGP = 12*TYPE - 4 HEAT = 0 KGG = 0 MGG = 0 IF (HEAT1) HEAT = 1 IF (KGG1 .NE. 0) KGG = 1 IF (MGG1 .NE. 0) MGG = 1 NGRIDS = NGP UGV = 0 NGG = 3*NGP DICT(1) = IESTID DICT(2) = 1 IF (.NOT.HEAT1) GO TO 5 DICT(3) = NGP DICT(4) = 1 GO TO 30 5 DICT(3) = NGG DICT(4) = 7 IF (KGG .LE. 0) GO TO 10 IK = IZ + 3*NGG NK = IK - 1 + (NGG+1)*NGG/2 GO TO 20 10 IK = IZ NK = IK + 3*NGG - 1 IM = NK + 1 NM = (NGP+1)*NGP/2 + NK GO TO 40 20 NM = NK IF (MGG .LE. 0) GO TO 40 IM = NK + 1 NM = NK + (NGP+1)*NGP/2 GO TO 40 30 IK = IZ + 17 NK = IK - 1 + NGP**2 IM = NK + 1 NM = IM - 1 + NGP**2 NGG= NGP 40 IN = NM + 1 IG = IN + NGP IX = IG + 3*NGP ND = NM + 9*NGP IF (UGV .EQ. 0) GO TO 50 ID = ND + 1 ND = ID + NGG - 1 50 IF (ND .LE. NZ) GO TO 100 WRITE (OTPT,7100) UFM,NERR1,IHEX,TYPE,ELNO,EID NOGO = .TRUE. C C ***** OPEN CORE MAP ***** C C DOUBLE PRECISION Z(1) C COMMON /EMGZZZ/ Z C C NGG = ORDER OF ELEMENT MATRIX C C INDEX STIFFNESS MASS HEAT C AND MASS ONLY TRANSFER C C IZ NGG BY 3 PARTITION NGG BY 3 PARTITION FOUR WORD COORDINATE C OF MATRIX OF MATRIX VECTOR. INPUT TO C TRANSD C C IZ+2 TRANSFORMED THERMAL C CONDUCTANCE MATRIX C C IT MATERIAL TRANSFOR- C MATION MATRIX C C IK SYMMETRIC HALF OF SAME AS IZ FULL CONDUCTANCE C STIFFNESS C C IM SYMMETRIC HALF OF SYMMETRIC HALF OF FULL CAPACITANCE C MASS MASS C C IN --------------------SHAPE FUNCTIONS------------------------- C C IG --------------------D(SHAPE)/D(GREEK)----------------------- C C IX --------------------D(SHAPE)/D(BASIC XYZ)------------------- C C ID DISPLACEMENT C VECTOR IN BASIC C COORDINATES C C CHECK GEOMETRY. THE FOLLOWING CHECKS ARE MADE C 1. ASPECT RATIO C 2. ANGLES BETWEEN NORMALS OF SUB-TRIANGLES ON EACH FACE C 3. ANGLES BETWEEN VECTORS BETWEEN POINTS ALONG EACH EDGE C 4. REVERSE SEQUENCING C 5. DUPLICATE COORDINATE VALUES C C FETCH EPT DATA, COMPUTE EST POINTERS C 100 MID = 10 + 12*(TYPE-1) CID = IEST(MID+1) NIP = IEST(MID+2) MAXAR= EST(MID+3) ALFA = EST(MID+4) BETA = EST(MID+5) BGPDT= MID + 6 GPT = BGPDT + NGP*4 MID = IEST(MID) IF (NIP.LT.2 .OR. NIP.GT.4) NIP = TYPE/2 + 2 IF (MAXAR .LE. 0.0) MAXAR = DMAXAR(TYPE) IF (ALFA .LT. 0.0) ALFA = DALFA(TYPE) IF (BETA.LT.0.0 .AND. TYPE.NE.1) BETA = DBETA(TYPE-1) ALFA = COS(DTOR*ALFA) BETA = COS(DTOR*BETA) IF (UGV .EQ. 0) GO TO 105 C C TRANSFORM DISPLACEMENT VECTOR TO BASIC COORDINATES C MULTIPLY BY 1/4 TO AVOID MULTIPLYING STRAIN-DISPLACEMENT C RELATIONS BY 1/2 UNDER THE INTEGRAL. DITTO FOR LOADING TEMP-S. C DSTLD = GPTLD(1) DO 104 I = 1,NGP M = BGPDT + 4*I - 4 J = UGV + SIL(I) - 1 K = ID + 3*I - 3 IF (IEST(M) .EQ. 0) GO TO 102 CALL TRANSS (EST(M),TK) DO 101 L = 1,3 101 Z(IZ+L-1) = RZ(J+L-1)*0.25 CALL GMMATS (TK,3,3,0,Z(IZ),3,1,0,Z(N)) GPTLD(I) = 0.25*GPTLD(I) GO TO 104 102 DO 103 L = 1,3 103 Z(N+L-1) = RZ(J+L-1)*0.25 GPTLD(I) = 0.25*GPTLD(I) 104 CONTINUE C C REARRANGE BGPDT C 105 DO 110 I = 1,NGP 110 JZ(IZS+I) = IEST(BGPDT+I*4-4) BCORD = GPT - 3 DO 120 I = 2,NGP DO 120 J = 1,3 K = BGPDT + 4*(NGP-I) + 4 - J BCORD = BCORD - 1 EST(BCORD) = EST(K) 120 CONTINUE DO 130 I = 2,NGP 130 IEST(BGPDT+I-1) = JZ(IZS+I) C C IF COMPUTING DIFFERENTIAL STIFFNESS, SKIP CHECKS C IF (UGV .GT. 0) GO TO 500 C C FIND 8 POINTERS TO CORNER COORDINATES IN EST C C EDGE CORNERS C 1 1 2 C 2 2 3 C 3 3 4 C 4 4 1 C 5 1 5 C 6 2 6 C 7 3 7 C 8 4 8 C 9 5 6 C 10 6 7 C 11 7 8 C 12 8 5 C NC(1) = BCORD J = 3*TYPE GO TO (140,150,160), TYPE 140 NC(5) = BCORD + 12 GO TO 170 150 NC(5) = BCORD + 36 GO TO 170 160 NC(5) = BCORD + 60 170 DO 180 I = 2,4 NC(I ) = NC(I-1) + J 180 NC(I+4) = NC(I+3) + J C C COMPUTE 12 EDGE VECTORS, FIND SMALLEST AND LARGEST MAGNITUDES C I = 0 J = 1 SMAG = 1.0E+20 BMAG = 0.0 DO 250 EDGE = 1,12 GO TO (190,190,190,200,210,190,190,190,220,190,190,200), EDGE 190 I = I + 1 J = J + 1 L = NC(I) - 1 M = NC(J) - 1 GO TO 230 200 L = M M = NC(J-3) - 1 GO TO 230 210 I = 0 J = 4 GO TO 190 220 I = 4 J = 5 GO TO 190 230 TMAG = 0.0 DO 240 K = 1,3 EVEC(K,EDGE) = EST(M+K) - EST(L+K) 240 TMAG = TMAG + EVEC(K,EDGE)**2 IF (TMAG .LT. SMAG) SMAG = TMAG IF (TMAG .GT. BMAG) BMAG = TMAG 250 CONTINUE C C CHECK ASPECT RATIO C IF (SMAG .GT. 0.0) GO TO 260 SMAG = 1.0E-10 260 IF (BMAG/SMAG .LE. MAXAR**2) GO TO 265 WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,BAR,EXCD NOGO = .TRUE. C C CHECK ANGLES BETWEEN FACE NORMALS C C FACE CORNERS C 1 1 4 3 2 C 2 1 2 6 5 C 3 2 3 7 6 C 4 3 4 8 7 C 5 4 1 5 8 C 6 5 6 7 8 C 265 DO 350 FACE = 1,6 GO TO (270,280,290,290,300,310), FACE 270 I = 1 J = 4 K = 3 L = 2 GO TO 320 280 I = 1 J = 6 K = 9 L = 5 GO TO 320 290 I = I + 1 J = J + 1 K = K + 1 L = L + 1 GO TO 320 300 I = 4 J = 5 K = 12 L = 8 GO TO 320 310 I = 12 J = 9 K = 10 L = 11 320 DO 340 N = 1,2 VN(1,1) = EVEC(2,I)*EVEC(3,J) - EVEC(3,I)*EVEC(2,J) VN(2,1) = EVEC(3,I)*EVEC(1,J) - EVEC(1,I)*EVEC(3,J) VN(3,1) = EVEC(1,I)*EVEC(2,J) - EVEC(2,I)*EVEC(1,J) VN(1,2) = EVEC(2,K)*EVEC(3,L) - EVEC(3,K)*EVEC(2,L) VN(2,2) = EVEC(3,K)*EVEC(1,L) - EVEC(1,K)*EVEC(3,L) VN(3,2) = EVEC(1,K)*EVEC(2,L) - EVEC(2,K)*EVEC(1,L) SMAG = 0.0 BMAG = 0.0 TMAG = 0.0 DO 330 M = 1,3 SMAG = SMAG + VN(M,1)**2 BMAG = BMAG + VN(M,2)**2 330 TMAG = VN(M,1)*VN(M,2) + TMAG SMAG = SQRT(SMAG*BMAG) IF (SMAG .EQ. 0.0) GO TO 335 C C EPSILON INTRODUCED TO OVERCOME ROUNDOUT ERROR C IF (TMAG/SMAG .GE. 0.99*ALFA) GO TO 335 WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,BALFA,EXCD NOGO = .TRUE. 335 M = I I = L L = K K = J J = M 340 CONTINUE 350 CONTINUE C C CHECK MID-EDGE POINTS C IF (TYPE .EQ. 1) GO TO 455 M = 1 DO 450 EDGE = 1,12 GO TO (370,370,370,370,380,390,390,390,400,370,370,370), EDGE 370 I = NC(M) J = I + 3 K = J + 3 L = K + 3 M = M + 1 IF (EDGE.NE.4 .AND. EDGE.NE.12) GO TO 410 IF (TYPE .EQ. 2) K = NC(M-4) IF (TYPE .EQ. 3) L = NC(M-4) GO TO 410 380 M = 0 390 M = M + 1 I = NC(M) J = I + 12*TYPE - 3*(M-1)*(TYPE-1) K = J + 12 K = K + 3*(M-1)*(3-TYPE) L = NC(M+4) GO TO 410 400 M = 5 GO TO 370 410 SMAG = 0.0 BMAG = 0.0 TMAG = 0.0 DO 420 N = 1,3 VN(N,1) = EST(J+N-1) - EST(I+N-1) VN(N,2) = EST(K+N-1) - EST(J+N-1) TMAG = TMAG + VN(N,1)*VN(N,2) SMAG = SMAG + VN(N,1)**2 420 BMAG = BMAG + VN(N,2)**2 SMAG = SQRT(SMAG*BMAG) IF (SMAG .EQ. 0.0) GO TO 430 IF (TMAG/SMAG .GE. BETA) GO TO 430 GO TO 445 430 IF (TYPE .EQ. 2) GO TO 450 TMAG = 0.0 SMAG = 0.0 DO 440 N = 1,3 VN(N,1) = EST(L+N-1) - EST(K+N-1) TMAG = TMAG + VN(N,1)*VN(N,2) 440 SMAG = SMAG + VN(N,1)**2 SMAG = SQRT(SMAG*BMAG) IF (SMAG .EQ. 0.0) GO TO 450 IF (TMAG/SMAG .GE. BETA) GO TO 450 445 WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,BBETA,EXCD NOGO = .TRUE. 450 CONTINUE C C CHECK FOR LEFT-HANDED ELEMENT COORDINATE SYSTEM C C VOL = EVEC(5)*(EVEC(1) X -EVEC(4)) C 455 VN(1,1) = EVEC(2,4)*EVEC(3,1) - EVEC(3,4)*EVEC(2,1) VN(2,1) = EVEC(3,4)*EVEC(1,1) - EVEC(1,4)*EVEC(3,1) VN(3,1) = EVEC(1,4)*EVEC(2,1) - EVEC(2,4)*EVEC(1,1) TMAG = 0.0 DO 460 I = 1,3 460 TMAG = TMAG + EVEC(I,5)*VN(I,1) IF (TMAG .GT. 0.0) GO TO 470 WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,RVRS NOGO = .TRUE. C C CHECK FOR DUPLICATE COORDINATE VALUES C 470 L = NGP - 1 DO 490 I = 1,L M = BCORD + 3*(I-1) K = I + 1 DO 480 J = K,NGP N = BCORD + 3*(J-1) IF (EST(M ) .NE. EST(N )) GO TO 480 IF (EST(M+1) .NE. EST(N+1)) GO TO 480 IF (EST(M+2) .NE. EST(N+2)) GO TO 480 WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,TWINS NOGO = .TRUE. 480 CONTINUE 490 CONTINUE C C IF NOGO FLAG ON, DON T COMPUTE ELEMENT MATRICES C IF (NOGO) RETURN C C INITIALIZE FOR NUMERICAL INTEGRATION C C ABSCISSAE AND WEIGHT COEFFICIENTS FOR GAUSSIAN QUADRATURE C 500 I = NIP - 1 GO TO (510,520,530), I 510 H(1) = 1.0 S(1) = GAUSS(1) H(2) = 1.0 S(2) =-GAUSS(1) GO TO 540 520 H(1) = GAUSS(2) S(1) = GAUSS(3) H(2) = GAUSS(4) S(2) = 0.0 H(3) = GAUSS(2) S(3) =-GAUSS(3) GO TO 540 530 H(1) = GAUSS(5) S(1) = GAUSS(6) H(2) = GAUSS(7) S(2) = GAUSS(8) H(3) = GAUSS(7) S(3) =-GAUSS(8) H(4) = GAUSS(5) S(4) =-GAUSS(6) C C GENERATE TABLE OF EQUIVALENTS IN SIL ARRAY SO MATRIX WILL BE C ORDERED ACCORDING TO INCREASING SIL NUMBERS C 540 I = -NGP 545 J = 0 DO 560 K = 1,NGP IF (SIL(K) .LT. J) GO TO 560 J = SIL(K) L = K 560 CONTINUE SIL(L) = I I = I + 1 IF (I .LT. 0) GO TO 545 DO 570 I = 1,NGP 570 SIL(I) = -SIL(I) C C NOW SIL(I) = PARTITION NUMBER OF ELEMENT GRID POINT I C C ZERO OUT OPEN CORE FOR MATRIX SUMMATION C DO 580 I = IK,NM 580 Z(I) = 0.0 C C BRANCH ON HEAT TRANSFER FLAG C IF (HEAT .EQ. 1) GO TO 3000 C C FETCH MATERIAL PROPERTIES C C ============================================================= C THIS SECTION OF CODE MUST BE UPDATED WHEN GENERAL ANISOTROPIC C MATERIAL IS ADDED. C C TEST FOR ANISOTROPIC MATERIAL C INFLAG = 10 ANIS =.FALSE. C C TEST FOR RECTANGULAR COORDINATE SYSTEM IN WHICH THE ANISOTROPIC C MATERIAL IS DEFINED C RECT = .TRUE. C =============================================================== C C CHECK FOR TEMPERATURE DEPENDENCE C TDEP = .TRUE. DO 610 I = 2,NGP IF (EST(GPT) .NE. EST(GPT+I-1)) GO TO 630 610 CONTINUE TDEP = .FALSE. 630 TEMP = EST(GPT) CALL MAT (EID) IF (.NOT.MTDEP) TDEP = .FALSE. IF (IB(46) .EQ. 6) ANIS = .TRUE. IF (KGG .LE. 0) GO TO 1000 C C IF ISOTROPIC, TEMPERATURE INDEPENDENT MATERIAL, COMPUTE CONSTANTS C IF (ANIS .OR. TDEP) GO TO 1000 IF (IB(46) .NE. 0) GO TO 640 WRITE (OTPT,7300) UFM,MID,EID NOGO = .TRUE. RETURN C C SET UP FOR EASY MULTIPLICATION IF MATERIALS ARE ON MAT1 C 640 E1 = BUFM6(1) E2 = BUFM6(2) E3 = BUFM6(22) C C ============================================================ C CODE TO TRANSFORM GENERAL ANISOTROPIC MATERIAL PROPERTIES TO C BASIC COORDINATE SYSTEM MUST BE ADDED HERE. C ============================================================ C C ALL SET TO BEGIN INTEGRATION LOOPS. DO IT. C 1000 TVOL = 0.0 DO 2000 I = 1,NIP DO 2000 J = 1,NIP DO 2000 K = 1,NIP C C GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE C CALL IHEXSS (TYPE,Z(IN),Z(IG),JACOB,DETJ,EID,S(I),S(J),S(K), 1 EST(BCORD)) IF (DETJ .NE. 0.0) GO TO 1010 C C BAD ELEMENT IF FALL HERE. JACOBIAN MATRIX WAS SINGULAR. C NOGO = .TRUE. RETURN C 1010 SFACT = H(I)*H(J)*H(K)*DETJ TVOL = TVOL + SFACT IF (KGG .LE. 0) GO TO 1015 C C STIFFNESS C C COMPUTE STRAIN-DISPLACEMENT RELATIONS C C MUST REVERSE CALLING ORDER SINCE MATRICES ARE STORED BY COLUMNS C CALL GMMATS (Z(IG),NGP,3,0,JACOB,3,3,0,Z(IX)) C C IF MATERIAL IS TEMPERATURE DEPENDENT, MUST COMPUTE TEMPERATURE C AT THIS INTEGRATION POINT AND FETCH MATERIAL PROPERTIES AGAIN C 1015 IF (.NOT. TDEP) GO TO 1030 TEMP = 0.0 DO 1020 L = 1,NGP 1020 TEMP = TEMP + Z(IN+L-1)*EST(GPT+L-1) CALL MAT (EID) IF (KGG .LE. 0) GO TO 1100 IF (ANIS) GO TO 1040 IF (IB(46) .NE. 0) GO TO 1025 WRITE (OTPT,7300) UFM,MID,EID NOGO = .TRUE. RETURN C 1025 E1 = BUFM6(1) E2 = BUFM6(2) E3 = BUFM6(22) GO TO 1100 1030 IF (KGG .LE. 0) GO TO 1100 C C IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN RECTANGULAR COOR- C DINATE SYSTEM, MUST TRANSFORM TO BASIC COORDINATE SYSTEM AT THIS C INTEGRATION POINT C IN THIS VERSION, ANISOTROPIC MATERIAL SYSTEMS MUST BE RECTANGULAR. C THEREFORE, NO FURTHER TRANSFORMATIONS ARE NECESSARY C C C ================================================================ C THIS CODE MUST BE COMPLETED WHEN GENERAL ANISOTROPIC MATERIAL IS C ADDED C IF (.NOT.ANIS) GO TO 1100 1040 CONTINUE C C INSERT GLOBAL TO BASIC TRANSFORMATION OPERATIONS HERE FOR C ANISOTROPIC MATERIAL MATRIX C =============+================================================== C DO 1041 IJK = 1,36 1041 GMAT(IJK) = BUFM6(IJK) IF (RECT) GO TO 1100 C C MATERIAL HAS BEEN EVALUATED FOR THIS INTEGRATION POINT WHEN C FALL HERE. C 1100 IF (UGV .EQ. 0) GO TO 1170 C C COMPUTE STRESSES FOR DIFFERENTIAL STIFFNESS MATRIX C C THERMAL EFFECTS C IF (IDSTLD .EQ. -1) GO TO 1120 TEMP = 0.0 DO 1110 L = 1,NGP 1110 TEMP = TEMP + Z(IN+L-1)*GPTLD(L) TEMP = TEMP - TREF IF (ANIS) GO TO 1115 SIG(1) =-TALPHA*(E1+2.0*E2)*TEMP SIG(2) = SIG(1) SIG(3) = SIG(1) SIG(4) = 0.0 SIG(5) = 0.0 SIG(6) = 0.0 GO TO 1140 C =========================================================== 1115 CONTINUE C C ADD THERMAL STRESS COMPUTATIONS FOR ANISOTROPIC MATERIAL C C STORE ALPHA IN DOUBLE PRECISION C DO 1116 IJK = 1,6 1116 DALPHA(IJK) = BUFM6(IJK+37) C CALL GMMATS (GMAT,6,6,0, DALPHA,6,1,0,SIG) DO 1117 IJK = 1,6 1117 SIG(IJK) = -SIG(IJK)*TEMP GO TO 1140 C =========================================================== 1120 DO 1130 L = 1,6 1130 SIG(L) = 0.0 C C DISPLACEMENT EFFECTS, COMPUTE STRESS MATRIX AND MULTIPLY BY DISPL. C 1140 STR(12) = 0.0 STR(13) = 0.0 STR(17) = 0.0 DO 1160 L = 1,NGP II = IX + 3*L - 4 IF (ANIS) GO TO 1145 STR( 1) = E1*Z(II+1) STR( 2) = E2*Z(II+2) STR( 3) = E2*Z(II+3) STR( 4) = E2*Z(II+1) STR( 5) = E1*Z(II+2) STR( 6) = E2*Z(II+3) STR( 7) = E2*Z(II+1) STR( 8) = E2*Z(II+2) STR( 9) = E1*Z(II+3) STR(10) = E3*Z(II+2) STR(11) = E3*Z(II+1) STR(14) = E3*Z(II+3) STR(15) = E3*Z(II+2) STR(16) = E3*Z(II+3) STR(18) = E3*Z(II+1) GO TO 1150 C ========================================================= C 1145 CONTINUE C C ADD STRESS MATRIX COMPUTATION FOR ANISOTROPIC MATERIAL C DO 1146 IJK = 1,18 1146 STORE(IJK) = 0. STORE( 1) = Z(II+1) STORE( 5) = Z(II+2) STORE( 9) = Z(II+3) STORE(10) = Z(II+2) STORE(11) = Z(II+1) STORE(14) = Z(II+3) STORE(15) = Z(II+2) STORE(16) = Z(II+3) STORE(18) = Z(II+1) C CALL GMMATS (GMAT,6,6,0,STORE(1),6,3,0,STR) C C ============================================================ C 1150 CALL GMMATS (STR,6,3,-2,Z(ID+3*L-3),3,1,0,SIG) 1160 CONTINUE STR(1) = SX SX = SX + SY SY = SY + SZ SZ = SZ + STR(1) C C NOW BEGIN LOOPS OVER GRID POINTS ALONG ROWS AND COLUMNS C 1170 DO 1400 N = 1,NGP DO 1400 M = N,NGP C C COMPUTE PARTITION FOR POINTWISE ROW M AND COLUMN N C IF (KGG .LE. 0) GO TO 1300 IF (.NOT.ANIS ) GO TO 1200 C C ================================================================= C MUST ADD CODE TO COMPUTE THE CONTRIBUTION TO THE STIFFNESS MATRIX C FOR ANISOTROPIC MATERIAL HERE C ================================================================= C 1200 IF (SIL(M) .GE. SIL(N)) GO TO 1210 C C MUST COMPUTE TRANSPOSE OF THIS PARTITION FOR SUMMATION IN ELEMENT C MATRIX C MZ = IX + (N-1)*3 NZ = IX + (M-1)*3 GO TO 1220 1210 MZ = IX + (M-1)*3 NZ = IX + (N-1)*3 1220 IF (UGV .EQ. 0) GO TO 1222 C C DIFFERENTIAL STIFFNESS C DO 1221 L = 1,3 DO 1221 INC = 1,3 1221 C(L,INC) = Z(MZ+INC-1)*Z(NZ+L-1) PART(1,1) = SX*C(2,2) + SYZ*(C(2,3)+C(3,2)) + SZ*C(3,3) PART(2,2) = SY*C(3,3) + SZX*(C(3,1)+C(1,3)) + SX*C(1,1) PART(3,3) = SZ*C(1,1) + SXY*(C(1,2)+C(2,1)) + SY*C(2,2) PART(2,1) =-SX*C(2,1) + SXY*C(3,3) -SYZ*C(1,3) - SZX*C(2,3) PART(3,1) =-SZ*C(3,1) - SXY*C(3,2) -SYZ*C(2,1) + SZX*C(2,2) PART(1,2) =-SX*C(1,2) + SXY*C(3,3) -SYZ*C(3,1) - SZX*C(3,2) PART(3,2) =-SY*C(3,2) - SXY*C(3,1) +SYZ*C(1,1) - SZX*C(1,2) PART(1,3) =-SZ*C(1,3) - SXY*C(2,3) -SYZ*C(1,2) + SZX*C(2,2) PART(2,3) =-SY*C(2,3) - SXY*C(1,3) +SYZ*C(1,1) - SZX*C(2,1) GO TO 1228 C C ELASTIC STIFFNESS C 1222 IF (.NOT.ANIS) GO TO 1226 C C STORE CI MATRIX C DO 1223 IJK = 1,18 1223 STORE(IJK) = 0. STORE( 1) = Z(MZ ) STORE( 4) = Z(MZ+1) STORE( 6) = Z(MZ+2) STORE( 8) = Z(MZ+1) STORE(10) = Z(MZ ) STORE(11) = Z(MZ+2) STORE(15) = Z(MZ+2) STORE(17) = Z(MZ+1) STORE(18) = Z(MZ ) C CALL GMMATS (STORE(1),3,6,0,GMAT(1),6,6,0,STORE(19)) C C STORE CJ C DO 1224 IJK = 1,18 1224 STORE(IJK) = 0. STORE( 1) = Z(NZ ) STORE( 5) = Z(NZ+1) STORE( 9) = Z(NZ+2) STORE(10) = Z(NZ+1) STORE(11) = Z(NZ ) STORE(14) = Z(NZ+2) STORE(15) = Z(NZ+1) STORE(16) = Z(NZ+2) STORE(18) = Z(NZ ) C CALL GMMATS (STORE(19),3,6,0,STORE(1),6,3,0,STORE(37)) IJKL = 0 DO 1225 IJK = 1,3 DO 1225 IJL = 1,3 IJKL = IJKL + 1 PART(IJK,IJL) = STORE(IJKL+36) 1225 CONTINUE GO TO 1228 1226 PART(1,1) = E1*Z(NZ)*Z(MZ) + E3*(Z(NZ+1)*Z(MZ+1) +Z(NZ+2)*Z(MZ+2)) PART(2,2) = E1*Z(NZ+1)*Z(MZ+1) + E3*(Z(NZ)*Z(MZ) +Z(NZ+2)*Z(MZ+2)) PART(3,3) = E1*Z(NZ+2)*Z(MZ+2) + E3*(Z(NZ)*Z(MZ) +Z(NZ+1)*Z(MZ+1)) PART(2,1) = E2*Z(NZ )*Z(MZ+1) + E3*Z(NZ+1)*Z(MZ ) PART(3,1) = E2*Z(NZ )*Z(MZ+2) + E3*Z(NZ+2)*Z(MZ ) PART(1,2) = E2*Z(NZ+1)*Z(MZ ) + E3*Z(NZ )*Z(MZ+1) PART(3,2) = E2*Z(NZ+1)*Z(MZ+2) + E3*Z(NZ+2)*Z(MZ+1) PART(1,3) = E2*Z(NZ+2)*Z(MZ ) + E3*Z(NZ )*Z(MZ+2) PART(2,3) = E2*Z(NZ+2)*Z(MZ+1) + E3*Z(NZ+1)*Z(MZ+2) C C ADD STIFFNESS PARTITION TO ELEMENT MATRIX C C COMPUTE INDEX INTO OPEN CORE WHERE PART(1,1) IS TO BE ADDED. C 1228 IF (SIL(M)-SIL(N)) 1230,1240,1250 1230 MZ = SIL(N) NZ = SIL(M) DIAG = .FALSE. GO TO 1260 1240 MZ = SIL(M) NZ = SIL(N) DIAG = .TRUE. GO TO 1260 1250 MZ = SIL(M) NZ = SIL(N) DIAG = .FALSE. C C COLUMN NUMBER C 1260 L = (NZ-1)*3 + 1 C C INCREMENT BETWEEN COLUMNS C INC = NGG - L C C FIRST WORD OF COLUMN C L = IK + ((L-1)*L)/2 + (INC+1)*(L-1) C C WORD IN COLUMN FOR THIS ROW C L = L + 3*(MZ-NZ) C C ADD PARTITION C DO 1280 NZ = 1,3 DO 1270 MZ = 1,3 IF (DIAG .AND. MZ.LT.NZ) GO TO 1270 Z(L+MZ-1) = Z(L+MZ-1) + PART(MZ,NZ)*SFACT 1270 CONTINUE L = L + INC INC = INC - 1 1280 CONTINUE 1300 IF (MGG .LE. 0) GO TO 1400 C C MASS C C COMPUTE TERM FOR MASS MATRIX C RHO = BUFM6(37) MZ = SIL(M) NZ = SIL(N) IF (MZ .GE. NZ) GO TO 1310 MZ = SIL(N) NZ = SIL(M) C C COMPUTE INDEX INTO OPEN CORE FOR THIS MASS TERM C 1310 L = (NZ*(NZ+1))/2 + (NZ-1)*(NGP-NZ) + MZ - NZ + IM - 1 C C COMPUTE AND ADD MASS TERM TO ELEMENT MATRIX C Z(L) = Z(L) + RHO*SFACT*Z(IN+M-1)*Z(IN+N-1) 1400 CONTINUE 2000 CONTINUE C C END OF INTEGRATION LOOPS C ICODE = 7 C C LOOK FOR NON-BASIC COORDINATE SYSTEM C NOCSTM = .FALSE. DO 2003 I = 1,NGP IF (IEST(BGPDT+I-1) .NE. 0) GO TO 2005 2003 CONTINUE NOCSTM = .TRUE. GO TO 2065 C C RESTORE GRID POINT DATA TO ORIGINAL FORM FOR DOING TRANSFORM C TO GLOBAL COORDINATES C C FIRST, TRANSFER IT TO OPEN CORE AT IN C 2005 K = (IN-1)*2 + 1 J = NGP*4 DO 2010 I = 1,J 2010 RZ(K+I-1) = EST(BGPDT+I-1) C C NOW MOVE IT BACK AND REARRANGE IT C DO 2020 I = 1,NGP IEST(BGPDT+4*I-4) = JZ(K+I-1) DO 2020 J = 1,3 EST(BGPDT+4*I-4+J) = RZ(K+NGP+3*I+J-4) 2020 CONTINUE C C FETCH GLOBAL TO BASIC TRANSFORMATION MATRICES C DO 2025 I = 1,NGP J = IN + (I-1)*9 CALL TRANSS (EST(BGPDT+4*I-4),Z(J)) 2025 CONTINUE IF (KGG .LE. 0) GO TO 2110 C C TRANSFORM STIFFNESS TO GLOBAL COORDINATES C I = 0 2026 I = I + 1 ICP = SIL(I) C C COLUMN INDICES C K = (ICP-1)*3 + 1 INC = NGG - K + 1 L = IK + ((K-1)*K)/2 + INC*(K-1) M = L + INC N = M + INC - 1 C C TRANSFORMATION MATRIX INDEX C IGCS = IEST(BGPDT+4*I-4) NZ = IN + (I-1)*9 IF (IGCS .EQ. 0) GO TO 2028 C C TERMS ON DIAGONAL PARTITION C ASSIGN 2028 TO BACK GO TO 6000 C C OFF-DIAGONAL PARTITIONS C 2028 L = L + 3 M = M + 2 N = N + 1 IRP = ICP + 1 IF (IRP .GT. NGP) GO TO 2060 MZ = NZ DO 2050 J = IRP,NGP DO 2029 K = 1,NGP IF (J .EQ. SIL(K)) GO TO 2031 2029 CONTINUE 2031 IF (IGCS .NE. 0) GO TO 2032 IF (IEST(BGPDT+4*K-4) .EQ. 0) GO TO 2045 2032 NZ = IN + (K-1)*9 DO 2030 K = 1,3 TK(K,1) = 0.0 TK(K,2) = 0.0 TK(K,3) = 0.0 DO 2030 II = 1,3 TK(K,1) = TK(K,1) + Z(L+II-1)*Z(NZ+3*II+K-4) TK(K,2) = TK(K,2) + Z(M+II-1)*Z(NZ+3*II+K-4) TK(K,3) = TK(K,3) + Z(N+II-1)*Z(NZ+3*II+K-4) 2030 CONTINUE DO 2040 K = 1,3 Z(L+K-1) = 0.0 Z(M+K-1) = 0.0 Z(N+K-1) = 0.0 DO 2040 II = 1,3 Z(L+K-1) = Z(L+K-1) + TK(K,II)*Z(MZ+3*II-3) Z(M+K-1) = Z(M+K-1) + TK(K,II)*Z(MZ+3*II-2) Z(N+K-1) = Z(N+K-1) + TK(K,II)*Z(MZ+3*II-1) 2040 CONTINUE 2045 L = L + 3 M = M + 3 N = N + 3 2050 CONTINUE 2060 IF (I .LT. NGP) GO TO 2026 C C BUILD STIFFNESS PARTITIONS AND PASS TO EMGOUT C 2065 IDON = 0 DO 2100 I = 1,NGP IF (I .EQ. NGP) IDON = 1 DO 2090 J = 1,3 C C COLUMN NUMBER C K = (I-1)*3 + J C C NUMBER OF TERMS TO FETCH TO COMPLETE THIS COLUMN IN PARTITION C L = K - 1 IF (L .EQ. 0) GO TO 2075 C C FETCH TERMS AND LOAD INTO J-TH COLUMN OF PARTITION C N = IK + L INC = NGG - 1 DO 2070 M = 1,L Z(IZ+NGG*J-NGG+M-1) = Z(N) N = N + INC INC = INC - 1 2070 CONTINUE C C FILL OUT PARTITION WITH COLUMNS OF STIFFNESS MATRIX C C COMPUTE INDEX IN OPEN CORE OF FIRST TERM OF COLUMN K C 2075 N = IK + ((K-1)*K)/2 + (NGG-K+1)*(K-1) C C INSERT THIS COLUMN IN PARTITION C DO 2080 M = K,NGG Z(IZ+NGG*J-NGG+M-1) = Z(N) N = N + 1 2080 CONTINUE 2090 CONTINUE DICT(5) = IB(45) CALL EMGOUT (Z(IZ),Z(IZ),3*NGG,IDON,DICT,1,1) 2100 CONTINUE C C EXPAND AND TRANSFORM MASS MATRIX AND PASS TO EMGOUT C IF (MGG .LE. 0) GO TO 2400 2110 IDON = 0 DO 2140 I = 1,NGP IF (I .EQ. NGP) IDON = 1 DO 2130 J = 1,NGP C C COMPUTE INDEX INTO OPEN CORE FOR MASS TERM C K = I L = J IF (I .LE. J) GO TO 2115 K = J L = I 2115 N = ((K-1)*K)/2 + (K-1)*(NGP-K+1) + L - K + IM C C MULTIPLY GLOBAL TO BASIC TRANSFORMATIONS C M = IZ - NGG+3*J - 4 IF (I.EQ.J .OR. NOCSTM) GO TO 2116 IF (IEST(BGPDT+4*I-4) .NE. 0) GO TO 2118 IF (IEST(BGPDT+4*J-4) .NE. 0) GO TO 2118 2116 Z(M+NGG +1) = Z(N) Z(M+NGG +2) = 0.0 Z(M+NGG +3) = 0.0 Z(M+NGG*2+1) = 0.0 Z(M+NGG*2+2) = Z(N) Z(M+NGG*2+3) = 0.0 Z(M+NGG*3+1) = 0.0 Z(M+NGG*3+2) = 0.0 Z(M+NGG*3+3) = Z(N) GO TO 2130 2118 DO 2119 K = 1,NGP IF (I .EQ. SIL(K)) MZ = IN + 9*(K-1) IF (J .EQ. SIL(K)) NZ = IN + 9*(K-1) 2119 CONTINUE CALL GMMATS (Z(MZ),3,3,1,Z(NZ),3,3,0,TF) C C MULTIPLY BY MASS SCALAR FOR THIS 3 BY 3 PARTITION AND STORE C IN NGG BY 3 PARTITION C DO 2120 K = 1,3 DO 2120 L = 1,3 Z(M+NGG*L+K) = TF(K,L)*Z(N) 2120 CONTINUE 2130 CONTINUE DICT(5) = 0 CALL EMGOUT (Z(IZ),Z(IZ),3*NGG,IDON,DICT,2,1) 2140 CONTINUE C C SAVE ELEMENT BCD NAME, ID, VOLUME, MASS, NO. OF GRID POINTS, AND C GRID POINT DATA IN SCR4 IF USER REQUESTED VOLUME/AREA PRINTOUT C (NOTE - MAKE SURE THE GRID POINT DATA, BGPDT, IS IN ISTS ORIGIANL C FORM) C 2400 IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 5000 IL = IZ*2 RZ(IL+1) = BCD1 RZ(IL+2) = BCD2(TYPE) JZ(IL+3) = EID RZ(IL+4) = TVOL*VOLUME RZ(IL+5) = TVOL IF (RHO .GT. 0.0) RZ(IL+5) = TVOL*RHO JZ(IL+6) = NGP K = IL + 6 DO 2410 I = 1,NGP K = K + 1 2410 RZ(K) = EST(1+I) IF (SURFAC .LE. 0.0) GO TO 2460 IF (.NOT.NOCSTM) GO TO 2440 L = BGPDT + NGP DO 2430 I = 1,NGP K = K + 1 JZ(K) = IEST(BGPDT+I-1) DO 2420 J = 1,3 K = K + 1 RZ(K) = EST(L) 2420 L = L + 1 2430 CONTINUE GO TO 2460 2440 J = NGP*4 DO 2450 I = 1,J K = K + 1 2450 RZ(K) = EST(BGPDT+I-1) 2460 L = K - IL CALL WRITE (SCR4,RZ(IL+1),L,1) GO TO 5000 C C HEAT TRANSFER SECTION C 3000 INFLAG = 3 CALL HMAT (EID) ANIS = .FALSE. IF (KGG .LE. 0) GO TO 3100 C C CHECK FOR ANISOTROPY C IF (KHEAT(1).NE.KHEAT(4) .OR. KHEAT(1).NE.KHEAT(6)) GO TO 3010 IF (KHEAT(2).NE.0.0 .OR. KHEAT(3).NE.0.0 .OR. KHEAT(5).NE.0.0) 1 GO TO 3010 GO TO 3100 3010 ANIS = .TRUE. IT = IZ + 8 C C CHECK FOR RECTANGULAR COORDINATE SYSTEM FOR MATERIAL C RECT = .TRUE. IF (CID .EQ. 0) GO TO 3100 JZ(IZS) = CID DO 3030 I = 1,3 3030 RZ(IZS+I) = EST(BCORD+I-1) CALL TRANSS (RZ(IZS),Z(IT)) DO 3040 I = 1,3 3040 RZ(IZS+I) = -RZ(IZS+I) CALL TRANSS (RZ(IZS),Z(IN)) DO 3050 I = 1,9 IF (Z(IT+I-1) .NE. Z(IN+I-1)) RECT = .FALSE. 3050 CONTINUE C C IF NOT DEFINED IN A RECTANGULAR SYSTEM, MUST TRANSFORM INSIDE C INTEGRATION LOOPS C IF (.NOT.RECT) GO TO 3100 C C TRANSFORM MATERIAL MATRIX TO BASIC SYSTEM C DO 3060 I = 1,6 3060 Z(IZ+I+1) = KHEAT(I) L = IZ + 2 M = L + 3 N = M + 2 NZ = IT ASSIGN 3100 TO BACK GO TO 6000 C C ANISOTROPIC CONDUCTIVITY MATERIAL MATRIX NOW STORED AT RZ(IZ+2) C TO RZ(IZ+7) C C ALL SET FOR DOING INTEGRATION. DO IT. C 3100 I = 0 3101 I = I + 1 J = 0 3102 J = J + 1 K = 0 3103 K = K + 1 C C GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE C CALL IHEXSS (TYPE,Z(IN),Z(IG),JACOB,DETJ,EID,S(I),S(J),S(K), 1 EST(BCORD)) IF (DETJ .NE. 0.0) GO TO 3110 C C FALL HERE IF JACOBIAN MATRIX WAS SINGULAR C NOGO = .TRUE. RETURN C 3110 SFACT = H(I)*H(J)*H(K)*DETJ IF (KGG .LE. 0) GO TO 3120 C C COMPUTE DERIVATIVES OF SHAPE FUNCTION W.R.T. BASIC SYSTEM. C C MUST REVERSE CALLING ORDER SINCE MATRICES ARE STORED BY COLUMNS C CALL GMMATS (Z(IG),NGP,3,0,JACOB,3,3,0,Z(IX)) C C IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN A RECTANGULAR C CORDINATE SYSTEM, MUST TRANSFORM TO BASIC SYSTEM AT THIS C INTEGRATION POINT C 3120 IF (.NOT.ANIS) GO TO 3160 IF (RECT) GO TO 3160 C C COMPUTE BASIC COORDINATES VECTOR AT THIS POINT C DO 3130 L = 1,3 3130 RZ(IZS+L) = 0.0 DO 3140 L = 1,NGP DO 3140 M = 1,3 RZ(IZS+M) = RZ(IZS+M) + Z(IN+L-1)*EST(BCORD + 3*L+M-4) 3140 CONTINUE C C FETCH TRANSFORMATION AND CONDUCTIVITY MATRICES AND PERFORM C TRANSFORMATION OPERATIONS C CALL TRANSS (RZ(IZS),Z(IT)) DO 3150 L = 1,6 3150 Z(IZ+L+1) = KHEAT(L) NZ = IT L = IZ + 2 M = L + 3 N = M + 2 ASSIGN 3160 TO BACK GO TO 6000 C C MATERIAL HAS BEEN EVALUATED FOR THIS INTEGRATION POINT WHEN C FALL HERE C C NOW BEGIN LOOPS OVER GRID POINTS ALONG ROWS AND COLUMNS C 3160 DO 3220 N = 1,NGP DO 3220 M = N,NGP C C COMPUTE 1 BY 1 PARTITION FOR ROW M AND COLUMN N C IF (KGG .LE. 0) GO TO 3210 C C CONDUCTIVITY C IF (ANIS) GO TO 3180 C C ISOTROPIC CASE C PRT1 = 0.0 DO 3170 L = 1,3 3170 PRT1 = PRT1 + Z(IX+3*M+L-4)*Z(IX+3*N+L-4) PRT1 = SFACT*KHEAT(1)*PRT1 GO TO 3190 C C ANISOTROPIC CASE C 3180 L = IX + 3*(M-1) E1 = Z(L)*Z(IZ+2) + Z(L+1)*Z(IZ+3) + Z(L+2)*Z(IZ+4) E2 = Z(L)*Z(IZ+3) + Z(L+1)*Z(IZ+5) + Z(L+2)*Z(IZ+6) E3 = Z(L)*Z(IZ+4) + Z(L+1)*Z(IZ+6) + Z(L+2)*Z(IZ+7) L = IX + 3*(N-1) PRT1 = SFACT*(Z(L)*E1 + Z(L+1)*E2 + Z(L+2)*E3) C C COMPUTE INDEX INTO OPEN CORE FOR THIS TERM C 3190 L = SIL(M) MZ = SIL(N) IF (L .LE. MZ) GO TO 3200 L = MZ MZ = SIL(M) 3200 L = (L-1)*NGG + MZ + IK - 1 C C ADD TERM TO MATRIX C Z(L) = Z(L) + PRT1 C C CAPACITANCE C 3210 IF (MGG .LE. 0) GO TO 3220 C C COMPUTE INDEX INTO OPEN CORE FOR THIS TERM C L = SIL(M) MZ = SIL(N) IF (L .LE. MZ) GO TO 3215 L = MZ MZ = SIL(M) 3215 L = (L-1)*NGG + MZ + IM - 1 C C COMPUTE AND ADD TERM C Z(L) = Z(L) + SFACT*CP*Z(IN+M-1)*Z(IN+N-1) 3220 CONTINUE IF (K .LT. NIP) GO TO 3103 IF (J .LT. NIP) GO TO 3102 IF (I .LT. NIP) GO TO 3101 C C END OF HEAT TRANSFER INTEGRATION LOOPS C ICODE = 1 C C FILL IN THE UPPER TRIANGLES OF THE MATRICES C IF (KGG .LE. 0) GO TO 4010 MZ = IK GO TO 4020 4010 IF (MGG .LE. 0) GO TO 4040 MZ = IM 4020 L = NGG - 1 DO 4030 I = 1,L J = I + 1 DO 4030 K = J,NGG M = (I-1)*NGG + K + MZ - 1 N = (K-1)*NGG + I + MZ - 1 Z(N) = Z(M) 4030 CONTINUE IF (MZ .EQ. IK) GO TO 4010 C C PASS MATRICES TO EMGOUT C 4040 K = NGG**2 DICT(5) = 0 IF (KGG .GT. 0) CALL EMGOUT (Z(IK),Z(IK),K,1,DICT,1,1) IF (MGG .GT. 0) CALL EMGOUT (Z(IM),Z(IM),K,1,DICT,3,1) C C ALL DONE, NO ERRORS C 5000 RETURN C C C INTERNAL SUBROUTINE C C TRANSFORM COORDINATE SYSTEM OF SYMMETRIC HALF OF A 3 BY 3 MATRIX C 6000 TK(1,1) = Z(NZ )*Z(L ) + Z(NZ+3)*Z(L+1) + Z(NZ+6)*Z(L+2) TK(2,1) = Z(NZ+1)*Z(L ) + Z(NZ+4)*Z(L+1) + Z(NZ+7)*Z(L+2) TK(3,1) = Z(NZ+2)*Z(L ) + Z(NZ+5)*Z(L+1) + Z(NZ+8)*Z(L+2) TK(1,2) = Z(NZ )*Z(L+1) + Z(NZ+3)*Z(M ) + Z(NZ+6)*Z(M+1) TK(2,2) = Z(NZ+1)*Z(L+1) + Z(NZ+4)*Z(M ) + Z(NZ+7)*Z(M+1) TK(3,2) = Z(NZ+2)*Z(L+1) + Z(NZ+5)*Z(M ) + Z(NZ+8)*Z(M+1) TK(1,3) = Z(NZ )*Z(L+2) + Z(NZ+3)*Z(M+1) + Z(NZ+6)*Z(N ) TK(2,3) = Z(NZ+1)*Z(L+2) + Z(NZ+4)*Z(M+1) + Z(NZ+7)*Z(N ) TK(3,3) = Z(NZ+2)*Z(L+2) + Z(NZ+5)*Z(M+1) + Z(NZ+8)*Z(N ) Z(L ) = Z(NZ )*TK(1,1) + Z(NZ+3)*TK(1,2) + Z(NZ+6)*TK(1,3) Z(L+1) = Z(NZ )*TK(2,1) + Z(NZ+3)*TK(2,2) + Z(NZ+6)*TK(2,3) Z(L+2) = Z(NZ )*TK(3,1) + Z(NZ+3)*TK(3,2) + Z(NZ+6)*TK(3,3) Z(M ) = Z(NZ+1)*TK(2,1) + Z(NZ+4)*TK(2,2) + Z(NZ+7)*TK(2,3) Z(M+1) = Z(NZ+1)*TK(3,1) + Z(NZ+4)*TK(3,2) + Z(NZ+7)*TK(3,3) Z(N ) = Z(NZ+2)*TK(3,1) + Z(NZ+5)*TK(3,2) + Z(NZ+8)*TK(3,3) GO TO BACK, (2028,3100,3160) C 7100 FORMAT (A23,I5,2H, ,A4,I1,3A4,I9,' INSUFFICIENT CORE TO COMPUTE', 1 ' ELEMENT MATRIX') 7200 FORMAT (A23,I5,2H, ,A4,I1,3A4,I9,3X,18HILLEGAL GEOMETRY, ,9A4) 7300 FORMAT (A23,' 4005. AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED ', 1 'UNDER MATERIAL ID =',I10,17H FOR ELEMENT ID =,I10) C END ================================================ FILE: mis/ihexsd.f ================================================ SUBROUTINE IHEXSD (TYPE,SHP,DSHP,JACOB,DETJ,EID,XI,ETA,ZETA,BXYZ) C C DOUBLE PRECISION VERSION C C ISOPARAMETRIC UTILITY ROUTINE. THIS ROUTINE WILL COMPUTE C VALUES OF THE SHAPE FUNCTIONS, THEIR DERIVATIVES WITH RESPECT TO C XI,ETA, AND ZETA, THE JACOBIAN MATRIX INVERSE, AND ITS DETERMINANT C C TYPE = 1 IHEX1 C TYPE = 2 IHEX2 C TYPE = 3 IHEX3 C C SHP = VALUES OF SHAPE FUNCTIONS C DSHP = DERIVATIVES OF SHAPE FUNCTIONS W.R.T. XI, ETA, ZETA C JACOB = JACOBIAN MATRIX INVERSE C DETJ = DETERMINANT OF JACOBIAN MATRIX C XI, ETA, ZETA = ELEMENT COORDINATES AT WHICH THESE COMPUTATIONS C TAKE PLACE C BXYZ = BASIC SYSTEM COORDINATES FOR GRID POINTS C C LOCAL VARIABLES C X,Y,Z = CONSTANTS FOR EACH SHAPE FUNCTION C NGP = NUMBER OF SHAPE FUNCTIONS, ALSO NUMBER OF GRID POINTS C INTEGER TYPE ,EID ,OP REAL BXYZ(3,8) DOUBLE PRECISION SHP(8) ,DSHP(3,8) ,JACOB(3,3) , 1 DETJ ,XI ,ETA ,ZETA , 2 X ,Y ,Z ,QXI , 3 QETA ,QZETA ,QXYZ ,WORK(3,3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF ,OP C NGP = 12*TYPE - 4 Y =-1.0 Z =-1.0 GO TO (100,200,310), TYPE C C LINEAR ELEMENT IHEX1 C 100 DO 110 J = 1,2 IF (J .EQ. 2) Z = 1.0 X =-1.0 Y =-1.0 DO 110 I = 1,4 IF (I .EQ. 3) Y = 1.0 IF (I .EQ. 2) X = 1.0 IF (I .EQ. 4) X =-1.0 K = I + (J-1)*4 QXI = 1.0 + XI*X QETA = 1.0 + ETA*Y QZETA = 1.0 + ZETA*Z SHP(K) = QXI*QETA*QZETA/8.0 DSHP(1,K) = X*QETA*QZETA/8.0 DSHP(2,K) = Y*QXI*QZETA/8.0 DSHP(3,K) = Z*QXI*QETA/8.0 110 CONTINUE GO TO 430 C C QUADRATIC ELEMENT IHEX2 C 200 D = 1.0 X = 0.0 DO 300 I = 1,20 C 1 2 3 4 5 6 7 8 9 10 GO TO (220,210,210,230,230,220,220,240,250,210, 1 230,220,250,210,210,230,230,220,220,240), I 210 X = X + D GO TO 260 220 X = X - D GO TO 260 230 Y = Y + D GO TO 260 240 Y = Y - D GO TO 260 250 Z = Z + 1.0 Y =-1.0 D = 3.0-D 260 IF (X .EQ. 0.0) GO TO 270 IF (Y .EQ. 0.0) GO TO 280 IF (Z .EQ. 0.0) GO TO 290 C C CORNER POINT C QXI = 1.0 + X*XI QETA = 1.0 + Y*ETA QZETA = 1.0 + Z*ZETA QXYZ = X*XI + Y*ETA + Z*ZETA SHP(I)= QXI*QETA*QZETA*(QXYZ-2.0)/8.0 DSHP(1,I) = X*QETA*QZETA*(X*XI+QXYZ-1.0)/8.0 DSHP(2,I) = Y*QXI*QZETA*(Y*ETA+QXYZ-1.0)/8.0 DSHP(3,I) = Z*QXI*QETA*(Z*ZETA+QXYZ-1.0)/8.0 GO TO 300 C C MID-EDGE POINT, X=0.0 C 270 QXI = 1.0 - XI**2 QETA = 1.0 + Y*ETA QZETA = 1.0 + Z*ZETA SHP(I)= QXI*QETA*QZETA/4.0 DSHP(1,I) =-XI*QETA*QZETA/2.0 DSHP(2,I) = QXI*QZETA*Y/4.0 DSHP(3,I) = QXI*QETA*Z/4.0 GO TO 300 C C MID-EDGE POINT, Y=0.0 C 280 QXI = 1.0 + X*XI QETA = 1.0 - ETA**2 QZETA = 1.0 + Z*ZETA SHP(I)= QETA*QXI*QZETA/4.0 DSHP(1,I) = QETA*QZETA*X/4.0 DSHP(2,I) =-ETA*QZETA*QXI/2.0 DSHP(3,I) = QETA*QXI*Z/4.0 GO TO 300 C C MID-EDGE POINT, Z=0.0 C 290 QXI = 1.0 + X*XI QETA = 1.0 + Y*ETA QZETA = 1.0 - ZETA**2 SHP(I)= QZETA*QXI*QETA/4.0 DSHP(1,I) = QZETA*QETA*X/4.0 DSHP(2,I) = QZETA*QXI*Y/4.0 DSHP(3,I) =-ZETA*QXI*QETA/2.0 300 CONTINUE GO TO 430 C C CUBIC ELEMENT IHEX3 C 310 D = 2.0/3.0 X =-1.0/3.0 DO 420 I = 1,32 C 1 2 3 4 5 6 7 8 9 10 GO TO (320,330,330,330,340,340,340,320,320,320, 2 350,350,360,330,340,320,360,330,340,320, 3 360,330,330,330,340,340,340,320,320,320, 4 350,350),I 320 X = X - D GO TO 370 330 X = X + D GO TO 370 340 Y = Y + D GO TO 370 350 Y = Y - D GO TO 370 360 Y =-1.0 Z = Z + 2.0/3.0 IF (Z .GT. -1.0) D = 2.0 IF (Z .GT. 0.4) D = 2.0/3.0 370 IF (DABS(X) .LT. 0.4) GO TO 390 IF (DABS(Y) .LT. 0.4) GO TO 400 IF (DABS(Z) .LT. 0.4) GO TO 410 C C CORNER POINT C QXI = 1.0 + X*XI QETA = 1.0 + Y*ETA QZETA = 1.0 + Z*ZETA QXYZ = XI**2+ETA**2+ZETA**2 - 19.0/9.0 SHP(I)= 9.0*QXI*QETA*QZETA*QXYZ/64.0 DSHP(1,I) = 9.0*QETA*QZETA*(X*(2.0*XI**2+QXYZ)+2.0*XI)/64.0 DSHP(2,I) = 9.0*QXI*QZETA*(Y*(2.0*ETA**2+QXYZ)+2.0*ETA)/64.0 DSHP(3,I) = 9.0*QXI*QETA*(Z*(2.0*ZETA**2+QXYZ)+2.0*ZETA)/64.0 GO TO 420 C C MID-EDGE POINT, X = + OR - 1/3 C 390 QXI = 9.0*(1.0-XI**2)*(1.0+9.0*X*XI)/64.0 QETA = 1.0 + Y*ETA QZETA = 1.0 + Z*ZETA QXYZ = 9.0*(-2.0*XI+9.0*X-27.0*XI*X*XI)/64.0 SHP(I)= QXI*QETA*QZETA DSHP(1,I) = QETA*QZETA*QXYZ DSHP(2,I) = QXI*QZETA*Y DSHP(3,I) = QXI*QETA*Z GO TO 420 C C MID-EDGE POINT Y = + OR - 1/3 C 400 QXI = 1.0 + X*XI QETA = 9.0*(1.0-ETA**2)*(1.0+9.0*ETA*Y)/64.0 QZETA = 1.0 + Z*ZETA QXYZ = 9.0*(-2.0*ETA+9.0*Y-27.0*ETA*Y*ETA)/64.0 SHP(I)= QETA*QXI*QZETA DSHP(1,I) = QETA*QZETA*X DSHP(2,I) = QXI*QZETA*QXYZ DSHP(3,I) = QETA*QXI*Z GO TO 420 C C MID-EDGE POINTS Z = + OR - 1/3 C 410 QXI = 1.0 + X*XI QETA = 1.0 + Y*ETA QZETA = 9.0*(1.0-ZETA**2)*(1.0+9.0*Z*ZETA)/64.0 QXYZ = 9.0*(-2.0*ZETA+9.0*Z-27.0*Z*ZETA**2)/64.0 SHP(I)= QZETA*QXI*QETA DSHP(1,I) = QZETA*QETA*X DSHP(2,I) = QZETA*QXI*Y DSHP(3,I) = QXI*QETA*QXYZ 420 CONTINUE C C COMPUTE JACOBIAN MATRIX C 430 DO 440 I = 1,3 DO 440 J = 1,3 JACOB(I,J) = 0.0 DO 440 K = 1,NGP JACOB(I,J) = JACOB(I,J) + DSHP(I,K)*DBLE(BXYZ(J,K)) 440 CONTINUE C C COMPUTE INVERSE AND DETERMINANT OF JACOBIAN MATRIX C WORK(1,1) = JACOB(2,2)*JACOB(3,3) - JACOB(2,3)*JACOB(3,2) WORK(2,1) = JACOB(2,3)*JACOB(3,1) - JACOB(2,1)*JACOB(3,3) WORK(3,1) = JACOB(2,1)*JACOB(3,2) - JACOB(2,2)*JACOB(3,1) WORK(1,2) = JACOB(1,3)*JACOB(3,2) - JACOB(1,2)*JACOB(3,3) WORK(2,2) = JACOB(1,1)*JACOB(3,3) - JACOB(1,3)*JACOB(3,1) WORK(3,2) = JACOB(1,2)*JACOB(3,1) - JACOB(1,1)*JACOB(3,2) WORK(1,3) = JACOB(1,2)*JACOB(2,3) - JACOB(1,3)*JACOB(2,2) WORK(2,3) = JACOB(1,3)*JACOB(2,1) - JACOB(1,1)*JACOB(2,3) WORK(3,3) = JACOB(1,1)*JACOB(2,2) - JACOB(1,2)*JACOB(2,1) DETJ = 0.0 DO 450 I = 1,3 DETJ = DETJ + JACOB(I,2)*WORK(2,I) 450 CONTINUE IF (DETJ .EQ. 0.0) GO TO 470 DO 460 I = 1,3 DO 460 J = 1,3 JACOB(I,J) = WORK(I,J)/DETJ 460 CONTINUE RETURN C C JACOBIAN MATRIX WAS SINGULAR. C 470 WRITE (OP,480) UFM,EID 480 FORMAT (A23,' 3306, SINGULAR JACOBIAN MATRIX FOR ISOPARAMETRIC ', 1 'ELEMENT NO.',I9) RETURN END ================================================ FILE: mis/ihexss.f ================================================ SUBROUTINE IHEXSS (TYPE,SHP,DSHP,JACOB,DETJ,EID,XI,ETA,ZETA,BXYZ) C C SINGLE PRECISION VERSION C C ISOPARAMETRIC UTILITY ROUTINE. THIS ROUTINE WILL COMPUTE C VALUES OF THE SHAPE FUNCTIONS, THEIR DERIVATIVES WITH RESPECT TO C XI,ETA, AND ZETA, THE JACOBIAN MATRIX INVERSE, AND ITS DETERMINANT C C TYPE = 1 IHEX1 C TYPE = 2 IHEX2 C TYPE = 3 IHEX3 C C SHP = VALUES OF SHAPE FUNCTIONS C DSHP = DERIVATIVES OF SHAPE FUNCTIONS W.R.T. XI, ETA, ZETA C JACOB = JACOBIAN MATRIX INVERSE C DETJ = DETERMINANT OF JACOBIAN MATRIX C XI, ETA, ZETA = ELEMENT COORDINATES AT WHICH THESE COMPUTATIONS C TAKE PLACE C BXYZ = BASIC SYSTEM COORDINATES FOR GRID POINTS C C LOCAL VARIABLES C X,Y,Z = CONSTANTS FOR EACH SHAPE FUNCTION C NGP = NUMBER OF SHAPE FUNCTIONS, ALSO NUMBER OF GRID POINTS C INTEGER TYPE ,EID ,OP REAL BXYZ(3,8) ,SHP(8) ,DSHP(3,8) ,JACOB(3,3) , 1 WORK(3,3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF ,OP C NGP = 12*TYPE - 4 Y =-1.0 Z =-1.0 GO TO (100,200,310), TYPE C C LINEAR ELEMENT IHEX1 C 100 DO 110 J = 1,2 IF (J .EQ. 2) Z = 1.0 X = -1.0 Y = -1.0 DO 110 I = 1,4 IF (I .EQ. 3) Y = 1.0 IF (I .EQ. 2) X = 1.0 IF (I .EQ. 4) X =-1.0 K = I + (J-1)*4 QXI = 1.0 + XI*X QETA = 1.0 + ETA*Y QZETA= 1.0 + ZETA*Z SHP(K) = QXI*QETA*QZETA/8.0 DSHP(1,K) = X*QETA*QZETA/8.0 DSHP(2,K) = Y*QXI*QZETA/8.0 DSHP(3,K) = Z*QXI*QETA/8.0 110 CONTINUE GO TO 430 C C QUADRATIC ELEMENT IHEX2 C 200 D = 1.0 X = 0.0 DO 300 I = 1,20 C 1 2 3 4 5 6 7 8 9 10 GO TO (220,210,210,230,230,220,220,240,250,210, 1 230,220,250,210,210,230,230,220,220,240), I 210 X = X+D GO TO 260 220 X = X - D GO TO 260 230 Y = Y + D GO TO 260 240 Y = Y - D GO TO 260 250 Z = Z + 1.0 Y =-1.0 D = 3.0-D 260 IF (X .EQ. 0.0) GO TO 270 IF (Y .EQ. 0.0) GO TO 280 IF (Z .EQ. 0.0) GO TO 290 C C CORNER POINT C QXI = 1.0 + X*XI QETA = 1.0 + Y*ETA QZETA = 1.0 + Z*ZETA QXYZ = X*XI + Y*ETA+Z*ZETA SHP(I)= QXI*QETA*QZETA*(QXYZ-2.0)/8.0 DSHP(1,I) = X*QETA*QZETA*(X*XI+QXYZ-1.0)/8.0 DSHP(2,I) = Y*QXI*QZETA*(Y*ETA+QXYZ-1.0)/8.0 DSHP(3,I) = Z*QXI*QETA*(Z*ZETA+QXYZ-1.0)/8.0 GO TO 300 C C MID-EDGE POINT, X = 0.0 C 270 QXI = 1.0 - XI**2 QETA = 1.0 + Y*ETA QZETA = 1.0 + Z*ZETA SHP(I)= QXI*QETA*QZETA/4.0 DSHP(1,I) =-XI*QETA*QZETA/2.0 DSHP(2,I) = QXI*QZETA*Y/4.0 DSHP(3,I) = QXI*QETA*Z/4.0 GO TO 300 C C MID-EDGE POINT, Y = 0.0 C 280 QXI = 1.0 + X*XI QETA = 1.0 - ETA**2 QZETA = 1.0 + Z*ZETA SHP(I)= QETA*QXI*QZETA/4.0 DSHP(1,I) = QETA*QZETA*X/4.0 DSHP(2,I) =-ETA*QZETA*QXI/2.0 DSHP(3,I) = QETA*QXI*Z/4.0 GO TO 300 C C MID-EDGE POINT, Z = 0.0 C 290 QXI = 1.0 + X*XI QETA = 1.0 + Y*ETA QZETA = 1.0 - ZETA**2 SHP(I)= QZETA*QXI*QETA/4.0 DSHP(1,I) = QZETA*QETA*X/4.0 DSHP(2,I) = QZETA*QXI*Y/4.0 DSHP(3,I) =-ZETA*QXI*QETA/2.0 300 CONTINUE GO TO 430 C C CUBIC ELEMENT IHEX3 C 310 D = 2.0/3.0 X =-1.0/3.0 DO 420 I = 1,32 C 1 2 3 4 5 6 7 8 9 10 GO TO (320,330,330,330,340,340,340,320,320,320, 1 350,350,360,330,340,320,360,330,340,320, 2 360,330,330,330,340,340,340,320,320,320, 3 350,350), I 320 X = X - D GO TO 370 330 X = X + D GO TO 370 340 Y = Y + D GO TO 370 350 Y = Y - D GO TO 370 360 Y =-1.0 Z = Z + 2.0/3.0 IF (Z .GT. -1.0) D = 2.0 IF (Z .GT. 0.4) D = 2.0/3.0 370 IF (ABS(X) .LT. 0.4) GO TO 390 IF (ABS(Y) .LT. 0.4) GO TO 400 IF (ABS(Z) .LT. 0.4) GO TO 410 C C CORNER POINT C QXI = 1.0 + X*XI QETA = 1.0 + Y*ETA QZETA = 1.0 + Z*ZETA QXYZ = XI**2 + ETA**2 + ZETA**2 - 19.0/9.0 SHP(I)= 9.0*QXI*QETA*QZETA*QXYZ/64.0 DSHP(1,I) = 9.0*QETA*QZETA*(X*(2.0*XI**2+QXYZ)+2.0*XI)/64.0 DSHP(2,I) = 9.0*QXI*QZETA*(Y*(2.0*ETA**2+QXYZ)+2.0*ETA)/64.0 DSHP(3,I) = 9.0*QXI*QETA*(Z*(2.0*ZETA**2+QXYZ)+2.0*ZETA)/64.0 GO TO 420 C C MID-EDGE POINT, X = + OR - 1/3 C 390 QXI = 9.0*(1.0-XI**2)*(1.0+9.0*X*XI)/64.0 QETA = 1.0 + Y*ETA QZETA = 1.0 + Z*ZETA QXYZ = 9.0*(-2.0*XI+9.0*X-27.0*XI*X*XI)/64.0 SHP(I)= QXI*QETA*QZETA DSHP(1,I) = QETA*QZETA*QXYZ DSHP(2,I) = QXI*QZETA*Y DSHP(3,I) = QXI*QETA*Z GO TO 420 C C MID-EDGE POINT Y =+ OR - 1/3 C 400 QXI = 1.0 + X*XI QETA = 9.0*(1.0-ETA**2)*(1.0+9.0*ETA*Y)/64.0 QZETA = 1.0 + Z*ZETA QXYZ = 9.0*(-2.0*ETA+9.0*Y-27.0*ETA*Y*ETA)/64.0 SHP(I)= QETA*QXI*QZETA DSHP(1,I) = QETA*QZETA*X DSHP(2,I) = QXI*QZETA*QXYZ DSHP(3,I) = QETA*QXI*Z GO TO 420 C C MID-EDGE POINTS Z =+ OR - 1/3 C 410 QXI = 1.0 + X*XI QETA = 1.0 + Y*ETA QZETA = 9.0*(1.0-ZETA**2)*(1.0+9.0*Z*ZETA)/64.0 QXYZ = 9.0*(-2.0*ZETA+9.0*Z-27.0*Z*ZETA**2)/64.0 SHP(I)= QZETA*QXI*QETA DSHP(1,I) = QZETA*QETA*X DSHP(2,I) = QZETA*QXI*Y DSHP(3,I) = QXI*QETA*QXYZ 420 CONTINUE C C COMPUTE JACOBIAN MATRIX C 430 DO 440 I = 1,3 DO 440 J = 1,3 JACOB(I,J) = 0.0 DO 440 K = 1,NGP JACOB(I,J) = JACOB(I,J)+DSHP(I,K)*BXYZ(J,K) 440 CONTINUE C C COMPUTE INVERSE AND DETERMINANT OF JACOBIAN MATRIX C WORK(1,1) = JACOB(2,2)*JACOB(3,3) - JACOB(2,3)*JACOB(3,2) WORK(2,1) = JACOB(2,3)*JACOB(3,1) - JACOB(2,1)*JACOB(3,3) WORK(3,1) = JACOB(2,1)*JACOB(3,2) - JACOB(2,2)*JACOB(3,1) WORK(1,2) = JACOB(1,3)*JACOB(3,2) - JACOB(1,2)*JACOB(3,3) WORK(2,2) = JACOB(1,1)*JACOB(3,3) - JACOB(1,3)*JACOB(3,1) WORK(3,2) = JACOB(1,2)*JACOB(3,1) - JACOB(1,1)*JACOB(3,2) WORK(1,3) = JACOB(1,2)*JACOB(2,3) - JACOB(1,3)*JACOB(2,2) WORK(2,3) = JACOB(1,3)*JACOB(2,1) - JACOB(1,1)*JACOB(2,3) WORK(3,3) = JACOB(1,1)*JACOB(2,2) - JACOB(1,2)*JACOB(2,1) DETJ = 0.0 DO 450 I = 1,3 DETJ = DETJ + JACOB(I,2)*WORK(2,I) 450 CONTINUE IF (DETJ .EQ. 0.0) GO TO 470 DO 460 I = 1,3 DO 460 J = 1,3 JACOB(I,J) = WORK(I,J)/DETJ 460 CONTINUE RETURN C C JACOBIAN MATRIX WAS SINGULAR. C 470 WRITE (OP,480) UFM,EID 480 FORMAT (A23,' 3306, SINGULAR JACOBIAN MATRIX FOR ISOPARAMETRIC ', 1 'ELEMENT NO.',I9) RETURN END ================================================ FILE: mis/incore.f ================================================ SUBROUTINE INCORE(A,N,B,CX,IX) C C IN-CORE DECOMPOSITION OF SQUARE, COMPLEX, NXN MATRIX,A. C AX = B. C CX = X C IX = NUMBER OF B VECTORS SPECIFIED. C COMPLEX A(N,N), B(IX,N), CX(IX,N), CMAX, SCRCH COMPLEX T1,T2,T3 COMPLEX CSUM C C IF(N.EQ.2) GO TO 500 IF(N.EQ.1) GO TO 600 NM1 = N-1 C C PIVOT MAYBE. C DO 150 J=1,NM1 CMAX = A(J,J) JP1 = J + 1 JMAX = J DO 100 JJ= JP1,N IF(CABS(A(J,JJ)).LE.CABS(CMAX)) GO TO 100 CMAX = A(J,JJ) IROW = JJ JMAX = JJ 100 CONTINUE C C IROW = ROW WITH LARGEST ELEMENT IN COLUMN J. C MOVE PIVOT ROW TO TOP OF ELIMINATION C AMAX = CABS(CMAX) IF(AMAX.EQ.0.) GO TO 150 IF(JMAX.EQ.J) GO TO 120 DO 110 JJ= J,N SCRCH = A(JJ,J) A(JJ,J) = A(JJ,IROW) A(JJ,IROW) = SCRCH 110 CONTINUE C C INTERCHANGE B VECTOR C DO 115 JJ = 1,IX SCRCH = B(JJ,J) B(JJ,J) = B(JJ,IROW) B(JJ,IROW) = SCRCH 115 CONTINUE C C ELIMINATE COLUMN C 120 CONTINUE A(J,J) = (1.0,0.0) / A(J,J) T1 = A(J,J) DO 140 I=JP1,N T2 = A(I,J) IF(CABS(T2).LT.(1.0E-19)) GO TO 140 T2 = -T2*T1 A(I,J) = T2 DO 130 L = JP1,N T3 = A(J,L) IF(CABS(T3).LT.(1.0E-19)) GO TO 130 A(I,L) = A(I,L) + T3*T2 130 CONTINUE 140 CONTINUE C C HANDLE B ELIMINATION. C DO 141 JJ = 1,IX B(JJ,J) = B(JJ,J) * T1 141 CONTINUE DO 145 JJ = 1,IX DO 145 K=JP1,N B(JJ,K) = B(JJ,K) - B(JJ,J)*A(J,K) 145 CONTINUE 150 CONTINUE C C BACKWARD PASS. C DO 185 JJ = 1,IX CX(JJ,N) = B(JJ,N)/A(N,N) 185 CONTINUE DO 210 JJ = 1,IX I = N 190 CONTINUE CSUM = (0.,0.) K = I-1 DO 200 J=I,N CSUM = CSUM + CX(JJ,J)*A(J,K) 200 CONTINUE CX(JJ, K) = B(JJ, K) + CSUM IF(I.LE.2) GO TO 210 I = I-1 GO TO 190 210 CONTINUE RETURN 500 CONTINUE DO 510 I = 1,IX CX(I ,2) = (B(I ,2)-(B(I ,1)*A(1,2)/A(1,1)))/(A(2,2)-(A(2,1) + *A(1,2)/A(1,1))) CX(I ,1) = B(I ,1)/A(1,1)-A(2,1)*CX(I ,2)/A(1,1) 510 CONTINUE RETURN 600 CONTINUE DO 610 I=1,IX CX(I ,1) = B(I ,1)/A(1,1) 610 CONTINUE RETURN END ================================================ FILE: mis/incro.f ================================================ SUBROUTINE INCRO (AX,AY,AZ,AX1,AY1,AZ1,AX2,AY2,AZ2,SGR,CGR,SGS, 1 CGS,KR,FL,BETA,SDELX,DELY,DELR,DELI) C C CALCULATES THE UNSTEADY PART OF THE INFLUENCE COEFFICIENT MATRIX C ELEMENTS USING SUBROUTINES KERNEL, IDF1 AND IDF2 C REAL K10,K20,K1RT1,K1IT1,K2RT2P,K2IT2P,K10T1,K20T2P,KR,M COMMON /DLM/ K10,K20,K1RT1,K1IT1,K2RT2P,K2IT2P,K10T1,K20T2P COMMON /KDS/ IND C C DKRO = REAL PART OF THE PLANAR KERNEL * OUTBOARD POINT C DKIO = IMAGINARY PART OF THE PLANAR KERNEL * OUTBOARD POINT C XKRO = REAL PART OF THE NONPLANAR KERNEL * OUTBOARD POINT C XKIO = IMAGINARY PART OF THE NONPLANAR KERNEL * OUTBOARD POINT C DKRI = REAL PART OF THE PLANAR KERNEL * INBOARD POINT C DKII = IMAGINARY PART OF THE PLANAR KERNEL * INBOARD POINT C XKRI = REAL PART OF THE NONPLANAR KERNEL * INBOARD POINT C XKII = IMAGINARY PART OF THE NONPLANAR KERNEL * INBOARD POINT C IND = 1 M = SQRT(1.0 - BETA**2) BR = FL/2. EPS = 0.00001 PI = 3.14159265 XDELX = SDELX XDELY = DELY EE = 0.5*XDELY E2 = EE**2 DELR = 0.0 DELI = 0.0 AT1S = 0.0 AT2S = 0.0 T1 = 0.0 T2 = 0.0 COUNT = 0. X0 = AX Y0 = AY Z0 = AZ 80 CONTINUE CALL TKER (X0,Y0,Z0,KR,BR,SGR,CGR,SGS,CGS,T1,T2,M) AT1 = ABS(T1) AT2 = ABS(T2) IF (AT1 .GT. AT1S) AT1S = AT1 IF (AT2 .GT. AT2S) AT2S = AT2 IF (COUNT) 130,90,150 90 DKRC = K1RT1 - K10T1 DKIC = K1IT1 XKRC = K2RT2P - K20T2P XKIC = K2IT2P AT2 = ABS(T2) COUNT = -1. X0 = AX1 Y0 = AY1 Z0 = AZ1 GO TO 80 130 DKRI = K1RT1 - K10T1 DKII = K1IT1 XKRI = K2RT2P - K20T2P XKII = K2IT2P COUNT = 1. X0 = AX2 Y0 = AY2 Z0 = AZ2 GO TO 80 150 DKRO = K1RT1 - K10T1 DKIO = K1IT1 XKRO = K2RT2P - K20T2P XKIO = K2IT2P X0 = AX Y0 = AY Z0 = AZ ZERO = 0.0 XIIJR = 0. XIIJI = 0. DIIJR = 0.0 DIIJI = 0.0 XMULT = XDELX/(8.0*PI) IF (Y0.EQ.ZERO .AND. Z0.EQ.ZERO) GO TO 220 IF (Z0.EQ.ZERO .AND. SGS.EQ.ZERO) GO TO 230 ETA01 = Y0*CGS + Z0*SGS ZET01 =-Y0*SGS + Z0*CGS AZET0 = ABS(ZET01) IF (AZET0 .LE. 0.0001) ZET01 = 0. R1SQX = ETA01**2 + ZET01**2 210 ARE = (DKRI - 2.*DKRC + DKRO)/(2.0*E2) AIM = (DKII - 2.*DKIC + DKIO)/(2.0*E2) BRE = (DKRO - DKRI)/(2.0*EE) BIM = (DKIO - DKII)/(2.0*EE) CRE = DKRC CIM = DKIC GO TO 250 220 ETA01 = 0.0 ZET01 = 0.0 R1SQX = 0.0 GO TO 210 230 ETA01 = Y0*CGS ZET01 = 0. R1SQX = ETA01**2 GO TO 210 250 CONTINUE IF (AT1S .EQ. 0.0) GO TO 255 CALL IDF1 (EE,E2,ETA01,ZET01,ARE,AIM,BRE,BIM,CRE,CIM,R1SQX,XIIJR, 1 XIIJI) DELR = XMULT*XIIJR DELI = XMULT*XIIJI 255 CONTINUE IF (AT2S .EQ. 0.0) GO TO 260 A2R = (XKRI - 2.0*XKRC + XKRO)/(2.0*E2) A2I = (XKII - 2.0*XKIC + XKIO)/(2.0*E2) B2R = (XKRO - XKRI)/(2.0*EE) B2I = (XKIO - XKII)/(2.0*EE) C2R = XKRC C2I = XKIC CALL IDF2 (EE,E2,ETA01,ZET01,A2R,A2I,B2R,B2I,C2R,C2I,R1SQX,DIIJR, 1 DIIJI) DELR = DELR + XMULT*DIIJR DELI = DELI + XMULT*DIIJI 260 CONTINUE C RETURN END ================================================ FILE: mis/initl.f ================================================ SUBROUTINE INITL (OFFSET,DELTT) C C INITL WILL COMPUTE THE STARTING VALUES FOR THE INTEGRATION ROUTINE C C THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION C INTEGER OFFSET ,RSP ,FILEM ,FILEB , 1 FILEK ,SQR ,FILE ,IFILA(7) , 2 IFILB(7) ,IFILC(7) ,NAME(2) ,RDP DOUBLE PRECISION DET ,MINDIA DIMENSION ALPHA(4) ,BETA(4) COMMON /SYSTEM/ DUM(39) ,NBPW COMMON /SADDX / NOMAT ,NZ ,MCBS(67) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR COMMON /SFACT / IFA(7) ,IFL(7) ,IFU(7) ,ISC1 , 1 ISC2 ,NXX ,ID(5) ,ISC3 , 2 ID1(2) ,ICHL COMMON /DCOMPX/ IA(7) ,IL(7) ,IU(7) ,ISCR10 , 1 ISCR20 ,ISCR30 ,DET ,POWER , 2 NX ,MINDIA COMMON /TRDXX / FILEK(7) ,FILEM(7) ,FILEB(7) , 1 ISCR1 ,ISCR2 ,ISCR3 ,ISCR4 , 2 ISCR5 ,ISCR6 ,IOPEN ,ISYM COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (MCBS(1),IFILA(1)) ,(MCBS(8),ITYPAL) , 1 (MCBS(9),ALPHA(1)) ,(MCBS(13),IFILB(1)), 2 (MCBS(20),ITYPBT ) ,(MCBS(21),BETA(1)) , 3 (MCBS(61),IFILC(1)) DATA NAME / 4HINIT,4HL / C NOMAT = 2 IPREC = RDP IF (NBPW .GE. 60) IPREC = RSP ALPHA(2) = 0. ALPHA(3) = 0. ALPHA(4) = 0. BETA(2) = 0. BETA(3) = 0. BETA(4) = 0. NX = KORSZ(Z) - OFFSET NZ = NX C C FORM AND DECOMPOSE THE LEFT HAND MATRIX C ITYPAL = RSP ITYPBT = RSP ALPHA(1) = 1./(DELTT**2) BETA(1) = .5/DELTT IFILC(4) = 6 DO 10 I = 1,7 IFILA(I) = FILEM(I) 10 IFILB(I) = FILEB(I) IFILC(2) = FILEK(2) IFILC(1) = ISCR2 IF (FILEK(1) .LE. 0) IFILC(1) = ISCR1 IFILC(3) = FILEK(2) IF (IFILA(1).NE.0 .AND. IFILA(4).NE.6) IFILC(4) = SQR IF (IFILB(1).NE.0 .AND. IFILB(4).NE.6) IFILC(4) = SQR IFILC(5) = IPREC IF (FILEM(1).LE.0 .AND. FILEB(1).LE.0) GO TO 60 CALL SADD (Z,Z) IF (FILEK(1) .LE. 0) GO TO 21 11 DO 20 I = 1,7 IFILA(I) = IFILC(I) 20 IFILB(I) = FILEK(I) IF (IFILB(4) .NE. 6) IFILC(4) = SQR IFILC(1) = ISCR1 ALPHA(1) = 1. BETA(1) = 1./3. CALL SADD (Z,Z) 21 CONTINUE CALL WRTTRL (IFILC) IF (IFILC(4) .NE. 6) GO TO 31 C C SET UP FOR SYMMETRIC DECOMPOSITION C DO 32 I = 1,7 IFA(I) = IFILC(I) 32 CONTINUE IFL(1) = ISCR2 IFU(1) = ISCR3 ISC1 = ISCR4 ISC2 = ISCR5 ISC3 = ISCR6 IFL(5) = IPREC ICHL = 0 NXX = NX FILE = IFA(1) CALL SDCOMP (*1030,Z,Z,Z) CALL WRTTRL (IFL) ISYM = 0 GO TO 33 C C SET UP FOR UNSYMMETRIC DECOMPOSITION C 31 CONTINUE ISYM = 1 DO 30 I = 1,7 30 IA(I) = IFILC(I) IL(1) = ISCR2 IU(1) = ISCR3 ISCR10 = ISCR4 ISCR20 = ISCR5 ISCR30 = ISCR6 IL(5) = IPREC FILE = IA(1) CALL DECOMP (*1030,Z(1),Z(1),Z(1)) CALL WRTTRL (IL) CALL WRTTRL (IU) C C FORM FIRST RIGHT HAND MATRIX C 33 CONTINUE DO 40 I = 1,7 40 IFILA(I) = FILEM(I) ALPHA(1) = 2./(DELTT**2) BETA(1) = -1.0/3.0 IFILC(1) = ISCR1 CALL SADD (Z,Z) C C FORM SECOND RIGHT HAND MATRIX C ALPHA(1) = -1.0/DELTT**2 IFILC(1) = ISCR5 CALL SADD (Z,Z) DO 50 I = 1,7 IFILA(I) = IFILC(I) 50 IFILB(I) = FILEB(I) ALPHA(1) = 1. BETA(1) = .5/DELTT IFILC(1) = ISCR4 CALL SADD (Z,Z) RETURN C C ERRORS C 1030 IP1 = -5 1031 CALL MESAGE (IP1,FILE,NAME(1)) C C NO BDD OR MDD C 60 IF (FILEK(1) .LE. 0) GO TO 70 IFILC(1) = 0 GO TO 11 C C ILLEGAL INPUT. NO MATRICES C 70 IP1 = -7 GO TO 1031 END ================================================ FILE: mis/initl2.f ================================================ SUBROUTINE INITL2 (OFFSET,DELTT) C C INITL2 WILL COMPUTE THE STARTING VALUES FOR THE INTEGRATION C ROUTINE C C THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION C INTEGER OFFSET ,RSP ,FILEM ,FILEB , 1 FILEK ,SQR ,FILE ,IFILA(7) , 2 IFILB(7) ,IFILC(7) ,NAME(2) ,RDP DOUBLE PRECISION DET ,MINDIA ,ALPHA(2) ,BETA(2) COMMON /SADDX / NOMAT ,NZ ,MCBS(67) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR COMMON /SFACT / IFA(7) ,IFL(7) ,IFU(7) ,ISC1 , 1 ISC2 ,NXX ,ID(5) ,ISC3 , 2 ID1(2) ,ICHL COMMON /DCOMPX/ IA(7) ,IL(7) ,IU(7) ,ISCR10 , 1 ISCR20 ,ISCR30 ,DET ,POWER , 2 NX ,MINDIA COMMON /TRDXX / FILEK(7) ,FILEM(7) ,FILEB(7) , 1 ISCR1 ,ISCR2 ,ISCR3 ,ISCR4 , 2 ISCR5 ,ISCR6 ,IOPEN ,ISYM COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (MCBS(1),IFILA(1)) ,(MCBS(8),ITYPAL) , 1 (MCBS(9),ALPHA(1)) ,(MCBS(13),IFILB(1)), 2 (MCBS(20),ITYPBT) ,(MCBS(21),BETA(1)) , 3 (MCBS(61),IFILC(1)) DATA NAME / 4HINIT,4HL2 / C NOMAT = 2 IPREC = RDP ALPHA(2)= 0.0D0 BETA(2) = 0.0D0 NX = KORSZ(Z) - OFFSET NZ = NX C C FORM AND DECOMPOSE THE LEFT HAND MATRIX C ITYPAL = RDP ITYPBT = RDP ALPHA(1) = 1.0D0/DELTT**2 BETA(1) = 0.5D0/DELTT IFILC(4) = 6 DO 10 I = 1,7 IFILA(I) = FILEM(I) 10 IFILB(I) = FILEB(I) IFILC(2) = FILEK(2) IFILC(1) = ISCR2 IF (FILEK(1) .LE. 0) IFILC(1) = ISCR1 IFILC(3) = FILEK(2) IF (IFILA(1).NE.0 .AND. IFILA(4).NE.6) IFILC(4) = SQR IF (IFILB(1).NE.0 .AND. IFILB(4).NE.6) IFILC(4) = SQR IFILC(5) = IPREC IF (FILEM(1).LE.0 .AND. FILEB(1).LE.0) GO TO 60 CALL SADD (Z,Z) IF (FILEK(1) .LE. 0) GO TO 21 11 DO 20 I = 1,7 IFILA(I) = IFILC(I) 20 IFILB(I) = FILEK(I) IF (IFILB(4) .NE. 6) IFILC(4) = SQR IFILC(1) = ISCR1 ALPHA(1) = 1.0D0 BETA(1) = 1.0D0/3.0D0 CALL SADD (Z,Z) 21 CONTINUE CALL WRTTRL (IFILC) IF (IFILC(4) .NE. 6) GO TO 31 C C SET UP FOR SYMMETRIC DECOMPOSITION C DO 32 I = 1,7 IFA(I) = IFILC(I) 32 CONTINUE IFL(1) = ISCR2 IFU(1) = ISCR3 ISC1 = ISCR4 ISC2 = ISCR5 ISC3 = ISCR6 IFL(5) = IPREC ICHL = 0 NXX = NX FILE = IFA(1) CALL SDCOMP (*1030,Z,Z,Z) CALL WRTTRL (IFL) ISYM = 0 GO TO 33 C C SET UP FOR UNSYMMETRIC DECOMPOSITION C 31 CONTINUE ISYM = 1 DO 30 I = 1,7 30 IA(I) = IFILC(I) IL(1) = ISCR2 IU(1) = ISCR3 ISCR10 = ISCR4 ISCR20 = ISCR5 ISCR30 = ISCR6 IL(5) = IPREC FILE = IA(1) CALL DECOMP (*1030,Z(1),Z(1),Z(1)) CALL WRTTRL (IL) CALL WRTTRL (IU) C C FORM FIRST RIGHT HAND MATRIX C 33 CONTINUE DO 40 I = 1,7 40 IFILA(I) = FILEM(I) ALPHA(1) = 2.0D0/DELTT**2 BETA(1) = -1.0D0/3.0D0 IFILC(1) = ISCR1 CALL SADD (Z,Z) C C FORM SECOND RIGHT HAND MATRIX C ALPHA(1) = -1.0D0/DELTT**2 IFILC(1) = ISCR5 CALL SADD (Z,Z) DO 50 I = 1,7 IFILA(I) = IFILC(I) 50 IFILB(I) = FILEB(I) ALPHA(1) = 1.0D0 BETA(1) = 0.5D0/DELTT IFILC(1) = ISCR4 CALL SADD (Z,Z) RETURN C C ERRORS C 1030 IP1 = -5 1031 CALL MESAGE (IP1,FILE,NAME(1)) C C NO BDD OR MDD C 60 IF (FILEK(1) .LE. 0) GO TO 70 IFILC(1) =0 GO TO 11 C C ILLEGAL INPUT. NO MATRICES C 70 IP1 = -7 GO TO 1031 END ================================================ FILE: mis/inptt1.f ================================================ SUBROUTINE INPTT1 C C READ DATA BLOCK(S) FROM A NASTRAN USER TAPE WHICH MUST BE SET UP. C C CALL TO THIS MODULE IS C C INPUTT1 /O1,O2,O3,O4,O5/V,N,P1/V,N,P2/V,N,P3/V,N,P4 $ C C PARAMETERS P1 AND P2 ARE INTEGER INPUT, P3 AND P4 ARE BCD C C P1= 0, NO ACTION TAKEN BEFORE READ (DEFAULT) C =+N, SKIP FORWARD N DATA BLOCKS BEFORE READ C =-1, USER TAPE IS REWOUND BEFORE READ C =-2, A NEW REEL IS MOUNTED BEFORE READ C =-3, THE NAMES OF ALL DATA BLOCKS ON USER TAPE ARE C PRINTED AND READ OCCURS AT BEGINNING OF TAPE C =-4, AN OUTPUT TAPE IS TO BE DISMOUNTED C AFTER AN END-OF-FILE MARK IS WRITTEN. C A NEW INPUT REEL WILL THEN BE MOUNTED. C =-5, SEARCH USER TAPE FOR FIRST VERSION OF DATA C BLOCKS REQUESTED. C IF ANY ARE NOT FOUND, A FATAL TERMINATION C OCCURS. C =-6, SEARCH USER TAPE FOR FINAL VERSION OF DATA C BLOCKS REQUESTED. C IF ANY ARE NOT FOUND, A FATAL TERMINATION C OCCURS. C =-7, SEARCH USER TAPE FOR FIRST VERSION OF DATA C BLOCKS REQUESTED. C IF ANY ARE NOT FOUND, A WARNING OCCURS. C =-8, SEARCH USER TAPE FOR FINAL VERSION OF DATA C BLOCKS REQUESTED. C IF ANY ARE NOT FOUND, A WARNING OCCURS. C =-9, REWIND AND UNLOAD USER TAPE C C P2= 0, FILE NAME IS INPT C = 1, FILE NAME IS INP1 C = 2, FILE NAME IS INP2 C = 3, FILE NAME IS INP3 C = 4, FILE NAME IS INP4 C = 5, FILE NAME IS INP5 C = 6, FILE NAME IS INP6 C = 7, FILE NAME IS INP7 C = 8, FILE NAME IS INP8 C = 9, FILE NAME IS INP9 C THE MPL DEFAULT VALUE FOR P2 IS 0 C C P3= TAPE ID CODE FOR USER TAPE, AN ALPHANUMERIC C VARIABLE WHOSE VALUE MUST MATCH A CORRESPONDING C VALUE ON THE USER TAPE. C THIS CHECK IS DEPENDENT ON THE VALUE OF C P1 AS FOLLOWS.. C *P1* *TAPE ID CHECKED* C +N NO C 0 NO C -1 YES C -2 YES (ON NEW REEL) C -3 YES (WARNING CHECK) C -4 YES (ON NEW REEL) C -5 YES C -6 YES C -7 YES C -8 YES C -9 NO C THE MPL DEFAULT VALUE FOR P3 IS XXXXXXXX C C EXTERNAL RSHIFT,ANDF LOGICAL TAPEUP,TAPBIT INTEGER OUBUF,OUTPUT,P1,P2,P3,P4,ZERO,RSHIFT,ANDF,NONE(2), 1 TRL(7),NAME(2),SUBNAM(2),INN(10),OUT(5),NAMEX(2), 2 IDHDR(7),IDHDRX(7),P3X(2),NT(5,3),DX(3),TAPCOD(2), 3 BCDBIN(4) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /MACHIN/ MACH COMMON /BLANK / P1,P2,P3(2),P4(2) 1 /SYSTEM/ KSYSTM(65) 2 /ZZZZZZ/ X(1) EQUIVALENCE (KSYSTM(1),NB ), (KSYSTM( 2),NOUT), 1 (KSYSTM(9),NLPP), (KSYSTM(12),LINE) DATA SUBNAM/ 4HINPT, 4HT1 / , MSC / 4HMSC / DATA OUT / 201,202,203,204,205/, MASK / 65535 / DATA ZERO , MONE,MTWO,MTRE,MFOR/ 0,-1,-2,-3,-4 /, 1 MFIV , MSIX,METE,MNIN /-5,-6,-8,-9 / DATA INN / 4HINPT,4HINP1,4HINP2,4HINP3,4HINP4 , 1 4HINP5,4HINP6,4HINP7,4HINP8,4HINP9 / DATA IDHDR / 4HNAST,4HRAN ,4HUSER,4H TAP,4HE ID,4H COD,4HE - / DATA BCDBIN/ 4HBCD ,4H ,4HBINA,4HRY / DATA NONE / 4H (NO,4HNE) /, IPT1,IPT4/ 1H1,1H4 / C C IPTX = IPT1 IF (P4(1) .EQ. MSC) GO TO 20 GO TO 100 C C ENTRY INPUT1 C ============ C C INPUT1 HANDELS MSC/OUTPUT1 DATA. C INPUT1 IS CALLED FROM INPTT1, WITH P4 = 'MSC', OR IT IS CALLED C FROM INPTT4 C 20 IPTX = IPT4 IF (P3(1).EQ.BCDBIN(1) .AND. P3(2).EQ.BCDBIN(2)) GO TO 9918 IF (P3(1).EQ.BCDBIN(3) .AND. P3(2).EQ.BCDBIN(4)) GO TO 9918 WRITE (NOUT,30) UIM 30 FORMAT (A29,'. INPUTT1 IS REQUESTED TO READ INPUT TAPE GENERATED', 1 ' IN MSC/OUTPUT1 COMPATIBLE RECORDS') C 100 LCOR = KORSZ(X) - 2*NB IF (LCOR .LE. 0) CALL MESAGE (-8,LCOR,SUBNAM) INBUF = LCOR + 1 OUBUF = INBUF + NB TAPCOD(1) = P3(1) TAPCOD(2) = P3(2) IF (P2.LT.0 .OR. P2.GT.9) GO TO 9907 IN = INN(P2+1) IF (IPTX .EQ. IPT4) WRITE (NOUT,110) UIM,NB,IN 110 FORMAT (A29,', CURRENT NASTRAN BUFFER SIZE IS',I9,' WORDS', /5X, 1 'SYNCHRONIZED BUFFSIZE IS REQUIRED IN CURRENT NASTRAN AND', 2 ' THE VERSION THAT WROTE ',A4,' TAPE (OR FILE)', /5X, 3 3(4H====),/) IFILE = IN IF (MACH .GE. 5) GO TO 120 TAPEUP = TAPBIT(IN) IF (.NOT.TAPEUP ) GO TO 9909 120 IF (P1 .LT. MNIN) GO TO 9908 C IF (P1 .EQ. MNIN) GO TO 5000 IF (P1 .LT. MFOR) GO TO 3000 IF (P1 .EQ. MTRE) GO TO 2000 IF (P1 .LE. ZERO) GO TO 150 C CALL OPEN (*9901,IN,X(INBUF),2) DO 130 I = 1,P1 CALL READ (*9906,*9906,IN,NAMEX,2,0,NF) 130 CALL SKPFIL (IN,1) GO TO 250 C 150 IF (P1.NE.MTWO .AND. P1.NE.MFOR) GO TO 190 C C P1 = -2 OR P1 = -4 IS ACCEPTABLE ONLY ON IBM OR UNIVAC C IF (MACH.NE.2 .AND. MACH.NE.3) GO TO 9908 C IOLD = -P1/2 CALL OPEN (*9901,IN,X(INBUF),2) CALL TPSWIT (IN,IOLD,1,TAPCOD) C 190 IF (P1.NE.MONE .AND. P1.NE.MTWO .AND. P1.NE.MFOR) GO TO 230 C C OPEN USER TAPE TO READ WITH REWIND AHD TAPE ID CHECK C IF (P1.NE.MONE .AND. P1.NE.MTWO .AND. P1.NE.MFOR .AND. 1 IPTX.EQ.IPT4) GO TO 230 CALL OPEN (*9901,IN,X(INBUF),0) CALL READ (*9911,*9912,IN,DX,3,0,NF) CALL READ (*9911,*9912,IN,IDHDRX,7,0,NF) DO 210 KF = 1,7 IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 9913 210 CONTINUE CALL READ (*9911,*9912,IN,P3X,2,1,NF) IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 9910 CALL SKPFIL (IN,1) GO TO 250 C C OPEN USER TAPE TO READ WITHOUT REWIND AND NO TAPE ID CHECK C 230 CALL OPEN (*9901,IN,X(INBUF),2) IF (IPTX .EQ. IPT4) CALL FWDREC (*9912,IX) C 250 DO 1000 I = 1,5 OUTPUT = OUT(I) TRL(1) = OUTPUT CALL RDTRL (TRL) IF (TRL(1) .LE. 0) GO TO 1000 CALL FNAME (OUTPUT,NAME) IF (NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 1000 C C PASS FILE NAME HEADER RECORD C CALL READ (*9904,*9905,IN,NAMEX,2,0,NF) C C READ TRAILER RECORD, SIX WORDS (OR 3 WORDS, IPTX=4 ONLY) C CALL READ (*9904,*300,IN,TRL(2),6,1,NF) GO TO 340 C C JUST A NOTE, FROM G.CHAN/UNISYS - C LEVEL 17.5 USED 2 RECORDS HERE FOR THE MATRIX NAME (2 BCD WORDS, C 1ST RECORD) AND 7 TRAILER WORDS (2ND RECORD) C 300 IF (IPTX.NE.IPT4 .OR. NF.LT.3) GO TO 9905 TRL(5) = TRL(2) TRL(6) = TRL(3) TRL(7) = TRL(4) DO 320 J = 2,7 J1 = J/2 + 4 J2 = MOD(J-1,2)*16 TRL(J) = ANDF(RSHIFT(TRL(J1),J2),MASK) 320 CONTINUE C C OPEN OUTPUT DATA BLOCK TO WRITE WITH REWIND C 340 CALL OPEN (*9902,OUTPUT,X(OUBUF),1) C C COPY CONTENTS OF USER TAPE ONTO OUTPUT DATA BLOCK, INCLUDING C FILE NAME IN RECORD 0 C CALL CPYFIL (IN,OUTPUT,X,LCOR,NF) C C CLOSE OUTPUT DATA BLOCK WITH REWIND AND EOF C CALL CLOSE (OUTPUT,1) C C WRITE TRAILER C TRL(1) = OUTPUT CALL WRTTRL (TRL) CALL PAGE2 (-3) WRITE (NOUT,400) UIM,NAME,IN,NAMEX 400 FORMAT (A29,' 4105, DATA BLOCK ',2A4,' RETRIEVED FROM USER ', 1 'TAPE',A4, /5X,'NAME OF DATA BLOCK WHEN PLACED ON USER ', 2 'TAPE WAS ',2A4 ) C 1000 CONTINUE C C CLOSE NASTRAN USER TAPE WITHOUT REWIND C CALL CLOSE (IN,2) RETURN C C OBTAIN LIST OF DATA BLOCKS ON USER TAPE. C 2000 CALL OPEN (*9901,IN,X(INBUF),0) CALL READ (*9911,*9912,IN,DX,3,0,NF) CALL READ (*9911,*9912,IN,IDHDRX,7,0,NF) DO 2005 KF = 1,7 IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 9913 2005 CONTINUE CALL READ (*9911,*9912,IN,P3X,2,1,NF) IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 9914 2006 CALL SKPFIL (IN,1) KF = 0 2007 CALL PAGE1 LINE = LINE + 5 WRITE (NOUT,2010) IN 2010 FORMAT (1H0,50X,A4,14H FILE CONTENTS ,/46X,4HFILE,18X,4HNAME/1H0) 2020 CALL READ (*2050,*9915,IN,NAMEX,2,1,NF) CALL SKPFIL (IN,1) KF = KF + 1 LINE = LINE + 1 WRITE (NOUT,2030) KF,NAMEX 2030 FORMAT (45X,I5,18X,2A4) IF (LINE - NLPP) 2020,2007,2007 2050 CALL REWIND (IN) CALL SKPFIL (IN,1) GO TO 250 C C C SEARCH MODE C 3000 CONTINUE C C EXAMINE OUTPUT REQUESTS AND FILL NAME TABLE C NNT = 0 DO 3050 I = 1,5 OUTPUT = OUT(I) TRL(1) = OUTPUT CALL RDTRL (TRL) IF (TRL(1) .LE. 0) GO TO 3020 CALL FNAME (OUTPUT,NAME) IF (IPTX.EQ.IPT4 .AND. NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2) 1 ) GO TO 3010 NT(I,1) = 0 NT(I,2) = NAME(1) NT(I,3) = NAME(2) NNT = NNT + 1 GO TO 3050 3010 NT(I,2) = NAME(1) NT(I,3) = NAME(2) 3020 NT(I,1) = -1 3050 CONTINUE C IF (NNT .GT. 0) GO TO 3070 CALL PAGE2 (-2) WRITE (NOUT,3060) UWM,IPTX 3060 FORMAT (A25,' 4137, ALL OUTPUT DATA BLOCKS FOR INPUTT',A1, 1 ' ARE PURGED.') RETURN C C CHECK TAPE ID LABEL. C 3070 CALL OPEN (*9901,IN,X(INBUF),0) CALL READ (*9911,*9912,IN,DX,3,0,NF) CALL READ (*9911,*9912,IN,IDHDRX,7,0,NF) DO 3080 KF = 1,7 IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 9913 3080 CONTINUE CALL READ (*9911,*9912,IN,P3X,2,1,NF) IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 9910 CALL SKPFIL (IN,1) C C C BEGIN SEARCH OF TAPE. C KF = 0 3110 CALL READ (*3500,*9915,IN,NAMEX,2,0,NF) KF = KF + 1 C DO 3200 I = 1,5 NAME(1) = NT(I,2) NAME(2) = NT(I,3) IF (NT(I,1) .LT. 0) GO TO 3200 IF (NAME(1).NE.NAMEX(1) .OR. NAME(2).NE.NAMEX(2)) GO TO 3200 NT(I,1) = NT(I,1) + 1 IF (NT(I,1).EQ.1 .OR. P1.EQ.MSIX .OR. P1.EQ.METE) GO TO 3150 CALL PAGE2 (-3) WRITE (NOUT,3140) UWM,NAME,KF,IN 3140 FORMAT (A25,' 4138, DATA BLOCK ',2A4,' (DATA BLOCK COUNT =',I5, 2 ') HAS PREVIOUSLY BEEN RETRIEVED FROM', /36X , 3 'USER TAPE ',A4,' AND WILL BE IGNORED.') GO TO 3205 3150 CALL READ (*9904,*3160,IN,TRL(2),6,1,NF) GO TO 3180 3160 IF (IPTX.NE.IPT4 .OR. NF.LT.3) GO TO 9905 TRL(5) = TRL(2) TRL(6) = TRL(3) TRL(7) = TRL(4) DO 3170 J = 2,7 J1 = J/2 + 4 J2 = MOD(J-1,2)*16 TRL(J) = ANDF(RSHIFT(TRL(J1),J2),MASK) 3170 CONTINUE 3180 OUTPUT = OUT(I) CALL OPEN (*9902,OUTPUT,X(OUBUF),1) CALL CPYFIL (IN,OUTPUT,X,LCOR,NF) CALL CLOSE (OUTPUT,1) TRL(1) = OUTPUT CALL WRTTRL (TRL) CALL PAGE2 (-2) WRITE (NOUT,3185) UIM,NAME,IN,KF 3185 FORMAT (A29,' 4139, DATA BLOCK ',2A4,' RETRIEVED FROM USER TAPE ', 1 A4,' (DATA BLOCK COUNT =',I5,1H)) IF (NT(I,1) .GT. 1) GO TO 3190 NNT = NNT - 1 GO TO 3210 3190 WRITE (NOUT,3195) UWM 3195 FORMAT (A25,' 4140, SECONDARY VERSION OF DATA BLOCK HAS REPLACED', 1 ' EARLIER ONE.') CALL PAGE2 (-2) GO TO 3210 3200 CONTINUE C 3205 CALL SKPFIL (IN,1) 3210 IF (NNT.GT.0 .OR. P1.EQ.MSIX .OR. P1.EQ.METE) GO TO 3110 GO TO 3900 C 3500 IF (NNT .LE. 0) GO TO 3900 CALL PAGE2 (-7) IF (P1.EQ.MFIV .OR. P1.EQ.MSIX) GO TO 9916 WRITE (NOUT,3510) UWM 3510 FORMAT (A25,' 4141, ONE OR MORE DATA BLOCKS NOT FOUND ON USER ', 1 'TAPE.') DO 3530 I = 1,5 IF (NT(I,1) .NE. 0) GO TO 3530 WRITE (NOUT,3520) NT(I,2),NT(I,3) 3520 FORMAT (20X,21HNAME OF DATA BLOCK = ,2A4) 3530 CONTINUE IF (P1.EQ.MFIV .OR. P1.EQ.MSIX) GO TO 9995 C 3900 CONTINUE CALL SKPFIL (IN,-1) CALL CLOSE (IN,2) RETURN C 5000 CONTINUE CALL UNLOAD (IN) RETURN C C ERRORS C 9901 WRITE (NOUT,9951) SFM,IPTX,IN 9951 FORMAT (A25,' 4107, MODULE INPTT',A1,' UNABLE TO OPEN NASTRAN ', 1 'FILE ',A4,1H.) GO TO 9995 C 9902 WRITE (NOUT,9952) SFM,IPTX,OUTPUT 9952 FORMAT (A25,' 4108, SUBROUTINE INPTT',A1,' UNABLE TO OPEN OUTPUT', 1 ' DATA BLOCK',I5) GO TO 9995 C 9904 CALL MESAGE (-2,IFILE,SUBNAM) C 9905 CALL MESAGE (-3,IFILE,SUBNAM) C 9906 WRITE (NOUT,9956) UFM,IPTX,P1,IN,I 9956 FORMAT (A22,' 4111, MODULE INPUTT',A1,' IS UNABLE TO SKIP FORWARD' 1, I10,' DATA BLOCKS ON PERMANENT NASTRAN FILE ',A4,1H., /5X, 2 'NUMBER OF DATA BLOCKS SKIPPED =',I5) LINE = LINE + 1 GO TO 9995 C 9907 WRITE (NOUT,9957) UFM,IPTX,P2 9957 FORMAT (A23,' 4112, MODULE INPUTT',A1,' - ILLEGAL VALUE FOR ', 1 'SECOND PARAMETER =',I20) GO TO 9995 C 9908 WRITE (NOUT,9958) UFM,IPTX,P1 9958 FORMAT (A23,' 4113, MODULE INPUTT',A1,' - ILLEGAL VALUE FOR ', 1 'FIRST PARAMETER =',I20) GO TO 9995 C 9909 WRITE (NOUT,9959) UFM,IN 9959 FORMAT (A23,' 4127, USER TAPE ',A4,' NOT SET UP.') GO TO 9995 C 9910 WRITE (NOUT,9960) UFM,P3X,IPTX,P3 9960 FORMAT (A23,' 4136, USER TAPE ID CODE -',2A4,'- DOES NOT MATCH ', 1 'THIRD INPUTT',A1,' DMAP PARAMETER -',2A4,2H-.) GO TO 9995 C 9911 WRITE (NOUT,9961) UFM,IPTX,IN 9961 FORMAT (A23,' 4132, MODULE INPUTT',A1,' - END-OF-FILE ENCOUNTERED' 1, ' WHILE ATTEMPTING TO READ TAPE ID CODE ON USER TAPE ',A4,1H.) GO TO 9995 C 9912 WRITE (NOUT,9962) UFM,IPTX,IN 9962 FORMAT (A23,' 4133, MODULE INPUTT',A1,' - END-OF-RECORD ', 1 'ENCOUNTERED WHILE ATTEMPTING TO READ TAPE ID CODE ON ', 2 'USER TAPE ',A4,1H.) GO TO 9995 C 9913 WRITE (NOUT,9963) UFM,IPTX,IDHDRX 9963 FORMAT (A23,' 4134, MODULE INPUTT',A1, 1 ' - ILLEGAL TAPE CODE HEADER = ',7A4) GO TO 9995 C 9914 WRITE (NOUT,9964) UWM,P3X,P3 9964 FORMAT (A25,' 4135, USER TAPE ID CODE -',2A4,'- DOES NOT MATCH ', 1 'THIRD INPUTT1 DMAP PARAMETER -',2A4,2H-.) LINE = LINE + 2 GO TO 2006 C 9915 WRITE (NOUT,9965) SFM,IPTX 9965 FORMAT (A25,' 4106, MODULE INPUTT',A1,' - SHORT RECORD.') GO TO 9995 C 9916 WRITE (NOUT,9966) UFM 9966 FORMAT (A23,' 4142, ONE OR MORE DATA BLOCKS NOT FOUND ON USER ', 1 'TAPE',/) DO 9917 I = 1,5 IF (NT(I,1) .NE. 0) GO TO 9917 WRITE (NOUT,9967) NT(I,2),NT(I,3) LINE = LINE + 1 9917 CONTINUE 9967 FORMAT (20X,'NAME OF DATA BLOCK = ',2A4) GO TO 9995 C 9918 WRITE (NOUT,9968) UFM,P3 9968 FORMAT (A23,', ILLEGAL TAPE LABEL NAME -',2A4,'- POSSIBLY ', 1 'THE 4TH PARAMETER OF INPTT4 IS IN ERROR') C C 9995 LINE = LINE + 2 CALL MESAGE (-61,0,0) RETURN C END ================================================ FILE: mis/inptt2.f ================================================ SUBROUTINE INPTT2 C C READ DATA BLOCK(S) FROM A FORTRAN UNIT. C C CALL TO THIS MODULE IS C C INPUTT2 /O1,O2,O3,O4,O5/V,N,P1/V,N,P2/V,N,P3/V,N,P4/V,N,P5/ C V,N,P6 $ C C PARAMETERS P1, P2, P4, AND P5 ARE INTEGER INPUT. P3 AND P6 ARE BCD C C P1 =+N, SKIP FORWARD N DATA BLOCKS BEFORE READ C = 0, NO ACTION TAKEN BEFORE READ (DEFAULT) C =-1, BEFORE READ, FORTRAN TAPE IS REWOUND AND TAPE C HEADER RECORD (RECORD NUMBER ZERO) IS CHECKED C =-3, THE NAMES OF ALL DATA BLOCKS ON FORTRAN TAPE C ARE PRINTED AND READ OCCURS AT BEGINNING OF TAPE C =-5, SEARCH FORTRAN TAPE FOR FIRST VERSION OF DATA C BLOCKS REQUESTED. C IF ANY ARE NOT FOUND, A FATAL TERMINATION OCCURS. C =-6, SEARCH FORTRAN TAPE FOR FINAL VERSION OF DATA C BLOCKS REQUESTED. C IF ANY ARE NOT FOUND, A FATAL TERMINATION OCCURS. C =-7, SEARCH FORTRAN TAPE FOR FIRST VERSION OF DATA C BLOCKS REQUESTED. C IF ANY ARE NOT FOUND, A WARNING OCCURS. C =-8, SEARCH FORTRAN TAPE FOR FINAL VERSION OF DATA C BLOCKS REQUESTED. C IF ANY ARE NOT FOUND, A WARNING OCCURS. C C P2 = THE FORTRAN UNIT FROM WHICH THE DATA BLOCK(S) C WILL BE READ. (DEFAULT P2 = 11, OR 14) C C P3 = TAPE ID CODE FOR FORTRAN TAPE, AN ALPHANUMERIC C VARIABLE WHOSE VALUE MUST MATCH A CORRESPONDING C VALUE ON THE FORTRAN TAPE. C THIS CHECK IS DEPENDENT ON THE VALUE OF P1 AS C FOLLOWS.. C C *P1* *TAPE ID CHECKED* C +N NO C 0 NO C -1 YES C -3 YES (WARNING CHECK) C -5 YES C -6 YES C -7 YES C -8 YES C THE MPL DEFAULT VALUE FOR P3 IS XXXXXXXX . C C P4 = NOT USED IN INPUTT2. C (USED ONLY IN OUTPUT2 FOR MAXIMUM RECORD SIZE) C C P5 = 0, NON-SPARSE MATRIX IF INPUT IS A MATRIX DATA BLOCK C = NON-0, SPARSE MATRIX IF INPUT IS A MATRIX DATA BLOCK C (P4 IS IGNORED IF INPUT IS A TALBE DATA BLOCK. C P4 IS EQUIVALENT TO P5 IN OUTPUT2 MODULE) C C P6 = BLANK, (DEFAULT) C = 'MSC', THE INPUT TAPE WAS WRITTEN IN MSC/OUTPUT2 C COMPATIBEL RECORD FORMAT. C C OUTPT2 DOES NOT AUTOMATICALLY OUTPUT THE MATRIX IN STRING OR C SPARSE FORM. UNLESS P5 IS REQUESTED. C SIMILARILY, INPUT2 DOES NOT AUTOMATICALLY PROCESS MATRIX IN SPARSE C MATRIX FORM, UNLESS P5 IS REQUESTED). C C REVISED 11/90 BY G.CHAN/UNISYS C (1) TO ACCEPT MSC/OUTPUT2 DATA (CALLED FROM INPTT4, 11/90 C OR INPTT2, 2/93) C (2) TO ACCEPT SPARSE MATRIX COMING FORM COSMIC/OUTPT2 C (SEE P5 PARAMETER IN INPTT2 AND P5 IN OUTPT2) C IMPLICIT INTEGER (A-Z) LOGICAL SPARSE,DP INTEGER TRL(8),NAME(2),SUBNAM(2),TYPIN,MCB(7),DX(3), 1 NAMEX(2),IDHDR(7),IDHDRX(7),P3X(2),NT(5,3), 2 TAPCOD(2),NONE(2),BCDBIN(4),BLK(20) REAL CORE(1) DOUBLE PRECISION DCORE(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 CWKBNB CHARACTER*80 DSNAMES COMMON /DSNAME/ DSNAMES(80) CWKBNE COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / P1,P2,P3(2),P4,P5,P6(2) 1 /SYSTEM/ KSYSTM(65) 2 /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR 3 /TYPE / PREC(2),NWDS(4) 4 /ZZZZZZ/ X(1) EQUIVALENCE (CORE(1),X(1)) EQUIVALENCE (KSYSTM(1),NB ), (KSYSTM( 2),NOUT ), 1 (KSYSTM(9),NLPP ), (KSYSTM(12),LINE ), 2 (BLK( 1) ,BNAME ), (BLK( 2) ,BTYP ), 3 (BLK( 3) ,BFORM ), (BLK( 4) ,BROW ), 4 (BLK( 5) ,BPOINT), (BLK( 6) ,BRAV ), 5 (BLK( 7) ,BWRT ), (BLK( 8) ,BFLAG), 6 (BLK(12) ,BCOL ), (DCORE(1),CORE(1)) CWKBI DATA IFIRST / 0 / DATA SUBNAM/ 4HINPT, 4HT2 / , NONE / 4H (NO,4HNE) / DATA ZERO , MONE,MTWO,MTRE,MFOR /0,-1,-2,-3,-4 /, I3 / 3 / 1 MFIV , MSIX,METE /-5,-6,-8 /, IPT2,IPT4 / 1H2, 1H4 / DATA IDHDR / 4HNAST,4HRAN ,4HFORT,4H TAP,4HE ID,4H COD,3HE -/ DATA BCDBIN/ 4HBCD ,4H ,4HBINA,4HRY /, MSC / 4HMSC / C C IPTX = IPT2 NTRL = 8 IF (P4 .EQ. 0) GO TO 20 IF (P5 .NE. 0) GO TO 20 WRITE (NOUT,10) UWM 10 FORMAT (A25,'. THE 4TH PARAMETER IN INPUTT2 MODULE IS NO LONGER ', 1 'USED.', /5X,'SPARSE MATRIX FLAG IS NOW THE 5TH PARAMETER', 2 ', A MOVE TO SYNCHRONIZE THE PARAMETERS USED IN OUTPUT2') P5 = P4 20 SPARSE = .FALSE. IF (P5 .NE. 0) SPARSE = .TRUE. IF (P6(1) .NE. MSC) GO TO 100 GO TO 50 C C ENTRY INPUT2 C ============ C C INPUT2 IS CALLED TO HANDLE MSC/OUTPUT2 DATA. C IT IS CALLED FROM INPTT2 WITH P6 PARAMETER = 'MSC', OR C FROM INPTT4 C IPTX = IPT4 50 WRITE (NOUT,60) UIM,IPTX 60 FORMAT (A29,' FROM INPUTT',A1,'. USER INPUT TAPE IN MSC/OUTPUT2', 1 ' COMPATIBLE RECORDS') IPTX = IPT4 NTRL = 7 IRECF = 0 SPARSE= .FALSE. IF (P3(1).EQ.BCDBIN(1) .AND. P3(2).EQ.BCDBIN(2)) GO TO 1580 IF (P3(1).EQ.BCDBIN(3) .AND. P3(2).EQ.BCDBIN(4)) GO TO 1580 C 100 LCOR = KORSZ(X) - NB IF (LCOR .LE. 0) CALL MESAGE (-8,LCOR,SUBNAM) CWKBNB IF ( IFIRST .NE. 0) GO TO 61 CLOSE ( UNIT=P2 ) OPEN ( UNIT=P2, FILE=DSNAMES(P2), FORM='UNFORMATTED', 1 STATUS='UNKNOWN' ) IFIRST = 1 61 CONTINUE CWKBNE OUBUF = LCOR + 1 TAPCOD(1) = P3(1) TAPCOD(2) = P3(2) IN = P2 IF (P1.LT.METE .OR. P1.EQ.MTWO .OR. P1.EQ.MFOR) GO TO 1420 C IF (P1 .LT. MFOR) GO TO 700 IF (P1 .EQ. MTRE) GO TO 500 IF (P1 .LE. ZERO) GO TO 130 C I = 1 110 READ (IN) KEY KEYX = 2 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) NAMEX READ (IN) KEY IMHERE = 115 IF (KEY .GE. 0) GO TO 1560 ASSIGN 120 TO RET NSKIP = 1 GO TO 1300 C 120 I = I + 1 IF (I .LE. P1) GO TO 110 GO TO 160 C C OPEN FORTRAN TAPE TO READ TAPE-LABEL WITHOUT REWIND. C 130 IF (P1 .NE. MONE) GO TO 160 REWIND IN READ (IN) KEY KEYX = 3 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) DX READ (IN) KEY KEYX = 7 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) IDHDRX DO 140 KF = 1,7 IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 1460 140 CONTINUE READ (IN) KEY KEYX = 2 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) P3X READ (IN) KEY IMHERE = 145 IF (KEY .GE. 0) GO TO 1560 IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 1440 ASSIGN 150 TO RET NSKIP = 1 GO TO 1300 150 CONTINUE C 160 DO 430 I = 1,5 C OUTPUT = 200 + I TRL(1) = OUTPUT CALL RDTRL (TRL) IF (TRL(1) .LE. 0) GO TO 430 CALL FNAME (OUTPUT,NAME) IF (NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 430 C C READ FILE NAME HEADER RECORD. C READ (IN) KEY IF (KEY .EQ. 0) GO TO 440 KEYX = 2 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) NAMEX READ (IN) KEY IMHERE = 163 IF (KEY .GE. 0) GO TO 1560 C C READ TRAILER RECORD. C READ (IN) KEY KEYX = NTRL IF (KEY .NE. KEYX) GO TO 1530 READ (IN) (TRL(L),L=1,NTRL) IF (IPTX .EQ. IPT2) IRECF = TRL(8) READ (IN) KEY IMHERE = 165 IF (KEY .GE. 0) GO TO 1560 C C OPEN OUTPUT DATA BLOCK TO WRITE WITH REWIND. C CALL OPEN (*1400,OUTPUT,X(OUBUF),1) C C COPY CONTENTS OF FORTRAN TAPE ONTO OUTPUT DATA BLOCK. C C TRL(8) = 0, DATA BLOCK IS A TALBE C = 1, DATA BLOCK IS A MATRIX, WRITTEN IN STRING FORMAT C = 2, DATA BLOCK IS A VECTOR (1ST RECORD IS REGULAR, 2ND C RECORD IS A STRING) C INDEX = 0 READ (IN) KEY IF (IPTX .EQ. IPT2) GO TO 180 BNAME = OUTPUT KEYX = 1 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) KREC IMHERE = 170 IF (KREC .NE. 0) GO TO 1560 C READ (IN) KEY 180 KEYX = 2 IF (KEY .LT. KEYX) GO TO 1530 IF (KEY .GT. LCOR) GO TO 1510 READ (IN) (X(L),L=1,KEY) CALL WRITE (OUTPUT,NAME,2,0) IF (KEY .EQ. KEYX) GO TO 200 CALL WRITE (OUTPUT,X(I3),KEY-2,0) C 200 IF (IPTX .EQ. IPT2) GO TO 220 READ (IN) KEY IMHERE = 205 IF (KEY .GE. 0) GO TO 1560 BTYP = TRL(5) BFORM = 0 BCOL = 0 NWD = NWDS(BTYP) DP = BTYP.EQ.2 .OR. BTYP.EQ.4 CALL WRITE (OUTPUT,X,0,1) 210 READ (IN) KEY KEYX = 1 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) KREC IF (KREC .NE. 0) GO TO 350 C C TABLE DATA BLOCK(S) C 220 READ (IN) KEY IF (KEY) 240, 400, 230 C EOR, EOF, KEY C 230 IF (KEY .GT. LCOR) GO TO 1510 READ (IN) (X(L),L=1,KEY) CALL WRITE (OUTPUT,X,KEY,0) GO TO 220 240 CALL WRITE (OUTPUT,X,0,1) IF (IPTX .EQ. IPT4) GO TO 210 IF (IRECF .EQ. 0) GO TO 200 IF (IRECF.EQ.1 .OR. INDEX.GT.0) GO TO 250 INDEX = 1 GO TO 220 C C READ STRING FORMATTED MATRIX C 250 IF (IRECF.EQ.2 .AND. INDEX.EQ.2) GO TO 260 INDEX = 2 CALL MAKMCB (MCB(1),OUTPUT,TRL(3),TRL(4),TRL(5)) IROW = 1 NROW = TRL(3) TYPIN = TRL(5) TYPOUT= TRL(5) NWDSX = NWDS(TYPOUT) NCOL = TRL(2) C C CHECK FOR NULL MATRIX C IF (NROW.EQ.0 .OR. NCOL.EQ.0) GO TO 400 IF (IRECF .EQ. 2) NCOL = 1 INCR = 1 NWDSX = NROW*NWDSX 260 KEYX = NWDSX C C NWDSX IS NUMBER OF WORDS NEEDED PER COLUMN C IF (SPARSE) GO TO 300 DO 270 L = 1,NCOL READ (IN) KEY IF (KEY .NE. KEYX) GO TO 1530 IF (KEY .GT. LCOR) GO TO 1510 READ (IN) (X(K),K=1,NWDSX) CALL PACK (X,OUTPUT,MCB) READ (IN) KEY IMHERE = 265 IF (KEY .GT. 0) GO TO 1560 270 CONTINUE 280 IF (IRECF .EQ. 2) GO TO 200 KEYX = 0 READ (IN) KEY IMHERE = 285 IF (KEY .NE. KEYX) GO TO 1530 GO TO 400 C C SPARSE MATRIX INPUT (P5 = NON-ZERO) C (NOT CALLING FROM INPTT4 (IPTX=IPT2) C 300 DO 340 L = 1,NCOL DO 310 K = 1,NWDSX 310 X(K) = 0.0 320 READ (IN) KEY,BASE IF (KEY .LT. 0) GO TO 330 READ (IN) (X(K+BASE),K=1,KEY) GO TO 320 330 CALL PACK (X,OUTPUT,MCB) 340 CONTINUE GO TO 280 C C MATRIX DATA BLOCK - MSC/STRING RECORD. (IPTX=IPT4) C C 350 BFLAG = -1 BCOL = BCOL + 1 360 READ (IN) KEY CALL PUTSTR (BLK) IMHERE = 360 IF (KEY) 390,1560, 370 C NULL or EOR, ERR, KEY C 370 BWRT = KEY/NWD IMHERE = 370 IF (BWRT .GT. BRAV) GO TO 1560 C C COMMENTS FROM G.C./UNISYS 3/93 C UNLESS MSC/PUTSTR IS DIFFERENT FROM COSMIC/PUTSTR, THE FOLLOWING C 3 LINES, ORIGINATED FROM MSC SOURCE CODE, DO NOT WORK FOR D.P. C DATA ON VAX, AND POSSIBLY SILICON-GRAHPICS. THEY ARE REPLACED BY C NEXT 17 LINES BELOW. C (I TRIED SETTING L1=(BPOINT-1)*NWD+1, AND STILL DID NOT WORK.) C THE PROBLEM HERE IS D.P. DATA MAY FALL SHORT ON DOUBLE WORD C BOUNADRY, AND THEREFORE BECOME GARBAGE, WHICH MAY CAUSE FATAL C ERROR IN PRINTING. C C L1 = BPOINT C L2 = L1 - 1 + KEY C READ (IN) BROW,(CORE(L),L=L1,L2) C L1 = BPOINT*NWD L2 = L1 - 1 + KEY IF (DP) GO TO 380 C L = 375 C WRITE (NOUT,375) L,L1,L2,KEY,BROW,BTYP,BPOINT C 375 FORMAT (' /@',I3,' L1,L2,KEY,BROW,BTYP,BPOINT =',4I7,4I4) READ (IN) BROW,(CORE(L),L=L1,L2) C WRITE (NOUT,376,ERR=388) (CORE(L),L=L1,L2) C 376 FORMAT (10X,' CORE =',/,(1X,11E11.3)) GO TO 385 380 L1 = L1/2 L2 = L2/2 C L = 382 C WRITE (NOUT,375) L,L1,L2,KEY,BROW,BTYP,BPOINT READ (IN) BROW,(DCORE(L),L=L1,L2) C WRITE (NOUT,382,ERR=388) (DCORE(L),L=L1,L2) C 382 FORMAT (10X,'DCORE =',/,(1X,11D11.3)) 385 CALL ENDPUT (BLK) GO TO 360 390 BFLAG = +1 BWRT = 0 CALL ENDPUT (BLK) GO TO 210 C C CLOSE OUTPUT DATA BLOCK WITH REWIND AND EOF. C 400 CALL CLOSE (OUTPUT,1) C C WRITE TRAILER. C TRL(1) = OUTPUT CALL WRTTRL (TRL) CALL PAGE2 (-3) WRITE (NOUT,410) UIM,NAME,IN,NAMEX 410 FORMAT (A29,' 4105, DATA BLOCK ',2A4,' RETRIEVED FROM FORTRAN ', 1 'TAPE ',I2, /5X,'ORIGINAL NAME OF DATA BLOCK WAS ',2A4) IF (SPARSE .AND. NTRL.EQ.8 .AND. TRL(8).NE.0) 1 WRITE (NOUT,420) TRL(2),TRL(3) 420 FORMAT (1H+,55X,'(A SPARSE MATRIX',I6,2H X,I6,')') C 430 CONTINUE C C CLOSE FORTRAN TAPE WITHOUT REWIND. C 440 CONTINUE RETURN C C OBTAIN LIST OF DATA BLOCKS ON FORTRAN TAPE. C 500 REWIND IN READ (IN) KEY KEYX = 3 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) DX READ (IN) KEY KEYX = 7 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) IDHDRX DO 510 KF = 1,7 IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 1460 510 CONTINUE READ (IN) KEY KEYX = 2 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) P3X READ (IN) KEY IMHERE = 515 IF (KEY .GE. 0) GO TO 1560 IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 1480 520 ASSIGN 530 TO RET NSKIP = 1 GO TO 1300 530 KF = 0 540 CALL PAGE1 LINE = LINE + 8 WRITE (NOUT,550) IN 550 FORMAT (//50X,'FILE CONTENTS ON FORTRAN UNIT ',I2, /51X,32(1H-), 1 //54X,4HFILE,18X,4HNAME,//) 560 READ (IN) KEY IF (KEY .EQ. 0) GO TO 590 C KEYX = 2 C IF (KEY .NE. KEYX) GO TO 9918 READ (IN) NAMEX C READ (IN) KEY C IF (KEY .GE. 0) GO TO 9919 ASSIGN 570 TO RET NSKIP = 1 GO TO 1300 570 KF = KF + 1 LINE = LINE + 1 WRITE (NOUT,580) KF,NAMEX 580 FORMAT (53X,I5,18X,2A4) IF (LINE - NLPP) 560,540,540 590 REWIND IN ASSIGN 600 TO RET NSKIP = 1 GO TO 1300 600 CONTINUE GO TO 160 C C SEARCH MODE C C EXAMINE OUTPUT REQUESTS AND FILL NAME TABLE. C 700 NNT = 0 DO 720 I = 1,5 OUTPUT = 200 + I TRL(1) = OUTPUT CALL RDTRL (TRL) IF (TRL(1) .LE. 0) GO TO 710 CALL FNAME (OUTPUT,NAME) IF (NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 710 NT(I,1) = 0 NT(I,2) = NAME(1) NT(I,3) = NAME(2) NNT = NNT + 1 GO TO 720 710 NT(I,1) = -1 C IF (IPTX .NE. IPT2) GO TO 3050 NT(I,2) = NONE(1) NT(I,3) = NONE(2) 720 CONTINUE C IF (NNT .GT. 0) GO TO 800 CALL PAGE2 (-2) WRITE (NOUT,730) UWM,IPTX 730 FORMAT (A25,' 4137, ALL OUTPUT DATA BLOCKS FOR INPUTT',A1, 1 ' ARE PURGED.') C CLOSE (UNIT=IN) RETURN C C CHECK TAPE ID LABEL. C 800 REWIND IN READ (IN) KEY KEYX = 3 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) DX READ (IN) KEY KEYX = 7 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) IDHDRX DO 810 KF = 1,7 IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 1460 810 CONTINUE READ (IN) KEY KEYX = 2 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) P3X READ (IN) KEY IMHERE = 815 IF (KEY .GE. 0) GO TO 1560 IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 1440 ASSIGN 820 TO RET NSKIP = 1 GO TO 1300 820 CONTINUE C C BEGIN SEARCH OF TAPE. C KF = 0 830 READ (IN) KEY IF (KEY .EQ. 0) GO TO 1140 C KEYX = 2 C IF (KEY .NE. KEYX) GO TO 9918 READ (IN) NAMEX READ (IN) KEY IMHERE = 835 IF (KEY .GE. 0) GO TO 1560 KF = KF + 1 C DO 1100 I = 1,5 NAME(1) = NT(I,2) NAME(2) = NT(I,3) IF (NT(I,1) .LT. 0) GO TO 1100 IF (NAME(1).NE.NAMEX(1) .OR. NAME(2).NE.NAMEX(2)) GO TO 1100 NT(I,1) = NT(I,1) + 1 IF (NT(I,1).EQ.1 .OR. P1.EQ.MSIX .OR. P1.EQ.METE) GO TO 850 CALL PAGE2 (-3) WRITE (NOUT,840) UWM,NAME,KF,IN 840 FORMAT (A25,' 4138, DATA BLOCK ,',2A4,' (DATA BLOCK COUNT =',I6, 1 ') HAS PREVIOUSLY BEEN RETRIEVED FROM ', /36X, 2 'FORTRAN TAPE ',I2,' AND WILL BE IGNORED.') GO TO 1110 850 READ (IN) KEY KEYX = NTRL IF (KEY .NE. KEYX) GO TO 1530 READ (IN) (TRL(L),L=1,NTRL) IF (IPTX .EQ. IPT2) IRECF = TRL(8) READ (IN) KEY IMHERE = 855 IF (KEY .GE. 0) GO TO 1560 C OUTPUT = 200 + I CALL OPEN (*1400,OUTPUT,X(OUBUF),1) C INDEX = 0 C IF (IPTX .EQ. IPT4) GO TO 890 ! FROM MSC/INPTT4 READ (IN) KEY IF (IPTX .EQ. IPT2) GO TO 860 KEYX = 1 IF (KEY .EQ. KEYX) GO TO 1530 READ (IN) KREC IMHERE = 857 IF (KREC .LT. 0) GO TO 1560 READ (IN) KEY 860 KEYX = 2 IF (KEY .LT. KEYX) GO TO 1530 IF (KEY .GT. LCOR) GO TO 1510 READ (IN) (X(L),L=1,KEY) CALL WRITE (OUTPUT,NAME,2,0) IF (KEY .EQ. KEYX) GO TO 870 CALL WRITE (OUTPUT,X(I3),KEY-2,0) C 870 IF (IPTX .EQ. IPT2) GO TO 890 READ (IN) KEY IMHERE = 875 IF (KEY .GT. 0) GO TO 1560 BTYP = TRL(5) BFORM = 0 BCOL = 0 NWD = NWDS(BTYP) DP = BTYP.EQ.2 .OR. BTYP.EQ.4 CALL WRITE (OUTPUT,0,0,1) 880 READ (IN) KEY KEYX = 1 IF (KEY .NE. KEYX) GO TO 1530 READ (IN) KREC IF (KREC .NE. 0) GO TO 1010 C C TABLE DATA BLOCK(S) C 890 READ (IN) KEY IF (KEY) 910,1060,900 C EOR, EOF, KEY C 900 IF (KEY .GT. LCOR) GO TO 1510 READ (IN) (X(L),L=1,KEY) CALL WRITE (OUTPUT,X,KEY,0) GO TO 890 910 CALL WRITE (OUTPUT,X,0,1) C IF (IPTX .EQ. IPT4) GO TO 890 IF (IPTX .EQ. IPT4) GO TO 880 IF (IRECF .EQ. 0) GO TO 870 IF (IRECF .EQ. 1) GO TO 920 IF (INDEX .GT. 0) GO TO 920 INDEX = 1 GO TO 870 C C READ STRING FORMATTED MATRIX C 920 IF (IRECF.EQ.2 .AND. INDEX.EQ.2) GO TO 930 INDEX = 2 CALL MAKMCB (MCB(1),OUTPUT,TRL(3),TRL(4),TRL(5)) IROW = 1 NROW = TRL(3) TYPIN = TRL(5) TYPOUT= TRL(5) NWDSX = NWDS(TYPOUT) NCOL = TRL(2) C C CHECK FOR NULL MATRIX C IF (NROW.EQ.0 .OR. NCOL.EQ.0) GO TO 1060 IF (IRECF .EQ. 2) NCOL = 1 INCR = 1 NWDSX = NROW*NWDSX 930 KEYX = NWDSX C C NWDSX IS NUMBER OF WORDS NEEDED PER COLUMN C IF (SPARSE) GO TO 960 DO 940 L = 1,NCOL READ (IN) KEY IF (KEY .NE. KEYX) GO TO 1530 IF (KEY .GT. LCOR) GO TO 1510 READ (IN) (X(K),K=1,NWDSX) CALL PACK (X,OUTPUT,MCB) READ (IN) KEY IMHERE = 935 IF (KEY .GT. 0) GO TO 1560 940 CONTINUE 950 IF (IRECF .EQ. 2) GO TO 870 KEYX = 0 READ (IN) KEY IF (KEY .NE. KEYX) GO TO 1530 GO TO 1060 C C SPARSE MATRIX INPUT (P4 = NON-ZERO) C (NOT CALLING FROM INPTT4 (IPTX=IPT2) C 960 DO 1000 L = 1,NCOL DO 970 K = 1,NWDSX 970 X(K) = 0.0 980 READ (IN) KEY,BASE IF (KEY .LT. 0) GO TO 990 READ (IN) (X(K+BASE),K=1,KEY) GO TO 980 990 CALL PACK (X,OUTPUT,MCB) 1000 CONTINUE GO TO 950 C C MATRIX DATA BLOCK, IPTX = IPT4. MSC/STRING RECORD C C 1010 BFLAG = -1 BCOL = BCOL + 1 1020 READ (IN) KEY CALL PUTSTR (BLK) IMHERE = 1025 IF (KEY) 1050,1560,1030 C NULL or EOR, ERR, KEY C 1030 BWRT = KEY/NWD IMHERE = 1030 IF (BWRT .GT. BRAV) GO TO 1560 C C L1 = BPOINT C L2 = L1 - 1 + KEY C READ (IN) BROW,(CORE(L),L=L1,L2) C L1 = BPOINT*NWD L2 = L1 - 1 + KEY IF (DP) GO TO 1035 READ (IN) BROW,(CORE(L),L=L1,L2) GO TO 1040 1035 L1 = L1/2 L2 = L2/2 READ (IN) BROW,(DCORE(L),L=L1,L2) 1040 CALL ENDPUT (BLK) GO TO 1020 1050 BFLAG = +1 BWRT = 0 CALL ENDPUT (BLK) GO TO 880 C C CLOSE OUTPUT DATA BLOCK WITH REWIND AND EOF C 1060 CALL CLOSE (OUTPUT,1) C C WRITE TRAILER C TRL(1) = OUTPUT CALL WRTTRL (TRL) CALL PAGE2 (-2) WRITE (NOUT,1070) UIM,NAME,IN,KF 1070 FORMAT (A29,' 4139, DATA BLOCK ',2A4,' RETRIEVED FROM FORTRAN ', 1 'TAPE ',I2,' (DATA BLOCK COUNT =',I6,1H)) IF (NT(I,1) .GT. 1) GO TO 1080 NNT = NNT - 1 GO TO 1130 1080 WRITE (NOUT,1090) UWM 1090 FORMAT (A25,' 4140, SECONDARY VERSION OF DATA BLOCK HAS REPLACED', 1 ' EARLIER ONE.') CALL PAGE2 (-2) GO TO 1130 1100 CONTINUE C 1110 ASSIGN 1120 TO RET NSKIP = 1 GO TO 1300 1120 CONTINUE 1130 IF (NNT.GT.0 .OR. P1.EQ.MSIX .OR. P1.EQ.METE) GO TO 830 GO TO 1200 C 1140 IF (NNT .LE. 0) GO TO 1200 CALL PAGE2 (-7) IF (P1.EQ.MFIV .OR. P1.EQ.MSIX) GO TO 1160 WRITE (NOUT,1150) UWM 1150 FORMAT (A25,' 4141, ONE OR MORE DATA BLOCKS NOT FOUND ON FORTRAN', 1 ' TAPE.') GO TO 1170 1160 WRITE (NOUT,1500) UFM 1170 DO 1190 I = 1,5 IF (NT(I,1) .NE. 0) GO TO 1190 WRITE (NOUT,1180) NT(I,2),NT(I,3) 1180 FORMAT (20X,21HNAME OF DATA BLOCK = ,2A4) 1190 IF (IPTX .EQ. IPT4) GO TO 1200 IF (P1.EQ.MFIV .OR. P1.EQ.MSIX) GO TO 1600 C 1200 ASSIGN 1210 TO RET NSKIP = -1 GO TO 1300 1210 CONTINUE RETURN C C SIMULATION OF SKPFIL (IN,NSKIP) C 1300 IF (NSKIP) 1320,1310,1330 1310 GO TO RET, (120,150,530,570,600,820,1120,1210) 1320 REWIND IN C C NSKIP = COMPLEMENT OF NSKIP. C 1330 DO 1370 NS = 1,NSKIP 1340 READ (IN) KEY IF (KEY) 1340,1360,1350 C EOR, EOF, KEY C 1350 IF (KEY .GT. LCOR) GO TO 1510 READ (IN) (X(L),L=1,KEY) GO TO 1340 1360 CONTINUE 1370 CONTINUE GO TO 1310 C C ERRORS C 1400 WRITE (NOUT,1410) UFM,IPTX,OUTPUT 1410 FORMAT (A23,' 4108, SUBROUTINE INPTT',A1,' UNABLE TO OPEN OUTPUT', 1 ' DATA BLOCK',I6) GO TO 1600 1420 WRITE (NOUT,1430) UFM,IPTX,P1 1430 FORMAT (A23,' 4113, MODULE INPUTT',A1,' - ILLEGAL VALUE FOR ', 1 'FIRST PARAMETER =',I20) GO TO 1600 1440 WRITE (NOUT,1450) UFM,P3X,IPTX,P3 1450 FORMAT (A23,' 4136, USER TAPE ID CODE -',2A4,'- DOES NOT MATCH ', 1 'THIRD INPUTT',A1,' DMAP PARAMETER -',2A4,2H-.) LINE = LINE + 1 GO TO 1600 1460 WRITE (NOUT,1470) UFM,IPTX,IDHDRX 1470 FORMAT (A23,' 4134, MODULE INPUTT',A1,' - ILLEGAL TAPE CODE ', 1 'HEADER = ',7A4) GO TO 1600 1480 WRITE (NOUT,1490) UWM,P3X,IPTX,P3 1490 FORMAT (A25,' 4135, USER TAPE ID CODE -',2A4,'- DOES NOT MATCH ', 1 'THIRD INPUTT',A1,' DMAP PARAMETER -',2A4,2H-.) GO TO 520 1500 FORMAT (A23,' 4142, ONE OR MORE DATA BLOCKS NOT FOUND ON USER ', 1 'TAPE') 1510 WRITE (NOUT,1520) UFM,LCOR,KEY 1520 FORMAT (A23,' 2187, INSUFFICIENT WORKING CORE TO HOLD FORTRAN ', 1 'LOGICAL RECORD.', /5X,'LENGTH OF WORKING CORE =',I11, 2 ', LENGTH OF FORTRAN LOGICAL RECORD =',I11,1H.) LINE = LINE + 1 GO TO 1600 1530 WRITE (NOUT,1540) SFM,KEY,KEYX 1540 FORMAT (A25,' 2190, ILLEGAL VALUE FOR KEY =',I10, 1 ', EXPECTED VALUE =',I11,1H.) IF (KEY.EQ.2 .AND. KEYX.EQ.3) WRITE (NOUT,1550) 1550 FORMAT (5X,'POSSIBLY DUE TO IMPROPER TAPE GENERATION PROCEDURE') GO TO 1600 1560 WRITE (NOUT,1570) SFM,KEY,IMHERE 1570 FORMAT (A25,' 2190, ILLEGAL VALUE FOR KEY =',I10,'. IMHERE =',I4) GO TO 1600 1580 WRITE (NOUT,1590) UFM,P3 1590 FORMAT (A23,', ILLEGAL TAPE LABEL NAME -',2A4,'- POSSIBLY ', 1 'THE 4TH PARAMETER OF INPTT4 IS IN ERROR') GO TO 1600 C 1600 LINE = LINE + 2 CALL MESAGE (-61,LCOR,SUBNAM) RETURN C END ================================================ FILE: mis/inptt3.f ================================================ SUBROUTINE INPTT3 C C THIS ROUTINE READS MATRIX DATA FROM AN INPUT TAPE, WRITTEN IN C ROCKWELL INTERNATIONAL COMPANY'S CUSTOMARY FORMAT, INTO NASTRAN C GINO MATRIX BLOCK. C (THE RI DATA IS IN A COMPACT FORTRAN-FORMATTED CODED FORM, DOUBLE C PRECISION, WHCIH APPEARS TO HAVE QUITE WIDESPREAD ACCEPTANCE IN C THE AEROSPACE FIELD, AND PARTICULARY IN MARSHALL SPACE FLIEGHT C CENTER (MSFC) AREA) C C WRITTEN ORIGINALLY BY MEL MARTENS, ROCKWELL INTERNATIONAL, SPACE C DIVISION (213) 922-2316, AND MODIFIED UP TO NASTRAN STANDARD BY C G.CHAN/UNISYS, 2/1987 C C INPTT3 /O1,O2,O3,O4,O5/V,N,UNIT/V,N,ERRFLG/V,N,TEST $ C C UNIT = FORTRAN INPUT TAPE UNIT NO. C TAPE IS REWOUND BEFORE READ IF UNIT IS NEGATIVE C FORTRAN UNIT 11 (INPT) IS USED IF UNIT= 0 OR -1. C ERRFLG= 1, JOB TERMINATED IF DATA BLOCK ON TAPE NO FOUND C 0, NO TERMINATION IF DATA BLOCK NO FOUND ON TAPE C TEST = 0, NO CHECK ON FILE NAMES ON TAPE AND DMAP NAMES C = 1, NAMES CHECK, WILL SEARCH TAPE FOR MATCH. C IMPLICIT INTEGER (A-Z) INTEGER MCB(7), NAME(2), NAMX(2), SUBNAM(2) DOUBLE PRECISION DZ(1) CHARACTER UFM*23, UWM*25, UIM*29 COMMON /XMSSG / UFM, UWM, UIM COMMON /SYSTEM/ IBUF, NOUT COMMON /PACKX / TYPIN, TYPOUT, II, JJ, INCR COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / UNIT, ERRFLG, TEST COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW EQUIVALENCE (Z(1),DZ(1)) DATA END, HEAD, SUBNAM / 1 -999, -111, 4HINPT, 4HT3 / C CORE = KORSZ(Z(1)) BUF1 = CORE - IBUF + 1 CORE = BUF1 - 1 TYPIN= 2 TYPOUT=2 INCR = 1 C IU = UNIT IF (UNIT.EQ.0 .OR. UNIT.EQ.-1) IU = -11 IF (IU .GT. 0) GO TO 10 IU = -IU IREW= 0 REWIND IU C 10 DO 150 K = 1,5 FILE = 200 + K MCB(1) = FILE CALL RDTRL (MCB) IF (MCB(1) .LE. 0) GO TO 150 CALL GOPEN (FILE,Z(BUF1),WRTREW) CALL FNAME (FILE,NAME) 20 READ (IU,30,ERR=160,END=180) I,NAMX 30 FORMAT (I6,2A4) IF (I .GT. 0) GO TO 20 IF (I .EQ. END) GO TO 120 IF (I .NE. HEAD) GO TO 130 IF (NAMX(1).EQ.NAME(1) .AND. NAMX(2).EQ.NAME(2)) GO TO 50 WRITE (NOUT,40) UIM,NAMX,NAME 40 FORMAT (A29,', DATA BLOCK ',2A4,' FOUND WHILE SEARCHING FOR ',2A4) IF (TEST) 20,70,20 C C FOUND C 50 WRITE (NOUT,60) UIM,NAME 60 FORMAT (A29,', DATA BLOCK ',2A4,' FOUND') 70 READ (IU,80) NR,NC,TYPE 80 FORMAT (3I6) WRITE (NOUT,90) NAME,NC,NR,TYPE 90 FORMAT (/5X,'MATRIX BLOCK ',2A4,' IS OF SIZE ',I6,'(COL) BY',I5, 1 '(ROW), AND TYPE =',I6) IF (NR .GT. CORE) CALL MESAGE (-8,NR-CORE,SUBNAM) IREW= 1 II = 1 JJ = NR CALL MAKMCB (MCB,FILE,NR,TYPE,2) DO 110 I = 1,NC READ (IU,100,ERR=160,END=180) (DZ(J),J=1,NR) 100 FORMAT (12X,1P,5D24.16) CALL PACK (Z,FILE,MCB) 110 CONTINUE CALL CLOSE (FILE,REW) CALL WRTTRL (MCB) GO TO 150 C 120 IF (IREW .EQ. 0) GO TO 130 REWIND IU IREW = 0 GO TO 20 130 WRITE (NOUT,140) UWM,NAME 140 FORMAT (A25,', INPTT3 FAILED TO LOCATE DATA BLOCK ',2A4,' ON ', 1 'TAPE') IF (ERRFLG .NE. 0) CALL MESAGE (-61,0,SUBNAM) REWIND IU IREW = 0 150 CONTINUE RETURN C 160 WRITE (NOUT,170) IU 170 FORMAT ('0*** ERROR DUING READ. TAPE UNIT',I5) CALL CLOSE (FILE,REW) CALL MESAGE (-61,0,SUBNAM) 180 WRITE (NOUT,190) UWM,IU 190 FORMAT (A25,' FROM INPTT3, EOF ENCOUNTERED ON INPUT TAPE',I4) CALL CLOSE (FILE,REW) CALL WRTTRL (MCB) RETURN END ================================================ FILE: mis/inptt4.f ================================================ SUBROUTINE INPTT4 C C THIS INPTT4 UTILITY MODULE WILL READ USER-SUPPLIED TAPE (OR DISC C FILE), AS GENERATED FROM OUTPUT4 OR FROM MSC/OUTPUTi MODULES (i=1, C C THIS MODULE HANDLES ONLY MATRICES, AND NOT TABLES C C COSMIC/OUTPUT4 AND MSC/OUTPUT4 ARE IDENTICAL (BINARY ONLY) C COSMIC/INPUTT4 AND MSC/INPUTT4 ARE SIMILAR, EXECPT COSMIC/INPUTT4 C CAN ALSO PROCESS MSC/OUTPUT1 AND MSC/OUTPUT2 TAPES. C C INPUTT4 /O1,O2,O3,O4,O5/V,N,P1/V,N,P2/V,N,P3/V,N,P4 $ C C Oi = OUTPUT GINO DATA BLOCKS C C P1 = TAPE READ POSITION CONTROL C . SEE P1 OF INPUTT1 MODULE IF P4=-1 C . SEE P1 OF INPUTT2 MODULE IF P4=-2 C . SEE P1 OF INPUTT4 MODULE IF P4=-4 C . IF P4=0, P1= 0 NO ACTION C P1=-1 REWIND P2 BEFORE READ C P1=-2 WRITE E-O-F MARK AND REWIND P2 AT END C P1=-3 BOTH C P2 =+N, INPUT TAPE LOGICAL UNIT, INTEGER, NO DEFAULT C INPUT TAPE IS IN BINARY (UNFORMATTED). C =-N, INPUT TAPE LOGICAL UNIT +N, INPUT MATRICES WERE C WRITTEN IN BCD RECORDS (i.e. ASCII, FORMATTED) C P3 = TAPE LABEL, DEFAULT='XXXXXXXX' C P4 = OUTPUT TAPE MODULE, INTEGER (DEFAULT P4=0) C =-4, TAPE WAS ORIGINALLY WRITTEN BY MSC/OUTPUT4 MODULE* C UNFORMATTED (BINARY) TAPE, OR FORMATTED (BCD) TAPE. C FORMATS FOR BCD TAPE ARE - C 3I8 FOR INTEGERS, 2A4 FOR BCD, AND 5E16.9 FOR REAL. C =-2, TAPE WAS ORIGINALLY WRITTEN BY MSC/OUTPUT2 MODULE* C =-1, TAPE WAS ORIGINALLY WRITTEN BY MSC/OUTPUT1 MODULE* C = 0, TAPE WAS ORIGINALLY WRITTEN BY OUTPUT4 MODULE C . IN BINARY RECORDS (P2=+N), UNFORMATTED. C . IN ASCII FORMATTED RECORDS (P2=-N), FORMATS FOR C INTEGERS AND REAL DATA ARE MATRIX TYPE DEPENDENT. C I13 AND 10E13.6 FOR S.P.MATRIX DATA, AND C I16 AND 8D16.9 FOR D.P.MATRIX DATA. C I16 AND 8E16.9 FOR S.P.MATRIX DATA, AND LONG WORD C .GE.1, IN ASCII FORMATTED RECORDS (P2=-N), I16 IS USED FOR C INTEGERS, AND 8E16.9 FOR ALL REAL S.P. OR D.P.DATA C C * REQUIRE SYNCHRONIZED GINO BUFFER SIZE IN COSMIC NASTRAN AND C MSC/NASTRAN C C PARAMETERS EQUIVALENCE FOR COSMIC/INPUTT4 AND MSC/INPUTT4 C C COSMIC/INPUTT4 MSC/INPUTT4 C -------------- ------------------------------ C P1 NMAT (NO OF MATRICES ON TAPE) C P2 P2 C P3 P1 C P4 BCDOPT C C C NOTE - MIXED OUTPUT FILES FROM MSC/OUTPUT1, OUTPUT2 AND OUTPUT4 C ON ONE TAPE ARE NOT ALLOWED IN THIS INPUTT4 MODULE C C EXAMPLE 1 - INPUT TAPE INP1 (UNIT 15) CONTAINS 5 MATRICES, C ========= WRITTEN BY OUTPUT4, BINARY. C WE WANT TO COPY C FILE 3 TO A, C FILE 4 TO B C C 1. INPUTT4 /,,A,B,/-1/15 $ REWIND, READ & ECHO HEADER RECORD C C C EXAMPLE 2 - TO COPY THE FIRST 2 FILES OF A FORMATTED TAPE INP2 C ========= (UNIT 16), WRITTEN BY OUTPUT4 C C 2. INPUTT4 /A,B,,,/-1/-16 $ C C C EXAMPLE 3 - TO LIST THE FILES ON INP3 (TAPE CODE 3), THEN REWIND, C ========= AND COPY FILES 2 AND 3 ON INPUT TAPE ORIGINALLY C WRITTEN BY MSC/OUTPUT1. TAPE CONTAINS A HEADER RECORD C (FILE 0), AND TAPE ID "MYFILE" C C 3. INPUTT4 /A,B,,,/-3/3/*MYFILE*/-1 $ C C ACTUALLY, INPTT4 MODULE CALLS INPUT2 TO PROCESS ANY TAPE THAT WAS C GENERATED BY MSC/OUTPUT2. SIMILARILY, INPUT1 IS CALLED FOR TAPE C FROM MSC/OUTPUT1 C C THE FIRT PARAMETER NMAT IN MSC/INPUTT4 IS NOT USED HERE C INTEGER P1,P2,P3,P4,BCDOPT,Y(1),Z(1) COMMON /BLANK / P1,P2,P3(2),P4 COMMON /SYSTEM/ IBUFF,NOUT COMMON /ZZZZZZ/ X(1) EQUIVALENCE (Y(1),X(1)) EQUIVALENCE (Z(1),X(1)) C IF (P4 .GE. 0) GO TO 40 NMAT = IABS(P4) GO TO (10,20,30,40,30), NMAT C 10 CALL INPUT1 GO TO 50 C 20 CALL INPUT2 GO TO 50 C 30 WRITE (NOUT,35) P4 35 FORMAT (' ERROR IN INPTT4. P4 =',I3,' NOT AVAILABLE') CALL MESAGE (-61,0,0) C 40 NMAT = 5 IUNIT = IABS(P2) ITAPE = P1 BCDOPT= 1 IF (P2 .LT. 0) BCDOPT = 2 IF (P4 .GT. 0) BCDOPT = 3 C C BCDOPT = 1, BINARAY INPUT TAPE C = 2, ASCII INPUT TAPE, WITH S.P./D.P. STANDARD FORMATS C = 3, ASCII INPUT TAPE, WITH LARGE FILED S.P./D.P. FORMATS C CALL INPUT4 (NMAT,IUNIT,ITAPE,BCDOPT) 50 RETURN END ================================================ FILE: mis/inptt5.f ================================================ SUBROUTINE INPTT5 C C DRIVER OF INPUTT5 MODULE C THIS MODULE HANDLES BOTH TABLE AND MATRIX DATA BLOCKS 5/88 C C THIS IS A COMPANION MODULE TO OUTPUT5 C C ==== TABLE ==== C CALLS TABLE-V ROUTINE TO COPY FROM A FORTRAN UNIT (FORMATTED OR C BINARY TAPE) TABLE DATA TO NASTRAN GINO TABLE DATA BLOCKS C C ==== MATRIX ==== C COPIES FROM A FORTRAN UNIT (BINARY OR FORMATTED TAPE) OF BANDED C MATRICES ONTO NASTRAN GINO MATRIX DATA BLOCKS, IN GINO PACKED C FORMAT C C UNFORMATTED RECORDS CAN ONLY BE USED BY THE SAME COMPUTER SYSTEM, C WHILE FORMATTED RECORDS CAN BE USED ACROSS COMPUTER BOUNDARY C (E.G. WRITTEN BY CDC MACHINE AND READ BY IBM), AND ASLO, IT CAN C BE EDITED BY SYSTEM EDITOR, OR PRINTED OUT BY SYSTEM PRINT COMMAND C C ****************************************************************** C * * C * - IMPORTANT - * C * * C * IF USER ASSEMBLES HIS OWN MATRIX IN INPUTT5 FORMAT, AND USES * C * INPUTT5 MODULE TO READ IT INTO NASTRAN, BE SURE THAT THE * C * DENSITY TERM (DENS) OF THE MATRIX TRAILER IS SET TO NON-ZERO * C * (NEED NOT BE EXACT) AND THE PRECISION TERM (TYPE) IS 1,2,3, * C * OR 4. OTHERWISE, HIS MATRIX WILL BE TREATED AS TABLE AND * C * EVERYTHING GOES HAYWIRE. * C * * C ****************************************************************** C C CALL TO THIS MODULE IS C C INPUTT5 /O1,O2,O3,O4,O5/C,N,P1/C,N,P2/C,N,P3/C,N,P4 $ C C P1=+N, SKIP FORWARD N MATRIX DATA BLOCKS OR TABLES BEFORE C COPYING (EXCEPT THE FIRST HEADER RECORD. EACH C MATRIX DATA BLOCK OR TABLE, PRECEEDED BY A HEADER C RECORD, IS A COMPLETE MATRIX OR TABLE, MADE UP OF C MANY PHYSICAL RECORDS. C SKIP TO THE END OF TAPE IF P1 EXCEEDS THE NO. OF C DATA BLOCKS AVAILABLE ON THE OUTPUT TAPE C NO REWIND BEFORE SKIPPING) C P1= 0, NO ACTION TAKEN BEFORE COPYING. (DEFAULT) C HOWEVER, IF TAPE IS POSITIONED AT THE BEGINNING, C THE TAPE ID RECORD IS SKIPPED FIRST. C P1=-1, INPUT TAPE IS REWOUND, AND TAPEID CHECKED. IF C OUTPUT GINO FILES ARE PRESENT, DATA FROM TAPE ARE C THEN COPIED TO GINO FILES - IN PACKED MATRIX FORM C IF MATRIX DATA, OR TABLE FORM IF TABLE DATA. C P1=-3, TAPE IS REWOUND AND READ. THE NAMES OF ALL DATA C BLOCKS ON FORTRAN TAPE ARE PRINTED. AT END, TAPE C IS REWOUND AND POSITIONED AFTER TAPE HEADER RECORD C (NOTE - SERVICE UP TO 15 FILE NAMES ON ONE INPUT C TAPE. AND THE 'AT END' TREATMENT IS NOT THE SAME C AS IN OUTPUT5) C P1=-4 THRU -8 ARE NOT USED C P1=-9, REWIND TAPE C C P2 IS THE FORTRAN UNIT NO. ON WHICH THE DATA BLOCKS WILL C WRITTEN. DEFAULT IS 16 (INP2 FOR UNIVAC,IBM,VAX), C OR 12 (UT2 FOR CDC) C C P3 IS TAPE ID IF GIVEN BY USER. DEFAULT IS XXXXXXXX C C P4=0, OUTPUT TAPE IS FORTRAN WRITTEN, UNFORMATTED RECORDS C P4=1, OUTPUT TAPE IS FORTRAN WRITTED, FORMATTED C BCD IN 2A4, INTEGER IN I8, S.P. REAL IN 10E13.6, C AND D.P. IN 5D26.17. C P4=2, SAME AS P4=1, EXECPT FORMAT 5E26.17 IS USED FOR C S.P. REAL DATA. (THIS OPTION IS USED ONLY IN C MACHINES WITH 60 OR MORE BITS PER WORD) C C C CONTENTS OF INPUT TAPE, AS WRITTEN BY OUTPUT5 C (P4=0) (P4=1) C RECORD WORD CONTENTS BINARY FORMAT C ------ ---- -------------------------------- ------- ------- C 0 TAPE HEADER RECORD - C 1,2 TAPEID 2*BCD 2A4 C 3,4 MACHINE 2*BCD 2A4 C 5-7 DATE 3*INT 3I8 C 8 BUFFSIZE INT I8 C 9 0 (BINARY), OR 1 OR 2 (FORMATTED) INT I8 C 1/2@ FIRST MATRIX HEADER RECORD - C 1 ZERO INT I8 C 2,3 1,1 2*INT 2I8 C 1 DUMMY (D.P.) F.P. D26.17 C 2-7 MATRIX TRAILER 6*INT 6I8 C (COL,ROW,FORM,TYPE,MAX,DENS) C 8-9 MATRIX DMAP NAME 2*BCD 2A4 C 3/4 1 1 (FIRST COLUMN ID) INT I8 C 2 LOC. OF FIRST NON-ZERO ELEMENT, L1 INT I8 C 3 LOC. OF LAST NON-ZERO ELEMENT, L2 INT I8 C 1-W FIRST MATRIX COLUMN DATA F.P. (**) C (W=L2-L1+1) C 5/6 1 2 (SECOND COLUMN ID) INT I8 C 2-3 LOC. OF FIRST AND LAST NON-ZERO 2*INT 2I8 C ELEMENTS C 1-W SECOND MATRIX COLUMN DATA F.P. (**) C 7/8 1-3 THIRD MATRIX COLUMN, SAME FORMAT 3*INT 3I8 C 1-W AS RECORD 1 F.P. (**) C : : : C M/M+1 1-3 LAST MATRIX COLUMN, SAME FORMAT 3*INT 3I8 C AS RECORD 1 F.P. (**) C M+2/M+3 1-3 SECOND MATRIX HEADER RECORD 3*INT 3I8 C 1 DUMMY F.P. (**) C 2-7 MATRIX TRAILER 6*INT 6I8 C 8,9 MATRIX DMAP NAME 2*BCD 2A4 C M+4-N : FIRST THRU LAST COLUMNS OF MATRIX 3*INT 3I8 C +F.P. +(**) C : : REPEAT FOR 3RD,4TH,5TH MATRICES C : : (UP TO 5 MATRIX DATA BLOCKS PER ONE OUTPUT TAPE) C C EOF 1-3 -1,1,1 3*INT 3I8 C 1 ZEROS (D.P.) F.P. D26.17 C C @ RECORDS 1/2 (3/4, 5/6, ETC) ARE TWO RECORDS IN THE FORMATTED C TAPE, AND ARE PHYSICALLY ONE RECORD IN THE BINARY TAPE (AND C THE WORD COUNT SHOULD BE ADDED) C ** IS (10E13.6) FOR S.P.REAL OR (5D26.17) FOR D.P.DATA C (5E26.17) FOR LONG WORD MACHINE C C - NOTE - C BCD AND INTEGERS IN 8 C S.P. REAL IN 13.7 C D.P. DATA IN 26.17 C LONG WORD MACHINE IN 26.17 C C NO SYSTEM END-OF-FILE MARK WRITTEN BETWEEN MATRICES C EXCEPT FOR THE TAPE HEADER RECORD, AND THE MATRIX HEADERS, THE C ENTIRE FORMATTED INPUT TAPE CAN BE READ BY A STANDARD FORMAT C (3I8,/,(10E13.6)), (3I8,/,(5D26.17)), OR (3I8,/,(5E26.17)) C C ALSO, USER MAY OR MAY NOT CALL OUTPUT5 WITH P1=-9 TO WRITE AN C 'OUPUT5 E-O-F' MARK ON TAPE. THIS CAUSED PROBLEM BEFORE. C C THE PROCEDURE TO READ AND/OR WRITE THE TAPE IS COMMONLY USED C AMONG INPUTT5, OUTPUT5, AND DUMOD5. ANY PROCEDURE CHANGE SHOULD C BE MADE TO ALL THREE SUBROUTINES. C C WRITTEN BY G.CHAN/UNISYS 1987 C MAJOR REVISED 12/1992 BY G.C. C IMPLICIT INTEGER (A-Z) LOGICAL OPN,P40,P40S,P40D,P41,P41S,P41D,P41C,DEBUG INTEGER NAME(2),TAPEID(2),MAC(2),SUBNAM(2),DT(3), 1 IZ(7),FN(3,15),BK REAL RZ,X DOUBLE PRECISION DZ(7),DX CHARACTER*8 BINARY,FORMTD,BF CWKBI CHARACTER*5 Z5(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 CWKBNB CHARACTER*80 DSNAMES COMMON /DSNAME/ DSNAMES(80) CWKBNE COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / P1,P2,P3(2),P4 COMMON /INPUT5/ MCB(1),COL,ROW,FORM,TYPE,MAX,DENS COMMON /MACHIN/ MACH COMMON /SYSTEM/ IBUF,NOUT,NOGO,DUM36(36),NBPW COMMON /ZZZZZZ/ RZ(1) COMMON /PACKX / TYPIN,TYPOUT,II,JJ,INCR CWKBR EQUIVALENCE (RZ(1),IZ(1),DZ(1)) EQUIVALENCE (RZ(1),IZ(1),DZ(1),Z5) DATA BINARY, FORMTD, SUBNAM, FN,BK / 1 'BINARY','FORMATTD', 4HINPT, 2HT5, 46*2H / DATA MTRX, TBLE,SKIP / 4HMTRX, 4HTBLE, 4HSKIP / DATA DEBUG / .FALSE. / C C IF MACHINE IS CDC OR UNIVAC, CALL CDCOPN OR UNVOPN TO OPEN OUTPUT C FILE, A SEQUENTIAL FORMATTED TAPE. NO CONTROL WORDS ARE TO BE C ADDED TO EACH SEQUENTIAL RECORD. RECORD LENGTH IS 132 CHARACTERS, C AN ANSI STANDARD. C BF = BINARY IF (P4 .GE. 1) BF = FORMTD CALL PAGE1 WRITE (NOUT,10) UIM,BF,P1 10 FORMAT (A29,', MODULE INPUTT5 CALLED BY USER DMAP ALTER, ON ',A8, 1 ' INPUT FILE,',/5X,'WITH THE FOLLOWING REQUEST. (P1=', 2 I2,1H)) IF (P1 .EQ. -9) WRITE (NOUT,20) IF (P1 .EQ. -3) WRITE (NOUT,30) IF (P1 .EQ. -1) WRITE (NOUT,40) IF (P1 .EQ. 0) WRITE (NOUT,50) IF (P1 .GT. 0) WRITE (NOUT,60) P1 20 FORMAT (5X,'REWIND TAPE ONLY') 30 FORMAT (5X,'REWIND AND READ TAPE. PRINT ALL DATA BLOCK NAMES ON ', 1 'TAPE. AT END, TAPE IS REWOUND', /5X,'AND POSITIONED ', 2 'PASS TAPE HEADER RECORD') 40 FORMAT (5X,'REWIND, POSITION PAST TAPE HEADER RECORD, THEN READ ', 1 'TAPE. AT END, NO REWIND') 50 FORMAT (5X,'READ TAPE STARTING AT CURRENT POSITION, OR POSITION ', 1 'PAST THE TAPE HEADER RECORD (FIRST USE OF TAPE).', /5X, 2 ' NO REWIND AT BEGINNING AND AT END') 60 FORMAT (5X,'SKIP FORWARD',I4,' DATA BLOCKS (NOT COUNTING TAPE ', 1 'HEADER RECORD) BEFORE READING, AT END NO REWIND') C BUF1 = KORSZ(RZ(1)) - IBUF - 1 IF (BUF1 .LE. 0) CALL MESAGE (-8,0,SUBNAM) INPUT= P2 OPN = .FALSE. LL = 0 P41 =.FALSE. IF (P4 .GE. 1) P41 =.TRUE. P40 =.NOT.P41 P40S =.FALSE. P41S =.FALSE. P40D = P40 P41D = P41 P41C = P4.EQ.2 .AND. NBPW.GE.60 IF (P41C) P40D = .FALSE. IF (P41C) P41D = .FALSE. COL12= 0 P1N = P1 IF (P1 .LT. 0) P1N = 0 CWKBNB CLOSE( UNIT=INPUT ) IF ( P4 .NE. 0 ) GO TO 62 OPEN ( UNIT=INPUT, FILE=DSNAMES(INPUT), FORM='UNFORMATTED' 1 ,STATUS='UNKNOWN' ) GO TO 65 62 CONTINUE OPEN ( UNIT=INPUT, FILE=DSNAMES(INPUT), STATUS='UNKNOWN') 65 CONTINUE CWKBNE IF (P1 .NE. -9) GO TO 70 REWIND INPUT GO TO 1000 C 70 DO 80 I = 1,15 80 FN(3,I) = BK IF (P1.GE.-1 .OR. P1.EQ.-3 .OR. P1.EQ.-9) GO TO 200 C WRITE (NOUT,90) UFM,P1 90 FORMAT (A23,', MODULE INPUTT5 - ILLEGAL VALUE FOR FIRST PARAMETER' 1, ' = ',I8, /5X,'ONLY -9, -3 AND GREATER THAN -1 ALLOWED') 100 ERR = -37 120 CALL MESAGE (ERR,OUTPUT,SUBNAM) RETURN C 200 IF (P1 .EQ. 0) GO TO 500 C C CHECK TAPE ID C REWIND INPUT ERR = -1 IF (P40) READ (INPUT, END=420) TAPEID,MAC,DT,I,K IF (P41) READ (INPUT,210,END=420) TAPEID,MAC,DT,I,K 210 FORMAT (4A4,5I8) IF (TAPEID(1).EQ.P3(1) .AND. TAPEID(2).EQ.P3(2)) GO TO 230 WRITE (NOUT,220) TAPEID,P3,MAC,DT 220 FORMAT ('0*** WRONG TAPE MOUNTED - TAPEID =',2A4,', NOT ',2A4, 1 /5X,'MACHINE=',2A4,' DATE WRITTEN-',I4,1H/,I2,1H/,I2) IF (P1 .EQ. -1) GO TO 100 230 IF (K .EQ. P4) GO TO 250 WRITE (NOUT,240) UWM,P4 240 FORMAT (A25,', MODULE INPUTT5 4TH PARAMETER SPECIFIED WRONG TAPE', 1 ' FORMAT. P4=',I5, /5X, 2 'INPUTT5 WILL RESET P4 AND TRY TO READ THE TAPE AGAIN.',/) P4 = K P40 =.NOT.P40 P41 =.NOT.P41 250 CALL PAGE2 (4) WRITE (NOUT,260) TAPEID,MAC,DT,I 260 FORMAT (/5X,'MODULE INPUTT5 IS NOW PROCESSING TAPE ',2A4, 1 ' WHICH WAS WRITTEN BY ',2A4,'MACHINE', /5X, 2 'ON',I4,1H/,I2,1H/,I2,4X,'SYSTEM BUFFSIZE=',I8) IF (P40) WRITE (NOUT,270) IF (P41) WRITE (NOUT,280) 270 FORMAT (5X,'TAPE IN BINARY RECORDS',/) 280 FORMAT (5X,'TAPE IN FORMATTED RECORDS',/) LL = 0 IF (P1.GT.0 .OR. P1.EQ.-3) GO TO 300 IF (P1 .EQ. -1) GO TO 510 IMHERE = 290 WRITE (NOUT,290) SFM,IMHERE,P1 290 FORMAT (A25,' @',I5,I10) GO TO 100 C C TO SKIP P1 MATRIX DATA BLOCKS OR TABLES ON INPUT TAPE (P1 = +N) C OR PRINT CONTENTS OF INPUT TAPE (P1 = -3) C 300 IF (P40 ) READ (INPUT, ERR=390,END=420) NC,JB,JE IF (P41S) READ (INPUT,520,ERR=390,END=420) NC,JB,JE,( X,J=JB,JE) IF (P41C) READ (INPUT,525,ERR=390,END=420) NC,JB,JE,( X,J=JB,JE) IF (P41D) READ (INPUT,530,ERR=390,END=420) NC,JB,JE,(DX,J=JB,JE) IF (DEBUG .AND. (NC.LE.15 .OR. NC.GE.COL12)) 1 WRITE (NOUT,540) NC,JB,JE,LL IF (NC) 360,340,300 C 310 IF (P40) READ (INPUT, ERR=390,END=420) L IF (P41) READ (INPUT,320,ERR=390,END=420) L,(TABEL,J=1,L) 320 FORMAT (I10,24A, /,(26A5)) IF (DEBUG) WRITE (NOUT,330) L,LL 330 FORMAT (30X,'L AND LL=',2I6) IMHERE = 330 IF (L) 360,340,310 340 IF (P1.NE.-3 .AND. LL.GE.P1) GO TO 360 IMHERE = 340 LL = LL + 1 BACKSPACE INPUT IF (P41) BACKSPACE INPUT IF (LL .GT. 15) GO TO 370 IF (P40) READ (INPUT ) I,I,I,DX,J,J,J,J,K,K,FN(1,LL),FN(2,LL) IF (P41) READ (INPUT,560) I,I,I,DX,J,J,J,J,K,K,FN(1,LL),FN(2,LL) IF (P1.NE.-3 .OR. LL.LE.P1) FN(3,LL) = SKIP IF (K.GT.0 .AND. J.GE.1 .AND. J.LE.4) GO TO 350 C C FILE IS A TABLE C IF (LL .GT. P1) FN(3,LL) = TBLE IMHERE = 345 GO TO 310 C C FILE IS A MATRIX C 350 IF (LL .GT. P1) FN(3,LL) = MTRX IF (P40) GO TO 300 P41S = .FALSE. P41D = .FALSE. P41C = P4.EQ.2 .AND. NBPW.GE.60 IF (P41C) GO TO 300 IF (J.EQ.1 .OR. J.EQ.3) P41S = .TRUE. P41D = .NOT.P41S GO TO 300 C 360 IF (P1 .EQ. -3) GO TO 900 IF (P41) BACKSPACE INPUT BACKSPACE INPUT GO TO 510 C 370 WRITE (NOUT,380) UIM 380 FORMAT (A29,', INPUTT5, WITH P1= -3, CAN ONLY PRINT UP TO 15 ', 1 ' FILE NAMES ON ONE INPUT TAPE.', /5X,'TAPE IS POSITIONED', 2 ' AFTER THE 15TH FILE') LL = LL - 1 GO TO 920 C 390 WRITE (NOUT,400) UFM,P3,LL,NC,IMHERE 400 FORMAT (A23,', TAPE ERROR DURING READ/INPUTT5 ',2A4, /5X, 1 'LL,NC =',2I5,' IMHERE =',I5) IMHERE = 405 IF (P41 .AND. MACH.EQ.2) WRITE (NOUT,410) IMHERE 410 FORMAT (/5X,'IBM USER - CHECK FILE ASSIGNMENT FOR DCB PARAMETER ', 1 'OF 132 BYTES',I15) GO TO 100 420 IF (P1 .EQ. -3) GO TO 440 WRITE (NOUT,430) UFM,P3,IMHERE,LL,NC 430 FORMAT (A23,', EOF ENCOUNTERED ON INPUT TAPE ',2A4,5X, 1 'IMHERE,LL,NC =',3I5) IF (P1 .NE. -3) NOGO = 1 GO TO 900 440 WRITE (NOUT,450) UWM,P3 450 FORMAT (A25,', EOF ENCOUNTERED ON INPUT TAPE ',2A4,'. TAPE DOES ', 1 'NOT CONTAIN AN ''OUTPUT5 E-O-F'' MARK') IF (DEBUG) WRITE (NOUT,460) IMHERE,LL,NC 460 FORMAT (5X,'IMHERE,LL,NC =',3I5) GO TO 900 C C P1 = 0, C MUST SKIP TAPE HEADER RECORD IF CURRENT TAPE POSITION IS AT THE C VERY BEGINNING C 500 LL = 0 IMHERE = 500 IF (P40) READ (INPUT, ERR=770,END=420) TAPEID IF (P41) READ (INPUT,210,ERR=770,END=420) TAPEID IF (TAPEID(1).NE.P3(1) .OR. TAPEID(2).NE.P3(2)) BACKSPACE INPUT C C COPY MATRIX TO TAPE C IMHERE = 510 510 IF (P40S) READ(INPUT, ERR=770,END=910) NC,JB,JE,(RZ(J),J=JB,JE) IF (P40D) READ(INPUT, ERR=770,END=910) NC,JB,JE,(DZ(J),J=JB,JE) IF (P41S) READ(INPUT,520,ERR=770,END=910) NC,JB,JE,(RZ(J),J=JB,JE) IF (P41C) READ(INPUT,525,ERR=770,END=910) NC,JB,JE,(RZ(J),J=JB,JE) IF (P41D) READ(INPUT,530,ERR=770,END=910) NC,JB,JE,(DZ(J),J=JB,JE) 520 FORMAT (3I8,/,(10E13.6)) 525 FORMAT (3I8,/,(5E26.17)) 530 FORMAT (3I8,/,(5D26.17)) IF (DEBUG .AND. (NC.LE.15 .OR. NC.GE.COL12)) 1 WRITE (NOUT,540) NC,JB,JE,LL,IMHERE 540 FORMAT (30X,'NC,JB,JE,LL=',5I6,'=IMHERE') IF (NC) 800, 550, 700 C EOF, MATRIX-HEADER, COLUMN-DATA C C MATRIX OR TABLE HEADER C 550 IF (OPN) GO TO 810 LL = LL + 1 IF (LL .GT. 15) GO TO 370 BACKSPACE INPUT IF (P41) BACKSPACE INPUT J = -1 IF (P40) READ (INPUT, ERR=570) K,J,J,DX,COL,ROW,FORM,TYPE, 1 MAX,DENS,FN(1,LL),FN(2,LL) IF (P41) READ (INPUT,560,ERR=570) K,J,J,DX,COL,ROW,FORM,TYPE, 1 MAX,DENS,FN(1,LL),FN(2,LL) 560 FORMAT (3I8,/,D26.17,6I8,2A4) COL12 = COL - 12 IF (COL12 .LT. 0) COL12 = 0 IF (.NOT.DEBUG) GO TO 590 570 WRITE (NOUT,580) COL,ROW,FORM,TYPE,MAX,DENS,DX,FN(1,LL),FN(2,LL) 580 FORMAT (' COL,ROW,FORM,TYPE,MAX,DENS,DX,FILE=',6I6,D12.3,3X,2A4) IF (J .EQ. -1) CALL MESAGE (-37,0,SUBNAM) C 590 IF (K.EQ.0 .AND. (DENS.EQ.0 .OR. TYPE.LE.0 .OR. TYPE.GT.4)) CWKBR1 CALL TABLE V (*510,INPUT,LL,MCB,FN(1,LL),P4,BUF1,RZ) 1 CALL TABLE V (*510,INPUT,LL,MCB,FN(1,LL),P4,BUF1,Z5) C FN(3,LL) = MTRX P40S = .FALSE. P40D = .FALSE. P41S = .FALSE. P41D = .FALSE. P41C = P4.EQ.2 .AND. NBPW.GE.60 IF (P41C) GO TO 610 IF (P41 ) GO TO 600 IF (TYPE.EQ.1 .OR. TYPE.EQ.3) P40S = .TRUE. P40D = .NOT.P40S GO TO 610 600 IF (TYPE.EQ.1 .OR. TYPE.EQ.3) P41S = .TRUE. P41D = .NOT.P41S 610 IF (DEBUG) WRITE (NOUT,620) P40,P40S,P40D,P41,P41S,P41D,P41C 620 FORMAT ('0 P40,P40S,P40D,P41,P41S,P41D,P41C = ',7L4) TYPIN = TYPE TYPOUT = TYPE JTYP = TYPE IF (TYPE .EQ. 3) JTYP = 2 II = 1 JJ = ROW INCR = 1 NWDS = ROW*JTYP IF (NWDS .GT. BUF1) CALL MESAGE (-8,0,SUBNAM) C C OPEN GINO FILE FOR OUTPUT C IMHERE = 640 IF (P1 .EQ. -3) GO TO 640 ROWX = ROW FORMX = FORM OUTPUT = 200 + LL - P1N MCB(1) = OUTPUT CALL RDTRL (MCB(1)) IF (MCB(1) .LE. 0) GO TO 750 ERR = -1 CALL OPEN (*120,OUTPUT,RZ(BUF1),1) CALL FNAME (OUTPUT,NAME) CALL WRITE (OUTPUT,NAME,2,1) OPN = .TRUE. COL = 0 ROW = ROWX FORM = FORMX TYPE = TYPOUT MAX = 0 DENS = 0 NCK = 0 GO TO 510 C 640 WRITE (NOUT,290) SFM,IMHERE,P1 CALL MESAGE (-37,0,SUBNAM) C C RECOVER INPUT MATRIX, AND WRITE IT OUT BY COLUMN C 700 IMHERE = 700 IF (P1 .EQ. -3) GO TO 510 NCK = NCK + 1 IF (NC .NE. NCK) GO TO 390 IF (JB .LE. 1) GO TO 720 JB = (JB-1)*JTYP DO 710 J = 1,JB 710 RZ(J) = 0.0 720 IF (JE .GE. NWDS) GO TO 740 JE = (JE*JTYP) + 1 DO 730 J = JE,NWDS 730 RZ(J) = 0.0 740 CALL PACK (RZ,OUTPUT,MCB) GO TO 510 C C OUTPUT FILE PURGED, SKIP FORWARD FOR NEXT MATRIX ON TAPE C 750 IF (P40 ) READ (INPUT ,ERR=390,END=420) NC,JB,JE IF (P41S) READ (INPUT,520,ERR=390,END=420) NC,JB,JE,( X,J=JB,JB) IF (P41C) READ (INPUT,525,ERR=390,END=420) NC,JB,JE,( X,J=JB,JB) IF (P41D) READ (INPUT,530,ERR=390,END=420) NC,JB,JE,(DX,J=JB,JB) IF (NC .GT. 0) GO TO 750 CALL PAGE2 (2) WRITE (NOUT,760) UWM,FN(1,LL),FN(2,LL) 760 FORMAT (A25,', OUTPUT FILE PURGED. ',2A4,' FROM INPUT TAPE NOT ', 1 'COPIED') C LL = LL + 1 GO TO 550 C 770 IMHERE = -IMHERE WRITE (NOUT,400) UFM,P3,LL,NC,IMHERE WRITE (NOUT,780) P40,P41,P40S,P40D,P41S,P41D,P41C 780 FORMAT (' P40,P41,P40S,P40D,P41S,P41D,P41C =',7L2) IMHERE = 770 IF (P41 .AND. MACH.EQ.2) WRITE (NOUT,410) IMHERE GO TO 750 C C END OF MATRIX ENCOUNTERED. CLOSE GINO DATA BLOCK WITH REWIND. C 800 IF (.NOT.OPN) GO TO 840 810 CALL CLOSE (OUTPUT,1) OPN = .FALSE. IF (FORM.GE.1 .AND. FORM.LE.6) GO TO 820 FORM = 1 IF (COL .NE. ROW) FORM = 2 820 CALL WRTTRL (MCB) CALL FNAME (OUTPUT,NAME) CALL PAGE2 (10) WRITE (NOUT,830) FN(1,LL),FN(2,LL),INPUT,NAME,(MCB(J),J=1,7) 830 FORMAT (/5X,'MATRIX DATA BLOCK ',2A4,' WAS SUCESSFULLY RECOVERED', 1 ' FROM FORTRAN UNIT',I4,' TO ',2A4, /8X,'GINO UNIT =',I8, 2 /6X,'NO. OF COLS =',I8, /6X,'NO. OF ROWS =',I8, /13X, 3 'FORM =',I8, /13X,'TYPE =',I8, /3X,'NON-ZERO WORDS =',I8, 4 /10X,'DENSITY =',I8) 840 IMHERE = 840 IF (LL .GE. 5+P1N) GO TO 860 IF (NC) 850,550,390 850 IF (P1 .EQ. -3) GO TO 1000 GO TO 900 860 BACKSPACE INPUT IF (P41) BACKSPACE INPUT GO TO 920 C C IF NC = -2, THIS IS AN ELEM/GRID ID RECORD WRITTEN BY DUMOD5 C 900 IF (NC .EQ. -2) GO TO 510 910 NC = -3 IF (OPN) GO TO 800 IF (FN(3,LL) .EQ. BK) LL = LL - 1 IF (LL .LE. 0) GO TO 970 C C PRINT LIST OF DATA BLOCKS ON FORTRAN TAPE (P1=-3). C 920 CALL PAGE2 (LL+9) WRITE (NOUT,930) IF (P1 .NE. -3) WRITE (NOUT,940) INPUT IF (P1 .EQ. -3) WRITE (NOUT,950) INPUT WRITE (NOUT,960) MAC,BF,(J,FN(1,J),FN(2,J),FN(3,J),J=1,LL) 930 FORMAT (/5X,'SUMMARY FROM INPUTT5 MODLUE -') 940 FORMAT (/34X,'FILES RECOVERED FROM FORTRAN UNIT',I5) 950 FORMAT (/34X,'FILE CONTENTS ON FORTRAN UNIT',I5) 960 FORMAT (28X,'(WRITTEN BY ',2A4,' MACHINE ',A8,' RECORDS)', //37X, 1 'FILE',8X,'NAME',8X,'TYPE', /33X,9(4H----), /, 2 (37X,I3,7X,2A4,6X,A4)) IF (NOGO .EQ. 1) GO TO 100 C IF (P1 .NE. -3) GO TO 1000 REWIND INPUT IF (P40) READ (INPUT) IF (P41) READ (INPUT,210) GO TO 1000 C 970 IF (P1 .EQ. -3) WRITE (NOUT,980) UIM,INPUT 980 FORMAT (A29,' FROM INPUTT5 MODULE, INPUT TAPE (FORTRAN UNIT',I5, 1 ') CONTAINS NO DATA BLOCK') C 1000 IF (MACH .EQ. 3) CALL UNVCLS (P2) IF (MACH .EQ. 4) CALL CDCCLS (P2) RETURN END ================================================ FILE: mis/input.f ================================================ SUBROUTINE INPUT C C INPUT I1,I2,I3,I4,I5/O1,O2,O3,O4,O5/C,N,-V1-/C,N,-V2-/C,N,-V3- $ C C EXTERNAL ORF LOGICAL INOPEN(5) INTEGER FILIN(5),FILOUT(5),FILE,FIL,HFIL(3,5),SPERLK, 1 MODCOM(9),RDFLG,R,R1,R2,PARAMA,PARAMB,PARAMC, 2 PARAM1,PARAMN,T(7),MNAM(2),EEE(3),IX(1),TWO,ORF, 3 K(100),KT(20),I1T(20),J1T(20),I2T(20),J2T(20), 4 CORD2C(2),KDN(2,20),KL(20),KNO(20),KDSORT(270), 5 K1(100),K2(100),K3(70) REAL LAMBDA,QK(100) CHARACTER*8 E1,E2,E3,CHR CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /MACHIN/ MACH COMMON /SYSTEM/ KSYSTM(100) COMMON /BLANK / PARAMA,PARAMB,PARAMC COMMON /TWO / TWO(32) COMMON /ZZZZZZ/ X(1) COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ EQUIVALENCE (KSYSTM( 1),NBUF), (KSYSTM( 2),NOUT ), 1 (KSYSTM( 4),NIN ), (KSYSTM(12),NLINES), 2 (KSYSTM(57),MODCOM(1)), (KSYSTM(95),SPERLK), 3 (QK(1),K(1)), (X(1),IX(1)), 4 (KDSORT( 1),K1(1)), (KDSORT(101),K2(1)), 5 (KDSORT(201),K3(1)) C DATA CORD2C / 2001,20 / DATA MNAM / 4HINPU, 4HT / DATA FILIN / 101,102,103,104,105/ DATA FILOUT / 201,202,203,204,205/ DATA EEE / 3*2147483647 / DATA PARAM1 , PARAMN / 1, 8 / DATA E1,E2 / 'ENDDATA ', 'END DATA' /, E3 / 'ENDATA ' / DATA INOPEN / 5*.FALSE./ C C SORTSEQUENCE (INTERNALSEQUENCEID) C C 1 2 3 4 5 6 7 8 9 0 C DATA K1/ 116, 115, 2, 211, 58, 57, 59, 61, 60, 62 1 , 169, 215, 216, 221, 144, 214, 137, 104, 134, 105 2 , 135, 106, 136, 165, 213, 114, 233, 113, 181, 189 3 , 191, 3, 185, 186, 184, 188, 187, 177, 178, 176 4 , 172, 182, 190, 170, 151, 161, 56, 70, 83, 85 5 , 4, 78, 79, 77, 82, 81, 68, 69, 67, 63 6 , 71, 84, 54, 55, 49, 50, 51, 52, 23, 24 7 , 25, 26, 36, 37, 38, 39, 122, 123, 80, 76 8 , 89, 148, 138, 121, 101, 98, 99, 5, 1, 127 9 , 128, 145, 227, 228, 229, 230, 231, 235, 6, 7 / C C 1 2 3 4 5 6 7 8 9 0 C DATA K2/ 8, 129, 9, 75, 219, 10, 27, 28, 29, 30 1 , 31, 32, 33, 34, 35, 152, 153, 154, 92, 94 2 , 183, 124, 91, 102, 110, 109, 140, 141, 142, 143 3 , 205, 206, 223, 224, 210, 240, 241, 242, 243, 225 4 , 226, 244, 96, 13, 203, 22, 150, 217, 139, 146 5 , 220, 171, 209, 179, 234, 107, 133, 100, 155, 156 6 , 157, 222, 158, 159, 160, 111, 245, 247, 249, 251 7 , 253, 255, 257, 259, 261, 246, 248, 250, 16, 21 8 , 149, 88, 90, 95, 164, 252, 254, 256, 130, 202 9 , 232, 258, 260, 262, 199, 200, 201, 166, 167, 97 / C C 1 2 3 4 5 6 7 8 9 0 C DATA K3/ 236, 237, 238, 239, 117, 112, 204, 180, 40, 41 1 , 42, 14, 17, 108, 11, 12, 74, 86, 44, 45 2 , 93, 103, 15, 18, 19, 20, 72, 73, 118, 119 3 , 212, 43, 194, 125, 126, 162, 131, 132, 192, 193 4 , 195, 196, 197, 198, 207, 208, 120, 147, 64, 173 5 , 46, 47, 48, 163, 168, 218, 87, 53, 65, 174 6 , 66, 175, 0, 0, 0, 0, 0, 0, 0, 0 / C C 1 2 3 4 5 6 7 8 9 0 C DATA KL/ 901,1301,5501,5481,4501,2408, 501,5301,2801,3301, 1 5401,5551,3001,5001,5008,5561,2001, 0, 0, 0/ DATA KT/ 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1 1, 1, 2, 1, 1, 1, 1, 0, 0, 0/ C DATA I1T/ 2, 2, 5, 5, 4, 3, 2, 5, 3, 4, 1 5, 5, 3, 5, 5, 6, 3, 0, 0, 0/ DATA J1T/ 9, 13, 7, 10, 13, 8, 5, 5, 12, 1, 1 6, 1, 14, 2, 2, 12, 4, 0, 0, 0/ C DATA I2T/ 7, 7, 0, 0, 0, 0, 7, 0, 0, 0, 1 0, 0, 7, 0, 0, 0, 0, 0, 0, 0/ DATA J2T/ 8, 10, 0, 0, 0, 0, 9, 0, 0, 0, 1 0, 0, 16, 0, 0, 0, 0, 0, 0, 0/ C DATA KNO/ 76, 68, 16, 12, 1, 180, 72, 4, 57, 52, 1 25, 105, 48, 15, 258, 215, 9, 0, 0, 0/ C DATA KDN(1, 1),KDN(2, 1) / 4HCELA , 4HS4 /, 2 KDN(1, 2),KDN(2, 2) / 4HCMAS , 4HS4 /, 3 KDN(1, 3),KDN(2, 3) / 4HSPC , 4H /, 4 KDN(1, 4),KDN(2, 4) / 4HSPC1 , 4H /, 5 KDN(1, 5),KDN(2, 5) / 4HGRID , 4H /, 6 KDN(1, 6),KDN(2, 6) / 4HCBAR , 4H /, 7 KDN(1, 7),KDN(2, 7) / 4HCDAM , 4HP4 /, 8 KDN(1, 8),KDN(2, 8) / 4HSEQG , 4HP /, 9 KDN(1, 9),KDN(2, 9) / 4HCQUA , 4HD1 /, O KDN(1,10),KDN(2,10) / 4HCTRI , 4HA1 /, 1 KDN(1,11),KDN(2,11) / 4HSLOA , 4HD /, 2 KDN(1,12),KDN(2,12) / 4HSPOI , 4HNT /, 3 KDN(1,13),KDN(2,13) / 4HCROD , 4H /, 4 KDN(1,14),KDN(2,14) / 4HOMIT , 4H /, 5 KDN(1,15),KDN(2,15) / 4HCNGR , 4HNT /, 6 KDN(1,16),KDN(2,16) / 4HASET , 4H /, 7 KDN(1,17),KDN(2,17) / 4HXXXX , 4H /, 8 KDN(1,18),KDN(2,18) / 4HXXXX , 4H /, 9 KDN(1,19),KDN(2,19) / 4HXXXX , 4H /, O KDN(1,20),KDN(2,20) / 4HXXXX , 4H / C C LF(I,J,N) = I + N*(J-1) C IF (PARAM1.LE.PARAMA .AND. PARAMA.LE.PARAMN) GO TO 20 WRITE (NOUT,10) UFM,PARAMA 10 FORMAT (A23,' 1738, UTILITY MODULE INPUT FIRST PARAMETER VALUE - ' 1, I20,' OUT OF RANGE') GO TO 9999 C 20 KOR = 10*NBUF + 1 NKOR = KORSZ(X) - 10*NBUF IF (NKOR .LE. 0) CALL MESAGE (-8,NKOR,MNAM) CALL PAGE1 NLINES = NLINES + 8 WRITE (NOUT,1) 1 FORMAT (//20X,'* U T I L I T Y M O D U L E I N P U T *',///, 1 20X,'INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO ', 2 'RIGHT ADJUST)', ///20X,'* 1 ** 2 ** 3 ** 4 ', 3 '** 5 ** 6 ** 7 ** 8 ** 9 ** 10 *' ,///) IOX = 0 IOY = 0 IF (MACH.LT.5 .OR. SPERLK.NE.0) GO TO 100 C C ON VAX-11/780 OR UNIX MACHINES, SEARCH FOR END OF BULK DATA DECK. C 60 READ (NIN,70,END=80) CHR 70 FORMAT (A8) IF (CHR.EQ.E1 .OR. CHR.EQ.E2 .OR. CHR.EQ.E3) GO TO 100 GO TO 60 C C ENDDATA CARD NOT FOUND C 80 WRITE (NOUT,90) UFM 90 FORMAT (A23,' - "ENDDATA" CARD NOT FOUND BY INPUT MODULE') CALL MESAGE (-37,0,MNAM) C 100 GO TO (1000,2000,3000,4000,5000,6000,7000,8000), PARAMA C C C PARAMA = 1 LAPLACE NETWORK C C INPUT, ,,,,/,G2,,G4,/C,N,1/C,N,1 $ STATICS C INPUT, ,GEOM2,,GEOM4,/,G2,,G4,/C,N,1/C,N,1 $ STATICS C INPUT, ,,,,/,G2,,,/C,N,1/C,N,2 $ REAL-EIG W/O MASS COUPL C INPUT, ,GEOM2,,,/,G2,,,/C,N,1/C,N,2 $ REAL-EIG W/O MASS COUPL C INPUT, ,,,,/,G2,,,/C,N,1/C,N,3 $ REAL-EIG WITH MASS COUPL C INPUT, ,GEOM2,,,/,G2,,,/C,N,1/C,N,3 $ REAL-EIG WITH MASS COUPL C C 1000 GO TO (1100,1200,1300), PARAMB C 1100 READ (NIN,1110) N,ZK,U 1110 FORMAT (I8,2E8.0) CALL PAGE2 (-1) WRITE (NOUT,1111) N,ZK,U 1111 FORMAT (21X,I8,1P,2E8.1,0P,F8.5) C ASSIGN 1140 TO R2 GO TO 1205 1140 CONTINUE C C G4 C IFIL = 4 ASSIGN 1181 TO R GO TO 9100 C C SPC C 1181 IC = 3 ASSIGN 1182 TO R GO TO 9200 1182 K(1) = 1000 + N K(3) = 0 K(4) = 0 DO 1183 I = 2,N K(2) = I 1183 CALL WRITE (FILE,K,4,0) DO 1184 I = 2,N K(2) = LF(1,I,N1) QK(4) = U CALL WRITE (FILE,K,4,0) K(2) = K(2) + N K(4) = 0 1184 CALL WRITE (FILE,K,4,0) DO 1185 I = 2,N K(2) = N*N1 + I 1185 CALL WRITE (FILE,K,4,0) ASSIGN 1190 TO R1 GO TO 9600 1190 RETURN C C 1200 READ (NIN,1201) N,ZK,ZM 1201 FORMAT (I8,2E8.0) CALL PAGE2 (-1) WRITE (NOUT,1111) N,ZK,ZM C 1204 ASSIGN 1299 TO R2 C 1205 N1 = N + 1 NM1 = N - 1 C C G2 C IFIL = 2 ASSIGN 1211 TO R GO TO 9100 C C CELAS4 C 1211 IC = 1 ASSIGN 1213 TO R GO TO 9200 1213 QK(2) = ZK DO 1214 J = 2,N DO 1214 I = 1,N K(1) = LF(I,J,N1) K(3) = K(1) K(4) = K(3) + 1 IF (PARAMB.NE.1 .AND. I.EQ.1) K(3) = 0 IF (PARAMB.NE.1 .AND. I.EQ.N) K(4) = 0 1214 CALL WRITE (FILE,K,4,0) DO 1215 J = 1,N DO 1215 I = 2,N K(3) = LF(I,J,N1) K(4) = K(3) + N1 K(1) = K(3) + 1000000 IF (PARAMB.NE.1 .AND. J.EQ.1) K(3) = 0 IF (PARAMB.NE.1 .AND. J.EQ.N) K(4) = 0 1215 CALL WRITE (FILE,K,4,0) ASSIGN 1216 TO R1 GO TO 9650 1216 IF (PARAMB .EQ. 1) GO TO 1240 C C CMASS4 C IC = 2 ASSIGN 1218 TO R GO TO 9200 1218 QK(2) = ZM K(4) = 0 DO 1219 J = 2,N DO 1219 I = 2,N K(3) = LF(I,J,N1) K(1) = K(3) + 2000000 1219 CALL WRITE (FILE,K,4,0) IF (PARAMB .EQ. 3) GO TO 1230 1220 ASSIGN 1240 TO R1 GO TO 9650 C 1230 QK(2) = -F*ZM DO 1232 J = 2,N DO 1232 I = 1,N K(3) = LF(I,J,N1) K(1) = K(3) + 3000000 K(4) = K(3) + 1 IF (I .EQ. 1) K(3) = 0 IF (I .EQ. N) K(4) = 0 1232 CALL WRITE (FILE,K,4,0) DO 1234 J = 1,N DO 1234 I = 2,N K(3) = LF(I,J,N1) K(4) = K(3) + N1 K(1) = K(3) + 4000000 IF (J .EQ. 1) K(3) = 0 IF (J .EQ. N) K(4) = 0 1234 CALL WRITE (FILE,K,4,0) QK(2) = -F*ZM/2.0 DO 1236 J = 1,N DO 1236 I = 1,N K(3) = LF(I,J,N1) K(1) = K(3) + 5000000 K(4) = K(3) + N1 + 1 IF (I.EQ.1 .OR. J.EQ.1) K(3) = 0 IF (I.EQ.N .OR. J.EQ.N) K(4) = 0 IF (K(3).NE.0 .OR. K(4).NE.0) CALL WRITE (FILE,K,4,0) 1236 CONTINUE DO 1238 J = 1,N DO 1238 I = 1,N K(3) = LF(I,J,N1) K(1) = K(3) + 6000000 K(4) = K(3) + N1 K(3) = K(3) + 1 IF (I.EQ.N .OR. J.EQ.1) K(3) = 0 IF (I.EQ.1 .OR. J.EQ.N) K(4) = 0 IF (K(3).NE.0 .OR. K(4).NE.0) CALL WRITE (FILE,K,4,0) 1238 CONTINUE GO TO 1220 1240 IF (MODCOM(1) .NE. 0) GO TO 1295 C C DO NOT GENERATE CNGRNT DATA FOR N LESS THAN 3. C IF (N .LT. 3) GO TO 1295 C C CNGRNT C IC = 15 ASSIGN 1245 TO R GO TO 9200 1245 DO 1251 J = 2,N DO 1250 I = 1,N IF (PARAMB.NE.1 .AND. (I.EQ.1 .OR. I.EQ.N)) GO TO 1250 K(1) = LF(I,J,N1) CALL WRITE (FILE,K,1,0) 1250 CONTINUE 1251 CONTINUE DO 1256 J = 1,N IF (PARAMB.NE.1 .AND. (J.EQ.1 .OR. J.EQ.N)) GO TO 1256 DO 1255 I = 2,N K(1) = LF(I,J,N1) + 1000000 CALL WRITE (FILE,K,1,0) 1255 CONTINUE 1256 CONTINUE K(1) = -1 CALL WRITE (FILE,K,1,0) IF (PARAMB .EQ. 1) GO TO 1259 DO 1257 J = 2,N DO 1257 I = 1,N,NM1 K(1) = LF(I,J,N1) 1257 CALL WRITE (FILE,K,1,0) DO 1258 J = 1,N,NM1 DO 1258 I = 2,N K(1) = LF(I,J,N1) + 1000000 1258 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) 1259 CONTINUE IF (PARAMB .EQ. 1) GO TO 1285 DO 1260 J = 2,N DO 1260 I = 2,N K(1) = LF(I,J,N1) + 2000000 1260 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) IF (PARAMB .EQ. 2) GO TO 1285 DO 1265 J = 2,N DO 1265 I = 2,NM1 K(1) = LF(I,J,N1) + 3000000 1265 CALL WRITE (FILE,K,1,0) DO 1270 J = 2,NM1 DO 1270 I = 2,N K(1) = LF(I,J,N1) + 4000000 1270 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) DO 1272 J = 2,N DO 1272 I = 1,N,NM1 K(1) = LF(I,J,N1) + 3000000 1272 CALL WRITE (FILE,K,1,0) DO 1273 J = 1,N,NM1 DO 1273 I = 2,N K(1) = LF(I,J,N1) + 4000000 1273 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) DO 1280 L = 1,2 DO 1275 J = 2,NM1 DO 1275 I = 2,NM1 K(1) = LF(I,J,N1) + 1000000*L + 4000000 1275 CALL WRITE (FILE,K,1,0) 1280 CONTINUE K(1) = -1 CALL WRITE (FILE,K,1,0) DO 1282 J = 1,N DO 1281 I = 1,N IF (I.NE.1 .AND. I.NE.N .AND. J.NE.1 .AND. J.NE.N) GO TO 1281 IF (J.EQ.1 .AND. I.EQ.N .OR. J.EQ.N .AND. I.EQ.1) GO TO 1281 K(1) = LF(I,J,N1) + 5000000 CALL WRITE (FILE,K,1,0) 1281 CONTINUE 1282 CONTINUE DO 1284 J = 1,N DO 1283 I = 1,N IF (I.NE.1 .AND. I.NE.N .AND. J.NE.1 .AND. J.NE.N) GO TO 1283 IF (J.EQ.1 .AND. I.EQ.1 .OR. J.EQ.N .AND. I.EQ.N) GO TO 1283 K(1) = LF(I,J,N1) + 6000000 CALL WRITE (FILE,K,1,0) 1283 CONTINUE 1284 CONTINUE K(1) = -1 CALL WRITE (FILE,K,1,0) 1285 ASSIGN 1290 TO R1 GO TO 9600 1290 GO TO R2, (1140,1299) 1295 ASSIGN 1290 TO R GO TO 9500 1299 RETURN C 1300 READ (NIN,1301) N,ZK,ZM,F 1301 FORMAT (I8,3E8.0) CALL PAGE2 (-1) WRITE (NOUT,1111) N,ZK,ZM,F GO TO 1204 C C C PARAMA = 2 RECTANGULAR FRAME MADE FROM BAR-S OR ROD-S C C INPUT, ,,,,/G1,G2,,,/C,N,2/C,N,I/C,N,J $ C INPUT GEOM1,GEOM2,,,/G1,G2,,,/C,N,2/C,N,I/C,N,J $ C I=1 REGULAR BANDING C I=2 DOUBLE BANDING C I=3 ACTIVE COLUMN BANDING C I=4 REVERSE DOUBLE BANDING C J=0 BAR CONFIGURATION C J=1 ROD CONFIGURATION 1 (DIAGONALS IN BOTH DIRECTIONS) C J=2 ROD CONFIGURATION 2 (DIAGONALS IN LR TO UL DIRECTN) C J=3 ROD CONFIGURATION 3 (STATICALLY DETERMINATE) C C 2000 READ (NIN,2001) NX,NY,DX,DY,IP,LAMBDA 2001 FORMAT (2I8,2E8.0,I8,E8.0) CALL PAGE2 (-1) WRITE (NOUT,2002) NX,NY,DX,DY,IP,LAMBDA 2002 FORMAT (21X,2I8,1P,2E8.1,I8,1P,2E8.1) NX1 = NX + 1 NY1 = NY + 1 ASSIGN 2295 TO R2 C C G1 C 2005 IFIL = 1 ASSIGN 2010 TO R GO TO 9100 C C GRID C 2010 IC = 5 ASSIGN 2015 TO R GO TO 9200 2015 QK(5) = 0.0 K(2) = 0 K(6) = 0 K(8) = 0 SL = SIN(DEGRA*LAMBDA) CL = COS(DEGRA*LAMBDA) DDY = DY*CL JJ = -1 DO 2020 J = 1,NY1 JJ = JJ + 1 IF (JJ .GT. IOY) JJ = 0 QK(4) = DDY*FLOAT(J-1) XO = FLOAT(J-1)*SL II = -1 DO 2020 I = 1,NX1 II = II + 1 IF (II .GT. IOX) II = 0 K(1) = LF(I,J,NX1) QK(3) = DX*FLOAT(I-1) + XO IF (II.EQ.0 .OR. JJ.EQ.0) GO TO 2018 C K(7) = 6 C GO TO 2020 2018 K(7) = IP 2020 CALL WRITE (FILE,K,8,0) ASSIGN 2050 TO R1 GO TO 9650 C 2050 IF (PARAMB .EQ. 1) GO TO 2290 IC = 8 ASSIGN 2060 TO R GO TO 9200 2060 GO TO (2290,2200,2300,2350), PARAMB C C DOUBLE BANDING C 2200 IF (MOD(NY,2) .EQ. 0) GO TO 2212 KK = NY1/2 NN = 1 GO TO 2214 2212 KK = NY1/2 + 1 NN = 2 2214 IJ = NY1*NX1 DO 2240 J = 1,IJ K(1) = J IW = MOD(J,NX1) IF (IW .EQ. 0) IW = NX1 IL = (J-1)/NX1 + 1 ILMK = IL - KK GO TO (2220,2230), NN 2220 IF (ILMK) 2221,2221,2222 2221 ILL = -2*ILMK + 1 GO TO 2223 2222 ILL = 2*ILMK 2223 K(2) = LF(IW,ILL,NX1) GO TO 2240 2230 IF (ILMK) 2231,2232,2232 2231 ILL = -2*ILMK GO TO 2233 2232 ILL = 2*ILMK + 1 2233 K(2) = LF(IW,ILL,NX1) 2240 CALL WRITE (FILE,K,2,0) C 2270 ASSIGN 2290 TO R1 GO TO 9650 2290 GO TO R2, (2295,3010) 2295 ASSIGN 2400 TO R GO TO 9500 C C ACTIVE COLUMNS BANDING C 2300 IJ = NX1*NY1 IF (MOD(NY,2) .EQ. 0) GO TO 2311 KK = IJ/2 KKK = 0 NN = 1 GO TO 2315 2311 KK = (NY/2+1)*NX1 KKK = IJ - KK NN = 2 2315 DO 2340 J = 1,IJ K(1) = J GO TO (2320,2330), NN 2320 IF (J-KK) 2321,2321,2322 2321 K(2) = J + KK GO TO 2340 2322 K(2) = J - KK GO TO 2340 2330 IF (J-KKK) 2331,2331,2332 2331 K(2) = J + KK GO TO 2340 2332 K(2) = J - KKK 2340 CALL WRITE (FILE,K,2,0) GO TO 2270 C C REVERSE DOUBLE BANDING C 2350 IJ = NX1*NY1 IF (MOD(NX,2) .EQ. 0) GO TO 2360 KK = NX1/2 NN = 1 GO TO 2370 2360 KK = NX1/2 + 1 NN = 2 2370 DO 2390 J = 1,IJ K(1) = J IW = MOD(J,NX1) IF (IW .EQ. 0) IW = NX1 IL = (J-1)/NX1 + 1 IWMK = IW - KK GO TO (2380,2385), NN 2380 IF (IWMK) 2381,2381,2382 2381 IWW = -2*IWMK + 1 GO TO 2383 2382 IWW = 2*IWMK 2383 K(2) = LF(IL,IWW,NY1) GO TO 2390 2385 IF (IWMK) 2386,2387,2387 2386 IWW = -2*IWMK GO TO 2388 2387 IWW = 2*IWMK + 1 2388 K(2) = LF(IL,IWW,NY1) 2390 CALL WRITE (FILE,K,2,0) GO TO 2270 C C G2 C 2400 IFIL = 2 ASSIGN 2410 TO R GO TO 9100 2410 IF (PARAMC .NE. 0) GO TO 2700 C C CBAR C IC = 6 ASSIGN 2420 TO R GO TO 9200 2420 K(2) = 101 QK(5) = 0.0 QK(6) = 0.0 QK(7) = 1.0 K(8) = 1 DO 2430 I = 9,16 2430 K(I) = 0 DO 2450 J = 1,NY1 DO 2450 I = 1,NX K(1) = LF(I,J,NX1) K(3) = K(1) K(4) = K(1) + 1 2450 CALL WRITE (FILE,K,16,0) DO 2460 J = 1,NY DO 2460 I = 1,NX1 K(3) = LF(I,J,NX1) K(4) = K(3) + NX1 K(1) = K(3) + 1000000 2460 CALL WRITE (FILE,K,16,0) 2470 ASSIGN 2600 TO R1 GO TO 9650 2600 IF (MODCOM(1) .NE. 0) GO TO 2695 C C CNGRNT (OUT OF SEQUENCE FOR CROD CASES) C IC = 15 ASSIGN 2610 TO R GO TO 9200 2610 DO 2620 J = 1,NY1 DO 2620 I = 1,NX K(1) = LF(I,J,NX1) 2620 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) DO 2640 J = 1,NY DO 2640 I = 1,NX1 K(1) = LF(I,J,NX1) + 1000000 2640 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) IF (PARAMC .EQ. 0) GO TO 2680 DO 2655 J = 1,NY DO 2653 I = 1,NX K(1) = LF(I,J,NX1)*2 + 1999999 CALL WRITE (FILE,K,1,0) IF (PARAMC.EQ.3 .AND. J.GT.1) GO TO 2655 2653 CONTINUE 2655 CONTINUE K(1) = -1 CALL WRITE (FILE,K,1,0) IF (PARAMC .NE. 1) GO TO 2680 DO 2670 J = 1,NY DO 2670 I = 1,NX K(1) = LF(I,J,NX1)*2 + 2000000 2670 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) 2680 ASSIGN 2690 TO R1 GO TO 9600 2690 RETURN 2695 ASSIGN 2690 TO R GO TO 9500 C C CROD C 2700 IC = 13 ASSIGN 2710 TO R GO TO 9200 2710 K(2) = 101 DO 2720 J = 1,NY1 DO 2720 I = 1,NX K(1) = LF(I,J,NX1) K(3) = K(1) K(4) = K(3) + 1 2720 CALL WRITE (FILE,K,4,0) DO 2730 J = 1,NY DO 2730 I = 1,NX1 K(3) = LF(I,J,NX1) K(4) = K(3) + NX1 K(1) = K(3) + 1000000 2730 CALL WRITE (FILE,K,4,0) DO 2750 J = 1,NY DO 2740 I = 1,NX K(3) = LF(I,J,NX1) + 1 K(4) = K(3) + NX K(1) = 2*K(3) + 1999997 CALL WRITE (FILE,K,4,0) IF (PARAMC.EQ.3 .AND. J.GT.1) GO TO 2750 IF (PARAMC .NE. 1) GO TO 2740 K(1) = K(1) + 1 K(3) = K(3) - 1 K(4) = K(4) + 1 CALL WRITE (FILE,K,4,0) 2740 CONTINUE 2750 CONTINUE GO TO 2470 C C C PARAMA = 3 RECTANGULAR PLATE MADE FROM QUAD1-S C C INPUT, ,,,,/G1,G2,,G4,/C,N,3/C,N,I $ C INPUT GEOM1,GEOM2,,GEOM4,/G1,G2,,G4,/C,N,3/C,N,I $ C I=1 REGULAR BANDING C I=2 DOUBLE BANDING C I=3 ACTIVE COLUMN BANDING C I=4 REVERSE DOUBLE BANDING C C 3000 READ (NIN,3001) NX,NY,DX,DY,IP,LAMBDA,TH 3001 FORMAT (2I8,2E8.0,I8,2E8.0) CALL PAGE2 (-2) WRITE (NOUT,2002) NX,NY,DX,DY,IP,LAMBDA,TH READ (NIN,3002) IY0,IX0,IYL,IXW,IOX,IOY 3002 FORMAT (6I8) WRITE (NOUT,3003) IY0,IX0,IYL,IXW,IOX,IOY 3003 FORMAT (21X,6I8) NX1 = NX + 1 NY1 = NY + 1 C C GRID C ASSIGN 3010 TO R2 GO TO 2005 3010 ASSIGN 3020 TO R GO TO 9500 C C G2 C 3020 IFIL = 2 ASSIGN 3030 TO R GO TO 9100 C C CQUAD1 C 3030 IF (PARAMA .EQ. 4) GO TO 4100 IC = 9 ASSIGN 3040 TO R GO TO 9200 3040 K(2) = 101 QK(7) = TH DO 3060 J = 1,NY DO 3060 I = 1,NX K(1) = LF(I,J,NX1) K(3) = K(1) K(4) = K(3) + 1 K(6) = K(1) + NX1 K(5) = K(6) + 1 3060 CALL WRITE (FILE,K,7,0) ASSIGN 3061 TO R1 GO TO 9650 3061 IF (MODCOM(1) .NE. 0) GO TO 3066 C C CNGRNT (OUT OF SEQUENCE) C IC = 15 ASSIGN 3062 TO R GO TO 9200 3062 DO 3063 J = 1,NY DO 3063 I = 1,NX K(1) = LF(I,J,NX1) 3063 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) 3065 ASSIGN 3070 TO R1 GO TO 9600 3066 ASSIGN 3070 TO R GO TO 9500 C C SPC-S AND OMIT-S C 3070 IF (IP+IY0+IX0+IYL+IXW+IOX+IOY .EQ. 0) GO TO 3090 C C G4 C IFIL = 4 ASSIGN 3080 TO R GO TO 9100 C C SPC C 3071 IC = 3 ASSIGN 3072 TO R GO TO 9200 3072 K(1) = 1000*NX + NY K(4) = 0 DO 3073 I = 1,NX1 K(2) = I K(3) = IY0 IF (I .EQ. 1) K(3) = IUNION(IY0,IX0) IF (I .EQ. NX1) K(3) = IUNION(IY0,IXW) IF (K(3) .NE. 0) CALL WRITE (FILE,K,4,0) 3073 CONTINUE DO 3074 I = 2,NY K(2) = LF(1,I,NX1) K(3) = IX0 IF (K(3) .NE. 0) CALL WRITE (FILE,K,4,0) K(2) = K(2) + NX K(3) = IXW IF (K(3) .NE. 0) CALL WRITE (FILE,K,4,0) 3074 CONTINUE K(2) = NX1*NY DO 3075 I = 1,NX1 K(2) = K(2) + 1 K(3) = IYL IF (I .EQ. 1) K(3) = IUNION(IYL,IX0) IF (I .EQ. NX1) K(3) = IUNION(IYL,IXW) IF (K(3) .NE. 0) CALL WRITE (FILE,K,4,0) 3075 CONTINUE ASSIGN 3089 TO R1 GO TO 9650 3080 IF (IOX+IOY .EQ. 0) GO TO 3071 C C OMIT C IC = 14 ASSIGN 3081 TO R GO TO 9200 3081 DO 3082 I = 2,12,2 3082 K(I) = I/2 JJ = 0 DO 3087 J = 2,NY JJ = JJ + 1 IF (JJ .GT. IOY) GO TO 3086 II = 0 DO 3085 I = 2,NX II = II + 1 IF (II .GT. IOX) GO TO 3084 K(1) = LF(I,J,NX1) DO 3083 L = 3,11,2 3083 K(L) = K(1) C CALL WRITE (FILE,K,10,0) C GO TO 3085 3084 II = 0 3085 CONTINUE GO TO 3087 3086 JJ = 0 3087 CONTINUE ASSIGN 3088 TO R1 GO TO 9650 3088 IF (IP+IY0+IX0+IYL+IXW .GT. 0) GO TO 3071 3089 ASSIGN 3090 TO R GO TO 9500 3090 RETURN C C C PARAMA = 4 RECTANGULAR PLATE MADE FROM TRIA1-S C C INPUT, ,,,,/G1,G2,,G4,/C,N,4/C,N,I/C,N,J $ C INPUT GEOM1,GEOM2,,GEOM4,/G1,G2,,G4,/C,N,4/C,N,I/C,N,J $ C I=1 REGULAR BANDING C I=2 DOUBLE BANDING C I=3 ACTIVE COLUMN BANDING C I=4 REVERSE DOUBLE BANDING C J=1 TRIANGLE CONFIGURATION OPTION NO. 1 (LL TO UR) C J=2 TRIANGLE CONFIGURATION OPTION NO. 2 (LR TO UL) C C 4000 GO TO 3000 C C CTRIA1 C 4100 IC = 10 ASSIGN 4200 TO R GO TO 9200 4200 K(2) = 101 QK(6) = TH DO 4500 J = 1,NY DO 4500 I = 1,NX K(3) = LF(I,J,NX1) K(4) = K(3) + 1 K(1) = 2*K(3) - 1 GO TO (4300,4400), PARAMC 4300 K(5) = K(4) + NX1 CALL WRITE (FILE,K,6,0) K(1) = K(1) + 1 K(4) = K(3) + NX1 K(3) = K(5) K(5) = K(4) - NX1 CALL WRITE (FILE,K,6,0) GO TO 4500 4400 K(5) = K(3) + NX1 CALL WRITE (FILE,K,6,0) K(1) = K(1) + 1 K(3) = K(5) + 1 K(4) = K(5) K(5) = K(3) - NX1 CALL WRITE (FILE,K,6,0) 4500 CONTINUE ASSIGN 4550 TO R1 GO TO 9650 4550 IF (MODCOM(1) .NE. 0) GO TO 3066 C C CNGRNT (OUT OF SEQUENCE) C IC = 15 ASSIGN 4600 TO R GO TO 9200 4600 DO 4650 J = 1,NY DO 4650 I = 1,NX K(1) = LF(I,J,NX1)*2 - 1 4650 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) DO 4750 J = 1,NY DO 4750 I = 1,NX K(1) = LF(I,J,NX1)*2 4750 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) GO TO 3065 C C C PARAMA = 5 N-SEGMENT STRING C C INPUT, ,,,,/,G2,,,/C,N,5 $ C INPUT, ,GEOM2,,,/,G2,,,/C,N,5 $ C C 5000 READ (NIN,5010) N,XK1,XK2,XM,XB 5010 FORMAT (I8,4E8.0) CALL PAGE2 (-1) WRITE (NOUT,5011) N,XK1,XK2,XM,XB 5011 FORMAT (21X,I8,1P,4E8.1) N1 = N + 1 NM1 = N - 1 C C G2 C IFIL = 2 ASSIGN 5100 TO R GO TO 9100 5100 IF (XB .EQ. 0.0) GO TO 5140 C C CDAMP4 C IC = 7 ASSIGN 5110 TO R GO TO 9200 5110 QK(2) = XB K(4) = 0 DO 5120 I = 2,N K(1) = I + 2000000 K(3) = I 5120 CALL WRITE (FILE,K,4,0) ASSIGN 5140 TO R1 GO TO 9650 C C CELAS4 C 5140 IC = 1 ASSIGN 5160 TO R GO TO 9200 5160 QK(2) = XK1 DO 5170 I = 1,N K(1) = I K(3) = I K(4) = I + 1 IF (I .EQ. 1) K(3) = 0 IF (I .EQ. N) K(4) = 0 5170 CALL WRITE (FILE,K,4,0) IF (XK2 .NE. 0.0) GO TO 5190 5175 ASSIGN 5210 TO R1 GO TO 9650 C 5190 QK(2) = XK2 K(4) = 0 DO 5200 I = 2,N K(1) = I + 3000000 K(3) = I 5200 CALL WRITE (FILE,K,4,0) GO TO 5175 C 5210 IF (XM .EQ. 0.0) GO TO 5260 C C CMASS4 C IC = 2 ASSIGN 5220 TO R GO TO 9200 5220 QK(2) = XM K(4) = 0 DO 5230 I = 2,N K(1) = I + 1000000 K(3) = I 5230 CALL WRITE (FILE,K,4,0) ASSIGN 5260 TO R1 GO TO 9650 5260 IF (MODCOM(1) .NE. 0) GO TO 5750 IF (N .LE. 2) GO TO 5750 IF (N.EQ.3 .AND. XM.EQ.0.0 .AND. XB.EQ.0.0 .AND. XK2.EQ.0.0) 1 GO TO 5750 C C CNGRNT C IC = 15 ASSIGN 5300 TO R GO TO 9200 5300 IF (N .EQ. 3) GO TO 5400 DO 5320 I = 2,NM1 K(1) = I 5320 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) 5400 IF (XM .EQ. 0.0) GO TO 5500 DO 5420 I = 2,N K(1) = I + 1000000 5420 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) 5500 IF (XB .EQ. 0.0) GO TO 5600 DO 5520 I = 2,N K(1) = I + 2000000 5520 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) 5600 IF (XK2 .EQ. 0.0) GO TO 5700 DO 5620 I = 2,N K(1) = I + 3000000 5620 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) 5700 ASSIGN 5900 TO R1 GO TO 9600 5750 ASSIGN 5900 TO R GO TO 9500 5900 RETURN C C C PARAMA = 6 N-CELL BAR C C INPUT, ,,,,/G1,G2,,G4,/C,N,6 $ C INPUT GEOM1,GEOM2,,GEOM4,/G1,G2,,G4,/C,N,6 $ C C 6000 READ (NIN,6010) N,XL,IP,IFLG,IG0,M,IOX 6010 FORMAT (I8,E8.0,5I8) CALL PAGE2 (-1) WRITE (NOUT,6011) N,XL,IP,IFLG,IG0,M,IOX 6011 FORMAT (21X,I8,1P,E8.1,5I8) N1 = N + 1 C C G1 C IFIL = 1 ASSIGN 6100 TO R GO TO 9100 C C GRID C 6100 IC = 5 ASSIGN 6200 TO R GO TO 9200 6200 K(2) = 0 QK(4) = 0.0 QK(5) = 0.0 K(6) = 0 K(8) = 0 II = 0 DO 6300 I = 1,N1 II = II + 1 K(1) = I QK(3) = XL*FLOAT(I-1)/FLOAT(N) IF (I.EQ.1 .OR. II.GT.IOX) GO TO 6280 K(7) = 0 GO TO 6300 6280 K(7) = IP II = 0 6300 CALL WRITE (FILE,K,8,0) ASSIGN 6600 TO R1 GO TO 9600 C C G2 C 6600 IFIL = 2 ASSIGN 6610 TO R GO TO 9100 C C CBAR C 6610 IC = 6 ASSIGN 6620 TO R GO TO 9200 6620 K(2) = 101 K(8) = IFLG K(5) = IG0 K(6) = 0 K(7) = 0 IF (IFLG .EQ. 2) GO TO 6635 READ (NIN,6630) X1,X2,X3 6630 FORMAT (3E8.0) CALL PAGE2 (-1) WRITE (NOUT,6631) X1,X2,X3 6631 FORMAT (21X,1P,3E8.1) QK(5) = X1 QK(6) = X2 QK(7) = X3 GO TO 6640 6635 GO TO 9907 6640 DO 6645 I = 9,16 6645 K(I) = 0 DO 6650 I = 1,N K(1) = I K(3) = I K(4) = I + 1 6650 CALL WRITE (FILE,K,16,0) IF (M.LE.0 .OR. M.GT.N-1) GO TO 6670 K(2) = 102 K(3) = 2 DO 6660 I = 1,M K(1) = N + I K(4) = N - I + 2 6660 CALL WRITE (FILE,K,16,0) 6670 ASSIGN 6680 TO R1 GO TO 9650 6680 IF (MODCOM(1) .NE. 0) GO TO 6694 C C CNGRNT C IC = 15 ASSIGN 6685 TO R GO TO 9200 6685 DO 6690 I = 1,N K(1) = I 6690 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) ASSIGN 6695 TO R1 GO TO 9600 6694 ASSIGN 6695 TO R GO TO 9500 6695 IF (IOX .EQ. 0) RETURN C C G4 C IFIL = 4 ASSIGN 6700 TO R GO TO 9100 C C OMIT C 6700 IC = 14 ASSIGN 6710 TO R GO TO 9200 6710 DO 6712 I = 2,12,2 6712 K(I) = I/2 II = 0 DO 6720 I = 2,N II = II + 1 IF (II .GT. IOX) GO TO 6716 K(1) = I DO 6714 L = 3,11,2 6714 K(L) = K(1) CALL WRITE (FILE,K,12,0) GO TO 6720 6716 II = 0 6720 CONTINUE ASSIGN 6730 TO R1 GO TO 9600 6730 RETURN C C C PARAMA = 7 FULL MATRIX AND OPTIONAL UNIT LOAD C C INPUT, ,,,,/,G2,G3,,G5/C,N,7 $ C INPUT, ,GEOM2,GEOM3,,/,G2,G3,,G5/C,N,7 $ C C 7000 READ (NIN,7001) N,NSLOAD 7001 FORMAT (2I8) CALL PAGE2 (-1) WRITE (NOUT,7002) N,NSLOAD 7002 FORMAT (21X,2I8) N1 = N + 1 C C G2 C IFIL = 2 ASSIGN 7010 TO R GO TO 9100 C C CELAS4 C 7010 IC = 1 ASSIGN 7011 TO R GO TO 9200 7011 QK(2) = 1.0 II = 0 DO 7020 I = 1,N IF (I .GT. 1) II = II + N1 - I DO 7020 J = I,N K(1) = II + J K(3) = I K(4) = J IF (I .EQ. J) K(4) = 0 7020 CALL WRITE (FILE,K,4,0) ASSIGN 7030 TO R1 GO TO 9650 7030 IF (MODCOM(1) .NE. 0) GO TO 7036 C C DO NOT GENERATE CNGRNT DATA FOR N LESS THAN 3. C IF (N .LT. 3) GO TO 7036 C C CNGRNT C IC = 15 ASSIGN 7032 TO R GO TO 9200 7032 II = 0 DO 7033 I = 1,N IF (I .GT. 1) II = II + N1 - I K(1) = II + I 7033 CALL WRITE (FILE,K,1,0) K(1) = -1 CALL WRITE (FILE,K,1,0) II = 0 DO 7035 I = 1,N IF (I .GT. 1) II = II + N1 - I DO 7034 J = I,N IF (J .EQ. I) GO TO 7034 K(1) = II + J CALL WRITE (FILE,K,1,0) 7034 CONTINUE 7035 CONTINUE K(1) = -1 CALL WRITE (FILE,K,1,0) ASSIGN 7037 TO R1 GO TO 9600 7036 ASSIGN 7037 TO R GO TO 9500 7037 IF (NSLOAD .EQ. 0) GO TO 7070 C C G3 C IFIL = 3 ASSIGN 7040 TO R GO TO 9100 C C SLOAD C 7040 IC = 11 ASSIGN 7050 TO R GO TO 9200 7050 K(1) = N QK(3) = 1.0 DO 7060 I = 1,N K(2) = I 7060 CALL WRITE (FILE,K,3,0) ASSIGN 7070 TO R1 GO TO 9600 C C G5 C 7070 IFIL = 5 ASSIGN 7080 TO R GO TO 9100 C C SPOINT C 7080 IC = 12 ASSIGN 7090 TO R GO TO 9200 7090 DO 7100 I = 1,N 7100 CALL WRITE (FILE,I,1,0) ASSIGN 7110 TO R1 GO TO 9600 7110 NE = N*N1/2 CALL PAGE2 (-2) WRITE (NOUT,7201) N,NE 7201 FORMAT ('0*INPUT* FULL MATRIX OF ORDER',I9,' GENERATED WITH', 1 I9,' ELEMENTS') IF (NSLOAD .EQ. 0) GO TO 7203 CALL PAGE2 (-2) WRITE (NOUT,7202) N 7202 FORMAT ('0*INPUT* LOAD SET',I9,' GENERATED') 7203 RETURN C C C PARAMA = 8 N-SPOKE WHEEL C C INPUT, ,,,,/G1,G2,,,/C,N,8 $ C INPUT GEOM1,GEOM2,,,/G1,G2,,,/C,N,8 $ C C 8000 READ (NIN,8010) N,XL,IP,IFLG,IG0,ICEN 8010 FORMAT (I8,E8.0,4I8) CALL PAGE2 (-1) WRITE (NOUT,8011) N,XL,IP,IFLG,IG0,ICEN 8011 FORMAT (21X,I8,1P,E8.1,4I8) N1 = N + 1 C C G1 C IFIL = 1 ASSIGN 8100 TO R GO TO 9100 8100 CONTINUE C C LOCATE AND COPY CORD2C CARD FROM THE FIRST INPUT FILE C IBUF = (IFIL+4)*NBUF + 1 CALL PRELOC (*9908,X(IBUF),FILIN(IFIL)) CALL LOCATE (*9909,X(IBUF),CORD2C,QK(3)) CALL READ (*9908,*8120,FILIN(IFIL),QK(4),13,0,IFLAG) CALL CLOSE (FILIN(IFIL),1) INOPEN(IFIL) = .FALSE. 8120 CONTINUE IC = 17 ASSIGN 8200 TO R GO TO 9200 8200 CONTINUE CALL WRITE (FILE,QK(4),13,0) ASSIGN 8250 TO R1 GO TO 9650 C C GRID C 8250 CONTINUE IC = 5 ASSIGN 8260 TO R GO TO 9200 8260 CONTINUE K(2) = 2 C QK(2) = QK(5) THIS WILL ASSIGN REFERENCE NUMBER ON CORD2C CARD C TO THE GRID POINTS C IF (N.GT.0 .AND. N.LT.256) GO TO 8050 CALL PAGE2 (-2) WRITE (NOUT,8030) UWM 8030 FORMAT (A25,' 2369, WHEEL MUST HAVE FEWER THAN 256 SPOKES. ', 1 'INPUT MODULE RESETTING TO 255') N = 255 8050 N1 = N + 1 QK(3) = XL QK(5) = 0.0 K(6) = 2 K(8) = 0 K(7) = IP DO 8300 I = 1,N K(1) = I QK(4) = 360.0/FLOAT(N)*FLOAT(I-1) 8300 CALL WRITE (FILE,K,8,0) K(1) = N1 K(2) = 0 QK(3) = 0.0 QK(4) = 0.0 K(6) = 0 IF (ICEN .NE. 0) K(7) = ICEN CALL WRITE (FILE,K,8,0) ASSIGN 8600 TO R1 GO TO 9600 C C G2 C 8600 IFIL = 2 ASSIGN 8610 TO R GO TO 9100 C C CBAR C 8610 IC = 6 ASSIGN 8620 TO R GO TO 9200 8620 K(2) = 101 K(8) = IFLG K(5) = IG0 K(6) = 0 K(7) = 0 IF (IFLG .EQ. 2) GO TO 8635 READ (NIN,8630) X1,X2,X3 8630 FORMAT (3E8.0) CALL PAGE2 (-1) WRITE (NOUT,8631) X1,X2,X3 8631 FORMAT (21X,1P,3E8.1) QK(5) = X1 QK(6) = X2 QK(7) = X3 GO TO 8640 8635 GO TO 9907 8640 DO 8645 I = 9,16 8645 K(I) = 0 DO 8650 I = 1,N K(1) = I K(3) = I K(4) = I + 1 IF (K(4) .EQ. N1) K(4) = 1 8650 CALL WRITE (FILE,K,16,0) K(4) = N1 DO 8655 I = 1,N K(1) = N + I K(3) = I 8655 CALL WRITE (FILE,K,16,0) ASSIGN 8950 TO R1 GO TO 9650 8950 ASSIGN 8900 TO R GO TO 9500 8900 RETURN C C C UTILITY I/O ROUTINES C C 9100 FILE = FILOUT(IFIL) IBUF = (IFIL-1)*NBUF + 1 CALL GOPEN (FILE,X(IBUF),1) T(1) = FILE DO 9110 J = 2,7 9110 T(J) = 0 FIL = FILIN(IFIL) IBUF = (IFIL+4)*NBUF + 1 IF (PARAMA - 8) 9115,9190,9115 9115 CONTINUE CALL OPEN (*9130,FIL,X(IBUF),0) INOPEN(IFIL) = .TRUE. T(1) = FIL CALL RDTRL (T) T(1) = FILE CALL SKPREC (FIL,1) CALL FREAD (FIL,HFIL(1,IFIL),3,0) DO 9120 J = 1,3 IF (HFIL(J,IFIL) .NE. EEE(J)) GO TO 9190 9120 CONTINUE GO TO 9904 9130 INOPEN(IFIL) = .FALSE. 9190 GO TO R, (1181,1211,2010,2410,3030,3080,5100,6100,6610,6700, 1 7010,7040,7080,8100,8610) C C 9200 IF (INOPEN(IFIL)) GO TO 9230 9210 CALL WRITE (FILE,KL(IC),1,0) CALL WRITE (FILE,16*(I1T(IC)-2)+J1T(IC),1,0) CALL WRITE (FILE,KNO(IC),1,0) GO TO R, (1182,1213,1218,1245,2015,2060,2420,2610,2710,3040, 1 3062,3072,3081,4200,4600,5110,5160,5220,5300,6200, 2 6620,6685,6710,7011,7032,7050,7090,8200,8620,8260) 9230 KNOIC = KNO(IC) KSRT = KDSORT(KNOIC) 9235 KNOX = HFIL(3,IFIL) KSRTX = KDSORT(KNOX) IF (KSRT .LT. KSRTX) GO TO 9210 IF (KSRT .EQ. KSRTX) GO TO 9906 CALL WRITE (FILE,HFIL(1,IFIL),3,0) 9240 CALL READ (*9902,*9250,FIL,X(KOR),NKOR,0,RDFLG) CALL WRITE (FILE,X(KOR),NKOR,0) GO TO 9240 9250 CALL WRITE (FILE,X(KOR),RDFLG,1) CALL FREAD (FIL,HFIL(1,IFIL),3,0) DO 9260 J = 1,3 IF (HFIL(J,IFIL) .NE. EEE(J)) GO TO 9235 9260 CONTINUE INOPEN(IFIL) = .FALSE. CALL CLOSE (FIL,1) GO TO 9210 C 9400 KTT = KT(IC) I1TT = I1T(IC) J1TT = J1T(IC) + 16 T(I1TT) = ORF(T(I1TT),TWO(J1TT)) IF (KTT .EQ. 1) GO TO 9450 I2TT = I2T(IC) J2TT = J2T(IC) + 16 T(I2TT) = ORF(T(I2TT),TWO(J2TT)) 9450 GO TO R, (9620,9670) C C 9500 IF (INOPEN(IFIL)) GO TO 9520 CALL WRITE (FILE,EEE,3,1) GO TO 9510 9505 CALL CLOSE (FIL,1) INOPEN(IFIL) = .FALSE. 9510 CALL WRTTRL (T) CALL CLOSE (FILE,1) GO TO R, (1290,2400,2690,3020,3070,3090,5900,6695,7037,8900, 1 9630) 9520 CALL WRITE (FILE,HFIL(1,IFIL),3,0) 9525 CALL READ (*9505,*9530,FIL,X(KOR),NKOR,0,RDFLG) CALL WRITE (FILE,X(KOR),NKOR,0) GO TO 9525 9530 CALL WRITE (FILE,X(KOR),RDFLG,1) GO TO 9525 C 9600 CALL WRITE (FILE,0,0,1) ASSIGN 9620 TO R GO TO 9400 9620 ASSIGN 9630 TO R GO TO 9500 9630 GO TO R1, (1190,1290,2690,3070,5900,6600,6695,6730,7037,7070, 1 7110,8600,8900) C 9650 CALL WRITE (FILE,0,0,1) ASSIGN 9670 TO R GO TO 9400 9670 GO TO R1, (1216,1240,2050,2290,2600,3061,3088,3089,4550,5140, 1 5210,5260,6680,7030,8250,8950) C C DIAGNOSTIC PROCESSING C 9900 CALL MESAGE (M,FILE,MNAM) 9902 M = -2 GO TO 9900 9904 WRITE (NOUT,9954) SFM 9954 FORMAT (A25,' 1742, NO DATA PRESENT') GO TO 9999 9906 WRITE (NOUT,9956) UFM,KDN(1,IC),KDN(2,IC) 9956 FORMAT (A23,' 1744, DATA CARD(S) -',2A4,'- GENERATED BY UTILITY', 1 ' MODULE INPUT NOT ALLOWED TO APPEAR IN BULK DATA') GO TO 9999 9907 WRITE (NOUT,9957) UFM 9957 FORMAT (A23,' 1745, UTILITY MODULE CANNOT HANDLE THE IFLG=2 CASE', 1 ' SINCE THERE IS NO WAY TO GENERATE GRID POINT G0') GO TO 9999 9908 M = -1 GO TO 9900 9909 WRITE (NOUT,9959) UFM 9959 FORMAT (A23,' 1746, COORDINATE SYSTEM NOT DEFINED ON A CORD2C', 1 ' CARD') C 9999 M = -61 CALL PAGE2 (-2) GO TO 9900 C END ================================================ FILE: mis/input4.f ================================================ SUBROUTINE INPUT4 (NMAT,UNITX,TAPE,BCDOPT) C C THIS SUBROUTINE IS CALLED ONLY BY INPTT4. IT READS USER-SUPPLIED C TAPE (OR DISC FILE), AS GENERATED BY COSMIC or MSC/OUTPUT4 MODULE, C AND CREATES THE CORRESPONDING MATRIX DATA BLOCKS. C C INPUTT4 MODULE DOES NOT HANDLE TABLE DATA BLOCKS. C C DUE TO INSUFFICEINT DOCUMENTATION IN MSC USER MANUAL, THIS INPUT4 C MAY NOT WORK WITH BCD/ASCII DATA AS GENERATED BY MSC/OUTPUT4 C C MATRICES CAN BE IN S.P. OR D.P.; DENSE OR SPARSE. C NO MATRIX CONVERSION IN THIS ROUTINE C i.e. TYPE OF MATRIX OUT = TYPE OF MATRIX IN C C DEFINITION OF DENSE AND SPARSE MATRICES IN THIS SUBROUTINE - C DENSE MATRIX IS PROCESSED FROM FIRST TO LAST NONZERO TERMS OF C COLUMNS, AND SPARSE MATRIX IS PROCESSED BY STRINGS. C C WRITTEN BY G.CHAN/UNISYS JUNE 1989 C LAST REVISION WITH MAJOR CHANGES MARCH 1993 C C NMAT = NUMBER OF MATRICES (5 MAX) WRITTEN ON USER'S TAPE C UNITX = INPUT TAPE LOGICAL UNIT*, INTEGER, NO DEFAULT C TAPE = TAPE READ CONTROL C = 0 NO ADDITIONAL ACTION BEFORE READ C =-1 REWIND UNITX BEFORE READ C =-2 REWIND UNITX AT END C =-3 BOTH C BCDOPT = 1 INPUT TAPE IN BINARY FORMAT C = 2 INPUT TAPE IN ASCII FORMAT C IF INPUT MATRIX IS IN S.P., I13 IS USED FOR INTEGER, C AND 10E13.6 FOR S.P.REAL DATA C IF INPUT MATRIX IS IN D.P., I16 IS USED FOR INTEGER, C AND 8D16.9 FOR D.P.REAL DATA C = 3 SAME AS BCDOPT=2, EXECPT THAT I16 AND 8E16.9 ARE USED C FOR INTEGERS AND S.P.REAL DATA. (BCDOPT=3 IS USED ONLY C IN MACHINES WITH LONG WORDS (60 OR MORE BITS PER WORD) C NOTE- MATRIX HEADER RECORD IS NOT AFFECTED BY ABOVE FORMAT C CHANGES. IT IS WRITTEN OUT BY (1X,4I13,5X,2A4) C P4 =-4,-2,-1,0,.GE.1, SEE P4 IN INPTT4 C C OUTFIL = UP TO 5 OUTPUT GINO DATA BLOCKS (MATRIX ONLY) C IF ANY OF THE OUTPUT DB IS PURGED, THE CORRESPONDING C MATRIX ON INPUT TAPE WILL BE SKIPPED. C C * LOGICAL UNIT vs. GINO FILE NAME C ------ ---------------------- C 11 UT1 (CDC ONLY) C 12 UT2 (CDC ONLY C 14 INPT (VAX,UNIVAC) C 15 INP1 (VAX,UNIVAC,IBM) C 16 INP2 : C 17 INP3 : C : : : C 23 INP9 : C 24 INPT (IBM ONLY) C C C EACH MATRIX WAS WRITTEN AS FOLLOWS (IN BINARY OR ASCII), 4 INTEGER C WORDS + FILE NAME C 1) NO. OF COLUMNS C 2) NO. OF ROWS C 3) FORM (NASTRAN 1 TO 8) C 4) TYPE (NASTRAN 1 TO 4) C 5,6) FILE NAME (BCD) C C A RECORD WAS WRITTEN FOR EACH NON-ZERO COLUMN C A) DENSE MATRIX: C 1) COLUMN NO. C 2) ROW POSITION OF FIRST NON-ZERO ELEMENT C 3) NO. OF WORDS IN THIS COLUMN, ZEROS INCLUDED, FROM C THE FIRST TO LAST NON-ZERO TERMS. C 4) DATA VALUES FOR THIS COLUMN (REAL) C B) SPARSE MATRIX: C 1) COLUMN NO. C 2) ZERO (THIS ZERO IS THE SPARSE MATRIX FLAG) C 3) NO. OF WORDS IN THIS COLUMN C 4) DATA OF ONE OR MORE STRINGS. C C C EXAMPLE 1 - INPUT TAPE INP1 (UNIT 15) CONTAINS 5 MATRICES, C ========= WRITTEN BY COSMIC/OUTPUT4, BINARY. C WE WANT TO COPY C FILE 3 TO A, C FILE 4 TO B C C INPUTT4 /,,A,B,/-1/15 $ REWIND, READ & ECHO HEADER RECORD C C C EXAMPLE 2 - TO COPY THE FIRST 2 FILES OF A UNFORMATTED TAPE INP2 C ========= (UNIT 16), WRITTEN BY MSC/OUTPUT4, DENSE MATRIX C C INPUTT4 /A,B,,,/-3/16//-4 $ C C EXAMPLE 3 - TO COPY THE FIRST 2 FILES OF A FORMATTED ASCII TAPE C ========= INPT (UNIT 14), WRITTEN BY COSMIC/OUTPUT4, SPARSE C MATRIX C C INPUTT4 /A,B,,,/-3/-14//1 $ C C EXAMPLE 4 - SEE DEMO PROBLEM T00001A TO INPUT VARIOUS DATA BLOCKS C ========= (SQUARE, RECTANGULAR, ROW-VECTOR, 'COLUMN' VECOR, C DIAGONAL, IDENTITY, SYMMETRIC) INTO NASTRAN SYSTEM C USING MSC, ASCII FORMAT FILES. C C A NOTE FOR FUTURE IMPROVEMENT, G.CHAN 4/93 - C IF INPUT MATRIX IS SYMMETRIC, MAKE AN OPTION TO INPUT ONLY THE C LOWER TRIANGULAR PORTION OF THE MATRIX, AND OBTAIN THE UPPER C PROTION THRU SYMMETRY. C C IMPLICIT INTEGER (A-Z) CWKBR LOGICAL BO,SP,CP,DP,MS,TAPEUP,TAPBIT,DEBUG LOGICAL BO,SP,CP,DP,MS,DEBUG INTEGER OUTFIL(5),TRL(7),NAME(2),SUBNAM(2),IZ(1), 1 SKIP(2),INAME(2,5),ONAME(2,5),TYP(5),T(2,5),TY(4) REAL Z(1),DR(2),D,ZERO(4) DOUBLE PRECISION DZ(1),DD CHARACTER*11 FMD,UNF,FM CWKBI CHARACTER*80 DSNAMES CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM CWKBI COMMON / DSNAME / DSNAMES(80) COMMON /MACHIN/ MACH 1 /PACKX / TYPIN,TYPOUT,II,JJ,INCR 2 /SYSTEM/ SYSBUF,NOUT,NOGO,DUM36(36),NBPW 3 /TYPE / PREC(2),NWDS(4) 4 /ZZZZZZ/ CORE(1) COMMON /BLANK / P1,P2,P3(2),P4 EQUIVALENCE (IZ(1),Z(1),DZ(1),CORE(1)), (DR(1),D,DD) DATA OUTFIL/ 201,202,203,204,205 /, SKIP/4H(SKI,4HP) / DATA INAME , ONAME ,TYP / 25*4H / ,SUBNAM/4HINPT,2HT4 / DATA TY / 4HRSP ,4HRDP ,4HCSP ,4HCDP /, ZERO/4*0.0 / DATA FMD , UNF / 'FORMATTED ','UNFORMATTED' /BLNK / 4H / DATA DEBUG / .FALSE. / CWKBI DATA IFIRST / 0 / C SP = .FALSE. CP = .FALSE. DP = .FALSE. MS = P4.EQ.-4 BO = BCDOPT.NE.1 LCORE = KORSZ(Z(1)) BUF1 = LCORE - SYSBUF LCOR = BUF1 - 1 IF (LCOR .LE. 0) CALL MESAGE (-8,LCORE,SUBNAM) IF (UNITX.LT.10 .OR. UNITX.GT.24) GO TO 30 IF (UNITX .EQ. 13) GO TO 30 IF (MACH.EQ.4 .AND. UNITX.GE.13) GO TO 30 IF (MACH.NE.4 .AND. UNITX.LE.13) GO TO 30 C FM = UNF IF (BO) FM = FMD CWKBR WRITE (NOUT,10) UIM,UNITX,INP(UNITX-10),FM WRITE (NOUT,10) UIM,UNITX,DSNAMES(UNITX),FM C 1, BCDOPT,P1,P2,P3,P4 CWKBR10 FORMAT (A29,'. INPUTT4 MODULE OPENING FORTRAN TAPE',I4,' (',A4, 10 FORMAT (A29,'. INPUTT4 MODULE OPENING FORTRAN TAPE',I4,/,' (', 1 A44,')',/, 1 ' FOR ',A11,' READ.') C 2, /5X,'BCDOPT,P1,P2,P3,P4 =',3I3,1X,2A4,I4) C CWKBR IF (MACH .GE. 5) GO TO 50 CWKBI CLOSE ( UNIT=UNITX ) CWKBR OPEN (UNIT=UNITX,ACCESS='SEQUENTIAL',STATUS='OLD',FORM=FM,ERR=920) OPEN (UNIT=UNITX,ACCESS='SEQUENTIAL',STATUS='OLD',FORM=FM,ERR=920, CWKBI & FILE=DSNAMES(UNITX) ) GO TO 50 CWKBD FILE = INP(UNITX-10) CWKBD TAPEUP = TAPBIT(FILE) CWKBD IF (TAPEUP) GO TO 50 CWKBD WRITE (NOUT,20) UFM,FILE,UNITX CWKBD 20 FORMAT (A23,'. ',A4,' (TAPE UNIT',I4,') NOT ASSIGNED') CWKBD GO TO 990 C 30 WRITE (NOUT,40) UFM,UNITX 40 FORMAT (A23,', TAPE UNIT',I4,' SPEC. ERROR') GO TO 990 C 50 IF (TAPE.EQ.-1 .OR. TAPE.EQ.-3) REWIND UNITX CWKBI IFIRST = 1 C C SET UP LOOP TO READ MATRIX FILES C INCR = 1 II = 1 DO 800 NN = 1,NMAT C C CHECK OUTPUT FILE REQUEST C OUTPUT = OUTFIL(NN) TRL(1) = OUTPUT CALL RDTRL (TRL) IF (TRL(1) .GT. 0) GO TO 200 C C IF OUTPUT FILE IS PURGED, PURGE THE CORRESPONDING FILE ON INPUT C TAPE. CHECK IF THERE ARE MORE OUTPUT DATA BLOCK REQUESTED ON THE C SAME OUTPUT2 DMAP. QUIT IF THERE ARE NONE C I = NN 100 I = I + 1 IF (I .GT. 5) GO TO 810 TRL(1) = OUTFIL(I) CALL RDTRL (TRL) IF (TRL(1) .LE. 0) GO TO 100 C C SKIP PRESENT MATRIX DATA BLOCK ON INPUT TAPE C IMHERE = 120 IF (BO) GO TO 120 C C SKIP BINARY FILES C IMHERE = 105 READ (UNITX,ERR=960,END=940) NCOL,J1,J2,NTYPE,NAME IMHERE = -110 110 READ (UNITX,ERR=780,END=940) ICOL IF (ICOL-NCOL) 110,110,170 C C SKIP ASCII FILES C 120 IF (.NOT.MS) READ (UNITX,220,ERR=960,END=940) NCOL,J1,J2,NTYPE, 1 NAME IF (MS) READ (UNITX,230,ERR=960,END=940) NCOL,J1,J2,NTYPE,NAME IF (MS) GO TO 130 DP = NTYPE.EQ.2 .OR. NTYPE.EQ.4 SP = .NOT.DP CP = P4.GE.1 .AND. NBPW.GE.60 IF (.NOT.CP) GO TO 130 SP = .FALSE. DP = .FALSE. 130 IF (MS) READ (UNITX,440) ICOL,IROW,NW IF (SP) READ (UNITX,450) ICOL,IROW,NW IF (CP .OR. DP) READ (UNITX,460) ICOL,IROW,NW IF (ICOL .GT. NCOL) GO TO 160 IF (IROW .EQ. 0) NW = NW/65536 C C COMPUTE NO. OF RECORDS TO SKIP. C C S.P. DATA ARE WRITTEN IN 10 VALUES PER RECORD (5 FOR MSC RECORD) C D.P. DATA, AND DATA FROM LONG WORD MACHINE, ARE IN 8 VALUES PER C RECORD (SEE FORMAT 650, 660, 670 AND 680) C IF (MS) NW = (NW+4)/5 IF (SP) NW = (NW+9)/10 IF (CP .OR. DP) NW = (NW+7)/8 DO 150 J = 1,NW READ (UNITX,140) K 140 FORMAT (A1) 150 CONTINUE GO TO 130 C 160 READ (UNITX,140) J C 170 INAME(1,NN) = NAME(1) INAME(2,NN) = NAME(2) ONAME(1,NN) = SKIP(1) ONAME(2,NN) = SKIP(2) TYP(NN) = TY(NTYPE) T(1,NN) = J1 T(2,NN) = J2 GO TO 800 C C TRANSFER DATA FROM INPUT TAPE TO OUTPUT FILE C 200 IMHERE = 210 IF (BO) GO TO 210 IMHERE = 200 READ (UNITX,ERR=960,END=940) NCOL,NROW,NFORM,NTYPE,NAME GO TO 240 210 IF (.NOT.MS) READ (UNITX,220,ERR=960,END=940) NCOL,NROW,NFORM, 1 NTYPE,NAME IF (MS) READ (UNITX,230,ERR=960,END=940) NCOL,NROW,NFORM,NTYPE, 1 NAME 220 FORMAT (1X,4I13,5X,2A4) 230 FORMAT (4I8,2A4) C 240 IF (DEBUG) WRITE (NOUT,220) NCOL,NROW,NFORM,NTYPE,NAME IF (.NOT.DEBUG) WRITE (NOUT,245) NN,NAME 245 FORMAT (5X,'READING DATA BLOCK NO.',I4,' - ',2A4, 1 ' FROM INPUT TAPE') C IF (MS) NFORM = -NFORM IF (BO .AND. NFORM.GT.0) GO TO 900 C C THE ABOVE CHECK ON NFORM AND BO MAY BE ALREADY TOO LATE C IF (MS) GO TO 250 DP = .FALSE. IF (NTYPE.EQ.2 .OR. NTYPE.EQ.4) DP = .TRUE. SP = .NOT.DP CP = P4.GE.1 .AND. NBPW.GE.60 IF (CP) SP = .FALSE. IF (CP) DP = .FALSE. 250 FLAG = 0 IF (MS) FLAG = 1 IF (SP) FLAG = 2 IF (CP) FLAG = 3 IF (DP) FLAG = 4 IF (FLAG .EQ. 0) CALL MESAGE (-37,0,SUBNAM) NFORM = IABS(NFORM) JJ = NROW TYPIN = NTYPE IF (MS .AND. (TYPIN.EQ.2 .OR. TYPIN.EQ.4)) TYPIN = TYPIN - 1 TYPOUT = NTYPE NWORDS = NWDS(TYPIN) BASE = NROW*NWORDS IF (BASE .GT. LCOR) CALL MESAGE (-8,LCORE,SUBNAM) CALL MAKMCB (TRL(1),OUTPUT,NROW,NFORM,TYPOUT) INAME(1,NN) = NAME(1) INAME(2,NN) = NAME(2) CALL FNAME (OUTPUT,NAME) CALL OPEN (*260,OUTPUT,IZ(BUF1),1) CALL WRITE (OUTPUT,NAME,2,1) ONAME(1,NN) = NAME(1) ONAME(2,NN) = NAME(2) TYP(NN) = TY(NTYPE) T(1,NN) = NCOL T(2,NN) = NROW GO TO 280 C 260 WRITE (NOUT,270) UFM,DSNAMES(UNITX) 270 FORMAT (A23,'. CANNOT OPEN OUTPUT FILE - ',/,A80) GO TO 990 C C PROCESS EACH COLUMN (NON-ZERO OR NULL COLUMN ON FILE) C PLUS ONE EXTRA COLUMN, NCOL+1, AT THE END C 280 IOLD = -1 II = 1 JJ = NROW NCOL1 = NCOL + 1 I = 0 C 290 I = I + 1 IF (DEBUG) WRITE (NOUT,300) I,NCOL1 300 FORMAT (' INPUT4/@290 I,NCOL1 =',2I5) IF (I .GT. NCOL1) GO TO 760 DO 310 J = 1,BASE 310 Z(J) = 0.0 IMHERE = -400 IF (BO) GO TO 400 C C BINARY (UNFORMATTED) READ C ------------------------- C IMHERE = -315 READ (UNITX,ERR=780,END=940) ICOL,IROW,NW,(Z(K+BASE),K=1,NW) C IF (ICOL .GT. NCOL) GO TO 760 IF (NW+BASE .GT. LCOR) CALL MESAGE (-8,LCORE,SUBNAM) 320 IF (I .GE. ICOL) GO TO 330 C C NULL COLUMN(S) ENCOUNTERED C JJ = 1 CALL PACK (Z(1),OUTPUT,TRL) JJ = NROW I = I + 1 GO TO 320 C 330 IF (IROW .EQ. 0) GO TO 360 C C DENSE MATRIX FORMAT C C DATA WERE WRITTEN FROM FIRST NON-ZERO TERM TO LAST NON-ZERO TERM C INCLUDING POSSIBLE ZERO TERMS. C IROW IS THE FIRST NON-ZERO TERM ROW POSITION C C S.P. OR D.P. MATRIX IN, S.P. OR. D.P. MATRIX OUT. THAT INCLUDE C REAL AND COMPLEX. C IROWP = (IROW-1)*NWORDS DO 340 J = 1,NW 340 Z(J+IROWP) = Z(J+BASE) C C PACK ONE COLUMN OUT C 350 CALL PACK (Z(1),OUTPUT,TRL) GO TO 290 C C SPARSE INCOMING MATRIX. C THIS RECORD CONATINS ONE OR MORE STRINGS. C C DATA ARE WRITTEN IN MULTIPLE STRINGS OF NON-ZERO TERMS. EACH C STRING IS PRECEED BY A CONTROL WORD C LN = LENGTH OF STRING, LEFT HALF OF WORD C IROW = ROW POSITION, RIGHT HALF OF WORD C LN AND IROW ARE DATA TYPE DEPENDENT C AND C K = A RUNNING POINTER, POINTS TO THE CONTROL WORD OF EACH C STRING IN ARRAY Z HOLDING LN AND IROW INFORMATION C 360 K = 1 370 KPB = K + BASE LN = IZ(KPB)/65536 IROW = IZ(KPB) - LN*65536 IROW = (IROW-1)*NWORDS LN = LN*NWORDS C C S.P. OR D.P. MATRIX IN, S.P. OR. D.P. MATRIX OUT. THAT INCLUDE C REAL AND COMPLEX C DO 380 J = 1,LN 380 Z(J+IROW) = Z(J+KPB) K = K + LN + 1 IF (K-NW) 370,350,350 C C ASCII (FORMATTED) READ C ---------------------- C C THIS ASCII OPTION WORKS WELL WITH INPUT TAPE GENERATED FROM C COSMIC/OUTPUT4 MODULE. HOWEVER IT MAY OR MAY NOT WORK WITH INPUT C TAPE FROM MSC/OUTPUT4. C C ASSUMPTIONS HERE FOR MSC/OUTPUT4 TAPE ARE - C 1. INTEGER RECORDS AND FLOATING POINT RECORDS DO NOT MIXED C 2. ONE OR MORE RECORDS HOLD A MATRIX COLUMN, EACH RECORD IS LESS C THAN 80 BYTES LONG. C INTEGER IN 3I8, BCD IN 2A4, AND S.P. REAL DATA IN 5E16.9 C 400 GO TO (410,420,430,430), FLAG 410 READ (UNITX,440,ERR=780,END=940) ICOL,IROW,NW IF (DEBUG) WRITE (NOUT,450) ICOL,IROW,NW GO TO 470 420 READ (UNITX,450,ERR=780,END=940) ICOL,IROW,NW GO TO 470 430 READ (UNITX,460,ERR=780,END=940) ICOL,IROW,NW 440 FORMAT (3I8) 450 FORMAT (1X,3I13) 460 FORMAT (1X,3I16) C C ICOL IS MATRIX COLUMN NUMBER READ IN FROM THE INPUT TAPE. C REPEATED ICOL FOR MULTIPLE STRINGS. C IROW IS .LT. 0, AND IABS(IROW) IS THE ROW POSITION OF STRING. C NW IS LENGTH OF STRING. C I IS THE CURRENT COLUMN NUMBER OF THE OUTPUT MATRIX. C C POSSIBILITIES AT THIS POINT ARE - C C 1. ICOL = IOLD, ADD NEW STRING TO CURRENT COLUMN OF OUTPUT MATRIX. C 2. ICOL = IOLD+1, PREVIOUS COLUMN JUST FINISHED, PACK IT OUT. C 3. ICOL.GT.NCOL, OUTPUT MATRIX FINISH. ALL COLUMNS HAVE BEEN READ. C READ ONE MORE DUMMY RECORD BEFORE WRAP UP THIS MATRIX C 4. IN ALL CASES, ZERO OUT Z ARRAY FOR NEW DATA, AND INCREASE C COLUMN COUNTER I BY 1 C 5. ICOL .LT. I, LOGIC ERROR C 6. ICOL .GT. I, PACK NULL COLUMN(S) OUT. C 7. ICOL .EQ. I, CURRENT INPUT RECORD IS FOR THE I-TH COLUMN. C 470 IF (NW*NWORDS .GT. LCOR) CALL MESAGE (-8,LCORE,SUBNAM) IF (ICOL .EQ. IOLD ) GO TO 710 IF (ICOL .EQ. IOLD+1) CALL PACK (Z(1),OUTPUT,TRL) IMHERE = -550 IF (ICOL .GT. NCOL) GO TO 550 DO 480 J = 1,BASE 480 Z(J) = 0.0 C 490 I = I + 1 490 IF (ICOL - I) 510,600,500 500 CALL PACK (Z(1),OUTPUT,TRL) I = I + 1 GO TO 490 510 WRITE (NOUT,520) SFM,I,ICOL, IOLD,NCOL,IROW,NW, SP,CP,DP,MS,FLAG 520 FORMAT (A25,'. LOGIC ERROR @470, I,ICOL =',2I6, /5X, 1 ' IOLD,NCOL,IROW,NW =',4I6,' SP,CP,DP,MS,FLAG =',4L2,I4) CALL MESAGE (-37,0,SUBNAM) C 550 READ (UNITX,140,ERR=780,END=940) J GO TO 760 C 600 IF (IROW .LE. 0) GO TO 700 C C DENSE MATRIX FORMAT C IROW = IROW - 1 IMHERE = 605 GO TO (610,620,630,640), FLAG 610 READ (UNITX,650,ERR=780,END=940) ( Z(K+IROW),K=1,NW) IF (DEBUG) WRITE (NOUT,660) (Z(K+IROW),K=1,NW) GO TO 350 620 READ (UNITX,660,ERR=780,END=940) ( Z(K+IROW),K=1,NW) GO TO 350 630 READ (UNITX,670,ERR=780,END=940) ( Z(K+IROW),K=1,NW) GO TO 350 640 READ (UNITX,680,ERR=780,END=940) (DZ(K+IROW),K=1,NW) GO TO 350 650 FORMAT ( 5E16.9) 660 FORMAT (1X,10E13.6) 670 FORMAT (1X, 8E16.9) 680 FORMAT (1X, 8D16.9) C C SPARSE INCOMING MATRIX C C OUTPUT4 WRITES OUT THE ASCII STRING DATA IN FOLLOWING FORMATS - C EACH STRING, PRECEEDED BY A 3-INTEGER - ICOL,IROW,NW - CONTROL C RECORD, AND CONTINUE INTO ONE OR MORE DATA RECORDS OF 130 OR C 128 BYTES EACH. (80 BYTES MSC RECORD) C NW = LENGTH OF STRING IN THE FOLLOWING DATA RECORDS, S.P. OR C D.P. DEPENDENT. C IROW = IABS(IROW) IS ROW POSITION IF FIRST WORD OF STRING C ICOL = COLUMN NUMBER OF MATRIX C C NOTICE THAT OUTPUT4 MAY WRITE OUT A MATRIX COLUMN IN MULTI-STRING C RECORDS, WITH THE SAME COLUMN VALUE ICOL IN THE EACH 3-INTEGER C CONTROL RECORD. IN THIS CASE, MROW IS ALWAYS NEGATIVE. C (IF IROW IS ZERO, MATRIX WAS WRITTEN OUT IN DENSE FORMAT) C 700 IOLD = ICOL 710 IROW = IABS(IROW) - 1 IF (TYPIN .GE. 3) IROW = IROW*2 IMHERE = 715 GO TO (720,730,740,750), FLAG 720 READ (UNITX,650,ERR=780,END=940) ( Z(K+IROW),K=1,NW) GO TO 400 730 READ (UNITX,660,ERR=780,END=940) ( Z(K+IROW),K=1,NW) GO TO 400 740 READ (UNITX,670,ERR=780,END=940) ( Z(K+IROW),K=1,NW) GO TO 400 750 READ (UNITX,680,ERR=780,END=940) (DZ(K+IROW),K=1,NW) GO TO 400 C 760 CALL CLOSE (OUTPUT,1) CALL WRTTRL (TRL) IF (DEBUG) WRITE (NOUT,770) UIM,NAME,DSNAMES(UNITX),TRL 770 FORMAT (A29,' FROM INPUTT4 MODULE. ',2A4,' WAS RECOVERED FROM ', 1 /, A44,' INPUT TAPE SUCCESSFULLY.', /5X,'TRAIL =',6I6,I9) GO TO 800 C C BAD DATA ON INPUT TAPE C 780 WRITE (NOUT,790) UFM,DSNAMES(UNITX),UNITX,NN,IMHERE 790 FORMAT (A23,'. BAD DATA ENCOUNTERED WHILE READING INPUT TAPE ',/,A80 1,/, ' FORTRAN UNIT',I4,', DATA BLOCK',I4, /5X,'IMHERE =',I5) NOGO = 1 C 800 CONTINUE C 810 IF (TAPE .LE. -2) REWIND UNITX CALL PAGE2 (-8) CWKBR WRITE (NOUT,820) UIM,FM,INP(UNITX-10) WRITE (NOUT,820) UIM,FM,DSNAMES(UNITX) 820 FORMAT (A29,' FROM INPUTT4 MODULE. THE FOLLOWING FILES WERE ', 1 'SUCCESSFULLY RECOVERED FROM USER ',/5X,A11,' INPUT TAPE ', CWKBR2 /A80/,' TO NASTRAN GINO FILES') 2 /,A44,' TO NASTRAN GINO FILES') DO 840 J = 1,5 IF (INAME(1,J) .NE. BLNK) WRITE (NOUT,830) INAME(1,J),INAME(2,J), 1 ONAME(1,J),ONAME(2,J),TYP(J),T(1,J),T(2,J) 830 FORMAT (5X,2A4,' ==COPIED TO== ',2A4,4X,'MATRIX TYPE = ',A4, 1 ', SIZE (',I6,2H X,I6,1H)) 840 CONTINUE GO TO 1000 C C ERRORS C 900 WRITE (NOUT,910) UFM,DSNAMES(UNITX),BO,NCOL,NROW,NFORM,NTYPE, 1 NAME,BCDOPT 910 FORMAT (A23,'. PARAMETER P3 ERROR. FORTRAN INPUT TAPE ',A4,' WAS', 1 ' WRITTEN IN BINARY RECORDS, NOT ASCII.', /5X,'BO =',L2,2X, 2 'NCOL,NROW,NFORM,NTYPE,NAME =',4I8,1X,2A4,' BCDOPT =',I3) GO TO 990 920 WRITE (NOUT,930) UFM,UNITX 930 FORMAT (A23,'. INPUTT4 MODULE CANNOT OPEN FORTRAN INPUT TAPE',I4) GO TO 990 940 WRITE (NOUT,950) UFM,DSNAMES(UNITX),UNITX,NN,IMHERE 950 FORMAT (A23,' 3001, EOF ENCOUNTERED WHILE READING INPUT TAPE ',/,A80 1,/, ' FORTRAN UNIT',I4,', DATA BLOCK',I4, /5X,'IMHERE =',I4) IF (IMHERE.EQ.210 .OR. IMHERE.EQ.220) WRITE (NOUT,975) GO TO 990 960 WRITE (NOUT,970) UFM,DSNAMES(UNITX),UNITX,NN,IMHERE 970 FORMAT (A23,'. BAD DATA IN HEADER RECORD ON INPUT TAPE ', 1/,A80,/ 2, ' FORTRAN UNIT',I4,', DATA BLOCK',I4, /5X,'IMHERE =',I5) IF (IMHERE.EQ.105 .OR. IMHERE.EQ.120) WRITE (NOUT,975) 975 FORMAT (1H+,22X,'POSSIBLY TAPE UNIT NOT CORRECTLY ASSIGNED') IF (IMHERE .LT. 0) WRITE (NOUT,980) 980 FORMAT (1H+,22X,'POSSIBLY ERROR IN CONTRL RECORD 3 WORDS') C 990 NOGO = 1 C CWKBR 1000 CLOSE (UNIT=UNITX) 1000 CONTINUE RETURN END ================================================ FILE: mis/insert.f ================================================ SUBROUTINE INSERT(NCOL,NROW,NDOF,NGRID,JCORE,Z,DZ,TEMP,DTEMP,IPR) C C INSERT INSERTS MATRIX PARTITONS INTO OPEN CORE FOR IS2D8 C DIMENSION Z(1),TEMP(9) DOUBLE PRECISION DZ(1),DTEMP(9) C IS1=NGRID*NDOF**2 C C COMPUTE STARTING POINTS INTO OPEN CORE FOR THIS PARTITION AND ITS TRAN C IZ1=IS1*(NROW-1)+NDOF*(NCOL-1)+JCORE-1 IZ2=IS1*(NCOL-1)+NDOF*(NROW-1)+JCORE-1 C C IZ1 GETS TEMP, IZ2 GETS THE TRANSPOSE C I1=IZ1 I2=IZ2 C IF (IPR.EQ.2) GO TO 20 C IF(NDOF.EQ.1)GO TO 10 C C 3 X 3 PARTITION C I1 GETS TEMP. I2 GETS THE TRANSPOSE C IF I1=I2, THEN HALF OF THE ENTRIES WILL BE DUPLICATED C THAT-S OK SINCE THERE ARE NO ADDITIONS C Z(I1+1)=TEMP(1) Z(I2+1)=TEMP(1) Z(I1+2)=TEMP(2) Z(I2+25)=TEMP(2) Z(I1+3)=TEMP(3) Z(I2+49)=TEMP(3) Z(I1+25)=TEMP(4) Z(I2+2)=TEMP(4) Z(I1+26)=TEMP(5) Z(I2+26)=TEMP(5) Z(I1+27)=TEMP(6) Z(I2+50)=TEMP(6) Z(I1+49)=TEMP(7) Z(I2+3)=TEMP(7) Z(I1+50)=TEMP(8) Z(I2+27)=TEMP(8) Z(I1+51)=TEMP(9) Z(I2+51)=TEMP(9) GO TO 100 C C 1 X 1 PARTITION C 10 Z(I1+1)=TEMP(1) Z(I2+1)=TEMP(1) GO TO 100 C C C DO THE SAME IN DOUBLE PRECISION C 20 IF (NDOF.EQ.1) GO TO 30 C DZ(I1+ 1)=DTEMP(1) DZ(I2+ 1)=DTEMP(1) DZ(I1+ 2)=DTEMP(2) DZ(I2+25)=DTEMP(2) DZ(I1+ 3)=DTEMP(3) DZ(I2+49)=DTEMP(3) DZ(I1+25)=DTEMP(4) DZ(I2+ 2)=DTEMP(4) DZ(I1+26)=DTEMP(5) DZ(I2+26)=DTEMP(5) DZ(I1+27)=DTEMP(6) DZ(I2+50)=DTEMP(6) DZ(I1+49)=DTEMP(7) DZ(I2+ 3)=DTEMP(7) DZ(I1+50)=DTEMP(8) DZ(I2+27)=DTEMP(8) DZ(I1+51)=DTEMP(9) DZ(I2+51)=DTEMP(9) GO TO 100 C 30 DZ(I1+1)=DTEMP(1) DZ(I2+1)=DTEMP(1) C 100 RETURN END ================================================ FILE: mis/int2a8.f ================================================ SUBROUTINE INT 2 A8 (*,X,A8) C INTEGER JX, POWER, A8(2) REAL RX, X(1) CHARACTER*1 A(10), IP, IM, IB, PT, 1 ALP(10) CHARACTER*8 K8(1), TEMP, ZERO, ZEROX CHARACTER*10 ALP10, TEMP10 COMMON /MACHIN/ MACH COMMON /SYSTEM/ DUMMY(38),NBPC, NBPW, NCPW EQUIVALENCE (TEMP,TEMP10,A(1)), (JX,RX), (ALP10,ALP(1)) DATA IP, IM, IB, PT, TEMP, ZERO, ZEROX, NN, LL, ALP10 / 1 '+', '-', ' ', '.', 'T', '0', '0.0', 0, 0, '1234567890' / C C THESE ROUTINES ENCODE AN INTEGER OR F.P. NUMBER IN X, TO AN 8-BYTE C BCD WORD IN A8, OR AN 8-CHARACTER WORD IN K8, LEFT ADJUSTED. C WITH MAXIMUM NUMBERS OF DIGITS SQUEEZED INTO THE 8-BYTE FORMAT. C C ENTRY POINT INT 2 A8 (INTEGER-BCD VERSION) C INT 2 K8 (INTEGER-CHARACTER VERSION) C FP 2 A8 (REAL-BCD VERSION) C FP 2 K8 (REAL-CHARACTER VERSION) C C WRITTEN BY G.CHAN/UNISYS IN AUG. 1985 C PARTICULARLY FOR XREAD ROUTINE, IN SUPPORT OF ITS NEW FREE-FIELD C INPUT FORMAT. C THIS ROUTINE IS MACHINE INDEPENDENT C NT = +1 GO TO 100 C ENTRY INT2K8 (*,X,K8) C ===================== C NT = -1 GO TO 100 C ENTRY FP2A8 (*,X,A8) C ==================== C NT = +2 GO TO 100 C ENTRY FP 2 K8 (*,X,K8) C ====================== C NT = -2 C 100 INT = IABS(NT) DO 110 J = 1,8 110 A(J) = IP A( 9) = IB A(10) = IB IF (INT .NE. 1) GO TO 200 C C INTEGER C LU = 8 N = 0 RX = X(1) IX = IABS(JX) XLL = FLOAT(IX) + .01 ABSX = ABS(XLL) NN = 0 IF (JX.GE.0 .AND. IX.LT.10**8) GO TO 140 IF (JX.LT.0 .AND. IX.LT.10**7) GO TO 140 RETURN 1 140 IF (JX) 210,150,220 C 150 TEMP = ZERO GO TO 310 160 TEMP = ZEROX GO TO 310 C C F.P. NUMBER C 200 ABSX = ABS(X(1)) IF (ABSX .LT. 1.E-20) GO TO 160 ABSX = ABSX*(1.0+1.E-20) LU = 7 LL =-3 N = 0 IF (X(1) .GT. 0.) GO TO 220 LU = LU - 1 LL = LL + 1 210 N = 1 A(1) = IM 220 N1 = N IF (INT .EQ. 1) GO TO 240 XLL = ALOG10(ABSX) IF (XLL .LT. 0.) XLL = XLL - .99998 IF (XLL .GT. 0.) XLL = XLL + .00002 POWER = IFIX(XLL) NP1 = POWER + 1 IP1 = IABS(NP1) XLU = 10.**LU XLL = 10.**LL IF (ABSX.LT.XLL .OR. ABSX.GT.XLU) GO TO 400 C C F.P. NUMBER IS SQUEEZED INTO AN EIGHT DIGIT F FORMAT, IF C X IS BETWWEN 10**-3 AND 10**7 AND X IS POSITUVE, OR C BETWWEN 10**-2 AND 10**6 AND X IS NEGATIVE, C 230 IF (IP1 .GE. 10) LU = LU - 1 IF (NP1 .EQ. -1) LU = LU + 1 NN = LU - NP1 IF (INT.EQ.2 .AND. NN.GT.7) NN = 7 IX = IFIX(ABSX*10.**NN) 240 LU = LU - 1 IF (LU.LT.0 .AND. INT.EQ.3) GO TO 420 IF (LU.LT.0 .AND. N.EQ.7) GO TO 260 POWER = 10**LU IF (POWER .EQ. 0) POWER = 1 J = IX/POWER IF (J .GE. 10) GO TO 240 IX = MOD(IX,POWER) IF (LU-NN+1) 280,250,270 250 IF (INT .EQ. 3) GO TO 420 260 N = N + 1 A(N) = PT IF (N .GE. 8) GO TO 290 270 IF (J.EQ.0 .AND. N.LE.N1) GO TO (240,280,280), INT 280 IF (J .EQ. 0) J = 10 N = N + 1 A(N) = ALP(J) IF (LU.EQ.0 .AND. INT.EQ.1) GO TO 350 IF (N .LT. 8) GO TO 240 290 DO 300 J = 1,8 IF (A(N) .EQ. PT) GO TO 310 IF (A(N) .NE. ALP(10)) GO TO 310 A(N) = IB 300 N = N - 1 C 310 IF (NT) 320,440,330 320 K8(1) = TEMP GO TO 440 330 IF (MACH .NE. 4) CALL KHRBC2 (TEMP,A8(1)) CWKBD IF (MACH .EQ. 4) A8(1) = ISWAP(TEMP10) C IF (NCPW .GE. 8) A8(2) = LSHIFT(A8(1),4*NBPC) GO TO 440 C 350 N = N + 1 IF (N .GT. 8) GO TO 310 DO 360 J = N,8 360 A(J) = IB GO TO 310 C C F.P. NUMBER IN .XXXXX+X, .XXXX-XX, -.XXXX-X, OR -.XXX+XX FORMS C FOR MAXIMUM NOS. OF DIGITS POSSIBLE IN AN A8 WROD. C 400 INT = 3 N = N + 1 A(N)= PT LU = LU - 2 GO TO 230 C 420 N = N + 1 IF (NP1 .GE. 0) A(N) = IP IF (NP1 .LT. 0) A(N) = IM IF (IP1 .GE. 10) GO TO 430 A(N+1) = ALP(IP1) GO TO 310 430 J = IP1/10 A(N+1) = ALP(J) J = MOD(IP1,10) IF (J .EQ. 0) J = 10 A(N+2) = ALP(J) GO TO 310 C 440 RETURN END ================================================ FILE: mis/int2al.f ================================================ SUBROUTINE INT2AL (INT,ALF,CH) C ---------- C THIS ROUTINE CONVERTS AN INTEGER TO ALPHA-NUMERIC WORD. THE C NUMBER IS LEFT JUSTIFIED WITH NO BLANKS. C C INPUT/OUTPUT C C INT - INTEGER - INPUT - NOT CHANGED C ALF - BCD 2 WORDS - OUTPUT - 2A4 MAY BE USED FOR PRINTING C CH - BCD 9 WORDS - OUTPUT - CH(1) .EQ. NUMBER OF CHARACTERS C NEEDED TO CREATE INT. MAY BE PRINTED BY CH(I), I=2,CH(1) C IN A1 FORMAT. C C NOTE - ANY INPUT NUMBER OUTSIDE THE RANGE OF -9999999 AND +9999999 C (I.E. MORE THAN 8 DIGITS) IS SET TO ZERO IN OUTPUT. C ---------- C INTEGER INT, ALF(2), CH(9), ZERO, BLANK CHARACTER*8 K8 DATA BLANK, ZERO / 1H , 1H0 / C IF (INT.LT.-9999999 .OR. INT.GT.+99999999) GO TO 50 CALL INT2K8 (*50,INT,K8) READ (K8,10) ALF READ (K8,20) (CH(J),J=2,9) 10 FORMAT (2A4) 20 FORMAT (8A1) DO 30 J=2,9 IF (CH(J) .EQ. BLANK) GO TO 40 30 CONTINUE J=10 40 CH(1)=J-2 RETURN C 50 CH(1) =1 CH(2) =ZERO ALF(1)=ZERO ALF(2)=BLANK RETURN END ================================================ FILE: mis/intert.f ================================================ SUBROUTINE INTERT (NL,NL1,NL2,NM,AJJ,TA) C DIMENSION AJJ(1),TA(1) C T1 = TA(NL1) T2 = TA(NL2) T = TA(NL) N1 = NM *(NL1-1) N2 = NM *(NL2-1) N = NM*(NL -1) FRACT = (T-T1) / (T2 -T1) DO 100 I=1,NM 100 AJJ(I+N) = AJJ(I+N1) + FRACT *(AJJ(I+N2) - AJJ(I+N1)) RETURN END ================================================ FILE: mis/intfbs.f ================================================ SUBROUTINE INTFBS (DX,DY,IOBUF) C C GIVEN THE TRIANGULAR FACTORS FOR A GENERAL MATRIX, INTFBS WILL C PERFORM THE FORWARD-BACKWARD SUBSTITUTION NECESSARY TO SOLVE C A SYSTEM OF EQUATIONS C C DEFINITION OF INPUT PARAMETERS C C FILEL = MATRIX CONTROL BLOCK FOR THE LOWER TRIANGLE L C FILEU = MATRIX CONTROL BLOCK FOR THE UPPER TRIANGLE U C DX = THE LOAD VECTOR B C DY = THE SOLUTION VECTOR X C IOBUF = THE INPUT BUFFER C C NAMED COMMONS C INTEGER FILEL ,FILEU ,TYPEAR ,RDP , 1 PARM(4) ,RSP ,EOL DIMENSION IOBUF(1) ,DX(1) ,DY(1) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,LOWTRI ,UPRTRI , 4 SYM ,ROW ,IDENTY COMMON /ZNTPKX/ A(4) ,II ,EOL COMMON /INFBSX/ FILEL(7) ,FILEU(7) COMMON /TRDXX / IDUMMY(27),IOPEN EQUIVALENCE (A(1),DA) , 1 (FILEL(3) ,NROW) DATA PARM(3), PARM(4) /4HINTF ,4HBS / C C C TRANSFER THE LOAD VECTOR TO THE SOLUTION VECTOR C DO 10 I = 1,NROW 10 DY(I) = DX(I) TYPEAR = RSP C C OPEN FILE FOR THE LOWER TRIANGLE C PARM(2) = FILEL(1) IF (IOPEN .EQ. -10) GO TO 15 IF (IOPEN .EQ. 0) CALL OPEN (*200,FILEL(1),IOBUF,RDREW) CALL FWDREC (*210,FILEL(1)) C C BEGIN FORWARD PASS C 15 J = 1 20 CALL INTPK (*90,FILEL(1),0,TYPEAR,0) 30 IF (EOL) 220,40,220 40 CALL ZNTPKI IF (J-II) 80,50,30 C C PERFORM THE REQUIRED ROW INTERCHANGE C 50 IN1 = J + IFIX(A(1)) DTEMP = DY(J) DY(J) = DY(IN1) DY(IN1) = DTEMP 60 IF (EOL) 90,70,90 70 CALL ZNTPKI 80 DY(II) = DY(II) - DY(J)*DA GO TO 60 90 J = J + 1 IF (J .LT. NROW) GO TO 20 CALL REWIND (FILEL(1)) IF (IOPEN .EQ. 0) CALL CLOSE (FILEL(1),REW) IF (IOPEN .EQ. -10) CALL SKPREC (FILEL,1) C C BEGIN BACKWARD PASS C IOFF = FILEU(7) - 1 PARM(2) = FILEU(1) IF (IOPEN .EQ. -10) GO TO 95 IF (IOPEN .EQ. 0) CALL OPEN (*200,FILEU(1),IOBUF,RDREW) CALL FWDREC (*210,FILEU(1)) 95 J = NROW 100 CALL INTPK (*220,FILEU(1),0,TYPEAR,0) IF (EOL) 220,120,220 120 CALL ZNTPKI I = NROW - II + 1 IF (I .NE. J) GO TO 170 C C DIVIDE BY THE DIAGONAL C DY(I) = DY(I)/DA C C SUBTRACT OFF REMAINING TERMS C 140 IF (I .GT. J) GO TO 120 IF (EOL) 190,160,190 160 CALL ZNTPKI I = NROW - II + 1 170 IN1 = I IN2 = J IF (I .LT. J) GO TO 180 K = IN1 IN1 = IN2 - IOFF IN2 = K 180 DY(IN1) = DY(IN1) - DY(IN2)*DA GO TO 140 190 J = J - 1 IF (J .GT. 0) GO TO 100 CALL REWIND (FILEU(1)) IF (IOPEN .EQ. 0) CALL CLOSE (FILEU(1),REW) IF (IOPEN .EQ. -10) CALL SKPREC (FILEU,1) RETURN C 200 PARM(1) = -1 GO TO 230 210 PARM(1) = -2 GO TO 230 220 PARM(1) = -5 230 CALL MESAGE (PARM(1),PARM(2),PARM(3)) RETURN END ================================================ FILE: mis/intlst.f ================================================ SUBROUTINE INTLST (LIST,N,SIGN,N1,N2) C INTEGER LIST(1),SIGN,TO,THRU DATA TO,THRU/ 2HTO,4HTHRU / C SIGN = ISIGN(1,LIST(N)) N1 = IABS(LIST(N)) IF (LIST(N+1).EQ.TO .OR. LIST(N+1).EQ.THRU) GO TO 110 N2 = N1 N = N + 1 GO TO 150 C 110 N2 = IABS(LIST(N+2)) N = N + 3 IF (N1 .LE. N2) GO TO 150 I = N1 N1 = N2 N2 = I C 150 RETURN END ================================================ FILE: mis/intprt.f ================================================ SUBROUTINE INTPRT (A,CR,O,NAME) C INTEGER O,CR,COLNUM,CRFMT(3),CROPT(2,2) REAL A(1),NAME(2) COMMON /SYSTEM/ SKIP,MO DATA CRFMT / 4H(60X , 4H,2A4 , 4H,I5) / DATA CROPT / 4HCOLU , 4HMN , 4HROW , 4H / C C CR = 0 IF MATRIX BY COLUMNS. C = 1 IF MATRIX BY ROWS. C IF O = 0, THE MATRIX WILL NOT BE PRINTED. C NAME = 8 CHARACTER BCD NAME OF THE MATRIX. C IF (CR .NE. 0) GO TO 100 ICROPT = 1 GO TO 110 100 ICROPT = 2 C 110 CALL MATPRT (*120,*130,A,-1,COLNUM) GO TO 150 120 WRITE (MO,125) NAME(1),NAME(2) 125 FORMAT (50X,24HINTERMEDIATE MATRIX ... ,2A4//) 130 WRITE (MO,CRFMT) (CROPT(I,ICROPT),I=1,2),COLNUM CALL PRTMAT (*120,*130,COLNUM) 150 RETURN C END ================================================ FILE: mis/intvec.f ================================================ SUBROUTINE INTVEC (VECTOR) C INTEGER VECTOR,XYZR(4),CHAR,VEC(4),VECWRD COMMON /SYSTEM/ SKIP(40), NCPW DATA XYZR / 1HX,1HY,1HZ,1HR / DATA N / 1HN/ C NSHAPE = 0 VECWRD = VECTOR IF (VECWRD .EQ. 0) GO TO 125 DO 101 I = 1,4 VEC(I) = 0 101 CONTINUE C C SEPARATE THE FOUR CHARACTERS IN -VECWRD- (ANY COMBINATION OF THE C CHARACTERS X, Y, Z, AND R. C DO 120 K = 1,4 CHAR = KLSHFT(VECWRD,(K-1)) CHAR = KRSHFT(CHAR,(NCPW-1)) DO 111 I = 1,4 IF (CHAR .EQ. KRSHFT(XYZR(I),(NCPW-1))) GO TO 115 111 CONTINUE IF(CHAR .EQ. KRSHFT(N,(NCPW-1))) NSHAPE = 1 GO TO 120 115 VEC(I) = 1 120 CONTINUE C VECTOR = VEC(1) + 2*VEC(2) + 4*VEC(3) + 8*VEC(4) IF (VECTOR .EQ. 8) VECTOR = 15 IF (NSHAPE .EQ. 1) VECTOR =-VECTOR 125 RETURN END ================================================ FILE: mis/inverd.f ================================================ SUBROUTINE INVERD (NDIM,A,N,B,M,DETERM,ISING,INDEX) C C INVERSE, OR LINEAR EQUATIONS SOLVER C C NDIM IS THE ACTUAL SIZE OF A IN CALLING PROGRAM. E.G. A(NDIM,NDIM) C A IS SQUARE MATRIX TO BE INVERTED. C N IS SIZE OF UPPER LEFT PORTION BEING INVERTED. C B IS COLUMN OF CONSTANTS (OPTIONAL INPUT). SUPPLY SPACE B(NDIM,1) C M IS THE NUMBER OF COLUMNS OF CONSTANTS C DETERM RETURNS THE VALUE OF DETERMINANT IF NON-SINGULAR C ISING RETURNS 2, IF MATRIX A(N,N) IS SINGULAR, 1 OTHERWISE. C (IF ISING IS SET TO .LT. 0 UPON INPUT, DETERM IS NO CALCULATED) C INVERSE RETURNS IN A C SOLUTION VECTORS RETURN IN B C INDEX IS WORKING STORAGE (N,3) C DIMENSION A(NDIM,1), B(NDIM,1), INDEX(N,3) DOUBLE PRECISION A, B, AMAX, T, SWAP, DETERM, PIVOT, EPSI COMMON /MACHIN/ MACH EQUIVALENCE (IROW,JROW), (ICOLUM,JCOLUM), (AMAX, T, SWAP) DATA EPSI / 1.0D-36/ C C INITIALIZE C IF (MACH .EQ. 5) EPSI = 1.D-18 DETERM = 1.0D0 IF (ISING .LT. 0) DETERM = 0.0D0 DO 10 J = 1,N 10 INDEX(J,3) = 0 DO 130 I = 1,N C C SEARCH FOR PIVOT C AMAX = 0.0D0 DO 40 J = 1,N IF (INDEX(J,3) .EQ. 1) GO TO 40 DO 30 K = 1,N IF (INDEX(K,3) - 1) 20,30,190 20 IF (DABS(A(J,K)).LE. AMAX) GO TO 30 IROW = J ICOLUM = K AMAX = DABS(A(J,K)) 30 CONTINUE 40 CONTINUE INDEX(ICOLUM,3) = INDEX(ICOLUM,3) + 1 INDEX(I,1) = IROW INDEX(I,2) = ICOLUM C C INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL C IF (IROW .EQ. ICOLUM) GO TO 70 DETERM = -DETERM DO 50 L = 1,N SWAP = A(IROW,L) A(IROW ,L) = A(ICOLUM,L) 50 A(ICOLUM,L) = SWAP IF (M .LE. 0) GO TO 70 DO 60 L = 1,M SWAP = B(IROW,L) B(IROW ,L) = B(ICOLUM,L) 60 B(ICOLUM,L) = SWAP C C DIVIDE PIVOT ROW BY PIVOT ELEMENT C 70 PIVOT = A(ICOLUM,ICOLUM) C C COMMENTS FROM G.CHAN/UNISYS 9/1992 C C THE D.P. OF VAX IS LIMITED TO 10**38. NEXT LINE COULD CAUSE C FLOATING POINT NUMBER OVERFLOW IN VAX IN SOME HUGE PROBLEM. C CHECK FIRST THAT THE CALLER REALLY WANT THE DETERMINANT TERM. IF C NOT, ISING SHOULD BE SET TO -1 AND THE DETERM TERM IS BY-PASSED. C IF DETERM IS REALLY WANTED, USE REAL*16 HERE FOR VAX, AND TURN IT C BACK TO D.P. BEFORE RETURN. RE-COMPILE THIS SUBROUTINE AND RE-LINK C NASTRAN EXECUTABLE C DETERM = DETERM*PIVOT C IF (DABS(PIVOT) .LT. EPSI) GO TO 190 A(ICOLUM,ICOLUM) = 1.0D0 DO 80 L = 1,N 80 A(ICOLUM,L) = A(ICOLUM,L)/PIVOT IF (M .LE. 0) GO TO 100 DO 90 L = 1,M 90 B(ICOLUM,L) = B(ICOLUM,L)/PIVOT C C REDUCE NON PIVOT ROWS C 100 DO 130 L1 = 1,N IF (L1 .EQ. ICOLUM) GO TO 130 T = A(L1,ICOLUM) A(L1,ICOLUM) = 0.0D0 IF (DABS(T) .LT. EPSI) GO TO 130 DO 110 L = 1,N 110 A(L1,L) = A(L1,L) - A(ICOLUM,L)*T IF (M .LE. 0) GO TO 130 DO 120 L = 1,M 120 B(L1,L) = B(L1,L) - B(ICOLUM,L)*T 130 CONTINUE C C INTERCHANGE COLUMNS C DO 150 I = 1,N L = N + 1 - I IF (INDEX(L,1) .EQ. INDEX(L,2)) GO TO 150 JROW = INDEX(L,1) JCOLUM = INDEX(L,2) DO 140 K = 1,N SWAP = A(K,JROW) A(K,JROW ) = A(K,JCOLUM) A(K,JCOLUM) = SWAP 140 CONTINUE 150 CONTINUE DO 170 K = 1,N IF (INDEX(K,3) .EQ. 1) GO TO 160 ISING = 2 GO TO 180 160 CONTINUE 170 CONTINUE ISING = 1 180 RETURN 190 ISING = 2 RETURN END ================================================ FILE: mis/invers.f ================================================ SUBROUTINE INVERS (NDIM,A,N,B,M,DETERM,ISING,INDEX) C C INVERSE, OR LINEAR EQUATIONS SOLVER C C NDIM IS THE ACTUAL SIZE OF A IN CALLING PROGRAM. E.G. A(NDIM,NDIM) C A IS SQUARE MATRIX TO BE INVERTED. C N IS SIZE OF UPPER LEFT PORTION BEING INVERTED. C B IS COLUMN OF CONSTANTS (OPTIONAL INPUT). SUPPLY SPACE B(NDIM,1) C M IS THE NUMBER OF COLUMNS OF CONSTANTS C DETERM RETURNS THE VALUE OF DETERMINANT IF NON-SINGULAR C ISING RETURNS 2, IF MATRIX A(N,N) IS SINGULAR C 1, IF MATRIX A(N,N) IS NON-SINGULAR C (IF ISING IS SET TO .LT. 0 UPON INPUT, DETERM IS NOT CALCULATED) C INVERSE RETURNS IN A C SOLUTION VECTORS RETURN IN B C INDEX IS WORKING STORAGE (N,3) C DIMENSION A(NDIM,1), B(NDIM,1), INDEX(N,3) COMMON /MACHIN/ MACH EQUIVALENCE (IROW,JROW), (ICOLUM,JCOLUM), (AMAX, T, SWAP) DATA EPSI / 1.0E-30 / C C INITIALIZE C IF (MACH .EQ. 5) EPSI = 1.E-18 DETERM = 1.0 IF (ISING .LT. 0) DETERM = 0.0 DO 10 J = 1,N 10 INDEX(J,3) = 0 DO 130 I = 1,N C C SEARCH FOR PIVOT C AMAX = 0.0 DO 40 J = 1,N IF (INDEX(J,3) .EQ. 1) GO TO 40 DO 30 K = 1,N IF (INDEX(K,3) - 1) 20,30,190 20 IF (ABS(A(J,K)) .LE. AMAX) GO TO 30 IROW = J ICOLUM = K AMAX = ABS(A(J,K)) 30 CONTINUE 40 CONTINUE INDEX(ICOLUM,3) = INDEX(ICOLUM,3) + 1 INDEX(I,1) = IROW INDEX(I,2) = ICOLUM C C INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL C IF (IROW .EQ. ICOLUM) GO TO 70 DETERM = -DETERM DO 50 L = 1,N SWAP = A(IROW,L) A(IROW,L ) = A(ICOLUM,L) 50 A(ICOLUM,L) = SWAP IF (M .LE. 0) GO TO 70 DO 60 L = 1,M SWAP = B(IROW,L) B(IROW,L ) = B(ICOLUM,L) 60 B(ICOLUM,L) = SWAP C C DIVIDE PIVOT ROW BY PIVOT ELEMENT C 70 PIVOT = A(ICOLUM,ICOLUM) DETERM = DETERM*PIVOT IF (ABS(PIVOT) .LT. EPSI) GO TO 190 A(ICOLUM,ICOLUM) = 1.0 DO 80 L = 1,N 80 A(ICOLUM,L) = A(ICOLUM,L)/PIVOT IF (M .LE. 0) GO TO 100 DO 90 L=1,M 90 B(ICOLUM,L) = B(ICOLUM,L)/PIVOT C C REDUCE NON PIVOT ROWS C 100 DO 130 L1 = 1,N IF (L1 .EQ. ICOLUM) GO TO 130 T = A(L1,ICOLUM) A(L1,ICOLUM) = 0.0 IF (ABS(T) .LT. EPSI) GO TO 130 DO 110 L = 1,N 110 A(L1,L) = A(L1,L) - A(ICOLUM,L)*T IF (M .LE. 0) GO TO 130 DO 120 L = 1,M 120 B(L1,L) = B(L1,L) - B(ICOLUM,L)*T 130 CONTINUE C C INTERCHANGE COLUMNS C DO 150 I = 1,N L = N + 1 - I IF (INDEX(L,1) .EQ. INDEX(L,2)) GO TO 150 JROW = INDEX(L,1) JCOLUM = INDEX(L,2) DO 140 K = 1,N SWAP = A(K,JROW) A(K,JROW ) = A(K,JCOLUM) A(K,JCOLUM) = SWAP 140 CONTINUE 150 CONTINUE DO 170 K = 1,N IF (INDEX(K,3) .EQ. 1) GO TO 160 ISING = 2 GO TO 180 160 CONTINUE 170 CONTINUE ISING = 1 180 RETURN 190 ISING = 2 RETURN END ================================================ FILE: mis/invert.f ================================================ SUBROUTINE INVERT( IA,IB,SCR1) C C DRIVER FOR INVTR C C INVERTS LOWER OR UPPER TRIANGLE IA ONTO IB C C SCR1 WILL BE USED ONLY IF IA IS AN UPPER TRIANGLE C INTEGER FA,FB,SCRFIL,PREC,SCR1,NAME(2) C COMMON /INVTRX/ FA(7),FB(7),SCRFIL,NX,PREC COMMON / ZZZZZZ/ Z(1) C DATA NAME /4HINVE,4HRT / C C FILL MATRIX CONTROL BLOCKS FOR A AND B C FA(1) = IA CALL RDTRL(FA) FB(1) = IA CALL RDTRL(FB) FB(1) = IB SCRFIL = SCR1 PREC = FA(5) NX = KORSZ(Z) CALL INVTR(*50,Z,Z) CALL WRTTRL(FB) RETURN C C SINGULAR MATRIX C 50 CALL MESAGE(-5,FA,NAME) GO TO 50 END ================================================ FILE: mis/invfbs.f ================================================ SUBROUTINE INVFBS (DX,DY,IOBUF) C C DOUBLE PRECISION VERSION C C INVFBS IS A SPECIAL FORWARD-BACKWARD SUBSTITUTION ROUTINE FOR C INVPWR. IT OPERATES ON CONJUNCTION WITH SDCOMP. C THE ARITHMETIC PRECISION IS THAT OF THE INPUT FILE C C FILEL = MATRIX CONTROL BLOCK FOR THE LOWER TRIANGLE L C FILEU = MATRIX CONTROL BLOCK FOR THE UPPER TRIANGLE U C DX = THE LOAD VECTOR B C DY = THE SOLUTION VECTOR X C IOBUF = THE INPUT BUFFER C C COMMENT FROM G.CHAN/UNISYS, 6/89 C IF LOAD IS SUDDENLY INCREADED TO A LARGE VALUE, THE VAX MACHINE C MAY BLOW ITS TOP (ARITHMETIC FAULT, FLOATING OVERFLOW) BECAUSE C VAX DOUBLE PRECISION REAL NUMBERS ARE LIMITED TO 10**38, SAME C LIMIT AS THE SINGLE PRECISION REAL NUMBERS. OTHER MACHINES ALLOW C MUCH LARGER LIMITS FOR DOUBLE PRECISION NUMBERS. C INTEGER FILEL ,FILEU ,TYPEAR ,RDP , 1 PARM(4) ,EOL ,IJJ(2) DOUBLE PRECISION DX(1) ,DY(1) ,DA ,DTEMP , 1 DJJ ,DYJ ,EPSI DIMENSION IOBUF(1) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /MACHIN/ MACH COMMON /SYSTEM/ IBUF ,NOUT C COMMON /DESCRP/ LENGTH ,MAJOR COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,LOWTRI ,UPRTRI , 4 SYM ,ROW ,IDENTY COMMON /TYPE / RC(2) ,NWDS(4) COMMON /ZNTPKX/ A(4) ,II ,EOL COMMON /INFBSX/ FILEL(7) ,FILEU(7) COMMON /TRDXX / IDUMMY(27),IOPEN EQUIVALENCE (A(1),DA) ,(FILEL(3),NROW) ,(DJJ,IJJ(1)) DATA EPSI / 1.0D-24 / DATA PARM(3), PARM(4) /4HINVF,4HBS / C C C TRANSFER THE LOAD VECTOR TO THE SOLUTION VECTOR C DO 10 I = 1,NROW 10 DY(I) = DX(I) TYPEAR = RDP C C OPEN FILE FOR THE LOWER TRIANGLE C IOPEN WAS SET TO -20 BY STEP2 C PARM(2) = FILEL(1) IF (IOPEN .EQ. -20) CALL FWDREC (*360,FILEL(1)) IF (FILEL(7) .LT. 0) GO TO 300 C C NASTRAN ORIGINAL CODE C C BEGIN FORWARD PASS C J = 1 20 CALL INTPK (*100,FILEL(1),0,TYPEAR,0) 30 IF (EOL) 220,40,220 40 CALL ZNTPKI IF (J-II) 80,50,30 C C PERFORM THE REQUIRED ROW INTERCHANGE C 50 IN1 = J+IFIX(SNGL(DA)) DTEMP = DY(J) DY(J) = DY(IN1) DY(IN1) = DTEMP 60 IF (EOL) 100,70,100 70 CALL ZNTPKI 80 IF (MACH.NE.5 .OR. 1 (DABS(DA).LT.1.D+19 .AND. DABS(DY(J)).LT.1.D+19)) GO TO 90 X1 = ALOG10(ABS(SNGL(DA))) X2 = ALOG10(ABS(SNGL(DY(J)))) IF (X1+X2 .GT. 38.) GO TO 200 90 DY(II) = DY(II) - DY(J)*DA GO TO 60 100 J = J + 1 IF (J .LT. NROW) GO TO 20 CALL REWIND (FILEL(1)) IF (IOPEN .EQ. -20) GO TO 110 CALL SKPREC (FILEL,1) C C BEGIN BACKWARD PASS C 110 IOFF = FILEU(7) - 1 PARM(2) = FILEU(1) IF (IOPEN .EQ. -20) CALL FWDREC (*360,FILEU(1)) J = NROW 120 CALL INTPK (*220,FILEU(1),0,TYPEAR,0) IF (EOL .NE. 0) GO TO 220 130 CALL ZNTPKI I = NROW - II + 1 IF (I .NE. J) GO TO 150 C C DIVIDE BY THE DIAGONAL C DY(I) = DY(I)/DA C C SUBTRACT OFF REMAINING TERMS C 140 IF (I .GT. J) GO TO 130 IF (EOL .NE. 0) GO TO 180 CALL ZNTPKI I = NROW - II + 1 150 IN1 = I IN2 = J IF (I .LT. J) GO TO 160 K = IN1 IN1 = IN2 - IOFF IN2 = K 160 IF (MACH.NE.5 .OR. 1 (DABS(DA).LT.1.D+19 .AND. DABS(DY(IN2)).LT.1.D+19)) GO TO 170 X1 = ALOG10(ABS(SNGL(DA))) X2 = ALOG10(ABS(SNGL(DY(IN2)))) IF (X1+X2 .GT. 38.) GO TO 200 170 DY(IN1) = DY(IN1) - DY(IN2)*DA GO TO 140 180 J = J - 1 IF (J .GT. 0) GO TO 120 CALL REWIND (FILEU) IF (IOPEN .EQ. -20) RETURN CALL SKPREC (FILEU,1) GO TO 450 C 200 WRITE (NOUT,210) SFM,PARM(1),PARM(2) 210 FORMAT (A25,' FROM ',2A4,'- SOLUTION VECTOR VALUE OVERFLOWS,',/5X, 1 'POSSIBLY DUE TO SUDDEN INCREASE OF LARGE LOAD VECTOR OR ', 2 'OTHER INPUT CONDITION') GO TO 420 220 PARM(1) = -5 GO TO 440 C C C NEW METHOD C FILEL HAS BEEN RE-WRITTEN FORWARD FIRST THAN BACKWARD BY UNPSCR C IN INVP3) C C THE LOAD VECTOR DX WILL BE DESTROYED IN THIS NEW METHOD C C FORWARD SWEEP DIRECTLY ON SOLUTION VECTOR DY C 300 IFILE =-FILEL(7) PARM(2)= IFILE NWD = NWDS(FILEL(5)) IF (FILEL(4) .NE. 2) GO TO 400 IFW = +1 CALL REWIND (IFILE) CALL SKPREC (IFILE,1) CALL READ (*360,*370,IFILE,DX,2,0,I) NTMS = 0 DO 320 J = 1,NROW DJJ = DX(NTMS+1) II = IJJ(1) JJ = IJJ(2) IF (II .NE. J) GO TO 380 NTMS = JJ - II + 1 JI = NTMS*NWD + 2 CALL READ (*360,*370,IFILE,DX,JI,0,I) IF (NTMS .LE. 1) GO TO 320 DYJ = DY(J) IF (DABS(DYJ) .LT. EPSI) GO TO 320 DO 310 I = 2,NTMS II = II + 1 DY(II) = DY(II) + DX(I)*DYJ 310 CONTINUE 320 DY(J) = DY(J)/DX(1) C C BACKWARD SUBSTITUTION OMIT DIAGONAL C IFW = -1 IF (NROW .EQ. 1) GO TO 450 J = NROW DO 340 JX = 1,NROW DJJ = DX(NTMS+1) II = IJJ(1) JJ = IJJ(2) IF (II .NE. J) GO TO 380 NTMS = JJ - II + 1 JI = NTMS*NWD + 2 CALL READ (*360,*370,IFILE,DX,JI,0,I) IF (NTMS .LE. 1) GO TO 340 DO 330 I = 2,NTMS II = II + 1 DY(J) = DY(J) + DX(I)*DY(II) 330 CONTINUE 340 J = J - 1 GO TO 450 C C ERROR C 360 PARM(1) = -2 GO TO 440 370 PARM(1) = -3 GO TO 440 380 WRITE (NOUT,390) IFW,II,J 390 FORMAT (' ERROR IN INVFBS. IFW),II,J =',I3,1H),2I6) GO TO 420 400 WRITE (NOUT,410) FILEL(4) 410 FORMAT ('0*** FILEL MATRIX IN WRONG FORMAT. UNPSCR FLAG =',I3) 420 PARM(1) = -37 440 CALL MESAGE (PARM(1),PARM(2),PARM(3)) C 450 RETURN END ================================================ FILE: mis/invp1.f ================================================ SUBROUTINE INVP1 C C INVP1 INITIALIZES AND CALLS SUBROUTINE ADD FOR INVPWR C INTEGER FILEA ,FILEB ,FILEC ,FILEK ,FILEM , 1 SCR1 ,TYPALP ,TYPBTA ,SQR ,RDP DOUBLE PRECISION LAMBDA ,DALPHA ,DBETA COMMON /INVPWX/ FILEK(7) ,FILEM(7) ,SCR1 COMMON /INVPXX/ LAMBDA COMMON /SADDX / NOMAT ,NZ ,FILEA(7) ,TYPALP , 1 DALPHA(2),FILEB(7) ,TYPBTA ,DBETA(2), 2 DUM(36) ,FILEC(7) COMMON /ZZZZZZ/ Z(1) COMMON /NAMES / IJ(8) ,RDP ,IK(2) ,SQR COMMON /SYSTEM/ KSYSTM(56) EQUIVALENCE (KSYSTM(55),IPREC) C C SET UP CALL TO ADD C DO 10 I = 1,7 FILEA(I) = FILEM(I) 10 FILEB(I) = FILEK(I) DALPHA(1)=-LAMBDA DBETA(1) = 1.0D0 TYPALP = IPREC TYPBTA = IPREC NZ = KORSZ(Z) FILEC(1) = SCR1 FILEC(2) = FILEK(2) FILEC(3) = FILEK(3) FILEC(4) = SQR FILEC(5) = IPREC NOMAT = 2 IF (FILEB(1) .EQ. 0) NOMAT = 1 CALL SADD (Z,Z) CALL WRTTRL (FILEC) RETURN END ================================================ FILE: mis/invp2.f ================================================ SUBROUTINE INVP2 (*) C C INVP2 INITIALIZES THEN CALLS EITHER SDCOMP OR DECOMP DEPENDING ON C THE OPTION SELECTED ON THE EIGR CARD C INTEGER FILEA ,FILEL ,FILEU ,SCR1 , 1 SCR2 ,SCR3 ,SCR4 ,SCR5 , 2 SR1FIL ,SR2FIL ,DUM ,SCR6 , 3 RDP ,UPRTRI , 4 SWITCH ,SCR7 ,SCR8 ,OPTION , 5 OPT2 ,PREC ,Q(1) DOUBLE PRECISION DET ,DETDET ,DETC ,MINDD COMMON /SFACT / FILEA(7) ,FILEL(7) ,FILEU(7) ,SR1FIL , 1 SR2FIL ,NZ ,DET ,DETC , 2 POWER ,ISR3FL ,MINDD ,ICHL COMMON /INVPXX/ DUMM(12) ,SWITCH COMMON /INVPWX/ DUM(14) ,SCR1(7) ,SCR2(7) ,SCRX , 1 SCRXX ,SCR3 ,SCR4 ,SCR5 , 2 SCR6 ,SCR7 ,SCR8 COMMON /NAMES / IJ(8) ,RDP ,IK(5) ,LOWTRI , 1 UPRTRI COMMON /DCOMPX/ IA(7) ,IL(7) ,IU(7) ,ISCR1 , 1 ISCR2 ,ISCR3 ,DETDET ,IPOWR , 2 MZ ,MIND COMMON /SYSTEM/ KSYSTM(63) COMMON /REIGKR/ OPTION COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Q(1),Z(1)) EQUIVALENCE (KSYSTM(55),PREC) DATA OPT2 / 4HUINV/ C FILEA(1) = SCR1(1) IF (SWITCH .EQ. 1) GO TO 10 FILEL(1) = SCR2(1) FILEU(1) = SCR3 GO TO 20 10 FILEL(1) = SCR7 FILEU(1) = SCR8 20 CONTINUE SR1FIL = SCR4 SR2FIL = SCR5 ISR3FL = SCR6 ICHL = 0 FILEA(2) = DUM(2) FILEA(3) = DUM(3) FILEA(4) = DUM(4) FILEA(5) = PREC FILEA(6) = 0 FILEA(7) = 0 FILEL(5) = PREC IF (OPTION .EQ. OPT2) GO TO 40 C C SYMMETRIC DECOMPOSITION SELECTED. C NZ = KORSZ(Z) CALL SDCOMP (*30,Z,Z,Z) FILEL(3) = FILEL(2) FILEL(4) = LOWTRI CALL WRTTRL (FILEL) RETURN 30 RETURN 1 C C UNSYMMETRIC DECOMPOSITION SELECTED. C 40 DO 50 I = 1,21 IA(I) = FILEA(I) 50 CONTINUE ISCR1 = SCR4 ISCR2 = SCR5 ISCR3 = SCR6 MZ = KORSZ(Q) CALL DECOMP (*30,Q,Q,Q) IL(3) = IL(2) IL(4) = LOWTRI CALL WRTTRL (IL) IU(3) = IU(2) IU(4) = UPRTRI IU(5) = IL(5) CALL WRTTRL (IU) RETURN END ================================================ FILE: mis/invp3.f ================================================ SUBROUTINE INVP3 (NORM1,SUB,MTIMSU,XTRNSY) C C SUBROUTINE INVP3, THE MAIN LINK OF INVPWR, SOLVES FOR THE C EIGENVALUES AND EIGENVECTORS OF (K-LAMBDA*M) C THIS ROUTINE HANDLES BOTH SINGLE AND DOUBLE PRECISION VERSIONS C EXTERNAL NORM1 ,SUB ,MTIMSU ,XTRNSY INTEGER FILEK ,END ,SYSBUF ,SR2FIL , 1 SR3FIL ,FILEL ,FILELT ,NAME(2) , 2 SR7FIL ,COMFLG ,TIMEIT ,TIMED , 3 SR8FIL ,SWITCH ,T1 ,T2 , 4 OPTION ,OPT2 ,FILEM ,FILEVC , 5 FILELM ,MCBVC(7) ,DMPFIL INTEGER REW ,EOFNRW REAL LAMMIN ,LAMMAX DOUBLE PRECISION DZ(1) ,ALN ,ALNM1 ,CN , 1 DTEMP ,LAM1 ,LM1NM1 ,ETA , 2 ETANM1 ,LAM2 ,LM2NM1 ,H2N , 3 H2NM1 ,DELTA ,LAMBDA ,LMBDA , 4 LAM1D ,FREQ COMMON /ZZZZZZ/ Z(1) COMMON /UNPAKX/ ITU ,IIU ,JJU ,INCRU COMMON /PACKX / ITP1 ,ITP2 ,IIP ,JJP , 1 INCRP COMMON /INVPWX/ FILEK(7) ,FILEM(7) ,SR1FIL(7),SR2FIL(7), 1 FILELM ,FILEVC ,SR3FIL ,SR4FIL , 2 SR5FIL ,SR6FIL ,SR7FIL ,SR8FIL , 3 DMPFIL ,LAMMIN ,LAMMAX ,NOEST , 4 NDPLUS ,NDMNUS ,EPS ,NORTHO COMMON /SYSTEM/ KSYSTM(65) COMMON /INFBSX/ FILEL(7) ,FILELT(7) COMMON /FBSX / LFILE(7) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW COMMON /INVPXX/ LAMBDA ,COMFLG ,ITERTO ,TIMED , 1 NOPOS ,RZERO ,NEG ,NOCHNG , 2 IND ,LMBDA ,SWITCH ,NZERO , 3 NONEG ,IVECT ,IREG ,ISTART COMMON /REIGKR/ OPTION COMMON /DCOMPX/ DUMX(20) ,IOFFF COMMON /TRDXX / IDUMMY(27),IOPEN COMMON /REGEAN/ IDUM40(40),IBUCK EQUIVALENCE (DZ(1) ,Z(1) ) ,(KSYSTM( 1),SYSBUF ), 1 (KSYSTM( 2),IOUTPT) ,(KSYSTM( 9),NLPP ), 2 (KSYSTM(12),NLNS ) ,(KSYSTM(55),IPREC ) DATA NAME / 4HINVP, 4H3 / ,OPT2 / 4HUINV / C C DEFINITION OF LOCAL PARAMETERS C C ITER = NUMBER OF ITERATIONS FROM THE CURRENT SHIFT POINT C IRAPID = 1 = RAPID CONVERGENCE DO ONE MORE ITERATION C IEP2 = 1 = EPSILON 2 TEST FAILED C A = CONVERGENCE SAFETY FACTOR C EP1 = EPSILON FOR DETERMINING IF IT IS POSSIBLE TO SHIFT C EP2 = EPSILON TO DETERMINE IF LAMBDA 2 IS VALID C EP3 = EPSILON TO DETERMINE IF EIGENVALUE IS TOO CLOSE TO SHI C GAMMA = CLOSE ROOT CRITERION C II1 = POINTER TO U(N) C II2 = POINTER TO U(N-1) OR DELTA U(N) C JJ1 = POINTER TO F(N) C JJ2 = POINTER TO DELTA F(N-1) C JJ3 = POINTER TO F(N-1) OR DELTA F(N) C ALN = ALPHA(N) C ALNM1 = ALPHA(N-1) C CN = NORMALIZATION FACTOR FOR LAST EIGENVECTOR C IOPEN = -10 CALL SSWTCH (16,L16) KHR = 0 NZ = KORSZ(Z) NCOL = FILEK(2) NCOL2 = NCOL*IPREC CALL MAKMCB (MCBVC,FILEVC,NCOL,2,IPREC) ITU = IPREC IIU = 1 JJU = NCOL INCRU = 1 ITP1 = IPREC ITP2 = IPREC IIP = 1 JJP = NCOL INCRP = 1 C C INITIALIZE C ITER = 0 IRAPID= 0 IEP2 = 0 KEP2 = 0 KOLD =-1 KOUNT = 0 GO TO 30 C 10 IF (NORTHO .EQ. 0) GO TO 30 CALL KLOCK (ICURNT) CALL TMTOGO (IIJJKK) NAVG = (ICURNT-ISTART)/NORTHO IF (IIJJKK .GE. 2*NAVG) GO TO 30 20 COMFLG = 8 GO TO 1140 C 30 IEPCNT = 0 IF (SWITCH .EQ. 1) GO TO 40 FILEL(1) = SR2FIL(1) FILELT(1) = SR3FIL GO TO 50 40 FILEL(1) = SR7FIL FILELT(1) = SR8FIL C 50 DO 60 I = 2,7 LFILE(I) = FILEK(I) 60 FILEL(I) = FILEK(I) LFILE(5) = IPREC FILEL(5) = IPREC LFILE(1) = FILEL(1) FILELT(7)= IOFFF C C SET CONVERGENCE CRITERIA C A = .1 EP1 = .003 EP2 = .00001 EP2 = .02 EP3 = .05 GAMMA = .01 IF (L16.EQ.0 .OR. KHR.NE.0) GO TO 100 CALL PAGE1 NLNS = NLNS + 10 WRITE (IOUTPT,70) 70 FORMAT (85H0D I A G 1 6 O U T P U T F R O M R O U T I N E 1 I N V P 3 F O L L O W S . ,//) WRITE (IOUTPT,80) RZERO,EPS,GAMMA,A,EP1,EP2,EP3 80 FORMAT (8H0RZERO =,1P,E13.5,4X,5HEPS =,1P,E13.5,4X,7HGAMMA =, 1 1P,E13.5,4X,3HA =,1P,E13.5, /,8H EP1 =,1P,E13.5,4X, 2 5HEP2 =,1P,E13.5,4X,7HEP3 =,1P,E13.5) WRITE (IOUTPT,90) 90 FORMAT (5H0ITER,5H CFLG,11X,3HSTP,11X,3HSHP,10X,4HLAM1,10X,4HLAM2, 1 11X,3HETA,9X,5HDELTA,4X,1HK,11X,3HH2N,9X,5HLAM1D,/1X,126(1H=)) C C INITIALIZE POINTERS TO VECTORS C 100 II1 = 1 II2 = II1 + NCOL2 JJ1 = II2 + NCOL2 JJ2 = JJ1 + NCOL2 JJ3 = JJ2 + NCOL2 JJ4 = JJ3 + NCOL2 JJ5 = JJ4 + NCOL2 END = JJ5 + NCOL2 IEND = END END = IEND + NCOL IBUF1 = NZ - SYSBUF IBUF2 = IBUF1- SYSBUF IBUF3 = IBUF2- SYSBUF IOBUF = IBUF3- SYSBUF IF (END .GE. IOBUF) GO TO 1300 C C GET ORTHOGONALITY FLAGS FOR PREVIOUS EIGENVECTORS C IF (ITERTO .NE. 0) GO TO 160 IF (NORTHO .EQ. 0) GO TO 170 CALL GOPEN (FILEVC,Z(IOBUF),RDREW) CALL GOPEN (FILEM ,Z(IBUF1),RDREW) DO 150 I = 1,NORTHO IX = IEND + I - 1 Z(IX) = 1.0 CALL UNPACK (*110,FILEVC,Z(II1)) GO TO 140 110 J = NCOL2 IF (IPREC .EQ. 2) GO TO 130 120 Z(J) = 0.0 J = J - 1 IF (J .GT. 0) GO TO 120 GO TO 140 130 DZ(J) = 0.0D0 J = J - 1 IF (J .GT. 0) GO TO 130 140 CALL M TIMS U (Z(II1),Z(JJ1),Z(IBUF1)) CALL X TRNS Y (Z(II1),Z(JJ1),DTEMP) IF (DTEMP .LT. 0.0D0) Z(IX) = -1.0 150 CONTINUE CALL CLOSE (FILEM ,REW) CALL CLOSE (FILEVC,REW) GO TO 170 160 IF (NORTHO .EQ. 0) GO TO 170 IFILE = DMPFIL CALL GOPEN (DMPFIL,Z(IOBUF),RDREW) CALL READ (*1310,*1320,DMPFIL,Z(IEND),NORTHO,1,IDUM) CALL CLOSE (DMPFIL,1) 170 IFILE = FILEM(1) CALL GOPEN (IFILE,Z(IBUF3),RDREW) IFILE = FILEL(1) CALL GOPEN (IFILE,Z(IBUF1),RDREW) CWKBNB 1/95 FILELT NOT NEEDED FOR SMCOMP OR SDCOMP - ONLY DECOMP IF (OPTION .NE. OPT2) GO TO 171 IFILE = FILELT(1) CALL GOPEN (IFILE,Z(IBUF2),RDREW) 171 CONTINUE CWKBNE 1/95 C C GENERATE A STARTING VECTOR C IF (IVECT . EQ. 1) GO TO 240 KSAVE = K K = IABS(IND) IF (IPREC .EQ. 2) GO TO 210 DO 200 I = 1,NCOL Z(I) = 1.0/FLOAT((MOD(K,13)+1)*(1+5*I/NCOL)) 200 K = K + 1 GO TO 230 210 DO 220 I = 1,NCOL DZ(I) = 1.0D0/FLOAT((MOD(K,13)+1)*(1+5*I/NCOL)) 220 K = K + 1 230 K = KSAVE GO TO 310 C C USE PREVIOUSLY STORED VECTOR AS A STARTING VECTOR C 240 IFILE = FILEVC CALL GOPEN (FILEVC,Z(IOBUF),RD) CALL BCKREC (FILEVC) IN1 = 1 IF (COMFLG-1) 260,250,260 250 IN1 = JJ5 CALL BCKREC (FILEVC) 260 CALL UNPACK (*270,FILEVC,Z(IN1)) GO TO 300 270 J = IN1 + NCOL2 IF (IPREC .EQ. 2) GO TO 290 280 J = J - 1 Z(J) = 0.0 IF (J .GT. IN1) GO TO 280 GO TO 300 290 J = J - 1 DZ(J) = 0.0D0 IF (J .GT. IN1) GO TO 290 300 IF (COMFLG .EQ. 1) GO TO 320 CALL BCKREC (FILEVC) CALL CLOSE (FILEVC,NOREW) IVECT = 0 310 CONTINUE INTSUB = 1 GO TO 490 C C PICK UP THE LAST ITERATED VECTOR FOR A STARTING VECTOR C 320 CONTINUE CALL UNPACK (*330,FILEVC,Z) GO TO 360 330 J = NCOL2 IF (IPREC .EQ. 2) GO TO 350 340 Z(J) = 0.0 J = J - 1 IF (J .GT. 0) GO TO 340 GO TO 360 350 DZ(J) = 0.0D0 J = J - 1 IF (J.GT.0) GO TO 350 360 CALL BCKREC (FILEVC) CALL BCKREC (FILEVC) CALL CLOSE (FILEVC,NOREW) GO TO 310 C C SHIFT POINTERS TO VECTORS C 400 II = II1 II1 = II2 II2 = II II = JJ1 JJ1 = JJ2 JJ2 = JJ3 JJ3 = II IF (L16.EQ.0 .OR. KHR.EQ.0) GO TO 420 IF (NLNS .GE. NLPP) CALL PAGE1 NLNS = NLNS + 1 WRITE (IOUTPT,410) ITERTO,COMFLG, 1 LMBDA,LAMBDA,LAM1,LAM2,ETA,DELTA,K,H2N,LAM1D 410 FORMAT (2I5,6(1P,D14.5),I5,2(1P,D14.5)) 420 KHR = 1 C C SAVE N-1 VECTOR C IF (SWITCH .NE. 0) GO TO 460 IXX = JJ5 + NCOL2 - 1 IXZ = II2 IF (IPREC .NE. 2) GO TO 440 DO 430 I = JJ5,IXX,2 Z(I ) = Z(IXZ ) Z(I+1) = Z(IXZ+1) 430 IXZ = IXZ + 2 GO TO 460 440 DO 450 I = JJ5,IXX Z(I) = Z(IXZ) 450 IXZ = IXZ + 1 460 CONTINUE C C SHIFT PARAMETERS C ALNM1 = ALN ETANM1 = ETA H2NM1 = H2N LM1NM1 = LAM1 LM2NM1 = LAM2 C C CALL INVFBS TO MAKE ONE ITERATION C CALL KLOCK (T1) IF (OPTION .NE. OPT2) GO TO 470 IF (FILEL(5) .EQ. 2) CALL INVFBS (Z(JJ3),Z(II1),Z(IOBUF)) IF (FILEL(5) .EQ. 1) CALL INTFBS (Z(JJ3),Z(II1),Z(IOBUF)) GO TO 480 470 CALL FBSINV (Z(JJ3),Z(II1),Z(IOBUF)) 480 ITERTO = ITERTO + 1 ITER = ITER + 1 IEPCNT = IEPCNT + 1 CALL TMTOGO (IJKK) IF (IJKK .LE. 0) GO TO 20 INTSUB = 2 490 CONTINUE IF (NORTHO .EQ. 0) GO TO 550 C C NORMALIZE CURRENT ITERANT WITH RESPECT TO VECTORS FOUND IN THE C CURRENT AND PREVIOUS SEARCH REGIONS C CALL M TIMS U (Z(II1),Z(JJ1),Z(IOBUF)) IFILE = FILEVC CALL GOPEN (FILEVC,Z(IOBUF),RDREW) DO 540 I = 1,NORTHO CALL UNPACK (*500,FILEVC,Z(JJ4)) GO TO 530 500 J = JJ4 + NCOL2 IF (IPREC .EQ. 2) GO TO 520 510 J = J - 1 Z(J) = 0.0 IF (J .GT. JJ4) GO TO 510 GO TO 530 520 J = J - 1 DZ(J) = 0.0D0 IF (J .GT. JJ4) GO TO 520 530 CALL X TRNS Y (Z(JJ4),Z(JJ1),DTEMP) IX = IEND + I - 1 DTEMP = -DTEMP*Z(IX) 540 CALL SUB (Z(JJ4),Z(II1),DTEMP,-1.0D0) CALL CLOSE (FILEVC,NOREW) 550 CALL NORM1 (Z(II1),CN) C C BEGIN TESTING CONVERGENCE CRITERIA C C COMPUTE F(N) C CALL M TIMS U (Z(II1),Z(JJ1),Z(IOBUF)) C C COMPUTE ALPHA(N) C CALL X TRNS Y (Z(II1),Z(JJ1),ALN) ALN = DSQRT(DABS(ALN)) C C COMPUTE DELTA U(N) C GO TO (400,600), INTSUB 600 CALL SUB (Z(II1),Z(II2),1.0D0/ALN,1.0D0/ALNM1) C C COMPUTE DELTA F(N) C CALL SUB (Z(JJ1),Z(JJ3),1.0D0/ALN,1.0D0/ALNM1) LAM1 = ALNM1/(CN*ALN) IF (IRAPID .EQ. 1) GO TO 900 CALL X TRNS Y (Z(II2),Z(JJ3),ETA) ETA = DSQRT(DABS(ETA)) C C RAPID CONVERGENCE TEST C IF (ETA .GE. A*EPS*GAMMA*DABS(1.0D0+LAMBDA/LAM1)) GO TO 620 610 IRAPID = 1 GO TO 400 620 IF (ITER .EQ. 1) GO TO 400 IF (ETANM1 .GE. 1.E-6) GO TO 700 IF (ETA - 1.01*ETANM1) 700,700,610 C C EPSILON 2 TEST C 700 IF (IEP2 .EQ. 1) GO TO 720 IF (ETA .EQ. 0.D0) GO TO 910 CALL X TRNS Y (Z(II2),Z(JJ2),DTEMP) LAM2 = LAM1*DTEMP/ETA**2 H2N = (LAM2-LM2NM1)/LAMBDA CWKBI 3/94 THE FOLLOWING LINE ADDED TO GET AROUND AN APPARENT COMPILER BUG ON C ULTRIX IF ( ETA .EQ. 0.D0)print *,' invp3,lam1,dtemp,eta=',lam1,dtemp,eta IF (ITER .LT. 4) GO TO 720 IF (EP2.GT.DABS(H2N) .AND. DABS(H2N).GT.DABS(H2NM1)) GO TO 710 GO TO 720 710 CONTINUE IEP2 = 1 LAM2 = LM2NM1 720 DELTM1 = DELTA DELTA = ETA**2/DMIN1((1.0D0-LAM2/LAM1)**2,10.0D0) C C VECTOR CONVERGENCE TEST C IF (DSQRT(DELTA) .LE. A*EPS) GO TO 910 IF (ITER .LE. 3) GO TO 400 C C EPSILON 1 TEST C IF (IEPCNT .GE. 100) GO TO 1270 IF (IEPCNT .GE. 10) GO TO 800 LAM1D = DABS(LAM1-LM1NM1)/RZERO IF (LAM1D .GE. DBLE(EP1)) GO TO 400 800 CONTINUE C C SHIFT DECISION C IF (IEPCNT.GT.5 .AND. DELTA.GT.DELTM1) GO TO 850 IF (DABS(LAM2/LAM1) .GT. 1.) GO TO 820 IF (KEP2) 850,810,810 810 KEP2 = -1 GO TO 400 820 KEP2 = 0 CALL KLOCK (T2) TIMEIT = T2 - T1 K= DLOG(DSQRT(DABS(DELTA))/(A*EPS))/DABS(DLOG(DABS(LAM2/LAM1)))+1. K= MIN0(K,9999) IF (K .NE. KOLD) GO TO 830 KOUNT = KOUNT + 1 IF (KOUNT .GE. 6) GO TO 850 GO TO 840 830 KOLD = K KOUNT = 0 840 CONTINUE 850 LAMBDA= LAMBDA + LAM1 K = 0 KOLD =-1 KOUNT = 0 IEPCNT= 0 IF (L16 .EQ. 0) GO TO 870 IF (NLNS .GE. NLPP) CALL PAGE1 NLNS = NLNS + 3 WRITE (IOUTPT,860) LAMBDA 860 FORMAT (18H0NEW SHIFT POINT =,1P,D14.5,/) C C STORE THE LAST VECTOR BEFORE A SHIFT FOR USE AS A STARTING VECTOR C 870 IF (SWITCH .EQ. 1) GO TO 880 IN1 = II1 GO TO 890 880 IN1 = JJ5 890 IFILE = FILEVC CALL GOPEN (FILEVC,Z(IOBUF),WRT) CALL PACK (Z(IN1),FILEVC,MCBVC) IVECT = 1 COMFLG = 1 C C STORE THE CURRENT VECTOR ON THE EIGENVECTOR FILE SO IT CAN BE C USED AS A STARTING VECTOR C CALL PACK (Z(II1),FILEVC,MCBVC) CALL CLOSE (FILEVC,EOFNRW) GO TO 1140 C C MAKE EPSILON 1 TEST C 900 IF (DABS (LAM1-LM1NM1)/RZERO .GE. DBLE(EP1)) GO TO 400 C C CONVERGENCE ACHIEVED, NORMALIZE THE EIGENVECTOR C 910 CALL M TIMS U (Z(II1),Z(JJ1),Z(IOBUF)) CALL X TRNS Y (Z(II1),Z(JJ1),DTEMP) IX = IEND + NORTHO Z(IX) = 1.0 IF (DTEMP .LT. 0.0D0) Z(IX) = -1.0 DTEMP = 1.0D0/DSQRT(DABS(DTEMP)) J = II1 KLOCAL = II1 + NCOL2 - 1 IF (IPREC .NE. 2) GO TO 930 J = (J+1)/2 KLOCAL = KLOCAL/2 DO 920 I = J,KLOCAL 920 DZ(I) = DZ(I)*DTEMP GO TO 950 930 DO 940 I = J,KLOCAL 940 Z(I) = Z(I)*DTEMP 950 CONTINUE C C STORE THE EIGENVECTOR AND EIGENVALUE ON THE OUTPUT FILES C LAM1 = LAM1 + LAMBDA IF (L16 .EQ. 0) GO TO 1010 IF (NLNS .GE. NLPP) CALL PAGE1 NLNS = NLNS + 3 FREQ = (1.0D0/(8.0D0*DATAN(1.0D0)))*DSQRT(DABS(LAM1)) WRITE (IOUTPT,1000) LAM1,FREQ 1000 FORMAT (32H0CONVERGENCE ACHIEVED AND LAM1 =,1P,D14.5, 1 7X,'FREQ =',1P,D14.5,'HZ',/) 1010 IFILE = FILEVC CALL GOPEN (FILEVC,Z(IOBUF),WRT) CALL PACK (Z(II1),FILEVC,MCBVC) CALL CLOSE (FILEVC,EOFNRW) CALL GOPEN (FILELM,Z(IOBUF),WRT) CALL WRITE (FILELM,LAM1,2,1) CALL CLOSE (FILELM,EOFNRW) CALL CLOSE (SR7FIL,EOFNRW) CALL CLOSE (FILEL,REW) CALL CLOSE (FILELT,REW) CALL CLOSE (FILEM,REW) NORTHO = NORTHO + 1 IEP2 = 0 IRAPID = 0 NOCHNG = 0 IF (LAM1) 1020,1030,1030 1020 IF (IBUCK .NE. 3) GO TO 1030 IF (LAM1 .GE. LAMMIN) NONEG = NONEG + 1 GO TO 1040 1030 IF (LAM1 .LE. LAMMAX) NOPOS = NOPOS + 1 1040 IF (NOPOS.GE.NDPLUS .AND. NONEG.GE.NDMNUS) GO TO 1230 IF (NORTHO .GE. NCOL-NZERO) GO TO 1220 IF (NORTHO .GE. 3*NOEST) GO TO 1210 COMFLG = 0 IF (SWITCH .EQ. 0) GO TO 1050 SWITCH = 0 LAMBDA = LMBDA GO TO 1060 1050 CONTINUE IVECT = 0 IF (ITER .LE. 5) GO TO 1070 1060 IN1 = JJ5 CALL GOPEN (FILEVC,Z(IOBUF),WRT) CALL PACK (Z(IN1),FILEVC,MCBVC) CALL CLOSE (FILEVC,EOFNRW) IVECT = 1 1070 ITER = 0 C C TEST IF REGION IS EXHAUSTED C IF (NEG) 1120,1100,1110 C C NO NEGATIVE REGION C 1100 IF (LAM1 .GT. LAMMAX) GO TO 1240 GO TO 1130 C C ON POSITIVE SIDE C 1110 IF (NOPOS.LT.NDPLUS .AND. LAM1.LE.LAMMAX) GO TO 1130 C C SWITCH TO NEGATIVE SIDE C COMFLG = 3 GO TO 1140 C C ON NEGATIVE SIDE C 1120 IF (NONEG.GE.NDMNUS .OR. LAM1.LT.LAMMIN) GO TO 1240 C C CONTINUE ON SAME SIDE C 1130 IF (LAM1.LE.LAMBDA+RZERO .AND. LAM1.GE.LAMBDA-RZERO) GO TO 1250 IF (IREG.NE.0 .AND. IND.GT.0) GO TO 1200 COMFLG = 0 IND = -IND 1140 CALL CLOSE (FILEL,REW) CALL CLOSE (FILELT,REW) CALL CLOSE (FILEM,REW) CALL WRTTRL (MCBVC) IF (L16 .EQ. 0) GO TO 1150 IF (NLNS .GE. NLPP) CALL PAGE1 NLNS = NLNS + 1 WRITE (IOUTPT,410) ITERTO,COMFLG,LMBDA,LAMBDA, 1 LAM1,LAM2,ETA,DELTA,K,H2N,LAM1D 1150 IF (NORTHO .EQ. 0) RETURN C CALL GOPEN (DMPFIL,Z(IOBUF),WRTREW) CALL WRITE (DMPFIL,Z(IEND),NORTHO,1) CALL CLOSE (DMPFIL,1) RETURN C 1200 IND = -(IND+1) IVECT = 0 IF (IND .EQ .-13) IND = -1 GO TO 1260 1210 COMFLG = 4 GO TO 1140 1220 COMFLG = 5 GO TO 1140 1230 COMFLG = 6 GO TO 1140 1240 COMFLG = 7 GO TO 1140 1250 IND = IABS(IND) IREG = 1 XXX = LAM1 - LAMBDA IF (EPS*ABS(RZERO) .GE. EP3*ABS(XXX)) GO TO 1270 1260 IF (NORTHO .EQ. 0) GO TO 10 CALL GOPEN (DMPFIL,Z(IOBUF),WRTREW) CALL WRITE (DMPFIL,Z(IEND),NORTHO,1) CALL CLOSE (DMPFIL,1) GO TO 10 C C CURRENT SHIFT POINT TOO CLOSE TO THE EIGENVALUE C 1270 IF (COMFLG .NE. 2) GO TO 1280 COMFLG = 9 GO TO 1140 1280 CONTINUE XXX = LAM1 - LAMBDA LAMBDA = LAMBDA + SIGN(.02,XXX)*RZERO COMFLG = 2 GO TO 1140 C C ERROR EXITS C 1300 NO = -8 IFILE = END - IOBUF GO TO 1330 1310 NO = -2 GO TO 1330 1320 NO = -3 1330 CALL MESAGE (NO,IFILE,NAME(1)) RETURN END ================================================ FILE: mis/invpwr.f ================================================ SUBROUTINE INVPWR C C GIVEN A REAL SYMETRIC MATRIX, INVPWR WILL SOLVE FOR ALL OF THE C EIGENVALUES AND EIGENVECTORS WITHIN A SPECIFIED RANGE C C DEFINITION OF INPUT AND OUTPUT PARAMETERS C C FILEK(7) = MATRIX CONTROL BLOCK FOR THE INPUT STIFFNESS MATRIX K C FILEM(7) = MATRIX CONTROL BLOCK FOR THE INPUT MASS MATRIX M C FILELM(7)= MATRIX CONTROL BLOCK FOR THE OUTPUT EIGENVALUES C FILEVC(7)= MATRIX CONTROL BLOCK FOR THE OUTPUT EIGENVECTORS C SR1FIL- C SR7FIL = SCRATCH FILES REQUIRED INTERNALLY C LAMMIN = MINIMUM VALUE FOR THE EIGENVALUE C LAMMAX = MAXIMUM VALUE FOR THE EIGENVALUE C NOEST = NUMBER OF ESTIMATED EIGENVALUES WITHIN THE SPECIFIED C RANGE C NDPLUS = NUMBER OF DESIRED EIGENVALUES IN THE POSITIVE RANGE C NDMNUS = NUMBER OF DESIRED EIGENVALUES IN THE NEGATIVE RANGE C EPS = CONVERGENCE CRITERIA C C FILELM AND FILEVC WILL BE USED AS SR1FIL AND SR2FIL WHILE THE C EIGENVALUES AND EIGENVECTORS WILL BE STORED ON THE ACTUAL SR1FIL C AND SR2FIL. THE ORDERING OF THE EIGENVALUES AND EIGENVECTORS WILL C PUT THEM ON FILELM AND FILEVC IN THE CORRECT SEQUENCE AT THE END C OF THE SUBROUTINE C C SR1FIL-FILELM CONTAINS (K-LAMBDA*M) C SR2FIL-FILEVC CONTAINS THE LOWER TRIANGLE L C SR3FIL CONTAINS THE UPPER TRIANGLE U C SR4FIL IS USED AS SCRATCH IN DECOMP C SR5FIL IS USED AS SCRATCH IN DECOMP C SR6FIL IS USED AS SCRATCH IN DECOMP C SR7FIL CONTAINS THE VECTORS WHICH ARE USED TO ORTHOGONALIZE C THE CURRENT ITERATE C EXTERNAL NORM11 ,SUB1 ,MTMSU1 ,XTRNY1 , 1 NORM1 ,SUB ,MTIMSU ,XTRNSY INTEGER SYSBUF ,COMFLG ,FILEK ,NAME(2) , 1 SWITCH ,DMPFIL ,IZ(12) ,STURM , 2 T1 ,T2 ,TIMED INTEGER WRTREW ,REW ,SR1FIL ,SR2FIL REAL LAMMIN ,LAMMAX ,LMIN ,Z , 1 ZZ(1) DOUBLE PRECISION LAMBDA ,LMBDA COMMON /DCOMPX/ DUMXX(35) ,ISYM COMMON /INVPWX/ FILEK(7) ,FILEM(7) ,FILELM(7),FILEVC(7), 1 SR1FIL ,SR2FIL ,SR3FIL ,SR4FIL , 2 SR5FIL ,SR6FIL ,SR7FIL ,SR8FIL , 3 DMPFIL ,LAMMIN ,LAMMAX ,NOEST , 4 NDPLUS ,NDMNUS ,EPS ,NORTHO COMMON /STURMX/ STURM ,SHFTPT ,KEEP(2) COMMON /INVPXX/ LAMBDA ,COMFLG ,ITER ,TIMED , 1 NOPOS ,RZERO ,NEG ,NOCHNG , 2 IND ,LMBDA ,SWITCH ,NZERO , 3 NONEG ,IVECT ,IREG ,ISTART COMMON /SYSTEM/ KSYSTM(65) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (ZZ(1),Z(1)) EQUIVALENCE (IZ(1),Z(1)), (KSYSTM(1),SYSBUF), 1 (KSYSTM(55),IPREC) DATA NAME / 4HINVP,4HWR / C C DEFINITION OF INTERNAL PARAMETERS C C NSHIFT = NUMBER OF SHIFT POINTS C ISHIFT = CURRENT SHIFT REGION C NOVECT = NUMBER OF EIGENVECTORS FOUND IN A GIVEN REGION C NOSKIP = NUMBER OF VECTORS TO SKIP TO REACH THE LAST SHIFT REGION C NEG = 1 = FIND NEGATIVE ROOTS C 0 = FIND ONLY POSITIVE ROOTS C -1 = WE ARE NOW SEARCHING FOR THE NEGATIVE ROOTS C LAMBDA = THE CURRENT SHIFT POINT C RZEROP = THE CURRENT EIGENVALUE MUST BE .LT. LAMBDA + RZEROP C RZEROM = THE CURRENT EIGENVALUE MUST BE .GT. LAMBDA - RZEROM C LMBDA = THE ORIGINAL VALUE OF LAMBDA IN A GIVEN REGION C COMFLG = 0 = INITIAL ENTRY WITH NEW LAMBDA C 1 = NEW SHIFT POINT WITHIN THE SEARCH REGION C 2 = NEW SHIFT DUE TO CLOSENESS TO AN EIGENVALUE C 3 = NUMBER OF DESIRED POSITIVE ROOTS FOUND C 4 = NUMBER FOUND EXCEEDS 3*NOEST C ISING = SINGULARITY FLAG 0 = NO SINGULARITY C 1 = SINGULAR MATRIX - CHANGE LAMBDA C AND TRY ONE MORE TIME C ITER = TOTAL NUMBER OF ITERATIONS C NOCHNG = NUMBER OF SHIFTS WITHIN ONE REGION C TIMED = TIME REQUIRED TO FORM AND DECOMPOSE (K-LAMBDA*M) C NFIRST = NUMBER OF VECTORS IN THE FIRST POSITIVE SEARCH REGION C ISYM = 1 NSHIFT = (NOEST+5)/6 MXCHNG = MAX0 (10, NSHIFT) NCOL = FILEK(2) NCOL2 = 2*NCOL ISHIFT = 1 NZ = KORSZ(ZZ(1)) ICRQ = NCOL*(1+7*IPREC) + 4*SYSBUF - NZ IF (ICRQ .GT. 0) GO TO 220 NZ = KORSZ(Z(1)) IBUF1 = NZ - SYSBUF ICRQ = NCOL2 - IBUF1 IF (IBUF1 .LE. NCOL2) GO TO 220 NOPOS = NORTHO NONEG = 0 NEG = 0 IND = 0 ITER = 0 NODCMP = 0 NOSTRT = 0 NOMOVS = 0 IF (NORTHO .GT. 0) GO TO 20 CALL GOPEN (SR1FIL,Z(IBUF1),WRTREW) CALL CLOSE (SR1FIL,NOREW) CALL GOPEN (SR2FIL,Z(IBUF1),WRTREW) CALL CLOSE (SR2FIL,NOREW) 20 LMIN = LAMMIN IF (LAMMIN .GE. 0.0) GO TO 30 LMIN = 0. NEG = 1 IF (LAMMAX .GT. 0.0) GO TO 30 LMIN = LAMMAX NEG =-1 DELLAM = LAMMIN - LAMMAX GO TO 40 C C EVALUATE THE VALUE OF LAMBDA IN THE CENTER OF THE CURRENT SEARCH C REGION C 30 DELLAM = LAMMAX - LMIN 40 LAMBDA = LMIN + (ISHIFT - 0.5)*DELLAM/NSHIFT RZERO = ABS(0.55*DELLAM/NSHIFT) NOSTRT = NOSTRT + 1 50 COMFLG = 0 LMBDA = LAMBDA C C INITIATE CLOCK TIME C CALL KLOCK (ISTART) NOCHNG = 0 SWITCH = 0 IVECT = 0 IREG = 0 IND = IND + 1 IF (IABS(IND) .EQ. 13) IND = 1 ISING = 0 GO TO 90 70 ISING = 0 SWITCH = 1 90 IF (NOCHNG .GE. MXCHNG) GO TO 160 NOCHNG = NOCHNG + 1 CALL KLOCK (T1) C C CALL IN ADD LINK TO FORM (K-LAMBDA*M) C CALL INVP1 C C CALL IN DECOMP TO DECOMPOSE THIS MATRIX C NODCMP = NODCMP + 1 SHFTPT = LAMBDA CALL INVP2 (*100) CALL KLOCK (T2) GO TO 110 C C SINGULAR MATRIX. INCREMENT LAMBDA AND TRY ONCE MORE C 100 IF (ISING .EQ. 1) GO TO 150 ISING = 1 LAMBDA = LAMBDA + .02*RZERO GO TO 90 C C DETERMINE THE TIME REQUIRED TO FORM AND DECOMPOSE (K-LAMBDA*M) C 110 TIMED = T2 - T1 C C CALL IN THE MAIN LINK TO ITERATE FOR EIGENVALUES C IF (IPREC .EQ. 1) CALL INVP3 (NORM11,SUB1,MTMSU1,XTRNY1) IF (IPREC .EQ. 2) CALL INVP3 (NORM1 ,SUB ,MTIMSU,XTRNSY) IF (COMFLG .EQ. 2) GO TO 200 IF (COMFLG .EQ. 1) GO TO 70 IF (COMFLG .EQ. 3) GO TO 130 IF (COMFLG .EQ. 0) GO TO 120 GO TO 170 120 ISHIFT = ISHIFT + 1 IF (ISHIFT .GT. NSHIFT) GO TO 130 GO TO 40 130 IF (NEG) 180,180,140 C C INITIALIZE PARAMETERS TO SOLVE FOR NEGATIVE EIGENVALUES C 140 X = NSHIFT*(-LAMMIN/LAMMAX) IX = X Y = IX IF (X .NE. Y) IX = IX + 1 NSHIFT = IX NEG =-1 DELLAM = LAMMIN ISHIFT = 1 GO TO 40 150 ITERM = 1 GO TO 190 160 ITERM = 2 GO TO 190 170 ITERM = COMFLG GO TO 190 180 ITERM = 3 C C RE-ORDER EIGENVALUES AND EIGENVECTORS C 190 CALL GOPEN (DMPFIL,Z(IBUF1),WRTREW) IZ( 1) = 2 IZ( 2) = NORTHO IZ( 3) = NOSTRT IZ( 4) = NOMOVS IZ( 5) = NODCMP IZ( 6) = ITER IZ( 7) = 0 IZ( 8) = ITERM IZ( 9) = 0 IZ(10) = 0 IZ(11) = 0 IZ(12) = 0 CALL WRITE (DMPFIL,IZ,12,1) CALL CLOSE (DMPFIL,REW) RETURN 200 NOMOVS = NOMOVS + 1 GO TO 50 220 NO =-8 IFILE = ICRQ CALL MESAGE (NO,IFILE,NAME) RETURN END ================================================ FILE: mis/invtr.f ================================================ SUBROUTINE INVTR (*,X,DX) C C INVTR WILL INVERT A LOWER OR UPPER TRIANGULAR MATRIX C C C FILEA = MATRIX CONTROL BLOCK FOR THE INPUT FILE A C FILEB = MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX B C SCRFIL = SCRATCH FILE (NEEDED ONLY FOR AN UPPER TRIANGLE) C NX = NUMBER OF CELLS OF CORE AVAILABLE AT X C PREC = DESIRED PRECISION OF ARITHMETIC OPERATIONS C X = BLOCK OF AVAILABLE CORE C DX = SAME BLOCK AS X, BUT TYPED DOUBLE PRECISION C INTEGER RD,RDREW,WRT,WRTREW,REW,NOREW,EOFNRW,RC,TRA2, 1 CORE,EOL,OUTBUF,TYPEA,TYPEB,PREC,TYPEAR, 2 FORMA,SYSBUF,BAKSKP,FORSKP,CMPLX,TRA,TRA1,SCRFIL, 3 FILEA,FILEB,T DOUBLE PRECISION DX(1),DA(2),DTEMP DIMENSION X(1),NAME(2),T(7) COMMON /TYPE / PRC(2),NWDS(4),RC(10) COMMON /SYSTEM/ SYSBUF C COMMON /DESCRP/ LENGTH,MAJOR(1) COMMON /ZNTPKX/ A(4),II,EOL COMMON /INVTRX/ FILEA(7),FILEB(7),SCRFIL,NX,PREC COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW,NOREW,EOFNRW COMMON /PACKX / IT1,IT2,IY,JY ,INCRY COMMON /UNPAKX/ ITX1,IX,JX ,INCRX EQUIVALENCE (A(1),DA(1)),(FILEA(3),NROW),(FILEA(4),FORMA), 1 (FILEA(5),TYPEA),(FILEB(5),TYPEB) DATA NAME / 4HINVT,4HR /, T /7*0/ C C INITIALIZE C TYPEAR = RC(TYPEA) TYPEAR = RC(TYPEAR) + PREC - 1 INCR = NWDS(TYPEAR) IT1 = TYPEAR IT2 = TYPEB ITX1 = TYPEAR INCRX = 1 INCRY = 1 FILEB(2) = 0 FILEB(6) = 0 FILEB(7) = 0 IOBUF = NX - SYSBUF CMPLX = RC(TYPEAR) CORE = IOBUF - 1 CALL GOPEN (FILEB,X(IOBUF),1) CALL CLOSE (FILEB,NOREW) IF (FORMA .EQ. 5) GO TO 500 IF (FORMA .NE. 4) GO TO 1000 C C INVERT A LOWER TRIANGULAR MATRIX C BAKSKP = NROW FORSKP = 1 GO TO (1,2,3,4), TYPEAR 1 ASSIGN 50 TO TRA ASSIGN 110 TO TRA1 GO TO 5 2 ASSIGN 60 TO TRA ASSIGN 120 TO TRA1 GO TO 5 3 ASSIGN 70 TO TRA ASSIGN 130 TO TRA1 GO TO 5 4 ASSIGN 80 TO TRA ASSIGN 140 TO TRA1 5 CONTINUE C C ALLOCATE CORE STORAGE C CALL GOPEN (FILEA,X(IOBUF),0) J = 1 C C SOLVE QUADRATIC FOR K C 10 M = NROW - J + 1 L = 2*M + 1 K = M IF (L*L .LE. 8/INCR*CORE) GO TO 20 A1 = L*L - 8/INCR*CORE K = SQRT(A1) K = K + 1 K = (L-K)/2 IF (K .LE. 0) GO TO 1040 C C GENERATE COLUMNS J THROUGH J+K OF THE IDENTITY MATRIX (STORE C ONLY THE LOWER TRIANGLE IN CORE) C 20 L = (M*K-(K*(K-1))/2)*INCR DO 30 I = 1,L 30 X(I) = 0. L = 1 IF (PREC .EQ. 2) GO TO 41 DO 40 I = 1,K X(L) = 1. 40 L = L + (M-I+1)*INCR GO TO 44 41 DO 42 I = 1,K DX(L) = 1.D0 42 L = L + (M-I+1)*CMPLX 44 CONTINUE C C READ MATRIX A ONE ELEMENT AT A TIME, ADDING IN TERMS TO THE C IDENTITY MATRIX C L = 1 LL = 1 C C II = COLUMN INDEX C M = HEIGTH OF TRAPAZOID C K = LENGTH OF TRAPAZOID C DO 200 I = J,NROW CALL INTPK (*1050,FILEA,0,TYPEAR,0) 45 IF (EOL) 1050,46,1050 46 CALL ZNTPKI IF (I .NE. II) GO TO 45 L1 = 0 DO 90 I1 = 1,LL IN1 = (L-1)*CMPLX + 1 + L1 GO TO TRA, (50,60,70,80) 50 X(IN1) = X(IN1)/A(1) GO TO 90 60 DX(IN1) = DX(IN1)/DA(1) GO TO 90 70 TEMP = (A(1)*X(IN1 ) + A(2)*X(IN1+1))/(A(1)*A(1) + A(2)*A(2)) X(IN1+1) = (A(1)*X(IN1+1) - A(2)*X(IN1 ))/(A(1)*A(1) + A(2)*A(2)) X(IN1) = TEMP GO TO 90 80 DTEMP = (DA(1)*DX(IN1 ) +DA(2)*DX(IN1+1))/(DA(1)**2 +DA(2)**2) DX(IN1+1)= (DA(1)*DX(IN1+1) -DA(2)*DX(IN1 ))/(DA(1)**2 +DA(2)**2) DX(IN1) = DTEMP 90 L1 = L1 + (M-I1)*CMPLX 100 IF (EOL .EQ. 1) GO TO 190 CALL ZNTPKI L1 = 0 DO 150 I1 = 1,LL IN2 = (L-1)*CMPLX + 1+ L1 IN1 = IN2 + (II-I)*CMPLX GO TO TRA1, (110,120,130,140) 110 X(IN1) = X(IN1) - A(1)*X(IN2) GO TO 150 120 DX(IN1) = DX(IN1) - DA(1)*DX(IN2) GO TO 150 130 X(IN1 ) = X(IN1 ) - A(1)*X(IN2 ) + A(2)*X(IN2+1) X(IN1+1) = X(IN1+1) - A(1)*X(IN2+1) - A(2)*X(IN2 ) GO TO 150 140 DX(IN1 ) = DX(IN1 ) - DA(1)*DX(IN2 ) + DA(2)*DX(IN2+1) DX(IN1+1) = DX(IN1+1) - DA(1)*DX(IN2+1) - DA(2)*DX(IN2 ) 150 L1 = L1 + (M-I1)*CMPLX GO TO 100 190 LL = LL + 1 IF (LL .GT. K) LL = K L = L + 1 200 CONTINUE FORSKP = FORSKP + K BAKSKP = BAKSKP - K I1 = REW IF (BAKSKP .LT. FORSKP) I1 = NOREW CALL CLOSE (FILEA ,I1) CALL GOPEN (FILEB,X(IOBUF),WRT) L = 1 IY = J JY = NROW DO 205 I = 1,K CALL PACK (X(L),FILEB,FILEB) IY = IY + 1 205 L = L + (M-I+1)*INCR CALL CLOSE (FILEB,NOREW) J = J + K IF (J .LE. NROW) GO TO 206 CALL GOPEN (FILEB,X(IOBUF),WRT) CALL CLOSE (FILEB,REW) RETURN C 206 CONTINUE CALL GOPEN (FILEA,X(IOBUF),RD) IF (FORSKP .GT. BAKSKP) GO TO 220 CALL SKPREC (FILEA,FORSKP) GO TO 10 220 CALL SKPREC (FILEA,-BAKSKP) GO TO 10 C C INVERT UPPER TRIANGULAR MATRIX C 500 GO TO (510,520,530,540), TYPEAR 510 ASSIGN 600 TO TRA ASSIGN 700 TO TRA1 ASSIGN 770 TO TRA2 GO TO 550 520 ASSIGN 610 TO TRA ASSIGN 710 TO TRA1 ASSIGN 780 TO TRA2 GO TO 550 530 ASSIGN 610 TO TRA ASSIGN 720 TO TRA1 ASSIGN 790 TO TRA2 GO TO 550 540 ASSIGN 630 TO TRA ASSIGN 730 TO TRA1 ASSIGN 800 TO TRA2 C C REWRITE UPPER TRIANGULAR MATRIX ON SCRATCH FILE C 550 INBUF = IOBUF FORSKP = NROW + 1 BAKSKP = 0 OUTBUF = INBUF - SYSBUF IF (OUTBUF .LT. NROW+1) GO TO 1040 CALL GOPEN (FILEA,X(IOBUF),0) C C POSITION FILE AT LAST RECORD C CALL SKPREC (FILEA,NROW) C C REWRITE THE INPUT MATRIX ON A SCRATCH FILE WITH THE RECORDS C WRITTEN IN THE REVERSE ORDER AND THE COLUMNS INVERTED C CALL GOPEN (SCRFIL,X(OUTBUF),1) IT2 = TYPEAR DO 645 I = 1,NROW IX = 1 JX = 0 CALL BCKREC (FILEA) CALL UNPACK (*1050,FILEA,X) CALL BCKREC (FILEA) KK = JX - IX + 1 K = KK/2 IF (K .EQ. 0) GO TO 641 KK = KK + 1 DO 640 J = 1,K L = KK - J GO TO TRA, (600,610,630) 600 TEMP = X(J) X(J) = X(L) X(L) = TEMP GO TO 640 610 DTEMP = DX(J) DX(J) = DX(L) DX(L) = DTEMP GO TO 640 630 DTEMP = DX(J) DX(J) = DX(L) DX(L) = DTEMP DTEMP = DX(J+1) DX(J+1) = DX(L+1) DX(L+1) = DTEMP 640 CONTINUE 641 CONTINUE IY = NROW - JX + 1 JY = NROW - IX + 1 CALL PACK (X,SCRFIL,T) 645 CONTINUE IT1 = TYPEAR IT2 = TYPEB CALL CLOSE (FILEA,REW) CALL CLOSE (SCRFIL,EOFNRW) CALL GOPEN (SCRFIL,X(IOBUF),0) CALL SKPREC (SCRFIL,NROW) CALL CLOSE (SCRFIL,NOREW) C C ALLOCATE CORE C J = 0 650 M = J + 1 CALL GOPEN (SCRFIL,X(IOBUF),RD) K = NROW - J IF (K*M+K*(K-1)/2 .LT. CORE/INCR) GO TO 652 A1 = (2*M-1)**2 + 8*CORE/INCR K = SQRT(A1) K = (-(2*M-1)+K)/2 IF (K .LE. 0) GO TO 1040 652 BAKSKP = BAKSKP + K FORSKP = FORSKP - K C C POSITION SCRATCH FILE C IF (FORSKP .GT. BAKSKP) GO TO 660 CALL REWIND (SCRFIL) CALL SKPREC (SCRFIL,FORSKP) GO TO 665 660 CALL SKPREC (SCRFIL,-BAKSKP) 665 CONTINUE C C GENERATE UPPER TRIANGLE OF THE IDENTITY MATRIX C LEND = (M*K+K*(K-1)/2)*INCR DO 670 I = 1,LEND 670 X(I) = 0. L = M IF (PREC .EQ. 2) GO TO 676 DO 675 I = 1,K X(L) = 1. 675 L = L + (I+M)*INCR GO TO 680 676 DO 678 I = 1,K DX(L) = 1.D0 678 L = L + (I+M)*CMPLX 680 CONTINUE C C READ UPPER TRIANGLE ONE ELEMENT AT A TIME, ADDING IN C APPROPIATE TERMS TO THE IDENTITY MATRIX C IF (PREC .EQ. 2) LEND = LEND/2 J = J + K L = 1 DO 901 JJ = 1,J CALL INTPK (*1050,SCRFIL,0,TYPEAR,0) CALL ZNTPKI I = NROW - II + 1 IF (I .NE. J-JJ+1) GO TO 1050 L1 = 0 DO 750 I1 = 1,L IN1 = LEND - L*CMPLX - L1 + 1 GO TO TRA1, (700,710,720,730) 700 X(IN1) = X(IN1)/A(1) GO TO 740 710 DX(IN1) = DX(IN1)/DA(1) GO TO 740 720 TEMP = (A(1)*X(IN1 ) + A(2)*X(IN1+1))/(A(1)*A(1) + A(2)*A(2)) IN2 = IN1 + 1 X(IN2) = (A(1)*X(IN1+1) - A(2)*X(IN1 ))/(A(1)*A(1) + A(2)*A(2)) X(IN1) = TEMP GO TO 740 730 DTEMP = (DA(1)*DX(IN1 ) + DA(2)*DX(IN1+1))/(DA(1)**2 + DA(2)**2) IN2 = IN1 + 1 DX(IN2)= (DA(1)*DX(IN1+1) - DA(2)*DX(IN1 ))/(DA(1)**2 + DA(2)**2) DX(IN1)= DTEMP 740 CONTINUE 750 L1 = L1 + (M+K-1-I1)*CMPLX 760 IF (EOL .EQ. 1) GO TO 901 CALL ZNTPKI L1 = 0 I = J - JJ - NROW + II DO 900 I1 = 1,L IN2 = LEND - L*CMPLX - L1 + 1 IN1 = IN2 - I*CMPLX GO TO TRA2, (770,780,790,800) 770 X(IN1) = X(IN1) - A(1)*X(IN2) GO TO 810 780 DX(IN1) = DX(IN1) - DA(1)*DX(IN2) GO TO 810 790 X(IN1 ) = X(IN1 ) - A(1)*X(IN2 ) + A(2)*X(IN2+1) X(IN1+1) = X(IN1+1) - A(1)*X(IN2+1) - A(2)*X(IN2 ) GO TO 810 800 DX(IN1 ) = DX(IN1 ) - DA(1)*DX(IN2 ) + DA(2)*DX(IN2+1) DX(IN1+1) = DX(IN1+1) - DA(1)*DX(IN2+1) - DA(2)*DX(IN2 ) 810 L1 = L1 + (M+K-1-I1)*CMPLX 900 CONTINUE GO TO 760 901 L = L + 1 CALL CLOSE (SCRFIL,NOREW) CALL GOPEN (FILEB,X(IOBUF),WRT) L = J - K + 1 LL= 1 DO 910 I = 1,K IY = 1 JY = L CALL PACK (X(LL),FILEB,FILEB) L = L + 1 910 LL = LL + (M+I-1)*INCR CALL CLOSE (FILEB,NOREW) IF (J .LT. NROW) GO TO 650 CALL GOPEN (FILEB,X(IOBUF),WRT) CALL CLOSE (FILEB,REW) CALL GOPEN (SCRFIL,X(IOBUF),RD) CALL CLOSE (SCRFIL,REW) GO TO 2000 C 1000 NO = -7 GO TO 1100 1040 NO = -8 GO TO 1100 1050 RETURN 1 1100 CALL MESAGE (NO,0,NAME) C 2000 RETURN END ================================================ FILE: mis/is2d8d.f ================================================ SUBROUTINE IS2D8D C C 2-D, 8 GRID POINT ISOPARAMETRIC STRUCTURAL ELEMENT STIFFNESS, C MASS, CONDUCTIVITY, AND CAPACITANCE ROUTINE C C DOUBLE PRECISION VERSION C LOGICAL ERROR, HEAT INTEGER GE, DICT(13), IND6(36), ISIL(8), NAM(2) INTEGER SCR4, BCD(2) REAL KX, KY, KXY DIMENSION VEC(3), VVEC(3), VECI(3), VECJ(3), VECK(3), 1 XY1(3), XY2(3), IZ(1), ECPT(46), QQ(15), 2 IWS(2,3) DOUBLE PRECISION G(9), XI(8), ETA(8), TB(9), 1 B(12), BT(12), TEMP(9), TEMPAR(7),DNX(1), 2 DNY(1), DNXI(1), DNETA(1), SAVE(144),TSAVE(216) 3, E1T(6), TEMP1(9), TEMP2(9), TEMP3(9), PSTMUL(9), 4 PREMUL(6),DN(8), XX(16), DNC(16), DNL(16), 5 XJB(4), XXJB(2,2),PT(3), H(3), BIJ, 6 KIJ, MIJ, DETERM, DUMARG, DRHO, 7 DC, DHH, TERM, THICK, SAVM(36), 8 Z COMMON /BLANK / SKIP(16), VOLUME, SURFAC COMMON /EMGEST/ NECPT(1), NGRID(8), ID1, TH, MATID1, 1 T, ISYS1, X1, Y1, Z1, 2 ISYS2, X2, Y2, Z2, ISYS3, 3 X3, Y3, Z3, ISYS4, X4, 4 Y4, Z4, ISYS5, X5, Y5, 5 Z5, ISYS6, X6, Y6, Z6, 6 ISYS7, X7, Y7, Z7, ISYS8, 7 X8, Y8, Z8, TTEMP, DUMB(119) COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, 1 COSTH COMMON/MATOUT / G11, G12, G13, G22, G23, 1 G33, RHO, ALPHA1, ALPHA2, ALPH12, 2 TREF, GE, DUM3(3) COMMON /HMTOUT/ KX, KXY, KY, C COMMON /EMGDIC/ DUM2(2), NLOCS, ELID, IESTID COMMON /ZZZZZZ/ Z(1) COMMON /EMGPRM/ IDUM, JCORE, NCORE, DUM12(12),KMBGG(3), 1 IPREC, ERROR, HEAT, COUP EQUIVALENCE (ECPT(1),NECPT(1)), (Z(1),IZ(1)), (TEMP(1),B(1)), 1 (DNC(1),DNXI(1)) , (DNC(9),DNETA(1)), 2 (DNL(1),DNX(1)) , (DNL(9),DNY(1)), (QQ(1),G11), 3 (TEMPAR(1),BT(1)) , (XY1(1),X1) , (XY2(1),X2), 4 (ISIL(1),NGRID(1)) DATA XI / -1.D0, 1.D0, 1.D0,-1.D0, 0.D0, 1.D0, 0.D0,-1.D0/ DATA ETA / -1.D0,-1.D0, 1.D0, 1.D0,-1.D0, 0.D0, 1.D0, 0.D0/ DATA IND6 / 1,7,49,13,55,91,19,61,97,127,25,67,103,133,157,31, 1 73,109,139,163,181,37,79,115,145,169,187,199,43, 2 85,121,151,175,193,205,211/ DATA NAM , BCD/ 4HIS2D,4H8D , 4HCIS2,4HD8 / DATA SCR4 / 304 / C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT 1 NGRID(1) INTEGER C ECPT( 3) = GRID POINT 2 NGRID(2) INTEGER C ECPT( 4) = GRID POINT 3 NGRID(3) INTEGER C ECPT( 5) = GRID POINT 4 NGRID(4) INTEGER C ECPT( 6) = GRID POINT 5 NGRID(5) INTEGER C ECPT( 7) = GRID POINT 6 NGRID(6) INTEGER C ECPT( 8) = GRID POINT 7 NGRID(7) INTEGER C ECPT( 9) = GRID POINT 8 NGRID(8) INTEGER C ECPT(10) = NO. OF GAUSS POINTS ID1 INTEGER C ECPT(11) = ANIS. MATERIAL ANGLE TH REAL C ECPT(12) = MATERIAL ID MATID1 INTEGER C ECPT(13) = THICKNESS T REAL C ECPT(14) = COORD SYS ID 1 ISYS1 INTEGER C ECPT(15) = X1 X1 REAL C ECPT(16) = Y1 Y1 REAL C ECPT(17) = Z1 Z1 REAL C ECPT(18) = COORD SYS ID 2 ISYS2 INTEGER C ECPT(19) = X2 X2 REAL C ECPT(20) = Y2 Y2 REAL C ECPT(21) = Z2 Z2 REAL C ECPT(22) = COORD SYS ID 3 ISYS3 INTEGER C ECPT(23) = X3 X3 REAL C ECPT(24) = Y3 Y3 REAL C ECPT(25) = Z3 Z3 REAL C ECPT(26) = COORD SYS ID 4 ISYS4 INTEGER C ECPT(27) = X4 X4 REAL C ECPT(28) = Y4 Y4 REAL C ECPT(29) = Z4 Z4 REAL C ECPT(30) = COORD SYS ID 5 ISYS5 INTEGER C ECPT(31) = X5 X5 REAL C ECPT(32) = Y5 Y5 REAL C ECPT(33) = Z5 Z5 REAL C ECPT(34) = COORD SYS ID 6 ISYS6 INTEGER C ECPT(35) = X6 XL REAL C ECPT(36) = Y6 Y6 REAL C ECPT(37) = Z6 Z6 REAL C ECPT(38) = COORD SYS ID 7 ISYS7 INTEGER C ECPT(39) = X7 X7 REAL C ECPT(40) = Y7 Y7 REAL C ECPT(41) = Z7 Z7 REAL C ECPT(42) = COORD SYS ID 8 ISYS8 INTEGER C ECPT(43) = X8 X8 REAL C ECPT(44) = Y8 Y8 REAL C ECPT(45) = Z8 Z8 REAL C ECPT(46) = ELEMENT TEMP TTEMP REAL C IF (JCORE+576 .GT. NCORE) CALL MESAGE (-8,0,NAM) DICT(1) = IESTID DICT(2) = 1 IF (HEAT) GO TO 1 DICT(3) = 24 DICT(4) = 7 NSQ = 576 GO TO 2 1 DICT(3) = 8 DICT(4) = 1 NSQ = 64 C C SAVE NGRID IN DUMB C 2 DO 3 I = 1,9 3 DUMB(I) = ECPT(I) AREA = 0.0 C C SET UP SIL ARRAY SO THAT MATRICES ARE SET UP IN INCREASING SIL C ORDER SIL(I)=PARTITION NUMBER OF ITH GRID POINT C I =-8 5 J = 0 DO 6 K = 1,8 IF (ISIL(K) .LT. J) GO TO 6 J = ISIL(K) L = K 6 CONTINUE ISIL(L) = I I = I + 1 IF (I .LT. 0) GO TO 5 DO 7 I = 1,8 7 ISIL(I) =-ISIL(I) C DO 10 I = 1,NSQ 10 Z(JCORE+I) = 0.0D0 C C UNIT I VECTOR IS FROM GRID POINT 1 TO GRID POINT 2 C DO 20 I = 1,3 VECI(I) = XY2(I)-XY1(I) 20 CONTINUE VECIL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) IF (VECIL .EQ. 0.0) GO TO 40 VECI(1) = VECI(1)/VECIL VECI(2) = VECI(2)/VECIL VECI(3) = VECI(3)/VECIL C C K VECTOR IS OBTAINED BY CROSSING I INTO VECTOR FROM GRID PT. 1 TO C GRID C VECK(1) = VECI(2)*(Z4-Z1) - VECI(3)*(Y4-Y1) VECK(2) = VECI(3)*(X4-X1) - VECI(1)*(Z4-Z1) VECK(3) = VECI(1)*(Y4-Y1) - VECI(2)*(X4-X1) VECKL = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) IF (VECKL .EQ. 0.0) GO TO 40 VECK(1) = VECK(1)/VECKL VECK(2) = VECK(2)/VECKL VECK(3) = VECK(3)/VECKL C C J VECTOR IS OBTAINED BY CROSSING K INTO I C VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2) VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3) VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1) C E1T(1) = VECI(1) E1T(2) = VECI(2) E1T(3) = VECI(3) E1T(4) = VECJ(1) E1T(5) = VECJ(2) E1T(6) = VECJ(3) C C STORE ELEMENT COORDS FOR GRIDS 1 AND 2 C XX(1) = 0.D0 XX(2) = 0.D0 XX(3) = VECIL XX(4) = 0.D0 C C FOR GRIDS 3-8, THE X COORDINATE IS THE DOT PRODUCT OF HTE VECTOR C FROM GRID POINT 1 TO THE GRID POINT AND THE I VECTOR. THE Y COORD. C IS THE L OF THE I VECTOR CROSSED INTO THE VECTOR FROM GRID 1 TO C THE GRID POINT. C DO 30 I = 3,8 IXX = 2*I - 1 ISUB = 4*I + 11 VEC(1) = ECPT(ISUB ) - X1 VEC(2) = ECPT(ISUB+1) - Y1 VEC(3) = ECPT(ISUB+2) - Z1 XX(IXX) = VEC(1)*VECI(1) + VEC(2)*VECI(2) + VEC(3)*VECI(3) VVEC(1) = VECI(2)*VEC(3) - VECI(3)*VEC(2) VVEC(2) = VECI(3)*VEC(1) - VECI(1)*VEC(3) VVEC(3) = VECI(1)*VEC(2) - VECI(2)*VEC(1) XX(IXX+1) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2) 30 CONTINUE GO TO 150 C C INAPPROPRIATE GEOMETRY C 40 CALL MESAGE (30,31,ECPT(1)) ERROR = .TRUE. C 150 IF (ERROR) RETURN C C SET UP QUADRATURE POINTS AND WEIGHTS C PT(1) =-0.57735027D0 PT(2) =-PT(1) H(1) = 1.D0 H(2) = 1.D0 IF (ID1 .EQ. 2) GO TO 155 PT(1) =-0.77459667D0 PT(2) = 0.D0 PT(3) =-PT(1) H(1) = 5.D0/9.D0 H(2) = 8.D0/9.D0 H(3) = H(1) C 155 IF (HEAT) GO TO 700 C C COMPUTE MATERIAL PROPERTIES C TTH = TH*3.1415927/180. SINTH = SIN(TTH) COSTH = COS(TTH) ELTEMP= TTEMP INFLAG= 2 MATID = MATID1 CALL MAT (ECPT(1)) DO 160 I = 1,3 160 G(I) = QQ(I) G(4) = QQ(2) G(5) = QQ(4) G(6) = QQ(5) G(7) = QQ(3) G(8) = QQ(5) G(9) = QQ(6) THICK = T DRHO = RHO*T C C ZERO THE SAVE MATRICES TO COLLECT INTEGRATIONS C DO 210 I = 1,36 210 SAVM(I) = 0.D0 DO 220 I = 1,144 220 SAVE(I) = 0.D0 C C 2 OR 3 QUADRATURE POINTS C DO 300 III = 1,ID1 DO 300 JJJ = 1,ID1 C C COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA C EACH GRID POINT C DO 230 N = 1,4 IF (KMBGG(2) .NE. 0) DN(N) = .25D0*(1.D0+PT(III)*XI(N))* 1 (1.D0+PT(JJJ)*ETA(N))*(PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.D0) DNXI(N) = .25D0*XI(N)*(1.D0+PT(JJJ)*ETA(N))* 1 (2.D0*PT(III)*XI(N)+PT(JJJ)*ETA(N)) DNETA(N) = .25D0*ETA(N)*(1.D0+PT(III)*XI(N))* 1 (PT(III)*XI(N)+2.D0*PT(JJJ)*ETA(N)) 230 CONTINUE C DO 231 N = 5,7,2 IF (KMBGG(2) .NE. 0) DN(N) = .5D0*(1.D0-PT(III)*PT(III))* 1 (1.D0+PT(JJJ)*ETA(N)) DNXI(N) = -PT(III)*(1.D0+PT(JJJ)*ETA(N)) DNETA(N) = .5D0*(1.D0-PT(III)*PT(III))*ETA(N) 231 CONTINUE C DO 232 N = 6,8,2 IF (KMBGG(2) .NE. 0) DN(N) = .5D0*(1.D0+PT(III)*XI(N))* 1 (1.D0-PT(JJJ)*PT(JJJ)) DNXI(N) = .5D0*XI(N)*(1.D0-PT(JJJ)*PT(JJJ)) DNETA(N) =-PT(JJJ)*(1.D0+PT(III)*XI(N)) 232 CONTINUE C C COMPUTE JACOBEAN C C N1XI N2XI N3XI N4XI N5XI N6XI N7XI N8XI C DNC = N1ETA N2ETA N3ETA N4ETA N5ETA N6ETA N7ETA N8ETA C C X1 Y1 C X2 Y2 C X3 Y3 C XX = X4 Y4 C X5 Y5 C X6 Y6 C X7 Y7 C X8 Y8 C CALL GMMATD (DNC,2,8,0,XX,8,2,0,XJB) C C XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED C FOR INVERSION C K = 0 DO 240 I = 1,2 DO 240 J = 1,2 K = K + 1 240 XXJB(I,J) = XJB(K) C C COMPUTE INVERSE AND DETERMINANT OF JACOBEAN C CALL INVERD (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS) IF (ISING .NE. 2) GO TO 241 CALL MESAGE (30,143,ECPT(1)) ERROR =.TRUE. RETURN C 241 CONTINUE DHH = DETERM*H(III)*H(JJJ) AREA = AREA + DHH C C COMPUTE DERIVATIVES WITH RESPECT TO X AND Y C K = 0 DO 250 I = 1,2 DO 250 J = 1,2 K = K + 1 250 XJB(K) = XXJB(I,J) CALL GMMATD (XJB,2,2,0,DNC,2,8,0,DNL) C C N1X N2X N3X N4X N5X N6X N7X N8X C DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y C C SET UP THE BT MATRIX C IC = 0 DO 290 KK = 1,8 IF (KMBGG(1) .EQ. 0) GO TO 256 C DO 255 I = 1,12 255 BT(I) = 0.D0 BT(1) = DNX(KK) BT(3) = DNY(KK) BT(5) = DNY(KK) BT(6) = DNX(KK) C CALL GMMATD (TEMPAR(1),2,3,0,G,3,3,0,TEMPAR(7)) C C MULTIPLY G MATRIX BY PRESENT RESULTS C C LOOP FOR THE 8 6X6 PARTITIONS CORRESPONDING TO THE PRESENT C PIVOT POINT C 256 CONTINUE DO 290 N = KK,8 IC = IC + 1 IF (KMBGG(1) .EQ. 0) GO TO 281 C C SET UP THE B MATRIX C DO 260 I = 1,12 260 B( I) = 0.D0 B( 1) = DNX(N) B( 4) = DNY(N) B( 5) = DNY(N) B( 6) = DNX(N) C T C PERFORM MULTIPLICATION TO GET B *D*B C CALL GMMATD (TEMPAR(7),2,3,0,B,3,2,0,TEMPAR(1)) C C THROW IN JACOBEAN DETERMINANT AND WEIGHT FACTORS C DO 270 I = 1,4 TEMPAR(I) = TEMPAR(I)*DHH 270 CONTINUE C C ADD THE RESULTS OF THIS INTEGRATION TO THE PREVIOUS RESULTS C LL = 4*(IC-1) DO 280 I = 1,4 L = LL + I SAVE(L) = SAVE(L) + TEMPAR(I) 280 CONTINUE 281 CONTINUE C IF (KMBGG(2) .EQ. 0) GO TO 289 C MIJ = DN(KK)*DN(N)*DHH SAVM(IC) = SAVM(IC) + MIJ 289 CONTINUE C C LOOP FOR MORE PARTITIONS C 290 CONTINUE C C LOOP FOR MORE GAUSS POINTS C 300 CONTINUE IF (KMBGG(2) .EQ. 0) GO TO 306 DO 305 I = 1,36 305 SAVM(I) = SAVM(I)*DRHO 306 CONTINUE C C CHECK ON NECESSITY OF PRE-MULTIPLYING COORDINATE TRANSFORMATIONS C IF (KMBGG(1) .EQ. 0) GO TO 500 IC = 0 DO 385 KK = 1,8 ISUB = 4*KK + 10 IF (NECPT(ISUB) .EQ. 0) GO TO 310 C C ELEMENT TO GLOBAL C CALL TRANSD (NECPT(ISUB),TB) CALL GMMATD (E1T,2,3,0,TB,3,3,0,PREMUL) GO TO 350 310 DO 320 I = 1,6 PREMUL(I) = E1T(I) 320 CONTINUE 350 DO 380 N = KK,8 IC = IC + 1 LL = 4*IC - 3 CALL GMMATD (PREMUL,2,3,1,SAVE(LL),2,2,0,TEMP) C C STORE THE 3 X 2 IN TSAVE C DO 370 I = 1,6 L = 6*IC + I - 6 370 TSAVE(L) = TEMP(I) C 380 CONTINUE 385 CONTINUE C C NOW CHECK ON THE NECESSITY FOR POST-MULTIPLYING TRANSFORMATIONS C IC = 0 DO 490 N = 1,8 ISUB = 4*N + 10 IF (NECPT(ISUB) .EQ. 0) GO TO 410 C C GLOBAL TO ELEMENT C CALL TRANSD (NECPT(ISUB),TB) CALL GMMATD (E1T,2,3,0,TB,3,3,0,PSTMUL) GO TO 450 410 DO 420 I = 1,6 PSTMUL(I) = E1T(I) 420 CONTINUE C C POST-MULTIPLY C C IND6 GIVES STARTING POSITIONS OF VERTICAL 3X3 PARTITIONS, SINCE C THE NTH COLUMN MULTIPLIES INTO THE NTH POST-MULTIPLIER C 450 DO 485 M = 1,N IC = IC + 1 LL = IND6(IC) CALL GMMATD (TSAVE(LL),3,2,0,PSTMUL,2,3,0,TEMP) DO 486 I = 1,9 486 TEMP(I) = TEMP(I)*THICK C C PICK UP ROW AND COLUMN PARTITION NUMBERS AND CONVERT TO STARTING C POINTS IN OPEN CORE FOR THIS PARTITION AND ITS TRANSPOSE. C TEMP IS PUT INTO ONE PARTITION AND TEMP-TRANSPOSE INTO THE OTHER C NCOL = ISIL(N) NROW = ISIL(M) CALL INSERT (NCOL,NROW,3,8,JCORE,Z,Z,TEMP,TEMP,IPREC) C C LOOP FOR ANOTHER PARTITION FOR THIS POST-MULTIPLIER C 485 CONTINUE C C LOOP FOR ANOTHER POST-MULTIPLIER C 490 CONTINUE C C ADD TO DICTIONARY C DICT(5) = GE CALL EMGOUT (Z(JCORE),Z(JCORE),NSQ,1,DICT,1,IPREC) C 500 IF (KMBGG(2) .EQ. 0) GO TO 1000 C IC = 0 DO 620 KK = 1,8 DO 620 N = KK,8 IC = IC + 1 DO 510 I = 1,9 510 TEMP(I) = 0.D0 C C CHECK ON TEH NECESSITY OF COORDINATE TRANSFORMATIONS. C SINCE EACH PARTITION IS A MULTIPLE OF A 3X3 IDENTITY AND SINCE C THE TRANSFORAMATION MATRICES ARE ORTHOGONAL, NO EXPLICIT C TRANSFORMA-TIONS FROM THE ELEMENT COORDINATE SYSTEM ARE REQUIRED. C ALSO, NO TRANSFORAMTION IS REQUIRED IF TRANSFORMATION MATRICES ARE C THE SAME FOR THE GRIDS CORRESPONDING TO THE THE ROW AND COLUMN C TERM = SAVM(IC) IF (KK .EQ. N) GO TO 570 ISUB = 4*KK + 10 ISUB1 =4*N + 10 IF (NECPT(ISUB).EQ.0 .AND. NECPT(ISUB1).EQ.0) GO TO 570 IF (NECPT(ISUB) .EQ. 0) GO TO 520 CALL TRANSD (NECPT(ISUB),TEMP1) IF (NECPT(ISUB1) .EQ. 0) GO TO 530 520 CALL TRANSD (NECPT(ISUB1),TEMP2) IF (NECPT(ISUB) .EQ. 0) GO TO 550 C C MULTIPLY THE TRANSFORMATION MATRICES C CALL GMMATD (TEMP1,3,3,1,TEMP2,3,3,0,TEMP3) GO TO 580 530 TEMP3(1) = TEMP1(1) TEMP3(2) = TEMP1(4) TEMP3(3) = TEMP1(7) TEMP3(4) = TEMP1(2) TEMP3(5) = TEMP1(5) TEMP3(6) = TEMP1(8) TEMP3(7) = TEMP1(3) TEMP3(8) = TEMP1(6) TEMP3(9) = TEMP1(9) GO TO 580 550 DO 560 I = 1,9 560 TEMP3(I) = TEMP2(I) GO TO 580 570 TEMP(1) = TERM TEMP(5) = TERM TEMP(9) = TERM GO TO 600 C 580 DO 590 I = 1,9 590 TEMP(I) = TERM*TEMP3(I) C 600 NROW = ISIL(KK) NCOL = ISIL(N) CALL INSERT (NCOL,NROW,3,8,JCORE,Z,Z,TEMP,TEMP,IPREC) 620 CONTINUE C CALL EMGOUT (Z(JCORE),Z(JCORE),NSQ,1,DICT,2,IPREC) GO TO 1000 C C HEAT FORMULATION C C COMPUTE MATERIAL PROPERTIES C 700 SINTH = 0. COSTH = 0. ELTEMP = TTEMP INFLAG = 2 MATID = MATID1 CALL HMAT (ECPT(1)) THICK = T DC = C*T C C ZERO OUT THE SAVE MATRIX C DO 720 I = 1,36 SAVM(I) = 0.D0 720 SAVE(I) = 0.D0 C DO 880 III = 1,ID1 DO 880 JJJ = 1,ID1 C C COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA C EACH GRID POINT C DO 730 N = 1,4 IF (KMBGG(3) .NE. 0) DN(N) = .25D0*(1.D0+PT(III)*XI(N))* 1 (1.D0+PT(JJJ)*ETA(N))*(PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.D0) DNXI(N) = .25D0*XI(N)*(1.D0+PT(JJJ)*ETA(N))* 1 (2.D0*PT(III)*XI(N)+PT(JJJ)*ETA(N)) DNETA(N) = .25D0*ETA(N)*(1.D0+PT(III)*XI(N))* 1 (PT(III)*XI(N)+2.D0*PT(JJJ)*ETA(N)) 730 CONTINUE C DO 731 N = 5,7,2 IF (KMBGG(3) .NE. 0) DN(N) = .5D0*(1.D0-PT(III)*PT(III))* 1 (1.D0+PT(JJJ)*ETA(N)) DNXI(N) = -PT(III)*(1.D0+PT(JJJ)*ETA(N)) DNETA(N) = .5D0*(1.D0-PT(III)*PT(III))*ETA(N) 731 CONTINUE C DO 732 N = 6,8,2 IF (KMBGG(3) .NE. 0) DN(N) = .5D0*(1.D0+PT(III)*XI(N))* 1 (1.D0-PT(JJJ)*PT(JJJ)) DNXI(N) = .5D0*XI(N)*(1.D0-PT(JJJ)*PT(JJJ)) DNETA(N) = -PT(JJJ)*(1.D0+PT(III)*XI(N)) 732 CONTINUE C C COMPUTE JACOBEAN C C N1XI N2XI N3XI N4XI N5XI N6XI N7XI N8XI C DNC = N1ETA N2ETA N3ETA N4ETA N5ETA N6ETA N7ETA N8ETA C C X1 Y1 C X2 Y2 C X3 Y3 C XX = X4 Y4 C X5 Y5 C X6 Y6 C X7 Y7 C X8 Y8 C CALL GMMATD (DNC,2,8,0,XX,8,2,0,XJB) C C XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED C FOR INVERSION C K = 0 DO 740 I = 1,2 DO 740 J = 1,2 K = K + 1 740 XXJB(I,J) = XJB(K) C C COMPUTE INVERSE AND DETERMINANT OF JACOBEAN C CALL INVERD (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS) IF (ISING .NE. 2) GO TO 741 CALL MESAGE (30,143,ECPT(1)) ERROR =.TRUE. RETURN C 741 CONTINUE DHH = DETERM*H(III)*H(JJJ) C C COMPUTE DERIVATIVES WITH RESPECT TO X,Y,AND Z C K = 0 DO 750 I = 1,2 DO 750 J = 1,2 K = K + 1 750 XJB(K) = XXJB(I,J) CALL GMMATD (XJB,2,2,0,DNC,2,8,0,DNL) C C N1X N2X N3X N4X N5X N6X N7X N8X C DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y C C SET UP THE BT MATRIX C IC = 0 DO 875 KK = 1,8 IF (KMBGG(1) .EQ. 0) GO TO 800 BT(1) = KX *DNX(KK) + KXY*DNY(KK) BT(2) = KXY*DNX(KK) + KY*DNY(KK) C C DO NOT TRANSFORM FROM MATERIAL COORD SYSTEM TO BASIC AND GLOBAL C SINCE THIS IS A SCALAR PROBLEM C 800 DO 870 N = KK,8 IC = IC + 1 C C SET UP THE B MATRIX C IF (KMBGG(1) .EQ. 0) GO TO 810 B(1) = DNX(N) B(2) = DNY(N) C C O.K. NOW PERFORM FINAL MULTIPLICATION C KIJ = BT(1)*B(1) + BT(2)*B(2) C C THROW IN JACOBEAN DETERMINANT AND WEIGHT FACTORS C KIJ = KIJ*DHH C C ADD THE RESULTS OF THIS INTEGRATION TO PREVIOUS RESULTS C SAVE(IC) = SAVE(IC) + KIJ 810 IF (KMBGG(3) .EQ. 0) GO TO 870 BIJ = DN(KK)*DN(N)*DHH SAVM(IC) = SAVM(IC) + BIJ C C LOOP FOR MORE PARTITIONS C 870 CONTINUE 875 CONTINUE C C LOOP FOR ADDITIONAL GAUSS POINTS C 880 CONTINUE C DO 890 I = 1,36 IF (KMBGG(1) .NE. 0) SAVE(I) = SAVE(I)*THICK IF (KMBGG(3) .NE. 0) SAVM(I) = SAVM(I)*DC 890 CONTINUE C C INSERT INTO OVERALL STIFFNESS MATRIX C IC = 0 DO 900 I = 1,8 DO 900 J = I,8 IC = IC + 1 NROW = ISIL(I) NCOL = ISIL(J) IF (KMBGG(1) .NE. 0) CALL INSERT (NCOL,NROW,1,8,JCORE,Z,Z, 1 SAVE(IC),SAVE(IC),IPREC) IF (KMBGG(3) .NE. 0) CALL INSERT (NCOL,NROW,1,8,JCORE+64,Z,Z, 1 SAVM(IC),SAVM(IC),IPREC) 900 CONTINUE C IF (KMBGG(1) .NE. 0) CALL EMGOUT (Z(JCORE),Z(JCORE),NSQ,1,DICT,1, 1 IPREC) IF (KMBGG(3) .NE. 0) CALL EMGOUT (Z(JCORE+64),Z(JCORE+64),NSQ,1, 1 DICT,3,IPREC) GO TO 5000 C C SAVE ELEMENT NAME, ID, THICKNESS, DENSITY, NO. OF GRID POINTS, C GRID POINT DATA, AND AREA IF USER REQUESTED VOLUME AND AREA C COMPUTATION C 1000 IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 5000 ECPT(2) = ECPT(13) ECPT(3) = RHO J = 4 NECPT(J) = 8 ECPT(46) = AREA CALL WRITE (SCR4,BCD,2,0) CALL WRITE (SCR4,ECPT(1),4,0) CALL WRITE (SCR4,DUMB(2),8,0) CALL WRITE (SCR4,ECPT(14),33,1) 5000 RETURN END ================================================ FILE: mis/is2d8s.f ================================================ SUBROUTINE IS2D8S C C 2-D, 8 GRID POINT ISOPARAMETRIC STRUCTURAL ELEMENT STIFFNESS, C MASS, CONDUCTIVITY, AND CAPACITANCE ROUTINE C C SINGLE PRECISION VERSION C LOGICAL ERROR, HEAT INTEGER GE, DICT(13), IND6(36), ISIL(8), NAM(2), 1 SCR4, BCD(2) REAL KX, KY, KXY, MIJ, KIJ DIMENSION VEC(3), VVEC(3), VECI(3), VECJ(3), VECK(3), 1 XY1(3), XY2(3), IZ(1), ECPT(46), QQ(15), 2 IWS(2,3) DIMENSION G(9), XI(8), ETA(8), TB(9), 1 B(12), BT(12), TEMP(9), TEMPAR(7),DNX(1), 2 DNY(1), DNXI(1), DNETA(1), SAVE(144),TSAVE(216) 3, E1T(6), TEMP1(9), TEMP2(9), TEMP3(9), PSTMUL(9), 4 PREMUL(6),DN(8), XX(16), DNC(16), DNL(16), 5 XJB(4), XXJB(2,2),PT(3), H(3), SAVM(36) COMMON /BLANK / SKIP(16), VOLUME, SURFAC COMMON /EMGEST/ NECPT(1), NGRID(8), ID1, TH, MATID1, 1 T, ISYS1, X1, Y1, Z1, 2 ISYS2, X2, Y2, Z2, ISYS3, 3 X3, Y3, Z3, ISYS4, X4, 4 Y4, Z4, ISYS5, X5, Y5, 5 Z5, ISYS6, X6, Y6, Z6, 6 ISYS7, X7, Y7, Z7, ISYS8, 7 X8, Y8, Z8, TTEMP, DUMB(119) COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, 1 COSTH COMMON/MATOUT / G11, G12, G13, G22, G23, 1 G33, RHO, ALPHA1, ALPHA2, ALPH12, 2 TREF, GE, DUM3(3) COMMON /HMTOUT/ KX, KXY, KY, C COMMON /EMGDIC/ DUM2(2), NLOCS, ELID, IESTID COMMON /ZZZZZZ/ Z(1) COMMON /EMGPRM/ IDUM, JCORE, NCORE, DUM12(12),KMBGG(3), 1 IPREC, ERROR, HEAT, COUP EQUIVALENCE (ECPT(1),NECPT(1)), (Z(1),IZ(1)), (TEMP(1),B(1)), 1 (DNC(1),DNXI(1)) , (DNC(9),DNETA(1)), 2 (DNL(1),DNX(1)) , (DNL(9),DNY(1)), (QQ(1),G11), 3 (TEMPAR(1),BT(1)) , (XY1(1),X1) , (XY2(1),X2), 4 (ISIL(1),NGRID(1)) DATA XI / -1.00, 1.00, 1.00,-1.00, 0.00, 1.00, 0.00,-1.00/ DATA ETA / -1.00,-1.00, 1.00, 1.00,-1.00, 0.00, 1.00, 0.00/ DATA IND6 / 1,7,49,13,55,91,19,61,97,127,25,67,103,133,157,31, 1 73,109,139,163,181,37,79,115,145,169,187,199,43, 2 85,121,151,175,193,205,211/ DATA NAM , BCD/ 4HIS2D,4H8S , 4HCIS2,4HD8 / DATA SCR4 / 304 / C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT 1 NGRID(1) INTEGER C ECPT( 3) = GRID POINT 2 NGRID(2) INTEGER C ECPT( 4) = GRID POINT 3 NGRID(3) INTEGER C ECPT( 5) = GRID POINT 4 NGRID(4) INTEGER C ECPT( 6) = GRID POINT 5 NGRID(5) INTEGER C ECPT( 7) = GRID POINT 6 NGRID(6) INTEGER C ECPT( 8) = GRID POINT 7 NGRID(7) INTEGER C ECPT( 9) = GRID POINT 8 NGRID(8) INTEGER C ECPT(10) = NO. OF GAUSS POINTS ID1 INTEGER C ECPT(11) = ANIS. MATERIAL ANGLE TH REAL C ECPT(12) = MATERIAL ID MATID1 INTEGER C ECPT(13) = THICKNESS T REAL C ECPT(14) = COORD SYS ID 1 ISYS1 INTEGER C ECPT(15) = X1 X1 REAL C ECPT(16) = Y1 Y1 REAL C ECPT(17) = Z1 Z1 REAL C ECPT(18) = COORD SYS ID 2 ISYS2 INTEGER C ECPT(19) = X2 X2 REAL C ECPT(20) = Y2 Y2 REAL C ECPT(21) = Z2 Z2 REAL C ECPT(22) = COORD SYS ID 3 ISYS3 INTEGER C ECPT(23) = X3 X3 REAL C ECPT(24) = Y3 Y3 REAL C ECPT(25) = Z3 Z3 REAL C ECPT(26) = COORD SYS ID 4 ISYS4 INTEGER C ECPT(27) = X4 X4 REAL C ECPT(28) = Y4 Y4 REAL C ECPT(29) = Z4 Z4 REAL C ECPT(30) = COORD SYS ID 5 ISYS5 INTEGER C ECPT(31) = X5 X5 REAL C ECPT(32) = Y5 Y5 REAL C ECPT(33) = Z5 Z5 REAL C ECPT(34) = COORD SYS ID 6 ISYS6 INTEGER C ECPT(35) = X6 XL REAL C ECPT(36) = Y6 Y6 REAL C ECPT(37) = Z6 Z6 REAL C ECPT(38) = COORD SYS ID 7 ISYS7 INTEGER C ECPT(39) = X7 X7 REAL C ECPT(40) = Y7 Y7 REAL C ECPT(41) = Z7 Z7 REAL C ECPT(42) = COORD SYS ID 8 ISYS8 INTEGER C ECPT(43) = X8 X8 REAL C ECPT(44) = Y8 Y8 REAL C ECPT(45) = Z8 Z8 REAL C ECPT(46) = ELEMENT TEMP TTEMP REAL C IF (JCORE+576 .GT. NCORE) CALL MESAGE (-8,0,NAM) DICT(1) = IESTID DICT(2) = 1 IF (HEAT) GO TO 1 DICT(3) = 24 DICT(4) = 7 NSQ = 576 GO TO 2 1 DICT(3) = 8 DICT(4) = 1 NSQ = 64 C C SAVE NGRID IN DUMB C 2 DO 3 I = 1,9 3 DUMB(I) = ECPT(I) AREA = 0.0 C C SET UP SIL ARRAY SO THAT MATRICES ARE SET UP IN INCREASING SIL C ORDER SIL(I)=PARTITION NUMBER OF ITH GRID POINT C I =-8 5 J = 0 DO 6 K = 1,8 IF (ISIL(K) .LT. J) GO TO 6 J = ISIL(K) L = K 6 CONTINUE ISIL(L) = I I = I + 1 IF (I .LT. 0) GO TO 5 DO 7 I = 1,8 7 ISIL(I) =-ISIL(I) C DO 10 I = 1,NSQ 10 Z(JCORE+I) = 0.0 C C UNIT I VECTOR IS FROM GRID POINT 1 TO GRID POINT 2 C DO 20 I = 1,3 VECI(I) = XY2(I)-XY1(I) 20 CONTINUE VECIL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) IF (VECIL .EQ. 0.0) GO TO 40 VECI(1) = VECI(1)/VECIL VECI(2) = VECI(2)/VECIL VECI(3) = VECI(3)/VECIL C C K VECTOR IS OBTAINED BY CROSSING I INTO VECTOR FROM GRID PT. 1 TO C GRID C VECK(1) = VECI(2)*(Z4-Z1) - VECI(3)*(Y4-Y1) VECK(2) = VECI(3)*(X4-X1) - VECI(1)*(Z4-Z1) VECK(3) = VECI(1)*(Y4-Y1) - VECI(2)*(X4-X1) VECKL = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) IF (VECKL .EQ. 0.0) GO TO 40 VECK(1) = VECK(1)/VECKL VECK(2) = VECK(2)/VECKL VECK(3) = VECK(3)/VECKL C C J VECTOR IS OBTAINED BY CROSSING K INTO I C VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2) VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3) VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1) C E1T(1) = VECI(1) E1T(2) = VECI(2) E1T(3) = VECI(3) E1T(4) = VECJ(1) E1T(5) = VECJ(2) E1T(6) = VECJ(3) C C STORE ELEMENT COORDS FOR GRIDS 1 AND 2 C XX(1) = 0.0 XX(2) = 0.0 XX(3) = VECIL XX(4) = 0.0 C C FOR GRIDS 3-8, THE X COORDINATE IS THE DOT PRODUCT OF HTE VECTOR C FROM GRID POINT 1 TO THE GRID POINT AND THE I VECTOR. THE Y COORD. C IS THE L OF THE I VECTOR CROSSED INTO THE VECTOR FROM GRID 1 TO C THE GRID POINT. C DO 30 I = 3,8 IXX = 2*I - 1 ISUB = 4*I + 11 VEC(1) = ECPT(ISUB ) - X1 VEC(2) = ECPT(ISUB+1) - Y1 VEC(3) = ECPT(ISUB+2) - Z1 XX(IXX) = VEC(1)*VECI(1) + VEC(2)*VECI(2) + VEC(3)*VECI(3) VVEC(1) = VECI(2)*VEC(3) - VECI(3)*VEC(2) VVEC(2) = VECI(3)*VEC(1) - VECI(1)*VEC(3) VVEC(3) = VECI(1)*VEC(2) - VECI(2)*VEC(1) XX(IXX+1) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2) 30 CONTINUE GO TO 150 C C INAPPROPRIATE GEOMETRY C 40 CALL MESAGE (30,31,ECPT(1)) ERROR = .TRUE. C 150 IF (ERROR) RETURN C C SET UP QUADRATURE POINTS AND WEIGHTS C PT(1) =-0.57735027 PT(2) =-PT(1) H(1) = 1.0 H(2) = 1.0 IF (ID1 .EQ. 2) GO TO 155 PT(1) =-0.77459667 PT(2) = 0.0 PT(3) =-PT(1) H(1) = 5.0/9.0 H(2) = 8.0/9.0 H(3) = H(1) C 155 IF (HEAT) GO TO 700 C C COMPUTE MATERIAL PROPERTIES C TTH = TH*3.1415927/180. SINTH = SIN(TTH) COSTH = COS(TTH) ELTEMP= TTEMP INFLAG= 2 MATID = MATID1 CALL MAT (ECPT(1)) DO 160 I = 1,3 160 G(I) = QQ(I) G(4) = QQ(2) G(5) = QQ(4) G(6) = QQ(5) G(7) = QQ(3) G(8) = QQ(5) G(9) = QQ(6) THICK = T DRHO = RHO*T C C ZERO THE SAVE MATRICES TO COLLECT INTEGRATIONS C DO 210 I = 1,36 210 SAVM(I) = 0.0 DO 220 I = 1,144 220 SAVE(I) = 0.0 C C 2 OR 3 QUADRATURE POINTS C DO 300 III = 1,ID1 DO 300 JJJ = 1,ID1 C C COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA C EACH GRID POINT C DO 230 N = 1,4 IF (KMBGG(2) .NE. 0) DN(N) = .25*(1.0+PT(III)*XI(N))* 1 (1.0+PT(JJJ)*ETA(N))*(PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.0) DNXI(N) = .25*XI(N)*(1.0+PT(JJJ)*ETA(N))* 1 (2.0*PT(III)*XI(N)+PT(JJJ)*ETA(N)) DNETA(N) = .25*ETA(N)*(1.0+PT(III)*XI(N))* 1 (PT(III)*XI(N)+2.0*PT(JJJ)*ETA(N)) 230 CONTINUE C DO 231 N = 5,7,2 IF (KMBGG(2) .NE. 0) DN(N) = .50*(1.0-PT(III)*PT(III))* 1 (1.0+PT(JJJ)*ETA(N)) DNXI(N) = -PT(III)*(1.0+PT(JJJ)*ETA(N)) DNETA(N) = .50*(1.0-PT(III)*PT(III))*ETA(N) 231 CONTINUE C DO 232 N = 6,8,2 IF (KMBGG(2) .NE. 0) DN(N) = .50*(1.0+PT(III)*XI(N))* 1 (1.0-PT(JJJ)*PT(JJJ)) DNXI(N) = .50*XI(N)*(1.0-PT(JJJ)*PT(JJJ)) DNETA(N) =-PT(JJJ)*(1.0+PT(III)*XI(N)) 232 CONTINUE C C COMPUTE JACOBEAN C C N1XI N2XI N3XI N4XI N5XI N6XI N7XI N8XI C DNC = N1ETA N2ETA N3ETA N4ETA N5ETA N6ETA N7ETA N8ETA C C X1 Y1 C X2 Y2 C X3 Y3 C XX = X4 Y4 C X5 Y5 C X6 Y6 C X7 Y7 C X8 Y8 C CALL GMMATS (DNC,2,8,0,XX,8,2,0,XJB) C C XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED C FOR INVERSION C K = 0 DO 240 I = 1,2 DO 240 J = 1,2 K = K + 1 240 XXJB(I,J) = XJB(K) C C COMPUTE INVERSE AND DETERMINANT OF JACOBEAN C CALL INVERS (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS) IF (ISING .NE. 2) GO TO 241 CALL MESAGE (30,143,ECPT(1)) ERROR =.TRUE. RETURN C 241 CONTINUE DHH = DETERM*H(III)*H(JJJ) AREA = AREA + DHH C C COMPUTE DERIVATIVES WITH RESPECT TO X AND Y C K = 0 DO 250 I = 1,2 DO 250 J = 1,2 K = K + 1 250 XJB(K) = XXJB(I,J) CALL GMMATS (XJB,2,2,0,DNC,2,8,0,DNL) C C N1X N2X N3X N4X N5X N6X N7X N8X C DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y C C SET UP THE BT MATRIX C IC = 0 DO 290 KK = 1,8 IF (KMBGG(1) .EQ. 0) GO TO 256 C DO 255 I = 1,12 255 BT(I) = 0.0 BT(1) = DNX(KK) BT(3) = DNY(KK) BT(5) = DNY(KK) BT(6) = DNX(KK) C CALL GMMATS (TEMPAR(1),2,3,0,G,3,3,0,TEMPAR(7)) C C MULTIPLY G MATRIX BY PRESENT RESULTS C C LOOP FOR THE 8 6X6 PARTITIONS CORRESPONDING TO THE PRESENT C PIVOT POINT C 256 CONTINUE DO 290 N = KK,8 IC = IC + 1 IF (KMBGG(1) .EQ. 0) GO TO 281 C C SET UP THE B MATRIX C DO 260 I = 1,12 260 B( I) = 0.0 B( 1) = DNX(N) B( 4) = DNY(N) B( 5) = DNY(N) B( 6) = DNX(N) C T C PERFORM MULTIPLICATION TO GET B *D*B C CALL GMMATS (TEMPAR(7),2,3,0,B,3,2,0,TEMPAR(1)) C C THROW IN JACOBEAN DETERMINANT AND WEIGHT FACTORS C DO 270 I = 1,4 TEMPAR(I) = TEMPAR(I)*DHH 270 CONTINUE C C ADD THE RESULTS OF THIS INTEGRATION TO THE PREVIOUS RESULTS C LL = 4*(IC-1) DO 280 I = 1,4 L = LL + I SAVE(L) = SAVE(L) + TEMPAR(I) 280 CONTINUE 281 CONTINUE C IF (KMBGG(2) .EQ. 0) GO TO 289 C MIJ = DN(KK)*DN(N)*DHH SAVM(IC) = SAVM(IC) + MIJ 289 CONTINUE C C LOOP FOR MORE PARTITIONS C 290 CONTINUE C C LOOP FOR MORE GAUSS POINTS C 300 CONTINUE IF (KMBGG(2) .EQ. 0) GO TO 306 DO 305 I = 1,36 305 SAVM(I) = SAVM(I)*DRHO 306 CONTINUE C C CHECK ON NECESSITY OF PRE-MULTIPLYING COORDINATE TRANSFORMATIONS C IF (KMBGG(1) .EQ. 0) GO TO 500 IC = 0 DO 385 KK = 1,8 ISUB = 4*KK + 10 IF (NECPT(ISUB) .EQ. 0) GO TO 310 C C ELEMENT TO GLOBAL C CALL TRANSS (NECPT(ISUB),TB) CALL GMMATS (E1T,2,3,0,TB,3,3,0,PREMUL) GO TO 350 310 DO 320 I = 1,6 PREMUL(I) = E1T(I) 320 CONTINUE 350 DO 380 N = KK,8 IC = IC + 1 LL = 4*IC - 3 CALL GMMATS (PREMUL,2,3,1,SAVE(LL),2,2,0,TEMP) C C STORE THE 3 X 2 IN TSAVE C DO 370 I = 1,6 L = 6*IC + I - 6 370 TSAVE(L) = TEMP(I) C 380 CONTINUE 385 CONTINUE C C NOW CHECK ON THE NECESSITY FOR POST-MULTIPLYING TRANSFORMATIONS C IC = 0 DO 490 N = 1,8 ISUB = 4*N + 10 IF (NECPT(ISUB) .EQ. 0) GO TO 410 C C GLOBAL TO ELEMENT C CALL TRANSS (NECPT(ISUB),TB) CALL GMMATS (E1T,2,3,0,TB,3,3,0,PSTMUL) GO TO 450 410 DO 420 I = 1,6 PSTMUL(I) = E1T(I) 420 CONTINUE C C POST-MULTIPLY C C IND6 GIVES STARTING POSITIONS OF VERTICAL 3X3 PARTITIONS, SINCE C THE NTH COLUMN MULTIPLIES INTO THE NTH POST-MULTIPLIER C 450 DO 485 M = 1,N IC = IC + 1 LL = IND6(IC) CALL GMMATS (TSAVE(LL),3,2,0,PSTMUL,2,3,0,TEMP) DO 486 I = 1,9 486 TEMP(I) = TEMP(I)*THICK C C PICK UP ROW AND COLUMN PARTITION NUMBERS AND CONVERT TO STARTING C POINTS IN OPEN CORE FOR THIS PARTITION AND ITS TRANSPOSE. C TEMP IS PUT INTO ONE PARTITION AND TEMP-TRANSPOSE INTO THE OTHER C NCOL = ISIL(N) NROW = ISIL(M) CALL INSERT (NCOL,NROW,3,8,JCORE,Z,Z,TEMP,TEMP,IPREC) C C LOOP FOR ANOTHER PARTITION FOR THIS POST-MULTIPLIER C 485 CONTINUE C C LOOP FOR ANOTHER POST-MULTIPLIER C 490 CONTINUE C C ADD TO DICTIONARY C DICT(5) = GE CALL EMGOUT (Z(JCORE),Z(JCORE),NSQ,1,DICT,1,IPREC) C 500 IF (KMBGG(2) .EQ. 0) GO TO 1000 C IC = 0 DO 620 KK = 1,8 DO 620 N = KK,8 IC = IC + 1 DO 510 I = 1,9 510 TEMP(I) = 0.0 C C CHECK ON TEH NECESSITY OF COORDINATE TRANSFORMATIONS. C SINCE EACH PARTITION IS A MULTIPLE OF A 3X3 IDENTITY AND SINCE C THE TRANSFORAMATION MATRICES ARE ORTHOGONAL, NO EXPLICIT C TRANSFORMA-TIONS FROM THE ELEMENT COORDINATE SYSTEM ARE REQUIRED. C ALSO, NO TRANSFORAMTION IS REQUIRED IF TRANSFORMATION MATRICES ARE C THE SAME FOR THE GRIDS CORRESPONDING TO THE THE ROW AND COLUMN C TERM = SAVM(IC) IF (KK .EQ. N) GO TO 570 ISUB = 4*KK + 10 ISUB1 =4*N + 10 IF (NECPT(ISUB).EQ.0 .AND. NECPT(ISUB1).EQ.0) GO TO 570 IF (NECPT(ISUB) .EQ. 0) GO TO 520 CALL TRANSS (NECPT(ISUB),TEMP1) IF (NECPT(ISUB1) .EQ. 0) GO TO 530 520 CALL TRANSS (NECPT(ISUB1),TEMP2) IF (NECPT(ISUB) .EQ. 0) GO TO 550 C C MULTIPLY THE TRANSFORMATION MATRICES C CALL GMMATS (TEMP1,3,3,1,TEMP2,3,3,0,TEMP3) GO TO 580 530 TEMP3(1) = TEMP1(1) TEMP3(2) = TEMP1(4) TEMP3(3) = TEMP1(7) TEMP3(4) = TEMP1(2) TEMP3(5) = TEMP1(5) TEMP3(6) = TEMP1(8) TEMP3(7) = TEMP1(3) TEMP3(8) = TEMP1(6) TEMP3(9) = TEMP1(9) GO TO 580 550 DO 560 I = 1,9 560 TEMP3(I) = TEMP2(I) GO TO 580 570 TEMP(1) = TERM TEMP(5) = TERM TEMP(9) = TERM GO TO 600 C 580 DO 590 I = 1,9 590 TEMP(I) = TERM*TEMP3(I) C 600 NROW = ISIL(KK) NCOL = ISIL(N) CALL INSERT (NCOL,NROW,3,8,JCORE,Z,Z,TEMP,TEMP,IPREC) 620 CONTINUE C CALL EMGOUT (Z(JCORE),Z(JCORE),NSQ,1,DICT,2,IPREC) GO TO 1000 C C HEAT FORMULATION C C COMPUTE MATERIAL PROPERTIES C 700 SINTH = 0. COSTH = 0. ELTEMP = TTEMP INFLAG = 2 MATID = MATID1 CALL HMAT (ECPT(1)) THICK = T DC = C*T C C ZERO OUT THE SAVE MATRIX C DO 720 I = 1,36 SAVM(I) = 0.0 720 SAVE(I) = 0.0 C DO 880 III = 1,ID1 DO 880 JJJ = 1,ID1 C C COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA C EACH GRID POINT C DO 730 N = 1,4 IF (KMBGG(3) .NE. 0) DN(N) = .25*(1.0+PT(III)*XI(N))* 1 (1.0+PT(JJJ)*ETA(N))*(PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.0) DNXI(N) = .25*XI(N)*(1.0+PT(JJJ)*ETA(N))* 1 (2.0*PT(III)*XI(N)+PT(JJJ)*ETA(N)) DNETA(N) = .25*ETA(N)*(1.0+PT(III)*XI(N))* 1 (PT(III)*XI(N)+2.0*PT(JJJ)*ETA(N)) 730 CONTINUE C DO 731 N = 5,7,2 IF (KMBGG(3) .NE. 0) DN(N) = .50*(1.0-PT(III)*PT(III))* 1 (1.0+PT(JJJ)*ETA(N)) DNXI(N) = -PT(III)*(1.0+PT(JJJ)*ETA(N)) DNETA(N) = .50*(1.0-PT(III)*PT(III))*ETA(N) 731 CONTINUE C DO 732 N = 6,8,2 IF (KMBGG(3) .NE. 0) DN(N) = .50*(1.0+PT(III)*XI(N))* 1 (1.0-PT(JJJ)*PT(JJJ)) DNXI(N) = .50*XI(N)*(1.0-PT(JJJ)*PT(JJJ)) DNETA(N) = -PT(JJJ)*(1.0+PT(III)*XI(N)) 732 CONTINUE C C COMPUTE JACOBEAN C C N1XI N2XI N3XI N4XI N5XI N6XI N7XI N8XI C DNC = N1ETA N2ETA N3ETA N4ETA N5ETA N6ETA N7ETA N8ETA C C X1 Y1 C X2 Y2 C X3 Y3 C XX = X4 Y4 C X5 Y5 C X6 Y6 C X7 Y7 C X8 Y8 C CALL GMMATS (DNC,2,8,0,XX,8,2,0,XJB) C C XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED C FOR INVERSION C K = 0 DO 740 I = 1,2 DO 740 J = 1,2 K = K + 1 740 XXJB(I,J) = XJB(K) C C COMPUTE INVERSE AND DETERMINANT OF JACOBEAN C CALL INVERS (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS) IF (ISING .NE. 2) GO TO 741 CALL MESAGE (30,143,ECPT(1)) ERROR =.TRUE. RETURN C 741 CONTINUE DHH = DETERM*H(III)*H(JJJ) C C COMPUTE DERIVATIVES WITH RESPECT TO X,Y,AND Z C K = 0 DO 750 I = 1,2 DO 750 J = 1,2 K = K + 1 750 XJB(K) = XXJB(I,J) CALL GMMATS (XJB,2,2,0,DNC,2,8,0,DNL) C C N1X N2X N3X N4X N5X N6X N7X N8X C DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y C C SET UP THE BT MATRIX C IC = 0 DO 875 KK = 1,8 IF (KMBGG(1) .EQ. 0) GO TO 800 BT(1) = KX *DNX(KK) + KXY*DNY(KK) BT(2) = KXY*DNX(KK) + KY*DNY(KK) C C DO NOT TRANSFORM FROM MATERIAL COORD SYSTEM TO BASIC AND GLOBAL C SINCE THIS IS A SCALAR PROBLEM C 800 DO 870 N = KK,8 IC = IC + 1 C C SET UP THE B MATRIX C IF (KMBGG(1) .EQ. 0) GO TO 810 B(1) = DNX(N) B(2) = DNY(N) C C O.K. NOW PERFORM FINAL MULTIPLICATION C KIJ = BT(1)*B(1) + BT(2)*B(2) C C THROW IN JACOBEAN DETERMINANT AND WEIGHT FACTORS C KIJ = KIJ*DHH C C ADD THE RESULTS OF THIS INTEGRATION TO PREVIOUS RESULTS C SAVE(IC) = SAVE(IC) + KIJ 810 IF (KMBGG(3) .EQ. 0) GO TO 870 BIJ = DN(KK)*DN(N)*DHH SAVM(IC) = SAVM(IC) + BIJ C C LOOP FOR MORE PARTITIONS C 870 CONTINUE 875 CONTINUE C C LOOP FOR ADDITIONAL GAUSS POINTS C 880 CONTINUE C DO 890 I = 1,36 IF (KMBGG(1) .NE. 0) SAVE(I) = SAVE(I)*THICK IF (KMBGG(3) .NE. 0) SAVM(I) = SAVM(I)*DC 890 CONTINUE C C INSERT INTO OVERALL STIFFNESS MATRIX C IC = 0 DO 900 I = 1,8 DO 900 J = I,8 IC = IC + 1 NROW = ISIL(I) NCOL = ISIL(J) IF (KMBGG(1) .NE. 0) CALL INSERT (NCOL,NROW,1,8,JCORE,Z,Z, 1 SAVE(IC),SAVE(IC),IPREC) IF (KMBGG(3) .NE. 0) CALL INSERT (NCOL,NROW,1,8,JCORE+64,Z,Z, 1 SAVM(IC),SAVM(IC),IPREC) 900 CONTINUE C IF (KMBGG(1) .NE. 0) CALL EMGOUT (Z(JCORE),Z(JCORE),NSQ,1,DICT,1, 1 IPREC) IF (KMBGG(3) .NE. 0) CALL EMGOUT (Z(JCORE+64),Z(JCORE+64),NSQ,1, 1 DICT,3,IPREC) GO TO 5000 C C SAVE ELEMENT NAME, ID, THICKNESS, DENSITY, NO. OF GRID POINTS, C GRID POINT DATA, AND AREA IF USER REQUESTED VOLUME AND AREA C COMPUTATION C 1000 IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 5000 ECPT(2) = ECPT(13) ECPT(3) = RHO J = 4 NECPT(J) = 8 ECPT(46) = AREA CALL WRITE (SCR4,BCD,2,0) CALL WRITE (SCR4,ECPT(1),4,0) CALL WRITE (SCR4,DUMB(2),8,0) CALL WRITE (SCR4,ECPT(14),33,1) 5000 RETURN END ================================================ FILE: mis/isft.f ================================================ INTEGER FUNCTION ISFT (BF,SFT,J) C EXTERNAL LSHIFT,RSHIFT INTEGER BF,SFT,RSHIFT C IF (J .EQ. 4) GO TO 10 ISFT = RSHIFT(BF,SFT) RETURN 10 ISFT = LSHIFT(BF,SFT) RETURN END ================================================ FILE: mis/itcode.f ================================================ FUNCTION ITCODE (ITEMX) C C THE FUNCTION RETURNS AN INTEGER CODE NUMBER FOR ITEM. THE CODE C NUMBER IS USED IN UPDATING THE MDI. IF AN INCORRECT ITEM NAME IS C USED, THE VALUE RETURNED WILL BE -1. C COMMON /ITEMDT/ NITEM,ITEM(7,1) COMMON /SYS / SYS(5),IFRST C DO 10 I = 1,NITEM IF (ITEMX .EQ. ITEM(1,I)) GO TO 20 10 CONTINUE C C INVALID ITEM - RETURN -1 C ITCODE = -1 RETURN C C ITEM FOUND - RETURN MDI POSITION POINTER C 20 ITCODE = I + IFRST - 1 RETURN END ================================================ FILE: mis/itmprt.f ================================================ SUBROUTINE ITMPRT (NAME,ITEM,NZ,IOPT) C C WILL PRINT SOF ITEM - USING E15.7,I10, OR ALPHA FORMAT C INTEGER SYSBUF,OTPE,TWO1,RC REAL SUBS(3),ITM,ITEM,NAME,LODS,LOAP DIMENSION ICORE(4),NAME(2) CHARACTER*1 CCORE(2000) CHARACTER UFM*23,UWM*25 COMMON /MACHIN/ MACHX COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ SYSBUF,OTPE,INX(6),NLPP,INX1(2),LINE,INX2(26) COMMON /ZZZZZZ/ CORE(1) COMMON /TWO / TWO1(32) COMMON /OUTPUT/ HEAD1(96),HEAD2(96) EQUIVALENCE (CCORE,CORE) EQUIVALENCE (ICORE(1),CORE(1)) DATA OPAREN, CPAREN,EC,EC1,EC2,INTGC,ALPHC,ALPHC1,CONT,UNED,D/ 1 4H(1X , 4H) ,4H,1P,,4HE13.,4H6 ,4H,I13,4H,9X,,4HA4 , 2 4HCONT, 4HINUE,4HD / DATA BLANK , SUBS,ITM/4H ,4HSUBS,4HTRUC,4HTURE,4HITEM/ DATA EQSS / 4HEQSS/, BGSS/4HBGSS/, CSTM/4HCSTM /, 1 PLTS / 4HPLTS/, LODS/4HLODS/, LOAP/4HLOAP / C C C TEST FOR FORMATED TABLE PRINT C IF (IOPT .NE. 2) GO TO 5 IF (ITEM .EQ. EQSS) GO TO 2000 IF (ITEM .EQ. BGSS) GO TO 2100 IF (ITEM .EQ. CSTM) GO TO 2200 IF (ITEM .EQ. PLTS) GO TO 2300 IF (ITEM .EQ. LODS) GO TO 2400 IF (ITEM .EQ. LOAP) GO TO 2500 5 CONTINUE C C PERFORM UNFORMATED DUMP OF TABLE C CALL SFETCH (NAME,ITEM,1,RC) IF (RC .NE. 1) GO TO 190 DO 10 I = 1,96 10 HEAD2(I) = BLANK DO 15 I = 1,3 15 HEAD2( I) = SUBS(I) HEAD2( 5) = NAME(1) HEAD2( 6) = NAME(2) HEAD2( 8) = ITM HEAD2(10) = ITEM CALL PAGE HEAD2(12) = CONT HEAD2(13) = UNED HEAD2(14) = D INUM = NZ/2 - 1 NS = INUM + 1 LLEN = 0 CORE(1) = OPAREN IREC = 0 20 WRITE (OTPE,30)IREC IREC = IREC + 1 30 FORMAT ('0GROUP NO.',I4) LINE = LINE + 2 IF (LINE .GE. NLPP) CALL PAGE IX = INUM NRED = 0 NP = INUM - 1 IV = 4 40 IX = IX + 1 IOUT = 4 NRED = NRED + 1 NP = NP + 1 CALL SUREAD (CORE(IX),1,FLAG,RC) IF (RC-2) 45,160,170 45 I = NUMTYP(CORE(IX)) + 1 IF (I.EQ.1 .AND. IV.NE.4) I = IV IV = I GO TO (140,140,100,120), I C C REAL NUMBER (1) C 100 IOUT = 1 IF (LLEN+13 .GT. 132) GO TO 160 110 CORE(NRED+1) = EC CORE(NRED+2) = EC1 CORE(NRED+3) = EC2 NRED = NRED + 2 111 LLEN = LLEN + 13 GO TO 40 C C ALPHA (2) C 120 IOUT = 2 IF (LLEN+6 .GT. 132) GO TO 160 130 CORE(NRED+1) = ALPHC CORE(NRED+2) = ALPHC1 NRED = NRED + 1 GO TO 111 C C INTEGER (3) C 140 IOUT = 3 IF (LLEN+13 .GT. 132) GO TO 160 150 ICORE(NRED+1) = INTGC GO TO 111 C C BUFFER FULL - END RECORD PRINT LINE C 160 CORE(NRED+1) = CPAREN IF (NRED .EQ. 1) WRITE (OTPE,161) IF (NRED .EQ. 1) GO TO 162 161 FORMAT ('0END OF GROUP - NULL GROUP') IF ( MACHX.EQ.2 .OR. MACHX.EQ.5 ) & WRITE (OTPE,CORE) (ICORE(I),I=NS,NP) IF ( MACHX.NE.2 .AND. MACHX.NE.5 ) & CALL WRTFMT (ICORE(NS), NP-NS+1, CCORE) 162 LINE = LINE + 1 IF (LINE .GE. NLPP) CALL PAGE LLEN = 0 NRED = 1 NP = INUM CORE(INUM+1) = CORE(IX) IX = INUM + 1 GO TO (110,130,150,20), IOUT C C END OF ITEM C 170 WRITE (OTPE,180) 180 FORMAT ('0END OF ITEM') 190 RETURN C C PERFORM FORMATED LISTING OF TABLE C C EQSS TABLE C 2000 CALL SFETCH (NAME,ITEM,1,RC) IF (RC .NE. 1) RETURN CALL SUREAD (CORE(1),4,NOUT,RC) IF (RC .NE. 1) GO TO 3000 NSUB = ICORE(3) CALL SUREAD (CORE(1),NZ,NOUT,RC) IF (RC .NE. 2) GO TO 3000 IST = 1 + NOUT LEFT = NZ - NOUT DO 2010 I = 1,NSUB CALL SUREAD (CORE(IST),LEFT,NOUT,RC) IF (RC.NE.2 .AND. RC.NE.3) GO TO 3000 ICOMP = 1 + 2*(I-1) CALL CMIWRT (1,NAME,CORE(ICOMP),IST,NOUT,CORE,ICORE) 2010 CONTINUE CALL SUREAD (CORE(IST),LEFT,NOUT,RC) IF (RC.NE.2 .AND. RC.NE.3) GO TO 3000 CALL CMIWRT (8,NAME,0,IST,NOUT,CORE,ICORE) RETURN C C BGSS TABLE C 2100 CALL SFETCH (NAME,ITEM,1,RC) IF (RC .NE. 1) RETURN NGRD = 1 CALL SJUMP (NGRD) IF (NGRD .LT. 0) GO TO 3000 IST = 1 CALL SUREAD (CORE(IST),NZ,NOUT,RC) IF (RC.NE.2 .AND. RC.NE.3) GO TO 3000 CALL CMIWRT (2,NAME,NAME,IST,NOUT,CORE,ICORE) RETURN C C CSTM TABLE C 2200 CALL SFETCH (NAME,ITEM,1,RC) IF (RC .NE. 1) RETURN NGRD = 1 CALL SJUMP (NGRD) IF (NGRD .LT. 0) GO TO 3000 IST = 1 CALL SUREAD (CORE(IST),NZ,NOUT,RC) IF (RC.NE.2 .OR. RC.NE.3) GO TO 3000 CALL CMIWRT (3,NAME,NAME,IST,NOUT,CORE,ICORE) RETURN C C PLTS TABLE C 2300 CALL SFETCH (NAME,ITEM,1,RC) IF (RC .NE. 1) RETURN CALL SUREAD (CORE(1),3,NOUT,RC) IF (RC .NE. 1) GO TO 3000 IST = 1 CALL SUREAD (CORE(IST),NZ,NOUT,RC) IF (RC.NE.2 .AND. RC.NE.3) GO TO 3000 CALL CMIWRT (4,NAME,NAME,IST,NOUT,CORE,ICORE) RETURN C C LODS TABLE C 2400 ICODE = 5 C 2410 CALL SFETCH (NAME,ITEM,1,RC) IF (RC .NE. 1) RETURN CALL SUREAD (CORE(1),4,NOUT,RC) IF (RC .NE. 1) GO TO 3000 NSUB = ICORE(4) CALL SUREAD (CORE(1),NZ,NOUT,RC) IF (RC .NE. 2) GO TO 3000 IST = 1 + NOUT LEFT = NZ - NOUT DO 2420 I = 1,NSUB CALL SUREAD (CORE(IST),LEFT,NOUT,RC) IF (RC.NE.2 .AND. RC.NE.3) GO TO 3000 ICOMP = 1 + 2*(I-1) CALL CMIWRT (ICODE,NAME,CORE(ICOMP),IST,NOUT,CORE,ICORE) ICODE = 6 2420 CONTINUE RETURN C C LOAP TABLE C 2500 ICODE = 7 GO TO 2410 C C INSUFFICIENT CORE OR ILLEGAL ITEM FORMAT - FORCE PHYSICAL DUMP C 3000 WRITE (OTPE,3010) UWM,ITEM,NAME 3010 FORMAT (A25,' 6231, INSUFFICIENT CORE AVAILABLE OR ILLEGAL ITEM ', 1 'FORMAT REQUIRES AN UNFORMATED', /31X, 2 'DUMP TO BE PERFORM FOR ITEM ',A4,' OF SUBSTRUCTURE ',2A4) GO TO 5 END ================================================ FILE: mis/ittype.f ================================================ FUNCTION ITTYPE(ITEMX) C C***** C C THIS FUNCTION RETURNS AN INTEGER CODE NUMBER TO INDICATE C WHETHER A PARTICULAR SOF ITEM IS A MATRIX OR TABLE. C THE RETURN CODES ARE C C 1 - MATRIX ITEM C 0 - TABLE ITEM C -1 - ILLEGAL ITEM NAME C C***** C COMMON / ITEMDT / NITEM ,ITEM(7,1) C DO 10 I=1,NITEM IF(ITEMX .EQ. ITEM(1,I)) GO TO 20 10 CONTINUE C C ILLIGAL ITEM - RETURN -1 C ITTYPE = -1 RETURN C C ITEM FOUND - RETURN TYPE C 20 IF(ITEM(2,I) .LE. 0) ITTYPE = 0 IF(ITEM(2,I) .GT. 0) ITTYPE = 1 RETURN END ================================================ FILE: mis/iunion.f ================================================ FUNCTION IUNION(I1,I2) C C I1 AND I2 ARE .GT. 0 BUT .LE. 654321 AND CONSIST OF ANY UNIQUE C COMBINATION OF THE DIGITS 1 THRU 6 C INTEGER K(6,2) , KK(6) , R C C DECODE I1 INTO K(*,1) I=1 II=I1 ASSIGN 10 TO R GO TO 100 C C DECODE I2 INTO K(*,2) 10 I=2 II=I2 ASSIGN 20 TO R GO TO 100 C C FORM UNION OF K(*,1) AND K(*,2) IN KK(*) 20 DO 30 I=1,6 KK(I)=0 IF(K(I,1).EQ.I .OR. K(I,2).EQ.I) KK(I)=I 30 CONTINUE C C PACK KK(*) INTO IUNION J=1 L=0 DO 40 I=1,6 IF(KK(I).EQ.0) GO TO 40 IF(L.GT.0) J=10*J L=L+J*I 40 CONTINUE C IUNION=L C RETURN C C 100 DO 110 J=1,6 110 K(J,I)=0 DO 120 J=1,6 L=II-10*(II/10) II=(II-L)/10 IF(L.EQ.0) GO TO 130 120 K(L,I)=L 130 GO TO R,(10,20) C END ================================================ FILE: mis/jacob2.f ================================================ SUBROUTINE JACOB2 (ELID,SHP,DSHP,GPTH,BGPDT,GPNORM,JACOB) C C THIS ROUTINE WAS CALLED JACOBD BEFORE, AND WAS THE ONLY ROUTINE C THAT ENDED WITH 'DB' AND WAS NOT A BLOCK DATA SUBROUTINE. C C THIS SUBROUTINE CALCULATES JACOBIAN AT EACH GIVEN INTEGRATION C POINT FOR QUAD4 POTVIN TYPE ELEMENTS. C C DOUBLE PRECISION VERSION C LOGICAL BADJ INTEGER INDEX(3,3),ELID,NOGO,NOUT REAL BGPDT(4,1),GPNORM(4,1) DOUBLE PRECISION SHP(1),DSHP(1),GPTH(1),PSITRN(9),JACOB(3,3), 1 TGRID(3,8),SK(3),TK(3),ENK(3),V1(3),V2(3),V3(3), 2 VAL,HZTA,THICK,DETJ,DUM(3),EPS COMMON /Q4DT / DETJ,HZTA,PSITRN,NNODE,BADJ,N1 COMMON /SYSTEM/ IBUF,NOUT,NOGO C EQUIVALENCE (PSITRN(1),V1(1)) EQUIVALENCE (PSITRN(4),V2(1)) EQUIVALENCE (PSITRN(7),V3(1)) C DATA EPS / 1.0D-15 / C C INITIALIZE BADJ LOGICAL C BADJ=.FALSE. C C COMPUTE THE JACOBIAN AT THIS GAUSS POINT, C ITS INVERSE AND ITS DETERMINANT. C DO 150 I=1,NNODE THICK=GPTH(I) TGRID(1,I)=BGPDT(2,I)+HZTA*THICK*GPNORM(2,I) TGRID(2,I)=BGPDT(3,I)+HZTA*THICK*GPNORM(3,I) 150 TGRID(3,I)=BGPDT(4,I)+HZTA*THICK*GPNORM(4,I) DO 200 I=1,2 IPOINT=N1*(I-1) DO 200 J=1,3 JACOB(I,J)=0.0D0 DO 200 K=1,NNODE JACOB(I,J)=JACOB(I,J)+DSHP(K+IPOINT)*TGRID(J,K) 200 CONTINUE DO 250 J=1,3 JACOB(3,J)=0.0D0 DO 250 K=1,NNODE JTEMP=J+1 JACOB(3,J)=JACOB(3,J)+0.5D0*GPTH(K)*GPNORM(JTEMP,K)*SHP(K) 250 CONTINUE C C SAVE THE S, T, AND N VECTORS FOR CALCULATING PSI LATER. C DO 300 I=1,3 IF (DABS(JACOB(1,I)) .LE. EPS) JACOB(1,I)=0.0D0 SK(I)=JACOB(1,I) IF (DABS(JACOB(2,I)) .LE. EPS) JACOB(2,I)=0.0D0 TK(I)=JACOB(2,I) IF (DABS(JACOB(3,I)) .LE. EPS) JACOB(3,I)=0.0D0 ENK(I)=JACOB(3,I) 300 CONTINUE C C THE INVERSE OF THE JACOBIAN WILL BE STORED IN C JACOB AFTER THE SUBROUTINE INVERD HAS EXECUTED. C CALL INVERD (3,JACOB,3,DUM,0,DETJ,ISING,INDEX) IF (ISING.EQ.1 .AND. DETJ.GT.0.0D0) GO TO 350 WRITE (NOUT,550) ELID NOGO=1 BADJ=.TRUE. GO TO 500 350 CALL DAXB (SK,TK,V3) VAL=DSQRT(V3(1)*V3(1)+V3(2)*V3(2)+V3(3)*V3(3)) V3(1)=V3(1)/VAL V3(2)=V3(2)/VAL V3(3)=V3(3)/VAL C C CROSS ELEMENT Y DIRECTION WITH UNIT VECTOR V3 IN ORDER C TO BE CONSISTENT WITH THE ELEMENT COORDINATE SYSTEM. C C NOTE - THIS IS IMPORTANT FOR THE DIRECTIONAL REDUCED C INTEGRATION CASES. C C C V2(1)=0.0D0 V2(2)=1.0D0 V2(3)=0.0D0 C CALL DAXB (V2,V3,V1) VAL=DSQRT(V1(1)*V1(1)+V1(2)*V1(2)+V1(3)*V1(3)) V1(1)=V1(1)/VAL V1(2)=V1(2)/VAL V1(3)=V1(3)/VAL CALL DAXB (V3,V1,V2) C C REMEMBER THAT V1(1) IS EQUIVALENCED TO PSITRN(1), AND SO ON. C C ELIMINATE SMALL NUMBERS C DO 400 I = 1,3 IF (DABS(V1(I)) .LE. EPS) V1(I)=0.0D0 IF (DABS(V2(I)) .LE. EPS) V2(I)=0.0D0 IF (DABS(V3(I)) .LE. EPS) V3(I)=0.0D0 400 CONTINUE C 500 CONTINUE RETURN C 550 FORMAT ('0*** USER FATAL ERROR, ELEMENT ID =',I10, 1 ' HAS BAD OR REVERSE GEOMETRY') END ================================================ FILE: mis/jacobs.f ================================================ SUBROUTINE JACOBS (ELID,SHP,DSHP,GPTH,BGPDT,GPNORM,JACOB) C C THIS SUBROUTINE CALCULATES JACOBIAN AT EACH GIVEN INTEGRATION C POINT FOR QUAD4 POTVIN TYPE ELEMENTS. C C SINGLE PRECISION VERSION C LOGICAL BADJ INTEGER INDEX(3,3),ELID,NOGO,NOUT REAL BGPDT(4,1),GPNORM(4,1) REAL SHP(1),DSHP(1),GPTH(1),PSITRN(9),JACOB(3,3), 1 TGRID(3,8),SK(3),TK(3),ENK(3),V1(3),V2(3),V3(3), 2 VAL,HZTA,THICK ,DETJ,DUM(3),EPS COMMON /Q4DT / DETJ,HZTA,PSITRN,NNODE,BADJ,N1 COMMON /SYSTEM/ IBUF,NOUT,NOGO C EQUIVALENCE (PSITRN(1),V1(1)) EQUIVALENCE (PSITRN(4),V2(1)) EQUIVALENCE (PSITRN(7),V3(1)) C DATA EPS / 1.0E-15 / C C INITIALIZE BADJ LOGICAL C BADJ=.FALSE. C C COMPUTE THE JACOBIAN AT THIS GAUSS POINT, C ITS INVERSE AND ITS DETERMINANT. C DO 150 I=1,NNODE THICK=GPTH(I) TGRID(1,I)=BGPDT(2,I)+HZTA*THICK*GPNORM(2,I) TGRID(2,I)=BGPDT(3,I)+HZTA*THICK*GPNORM(3,I) 150 TGRID(3,I)=BGPDT(4,I)+HZTA*THICK*GPNORM(4,I) DO 200 I=1,2 IPOINT=N1*(I-1) DO 200 J=1,3 JACOB(I,J)=0.0 DO 200 K=1,NNODE JACOB(I,J)=JACOB(I,J)+DSHP(K+IPOINT)*TGRID(J,K) 200 CONTINUE DO 250 J=1,3 JACOB(3,J)=0.0 DO 250 K=1,NNODE JTEMP=J+1 JACOB(3,J)=JACOB(3,J)+0.5*GPTH(K)*GPNORM(JTEMP,K)*SHP(K) 250 CONTINUE C C SAVE THE S,T, AND N VECTORS FOR CALCULATING PSI LATER. C DO 300 I=1,3 IF (ABS(JACOB(1,I)) .LE. EPS) JACOB(1,I)=0.0 SK(I)=JACOB(1,I) IF (ABS(JACOB(2,I)) .LE. EPS) JACOB(2,I)=0.0 TK(I)=JACOB(2,I) IF (ABS(JACOB(3,I)) .LE. EPS) JACOB(3,I)=0.0 ENK(I)=JACOB(3,I) 300 CONTINUE C C THE INVERSE OF THE JACOBIAN WILL BE STORED IN C JACOB AFTER THE SUBROUTINE INVERS HAS EXECUTED. C CALL INVERS (3,JACOB,3,DUM,0,DETJ,ISING,INDEX) IF (ISING.EQ.1 .AND. DETJ.GT.0.0) GO TO 350 WRITE (NOUT,550) ELID NOGO=1 BADJ=.TRUE. GO TO 500 350 CALL SAXB (SK,TK,V3) VAL=SQRT(V3(1)*V3(1)+V3(2)*V3(2)+V3(3)*V3(3)) V3(1)=V3(1)/VAL V3(2)=V3(2)/VAL V3(3)=V3(3)/VAL C C CROSS ELEMENT Y DIRECTION WITH UNIT VECTOR V3 IN ORDER C TO BE CONSISTENT WITH THE ELEMENT COORDINATE SYSTEM. C C NOTE - THIS IS IMPORTANT FOR THE DIRECTIONAL REDUCED C INTEGRATION CASES. C C C V2(1)=0.0 V2(2)=1.0 V2(3)=0.0 C CALL SAXB (V2,V3,V1) VAL=SQRT(V1(1)*V1(1)+V1(2)*V1(2)+V1(3)*V1(3)) V1(1)=V1(1)/VAL V1(2)=V1(2)/VAL V1(3)=V1(3)/VAL CALL SAXB (V3,V1,V2) C C REMEMBER THAT V1(1) IS EQUIVALENCED TO PSITRN(1), AND SO ON. C C ELIMINATE SMALL NUMBERS C DO 400 I = 1,3 IF (ABS(V1(I)) .LE. EPS) V1(I)=0.0 IF (ABS(V2(I)) .LE. EPS) V2(I)=0.0 IF (ABS(V3(I)) .LE. EPS) V3(I)=0.0 400 CONTINUE C 500 CONTINUE RETURN C 550 FORMAT ('0*** USER FATAL ERROR, ELEMENT ID =',I10, 1 ' HAS BAD OR REVERSE GEOMETRY') END ================================================ FILE: mis/kbar.f ================================================ SUBROUTINE KBAR C C THIS ROUTINE COMPUTES THE TWO 6X6 MATRICES K(NPVT,NPVT) AND C K(NPVT,J) FOR A BAR ELEMENT HAVING END POINTS NUMBERED NPVT AND J. C C ECPT FOR THE BAR C C ECPT( 1) - IELID ELEMENT ID. NUMBER C ECPT( 2) - ISILNO(2) * SCALAR INDEX NOS. OF THE GRID POINTS C ECPT( 3) - ... * C ECPT( 4) - SMALLV(3) $ REFERENCE VECTOR C ECPT( 5) - ... $ C ECPT( 6) - ... $ C ECPT( 7) - ICSSV COOR. SYS. ID FOR SMALLV VECTOR C ECPT( 8) - IPINFL(2) * PIN FLAGS C ECPT( 9) - ... * C ECPT(10) - ZA(3) $ OFFSET VECTOR FOR POINT A C ECPT(11) - ... $ C ECPT(12) - ... $ C ECPT(13) - ZB(3) * OFFSET VECTOR FOR POINT B C ECPT(14) - ... * C ECPT(15) - ... * C ECPT(16) - IMATID MATERIAL ID. C ECPT(17) - A CROSS-SECTIONAL AREA C ECPT(18) - I1 $ AREA MOMENTS OF INERTIA C ECPT(19) - I2 $ C ECPT(20) - FJ TORSIONAL CONSTANT C ECPT(21) - NSM NON-STRUCTURAL MASS C ECPT(22) - FE FORCE ELEMENT DESCRIPTIONS (FORCE METHOD) C ECPT(23) - C1 * STRESS RECOVERY COEFFICIENTS C ECPT(24) - C2 * C ECPT(25) - D1 * C ECPT(26) - D2 * C ECPT(27) - F1 * C ECPT(28) - F2 * C ECPT(29) - G1 * C ECPT(30) - G2 * C ECPT(31) - K1 $ AREA FACTORS FOR SHEAR C ECPT(32) - K2 $ C ECPT(33) - I12 AREA MOMENT OF INERTIA C ECPT(34) - MCSIDA COOR. SYS. ID. FOR GRID POINT A C ECPT(35) - GPA(3) * BASIC COORDINATES FOR GRID POINT A C ECPT(36) - ... * C ECPT(37) - ... * C ECPT(38) - MCSIDB COOR. SYS. ID. FOR GRID POINT B C ECPT(39) - GPB(3) $ BASIC COORDINATES FOR GRID POINT B C ECPT(40) - ... $ C ECPT(41) - ... $ C ECPT(42) - ELTEMP AVG. ELEMENT TEMPERATURE C C SEE SUBROUTINE KELBOW ON THE DISCUSSION OF K1 AND K2, THE AERA C FACTORS FOR SHEAR CORRECTION C LOGICAL HEAT ,ABASIC ,BBASIC ,BASIC , 1 AOFSET ,BOFSET ,OFFSET REAL K1 ,K2 ,I1 ,I2 , 1 I12 ,NSM DOUBLE PRECISION TA(18) ,TB(9) ,SMALV0(6) ,DELA , 1 DELB ,KE ,KEP ,VECI , 2 VECJ ,VECK ,FL ,FLL , 3 EI1 ,EI2 ,GAK1 ,GAK2 , 4 R1 ,R2 ,SK1 ,SK2 , 5 SK3 ,SK4 ,AEL ,GJL , 6 LR1 ,LR2 ,L ,LSQ , 7 LCUBE ,DP(8) ,BETA ,LB , 8 L2B3 ,L2B6 ,DAMPC DIMENSION VECI(3) ,VECJ(3) ,VECK(3) ,ECPT(100), 1 IECPT(100),IPIN(10) COMMON /SYSTEM/ ISYS COMMON /SMA1IO/ IFCSTM ,IFMPT ,IFDIT ,IDUM1 , 1 IFECPT ,IGECPT ,IFGPCT ,IGGPCT , 2 IFGEI ,IGGEI ,IFKGG ,IGKGG , 3 IF4GG ,IG4GG ,IFGPST ,IGGPST , 4 INRW ,OUTRW ,CLSNRW ,CLSRW , 5 NEOR ,EOR ,MCBKGG(7) ,MCB4GG(7) C C SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS C COMMON /SMA1BK/ ICSTM ,NCSTM ,IGPCT ,NGPCT , 1 IPOINT ,NPOINT ,I6X6K ,N6X6K , 2 I6X64 ,N6X64 C C SMA1 PROGRAM CONTROL PARAMETERS C COMMON /SMA1CL/ IOPT4 ,K4GGSW ,NPVT ,LEFT , 1 FROWIC ,LROWIC ,NROWSC ,TNROWS , 2 JMAX ,NLINKS ,LINK(10) ,IDETCK , 3 DODET ,NOGO COMMON /SMA1HT/ HEAT COMMON /SMA1ET/ IELID ,ISILNO(2) ,SMALLV(3) ,ICSSV , 1 IPINFL(2) ,ZA(3) ,ZB(3) ,IMATID , 2 A ,I1 ,I2 ,FJ , 3 NSM ,FE ,C1 ,C2 , 4 D1 ,D2 ,F1 ,F2 , 5 G1 ,G2 ,K1 ,K2 , 6 I12 , MCSIDA ,GPA(3) , 7 MCSIDB ,GPB(3) ,TEMPEL C C SMA1 LOCAL VARIABLES C COMMON /SMA1DP/ KE(144) ,KEP(144) ,DELA(6) ,DELB(6) C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN/ MATIDC ,MATFLG ,ELTEMP ,STRESS C COMMON /MATOUT/ E ,G ,NU ,RHO , 1 ALPHA ,TSUBO ,GSUBE ,SIGT , 2 SIGC ,SIGS COMMON /HMTOUT/ FK C EQUIVALENCE (IELID,ECPT(1),IECPT(1)) , (TA(10),TB(1)) , 1 (ECPT(71),DP(1)) C C DETERMINE WHICH POINT IS THE PIVOT POINT. C IPVT = 1 IF (ISILNO(1) .EQ. NPVT) GO TO 20 IPVT = 2 IF (ISILNO(2) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1)) C C SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS. C ICSIDA AND ICSIDB ARE COOR. SYS. IDS. C 20 JCSIDA = 34 JCSIDB = 38 JOFSTA = 10 JOFSTB = 13 JPINA = 8 JPINB = 9 ICSIDA = IECPT(34) ICSIDB = IECPT(38) C C NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL C AXIS PLANE (FMMS - 36 P. 4) C WE STORE SMALLV IN SMALV0 SO THAT ARITHMETIC WILL BE DOUBLE C PRECISION C DO 50 I = 1,3 50 SMALV0(I) = SMALLV(I) FL = DSQRT(SMALV0(1)**2 + SMALV0(2)**2 + SMALV0(3)**2) IF (FL .LE. 0.0D0) GO TO 1010 DO 60 I = 1,3 60 SMALV0(I) = SMALV0(I)/FL C C DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT. C ABASIC = .TRUE. BBASIC = .TRUE. IF (ICSIDA .NE. 0) ABASIC = .FALSE. IF (ICSIDB .NE. 0) BBASIC = .FALSE. C C COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY C IF (.NOT. ABASIC) CALL TRANSD (ECPT(JCSIDA),TA) IF (.NOT. BBASIC) CALL TRANSD (ECPT(JCSIDB),TB) C C DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS. C AOFSET = .TRUE. J = JOFSTA - 1 DO 70 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 80 70 CONTINUE AOFSET = .FALSE. 80 BOFSET = .TRUE. J = JOFSTB - 1 DO 90 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 100 90 CONTINUE BOFSET = .FALSE. C C FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS. C FIRST WE STORE THE COORDINATES IN THE ARRAY DP SO THAT ALL C ARITHMETIC WILL BE DOUBLE PRECISION. C 100 DP(1) = ECPT(JCSIDA+1) DP(2) = ECPT(JCSIDA+2) DP(3) = ECPT(JCSIDA+3) DP(4) = ECPT(JCSIDB+1) DP(5) = ECPT(JCSIDB+2) DP(6) = ECPT(JCSIDB+3) VECI(1) = DP(1) - DP(4) VECI(2) = DP(2) - DP(5) VECI(3) = DP(3) - DP(6) C C TRANSFORM THE OFFSET VECTORS IF NECESSARY C IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150 C C TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY. C IDELA = 1 J = JOFSTA - 1 DO 110 I = 1,3 J = J + 1 110 DELA(I) = ECPT(J) IF (ABASIC) GO TO 120 IDELA = 4 CALL GMMATD (TA,3,3,0, DELA(1),3,1,0, DELA(4)) C C TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY C 120 IDELB = 1 J = JOFSTB - 1 DO 130 I = 1,3 J = J + 1 130 DELB(I) = ECPT(J) IF (BBASIC) GO TO 140 IDELB = 4 CALL GMMATD (TB,3,3,0, DELB(1),3,1,0, DELB(4)) C C SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI C 140 VECI(1) = VECI(1) + DELA(IDELA ) - DELB(IDELB ) VECI(2) = VECI(2) + DELA(IDELA+1) - DELB(IDELB+1) VECI(3) = VECI(3) + DELA(IDELA+2) - DELB(IDELB+2) C C COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE C 150 VECI(1) = -VECI(1) VECI(2) = -VECI(2) VECI(3) = -VECI(3) FL = DSQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) IF (FL .EQ. 0.0D0) GO TO 1010 C C NOW THAT LENGTH HAS BEEN COMPUTED, BRANCH IF THIS IS A -HEAT- C FORMULATION. C IF (HEAT) GO TO 2000 DO 160 I = 1,3 160 VECI(I) = VECI(I)/FL C C COMPUTE THE SMALL V SUB 0 VECTOR, SMALV0. ***CHECK THIS LOGIC*** C ISV = 1 IF (ICSSV .EQ. 0) GO TO 180 ISV = 4 CALL GMMATD (TA,3,3,0, SMALV0(1),3,1,0, SMALV0(4)) C C COMPUTE THE K VECTOR, VECK = VECI X SMALV0, AND NORMALIZE C 180 VECK(1) = VECI(2)*SMALV0(ISV+2) - VECI(3)*SMALV0(ISV+1) VECK(2) = VECI(3)*SMALV0(ISV ) - VECI(1)*SMALV0(ISV+2) VECK(3) = VECI(1)*SMALV0(ISV+1) - VECI(2)*SMALV0(ISV ) FLL = DSQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) IF (FLL .EQ. 0.0D0) GO TO 1010 VECK(1) = VECK(1)/FLL VECK(2) = VECK(2)/FLL VECK(3) = VECK(3)/FLL C C COMPUTE THE J VECTOR, VECJ = VECK X VECI, AND NORMALIZE C VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2) VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3) VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1) FLL = DSQRT(VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2) IF (FLL .EQ. 0.0D0) GO TO 1010 VECJ(1) = VECJ(1)/FLL VECJ(2) = VECJ(2)/FLL VECJ(3) = VECJ(3)/FLL C C SEARCH THE MATERIAL PROPERTIES TABLE FOR E, G AND THE DAMPING C CONSTANT. C MATIDC = IMATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) DAMPC = G SUB E C C SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX C CALCULATION C L = FL LSQ = L**2 LCUBE = LSQ*L C C STORE ECPT AND MPT VARIABLES IN DOUBLE PRECISION LOCATIONS. C DP(1) = E DP(2) = G DP(3) = I1 DP(4) = I2 DP(5) = A EI1 = DP(1)*DP(3) EI2 = DP(1)*DP(4) IF (K1.EQ.0.0 .OR. I12.NE.0.0) GO TO 210 DP(6) = K1 GAK1 = DP(2)*DP(5)*DP(6) R1 = (12.0D0*EI1*GAK1)/(GAK1*LCUBE + 12.0D0*L* EI1) GO TO 220 210 R1 = 12.0D0*EI1/LCUBE 220 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 230 DP(7) = K2 GAK2 = DP(2)*DP(5)*DP(7) R2 = (12.0D0*EI2*GAK2)/(GAK2*LCUBE + 12.0D0*L*EI2) GO TO 240 230 R2 = 12.0D0*EI2/LCUBE C C COMPUTE THE -SMALL- K-S, SK1, SK2, SK3 AND SK4 C 240 SK1 = 0.25D0*R1*LSQ + EI1/L SK2 = 0.25D0*R2*LSQ + EI2/L SK3 = 0.25D0*R1*LSQ - EI1/L SK4 = 0.25D0*R2*LSQ - EI2/L C C COMPUTE THE TERMS THAT WILL BE NEEDED FOR THE 12 X 12 MATRIX KE C AEL = DP(5)*DP(1)/L LR1 = L*R1/2.0D0 LR2 = L*R2/2.0D0 DP(8)= FJ GJL = DP(2)*DP(8)/L C C CONSTRUCT THE 12 X 12 MATRIX KE C DO 250 I = 1,144 250 KE(I) = 0.0D0 KE( 1) = AEL KE( 7) = -AEL KE( 14) = R1 KE( 18) = LR1 KE( 20) = -R1 KE( 24) = LR1 KE( 27) = R2 KE( 29) = -LR2 KE( 33) = -R2 KE( 35) = -LR2 KE( 40) = GJL KE( 46) = -GJL KE( 51) = -LR2 KE( 53) = SK2 KE( 57) = LR2 KE( 59) = SK4 KE( 62) = LR1 KE( 66) = SK1 KE( 68) = -LR1 KE( 72) = SK3 KE( 73) = -AEL KE( 79) = AEL KE( 86) = -R1 KE( 90) = -LR1 KE( 92) = R1 KE( 96) = -LR1 KE( 99) = -R2 KE(101) = LR2 KE(105) = R2 KE(107) = LR2 KE(112) = -GJL KE(118) = GJL KE(123) = -LR2 KE(125) = SK4 KE(129) = LR2 KE(131) = SK2 KE(134) = LR1 KE(138) = SK3 KE(140) = -LR1 KE(144) = SK1 IF (I12 .EQ. 0.0) GO TO 255 DP(8) = I12 BETA = 12.0D0*DP(1)*DP(8)/LCUBE LB = L*BETA/2.0D0 L2B3 = LSQ*BETA/3.0D0 L2B6 = LSQ*BETA/6.0D0 KE( 15) = BETA KE( 17) = -LB KE( 21) = -BETA KE( 23) = -LB KE( 26) = BETA KE( 30) = LB KE( 32) = -BETA KE( 36) = LB KE( 50) = -LB KE( 54) = -L2B3 KE( 56) = LB KE( 60) = -L2B6 KE( 63) = LB KE( 65) = -L2B3 KE( 69) = -LB KE( 71) = -L2B6 KE( 87) = -BETA KE( 89) = LB KE( 93) = BETA KE( 95) = LB KE( 98) = -BETA KE(102) = -LB KE(104) = BETA KE(108) = -LB KE(122) = -LB KE(126) = -L2B6 KE(128) = LB KE(132) = -L2B3 KE(135) = LB KE(137) = -L2B6 KE(141) = -LB KE(143) = -L2B3 C C DETERMINE IF THERE ARE NON-ZERO PIN FLAGS. C 255 KA = IECPT(JPINA) KB = IECPT(JPINB) IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 325 C C SET UP THE IPIN ARRAY C DO 260 I = 1,5 IPIN(I ) = MOD(KA,10) IPIN(I+5) = MOD(KB,10) + 6 IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0 KA = KA/10 260 KB = KB/10 C C ALTER KE MATRIX DUE TO PIN FLAGS. C DO 320 I = 1,10 IF (IPIN(I) .EQ. 0) GO TO 320 II = 13*IPIN(I) - 12 IF (KE(II) .NE. 0.0D0) GO TO 280 IL = IPIN(I) II = II - IL DO 270 J = 1,12 II = II + 1 KE(II) = 0.0D0 KE(IL) = 0.0D0 IL = IL + 12 270 CONTINUE GO TO 320 280 DO 300 J = 1,12 JI = 12*(J-1) + IPIN(I) IJ = 12*(IPIN(I)-1) + J DO 290 LL = 1,12 JLL = 12*(J-1) + LL ILL = 12*(IPIN(I)-1) + LL KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI) 290 CONTINUE KEP(IJ ) = 0.0D0 KEP(JI ) = 0.0D0 300 CONTINUE DO 310 K = 1,144 310 KE(K) = KEP(K) 320 CONTINUE C C E C STORE K AT KEP(1),...,KEP(36) AND C NPVT,A C C E C K AT KEP(37),...,KEP(72) C NPVT,B C 325 J = 0 IF (IPVT .EQ. 2) GO TO 327 ILOW = 1 ILIM = 72 GO TO 329 327 ILOW = 73 ILIM = 144 329 DO 340 I = ILOW,ILIM,12 LOW = I LIM = LOW + 5 DO 330 K = LOW,LIM J = J + 1 KEP(J ) = KE(K ) 330 KEP(J+36) = KE(K+6) 340 CONTINUE C C T C STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A MATRIX. C KE(1) = VECI(1) KE(2) = VECI(2) KE(3) = VECI(3) KE(4) = VECJ(1) KE(5) = VECJ(2) KE(6) = VECJ(3) KE(7) = VECK(1) KE(8) = VECK(2) KE(9) = VECK(3) C C ZERO OUT THE ARRAY WHERE THE 3X3 MATRIX H AND THE W AND W 6X6 C MATRICES WILL RESIDE. A B C DO 350 I = 28,108 350 KE(I) = 0.0D0 IPASS = 1 IWBEG = 0 C C SET UP POINTERS C IF (IPVT-1) 365,360,365 360 BASIC = ABASIC JCSID = JCSIDA OFFSET = AOFSET JOFSET = JOFSTA IKEL = 1 INDEX = ISILNO(1) GO TO 368 365 BASIC = BBASIC JCSID = JCSIDB OFFSET = BOFSET JOFSET = JOFSTB IKEL = 37 INDEX = ISILNO(2) C C SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX. C G = AT X TI C 368 IG = 1 IF (BASIC) GO TO 370 CALL TRANSD (ECPT(JCSID),KE(10)) CALL GMMATD (KE(1),3,3,0, KE(10),3,3,0, KE(19)) IG = 19 C C IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3X3 C MATRIX. C 370 IF (.NOT.OFFSET) GO TO 380 KE(10) = 0.0D0 KE(11) = ECPT(JOFSET+2) KE(12) = -ECPT(JOFSET+1) KE(13) = -KE(11) KE(14) = 0.0D0 KE(15) = ECPT(JOFSET) KE(16) = -KE(12) KE(17) = -KE(15) KE(18) = 0.0D0 C C FORM THE 3X3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10) C CALL GMMATD (KE(IG),3,3,0, KE(10),3,3,0, KE(28)) C C C FORM THE W MATRIX OR THE W MATRIX IN KE(37) OR KE(73) DEPENDING C A B C UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION. G WILL BE C STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS. H, IF NON-ZERO, C WILL BE STORED IN THE UPPER RIGHT CORNER. C 380 KE(IWBEG+37) = KE(IG ) KE(IWBEG+38) = KE(IG+1) KE(IWBEG+39) = KE(IG+2) KE(IWBEG+43) = KE(IG+3) KE(IWBEG+44) = KE(IG+4) KE(IWBEG+45) = KE(IG+5) KE(IWBEG+49) = KE(IG+6) KE(IWBEG+50) = KE(IG+7) KE(IWBEG+51) = KE(IG+8) KE(IWBEG+58) = KE(IG ) KE(IWBEG+59) = KE(IG+1) KE(IWBEG+60) = KE(IG+2) KE(IWBEG+64) = KE(IG+3) KE(IWBEG+65) = KE(IG+4) KE(IWBEG+66) = KE(IG+5) KE(IWBEG+70) = KE(IG+6) KE(IWBEG+71) = KE(IG+7) KE(IWBEG+72) = KE(IG+8) IF (.NOT. OFFSET) GO TO 390 KE(IWBEG+40) = KE(28) KE(IWBEG+41) = KE(29) KE(IWBEG+42) = KE(30) KE(IWBEG+46) = KE(31) KE(IWBEG+47) = KE(32) KE(IWBEG+48) = KE(33) KE(IWBEG+52) = KE(34) KE(IWBEG+53) = KE(35) KE(IWBEG+54) = KE(36) C C T E C FORM THE PRODUCT W X K AND STORE IN KEP(73) C NPVT C 390 CALL GMMATD (KE(37),6,6,1, KEP(IKEL),6,6,0, KEP(73)) C C COMPUTE THE FINAL ANSWER AND STORE IN KEP(109) C CALL GMMATD (KEP(73),6,6,0, KE(IWBEG+37),6,6,0, KEP(109)) C C INSERT THIS 6X6 C CALL SMA1B (KEP(109),INDEX,-1,IFKGG,0.0D0) IF (IOPT4.EQ.0 .OR. GSUBE.EQ.0.0) GO TO 400 K4GGSW = 1 CALL SMA1B (KEP(109),INDEX,-1,IF4GG,DAMPC) C C IF IPASS = 2, WE ARE DONE. OTHERWISE COMPUTE THE OFF-DIAGONAL 6X6 C 400 IF (IPASS .EQ. 2) GO TO 500 IWBEG = 36 IPASS = 2 DO 410 I = 28,36 410 KE(I) = 0.0D0 IF (IPVT-1) 360,365,360 500 RETURN C 1010 CALL MESAGE (30,26,IECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C HEAT FORMULATION CONTINUES HERE. GET MATERIAL PROPERTY -K- FROM C HMAT C 2000 MATFLG = 1 MATIDC = IECPT(16) ELTEMP = ECPT(42) CALL HMAT (IELID) C FL = DBLE(FK)*DBLE(ECPT(17))/FL IF (NPVT .EQ. IECPT(3)) FL = -FL DO 2020 I = 1,2 CALL SMA1B (FL,IECPT(I+1),NPVT,IFKGG,0.0D0) FL = -FL 2020 CONTINUE RETURN END ================================================ FILE: mis/kcone2.f ================================================ SUBROUTINE KCONE2 C C THIS IS A DOUBLE PRECISION VERSION OF KCONE, USED ONLY BY THE C 60- AND 64-BIT WORD MACHINE. IT IS SIMILARLY CONTSTRUCTED AS C THE KCONEQ SUBROUTINE. C SINCE MOST 60- AND 64- MACHINES DO NOT SUPPORT QUAD PRECISION AND C THE QUAD PRECISION FLAG (Q IN LQRO OF /MACHIN/) IS NOT USED. THE C ONLY WAY TO IMPLEMENT THIS D.P. VERSION INTO NASTRAN IS SIMPLY C REPLACING KCONES BY THIS KCONE2 (I.E. RENAME KCONE2 TO KCONES). C C FOUR KCONE VERSIONS C KCONES FOR MACHINES WITH 60 OR 64 BIT WORD (e.g. CDC, CRAY). C S.P. COMPUTATION IS USED C KCONE2, SIMILAR TO KCONES, EXECPT CERTAIN CRITICAL AREAS ARE C COMPUTED IN D.P. FOR IMPROVED ACCURACY C KCONED FOR MAHCINES WITH LESS THEN 60 BIT WORD, WITHOUT QUAD C PRECISION SOFTWARE SUPPORT (e.g. DEC3100). C D.P. COMPUTAION IS USED C KCONEQ, SIMILAR TO KCONED, EXECPT CERTAIN CRITICAL AREAS ARE C COMPUTED IN QUAD PREC. FOR IMPROVED ACCURACY C C ORIGINALLY, THIS ROUTINE CALLS KCONEX AND KCONEY/Z. THESE THREE C SUPPORTING ROUTINES ARE NOW MOVED INTO KCONED (AND ALSO KCONES) C C ECPT( 1) = ELEMENT ID INTEGER ECT C ECPT( 2) = SIL PT A INTEGER ECT C ECPT( 3) = SIL PT B INTEGER ECT C ECPT( 4) = MATID 1 INTEGER EPT C ECPT( 5) = T (MEMBRANE THICK) REAL EPT C ECPT( 6) = MATID 2 INTEGER EPT C ECPT( 7) = I (MOM.OF INERTIA) REAL EPT C ECPT( 8) = MATID 3 INTEGER EPT C ECPT( 9) = TS (SHEAR THICKNESS) REAL EPT C ECPT(10) = NON-STRUCTURAL-MASS REAL EPT C ECPT(11) = Z1 REAL EPT C ECPT(12) = Z2 REAL EPT C ECPT(13) = PHI 1 REAL EPT C ECPT(14) = PHI 2 REAL EPT C ECPT(15) = PHI 3 REAL EPT C ECPT(16) = PHI 4 REAL EPT C ECPT(17) = PHI 5 REAL EPT C ECPT(18) = PHI 6 REAL EPT C ECPT(19) = PHI 7 REAL EPT C ECPT(20) = PHI 8 REAL EPT C ECPT(21) = PHI 9 REAL EPT C ECPT(22) = PHI 10 REAL EPT C ECPT(23) = PHI 11 REAL EPT C ECPT(24) = PHI 12 REAL EPT C ECPT(25) = PHI 13 REAL EPT C ECPT(26) = PHI 14 REAL EPT C ECPT(27) = COORD. SYS. ID PT.1 INTEGER BGPDT C ECPT(28) = RADIUS PT. 1 REAL BGPDT C ECPT(29) = DISTANCE TO PT.1 REAL BGPDT C ECPT(30) = NULL REAL BGPDT C ECPT(31) = COORD. SYS. ID PT.2 INTEGER BGPDT C ECPT(32) = RADIUS PT 2 REAL BGPDT C ECPT(33) = DISTANCE TO PT. 2 REAL BGPDT C ECPT(34) = NULL REAL BGPDT C ECPT(35) = ELEMENT TEMPERATURE REAL GEOM3 C C INTEGER NERROR(2) ,NECPT(100) ,NA(7) , 1 OLDPT1 ,OLDPT2 REAL I00 ,I01 ,I02 ,I03 ,I04 , 1 I10 ,I11 ,I12 ,I13 ,I14 , 2 I20 ,I21 ,I22 ,I23 ,I24 , 3 I31 ,I32 ,I33 ,I34 , 4 I42 ,I43 ,I44 , 5 I52 ,I53 ,I54 , 6 CONSTS , I62 ,I63 ,I64 REAL KQN(10,10) ,KQX(10,10) ,KQE(10,10) , 1 KQY(10,10) ,FAC(7),H(120) ,H11 ,H12 , 2 H13 ,H14 ,H15 ,H16 ,H17 ,H18 , 3 H19 ,H1TEN ,DETERM ,PI ,ONE ,HUQ , 4 INTEG ,KIJ ,NSPOPI ,HYQ ,TEMP60 ,HYQF , 5 ZA ,E11 ,D11 ,ZB ,E12 ,D12 , 6 A ,E22 ,D22 ,B ,E33 ,D33 , 7 SIGN ,T ,CP ,RA ,TS ,SP , 8 RB ,N ,CP2 ,RASQ ,N2 ,SP2 , 9 RBSQ ,SL ,NSP ,TN ,L2 ,NCP , O PIOVB ,DL ,SPE12 ,TD ,TEMP ,CPE12 , 1 N2E22 ,TWOD33,TNSP ,N2E33 ,OPI ,OQ , 2 SPE22 ,TEMP1 ,TEMP5 ,CPE22 ,TEMP2 ,TEMP6 , 3 SP2E22 ,TEMP3 ,TEMP7 ,CP2E22 ,TEMP4 ,SP2E33 , 4 N2D33 ,SP2D22,SPE33 DOUBLE PRECISION SUM ,QQ1 ,QQ2 ,QQ3 ,QQ4 COMMON /CONDAS/ CONSTS(5) COMMON /MATIN / MATID ,INFLAG,ELTEMP ,STRESS ,SINTH ,COSTH COMMON /MATOUT/ G11 ,G12 ,G13 ,G22 ,G23 ,G33 , 1 DUM(5) ,GSUBE COMMON /SMA1IO/ DUM1(10) ,IFKGG ,DUM2 ,IF4GG COMMON /SMA1CL/ IOPT4 ,K4GGSW,NPVT ,DUMCL(7) ,LINK(10), 1 IDETCK ,DODET ,NOGO COMMON /SMA1ET/ ECPT(100) COMMON /SMA1DP/ INTEG(28) ,KIJ(36),HUQ(100) ,HYQF(10), 1 HYQ(10),TEMP60(60) ,OPI ,ZA ,E11 , 2 CP ,SPE22 ,ZB ,E12 ,SP ,CPE22 , 3 A ,E22 ,CP2 ,SP2E22 ,B ,E33 , 4 SP2 ,CP2E22,SIGN ,T ,D11 ,TEMP1 , 5 RA ,TS ,D12 ,TEMP2 ,RB ,N , 6 D22 ,TEMP3 ,RASQ ,N2 ,D33 ,TEMP4 , 7 RBSQ ,SL ,NSP ,TEMP5 ,TN ,L2 , 8 NCP ,TEMP6 ,PIOVB ,DL ,SPE12 ,TEMP7 , 9 TD ,TEMP ,CPE12 ,OQ ,N2E22 ,TWOD33 , O TNSP ,N2E33 ,SP2E33,SPE33 EQUIVALENCE (CONSTS(1),PI ), (ECPT(4),MATID1), 1 (ECPT(6),MATID2), (ECPT(8),MATID3), 2 (ECPT(1),NECPT(1)) EQUIVALENCE (G,G12), (KQN(1,1),KQE(1,1),KQX(1,1),KQY(1,1)) EQUIVALENCE (HYQ(1),H11), (HYQ(2),H12), (HYQ(3),H13), 1 (HYQ(4),H14), (HYQ(5),H15), (HYQ(6),H16), 2 (HYQ(7),H17), (HYQ(8),H18), (HYQ(9),H19), 3 (HYQ(10),H1TEN) EQUIVALENCE (I00,INTEG( 1)), (I20,INTEG(11)), 1 (I01,INTEG( 2)), (I21,INTEG(12)), 2 (I02,INTEG( 3)), (I22,INTEG(13)), 3 (I03,INTEG( 4)), (I23,INTEG(14)), 4 (I04,INTEG( 5)), (I24,INTEG(15)), 5 (I10,INTEG( 6)), (I31,INTEG(16)), 6 (I11,INTEG( 7)), (I32,INTEG(17)), 7 (I12,INTEG( 8)), (I33,INTEG(18)), 8 (I13,INTEG( 9)), (I34,INTEG(19)), 9 (I14,INTEG(10)), (I52,INTEG(23)), O (I42,INTEG(20)), (I53,INTEG(24)), 1 (I43,INTEG(21)), (I54,INTEG(25)), 2 (I44,INTEG(22)), (I62,INTEG(26)), 3 (I63,INTEG(27)), (I64,INTEG(28)) DATA OLDPT1, OLDPT2 / 0, 0 / DATA FAC / 1.0, 1.0, 2.0, 6.0, 24.0, 120.0, 720.0 / DATA NA / 1,1,1,2,3,3,3 / DATA ONE / 1.0 / C C DOES PIVOT POINT EQUAL EITHER OF THE LAST TWO SILS C IF (OLDPT1 .EQ. NECPT(2)) IF (OLDPT2-NECPT(3)) 10,110,10 IF (OLDPT2 .EQ. NECPT(2)) IF (OLDPT1-NECPT(3)) 10,110,10 10 CONTINUE C C NO MATCH THUS DO ENTIRE COMPUTATION C SINTH = 0.0 COSTH = 1.0 NINT = NECPT(1) - (NECPT(1)/1000)*1000 - 1 N = NINT RA = ECPT(28) ZA = ECPT(29) RB = ECPT(32) ZB = ECPT(33) TEMP1 = RB - RA TEMP2 = ZB - ZA SL = SQRT(TEMP1**2 + TEMP2**2) L2 = SL*SL IF (SL) 30,20,30 20 NERROR(1) = NECPT(1)/1000 NERROR(2) = N + .3 CALL MESAGE (30,39,NERROR(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C 30 SP = TEMP1/SL CP = TEMP2/SL A = RA B = SP IF (B) 60,40,60 C C GO TO 40 FOR B = 0 C C 1-N C PI RA M+1 C FOR B = 0, I = --------- SL (FOR ALL M,N .GE. 0) C M,N M + 1 C 40 IDX = 0 DO 50 I = 1,7 NBEGIN = NA(I) C DO 50 J = NBEGIN,5 C C M = I - 1 C N = J - 1 C MPLUS1 THUS EQUALS I C IDX = IDX + 1 INTEG(IDX) = (PI*SL**I)/(FLOAT(I)*RA**(J-2)) 50 CONTINUE GO TO 100 C C ABOVE COMPLETES ALL INTEGRALS FOR B = 0 C 60 CONTINUE C C FOR B .NE. ZERO C C IF AN OVERFLOW RESULTS BELOW POSSIBLY B IS NOT ZERO, BUT SMALL C C OK BELOW IS FOR B NOT EQUAL TO ZERO C C FIRST M = 0 CASE C C 2-N 2-N C PI (RB - RA ) C I = -------------------- (N NOT EQUAL TO 2) C 0,N (2-N) B C C C FOR N=2 I = PI * (LOG RB - LOG RA) / B C 0,2 E E C RASQ = RA*RA RBSQ = RB*RB PIOVB = PI/B C INTEG(1) = 0.5E0*PIOVB*(RBSQ - RASQ) INTEG(2) = PIOVB*(RB - RA) INTEG(3) = PIOVB*LOG(RB/RA) INTEG(4) =-PIOVB*(ONE/RB - ONE/RA) INTEG(5) =-0.5E0*PIOVB*(ONE/RBSQ - ONE/RASQ) C IDX = 5 DO 90 I = 1,6 MPLUS1 = I + 1 NBEGIN = NA(MPLUS1) DO 90 J = NBEGIN,5 C C M = I C N = J - 1 C C WE ARE GETTING INTEGRAL(M,N) C M = POWER OF S C N = POWER OF R C C EVALUATING AT R = RB, THEN AT R = RA C C K MNK2 C (M)FAC. M (-A) (R) C I = (PI) (-------) ((SUM -------------------------) + (TERM-X)) C MN (M+1) K=0 (M-K)FAC. (K)FAC. (MNK2) C B (FOR K.NE. MN2 (FOR K=MN2) C C WHERE MNK2 = M-N-K+2 C MN2 = M-N +2 C (X)FAC. = X! C MN2 C (-A) LOG(R) C TERM-X = -------------------- C (M-N+2)FAC. (N-2)FAC. C C NOTE IN DATA STATEMENT THAT 0 FACTORIAL = FAC(1) C 1 FACTORIAL = FAC(2) C 2 FACTORIAL = FAC(3) ETC. C SUM = 0.0 SIGN =-1.0 DO 80 KK = 1,MPLUS1 SIGN =-SIGN K = KK - 1 MN2 = I - J + 3 QQ1 = DBLE(A ) QQ2 = DBLE(RB) QQ3 = DBLE(RA) IF (K .EQ. MN2) GO TO 70 MNK2 = MN2 - K MK1 = MPLUS1 - K TEMP = MNK2 C C QQ4 = A**K*(RB**MNK2-RA**MNK2)/(FAC(MK1)*FAC(KK)*TEMP) C QQ1 = QQ1**K QQ2 = QQ2**MNK2 QQ3 = QQ3**MNK2 QQ2 = QQ2 - QQ3 QQ3 = DBLE(FAC(MK1)*FAC(KK)*TEMP) GO TO 75 C C QQ4 = A**MN2*DLOG(RB/RA)/(FAC(MN2+1)*FAC(J-2)) C 70 QQ1 = QQ1**MN2 QQ3 = QQ2/QQ3 QQ2 = DLOG(QQ3) QQ3 = DBLE(FAC(MN2+1)*FAC(J-2)) 75 QQ4 = QQ1*QQ2/QQ3 80 SUM = SUM + DBLE(SIGN)*QQ4 C QQ1 = DBLE(PI*FAC(MPLUS1)) QQ2 = DBLE(B) QQ3 = QQ2**MPLUS1 QQ4 = SUM*QQ1/QQ3 IDX = IDX + 1 INTEG(IDX) = SNGL(QQ4) 90 CONTINUE C 100 OLDPT1 = NECPT(2) OLDPT2 = NECPT(3) GO TO 140 C C WE HAVE A MATCH ON OLD SIL NUMBER 1 C 110 IF (NPVT-OLDPT1) 130,120,130 120 NPIVOT = 1 GO TO 410 C C WE HAVE A MATCH ON OLD SIL NUMBER 2 C 130 NPIVOT = 2 GO TO 410 C C ZERO OUT THE KQN MATRIX C 140 DO 150 I = 1,10 DO 150 J = 1,10 150 KQN(I,J) = 0.0 C C IF MEMBRANE THICKNESS IS NOT ZERO FORM THE KQE MATRIX C T = ECPT(5) IF (T) 160,200,160 160 ASSIGN 190 TO IRETRN MATID = MATID1 170 INFLAG = 2 180 ELTEMP = ECPT(35) CALL MAT (ECPT(1)) GO TO IRETRN, (190,230,242) 190 E11 = G11 E12 = G12 E22 = G22 E33 = G33 TN = T * N CP2 = CP* CP SP2 = SP* SP N2 = N * N CP2E22= CP2* E22 SP2E22= SP2* E22 CPE22 = CP * E22 SPE22 = SP * E22 CPE12 = CP * E12 SPE12 = SP * E12 N2E33 = N2 * E33 N2E22 = N2 * E22 SP2E33= SP2* E33 SPE33 = SP * E33 C C /// FURTHER REDUCTION IS NEEDED HERE /// C KQE(1,1) = T * (N2E22 + SP2E33)*I02 KQE(1,2) = T * (N2E22*I12 - SPE33*I01 + SP2E33*I12) TEMP = E22 + E33 TNSP = TN * SP KQE(1,3) = TNSP* TEMP*I02 KQE(1,4) = TN * (E12*I01 + SP*TEMP*I12) TEMP = TN * CP*E22 KQE(1,5) = TEMP * I02 KQE(1,6) = TEMP * I12 KQE(1,7) = TEMP * I22 KQE(1,8) = TEMP * I32 TEMP4 = 2.E0 * SP*I11 KQE(2,2) = T * (N2E22*I22 + E33*(I00-TEMP4 + SP2*I22)) KQE(2,3) = TN * (SPE22*I12 - E33*I01 + SPE33*I12) KQE(2,4) = TN * (E12*I11 + SPE22*I22 - E33*I11 + SPE33*I22) KQE(2,5) = KQE(1,6) KQE(2,6) = KQE(1,7) KQE(2,7) = KQE(1,8) KQE(2,8) = TN * CPE22 *I42 KQE(3,3) = T * (SP2E22*I02 + N2E33*I02) KQE(3,4) = T * (SPE12 *I01 + SP2E22*I12 + N2E33*I12) TEMP = T * CP*SPE22 KQE(3,5) = TEMP * I02 KQE(3,6) = TEMP * I12 KQE(3,7) = TEMP * I22 KQE(3,8) = TEMP * I32 KQE(4,4) = T * (E11*I00 + TEMP4*E12 + SP2E22*I22 + N2E33*I22) TEMP = SP * CPE22 KQE(4,5) = T * (CPE12*I01 + TEMP*I12) KQE(4,6) = T * (CPE12*I11 + TEMP*I22) KQE(4,7) = T * (CPE12*I21 + TEMP*I32) KQE(4,8) = T * (CPE12*I31 + TEMP*I42) TEMP = T * CP2E22 KQE(5,5) = TEMP * I02 KQE(5,6) = TEMP * I12 KQE(5,7) = TEMP * I22 KQE(5,8) = TEMP * I32 KQE(6,6) = KQE(5,7) KQE(6,7) = KQE(5,8) KQE(6,8) = TEMP * I42 KQE(7,7) = KQE(6,8) KQE(7,8) = TEMP * I52 KQE(8,8) = TEMP * I62 C 200 IF (ECPT(7) .EQ. 0.0) GO TO 270 C C NOW GET G MATERIAL MATRIX ID = MATID2 C MATID = MATID2 ASSIGN 230 TO IRETRN GO TO 170 C C NOW FORM D = I DOT G C 230 D11 = ECPT(7)*G11 D12 = ECPT(7)*G12 D22 = ECPT(7)*G22 D33 = ECPT(7)*G33 C C IF SHEAR THICKNESS IS NOT ZERO FORM THE HYQ AND KQY MATRICES C TS = ECPT(9) IF (TS) 240,265,240 240 CONTINUE C C GET G FOR MATID3 C MATID = MATID3 INFLAG = 1 ASSIGN 242 TO IRETRN GO TO 180 C 242 CONTINUE IF (G .EQ. 0.0) GO TO 261 C C FORMING 1.0/Q DIRECTLY C OPI = ONE / PI C C /// MAKE SURE ALL BASIC PRODUCTS ARE AT TOP BEFORE ANY SKIPS C N2D33 = N2 * D33 SP2D22 = SP2 * D22 OQ = SL*TS*G*(RA+RB)*0.5E0 + I02*(N2D33+SP2D22)*OPI OQ = ONE / OQ NSP = N * SP NCP = N * CP NSPOPI = NSP * OPI TWOD33 = 2.0 * D33 TEMP1 = D12 * (ONE/RB - ONE/RA) TEMP2 = NSPOPI * (D22 + D33) TEMP3 = N * NSPOPI*(TWOD33 + D22) TEMP4 = OQ * 0.5E0 *NCP*N*D33*OPI TEMP5 = OPI * (N2*TWOD33 + SP2*D22) TEMP6 = D12 * N2*L2/RB TEMP7 = NSPOPI * CP*0.5E0 HYQ(1) = OQ * (TEMP1*NCP - TEMP7*I03*(D33+2.0E0*D22)) HYQ(2) = OQ * (NCP*SL/RB*D12 - TEMP7*I13*(3.0E0*D33+D22) 1 + 1.5E0*NCP*OPI*I02*D33) HYQ(3) = TEMP4 * I03 HYQ(4) = TEMP4 * I13 HYQ(5) = OQ * (TEMP1*N2 - TEMP3*I03) HYQ(6) = OQ * (D12*N2*SL/RB - TEMP3*I13 + TEMP5*I02) HYQ(7) = OQ * (2.0E0*D11*(RA-RB)+TEMP6+2.0E0*I12*TEMP5-TEMP3*I23) HYQ(8) = OQ * (-D11*6.E0*SL*RB+TEMP6*SL+3.E0*I22*TEMP5-TEMP3*I33) HYQ(9) =-OQ * TEMP2 * I02 HYQ(10)= OQ * (N*SL*(D12+D33) - TEMP2*I12) C TEMP = TS * G*I00 DO 250 I = 1,10 250 HYQF(I) = HYQ(I)*TEMP DO 260 I = 1,10 DO 260 J = I,10 260 KQY(I,J) = KQY(I,J) + HYQ(I)*HYQF(J) C C ADD IN TERMS PER EQUATION-90- PAGE -27- MS-28 C TEMP = TS * G KQY( 9,10) = KQY( 9,10) + TEMP*I10 KQY(10,10) = KQY(10,10) + TEMP*I20 KQY( 9, 9) = KQY( 9, 9) + TEMP*I00 C C END OF KQY COMPUTATION C GO TO 265 261 TS = 0.0 265 CONTINUE C C THE FOLLOWING CODES WERE MOVED HERE FROM KCONEX C C KQX MATRIX FOR SHEAR THICKNESS CONSIDERATION C C (THE FOLLOWING CODE WAS MACHINE GENERATED AND WILL NOT BE SIMPLI- C FIED FURTHER UNTIL FORMULATION VERIFICATION IS COMPLETED) C KQX(1, 1) = KQX(1, 1) + CP*CP*I04*(+D22*N**2+2.25E0*D33*SP**2) KQX(1, 2) = KQX(1, 2) + CP*CP*(D33*SP*(+2.25E0*SP*I14-2.25E0*I03) 1 + D22*N*N*I14) KQX(1, 3) = KQX(1, 3) + D33*CP*CP*SP*N*I04*(-7.5E-1) KQX(1, 4) = KQX(1, 4) + D33*CP*CP*SP*N*I14*(-7.5E-1) KQX(1, 5) = KQX(1, 5) + CP*N*I04*(+D22*N**2+3.0E0*D33*SP**2) KQX(1, 6) = KQX(1, 6) + CP*N*(SP*(D33*(+3.0E0*SP*I14-3.0E0*I03) 1 - D22*I03) + D22*N*N*I14) KQX(1, 7) = KQX(1, 7) + CP*N*(SP*(D33*(+3.0E0*SP*I24-6.0E0*I13) 1 + D22*I13*(-2.0E0)) - 2.0E0*D12*I02 + D22*N**2*I24) KQX(1, 8) = KQX(1, 8) + CP*N*(SP*(D33*(+3.0E0*SP*I34-9.0E0*I23) 1 + D22*I23*(-3.0E0)) - 6.0E0*D12*I12 + D22*N**2*I34) KQX(1, 9) = KQX(1, 9) + CP*I03*(+D22*N**2+1.5E0*D33*SP**2) KQX(1,10) = KQX(1,10) + CP*(D33*SP*(-1.5E0*I02+1.5E0*SP*I13) 1 + D22*N*N*I13) KQX(2, 2) = KQX(2, 2) + CP*CP*(D33*(SP*(I13*(-4.5E0) 1 + SP*I24*2.25E0) + I02*2.25E0) + D22*N*N*I24) KQX(2, 3) = KQX(2, 3) + D33*CP*CP*N*(-7.5E-1*SP*I14+7.5E-1*I03) KQX(2, 4) = KQX(2, 4) + D33*CP*CP*N*(-7.5E-1*SP*I24+7.5E-1*I13) KQX(2, 5) = KQX(2, 5) + CP*N*(D33*SP*(+3.0E0*SP*I14-3.0E0*I03) 1 + D22*N*N*I14) KQX(2, 6) = KQX(2, 6) + CP*N*(D33*(SP*(I13*(-6.0E0) 1 + SP*I24*3.0E0) + I02*3.0E0) + D22*(-SP*I13+N**2*I24)) KQX(2, 7) = KQX(2, 7) + CP*N*(D33*(SP*(I23*(-9.0E0) 1 + SP*I34*3.0E0) + I12*6.0E0) 2 + D22*(-2.0E0*SP*I23 + N**2*I34) + D12*I12*(-2.0E0)) KQX(2, 8) = KQX(2, 8) + CP*N*(D33*(SP*(I33*(-1.20E01) 1 + SP*I44*3.0E0) + I22*9.0E0) 2 + D22*(-3.0E0*SP*I33+N**2*I44) + D12*I22*(-6.0E0)) KQX(2, 9) = KQX(2, 9) + CP*(D33*SP*(+1.5E0*SP*I13-1.5E0*I02) 1 + D22*N*N*I13) KQX(2,10) = KQX(2,10) + CP*(D33*(SP*(I12*(-3.0E0)+SP*I23*1.5E0) 1 + I01*1.5E0)+ D22*N*N*I23) KQX(3, 3) = KQX(3, 3) + D33*CP*CP*N*N*I04*2.5E-1 KQX(3, 4) = KQX(3, 4) + D33*CP*CP*N*N*I14*2.5E-1 KQX(3, 5) = KQX(3, 5) + D33*CP*SP*N*N*I04*(-1.0E0) KQX(3, 6) = KQX(3, 6) + D33*CP*N*N*(-SP*I14+I03) KQX(3, 7) = KQX(3, 7) + D33*CP*N*N*(-SP*I24+2.0E0*I13) KQX(3, 8) = KQX(3, 8) + D33*CP*N*N*(-SP*I34+3.0E0*I23) KQX(3, 9) = KQX(3, 9) + D33*CP*SP*N*I03*(-5.0E-1) KQX(3,10) = KQX(3,10) + D33*CP*N*(+5.0E-1*I02-5.0E-1*SP*I13) KQX(4, 4) = KQX(4, 4) + D33*CP*CP*N*N*I24*2.5E-1 KQX(4, 5) = KQX(4, 5) + D33*CP*SP*N*N*I14*(-1.0E0) KQX(4, 6) = KQX(4, 6) + D33*CP*N*N*(-SP*I24+I13) KQX(4, 7) = KQX(4, 7) + D33*CP*N*N*(-SP*I34+2.0E0*I23) KQX(4, 8) = KQX(4, 8) + D33*CP*N*N*(-SP*I44+3.0E0*I33) KQX(4, 9) = KQX(4, 9) + D33*CP*SP*N*I13*(-5.0E-1) KQX(4,10) = KQX(4,10) + D33*CP*N*(+5.0E-1*I12-5.0E-1*SP*I23) KQX(5, 5) = KQX(5, 5) + N*N*I04*(+D22*N**2+4.0E0*D33*SP**2) KQX(5, 6) = KQX(5, 6) + N*N*(SP*(D33*(+4.0E0*SP*I14-4.0E0*I03) 1 + D22*I03*(-1.0E0)) + D22*N*N*I14) KQX(5, 7) = KQX(5, 7) + N*N*(SP*(D33*(+4.0E0*SP*I24-8.0E0*I13) 1 + D22*I13*(-2.0E0))-2.0E0*D12*I02 + D22*N**2*I24) KQX(5, 8) = KQX(5, 8) + N*N*(SP*(D33*(+4.0E0*SP*I34-1.20E01*I23) 1 + D22*I23*(-3.0E0)) - 6.0E0*D12*I12 + D22*N**2*I34) KQX(5, 9) = KQX(5, 9) + N*I03*(+D22*N**2+2.0E0*D33*SP**2) KQX(5,10) = KQX(5,10) + N*(D33*SP*(-2.0E0*I02+2.0E0*SP*I13) 1 + D22*N*N*I13) KQX(6, 6) = KQX(6, 6) + N*N*(SP*(I13*(D22*(-2.0E0)+D33*(-8.0E0)) 1 + D33*SP*I24*4.0E0) + D22*N**2*I24 + 4.0E0*D33*I02) 2 + D22*SP*SP*I02 KQX(6, 7) = KQX(6, 7) + N*N*(SP*(I23*(D22*(-3.0E0)+D33*(-1.20E01)) 1 + D33*SP*I34*4.0E0) + I12*(-2.0E0*D12+8.0E0*D33) 2 + D22*N*N*I34) + SP*(+2.0E0*D12*I01+2.0E0*D22*SP*I12) KQX(6, 8) = KQX(6, 8) + N*N*(SP*(I33*(D22*(-4.0E0)+D33*(-1.6E01)) 1 + D33*SP*I44*4.0E0) + I22*(-6.0E0*D12+1.20E01*D33) 2 + D22*N*N*I44)+SP*(+6.0E0*D12*I11+3.0E0*D22*SP*I22) KQX(6, 9) = KQX(6, 9) + N*(SP*(D33*(+2.0E0*SP*I13-2.0E0*I02) 1 + D22*I02*(-1.0E0)) + D22*N*N*I13) KQX(6,10) = KQX(6,10) + N*(D33*(SP*(I12*(-4.0E0) + SP*I23*2.0E0) 1 + I01*2.0E0)+ D22*(+N**2*I23-SP*I12)) KQX(7, 7) = KQX(7, 7) + N*N*(SP*(I33*(D22*(-4.0E0)+D33*(-1.6E01)) 1 + D33*SP*I44*4.0E0) + I22*(D12*(-4.0E0) +D33*1.6E01) 2 + D22*N*N*I44) + SP*(D12*I11*8.0E0+D22*SP*I22*4.0E0) 3 + D11*I00*4.0E0 KQX(7, 8) = KQX(7, 8) + N*N*(SP*(I43*(D22*(-5.0E0)+D33*(-2.0E01)) 1 + D33*SP*I54*4.0E0) + I32*(D12*(-8.0E0)+D33*2.40E01) 2 + D22*N*N*I54) + SP*(D12*I21*1.80E01+D22*SP*I32*6.0E0) 3 + D11*I10*1.20E01 KQX(7, 9) = KQX(7, 9) + N*(SP*(D33*(+2.0E0*SP*I23-4.0E0*I12) 1 + D22*I12*(-2.0E0)) - 2.0E0*D12*I01 + D22*N**2*I23) KQX(7,10) = KQX(7,10) + N*(D33*(SP*(I22*(-6.0E0)+SP*I33*2.0E0) 1 + I11*4.0E0)+ D22*(+N**2*I33-2.0E0*SP*I22) 2 + D12*I11*(-2.0E0)) KQX(8, 8) = KQX(8, 8) + N*N*(SP*(I53*(D22*(-6.0E0)+D33*(-2.40E01)) 1 + D33*SP*I64*4.0E0) + I42*(D12*(-1.20E01) + D33*3.60E01) 2 + D22*N*N*I64) + SP*(D12*I31*3.60E01+D22*SP*I42*9.0E0) 3 + D11*I20*3.60E01 KQX(8, 9) = KQX(8, 9) + N*(SP*(D33*(+2.0E0*SP*I33-6.0E0*I22) 1 + D22*I22*(-3.0E0)) - 6.0E0*D12*I11 + D22*N**2*I33) KQX(8,10) = KQX(8,10) + N*(D33*(SP*(I32*(-8.0E0)+SP*I43*2.0E0) 1 + I21*6.0E0)+ D22*(+N**2*I43-3.0E0*SP*I32) 2 + D12*I21*(-6.0E0)) KQX(9, 9) = KQX(9, 9) + I02*(+D22*N**2+D33*SP**2) KQX(9,10) = KQX(9,10) + D33*SP*(-I01+SP*I12) + D22*N*N*I12 KQX(10,10)= KQX(10,10)+ D33*(SP*(I11*(-2.0E0)+ SP*I22)+I00) 1 + D22*N*N*I22 IF (TS .EQ. 0) GO TO 270 C C THE FOLLOWING CODES WERE MOVED HERE FROM KCONEY C KQX(1, 1) = KQX(1, 1) + H11*(SP*(CP*N*I03*(D22*2.0E0+D33*3.0E0) 1 + D22*SP*H11*I02) + D33*N*N*H11*I02) KQX(1, 2) = KQX(1, 2) + N*(CP*(SP*(D22*(+H12*I03+H11*I13) 1 + D33*(+1.5E0*H12*I03+1.5E0*H11*I13)) 2 + D33*H11*I02*(-1.5E0))+D33*N*H11*H12*I02) 3 + D22*SP*SP*H11*H12*I02 KQX(1, 3) = KQX(1, 3) + N*(D33*(CP*I03*(+1.5E0*SP*H13 1 - 5.0E-1*N*H11) + N*H11*H13*I02) + D22*CP*SP*H13*I03) 2 + D22*SP*SP*H11*H13*I02 KQX(1, 4) = KQX(1, 4) + N*(D33*(CP*(+1.5E0*SP*H14*I03 1 - 5.0E-1*N*H11*I13)+N*H11*H14*I02) + D22*CP*SP*H14*I03) 2 + D22*SP*SP*H11*H14*I02 KQX(1, 5) = KQX(1, 5) + SP*(N*I03*(D22*(+CP*H15+N*H11) 1 + D33*(+1.5E0*CP*H15+2.0E0*N*H11)) 2 + D22*SP*H11*H15*I02) + D33*N*N*H11*H15*I02 KQX(1, 6) = KQX(1, 6) + SP*(D22*(H11*(SP*I02*(-1.0E0+H16) 1 + N*N*I13) + CP*N*H16*I03)+D33*N*(+1.5E0*CP*H16*I03 2 + 2.0E0*N*H11*I13)) + D33*N*N*H11*I02*(-2.0E0+H16) KQX(1, 7) = KQX(1, 7) + SP*(H11*(D22*(SP*(-2.0E0*I12+H17*I02) 1 + N*N*I23) - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23) 2 + CP*N*H17*I03*(+D22+1.5E0*D33)) 3 + D33*N*N*H11*(-4.0E0*I12+H17*I02) KQX(1, 8) = KQX(1, 8) + SP*(H11*(D22*(SP*(-3.0E0*I22+H18*I02) 1 + N*N*I33) - 6.0E0*D12*I11 + 2.0E0*D33*N**2*I33) 2 + CP*N*H18*I03*(+D22+1.5E0*D33)) 3 + D33*N*N*H11*(-6.0E0*I22+H18*I02) KQX(1, 9) = KQX(1, 9) + SP*(N*(D22*(+CP*H19*I03+H11*I02) 1 + D33*(+1.5E0*CP*H19*I03+H11*I02)) 2 + D22*SP*H11*H19*I02) + D33*N*N*H11*H19*I02 KQX(1,10) = KQX(1,10) + N*(D33*(H11*(-I01+SP*I12+N*H1TEN*I02) 1 + CP*SP*H1TEN*I03*1.5E0) + D22*SP*(+CP*H1TEN*I03 2 + H11*I12)) + D22*SP*SP*H11*H1TEN*I02 KQX(2, 2) = KQX(2, 2) + H12*(N*(CP*(D33*(SP*I13*3.E0+I02*(-3.E0)) 1 + D22*SP*I13*2.E0) + D33*N*H12*I02) + D22*SP*SP*H12*I02) KQX(2, 3) = KQX(2, 3) + N*(D33*(CP*(H13*(+1.5E0*SP*I13-1.5E0*I02) 1 + N*H12*I03*(-5.0E-1)) + N*H12*H13*I02) 2 + D22*CP*SP*H13*I13) + D22*SP*SP*H12*H13*I02 KQX(2, 4) = KQX(2, 4) + N*(D33*(CP*(H14*(+1.5E0*SP*I13-1.5E0*I02) 1 + N*H12*I13*(-5.0E-1)) + N*H12*H14*I02) 2 + D22*CP*SP*H14*I13) + D22*SP*SP*H12*H14*I02 KQX(2, 5) = KQX(2, 5) + N*(D33*(H15*(CP*(+1.5E0*SP*I13-1.5E0*I02) 1 + N*H12*I02)+ SP*N*H12*I03*2.0E0) + D22*SP*(+CP*H15*I13 2 + N*H12*I03)) + D22*SP*SP*H12*H15*I02 KQX(2, 6) = KQX(2, 6) + N*(D33*(N*H12*(I02*(-2.0E0+H16) 1 + SP*I13*2.0E0) + CP*H16*(+1.5E0*SP*I13-1.5E0*I02)) 2 + D22*SP*I13*(+CP*H16+N*H12)) 2 + D22*SP*SP*H12*I02*(-1.0E0+H16) KQX(2, 7) = KQX(2, 7) + SP*(H12*(D22*(SP*(-2.0E0*I12+H17*I02) 1 + N*N*I23) - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23) 2 + CP*N*H17*I13*(+D22+1.5E0*D33)) 3 + D33*N*(N*H12*(-4.0E0*I12+H17*I02) 4 + CP*H17*I02*(-1.5E0)) KQX(2, 8) = KQX(2, 8) + SP*(H12*(D22*(SP*(-3.0E0*I22+H18*I02) 1 + N*N*I33) - 6.0E0*D12*I11 + 2.0E0*D33*N**2*I33) 2 + CP*N*H18*I13*(+D22+1.5E0*D33)) 3 + D33*N*(N*H12*(-6.0E0*I22+H18*I02) 4 + CP*H18*I02*(-1.5E0)) KQX(2, 9) = KQX(2, 9) + N*(D33*(H19*(CP*(+1.5E0*SP*I13-1.5E0*I02) 1 + N*H12*I02)+ SP*H12*I02)+D22*SP*(+CP*H19*I13+H12*I02)) 2 + D22*SP*SP*H12*H19*I02 KQX(2,10) = KQX(2,10) + N*(D33*(H12*(-I01+SP*I12+N*H1TEN*I02) 1 + CP*H1TEN*(+1.5E0*SP*I13-1.5E0*I02)) 2 + D22*SP*(+CP*H1TEN*I13+H12*I12)) 3 + D22*SP*SP*H12*H1TEN*I02 KQX(3, 3) = KQX(3, 3) + H13*(D33*N*N*(CP*I03*(-1.0E0)+H13*I02) 1 + D22*SP*SP*H13*I02) KQX(3, 4) = KQX(3, 4) + D33*N*N*(CP*(-5.0E-1*H14*I03-5.0E-1*H13 1 * I13)+H13*H14*I02) + D22*SP*SP*H13*H14*I02 KQX(3, 5) = KQX(3, 5) + N*N*(D33*(H13*(+2.0E0*SP*I03+H15*I02) 1 + CP*H15*I03*(-5.0E-1)) + D22*SP*H13*I03) 2 + D22*SP*SP*H13*H15*I02 KQX(3, 6) = KQX(3, 6) + H13*(SP*(D22*(SP*I02*(-1.E0+H16)+N*N*I13) 1 + D33*N*N*I13*2.0E0) + D33*N*N*I02*(-2.0E0+H16)) 2 + D33*CP*N*N*H16*I03*(-5.0E-1) KQX(3, 7) = KQX(3, 7) + H13*(SP*(D22*(SP*(-2.0E0*I12+H17*I02) 1 + N*N*I23) - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23) 2 + D33*N*N*(-4.0E0*I12+H17*I02)) 3 + D33*CP*N*N*H17*I03*(-5.0E-1) KQX(3, 8) = KQX(3, 8) + H13*(SP*(D22*(SP*(-3.0E0*I22+H18*I02) 1 + N*N*I33) - 6.0E0*D12*I11+2.0E0*D33*N**2*I33) 2 + D33*N*N*(-6.0E0*I22+H18*I02)) 3 + D33*CP*N*N*H18*I03*(-5.0E-1) KQX(3, 9) = KQX(3, 9) + N*(D33*(N*H19*(-5.0E-1*CP*I03+H13*I02) 1 + SP*H13*I02) + D22*SP*H13*I02) + D22*SP*SP*H13*H19*I02 KQX(3,10) = KQX(3,10) + N*(D33*(H13*(-I01+SP*I12+N*H1TEN*I02) 1 + CP*N*H1TEN*I03*(-5.0E-1))+D22*SP*H13*I12) 2 + D22*SP*SP*H13*H1TEN*I02 KQX(4, 4) = KQX(4, 4) + H14*(D33*N*N*(CP*I13*(-1.0E0)+H14*I02) 1 + D22*SP*SP*H14*I02) KQX(4, 5) = KQX(4, 5) + N*N*(D33*(H14*(+2.0E0*SP*I03+H15*I02) 1 + CP*H15*I13*(-5.0E-1)) + D22*SP*H14*I03) 2 + D22*SP*SP*H14*H15*I02 C C THE FOLLOWING CODES, THRU 270, WERE MOVED HERE FROM KCONEZ C KQX(4, 6) = KQX(4 ,6) + H14*(SP*(D22*(SP*I02*(-1.E0+H16)+N*N*I13) 1 + D33*N*N*I13*2.0E0) + D33*N*N*I02*(-2.0E0+H16)) 2 + D33*CP*N*N*H16*I13*(-5.0E-1) KQX(4, 7) = KQX(4, 7) + H14*(SP*(D22*(SP*(-2.0E0*I12+H17*I02) 1 + N*N*I23) - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23) 2 + D33*N*N*(-4.0E0*I12+H17*I02)) 3 + D33*CP*N*N*H17*I13*(-5.0E-1) KQX(4, 8) = KQX(4, 8) + H14*(SP*(D22*(SP*(-3.0E0*I22+H18*I02) 1 + N*N*I33) - 6.0E0*D12*I11 + 2.0E0*D33*N**2*I33) 2 + D33*N*N*(-6.0E0*I22+H18*I02)) 3 + D33*CP*N*N*H18*I13*(-5.0E-1) KQX(4, 9) = KQX(4, 9) + N*(D33*(N*H19*(-5.0E-1*CP*I13+H14*I02) 1 + SP*H14*I02)+D22*SP*H14*I02)+D22*SP*SP*H14*H19*I02 KQX(4,10) = KQX(4,10) + N*(D33*(H14*(-I01+SP*I12+N*H1TEN*I02) 1 + CP*N*H1TEN*I13*(-5.0E-1)) + D22*SP*H14*I12) 2 + D22*SP*SP*H14*H1TEN*I02 KQX(5, 5) = KQX(5, 5) + H15*(SP*(N*N*I03*(D22*2.0E0+D33*4.0E0) 1 + D22*SP*H15*I02) + D33*N*N*H15*I02) KQX(5, 6) = KQX(5, 6) + SP*(D22*(H15*(SP*I02*(-1.E0+H16)+N*N*I13) 1 + N*N*H16*I03) + D33*N*N*(+2.0E0*H16*I03+2.0E0*H15*I13)) 2 + D33*N*N*H15*I02*(-2.0E0+H16) KQX(5, 7) = KQX(5, 7) + SP*(H15*(D22*(SP*(-2.0E0*I12+H17*I02) 1 + N*N*I23) - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23) 2 + N*N*H17*I03*(+D22+2.0E0*D33)) 3 + D33*N*N*H15*(-4.0E0*I12+H17*I02) KQX(5, 8) = KQX(5, 8) + SP*(H15*(D22*(SP*(-3.0E0*I22+H18*I02) 1 + N*N*I33) - 6.0E0*D12*I11 + 2.0E0*D33*N**2*I33) 2 + N*N*H18*I03*(+D22+2.0E0*D33)) 3 + D33*N*N*H15*(-6.0E0*I22+H18*I02) KQX(5, 9) = KQX(5, 9) + SP*(N*(D22*(+N*H19*I03+H15*I02) 1 + D33*(+2.0E0*N*H19*I03+H15*I02)) + D22*SP*H15*H19*I02) 2 + D33*N*N*H15*H19*I02 KQX(5,10) = KQX(5,10) + N*(D33*(H15*(-I01+SP*I12+N*H1TEN*I02) 1 + SP*N*H1TEN*I03*2.E0) + D22*SP*(+N*H1TEN*I03+H15*I12)) 2 + D22*SP*SP*H15*H1TEN*I02 KQX(6, 6) = KQX(6, 6) + H16*(SP*(D22*(SP*I02*(-2.0E0+H16) 1 + N*N*I13*2.0E0) + D33*N*N*I13*4.0E0) 2 + D33*N*N*I02*(-4.0E0+H16)) KQX(6, 7) = KQX(6, 7) + SP*(D22*(SP*(H16*(-2.0E0*I12+H17*I02) 1 + H17*I02*(-1.0E0)) + N*N*(+H17*I13+H16*I23)) 2 + D33*N*N*(+2.0E0*H17*I13 + 2.0E0*H16*I23) 3 + D12*H16*I01*(-2.0E0))+D33*N*N*(H16*(-4.0E0*I12 4 + H17*I02) + H17*I02*(-2.0E0)) KQX(6, 8) = KQX(6, 8) + SP*(D22*(SP*(H16*(-3.0E0*I22+H18*I02) 1 + H18*I02*(-1.0E0)) + N*N*(+H18*I13+H16*I33)) 2 + D33*N*N*(+2.0E0*H18*I13 + 2.0E0*H16*I33) 3 + D12*H16*I11*(-6.0E0)) + D33*N*N*(H16*(-6.0E0*I22 4 + H18*I02) + H18*I02*(-2.0E0)) KQX(6, 9) = KQX(6, 9) + SP*(D22*(H19*(SP*I02*(-1.E0+H16)+N*N*I13) 1 + N*H16*I02)+ D33*N*(+2.0E0*N*H19*I13+H16*I02)) 2 + D33*N*N*H19*I02*(-2.0E0+H16) KQX(6,10) = KQX(6,10) + N*(D33*(N*H1TEN*(I02*(-2.0E0+H16) 1 + SP*I13*2.0E0) + H16*(-I01+SP*I12)) 2 + D22*SP*(+N*H1TEN*I13+H16*I12)) 3 + D22*SP*SP*H1TEN*I02*(-1.0E0+H16) KQX(7, 7) = KQX(7, 7) + H17*(SP*(D22*(SP*(I12*(-4.0E0)+H17*I02) 1 + N*N*I23*2.0E0) + D12*I01*(-4.0E0)+D33*N*N*I23*4.0E0) 2 + D33*N*N*(I12*(-8.0E0)+H17*I02)) KQX(7, 8) = KQX(7, 8) + SP*(D22*(SP*(H17*(-3.0E0*I22+H18*I02) 1 + H18*I12*(-2.0E0)) + N*N*(+H18*I23+H17*I33)) 2 + D12*(-6.0E0*H17*I11-2.0E0*H18*I01) 3 + D33*N*N*(+2.0E0*H18*I23 + 2.0E0*H17*I33)) 4 + D33*N*N*(H17*(-6.0E0*I22+H18*I02) + H18*I12*(-4.0E0)) KQX(7, 9) = KQX(7, 9) + SP*(H19*(D22*(SP*(+H17*I02-2.0E0*I12) 1 + N*N*I23) - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23) 2 + N*H17*I02*(+D22+D33))+D33*N*N*H19*(-4.E0*I12+H17*I02) KQX(7,10) = KQX(7,10) + SP*(H1TEN*(D22*(SP*(+H17*I02-2.0E0*I12) 1 + N*N*I23) - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23) 2 + N*H17*I12*(+D22+D33))+D33*N*(N*H1TEN*(-4.0E0*I12 3 + H17*I02) + H17*I01*(-1.0E0)) KQX(8, 8) = KQX(8, 8) + H18*(SP*(D22*(SP*(I22*(-6.0E0)+H18*I02) 1 + N*N*I33*2.0E0) + D12*I11*(-1.2E01)+D33*N*N*I33*4.0E0) 2 + D33*N*N*(I22*(-1.2E01)+H18*I02)) KQX(8, 9) = KQX(8, 9) + SP*(H19*(D22*(SP*(+H18*I02-3.0E0*I22) 1 + N*N*I33) - 6.0E0*D12*I11 + 2.0E0*D33*N**2*I33) 2 + N*H18*I02*(+D22+D33))+D33*N*N*H19*(-6.E0*I22+H18*I02) KQX(8,10) = KQX(8,10) + SP*(H1TEN*(D22*(SP*(+H18*I02-3.0E0*I22) 1 + N*N*I33) - 6.0E0*D12*I11 + 2.0E0*D33*N**2*I33) 2 + N*H18*I12*(+D22+D33)) + D33*N*(N*H1TEN*(-6.0E0*I22 3 + H18*I02) + H18*I01*(-1.0E0)) KQX(9, 9) = KQX(9, 9) + H19*I02*(SP*(N*(D22*2.0E0+D33*2.0E0) 1 + D22*SP*H19) + D33*N*N*H19) KQX(9,10) = KQX(9,10) + N*(D33*(H19*(-I01+SP*I12+N*H1TEN*I02) 1 + SP*H1TEN*I02) + D22*SP*(+H1TEN*I02+H19*I12)) 2 + D22*SP*SP*H19*H1TEN*I02 KQX(10,10)= KQX(10,10)+ H1TEN*(N*(D33*(SP*I12*2.0E0+I01*(-2.0E0) 1 + N*H1TEN*I02) + D22*SP*I12*2.0E0)+D22*SP*SP*H1TEN*I02) C C SET LOWER TRIANGLE EQUAL TO UPPER TRIANGLE OF KQN MATRIX C 270 DO 280 I = 1,10 DO 280 J = I,10 280 KQN(J,I) = KQN(I,J) C C FILL HUQ PER PAGE 15 MS-28 C DO 290 I = 1,100 290 HUQ(I) = 0.0 HUQ( 1) = ONE HUQ( 13) = ONE HUQ( 25) = ONE HUQ( 36) = ONE HUQ( 49) = ONE HUQ( 51) = ONE HUQ( 52) = SL HUQ( 63) = ONE HUQ( 64) = SL HUQ( 75) = ONE HUQ( 76) = SL HUQ( 77) = L2 HUQ( 78) = HUQ(77)*SL HUQ( 86) = ONE HUQ( 87) = 2.0*SL HUQ( 88) = 3.0*HUQ(77) HUQ(100) = SL C IF (TS) 300,320,300 300 HUQ( 41) = CP/RA HUQ( 45) = N /RA HUQ( 91) = CP/RB HUQ( 92) = HUQ(91)*SL HUQ( 95) = N/RB HUQ( 96) = HUQ(95)*SL HUQ( 97) = HUQ(95)*L2 HUQ( 98) = HUQ(96)*L2 HUQ( 99) = ONE C C SUBTRACT FROM ROWS 4 AND 9 OF THE ABOVE MATRIX, THE HYQ MATRIX C DO 310 I = 1,10 HUQ(I+30) = HUQ(I+30) - HYQ(I) 310 HUQ(I+80) = HUQ(I+80) - HYQ(I) 320 CONTINUE C C NO NEED TO CALCULATE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY C ISING =-1 CALL INVERD (10,HUQ(1),10,DUM,0,DETERM,ISING,TEMP60(1)) C CHECK SINGULARITY C GO TO (340,330), ISING 330 CALL MESAGE (30,40,NECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C NOT SINGULAR, CONTINUE ON.. C 340 CONTINUE IF (TS .NE. 0.0) GO TO 345 HUQ( 85) = 0.0 HUQ(100) = 0.0 345 CONTINUE C C T N T C NOW SOLVE FOR (K ) = (E)(H )(K )(H )(E ) I = PIVOT A OR B C IJ I Q J J = A,B C C C T N T T C WE WILL SOLVE FOR (E)(H )(K )((E)(H )) C A Q B C C C T T C FIRST GET EHAT = (E)(H ), AND EHBT = (E)(H ) C A B C C C EHAT WILL BE STORED AT H(1)...H(60) AND EHBT AT H(61)...H(120) C C 0 SP CP 0 0 C 1 0 0 0 0 C 0 CP -SP 0 0 C MATRIX E = 0 0 0 0 SP C 0 0 0 1 0 C 0 0 0 0 CP C INC1 = 0 INC2 = 0 350 DO 360 I = 1,10 IDX = I + INC1 ITEN = 10*I - 9 + INC2 H(IDX ) = HUQ(ITEN+1)*SP + HUQ(ITEN+2)*CP H(IDX+10) = HUQ(ITEN ) H(IDX+20) = HUQ(ITEN+1)*CP - HUQ(ITEN+2)*SP H(IDX+30) = HUQ(ITEN+4)*SP H(IDX+40) = HUQ(ITEN+3) 360 H(IDX+50) = HUQ(ITEN+4)*CP IF (INC1) 380,370,380 370 INC1 = 60 INC2 = 5 GO TO 350 380 CONTINUE C C DETERMINE PIVOT POINT NUMBER C IF (NECPT(2) .EQ. NPVT) GO TO 390 IF (NECPT(3) .EQ. NPVT) GO TO 400 CALL MESAGE (-30,34,NECPT(1)) 390 NPIVOT = 1 GO TO 410 400 NPIVOT = 2 GO TO 410 C C EHAT(1) IS AT H( 1) C EHBT(1) IS AT H(61) C 410 CALL GMMATD (H(60*NPIVOT-59),6,10,0, KQN(1,1),10,10,0, TEMP60(1)) C C IF N = 0 DOUBLE RESULT FOR KIJ C IF (N) 440,420,440 420 DO 430 I = 1,60 430 TEMP60(I) = TEMP60(I)*2.0 C 440 DO 470 J = 1,2 CALL GMMATD (TEMP60(1),6,10,0, H(60*J-59),6,10,1, KIJ(1)) CALL SMA1B (KIJ(1),NECPT(J+1),-1,IFKGG,0.0E0) IF (IOPT4) 450,470,450 450 IF (GSUBE) 460,470,460 460 TEMP = GSUBE K4GGSW = 1 CALL SMA1B (KIJ(1),NECPT(J+1),-1,IF4GG,TEMP) 470 CONTINUE C RETURN END ================================================ FILE: mis/kconed.f ================================================ SUBROUTINE KCONED C C DOUBLE PRECISION CONEAX ROUTINE C C FOUR KCONE VERSIONS C KCONES FOR MACHINES WITH 60 OR 64 BIT WORD (e.g. CDC, CRAY). C S.P. COMPUTATION IS USED C KCONE2, SIMILAR TO KCONES, EXECPT CERTAIN CRITICAL AREAS ARE C COMPUTED IN D.P. FOR IMPROVED ACCURACY C KCONED FOR MAHCINES WITH LESS THEN 60 BIT WORD, WITHOUT QUAD C PRECISION SOFTWARE SUPPORT (e.g. DEC3100). C D.P. COMPUTAION IS USED C KCONEQ, SIMILAR TO KCONED, EXECPT CERTAIN CRITICAL AREAS ARE C COMPUTED IN QUAD PREC. FOR IMPROVED ACCURACY C C ORIGINALLY, THIS ROUTINE CALLS KCONEX AND KCONEY/Z. THESE THREE C SUPPORTING ROUTINES ARE NOW MOVED INTO KCONED (AND ALSO KCONES) C C ECPT( 1) = ELEMENT ID INTEGER ECT C ECPT( 2) = SIL PT A INTEGER ECT C ECPT( 3) = SIL PT B INTEGER ECT C ECPT( 4) = MATID 1 INTEGER EPT C ECPT( 5) = T (MEMBRANE THICK) REAL EPT C ECPT( 6) = MATID 2 INTEGER EPT C ECPT( 7) = I (MOM.OF INERTIA) REAL EPT C ECPT( 8) = MATID 3 INTEGER EPT C ECPT( 9) = TS (SHEAR THICKNESS) REAL EPT C ECPT(10) = NON-STRUCTURAL-MASS REAL EPT C ECPT(11) = Z1 REAL EPT C ECPT(12) = Z2 REAL EPT C ECPT(13) = PHI 1 REAL EPT C ECPT(14) = PHI 2 REAL EPT C ECPT(15) = PHI 3 REAL EPT C ECPT(16) = PHI 4 REAL EPT C ECPT(17) = PHI 5 REAL EPT C ECPT(18) = PHI 6 REAL EPT C ECPT(19) = PHI 7 REAL EPT C ECPT(20) = PHI 8 REAL EPT C ECPT(21) = PHI 9 REAL EPT C ECPT(22) = PHI 10 REAL EPT C ECPT(23) = PHI 11 REAL EPT C ECPT(24) = PHI 12 REAL EPT C ECPT(25) = PHI 13 REAL EPT C ECPT(26) = PHI 14 REAL EPT C ECPT(27) = COORD. SYS. ID PT.1 INTEGER BGPDT C ECPT(28) = RADIUS PT. 1 REAL BGPDT C ECPT(29) = DISTANCE TO PT.1 REAL BGPDT C ECPT(30) = NULL REAL BGPDT C ECPT(31) = COORD. SYS. ID PT.2 INTEGER BGPDT C ECPT(32) = RADIUS PT 2 REAL BGPDT C ECPT(33) = DISTANCE TO PT. 2 REAL BGPDT C ECPT(34) = NULL REAL BGPDT C ECPT(35) = ELEMENT TEMPERATURE REAL GEOM3 C C INTEGER NERROR(2) ,NECPT(100) ,NA(7) , 1 OLDPT1 ,OLDPT2 DOUBLE PRECISION I00 ,I01 ,I02 ,I03 ,I04 , 1 I10 ,I11 ,I12 ,I13 ,I14 , 2 I20 ,I21 ,I22 ,I23 ,I24 , 3 I31 ,I32 ,I33 ,I34 , 4 I42 ,I43 ,I44 , 5 I52 ,I53 ,I54 , 6 CONSTD , I62 ,I63 ,I64 DOUBLE PRECISION KQN(10,10) ,KQX(10,10) ,KQE(10,10) , 1 KQY(10,10) ,FAC(7),H(120) ,H11 ,H12 , 2 H13 ,H14 ,H15 ,H16 ,H17 ,H18 , 3 H19 ,H1TEN ,DETERM ,PI ,ONE ,HUQ , 4 INTEG ,KIJ ,NSPOPI ,HYQ ,TEMP60 ,HYQF , 5 ZA ,E11 ,D11 ,ZB ,E12 ,D12 , 6 A ,E22 ,D22 ,B ,E33 ,D33 , 7 SIGN ,T ,CP ,RA ,TS ,SP , 8 RB ,N ,CP2 ,RASQ ,N2 ,SP2 , 9 RBSQ ,SL ,NSP ,TN ,L2 ,NCP , O PIOVB ,DL ,SPE12 ,TD ,TEMP ,CPE12 , 1 N2E22 ,TWOD33,TNSP ,N2E33 ,OPI ,OQ , 2 SPE22 ,TEMP1 ,TEMP5 ,CPE22 ,TEMP2 ,TEMP6 , 3 SP2E22 ,TEMP3 ,TEMP7 ,CP2E22 ,TEMP4 ,SP2E33 , 4 N2D33 ,SP2D22,SPE33 DOUBLE PRECISION SUM ,QQ1 ,QQ2 ,QQ3 ,QQ4 C COMMON /CONDAD/ CONSTD(5) COMMON /MATIN / MATID ,INFLAG,ELTEMP ,STRESS ,SINTH ,COSTH COMMON /MATOUT/ G11 ,G12 ,G13 ,G22 ,G23 ,G33 , 1 DUM(5) ,GSUBE COMMON /SMA1IO/ DUM1(10) ,IFKGG ,DUM2 ,IF4GG COMMON /SMA1CL/ IOPT4 ,K4GGSW,NPVT ,DUMCL(7) ,LINK(10), 1 IDETCK ,DODET ,NOGO COMMON /SMA1ET/ ECPT(100) COMMON /SMA1DP/ INTEG(28) ,KIJ(36),HUQ(100) ,HYQF(10), 1 HYQ(10),TEMP60(60) ,OPI ,ZA ,E11 , 2 CP ,SPE22 ,ZB ,E12 ,SP ,CPE22 , 3 A ,E22 ,CP2 ,SP2E22 ,B ,E33 , 4 SP2 ,CP2E22,SIGN ,T ,D11 ,TEMP1 , 5 RA ,TS ,D12 ,TEMP2 ,RB ,N , 6 D22 ,TEMP3 ,RASQ ,N2 ,D33 ,TEMP4 , 7 RBSQ ,SL ,NSP ,TEMP5 ,TN ,L2 , 8 NCP ,TEMP6 ,PIOVB ,DL ,SPE12 ,TEMP7 , 9 TD ,TEMP ,CPE12 ,OQ ,N2E22 ,TWOD33 , O TNSP ,N2E33 ,SP2E33,SPE33 EQUIVALENCE (CONSTD(1),PI ), (ECPT(4),MATID1), 1 (ECPT(6),MATID2), (ECPT(8),MATID3), 2 (ECPT(1),NECPT(1)) EQUIVALENCE (G,G12), (KQN(1,1),KQE(1,1),KQX(1,1),KQY(1,1)) EQUIVALENCE (HYQ(1),H11), (HYQ(2),H12), (HYQ(3),H13), 1 (HYQ(4),H14), (HYQ(5),H15), (HYQ(6),H16), 2 (HYQ(7),H17), (HYQ(8),H18), (HYQ(9),H19), 3 (HYQ(10),H1TEN) EQUIVALENCE (I00,INTEG( 1)), (I20,INTEG(11)), 1 (I01,INTEG( 2)), (I21,INTEG(12)), 2 (I02,INTEG( 3)), (I22,INTEG(13)), 3 (I03,INTEG( 4)), (I23,INTEG(14)), 4 (I04,INTEG( 5)), (I24,INTEG(15)), 5 (I10,INTEG( 6)), (I31,INTEG(16)), 6 (I11,INTEG( 7)), (I32,INTEG(17)), 7 (I12,INTEG( 8)), (I33,INTEG(18)), 8 (I13,INTEG( 9)), (I34,INTEG(19)), 9 (I14,INTEG(10)), (I52,INTEG(23)), O (I42,INTEG(20)), (I53,INTEG(24)), 1 (I43,INTEG(21)), (I54,INTEG(25)), 2 (I44,INTEG(22)), (I62,INTEG(26)), 3 (I63,INTEG(27)), (I64,INTEG(28)) DATA OLDPT1, OLDPT2 / 0, 0 / DATA FAC / 1.0D0,1.0D0,2.0D0,6.0D0,24.0D0,120.0D0,720.0D0 / DATA NA / 1,1,1,2,3,3,3 / DATA ONE / 1.0D0 / C C DOES PIVOT POINT EQUAL EITHER OF THE LAST TWO SILS C IF (OLDPT1 .EQ. NECPT(2)) IF (OLDPT2-NECPT(3)) 10,110,10 IF (OLDPT2 .EQ. NECPT(2)) IF (OLDPT1-NECPT(3)) 10,110,10 10 CONTINUE C C NO MATCH THUS DO ENTIRE COMPUTATION C SINTH = 0.0 COSTH = 1.0 NINT = NECPT(1) - (NECPT(1)/1000)*1000 - 1 N = NINT RA = ECPT(28) ZA = ECPT(29) RB = ECPT(32) ZB = ECPT(33) TEMP1 = RB - RA TEMP2 = ZB - ZA SL = DSQRT(TEMP1**2 + TEMP2**2) L2 = SL*SL IF (SL) 30,20,30 20 NERROR(1) = NECPT(1)/1000 NERROR(2) = N + .3 CALL MESAGE (30,39,NERROR(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C 30 SP = TEMP1/SL CP = TEMP2/SL A = RA B = SP IF (B) 60,40,60 C C GO TO 40 FOR B = 0 C C 1-N C PI RA M+1 C FOR B = 0, I = --------- SL (FOR ALL M,N .GE. 0) C M,N M + 1 C 40 IDX = 0 DO 50 I = 1,7 NBEGIN = NA(I) C DO 50 J = NBEGIN,5 C C M = I - 1 C N = J - 1 C MPLUS1 THUS EQUALS I C IDX = IDX + 1 INTEG(IDX) = (PI*SL**I)/(DBLE(FLOAT(I))*RA**(J-2)) 50 CONTINUE GO TO 100 C C ABOVE COMPLETES ALL INTEGRALS FOR B = 0 C 60 CONTINUE C C FOR B .NE. ZERO C C IF AN OVERFLOW RESULTS BELOW POSSIBLY B IS NOT ZERO, BUT SMALL C C OK BELOW IS FOR B NOT EQUAL TO ZERO C C FIRST M = 0 CASE C C 2-N 2-N C PI (RB - RA ) C I = -------------------- (N NOT EQUAL TO 2) C 0,N (2-N) B C C C FOR N=2 I = PI * (LOG RB - LOG RA) / B C 0,2 E E C RASQ = RA*RA RBSQ = RB*RB PIOVB = PI/B C INTEG(1) = 0.5D0*PIOVB*(RBSQ - RASQ) INTEG(2) = PIOVB*(RB - RA) INTEG(3) = PIOVB*DLOG(RB/RA) INTEG(4) =-PIOVB*(ONE/RB - ONE/RA) INTEG(5) =-0.5D0*PIOVB*(ONE/RBSQ - ONE/RASQ) C IDX = 5 DO 90 I = 1,6 MPLUS1 = I + 1 NBEGIN = NA(MPLUS1) DO 90 J = NBEGIN,5 C C M = I C N = J - 1 C C WE ARE GETTING INTEGRAL(M,N) C M = POWER OF S C N = POWER OF R C C EVALUATING AT R = RB, THEN AT R = RA C C K MNK2 C (M)FAC. M (-A) (R) C I = (PI) (-------) ((SUM -------------------------) + (TERM-X)) C MN (M+1) K=0 (M-K)FAC. (K)FAC. (MNK2) C B (FOR K.NE. MN2 (FOR K=MN2) C C WHERE MNK2 = M-N-K+2 C MN2 = M-N +2 C (X)FAC. = X! C MN2 C (-A) LOG(R) C TERM-X = -------------------- C (M-N+2)FAC. (N-2)FAC. C C NOTE IN DATA STATEMENT THAT 0 FACTORIAL = FAC(1) C 1 FACTORIAL = FAC(2) C 2 FACTORIAL = FAC(3) ETC. C SUM = 0.0 SIGN =-1.0D0 DO 80 KK = 1,MPLUS1 SIGN =-SIGN K = KK - 1 MN2 = I - J + 3 QQ1 = A QQ2 = RB QQ3 = RA IF (K .EQ. MN2) GO TO 70 MNK2 = MN2 - K MK1 = MPLUS1 - K TEMP = MNK2 C C QQ4 = A**K*(RB**MNK2-RA**MNK2)/(FAC(MK1)*FAC(KK)*TEMP) C QQ1 = QQ1**K QQ2 = QQ2**MNK2 QQ3 = QQ3**MNK2 QQ2 = QQ2 - QQ3 QQ3 = FAC(MK1)*FAC(KK)*TEMP GO TO 75 C C QQ4 = A**MN2*DLOG(RB/RA)/(FAC(MN2+1)*FAC(J-2)) C 70 QQ1 = QQ1**MN2 QQ3 = QQ2/QQ3 QQ2 = DLOG(QQ3) QQ3 = FAC(MN2+1)*FAC(J-2) 75 QQ4 = QQ1*QQ2/QQ3 80 SUM = SUM + SIGN*QQ4 C QQ1 = PI*FAC(MPLUS1) QQ2 = B QQ3 = QQ2**MPLUS1 QQ4 = SUM*QQ1/QQ3 IDX = IDX + 1 INTEG(IDX) = DBLE(QQ4) 90 CONTINUE C 100 OLDPT1 = NECPT(2) OLDPT2 = NECPT(3) GO TO 140 C C WE HAVE A MATCH ON OLD SIL NUMBER 1 C 110 IF (NPVT-OLDPT1) 130,120,130 120 NPIVOT = 1 GO TO 410 C C WE HAVE A MATCH ON OLD SIL NUMBER 2 C 130 NPIVOT = 2 GO TO 410 C C ZERO OUT THE KQN MATRIX C 140 DO 150 I = 1,10 DO 150 J = 1,10 150 KQN(I,J) = 0.0D0 C C IF MEMBRANE THICKNESS IS NOT ZERO FORM THE KQE MATRIX C T = ECPT(5) IF (T) 160,200,160 160 ASSIGN 190 TO IRETRN MATID = MATID1 170 INFLAG = 2 180 ELTEMP = ECPT(35) CALL MAT (ECPT(1)) GO TO IRETRN, (190,230,242) 190 E11 = G11 E12 = G12 E22 = G22 E33 = G33 TN = T * N CP2 = CP* CP SP2 = SP* SP N2 = N * N CP2E22= CP2* E22 SP2E22= SP2* E22 CPE22 = CP * E22 SPE22 = SP * E22 CPE12 = CP * E12 SPE12 = SP * E12 N2E33 = N2 * E33 N2E22 = N2 * E22 SP2E33= SP2* E33 SPE33 = SP * E33 C C /// FURTHER REDUCTION IS NEEDED HERE /// C KQE(1,1) = T*(N2E22 + SP2E33)*I02 KQE(1,2) = T*(N2E22*I12 - SPE33*I01 + SP2E33*I12) TEMP = E22 + E33 TNSP = TN*SP KQE(1,3) = TNSP*TEMP*I02 KQE(1,4) = TN*(E12*I01 + SP*TEMP*I12) TEMP = TN*CP*E22 KQE(1,5) = TEMP*I02 KQE(1,6) = TEMP*I12 KQE(1,7) = TEMP*I22 KQE(1,8) = TEMP*I32 TEMP4 = 2.D0*SP*I11 KQE(2,2) = T *(N2E22*I22 + E33*(I00-TEMP4 + SP2*I22)) KQE(2,3) = TN*(SPE22*I12 - E33*I01 + SPE33*I12) KQE(2,4) = TN*(E12*I11 + SPE22*I22 - E33*I11 + SPE33*I22) KQE(2,5) = KQE(1,6) KQE(2,6) = KQE(1,7) KQE(2,7) = KQE(1,8) KQE(2,8) = TN*CPE22 *I42 KQE(3,3) = T *(SP2E22*I02 + N2E33*I02) KQE(3,4) = T *(SPE12 *I01 + SP2E22*I12 + N2E33*I12) TEMP = T *CP*SPE22 KQE(3,5) = TEMP*I02 KQE(3,6) = TEMP*I12 KQE(3,7) = TEMP*I22 KQE(3,8) = TEMP*I32 KQE(4,4) = T *(E11*I00 + TEMP4*E12 + SP2E22*I22 + N2E33*I22) TEMP = SP*CPE22 KQE(4,5) = T *(CPE12*I01 + TEMP*I12) KQE(4,6) = T *(CPE12*I11 + TEMP*I22) KQE(4,7) = T *(CPE12*I21 + TEMP*I32) KQE(4,8) = T *(CPE12*I31 + TEMP*I42) TEMP = T *CP2E22 KQE(5,5) = TEMP*I02 KQE(5,6) = TEMP*I12 KQE(5,7) = TEMP*I22 KQE(5,8) = TEMP*I32 KQE(6,6) = KQE(5,7) KQE(6,7) = KQE(5,8) KQE(6,8) = TEMP*I42 KQE(7,7) = KQE(6,8) KQE(7,8) = TEMP*I52 KQE(8,8) = TEMP*I62 C 200 IF (ECPT(7) .EQ. 0.0) GO TO 270 C C NOW GET G MATERIAL MATRIX ID = MATID2 C MATID = MATID2 ASSIGN 230 TO IRETRN GO TO 170 C C NOW FORM D = I DOT G C 230 D11 = ECPT(7)*G11 D12 = ECPT(7)*G12 D22 = ECPT(7)*G22 D33 = ECPT(7)*G33 C C IF SHEAR THICKNESS IS NOT ZERO FORM THE HYQ AND KQY MATRICES C TS = ECPT(9) IF (TS) 240,265,240 240 CONTINUE C C GET G FOR MATID3 C MATID = MATID3 INFLAG = 1 ASSIGN 242 TO IRETRN GO TO 180 C 242 CONTINUE IF (G .EQ. 0.0) GO TO 261 C C FORMING 1.0/Q DIRECTLY C OPI = ONE / PI C C /// MAKE SURE ALL BASIC PRODUCTS ARE AT TOP BEFORE ANY SKIPS C N2D33 = N2 *D33 SP2D22 = SP2*D22 OQ = SL*TS*DBLE(G)*(RA+RB)*0.5D0 + I02*(N2D33+SP2D22)*OPI OQ = ONE/OQ NSP = N*SP NCP = N*CP NSPOPI = NSP *OPI TWOD33 = 2.0D0*D33 TEMP1 = D12*(ONE/RB - ONE/RA) TEMP2 = NSPOPI*(D22 + D33) TEMP3 = N *NSPOPI*(TWOD33 + D22) TEMP4 = OQ *0.5D0 *NCP*N*D33*OPI TEMP5 = OPI*(N2*TWOD33 + SP2*D22) TEMP6 = D12*N2*L2/RB TEMP7 = NSPOPI*CP*0.5D0 HYQ(1) = OQ *(TEMP1*NCP - TEMP7*I03*(D33+2.0D0*D22)) HYQ(2) = OQ *(NCP*SL/RB*D12 - TEMP7*I13*(3.0D0*D33+D22) 1 + 1.5D0*NCP*OPI*I02*D33) HYQ(3) = TEMP4*I03 HYQ(4) = TEMP4*I13 HYQ(5) = OQ*(TEMP1*N2 - TEMP3*I03) HYQ(6) = OQ*(D12*N2*SL/RB - TEMP3*I13 + TEMP5*I02) HYQ(7) = OQ*(2.0D0*D11*(RA-RB)+TEMP6+2.0D0*I12*TEMP5-TEMP3*I23) HYQ(8) = OQ*(-D11*6.D0*SL*RB+TEMP6*SL+3.D0*I22*TEMP5-TEMP3*I33) HYQ(9) =-OQ*TEMP2 * I02 HYQ(10)= OQ*(N*SL*(D12+D33) - TEMP2*I12) C TEMP = TS*DBLE(G)*I00 DO 250 I = 1,10 250 HYQF(I) = HYQ(I)*TEMP DO 260 I = 1,10 DO 260 J = I,10 260 KQY(I,J) = KQY(I,J) + HYQ(I)*HYQF(J) C C ADD IN TERMS PER EQUATION-90- PAGE -27- MS-28 C TEMP = TS*DBLE(G) KQY( 9,10) = KQY( 9,10) + TEMP*I10 KQY(10,10) = KQY(10,10) + TEMP*I20 KQY( 9, 9) = KQY( 9, 9) + TEMP*I00 C C END OF KQY COMPUTATION C GO TO 265 261 TS = 0.0D0 265 CONTINUE C C THE FOLLOWING CODES WERE MOVED HERE FROM KCONEX C C KQX MATRIX FOR SHEAR THICKNESS CONSIDERATION C C (THE FOLLOWING CODE WAS MACHINE GENERATED AND WILL NOT BE SIMPLI- C FIED FURTHER UNTIL FORMULATION VERIFICATION IS COMPLETED) C KQX(1, 1) = KQX(1, 1) + CP*CP*I04*(+D22*N**2+2.25D0*D33*SP**2) KQX(1, 2) = KQX(1, 2) + CP*CP*(D33*SP*(+2.25D0*SP*I14-2.25D0*I03) 1 + D22*N*N*I14) KQX(1, 3) = KQX(1, 3) + D33*CP*CP*SP*N*I04*(-7.5D-1) KQX(1, 4) = KQX(1, 4) + D33*CP*CP*SP*N*I14*(-7.5D-1) KQX(1, 5) = KQX(1, 5) + CP*N*I04*(+D22*N**2+3.0D0*D33*SP**2) KQX(1, 6) = KQX(1, 6) + CP*N*(SP*(D33*(+3.0D0*SP*I14-3.0D0*I03) 1 - D22*I03) + D22*N*N*I14) KQX(1, 7) = KQX(1, 7) + CP*N*(SP*(D33*(+3.0D0*SP*I24-6.0D0*I13) 1 + D22*I13*(-2.0D0)) - 2.0D0*D12*I02 + D22*N**2*I24) KQX(1, 8) = KQX(1, 8) + CP*N*(SP*(D33*(+3.0D0*SP*I34-9.0D0*I23) 1 + D22*I23*(-3.0D0)) - 6.0D0*D12*I12 + D22*N**2*I34) KQX(1, 9) = KQX(1, 9) + CP*I03*(+D22*N**2+1.5D0*D33*SP**2) KQX(1,10) = KQX(1,10) + CP*(D33*SP*(-1.5D0*I02+1.5D0*SP*I13) 1 + D22*N*N*I13) KQX(2, 2) = KQX(2, 2) + CP*CP*(D33*(SP*(I13*(-4.5D0) 1 + SP*I24*2.25D0) + I02*2.25D0) + D22*N*N*I24) KQX(2, 3) = KQX(2, 3) + D33*CP*CP*N*(-7.5D-1*SP*I14+7.5D-1*I03) KQX(2, 4) = KQX(2, 4) + D33*CP*CP*N*(-7.5D-1*SP*I24+7.5D-1*I13) KQX(2, 5) = KQX(2, 5) + CP*N*(D33*SP*(+3.0D0*SP*I14-3.0D0*I03) 1 + D22*N*N*I14) KQX(2, 6) = KQX(2, 6) + CP*N*(D33*(SP*(I13*(-6.0D0) 1 + SP*I24*3.0D0) + I02*3.0D0) + D22*(-SP*I13+N**2*I24)) KQX(2, 7) = KQX(2, 7) + CP*N*(D33*(SP*(I23*(-9.0D0) 1 + SP*I34*3.0D0) + I12*6.0D0) 2 + D22*(-2.0D0*SP*I23 + N**2*I34) + D12*I12*(-2.0D0)) KQX(2, 8) = KQX(2, 8) + CP*N*(D33*(SP*(I33*(-1.20D01) 1 + SP*I44*3.0D0) + I22*9.0D0) 2 + D22*(-3.0D0*SP*I33+N**2*I44) + D12*I22*(-6.0D0)) KQX(2, 9) = KQX(2, 9) + CP*(D33*SP*(+1.5D0*SP*I13-1.5D0*I02) 1 + D22*N*N*I13) KQX(2,10) = KQX(2,10) + CP*(D33*(SP*(I12*(-3.0D0)+SP*I23*1.5D0) 1 + I01*1.5D0)+ D22*N*N*I23) KQX(3, 3) = KQX(3, 3) + D33*CP*CP*N*N*I04*2.5D-1 KQX(3, 4) = KQX(3, 4) + D33*CP*CP*N*N*I14*2.5D-1 KQX(3, 5) = KQX(3, 5) + D33*CP*SP*N*N*I04*(-1.0D0) KQX(3, 6) = KQX(3, 6) + D33*CP*N*N*(-SP*I14+I03) KQX(3, 7) = KQX(3, 7) + D33*CP*N*N*(-SP*I24+2.0D0*I13) KQX(3, 8) = KQX(3, 8) + D33*CP*N*N*(-SP*I34+3.0D0*I23) KQX(3, 9) = KQX(3, 9) + D33*CP*SP*N*I03*(-5.0D-1) KQX(3,10) = KQX(3,10) + D33*CP*N*(+5.0D-1*I02-5.0D-1*SP*I13) KQX(4, 4) = KQX(4, 4) + D33*CP*CP*N*N*I24*2.5D-1 KQX(4, 5) = KQX(4, 5) + D33*CP*SP*N*N*I14*(-1.0D0) KQX(4, 6) = KQX(4, 6) + D33*CP*N*N*(-SP*I24+I13) KQX(4, 7) = KQX(4, 7) + D33*CP*N*N*(-SP*I34+2.0D0*I23) KQX(4, 8) = KQX(4, 8) + D33*CP*N*N*(-SP*I44+3.0D0*I33) KQX(4, 9) = KQX(4, 9) + D33*CP*SP*N*I13*(-5.0D-1) KQX(4,10) = KQX(4,10) + D33*CP*N*(+5.0D-1*I12-5.0D-1*SP*I23) KQX(5, 5) = KQX(5, 5) + N*N*I04*(+D22*N**2+4.0D0*D33*SP**2) KQX(5, 6) = KQX(5, 6) + N*N*(SP*(D33*(+4.0D0*SP*I14-4.0D0*I03) 1 + D22*I03*(-1.0D0)) + D22*N*N*I14) KQX(5, 7) = KQX(5, 7) + N*N*(SP*(D33*(+4.0D0*SP*I24-8.0D0*I13) 1 + D22*I13*(-2.0D0))-2.0D0*D12*I02 + D22*N**2*I24) KQX(5, 8) = KQX(5, 8) + N*N*(SP*(D33*(+4.0D0*SP*I34-1.20D01*I23) 1 + D22*I23*(-3.0D0)) - 6.0D0*D12*I12 + D22*N**2*I34) KQX(5, 9) = KQX(5, 9) + N*I03*(+D22*N**2+2.0D0*D33*SP**2) KQX(5,10) = KQX(5,10) + N*(D33*SP*(-2.0D0*I02+2.0D0*SP*I13) 1 + D22*N*N*I13) KQX(6, 6) = KQX(6, 6) + N*N*(SP*(I13*(D22*(-2.0D0)+D33*(-8.0D0)) 1 + D33*SP*I24*4.0D0) + D22*N**2*I24 + 4.0D0*D33*I02) 2 + D22*SP*SP*I02 KQX(6, 7) = KQX(6, 7) + N*N*(SP*(I23*(D22*(-3.0D0)+D33*(-1.20D01)) 1 + D33*SP*I34*4.0D0) + I12*(-2.0D0*D12+8.0D0*D33) 2 + D22*N*N*I34) + SP*(+2.0D0*D12*I01+2.0D0*D22*SP*I12) KQX(6, 8) = KQX(6, 8) + N*N*(SP*(I33*(D22*(-4.0D0)+D33*(-1.6D01)) 1 + D33*SP*I44*4.0D0) + I22*(-6.0D0*D12+1.20D01*D33) 2 + D22*N*N*I44)+SP*(+6.0D0*D12*I11+3.0D0*D22*SP*I22) KQX(6, 9) = KQX(6, 9) + N*(SP*(D33*(+2.0D0*SP*I13-2.0D0*I02) 1 + D22*I02*(-1.0D0)) + D22*N*N*I13) KQX(6,10) = KQX(6,10) + N*(D33*(SP*(I12*(-4.0D0) + SP*I23*2.0D0) 1 + I01*2.0D0)+ D22*(+N**2*I23-SP*I12)) KQX(7, 7) = KQX(7, 7) + N*N*(SP*(I33*(D22*(-4.0D0)+D33*(-1.6D01)) 1 + D33*SP*I44*4.0D0) + I22*(D12*(-4.0D0) +D33*1.6D01) 2 + D22*N*N*I44) + SP*(D12*I11*8.0D0+D22*SP*I22*4.0D0) 3 + D11*I00*4.0D0 KQX(7, 8) = KQX(7, 8) + N*N*(SP*(I43*(D22*(-5.0D0)+D33*(-2.0D01)) 1 + D33*SP*I54*4.0D0) + I32*(D12*(-8.0D0)+D33*2.40D01) 2 + D22*N*N*I54) + SP*(D12*I21*1.80D01+D22*SP*I32*6.0D0) 3 + D11*I10*1.20D01 KQX(7, 9) = KQX(7, 9) + N*(SP*(D33*(+2.0D0*SP*I23-4.0D0*I12) 1 + D22*I12*(-2.0D0)) - 2.0D0*D12*I01 + D22*N**2*I23) KQX(7,10) = KQX(7,10) + N*(D33*(SP*(I22*(-6.0D0)+SP*I33*2.0D0) 1 + I11*4.0D0)+ D22*(+N**2*I33-2.0D0*SP*I22) 2 + D12*I11*(-2.0D0)) KQX(8, 8) = KQX(8, 8) + N*N*(SP*(I53*(D22*(-6.0D0)+D33*(-2.40D01)) 1 + D33*SP*I64*4.0D0) + I42*(D12*(-1.20D01) + D33*3.60D01) 2 + D22*N*N*I64) + SP*(D12*I31*3.60D01+D22*SP*I42*9.0D0) 3 + D11*I20*3.60D01 KQX(8, 9) = KQX(8, 9) + N*(SP*(D33*(+2.0D0*SP*I33-6.0D0*I22) 1 + D22*I22*(-3.0D0)) - 6.0D0*D12*I11 + D22*N**2*I33) KQX(8,10) = KQX(8,10) + N*(D33*(SP*(I32*(-8.0D0)+SP*I43*2.0D0) 1 + I21*6.0D0)+ D22*(+N**2*I43-3.0D0*SP*I32) 2 + D12*I21*(-6.0D0)) KQX(9, 9) = KQX(9, 9) + I02*(+D22*N**2+D33*SP**2) KQX(9,10) = KQX(9,10) + D33*SP*(-I01+SP*I12) + D22*N*N*I12 KQX(10,10)= KQX(10,10)+ D33*(SP*(I11*(-2.0D0)+ SP*I22)+I00) 1 + D22*N*N*I22 IF (TS .EQ. 0.0D0) GO TO 270 C C THE FOLLOWING CODES WERE MOVED HERE FROM KCONEY C KQX(1, 1) = KQX(1, 1) + H11*(SP*(CP*N*I03*(D22*2.0D0+D33*3.0D0) 1 + D22*SP*H11*I02) + D33*N*N*H11*I02) KQX(1, 2) = KQX(1, 2) + N*(CP*(SP*(D22*(+H12*I03+H11*I13) 1 + D33*(+1.5D0*H12*I03+1.5D0*H11*I13)) 2 + D33*H11*I02*(-1.5D0))+D33*N*H11*H12*I02) 3 + D22*SP*SP*H11*H12*I02 KQX(1, 3) = KQX(1, 3) + N*(D33*(CP*I03*(+1.5D0*SP*H13 1 - 5.0D-1*N*H11) + N*H11*H13*I02) + D22*CP*SP*H13*I03) 2 + D22*SP*SP*H11*H13*I02 KQX(1, 4) = KQX(1, 4) + N*(D33*(CP*(+1.5D0*SP*H14*I03 1 - 5.0D-1*N*H11*I13)+N*H11*H14*I02) + D22*CP*SP*H14*I03) 2 + D22*SP*SP*H11*H14*I02 KQX(1, 5) = KQX(1, 5) + SP*(N*I03*(D22*(+CP*H15+N*H11) 1 + D33*(+1.5D0*CP*H15+2.0D0*N*H11)) 2 + D22*SP*H11*H15*I02) + D33*N*N*H11*H15*I02 KQX(1, 6) = KQX(1, 6) + SP*(D22*(H11*(SP*I02*(-1.0D0+H16) 1 + N*N*I13) + CP*N*H16*I03)+D33*N*(+1.5D0*CP*H16*I03 2 + 2.0D0*N*H11*I13)) + D33*N*N*H11*I02*(-2.0D0+H16) KQX(1, 7) = KQX(1, 7) + SP*(H11*(D22*(SP*(-2.0D0*I12+H17*I02) 1 + N*N*I23) - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23) 2 + CP*N*H17*I03*(+D22+1.5D0*D33)) 3 + D33*N*N*H11*(-4.0D0*I12+H17*I02) KQX(1, 8) = KQX(1, 8) + SP*(H11*(D22*(SP*(-3.0D0*I22+H18*I02) 1 + N*N*I33) - 6.0D0*D12*I11 + 2.0D0*D33*N**2*I33) 2 + CP*N*H18*I03*(+D22+1.5D0*D33)) 3 + D33*N*N*H11*(-6.0D0*I22+H18*I02) KQX(1, 9) = KQX(1, 9) + SP*(N*(D22*(+CP*H19*I03+H11*I02) 1 + D33*(+1.5D0*CP*H19*I03+H11*I02)) 2 + D22*SP*H11*H19*I02) + D33*N*N*H11*H19*I02 KQX(1,10) = KQX(1,10) + N*(D33*(H11*(-I01+SP*I12+N*H1TEN*I02) 1 + CP*SP*H1TEN*I03*1.5D0) + D22*SP*(+CP*H1TEN*I03 2 + H11*I12)) + D22*SP*SP*H11*H1TEN*I02 KQX(2, 2) = KQX(2, 2) + H12*(N*(CP*(D33*(SP*I13*3.D0+I02*(-3.D0)) 1 + D22*SP*I13*2.D0) + D33*N*H12*I02) + D22*SP*SP*H12*I02) KQX(2, 3) = KQX(2, 3) + N*(D33*(CP*(H13*(+1.5D0*SP*I13-1.5D0*I02) 1 + N*H12*I03*(-5.0D-1)) + N*H12*H13*I02) 2 + D22*CP*SP*H13*I13) + D22*SP*SP*H12*H13*I02 KQX(2, 4) = KQX(2, 4) + N*(D33*(CP*(H14*(+1.5D0*SP*I13-1.5D0*I02) 1 + N*H12*I13*(-5.0D-1)) + N*H12*H14*I02) 2 + D22*CP*SP*H14*I13) + D22*SP*SP*H12*H14*I02 KQX(2, 5) = KQX(2, 5) + N*(D33*(H15*(CP*(+1.5D0*SP*I13-1.5D0*I02) 1 + N*H12*I02)+ SP*N*H12*I03*2.0D0) + D22*SP*(+CP*H15*I13 2 + N*H12*I03)) + D22*SP*SP*H12*H15*I02 KQX(2, 6) = KQX(2, 6) + N*(D33*(N*H12*(I02*(-2.0D0+H16) 1 + SP*I13*2.0D0) + CP*H16*(+1.5D0*SP*I13-1.5D0*I02)) 2 + D22*SP*I13*(+CP*H16+N*H12)) 2 + D22*SP*SP*H12*I02*(-1.0D0+H16) KQX(2, 7) = KQX(2, 7) + SP*(H12*(D22*(SP*(-2.0D0*I12+H17*I02) 1 + N*N*I23) - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23) 2 + CP*N*H17*I13*(+D22+1.5D0*D33)) 3 + D33*N*(N*H12*(-4.0D0*I12+H17*I02) 4 + CP*H17*I02*(-1.5D0)) KQX(2, 8) = KQX(2, 8) + SP*(H12*(D22*(SP*(-3.0D0*I22+H18*I02) 1 + N*N*I33) - 6.0D0*D12*I11 + 2.0D0*D33*N**2*I33) 2 + CP*N*H18*I13*(+D22+1.5D0*D33)) 3 + D33*N*(N*H12*(-6.0D0*I22+H18*I02) 4 + CP*H18*I02*(-1.5D0)) KQX(2, 9) = KQX(2, 9) + N*(D33*(H19*(CP*(+1.5D0*SP*I13-1.5D0*I02) 1 + N*H12*I02)+ SP*H12*I02)+D22*SP*(+CP*H19*I13+H12*I02)) 2 + D22*SP*SP*H12*H19*I02 KQX(2,10) = KQX(2,10) + N*(D33*(H12*(-I01+SP*I12+N*H1TEN*I02) 1 + CP*H1TEN*(+1.5D0*SP*I13-1.5D0*I02)) 2 + D22*SP*(+CP*H1TEN*I13+H12*I12)) 3 + D22*SP*SP*H12*H1TEN*I02 KQX(3, 3) = KQX(3, 3) + H13*(D33*N*N*(CP*I03*(-1.0D0)+H13*I02) 1 + D22*SP*SP*H13*I02) KQX(3, 4) = KQX(3, 4) + D33*N*N*(CP*(-5.0D-1*H14*I03-5.0D-1*H13 1 * I13)+H13*H14*I02) + D22*SP*SP*H13*H14*I02 KQX(3, 5) = KQX(3, 5) + N*N*(D33*(H13*(+2.0D0*SP*I03+H15*I02) 1 + CP*H15*I03*(-5.0D-1)) + D22*SP*H13*I03) 2 + D22*SP*SP*H13*H15*I02 KQX(3, 6) = KQX(3, 6) + H13*(SP*(D22*(SP*I02*(-1.D0+H16)+N*N*I13) 1 + D33*N*N*I13*2.0D0) + D33*N*N*I02*(-2.0D0+H16)) 2 + D33*CP*N*N*H16*I03*(-5.0D-1) KQX(3, 7) = KQX(3, 7) + H13*(SP*(D22*(SP*(-2.0D0*I12+H17*I02) 1 + N*N*I23) - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23) 2 + D33*N*N*(-4.0D0*I12+H17*I02)) 3 + D33*CP*N*N*H17*I03*(-5.0D-1) KQX(3, 8) = KQX(3, 8) + H13*(SP*(D22*(SP*(-3.0D0*I22+H18*I02) 1 + N*N*I33) - 6.0D0*D12*I11+2.0D0*D33*N**2*I33) 2 + D33*N*N*(-6.0D0*I22+H18*I02)) 3 + D33*CP*N*N*H18*I03*(-5.0D-1) KQX(3, 9) = KQX(3, 9) + N*(D33*(N*H19*(-5.0D-1*CP*I03+H13*I02) 1 + SP*H13*I02) + D22*SP*H13*I02) + D22*SP*SP*H13*H19*I02 KQX(3,10) = KQX(3,10) + N*(D33*(H13*(-I01+SP*I12+N*H1TEN*I02) 1 + CP*N*H1TEN*I03*(-5.0D-1))+D22*SP*H13*I12) 2 + D22*SP*SP*H13*H1TEN*I02 KQX(4, 4) = KQX(4, 4) + H14*(D33*N*N*(CP*I13*(-1.0D0)+H14*I02) 1 + D22*SP*SP*H14*I02) KQX(4, 5) = KQX(4, 5) + N*N*(D33*(H14*(+2.0D0*SP*I03+H15*I02) 1 + CP*H15*I13*(-5.0D-1)) + D22*SP*H14*I03) 2 + D22*SP*SP*H14*H15*I02 C C THE FOLLOWING CODES, THRU 270, WERE MOVED HERE FROM KCONEZ C KQX(4, 6) = KQX(4 ,6) + H14*(SP*(D22*(SP*I02*(-1.D0+H16)+N*N*I13) 1 + D33*N*N*I13*2.0D0) + D33*N*N*I02*(-2.0D0+H16)) 2 + D33*CP*N*N*H16*I13*(-5.0D-1) KQX(4, 7) = KQX(4, 7) + H14*(SP*(D22*(SP*(-2.0D0*I12+H17*I02) 1 + N*N*I23) - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23) 2 + D33*N*N*(-4.0D0*I12+H17*I02)) 3 + D33*CP*N*N*H17*I13*(-5.0D-1) KQX(4, 8) = KQX(4, 8) + H14*(SP*(D22*(SP*(-3.0D0*I22+H18*I02) 1 + N*N*I33) - 6.0D0*D12*I11 + 2.0D0*D33*N**2*I33) 2 + D33*N*N*(-6.0D0*I22+H18*I02)) 3 + D33*CP*N*N*H18*I13*(-5.0D-1) KQX(4, 9) = KQX(4, 9) + N*(D33*(N*H19*(-5.0D-1*CP*I13+H14*I02) 1 + SP*H14*I02)+D22*SP*H14*I02)+D22*SP*SP*H14*H19*I02 KQX(4,10) = KQX(4,10) + N*(D33*(H14*(-I01+SP*I12+N*H1TEN*I02) 1 + CP*N*H1TEN*I13*(-5.0D-1)) + D22*SP*H14*I12) 2 + D22*SP*SP*H14*H1TEN*I02 KQX(5, 5) = KQX(5, 5) + H15*(SP*(N*N*I03*(D22*2.0D0+D33*4.0D0) 1 + D22*SP*H15*I02) + D33*N*N*H15*I02) KQX(5, 6) = KQX(5, 6) + SP*(D22*(H15*(SP*I02*(-1.D0+H16)+N*N*I13) 1 + N*N*H16*I03) + D33*N*N*(+2.0D0*H16*I03+2.0D0*H15*I13)) 2 + D33*N*N*H15*I02*(-2.0D0+H16) KQX(5, 7) = KQX(5, 7) + SP*(H15*(D22*(SP*(-2.0D0*I12+H17*I02) 1 + N*N*I23) - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23) 2 + N*N*H17*I03*(+D22+2.0D0*D33)) 3 + D33*N*N*H15*(-4.0D0*I12+H17*I02) KQX(5, 8) = KQX(5, 8) + SP*(H15*(D22*(SP*(-3.0D0*I22+H18*I02) 1 + N*N*I33) - 6.0D0*D12*I11 + 2.0D0*D33*N**2*I33) 2 + N*N*H18*I03*(+D22+2.0D0*D33)) 3 + D33*N*N*H15*(-6.0D0*I22+H18*I02) KQX(5, 9) = KQX(5, 9) + SP*(N*(D22*(+N*H19*I03+H15*I02) 1 + D33*(+2.0D0*N*H19*I03+H15*I02)) + D22*SP*H15*H19*I02) 2 + D33*N*N*H15*H19*I02 KQX(5,10) = KQX(5,10) + N*(D33*(H15*(-I01+SP*I12+N*H1TEN*I02) 1 + SP*N*H1TEN*I03*2.D0) + D22*SP*(+N*H1TEN*I03+H15*I12)) 2 + D22*SP*SP*H15*H1TEN*I02 KQX(6, 6) = KQX(6, 6) + H16*(SP*(D22*(SP*I02*(-2.0D0+H16) 1 + N*N*I13*2.0D0) + D33*N*N*I13*4.0D0) 2 + D33*N*N*I02*(-4.0D0+H16)) KQX(6, 7) = KQX(6, 7) + SP*(D22*(SP*(H16*(-2.0D0*I12+H17*I02) 1 + H17*I02*(-1.0D0)) + N*N*(+H17*I13+H16*I23)) 2 + D33*N*N*(+2.0D0*H17*I13 + 2.0D0*H16*I23) 3 + D12*H16*I01*(-2.0D0))+D33*N*N*(H16*(-4.0D0*I12 4 + H17*I02) + H17*I02*(-2.0D0)) KQX(6, 8) = KQX(6, 8) + SP*(D22*(SP*(H16*(-3.0D0*I22+H18*I02) 1 + H18*I02*(-1.0D0)) + N*N*(+H18*I13+H16*I33)) 2 + D33*N*N*(+2.0D0*H18*I13 + 2.0D0*H16*I33) 3 + D12*H16*I11*(-6.0D0)) + D33*N*N*(H16*(-6.0D0*I22 4 + H18*I02) + H18*I02*(-2.0D0)) KQX(6, 9) = KQX(6, 9) + SP*(D22*(H19*(SP*I02*(-1.D0+H16)+N*N*I13) 1 + N*H16*I02)+ D33*N*(+2.0D0*N*H19*I13+H16*I02)) 2 + D33*N*N*H19*I02*(-2.0D0+H16) KQX(6,10) = KQX(6,10) + N*(D33*(N*H1TEN*(I02*(-2.0D0+H16) 1 + SP*I13*2.0D0) + H16*(-I01+SP*I12)) 2 + D22*SP*(+N*H1TEN*I13+H16*I12)) 3 + D22*SP*SP*H1TEN*I02*(-1.0D0+H16) KQX(7, 7) = KQX(7, 7) + H17*(SP*(D22*(SP*(I12*(-4.0D0)+H17*I02) 1 + N*N*I23*2.0D0) + D12*I01*(-4.0D0)+D33*N*N*I23*4.0D0) 2 + D33*N*N*(I12*(-8.0D0)+H17*I02)) KQX(7, 8) = KQX(7, 8) + SP*(D22*(SP*(H17*(-3.0D0*I22+H18*I02) 1 + H18*I12*(-2.0D0)) + N*N*(+H18*I23+H17*I33)) 2 + D12*(-6.0D0*H17*I11-2.0D0*H18*I01) 3 + D33*N*N*(+2.0D0*H18*I23 + 2.0D0*H17*I33)) 4 + D33*N*N*(H17*(-6.0D0*I22+H18*I02) + H18*I12*(-4.0D0)) KQX(7, 9) = KQX(7, 9) + SP*(H19*(D22*(SP*(+H17*I02-2.0D0*I12) 1 + N*N*I23) - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23) 2 + N*H17*I02*(+D22+D33))+D33*N*N*H19*(-4.D0*I12+H17*I02) KQX(7,10) = KQX(7,10) + SP*(H1TEN*(D22*(SP*(+H17*I02-2.0D0*I12) 1 + N*N*I23) - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23) 2 + N*H17*I12*(+D22+D33))+D33*N*(N*H1TEN*(-4.0D0*I12 3 + H17*I02) + H17*I01*(-1.0D0)) KQX(8, 8) = KQX(8, 8) + H18*(SP*(D22*(SP*(I22*(-6.0D0)+H18*I02) 1 + N*N*I33*2.0D0) + D12*I11*(-1.2D01)+D33*N*N*I33*4.0D0) 2 + D33*N*N*(I22*(-1.2D01)+H18*I02)) KQX(8, 9) = KQX(8, 9) + SP*(H19*(D22*(SP*(+H18*I02-3.0D0*I22) 1 + N*N*I33) - 6.0D0*D12*I11 + 2.0D0*D33*N**2*I33) 2 + N*H18*I02*(+D22+D33))+D33*N*N*H19*(-6.D0*I22+H18*I02) KQX(8,10) = KQX(8,10) + SP*(H1TEN*(D22*(SP*(+H18*I02-3.0D0*I22) 1 + N*N*I33) - 6.0D0*D12*I11 + 2.0D0*D33*N**2*I33) 2 + N*H18*I12*(+D22+D33)) + D33*N*(N*H1TEN*(-6.0D0*I22 3 + H18*I02) + H18*I01*(-1.0D0)) KQX(9, 9) = KQX(9, 9) + H19*I02*(SP*(N*(D22*2.0D0+D33*2.0D0) 1 + D22*SP*H19) + D33*N*N*H19) KQX(9,10) = KQX(9,10) + N*(D33*(H19*(-I01+SP*I12+N*H1TEN*I02) 1 + SP*H1TEN*I02) + D22*SP*(+H1TEN*I02+H19*I12)) 2 + D22*SP*SP*H19*H1TEN*I02 KQX(10,10)= KQX(10,10)+ H1TEN*(N*(D33*(SP*I12*2.0D0+I01*(-2.0D0) 1 + N*H1TEN*I02) + D22*SP*I12*2.0D0)+D22*SP*SP*H1TEN*I02) C C SET LOWER TRIANGLE EQUAL TO UPPER TRIANGLE OF KQN MATRIX C 270 DO 280 I = 1,10 DO 280 J = I,10 280 KQN(J,I) = KQN(I,J) C C FILL HUQ PER PAGE 15 MS-28 C DO 290 I = 1,100 290 HUQ(I) = 0.0D0 HUQ( 1) = ONE HUQ( 13) = ONE HUQ( 25) = ONE HUQ( 36) = ONE HUQ( 49) = ONE HUQ( 51) = ONE HUQ( 52) = SL HUQ( 63) = ONE HUQ( 64) = SL HUQ( 75) = ONE HUQ( 76) = SL HUQ( 77) = L2 HUQ( 78) = HUQ(77)*SL HUQ( 86) = ONE HUQ( 87) = 2.0D0*SL HUQ( 88) = 3.0D0*HUQ(77) HUQ(100) = SL C IF (TS) 300,320,300 300 HUQ( 41) = CP/RA HUQ( 45) = N /RA HUQ( 91) = CP/RB HUQ( 92) = HUQ(91)*SL HUQ( 95) = N/RB HUQ( 96) = HUQ(95)*SL HUQ( 97) = HUQ(95)*L2 HUQ( 98) = HUQ(96)*L2 HUQ( 99) = ONE C C SUBTRACT FROM ROWS 4 AND 9 OF THE ABOVE MATRIX, THE HYQ MATRIX C DO 310 I = 1,10 HUQ(I+30) = HUQ(I+30) - HYQ(I) 310 HUQ(I+80) = HUQ(I+80) - HYQ(I) 320 CONTINUE C C NO NEED TO CALCULATE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY C ISING =-1 CALL INVERD (10,HUQ(1),10,DUM,0,DETERM,ISING,TEMP60(1)) C CHECK SINGULARITY C GO TO (340,330), ISING 330 CALL MESAGE (30,40,NECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C NOT SINGULAR, CONTINUE ON.. C 340 CONTINUE IF (TS .NE. 0.0D0) GO TO 345 HUQ( 85) = 0.0D0 HUQ(100) = 0.0D0 345 CONTINUE C C T N T C NOW SOLVE FOR (K ) = (E)(H )(K )(H )(E ) I = PIVOT A OR B C IJ I Q J J = A,B C C C T N T T C WE WILL SOLVE FOR (E)(H )(K )((E)(H )) C A Q B C C C T T C FIRST GET EHAT = (E)(H ), AND EHBT = (E)(H ) C A B C C C EHAT WILL BE STORED AT H(1)...H(60) AND EHBT AT H(61)...H(120) C C 0 SP CP 0 0 C 1 0 0 0 0 C 0 CP -SP 0 0 C MATRIX E = 0 0 0 0 SP C 0 0 0 1 0 C 0 0 0 0 CP C INC1 = 0 INC2 = 0 350 DO 360 I = 1,10 IDX = I + INC1 ITEN = 10*I - 9 + INC2 H(IDX ) = HUQ(ITEN+1)*SP + HUQ(ITEN+2)*CP H(IDX+10) = HUQ(ITEN ) H(IDX+20) = HUQ(ITEN+1)*CP - HUQ(ITEN+2)*SP H(IDX+30) = HUQ(ITEN+4)*SP H(IDX+40) = HUQ(ITEN+3) 360 H(IDX+50) = HUQ(ITEN+4)*CP IF (INC1) 380,370,380 370 INC1 = 60 INC2 = 5 GO TO 350 380 CONTINUE C C DETERMINE PIVOT POINT NUMBER C IF (NECPT(2) .EQ. NPVT) GO TO 390 IF (NECPT(3) .EQ. NPVT) GO TO 400 CALL MESAGE (-30,34,NECPT(1)) 390 NPIVOT = 1 GO TO 410 400 NPIVOT = 2 GO TO 410 C C EHAT(1) IS AT H( 1) C EHBT(1) IS AT H(61) C 410 CALL GMMATD (H(60*NPIVOT-59),6,10,0, KQN(1,1),10,10,0, TEMP60(1)) C C IF N = 0 DOUBLE RESULT FOR KIJ C IF (N) 440,420,440 420 DO 430 I = 1,60 430 TEMP60(I) = TEMP60(I)*2.0D0 C 440 DO 470 J = 1,2 CALL GMMATD (TEMP60(1),6,10,0, H(60*J-59),6,10,1, KIJ(1)) CALL SMA1B (KIJ(1),NECPT(J+1),-1,IFKGG,0.0D0) IF (IOPT4) 450,470,450 450 IF (GSUBE) 460,470,460 460 TEMP = GSUBE K4GGSW = 1 CALL SMA1B (KIJ(1),NECPT(J+1),-1,IF4GG,TEMP) 470 CONTINUE C RETURN END ================================================ FILE: mis/kcones.f ================================================ SUBROUTINE KCONES C C SINGLE PRECISION CONEAX ROUTINE, MACHINE INDEPENDENT VERSION C C FOUR KCONE VERSIONS C KCONES FOR MACHINES WITH 60 OR 64 BIT WORD (e.g. CDC, CRAY). C S.P. COMPUTATION IS USED C KCONE2, SIMILAR TO KCONES, EXECPT CERTAIN CRITICAL AREAS ARE C COMPUTED IN D.P. FOR IMPROVED ACCURACY C KCONED FOR MAHCINES WITH LESS THEN 60 BIT WORD, WITHOUT QUAD C PRECISION SOFTWARE SUPPORT (e.g. DEC3100) C C.P. COMPUTAION IS USED C KCONEQ, SIMILAR TO KCONED, EXECPT CERTAIN CRITICAL AREAS ARE C COMPUTED IN QUAD PREC. FOR IMPROVED ACCURACY C C ORIGINALLY, THIS ROUTINE CALLS KCONEX AND KCONEY/Z. THESE THREE C SUPPORTING ROUTINES ARE NOW MOVED INTO KCONES (AND ALSO KCONED) C C ECPT( 1) = ELEMENT ID INTEGER ECT C ECPT( 2) = SIL PT A INTEGER ECT C ECPT( 3) = SIL PT B INTEGER ECT C ECPT( 4) = MATID 1 INTEGER EPT C ECPT( 5) = T (MEMBRANE THICK) REAL EPT C ECPT( 6) = MATID 2 INTEGER EPT C ECPT( 7) = I (MOM.OF INERTIA) REAL EPT C ECPT( 8) = MATID 3 INTEGER EPT C ECPT( 9) = TS (SHEAR THICKNESS) REAL EPT C ECPT(10) = NON-STRUCTURAL-MASS REAL EPT C ECPT(11) = Z1 REAL EPT C ECPT(12) = Z2 REAL EPT C ECPT(13) = PHI 1 REAL EPT C ECPT(14) = PHI 2 REAL EPT C ECPT(15) = PHI 3 REAL EPT C ECPT(16) = PHI 4 REAL EPT C ECPT(17) = PHI 5 REAL EPT C ECPT(18) = PHI 6 REAL EPT C ECPT(19) = PHI 7 REAL EPT C ECPT(20) = PHI 8 REAL EPT C ECPT(21) = PHI 9 REAL EPT C ECPT(22) = PHI 10 REAL EPT C ECPT(23) = PHI 11 REAL EPT C ECPT(24) = PHI 12 REAL EPT C ECPT(25) = PHI 13 REAL EPT C ECPT(26) = PHI 14 REAL EPT C ECPT(27) = COORD. SYS. ID PT.1 INTEGER BGPDT C ECPT(28) = RADIUS PT. 1 REAL BGPDT C ECPT(29) = DISTANCE TO PT.1 REAL BGPDT C ECPT(30) = NULL REAL BGPDT C ECPT(31) = COORD. SYS. ID PT.2 INTEGER BGPDT C ECPT(32) = RADIUS PT 2 REAL BGPDT C ECPT(33) = DISTANCE TO PT. 2 REAL BGPDT C ECPT(34) = NULL REAL BGPDT C ECPT(35) = ELEMENT TEMPERATURE REAL GEOM3 C C INTEGER NERROR(2) ,NECPT(100) ,NA(7) , 1 OLDPT1 ,OLDPT2 REAL I00 ,I01 ,I02 ,I03 ,I04 , 1 I10 ,I11 ,I12 ,I13 ,I14 , 2 I20 ,I21 ,I22 ,I23 ,I24 , 3 I31 ,I32 ,I33 ,I34 , 4 I42 ,I43 ,I44 , 5 I52 ,I53 ,I54 , 6 I62 ,I63 ,I64 REAL KQN(10,10) ,KQX(10,10) ,KQE(10,10) , 1 KQY(10,10) ,FAC(7) ,H(120) ,INTEG ,KIJ , 2 NSPOPI ,N ,N2 ,NSP ,L2 ,NCP , 3 N2E22 ,N2E33 ,N2D33 DOUBLE PRECISION SUM ,QQ1 ,QQ2 ,QQ3 ,QQ4 ,KIJD COMMON /CONDAS/ CONSTS(5) COMMON /MATIN / MATID ,INFLAG,ELTEMP ,STRESS ,SINTH ,COSTH COMMON /MATOUT/ G11 ,G12 ,G13 ,G22 ,G23 ,G33 , 1 DUM(5) ,GSUBE COMMON /SMA1IO/ DUM1(10) ,IFKGG ,DUM2 ,IF4GG COMMON /SMA1CL/ IOPT4 ,K4GGSW,NPVT ,DUMCL(7) ,LINK(10), 1 IDETCK ,DODET ,NOGO COMMON /SMA1ET/ ECPT(100) COMMON /SMA1DP/ SUM ,QQ1 ,QQ2 ,QQ3 ,QQ4 ,KIJD(36), 1 INTEG(28) ,KIJ(36),HUQ(100) ,HYQF(10), 2 HYQ(10),TEMP60(60) ,OPI ,ZA ,E11 , 3 CP ,SPE22 ,ZB ,E12 ,SP ,CPE22 , 4 A ,E22 ,CP2 ,SP2E22 ,B ,E33 , 5 SP2 ,CP2E22,SIGN ,T ,D11 ,TEMP1 , 6 RA ,TS ,D12 ,TEMP2 ,RB ,N , 7 D22 ,TEMP3 ,RASQ ,N2 ,D33 ,TEMP4 , 8 RBSQ ,SL ,NSP ,TEMP5 ,TN ,L2 , 9 NCP ,TEMP6 ,PIOVB ,DL ,SPE12 ,TEMP7 , O TD ,TEMP ,CPE12 ,OQ ,N2E22 ,TWOD33 , 1 TNSP ,N2E33 ,SP2E33,SPE33 EQUIVALENCE (CONSTS(1),PI ), (ECPT(4),MATID1), 1 (ECPT(6),MATID2), (ECPT(8),MATID3), 2 (ECPT(1),NECPT(1)) EQUIVALENCE (G,G12), (KQN(1,1),KQE(1,1),KQX(1,1),KQY(1,1)) EQUIVALENCE (HYQ(1),H11), (HYQ(2),H12), (HYQ(3),H13), 1 (HYQ(4),H14), (HYQ(5),H15), (HYQ(6),H16), 2 (HYQ(7),H17), (HYQ(8),H18), (HYQ(9),H19), 3 (HYQ(10),H1TEN) EQUIVALENCE (I00,INTEG( 1)), (I20,INTEG(11)), 1 (I01,INTEG( 2)), (I21,INTEG(12)), 2 (I02,INTEG( 3)), (I22,INTEG(13)), 3 (I03,INTEG( 4)), (I23,INTEG(14)), 4 (I04,INTEG( 5)), (I24,INTEG(15)), 5 (I10,INTEG( 6)), (I31,INTEG(16)), 6 (I11,INTEG( 7)), (I32,INTEG(17)), 7 (I12,INTEG( 8)), (I33,INTEG(18)), 8 (I13,INTEG( 9)), (I34,INTEG(19)), 9 (I14,INTEG(10)), (I52,INTEG(23)), O (I42,INTEG(20)), (I53,INTEG(24)), 1 (I43,INTEG(21)), (I54,INTEG(25)), 2 (I44,INTEG(22)), (I62,INTEG(26)), 3 (I63,INTEG(27)), (I64,INTEG(28)) DATA OLDPT1, OLDPT2 / 0, 0 / DATA FAC / 1.0, 1.0, 2.0, 6.0, 24.0, 120.0, 720.0 / DATA NA / 1,1,1,2,3,3,3 / DATA ONE / 1.0 / C C DOES PIVOT POINT EQUAL EITHER OF THE LAST TWO SILS C IF (OLDPT1 .EQ. NECPT(2)) IF (OLDPT2-NECPT(3)) 10,110,10 IF (OLDPT2 .EQ. NECPT(2)) IF (OLDPT1-NECPT(3)) 10,110,10 10 CONTINUE C C NO MATCH THUS DO ENTIRE COMPUTATION C SINTH = 0.0 COSTH = 1.0 NINT = NECPT(1) - (NECPT(1)/1000)*1000 - 1 N = NINT RA = ECPT(28) ZA = ECPT(29) RB = ECPT(32) ZB = ECPT(33) TEMP1 = RB - RA TEMP2 = ZB - ZA SL = SQRT(TEMP1**2 + TEMP2**2) L2 = SL*SL IF (SL) 30,20,30 20 NERROR(1) = NECPT(1)/1000 NERROR(2) = N + .3 CALL MESAGE (30,39,NERROR(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C 30 SP = TEMP1/SL CP = TEMP2/SL A = RA B = SP IF (ABS(B) .GT. 0.001) GO TO 60 C C GO TO 40 FOR B = 0. C C 1-N C PI RA M+1 C FOR B = 0, I = --------- SL (FOR ALL M,N .GE. 0) C M,N M + 1 C C 40 CONTINUE C IDX = 0 DO 50 I = 1,7 NBEGIN = NA(I) C DO 50 J = NBEGIN,5 C C M = I - 1 C N = J - 1 C MPLUS1 THUS EQUALS I C IDX = IDX + 1 INTEG(IDX) = (PI*SL**I)/(FLOAT(I)*RA**(J-2)) 50 CONTINUE GO TO 100 C C ABOVE COMPLETES ALL INTEGRALS FOR B = 0. C 60 CONTINUE C C FOR B .NE. ZERO C C IF AN OVERFLOW RESULTS BELOW POSSIBLY B IS NOT ZERO, BUT SMALL C C OK BELOW IS FOR B NOT EQUAL TO ZERO C C FIRST M = 0 CASE C C 2-N 2-N C PI (RB - RA ) C I = -------------------- (N NOT EQUAL TO 2) C 0,N (2-N) B C C C FOR N=2 I = PI * (LOG RB - LOG RA) / B C 0,2 E E C RASQ = RA*RA RBSQ = RB*RB PIOVB = PI/B C INTEG(1) = 0.5*PIOVB*(RBSQ - RASQ) INTEG(2) = PIOVB*(RB - RA) INTEG(3) = PIOVB*LOG(RB/RA) INTEG(4) =-PIOVB*(ONE/RB - ONE/RA) INTEG(5) =-0.5*PIOVB*(ONE/RBSQ - ONE/RASQ) C IDX = 5 DO 90 I = 1,6 MPLUS1 = I + 1 NBEGIN = NA(MPLUS1) DO 90 J = NBEGIN,5 C C M = I C N = J - 1 C C WE ARE GETTING INTEGRAL(M,N) C M = POWER OF S C N = POWER OF R C C EVALUATING AT R = RB, THEN AT R = RA C C K MNK2 C (M)FAC. M (-A) (R) C I = (PI) (-------) ((SUM -------------------------) + (TERM-X)) C MN (M+1) K=0 (M-K)FAC. (K)FAC. (MNK2) C B (FOR K.NE. MN2 (FOR K=MN2) C C WHERE MNK2 = M-N-K+2 C MN2 = M-N +2 C (X)FAC. = X! C MN2 C (-A) LOG(R) C TERM-X = -------------------- C (M-N+2)FAC. (N-2)FAC. C C NOTE IN DATA STATEMENT THAT 0 FACTORIAL = FAC(1) C 1 FACTORIAL = FAC(2) C 2 FACTORIAL = FAC(3) ETC. C SUM = 0.0 SIGN =-1.0 DO 80 KK = 1,MPLUS1 SIGN =-SIGN K = KK - 1 MN2 = I - J + 3 QQ1 = DBLE(A ) QQ2 = DBLE(RB) QQ3 = DBLE(RA) IF (K .EQ. MN2) GO TO 70 MNK2 = MN2 - K MK1 = MPLUS1 - K TEMP = MNK2 C C QQ4 = A**K*(RB**MNK2-RA**MNK2)/(FAC(MK1)*FAC(KK)*TEMP) C QQ1 = QQ1**K QQ2 = QQ2**MNK2 QQ3 = QQ3**MNK2 QQ2 = QQ2 - QQ3 QQ3 = DBLE(FAC(MK1)*FAC(KK)*TEMP) GO TO 75 C C QQ4 = A**MN2*DLOG(RB/RA)/(FAC(MN2+1)*FAC(J-2)) C 70 QQ1 = QQ1**MN2 QQ3 = QQ2/QQ3 QQ2 = DLOG(QQ3) QQ3 = DBLE(FAC(MN2+1)*FAC(J-2)) 75 QQ4 = QQ1*QQ2/QQ3 80 SUM = SUM + DBLE(SIGN)*QQ4 C QQ1 = DBLE(PI*FAC(MPLUS1)) QQ2 = DBLE(B) QQ3 = QQ2**MPLUS1 QQ4 = SUM*QQ1/QQ3 IDX = IDX + 1 INTEG(IDX) = SNGL(QQ4) 90 CONTINUE C 100 OLDPT1 = NECPT(2) OLDPT2 = NECPT(3) GO TO 140 C C WE HAVE A MATCH ON OLD SIL NUMBER 1 C 110 IF (NPVT-OLDPT1) 130,120,130 120 NPIVOT = 1 GO TO 410 C C WE HAVE A MATCH ON OLD SIL NUMBER 2 C 130 NPIVOT = 2 GO TO 410 C C ZERO OUT THE KQN MATRIX C 140 DO 150 I = 1,10 DO 150 J = 1,10 150 KQN(I,J) = 0.0 C C IF MEMBRANE THICKNESS IS NOT ZERO FORM THE KQE MATRIX C T = ECPT(5) IF (T) 160,200,160 160 ASSIGN 190 TO IRETRN MATID = MATID1 170 INFLAG = 2 180 ELTEMP = ECPT(35) CALL MAT (ECPT(1)) GO TO IRETRN, (190,230,242) 190 E11 = G11 E12 = G12 E22 = G22 E33 = G33 TN = T *N CP2 = CP*CP SP2 = SP*SP N2 = N *N CP2E22= CP2*E22 SP2E22= SP2*E22 CPE22 = CP *E22 SPE22 = SP *E22 CPE12 = CP *E12 SPE12 = SP *E12 N2E33 = N2 *E33 N2E22 = N2 *E22 SP2E33= SP2*E33 SPE33 = SP *E33 C C /// FURTHER REDUCTION IS NEEDED HERE /// C KQE(1,1) = T*(N2E22 + SP2E33)*I02 KQE(1,2) = T*(N2E22*I12 - SPE33*I01 + SP2E33*I12) TEMP = E22 + E33 TNSP = TN*SP KQE(1,3) = TNSP*TEMP*I02 KQE(1,4) = TN*(E12*I01 + SP*TEMP*I12) TEMP = TN*CP*E22 KQE(1,5) = TEMP*I02 KQE(1,6) = TEMP*I12 KQE(1,7) = TEMP*I22 KQE(1,8) = TEMP*I32 TEMP4 = 2.*SP*I11 KQE(2,2) = T *(N2E22*I22 + E33*(I00-TEMP4 + SP2*I22)) KQE(2,3) = TN*(SPE22*I12 - E33*I01 + SPE33*I12) KQE(2,4) = TN*(E12*I11 + SPE22*I22 - E33*I11 + SPE33*I22) KQE(2,5) = KQE(1,6) KQE(2,6) = KQE(1,7) KQE(2,7) = KQE(1,8) KQE(2,8) = TN*CPE22*I42 KQE(3,3) = T*(SP2E22*I02 + N2E33 *I02) KQE(3,4) = T*(SPE12 *I01 + SP2E22*I12 + N2E33*I12) TEMP = T*CP*SPE22 KQE(3,5) = TEMP*I02 KQE(3,6) = TEMP*I12 KQE(3,7) = TEMP*I22 KQE(3,8) = TEMP*I32 KQE(4,4) = T*(E11*I00 + TEMP4*E12 + SP2E22*I22 + N2E33*I22) TEMP = SP*CPE22 KQE(4,5) = T*(CPE12*I01 + TEMP*I12) KQE(4,6) = T*(CPE12*I11 + TEMP*I22) KQE(4,7) = T*(CPE12*I21 + TEMP*I32) KQE(4,8) = T*(CPE12*I31 + TEMP*I42) TEMP = T*CP2E22 KQE(5,5) = TEMP*I02 KQE(5,6) = TEMP*I12 KQE(5,7) = TEMP*I22 KQE(5,8) = TEMP*I32 KQE(6,6) = KQE(5,7) KQE(6,7) = KQE(5,8) KQE(6,8) = TEMP*I42 KQE(7,7) = KQE(6,8) KQE(7,8) = TEMP*I52 KQE(8,8) = TEMP*I62 C 200 IF (ECPT(7) .EQ. 0.0) GO TO 270 C C NOW GET G MATERIAL MATRIX ID = MATID2 C MATID = MATID2 ASSIGN 230 TO IRETRN GO TO 170 C C NOW FORM D = I DOT G C 230 D11 = ECPT(7)*G11 D12 = ECPT(7)*G12 D22 = ECPT(7)*G22 D33 = ECPT(7)*G33 C C IF SHEAR THICKNESS IS NOT ZERO FORM THE HYQ AND KQY MATRICES C TS = ECPT(9) IF (TS) 240,265,240 240 CONTINUE C C GET G FOR MATID3 C MATID = MATID3 INFLAG = 1 ASSIGN 242 TO IRETRN GO TO 180 C 242 CONTINUE IF (G .EQ. 0.0) GO TO 261 C C FORMING 1.0/Q DIRECTLY C OPI = ONE/PI C C /// MAKE SURE ALL BASIC PRODUCTS ARE AT TOP BEFORE ANY SKIPS C N2D33 = N2 *D33 SP2D22 = SP2*D22 OQ = SL*TS*G*(RA+RB)*0.5 + I02*(N2D33+SP2D22)*OPI OQ = ONE/OQ NSP = N*SP NCP = N*CP NSPOPI = NSP*OPI TWOD33 = 2.0*D33 TEMP1 = D12*(ONE/RB - ONE/RA) TEMP2 = NSPOPI*(D22 + D33) TEMP3 = N*NSPOPI*(TWOD33 + D22) TEMP4 = OQ*0.5*NCP*N*D33*OPI TEMP5 = OPI*(N2*TWOD33 + SP2*D22) TEMP6 = D12*N2*L2/RB TEMP7 = NSPOPI*CP*0.5 HYQ(1) = OQ*(TEMP1*NCP - TEMP7*I03*(D33+2.0*D22)) HYQ(2) = OQ*(NCP*SL/RB*D12 - TEMP7*I13*(3.0*D33+D22) 1 + 1.5*NCP*OPI*I02*D33) HYQ(3) = TEMP4*I03 HYQ(4) = TEMP4*I13 HYQ(5) = OQ*(TEMP1*N2 - TEMP3*I03) HYQ(6) = OQ*(D12*N2*SL/RB - TEMP3*I13 + TEMP5*I02) HYQ(7) = OQ*(2.0*D11*(RA-RB) + TEMP6+2.0*I12*TEMP5 - TEMP3*I23) HYQ(8) = OQ*(-D11*6.*SL*RB + TEMP6*SL+3.*I22*TEMP5 - TEMP3*I33) HYQ(9) =-OQ*TEMP2*I02 HYQ(10)= OQ*(N*SL*(D12 + D33) - TEMP2*I12) C TEMP = TS*G*I00 DO 250 I = 1,10 250 HYQF(I) = HYQ(I)*TEMP DO 260 I = 1,10 DO 260 J = I,10 260 KQY(I,J) = KQY(I,J) + HYQ(I)*HYQF(J) C C ADD IN TERMS PER EQUATION-90- PAGE -27- MS-28 C TEMP = TS*G KQY( 9,10) = KQY( 9,10) + TEMP*I10 KQY(10,10) = KQY(10,10) + TEMP*I20 KQY( 9, 9) = KQY( 9, 9) + TEMP*I00 C C END OF KQY COMPUTATION C GO TO 265 261 TS = 0.0 265 CONTINUE C C THE FOLLOWING CODES WERE MOVED HERE FROM KCONEX C C KQX MATRIX FOR SHEAR THICKNESS CONSIDERATION C C (THE FOLLOWING CODE WAS MACHINE GENERATED AND WILL NOT BE SIMPLI- C FIED FURTHER UNTIL FORMULATION VERIFICATION IS COMPLETED) C KQX(1, 1) = KQX(1, 1) + CP*CP*I04*(+D22*N**2+2.25*D33*SP**2) KQX(1, 2) = KQX(1, 2) + CP*CP*(D33*SP*(+2.25*SP*I14-2.25*I03) 1 + D22*N*N*I14) KQX(1, 3) = KQX(1, 3) + D33*CP*CP*SP*N*I04*(-0.75) KQX(1, 4) = KQX(1, 4) + D33*CP*CP*SP*N*I14*(-0.75) KQX(1, 5) = KQX(1, 5) + CP*N*I04*(+D22*N**2+3.0*D33*SP**2) KQX(1, 6) = KQX(1, 6) + CP*N*(SP*(D33*(+3.0*SP*I14-3.0*I03) 1 - D22*I03) + D22*N*N*I14) KQX(1, 7) = KQX(1, 7) + CP*N*(SP*(D33*(+3.0*SP*I24-6.0*I13) 1 + D22*I13*(-2.0)) - 2.0*D12*I02 + D22*N**2*I24) KQX(1, 8) = KQX(1, 8) + CP*N*(SP*(D33*(+3.0*SP*I34-9.0*I23) 1 + D22*I23*(-3.0)) - 6.0*D12*I12 + D22*N**2*I34) KQX(1, 9) = KQX(1, 9) + CP*I03*(+D22*N**2+1.5*D33*SP**2) KQX(1,10) = KQX(1,10) + CP*(D33*SP*(-1.5*I02+1.5*SP*I13) 1 + D22*N*N*I13) KQX(2, 2) = KQX(2, 2) + CP*CP*(D33*(SP*(I13*(-4.5) 1 + SP*I24*2.25) + I02*2.25) + D22*N*N*I24) KQX(2, 3) = KQX(2, 3) + D33*CP*CP*N*(-0.75*SP*I14+0.75*I03) KQX(2, 4) = KQX(2, 4) + D33*CP*CP*N*(-0.75*SP*I24+0.75*I13) KQX(2, 5) = KQX(2, 5) + CP*N*(D33*SP*(+3.0*SP*I14-3.0*I03) 1 + D22*N*N*I14) KQX(2, 6) = KQX(2, 6) + CP*N*(D33*(SP*(I13*(-6.0) 1 + SP*I24*3.0) + I02*3.0) + D22*(-SP*I13+N**2*I24)) KQX(2, 7) = KQX(2, 7) + CP*N*(D33*(SP*(I23*(-9.0) 1 + SP*I34*3.0) + I12*6.0) 2 + D22*(-2.0*SP*I23 + N**2*I34) + D12*I12*(-2.0)) KQX(2, 8) = KQX(2, 8) + CP*N*(D33*(SP*(I33*(-12.0) 1 + SP*I44*3.0) + I22*9.0) 2 + D22*(-3.0*SP*I33+N**2*I44) + D12*I22*(-6.0)) KQX(2, 9) = KQX(2, 9) + CP*(D33*SP*(+1.5*SP*I13-1.5*I02) 1 + D22*N*N*I13) KQX(2,10) = KQX(2,10) + CP*(D33*(SP*(I12*(-3.0)+SP*I23*1.5) 1 + I01*1.5)+ D22*N*N*I23) KQX(3, 3) = KQX(3, 3) + D33*CP*CP*N*N*I04*0.25 KQX(3, 4) = KQX(3, 4) + D33*CP*CP*N*N*I14*0.25 KQX(3, 5) = KQX(3, 5) + D33*CP*SP*N*N*I04*(-1.0) KQX(3, 6) = KQX(3, 6) + D33*CP*N*N*(-SP*I14+I03) KQX(3, 7) = KQX(3, 7) + D33*CP*N*N*(-SP*I24+2.0*I13) KQX(3, 8) = KQX(3, 8) + D33*CP*N*N*(-SP*I34+3.0*I23) KQX(3, 9) = KQX(3, 9) + D33*CP*SP*N*I03*(-0.5) KQX(3,10) = KQX(3,10) + D33*CP*N*(+0.5*I02-0.5*SP*I13) KQX(4, 4) = KQX(4, 4) + D33*CP*CP*N*N*I24*0.25 KQX(4, 5) = KQX(4, 5) + D33*CP*SP*N*N*I14*(-1.0) KQX(4, 6) = KQX(4, 6) + D33*CP*N*N*(-SP*I24+I13) KQX(4, 7) = KQX(4, 7) + D33*CP*N*N*(-SP*I34+2.0*I23) KQX(4, 8) = KQX(4, 8) + D33*CP*N*N*(-SP*I44+3.0*I33) KQX(4, 9) = KQX(4, 9) + D33*CP*SP*N*I13*(-0.5) KQX(4,10) = KQX(4,10) + D33*CP*N*(+0.5*I12-0.5*SP*I23) KQX(5, 5) = KQX(5, 5) + N*N*I04*(+D22*N**2+4.0*D33*SP**2) KQX(5, 6) = KQX(5, 6) + N*N*(SP*(D33*(+4.0*SP*I14-4.0*I03) 1 + D22*I03*(-1.0)) + D22*N*N*I14) KQX(5, 7) = KQX(5, 7) + N*N*(SP*(D33*(+4.0*SP*I24-8.0*I13) 1 + D22*I13*(-2.0)) - 2.0*D12*I02 + D22*N**2*I24) KQX(5, 8) = KQX(5, 8) + N*N*(SP*(D33*(+4.0*SP*I34-12.0*I23) 1 + D22*I23*(-3.0)) - 6.0*D12*I12 + D22*N**2*I34) KQX(5, 9) = KQX(5, 9) + N*I03*(+D22*N**2+2.0*D33*SP**2) KQX(5,10) = KQX(5,10) + N*(D33*SP*(-2.0*I02+2.0*SP*I13) 1 + D22*N*N*I13) KQX(6, 6) = KQX(6, 6) + N*N*(SP*(I13*(D22*(-2.0)+D33*(-8.0)) 1 + D33*SP*I24*4.0) + D22*N**2*I24 + 4.0*D33*I02) 2 + D22*SP*SP*I02 KQX(6, 7) = KQX(6, 7) + N*N*(SP*(I23*(D22*(-3.0)+D33*(-12.0)) 1 + D33*SP*I34*4.0) + I12*(-2.0*D12+8.0*D33) 2 + D22*N*N*I34) + SP*(+2.0*D12*I01+2.0*D22*SP*I12) KQX(6, 8) = KQX(6, 8) + N*N*(SP*(I33*(D22*(-4.0)+D33*(-16.0)) 1 + D33*SP*I44*4.0) + I22*(-6.0*D12+12.0*D33) 2 + D22*N*N*I44)+SP*(+6.0*D12*I11+3.0*D22*SP*I22) KQX(6, 9) = KQX(6, 9) + N*(SP*(D33*(+2.0*SP*I13-2.0*I02) 1 + D22*I02*(-1.0)) + D22*N*N*I13) KQX(6,10) = KQX(6,10) + N*(D33*(SP*(I12*(-4.0) + SP*I23*2.0) 1 + I01*2.0)+ D22*(+N**2*I23-SP*I12)) KQX(7, 7) = KQX(7, 7) + N*N*(SP*(I33*(D22*(-4.0)+D33*(-16.0)) 1 + D33*SP*I44*4.0) + I22*(D12*(-4.0) +D33*16.0) 2 + D22*N*N*I44) + SP*(D12*I11*8.0+D22*SP*I22*4.0) 3 + D11*I00*4.0 KQX(7, 8) = KQX(7, 8) + N*N*(SP*(I43*(D22*(-5.0)+D33*(-20.0)) 1 + D33*SP*I54*4.0) + I32*(D12*(-8.0)+D33*24.0) 2 + D22*N*N*I54) + SP*(D12*I21*18.0+D22*SP*I32*6.0) 3 + D11*I10*12.0 KQX(7, 9) = KQX(7, 9) + N*(SP*(D33*(+2.0*SP*I23-4.0*I12) 1 + D22*I12*(-2.0)) - 2.0*D12*I01 + D22*N**2*I23) KQX(7,10) = KQX(7,10) + N*(D33*(SP*(I22*(-6.0)+SP*I33*2.0) 1 + I11*4.0)+ D22*(+N**2*I33-2.0*SP*I22) 2 + D12*I11*(-2.0)) KQX(8, 8) = KQX(8, 8) + N*N*(SP*(I53*(D22*(-6.0)+D33*(-24.0)) 1 + D33*SP*I64*4.0) + I42*(D12*(-12.0) + D33*36.0) 2 + D22*N*N*I64) + SP*(D12*I31*36.0+D22*SP*I42*9.0) 3 + D11*I20*36.0 KQX(8, 9) = KQX(8, 9) + N*(SP*(D33*(+2.0*SP*I33-6.0*I22) 1 + D22*I22*(-3.0)) - 6.0*D12*I11 + D22*N**2*I33) KQX(8,10) = KQX(8,10) + N*(D33*(SP*(I32*(-8.0)+SP*I43*2.0) 1 + I21*6.0)+ D22*(+N**2*I43-3.0*SP*I32) 2 + D12*I21*(-6.0)) KQX(9, 9) = KQX(9, 9) + I02*(+D22*N**2+D33*SP**2) KQX(9,10) = KQX(9,10) + D33*SP*(-I01+SP*I12) + D22*N*N*I12 KQX(10,10)= KQX(10,10)+ D33*(SP*(I11*(-2.0)+ SP*I22)+I00) 1 + D22*N*N*I22 IF (TS .EQ. 0.0) GO TO 270 C C THE FOLLOWING CODES WERE MOVED HERE FROM KCONEY C KQX(1, 1) = KQX(1, 1) + H11*(SP*(CP*N*I03*(D22*2.0+D33*3.0) 1 + D22*SP*H11*I02) + D33*N*N*H11*I02) KQX(1, 2) = KQX(1, 2) + N*(CP*(SP*(D22*(+H12*I03+H11*I13) 1 + D33*(+1.5*H12*I03+1.5*H11*I13)) 2 + D33*H11*I02*(-1.5)) + D33*N*H11*H12*I02) 3 + D22*SP*SP*H11*H12*I02 KQX(1, 3) = KQX(1, 3) + N*(D33*(CP*I03*(+1.5*SP*H13 1 - 0.5*N*H11) + N*H11*H13*I02) + D22*CP*SP*H13*I03) 2 + D22*SP*SP*H11*H13*I02 KQX(1, 4) = KQX(1, 4) + N*(D33*(CP*(+1.5*SP*H14*I03 1 - 0.5*N*H11*I13)+N*H11*H14*I02) + D22*CP*SP*H14*I03) 2 + D22*SP*SP*H11*H14*I02 KQX(1, 5) = KQX(1, 5) + SP*(N*I03*(D22*(+CP*H15+N*H11) 1 + D33*(+1.5*CP*H15+2.0*N*H11)) 2 + D22*SP*H11*H15*I02) + D33*N*N*H11*H15*I02 KQX(1, 6) = KQX(1, 6) + SP*(D22*(H11*(SP*I02*(-1.0+H16) 1 + N*N*I13) + CP*N*H16*I03)+D33*N*(+1.5*CP*H16*I03 2 + 2.0*N*H11*I13)) + D33*N*N*H11*I02*(-2.0+H16) KQX(1, 7) = KQX(1, 7) + SP*(H11*(D22*(SP*(-2.0*I12+H17*I02) 1 + N*N*I23) - 2.0*D12*I01 + 2.0*D33*N**2*I23) 2 + CP*N*H17*I03*(+D22+1.5*D33)) 3 + D33*N*N*H11*(-4.0*I12+H17*I02) KQX(1, 8) = KQX(1, 8) + SP*(H11*(D22*(SP*(-3.0*I22+H18*I02) 1 + N*N*I33) - 6.0*D12*I11 + 2.0*D33*N**2*I33) 2 + CP*N*H18*I03*(+D22+1.5*D33)) 3 + D33*N*N*H11*(-6.0*I22+H18*I02) KQX(1, 9) = KQX(1, 9) + SP*(N*(D22*(+CP*H19*I03+H11*I02) 1 + D33*(+1.5*CP*H19*I03 + H11*I02)) 2 + D22*SP*H11*H19*I02) + D33*N*N*H11*H19*I02 KQX(1,10) = KQX(1,10) + N*(D33*(H11*(-I01+SP*I12+N*H1TEN*I02) 1 + CP*SP*H1TEN*I03*1.5) + D22*SP*(+CP*H1TEN*I03 2 + H11*I12)) + D22*SP*SP*H11*H1TEN*I02 KQX(2, 2) = KQX(2, 2) + H12*(N*(CP*(D33*(SP*I13*3.+I02*(-3.)) 1 + D22*SP*I13*2.) + D33*N*H12*I02) + D22*SP*SP*H12*I02) KQX(2, 3) = KQX(2, 3) + N*(D33*(CP*(H13*(+1.5*SP*I13-1.5*I02) 1 + N*H12*I03*(-0.5)) + N*H12*H13*I02) 2 + D22*CP*SP*H13*I13) + D22*SP*SP*H12*H13*I02 KQX(2, 4) = KQX(2, 4) + N*(D33*(CP*(H14*(+1.5*SP*I13-1.5*I02) 1 + N*H12*I13*(-0.5)) + N*H12*H14*I02) 2 + D22*CP*SP*H14*I13) + D22*SP*SP*H12*H14*I02 KQX(2, 5) = KQX(2, 5) + N*(D33*(H15*(CP*(+1.5*SP*I13-1.5*I02) 1 + N*H12*I02)+ SP*N*H12*I03*2.0) + D22*SP*(+CP*H15*I13 2 + N*H12*I03)) + D22*SP*SP*H12*H15*I02 KQX(2, 6) = KQX(2, 6) + N*(D33*(N*H12*(I02*(-2.0+H16) 1 + SP*I13*2.0) + CP*H16*(+1.5*SP*I13-1.5*I02)) 2 + D22*SP*I13*(+CP*H16+N*H12)) 2 + D22*SP*SP*H12*I02*(-1.0+H16) KQX(2, 7) = KQX(2, 7) + SP*(H12*(D22*(SP*(-2.0*I12+H17*I02) 1 + N*N*I23) - 2.0*D12*I01 + 2.0*D33*N**2*I23) 2 + CP*N*H17*I13*(+D22+1.5*D33)) 3 + D33*N*(N*H12*(-4.0*I12 + H17*I02) 4 + CP*H17*I02*(-1.5)) KQX(2, 8) = KQX(2, 8) + SP*(H12*(D22*(SP*(-3.0*I22+H18*I02) 1 + N*N*I33) - 6.0*D12*I11 + 2.0*D33*N**2*I33) 2 + CP*N*H18*I13*(+D22+1.5*D33)) 3 + D33*N*(N*H12*(-6.0*I22 + H18*I02) 4 + CP*H18*I02*(-1.5)) KQX(2, 9) = KQX(2, 9) + N*(D33*(H19*(CP*(+1.5*SP*I13-1.5*I02) 1 + N*H12*I02)+ SP*H12*I02)+D22*SP*(+CP*H19*I13+H12*I02)) 2 + D22*SP*SP*H12*H19*I02 KQX(2,10) = KQX(2,10) + N*(D33*(H12*(-I01+SP*I12+N*H1TEN*I02) 1 + CP*H1TEN*(+1.5*SP*I13 - 1.5*I02)) 2 + D22*SP*(+CP*H1TEN*I13 + H12*I12)) 3 + D22*SP*SP*H12*H1TEN*I02 KQX(3, 3) = KQX(3, 3) + H13*(D33*N*N*(CP*I03*(-1.0)+H13*I02) 1 + D22*SP*SP*H13*I02) KQX(3, 4) = KQX(3, 4) + D33*N*N*(CP*(-0.5*H14*I03-0.5*H13 1 * I13)+H13*H14*I02) + D22*SP*SP*H13*H14*I02 KQX(3, 5) = KQX(3, 5) + N*N*(D33*(H13*(+2.0*SP*I03+H15*I02) 1 + CP*H15*I03*(-0.5)) + D22*SP*H13*I03) 2 + D22*SP*SP*H13*H15*I02 KQX(3, 6) = KQX(3, 6) + H13*(SP*(D22*(SP*I02*(-1.+H16)+N*N*I13) 1 + D33*N*N*I13*2.0) + D33*N*N*I02*(-2.0+H16)) 2 + D33*CP*N*N*H16*I03*(-0.5) KQX(3, 7) = KQX(3, 7) + H13*(SP*(D22*(SP*(-2.0*I12+H17*I02) 1 + N*N*I23) - 2.0*D12*I01 + 2.0*D33*N**2*I23) 2 + D33*N*N*(-4.0*I12 + H17*I02)) 3 + D33*CP*N*N*H17*I03*(-0.5) KQX(3, 8) = KQX(3, 8) + H13*(SP*(D22*(SP*(-3.0*I22+H18*I02) 1 + N*N*I33) - 6.0*D12*I11+2.0*D33*N**2*I33) 2 + D33*N*N*(-6.0*I22 + H18*I02)) 3 + D33*CP*N*N*H18*I03*(-0.5) KQX(3, 9) = KQX(3, 9) + N*(D33*(N*H19*(-0.5*CP*I03+H13*I02) 1 + SP*H13*I02) + D22*SP*H13*I02) + D22*SP*SP*H13*H19*I02 KQX(3,10) = KQX(3,10) + N*(D33*(H13*(-I01+SP*I12+N*H1TEN*I02) 1 + CP*N*H1TEN*I03*(-0.5))+D22*SP*H13*I12) 2 + D22*SP*SP*H13*H1TEN*I02 KQX(4, 4) = KQX(4, 4) + H14*(D33*N*N*(CP*I13*(-1.0)+H14*I02) 1 + D22*SP*SP*H14*I02) KQX(4, 5) = KQX(4, 5) + N*N*(D33*(H14*(+2.0*SP*I03+H15*I02) 1 + CP*H15*I13*(-0.5)) + D22*SP*H14*I03) 2 + D22*SP*SP*H14*H15*I02 C C THE FOLLOWING CODES, THRU 270, WERE MOVED HERE FROM KCONEZ C KQX(4, 6) = KQX(4 ,6) + H14*(SP*(D22*(SP*I02*(-1.+H16)+N*N*I13) 1 + D33*N*N*I13*2.0) + D33*N*N*I02*(-2.0+H16)) 2 + D33*CP*N*N*H16*I13*(-0.5) KQX(4, 7) = KQX(4, 7) + H14*(SP*(D22*(SP*(-2.0*I12+H17*I02) 1 + N*N*I23) - 2.0*D12*I01 + 2.0*D33*N**2*I23) 2 + D33*N*N*(-4.0*I12+H17*I02)) 3 + D33*CP*N*N*H17*I13*(-0.5) KQX(4, 8) = KQX(4, 8) + H14*(SP*(D22*(SP*(-3.0*I22+H18*I02) 1 + N*N*I33) - 6.0*D12*I11 + 2.0*D33*N**2*I33) 2 + D33*N*N*(-6.0*I22+H18*I02)) 3 + D33*CP*N*N*H18*I13*(-0.5) KQX(4, 9) = KQX(4, 9) + N*(D33*(N*H19*(-0.5*CP*I13+H14*I02) 1 + SP*H14*I02)+D22*SP*H14*I02)+D22*SP*SP*H14*H19*I02 KQX(4,10) = KQX(4,10) + N*(D33*(H14*(-I01+SP*I12+N*H1TEN*I02) 1 + CP*N*H1TEN*I13*(-0.5)) + D22*SP*H14*I12) 2 + D22*SP*SP*H14*H1TEN*I02 KQX(5, 5) = KQX(5, 5) + H15*(SP*(N*N*I03*(D22*2.0+D33*4.0) 1 + D22*SP*H15*I02) + D33*N*N*H15*I02) KQX(5, 6) = KQX(5, 6) + SP*(D22*(H15*(SP*I02*(-1.+H16)+N*N*I13) 1 + N*N*H16*I03) + D33*N*N*(+2.0*H16*I03+2.0*H15*I13)) 2 + D33*N*N*H15*I02*(-2.0+H16) KQX(5, 7) = KQX(5, 7) + SP*(H15*(D22*(SP*(-2.0*I12+H17*I02) 1 + N*N*I23) - 2.0*D12*I01 + 2.0*D33*N**2*I23) 2 + N*N*H17*I03*(+D22+2.0*D33)) 3 + D33*N*N*H15*(-4.0*I12+H17*I02) KQX(5, 8) = KQX(5, 8) + SP*(H15*(D22*(SP*(-3.0*I22+H18*I02) 1 + N*N*I33) - 6.0*D12*I11 + 2.0*D33*N**2*I33) 2 + N*N*H18*I03*(+D22+2.0*D33)) 3 + D33*N*N*H15*(-6.0*I22+H18*I02) KQX(5, 9) = KQX(5, 9) + SP*(N*(D22*(+N*H19*I03+H15*I02) 1 + D33*(+2.0*N*H19*I03+H15*I02)) + D22*SP*H15*H19*I02) 2 + D33*N*N*H15*H19*I02 KQX(5,10) = KQX(5,10) + N*(D33*(H15*(-I01+SP*I12+N*H1TEN*I02) 1 + SP*N*H1TEN*I03*2.) + D22*SP*(+N*H1TEN*I03+H15*I12)) 2 + D22*SP*SP*H15*H1TEN*I02 KQX(6, 6) = KQX(6, 6) + H16*(SP*(D22*(SP*I02*(-2.0+H16) 1 + N*N*I13*2.0) + D33*N*N*I13*4.0) 2 + D33*N*N*I02*(-4.0+H16)) KQX(6, 7) = KQX(6, 7) + SP*(D22*(SP*(H16*(-2.0*I12+H17*I02) 1 + H17*I02*(-1.0)) + N*N*(+H17*I13+H16*I23)) 2 + D33*N*N*(+2.0*H17*I13 + 2.0*H16*I23) 3 + D12*H16*I01*(-2.0))+D33*N*N*(H16*(-4.0*I12 4 + H17*I02) + H17*I02*(-2.0)) KQX(6, 8) = KQX(6, 8) + SP*(D22*(SP*(H16*(-3.0*I22+H18*I02) 1 + H18*I02*(-1.0)) + N*N*(+H18*I13+H16*I33)) 2 + D33*N*N*(+2.0*H18*I13 + 2.0*H16*I33) 3 + D12*H16*I11*(-6.0)) + D33*N*N*(H16*(-6.0*I22 4 + H18*I02) + H18*I02*(-2.0)) KQX(6, 9) = KQX(6, 9) + SP*(D22*(H19*(SP*I02*(-1.+H16)+N*N*I13) 1 + N*H16*I02)+ D33*N*(+2.0*N*H19*I13+H16*I02)) 2 + D33*N*N*H19*I02*(-2.0+H16) KQX(6,10) = KQX(6,10) + N*(D33*(N*H1TEN*(I02*(-2.0+H16) 1 + SP*I13*2.0) + H16*(-I01+SP*I12)) 2 + D22*SP*(+N*H1TEN*I13+H16*I12)) 3 + D22*SP*SP*H1TEN*I02*(-1.0+H16) KQX(7, 7) = KQX(7, 7) + H17*(SP*(D22*(SP*(I12*(-4.0)+H17*I02) 1 + N*N*I23*2.0) + D12*I01*(-4.0)+D33*N*N*I23*4.0) 2 + D33*N*N*(I12*(-8.0)+H17*I02)) KQX(7, 8) = KQX(7, 8) + SP*(D22*(SP*(H17*(-3.0*I22+H18*I02) 1 + H18*I12*(-2.0)) + N*N*(+H18*I23+H17*I33)) 2 + D12*(-6.0*H17*I11-2.0*H18*I01) 3 + D33*N*N*(+2.0*H18*I23 + 2.0*H17*I33)) 4 + D33*N*N*(H17*(-6.0*I22+H18*I02) + H18*I12*(-4.0)) KQX(7, 9) = KQX(7, 9) + SP*(H19*(D22*(SP*(+H17*I02-2.0*I12) 1 + N*N*I23) - 2.0*D12*I01 + 2.0*D33*N**2*I23) 2 + N*H17*I02*(+D22+D33))+D33*N*N*H19*(-4.*I12+H17*I02) KQX(7,10) = KQX(7,10) + SP*(H1TEN*(D22*(SP*(+H17*I02-2.0*I12) 1 + N*N*I23) - 2.0*D12*I01 + 2.0*D33*N**2*I23) 2 + N*H17*I12*(+D22+D33))+D33*N*(N*H1TEN*(-4.0*I12 3 + H17*I02) + H17*I01*(-1.0)) KQX(8, 8) = KQX(8, 8) + H18*(SP*(D22*(SP*(I22*(-6.0)+H18*I02) 1 + N*N*I33*2.0) + D12*I11*(-12.0)+D33*N*N*I33*4.0) 2 + D33*N*N*(I22*(-12.0)+H18*I02)) KQX(8, 9) = KQX(8, 9) + SP*(H19*(D22*(SP*(+H18*I02-3.0*I22) 1 + N*N*I33) - 6.0*D12*I11 + 2.0*D33*N**2*I33) 2 + N*H18*I02*(+D22+D33))+D33*N*N*H19*(-6.*I22+H18*I02) KQX(8,10) = KQX(8,10) + SP*(H1TEN*(D22*(SP*(+H18*I02-3.0*I22) 1 + N*N*I33) - 6.0*D12*I11 + 2.0*D33*N**2*I33) 2 + N*H18*I12*(+D22+D33)) + D33*N*(N*H1TEN*(-6.0*I22 3 + H18*I02) + H18*I01*(-1.0)) KQX(9, 9) = KQX(9, 9) + H19*I02*(SP*(N*(D22*2.0+D33*2.0) 1 + D22*SP*H19) + D33*N*N*H19) KQX(9,10) = KQX(9,10) + N*(D33*(H19*(-I01+SP*I12+N*H1TEN*I02) 1 + SP*H1TEN*I02) + D22*SP*(+H1TEN*I02+H19*I12)) 2 + D22*SP*SP*H19*H1TEN*I02 KQX(10,10)= KQX(10,10)+ H1TEN*(N*(D33*(SP*I12*2.0+I01*(-2.0) 1 + N*H1TEN*I02) + D22*SP*I12*2.0)+D22*SP*SP*H1TEN*I02) C C SET LOWER TRIANGLE EQUAL TO UPPER TRIANGLE OF KQN MATRIX C 270 DO 280 I = 1,10 DO 280 J = I,10 280 KQN(J,I) = KQN(I,J) C C FILL HUQ PER PAGE 15 MS-28 C DO 290 I = 1,100 290 HUQ(I) = 0.0 HUQ( 1) = ONE HUQ( 13) = ONE HUQ( 25) = ONE HUQ( 36) = ONE HUQ( 49) = ONE HUQ( 51) = ONE HUQ( 52) = SL HUQ( 63) = ONE HUQ( 64) = SL HUQ( 75) = ONE HUQ( 76) = SL HUQ( 77) = L2 HUQ( 78) = HUQ(77)*SL HUQ( 86) = ONE HUQ( 87) = 2.0*SL HUQ( 88) = 3.0*HUQ(77) HUQ(100) = SL C IF (TS) 300,320,300 300 HUQ( 41) = CP/RA HUQ( 45) = N /RA HUQ( 91) = CP/RB HUQ( 92) = HUQ(91)*SL HUQ( 95) = N/RB HUQ( 96) = HUQ(95)*SL HUQ( 97) = HUQ(95)*L2 HUQ( 98) = HUQ(96)*L2 HUQ( 99) = ONE C C SUBTRACT FROM ROWS 4 AND 9 OF THE ABOVE MATRIX, THE HYQ MATRIX C DO 310 I = 1,10 HUQ(I+30) = HUQ(I+30) - HYQ(I) 310 HUQ(I+80) = HUQ(I+80) - HYQ(I) 320 CONTINUE C C NO NEED TO CALCULATE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY C ISING =-1 CALL INVERS (10,HUQ(1),10,DUM,0,DETERM,ISING,TEMP60(1)) C CHECK SINGULARITY C GO TO (340,330), ISING 330 CALL MESAGE (30,40,NECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C NOT SINGULAR, CONTINUE ON.. C 340 CONTINUE IF (TS .NE. 0.0) GO TO 345 HUQ( 85) = 0.0 HUQ(100) = 0.0 345 CONTINUE C C T N T C NOW SOLVE FOR (K ) = (E)(H )(K )(H )(E ) I = PIVOT A OR B C IJ I Q J J = A,B C C C T N T T C WE WILL SOLVE FOR (E)(H )(K )((E)(H )) C A Q B C C C T T C FIRST GET EHAT = (E)(H ), AND EHBT = (E)(H ) C A B C C C EHAT WILL BE STORED AT H(1)...H(60) AND EHBT AT H(61)...H(120) C C 0 SP CP 0 0 C 1 0 0 0 0 C 0 CP -SP 0 0 C MATRIX E = 0 0 0 0 SP C 0 0 0 1 0 C 0 0 0 0 CP C INC1 = 0 INC2 = 0 350 DO 360 I = 1,10 IDX = I + INC1 ITEN = 10*I - 9 + INC2 H(IDX ) = HUQ(ITEN+1)*SP + HUQ(ITEN+2)*CP H(IDX+10) = HUQ(ITEN ) H(IDX+20) = HUQ(ITEN+1)*CP - HUQ(ITEN+2)*SP H(IDX+30) = HUQ(ITEN+4)*SP H(IDX+40) = HUQ(ITEN+3) 360 H(IDX+50) = HUQ(ITEN+4)*CP IF (INC1) 380,370,380 370 INC1 = 60 INC2 = 5 GO TO 350 380 CONTINUE C C DETERMINE PIVOT POINT NUMBER C IF (NECPT(2) .EQ. NPVT) GO TO 390 IF (NECPT(3) .EQ. NPVT) GO TO 400 CALL MESAGE (-30,34,NECPT(1)) 390 NPIVOT = 1 GO TO 410 400 NPIVOT = 2 GO TO 410 C C EHAT(1) IS AT H( 1) C EHBT(1) IS AT H(61) C 410 CALL GMMATS (H(60*NPIVOT-59),6,10,0, KQN(1,1),10,10,0, TEMP60(1)) C C IF N = 0 DOUBLE RESULT FOR KIJ C IF (N) 440,420,440 420 DO 430 I = 1,60 430 TEMP60(I) = TEMP60(I)*2.0 C 440 DO 470 J = 1,2 CALL GMMATS (TEMP60(1),6,10,0, H(60*J-59),6,10,1, KIJ(1)) DO 445 I = 1,36 445 KIJD(I) = KIJ(I) CALL SMA1B (KIJD(1),NECPT(J+1),-1,IFKGG,0.0D0) IF (IOPT4) 450,470,450 450 IF (GSUBE) 460,470,460 460 SUM = GSUBE K4GGSW = 1 CALL SMA1B (KIJD(1),NECPT(J+1),-1,IF4GG,SUM) 470 CONTINUE C RETURN END ================================================ FILE: mis/kdumx.f ================================================ SUBROUTINE KDUMX C C DELETE ANY OF THE FOLLOW ENTRY POINT IF A SUBROUTINE OF THE SAME C NAME ALREADY EXISTS C INTEGER II(9),KK(9) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ IBUF,NOUT DATA II / 9*0/, JJ /4HKDUM/, KK / 1 1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9 / C GO TO 30 C C ENTRY KDUM9 C =========== C J = 9 GO TO 10 C C ENTRY KDUM8 C ========== C J = 8 GO TO 10 C C ENTRY KDUM7 C ========== C J = 7 GO TO 10 C C ENTRY KDUM6 C ========== C J = 6 GO TO 10 C C ENTRY KDUM5 C ========== C J = 5 GO TO 10 C C ENTRY KDUM4 C ========== C J = 4 GO TO 10 C C ENTRY KDUM3 C ========== C J = 3 GO TO 10 C C ENTRY KDUM2 C ========== C J = 2 GO TO 10 C C ENTRY KDUM1 C ========== C J = 1 C GO TO 10 C 10 IF (II(J) .NE. 0) GO TO 30 II(J) = 1 WRITE (NOUT,20) UWM,JJ,KK(J) 20 FORMAT (A25,' 2182, SUBROUTINE ',2A4,' IS DUMMY. ONLY ONE OF ', 1 'THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK.') 30 RETURN END ================================================ FILE: mis/kelas.f ================================================ SUBROUTINE KELAS (IJKLMN) C***** C THIS ROUTINE COMPUTES THE ELEMENT STIFFNESS AND STIFFNESS DAMPING C 1 X 1 MATRICES FOR ELEMENTS ELAS1, ELAS2, ELAS3, ELAS4. C***** C C C C E C P T - S F O R E L A S E L E M E N T S C C C C TYPE TYPE TYPE TYPE C CELAS1 CELAS2 CELAS3 CELAS4 C ECPT(1) IELID I IELID I IELID I IELID I C ECPT(2) IGP1 I K R IS1 I K R C ECPT(3) IGP2 I IGP1 I IS2 I IS1 I C ECPT(4) IC1 I IGP2 I K R IS2 I C ECPT(5) IC2 I IC1 I GSUBE R C ECPT(6) K R IC2 I S R C ECPT(7) GSUBE R GSUBE R C ECPT(8) S R S R C C C DOUBLE PRECISION 1 KE C C C DIMENSION 1 IECPT(5) C C C COMMON /SYSTEM/ 1 ISYS C C SMA1 I/O PARAMETERS C COMMON /SMA1IO/ 1 IFCSTM ,IFMPT 2, IFDIT ,IDUM1 3, IFECPT ,IGECPT 4, IFGPCT ,IGGPCT 5, IFGEI ,IGGEI 6, IFKGG ,IGKGG 7, IF4GG ,IG4GG 8, IFGPST ,IGGPST 9, INRW ,OUTRW T, CLSNRW ,CLSRW 1, NEOR ,EOR 2, MCBKGG(7) ,MCB4GG(7) C C SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS C COMMON /SMA1BK/ 1 ICSTM ,NCSTM 2, IGPCT ,NGPCT 3, IPOINT ,NPOINT 4, I6X6K ,N6X6K 5, I6X64 ,N6X64 C C SMA1 PROGRAM CONTROL PARAMETERS C COMMON /SMA1CL/ 1 IOPT4 ,K4GGSW 2, NPVT ,LEFT 3, FROWIC ,LROWIC 4, NROWSC ,TNROWS 5, JMAX ,NLINKS 6, LINK(10) ,IDETCK 7, DODET ,NOGO C C ECPT COMMON BLOCK C COMMON /SMA1ET/ 1 ECPT(100) C C C EQUIVALENCE 1 (IECPT(1),ECPT(1)) C C C DATA 1 ISCALR /0/ C C C IARG = IJKLMN C C MAKE THE ECPT-S FOR ALL ELAS ELEMENTS LOOK EXACTLY LIKE THE ECPT FOR C ELAS1 C GO TO (50,10,30,40), IARG C C ELAS2 C 10 SAVE = ECPT(2) DO 20 I = 3,6 20 IECPT(I-1) = IECPT(I) ECPT(6) = SAVE GO TO 50 C C ELAS3 C 30 ECPT(7) = ECPT(5) ECPT(6) = ECPT(4) IECPT(4) = 1 IECPT(5) = 1 GO TO 50 C C ELAS4 C 40 ECPT(6) = ECPT(2) IECPT(2) = IECPT(3) IECPT(3) = IECPT(4) IECPT(4) = 1 IECPT(5) = 1 C C DETERMINE WHICH POINT IS THE PIVOT POINT AND SET APPROPRIATE POINTERS C 50 IND = 2 IF (IECPT(2) .EQ. NPVT) GO TO 60 IF (IECPT(3) .NE. NPVT) RETURN IPVT = 3 IPDOF = 5 INPVT = 2 INPDOF = 4 IF (IECPT(2) .EQ. 0) IND = 1 GO TO 80 C C CHECK TO SEE IF BOTH POINTS MATCH THE PIVOT POINT. C 60 IF (IECPT(3) .NE. NPVT) GO TO 70 IF (ISCALR .EQ. 0) GO TO 65 ISCALR = 0 RETURN 65 ISCALR = 1 IND = 4 70 IPVT = 2 IPDOF = 4 INPVT = 3 INPDOF = 5 IF (IECPT(3) .EQ. 0) IND = 1 80 IF (IECPT(IPDOF) .LE. 0) IECPT(IPDOF) = 1 IF (IECPT(INPDOF) .LE. 0) IECPT(INPDOF) = 1 C C II AND JJ ARE THE ROW AND COLUMN INDICES OF THE MATRIX INTO WHICH THE C SPRING AND SPRING DAMPING CONSTANTS WILL BE ADDED. C II = IECPT(IPVT) + IECPT(IPDOF) - 1 JJ = IECPT(INPVT) + IECPT(INPDOF) - 1 KE = ECPT(6) INDEX = 6 IFILE = IFKGG 85 ASSIGN 100 TO IRETRN I = II J = II 90 CALL SMA1B (KE,J,I,IFILE,0.0D0) IF (IND .EQ. 1) GO TO 130 GO TO IRETRN, (100,110,120,130) 100 ASSIGN 110 TO IRETRN KE = - KE J = JJ GO TO 90 110 IF (IND .NE. 4) GO TO 130 ASSIGN 120 TO IRETRN KE = ECPT(6) I = JJ GO TO 90 120 ASSIGN 130 TO IRETRN KE = -KE J = II GO TO 90 130 IF (INDEX .EQ. 7) RETURN IF (IOPT4 .EQ. 0 .OR. IARG .EQ. 4) RETURN C C IF G SUB E IS NON-ZERO, SET PARAMETERS FOR K4GG INSERTION. C IF (ECPT(7) .EQ. 0.0) RETURN K4GGSW = 1 IFILE = IF4GG KE = ECPT(7) * ECPT(6) INDEX = 7 GO TO 85 END ================================================ FILE: mis/kelbow.f ================================================ SUBROUTINE KELBOW C C THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES K(NPVT,NPVT) AND C K(NPVT,J) FOR A CURVED BAR ELEMENT HAVING END POINTS NUMBERED C NPVT AND J C C ECPT FOR THE ELBOW C C ECPT( 1) - IELID ELEMENT ID. NUMBER C ECPT( 2) - ISILNO(2) * SCALAR INDEX NOS. OF THE GRID POINTS C ECPT( 3) - ... * C ECPT( 4) - SMALLV(3) $ REFERENCE VECTOR C ECPT( 5) - ... $ C ECPT( 6) - ... $ C ECPT( 7) - ICSSV COOR. SYS. ID FOR SMALLV VECTOR C ECPT( 8) - IMATID MATERIAL ID. C ECPT( 9) - A CROSS-SECTIONAL AREA C ECPT(10) - I1 $ AREA MOMENTS OF INERTIA C ECPT(11) - I2 $ C ECPT(12) - FJ TORSIONAL CONSTANT C ECPT(13) - NSM NON-STRUCTURAL MASS C ECPT(14) - FE FORCE ELEM. DESCRIPTIONS, FORCE METHOD C ECPT(15) - R1 *STRESS RECOVERY COEFFICIENTS C ECPT(16) - T1 * RI = RADIAL LOCATION C ECPT(17) - R2 * TI = ANGULAR LOCATION C ECPT(18) - T2 * OF STRESS RECOVERY POINTS C ECPT(19) - R3 * C ECPT(20) - T3 * C ECPT(21) - R4 * C ECPT(22) - T4 * C ECPT(23) - K1 $ AREA FACTOR FOR SHEAR C ECPT(24) - K2 $ C ECPT(25) - C STRESS INTENSIFICATION FACTOR C ECPT(26) - KX * FLEXIBILITY CORRECTION FACTORS C ECPT(27) - KY * C ECPT(28) - KZ * C ECPT(29) - R RADIUS OF CURVATURE C ECPT(30) - BETAR ANGLE FROM GA TO GB C ECPT(31) - MCSIDA COORD. SYS. ID. FOR GRID POINT A C ECPT(32) - GPA(3) * BASIC COORD. FOR GRID POINT A C ECPT(33) - ... * C ECPT(34) - ... * C ECPT(35) - MCSIDB COORD. SYS. ID. FOR GRID POINT B C ECPT(36) - GPB(3) * BASIC COORD. FOR GRID POINT B C ECPT(37) - ... * C ECPT(38) - ... * C ECPT(39) - ELTEMP AVG. ELEMENT TEMPERATURE C C COMMENTS FROM G.CHAN/UNISYS 7/91 C ABOUT K1 AND K2, THE AREA FACTORS FOR SHEAR C C THE K1,K2 FOR BAR ARE 0. TO 1.0, AND ARE USED IN K1*G*A AND K2*G*A C THE K1,K2 ARE THEREFORE CORRECTION FACTORS FOR STIFFNESS C THE K1,K2 ARE USED IN ELBOW IN K1/G*A AND K2/G*A. AND THEREFORE C THE K1,K2 ARE COORECTION FACTORS FOR FLEXIBILITY. THE K1,K2 C IN ELBOW ARE EQUIVALENT TO 1./K1 AND 1./K2 IN BAR ELEMENT. C THE PROPER VALUE FOR K1 AND K2 SHOULD BE INFINITY TO 1.0 C C IN 1992 COSMIC/NASTRAN, THE USE OF K1 AND K2 IN ELBOW AND BAR C ELMENTS ARE SYMCHRONIZED, WITH PROPER VALUES FROM 0. TO 1.0 C THE K1 AND K2 ARE CHANGED TO 1./K1 AND 1./K2 IN ELBOW ELEMENT C SHEAR COMPUTATION. THAT IS, CORRECTION FACTORS FOR STIFFNESS IS C USED. C C REFERENCE - R.J. ROARK: FORMULAS FOR STRESS AND STRAIN, C SECTION 35, 'BEAMS FOR RELATIVELY GREAT DEPTH', C FOR BEAMS OF SAMLL SPAN/DEPTH RATIO C C K = 1/F = 5/6 FOR RECTANGULAR SECTION C = 0.9 FOR SOLID CIRCULAR C = 0.5 FOR THIN-WALLED HOOLOW CIRCULAR SECTION C = 1.0 CAN BE USED FOR I-BEAM C C C LOGICAL HEAT,ABASIC,BBASIC,BASIC REAL K1,K2,I1,I2,NSM,KX,KY,KZ DOUBLE PRECISION TA(18),TB(9),SMALV0(6),DELA,DELB,KE,KEP,VECI, 1 VECJ,VECK,FL,FLL,DF(6,6),DETERM,H(6,6),DP(16), 2 S(12,12),DAMPC,KEE(12,12) DIMENSION VECI(3),VECJ(3),VECK(3),ECPT(100),IECPT(100), 1 IZ(1),IWORK(6,3),F(6,6) COMMON /SMA1IO/ IFCSTM,IFMPT,IFDIT,IDUM1,IFECPT,IGECPT,IFGPCT, 1 IGGPCT,IFGEI,IGGEI,IFKGG,IGKGG,IF4GG,IG4GG, 2 IFGPST,IGGPST,INRW,OUTRW,CLSNRW,CLSRW,NEOR, 3 EOR,MCBKGG(7),MCB4GG(7) COMMON /ZZZZZZ/ Z(1) COMMON /SMA1BK/ ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT,I6X6K, 1 N6X6K,I6X64,N6X64 COMMON /SMA1CL/ IOPT4,K4GGSW,NPVT,LEFT,FROWIC,LROWIC,NROWSC, 1 TNROWS,JMAX,NLINKS,LINK(10),IDETCK,DODET,NOGO COMMON /SMA1HT/ HEAT COMMON /SMA1ET/ IELID,ISILNO(2),SMALLV(3),ICSSV,IMATID,A,I1,I2, 1 FJ,NSM,FE,C1,C2,D1,D2,F1,F2,G1,G2,K1,K2,C,KX,KY, 2 KZ,R,BETAR,MCSIDA,GPA(3),MCSIDB,GPB(3),TEMPEL COMMON /SMA1DP/ KE(144),KEP(144),DELA(6),DELB(6) COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E,G,NU,RHO,ALPHA,TSUBO,GSUBE,SIGT,SIGC,SIGS COMMON /HMTOUT/ FK COMMON /SYSTEM/ SYSBUF,NOUT EQUIVALENCE (IELID,ECPT(1),IECPT(1)),(IZ(1),Z(1)), 1 (TA(10),TB(1)),(ECPT(71),DP(1)), 2 (KEE(1,1),KE(1),S(1,1)) DATA DCR / .017453292 / C SID(X) = SIN(X*DCR) COD(X) = COS(X*DCR) DTR(X) = X*DCR C C DETERMINE WHICH POINT IS THE PIVOT POINT. C X = 1. IPVT = 1 IF (ISILNO(1) .EQ. NPVT) GO TO 20 IPVT = 2 IF (ISILNO(2) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1)) C C SET UP POINTERS TO COORD. SYSTEM IDS C 20 JCSIDA = 31 JCSIDB = 35 ICSIDA = IECPT(31) ICSIDB = IECPT(35) C C DEFINE LOCATION OF END A, END B IN TERMS OF DP(1) THRU DP(6) C DP(1) = ECPT(JCSIDA+1) DP(2) = ECPT(JCSIDA+2) DP(3) = ECPT(JCSIDA+3) DP(4) = ECPT(JCSIDB+1) DP(5) = ECPT(JCSIDB+2) DP(6) = ECPT(JCSIDB+3) C C DEFINE COMPONENTS OF VECTOR FROM END A TO CENTER OF CURVATURE,C C DP(7) = ECPT(4) DP(8) = ECPT(5) DP(9) = ECPT(6) FLD = DSQRT(DP(7)**2 + DP(8)**2 + DP(9)**2) IF (FLD .LE. 0.000) GO TO 1010 DP(7) = DP(7)/FLD DP(8) = DP(8)/FLD DP(9) = DP(9)/FLD C C DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES C ABASIC =.TRUE. BBASIC =.TRUE. IF (ICSIDA .NE. 0) ABASIC =.FALSE. IF (ICSIDB .NE. 0) BBASIC =.FALSE. C C COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY C IF (ABASIC) GO TO 30 CALL TRANSD (ECPT(JCSIDA),TA) CALL GMMATD (TA,3,3,0, DP(7),3,1,0, VECJ) CALL GMMATD (TA,3,3,0, DP(1),3,1,0, DP(14)) DP(1) = DP(14) DP(2) = DP(15) DP(3) = DP(16) GO TO 35 30 CONTINUE VECJ(1) = DP(7) VECJ(2) = DP(8) VECJ(3) = DP(9) 35 IF (BBASIC) GO TO 40 CALL TRANSD (ECPT(JCSIDB),TB) CALL GMMATD (TB,3,3,0, DP(4),3,1,0, DP(14)) DP(4) = DP(14) DP(5) = DP(15) DP(6) = DP(16) 40 CONTINUE C C CALCULATE TRUE LENGTH OF ELBOW C FL = DBLE(R*DTR(BETAR)) IF (FL .EQ. 0.0D0) GO TO 1010 C C NOW THAT LENGTH HAS BEEN COMPUTED, BRANCH IF THIS IS A -HEAT- C FORMULATION. C IF (HEAT) GO TO 2000 C C CONSTRUCT VECTOR FROM A TO B C SMALV0(1) = DP(4) - DP(1) SMALV0(2) = DP(5) - DP(2) SMALV0(3) = DP(6) - DP(3) FLL = DSQRT(SMALV0(1)**2 + SMALV0(2)**2 + SMALV0(3)**2) IF (FLL .EQ. 0.0D0) GO TO 1010 SMALV0(1) = SMALV0(1)/FLL SMALV0(2) = SMALV0(2)/FLL SMALV0(3) = SMALV0(3)/FLL C C COMPUTE THE K VECTOR VECK = SMALV0 X VECJ C VECK(1) = SMALV0(2)*VECJ(3) - SMALV0(3)*VECJ(2) VECK(2) = SMALV0(3)*VECJ(1) - SMALV0(1)*VECJ(3) VECK(3) = SMALV0(1)*VECJ(2) - SMALV0(2)*VECJ(1) FLL = DSQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) IF (FLL .EQ. 0.0D0) GOTO 1010 VECK(1) = VECK(1)/FLL VECK(2) = VECK(2)/FLL VECK(3) = VECK(3)/FLL C C COMPUTE THE I VECTOR VECI = VECJ X VECK C VECI(1) = VECJ(2)*VECK(3) - VECJ(3)*VECK(2) VECI(2) = VECJ(3)*VECK(1) - VECJ(1)*VECK(3) VECI(3) = VECJ(1)*VECK(2) - VECJ(2)*VECK(1) FLL = DSQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) IF (FLL .EQ. 0.0D0) GO TO 1010 VECI(1) = VECI(1)/FLL VECI(2) = VECI(2)/FLL VECI(3) = VECI(3)/FLL C C SEARCH THE MATERIAL PROPERTIES TABLE FOR E,G AND THE DAMPING C CONSTANT. C MATIDC = IMATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) DAMPC = G SUB E C C SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX C CALCULATION C IF (KX .LT. 1.0E-8) KX = 1.0 IF (KY .LT. 1.0E-8) KY = 1.0 IF (KZ .LT. 1.0E-8) KZ = 1.0 FI1 = I1/KZ FI2 = I2/KY FJK = FJ/KX C C AREA FACTORS FOR SHEAR ARE FROM NEAR ZERO TO ONE C IF (K1 .LT. 1.0E-8) K1 = 1.0 IF (K2 .LT. 1.0E-8) K2 = 1.0 IF (K1 .GT. 1.0) K1 = 1.0/K1 IF (K2 .GT. 1.0) K2 = 1.0/K2 C C THE FOLLOWING CODE WAS TAKEN FROM SAP4 BENDKS ROUTINE C FOR A CURVED PIPE ELEMENT C C COMPUTE SECTION PROPERTY CONSTANTS C T = DTR(BETAR) RA = R/(A*E) RV1 = R/(2.*K1*G*A) RV2 = K1/K2*RV1 RT = R/(G*FJK*2.) RB0 = R/(E*FI2*2.) RB1 = R/(E*FI1) R2 = R**2 C C COMPUTE COMMON TRIGONOMETRIC CONSTANTS C ST = SID(BETAR) CT = COD(BETAR) S2T = SID(2.0*BETAR) C2T = COD(2.0*BETAR) C C FORM THE NODE FLEXIBILITY MATRIX AT NODE J REFERENCED TO THE C LOCAL (X,Y,Z) COORDINATE SYSTEM AT NODE I. C C X - DIRECTION... IN-PLANE TANGENT TO THE BEND AT NODE I AND C DIRECTED TOWARD NODE J C Y - DIRECTION... IN-PLANE AND DIRECTED RADIALLY INWARD TO THE C CENTER OF CURVATURE C Z - DIRECTION... OUT OF PLANE AND ORTHOGONAL TO X AND Y C DO 50 I = 1,6 DO 50 K = I,6 F(I,K) = 0.0 50 CONTINUE C C A X I A L C F(1,1) = F(1,1) + 0.25*RA*(2.0*T+S2T) F(2,2) = F(2,2) + 0.25*RA*(2.0*T-S2T) C C N O T E (COEFFICIENT CHANGE) C F(1,2) = F(1,2) + 0.50*RA*ST**2 C C S H E A R C F(1,1) = F(1,1) + 0.5*RV1*(2.0*T-S2T) F(2,2) = F(2,2) + 0.5*RV1*(2.0*T+S2T) F(3,3) = F(3,3) + 2.0*RV2* T C C N O T E (SIGN CHANGE) C F(1,2) = F(1,2) - RV1*ST**2 C C T O R S I O N C F(3,3) = F(3,3) + 0.5*RT*R2*(6.0*T+S2T-8.0*ST) F(4,4) = F(4,4) + 0.5*RT* (2.0*T+S2T) F(5,5) = F(5,5) + 0.5*RT* (2.0*T-S2T) F(3,4) = F(3,4) + RT*R *(ST-T*CT) F(3,5) = F(3,5) + RT*R *(2.0-2.0*CT-T*ST) F(4,5) = F(4,5) + 0.5*RT* (1.0-C2T) C C B E N D I N G C F(1,1) = F(1,1) + 0.25*RB1*R2*(2.0*T*(2.0+C2T)-3.0*S2T) F(2,2) = F(2,2) + 0.25*RB1*R2*(2.0*T*(2.0-C2T)+3.0*S2T-8.0*ST) F(3,3) = F(3,3) + 0.50*RB0*R2*(2.0*T-S2T) F(4,4) = F(4,4) + 0.50*RB0* (2.0*T-S2T) F(5,5) = F(5,5) + 0.50*RB0* (2.0*T+S2T) F(6,6) = F(6,6) + RB1*T F(1,2) = F(1,2) + 0.25*RB1*R2*(1.0+3.0*C2T+2.0*T*S2T-4.0*CT) F(1,6) = F(1,6) - RB1*R *(ST-T*CT) F(2,6) = F(2,6) + RB1*R *(T*ST+CT-1.0) F(3,4) = F(3,4) + RB0*R *(ST-T*CT) F(3,5) = F(3,5) - RB0*R *T*ST F(4,5) = F(4,5) - 0.50*RB0* (1.0-C2T) C C C FORM SYMMETRICAL UPPER PART OF FLEX MATRIX C DO 65 I = 1,6 DO 65 K = I,6 DF(K,I) = DBLE(F(I,K)) DF(I,K) = DF(K,I) 65 CONTINUE C C WRITE (6,4005) DF C C INVERT FLEX TO FORM STIFFNESS C CALL INVERD (6,DF,6,DUM,0,DETERM,ISING,IWORK) IF (ISING .EQ. 2) WRITE (6,4002) F IF (ISING .EQ. 2) CALL MESAGE (-30,38,ECPT(1)) 4002 FORMAT (1X,34HELBOW STIFFNESS MATRIX IS SINGULAR, /,(5X,6E13.5)) C C C SET UP THE FORCE TRANSFORMATION RELATING REACTIONS AT NODE I C ACTING ON THE MEMBER END DUE TO UNIT LOADS APPLIED TO THE MEMBER C END AT NODE J. C DO 100 I = 1,6 DO 100 K = 1,6 H(I,K) = 0.0D0 100 CONTINUE C DO 105 K = 1,6 H(K,K) =-1.0D0 105 CONTINUE C H(4,3) =-DBLE(R*(1.0-CT)) H(5,3) = DBLE(R*ST) H(6,1) =-H(4,3) H(6,2) =-H(5,3) C C FORM THE UPPER TRIANGULAR PORTION OF THE LOCAL ELEMENT STIFFNESS C MATRIX FOR THE BEND C DO 110 K = 1,6 DO 110 I = K,6 S(K+6,I+6) = DF(K,I) 110 CONTINUE C DO 130 IR = 1,6 DO 130 IC = 1,6 S(IR,IC+6) = 0.0D0 DO 120 IN = 1,6 S(IR,IC+6) = S(IR,IC+6) + H(IR,IN)*DF(IN,IC) 120 CONTINUE 130 CONTINUE C DO 150 IR = 1,6 DO 150 IC = IR,6 S(IR,IC) = 0.0D0 DO 140 IN = 1,6 S(IR,IC) = S(IR,IC) + S(IR,IN+6)*H(IC,IN) 140 CONTINUE 150 CONTINUE C C REFLECT FOR SYMMETRY C DO 165 I = 1,12 DO 165 K = I,12 S(K,I) = S(I,K) 165 CONTINUE C J = 0 IF (IPVT .EQ. 2) GO TO 327 ILOW = 1 ILIM = 72 GO TO 329 327 ILOW = 73 ILIM = 144 329 DO 340 I = ILOW,ILIM,12 LOW = I LIM = LOW + 5 DO 330 K = LOW,LIM J = J + 1 KEP(J) = KE(K) 330 KEP(J+36) = KE(K+6) 340 CONTINUE C C T C STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A MATRIX. C KE(1) = VECI(1) KE(2) = VECI(2) KE(3) = VECI(3) KE(4) = VECJ(1) KE(5) = VECJ(2) KE(6) = VECJ(3) KE(7) = VECK(1) KE(8) = VECK(2) KE(9) = VECK(3) C C ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX H AND THE W AND W C 6 X 6 MATRICES WILL RESIDE. A B C DO 350 I = 28,108 350 KE(I) = 0.0D0 IPASS = 1 IWBEG = 0 C C SET UP POINTERS C IF (IPVT-1) 365,360,365 360 BASIC = ABASIC JCSID = JCSIDA IKEL = 1 INDEX = ISILNO(1) GO TO 368 365 BASIC = BBASIC JCSID = JCSIDB IKEL = 37 INDEX = ISILNO(2) C C SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G C MATRIX. G = AT X TI C 368 IG = 1 IF (BASIC) GO TO 380 CALL TRANSD (ECPT(JCSID),KE(10)) CALL GMMATD (KE(1),3,3,0, KE(10),3,3,0, KE(19)) IG = 19 C C FORM THE W MATRIX OR THE W MATRIX IN KE(37) OR KE(73) DEPENDING C A B C UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION. G WILL BE C STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS. H, IF NON-ZERO, C WILL BE STORED IN THE UPPER RIGHT CORNER. C 380 KE(IWBEG+37) = KE(IG ) KE(IWBEG+38) = KE(IG+1) KE(IWBEG+39) = KE(IG+2) KE(IWBEG+43) = KE(IG+3) KE(IWBEG+44) = KE(IG+4) KE(IWBEG+45) = KE(IG+5) KE(IWBEG+49) = KE(IG+6) KE(IWBEG+50) = KE(IG+7) KE(IWBEG+51) = KE(IG+8) KE(IWBEG+58) = KE(IG ) KE(IWBEG+59) = KE(IG+1) KE(IWBEG+60) = KE(IG+2) KE(IWBEG+64) = KE(IG+3) KE(IWBEG+65) = KE(IG+4) KE(IWBEG+66) = KE(IG+5) KE(IWBEG+70) = KE(IG+6) KE(IWBEG+71) = KE(IG+7) KE(IWBEG+72) = KE(IG+8) C C T E C FORM THE PRODUCT W X K AND STORE IN KEP(73) C NPVT C CALL GMMATD (KE(37),6,6,1, KEP(IKEL),6,6,0, KEP(73)) C C COMPUTE THE FINAL ANSWER AND STORE IN KEP(109) C CALL GMMATD (KEP(73),6,6,0, KE(IWBEG+37),6,6,0, KEP(109)) C C INSERT THIS 6 X 6 C CALL SMA1B (KEP(109),INDEX,-1,IFKGG,0.0D0) IF (IOPT4.EQ.0 .OR. GSUBE.EQ.0.0) GO TO 400 K4GGSW = 1 CALL SMA1B (KEP(109),INDEX,-1,IF4GG,DAMPC) C C IF IPASS = 2, WE ARE DONE. OTHERWISE COMPUTE THE OFF-DIAGONAL C 6 X 6. C 400 IF (IPASS .EQ. 2) GO TO 500 IWBEG = 36 IPASS = 2 DO 410 I = 28,36 410 KE(I) = 0.0D0 IF (IPVT-1) 360,365,360 500 RETURN C 1010 CALL MESAGE (30,26,IECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C C HEAT FORMULATION CONTINUES HERE. GET MATERIAL PROPERTY -K- FROM C HMAT C 2000 MATFLG = 1 MATIDC = IECPT( 8) ELTEMP = ECPT(39) CALL HMAT (IELID) C FL = DBLE(FK)*DBLE(ECPT(9))/(DP(9)*DP(10)*DBLE(DCR)) IF (NPVT .EQ. IECPT(3)) FL = -FL DO 2020 I = 1,2 CALL SMA1B (FL,IECPT(I+1),NPVT,IFKGG,0.0D0) FL = -FL 2020 CONTINUE RETURN END ================================================ FILE: mis/kflud2.f ================================================ SUBROUTINE KFLUD2 C C THIS ROUTINE GENERATES THE PSUEDO STIFFNESS MATRIX TERMS C FOR THE CENTER PLUG FLUID ELEMENT C C THE ECPT DATA BLOCK CONTAINS THE FOLLOWING DATA C C FIELD SYMBOL C 1 ID C 2 SIL1 C 3 SIL2 C 4 RHO C 5 BULK C 6 N C 7 CSF C 8 R1 C 9 Z1 C 10 - C 11 CSF C 12 R2 C 13 Z2 C 14 - C 15 - C LOGICAL NOGO INTEGER OUT,ELTYPE,NECPT(100) DOUBLE PRECISION R1,Z1,R2,Z2,CONSTD,DPI, 1 Z1P,Z2P,Z1P1,Z2P1,RK,RI,KFACT,F0,A,B,I2N0,I2N1, 2 I2N2,I2NP2,DZ,HPQ,PIRHO,TWOPR,KH,K1,K2 CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CONDAD/ CONSTD(5) COMMON /SYSTEM/ SYSBUF,OUT,NOGO COMMON /EMGDIC/ ELTYPE COMMON /SMA1IO/ DUM1(10),IFKGG COMMON /SMA1CL/ IOPT4,K4GGSW,NPVT COMMON /SMA1DP/ Z1P,Z2P,RK,RI,KFACT,F0,A,B,I2N0,I2N1,I2N2,I2NP2, 1 DZ,HPQ(4),PIRHO,TWOPR,KH(4),K1,K2 COMMON /SMA1ET/ ECPT(100) EQUIVALENCE (CONSTD(1),DPI),(ECPT(1),NECPT(1)) C C IF (ECPT(13)-ECPT(9)) 5,10,10 5 R1 = ECPT(12) R2 = ECPT(8) Z1 = ECPT(13) Z2 = ECPT(9) I = NECPT(3) NECPT(3) = NECPT(2) NECPT(2) = I GO TO 15 10 R1 = ECPT(8) Z1 = ECPT(9) R2 = ECPT(12) Z2 = ECPT(13) 15 IF (R1.EQ.0.0D0 .OR. R2.EQ.0.0D0) GO TO 5000 IF (Z1 .EQ. Z2) RETURN C C CALCULATE THE INTEGRAL PARAMETERS I2N0,I2N1,I2N2,AND I2NP2 C K = 2*NECPT(6) RK = K IF (K .GT. 0) GO TO 20 C I2N0 = 0.0 I2N1 = 0.0 I2N2 = 0.0 I2NP2= (Z2-Z1)*(R2**2 + R2*R1 + R1**2)/6.0D0 C GO TO 300 C 20 B = (R2-R1)/(Z2-Z1) DUM = DABS(B) IF (DUM .GT. 1.0E-6) GO TO 30 C Z1P = ((R1+R2)/2.0D0)**K I2N0 = (Z1P/RK)*(Z2-Z1) I2N1 = I2N0*(Z2+Z1)/2.0D0 I2N2 = I2N0*(Z2**2+Z2*Z1+Z1**2)/3.0D0 I2NP2= I2N0*RK/(RK+2.0D0)*R1**2 GO TO 300 30 Z1P = R1**(K+1) Z2P = R2**(K+1) Z1P1 = Z1P*R1 Z2P1 = Z2P*R2 C A = 1.0D0/B I2N0 = A/(RK*(RK+1.0D0))*(Z2P-Z1P) I2N1 = A/(RK*(RK+1.0D0))*(Z2P*Z2-Z1P*Z1-A/(RK+2.0D0)*(Z2P1-Z1P1)) I2N2 = A/(RK*(RK+1.0D0))*(Z2P*Z2**2-Z1P*Z1**2 -A/(RK+2.0D0)*2.0D0 1 * (Z2P1*Z2-Z1P1*Z1-A/(RK+3.0D0)*(Z2P1*R2-Z1P1*R1))) I2NP2= A/((RK+2.0D0)*(RK+3.0D0))*(Z2P1*R2-Z1P1*R1) 300 DZ = Z2 - Z1 N = NECPT(6) Z1P = R1**N Z2P = R2**N HPQ(1) = Z2/(DZ*Z1P) HPQ(2) =-Z1/(DZ*Z2P) HPQ(3) =-1.0D0/(DZ*Z1P) HPQ(4) = 1.0D0/(DZ*Z2P) LP = 1 IF (NPVT .EQ. NECPT(2)) GO TO 320 IF (NPVT .EQ. NECPT(3)) GO TO 310 RETURN C 310 LP = 2 320 IF (ECPT(4) .EQ. 0.0) RETURN PIRHO = DPI/DBLE(ECPT(4)) IF (N .EQ. 0) PIRHO = PIRHO*2.0D0 RK = N TWOPR = 2.0*PIRHO*RK**2 KH(1) = TWOPR*(I2N0*HPQ(LP)+I2N1*HPQ(LP+2)) KH(2) = TWOPR*(I2N1*HPQ(LP)+I2N2*HPQ(LP+2)) +PIRHO*I2NP2*HPQ(LP+2) K1 = KH(1)*HPQ(1) + KH(2)*HPQ(3) K2 = KH(1)*HPQ(2) + KH(2)*HPQ(4) IFILE = IFKGG I = NPVT J = NECPT(2) CALL SMA1B (K1,J,I,IFILE,0.0D0) J = NECPT(3) CALL SMA1B (K2,J,I,IFILE,0.0D0) RETURN C 5000 N = NECPT(1) IF (ELTYPE .EQ. 43) N = N/1000 WRITE (OUT,6000) UFM,N 6000 FORMAT (A23,' 5000, NEGATIVE OR ZERO RADIUS DETECTED FOR ', 1 'CFLUID2/CAXIF2 ELEMENT ID',I9) NOGO = .TRUE. RETURN END ================================================ FILE: mis/kflud3.f ================================================ SUBROUTINE KFLUD3 C C THIS ROUTINE GENERATES THE PSUEDO STIFFNESS MATRIX TERMS C FOR THE TRIANGULAR FLUID ELEMENT C C THE ECPT DATA IS THE FOLLOWING C C FIELD SYMBOL C 1 ID C 2 SIL1 C 3 SIL2 C 4 SIL3 C 5 RHO C 6 BULK C 7 N C 8 CSF C 9 R1 C 10 Z1 C 11 - C 12 CSF C 13 R2 C 14 Z2 C 15 - C 16 CSF C 17 R3 C 18 Z3 C 19 - C 20 - C LOGICAL NOGO INTEGER OUT ,NP(3) ,NECPT(100) DOUBLE PRECISION CONSTD ,DPI , 1 R ,R1 ,R2 ,R3 , 2 Z1 ,Z2 ,Z3 ,DETH , 3 H ,RA ,RB ,ZA , 4 ZB ,DR ,DZ ,BETA , 5 BLOG ,DZR ,DZR2 ,BET2 , 6 R12 ,R22 ,G00 ,G10 , 7 G20 ,G01 ,G11 ,G02 , 8 RN ,PIRO ,PRN2 ,KQ , 9 KVEC ,KG CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CONDAD/ CONSTD(5) COMMON /SYSTEM/ SYSBUF ,OUT ,NOGO COMMON /SMA1IO/ DUM1(10) ,IFKGG COMMON /SMA1CL/ IOPT4 ,K4GGSW ,NPVT COMMON /SMA1ET/ ECPT(100) COMMON /SMA1DP/ R ,R1 ,R2 ,R3 , 1 Z1 ,Z2 ,Z3 ,DETH , 2 H(9) ,RA ,RB ,ZA , 3 ZB ,DR ,DZ ,BETA , 4 BLOG ,DZR ,DZR2 ,BET2 , 5 R12 ,R22 ,G00 ,G10 , 6 G20 ,G01 ,G11 ,G02 , 7 RN ,PIRO ,PRN2 ,KQ(9) , 8 KVEC(3) ,KG(3) ,IRET ,IPT , 9 JC ,IR EQUIVALENCE (CONSTD(1),DPI) ,(ECPT(1),NECPT(1)) C C SELECT POINTS FOR COUNTERCLOCKWISE ORDER C NP(1) = NECPT(2) NP(2) = NECPT(3) NP(3) = NECPT(4) R1 = ECPT( 9) Z1 = ECPT(10) R2 = ECPT(13) Z2 = ECPT(14) R3 = ECPT(17) Z3 = ECPT(18) R = (R2-R1)*(Z3-Z1) - (R3-R1)*(Z2-Z1) IF (R) 10,2000,20 10 NP(2) = NP(3) NP(3) = NECPT(3) R2 = ECPT(17) R3 = ECPT(13) Z2 = ECPT(18) Z3 = ECPT(14) 20 IF (R1.LE.0.0D0 .OR. R2.LE.0.0D0 .OR. R3.LE.0.0D0) GO TO 1000 DETH = DABS(R) H(1) = (R2*Z3-R3*Z2)/DETH H(4) = (R3*Z1-R1*Z3)/DETH H(7) = (R1*Z2-R2*Z1)/DETH H(2) = (Z2-Z3)/DETH H(5) = (Z3-Z1)/DETH H(8) = (Z1-Z2)/DETH H(3) = (R3-R2)/DETH H(6) = (R1-R3)/DETH H(9) = (R2-R1)/DETH C C THE INTEGRAL PARAMETERS ARE THE SUM DUE TO SIDES 1-2,2-3,3-1. C G00 = 0.0 G01 = 0.0 G02 = 0.0 G10 = 0.0 G11 = 0.0 G20 = 0.0 IRET = 1 RA = R1 RB = R2 ZA = Z1 ZB = Z2 GO TO 500 100 IRET = 2 RA = R2 RB = R3 ZA = Z2 ZB = Z3 GO TO 500 110 IRET = 3 RA = R3 RB = R1 ZA = Z3 ZB = Z1 C C THE INTEGRAL PARAMETERS ARE CALCULATED BELOW C 500 DR = RB - RA DZ = ZB - ZA IF (DR**2/DETH .LE. 1.0D-6) GO TO 140 BETA = ZA - RA*DZ/DR BET2 = BETA**2 BLOG = BETA*DLOG(RA/RB) DZR = DZ/DR DZR2 = DZR**2 R12 = (RA**2-RB**2)/2.0D0 R22 = (RA**3-RB**3)/3.0D0 G00 = G00 + BLOG - DZ G10 = G10 - BETA*DR + R12*DZR G20 = G20 + BETA*R12 + DZR*R22 G01 = G01 + BLOG*BETA/2.0D0 - BETA*DZ + DZR2*R12/2.0D0 G11 = G11 - BET2*DR/2.0D0 + BETA*DZR*R12 + DZR2*R22/2.0D0 G02 = G02 + BET2*BLOG/3.0D0 - BET2*DZ + BETA*DZR2*R12 + 1 DZR*DZR2*R22/3.0D0 140 CONTINUE GO TO (100,110,120), IRET 120 CONTINUE C C FORM THE PSUEDO STIFFNESS MATRIX USING THE PARAMETERS C RN = NECPT(7) IF (ECPT(5) .LE. 0.0) RETURN PIRO = DPI/DBLE(ECPT(5)) IF(NECPT(7) .EQ. 0) PIRO=PIRO*2.0D0 PRN2 = PIRO*RN**2 KQ(1) = PRN2*G00 KQ(2) = PRN2*G10 KQ(3) = PRN2*G01 KQ(4) = KQ(2) KQ(5) = (PIRO + PRN2)*G20 KQ(6) = PRN2*G11 KQ(7) = KQ(3) KQ(8) = KQ(6) KQ(9) = PIRO*G20 + PRN2*G02 DO 200 I = 1,3 IPT = I - 1 IF (NPVT .EQ. NP(I)) GO TO 210 200 CONTINUE RETURN C 210 IPT = 3*IPT + 1 CALL GMMATD (H(IPT),1,3,0,KQ,3,3,0,KVEC) CALL GMMATD (KVEC,1,3,0,H(1),3,3,1,KG) JC = NPVT DO 220 I = 1,3 IR = NP(I) CALL SMA1B (KG(I),IR,JC,IFKGG,0.0D0) 220 CONTINUE 2000 RETURN C 1000 IR = NECPT(1)/1000 WRITE (OUT,5001) UFM,IR 5001 FORMAT (A23,' 5001, NEG. OR ZERO RADIUS DETECTED FOR CFLUID3 OR', 1 ' CFLUID4 ELEMENT',I12) NOGO = .TRUE. RETURN END ================================================ FILE: mis/kflud4.f ================================================ SUBROUTINE KFLUD4 C C THIS ROUTINE IS USED FOR THE 4-SIDED FLUID ELEMENT. IT REARRANGES C THE DATA AND CALLS THE KFLUD3 ROUTINE FOR EACH SUBELEMENT. C C THE ECPT DATA FOR THE ELEMENT AND ITS SUBELEMENTS ARE C C FIELD SYMBOL(FLUID4) SYMBOL(FLUID3) C 1 ID ID C 2 SIL1 SIL1 C 3 SIL2 SIL2 C 4 SIL3 SIL3 C 5 SIL4 RHO C 6 RHO BULK C 7 BULK N C 8 N CSF C 9 CSF R1 C 10 R1 Z1 C 11 Z1 - C 12 - CSF C 13 CSF R2 C 14 R2 Z2 C 15 Z2 - C 16 - CSF C 17 CSF R3 C 18 R3 Z3 C 19 Z3 - C 20 - C 21 CSF C 22 R4 C 23 Z4 C 24 - C 25 - C LOGICAL NOGO INTEGER OUT,NECPT(100) REAL KI CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,OUT,NOGO,SKIP(34),IAXIF COMMON /SMA1DP/ R(3),Z(3),NNEG,NJ,NPTJ,KI COMMON /SMA1CL/ IOPT1,K1GGSW,NPVT COMMON /SMA1ET/ ECPT(100) EQUIVALENCE (ECPT(1),NECPT(1)) C IF (NECPT(6).LE. 0.0) RETURN C C TEST FOR INTERIOR ANGLES GREATER THAN 180 DEGREES C NNEG = 0 IP = 0 DO 30 I = 1,4 DO 20 J = 1,3 NJ = I + J - 1 IF (NJ .GT. 4) NJ = NJ - 4 NPTJ = 4*(NJ-1) + 10 R(J) = ECPT(NPTJ ) 20 Z(J) = ECPT(NPTJ+1) IF (NPVT .EQ. NECPT(I+1)) IP = IP + 1 KI = (R(2)-R(1))*(Z(3)-Z(1)) - (R(3)-R(1))*(Z(2)-Z(1)) IF (KI) 25,2000,30 25 NNEG = NNEG + 1 30 CONTINUE IF (NNEG.EQ.1 .OR. NNEG.EQ.3) GO TO 2000 IF (IP .NE. 1) GO TO 2000 ECPT(6) = ECPT(6)*2.0 DO 50 I = 1,24 50 ECPT(I+50) = ECPT(I) DO 60 I = 5,24 60 ECPT(I) = ECPT(I+1) IRET = 1 GO TO 100 70 ECPT( 4) = ECPT(55) ECPT(17) = ECPT(72) ECPT(18) = ECPT(73) IRET = 2 GO TO 100 80 ECPT(13) = ECPT(68) ECPT(14) = ECPT(69) ECPT( 3) = ECPT(54) IRET = 3 GO TO 100 90 ECPT( 9) = ECPT(64) ECPT(10) = ECPT(65) ECPT( 2) = ECPT(53) IRET = 4 C 100 IF (NECPT(2).NE.NPVT .AND. NECPT(3).NE.NPVT .AND. 1 NECPT(4).NE.NPVT) GO TO 110 CALL KFLUD3 110 GO TO (70,80,90,120), IRET 120 RETURN C 2000 CONTINUE NJ = NECPT(1) IF (IAXIF .EQ. 0) GO TO 2001 NJ = NJ/1000 2001 CONTINUE WRITE (OUT,3000) UFM,NJ 3000 FORMAT (A23,' 5002, INTERIOR ANGLE GREATER THAN OR EQUAL TO 180 ', 1 'DEGREES FOR ELEMENT',I12) NOGO = .TRUE. RETURN END ================================================ FILE: mis/khrfn2.f ================================================ INTEGER FUNCTION KHRFN2 (WORD,J,IZB) C C CHARACTER FUNCTION KHRFN2 RECIEVES THE J-TH BYTE OF WORD C LEFT ADJUSTED IF J IS .GE. ZERO, OR RIGHT ADJUSTED IF J .LT. ZERO C ZERO FILL IF IZB IS ZERO, OTHERWISE, BLANK FILL C INTEGER WORD(1), BLANK COMMON /SYSTEM/ DUMMY(40), NCPW DATA BLANK / 4H / C I = 1 KHRFN2 = BLANK IF (IZB .EQ. 0) KHRFN2 = 0 IF (J .LT. 0) I = NCPW IJ = IABS(J) KHRFN2 = KHRFN1(KHRFN2,I,WORD(1),IJ) RETURN END ================================================ FILE: mis/khrfn3.f ================================================ INTEGER FUNCTION KHRFN3 (WORD1,WORD2,MOVE,IDIR) C C CHARACTER FUNCTION KHRFN3 MERGES TWO WORDS, WORD1 AND WORD2, BY C BYTES C C (+)MOVE IS NO. OF BYTES INVOLVED PRELIMINARY SHIFTING C (-)MOVE IS NO. OF BYTES IN MERGING, NO PRELIMINARY SHIFTING. C IDIR IS LEFT OR RIGHT SHIFT OF WORD2. THE VACANT BYTES ARE THEN C FILLED IN BY WORD1. (LEFT SHIFT IF IDIR=1, RIGHT SHIFT OTHERWISE) C C NOTE - KHRFN3 HANDLES ONLY 4 BYTES OF WORD. IF MACHINE WORD HAS C MORE THAN 4 BYTES PER WORD, KHRFN3 DOES NOT ZERO-FILL NOR BLANK- C FILL THE REST OF THE WORD. THE CALLER SHOULD MAKE THE PROPER C CHOICE BY ZERO-FILL OR BLANK-FILL THE INPUT WORDS, WORD1 ADN WORD2 C C THE FOLLOWING TABLE GIVES THE RESULTS OF KHRFN3 FOR VARIOUS INPUT C VALUES OF MOVE AND IDIR: C C GIVEN: WORD1=ABCD AND WORD2=1234 (IN BCD) C IDIR=1 IDIR.NE.1 IDIR=1 IDIR.NE.1 C -------------------- -------------------- C MOVE= 0: 1234 1234 MOVE=-0: 1234 1234 C MOVE= 1: 234D A123 MOVE=-1: 123D A234 C MOVE= 2: 34CD AB12 MOVE=-2: 12CD AB34 C MOVE= 3: 4BCD ABC1 MOVE=-3: 1BCD ABC4 C MOVE= 4: ABCD ABCD MOVE=-4: ABCD ABCD C C THIS ROUTINE WAS WRITTEN BY G.CHAN TO REPLACE THE ORIGINAL VAX C ROUTINE WHICH WAS VERY VERY INEFFICIENT. C INTEGER WORD1(1),WORD2(1),WORD3 C NCPW = 4 IMOVE = IABS(MOVE) IEND = NCPW - IMOVE WORD3 = WORD2(1) IF (MOVE) 50,90,10 10 WORD3 = WORD1(1) IF (IMOVE .GE. NCPW) GO TO 90 IF (IDIR .EQ. 1) GO TO 30 DO 20 I = 1,IEND WORD3 = KHRFN1(WORD3,I+IMOVE,WORD2(1),I) 20 CONTINUE GO TO 90 30 DO 40 I = 1,IEND WORD3 = KHRFN1(WORD3,I,WORD2(1),I+IMOVE) 40 CONTINUE GO TO 90 50 IF (IDIR .EQ. 1) GO TO 70 DO 60 I = 1,IMOVE WORD3 = KHRFN1(WORD3,I,WORD1(1),I) 60 CONTINUE GO TO 90 70 DO 80 I = 1,IMOVE WORD3 = KHRFN1(WORD3,I+IEND,WORD1(1),I+IEND) 80 CONTINUE 90 KHRFN3 = WORD3 RETURN END ================================================ FILE: mis/khrfn5.f ================================================ INTEGER FUNCTION KHRFN5 (WORD1,I,WORD2,J) C C THIS FUNCTION IS SAME AS KHRFN1 EXECPT THAT THE BYTE (WORD1(1) ONL C IS IN REVERSE ORDER. (THIS FUNCTION IS MAINLY USED BY VAX) C INTEGER WORD1(1), WORD2(1) COMMON /SYSTEM/ DUMMY(40), NCPW KHRFN5=KHRFN1(WORD1(1),NCPW-I+1,WORD2(1),J) RETURN END ================================================ FILE: mis/kompnt.f ================================================ FUNCTION KOMPNT (IG,IC,IDEG,IW,ICC,JG) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C THIS FUNCTION HAS AS ITS VALUE THE NUMBER OF COMPONENTS STORED C IN THE CONNECTION ARRAY IG. C ALSO, IC AND ICC ARE SET UP. C IC(I) =COMPONENT INDEX FOR NODE I C ICC(I)=THE STARTING POSITION TO BE USED FOR LABELS IN COMPONENT I C THUS, ICC(I+1)-ICC(I)= THE NUMBER OF NODES IN COMPONENT I C C INTEGER BUNPK DIMENSION IG(1), IC(1), IDEG(1), IW(1), ICC(1), 1 JG(1) COMMON /BANDS / NN, MM C DO 100 I=1,NN ICC(I)=0 IC(I)=0 100 CONTINUE NC=0 ICC(1)=1 105 DO 110 I=1,NN IF (IC(I)) 110,120,110 110 KOMPNT=NC GO TO 210 120 NC=NC+1 KI=0 KO=1 IW(1)=I IC(I)=NC IF (NC-1) 130,125,125 125 IS=ICC(NC)+1 ICC(NC+1)=IS 130 KI=KI+1 II=IW(KI) N =IDEG(II) IF (N) 140,105,140 140 CALL BUNPAK(IG,II,N,JG) DO 200 I=1,N IA=JG(I) IF (IC(IA)) 200,150,200 150 IC(IA)=NC KO=KO+1 IW(KO)=IA IS=ICC(NC+1)+1 ICC(NC+1)=IS 200 CONTINUE IF (KO-KI) 105,105,130 210 RETURN END ================================================ FILE: mis/korsz.f ================================================ FUNCTION KORSZ ( I ) COMMON / LOGOUT / LOUT COMMON / LSTADD / LASTAD KORSZ = LASTAD - LOCFX(I) + 1 CALL SSWTCH ( 13, L13 ) IF ( L13.NE.0 ) WRITE ( LOUT, 2000 ) KORSZ RETURN 2000 FORMAT(22X,' --- OPEN CORE =',I8,' WORDS (DECIMAL) ---') END ================================================ FILE: mis/kpanel.f ================================================ SUBROUTINE KPANEL (IARG) C***** C THIS ROUTINE COMPUTES THE 4 6 X 6 MATRICES K(NPVT,NPVT), K(NPVT,J1) C K(NPVT,J2), K(NPVT,J3) FOR A SHEAR PANEL (IF IARG = 4) AND FOR A C TWIST PANEL (IF IARG = 5) C***** C C E C P T F O R B O T H P A N E L S C ECPT( 1) - IELID ELEMENT ID. NO. C ECPT( 2) - ISILNO(4) SCALAR INDEX NUMBERS C ECPT( 3) - ... ... C ECPT( 4) - ... ... C ECPT( 5) - ... ... C ECPT( 6) - MATID MATERIAL ID. C ECPT( 7) - T THICKNESS C ECPT( 8) - FMU NON-STRUCTURAL MASS C ECPT( 9) - ICSID1 COOR. SYS. ID. FOR GRID POINT 1 C ECPT(10) - GP1(3) BASIC COORDINATES FOR GRID POINT 1 C ECPT(11) - ... ... C ECPT(12) - ... ... C ECPT(13) - ICSID2 COOR. SYS. ID. FOR GRID POINT 2 C ECPT(14) - GP2(3) BASIC COORDINATES FOR GRID POINT 2 C ECPT(15) - ... ... C ECPT(16) - ... ... C ECPT(17) - ICSID3 COOR. SYS. ID. FOR GRID POINT 3 C ECPT(18) - GP3(3) BASIC COORDINATES FOR GRID POINT 3 C ECPT(19) - ... ... C ECPT(20) - ... ... C ECPT(21) - ICSID4 COOR. SYS. ID. FOR GRID POINT 4 C ECPT(22) - GP4(3) BASIC COORDINATES FOR GRID POINT 4 C ECPT(23) - ... ... C ECPT(24) - ... ... C ECPT(25) - TEMPEL ELEMENT TEMPERATURE C C C C C C DOUBLE PRECISION 1 DPCON ,VLEFT(6) 2, VRIGHT(6) ,TI(9) 3, KE(36) ,DAMPC 4, VD1 ,VD2 5, VKN ,VK 6, V12 ,V41 7, VP12 ,VI 8, VJ ,AVEC 9, SMALLU ,SMALLV T, P ,X1 1, X2 ,X3 2, X4 ,Y1 3, Y2 ,Y3 4, Y4 ,VKL 5, PA ,V12DK 6, CEP1 ,CEP2 7, EP ,TEMP DOUBLE PRECISION 1 YP ,XP 2, SA ,XQ 4, B ,XL 5, A ,A2 6, A3 ,A4 7, A5 ,B2 8, B3 ,B4 9, B5 ,C T, C2 ,C3 1, C4 ,C5 2, D ,D2 3, D3 ,D4 4, D5 ,TERM1 5, TERM2 ,TERM3 6, TERM4 ,TERM5 7, XL13 ,XL24 DOUBLE PRECISION 1 VP12L ,VJL 2, Z ,TERM 3, F ,E 4, G ,NU 5, T ,C23 6, NUC REAL 1 NUSP C C C INTEGER 1 OUTRW ,CLSNRW 2, CLSRW ,EOR 3, FROWIC ,TNROWS C C C DIMENSION 1 VD1(3) ,VD2(3) 2, VKN(3) ,VK(3) 3, V12(3) ,V41(3) 4, VP12(3) ,VI(3) 5, VJ(3) ,AVEC(4) 6, SMALLU(4) ,SMALLV(4) 7, P(4) ,IECPT(100) 8, ECPT(100) C C C COMMON /SYSTEM/ 1 ISYS C C SMA1 I/O PARAMETERS C COMMON /SMA1IO/ 1 IFCSTM ,IFMPT 2, IFDIT ,IDUM1 3, IFECPT ,IGECPT 4, IFGPCT ,IGGPCT 5, IFGEI ,IGGEI 6, IFKGG ,IGKGG 7, IF4GG ,IG4GG 8, IFGPST ,IGGPST 9, INRW ,OUTRW T, CLSNRW ,CLSRW 1, NEOR ,EOR 2, MCBKGG(7) ,MCB4GG(7) C C SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS C COMMON /SMA1BK/ 1 ICSTM ,NCSTM 2, IGPCT ,NGPCT 3, IPOINT ,NPOINT 4, I6X6K ,N6X6K 5, I6X64 ,N6X64 C C SMA1 PROGRAM CONTROL PARAMETERS C COMMON /SMA1CL/ 1 IOPT4 ,K4GGSW 2, NPVT ,LEFT 3, FROWIC ,LROWIC 4, NROWSC ,TNROWS 5, JMAX ,NLINKS 6, LINK(10) ,IDETCK 7, DODET ,NOGO C C ECPT COMMON BLOCK C COMMON /SMA1ET/ 1 IELID ,ISILNO(4) 2, MATID ,TSP 3, FMU ,ICSID1 4, GP1(3) ,ICSID2 5, GP2(3) ,ICSID3 6, GP3(3) ,ICSID4 7, GP4(3) ,TEMPEL C C SMA1 LOCAL VARIABLES C COMMON /SMA1DP/ 1 KE ,TI 2, VLEFT ,VRIGHT 3, DAMPC ,DPCON 4, VD1 ,VD2 5, VKN ,VK 6, V12 ,V41 7, VP12 ,VI 8, VJ ,AVEC 9, SMALLU ,SMALLV T, P ,X1 1, X2 ,X3 2, X4 ,Y1 3, Y2 ,Y3 4, Y4 ,VKL 5, PA ,V12DK 6, CEP1 ,CEP2 7, EP ,TEMP COMMON /SMA1DP/ 1 YP ,XP 2, SA ,XQ 4, B ,XL 5, A ,A2 6, A3 ,A4 7, A5 ,B2 8, B3 ,B4 9, B5 ,C T, C2 ,C3 1, C4 ,C5 2, D ,D2 3, D3 ,D4 4, D5 ,TERM1 5, TERM2 ,TERM3 6, TERM4 ,TERM5 7, XL13 ,XL24 COMMON /SMA1DP/ 1 VP12L ,VJL 2, Z ,TERM 3, F ,E 4, G ,NU 5, T ,C23 6, NUC C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH C C C COMMON /MATOUT/ 1 ESP ,GSP 2, NUSP ,RHO 3, ALPHA ,TSUBO 4, GSUBE ,SIGT 5, SIGC ,SIGS C C C EQUIVALENCE ( IECPT(1), ECPT(1), IELID ) C C CALL MAT TO GET MATERIAL PROPERTIES. C MATIDC = MATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) DAMPC = G SUB E C C STORE ECPT AND MPT VARIABLES IN DOUBLE PRECISION LOCATIONS C E = ESP G = GSP NU = NUSP T = TSP IF(T*G .EQ. 0.0) GO TO 250 C23 = 2.0D0 / 3.0D0 NUC = 1.0D0 / (1.0D0 + NU) C C COMPUTE DIAGONAL VECTORS. C DO 10 I=1,3 VD1(I) = GP3(I) - GP1(I) 10 VD2(I) = GP4(I) - GP2(I) C C COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED C AREA, PA C VKN(1) = VD1(2)*VD2(3)-VD1(3)*VD2(2) VKN(2) = VD1(3)*VD2(1)-VD1(1)*VD2(3) VKN(3) = VD1(1)*VD2(2)-VD1(2)*VD2(1) VKL = DSQRT (VKN(1)**2 + VKN(2)**2 + VKN(3)**2 ) IF (VKL .EQ. 0.0D0) GO TO 230 VK(1) = VKN(1)/VKL VK(2) = VKN(2)/VKL VK(3) = VKN(3)/VKL PA = .5D0 * VKL C C COMPUTE SIDES -12- AND -41- C DO 20 I=1,3 V12(I) = GP2(I) - GP1(I) 20 V41(I) = GP1(I) - GP4(I) C C COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12, VI, VJ C V12DK = V12(1)*VK(1)+V12(2)*VK(2)+V12(3)*VK(3) VP12(1) = V12(1)-V12DK*VK(1) VP12(2) = V12(2)-V12DK*VK(2) VP12(3) = V12(3)-V12DK*VK(3) VP12L = DSQRT (VP12(1)**2 + VP12(2)**2 + VP12(3)**2 ) IF (VP12L .EQ. 0.0D0) GO TO 240 VI(1) = VP12(1)/VP12L VI(2) = VP12(2)/VP12L VI(3) = VP12(3)/VP12L VJ(1) = VK(2)*VI(3)-VK(3)*VI(2) VJ(2) = VK(3)*VI(1)-VK(1)*VI(3) VJ(3) = VK(1)*VI(2)-VK(2)*VI(1) C C NORMALIZE J FOR GOOD MEASURE C VJL = DSQRT (VJ(1)**2 + VJ(2)**2 + VJ(3)**2 ) IF (VJL .EQ. 0.0D0) GO TO 250 VJ(1) = VJ(1) / VJL VJ(2) = VJ(2) / VJL VJ(3) = VJ(3) / VJL X1 = 0.0D0 Y1 = 0.0D0 X2 = VP12L Y2 = 0.0D0 X3 = VI(1) * VD1(1) + VI(2) * VD1(2) + VI(3) * VD1(3) Y3 = VJ(1) * VD1(1) + VJ(2) * VD1(2) + VJ(3) * VD1(3) X4 =-VI(1) * V41(1) - VI(2) * V41(2) - VI(3) * V41(3) Y4 =-VJ(1) * V41(1) - VJ(2) * V41(2) - VJ(3) * V41(3) C C CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES. IF NOT, C CALL FATAL ERROR MESSAGE. C IF (Y3 .LE. 0.0D0) GO TO 260 IF(Y4 .LE. 0.0D0) GO TO 280 IF(X3 .LE. Y3*X4/Y4) GO TO 270 IF (X4 .GE. X2 - (X2-X3)*Y4/Y3) GO TO 290 C C TEST FOR PARALLEL EFFECTS. C TEMP = X3 - X2 EP=1.0D-1 IF (DABS(Y3-Y4).LT.DABS(X3-X4)*EP) GO TO 30 IF (DABS(Y4*TEMP-Y3*X4).LT.DABS(X4*TEMP+Y4*Y3)*EP) GO TO 40 GO TO 70 30 IF (DABS(Y4*TEMP-Y3*X4).LT.DABS(X4*TEMP+Y4*Y3)*EP) GO TO 50 C C AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO THE C LINE CONNECTING POINTS 1 AND 2. C TEMP = Y3*X4 - Y4 * (X3-X2) YP = X2*Y3*Y4 / TEMP P(1) = YP - Y1 P(2) = YP - Y2 P(3) = YP - Y3 P(4) = YP - Y4 XP = X2*Y3*X4 / TEMP SA =(X2 - XP) / YP C =(X1 - XP) / YP Z = ( (P(1)*P(2)*PA) / (P(3)*P(4)*2.0D0*G*T) ) * 1 (1.0D0 + C23*NUC * (SA**2 + SA*C + C**2) ) GO TO 80 C C AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO THE C LINE CONNECTING POINTS 2 AND 3. C 40 D = -.5D0 * ( X4/Y4 + (X3-X2) / Y3 ) XQ = X4 - Y4 * (X3-X4)/(Y3-Y4) TEMP = 1.0D0 / DSQRT (1.0D0 + D**2) P(1) = ( XQ - X1 - D*Y1) * TEMP P(2) = ( XQ - X2 - D*Y2) * TEMP P(3) = ( XQ - X3 - D*Y3) * TEMP P(4) = ( XQ - X4 - D*Y4) * TEMP TEMP = XQ - X4 B = (TEMP * D + Y4) / (TEMP - Y4*D) Z = ( (P(1)*P(2)*PA) / (P(3)*P(4)*2.0D0*G*T) ) * 1 (1.0D0 + C23*NUC* (B**2 + B*D + D**2) ) GO TO 80 C C IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM. C 50 DO 60 I=1,4 60 P(I) = 1.0D0 D = -.5D0 * ( X4/Y4 + (X3-X2)/Y3 + (Y3-Y4)/(X3-X4) ) Z = PA / (2.0D0*G*T) * (1.0D0 + 2.0D0*D**2*NUC) GO TO 80 C C IN THIS CASE NO PARALLEL EFFECTS EXIST. C 70 XQ = X4 - (X3-X4)/(Y3-Y4) * Y4 TEMP = Y3*X4 - Y4*(X3-X2) XP = X2*Y3*X4 / TEMP YP = X2*Y3*Y4 / TEMP XL = DSQRT ( (XQ-XP)**2 + YP**2 ) D = (XQ-XP)/YP TEMP = YP/XL P(1) = TEMP * (XQ - X1 - D*Y1) P(2) = TEMP * (XQ - X2 - D*Y2) P(3) = TEMP * (XQ - X3 - D*Y3) P(4) = TEMP * (XQ - X4 - D*Y4) C = XL/P(1) - D B = XL/P(4) - C A = XL/P(2) - D A2 = A**2 B2 = B**2 C2 = C**2 D2 = D**2 A3 = A2*A B3 = B2*B C3 = C2*C D3 = D2*D A4 = A3*A B4 = B3*B C4 = C3*C D4 = D3*D A5 = A4*A B5 = B4*B C5 = C4*C D5 = D4*D TEMP = .5D0 * P(1) * P(2) * P(3) * P(4) / XL**2 TERM = A + B + C23*(A3+B3) + .2D0*(A5+B5) TERM1= C + D + C23*(C3+D3) + .2D0*(C5+D5) TERM2= B + C + C23*(B3+C3) + .2D0*(B5+C5) TERM3= D + A + C23*(D3+A3) + .2D0*(D5+A5) TERM = TERM * DLOG( DABS (A+B) ) TERM1= TERM1* DLOG( DABS (C+D) ) TERM2= TERM2* DLOG( DABS (B+C) ) TERM3= TERM3* DLOG( DABS (D+A) ) TERM4= .1D0*( (A2-C2)*(B3-D3) + (B2-D2)*(A3-C3) ) TERM5= .2D0*( (A -C )*(B4-D4) + (B -D )*(A4-C4) ) F = TEMP * (TERM + TERM1 - TERM2 - TERM3 + TERM4 - TERM5) Z = P(1)*P(2) / (P(3)*P(4)*2.0D0*G*T) * (PA + 4.0D0*NUC* 1 (F - C23*PA)) 80 XL13 = DSQRT (X3**2 + Y3**2) XL24 = DSQRT ( (X4-X2)**2 + Y4**2 ) SMALLU(1) = X3/XL13 SMALLU(2) = (X4-X2)/XL24 SMALLU(3) = SMALLU(1) SMALLU(4) = SMALLU(2) SMALLV(1) = Y3/XL13 SMALLV(2) = Y4/XL24 SMALLV(3) = SMALLV(1) SMALLV(4) = SMALLV(2) TEMP = X4 * Y3 - X3 * Y4 AVEC(1) = -.5D0 * X2 * Y4 * XL13 / TEMP AVEC(2) = .5D0 * X2 * Y3 * XL24 / (TEMP - X2 * (Y3-Y4) ) AVEC(3) = - AVEC(1) AVEC(4) = - AVEC(2) C C IF IARG = 4, WE HAVE A SHEAR PANEL, AND IF IARG = 5, A TWIST PANEL. C IF (IARG .EQ. 4) GO TO 100 C C SINCE WE ARE DEALING WITH A TWIST PANEL STORE -SMALLV IN SMALLU AND C SMALLU IN SMALLV. C DO 90 I=1,4 TEMP = SMALLU(I) SMALLU(I) = -SMALLV(I) 90 SMALLV(I) = TEMP C C SEARCH THE LIST OF THE 4 SIL NOS. TO DETERMINE WHICH IS THE PIVOT C 100 DO 110 I=1,4 IF (ISILNO(I) .NE. NPVT) GO TO 110 IPVT = I GO TO 120 110 CONTINUE CALL MESAGE (-30,34,IECPT(1)) C C COMPUTE THE DOUBLE PRECISION CONSTANT DPCON C 120 IF (IARG .EQ. 5) GO TO 130 DPCON = AVEC(IPVT) / (2.0D0 * Z) GO TO 140 130 DPCON = AVEC(IPVT) * T**2 / (24.0D0 * Z) C C COMPUTE THE -VLEFT- VECTOR C 140 IVLBEG = 1 VLEFT(1) = VI(1) * SMALLU(IPVT) + VJ(1) * SMALLV(IPVT) VLEFT(2) = VI(2) * SMALLU(IPVT) + VJ(2) * SMALLV(IPVT) VLEFT(3) = VI(3) * SMALLU(IPVT) + VJ(3) * SMALLV(IPVT) IF (IECPT(4*IPVT+5) .EQ. 0) GO TO 150 CALL TRANSD (IECPT(4*IPVT+5),TI) IVLBEG = 4 CALL GMMATD (TI,3,3,1, VLEFT(1),3,1,0, VLEFT(4) ) C C ZERO OUT THE 6 X 6 MATRIX KE C 150 DO 160 I=1,36 160 KE(I) = 0.0D0 C C COMPUTE THE 6 X 6 -S C DO 220 J=1,4 IVRBEG = 1 VRIGHT(1) = SMALLU(J) * VI(1) + SMALLV(J) * VJ(1) VRIGHT(2) = SMALLU(J) * VI(2) + SMALLV(J) * VJ(2) VRIGHT(3) = SMALLU(J) * VI(3) + SMALLV(J) * VJ(3) IF (IECPT(4*J+5) .EQ. 0) GO TO 170 CALL TRANSD (IECPT(4*J+5),TI) CALL GMMATD (VRIGHT(1),1,3,0, TI,3,3,0, VRIGHT(4) ) IVRBEG = 4 170 CALL GMMATD (VLEFT(IVLBEG),3,1,0, VRIGHT(IVRBEG),1,3,0, KE(1) ) DO 180 K=1,9 180 KE(K) = DPCON * KE(K) * AVEC(J) IF (IARG . EQ. 5) GO TO 190 KE(13) = KE(7) KE(14) = KE(8) KE(15) = KE(9) KE( 7) = KE(4) KE( 8) = KE(5) KE( 9) = KE(6) KE( 4) = 0.0D0 KE( 5) = 0.0D0 KE( 6) = 0.0D0 GO TO 210 190 KE(22) = KE(1) KE(23) = KE(2) KE(24) = KE(3) KE(28) = KE(4) KE(29) = KE(5) KE(30) = KE(6) KE(34) = KE(7) KE(35) = KE(8) KE(36) = KE(9) DO 200 II=1,9 200 KE(II) = 0.0D0 210 CALL SMA1B (KE,IECPT(J+1),-1,IFKGG,0.0D0) IF (IOPT4 .EQ. 0 .OR. G SUB E .EQ. 0.0) GO TO 220 K4GGSW = 1 CALL SMA1B (KE,IECPT(J+1),-1,IF4GG,DAMPC) 220 CONTINUE RETURN 230 CONTINUE 240 CONTINUE 250 CALL MESAGE(30,26,IECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN 260 IECPT(2) = 2 GO TO 300 270 IECPT(2) = 4 GO TO 300 280 IECPT(2) = 1 GO TO 300 290 IECPT(2) = 3 300 CALL MESAGE(30,27,IECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN END ================================================ FILE: mis/kpltst.f ================================================ SUBROUTINE KPLTST (G1,G2,G3,G4) C C THIS ROUTINE WILL VERIFY THAT THE 4 GRID POINTS IN 3 SPACE LIE IN C AN APPROXIMATE PLANE. IF NOT THE NOGO FLAG IS SET TRUE AND A C MESSAGE IS WRITEN. C LOGICAL NOGO INTEGER OUT REAL G1(3),G2(3),G3(3),G4(3) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ SYSBUF,OUT,NOGO COMMON /SMA1ET/ ID COMMON /SMA1DP/ R13(3),R24(3),RXR(3),R(3) C R13(1) = G3(1) - G1(1) R13(2) = G3(2) - G1(2) R13(3) = G3(3) - G1(3) R24(1) = G4(1) - G2(1) R24(2) = G4(2) - G2(2) R24(3) = G4(3) - G2(3) CALL SAXB (R13,R24,RXR) C C NORMALIZE C DL = SQRT(RXR(1)**2 + RXR(2)**2 + RXR(3)**2) IF (DL) 20,20,10 10 RXR(1) = RXR(1)/DL RXR(2) = RXR(2)/DL RXR(3) = RXR(3)/DL R1L = SQRT(R13(1)**2 + R13(2)**2 + R13(3)**2) R2L = SQRT(R24(1)**2 + R24(2)**2 + R24(3)**2) DL = AMIN1(R1L,R2L) R(1) = G2(1) - G1(1) R(2) = G2(2) - G1(2) R(3) = G2(3) - G1(3) DH = SADOTB(R,RXR) IF (DL) 20,20,15 15 IF (ABS(DH/DL) .LE. 0.10) RETURN C C NOT PLANER C 20 CALL PAGE2 (-2) WRITE (OUT,30) UWM,ID 30 FORMAT (A25,' 4000, ONE SIDE OF ELEMENT',I10, 1 ' CONNECTING FOUR POINTS IS NOT APPROXIMATELY PLANER.') RETURN END ================================================ FILE: mis/kqdmem.f ================================================ SUBROUTINE KQDMEM C C *** QUADRILATERAL MEMBRANE SUBROUTINE *** C C CALLS FROM THIS ROUTINE ARE MADE TO THE FOLLOWING C C KTRMEM - TRIANGULAR MEMBRANE SUBROUTINE C SMA1B - INSERTION ROUTINE C MESAGE - ERROR MESSAGE WRITER C LOGICAL HRING,HEAT REAL IVEC,JVEC,KVEC DOUBLE PRECISION KIJ,KSUM,K3X3,TEMP DIMENSION M(12),K3X3(27),NECPT(8) COMMON /CONDAS/ CONSTS(5) COMMON /SMA1HT/ HEAT COMMON /SMA1ET/ ECPT(100) COMMON /SMA1IO/ DUM1(10),IFKGG,DUM2(1),IF4GG,DUM3(23) COMMON /SMA1CL/ IOPT4,K4GGSW,NPVT,DUMCL(7),LINK(10),IDETCK, 1 DODET,NOGO COMMON /SMA1DP/ KIJ(36),DUM7(156),KSUM(36),TEMP,COSANG,SINANG , 1 VECL,IVEC(3),JVEC(3),KVEC(3),PVEC(3),VSUBK(3), 2 V(3),SI(3),NPIVOT,MPOINT,MI,NSUBSC,NGRID(4),U1,U2, 3 COORD(16),DUMM8(248) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ DUM99(11),GSUBE,DUM88(6) EQUIVALENCE (CONSTS(4),DEGRA), (K3X3(1),KIJ(1)), 1 (NECPT(1),ECPT(1)) DATA M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 / DATA PIOVR3/ 1.0471975512 / C C ****************************************************************** C ECPT ECPT C RECEIVED BY REQUIRED BY C KQDMEM KTRMEM C ****************************************************************** C ECPT( 1) = EL. ID ECPT( 1) = EL. ID C ECPT( 2) = GRD. PT. A ECPT( 2) = GRD. PT. A C ECPT( 3) = GRD. PT. B ECPT( 3) = GRD. PT. B C ECPT( 4) = GRD. PT. C ECPT( 4) = GRD. PT. C C ECPT( 5) = GRD. PT. D ECPT( 5) = THETA C ECPT( 6) = THETA ECPT( 6) = MATERIAL ID C ECPT( 7) = MATERIAL ID ECPT( 7) = T C ECPT( 8) = T ECPT( 8) = NON-STRUCT. MASS C ECPT( 9) = NON-STRUCT. MASSECPT( 9) = COORD. SYS. ID 1 C ECPT(10) = COORD. SYS. ID 1ECPT(10) = X1 C ECPT(11) = X1 ECPT(11) = Y1 C ECPT(12) = Y1 ECPT(12) = Z1 C ECPT(13) = Z1 ECPT(13) = COORD. SYS. ID 2 C ECPT(14) = COORD. SYS. ID 2ECPT(14) = X2 C ECPT(15) = X2 ECPT(15) = Y2 C ECPT(16) = Y2 ECPT(16) = Z2 C ECPT(17) = Z2 ECPT(17) = COORD. SYS. ID 3 C ECPT(18) = COORD. SYS. ID 3ECPT(18) = X3 C ECPT(19) = X3 ECPT(19) = Y3 C ECPT(20) = Y3 ECPT(20) = Z3 C ECPT(21) = Z3 ECPT(21) = ELEMENT TEMPERATURE C ECPT(22) = COORD. SYS. ID 4 NOTE. THE FOLLOWING ARE INTEGERS... C ECPT(23) = X4 GRID POINTS, MAT ID, EL.ID, C ECPT(24) = Y4 COORD. SYS. IDS. C ECPT(25) = Z4 ALL OTHERS ARE REAL IN THE ECPT. C ECPT(26) = ELEMENT TEMPERATURE C ****************************************************************** C HRING = .FALSE. IF (NECPT(8) .EQ. 1) HRING = .TRUE. C C THE FOLLOWING COMPUTATION IS PERFORMED FOR USE WITH THE C COMPUTATION OF SINTH AND COSTH BELOW (ANISOTROPIC MATERIAL C POSSIBILITY) NOTE FMMS-46 PAGE -9- C ANGL = ECPT(6)*DEGRA COSANG = COS(ANGL) SINANG = SIN(ANGL) IVEC(1) = ECPT(15) - ECPT(11) IVEC(2) = ECPT(16) - ECPT(12) IVEC(3) = ECPT(17) - ECPT(13) VECL = SQRT(IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2) IF (VECL .EQ. 0.0) GO TO 200 IVEC(1) = IVEC(1)/VECL IVEC(2) = IVEC(2)/VECL IVEC(3) = IVEC(3)/VECL VSUBK(1)= IVEC(2)*(ECPT(25)-ECPT(13))-IVEC(3)*(ECPT(24)-ECPT(12)) VSUBK(2)= IVEC(3)*(ECPT(23)-ECPT(11))-IVEC(1)*(ECPT(25)-ECPT(13)) VSUBK(3)= IVEC(1)*(ECPT(24)-ECPT(12))-IVEC(2)*(ECPT(23)-ECPT(11)) VECL = SQRT(VSUBK(1)**2 + VSUBK(2)**2 + VSUBK(3)**2 ) IF (VECL .EQ. 0.0) GO TO 200 KVEC(1) = VSUBK(1)/VECL KVEC(2) = VSUBK(2)/VECL KVEC(3) = VSUBK(3)/VECL JVEC(1) = KVEC(2)*IVEC(3) - KVEC(3)*IVEC(2) JVEC(2) = KVEC(3)*IVEC(1) - KVEC(1)*IVEC(3) JVEC(3) = KVEC(1)*IVEC(2) - KVEC(2)*IVEC(1) DO 10 I = 1,3 10 PVEC(I) = COSANG*IVEC(I) + SINANG*JVEC(I) C C C SAVE COORDINATE SYSTEMS AND GRID POINT SIL NUMBERS C NGRID(1) = NECPT(2) NGRID(2) = NECPT(3) NGRID(3) = NECPT(4) NGRID(4) = NECPT(5) DO 20 I = 1,16 20 COORD(I) = ECPT(I+9) C C NOTE. COORD 1, 5, 9, AND 13 ARE INTEGER CSID NUMBERS. C C CORRECT ECPT FOR MEMBRANE USE ECPT(5) = ECPT(6) ECPT(6) = ECPT(7) IF (HRING) GO TO 21 ECPT(7) = ECPT(8)/2.0 21 CONTINUE ECPT(8) = ECPT(9) ECPT(21)= ECPT(26) C C FOR EACH TRIANGLE THEN THE THREE GRID POINTS AND COORDINATES C ARE INSERTED INTO THE ECPT BEFORE THE CALL TO KTRMEM. C C FILL MAP MATRIX (PERFORMED IN DATA STATEMENT - DO NOT ALTER) C A B C C M1 = 1 M2 = 2 M3 = 4 (TRIANGLE I) C C M4 = 2 M5 = 3 M6 = 1 (TRIANGLE II) C C M7 = 3 M8 = 4 M9 = 2 (TRIANGLE III) C C M10= 4 M11= 1 M12= 3 (TRIANGLE IV) C C ****************************************************************** C C FIND WHICH POINT IS THE PIVOT POINT. C DO 30 I = 1,4 IF (NPVT .NE. NGRID(I)) GO TO 30 NPIVOT = I GO TO 40 30 CONTINUE C C FALL THRU ABOVE LOOP IMPLIES AN ERROR CONDITION. C CALL MESAGE (-30,34,ECPT(1)) C C COMPUTE JNOT WHICH EQUALS THE ONE TRIANGLE OF THE FOUR NOT USED C AND THUS NOT COMPUTED FOR THE PIVOT POINT IN QUESTION. (NOTE THE C ROWS OF THE MAPPING MATRIX ABOVE AND THE TRIANGLE NUMBERS) C 40 IF (NPIVOT-2) 50,50,60 50 JNOT = NPIVOT + 2 GO TO 70 60 JNOT = NPIVOT - 2 C C ZERO OUT KSUM FOR 36 WORDS C 70 DO 80 I = 1,36 80 KSUM(I) = 0.0D0 C C LOOP THRU 4 TRIANGLES C DO 150 J = 1,4 IF (J .EQ. JNOT) GO TO 150 C C FILL IN ECPT FOR TRIANGLE J C MPOINT = 3*J - 3 DO 100 I = 1,3 NPT1 = MPOINT + I NSUBSC = M(NPT1) NECPT(I+1) = NGRID(NSUBSC) C NPT1 = 4*NSUBSC - 4 DO 90 K = 1,4 NPT2 = NPT1 + K NPT3 = 4*I + 4 + K 90 ECPT(NPT3) = COORD(NPT2) 100 CONTINUE C C RECOMPUTE THICKNESS IF THIS IS A SUB-TRIANGLE OF A TRAPRG IN C A -HEAT- PROBLEM. C IF (HRING) ECPT(7) = PIOVR3*(ECPT(10) + ECPT(14) + ECPT(18)) C C ECPT IS COMPLETE FOR TRIANGLE J C C SET UP SINTH AND COSTH FOR THIS SUB TRIANGLE C IF (J .NE. 1) GO TO 110 SINTH = SINANG COSTH = COSANG GO TO 120 C C NOTE FMMS-46 PAGE-9 FOR FOLLOWING C 110 V(1) = ECPT(14) - ECPT(10) V(2) = ECPT(15) - ECPT(11) V(3) = ECPT(16) - ECPT(12) VECL = SQRT(V(1)**2 + V(2)**2 + V(3)**2) IF (VECL .EQ. 0.0) GO TO 200 U1 = (V(1)*PVEC(1) + V(2)*PVEC(2) + V(3)*PVEC(3))/VECL SI(1) = V(2)*PVEC(3) - V(3)*PVEC(2) SI(2) = V(3)*PVEC(1) - V(1)*PVEC(3) SI(3) = V(1)*PVEC(2) - V(2)*PVEC(1) U2 = (SI(1)*KVEC(1) + SI(2)*KVEC(2) + SI(3)*KVEC(3))/VECL VECL = SQRT(U1**2 + U2**2) IF (VECL.EQ.0.0E0) GO TO 200 U1 = U1/VECL U2 = U2/VECL SINTH = U2 COSTH = U1 120 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 C CALL KTRMEM (1) C C RETURNING FROM KTRMEM THE 3 3X3 ARRAYS FOR THE PIVOT ARE STORED IN C COMMON UNDER THE NAME K3X3(27) C C NOW ADD THE 3 3X3 ARRAYS INTO THE 4 3X3 ARRAYS OF KSUM C DO 140 I = 1,3 NPT1 = 9*I - 9 C C NPT1 POINTS TO THE ZERO POSITION OF THE I-TH K3X3. C MPOINT POINTS TO THE ZERO POSITION OF THE J-TH ROW OF MAP MATRIX C MI = MPOINT + I NPT2 = 9*M(MI) - 9 C NPT2 NOW POINTS TO THE ZERO POSITION OF THE M(MI) TH SUM MATRIX C DO 130 K = 1,9 NPT3 = NPT2 + K MI = NPT1 + K 130 KSUM(NPT3) = KSUM(NPT3) + K3X3(MI) 140 CONTINUE C 150 C O N T I N U E C C ****************************************************************** C C NOW INSERT EACH OF THE 4-KSUM (3X3) MATRICES INTO A 6X6 AND C SHIP TO SMA1B C IF (HEAT) GO TO 250 DO 160 I = 1,36 160 KIJ(I) = 0.0D0 C DO 190 J = 1,4 MPOINT = 9*J - 9 C C MPOINT POINTS TO THE ZERO POSITION OF THE J-TH KSUM 3X3. C KIJ( 1) = KSUM(MPOINT + 1) KIJ( 2) = KSUM(MPOINT + 2) KIJ( 3) = KSUM(MPOINT + 3) KIJ( 7) = KSUM(MPOINT + 4) KIJ( 8) = KSUM(MPOINT + 5) KIJ( 9) = KSUM(MPOINT + 6) KIJ(13) = KSUM(MPOINT + 7) KIJ(14) = KSUM(MPOINT + 8) KIJ(15) = KSUM(MPOINT + 9) C C SHIP TO SMA1B C CALL SMA1B (KIJ(1),NGRID(J),-1,IFKGG,0.0D0) C IF (IOPT4.EQ.0 .OR. GSUBE.EQ.0.0) GO TO 190 TEMP = GSUBE CALL SMA1B (KIJ(1),NGRID(J),-1,IF4GG,TEMP) K4GGSW = 1 190 CONTINUE C C ****************************************************************** C RETURN 200 CALL MESAGE (30,26,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULA C NOGO=1 RETURN C***** C HEAT FORMULATION. C***** 250 DO 260 J = 1,4 CALL SMA1B (KSUM(9*J-8),NGRID(J),NPVT,IFKGG,0.0D0) 260 CONTINUE RETURN END ================================================ FILE: mis/kqdplt.f ================================================ SUBROUTINE KQDPLT C C THIS ROUTINE GENERATES THE FOLLOWING C C 4-6X6 STIFFNESS MATRICES WITH RESPECT TO ONE PIVOT POINT OF A C QUADRILATERAL PLATE ELEMENT. C C REF. FMMS-44 JULY 18, 1967 TRI.BENDING ELEMENT STIFF. C FMMS-48 AUGUST 1, 1967 QUAD. BENDING ELEMENT STIFF. C C CALLS FROM THIS ROUTINE ARE MADE TO C KTRBSC - BASIC BENDING TRI. ROUTINE. C TRANSD - SUPPLIES 3X3 TRANSFORMATIONS C SMA1B - INSERTION ROUTINE C GMMATD - GENERAL MATRIX MULITPLY AND TRANSPOSE ROUTINE C MESAGE - ERROR MESSAGE WRITER C INTEGER SUBSCA,SUBSCB,SUBSCC DOUBLE PRECISION KOUT,TITE,DPDUM1,TJTE,DPDUM2,IVECT,D1,JVECT,D2, 1 KVECT,A1,KSUM,T,XSUBB,V,XSUBC,VV,YSUBC,PROD9, 2 TEMP,TEMP9,U1,H,U2,E,A,TEMP18,REQUIV,R DIMENSION M(12),NECPT(100),REQUIV(8),VQ1(3),VQ2(3),VQ3(3), 1 VQ4(3),A(1) COMMON /CONDAS/ CONSTS(5) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE, 2 G2X211, G2X212, G2X222 COMMON /SMA1IO/ DUM1(10),IFKGG,DUM2(1),IF4GG,DUM3(23) COMMON /SMA1CL/ IOPT4,K4GGSW,NPVT,DUMCL(7),LINK(10),IDETCK,DODET, 1 NOGO COMMON /SMA1ET/ ECPT(100) COMMON /SMA1DP/ KOUT(36),TITE(18),TJTE(18),TEMP18(18),DPDUM1(54), 1 IVECT(3),JVECT(3),KVECT(3),D1(3),D2(3),A1(3), 2 T(9),V(2),VV(2),H,U1,U2,R(2,4),KSUM(36), 3 DPDUM2(3),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC, 4 E(18),TEMP,SP1(28),SP2(2),KM,NBEGIN,JNOT,NPIVOT, 5 THETA,NSUBC,ISING,SUBSCA,SUBSCB,SUBSCC,SINANG, 6 COSANG,NPOINT EQUIVALENCE (CONSTS(4),DEGRA),(NECPT(1),ECPT(1)), 1 (R(1,1),REQUIV(1)),(VQ1(1),ECPT(15)), 2 (VQ2(1),ECPT(19)),(VQ3(1),ECPT(23)), 3 (VQ4(1),ECPT(27)),(A(1),KOUT(1)) DATA M / 2,4,1, 3,1,2, 4,2,3, 1,3,4 / C C C ECPT LISTS AS OF AUGUST 4, 1967 C C DEFINITION DEFINITION C ECPT BSC.BEND.TRI.-----TYPE QUAD.PLT.---------TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID INTEGER ** ELEMENT INTEGER C ECPT( 2) = GRID PT. A INTEGER ** GRID PT.A INTEGER C ECPT( 3) = GRID PT. B INTEGER ** GRID PT.B INTEGER C ECPT( 4) = GRID PT. C INTEGER ** GRID PT.C INTEGER C ECPT( 5) = THETA REAL ** GRID PT.D INTEGER C ECPT( 6) = MAT ID 1 INTEGER ** THETA REAL C ECPT( 7) = I MOM. OF INERT. REAL ** MAT ID 1 INTEGER C ECPT( 8) = MAT ID 2 INTEGER ** I MOM. OF INERT. REAL C ECPT( 9) = T2 REAL ** MAT ID 2 INTEGER C ECPT(10) = NON-STRUCT. MASS REAL ** T2 REAL C ECPT(11) = Z1 REAL ** NON-STRUCT. MASS REAL C ECPT(12) = Z2 REAL ** Z1 REAL C ECPT(13) = COORD. SYS. ID 1 INTEGER ** Z2 REAL C ECPT(14) = X1 REAL ** COORD. SYS. ID 1 INTEGER C ECPT(15) = Y1 REAL ** X1 REAL C ECPT(16) = Z1 REAL ** Y1 REAL C ECPT(17) = COORD. SYS. ID 2 INTEGER ** Z1 REAL C ECPT(18) = X2 REAL ** COORD. SYS. ID 2 INTEGER C ECPT(19) = Y2 REAL ** X2 REAL C ECPT(20) = Z2 REAL ** Y2 REAL C ECPT(21) = COORD. SYS. ID 3 INTEGER ** Z2 REAL C ECPT(22) = X3 REAL ** COORD. SYS. ID 3 INTEGER C ECPT(23) = Y3 REAL ** X3 REAL C ECPT(24) = Z3 REAL ** Y3 REAL C ECPT(25) = ELEMENT TEMP REAL ** Z3 REAL C ECPT(26) = ** COORD. SYS. ID 4 INTEGER C ECPT(27) = ** X4 REAL C ECPT(28) = ** Y4 REAL C ECPT(29) = ** Z4 REAL C ECPT(30) = ** ELEMENT TEMP REAL C C DETERMINE PIVOT POINT NUMBER C DO 10 I = 1,4 IF (NPVT .NE. NECPT(I+1)) GO TO 10 NPIVOT = I GO TO 20 10 CONTINUE C C FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION C CALL MESAGE (-30,34,ECPT(1)) C 20 THETA = ECPT(6)*DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) C IF (NPIVOT-2) 30,30,40 30 JNOT = NPIVOT + 2 GO TO 50 40 JNOT = NPIVOT - 2 C C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X4) FOR QUADRILATERAL PLATE... C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX C 50 DO 60 I = 1,8 60 REQUIV(I) = 0.0D0 C C SHIFT ECPT UP TO MATCH KTRBSC FOR CERTAIN VARIABLES. C DO 80 I = 6,12 80 ECPT(I) = ECPT(I+1) C DO 90 I = 1,3 D1(I) = DBLE(VQ3(I)) - DBLE(VQ1(I)) D2(I) = DBLE(VQ4(I)) - DBLE(VQ2(I)) 90 A1(I) = DBLE(VQ2(I)) - DBLE(VQ1(I)) C C NON-NORMALIZED K-VECTOR = D1 CROSS D2 C KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3) KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1) KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2) C C NORMALIZE K-VECTOR C TEMP = DSQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2) IF (TEMP .EQ. 0.0D0) GO TO 330 DO 100 I = 1,3 100 KVECT(I) = KVECT(I)/TEMP C C COMPUTE H = (A1 DOT KVECT)/2 C TEMP = (A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3))/2.0D0 C C I-VECTOR =(A1) - H*(KVECT) NON-NORMALIZED C DO 110 I = 1,3 110 IVECT(I) = A1(I) - TEMP*KVECT(I) C C NORMALIZE I-VECTOR C TEMP = DSQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2) IF (TEMP .EQ. 0.0D0) GO TO 330 DO 120 I = 1,3 120 IVECT(I) = IVECT(I)/TEMP C C J-VECTOR = K CROSS I, AND X3 CALCULATION C JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3) JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1) JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2) C C NORMALIZE J VECTOR TO MAKE SURE C TEMP = DSQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2) IF (TEMP .EQ. 0.0D0) GO TO 330 DO 130 I = 1,3 130 JVECT(I) = JVECT(I)/TEMP C C X3 GOES INTO R(1,3) = D1 DOT IVECT C R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3) C C X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3) C R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3) R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3) C C X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4) C R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2) R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3) C C CHECK OF 4 POINTS FOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES. C IF (R(2,3).LE.0.0D0 .OR. R(2,4).LE.0.0D0) GO TO 140 TEMP = R(1,2) - (R(1,2) - R(1,3))*R(2,4)/R(2,3) IF (R(1,4) .GE. TEMP) GO TO 140 TEMP = R(2,3)*R(1,4)/R(2,4) IF (R(1,3) .GT. TEMP) GO TO 150 140 CALL MESAGE (30,35,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C 140 AT 140 THE COORDINATES OF THE PLATE IN THE ELEMENT C SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE C POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR C ROW 2 RESPECTIVELY. C C ****************************************************************** C C SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT. C C ****************************************************************** C C COMPUTE SUB-TRIANGLE COORDINATES C C ZERO OUT KSUM MATRICES C 150 DO 160 I = 1,36 160 KSUM(I) = 0.0D0 ELTEMP = ECPT(30) C DO 220 J = 1,4 IF (J .EQ. JNOT) GO TO 220 KM = 3*J - 3 SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 170 I = 1,2 V(I) = R(I,SUBSCB) - R(I,SUBSCA) 170 VV(I) = R(I,SUBSCC) - R(I,SUBSCA) XSUBB = DSQRT(V(1)**2 + V(2)**2) U1 = V(1)/XSUBB U2 = V(2)/XSUBB XSUBC = U1*VV(1) + U2*VV(2) YSUBC = U1*VV(2) - U2*VV(1) C SINTH = SINANG*U1 - COSANG*U2 COSTH = COSANG*U1 + SINANG*U2 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR C TRIANGLE -J- C CALL KTRBSC (1) IF (NOGO .EQ. 1) RETURN C C U C NOW HAVE AT HAND K I,J, =1,2,3. 9-3X3 MATRICES STORED AT C IJ A(1) THROUGH A(81). C C MAP THE 3 3X3-S FOR THE PIVOT ROW INTO THE SUMMATION ARRAYS... C C SET UP OF T-MATRIX C T(1) = 1.0D0 T(2) = 0.0D0 T(3) = 0.0D0 T(4) = 0.0D0 T(5) = U1 T(6) = U2 T(7) = 0.0D0 T(8) =-U2 T(9) = U1 C C C FIND WHICH POINT OF THE SUBTRIANGLE IS ALSO THE PIVOT OF THE C QUADRILATERAL... C DO 180 I = 1,3 NPOINT = KM + I IF (M(NPOINT) .NE. NPIVOT) GO TO 180 NBEGIN = 27*I - 27 GO TO 190 180 CONTINUE C 190 DO 210 I = 1,3 C NPOINT = NBEGIN + 9*I - 8 C CALL GMMATD (T,3,3,1, A(NPOINT),3,3,0, TEMP9) CALL GMMATD (TEMP9,3,3,0, T,3,3,0, PROD9) C C ADD THIS PRODUCT IN NOW. C NPOINT = KM + I NPOINT = 9*M(NPOINT) - 9 DO 200 K = 1,9 NPOINT = NPOINT + 1 200 KSUM(NPOINT) = KSUM(NPOINT) + PROD9(K)/2.0D0 210 CONTINUE C 220 CONTINUE C C FILL E-MATRIX C DO 230 I = 1,18 230 E( I) = 0.0D0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C C T C FORM T E STORE IN TITE-MATRIX (6X3) C I IF (NECPT(4*NPIVOT+10) .EQ. 0) GO TO 240 CALL TRANSD (NECPT(4*NPIVOT+10),T) CALL GMMATD (T,3,3,1, E( 1),3,3,0, TITE( 1)) CALL GMMATD (T,3,3,1, E(10),3,3,0, TITE(10)) C GO TO 260 240 DO 250 K = 1,18 250 TITE(K) = E(K) C 260 DO 320 J = 1,4 C C TRANSFORMATIONS AND INSERTION C IF (NECPT(4*J+10) .EQ. 0) GO TO 270 CALL TRANSD (NECPT(4*J+10),T) CALL GMMATD (T,3,3,1, E(1),3,3,0, TJTE(1) ) CALL GMMATD (T,3,3,1, E(10),3,3,0, TJTE(10)) GO TO 290 270 DO 280 K = 1,18 280 TJTE(K) = E(K) 290 CALL GMMATD (KSUM(9*J-8),3,3,0, TJTE,6,3,1, TEMP18(1)) CALL GMMATD (TITE(1),6,3,0, TEMP18(1),3,6,0, KOUT(1)) CALL SMA1B (KOUT(1),NECPT(J+1),-1,IFKGG,0.0D0) TEMP = GSUBE IF (IOPT4) 300,320,300 300 IF (GSUBE) 310,320,310 310 CALL SMA1B (KOUT(1),NECPT(J+1),-1,IF4GG,TEMP) K4GGSW = 1 C 320 CONTINUE RETURN C 330 CALL MESAGE (30,26,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN END ================================================ FILE: mis/krod.f ================================================ SUBROUTINE KROD C***** C THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES K(NPVT,NPVT) AND C K(NPVT,J) FOR A ROD HAVING END POINTS NUMBERED NPVT AND J. C***** C C E C P T F O R T H E R O D C C CARD C TYPE TABLE TYPE C ECPT( 1)ELEMENT ID. I ECT CROD C ECPT( 2)SCALAR INDEX NUMBER FOR GRID POINT A I ECT CROD C ECPT( 3)SCALAR INDEX NUMBER FOR GRID POINT B I ECT CROD C ECPT( 4)MATERIAL ID. I EPT PROD C ECPT( 5)AREA (A) R EPT PROD C ECPT( 6)POLAR MOMENT OF INERTIA (J) R EPT PROD C ECPT( 7) TORSIONAL STRESS COEFF (C) R EPT PROD C ECPT( 8) NON-STRUCTRAL MASS (MU) R EPT PROD C ECPT( 9) COOR. SYS. ID. NO. FOR GRID POINT A I BGPDT GRID C ECPT(10) X-COORDINATE OF GRID PT. A (IN BASIC COOR)R BGPDT C ECPT(11) Y-COORDINATE OF GRID PT. A (IN BASIC COOR)R BGPDT C ECPT(12) Z-COORDINATE OF GRID PT. A (IN BASIC COOR)R BGPDT C ECPT(13) COOR. SYS. ID. NO. FOR GRID POINT B I BGPDT C ECPT(14) X-COORDINATE OF GRID PT. B (IN BASIC COOR)R BGPDT C ECPT(15) Y-COORDINATE OF GRID PT. B (IN BASIC COOR)R BGPDT C ECPT(16) Z-COORDINATE OF GRID PT. B (IN BASIC COOR)R BGPDT C ECPT(17) ELEMENT TEMPERATURE C LOGICAL HEAT C DOUBLE PRECISION 1 X ,Y 2, Z ,XL 3, XN ,DSCL 4, DSCR ,DAMPC 5, D ,KE 6, TI ,DUMDP C DIMENSION 1 IECPT(4) COMMON /BLANK/ICOM COMMON /SYSTEM/ 1 ISYS C C SMA1 I/O PARAMETERS C COMMON /SMA1IO/ 1 IFCSTM ,IFMPT 2, IFDIT ,IDUM1 3, IFECPT ,IGECPT 4, IFGPCT ,IGGPCT 5, IFGEI ,IGGEI 6, IFKGG ,IGKGG 7, IF4GG ,IG4GG 8, IFGPST ,IGGPST 9, INRW ,OUTRW T, CLSNRW ,CLSRW 1, NEOR ,EOR 2, MCBKGG(7) ,MCB4GG(7) C C SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS C COMMON /SMA1BK/ 1 ICSTM ,NCSTM 2, IGPCT ,NGPCT 3, IPOINT ,NPOINT 4, I6X6K ,N6X6K 5, I6X64 ,N6X64 C C SMA1 PROGRAM CONTROL PARAMETERS C COMMON /SMA1CL/ 1 IOPT4 ,K4GGSW 2, NPVT ,LEFT 3, FROWIC ,LROWIC 4, NROWSC ,TNROWS 5, JMAX ,NLINKS 6, LINK(10) ,IDETCK 7, DODET ,NOGO COMMON/SMA1HT/ HEAT C C ECPT COMMON BLOCK C COMMON /SMA1ET/ 1 ECPT(17) ,DUMET(83) C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH COMMON /MATOUT/ 1 E ,G 2, NU ,RHO 3, ALPHA ,TSUBO 4, GSUBE ,SIGT 5, SIGC ,SIGS COMMON/HMTOUT/ FK C C LOCAL DOUBLE PRECISION VARIABLES C COMMON /SMA1DP/ 1 X ,Y 2, Z ,XL 3, XN(3) ,DSCL 4, DSCR ,DAMPC 5, D(18) ,KE(36) 6, TI(9) ,DUMDP(227) C C C NOTE THAT EQUIVALENCE IS NECESSARY SINCE ECPT IS A MIXED --- INTEGERS C AND REAL --- ARRAY C EQUIVALENCE 1 (IECPT(1),ECPT(1)) C***** C BRANCH ON HEAT FORMULATION. C***** IF( HEAT ) GO TO 200 IF (IECPT(2) .EQ. NPVT) GO TO 10 IF (IECPT(3) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1)) ITEMP = IECPT(2) IECPT(2) = IECPT(3) IECPT(3) = ITEMP KA = 13 KB = 9 GO TO 20 10 KA = 9 KB = 13 C C AT THIS POINT KA POINTS TO THE COOR. SYS. ID. OF THE PIVOT GRID POINT. C SIMILARLY FOR KB AND THE NON-PIVOT GRID POINT. C NOW COMPUTE THE LENGTH OF THE ROD. C C WE STORE THE COORDINATES IN THE D ARRAY SO THAT ALL ARITHMETIC WILL BE C DOUBLE PRECISION C 20 D(1) = ECPT(KA+1) D(2) = ECPT(KA+2) D(3) = ECPT(KA+3) D(4) = ECPT(KB+1) D(5) = ECPT(KB+2) D(6) = ECPT(KB+3) X = D(1) - D(4) Y = D(2) - D(5) Z = D(3) - D(6) XL = DSQRT (X**2 + Y**2 + Z**2) IF (XL.NE.0.0D0) GO TO 30 CALL MESAGE(30,26,IECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULA C NOGO=1 RETURN 30 CONTINUE C C CALCULATE A NORMALIZED DIRECTION VECTOR IN BASIC COORDINATES. C XN(1) = X / XL XN(2) = Y / XL XN(3) = Z / XL C C LOCATE E = YOUNG-S MODULUS, G = SHEAR MODULUS AND DAMPC = DAMPING C CONSTANT IN THE MAT1 TABLE AND COMPUTE DSCL = A * E / XL AND C DSCR = J * G / XL. A IS ECPT(5) AND J IS ECPT(6) C MATIDC = IECPT(4) MATFLG = 1 ELTEMP = ECPT(17) CALL MAT (IECPT(1)) C C WE STORE ECPT(5), ECPT(6), E AND G IN DOUBLE PRECISION LOCATIONS SO C THAT ALL ARITHMETIC WILL BE DOUBLE PRECISION C D(1) = ECPT(5) D(2) = E D(3) = ECPT(6) D(4) = G DSCL = D(1) * D(2) / XL DSCR = D(3) * D(4) / XL DAMPC = G SUB E C C SET UP THE -N- MATRIX AND STORE AT D(1) C D(1) = XN(1) * XN(1) D(2) = XN(1) * XN(2) D(3) = XN(1) * XN(3) D(4) = D(2) D(5) = XN(2) * XN(2) D(6) = XN(2) * XN(3) D(7) = D(3) D(8) = D(6) D(9) = XN(3) * XN(3) C C ZERO OUT THE 6X6 WHICH WILL BE USED FOR STORAGE OF KGG(NPVT,NONPVT), C NONPVT = NPVT,J C KGG(NPVT,NONPVT), NONPVT = NPVT,J C DO 50 I = 1,36 50 KE(I) = 0.0D0 NONPVT = 2 K2 = 1 C C IF PIVOT GRID POINT IS IN BASIC COORDINATES, GO TO 70 C IF (IECPT(KA) .EQ. 0) GO TO 70 CALL TRANSD (ECPT(KA),TI(1)) CALL GMMATD (TI(1),3,3,1, D(1),3,3,0, D(10)) CALL GMMATD (D(10),3,3,0, TI(1),3,3,0, D(1)) C C AT THIS POINT D(1) CONTAINS THE MATRIX PRODUCT TAT * N * TA C AND D(10) CONTAINS THE MATRIX PRODUCT TAT * N. C ASSIGN 100 TO IRETRN GO TO 80 70 ASSIGN 90 TO IRETRN C C FILL THE KE MATRIX C 80 KE( 1) = DSCL * D(K2 ) KE( 2) = DSCL * D(K2+1) KE( 3) = DSCL * D(K2+2) KE( 7) = DSCL * D(K2+3) KE( 8) = DSCL * D(K2+4) KE( 9) = DSCL * D(K2+5) KE(13) = DSCL * D(K2+6) KE(14) = DSCL * D(K2+7) KE(15) = DSCL * D(K2+8) KE(22) = DSCR * D(K2 ) KE(23) = DSCR * D(K2+1) KE(24) = DSCR * D(K2+2) KE(28) = DSCR * D(K2+3) KE(29) = DSCR * D(K2+4) KE(30) = DSCR * D(K2+5) KE(34) = DSCR * D(K2+6) KE(35) = DSCR * D(K2+7) KE(36) = DSCR * D(K2+8) CALL SMA1B (KE,ECPT(NONPVT),-1,IFKGG,0.0D0) IF (IOPT4 .EQ. 0 .OR. G SUB E .EQ. 0.0) GO TO 85 K4GGSW = 1 CALL SMA1B (KE,ECPT(NONPVT),-1,IF4GG,DAMPC) C C RETURN FROM FILL CODE W/ IRETRN = 90 IMPLIES G.P. A WAS IN BASIC C . . . . . =100 IMPLIES G.P. A WAS NOT BASIC C . . . . . =140 IMPLIES THE K(NPVT,NONPVT) C HAS BEEN COMPUTED AND INSERTED C AND HENCE WE ARE FINISHED. C 85 GO TO IRETRN , (90,100,140) 90 K1 = 1 K2 = 10 GO TO 110 100 K1 = 10 K2 = 1 110 NONPVT = 3 C C IF NON-PIVOT GRID POINT IS IN BASIC COORDINATES, GO TO 120 C IF (IECPT(KB) .EQ. 0) GO TO 120 CALL TRANSD (ECPT(KB),TI(1)) C C RECALL THAT D(K1) CONTAINS TAT * N. C CALL GMMATD (D(K1),3,3,0, TI(1),3,3,0, D(K2)) C C AT THIS POINT D(K2) CONTAINS TAT * N * TB. C GO TO 130 120 K2 = K1 130 ASSIGN 140 TO IRETRN C C SET CONSTANTS NEGATIVE TO PROPERLY COMPUTE K(NPVT,NONPVT) C DSCR = -DSCR DSCL = -DSCL GO TO 80 C C A TRANSFER TO STATEMENT NO. 140 IMPLIES KGG AND/OR K4GG CALCULATIONS C HAVE BEEN COMPLETED. C 140 RETURN C***** C HEAT FORMULATION. FIRST COMPUTE LENGTH OF ELEMENT. C***** 200 X = ECPT(14) - ECPT(10) Y = ECPT(15) - ECPT(11) Z = ECPT(16) - ECPT(12) XL= DSQRT(X**2 + Y**2 + Z**2) IF( XL ) 300,300,400 300 CALL MESAGE( -30, 26, IECPT(1) ) C C GET MATERIAL PROPERTY -K- FROM HMAT ROUTINE C 400 MATFLG = 1 MATIDC = IECPT(4) ELTEMP = ECPT(17) CALL HMAT( IECPT ) C XL = DBLE(FK) * DBLE(ECPT(5)) / XL C IF( NPVT .EQ. IECPT(3) ) XL = -XL DO 700 I = 1,2 CALL SMA1B( XL, IECPT(I+1), NPVT, IFKGG, 0.0D0 ) XL = -XL 700 CONTINUE RETURN END ================================================ FILE: mis/krshft.f ================================================ FUNCTION KRSHFT (IWORD,N) C C CHARACTER FUNCTION KRSHFT AND KLSHFT PERFORM LEFT AND RIGHT C SHIFTS, BY N CHARACTERS (BYTES). C EMPTY BYTES ARE ZERO FILLED. C C NORMALLY, KRSHFT AND KLSHFT WORK ALMOST LIKE RSHIFT AND LSHFIT C RESPECTIVELY, EXCEPT THEY MOVE DATA BY BYTE COUNT, NOT BY BITS. C HOWEVER, IF THE MACHINE STORES THE BCD WORD DATA IN REVERSE ORDER C (SUCH AS VAX AND SILICON GRAPHICS), KRSHFT IS EQUIVALENCED TO C LSHFIT, AND KLSFHT TO RSHIFT. C EXTERNAL LSHIFT, RSHIFT INTEGER IWORD(1), RSHIFT COMMON /MACHIN/ MAC(3), LQRO COMMON /SYSTEM/ DUMMY(38),NBPC C IF (MOD(LQRO,10) .EQ. 1) GO TO 10 KRSHFT = RSHIFT(IWORD(1),N*NBPC) RETURN 10 KRSHFT = LSHIFT(IWORD(1),N*NBPC) RETURN C ENTRY KLSHFT (IWORD,N) C ====================== C IF (MOD(LQRO,10) .EQ. 1) GO TO 20 KLSHFT = LSHIFT(IWORD(1),N*NBPC) RETURN 20 KLSHFT = RSHIFT(IWORD(1),N*NBPC) RETURN END ================================================ FILE: mis/kslot.f ================================================ SUBROUTINE KSLOT (ITYPE) C C THIS ROUTINE CALCULATES THE STIFFNESS MATRIX TERMS FOR THE C CSLOT3 AND CSLOT4 TWO DIMENSIONAL LAPLACE ELEMENTS C C IOPT- CSLOT3 = 0, CSLOT4 = 1 C C THE ECPT DATA FOR THESE ELEMENTS ARE C C FIELD CSLOT3 CSLOT4 C 1 ID ID C 2 SIL1 SIL1 C 3 SIL2 SIL2 C 4 SIL3 SIL3 C 5 RHO SIL4 C 6 BULK RHO C 7 M BULK C 8 N M C 9 CID1 N C 10 R1 CID1 C 11 Z1 R1 C 12 W1 Z1 C 13 CID2 W1 C 14 R2 CID2 C 15 Z2 R2 C 16 W2 Z2 C 17 CID3 W2 C 18 R3 CID3 C 19 Z3 R3 C 20 W3 Z3 C 21 TEMP W3 C 22 CID4 C 23 R4 C 24 Z4 C 25 W4 C 26 TEMP C LOGICAL NOGO INTEGER NECPT(100) ,OUT DOUBLE PRECISION COEF ,FIR ,FIZ , 1 R ,Z ,RKI , 2 A2 ,KIJ CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF ,OUT ,NOGO COMMON /SMA1CL/ IOPT4 ,K4GGSW ,NPVT COMMON /SMA1ET/ ECPT(100) COMMON /SMA1IO/ DUM1(10) ,IFILE COMMON /SMA1DP/ COEF ,FIR(3) ,FIZ(3) , 1 R(3) ,Z(3) ,RKI , 2 A2 ,KIJ ,NNEG , 3 IP ,NPTJ ,IRET , 4 LRI ,LRJ ,LRK , 5 IPVT EQUIVALENCE (ECPT(1),NECPT(1)) C IF (ITYPE .GT. 0) GO TO 50 IF (ECPT(5).EQ.0.0 .OR. NECPT(7).EQ.0) RETURN K = -1 10 K = K + 1 IF (2*NECPT(8)-K*NECPT(7)) 30,20,10 20 NECPT(7) = NECPT(7)*2 30 ECPT(7) = FLOAT(NECPT(7))/2.0 DO 40 I = 1,20 40 ECPT(I+50) = ECPT(I) IRET = 4 GO TO 170 C C THE CSLOT4 ELEMENT IS CHECKED FOR VALIDITY AND THE DATA ARE C REARRANGED TO CONFORM TO THE CSLOT3 FORMAT C 50 IF (ECPT(6).EQ.0.0 .OR. NECPT(8).EQ.0) RETURN K = -1 60 K = K + 1 IF (2*NECPT(9)-K*NECPT(8)) 80,70,60 70 NECPT(8) = NECPT(8)*2 80 ECPT(8) = FLOAT(NECPT(8))/2.0 C NNEG = 0 IP = 0 DO 110 I = 1,4 IF (NPVT .EQ. NECPT(I+1)) IP = IP + 1 DO 90 J = 1,3 NJ = I + J - 1 IF (NJ .GT.4) NJ = NJ - 4 NPTJ = 4*(NJ-1) + 11 R(J) = ECPT(NPTJ ) 90 Z(J) = ECPT(NPTJ+1) COEF = (R(2)-R(1))*(Z(3)-Z(1)) - (R(3)-R(1))*(Z(2)-Z(1)) IF (COEF) 100,220,110 100 NNEG = NNEG + 1 110 CONTINUE IF (NNEG.EQ.1 .OR. NNEG.EQ.3) GO TO 220 IF (IP .NE. 1) GO TO 220 C DO 120 I = 1,4 120 ECPT(I+50) = ECPT(I) DO 130 I = 7,21 130 ECPT(I+49) = ECPT(I) ECPT(55) = ECPT(6)*2.0 IRET = 1 GO TO 170 140 ECPT(54) = ECPT( 5) ECPT(68) = ECPT(23) ECPT(69) = ECPT(24) ECPT(70) = ECPT(25) IRET = 2 GO TO 170 150 ECPT(53) = ECPT( 4) ECPT(64) = ECPT(19) ECPT(65) = ECPT(20) ECPT(66) = ECPT(21) IRET = 3 GO TO 170 160 ECPT(52) = ECPT( 3) ECPT(60) = ECPT(15) ECPT(61) = ECPT(16) ECPT(62) = ECPT(17) IRET = 4 C C EACH CSLOT3 ELEMENT OR SUBELEMENT IS FORMULATED AS FOLLOWS C 170 IF (NECPT(52).NE.NPVT .AND. NECPT(53).NE.NPVT .AND. 1 NECPT(54).NE.NPVT) GO TO 200 COEF = 0.0 A2 = 0.0 DO 180 I = 1,3 J = I + 1 IF (J .GT. 3) J = J - 3 K = J + 1 IF (K .GT. 3) K = K - 3 LRI = 4*I + 56 LRJ = 4*J + 56 LRK = 4*K + 56 COEF = COEF + ECPT(LRI+2) FIR(I) = ECPT(LRK ) - ECPT(LRJ ) FIZ(I) = ECPT(LRJ+1) - ECPT(LRK+1) A2 = A2 + ECPT(LRI)*FIZ(I) IF (NECPT(I+51) .EQ. NPVT) IPVT = I 180 CONTINUE IF (A2.EQ. 0.0D0) GO TO 220 COEF = COEF*ECPT(57)/(6.0D0*ECPT(55)*DABS(A2)) I = NPVT DO 190 J = 1,3 K = NECPT(J+51) KIJ = COEF*(FIR(IPVT)*FIR(J) + FIZ(IPVT)*FIZ(J)) CALL SMA1B( KIJ,K,I,IFILE,0.0D0) 190 CONTINUE 200 GO TO (140,150,160,210), IRET 210 RETURN C 220 WRITE (OUT,230) UFM,NECPT(1) 230 FORMAT (A23,' 2160, BAD GEOMETRY OR ZERO COEFFICIENT FOR SLOT ', 1 'ELEMENT NUMBER',I18) NOGO =.TRUE. RETURN END ================================================ FILE: mis/ksolid.f ================================================ SUBROUTINE KSOLID (ITYPE) C C IOPT = 1 IMPLIES WEDGE - 3 TETRAHEDRONS C IOPT = 2 IMPLIES HEXA(6-SIDED-SOLID) 5 TETRAHEDRONS C IOPT = 3 IMPLIES HEXA(6-SIDED-SOLID) 10 TETRAHEDRONS C C ECPT TETRA WEDGE HEXA C ------------------------------------------------ C ECPT( 1) = EL ID EL ID EL ID C ECPT( 2) = MAT-ID MAT-ID MAT-ID C ECPT( 3) = GRID-1 GRID-1 GRID-1 C ECPT( 4) = GRID-2 GRID-2 GRID-2 C ECPT( 5) = GRID-3 GRID-3 GRID-3 C ECPT( 6) = GRID-4 GRID-4 GRID-4 C ECPT( 7) = CSID-1 GRID-5 GRID-5 C ECPT( 8) = X1 GRID-6 GRID-6 C ECPT( 9) = Y1 CSID-1 GRID-7 C ECPT(10) = Z1 X1 GRID-8 C ECPT(11) = CSID-2 Y1 CSID-1 C ECPT(12) = X2 Z1 X1 C ECPT(13) = Y2 CSID-2 Y1 C ECPT(14) = Z2 X2 Z1 C ECPT(15) = CSID-3 Y2 CSID-2 C ECPT(16) = X3 Z2 X2 C ECPT(17) = Y3 CSID-3 Y2 C ECPT(18) = Z3 X3 Z2 C ECPT(19) = CSID-4 Y3 CSID-3 C ECPT(20) = X4 Z3 X3 C ECPT(21) = Y4 CSID-4 Y3 C ECPT(22) = Z4 X4 Z3 C ECPT(23) = EL-TEM Y4 CSID-4 C ECPT(24) Z4 X4 C ECPT(25) CSID-5 Y4 C ECPT(26) X5 Z4 C ECPT(27) Y5 CSID-5 C ECPT(28) Z5 X5 C ECPT(29) CSID-6 Y5 C ECPT(30) X6 Z5 C ECPT(31) Y6 CSID-6 C ECPT(32) Z6 X6 C ECPT(33) ELTEMP Y6 C ECPT(34) Z6 C ECPT(35) CSID-7 C ECPT(36) X7 C ECPT(37) Y7 C ECPT(38) C ECPT(39) CSID-8 C ECPT(40) X8 C ECPT(41) Y8 C ECPT(42) Z8 C ECPT(43) EL-TEMP C C MAP FOR WEDGE M(I,J) I = TETRAHEDRON, J = GRID POINT C LOGICAL NOGO INTEGER NECPT(52),OUT,M(22,4) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,OUT,NOGO COMMON /SMA1ET/ ECPT(100) COMMON /SMA1CL/ IOPT4,K4GGSW,NPVT,ISKP(19),NOGOO COMMON /SMA1DP/ R12(3),R13(3),R(3),RXR(3),R24(3) EQUIVALENCE (NECPT(1),ECPT(1)) DATA M( 1,1),M( 1,2),M( 1,3),M( 1,4) / 1 ,2 ,3 ,4 / DATA M( 2,1),M( 2,2),M( 2,3),M( 2,4) / 1 ,2 ,3 ,5 / DATA M( 3,1),M( 3,2),M( 3,3),M( 3,4) / 1 ,2 ,3 ,6 / DATA M( 4,1),M( 4,2),M( 4,3),M( 4,4) / 1 ,4 ,5 ,6 / DATA M( 5,1),M( 5,2),M( 5,3),M( 5,4) / 2 ,4 ,5 ,6 / DATA M( 6,1),M( 6,2),M( 6,3),M( 6,4) / 3 ,4 ,5 ,6 / DATA M( 7,1),M( 7,2),M( 7,3),M( 7,4) / 2 ,1 ,4 ,6 / DATA M( 8,1),M( 8,2),M( 8,3),M( 8,4) / 2 ,3 ,4 ,6 / DATA M( 9,1),M( 9,2),M( 9,3),M( 9,4) / 1 ,3 ,4 ,5 / DATA M(10,1),M(10,2),M(10,3),M(10,4) / 2 ,3 ,4 ,5 / DATA M(11,1),M(11,2),M(11,3),M(11,4) / 3 ,1 ,5 ,6 / DATA M(12,1),M(12,2),M(12,3),M(12,4) / 2 ,1 ,5 ,6 / C C MAP FOR HEXA-SOLID (5 OR 10 TETRAHEDRONS) C DATA M(13,1),M(13,2),M(13,3),M(13,4) / 1 ,2 ,3 ,6 / DATA M(14,1),M(14,2),M(14,3),M(14,4) / 1 ,3 ,4 ,8 / DATA M(15,1),M(15,2),M(15,3),M(15,4) / 1 ,3 ,8 ,6 / DATA M(16,1),M(16,2),M(16,3),M(16,4) / 1 ,5 ,6 ,8 / DATA M(17,1),M(17,2),M(17,3),M(17,4) / 3 ,6 ,7 ,8 / DATA M(18,1),M(18,2),M(18,3),M(18,4) / 2 ,3 ,4 ,7 / DATA M(19,1),M(19,2),M(19,3),M(19,4) / 1 ,2 ,4 ,5 / DATA M(20,1),M(20,2),M(20,3),M(20,4) / 2 ,4 ,5 ,7 / DATA M(21,1),M(21,2),M(21,3),M(21,4) / 2 ,5 ,6 ,7 / DATA M(22,1),M(22,2),M(22,3),M(22,4) / 4 ,5 ,7 ,8 / DATA IDELEM / 0 / C C BRANCH ON ELEMENT TYPE C IGFLAG = 0 GO TO (1000,2000,3000), ITYPE C C COME HERE FOR WEDGE COMPUTATIONS. C KTETRA IS CALLED 3 TIMES BASED ON WEDGE MAPPING MATRIX. C 1000 ITET = 1 NTET = 12 ITEMP = 33 NGRIDS = 6 IOPT = 0 C C BASE CROSS PRODUCT C IF (NECPT(1) .EQ. IDELEM) GO TO 1951 IDELEM = NECPT(1) IGFLAG = 1 R12(1) = ECPT(14) - ECPT(10) R12(2) = ECPT(15) - ECPT(11) R12(3) = ECPT(16) - ECPT(12) R13(1) = ECPT(18) - ECPT(10) R13(2) = ECPT(19) - ECPT(11) R13(3) = ECPT(20) - ECPT(12) CALL SAXB (R12,R13,RXR) C C IN THE ABOVE, THE WEDGE IS NUMBERED 1,2,3 COUNTERCLOCKWISE AT THE C BASE AND 4,5,6 COUNTER CLOCKWISE AT THE TOP. (LOOKING DOWN ON WED) C R12(1) = ECPT(26) - ECPT(22) R12(2) = ECPT(27) - ECPT(23) R12(3) = ECPT(28) - ECPT(24) R13(1) = ECPT(30) - ECPT(22) R13(2) = ECPT(31) - ECPT(23) R13(3) = ECPT(32) - ECPT(24) CALL SAXB (R12,R13,R) C IF (SADOTB(R,RXR)) 1800,1800,1950 C C ERROR CONDITION - BAD GEOMETRY C 1800 WRITE (OUT,1900) UFM,NECPT(1) 1900 FORMAT (A23,' 4001, ELEMENT',I10,' HAS BAD GEOMETRY.') NOGOO = 1 RETURN C C PLANER CHECKS FOR WEDGE C 1950 CALL KPLTST (ECPT(10),ECPT(14),ECPT(26),ECPT(22)) CALL KPLTST (ECPT(10),ECPT(22),ECPT(30),ECPT(18)) CALL KPLTST (ECPT(14),ECPT(18),ECPT(30),ECPT(26)) 1951 IF (NOGOO .EQ. 1) RETURN GO TO 6000 C C COME HERE FOR 5-TETRAHEDRON 6-SIDED SOLID C 2000 ITET = 13 NTET = 17 ITEMP = 43 NGRIDS = 8 IOPT = 0 GO TO 3500 C C COME HERE FOR 10-TETRAHEDRON 6-SIDED SOLID C 3000 ITET = 13 NTET = 22 ITEMP = 43 NGRIDS = 8 IOPT = 1 C C CHECK GEOMETRY OF 6-SIDED SOLID AT THIS POINT C 3500 IF (NECPT(1) .EQ. IDELEM) GO TO 2951 IDELEM = NECPT(1) IGFLAG = 1 R13(1) = ECPT(20) - ECPT(12) R13(2) = ECPT(21) - ECPT(13) R13(3) = ECPT(22) - ECPT(14) R24(1) = ECPT(24) - ECPT(16) R24(2) = ECPT(25) - ECPT(17) R24(3) = ECPT(26) - ECPT(18) CALL SAXB (R13,R24,RXR) C R12(1) = ECPT(36) - ECPT(28) R12(2) = ECPT(37) - ECPT(29) R12(3) = ECPT(38) - ECPT(30) R13(1) = ECPT(40) - ECPT(32) R13(2) = ECPT(41) - ECPT(33) R13(3) = ECPT(42) - ECPT(34) CALL SAXB (R12,R13,R) C IF (SADOTB(RXR,R)) 1800,1800,2950 C C PLANER CHECKS FOR HEXA-5 OR HEXA-10 C 2950 CALL KPLTST (ECPT(12),ECPT(16),ECPT(20),ECPT(24)) CALL KPLTST (ECPT(12),ECPT(16),ECPT(32),ECPT(28)) CALL KPLTST (ECPT(16),ECPT(20),ECPT(36),ECPT(32)) CALL KPLTST (ECPT(20),ECPT(24),ECPT(40),ECPT(36)) CALL KPLTST (ECPT(24),ECPT(12),ECPT(28),ECPT(40)) CALL KPLTST (ECPT(28),ECPT(32),ECPT(36),ECPT(40)) 2951 IF (NOGOO .EQ. 1) RETURN GO TO 6000 C C AT THIS POINT ALL CHECKS HAVE BEEN MADE. NOW FORM THE ECPT FOR C EACH TETRAHEDRON AND CALL KTETRA(IOPT). IOPT = 1 IMPLIES TO COMPUT C HALF STIFFNESS. IOPT = 0 IMPLIES COMPUTE FULL STIFFNESS. C 6000 DO 6010 J = 1,50 ECPT(J+50) = ECPT(J) 6010 CONTINUE C C FILL MAT ID AND EL TEMP C NECPT( 2) = NECPT(52) NECPT(23) = NECPT(ITEMP+50) JTYPE = ITYPE DO 8000 I = ITET,NTET IF (I .EQ. NTET) JTYPE = -ITYPE IF (ITYPE .EQ. 1) IOPT = I + 10 C C FILL IN GRID SIL-S AND COORDINATE SETS C DO 7030 J = 1,4 KPOINT = M(I,J) NECPT(J+2) = NECPT(KPOINT+52) KPOINT = 4*KPOINT + NGRIDS - 3 JPOINT = 4*J + 2 NECPT(JPOINT+1) = NECPT(KPOINT+52) NECPT(JPOINT+2) = NECPT(KPOINT+53) NECPT(JPOINT+3) = NECPT(KPOINT+54) NECPT(JPOINT+4) = NECPT(KPOINT+55) 7030 CONTINUE C C BUMP IOPT IF GEOMETRY TESTS ARE TO BE MADE C IF (IGFLAG .EQ. 1) IOPT = IOPT + 100 CALL KTETRA (IOPT,JTYPE) 8000 CONTINUE C C ALL THROUGH C RETURN END ================================================ FILE: mis/ktetra.f ================================================ SUBROUTINE KTETRA (IOPT,JTYPE) C C ELEMENT STIFFNESS MATRIX GENERATOR FOR THE TETRAHEDRON SOLID C ELEMENT C C LOOKING DOWN ON THIS ELEMENT, GRIDS 1,2,3 ARE THE BASE AND MUST BE C LABELED COUNTERCLOCKWISE. GRID 4 MUST BE ABOVE THE PLANE FORMED BY C GRIDS 1,2,3 AND CLOSEST TO THIS OBSERVER. C C ECPT FOR THE TETRAHEDRON SOLID ELEMENT C -------------------------------------- C ECPT( 1) = ELEMENT ID C ECPT( 2) = MATERIAL ID (MAT1 MATERIAL TYPE) C ECPT( 3) = SIL GRID POINT 1 C ECPT( 4) = SIL GRID POINT 2 C ECPT( 5) = SIL GRID POINT 3 C ECPT( 6) = SIL GRID POINT 4 C ECPT( 7) = COORD SYS ID GRID PT 1 C ECPT( 8) = X1 C ECPT( 9) = Y1 C ECPT(10) = Z1 C ECPT(11) = COORD SYS ID GRID PT 2 C ECPT(12) = X2 C ECPT(13) = Y2 C ECPT(14) = Z2 C ECPT(15) = COORD SYS ID GRID PT 3 C ECPT(16) = X3 C ECPT(17) = Y3 C ECPT(18) = Z3 C ECPT(19) = COORD SYS ID GRID PT 4 C ECPT(20) = X4 C ECPT(21) = Y4 C ECPT(22) = Z4 C ECPT(23) = ELEMENT TEMPERATURE C C JTYPE = 1 FOR WEDGE, = 2 FOR HEXA1, = 3 FOR HEXA2, AND = 0 TETRA C IF JTYPE IS NEGATIVE, THIS IS LAST CALL FROM KSOLID C C LOGICAL NOGO ,HEAT ,HYDRO INTEGER OUT ,NECPT(4) ,DIREC ,EL(2,4) ,SCR4 REAL NU ,MATBUF DOUBLE PRECISION C ,G ,H ,TEMP ,HDETER , 1 TEMP1 ,T ,CT ,KIJ ,GCT CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / SKIP(16) ,VOLUME ,SURFAC COMMON /SMA1ET/ ECPT(100) COMMON /SMA1DP/ C(72) ,G(36) ,H(16) ,TEMP(12) ,T(9) , 1 CT(18) ,GCT(18) ,KIJ(36) ,HDETER ,TEMP1 , 2 NGPT ,DIREC ,KOUNT ,TVOL COMMON /SMA1HT/ HEAT COMMON /HYDROE/ HYDRO COMMON /MATIN / MATID ,INFLAG ,ELTEMP COMMON /MATOUT/ E ,GG ,NU ,RHO ,ALPHA , 1 TSUB0 ,GSUBE ,SIGT ,SIGC ,SIGS COMMON /HMTOUT/ MATBUF(7) COMMON /SMA1CL/ IOPT4 ,K4GGSW ,NPVT ,ISKP(17) ,NOGOO COMMON /SMA1IO/ DUM1(10) ,IFKGG ,DUM2(1) ,IF4GG ,DUM3(23) COMMON /SYSTEM/ SYSBUF ,OUT ,NOGO EQUIVALENCE (NECPT(1),ECPT(1)) DATA IDFLAG/ 0 /, SCR4 / 304 / DATA EL / 4HCWED, 4HGE , 4HCHEX, 4HA1 , 4HCHEX, 4HA2 , 1 4HCTET, 4HRA / C C FILL THE 4 X 4 H MATRIX. C IF (NECPT(1) .EQ. IDFLAG) GO TO 100 IDFLAG = NECPT(1) DIREC = 0 KOUNT = 0 TVOL = 0.0 NGPT = 99 IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 100 NGPT = 8 IF (IABS(JTYPE) .EQ. 1) NGPT = 6 IF (JTYPE .EQ. 0) NGPT = 4 100 IF (JTYPE .LE. 0) KOUNT = KOUNT + 1 C C RETURN IF SUB-TETRA DOES NOT CONTRIBUTE TO PIVOT STIFFNESS AND NO C GEOMETRY TESTS ARE BEING MADE ON IT. C IF (IOPT .GE. 100) GO TO 140 DO 131 I = 3,6 IF (NPVT .EQ. NECPT(I)) GO TO 140 131 CONTINUE IF (KOUNT.EQ.NGPT .AND. JTYPE.NE.0) GO TO 910 RETURN C 140 H( 1) = 1.0D0 H( 2) = ECPT( 8) H( 3) = ECPT( 9) H( 4) = ECPT(10) H( 5) = 1.0D0 H( 6) = ECPT(12) H( 7) = ECPT(13) H( 8) = ECPT(14) H( 9) = 1.0D0 H(10) = ECPT(16) H(11) = ECPT(17) H(12) = ECPT(18) H(13) = 1.0D0 H(14) = ECPT(20) H(15) = ECPT(21) H(16) = ECPT(22) C C INVERT H AND GET THE DETERMINANT C ISING = 0 CALL INVERD (4,H(1),4,DUM,0,HDETER,ISING,TEMP(1)) C C IF THE DETERMINANT IS .LE. 0 THE TETRAHEDRON HAS BAD OR REVERSE C GEOMETRY WHICH IS AN ERROR CONDITION. C IF (ISING .EQ. 2) GO TO 149 IF (IOPT .LT. 100) GO TO 200 IOPT = IOPT - 100 IF (DIREC .NE. 0) GO TO 148 DIREC = 1 IF (HDETER .LT.0.0D0) DIREC = -1 GO TO 200 148 IF (DIREC.EQ. 1 .AND. HDETER.GT.0.0D0) GO TO 200 IF (DIREC.EQ.-1 .AND. HDETER.LT.0.0D0) GO TO 200 149 WRITE (OUT,150) UFM,NECPT(1) 150 FORMAT (A23,' 4004, MODULE SMA1 DETECTS BAD OR REVERSE GEOMETRY ', 1 'FOR ELEMENT ID',I10) NOGOO = 1 RETURN C C SKIP SUB-TETRAHEDRON IF IT DOES NOT CONTRIBUTE TO PIVOT STIFFNESS C 200 DO 201 I = 3,6 IF (NPVT .EQ. NECPT(I)) GO TO 209 201 CONTINUE IF (KOUNT.EQ.NGPT .AND. JTYPE.NE.0) GO TO 910 RETURN C C AT THIS POINT BRANCH ON HEAT OR STRUCTURE PROBLEM. C 209 HDETER = DABS(HDETER) IF (HEAT ) GO TO 1010 IF (HYDRO) GO TO 1060 C C GET THE MATERIAL DATA AND FILL THE 6X6 G MATERIAL STRESS-STRAIN C MATRIX. C INFLAG = 1 MATID = NECPT(2) ELTEMP = ECPT(23) CALL MAT (NECPT(1)) DO 210 I = 1,36 210 G(I) = 0.0D0 TEMP1 = (1.0+NU)*(1.0-2.0*NU) IF (DABS(TEMP1) .GT. 1.0D-6) GO TO 240 WRITE (OUT,230) UFM,MATID,ECPT(1) 230 FORMAT (A23,' 4005, AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED ', 1 'UNDER MATERIAL ID',I10,' FOR ELEMENT ID',I10) NOGOO = 1 RETURN C 240 G( 1) = E*(1.0-NU)/TEMP1 G( 8) = G(1) G(15) = G(1) G( 2) = E*NU/TEMP1 G( 3) = G(2) G( 7) = G(2) G( 9) = G(2) G(13) = G(2) G(14) = G(2) G(22) = GG G(29) = GG G(36) = GG C C FILL 4 C-MATRICES. (6X3) EACH. C DO 400 I = 1,72 400 C(I) = 0.0D0 DO 500 I = 1,4 J = 18*I - 18 C(J+ 1) = H(I+ 4) C(J+ 5) = H(I+ 8) C(J+ 9) = H(I+12) C(J+11) = H(I+12) C(J+12) = H(I+ 8) C(J+13) = H(I+12) C(J+15) = H(I+ 4) C(J+16) = H(I+ 8) C(J+17) = H(I+ 4) 500 CONTINUE C C DIVIDE DETERMINANT BY 6.0, AND BY AN ADDITIONAL 2.0 IF A SUB-TETRA C FOR THE HEXA-10 ELEMENT. C FOR WEDGES, 1ST 6 CONFIGURATUONS ARE MULTIPLIED BY 2. C ALL CONFIGURATIONS ARE DIVIDED BY 6. C IF (IOPT) 602,601,602 601 HDETER = HDETER/6.0D0 GO TO 610 602 IF (IOPT.GE.11 .AND. IOPT.LE.22) GO TO 603 HDETER = HDETER/12.0D0 GO TO 610 C C WEDGES C 603 HDETER = HDETER/36.0D0 IF (IOPT .LE. 16) HDETER = HDETER*2.0D0 610 DO 700 I = 1,36 700 KIJ(I) = 0.0D0 C C DETERMINE THE PIVOT POINT C DO 720 I = 2,5 KA = 4*I - 1 NPOINT = 18*I - 35 IF (NECPT(I+1) .NE. NPVT) GO TO 720 GO TO 740 720 CONTINUE CALL MESAGE (-30,34,ECPT(1)) C C PICK UP PIVOT TRANSFORMATION IF CSID IS NON-ZERO. C 740 IF (NECPT(KA)) 750,760,750 750 CALL TRANSD (NECPT(KA),T) CALL GMMATD (T(1),3,3,1, C(NPOINT),6,3,1, CT(1)) GO TO 778 C C T T C AT THIS POINT T C IS STORED AS A 3X6 IN THE CT ARRAY. C I I C C T T C NOW MULTIPLY ON THE RIGHT BY G TO FORM T C G (3X6) C E I I E C 760 CALL GMMATD (C(NPOINT),6,3,1, G(1),6,6,0, GCT(1)) GO TO 781 778 CALL GMMATD (CT(1),3,6,0, G(1),6,6,0, GCT(1)) 781 DO 790 I = 1,18 GCT(I) = GCT(I)*HDETER 790 CONTINUE C C LOOP THROUGH THE 4 POINTS INSERTING THE STIFFNESS MATRIX FOR C EACH WITH RESPECT TO THE PIVOT POINT. C DO 900 I = 1,4 IF (NECPT(4*I+3)) 810,820,810 810 CALL TRANSD (NECPT(4*I+3),T) CALL GMMATD (C(18*I-17),6,3,0, T(1),3,3,0, CT(1)) CALL GMMATD (GCT(1),3,6,0, CT(1),6,3,0, T(1)) GO TO 830 C C NO TRANSFORMATION C 820 CALL GMMATD (GCT(1),3,6,0, C(18*I-17),6,3,0, T(1)) C C INSERT 3X3 KIJ INTO 6X6 KIJ AND CALL SMA1B FOR INSERTION. C 830 KIJ( 1) = T(1) KIJ( 2) = T(2) KIJ( 3) = T(3) KIJ( 7) = T(4) KIJ( 8) = T(5) KIJ( 9) = T(6) KIJ(13) = T(7) KIJ(14) = T(8) KIJ(15) = T(9) C CALL SMA1B (KIJ(1),NECPT(I+2),-1,IFKGG,0.0D0) TEMP1 = GSUBE IF (IOPT4) 840,900,840 840 IF (GSUBE) 850,900,850 850 CALL SMA1B (KIJ(1),NECPT(I+2),-1,IF4GG,TEMP1) C 900 CONTINUE C C IF USER REQUESTED VOLUME AND SURFACE CALCULATIONS, WE NEED TO SAVE C IN SCR4 THE FOLLOWING C WORDS 1,2 = ELEM. BCD NAME C 3 = ELEM. ID C 4 = VOLUME C 5 = MASS C 6 = NO. OF GRID POINTS, NGPT C 7 THRU 6+NGPT = GRID POINTS C 7+NGPT THRU 7+5*NGPT = BGPDT DATA C TVOL = TVOL + HDETER/4.0D+0 IF (KOUNT .LT. NGPT) GO TO 950 910 IF (JTYPE .GT. 0) GO TO 950 ECPT(2) = TVOL*VOLUME IF (JTYPE.EQ.0 .AND. SURFAC.GT.0.0) GO TO 920 J = IABS(JTYPE) ECPT(3) = TVOL IF (RHO .GT. 0.0) ECPT(3) = TVOL*RHO NECPT(4) = NGPT CALL WRITE (SCR4,EL(1,J),2,0) CALL WRITE (SCR4,ECPT(1),4,0) IF (SURFAC .LE. 0.0) GO TO 950 J = NGPT*5 CALL WRITE (SCR4,ECPT(53),J,1) GO TO 950 920 CALL WRITE (SCR4,EL(1,4),2,0) CALL WRITE (SCR4,ECPT(1),2,0) IF (RHO .GT. 0.0) TVOL = TVOL*RHO ECPT (1) = TVOL NECPT(2) = NGPT CALL WRITE (SCR4,ECPT(1),22,1) C 950 RETURN C C HEAT PROBLEM LOGIC FOR 1 PIVOT ROW OF 1 TETRAHEDRON. C C OBTAIN G MATERIAL MATRIX FROM HMAT ROUTINE C E C 1010 MATID = NECPT(2) INFLAG = 3 ELTEMP = ECPT(23) CALL HMAT (NECPT) G( 1) = 0.0D0 G( 2) = 0.0D0 G( 3) = 0.0D0 G( 4) = 0.0D0 G( 5) = 0.0D0 G( 6) = MATBUF(1) G( 7) = MATBUF(2) G( 8) = MATBUF(3) G( 9) = 0.0D0 G(10) = MATBUF(2) G(11) = MATBUF(4) G(12) = MATBUF(5) G(13) = 0.0D0 G(14) = MATBUF(3) G(15) = MATBUF(5) G(16) = MATBUF(6) C C OBTAIN THE FOUR CONDUCTIVITY VALUES NEEDED FOR PIVOT ROW BEING C INSERTED. C 1020 CONTINUE CALL GMMATD (G(1),4,4,0, H(1),4,4,0, C(5)) IHCOL = I - 2 TEMP(1) = H(IHCOL ) TEMP(2) = H(IHCOL+4) TEMP(3) = H(IHCOL+8) TEMP(4) = H(IHCOL+12) CALL GMMATD (TEMP(1),1,4,0, C(5),4,4,0, C(1)) C C DIVIDE CONDUCTIVITY BY 2.0 IF THIS IS A SUB-TETRA OF A HEXA2 C ELEMENT. C IF (IOPT) 1045,1040,1045 1040 HDETER = HDETER/6.0D0 GO TO 1046 1045 IF (IOPT.GE.11 .AND. IOPT.LE.22) GO TO 1048 HDETER = HDETER/12.0D0 GO TO 1046 C C WEDGES C 1048 HDETER = HDETER/36.0D0 IF (IOPT .LE. 16) HDETER = HDETER*2.0D0 1046 DO 1047 I = 1,4 C(I) = C(I)*HDETER 1047 CONTINUE C C INSERT THE PIVOT ROW. C DO 1050 I = 1,4 CALL SMA1B (C(I),NECPT(I+2),NPVT,IFKGG,0.0D0) 1050 CONTINUE RETURN C C HYDROELASTIC PROBLEM, OBTAIN DENSITY AND RETURN C 1060 MATID = NECPT(2) INFLAG = 11 CALL MAT (NECPT(1)) DO 1070 IDLH = 1,16 1070 G(IDLH) = 0.0D0 G(6) = 1.0D0/DBLE(RHO) G(11) = G(6) G(16) = G(6) GO TO 1020 END ================================================ FILE: mis/ktrapr.f ================================================ SUBROUTINE KTRAPR C C THIS ROUTINE COMPUTES THE STIFFNESS MATRIX FOR A AXI-SYMMETRIC C RING WITH A TRAPEZOIDAL CROSS SECTION C C ECPT FOR THE TRAPEZOIDAL RING C TYPE C ECPT( 1) ELEMENT IDENTIFICATION I C ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A I C ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B I C ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C I C ECPT( 5) SCALAR INDEX NO. FOR GRID POINT D I C ECPT( 6) MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT( 7) MATERIAL IDENTIFICATION I C ECPT( 8) COOR. SYS. ID. FOR GRID POINT A I C ECPT( 9) X-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(10) Y-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(11) Z-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(12) COOR. SYS. ID. FOR GRID POINT B I C ECPT(13) X-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(14) Y-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(15) Z-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(16) COOR. SYS. ID. FOR GRID POINT C I C ECPT(17) X-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(18) Y-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(19) Z-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(20) COOR. SYS. ID. FOR GRID POINT D I C ECPT(21) X-COOR. OF GRID POINT D (IN BASIC COOR.) R C ECPT(22) Y-COOR. OF GRID POINT D (IN BASIC COOR.) R C ECPT(23) Z-COOR. OF GRID POINT D (IN BASIC COOR.) R C ECPT(24) EL. TEMPERATURE FOR MATERIAL PROPERTIES R C DOUBLE PRECISION CONSTD, DEGRAD, D , GAMBQ, R, 1 Z, EE48, TEO, EE, DELINT, 2 AK, AKI, R1, R2, R3, 3 R4, Z1, Z2, Z3, Z4, 4 ZMIN, DGAMA, ER, ET, EZ, 5 VRT, VTR, VTZ, VZT, VZR, 6 VRZ, GRZ, DEL, COSG, SING, 7 DGAMR, AKT, TWOPI, DAMPC, RMIN, 8 RMAX, RZINTD DIMENSION JRZ(2), IECPT(24),AKI(36), AKT(9) COMMON /SYSTEM/ IBUF, IOUT COMMON /CONDAD/ CONSTD(5) COMMON /MSGX / NMSG, MMSG, MSG(4,1) COMMON /SMA1IO/ DUM1(10), IFKGG, IGKGG, IF4GG, DUM2(21) COMMON /SMA1CL/ IOPT4, K4GGSW, NPVT, DUM4(7), LINK(10), 1 IDETCK, DODET, NOGO COMMON /SMA1ET/ ECPT(24), DUM5(76) COMMON /SMA1DP/ D(64), GAMBQ(64), R(4), Z(4), TEO(16), 1 EE(16), DELINT(12),AK(64), DGAMA, ZMIN, 2 ER, ET, EZ, VRT, VTR, 3 VTZ, VZT, VZR, VRZ, GRZ, 4 DEL, COSG, SING, DGAMR, IGP(4), 5 ICS(4), SP(24), TEMPE COMMON /MATIN / MATIDC, MATFLG, ELTEMP, STRESS, SINTH, 1 COSTH COMMON /MATOUT/ E(3), ANU(3), RHO, G(3), ALF(3), 1 TZERO, G SUB E EQUIVALENCE (CONSTD(2),TWOPI), (CONSTD(4),DEGRAD), 1 (IECPT(1) ,ECPT(1)), 2 (R(1),R1),(R(2),R2),(R(3),R3), (R(4),R4), 3 (Z(1),Z1),(Z(2),Z2),(Z(3),Z3), (Z(4),Z4), 4 (AKI(1),GAMBQ(1)) ,(AKT(1),GAMBQ(37)) DATA IRG / 4HTRAP / C C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT(1) IGP(1) = IECPT(2) IGP(2) = IECPT(3) IGP(3) = IECPT(4) IGP(4) = IECPT(5) MATID = IECPT(7) ICS(1) = IECPT(8) ICS(2) = IECPT(12) ICS(3) = IECPT(16) ICS(4) = IECPT(20) R(1) = ECPT( 9) D(1) = ECPT(10) Z(1) = ECPT(11) R(2) = ECPT(13) D(2) = ECPT(14) Z(2) = ECPT(15) R(3) = ECPT(17) D(3) = ECPT(18) Z(3) = ECPT(19) R(4) = ECPT(21) D(4) = ECPT(22) Z(4) = ECPT(23) TEMPE = ECPT(24) DGAMA = ECPT( 6) C C CHECK INTERNAL GRID POINTS FOR PIVOT POINT C IPP = 0 DO 100 I = 1,4 IF (NPVT .EQ. IGP(I)) IPP = I 100 CONTINUE IF (IPP .EQ. 0) CALL MESAGE (-30,34,IDEL) C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C DO 200 I = 1,4 IF (R(I) .LT. 0.0D0) GO TO 910 IF (D(I) .NE. 0.0D0) GO TO 910 200 CONTINUE C C COMPUTE THE ELEMENT COORDINATES C ZMIN = DMIN1(Z1,Z2,Z3,Z4) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN Z4 = Z4 - ZMIN C C FATAL IF RATIO OF RADII IS TO LARGE FOR GUASS QUADRATURE FOR C IP =-1 C RMIN = DMIN1(R1,R2,R3,R4) RMAX = DMAX1(R1,R2,R3,R4) IF (RMIN .EQ. 0.D0) GO TO 206 IF (RMAX/RMIN .GT. 10.D0) GO TO 930 C 206 IF (R1.GE.R2 .OR. R4.GE.R3 .OR. Z4.LE.Z1) GO TO 910 IF (DABS(Z1-Z2) .GT. 1.0D-3) GO TO 910 IF (DABS(Z3-Z4) .GT. 1.0D-3) GO TO 910 D(5) = (R1+R4)/2.0D0 D(6) = (R2+R3)/2.0D0 IF (D(5) .EQ. 0.0D0) GO TO 210 IF (DABS((R1-R4)/D(5)) .GT. 0.5D-2) GO TO 210 R1 = D(5) R4 = D(5) 210 CONTINUE IF (D(6) .EQ. 0.0D0) GO TO 220 IF (DABS((R2-R3)/D(6)) .GT. 0.5D-2) GO TO 220 R(2) = D(6) R(3) = D(6) 220 CONTINUE C ICORE = 0 J = 1 DO 230 I = 1,4 IF (R(I) .NE. 0.D0) GO TO 230 ICORE = ICORE + 1 JRZ(J) = I J = 2 230 CONTINUE IF (ICORE.NE.0 .AND. ICORE.NE.2) GO TO 910 C C FORM THE TRANSFORMATION MATRIX (8X8) FROM FIELD COORDINATES TO C GRID POINT DEGREES OF FREEDOM C DO 300 I = 1,64 GAMBQ(I) = 0.0D0 300 CONTINUE GAMBQ( 1) = 1.0D0 GAMBQ( 2) = R1 GAMBQ( 3) = Z1 GAMBQ( 4) = R1*Z1 GAMBQ(13) = 1.0D0 GAMBQ(14) = R1 GAMBQ(15) = Z1 GAMBQ(16) = GAMBQ(4) GAMBQ(17) = 1.0D0 GAMBQ(18) = R2 GAMBQ(19) = Z2 GAMBQ(20) = R2*Z2 GAMBQ(29) = 1.0D0 GAMBQ(30) = R2 GAMBQ(31) = Z2 GAMBQ(32) = GAMBQ(20) GAMBQ(33) = 1.0D0 GAMBQ(34) = R3 GAMBQ(35) = Z3 GAMBQ(36) = R3*Z3 GAMBQ(45) = 1.0D0 GAMBQ(46) = R3 GAMBQ(47) = Z3 GAMBQ(48) = GAMBQ(36) GAMBQ(49) = 1.0D0 GAMBQ(50) = R4 GAMBQ(51) = Z4 GAMBQ(52) = R4*Z4 GAMBQ(61) = 1.0D0 GAMBQ(62) = R4 GAMBQ(63) = Z4 GAMBQ(64) = GAMBQ(52) C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (8,GAMBQ(1),8,D(10),0,D(11),ISING,SP) IF (ISING.EQ.2) GO TO 920 C C MODIFY THE TRANSFORMATION MATRIX IF ELEMENT IS A CORE ELEMENT C IF (ICORE .EQ. 0) GO TO 305 JJ1 = 2*JRZ(1) - 1 JJ2 = 2*JRZ(2) - 1 C DO 303 I = 1,8 J = 8*(I-1) GAMBQ(I ) = 0.0D0 GAMBQ(I+16) = 0.0D0 GAMBQ(J+JJ1)= 0.D0 GAMBQ(J+JJ2)= 0.D0 303 CONTINUE 305 CONTINUE C C CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS C INDICATED BY THE FOLLOWING TABLE C C DELINT( 1) - (-1,0) C DELINT( 2) - (-1,1) C DELINT( 3) - (-1,2) C DELINT( 4) - ( 0,0) C DELINT( 5) - ( 0,1) C DELINT( 6) - ( 0,2) C DELINT( 7) - ( 1,0) C DELINT( 8) - ( 1,1) C DELINT( 9) - ( 1,2) C DELINT(10) - ( 2,0) C DELINT(11) - ( 2,1) C DELINT(12) - ( 3,0) C I1 = 0 DO 400 I = 1,4 IP = I - 2 DO 350 J = 1,3 IQ = J - 1 I1 = I1 + 1 IF (I1 .NE. 12) GO TO 340 IP = 3 IQ = 0 340 CONTINUE IF (ICORE .EQ. 0) GO TO 345 IF (I1 .GT. 3) GO TO 345 DELINT(I1) = 0.0D0 GO TO 350 345 CONTINUE DELINT(I1) = RZINTD(IP,IQ,R,Z,4) 350 CONTINUE 400 CONTINUE C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT (IDEL) C C SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES C ER = E(1) ET = E(2) EZ = E(3) VRT = ANU(1) VTZ = ANU(2) VZR = ANU(3) GRZ = G(3) VTR = VRT*ET/ER VZT = VTZ*EZ/ET VRZ = VZR*ER/EZ DEL = 1.0D0 - VRT*VTR - VTZ*VZT - VZR*VRZ - VRT*VTZ*VZR 1 - VRZ*VTR*VZT C C GENERATE ELASTIC CONSTANTS MATRIX (4X4) C EE(1) = ER*(1.0D0-VTZ*VZT)/DEL EE(2) = ER*(VTR + VZR*VTZ)/DEL EE(3) = ER*(VZR + VTR*VZT)/DEL EE(4) = 0.0D0 EE(5) = EE(2) EE(6) = ET*(1.0D0-VRZ*VZR)/DEL EE(7) = ET*(VZT+VRT*VZR)/ DEL EE(8) = 0.0D0 EE(9) = EE(3) EE(10)= EE(7) EE(11)= EZ*(1.0D0-VRT*VTR)/DEL EE(12)= 0.0D0 EE(13)= 0.0D0 EE(14)= 0.0D0 EE(15)= 0.0D0 EE(16)= GRZ C C FORM TRANSFORMATION MATRIX (4X4) FROM MATERIAL AXIS TO ELEMENT C GEOMETRIC AXIS C DGAMR = DGAMA*DEGRAD COSG = DCOS(DGAMR) SING = DSIN(DGAMR) TEO( 1) = COSG**2 TEO( 2) = 0.0D0 TEO( 3) = SING**2 TEO( 4) = SING*COSG TEO( 5) = 0.0D0 TEO( 6) = 1.0D0 TEO( 7) = 0.0D0 TEO( 8) = 0.0D0 TEO( 9) = TEO(3) TEO(10) = 0.0D0 TEO(11) = TEO(1) TEO(12) =-TEO(4) TEO(13) =-2.0D0*TEO(4) TEO(14) = 0.0D0 TEO(15) =-TEO(13) TEO(16) = TEO(1) - TEO(3) C C TRANSFORM THE ELASTIC CONSTANTS MATRIX FROM MATERIAL C TO ELEMENT GEOMETRIC AXIS C CALL GMMATD (TEO,4,4,1, EE, 4,4,0, D ) CALL GMMATD (D ,4,4,0, TEO,4,4,0, EE) C C FORM THE ELEMENT STIFFNESS MATRIX IN FIELD COORDINATES C EE48 = EE(4) + EE(8) D ( 1) = EE(1) + 2.0D0*EE(2) + EE(6) AK( 1) = EE(6)*DELINT(1) AK( 2) = (EE(2) + EE(6))*DELINT(4) AK( 3) = EE(6)*DELINT(2) + EE(8)*DELINT(4) AK( 4) = (EE(2) + EE(6))*DELINT(5) + EE(8)*DELINT(7) AK( 5) = 0.0D0 AK( 6) = EE(8)*DELINT(4) AK( 7) = EE(7)*DELINT(4) AK( 8) = EE(7)*DELINT(7) + EE(8)*DELINT(5) AK( 9) = AK(2) AK(10) = D(1)*DELINT(7) AK(11) = (EE(2) + EE(6))*DELINT(5) + EE48*DELINT(7) AK(12) = D(1)*DELINT(8) + EE48*DELINT(10) AK(13) = 0.0D0 AK(14) = EE48*DELINT(7) AK(15) = (EE(3)+EE(7))*DELINT(7) AK(16) = (EE(3)+EE(7))*DELINT(10) + EE48*DELINT(8) AK(17) = AK( 3) AK(18) = AK(11) AK(19) = EE(6)*DELINT(3) + EE(16)*DELINT(7) + (EE(8) + 1 EE(14))*DELINT(5) AK(20) = (EE(2) + EE(6))*DELINT(6) + EE(16)*DELINT(10) + (EE(8) + 1 EE(13) + EE(14))*DELINT(8) AK(21) = 0.0D0 AK(22) = EE(16)*DELINT(7) + EE(8)*DELINT(5) AK(23) = EE( 7)*DELINT(5) + EE(15)*DELINT(7) AK(24) = (EE(7) + EE(16))*DELINT(8) + EE(8)*DELINT(6) + 1 EE(15)*DELINT(10) AK(25) = AK( 4) AK(26) = AK(12) AK(27) = AK(20) AK(28) = D(1)*DELINT(9) + EE(16)*DELINT(12) + (EE48 + EE(13) + 1 EE(14))*DELINT(11) AK(29) = 0.0D0 AK(30) = EE(16)*DELINT(10) + EE48*DELINT(8) AK(31) = (EE(3) + EE(7))*DELINT(8) + EE(15)*DELINT(10) AK(32) = (EE(3) + EE(7) + EE(16))*DELINT(11) + EE(15)*DELINT(12) + 1 EE48*DELINT(9) AK(33) = 0.0D0 AK(34) = 0.0D0 AK(35) = 0.0D0 AK(36) = 0.0D0 AK(37) = 0.0D0 AK(38) = 0.0D0 AK(39) = 0.0D0 AK(40) = 0.0D0 AK(41) = AK( 6) AK(42) = AK(14) AK(43) = AK(22) AK(44) = AK(30) AK(45) = 0.0D0 AK(46) = EE(16)*DELINT(7) AK(47) = EE(15)*DELINT(7) AK(48) = EE(16)*DELINT(8) + EE(15)*DELINT(10) AK(49) = AK( 7) AK(50) = AK(15) AK(51) = AK(23) AK(52) = AK(31) AK(53) = 0.0D0 AK(54) = AK(47) AK(55) = EE(11)*DELINT( 7) AK(56) = EE(11)*DELINT(10) + EE(12)*DELINT(8) AK(57) = AK( 8) AK(58) = AK(16) AK(59) = AK(24) AK(60) = AK(32) AK(61) = 0.0D0 AK(62) = AK(48) AK(63) = AK(56) AK(64) = EE(11)*DELINT(12) + EE(16)*DELINT(9) + (EE(12) + 1 EE(15))*DELINT(11) C DO 600 I = 1,64 AK(I) = TWOPI*AK(I) 600 CONTINUE C C TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD COORDINATES C TO GRID POINT DEGREES OF FREEDOM C CALL GMMATD (GAMBQ,8,8,1, AK,8,8,0, D) CALL GMMATD (D,8,8,0, GAMBQ,8,8,0, AK) C C ZERO OUT THE (6X6) MATRIX USED AS INPUT TO THE INSERTION ROUTINE C DO 700 I = 1,36 AKI(I) = 0.0D0 700 CONTINUE C C LOCATE THE TRANSFORMATION MATRICES FOR THE FOUR GRID POINTS C DO 800 I = 1,4 IF (ICS(I) .EQ. 0) GO TO 800 K = 9*(I-1) + 1 CALL TRANSD (ICS(I),D(K)) 800 CONTINUE C C START THE LOOP FOR INSERTION OF THE FOUR (6X6) MATRICES C INTO THE MASTER STIFFNESS MATRIX C IR1 = 2*IPP - 1 IAPP = 9*(IPP-1) + 1 DO 900 I = 1,4 C C PLACE THE APPROIATE (2X2) SUBMATRIX OF THE STIFFNESS MATRIX C IN A (3X3) MATRIX FOR TRANSFORMATION C IC1 = 2*I - 1 IRC = (IR1-1)*8 + IC1 AKT(1) = AK(IRC) AKT(2) = 0.0D0 AKT(3) = AK(IRC+1) AKT(4) = 0.0D0 AKT(5) = 0.0D0 AKT(6) = 0.0D0 AKT(7) = AK(IRC+8) AKT(8) = 0.0D0 AKT(9) = AK(IRC+9) C C TRANSFORM THE (3X3) STIFFNESS MATRIX C IF (ICS(IPP) .EQ. 0) GO TO 820 CALL GMMATD (D(IAPP),3,3,1, AKT(1),3,3,0, D(37)) DO 810 J = 1,9 AKT(J) = D(J+36) 810 CONTINUE 820 CONTINUE IF (ICS(I) .EQ. 0) GO TO 840 IAI = 9*(I-1) + 1 CALL GMMATD (AKT(1),3,3,0, D(IAI),3,3,0, D(37)) DO 830 J = 1,9 AKT(J) = D(J+36) 830 CONTINUE 840 CONTINUE C C PLACE THE TRANSFORMED (3X3) MATRIX INTO A (6X6) MATRIX FOR C THE INSERTION ROUTINE C J = 0 DO 850 J1 = 1,18,6 DO 850 J2 = 1,3 J = J + 1 K = J1 + J2 - 1 AKI(K) = AKT(J) 850 CONTINUE C C CALL THE INSERTION ROUTINE C CALL SMA1B (AKI(1),IGP(I),-1,IFKGG,0.0D0) IF (IOPT4.EQ.0 .OR. GSUBE.EQ.0.0) GO TO 900 K4GGSW = 1 DAMPC = GSUBE CALL SMA1B (AKI(1),IGP(I),-1,IF4GG,DAMPC) 900 CONTINUE RETURN C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C 910 I = 37 GO TO 950 920 I = 26 GO TO 950 930 I = 221 C ... 221 WILL PRINT USER MESSAGE 2218 C 950 IF (NMSG .EQ. 0) GO TO 970 IF (NMSG .GE. MMSG) RETURN DO 960 J = 1,NMSG IF (MSG(3,J).EQ.IDEL .AND. MSG(2,J).EQ.I) RETURN 960 CONTINUE 970 ICS(1) = IDEL ICS(2) = IRG CALL MESAGE (30,I,ICS) NOGO = 1 RETURN C END ================================================ FILE: mis/ktrbsc.f ================================================ SUBROUTINE KTRBSC (IOPT) C C BASIC BENDING TRIANGLE ELEMENT ROUTINE C C IOPT = 0 IMPLIES DO COMPLETE BASIC BENDING TRIANGLE. C INSERTING THREE (6X6) MATRICES FOR A PIVOT POINT. C IOPT = 1 IMPLIES COMPUTE ONLY THE NINE (3X3)MATRICES C WHICH FORM THE 9X9 K SUPER U - MATRIX. C IOPT = 2 SAME AS IOPT = 1, BUT SAVE H-INVERSE AND S C C CALLS FROM THIS ROUTINE ARE MADE TO - C C MAT - MATERIAL DATA ROUTINE C SMA1B - INSERTION ROUTINE C TRANSD - DOUBLE PRECISION TRANSFORMATION SUPPLIER C INVERD - DOUBLE PRECISION INVERSE ROUTINE C GMMATD - DOUBLE PRECISION MATRIX MULTIPLY AND TRANSPOSE C MESAGE - ERROR MESSAGE WRITER C INTEGER SUBSCA,SUBSCB DOUBLE PRECISION A,E,XSUBB,TEMP,XSUBC,D,YSUBC,XCYC,XCSQ,DETERM, 1 YCSQ,XBSQ,G2X2,TITE,TJTE,S,TI,J2X2,AREA,XBAR, 2 YBAR,PX2,PY2,PXY2,XBAR3,YBAR2,YBAR3,PROD9,TEMP9, 3 G DIMENSION D(9),G2X2(4),J2X2(4),S(18),ECPT(25),G(9), 1 TJTE(18),TITE(18),TI(9) COMMON /CONDAS/ CONSTS(5) COMMON /SMA1IO/ DUM1(10),IFKGG,DUM2(1),IF4GG,DUM3(23) COMMON /SMA1CL/ IOPT4,K4GGSW,NPVT,DUMCL(7),LINK(10),IDETCK, 1 DODET,NOGO COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE, 2 G2X211, G2X212, G2X222 COMMON /SMA1ET/ NECPT(1),NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU, 1 Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3, 2 X3,Y3,Z3,DUMB(76) COMMON /SMA1DP/ A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,E(18), 1 TEMP,XBAR,AREA,XCSQ,YBAR2,YCSQ,YBAR,XBSQ,PX2, 2 XCYC,PY2,PXY2,XBAR3,YBAR3,DETERM,NSIZED, 3 DUMDUM(4),NPIVOT,THETA,NSUBC,ISING,SUBSCA,SUBSCB, 4 NBEGIN,DUMMY(30) EQUIVALENCE (CONSTS(4),DEGRA),(D(1),G(1),A(79)), 1 (ECPT(1),NECPT(1)),(G2X2(1),A(88)), 2 (TJTE(1),A(100)),(TITE(1),S(1),A(82)), 3 (J2X2(1),A(92)),(TI(1),A(118)) C C ECPT LIST FOR BASIC BENDING TRIANGLE NAME IN C THIS C ECPT ROUTINE TYPE C ===================================== ======== ======= C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID 1 MATID1 INTEGER C ECPT( 7) = I = MOMENT OF INERTIA EYE REAL C ECPT( 8) = MATERIAL ID 2 MATID2 INTEGER C ECPT( 9) = T2 T2 REAL C ECPT(10) = NON-STRUCTURAL-MASS FMU REAL C ECPT(11) = Z1 Z11 REAL C ECPT(12) = Z2 Z22 REAL C ECPT(13) = COORD. SYSTEM ID 1 NECPT(13) INTEGER C ECPT(14) = X1 X1 REAL C ECPT(15) = Y1 Y1 REAL C ECPT(16) = Z1 Z1 REAL C ECPT(17) = COORD. SYSTEM ID 2 NECPT(17) INTEGER C ECPT(18) = X2 X2 REAL C ECPT(19) = Y2 Y2 REAL C ECPT(20) = Z2 Z2 REAL C ECPT(21) = COORD. SYSTEM ID 3 NECPT(21) INTEGER C ECPT(22) = X3 X3 REAL C ECPT(23) = Y3 Y3 REAL C ECPT(24) = Z3 Z3 REAL C ECPT(25) = ELEMENT TEMPERATURE ELTEMP REAL C NTYPE = 0 IF (IOPT .GT. 0) NTYPE = 1 IF (NTYPE .EQ. 1) GO TO 455 ELTEMP = ECPT(25) C C SET UP I, J, K VECTORS STORING AS FOLLOWS AND ALSO CALCULATE C X-SUB-B, X-SUB-C, AND Y-SUB-C. C C E(11), E(14), E(17) WILL BE THE I-VECTOR. C E(12), E(15), E(18) WILL BE THE J-VECTOR. C E( 1), E( 4), E( 7) WILL BE THE K-VECTOR. C C FIND I-VECTOR = RSUBB - RUBA (NON-NORMALIZED) C E(11) = DBLE(X2) - DBLE(X1) E(14) = DBLE(Y2) - DBLE(Y1) E(17) = DBLE(Z2) - DBLE(Z1) C C FIND LENGTH = X-SUB-B COOR. IN ELEMENT SYSTEM C XSUBB = DSQRT(E(11)**2 + E(14)**2 + E(17)**2) IF (XSUBB .GT. 1.0D-06) GO TO 20 CALL MESAGE (30,31,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C 20 NORMALIZE I-VECTOR WITH X-SUB-B C 20 E(11) = E(11)/XSUBB E(14) = E(14)/XSUBB E(17) = E(17)/XSUBB C C TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN E(2), E(5), E(8) C E(2) = DBLE(X3) - DBLE(X1) E(5) = DBLE(Y3) - DBLE(Y1) E(8) = DBLE(Z3) - DBLE(Z1) C C X-SUB-C = I . (RSUBC - RSUBA), THUS C XSUBC = E(11)*E(2) + E(14)*E(5) + E(17)*E(8) C C CROSSING I-VECTOR TO (RSUBC - RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(1) = E(14)*E( 8) - E( 5)*E(17) E(4) = E( 2)*E(17) - E(11)*E( 8) E(7) = E(11)*E( 5) - E( 2)*E(14) C C FIND LENGTH = Y-SUB-C COOR. IN ELEMENT SYSTEM C YSUBC = DSQRT(E(1)**2 + E(4)**2 + E(7)**2) IF (YSUBC .GT. 1.0D-06) GO TO 25 CALL MESAGE (30,32,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C NORMALIZE K-VECTOR WITH Y-SUB-C C 25 E(1) = E(1)/YSUBC E(4) = E(4)/YSUBC E(7) = E(7)/YSUBC C C NOW HAVING I AND K VECTORS GET -- J = K CROSS I C E(12) = E( 4)*E(17) - E(14)*E( 7) E(15) = E(11)*E( 7) - E( 1)*E(17) E(18) = E( 1)*E(14) - E(11)*E( 4) C C NORMALIZE J-VECTOR FOR COMPUTER EXACTNESS JUST TO MAKE SURE C TEMP = DSQRT(E(12)**2 + E(15)**2 + E(18)**2) E(12) = E(12)/TEMP E(15) = E(15)/TEMP E(18) = E(18)/TEMP E( 2) = 0.0D0 E( 3) = 0.0D0 E( 5) = 0.0D0 E( 6) = 0.0D0 E( 8) = 0.0D0 E( 9) = 0.0D0 E(10) = 0.0D0 E(13) = 0.0D0 E(16) = 0.0D0 C C CONVERT ANGLE FROM DEGREES TO RADIANS STORING IN THETA. C THETA = ANGLE*DEGRA SINTH = SIN(THETA) COSTH = COS(THETA) IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 C C SETTING UP G MATRIX C 455 INFLAG = 2 MATID = MATID1 CALL MAT (ECPT(1)) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT) C DO 90 I = 1,9 90 D(I) = G(I)*DBLE(EYE) C AREA = XSUBB*YSUBC/2.0D0 XBAR =(XSUBB+XSUBC)/3.0D0 YBAR = YSUBC/3.0D0 C XCSQ = XSUBC**2 YCSQ = YSUBC**2 XBSQ = XSUBB**2 XCYC = XSUBC*YSUBC PX2 = (XBSQ+XSUBB*XSUBC+XCSQ)/6.0D0 PY2 = YCSQ/6.0D0 PXY2= YSUBC*(XSUBB+2.0D0*XSUBC)/12.0D0 XBAR3 = 3.0D0*XBAR YBAR3 = 3.0D0*YBAR YBAR2 = 2.0D0*YBAR C C X C FILL THE (K ) MATRIX STORING IN A(1) THRU A(36) C A( 1) = D( 1) A( 2) = D( 3) A( 3) = D( 2) A( 4) = D( 1)*XBAR3 A( 5) = D( 2)*XBAR + YBAR2*D(3) A( 6) = D( 2)*YBAR3 A( 7) = A( 2) A( 8) = D( 9) A( 9) = D( 6) A(10) = D( 3)*XBAR3 A(11) = D( 6)*XBAR + YBAR2*D(9) A(12) = D( 6)*YBAR3 A(13) = A( 3) A(14) = A( 9) A(15) = D( 5) A(16) = D( 2)*XBAR3 A(17) = D( 5)*XBAR + YBAR2*D(6) A(18) = D( 5)*YBAR3 A(19) = A( 4) A(20) = A(10) A(21) = A(16) A(22) = D( 1)*9.0D0*PX2 A(23) = D( 2)*3.0D0*PX2 + 6.0D0*PXY2*D(3) A(24) = D( 2)*9.0D0*PXY2 A(25) = A( 5) A(26) = A(11) A(27) = A(17) A(28) = A(23) A(29) = D( 5)*PX2 + 4.0D0*PXY2*D(6) + 4.0D0*PY2*D(9) A(30) = D( 5)*3.0D0*PXY2 + 6.0D0*PY2*D(6) A(31) = A( 6) A(32) = A(12) A(33) = A(18) A(34) = A(24) A(35) = A(30) A(36) = D( 5)*9.0D0*PY2 TEMP = 4.0D0*AREA DO 70 I = 1,36 70 A(I) = A(I)*TEMP C C F1LL (HBAR) MATRIX STORING AT A(37) THRU A(72) C DO 130 I = 37,72 130 A(I) = 0.0D0 C A(37) = XBSQ A(40) = XBSQ*XSUBB A(44) = XSUBB A(49) =-2.0D0*XSUBB A(52) =-3.0D0*XBSQ A(55) = XCSQ A(56) = XCYC A(57) = YCSQ A(58) = XCSQ*XSUBC A(59) = YCSQ*XSUBC A(60) = YCSQ*YSUBC A(62) = XSUBC A(63) = YSUBC*2.0D0 A(65) = XCYC *2.0D0 A(66) = YCSQ *3.0D0 A(67) =-2.0D0*XSUBC A(68) =-YSUBC A(70) =-3.0D0*XCSQ A(71) =-YCSQ C IF (T2 .EQ. 0.0E0) GO TO 500 C C ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 500 C ARE NECESSARY IF T2 IS NON-ZERO. C C GET THE G2X2 MATRIX C MATID = MATID2 INFLAG = 3 CALL MAT (ECPT(1)) IF (G2X211.EQ.0. .AND. G2X212.EQ.0. .AND. G2X222.EQ.0.) GO TO 500 G2X2(1) = G2X211*T2 G2X2(2) = G2X212*T2 G2X2(3) = G2X212*T2 G2X2(4) = G2X222*T2 C DETERM = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2) J2X2(1) = G2X2(4)/DETERM J2X2(2) =-G2X2(2)/DETERM J2X2(3) =-G2X2(3)/DETERM J2X2(4) = G2X2(1)/DETERM C C (H ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE C YQ RIGHT PORTION IS COMPUTED AND USED AS A (2X3). THE LEFT C 2X3 PORTION IS NULL. THE RIGHT PORTION WILL BE STORED AT C A(73) THRU A(78) UNTIL NOT NEEDED ANY FURTHER. C TEMP = 2.0D0*D(2) + 4.0D0*D(9) A(73) = -6.0D0*(J2X2(1)*D(1) + J2X2(2)*D(3)) A(74) = -J2X2(1)*TEMP - 6.0D0*J2X2(2)*D(6) A(75) = -6.0D0*(J2X2(1)*D(6) + J2X2(2)*D(5)) A(76) = -6.0D0*(J2X2(2)*D(1) + J2X2(4)*D(3)) A(77) = -J2X2(2)*TEMP - 6.0D0*J2X2(4)*D(6) A(78) = -6.0D0*(J2X2(2)*D(6) + J2X2(4)*D(5)) C C THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H ) MATRIX (2X3) C YQ C C NOW FORMING PRODUCT (G2X2)(H ) AND STORING AS AN INTERMEDIATE C STEP. YQ C C CALL GMMATD (G2X2(1),2,2,0, A(73),2,3,0, A(79)) C C Y C WITH LAST PRODUCT FORM LOWER RIGHT 3 X 3 PARTITION OF (K ) C C Y T C THUS (K ) PARTITION = (H ) (LAST PRODUCT) STORE AT A(85) C YQ C CALL GMMATD (A(73),2,3,1, A(79),2,3,0, A(85)) C C X C NOW ADD THE 9 ELEMENTS OF THIS 3X3 PORTION TO (K ) C PER STEP 5 PAGE -16- MS-17 Y C MULTIPLY IN AREA AT SAME TIME WHICH WAS LEFT OUT OF (K ) ABOVE. C DO 60 I = 1,3 A(I+21) = A(I+21) + A(I+84)*AREA A(I+27) = A(I+27) + A(I+87)*AREA 60 A(I+33) = A(I+33) + A(I+90)*AREA C C ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H )(H ) C UY YQ C THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW. C NO (H ) MATRIX IS ACTUALLY COMPUTED DIRECTLY. C UY C C THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17. C DO 75 I = 1,3 A(I+39) = A(I+39) + XSUBB*A(I+72) 75 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75) C C THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO C 500 CONTINUE C C AT THIS POINT INVERT (H) WHICH IS STORED AT A(37) THRU A(72) C STORE INVERSE BACK IN A(37) THRU A(72) C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (6,A(37),6,A(73),0,DETERM,ISING,A(79)) C C CHECK TO SEE IF H WAS SINGULAR C IF (ISING .NE. 2) GO TO 440 C C ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION. C CALL MESAGE (30,33,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C Q -1 C 440 FORM (K )(H ) AND STORE AT A(73) THRU A(108) C C X Q C NOTE THAT (K ) AT THIS POINT IS (K ) C 440 CALL GMMATD (A(1),6,6,0, A(37),6,6,0, A(73)) C C -1 T C FORM(K ) = (H ) (LAST PRODUCT) STORE AT A(109) THRU A(144) C II C CALL GMMATD (A(37),6,6,1, A(73),6,6,0, A(109)) C C FILL S-MATRIX EQUIVALENCED TO A(82) (S IS 6X3) C IF (IOPT.NE.2) GO TO 700 C C SAVE H-INVERSE TO BE USED BY TRIANGULAR PLATE ROUTINE. C DO 710 I = 37,72 710 A(I+108) = A(I) C 700 S( 1) = 1.0D0 S( 2) = 0.0D0 S( 3) =-XSUBB S( 4) = 0.0D0 S( 5) = 1.0D0 S( 6) = 0.0D0 S( 7) = 0.0D0 S( 8) = 0.0D0 S( 9) = 1.0D0 S(10) = 1.0D0 S(11) = YSUBC S(12) =-XSUBC S(13) = 0.0D0 S(14) = 1.0D0 S(15) = 0.0D0 S(16) = 0.0D0 S(17) = 0.0D0 S(18) = 1.0D0 C C T C FORM K = K = -K S STORING AT A(46) (K IS 6X3) C IA AI II IA C CALL GMMATD (A(109),6,6,0, S(1),6,3,0, A(46)) C C THIS PRODUCT IS MULTIPLIED BY SCALER -1 BELOW. C C T C (K ) = (S )(-K ) C AA IA C C NOTE K HAS NOT BEEN MULTIPLIED ABOVE BY -1, THUS IGNORE MINUS C IA HERE. C CALL GMMATD (S(1),6,3,1, A(46),6,3,0, A(1)) C C NOW MULTIPLY K BY SCALER (-1) C IA C DO 190 I = 46,63 190 A(I) = -A(I) C C AT THIS POINT, STORED BY ROWS ARE C C K (6X6) AT A(109) THRU A(144) C II C C K (6,3) AT A(46) THRU A(63) C IA C C K (3X3) AT A(1) THRU A(9) C AA C C ARRANGE NINE 3X3 MATRICES OF K SUPER U C DO 600 I = 28,36 600 A(I) = A(I+18) A(10) = A(46) A(11) = A(49) A(12) = A(52) A(13) = A(47) A(14) = A(50) A(15) = A(53) A(16) = A(48) A(17) = A(51) A(18) = A(54) A(19) = A(55) A(20) = A(58) A(21) = A(61) A(22) = A(56) A(23) = A(59) A(24) = A(62) A(25) = A(57) A(26) = A(60) A(27) = A(63) A(37) = A(109) A(38) = A(110) A(39) = A(111) A(40) = A(115) A(41) = A(116) A(42) = A(117) A(43) = A(121) A(44) = A(122) A(45) = A(123) A(46) = A(112) A(47) = A(113) A(48) = A(114) A(49) = A(118) A(50) = A(119) A(51) = A(120) A(52) = A(124) A(53) = A(125) A(54) = A(126) A(64) = A(127) A(65) = A(128) A(66) = A(129) A(67) = A(133) A(68) = A(134) A(69) = A(135) A(70) = A(139) A(71) = A(140) A(72) = A(141) A(73) = A(130) A(74) = A(131) A(75) = A(132) A(76) = A(136) A(77) = A(137) A(78) = A(138) A(79) = A(142) A(80) = A(143) A(81) = A(144) IF (NTYPE .EQ. 1) RETURN C DO 95 I = 1,3 IF (NGRID(I) .NE. NPVT) GO TO 95 NPIVOT = I GO TO 170 95 CONTINUE C C ERROR IF FALL THRU ABOVE LOOP C CALL MESAGE (-30,34,ECPT(1)) C C 170 AT THIS POINT START ASSEMBLY OF 3 6X6 MATRICES FOR I = PIVOT, C AND J =1,2,3 IN THE FOLLOWING EQUATION. C C T U T C (K ) = (T ) (E) (K ) (E ) (T ) C IJ I IJ J C C C FIRST GET THE PRODUCT APPLICABLE TO ALL 3 K . C IJ C T C = (T ) (E) A 6X3 MATRIX. C I C C CHECK TO SEE IF TI-MATRIX IS NEEDED C IF THE CSID IS ZERO FOR THE PIVOT POINT SKIP TRANSFORMATION. C 170 IF (NECPT(4*NPIVOT+9) .EQ. 0) GO TO 250 C C GET TI AND MULTIPLY WITH E TO FILL TITE (THE COMMON PRODUCT) C CALL TRANSD (NECPT(4*NPIVOT+9),TI) C C TI IS EQUIVALENCED TO A(118) AND IS 3X3. C C FORM TITE (UPPER AND LOWER) OK OK OK C CALL GMMATD (TI(1),3,3,1, E(1),3,3,0, TITE(1)) CALL GMMATD (TI(1),3,3,1, E(10),3,3,0, TITE(10)) C GO TO 280 C C 250 COMING HERE IMPLIES TI NOT USED. C JUST SET TITE = E MATRIX C 250 DO 260 I = 1,18 260 TITE(I) = E(I) C C T C 280 AT THIS POINT COMMON PRODUCT IS COMPLETE =(T )(E) STORED IN TITE C I C C THE PIVOT I IS NPIVOT 280 NPT1 = 1 IF (NPIVOT .EQ. 1 ) NPT1 = 28 C C THE ABOVE SETS A POINTER, NPT1, TO POINT TO 18 FREE DOUBLE PREC. C CORE LOCATIONS IN THE A-ARRAY FOR STORAGE OF THE FOLLOWING C SUB-PRODUCT. C U T C (K )(E )(T ) C IJ J C C C LOOP THRU FOR THE 3 - 6X6 K ARRAYS. C IJ DO 800 J = 1,3 C T C TAKE SUB PRODUCT = (E )(T ).. STORE IN TJTE MATRIX C J C C NOTE.. THE TRANSPOSE OF THE ABOVE IS BEING FOUND AND USED, C T C = (T )(E), AND STORED IN TJTE-MATRIX C J EQUIVALENCED TO A(100) C C C CHECK TO SEE IF TRANSFORMATION IS NEEDED. C IF NOT SKIP TO 850 C IF (NECPT(4*J+9) .EQ. 0) GO TO 850 C CALL TRANSD (NECPT(4*J+9),TI) CALL GMMATD (TI(1),3,3,1, E(1),3,3,0, TJTE(1)) CALL GMMATD (TI(1),3,3,1, E(10),3,3,0, TJTE(10)) GO TO 880 C C 850 COMING HERE IF TRANSFORMATION NOT USED C C 850 SET TJTE = E 850 DO 860 I = 1,18 860 TJTE(I) = E(I) C C T T C 880 ( (E )(T ) ) IS COMPLETE AND STORED BY ROWS IN TJTE-MATRIX. C J C U T C NOW FORM, (K )(E )(T ), STORING AT A(NPT1) C IJ J C C NPT1 = 1 IF PIVOT IS GRID PT. 2 OR 3 C NPT1 = 28 IF PIVOT IS GRID PT. 1 C U C TO COMPUTE ABOVE USE 3X3 K C (NPIVOT,J) C COMPUTE POINTER TO THIS 3X3. C 880 NPT2 = 27*NPIVOT + 9*J - 35 C CALL GMMATD (A(NPT2),3,3,0, TJTE,6,3,1, A(NPT1)) C C C 950 AT THIS POINT, C U T C (K )(E )(T ) IS STORED AT A(NPT1), (3X6). C IJ J C C AND, T C (T )(E) IS STORED AT TITE(1) = A(82) (6X3) C I C C FORMING FINAL PRODUCT, AND STORING AT A(100) THE 6X6. C CALL GMMATD (TITE(1),6,3,0, A(NPT1),3,6,0, A(100)) C C SHIP TO SMA1B C CALL SMA1B (A(100),NECPT(J+1),-1,IFKGG,0.0D0) TEMP = G SUB E IF (IOPT4) 801,800,801 801 IF (GSUBE) 802,800,802 802 CALL SMA1B (A(100),NECPT(J+1),-1,IF4GG,TEMP) K4GGSW = 1 C 800 CONTINUE C RETURN END ================================================ FILE: mis/ktriqd.f ================================================ SUBROUTINE KTRIQD (NTYPE) C C C 8/18/67 E C P T L I S T I N G C C ECPT TRMEM QDMEM TRPLT QDPLT TRIA1 QUAD1 TRIA2 QUAD2 C ***** ******* ******* ******* ******* ******* ******* ******* ******** C 1 EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID C 2 GRID A GRID A GRID A GRID A GRID A GRID A GRID A GRID A C 3 GRID B GRID B GRID B GRID B GRID B GRID B GRID B GRID B C 4 GRID C GRID C GRID C GRID C GRID C GRID C GRID C GRID C C 5 THETA GRID D THETA GRID D THETA GRID D THETA GRID D C 6 MATID THETA MATID1 THETA MATID1 THETA MAT ID THETA C 7 T MAT ID I MATID1 T1 MATID1 T MAT ID C 8 NS MASS T MATID2 I MATID2 T1 NS MASS T C 9 CSID 1 NS MASS T2 MATID2 I MATID2 CSID 1 NS MASS C 10 X1 CSID 1 NS MASS T2 MATID3 I X1 CSID 1 C 11 Y1 X1 Z1 NS MASS T2 MATID3 Y1 X1 C 12 Z1 Y1 Z2 Z1 NS MASS T2 Z1 Y1 C 13 CSID 2 Z1 CSID 1 Z2 Z1 NS MASS CSID 2 Z1 C 14 X2 CSID 2 X1 CSID 1 Z2 Z1 X2 CSID 2 C 15 Y2 X2 Y1 X1 CSID 1 Z2 Y2 X2 C 16 Z2 Y2 Z1 Y1 X1 CSID 1 Z2 Y2 C 17 CSID 3 Z2 CSID 2 Z1 Y1 X1 CSID 3 Z2 C 18 X3 CSID 3 X2 CSID 2 Z1 Y1 X3 CSID 3 C 19 Y3 X3 Y2 X2 CSID 2 Z1 Y3 X3 C 20 Z3 Y3 Z2 Y2 X2 CSID 2 Z3 Y3 C 21 TEMP Z3 CSID 3 Z2 Y2 X2 TEMP Z3 C 22 CSID 4 X3 CSID 3 Z2 Y2 CSID 4 C 23 X4 Y3 X3 CSID 3 Z2 X4 C 24 Y4 Z3 Y3 X3 CSID 3 Y4 C 25 Z4 TEMP Z3 Y3 X3 Z4 C 26 TEMP CSID 4 Z3 Y3 TEMP C 27 X4 TEMP Z3 C 28 Y4 CSID 4 C 29 Z4 X4 C 30 TEMP Y4 C 31 Z4 C 32 TEMP C C LOGICAL HEAT INTEGER SCR4,IECPT(4),BCD(2,4),BGPDT(4) DIMENSION SAVE(32) COMMON /BLANK / SKIP(16),VOLUME,SURFAC COMMON /MATOUT/ DUM(6),RHO COMMON /SMA1HT/ HEAT COMMON /SMA1ET/ ECPT(100) COMMON /SMA1DP/ DUMMY(600) EQUIVALENCE (SAVE(1),ECPT(50)),(ECPT(1),IECPT(1)) DATA BCD / 4HCTRI,2HA1,4HCTRI,2HA2,4HCQUA,2HD1,4HCQUA,2HD2 / DATA OLD , KOUNT,NGPT / 0.0, 2*0 / DATA SCR4 , BGPDT/ 304, 15, 9, 16, 10 / C C THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2 C C NTYPE = 1 IMPLIES KTRIA1 C NTYPE = 2 IMPLIES KTRIA2 C NTYPE = 3 IMPLIES KQUAD1 C NTYPE = 4 IMPLIES KQUAD2 C C CALLS FROM THIS ROUTINE CAN BE MADE TO C C KTRMEM - TRIANGULAR MEMBRANE ROUTINE C KQDMEM - QUADRILATERAL MEMBRANE ROUTINE C KTQPLT - TRIANGULAR OR QUADRILATERAL PLATE ROUTINE C QDMM1X - HIGHER LEVEL QUADRIALATER MEMBRANE ROUTINE C C ALL INSERTIONS OF 6X6 ELEMENT STIFFNESS MATRICES ARE HANDLED BY C THE ABOVE ROUTINES. C C C THE SAVED ECPT IS EQUIVALENCED TO ECPT(50) C C SAVE THE INCOMING ECPT C DO 10 I = 1,32 10 SAVE(I) = ECPT(I) C C TRANSFER TO OPERATIONS DESIRED C C KTRIA1 KTRIA2 KQUAD1 KQUAD2 GO TO ( 20, 70, 100, 150), NTYPE C C *** KTRIA1 *** C C SET UP ECPT FOR CALL TO KTRMEM (0), FIRST CHECK T1 FOR ZERO. C 20 IF (SAVE(7) .EQ. 0.0) GO TO 40 DO 30 I = 9,21 30 ECPT(I) = SAVE(I+6) C CALL KTRMEM (0) C C SET UP ECPT FOR CALL TO TQPLT(3), FIRST CHECK I AND T2 EQUAL ZERO. C 40 IF (SAVE(9) .EQ. 0.0) GO TO 200 DO 50 I = 1,5 50 ECPT(I) = SAVE(I) DO 60 I = 6,25 60 ECPT(I) = SAVE(I+2) C IF (.NOT.HEAT) CALL KTRPLT GO TO 200 C C *** KTRIA2 *** C 70 IF (SAVE(7) .EQ. 0.0) GO TO 200 C C SET UP ECPT FOR CALL TO KTRMEM (0) C C ECPT IS OK AS DELIVERED TO THIS ROUTINE C CALL KTRMEM (0) C C SET UP ECPT FOR CALL TO KTQPLT (3) C DO 80 I = 1,6 80 ECPT(I) = SAVE(I) ECPT(7) = SAVE(7)**3/12.0 ECPT(8) = SAVE(6) ECPT(9) = SAVE(7) ECPT(10)= SAVE(8) DO 90 I = 13,25 90 ECPT(I) = SAVE(I-4) C IF (.NOT.HEAT) CALL KTRPLT GO TO 200 C C *** KQUAD1 *** C 100 IF (SAVE(8) .EQ. 0.0) GO TO 120 C C SET UP ECPT FOR CALL TO KQDMEM C ECPT(9) = SAVE(13) DO 110 I = 10,26 110 ECPT(I) = SAVE(I+6) C CALL KQDMEM C 120 IF (SAVE(10) .EQ. 0.0) GO TO 200 C C SET UP ECPT FOR CALL TO KTQPLT (4) C DO 130 I = 1,6 130 ECPT(I) = SAVE(I) DO 140 I = 7,30 140 ECPT(I) = SAVE(I+2) C IF (.NOT.HEAT) CALL KQDPLT GO TO 200 C C *** KQUAD2 *** C 150 IF (SAVE(8) .EQ. 0.0) GO TO 200 C C SET UP ECPT FOR CALL TO KQDMEM C (WHICH HAS WEAK STIFFNESS MATRIX FORMULATION) C OR C SET UP ECPT FOR CALL TO QDMM1D/S (BETTER MEMBRANE FORMALATION) C THE PROBLEM HERE IS THAT KTRIQD AND KQDMEM ARE EMGOLD ELEMENTS C WHILE QDMM1D/S ARE EMGPRO NEW ELEMENTS. C TO SOLVE THIS PROPLEM, WE NEED A S.P./D.P. QDMM1X ELEMENT ROUTINE C THAT USES QDMM1D/S FORMULATION WITH EMGOLD/SMA1B TECHNIQUE. C C ECPT IS OK AS DELIVERED TO THIS ROUTINE C C CALL QDMM1X C (QDMM1X IS INCOMPLETE AS OF 3/92. GO BACK TO KQDMEM) C CALL KQDMEM C C SET UP ECPT FOR CALL TO KTQPLT (4) C DO 160 I = 1,7 160 ECPT(I) = SAVE(I) ECPT(8) = SAVE(8)**3/12.0 ECPT(9) = SAVE(7) ECPT(10)= SAVE(8) ECPT(11)= SAVE(9) DO 170 I = 14,30 170 ECPT(I) = SAVE(I-4) C IF (.NOT. HEAT) CALL KQDPLT C C C SAVE ELEMENT NAME, ID, THICKNESS, DENSITY, NO. OF GRID POINTS, C AND GRID PT DATA IF USER REQUESTED VOLUME AND AREA COMPUTATION C 200 IF (HEAT .OR. (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0)) GO TO 220 IF (SAVE(1) .EQ. OLD) GO TO 210 OLD = SAVE(1) NGPT = 3 IF (NTYPE .GE. 3) NGPT = 4 KOUNT = 0 210 KOUNT = KOUNT + 1 IF (KOUNT .LT. NGPT) GO TO 220 ECPT(2) = SAVE(7) ECPT(3) = RHO IECPT(4)= NGPT I = BGPDT(NTYPE) K = NGPT*4 IF (NTYPE .GE. 3) ECPT(2) = SAVE(8) CALL WRITE (SCR4,BCD(1,NTYPE),2,0) CALL WRITE (SCR4,ECPT(1),4,0) CALL WRITE (SCR4,SAVE(2),NGPT,0) CALL WRITE (SCR4,SAVE(I),K,1) 220 RETURN END ================================================ FILE: mis/ktrirg.f ================================================ SUBROUTINE KTRIRG C C C***** C THIS ROUTINE COMPUTES THE STIFFNESS MATRIX FOR A AXI-SYMMETRIC RING C WITH A TRIANGULAR CROSS SECTION C***** C C C ECPT FOR THE TRIANGULAR RING C C C TYPE C ECPT( 1) ELEMENT IDENTIFICATION I C ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A I C ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B I C ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C I C ECPT( 5) MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT( 6) MATERIAL IDENTIFICATION I C ECPT( 7) COOR. SYS. ID. FOR GRID POINT A I C ECPT( 8) X-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT( 9) Y-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(10) Z-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(11) COOR. SYS. ID. FOR GRID POINT B I C ECPT(12) X-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(13) Y-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(14) Z-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(15) COOR. SYS. ID. FOR GRID POINT C I C ECPT(16) X-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(17) Y-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(18) Z-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(19) EL. TEMPERATURE FOR MATERIAL PROPERTIES R C C DOUBLE PRECISION CONSTD, DEGRAD DOUBLE PRECISION 1 D , GAMBQ, R, Z 2, TEO, EE, DELINT, AK, AKI 3, AKT DOUBLE PRECISION R1, R2, R3, Z1, Z2, Z3, ZMIN, DGAMA 1, DR, RH, DZ, ZH, RA, ZA, AREA 2, ER, ET, EZ, VRT, VTR, VTZ, VZT 3, VZR, VRZ, GRZ, DEL, COSG,SING,DGAMR 4, TWOPI, DKI DOUBLE PRECISION DAMPC C DIMENSION IECPT(19) DIMENSION AKI(36), AKT(9) C COMMON /CONDAD/ CONSTD(5) COMMON /SMA1IO/ 1 DUM1(10) 2, IFKGG 3, IGKGG, IF4GG, DUM2(21) COMMON /SMA1CL/ 1 IOPT4, K4GGSW 2, NPVT 3, DUM4(7) 4, LINK(10) ,IDETCK 5, DODET ,NOGO COMMON /SMA1ET/ 1 ECPT(19) 2, DUM5(81) COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH COMMON /MATOUT/ 1 E(3) ,ANU(3) 2, RHO ,G(3) 3, ALF(3) ,TZERO, GSUBE COMMON /SMA1DP/ 1 D(36) , GAMBQ(36), R(3) , Z(3) 2, TEO(16), EE(16), DELINT(8), AK(36) 4, DGAMA, ZMIN 5, DR, RH, DZ, ZH, RA, ZA, AREA 6, ER, ET, EZ, VRT, VTR, VTZ, VZT 7, VZR, VRZ, GRZ, DEL, COSG,SING,DGAMR 8, IGP(3) , ICS(3) , SP(18) 9, TEMPE C EQUIVALENCE ( CONSTD(2) , TWOPI ) EQUIVALENCE ( CONSTD(4) , DEGRAD ) EQUIVALENCE (IECPT(1) , ECPT(1)) EQUIVALENCE (R(1),R1), (R(2),R2), (R(3),R3) 1, (Z(1),Z1), (Z(2),Z2), (Z(3),Z3) EQUIVALENCE (AKI(1), GAMBQ(1)) EQUIVALENCE (AKT(1), TEO(1)) C C ---------------------------------------------------------------------- C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT(1) IGP(1)= IECPT(2) IGP(2)= IECPT(3) IGP(3)= IECPT(4) MATID = IECPT(6) ICS(1)= IECPT(7) ICS(2)= IECPT(11) ICS(3)= IECPT(15) R(1) = ECPT(8) D(1) = ECPT(9) Z(1) = ECPT(10) R(2) = ECPT(12) D(2) = ECPT(13) Z(2) = ECPT(14) R(3) = ECPT(16) D(3) = ECPT(17) Z(3) = ECPT(18) TEMPE = ECPT(19) DGAMA = ECPT(5) C C C CHECK INTERNAL GRID POINTS FOR PIVOT POINT C IPP = 0 DO 100 I = 1,3 IF (NPVT .EQ. IGP(I)) IPP = I 100 CONTINUE IF (IPP .EQ. 0) CALL MESAGE (-30,34,IDEL) C C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C IEROR1 = 0 DO 200 I = 1,3 IF (R(I).GT.0.0D0) GO TO 200 IF (IEROR1.NE.0) GO TO 200 CALL MESAGE (30, 211, IDEL) IEROR1 = 1 200 CONTINUE IEROR2 = 0 DO 210 I = 1, 3 IF (D(I).EQ.0.0D0) GO TO 210 IF (IEROR2.NE.0) GO TO 210 CALL MESAGE (30, 212, IDEL) IEROR2 = 1 210 CONTINUE IF (IEROR1.EQ.0.AND.IEROR2.EQ.0) GO TO 220 NOGO = 2 RETURN 220 IF ((R2 - R1)*(Z3 - Z1) - (R3 - R1)*(Z2 - Z1).LT.0.0D0) GO TO 920 C C C COMPUTE THE ELEMENT COORDINATES C ZMIN = DMIN1(Z1, Z2, Z3) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN C C C C FORM THE TRANSFORMATION MATRIX (6X6) FROM FIELD COORDINATES TO GRID C POINT DEGREES OF FREEDOM C DO 300 I = 1,36 GAMBQ(I) = 0.0D0 300 CONTINUE GAMBQ( 1) = 1.0D0 GAMBQ( 2) = R1 GAMBQ( 3) = Z1 GAMBQ(10) = 1.0D0 GAMBQ(11) = R1 GAMBQ(12) = Z1 GAMBQ(13) = 1.0D0 GAMBQ(14) = R2 GAMBQ(15) = Z2 GAMBQ(22) = 1.0D0 GAMBQ(23) = R2 GAMBQ(24) = Z2 GAMBQ(25) = 1.0D0 GAMBQ(26) = R3 GAMBQ(27) = Z3 GAMBQ(34) = 1.0D0 GAMBQ(35) = R3 GAMBQ(36) = Z3 C C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERD (6, GAMBQ(1),6 , D(10), 0, D(11) , ISING , SP) C IF (ISING.EQ.2) GO TO 920 C C C C CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS C INDICATED BY THE FOLLOWING TABLE C C DELINT( 1) - (-1,0) C DELINT( 2) - (-1,1) C DELINT( 3) - (-1,2) C DELINT( 4) - ( 0,0) C DELINT( 5) - ( 0,1) C DELINT( 6) - ( 1,0) C DELINT( 7) - ( 0,2) C DELINT( 8) - ( 1,2) C C C TEST FOR RELATIVE SMALL AREA OF INTEGRATION C AND IF AREA IS SMALL THEN APPROXIMATE INTEGRALS C DR = DMAX1 ( DABS(R1-R2) , DABS(R2-R3) , DABS(R3-R1) ) RH = DMIN1 ( R1 , R2 , R3 ) / 10.0D0 DZ = DMAX1 ( DABS(Z1-Z2) , DABS(Z2-Z3) , DABS(Z3-Z1) ) ZH = DMIN1 ( Z1 , Z2 , Z3 ) / 10.0D0 RA = (R1 + R2 + R3) / 3.0D0 ZA = (Z1 + Z2 + Z3) / 3.0D0 AREA =(R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2)) / 2.0D0 KODE = 0 IF (DABS( (R2-R1)/R2 ) .LT. 1.0D-5) KODE = 1 IF ( DR .LE. RH .OR. DZ .LE. ZH ) KODE = -1 C C 310 CONTINUE I1 = 0 DO 400 I = 1,3 IP = I - 2 DO 350 J = 1,3 IQ = J - 1 IF (IP.EQ.1 .AND. IQ.EQ.1) GO TO 350 I1 = I1 + 1 IF (KODE) 320,330,340 320 DELINT(I1) =((RA) ** IP)*((ZA) ** IQ) * AREA GO TO 350 330 DELINT(I1) = DKI (1,3,1,2,1,3,IP,IQ,R,Z) 1 + DKI (3,2,1,2,3,2,IP,IQ,R,Z) GO TO 350 340 CONTINUE DELINT(I1) = DKI (1,3,3,2,1,3,IP,IQ,R,Z) 350 CONTINUE 400 CONTINUE D(1) = DELINT(6) DELINT(6) = DELINT(7) DELINT(7) = D(1) C C C TEST FOR EXCESSIVE ROUND-OFF ERROR IN INTEGRAL CALCULATIONS C AND IF IT EXIST APPROXIMATE INTEGRALS C IF (KODE .LT. 0) GO TO 500 DO 450 I = 1,8 IF (DELINT(I) .LT. 0.0D0) GO TO 475 450 CONTINUE IF (DELINT(8) .LE. DELINT(7)) GO TO 475 IF (DELINT(3) .GE. DELINT(8)) GO TO 475 IF (DELINT(3) .GT. DELINT(7)) GO TO 475 GO TO 500 475 CONTINUE KODE = -1 GO TO 310 500 CONTINUE C C C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT (IDEL) C C C SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES C ER = E(1) ET = E(2) EZ = E(3) VRT = ANU(1) VTZ = ANU(2) VZR = ANU(3) GRZ = G(3) VTR = VRT * ET / ER VZT = VTZ * EZ / ET VRZ = VZR * ER / EZ DEL = 1.0D0 - VRT*VTR - VTZ*VZT - VZR*VRZ - VRT*VTZ*VZR 1 - VRZ*VTR*VZT C C C GENERATE ELASTIC CONSTANTS MATRIX (4X4) C EE(1) = ER * (1.0D0 - VTZ*VZT) / DEL EE(2) = ER * (VTR + VZR*VTZ) / DEL EE(3) = ER * (VZR + VTR*VZT) / DEL EE(4) = 0.0D0 EE(5) = EE(2) EE(6) = ET * (1.0D0 - VRZ*VZR) / DEL EE(7) = ET * (VZT + VRT*VZR) / DEL EE(8) = 0.0D0 EE(9) = EE(3) EE(10)= EE(7) EE(11)= EZ * (1.0D0 - VRT*VTR) / DEL EE(12)= 0.0D0 EE(13)= 0.0D0 EE(14)= 0.0D0 EE(15)= 0.0D0 EE(16)= GRZ C C C FORM TRANSFORMATION MATRIX (4X4) FROM MATERIAL AXIS TO ELEMENT C GEOMETRIC AXIS C DGAMR = DGAMA * DEGRAD COSG = DCOS(DGAMR) SING = DSIN(DGAMR) TEO( 1) = COSG ** 2 TEO( 2) = 0.0D0 TEO( 3) = SING ** 2 TEO( 4) = SING * COSG TEO( 5) = 0.0D0 TEO( 6) = 1.0D0 TEO( 7) = 0.0D0 TEO( 8) = 0.0D0 TEO( 9) = TEO(3) TEO(10) = 0.0D0 TEO(11) = TEO(1) TEO(12) = -TEO(4) TEO(13) = -2.0D0 * TEO(4) TEO(14) = 0.0D0 TEO(15) = -TEO(13) TEO(16) = TEO(1) - TEO(3) C C C TRANSFORM THE ELASTIC CONSTANTS MATRIX FROM MATERIAL C TO ELEMENT GEOMETRIC AXIS C CALL GMMATD (TEO , 4, 4, 1, EE , 4, 4, 0, D ) CALL GMMATD (D , 4, 4, 0, TEO, 4, 4, 0, EE) C C C C FORM THE ELEMENT STIFFNESS MATRIX IN FIELD COORDINATES C AK( 1) = EE(6) * DELINT(1) AK( 2) = (EE(2) + EE(6)) * DELINT(4) AK( 3) = EE(6) * DELINT(2) + EE(8) * DELINT(4) AK( 4) = 0.0D0 AK( 5) = EE(8) * DELINT(4) AK( 6) = EE(7) * DELINT(4) AK( 7) = AK(2) AK( 8) = (EE(1) + 2.0D0*EE(2) + EE(6)) * DELINT(6) AK( 9) = (EE(2) + EE(6)) * DELINT(5) + (EE(4) + EE(8)) *DELINT(6) AK(10) = 0.0D0 AK(11) = (EE(4) + EE(8)) * DELINT(6) AK(12) = (EE(3) + EE(7)) * DELINT(6) AK(13) = AK(3) AK(14) = AK(9) AK(15) = EE(6) * DELINT(3) + 2.0D0*EE(8) * DELINT(5) 1 + EE(16) * DELINT(6) AK(16) = 0.0D0 AK(17) = EE(8) * DELINT(5) + EE(16) * DELINT(6) AK(18) = EE(7) * DELINT(5) + EE(12) * DELINT(6) AK(19) = 0.0D0 AK(20) = 0.0D0 AK(21) = 0.0D0 AK(22) = 0.0D0 AK(23) = 0.0D0 AK(24) = 0.0D0 AK(25) = AK(5) AK(26) = AK(11) AK(27) = AK(17) AK(28) = 0.0D0 AK(29) = EE(16) * DELINT(6) AK(30) = EE(12) * DELINT(6) AK(31) = AK(6) AK(32) = AK(12) AK(33) = AK(18) AK(34) = 0.0D0 AK(35) = AK(30) AK(36) = EE(11) * DELINT(6) C DO 600 I = 1,36 AK(I) = TWOPI * AK(I) 600 CONTINUE C C TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD COORDINATES C TO GRID POINT DEGREES OF FREEDOM C CALL GMMATD (GAMBQ , 6, 6, 1, AK , 6, 6, 0, D ) CALL GMMATD (D , 6, 6, 0, GAMBQ , 6, 6, 0, AK) C C C C ZERO OUT THE (6X6) MATRIX USED AS INPUT TO THE INSERTION ROUTINE C DO 700 I = 1,36 AKI(I) = 0.0D0 700 CONTINUE C C C LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS C DO 800 I = 1,3 IF (ICS(I) .EQ. 0) GO TO 800 K = 9 * (I-1) + 1 CALL TRANSD (ICS(I) , D(K)) 800 CONTINUE C C C C START THE LOOP FOR INSERTION OF THE THREE (6X6) MATRICES C INTO THE MASTER STIFFNESS MATRIX C IR1 = 2 * IPP - 1 IAPP = 9 * (IPP-1) + 1 DO 900 I = 1,3 C C PLACE THE APPROIATE (2X2) SUBMATRIX OF THE STIFFNESS MATRIX C IN A (3X3) MATRIX FOR TRANSFORMATION C IC1 = 2 * I - 1 IRC = (IR1 - 1) * 6 + IC1 AKT(1) = AK(IRC) AKT(2) = 0.0D0 AKT(3) = AK(IRC+1) AKT(4) = 0.0D0 AKT(5) = 0.0D0 AKT(6) = 0.0D0 AKT(7) = AK(IRC+6) AKT(8) = 0.0D0 AKT(9) = AK(IRC+7) C C TRANSFORM THE (3X3) STIFFNESS MATRIX C IF (ICS(IPP) .EQ. 0) GO TO 820 CALL GMMATD (D(IAPP) , 3, 3, 1, AKT(1) , 3, 3, 0, D(28) ) DO 810 J = 1,9 AKT(J) = D(J+27) 810 CONTINUE 820 CONTINUE IF (ICS(I) .EQ. 0) GO TO 840 IAI = 9 * (I - 1) + 1 CALL GMMATD (AKT(1) , 3, 3, 0, D(IAI) , 3, 3, 0, D(28) ) DO 830 J = 1,9 AKT(J) = D(J+27) 830 CONTINUE 840 CONTINUE C C PLACE THE TRANSFORMED (3X3) MATRIX INTO A (6X6) MATRIX FOR C THE INSERTION ROUTINE C J = 0 DO 850 J1 = 1,18,6 DO 850 J2 = 1,3 J = J + 1 K = J1 + J2 - 1 AKI(K) = AKT(J) 850 CONTINUE C C CALL THE INSERTION ROUTINE C CALL SMA1B (AKI(1) , IGP(I), -1, IFKGG, 0.0D0) IF (IOPT4 .EQ. 0 .OR. GSUBE .EQ. 0.0) GO TO 900 K4GGSW = 1 DAMPC = GSUBE CALL SMA1B (AKI(1) , IGP(I) , -1,IF4GG , DAMPC ) 900 CONTINUE RETURN C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C 915 NOGO=1 RETURN 920 CALL MESAGE(30,26,IDEL) GO TO 915 C END ================================================ FILE: mis/ktrm6d.f ================================================ SUBROUTINE KTRM6D C C STIFFNESS SUBROUTINE FOR LINEAR STRAIN MEMBRANE ELEMENT C DOUBLE PRECISION VERSION C C EST ENTRIES C C EST( 1) = ELEMENT ID INTEGER C EST( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1 INTEGER C EST( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2 INTEGER C EST( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3 INTEGER C EST( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4 INTEGER C EST( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5 INTEGER C EST( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6 INTEGER C EST( 8) = THETA REAL C EST( 9) = MATERIAL IDENTIFICATION NUMBER INTEGER C EST(10) = THICKNESS T1 AT GRID POINT 1 REAL C EST(11) = THICKNESS T3 AT GRID POINT 3 REAL C EST(12) = THICKNESS T5 AT GRID POINT 5 REAL C EST(13) = NON-STRUCTURAL MASS REAL C C X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM C C EST(14) = COORDINATE SYSTEM ID FOR GRID POINT 1 INTEGER C EST(15) = COORDINATE X1 REAL C EST(16) = COORDINATE Y1 REAL C EST(17) = COORDINATE Z1 REAL C EST(18) = COORDINATE SYSTEM ID FOR GRID POINT 2 INTEGER C EST(19) = COORDINATE X2 REAL C EST(20) = COORDINATE Y2 REAL C EST(21) = COORDINATE Z2 REAL C EST(22) = COORDINATE SYSTEM ID FOR GRID POINT 3 INTEGER C EST(23) = COORDINATE X3 REAL C EST(24) = COORDINATE Y3 REAL C EST(25) = COORDINATE Z3 REAL C EST(26) = COORDINATE SYSTEM ID FOR GRID POINT 4 INTEGER C EST(27) = COORDINATE X4 REAL C EST(28) = COORDINATE Y4 REAL C EST(29) = COORDINATE Z4 REAL C EST(30) = COORDINATE SYSTEM ID FOR GRID POINT 5 INTEGER C EST(31) = COORDINATE X5 REAL C EST(32) = COORDINATE Y5 REAL C EST(33) = COORDINATE Z5 REAL C EST(34) = COORDINATE SYSTEM ID FOR GRID POINT 6 INTEGER C EST(35) = COORDINATE X6 REAL C EST(36) = COORDINATE Y6 REAL C EST(37) = COORDINATE Z6 REAL C EST(38) TO EST (43) = ELEMENT TEMPERATURES AT SIX GRID POINTS C LOGICAL IMASS,NOGO,UNIMEM INTEGER XU(12),YU(12),XV(12),YV(12),ELTYPE,ELID,ESTID, 1 DICT(11),SIL(6),SIL1,SIL2,SAVE(6),RK(3),SK(3), 2 IND(6,3),NAME(2),NL(6),PI,QI,PJ,QJ,PIMJ,PINJ, 3 PIPJ,PIQJ,QIMJ,QINJ,QIPJ,QIQJ,ICS(6),IEST(45) REAL NSM,CC(3),IVECT(3),JVECT(3),KVECT(3),XC(6),YC(6), 1 ZC(6),F(6,6) DOUBLE PRECISION GK11(6,6),GK12(6,6),GK22(6,6),KTRMG(324), 1 GKT(12,12),KRT(9),KRT1(9),KTRM(12,12),Q(6,6), 2 E(6),TRAND(9),BALOTR(9),QINV(36),GKTRM(12,12), 3 ST,ST1,KTR1(3,3),G11,G12,G13,G22,G23,G33, 4 KSUB(2,2),KSUBT(3,2),KTR(3,3),RHO,DETERM CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /EMGEST/ EST (45) COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID COMMON /EMGPRM/ IXTRA,IZR,NZR,DUMY(12),KMBGG(3),IPREC,NOGO COMMON /SYSTEM/ KSYSTM(63) COMMON /BLANK / NOK,NOM COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 EQUIVALENCE (A,DISTA),(B,DISTB),(C,DISTC),(CC(1),C1), 1 (CC(2),C2),(CC(3),C3),(KRT(1),KTR(1,1)), 2 (KRT1(1),KTR1(1,1)),(EST(1),IEST(1)), 3 (KSYSTM(2),IOUTPT),(GKT(1,1),GKTRM(1,1)) DATA XU / 0,1,0,2,1,0,6*0/ , YU / 0,0,1,0,1,2,6*0/ DATA XV / 6*0,0,1,0,2,1,0/ , YV / 6*0,0,0,1,0,1,2/ DATA RK / 0,1,0 / , SK / 0,0,1 / DATA DEGRA / 0.0174532925 / , BLANK / 4H / DATA NAME / 4HTRIM, 4H6 / C C COMPONENT CODE,ICODE,IS 000111 AND HAS A VALUE OF 7 C ICODE = 7 NDOF = 18 NSQ = NDOF**2 DICT(1) = ESTID DICT(2) = 1 DICT(3) = NDOF DICT(4) = ICODE DICT(5) = GSUBE IPASS = 1 IMASS =.FALSE. IF (NOM .GT. 0) IMASS = .TRUE. C C ALLOCATE EST VALUES TO RESPECTIVE LOCAL VARIABLES C IDELE = IEST(1) DO 109 I = 1,6 NL(I) = IEST(I+1) 109 CONTINUE THETAM = EST (8) MATID1 = IEST(9) TMEM1 = EST(10) TMEM3 = EST(11) TMEM5 = EST(12) C C IF TMEM3 OR TMEM5 IS 0.0 OR BLANK,IT WILL BE SET EQUAL TO TMEM1 C IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1 NSM = EST(13) J = 0 DO 120 I = 14,34,4 J = J + 1 ICS(J) = IEST(I ) XC (J) = EST(I+1) YC (J) = EST(I+2) ZC (J) = EST(I+3) 120 CONTINUE ELTEMP = (EST(38)+EST(39)+EST(40)+EST(41)+EST(42)+EST(43))/6.0 THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C START ELEMENT CALCULATIONS FOR STIFFNESS MATRIX C C EVALUATE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 CALL MAT (IDELE) C C CALCULATIONS FOR THE TRIANGLE C CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME) C C FILL THE E-MATRIX C E(1) = IVECT(1) E(2) = JVECT(1) E(3) = IVECT(2) E(4) = JVECT(2) E(5) = IVECT(3) E(6) = JVECT(3) C C COMPUTE THE F FUCTION, AND CONSTANTS C1, C2, AND C3 IN THE LINEAR C EQUS. FOR THICKNESS VARIATION C CALL AF (F,6,A,B,C,C1,C2,C3,TMEM1,TMEM3,TMEM5,0) AREA = F(1,1) VOL = C1*F(1,1) + C2*F(2,1) + C3*F(1,2) UNIMEM = .FALSE. IF (ABS(C2).LE.1.0E-06 .AND. ABS(C3).LE.1.0E-06) UNIMEM = .TRUE. C C CALCULATIONS FOR Q MATRIX AND ITS INVERSE C DO 200 I = 1,36 Q(I,1) = 0.0D0 200 CONTINUE DO 210 I = 1,6 Q(I,1) = 1.0D0 Q(I,2) = XC(I) Q(I,3) = YC(I) Q(I,4) = XC(I)*XC(I) Q(I,5) = XC(I)*YC(I) Q(I,6) = YC(I)*YC(I) 210 CONTINUE C C FIND INVERSE OF Q MATRIX C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (6,Q,6,QINV(1),0,DETERM,ISING,IND) C C ISING EQUAL TO 2 IMPLIES THAT Q MATRIX IS SINGULAR C IF (ISING .EQ. 2) GO TO 904 C C GKTRM IS STIFFNESS MATRIX IN GENERALIZED CO-ORDINATES C KTRM IS STIFFNESS MATRIX IN ELEMENT CO-ORDINATES C START EXECUTION FOR STIFFNESS MATRIX CALCULATIONS C G11 = EM(1) G12 = EM(2) G13 = EM(3) G22 = EM(4) G23 = EM(5) G33 = EM(6) C C FORMULATION OF THE STIFFNESS MATRIX (FROM PROG. MANUAL, C PAGE 8.24-7) C DO 240 I = 1,12 MI = XU(I) NI = YU(I) PI = XV(I) QI = YV(I) DO 235 J = I,12 MJ = XU(J) NJ = YU(J) PJ = XV(J) QJ = YV(J) MIMJ = MI*MJ MINJ = MI*NJ MIPJ = MI*PJ MIQJ = MI*QJ NIMJ = NI*MJ NINJ = NI*NJ NIPJ = NI*PJ NIQJ = NI*QJ PIMJ = PI*MJ PINJ = PI*NJ PIPJ = PI*PJ PIQJ = PI*QJ QIMJ = QI*MJ QINJ = QI*NJ QIPJ = QI*PJ QIQJ = QI*QJ ST1 = 0.0D0 DO 225 K=1,3 KR = RK(K) KS = SK(K) ST = 0.0D0 IF (MIMJ .GT. 0) ST=ST +G11*MIMJ *F(MI+MJ+KR-1,NI+NJ+KS+1) IF (QIQJ .GT. 0) ST=ST +G22*QIQJ *F(PI+PJ+KR+1,QI+QJ+KS-1) IF (NINJ .GT. 0) ST=ST +G33*NINJ *F(MI+MJ+KR+1,NI+NJ+KS-1) IF (PIPJ .GT. 0) ST=ST +G33*PIPJ *F(PI+PJ+KR-1,QI+QJ+KS+1) IF (PIMJ .GT. 0) ST=ST +G13*PIMJ *F(PI+MJ+KR-1,QI+NJ+KS+1) IF (MIPJ .GT. 0) ST=ST +G13*MIPJ *F(MI+PJ+KR-1,NI+QJ+KS+1) IF (NIQJ .GT. 0) ST=ST +G23*NIQJ *F(MI+PJ+KR+1,NI+QJ+KS-1) IF (QINJ .GT. 0) ST=ST +G23*QINJ *F(PI+MJ+KR+1,QI+NJ+KS-1) IF (NIPJ+MIQJ.GT.0) ST=ST+(G33*NIPJ+G12*MIQJ)*F(MI+PJ+KR,NI+QJ+KS) IF (PINJ+QIMJ.GT.0) ST=ST+(G33*PINJ+G12*QIMJ)*F(PI+MJ+KR,QI+NJ+KS) IF (NIMJ+MINJ.GT.0) ST=ST+ G13*(NIMJ+MINJ) *F(MI+MJ+KR,NI+NJ+KS) IF (PIQJ+QIPJ.GT.0) ST=ST+ G23*(PIQJ+QIPJ) *F(PI+PJ+KR,QI+QJ+KS) ST1 = ST1 + ST*CC(K) IF (UNIMEM) GO TO 230 225 CONTINUE 230 GKT(I,J) = ST1 GKT(J,I) = ST1 235 CONTINUE 240 CONTINUE C IF (IPASS .EQ. 1) GO TO 260 241 RHO = RHOY*1.0D0 DO 255 I = 1,12 DO 250 J = I,12 MIMJ = XU(I) + XU(J) NINJ = YU(I) + YU(J) GKT(I,J) = NSM*F(MIMJ+1,NINJ+1) DO 245 K = 1,3 KR = RK(K) KS = SK(K) GKT(I,J) = GKT(I,J) + RHO*CC(K)*F(MIMJ+KR+1,NINJ+KS+1) 245 CONTINUE GKT(J,I) = GKT(I,J) 250 CONTINUE 255 CONTINUE C 260 DO 265 I = 1,6 DO 265 J = 1,6 GK11(I,J) = GKTRM(J,I) GK12(I,J) = GKTRM(J+6,I) GK22(I,J) = GKTRM(J+6,I+6) 265 CONTINUE CALL GMMATD (Q,6,6,0,GK11,6,6,0,QINV) CALL GMMATD (QINV,6,6,0,Q,6,6,1,GK11) CALL GMMATD (Q,6,6,0,GK12,6,6,0,QINV) CALL GMMATD (QINV,6,6,0,Q,6,6,1,GK12) CALL GMMATD (Q,6,6,0,GK22,6,6,0,QINV) CALL GMMATD (QINV,6,6,0,Q,6,6,1,GK22) DO 270 I = 1,6 DO 270 J = 1,6 GKTRM(I ,J ) = GK11(I,J) GKTRM(I ,J+6) = GK12(I,J) GKTRM(I+6,J ) = GK12(J,I) GKTRM(I+6,J+6) = GK22(I,J) 270 CONTINUE C C REORDER THE STIFFNESS MATRIX SO THAT THE DISPLACEMENTS OF A GRID C POINT ARE ARRANGED CONSECUTIVELY C DO 278 K = 1,6 DO 277 I = 1,2 K1 = 6*(I-1) + K I1 = 2*(K-1) + I DO 276 J = 1,12 KTRM(I1,J) = GKTRM(K1,J) 276 CONTINUE 277 CONTINUE 278 CONTINUE DO 288 K = 1,6 DO 287 I = 1,2 K1 = 6*(I-1) + K I1 = 2*(K-1) + I DO 286 J = 1,12 GKTRM(J,I1) = KTRM(J,K1) 286 CONTINUE 287 CONTINUE 288 CONTINUE C 290 DO 301 I = 1,324 KTRMG(I) = 0.0D0 301 CONTINUE IF (IPASS .LE. 2) GO TO 305 C C LUMPED MASS MATRIX, IN THREE DOFS, NOT TWO C (SINCE LUMPED MASS IS AN INVARIANT, TRANSFORMATION IS NOT NEEDED) C RHO = RHOY*1.0D0 AMASS =(RHO*VOL+NSM*AREA)/6. DO 302 I = 1,324,19 KTRMG(I) = AMASS 302 CONTINUE IPASS = 2 GO TO 400 C C TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM ELEMENT CO-ORDINATES C TO BASIC CO-ORDINATES C 305 DO 310 I = 1,6 SAVE(I) = NL(I) 310 CONTINUE DO 314 I = 1,6 SIL(I) = I ISIL = NL(I) DO 313 J = 1,6 IF (ISIL .LE. NL(J)) GO TO 312 SIL(I) = J ISIL = NL(J) 312 CONTINUE 313 CONTINUE ISI = SIL(I) NL(ISI) = 1000000 314 CONTINUE DO 316 I = 1,6 NL(I) = SAVE(I) 316 CONTINUE DO 380 I = 1,6 SIL1 = SIL(I) DO 375 J = I,6 SIL2 = SIL(J) DO 320 II = 1,9 BALOTR(II) = 0.0D0 320 CONTINUE DO 324 K = 1,2 K1 = (SIL1-1)*2 + K DO 323 L = 1,2 L1 = (SIL2-1)*2 + L KSUB(K,L) = GKTRM(K1,L1) 323 CONTINUE 324 CONTINUE CALL GMMATD (E,3,2,0,KSUB,2,2,0,KSUBT) CALL GMMATD (KSUBT,3,2,0,E,3,2,1,KTR ) DO 325 K = 1,3 DO 325 L = 1,3 K1 = (K-1)*3 + L L1 = (L-1)*3 + K KRT1(L1) = KRT(K1) 325 CONTINUE C C TRANSFORM THE KTR1 FROM BASIC TO GLOBAL CO-ORDINATES C IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 340 I1 = 4*SIL1 + 10 CALL TRANSD (IEST(I1),TRAND) CALL GMMATD (TRAND(1),3,3,1,KTR1,3,3,0,KTR) DO 330 K = 1,9 KRT1(K) = KRT(K) 330 CONTINUE 340 CONTINUE IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 365 IF (J .EQ. I) GO TO 355 J1 = 4*SIL2 + 10 CALL TRANSD (IEST(J1),TRAND) 355 CONTINUE CALL GMMATD (KTR1,3,3,0,TRAND,3,3,0,KTR) DO 360 K = 1,9 KRT1(K) = KRT(K) 360 CONTINUE 365 CONTINUE DO 370 II = 1,3 DO 370 JJ = 1,3 I1 = (I-1)*3 + II J1 = (J-1)*3 + JJ I1J1 = (I1-1)*18 + J1 J1I1 = (J1-1)*18 + I1 KTRMG(J1I1) = KTR1(JJ,II) KTRMG(I1J1) = KTR1(JJ,II) 370 CONTINUE 375 CONTINUE 380 CONTINUE C C CALL INSERTION ROUTINE C 400 CALL EMGOUT (KTRMG(1),KTRMG(1),324,1,DICT,IPASS,IPREC) IF (.NOT.IMASS .OR. IPASS.GE.2) RETURN C C GO TO 290 TO COMPUTE LUMPED MASS MATRIX C GO TO 241 TO COMPUTE CONSIST.MASS MATRIX (THIS PATH DOES NOT WORK) C IPASS = 3 CALL SSWTCH (46,J) IF (J .EQ. 1) IPASS = 2 GO TO (905,241,290), IPASS C C ERRORS C 904 CONTINUE NOGO =.TRUE. WRITE (IOUTPT,2407) UFM,IEST(1) 2407 FORMAT (A23,' 2407, MATRIX RELATING GENERALIZED PARAMETERS AND ', 1 'GRID POINT DISPLACEMENTS IS SINGULAR.', //26X, 2 'CHECK COORDINATES OF ELEMENT TRIM6 WITH ID',I9,1H.) 905 RETURN END ================================================ FILE: mis/ktrm6s.f ================================================ SUBROUTINE KTRM6S C C STIFFNESS MATRIX FOR TRIANGULAR MEMBRANE ELEMENT TRIM6 C SINGLEPRECISION VERSION C C EST ENTRIES C C EST( 1) = ELEMENT ID INTEGER C EST( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1 INTEGER C EST( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2 INTEGER C EST( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3 INTEGER C EST( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4 INTEGER C EST( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5 INTEGER C EST( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6 INTEGER C EST( 8) = THETA REAL C EST( 9) = MATERIAL IDENTIFICATION NUMBER INTEGER C EST(10) = THICKNESS T1 AT GRID POINT 1 REAL C EST(11) = THICKNESS T3 AT GRID POINT 3 REAL C EST(12) = THICKNESS T5 AT GRID POINT 5 REAL C EST(13) = NON-STRUCTURAL MASS REAL C C X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM C C EST(14) = COORDINATE SYSTEM ID FOR GRID POINT 1 INTEGER C EST(15) = COORDINATE X1 REAL C EST(16) = COORDINATE Y1 REAL C EST(17) = COORDINATE Z1 REAL C EST(18) = COORDINATE SYSTEM ID FOR GRID POINT 2 INTEGER C EST(19) = COORDINATE X2 REAL C EST(20) = COORDINATE Y2 REAL C EST(21) = COORDINATE Z2 REAL C EST(22) = COORDINATE SYSTEM ID FOR GRID POINT 3 INTEGER C EST(23) = COORDINATE X3 REAL C EST(24) = COORDINATE Y3 REAL C EST(25) = COORDINATE Z3 REAL C EST(26) = COORDINATE SYSTEM ID FOR GRID POINT 4 INTEGER C EST(27) = COORDINATE X4 REAL C EST(28) = COORDINATE Y4 REAL C EST(29) = COORDINATE Z4 REAL C EST(30) = COORDINATE SYSTEM ID FOR GRID POINT 5 INTEGER C EST(31) = COORDINATE X5 REAL C EST(32) = COORDINATE Y5 REAL C EST(33) = COORDINATE Z5 REAL C EST(34) = COORDINATE SYSTEM ID FOR GRID POINT 6 INTEGER C EST(35) = COORDINATE X6 REAL C EST(36) = COORDINATE Y6 REAL C EST(37) = COORDINATE Z6 REAL C EST(38) TO EST (43) = ELEMENT TEMPERATURES AT SIX GRID POINTS C LOGICAL IMASS,NOGO,UNIMEM INTEGER XU(12),YU(12),XV(12),YV(12),ELTYPE,ELID,ESTID, 1 DICT(11),SIL(6),SIL1,SIL2,SAVE(6),RK(3),SK(3),PI, 2 QI,PJ,QJ,PIMJ,PINJ,PIPJ,PIQJ,QIMJ,QINJ,QIPJ,QIQJ REAL IVECT(3),JVECT(3),KVECT(3),KTRM(12,12),KSUB(2,2), 1 KSUBT(3,2),KTR(3,3),KTR1(3,3),KTRMG(324),KRT(9), 2 KRT1(9) REAL NSM,GKT(12,12) DIMENSION F(6,6),XC(6),YC(6),ZC(6),Q(6,6),E(6),TRAND(9), 1 BALOTR(9),QINV(36),GKTRM(12,12),GK11(6,6), 2 GK12(6,6),GK22(6,6) DIMENSION IND(6,3),NAME(2),ICS(6),IEST(45),NL(6),CC(3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ KSYSTM(63) COMMON /EMGPRM/ IXTRA,IZR,NZR,DUMY(12),KMBGG(3),IPREC,NOGO COMMON /BLANK / NOK,NOM COMMON /EMGEST/ EST (45) COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 EQUIVALENCE (KSYSTM(2),IOUTPT),(GKT(1,1),GKTRM(1,1)), 1 (EST(1),IEST(1)),(A,DISTA),(B,DISTB),(C,DISTC), 2 (CC(1),C1),(CC(2),C2),(CC(3),C3), 3 (KRT(1),KTR(1,1)),(KRT1(1),KTR1(1,1)) DATA XU / 0,1,0,2,1,0,6*0/ , YU / 0,0,1,0,1,2,6*0/ DATA XV / 6*0,0,1,0,2,1,0/ , YV / 6*0,0,0,1,0,1,2/ DATA RK / 0,1,0 / , SK / 0,0,1 / DATA DEGRA / 0.0174532925 / , BLANK / 4H / DATA NAME / 4HTRIM, 4H6 / C C COMPONENT CODE,ICODE,IS 000111 AND HAS A VALUE OF 7 C ICODE = 7 NDOF = 18 NSQ = NDOF**2 DICT(1) = ESTID DICT(2) = 1 DICT(3) = NDOF DICT(4) = ICODE DICT(5) = GSUBE IPASS = 1 IMASS =.FALSE. IF (NOM .GT. 0) IMASS = .TRUE. C C ALLOCATE EST VALUES TO RESPECTIVE LOCAL VARIABLES C IDELE = IEST(1) DO 109 I = 1,6 NL(I) = IEST(I+1) 109 CONTINUE THETAM = EST(8) MATID1 = IEST(9) TMEM1 = EST(10) TMEM3 = EST(11) TMEM5 = EST(12) C C IF TMEM3 OR TMEM5 IS 0.0 OR BLANK,IT WILL BE SET EQUAL TO TMEM1 C IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1 C NSM = EST(13) J = 0 DO 120 I = 14,34,4 J = J + 1 ICS(J) = IEST(I ) XC (J) = EST(I+1) YC (J) = EST(I+2) ZC (J) = EST(I+3) 120 CONTINUE ELTEMP = (EST(38)+EST(39)+EST(40)+EST(41)+EST(42)+EST(43))/6.0 THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C START ELEMENT CALCULATIONS FOR STIFFNESS MATRIX C C EVALUATE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 CALL MAT (IDELE) C C CALCULATIONS FOR THE TRIANGLE C CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME) C C FILL THE E-MATRIX C E(1) = IVECT(1) E(2) = JVECT(1) E(3) = IVECT(2) E(4) = JVECT(2) E(5) = IVECT(3) E(6) = JVECT(3) C C COMPUTE THE F FUCTION, AND CONSTANTS C1, C2, AND C3 IN THE LINEAR C EQUS. FOR THICKNESS VARIATION C CALL AF (F,6,A,B,C,C1,C2,C3,TMEM1,TMEM3,TMEM5,0) AREA = F(1,1) VOL = C1*F(1,1) + C2*F(2,1) + C3*F(1,2) UNIMEM = .FALSE. IF (ABS(C2).LE.1.0E-06 .AND. ABS(C3).LE.1.0E-06) UNIMEM = .TRUE. C C CALCULATIONS FOR Q MATRIX AND ITS INVERSE C DO 200 I = 1,36 Q(I,1) = 0.0 200 CONTINUE DO 210 I = 1,6 Q(I,1) = 1.0 Q(I,2) = XC(I) Q(I,3) = YC(I) Q(I,4) = XC(I)*XC(I) Q(I,5) = XC(I)*YC(I) Q(I,6) = YC(I)*YC(I) 210 CONTINUE C C FIND INVERSE OF Q MATRIX C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (6,Q,6,QINV(1),0,DETERM,ISING,IND) C C ISING EQUAL TO 2 IMPLIES THAT Q MATRIX IS SINGULAR C IF (ISING .EQ. 2) GO TO 904 C C GKTRM IS STIFFNESS MATRIX IN GENERALIZED CO-ORDINATES. C KTRM IS STIFFNESS MATRIX IN ELEMENT CO-ORDINATES. C START EXECUTION FOR STIFFNESS MATRIX CALCULATIONS C G11 = EM(1) G12 = EM(2) G13 = EM(3) G22 = EM(4) G23 = EM(5) G33 = EM(6) C C FORMULATION OF THE STIFFNESS MATRIX (FROM PROG. MANUAL, C PAGE 8.24-7) C DO 240 I = 1,12 MI = XU(I) NI = YU(I) PI = XV(I) QI = YV(I) DO 235 J = I,12 MJ = XU(J) NJ = YU(J) PJ = XV(J) QJ = YV(J) MIMJ = MI*MJ MINJ = MI*NJ MIPJ = MI*PJ MIQJ = MI*QJ NIMJ = NI*MJ NINJ = NI*NJ NIPJ = NI*PJ NIQJ = NI*QJ PIMJ = PI*MJ PINJ = PI*NJ PIPJ = PI*PJ PIQJ = PI*QJ QIMJ = QI*MJ QINJ = QI*NJ QIPJ = QI*PJ QIQJ = QI*QJ ST1 = 0.0 DO 225 K = 1,3 KR = RK(K) KS = SK(K) ST = 0.0 IF (MIMJ .GT. 0) ST=ST + G11*MIMJ *F(MI+MJ+KR-1,NI+NJ+KS+1) IF (QIQJ .GT. 0) ST=ST + G22*QIQJ *F(PI+PJ+KR+1,QI+QJ+KS-1) IF (NINJ .GT. 0) ST=ST + G33*NINJ *F(MI+MJ+KR+1,NI+NJ+KS-1) IF (PIPJ .GT. 0) ST=ST + G33*PIPJ *F(PI+PJ+KR-1,QI+QJ+KS+1) IF (PIMJ .GT. 0) ST=ST + G13*PIMJ *F(PI+MJ+KR-1,QI+NJ+KS+1) IF (MIPJ .GT. 0) ST=ST + G13*MIPJ *F(MI+PJ+KR-1,NI+QJ+KS+1) IF (NIQJ .GT. 0) ST=ST + G23*NIQJ *F(MI+PJ+KR+1,NI+QJ+KS-1) IF (QINJ .GT. 0) ST=ST + G23*QINJ *F(PI+MJ+KR+1,QI+NJ+KS-1) IF (NIPJ+MIQJ.GT.0) ST=ST+(G33*NIPJ+G12*MIQJ)*F(MI+PJ+KR,NI+QJ+KS) IF (PINJ+QIMJ.GT.0) ST=ST+(G33*PINJ+G12*QIMJ)*F(PI+MJ+KR,QI+NJ+KS) IF (NIMJ+MINJ.GT.0) ST=ST+ G13*(NIMJ+MINJ) *F(MI+MJ+KR,NI+NJ+KS) IF (PIQJ+QIPJ.GT.0) ST=ST+ G23*(PIQJ+QIPJ) *F(PI+PJ+KR,QI+QJ+KS) ST1 = ST1 + ST*CC(K) IF (UNIMEM) GO TO 230 225 CONTINUE 230 GKT(I,J) = ST1 GKT(J,I) = ST1 235 CONTINUE 240 CONTINUE C IF (IPASS .EQ. 1) GO TO 260 241 RHO = RHOY DO 255 I = 1,12 DO 250 J = I,12 MIMJ = XU(I) + XU(J) NINJ = YU(I) + YU(J) GKT(I,J) = NSM*F(MIMJ+1,NINJ+1) DO 245 K = 1,3 KR = RK(K) KS = SK(K) GKT(I,J) = GKT(I,J) + RHO*CC(K)*F(MIMJ+KR+1,NINJ+KS+1) 245 CONTINUE GKT(J,I) = GKT(I,J) 250 CONTINUE 255 CONTINUE C 260 DO 265 I = 1,6 DO 265 J = 1,6 GK11(I,J) = GKTRM(J ,I ) GK12(I,J) = GKTRM(J+6,I ) GK22(I,J) = GKTRM(J+6,I+6) 265 CONTINUE CALL GMMATS (Q,6,6,0,GK11,6,6,0,QINV) CALL GMMATS (QINV,6,6,0,Q,6,6,1,GK11) CALL GMMATS (Q,6,6,0,GK12,6,6,0,QINV) CALL GMMATS (QINV,6,6,0,Q,6,6,1,GK12) CALL GMMATS (Q,6,6,0,GK22,6,6,0,QINV) CALL GMMATS (QINV,6,6,0,Q,6,6,1,GK22) DO 270 I = 1,6 DO 270 J = 1,6 GKTRM(I ,J ) = GK11(I,J) GKTRM(I ,J+6) = GK12(I,J) GKTRM(I+6,J ) = GK12(J,I) GKTRM(I+6,J+6) = GK22(I,J) 270 CONTINUE C C REORDER THE STIFFNESS MATRIX SO THAT THE DISPLACEMENTS OF A GRID C POINT ARE ARRANGED CONSECUTIVELY C DO 278 K = 1,6 DO 277 I = 1,2 K1 = 6*(I-1) + K I1 = 2*(K-1) + I DO 276 J = 1,12 KTRM(I1,J) = GKTRM(K1,J) 276 CONTINUE 277 CONTINUE 278 CONTINUE DO 288 K = 1,6 DO 287 I = 1,2 K1 = 6*(I-1) + K I1 = 2*(K-1) + I DO 286 J = 1,12 GKTRM(J,I1) = KTRM(J,K1) 286 CONTINUE 287 CONTINUE 288 CONTINUE C 290 DO 301 I = 1,324 KTRMG(I) = 0.0 301 CONTINUE IF (IPASS .LE. 2) GO TO 305 C C LUMPED MASS MATRIX, IN THREE DOFS, NOT TWO C (SINCE LUMPED MASS IS AN INVARIANT, TRANSFORMATION IS NOT NEEDED) C RHO = RHOY AMASS = (RHO*VOL+NSM*AREA)/6. DO 302 I = 1,324,19 KTRMG(I) = AMASS 302 CONTINUE IPASS = 2 GO TO 400 C C TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM ELEMENT CO-ORDINATES C TO BASIC CO-ORDINATES C 305 DO 310 I = 1,6 SAVE(I) = NL(I) 310 CONTINUE DO 314 I = 1,6 SIL(I) = I ISIL = NL(I) DO 313 J = 1,6 IF (ISIL .LE. NL(J)) GO TO 312 SIL(I) = J ISIL = NL(J) 312 CONTINUE 313 CONTINUE ISI = SIL(I) NL (ISI) = 1000000 314 CONTINUE DO 316 I = 1,6 NL(I) = SAVE(I) 316 CONTINUE DO 380 I = 1,6 SIL1 = SIL(I) DO 375 J = I,6 SIL2 = SIL(J) DO 320 II = 1,9 BALOTR(II) = 0.0 320 CONTINUE DO 324 K = 1,2 K1 = (SIL1-1)*2 + K DO 323 L = 1,2 L1 = (SIL2-1)*2 + L KSUB(K,L) = GKTRM(K1,L1) 323 CONTINUE 324 CONTINUE CALL GMMATS (E,3,2,0,KSUB,2,2,0,KSUBT) CALL GMMATS (KSUBT,3,2,0,E,3,2,1,KTR ) DO 325 K = 1,3 DO 325 L = 1,3 K1 = (K-1)*3 + L L1 = (L-1)*3 + K KRT1(L1) = KRT(K1) 325 CONTINUE C C TRANSFORM THE KTR1 FROM BASIC TO GLOBAL CO-ORDINATES C IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 340 I1 = 4*SIL1 + 10 CALL TRANSS (IEST(I1),TRAND) CALL GMMATS (TRAND(1),3,3,1,KTR1,3,3,0,KTR) DO 330 K = 1,9 KRT1(K) = KRT(K) 330 CONTINUE 340 CONTINUE IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 365 IF (J .EQ. I) GO TO 355 J1 = 4*SIL2 + 10 CALL TRANSS (IEST(J1),TRAND) 355 CONTINUE CALL GMMATS (KTR1,3,3,0,TRAND,3,3,0,KTR) DO 360 K = 1,9 KRT1(K) = KRT(K) 360 CONTINUE 365 CONTINUE DO 370 II = 1,3 DO 370 JJ = 1,3 I1 = (I-1)*3 + II J1 = (J-1)*3 + JJ I1J1 = (I1-1)*18 + J1 J1I1 = (J1-1)*18 + I1 KTRMG(J1I1) = KTR1(JJ,II) KTRMG(I1J1) = KTR1(JJ,II) 370 CONTINUE 375 CONTINUE 380 CONTINUE C C CALL INSERTION ROUTINE C 400 CALL EMGOUT (KTRMG(1),KTRMG(1),324,1,DICT,IPASS,IPREC) IF (.NOT.IMASS .OR. IPASS.GE.2) RETURN C C GO TO 290 TO COMPUTE LUMPED MASS MATRIX C GO TO 241 TO COMPUTE CONSIST.MASS MATRIX (THIS PATH DOES NOT WORK) C IPASS = 3 GO TO (905,241,290), IPASS C C ERRORS C 904 CONTINUE NOGO = .TRUE. WRITE (IOUTPT,2407) UFM,IEST(1) 2407 FORMAT (A23,' 2407, MATRIX RELATING GENERALIZED PARAMETERS AND ', 1 'GRID POINT DISPLACEMENTS IS SINGULAR.', //26X, 2 'CHECK COORDINATES OF ELEMENT TRIM6 WITH ID',I9,1H.) 905 RETURN END ================================================ FILE: mis/ktrmem.f ================================================ SUBROUTINE KTRMEM (NTYPE) C C TRIANGULAR MEMBRANE ELEMENT C C IF NTYPE = 0 COMPLETE MEMBRANE COMPUTATION IS PERFORMED C IF NTYPE = 1 RETURN 3 TRANSFORMED 3X3 MATRICES ONLY FOR THE PIVOT C C CALLS FROM THIS ROUTINE ARE MADE TO - C C MAT - MATERIAL DATA ROUTINE C SMA1B - INSERTION ROUTINE C TRANSD - DOUBLE PRECISION TRANSFORMATION SUPPLIER C GMMATD - DOUBLE PRECISION MATRIX MULTIPLY AND TRANSPOSE C MESAGE - ERROR MESSAGE WRITER C LOGICAL HEAT INTEGER NECPT(6) REAL ECPT(21),MATBUF DOUBLE PRECISION TEMPAR,C,E,TI,TEMP,G(9),XSUBC,VOL,XSUBB,YSUBC, 1 REELMU,FLAMDA,DELTA,KIJ,TT(2) COMMON /CONDAS/ CONSTS(5) COMMON /SMA1IO/ DUM1(10),IFKGG,DUM2(1),IF4GG,DUM3(23) COMMON /SMA1CL/ IOPT4,K4GGSW,NPVT,DUMCL(7),LINK(10),IDETCK, 1 DODET,NOGO COMMON /SMA1HT/ HEAT COMMON /SMA1ET/ MECPT(1),NGRID(3),ANGLE,MATID1,T,FMU,DUMMY1,X1, 1 Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,X3,Y3,Z3,DUMB(80) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE, 2 G2X211,G2X212,G2X222 COMMON /SMA1DP/ KIJ(36),C(18),E(9),TEMPAR(27),TI(9),TEMP, 1 XSUBB,XSUBC,YSUBC,VOL,REELMU,DELTA,FLAMDA,THETA, 2 KA,NPOINT,NSAVE,DUMMY(382) COMMON /HMTOUT/ MATBUF(4) EQUIVALENCE (CONSTS(4),DEGRA),(G(1),TEMPAR(19)), 1 (ECPT(1),MECPT(1),NECPT(1)) C C ECPT LIST C THIS C ECPT DESCRIPTION ROUTINE TYPE C ====================================== ======== ======= C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID MATID INTEGER C ECPT( 7) = T T REAL C ECPT( 8) = NON-STRUCTURAL MASS FMU REAL C ECPT( 9) = COORD. SYSTEM ID 1 NECPT(9) INTEGER C ECPT(10) = X1 X1 REAL C ECPT(11) = Y1 Y1 REAL C ECPT(12) = Z1 Z1 REAL C ECPT(13) = COORD. SYSTEM ID 2 NECPT(13) INTEGER C ECPT(14) = X2 X2 REAL C ECPT(15) = Y2 Y2 REAL C ECPT(16) = Z2 Z2 REAL C ECPT(17) = COORD. SYSTEM ID 3 NECPT(17) INTEGER C ECPT(18) = X3 X3 REAL C ECPT(19) = Y3 Y3 REAL C ECPT(20) = Z3 Z3 REAL C ECPT(21) = ELEMENT TEMPERATURE ELTEMP REAL C C C SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE C C E(1), E(3), E(5) WILL BE THE I-VECTOR C E(2), E(4), E(6) WILL BE THE J-VECTOR C E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE C C FIRST FIND I-VECTOR = RSUBB - RSUBA (NON-NORMALIZED) C E(1) = DBLE(X2) - DBLE(X1) E(3) = DBLE(Y2) - DBLE(Y1) E(5) = DBLE(Z2) - DBLE(Z1) C C NOW FIND LENGTH = X-SUB-B COORD. IN ELEMENT SYSTEM C XSUBB = DSQRT(E(1)**2 + E(3)**2 + E(5)**2) IF (XSUBB .GT. 1.0D-06) GO TO 20 CALL MESAGE (30,31,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C NOW NORMALIZE I-VECTOR WITH X-SUB-B C 20 E(1) = E(1)/XSUBB E(3) = E(3)/XSUBB E(5) = E(5)/XSUBB C C HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN C E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER C E(2) = DBLE(X3) - DBLE(X1) E(4) = DBLE(Y3) - DBLE(Y1) E(6) = DBLE(Z3) - DBLE(Z1) C C X-SUB-C = I . (RSUBC - RSUBA), THUS C XSUBC = E(1)*E(2) + E(3)*E(4) + E(5)*E(6) C C AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(7) = E(3)*E(6) - E(5)*E(4) E(8) = E(5)*E(2) - E(1)*E(6) E(9) = E(1)*E(4) - E(3)*E(2) C C THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C C COORD. IN ELEMENT SYSTEM C YSUBC = DSQRT(E(7)**2 + E(8)**2 + E(9)**2) IF (YSUBC .GT. 1.0D-06) GO TO 25 CALL MESAGE (30,32,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND C 25 E(7) = E(7)/YSUBC E(8) = E(8)/YSUBC E(9) = E(9)/YSUBC C C J VECTOR = K CROSS I C STORE IN THE SPOT FOR J C E(2) = E(5)*E(8) - E(3)*E(9) E(4) = E(1)*E(9) - E(5)*E(7) E(6) = E(3)*E(7) - E(1)*E(8) C C AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE. C TEMP = DSQRT(E(2)**2 + E(4)**2 + E(6)**2) IF (TEMP .NE. 0.0D0) GO TO 26 CALL MESAGE (30,26,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C 26 CONTINUE E(2) = E(2)/TEMP E(4) = E(4)/TEMP E(6) = E(6)/TEMP C C VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA C VOL = XSUBB*YSUBC*DBLE(T)/2.0D0 REELMU = 1.0D0/XSUBB FLAMDA = 1.0D0/YSUBC DELTA = XSUBC/XSUBB - 1.0D0 C C NOW FORM THE C MATRIX (3X6) PARTITIONED AS FOLLOWS HERE. C CSUBA = (3X2) STORED IN C( 1) THRU C( 6) BY ROWS C CSUBB = (3X2) STORED IN C( 7) THRU C(12) BY ROWS C CSUBC = (3X2) STORED IN C(13) THRU C(18) BY ROWS C C(1) = -REELMU C(2) = 0.0D0 C(3) = 0.0D0 C(4) = FLAMDA*DELTA C(5) = C(4) C(6) = -REELMU C(7) = REELMU C(8) = 0.0D0 C(9) = 0.0D0 C(10) = -FLAMDA*REELMU*XSUBC C(11) = C(10) C(12) = REELMU C(13) = 0.0D0 C(14) = 0.0D0 C(15) = 0.0D0 C(16) = FLAMDA C(17) = FLAMDA C(18) = 0.0D0 C IF (NTYPE .EQ. 1) GO TO 30 C THETA = ANGLE*DEGRA SINTH = SIN(THETA) COSTH = COS(THETA) 30 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 C C BRANCH ON -HEAT- PROBLEM AT THIS POINT. C IF (HEAT) GO TO 1010 ELTEMP = ECPT(21) MATID = MATID1 INFLAG = 2 CALL MAT (ECPT(1)) IF (NOGO .EQ. 1) RETURN C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C G, E, AND C MATRICES ARE COMPLETE C C AT THIS POINT THE FOLLOWING EQUATION CAN BE SOLVED FOR K-SUB-IJ C C T T T C K = VOL . T *E*C *G*C *E *T C IJ I I J J C C T-SUB-I WILL BE USED IN THE ABOVE ONLY IF THE PIVOT COORDINATE C SYSTEM ID IS NOT ZERO, OTHERWISE IT IS ASSUMED TO BE THE C IDENTITY MATRIX. C C THE I SUBSCRIPT IMPLIES THE PIVOT POINT 1,2, OR 3 (ELEMENT SYST) C THE J SUBSCRIPT IMPLIES 1 THRU 3 FOR EACH CALL TO THIS ROUTINE. C C C FIRST LOCATE WHICH POINT IS THE PIVOT C C DO 100 I = 1,3 IF (NGRID(I) .NE. NPVT) GO TO 100 KA = 4*I + 5 NPOINT = 6*I - 5 GO TO 150 100 CONTINUE C C FALLING THRU ABOVE LOOP INDICATES THE PIVOT POINT SPECIFIED BY C NPVT WAS NOT FOUND EQUAL TO ANY OF THE 3 GRID POINTS IN THE ECPT C THUS ERROR CONDITION. C CALL MESAGE (-30,34,ECPT(1)) C C T C COMPUTE E*C *G AND STORE IN TEMPAR (1 THRU 9) C I C 150 CALL GMMATD (E,3,2,0, C(NPOINT),3,2,1, TEMPAR(10)) CALL GMMATD (TEMPAR(10),3,3,0, G,3,3,0, TEMPAR(1)) C C NCOM WILL ALWAYS POINT TO THE COMMON 3 X 3 PRODUCT ABOVE C NPT1 WILL POINT TO FREE WORKING SPACE LENGTH 9 C NCOM = 1 NPT1 = 10 C C MULTIPLY COMMON PRODUCT BY SCALER VOL C DO 90 I = 1,9 90 TEMPAR(I) = TEMPAR(I)*VOL C C CHECK FOR PIVOT CSID = 0, IF ZERO SKIP TRANSFORMATION TSUBI. C IF (NECPT(KA) .EQ. 0) GO TO 80 C C NOT-ZERO THUS GET TI C CALL TRANSD (NECPT(KA),TI) C C INTRODUCE TI INTO THE COMMON PRODUCT AND STORE AT C TEMPAR (10 THRU 18) C CALL GMMATD (TI,3,3,1, TEMPAR(1),3,3,0, TEMPAR(10)) C C COMMON PRODUCT NOW STARTS AT TEMPAR(10) THUS CHANGE NCOM AND NPT1 C NCOM = 10 NPT1 = 1 C C NOW HAVE COMMON PRODUCT STORED BEGINNING TEMPAR(NCOM), (3X3). C NPT1 POINTS TO FREE WORKING SPACE LENGTH 9. C C PROCEED NOW AND RUN OUT THE 3 6X6 MATRICES KIJ-SUB-1,2,3. C C FIRST ZERO OUT (6 X 6) K C IJ C 80 NSAVE = NPT1 DO 700 I = 1,36 700 KIJ(I) = 0.0D0 NPOINT = 0 C DO 500 I = 1,3 CALL GMMATD (C(6*I-5),3,2,0, E,3,2,1, TEMPAR(NSAVE)) C C T C NPT2 IS SET TO POINT TO THE BEGINNING OF THE PRODUCT C *E *T C J J NPT2 = NSAVE NPT1 = 19 C C CHECK FOR ZERO CSID IN WHICH CASE TJ IS NOT NEEDED C IF (NECPT(4*I+5) .EQ. 0) GO TO 60 C C COMMING HERE IMPLIES NEED FOR TJ C WILL STORE TJ IN TI C CALL TRANSD (NECPT(4*I+5),TI) CALL GMMATD (TEMPAR(NPT2),3,3,0, TI,3,3,0, TEMPAR(19)) NPT1 = NPT2 NPT2 = 19 C C AT THIS POINT COMPLETE COMPUTATION FOR K-SUB-I,J C 60 CALL GMMATD (TEMPAR(NCOM),3,3,0, TEMPAR(NPT2),3,3,0, TEMPAR(NPT1)) C IF (NTYPE .EQ. 0) GO TO 95 DO 96 J = 1,9 NPOINT = NPOINT + 1 NPT2 = NPT1 + J - 1 96 KIJ(NPOINT) = TEMPAR(NPT2) GO TO 500 C 95 KIJ( 1) = TEMPAR(NPT1 ) KIJ( 2) = TEMPAR(NPT1 + 1) KIJ( 3) = TEMPAR(NPT1 + 2) KIJ( 7) = TEMPAR(NPT1 + 3) KIJ( 8) = TEMPAR(NPT1 + 4) KIJ( 9) = TEMPAR(NPT1 + 5) KIJ(13) = TEMPAR(NPT1 + 6) KIJ(14) = TEMPAR(NPT1 + 7) KIJ(15) = TEMPAR(NPT1 + 8) C CALL SMA1B (KIJ(1),NECPT(I+1),-1,IFKGG,0.0D0) TEMP = G SUB E IF (IOPT4) 501,500,501 501 IF (GSUBE) 502,500,502 502 CALL SMA1B (KIJ(1),NECPT(I+1),-1,IF4GG,TEMP) K4GGSW = 1 C 500 CONTINUE RETURN C C HEAT PROBLEM LOGIC PICKS UP HERE. CALL HMAT FOR MATERIAL DATA. C 1010 INFLAG = 2 MATID = NECPT(6) ELTEMP = ECPT(21) CALL HMAT (NECPT) G(1) = MATBUF(1) G(2) = MATBUF(2) G(3) = MATBUF(2) G(4) = MATBUF(3) C C CONDENSE C MATRIX FOR HEAT PROBLEM (FORMED ABOVE) C IS (2X3) C C(2) = C(4) C(3) = C(7) C(4) = C(10) C(5) = C(13) C(6) = C(16) C C DETERMINE THE PIVOT POINT. C DO 1030 I = 1,3 IF (NGRID(I) .EQ. NPVT) GO TO 1060 1030 CONTINUE CALL MESAGE (-30,34,ECPT(1)) C C PIVOT C MATRIX TIMES VOLUME (STORED INTO TT(1) AND TT(2).) C 1060 TT(1) = VOL*C(2*I-1) TT(2) = VOL*C(2*I ) C C OUTPUT THE CONDUCTIVITY MATRICES C K = 36 IF (NTYPE .NE. 0) K = 27 DO 1070 I = 1,K 1070 KIJ(I) = 0.0D0 NPOINT = 0 C DO 1100 I = 1,3 N2 = 2*I N1 = N2 - 1 TEMPAR(1) = (G(1)*C(N1) + G(2)*C(N2))*TT(1) + 1 (G(3)*C(N1) + G(4)*C(N2))*TT(2) IF (NTYPE) 1080,1090,1080 C C SUB-TRIANGLE (RETURN 3X3-S AS ABOVE IN STIFFNESS PORTION) C 1080 KIJ(NPOINT+1) = TEMPAR(1) NPOINT = NPOINT + 9 GO TO 1100 C C TRIANGLE BY ITSELF C 1090 CALL SMA1B (TEMPAR(1),NECPT(I+1),NPVT,IFKGG,0.0D0) 1100 CONTINUE RETURN END ================================================ FILE: mis/ktrpld.f ================================================ SUBROUTINE KTRPLD C C STIFFNESS SUBROUTINE FOR HIGHER ORDER PLATE ELEMENT CTRPLT1 C C ECPT ENTRIES C C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1 INTEGER C ECPT( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2 INTEGER C ECPT( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3 INTEGER C ECPT( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4 INTEGER C ECPT( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5 INTEGER C ECPT( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6 INTEGER C ECPT( 8) = THETA REAL C ECPT( 9) = MATERIAL ID 1 INTEGER C ECPT(10) = AREA MOMENT OF INERTIA R1 AT GRID POINT 1 REAL C ECPT(11) = AREA MOMENT OF INERTIA R3 AT GRID POINT 3 REAL C ECPT(12) = AREA MOMENT OF INERTIA R5 AT GRID POINT 5 REAL C ECPT(13) = MATERIAL ID 2 INTEGER C ECPT(14) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT REAL C GRID POINT 1 C ECPT(15) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT REAL C GRID POINT 3 C ECPT(16) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT REAL C GRID POINT 5 C ECPT(17) = NON-STRUCTURAL MASS REAL C ECPT(18) = DISTANCE Z11 FOR STRESS CALCULATION AT GRID 1 C ECPT(19) = DISTANCE Z21 FOR STRESS CALCULATION AT GRID 1 C ECPT(20) = DISTANCE Z13 FOR STRESS CALCULATION AT GRID 3 C ECPT(21) = DISTANCE Z23 FOR STRESS CALCULATION AT GRID 3 C ECPT(22) = DISTANCE Z15 FOR STRESS CALCULATION AT GRID 5 C ECPT(23) = DISTANCE Z25 FOR STRESS CALCULATION AT GRID 5 C C X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM C C ECPT(24) = COORDINATE SYSTEM ID FOR GRID A INTEGER C ECPT(25) = COORDINATE X1 REAL C ECPT(26) = COORDINATE Y1 REAL C ECPT(27) = COORDINATE Z1 REAL C ECPT(28) = COORDINATE SYSTEM ID FOR GRID B INTEGER C ECPT(29) = COORDINATE X1 REAL C ECPT(30) = COORDINATE Y1 REAL C ECPT(31) = COORDINATE Z1 REAL C ECPT(32) = COORDINATE SYSTEM ID FOR GRID C INTEGER C ECPT(33) = COORDINATE X1 REAL C ECPT(34) = COORDINATE Y1 REAL C ECPT(35) = COORDINATE Z1 REAL C ECPT(36) = COORDINATE SYSTEM ID FOR GRID D INTEGER C ECPT(37) = COORDINATE X1 REAL C ECPT(38) = COORDINATE Y1 REAL C ECPT(39) = COORDINATE Z1 REAL C ECPT(40) = COORDINATE SYSTEM ID FOR GRID E INTEGER C ECPT(41) = COORDINATE X1 REAL C ECPT(42) = COORDINATE Y1 REAL C ECPT(43) = COORDINATE Z1 REAL C ECPT(44) = COORDINATE SYSTEM ID FOR GRID F INTEGER C ECPT(45) = COORDINATE X1 REAL C ECPT(46) = COORDINATE Y1 REAL C ECPT(47) = COORDINATE Z1 REAL C ECPT(48) = ELEMENT TEMPERATURE REAL C LOGICAL IMASS,NOTS,NOGO,UNIBEN INTEGER NAME(2),INDEX(20,3),XPOWER(20),YPOWER(20),ICS(6), 1 NL(6),IEST(42),XTHK(10),YTHK(10),SAVE(6),SMALL(6), 2 DICT(11),FLAGS,ELTYPE,ELID,ESTID,PRECIS,SIL1,SIL2 REAL NSM,IVECT(3),JVECT(3),KVECT(3),F(14,14),XC(6), 1 YC(6),ZC(6) DOUBLE PRECISION S11,S22,S13,S23,D334,D132,D232,S33,ST,RMX,RNX, 1 RMNX,RMX1,RNX1,RMY,RNY,RMNY,RMY1,RNY1,A1SQ,A2SQ, 2 A3SQ,C1,C2,C3,C4,C5,C6,C7,C8,C9,C10,CC(10),CM1, 3 DETERM,CMT(1296),QQQ(20,20),QQQINV(360),MTR3(400), 4 KTR3(400),CSUB(3,3),CSUBT(6,3),TS6(40),TS1(60), 5 TS6S(40),TS2(60),TS7(60),TRAND(9),BALOTR(36), 6 KSUB(6,6),KSUBT(6,6),KSUP(36),KSUPT(36),E(18) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SMA1DP/ CM1(18,18) COMMON /EMGEST/ EST(100) COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID COMMON /EMGPRM/ ICORE,JCORE,NCORE,DUM(12),FLAGS(3),PRECIS COMMON /BLANK / NOK,NOM COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 COMMON /SMA1IO/ X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,AA1,AA2,AA3 COMMON /SYSTEM/ KSYSTM(65) EQUIVALENCE (C1,CC(1)),(C2,CC(2)),(C3,CC(3)),(C4,CC(4)), 1 (C5,CC(5)),(C6,CC(6)),(C7,CC(7)),(C8,CC(8)), 2 (C9,CC(9)),(C10,CC(10)) EQUIVALENCE (KSYSTM(2),IOUTPT),(KSUB(1,1),KSUP(1)), 1 (KSUBT(1,1),KSUPT(1)) EQUIVALENCE (THK1,TMEM1),(THK2,TMEM3),(THK3,TMEM5) EQUIVALENCE (A,DISTA),(B,DISTB),(C,DISTC),(IEST(1),EST(1)), 1 (CMT(1),KTR3(1),MTR3(1),QQQ(1,1)), 2 (CM1(1,1),TS6(1)),(CM1(5,3),TS1(1)), 3 (CM1(11,6),TS6S(1)),(CM1(15,8),TS2(1)), 4 (CM1(3,12),TS7(1)) DATA XPOWER / 0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0/ DATA YPOWER / 0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5/ DATA XTHK / 0,1,0,2,1,0,3,2,1,0 / DATA YTHK / 0,0,1,0,1,2,0,1,2,3 / DATA DEGRA / 0.0174532925 / DATA BLANK , NAME / 4H , 4HTRPL, 4HT1 / C C COMPONENT CODE,ICODE,IS 111111 AND HAS A VALUE OF 63 C ICODE = 63 NDOF = 36 IPREC = PRECIS NLOCS = 6 DICT(1) = ESTID DICT(2) = 1 DICT(3) = NDOF DICT(4) = ICODE DICT(5) = GSUBE NOTS = .FALSE. IMASS = .FALSE. IF (NOM .GT. 0) IMASS = .TRUE. IPASS = 1 IDELE = IEST(1) DO 109 I = 1,6 NL(I) = IEST(I+1) 109 CONTINUE THETAM = EST( 8) MATID1 = IEST( 9) TMEM1 = (EST(10)*12.0)**0.333333333333 TMEM3 = (EST(11)*12.0)**0.333333333333 TMEM5 = (EST(12)*12.0)**0.333333333333 MATID2 = IEST(13) TSHR1 = EST(14) TSHR3 = EST(15) TSHR5 = EST(16) NSM = EST(17) J = 0 DO 120 I = 24,44,4 J = J + 1 ICS(J) = IEST(I ) XC(J) = EST(I+1) YC(J) = EST(I+2) ZC(J) = EST(I+3) 120 CONTINUE C C IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK,THEY WILL BE SET EQUAL TO C SO ALSO FOR TEMP3 AND TEMP5 C IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1 IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1 IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1 IF (TSHR1 .EQ. 0.0) NOTS = .TRUE. ELTEMP = EST(48) THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C EVALUATE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 CALL MAT (IDELE) C MATID = MATID2 MATFLG = 3 IF (NOTS) GO TO 146 CALL MAT (IDELE) 146 CONTINUE D11 = EM(1) D12 = EM(2) D13 = EM(3) D22 = EM(4) D23 = EM(5) D33 = EM(6) C C CALCULATIONS FOR THE TRIANGLE C CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME) C C FILL E-MATRIX C DO 177 I = 1,18 177 E( I) = 0.0D0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C D334 = D33*4.0D0 D132 = D13*2.0D0 D232 = D23*2.0D0 CALL AF (F,14,A,B,C,A1,A2,A3,THK1,THK2,THK3,1) A1SQ = A1*A1 A2SQ = A2*A2 A3SQ = A3*A3 C1 = A1SQ*A1 C2 = 3.0*A1SQ*A2 C3 = 3.0*A1SQ*A3 C4 = 3.0*A1*A2SQ C5 = 6.0*A1*A2*A3 C6 = 3.0*A3SQ*A1 C7 = A2SQ*A2 C8 = 3.0*A2SQ*A3 C9 = 3.0*A2*A3SQ C10 = A3*A3SQ CALL AF (F,14,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,1) UNIBEN = .FALSE. IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN = .TRUE. C C COMPUTE THE AREA INTEGRATION FUNCTION F C CALL AF (F,14,A,B,C,0,0,0,0,0,0,-1) C C CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE C DO 110 I = 1,20 DO 110 J = 1,20 110 QQQ(I,J) = 0.0D0 DO 115 I = 1,6 I3 = (I-1)*3 I1 = I3 + 1 I2 = I3 + 2 I3 = I3 + 3 QQQ(I1, 1) = 1.0D0 QQQ(I1, 2) = XC(I) QQQ(I1, 3) = YC(I) QQQ(I1, 4) = XC(I)*XC(I) QQQ(I1, 5) = XC(I)*YC(I) QQQ(I1, 6) = YC(I)*YC(I) QQQ(I1, 7) = QQQ(I1, 4)*XC(I) QQQ(I1, 8) = QQQ(I1, 4)*YC(I) QQQ(I1, 9) = QQQ(I1, 5)*YC(I) QQQ(I1,10) = QQQ(I1, 6)*YC(I) QQQ(I1,11) = QQQ(I1, 7)*XC(I) QQQ(I1,12) = QQQ(I1, 7)*YC(I) QQQ(I1,13) = QQQ(I1, 8)*YC(I) QQQ(I1,14) = QQQ(I1, 9)*YC(I) QQQ(I1,15) = QQQ(I1,10)*YC(I) QQQ(I1,16) = QQQ(I1,11)*XC(I) QQQ(I1,17) = QQQ(I1,12)*YC(I) QQQ(I1,18) = QQQ(I1,13)*YC(I) QQQ(I1,19) = QQQ(I1,14)*YC(I) QQQ(I1,20) = QQQ(I1,15)*YC(I) QQQ(I2, 3) = 1.0D0 QQQ(I2, 5) = XC(I) QQQ(I2, 6) = YC(I)*2.0 QQQ(I2, 8) = QQQ(I1, 4) QQQ(I2, 9) = QQQ(I1, 5)*2.0 QQQ(I2,10) = QQQ(I1, 6)*3.0 QQQ(I2,12) = QQQ(I1, 7) QQQ(I2,13) = QQQ(I1, 8)*2.0 QQQ(I2,14) = QQQ(I1, 9)*3.0 QQQ(I2,15) = QQQ(I1,10)*4.0 QQQ(I2,17) = QQQ(I1,12)*2.0 QQQ(I2,18) = QQQ(I1,13)*3.0 QQQ(I2,19) = QQQ(I1,14)*4.0 QQQ(I2,20) = QQQ(I1,15)*5.0 QQQ(I3, 2) =-1.0D0 QQQ(I3, 4) =-2.0*XC(I) QQQ(I3, 5) =-YC(I) QQQ(I3, 7) =-QQQ(I1, 4)*3.0 QQQ(I3, 8) =-QQQ(I1, 5)*2.0 QQQ(I3, 9) =-QQQ(I1, 6) QQQ(I3,11) =-QQQ(I1, 7)*4.0 QQQ(I3,12) =-QQQ(I1, 8)*3.0 QQQ(I3,13) =-QQQ(I1, 9)*2.0 QQQ(I3,14) =-QQQ(I1,10) QQQ(I3,16) =-QQQ(I1,11)*5.0 QQQ(I3,17) =-QQQ(I1,13)*3.0 QQQ(I3,18) =-QQQ(I1,14)*2.0 QQQ(I3,19) =-QQQ(I1,15) C C IF NO TRANSVERSE SHEAR GO TO 113 C IF (NOTS) GO TO 1137 X = XC(I) Y = YC(I) CALL TSPL3D (TS6) DO 113 JJ = 1,20 QQQ(I2,JJ) = QQQ(I2,JJ) - TS6(20+JJ) QQQ(I3,JJ) = QQQ(I3,JJ) + TS6( JJ) 113 CONTINUE 1137 CONTINUE 115 CONTINUE QQQ(19,16) = 5.0*A**4*C QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2 QQQ(19,19) = C**5 - 4.0*A**2*C**3 QQQ(19,20) = 5.0*A*C**4 QQQ(20,16) = 5.0*B**4*C QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2 QQQ(20,19) = C**5 - 4.0*B**2*C**3 QQQ(20,20) =-5.0*B*C**4 C C FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1) I C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERD (20,QQQ,20,TS6(1),0,DETERM,ISING,INDEX) C C ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR C IF (ISING .EQ. 2) GO TO 904 C C FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS C MATRIX CALCULATIONS C DO 152 I = 1,20 DO 152 J = 1,18 IJ = (I-1)*18 + J QQQINV(IJ) = QQQ(I,J) 152 CONTINUE C C START EXECUTION FOR STIFFNESS MATRIX CALCULATION C C CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES C 211 CONTINUE DO 212 I = 1,400 KTR3(I) = 0.0D0 212 CONTINUE DO 220 I = 1,20 MX = XPOWER(I) RMX = MX NX = YPOWER(I) RNX = NX RMNX = RMX*RNX RMX1 = RMX*(RMX-1.0D0) RNX1 = RNX*(RNX-1.0D0) DO 218 J = I,20 IJ = (I-1)*20 + J JI = (J-1)*20 + I MY = XPOWER(J) RMY = MY NY = YPOWER(J) RNY = NY RMNY = RMY*RNY RMY1 = RMY*(RMY-1.0D0) RNY1 = RNY*(RNY-1.0D0) MX0 = MX + MY MX1 = MX + MY - 1 MX2 = MX + MY - 2 MX3 = MX + MY - 3 NX0 = NX + NY NX1 = NX + NY - 1 NX2 = NX + NY - 2 NX3 = NX + NY - 3 MY1 = MX + MY + 1 NY1 = NX + NY + 1 IF (IPASS .EQ. 1) GO TO 214 MX01 = MX0 + 1 NX01 = NX0 + 1 MX011= MX01+ 1 NX011= NX01+ 1 RHO = RHOY*1.0D0 MTR3(IJ) = RHO*(A1*F(MX01,NX01)+A2*F(MX011,NX01)+A3*F(MX01,NX011)) 1 + NSM*F(MX01,NX01) MTR3(JI) = MTR3(IJ) GO TO 216 214 CONTINUE ST = 0.0D0 DO 215 K = 1,10 MX3X = MX3 + XTHK(K) NY1Y = NY1 + YTHK(K) MY1X = MY1 + XTHK(K) NX3Y = NX3 + YTHK(K) MX1X = MX1 + XTHK(K) NX1Y = NX1 + YTHK(K) MX2X = MX2 + XTHK(K) NX0Y = NX0 + YTHK(K) MX0X = MX0 + XTHK(K) NX2Y = NX2 + YTHK(K) S11 = 0.0D0 S22 = 0.0D0 S33 = 0.0D0 S13 = 0.0D0 S23 = 0.0D0 IF (MX3X .GT. 0) S11 = D11*RMX1*RMY1*CC(K)*F(MX3X,NY1Y) IF (NX3Y .GT. 0) S22 = D22*RNX1*RNY1*CC(K)*F(MY1X,NX3Y) IF (MX1X.GT.0 .AND. NX1Y.GT.0) S33 = (D334*RMNX*RMNY + 1 D12*(RMX1*RNY1 + RMY1*RNX1))*CC(K)*F(MX1X,NX1Y) IF (MX2X.GT.0 .AND. NX0Y.GT.0) S13 = D132*(RMX1*RMNY + 1 RMNX*RMY1)*CC(K)*F(MX2X,NX0Y) IF (MX0X.GT.0 .AND. NX2Y.GT.0) S23 = D232*(RMNX*RNY1 + 1 RNX1*RMNY)*CC(K)*F(MX0X,NX2Y) ST = ST + S11 + S22 + S33 + S13 + S23 IF (UNIBEN) GO TO 2150 215 CONTINUE 2150 CONTINUE KTR3(IJ) = ST/12.0D0 KTR3(JI) = KTR3(IJ) 216 CONTINUE 218 CONTINUE 220 CONTINUE IF (IPASS .EQ. 2) GO TO 230 C C IF NO TRANSVERSE SHEAR GO TO 230 C C IF TSHR EQUAL TO ZERO OR MATID3 EQUAL TO ZERO, SKIP THESE C CALCULATION C IF (NOTS) GO TO 230 C C CALL TSPL1D (TS1,TS2,TS6,TS6S,TS7,KTR3,CMT(761)) 230 CONTINUE C C (QQQINV) TRANSPOSE (KTR3) (QQQINV) C CALL GMMATD (QQQINV,20,18,+1,KTR3,20,20,0,CMT(761)) CALL GMMATD (CMT(761),18,20,0,QQQINV,20,18,0,CM1) C 290 DO 300 I = 1,1296 CMT(I) = 0.0 300 CONTINUE IF (IPASS .LE. 2) GO TO 305 C C LUMPED MASS MATRIX C CALL AF (F,14,A,B,C,T1,T2,T3,EST(10),EST(11),EST(12),1) AREA = F(1,1) VOL = T1*F(1,1) + T2*F(2,1) + T3*F(1,2) AMASS= (RHOY*VOL + NSM*AREA)/6. DO 303 I = 1,1296,37 CMT(I) = AMASS 303 CONTINUE IPASS = 2 GO TO 400 C C LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS C COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES C ARE R?? C - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO) C C TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC C COORDINATES C C TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINATES TO GLOBAL (DISP) C COORDINATES C C INSERT THE 6X6 SUBMATRIX INTO KGG MATRIX C 305 DO 310 I = 1,6 SAVE(I) = NL(I) 310 CONTINUE DO 314 I = 1,6 SMALL(I) = I ISMALL = NL(I) DO 313 J = 1,6 IF (ISMALL .LE. NL(J)) GO TO 312 SMALL(I) = J ISMALL = NL(J) 312 CONTINUE 313 CONTINUE ISM = SMALL(I) NL(ISM) = 1000000 314 CONTINUE DO 316 I = 1,6 NL(I) = SAVE(I) 316 CONTINUE DO 390 I = 1,6 DO 385 J = I,6 DO 320 II = 1,36 BALOTR(II)= 0.0D0 KSUP(II) = 0.0D0 320 CONTINUE DO 324 K = 1,3 SIL1 = SMALL(I) K1 = (SIL1-1)*3 + K DO 323 L = 1,3 SIL2 = SMALL(J) L1 = (SIL2-1)*3 + L CSUB(K,L) = CM1(K1,L1) 323 CONTINUE 324 CONTINUE CALL GMMATD (E ,6,3,0,CSUB,3,3,0,CSUBT) CALL GMMATD (CSUBT,6,3,0,E,6,3,+1,KSUBT) DO 325 K = 1,6 DO 325 L = 1,6 K1 = (K-1)*6 + L L1 = (L-1)*6 + K KSUP(L1) = KSUPT(K1) 325 CONTINUE C C TRANSFORM THE KSUP(36) FROM BASIC TO DISPLACEMENT COORDINATES C IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 340 JJ = 4*I + 20 CALL TRANSD (IEST(JJ),TRAND) DO 327 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 327 CONTINUE CALL GMMATD (BALOTR(1),6,6,1,KSUP(1),6,6,0,KSUPT) DO 330 K = 1,36 KSUP(K) = KSUPT(K) 330 CONTINUE 340 CONTINUE IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 375 IF (J .EQ. I) GO TO 365 CALL TRANSD (IEST(4*J+20),TRAND) DO 360 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 360 CONTINUE 365 CONTINUE CALL GMMATD (KSUP(1),6,6,0,BALOTR( 1 ),6,6,0,KSUPT) DO 370 K = 1,36 KSUP(K) = KSUPT(K) 370 CONTINUE 375 CONTINUE DO 380 II = 1,6 DO 380 JJ = 1,6 I1 = (I-1)*6 + II J1 = (J-1)*6 + JJ I1J1 = (I1-1)*36 + J1 J1I1 = (J1-1)*36 + I1 CMT(I1J1) = KSUB(JJ,II) CMT(J1I1) = KSUB(JJ,II) 380 CONTINUE 385 CONTINUE 390 CONTINUE C C CALL INSERTION ROUTINE C 400 CALL EMGOUT (CMT(1),CMT(1),1296,1,DICT,IPASS,IPREC) IF (.NOT.IMASS .OR. IPASS.GE.2) RETURN C C GO TO 290 TO COMPUTE LUMPED MASS MATRIX C GO TO 211 TO COMPUTE CONSIST. MASS MATRIX (THIS PATH MAY NOT WORK) C IPASS = 3 CALL SSWTCH (46,J) IF (J .EQ. 1) IPASS = 2 GO TO (999,211,290), IPASS C C ERRORS C 904 CONTINUE NOGO = .TRUE. WRITE (IOUTPT,2411) UFM,IEST(1) 2411 FORMAT (A23,' 2411, MATRIX RELATING GENERALIZED PARAMETERS AND ', 1 'GRID POINT DISPLACEMENTS IS SINGULAR.', /26X, 2 'CHECK COORDINATES OF ELEMENT TRPLT1 WITH ID',I9,1H.) 999 CONTINUE RETURN END ================================================ FILE: mis/ktrpls.f ================================================ SUBROUTINE KTRPLS C C STIFFNESS SUBROUTINE FOR HIGHER ORDER PLATE ELEMENT CTRPLT1 C C ECPT ENTRIES C C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1 INTEGER C ECPT( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2 INTEGER C ECPT( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3 INTEGER C ECPT( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4 INTEGER C ECPT( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5 INTEGER C ECPT( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6 INTEGER C ECPT( 8) = THETA REAL C ECPT( 9) = MATERIAL ID 1 INTEGER C ECPT(10) = THICKNESS T1 AT GRID POINT G1 C ECPT(11) = THICKNESS T3 AT GRID POINT G3 C ECPT(12) = THICKNESS T5 AT GRID POINT G5 C ECPT(13) = MATERIAL ID 2 INTEGER C ECPT(14) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID C ECPT(15) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID C ECPT(16) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID C ECPT(17) = NON-STRUCTURAL MASS REAL C ECPT(18) = DISTANCE Z11 FOR STRESS CALCULATION AT GRID 1 C ECPT(19) = DISTANCE Z21 FOR STRESS CALCULATION AT GRID 1 C ECPT(20) = DISTANCE Z13 FOR STRESS CALCULATION AT GRID 3 C ECPT(21) = DISTANCE Z23 FOR STRESS CALCULATION AT GRID 3 C ECPT(22) = DISTANCE Z15 FOR STRESS CALCULATION AT GRID 5 C ECPT(23) = DISTANCE Z25 FOR STRESS CALCULATION AT GRID 5 C C X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM C C ECPT(24) = COORDINATE SYSTEM ID FOR GRID A INTEGER C ECPT(25) = COORDINATE X1 REAL C ECPT(26) = COORDINATE Y1 REAL C ECPT(27) = COORDINATE Z1 REAL C ECPT(28) = COORDINATE SYSTEM ID FOR GRID B INTEGER C ECPT(29) = COORDINATE X1 REAL C ECPT(30) = COORDINATE Y1 REAL C ECPT(31) = COORDINATE Z1 REAL C ECPT(32) = COORDINATE SYSTEM ID FOR GRID C INTEGER C ECPT(33) = COORDINATE X1 REAL C ECPT(34) = COORDINATE Y1 REAL C ECPT(35) = COORDINATE Z1 REAL C ECPT(36) = COORDINATE SYSTEM ID FOR GRID D INTEGER C ECPT(37) = COORDINATE X1 REAL C ECPT(38) = COORDINATE Y1 REAL C ECPT(39) = COORDINATE Z1 REAL C ECPT(40) = COORDINATE SYSTEM ID FOR GRID E INTEGER C ECPT(41) = COORDINATE X1 REAL C ECPT(42) = COORDINATE Y1 REAL C ECPT(43) = COORDINATE Z1 REAL C ECPT(44) = COORDINATE SYSTEM ID FOR GRID F INTEGER C ECPT(45) = COORDINATE X1 REAL C ECPT(46) = COORDINATE Y1 REAL C ECPT(47) = COORDINATE Z1 REAL C ECPT(48) = ELEMENT TEMPERATURE REAL C LOGICAL IMASS,NOTS,NOGO,UNIBEN INTEGER NAME(2),INDEX(20,3),XPOWER(20),YPOWER(20),ICS(6), 1 NL(6),IEST(42),XTHK(10),YTHK(10),SAVE(6),SMALL(6), 2 DICT(11),FLAGS,ELTYPE,ELID,ESTID,PRECIS,SIL1,SIL2 REAL NSM,IVECT(3),JVECT(3),KVECT(3),F(14,14), 1 XC(6),YC(6),ZC(6),CC(10),KSUP(36),KSUPT(36), 2 E(18),CMT(1296),QQQ(20,20),QQQINV(360),MTR3(400), 3 KTR3(400),CSUB(3,3),CSUBT(6,3),TS6(40),TS1(60), 4 TS6S(40),TS2(60),TS7(60),TRAND(9),BALOTR(36), 5 KSUB(6,6),KSUBT(6,6) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / NOK,NOM COMMON /SMA1DP/ CM1(18,18) COMMON /EMGEST/ EST(100) COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID COMMON /EMGPRM/ ICORE,JCORE,NCORE,DUM(12),FLAGS(3),PRECIS COMMON /SMA1IO/ X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,AA1,AA2,AA3 COMMON /SYSTEM/ KSYSTM(65) COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 EQUIVALENCE (KSYSTM(2),IOUTPT),(KSUB(1,1),KSUP(1)), 1 (KSUBT(1,1),KSUPT(1)),(C1,CC(1)),(C2,CC(2)), 2 (C3,CC(3)),(C4,CC(4)),(C5,CC(5)),(C6,CC(6)), 3 (C7,CC(7)),(C8,CC(8)),(C9,CC(9)),(C10,CC(10)), 4 (THK1,TMEM1),(THK2,TMEM3),(THK3,TMEM5), 5 (A,DISTA),(B,DISTB),(C,DISTC),(IEST(1),EST(1)), 6 (CMT(1),KTR3(1),MTR3(1),QQQ(1,1)), 7 (CM1(1,1),TS6(1)),(CM1(5,3),TS1(1)), 8 (CM1(11,6),TS6S(1)),(CM1(15,8),TS2(1)), 9 (CM1(3,12),TS7(1)) DATA XPOWER/ 0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0/ DATA YPOWER/ 0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5/ DATA XTHK / 0,1,0,2,1,0,3,2,1,0 / DATA YTHK / 0,0,1,0,1,2,0,1,2,3 / DATA DEGRA / 0.0174532925/ DATA BLANK , NAME / 4H , 4HTRPL, 4HT1 / C C COMPONENT CODE,ICODE,IS 111111 AND HAS A VALUE OF 63 C ICODE = 63 NDOF = 36 IPREC = PRECIS NLOCS = 6 DICT(1) = ESTID DICT(2) = 1 DICT(3) = NDOF DICT(4) = ICODE DICT(5) = GSUBE NOTS = .FALSE. IMASS = .FALSE. IF (NOM .GT. 0) IMASS = .TRUE. IPASS = 1 IDELE = IEST(1) DO 109 I = 1,6 NL(I) = IEST(I+1) 109 CONTINUE THETAM = EST(8) MATID1 = IEST(9) TMEM1 = (EST(10)*12.0)**0.333333333333 TMEM3 = (EST(11)*12.0)**0.333333333333 TMEM5 = (EST(12)*12.0)**0.333333333333 MATID2 = IEST(13) TSHR1 = EST(14) TSHR3 = EST(15) TSHR5 = EST(16) NSM = EST(17) J = 0 DO 120 I = 24,44,4 J = J + 1 ICS(J) = IEST(I) XC(J) = EST(I+1) YC(J) = EST(I+2) ZC(J) = EST(I+3) 120 CONTINUE C C IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK,THEY WILL BE SET EQUAL TO C SO ALSO FOR TEMP3 AND TEMP5 C IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1 IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1 IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1 IF (TSHR1 .EQ. 0.0) NOTS = .TRUE. ELTEMP = EST(48) THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C EVALUATE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 CALL MAT (IDELE) C MATID = MATID2 MATFLG = 3 J11 = 0.0 J12 = 0.0 J22 = 0.0 IF (NOTS) GO TO 146 CALL MAT (IDELE) 146 CONTINUE D11 = EM(1) D12 = EM(2) D13 = EM(3) D22 = EM(4) D23 = EM(5) D33 = EM(6) C C CALCULATIONS FOR THE TRIANGLE C CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME) C C FILL E-MATRIX C DO 177 I = 1,18 177 E(I) = 0.0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C D334 = D33*4.0 D132 = D13*2.0 D232 = D23*2.0 CALL AF (F,14,A,B,C,A1,A2,A3,THK1,THK2,THK3,1) A1SQ = A1*A1 A2SQ = A2*A2 A3SQ = A3*A3 C1 = A1SQ*A1 C2 = 3.0*A1SQ*A2 C3 = 3.0*A1SQ*A3 C4 = 3.0*A1*A2SQ C5 = 6.0*A1*A2*A3 C6 = 3.0*A3SQ*A1 C7 = A2SQ*A2 C8 = 3.0*A2SQ*A3 C9 = 3.0*A2*A3SQ C10 = A3*A3SQ CALL AF (F,14,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,1) UNIBEN = .FALSE. IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN = .TRUE. C C COMPUTE THE AREA INTEGRATION FUNCTION F C CALL AF (F,14,A,B,C,0,0,0,0,0,0,-1) C C CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE C DO 110 I = 1,20 DO 110 J = 1,20 110 QQQ(I,J) = 0.0 DO 115 I = 1,6 I1 = (I-1)*3 + 1 I2 = (I-1)*3 + 2 I3 = (I-1)*3 + 3 QQQ(I1, 1) = 1.0 QQQ(I1, 2) = XC(I) QQQ(I1, 3) = YC(I) QQQ(I1, 4) = XC(I)*XC(I) QQQ(I1, 5) = XC(I)*YC(I) QQQ(I1, 6) = YC(I)*YC(I) QQQ(I1, 7) = QQQ(I1, 4)*XC(I) QQQ(I1, 8) = QQQ(I1, 4)*YC(I) QQQ(I1, 9) = QQQ(I1, 5)*YC(I) QQQ(I1,10) = QQQ(I1, 6)*YC(I) QQQ(I1,11) = QQQ(I1, 7)*XC(I) QQQ(I1,12) = QQQ(I1, 7)*YC(I) QQQ(I1,13) = QQQ(I1, 8)*YC(I) QQQ(I1,14) = QQQ(I1, 9)*YC(I) QQQ(I1,15) = QQQ(I1,10)*YC(I) QQQ(I1,16) = QQQ(I1,11)*XC(I) QQQ(I1,17) = QQQ(I1,12)*YC(I) QQQ(I1,18) = QQQ(I1,13)*YC(I) QQQ(I1,19) = QQQ(I1,14)*YC(I) QQQ(I1,20) = QQQ(I1,15)*YC(I) QQQ(I2, 3) = 1.0 QQQ(I2, 5) = XC(I) QQQ(I2, 6) = YC(I)*2.0 QQQ(I2, 8) = QQQ(I1, 4) QQQ(I2, 9) = QQQ(I1, 5)*2.0 QQQ(I2,10) = QQQ(I1, 6)*3.0 QQQ(I2,12) = QQQ(I1, 7) QQQ(I2,13) = QQQ(I1, 8)*2.0 QQQ(I2,14) = QQQ(I1, 9)*3.0 QQQ(I2,15) = QQQ(I1,10)*4.0 QQQ(I2,17) = QQQ(I1,12)*2.0 QQQ(I2,18) = QQQ(I1,13)*3.0 QQQ(I2,19) = QQQ(I1,14)*4.0 QQQ(I2,20) = QQQ(I1,15)*5.0 QQQ(I3, 2) =-1.0 QQQ(I3, 4) =-2.0*XC(I) QQQ(I3, 5) =-YC(I) QQQ(I3, 7) =-QQQ(I1, 4)*3.0 QQQ(I3, 8) =-QQQ(I1, 5)*2.0 QQQ(I3, 9) =-QQQ(I1, 6) QQQ(I3,11) =-QQQ(I1, 7)*4.0 QQQ(I3,12) =-QQQ(I1, 8)*3.0 QQQ(I3,13) =-QQQ(I1, 9)*2.0 QQQ(I3,14) =-QQQ(I1,10) QQQ(I3,16) =-QQQ(I1,11)*5.0 QQQ(I3,17) =-QQQ(I1,13)*3.0 QQQ(I3,18) =-QQQ(I1,14)*2.0 QQQ(I3,19) =-QQQ(I1,15) C C IF NO TRANSVERSE SHEAR GO TO 113 C IF (NOTS) GO TO 1137 X = XC(I) Y = YC(I) CALL TSPL3S (TS6) DO 113 JJ = 1,20 QQQ(I2,JJ) = QQQ(I2,JJ) - TS6(20+JJ) QQQ(I3,JJ) = QQQ(I3,JJ) + TS6( JJ) 113 CONTINUE 1137 CONTINUE 115 CONTINUE QQQ(19,16) = 5.0*A**4*C QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2 QQQ(19,19) = C**5 - 4.0*A**2*C**3 QQQ(19,20) = 5.0*A*C**4 QQQ(20,16) = 5.0*B**4*C QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2 QQQ(20,19) = C**5 - 4.0*B**2*C**3 QQQ(20,20) =-5.0*B*C**4 C C FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1) C IS U C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (20,QQQ,20,TS6(1),0,DETERM,ISING,INDEX) C C ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR C IF (ISING .EQ. 2) GO TO 904 C C FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS C MATRIX CALCULATIONS C DO 152 I = 1,20 DO 152 J = 1,18 IJ = (I-1)*18 + J QQQINV(IJ) = QQQ(I,J) 152 CONTINUE C C START EXECUTION FOR STIFFNESS MATRIX CALCULATION C C CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES C 211 CONTINUE DO 212 I = 1,400 KTR3(I) = 0.0 212 CONTINUE DO 220 I = 1,20 MX = XPOWER(I) RMX = MX NX = YPOWER(I) RNX = NX RMNX = RMX*RNX RMX1 = RMX*(RMX-1.0) RNX1 = RNX*(RNX-1.0) DO 218 J = I,20 IJ = (I-1)*20 + J JI = (J-1)*20 + I MY = XPOWER(J) RMY = MY NY = YPOWER(J) RNY = NY RMNY = RMY*RNY RMY1 = RMY*(RMY-1.0) RNY1 = RNY*(RNY-1.0) MX0 = MX + MY MX1 = MX + MY - 1 MX2 = MX + MY - 2 MX3 = MX + MY - 3 NX0 = NX + NY NX1 = NX + NY - 1 NX2 = NX + NY - 2 NX3 = NX + NY - 3 MY1 = MX + MY + 1 NY1 = NX + NY + 1 IF (IPASS .EQ. 1) GO TO 214 MX01 = MX0 + 1 NX01 = NX0 + 1 MX011= MX01 + 1 NX011= NX01 + 1 RHO = RHOY*1.0 MTR3(IJ) = RHO*(A1*F(MX01,NX01) + A2*F(MX011,NX01) + 1 A3*F(MX01,NX011)) + NSM*F(MX01,NX01) MTR3(JI) = MTR3(IJ) GO TO 216 214 CONTINUE ST = 0.0 DO 215 K = 1,10 MX3X = MX3 + XTHK(K) NY1Y = NY1 + YTHK(K) MY1X = MY1 + XTHK(K) NX3Y = NX3 + YTHK(K) MX1X = MX1 + XTHK(K) NX1Y = NX1 + YTHK(K) MX2X = MX2 + XTHK(K) NX0Y = NX0 + YTHK(K) MX0X = MX0 + XTHK(K) NX2Y = NX2 + YTHK(K) S11 = 0.0 S22 = 0.0 S33 = 0.0 S13 = 0.0 S23 = 0.0 IF (MX3X .GT. 0) S11 = D11*RMX1*RMY1*CC(K)*F(MX3X,NY1Y) IF (NX3Y .GT. 0) S22 = D22*RNX1*RNY1*CC(K)*F(MY1X,NX3Y) IF (MX1X.GT.0 .AND. NX1Y.GT.0) S33 = (D334*RMNX*RMNY+ 1 D12*(RMX1*RNY1+RMY1*RNX1))*CC(K)*F(MX1X,NX1Y) IF (MX2X.GT.0 .AND. NX0Y.GT.0) S13 = D132*(RMX1*RMNY+ 1 RMNX*RMY1)*CC(K)*F(MX2X,NX0Y) IF (MX0X.GT.0 .AND. NX2Y.GT.0) S23 = D232*(RMNX*RNY1+ 1 RNX1*RMNY)*CC(K)*F(MX0X,NX2Y) ST = ST + S11 + S22 + S33 + S13 + S23 IF (UNIBEN) GO TO 2150 215 CONTINUE 2150 CONTINUE KTR3(IJ) = ST/12.0 KTR3(JI) = KTR3(IJ) 216 CONTINUE 218 CONTINUE 220 CONTINUE IF (IPASS .EQ. 2) GO TO 230 C C IF NO TRANSVERSE SHEAR GO TO 230 C C IF TSHR EQUAL TO ZERO OR MATID3 EQUAL TO ZERO , SKIP THESE C CALCULATIONS C IF (NOTS) GO TO 230 CALL TSPL1S (TS1,TS2,TS6,TS6S,TS7,KTR3,CMT(761)) C 230 CONTINUE C C (QQQINV) TRANSPOSE (KTR3) (QQQINV) C CALL GMMATS (QQQINV,20,18,+1,KTR3,20,20,0,CMT(761)) CALL GMMATS (CMT(761),18,20,0,QQQINV,20,18,0,CM1) C 290 DO 300 I = 1,1296 CMT(I) = 0.0 300 CONTINUE IF (IPASS .LE. 2) GO TO 305 C C LUMPED MASS MATRIX C CALL AF (F,14,A,B,C,T1,T2,T3,EST(10),EST(11),EST(12),1) AREA = F(1,1) VOL = T1*F(1,1) + T2*F(2,1) + T3*F(1,2) AMASS = (RHOY*VOL+NSM*AREA)/6. DO 303 I = 1,1296,37 CMT(I) = AMASS 303 CONTINUE IPASS = 2 GO TO 400 C C LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS C COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES C ARE REQUESTED - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO) C C TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC C COORDINATES C C TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINAYES TO GLOBAL (DISP) C COORDINATES C C INSERT THE 6X6 SUBMATRIX INTO KGG MATRIX C 305 DO 310 I = 1,6 SAVE(I) = NL(I) 310 CONTINUE DO 314 I = 1,6 SMALL(I) = I ISMALL = NL(I) DO 313 J = 1,6 IF (ISMALL .LE.NL(J)) GO TO 312 SMALL(I) = J ISMALL = NL(J) 312 CONTINUE 313 CONTINUE ISM = SMALL(I) NL(ISM) = 1000000 314 CONTINUE DO 316 I = 1,6 NL(I) = SAVE(I) 316 CONTINUE DO 390 I = 1,6 DO 385 J = I,6 DO 320 II = 1,36 BALOTR(II) = 0.0 KSUP(II) = 0.0 320 CONTINUE DO 324 K = 1,3 SIL1 = SMALL(I) K1 = (SIL1-1)*3 + K DO 323 L = 1,3 SIL2 = SMALL(J) L1 = (SIL2-1)*3 + L CSUB(K,L) = CM1(K1,L1) 323 CONTINUE 324 CONTINUE CALL GMMATS (E,6,3,0,CSUB,3,3,0,CSUBT) CALL GMMATS (CSUBT,6,3,0,E,6,3,+1,KSUPT) DO 325 K = 1,6 DO 325 L = 1,6 K1 = (K-1)*6 + L L1 = (L-1)*6 + K KSUP(L1) = KSUPT(K1) 325 CONTINUE C C TRANSFORM THE KSUP(36) FROM BASIC TO DISPLACEMENT COORDINATES C IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 340 JJ = 4*I + 20 CALL TRANSS (IEST(JJ),TRAND) DO 327 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 327 CONTINUE CALL GMMATS (BALOTR(1),6,6,1,KSUP(1),6,6,0,KSUPT) DO 330 K = 1,36 KSUP(K) = KSUPT(K) 330 CONTINUE 340 CONTINUE IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 375 IF (J .EQ. I) GO TO 365 CALL TRANSS (IEST(4*J+20),TRAND) DO 360 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 360 CONTINUE 365 CONTINUE CALL GMMATS (KSUP(1),6,6,0,BALOTR( 1 ),6,6,0,KSUPT) DO 370 K = 1,36 KSUP(K) = KSUPT(K) 370 CONTINUE 375 CONTINUE DO 380 II = 1,6 DO 380 JJ = 1,6 I1 = (I-1)*6 + II J1 = (J-1)*6 + JJ I1J1 = (I1-1)*36 + J1 J1I1 = (J1-1)*36 + I1 CMT(I1J1) = KSUB(JJ,II) CMT(J1I1) = KSUB(JJ,II) 380 CONTINUE 385 CONTINUE 390 CONTINUE C C CALL INSERTION ROUTINE C 400 CALL EMGOUT (CMT(1),CMT(1),1296,1,DICT,IPASS,IPREC) IF (.NOT.IMASS .OR. IPASS.GE.2) RETURN C C GO TO 290 TO COMPUTE LUMPED MASS MATRIX C GO TO 211 TO COMPUTE CONSIST. MASS MATRIX (THIS PATH MAY NOT WORK) C IPASS = 3 CALL SSWTCH (46,J) IF (J .EQ. 1) IPASS = 2 GO TO (999,211,290), IPASS C C ERRORS C 904 CONTINUE NOGO = .TRUE. WRITE (IOUTPT,2411) UFM,IEST(1) 2411 FORMAT (A23,' 2411, MATRIX RELATING GENERALIZED PARAMETERS AND ', 1 'GRID POINT DISPLACEMENTS IS SINGULAR.', //26X, 2 'CHECK COORDINATES OF ELEMENT TRPLT1 WITH ID',I9,1H.) 999 CONTINUE RETURN END ================================================ FILE: mis/ktrplt.f ================================================ SUBROUTINE KTRPLT C C THIS ROUTINE GENERATES THE FOLLOWING C C 3-6X6 STIFFNESS MATRICES WITH RESPECT C TO ONE PIVOT POINT OF A TRIANGULAR PLATE C ELEMENT. C C REF. FMMS-55 NOVEMBER 1ST, 1967 C C CALLS FROM THIS ROUTINE ARE MADE TO C KTRBSC - BASIC BENDING TRI. ROUTINE. C TRANSD - SUPPLIES 3X3 TRANSFORMATIONS C INVERD - MATRIX INVERSION ROUTINE C SMA1B - INSERTION ROUTINE C GMMATD - GENERAL MATRIX MULITPLY AND C TRANSPOSE ROUTINE C MESAGE - ERROR MESSAGE WRITER C C INTEGER SUBSCA ,SUBSCB ,SUBSCC DOUBLE PRECISION 1 R ,D1 ,HABC 2 ,TEMP ,D2 ,HINV 3 ,KSUM ,IVECT ,G 4 ,V ,JVECT ,E 5 ,VV ,KVECT ,TITE 6 ,XSUBB ,TEMP9 ,TJTE 7 ,XSUBC ,PROD9 ,ARR9 8 ,YSUBC ,U1 ,ARRAY9 9 ,T ,U2 ,TEMP18 T ,A ,TEMP1 ,PROD12 1 ,C1 ,TEMP2 ,HQ 2 ,C2 ,L1 ,Y1 3 ,X1 ,L2 ,Y2 4 ,X2 ,S1 ,DETERM 5 ,S2 ,KOUT ,S ,REQUIV C ****************************************************************** C C ECPT LISTS AS OF AUGUST 4, 1967 C C DEFINITION C ECPT TRI.PLATE AND BASIC BENDING TRI. C ****************************************************************** C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = GRID PT. A INTEGER C ECPT( 3) = GRID PT. B INTEGER C ECPT( 4) = GRID PT. C INTEGER C ECPT( 5) = THETA REAL C ECPT( 6) = MAT ID 1 INTEGER C ECPT( 7) = I MOM. OF INERT. REAL C ECPT( 8) = MAT ID 2 INTEGER C ECPT( 9) = T2 REAL C ECPT(10) = NON-STRUCT. MASS REAL C ECPT(11) = Z1 REAL C ECPT(12) = Z2 REAL C ECPT(13) = COORD. SYS. ID 1 INTEGER C ECPT(14) = X1 REAL C ECPT(15) = Y1 REAL C ECPT(16) = Z1 REAL C ECPT(17) = COORD. SYS. ID 2 INTEGER C ECPT(18) = X2 REAL C ECPT(19) = Y2 REAL C ECPT(20) = Z2 REAL C ECPT(21) = COORD. SYS. ID 3 INTEGER C ECPT(22) = X3 REAL C ECPT(23) = Y3 REAL C ECPT(24) = Z3 REAL C ECPT(25) = ELEMENT TEMP REAL C ****************************************************************** DIMENSION 1 NECPT(100) ,M(9) ,REQUIV(8) 2 ,HQ(12) ,PROD12(12) ,HABC(18) 3 ,G(36) ,TITE(18) ,TJTE(18) 4 ,KOUT(36) ,TEMP18(18) ,V1(3) 5 ,V2(3) ,V3(3) ,R(2,4) 6 ,D1(3) ,D2(3) C COMMON /CONDAS/ CONSTS(5) COMMON /MATIN / MATID ,INFLAG ,ELTEMP 1 ,STRESS ,SINTH ,COSTH COMMON /MATOUT/ G11,G12,G13 ,G22,G23,G33 ,RHO 1 ,ALPHA1 ,ALPHA2 ,ALP12 2 ,T SUB 0 ,G SUB E ,SIGTEN 3 ,SIGCOM ,SIGSHE ,G2X211 4 ,G2X212 ,G2X222 COMMON /SMA1IO/ DUM1(10) ,IFKGG ,DUM2(1) 1 ,IF4GG ,DUM3(23) COMMON /SMA1CL/ IOPT4 ,K4GGSW ,NPVT 1 ,DUMCL(7) ,LINK(10) ,IDETCK 2 ,DODET ,NOGO COMMON /SMA1ET/ ECPT(100) COMMON /SMA1DP/ 1 A(81) ,S(18) ,T(9) 2 ,TEMP9(9) ,PROD9(9) ,ARR9(9) 3 ,ARRAY9(9) ,HINV(36) ,KSUM(63) 4 ,XSUBB ,XSUBC ,YSUBC 5 ,E(18) ,TEMP ,L1 6 ,L2 ,S1 ,S2 7 ,C1 ,C2 ,X1 8 ,X2 ,Y1 ,Y2 9 ,TEMP1 ,TEMP2 ,DUMTWO(2) ,DETERM T ,NPOINT ,KM ,SUBSCA 1 ,SUBSCB ,SUBSCC ,NPIVOT 2 ,THETA ,NSUBC ,ISING 3 ,NPT1 ,V(2) ,VV(2) 4 ,IVECT(3) ,JVECT(3) ,KVECT(3) 5 ,U1 ,U2 ,SINANG 6 ,COSANG C EQUIVALENCE (CONSTS(4),DEGRA) EQUIVALENCE 1 (NECPT(1),ECPT(1)) 2 ,(PROD12(1),A(13)) 3 ,(HABC(1),A(25)) 4 ,(TITE(1),A(37)) 5 ,(TJTE(1),A(55)) 6 ,(KOUT(1),A(1)) 7 ,(TEMP18(1),HINV(1)) 8 ,(V1(1),ECPT(14)) 9 ,(V2(1),ECPT(18)) T ,(V3(1),ECPT(22)) 1 ,(REQUIV(1),R(1,1)) 2 ,(D1(1),A(1)) 3 ,(D2(1),A(4)) 4 ,(HQ(1),A(1)) C DATA M/ 1,2,4, 2,3,4, 3,1,4 / C ELTEMP = ECPT(25) C DETERMINE PIVOT POINT NUMBER C DO 10 I=1,3 IF( NPVT .NE. NECPT(I+1) ) GO TO 10 NPIVOT = I GO TO 20 10 CONTINUE C C C FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION CALL MESAGE(-30,34,ECPT(1)) C 20 THETA = ECPT(5) * DEGRA SINANG = SIN( THETA ) COSANG = COS( THETA ) C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X4) FOR TRIANGULAR PLATE. (COLUMN 4 BLANK) C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX DO 30 I=1,8 30 REQUIV(I)=0.0D0 C DO 40 I=1,3 D2(I) = DBLE( V2(I) ) - DBLE( V1(I) ) 40 D1(I) = DBLE( V3(I) ) - DBLE( V1(I) ) C C X2 GOES IN R(1,2) R(1,2) = DSQRT ( D2(1)**2 + D2(2)**2 + D2(3)**2 ) IF (R(1,2).LT.1.0D-7) GO TO 370 DO 50 I=1,3 50 IVECT(I) = D2(I) / R(1,2) C C NON-NORMALIZED K-VECTOR KVECT(1) = IVECT(2) * D1(3) - D1(2) * IVECT(3) KVECT(2) = IVECT(3) * D1(1) - D1(3) * IVECT(1) KVECT(3) = IVECT(1) * D1(2) - D1(1) * IVECT(2) C C Y3 GOES INTO R(2,3) R(2,3) = DSQRT ( KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2 ) IF (R(2,3).LT.1.0D-7) GO TO 370 DO 60 I=1,3 60 KVECT(I) = KVECT(I) / R(2,3) C C J-VECTOR = K X I VECTORS JVECT(1) = KVECT(2) * IVECT(3) - IVECT(2) * KVECT(3) JVECT(2) = KVECT(3) * IVECT(1) - IVECT(3) * KVECT(1) JVECT(3) = KVECT(1) * IVECT(2) - IVECT(1) * KVECT(2) C NORMALIZE J VECTOR TO MAKE SURE TEMP = DSQRT ( JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2 ) IF (TEMP.LT.1.0D-7) GO TO 370 DO 70 I=1,3 70 JVECT(I) = JVECT(I) / TEMP C X3 GOES INTO R(1,3) = D1 DOT IVECT R(1,3) = D1(1) * IVECT(1) + D1(2) * IVECT(2) + D1(3) * IVECT(3) C C CENTROID POINT GOES INTO R(1,4) AND R(2,4) R(1,4) = ( R(1,2) + R(1,3) ) / 3.0D0 R(2,4) = R(2,3) / 3.0D0 C ****************************************************************** C THE COORDINATES AND CENTROID OF THE PLATE IN THE ELEMENT C SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE C POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR C ROW 2 RESPECTIVELY. C ****************************************************************** C C SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT. C C ****************************************************************** C ZERO OUT THE KSUM MATRIX FOR 63 AND THE GSUM MATRIX FOR 36... C DO 80 I=1,63 80 KSUM(I) = 0.0D0 DO 90 I=1,36 90 G(I) = 0.0D0 C C DO 210 J=1,3 KM = 3*J - 3 C SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 100 I=1,2 V(I) = R(I,SUBSCB) - R(I,SUBSCA) 100 VV(I)= R(I,SUBSCC) - R(I,SUBSCA) XSUBB = DSQRT ( V(1)**2 + V(2)**2 ) U1 = V(1) / XSUBB U2 = V(2) / XSUBB XSUBC = U1 * VV(1) + U2 * VV(2) YSUBC = U1 * VV(2) - U2 * VV(1) C SINTH = SINANG * U1 - COSANG * U2 COSTH = COSANG * U1 + SINANG * U2 IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR C TRIANGLE -J- C CALL KTRBSC( 2 ) C U C NOW HAVE AT HAND K I,J, =1,2,3. 9-3X3 MATRICES STORED AT C IJ A(1) THROUGH A(81). C C -1 C ALSO H (6X6) AT A(145) TO A(181) AND S (6X3) AT A(82) TO A(99) C C NOW ADD CERTAIN OF THESE INTO THE SUMMED MATRICES C C C SET UP OF T-MATRIX C T(1) = 1.0D0 T(2) = 0.0D0 T(3) = 0.0D0 T(4) = 0.0D0 T(5) = U1 T(6) = U2 T(7) = 0.0D0 T(8) =-U2 T(9) = U1 C DO 120 I=1,3 CALL GMMATD( T(1),3,3,1, A(27*I-8),3,3,0, TEMP9(1) ) CALL GMMATD( TEMP9(1),3,3,0, T(1),3,3,0, PROD9(1) ) C C ADD THIS PRODUCT IN NOW. C COMPUTE POINTER TO KSUM MATRIX DESIRED. (ZERO POINTER) NPOINT = KM + I NPOINT = 9*M(NPOINT) + 18 C DO 110 K=1,9 NSUBC = NPOINT + K 110 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(K) 120 CONTINUE DO 150 K=1,2 NPOINT = KM + K IF( M(NPOINT) .NE. NPIVOT ) GO TO 150 CALL GMMATD( T(1),3,3,1, A(36*K-35),3,3,0, TEMP9(1) ) CALL GMMATD( TEMP9(1),3,3,0, T(1),3,3,0, PROD9(1) ) C C COMPUTE POINTER TO KSUM MATRIX (ZERO POINTER) C NPOINT = 9 * NPIVOT - 9 DO 130 I=1,9 NSUBC = NPOINT + I 130 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(I) C CALL GMMATD(T(1),3,3,1, A(18*K-8),3,3,0, TEMP9(1) ) CALL GMMATD( TEMP9(1),3,3,0, T(1),3,3,0, PROD9(1) ) C C COMPUTE ZERO POINTER TO KSUM MATRIX DESIRED C NPOINT = KM + 3 - K NPOINT = 9 * M(NPOINT) - 9 DO 140 I=1,9 NSUBC = NPOINT + I 140 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(I) 150 CONTINUE C C FORM HQ (2X6) C TEMP1 = XSUBB - XSUBC TEMP2 = YSUBC ** 2 L1 = DSQRT( XSUBC**2 + TEMP2 ) L2 = DSQRT( TEMP1**2 + TEMP2 ) S1 = XSUBC / L1 S2 = TEMP1 / L2 C1 = YSUBC / L1 C2 = YSUBC / L2 X1 = XSUBC / 2.0D0 Y1 = YSUBC / 2.0D0 X2 = (XSUBB + XSUBC) / 2.0D0 Y2 = Y1 HQ( 1) = -XSUBC * C1 HQ( 2) = X1 * S1 - Y1 * C1 HQ( 3) = 2.0D0 * Y1 * S1 HQ( 4) = -3.0D0 * X1 * X1 * C1 HQ( 5) = Y1 * (2.0D0 * X1 * S1 - Y1 * C1 ) HQ( 6) = 3.0D0 * Y1 * Y1 * S1 HQ( 7) = 2.0D0 * X2 * C2 HQ( 8) = X2 * S2 + Y2 * C2 HQ( 9) = 2.0D0 * Y2 * S2 HQ(10) = 3.0D0 * X2 * X2 * C2 HQ(11) = Y2 * ( 2.0D0 * X2 * S2 + Y2 * C2 ) HQ(12) = 3.0D0 * Y2 * Y2 * S2 C C I -1 C COMPUTE (H I H ) = (HQ)(H) STORE IN PROD12 C PSI,B I PSI,C C I C C CALL GMMATD( HQ(1),2,6,0, HINV(1),6,6,0, PROD12(1) ) C C C COMPUTE (H ) = -(PROD12)(S) C PSI,A C CALL GMMATD( PROD12(1),2,6,0, S(1),6,3,0, HABC(1) ) C HABC(1) = -HABC(1) HABC(2) = -HABC(2) + S1 HABC(3) = -HABC(3) + C1 HABC(4) = -HABC(4) HABC(5) = -HABC(5) + S2 HABC(6) = -HABC(6) - C2 C C SPLIT (H ) AND (H ) PARTITION C PSI,B PSI,C C HABC( 7) = PROD12( 1) HABC( 8) = PROD12( 2) HABC( 9) = PROD12( 3) HABC(10) = PROD12( 7) HABC(11) = PROD12( 8) HABC(12) = PROD12( 9) HABC(13) = PROD12( 4) HABC(14) = PROD12( 5) HABC(15) = PROD12( 6) HABC(16) = PROD12(10) HABC(17) = PROD12(11) HABC(18) = PROD12(12) C C MAP H , H , AND H INTO THE G-MATRICES. C A B C C C TRIANGLE NUMBER = J, THE THREE POINTS ARE SUBSCA, SUBSCB, SUBSCC. C DO 200 I=1,3 C C POINTER TO H = 6*I-6 C I C C C TRANSFORM H SUB I C CALL GMMATD( HABC(6*I-5),2,3,0, T(1),3,3,0, TEMP9(1) ) C C NPOINT = KM + I NPOINT = 9*M(NPOINT) - 9 C C J = 1 ROW 1 OF H INTO ROW 1 OF G. C ROW 2 OF H INTO ROW 2 OF G. C J = 2 ROW 1 OF H INTO ROW 2 OF G. C ROW 2 OF H INTO ROW 3 OF G. C J = 3 ROW 1 OF H INTO ROW 3 OF G. C ROW 2 OF H INTO ROW 1 OF G. C IF( J-2 ) 170,160,190 C 160 NPOINT = NPOINT + 3 170 DO 180 K=1,6 NPOINT = NPOINT + 1 180 G(NPOINT) = G(NPOINT) + TEMP9(K) GO TO 200 190 G(NPOINT + 7) = G(NPOINT + 7) + TEMP9(1) G(NPOINT + 8) = G(NPOINT + 8) + TEMP9(2) G(NPOINT + 9) = G(NPOINT + 9) + TEMP9(3) G(NPOINT + 1) = G(NPOINT + 1) + TEMP9(4) G(NPOINT + 2) = G(NPOINT + 2) + TEMP9(5) G(NPOINT + 3) = G(NPOINT + 3) + TEMP9(6) C 200 CONTINUE C C C END OF LOOP FOR BASIC TRIANGLES C 210 CONTINUE C ****************************************************************** C C FILL E-MATRIX C DO 220 I=1,18 220 E(I) = 0.0D0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C C T C FORM T E STORE IN TITE-MATRIX (6X3) C I C IF( NECPT(4*NPIVOT+9) .EQ. 0 ) GO TO 230 CALL TRANSD( NECPT(4*NPIVOT+9), T(1) ) CALL GMMATD( T(1),3,3,1, E( 1),3,3,0, TITE( 1) ) CALL GMMATD( T(1),3,3,1, E(10),3,3,0, TITE(10) ) GO TO 250 230 DO 240 K=1,18 240 TITE(K) = E(K) C C SOLVE NOW FOR .... C C E T T T C (K ) = (K ) - (TERM ) (K ) - (K )(TERM ) + (TERM )(K )(TERM ) C IJ IJ I J4 I4 J I 44 J C C -1 I=NPIVOT C WHERE... (TERM ) = (G ) (G ) ,I=NPIVOT J=1,2,3 C I 4 I C C -1 C (TERM ) = (G ) (G ) ,J=1,2,3 AS ABOVE C J 4 J C C AND WITH TRANSFORMATIONS.... C C G T E T C (K ) = (C ) (E)(K )(E )(C ) C IJ I IJ J C C C COMPUTE (TERM ) STORE IN PROD9 C I=NPIVOT C C -1 C FIRST GET (G ) C 4 C 250 CONTINUE C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERD( 3,G(28),3,PROD9,0,DETERM,ISING,TEMP9 ) C C CHECK FOR SINGULARITY. ISING=2 IMPLIES SINGULARITY. GO TO(270,260),ISING 260 CALL MESAGE(30,36,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN C 270 CALL GMMATD ( G(28),3,3,0, G(9*NPIVOT-8),3,3,0, PROD9(1) ) C C T C GET (TERM )(K ) STORE IN TEMP9 C I=NPIVOT 44 C CALL GMMATD( PROD9(1),3,3,1, KSUM(55),3,3,0, TEMP9(1) ) C C C C THE TWO COMMON PRODUCTS ARE NOW AT HAND IN PROD9 AND TEMP9. C DO 360 J=1,3 C C T T C (TERM ) (K ) STORE IN ARR9 C I=NPIVOT J4 C CALL GMMATD( PROD9(1),3,3,1, KSUM(9*J+19),3,3,1, ARR9(1) ) C C SUBTRACT FROM (K ) C IJ C NBEGIN = 9*J-9 DO 280 I=1,9 NPOINT = NBEGIN + I 280 KSUM(NPOINT) = KSUM(NPOINT) - ARR9(I) C C C COMPUTE (TERM ) STORE IN ARR9 C J C CALL GMMATD( G(28),3,3,0, G(9*J-8),3,3,0, ARR9(1) ) C C C GET (K )(TERM ) STORE IN ARRAY9 C I4 J C CALL GMMATD( KSUM(9*NPIVOT+19),3,3,0, ARR9(1),3,3,0, ARRAY9(1)) C C SUBTRACT FROM KIJ C DO 290 I=1,9 NPOINT = NBEGIN + I 290 KSUM(NPOINT) = KSUM(NPOINT) - ARRAY9(I) C C T C COMPUTE (TERM )(K )(TERM ) = (TEMP9)(ARR9) C I=NPOINT 44 J C CALL GMMATD( TEMP9(1),3,3,0, ARR9(1),3,3,0, ARRAY9(1) ) C C ADD TO K C IJ C DO 300 I=1,9 NPOINT = NBEGIN + I 300 KSUM(NPOINT) = KSUM(NPOINT) + ARRAY9(I) C C E C K COMPLETE C IJ C C TRANSFORM NOW, AND INSERT. C C C TRANSFORMATIONS AND INSERTION C IF( NECPT(4*J+9) .EQ. 0) GO TO 310 CALL TRANSD( NECPT(4*J+9), T(1) ) CALL GMMATD( T(1),3,3,1, E( 1),3,3,0, TJTE( 1) ) CALL GMMATD( T(1),3,3,1, E(10),3,3,0, TJTE(10) ) GO TO 330 310 DO 320 K=1,18 320 TJTE(K) = E(K) 330 CALL GMMATD( KSUM(NBEGIN+1),3,3,0, TJTE(1),6,3,1, TEMP18(1) ) CALL GMMATD ( TITE(1),6,3,0, TEMP18(1),3,6,0, KOUT(1)) CALL SMA1B( KOUT(1), NECPT(J+1), -1, IFKGG, 0.0D0 ) TEMP = GSUBE IF( IOPT4 ) 340,360,340 340 IF( GSUBE ) 350,360,350 350 CALL SMA1B( KOUT(1), NECPT(J+1), -1, IF4GG, TEMP ) K4GGSW = 1 C 360 CONTINUE RETURN 370 CALL MESAGE(30,26,ECPT(1)) C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C C NOTE - NON-FATAL MESSAGE HERE MAY INDUCE PARTITION ERROR 3111 LATER C IN EMGOUT C NOGO=1 RETURN END ================================================ FILE: mis/ktshld.f ================================================ SUBROUTINE KTSHLD C C ECPT ENTRIES C C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1 INTEGER C ECPT( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2 INTEGER C ECPT( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3 INTEGER C ECPT( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4 INTEGER C ECPT( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5 INTEGER C ECPT( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6 INTEGER C ECPT( 8) = THETA REAL C ECPT( 9) = MATERIAL ID 1 INTEGER C ECPT(10) = THICKNESS T1 AT GRID POINT G1 C ECPT(11) = THICKNESS T3 AT GRID POINT G3 C ECPT(12) = THICKNESS T5 AT GRID POINT G5 C ECPT(13) = MATERIAL ID 2 INTEGER C ECPT(14) = THICKNESS TBEND1 FOR BENDING AT GRID POINT G1 C ECPT(15) = THICKNESS TBEND3 FOR BENDING AT GRID POINT G3 C ECPT(16) = THICKNESS TBEND5 FOR BENDING AT GRID POINT G5 C ECPT(17) = MATERIAL ID 3 INTEGER C ECPT(18) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID POINT G1 C ECPT(19) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID POINT G3 C ECPT(20) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID POINT G5 C ECPT(21) = NON-STRUCTURAL MASS REAL C ECPT(22) = DISTANCE Z11 FOR STRESS CALCULATION AT GRID POINT G1 C ECPT(23) = DISTANCE Z21 FOR STRESS CALCULATION AT GRID POINT G1 C ECPT(24) = DISTANCE Z13 FOR STRESS CALCULATION AT GRID POINT G3 C ECPT(25) = DISTANCE Z23 FOR STRESS CALCULATION AT GRID POINT G3 C ECPT(26) = DISTANCE Z15 FOR STRESS CALCULATION AT GRID POINT G5 C ECPT(27) = DISTANCE Z25 FOR STRESS CALCULATION AT GRID POINT G5 C C X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM C C ECPT(28) = COORDINATE SYSTEM ID FOR GRID A INTEGER C ECPT(29) = COORDINATE X1 REAL C ECPT(30) = COORDINATE Y1 REAL C ECPT(31) = COORDINATE Z1 REAL C ECPT(32) = COORDINATE SYSTEM ID FOR GRID B INTEGER C ECPT(33) = COORDINATE X1 REAL C ECPT(34) = COORDINATE Y1 REAL C ECPT(35) = COORDINATE Z1 REAL C ECPT(36) = COORDINATE SYSTEM ID FOR GRID C INTEGER C ECPT(37) = COORDINATE X1 REAL C ECPT(38) = COORDINATE Y1 REAL C ECPT(39) = COORDINATE Z1 REAL C ECPT(40) = COORDINATE SYSTEM ID FOR GRID D INTEGER C ECPT(41) = COORDINATE X1 REAL C ECPT(42) = COORDINATE Y1 REAL C ECPT(43) = COORDINATE Z1 REAL C ECPT(44) = COORDINATE SYSTEM ID FOR GRID E INTEGER C ECPT(45) = COORDINATE X1 REAL C ECPT(46) = COORDINATE Y1 REAL C ECPT(47) = COORDINATE Z1 REAL C ECPT(48) = COORDINATE SYSTEM ID FOR GRID F INTEGER C ECPT(49) = COORDINATE X1 REAL C ECPT(50) = COORDINATE Y1 REAL C ECPT(51) = COORDINATE Z1 REAL C EST (52) = ELEMENT TEMPERATURE C LOGICAL IMASS,NOTS,NOGO,UNIMEM,UNIBEN INTEGER XU(32),YU(32),XV(32),YV(32),XW(32),YW(32), 1 RK(3),SK(3),ELTYPE,ELID,ESTID,DICT(15),SIL(6), 2 SIL1,SIL2,SAVE(6),XTHK(10),YTHK(10),SMALL(6) C C RK AND SK ARE EXPONENTS IN THICKNESS VARIATION C REAL J11,J12,J22,NSM,XC(6),YC(6),ZC(6),IVECT(3), 1 JVECT(3),KVECT(3),CC(10),NAME(2) C C LOCAL DOUBLE PRECISION VARIABLES C DOUBLE PRECISION S11,S22,S13,S23,D334,D132,D232,S33,MSHL(1024), 1 RMX,RNX,RMNX,RMX1,RNX1,RMY,RNY,RMNY,RMY1,RNY1, 2 CMT(1296),CTM(36,36),CMS(900),CM1(30,30), 3 QKS(960),CAB(3),H4,H5,H6,QQQ(20,20), 4 SB1,SB2,SB3,SB4,SB5,SB6,SB7,SB8,SB9,RIX,RIY,RJX, 5 RJY,RKX,RKY,RLX,RLY,G11,G22,KSHL(1024),KSUP(36), 6 KSUPT(36),QQQINV(360),Q,EE,CSUB,CSUBT DOUBLE PRECISION SB10,SB11,SB12,SB13,SB14,SB15,SB16,SB17,SB18,SB19 1, SB20,SB21,SB22,SB23,SB24,SB25,SB26,SB27,SB28,SB29 2, SB30,SB31,SB32,SB33,SB34,SB35,SB36,SB37,SB38,SB39 3, SB40,SB41,DEGRA,DETERM DOUBLE PRECISION TRAND(9),BALOTR(36),KSUB(6,6),KSUBT(6,6), 1 ST,D13,D22,D11,D12,D23,D33, 2 G13,G23,G33,G12,RHO,ST1,A2SQ,A3SQ,AREA,VOL,A1SQ, 3 ST11,ST22,ST121,ST122,ST131,ST132,ST133,ST231, 4 ST232,ST233,ST331,ST332 DIMENSION IND(6,3),INDEX(20,3),ICS(6),IEST(42),NL(6) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / NOK,NOM,NOB COMMON /EMGEST/ EST(100) COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID COMMON /SMA1DP/ F(14,14),Q(6,6),EE(30),CSUBT(6,5),CSUB(5,5) COMMON /SMA2DP/ TRAND,BALOTR,KSUB,KSUBT,FAC,XC,YC,ZC,IVECT,JVECT, 1 KVECT,CC,CAB,DICT,SIL,SAVE,SMALL,INDEX,ICS,NL COMMON /SMA1CL/ KDUMMY(22), KNOGO COMMON /EMGPRM/ IXTRA,IZR,NZR,DUMY(12),KMBGG(3),IPREC,NOGO COMMON /SYSTEM/ KSYSTM(65) COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 EQUIVALENCE (C1,CC(1)), (C2 ,CC(2)), (C3,CC(3)), (C4,CC(4)), 1 (C5,CC(5)), (C6 ,CC(6)), (C7,CC(7)), (C8,CC(8)), 2 (C9,CC(9)), (C10,CC(10)) EQUIVALENCE (A ,DISTA), (B ,DISTB), (C ,DISTC), 1 (CMT(1),CTM(1,1)) , (IEST(1),EST(1)) EQUIVALENCE (CMT(1),KSHL(1),MSHL(1), QQQ(1,1)), 1 (KSUB(1,1),KSUP(1)) , (KSUBT(1,1),KSUPT(1)), 2 (QKS(1),CMT(1025)) EQUIVALENCE (THK1,TBEND1), (THK2,TBEND3), (THK3,TBEND5), 1 (CM1(1,1),CMS(1)), (KSYSTM(2),IOUTPT), 2 (IND(1,1),INDEX(1,1)) DATA XU / 0,1,0,2,1,0,26*0 /, 1 YU / 0,0,1,0,1,2,26*0 /, 2 XV / 6*0,0,1,0,2,1,0,20*0 /, 3 YV / 6*0,0,0,1,0,1,2,20*0 /, 4 XW / 12*0,0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0/, 5 YW / 12*0,0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5/ DATA BLANK , NAME / 4H , 4HTRSH, 4HL / DATA RK / 0,1,0 / DATA SK / 0,0,1 / DATA DEGRA / 0.0174532925D0 / DATA XTHK / 0,1,0,2,1,0,3,2,1,0 / DATA YTHK / 0,0,1,0,1,2,0,1,2,3 / C C DICT(1) = ESTID C C COMPONENT CODE,ICODE,IS 111111 AND HAS A VALUE OF 63 C ICODE = 63 NDOF = 36 NSQ = NDOF**2 DICT(2)= 1 DICT(3)= NDOF DICT(4)= ICODE DICT(5)= GSUBE NOTS =.FALSE. IMASS =.FALSE. IF (NOM .GT. 0) IMASS =.TRUE. IPASS = 1 IDELE = IEST(1) DO 10 I = 1,6 NL(I) = IEST(I+1) 10 CONTINUE THETAM = EST(8) MATID1 = IEST(9) TMEM1 = EST(10) TMEM3 = EST(11) TMEM5 = EST(12) MATID2 = IEST(13) TBEND1 = (EST(14)*12.0)**0.3333333333 TBEND3 = (EST(15)*12.0)**0.3333333333 TBEND5 = (EST(16)*12.0)**0.3333333333 MATID3 = IEST(17) TSHR1 = EST(18) TSHR3 = EST(19) TSHR5 = EST(20) NSM = EST(21) J = 0 DO 20 I = 28,48,4 J = J + 1 ICS(J) = IEST(I ) XC(J) = EST(I+1) YC(J) = EST(I+2) ZC(J) = EST(I+3) 20 CONTINUE C C IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK, THEY WILL BE C SET EQUAL TO TMEM1 SO ALSO FOR TSHR3,TSHR5,TBEND3 AND TBEND5 C IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1 IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1 IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1 IF (TSHR1 .EQ. 0.0) NOTS =.TRUE. TSHR = (TSHR1+TSHR3+TSHR5)/3.0 IF (TBEND3.EQ.0.0 .OR. TBEND3.EQ.BLANK) TBEND3 = TBEND1 IF (TBEND5.EQ.0.0 .OR. TBEND5.EQ.BLANK) TBEND5 = TBEND1 ELTEMP = EST(52) THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C EVALUTE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 IF (MATID1 .EQ. 0) GO TO 30 CALL MAT (IDELE) C G11 = EM(1) G12 = EM(2) G13 = EM(3) G22 = EM(4) G23 = EM(5) G33 = EM(6) 30 CONTINUE MATFLG = 2 MATID = MATID2 IF (MATID2 .EQ. 0) GO TO 40 CALL MAT (IDELE) D11 = EM(1) D12 = EM(2) D13 = EM(3) D22 = EM(4) D23 = EM(5) D33 = EM(6) J11 = 0.0 J12 = 0.0 J22 = 0.0 IF (NOTS) GO TO 40 MATFLG = 3 MATID = MATID3 CALL MAT (IDELE) J11 = 1.0/(RJ11*TSHR) J12 = 0.0 J22 = 1.0/(RJ22*TSHR) 40 CONTINUE C C CALCULATIONS FOR THE TRIANGLE C C CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME) C C COMPUTE THE AREA INTEGRATION FUNCTION F C CALL AF (F,14,A,B,C,0,0,0,0,0,0,-1) C C CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE C DO 50 I = 1,20 DO 50 J = 1,20 50 QQQ(I,J) = 0.0D0 DO 60 I = 1,6 I1 = (I-1)*3 + 1 I2 = (I-1)*3 + 2 I3 = (I-1)*3 + 3 QQQ(I1, 1) = 1.0D0 QQQ(I1, 2) = XC(I) QQQ(I1, 3) = YC(I) QQQ(I1, 4) = XC(I)*XC(I) QQQ(I1, 5) = XC(I)*YC(I) QQQ(I1, 6) = YC(I)*YC(I) QQQ(I1, 7) = QQQ(I1, 4)*XC(I) QQQ(I1, 8) = QQQ(I1, 4)*YC(I) QQQ(I1, 9) = QQQ(I1, 5)*YC(I) QQQ(I1,10) = QQQ(I1, 6)*YC(I) QQQ(I1,11) = QQQ(I1, 7)*XC(I) QQQ(I1,12) = QQQ(I1, 7)*YC(I) QQQ(I1,13) = QQQ(I1, 8)*YC(I) QQQ(I1,14) = QQQ(I1, 9)*YC(I) QQQ(I1,15) = QQQ(I1,10)*YC(I) QQQ(I1,16) = QQQ(I1,11)*XC(I) QQQ(I1,17) = QQQ(I1,12)*YC(I) QQQ(I1,18) = QQQ(I1,13)*YC(I) QQQ(I1,19) = QQQ(I1,14)*YC(I) QQQ(I1,20) = QQQ(I1,15)*YC(I) QQQ(I2, 3) = 1.0D0 QQQ(I2, 5) = XC(I) QQQ(I2, 6) = YC(I)*2.0 QQQ(I2, 8) = QQQ(I1, 4) QQQ(I2, 9) = QQQ(I1, 5)*2.0 QQQ(I2,10) = QQQ(I1, 6)*3.0 QQQ(I2,12) = QQQ(I1, 7) QQQ(I2,13) = QQQ(I1, 8)*2.0 QQQ(I2,14) = QQQ(I1, 9)*3.0 QQQ(I2,15) = QQQ(I1,10)*4.0 QQQ(I2,17) = QQQ(I1,12)*2.0 QQQ(I2,18) = QQQ(I1,13)*3.0 QQQ(I2,19) = QQQ(I1,14)*4.0 QQQ(I2,20) = QQQ(I1,15)*5.0 QQQ(I3, 2) =-1.0D0 QQQ(I3, 4) =-2.0*XC(I) QQQ(I3, 5) =-YC(I) QQQ(I3, 7) =-QQQ(I1, 4)*3.0 QQQ(I3, 8) =-QQQ(I1, 5)*2.0 QQQ(I3, 9) =-QQQ(I1, 6) QQQ(I3,11) =-QQQ(I1, 7)*4.0 QQQ(I3,12) =-QQQ(I1, 8)*3.0 QQQ(I3,13) =-QQQ(I1, 9)*2.0 QQQ(I3,14) =-QQQ(I1,10) QQQ(I3,16) =-QQQ(I1,11)*5.0 QQQ(I3,17) =-QQQ(I1,13)*3.0 QQQ(I3,18) =-QQQ(I1,14)*2.0 QQQ(I3,19) =-QQQ(I1,15) 60 CONTINUE QQQ(19,16) = 5.0*A**4*C QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2 QQQ(19,19) = C**5 - 4.0*A**2*C**3 QQQ(19,20) = 5.0*A*C**4 QQQ(20,16) = 5.0*B**4*C QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2 QQQ(20,19) = C**5 - 4.0*B**2*C**3 QQQ(20,20) =-5.0*B*C**4 DO 70 I = 1,6 DO 70 J = 1,6 I1 = (I-1)*3 + 1 Q(I,J) = QQQ(I1,J) 70 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (6,Q,6,BALOTR(1),0,DETERM,ISING,IND) IF (ISING .EQ. 2) GO TO 700 C C FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1) C IS U C C AGAIN RESET ISING TO -1 C ISING = -1 CALL INVERD (20,QQQ,20,BALOTR(1),0,DETERM,ISING,INDEX) C C ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR C IF (ISING .EQ. 2) GO TO 700 C C FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS C MATRIX CALCULATIONS C DO 80 I = 1,20 DO 80 J = 1,18 IJK = (I-1)*18 + J QQQINV(IJK) = QQQ(I,J) 80 CONTINUE C C START EXECUTION FOR STIFFNESS MATRIX CALCULATION C C CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES C 90 CONTINUE C C EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR C THICKNESS VARIATION - MEMBRANE C CALL AF (F,14,A,B,C,C1,C2,C3,TMEM1,TMEM3,TMEM5,1) CAB(1) = C1 CAB(2) = C2 CAB(3) = C3 AREA = F(1,1) VOL = C1*F(1,1) + C2*F(2,1) + C3*F(1,2) C C D334 = D33*4.0D0 D132 = D13*2.0D0 D232 = D23*2.0D0 C C A1,A2,A3 ARE THE COEFFICIENTS OF LINEAR EQUATION FOR VARIATION C OF BENDING THICKNESSES C CALL AF (F,14,A,B,C,A1,A2,A3,THK1,THK2,THK3,1) UNIMEM =.FALSE. UNIBEN =.FALSE. IF (ABS(A2).LE.1.0D-06 .AND. ABS(A3).LE.1.0D-06) UNIBEN =.TRUE. IF (ABS(C2).LE.1.0D-06 .AND. ABS(C3).LE.1.0D-06) UNIMEM =.TRUE. A1SQ = A1*A1 A2SQ = A2*A2 A3SQ = A3*A3 C1 = A1SQ*A1 C2 = 3.0*A1SQ*A2 C3 = 3.0*A1SQ*A3 C4 = 3.0*A1*A2SQ C5 = 6.0*A1*A2*A3 C6 = 3.0*A3SQ*A1 C7 = A2SQ*A2 C8 = 3.0*A2SQ*A3 C9 = 3.0*A2*A3SQ C10= A3*A3SQ C C AA1, AA2, AA3 ARE COEFFICIENTS IN THICKNESS VARIATION FOR C TRANSVERSE SHEAR C C (POSSIBLY AN ERROR HERE - AA1,AA2, AND AA3 ARE NOT USED IN PROGRAM) C CALL AF (F,14,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,1) C H4 = Q(4,1)*ZC(1) + Q(4,2)*ZC(2) + Q(4,3)*ZC(3) + Q(4,4)*ZC(4) + 1 Q(4,5)*ZC(5) + Q(4,6)*ZC(6) H5 = Q(5,1)*ZC(1) + Q(5,2)*ZC(2) + Q(5,3)*ZC(3) + Q(5,4)*ZC(4) + 1 Q(5,5)*ZC(5) + Q(5,6)*ZC(6) H6 = Q(6,1)*ZC(1) + Q(6,2)*ZC(2) + Q(6,3)*ZC(3) + Q(6,4)*ZC(4) + 1 Q(6,5)*ZC(5) + Q(6,6)*ZC(6) H4 = H4*2.0D0 H6 = H6*2.0D0 C C H5 IS MULTIPLIED BY 2.0, SO THAT EXY = DU/DY + DV/DX - ZXY*W C H5 = H5*2.0D0 C DO 230 I = 1,32 IX = XU(I) RIX = IX JX = YU(I) RJX = JX KX = XV(I) RKX = KX LX = YV(I) RLX = LX MX = XW(I) RMX = MX NX = YW(I) RNX = NX RMNX = RMX*RNX RMX1 = RMX*(RMX-1.0D0) RNX1 = RNX*(RNX-1.0D0) IXP1 = IX + 1 JXP1 = JX + 1 KXP1 = KX + 1 LXP1 = LX + 1 MXP1 = MX + 1 NXP1 = NX + 1 DO 220 J = I,32 IJ = (I-1)*32 + J JI = (J-1)*32 + I IY = XU(J) RIY = IY JY = YU(J) RJY = JY KY = XV(J) RKY = KY LY = YV(J) RLY = LY MY = XW(J) RMY = MY NY = YW(J) RNY = NY RMNY = RMY*RNY RMY1 = RMY*(RMY-1.0D0) RNY1 = RNY*(RNY-1.0D0) MX0 = MX + MY MX1 = MX + MY - 1 MX2 = MX + MY - 2 MX3 = MX + MY - 3 NX0 = NX + NY NX1 = NX + NY - 1 NX2 = NX + NY - 2 NX3 = NX + NY - 3 MY1 = MX + MY + 1 NY1 = NX + NY + 1 IX0 = IX + IY IX1 = IX0 - 1 IX01 = IX0 + 1 JX0 = JX + JY JX1 = JX0 - 1 JX01 = JX0 + 1 KX0 = KX + KY KX1 = KX0 - 1 KX01 = KX0 + 1 LX0 = LX + LY LX1 = LX0 - 1 LX01 = LX0 + 1 IF (IPASS .EQ. 1) GO TO 110 IX011= IX01 + 1 JX011= JX01 + 1 RHO = RHOY*1.0D0 IF (J .GT. 12) GO TO 100 MSHL(IJ) = RHO*(CAB(1)*F(IX01,JX01) + CAB(2)*F(IX011,JX01) + 1 CAB(3)*F(IX01,JX011)) + NSM*F(IX01,JX01) MSHL(JI) = MSHL (IJ) 100 CONTINUE MX01 = MX0 + 1 NX01 = NX0 + 1 MX011 = MX01 + 1 NX011 = NX01 + 1 MSHL(IJ) = RHO*(A1*F(MX01,NX01) + A2*F(MX011,NX01) + 1 A3*F(MX01,NX011)) + NSM*F(MX01,NX01) MSHL(JI) = MSHL(IJ) GO TO 210 110 CONTINUE ST = 0.0D0 IF (I.LE.12 .AND. J.GT.12) GO TO 160 IF (I .GT. 12) GO TO 140 DO 120 K = 1,3 IXR1 = IX1 + RK(K) JXS01 = JX01+ SK(K) LXS1 = LX1 + SK(K) KXR01 = KX01+ RK(K) IXR01 = IX01+ RK(K) JXS1 = JX1 + SK(K) KXR1 = KX1 + RK(K) LXS01 = LX01+ SK(K) IYKX1 = IY + KX + RK(K) JYLX1 = JY + LX + SK(K) IXKY1 = IX + KY + RK(K) JXLY1 = JX + LY + SK(K) IXIY0 = IX + IY + RK(K) JXJY0 = JX + JY + SK(K) IYKX2 = IYKX1 - 1 JYLX0 = JYLX1 + 1 IXKY2 = IXKY1 - 1 JXLY0 = JXLY1 + 1 KXKY0 = KX + KY + RK(K) LXLY0 = LX + LY + SK(K) IXKY0 = IX + KY + RK(K) + 1 JXLY2 = JXLY1 - 1 IYKX0 = IY + KX + RK(K) + 1 JYLX2 = JYLX1 - 1 ST11 = 0.0D0 ST22 = 0.0D0 ST331 = 0.0D0 ST332 = 0.0D0 ST121 = 0.0D0 ST122 = 0.0D0 ST131 = 0.0D0 ST132 = 0.0D0 ST133 = 0.0D0 ST231 = 0.0D0 ST232 = 0.0D0 ST233 = 0.0D0 IF (IXR1 .GT. 0) ST11 = G11*RIX*RIY*F(IXR1,JXS01) IF (LXS1 .GT. 0) ST22 = G22*RLX*RLY*F(KXR01,LXS1) IF (JXS1 .GT. 0) ST331 = G33*RJX*RJY*F(IXR01,JXS1) IF (KXR1 .GT. 0) ST332 = G33*RKX*RKY*F(KXR1,LXS01) IF (IXKY1.GT.0 .AND. JXLY1.GT.0) ST121 = (G33*RJX*RKY + 1 G12*RIX*RLY)*F(IXKY1,JXLY1) IF (IYKX1.GT.0 .AND. JYLX1.GT.0) ST122 = (G33*RJY*RKX + 1 G12*RIY*RLX)*F(IYKX1,JYLX1) IF (IXIY0.GT.0 .AND. JXJY0.GT.0) ST131 = G13*(RIY*RJX + 1 RIX*RJY)*F(IXIY0,JXJY0) IF (IYKX2 .GT. 0) ST132 = G13*RIY*RKX*F(IYKX2,JYLX0) IF (IXKY2 .GT. 0) ST133 = G13*RIX*RKY*F(IXKY2,JXLY0) IF (KXKY0.GT.0 .AND. LXLY0.GT.0) ST231 = G23*(RKX*RLY + 1 RKY*RLX)*F(KXKY0,LXLY0) IF (JXLY2 .GT. 0) ST232 = G23*RJX*RLY*F(IXKY0,JXLY2) IF (JYLX2 .GT. 0) ST233 = G23*RJY*RLX*F(IYKX0,JYLX2) C ST1 = (ST11 + ST22 + ST331 + ST332 + ST121 + ST122 + ST131 + 1 ST132 + ST133 + ST231 + ST232 + ST233)* CAB(K) ST = ST + ST1 IF (UNIMEM) GO TO 130 120 CONTINUE 130 CONTINUE GO TO 200 140 CONTINUE ST = 0.0D0 DO 150 K = 1,10 MX3X = MX3 + XTHK(K) NY1Y = NY1 + YTHK(K) MY1X = MY1 + XTHK(K) NX3Y = NX3 + YTHK(K) MX1X = MX1 + XTHK(K) NX1Y = NX1 + YTHK(K) MX2X = MX2 + XTHK(K) NX0Y = NX0 + YTHK(K) MX0X = MX0 + XTHK(K) NX2Y = NX2 + YTHK(K) S11 = 0.0D0 S22 = 0.0D0 S33 = 0.0D0 S13 = 0.0D0 S23 = 0.0D0 IF (MX3X .GT. 0) S11 = D11*RMX1*RMY1*CC(K)*F(MX3X,NY1Y) IF (NX3Y .GT. 0) S22 = D22*RNX1*RNY1*CC(K)*F(MY1X,NX3Y) IF (MX1X.GT.0 .AND. NX1Y.GT.0) S33 = (D334*RMNX*RMNY + 1 D12*(RMX1*RNY1+RMY1*RNX1))*CC(K)*F(MX1X,NX1Y) IF (MX2X.GT.0 .AND. NX0Y.GT.0) S13 = D132*(RMX1*RMNY + 1 RMNX*RMY1)*CC(K)*F(MX2X,NX0Y) IF (MX0X.GT.0 .AND. NX2Y.GT.0) S23 = D232*(RMNX*RNY1 + 1 RNX1*RMNY)*CC(K)*F(MX0X,NX2Y) ST = ST + (S11 + S22 + S33 + S13 + S23)/12.0D0 IF (UNIBEN) GO TO 160 150 CONTINUE 160 CONTINUE SB7 = 0.0D0 SB9 = 0.0D0 SB10 = 0.0D0 SB18 = 0.0D0 SB21 = 0.0D0 SB26 = 0.0D0 SB28 = 0.0D0 SB31 = 0.0D0 SB36 = 0.0D0 SB38 = 0.0D0 DO 180 K = 1,3 IXMYR = IX + MY + RK(K) JXNYS1= JX + NY + SK(K) + 1 SB1 = 0.0D0 SB2 = 0.0D0 SB3 = 0.0D0 SB4 = 0.0D0 SB5 = 0.0D0 SB6 = 0.0D0 SB8 = 0.0D0 SB11 = 0.0D0 SB12 = 0.0D0 SB13 = 0.0D0 SB14 = 0.0D0 SB15 = 0.0D0 SB16 = 0.0D0 SB17 = 0.0D0 SB19 = 0.0D0 SB20 = 0.0D0 SB22 = 0.0D0 SB23 = 0.0D0 SB24 = 0.0D0 SB25 = 0.0D0 SB27 = 0.0D0 SB29 = 0.0D0 SB30 = 0.0D0 SB32 = 0.0D0 SB33 = 0.0D0 SB34 = 0.0D0 SB35 = 0.0D0 SB37 = 0.0D0 SB39 = 0.0D0 SB40 = 0.0D0 IF (IXMYR .GT. 0) SB 1 =-G11*RIX*H4*CAB(K)*F(IXMYR,JXNYS1) IYMXR = IY + MX + RK(K) JYNXS1 = JY + NX + SK(K) + 1 IF (IYMXR .GT. 0) SB 2 =-G11*RIY*H4*CAB(K)*F(IYMXR,JYNXS1) MXMYR1 = MX + MY + RK(K) + 1 NXNYS1 = NX + NY + SK(K) + 1 SB 3 = G11*H4**2*CAB(K)*F(MXMYR1,NXNYS1) KXMYR1 = KX + MY + RK(K) + 1 LXNYS = LX + NY + SK(K) IF (LXNYS .GT. 0) SB 4 =-G22*RLX*H6*CAB(K)*F(KXMYR1,LXNYS) MXKYR1 = MX + KY + RK(K) + 1 NXLYS = NX + LY + SK(K) IF (NXLYS .GT. 0) SB 5 =-G22*RLY*H6*CAB(K)*F(MXKYR1,NXLYS) MXMYR1 = MX + MY + RK(K) + 1 NXNYS1 = NX + NY + SK(K) + 1 SB 6 = G22*H6**2*CAB(K)*F(MXMYR1,NXNYS1) IXMYR1 = IX + MY + RK(K) + 1 JXNYS = JX + NY + SK(K) IF (JXNYS .GT. 0) SB 8 =-G33*RJX*H5*CAB(K)*F(IXMYR1,JXNYS) KXMYR = KX + MY + RK(K) LXNYS1 = LX + NY + SK(K) + 1 IF (KXMYR .GT. 0) SB11 =-G33*RKX*H5*CAB(K)*F(KXMYR,LXNYS1) MXIYR1 = MX + IY + RK(K) + 1 NXJYS = NX + JY + SK(K) IF (NXJYS .GT. 0) SB12 =-G33*RJY*H5*CAB(K)*F(MXIYR1,NXJYS) MXKYR = MX + KY + RK(K) NXLYS1 = NX + LY + SK(K) + 1 IF (MXKYR .GT. 0) SB13 =-G33*RKY*H5*CAB(K)*F(MXKYR,NXLYS1) MXMYR1 = MX + MY + RK(K) + 1 NXNYS1 = NX + NY + SK(K) + 1 SB14 = G33*H5**2*CAB(K)*F(MXMYR1,NXNYS1) IXMYR = IX + MY + RK(K) JXNYS1 = JX + NY + SK(K) + 1 IF (IXMYR .GT. 0) SB15 =-G12*RIX*H6*CAB(K)*F(IXMYR,JXNYS1) MXKYR1 = MX + KY + RK(K) + 1 NXLYS = NX + LY + SK(K) IF (NXLYS .GT. 0) SB16 =-G12*RLY*H4*CAB(K)*F(MXKYR1,NXLYS) MXMYR1 = MX + MY + RK(K) + 1 NXNYS1 = NX + NY + SK(K) + 1 SB17 = 2*G12*H4*H6*CAB(K)*F(MXMYR1,NXNYS1) KXMYR1 = KX + MY + RK(K) + 1 LXNYS = LX + NY + SK(K) IF (LXNYS .GT. 0) SB19 =-G12*RLX*H4*CAB(K)*F(KXMYR1,LXNYS) MXIYR = MX + IY + RK(K) NXJYS1 = NX + JY + SK(K) + 1 IF (MXIYR .GT. 0) SB20 =-G12*RIY*H6*CAB(K)*F(MXIYR,NXJYS1) IXMYR = IX + MY + RK(K) JXNYS1 = JX + NY + SK(K) + 1 IF (IXMYR .GT. 0) SB22 =-G13*RIX*H5*CAB(K)*F(IXMYR,JXNYS1) MXIYR1 = MX + IY + RK(K) + 1 NXJYS = NX + JY + SK(K) IF (NXJYS .GT. 0) SB23 =-G13*RJY*H4*CAB(K)*F(MXIYR1,NXJYS) MXKYR = MX + KY + RK(K) NXLYS1 = NX + LY + SK(K) + 1 IF (MXKYR .GT. 0) SB24 =-G13*RKY*H4*CAB(K)*F(MXKYR,NXLYS1) MXMYR1 = MX + MY + RK(K) + 1 NXNYS1 = NX + NY + SK(K) + 1 SB25 = 2*G13*H4*H5*CAB(K)*F(MXMYR1,NXNYS1) IXMYR1 = IX + MY + RK(K) + 1 JXNYS = JX + NY + SK(K) IF (JXNYS .GT. 0) SB27 =-G13*RJX*H4*CAB(K)*F(IXMYR1,JXNYS) KXMYR = KX + MY + RK(K) LXNYS1 = LX + NY + SK(K) + 1 IF (KXMYR .GT. 0) SB29 =-G13*RKX*H4*CAB(K)*F(KXMYR,LXNYS1) MXIYR = MX + IY + RK(K) NXJYS1 = NX + JY + SK(K) + 1 IF (MXIYR .GT. 0) SB30 =-G13*RIY*H5*CAB(K)*F(MXIYR,NXJYS1) KXMYR1 = KX + MY + RK(K) + 1 LXNYS = LX + NY + SK(K) IF (LXNYS .GT. 0) SB32 =-G23*RLX*H5*CAB(K)*F(KXMYR1,LXNYS) MXIYR1 = MX + IY + RK(K) + 1 NXJYS = NX + JY + SK(K) IF (NXJYS .GT. 0) SB33 =-G23*RJY*H6*CAB(K)*F(MXIYR1,NXJYS) MXKYR = MX + KY + RK(K) NXLYS1 = NX + LY + SK(K) + 1 IF (MXKYR .GT. 0) SB34 =-G23*RKY*H6*CAB(K)*F(MXKYR,NXLYS1) MXMYR1 = MX + MY + RK(K) + 1 NXNYS1 = NX + NY + SK(K) + 1 SB35 = 2*G23*H5*H6*CAB(K)*F(MXMYR1,NXNYS1) IXMYR1 = IX + MY + RK(K) + 1 JXNYS = JX + NY + SK(K) IF (JXNYS .GT. 0) SB37 =-G23*RJX*H6*CAB(K)*F(IXMYR1,JXNYS) KXMYR = KX + MY + RK(K) LXNYS1 = LX + NY + SK(K) + 1 IF (KXMYR .GT. 0) SB39 =-G23*RKX*H6*CAB(K)*F(KXMYR,LXNYS1) MXKYR1 = MX + KY + RK(K) + 1 NXLYS = NX + LY + SK(K) IF (NXLYS .GT. 0) SB40 =-G23*RLY*H5*CAB(K)*F(MXKYR1,NXLYS) SB41 = SB3 + SB6 + SB14 + SB17 + SB25 + SB35 IF (I .LE. 12) SB41 = 0.0D0 ST = ST + SB1 + SB2 + SB4 + SB5 + SB7 + SB8 + SB9 + SB10 1 + SB11 + SB12 + SB13 + SB15 + SB16 + SB18 + SB19 + SB20 + SB21 2 + SB22 + SB23 + SB24 + SB26 + SB27 + SB28 + SB29 + SB30 + SB31 3 + SB32 + SB33 + SB34 + SB36 + SB37 + SB38 + SB39 + SB40 + SB41 IF (UNIMEM) GO TO 190 180 CONTINUE 190 CONTINUE 200 CONTINUE KSHL(IJ) = ST KSHL(JI) = KSHL(IJ) 210 CONTINUE 220 CONTINUE 230 CONTINUE IF (IPASS .EQ. 2) GO TO 240 C C CURRENTLY,TRANSVERSE SHEAR CALCULATIONS ARE NOT CODED FOR SHELL C ELEMENT WHEN IT IS CODED,CALL THE ROUTINE HERE C 240 CONTINUE C C (QQQINV) TRANSPOSE (KTR3) (QQQINV) C CALL GMMATD (Q,6,6,0, KSHL( 1),6,32,0, QKS(1)) CALL GMMATD (Q,6,6,0, KSHL(193),6,32,0, QKS(193)) CALL GMMATD (QQQINV,20,18,+1, KSHL(385),20,32,0, QKS(385)) DO 260 I = 1,30 DO 250 J = 1,6 IJ = (I-1)*32 + J JI = (I-1)*6 + J KSHL(JI) = QKS(IJ) KSHL(180+JI) = QKS(6+IJ) 250 CONTINUE 260 CONTINUE DO 280 I = 1,30 DO 270 J = 1,20 IJ = (I-1)*32 + J + 12 JI = (I-1)*20 + J + 360 KSHL(JI) = QKS(IJ) 270 CONTINUE 280 CONTINUE CALL GMMATD (KSHL(1 ),30,6 ,0, Q,6,6,1 , QKS(1 )) CALL GMMATD (KSHL(181),30,6 ,0, Q,6,6,1 , QKS(181)) CALL GMMATD (KSHL(361),30,20,0, QQQINV,20,18,0, QKS(361)) DO 300 I = 1,30 DO 290 J = 1,6 IJ = (I-1)*30 + J JI = (I-1)*6 + J CMS(IJ ) = QKS(JI ) CMS(IJ+6) = QKS(JI+180) 290 CONTINUE 300 CONTINUE DO 320 I = 1,30 DO 310 J = 1,18 IJ = (I-1)*30 + J + 12 JI = (I-1)*18 + J + 360 CMS(IJ) = QKS(JI) 310 CONTINUE 320 CONTINUE DO 330 I = 1,30 EE(I) = 0.0D0 330 CONTINUE EE(1) = IVECT(1) EE(2) = JVECT(1) EE(3) = KVECT(1) EE(6) = IVECT(2) EE(7) = JVECT(2) EE(8) = KVECT(2) EE(11) = IVECT(3) EE(12) = JVECT(3) EE(13) = KVECT(3) EE(19) = IVECT(1) EE(20) = JVECT(1) EE(24) = IVECT(2) EE(25) = JVECT(2) EE(29) = IVECT(3) EE(30) = JVECT(3) DO 360 K = 1,6 DO 350 I = 1,2 K1 = 6*(I-1) + K I1 = 5*(K-1) + I DO 340 J = 1,30 CTM (I1,J) = CM1(K1,J) 340 CONTINUE 350 CONTINUE 360 CONTINUE DO 390 K = 1,6 DO 380 I = 1,3 I2 = 5*(K-1) + I + 2 K2 = 12 + (K-1)*3 + I DO 370 J = 1,30 CTM (I2,J) = CM1(K2,J) 370 CONTINUE 380 CONTINUE 390 CONTINUE DO 420 K = 1,6 DO 410 I = 1,2 K1 = 6*(I-1) + K I1 = 5*(K-1) + I DO 400 J = 1,30 CM1(J,I1) = CTM(J,K1) 400 CONTINUE 410 CONTINUE 420 CONTINUE DO 450 K = 1,6 DO 440 I = 1,3 I2 = 5*(K-1) + I + 2 K2 = 12 + (K-1)*3 + I DO 430 J = 1,30 CM1(J,I2) = CTM(J,K2) 430 CONTINUE 440 CONTINUE 450 CONTINUE DO 460 I = 1,1296 CMT(I) = 0.0D0 460 CONTINUE C C LUMPED MASS COMPUTATION C IF (IPASS .NE. 2) GO TO 490 470 AMASS = (RHOY*VOL + NSM*AREA)/6. DO 480 I = 1,1296,37 CMT(I) = AMASS 480 CONTINUE IPASS = 2 GO TO 690 C C LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS C COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES C ARE R C - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO) C C TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC C COORDINATES C C TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINAYES TO GLOBAL (DISP) C COORDINATES C C INSERT THE 6X6 SUBMATRIX INTO KGG MATRIX C 490 DO 500 I = 1,6 SAVE(I) = NL(I) 500 CONTINUE DO 530 I = 1,6 SMALL(I) = I ISMALL = NL(I) DO 520 J = 1,6 IF (ISMALL .LE. NL(J)) GO TO 510 SMALL(I) = J ISMALL = NL(J) 510 CONTINUE 520 CONTINUE ISM = SMALL(I) NL(ISM) = 1000000 530 CONTINUE DO 540 I = 1,6 NL(I) = SAVE(I) 540 CONTINUE DO 680 I = 1,6 SIL1 = SMALL(I) DO 670 J = I,6 SIL2 = SMALL(J) DO 550 II = 1,36 BALOTR(II) = 0.0D0 KSUP(II) = 0.0D0 550 CONTINUE DO 570 K = 1,5 K1 = (SIL1-1)*5 + K DO 560 L = 1,5 L1 = (SIL2-1)*5 + L CSUB(K,L)=CM1(K1,L1) 560 CONTINUE 570 CONTINUE CALL GMMATD (EE,6,5,0, CSUB,5,5,0, CSUBT) CALL GMMATD (CSUBT,6,5,0, EE,6,5,+1, KSUPT) DO 580 K = 1,6 DO 580 L = 1,6 K1 = (K-1)*6 + L L1 = (L-1)*6 + K KSUP(L1) = KSUPT(K1) 580 CONTINUE C C TRANSFORM THE KSUP(36) FROM BASIC TO DISPLACEMENT COORDINATES C IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 610 JJ = 4*SIL1 + 24 CALL TRANSD (IEST(JJ),TRAND) DO 590 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 590 CONTINUE CALL GMMATD (BALOTR(1),6,6,1, KSUP(1),6,6,0, KSUPT) DO 600 K = 1,36 KSUP(K) = KSUPT(K) 600 CONTINUE 610 CONTINUE IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 650 IF (J .EQ. I) GO TO 630 JJ = 4*SIL2 + 24 CALL TRANSD (IEST(JJ),TRAND) DO 620 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 620 CONTINUE 630 CONTINUE CALL GMMATD (KSUP(1),6,6,0, BALOTR(1),6,6,0, KSUPT) DO 640 K = 1,36 KSUP(K) = KSUPT(K) 640 CONTINUE 650 CONTINUE DO 660 II = 1,6 DO 660 JJ = 1,6 I1 = (I-1)*6 + II J1 = (J-1)*6 + JJ CTM(I1,J1) = KSUB(JJ,II) CTM(J1,I1) = KSUB(JJ,II) 660 CONTINUE 670 CONTINUE 680 CONTINUE 690 CALL EMGOUT (CMT(1),CMT(1),1296,1,DICT,IPASS,IPREC) IF (.NOT.IMASS .OR. IPASS.GE.2) RETURN C C TO TO 295 TO COMPUTE LUMPED MASS MATRIX C GO TO 211 TO COMPUTE CONSIST. MASS MATRIX (THIS PATH DOES NOT C WROK) C IPASS = 3 CALL SSWTCH (46,J) GO TO (720,90,470), IPASS C C ERROR C 700 CONTINUE NOGO =.TRUE. KNOGO = 1 WRITE (IOUTPT,710) UFM,IEST(1) 710 FORMAT (A23,' 2416, MATRIX RELATING GENERALIZED PARAMETERS AND ', 1 'GRID POINT DISPLACEMENTS IS SINGULAR.', //26X, 2 'CHECK COORDINATES OF ELEMENT TRSHL WITH ID',I9,1H.) 720 CONTINUE RETURN END ================================================ FILE: mis/ktshls.f ================================================ SUBROUTINE KTSHLS C C ECPT ENTRIES C C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1 INTEGER C ECPT( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2 INTEGER C ECPT( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3 INTEGER C ECPT( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4 INTEGER C ECPT( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5 INTEGER C ECPT( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6 INTEGER C ECPT( 8) = THETA REAL C ECPT( 9) = MATERIAL ID 1 INTEGER C ECPT(10) = THICKNESS T1 AT GRID POINT G1 C ECPT(11) = THICKNESS T3 AT GRID POINT G3 C ECPT(12) = THICKNESS T5 AT GRID POINT G5 C ECPT(13) = MATERIAL ID 2 INTEGER C ECPT(14) = THICKNESS TBEND1 FOR BENDING AT GRID POINT G1 C ECPT(15) = THICKNESS TBEND3 FOR BENDING AT GRID POINT G3 C ECPT(16) = THICKNESS TBEND5 FOR BENDING AT GRID POINT G5 C ECPT(17) = MATERIAL ID 3 INTEGER C ECPT(18) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID POINT G1 C ECPT(19) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID POINT G3 C ECPT(20) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID POINT G5 C ECPT(21) = NON-STRUCTURAL MASS REAL C ECPT(22) = DISTANCE Z11 FOR STRESS CALCULATION AT GRID POINT G1 C ECPT(23) = DISTANCE Z21 FOR STRESS CALCULATION AT GRID POINT G1 C ECPT(24) = DISTANCE Z13 FOR STRESS CALCULATION AT GRID POINT G3 C ECPT(25) = DISTANCE Z23 FOR STRESS CALCULATION AT GRID POINT G3 C ECPT(26) = DISTANCE Z15 FOR STRESS CALCULATION AT GRID POINT G5 C ECPT(27) = DISTANCE Z25 FOR STRESS CALCULATION AT GRID POINT G5 C C X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM C C ECPT(28) = COORDINATE SYSTEM ID FOR GRID A INTEGER C ECPT(29) = COORDINATE X1 REAL C ECPT(30) = COORDINATE Y1 REAL C ECPT(31) = COORDINATE Z1 REAL C ECPT(32) = COORDINATE SYSTEM ID FOR GRID B INTEGER C ECPT(33) = COORDINATE X1 REAL C ECPT(34) = COORDINATE Y1 REAL C ECPT(35) = COORDINATE Z1 REAL C ECPT(36) = COORDINATE SYSTEM ID FOR GRID C INTEGER C ECPT(37) = COORDINATE X1 REAL C ECPT(38) = COORDINATE Y1 REAL C ECPT(39) = COORDINATE Z1 REAL C ECPT(40) = COORDINATE SYSTEM ID FOR GRID D INTEGER C ECPT(41) = COORDINATE X1 REAL C ECPT(42) = COORDINATE Y1 REAL C ECPT(43) = COORDINATE Z1 REAL C ECPT(44) = COORDINATE SYSTEM ID FOR GRID E INTEGER C ECPT(45) = COORDINATE X1 REAL C ECPT(46) = COORDINATE Y1 REAL C ECPT(47) = COORDINATE Z1 REAL C ECPT(48) = COORDINATE SYSTEM ID FOR GRID F INTEGER C ECPT(49) = COORDINATE X1 REAL C ECPT(50) = COORDINATE Y1 REAL C ECPT(51) = COORDINATE Z1 REAL C EST (52) = ELEMENT TEMPERATURE C LOGICAL IMASS,NOTS,NOGO,UNIMEM,UNIBEN INTEGER XU(32),YU(32),XV(32),YV(32),XW(32),YW(32), 1 SIL(6),SIL1,SIL2,SAVE(6),XTHK(10),YTHK(10), 2 RK(3),SK(3),ELTYPE,ELID,ESTID,DICT(15),SMALL(6) C RK AND SK ARE EXPONENTS IN THICKNESS VARIATION REAL J11,J12,J22,NSM,MSHL(1024),KSHL(1024),KSUB(6,6), 1 KSUBT(6,6),IVECT(3),JVECT(3),KVECT(3),KSUP,KSUPT DIMENSION INDEX(20,3),ICS(6),IEST(42),NL(6),IND(6,3), 1 QQQINV(360),XC(6),YC(6),ZC(6),QQQ(20,20), 2 CMT(1296),CMS(900),CM1(30,30),TRAND(9),BALOTR(36), 3 CC(10),CAB(3),QKS(960),KSUP(36),KSUPT(36), 4 CTM(36,36),NAME(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / NOK,NOM,NOB COMMON /EMGEST/ EST(100) COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID COMMON /SMA1DP/ F(14,14),Q(6,6),EE(30),CSUBT(6,5),CSUB(5,5) COMMON /SMA2DP/ TRAND,BALOTR,KSUB,KSUBT,FAC,XC,YC,ZC,IVECT,JVECT, 1 KVECT,CC,CAB,DICT,SIL,SAVE,SMALL,INDEX,ICS,NL COMMON /SMA1CL/ KDUMMY(22),KNOGO COMMON /EMGPRM/ IXTRA,IZR,NZR,DUMY(12),KMBGG(3),IPREC,NOGO COMMON /SYSTEM/ KSYSTM(65) COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 C C SMA1 WORKING STORAGE C C EQUIVALENCE IECPT WITH ECPT IN COMMON BLOCK /SMA1ET/ SINCE ECPT IS C A MIXED INTEGER AND REAL ARRAY C EQUIVALENCE (C1,CC(1)), (C2,CC(2)), (C3,CC(3)), (C4,CC(4)), 1 (C5,CC(5)), (C6,CC(6)), (C7,CC(7)), (C8,CC(8)), 2 (C9,CC(9)), (C10,CC(10)), 3 (KSUB(1,1),KSUP(1)), (KSUBT(1,1),KSUPT(1)), 4 (CMT(1),CTM(1,1)), (QKS(1),CMT(1025)) EQUIVALENCE (A,DISTA), (B,DISTB), (C,DISTC), (IEST(1),EST(1)) EQUIVALENCE (CMT(1),KSHL(1),MSHL(1),QQQ(1,1)) EQUIVALENCE (KSYSTM(2),IOUTPT) EQUIVALENCE (THK1,TBEND1), (THK2,TBEND3), (THK3,TBEND5) EQUIVALENCE (CM1(1,1),CMS(1)), (IND(1,1),INDEX(1,1)) DATA XU / 0,1,0,2,1,0,26*0 /, 1 YU / 0,0,1,0,1,2,26*0 /, 2 XV / 6*0,0,1,0,2,1,0,20*0 /, 3 YV / 6*0,0,0,1,0,1,2,20*0 /, 4 XW / 12*0,0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0/ 5 YW / 12*0,0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5/ DATA BLANK , NAME / 4H , 4HTRSH, 4HL / DATA RK / 0,1,0 / DATA SK / 0,0,1 / DATA DEGRA / 0.0174532925 / DATA XTHK / 0,1,0,2,1,0,3,2,1,0 / DATA YTHK / 0,0,1,0,1,2,0,1,2,3 / C DICT(1) = ESTID C C COMPONENT CODE,ICODE,IS 111111 AND HAS A VALUE OF 63 C ICODE = 63 NDOF = 36 NSQ = NDOF**2 DICT(2)= 1 DICT(3)= NDOF DICT(4)= ICODE DICT(5)= GSUBE NOTS =.FALSE. IMASS =.FALSE. IF (NOM .GT. 0) IMASS =.TRUE. IPASS = 1 IDELE = IEST(1) DO 10 I = 1,6 NL(I) = IEST(I+1) 10 CONTINUE THETAM = EST(8) MATID1 = IEST(9) TMEM1 = EST(10) TMEM3 = EST(11) TMEM5 = EST(12) MATID2 = IEST(13) TBEND1 = (EST(14)*12.0)**0.3333333333 TBEND3 = (EST(15)*12.0)**0.3333333333 TBEND5 = (EST(16)*12.0)**0.3333333333 MATID3 = IEST(17) TSHR1 = EST(18) TSHR3 = EST(19) TSHR5 = EST(20) NSM = EST(21) J = 0 DO 20 I = 28,48,4 J = J + 1 ICS(J) = IEST(I ) XC(J) = EST(I+1) YC(J) = EST(I+2) ZC(J) = EST(I+3) 20 CONTINUE C C IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK, THEY WILL BE C SET EQUAL TO TMEM1 SO ALSO FOR TSHR3,TSHR5,TBEND3 AND TBEND5 C IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1 IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1 IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1 IF (TSHR1 .EQ. 0.0) NOTS=.TRUE. TSHR = (TSHR1 + TSHR3 + TSHR5)/3.0 IF (TBEND3.EQ.0.0 .OR. TBEND3.EQ.BLANK) TBEND3 = TBEND1 IF (TBEND5.EQ.0.0 .OR. TBEND5.EQ.BLANK) TBEND5 = TBEND1 ELTEMP = EST(52) THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C EVALUTE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 IF (MATID1 .EQ. 0) GO TO 30 CALL MAT (IDELE) C G11 = EM(1) G12 = EM(2) G13 = EM(3) G22 = EM(4) G23 = EM(5) G33 = EM(6) 30 CONTINUE MATFLG = 2 MATID = MATID2 IF (MATID2 .EQ. 0) GO TO 40 CALL MAT (IDELE) D11 = EM(1) D12 = EM(2) D13 = EM(3) D22 = EM(4) D23 = EM(5) D33 = EM(6) J11 = 0.0 J12 = 0.0 J22 = 0.0 IF (NOTS) GO TO 40 MATFLG = 3 MATID = MATID3 CALL MAT (IDELE) J11 = 1.0/(RJ11*TSHR) J12 = 0.0 J22 = 1.0/(RJ22*TSHR) 40 CONTINUE C C CALCULATIONS FOR THE TRIANGLE C CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME) C C COMPUTE THE AREA INTEGRATION FUNCTION F C CALL AF (F,14,A,B,C,0,0,0,0,0,0,-1) C C CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE C DO 50 I = 1,20 DO 50 J = 1,20 50 QQQ(I,J) = 0.0 DO 60 I = 1,6 I1 = (I-1)*3 + 1 I2 = (I-1)*3 + 2 I3 = (I-1)*3 + 3 QQQ(I1, 1) = 1.0 QQQ(I1, 2) = XC(I) QQQ(I1, 3) = YC(I) QQQ(I1, 4) = XC(I)*XC(I) QQQ(I1, 5) = XC(I)*YC(I) QQQ(I1, 6) = YC(I)*YC(I) QQQ(I1, 7) = QQQ(I1, 4)*XC(I) QQQ(I1, 8) = QQQ(I1, 4)*YC(I) QQQ(I1, 9) = QQQ(I1, 5)*YC(I) QQQ(I1,10) = QQQ(I1, 6)*YC(I) QQQ(I1,11) = QQQ(I1, 7)*XC(I) QQQ(I1,12) = QQQ(I1, 7)*YC(I) QQQ(I1,13) = QQQ(I1, 8)*YC(I) QQQ(I1,14) = QQQ(I1, 9)*YC(I) QQQ(I1,15) = QQQ(I1,10)*YC(I) QQQ(I1,16) = QQQ(I1,11)*XC(I) QQQ(I1,17) = QQQ(I1,12)*YC(I) QQQ(I1,18) = QQQ(I1,13)*YC(I) QQQ(I1,19) = QQQ(I1,14)*YC(I) QQQ(I1,20) = QQQ(I1,15)*YC(I) QQQ(I2, 3) = 1.0 QQQ(I2, 5) = XC(I) QQQ(I2, 6) = YC(I)*2.0 QQQ(I2, 8) = QQQ(I1, 4) QQQ(I2, 9) = QQQ(I1, 5)*2.0 QQQ(I2,10) = QQQ(I1, 6)*3.0 QQQ(I2,12) = QQQ(I1, 7) QQQ(I2,13) = QQQ(I1, 8)*2.0 QQQ(I2,14) = QQQ(I1, 9)*3.0 QQQ(I2,15) = QQQ(I1,10)*4.0 QQQ(I2,17) = QQQ(I1,12)*2.0 QQQ(I2,18) = QQQ(I1,13)*3.0 QQQ(I2,19) = QQQ(I1,14)*4.0 QQQ(I2,20) = QQQ(I1,15)*5.0 QQQ(I3, 2) =-1.0 QQQ(I3, 4) =-2.0*XC(I) QQQ(I3, 5) =-YC(I) QQQ(I3, 7) =-QQQ(I1, 4)*3.0 QQQ(I3, 8) =-QQQ(I1, 5)*2.0 QQQ(I3, 9) =-QQQ(I1, 6) QQQ(I3,11) =-QQQ(I1, 7)*4.0 QQQ(I3,12) =-QQQ(I1, 8)*3.0 QQQ(I3,13) =-QQQ(I1, 9)*2.0 QQQ(I3,14) =-QQQ(I1,10) QQQ(I3,16) =-QQQ(I1,11)*5.0 QQQ(I3,17) =-QQQ(I1,13)*3.0 QQQ(I3,18) =-QQQ(I1,14)*2.0 QQQ(I3,19) =-QQQ(I1,15) 60 CONTINUE QQQ(19,16) = 5.0*A**4*C QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2 QQQ(19,19) = C**5 - 4.0*A**2*C**3 QQQ(19,20) = 5.0*A*C**4 QQQ(20,16) = 5.0*B**4*C QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2 QQQ(20,19) = C**5 - 4.0*B**2*C**3 QQQ(20,20) =-5.0*B*C**4 DO 70 I = 1,6 DO 70 J = 1,6 I1 = (I-1)*3 + 1 Q(I,J) = QQQ(I1,J) 70 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (6,Q,6,BALOTR(1),0,DETERM,ISING,IND) IF (ISING .EQ. 2) GO TO 700 C C FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1) C IS U C ISING = -1 CALL INVERS (20,QQQ,20,BALOTR(1),0,DETERM,ISING,INDEX) C C ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR C IF (ISING .EQ. 2) GO TO 700 C C FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS C CALCULATIONS C C DO 80 I = 1,20 DO 80 J = 1,18 IJK = (I-1)*18 + J QQQINV(IJK) = QQQ(I,J) 80 CONTINUE C C START EXECUTION FOR STIFFNESS MATRIX CALCULATION C C CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES C 90 CONTINUE C C EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR C THICKNESS VARIATION - MEMBRANE C CALL AF (F,14,A,B,C,C1,C2,C3,TMEM1,TMEM3,TMEM5,1) CAB(1) = C1 CAB(2) = C2 CAB(3) = C3 AREA = F(1,1) VOL = C1*F(1,1) + C2*F(2,1) + C3*F(1,2) C C D334 = D33*4.0 D132 = D13*2.0 D232 = D23*2.0 C C A1,A2,A3 ARE THE COEFFICIENTS OF LINEAR EQUATION FOR VARIATION C OF BENDING THICKNESSES C CALL AF (F,14,A,B,C,A1,A2,A3,THK1,THK2,THK3,1) UNIMEM =.FALSE. UNIBEN =.FALSE. IF (ABS(C2).LE.1.0E-06 .AND. ABS(C3).LE.1.0E-06) UNIMEM =.TRUE. IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN =.TRUE. A1SQ= A1*A1 A2SQ= A2*A2 A3SQ= A3*A3 C1 = A1SQ*A1 C2 = 3.0*A1SQ*A2 C3 = 3.0*A1SQ*A3 C4 = 3.0*A1*A2SQ C5 = 6.0*A1*A2*A3 C6 = 3.0*A3SQ*A1 C7 = A2SQ*A2 C8 = 3.0*A2SQ*A3 C9 = 3.0*A2*A3SQ C10 = A3*A3SQ C C AA1, AA2, AA3 ARE COEFFICIENTS IN THICKNESS VARIATION FOR C TRANSVERSE SHEAR C C C (POSSIBLY AN ERROR HERE - AA1,AA2, AND AA3 ARE NOT USED IN PROGRAM) C CALL AF (F,14,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,1) C H4 = Q(4,1)*ZC(1) + Q(4,2)*ZC(2) + Q(4,3)*ZC(3) + Q(4,4)*ZC(4) + 1 Q(4,5)*ZC(5) + Q(4,6)*ZC(6) H5 = Q(5,1)*ZC(1) + Q(5,2)*ZC(2) + Q(5,3)*ZC(3) + Q(5,4)*ZC(4) + 1 Q(5,5)*ZC(5) + Q(5,6)*ZC(6) H6 = Q(6,1)*ZC(1) + Q(6,2)*ZC(2) + Q(6,3)*ZC(3) + Q(6,4)*ZC(4) + 1 Q(6,5)*ZC(5) + Q(6,6)*ZC(6) H4 = H4*2.0 H6 = H6*2.0 C C H5 IS MULTIPLIED BY 2.0, SO THAT EXY=DU/DY + DV/DX - ZXY*W C H5 = H5*2.0 C DO 230 I = 1,32 IX = XU(I) RIX = IX JX = YU(I) RJX = JX KX = XV(I) RKX = KX LX = YV(I) RLX = LX MX = XW(I) RMX = MX NX = YW(I) RNX = NX RMNX = RMX*RNX RMX1 = RMX*(RMX-1.0) RNX1 = RNX*(RNX-1.0) IXP1 = IX + 1 JXP1 = JX + 1 KXP1 = KX + 1 LXP1 = LX + 1 MXP1 = MX + 1 NXP1 = NX + 1 DO 220 J = I,32 IJ = (I-1)*32 + J JI = (J-1)*32 + I IY = XU(J) RIY = IY JY = YU(J) RJY = JY KY = XV(J) RKY = KY LY = YV(J) RLY = LY MY = XW(J) RMY = MY NY = YW(J) RNY = NY RMNY= RMY*RNY RMY1= RMY*(RMY-1.0) RNY1= RNY*(RNY-1.0) MX0 = MX + MY MX1 = MX + MY - 1 MX2 = MX + MY - 2 MX3 = MX + MY - 3 NX0 = NX + NY NX1 = NX + NY - 1 NX2 = NX + NY - 2 NX3 = NX + NY - 3 MY1 = MX + MY + 1 NY1 = NX + NY + 1 IX0 = IX + IY IX1 = IX0- 1 IX01= IX0+ 1 JX0 = JX + JY JX1 = JX0- 1 JX01= JX0+ 1 KX0 = KX + KY KX1 = KX0- 1 KX01= KX0+ 1 LX0 = LX + LY LX1 = LX0- 1 LX01= LX0+ 1 IF (IPASS .EQ. 1) GO TO 110 IX011 = IX01 + 1 JX011 = JX01 + 1 RHO = RHOY*1.0 IF (J .GT. 12) GO TO 100 MSHL(IJ) = RHO*(CAB(1)*F(IX01,JX01) + CAB(2)*F(IX011,JX01) + 1 CAB(3)*F(IX01,JX011)) + NSM*F(IX01,JX01) MSHL(JI) = MSHL (IJ) 100 CONTINUE MX01 = MX0 + 1 NX01 = NX0 + 1 MX011= MX01 + 1 NX011= NX01 + 1 MSHL(IJ) = RHO*(A1*F(MX01,NX01) + A2*F(MX011,NX01) + 1 A3*F(MX01,NX011)) + NSM*F(MX01,NX01) MSHL(JI) = MSHL(IJ) GO TO 210 110 CONTINUE ST = 0.0 IF (I.LE.12 .AND. J.GT.12) GO TO 160 IF (I .GT. 12) GO TO 140 DO 120 K = 1,3 IXR1 = IX1 + RK(K) JXS01 = JX01 + SK(K) LXS1 = LX1 + SK(K) KXR01 = KX01 + RK(K) IXR01 = IX01 + RK(K) JXS1 = JX1 + SK(K) KXR1 = KX1 + RK(K) LXS01 = LX01 + SK(K) IYKX1 = IY + KX + RK(K) JYLX1 = JY + LX + SK(K) IXKY1 = IX + KY + RK(K) JXLY1 = JX + LY + SK(K) IXIY0 = IX + IY + RK(K) JXJY0 = JX + JY + SK(K) IYKX2 = IYKX1 - 1 JYLX0 = JYLX1 + 1 IXKY2 = IXKY1 - 1 JXLY0 = JXLY1 + 1 KXKY0 = KX + KY + RK(K) LXLY0 = LX + LY + SK(K) IXKY0 = IX + KY + RK(K) + 1 JXLY2 = JXLY1 - 1 IYKX0 = IY + KX + RK(K) + 1 JYLX2 = JYLX1 - 1 ST11 = 0.0 ST22 = 0.0 ST331 = 0.0 ST332 = 0.0 ST121 = 0.0 ST122 = 0.0 ST131 = 0.0 ST132 = 0.0 ST133 = 0.0 ST231 = 0.0 ST232 = 0.0 ST233 = 0.0 IF (IXR1 .GT. 0) ST11 = G11*RIX*RIY*F(IXR1,JXS01) IF (LXS1 .GT. 0) ST22 = G22*RLX*RLY*F(KXR01,LXS1) IF (JXS1 .GT. 0) ST331 = G33*RJX*RJY*F(IXR01,JXS1) IF (KXR1 .GT. 0) ST332 = G33*RKX*RKY*F(KXR1,LXS01) IF (IXKY1.GT.0 .AND. JXLY1.GT.0) ST121 = (G33*RJX*RKY + 1 G12*RIX*RLY)*F(IXKY1,JXLY1) IF (IYKX1.GT.0 .AND. JYLX1.GT.0) ST122 = (G33*RJY*RKX + 1 G12*RIY*RLX)*F(IYKX1,JYLX1) IF (IXIY0.GT.0 .AND. JXJY0.GT.0) ST131 = G13*(RIY*RJX + 1 RIX*RJY)*F(IXIY0,JXJY0) IF (IYKX2 .GT. 0) ST132 = G13*RIY*RKX*F(IYKX2,JYLX0) IF (IXKY2 .GT. 0) ST133 = G13*RIX*RKY*F(IXKY2,JXLY0) IF (KXKY0.GT.0 .AND. LXLY0.GT.0) ST231 = G23*(RKX*RLY + 1 RKY*RLX)*F(KXKY0,LXLY0) IF (JXLY2 .GT. 0) ST232 = G23*RJX*RLY*F(IXKY0,JXLY2) IF (JYLX2 .GT. 0) ST233 = G23*RJY*RLX*F(IYKX0,JYLX2) C ST1 = (ST11 + ST22 + ST331 + ST332 + ST121 + ST122 + ST131 + 1 ST132 + ST133 + ST231 + ST232 + ST233)* CAB(K) ST = ST + ST1 IF (UNIMEM) GO TO 130 120 CONTINUE 130 CONTINUE GO TO 200 140 CONTINUE ST = 0.0 DO 150 K = 1,10 MX3X = MX3 + XTHK(K) NY1Y = NY1 + YTHK(K) MY1X = MY1 + XTHK(K) NX3Y = NX3 + YTHK(K) MX1X = MX1 + XTHK(K) NX1Y = NX1 + YTHK(K) MX2X = MX2 + XTHK(K) NX0Y = NX0 + YTHK(K) MX0X = MX0 + XTHK(K) NX2Y = NX2 + YTHK(K) S11 = 0.0 S22 = 0.0 S33 = 0.0 S13 = 0.0 S23 = 0.0 IF (MX3X .GT. 0) S11 = D11*RMX1*RMY1*CC(K)*F(MX3X,NY1Y) IF (NX3Y .GT. 0) S22 = D22*RNX1*RNY1*CC(K)*F(MY1X,NX3Y) IF (MX1X.GT.0 .AND. NX1Y.GT.0) S33 = (D334*RMNX*RMNY + 1 D12*(RMX1*RNY1 + RMY1*RNX1))*CC(K)*F(MX1X,NX1Y) IF (MX2X.GT.0 .AND. NX0Y.GT.0) S13 = D132*(RMX1*RMNY + 1 RMNX*RMY1)*CC(K)*F(MX2X,NX0Y) IF (MX0X.GT.0 .AND. NX2Y.GT.0) S23 = D232*(RMNX*RNY1 + 1 RNX1*RMNY)*CC(K)*F(MX0X,NX2Y) ST = ST + (S11 + S22 + S33 + S13 + S23)/12.0 IF (UNIBEN) GO TO 160 150 CONTINUE 160 CONTINUE SB 7 = 0.0 SB 9 = 0.0 SB10 = 0.0 SB18 = 0.0 SB21 = 0.0 SB26 = 0.0 SB28 = 0.0 SB31 = 0.0 SB36 = 0.0 SB38 = 0.0 DO 180 K = 1,3 IXMYR = IX + MY + RK(K) JXNYS1= JX + NY + SK(K) + 1 SB1 = 0.0 SB2 = 0.0 SB3 = 0.0 SB4 = 0.0 SB5 = 0.0 SB6 = 0.0 SB8 = 0.0 SB11 = 0.0 SB12 = 0.0 SB13 = 0.0 SB14 = 0.0 SB15 = 0.0 SB16 = 0.0 SB17 = 0.0 SB19 = 0.0 SB20 = 0.0 SB22 = 0.0 SB23 = 0.0 SB24 = 0.0 SB25 = 0.0 SB27 = 0.0 SB29 = 0.0 SB30 = 0.0 SB32 = 0.0 SB33 = 0.0 SB34 = 0.0 SB35 = 0.0 SB37 = 0.0 SB39 = 0.0 SB40 = 0.0 IF (IXMYR .GT. 0) SB 1 =-G11*RIX*H4*CAB(K)*F(IXMYR,JXNYS1) IYMXR = IY + MX + RK(K) JYNXS1 = JY + NX + SK(K) + 1 IF (IYMXR .GT. 0) SB 2 =-G11*RIY*H4*CAB(K)*F(IYMXR,JYNXS1) MXMYR1 = MX + MY + RK(K) + 1 NXNYS1 = NX + NY + SK(K) + 1 SB 3 = G11*H4**2*CAB(K)*F(MXMYR1,NXNYS1) KXMYR1 = KX + MY + RK(K) + 1 LXNYS = LX + NY + SK(K) IF (LXNYS .GT. 0) SB 4 =-G22*RLX*H6*CAB(K)*F(KXMYR1,LXNYS) MXKYR1 = MX + KY + RK(K) + 1 NXLYS = NX + LY + SK(K) IF (NXLYS .GT. 0) SB 5 =-G22*RLY*H6*CAB(K)*F(MXKYR1,NXLYS) MXMYR1 = MX + MY + RK(K) + 1 NXNYS1 = NX + NY + SK(K) + 1 SB 6 = G22*H6**2*CAB(K)*F(MXMYR1,NXNYS1) IXMYR1 = IX + MY + RK(K) + 1 JXNYS = JX + NY + SK(K) IF(JXNYS .GT. 0) SB 8 =-G33*RJX*H5*CAB(K)*F(IXMYR1,JXNYS) KXMYR = KX + MY + RK(K) LXNYS1 = LX + NY + SK(K) + 1 IF (KXMYR .GT. 0) SB11 =-G33*RKX*H5*CAB(K)*F(KXMYR,LXNYS1) MXIYR1 = MX + IY + RK(K) + 1 NXJYS = NX + JY + SK(K) IF (NXJYS .GT. 0) SB12 =-G33*RJY*H5*CAB(K)*F(MXIYR1,NXJYS) MXKYR = MX + KY + RK(K) NXLYS1 = NX + LY + SK(K) + 1 IF (MXKYR .GT. 0) SB13 =-G33*RKY*H5*CAB(K)*F(MXKYR,NXLYS1) MXMYR1 = MX + MY + RK(K) + 1 NXNYS1 = NX + NY + SK(K) + 1 SB14 = G33*H5**2*CAB(K)*F(MXMYR1,NXNYS1) IXMYR = IX + MY + RK(K) JXNYS1 = JX + NY + SK(K) + 1 IF (IXMYR .GT. 0) SB15 =-G12*RIX*H6*CAB(K)*F(IXMYR,JXNYS1) MXKYR1 = MX + KY + RK(K) + 1 NXLYS = NX + LY + SK(K) IF (NXLYS .GT. 0) SB16 =-G12*RLY*H4*CAB(K)*F(MXKYR1,NXLYS) MXMYR1 = MX + MY + RK(K) + 1 NXNYS1 = NX + NY + SK(K) + 1 SB17 = 2*G12*H4*H6*CAB(K)*F(MXMYR1,NXNYS1) KXMYR1 = KX + MY + RK(K) + 1 LXNYS = LX + NY + SK(K) IF (LXNYS .GT. 0) SB19 =-G12*RLX*H4*CAB(K)*F(KXMYR1,LXNYS) MXIYR = MX + IY + RK(K) NXJYS1 = NX + JY + SK(K) + 1 IF (MXIYR .GT. 0) SB20 =-G12*RIY*H6*CAB(K)*F(MXIYR,NXJYS1) IXMYR = IX + MY + RK(K) JXNYS1 = JX + NY + SK(K) + 1 IF (IXMYR .GT. 0) SB22 =-G13*RIX*H5*CAB(K)*F(IXMYR,JXNYS1) MXIYR1 = MX + IY + RK(K) + 1 NXJYS = NX + JY + SK(K) IF (NXJYS .GT. 0) SB23 =-G13*RJY*H4*CAB(K)*F(MXIYR1,NXJYS) MXKYR = MX + KY + RK(K) NXLYS1 = NX + LY + SK(K) + 1 IF (MXKYR .GT. 0) SB24 =-G13*RKY*H4*CAB(K)*F(MXKYR,NXLYS1) MXMYR1 = MX + MY + RK(K) + 1 NXNYS1 = NX + NY + SK(K) + 1 SB25 = 2*G13*H4*H5*CAB(K)*F(MXMYR1,NXNYS1) IXMYR1 = IX + MY + RK(K) + 1 JXNYS = JX + NY + SK(K) IF (JXNYS .GT. 0) SB27 =-G13*RJX*H4*CAB(K)*F(IXMYR1,JXNYS) KXMYR = KX + MY + RK(K) LXNYS1 = LX + NY + SK(K) + 1 IF (KXMYR .GT. 0) SB29 =-G13*RKX*H4*CAB(K)*F(KXMYR,LXNYS1) MXIYR = MX + IY + RK(K) NXJYS1 = NX + JY + SK(K) + 1 IF (MXIYR .GT. 0) SB30 =-G13*RIY*H5*CAB(K)*F(MXIYR,NXJYS1) KXMYR1 = KX + MY + RK(K) + 1 LXNYS = LX + NY + SK(K) IF (LXNYS .GT. 0) SB32 =-G23*RLX*H5*CAB(K)*F(KXMYR1,LXNYS) MXIYR1 = MX + IY + RK(K) + 1 NXJYS = NX + JY + SK(K) IF (NXJYS .GT. 0) SB33 =-G23*RJY*H6*CAB(K)*F(MXIYR1,NXJYS) MXKYR = MX + KY + RK(K) NXLYS1 = NX + LY + SK(K) + 1 IF (MXKYR .GT. 0) SB34 =-G23*RKY*H6*CAB(K)*F(MXKYR,NXLYS1) MXMYR1 = MX + MY + RK(K) + 1 NXNYS1 = NX + NY + SK(K) + 1 SB35 = 2*G23*H5*H6*CAB(K)*F(MXMYR1,NXNYS1) IXMYR1 = IX + MY + RK(K) + 1 JXNYS = JX + NY + SK(K) IF (JXNYS .GT. 0) SB37 =-G23*RJX*H6*CAB(K)*F(IXMYR1,JXNYS) KXMYR = KX + MY + RK(K) LXNYS1 = LX + NY + SK(K) + 1 IF (KXMYR .GT. 0) SB39 =-G23*RKX*H6*CAB(K)*F(KXMYR,LXNYS1) MXKYR1 = MX + KY + RK(K) + 1 NXLYS = NX + LY + SK(K) IF (NXLYS. GT. 0) SB40 =-G23*RLY*H5*CAB(K)*F(MXKYR1,NXLYS) SB41 = SB3 + SB6 + SB14 + SB17 + SB25 + SB35 IF (I .LE. 12) SB41 = 0.0 ST = ST + SB1 + SB2 + SB4 + SB5 + SB7 + SB8 + SB9 + 1 SB10 + SB11 + SB12 + SB13 + SB15 + SB16 + SB18 + SB19 + 2 SB20 + SB21 + SB22 + SB23 + SB24 + SB26 + SB27 + SB28 + 3 SB29 + SB30 + SB31 + SB32 + SB33 + SB34 + SB36 + SB37 + 4 SB38 + SB39 + SB40 + SB41 IF (UNIMEM) GO TO 190 180 CONTINUE 190 CONTINUE 200 CONTINUE KSHL(IJ) = ST KSHL(JI) = KSHL(IJ) 210 CONTINUE 220 CONTINUE 230 CONTINUE IF (IPASS .EQ. 2) GO TO 240 C C CURRENTLY,TRANSVERSE SHEAR CALCULATIONS ARE NOT CODED FOR SHELL C ELEMENT WHEN IT IS CODED, CALL THE ROUTINE HERE C 240 CONTINUE C C (QQQINV) TRANSPOSE (KTR3) (QQQINV) C CALL GMMATS (Q,6,6,0, KSHL(1),6,32,0, QKS(1)) CALL GMMATS (Q,6,6,0, KSHL(193),6,32,0, QKS(193)) CALL GMMATS (QQQINV,20,18,+1, KSHL(385),20,32,0, QKS(385)) DO 260 I = 1,30 DO 250 J = 1,6 IJ =(I-1)*32 + J JI =(I-1)*6 + J KSHL( JI) = QKS( IJ) KSHL(180+JI) = QKS(6+IJ) 250 CONTINUE 260 CONTINUE DO 280 I = 1,30 DO 270 J = 1,20 IJ = (I-1)*32 + J + 12 JI = (I-1)*20 + J + 360 KSHL(JI) = QKS(IJ) 270 CONTINUE 280 CONTINUE CALL GMMATS (KSHL(1 ),30,6 ,0,Q,6,6,1 ,QKS(1 )) CALL GMMATS (KSHL(181),30,6 ,0,Q,6,6,1 ,QKS(181)) CALL GMMATS (KSHL(361),30,20,0, QQQINV,20,18,0, QKS(361)) DO 300 I = 1,30 DO 290 J = 1,6 IJ = (I-1)*30 + J JI = (I-1)*6 + J CMS(IJ ) = QKS(JI ) CMS(IJ+6) = QKS(JI+180) 290 CONTINUE 300 CONTINUE DO 320 I = 1,30 DO 310 J = 1,18 IJ = (I-1)*30 + J + 12 JI = (I-1)*18 + J + 360 CMS(IJ) = QKS(JI) 310 CONTINUE 320 CONTINUE DO 330 I = 1,30 EE(I) = 0.0 330 CONTINUE EE( 1) = IVECT(1) EE( 2) = JVECT(1) EE( 3) = KVECT(1) EE( 6) = IVECT(2) EE( 7) = JVECT(2) EE( 8) = KVECT(2) EE(11) = IVECT(3) EE(12) = JVECT(3) EE(13) = KVECT(3) EE(19) = IVECT(1) EE(20) = JVECT(1) EE(24) = IVECT(2) EE(25) = JVECT(2) EE(29) = IVECT(3) EE(30) = JVECT(3) DO 360 K = 1,6 DO 350 I = 1,2 K1 = 6*(I-1) + K I1 = 5*(K-1) + I DO 340 J = 1,30 CTM (I1,J) = CM1(K1,J) 340 CONTINUE 350 CONTINUE 360 CONTINUE DO 390 K = 1,6 DO 380 I = 1,3 I2 = 5*(K-1) + I + 2 K2 = 12+(K-1)*3 + I DO 370 J = 1,30 CTM (I2,J) = CM1(K2,J) 370 CONTINUE 380 CONTINUE 390 CONTINUE DO 420 K = 1,6 DO 410 I = 1,2 K1 = 6*(I-1) + K I1 = 5*(K-1) + I DO 400 J = 1,30 CM1(J,I1) = CTM(J,K1) 400 CONTINUE 410 CONTINUE 420 CONTINUE DO 450 K = 1,6 DO 440 I = 1,3 I2 = 5*(K-1) + I + 2 K2 = 12+(K-1)*3 + I DO 430 J = 1,30 CM1(J,I2) = CTM(J,K2) 430 CONTINUE 440 CONTINUE 450 CONTINUE DO 460 I = 1,1296 CMT(I) = 0.0 460 CONTINUE C C LUMPED MASS COMPUTATION C IF (IPASS .NE. 2) GO TO 490 470 AMASS = (RHOY*VOL + NSM*AREA)/6. DO 480 I = 1,1296,37 CMT(I) = AMASS 480 CONTINUE IPASS = 2 GO TO 690 C C LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS C COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES C ARE R C - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO) C C TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC C COORDINATES C C TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINAYES TO GLOBAL (DISP) C COORDINATES C C INSERT THE 6X6 SUBMATRIX INTO KGG MATRIX C 490 DO 500 I = 1,6 SAVE(I) = NL(I) 500 CONTINUE DO 530 I = 1,6 SMALL(I) = I ISMALL = NL(I) DO 520 J = 1,6 IF (ISMALL .LE. NL(J)) GO TO 510 SMALL(I) = J ISMALL = NL(J) 510 CONTINUE 520 CONTINUE ISM = SMALL(I) NL(ISM) = 1000000 530 CONTINUE DO 540 I = 1,6 NL(I) = SAVE(I) 540 CONTINUE DO 680 I = 1,6 SIL1 = SMALL(I) DO 670 J = I,6 SIL2 = SMALL(J) DO 550 II = 1,36 BALOTR(II) = 0.0 KSUP(II) = 0.0 550 CONTINUE DO 570 K = 1,5 K1 = (SIL1-1)*5 + K DO 560 L = 1,5 L1 = (SIL2-1)*5 + L CSUB(K,L) = CM1(K1,L1) 560 CONTINUE 570 CONTINUE CALL GMMATS (EE,6,5,0, CSUB,5,5,0, CSUBT) CALL GMMATS (CSUBT,6,5,0, EE,6,5,+1, KSUPT) DO 580 K = 1,6 DO 580 L = 1,6 K1 =(K-1)*6 + L L1 =(L-1)*6 + K KSUP(L1) = KSUPT(K1) 580 CONTINUE C C TRANSFORM THE KSUP(36) FROM BASIC TO DISPLACEMENT COORDINATES C IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 610 JJ = 4*SIL1 + 24 CALL TRANSS (IEST(JJ),TRAND) DO 590 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 590 CONTINUE CALL GMMATS (BALOTR(1),6,6,1, KSUP(1),6,6,0, KSUPT) DO 600 K = 1,36 KSUP(K) = KSUPT(K) 600 CONTINUE 610 CONTINUE IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 650 IF (J .EQ. I) GO TO 630 JJ = 4*SIL2 + 24 CALL TRANSS (IEST(JJ),TRAND) DO 620 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 620 CONTINUE 630 CONTINUE CALL GMMATS (KSUP(1),6,6,0, BALOTR(1),6,6,0, KSUPT) DO 640 K = 1,36 KSUP(K) = KSUPT(K) 640 CONTINUE 650 CONTINUE DO 660 II = 1,6 DO 660 JJ = 1,6 I1 = (I-1)*6 + II J1 = (J-1)*6 + JJ CTM(I1,J1) = KSUB(JJ,II) CTM(J1,I1) = KSUB(JJ,II) 660 CONTINUE 670 CONTINUE 680 CONTINUE 690 CALL EMGOUT (CMT(1),CMT(1),1296,1,DICT,IPASS,IPREC) IF (.NOT.IMASS .OR. IPASS.GE.2) RETURN C C TO TO 295 TO COMPUTE LUMPED MASS MATRIX C GO TO 211 TO COMPUTE CONSIST. MASS MATRIX (THIS PATH DOES NOT C WROK) C IPASS = 3 GO TO (720,90,470), IPASS C C ERROR C 700 CONTINUE NOGO = .TRUE. KNOGO = 1 WRITE (IOUTPT,710) UFM,IEST(1) 710 FORMAT (A23,' 2416, MATRIX RELATING GENERALIZED PARAMETERS AND ', 1 'GRID POINT DISPLACEMENTS IS SINGULAR.', //26X, 2 'CHECK COORDINATES OF ELEMENT TRSHL WITH ID',I9,1H.) 720 CONTINUE RETURN END ================================================ FILE: mis/ktube.f ================================================ SUBROUTINE KTUBE C***** C THE TUBE BEING SO SIMILAR TO THE ROD, WE ALTER THE ECPT FOR THE TUBE C SO THAT IT IS IDENTICAL TO THE ONE FOR THE ROD AND THEN CALL KROD C TO COMPUTE THE ELEMENT STIFFNESS MATRICES. C***** C C C C E C P T F O R T H E T U B E C C C C ECPT( 1) - ELEMENT ID. C ECPT( 2) - SCALAR INDEX NUMBER FOR GRID POINT A C ECPT( 3) - SCALAR INDEX NUMBER FOR GRID POINT B C ECPT( 4) - MATERIAL ID. C ECPT( 5) - OUTSIDE DIAMETER C ECPT( 6) - THICKNESS C ECPT( 7) - NON-STRUCTURAL MASS C ECPT( 8) - COOR. SYS. ID. FOR GRID POINT A C ECPT( 9) - BASIC COORDINATES OF GRID POINT A C ECPT(10) - ... C ECPT(11) - ... C ECPT(12) - COOR. SYS. ID. FOR GRID POINT B C ECPT(13) - BASIC COORDINATES OF GRID POINT B C ECPT(14) - ... C ECPT(15) - ... C ECPT(16) - ELEMENT TEMPERATURE C C C COMMON /SMA1ET/ 1 ECPT(16) ,DUM(84) C C C COMMON /SMA1DP/ 1 TEMP ,A 2, FJ ,C C C C COMMON /CONDAS/ PI ,TWOPI ,RADEG ,DEGRA , 1 S4PISQ C C C TEMP = ECPT(5) - ECPT(6) C C COMPUTE AREA, TORSIONAL INERTIA AND STRESS COEFFICIENT. C A = TEMP * ECPT(6) * PI FJ = .25 * A * (TEMP**2 + ECPT(6)**2) C = .5 * ECPT(5) C C MOVE THE -END- OF THE ARRAY -DOWN ONE SLOT- SO THAT ENTRIES 7 THRU 16 C OF THE ECPT WILL BE STORED AT POSITIONS 8 THRU 17. C M = 18 DO 10 I = 1,10 M = M - 1 10 ECPT(M) = ECPT(M-1) ECPT(5) = A ECPT(6) = FJ ECPT(7) = C CALL KROD RETURN END ================================================ FILE: mis/lamx.f ================================================ SUBROUTINE LAMX C C LAMX MAKES OR EDITS THE LAMA DATA BLOCK C C LAMX EDIT,LAMA/LAMB/C,Y,NLAM=0 $ C IF NLAM LT 0 MAKE LAMB A MATRIX OF 5 COLUMNS C LAMA OMEGA FREQ GM GS C UNTIL GM = 0.0 C C INTEGER SYSBUF,IST(10),TRL(7),BUFA,BUFB,BUFE,EDIT C DIMENSION D(3),Z(7) C COMMON /BLANK / NLAM COMMON /ZZZZZZ/ IZ(1) COMMON /SYSTEM/ SYSBUF,NOUT COMMON /CONDAS/ PI,TWOPI COMMON /UNPAKX/ ITO,II,IE,INCR COMMON /PACKX / ITYIN,ITYOUT,III,NNN,INCR1 COMMON /OUTPUT/ HDG(96) C EQUIVALENCE (D(1),A),(D(2),B),(D(3),C) EQUIVALENCE (Z(1),IZ(1)) C DATA EDIT , LAMA,LAMB /101,102,201/ DATA IST / 21,6,7*0,7/ DATA LMA / 1/, IED /1/, IZ2 /2/ DATA NAM / 4HLAMX / C C INITILIZE AND DECIDE MODE OF OPERATIONS C ICORE = KORSZ(Z) TRL(1) = LAMA CALL RDTRL (TRL) IF (TRL(1) .LT. 0) LMA = 0 TRL(1) = EDIT CALL RDTRL (TRL) IF (TRL(1) .LT. 0) IED = 0 NCOL = TRL(2) IF (NCOL .EQ. 0) IED = 0 IF (LMA.EQ.0 .AND. IED.EQ.0) GO TO 1000 ITO = 1 II = 1 INCR= 1 IE = TRL(3) IF (IE .GT. 3) IE = 3 B = 0.0 C = 0.0 BUFB = ICORE - SYSBUF CALL GOPEN (LAMB,Z(BUFB),1) IF (LMA .EQ. 0) GO TO 200 BUFA = BUFB - SYSBUF CALL GOPEN (LAMA,Z(BUFA),0) IF (NLAM .LT. 0) GO TO 500 BUFE = BUFA - SYSBUF IF (IED .EQ. 0) GO TO 5 C C EDITING LAMA FROM EDIT C CALL GOPEN (EDIT,Z(BUFE),0) C C WRITE HEADER C 5 CALL READ (*10,*10,LAMA,Z,BUFE,1,NWR) 10 CALL WRITE (LAMB,Z,NWR,1) IF (IED .EQ. 0) GO TO 100 C C MAKE RECORDS C J = 0 DO 50 I = 1,NCOL CALL READ (*60,*60,LAMA,Z,7,0,NWR) CALL UNPACK (*40,EDIT,D) IF (A.EQ.0.0 .AND. B.EQ.0.0 .AND. C.EQ.0.0) GO TO 40 IF (C .LT. 0.0) GO TO 50 Z(5) = Z(5)*(1.0+B) + A Z(4) = Z(5)*TWOPI Z(3) = Z(4)*Z(4) IF (C .NE. 0.0) Z(6) = C Z(7) = Z(6)*Z(3) 40 J = J+1 IZ(1)= J IF (NLAM .LE. 0) GO TO 45 IF (J .GT. NLAM) GO TO 180 45 CALL WRITE (LAMB,Z,7,0) 50 CONTINUE 60 GO TO 180 C C COPY LAMA TO LAMB FOR NLAM RECORDS C 100 IF (NLAM .EQ. 0) GO TO 190 J = NLAM M = 7*NLAM CALL READ (*180,*110,LAMA,Z,M,0,NWR) CALL WRITE (LAMB,Z,7*NLAM,0) GO TO 180 110 CALL WRITE (LAMB,Z,NWR,0) 180 TRL(1) = LAMB TRL(2) = J CALL WRTTRL (TRL) 190 CALL CLOSE (LAMA,1) CALL CLOSE (LAMB,1) CALL CLOSE (EDIT,1) GO TO 1000 C C MAKE A NEW LAMB C 200 BUFE = BUFB - SYSBUF CALL GOPEN (EDIT,Z(BUFE),0) IF (NLAM .GT. 0) NCOL = MIN0(NCOL,NLAM) C C WRITE HEADER C CALL WRITE (LAMB,IST,50,0) CALL WRITE (LAMB,HDG,96,1) C C MAKE RECORDS C DO 220 I = 1,NCOL CALL UNPACK (*310,EDIT,D) GO TO 210 310 D(1) = 0.0 D(2) = 0.0 D(3) = 0.0 210 IZ( 1) = I IZ(IZ2) = I Z(5) = A Z(4) = TWOPI*A Z(3) = Z(4)*Z(4) Z(6) = C Z(7) = C*Z(3) CALL WRITE (LAMB,Z,7,0) 220 CONTINUE J = NCOL GO TO 180 C C BUILD LAMB AS A MATRIX C 500 TRL(1) = LAMB TRL(2) = 0 TRL(4) = 1 TRL(5) = 1 TRL(6) = 0 TRL(7) = 0 ITYIN = 1 ITYOUT = 1 III = 1 INCR1 = 7 CALL FWDREC (*190,LAMA) CALL READ (*190,*510,LAMA,Z,BUFA,0,NWR) CALL MESAGE (8,0,NAM) GO TO 190 510 NLOOP = 0 DO 520 I = 1,NWR,7 IF (Z(I+5) .EQ.0.0) GO TO 530 NLOOP = NLOOP +1 520 CONTINUE 530 IF (NLOOP .EQ. 0) GO TO 190 TRL(3) = NLOOP NNN = NLOOP L = 3 DO 540 I = 1,5 CALL PACK (Z(L),LAMB,TRL) L = L + 1 540 CONTINUE CALL WRTTRL (TRL) GO TO 190 1000 RETURN END ================================================ FILE: mis/line.f ================================================ SUBROUTINE LINE (X1,Y1,X2,Y2,PENX,OPT) C C (X1,Y1) = STARTING POINT OF THE LINE C (X2,Y2) = TERMINAL POINT OF THE LINE C PENX = PEN NUMBER OR DENSITY (DEPENDING ON PLOTTER) C OPT = -1 TO INITIATE THE LINE MODE C = +1 TO TERMINATE THE LINE MODE C = 0 TO DRAW A LINE. C INTEGER PEN,PENX,OPT,PLOTER,TRA1,TRA2 REAL XY(2,2),INFNTY COMMON /PLTDAT/ MODEL,PLOTER,REG(2,2),SKPPLT(14),SKPA(6),NPENS DATA INFNTY/ 1.E+10 / C IF (OPT .NE. 0) GO TO 220 SLP = INFNTY B = 0. IF (X1 .EQ. X2) GO TO 10 SLP = (Y2-Y1)/(X2-X1) B = Y1 - SLP*X1 10 XY(1,1) = X1 XY(2,1) = Y1 XY(1,2) = X2 XY(2,2) = Y2 C C CHECK TO SEE IF AN END OF THE LINE IS OUTSIDE THE PLOT REGION. C 20 DO 30 J = 1, 2 DO 30 I = 1,2 IF (XY(I,J).LT.REG(I,1) .OR. XY(I,J).GT.REG(I,2)) GO TO 40 30 CONTINUE GO TO 210 40 DO 50 I = 1,2 IF (XY(I,1).LT.REG(I,1) .AND. XY(I,2).LT.REG(I,1)) GO TO 230 IF (XY(I,1).GT.REG(I,2) .AND. XY(I,2).GT.REG(I,2)) GO TO 230 50 CONTINUE C C AN END IS OUTSIDE THE REGION, BUT NOT THE ENTIRE LINE. FIND THE C END POINTS OF THE PORTION OF THE LINE WITHIN THE REGION. C J = 1 60 I = 1 70 IF (XY(I,J) .GE. REG(I,1)) GO TO 130 ASSIGN 120 TO TRA2 GO TO (100,110), I 100 ASSIGN 350 TO TRA1 X = REG(1,1) GO TO 300 110 ASSIGN 310 TO TRA1 Y = REG(2,1) GO TO 300 120 XY(1,J) = X XY(2,J) = Y C 130 IF (XY(I,J) .LE. REG(I,2)) GO TO 170 ASSIGN 160 TO TRA2 GO TO (140,150), I 140 ASSIGN 350 TO TRA1 X = REG(1,2) GO TO 300 150 ASSIGN 310 TO TRA1 Y = REG(2,2) GO TO 300 160 XY(1,J) = X XY(2,J) = Y 170 I = I + 1 IF (I .EQ. 2) GO TO 70 J = J + 1 IF (J .EQ. 2) GO TO 60 C C MAKE SURE THE LINE SEGMENT IS WITHIN THE PLOT REGION. C DO 200 J = 1,2 DO 200 I = 1,2 IF (XY(I,J)+.1.LT.REG(I,1) .OR. XY(I,J)-.1.GT.REG(I,2)) GO TO 400 200 CONTINUE C C FIND THE CORRECT PEN NUMBER FOR THIS PLOTTER. C 210 PEN = PENX PEN = PEN - NPENS*((PEN-1)/NPENS) C C DRAW THE LINE. C 220 CALL LINE10 (XY(1,1),XY(2,1),XY(1,2),XY(2,2),PEN,OPT) GO TO 400 C 230 IFL = 0 DO 250 J = 1, 2 DO 240 M = 1, 2 IF (ABS(XY(I,J)-REG(I,M)) .GT. 1.0E-8) GO TO 240 IFL = 1 XY(I,J) = REG(I,M) 240 CONTINUE 250 CONTINUE IF (IFL) 400,400,20 C C C CALCULATE THE EQUATION OF THE LINE TO BE DRAWN. C 300 GO TO TRA1, (310,350) C C GIVEN Y, CALCULATE X. C 310 IF (SLP .EQ. INFNTY) GO TO 330 IF (SLP .EQ. 0.) GO TO 320 X = (Y-B)/SLP GO TO 340 320 X = INFNTY GO TO 340 330 X = X1 340 GO TO TRA2, (120,160) C C GIVEN X, CALCULATE Y. C 350 IF (SLP .EQ. INFNTY) GO TO 370 IF (SLP .EQ. 0.) GO TO 360 Y = SLP*X + B GO TO 380 360 Y = Y1 GO TO 380 370 Y = INFNTY 380 GO TO TRA2, (120,160) C 400 RETURN END ================================================ FILE: mis/line10.f ================================================ SUBROUTINE LINE10 (X1,Y1,X2,Y2,PENDEN,OPT) C C X1,Y1 = STARTING POINT OF THE LINE C X2,Y2 = TERMINAL POINT OF THE LINE C PENDEN = PEN NUMBER OR LINE DENSITY C OPT = -1 TO INITIATE THE LINE MODE C = +1 TO TERMINATE THE LINE MODE C = 0 TO DRAW A LINE C INTEGER PENDEN,OPT,OPTX,A(6) DATA OPTX,LINE / -1, 5 / C IF (OPTX .GE. 0) OPTX = OPT IF (OPT) 200,100,150 100 A(1) = LINE A(2) = PENDEN A(3) = IFIX(X1+.1) A(4) = IFIX(Y1+.1) A(5) = IFIX(X2+.1) A(6) = IFIX(Y2+.1) IF (OPTX .EQ. 0) GO TO 120 C C INITIATE THE LINE MODE. C A(1) = A(1) + 10 OPTX = 0 C C DRAW THE LINE. C 120 CALL WPLT10 (A,0) GO TO 200 C C TERMINATE THE LINE MODE. C 150 CALL WPLT10 (A,1) OPTX = -1 C 200 RETURN END ================================================ FILE: mis/linein.f ================================================ SUBROUTINE LINEIN(X1,Y1,Z1,X2,Y2,Z2,HCDL) C C PERFORMS LINE INTEGRAL FROM (X1,Y1,Z1) TO (X2,Y2,Z2) OF BIOT-SAVART C FILED DOTTED INTO THE LINE, IE INT(HC.DL) C DIMENSION XI(4),W(4) DATA XI/.06943184,.33000948,.66999052,.93056816/ DATA W/.17392742,2*.32607258,.173927423/ C C COMPONENTS OF LINE SEGMENT C HCDL=0. SEGX=X2-X1 SEGY=Y2-Y1 SEGZ=Z2-Z1 SEGL=SQRT(SEGX**2+SEGY**2+SEGZ**2) IF(SEGL.EQ.0.)RETURN C C 4 POINT INTEGRATION OVER LINE SEGMENT(XI= / TO +1) C DO 10 I=1,4 XX=X1+SEGX*XI(I) YY=Y1+SEGY*XI(I) ZZ=Z1+SEGZ*XI(I) CALL BIOTSV(XX,YY,ZZ,HCX,HCY,HCZ) HCDL=HCDL+(HCX*SEGX+HCY*SEGY+HCZ*SEGZ)*W(I) 10 CONTINUE RETURN END ================================================ FILE: mis/linel.f ================================================ SUBROUTINE LINEL (IZ,NWDS,OPCOR,OPT,X,PEN,DEFORM,GPLST) C C CALL TO LINEL IS AS FOLLOWS - C C (1) C OPT = ZERO (INPUT) - TO CREATE COMPLETE LINE CONNECTION TABLE OF C ********** ELEMENTS OF ALL TYPES, TO BE USED BY SUPLT C SUBROUTINE C INPUT- C OPCOR (INPUT) = NUMBER OF WORDS OF OPEN CORE FOR -IZ- C OUTPUT- C IZ = LIST OF GRID POINT ELEMENET CONNECTIONS AND POINTERS C TO EACH GRID POINT, FROM IZ(1) THRU IZ(NWDS). DATA C COMPOSED OF 1. GPCT, AND 2. NGP WORDS OF CONTROL C POINTERS C NWDS = NO. OF WORDS IN IZ PRIOR TO POINTER ARRAY. C I.E. 1 LESS THAN LOCATION OF POINTERS, C = 0 IF ARRAY NOT CREATED C OPT = NWDS C C (2) C OPT = NONZERO (INPUT) - LOAD INTO CORE THE GRID POINT CNNECTION C ************* LIST OF ALL ELEMENTS OF THE SAME TYPE C C INPUT- C NWDS = ETYP, 2 BCD WORDS (CALLING ROUTINE HAS ALREADY READ C THIS WORD FROM DATA BLOCK ELSET) C OPT = MO. OF GRID POINT CONNECTIONS PER ELEMENT, NGPEL C (CALLING ROUTINE HAS ALREADY READ THIS WORD) C OPCOR = OPEN CORE AVAILABLE W.R.T. IZ(1) C GPLST = A SUBSET LIST OF GRID POINTS PERTAINING TO THOSE C POINTS USED ONLY IN THIS PLOT C OUTPUT- C IZ = GRID POINT CONNECTION LIST FOR ALL ELEMENTS OF THIS C TYPE, OR AS MANY ELEMS OF THIS TYPE AS CORE ALLOWS. C NWDS = TOTAL LENGTH OF TABLE IZ C OPT = NUMBER OF CONNECTIONS PER ELEMENT C (IF INSUFF. CORE TO READ ALL THE ELEMENTS, BOTH NWDS AND OPT C ARE SET TO NEGATIVE UPON RETURN. FURTHER CALLS MUST BE MADE C TO COMPLETE THIS ELEMENT C IF ILLEGAL ELEMENT IS ENCOUNTERED, NWDS AND OPT ARE SET TO C ZERO, AND ELSET IS SPACED OVER THE ELEMENT) C C (NOTE THAT 'DO 100 I=1,NWDS,OPT' MAY THEN BE USED C BUT IT IS MORE EFFICIENT TO USE 'DO 100 I=1,NWDS' AND CHECK C ZERO AS THE COMMAND TO LIFT THE PEN) C C EACH ELEMENT TYPE HAS THE FOLLOWING DATA IN ELSET FILE C ELTYP = BCD SYMBOL (1 WORD) C NGPEL = NUM. GRID POINTS. C IF NEGATIVE OR .GT. 4 NOT A CLOSED LOOP C ELID = ELEMENT ID C G = NGPEL GRIDS. C LOOP THRU ELID AND G UNTIL ELID = 0 (I.E. NO MORE ELEMS OF C THIS TYPE) C (3) C ELEMENT OFFSET PLOT (UNDEFORMED PLOT ONLY, PEDGE=3), C ******************* C IF ELEMENTS WITH OFFSET ARE PRESENT, CALL OFSPLT TO PLOT THEM OUT C AND DO NOT INCLUDE THEM IN THE IZ TABLE C IF OFFSET COMMAND IS REQUESTED BY USER VIA THE PLOT CARD C (PEDGE = 3), SKIP COMPLETELY THE GENERATION OF THE IZ TABLE C C OFFSET n OPTION (ON PLOT CONNAND CARD IN CASE CONTROL SECTION) - C n .LT. 0, SKIP OFFSET VALUES ON GENERAL PLOTS. (PEDGE.NE.3) C n = 0, OFFSET VALUES INCLUDED IN ALL GENERAL PLOTS (PEDGE=3) C n .GT. 0, PLOT ONLY THOSE ELEMENTS HAVING OFFSET DATA, OFFSET C DATA ARE MAGNIFIED n TIMES. (PEDGE=3) C SUBROUTINE PLOT SETS THE PEDGE FLAG, AND PLTSET SETS THE OFFSCL. C INTEGER ELID,ELSET,ETYP,G,IZ(1),M1(16),NAME(2),GPLST(1), 1 NG(121),OPCOR,OPT,TYPE,NGTYP(2,13),LDX(9),OFFSCL, 2 OFFSET,DEFORM,PEN,PEDGE REAL X(3,1) COMMON /BLANK / NGP,SKP1(9),SKP2(2),ELSET,SKP3(7),MERR COMMON /SYSTEM/ SKP4,IOUT COMMON /PLTSCR/ NNN,G(3) COMMON /DRWDAT/ SKP5(15),PEDGE COMMON /XXPARM/ SKP6(235),OFFSCL DATA NAME / 4HLINE, 1HL /, NM1,M1 / 16, 1 4H(33X, 4H,13H, 4HELEM, 4HENT , 4HTYPE, 4H ,A5, 2 4H,4HW, 4HITH,, 4HI8,2, 4H4H G, 4HRIDS, 4H SKI, 3 4HPPED, 4H IN , 4HLINE, 4HL.) / C C SPECIAL ELEMENT CONNECTION PATTERNS C DATA LDX / 2HD1,2HD2,2HD3,2HD4,2HD5,2HD6,2HD7,2HD8,2HD9 / DATA KTET / 2HTE /, KWEG / 2HWG /, KHX1 / 2HH1 /, KHX2 / 2HH2 /, 1 KIX1 / 2HXL /, KIX2 / 2HXQ /, KIX3 / 2HXC /, KAE / 2HAE /, 2 KTM6 / 2HT6 /,KTRPLT/ 2HP6 /,KTRSHL/ 2HSL /, KFH1 / 2HFA /, 3 KFH2 / 2HFB /, KFWD / 2HFW /, KFTE / 2HFT /, K2D8 / 2HD8 /, 4 KHB / 2HHB /, KBAR / 2HBR /, KT3 / 2HT3 /, KQ4 / 2HQ4 / C C NGTYP(1,TYPE) = LOCATION WORD 1 IN -NG-, +N = POINTER TO G C -N = THRU POINTER TO G C BE SURE TO KEEP PEN DOWN 0 = LIFT PEN C AS MUCH AS POSSIBLE. C NGTYP(2,TYPE) = NUMBER OF ENTRIES/ELEMENT MINUS 1 IN TABLE IZ C DATA NGTYP/ 0,0, 3,9, 10,14, 22,19, 37,30, 56,43, 79,6, 1 83,7, 86,9, 95,10, 102, 8, 108, 2, 110, 7/ DATA NG / C 1 - LINE,TRIANGLE,QUAD 1 1,-5, C 2 - TETRA (WORD 3) 2 1,-4,1,3,0,2,4, C 3 - WEDGE (WORD 10) 3 1,-3,1,4,-6,4,0,5,2,0,3,6, C 4 - HEXA (WORD 22) 4 1,-4,1,5,-8,5,0,6,2,0,3,7,0,8,4, C 5 - IHEXA2 (WORD 37) 5 1,-8,1,9,13,-20,13,0,15,10,3,0,5,11,17,0,19,12,7, C 6 - IHEXA3 (WORD 56) 6 1,-12,1,13,17,21,-32,21,0,24,18,14,4,0,7,15,19,27,0,30,20,16,10 C 7 - AREO (WORD 79) 7, 1,-4,1,0, C 8 - TRIM6, TRPLT1, AND TRSHL (WORD 83) 8 1,-6,1, C 9 - IS2D8 (WORD 86) 9 1,5,2,6,3,7,4,8,1, C 1O - POINT (WORD 95) O 2,-6,7,2,0,1,8, C 11 - LINE (WORD 102) 1 3,-6,3,0,7,8, C 12 - REV OR ELIP CYL. (WORD 108) 2 1,2, C 13 - AREA3 (WORD 110) 3 1,-3,1,0,4,5, C 14 - AREA4 (WORD 116) 4 1,-4,1,0,5,6 * / C K = 1 IF (OPT .EQ. 0) GO TO 20 ETYP = NWDS I = OPT GO TO 30 C 20 IF (OPT .NE. 0) GO TO 170 CALL READ (*420,*190,ELSET,ETYP,1,0,I) CALL FREAD (ELSET,I,1,0) C 30 NGPEL = IABS(I) NGPELX = NGPEL OFFSET = 0 IF (ETYP .EQ. KBAR) OFFSET = 6 IF (ETYP.EQ.KT3 .OR. ETYP.EQ.KQ4) OFFSET = 1 C TYPE = 1 IF (ETYP.EQ.KTET .OR. ETYP.EQ.KFTE) TYPE = 2 IF (ETYP.EQ.KWEG .OR. ETYP.EQ.KFWD) TYPE = 3 IF (ETYP.EQ.KHX1 .OR. ETYP.EQ.KHX2 .OR. ETYP.EQ.KFH1 .OR. 1 ETYP.EQ.KFH2 .OR. ETYP.EQ.KIX1) TYPE = 4 IF (ETYP .EQ. KIX2) TYPE = 5 IF (ETYP .EQ. KIX3) TYPE = 6 IF (ETYP .EQ. KAE) TYPE = 7 IF (ETYP.EQ.KTM6 .OR. ETYP.EQ.KTRPLT .OR. ETYP.EQ.KTRSHL) TYPE = 8 IF (ETYP .EQ. K2D8) TYPE = 9 IF (ETYP .EQ. KHB ) TYPE = 10 C CHBDY TYPE = 10,11,12,13,14 C IF (TYPE .NE. 1) GO TO 40 C C SIMPLE ELEMENT C IF (NGPEL.GT.2 .AND. I.GT.0) NGPELX = NGPEL + 1 IF (NGPEL .GT. 4) GO TO 131 L1 = 1 M = NGPELX GO TO 50 C C COMPLEX ELEMENT C 40 L1 = NGTYP(1,TYPE) M = NGTYP(2,TYPE) 50 IF (NGPELX .GT. NNN) GO TO 140 C C READ THE ELEMENT DATA C 55 CALL FREAD (ELSET,ELID,1,0) IF (ELID .LE. 0) GO TO 20 CALL FREAD (ELSET,LID,1,0) CALL FREAD (ELSET,G,NGPEL,0) IF (NGPEL .NE. NGPELX) G(NGPELX) = G(1) C C CALL OFSPLT TO PROCESS OFFSET PLOT C IF (OFFSET .NE. 0) 1 CALL OFSPLT (*55,ETYP,ELID,G,OFFSET,X,DEFORM,GPLST) IF (TYPE.LT.10 .OR. TYPE.GT.14) GO TO 57 C C SPECIAL HANDLING FOR CHBDY C TYPE = 9 + G(NGPEL) L1 = NGTYP(1,TYPE) M = NGTYP(2,TYPE) C 57 L = L1 C IF (OPT .NE. 0) GO TO 70 C C CREATING CONNECTION ARRAY FOR SUPLT C LL = 0 I1 = 0 60 I2 = NG(L) IF (I1 .EQ. 0) GO TO 66 IF (I2) 62,64,65 C C THRU RANGE C 62 I2 =-I2 I2 = MIN0(I2,M) J = I1 + 1 I1 = G(I1) IF (2*(I2-J+1)+K .GT. OPCOR) GO TO 390 DO 63 I = J,I2 IZ(K ) = MIN0(G(I),I1) IZ(K+1) = MAX0(G(I),I1) K = K + 2 LL = LL + 1 63 I1 = G(I) IF (LL .EQ. M-1) LL = LL - 1 GO TO 66 C 64 I1 = 0 L = L + 1 GO TO 60 C 65 IF (K+1 .GT. OPCOR) GO TO 180 IZ(K ) = MIN0(G(I2),G(I1)) IZ(K+1) = MAX0(G(I2),G(I1)) K = K + 2 66 LL = LL + 1 I1 = I2 IF (LL .GE. M) GO TO 55 L = L + 1 GO TO 60 C C ON CONVERSION REMOVE ABOVE CODE C C LOAD ELEMENT INTO CORE C 70 N = K + M C C THIS TEST PROTECTS THE CORE FOR THE FIRST ELEMENT READ C IF (N+1 .GT. OPCOR) GO TO 140 I1 = 0 I2 = NG(L) GO TO 125 80 IF (I1 .EQ. 0) GO TO 90 IF (I2) 110,100,90 C 90 IZ(K) = G(I2) GO TO 120 100 IZ(K) = I2 GO TO 120 110 I2 =-I2 C C NEXT LINE FOR ELEMENTS WITH MORE THAN ONE THRU POINTER C IF (N .NE. K+M) I1 = I1 + 1 DO 115 I = I1,I2 IZ(K) = G(I) 115 K = K + 1 K = K - 1 120 K = K + 1 IF (K .GE. N) GO TO 130 125 I1 = I2 L = L + 1 I2 = NG(L) GO TO 80 C C STORE ZERO AT THE END OF EACH ELEMENT C 130 IZ(K) = 0 K = K + 1 IF (K+M+1 .GT. OPCOR) GO TO 180 GO TO 55 C C CHECK FOR PDUM ELEMENTS BEFORE REJECTING C 131 DO 132 II = 1,9 IF (ETYP .EQ. LDX(II)) CALL PDUMI (*20,*180,*140,II,M,OPCOR,NGPEL, 1 K,ELSET,OPT) 132 CONTINUE C C ILLEGAL ELEMENT, NO CORE FOR 1 ELEMENT C 140 G(1) = 2 G(2) = ETYP G(3) = NGPEL CALL WRTPRT (MERR,G,M1,NM1) C C READ TO THE END OF THIS ELEMENT C 150 CALL FREAD (ELSET,ELID,1,0) IF (ELID .LE. 0) GO TO 160 J = 1 + NGPEL + OFFSET CALL FREAD (ELSET,0,-J,0) GO TO 150 160 CONTINUE C C NOTE THAT BOTH OPT AND NWDS=0 FOR ILLEGAL ELEMENTS C IF (OPT .NE. 0) GO TO 390 GO TO 20 C C END OF OPT.NE.0 C 170 NWDS = K - 1 OPT = M + 2 GO TO 410 C C INSUFFICIENT CORE FOR ALL ELEMENTS C 180 IF (OPT .EQ. 0) GO TO 390 NWDS = 1 - K OPT = -(M+2) GO TO 410 C C SORT C 190 IF (PEDGE .EQ. 3) GO TO 400 IF (OPT .NE. 0) GO TO 170 IF (K .LE. 1) GO TO 400 CALL SORT (0,0,2,1,IZ,K-1) C C NWDS IS SET TO NO. OF WORDS PRIOR TO ELIMINATING DUPLICATES C NWDS = K - 1 IF (NWDS .LE. 2) GO TO 310 ASSIGN 310 TO IRET C C ELIMINATE DUPLICATE ENTRIES FROM LIST SORTED ON FIRST ENTRY C 200 CONTINUE I = 1 L = 1 LL= IZ(L) C C DO 300 J = 3,NWDS,2 IF (IZ(J) .EQ. LL) GO TO 220 C C NEW PIVOT C L = I + 2 LL = IZ(J) GO TO 230 220 IF (IZ(J+1)-IZ(I+1)) 240,300,230 C C UNIQUE ENTRY FOR PIVOT FOUND C 230 IZ(I+2) = LL IZ(I+3) = IZ(J+1) GO TO 290 C C SECOND COLUMN OUT-OF-SORT C LOAD ENTRY SORTED. CHECK PREVIOUS ENTRIES C L = LOWER LIMIT OF COLUMN 1 FOR MERGING C K SET TO FIRST ENTRY OF NEXT NEW ENTRY IN LIST INITIALLY C 240 K = I 250 IF (K .LE. L) GO TO 270 IF (IZ(J+1)-IZ(K-1)) 260,300,270 260 K = K - 2 GO TO 250 C C LOAD ENTRY INTO LOCATION C 270 N = IZ(J+1) M = I + 2 280 IZ(M+1) = IZ(M-1) M = M - 2 IF (M .GT. K) GO TO 280 IZ(K+1) = N IZ(I+2) = LL C C INCREMENT FOR ENTRY LOADED C 290 I = I + 2 300 CONTINUE C C NWDS RESET TO NO. WORDS AFTER ELIMINATING DUPLICATE ENTRIES C NWDS = I + 1 GO TO IRET, (310,330) C C C K IS SET TO THE NEXT PART OF CORE WHICH WILL BE FILLED WITH THE C HIGHER ENTRY IN THE FIRST POSITION C 310 K = NWDS + 1 IF (2*NWDS .GT. OPCOR) GO TO 400 DO 320 I = 1,NWDS,2 IZ(K ) = IZ(I+1) IZ(K+1) = IZ(I ) K = K + 2 320 CONTINUE NWDS = K - 1 CALL SORT (0,0,2,1,IZ,NWDS) ASSIGN 330 TO IRET GO TO 200 C 330 CONTINUE IF (NWDS+NGP+1 .GT. OPCOR) GO TO 400 K = 1 J = 1 L = 1 M = 1 + NWDS I = 0 IZ(M) = 1 C C CREATE A GPCT --- M = POINTER FOR POINTER ARRAY C L = SIL NUMBER C J = POINTER TO NEXT GPCT ENTRY C 340 IF (IZ(K) .EQ. L) GO TO 360 C C NEW PIVOT C 350 M = M + 1 IZ(M) = IZ(M-1) + I L = L + 1 I = 0 IF (L .GT. NGP) GO TO 370 IF (K .GT. NWDS) GO TO 350 GO TO 340 C C CONNECTED POINT C 360 IZ(J) = IZ(K+1) K = K + 2 J = J + 1 I = I + 1 GO TO 340 C C EFFICIENCY PLOT POSSIBLE C 370 CONTINUE OPT = NWDS GO TO 410 C 390 OPT = 0 400 NWDS = 0 410 RETURN C 420 CALL MESAGE (-2,ELSET,NAME) GO TO 410 END ================================================ FILE: mis/linkup.f ================================================ SUBROUTINE LINKUP (*,NAME) C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF DIMENSION NAME(2) COMMON /MACHIN/ MACHX COMMON /LNKLST/ ITOP,IBOT,ISN,KIND,ITYPE,MASK1,MASK2,MASK3 COMMON /ZZZZZZ/ Z(1) C C HASH INTO TABLE C GO TO (10,10,10,20,30,30,10,30,30,30, 30,40,10,40,40,30,30,30, 1 30,30, 30,30), MACHX C C IBM AND UNIVAC C 10 ITOTAL = NAME(1) + NAME(2) GO TO 50 C C 60-BIT MACHINE C 20 ITOTAL = RSHIFT(NAME(1),18) + RSHIFT(NAME(2),18) GO TO 50 C C 32-BIT MACHINES C 30 ITOTAL = RSHIFT(NAME(1), 1) + RSHIFT(NAME(2), 1) GO TO 50 C C 64-BIT MACHINES C 40 ITOTAL = RSHIFT(NAME(1),32) + RSHIFT(NAME(2),32) C 50 IHASH = 4*IABS(MOD(ITOTAL,250)) + 4 K = ANDF(Z(IHASH),MASK1) IF (K.NE.0) GO TO 60 C C NO HASH CHAIN FOUND - CREATE CHAIN C Z(IHASH) = Z(IHASH) + ITOP GO TO 90 C C HASH CHAIN FOUND - CHECK PRESENCE OF NAME C 60 IF (Z(K).NE.NAME(1) .OR. Z(K+1).NE.NAME(2)) GO TO 70 IKIND = RSHIFT(ANDF(Z(K+3),MASK3),28) IF ((IKIND+1)/2 .EQ. (KIND+1)/2) GO TO 100 70 L = ANDF(Z(K+3),MASK2) IF (L .EQ. 0) GO TO 80 K = RSHIFT(L,14) GO TO 60 80 Z(K+3) = Z(K+3) + LSHIFT(ITOP,14) C C NO ENTRY FOUND - CREATE ENTRY C 90 Z(ITOP ) = NAME(1) Z(ITOP+1) = NAME(2) Z(ITOP+2) = LSHIFT(ITYPE,28) Z(ITOP+3) = Z(ITOP+3) + LSHIFT(IABS(KIND),28) ITOP = ITOP + 4 IF (ITOP .GE. IBOT) RETURN 1 IF (KIND .LT. 0) RETURN K = ITOP - 4 C C ADD STATEMENT NUMBER TO LIST C 100 L = ANDF(Z(K+2),MASK1) IF (L .NE. 0) GO TO 110 C C LIST IS EMPTY - START LIST C Z(K+2) = Z(K+2) + IBOT GO TO 120 C C CHAIN ENTRY ON LIST C 110 L = RSHIFT(ANDF(Z(K+2),MASK2),14) Z(L) = ANDF(Z(L),COMPLF(MASK2)) Z(L) = ORF(Z(L),LSHIFT(IBOT,14)) C C ADD ENTRY TO LIST C 120 Z(IBOT)= ORF(LSHIFT(KIND,28),ISN) Z(K+2) = ANDF(Z(K+2),COMPLF(MASK2)) Z(K+2) = Z(K+2) + LSHIFT(IBOT,14) IBOT = IBOT - 1 IF (ITOP .GE. IBOT) RETURN 1 RETURN END ================================================ FILE: mis/loadsu.f ================================================ SUBROUTINE LOADSU C C LOADSU SETS UP LOAD INFOTMATION FOR PROLAT FROM NSLT. C Z(IST)IS THE STARTING POINT FOR OPEN CORE,Z(MCORE) IS THE LAST C AVAILABLE WORD, NTOT IS THE NUMBER OF WORDS PUT INTO OPEN CORE C BY THIS ROUTINE. LOAD IS THE LOAD ID. C LOGICAL REMFL INTEGER SUBCAS,BUF2,SCR1,FILE,HEST,BGPDT DIMENSION NWORDS(19),MCB(7),IZ(1),L(2),ZL(2),NAM(2) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,IOUT COMMON /BIOT / NG1,NG2,IST,SUBCAS,X1,Y1,Z1,X2,Y2,Z2,BUF2,REMFL, 1 MCORE,LOAD,NSLT,SCR1,HEST,NTOT EQUIVALENCE (Z(1),IZ(1)),(L(1),ZL(1)) DATA NAM / 4HLOAD,4HSU / DATA NWORDS/ 6,6,4,4,6,6,2,5,5,6,6,7,12,10,10,19,38,7,5/ C BGPDT = 103 MCB(1) = BGPDT CALL RDTRL (MCB) NROWSP = MCB(2) MCB(1) = HEST CALL RDTRL (MCB) NEL = MCB(2) NSIMP = 0 FILE = NSLT CALL OPEN (*1001,NSLT,Z(BUF2),0) CALL READ (*1002,*10,NSLT,Z(IST+1),MCORE,0,IWORDS) GO TO 1008 10 NLOADS = IWORDS-2 C C CHECK LOAD SELECTION AGAINST SIMPLE LOAD ID-S C IF (NLOADS .EQ. 0) GO TO 35 DO 20 I = 1,NLOADS IF (IZ(IST+2+I) .EQ. LOAD) GO TO 80 20 CONTINUE C C NOT A SIMPLE LOAD-MUST BEA LOAD COMBINATION. SKIP NLOADS RECORDS C AND SEARCH FOR PROPER LOAD ID C DO 30 I = 1,NLOADS CALL FWDREC (*1002,NSLT) 30 CONTINUE C C READ 2 WORDS AT A TIME -1,-1 SIGNIFIES END OF LOAD CARD C 35 ILOAD = IST + IWORDS 40 CALL READ (*1002,*500,NSLT,L,2,0,IFLAG) IF (L(1) .EQ. LOAD) GO TO 60 C C NO MATCH-SKIP TO -1-S C 50 CALL FREAD (NSLT,L,2,0) IF (L(1).EQ.-1 .AND. L(2).EQ.-1) GO TO 40 GO TO 50 C C MATCH C 60 ALLS = ZL(2) 70 CALL FREAD (NSLT,L,2,0) IF (L(1).EQ.-1 .AND. L(2).EQ.-1) GO TO 90 NSIMP = NSIMP + 1 IF (ILOAD+2*NSIMP .GT. MCORE) GO TO 1008 ISUB = 2*NSIMP - 1 Z(ILOAD+ISUB) = ZL(1) IZ(ILOAD+ISUB+1) = L(2) GO TO 70 C C WE HAVE NSIMP SIMPLE LOADS. FOR ONE LOAD,SET PROPER PARAMETERS C 80 NSIMP = 1 ALLS = 1. ILOAD = IST + IWORDS Z(ILOAD+1) = 1. IZ(ILOAD+2) = LOAD C C FOR EACH SIMPLE LOAD, FIND PROPER LOAD ID AND THEN POSITION TO C PROPER LOAD RECORD IN NSLT C 90 NTOT = 0 ISIMP = ILOAD + 2*NSIMP DO 270 NS = 1,NSIMP C ISUB = ILOAD + 2*NS - 1 FACTOR = Z(ISUB) ID = IZ(ISUB+1) NCARDS = 0 CALL REWIND (NSLT) I = 1 IF (NLOADS .EQ. 0) GO TO 110 DO 100 I = 1,NLOADS IF (ID .EQ. IZ(IST+2+I)) GO TO 110 100 CONTINUE GO TO 499 C 110 DO 120 J = 1,I CALL FWDREC (*1002,NSLT) 120 CONTINUE C 125 CALL READ (*1002,*260,NSLT,NOBLD,1,0,IFLAG) CALL FREAD (NSLT,IDO,1,0) IF (ISIMP+2 .GT. MCORE) GO TO 1008 IZ(ISIMP+1) = NOBLD IZ(ISIMP+2) = IDO ISIMP = ISIMP + 2 NTOT = NTOT + 2 C C SKIP NOBLD=-20. IF NOBLD=24(REMFLUX), STORE ONLY NOBLD AND IDO, C BUT SKIP REMFLUX INFO ON NSLT C IF (NOBLD .EQ. -20) GO TO 250 IF (NOBLD .LE. 19) GO TO 245 KTYPE = NOBLD - 19 GO TO (126,127,128,129,130), KTYPE 126 MWORDS = 3*NROWSP GO TO 140 127 MWORDS = 12 GO TO 140 128 MWORDS = 48 GO TO 140 129 MWORDS = 9 GO TO 140 130 MWORDS = 3*NEL MWORDS = -MWORDS GO TO 141 C 140 IF(ISIMP+MWORDS*IDO .GT. MCORE) GO TO 1008 NTOT = NTOT + MWORDS*IDO 141 DO 240 J = 1,IDO C C NCARDS TELLS HOW MANY SIMPLE LOAD CARDS HAVE THE PRESENT FACTOR C APPLIED TO IT C NCARDS = NCARDS + 1 CALL FREAD (NSLT,Z(ISIMP+1),MWORDS,0) IF (NOBLD .NE. 24) ISIMP = ISIMP + MWORDS 240 CONTINUE C C DONE WITH CARDS OF PRESENT TYPE-GET ANOTHER TYPE C GO TO 125 C C TYPE=-20 SKIP IT C 250 CALL FREAD (NSLT,Z,-(3*NROWSP),0) GO TO 125 C C NOT A MAGNETICS TYPE OF LOAD. - SKIP IT C 245 WRITE (IOUT,246) UWM,LOAD 246 FORMAT (A25,', IN FUNCTIONAL MODULE PROLATE, LOAD SET',I8, /5X, 1 'CONTAINS A NONMAGNETIC LOAD TYPE. IT WILL BE IGNORED.') DO 247 I = 1,IDO CALL FREAD (NSLT,Z,-NWORDS(NOBLD),0) 247 CONTINUE C C EOR ON NSLT-DONE WITH THIS SIMPLE LOAD-GET ANOTHER SIMPLE LOAD C C SUBSTITUTE IN OPEN CORE NCARDS FOR THE SIMPLE LOAD ID. WE NO C LONGER NEED THE ID, BUT WE MUST SAVE NCARDS C 260 CONTINUE IZ(ISUB+1) = NCARDS C 270 CONTINUE C C DONE C C STORE ALL THIS INFO BACK AT Z(IST) AS FOLLOWS C C ALLS,NSIMP,(LOAD FACTOR,NCARDS) FOR EACH SIMPLE LOAD ID, C ALL LOAD INFO FOR EACH SIMPLE LOAD STARTING WITH NOBLD AND IDO C Z(IST+1) = ALLS IZ(IST+2) = NSIMP NS2 = 2*NSIMP DO 280 I = 1,NS2 280 Z(IST+2+I) = Z(ILOAD+I) ISUB1 = IST + NS2 + 2 ISUB2 = ILOAD + 2*NSIMP DO 290 I = 1,NTOT 290 Z(ISUB1+I) = Z(ISUB2+I) NTOT = NTOT + 2*NSIMP + 2 CALL CLOSE (NSLT,1) RETURN C 499 LOAD = ID 500 WRITE (IOUT,501) UFM,LOAD 501 FORMAT (A23,', CANNOT FIND LOAD',I8,' ON NSLT IN BIOTSV') CALL MESAGE (-61,0,0) C 1001 N =-1 GO TO 1010 1002 N =-2 GO TO 1010 1008 N =-8 FILE = 0 1010 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/locpt.f ================================================ SUBROUTINE LOCPT ( N,P, M,S,K,KS, EPS, LOC) C C DETERMINES POSITION OF EACH OF N POINTS (P) RELATIVE TO SURFACE C BOUNDED BY M POINTS (S) C ALL POINTS IN THE SAME COORDINATE SYSTEM C KS IS THE (UNIT) VECTOR NORMAL TO THE SURFACE C LOC(I) IS FLAG INDICATING POSITION OF POINT I RELATIVE TO SURFACE: C LOC= 1 WHEN POINT WITHIN SURFACE BOUNDRY C LOC= 0 WHEN POINT IS ON SURFACE BOUNDRY C LOC= -1 WHEN POINT OUTSIDE SURFACE BOUNDRY C C MAXIMUM OF 4 POINTS MAY BE LOCATED RELATIVE C TO SURFACE WITH MAXIMUM OF 4 SIDES C WHOSE ENDPOINTS ARE IN K(2,M) C DOUBLE PRECISION P(3,4), S(3,4), KS(3) DOUBLE PRECISION VE(3,4), VP(3), V(3),VEMAG(4) DOUBLE PRECISION VMAG, VPMAG, VDOTK, EDOTP DOUBLE PRECISION DVMAG, DADOTB, EPS(2) C INTEGER LOC(1), K(2,1) C C C EPS ARRAY FOR SIGNIFICANCE TESTING C EPS(1) IS AREA, ANGLE LIMIT C EPS(2) IS LENGTH LIMIT C C C C SET UP VECTORS ALONG EACH SURFACE EDGE C DO 20 NE=1,M K1= K(1,NE) K2= K(2,NE) C DO 15 I=1,2 C VE IS VECTOR ALONG SURFACE EDGE 15 VE(I,NE)= S(I,K2) -S(I,K1) VE(3,NE)=0.D0 VEMAG(NE)= DVMAG( VE(1,NE), EPS(2) ) 20 CONTINUE C C DETERMINE LOCATION OF POINT RELATIVE TO SURFACE C DO 40 NP= 1,N C (PRESET POINT FLAG TO INTERIOR CODE) LOC(NP)= 1 C DO 30 NE= 1,M K1= K(1,NE) C DO 24 I=1,2 C VP IS VECTOR FROM FIRST END OF EDGE VECTOR TO POINT 24 VP(I)= P(I,NP) -S(I,K1) VP(3)= 0.D0 VPMAG= DVMAG(VP,EPS(2)) C C V= VE CROSS VP CALL DAXB(VE(1,NE), VP,V) VMAG= DVMAG(V,EPS(1)) C VDOTK= (VE CROSS VP) DOT K, K NORMAL TO PLANE OF SURFACE VDOTK= DADOTB(V, KS) C EDOTP IS VE DOT VP EDOTP= DADOTB( VE(1,NE), VP) IF (VPMAG .LE. EPS(2) ) GO TO 37 IF (VDOTK .GT. EPS(1)) GO TO 30 C INSIDE THIS EDGE IF ( (VDOTK .LT. -EPS(1) ) .OR. 1 (EDOTP .LE. EPS(1)) .OR. 2 (VEMAG(NE) +EPS(2) .LT. VPMAG) ) GO TO 35 C OUTSIDE GO TO 37 C ON THIS EDGE 30 CONTINUE C POINT IS WITHIN SURFACE BOUNDRY IF NOT OUTSIDE ANY EDGE C AND NOT ON SURFACE BOUNDRY GO TO 40 C C POINT IS OUTSIDE SURFACE BOUNDRY IF OUTSIDE ANY EDGE 35 LOC(NP)= -1 GO TO 40 C C C POINT IS ON BOUNDRY WHEN ANGLE IS EFFECTIVELY ZERO C OR (EFFECTIVELY) COINCIDENT WITH EDGE POINT 37 LOC(NP)= 0 C 40 CONTINUE RETURN END ================================================ FILE: mis/lodapp.f ================================================ SUBROUTINE LODAPP C C THIS MODULE APPENDS NEW LOAD VECTORS (PAPP AND POAP) TO THE C SUBSTRUCTURE -NAME-. THE NEW VECTORS ARE MERGED WITH ALREADY C EXISTING (PVEC AND POVE) MATRICES OR ARE SIMPLY RECOPIED AS C THE NEW PVEC AND POVE ITEMS. LOAP DATA IS ALSO MERGED WITH THE C LODS DATA OR IS SIMPLY COPIED AS THE NEW LODS ITEM. C C SOF ITEMS - C C LOAP - APPENDED LOAD SET IDENTIFICATION TABLE C PAPP - APPENDED LOAD MATRICES (G-SET) C POAP - APPENDED LOAD MATRICES (O-SET) C LODS - LOAD SET IDENTIFICATION TABLE **BECOMES THE NEW LODS** C PVEC - LOAD MATRICES (G-SET) **BECOMES THE NEW PVEC** C POVE - LOAD MATRICES (O-SET) **BECOMES THE NEW POVE** C EXTERNAL RSHIFT ,ANDF LOGICAL LPAPP ,LPVEC ,LPOAP ,LPOVE , 1 LMERG ,LLSUB ,MDIUP ,DITUP INTEGER RSHIFT ,ANDF ,BUF DIMENSION IZ(1) ,NN(2) ,MCBLOC(7) ,ADUMP(4000), 1 NPROG(2) ,NAME(2) ,NAMELL(2) ,ICORX(1) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /BLANK / BUF(3) COMMON /SYSTEM/ ISBUFF ,LP COMMON /PACKX / ITYPIN ,ITYPOT ,IFIRST ,ILAST , 1 INCR COMMON /PARMEG/ MCBK(7) ,MCBK11(7) ,MCBK21(7) ,MCBK12(7) , 1 MCBK22(7) ,LCORE ,IRULE COMMON /ZZZZZZ/ RZ(1) COMMON /NAMES / IRD ,IRDREW ,IWRT ,IWRTRW , 1 IREW ,INOREW ,IEFNRW ,IRSP , 2 IRDP ,ICSP ,ICDP ,ISQURE , 3 IRECT ,IDIAG ,IUPPER ,ILOWER , 4 ISYM COMMON /SOF / DITDUM(6) ,IODUM(8) ,MDIDUM(4) ,NXTDUM(15) , 1 DITUP ,MDIUP EQUIVALENCE (ICORX(1) ,RZ(1)) EQUIVALENCE (RZ(1) ,IZ(1)) DATA IPAPP , IPOAP /101 ,102 / DATA ISCR1 , ISCR2 ,ISCR3 ,ISCR4 ,ISCR5 , 1 ISCR6 , ISCR7 ,ISCR8 / 2 301 , 302 ,303 ,304 ,305 , 3 306 , 307 ,308 / DATA NPAPP , NPOAP ,NPVEC ,NPOVE , 1 NLOAP , NLODS / 2 4HPAPP, 4HPOAP ,4HPVEC ,4HPOVE , 3 4HLOAP, 4HLODS / DATA NPROG /4HLODA ,4HPP / DATA BLNK / 4H / C C INITIALIZE PARAMETERS C CALL TMTOGO (ITIME1) NAME(1) = BUF(1) NAME(2) = BUF(2) IDRY = BUF(3) NCORE = KORSZ(IZ(1)) C C INITIALIZE OPEN CORE - THERE ARE NIZ WORDS AVAILABLE C IB1 = NCORE - (ISBUFF+1) IB2 = IB1 - ISBUFF - 1 IB3 = IB2 - ISBUFF IBUF1= IB3 - ISBUFF NIZ = IBUF1 - 1 NSTART = 1 C C TEST CORE C NCHAVE = NIZ IF (NCHAVE .LE. 0) GO TO 7001 CALL SOFOPN (IZ(IB1),IZ(IB2),IZ(IB3)) C C CHECK STATUS OF SUBSTRUCTURE BEING REFERENCED - NAME C CALL SFETCH (NAME,NLODS,3,IGO) IF (IGO .EQ. 4) GO TO 7002 IF (IDRY .LT. 0) GO TO 1001 C C CHECK LOCATION OF THE PAPP VECTOR - EITHER ON FILE IPAPP OR SOF C IZ(1) = IPAPP CALL RDTRL (IZ(1)) IF (IZ(1) .GT. 0) GO TO 10 LPAPP = .FALSE. IUAPP = ISCR1 NITEM = NPAPP CALL MTRXI (IUAPP,NAME,NITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 7003 LPAPP = .TRUE. GO TO 20 10 LPAPP = .TRUE. IUAPP = IPAPP 20 CONTINUE C C CHECK STATUS OF THE POAP VECTOR C FIRST GET THE NAME OF THE LOWER LEVEL SUBSTRUCTURE WHERE C THE POAP ITEM TO BE USED IS LOCATED C LPOAP = .FALSE. LLSUB = .FALSE. CALL FNDLVL (NAME,NAMELL) IF (NAMELL(1) .EQ. BLNK) GO TO 7002 IF (NAME(1).NE.NAMELL(1) .OR. NAME(2).NE.NAMELL(2)) LLSUB = .TRUE. IF (.NOT.LLSUB) GO TO 40 IZ(1) = IPOAP CALL RDTRL (IZ(1)) IF (IZ(1) .GT. 0) GO TO 30 IUOAP = ISCR2 NITEM = NPOAP CALL MTRXI (IUOAP,NAMELL,NITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 40 LPOAP = .TRUE. GO TO 40 30 LPOAP = .TRUE. IUOAP = IPOAP 40 CONTINUE C C ESTABLISH TYPE OF CASE BEING RUN, I.E. THE CASE NO. BEING DEFINED C BY NN(1) AND NN(2). C NN(1) = 0 NN(2) = 0 C C CHECK STATUS OF PVEC AND POVE VECTORS C C 1) PVEC C LPVEC = .TRUE. IZ(1) = 0 CALL SOFTRL (NAME,NPVEC,IZ(1)) IF (IZ(1) .NE. 1) LPVEC = .FALSE. C C 2) POVE C LPOVE = .TRUE. IZ(1) = 0 IF (LLSUB) CALL SOFTRL (NAMELL,NPOVE,IZ(1)) IF (IZ(1) .NE. 1) LPOVE = .FALSE. C C KNOWING THE STATUS OF PAPP, PVEC, POAP, POVE DEFINE CASE NO. C IF (LPAPP) GO TO 50 NN(1) = 4 IF (LPVEC) NN(1) = 3 GO TO 60 50 NN(1) = 2 IF (LPVEC) NN(1) = 1 60 CONTINUE IF (LPOAP) GO TO 70 NN(2) = 4 IF (LPOVE) NN(2) = 3 GO TO 80 70 NN(2) = 2 IF (LPOVE) NN(2) = 1 80 IGO = NN(2) C C KNOWING NN(1) AND NN(2) THE CASE IS DEFINED C IF (NN(1) .EQ. 1) GO TO (1001,7004,7004,1001), IGO IF (NN(1) .EQ. 2) GO TO (7004,1001,7004,1001), IGO IF (NN(1) .EQ. 3) GO TO 7004 IF (NN(1) .EQ. 4) GO TO 7004 C C READ IN LOAP DATA C 1001 IRW = 1 CALL SFETCH (NAME,NLOAP,IRW,ITLOAP) IF (ITLOAP .GT. 1) GO TO 7003 CALL SUREAD (IZ(NSTART),-1,NWDS,ICHK) NL = IZ(NSTART+2) NS = IZ(NSTART+3) NFINI = 4 + NS*3 + NL NSTART = 5 + NS*2 NAS = 1 NAF = NFINI NCHAVE = NFINI NSUBS = NS IF (NCHAVE .GT. NIZ) GO TO 7001 NBASN = 4 + NSUBS*2 + 1 DO 90 ILOOP = 1,NSUBS CALL SUREAD (IZ(NBASN),-1,NWDS,ICHK) 90 NBASN = IZ(NBASN) + 1 + NBASN NSTART = NAF + 1 NPS = NSTART LMERG = .TRUE. C C IF DRY RUN (IDRY .LT. 0) CHECK FOR LODS ITEM C IF (IDRY .LT. 0) GO TO 1002 IF (LPVEC) GO TO 1002 C C SIMPLE COPY OF NEW APPENDED LOADS TO SOF C C NEW LODS ITEM C NITEM = NLODS LMERG = .FALSE. ITEST = 3 IRW = 2 CALL SFETCH (NAME,NITEM,IRW,ITEST) IF (ITEST .NE. 3) GO TO 7005 NWDS = 4 + 2*IZ(NAS+3) CALL SUWRT (IZ(NAS),NWDS,2) NBASN = NAS + NWDS DO 101 N = 1,NSUBS NWDS = IZ(NBASN) + 1 CALL SUWRT (IZ(NBASN),NWDS,2) NBASN = NBASN + NWDS 101 CONTINUE C C END OF ITEM CALL TO SUWRT C CALL SUWRT (0,0,3) C C NEW PVEC ITEM C CALL MTRXO (IUAPP,NAME,NPVEC,0,ITEST) C C NEW POVE ITEM IF ANY C CALL BUG (NPROG(1),101,LPOAP,1) IF (LPOAP) CALL MTRXO (IUOAP,NAMELL,NPOVE,0,ITEST) C C MODULE IS FINISHED WITH THE DIRECT COPY CASE C GO TO 7000 1002 CONTINUE C C ITS BEEN DETERMINED THAT A MERGE OPERATION WILL TAKE PLACE. THE C ONLY CHECK NOW IS TO SEE IF A LODS ITEM EXISTS. C IRW = 1 NITEM = NLODS CALL SFETCH (NAME,NITEM,IRW,ITLODS) IF (ITLODS.NE.1 .AND. IDRY.GT.0) GO TO 7003 IF (ITLODS.NE.1 .AND. IDRY.LT.0) GO TO 9999 CALL SUREAD (IZ(NSTART),-1,NWDS,ICHK) NCNT = NWDS + NAF NL = IZ(NPS+2) NS = IZ(NPS+3) NFINI= NPS + 3 + 3*NS + NL NPF = NFINI NSTART = NPF + 1 NCHAVE = NFINI IF (NCHAVE .GT. NIZ) GO TO 7001 NBASN = NPS + 3 + 2*NSUBS + 1 DO 91 ILOOP = 1,NSUBS CALL SUREAD (IZ(NBASN),-1,NWDS,ICHK) 91 NBASN = NBASN + IZ(NBASN) + 1 NLDSA = IZ(NAS+2) NLDSP = IZ(NPS+2) NLOADS= NLDSA + NLDSP NBASA = NAS + 3 + 2*NSUBS + 1 NBASP = NPS + 3 + 2*NSUBS + 1 NLBASA= IZ(NBASA) NLBASP= IZ(NBASP) C C CHECK FOR DUPLICATE LOAD IDS IN THE LOAP AND LODS ITEMS. C DO 102 L = 1,NSUBS IF (NLBASP .EQ. 0 .OR. NLBASA .EQ. 0) GO TO 104 DO 103 M = 1,NLBASA DO 103 N = 1,NLBASP IF( IZ(NBASA+M).NE.IZ(NBASP+N).OR.IZ(NBASA+M).EQ.0 ) GO TO 103 WRITE (LP,6955) UFM,IZ(NBASA+M),NAME 6955 FORMAT (A23,' 6955, DUPLICATE LOAD IDS DURING APPEND OPERATION.', 1 ' LOAD ID NO.',I9,' SUBSTRUCTURE ',2A4) IDRY = -2 103 CONTINUE 104 NBASA = NBASA + NLBASA + 1 NBASP = NBASP + NLBASP + 1 NLBASA = IZ(NBASA) NLBASP = IZ(NBASP) 102 CONTINUE C C END OF RUN IF A DRY RUN(IDRY .LT. 0) C IF (IDRY .LT. 0) GO TO 9999 C C CALCULATE LENGTH OF THE MERG AND N E W LODS TABLE AND THEIR C LOCATIONS IN OPEN CORE C LMERGT = 2*NSUBS NMERGS = NPF + 1 NMERGF = NPF + LMERGT LNEWLT = 4 + 3*NSUBS + NLOADS NNEWS = NMERGF + 1 NNEWF = NMERGF + LNEWLT C C CREATE THE NEW LODS TABLE IN OPEN CORE - GROUP 0 FIRST C IZ(NNEWS ) = IZ(NAS ) IZ(NNEWS+1) = IZ(NAS+1) IZ(NNEWS+2) = NLOADS IZ(NNEWS+3) = NSUBS NLOOP = 2*NSUBS NNEW1 = NNEWS + 3 NDEL1 = NAS + 3 DO 105 NS1 = 1,NLOOP 105 IZ(NNEW1+NS1) = IZ(NDEL1+NS1) C C COMPLETION OF THE NEW LODS TABLE - GROUPS 1 THRU NSUBS -- AND C CREATION OF THE MERGE TABLE C NBASN = NNEW1 + NLOOP + 1 NBASA = NAS + 3 + 2*NSUBS + 1 NBASP = NPS + 3 + 2*NSUBS + 1 NLOADA = IZ(NBASA) NLOADP = IZ(NBASP) NLOADN = NLOADA + NLOADP NMERGN = NMERGS IMERGN = 1 C C ZERO THE MERG TABLE LOCATION C DO 109 I = 1,LMERGT 109 IZ(NPF+I) = 0 DO 106 ILOOP = 1,NSUBS IZ(NBASN) = NLOADN IF (NLOADP .EQ. 0) GO TO 2108 DO 108 N = 1,NLOADP 108 IZ(NBASN+N) = IZ(NBASP+N) 2108 CONTINUE NBASN = NBASN + NLOADP IF (NLOADA .EQ. 0) GO TO 2107 DO 107 N = 1,NLOADA 107 IZ(NBASN+N) = IZ(NBASA+N) 2107 CONTINUE C C LOCATION IN THE MERGE TABLE OF THE 1(S) C IMERGN = IMERGN + NLOADP IZ(NMERGN) = IMERGN IMERGN = IMERGN + NLOADA IZ(NMERGN+1) = NLOADA NMERGN = NMERGN + 2 NBASN = NBASN + NLOADA + 1 IF (ILOOP .EQ. NSUBS) GO TO 106 NBASA = NBASA + NLOADA + 1 NBASP = NBASP + NLOADP + 1 NLOADA = IZ(NBASA) NLOADP = IZ(NBASP) NLOADN = NLOADA + NLOADP 106 CONTINUE C C END OF GENERATION OF NEW LODS ITEM AND CREATION OF MERGE TABLE C C CALCULATE BEGINNING LOCATION OF MERGE VECTOR IN OPEN CORE C NMRVCS = NNEWF + 1 NMERGN = NMERGS NMRVCN = NMRVCS - 2 LVECT = IZ(NNEWS+2) NMRVCF = NNEWF + LVECT NCHAVE = NMRVCF IF (NCHAVE .GT. NIZ) GO TO 7001 C C FILL THE MERGE VECTOR WITH 1(S) ACCORDING TO THE MERGE TABLE C C 1) ZERO FIRST C DO 112 I = 1,LVECT 112 RZ(NMRVCS-1+I) = 0. C C 2) NOW FILL C DO 110 ILOOP = 1,NSUBS IDRC1 = IZ(NMERGN) IDRC2 = IZ(NMERGN+1) IF (IDRC2 .EQ. 0) GO TO 2111 DO 111 N = 1,IDRC2 111 RZ(NMRVCN+IDRC1+N) = 1.0 2111 CONTINUE NMERGN = NMERGN + 2 110 CONTINUE C C WRITE THE MERGE VECTOR ON SCRATCH 5 USING PACK-SEE COMMON PACKX C THIS IS A COLUMN PARTITIONING VECTOR (REFERRED TO AS A ROW VECTOR C BY MERGE) C ITYPIN = 1 ITYPOT = 1 IFIRST = 1 ILAST = LVECT INCR = 1 CALL GOPEN (ISCR5,IZ(IBUF1),IWRTRW) C C ZERO THE TRAILER INFO. LOCATIONS C DO 116 I = 1,7 116 MCBLOC(I) = 0 MCBLOC(1) = ISCR5 MCBLOC(3) = LVECT MCBLOC(4) = IRECT MCBLOC(5) = IRSP CALL PACK (RZ(NMRVCS),ISCR5,MCBLOC(1)) CALL CLOSE (ISCR5,IREW) CALL WRTTRL (MCBLOC(1)) IDUMP = -ISCR5 CALL DMPFIL (IDUMP,ADUMP,4000) C C READ IN THE PVEC AND POVE(IF EXISTS) USING MTRXI C C 1) PVEC C IUVEC = ISCR3 CALL MTRXI (IUVEC,NAME,NPVEC,0,ICHK) C C 2) POVE C IUOVE = ISCR4 IF (LPOVE) CALL MTRXI (IUOVE,NAMELL,NPOVE,0,ICHK) C C SET UP TO CALL MERGE FOR PAPP AND PVEC C IDUMP = -IUVEC CALL DMPFIL (IDUMP,ADUMP,4000) IDUMP = -IUAPP CALL DMPFIL (IDUMP,ADUMP,4000) ICORE = NMRVCF + 1 IZ(ICORE) = ISCR5 CALL RDTRL (IZ(ICORE)) C C SETUP NULL ROW PARTITIONING VECTOR USING ISCR8 C THIS IS A ROW PARTITIONING VECTOR REFERRED TO AS A COLUMN VECTOR C BY MERGE) C MCBK11(1) = IUVEC CALL RDTRL (MCBK11(1)) MCBK12(1) = IUAPP CALL RDTRL (MCBK12(1)) DO 114 K = 1,7 MCBK21(K) = 0 114 MCBK22(K) = 0 IZ(ICORE+ 7) = ISCR8 IZ(ICORE+ 8) = 0 IZ(ICORE+ 9) = MCBK11(3) IZ(ICORE+10) = IRECT IZ(ICORE+11) = IRSP IZ(ICORE+12) = 0 IZ(ICORE+13) = 0 NCNT = ICORE +13 C CALL GOPEN (ISCR8,IZ(IBUF1),IWRTRW) ITYPIN = 1 ITYPOT = 1 IFIRST = 1 ILAST = 1 INCR = 1 CALL PACK (0,ISCR8,IZ(ICORE+7)) CALL CLOSE (ISCR8,IREW) CALL WRTTRL (IZ(ICORE+7)) LCORE = IB3 - ICORE - 15 I = ICORE + 15 IRULE = 0 MCBK(1) = ISCR6 MCBK(2) = MCBK11(2)+MCBK12(2) MCBK(3) = MCBK11(3) MCBK(4) = IRECT MCBK(5) = MCBK11(5) MCBK(6) = 0 MCBK(7) = 0 CALL MERGE (IZ(ICORE),IZ(ICORE+7),IZ(I)) CALL WRTTRL (MCBK(1)) C C SETUP TO MERGE POVE AND POAP(IF THEY EXIST) C IDUMP = -IUOVE CALL DMPFIL (IDUMP,ADUMP,4000) IDUMP = -IUOAP CALL DMPFIL (IDUMP,ADUMP,4000) IF (.NOT. LPOVE) GO TO 1005 MCBK11(1) = IUOVE CALL RDTRL (MCBK11(1)) MCBK12(1) = IUOAP CALL RDTRL (MCBK12(1)) DO 115 K = 1,7 MCBK21(K) = 0 115 MCBK22(K) = 0 IRULE = 0 MCBK(1) = ISCR7 MCBK(2) = MCBK11(2)+MCBK12(2) MCBK(3) = MCBK11(3) MCBK(4) = IRECT MCBK(5) = MCBK11(5) MCBK(6) = 0 MCBK(7) = 0 CALL MERGE (IZ(ICORE),IZ(ICORE+7),IZ(I)) CALL WRTTRL (MCBK(1)) C C CHECK TIME REMAINING AND RETURN WITH USER FATAL MESSAGE IF NOT C ENOUGH REMAINING C 1005 CALL TMTOGO (ITIME2) IF (ITIME2 .LE. 0) GO TO 7007 C C CALCULATE TIME USED IN REACHING THIS LOCATION C ITUSED = ITIME1 - ITIME2 C C CONTINUE IF ITIME2 IS GREATER THAN ITUSED C IF (ITIME2 .LT. ITUSED) GO TO 7007 C C WRITE NEW LODS ITEM TO SOF C C 1) DELETE OLD LODS ITEM C CALL DELETE (NAME,NLODS,ICHK) C C DELETE LODS ITEMS ON ANY SUBSTRUCTURE SECONDARY TO NAME - THIS C WILL ALLOW THE NEW LODS ITEM TO BE COPIED DURING FUTURE EQUIV C OPERATIONS C II = ITCODE (NLODS) CALL FDSUB (NAME,IND) CALL FMDI (IND,IMDI) IPS = ANDF(ICORX(IMDI+1),1023) IF (IPS .NE. 0) GO TO 118 117 ISS = ANDF(RSHIFT(ICORX(IMDI+1),10),1023) IF (ISS .EQ. 0) GO TO 118 CALL FMDI (ISS,IMDI) IBLK = ANDF(ICORX(IMDI+II),65535) IF (IBLK .NE. 0 .AND. IBLK .NE. 65535) CALL RETBLK (IBLK) ICORX(IMDI+II) = 0 MDIUP = .TRUE. GO TO 117 C C 2) BEGIN WRITING C 118 ICHK = 3 IRW = 2 CALL SFETCH (NAME,NLODS,IRW,ICHK) NWORDS = 4 + 2*IZ(NNEWS+3) CALL SUWRT (IZ(NNEWS),NWORDS,2) NBASN = NNEWS + NWORDS DO 113 N = 1,NSUBS NWORDS = IZ(NBASN) + 1 CALL SUWRT (IZ(NBASN),NWORDS,2) 113 NBASN = NBASN + NWORDS CALL SUWRT (0,0,3) C C WRITE NEW PVEC AND POVE(IF IT EXISTS) TO SOF C CALL DELETE (NAME,NPVEC,ICHK) CALL MTRXO (ISCR6,NAME,NPVEC,0,ICHK) IF (LPOVE) CALL DELETE (NAMELL,NPOVE,ICHK) IF (LPOVE) CALL MTRXO (ISCR7,NAMELL,NPOVE,0,ICHK) C WRITE (LP,6900) UIM,NAME 6900 FORMAT (A29,' 6900, LOADS HAVE BEEN SUCCESSFULLY APPENDED FOR ', 1 'SUBSTRUCTURE ',2A4) GO TO 9999 7000 WRITE (LP,6901) UIM,NAME 6901 FORMAT (A29,' 6901, ADDITIONAL LOADS HAVE BEEN SUCCESSFULLY ', 1 'MERGED FOR SUBSTRUCTURE ',2A4) GO TO 9999 7001 WRITE (LP,6951) UFM,NCHAVE 6951 FORMAT (A23,' 6951, INSUFFICIENT CORE TO LOAD TABLES', /5X, 1 'IN MODULE LODAPP, CORE =',I8) CALL MESAGE (-8,NPROG,0) C 7002 WRITE (LP,6952) SFM,NAME 6952 FORMAT (A25,' 6952, REQUESTED SUBSTRUCTURE ',2A4, 1 ' DOES NOT EXIST') IDRY = -2 GO TO 9999 7003 WRITE (LP,6101) SFM,NITEM,NAME 6101 FORMAT (A25,' 6101, REQUESTED SOF ITEM DOES NOT EXIST. ITEM ',A4, 1 ' SUBSTRUCTURE ',2A4) IDRY = -2 GO TO 9999 7004 WRITE (LP,6953) SFM,NAME 6953 FORMAT (A25,' 6953, A WRONG COMBINATION OF LOAD VECTORS EXISTS ', 1 'FOR SUBSTRUCTURE ',2A4) IDRY = -2 GO TO 9999 7005 WRITE (LP,6954) SFM,NITEM,NAME 6954 FORMAT (A25,' 6954, THE ,A4,62H ITEM EXISTS BUT HAS NO ', 1 'ASSOCIATED PVEC ITEM FOR SUBSTRUCTURE ',2A4) IDRY = -2 GO TO 9999 7007 WRITE (LP,6956) UFM,ITIME2 6956 FORMAT (A23,' 6956, INSUFFICIENT TIME REMAINING FOR MODULE ', 1 'LODAPP, TIME LEFT =',I8) IDRY = -2 9999 CONTINUE CALL SOFCLS C C RETURN VALUE OF DRY PARAMETER C BUF(3) = IDRY RETURN END ================================================ FILE: mis/logfil.f ================================================ SUBROUTINE LOGFIL (LINE) C DIMENSION LINE(18) C COMMON /LOGOUT/ LOUT C WRITE (LOUT, 2000) LINE RETURN C 2000 FORMAT (1X, 18A4) END ================================================ FILE: mis/loglog.f ================================================ SUBROUTINE LOGLOG (A,B,C,D,E,F) C C WRITTEN BY G.CHAN/UNISYS 7/92, THE 1992 SUMMER OLYMPIC WEEK C C LOG-LOG TABLE LOOKUP 10 +------+------+------+--+ C D * C INPUT : A,B, C,D, AND E 8 +------+-------/-----+--+ C OUTPUT: F / C / C ALL A,B,C,D,E,F IN LOG 4 +------+----/-+------+--+ C SCALE F * C / C LINEAR EVALUATION ON LOG 2 +------+-/-----+------+--+ C SCALE (NO POLYNOMIAL B * C EVALUATION) C 1 +------+------+------+--+ C 1 2A E 4 C 8 10 AA = ALOG10(A) BB = ALOG10(B) CC = ALOG10(C) - AA DD = ALOG10(D) - BB EE = ALOG10(E) - AA F = 10.**(EE*DD/CC + BB) RETURN C C ENTRY SMILOG (A,B,C,D,E,F) C ========================== C C SEMI-LOG TABLE LOOKUP 10 +--+--+--+--+--+--+--+--+--+ C D * C INPUT : A,B, C,D, AND E 8 +--+--+--+--+-/+--+--+--+--+ C OUTPUT: F / C / C A,C,E IN LINEAR SCALE 4 +--+--+--+-/+--+--+--+--+--+ C B,D,F IN LOG SCALE F * C / C 2 +--+--+-/+--+--+--+--+--+--+ C B * C C 1 +--+--+--+--+--+--+--+--+--+ C 0 1 2A 3E 4 C 6 7 8 9 BB = ALOG10(B) CC = C - A DD = ALOG10(D) - BB EE = E - A F = 10.**(EE*DD/CC + BB) RETURN C C ENTRY LOGSMI (A,B,C,D,E,F) C ========================== C C LOG-SEMI TABLE LOOKUP 10 +-----+-----+-----+--+ C D * C INPUT: A,B, C,D, AND E 8 +-----+-----+--/--+--+ C OUTPUT: F / C 6 +-----+-----+/----+--+ C A,C,E IN LOG SCALE / C B,D,F IN LINEAR SCALE 4 +-----+----/+-----+--+ C F * C 2 +-----+--/--+-----+--+ C B * C 0 +-----+-----+-----+--+ C 1 2 A E 4 C 8 10 AA = ALOG10(A) CC = ALOG10(C) - AA DD = D - B EE = ALOG10(E) - AA F = EE*DD/CC + B RETURN END ================================================ FILE: mis/lprops.f ================================================ SUBROUTINE LPROPS (G) C & ENTRY LPROPD (D) C C THIS ROUTINE RETURNS INTRINSIC LAYER PROPERTIES FOR C ALL LAYERS REFERENCING MAT1, MAT2 OR MAT8 PROPERTY C ENTRIES IN A STANDARD FORMAT AS REQUIRED FOR FILE PCOMPS C REAL G(25),MTYPE,NU12,NU21 DOUBLE PRECISION D(25),DONST COMMON /MATOUT/ RMTOUT(25) EQUIVALENCE (RMTOUT(1),E1),(RMTOUT(2),NU12),(RMTOUT(3),E2) C C SINGLE PRECISION - C DO 10 I=1,25 10 G(I) = 0.0 MTYPE = RMTOUT(25) MTYP = IFIX(MTYPE+.05) - 2 IF (MTYP) 20,30,60 C C**** C ISOTROPIC MATERIALS, MAT1 IN MAT2 FORMAT C C**** LAYER PROPERTY MATRIX C 20 CONTINUE C C**** C ANISOTROPIC MATERIALS, MAT2 C C**** LAYER PROPERTY MATRIX C 30 DO 40 I=1,3 40 G(I) = RMTOUT(I) G(5) = RMTOUT(4) G(6) = RMTOUT(5) G(9) = RMTOUT(6) G(4) = G(2) G(7) = G(3) G(8) = G(6) C C**** TRANSVERSE SHEAR FLEXIBILITY MATRIX DO 50 I=10,13 II = I - 9 50 G(I) = RMTOUT(II) G(12) = G(11) C C**** THERMAL COEFFICIENTS OF EXPANSION G(14) = RMTOUT( 8) G(15) = RMTOUT( 9) G(16) = RMTOUT(10) C C**** ULTIMATE STRENGTH VALUES G(17) = RMTOUT(13) G(18) = RMTOUT(13) G(19) = RMTOUT(14) G(20) = RMTOUT(14) G(21) = RMTOUT(15) G(22) = 0.0 C C*** RHO, TREF, GE G(23) = RMTOUT( 7) G(24) = RMTOUT(11) G(25) = RMTOUT(12) GO TO 160 C C**** C ORTHOTROPIC MATERIALS, MAT8 C C**** LAYER PROPERTY MATRIX C 60 NU21 = NU12 * E2 / E1 CONST= 1.0 - (NU21*NU12) G(1) = E1 / CONST G(2) = NU12 * E2 / CONST G(5) = E2 / CONST G(4) = G(2) G(9) = RMTOUT(4) C C**** TRANSVERSE SHEAR FLEXIBILITY MATRIX G(10) = RMTOUT(6) G(13) = RMTOUT(5) C C**** THERMAL COEFFICIENTS OF EXPANSION G(14) = RMTOUT(8) G(15) = RMTOUT(9) C C**** ULTIMATE STRENGTH VALUES G(17) = RMTOUT(11) G(18) = RMTOUT(12) G(19) = RMTOUT(13) G(20) = RMTOUT(14) G(21) = RMTOUT(15) G(22) = RMTOUT(17) C C*** RHO, TREF, GE G(23) = RMTOUT( 7) G(24) = RMTOUT(10) G(25) = RMTOUT(16) GO TO 160 C ENTRY LPROPD (D) C ================ C C DOUBLE PRECISION - C DO 100 I=1,25 100 D(I) = 0.0D0 MTYPE = RMTOUT(25) MTYP = IFIX(MTYPE+.05) - 2 IF (MTYP) 110,120,150 C C**** C ISOTROPIC MATERIALS, MAT1 IN MAT2 FORMAT C C**** LAYER PROPERTY MATRIX C 110 CONTINUE C C**** C ANISOTROPIC MATERIALS, MAT2 C C**** LAYER PROPERTY MATRIX C 120 DO 130 I=1,3 130 D(I) = RMTOUT(I) D(5) = RMTOUT(4) D(6) = RMTOUT(5) D(9) = RMTOUT(6) D(4) = D(2) D(7) = D(3) D(8) = D(6) C C**** TRANSVERSE SHEAR FLEXIBILITY MATRIX DO 140 I=10,13 II = I - 9 140 D(I) = RMTOUT(II) D(12) = D(11) C C**** THERMAL COEFFICIENTS OF EXPANSION D(14) = RMTOUT( 8) D(15) = RMTOUT( 9) D(16) = RMTOUT(10) C C**** ULTIMATE STRENGTH VALUES D(17) = RMTOUT(13) D(18) = RMTOUT(13) D(19) = RMTOUT(14) D(20) = RMTOUT(14) D(21) = RMTOUT(15) D(22) = 0.0D0 C C*** RHO, TREF, GE D(23) = RMTOUT( 7) D(24) = RMTOUT(11) D(25) = RMTOUT(12) GO TO 160 C C**** C ORTHOTROPIC MATERIALS, MAT8 C C**** LAYER PROPERTY MATRIX C 150 NU21 = NU12 * E2 / E1 DONST= 1.0D0 - DBLE(NU21*NU12) D(1) = E1 / DONST D(2) = NU12 * E2 / DONST D(5) = E2 / DONST D(4) = D(2) D(9) = RMTOUT(4) C C**** TRANSVERSE SHEAR FLEXIBILITY MATRIX D(10) = RMTOUT(6) D(13) = RMTOUT(5) C C**** THERMAL COEFFICIENTS OF EXPANSION D(14) = RMTOUT(8) D(15) = RMTOUT(9) C C**** ULTIMATE STRENGTH VALUES D(17) = RMTOUT(11) D(18) = RMTOUT(12) D(19) = RMTOUT(13) D(20) = RMTOUT(14) D(21) = RMTOUT(15) D(22) = RMTOUT(17) C C*** RHO, TREF, GE D(23) = RMTOUT( 7) D(24) = RMTOUT(10) D(25) = RMTOUT(16) C 160 RETURN END ================================================ FILE: mis/lsplin.f ================================================ SUBROUTINE LSPLIN(NI,XYI,ND,XYD,KY,KD,KT,DZ,DTX,DTY,DTOR, * G,NCORE,ISNG) LOGICAL IKT LOGICAL BNONE,BONE LOGICAL SPEC LOGICAL OXR,OYR LOGICAL BOTH LOGICAL STWO,SONE,NETHR INTEGER SIZE C DIMENSION XYI(1),XYD(1),G(1),NAME(2) DATA NAME/4HLSPL,4HIN / SPEC = .FALSE. BONE = .FALSE. BNONE = .FALSE. SONE = .FALSE. STWO = .FALSE. OXR = .FALSE. OYR = .FALSE. BOTH = .FALSE. IKT = .FALSE. NETHR = .TRUE. EY = FLOAT(KY) C C KY EFFECTS RIGID BODY ROWS AND COLUMNS OF A AND ROWS OF B C C DTX AND DTY EFFECT ROWS AND COLUMNS OF A AND ROWS OF B C C KD EFFECTS COLUMNS OF B C C SPEC GUARDS AGAINST SINGULAR MATRIX FOR ROTATIONS WITHOUT Y C CONSTRAINED C IF(KD .EQ. 0) BNONE = .TRUE. IF(KD .EQ. 1) BONE = .TRUE. IF(KY.EQ.-1) SONE = .TRUE. IF(KY.EQ.1) STWO = .TRUE. IF(KT.EQ.1) IKT = .TRUE. IF(DTX.LT.0.0) OXR = .TRUE. IF(DTY.LT.0.0) OYR = .TRUE. IF(OXR.AND.OYR) BOTH = .TRUE. IF(.NOT.OXR.AND..NOT.OYR) NETHR = .FALSE. DTOR2 = DTOR/2.0 NSC = 3 IF(KY.EQ.1) NSC = 2 IF(KY.EQ.-1) NSC = 1 SIZE = 3 IF(OXR) SIZE = SIZE-1 IF(OYR) SIZE = SIZE-1 IF(OYR.AND. KY.GT.-1) GO TO 5 GO TO 7 5 TEMP = XYI(1) SPEC = .TRUE. NII = 2*NI DO 6 I = 1,NII,2 IF(XYI(I) .NE. TEMP) SPEC = .FALSE. 6 CONTINUE 7 CONTINUE NCA = SIZE*NI + NSC IF(SPEC) NCA = NCA -1 NCA2= 2*NCA NCB = (KD+1) * ND NCC = SIZE*NI C C CORE NEEDED C A G INVERS NEEDED =NCA*NCA+ NCB*NCC + 3*NCA C B IF(IKT) NEEDED = NEEDED + NCB*NCA C C IF(.NOT.IKT) NEEDED = NEEDED + NCC*NCA IF(NEEDED .GT.NCORE) CALL MESAGE(-8,0,NAME) IS= NCORE -3*NCA-1 IG= 1 C C IF KT = 1 COMPUTE B THEN A THEN C IN THE SPACE OF A C C IF KT = 0 COMPUTE C THEN A THEN B IN THE SPACE OF A C IF(IKT) GO TO 100 C C FILL IN C MATRIX C IC = NCB * NCC MP = IC +1 10 DO 30 I = 1,NCC DO 20 J = 1,NCA IC = IC +1 G(IC) = 0.0 IF(I.EQ.J) G(IC) = 1.0 20 CONTINUE 30 CONTINUE IF(IKT) GO TO 300 NC = NCC IA = IC GO TO 200 C C B MATRIX C 100 IB = NCB * NCC MP = IB + 1 110 NJ = 2*ND NII= 2*NI DO 130 J=1,NJ,2 DO 120 I=1,NII,2 YM = XYD(J+1) - XYI(I+1) AYM= ABS(YM) AYMD = AYM*DTOR2 YP =(XYD(J+1) + XYI(I+1)) AYP= ABS(YP) * EY AYPD = AYP*DTOR2 IB= IB +1 G(IB) = AYM**3/12.0 - XYD(J)*XYI(I)*AYMD * + AYP**3/12.0 - XYD(J)*XYI(I)*AYPD IF(BNONE) GO TO 111 G(IB+NCA) = AYM*YM/4.0 + AYP*YP/4.0 IF(BONE) GO TO 111 G(IB+NCA2)= XYI(I)*AYMD + XYI(I)*AYPD 111 IF(BOTH) GO TO 120 IF(OXR) GO TO 113 IB=IB+1 G(IB) = -AYM*YM/4.0 + AYP*YP/4.0 IF(BNONE) GO TO 112 G(IB+NCA) = -AYM/2.0 + AYP/2.0 IF(BONE) GO TO 112 G(IB+NCA2) = 0.0 112 IF(OYR) GO TO 120 113 IB = IB +1 G(IB)= XYD(J)*AYMD + XYD(J)*AYPD IF(BNONE) GO TO 120 G(IB+NCA) = 0.0 IF(BONE) GO TO 120 G(IB+NCA2) = -AYMD - AYPD 120 CONTINUE IB = IB +1 IF(SONE) GO TO 123 G(IB) = 1.0 IF(BNONE) GO TO 121 G(IB+NCA) = 0.0 IF(BONE) GO TO 121 G(IB+NCA2) = 0.0 121 IF(STWO) GO TO 122 IB = IB +1 G(IB) = XYD(J+1) IF(BNONE) GO TO 122 G(IB+NCA) = 1.0 IF(BONE) GO TO 122 G(IB+NCA2) = 0.0 122 IF(SPEC) GO TO 128 IB = IB +1 G(IB) =-XYD(J) IF(BNONE) GO TO 128 G(IB+NCA) = 0.0 IF(BONE) GO TO 128 G(IB+NCA2) = 1.0 GO TO 128 123 G(IB) = XYD(J+1) IF(BNONE) GO TO 128 G(IB+NCA) = 1.0 IF(BONE) GO TO 128 G(IB+NCA2) = 0.0 128 IB = IB + KD*NCA 130 CONTINUE IF(.NOT.IKT) GO TO 400 IA = IB NC = NCB C C A MATRIX C 200 NII= 2*NI K = IA C C ZERO A C II = K+1 IK = II + NCA*NCA DO 210 I = II,IK 210 G(I) = 0.0 II = 0 DO 240 I = 1,NII,2 DO 230 J = I,NII,2 K = K+1 YP =(XYI(I+1) + XYI(J+1)) AYP = ABS(YP) * EY AYPD = AYP*DTOR2 YM = XYI(I+1) - XYI(J+1) AYM = ABS(YM) AYMD = AYM*DTOR2 G(K) = AYM**3/12.0 - XYI(I)*XYI(J)*AYMD * + AYP**3/12.0 - XYI(I)*XYI(J)*AYPD IF(I.EQ.J) G(K) = G(K) + DZ IF(BOTH) GO TO 230 IF(OXR) GO TO 212 G(K+NCA) = AYM*YM/4.0 + AYP*YP/4.0 IF(OYR) GO TO 214 G(K+NCA2) = XYI(I)*AYMD + XYI(I)*AYPD K = K+1 G(K) = -AYM*YM/4.0 + AYP*YP/4.0 G(K+NCA) = -AYM/2.0 + AYP/2.0 IF(I.EQ.J) G(K+NCA) = G(K+NCA) + DTX G(K+NCA2) = 0.0 K = K+1 G(K) = XYI(J)*AYMD + XYI(J)*AYPD G(K+NCA) = 0.0 G(K+NCA2) = -AYMD - AYPD IF(I.EQ.J) G(K+NCA2) = G(K+NCA2) + DTY GO TO 230 212 G(K+NCA) = XYI(I)*AYMD + XYI(I)*AYPD K = K+1 G(K) = XYI(J)*AYMD + XYI(J)*AYPD G(K+NCA) = -AYMD - AYPD IF(I.EQ.J) G(K+NCA) = G(K+NCA) + DTY GO TO 230 214 K = K+1 G(K) = -AYM*YM/4.0 + AYP*YP/4.0 G(K+NCA) = -AYM/2.0 + AYP/2.0 IF(I.EQ.J) G(K+NCA) = G(K+NCA) + DTX 230 CONTINUE K = K+1 IF(SONE) GO TO 234 G(K) = 1.0 IF(BOTH) GO TO 231 G(K+NCA) = 0.0 IF(NETHR) GO TO 231 G(K+NCA2) = 0.0 231 IF(STWO) GO TO 232 K = K+1 G(K) = XYI(I+1) IF(BOTH) GO TO 232 IF(OXR) G(K+NCA) = 0.0 IF(OYR) G(K+NCA) = 1.0 IF(NETHR) GO TO 232 G(K+NCA) = 1.0 G(K+NCA2) = 0.0 232 IF(SPEC) GO TO 238 K = K+1 G(K) = -XYI(I) IF(BOTH) GO TO 238 IF(OXR) G( K+NCA) = 1.0 IF(OYR) G( K+NCA) = 0.0 IF(NETHR) GO TO 238 G( K+NCA) = 0.0 G( K+NCA2) = 1.0 GO TO 238 234 G(K) = XYI(I+1) IF(BOTH) GO TO 238 IF(OXR) G( K+NCA) = 0.0 IF(OYR) G( K+NCA) = 1.0 IF(NETHR) GO TO 238 G( K+NCA) = 1.0 G( K+NCA2) = 0.0 238 II = II+1 K = K + SIZE*II + (SIZE-1)*NCA 240 CONTINUE C C LOWER TRIANGLE IF A STORED TRANSPOSE INTO UPPER TRIANGLE C K = IA DO 260 I = 1,NCA DO 250 J = I,NCA K = K+1 KK = K + (NCA-1)*(J-I) G(KK) = G(K) 250 CONTINUE K = K+I 260 CONTINUE C C CALL INVERSE A-1 C OR A-1 B C C REPLACE CALLS TO INVAER WITH CALLS TO INVERS. C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISNG = -1 CALL INVERS(NCA,G(IA+1),NCA,G(MP),NC,DET,ISNG,G(IS)) IF(ISNG.EQ.2) GO TO 1000 C C ADJUST INDEXES TO A AND A-1 RESULT C IB = IA ICB= IB+1 IF(.NOT.IKT) GO TO 110 IC = IA ICC = IC +1 GO TO 10 300 CALL GMMATS(G(MP),NCB,NCA,0,G(ICC),NCC,NCA,1,G(IG)) GO TO 1000 400 CALL GMMATS(G(MP),NCC,NCA,0,G(ICB),NCB,NCA,1,G(IG)) 1000 RETURN END ================================================ FILE: mis/machck.f ================================================ SUBROUTINE MACHCK (*) C C NEW MACHINE COMPATIBILITY CHECK C THIS ROUTINE IS CALLED ONCE ONLY BY XSEM01 IF DEBUG FLAG IS ON C C FOR LINK1 DEBUG PURPOSE, PRINT OUT GOES TO UNIT 6, NOT NOUT C C WRITTEN BY G.CHAN/UNISYS 5/1991 C C NEXT LINE IS NEEDED FOR HP WORKSTATION. THE $ STARTS ON COLUMN 1 C C $MIXED_FORMATS C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT INTEGER AR(5) REAL XX COMPLEX E,D,F CHARACTER L21(5)*1,L2*8,RV*8 CHARACTER UFM*23,UWM*25,UIM*29,UIMX*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /SEM / MASK COMMON /SYSTEM/ SYSBUF,NOUT,NOGO,DUMM1(11),DATE(3),DUMM2(13), 1 HICORE,TIMEW,DUMM3(62),SPERLK COMMON /MACHIN/ MACHX,IJHALF(2),LQRO,MCHNAM COMMON /LHPWX / LOWPW,HIGHPW COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (S,Z(1)) EQUIVALENCE (L21(1),L2),(XX,IX) DATA I,J,K / 4HABCD, 4H1234, 4HA3CD /, 1 D,E / (1.0,-2.0), (-3.0,4.0) /, 2 L1,BT / 4HWORD, 4HBYTE /, 3 IA,IR / 4HA , 4HR /, 4 L2,RV / 'NATURAL ', 'REVERSED' /, 5 AS,DS / 3H AS, 3HDES / DATA UIMX / '0*** USER INFORMATION MESSAGE' / C NOGO = 0 IF (UIMX .EQ. UIM) GO TO 20 NOGO = 1 WRITE (6,10) 10 FORMAT (/,' -LINK1 DEBUG- SEMDBD DATA BLOCK NOT LOADED CORRECTLY') C C CALL BTSTRP TO INITIALIZE MACHINE CONSTANTS C 20 WRITE (6,30) 30 FORMAT (/,' -LINK1 DEBUG- MACHCK CALLING BTSTRP NEXT') CALL BTSTRP C WRITE (6,40) 40 FORMAT ( ' -LINK1 DEBUG- CHARACTER, SHIFT AND COMPLEX CHECKS') L = KHRFN1(I,2,J,3) IF (L .EQ. K) GO TO 60 NOGO = 2 WRITE (6,50) I,J,K,L 50 FORMAT (' * KHRFN1 ERROR I,J,K,L =',4(1X,A4)) 60 I = 128 J = LSHIFT(I,2) K = RSHIFT(I,2) IF (J.EQ.512 .AND. K.EQ.32) GO TO 80 NOGO = 3 WRITE (6,70) 70 FORMAT (' * LSHIFT AND/OR RSHIFT ERROR') C C JUMP TO 100 IF MACHINE DOES NOT HAVE ISHFT FUNCTION C 80 J = ISHFT(I,+2) K = ISHFT(I,-2) IF (J.EQ.512 .AND. K.EQ.32) GO TO 110 NOGO = 4 IF (J .NE. 512) WRITE (6,90) IF (K .NE. 32) WRITE (6,100) 90 FORMAT (' * ISHFT(+) NOT SAME AS LSHIFT') 100 FORMAT (' * ISHFT(-) NOT SAME AS RSHIFT') C C CHECK ISHFT IS ZERO-FILL C 110 I = -1 J = ISHFT(I,-1) K = ISHFT(I,+1) IF (J.GT.0 .AND. MOD(K,2).EQ.0) GO TO 130 NOGO = 5 WRITE (6,120) 120 FORMAT (' * SYSTEM ISHFT IS NOT ZERO-FILL') C C CHECK K2B SUBROUTINE C 130 CALL K2B (L21,AR,5) IF (AR(2).EQ.IA .AND. AR(5).EQ.IR) GO TO 150 NOGO = 6 WRITE (6,140) AR(2),AR(5) 140 FORMAT (' * K2B ERROR A,R ==',2A4) C C COMPLEX NUMBER CHECK C 150 F = D*E DR = REAL (D) DI = AIMAG(D) ER = REAL (E) EI = AIMAG(E) A = DR*ER - DI*EI B = DR*EI + DI*ER IF (ABS(A-REAL(F)).LE..01 .AND. ABS(B-AIMAG(F)).LE..01) GO TO 170 NOGO = 7 WRITE (6,160) 160 FORMAT (' * COMPLEX ERROR') 170 IF (MASK .EQ. 65535) GO TO 190 NOGO = 8 WRITE (6,180) 180 FORMAT (' * LABEL COMMON /SEM/ ERROR') 190 IF (SPERLK.EQ.1 .OR. SPERLK.EQ.0) GO TO 210 NOGO = 9 WRITE (6,200) 200 FORMAT (' * LABEL COMMON /SYSTEM/ ERROR') 210 IF (NOGO .EQ. 0) WRITE (6,220) 220 FORMAT (' OK') C C LOGICAL 'AND' AND 'OR' CHECK. C SYSTEM MAY NAME THESE FUNCTIONS - 'IAND', 'IOR', OR 'AND', 'OR' C IF UNSATISFIED EXTERNALS OCCUR, FIX THEM HERE AND IN MAPFNS.MDS C WRITE (6,230) 230 FORMAT (' LOGICAL "AND" AND "OR" CHECK. IF ERROR OCCURS, ', 1 'SEE MACHCK') K = IAND(I,J) K = IOR(I,J) WRITE (6,220) C C CHECK DATE AND TIME, ALREADY SAVED IN /SYSTEM/ BY NASTRN OR NAST01 C C TIME IS SYSTEM CPU TIME, COMMONLY IN 1/60 SECONDS ACCURCY C IF UNSATISFIED EXTERNALS OCCUR, FIX THEM IN TDATE, KLOCK, WALTIM, C CPUTIM, AND/OR SECNDS(IN MAPFNS) SUBROUTINES C WRITE (6,240) 240 FORMAT (' DATE AND TIME CHECKS. IF ERROR OCCURS, SEE MACHCK') I = TIMEW/3600 J = (TIMEW-I*3600)/60 K = TIMEW - I*3600 - J*60 WRITE (6,250) DATE,I,J,K 250 FORMAT (' -MONTH/DAY/YEAR = ',I2,1H/,I2,1H/,I2, 3X, 1 ' -HOUR:MIN:SEC = ',I2,':',I2,':',I2) IF (DATE(1).GT.12 .OR. DATE(3).GT.1000) WRITE (6,260) 260 FORMAT (' * SYSTEM DATE SHOULD BE IN mm,dd,yy', 1 ' ORDER <===') C R = MOD(LQRO,100)/10 IF (R .GT. 1) L1 = BT IF (MOD(LQRO,10) .EQ. 1) L2 = RV WRITE (6,270) MACHX,MCHNAM,L1,L2,SYSBUF,LQRO 270 FORMAT (/,' -MACHINE =',I3,2H, ,A4,', RECL BY ',A4, 1 'S, BCD WORD IN ',A8,' ORDER,', /3X,'SYSBUF =',I7, 2 ' WORDS, LQRO =',I7) C C OPEN A DIRECT FILE, FORTRAN UNIT 41, AND TEST FOR RECORD LENGTH C I = SYSBUF - 3 IF (MACHX.EQ.3 .OR. MACHX.GE.5) I = SYSBUF - 4 I = I*R OPEN (UNIT=41,ACCESS='DIRECT',RECL=I,STATUS='SCRATCH',ERR=310) WRITE (41,REC=1,ERR=280) (Z(J),J=1,I) GO TO 300 280 IF (R .GT. 1) GO TO 300 NOGO = 10 WRITE (6,290) R 290 FORMAT (' * FORTRAN I/O RECORD LENGTH IN BTSTRP MAY BE IN ERROR.', 1 5X,'R =',I4) 300 CLOSE (UNIT=41) C C CHECK OPEN CORE IN MEMORY ** NEW, NEXT 28 C 310 J = 11 I = LOCFX(Z(J)) J = LOCFX(Z(1)) K = AS IF (I .LT. J) K = DS WRITE (6,320) K,J,I 320 FORMAT (' * SYSTEM MEMORY IN ',A3,'CENDING ORDER',I15,'==>',I12) C C CHECK WHETHER NUMTYP.MIS IS SET UP FOR THIS CURRENT MACHINE C K = 123 IF (NUMTYP(K) .NE. 1) NOGO = 11 C C CHECK /SOFPTR/ LOCATION WITH RESPECT TO /ZZZZZZ/ LOCATION HERE IF C AND ONLY IF CURRENT NASTRAN VERSION STILL USES /SOFPTR/, AND C SET K = 1 C K J I I J K C ---+-+----------+ OR ---+----------+-+ C ASCENDING DECENDING C K = 0 IF (K .NE. 1) GO TO 340 C K = LOCFX(S) IF (I.GT.J .AND. K.GT.J) WRITE (6,330) IF (I.LT.J .AND. K.LT.J) WRITE (6,330) 330 FORMAT (' * COMMONS /SOFPTR/ AND /ZZZZZZ/ POSITIONS SHOULD BE ', 1 'REVERSED IN OPNCOR.MDS') C C CHECK S.P. NUMERIC RANGE C 340 IF (10.0**(LOWPW+1).GE.0.0 .AND. 10.0**(HIGHPW-1).GT.10.0**36) 1 GO TO 360 NOGO = 12 WRITE (6,350) LOWPW,HIGHPW 350 FORMAT (' * MACHINE NUMERIC RANGE, 10.**',I3,' THRU 10.**',I2, 1 ' SET BY BTSTRP, EXCEEDS MACHINE LIMIT.') C C CHECK FORTRAN MIXED FORMAT WRITE USED IN SUBOURINTE OFPPNT OF THE C OFP MODULE. C DEC/ULTRIX FORTRAN 3.0 (1992) FAILS ON THIS TEST. C 360 IX = 123456 WRITE (6,370,ERR=380) XX 370 FORMAT (/,I10) 380 WRITE (6,390) 390 FORMAT (' IF 123456 IS NOT PRINTED ON ABOVE LINE, MIXED FORMAT ', 1 'PRINT OUT IS NOT', /1X, 2 'ALLOWED, AND NASTRAN OFP MODULE MAY NOT WORK PROPERLY') C C CHECK OPEN CORE C J = 5000 Z(J) = 1 Z(HICORE) = 2 C IF (NOGO .NE. 0) GO TO 410 WRITE (6,400) UIM 400 FORMAT (A29,', MACHINE COMPATIBILITY CHECK ROUTINE FINDS NO ', 1 /5X,'SIGNIFICANT SYSTEM ERROR') RETURN 1 C 410 WRITE (6,420) UIM,NOGO 420 FORMAT (A29,' * ERROR IN MACHCK. NOGO =',I3) CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/magbdy.f ================================================ SUBROUTINE MAGBDY C C THIS ROUTINE PICKS UP THE GRIDS ON THE AIR/IRON INTERFACES C FROM A PERMBDY CARD,CONVERTS EXTERNAL TO INTERNAL SILS, AND C STORES RESULTS ON PERMBD WHICH IS READ IN SSG1. SSG1 WILL NEED TO C COMPUTE MAGNETIC LOADS ONLY AT THESE POINTS. C C MAGBDY GEOM1,HEQEXIN/PERMBD/V,N,IPG $ C INTEGER BUF1,FILE,GEOM1,EQEXIN,PERMBD,SYSBUF,PERMBY(2) DIMENSION IZ(1),NAM(2),MCB(7) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IOUT COMMON /BLANK / IPG COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)) DATA NAM / 4HMAGB,4HDY / DATA GEOM1 , EQEXIN,PERMBD/101,102,201/ DATA PERMBY/ 4201,42 / C LCORE = KORSZ(Z) BUF1 = LCORE - SYSBUF LCORE = BUF1 - 1 IF (LCORE .LE. 0) GO TO 1008 C C SEE IF A PERMBDY CARD EXISTS C IPG = -1 FILE = GEOM1 CALL PRELOC (*1001,Z(BUF1),GEOM1) CALL LOCATE (*10,Z(BUF1),PERMBY,IDX) IPG = 1 GO TO 20 C C NO PERMBDY CARD - RETURN C 10 CALL CLOSE (GEOM1,1) RETURN C C READ PERMBDY INTO CORE C 20 CALL READ (*1002,*30,GEOM1,Z,LCORE,0,NPTS) GO TO 1008 30 CALL CLOSE (GEOM1,1) C C READ IN 1ST RECORD OF EQEXIN C LCORE = LCORE - NPTS IEQEX = NPTS CALL GOPEN (EQEXIN,Z(BUF1),0) FILE = EQEXIN CALL READ (*1002,*40,EQEXIN,Z(IEQEX+1),LCORE,0,NEQ) GO TO 1008 40 CALL CLOSE (EQEXIN,1) NGRIDS = NEQ/2 LCORE = LCORE - NEQ C C GET THE INTERNAL NUMBER (=SIL NUMBER FOR HEAT TRAMSFER)FOR EACH C POINT ON PERMBDY AND STORE IT BACK ONTO EXTERNAL NUMBER,SINCE THE C EXTERNAL IS NO LONGER NEEDED C DO 50 I = 1,NPTS CALL BISLOC (*60,IZ(I),IZ(IEQEX+1),2,NGRIDS,JLOC) IZ(I) = IZ(IEQEX+JLOC+1) 50 CONTINUE GO TO 70 C 60 WRITE (IOUT,65) UFM,IZ(I) 65 FORMAT (A23,', GRID',I9,' ON PERMBDY CARD DOES NOT EXIST') CALL MESAGE(-61,0,0) C C WRITE THESE INTERNAL ID-S ONTO PERMBD C 70 CALL GOPEN (PERMBD,Z(BUF1),1) CALL WRITE (PERMBD,IZ(1),NPTS,1) CALL CLOSE (PERMBD,1) MCB(1) = PERMBD MCB(2) = NPTS DO 80 I = 3,7 80 MCB(I) = 0 CALL WRTTRL(MCB) C RETURN C 1001 N =-1 GO TO 1010 1002 N =-2 GO TO 1010 1008 N =-8 FILE = 0 1010 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/magpha.f ================================================ SUBROUTINE MAGPHA( A, B ) C***** C THIS SUBROUTINE FORMS THE MAGNITUDE OF (A,B) AND STORES IT IN A... C THE PHASE OF (X=A, Y=B) IS THEN FORMED AND THE RESULT STORED IN B... C***** COMMON /CONDAS/ CONSTS(5) C EQUIVALENCE ( CONSTS(3) , RADEG ) C VALUE = SQRT( A**2 + B**2 ) IF( VALUE ) 10,20,10 10 PHASE = ATAN2( B, A ) * RADEG GO TO 30 20 PHASE = 0.0E0 GO TO 40 30 IF( PHASE .LT. (-0.00005E0) ) PHASE = PHASE + 360.0E0 40 A = VALUE B = PHASE RETURN END ================================================ FILE: mis/makmcb.f ================================================ SUBROUTINE MAKMCB (MCB,IFILE,IROW,IF,IT) C INTEGER MCB(7) C MCB(1) = IFILE MCB(2) = 0 MCB(3) = IROW MCB(4) = IF MCB(5) = IT MCB(6) = 0 MCB(7) = 0 C RETURN C END ================================================ FILE: mis/mapset.f ================================================ SUBROUTINE MAPSET(X1,Y1,X2,Y2,KI1,KJ1,KI2,KJ2,L) C C POINT 1 IS LOWER LEFT CORNER OF FRAME C POINT 2 IS UPPER RIGHT CORNER OF FRAME C I,J ARE IN PLOTTER UNITS C X,Y ARE IN PHYSICAL UNITS C L IS OUTPUT FLAG, 1=I,J ARE INTEGER, 2=I,J ARE REAL C EQUIVALENCE (I1,ZI1),(J1,ZJ1),(I2,ZI2),(J2,ZJ2) EQUIVALENCE (I,ZI),(J,ZJ) C I1=KI1 J1=KJ1 I2=KI2 J2=KJ2 LL=L C IF(L.EQ.2) GO TO 100 A=FLOAT(I2-I1)/(X2-X1) B=FLOAT(I1)-A*X1 C=FLOAT(J2-J1)/(Y2-Y1) D=FLOAT(J1)-C*Y1 RETURN 100 A=(ZI2-ZI1)/(X2-X1) B=ZI1-A*X1 C=(ZJ2-ZJ1)/(Y2-Y1) D=ZJ1-C*Y1 RETURN C C C*********************************************************************** C ENTRY MAP(X,Y,KI,KJ) IF(LL.EQ.2) GO TO 200 I=A*X+B+0.5 J=C*Y+D+0.5 GO TO 300 200 ZI=A*X+B ZJ=C*Y+D 300 KI=I KJ=J RETURN C END ================================================ FILE: mis/maskn.f ================================================ FUNCTION MASKN (L2,L1) C C TO BUILD AN INTEGER MASK FOR BIT MANIPULATION C 0 OR C 64 60 48 36 32 <--- BIT COUNT --- 1 C +---+---------+------+----+-------------------------------------+ C ... .... .... ... ....00000011111111111111111111000... C +---+---------+------+----+-------------------------------------+ C / / C L2 L1 C C BIT COUNTS FROM RIHGT (L1) TO LEFT (L2). L1=0 IS SAME AS L1=1 C C E.G. L2 L1 MASK PATTERN, WITH LEADING ZERO BITS C ---- ---- ------------------------------------------ C 12 0 A 12 BIT MASK, RIGHT ADJUSTED C 24 8 A 24 BIT MASK, RIGHT ADJUSTED, WITH 8 C TRAILING ZERO BITS. C C THIS ROUTINE IS SUITABLE FOR MACHINE WORD OF ANY BIT SIZE C BIT PATTERN CAN ALSO INCLUDE SIGN BIT. C SYSTEM MASK ROUINTE, IF IT EXISTS, IS NOT USED. C C WRITTEN BY G.CHAN/UNISYS 10/1992 C EXTERNAL RSHIFT,LSHIFT INTEGER RSHIFT C IF (L2 .LT. L1) CALL ERRTRC ('MASKN ',L2-L1) MASKN = LSHIFT(1,L2) - 1 IF (L1 .GT. 1) MASKN = LSHIFT(RSHIFT(MASKN,L1-1),L1-1) RETURN END ================================================ FILE: mis/masstq.f ================================================ SUBROUTINE MASSTQ(NARG) C ****************************************************************** C E C P T L I S T I N G S C ************************** C MTWIST MQDMEM MTRMEM C MSHEAR MQUAD1 MQUAD2 MTRIA1 MTRBSC MTRIA2 C ********************************************************************** C ECPT( 1)ELEM. ID ELEM. ID ELEM. ID ELEM. ID ELEM. ID ELEM. ID C ECPT( 2)GR.PT. A GR.PT. A GR.PT. A GR.PT. A GR.PT. A GR.PT. A C ECPT( 3)GR.PT. B GR.PT. B GR.PT. B GR.PT. B GR.PT. B GR.PT. B C ECPT( 4)GR.PT. C GR.PT. C GR.PT. C GR.PT. C GR.PT. C GR.PT. C C ECPT( 5)GR.PT. D GR.PT. D GR.PT. D THETA THETA THETA C ECPT( 6)MAT ID THETA THETA MAT ID 1 MAT ID 1 MAT ID C ECPT( 7)T MAT ID 1 MAT ID T1 I T C ECPT( 8)N S MASS T1 T MAT ID 2 MAT ID 2 NS MASS C ECPT( 9)CSID 1 MAT ID 2 N S MASS I T2 CSID 1 C ECPT(10)X1 I CSID 1 MAT ID 3 N S MASS X1 C ECPT(11)Y1 MAT ID 3 X1 T2 Z1 Y1 C ECPT(12)Z1 T2 Y1 N S MASS Z2 Z1 C ECPT(13)CSID 2 N S MASS Z1 Z1 CSID 1 CSID 2 C ECPT(14)X2 Z1 CSID 2 Z2 X1 X2 C ECPT(15)Y2 Z2 X2 CSID 1 Y1 Y2 C ECPT(16)Z2 CSID 1 Y2 X1 Z1 Z2 C ECPT(17)CSID 3 X1 Z2 Y1 CSID 2 CSID 3 C ECPT(18)X3 Y1 CSID 3 Z1 X2 X3 C ECPT(19)Y3 Z1 X3 CSID 2 Y2 Y3 C ECPT(20)Z3 CSID 2 Y3 X2 Z2 Z3 C ECPT(21)CSID 4 X2 Z3 Y2 CSID 3 TEMP C ECPT(22)X4 Y2 CSID 4 Z2 X3 C ECPT(23)Y4 Z2 X4 CSID 3 Y3 C ECPT(24)Z4 CSID 3 Y4 X3 Z3 C ECPT(25)TEMP X3 Z4 Y3 TEMP C ECPT(26) Y3 TEMP Z3 C ECPT(27) Z3 TEMP C ECPT(28) CSID 4 C ECPT(29) X4 C ECPT(30) Y4 C ECPT(31) Z4 C ECPT(32) TEMP C ********************************************************************** C DOUBLE PRECISION MASS DIMENSION NECPT (7) LOGICAL HEAT COMMON /SMA2HT/ HEAT COMMON /HMTOUT/ CP COMMON /MATIN/ MATID,INFLAG,ELTEMP COMMON /MATOUT/ RHO C COMMON /MATOUT/RHO COMMON /SMA2ET/ ECPT(100) COMMON /SMA2IO/ DUM4(10),IFMGG,DUMXX(1), IFBGG COMMON /SMA2CL/ IOPTB, BGGIND, NPVT COMMON /SMA2DP/ MASS(36) ,V1(3) 1 ,V1XV2(3) ,V2(3) 2 ,TERM 3 ,T ,FMU 4 ,NPT1 ,NPT3 5 ,NPT2 ,NPT4 6 ,ISUB1 ,ISUB3 7 ,ISUB2 ,NCSID 8 ,ICHEK ,NTYPE 9 ,NPIVOT ,AREA T ,DUMMY(504) EQUIVALENCE ( NECPT(1) , ECPT(1) ) EQUIVALENCE (IFLAG , ECPT(8) ) DATA PI23/2.0943952/ C C THIS ROUTINE COMPUTES A MASS MATRIX OF THE FOLLOWING FORM. C C TERM 0 0 0 0 0 C 0 TERM 0 0 0 0 C 0 0 TERM 0 0 0 C MASS MATRIX = 0 0 0 0 0 0 C 0 0 0 0 0 0 C 0 0 0 0 0 0 C C ******************* C NTYPE = 1 -MQDMEM- C NTYPE = 1 -MQUAD2- C NTYPE = 2 -MQUAD1- C NTYPE = 3 -MTRBSC- C NTYPE = 3 -MTRPLT- C NTYPE = 4 -MTRMEM- C NTYPE = 4 -MTRIA2- C NTYPE = 5 -MTRIA1- C NTYPE = 6 -MSHEAR- C NTYPE = 6 -MTWIST- C NTYPE = 7 -MQDPLT- C ******************* C NTYPE = NARG C C -MQDMEM- -MTRPLT-MTRMEM- -MTWIST- C -MQUAD2-MQUAD1-MTRBSC-MTRIA2-MTRIA1-MSHEAR-MQDPLT- GO TO(10,20,30,40,50,60,70),NTYPE C 10 NCSID = 10 MATID = NECPT(7) T = ECPT(8) FMU = ECPT(9) GO TO 80 C 20 NCSID = 16 MATID = NECPT(7) T = ECPT(8) FMU = ECPT(13) GO TO 80 C 30 NCSID = 13 MATID = NECPT( 6) T = 0.0E0 FMU = ECPT(10) GO TO 80 C 40 NCSID = 9 MATID = NECPT(6) T = ECPT(7) FMU = ECPT(8) GO TO 80 C 50 NCSID = 15 MATID = NECPT( 6) T = ECPT( 7) FMU = ECPT(12) GO TO 80 60 NCSID = 9 MATID = NECPT(6) T = ECPT(7) FMU = ECPT(8) GO TO 80 70 NCSID = 14 MATID = NECPT(7) T = 0.0E0 FMU = ECPT(11) C C 30 COMPUTE PIVOT TRIANGLE AREA C C FIRST SET UP THE POINTERS TO THE CSID OF THE 3 POINTS FROM THE C BASE CSID C 80 NPT1 = 0 NPT2 = 4 NPT3 = 8 IF(NTYPE.GE.3 .AND. NTYPE.LE.5) GO TO 140 ICHEK = 1 C SELECT 3 POINTS FOR THE PIVOT TRIANGLE OF A QUADRILATERAL C FIND PIVOT NUMBER FIRST DO 90 I=1,4 IF( NPVT .NE. NECPT(I + 1) ) GO TO 90 NPIVOT = I GO TO 100 90 CONTINUE C C ERROR IF FALL THRU ABOVE LOOP C CALL MESAGE(-30,34,ECPT(1)) RETURN C C 100 IF(NPIVOT - 2) 110,140,120 110 NPT3 = 12 GO TO 140 120 IF(NPIVOT .EQ. 3) GO TO 130 NPT2 = 12 GO TO 140 130 NPT1 = 12 C C ABOVE LOGIC SETS THE 3 POINTS FOR THE PIVOT TRIANGLE OF A QUAD. C 140 DO 150 I=1,3 ISUB1 = NCSID + NPT1 + I ISUB2 = NCSID + NPT2 + I ISUB3 = NCSID + NPT3 + I V1(I) = ECPT(ISUB3) - ECPT(ISUB1) 150 V2(I) = ECPT(ISUB3) - ECPT(ISUB2) C C COMPUTE AREA OF QUAD OR TRI USING V1 AND V2 AREA = 0.0E0 C 160 V1XV2(1) = V1(2) * V2(3) - V1(3) * V2(2) V1XV2(2) = V1(3) * V2(1) - V1(1) * V2(3) V1XV2(3) = V1(1) * V2(2) - V1(2) * V2(1) C AREA = AREA + SQRT(V1XV2(1)**2 + V1XV2(2)**2 + V1XV2(3)**2)/2.0E0 C IF( NTYPE .GT. 2 .AND. NTYPE .LT. 6 ) GO TO 190 IF( ICHEK ) 170,190,170 C C COMPUTE AREA OF WHOLE QUAD, FIRST SET UP V1 + V2 THEN TRA TO 600. C 170 IF ( NARG .NE. 1 .OR. IFLAG .NE. 1 ) GO TO 175 ISUB1 = NCSID + NPT1 + 1 ISUB2 = NCSID + NPT2 + 1 ISUB3 = NCSID + NPT3 + 1 T = PI23 * ( ECPT(ISUB1) + ECPT(ISUB2) + ECPT(ISUB3) ) 175 NPT1 = NCSID NPT2 = NCSID + 4 NPT3 = NCSID + 8 NPT4 = NCSID +12 DO 180 I=1,3 NPT1 = NPT1 + 1 NPT2 = NPT2 + 1 NPT3 = NPT3 + 1 NPT4 = NPT4 + 1 V1(I) = ECPT(NPT1) - ECPT(NPT3) 180 V2(I) = ECPT(NPT2) - ECPT(NPT4) ICHEK = 0 C GO TO 160 C ****************************************************************** C FINAL COMPUTATION OF TERM AND SHIP OUT OF MATRIX. C 190 DO 200 I=1,36 200 MASS(I) = 0.0D0 IF( T ) 210,220,210 C RHO NOT NEEDED IF T = 0 C 210 INFLAG = 4 IF( HEAT ) GO TO 230 CALL MAT( ECPT(1) ) C C 220 TERM = ( FMU + RHO * T ) * AREA / 3.0E0 IF( NTYPE .LT. 3 .OR. NTYPE .GT. 5 ) TERM = TERM/2.0E0 MASS( 1) = TERM MASS( 8) = TERM MASS(15) = TERM C CALL SMA2B( MASS(1), NPVT, -1, IFMGG, 0.0D0 ) C RETURN C***** C HEAT FORMULATION. C***** 230 CALL HMAT( ECPT ) MASS(1) = (CP*T)*AREA/3.0 IF( NTYPE.LT.3 .OR. NTYPE.GT.5 ) MASS(1) = MASS(1) / 2.0D0 CALL SMA2B( MASS(1), NPVT, NPVT, IFBGG, 0.0D0 ) RETURN END ================================================ FILE: mis/matck.f ================================================ SUBROUTINE MATCK (MFILE,PFILE,A,Z) C C THIS ROUTINE CHECKS THE UNIQUENESS OF MATERIAL ID'S FOR C 1. MAT1 (1) 8. MATT1 (MB) 15. MATS1 (MC) C 2. MAT2 9. MATT2 16. MATPZ1 (MD) C 3. MAT3 10. MATT3 17. MTTPZ1 C 4. MAT4 11. MATT4 18. MATPZ2 C 5. MAT5 12. MATT5 19. MTTPZ2 (ME) C 6. MAT6 13. MATT6 20. DUMC C 7. MAT8 (MA) 14. DUMB 21. DUMD (NMAT) C AND THE MATERIAL ID SPECIFIED ON THE PROPERTY CARDS. C C THIS ROUTINE SHOULD BE CALLED ONLY ONCE BY IFP. C THIS ROUTINE DOES NOT OPEN OR CLOSE MATERIAL FILE (MFILE) OR C ELEMENT PROPERTY FILE (PFILE) C C WRITTEN BY G.CHAN/UNISYS, OCT. 1982 C LOGICAL ABORT INTEGER PFILE, IH(3), NAME(2), Z(1), MATI(2,22) 1, GROUP, A(1), EPTI(2,40), MATJ(2,22) COMMON /SYSTEM/ N1, NOUT, ABORT, SKIP(42), KDUM(9) DATA MATJ / 103,-12, 203,-17, 1403,-16, 2103,-3, 2203,-8, 1 2503,-31, 603,-18, 2 703,-11, 803,-16, 1503,-16, 2303,-2, 2403,-7, 3 2603,-31, -11,-00, 4 503,-11, 1603,-07, 1803,-07, 1703,-44, 1903,-44, 5 -11,-00, -11,-00, -11,-00/ DATA EPTI / 52,191, 2502,071, 7002,071, 0502,041, 2202,041, 1 5302,041, 0602,082, 0702,103, 0802,041, 0902,061, 2 1002,041, 2102,041, 7052,171, 1102,082, 1202,103, 3 1302,041, 7032,171, 1402,041, 1502,082, 1602,051, 4 1702,041, 2002,031, 0152,243, 5102,241, 5802,174, 5 5502,-49, 5602,-06, 5702,-06, 6102,001, 6202,001, 6 6302,001, 6402,001, 6502,001, 6602,001, 6702,001, 7 6802,001, 6902,001, 0, 0, 0, 0, 0, 0/ DATA NMAT / 21/, GROUP/ 7/ DATA NEPT / 37/ DATA NAME / 4HMATC, 4HK / C C FIRST WORDS ON THE EPTI TABLE ARE PROPERTY CARDS THAT SPECIFY C MATERIAL. THE FIRST 2 DIGITS OF THE SECOND WORD INDICATE THE C NUMBER OF WORDS IN EACH PROPERTY INPUT CARD. AND THE 3RD DIGIT C INDICATES NUMBER OF MATERIAL ID'S SPECIFIED. C IF THIS SECOND WORD IS NEGATIVE, IT MEANS THE PROPERTY CARD IS C OPEN-ENDED. THE 3RD DIGIT INDICATES WHERE MID1 BEGINS, AND C REPEATING (FOR MID2, MID3,...) EVERY N WORDS WHERE N IS THE C ABSOLUTE VALUE OF THE FIRST 2 DIGITS. (NO REPEAT OF N=0) C C ARRAY A CONTAINS A LIST OF ACTIVE PROPERTY IDS - SET UP BY PIDCK C IF (ABORT) GO TO 220 NOMAT = Z(1) IF (NOMAT .EQ. 0) GO TO 145 C C UPDATE EPTI ARRAY IF DUMMY ELEMENT IS PRESENT C DO 10 J = 1,9 IF (KDUM(J) .EQ. 0) GO TO 10 K = MOD(KDUM(J),1000)/10 EPTI(2,28+J) = K*10 + 1 10 CONTINUE C C SET UP POINTERS FOR THE MATI TABLE C MA = GROUP MB = MA + 1 MC = MB + GROUP MD = MC + 1 ME = MC + 4 C C READ MATERIAL ID INTO Z SPACE, AND SAVE APPROP. COUNT IN MATI(2,K) C DO 15 J = 1,NMAT MATI(1,J) = MATJ(1,J) 15 MATI(2,J) = MATJ(2,J) J = 1 20 CALL FWDREC (*50,MFILE) 25 CALL READ (*50,*50,MFILE,IH(1),3,0,KK) DO 30 K = 1,NMAT IF (IH(1) .EQ. MATI(1,K)) GO TO 35 30 CONTINUE GO TO 20 35 NWDS =-MATI(2,K) IF (NWDS .LT. 0) CALL MESAGE (-37,0,NAME) MATI(2,K) = 0 40 CALL READ (*50,*25,MFILE,Z(J),NWDS,0,KK) J = J + 1 MATI(2,K) = MATI(2,K) + 1 GO TO 40 C C INSTALL INITIAL COUNTERS IN MATI(1,K) C 50 JX = J IF (JX .LE. 1) GO TO 140 MATI(1,1) = 0 DO 60 J = 1,NMAT K = J + 1 IF (MATI(2,J) .LT. 0) MATI(2,J) = 0 60 MATI(1,K) = MATI(1,J) + MATI(2,J) C C NOTE - ORIGINAL DATA IN MATI TABLE IS NOW DESTROYED C C CHECK MATERIAL ID UNIQUENESS AMONG MAT1, MAT2,..., MAT8 C (MAT4 AND MAT5 ARE UNIQUE ONLY AMONG THEMSELVES) C J = 0 DO 70 K = 1,MA IF (MATI(2,K) .GT. 0) J = J + 1 70 CONTINUE IF (J .LE. 1) GO TO 90 KK = MATI(1,MB) K1 = KK - 1 K4 = MATI(1,4) DO 80 K = 1,K1 J = Z(K) IB = K + 1 DO 75 I = IB,K1 IF (J .NE. Z(I)) GO TO 75 IF (K.LT.K4 .AND. I.GE.K4) GO TO 75 CALL MESAGE (30,213,J) ABORT =.TRUE. GO TO 80 75 CONTINUE 80 CONTINUE C C CHECK MATT1, MATT2,..., MATT6 AND MATS1 MATERIAL ID C AND THEIR CROSS REFERENCE TO MATI CARDS C 90 DO 110 K = MB,MC IF (MATI(2,K) .LE. 0) GO TO 110 KK = MOD(K,MA) IB = MATI(1,KK) + 1 IE = MATI(2,KK) + IB - 1 JB = MATI(1,K ) + 1 JE = MATI(2,K ) + JB - 1 DO 105 J = JB,JE K1 = Z(J) IF (IE .LT. IB) GO TO 100 DO 95 I = IB,IE IF (Z(I) .EQ. K1) GO TO 105 95 CONTINUE 100 IH(1) = K1 IH(2) = KK K1 = 217 IF (K .EQ. 15) K1 = 17 CALL MESAGE (30,K1,IH) ABORT =.TRUE. 105 CONTINUE 110 CONTINUE C C CHECK MATERIAL ID UNIQUENESS AMONG MATPZI AND MTTPZI C J = 0 DO 115 K = MD,ME IF (MATI(2,K) .GT. 0) J = J + 1 115 CONTINUE IF (J .LE. 1) GO TO 140 KK = MATI(1,ME+1) K1 = KK - 1 NN = MATI(1,MD) DO 130 K = NN,K1 J = Z(K) IB = K + 1 DO 125 I = IB,KK IF (J .NE. Z(I)) GO TO 125 CALL MESAGE (30,213,J) ABORT =.TRUE. GO TO 130 125 CONTINUE 130 CONTINUE C C NOW, WE CONTINUE TO CHECK MATERIAL ID'S ON MOST PROPERTY CARDS. C (MATERIAL ID'S ARE ON THE 2ND, 4TH, AND 6TH POSITIONS OF THE C PROPERTY CARDS, EXECPT THE OPEN-ENDED PCOMPI GROUP) C 140 JE = MATI(1,NMAT) II = A(1) 145 CALL FWDREC (*220,PFILE) 150 CALL READ (*220,*220,PFILE,IH(1),3,0,KK) DO 160 K = 1,NEPT IF (IH(1) .EQ. EPTI(1,K)) GO TO 170 160 CONTINUE GO TO 145 170 IF (NOMAT .EQ. 0) GO TO 230 NWDS= EPTI(2,K)/10 NN = EPTI(2,K) - NWDS*10 IB = 1 IE = NN*2 IC = 2 KOMP= 0 C C CHANGE NWDS, IB, IE, AND IC IF PROPERTY CARD IS OPEN-ENDED C WHERE (IB+JX) POINTS TO THE FIRST MID POSITION C IF (EPTI(2,K) .GT. 0) GO TO 180 KOMP= 1 IB =-NN - 1 IC =-NWDS IF (NWDS .EQ. 0) IC = 9999 NWDS= 10 180 IF (KOMP .EQ. 1) IE = JX + NWDS - 1 C C READ IN PROPERTY CARD. IF ID IS NOT ON ACTIVE LIST, SKIP IT. C SKIP IT TOO IF IT HAS NO MATERIAL ID REQUESTED. C (NO CORE SIZE CHECK HERE. SHOULD HAVE PLENTY AVAILABLE) C CALL READ (*220,*150,PFILE,Z(JX),NWDS,0,KK) IF (KOMP .EQ. 0) GO TO 182 181 IE = IE + 1 CALL READ (*220,*150,PFILE,Z(IE),1,0,KK) IF (Z(IE) .NE. -1) GO TO 181 IE = IE - 1 - JX 182 DO 183 I = 2,II IF (Z(JX) .EQ. A(I)) GO TO 185 183 CONTINUE GO TO 180 185 DO 210 I = IB,IE,IC KK = Z(JX+I) IF (IE.EQ.8 .AND. I.EQ.7) KK = Z(JX+I+3) IF (KK .EQ. 0) GO TO 210 IF (JX .LE. 1) GO TO 200 DO 190 J = 1,JE IF (KK .EQ. Z(J)) GO TO 210 190 CONTINUE 200 IH(1) = KK IH(2) = Z(JX) CALL MESAGE (30,215,IH) ABORT =.TRUE. 210 CONTINUE GO TO 180 220 RETURN C 230 CALL MESAGE (30,16,IH) ABORT =.TRUE. RETURN END ================================================ FILE: mis/matdum.f ================================================ SUBROUTINE MATDUM (IA,IPRC,NPL,NOUT) C C THIS ROUTINE IS CALLED ONLY BY MATPRN TO PRINT UP TO 5 MATRICES C C IF IPRC = 0, MATRICES ARE PRINTED IN THEIR ORIG. PRECISION FORMAT C IF IPRC = 1, MATRICES ARE PRINTED IN SINGLE PRECISION E FORMAT C IF IPRC = 2, MATRICES ARE PRINTED IN DOUBLE PRECISION D FORMAT C IF IPRC =-1, ONLY THE DIAGONAL ELEMENTS OF THE MATRICES ARE C PRINTED IN THEIR ORIG. PRECISION FORMAT C C INPUT MATRIX IA(1) CAN BE IN S.P., D.P., S.P.CMPLX OR D.P.CMPLX C C NPL IS THE NO. OF DATA VALUES PRINTED PER OUTPUT LINE C FOR S.P. REAL DEFAULT IS 8, MAX IS 14 C FOR D.P. REAL DEFAULT IS 6, MAX IS 12 C EVEN NUMBER ONLY FOR COMPLEX C C P3, P4, P5 ARE PRINTOUT CONTROLS C P3 = m, MATRIX COLUMNS, 1 THRU m, WILL BE PRINTED. C DEFAULT = 0, ALL MATRIX COLUMNS WILL BE PRINTED. C =-m, SEE P4 = -n C P4 = n, LAST n MATRIX COLUMNS ARE PRINTED. DEFAULT = 0 C =-n, AND P3 = -m, EVERY OTHER n MATRIX COLUMNS WILL BE PRINTED, C STARTIN FROM COLUMN m. C P5 = k, EACH PRINTED COLUMN WILL NOT EXCEED k LINES LONG AND THE C REMAINING DATA WILL BE OMITTED. C NOUT = P6, FORTRAN UNIT (SEE MATPRN) C LOGICAL JUMP INTEGER SYSBUF,IBLNK,P12,P3,P4,P5,PX(5),ICOL(1),FILE(14) DOUBLE PRECISION DCOL(1) DIMENSION IA(7),TYPE(10),FORM(18) CHARACTER*15 RFMT,FMTR(2,7) CHARACTER*35 CFMT,FMTC(2,4) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / P12(2),P3,P4,P5 CZZ COMMON /ZZTBPR/ COL(1) COMMON /ZZZZZZ/ COL(20000) COMMON /UNPAKX/ IT,K,L,INCR COMMON /SYSTEM/ SYSBUF,IOUT,INX(6),NLPP,INX1(2),LINE COMMON /OUTPUT/ HEAD1(96),HEAD2(96) EQUIVALENCE (COL(1),DCOL(1),ICOL(1)), (IBLNK,BLANK) DATA TYPE / 4HS.P.,4HREAL,4HD.P.,4HREAL,4HCOMP,4HLEX ,4HCMP , 1 4HD.P.,4HILL ,4HDEFN / DATA FORM / 4HSQUA,4HRE ,4HRECT,4HANG ,4HDIAG,4HONAL,4HLOW , 1 4HTRI ,4HUPP ,4HTRI ,4HSYMM,4HETRC,4HVECT,4HOR , 2 4HIDEN,4HTITY,4HILL ,4HDEFN/ DATA BLANK , XMATR ,XIX ,CONT ,XINUE ,DDX / 1 4H , 4HMATR,4HIX ,4HCONT,4HINUE,4HD / DATA FILE / 4HUT1 ,4HUT2 ,4HN/A ,4HINPT,4HINP1,4HINP2,4HINP3, 1 4HINP4,4HINP5,4HINP6,4HINP7,4HINP8,4HINP9,4HINPT/ DATA FMTR / '(1X,1P, 8E16.8)', '(1X,1P,6D21.12)', 2 '(1X,1P, 9E14.6)', '(1X,1P,7D18.10)', 3 '(1X,1P,10E13.5)', '(1X,1P, 8D16.8)', 4 '(1X,1P,11E11.3)', '(1X,1P, 9D14.6)', 5 '(1X,1P,12E10.2)', '(1X,1P,10D13.4)', 6 '(1X,1P,13E10.2)', '(1X,1P,11D11.3)', 7 '(1X,1P,14E 9.1)', '(1X,1P,12D10.2)'/ DATA FMTC / '(4(1X,1P,E14.7,1HR, 1P,E15.7,1HI))', 1 '(3(1X,1P,D20.13,1HR,1P,D21.13,1HI))', 2 '(5(1X,1P,E11.4,1HR, 1P,E12.4,1HI))', 2 '(4(1X,1P,D14.7,1HR, 1P,D15.7,1HI))', 3 '(6(1X,1P,E 9.2,1HR, 1P,E10.2,1HI))', 3 '(5(1X,1P,D11.4,1HR, 1P,D12.4,1HI))', 4 '(7(1X,1P,E 7.0,1HR, 1P,E 8.0,1HI))', 4 '(6(1X,1P,D 9.2,1HR, 1P,D10.2,1H)))'/ C NAMEA= IA(1) NCOL = IA(2) NROW = IA(3) IF = IA(4) IT = IA(5) IF (IF .NE. 7) GO TO 5 C C ROW VECTOR C A ROW OF MATRIX ELEMENTS STORED IN COLUMN FORMAT C INTERCHANGE ROW AND COLUMN FOR PRINTING C J = NCOL NCOL = NROW NROW = J 5 IF (IT.LE.0 .OR. IT.GT.4) IT = 5 IF (IF.LE.0 .OR. IF.GT.8) IF = 9 IF (NOUT .NE. IOUT) WRITE (IOUT,7) UIM,FILE(NOUT-10),NOUT 7 FORMAT (A29,', MATRIX PRINTOUT SAVED IN ',A4,' (FORTRAN UNIT',I4, 1 1H)) IF (IPRC .EQ. -1) GO TO 80 C C SET UP FORMAT FOR OUTPUT PRINT LINE C J = IPRC IF (IT .GE. 3) J = IPRC + 2 GO TO (10,20,30,40), J 10 J = NPL - 7 RFMT = FMTR(1,J) GO TO 50 20 J = NPL - 5 RFMT = FMTR(2,J) GO TO 50 30 J = (NPL/2) - 3 CFMT = FMTC(1,J) GO TO 50 40 J = (NPL/2) - 2 CFMT = FMTC(2,J) 50 NPL1 = NPL - 1 C C SET UP P3 AND P4 PRINTOUT OPTIONS C MM = P3 NN = IA(2) IF (P3 .LE. 0) MM = IA(2) IF (P4 .LT. 0) GO TO 60 JUMP = .FALSE. NN = IA(2) - P4 GO TO 70 60 JUMP = .TRUE. JMP4 = -P4 JMP3 = IABS(P3) IF (P3 .EQ. 0) JMP3 = 1 70 NPLP5 = IA(3) IF (P5 .NE. 0) NPLP5 = NPL*P5 CWKBI SPR 93013 IF ( IT .GT. 2 ) NPLP5 = 2*NPLP5 C 80 DO 85 I = 1,96 85 HEAD2(I) = BLANK HEAD2(1) = XMATR HEAD2(2) = XIX HEAD2(6) = CONT HEAD2(7) = XINUE HEAD2(8) = DDX LCOL = KORSZ(COL) - SYSBUF INCR = 1 CALL GOPEN (NAMEA,COL(LCOL+1),0) CALL PAGE1 CALL FNAME (NAMEA,HEAD2(3)) WRITE (NOUT,90) HEAD2(3),HEAD2(4),NAMEA,TYPE(2*IT-1),TYPE(2*IT), 1 NCOL,NROW,FORM(2*IF-1),FORM(2*IF) 90 FORMAT (1H0,6X,7HMATRIX ,2A4,11H (GINO NAME,I4,2H ),6H IS A ,2A4, 1 1X,I6,10H COLUMN X ,I6,5H ROW ,2A4,8H MATRIX.) IF (IT.EQ.5 .OR. NCOL.EQ.0 .OR. NROW.EQ.0) GO TO 460 C C IF = 3, DIAGONAL MATRIX C = 7, ROW VECTOR C = 8, IDENTITY MATRIX C IF (IF-8) 100,440,460 100 IF (IPRC .EQ. -1) GO TO 510 IF (IF.NE.3 .AND. IF.NE.7) GO TO 110 NCOL = 1 NROW = IA(3) 110 INULL= 0 ASSIGN 150 TO IHOP JJ = 1 120 K = 0 L = 0 CALL UNPACK (*330,NAMEA,COL) IF (JJ.LE.MM .OR. JJ.GE.NN) GO TO 130 K = NN - MM - 1 JJ = JJ + K IF (JJ .GT. NCOL) GO TO 340 CALL SKPREC (NAMEA,K) GO TO 340 130 IF (.NOT.JUMP) GO TO 140 IF (MOD(JJ,JMP4) .NE. JMP3) GO TO 340 140 IF (INULL .EQ. 1) GO TO 490 150 NROW = L - K + 1 GO TO (160,160,360,160,160,160,380), IF 160 WRITE (NOUT,170) JJ,K,L LINE = LINE + 3 IF (LINE .GE. NLPP) CALL PAGE 170 FORMAT (8H0COLUMN ,I6,5X,6H ROWS ,I6,6H THRU ,I6,5X,50(1H-),/,1H ) IF (IT .GT. 2) NROW = 2*NROW 180 K = 0 190 J = K + 1 IF (J .GT. NROW) GO TO 340 K = J + NPL1 IF (K .GT. NROW) K = NROW IF (K .GT. NPLP5) GO TO 340 KJ = K - J GO TO (210,240,270,300), IT C 200 LN = (KJ+NPL1)/NPL LINE = LINE + LN IF (LINE .GE. NLPP) CALL PAGE GO TO 190 C C REAL SINGLE PRECISION C 210 IF (IPRC .EQ. 2) GO TO 220 WRITE (NOUT,RFMT) (COL(I),I=J,K) C 215 FORMAT (1X,1P,10E13.5) C LN = (KJ+10)/10 GO TO 200 220 I = K DO 230 LN = J,K DCOL(I) = COL(I) 230 I = I - 1 C C REAL DOUBLE PRECISION C 240 IF (IPRC .EQ. 1) GO TO 250 WRITE (NOUT,RFMT) (DCOL(I),I=J,K) C 245 FORMAT (1X,1P,8D16.8) C LN = (KJ+8)/8 GO TO 200 250 DO 260 I = J,K 260 COL(I) = DCOL(I) GO TO 210 C C COMPLEX SINGLE C 270 IF (IPRC .EQ. 2) GO TO 280 WRITE (NOUT,CFMT) (COL(I),I=J,K) C 275 FORMAT (1X,5(1P,E12.4,1HR,1P,E12.4,1HI)) C LN = (KJ+10)/10 GO TO 200 280 I = K DO 290 LN = J,K DCOL(I) = COL(I) 290 I = I - 1 C C COMPLEX DOUBLE C 300 IF (IPRC .EQ. 1) GO TO 310 WRITE (NOUT,CFMT) (DCOL(I),I=J,K) C 305 FORMAT (1X,4(1P,D15.8,1HR,1P,D15.8,1HI)) C LN = (KJ+8)/8 GO TO 200 310 DO 320 I = J,K 320 COL(I) = DCOL(I) GO TO 270 C 330 IF (INULL .EQ. 1) GO TO 340 INULL = 1 IBEGN = JJ 340 JJ = JJ + 1 IF (JJ .LE. NCOL) GO TO 120 ASSIGN 350 TO IHOP IF (INULL .EQ. 1) GO TO 490 350 CALL CLOSE (NAMEA,1) GO TO 400 360 WRITE (NOUT,370) K,L LINE = LINE + 2 370 FORMAT ('0DIAGONAL ELEMENTS FOR COLUMNS',I6,4H TO ,I6,4H ARE,///) GO TO 180 380 WRITE (NOUT,390) K,L LINE = LINE + 2 390 FORMAT ('0ROW ELEMENTS FOR COLUMNS',I6,4H TO ,I6,4H ARE,///) GO TO 180 400 WRITE (NOUT,410) IA(6) 410 FORMAT ('0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =', 1 I8) IA7A = IA(7) / 100 IA7C = IA(7) - 100*IA7A IA7B = IA7C / 10 IA7C = IA7C - 10*IA7B WRITE (NOUT,420) IA7A,IA7B,IA7C 420 FORMAT ('0THE DENSITY OF THIS MATRIX IS ',I3,1H.,2I1,' PERCENT.') GO TO 750 C 440 WRITE (NOUT,450) 450 FORMAT ('0IDENTITY MATRIX') 460 CALL CLOSE (NAMEA,1) C C FUNNY MATRIX - SAVE MODULE PARAMETERS AND TABLE PRINT IT C DO 470 I = 1,5 470 PX(I) = P12(I) P12(1) = IBLNK P12(2) = IBLNK P3 = 3 P4 = 3 CALL TABPRT (NAMEA) DO 480 I = 1,5 480 P12(I) = PX(I) GO TO 750 490 IFIN = JJ - 1 WRITE (NOUT,500) IBEGN,IFIN INULL = 0 LINE = LINE + 2 IF (LINE .GE. NLPP) CALL PAGE 500 FORMAT ('0COLUMNS ',I7,6H THRU ,I7,' ARE NULL.') GO TO IHOP, (150,350) C C PRINT ONLY THE DIAGONAL ELEMENTS, IPRC = -1 C TO CHECKOUT THE DIAGONALS FOR POSSIBLE MATRIX SINGULARITY C 510 WRITE (NOUT,520) 520 FORMAT (/23X,'(ELEMENTS ON DIAGONAL ONLY)') IF (NCOL .NE. NROW) WRITE (NOUT,530) 530 FORMAT (23X,'*** MATRIX IS NOT SQUARE ***') WRITE (NOUT,540) 540 FORMAT (1X) NN = MIN0(NCOL,NROW) JJ = 0 DO 570 I = 1,NN K = I L = I CALL UNPACK (*550,NAMEA,COL(JJ+1)) GO TO 570 550 DO 560 J = 1,IT 560 COL(JJ+J) = 0.0 570 JJ = JJ + IT CALL CLOSE (NAMEA,1) GO TO (580,600,620,640), IT 580 WRITE (NOUT,590) (COL(J),J=1,JJ) 590 FORMAT (1X,1P,10E13.6) GO TO 660 600 JJ = JJ/2 WRITE (NOUT,610) (DCOL(J),J=1,JJ) 610 FORMAT (1X,1P,10D13.6) GO TO 660 620 WRITE (NOUT,630) (COL(J),J=1,JJ) 630 FORMAT ((1X,5(1P,E12.5,1HR,1P,E12.5,1HI))) GO TO 660 640 JJ = JJ/2 WRITE (NOUT,650) (DCOL(J),J=1,JJ) 650 FORMAT ((1X,5(1P,D12.5,1HR,1P,D12.5,1HI))) 660 KJ = IT IF (IT .GE. 3) KJ = IT - 2 NN = 0 MM = 1 DO 680 J = 1,JJ LN = MM + IT - 1 DO 670 I = MM,LN IF (COL(I) .NE. 0.0) GO TO 680 670 CONTINUE NN = NN + 1 ICOL(NN) = J 680 MM = MM + KJ IF (NN .EQ. 0) GO TO 710 MM = MIN0(NN,200) WRITE (NOUT,690) (ICOL(I),I=1,MM) 690 FORMAT ('0*** ZERO DIAGONALS IN THE FOLLOWING COLUMNS -', 1 /,(1X,20I6)) IF (NN .GT. 200) WRITE (NOUT,700) 700 FORMAT (' ...AND MORE') GO TO 730 710 WRITE (NOUT,720) 720 FORMAT ('0*** NO ZERO ON DIAGONALS') 730 WRITE (NOUT,740) IA 740 FORMAT (/5X,'GINO FILE',I5,' TRAILER =',6I7) LINE = LINE + NLPP C 750 RETURN END ================================================ FILE: mis/matgen.f ================================================ SUBROUTINE MATGEN C C THE PURPOSE OF THIS MODULE IS TO GENERATE CERTAIN KINDS OF C MATRICES ACCORDING TO ONE OF SEVERAL SIMPLE USER SELECTED OPTIONS C C MATGEN TAB/OUT/P1/P2/P3/P4/P5/P6/P7/P8/P9/P10/P11 $ C C TAB - INPUT TABLE - (OPTIONAL) FOR USE IN GENERATING THE MATIRX C (THIS DATA MAY BE ASSUMED TO BE INPUT VIA DTI CARDS.) C = EQEXIN TABLE FOR P1 = 9 C = USET TABLE FOR P1 = 11 C = ANY GINO FILE FOR P1 = 10 C C OUT - OUTPUT MATRIX - IF PURGED AND P1 IS NOT 10, P1 WILL BE SET C TO -1 AND RETURN C C P1 - INPUT - INTEGER, OPTION SELECTION. (DEFULAT P1 = 3) C = 1, GENERATE A RSP IDENTITY MATRIX OF ORDER P2. C = 2, GENERATE AN IDENTITY MATRIX OF ORDER P2, FORM 8 C = 3, GENERATE A DIAGONAL MATRIX FORM INPUT FILE T C = 4, GENERATE A PARTERN MATRIX C = 5, GENERATE A MATRIX OF PSEUDO-RANDOM NUMBERS. C = 6, GENERATE PARTITION VECTOR OF ORDER P2, WITH P3 ZERO'S C CLOOWED BY P4 ONE'S FOLLOWED BY P5 ZERO'S ETC. C REMAINER IS ALWAYS AERO. TOO MANY DEFINITIONS IS AN C ERROR. C = 7, GENERATE A NULL MATRIX C = 8, GENERATE A MATRIX FROM EQUATIONS BASED ON ITS INDICES C = 9, GENERATE A TRANSFORMATION BETWEEN EXTERNAL AND C INTERANL MATRICES, OF G-SET SIZE. C P2 = 0, OUTPUTS INT-EXT (DEFAULT) C P2 = 1, OUTPUTS TRANSPOSE EXT-INT C P3 = NO. OF TERMS IN G-SET (REQUIRED). USE LUSET IN C MOST SOLUTION SEQUENCES. C =10, ALLOW USER TO ALTER DATA BLOCK TRAILER. C =11, GENERATE A RECTANGULAR MATRIX, DRIVEN BY USET TABLE C C P2 - P11 - OPTION PARAMETERS - INTEGER - INPUT AND OUTPUT C INPUT AS OPTION VALUE (1 THRU NP) C OUTPUT AS -1 IF AND ONLY IF OUTPUT DATA BLOCK IS PRE- C PURGED C DEFAULT VALUES FOR P2 THRU P11 ARE ZEROS C C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT INTEGER MCB(7),NAM(2),P(11),CODE(2),IX(12) REAL VAL,RX(7),TMP(7) DOUBLE PRECISION D(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11 COMMON /SYSTEM/ SYSBUF,NOUT,DUM37(37),NBPW,DUM14(14),IPREC COMMON /MACHIN/ MACHX COMMON /ZBLPKX/ VAL(4),ROW COMMON /PACKX / ITA,ITB,I2,J2,INCR2 CZZ COMMON /ZZMGEN/ X(1) COMMON /ZZZZZZ/ X(20000) EQUIVALENCE (VAL(1),D(1)),(X(1),IX(1),RX(1)),(P(1),P1) DATA NAM / 4HMATG,4HEN /, NP / 11 / DATA EQE , XIN / 4HEQEX, 4HIN /, CODE / 6,1 / DATA OUT , T / 1 201 , 101 / C C IF OUTPUT DATA BLOCK IS PRE-PURGED, SET P1 = -1 AND RETURN C IF (P1 .EQ. 10) GO TO 30 MCB(1) = OUT CALL RDTRL (MCB) IF (MCB(1) .LE. 0) GO TO 1580 C C CHECK INPUT FILE REQUIREMENT C 30 IX(1) = T CALL RDTRL (IX(1)) IF (P1 .EQ. 10) GO TO 1000 IF (P1.EQ.3 .OR. P1.EQ.9 .OR. P1.EQ.10 .OR. P1.EQ.11) GO TO 50 IF (IX(1) .EQ. 0) GO TO 50 CALL FNAME (IX(1),RX(2)) WRITE (NOUT,40) UWM,RX(2),RX(3),P1 40 FORMAT (A25,' FROM MODULE MATGEN. INPUT DATA BLOCK ',2A4,' IS ', 1 'NOT NEEDED FOR OPTION',I3) C C CHECK OPEN CORE AND OPEN OUTPUT DATA BLOCK C 50 LCOR = KORSZ(IX(1)) IF (P1 .EQ. 2) GO TO 200 IF (LCOR .LT. SYSBUF) GO TO 1500 IBUF1 = LCOR - SYSBUF - 1 IBUF2 = IBUF1 - SYSBUF CALL GOPEN (OUT,IX(IBUF1),1) LCOR = LCOR - SYSBUF C C TEST FOR VALID OPTION AND BRANCH ON OPTION. C IF (P1 .EQ. 0) P1 = 3 IF (P1.LT.0 .OR. P1.GT.NP) GO TO 1510 GO TO (100,200,300,400,500,600,700,800,900,1000,1100), P1 C C OPTION 1 - GENERATE A RSP IDENTITY MATRIX OF ORDER P2, AND TRAILER C ======== P2 = ORDER OF MATRIX C P3 = SKEW FLAG, IF NONZERO, GENERATE A SKEW-DIAGONAL C MATRIX C P4 = PRECISION (1 OR 2). IF ZERO, USE MACHINE PRECISION C 100 IF (P2 .GT. 0) GO TO 110 IPX = 2 PX = P2 GO TO 1530 110 ITA = 1 ITB = P4 IF (P4 .EQ. 0) ITB = IPREC INCR2 = 1 CALL MAKMCB (MCB,OUT,P2,6,ITB) DO 150 I = 1,P2 RX(I) = 1.0 I2 = I J2 = I CALL PACK (IX,OUT,MCB) 150 CONTINUE CWKBI SPR93023 12/93 CALL CLOSE ( OUT, 1 ) GO TO 210 C C OPTION 2 - GENERATE AN IDENTITY TRAILER (FORM = 8) C ======== P2 = ORDER OF MATRIX C C ** CAUTION ** FORM = 8 MATRICES DO NOT REALLY EXIST C ONLY CERTAIN ROUTINES CAN PROCESS THEM C e.g. FBS, MPYAD, CEAD etc. C 200 MCB(1) = OUT MCB(2) = P2 MCB(3) = P2 MCB(4) = 8 MCB(5) = 1 MCB(6) = 1 C MCB(7) = LSHIFT(1,NBPW-2) + P2 MCB(7) = LSHIFT(1,NBPW-2 - (NBPW-32)) + P2 C C ADD (NBPW-32) TO MCB(7) SO THAT CRAY, WITH 48-BIT INTEGER WILL C NOT GET INTO TROUBLE. (SEE SDCOMP AND WRTTRL) C 210 CALL WRTTRL (MCB) GO TO 1700 C C OPTION 3 - GENERATE A DIAGONAL MATRIX FROM INPUT TABLE T C ======== P2 = DATA TYPE OF T C P3 = 0, FORM 6 MATRIX IS GENERATED C = 1, FORM 3 MATRIX IS GENERATED C C THIS OPTION IS THE ORIGINAL MATGEN IN COSMIC MATGEN C SKIP HEADER RECORD, AND BEGINNING RECORD ON T C PICKUP DATA IN ARRAY OF 7 WORDS. DIAGONAL VAULE ON THE 3RD C 300 LCOR = LCOR - SYSBUF IF (LCOR .LT. SYSBUF) GO TO 1500 IF (P2 .EQ. 0) P2 = 1 CALL OPEN (*1550,T,IX(IBUF2),0) CALL SKPREC (T,2) ITA = P2 ITB = IPREC INCR2 = 1 FORM = 6 IF (P3 .EQ. 1) FORM = 3 CALL MAKMCB (MCB,OUT,0,FORM,IPREC) M = 0 310 CALL READ (*1560,*330,T,TMP,7,0,0) M = M + 1 IF (P3 .EQ. 1) GO TO 320 I2 = M J2 = M CALL PACK (TMP(3),OUT,MCB) GO TO 310 320 RX(M) = TMP(3) GO TO 310 330 IF (P3 .EQ. 1) GO TO 340 MCB(3) = MCB(2) GO TO 350 340 I2 = 1 J2 = M CALL PACK (RX,OUT,MCB) MCB(2) = 1 MCB(3) = M 350 CALL CLOSE (T,1) GO TO 210 C C OPTION 4 - GENERATE A PATTERN MATRIX C ======== P2 = NUNBER OF COLUMNS C P3 = NUMBER OF ROWS C P4 = PRECISION (1 OR 2). IF 0, USE MACHINE PRECISION C P5 = NUMBER OF TERMS PER STRING. IF 0, USE 1 C P6 = INCREMENT BETWEEN STRINGS. IF 0, USE 1 C P7 = ROW NUMBER OF 1ST STRING IN COLUMN 1. IF 0, USE 1 C P8 = INCREMENT TO 1ST ROW FOR SUBSEQUENT COLUMNS. C P9 = NUMBER OF COLS BEFORE RETURNING TO P7. C C THE VALUE OF EACH NON-ZERO TERM IN THE MATRIX WILL BE C THE COLUMN NUMBER C e.g. TO GENERATE A 10x10 DIAGONAL MATRIX WITH THE COL. C NUMBER IN EACH DIAGONAL POSITION, CODE C C MATGEN ,/DIAG/4/10/10/0/1/10/1/1/10 $ C 400 P2 = MAX0(P2,1) P3 = MAX0(P3,1) IF (P4.NE.1 .AND. P4.NE.2) P4 = 0 IF (P4 .EQ. 0) P4 = IPREC P5 = MAX0(P5,1) P6 = MAX0(P6,1) P7 = MAX0(P7,1) P8 = MAX0(P8,0) P9 = MAX0(P9,1) IROW1 = P7 L = 1 CALL MAKMCB (MCB,OUT,P3,2,P4) C DO 440 J = 1,P2 IF (P4 .EQ. 1) VAL(1) = J IF (P4 .EQ. 2) D( 1) = J ROW = IROW1 CALL BLDPK (P4,P4,OUT,0,0) 410 CONTINUE DO 420 K = 1,P5 IF (ROW .GT. P3) GO TO 430 CALL ZBLPKI ROW = ROW + 1 420 CONTINUE ROW = ROW + P6 - 1 GO TO 410 430 CALL BLDPKN (OUT,0,MCB) CWKBI 9/93 435 CONTINUE L = L + 1 IROW1 = IROW1 + P8 CWKBR 9/93 IF (L .LE. P9) GO TO 430 IF (L .LE. P9) GO TO 435 L = 1 IROW1 = P7 440 CONTINUE GO TO 1400 C C OPTION 5 - GENERATE A MATRIX OF PSEUDO-RANDOM NUMBERS. THE NUMBERS C ======== SPAN THE RANGE 1. TO 1.0 WITH A NORMAL DISTRIBUTION C P2 = NUMBER OF COLUMNS C P3 = NUMBER OF ROWS C P4 = PRECISION (1 OR 2). IF 0, USED MACHINE PRECISION C P5 = SEED FOR RANDOM NUMBER GENERATION. IF P5.LE.0, C THE TIME OF DAY (SECONDS PAST MIDNIGHT) WILL BE C USED C C OPTION 5 WAS WRITTEN BY G.CHAN/UNISYS 2/93 C 500 ITA = 1 ITB = P4 IF (P4 .EQ. 0) ITB = IPREC FORM = 2 IF (P2 .EQ. P3) FORM = 1 I2 = 1 J2 = P3 INCR2 = 1 CALL MAKMCB (MCB,OUT,P2,FORM,ITB) K = P5 IF (MACHX .EQ. 4) GO TO 560 C CDC IF (MACHX .EQ. 9) GO TO 530 C HP C DO 520 I = 1,P2 IF (P5 .EQ. 0) CALL CPUTIM (K,K,0) K = (K/2)*2 + 1 DO 510 J = 1,P3 CWKBR 5/95 SUN RX(J) = RAN(K) RX(J) = RAND(K) 510 CONTINUE CALL PACK (RX(1),OUT,MCB) 520 CONTINUE GO TO 590 C C HP ONLY C ACTIVATE SRAND AND RAND() BELOW, AND COMMENT OUT RAN(K) ABOVE C 530 CONTINUE WRITE (NOUT,535) SFM 535 FORMAT (A25,'. MATGEN NEEDS TO ACTIVATE SRAND AND RAND() FOR HP') CALL MESAGE (-61,0,0) DO 550 I = 1,P2 IF (P5 .EQ. 0) CALL CPUTIM (K,K,0) C CALL SRAND (K) DO 540 J = 1,P3 C RX(J) = RAND() 540 CONTINUE CALL PACK (RX(1),OUT,MCB) 550 CONTINUE GO TO 590 C C CDC ONLY C ACTIVATE SRAND AND RAND() BELOW, AND COMMENT OUT RAN(K) ABOVE C 560 CONTINUE WRITE (NOUT,565) SFM 565 FORMAT (A25,'. MATGEN NEEDS TO ACTIVATE RANSET AND RANF() FOR CDC' 1 ) CALL MESAGE (-61,0,0) DO 580 I = 1,P2 IF (P5 .EQ. 0) CALL CPUTIM (K,K,0) C CALL RANSET (K) DO 570 J = 1,P3 C RX(J) = RANF() 570 CONTINUE CALL PACK (RX(1),OUT,MCB) 580 CONTINUE C 590 CALL CLOSE (OUT,1) CALL WRTTRL (MCB(1)) GO TO 1700 C C OPTION 6 - GENERATE A PARTITIONING VECTOR FOR USE IN PARTN OR C ======== MERGE C P2 = NUMBER OF ROWS C P3,P5,P7,P9 = NUMBER OF ROWS WITH ZERO COEFFICIENTS C P4,P6,P8,P10 = NUMBER OF ROWS WITH UNIT COEFFICIENTS C C IF SUM OF P3 THRU P10 IS .LT. P2, THE REMAINING TERMS C CONTAIN ZEROS C IF SUM OF P3 THRU P10 IS .GT. P2, THE TERMS ARE IGNORED C AFTER P2 C e.g. GENERATE A VECTOR OF 5 UNIT TERMS FOLLOWED BY 7 C ZEROS, FOLLOWED BY TWO UNIT TERMS C C MATGEN, ,/UPART/6/14/0/5/7/2 $ C C OPTION 6 WAS ORIGINALLY WRITTEN BY P.KIRCHMAN/SWALES 1/92 C RE-CODED BY G.CHAN/UNISYS FOR ALL COMPILERS, 2/93 C 600 IPX = 2 PX = P2 IF (P2 .LE. 0) GO TO 1530 INCR2 = 1 I2 = 1 J2 = P2 ITA = 1 ITB = 1 CALL MAKMCB (MCB,OUT,P2,2,ITB) TOT = 0 DO 610 I = 3,11 610 TOT = TOT + P(I) IF (TOT .GT. P2) WRITE (NOUT,620) UFM,P1,P2 IF (TOT .LT. P2) WRITE (NOUT,630) UWM,P1 620 FORMAT (A23,' FROM MATGEN, OPTION',I3,'. TOO MANY ENTRIES FOR ', 1 'SPECIFIED SIZE',I7) 630 FORMAT (A25,' FORM MATGEN, OPTION',I3,'. THE NUMBER OF ENTRIES ', 1 'SPECIFIED BY PARAMETERS IS LESS THAN THE TOTAL SIZE', /5X, 2 'OF THE PARTITION. THE REMAINING RENTRIES ARE ZERO FILLED') K = 1 DO 660 I = 3,9,2 PI = P(I) DO 640 J = 1,PI CWKBR SPR 93023 12/93 IX(K) = 0 RX(K) = 0. 640 K = K + 1 PI = P(I+1) DO 650 J = 1,PI CWKBR SPR 93024 12/93 IX(K) = 1 RX(K) = 1.0 650 K = K + 1 660 CONTINUE IF (K .GE. P2) GO TO 680 DO 670 I = K,P2 670 IX(I) = 0 680 CALL PACK (IX,OUT,MCB) CALL CLOSE (OUT,1) CALL WRTTRL (MCB) GO TO 1700 C C OPTION 7 - GENERATE A NULL MATRIX C ======== P2 = NUMBER OF ROWS C P3 = NUMBER OF COLUMNS C P4 = FORM; IF P4 = 0, AND P2 = P3, FORM WILL BE 6 C (SYMMETRIC). OTHERWISE P4 IS 2 (RECTANGULAR) C P5 = TYPE: IF P5 = 0, TYPE IS MACHINE PRECISION C 700 D(1) = 0.0D0 D(2) = 0.0D0 ITA = 1 ITB = P5 IF (P5 .EQ. 0) ITB = IPREC FORM = P4 IF (P4.EQ.0 .AND. P2.EQ.P3) FORM = 6 IF (P4.EQ.0 .AND. P2.NE.P3) FORM = 2 I2 = 1 J2 = 1 INCR2 = 1 CALL MAKMCB (MCB,OUT,P2,FORM,ITB) DO 750 I = 1,P3 CALL PACK (VAL,OUT,MCB) 750 CONTINUE CALL CLOSE (OUT,1) CALL WRTTRL (MCB(1)) GO TO 1700 C C OPTION 8 - GENERATE A MATRIX FROM EQUATIONS BASED ON IT INDICES C ======== P2 = 0, GENERATE ALL TERMS C .NE.0, GENERATE ONLY DIAGONAL TERMS C P3 = NUMBER OF ROWS C P4 = NUMBER OF COLUMNS C P5 = NUMBER OF THE RECORD IN THE INPUT DTI TABLE C USED TO DEFINE REAL COEFFICIENTS C .LT.0, COEFFICIENT TAKEN FROM DTI TRAILER C COEFF(TRAILER1) = FLOAT(TRAILER2) TRAILER C COEFF(TRAILER3) = FLOAT(TRAILER4) ITEMS ARE C COEFF(TRAILER5) = FLOAT(TRAILER6) INTEGERS C C = 0, DATA PAIRS FROM RECORD 0 (DATA BLOCK HEADER C RECORD) ARE INTERPRETED AS DFINING C COEFF(V1) = V2 V1 IS INTEGER, V2 IS REAL C .GT.0, DATA PAIRS FROM RECORD P5 INTERPRETED AS ABOVE C P6 = NUMBER OF THE RECORD IN THE INPUT DTI TABLE C USED TO DEFINE IMAGINARY DOEFFICIENTS D(I) C .LE.0, NO DOEFFICIENTS DEFINED C .GT.0, DATA PAIRS FROM RECORD P6 INTERPRETED AS ABOVE C WHERE D(V1) = V2 C P7 = FORM OF OUTPUT MATRIX C .LE.0, FORM = 1 OR 2, DEPENDING ON P3 AND P4 C .GT.0, FORM SET TO P7 C P8 = COEFFICIENT PRINT FLAG C = 0, DO NOT PRINT COEFFICIENT LISTS C .NE.0, PRINT COEFFICIENTS LISTS C(L) AND D(L) FROM C DTI INPUT. (PRINT D(L) LIST ONLY IF P6.GT.0) C C SEE USER MANUAL FOR THE EQUATION USED TO DETERMINE THE C COEFFICIENT OF THE (I,J)TH TERM OF THE OUTPUT MATRIX C 800 WRITE (NOUT,1200) UWM,P1 GO TO 1700 C C OPTION 9 - GENERATE A TRANSFORMATION BETWEEN EXTERNAL AND INTERNAL C ======== MATRICES FOR G-SET SIZE MATRICES C P2 = 0, OUTPUT NON-TRANSPOSED FACTOR, UEXT = MAT*UINT C = 1, OUTPUT TRANSPOSED FACTOR, UEXT = MAT*UINT C P3 = NUMBER OF TERMS IN G-SET. THE PARAMETER LUSET C CONTAINS THIS NUMBER IN MOST SOLUTION SEQUENCES C C EXAMPLES - C 1. TRANSFORM A g-SET SIZE VECTOR TO EXTERNAL SEQUENCE C ALTER XX $ AFTER SDR1, ALL SDR1 OUTPUTS ARE IN C INTERNAL SEQUENCE C MATGEN EQEXIN/INTEXT/9//LUSET $ C MPYAD INTEXT,UGV,/UGVEXT/1 $ C C 2. TRANSFORM AN a-SET SIZE MATRIX TO EXTERNAL SEQUENCE C ALTER XX $ AFTER KAA IS GENERATED, ALL MATRICES ARE IN C INTERNAL SEQUENCE C MATGET EQEXIN/INTEXT/9/0/LUSET $ C SMPYAD INTEXT,KAGG,INTEXT,,/KAAGEXT/3////1////6 $ C $ (KAAGEXT) = TRANSPOSE(INTEXT)*(KAAG)*(INTEXT) C $ ITS FORM IS 6 (SYMMETRIC) C C OPTION 9 WAS ORIGINALLY WRITTEN BY P.KIRCHMAN/SWALES 1/92 C RE-CODED BY G.CHAN/UNISYS FOR ALL COMPILERS, 2/93 C 900 IPX = 3 PX = P(3) IF (PX .LE. 0) GO TO 1530 NUSET = PX L = 2 NVAL = IX(L) CALL FNAME (T,TMP(1)) IF (TMP(1).NE.EQE .OR. TMP(2).NE.XIN) GO TO 1600 CALL OPEN (*1550,T,IX(IBUF2),0) CALL FWDREC (*1560,T) CALL FWDREC (*1560,T) CALL READ (*1560,*910,T,IX(1),IBUF2-1,1,L) 910 CALL CLOSE (T,1) IF (L .NE. NVAL*2) GO TO 1620 ITA = IPREC ITB = ITA CALL MAKMCB (MCB,OUT,NUSET,2,ITB) INCR2 = 1 VAL(1)= 1.0 IF (ITA .EQ. 2) D(1) = 1.0D+0 TOT = 0 IF (P2 .GT. 0) GO TO 930 C C NO TRANSPOSE C DO 920 I = 1,NVAL IS2 = I*2 A = IX(IS2)/10 B = MOD(IX(IS2),10) C = CODE(B) DO 920 J = 1,C I2 = A J2 = A CALL PACK (VAL,OUT,MCB) 920 A = A + 1 TOT = TOT + C GO TO 980 C C TRANSPOSE C 930 NVAL2 = NVAL*2 POS = 1 DO 940 I = 1,NVAL IS2 = I*2 A = IX(IS2)/10 B = MOD(IX(IS2),10) IX(IS2-1) = POS 940 POS = POS + CODE(B) DO 970 I = 4,NVAL2,2 J = NVAL2 FLAG = 0 950 IF (IX(J) .GE. IX(J-2)) GO TO 960 FLAG = 1 K = IX(J ) L = IX(J-1) IX(J ) = IX(J-2) IX(J-1) = IX(J-3) IX(J-2) = K IX(J-3) = L 960 J = J - 2 IF (J .GE. I) GO TO 950 IF (FLAG .EQ. 0) GO TO 980 970 CONTINUE C 980 DO 990 I = 1,NVAL IS2 = I*2 A = IX(IS2)/10 B = MOD(IX(IS2),10) A = IX(IS2-1) C = CODE(B) DO 990 J = 1,C I2 = A J2 = A CALL PACK (VAL,OUT,MCB) 990 A = A + 1 TOT = NVAL*C IF (NUSET .NE. TOT) GO TO 1640 CALL WRTTRL (MCB) CALL CLOSE (OUT,1) GO TO 1700 C C OPTION 10 - ALLOW USER TO ALTER DATA BLOCK TRAILER C ========= C IF PI IS NEGATIVE, THE CORRESPONDING TRAILER WORD (I) IS SET TO C ZERO C 1000 IF (IX(1) .EQ. 0) GO TO 1050 CALL FNAME (IX(1),IX(11)) WRITE (NOUT,1010) UIM,IX(11),IX(12),(IX(I),I=2,7) 1010 FORMAT (A29,' FROM MATGEN MODULE, OPTION 10. TRAILER OF ',2A4,2H - 1, /5X,'OLD - ',6I7) DO 1020 I = 2,7 IF (P(I) .NE. 0) IX(I) = P(I) IF (P(I) .LT. 0) IX(I) = 0 1020 CONTINUE WRITE (NOUT,1030) (IX(I),I=2,7) 1030 FORMAT (5X,'NEW - ',6I7) IF (IX(2).EQ.IX(3) .AND. IX(4).EQ.2 .AND. IX(7).NE.0) 1 WRITE (NOUT,1040) UIM 1040 FORMAT (A29,'. SINCE ROW = COLUMN, RECTANGULAR FORM 2 WILL BE ', 1 'CHANGED TO SQUARE FORM 1 AUTOMATICALLY') IX(1) = 199 CALL WRTTRL (IX(1)) GO TO 1700 C 1050 WRITE (NOUT,1060) UWM 1060 FORMAT (A25,' FROM MATGEN, OPTION 10. INPUT FILE MISSING') GO TO 1700 C C OPTION 11 - GENERATE A RECTANGULAR MATRIX, DRIVEN BY USET TABLE C ========= P2 = 1, GENERATE A NULL MATRIX C .NE.1, GENERATE A NULL MATRIX WITH AN IDENTITY MATRIX C STORED IN IT C P3 = NUMBER OF COLUMNS OF OUTPUT MATRIX, IF P2 = 1 C = BIT POSITION OF SET THAT DEFINES NUMBER OF ROW, C IF P2.NE.1. SEE SECTION 1.4.10 FOR BIT POSITION C LIST. DEFAULT IS A-SET SIZE. C P4 = NOT USED IF P2 = 1. THE OUTPUT MATRIX WILL BE C NULL AND HAVE P3 COLUMNS AND A-SET SIZE ROWS C = BIT POSITION OF SET THAT DEFINES NUMB OF COLUMNS C IF P2.NE.1. DEFAULT IS L-SET SIZE C C IF P2.NE.1, AND ONE OR BOTH OF THE SETS REQUESTED IN C P3 AND P4 DOES NOT EXIST, THEN MAT IS RETURNED PURGED, C AND P5 IS RETURNED WITH THE VALUE OF -1. IF MAT DOES C EXISTS, P5 IS RETURNED WITH THE VALUE 0 C 1100 WRITE (NOUT,1200) UWM,P1 1200 FORMAT (A25,' FROM MATGEN MODULE, OPTION',I3,' IS NOT AVAILABLE') GO TO 1700 C C WRAP-UP AND RETURN TO EXECUTIVE SYSTEM C 1400 CALL CLOSE (OUT,1) CALL WRTTRL (MCB) GO TO 1700 C C ERROR MESSAGES C 1500 CONTINUE LCOR = SYSBUF - LCOR CALL MESAGE (-8,LCOR,NAM) GO TO 1700 C 1510 WRITE (NOUT,1520) UFM,P1 1520 FORMAT (A23,' IN MATGEN, ILLEGAL VALUE FOR OPTION PARAMETER =',I5) GO TO 1690 C 1530 WRITE (NOUT,1540) UFM,IPX,PX 1540 FORMAT (A23,' IN MATGEN, ILLEGAL VALUE FOR PARAMETER ',I1,3H = , 1 I5) C 1550 J = -1 GO TO 1570 1560 J = -2 1570 CALL MESAGE (J,T,NAM) C 1580 WRITE (NOUT,1590) UFM,P1 1590 FORMAT (A23,'. OPTION',I3,' OUTPUT DATA BLOCK IS MISSING') P1 = -1 GO TO 1700 1600 WRITE (NOUT,1610) UFM,TMP(1),TMP(2) 1610 FORMAT (A23,'. OPTION 9. INPUT FILE IS ',2A4,', NOT EQEXIN') GO TO 1690 1620 WRITE (NOUT,1630) UFM,L,NVAL 1630 FORMAT (A23,'. EQEXIN RECORD LENGTH NOT MATCH TWICE TRAIL(2)',2I9) GO TO 1690 1640 WRITE (NOUT,1650) UFM,NUSET,TOT 1650 FORMAT (A23,'. OPTION 9, LUSET OF',I9,' DOES NOT AGREE WITH SIZE', 1 ' OF EQEXIN',I9) 1690 CALL MESAGE (-61,0,NAM) 1700 RETURN END ================================================ FILE: mis/matgpr.f ================================================ SUBROUTINE MATGPR C C DMAP FOR MATGPR MODULE C C MATGPR GPL,USET,SIL,KFS//C,N,F/C,N,S/C,N,PRTOPT/ C C,N,FILTER/C,N,FLTRFLAG $ C C THIS MODULE ENHANCED BY P.R.PAMIDI/RPK CORPORATION, 3/1988 C EXTERNAL ANDF INTEGER GPL,USET,SIL,IM(7),TWO1,ANDF,SYSBUF,CORE,BLANK, 1 OTPE,TYCOMP,SCALAR,COMPS(6),EXID,PRBUF(15), 2 HEAD2(32),IPRBF(4),ICHAR(17),PRBUFC(5) INTEGER NAME(2),EXTRA,HSET REAL A(4),PRBUFX(5),XXBUF(15) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /CONDAS/ IDUM(2),RADDEG COMMON /SYSTEM/ SYSBUF,OTPE,INX(6),NLPP,INX1(2),LINE COMMON /ZZZZZZ/ CORE(1) COMMON /BITPOS/ IBITS(32),ICHAR COMMON /OUTPUT/ HEAD(96),LABEL(96) COMMON /ZNTPKX/ IA(4),II,IEOL,IEOR COMMON /BLANK / IISET(2),KKSET(2),IPOPT(2),FILTER,IFLFLG COMMON /TWO / TWO1(32) EQUIVALENCE (XXBUF(1),PRBUF(1)) EQUIVALENCE (PRBUFC(1),PRBUFX(1)) EQUIVALENCE (IA(1), A(1)) DATA GPL,USET,SIL,MATRX / 101 ,102 ,103 ,104 / DATA SCALAR,COMPS,NLINE / 4H S ,4HT1 ,4HT2 ,4HT3 , 1 4HR1 ,4HR2 ,4HR3 ,15 / DATA NAME / 4HMATG, 4HPR / DATA NULL / 4HNULL / DATA BLANK, EXTRA, HSET / 4H ,4H E ,4H H / DATA IHSET / 4HH / DATA IALLP / 4HALLP / DATA HEAD2 / 1 4H , 4HPOIN, 4HT , 4H , 4H V, 4HALUE, 4H , 2 4H POI, 4HNT , 4H , 4H , 4HVALU, 4HE , 4H P0, 3 4HINT , 4H , 4H , 4H VAL, 4HUE , 4H P, 4HOINT, 4 4H , 4H , 4H VA, 4HLUE , 4H , 4H POI, 4HNT , 5 4H , 4H , 4HVALU, 4HE / C C ISET = IISET(1) KSET = KKSET(1) INLOPT = 0 IF (IPOPT(1) .EQ. NULL) INLOPT = 1 IF (FILTER .EQ. 0.0) GO TO 5 IFLAG = 1 IF (FILTER .LT. 0.0) IFLAG = 2 IF (IFLFLG .NE. 0) IFLAG = IFLAG + 2 5 IM(1) = MATRX CALL RDTRL (IM(1)) IF (IM(1) .LT. 0) GO TO 380 C C CONVERT BCD TO BIT POSITION IN USET C DO 10 I = 1,32 IF (ICHAR(I) .EQ. ISET) GO TO 20 10 CONTINUE IF (ISET .NE. IHSET) GO TO 15 ISET = -1 GO TO 21 15 WRITE (OTPE,16) UWM,IISET 16 FORMAT (A25,', UNKNOWN SET ',2A4,' SPECIFIED FOR THE FIRST PARA', 1 'METER OF THE MATGPR MODULE. MODULE NOT EXECUTED.') RETURN C 20 ISET = IBITS(I) 21 CONTINUE DO 30 I = 1,32 IF (ICHAR(I) .EQ. KSET) GO TO 40 30 CONTINUE KSET = ISET GO TO 50 40 KSET = IBITS(I) 50 CONTINUE LCORE = KORSZ(CORE) - SYSBUF IBUF = LCORE + 1 IF (ISET+KSET .EQ. -2) GO TO 51 CALL GOPEN (GPL,CORE(IBUF),0) CALL READ (*460,*60,GPL,CORE(1),LCORE,0,LGPL) CALL CLOSE (GPL,1) GO TO 500 C C NSET ONLY NO GPL,USET, ETC. C 51 LGPL = 0 LUSET = 0 LSIL = 0 IUSET = 1 ISIL = 1 GO TO 81 60 CALL CLOSE (GPL,1) LCORE = LCORE - LGPL CALL GOPEN (USET,CORE(IBUF),0) IUSET = LGPL + 1 CALL READ (*480,*70,USET,CORE(LGPL+1),LCORE,0,LUSET) CALL CLOSE (USET,1) GO TO 500 70 CALL CLOSE (USET,1) LCORE = LCORE - LUSET CALL GOPEN (SIL,CORE(IBUF),0) ISIL = LGPL + LUSET + 1 CALL READ (*490,*80,SIL,CORE(ISIL),LCORE,0,LSIL) CALL CLOSE (SIL,1) GO TO 500 80 CALL CLOSE (SIL,1) K = ISIL + LSIL LCORE = LCORE - LSIL - 1 CORE(K) = LUSET + 1 C C LOAD HEADER FOR PAGES C LSIL = LSIL + 1 81 CONTINUE DO 90 I = 1,96 90 LABEL(I) = BLANK DO 100 I = 1,32 K = 32 + I 100 LABEL(K) = HEAD2(I) NCOL = IM(2) CALL FNAME (MATRX,LABEL(4)) CALL GOPEN (MATRX,CORE(IBUF),0) IE = IBITS(12) INULL = 0 LOOP = 0 ICMPX = 1 IF (IM(5) .GT. 2) ICMPX = 3 IF (ISET .NE. -1) MASK = TWO1(ISET) IF (KSET .NE. -1) MASK1 = TWO1(KSET) MUSET = 0 JC = 0 IKSIL = 1 L = 1 ASSIGN 210 TO IOUT CALL PAGE C C START LOOP ON EACH COLUMN C 110 LOOP = LOOP + 1 CALL INTPK (*390,MATRX,0,ICMPX,0) IF (INULL .NE. 0) GO TO 400 120 CONTINUE IF (INLOPT .EQ. 1) GO TO 359 C C CHECK FOR HSET C 121 IF (ISET .EQ. -1) GO TO 150 IF (MUSET .EQ. LOOP) GO TO 160 130 JC = JC + 1 IF (JC .GT. LUSET) GO TO 150 KK = LGPL + JC IF (ANDF(CORE(KK),MASK)) 140,130,140 C C FOUND COLUMN IN USET C 140 MUSET = MUSET + 1 GO TO 121 C C COLUMN NOT IN USET C 150 IPRBF(L ) = LOOP IPRBF(L+1) = HSET GO TO 200 C C JC IS INDEX OF NON-ZERO IN G SET-- SOOK UP SIL C 160 IF (IKSIL .EQ. LSIL+1) GO TO 150 KK = ISIL + IKSIL IF (JC .LT. CORE(KK)) GO TO 170 IKSIL = IKSIL + 1 GO TO 160 170 ICOMP = JC - CORE(KK-1) + 1 IF (ICOMP .NE. 1) GO TO 180 C C CHECK FOR SCALAR POINT C IF (CORE(KK)-CORE(KK-1) .GT. 1) GO TO 180 TYCOMP = SCALAR C C CHECK FOR EXTRA C KK = LGPL + JC IF (ANDF(CORE(KK),TWO1(IE))) 171,190,171 171 TYCOMP = EXTRA GO TO 190 180 TYCOMP = COMPS(ICOMP) 190 EXID = CORE(IKSIL) IPRBF(L+1) = TYCOMP IPRBF(L ) = EXID 200 GO TO IOUT, (210,420,430) 210 WRITE (OTPE,220)LOOP,IPRBF(1),IPRBF(2) 220 FORMAT ('0COLUMN',I8,2H (,I8,1H-,A2,2H).) LINE = LINE + 2 IF (LINE .GE.NLPP) CALL PAGE JJ = 0 KUSET = 0 KSIL = 1 IPB = 1 IPBC = 1 IEND = 0 230 IF (IEOL) 350,240,350 240 CALL ZNTPKI C C CHECK FILTER C IF (FILTER .EQ. 0.0) GO TO 246 C C FILTER IS NON-ZERO C VALUE = A(1) IF (ICMPX .EQ. 3) VALUE = SQRT(A(1)*A(1) + A(2)*A(2)) GO TO (241,242,243,244), IFLAG C 241 IF (ABS(VALUE) .LT. FILTER) GO TO 230 GO TO 246 242 IF (ABS(VALUE) .GT. ABS(FILTER)) GO TO 230 GO TO 246 243 IF (VALUE.LT.FILTER .AND. VALUE.GT.0.0) GO TO 230 GO TO 246 244 IF (VALUE.GT.FILTER .AND. VALUE.LT.0.0) GO TO 230 C C CHECK FOR HSET C 246 IF (KSET .EQ. -1) GO TO 306 C C LOOK UP ROW IN USET C 250 IF (KUSET .GT. LUSET+1) GO TO 500 IF (KUSET .EQ. II) GO TO 280 260 JJ = JJ + 1 C C PROTECT AGINST NO BITPOS OR NO USET C IF (JJ .GT. LUSET) GO TO 306 KK = LGPL + JJ IF (ANDF(CORE(KK),MASK1)) 270,260,270 C C FOUND ELEMENT IN USET C 270 KUSET = KUSET + 1 GO TO 250 C C JJ IS INDEX OF NON-ZERO IN G SET - NOW SEARCH SIL FOR JJ C 280 IF (KSIL .EQ. LSIL+1) GO TO 510 KK = ISIL + KSIL IF (JJ .LT. CORE(KK)) GO TO 290 KSIL = KSIL + 1 GO TO 280 290 ICOMP = JJ - CORE(KK-1) + 1 IF (ICOMP .NE. 1) GO TO 300 C C CHECK FOR SCALAR POINT C IF (CORE(KK)-CORE(KK-1) .GT. 1) GO TO 300 TYCOMP = SCALAR C C CHECK FOR EXTRA POINT C KK = LGPL + JJ IF (ANDF(CORE(KK),TWO1(IE))) 305,310,305 C C EXTRA POINT C 305 TYCOMP = EXTRA GO TO 310 C C H POINT C 306 TYCOMP = HSET EXID = II GO TO 311 300 TYCOMP = COMPS(ICOMP) 310 EXID = CORE(KSIL) 311 IF (IPB .GE. NLINE) GO TO 330 320 PRBUF(IPB ) = EXID PRBUF(IPB+1) = TYCOMP IF (ICMPX .EQ. 1) GO TO 325 IF (IPOPT(1) .NE. IALLP) GO TO 325 AMAG = SQRT(A(1)*A(1) + A(2)*A(2)) IF (AMAG .EQ. 0.0) GO TO 325 A(2) = ATAN2(A(2),A(1))*RADDEG IF (A(2) .LT. -0.00005) A(2) = A(2) + 360.0 A(1) = AMAG 325 PRBUF(IPB+2) = IA(1) PRBUFC(IPBC) = IA(2) IPBC = IPBC + 1 IPB = IPB + 3 GO TO 230 330 IPB1 = IPB - 1 IPBC = IPBC - 1 WRITE (OTPE,340) (PRBUF(I),PRBUF(I+1),XXBUF(I+2),I=1,IPB1,3) 340 FORMAT (5X,5(1X,I8,1X,1A2,1X,1P,E12.5)) LINE = LINE + 1 IF (ICMPX .EQ. 1) GO TO 343 WRITE (OTPE,341) (PRBUFX(I),I=1,IPBC) 341 FORMAT (5X,5(13X,1P,E12.5)) WRITE (OTPE,342) 342 FORMAT (1H ) LINE = LINE + 2 343 CONTINUE IPBC = 1 IPB = 1 IF (LINE .GE. NLPP) CALL PAGE IF (IEND .EQ. 1) GO TO 360 GO TO 320 C C END OF COLUMN C 350 IEND = 1 IF (IPB .EQ. 1) GO TO 360 GO TO 330 359 CALL FWDREC (*510,MATRX) 360 IF (LOOP .NE. NCOL) GO TO 110 IF (INULL .NE. 0) GO TO 450 370 CALL CLOSE (MATRX,1) 380 RETURN C 390 IF (INULL .NE. 0) GO TO 360 INULL = 1 IBEGN = LOOP GO TO 360 400 IFIN = LOOP - 1 INULL = 0 410 LOOPS = LOOP LOOP = IBEGN ASSIGN 420 TO IOUT GO TO 121 420 L = 3 LOOP = IFIN ASSIGN 430 TO IOUT GO TO 121 430 ASSIGN 210 TO IOUT L = 1 LOOP = LOOPS WRITE (OTPE,440) IBEGN,IPRBF(1),IPRBF(2),IFIN,IPRBF(3),IPRBF(4) 440 FORMAT ('0COLUMNS',I8,2H (,I8,1H-,A2,6H) THRU,I8,2H (,I8,1H-,A2, 1 11H) ARE NULL.) LINE = LINE + 2 IF (LINE .GE. NLPP) CALL PAGE IF (IFIN .NE. NCOL) GO TO 120 GO TO 370 450 IFIN = LOOP GO TO 410 460 IN = GPL 470 CALL MESAGE (-2,IN,NAME) 480 IN = USET GO TO 470 490 IN = SIL GO TO 470 500 CALL MESAGE (8,0,NAME) GO TO 370 510 CALL MESAGE (7,0,NAME) GO TO 370 END ================================================ FILE: mis/matprn.f ================================================ SUBROUTINE MATPRN C C MATRIX PRINT MODULE C WILL PRINT UP TO 5 DBi INPUT MATRICES C INPUT MATRICES CAN BE IN S.P, D.P, S.P.COMPLEX, OR D.P.COMPLEX C C MATPRN DB1,DB2,DB3,DB4,DB5//C,N,P1/C,N,P2/C,N,P3/C,N,P4/C,N,P5/ C C,N,P6 C C WHERE P1 AND P2 ARE PRINT FORMAT CONTROLS C P1 = 0, MATRICES PRINTED IN THEIR ORIG. PREC. (DEFAULT), C = 1, MATRICES PRINTED IN S.P. PREC. (e.g. x.xxxE+xx) C = 2, MATRICES PRINTED IN D.P. PREC. (e.g. -x.xxxD+xx) C =-1, ONLY THE DIAGONAL ELEMENTS OF THE MATRIX WILL BE C PRINTED IN THEIR ORIG. PRECISON C P2 = NO. OF DATA VALUES PRINTED PER LINE (132 DIGITS/LINE) C = 8 TO 14 IF MATRICES ARE PRINTED IN S.P. (DEFAULT=10) C = 6 TO 12 IF MATRICES ARE PRINTED IN D.P. (DEFAULT= 9) C C P3, P4, P5 ARE PRINTOUT CONTROLS C P3 = m, MATRIX COLUMNS, 1 THRU m, WILL BE PRINTED. C DEFAULT = 0, ALL MATRIX COLUMNS WILL BE PRINTED. C =-m, SEE P4 = -n C P4 = n, LAST n MATRIX COLUMNS ARE PRINTED. DEFAULT = 0 C =-n, AND P3 = -m, EVERY OTHER n MATRIX COLUMNS WILL BE C PRINTED, STARTIN FROM COLUMN m. C P5 = k, EACH PRINTED COLUMN WILL NOT EXCEED k LINES LONG C AND THE REMAINING DATA WILL BE OMITTED. C P6 = LU, WHERE LU LOGICAL FILE NUMBER = 11(UT1), 12(UT2), C 14(INPT), 15(INT1),...,23(INT9), 24(IBM'S INPT). C DEFAULT IS ZERO, SYSTEM PRINTER. C IF LU IS 11 THRU 24, THE MATRIX PRINTOUT IS SAVED IN C FORTRAN UNIT LU. C C C LAST REVISED BY G.CHAN/UNISYS C 12/91, NEW MODULE PARAMETERS TO ALLOW USER SOME CONTROL OVER C POSSIBLY MASSIVE MATRIX PRINTOUT C 8/92, TO PRINT ONLY THE DIAGONAL ELEMENTS FOR POSSIBLY MATRIX C SINGULARITY CHECK, AND PARAMETER P6 C INTEGER P1,P2,P3,P4,P5,P6 DIMENSION MCB(7) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / P1,P2,P3,P4,P5,P6 COMMON /SYSTEM/ IBUF,NOUT C IF (P1.LE.2 .AND. P2.LE.14) GO TO 30 WRITE (NOUT,10) UWM,P1,P2,P3,P4,P5,P6 10 FORMAT (A25,', MATPRN PARAMETERS APPEAR IN ERROR. P1,P2,P3,P4,', 1 'P5,P6 =',6I5, /5X,'P1 IS RESET TO ZERO, AND P2 TO 6 TO', 2 ' 14 DEPENDING ON TYPE OF DATA') C C CHECK THAT USER REALY WANTS TO SET P3,P4,P5, AND INSTEAD HE SETS C THEM TO P1,P2,P3 C IF (P4.NE.0 .OR. P5.NE.0 .OR. P3.GT.50) GO TO 30 P3 = P1 P4 = P2 P5 = P3 WRITE (NOUT,20) P3,P4,P5 20 FORMAT (5X,'P3,P4,P5 ARE SET TO ',3I5) GO TO 30 30 DO 110 I = 1,5 MCB(1) = 100 + I CALL RDTRL (MCB(1)) IF (MCB(1) .LT. 0) GO TO 110 IF (P1 .EQ. -1) GO TO 90 ITYP = MCB(5) NDPL = P2 IF (NDPL .NE. 0) GO TO 40 NDPL = 9 IF (MOD(ITYP,2) .EQ. 1) NDPL = 10 40 NPL = NDPL GO TO (50,60,70,80), ITYP 50 IF (NDPL .LT. 8) NPL = 8 IF (NDPL .GT. 14) NPL = 14 GO TO 90 60 IF (NDPL .LT. 6) NPL = 6 IF (NDPL .GT. 12) NPL = 12 GO TO 90 70 NDPL = (NDPL/2)*2 NPL = NDPL IF (P1.LE.0 .OR. P1.GT.2) GO TO 50 GO TO (50,60), P1 80 NDPL = (NDPL/2)*2 NPL = NDPL IF (P1.LE.0 .OR. P1.GT.2) GO TO 60 GO TO (50,60), P1 90 IPREC = P1 IF (IPREC.EQ.1 .OR. IPREC.EQ.2 .OR. P1.EQ.-1) GO TO 100 IPREC = 2 IF (MOD(ITYP,2) .EQ. 1) IPREC = 1 100 IOUT = NOUT IF (P6.GE.11 .AND. P6.LE.24) IOUT = P6 CALL MATDUM (MCB(1),IPREC,NPL,IOUT) 110 CONTINUE RETURN END ================================================ FILE: mis/matprt.f ================================================ SUBROUTINE MATPRT (*,*,A,OPTION,COLUMN) C C MATPRT AND PRTMAT ARE CALLED ONLY BY INTPRT C REAL A(1) INTEGER OPTION,COLUMN(1),FILE,TYPE,BUFSIZ,COUNT, 1 UTYPE,UI,UJ,UINC,RSP,RDP,CSP,CDP,REW COMMON /SYSTEM/ BUFSIZ,MO,SKP1(6),MAXLIN,SKP2(2),COUNT COMMON /UNPAKX/ UTYPE,UI,UJ,UINC COMMON /XXMPRT/ MCB(7) C C MCB = MATRIX CONTROL BLOCK. C A = ARRAY OF BUFSIZ + I (REAL) OR 2I (COMPLEX) LOCATIONS. C OPTION IS AS DESCRIBED IN -VECPRT-. C RETURN 1 ... PRINT MATRIX TITLE + COLUMN IDENTIFIER. C RETURN 2 ... PRINT COLUMN IDENTIFIER ONLY. C (PRTMAT = RETURN ENTRY POINT) C COLUMN = CURRENT COLUMN NUMBER C EQUIVALENCE (FILE,MCB(1)), (J,MCB(2)), (I,MCB(3)), (TYPE,MCB(5)) DATA RSP,RDP,CSP,CDP,REW,INPREW / 1,2,3,4,1,0 / C IF (I.LE.0 .OR. J.LE.0) GO TO 150 UTYPE = TYPE IF (TYPE .EQ. RDP) UTYPE = RSP IF (TYPE .EQ. CDP) UTYPE = CSP UI = 1 UJ = I UINC = 1 CALL GOPEN (FILE,A,INPREW) COUNT = MAXLIN C COLUMN(1) = 0 110 COLUMN(1) = COLUMN(1) + 1 CALL UNPACK (*140,FILE,A(BUFSIZ+1)) CALL VECPRT (*120,*130,UTYPE,I,A(BUFSIZ+1),OPTION) GO TO 140 120 RETURN 1 130 RETURN 2 C C ENTRY PRTMAT (*,*,COLUMN) C ========================= C CALL PRTVEC (*120,*130) 140 IF (COLUMN(1) .NE. J) GO TO 110 C CALL CLOSE (FILE,REW) 150 RETURN END ================================================ FILE: mis/matvc2.f ================================================ SUBROUTINE MATVC2 (Y,X,FILEA,BUF) C C MATVC2 WILL FORM THE PRODUCT X = X + A*Y WHERE A IS A MATRIX C AND Y IS A VECTOR C C THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION C INTEGER FILEA(7) ,SUB(2) ,DIAG ,RDP ,EOL DOUBLE PRECISION Y(1) ,X(1) ,A ,DA DIMENSION BUF(1) COMMON /ZNTPKX/ A(2) ,II ,EOL C COMMON /DESCRP/ LENGTH ,MAJOR(1) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,IWTRI ,UPRTRI , 4 SYM ,ROW ,IDENTY COMMON /TRDXX / IDUM(27) ,IOPEN EQUIVALENCE (A(1),DA) DATA SUB / 4HMATV, 4HC2 / C IF (FILEA(1) .EQ. 0) RETURN NCOL = FILEA(2) IF (FILEA(4) .EQ. IDENTY) GO TO 60 IF (IOPEN .EQ. 1) GO TO 5 CALL OPEN (*90,FILEA(1),BUF,RDREW) 5 CALL FWDREC (*100,FILEA(1)) IF (FILEA(4) .EQ. DIAG) GO TO 40 C C MATRIX IS FULL C DO 30 I = 1,NCOL IF (Y(I) .EQ. 0.0D0) GO TO 20 CALL INTPK (*30,FILEA(1),0,RDP,0) 10 CALL ZNTPKI X(II) = DA*Y(I) + X(II) IF (EOL) 30,10,30 20 CALL FWDREC (*100,FILEA(1)) 30 CONTINUE GO TO 80 C C MATRIX IS DIAGONAL C 40 CALL INTPK (*80,FILEA(1),0,RDP,0) 50 CALL ZNTPKI X(II) = Y(II)*DA +X(II) IF (EOL) 80,50,80 C C MATRIX IS THE IDENTITY C 60 DO 70 I = 1,NCOL 70 X(I) = Y(I) + X(I) RETURN C 80 CALL REWIND (FILEA(1)) IF (IOPEN .EQ. 0) CALL CLOSE (FILEA(1),REW) RETURN C 90 NO = -1 GO TO 110 100 NO = -2 110 CALL MESAGE (NO,FILEA(1),SUB(1)) RETURN END ================================================ FILE: mis/matvec.f ================================================ SUBROUTINE MATVEC (Y,X,FILEA,BUF) C C MATVEC WILL FORM THE PRODUCT X = X + A*Y WHERE A IS A MATRIX C AND Y IS A VECTOR C C THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION C INTEGER FILEA(7) ,SUB(2) ,DIAG ,RSP ,EOL DIMENSION Y(1) ,X(1) ,BUF(1) COMMON /ZNTPKX/ A(4) ,II ,EOL C COMMON /DESCRP/ LENGTH ,MAJOR(1) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,IWTRI ,UPRTRI , 4 SYM ,ROW ,IDENTY COMMON /TRDXX / IDUM(27) ,IOPEN EQUIVALENCE (A(1),DA) DATA SUB / 4HMATV, 4HEC / C IF (FILEA(1) .EQ. 0) RETURN NCOL = FILEA(2) IF (FILEA(4) .EQ. IDENTY) GO TO 60 IF (IOPEN .EQ. 1) GO TO 5 CALL OPEN (*90,FILEA(1),BUF,RDREW) 5 CALL FWDREC (*100,FILEA(1)) IF (FILEA(4) .EQ. DIAG) GO TO 40 C C MATRIX IS FULL C DO 30 I = 1,NCOL IF (Y(I) .EQ. 0.0) GO TO 20 CALL INTPK (*30,FILEA(1),0,RSP,0) 10 CALL ZNTPKI X(II) = DA*Y(I) + X(II) IF (EOL) 30,10,30 20 CALL FWDREC (*100,FILEA(1)) 30 CONTINUE GO TO 80 C C MATRIX IS DIAGONAL C 40 CALL INTPK (*80,FILEA(1),0,RSP,0) 50 CALL ZNTPKI X(II) = Y(II)*DA +X(II) IF (EOL) 80,50,80 C C MATRIX IS THE IDENTITY C 60 DO 70 I = 1,NCOL 70 X(I) = Y(I) + X(I) RETURN C 80 CALL REWIND (FILEA(1)) IF (IOPEN .EQ. 0) CALL CLOSE (FILEA(1),REW) RETURN C 90 NO = -1 GO TO 110 100 NO = -2 110 CALL MESAGE (NO,FILEA(1),SUB(1)) RETURN END ================================================ FILE: mis/matwrt.f ================================================ SUBROUTINE MATWRT (IFILE,XNAME,XITEM,LCORE) C INTEGER OTPE,SYSBUF DOUBLE PRECISION DCOL DIMENSION IA(7),TYPE(10),FORM(18),DCOL(1),XNAME(2) COMMON /ZZZZZZ/ COL(1) COMMON /UNPAKX/ IT,K,L,INCR COMMON /SYSTEM/ SYSBUF,OTPE,INX(6),NLPP,INX1(2),LINE COMMON /OUTPUT/ HEAD1(96),HEAD2(96) EQUIVALENCE (COL(1),DCOL(1)) DATA TYPE / 4HREAL,4H ,4HDB ,4HPREC,4HCOMP,4HLEX ,4HCMP , 1 4HD.P.,4HILL ,4HDEFN/ DATA FORM / 4HSQUA,4HRE ,4HRECT,4HANG ,4HDIAG,4HONAL,4HLOW , 1 4HTRI ,4HUPP ,4HTRI ,4HSYME,4HTRIC,4HVECT,4HOR , 2 4HIDEN,4HITY ,4HILL ,4HDEFN/ DATA BLANK , SU ,BSTR ,UCTU ,RE ,XIT ,EM ,CONT / 1 4H , 4H SU,4HBSTR,4HUCTU,4HRE ,4H IT,4HEM ,4HCONT/ DATA XINUE , DX / 1 4HINUE, 4HD / C C C TRANSFER MATRIX FORM SOF TO GINO C CALL MTRXI (IFILE,XNAME,XITEM,0,ITEST) IF (ITEST .NE. 1) RETURN IA(1) = IFILE CALL RDTRL (IA(1)) C DO 10 I = 1,96 10 HEAD2(I) = BLANK HEAD2( 1) = SU HEAD2( 2) = BSTR HEAD2( 3) = UCTU HEAD2( 4) = RE HEAD2( 5) = XNAME(1) HEAD2( 6) = XNAME(2) HEAD2( 7) = XIT HEAD2( 8) = EM HEAD2( 9) = XITEM HEAD2(11) = CONT HEAD2(12) = XINUE HEAD2(13) = DX NAMEA = IFILE LCOL = LCORE - SYSBUF INCR = 1 CALL GOPEN (NAMEA,COL(LCOL+1),0) IT = IA(5) IF (IT.LE.0 .OR. IT.GT.4) IT = 5 IF = IA(4) IF (IF.LE.0 .OR. IF.GT.8) IF = 9 NCOL = IA(2) NROW = IA(3) IF (IF .EQ. 7) NCOL = IA(3) CALL PAGE1 WRITE (OTPE,20) XNAME,XITEM,TYPE(2*IT-1),TYPE(2*IT),NCOL,NROW, X FORM(2*IF-1),FORM(2*IF) 20 FORMAT (1H0,6X,13HSUBSTRUCTURE ,2A4,6H ITEM ,A4,6H IS A ,2A4, X 1X,I6,10H COLUMN X ,I6,5H ROW ,2A4,8H MATRIX. ) IF (IT.EQ.5 .OR. IF.EQ.9 .OR. NCOL.EQ.0 .OR. NROW.EQ.0) GO TO 320 IF (IF-8) 30,300,320 30 IF (IF.NE.3 .AND. IF.NE.7) GO TO 40 NCOL = 1 NROW = IA(3) 40 INULL= 0 IT1 = 5 IF (IT.EQ.1 .OR. IT.EQ.3) IT1 = 9 ASSIGN 60 TO IHOP JJ = 1 50 K = 0 L = 0 CALL UNPACK (*190,NAMEA,COL) IF (INULL .EQ. 1) GO TO 330 60 NROW = L - K + 1 GO TO (80,80,220,80,80,80,240), IF 80 WRITE (OTPE,90) JJ,K,L LINE = LINE + 3 IF (LINE .GE. NLPP) CALL PAGE 90 FORMAT (8H0COLUMN ,I6,5X,6H ROWS ,I6,6H THRU ,I6,5X,50(1H-),/1H ) IF (IT .GT. 2) NROW = 2*NROW 91 K = 0 100 J = K + 1 IF (J .GT. NROW) GO TO 200 K = J + IT1 IF (K .GT. NROW) K = NROW GO TO (110,130,150,170), IT C C REAL SINGLE PRECISION C 110 WRITE (OTPE,120) (COL(I),I=J,K) 120 FORMAT (1X,1P,10E13.5) 121 LINE = LINE + 1 IF (LINE .GE. NLPP) CALL PAGE GO TO 100 C C REAL DOUBLE PRECISION C 130 WRITE (OTPE,140) (DCOL(I),I=J,K) 140 FORMAT (1P,6D22.14) GO TO 121 C C COMPLEX SINGLE C 150 WRITE (OTPE,160) (COL(I),I=J,K) 160 FORMAT (5(1P,E12.4,1H+,1P,E12.4,1HI)) GO TO 121 C C COMPLEX DOUBLE C 170 WRITE (OTPE,180) (DCOL(I),I=J,K) 180 FORMAT (3(1P,D20.12,1H+,1P,D20.12,2HI )) GO TO 121 190 IF (INULL .EQ. 1) GO TO 200 IBEGN = JJ INULL = 1 200 JJ = JJ + 1 IF (JJ .LE. NCOL) GO TO 50 ASSIGN 210 TO IHOP IF (INULL .EQ. 1) GO TO 330 210 CALL CLOSE (NAMEA,1) GO TO 270 220 WRITE (OTPE,230)K,L LINE = LINE + 2 230 FORMAT (30H0DIAGONAL ELEMENTS FOR COLUMNS,I6,3H TO,I7,4H ARE,/1H0) GO TO 91 240 WRITE (OTPE,250) K,L LINE = LINE + 2 250 FORMAT (25H0ROW ELEMENTS FOR COLUMNS,I6,4H TO ,I6,4H ARE ,/1H0 ) GO TO 91 270 WRITE (OTPE,280) IA(6) 280 FORMAT (53H0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =, 1 I8 ) IA7A = IA(7)/100 IA7C = IA(7) - 100*IA7A IA7B = IA7C/10 IA7C = IA7C - 10*IA7B WRITE (OTPE,285) IA7A,IA7B,IA7C 285 FORMAT (31H0THE DENSITY OF THIS MATRIX IS ,I3,1H.,I1,I1, 1 9H PERCENT.) 290 RETURN C 300 WRITE (OTPE,310) 310 FORMAT (16H0IDENTITY MATRIX) 320 CALL CLOSE (NAMEA,1) C C FUNNY MATRIX -- TABLE PRINT IT C CALL TABPRT (NAMEA) GO TO 290 330 IFIN = JJ - 1 WRITE (OTPE,340) IBEGN,IFIN INULL = 0 LINE = LINE + 2 IF (LINE .GE. NLPP) CALL PAGE 340 FORMAT (9H0COLUMNS ,I7,6H THRU ,I7,10H ARE NULL.) GO TO IHOP, (60,210) END ================================================ FILE: mis/maxdgr.f ================================================ FUNCTION MAXDGR (NC,IC,IDEG) DIMENSION IC(1), IDEG(1) COMMON /BANDS / NN C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C THIS FUNCTION HAS AS ITS VALUE THE MAXIMUM DEGREE OF ANY NODE OF C COMPONENT NC IF NC.GT.0 C IF NC.LE.0, ALL COMPONENTS ARE CONSIDERED. C M=0 DO 100 I=1,NN IF (NC) 40,50,40 40 IF (IC(I) -NC) 100,50,100 50 IF (IDEG(I)-M) 100,100,60 60 M=IDEG(I) 100 CONTINUE MAXDGR=M RETURN END ================================================ FILE: mis/mbamg.f ================================================ SUBROUTINE MBAMG (INPUT,AJJL,SKJ) C C DRIVER FOR MACH BOX THEORY C LOGICAL CNTRL2,CNTRL1,CRANK1,CRANK2,ASYM INTEGER SYSBUF,AJJL,SKJ,NAME(2),IZ(1),BUF1,SCR2 REAL MACH CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /MBOXA / X(12),Y(12),TANG(10),ANG(10),COTANG(10) COMMON /MBOXC / NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX, 1 NPTS0,NPTS1,NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR, 2 EKM,BOXL,BOXW,BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2, 3 KCT,KC1T,KC2T COMMON /SYSTEM/ SYSBUF,NOUT COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK COMMON /PACKX / ITI,IT0,II,NN,INCR COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)) DATA NAME / 4HMBAM,4HG / DATA NHCORE, NHCAPF,NHCONT /4HCORE,4HCAPF,4HCONT/ DATA SCR2 / 302 / C C SCR2 CONTAINS THE INTERPOLATED POINTS C C 2 * KCT FOR NPTS0 POINTS C 2 * KC1T FOR NPTS1 POINTS C 2 * KC2T FOR NPTS2 POINTS C C C OPEN CORE POINTERS FIXED DIMENSIONS C NW1 = 1 NWN = 51 NC21 = 101 NC2N = 151 NC1 = 201 NCN = 251 ND1 = 301 NDN = 351 NXK = 401 NYK = 601 NXK1 = 801 NYK1 = 926 NXK2 = 1051 NYK2 = 1176 NXWTE = 1301 NYWTE = 1351 NKTE = 1401 NKTE1 = 1451 NKTE2 = 1501 NPAREA=1551 ICORR = 9051 C C INITITALIZE PUT HEADER DATA IN MBOXC C ICORE = KORSZ(IZ) - 4*SYSBUF BUF1 = ICORE - SYSBUF CALL FREAD (INPUT,NJJ,9,0) ASYM = .FALSE. IF( ND .EQ. -1 ) ASYM = .TRUE. MACH = FMACH BETA = SQRT((MACH*MACH)-1.0) CALL FREAD (INPUT,Z,24,0) C C MOVE X AND Y TO MBOXA C L = 0 DO 10 I = 1,23,2 L = L + 1 X(L) = Z(I) Y(L) = Z(I+1) 10 CONTINUE CALL MBGEOD EK = (2.0*CR/REFC)*RFK CMAX = AMAX1(X(4),X(5),X(6)) BOXL = CMAX/(FLOAT(NBOX) + 0.50) BOXW = BOXL/BETA NSB = Y(3)/BOXW + 0.5 NSB = MIN0(NSB,50) BOXW = Y(3)/(FLOAT(NSB) - 0.50) BOXL = BOXW*BETA NCB = CMAX/BOXL + 0.999 C C CALL MBREG TO GENERATE BOXES C ICRQ = ICORR - BUF1 IF (ICORR .GT. BUF1) GO TO 996 20 CALL MBREG (IREG,Z(NW1),Z(NWN),Z(NC21),Z(NC2N),Z(NC1),Z(NCN), 1 Z(ND1),Z(NDN),Z(NXK),Z(NYK),Z(NXK1),Z(NYK1),Z(NXK2), 2 Z(NYK2),Z(NXWTE),Z(NYWTE),Z(NKTE),Z(NKTE1),Z(NKTE2), 3 Z(NPAREA)) IF (IREG .NE. 2) GO TO 30 IF (NBOX .LT. 2) GO TO 999 NBOX = NBOX - 1 GO TO 20 30 CALL MBPLOT (Z(NW1),Z(ND1),Z(NWN),Z(NC21),Z(NC2N),Z(NC1), 1 Z(NCN),Z(NDN)) C C CALL MBMODE TO GENERATE MODE LIKE DATA C CALL GOPEN (SCR2,Z(BUF1),1) CALL MBMODE (INPUT,SCR2,ICORR,BUF1,Z,NPTS0,KCT,Z(NXK),Z(NYK),IS, 1 CR) IF (IS .EQ. 2) GO TO 997 IF (CNTRL1) CALL MBMODE (INPUT,SCR2,ICORR,BUF1,Z,NPTS1,KC1T, 1 Z(NXK1),Z(NYK1),IS,CR) IF (IS .EQ. 2) GO TO 997 IF (CNTRL2) CALL MBMODE (INPUT,SCR2,ICORR,BUF1,Z,NPTS2,KC2T, 1 Z(NXK2),Z(NYK2),IS,CR) IF (IS .EQ. 2) GO TO 997 CALL CLOSE (SCR2,1) EKBAR = (EK*BOXL*MACH*MACH)/(BETA*BETA) EKM = EKBAR/MACH CALL FREAD (INPUT,0,0,1) CALL BUG (NHCORE,80,Z,NYK1-1) CALL BUG (NHCORE,80,Z(NYK1),NPAREA-NYK1) CALL DMPFIL (SCR2 ,Z(ICORR),BUF1-ICORR) C C MORE DIMENSIONS C IF (MOD(ICORR,2) .EQ. 0) ICORR = ICORR + 1 NCAP = ICORR NCAPH = NCB*(NCB+1)/2 C C COMPLEX PHIS C ICORR = NCAP + NCAPH*2 ICRQ = ICORR - BUF1 IF (ICORR .GT. BUF1) GO TO 996 CALL MBCAP (NCAPH,Z(NCAP)) ICORR = NCAP + NCAPH*2 CALL BUG (NHCAPF,80,Z(NCAP),NCAPH*2) C C PUT OUT SKJ C ITI = 1 IT0 = 3 II = ISK NSK = NSK + 1 NN = NSK RM = 1.0 DO 100 I = 1,NJJ CALL PACK (RM,SKJ,TSKJ) II = II + 1 IF (I .EQ. NJJ) GO TO 100 NN = NN + 1 100 CONTINUE ISK = II NSK = NN C C SET UP FOR COLUMN OF AJJL C ITI = 3 IT0 = 3 II = NROW + 1 NN = NROW + NJJ C C GET AJJL MATRIX TERMS C MORE DIMENSIONS C NPHIT = ICORR NDSS = NPHIT + (3*NSBD)*2 NQ = NDSS + (NCB*NSBD)*2 NQ1 = NQ + KCT*2 NQ2 = NQ1 + KC1T*2 NA = NQ2 + KC2T*2 ICORR = NA + NJJ*2 CALL BUG (NHXECT,100,X,54) CALL BUG (NHCONT,100,NJJ,30) ICRQ = ICORR - BUF1 IF (ICORR .GT. BUF1) GO TO 996 CALL MBDPDH (AJJL,Z(NXK),Z(NYK),Z(NXK1),Z(NYK1),Z(NXK2),Z(NYK2), 1 Z(NXWTE),Z(NYWTE),Z(NPAREA),Z(NCAP),Z(NPHIT),Z(NDSS), 2 Z(NQ),Z(NQ1),Z(NQ2),Z(NDN),Z(ND1),Z(NW1),Z(NWN), 3 Z(NKTE),Z(NKTE1),Z(NKTE2),Z(NC1),NCB,NSBD,SCR2, 4 Z(BUF1),Z(NA)) NROW = NROW + NJJ 1000 RETURN C C ERROR MESSAGES C 997 WRITE (NOUT,9971) UFM 9971 FORMAT (A23,' 2424, MACH BOX CONTROL POINTS IMPROPER SINGULAR ', 1 'MATRIX RESULTED') GO TO 998 999 WRITE (NOUT,9991) UFM 9991 FORMAT (A23,' 2425, MACH BOX GENERATION OF BOXES FAILED') 998 CALL MESAGE (-37,0,NAME) 996 CALL MESAGE (-8,ICRQ,NAME) GO TO 1000 END ================================================ FILE: mis/mbbslj.f ================================================ SUBROUTINE MBBSLJ (ARG,N,BSL) C C SUBROUTINE TO COMPUTE EVEN ORDERED BESSEL FUNCTIONS OF FIRST KIND C C UNDERFLOW MAY OCCUR IN THIS ROUTINE. THE RESULTS ARE NOT AFFECTED C DIMENSION BSL(4) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ SYSBUF,N6 C DO 1 I = 1,20 1 BSL(I) = 0.0 ASQ = ARG**2 IF (ASQ .LT. 0.01) GO TO 60 N = AMIN1(17.0,(ARG+10.0)) F = 2*N + 4 BSL(N+3) = 0.0 PF = (4.0*F*(F-1.0)/ASQ-(F-1.0)/F)*0.3 IF (PF .LE. 1.E-08) GO TO 70 BSL(N+2) = PF*1.E-30 PF = 0.0 J = N + 1 DO 10 I = 1,J M = N - I + 2 F = 2*M + 1 BSL(M) = ((4.*(F-1.)/ASQ-1./F-1./(F-2.))*BSL(M+1)-BSL(M+2)/F)* 1 (F-2.0) 10 PF = PF + 2.0*BSL(M+1) PF = PF + BSL(1) F = 0.0 IF (ABS(PF) .LE. 1.0) GO TO 20 F = ABS(PF)*1.E-10 20 N = N + 2 DO 40 I = 1,N IF (F .GE. ABS(BSL(I))) BSL(I) = 0.0 BSL(I) = BSL(I)/PF 40 CONTINUE M = N DO 50 I = 1,M IF (ABS(BSL(N)) .GT. 1.0E-07) RETURN N = N - 1 50 CONTINUE RETURN C 60 BSL(2) = 0.125*ASQ BSL(1) = 1.0 - 2.0*BSL(2) N = 2 GO TO 90 C 70 CALL PAGE2 (3) WRITE (N6,80) SFM,ARG 80 FORMAT (A25,' 2435, MBBSLJ SUBROUTINE FAILED BECAUSE THE ARGUMEN', 1 'T IS TOO LARGE FOR THE BSL ARRAY', /5X,'ARG =',1P,E13.5) CALL MESAGE (-61,0,0) 90 RETURN END ================================================ FILE: mis/mbcap.f ================================================ SUBROUTINE MBCAP(NPHI,CAPPHI) C REAL KM , KBAR , MACH , W(10), P(10) COMPLEX CAPPHI(1) COMMON /MBOXC/ NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX, * NPTS0,NPTS1,NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM, * BOXL,BOXW,BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T EQUIVALENCE ( KM , EKM ) , ( KBAR , EKBAR ) DATA W / 0.0506143,0.1111905,0.1568533,0.1813419,0.1813419, * 0.1568533,0.1111905,0.0506143,0.0,0.0/, * P / 0.0198551,0.1016667,0.2372338,0.4082826,0.5917174, * 0.7627662,0.8983333,0.9801449,0.0,0.0/ C DO 200 I = 1 , NPHI CAPPHI(I) = ( 0.0 , 0.0 ) 200 CONTINUE C C COMPUTE CAPPHI FOR RECEIVING BOX C IF ( KBAR .LE. 0.0 ) GO TO 400 DO 300 I = 1 , 8 J = 9 - I ARG = KBAR * P(J) / 2.0 ARG1 = W(I) * ZJ ( ARG / MACH ) / 2.0 CAPPHI(1) = CAPPHI(1) + CMPLX ( -COS ( ARG ) * ARG1 , * SIN ( ARG ) * ARG1 ) 300 CONTINUE GO TO 500 C 400 CAPPHI(1) = ( -0.5 , 0.0 ) C C COMPUTE REMAINING CAPPHI C 500 NPHI = 1 XB = 0.5 XU = XB + 1.0 DO 900 I = 2 , NCB XL = -0.5 XR = XL + 1.0 DO 700 J = 1 , I NPHI = NPHI + 1 DO 600 L = 1 , 8 X = XB + P(L) ARG = KBAR * X ARG1 = W(L) * GO ( X , XR , XL , KM ) / 3.14159265 CAPPHI(NPHI) = CAPPHI(NPHI) - CMPLX ( COS ( ARG ) * ARG1 , * -SIN ( ARG ) * ARG1 ) 600 CONTINUE XL = XR XR = XR + 1.0 700 CONTINUE C XB = XU XU = XB + 1.0 900 CONTINUE C DO 1000 I = 1 , NPHI CAPPHI(I) = BOXW * CAPPHI(I) 1000 CONTINUE RETURN END ================================================ FILE: mis/mbctr.f ================================================ SUBROUTINE MBCTR (ICTR,IL1,IR1,NCN,NC1,NWN,NW1,PAREA) C C CONTROL1 SURFACE C C CONVEX ONLY: C MUST COMPILE WITH O1 OR LOWER OPTIMIZATION OPTION. IF O2 IS USED, C THE COMPILER WOULD GO INTO INFINITE LOOP. C LOGICAL CNTRL2,CNTRL1,CRANK1,CRANK2,ASYM DIMENSION NCN(1),NC1(1),NWN(1),NW1(1),PAREA(50,50,3), 1 X(5),Y(5),TANG(5),COTANG(5) COMMON /MBOXA/ XX(12),YY(12),TG(10),ANG(10),COTG(10) COMMON /MBOXC/ NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,NPTS0,NPTS1, 1 NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,BOXL,BOXW, 2 BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T C IF (ICTR .EQ. 2) GO TO 1000 X(1) = XX( 7) X(2) = XX( 8) X(3) = XX( 9) X(4) = XX(11) Y(1) = YY( 7) Y(2) = YY( 8) Y(3) = YY( 9) Y(4) = YY(11) TANG(1) = TG(6) TANG(2) = TG(7) TANG(3) = TG(8) COTANG(1) = COTG(6) COTANG(2) = COTG(7) COTANG(3) = COTG(8) GO TO 2000 C C CONTROL2 SURFACE C 1000 X(1) = XX(11) X(2) = XX( 9) X(3) = XX(10) X(4) = XX(12) Y(1) = YY(11) Y(2) = YY( 9) Y(3) = YY(10) Y(4) = YY(12) TANG(1) = TG( 8) TANG(2) = TG(10) TANG(3) = TG( 9) COTANG(1) = COTG( 8) COTANG(2) = COTG(10) COTANG(3) = COTG( 9) C 2000 X(5) = XX(5) Y(5) = YY(5) TANG(4) = TG(4) TANG(5) = TG(5) COTANG(4) = COTG(4) COTANG(5) = COTG(5) C IL1 = AMIN1(Y(2),Y(1))/BOXW + 1.5 IR1 = AMAX1(Y(3),Y(4))/BOXW + 1.4999 DO 6000 I = IL1,IR1 YR = (FLOAT(I)-0.5)*BOXW YL = YR-BOXW C XLL = (YL-Y(2))*TANG(1) + X(2) XRL = (YR-Y(2))*TANG(1) + X(2) XLH = (YL-Y(2))*TANG(2) + X(2) XRH = (YR-Y(2))*TANG(2) + X(2) XLR = (YL-Y(3))*TANG(3) + X(3) XRR = (YR-Y(3))*TANG(3) + X(3) C IF (CRANK2 .AND. Y(5).LE.Y(1)) GO TO 4515 C XLT = (YL-Y(1))*TANG(4) + X(1) XRT = (YR-Y(1))*TANG(4) + X(1) GO TO 4520 C 4515 XLT = (YL-Y(1))*TANG(5) + X(1) XRT = (YR-Y(1))*TANG(5) + X(1) C 4520 IF (YL.LE.Y(2) .AND. YR.GE.Y(2)) GO TO 4525 C IF (YR .LT. Y(2)) GO TO 4550 JT = (XLH-AMOD(XLH,BOXL)+BOXL)/BOXL + 0.01 GO TO 4600 C 4525 JT = (X(2)-AMOD(X(2),BOXL)+BOXL)/BOXL + 0.01 GO TO 4600 C 4550 JT = (XRL-AMOD(XRL,BOXL)+BOXL)/BOXL + 0.01 C 4600 IF (YL.LT.Y(4) .AND. YR.GE.Y(4).AND.XRT.GE.XLT) GO TO 4625 IF (YL .GE. Y(4)) GO TO 4650 C JB = (AMAX1(XLT,XRT)-AMOD(AMAX1(XLT,XRT),BOXL)+BOXL)/BOXL + 0.01 GO TO 4700 4625 JB = (X(4)-AMOD(X(4),BOXL)+BOXL)/BOXL + 0.01 GO TO 4700 C 4650 JB = (XLR-AMOD(XLR,BOXL)+BOXL)/BOXL + 0.01 C 4700 DO 5400 J = JT,JB C XB = FLOAT(J)*BOXL XT = XB - BOXL C YTL = (XT-X(2))*COTANG(1) + Y(2) YBL = (XB-X(2))*COTANG(1) + Y(2) YTH = (XT-X(2))*COTANG(2) + Y(2) YBH = (XB-X(2))*COTANG(2) + Y(2) YTR = (XT-X(3))*COTANG(3) + Y(3) YBR = (XB-X(3))*COTANG(3) + Y(3) C IF (CRANK2 .AND. Y(5).LE.Y(1)) GO TO 4706 C YTT = (XT-X(1))*COTANG(4) + Y(1) YBT = (XB-X(1))*COTANG(4) + Y(1) GO TO 4708 C 4706 YTT = (XT-X(1))*COTANG(5) + Y(1) YBT = (XB-X(1))*COTANG(5) + Y(1) C C FULL BOXES C 4708 IF (YL.GE.YTL .AND. XT.GE.XRH .AND. YR.LT.YBR .AND. 1 XB.LT.XRT .AND. XB.LT.XLT) GO TO 4900 C C DOUBLE CORNER BOXES C IF (YL.LE.Y(2) .AND. YR.GE.Y(2) .AND. XT.LT.X(2) .AND. 1 XB.GE.X(2) .AND. YL.LE.Y(1) .AND. YR.GE.Y(1) .AND. 2 XT.LT.X(1) .AND. XB.GE.X(1)) GO TO 4820 C IF (YL.LT.Y(3) .AND. YR.GE.Y(3) .AND. XT.LT.X(3) .AND. 1 XB.GE.X(3) .AND. YL.LT.Y(4) .AND. YR.GE.Y(4) .AND. 2 XT.LT.X(4) .AND. XB.GE.X(4)) GO TO 4840 C C SINGLE CORNER BOXES C IF (YL.LE.Y(2) .AND. YR.GE.Y(2) .AND. XT.LT.X(2) .AND. 1 XB.GE.X(2)) GO TO 4710 IF (YL.LE.Y(1) .AND. YR.GE.Y(1) .AND. XT.LT.X(1) .AND. 1 XB.GE.X(1)) GO TO 4730 IF (YL.LT.Y(3) .AND. YR.GE.Y(3) .AND. XT.LT.X(3) .AND. 1 XB.GE.X(3)) GO TO 4750 IF (YL.LT.Y(4) .AND. YR.GE.Y(4) .AND. XT.LT.X(4) .AND. 1 XB.GE.X(4)) GO TO 4770 C C HINGE + T. E. BOXES C IF (XT.LT.XRH .AND. (XB.GE.XLT .OR. XB.GE.XRT)) GO TO 4788 C C SIDE BOXES C IF (XB.GE.XLH .AND. XT.LT.XRH .AND. YL.GE.YTL .AND. (XB.LT.X(3) 1 .OR. YR.LT.Y(3))) GO TO 4745 IF (YL.LE.YTL .AND. YR.GE.YBL .AND. XB.GE.X(2) .AND. XT.LT.X(1)) 1 GO TO 4740 IF (YL.LT.YTR .AND. YR.GE.YBR .AND. XB.GE.X(3) .AND. XT.LT.X(4) 1 .AND. YR.GE.Y(4)) GO TO 4765 GO TO 4747 C C FWD LH CORNER C 4710 IF (YL.LE.YBL .AND. YR.GE.YBL .AND. XT.LT.XRH .AND. XB.GE.XRH) 1 PA = .5*((Y(2)-YBL)*(XB-X(2))+(2.*XB-X(2)-XRH)*(YR-Y(2)))/BOXA IF (XT.LT.XLL .AND. XB.GE.XLL .AND. XT.LT.XRH .AND. XB.GE.XRH) 1 PA = .5*((2.*XB-XLL-X(2))*(Y(2)-YL)+(2.*XB-XRH-X(2))*(YR-Y(2))) 2 /BOXA IF (XT.LT.XLL .AND. XB.GE.XLL .AND. YL.LT.YBH .AND. YR.GE.YBH) 1 PA = .5*((2.*XB-X(2)-XLL)*(Y(2)-YL)+(YBH-Y(2))*(XB-X(2)))/BOXA IF (YL.LE.YBL .AND. YR.GE.YBL .AND. YL.LT.YBH .AND. YR.GE.YBH) 1 PA = 0.5*(XB-X(2))*(YBH-YBL)/BOXA IF (I-1) 4799,5000,4799 C 4720 IF (YL.LE.YTL .AND. YR.GE.YTL .AND. YL.LT.YTH .AND. YR.GE.YTH .AND 1. XT.LT.XLL .AND. XB.GE.XLL .AND. XT.LT.XRH .AND. XB.GE.XRH) 2 PA = 1.0 - 0.5*((XLL-XT)*(YTL-YL)+(YR-YTH)*(XRH-XT))/BOXA IF (YL.LE.YBL .AND. YR.GE.YBL .AND. YL.LE.YTL .AND. YR.GE.YTL .AND 1. YL.LT.YTH .AND. YR.GE.YTH .AND. XT.LT.XRH .AND. XB.GE.XRH) 2 PA = 1.0 - 0.5*((YTL+YBL-2.0*YL)*BOXL+(YR-YTH)*(XRH-XT))/BOXA IF (YL.LT.YBH .AND. YR.GE.YBH .AND. XT.LT.XLL .AND. XB.GE.XLL .AND 1. YL.LE.YTL .AND. YR.GE.YTL .AND. YL.LT.YTH .AND. YR.GE.YTH) 2 PA = 1.0 - 0.5*((YTL-YL)*(XLL-XT)+(2.0*YR-YTH-YBH)*BOXL)/BOXA IF (YL.LE.YTL .AND. YR.GE.YTL .AND. YL.LT.YTH .AND. YR.GE.YTH .AND 1. YL.LE.YBL .AND. YR.GE.YBL .AND. YL.LT.YBH .AND. YR.GE.YBH) 2 PA = 0.5*(YTH+YBH-YTL-YBL)/BOXW IF (YL.LE.YTL .AND. YR.GE.YTL .AND. YL.LE.YBL .AND. YR.GE.YBL .AND 1. YL.LT.YBT .AND. YR.GE.YBT .AND. XT.LT.XRT .AND. XB.GE.XRT) 2 PA = 0.5*((2.0*YR-YTL-YBL)*BOXL-(YR-YBT)*(XB-XRT))/BOXA IF (YL.LT.YTL .AND. YR.GE.YTL .AND. XT.LT.XLL .AND. XB.GE.XLL .AND 1. XT.LT.XLT .AND. XB.GE.XLT .AND. YL.LT.YBT .AND. YR.GE.YBT) 2 PA = 1.0 - 0.5*((YTL-YL)*(XLL-XT)+(XB-XLT)*(YBT-YL))/BOXA IF (XT.LT.XLL .AND. XB.GE.XLL .AND. XT.LT.XRL .AND. XB.GE.XRL .AND 1. YL.LT.YBT .AND. YR.GE.YBT .AND. XT.LT.XLT .AND. XB.GE.XLT) 2 PA = 0.5*((2.0*XB-XLL-XRL)*BOXW-(XB-XLT)*(YBT-YL))/BOXA IF (YL.LT.YTL .AND. YR.GE.YTL .AND. XT.LT.XLL .AND. XB.GE.XLL .AND 1. XT.LT.XLT .AND. XB.GE.XLT .AND. XT.LT.XRT .AND. XB.GE.XRT) 2 PA = 0.5*((XLT+XRT-2.0*XB)*BOXW-(YTL-YL)*(XLL-XT))/BOXA IF (XT.LT.XLL .AND. XB.GE.XLL .AND. XT.LT.XLT .AND. XB.GE.XLT .AND 1. XT.LT.XRL .AND. XB.GE.XRL .AND. XT.LT.XRT .AND. XB.GE.XRT) 2 PA = 0.5*(XLT+XRT-XLL-XRL)/BOXL IF (I-1) 4799,5000,4799 C C AFT LH CORNER C 4730 IF (X(1) .GE. X(4)) GO TO 4735 IF (YL.LT.YBT .AND. YR.GE.YBT .AND. YL.LE.YTL .AND. YR.GE.YTL) 1 PA = .5*((2.*YR-YTL-Y(1))*(X(1)-XT)+(2.*YR-Y(1)-YBT)*(XB-X(1))) 2 /BOXA 4735 IF (YL.LE.YTL .AND. YR.GE.YTL .AND. XT.LT.XRT .AND. XB.GE.XRT) 1 PA = .5*((Y(1)-YTL)*(X(1)-XT)+(X(1)+XRT-2.*XT)*(YR-Y(1)))/BOXA IF (YL.LT.YTT .AND. YR.GE.YTT .AND. YL.LE.YTL .AND. YR.GE.YTL .AND 1. YTT.GE.YTL) PA = 0.5*(YTT-YTL)*(X(1)-XT)/BOXA IF (XT.LT.XRL .AND. XB.GE.XRL .AND. XT.LT.XRT .AND. XB.GE.XRT) 1 PA = 0.5*(XRT-XRL)*(YR-Y(1))/BOXA IF (YL.LT.YBT .AND. YR.GE.YBT .AND. XT.LT.XRL .AND. XB.GE.XRL) 1 PA = .5*((X(1)-XRL)*(YR-Y(1))+(2.*YR-Y(1)-YBT)*(XB-X(1)))/BOXA IF (I-1) 4799,5000,4799 C C LH EDGE C 4740 IF (I .EQ. 1) GO TO 4800 C IF (XT.LT.XLL .AND. XB.GE.XLL .AND. XT.LT.XRL .AND. XB.GE.XRL) 1 PA = 0.5*(2.0*XB-XLL-XRL)/BOXL IF (YL.LE.YBL .AND. YR.GE.YBL .AND. XT.LT.XRL .AND. XB.GE.XRL) 1 PA = 0.5*(YR-YBL)*(XB-XRL)/BOXA IF (YL.LE.YTL .AND. YR.GE.YTL .AND. YL.LE.YBL .AND. YR.GE.YBL) 1 PA = 0.5*(2.0*YR-YTL-YBL)/BOXW IF (YL.LE.YTL .AND. YR.GE.YTL .AND. XT.LT.XLL .AND. XB.GE.XLL) 1 PA = 1.0 - 0.5*(XLL-XT)*(YTL-YL)/BOXA GO TO 4720 C C HINGE LINE C 4745 IF (YL.LT.YTH .AND. YR.GE.YTH .AND. XT.LT.XRH .AND. XB.GE.XRH) 1 PA = 1.0 - 0.5*(YR-YTH)*(XRH-XT)/BOXA IF (XT.LT.XLH .AND. XB.GE.XLH .AND. XT.LT.XRH .AND. XB.GE.XRH) 1 PA = 0.5*(2.0*XB-XLH-XRH)/BOXL IF (YL.LT.YBH .AND. YR.GE.YBH .AND. XT.LT.XLH .AND. XB.GE.XLH) 1 PA = 0.5*(XB-XLH)*(YBH-YL)/BOXA IF (YL.LT.YTH .AND. YR.GE.YTH .AND. YL.LT.YBH .AND. YR.GE.YBH) 1 PA = 0.5*(YTH+YBH-2.0*YL)/BOXW GO TO 4760 C C TRAILING EDGE C 4747 IF (YL.LT.YTT .AND. YR.GE.YTT .AND. XT.LT.XRT .AND. XB.GE.XRT) 1 PA = 0.5*(YR-YTT)*(XRT-XT)/BOXA IF (XT.LT.XLT .AND. XB.GE.XLT .AND. XT.LT.XRT .AND. XB.GE.XRT) 1 PA = 0.5*(XLT+XRT-2.0*XT)/BOXL IF (XT.LT.XLT .AND. XB.GE.XLT .AND. YL.LT.YBT .AND. YR.GE.YBT) 1 PA = 1.0 - 0.5*(XB-XLT)*(YBT-YL)/BOXA IF (YL.LT.YTT .AND. YR.GE.YTT .AND. YL.LT.YBT .AND. YR.GE.YBT) 1 PA = 0.5*(2.0*YR-YTT-YBT)/BOXW IF (YL.LT.YBT .AND. YR.GE.YBT .AND. XT.LT.XRT .AND. XB.GE.XRT) 1 PA = 1.0 - 0.5*(YR-YBT)*(XB-XRT)/BOXA IF (XT.LT.XLT .AND. XB.GE.XLT .AND. YL.LT.YTT .AND. YR.GE.YTT) 1 PA = 0.5*(XLT-XT)*(YTT-YL)/BOXA GO TO 4799 C C FWD RH CORNER C 4750 IF (YR.GE.YBR .AND. YL.LT.YBR .AND. XT.LT.XLH .AND. XB.GE.XLH) 1 PA = 0.5*((X(3)-XLH)*(Y(3)-YL)+(Y(3)+YBR-2.0*YL)*(XB-X(3))) 2 /BOXA IF (XT.LT.XLH .AND. XB.GE.XLH .AND. XT.LT.XLR .AND. XB.GE.XLR) 1 PA = 0.5*(XLR-XLH)*(Y(3)-YL)/BOXA IF (YR.GE.YTH .AND. YL.LT.YTH .AND. XT.LT.XLR .AND. XB.GE.XLR) 1 PA = .5*((YTH+Y(3)-2.*YL)*(X(3)-XT)+(Y(3)-YL)*(XLR-X(3)))/BOXA IF (YR.GE.YTH .AND. YL.LT.YTH .AND. YR.GE.YBR .AND. YL.LT.YBR) 1 PA = 0.5*((YTH+Y(3)-2.0*YL)*(X(3)-XT)+(Y(3)+YBR-2.0*YL)* 2 (XB-X(3)))/BOXA GO TO 4799 C 4760 IF (YR.GE.YBR .AND. YL.LT.YBR .AND. XT.LT.XRR .AND. XB.GE.XRR .AND 1. XT.LT.XRH .AND. XB.GE.XRH .AND. YL.LT.YTH .AND. YR.GE.YTH) 2 PA = 1.0 - 0.5*((YR-YTH)*(XRH-XT)+(XB-XRR)*(YR-YBR))/BOXA IF (YR.GE.YBR .AND. YL.LT.YBR .AND. XT.LT.XRR .AND. XB.GE.XRR .AND 1. XT.LT.XRH .AND. XB.GE.XRH .AND. XT.LT.XLH .AND. XB.GE.XLH) 2 PA = 0.5*((2.0*XB-XLH-XRH)*BOXW-(YR-YBR)*(XB-XRR))/BOXA IF (YL.LT.YTH .AND. YR.GE.YTH .AND. XT.LT.XRH .AND. XB.GE.XRH .AND 1. XT.LT.XRR .AND. XB.GE.XRR .AND. XT.LT.XLR .AND. XB.GE.XLR) 2 PA = 0.5*((XLR+XRR-2.0*XT)*BOXW-(YR-YTH)*(XRH-XT))/BOXA IF (XT.LT.XLH .AND. XB.GE.XLH .AND. XT.LT.XLR .AND. XB.GE.XLR .AND 1. XT.LT.XRH .AND. XB.GE.XRH .AND. XT.LT.XRR .AND. XB.GE.XRR) 2 PA = 0.5*(XLR+XRR-XLH-XRH)/BOXL GO TO 4799 C C RH EDGE C 4765 IF (XT.LT.XRR .AND. XB.GE.XRR .AND. XT.LT.XLR .AND. XB.GE.XLR) 1 PA = 0.5*(XLR+XRR-2.0*XT)/BOXL IF (YR.GE.YTR .AND. YL.LT.YTR .AND. XT.LT.XLR .AND. XB.GE.XLR) 1 PA = 0.5*(YTR-YL)*(XLR-XT)/BOXA IF (YR.GE.YTR .AND. YL.LT.YTR .AND. YR.GE.YBR .AND. YL.LT.YBR) 1 PA = 0.5*(YTR+YBR-2.0*YL)/BOXW IF (YR.GE.YBR .AND. YL.LT.YBR .AND. XT.LT.XRR .AND. XB.GE.XRR) 1 PA = 1.0 - 0.5*(XB-XRR)*(YR-YBR)/BOXA GO TO 4780 C C AFT RH CORNER C 4770 IF (X(4) .GE. X(1)) GO TO 4775 IF (YR.GE.YTR .AND. YL.LT.YTR .AND. YL.LT.YBT .AND. YR.GE.YBT) 1 PA = 0.5*((YTR+Y(4)-2.0*YL)*(X(4)-XT)+(Y(4)+YBT-2.0*YL)* 2 (XB-X(4)))/BOXA 4775 IF (YR.GE.YTR .AND. YL.LT.YTR .AND. XT.LT.XLT .AND. XB.GE.XLT) 1 PA = .5*((XLT-X(4))*(Y(4)-YL)+(YTR+Y(4)-2.*YL)*(X(4)-XT))/BOXA IF (YL.LT.YTT .AND. YR.GE.YTT .AND. YR.GE.YTR .AND. YL.LT.YTR) 1 PA = 0.5*(YTR-YTT)*(X(4)-XT)/BOXA IF (XT.LT.XLT .AND. XB.GE.XLT .AND. XT.LT.XRR .AND. XB.GE.XRR) 1 PA = 0.5*((XLT+X(4)-2.0*XT)*(Y(4)-YL)+(X(4)+XRR-2.0*XT)* 2 (YR-Y(4)))/BOXA IF (YL.LT.YTT .AND. YR.GE.YTT .AND. XT.LT.XRR .AND. XB.GE.XRR) 1 PA = .5*((Y(4)-YTT)*(X(4)-XT)+(X(4)+XRR-2.*XT)*(YR-Y(4)))/BOXA GO TO 4799 C 4780 IF (XT.LT.XLT .AND. XB.GE.XLT .AND. YR.GE.YBR .AND. YL.LT.YBR .AND 1. YL.LT.YBT .AND. YR.GE.YBT .AND. XT.LT.XRR .AND. XB.GE.XRR) 2 PA = 1.0 - 0.5*((XB-XLT)*(YBT-YL)+(YR-YBR)*(XB-XRR))/BOXA IF (YL.LT.YTT .AND. YR.GE.YTT .AND. YL.LT.YBT .AND. YR.GE.YBT .AND 1. YR.GE.YBR .AND. YL.LT.YBR .AND. XT.LT.XRR .AND. XB.GE.XRR) 2 PA = 0.5*((2.0*YR-YTT-YBT)*BOXL-(YR-YBR)*(XB-XRR))/BOXA IF (YR.GE.YTR .AND. YL.LT.YTR .AND. YR.GE.YBR .AND. YL.LT.YBR .AND 1. XT.LT.XLT .AND. XB.GE.XLT .AND. YL.LT.YBT .AND. YR.GE.YBT) 2 PA = 0.5*((YTR+YBR-2.0*YL)*BOXL-(XB-XLT)*(YBT-YL))/BOXA IF (YL.LT.YTT .AND. YR.GE.YTT .AND. YR.GE.YTR .AND. YL.LT.YTR .AND 1. YL.LT.YBT .AND. YR.GE.YBT .AND. YR.GE.YBR .AND. YL.LT.YBR) 2 PA = 0.5*(YTR-YTT+YBR-YBT)/BOXW GO TO 4799 C 4788 IF (XB.GE.XLT .AND. YR.GE.YBT .AND. YL.LT.YTH) 1 PA = 1.0 - 0.5*((YR-YTH)*(XRH-XT)+(XB-XLT)*(YBT-YL))/BOXA IF (XB.GE.XRT .AND. YL.LT.YBT .AND. YL.LT.YTH) 1 PA = 1.0 - 0.5*((YR-YTH)*(XRH-XT)+(XB-XRT)*(YR-YBT))/BOXA IF (XT.LT.XLH .AND. XB.GE.XLT .AND. XB.GE.XRT) 1 PA = 0.5*(XRT-XRH+XLT-XLH)/BOXL IF (XT.LT.XLH .AND. YL.LT.YBT .AND. XB.GE.XRT) 1 PA = 1.0 - 0.5*((XLH+XRH-2.0*XT)*BOXW+(XB-XRT)*(YR-YBT))/BOXA IF (YL.LT.YTH .AND. XB.GE.XLT .AND. XB.GE.XRT) 1 PA = 1.0 - 0.5*((2.0*XB-XLT-XRT)*BOXW+(XRH-XT)*(YR-YTH))/BOXA IF (XT.LT.XLH .AND. YR.GE.YBT .AND. XB.GE.XLT) 1 PA = 1.0 - 0.5*((XLH+XRH-2.0*XT)*BOXW+(XB-XLT)*(YBT-YL))/BOXA C 4799 PAREA(J,I,2) = PA PAREA(J,I,1) = PAREA(J,I,1) - PA GO TO 5400 C 4800 YL1 = 0.0 XLL1 = (YL1-Y(2))*TANG(1) + X(2) C IF (XT.LT.XLL1 .AND. XB.GE.XLL1 .AND. XT.LT.XRL .AND. XB.GE.XRL) 1 PA = 0.5*(2.0*XB-XLL1-XRL)*(YR-YL1)/BOXA IF (YL1.LE.YBL .AND. YR.GE.YBL .AND. XT.LT.XRL .AND. XB.GE.XRL) 1 PA = 0.5*(XB-XRL)*(YR-YBL)/BOXA IF (YL1.LE.YTL .AND. YR.GE.YTL .AND. XT.LT.XLL .AND. XB.GE.XLL) 1 PA = 1.0 - 0.5*(YTL-YL1)*(XLL1-XT)/BOXA IF (YL1.LE.YTL .AND. YR.GE.YTL .AND. YL1.LE.YBL .AND. YR.GE.YBL) 1 PA = 0.5*(2.0*YR-YTL-YBL)/BOXW GO TO 4720 C C LH CORNERS C 4820 IF (YL.LE.YTH .AND. YR.GE.YTH .AND. YL.LE.YBT .AND. YR.GE.YBT) 1 PA = 0.5*((2.0*YR-YTH-Y(2))*(X(2)-XT)+(2.0*YR-Y(2)-Y(1))* 2 (X(1)-X(2))+(2.0*YR-Y(1)-YBT)*(XB-X(1)))/BOXA IF (XT.LT.XRH .AND. XB.GE.XRH .AND. YL.LE.YBT .AND. YR.GE.YBT) 1 PA = 0.5*((X(2)-XRH)*(YR-Y(2))+(2.0*YR-Y(2)-Y(1))*(X(1)-X(2)) 2 +(2.0*YR-Y(1)-YBT)*(XB-X(1)))/BOXA IF (YL.LE.YTH .AND. YR.GE.YTH .AND. XT.LT.XRT .AND. XB.GE.XRT) 1 PA = 0.5*((2.0*YR-YTH-Y(2))*(X(2)-XT)+(2.0*YR-Y(2)-Y(1))* 2 (X(1)-X(2))+(XRT-X(1))*(YR-Y(1)))/BOXA IF (XT.LT.XRH .AND. XB.GE.XRH .AND. XT.LT.XRT .AND. XB.GE.XRT) 1 PA = 0.5*((X(2)-XRH)*(YR-Y(2))+(2.0*YR-Y(2)-Y(1))*(X(1)-X(2)) 2 +(XRT-X(1))*(YR-Y(1)))/BOXA IF (I-1) 4799,5000,4799 C C RH CORNERS C 4840 IF (YL.LT.YTH .AND. YR.GE.YTH .AND. YL.LT.YBT .AND. YR.GE.YBT) 1 PA = 0.5*((YTH+Y(3)-2.0*YL)*(X(3)-XT)+(Y(3)+Y(4)-2.0*YL)*(X(4) 2 -X(3))+(Y(4)+YBT-2.0*YL)*(XB-X(4)))/BOXA IF (XT.LT.XLH .AND. XB.GE.XLH .AND. YL.LT.YBT .AND. YR.GE.YBT) 1 PA = 0.5*((X(3)-XLH)*(Y(3)-YL)+(Y(3)+Y(4)-2.0*YL)*(X(4)-X(3)) 2 +(Y(4)+YBT-2.0*YL)*(XB-X(4)))/BOXA IF (YL.LT.YTH .AND. YR.GE.YTH .AND. XT.LT.XLT .AND. XB.GE.XLT) 1 PA = 0.5*((YTH+Y(3)-2.0*YL)*(X(3)-XT)+(Y(3)+Y(4)-2.0*YL)*(X(4) 2 -X(3))+(XLT-X(4))*(Y(4)-YL))/BOXA IF (XT.LT.XLH .AND. XB.GE.XLH .AND. XT.LT.XLT .AND. XB.GE.XLT) 1 PA = 0.5*((X(3)-XLH)*(Y(3)-YL)+(Y(3)+Y(4)-2.0*YL)*(X(4)-X(3)) 2 +(XLT-X(4))*(Y(4)-YL))/BOXA GO TO 4799 C 4900 PAREA(J,I,2) = 1.0 PAREA(J,I,1) = 0.0 GO TO 5400 C 5000 PAREA(J,I,2) = 2.0*PA PAREA(J,I,1) = PAREA(J,I,1) - PAREA(J,I,2) C 5400 CONTINUE C YC = YR - BOXW/2.0 XF = (YL-Y(2))*TANG(2) + X(2) C IF (YC .LT. Y(2)) GO TO 5600 IF (YC .LT. Y(3)) GO TO 5800 IF (YC .GE. Y(4)) GO TO 6000 XF2 = (YR-Y(3))*TANG(3) + X(3) NC1(I) = XF2/BOXL + 1.0 IF (YC .LT. Y(1)) GO TO 5900 5500 NCN(I) = NWN(I) GO TO 6000 5600 IF (YC .LT. Y(1)) GO TO 6000 XF1 = (YR-Y(2))*TANG(1) + X(2) NC1(I) = XF1/BOXL + 1.0 5700 NC1(I) = MAX0(NC1(I),NW1(I)) IF (YC .LT. Y(4)) GO TO 5500 XF2 = (YR-Y(3))*TANG(3) + X(3) NCN(I) = XF2/BOXL + 1.0 GO TO 6000 5800 NC1(I) = XF/BOXL + 1.0 IF (YC .GE. Y(1)) GO TO 5700 5900 XF1 = (YR-Y(2))*TANG(1) + X(2) NCN(I) = XF1/BOXL + 1.0 6000 CONTINUE C RETURN END ================================================ FILE: mis/mbdpdh.f ================================================ SUBROUTINE MBDPDH (AJJL,F,DF,F1,DF1,F2,DF2,XWTE,YWTE,PAREA,CAPPHI, 1 DPHITE,DSS,Q,Q1,Q2,NDN,ND1,NW1,NWN,KTE,KTE1, 2 KTE2,NTE,NNCB,NNSBD,IN17,IBUF,A) C LOGICAL CNTRL2,CNTRL1,CRANK1,CRANK2,ASYM,SURF,LPHI,TEBOX DIMENSION F(1),DF(1),F1(1),DF1(1),F2(1),DF2(1),XWTE(1), 1 YWTE(1),PAREA(50,50,3),NDN(1),ND1(1),NW1(1),NWN(1), 2 KTE(1),KTE1(1),KTE2(1),NTE(1),IBUF(1) COMPLEX CAPPHI(1),DPHITE(3,NNSBD),DSS(NNCB,NNSBD),DPHI,TDH, 1 WS,WF1,WF2,TEMPHI,WPHI,SUMPHI,TRAILE,Q(1),Q1(1), 2 Q2(1),A(1) COMMON /MBOXA/ X(12),Y(12),TANG(10),ANG(10),COTANG(10) COMMON /MBOXC/ NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,NPTS0,NPTS1, 1 NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,BOXL,BOXW, 2 BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T DATA NHCONT,NHDSS /4HCONT,4HDSS / C NSKP = 0 N1 = NPTS0 + NPTS1 CALL GOPEN (IN17,IBUF,0) DO 4000 MOOD = 1,NJJ DO 110 I = 1,NSBD NTE(I) = 0 DPHITE(1,I) = (0.0, 0.0) DPHITE(2,I) = (0.0, 0.0) DPHITE(3,I) = (0.0, 0.0) 110 CONTINUE DO 120 I = 1,NCB DO 120 J = 1,NSBD DSS(I,J) = (0.0, 0.0) 120 CONTINUE DO 121 J = 1,KCT Q (J) = (0.0, 0.0) F(J) = 0.0 121 DF(J) = 0.0 IF (.NOT.CNTRL1) GO TO 116 DO 115 J = 1,KC1T Q1(J) = (0.0, 0.0) F1(J) = 0.0 DF1(J) = 0.0 115 CONTINUE 116 IF (.NOT.CNTRL2) GO TO 118 DO 117 J = 1,KC2T Q2(J) = (0.0, 0.0) F2(J) = 0.0 DF2(J) = 0.0 117 CONTINUE 118 CALL FREAD (IN17,Z,-NSKP,0) JJ = MOOD IF (JJ .GT. NPTS0) GO TO 140 CALL FREAD (IN17,F,KCT,0) CALL FREAD (IN17,DF,KCT,0) NSKP = NSKP + 2*KCT GO TO 160 140 IF (JJ .GT. N1) GO TO 150 CALL FREAD (IN17,F1 ,KC1T,0) CALL FREAD (IN17,DF1,KC1T,0) NSKP = NSKP + KC1T*2 GO TO 160 150 CALL FREAD (IN17,F2 ,KC2T,0) CALL FREAD (IN17,DF2,KC2T,0) NSKP = NSKP + KC2T*2 160 CALL BCKREC (IN17) C C START LOOP FOR ROWS ON PLANFORM C KC = 0 KC1 = 0 KC2 = 0 DO 3000 I = 1,NCB IXR = I - 1 XB = BOXL*(FLOAT(IXR) + 0.5) XBB = XB + BOXL/2.0 C C BOXES ON PLANE OF MAIN C DO 1100 J = 1,NSBD IF (.NOT.(I.GE.ND1(J) .AND. I.LE.NDN(J))) GO TO 1100 DPHI = (0.0, 0.0) WPHI = DPHI TDH = (0.0 ,0.0) LPHI = .FALSE. SURF = .FALSE. TEBOX = .FALSE. IF (I .GE. (NW1(J)+NWN(J))/2) TEBOX = .TRUE. IYR = J - 1 YB = BOXW*FLOAT(IYR) K = 1 IF (YB .GT. Y(2)) K = 2 PAW = PAREA(I,J,1) PAF1 = PAREA(I,J,2) PAF2 = PAREA(I,J,3) PAWF = PAW + PAF1 + PAF2 IF (.NOT.TEBOX .AND. BETA.GT.TANG(K)) PAWF = 1.0 PAD = 1.0 - PAWF WS = (0.0, 0.0) WF1 = (0.0, 0.0) WF2 = (0.0, 0.0) IF (J.EQ.1 .AND. ASYM) GO TO 800 IF (J .GT. NSB) GO TO 500 IF (PAD .GE. 0.995) GO TO 400 IF (PAW .LT. 0.005) GO TO 200 C KC = KC + 1 WS = 2.0*PAW*CMPLX(DF(KC), EK*F(KC)) C 200 IF (PAF1 .LT. 0.005) GO TO 250 C KC1 = KC1 + 1 WF1 = 2.0*PAF1*CMPLX(DF1(KC1), EK*F1(KC1)) C 250 IF (PAF2 .LT. 0.005) GO TO 300 C KC2 = KC2 + 1 WF2 = 2.0*PAF2*CMPLX(DF2(KC2), EK*F2(KC2)) C 300 TDH = (WS+WF1+WF2)/(PAWF*CR) LPHI = .TRUE. TEMPHI = SUMPHI(IXR,IYR,ND1,NDN,CAPPHI,DSS,NNCB,NNSBD,ASYM) DPHI = TDH*CAPPHI(1) + TEMPHI IF (PAWF .GE. .005) SURF = .TRUE. IF (.NOT.SURF .OR. .NOT.TEBOX) GO TO 350 NTE(J) = I DPHITE(3,J) = DPHITE(2,J) DPHITE(2,J) = DPHITE(1,J) DPHITE(1,J) = DPHI C 350 IF (PAWF .GT. 0.995) GO TO 800 400 IF (.NOT.TEBOX) GO TO 500 XT = XWTE(J) IF (XT .GE. XBB) GO TO 420 DPHITE(1,J) = TRAILE(XT,J,NTE,DPHITE,NNSBD,BOXL) IF (XT .LE. XB) GO TO 450 420 IF (XT .GE. XBB+BOXL) GO TO 500 WPHI = DPHI GO TO 800 450 EX = EK*(XB-XT)/BOXL WPHI = DPHITE(1,J)*CMPLX(COS(EX), -SIN(EX)) GO TO 800 500 DPHI = PAWF*DPHI WPHI = (0.0, 0.0) IF (.NOT.LPHI) TEMPHI = SUMPHI(IXR,IYR,ND1,NDN,CAPPHI,DSS,NNCB, 1 NNSBD,ASYM) TDH = PAD*(WPHI-TEMPHI)/CAPPHI(1) + PAWF*TDH IF (.NOT.SURF) DPHI = WPHI 800 IF (SURF) CALL MBGAW (BOXL,DPHI,WS,PAW,PAF1,PAF2,Q,Q1,Q2,J,KC,KC1, 1 KC2) C DSS(I,J) = TDH 1100 CONTINUE 3000 CONTINUE CALL MBGATE (NTOTE,DPHITE,NNSBD,YWTE,Q,Q1,Q2,KTE,KTE1,KTE2) CALL MBGAE (AJJL,IN17,A,F,DF,F1,DF1,F2,DF2,Q,Q1,Q2,MOOD) CALL BUG (NHCONT,3000,NJJ,30) CALL BUG (NHDSS ,3000,DSS,4) 4000 CONTINUE CALL CLOSE (IN17,1) RETURN END ================================================ FILE: mis/mbgae.f ================================================ SUBROUTINE MBGAE(AJJL,IN17,A,F,DF,F1,DF1,F2,DF2,Q,Q1,Q2,MOOD) C C MULTIPLY SUM OBTAINED PREVIOUSLY BY SCRIPT A FACTOR C LOGICAL CNTRL2 , CNTRL1 , CRANK1 , CRANK2 , ASYM , DEBUG INTEGER AJJL REAL MACH DIMENSION F(1),DF(1),F1(1),DF1(1),F2(1),DF2(1) COMPLEX A(1),Q(1),Q1(1),Q2(1) COMMON /MBOXC/ NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX, * NPTS0,NPTS1,NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM, * BOXL,BOXW,BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T COMMON /SYSTEM/ SYSBUF,N6 COMMON /AMGMN / MCB(7) DATA DEBUG /.FALSE./ C GCK = GC * BOXW DO 10 I=1,NJJ 10 A(I) = (0.0,0.0) DO 1630 I=1,NPTS0 CALL FREAD(IN17,F ,KCT ,0) CALL FREAD(IN17,DF ,KCT ,0) DO 1620 J=1,KC A(I) = A(I) + CMPLX( DF(J),-EK*F(J))*Q(J) 1620 CONTINUE IF( KC.EQ.KCT ) GO TO 1630 KCC = KC + 1 DO 1625 J = KCC,KCT A(I) = A(I) + F(J)*Q(J) 1625 CONTINUE 1630 CONTINUE IF( .NOT. CNTRL1 ) GO TO 1660 JJ = NPTS0 DO 1650 I=1,NPTS1 CALL FREAD(IN17,F1 ,KC1T,0) CALL FREAD(IN17,DF1,KC1T,0) DO 1640 J=1,KC1 A(I+JJ) = A(I+JJ) + CMPLX( DF1(J),-EK*F1(J))*Q1(J) 1640 CONTINUE IF( KC1.EQ.KC1T ) GO TO 1650 KCC1 = KC1 + 1 DO 1645 J = KCC1,KC1T A(I+JJ) = A(I+JJ) + F1(J)*Q1(J) 1645 CONTINUE 1650 CONTINUE 1660 IF( .NOT. CNTRL2 ) GO TO 1700 JJ = JJ + NPTS1 DO 1690 I=1,NPTS2 CALL FREAD(IN17,F2 ,KC2T,0) CALL FREAD(IN17,DF2,KC2T,0) DO 1680 J=1,KC2 A(I+JJ) = A(I+JJ) + CMPLX( DF2(J),-EK*F2(J))*Q2(J) 1680 CONTINUE IF( KC2.EQ.KC2T ) GO TO 1690 KCC2 = KC2 + 1 DO 1685 J = KCC2,KC2T A(I+JJ) = A(I+JJ) + F2(J)*Q2(J) 1685 CONTINUE 1690 CONTINUE 1700 CONTINUE CALL BCKREC(IN17) DO 1710 I=1,NJJ A(I) = A(I) * GCK 1710 CONTINUE CALL PACK(A,AJJL,MCB) C C PRINT OUT GENERALIZED AERODYNAMIC FORCE COEFFICIENTS C IF(.NOT.DEBUG) RETURN IF(MOOD.GT.1) GO TO 2100 WRITE (N6 , 1900 ) MACH , BOXL , EK , BOXW 1900 FORMAT ( 1H1 , 31X , 30HGENERALIZED AERODYNAMIC FORCE * , 12HCOEFFICIENTS / 1H0 , 9X , 11HMACH NUMBER , F9.3 , * 40X , 10HBOX LENGTH , F12.6 / 1H0 * , 9X , 33HREDUCED FREQUENCY ( ROOT CHORD ) , F10.5 , 17X * , 9HBOX WIDTH , F13.6 / 1H0 , 42X , 21H- - A ( I , J ) - - * / 6H- ROW , 9X , 4HREAL , 10X , 4HIMAG , 14X , 4HREAL , 10X * , 4HIMAG , 14X , 4HREAL , 10X , 4HIMAG ) 2100 WRITE(N6,2000) MOOD, (A(J),J=1,NJJ) 2000 FORMAT ( 1H0 , I4 , 3 ( E18.4 , E14.4 ) / ( 1H0 , 4X , 3 ( E18.4 * , E14.4 ) ) ) RETURN END ================================================ FILE: mis/mbgate.f ================================================ SUBROUTINE MBGATE(NTOTE,DPHITE,N,YWTE,Q,Q1,Q2,KTE,KTE1,KTE2) C C SUM ON TRAILING EDGE C LOGICAL CNTRL1,CNTRL2 DIMENSION YWTE(1),KTE(1),KTE1(1),KTE2(1) COMPLEX Q(1),Q1(1),Q2(1),DPHITE(3,N),DPHI COMMON /MBOXC/ NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2 COMMON /MBOXA/ X(12),Y(12) DO 1400 J = 1 , NTOTE DPHI = DPHITE(1,J) * 0.5 * AMIN0(J,2) IF(CNTRL1.AND.YWTE(J).GE.Y(7).AND.YWTE(J).LE.Y(11)) GO TO 1100 IF(CNTRL2.AND.YWTE(J).GT.Y(11).AND.YWTE(J).LE.Y(12)) GO TO 1150 ISP=KTE(J) Q(ISP) = DPHI GO TO 1300 1100 ISP=KTE1(J) Q1(ISP) = DPHI GO TO 1300 1150 ISP=KTE2(J) Q2(ISP) = DPHI 1300 CONTINUE 1400 CONTINUE RETURN END ================================================ FILE: mis/mbgaw.f ================================================ SUBROUTINE MBGAW(BOXL,DPHI,WS,PAW,PAF1,PAF2,Q,Q1,Q2,M,KC,KC1,KC2) C C MAIN PLANE BOXES C (NEW MSC METHOD USED) C COMPLEX WS,DPHI,Q(1),Q1(1),Q2(1) WS = (-0.5 * AMIN0(M,2) * BOXL ) * DPHI IF( PAW .LT. 0.005 ) GO TO 120 Q(KC) = PAW * WS 120 IF( PAF1 .LT. 0.005 ) GO TO 140 Q1(KC1) = PAF1 * WS 140 IF( PAF2 .LT. 0.005 ) GO TO 300 Q2(KC2) = PAF2 * WS 300 CONTINUE RETURN END ================================================ FILE: mis/mbgeod.f ================================================ SUBROUTINE MBGEOD C C SUBROUTINE TO COMPUTE GEOMETRY AND INDEXES OF REGIONS C LOGICAL CNTRL2,CNTRL1,CRANK1,CRANK2,ASYM COMMON /MBOXC/ NJJ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,NPTS0,NPTS1, 1 NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,BOXL,BOXW, 2 BOXA,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T COMMON /MBOXA/ X(12),Y(12),TANG(10),ANG(10),COTANG(10) C C MAIN GEOMETRY C BIG = -1.0E35 DO 50 I = 1,10 TANG(I) = 0.0 ANG(I) = 0.0 50 CONTINUE Y(4) = Y(1) Y(6) = Y(3) C IF (CRANK1) GO TO 400 X(2) = X(3) Y(2) = Y(3) TANG(2) = 0.0 C 400 IF (CRANK2) GO TO 500 X(5) = X(6) Y(5) = Y(6) TANG(5) = 0.0 C 500 TANG(1) = (X(2)-X(1))/(Y(2)-Y(1)) ANG(1) = 57.2958*ATAN(TANG(1)) IF (CRANK1) TANG(2) = (X(3)-X(2))/(Y(3)-Y(2)) ANG(2) = 57.2958*ATAN(TANG(2)) TANG(4) = (X(5)-X(4))/(Y(5)-Y(4)) ANG(4) = 57.2958*ATAN(TANG(4)) IF (CRANK2) TANG(5) = (X(6)-X(5))/(Y(6)-Y(5)) ANG(5) = 57.2958*ATAN(TANG(5)) C AREAW = 0.5*(X(1)*(Y(1)-Y(2)) + X(2)*(Y(1)-Y(3)) + 1 X(3)*(Y(2)-Y(3)) + X(4)*(Y(5)-Y(1)) + 2 X(5)*(Y(3)-Y(1)) + X(6)*(Y(3)-Y(5))) C C CONTROL1 SURFACE GEOMETRY C AREA1 = 0.0 IF (.NOT.CNTRL1) GO TO 1620 TANG(7) = (X(9)-X(8))/(Y(9)-Y(8)) ANG(7) = 57.2958*ATAN(TANG(7)) C IF (ABS(Y(7)-Y(8)) .GT. 0.01) GO TO 1000 Y(7) = Y(8) TM = BIG IF (Y(7) .GT. Y(5)) GO TO 900 800 X(7) = TANG(4)*(Y(7)-Y(4)) + X(4) GO TO 1100 900 X(7) = TANG(5)*(Y(7)-Y(5)) + X(5) GO TO 1100 C 1000 TM = (X(7)-X(8))/(Y(7)-Y(8)) IF (Y(5).EQ.Y(7) .AND. X(5).EQ.X(7)) GO TO 1100 Y(7) = (TM*Y(8)-TANG(4)*Y(4)+X(4)-X(8))/(TM-TANG(4)) IF (Y(7) .LE. Y(5)) GO TO 800 Y(7) = (TM*Y(8)-TANG(5)*Y(5)+X(5)-X(8))/(TM-TANG(5)) GO TO 900 1100 TANG(6) = TM C IF (ABS(Y(11)-Y(9)) .GT. 0.01) GO TO 1400 Y(11) = Y(9) TM = BIG IF (Y(11) .GT. Y(5)) GO TO 1300 1200 X(11) = TANG(4)*(Y(11)-Y(4)) + X(4) GO TO 1500 1300 X(11) = TANG(5)*(Y(11)-Y(5)) + X(5) GO TO 1500 C 1400 TM = (X(11)-X(9))/(Y(11)-Y(9)) IF (Y(5).EQ.Y(11) .AND. X(5).EQ.X(11)) GO TO 1500 Y(11) = (TM*Y(9)-TANG(4)*Y(4)+X(4)-X(9))/(TM-TANG(4)) IF (Y(11) .LE. Y(5)) GO TO 1200 Y(11) = (TM*Y(9)-TANG(5)*Y(5)+X(5)-X(9))/(TM-TANG(5)) GO TO 1300 1500 TANG(8) = TM C IF (Y(7).LE.Y(5) .AND. Y(11).GE.Y(5)) GO TO 1600 AREA1 = 0.5*((X(8)-X(11))*(Y(7)-Y(9)) + 1 (X(9)-X(7))*(Y(8)-Y(11))) GO TO 1620 C 1600 AREA1 = 0.5*(X(5)*(Y(11)-Y(7)) + X(8)*(Y(7)-Y(9)) + 1 X(9)*(Y(8)-Y(11)) + X(7)*(Y(5)-Y(8)) + 2 X(11)*(Y(9)-Y(5))) C C CONTROL2 SURFACE GEOMETRY C 1620 AREA2 = 0.0 IF (.NOT.CNTRL2) GO TO 1700 TANG(10) = (X(10)-X(9))/(Y(10)-Y(9)) ANG(10) = 57.2958*ATAN(TANG(10)) IF (ABS(Y(12)-Y(10)) .GT. 0.01) GO TO 1660 Y(12) = Y(10) TM = BIG IF (Y(12) .GT. Y(5)) GO TO 1650 1640 X(12) = TANG(4)*(Y(12)-Y(4)) + X(4) GO TO 1670 1650 X(12) = TANG(5)*(Y(12)-Y(5)) + X(5) GO TO 1670 1660 TM = (X(12)-X(10))/(Y(12)-Y(10)) IF (Y(5).EQ.Y(12) .AND. X(5).EQ.X(12) ) GO TO 1670 Y(12) = (TM*Y(10)-TANG(4)*Y(4)+X(4)-X(10))/(TM-TANG(4)) IF (Y(12) .LE. Y(5)) GO TO 1640 Y(12) = (TM*Y(10)-TANG(5)*Y(5)+X(5)-X(10))/(TM-TANG(5)) GO TO 1650 1670 TANG(9) = TM C IF (Y(11).LE.Y(5) .AND. Y(12).GE.Y(5)) GO TO 1680 AREA2 = 0.5*((X(9)-X(12))*(Y(11)-Y(10)) 1 +(X(10)-X(11))*(Y(9)-Y(12))) GO TO 1700 C 1680 AREA2 = 0.5*(X(5)*(Y(12)-Y(11))+X(9)*(Y(11) 1 - Y(10))+X(10)*(Y(9)-Y(12))+X(11)*(Y(5) 2 - Y(9))+X(12)*(Y(10)-Y(5))) C C PRINT GEOMETRY DATA C 1700 CR = X(4) - X(1) CALL MBPRIT (AREAW,AREA1,AREA2) GC = 2.0*CR**2 XCENT = (X(3)+X(4)+X(6))/4.0 YCENT = Y(3)*(0.333 + 0.167*(X(6)-X(3))/X(4)) C DO 2100 I = 1,10 IF (TANG(I) .NE. 0) GO TO 1900 COTANG(I) = BIG GO TO 2100 1900 IF (TANG(I) .NE. BIG) GO TO 2000 COTANG(I) = 0. GO TO 2100 2000 COTANG(I) = 1./TANG(I) 2100 CONTINUE RETURN END ================================================ FILE: mis/mbmode.f ================================================ SUBROUTINE MBMODE(INPUT,OUT,ICOR,NCOR,Z,NI,ND,XD,YD,IS,CR) C C MBMODE BUILDS THE MODE LIKE DATA ON OUT FROM SURFACE SPLINE INTER C DIMENSION Z(1),XD(1),YD(1),NAME(2) DATA NAME /4HMBMO,4HDE / NNI = NI*2 NND = ND*2 IF(ICOR+NNI+NND.GT.NCOR) CALL MESAGE(-8,0,NAME) CALL FREAD(INPUT,Z(ICOR),NNI,0) IDP = ICOR + NNI L = 0 DO 10 I=1,ND Z(IDP+L) = XD(I) Z(IDP+L+1) = YD(I) L = L+2 10 CONTINUE ICC = IDP+L NCORE = NCOR-ICC C C CALL SSPLIN TO INTERPOLATE C CALL SSPLIN(NI,Z(ICOR),ND,Z(IDP),0,0,1,0,0.0,Z(ICC),NCORE,IS) IF(IS.EQ.2) GO TO 1000 C C REORDER INTO MACH BOX ORDER C M = IDP+ND ICC = ICC-1 DO 30 I=1,NI L = 0 DO 20 J=1,NND,2 Z(IDP+L) = Z(ICC+J) Z(M+L) = Z(ICC+J+1) * CR L = L+1 20 CONTINUE CALL WRITE(OUT,Z(IDP),NND,0) ICC = ICC + NND 30 CONTINUE 1000 RETURN END ================================================ FILE: mis/mbplot.f ================================================ SUBROUTINE MBPLOT (NW1,ND1,NWN,NC21,NC2N,NC1,NCN,NDN) C C SUBROUTINE TO PRINT A REPRESENTATION OF PLANFORM BEING CONSIDERED C REAL MACH DIMENSION NW1(1),ND1(1),NWN(1),NC21(1),NC2N(1),NC1(1), 1 NCN(1),NDN(1),PL(50) COMMON /SYSTEM/ SYS,N6 COMMON /MBOXC / NJJ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,NPTS0,NPTS1, 1 NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,BOXL,BOXW, 2 BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T DATA BLANK , DIA, WG , FP , TP , WK / 1 1H , 1H., 1HS, 1H1,1H2 , 1H, / C NSBM = MAX0(NSB,NSBD) NCBMX = MAX0(NCB,5 ) WRITE (N6,200) MACH,BOXW,BOXL 200 FORMAT (1H1,29X,'GRAPHIC DISPLAY OF REGIONS ON MAIN SEMISPAN', 1 /10X,11HMACH NUMBER ,F8.3,11X,9HBOX WIDTH ,F11.6 ,10X, 2 10HBOX LENGTH ,F11.6, //) DO 3100 I = 1,NCBMX DO 1900 J = 1,NSBM PL(J) = BLANK IF (J .GT. NSB ) GO TO 1500 IF (I .GE. NW1(J)) GO TO 1100 IF (I .LT. ND1(J)) GO TO 1900 PL(J) = DIA GO TO 1900 1100 IF (I .GT. NWN(J)) GO TO 1300 IF (I.GE.NC21(J) .AND. I.LE.NC2N(J)) GO TO 1150 IF (I.GE.NC1(J) .AND. I.LE.NCN(J) ) GO TO 1200 PL(J) = WG GO TO 1900 1150 PL(J) = TP GO TO 1900 1200 PL(J) = FP GO TO 1900 1300 IF (I .GT. NDN(J)) GO TO 1900 PL(J) = WK GO TO 1900 1500 IF ((I.GE.ND1(J) .AND. I.LE.NDN(J)) .OR. (I.GE.NC1(J) .AND. 1 I.LE.NCN(J))) PL(J) = DIA GO TO 1900 1900 CONTINUE C WRITE (N6,2000) (PL(J),J=1,NSBM) 2000 FORMAT (30X,50A1) C IF (I .GT. 5) GO TO 3100 GO TO (2100,2300,2500,2700,2900), I 2100 WRITE (N6,2200) 2200 FORMAT (1H+,84X,9HS MAIN ) GO TO 3100 2300 WRITE (N6,2400) 2400 FORMAT (1H+,84X,11H1 CNTRL1 ) GO TO 3100 2500 WRITE (N6,2600) 2600 FORMAT (1H+,84X,11H2 CNTRL2 ) GO TO 3100 2700 WRITE (N6,2800) 2800 FORMAT (1H+,84X,14H. DIAPHRAGM ) GO TO 3100 2900 WRITE (N6,3000) 3000 FORMAT (1H+,84X,9H, WAKE ) 3100 CONTINUE RETURN END ================================================ FILE: mis/mbprit.f ================================================ SUBROUTINE MBPRIT(AW,AC,AT) C C SUBROUTINE TO PRINT GEOMETRY DATA C LOGICAL CNTRL2 , CNTRL1 , CRANK1 , CRANK2 , ASYM COMMON /SYSTEM/ SYS,N6 COMMON /MBOXA/ X(12),Y(12),TANG(10),ANG(10),COTANG(10) COMMON /MBOXC/ NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX, * NPTS0,NPTS1,NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM, * BOXL,BOXW,BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T C WRITE (N6 , 200 ) CNTRL2 , CNTRL1 , CRANK1 , CRANK2 , ASYM 200 FORMAT ( 1H1 , 35X , 27HSUPERSONIC MACH BOX PROGRAM / 1H0 , 43X * , 12HCONTROL DATA / L20 , 9X , 6HCNTRL2 / L20 , 9X * , 6HCNTRL1 / L20 , 9X , 21HCRANK (LEADING EDGE) * / L20 , 9X , 22HCRANK (TRAILING EDGE) / L20 , 9X * , 14HANTI-SYMMETRIC / L20 ) C WRITE (N6 , 300 ) ( I , X(I) , Y(I) , TANG(I) , ANG(I) , I=1,7) 300 FORMAT (1H- , 42X , 13HGEOMETRY DATA / 1H0 , 8X , 1HN , 11X , 1HX * , 17X , 1HY , 16X , 4HTANG , 14X , 3HANG / ( I10 * , 4E18.6 ) ) C WRITE (N6 , 400 ) ( I , X(I) , Y(I) , TANG(I) , I = 8 , 10) * , ( I , X(I) , Y(I) , I = 11 , 12 ) 400 FORMAT(I10,3E18.6/I10,3E18.6/I10,3E18.6/(I10,2E18.6)) C WRITE (N6 , 500 ) AW , AC , AT 500 FORMAT ( 1H0 , 5X , 23HAREA OF MAIN (SEMISPAN) , 11X * , 15HAREA OF CNTRL1 * , 18X , 14HAREA OF CNTRL2 / E22.6,E34.6,E29.6) RETURN END ================================================ FILE: mis/mbreg.f ================================================ SUBROUTINE MBREG (IREG,NW1,NWN,NC21,NC2N,NC1,NCN,ND1,NDN,XK,YK, 1 XK1,YK1,XK2,YK2,XWTE,YWTE,KTE,KTE1,KTE2,PAREA) C C SUBROUTINE TO COMPUTE LIMITS OF REGION AND PERCENTAGE OF BOX IN C EACH C LOGICAL CNTRL2,CNTRL1,CRANK1,CRANK2,ASYM,DEBUG DIMENSION NW1(1),NWN(1),NC21(1),NC2N(1),NC1(1),NCN(1), 1 ND1(1),NDN(1),XK(1),YK(1),XK1(1),YK1(1),XK2(1), 2 YK2(1),XWTE(1),YWTE(1),KTE(1),KTE1(1),KTE2(1) DIMENSION PAREA(50,50,3) COMMON /SYSTEM/ SYS,N6 COMMON /MBOXA / X(12),Y(12),TANG(10),ANG(10),COTANG(10) COMMON /MBOXC / NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,NPTS0,NPTS1, 1 NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,BOXL,BOXW, 2 BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T DATA DEBUG / .FALSE./ C IPRINT = 0 IF (DEBUG) IPRINT = 1 C IREG = 1 BOXA = BOXL*BOXW KPT = 0 KC1T = 0 KC2T = 0 DO 20 I = 1,50 NW1(I) = 0 NWN(I) = 0 NC1(I) = 0 NCN(I) = 0 NC21(I) = 0 NC2N(I) = 0 ND1(I) = 0 NDN(I) = 0 KTE(I) = 0 KTE1(I) = 0 KTE2(I) = 0 XWTE(I) = 0.0 YWTE(I) = 0.0 DO 10 J = 1,50 DO 10 KP = 1,3 PAREA(I,J,KP) = 0. 10 CONTINUE 20 CONTINUE DO 30 I = 1,200 XK(I) = 0.0 30 YK(I) = 0.0 DO 40 I = 1,125 XK1(I) = 0.0 YK1(I) = 0.0 XK2(I) = 0.0 40 YK2(I) = 0.0 C C LEADING EDGE OF MAIN C XRE = 0.0 YBE = 0.0 K = 1 YR = -0.5*BOXW DO 220 I = 1,NSB YL = YR YR = (FLOAT(I)-0.5)*BOXW XLE = XRE IF (YR .GT. Y(K+1)) GO TO 50 XRE = (YR-Y(K))*TANG(K) + X(K) GO TO 60 50 XRE = (YR-Y(K+1))*TANG(K+1) + X(K+1) KPT = 1 60 XT = XLE - AMOD(XLE,BOXL) XB = XT + BOXL J1 = XB/BOXL + 0.01 C C DO 170 J = J1,NCB IF (XRE .GT. XB) GO TO 100 IF (XLE .GT. XT) GO TO 90 C IF (XT .LE. X(K+1)) GO TO 70 YTE = (XT-X(K+1))*COTANG(K+1) + Y(K+1) GO TO 80 70 YTE = (XT-X(K))*COTANG(K) + Y(K) IF (KPT .EQ. 1) KPT = 2 80 A = 0.5*(YR-YTE)*(XRE-XT) IF (KPT .EQ. 2) A = A + (XT*(Y(K+1)-YR) - YTE*(X(K+1)-XRE) + 1 X(K+1)*YR - XRE*Y(K+1))/2.0 PA = 1.0 - A/BOXA GO TO 180 C 90 A = 0.5*(XLE+XRE-2.0*XT)*(YR-YL) IF (KPT .GT. 0) A = A + (XLE*(Y(K+1)-YR) - YL*(X(K+1)-XRE) + 1 X(K+1)*YR - XRE*Y(K+1))/2.0 PA = 1.0 - A/BOXA GO TO 180 C 100 IF (XLE .GT. XT) GO TO 130 C YTE = YBE IF (XB .GT. X(K+1)) GO TO 110 YBE = (XB-X(K))*COTANG(K) + Y(K) GO TO 120 110 YBE = (XB-X(K+1))*COTANG(K+1) + Y(K+1) IF (KPT .EQ. 1) KPT = 2 120 A = 0.5*(YTE+YBE-2.0*YL)*BOXL IF (KPT .EQ. 2) A = A + (XT*(YBE-Y(K+1)) - YTE*(XB-X(K+1)) + 1 XB*Y(K+1) - YBE*X(K+1))/2.0 PA = A/BOXA GO TO 160 C 130 IF (XB .GT. X(K+1)) GO TO 140 YBE = (XB-X(K))*COTANG(K) + Y(K) GO TO 150 140 YBE = (XB-X(K+1))*COTANG(K+1) + Y(K+1) IF (KPT .EQ. 1) KPT = 2 150 A = 0.5*(XB-XLE)*(YBE-YL) IF (KPT .EQ. 2) A = A + (XLE*(YBE-Y(K+1)) - YL*(XB-X(K+1)) + 1 XB*Y(K+1) - YBE*X(K+1))/2.0 PA = A/BOXA 160 XT = XB XB = FLOAT(J+1)*BOXL IF (KPT .EQ. 2) KPT = 3 IF (I .EQ. 1) PA = 2.0*PA - 1.0 PAREA(J,I,1) = PA 170 CONTINUE GO TO 190 C 180 IF (I .EQ. 1) PA = 2.0*PA - 1.0 PAREA(J,I,1) = PA 190 YC = YR - 0.5*BOXW IF (KPT .LE. 0) GO TO 200 IF (YC .LE. Y(K+1)) GO TO 200 XC = (YC-Y(K+1))*TANG(K+1) + X(K+1) GO TO 210 200 XC = (YC-Y(K))*TANG(K) + X(K) 210 NW1(I) = XLE/BOXL + 1.0001 IF (KPT .GT. 0) K = K + 1 KPT = 0 220 CONTINUE IF (IPRINT .LE. 0) GO TO 250 WRITE (N6,240) WRITE (N6,230) (NW1(I),I=1,NSB) 230 FORMAT (10I12) 240 FORMAT (4H NW1) 250 CONTINUE C C TRAILING EDGE OF MAIN C XRE = X(4) K = 4 YR = 0.0 DO 460 I = 1,NSB YL = YR YR = (FLOAT(I)-0.5)*BOXW XLE = XRE IF (YR .GT. Y(K+1)) GO TO 260 XRE = (YR-Y(K))*TANG(K) + X(K) GO TO 270 260 XRE = (YR-Y(K+1))*TANG(K+1) + X(K+1) KPT = 1 270 XT = XLE - AMOD(XLE,BOXL) XB = XT + BOXL J = XB/BOXL + 0.01 IF (J .GT. 50) GO TO 410 IPT = 0 IF (XRE.GT.XB .OR. XRE.LT.XT) GO TO 280 A = 0.5*(XLE+XRE-2.0*XT)*(YR-YL) IF (KPT .GT. 0) A = A + (XLE*(Y(K+1)-YR) - YL*(X(K+1)-XRE) + 1 X(K+1)*YR - Y(K+1)*XRE)/2.0 IF (I .EQ. 1) A = 2.0*A GO TO 430 C 280 IPT = 1 IF (XLE .LT. XRE) GO TO 340 IPT = -1 290 IF (XRE .LT. XT) GO TO 300 C A = 0.5*(XB-XRE)*(YR-YTE) IF (KPT.GT.0 .AND. KPT.LT.3) A = A - (XRE*(YTE - Y(K+1)) - 1 YR*(XB-X(K+1)) + XB*Y(K+1) - YTE*X(K+1))/2.0 IF (I .EQ. 1) A = 2.0*A GO TO 420 C 300 YBE = YTE IF (XT .LT. X(K+1)) GO TO 310 YTE = (XT-X(K))*COTANG(K) + Y(K) GO TO 320 310 YTE = (XT-X(K+1))*COTANG(K+1) + Y(K+1) IF (KPT .EQ. 1) KPT = 2 320 IF (XLE .GT. XB) GO TO 330 C A = 0.5*(XLE-XT)*(YTE-YL) IF (KPT .EQ. 2) A = A + (XT*(YL-Y(K+1)) - YTE*(XLE-X(K+1)) + 1 XLE*Y(K+1) - YL*X(K+1))/2.0 GO TO 390 C 330 A = 0.5*BOXL*(YTE+YBE - 2.0*YL) IF (KPT .EQ. 2) A = A + (XT*(YBE-Y(K+1)) - YTE*(XB- X(K+1)) + 1 XB*Y(K+1) - YBE*X(K+1))/2.0 GO TO 390 C 340 IF (XRE .GT. XB) GO TO 350 C A = 0.5*(YR-YBE)*(XRE-XT) IF (KPT.GT.0 .AND. KPT.LT.3) A = A + (XT*(Y(K+1)-YR) - 1 YBE*(X(K+1)-XRE ) + X(K+1)*YR - Y(K+1)*XRE)/2.0 IF (I .EQ. 1) A = 2.0*A GO TO 430 C 350 YTE = YBE IF (XB .GT. X(K+1)) GO TO 360 YBE = (XB-X(K))*COTANG(K) + Y(K) GO TO 370 360 YBE = (XB-X(K+1))*COTANG(K+1) + Y(K+1) IF (KPT .EQ. 1) KPT = 2 370 IF (XLE .LT. XT) GO TO 380 C A = 0.5*(XB-XLE)*(YBE-YL) IF (KPT .EQ. 2) A = A - (XLE*(Y(K+1)-YBE) - YL* (X(K+1)-XB) + 1 X(K+1)*YBE - Y(K+1)*XB)/2.0 IF (I .EQ. 1) A = 2.0*A A = BOXA - A GO TO 400 C 380 A = 0.5*BOXL*(2.0*YR - YTE - YBE) IF (KPT .EQ. 2) A = A + (XT*(Y(K+1)-YBE) - YTE*(X(K+1)-XB) + 1 X(K+1)*YBE - Y(K+1)*XB)/2.0 C 390 IF (I .EQ. 1) A = 2.0*A 400 PA = A/BOXA A = 1.0 IF (PAREA(J,I,1) .GT. 0.0) A = PAREA(J,I,1) PAREA(J,I,1) = PA*A J = J + IPT IF (J .GT. 50) GO TO 410 XB = FLOAT(J)*BOXL XT = XB - BOXL IF (KPT .EQ. 2) KPT = 3 IF (IPT .GT. 0) GO TO 340 GO TO 290 410 IREG = 2 RETURN C 420 A = BOXA - A 430 YC = YR - 0.5*BOXW IF (KPT .LE. 0) GO TO 440 IF (YC .LE. Y(K+1)) GO TO 440 XC = (YC-Y(K+1))*TANG(K+1) + X(K+1) GO TO 450 440 XC = (YC-Y(K))*TANG(K) + X(K) 450 NWN(I) = AMAX1(XLE,XRE)/BOXL + 0.9999 PA = A/BOXA A = 1.0 IF (PAREA(J,I,1) .GT. 0.0) A = PAREA(J,I,1) PAREA(J,I,1) = PA*A XWTE(I) = XC YWTE(I) = YC IF (KPT .GT. 0) K = K + 1 KPT = 0 460 CONTINUE IF (IPRINT .LE. 0) GO TO 480 WRITE (N6,470) WRITE (N6,230) (NWN(I),I=1,NSB) 470 FORMAT (4H NWN) 480 CONTINUE NTOTE = NSB C C FILL IN MAIN PERCENTAGES C DO 520 I = 1,NSB N1 = NW1(I) NN = NWN(I) DO 490 J = N1,NN IF (PAREA(J,I,1) .LE. 0.0) PAREA(J,I,1) = 1.0 490 CONTINUE C C DIAPHRAGM INDEX C IF (I .NE. 1) GO TO 500 ND1(1) = NW1(1) NDN(1) = NWN(1) GO TO 520 500 ND1(I) = MIN0(NW1(I),ND1(I-1)+1) NDN(I) = MAX0(NWN(I),NDN(I-1)-1) IF (NDN(I) .LE. NDN(I-1)+1) GO TO 520 DO 510 K = 2,I KK = I - K + 1 IF (NDN(KK) .GE. NDN(KK+1)-1) GO TO 520 NDN(KK) = MAX0(NDN(KK),NDN(KK+1)-1) 510 CONTINUE 520 CONTINUE J = NSB + 1 530 IF (ND1(J-1) .GE. NDN(J-1)-1) GO TO 540 ND1(J) = ND1(J-1) + 1 NDN(J) = NDN(J-1) - 1 J = J + 1 IF (J .LE. 50) GO TO 530 IREG = 2 RETURN C 540 NSBD = J - 1 IF (IPRINT .LE. 0) GO TO 580 WRITE (N6,550) WRITE (N6,230) (ND1(I),I=1,NSBD) 550 FORMAT (4H ND1) WRITE (N6,560) WRITE (N6,230) (NDN(I),I=1,NSBD) 560 FORMAT (4H NDN) C WRITE (N6,610) DO 570 I = 1,NCB WRITE (N6,640) I WRITE (N6,600) (PAREA(I,J,1),J=1,NSB) 570 CONTINUE 580 IF (CNTRL1) CALL MBCTR (1,IL1,IR1,NCN,NC1,NWN,NW1,PAREA) IF (CNTRL2) CALL MBCTR (2,IL2,IR2,NC2N,NC21,NWN,NW1,PAREA) IF (IPRINT .EQ. 0) GO TO 650 DO 590 KXYZ = 1,3 IF (KXYZ .EQ. 1) WRITE (N6,610) IF (KXYZ .EQ. 2) WRITE (N6,620) IF (KXYZ .EQ.3 ) WRITE (N6,630) DO 590 I = 1,NCB WRITE (N6,640) I WRITE (N6,600) (PAREA(I,J,KXYZ),J=1,NSB) 590 CONTINUE 600 FORMAT (5X,10F9.5) 610 FORMAT (12H PAREA, MAIN) 620 FORMAT (14H PAREA, CNTRL1) 630 FORMAT (14H PAREA, CNTRL2) 640 FORMAT (4H ROW,I4) C C MAIN BOX CTR. COORDINATES C 650 KC = 0 DO 660 I = 1,NCB IXR = I - 1 DO 660 J = 1,NSB IF (.NOT.(I.GE.(ND1(J)) .AND. I.LE.(NDN(J)))) GO TO 660 IF (PAREA(I,J,1) .LT. 0.005) GO TO 660 JXR = J - 1 KC = KC + 1 IF (KC .GE. 200) GO TO 830 XK(KC) = BOXL*(FLOAT(IXR)+0.5) YK(KC) = BOXW*FLOAT(JXR) 660 CONTINUE DO 670 J = 1,NSB KC = KC + 1 IF (KC .GE. 200) GO TO 830 KTE(J) = KC XK(KC) = XWTE(J) YK(KC) = YWTE(J) 670 CONTINUE KCT = KC IF (IPRINT .LE. 0) GO TO 700 WRITE (N6,680) (I,XK(I),I=1,KC) 680 FORMAT (1H1,23H MAIN BOX CTR. X COORD.,/(10(1X,I4,F8.2))) WRITE (N6,690) (I,YK(I),I=1,KC) 690 FORMAT (1H1,23H MAIN BOX CTR. Y COORD.,/(10(1X,I4,F8.2))) 700 CONTINUE C C CNTRL1 BOX CTR. COORDINATES C IF (.NOT.CNTRL1) GO TO 750 KC1 = 0 DO 710 I = 1,NCB IXR = I - 1 DO 710 J = IL1,IR1 IF (PAREA(I,J,2) .LT. 0.005) GO TO 710 JXR = J - 1 KC1 = KC1 + 1 IF (KC1 .GE. 125) GO TO 830 XK1(KC1) = BOXL*(FLOAT(IXR)+0.5) YK1(KC1) = BOXW*FLOAT(JXR) 710 CONTINUE DO 720 J = IL1,IR1 KC1 = KC1 + 1 IF (KC1 .GE. 125) GO TO 830 KTE1(J) = KC1 XK1(KC1) = XWTE(J) YK1(KC1) = YWTE(J) 720 CONTINUE KC1T = KC1 IF (IPRINT .LE. 0) GO TO 750 WRITE (N6,730) (I,XK1(I),I=1,KC1) 730 FORMAT (1H1,25H CNTRL1 BOX CTR. X COORD.,/(10(1X,I4,F8.2))) WRITE (N6,740) (I,YK1(I),I=1,KC1) 740 FORMAT (1H1,25H CNTRL1 BOX CTR. Y COORD.,/(10(1X,I4,F8.2))) C C CNTRL2 BOX CTR. COORDINATES C 750 IF (.NOT.CNTRL2) GO TO 800 KC2 = 0 DO 760 I = 1,NCB IXR = I - 1 DO 760 J = IL2,IR2 IF (PAREA(I,J,3) .LT. 0.005) GO TO 760 JXR = J - 1 KC2 = KC2 + 1 IF (KC2 .GE. 125) GO TO 830 XK2(KC2) = BOXL*(FLOAT(IXR)+0.5) YK2(KC2) = BOXW*FLOAT(JXR) 760 CONTINUE DO 770 J = IL2,IR2 KC2 = KC2 + 1 IF (KC2 .GE. 125) GO TO 830 KTE2(J) = KC2 XK2(KC2) = XWTE(J) YK2(KC2) = YWTE(J) 770 CONTINUE KC2T = KC2 IF (IPRINT .LE. 0) GO TO 800 WRITE (N6,780) (I,XK2(I),I=1,KC2) 780 FORMAT (1H1,25H CNTRL2 BOX CTR. X COORD.,/(10(1X,I4,F8.2))) WRITE (N6,790) (I,YK2(I),I=1,KC2) 790 FORMAT (1H1,25H CNTRL2 BOX CTR. Y COORD.,/(10(1X,I4,F8.2))) 800 CONTINUE BOXL = BOXL/CR BOXW = BOXW/CR BOXA = BOXA/CR**2 DO 810 I = 1,12 X(I) = X(I)/CR 810 Y(I) = Y(I)/CR DO 820 I = 1,50 XWTE(I) = XWTE(I)/CR 820 YWTE(I) = YWTE(I)/CR GO TO 840 830 IREG = 2 840 RETURN END ================================================ FILE: mis/mce1.f ================================================ SUBROUTINE MCE1 C C MCE1 PARTITIONS RG INTO RM AND RN C THEN SOLVES THE MATRIX EQUATION RM * GM = -RN. C C INTEGER USET ,RG ,GM ,SCR1 ,SCR2 ,SCR3 ,RM , 1 RN ,L ,U COMMON /BLANK/ USET ,RG ,GM ,SCR1 ,SCR2 ,SCR3 ,RM , 1 RN ,L ,U ,MCB(7) C C SET INPUT, OUTPUT AND SCRATCH FILES C USET = 101 RG = 102 GM = 201 SCR1 = 304 SCR2 = 305 SCR3 = 301 RM = 302 RN = 303 L = 306 U = 307 C C PARTITION RG INTO RM AND RN C CALL MCE1A C C TEST FOR RM DIAGONAL C MCB(1) = RM CALL RDTRL (MCB) IF (MCB(5).EQ.1 .AND. MCB(6).EQ.1) GO TO 50 IF (MCB(5).EQ.2 .AND. MCB(6).EQ.2) GO TO 50 C C RM IS NOT DIAGONAL, DECOMPOSE RM THEN SOLVE FOR GM C BY FORWARD-BACKWARD SUBSTITUTION. C CALL MCE1B CALL MCE1C RETURN C C RM IS DIAGONAL, COMPUTE GM = -RM(-1) * RN C 50 CALL MCE1D RETURN END ================================================ FILE: mis/mce1a.f ================================================ SUBROUTINE MCE1A C C MCE1A PARTITIONS RG INTO RM AND RN C INTEGER USET ,RG ,GM ,SCR1 ,SCR2 ,SCR3 ,RM ,RN , 1 UM ,UN ,UG ,A ,A11 ,A21 ,A12 ,A22 , 2 RULE ,USETXX,Z ,RECT ,SQUARE COMMON /BLANK / USET ,RG ,GM ,SCR1 ,SCR2 ,SCR3 ,RM , 1 RN ,L ,U ,MCB(7) COMMON /BITPOS/ UM ,UO ,UR ,USG ,USB ,UL ,UA , 1 UF ,US ,UN ,UG COMMON /PARMEG/ A(7) ,A11(7),A21(7),A12(7),A22(7),N ,RULE COMMON /PATX / NZ ,NSUB1 ,NSUB2 ,NSUB3 ,USETXX COMMON /ZZZZZZ/ Z(1) DATA RECT / 2 / ,SQUARE / 1 / ,I / 1 / C C GENERATE ROW PARTITIONING VECTOR C NZ = KORSZ(Z) USETXX = USET CALL CALCV (SCR1,UG,UN,UM,Z) C C GENERATE NULL COLUMN PARTITIONING VECTOR C Z(I ) = 0 Z(I+2) = NSUB2 Z(I+7) = 1 Z(I+8) = 2 Z(I+9) =-16777215 C C INITIALIZE MATRIX CONTROL BLOCKS C N = NZ RULE = 0 A(1) = RG CALL RDTRL (A) A11(1) = RN A11(2) = NSUB1 A11(3) = NSUB2 A11(4) = RECT A11(5) = A(5) A12(1) = RM A12(2) = NSUB2 A12(3) = NSUB2 A12(4) = SQUARE A12(5) = A(5) MCB(1) = SCR1 CALL RDTRL (MCB) A21(1) = 0 A22(1) = 0 C C PARTITION RG INTO RM AND RN C CALL PARTN (MCB,Z,Z) C C WRITE TRAILERS FOR RM AND RN C CALL WRTTRL (A12) CALL WRTTRL (A11) RETURN END ================================================ FILE: mis/mce1b.f ================================================ SUBROUTINE MCE1B C C MCE1B DECOMPOSES RM INTO LOWER AND UPPER TRIANGULAR FACTORS C INTEGER USET , RG ,GM ,SCR1 ,SCR2 ,SCR3 ,RM ,RN , 1 A , UX ,SCRX1 ,SCRX2 ,SCRX3 ,NAM(2),U DOUBLE PRECISION DET ,MINDIA COMMON /BLANK / USET ,RG ,GM ,SCR1 ,SCR2 ,SCR3 ,RM , 1 RN ,L ,U ,MCB(7) COMMON /DCOMPX/ A(7) ,LX(7) ,UX(7) ,SCRX1 ,SCRX2 ,SCRX3 ,DET , 1 POWER ,NZ ,MINDIA COMMON /ZZZZZZ/ Z(1) DATA NAM / 4HMCE1,4HB / C C INITIALIZE MATRIX CONTROL BLOCKS C NZ = KORSZ(Z) A(1) = RM CALL RDTRL (A) LX(1) = L LX(3) = A(3) LX(4) = 4 LX(5) = A(5) UX(1) = U UX(3) = A(3) UX(4) = 5 UX(5) = A(5) SCRX1 = SCR1 SCRX2 = SCR2 SCRX3 = SCR3 C C PERFORM DECOMPOSITION C CALL DECOMP (*40,Z,Z,Z) C C WRITE TRAILERS C CALL WRTTRL (LX) CALL WRTTRL (UX) RETURN C C FATAL ERROR MESSAGE FOR SINGULAR MATRIX C 40 CALL MESAGE (-5,RM,NAM) RETURN END ================================================ FILE: mis/mce1c.f ================================================ SUBROUTINE MCE1C C C MCE1C PERFORMS A FORWARD-BACKWARD SUBSTITUTION WITH THE C TRIANGULAR FACTORS OF RM TO SOLVE FOR GM IN THE EQUATION C RM*GM = -RN. C C INTEGER USET , RG ,GM ,SCR1 ,SCR2 ,SCR3 ,RM ,RN , 1 U , UX ,RNX ,GMX ,PREC ,SIGN COMMON /BLANK / USET ,RG ,GM ,SCR1 ,SCR2 ,SCR3 ,RM , 1 RN ,L ,U ,MCB(7) COMMON /GFBSX / LX (7),UX (7), RNX(7),GMX(7),NZ ,PREC ,SIGN COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ KSYSTM(65) EQUIVALENCE (KSYSTM(55),IPREC) C C INITIALIZE MATRIX CONTROL BLOCKS C NZ = KORSZ(Z) LX(1) = L CALL RDTRL (LX) UX(1) = U CALL RDTRL (UX) RNX(1) = RN CALL RDTRL (RNX) GMX(1) = GM GMX(3) = RNX(3) GMX(4) = RNX(4) GMX(5) = IPREC PREC = IPREC SIGN =-1 C C PERFORM SOLUTION C CALL GFBS (Z,Z) C C WRITE TRAILER C CALL WRTTRL (GMX) RETURN END ================================================ FILE: mis/mce1d.f ================================================ SUBROUTINE MCE1D C C MCE1D SOLVES FOR GM IN THE MATRIX EQUATION RM*GM = -RN C WHERE RM IS A DIAGONAL MATRIX. C INTEGER SYSBUF,EOL ,EOR ,TYPE ,RDP ,BCD ,RM , 1 RN ,GM REAL Z(1) ,A(1) ,B(1) DOUBLE PRECISION ZD ,AD ,BD DIMENSION BCD(2),MCB1(7),MCB2(7) COMMON /BLANK / USET ,RG ,GM ,SCR1 ,SCR2 ,SCR3 ,RM , 1 RN ,L ,U ,MCB(7) COMMON /ZNTPKX/ AD (2),I ,EOL ,EOR COMMON /ZBLPKX/ BD (2),J COMMON /ZZZZZZ/ ZD (1) COMMON /SYSTEM/ SYSBUF,SKP(53),IPR EQUIVALENCE (MCB(2),NCOL) ,(AD(1),A(1)) ,(MCB(5),TYPE) , 1 (ZD(1) ,Z(1)) ,(BD(1),B(1)) ,(MCB1(2),NCOL1) DATA BCD , RDP /4HMCE1 ,4HD , 2 / C C OPEN RM MATRIX,SKIP HEADER RECORD AND READ MATRIX CONTROL BLOCK C NZ = KORSZ(Z) N = NZ - SYSBUF CALL GOPEN (RM,Z(N+1),0) MCB(1) = RM CALL RDTRL (MCB) C C FORM -RM C NCOL = MCB(2) DO 22 K = 1,NCOL CALL INTPK (*83,RM,0,RDP,0) CALL ZNTPKI IF (I .NE. K) GO TO 84 22 ZD(K) = -AD(1) CALL CLOSE (RM,1) C C OPEN RN MATRIX,SKIP HEADER RECORD AND READ MATRIX CONTROL BLOCK C CALL GOPEN (RN,Z(N+1),0) MCB1(1) = RN CALL RDTRL (MCB1) C C SET UP MATRIX CONTROL BLOCK BLOCK FOR GM C CALL MAKMCB (MCB2,GM,MCB1(3),MCB1(4),IPR) C C OPEN OUTPUT FILE FOR GM AND WRITE HEADER RECORD C N1 = N - SYSBUF CALL GOPEN (GM,Z(N1+1),1) C C FORM GM = -RM(-1)*RN C NCOL1 = MCB1(2) DO 62 K = 1,NCOL1 CALL BLDPK (RDP,IPR,GM,0,0) CALL INTPK (*62,RN,0,RDP,0) 61 CALL ZNTPKI J = I BD(1) = AD(1)/ZD(J) CALL ZBLPKI IF (EOL) 62,61,62 62 CALL BLDPKN (GM,0,MCB2) C C CLOSE GM AND RM FILES AND WRITE TRAILER FOR GM C CALL CLOSE (GM,1) CALL CLOSE (RN,1) CALL WRTTRL (MCB2) RETURN C C CALL MESSAGE WRITER IF FATAL ERROR DETECTED C 83 L = -5 GO TO 86 84 L = -16 86 CALL MESAGE (L,RM,BCD) RETURN END ================================================ FILE: mis/mce2.f ================================================ SUBROUTINE MCE2 C C MCE2 PARTITIONS KGG INTO KNNB, KMNB AND KMMB THEN COMPUTES C C KNN = KNNB + GM(T)*KMNB + KMNB(T)*GM + GM(T)*KMMB*GM C C SIMILAR OPERATIONS ARE PERFORMED ON MGG, BGG AND K4GG IF THE C MATRIX HAS NOT BEEN PURGED. C INTEGER SCR1 ,SCR2 ,SCR6 ,USET ,MCB(7),GM ,UG , 1 UN ,UM ,BGG ,BNNB ,BMNB ,BNN ,BMMB COMMON /BITPOS/ UM ,UO ,UR ,USG ,USB ,UL ,UA , 1 UF ,US ,UN ,UG ,UE ,UP C C INPUT AND OUTPUT FILES C DATA USET , GM , KGG, MGG, BGG, K4GG, KNN, MNN, BNN, K4NN / 1 101 , 102, 103, 104, 105, 106 , 201, 202, 203, 204 / C C SCRATCH FILES C DATA SCR1 , SCR2, SCR6 / 301, 302, 306 / DATA KNNB , KMNB, KMMB / 303, 304, 305 / DATA MNNB , MMNB, MMMB / 303, 304, 305 / DATA BNNB , BMNB, BMMB / 303, 304, 305 / DATA K4NNB , K4MNB,K4MMB/ 303, 304, 305 / C C ARITHMETIC TYPES C C PARTITION KGG INTO KNNB, KMNB, AND KMMB C CALL UPART (USET,SCR1,UG,UN,UM) CALL MPART (KGG,KNNB,KMNB,0,KMMB) C C COMPUTE KNN C CALL ELIM (KNNB,KMNB,KMMB,GM,KNN,SCR1,SCR2,SCR6) C C TEST TO SEE IF MGG IS PRESENT C MCB(1) = MGG CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 110 C C IF MGG PRESENT, PARTITION INTO MNNB, MMNB, AND MMMB C THEN COMPUTE MNN C CALL UPART (USET,SCR1,UG,UN,UM) CALL MPART (MGG,MNNB,MMNB,0,MMMB) CALL ELIM (MNNB,MMNB,MMMB,GM,MNN,SCR1,SCR2,SCR6) C C TEST TO SEE IF BGG IS PRESENT C 110 MCB(1) = BGG CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 130 C C IF BGG PRESENT, PARTITION INTO BNNB, BMNB, AND BMMB C THEN COMPUTE BNN C CALL UPART (USET,SCR1,UG,UN,UM) CALL MPART (BGG,BNNB,BMNB,0,BMMB) CALL ELIM (BNNB,BMNB,BMMB,GM,BNN,SCR1,SCR2,SCR6) C C TEST TO SEE IF K4GG IS PRESENT C 130 MCB(1) = K4GG CALL RDTRL (MCB) IF (MCB(1) .LT. 0) RETURN C C IF K4GG IS PRESENT, PARTITION INTO K4NNB, K4MNB, AND K4MMB C THEN COMPUTE K4NN C CALL UPART (USET,SCR1,UG,UN,UM) CALL MPART (K4GG,K4NNB,K4MNB,0,K4MMB) CALL ELIM (K4NNB,K4MNB,K4MMB,GM,K4NN,SCR1,SCR2,SCR6) RETURN END ================================================ FILE: mis/mcone.f ================================================ SUBROUTINE MCONE C C MASS MATRIX GENERATION FOR AXIS-SYMETRIC CONICAL SHELL ELEMENT C C ECPT( 1) = ELEMENT ID INTEGER ECT C ECPT( 2) = SIL PT A INTEGER ECT C ECPT( 3) = SIL PT B B INTEGER ECT C ECPT( 4) = MATID 1 INTEGER EPT C ECPT( 5) = T (MEMBRANE THICK) REAL EPT C ECPT( 6) = MATID 2 INTEGER EPT C ECPT( 7) = I (MOM.OF INERTIA) REAL EPT C ECPT( 8) = MATID 3 INTEGER EPT C ECPT( 9) = TS (SHEAR THICKNESS) REAL EPT C ECPT(10) = NON-STRUCTURAL-MASS REAL EPT C ECPT(11) = Z1 REAL EPT C ECPT(12) = Z2 REAL EPT C ECPT(13) = PHI 1 REAL EPT C ECPT(14) = PHI 2 REAL EPT C ECPT(15) = PHI 3 REAL EPT C ECPT(16) = PHI 4 REAL EPT C ECPT(17) = PHI 5 REAL EPT C ECPT(18) = PHI 6 REAL EPT C ECPT(19) = PHI 7 REAL EPT C ECPT(20) = PHI 8 REAL EPT C ECPT(21) = PHI 9 REAL EPT C ECPT(22) = PHI 10 REAL EPT C ECPT(23) = PHI 11 REAL EPT C ECPT(24) = PHI 12 REAL EPT C ECPT(25) = PHI 13 REAL EPT C ECPT(26) = PHI 14 REAL EPT C ECPT(27) = COORD. SYS. ID PT.1 INTEGER BGPDT C ECPT(28) = RADIUS PT. 1 REAL BGPDT C ECPT(29) = DISTANCE TO PT.1 REAL BGPDT C ECPT(30) = NULL REAL BGPDT C ECPT(31) = COORD. SYS. ID PT.2 INTEGER BGPDT C ECPT(32) = RADIUS PT 2 REAL BGPDT C ECPT(33) = DISTANCE TO PT. 2 REAL BGPDT C ECPT(34) = NULL REAL BGPDT C ECPT(35) = ELEMENT TEMPERATURE REAL GEOM3 C INTEGER NECPT(100) REAL L,MU DOUBLE PRECISION MASS COMMON /CONDAS/ PI, TWOPI, RADEG, DEGRA, S4PISQ COMMON /MATIN / MATID, INFLAG, ELTEMP COMMON /MATOUT/ RHO COMMON /SMA2ET/ ECPT(100) COMMON /SMA2IO/ DUM4(10), IFMGG, DUM5(25) COMMON /SMA2CL/ DUM3(2),NPVT COMMON /SMA2DP/ MASS(36), TEMP, L, TERM, M1 EQUIVALENCE (RA,ECPT(28)), (RB,ECPT(32)), (ZA,ECPT(29)), 1 (ZB,ECPT(33)), (T,ECPT(5)) , (MU,ECPT(10)), 2 (NECPT(1),ECPT(1)) C L = SQRT((RB-RA)**2 + (ZB-ZA)**2) C C NEXT LINE WAS REMOVED BY M.H./NAVY. ERROR FOR CONICAL SHELL MASS C C TEMP = RB/6.0 + RA/3.0 C IF (T) 30,40,30 30 INFLAG = 4 MATID = NECPT(4) ELTEMP = ECPT(35) CALL MAT (NECPT(1)) 40 DO 50 I = 1,36 50 MASS(I) = 0.0D0 TERM = PI*L*TEMP*(RHO*T + MU) IF (NECPT(1)-(NECPT(1)/1000)*1000-1 .EQ. 0) TERM = TERM*2.0 MASS( 1) = TERM MASS( 8) = TERM MASS(15) = TERM M1 = -1 CALL SMA2B (MASS(1),NPVT,M1,IFMGG,0.0D0) RETURN END ================================================ FILE: mis/mdumx.f ================================================ SUBROUTINE MDUMX C C DELETE ANY OF THE FOLLOW ENTRY POINT IF A SUBROUTINE OF THE SAME C NAME ALREADY EXISTS C INTEGER II(9),KK(9) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ IBUF,NOUT DATA II / 9*0/, JJ /4HMDUM/, KK / 1 1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9 / C GO TO 30 C C ENTRY MDUM9 C =========== C J = 9 GO TO 10 C C ENTRY MDUM8 C ========== C J = 8 GO TO 10 C C ENTRY MDUM7 C ========== C J = 7 GO TO 10 C C ENTRY MDUM6 C ========== C J = 6 GO TO 10 C C ENTRY MDUM5 C ========== C J = 5 GO TO 10 C C ENTRY MDUM4 C ========== C J = 4 GO TO 10 C C ENTRY MDUM3 C ========== C J = 3 GO TO 10 C C ENTRY MDUM2 C ========== C J = 2 GO TO 10 C C ENTRY MDUM1 C ========== C J = 1 C GO TO 10 C 10 IF (II(J) .NE. 0) GO TO 30 II(J) = 1 WRITE (NOUT,20) UWM,JJ,KK(J) 20 FORMAT (A25,' 2182, SUBROUTINE ',2A4,' IS DUMMY. ONLY ONE OF ', 1 'THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK.') 30 RETURN END ================================================ FILE: mis/melbow.f ================================================ SUBROUTINE MELBOW C C THIS ROUTINE COMPUTES THE MASS MATRIX M(NPVT,NPVT) FOR AN ELBOW. C C ECPT FOR THE ELBOW C C ECPT( 1) - IELID ELEMENT ID. NUMBER C ECPT( 2) - ISILNO(2) * SCALAR INDEX NOS. OF THE GRID POINTS C ECPT( 3) - ... * C ECPT( 9) - A CROSS-SECTIONAL AREA C ECPT(13) - NSM NON-STRUCTURAL MASS C ECPT(29) - R RADIUS OF CURVATURE C ECPT(30) - BETAR ANGLE FROM GA TO GB C LOGICAL HEAT INTEGER IZ(1),EOR,CLSRW,CLSNRW,FROWIC,TNROWS,OUTRW,BGGIND REAL NSM DOUBLE PRECISION TA(9),TB(9),DP(6),VECI(3),DELA(6),DELB(6),FL, 1 M(36),DUMDP,FM DIMENSION ECPT(9),IECPT(1) COMMON /SMA2HT/ HEAT COMMON /SMA2IO/ IFCSTM,IFMPT,IFDIT,IDUM1,IFECPT,IGECPT,IFGPCT, 1 IGGPCT,IDUM2,IDUM3,IFMGG,IGMGG,IFBGG,IGBGG, 2 IDUM4,IDUM5,INRW,OUTRW,CLSNRW,CLSRW,NEOR,EOR, 3 MCBMGG(7),MCBBGG(7) COMMON /ZZZZZZ/ Z(1) C C SMA2 VARIABLE CORE BOOKKEEPING PARAMETERS C COMMON /SMA2BK/ ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT,I6X6M, 1 N6X6M,I6X6B,N6X6B C C SMA2 PROGRAM CONTROL PARAMETERS C COMMON /SMA2CL/ IOPT4,BGGIND,NPVT,LEFT,FROWIC,LROWIC,NROWSC, 1 TNROWS,JMAX,NLINKS,LINK(10),NOGO C C ECPT COMMON BLOCK C COMMON /SMA2ET/ IELID,ISILNO(2),SMALLV(3),ICSSV,IMATID,A,I1,I2, 1 FJ,NSM,FE,DUM(14),R,BETAR,DUMM(8),TEMPEL C C SMA2 LOCAL VARIABLES C COMMON /SMA2DP/ TA,TB,DP,VECI,DELA,DELB,FL,M,DUMDP C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /HMTOUT/ CP COMMON /MATOUT/ RHO,PROP(8) EQUIVALENCE (Z(1),IZ(1),DZ),(ECPT(1),IECPT(1),IELID) DATA DCR / 0.01745329/ C C COMPUTE LENGTH OF ELBOW, FL C DP(1) = R DP(2) = BETAR DP(3) = DCR FL = DP(1)*DP(2)*DP(3) IF (FL .EQ. 0.0D0) GO TO 200 IF (HEAT) GO TO 300 C C GET RHO FROM MPT BY CALLING MAT C MATIDC = IMATID MATFLG = 4 ELTEMP = TEMPEL CALL MAT (ECPT(1)) DO 40 I = 1,36 40 M(I) = 0.0D0 FM = 0.5*FL*(RHO*A + NSM) C C PUT MASS IN M-ARRAY C M(1) = FM M(8) = M(1) M(15) = M(1) C C INSERT THE 6 X 6 C CALL SMA2B (M,NPVT,-1,IFMGG,DUMDP) RETURN C 200 CALL MESAGE (30,26,IECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C HEAT FORMULATION C C GET CP USING -HMAT- ROUTINE. C 300 MATIDC = IMATID MATFLG = 4 CALL HMAT (IELID) M(1) = FL*DBLE(ECPT(9))*DBLE(CP)/2.0D0 C C OUTPUT THE MASS FOR HEAT PROBLEM. C CALL SMA2B (M(1),NPVT,NPVT,IFBGG,DUMDP) RETURN END ================================================ FILE: mis/merge.f ================================================ SUBROUTINE MERGE (IRP,ICP,CORE) C C MERGE WILL PUT UP TO 4 MATRICES, IA11,IA21,IA12,IA22, TOGETHER C INTO NAMEA -- THIS ROUTINE IS THE INVERSE OF PARTN C C THE ARGUMENTS ARE EXACTLY THE SAME IN MEANING AND OPTION AS FOR C PARTITION C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,ANDF DIMENSION IRP(1),ICP(1),A11(4),B11(4), 1 CORE(1),BLOCK(40),NAME(2) COMMON /PARMEG/ NAMEA,NCOLA,NROWA,IFORMA,ITYPA,IA(2), 1 IA11(7,4),LCARE,RULE COMMON /SYSTEM/ SYSBUF,NOUT COMMON /TWO / TWO1(32) COMMON /ZBLPKX/ IC11(4),II DATA NAME / 4HMERG,4HE / C C CHECK FILES C LCORE = IABS(LCARE) K = NAMEA DO 15 I = 1,4 IF (K .EQ. 0) GO TO 15 DO 10 J = I,4 IF (IA11(1,J) .EQ. K) GO TO 440 10 CONTINUE 15 K = IA11(1,I) C C PICK UP PARAMETERS AND INITIALIZE C IREW = 0 IF (LCARE .LT. 0) IREW = 2 NCOLA1= NCOLA NCOLA = 0 IA(1) = 0 IA(2) = 0 ISTOR = 0 IOTP = ITYPA NMAT = 0 DO 30 I = 1,4 IF (IA11(1,I) .LE. 0) GO TO 30 CWKBD 2/94 SPR93025 IF (IA11(5,I) .NE. ITYPA) IOTP = 4 NMAT = NMAT + 1 DO 20 J = 2,5 IF (IA11(J,I) .EQ. 0) GO TO 460 20 CONTINUE 30 CONTINUE NTYPA = IOTP IF (NTYPA .EQ. 3) NTYPA = 2 IBUF = LCORE - SYSBUF + 1 IBUFCP = IBUF - NROWA IF (IBUFCP) 420,420,40 40 LCORE = IBUFCP - 1 CALL RULER (RULE,ICP,ZCPCT,OCPCT,CORE(IBUFCP),NROWA,CORE(IBUF),1) IF (IRP(1).EQ.ICP(1) .AND. IRP(1).NE.0) GO TO 60 IBUFRP = IBUFCP - (NCOLA1+31)/32 IF (IBUFRP) 420,420,50 50 CALL RULER (RULE,IRP,ZRPCT,ORPCT,CORE(IBUFRP),NCOLA1,CORE(IBUF),0) LCORE = IBUFRP - 1 GO TO 70 60 ISTOR = 1 C C OPEN INPUT FILES C 70 IF (LCORE-NMAT*SYSBUF .LT. 0) GO TO 420 DO 100 I = 1,4 IF (IA11(1,I)) 90,100,80 80 LCORE = LCORE - SYSBUF CALL OPEN (*90,IA11(1,I),CORE(LCORE+1),IREW) CALL SKPREC (IA11(1,I),1) GO TO 100 90 IA11(1,I) = 0 100 CONTINUE C C OPEN OUTPUT FILE C CALL GOPEN (NAMEA,CORE(IBUF),1) C C FIX POINTERS -- SORT ON ABS VALUE C K = IBUFCP - 1 L = IBUFCP DO 120 I = 1,NROWA K = K + 1 IF (CORE(K)) 110,120,120 110 CORE(L) = I L = L + 1 120 CONTINUE M = L - 1 K = IBUFCP DO 160 I = 1,NROWA 130 IF (CORE(K)-I) 150,160,140 140 CORE(L) = I L = L + 1 GO TO 160 150 IF (K .EQ. M) GO TO 140 K = K + 1 GO TO 130 160 CONTINUE C C LOOP ON COLUMNS OF OUTPUT C KM = 0 L2 = IBUFCP L3 = IBUFCP + ZCPCT DO 390 LOOP = 1,NCOLA1 CALL BLDPK (IOTP,ITYPA,NAMEA,0,0) IF (ISTOR .EQ. 1) GO TO 190 J = (LOOP-1)/32 + IBUFRP KM = KM + 1 IF (KM .GT. 32) KM = 1 ITEMP = ANDF(CORE(J),TWO1(KM)) IF (KM .EQ. 1) ITEMP = RSHIFT(ANDF(CORE(J),TWO1(KM)),1) IF (ITEMP .NE. 0) GO TO 180 C C IA11 AND IA21 BEING USED C 170 L1 = 0 IF (L2 .EQ. L3-1) GO TO 200 L2 = L2 + 1 GO TO 200 C C IA12 AND IA22 BEING USED C 180 L1 = 2 L3 = L3 + 1 GO TO 200 C C USE ROW STORE C 190 IF (CORE(L2) .EQ. LOOP) GO TO 170 IF (CORE(L3) .EQ. LOOP) GO TO 180 GO TO 460 C C BEGIN ON SUBMATRICES C 200 IO = 0 DO 220 J = 1,2 K = L1 + J IF (IA11(1,K)) 210,220,210 210 M = 20*J - 19 CALL INTPK (*220,IA11(1,K),BLOCK(M),IOTP,1) IO = IO + J 220 CONTINUE IF (IO) 230,380,230 C C PICK UP NON ZERO C 230 IEOL = 0 JEOL = 0 IPOS = 9999999 JPOS = 9999999 IAZ = 1 IBZ = 1 NAM1 = IA11(1,L1+1) NAM2 = IA11(1,L1+2) IF (IO-2) 240,280,240 240 IAZ = 0 250 IF (IEOL) 370,260,370 260 CALL INTPKI (A11(1),I,NAM1,BLOCK(1),IEOL) K = IBUFCP + I - 1 IPOS = CORE(K) IF (IO .EQ. 1) GO TO 310 IO = 1 280 IBZ = 0 290 IF (JEOL) 340,300,340 300 CALL INTPKI (B11(1),J,NAM2,BLOCK(21),JEOL) K = IBUFCP + ZCPCT + J - 1 JPOS = CORE(K) 310 IF (IPOS-JPOS) 350,320,320 C C PUT IN B11 C 320 DO 330 M = 1,NTYPA 330 IC11(M) = B11(M) II = JPOS CALL ZBLPKI GO TO 290 340 JPOS = 9999999 IBZ = 1 IF (IAZ+IBZ .EQ. 2) GO TO 380 350 DO 360 M = 1,NTYPA 360 IC11(M) = A11(M) II = IPOS CALL ZBLPKI GO TO 250 370 IAZ = 1 IPOS = 9999999 IF (IAZ+IBZ .NE. 2) GO TO 320 C C OUTPUT COLUMN C 380 CALL BLDPKN (NAMEA,0,NAMEA) C 390 CONTINUE C C DONE -- CLOSE OPEN MATRICES C DO 400 I = 1,4 IF (IA11(1,I) .GT. 0) CALL CLOSE (IA11(1,I),1) 400 CONTINUE CALL CLOSE (NAMEA,1) GO TO 500 C 420 MN = -8 GO TO 480 440 WRITE (NOUT,450) K 450 FORMAT ('0*** SYSTEM OR USER ERROR, DUPLICATE GINO FILES AS ', 1 'DETECTED BY MERGE ROUTINE - ',I5) NM = -37 GO TO 480 460 MN = -7 480 CALL MESAGE (MN,0,NAME) C 500 RETURN END ================================================ FILE: mis/merge1.f ================================================ SUBROUTINE MERGE1 C C THIS IS THE DMAP MODULE MERGE WHICH MERGES 1 TO 4 PARTITIONS C A11, A21, A12, A22, INTO A SINGLE MATRIX -A-. C C ** ** ** ** C * I * * * C * A11 I A12 * * * C * I * * * C * ------+----------- * BECOMES * A * C * I * * * C * I * * * C * A21 I A22 * * * C * I * * * C ** ** ** ** C C BASED ON THE ZEROS AND NON-ZEROS IN THE ROW PARTITIONING VECTOR C -RP- AND THE COLUMN PARTITIONING VECTOR -CP-. C C DMAP CALLING SEQUENCE. C C MERGE A11,A21,A12,A22,CP,RP/ A /V,Y,SYM /V,Y,TYPE/V,Y,FORM/ C V,Y,CPCOL/V,Y,RPCOL $ C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT ,ANDF LOGICAL CPNULL ,RPNULL ,CPHERE ,RPHERE ,ONLY , 1 PASS DIMENSION SUBR(2) ,HEAD(2) ,AIJ(4) ,MCB(7,4) ,MCBA(7) , 1 ELEM1(4),ELEM2(4 ),REFUS(3) ,BLOCK(80) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 ,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM ,SWM COMMON /SYSTEM/ SYSBUF ,OUTPT ,XXX(37) ,NBPW COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW , 1 CLS COMMON /ZBLPKX/ ELEM(4) ,ROW COMMON /PRTMRG/ CPSIZE ,RPSIZE ,CPONES ,RPONES ,CPNULL , 1 RPNULL ,CPHERE ,RPHERE ,ICP ,NCP , 2 IRP ,NRP COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / SYM ,TYPE ,FORM ,CPCOL ,RPCOL , 1 DUMFOR(3) ,IREQCL DATA SUBR / 4HMERG ,4HE1 /, EOR / 1 / DATA AIJ / 101,102 ,103,104/, CP,RP / 105,106/ ,A /201/ DATA NAFORM/ 4HFORM /,NATYPE / 4HTYPE /,REFUS/2*3H ,3HREF / C C OPEN MATRICES TO BE MERGED. IF ALL ARE PURGED, RETURN IS MADE. C CORE = KORSZ(Z) M = 0 DO 20 I = 1,4 KFILE = AIJ(I) MCB(1,I) = KFILE CALL RDTRL (MCB(1,I)) IF (MCB(1,I)) 20,20,10 10 BUFF = CORE - SYSBUF - 2 CORE = BUFF - 1 IF (CORE .LT. 10) CALL MESAGE (-8,0,SUBR) CALL OPEN (*20,KFILE,Z(BUFF),RDREW) CALL SKPREC (KFILE,1) M = 1 20 CONTINUE IF (M .EQ. 0) RETURN BUFF = CORE - SYSBUF - 2 CORE = BUFF - 1 IF (CORE .LT. 10) CALL MESAGE (-8,0,SUBR) CALL OPEN (*440,A,Z(BUFF),WRTREW) CALL CLOSE (A,CLSREW) C C CALL TO PARTN2 WILL PROCESS -CP- AND -RP- INTO BIT STRINGS AND C DETERMINE SIZES OF PARTITIONS REQUIRED. C C STANDARDISE BLANK COMMON FOR PARTN2 CALLS FROM MERGE1-PARTN1 C DUMFOR(2) = CPCOL DUMFOR(3) = RPCOL CALL PARTN2 (CP,RP,CORE,Z(BUFF)) CPCOL = DUMFOR(2) RPCOL = DUMFOR(3) C C IF CPSIZE OR RPSIZE IS 0 AS A RESULT OF A NULL VECTOR (PURGED C VECTOR) THERE SIZE IS ESTIMATED HERE FROM THEIR RESPECTIVE C PARTITIONS. C IF (CPSIZE .NE. 0) GO TO 24 IF (MCB(1,1)) 25,25,23 23 CPSIZE = MCB(2,1) GO TO 24 C 25 IF (MCB(1,2)) 24,24,26 26 CPSIZE = MCB(2,2) GO TO 24 C 24 IF (RPSIZE .NE. 0) GO TO 29 IF (MCB(1,1)) 21,21,22 22 RPSIZE = MCB(3,1) GO TO 29 C 21 IF (MCB(1,3)) 29,29,27 27 RPSIZE = MCB(3,3) C C MATRIX COMPATIBILITY CHECKS. C 29 CPZERO = CPSIZE - CPONES RPZERO = RPSIZE - RPONES IPR = 1 IRLCX = 0 DO 70 I = 1,4 IF (MCB(1,I)) 70,70,30 30 COLS = MCB(2,I) ROWS = MCB(3,I) ICOL = CPZERO IROW = RPZERO IF (MCB(5,I).EQ.2 .OR. MCB(5,I).EQ.4) IPR = 2 IF (MCB(5,I).EQ.3 .OR. MCB(5,I).EQ.4) IRLCX = 2 IF (I.EQ.3 .OR. I.EQ.4) ICOL = CPONES IF (I.EQ.2 .OR. I.EQ.4) IROW = RPONES IF (ICOL) 70,70,40 40 IF (IROW) 70,70,50 C C CHECK PARTITION SIZE WITH PARTITIONING VECTOR DEMANDS. C 50 IF (ROWS.EQ.IROW .AND. COLS.EQ.ICOL) GO TO 70 WRITE (OUTPT,60) SWM,AIJ(I),ROWS,COLS,IROW,ICOL 60 FORMAT (A27,' 2161, PARTITION FILE',I4,' IS OF SIZE',I10, 1 ' ROWS BY',I10,' COLUMNS.', /5X,'PARTITIONING VECTORS ', 2 'INDICATE THAT THIS PARTITION SHOULD BE OF SIZE',I10, 3 ' ROWS BY',I10,' COLUMNS FOR A SUCCESSFUL MERGE.') 70 CONTINUE C C CHECK OF FORM VALUE. C NFORM = FORM IF (NFORM.LT.1 .OR. NFORM.GT.8) GO TO 120 GO TO (80,140,110,80,80,80,110,80), NFORM C C FORM = SQUARE C 80 IF (CPSIZE .EQ. RPSIZE) GO TO 140 90 WRITE (OUTPT,100) SWM,NFORM,RPSIZE,CPSIZE 100 FORMAT (A27,' 2162, THE FORM PARAMETER AS GIVEN TO THE MERGE ', 1 'MODULE IS INCONSISTANT WITH THE SIZE OF THE', /5X, 2 'MERGED MATRIX, HOWEVER IT HAS BEEN USED. FORM =',I9, 3 ' SIZE =',I10,' ROWS BY',I10,' COLUMNS.') GO TO 140 110 IF (CPSIZE .EQ. 1) GO TO 140 GO TO 90 120 NFORM = 2 IF (ROWS.NE.COLS .AND. CPSIZE.NE.RPSIZE) GO TO 122 NFORM = 1 IF (SYM .LT. 0) NFORM= 6 122 IF (FORM.EQ.0 .OR. FORM.EQ.NFORM) GO TO 132 WRITE (OUTPT,130) SWM,NAFORM,FORM,REFUS(3),SUBR,NFORM 130 FORMAT (A27,' 2163, REQUESTED VALUE OF ',A4,I10,2X,A3,'USED BY ', 1 2A4,'. LOGICAL CHOICE IS',I10) 132 FORM = NFORM C C CHECK PARAMETER -TYPE- C 140 NTYPE = IRLCX + IPR IF (NTYPE .EQ. TYPE) GO TO 160 IF (TYPE .EQ. 0) GO TO 154 IF (TYPE.LT.0 .OR. TYPE.GT.4) GO TO 152 WRITE (OUTPT,130) SWM,NATYPE,TYPE,REFUS(1),SUBR,NTYPE NTYPE = TYPE GO TO 160 152 WRITE (OUTPT,130) SWM,NATYPE,TYPE,REFUS(3),SUBR,NTYPE 154 TYPE = NTYPE C C THE ROW PARTITIONING BIT STRING IS AT THIS POINT CONVERTED TO A C CORE VECTOR ONE WORD PER BIT. EACH WORD CONATINS THE ACTUAL ROW C POSITION THE SUB-PARTITON ELEMENT WILL OCCUPY IN THE MERGED C MATRIX. C 160 IZ = NRP + 1 NZ = IZ + RPSIZE - 1 IF (NZ .GT. CORE) CALL MESAGE (-8,0,SUBR) IF (.NOT.RPNULL .AND. RPONES.NE.0) GO TO 180 K = 0 DO 170 I = IZ,NZ K = K + 1 Z(I) = K 170 CONTINUE GO TO 240 180 K = 0 ZERO = IZ - 1 ONES = ZERO + RPZERO DO 230 I = IRP,NRP DO 220 J = 1,NBPW SHIFT = NBPW - J BIT = RSHIFT(Z(I),SHIFT) K = K + 1 IF (K - RPSIZE) 190,190,240 190 IF (ANDF(BIT,1)) 210,200,210 200 ZERO = ZERO + 1 Z(ZERO) = K GO TO 220 210 ONES = ONES + 1 Z(ONES) = K 220 CONTINUE 230 CONTINUE C C OPEN OUTPUT FILE AND FILL MCB. C 240 CALL OPEN (*440,A,Z(BUFF),WRTREW) CALL FNAME (A,HEAD) CALL WRITE (A,HEAD,2,EOR) CALL MAKMCB (MCBA,A,RPSIZE,NFORM,NTYPE) C C MERGE OPERATIONS. LOOPING ON OUTPUT COLUMNS OF -A-. C I1 = IZ - 1 I2 = I1 + RPZERO DO 430 I = 1,CPSIZE C C START A COLUMN OUT ON -A- C CALL BLDPK (NTYPE,NTYPE,A,0,0) IF (CPNULL) GO TO 250 IL1 = I - 1 BITWD = IL1/NBPW + ICP SHIFT = NBPW - MOD(IL1,NBPW) - 1 BIT = RSHIFT(Z(BITWD),SHIFT) IF (ANDF(BIT,1)) 260,250,260 C C ZERO-S COLUMN (LEFT PARTITONS A11 AND A21 USED THIS PASS) C 250 IFILE = 1 IBLOCK = 1 GO TO 270 C C ONE-S COLUMN (RIGHT PARTITIONS A12 AND A22 USED THIS PASS) C 260 IFILE = 3 IBLOCK = 41 GO TO 270 C C START UNPACKING COLUMN OF EACH PARTITION BEING USED THIS PASS. C 270 KFILE = IFILE KBLOCK = IBLOCK MPART = 0 DO 300 J = 1,2 IF (MCB(1,KFILE)) 290,290,280 280 CALL INTPK (*290,MCB(1,KFILE),BLOCK(KBLOCK),NTYPE,1) MPART = MPART + J 290 KFILE = KFILE + 1 KBLOCK = KBLOCK + 20 300 CONTINUE IF (MPART) 420,420,310 C C UNPACK NON-ZEROS FROM EACH OF THE TWO PARTITIONS AS NEEDED UNTIL C BOTH PARTITIONS HAVE THIS COLUMN EXHAUSED. C 310 EOL1 = 1 EOL2 = 1 NAM1 = MCB(1,IFILE) NAM2 = MCB(1,IFILE+1) IBLOC1= IBLOCK IBLOC2= IBLOCK + 20 IF (MPART.EQ.1 .OR. MPART.EQ.3) EOL1 = 0 IF (MPART .GT. 1) EOL2 = 0 PASS = .FALSE. ONLY = .FALSE. IF (EOL1) 320,320,340 320 IF (EOL2) 350,350,330 330 ONLY = .TRUE. GO TO 350 340 ONLY = .TRUE. GO TO 360 C C UNPACK A NON-ZERO FROM THE ZEROS PARTITION C 350 CALL INTPKI (ELEM1,IROW1,NAM1,BLOCK(IBLOC1),EOL1) C C SET OUTPUT ROW POSITION C JROW = I1 + IROW1 IPOS1 = Z(JROW) IF (ONLY) GO TO 380 IF (PASS) GO TO 370 C C UNPACK A NON-ZERO FROM THE ONE-S PARTITION C 360 CALL INTPKI (ELEM2,IROW2,NAM2,BLOCK(IBLOC2),EOL2) C C SET OUTPUT ROW POSITION C JROW = I2 + IROW2 IPOS2 = Z(JROW) IF (ONLY) GO TO 400 PASS = .TRUE. C C OK COMING HERE MEANS THERE IS ONE ELEMENT FORM EACH PARTITION C AVAILABLE FOR OUTPUT. THUS OUTPUT THE ONE WITH THE LOWEST C OUTPUT ROW NUMBER. C 370 IF (IPOS2 .LT. IPOS1) GO TO 400 C C OUTPUT ELEMENT FROM ZERO-S PARTITION. C 380 ROW = IPOS1 ELEM(1) = ELEM1(1) ELEM(2) = ELEM1(2) ELEM(3) = ELEM1(3) ELEM(4) = ELEM1(4) CALL ZBLPKI IF (EOL1) 350,350,390 390 IF (ONLY) GO TO 420 ONLY = .TRUE. GO TO 400 C C OUTPUT ELEMENT FROM ONES-PARTITION. C 400 ROW = IPOS2 ELEM(1) = ELEM2(1) ELEM(2) = ELEM2(2) ELEM(3) = ELEM2(3) ELEM(4) = ELEM2(4) CALL ZBLPKI IF (EOL2) 360,360,410 410 IF (ONLY) GO TO 420 ONLY = .TRUE. GO TO 380 C C COMPLETE THE COLUMN BEING OUTPUT C 420 CALL BLDPKN (A,0,MCBA) 430 CONTINUE C C MERGE IS COMPLETE. WRAP UP. C CALL CLOSE (A,CLSREW) CALL WRTTRL (MCBA) 440 DO 460 I = 1,4 IF (MCB(1,I)) 460,460,450 450 CALL CLOSE (MCB(1,I),CLSREW) 460 CONTINUE RETURN C END ================================================ FILE: mis/merged.f ================================================ SUBROUTINE MERGED (A11,A12,A21,A22,A,RP,CP,N1,N2) C INTEGER A11,A12,A21,A22,A,RP,CP,RULE,MCB(20),MCB1(20) COMMON /PARMEG/ MCBA(7),MCBA11(7),MCBA21(7),MCBA12(7),MCBA22(7), 1 NX,RULE COMMON /ZZZZZZ/ IZ(1) C IF (RP .NE. 0) GO TO 10 MCB(1) = 0 MCB(2) = 1 MCB(3) = N1 MCB(4) = 2 MCB(5) = 1 GO TO 20 C 10 MCB(1) = RP CALL RDTRL (MCB) 20 IF (CP .NE. 0) GO TO 30 MCB1(1) = 0 MCB1(2) = 1 MCB1(3) = N2 MCB1(4) = 2 MCB1(5) = 1 GO TO 40 C 30 MCB1(1) = CP CALL RDTRL (MCB1) 40 NX = KORSZ (IZ) RULE = 0 IOTYP = 0 MCBA11(1) = A11 IF (A11 .EQ. 0) GO TO 50 CALL RDTRL (MCBA11) IF (MCBA11(1) .LE. 0) MCBA11(1) = 0 C 50 MCBA21(1) = A21 IF (A21 .EQ. 0) GO TO 60 CALL RDTRL (MCBA21) IF (MCBA21(1) .LE. 0) MCBA21(1) = 0 C 60 MCBA12(1) = A12 IF (A12 .EQ. 0) GO TO 70 CALL RDTRL (MCBA12) IF (MCBA12(1) .LE. 0) MCBA12(1) = 0 C 70 MCBA22(1) = A22 IF (A22 .EQ. 0) GO TO 80 CALL RDTRL (MCBA22) IF (MCBA22(1) .LE. 0) MCBA22(1) = 0 C 80 MCBA(1) = A MCBA(2) = MCB(3) MCBA(3) = MCB1(3) DO 90 I = 1,28,7 IF (MCBA11(I) .EQ. 0) GO TO 90 IOTYP = MAX0(IOTYP,MCBA11(I+4)) 90 CONTINUE MCBA(4) = 2 MCBA(5) = IOTYP IF (MCBA(2) .EQ. MCBA(3)) MCBA(4) = 1 CALL MERGE (MCB,MCB1,IZ) CALL WRTTRL (MCBA) RETURN END ================================================ FILE: mis/mesage.f ================================================ SUBROUTINE MESAGE (NO,PARM,NAME) C C MESAGE IS USED TO QUEUE NON-FATAL MESSAGES DURING THE EXECUTION C OF A MODULE, AND EXITS IF MESSAGE IS FATAL C C REVISED 1/92 BY G.CHAN/UNISYS. C IF MESSAGE IS FATAL AND DIAG 1 IS ON - C C IBM, CDC AND UNIVAC - PRINT THE MESSAGE(S), GIVE A CORE DUMP AND C CALL PEXIT C C VAX OR UNIX (MACHINE TYPE .GE. 5) - IF LAST MESSAGE IS NOT INSUFF. C CORE OR INSUFFICIENT TIME, AND FATAL ERROR IS NOT IN LINK 1, PRINT C ONLY THE MESSAGE NO(S). AND GIVE AN ERROR TRACEBACK. NO CORE DUMP. C TO MAKE SURE THAT THE CURRENT MODULE (WHICH CALLS FATAL MESSAGE) C IS UTILL IN CORE, THE MESSAGE PRINTOUT MODULE CAN NOT BE CALLED, C AND THEREFORE THE TEXT(S) OF THE MESSAGE(S) CAN NOT BE PRINTED. C INTEGER PARM,NAME(2) COMMON /SYSTEM/ IBUF,NOUT,DUM(19),LINKNO COMMON /MACHIN/ MACH COMMON /MSGX / N,M,MSG(4,1) DATA LINK1 / 4HNS01 / C C N = CURRENT NUMBER OF MESSAGES STORED C M = MAXIMUM NUMBER POSSIBLE C MSG(4,I) = STORAGE SPACE FOR THE MESSAGE PARAMETERS C N = N + 1 IF (N .LE. M) GO TO 10 N = M IF (NO .GT. 0) GO TO 120 C 10 MSG(1,N) = NO MSG(2,N) = PARM MSG(3,N) = NAME(1) MSG(4,N) = NAME(2) IF (NO .GT. 0) GO TO 120 C C MESSAGE IS FATAL, TERMINATE RUN C CALL SSWTCH (1,J) IF (J .EQ. 0) GO TO 110 IF (MACH .EQ. 5) GO TO 20 C C ALL NON-VAX MACHINES C GO TO 110 C C VAX, UNIX (MACHINE TYPE 5 AND HIGHER) C 20 IF (LINKNO .EQ. LINK1) GO TO 110 I = IABS(MSG(1,N)) IF (I.EQ.8 .OR. I.EQ.119 .OR. I.EQ.45 .OR. I.EQ.50) GO TO 110 C INSUFF. CORE INSUFFICIENT TIME C IF (I .NE. 30) GO TO 30 J = MSG(2,N) C C INSUFFECIENT CORE IF (J.EQ.142 .OR. J.EQ.289 .OR. J.EQ.296 .OR. J.EQ.253 .OR. 1 J.EQ.365) GO TO 110 C C INSUFFECIENT TIME IF (J.EQ.234 .OR. J.EQ.228) GO TO 110 C 30 WRITE (NOUT,40) N 40 FORMAT ('0*** DUE TO SYSTEM ERROR-TRACEBACK, THE TEXT(S) OF THE ', 1 'FOLLOWING',I3,' MSG NO(S). CAN NOT BE PRINTED') DO 90 K = 1,N I = MSG(1,K) IF (IABS(I) .EQ. 30) GO TO 50 J = 3000 + IABS(I) GO TO 60 50 I = MSG(2,K) J = 2000 + IABS(I) 60 WRITE (NOUT,70) I,J 70 FORMAT (5X,'ERROR',I4,' (or ',I5,1H)) IF (I.NE.30 .AND. MSG(2,K).GT.100 .AND. MSG(2,K).LT.400) 1 WRITE (NOUT,80) MSG(2,K) 80 FORMAT (1H+,30X,'GINO UNIT=',I4) 90 CONTINUE WRITE (NOUT,100) 100 FORMAT (/5X,'(SEE MESSAGES IN USER MANUAL SECTIONS 6.4 AND 6.5,', 1 ' AND IGNORE ANY COMPUTER FATAL MESSAGE HEREAFTER ', 2 'OR IN THE LOG FILE)') C C FORCE A SYSTEM FATAL ERROR FOR TRACEBACK C CALL ERRTRC ('MESAGE ',105) C 110 CALL MSGWRT CALL PEXIT 120 RETURN END ================================================ FILE: mis/mflud2.f ================================================ SUBROUTINE MFLUD2 C C THIS ROUTINE GENERATES THE PSUEDO STIFFNESS MATRIX TERMS C FOR THE CENTER PLUG FLUID ELEMENT C C THE ECPT DATA BLOCK CONTAINS THE FOLLOWING DATA C C FIELD SYMBOL C 1 ID C 2 SIL1 C 3 SIL2 C 4 RHO C 5 BULK C 6 N C 7 CSF C 8 R1 C 9 Z1 C 10 - C 11 CSF C 12 R2 C 13 Z2 C 14 - C 15 - C INTEGER NECPT(100) DOUBLE PRECISION CONSTD,DPI,R1,Z1,R2,Z2,Z1P,Z2P,Z1P1,Z2P1,RK,RI, 1 KFACT,F0,A,B,I2N0,I2N1,I2N2,I2NP2,DZ,HPQ,PIRHO, 2 TWOPR,KH,K1,K2 COMMON /CONDAD/ CONSTD(5) COMMON /SMA2ET/ ECPT(100) COMMON /SMA2IO/ DUM1(10),IFMGG COMMON /SMA2CL/ DUN2(2),NPVT COMMON /SMA2DP/ Z1P,Z2P,RK,RI,KFACT,F0,A,B,I2N0,I2N1,I2N2,I2NP2, 1 DZ,HPQ(4),PIRHO,TWOPR,KH(4),K1,K2 EQUIVALENCE (CONSTD(1),DPI),(ECPT(1),NECPT(1)) C C IF (ECPT(13) - ECPT(9)) 5,10,10 5 R1 = ECPT(12) R2 = ECPT(8) Z1 = ECPT(13) Z2 = ECPT(9) I = NECPT(3) NECPT(3) = NECPT(2) NECPT(2) = I GO TO 15 10 R1 = ECPT(8) Z1 = ECPT(9) R2 = ECPT(12) Z2 = ECPT(13) 15 IF (ECPT(5) .LE. 0.0) RETURN IF (R1.EQ.0.0 .OR. R2.EQ.0.0) GO TO 350 IF (Z1 .EQ. Z2) GO TO 350 C C CALCULATE THE INTEGRAL PARAMETERS I2N0,I2N1,I2N2,AND I2NP2 C K = 2*NECPT(6) + 2 RK = K B = (R2-R1)/(Z2-Z1) DUM = DABS(B) IF (DUM .GT. 1.0E-6) GO TO 30 Z1P = ((R1+R2)/2.0D0)**K I2N0 = (Z1P/RK)*(Z2-Z1) I2N1 = I2N0*(Z2+Z1)/2.0D0 I2N2 = I2N0*(Z2**2+Z2*Z1+Z1**2)/3.0D0 I2NP2= I2N0*RK/(RK+2.0D0)*R1**2 GO TO 300 C 30 Z1P = R1**(K+1) Z2P = R2**(K+1) Z1P1 = Z1P*R1 Z2P1 = Z2P*R2 A = 1.0D0/B I2N0 = A/(RK*(RK+1.0D0))*(Z2P-Z1P) I2N1 = A/(RK*(RK+1.0D0))*(Z2P*Z2-Z1P*Z1 -A/(RK+2.0D0)*(Z2P1-Z1P1)) I2N2 = A/(RK*(RK+1.0D0))*(Z2P*Z2**2 -Z1P*Z1**2 -A/(RK+2.0D0)*2.0D0 1 * (Z2P1*Z2 -Z1P1*Z1 -A/(RK+3.0D0)*(Z2P1*R2-Z1P1*R1))) I2NP2= A/((RK+2.0D0)*(RK+3.0D0))*(Z2P1*R2-Z1P1*R1) C 300 DZ = Z2 - Z1 N = NECPT(6) Z1P = R1**N Z2P = R2**N HPQ(1) = Z2/(DZ*Z1P) HPQ(2) =-Z1/(DZ*Z2P) HPQ(3) =-1.0D0/(DZ*Z1P) HPQ(4) = 1.0D0/(DZ*Z2P) LP = 1 IF (NPVT .EQ. NECPT(2)) GO TO 320 IF (NPVT .EQ. NECPT(3)) GO TO 310 GO TO 350 310 LP = 2 320 PIRHO = DPI/DBLE(ECPT(5)) IF (NECPT(6) .EQ. 0) PIRHO = 2.0D0*PIRHO KH(1) = PIRHO*(I2N0*HPQ(LP)+I2N1*HPQ(LP+2)) KH(2) = PIRHO*(I2N1*HPQ(LP)+I2N2*HPQ(LP+2)) K1 = KH(1)*HPQ(1) + KH(2)*HPQ(3) K2 = KH(1)*HPQ(2) + KH(2)*HPQ(4) IFILE = IFMGG I = NPVT J = NECPT(2) CALL SMA2B (K1,J,I,IFILE,0.0D0) J = NECPT(3) CALL SMA2B (K2,J,I,IFILE,0.0D0) 350 RETURN END ================================================ FILE: mis/mflud3.f ================================================ SUBROUTINE MFLUD3 C***** C THIS ROUTINE GENERATES THE PSUEDO MASS MATRIX TERMS C FOR THE TRIANGULAR FLUID ELEMENT C***** C THE ECPT DATA IS THE FOLLOWING C C FIELD SYMBOL C 1 ID C 2 SIL1 C 3 SIL2 C 4 SIL3 C 5 RHO C 6 BULK C 7 N C 8 CSF C 9 R1 C 10 Z1 C 11 - C 12 CSF C 13 R2 C 14 Z2 C 15 - C 16 CSF C 17 R3 C 18 Z3 C 19 - C 20 - C**** DOUBLE PRECISION R ,Z ,ARE2 1 ,PIAB ,EMASS C***** INTEGER NECPT(100) COMMON/SMA2CL/ DUM(2),NPVT COMMON/SMA2IO/ DUM1(10),IFMGG COMMON /SMA2ET/ ECPT(100) COMMON/SMA2DP/ R(3) ,Z(3) ,ARE2 1 ,PIAB ,EMASS ,JP 2 ,IR ,JPVT ,IGRID EQUIVALENCE (ECPT(1),NECPT(1)) C***** C***** C IF(ECPT(6).EQ. 0.0) RETURN C***** C STORE THE POINT LOCATIONS AND FIND THE PIVOT POINT C***** JP =0 DO 20 I=1,3 IR = 9 + 4*(I-1) R(I) = ECPT(IR) IF(ECPT(IR).LE.0.0) GO TO 1000 Z(I) = ECPT(IR+1) IF( NPVT .NE. NECPT(I+1)) GO TO 20 JP = I 20 CONTINUE IF( JP .EQ.0) GO TO 1000 ARE2=DABS((R(2) -R(1))*(Z(3)-Z(1)) - (R(3)-R(1))*(Z(2)-Z(1)) ) PIAB = 2.617994D-2 *ARE2 / DBLE( ECPT(6) ) IF (NECPT(7) .EQ. 0) PIAB = PIAB*2.0D0 JPVT = NPVT DO 50 I = 1,3 IGRID = NECPT(I+1) EMASS = PIAB*( R(1)+R(2)+R(3) +R(JP) +R(I)) IF (I .EQ. JP) EMASS = EMASS*2.0D0 CALL SMA2B ( EMASS, IGRID,JPVT,IFMGG,0.0D0) 50 CONTINUE 1000 RETURN END ================================================ FILE: mis/mflud4.f ================================================ SUBROUTINE MFLUD4 C***** C THIS ROUTINE IS USED FOR THE 4-SIDED FLUID ELEMENT. IT REARRANGES C THE DATA AND CALLS THE MFLUD3 ROUTINE FOR EACH SUBELEMENT. C**** C THE ECPT DATA FOR THE ELEMENT AND ITS SUBELEMENTS ARE C C FIELD SYMBOL(FLUID4) SYMBOL(FLUID3) C 1 ID ID C 2 SIL1 SIL1 C 3 SIL2 SIL2 C 4 SIL3 SIL3 C 5 SIL4 RHO C 6 RHO BULK C 7 BULK N C 8 N CSF C 9 CSF R1 C 10 R1 Z1 C 11 Z1 - C 12 - CSF C 13 CSF R2 C 14 R2 Z2 C 15 Z2 - C 16 - CSF C 17 CSF R3 C 18 R3 Z3 C 19 Z3 - C 20 - C 21 CSF C 22 R4 C 23 Z4 C 24 - C 25 - C**** INTEGER NECPT(100) COMMON/SMA2IO/ DUM1(10),IFMGG COMMON /SMA2CL/ IOPT1,K1GGSW,NPVT COMMON /SMA2ET/ ECPT(100) EQUIVALENCE (ECPT(1),NECPT(1)) IF(ECPT(7) .EQ. 0.0) GO TO 120 ECPT(7)=ECPT(7)*2.0 DO 50 I=1,24 50 ECPT(I+50) =ECPT(I) DO 60 I= 5,19 60 ECPT(I)= ECPT(I+1) IRET =1 GO TO 100 70 ECPT(4) = ECPT(55) ECPT(17)= ECPT(72) ECPT(18)= ECPT(73) IRET =2 GO TO 100 80 ECPT(13)= ECPT(68) ECPT(14)= ECPT(69) ECPT(3)= ECPT(54) IRET=3 GO TO 100 90 ECPT(9) = ECPT(64) ECPT(10)= ECPT(65) ECPT(2)= ECPT(53) IRET=4 C***** C 100 IF((NECPT(2).NE.NPVT).AND.(NECPT(3).NE.NPVT).AND. 1 (NECPT(4).NE.NPVT)) GO TO 110 C***** CALL MFLUD3 110 GO TO (70,80,90,120),IRET 120 RETURN END ================================================ FILE: mis/mfree.f ================================================ SUBROUTINE MFREE C THIS ROUTINE GENERATES MASS TERMS FOR THE INTERNALLY CREATED C ELEMENT WHICH DESCRIBES FREE SURFACE EFFECTS C***** C THE ECPT DATA IS C NO. DESCRIPTION C 1 EL ID C 2 SIL 1 C 3 SIL 2 C 4 GAMMA C 5 N C 6 0 C 7 R1 C 8 Z1 C 9 - C 10 0 C 11 R2 C 12 Z2 C 13 - DOUBLE PRECISION RP ,RN 1 ,DR ,CT 2 ,EM C INTEGER NECPT(100) C COMMON /SMA2DP/ RP ,RN 1 ,DR ,CT 2 ,EM COMMON /SMA2IO/ IO(36) C COMMON /SMA2CL/ DUM(2) ,NPVT C COMMON /SMA2ET/ ECPT(100) EQUIVALENCE (NECPT(1),ECPT(1)) IFILE = IO(11) IF (ECPT(4).EQ.0.0) GO TO 1100 IF(NECPT(2).EQ. NECPT(3)) GO TO 500 DR = ECPT(11) - ECPT(7) IF(NPVT .EQ.NECPT(2)) GO TO 20 IF(NPVT .NE.NECPT(3)) GO TO 1000 C RP = ECPT(11) RN = ECPT(7) IP = NECPT(3) IN = NECPT(2) C GO TO 50 C 20 RP = ECPT(7) RN = ECPT(11) IP =NECPT(2) IN =NECPT(3) 50 CT = (0.2617994D0/ECPT(4)) * DR IF( NECPT(5) .EQ. 0) CT = 2.0D0 * CT EM = CT * (3.0D0*RP +RN) CALL SMA2B (EM,IP,IP,IFILE,0.0D0) EM = CT * ( RP +RN) CALL SMA2B (EM,IN,IP,IFILE,0.0D0) GO TO 1100 C C CASE OF CENTER ELEMENT CONNECTED TO ONE POINT C 500 IF(NECPT(2).NE.NPVT) GO TO 1000 CT = 1.5707963D0 / DBLE( ECPT(4) ) RP = ECPT (7) IF( NECPT(5).LE. 0 ) GO TO 510 RN =NECPT(5) CT = CT/ (2.0D0*RN +2.0D0) 510 EM = CT*RP**2 IP = NPVT CALL SMA2B( EM,IP,IP,IFILE,0.0D0) 1000 RETURN 1100 RETURN END ================================================ FILE: mis/mindeg.f ================================================ FUNCTION MINDEG (NC,IC,IDEG) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C THIS FUNCTION HAS AS ITS VALUE THE MINIMUM DEGREE OF ANY NODE OF C COMPONENT NC IF NC.GT.0 C IF NC.LE.0, ALL COMPONENTS ARE CONSIDERED. C DIMENSION IC(1), IDEG(1) COMMON /BANDS / NN C M=600000 DO 100 I=1,NN IF (NC) 40,50,40 40 IF (IC(I) -NC) 100,50,100 50 IF (M-IDEG(I)) 100,100,60 60 M=IDEG(I) 100 CONTINUE MINDEG=M RETURN END ================================================ FILE: mis/mintrp.f ================================================ SUBROUTINE MINTRP(NI,XI,ND,XD,TYPE,SYMM1,SYMK1,DZ,INFILE,OUTFIL, * SCR,SCR1,G,NCORE,NOGO,IPRES) C INTEGER SYSBUF,SYMK1,SYMM1,ISNG,SCR,SCR1,OUTFIL,SCRM INTEGER A,B,C,D,NAME(2),TYPE,BUFF,GPOINT LOGICAL NIMAG LOGICAL SPEC COMPLEX ALPHA DOUBLE PRECISION AR,AI DIMENSION XI(1),XD(2),G(1) C COMMON /SYSTEM/ SYSBUF COMMON / PACKX/ ITI,ITO,II,NN,INCR COMMON /MPYADX/ A(7),B(7),C(7),D(7),NWORDS,NT,ISAB,ISC,IPRE,SCRM COMMON /SADDX / NMAT,LCORE,MA(7),ITA,ALPHA(2),DUM(48),MC(7) COMMON /UNPAKX/ IOUT,IN,NNN,INCRU C EQUIVALENCE (ALPHA(1),AR),(ALPHA(2),AI) C DATA NAME /4HMINT,4HRP / C C----------------------------------------------------------------------- C SPEC = .FALSE. NOGO = 0 C C DETERMINE TYPE OF CALL FOR G C NEGATIVE VALUE FOR KO CALL LSPLIN, POSITIVE CALL SSPLIN C C C CHECK CORE NEED AT LEAST 1 BUFFER + G C ITY = IABS(TYPE) KD = 0 IF(ITY.GT.3) KD=1 NCOL = (1+KD)*ND IF(SYSBUF+NCOL*NI .GT. NCORE) CALL MESAGE(-8,0,NAME) C C PROTECT AGAINST BAD CALL IF(SYMK1.LT.0) SYMK1 = -1 IF(SYMM1.LT.0) SYMM1 = -1 IF(SYMK1.GT.0) SYMK1 = 1 IF(SYMM1.GT.0) SYMM1 = 1 C TRANSPOSE FLAG ON KT = 1 C SPECIAL CASE IF(ND.EQ.1.AND.ITY.LT.4) GO TO 300 10 IF(TYPE.LT.0) GO TO 100 CALL SSPLIN(NI,XI,ND,XD,SYMM1,SYMK1,KD,KT,DZ,G,NCORE,ISNG) IF(ISNG.EQ.2) GO TO 999 GO TO 200 100 NII = 2*NI DO 110 I=1,NII,2 XI(I) = 0.0 110 CONTINUE NII = 2*ND DO 120 I = 1,NII,2 XD(I) = 0.0 120 CONTINUE CALL LSPLIN(NI,XI,ND,XD,SYMK1,KD,KT,DZ,-1.0,-1.0,1.0,G,NCORE,ISNG) IF(ISNG.EQ.2) GO TO 999 C PUT OUT G 200 BUFF = NCORE-SYSBUF+1 NIMAG = .TRUE. IF(ITY.EQ.3.OR.ITY.EQ.6) NIMAG = .FALSE. IF(NIMAG) GO TO 210 ITI = SCR SCR = OUTFIL OUTFIL = ITI 210 ITO = 1 JJ = NCOL ITI = 1 NN = NI B(3) = NI B(5) = 1 GPOINT = 1 215 INCR = 1 J = 1 II = 1 B(1) = SCR B(2) = 0 B(4) = 2 B(6) = 0 B(7) = 0 CALL GOPEN(SCR,G(BUFF),1) DO 220 I = J,JJ CALL PACK(G(GPOINT),SCR,B) GPOINT = GPOINT + NI 220 CONTINUE CALL CLOSE(SCR,1) CALL WRTTRL(B) IF(SPEC) GO TO 1000 C C MULT INFILE BY G C C(1) = 0 A(1) = INFILE CALL RDTRL(A) D(1) = OUTFIL D(3) = A(3) D(4) = 2 D(5) = A(5) IF(ITY.EQ.2.OR.ITY.EQ.5) D(5) = 1 IF(D(5).EQ.1.AND.A(5).EQ.4) D(5) = 2 NWORDS = NCORE NT = 0 ISAB = 1 IPRE = IPRES SCRM = SCR1 CALL MPYAD(G,G,G) CALL WRTTRL(D) IF(NIMAG) GO TO 1000 C C IMAG PART ONLY WANTED C NMAT = 1 LCORE = NCORE MA(1) = OUTFIL CALL RDTRL(MA) ITA = 3 ALPHA(1) = (0.0,-1.0) MC(1) = SCR MC(2) = MA(2) MC(3) = MA(3) MC(4) = 2 MC(5) = MA(5) MC(6) = 0 MC(7) = 0 AI = -1.0D0 IF(MA(5) .EQ.4) ITA = 4 IF(ITA.EQ.4) AR = 0.0D0 CALL SADD(G,G) CALL WRTTRL(MC) GO TO 1000 C C TEST FOR SPECIAL CASE C 300 NII = 2*NI K = 0 DO 310 I = 1,NII,2 K = K+1 IF(XI(I).EQ.XD(1).AND.XI(I+1).EQ.XD(2)) GO TO 315 310 CONTINUE GO TO 10 C C PACK OUT COLUMN OF INFILE C 315 A(1) = INFILE CALL RDTRL(A) BUFF = NCORE-SYSBUF +1 CALL GOPEN(INFILE,G(BUFF),0) INCRU = 1 IN = 1 NNN = A(3) IOUT = A(5) IF(K.EQ.1) GO TO 330 K = K-1 CALL SKPREC(INFILE,K) 330 CALL UNPACK(*998,INFILE,G) CALL CLOSE(INFILE,1) SPEC = .TRUE. SCR = OUTFIL ITI = A(5) NN = A(3) JJ = 1 GPOINT = 1 IF(ITY.EQ.3) GPOINT = 2 ITO = 1 IF(ITY .EQ.1) ITO = 3 IF(A(5).EQ.4) ITO = ITO+1 B(3) = A(3) B(5) = ITO GO TO 215 998 CALL MESAGE(-7,0,NAME) 999 NOGO = 1 1000 RETURN END ================================================ FILE: mis/mma.f ================================================ SUBROUTINE MMA ( ZI, ZR, ZD ) C C MMA PERFORMS THE MATRIX OPERATION C (+/-)A * B (+/-)C = D OR C (+/-)A(T) * B (+/-)C = D C C USING METHODS 10, 11, 20, 21, 30, 31, 32, 40, 41 C C C IN REGARDS TO THE METHODS BELOW, WHEN MULTIPLE COLUMNS OF A MATRIX C ARE STORED AND READ BY GETSTR, THEN THE MATRIX IS STORED IN MEMORY IN C COMPACT FORM. SEE SUBROUTINES 'MMARM1,2,3,4' FOR A DESCRIPTION OF C THIS COMPACT FORM. WHEN ONLY A SINGLE COLUMN OF A MATRIX IS STORED C AND IT IS BEING READ BY GETSTR, IT IS STORED IN COMPACT FORM IN MEMORY. C SEE SUBROUTINES 'MMARC1,2,3,4' FOR A DESCRIPTION OF THIS FORM. C C ------------------------------------------------------------------------ C METHOD METHOD OF READING MATRIX MULTIPLE COLUMNS OF MATRIX STORED C A B C A B D C ------------------------------------------------------------------------ C 10 UNPACK UNPACK UNPACK YES NO NO C 11 UNPACK GETSTR UNPACK YES NO NO C 20 UNPACK UNPACK UNPACK NO YES YES C 21 GETSTR UNPACK UNPACK NO YES YES C 30 GETSTR UNPACK UNPACK YES NO NO C 31 GETSTR GETSTR UNPACK YES NO NO C 32 GETSTR GETSTR GETSTR YES NO NO C 40 UNPACK GETSTR UNPACK NO YES YES C 41 GETSTR GETSTR UNPACK NO YES YES C ------------------------------------------------------------------------ C C TO DETERMINE WHICH METHOD TO USE, THE FOLLOWING RATIONAL IS USED. C C 1. DETERMINE THE METHOD FOR READING MATRICES "A" AND "B". THIS IS C DETERMINED BY EXAMINING THE FOLLOWING PERCENTAGE: C C (MEMORY TO CONTAIN ENTIRE MATRIX) C ------------------------------------ = PERCENTAGE C (MEMORY TO CONTAIN COMPACTED MATRIX) C C IF THE PERCENTAGE IS .GE. THE VARIABLE "TESTPCT", THEN UNPACK IS C USED. OTHERWISE, GETSTR IS USED. C C NiSTOR (i=A or B) = 1, CALL UNPACK TO READ MATRIX C = 2, CALL GETSTR TO READ MATRIX C C 2. THE RESULTS OF THE FIRST TEST WILL NARROW THE OPTIONS TO TWO C DIFFERENT METHODS AS FOLLOWS: C C CANDIDATE METHOD C 10 11 20 21 30 31 32 40 41 C NASTOR = 1 1 1 2 2 2 2 1 2 C NBSTOR = 1 2 1 1 1 2 2 2 2 C C FOR NASTOR = 1 AND NBSTOR = 1, METHODS 10 AND 20 ARE CONSIDERED C FOR NASTOR = 1 AND NBSTOR = 2, METHODS 11 AND 40 ARE CONSIDERED C FOR NASTOR = 2 AND NBSTOR = 1, METHODS 21 AND 30 ARE CONSIDERED C FOR NASOTR = 2 AND NBSTOR = 2, METHODS 31,32 AND 41 ARE CONSIDERED C (NOTE, METHOD 32 IS ONLY AVAILABLE WITH "A" TRANSPOSED) C C 3. LASTLY, DETERMINE THE ESTIMATED NUMBER OF PASSES FOR EACH OF THE C TWO CANDIDATE METHODS. THE METHOD WITH THE FEWER NUMBER OF PASSES C IS CHOSEN. C C MPASSii (ii=10,11,20,21,30,31,32,40,41) = ESTIMATED NUMBER OF PASSES C FOR METHOD ii. C C NiTOTAL (i=A,B,C) = MEMORY WORDS TO CONTAIN ENTIRE FULL MATRIX C NiPACK (i=A,B,C) = MEMORY WORDS TO CONTAIN ENTIRE MATRIX IN COMPACT C FORM. C NWDD = NUMBER OF WORDS FOR EACH ELEMENT OF THE "D" MATRIX C C C THE FOLLOWING SUBROUTINES ARE CALLED FOR THE DIFFERENT METHODS AND C MATRIX "D" TYPES (RS,RD,CS,CD). C C METHODS MAIN OTHER SUBROUTINES DEPENDING ON TYPE C SUBROUTINE RS RD CS CD C 10 MMA1 MMA101 MMA102 MMA103 MMA104 C 11 MMA1 MMA111 MMA112 MMA113 MMA114 C 20 MMA2 MMA201 MMA202 MMA203 MMA204 C 21 MMA2 MMA211 MMA212 MMA213 MMA214 C 30 MMA3 MMA301 MMA302 MMA303 MMA304 C 31 MMA3 MMA311 MMA312 MMA313 MMA314 C 32 MMA3 MMA321 MMA322 MMA323 MMA324 (TRANSPOSE ONLY) C 40 MMA4 MMA401 MMA402 MMA403 MMA404 C 41 MMA4 MMA411 MMA412 MMA413 MMA414 C --------------------------------------------------------------------------- INTEGER NAMEA(2) ,NAMEB(2) ,NAMEC(2) , NAMED(2) INTEGER ZI(2) ,PRNTYP(4) ,MODULE(3),PREC1 INTEGER BLK1(15) ,BLK2(15) ,EOL ,EOR INTEGER SIGNAB ,SIGNC ,T ,SCRTCH INTEGER FILEA ,FILEB ,FILEC ,FILED INTEGER SYSBUF ,TYPEI ,TYPEP ,TYPEU INTEGER ISAVE(9) REAL ZR(2) DOUBLE PRECISION ZD(2) ,AD(2) , DD(2) CHARACTER UFM*23 ,UWM*25 ,UIM*29 CHARACTER*6 UPMETH(2) CHARACTER*2 CT INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW,CLS COMMON / XMSSG / UFM ,UWM ,UIM COMMON / LOGOUT / LOUT COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / PACKX / TYPEI ,TYPEP ,IROW1P ,IROWNP, INCRP COMMON / UNPAKX / TYPEU ,IROWU ,IROWNU ,INCRU COMMON / ZBLPKX / D(4) ,IROWBK COMMON / ZNTPKX / A(4) ,IROWIN ,EOL ,EOR EQUIVALENCE (AD(1) ,A(1) ) , (DD(1) ,D(1) ) EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) 1, (KSYSTM(58),KSYS58) , (KSYSTM(40),NBPW ) 2, (KSYSTM(55),IPREC ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C DATA MODULE / 4HMMA , 2*4H / DATA JBEGN / 4HBEGN/, JEND / 3HEND/ DATA UPMETH / 'UNPACK', 'STRING' / DATA PRNTYP / 2HRS, 2HRD, 2HCS, 2HCD / DATA TESTPCT / .8 / ISAVE( 1 ) = TYPEI ISAVE( 2 ) = TYPEP ISAVE( 3 ) = IROW1P ISAVE( 4 ) = IROWNP ISAVE( 5 ) = INCRP ISAVE( 6 ) = TYPEU ISAVE( 7 ) = IROWU ISAVE( 8 ) = IROWNU ISAVE( 9 ) = INCRU CALL SSWTCH ( 19, L19 ) MODULE( 3 ) = JBEGN CALL CONMSG ( MODULE, 3, 0 ) NDR = NAR NDC = NBC IF ( T .NE. 0 ) NDR = NAC IF ( NDFORM .NE. 0 ) GO TO 50 NDFORM = 2 IF ( NDR .EQ. NDC ) NDFORM = 1 50 CONTINUE IF ( FILEA( 6 ) .EQ. 0 .OR. FILEB( 6 ) .EQ. 0 ) GO TO 5000 IF ( SIGNAB .EQ. 0 ) GO TO 5000 IF ( T .NE. 0 ) GO TO 100 IF ( NAC .NE. NBR ) GO TO 7001 IF ( FILEC(1) .EQ. 0 ) GO TO 200 IF ( NAR .NE. NCR ) GO TO 7001 IF ( NBC .NE. NCC ) GO TO 7001 GO TO 200 100 CONTINUE IF ( NAR .NE. NBR ) GO TO 7001 IF ( FILEC(1) .EQ. 0 ) GO TO 200 IF ( NAC .NE. NCR ) GO TO 7001 IF ( NBC .NE. NCC ) GO TO 7001 200 CONTINUE NWDC = 0 CALL DSSIZE ( FILEA, NCOLS, NATERMS, NASTRGS, NWDA ) CALL DSSIZE ( FILEB, NCOLS, NBTERMS, NBSTRGS, NWDB ) IF ( FILEC( 1 ) .NE. 0 ) & CALL DSSIZE ( FILEC, NCOLS, NCTERMS, NCSTRGS, NWDC ) NWDD = MAX0 ( NWDA, NWDB, NWDC ) NDTYPE = 2 IF ( NWDD .EQ. 4 ) NDTYPE = 4 IF ( NWDD .EQ. 1 ) NDTYPE = 1 IF ( NDTYPE .EQ. 1 .OR. NDTYPE .EQ. 4 ) GO TO 250 ITEST1 = MIN0 ( NATYPE, NBTYPE, NCTYPE ) ITEST2 = MAX0 ( NATYPE, NBTYPE, NCTYPE ) NDTYPE = 3 IF ( ITEST2 .EQ. 3 .AND. & ( NATYPE.EQ.2 .OR. NBTYPE.EQ.2 .OR. NCTYPE.EQ.2 ) ) NDTYPE = 4 IF ( ITEST2 .LE. 2 ) NDTYPE = 2 250 CONTINUE NATOTAL = NAC * NAR * NWDD NBTOTAL = NBC * NBR * NWDD IF ( FILEC(1) .NE. 0 ) NCTOTAL = NCC * NCR * NWDD NDTOTAL = NDC * NDR * NWDD NAPACK = 2*NAC + 2*NASTRGS + NATERMS*NWDD NBPACK = 2*NBC + 2*NBSTRGS + NBTERMS*NWDD IF ( FILEC(1) .NE. 0 ) NCPACK = 2*NDC + 2*NCSTRGS + NCTERMS*NWDD DENSTYA = ( NADENS*1.) / 10000. DENSTYB = ( NBDENS*1.) / 10000. IF ( FILEC(1) .NE. 0 ) DENSTYC = ( NCDENS*1.) / 10000. NASTOR = 2 NBSTOR = 2 NCSTOR = 2 X = NATOTAL Y = NAPACK PERCNTA = Y / X X = NBTOTAL Y = NBPACK PERCNTB = Y / X IF ( FILEC( 1 ) .EQ. 0 ) GO TO 300 X = NCTOTAL Y = NCPACK PERCNTC = Y / X 300 CONTINUE IF ( PERCNTA .GE. TESTPCT ) NASTOR = 1 IF ( PERCNTB .GE. TESTPCT ) NBSTOR = 1 IF ( FILEC(1) .NE. 0 .AND. PERCNTC .GE. TESTPCT ) NCSTOR = 1 MEMAVL = NZ - 4*SYSBUF MPASS10 = (NATOTAL / ( MEMAVL - (NBR + NDR)*NWDD ) ) + 1 MPASS11 = (NATOTAL / ( MEMAVL - NDR*NWDD - (NBPACK/NBC)) ) + 1 MPASS20 = ((NBTOTAL + NDTOTAL) / (MEMAVL - NAR*NWDD ) ) + 1 MPASS21 = ((NBTOTAL + NDTOTAL) / (MEMAVL - (NAPACK/NAC)) ) + 1 MPASS30 = (NAPACK / ( MEMAVL - (NBR + NDR)*NWDD ) ) + 1 MPASS31 = (NAPACK / ( MEMAVL - NDR*NWDD - (NBPACK/NBC)) ) + 1 MPASS32 = (NAPACK / ( MEMAVL - (NCPACK/NDC) - (NBPACK/NBC)) ) + 1 MPASS40 = ((NBPACK + NDTOTAL) / (MEMAVL - NAR*NWDD ) ) + 1 MPASS41 = ((NBPACK + NDTOTAL) / (MEMAVL - (NAPACK/NAC) ) ) + 1 IF ( NASTOR .EQ. 1 .AND. NBSTOR .EQ. 1 ) GO TO 1000 IF ( NASTOR .EQ. 2 .AND. NBSTOR .EQ. 1 ) GO TO 1100 IF ( NASTOR .EQ. 1 .AND. NBSTOR .EQ. 2 ) GO TO 1200 IF ( NASTOR .EQ. 2 .AND. NBSTOR .EQ. 2 ) GO TO 1300 1000 CONTINUE C---------USE UNPACK FOR MATRICES "A" AND "B" (CHOOSE METHOD 10 OR 20) METHOD = 10 IF ( MPASS10 .EQ. 1 ) GO TO 2000 IF ( MPASS10 .LE. MPASS20 ) GO TO 2000 METHOD = 20 GO TO 2000 1100 CONTINUE C---------USE GETSTR FOR MATRIX "A"; UNPACK FOR MATRIX "B" C (CHOOSE METHOD 21 OR 30) METHOD = 21 IF ( MPASS21 .EQ. 1 ) GO TO 2000 IF ( MPASS21 .LE. MPASS30 ) GO TO 2000 METHOD = 30 GO TO 2000 1200 CONTINUE C---------USE UNPACK FOR MATRIX "A"; GETSTR FOR MATRIX "B" C (CHOOSE METHOD 11 OR 40) METHOD = 11 IF ( MPASS11 .EQ. 1 ) GO TO 2000 IF ( MPASS11 .LE. MPASS40 ) GO TO 2000 METHOD = 40 GO TO 2000 1300 CONTINUE C---------USE GETSTR FOR MATRICES "A" AND "B" (CHOOSE METHOD 31, 32 OR 41) METHOD = 31 IF ( MPASS31 .EQ. 1 ) GO TO 1310 IF ( MPASS31 .LE. MPASS41 ) GO TO 1310 METHOD = 41 GO TO 2000 1310 CONTINUE IF ( NCSTOR .EQ. 2 .AND. T .NE. 0 ) METHOD = 32 2000 CONTINUE IF(L19.EQ.0) GO TO 3000 CALL FNAME ( FILEA, NAMEA ) CALL FNAME ( FILEB, NAMEB ) CALL FNAME ( FILEC, NAMEC ) CALL FNAME ( FILED, NAMED ) WRITE( LOUT,2001, IOSTAT=IERR ) & NAMEA, NAR, NAC, NATERMS, DENSTYA, PRNTYP( NATYPE ) &, NAMEB, NBR, NBC, NBTERMS, DENSTYB, PRNTYP( NBTYPE ) 2001 FORMAT( & ' /-----------------------------------------------------------/' &,/ &,' / MATRIX ROWS COLS TERMS DENS TYPE /' &,/ &,' /-----------------------------------------------------------/' &,/ &,' A- ',2A4,I8,I7,I10,F7.4, 5X, A2 &,/ &,' B- ',2A4,I8,I7,I10,F7.4, 5X, A2 ) IF (FILEC(1) .EQ. 0) GO TO 2010 WRITE( LOUT,2002, IOSTAT=IERR ) & NAMEC, NCR, NCC, NCTERMS, DENSTYC, PRNTYP( NCTYPE ) 2002 FORMAT( & ' C- ',2A4,I8,I7,I10, F7.4, 5X, A2 ) 2010 WRITE( LOUT, 2003 ) NAMED, NDR, NDC, PRNTYP(NDTYPE) 2003 FORMAT(' D- ',2A4, I8, I7, 10X, 7X, 5X, A2 ) WRITE( LOUT, 2004 ) SIGNAB, SIGNC, NZ, KSYS58 2004 FORMAT(' SIGNAB =',I2,' SIGNC =',I2,' MEMORY =',I10 &,' SYSTEM(58)=',I3 ) WRITE( LOUT, 2005 ) UPMETH( NASTOR ), NATOTAL, NAPACK &, UPMETH( NBSTOR ), NBTOTAL, NBPACK IF ( FILEC( 1 ) .NE. 0 ) &WRITE( LOUT, 20051) UPMETH( NCSTOR ), NCTOTAL, NCPACK WRITE( LOUT, 20052) T, METHOD, PRNTYP( NDTYPE ) 2005 FORMAT( & ' /-----------------------------------------------------------/' &,/ &,' / READ METHOD MEMORY (FULL MATRIX) MEMORY (STRINGS) /' &,/ &,' /-----------------------------------------------------------/' &,/ &,' A- ',A6,I21,I21 &,/ &,' B- ',A6,I21,I21 &) 20051 FORMAT( & ' C- ',A6,I21,I21 ) 20052 FORMAT( & ' T =',I2,' SUGGESTED METHOD =',I2 &,' "D" MATRIX TYPE:',1X,A2) WRITE( LOUT, 2006 ) MPASS10,MPASS11,MPASS20,MPASS21,MPASS30 &, MPASS31,MPASS32,MPASS40,MPASS41 2006 FORMAT( & ' /-----------------------------------------------------------/' &,/ & ' / ESTIMATED NUMBER OF PASSES REQUIRED PER METHOD /' &,/ &,' / 10 11 20 21 30 31 32 40 41 /' &,/ &,' /-----------------------------------------------------------/' &,/ &,' ',9I5 &,/ &,' /-----------------------------------------------------------/' & ) 3000 CONTINUE IF ( FILED( 1 ) .LT. 0 ) GO TO 7777 IF ( KSYS58 .NE. 0 .AND. & (KSYS58 .GE.10 .AND. KSYS58 .LE. 11) .OR. & (KSYS58 .GE.20 .AND. KSYS58 .LE. 21) .OR. & (KSYS58 .GE.30 .AND. KSYS58 .LE. 31) .OR. & (KSYS58 .GE.40 .AND. KSYS58 .LE. 41) ) METHOD = KSYS58 IF ( KSYS58 .EQ. 32 .AND. T .NE. 0 ) METHOD = KSYS58 IF ( METHOD .EQ. 10 ) NBSTOR = 1 IF ( METHOD .EQ. 11 ) NBSTOR = 2 IF ( METHOD .EQ. 20 ) NASTOR = 1 IF ( METHOD .EQ. 21 ) NASTOR = 2 IF ( METHOD .EQ. 30 ) NBSTOR = 1 IF ( METHOD .EQ. 31 ) NBSTOR = 2 IF ( METHOD .EQ. 32 ) NBSTOR = 2 IF ( METHOD .EQ. 40 ) NASTOR = 1 IF ( METHOD .EQ. 41 ) NASTOR = 2 IF ( METHOD .EQ. 10 .OR. METHOD .EQ. 11 ) & CALL MMA1 ( ZI, ZR, ZD, ZR, ZD ) IF ( METHOD .EQ. 20 .OR. METHOD .EQ. 21 ) & CALL MMA2 ( ZI, ZR, ZD, ZR, ZD ) IF ( METHOD .GE. 30 .AND. METHOD .LE. 32 ) & CALL MMA3 ( ZI, ZR, ZD, ZR, ZD ) IF ( METHOD .EQ. 40 .OR. METHOD .EQ. 41 ) & CALL MMA4 ( ZI, ZR, ZD, ZR, ZD ) CT = 'NT' IF ( T .NE. 0 ) CT = 'T ' WRITE ( LOUT, 2007 ) METHOD, CT, IPASS 2007 FORMAT(' METHOD USED = ',I2,A2,' ACTUAL NUMBER OF PASSES =',I4) GO TO 7777 C C "A" AND "B" MATRICES ARE NULL, MOVE "C" TO "D" IF "C" EXISTS C 5000 CONTINUE IF ( FILED( 1 ) .LT. 0 ) GO TO 7777 NDTYPE = NCTYPE WRITE ( LOUT, 9002 ) 9002 FORMAT(' MMA - NULL MATRIX PRODUCT') IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF IF ( FILEC( 1 ) .EQ. 0 ) GO TO 5900 IF ( SIGNC .EQ. 0 ) GO TO 5900 IF ( SIGNC .LT. 0 ) GO TO 5500 C C USE CPYSTR TO COPY "C" TO "D" C BLK1( 1 ) = FILEC( 1 ) BLK2( 1 ) = FILED( 1 ) CALL GOPEN ( FILEC, ZR( IBUF1 ), RDREW ) CALL GOPEN ( FILED, ZR( IBUF2 ), WRTREW) DO 5200 I = 1, NCC CALL CPYSTR ( BLK1, BLK2, 0, 0 ) 5200 CONTINUE CALL CLOSE ( FILED, CLSREW ) CALL CLOSE ( FILEC, CLSREW ) FILED( 2 ) = FILEC( 2 ) FILED( 3 ) = FILEC( 3 ) FILED( 4 ) = FILEC( 4 ) FILED( 5 ) = FILEC( 5 ) FILED( 6 ) = FILEC( 6 ) FILED( 7 ) = FILEC( 7 ) GO TO 7777 C C USE INTPK/BLDPK TO COPY C TO D BECAUSE SIGNS CONFLICT C 5500 CONTINUE FILED( 2 ) = 0 FILED( 6 ) = 0 FILED( 7 ) = 0 CALL GOPEN ( FILEC, ZR( IBUF1 ), RDREW ) CALL GOPEN ( FILED, ZR( IBUF2 ), WRTREW) DO 5600 I = 1, NCC CALL BLDPK ( NDTYPE, NDTYPE, FILED, BLK1, 1 ) CALL INTPK ( *5550 , FILEC , 0, NDTYPE*SIGNC, 0 ) 5510 CALL ZNTPKI CALL BLDPKI ( A, IROWIN, FILED, BLK1 ) IF ( EOL .EQ. 0 ) GO TO 5510 5550 CALL BLDPKN ( FILED, BLK1, FILED ) 5600 CONTINUE FILED( 3 ) = FILEC( 3 ) FILED( 4 ) = FILEC( 4 ) FILED( 5 ) = FILEC( 5 ) CALL CLOSE ( FILEC, CLSREW ) CALL CLOSE ( FILED, CLSREW ) GO TO 7777 C C CREATE NULL MATRIX BECAUSE "C" MATRIX IS NULL C 5900 CONTINUE NDR = 0 NDC = 0 CALL GOPEN ( FILED, ZR( IBUF1 ) , WRTREW ) NDC = NBC NDR = NAR IF ( NAR .EQ. NBC ) NDR = NAC DD( 1 ) = 0.0D0 INCRP = 1 IROW1P = 1 IROWNP = 1 TYPEI = PREC1 IF ( TYPEI .EQ. 0 ) TYPEI = 1 TYPEP = TYPEI NUMC = NDC FILED( 2 ) = 0 FILED( 3 ) = NDR FILED( 5 ) = IPREC FILED( 6 ) = 0 FILED( 7 ) = 0 DO 5950 I = 1, NUMC CALL PACK ( DD, FILED, FILED ) 5950 CONTINUE CALL CLOSE ( FILED, CLSREW ) GO TO 7777 C MATRICES ARE INCOMPATIBLE FOR MULTIPLICATION 7001 CONTINUE WRITE ( NOUT, 9001 ) UFM 9001 FORMAT( A23, & ' MATRICES FOR MULTIPLICATION HAVE INCOMPATIBLE SIZES',/) CALL FNAME ( FILEA, NAMEA ) CALL FNAME ( FILEB, NAMEB ) CALL FNAME ( FILEC, NAMEC ) CALL FNAME ( FILED, NAMED ) WRITE( NOUT,2001, IOSTAT=IERR ) & NAMEA, NAR, NAC, NATERMS, DENSTYA, PRNTYP( NATYPE ) &, NAMEB, NBR, NBC, NBTERMS, DENSTYB, PRNTYP( NBTYPE ) IF ( FILEC(1) .EQ. 0) GO TO 7002 WRITE( NOUT,2002, IOSTAT=IERR ) & NAMEC, NCR, NCC, NCTERMS, DENSTYC, PRNTYP( NCTYPE ) 7002 CALL MESAGE ( -61, 0, 0 ) 7777 CONTINUE MODULE( 3 ) = JEND CALL CONMSG ( MODULE, 3, 0 ) TYPEI = ISAVE( 1 ) TYPEP = ISAVE( 2 ) IROW1P = ISAVE( 3 ) IROWNP = ISAVE( 4 ) INCRP = ISAVE( 5 ) TYPEU = ISAVE( 6 ) IROWU = ISAVE( 7 ) IROWNU = ISAVE( 8 ) INCRU = ISAVE( 9 ) RETURN END ================================================ FILE: mis/mma1.f ================================================ SUBROUTINE MMA1 ( ZI, ZR, ZD, ZC, ZDC ) C C MMA1 PERFORMS THE MATRIX OPERATION USING METHODS 10 AND 11 C (+/-)A(T & NT) * B (+/-)C = D C C MMA1 IS DESIGNED AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "A" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. CALL UNPACK TO READ MATRICES "A" AND "C". C 5. FOR METHOD 10, CALL UNPACK TO READ COLUMNS OF MATRIX "B". C 6. FOR METHOD 11, CALL MMARC1,2,3,4 TO READ COLUMNS OF MATRIX "B" C INTO MEMORY IN COMPACT FORM. C C INTEGER ZI(2) ,MODULE(3),SYSBUF,SCRTCH INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED REAL ZR(2) DOUBLE PRECISION ZD(2) COMPLEX ZC(2) DOUBLE COMPLEX ZDC(2) COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME INCLUDE 'MMACOM.COM' COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (KSYSTM(58),KSYS58) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C DATA MODULE / 4HMMA1 , 4H ,4H / DATA KZERO / 1H0 / DATA KONE / 1H1 / DATA JBEGN / 4HBEGN/ , JEND / 3HEND / MODULE( 3 ) = JBEGN IF ( NBSTOR .EQ. 1 ) MODULE( 2 ) = KZERO IF ( NBSTOR .EQ. 2 ) MODULE( 2 ) = KONE CALL CONMSG ( MODULE, 3, 0 ) INCRU = 1 TYPEI = NDTYPE TYPEP = NDTYPE SIGN = SIGNAB NWDD = NWORDS( NDTYPE ) NWDB = NWORDS( NBTYPE ) IRFILE = FILEB( 1 ) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C IF ( NBSTOR .EQ. 1 .OR. KSYS58 .EQ. 10 ) IDX = 1 + NWDD*NBR IF ( NBSTOR .NE. 2 .AND. KSYS58 .NE. 11 ) GO TO 90 C C REDEFINE IDX AND INSURE A QUAD WORD BOUNDARY FOR COMPLEX DOUBLE C IDX = 1 + NWDD*NBR + NBR ITEST = MOD( IDX, 4 ) IF ( ITEST .EQ. 1 ) GO TO 90 IF ( ITEST .EQ. 0 ) IDX = IDX + 1 IF ( ITEST .EQ. 2 ) IDX = IDX + 3 IF ( ITEST .EQ. 3 ) IDX = IDX + 2 90 CONTINUE IDX2 = ( ( IDX+1 ) / 2 ) - 1 IDX4 = ( IDX+1 ) / 4 IAX = IDX + NWDD*NDR IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = 0 IF ( FILEC( 1 ) .EQ. 0 .OR. SIGNC .EQ. 0 ) GO TO 100 IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF GO TO 200 100 CONTINUE IBUF4 = IBUF2 - SYSBUF 200 CONTINUE LASMEM = IBUF4 - 1 IPROW1 = 1 IPROWN = NDR INCRP = 1 CALL GOPEN ( FILEA, ZR( IBUF1 ), RDREW ) CALL GOPEN ( FILEB, ZR( IBUF2 ), RDREW ) C C DETERMINE HOW MANY COLUMNS OF A CAN BE READ INTO MEMORY IN ONE PASS C 220 CONTINUE IAVAIL = LASMEM - IAX + 1 C C NCOLPP - NUMBER OF COLUMNS OF "A" THAT CAN BE READ IN ONE PASS C NPASS - NUMBER OF PASSES NEEDED TO READ ENTIRE "A" MATRIX C NCOLPP = IAVAIL / ( 2+NWDD*NAR ) IF ( NCOLPP .GT. NAC ) NCOLPP = NAC IF ( NCOLPP .LE. 0 ) & CALL MESAGE ( -8, IAVAIL+NWDD*NAR, MODULE ) NPASS = ( (NAC-1) / NCOLPP ) + 1 IF ( NPASS .EQ. 1 .OR. IBUF3 .NE. 0 ) GO TO 250 C C MUST ALLOCATE TWO BUFFERS FOR MULTIPLE PASSES C IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF LASMEM = IBUF4 - 1 GO TO 220 250 CONTINUE DO 70000 M = 1, NPASS IPASS = M IBROW = ( M-1 ) * NCOLPP IF ( M .EQ. NPASS ) GO TO 400 C C MULTIPLE PASSES REQUIRED, DETERMINE PROPER FILE FOR OUTPUT SO THAT C REQUESTED OUTPUT FILE IS USED ON THE LAST PASS C ITEST = NPASS - M ITEST = MOD( ITEST, 2 ) IF ( ITEST .NE. 0 ) GO TO 350 IFILE = SCRTCH OFILE = FILED( 1 ) GO TO 380 350 IFILE = FILED( 1 ) OFILE = SCRTCH 380 CONTINUE IF ( M .EQ. 1 ) GO TO 300 CALL REWIND( FILEB ) CALL SKPREC( FILEB, 1 ) CALL GOPEN ( IFILE, ZR( IBUF3 ), RDREW ) CALL GOPEN ( OFILE, ZR( IBUF4 ), WRTREW) GO TO 490 C FIRST PASS, OPEN "C" FILE IF IT EXISTS 300 CONTINUE CALL GOPEN ( OFILE, ZR( IBUF4 ), WRTREW) 310 IFILE = FILEC( 1 ) IF ( SIGNC .EQ. 0 ) IFILE = 0 IF ( IFILE .EQ. 0 ) GO TO 490 CALL GOPEN ( IFILE, ZR( IBUF3 ), RDREW ) GO TO 490 C LAST PASS, CREATE OUTPUT FILE 400 CONTINUE NCOLPP = NAC - NCOLPP*(NPASS-1) OFILE = FILED( 1 ) IFILE = SCRTCH CALL REWIND( FILEB ) CALL SKPREC( FILEB, 1 ) CALL GOPEN ( FILED, ZR( IBUF4 ), WRTREW) FILED( 2 ) = 0 FILED( 6 ) = 0 FILED( 7 ) = 0 IF ( M .EQ. 1 ) GO TO 310 CALL GOPEN ( IFILE, ZR( IBUF3 ), RDREW ) 490 CONTINUE INDX = IAX TYPEU = NDTYPE DO 900 I = 1, NCOLPP IUROW1 = -1 CALL UNPACK ( *500, FILEA, ZR( INDX+2 ) ) ZI( INDX ) = IUROW1 ZI( INDX+1 ) = IUROWN INDX = INDX + 2 + NWDD*NAR GO TO 900 500 CONTINUE C NULL COLUMN READ ZI( INDX ) = 0 ZI( INDX+1 ) = 0 INDX = INDX + 2 + NWDD*NAR 900 CONTINUE IF ( KSYS58 .EQ. 10 ) GO TO 950 IF ( KSYS58 .EQ. 11 ) GO TO 1000 IF ( NBSTOR .EQ. 2 ) GO TO 1000 C PROCESS ALL OF THE COLUMNS OF "B", ADD "C" DATA ON FIRST PASS 950 CONTINUE IF ( NDTYPE .EQ. 1 ) CALL MMA101( ZI, ZR ) IF ( NDTYPE .EQ. 2 ) CALL MMA102( ZI, ZD ) IF ( NDTYPE .EQ. 3 ) CALL MMA103( ZI, ZC ) IF ( NDTYPE .EQ. 4 ) CALL MMA104( ZI, ZD, ZDC ) GO TO 60000 1000 CONTINUE IF ( NDTYPE .EQ. 1 ) CALL MMA111( ZI, ZR ) IF ( NDTYPE .EQ. 2 ) CALL MMA112( ZI, ZD ) IF ( NDTYPE .EQ. 3 ) CALL MMA113( ZI, ZC ) IF ( NDTYPE .EQ. 4 ) CALL MMA114( ZI, ZD, ZDC ) 60000 CONTINUE CALL CLOSE ( IFILE, CLSREW ) CALL CLOSE ( OFILE, CLSREW ) 70000 CONTINUE CALL CLOSE ( FILEA, CLSREW ) CALL CLOSE ( FILEB, CLSREW ) MODULE( 3 ) = JEND CALL CONMSG ( MODULE, 3, 0 ) RETURN END ================================================ FILE: mis/mma101.f ================================================ SUBROUTINE MMA101 ( ZI, ZR ) C C MMA101 PERFORMS THE MATRIX OPERATION USING METHOD 10 AND C REAL SINGLE PRECISION C C (+/-)A(T & NT) * B (+/-)C = D C C MMA10 USES METHOD 10 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "A" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C C MEMORY FOR EACH COLUMN OF "A" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED REAL ZR(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C PROCESS ALL OF THE COLUMNS OF "B", ADD "C" DATA ON FIRST PASS DO 60000 II = 1, NBC IUROW1 = -1 TYPEU = NDTYPE * SIGNAB CALL UNPACK ( *930, FILEB, ZR( 1 ) ) IROWB1 = IUROW1 IROWBN = IUROWN GO TO 940 930 IROWB1 = 0 IROWBN = 0 940 CONTINUE IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZR( IDX ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZR( IDX+J-1 ) = 0 970 CONTINUE 980 CONTINUE NWDDNAR = NWDD*NAR C C CHECK IF COLUMN OF "B" IS NULL C IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C SINGLE PRECISION 1000 CONTINUE DO 1500 I = 1, NCOLPP IBROWI = IBROW+I IF ( IBROWI .LT. IROWB1 .OR. IBROWI .GT. IROWBN ) GO TO 1500 IBROWI = IBROWI - IROWB1 + 1 IF ( ZR( IBROWI ) .EQ. 0. ) GO TO 1500 INDXA = IAX + 2*I + ( I-1 )*NAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 1500 IROWAN = ZI( INDXA-1 ) INDXA = INDXA - IROWA1 DO 1400 K = IROWA1, IROWAN ZR( IDX+K-1 ) = ZR( IDX+K-1 ) + ZR( INDXA+K ) * ZR( IBROWI ) 1400 CONTINUE 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE IDROW = IBROW C SINGLE PRECISION 10000 CONTINUE DO 15000 I = 1, NCOLPP INDXA = IAX + 2*I + ( I-1 )*NAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 15000 IROWAN = ZI( INDXA-1 ) IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 15000 INDXA = INDXA - IROWA1 INDXB = 1 - IROWB1 IDXX = IDX + IDROW - 1 DO 14000 K = IROW1, IROWN ZR( IDXX+I ) = ZR( IDXX+I ) + ZR( INDXA+K ) * ZR( INDXB+K ) 14000 CONTINUE 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZR( IDX ), OFILE, FILED ) 60000 CONTINUE RETURN END ================================================ FILE: mis/mma102.f ================================================ SUBROUTINE MMA102 ( ZI,ZD ) C C MMA102 PERFORMS THE MATRIX OPERATION USING METHOD 10 AND IN C REAL DOUBLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA10- USES METHOD 10 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "A" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C C MEMORY FOR EACH COLUMN OF "A" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C PROCESS ALL OF THE COLUMNS OF "B", ADD "C" DATA ON FIRST PASS DO 60000 II = 1, NBC IUROW1 = -1 TYPEU = NDTYPE * SIGNAB CALL UNPACK ( *930, FILEB, ZD( 1 ) ) IROWB1 = IUROW1 IROWBN = IUROWN GO TO 940 930 IROWB1 = 0 IROWBN = 0 940 CONTINUE IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZD( IDX2+1 ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZD( IDX2+J ) = 0 970 CONTINUE 980 CONTINUE NWDDNAR = NWDD*NAR C C CHECK IF COLUMN OF "B" IS NULL C IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C DOUBLE PRECISION 2000 CONTINUE DO 2500 I = 1, NCOLPP IBROWI = IBROW+I IF ( IBROWI .LT. IROWB1 .OR. IBROWI .GT. IROWBN ) GO TO 2500 IBROWI = IBROWI - IROWB1 + 1 IF ( ZD( IBROWI ) .EQ. 0.D0 ) GO TO 2500 INDXA = IAX + 2*I + ( I-1 )*NWDDNAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 2500 IROWAN = ZI( INDXA-1 ) INDXA = ( ( INDXA+1 ) / 2 ) - IROWA1 DO 2400 K = IROWA1, IROWAN ZD( IDX2+K ) = ZD( IDX2+K ) + ZD( INDXA+K ) * ZD( IBROWI ) 2400 CONTINUE 2500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE IDROW = IBROW C DOUBLE PRECISION 20000 CONTINUE DO 25000 I = 1, NCOLPP INDXA = IAX + 2*I + ( I-1 )*NWDDNAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 25000 IROWAN = ZI( INDXA-1 ) IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 25000 INDXA = ( ( INDXA+1 ) / 2 ) - IROWA1 IDX2X = IDX2 + IDROW INDXB = 1 - IROWB1 DO 24000 K = IROW1, IROWN ZD( IDX2X+I ) = ZD( IDX2X+I ) + ZD( INDXA+K ) * ZD( INDXB+K ) 24000 CONTINUE 25000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZD( IDX2+1 ), OFILE, FILED ) 60000 CONTINUE 70000 CONTINUE RETURN END ================================================ FILE: mis/mma103.f ================================================ SUBROUTINE MMA103 ( ZI, ZC ) C C MMA103 PERFORMS THE MATRIX OPERATION USING METHOD 10 AND IN C COMPLEX SINGLE PRECISION C C (+/-)A(T & NT) * B (+/-)C = D C C MMA10 USES METHOD 10 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "A" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C C MEMORY FOR EACH COLUMN OF "A" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED COMPLEX ZC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C PROCESS ALL OF THE COLUMNS OF "B", ADD "C" DATA ON FIRST PASS DO 60000 II = 1, NBC IUROW1 = -1 TYPEU = NDTYPE * SIGNAB CALL UNPACK ( *930, FILEB, ZC( 1 ) ) IROWB1 = IUROW1 IROWBN = IUROWN GO TO 940 930 IROWB1 = 0 IROWBN = 0 940 CONTINUE IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZC( IDX2+1 ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZC( IDX2+J ) = (0.0,0.0) 970 CONTINUE 980 CONTINUE NWDDNAR = NWDD*NAR C C CHECK IF COLUMN OF "B" IS NULL C IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C COMPLEX SINGLE PRECISION 3000 CONTINUE DO 3500 I = 1, NCOLPP IBROWI = IBROW+I IF ( IBROWI .LT. IROWB1 .OR. IBROWI .GT. IROWBN ) GO TO 3500 IBROWI = IBROWI - IROWB1 + 1 IF ( ZC( IBROWI ) .EQ. (0.0,0.0) ) GO TO 3500 INDXA = IAX + 2*I + ( I-1 )*NWDDNAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 3500 IROWAN = ZI( INDXA-1 ) INDXA = ( ( INDXA+1 ) / 2 ) - IROWA1 DO 3400 K = IROWA1, IROWAN ZC( IDX2+K ) = ZC( IDX2+K ) + ZC( INDXA+K ) * ZC( IBROWI ) 3400 CONTINUE 3500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE IDROW = IBROW C COMPLEX SINGLE PRECISION 30000 CONTINUE DO 35000 I = 1, NCOLPP INDXA = IAX + 2*I + ( I-1 )*NWDDNAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 35000 IROWAN = ZI( INDXA-1 ) IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 35000 INDXA = ( ( INDXA+1 ) / 2 ) - IROWA1 IDX2X = IDX2 + IDROW INDXB = 1 - IROWB1 DO 34000 K = IROW1, IROWN ZC( IDX2X+I ) = ZC( IDX2X+I ) + ZC( INDXA+K ) * ZC( INDXB+K ) 34000 CONTINUE 35000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZC( IDX2+1 ), OFILE, FILED ) 60000 CONTINUE RETURN END ================================================ FILE: mis/mma104.f ================================================ SUBROUTINE MMA104 ( ZI, ZD, ZDC ) C C MMA10 PERFORMS THE MATRIX OPERATION USING METHOD 10 AND C COMPLEX DOUBLE PRECISION C C (+/-)A(T & NT) * B (+/-)C = D C C MMA104 USES METHOD 10 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "A" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C C MEMORY FOR EACH COLUMN OF "A" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) DOUBLE COMPLEX ZDC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C PROCESS ALL OF THE COLUMNS OF "B", ADD "C" DATA ON FIRST PASS DO 60000 II = 1, NBC IUROW1 = -1 TYPEU = NDTYPE * SIGNAB CALL UNPACK ( *930, FILEB, ZDC( 1 ) ) IROWB1 = IUROW1 IROWBN = IUROWN GO TO 940 930 IROWB1 = 0 IROWBN = 0 940 CONTINUE IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZDC( IDX4+1 ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZDC( IDX4+J ) = (0.0,0.0) 970 CONTINUE 980 CONTINUE NWDDNAR = NWDD*NAR C C CHECK IF COLUMN OF "B" IS NULL C IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C COMLEX DOUBLE PRECISION 4000 CONTINUE DO 4500 I = 1, NCOLPP IBROWI = IBROW+I IF ( IBROWI .LT. IROWB1 .OR. IBROWI .GT. IROWBN ) GO TO 4500 IBROW2 = 2*( IBROW+I-IROWB1 ) + 1 IF ( ZD( IBROW2 ) .EQ. 0.D0 & .AND. ZD( IBROW2+1) .EQ. 0.D0 ) GO TO 4500 INDXA = IAX + 2*I + ( I-1 )*NWDDNAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 4500 IROWAN = ZI( INDXA-1 ) INDXA = ( ( INDXA+1 ) / 2 ) - 2 DO 4400 K = IROWA1, IROWAN INDXA = INDXA + 2 ZDC( IDX4+K ) = ZDC( IDX4+K ) + & DCMPLX( ZD(INDXA ), ZD(INDXA +1) ) * & DCMPLX( ZD(IBROW2), ZD(IBROW2+1) ) 4400 CONTINUE 4500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE IDROW = IBROW C COMPLEX DOUBLE PRECISION 40000 CONTINUE DO 45000 I = 1, NCOLPP INDXA = IAX + 2*I + ( I-1 )*NWDDNAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 45000 IROWAN = ZI( INDXA-1 ) IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 45000 INDXA = ( ( INDXA+1 ) / 2 ) + 2*( IROW1 - IROWA1 ) - 1 IDX4X = IDX4 + IDROW INDXB = 2*( IROW1 - IROWB1 ) KCNT = ( IROWN-IROW1 ) * 2 + 1 DO 44000 K = 1, KCNT, 2 ZDC( IDX4X+I ) = ZDC( IDX4X+I ) + & DCMPLX( ZD(INDXA+K ), ZD(INDXA+K+1) ) * & DCMPLX( ZD(INDXB+K ), ZD(INDXB+K+1) ) 44000 CONTINUE 45000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZDC( IDX4+1 ), OFILE, FILED ) 60000 CONTINUE RETURN END ================================================ FILE: mis/mma111.f ================================================ SUBROUTINE MMA111 ( ZI, ZR ) C C MMA111 PERFORMS THE MATRIX OPERATION IN REAL SINGLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA111 USES METHOD 11 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "A" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. UNPACK COLUMNS OF "C" MATRIX BUT USE GETSTR (MMARC1,2,3,4) C TO READ COLUMNS OF "B". C C MEMORY FOR EACH COLUMN OF "A" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED REAL ZR(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX IN COMPACT FORM C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C DO 60000 II = 1, NBC C C READ A COLUMN FROM THE "B" MATRIX C CALL MMARC1 ( ZI, ZR ) C C NOW READ "C", OR SCRATCH FILE WITH INTERMEDIATE RESULTS. C IF NO "C" FILE AND THIS IS THE FIRST PASS, INITIALIZE "D" COLUMN TO ZERO. C IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZR( IDX ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZR( IDX+J-1 ) = 0 970 CONTINUE 980 CONTINUE NWDDNAR = NWDD*NAR C C CHECK IF COLUMN OF "B" IS NULL C IROWB1 = ZI( 1 ) IROWS = ZI( 2 ) IROWBN = IROWB1 + IROWS - 1 INDX = 1 C C CHECK FOR NULL COLUMN ON "B" C IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C SINGLE PRECISION 1000 CONTINUE DO 1500 I = 1, NCOLPP IBROWI = IBROW+I INDXA = IAX + 2*I + ( I-1 )*NAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 1500 IROWAN = ZI( INDXA-1 ) INDXA = INDXA - IROWA1 1100 CONTINUE IF ( IBROWI .LT. IROWB1 ) GO TO 1500 IF ( IBROWI .LE. IROWBN ) GO TO 1200 INDX = INDX + 2 + IROWS IF ( INDX .GT. LASIND ) GO TO 50000 IROWB1 = ZI( INDX ) IROWS = ZI( INDX+1 ) IROWBN = IROWB1 + IROWS - 1 GO TO 1100 1200 CONTINUE INDXV = IBROWI - IROWB1 + INDX + 2 IF ( ZR( INDXV ) .EQ. 0. ) GO TO 1500 DO 1400 K = IROWA1, IROWAN ZR( IDX+K-1 ) = ZR( IDX+K-1 ) + ZR( INDXA+K ) * ZR( INDXV ) 1400 CONTINUE 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE IDROW = IBROW C SINGLE PRECISION 10000 CONTINUE DO 15000 I = 1, NCOLPP INDX = 1 INDXA = IAX + 2*I + ( I-1 )*NAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 15000 IROWAN = ZI( INDXA-1 ) INDXAV = INDXA - IROWA1 11000 IF ( INDX .GE. LASIND ) GO TO 15000 IROWB1 = ZI( INDX ) IROWS = ZI( INDX+1 ) IROWBN = IROWB1 + IROWS - 1 INDXV = INDX+2 INDX = INDX + 2 + IROWS IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 11000 INDXB = INDXV - IROWB1 IDXX = IDX + IDROW - 1 DO 14000 K = IROW1, IROWN ZR( IDXX+I ) = ZR( IDXX+I ) + ZR( INDXAV+K ) * ZR( INDXB+K ) 14000 CONTINUE GO TO 11000 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZR( IDX ), OFILE, FILED ) 60000 CONTINUE RETURN END ================================================ FILE: mis/mma112.f ================================================ SUBROUTINE MMA112 ( ZI, ZD ) C C MMA112 PERFORMS THE MATRIX OPERATION IN REAL DOUBLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA112 USES METHOD 11 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "A" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. UNPACK COLUMNS OF "C" MATRIX BUT USE GETSTR (MMARC1,2,3,4) C TO READ COLUMNS OF "B". C C MEMORY FOR EACH COLUMN OF "A" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX IN COMPACT FORM C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C DO 60000 II = 1, NBC C C READ A COLUMN FROM THE "B" MATRIX C CALL MMARC2 ( ZI, ZD ) C C NOW READ "C", OR SCRATCH FILE WITH INTERMEDIATE RESULTS. C IF NO "C" FILE AND THIS IS THE FIRST PASS, INITIALIZE "D" COLUMN TO ZERO. C IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZD( IDX2+1 ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZD( IDX2+J ) = 0 970 CONTINUE 980 CONTINUE NWDDNAR = NWDD*NAR C C CHECK IF COLUMN OF "B" IS NULL C IROWB1 = ZI( 1 ) IROWS = ZI( 2 ) IROWBN = IROWB1 + IROWS - 1 INDX = 1 C C CHECK IF "B" MATRIX COLUMN IS NULL C IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C DOUBLE PRECISION 2000 CONTINUE DO 2500 I = 1, NCOLPP IBROWI = IBROW+I INDXA = IAX + 2*I + ( I-1 )*NWDDNAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 2500 IROWAN = ZI( INDXA-1 ) INDXAV = ( ( INDXA+1 ) / 2 ) - IROWA1 2100 CONTINUE IF ( IBROWI .LT. IROWB1 ) GO TO 2500 IF ( IBROWI .LE. IROWBN ) GO TO 2200 INDX = INDX + 2 + IROWS*NWDD IF ( INDX .GE. LASIND ) GO TO 50000 IROWB1 = ZI( INDX ) IROWS = ZI( INDX+1 ) IROWBN = IROWB1 + IROWS - 1 GO TO 2100 2200 CONTINUE INDXV = IBROWI - IROWB1 + ( INDX + 3 ) / 2 IF ( ZD( INDXV ) .EQ. 0.D0 ) GO TO 2500 DO 2400 K = IROWA1, IROWAN ZD( IDX2+K ) = ZD( IDX2+K ) + ZD( INDXAV+K ) * ZD( INDXV ) 2400 CONTINUE 2500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE IDROW = IBROW C DOUBLE PRECISION 20000 CONTINUE DO 25000 I = 1, NCOLPP INDX = 1 INDXA = IAX + 2*I + ( I-1 )*NWDDNAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 25000 IROWAN = ZI( INDXA-1 ) INDXAV = ( ( INDXA+1 ) / 2 ) - IROWA1 21000 IF ( INDX .GE. LASIND ) GO TO 25000 IROWB1 = ZI( INDX ) IROWS = ZI( INDX+1 ) IROWBN = IROWB1 + IROWS - 1 INDXV = ( INDX+3 ) / 2 INDX = INDX + 2 + IROWS*NWDD IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 21000 IDX2X = IDX2 + IDROW INDXB = INDXV - IROWB1 DO 24000 K = IROW1, IROWN ZD( IDX2X+I ) = ZD( IDX2X+I ) + ZD( INDXAV+K ) * ZD( INDXB+K ) 24000 CONTINUE GO TO 21000 25000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZD( IDX2+1 ), OFILE, FILED ) 60000 CONTINUE RETURN END ================================================ FILE: mis/mma113.f ================================================ SUBROUTINE MMA113( ZI, ZC ) C C MMA113 PERFORMS THE MATRIX OPERATION IN COMPLEX SINGLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA113 USES METHOD 11 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "A" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. UNPACK COLUMNS OF "C" MATRIX BUT USE GETSTR (MMARC1,2,3,4) C TO READ COLUMNS OF "B". C C MEMORY FOR EACH COLUMN OF "A" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED COMPLEX ZC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX IN COMPACT FORM C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C DO 60000 II = 1, NBC C C READ COLUMN FROM THE "B" MATRIX C CALL MMARC3 ( ZI, ZC ) C C NOW READ "C", OR SCRATCH FILE WITH INTERMEDIATE RESULTS. C IF NO "C" FILE AND THIS IS THE FIRST PASS, INITIALIZE "D" COLUMN AS ZERO. C IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZC( IDX2+1 ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZC( IDX2+J ) = (0.0,0.0) 970 CONTINUE 980 CONTINUE NWDDNAR = NWDD*NAR C C CHECK IF COLUMN OF "B" IS NULL C IROWB1 = ZI( 1 ) IROWS = ZI( 2 ) IROWBN = IROWB1 + IROWS - 1 INDX = 1 C C CHECK FOR NULL COLUMN FROM THE "B" MATRIX C IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C COMPLEX SINGLE PRECISION 3000 CONTINUE DO 3500 I = 1, NCOLPP IBROWI = IBROW+I INDXA = IAX + 2*I + ( I-1 )*NWDDNAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 3500 IROWAN = ZI( INDXA-1 ) INDXAV = ( ( INDXA+1 ) / 2 ) - IROWA1 3100 CONTINUE IF ( IBROWI .LT. IROWB1 ) GO TO 3500 IF ( IBROWI .LE. IROWBN ) GO TO 3200 INDX = INDX + 2 + IROWS*NWDD IF ( INDX .GE. LASIND ) GO TO 50000 IROWB1 = ZI( INDX ) IROWS = ZI( INDX+1 ) IROWBN = IROWB1 + IROWS - 1 GO TO 3100 3200 CONTINUE INDXV = IBROWI - IROWB1 + ( INDX + 3 ) / 2 IF ( ZC( INDXV ) .EQ. (0.0,0.0) ) GO TO 3500 DO 3400 K = IROWA1, IROWAN ZC( IDX2+K ) = ZC( IDX2+K ) + ZC( INDXAV+K ) * ZC( INDXV ) 3400 CONTINUE 3500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE IDROW = IBROW C COMPLEX SINGLE PRECISION 30000 CONTINUE DO 35000 I = 1, NCOLPP INDX = 1 INDXA = IAX + 2*I + ( I-1 )*NWDDNAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 35000 IROWAN = ZI( INDXA-1 ) INDXAV = ( ( INDXA+1 ) / 2 ) - IROWA1 31000 IF ( INDX .GE. LASIND ) GO TO 35000 IROWB1 = ZI( INDX ) IROWS = ZI( INDX+1 ) IROWBN = IROWB1 + IROWS - 1 INDXV = ( INDX+3 ) / 2 INDX = INDX + 2 + IROWS*NWDD IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 31000 IDX2X = IDX2 + IDROW INDXB = INDXV - IROWB1 DO 34000 K = IROW1, IROWN ZC( IDX2X+I ) = ZC( IDX2X+I ) + ZC( INDXAV+K ) * ZC( INDXB+K ) 34000 CONTINUE GO TO 31000 35000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZC( IDX2+1 ), OFILE, FILED ) 60000 CONTINUE RETURN END ================================================ FILE: mis/mma114.f ================================================ SUBROUTINE MMA114 ( ZI, ZD, ZDC ) C C MMA114 PERFORMS THE MATRIX OPERATION IN COMPLEX DOUBLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA114 USES METHOD 10 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "A" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. UNPACK COLUMNS OF "C" MATRIX BUT USE GETSTR (MMARC1,2,3,4) C TO READ COLUMNS OF "B". C C MEMORY FOR EACH COLUMN OF "A" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) DOUBLE COMPLEX ZDC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX IN COMPACT FORM C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C DO 60000 II = 1, NBC C C READ A COLUMN FROM THE "B" MATRIX C CALL MMARC4 ( ZI, ZD ) C C NOW READ "C", OR SCRATCH FILE WITH INTERMEDIATE RESULTS. C IF NO "C" FILE AND THIS IS THE FIRST PASS, INITIALIZE "D" COLUMN TO ZERO C IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZDC( IDX4+1 ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZDC( IDX4+J ) = (0.0,0.0) 970 CONTINUE 980 CONTINUE NWDDNAR = NWDD*NAR C C CHECK IF COLUMN OF "B" IS NULL C IROWB1 = ZI( 1 ) IROWS = ZI( 2 ) IROWBN = IROWB1 + IROWS - 1 INDX = 1 C C CHECK FOR NULL COLUMN FROM THE "B" MATRIX C IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C COMLEX DOUBLE PRECISION 4000 CONTINUE DO 4500 I = 1, NCOLPP IBROWI = IBROW+I INDXA = IAX + 2*I + ( I-1 )*NWDDNAR IROWA1 = ZI( INDXA-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 4500 IROWAN = ZI( INDXA-1 ) INDXA1 = ( ( INDXA+1 ) / 2 ) - 2 4100 CONTINUE IF ( IBROWI .LT. IROWB1 ) GO TO 4500 IF ( IBROWI .LE. IROWBN ) GO TO 4200 INDX = INDX + 2 + IROWS*NWDD IF ( INDX .GE. LASIND ) GO TO 50000 IROWB1 = ZI( INDX ) IROWS = ZI( INDX+1 ) IROWBN = IROWB1 + IROWS - 1 GO TO 4100 4200 CONTINUE INDXV = 2*( IBROWI - IROWB1 ) + ( ( INDX+3 ) / 2 ) IF ( ZD( INDXV ) .EQ. 0.D0 & .AND. ZD( INDXV+1) .EQ. 0.D0 ) GO TO 4500 INDXAV = INDXA1 DO 4400 K = IROWA1, IROWAN INDXAV = INDXAV + 2 ZDC( IDX4+K ) = ZDC( IDX4+K ) + & DCMPLX( ZD(INDXAV ), ZD(INDXAV +1) ) * & DCMPLX( ZD(INDXV ), ZD(INDXV+1 ) ) 4400 CONTINUE 4500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE IDROW = IBROW C COMLEX DOUBLE PRECISION 40000 CONTINUE DO 45000 I = 1, NCOLPP INDX = 1 INDXA1 = IAX + 2*I + ( I-1 )*NWDDNAR IROWA1 = ZI( INDXA1-2 ) IF ( IROWA1 .EQ. 0 ) GO TO 45000 IROWAN = ZI( INDXA1-1 ) 41000 IF ( INDX .GE. LASIND ) GO TO 45000 IROWB1 = ZI( INDX ) IROWS = ZI( INDX+1 ) IROWBN = IROWB1 + IROWS - 1 INDXV = ( INDX+3 ) / 2 INDX = INDX + 2 + IROWS*NWDD IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 41000 INDXA = ( ( INDXA1+1 ) / 2 ) + 2*( IROW1 - IROWA1 ) - 1 IDX4X = IDX4 + IDROW INDXB = INDXV + 2*( IROW1 - IROWB1 ) - 1 KCNT = ( IROWN-IROW1 ) * 2 + 1 DO 44000 K = 1, KCNT, 2 ZDC( IDX4X+I ) = ZDC( IDX4X+I ) + & DCMPLX( ZD(INDXA+K ), ZD(INDXA+K+1) ) * & DCMPLX( ZD(INDXB+K ), ZD(INDXB+K+1) ) 44000 CONTINUE GO TO 41000 45000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZDC( IDX4+1 ), OFILE, FILED ) 60000 CONTINUE RETURN END ================================================ FILE: mis/mma2.f ================================================ SUBROUTINE MMA2 ( ZI, ZR, ZD, ZC, ZDC ) C C MMA2 PERFORMS THE MATRIX OPERATION USING METHODS 20 AND 21 C (+/-)A(T & NT) * B (+/-)C = D C C MMA2 IS DESIGNED AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR A COLUMN OF "D" FOR EVERY COLUMN "B" READ. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. CALL UNPACK TO READ MATRICES "B" AND "C". C 5. FOR METHOD 20, CALL UNPACK TO READ COLUMNS OF MATRIX "A". C 6. FOR METHOD 21, CALL MMARC1,2,3,4 TO READ COLUMNS OF MATRIX "A" C INTO MEMORY IN COMPACT FORM. C INTEGER ZI(2) ,MODULE(3),SYSBUF,SCRTCH INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED REAL ZR(2) DOUBLE PRECISION ZD(2) COMPLEX ZC(2) DOUBLE COMPLEX ZDC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) 1, (KSYSTM(58),KSYS58) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C DATA MODULE / 4HMMA2 , 4H ,4H / DATA KZERO / 1H0 / DATA KONE / 1H1 / DATA JBEGN / 4HBEGN/ , JEND / 3HEND / IF ( NASTOR .EQ. 1 .OR. KSYS58 .EQ. 20 ) MODULE( 2 ) = KZERO IF ( NASTOR .EQ. 2 .OR. KSYS58 .EQ. 21 ) MODULE( 2 ) = KONE MODULE( 3 ) = JBEGN CALL CONMSG ( MODULE, 3, 0 ) INCRU = 1 TYPEI = NDTYPE TYPEP = NDTYPE NWDD = NWORDS( NDTYPE ) IRFILE = FILEA( 1 ) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C IDX = 1 + NWDD*NAR IF ( NASTOR .NE. 2 .AND. KSYS58 .NE. 21 ) GO TO 90 C C REDEFINE IDX AND INSURE A QUAD WORD BOUNDARY FOR COMPLEX DOUBLE C IDX = 1 + NWDD*NAR + NAR ITEST = MOD ( IDX, 4 ) IF ( ITEST .EQ. 1 ) GO TO 90 IF ( ITEST .EQ. 0 ) IDX = IDX + 1 IF ( ITEST .EQ. 2 ) IDX = IDX + 3 IF ( ITEST .EQ. 3 ) IDX = IDX + 2 90 CONTINUE IDX2 = ( ( IDX+1 ) / 2 ) - 1 IDX4 = ( IDX+1 ) / 4 IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF IF ( FILEC( 1 ) .EQ. 0 ) GO TO 100 IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF GO TO 200 100 CONTINUE IBUF4 = IBUF2 - SYSBUF 200 CONTINUE LASMEM = IBUF4 - 1 IPROW1 = 1 IPROWN = NDR INCRP = 1 SIGN = 1.0 CALL GOPEN ( FILEA, ZR( IBUF1 ), RDREW ) CALL GOPEN ( FILEB, ZR( IBUF2 ), RDREW ) IF ( FILEC( 1 ) .NE. 0 ) CALL GOPEN ( FILEC, ZR( IBUF3 ), RDREW ) CALL GOPEN ( FILED, ZR( IBUF4 ), WRTREW ) FILED( 2 ) = 0 FILED( 6 ) = 0 FILED( 7 ) = 0 C C DETERMINE HOW MANY COLUMNS OF "B" CAN BE READ INTO MEMORY AND HOW C MANY COLUMNS OF "D" CAN BE HELD IN MEMORY FOR ONE PASS C IAVAIL = LASMEM - IDX + 1 C C NCOLPP - NUMBER OF COLUMNS OF "B" THAT CAN BE READ IN ONE PASS C NPASS - NUMBER OF PASSES NEEDED TO READ ENTIRE "B" MATRIX C NWDDNDR = NWDD * NDR NWDDNBR = NWDD * NBR NCOLPP = IAVAIL / ( 2+ NWDDNBR + NWDDNDR ) IF ( NCOLPP .LE. 0 ) & CALL MESAGE ( -8, IAVAIL+NWDDNBR+NWDDNDR, MODULE) IF ( NCOLPP .GT. NBC ) NCOLPP = NBC NPASS = ( (NBC-1) / NCOLPP ) + 1 IBX = IDX + NCOLPP*NWDDNDR DO 70000 M = 1, NPASS IPASS = M IF ( M .EQ. NPASS ) NCOLPP = NBC - ( NCOLPP*(NPASS-1) ) CALL REWIND ( FILEA ) CALL SKPREC ( FILEA, 1 ) INDXB = IBX INDXD = IDX TYPEU = NDTYPE * SIGNAB DO 600 I = 1, NCOLPP IUROW1 = -1 CALL UNPACK ( *500, FILEB, ZR( INDXB+2 ) ) ZI( INDXB ) = IUROW1 ZI( INDXB+1 ) = IUROWN GO TO 550 500 CONTINUE C NULL COLUMN READ ON "B" ZI( INDXB ) = 0 ZI( INDXB+1 ) = 0 550 CONTINUE INDXB = INDXB + NWDDNBR + 2 600 CONTINUE IF ( FILEC( 1 ) .EQ. 0 .OR. SIGNC .EQ. 0 ) GO TO 800 TYPEU = NDTYPE * SIGNC IUROW1 = 1 IUROWN = NCR DO 700 I = 1, NCOLPP CALL UNPACK ( *650, FILEC, ZR( INDXD ) ) GO TO 680 C C NULL COLUMN READ ON "C" C 650 CONTINUE LEN = INDXD + NWDDNDR - 1 DO 620 K = INDXD, LEN ZR( K ) = 0.0 620 CONTINUE 680 CONTINUE INDXD = INDXD + NWDDNDR 700 CONTINUE GO TO 900 C C "C" MATRIX IS NULL OR "SIGNC" IS ZERO C 800 CONTINUE LEN = IDX + NCOLPP*NWDDNDR - 1 DO 850 K = IDX, LEN ZR( K ) = 0. 850 CONTINUE 900 CONTINUE C C PROCESS ALL OF THE COLUMNS OF "A" C IF ( KSYS58 .EQ. 21 ) GO TO 1000 IF ( KSYS58 .EQ. 20 ) GO TO 950 IF ( NASTOR .EQ. 2 ) GO TO 1000 950 CONTINUE IF ( NDTYPE .EQ. 1 ) CALL MMA201 ( ZI, ZR ) IF ( NDTYPE .EQ. 2 ) CALL MMA202 ( ZI, ZD ) IF ( NDTYPE .EQ. 3 ) CALL MMA203 ( ZI, ZC ) IF ( NDTYPE .EQ. 4 ) CALL MMA204 ( ZI, ZD, ZDC ) GO TO 70000 1000 CONTINUE IF ( NDTYPE .EQ. 1 ) CALL MMA211 ( ZI, ZR ) IF ( NDTYPE .EQ. 2 ) CALL MMA212 ( ZI, ZD ) IF ( NDTYPE .EQ. 3 ) CALL MMA213 ( ZI, ZC ) IF ( NDTYPE .EQ. 4 ) CALL MMA214 ( ZI, ZD, ZDC ) 70000 CONTINUE CALL CLOSE ( FILEA, CLSREW ) CALL CLOSE ( FILEB, CLSREW ) CALL CLOSE ( FILEC, CLSREW ) CALL CLOSE ( FILED, CLSREW ) MODULE( 3 ) = JEND CALL CONMSG ( MODULE, 3, 0 ) RETURN END ================================================ FILE: mis/mma201.f ================================================ SUBROUTINE MMA201 ( ZI, ZR ) C C MMA201 PERFORMS THE MATRIX OPERATION USING METHOD 20 C IN REAL SINGLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA201 USES METHOD 20 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR A COLUMN OF "D" FOR EVERY COLUMN "B" READ. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C C MEMORY FOR EACH COLUMN OF "B" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED REAL ZR(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C DO 60000 II = 1, NAC IUROW1 = -1 TYPEU = NDTYPE CALL UNPACK ( *50000, FILEA, ZR( 1 ) ) IROWA1 = IUROW1 IROWAN = IUROWN INDXA = 1 - IROWA1 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C SINGLE PRECISION 1000 CONTINUE DO 1500 I = 1, NCOLPP INDXB = IBX + 2*I + ( I-1 )*NBR IROWB1 = ZI( INDXB-2 ) IROWBN = ZI( INDXB-1 ) IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 1500 INDXB = INDXB + II - IROWB1 IF ( ZR( INDXB ) .EQ. 0.0 ) GO TO 1500 INDXD = ( IDX + ( I-1 )*NDR ) - 1 DO 1400 K = IROWA1, IROWAN ZR( INDXD+K ) = ZR( INDXD+K ) + ZR( INDXA+K ) * ZR( INDXB ) 1400 CONTINUE 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C SINGLE PRECISION 10000 CONTINUE DO 15000 I = 1, NCOLPP INDXB = IBX + 2*I + ( I-1 )*NBR IROWB1 = ZI( INDXB-2 ) IF ( IROWB1 .EQ. 0 ) GO TO 15000 IROWBN = ZI( INDXB-1 ) IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 15000 INDXB = INDXB - IROWB1 INDXD = ( IDX + ( I-1 )*NDR ) - 1 INDXD = INDXD + II DO 14000 K = IROW1, IROWN ZR( INDXD ) = ZR( INDXD ) + ZR( INDXA+K ) * ZR( INDXB+K ) 14000 CONTINUE 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 50000 CONTINUE 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX + ( K-1 ) * NWDDNDR CALL PACK ( ZR( INDX ), FILED, FILED ) 65000 CONTINUE RETURN END ================================================ FILE: mis/mma202.f ================================================ SUBROUTINE MMA202 ( ZI, ZD ) C C MMA202 PERFORMS THE MATRIX OPERATION USING METHOD 20 IN C REAL DOUBLE PRECISION C C (+/-)A(T & NT) * B (+/-)C = D C C MMA202 USES METHOD 20 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR A COLUMN OF "D" FOR EVERY COLUMN "B" READ. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C C MEMORY FOR EACH COLUMN OF "B" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C DO 60000 II = 1, NAC IUROW1 = -1 TYPEU = NDTYPE CALL UNPACK ( *50000, FILEA, ZD( 1 ) ) IROWA1 = IUROW1 IROWAN = IUROWN INDXA = 1 - IROWA1 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C DOUBLE PRECISION 2000 CONTINUE DO 2500 I = 1, NCOLPP INDXB = IBX + 2*I + ( I-1 )*NWDDNBR IROWB1 = ZI( INDXB-2 ) IROWBN = ZI( INDXB-1 ) IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 2500 INDXB = ( ( INDXB+1 ) / 2 ) + II - IROWB1 IF ( ZD( INDXB ) .EQ. 0.0D0 ) GO TO 2500 INDXD = IDX + ( I-1 )*NWDDNDR INDXD = ( ( INDXD+1 ) / 2 ) - 1 DO 2400 K = IROWA1, IROWAN ZD( INDXD+K ) = ZD( INDXD+K ) + ZD( INDXA+K ) * ZD( INDXB ) 2400 CONTINUE 2500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C DOUBLE PRECISION 20000 CONTINUE DO 25000 I = 1, NCOLPP INDXB = IBX + 2*I + ( I-1 )*NWDDNBR IROWB1 = ZI( INDXB-2 ) IF ( IROWB1 .EQ. 0 ) GO TO 25000 IROWBN = ZI( INDXB-1 ) IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 25000 INDXB = ( ( INDXB+1 ) / 2 ) - IROWB1 INDXD = IDX + ( I-1 )*NWDDNDR INDXD = ( ( INDXD+1 ) / 2 ) - 1 + II DO 24000 K = IROW1, IROWN ZD( INDXD ) = ZD( INDXD ) + ZD( INDXA+K ) * ZD( INDXB+K ) 24000 CONTINUE 25000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 50000 CONTINUE 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX2 + ( K-1 ) * NDR CALL PACK ( ZD( INDX+1 ), FILED, FILED ) 65000 CONTINUE RETURN END ================================================ FILE: mis/mma203.f ================================================ SUBROUTINE MMA203 ( ZI, ZC ) C C MMA203 PERFORMS THE MATRIX OPERATION USING METHOD 20 C IN COMPLEX SINGLE PRECISION. C C (+/-)A(T & NT) * B (+/-)C = D C C MMA203 USES METHOD 20 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR A COLUMN OF "D" FOR EVERY COLUMN "B" READ. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C C MEMORY FOR EACH COLUMN OF "B" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED COMPLEX ZC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C DO 60000 II = 1, NAC IUROW1 = -1 TYPEU = NDTYPE CALL UNPACK ( *50000, FILEA, ZC( 1 ) ) IROWA1 = IUROW1 IROWAN = IUROWN INDXA = 1 - IROWA1 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C COMPLEX SINGLE PRECISION 3000 CONTINUE DO 3500 I = 1, NCOLPP INDXB = IBX + 2*I + ( I-1 )*NWDDNBR IROWB1 = ZI( INDXB-2 ) IROWBN = ZI( INDXB-1 ) IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 3500 INDXB = ( ( INDXB+1 ) / 2 ) + II - IROWB1 IF ( ZC( INDXB ) .EQ. ( 0.0, 0.0 ) ) GO TO 3500 INDXD = IDX + ( I-1 )*NWDDNDR INDXD = ( ( INDXD+1 ) / 2 ) - 1 DO 3400 K = IROWA1, IROWAN ZC( INDXD+K ) = ZC( INDXD+K ) + ZC( INDXA+K ) * ZC( INDXB ) 3400 CONTINUE 3500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C COMPLEX SINGLE PRECISION 30000 CONTINUE DO 35000 I = 1, NCOLPP INDXB = IBX + 2*I + ( I-1 )*NWDDNBR IROWB1 = ZI( INDXB-2 ) IF( IROWB1 .EQ. 0 ) GO TO 35000 IROWBN = ZI( INDXB-1 ) IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 35000 INDXB = ( ( INDXB+1 ) / 2 ) - IROWB1 INDXD = IDX + ( I-1 )*NWDDNDR INDXD = ( ( INDXD+1 ) / 2 ) - 1 + II DO 34000 K = IROW1, IROWN ZC( INDXD ) = ZC( INDXD ) + ZC( INDXA+K ) * ZC( INDXB+K ) 34000 CONTINUE 35000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 50000 CONTINUE 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX2 + ( K-1 ) * NDR CALL PACK ( ZC( INDX+1 ), FILED, FILED ) 65000 CONTINUE RETURN END ================================================ FILE: mis/mma204.f ================================================ SUBROUTINE MMA204 ( ZI, ZD, ZDC ) C C MMA204 PERFORMS THE MATRIX OPERATION USING METHOD 20 C IN COMPLEX DOUBLE PRECISION C C (+/-)A(T & NT) * B (+/-)C = D C C MMA204 USES METHOD 20 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR A COLUMN OF "D" FOR EVERY COLUMN "B" READ. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C C MEMORY FOR EACH COLUMN OF "B" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) DOUBLE COMPLEX ZDC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C DO 60000 II = 1, NAC IUROW1 = -1 TYPEU = NDTYPE CALL UNPACK ( *50000, FILEA, ZD( 1 ) ) IROWA1 = IUROW1 IROWAN = IUROWN INDXA = 1 - IROWA1 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C COMLEX DOUBLE PRECISION 4000 CONTINUE DO 4500 I = 1, NCOLPP INDXB = IBX + 2*I + ( I-1 )*NWDDNBR IROWB1 = ZI( INDXB-2 ) IROWBN = ZI( INDXB-1 ) IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 4500 INDXB = ( ( INDXB+1 ) / 2 ) + 2*( II - IROWB1 ) IF ( ZD( INDXB ) .EQ. 0.0D0 .AND. ZD( INDXB+1 ) .EQ. 0.0D0 ) & GO TO 4500 INDXD = IDX + ( I-1 )*NWDDNDR INDXD = ( ( INDXD+1 ) / 4 ) DO 4400 K = IROWA1, IROWAN ZDC( INDXD+K ) = ZDC( INDXD+K ) + & ZDC( INDXA+K ) * DCMPLX( ZD(INDXB), ZD(INDXB+1 ) ) 4400 CONTINUE 4500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C COMLEX DOUBLE PRECISION 40000 CONTINUE DO 45000 I = 1, NCOLPP INDXB = IBX + 2*I + ( I-1 )*NWDDNBR IROWB1 = ZI( INDXB-2 ) IF ( IROWB1 .EQ. 0 ) GO TO 45000 IROWBN = ZI( INDXB-1 ) IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 45000 INDXB = ( ( INDXB+1 ) / 2 ) + 2*( IROW1 - IROWB1 ) INDXD = IDX + ( I-1 )*NWDDNDR INDXD = ( ( INDXD+1 ) / 4 ) + II DO 44000 K = IROW1, IROWN ZDC( INDXD ) = ZDC( INDXD ) + & ZDC( INDXA+K ) * DCMPLX( ZD(INDXB), ZD(INDXB+1 ) ) INDXB = INDXB + 2 44000 CONTINUE 45000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 50000 CONTINUE 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX4 + ( K-1 ) * NDR CALL PACK ( ZDC( INDX+1 ), FILED, FILED ) 65000 CONTINUE RETURN END ================================================ FILE: mis/mma211.f ================================================ SUBROUTINE MMA211 ( ZI, ZR ) C C MMA211 PERFORMS THE MATRIX OPERATION USING METHOD 21 C IN REAL SINGLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA211 USES METHOD 21 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR A COLUMN OF "D" FOR EVERY COLUMN "B" READ. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE GETSTR TO READ MATRIX "A", (SEE SUBROUTINES MMARC1,2,3,4). C 5. USE UNPACK TO READ MATRIX "C". C C MEMORY FOR EACH COLUMN OF "B" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED REAL ZR(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C DO 60000 II = 1, NAC C C READ A COLUMN OF "A" MATRIX C CALL MMARC1 ( ZI, ZR ) C C CHECK FOR NULL COLUMN ON "A" C IF ( ZI( 1 ) .EQ. 0 ) GO TO 60000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C SINGLE PRECISION 1000 CONTINUE DO 1500 I = 1, NCOLPP INDX = 1 IROWA1 = ZI( INDX ) INDXB = IBX + 2*I + ( I-1 )*NBR IROWB1 = ZI( INDXB-2 ) IROWBN = ZI( INDXB-1 ) IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 1500 INDXB = INDXB + II - IROWB1 IF ( ZR( INDXB ) .EQ. 0.0 ) GO TO 1500 INDXD = ( IDX + ( I-1 )*NDR ) - 1 1100 CONTINUE IROWS = ZI( INDX+1 ) IROWAN = IROWA1 + IROWS - 1 INDXA = INDX + 2 - IROWA1 DO 1400 K = IROWA1, IROWAN ZR( INDXD+K ) = ZR( INDXD+K ) + ZR( INDXA+K ) * ZR( INDXB ) 1400 CONTINUE INDX = INDX + 2 + IROWS IF ( INDX .GE. LASIND ) GO TO 1500 IROWA1 = ZI( INDX ) GO TO 1100 1500 CONTINUE GO TO 60000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C SINGLE PRECISION 10000 CONTINUE DO 15000 I = 1, NCOLPP INDXB = IBX + 2*I + ( I-1 )*NBR IROWB1 = ZI( INDXB-2 ) IF ( IROWB1 .EQ. 0 ) GO TO 15000 IROWBN = ZI( INDXB-1 ) INDX = 1 IROWA1 = ZI( INDX ) INDXD = ( IDX + ( I-1 )*NDR ) - 1 + II INDXB = INDXB - IROWB1 11000 CONTINUE IROWS = ZI( INDX + 1 ) IROWAN = IROWA1 + IROWS - 1 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 14100 INDXA = INDX + 2 - IROWA1 DO 14000 K = IROW1, IROWN ZR( INDXD ) = ZR( INDXD ) + ZR( INDXA+K ) * ZR( INDXB+K ) 14000 CONTINUE 14100 CONTINUE INDX = INDX + 2 + IROWS IF ( INDX .GE. LASIND ) GO TO 15000 IROWA1 = ZI( INDX ) GO TO 11000 15000 CONTINUE C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX + ( K-1 ) * NWDDNDR CALL PACK ( ZR( INDX ), FILED, FILED ) 65000 CONTINUE RETURN END ================================================ FILE: mis/mma212.f ================================================ SUBROUTINE MMA212 ( ZI, ZD ) C C MMA212 PERFORMS THE MATRIX OPERATION USING METHOD 21 IN C REAL DOUBLE PRECISION C C (+/-)A(T & NT) * B (+/-)C = D C C MMA212 USES METHOD 21 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR A COLUMN OF "D" FOR EVERY COLUMN "B" READ. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE GETSTR TO READ MATRIX "A", (SEE SUBROUTINES MMARC1,2,3,4) C 5. USE UNPACK TO READ MATRIX "C". C C MEMORY FOR EACH COLUMN OF "B" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C DO 60000 II = 1, NAC C C READ A COLUMN FROM "A" MATRIX C CALL MMARC2 ( ZI, ZD ) C C CHECK FOR NULL COLUMN ON "A" C IF ( ZI( 1 ) .EQ. 0 ) GO TO 60000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C DOUBLE PRECISION 2000 CONTINUE DO 2500 I = 1, NCOLPP INDX = 1 IROWA1 = ZI( INDX ) INDXB = IBX + 2*I + ( I-1 )*NWDDNBR IROWB1 = ZI( INDXB-2 ) IROWBN = ZI( INDXB-1 ) IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 2500 INDXB = ( ( INDXB+1 ) / 2 ) + II - IROWB1 IF ( ZD( INDXB ) .EQ. 0.0D0 ) GO TO 2500 INDXD = IDX + ( I-1 )*NWDDNDR INDXD = ( ( INDXD+1 ) / 2 ) - 1 2100 CONTINUE IROWS = ZI( INDX+1 ) IROWAN = IROWA1 + IROWS - 1 INDXA = ( (INDX+1)/2 ) + 1 - IROWA1 DO 2400 K = IROWA1, IROWAN ZD( INDXD+K ) = ZD( INDXD+K ) + ZD( INDXA+K ) * ZD( INDXB ) 2400 CONTINUE INDX = INDX + 2 + IROWS*NWDD IF ( INDX .GE. LASIND ) GO TO 2500 IROWA1 = ZI( INDX ) GO TO 2100 2500 CONTINUE GO TO 60000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C DOUBLE PRECISION 20000 CONTINUE DO 25000 I = 1, NCOLPP INDXB = IBX + 2*I + ( I-1 )*NWDDNBR IROWB1 = ZI( INDXB-2 ) IF ( IROWB1 .EQ. 0 ) GO TO 25000 IROWBN = ZI( INDXB-1 ) INDX = 1 IROWA1 = ZI( INDX ) INDXB = ( ( INDXB+1 ) / 2 ) - IROWB1 INDXD = IDX + ( I-1 )*NWDDNDR INDXD = ( ( INDXD+1 ) / 2 ) - 1 + II 21000 CONTINUE IROWS = ZI( INDX+1 ) IROWAN = IROWA1 + IROWS - 1 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 24100 INDXA = ( (INDX+1)/2 ) + 1 - IROWA1 DO 24000 K = IROW1, IROWN ZD( INDXD ) = ZD( INDXD ) + ZD( INDXA+K ) * ZD( INDXB+K ) 24000 CONTINUE 24100 CONTINUE INDX = INDX + 2 + IROWS*NWDD IF ( INDX .GE. LASIND ) GO TO 25000 IROWA1 = ZI( INDX ) GO TO 21000 25000 CONTINUE C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX2 + ( K-1 ) * NDR CALL PACK ( ZD( INDX+1 ), FILED, FILED ) 65000 CONTINUE RETURN END ================================================ FILE: mis/mma213.f ================================================ SUBROUTINE MMA213 ( ZI, ZC ) C C MMA211 PERFORMS THE MATRIX OPERATION USING METHOD 21 C IN COMPLEX SINGLE PRECISION. C C (+/-)A(T & NT) * B (+/-)C = D C C MMA213 USES METHOD 21 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR A COLUMN OF "D" FOR EVERY COLUMN "B" READ. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C C MEMORY FOR EACH COLUMN OF "B" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED COMPLEX ZC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C DO 60000 II = 1, NAC C C READ A COLUMN FROM THE "A" MATRIX C CALL MMARC3 ( ZI, ZC ) C C CHECK IF "A" COLUMN IS NULL C IF ( ZI( 1 ) .EQ. 0 ) GO TO 60000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C COMPLEX SINGLE PRECISION 3000 CONTINUE DO 3500 I = 1, NCOLPP INDX = 1 IROWA1 = ZI( INDX ) INDXB = IBX + 2*I + ( I-1 )*NWDDNBR IROWB1 = ZI( INDXB-2 ) IROWBN = ZI( INDXB-1 ) IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 3500 INDXB = ( ( INDXB+1 ) / 2 ) + II - IROWB1 IF ( ZC( INDXB ) .EQ. (0.0, 0.0) ) GO TO 3500 INDXD = IDX + ( I-1 )*NWDDNDR INDXD = ( ( INDXD+1 ) / 2 ) - 1 3100 CONTINUE IROWS = ZI( INDX+1 ) IROWAN = IROWA1 + IROWS - 1 INDXA = ( (INDX+1)/2 ) + 1 - IROWA1 DO 3400 K = IROWA1, IROWAN ZC( INDXD+K ) = ZC( INDXD+K ) + ZC( INDXA+K ) * ZC( INDXB ) 3400 CONTINUE INDX = INDX + 2 + IROWS*NWDD IF ( INDX .GE. LASIND ) GO TO 3500 IROWA1 = ZI( INDX ) GO TO 3100 3500 CONTINUE GO TO 60000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C COMPLEX SINGLE PRECISION 30000 CONTINUE DO 35000 I = 1, NCOLPP INDXB = IBX + 2*I + ( I-1 )*NWDDNBR IROWB1 = ZI( INDXB-2 ) IF( IROWB1 .EQ. 0 ) GO TO 35000 IROWBN = ZI( INDXB-1 ) INDX = 1 IROWA1 = ZI( INDX ) INDXB = ( ( INDXB+1 ) / 2 ) - IROWB1 INDXA = 1 - IROWA1 INDXD = IDX + ( I-1 )*NWDDNDR INDXD = ( ( INDXD+1 ) / 2 ) - 1 + II 31000 CONTINUE IROWS = ZI( INDX+1 ) IROWAN = IROWA1 + IROWS - 1 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 34100 INDXA = ( (INDX+1)/2 ) + 1 - IROWA1 DO 34000 K = IROW1, IROWN ZC( INDXD ) = ZC( INDXD ) + ZC( INDXA+K ) * ZC( INDXB+K ) 34000 CONTINUE 34100 CONTINUE INDX = INDX + 2 + IROWS*NWDD IF ( INDX .GE. LASIND ) GO TO 35000 IROWA1 = ZI( INDX ) GO TO 31000 35000 CONTINUE C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX2 + ( K-1 ) * NDR CALL PACK ( ZC( INDX+1 ), FILED, FILED ) 65000 CONTINUE RETURN END ================================================ FILE: mis/mma214.f ================================================ SUBROUTINE MMA214 ( ZI, ZD, ZDC ) C C MMA214 PERFORMS THE MATRIX OPERATION USING METHOD 21 C IN COMPLEX DOUBLE PRECISION C C (+/-)A(T & NT) * B (+/-)C = D C C MMA214 USES METHOD 21 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. UNPACK AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C LEAVING SPACE FOR A COLUMN OF "D" FOR EVERY COLUMN "B" READ. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C C MEMORY FOR EACH COLUMN OF "B" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) DOUBLE COMPLEX ZDC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C DO 60000 II = 1, NAC C C READ A COLUMN FROM THE "A" MATRIX C CALL MMARC4 ( ZI, ZD ) C C CHECK IF COLUMN FROM "A" IS NULL C IF ( ZI( 1 ) .EQ. 0 ) GO TO 60000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C COMLEX DOUBLE PRECISION 4000 CONTINUE DO 4500 I = 1, NCOLPP INDX = 1 IROWA1 = ZI ( INDX ) INDXB = IBX + 2*I + ( I-1 )*NWDDNBR IROWB1 = ZI( INDXB-2 ) IROWBN = ZI( INDXB-1 ) IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 4500 INDXB = ( ( INDXB+1 ) / 2 ) + 2*( II - IROWB1 ) IF ( ZD( INDXB ) .EQ. 0.0D0 .AND. ZD( INDXB+1 ) .EQ. 0.0D0 ) & GO TO 4500 INDXD = IDX4 + ( I-1 )*NDR 4100 CONTINUE IROWS = ZI( INDX+1 ) IROWAN = IROWA1 + IROWS - 1 INDXA = (INDX+3)/2 DO 4400 K = IROWA1, IROWAN ZDC( INDXD+K ) = ZDC( INDXD+K ) + & DCMPLX( ZD( INDXA ), ZD( INDXA+1 ) ) * & DCMPLX( ZD( INDXB ), ZD( INDXB+1 ) ) INDXA = INDXA + 2 4400 CONTINUE INDX = INDX + 2 + IROWS*NWDD IF ( INDX .GE. LASIND ) GO TO 4500 IROWA1 = ZI( INDX ) GO TO 4100 4500 CONTINUE GO TO 60000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C COMLEX DOUBLE PRECISION 40000 CONTINUE DO 45000 I = 1, NCOLPP INDXB = IBX + 2*I + ( I-1 )*NWDDNBR IROWB1 = ZI( INDXB-2 ) IF ( IROWB1 .EQ. 0 ) GO TO 45000 IROWBN = ZI( INDXB-1 ) INDX = 1 IROWA1 = ZI( INDX ) INDXD = IDX4 + ( I-1 )*NDR + II 41000 CONTINUE IROWS = ZI( INDX+1 ) IROWAN = IROWA1 + IROWS - 1 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 44100 INDXBV = ( ( ( INDXB+1 ) / 2 ) + 2*( IROW1 - IROWB1 ) ) - 1 INDXA = ( ( ( INDX+3 ) / 2 ) + 2*( IROW1 - IROWA1 ) ) - 1 KCNT = ( IROWN - IROW1 ) * 2 + 1 DO 44000 K = 1, KCNT, 2 ZDC( INDXD ) = ZDC( INDXD ) + & DCMPLX( ZD( INDXA +K ), ZD( INDXA +K+1 ) ) * & DCMPLX( ZD( INDXBV+K ), ZD( INDXBV+K+1 ) ) 44000 CONTINUE 44100 CONTINUE INDX = INDX + 2 + IROWS*NWDD IF ( INDX .GE. LASIND ) GO TO 45000 IROWA1 = ZI( INDX ) GO TO 41000 45000 CONTINUE C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX4 + ( K-1 ) * NDR CALL PACK ( ZDC( INDX+1 ), FILED, FILED ) 65000 CONTINUE RETURN END ================================================ FILE: mis/mma3.f ================================================ SUBROUTINE MMA3 ( ZI, ZR, ZD, ZC, ZDC ) C C MMA3 PERFORMS THE MATRIX OPERATION USING METHODS 30, 31 AND 32 C (+/-)A(T & NT) * B (+/-)C = D C C MMA3 IS DESIGNED AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. PACK (IN COMPACT FORM) AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C SEE SUBROUTINES MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. FOR METHODS 30 AND 31, CALL UNPACK TO READ MATRIX "C". C 5. FOR METHOD 30, CALL UNPACK TO READ COLUMNS OF MATRIX "B". C 6. FOR METHOD 31, CALL MMARC1,2,3,4 TO READ COLUMNS OF "B" INTO C MEMORY IN COMPACT FORM. C 7. FOR METHOD 32, CALL MMARC1,2,3,4 TO READ COLUMNS OF "B" AND C "C" INTO MEMORY IN COMPACT FORM. C 8. FOR METHODS 30 AND 31, CALL PACK TO WRITE "D" MATRIX. C 9. FOR METHOD 32, CALL BLDPK TO WRITE "D" MATRIX. C INTEGER ZI(2) ,MODULE(3),SYSBUF,SCRTCH INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED REAL ZR(2) DOUBLE PRECISION ZD(2) COMPLEX ZC(2) DOUBLE COMPLEX ZDC(2) COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME INCLUDE 'MMACOM.COM' COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (KSYSTM(58),KSYS58) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C DATA MODULE / 4HMMA3 , 4H ,4H / DATA KZERO / 1H0 / DATA KONE / 1H1 / DATA KTWO / 1H2 / DATA JBEGN / 4HBEGN/ , JEND / 3HEND / MODULE( 3 ) = JBEGN IF ( METHOD .EQ. 30 ) MODULE( 2 ) = KZERO IF ( METHOD .EQ. 31 ) MODULE( 2 ) = KONE IF ( METHOD .EQ. 32 ) MODULE( 2 ) = KTWO CALL CONMSG ( MODULE, 3, 0 ) INCRU = 1 TYPEI = NDTYPE TYPEP = NDTYPE NWDD = NWORDS( NDTYPE ) NWDB = NWORDS( NBTYPE ) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C IDX = 1 + NWDD*NBR IF ( METHOD .NE. 31 .AND. METHOD .NE. 32) GO TO 90 C C REDEFINE IDX AND INSURE A QUAD WORD BOUNDARY FOR COMPLEX DOUBLE C IDX = 1 + NWDD*NBR + NBR ITEST = MOD( IDX, 4 ) IF ( ITEST .EQ. 1 ) GO TO 90 IF ( ITEST .EQ. 0 ) IDX = IDX + 1 IF ( ITEST .EQ. 2 ) IDX = IDX + 3 IF ( ITEST .EQ. 3 ) IDX = IDX + 2 90 CONTINUE IDX2 = ( ( IDX+1 ) / 2 ) - 1 IDX4 = ( IDX+1 ) / 4 IAX = IDX + NWDD*NDR IF ( METHOD .NE. 32 ) GO TO 96 C C FOR METHOD 32, INSURE IAX IS ON QUAD WORD BOUNDARY FOR COMPLEX DOUBLE C IAX = IDX + NWDD*NDR + NDR ITEST = MOD( IAX, 4 ) IF ( ITEST .EQ. 1 ) GO TO 96 IF ( ITEST .EQ. 0 ) IAX = IAX + 1 IF ( ITEST .EQ. 2 ) IAX = IAX + 3 IF ( ITEST .EQ. 3 ) IAX = IAX + 2 96 CONTINUE IAX2 = ( ( IAX+1 ) / 2 ) IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF LASMEM = IBUF4 - 1 LASMEM = LASMEM - IAX IPROW1 = 1 IPROWN = NDR INCRP = 1 CALL GOPEN ( FILEA, ZR( IBUF1 ), RDREW ) CALL GOPEN ( FILEB, ZR( IBUF2 ), RDREW ) IPASS = 0 IRCOLN = 0 100 IPASS = IPASS + 1 IRCOL1 = IRCOLN + 1 IRCOLN = NAC IRFILE = FILEA( 1 ) SIGN = SIGNAB IF ( IPASS .NE. 1 ) & CALL DSSPOS ( IRFILE, IRPOS( 1 ), IRPOS( 2 ),IRPOS( 3 ) ) IF ( NDTYPE .EQ. 1 ) CALL MMARM1 ( ZI( IAX ), ZR( IAX ), 0 ) IF ( NDTYPE .EQ. 2 ) CALL MMARM2 ( ZI( IAX ), ZD( IAX2 ), 0 ) IF ( NDTYPE .EQ. 3 ) CALL MMARM3 ( ZI( IAX ), ZC( IAX2 ), 0 ) IF ( NDTYPE .EQ. 4 ) CALL MMARM4 ( ZI( IAX ), ZD( IAX2 ), 0 ) NCOLPP = IRCOLN - IRCOL1 + 1 IBROW = IRCOL1 - 1 IF ( IRCOLN .EQ. NAC ) GO TO 400 ITEST = MOD( IPASS, 2 ) IF ( ITEST .EQ. 0 ) GO TO 350 IFILE = SCRTCH OFILE = FILED( 1 ) GO TO 380 350 IFILE = FILED( 1 ) OFILE = SCRTCH 380 CONTINUE IF ( IPASS .EQ. 1 ) GO TO 300 CALL REWIND( FILEB ) CALL SKPREC( FILEB, 1 ) CALL GOPEN ( IFILE, ZR( IBUF3 ), RDREW ) CALL GOPEN ( OFILE, ZR( IBUF4 ), WRTREW) GO TO 490 C FIRST PASS, OPEN "C" FILE IF IT EXISTS 300 CONTINUE CALL GOPEN ( OFILE, ZR( IBUF4 ), WRTREW) 310 IFILE = FILEC( 1 ) IF ( SIGNC .EQ. 0 ) IFILE = 0 IF ( IFILE .EQ. 0 ) GO TO 490 CALL GOPEN ( IFILE, ZR( IBUF3 ), RDREW ) GO TO 490 C LAST PASS, CREATE OUTPUT FILE 400 CONTINUE IF ( IFILE .EQ. 0 ) IFILE = SCRTCH IF ( OFILE .EQ. FILED( 1 ) .AND. IPASS .NE. 1 ) & CALL FILSWI( IFILE, OFILE ) OFILE = FILED( 1 ) IFILE = SCRTCH CALL REWIND( FILEB ) CALL SKPREC( FILEB, 1 ) CALL GOPEN ( FILED, ZR( IBUF4 ), WRTREW) FILED( 2 ) = 0 FILED( 6 ) = 0 FILED( 7 ) = 0 IF ( IPASS .EQ. 1 ) GO TO 310 CALL GOPEN ( IFILE, ZR( IBUF3 ), RDREW ) 490 CONTINUE SIGN = 1 IF ( METHOD .EQ. 30 ) GO TO 950 IF ( METHOD .EQ. 31 ) GO TO 1000 IF ( METHOD .EQ. 32 ) GO TO 2000 C PROCESS ALL OF THE COLUMNS OF "B", ADD "C" DATA ON FIRST PASS 950 CONTINUE IF ( NDTYPE .EQ. 1 ) CALL MMA301( ZI, ZR ) IF ( NDTYPE .EQ. 2 ) CALL MMA302( ZI, ZD ) IF ( NDTYPE .EQ. 3 ) CALL MMA303( ZI, ZC ) IF ( NDTYPE .EQ. 4 ) CALL MMA304( ZI, ZD, ZDC ) GO TO 60000 1000 CONTINUE IF ( NDTYPE .EQ. 1 ) CALL MMA311( ZI, ZR ) IF ( NDTYPE .EQ. 2 ) CALL MMA312( ZI, ZD ) IF ( NDTYPE .EQ. 3 ) CALL MMA313( ZI, ZC ) IF ( NDTYPE .EQ. 4 ) CALL MMA314( ZI, ZD, ZDC ) GO TO 60000 2000 CONTINUE IF ( NDTYPE .EQ. 1 ) CALL MMA321( ZI, ZR ) IF ( NDTYPE .EQ. 2 ) CALL MMA322( ZI, ZD ) IF ( NDTYPE .EQ. 3 ) CALL MMA323( ZI, ZC ) IF ( NDTYPE .EQ. 4 ) CALL MMA324( ZI, ZD ) 60000 CONTINUE CALL CLOSE ( IFILE, CLSREW ) CALL CLOSE ( OFILE, CLSREW ) IF ( IRCOLN .LT. NAC ) GO TO 100 C C ALL COLUMNS OF A HAVE BEEN PROCESSED, MULTIPLICATION COMPLETE C CALL CLOSE ( FILEA, CLSREW ) CALL CLOSE ( FILEB, CLSREW ) MODULE( 3 ) = JEND CALL CONMSG ( MODULE, 3, 0 ) RETURN END ================================================ FILE: mis/mma301.f ================================================ SUBROUTINE MMA301 ( ZI, ZR ) C C MMA301 PERFORMS THE MATRIX OPERATION USING METHOD 30 AND C REAL SINGLE PRECISION C C (+/-)A(T & NT) * B (+/-)C = D C C MMA301 USES METHOD 30 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. CALL 'MMARM1' TO PACK AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED REAL ZR(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C PROCESS ALL OF THE COLUMNS OF "B"; ADD "C" DATA ON FIRST PASS DO 60000 II = 1, NBC IUROW1 = -1 TYPEU = NDTYPE CALL UNPACK ( *930, FILEB, ZR( 1 ) ) IROWB1 = IUROW1 IROWBN = IUROWN GO TO 940 930 IROWB1 = 0 IROWBN = 0 940 CONTINUE IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZR( IDX ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZR( IDX+J-1 ) = 0 970 CONTINUE 980 CONTINUE C C CHECK IF COLUMN OF "B" IS NULL C INDXA = IAX IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C SINGLE PRECISION 1000 CONTINUE DO 1500 I = 1, NCOLPP INDXAL = ZI( INDXA+1 ) + IAX - 1 ICOLA = IBROW+I IF ( ICOLA .LT. IROWB1 .OR. ICOLA .GT. IROWBN ) GO TO 1450 IBROWI = ICOLA - IROWB1 + 1 IF ( ZR( IBROWI ) .EQ. 0. ) GO TO 1450 IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXA = INDXA+2 1100 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 1450 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 INDXAV = INDXA + 2 - IROWA1 DO 1400 K = IROWA1, IROWAN C C D = C + A*B C ZR( IDX+K-1 ) = ZR( IDX+K-1 ) + ZR( INDXAV+K ) * ZR( IBROWI ) 1400 CONTINUE INDXA = INDXA + 2 + NTMS GO TO 1100 1450 INDXA = INDXAL 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C SINGLE PRECISION 10000 CONTINUE INDXB = 1 - IROWB1 IDXX = IDX + IBROW - 1 DO 15000 I = 1, NCOLPP ICOLA = IBROW + I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXAL = ZI( INDXA+1 ) + IAX - 1 INDXA = INDXA+2 11000 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 14500 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 14100 INDXAV = INDXA + 2 - IROWA1 C C D = C + A*B C DO 14000 K = IROW1, IROWN ZR( IDXX+I ) = ZR( IDXX+I ) + ZR( INDXAV+K ) * ZR( INDXB+K ) 14000 CONTINUE 14100 CONTINUE INDXA = INDXA + 2 + NTMS GO TO 11000 14500 INDXA = INDXAL 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZR( IDX ), OFILE, FILED ) 60000 CONTINUE GO TO 70000 70001 CONTINUE WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUMN FOUND :',I6 &,/,' IAX =',I7,' INDXA=',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma302.f ================================================ SUBROUTINE MMA302 ( ZI, ZD ) C C MMA302 PERFORMS THE MATRIX OPERATION USING METHOD 30 AND C REAL DOUBLE PRECISION C C (+/-)A(T & NT) * B (+/-)C = D C C MMA302 USES METHOD 30 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. CALL 'MMARM1' TO PACK AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) ,DTEMP INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C PROCESS ALL OF THE COLUMNS OF "B"; ADD "C" DATA ON FIRST PASS DO 60000 II = 1, NBC C PRINT *,' PROCESSING B MATRIX COLUMN II=',II IUROW1 = -1 TYPEU = NDTYPE CALL UNPACK ( *930, FILEB, ZD( 1 ) ) IROWB1 = IUROW1 IROWBN = IUROWN GO TO 940 930 IROWB1 = 0 IROWBN = 0 IF ( IFILE .NE. 0 ) GO TO 940 IPROWN = 1 CALL PACK ( 0.0D0, OFILE, FILED ) IPROWN = NDR GO TO 60000 940 CONTINUE IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZD( IDX2+1 ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZD( IDX2+J ) = 0 970 CONTINUE 980 CONTINUE C C CHECK IF COLUMN OF "B" IS NULL C INDXA = IAX IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C DOUBLE PRECISION 1000 CONTINUE DO 1500 I = 1, NCOLPP INDXAL = ZI( INDXA+1 ) + IAX - 1 ICOLA = IBROW+I IF ( ICOLA .LT. IROWB1 .OR. ICOLA .GT. IROWBN ) GO TO 1450 IBROWI = ICOLA - IROWB1 + 1 DTEMP = ZD( IBROWI ) IF ( DTEMP .EQ. 0.0D0 ) GO TO 1450 IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXA = INDXA+2 1100 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 1450 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 INDXAV = ( ( INDXA+3 ) / 2 ) - IROWA1 DO 1400 K = IROWA1, IROWAN C C D = C + A*B C C PRINT *,' K,D,A,B=',K,ZD(IDX2+K),ZD(INDXAV+K),ZD(IBROWI) ZD( IDX2+K ) = ZD( IDX2+K ) + ZD( INDXAV+K ) * DTEMP 1400 CONTINUE INDXA = INDXA + 2 + NTMS*2 GO TO 1100 1450 INDXA = INDXAL 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C DOUBLE PRECISION 10000 CONTINUE INDXB = 1 - IROWB1 IDXX = IDX2 + IBROW DO 15000 I = 1, NCOLPP ICOLA = IBROW + I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXAL = ZI( INDXA+1 ) + IAX - 1 INDXA = INDXA+2 11000 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 14500 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 14100 INDXAV = ( ( INDXA + 3 ) / 2 ) - IROWA1 C C D = C + A*B C DTEMP = 0.0 DO 14000 K = IROW1, IROWN DTEMP = DTEMP + ZD( INDXAV+K ) * ZD( INDXB+K ) 14000 CONTINUE ZD( IDXX+I ) = ZD( IDXX+I ) + DTEMP 14100 CONTINUE INDXA = INDXA + 2 + NTMS*2 GO TO 11000 14500 INDXA = INDXAL 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZD( IDX2+1 ), OFILE, FILED ) 60000 CONTINUE GO TO 70000 70001 CONTINUE WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUMN FOUND :',I6 &,/,' IAX =',I7,' INDXA=',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma303.f ================================================ SUBROUTINE MMA303 ( ZI, ZC ) C C MMA303 PERFORMS THE MATRIX OPERATION USING METHOD 30 AND C COMPLEX SINGLE PRECISION C C (+/-)A(T & NT) * B (+/-)C = D C C MMA303 USES METHOD 30 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. CALL 'MMARM1' TO PACK AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED COMPLEX ZC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C PROCESS ALL OF THE COLUMNS OF "B"; ADD "C" DATA ON FIRST PASS DO 60000 II = 1, NBC IUROW1 = -1 TYPEU = NDTYPE CALL UNPACK ( *930, FILEB, ZC( 1 ) ) IROWB1 = IUROW1 IROWBN = IUROWN GO TO 940 930 IROWB1 = 0 IROWBN = 0 940 CONTINUE IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZC( IDX2+1 ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZC( IDX2+J ) = (0.0,0.0) 970 CONTINUE 980 CONTINUE C C CHECK IF COLUMN OF "B" IS NULL C INDXA = IAX IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C COMPLEX SINGLE PRECISION 1000 CONTINUE DO 1500 I = 1, NCOLPP INDXAL = ZI( INDXA+1 ) + IAX - 1 ICOLA = IBROW+I IF ( ICOLA .LT. IROWB1 .OR. ICOLA .GT. IROWBN ) GO TO 1450 IBROWI = ICOLA - IROWB1 + 1 IF ( ZC( IBROWI ) .EQ. 0. ) GO TO 1450 IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXA = INDXA+2 1100 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 1450 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 INDXAV = ( ( INDXA+3 ) / 2 ) - IROWA1 DO 1400 K = IROWA1, IROWAN C C D = C + A*B C ZC( IDX2+K ) = ZC( IDX2+K ) + ZC( INDXAV+K ) * ZC( IBROWI ) 1400 CONTINUE INDXA = INDXA + 2 + NTMS*2 GO TO 1100 1450 INDXA = INDXAL 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C COMPLEX SINGLE PRECISION 10000 CONTINUE INDXB = 1 - IROWB1 IDXX = IDX2 + IBROW DO 15000 I = 1, NCOLPP ICOLA = IBROW + I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXAL = ZI( INDXA+1 ) + IAX - 1 INDXA = INDXA+2 11000 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 14500 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 14100 INDXAV = ( ( INDXA + 3 ) / 2 ) - IROWA1 C C D = C + A*B C DO 14000 K = IROW1, IROWN ZC( IDXX+I ) = ZC( IDXX+I ) + ZC( INDXAV+K ) * ZC( INDXB+K ) 14000 CONTINUE 14100 CONTINUE INDXA = INDXA + 2 + NTMS*2 GO TO 11000 14500 INDXA = INDXAL 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZC( IDX2+1 ), OFILE, FILED ) 60000 CONTINUE GO TO 70000 70001 CONTINUE WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUMN FOUND :',I6 &,/,' IAX =',I7,' INDXA=',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma304.f ================================================ SUBROUTINE MMA304 ( ZI, ZD, ZDC ) C C MMA304 PERFORMS THE MATRIX OPERATION USING METHOD 30 AND C COMPLEX DOUBLE PRECISION C C (+/-)A(T & NT) * B (+/-)C = D C C MMA304 USES METHOD 30 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. CALL 'MMARM1' TO PACK AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. USE UNPACK TO READ MATRICES "B" AND "C". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED DOUBLE COMPLEX ZDC(2) DOUBLE PRECISION ZD(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C PROCESS ALL OF THE COLUMNS OF "B"; ADD "C" DATA ON FIRST PASS DO 60000 II = 1, NBC IUROW1 = -1 TYPEU = NDTYPE CALL UNPACK ( *930, FILEB, ZDC( 1 ) ) IROWB1 = IUROW1 IROWBN = IUROWN GO TO 940 930 IROWB1 = 0 IROWBN = 0 940 CONTINUE IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZDC( IDX4+1 ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZDC( IDX4+J ) = (0.0,0.0) 970 CONTINUE 980 CONTINUE C C CHECK IF COLUMN OF "B" IS NULL C INDXA = IAX IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C COMPLEX DOUBLE PRECISION 1000 CONTINUE DO 1500 I = 1, NCOLPP INDXAL = ZI( INDXA+1 ) + IAX - 1 ICOLA = IBROW+I IF ( ICOLA .LT. IROWB1 .OR. ICOLA .GT. IROWBN ) GO TO 1450 IBROW2 = 2*( IBROW+I-IROWB1 ) + 1 IF ( ZD( IBROW2 ) .EQ. 0.D0 & .AND. ZD( IBROW2+1) .EQ. 0.D0 ) GO TO 1450 IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXA = INDXA+2 1100 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 1450 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 INDXAV = ( ( INDXA+3 ) / 2 ) - 2 DO 1400 K = IROWA1, IROWAN C C D = C + A*B C INDXAV = INDXAV + 2 ZDC( IDX4+K ) = ZDC( IDX4+K ) + & DCMPLX( ZD( INDXAV ), ZD(INDXAV+1) ) * & DCMPLX( ZD( IBROW2 ), ZD(IBROW2+1) ) 1400 CONTINUE INDXA = INDXA + 2 + NTMS*4 GO TO 1100 1450 INDXA = INDXAL 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C COMPLEX DOUBLE PRECISION 10000 CONTINUE INDXB = 1 - IROWB1 IDXX = IDX4 + IBROW DO 15000 I = 1, NCOLPP ICOLA = IBROW + I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXAL = ZI( INDXA+1 ) + IAX - 1 INDXA = INDXA+2 11000 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 14500 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 14100 INDXAV = ( ( INDXA + 3 ) / 2 ) + 2 * ( IROW1 - IROWA1 ) - 1 INDXB = 2*( IROW1 - IROWB1 ) C C D = C + A*B C KCNT = ( IROWN-IROW1 ) * 2 + 1 DO 14000 K = 1, KCNT, 2 ZDC( IDXX+I ) = ZDC( IDXX+I ) + & DCMPLX( ZD( INDXAV+K ), ZD( INDXAV+K+1 ) ) * & DCMPLX( ZD( INDXB +K ), ZD( INDXB +K+1 ) ) 14000 CONTINUE 14100 CONTINUE INDXA = INDXA + 2 + NTMS*4 GO TO 11000 14500 INDXA = INDXAL 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZDC( IDX4+1 ), OFILE, FILED ) 60000 CONTINUE GO TO 70000 70001 CONTINUE WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUMN FOUND :',I6 &,/,' IAX =',I7,' INDXA=',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma311.f ================================================ SUBROUTINE MMA311 ( ZI, ZR ) C C MMA311 PERFORMS THE MATRIX OPERATION IN REAL SINGLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA311 USES METHOD 31 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. CALL MMARM1 TO PACK AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. UNPACK COLUMNS OF "C" MATRIX BUT USE GETSTR (MMARC1,2,3,4) C TO READ COLUMNS OF "B". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED REAL ZR(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX IN COMPACT FORM C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C IRFILE = FILEB( 1 ) DO 60000 II = 1, NBC C PRINT *,' PROCESSING COLUMN=',II C C READ A COLUMN FROM THE "B" MATRIX C CALL MMARC1 ( ZI, ZR ) C C NOW READ "C", OR SCRATCH FILE WITH INTERMEDIATE RESULTS. C IF NO "C" FILE AND THIS IS THE FIRST PASS, INITIALIZE "D" COLUMN TO ZERO. C IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZR( IDX ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZR( IDX+J-1 ) = 0 970 CONTINUE 980 CONTINUE C C CHECK IF COLUMN OF "B" IS NULL C IROWB1 = ZI( 1 ) IROWS = ZI( 2 ) IROWBN = IROWB1 + IROWS - 1 INDXB = 1 INDXA = IAX C C CHECK FOR NULL COLUMN FROM "B" MATRIX C IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C SINGLE PRECISION 1000 CONTINUE DO 1500 I = 1, NCOLPP INDXAL = ZI( INDXA + 1 ) + IAX - 1 ICOLA = IBROW+I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXA = INDXA + 2 1100 CONTINUE IF ( ICOLA .LT. IROWB1 ) GO TO 1450 IF ( ICOLA .LE. IROWBN ) GO TO 1200 INDXB = INDXB + 2 + IROWS IF ( INDXB .GT. LASIND ) GO TO 50000 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 GO TO 1100 1200 CONTINUE INDXBV = ICOLA - IROWB1 + INDXB + 2 IF ( ZR( INDXBV ) .EQ. 0. ) GO TO 1450 1300 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 1450 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 INDXAV = INDXA + 2 - IROWA1 DO 1400 K = IROWA1, IROWAN ZR( IDX+K-1 ) = ZR( IDX+K-1 ) + ZR( INDXAV+K ) * ZR( INDXBV ) 1400 CONTINUE INDXA = INDXA + 2 + NTMS GO TO 1300 1450 INDXA = INDXAL 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE IDROW = IBROW IDXX = IDX + IDROW - 1 C SINGLE PRECISION 10000 CONTINUE DO 15000 I = 1, NCOLPP ICOLA = IBROW + I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXAL = ZI( INDXA+1 ) + IAX - 1 INDXA = INDXA + 2 INDXB = 1 11000 IF ( INDXB .GE. LASIND ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 INDXBV = INDXB + 2 - IROWB1 INDXB = INDXB + 2 + IROWS 12000 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 14500 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IF ( IROWBN .LT. IROWA1 ) GO TO 11000 IF ( IROWAN .LT. IROWB1 ) GO TO 14200 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) INDXAV = INDXA + 2 - IROWA1 DO 14000 K = IROW1, IROWN ZR( IDXX+I ) = ZR( IDXX+I ) + ZR( INDXAV+K ) * ZR( INDXBV+K ) 14000 CONTINUE IF ( IROWAN .GT. IROWBN ) GO TO 11000 14200 CONTINUE INDXA = INDXA + 2 + NTMS GO TO 12000 14500 INDXA = INDXAL 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZR( IDX ), OFILE, FILED ) 60000 CONTINUE GO TO 70000 70001 CONTINUE WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUND FOUND :',I6 &,/,' IAX =',I7,' INDXA=',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma312.f ================================================ SUBROUTINE MMA312 ( ZI, ZD ) C C MMA312 PERFORMS THE MATRIX OPERATION IN REAL DOUBLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA312 USES METHOD 31 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. CALL MMARM1 TO PACK AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. UNPACK COLUMNS OF "C" MATRIX BUT USE GETSTR (MMARC1,2,3,4) C TO READ COLUMNS OF "B". C C MEMORY FOR EACH COLUMN OF "A" IS AS FOLLOWS: C Z(1) = FIRST NON-ZERO ROW NUMBER FOR COLUMN C Z(2) = LAST NON-ZERO ROW NUMBER FOR COLUMN C Z(3-N) = VALUES OF NON-ZERO ROWS C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) ,DTEMP INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX IN COMPACT FORM C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C IRFILE = FILEB( 1 ) DO 60000 II = 1, NBC C PRINT *,' PROCESSING B MATRIX COLUMN, II=',II C C READ A COLUMN FROM THE "B" MATRIX C CALL MMARC2 ( ZI, ZD ) C C NOW READ "C", OR SCRATCH FILE WITH INTERMEDIATE RESULTS. C IF NO "C" FILE AND THIS IS THE FIRST PASS, INITIALIZE "D" COLUMN TO ZERO. C IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZD( IDX2+1 ) ) GO TO 980 950 CONTINUE IF ( ZI( 1 ) .NE. 0 ) GO TO 960 IPROWN = 1 CALL PACK ( 0.0D0, OFILE, FILED ) IPROWN = NDR GO TO 60000 960 CONTINUE DO 970 J = 1, NDR ZD( IDX2+J ) = 0 970 CONTINUE 980 CONTINUE C C CHECK IF COLUMN OF "B" IS NULL C IROWB1 = ZI( 1 ) IROWS = ZI( 2 ) IROWBN = IROWB1 + IROWS - 1 INDXB = 1 INDXA = IAX C C CHECK FOR NULL COLUMN FRO "B" MATRIX C IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C DOUBLE PRECISION 1000 CONTINUE DO 1500 I = 1, NCOLPP INDXAL = ZI( INDXA + 1 ) + IAX - 1 ICOLA = IBROW+I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXA = INDXA + 2 1100 CONTINUE IF ( ICOLA .LT. IROWB1 ) GO TO 1450 IF ( ICOLA .LE. IROWBN ) GO TO 1200 INDXB = INDXB + 2 + IROWS*NWDD IF ( INDXB .GT. LASIND ) GO TO 50000 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 GO TO 1100 1200 CONTINUE INDXBV = ICOLA - IROWB1 + ( INDXB + 3 ) / 2 DTEMP = ZD( INDXBV ) IF ( DTEMP .EQ. 0.0D0 ) GO TO 1450 1300 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 1450 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 INDXAV = ( (INDXA+3 ) / 2 ) - IROWA1 DO 1400 K = IROWA1, IROWAN ZD( IDX2+K ) = ZD( IDX2+K ) + ZD( INDXAV+K ) * DTEMP 1400 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD GO TO 1300 1450 INDXA = INDXAL 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE IDROW = IBROW IDXX = IDX2 + IDROW C DOUBLE PRECISION 10000 CONTINUE DO 15000 I = 1, NCOLPP ICOLA = IBROW + I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXAL = ZI( INDXA+1 ) + IAX - 1 INDXA = INDXA + 2 INDXB = 1 11000 IF ( INDXB .GE. LASIND ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 INDXBV = ( ( INDXB+3 ) / 2 ) - IROWB1 INDXB = INDXB + 2 + IROWS*NWDD 12000 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 14500 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IF ( IROWBN .LT. IROWA1 ) GO TO 11000 IF ( IROWAN .LT. IROWB1 ) GO TO 14200 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) INDXAV = ( (INDXA+3 ) / 2 ) - IROWA1 DTEMP = 0.0D0 DO 14000 K = IROW1, IROWN DTEMP = DTEMP + ZD( INDXAV+K ) * ZD( INDXBV+K ) 14000 CONTINUE ZD( IDXX+I ) = ZD( IDXX+I ) + DTEMP IF ( IROWAN .GT. IROWBN ) GO TO 11000 14200 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD GO TO 12000 14500 INDXA = INDXAL 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZD( IDX2+1 ), OFILE, FILED ) 60000 CONTINUE GO TO 70000 70001 CONTINUE WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUND FOUND :',I6 &,/,' IAX =',I7,' INDXA=',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma313.f ================================================ SUBROUTINE MMA313 ( ZI, ZC ) C C MMA313 PERFORMS THE MATRIX OPERATION IN COMPLEX SINGLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA313 USES METHOD 31 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. CALL MMARM1 TO PACK AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. UNPACK COLUMNS OF "C" MATRIX BUT USE GETSTR (MMARC1,2,3,4) C TO READ COLUMNS OF "B". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED COMPLEX ZC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX IN COMPACT FORM C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C IRFILE = FILEB( 1 ) DO 60000 II = 1, NBC C PRINT *,' PROCESSING COLUMN=',II C C READ A COLUMN FROM THE "B" MATRIX C CALL MMARC3 ( ZI, ZC ) C C NOW READ "C", OR SCRATCH FILE WITH INTERMEDIATE RESULTS. C IF NO "C" FILE AND THIS IS THE FIRST PASS, INITIALIZE "D" COLUMN TO ZERO. C IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZC( IDX2+1 ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZC( IDX2+J ) = (0.0,0.0) 970 CONTINUE 980 CONTINUE C C CHECK IF COLUMN OF "B" IS NULL C IROWB1 = ZI( 1 ) IROWS = ZI( 2 ) IROWBN = IROWB1 + IROWS - 1 INDXB = 1 INDXA = IAX C C CHECK FOR A NULL COLUMN READ FROM THE "B" MATRIX C IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C DOUBLE PRECISION 1000 CONTINUE DO 1500 I = 1, NCOLPP INDXAL = ZI( INDXA + 1 ) + IAX - 1 ICOLA = IBROW+I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXA = INDXA + 2 1100 CONTINUE IF ( ICOLA .LT. IROWB1 ) GO TO 1450 IF ( ICOLA .LE. IROWBN ) GO TO 1200 INDXB = INDXB + 2 + IROWS*NWDD IF ( INDXB .GT. LASIND ) GO TO 50000 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 GO TO 1100 1200 CONTINUE INDXBV = ICOLA - IROWB1 + ( INDXB + 3 ) / 2 IF ( ZC( INDXBV ) .EQ. 0. ) GO TO 1450 1300 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 1450 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 INDXAV = ( (INDXA+3 ) / 2 ) - IROWA1 DO 1400 K = IROWA1, IROWAN ZC( IDX2+K ) = ZC( IDX2+K ) + ZC( INDXAV+K ) * ZC( INDXBV ) 1400 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD GO TO 1300 1450 INDXA = INDXAL 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE IDROW = IBROW IDXX = IDX2 + IDROW C DOUBLE PRECISION 10000 CONTINUE DO 15000 I = 1, NCOLPP ICOLA = IBROW + I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXAL = ZI( INDXA+1 ) + IAX - 1 INDXA = INDXA + 2 INDXB = 1 11000 IF ( INDXB .GE. LASIND ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 INDXBV = ( ( INDXB+3 ) / 2 ) - IROWB1 INDXB = INDXB + 2 + IROWS*NWDD 12000 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 14500 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IF ( IROWBN .LT. IROWA1 ) GO TO 11000 IF ( IROWAN .LT. IROWB1 ) GO TO 14200 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) INDXAV = ( (INDXA+3 ) / 2 ) - IROWA1 DO 14000 K = IROW1, IROWN ZC( IDXX+I ) = ZC( IDXX+I ) + ZC( INDXAV+K ) * ZC( INDXBV+K ) 14000 CONTINUE IF ( IROWAN .GT. IROWBN ) GO TO 11000 14200 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD GO TO 12000 14500 INDXA = INDXAL 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZC( IDX2+1 ), OFILE, FILED ) 60000 CONTINUE GO TO 70000 70001 CONTINUE WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUND FOUND :',I6 &,/,' IAX =',I7,' INDXA=',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma314.f ================================================ SUBROUTINE MMA314 ( ZI, ZD, ZDC ) C C MMA314 PERFORMS THE MATRIX OPERATION IN COMPLEX DOUBLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA314 USES METHOD 31 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. CALL MMARM1 TO PACK AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. UNPACK COLUMNS OF "C" MATRIX BUT USE GETSTR (MMARC1,2,3,4) C TO READ COLUMNS OF "B". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) DOUBLE COMPLEX ZDC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX IN COMPACT FORM C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C IRFILE = FILEB( 1 ) DO 60000 II = 1, NBC C PRINT *,' PROCESSING COLUMN=',II C C READ A COLUMN FROM THE "B" MATRIX C CALL MMARC4 ( ZI, ZD ) C C NOW READ "C", OR SCRATCH FILE WITH INTERMEDIATE RESULTS. C IF NO "C" FILE AND THIS IS THE FIRST PASS, INITIALIZE "D" COLUMN TO ZERO. C IF ( IFILE .EQ. 0 ) GO TO 950 IUROW1 = 1 IUROWN = NDR TYPEU = NDTYPE IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC CALL UNPACK (*950, IFILE, ZDC( IDX4+1 ) ) GO TO 980 950 CONTINUE DO 970 J = 1, NDR ZDC( IDX4+J ) = 0 970 CONTINUE 980 CONTINUE C C CHECK IF COLUMN OF "B" IS NULL C IROWB1 = ZI( 1 ) IROWS = ZI( 2 ) IROWBN = IROWB1 + IROWS - 1 INDXB = 1 INDXA = IAX C C CHECK FOR NULL COLUMN FROM "B" MATRIX C IF ( IROWB1 .EQ. 0 ) GO TO 50000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A * B + C ) C C DOUBLE PRECISION 1000 CONTINUE DO 1500 I = 1, NCOLPP INDXAL = ZI( INDXA + 1 ) + IAX - 1 ICOLA = IBROW+I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXA = INDXA + 2 1100 CONTINUE IF ( ICOLA .LT. IROWB1 ) GO TO 1450 IF ( ICOLA .LE. IROWBN ) GO TO 1200 INDXB = INDXB + 2 + IROWS*NWDD IF ( INDXB .GT. LASIND ) GO TO 50000 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 GO TO 1100 1200 CONTINUE INDXBV = 2 * ( ICOLA - IROWB1 ) + ( INDXB + 3 ) / 2 IF ( ZD( INDXBV ) .EQ. 0. ) GO TO 1450 1300 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 1450 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 INDXAV = ( (INDXA+3 ) / 2 ) DO 1400 K = IROWA1, IROWAN ZDC( IDX4+K ) = ZDC( IDX4+K ) + & DCMPLX( ZD(INDXAV), ZD(INDXAV+1) ) * & DCMPLX( ZD(INDXBV), ZD(INDXBV+1) ) INDXAV = INDXAV + 2 1400 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD GO TO 1300 1450 INDXA = INDXAL 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE IDROW = IBROW IDXX = IDX4 + IDROW C DOUBLE PRECISION 10000 CONTINUE DO 15000 I = 1, NCOLPP ICOLA = IBROW + I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXAL = ZI( INDXA+1 ) + IAX - 1 INDXA = INDXA + 2 INDXB = 1 11000 IF ( INDXB .GE. LASIND ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 INDXBS = INDXB INDXB = INDXB + 2 + IROWS*NWDD 12000 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 14500 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IF ( IROWBN .LT. IROWA1 ) GO TO 11000 IF ( IROWAN .LT. IROWB1 ) GO TO 14200 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) INDXAV = ( ( INDXA +3 ) / 2 ) + 2*( IROW1 - IROWA1 ) - 1 INDXBV = ( ( INDXBS+3 ) / 2 ) + 2*( IROW1 - IROWB1 ) - 1 KCNT = ( IROWN - IROW1 ) * 2 + 1 DO 14000 K = 1, KCNT, 2 ZDC( IDXX+I ) = ZDC( IDXX+I ) + & DCMPLX( ZD( INDXAV+K ), ZD( INDXAV+K+1 ) ) * & DCMPLX( ZD( INDXBV+K ), ZD( INDXBV+K+1 ) ) 14000 CONTINUE IF ( IROWAN .GT. IROWBN ) GO TO 11000 14200 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD GO TO 12000 14500 INDXA = INDXAL 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN FOR THIS PASS 50000 CONTINUE C NOW SAVE COLUMN CALL PACK ( ZDC( IDX4+1 ), OFILE, FILED ) 60000 CONTINUE GO TO 70000 70001 CONTINUE WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUND FOUND :',I6 &,/,' IAX =',I7,' INDXA=',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma321.f ================================================ SUBROUTINE MMA321 ( ZI, ZR ) C C MMA321 PERFORMS THE MATRIX OPERATION IN REAL SINGLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA321 USES METHOD 32 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. CALL MMARM1 TO PACK AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. ADD EACH ROW TERM OF "C" TO "D" MATRIX COLUMN C 4. CALL MMARC1,2,3,4 TO READ COLUMNS OF "B" AND "C". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION DD(2) REAL ZR(2) ,DTEMP INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / ZBLPKX / D(4) ,KDROW COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE ( D(1) ,DD(1) ) EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX IN COMPACT FORM C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C FILED( 2 ) = 0 FILED( 6 ) = 0 FILED( 7 ) = 0 IDROW = IBROW DO 60000 II = 1, NBC CALL BLDPK ( NDTYPE, NDTYPE, OFILE, 0, 0 ) C PRINT *,' PROCESSING B MATRIX COLUMN, II=',II C C READ A COLUMN FROM THE "B" MATRIX C SIGN = 1 IRFILE = FILEB( 1 ) CALL MMARC1 ( ZI, ZR ) LASINDB = LASIND C C NOW READ "C", OR SCRATCH FILE WITH INTERMEDIATE RESULTS. C IF NO "C" FILE AND THIS IS THE FIRST PASS, INITIALIZE "D" COLUMN TO ZERO. C IF ( IFILE .EQ. 0 ) GO TO 950 IF ( IPASS .EQ. 1 ) SIGN = SIGNC IRFILE = IFILE C C READ A COLUMN FROM THE "C" MATRIX C CALL MMARC1 ( ZI( IDX ), ZR( IDX ) ) LASINDC = LASIND + IDX - 1 950 CONTINUE C C CHECK IF COLUMN OF "B" IS NULL C IF ( ZI( 1 ) .NE. 0 ) GO TO 1000 IF ( IFILE .NE. 0 ) GO TO 960 951 D(1) = 0.0 KDROW = 1 CALL ZBLPKI GO TO 55000 960 IF ( ZI( IDX ) .EQ. 0 ) GO TO 951 INDXC = IDX 961 IF ( INDXC .GE. LASINDC ) GO TO 55000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 INDXCV = INDXC+2 DO 970 I = IROWC1, IROWCN D( 1 ) = ZR( INDXCV ) KDROW = I CALL ZBLPKI INDXCV = INDXCV + 1 970 CONTINUE INDXC = INDXC + 2 + ICROWS*NWDD GO TO 961 1000 CONTINUE IROWB1 = ZI( 1 ) IROWS = ZI( 2 ) IROWBN = IROWB1 + IROWS - 1 INDXB = 1 INDXA = IAX INDXC = IDX IF ( IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) GO TO 9000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 1010 CONTINUE C C CHECK TO ADD TERMS FROM "C" OR INTERIM SCRATCH FILE BEFORE CURRENT ROW C IF ( IDROW .EQ. 0 .OR. IROWC1 .GT. IDROW ) GO TO 9000 4000 CONTINUE IROWN = IDROW IF ( IROWCN .LT. IDROW ) IROWN = IROWCN 5000 CONTINUE INDXCV = INDXC + 2 NROWS = IROWN - IROWC1 + 1 DO 6000 I = 1, NROWS KDROW = IROWC1 + I - 1 D( 1 ) = ZR( INDXCV ) INDXCV = INDXCV + 1 CALL ZBLPKI 6000 CONTINUE IF ( IROWCN .GE. IDROW ) GO TO 9000 INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 9000 IROWC1 = ZI ( INDXC ) ICROWS = ZI ( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 GO TO 4000 9000 CONTINUE C C CHECK FOR NULL COLUMN FROM "B" MATRIX C IF ( IROWB1 .EQ. 0 ) GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C C SINGLE PRECISION 10000 CONTINUE DO 15000 I = 1, NCOLPP D(1) = 0.0 KDROW = IDROW + I ICOLA = IBROW + I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXAL = ZI( INDXA+1 ) + IAX - 1 INDXA = INDXA + 2 INDXB = 1 11000 IF ( INDXB .GE. LASINDB ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 INDXBV = INDXB + 2 - IROWB1 INDXB = INDXB + 2 + IROWS*NWDD 12000 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 14500 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IF ( IROWBN .LT. IROWA1 ) GO TO 11000 IF ( IROWAN .LT. IROWB1 ) GO TO 14200 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) INDXAV = INDXA + 2 - IROWA1 DTEMP = 0.0 C PRINT *,' IROW1,N=',IROW1,IROWN DO 14000 K = IROW1, IROWN C PRINT *,' K,D,A,B=',K,DTEMP,ZR(INDXAV+K),ZR(INDXBV+K) DTEMP = DTEMP + ZR( INDXAV+K ) * ZR( INDXBV+K ) 14000 CONTINUE D( 1 ) = D(1) + DTEMP IF ( IROWAN .GT. IROWBN ) GO TO 11000 14200 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD GO TO 12000 14500 INDXA = INDXAL 14510 IF ( INDXC .GE. LASINDC .OR. IFILE .EQ. 0 ) GO TO 14600 IF ( KDROW .LT. IROWC1 ) GO TO 14600 IF ( KDROW .GT. IROWCN ) GO TO 14550 INDXCV = INDXC + 2 + KDROW - IROWC1 C PRINT *,' ADDING C,D,C=',D(1),ZR(INDXCV) D( 1 ) = D( 1 ) + ZR( INDXCV ) GO TO 14600 14550 INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 14600 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 GO TO 14510 14600 CONTINUE CALL ZBLPKI 15000 CONTINUE 50000 CONTINUE IF ( KDROW .EQ. NDR .OR. IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) & GO TO 55000 C C ADD REMAINING TERMS FROM EITHER THE "C" MATRIX OR INTERIM SCRATCH MATRIX C IROW1 = KDROW + 1 50100 CONTINUE INDXCV = INDXC + 2 IF ( IROW1 .LT. IROWC1 ) GO TO 51000 IF ( IROW1 .LE. IROWCN ) GO TO 50900 INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 55000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 GO TO 50100 50900 CONTINUE INDXCV = INDXC+2 + IROW1 - IROWC1 IROWC1 = IROW1 51000 CONTINUE NROWS = IROWCN - IROWC1 + 1 DO 51500 K = 1, NROWS KDROW = IROWC1 + K - 1 D( 1 ) = ZR( INDXCV ) INDXCV = INDXCV + 1 CALL ZBLPKI 51500 CONTINUE INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 55000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 INDXCV = INDXC+2 GO TO 51000 55000 CONTINUE CALL BLDPKN ( OFILE, 0, FILED ) C END OF PROCESSING THIS COLUMN FOR THIS PASS 60000 CONTINUE GO TO 70000 70001 CONTINUE WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUND FOUND :',I6 &,/,' IAX =',I7,' INDXA=',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma322.f ================================================ SUBROUTINE MMA322 ( ZI, ZD ) C C MMA322 PERFORMS THE MATRIX OPERATION IN REAL DOUBLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA322 USES METHOD 32 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. CALL MMARM1 TO PACK AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. ADD EACH ROW TERM OF "C" TO "D" MATRIX COLUMN C 4. CALL MMARC1,2,3,4 TO READ COLUMNS OF "B" AND "C". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) ,DTEMP ,DD(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / ZBLPKX / D(4) ,KDROW COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE ( D(1) ,DD(1) ) EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX IN COMPACT FORM C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C FILED( 2 ) = 0 FILED( 6 ) = 0 FILED( 7 ) = 0 IDROW = IBROW DO 60000 II = 1, NBC CALL BLDPK ( NDTYPE, NDTYPE, OFILE, 0, 0 ) C PRINT *,' PROCESSING B MATRIX COLUMN, II=',II C C READ A COLUMN FROM THE "B" MATRIX C SIGN = 1 IRFILE = FILEB( 1 ) CALL MMARC2 ( ZI, ZD ) LASINDB = LASIND C C NOW READ "C", OR SCRATCH FILE WITH INTERMEDIATE RESULTS. C IF NO "C" FILE AND THIS IS THE FIRST PASS, INITIALIZE "D" COLUMN TO ZERO. C IF ( IFILE .EQ. 0 ) GO TO 950 IF ( IPASS .EQ. 1 ) SIGN = SIGNC IRFILE = IFILE C C READ A COLUMN FROM THE "C" MATRIX C CALL MMARC2 ( ZI( IDX ), ZD( IDX2+1 ) ) LASINDC = LASIND + IDX - 1 950 CONTINUE C C CHECK IF COLUMN OF "B" IS NULL C IF ( ZI( 1 ) .NE. 0 ) GO TO 1000 IF ( IFILE .NE. 0 ) GO TO 960 951 DD(1) = 0.0D0 KDROW = 1 CALL ZBLPKI GO TO 55000 960 IF ( ZI( IDX ) .EQ. 0 ) GO TO 951 INDXC = IDX 961 IF ( INDXC .GE. LASINDC ) GO TO 55000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 INDXCV = ( INDXC+3 ) / 2 DO 970 I = IROWC1, IROWCN DD( 1 ) = ZD( INDXCV ) KDROW = I CALL ZBLPKI INDXCV = INDXCV + 1 970 CONTINUE INDXC = INDXC + 2 + ICROWS*NWDD GO TO 961 1000 CONTINUE IROWB1 = ZI( 1 ) IROWS = ZI( 2 ) IROWBN = IROWB1 + IROWS - 1 INDXB = 1 INDXA = IAX INDXC = IDX IF ( IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) GO TO 9000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 1010 CONTINUE C C CHECK TO ADD TERMS FROM "C" OR INTERIM SCRATCH FILE BEFORE CURRENT ROW C IF ( IDROW .EQ. 0 .OR. IROWC1 .GT. IDROW ) GO TO 9000 4000 CONTINUE IROWN = IDROW IF ( IROWCN .LT. IDROW ) IROWN = IROWCN 5000 CONTINUE INDXCV = ( INDXC+3 ) / 2 NROWS = IROWN - IROWC1 + 1 DO 6000 I = 1, NROWS KDROW = IROWC1 + I - 1 DD( 1 ) = ZD( INDXCV ) INDXCV = INDXCV + 1 CALL ZBLPKI 6000 CONTINUE IF ( IROWCN .GE. IDROW ) GO TO 9000 INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 9000 IROWC1 = ZI ( INDXC ) ICROWS = ZI ( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 GO TO 4000 9000 CONTINUE C C CHECK FOR NULL COLUMN FROM "B" MATRIX C IF ( IROWB1 .EQ. 0 ) GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C C DOUBLE PRECISION 10000 CONTINUE DO 15000 I = 1, NCOLPP DD(1) = 0.0D0 KDROW = IDROW + I ICOLA = IBROW + I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXAL = ZI( INDXA+1 ) + IAX - 1 INDXA = INDXA + 2 INDXB = 1 11000 IF ( INDXB .GE. LASINDB ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 INDXBV = ( ( INDXB+3 ) / 2 ) - IROWB1 INDXB = INDXB + 2 + IROWS*NWDD 12000 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 14500 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IF ( IROWBN .LT. IROWA1 ) GO TO 11000 IF ( IROWAN .LT. IROWB1 ) GO TO 14200 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) INDXAV = ( (INDXA+3 ) / 2 ) - IROWA1 DTEMP = 0.0D0 C PRINT *,' IROW1,N=',IROW1,IROWN DO 14000 K = IROW1, IROWN C PRINT *,' K,D,A,B=',K,DTEMP,ZD(INDXAV+K),ZD(INDXBV+K) DTEMP = DTEMP + ZD( INDXAV+K ) * ZD( INDXBV+K ) 14000 CONTINUE DD( 1 ) = DD(1) + DTEMP IF ( IROWAN .GT. IROWBN ) GO TO 11000 14200 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD GO TO 12000 14500 INDXA = INDXAL 14510 IF ( INDXC .GE. LASINDC .OR. IFILE .EQ. 0 ) GO TO 14600 IF ( KDROW .LT. IROWC1 ) GO TO 14600 IF ( KDROW .GT. IROWCN ) GO TO 14550 INDXCV = ( INDXC+3 ) / 2 + KDROW - IROWC1 C PRINT *,' ADDING C,DD,C=',DD(1),ZD(INDXCV) DD( 1 ) = DD( 1 ) + ZD( INDXCV ) GO TO 14600 14550 INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 14600 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 GO TO 14510 14600 CONTINUE CALL ZBLPKI 15000 CONTINUE 50000 CONTINUE IF ( KDROW .EQ. NDR .OR. IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) & GO TO 55000 C C ADD REMAINING TERMS FROM EITHER THE "C" MATRIX OR INTERIM SCRATCH MATRIX C IROW1 = KDROW + 1 50100 CONTINUE INDXCV = ( INDXC+3 ) / 2 IF ( IROW1 .LT. IROWC1 ) GO TO 51000 IF ( IROW1 .LE. IROWCN ) GO TO 50900 INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 55000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 GO TO 50100 50900 CONTINUE INDXCV = ( INDXC+3 ) / 2 + IROW1 - IROWC1 IROWC1 = IROW1 51000 CONTINUE NROWS = IROWCN - IROWC1 + 1 DO 51500 K = 1, NROWS KDROW = IROWC1 + K - 1 DD( 1 ) = ZD( INDXCV ) INDXCV = INDXCV + 1 CALL ZBLPKI 51500 CONTINUE INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 55000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 INDXCV = ( INDXC+3 ) / 2 GO TO 51000 55000 CONTINUE CALL BLDPKN ( OFILE, 0, FILED ) C END OF PROCESSING THIS COLUMN FOR THIS PASS 60000 CONTINUE GO TO 70000 70001 CONTINUE WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUND FOUND :',I6 &,/,' IAX =',I7,' INDXA=',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma323.f ================================================ SUBROUTINE MMA323 ( ZI, ZC ) C C MMA323 PERFORMS THE MATRIX OPERATION IN COMPLEX SINGLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA323 USES METHOD 32 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. CALL MMARM1 TO PACK AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. ADD EACH ROW TERM OF "C" TO "D" MATRIX COLUMN C 4. CALL MMARC1,2,3,4 TO READ COLUMNS OF "B" AND "C". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED COMPLEX ZC(2) ,CTEMP ,CS(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / ZBLPKX / D(4) ,KDROW COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE ( D(1) ,CS(1) ) EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX IN COMPACT FORM C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C FILED( 2 ) = 0 FILED( 6 ) = 0 FILED( 7 ) = 0 IDROW = IBROW DO 60000 II = 1, NBC CALL BLDPK ( NDTYPE, NDTYPE, OFILE, 0, 0 ) C PRINT *,' PROCESSING B MATRIX COLUMN, II=',II C C READ A COLUMN FROM THE "B" MATRIX C SIGN = 1 IRFILE = FILEB( 1 ) CALL MMARC3 ( ZI, ZC ) LASINDB = LASIND C C NOW READ "C", OR SCRATCH FILE WITH INTERMEDIATE RESULTS. C IF NO "C" FILE AND THIS IS THE FIRST PASS, INITIALIZE "D" COLUMN TO ZERO. C IF ( IFILE .EQ. 0 ) GO TO 950 IF ( IPASS .EQ. 1 ) SIGN = SIGNC IRFILE = IFILE C C READ A COLUMN FROM THE "C" MATRIX C CALL MMARC3 ( ZI( IDX ), ZC( IDX2+1 ) ) LASINDC = LASIND + IDX - 1 950 CONTINUE C C CHECK IF COLUMN OF "B" IS NULL C IF ( ZI( 1 ) .NE. 0 ) GO TO 1000 IF ( IFILE .NE. 0 ) GO TO 960 951 CS(1) = ( 0.0, 0.0) KDROW = 1 CALL ZBLPKI GO TO 55000 960 IF ( ZI( IDX ) .EQ. 0 ) GO TO 951 INDXC = IDX 961 IF ( INDXC .GE. LASINDC ) GO TO 55000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 INDXCV = ( INDXC+3 ) / 2 DO 970 I = IROWC1, IROWCN CS( 1 ) = ZC( INDXCV ) C PRINT *,' A970,ZC=',ZC(INDXCV) KDROW = I CALL ZBLPKI INDXCV = INDXCV + 1 970 CONTINUE INDXC = INDXC + 2 + ICROWS*NWDD GO TO 961 1000 CONTINUE IROWB1 = ZI( 1 ) IROWS = ZI( 2 ) IROWBN = IROWB1 + IROWS - 1 INDXB = 1 INDXA = IAX INDXC = IDX IF ( IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) GO TO 9000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 1010 CONTINUE C C CHECK TO ADD TERMS FROM "C" OR INTERIM SCRATCH FILE BEFORE CURRENT ROW C IF ( IDROW .EQ. 0 .OR. IROWC1 .GT. IDROW ) GO TO 9000 4000 CONTINUE IROWN = IDROW IF ( IROWCN .LT. IDROW ) IROWN = IROWCN 5000 CONTINUE INDXCV = ( INDXC+3 ) / 2 NROWS = IROWN - IROWC1 + 1 DO 6000 I = 1, NROWS KDROW = IROWC1 + I - 1 CS( 1 ) = ZC( INDXCV ) C PRINT *,' AT 6000,ZC=',ZC(INDXCV) INDXCV = INDXCV + 1 CALL ZBLPKI 6000 CONTINUE IF ( IROWCN .GE. IDROW ) GO TO 9000 INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 9000 IROWC1 = ZI ( INDXC ) ICROWS = ZI ( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 GO TO 4000 9000 CONTINUE C C CHECK FOR NULL COLUMN FROM "B" MATRIX C IF ( IROWB1 .EQ. 0 ) GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C C COMPLEX SINGLE PRECISION 10000 CONTINUE DO 15000 I = 1, NCOLPP CS(1) = ( 0.0, 0.0 ) KDROW = IDROW + I ICOLA = IBROW + I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXAL = ZI( INDXA+1 ) + IAX - 1 INDXA = INDXA + 2 INDXB = 1 11000 IF ( INDXB .GE. LASINDB ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 INDXBV = ( ( INDXB+3 ) / 2 ) - IROWB1 INDXB = INDXB + 2 + IROWS*NWDD 12000 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 14500 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IF ( IROWBN .LT. IROWA1 ) GO TO 11000 IF ( IROWAN .LT. IROWB1 ) GO TO 14200 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) INDXAV = ( (INDXA+3 ) / 2 ) - IROWA1 CTEMP = ( 0.0, 0.0) C PRINT *,' IROW1,N=',IROW1,IROWN DO 14000 K = IROW1, IROWN C PRINT *,' K,D,A,B=',K,CTEMP,ZC(INDXAV+K),ZC(INDXBV+K) CTEMP = CTEMP + ZC( INDXAV+K ) * ZC( INDXBV+K ) 14000 CONTINUE CS( 1 ) = CS(1) + CTEMP IF ( IROWAN .GT. IROWBN ) GO TO 11000 14200 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD GO TO 12000 14500 INDXA = INDXAL 14510 IF ( INDXC .GE. LASINDC .OR. IFILE .EQ. 0 ) GO TO 14600 IF ( KDROW .LT. IROWC1 ) GO TO 14600 IF ( KDROW .GT. IROWCN ) GO TO 14550 INDXCV = ( INDXC+3 ) / 2 + KDROW - IROWC1 C PRINT *,' ADDING C,DD,C=',CS(1),ZC(INDXCV) CS( 1 ) = CS( 1 ) + ZC( INDXCV ) C PRINT *,' AT 14510,ZC=',ZC(INDXCV) GO TO 14600 14550 INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 14600 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 GO TO 14510 14600 CONTINUE CALL ZBLPKI 15000 CONTINUE 50000 CONTINUE IF ( KDROW .EQ. NDR .OR. IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) & GO TO 55000 C C ADD REMAINING TERMS FROM EITHER THE "C" MATRIX OR INTERIM SCRATCH MATRIX C IROW1 = KDROW + 1 50100 CONTINUE INDXCV = ( INDXC+3 ) / 2 IF ( IROW1 .LT. IROWC1 ) GO TO 51000 IF ( IROW1 .LE. IROWCN ) GO TO 50900 INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 55000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 GO TO 50100 50900 CONTINUE INDXCV = ( INDXC+3 ) / 2 + IROW1 - IROWC1 IROWC1 = IROW1 51000 CONTINUE NROWS = IROWCN - IROWC1 + 1 DO 51500 K = 1, NROWS KDROW = IROWC1 + K - 1 CS( 1 ) = ZC( INDXCV ) C PRINT *,' AT 51500,ZC=',ZC(INDXCV) INDXCV = INDXCV + 1 CALL ZBLPKI 51500 CONTINUE INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 55000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 INDXCV = ( INDXC+3 ) / 2 GO TO 51000 55000 CONTINUE CALL BLDPKN ( OFILE, 0, FILED ) C END OF PROCESSING THIS COLUMN FOR THIS PASS 60000 CONTINUE GO TO 70000 70001 CONTINUE WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUND FOUND :',I6 &,/,' IAX =',I7,' INDXA=',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma324.f ================================================ SUBROUTINE MMA324 ( ZI, ZD ) C C MMA324 PERFORMS THE MATRIX OPERATION IN COMPLEX DOUBLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA324 USES METHOD 32 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. CALL MMARM1 TO PACK AS MANY COLUMNS OF "A" INTO MEMORY C AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF "B" AND "D". C 3. ADD EACH ROW TERM OF "C" TO "D" MATRIX COLUMN C 4. CALL MMARC1,2,3,4 TO READ COLUMNS OF "B" AND "C". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) DOUBLE COMPLEX CDTEMP ,CD INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / ZBLPKX / D(4) ,KDROW COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE ( D(1) ,CD ) EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "B" MATRIX IN COMPACT FORM C Z( IDX ) = ARRAY FOR ONE COLUMN OF "D" MATRIX C Z( IAX ) = ARRAY FOR MULTIPLE COLUMNS OF "A" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C FILED( 2 ) = 0 FILED( 6 ) = 0 FILED( 7 ) = 0 IDROW = IBROW DO 60000 II = 1, NBC CALL BLDPK ( NDTYPE, NDTYPE, OFILE, 0, 0 ) C PRINT *,' PROCESSING B MATRIX COLUMN, II=',II C C READ A COLUMN FROM THE "B" MATRIX C SIGN = 1 IRFILE = FILEB( 1 ) CALL MMARC4 ( ZI, ZD ) LASINDB = LASIND C C NOW READ "C", OR SCRATCH FILE WITH INTERMEDIATE RESULTS. C IF NO "C" FILE AND THIS IS THE FIRST PASS, INITIALIZE "D" COLUMN TO ZERO. C IF ( IFILE .EQ. 0 ) GO TO 950 IF ( IPASS .EQ. 1 ) SIGN = SIGNC IRFILE = IFILE C C READ A COLUMN FROM THE "C" MATRIX C CALL MMARC4 ( ZI( IDX ), ZD( IDX2+1 ) ) LASINDC = LASIND + IDX - 1 950 CONTINUE C C CHECK IF COLUMN OF "B" IS NULL C IF ( ZI( 1 ) .NE. 0 ) GO TO 1000 IF ( IFILE .NE. 0 ) GO TO 960 951 CD = ( 0.0D0, 0.0D0) KDROW = 1 CALL ZBLPKI GO TO 55000 960 IF ( ZI( IDX ) .EQ. 0 ) GO TO 951 INDXC = IDX 961 IF ( INDXC .GE. LASINDC ) GO TO 55000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 INDXCV = ( INDXC+3 ) / 2 DO 970 I = IROWC1, IROWCN CD = DCMPLX( ZD( INDXCV ), ZD( INDXCV+1 ) ) KDROW = I CALL ZBLPKI INDXCV = INDXCV + 2 970 CONTINUE INDXC = INDXC + 2 + ICROWS*NWDD GO TO 961 1000 CONTINUE IROWB1 = ZI( 1 ) IROWS = ZI( 2 ) IROWBN = IROWB1 + IROWS - 1 INDXB = 1 INDXA = IAX INDXC = IDX IF ( IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) GO TO 9000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 1010 CONTINUE C C CHECK TO ADD TERMS FROM "C" OR INTERIM SCRATCH FILE BEFORE CURRENT ROW C IF ( IDROW .EQ. 0 .OR. IROWC1 .GT. IDROW ) GO TO 9000 4000 CONTINUE IROWN = IDROW IF ( IROWCN .LT. IDROW ) IROWN = IROWCN 5000 CONTINUE INDXCV = ( INDXC+3 ) / 2 NROWS = IROWN - IROWC1 + 1 DO 6000 I = 1, NROWS KDROW = IROWC1 + I - 1 CD = DCMPLX( ZD( INDXCV ), ZD( INDXCV+1 ) ) INDXCV = INDXCV + 2 CALL ZBLPKI 6000 CONTINUE IF ( IROWCN .GE. IDROW ) GO TO 9000 INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 9000 IROWC1 = ZI ( INDXC ) ICROWS = ZI ( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 GO TO 4000 9000 CONTINUE C C CHECK FOR NULL COLUMN FROM "B" MATRIX C IF ( IROWB1 .EQ. 0 ) GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C C COMPLEX DOUBLE PRECISION 10000 CONTINUE DO 15000 I = 1, NCOLPP CD = ( 0.0D0, 0.0D0 ) KDROW = IDROW + I ICOLA = IBROW + I IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001 INDXAL = ZI( INDXA+1 ) + IAX - 1 INDXA = INDXA + 2 INDXB = 1 11000 IF ( INDXB .GE. LASINDB ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 INDXBS = INDXB INDXB = INDXB + 2 + IROWS*NWDD 12000 CONTINUE IF ( INDXA .GE. INDXAL ) GO TO 14500 IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IF ( IROWBN .LT. IROWA1 ) GO TO 11000 IF ( IROWAN .LT. IROWB1 ) GO TO 14200 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) INDXAV = ( ( INDXA +3 ) / 2 ) + 2*( IROW1 - IROWA1 ) - 1 INDXBV = ( ( INDXBS+3 ) / 2 ) + 2*( IROW1 - IROWB1 ) - 1 CDTEMP = ( 0.0D0, 0.0D0) KCNT = ( IROWN - IROW1 ) * 2 + 1 DO 14000 K = 1, KCNT, 2 CDTEMP = CDTEMP + & DCMPLX( ZD( INDXAV+K), ZD( INDXAV+K+1 ) ) * & DCMPLX( ZD( INDXBV+K), ZD( INDXBV+K+1 ) ) 14000 CONTINUE CD = CD + CDTEMP IF ( IROWAN .GT. IROWBN ) GO TO 11000 14200 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD GO TO 12000 14500 INDXA = INDXAL 14510 IF ( INDXC .GE. LASINDC .OR. IFILE .EQ. 0 ) GO TO 14600 IF ( KDROW .LT. IROWC1 ) GO TO 14600 IF ( KDROW .GT. IROWCN ) GO TO 14550 INDXCV = ( INDXC+3 ) / 2 + 2*( KDROW - IROWC1 ) CD = CD + DCMPLX( ZD( INDXCV ), ZD( INDXCV+1 ) ) GO TO 14600 14550 INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 14600 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 GO TO 14510 14600 CONTINUE CALL ZBLPKI 15000 CONTINUE 50000 CONTINUE IF ( KDROW .EQ. NDR .OR. IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) & GO TO 55000 C C ADD REMAINING TERMS FROM EITHER THE "C" MATRIX OR INTERIM SCRATCH MATRIX C IROW1 = KDROW + 1 50100 CONTINUE INDXCV = ( INDXC+3 ) / 2 IF ( IROW1 .LT. IROWC1 ) GO TO 51000 IF ( IROW1 .LE. IROWCN ) GO TO 50900 INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 55000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 GO TO 50100 50900 CONTINUE INDXCV = ( INDXC+3 ) / 2 + 2*( IROW1 - IROWC1 ) IROWC1 = IROW1 51000 CONTINUE NROWS = IROWCN - IROWC1 + 1 DO 51500 K = 1, NROWS KDROW = IROWC1 + K - 1 CD = DCMPLX( ZD( INDXCV ), ZD( INDXCV+1 ) ) INDXCV = INDXCV + 2 CALL ZBLPKI 51500 CONTINUE INDXC = INDXC + 2 + ICROWS*NWDD IF ( INDXC .GE. LASINDC ) GO TO 55000 IROWC1 = ZI( INDXC ) ICROWS = ZI( INDXC+1 ) IROWCN = IROWC1 + ICROWS - 1 INDXCV = ( INDXC+3 ) / 2 GO TO 51000 55000 CONTINUE CALL BLDPKN ( OFILE, 0, FILED ) C END OF PROCESSING THIS COLUMN FOR THIS PASS 60000 CONTINUE GO TO 70000 70001 CONTINUE WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUND FOUND :',I6 &,/,' IAX =',I7,' INDXA=',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma4.f ================================================ SUBROUTINE MMA4 ( ZI, ZR, ZD, ZC, ZDC ) C C MMA4 PERFORMS THE MATRIX OPERATION USING METHODS 40 AND 41 C (+/-)A(T & NT) * B (+/-)C = D C C MMA4 IS DESIGNED AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. PACK (IN COMPACT FORM) AS MANY COLUMNS OF THE "B" MATRIX INTO C MEMORY AS POSSIBLE LEAVING SPACE FOR A FULL COLUMN OF THE C "D" MATRIX FOR EACH COLUMN OF THE "B" MATRIX READ. C SEE SUBROUTINES MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. CALL UNPACK TO READ MATRIX "C". C 5. FOR METHOD 40, CALL UNPACK TO READ COLUMNS OF MATRIX "A". C 6. FOR METHOD 41, CALL MMARC1,2,3,4 TO READ COLUMNS OF "A" INTO C MEMORY IN COMPACT FORM. C INTEGER ZI(2) ,MODULE(3),SYSBUF,SCRTCH INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER OFILE ,FILEA ,FILEB ,FILEC , FILED REAL ZR(2) DOUBLE PRECISION ZD(2) COMPLEX ZC(2) DOUBLE COMPLEX ZDC(2) COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME INCLUDE 'MMACOM.COM' COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) EQUIVALENCE (KSYSTM(58),KSYS58) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C DATA MODULE / 4HMMA4 , 4H ,4H / DATA KZERO / 1H0 / DATA KONE / 1H1 / DATA JBEGN / 4HBEGN/ , JEND / 3HEND / MODULE( 3 ) = JBEGN IF ( NASTOR .EQ. 1 ) MODULE( 2 ) = KZERO IF ( NASTOR .EQ. 2 ) MODULE( 2 ) = KONE CALL CONMSG ( MODULE, 3, 0 ) INCRU = 1 TYPEI = NDTYPE TYPEP = NDTYPE NWDD = NWORDS( NDTYPE ) NWDB = NWORDS( NBTYPE ) C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C IBX = 1 + NWDD*NAR IF ( NASTOR .EQ. 2 .OR. KSYS58 .EQ. 41 ) IBX = 1 + NWDD*NAR + NAR IF ( MOD ( IBX , 2 ) .EQ. 0 ) IBX = IBX + 1 IBX2 = ( ( IBX+1 ) / 2 ) IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF LASMEMS= IBUF4 - 1 C C INSURE THAT LASMEM IS ON A QUAD WORD BOUNDARY TO ALLOW FOR COMPLEX C DOUBLE DATA TO BE REFERENCED FOR "D" MATRIX COLUMNS C ITEST = MOD( LASMEMS, 4 ) IF ( ITEST .EQ. 1 ) GO TO 90 IF ( ITEST .EQ. 0 ) LASMEMS = LASMEMS - 3 IF ( ITEST .EQ. 2 ) LASMEMS = LASMEMS - 5 IF ( ITEST .EQ. 3 ) LASMEMS = LASMEMS - 6 90 CONTINUE IPROW1 = 1 IPROWN = NDR INCRP = 1 CALL GOPEN ( FILEA, ZR( IBUF1 ), RDREW ) CALL GOPEN ( FILEB, ZR( IBUF2 ), RDREW ) IF ( FILEC( 1 ) .NE. 0 .AND. SIGNC .NE. 0 ) &CALL GOPEN ( FILEC, ZR( IBUF3 ), RDREW ) IPASS = 0 IRCOLN = 0 NWDDNDR= NWDD*NDR CALL GOPEN ( FILED, ZR( IBUF4 ), WRTREW) FILED( 2 ) = 0 FILED( 6 ) = 0 FILED( 7 ) = 0 100 IPASS = IPASS + 1 IRCOL1 = IRCOLN + 1 IRCOLN = NBC IRFILE = FILEB( 1 ) SIGN = SIGNAB LASMEM = LASMEMS - IBX IF ( IPASS .NE. 1 ) & CALL DSSPOS ( IRFILE, IRPOS( 1 ), IRPOS( 2 ),IRPOS( 3 ) ) IF ( NDTYPE .EQ. 1 ) CALL MMARM1 ( ZI( IBX ), ZR( IBX ), NWDDNDR) IF ( NDTYPE .EQ. 2 ) CALL MMARM2 ( ZI( IBX ), ZD( IBX2 ), NWDDNDR) IF ( NDTYPE .EQ. 3 ) CALL MMARM3 ( ZI( IBX ), ZC( IBX2 ), NWDDNDR) IF ( NDTYPE .EQ. 4 ) CALL MMARM4 ( ZI( IBX ), ZD( IBX2 ), NWDDNDR) NCOLPP = IRCOLN - IRCOL1 + 1 IBROW = IRCOL1 - 1 IDX = LASMEM + IBX IDX2 = ( ( IDX+1 ) / 2 ) - 1 IDX4 = ( IDX+1 ) / 4 IF ( IPASS .EQ. 1 ) GO TO 300 CALL REWIND( FILEA ) CALL SKPREC( FILEA, 1 ) 300 CONTINUE C C NOW READ INTO MEMORY THE "C" FILE. C READ AS MANY COLUMNS OF THIS AS WERE READ OF THE "B" MATRIX C IF ( FILEC( 1 ) .EQ. 0 .OR. SIGNC .EQ. 0 ) GO TO 800 INDXD = IDX TYPEU = NDTYPE * SIGNC IUROW1 = 1 IUROWN = NCR DO 700 I = 1, NCOLPP CALL UNPACK( * 650, FILEC, ZR( INDXD ) ) GO TO 680 C C NULL COLUMN READ ON "C" C 650 CONTINUE LEN = INDXD + NWDDNDR - 1 DO 620 K = INDXD, LEN ZR( K ) = 0.0 620 CONTINUE 680 CONTINUE INDXD = INDXD + NWDDNDR 700 CONTINUE GO TO 900 C C "C" MATRIX IS NULL OR "SIGNC" IS ZERO C 800 CONTINUE LEN = IDX + NCOLPP*NWDDNDR - 1 DO 850 K = IDX, LEN ZR( K ) = 0.0 850 CONTINUE 900 CONTINUE C C PROCESS ALL OF THE COLUMNS OF "A" MATRIX C SIGN = 1 IF ( KSYS58 .EQ. 40 ) GO TO 950 IF ( KSYS58 .EQ. 41 ) GO TO 1000 IF ( NASTOR .EQ. 2 ) GO TO 1000 C PROCESS ALL OF THE COLUMNS OF "B", ADD "C" DATA ON FIRST PASS 950 CONTINUE IF ( NDTYPE .EQ. 1 ) CALL MMA401( ZI, ZR ) IF ( NDTYPE .EQ. 2 ) CALL MMA402( ZI, ZD ) IF ( NDTYPE .EQ. 3 ) CALL MMA403( ZI, ZC ) IF ( NDTYPE .EQ. 4 ) CALL MMA404( ZI, ZD, ZDC ) GO TO 60000 1000 CONTINUE IF ( NDTYPE .EQ. 1 ) CALL MMA411( ZI, ZR ) IF ( NDTYPE .EQ. 2 ) CALL MMA412( ZI, ZD ) IF ( NDTYPE .EQ. 3 ) CALL MMA413( ZI, ZC ) IF ( NDTYPE .EQ. 4 ) CALL MMA414( ZI, ZD, ZDC ) 60000 CONTINUE IF ( IRCOLN .LT. NBC ) GO TO 100 C C ALL COLUMNS OF A HAVE BEEN PROCESSED, MULTIPLICATION COMPLETE C CALL CLOSE ( FILEA, CLSREW ) CALL CLOSE ( FILEB, CLSREW ) CALL CLOSE ( FILEC, CLSREW ) CALL CLOSE ( FILED, CLSREW ) MODULE( 3 ) = JEND CALL CONMSG ( MODULE, 3, 0 ) RETURN END ================================================ FILE: mis/mma401.f ================================================ SUBROUTINE MMA401 ( ZI, ZR ) C C MMA401 PERFORMS THE MATRIX OPERATION USING METHOD 40 C IN REAL SINGLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA401 USES METHOD 40 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. READ AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL C COLUMN OF "D" FOR EVERY COLUMN "B" READ. SEE SUBROUTINES C MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. CALL UNPACK TO READ MATRICES "A" AND "C". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED REAL ZR(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C (STORED IN COMPACT FORM) C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C (FULL COLUMN SPACE ALLOCATION) C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C DO 60000 II = 1, NAC C print *,' processing column of a, ii=',ii IUROW1 = -1 TYPEU = NDTYPE CALL UNPACK ( *50000, FILEA, ZR( 1 ) ) IROWA1 = IUROW1 IROWAN = IUROWN INDXA = 1 - IROWA1 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C SINGLE PRECISION 1000 CONTINUE INDXB = IBX DO 1500 I = 1, NCOLPP ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXD = ( IDX + ( I-1 )*NDR ) - 1 1100 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 1450 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 IF ( II .GT. IROWBN ) GO TO 1410 IF ( II .LT. IROWB1 ) GO TO 1450 INDXBV = INDXB + 2 + II - IROWB1 IF ( ZR( INDXBV ) .EQ. 0.0 ) GO TO 1450 DO 1400 K = IROWA1, IROWAN ZR( INDXD+K ) = ZR( INDXD+K ) + ZR( INDXA+K ) * ZR( INDXBV ) 1400 CONTINUE GO TO 1450 1410 CONTINUE INDXB = INDXB + 2 + IROWS GO TO 1100 1450 INDXB = INDXBL 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C SINGLE PRECISION 10000 CONTINUE INDXB = IBX DO 15000 I = 1, NCOLPP ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXD = ( IDX + ( I-1 )*NDR ) + II - 1 11000 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 14100 INDXBV = INDXB + 2 - IROWB1 DO 14000 K = IROW1, IROWN ZR( INDXD ) = ZR( INDXD ) + ZR( INDXA+K ) * ZR( INDXBV+K ) 14000 CONTINUE 14100 CONTINUE INDXB = INDXB + 2 + IROWS GO TO 11000 14500 CONTINUE INDXB = INDXBL 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 50000 CONTINUE 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX + ( K-1 ) * NDR CALL PACK ( ZR( INDX ), FILED, FILED ) 65000 CONTINUE GO TO 70000 70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUMN FOUND :',I6 &,/,' IBX =',I7,' INDXB =',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma402.f ================================================ SUBROUTINE MMA402 ( ZI, ZD ) C C MMA402 PERFORMS THE MATRIX OPERATION USING METHOD 40 C IN REAL DOUBLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA402 USES METHOD 40 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. READ AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL C COLUMN OF "D" FOR EVERY COLUMN "B" READ. SEE SUBROUTINES C MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. CALL UNPACK TO READ MATRICES "A" AND "C". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C (STORED IN COMPACT FORM) C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C (FULL COLUMN SPACE ALLOCATION) C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C DO 60000 II = 1, NAC C print *,' processing column of a, ii=',ii IUROW1 = -1 TYPEU = NDTYPE CALL UNPACK ( *50000, FILEA, ZD( 1 ) ) IROWA1 = IUROW1 IROWAN = IUROWN INDXA = 1 - IROWA1 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C DOUBLE PRECISION 1000 CONTINUE INDXB = IBX DO 1500 I = 1, NCOLPP ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXDV = IDX2 + ( I-1 )*NDR 1100 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 1450 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 IF ( II .GT. IROWBN ) GO TO 1410 IF ( II .LT. IROWB1 ) GO TO 1450 INDXBV = ( ( INDXB + 3 ) / 2 ) + II - IROWB1 IF ( ZD( INDXBV ) .EQ. 0.0D0 ) GO TO 1450 DO 1400 K = IROWA1, IROWAN ZD( INDXDV+K ) = ZD( INDXDV+K ) + ZD( INDXA+K ) * ZD( INDXBV ) 1400 CONTINUE GO TO 1450 1410 CONTINUE INDXB = INDXB + 2 + IROWS*NWDD GO TO 1100 1450 INDXB = INDXBL 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C DOUBLE PRECISION 10000 CONTINUE INDXB = IBX DO 15000 I = 1, NCOLPP ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXDV = IDX2 + ( I-1 )*NDR + II 11000 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 14100 INDXBV = ( (INDXB + 3) / 2 ) - IROWB1 DO 14000 K = IROW1, IROWN ZD( INDXDV ) = ZD( INDXDV ) + ZD( INDXA+K ) * ZD( INDXBV+K ) 14000 CONTINUE 14100 CONTINUE INDXB = INDXB + 2 + IROWS*NWDD GO TO 11000 14500 CONTINUE INDXB = INDXBL 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 50000 CONTINUE 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX2 + ( K-1 ) * NDR + 1 CALL PACK ( ZD( INDX ), FILED, FILED ) 65000 CONTINUE GO TO 70000 70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUMN FOUND :',I6 &,/,' IBX =',I7,' INDXB =',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma403.f ================================================ SUBROUTINE MMA403 ( ZI, ZC ) C C MMA403 PERFORMS THE MATRIX OPERATION USING METHOD 40 C IN COMPLEX SINGLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA403 USES METHOD 40 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. READ AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL C COLUMN OF "D" FOR EVERY COLUMN "B" READ. SEE SUBROUTINES C MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. CALL UNPACK TO READ MATRICES "A" AND "C". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED COMPLEX ZC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C (STORED IN COMPACT FORM) C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C (FULL COLUMN SPACE ALLOCATION) C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C DO 60000 II = 1, NAC C print *,' processing column of a, ii=',ii IUROW1 = -1 TYPEU = NDTYPE CALL UNPACK ( *50000, FILEA, ZC( 1 ) ) IROWA1 = IUROW1 IROWAN = IUROWN INDXA = 1 - IROWA1 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C DOUBLE PRECISION 1000 CONTINUE INDXB = IBX DO 1500 I = 1, NCOLPP ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXDV = IDX2 + ( I-1 )*NDR 1100 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 1450 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 IF ( II .GT. IROWBN ) GO TO 1410 IF ( II .LT. IROWB1 ) GO TO 1450 INDXBV = ( ( INDXB + 3 ) / 2 ) + II - IROWB1 IF ( ZC( INDXBV ) .EQ. 0.0D0 ) GO TO 1450 DO 1400 K = IROWA1, IROWAN ZC( INDXDV+K ) = ZC( INDXDV+K ) + ZC( INDXA+K ) * ZC( INDXBV ) 1400 CONTINUE GO TO 1450 1410 CONTINUE INDXB = INDXB + 2 + IROWS*NWDD GO TO 1100 1450 INDXB = INDXBL 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C DOUBLE PRECISION 10000 CONTINUE INDXB = IBX DO 15000 I = 1, NCOLPP ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXDV = IDX2 + ( I-1 )*NDR + II 11000 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 14100 INDXBV = ( (INDXB + 3) / 2 ) - IROWB1 DO 14000 K = IROW1, IROWN ZC( INDXDV ) = ZC( INDXDV ) + ZC( INDXA+K ) * ZC( INDXBV+K ) 14000 CONTINUE 14100 CONTINUE INDXB = INDXB + 2 + IROWS*NWDD GO TO 11000 14500 CONTINUE INDXB = INDXBL 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 50000 CONTINUE 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX2 + ( K-1 ) * NDR + 1 CALL PACK ( ZC( INDX ), FILED, FILED ) 65000 CONTINUE GO TO 70000 70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUMN FOUND :',I6 &,/,' IBX =',I7,' INDXB =',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma404.f ================================================ SUBROUTINE MMA404 ( ZI, ZD, ZDC ) C C MMA404 PERFORMS THE MATRIX OPERATION USING METHOD 40 C IN COMPLEX DOUBLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA404 USES METHOD 40 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. READ AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL C COLUMN OF "D" FOR EVERY COLUMN "B" READ. SEE SUBROUTINES C MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. CALL UNPACK TO READ MATRICES "A" AND "C". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED DOUBLE COMPLEX ZDC(2) DOUBLE PRECISION ZD(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C (STORED IN COMPACT FORM) C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C (FULL COLUMN SPACE ALLOCATION) C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C DO 60000 II = 1, NAC C print *,' processing column of a, ii=',ii IUROW1 = -1 TYPEU = NDTYPE CALL UNPACK ( *50000, FILEA, ZDC( 1 ) ) IROWA1 = IUROW1 IROWAN = IUROWN INDXA = 1 - IROWA1 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C DOUBLE PRECISION C 1000 CONTINUE INDXB = IBX DO 1500 I = 1, NCOLPP ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXDV = IDX4 + ( I-1 )*NDR 1100 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 1450 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 IF ( II .GT. IROWBN ) GO TO 1410 IF ( II .LT. IROWB1 ) GO TO 1450 INDXBV = ( ( INDXB + 3 ) / 2 ) + 2*( II - IROWB1 ) IF ( ZD( INDXBV ) .EQ. 0.0D0 .AND. & ZD( INDXBV+1 ) .EQ. 0.0D0 ) GO TO 1450 DO 1400 K = IROWA1, IROWAN ZDC( INDXDV+K ) = ZDC( INDXDV+K ) + ZDC( INDXA+K ) * & DCMPLX( ZD( INDXBV ), ZD( INDXBV+1 ) ) 1400 CONTINUE GO TO 1450 1410 CONTINUE INDXB = INDXB + 2 + IROWS*NWDD GO TO 1100 1450 INDXB = INDXBL 1500 CONTINUE GO TO 50000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C DOUBLE PRECISION 10000 CONTINUE INDXB = IBX DO 15000 I = 1, NCOLPP ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXDV = IDX4 + ( I-1 )*NDR + II 11000 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 14100 INDXBV = ( (INDXB + 3) / 2 ) + 2*(IROW1-IROWB1) DO 14000 K = IROW1, IROWN ZDC( INDXDV ) = ZDC( INDXDV ) + ZDC( INDXA+K ) * & DCMPLX( ZD( INDXBV ), ZD( INDXBV+1 ) ) INDXBV = INDXBV + 2 14000 CONTINUE 14100 CONTINUE INDXB = INDXB + 2 + IROWS*NWDD GO TO 11000 14500 CONTINUE INDXB = INDXBL 15000 CONTINUE GO TO 50000 C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 50000 CONTINUE 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX4 + ( K-1 ) * NDR + 1 CALL PACK ( ZDC( INDX ), FILED, FILED ) 65000 CONTINUE GO TO 70000 70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUMN FOUND :',I6 &,/,' IBX =',I7,' INDXB =',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma411.f ================================================ SUBROUTINE MMA411 ( ZI, ZR ) C C MMA411 PERFORMS THE MATRIX OPERATION USING METHOD 41 C IN REAL SINGLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA411 USES METHOD 41 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. READ AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL C COLUMN OF "D" FOR EVERY COLUMN "B" READ. SEE SUBROUTINES C MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. CALL UNPACK TO READ MATRICES "C". C 5. CALL MMARC1,2,3,4 TO READ COLUMNS OF MATRIX "A". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED REAL ZR(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C (STORED IN COMPACT FORM) C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C (FULL COLUMN SPACE ALLOCATION) C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C IRFILE = FILEA( 1 ) SIGN = 1 DO 60000 II = 1, NAC C print *,' processing column of a, ii=',ii C C READ A COLUMN FROM THE "A" MATRIX C CALL MMARC1 ( ZI, ZR ) C C CHECK FOR NULL COLUMN FROM THE "A" MATRIX C IF ( ZI ( 1 ) .EQ. 0 ) GO TO 60000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C SINGLE PRECISION 1000 CONTINUE INDXB = IBX DO 1500 I = 1, NCOLPP ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXD = ( IDX + ( I-1 )*NDR ) - 1 1100 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 1450 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 IF ( II .GT. IROWBN ) GO TO 1410 IF ( II .LT. IROWB1 ) GO TO 1450 INDXBV = INDXB + 2 + II - IROWB1 IF ( ZR( INDXBV ) .EQ. 0.0 ) GO TO 1450 INDXA = 1 1200 CONTINUE IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 INDXAV = INDXA + 2 - IROWA1 DO 1400 K = IROWA1, IROWAN ZR( INDXD+K ) = ZR( INDXD+K ) + ZR( INDXAV+K ) * ZR( INDXBV ) 1400 CONTINUE INDXA = INDXA + 2 + NTMS IF ( INDXA .LT. LASIND ) GO TO 1200 GO TO 1450 1410 CONTINUE INDXB = INDXB + 2 + IROWS GO TO 1100 1450 INDXB = INDXBL 1500 CONTINUE GO TO 60000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C SINGLE PRECISION 10000 CONTINUE INDXB = IBX DO 15000 I = 1, NCOLPP INDXA = 1 ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXD = ( IDX + ( I-1 )*NDR ) + II - 1 11000 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 INDXBV = INDXB + 2 - IROWB1 INDXB = INDXB + 2 + IROWS 12000 CONTINUE IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IF ( IROWBN .LT. IROWA1 ) GO TO 11000 IF ( IROWAN .LT. IROWB1 ) GO TO 14200 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 11000 INDXAV = INDXA + 2 - IROWA1 DO 14000 K = IROW1, IROWN ZR( INDXD ) = ZR( INDXD ) + ZR( INDXAV+K ) * ZR( INDXBV+K ) 14000 CONTINUE IF ( IROWAN .GT. IROWBN ) GO TO 11000 14200 CONTINUE INDXA = INDXA + 2 + NTMS IF ( INDXA .GE. LASIND ) GO TO 14500 GO TO 12000 14500 CONTINUE INDXB = INDXBL 15000 CONTINUE C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX + ( K-1 ) * NDR CALL PACK ( ZR( INDX ), FILED, FILED ) 65000 CONTINUE GO TO 70000 70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUMN FOUND :',I6 &,/,' IBX =',I7,' INDXB =',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma412.f ================================================ SUBROUTINE MMA412 ( ZI, ZD ) C C MMA412 PERFORMS THE MATRIX OPERATION USING METHOD 41 C IN REAL DOUBLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA412 USES METHOD 41 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. READ AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL C COLUMN OF "D" FOR EVERY COLUMN "B" READ. SEE SUBROUTINES C MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. CALL UNPACK TO READ MATRICES "C". C 5. CALL MMARC1,2,3,4 TO READ COLUMNS OF MATRIX "A". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED DOUBLE PRECISION ZD(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C (STORED IN COMPACT FORM) C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C (FULL COLUMN SPACE ALLOCATION) C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C IRFILE = FILEA( 1 ) SIGN = 1 DO 60000 II = 1, NAC C C READ A COLUMN FROM THE "A" MATRIX C CALL MMARC2 ( ZI, ZD ) C C CHECK FOR NULL COLUMN FROM "A" MATRIX C IF ( ZI( 1 ) .EQ. 0 ) GO TO 60000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C READ DOUBLE PRECISION 1000 CONTINUE INDXB = IBX DO 1500 I = 1, NCOLPP ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXD = ( IDX2 + ( I-1 )*NDR ) 1100 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 1450 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 IF ( II .GT. IROWBN ) GO TO 1410 IF ( II .LT. IROWB1 ) GO TO 1450 INDXBV = ( ( INDXB + 3 ) / 2 ) + II - IROWB1 IF ( ZD( INDXBV ) .EQ. 0.0 ) GO TO 1450 INDXA = 1 1200 CONTINUE IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 INDXAV = ( ( INDXA + 3 ) / 2 ) - IROWA1 DO 1400 K = IROWA1, IROWAN ZD( INDXD+K ) = ZD( INDXD+K ) + ZD( INDXAV+K ) * ZD( INDXBV ) 1400 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD IF ( INDXA .LT. LASIND ) GO TO 1200 GO TO 1450 1410 CONTINUE INDXB = INDXB + 2 + IROWS*NWDD GO TO 1100 1450 INDXB = INDXBL 1500 CONTINUE GO TO 60000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C READ DOUBLE PRECISION 10000 CONTINUE INDXB = IBX DO 15000 I = 1, NCOLPP INDXA = 1 ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXD = ( IDX2 + ( I-1 )*NDR ) + II 11000 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 INDXBV = ( ( INDXB + 3 ) / 2 ) - IROWB1 INDXB = INDXB + 2 + IROWS*NWDD 12000 CONTINUE IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IF ( IROWBN .LT. IROWA1 ) GO TO 11000 IF ( IROWAN .LT. IROWB1 ) GO TO 14200 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 11000 INDXAV = ( ( INDXA + 3 ) / 2 ) - IROWA1 DO 14000 K = IROW1, IROWN ZD( INDXD ) = ZD( INDXD ) + ZD( INDXAV+K ) * ZD( INDXBV+K ) 14000 CONTINUE IF ( IROWAN .GT. IROWBN ) GO TO 11000 14200 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD IF ( INDXA .GE. LASIND ) GO TO 14500 GO TO 12000 14500 CONTINUE INDXB = INDXBL 15000 CONTINUE C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX2 + ( K-1 ) * NDR + 1 CALL PACK ( ZD( INDX ), FILED, FILED ) 65000 CONTINUE GO TO 70000 70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUMN FOUND :',I6 &,/,' IBX =',I7,' INDXB =',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma413.f ================================================ SUBROUTINE MMA413 ( ZI, ZC ) C C MMA413 PERFORMS THE MATRIX OPERATION USING METHOD 41 C IN COMPLEX SINGLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA413 USES METHOD 41 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. READ AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL C COLUMN OF "D" FOR EVERY COLUMN "B" READ. SEE SUBROUTINES C MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. CALL UNPACK TO READ MATRICES "C". C 5. CALL MMARC1,2,3,4 TO READ COLUMNS OF MATRIX "A". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED COMPLEX ZC(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C (STORED IN COMPACT FORM) C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C (FULL COLUMN SPACE ALLOCATION) C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C IRFILE = FILEA( 1 ) SIGN = 1 DO 60000 II = 1, NAC C C READ A COLUMN FROM THE "A" MATRIX C CALL MMARC3 ( ZI, ZC ) C C CHECK FOR NULL COLUMN FROM THE "A" MATRIX C IF ( ZI ( 1 ) .EQ. 0 ) GO TO 60000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C COMPLEX SINGLE PRECISION 1000 CONTINUE INDXB = IBX DO 1500 I = 1, NCOLPP ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXD = ( IDX2 + ( I-1 )*NDR ) 1100 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 1450 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 IF ( II .GT. IROWBN ) GO TO 1410 IF ( II .LT. IROWB1 ) GO TO 1450 INDXBV = ( ( INDXB + 3 ) / 2 ) + II - IROWB1 IF ( ZC( INDXBV ) .EQ. 0.0 ) GO TO 1450 INDXA = 1 1200 CONTINUE IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 INDXAV = ( ( INDXA + 3 ) / 2 ) - IROWA1 DO 1400 K = IROWA1, IROWAN ZC( INDXD+K ) = ZC( INDXD+K ) + ZC( INDXAV+K ) * ZC( INDXBV ) 1400 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD IF ( INDXA .LT. LASIND ) GO TO 1200 GO TO 1450 1410 CONTINUE INDXB = INDXB + 2 + IROWS*NWDD GO TO 1100 1450 INDXB = INDXBL 1500 CONTINUE GO TO 60000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C COMPLEX SINGLE PRECISION 10000 CONTINUE INDXB = IBX DO 15000 I = 1, NCOLPP INDXA = 1 ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXD = ( IDX2 + ( I-1 )*NDR ) + II 11000 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 INDXBV = ( ( INDXB + 3 ) / 2 ) - IROWB1 INDXB = INDXB + 2 + IROWS*NWDD 12000 CONTINUE IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IF ( IROWBN .LT. IROWA1 ) GO TO 11000 IF ( IROWAN .LT. IROWB1 ) GO TO 14200 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 11000 INDXAV = ( ( INDXA + 3 ) / 2 ) - IROWA1 DO 14000 K = IROW1, IROWN ZC( INDXD ) = ZC( INDXD ) + ZC( INDXAV+K ) * ZC( INDXBV+K ) 14000 CONTINUE IF ( IROWAN .GT. IROWBN ) GO TO 11000 14200 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD IF ( INDXA .GE. LASIND ) GO TO 14500 GO TO 12000 14500 CONTINUE INDXB = INDXBL 15000 CONTINUE C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX2 + ( K-1 ) * NDR + 1 CALL PACK ( ZC( INDX ), FILED, FILED ) 65000 CONTINUE GO TO 70000 70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUMN FOUND :',I6 &,/,' IBX =',I7,' INDXB =',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mma414.f ================================================ SUBROUTINE MMA414 ( ZI, ZD, ZDC ) C C MMA414 PERFORMS THE MATRIX OPERATION USING METHOD 41 C IN COMPLEX DOUBLE PRECISION C (+/-)A(T & NT) * B (+/-)C = D C C MMA414 USES METHOD 41 WHICH IS AS FOLLOWS: C 1. THIS IS FOR "A" NON-TRANSPOSED AND TRANSPOSED C 2. READ AS MANY COLUMNS OF "B" INTO MEMORY AS POSSIBLE C INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL C COLUMN OF "D" FOR EVERY COLUMN "B" READ. SEE SUBROUTINES C MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM. C 3. INITIALIZE EACH COLUMN OF "D" WITH THE DATA FROM "C". C 4. CALL UNPACK TO READ MATRICES "C". C 5. CALL MMARC1,2,3,4 TO READ COLUMNS OF MATRIX "A". C INTEGER ZI(2) ,T INTEGER TYPEI ,TYPEP ,TYPEU ,SIGNAB, SIGNC INTEGER RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS INTEGER FILEA ,FILEB ,FILEC , FILED DOUBLE COMPLEX ZDC(2) DOUBLE PRECISION ZD(2) INCLUDE 'MMACOM.COM' COMMON / NAMES / RD ,RDREW ,WRT ,WRTREW, CLSREW,CLS COMMON / TYPE / IPRC(2) ,NWORDS(4),IRC(4) COMMON / MPYADX / FILEA(7) ,FILEB(7) ,FILEC(7) 1, FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 2, SCRTCH ,TIME COMMON / SYSTEM / KSYSTM(152) COMMON / UNPAKX / TYPEU ,IUROW1 ,IUROWN, INCRU COMMON / PACKX / TYPEI ,TYPEP ,IPROW1, IPROWN , INCRP EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),IWR ) EQUIVALENCE (FILEA(2) ,NAC ) , (FILEA(3) ,NAR ) 1, (FILEA(4) ,NAFORM) , (FILEA(5) ,NATYPE) 2, (FILEA(6) ,NANZWD) , (FILEA(7) ,NADENS) EQUIVALENCE (FILEB(2) ,NBC ) , (FILEB(3) ,NBR ) 1, (FILEB(4) ,NBFORM) , (FILEB(5) ,NBTYPE) 2, (FILEB(6) ,NBNZWD) , (FILEB(7) ,NBDENS) EQUIVALENCE (FILEC(2) ,NCC ) , (FILEC(3) ,NCR ) 1, (FILEC(4) ,NCFORM) , (FILEC(5) ,NCTYPE) 2, (FILEC(6) ,NCNZWD) , (FILEC(7) ,NCDENS) EQUIVALENCE (FILED(2) ,NDC ) , (FILED(3) ,NDR ) 1, (FILED(4) ,NDFORM) , (FILED(5) ,NDTYPE) 2, (FILED(6) ,NDNZWD) , (FILED(7) ,NDDENS) C C C OPEN CORE ALLOCATION AS FOLLOWS: C Z( 1 ) = ARRAY FOR ONE COLUMN OF "A" MATRIX C Z( IBX ) = ARRAY FOR MULTIPLE COLUMNS OF "B" MATRIX C (STORED IN COMPACT FORM) C Z( IDX ) = ARRAY FOR MULTIPLE COLUMNS OF "D" MATRIX C (FULL COLUMN SPACE ALLOCATION) C THROUGH C Z( LASMEM ) C Z( IBUF4 ) = BUFFER FOR "D" FILE C Z( IBUF3 ) = BUFFER FOR "C" FILE C Z( IBUF2 ) = BUFFER FOR "B" FILE C Z( IBUF1 ) = BUFFER FOR "A" FILE C Z( NZ ) = END OF OPEN CORE THAT IS AVAILABLE C C C PROCESS ALL OF THE COLUMNS OF "A" C IRFILE = FILEA( 1 ) SIGN = 1 DO 60000 II = 1, NAC C C READ A COLUMN FROM THE "A" MATRIX C CALL MMARC4 ( ZI, ZD ) C C CHECK IF COLUMN FROM "A" MATRIX IS NULL C IF ( ZI ( 1 ) .EQ. 0 ) GO TO 60000 IF ( T .NE. 0 ) GO TO 5000 C C "A" NON-TRANSPOSE CASE ( A*B + C ) C C COMPLEX DOUBLE PRECISION 1000 CONTINUE INDXB = IBX DO 1500 I = 1, NCOLPP ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXD = ( IDX4 + ( I-1 )*NDR ) 1100 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 1450 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 IF ( II .GT. IROWBN ) GO TO 1410 IF ( II .LT. IROWB1 ) GO TO 1450 INDXBV = ( ( INDXB + 3 ) / 2 ) + 2*( II - IROWB1 ) IF ( ZD( INDXBV ) .EQ. 0.0D0 .AND. & ZD( INDXBV+1 ) .EQ. 0.0D0 ) GO TO 1450 INDXA = 1 1200 CONTINUE IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 INDXAV = ( ( INDXA + 3 ) / 2 ) DO 1400 K = IROWA1, IROWAN ZDC( INDXD+K ) = ZDC( INDXD+K ) + & DCMPLX( ZD( INDXAV ), ZD( INDXAV+1 ) ) * & DCMPLX( ZD( INDXBV ), ZD( INDXBV+1 ) ) INDXAV = INDXAV + 2 1400 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD IF ( INDXA .LT. LASIND ) GO TO 1200 GO TO 1450 1410 CONTINUE INDXB = INDXB + 2 + IROWS*NWDD GO TO 1100 1450 INDXB = INDXBL 1500 CONTINUE GO TO 60000 C C TRANSPOSE CASE ( A(T) * B + C ) C 5000 CONTINUE C COMPLEX DOUBLE PRECISION 10000 CONTINUE INDXB = IBX DO 15000 I = 1, NCOLPP INDXA = 1 ICOLB = IBROW + I IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001 INDXBL = ZI( INDXB+1 ) + IBX - 1 INDXB = INDXB + 2 INDXD = ( IDX4 + ( I-1 )*NDR ) + II 11000 CONTINUE IF ( INDXB .GE. INDXBL ) GO TO 14500 IROWB1 = ZI( INDXB ) IROWS = ZI( INDXB+1 ) IROWBN = IROWB1 + IROWS - 1 INDXBS = INDXB INDXB = INDXB + 2 + IROWS*NWDD 12000 CONTINUE IROWA1 = ZI( INDXA ) NTMS = ZI( INDXA+1 ) IROWAN = IROWA1 + NTMS - 1 IF ( IROWBN .LT. IROWA1 ) GO TO 11000 IF ( IROWAN .LT. IROWB1 ) GO TO 14200 IROW1 = MAX0( IROWA1, IROWB1 ) IROWN = MIN0( IROWAN, IROWBN ) IF ( IROWN .LT. IROW1 ) GO TO 11000 INDXBV = ( ( INDXBS+ 3 ) / 2 ) + 2*( IROW1 - IROWB1 ) - 1 INDXAV = ( ( INDXA + 3 ) / 2 ) + 2*( IROW1 - IROWA1 ) - 1 ICNT = 2*( IROWN - IROW1 ) + 1 DO 14000 K = 1, ICNT, 2 ZDC( INDXD ) = ZDC( INDXD ) + & DCMPLX( ZD( INDXAV+K ), ZD( INDXAV+K+1 ) ) * & DCMPLX( ZD( INDXBV+K ), ZD( INDXBV+K+1 ) ) 14000 CONTINUE IF ( IROWAN .GT. IROWBN ) GO TO 11000 14200 CONTINUE INDXA = INDXA + 2 + NTMS*NWDD IF ( INDXA .GE. LASIND ) GO TO 14500 GO TO 12000 14500 CONTINUE INDXB = INDXBL 15000 CONTINUE C END OF PROCESSING THIS COLUMN OF "A" FOR THIS PASS 60000 CONTINUE C NOW SAVE COLUMNS COMPLETED DO 65000 K = 1, NCOLPP INDX = IDX4 + ( K-1 ) * NDR + 1 CALL PACK ( ZDC( INDX ), FILED, FILED ) 65000 CONTINUE GO TO 70000 70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB 90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B' &,/,' COLUMN EXPECTED:',I6 &,/,' COLUMN FOUND :',I6 &,/,' IBX =',I7,' INDXB =',I7 ) CALL MESAGE ( -61, 0, 0 ) 70000 RETURN END ================================================ FILE: mis/mmarc1.f ================================================ SUBROUTINE MMARC1 ( ZI, ZR ) C MMARC1 - This routine will store a matrix column in memory in compact C form and in real single precision. The input matrix is C assumed to be stored as real single precision. C The column is stored in memory according to the following scheme: C C C 1st word = row position of first element in following string C 2nd word = number of terms in string (ntms) C 3rd word } C | } C | } = actual C | } matrix C | } string C | } data C | } C | } C 3+(ntms*prec) } (where prec=1 for s.p.; =2 for d.p. ) C C The above data repeats for all strings within a column C C Argument list : C ZI - Memory for storage of data (integer) C ZR - Same location as ZI but real single reference C REAL ZR(1) INTEGER ZI(1) INTEGER IBLK(15) INCLUDE 'MMACOM.COM' COMMON /ZZZZZZ/ RXL(1) MEM = 1 DO 10 I = 1,15 10 IBLK(I) = 0 IBLK(1) = IRFILE IBLK(8) = -1 LASIND = MEM - 1 ZI( MEM ) = 0 100 CALL GETSTR ( *7000, IBLK ) JROW = IBLK( 4 ) INDEX = IBLK( 5 ) NTMS = IBLK( 6 ) ZI(MEM) = JROW ZI(MEM+1) = NTMS MEM = MEM + 1 DO 200 II = 1,NTMS ZR(MEM+II)= SIGN*RXL(INDEX+II-1) 200 CONTINUE MEM = MEM + 1 + NTMS CALL ENDGET ( IBLK ) GO TO 100 7000 CONTINUE LASIND = MEM - 1 RETURN END ================================================ FILE: mis/mmarc2.f ================================================ SUBROUTINE MMARC2 ( ZI, ZD ) C MMARC2 - This routine will store a matrix column in memory in compact C form and in real double precision. The input matrix is C assumed to be stored as either real single or double precision. C The column is stored in memory according to the following scheme: C C C 1st word = row position of first element in following string C 2nd word = number of terms in string (ntms) C 3rd word } C | } C | } = actual C | } matrix C | } string C | } data C | } C | } C 3+(ntms*prec) } (where prec=1 for s.p.; =2 for d.p. ) C C The above data repeats for all strings within a column C C Argument list : C ZI - Memory for storage of data (integer) C ZD - Same location as ZI but real double reference C INTEGER ZI(1) INTEGER IBLK(15) REAL RXL(1) DOUBLE PRECISION ZD(1), DXL INCLUDE 'MMACOM.COM' COMMON /ZZZZZZ/ DXL(1) EQUIVALENCE ( DXL,RXL ) MEM = 1 DO 10 I = 1,15 10 IBLK(I) = 0 IBLK(1) = IRFILE IBLK(8) = -1 LASIND = MEM - 1 ZI( MEM ) = 0 100 CALL GETSTR ( *7000, IBLK ) ITYPE = IBLK( 2 ) JROW = IBLK( 4 ) INDEX = IBLK( 5 ) NTMS = IBLK( 6 ) ZI(MEM) = JROW ZI(MEM+1)= NTMS GO TO ( 110, 120 ), ITYPE 110 CONTINUE MINDEX = MEM/2 + 1 DO 115 II = 1,NTMS ZD( MINDEX+II ) = SIGN*RXL( INDEX+II-1 ) 115 CONTINUE GO TO 180 120 CONTINUE MINDEX = MEM/2+1 DO 125 II = 1,NTMS ZD( MINDEX+II ) = SIGN*DXL( INDEX+II-1 ) 125 CONTINUE 180 CONTINUE MEM = MEM + 2 + NTMS*2 CALL ENDGET ( IBLK ) GO TO 100 7000 CONTINUE LASIND = MEM - 1 RETURN END ================================================ FILE: mis/mmarc3.f ================================================ SUBROUTINE MMARC3 ( ZI, ZR ) C C MARRC3 - This routine will store a matrix column in memory in compact C form and in complex single precision. The input matrix is C assumed to be stored as either real or complex single precision. C The column is stored in memory according to the following scheme: C C 1st word = row position of first element in following string C 2nd word = number of terms in string (ntms) C 3rd word } C | } C | } = actual C | } matrix C | } string C | } data C | } C | } C 3+(ntms*prec) } (where prec=1 for s.p.; =2 for d.p. ) C C The above data repeats for all strings within a column C C Argument list : C ZI - Memory for storage of data (integer) C ZR - Same location as ZI but real single reference C INTEGER ZI(1) INTEGER IBLK(15) REAL ZR(1) INCLUDE 'MMACOM.COM' COMMON /ZZZZZZ/ RXL(1) COMMON /SYSTEM/ IBFSIZ, IWR MEM = 1 DO 10 I = 1,15 10 IBLK(I) = 0 IBLK(1) = IRFILE IBLK(8) = -1 LASIND = MEM - 1 ZI( MEM )= 0 100 CALL GETSTR ( *1000, IBLK ) ITYPE = IBLK( 2 ) JROW = IBLK( 4 ) INDEX = IBLK( 5 ) NTMS = IBLK( 6 ) ZI(MEM) = JROW ZI(MEM+1)= NTMS GO TO ( 110, 120, 130 ), ITYPE 110 CONTINUE MINDEX = MEM + 2 DO 115 II = 1,NTMS ZR( MINDEX ) = SIGN*RXL( INDEX+II-1 ) ZR( MINDEX+1 ) = 0. MINDEX = MINDEX+2 115 CONTINUE GO TO 180 C C THE FOLLOWING LINE SHOULD NEVER BE REFERENCED C 120 CONTINUE WRITE( IWR, * ) ' ERROR IN MMARC3' STOP 130 CONTINUE MINDEX = MEM + 1 NTMS2 = NTMS*2 DO 135 II = 1,NTMS2 ZR( MINDEX+II ) = SIGN*RXL( INDEX+II-1 ) 135 CONTINUE 180 CONTINUE MEM = MEM + 2 + NTMS*2 CALL ENDGET ( IBLK ) GO TO 100 1000 CONTINUE LASIND = MEM - 1 RETURN END ================================================ FILE: mis/mmarc4.f ================================================ SUBROUTINE MMARC4 ( ZI, ZD ) C MMARC4 - This routine will store a matrix column in memory in compact C form and in complex double precision. The input matrix can C be stored in any precision or type. C The column is stored in memory according to the following scheme: C C C 1st word = row position of first element in following string C 2nd word = number of terms in string (ntms) C 3rd word } C | } C | } = actual C | } matrix C | } string C | } data C | } C | } C 3+(ntms*prec) } (where prec=1 for s.p.; =2 for d.p. ) C C The above data repeats for all strings within a column C C Argument list : C ZI - Memory for storage of data (integer) C ZD - Same location as ZI but real double reference C INTEGER ZI(1) INTEGER IBLK(15) DOUBLE PRECISION ZD(1), DXL(1) INCLUDE 'MMACOM.COM' COMMON /ZZZZZZ/ RXL(1) EQUIVALENCE ( RXL, DXL ) MEM = 1 DO 10 I = 1,15 10 IBLK(I) = 0 IBLK(1) = IRFILE IBLK(8) = -1 LASIND = MEM - 1 ZI( MEM) = 0 100 CALL GETSTR ( *1000, IBLK ) ITYPE = IBLK( 2 ) JROW = IBLK( 4 ) INDEX = IBLK( 5 ) NTMS = IBLK( 6 ) ZI(MEM) = JROW ZI(MEM+1)= NTMS GO TO ( 110, 120, 130, 140 ), ITYPE 110 CONTINUE MINDEX = MEM/2 + 1 DO 115 II = 1,NTMS ZD( MINDEX+1 ) = SIGN*RXL( INDEX+II-1 ) ZD( MINDEX+2 ) = 0.D0 MINDEX = MINDEX+2 115 CONTINUE GO TO 180 120 CONTINUE MINDEX = MEM/2 + 1 DO 125 II = 1,NTMS ZD( MINDEX+1 ) = SIGN*DXL( INDEX+II-1 ) ZD( MINDEX+2 ) = 0.D0 MINDEX = MINDEX + 2 125 CONTINUE GO TO 180 130 CONTINUE MINDEX = MEM/2 + 1 NTMS2 = NTMS*2 DO 135 II = 1,NTMS2 ZD( MINDEX+II ) = SIGN*RXL( INDEX+II-1 ) 135 CONTINUE GO TO 180 140 CONTINUE MINDEX = MEM/2 + 1 NTMS2 = NTMS*2 DO 145 II = 1,NTMS2 ZD( MINDEX+II ) = SIGN*DXL( INDEX+II-1 ) 145 CONTINUE 180 CONTINUE MEM = MEM + 2 + NTMS*4 CALL ENDGET ( IBLK ) GO TO 100 1000 CONTINUE LASIND = MEM - 1 RETURN END ================================================ FILE: mis/mmarm1.f ================================================ SUBROUTINE MMARM1 ( ZI, ZR, MEMPCOL ) C C MMARM1 - This routine will store matrix columns in memory in compact C form and in real single precision. The input matrix is C assumed to be stored as real single precision. C The column is stored in memory according to the following scheme: C C MEMPCOL = Input, extra memory needed for each column that is stored C in memory in compact form. This is needed for methods 40 C and 41 where for each column of "B" stored in compact form C in memory, there needs to be space available for a column C of the "D" matrix. C C 1st word = column number (negative) C 2nd word = index to next column within this array C 3st word = row position of first element in following string C 4nd word = number of terms in string (ntms) C 5rd word } C | } C | } = actual C | } matrix C | } string C | } data C | } C | } C 5+(ntms*prec) } (where prec=1 for s.p.; =2 for d.p. ) C n } Last value of last string for this column C C Words 3 through 5+(ntms*prec) above data repeat for all strings C within a column. Words 1 through n repeat for all columns that are C read into memory. C C Argument list : C ZI - Memory for storage of data (integer) C ZR - Same location as ZI but real single reference C REAL ZR(1) INTEGER ZI(1) INTEGER IBLK(15), MODULE( 2 ) INCLUDE 'MMACOM.COM' COMMON /SYSTEM/ IBFSIZ, IWR COMMON /ZZZZZZ/ RXL(1) DATA MODULE / 4HMMAR, 4HM1 / MEM = 1 DO 10 I = 1,15 10 IBLK(I) = 0 IBLK(1) = IRFILE C C IRCOL1, FIRST COLUMN EXPECTED FOR THIS PASS C IRCOLN, ON INPUT, THIS IS THE LAST COLUMN THAT IS NEEDED C ON OUTPUT, THIS IS THE LAST COLUMN READ C LASMEM, LAST AVAILABLE MEMORY INDEX TO THE "ZI" ARRAY C ICOL = IRCOL1 100 CONTINUE IBLK(8) = -1 LASINDM = MEM - 1 CALL DSCPOS ( IRFILE, ICBLK, ICLR, ICBP ) CALL GETSTR ( *900, IBLK ) C IF ( ICOL .NE. IBLK( 12 ) ) GO TO 7001 ZI(MEM ) = -ICOL MEM1 = MEM + 1 MEM = MEM + 2 105 CONTINUE NTMS = IBLK( 6 ) IF ( ( MEM + 2 + NTMS ) .GT. LASMEM ) GO TO 2000 JROW = IBLK( 4 ) INDEX = IBLK( 5 ) ZI(MEM) = JROW ZI(MEM+1) = NTMS MEM = MEM + 1 DO 300 II = 1,NTMS ZR(MEM+II)= SIGN*RXL(INDEX+II-1) 300 CONTINUE MEM = MEM + 1 + NTMS CALL ENDGET ( IBLK ) CALL GETSTR ( *1000, IBLK ) GO TO 105 900 CONTINUE ZI( MEM ) = -ICOL MEM1 = MEM + 1 MEM = MEM + 2 1000 CONTINUE C C CHECK If SPACE AVAILABLE FOR A FULL COLUMN OF "D" MATRIX, IF NECESSARY C IF ( MEM .GT. ( LASMEM-MEMPCOL ) ) GO TO 2000 LASMEM = LASMEM - MEMPCOL ZI( MEM1 ) = MEM ICOL = ICOL + 1 IF ( ICOL .GT. IRCOLN ) GO TO 7000 GO TO 100 2000 LASINDM = MEM1 - 2 C C SAVE I/O LOCATION OF LAST COLUMN FOR NEXT PASS C IRPOS( 1 ) = ICBLK IRPOS( 2 ) = ICLR IRPOS( 3 ) = ICBP IRCOLN = ICOL - 1 IF ( IRCOLN .LT. IRCOL1 ) CALL MESAGE ( -8, MEM+MEMPCOL, MODULE ) GO TO 7777 7000 CONTINUE LASINDM = MEM - 1 C GO TO 7777 C7001 WRITE( IWR, 9001 ) ICOL, IBLK(12), IRFILE C9001 FORMAT(' ERROR OCCURRED IN MMARM1, EXPECTED COLUMN =',I10 C &,/, ' BUT READ COLUMN =',I10,' FROM FILE =',I5 ) C CALL DSMSG( 777 ) C CALL MESAGE ( -61, 0, 0 ) 7777 RETURN END ================================================ FILE: mis/mmarm2.f ================================================ SUBROUTINE MMARM2 ( ZI, ZD, MEMPCOL ) C C MMARM2 - This routine will store matrix columns in memory in compact C form and in real double precision. The input matrix is C assumed to be stored as either real single or double precision. C The column is stored in memory according to the following scheme: C C MEMPCOL = Input, extra memory needed for each column that is stored C in memory in compact form. This is needed for methods 40 C and 41 where for each column of "B" stored in compact form C in memory, there needs to be space available for a column C of the "D" matrix. C C C 1st word = column number (negative) C 2nd word = index to next column within this array C 3st word = row position of first element in following string C 4nd word = number of terms in string (ntms) C 5rd word } C | } C | } = actual C | } matrix C | } string C | } data C | } C | } C 5+(ntms*prec) } (where prec=1 for s.p.; =2 for d.p. ) C n } Last value of last string for this column C C Words 3 through 5+(ntms*prec) above data repeat for all strings C within a column. Words 1 through n repeat for all columns that are C read into memory. C C Argument list : C ZI - Memory for storage of data (integer) C ZD - Same location as ZI but real double reference C INTEGER ZI(1) INTEGER IBLK(15), MODULE(2) REAL RXL(1) DOUBLE PRECISION ZD(1), DXL INCLUDE 'MMACOM.COM' COMMON /ZZZZZZ/ DXL(1) COMMON /SYSTEM/ IBFSIZ, IWR EQUIVALENCE ( DXL,RXL ) DATA MODULE / 4HMMAR, 4HM2 / MEM = 1 DO 10 I = 1,15 10 IBLK(I) = 0 IBLK(1) = IRFILE C C IRCOL1, FIRST COLUMN EXPECTED FOR THIS PASS C IRCOLN, ON INPUT, THIS IS THE LAST COLUMN THAT IS NEEDED C ON OUTPUT, THIS IS THE LAST COLUMN READ C LASMEM, LAST AVAILABLE MEMORY INDEX TO THE "ZI" ARRAY C ICOL = IRCOL1 100 CONTINUE IBLK(8) = -1 LASINDM = MEM - 1 CALL DSCPOS ( IRFILE, ICBLK, ICLR, ICBP ) CALL GETSTR ( *900, IBLK ) C IF ( ICOL .NE. IBLK( 12 ) ) GO TO 7001 ZI( MEM ) = -ICOL MEM1 = MEM + 1 MEM = MEM + 2 105 CONTINUE NTMS = IBLK( 6 ) IF ( ( MEM + 2 + NTMS*2 ) .GT. LASMEM ) GO TO 2000 ITYPE = IBLK( 2 ) JROW = IBLK( 4 ) INDEX = IBLK( 5 ) ZI(MEM) = JROW ZI(MEM+1)= NTMS GO TO ( 110, 120 ), ITYPE 110 CONTINUE MINDEX = MEM/2 + 1 DO 115 II = 1,NTMS ZD( MINDEX+II ) = SIGN*RXL( INDEX+II-1 ) 115 CONTINUE GO TO 180 120 CONTINUE MINDEX = MEM/2+1 DO 125 II = 1,NTMS ZD( MINDEX+II ) = SIGN*DXL( INDEX+II-1 ) 125 CONTINUE 180 CONTINUE MEM = MEM + 2 + NTMS*2 CALL ENDGET ( IBLK ) CALL GETSTR ( *1000, IBLK ) GO TO 105 900 CONTINUE ZI( MEM ) = -ICOL MEM1 = MEM + 1 MEM = MEM + 2 1000 CONTINUE C C CHECK IF SPACE IS AVAILABLE FOR A FULL COLUMN OF "D" MATRIX, IF NECESSARY C IF ( MEM .GT. ( LASMEM-MEMPCOL ) ) GO TO 2000 LASMEM = LASMEM - MEMPCOL ZI( MEM1 ) = MEM ICOL = ICOL + 1 IF ( ICOL .GT. IRCOLN ) GO TO 7000 GO TO 100 2000 LASINDM = MEM1 - 2 C C SAVE I/O LOCATION OF LAST COLUMN FOR NEXT PASS C IRPOS( 1 ) = ICBLK IRPOS( 2 ) = ICLR IRPOS( 3 ) = ICBP IRCOLN = ICOL - 1 IF ( IRCOLN .LT. IRCOL1 ) CALL MESAGE ( -8, MEM+MEMPCOL, MODULE ) GO TO 7777 7000 CONTINUE LASINDM = MEM - 1 C GO TO 7777 C7001 WRITE( IWR, 9001 ) ICOL, IBLK(12), IRFILE C9001 FORMAT(' ERROR OCCURRED IN MMARM2, EXPECTED COLUMN =',I10 C &,/, ' BUT READ COLUMN =',I10,' FROM FILE =',I5 ) C PRINT *,' IBLK=',IBLK C CALL DSMSG ( 777 ) C CALL MESAGE ( -61, 0, 0 ) 7777 RETURN END ================================================ FILE: mis/mmarm3.f ================================================ SUBROUTINE MMARM3 ( ZI, ZR, MEMPCOL ) C C MMARM3 - This routine will store matrix columns in memory in compact C form and in real complex precision. The input matrix is C assumed to be stored as real single or complex precision. C The column is stored in memory according to the following scheme: C C MEMPCOL = Input, extra memory needed for each column that is stored C in memory in compact form. This is needed for methods 40 C and 41 where for each column of "B" stored in compact form C in memory, there needs to be space available for a column C of the "D" matrix. C C 1st word = column number (negative) C 2nd word = index to next column within this array C 3st word = row position of first element in following string C 4nd word = number of terms in string (ntms) C 5rd word } C | } C | } = actual C | } matrix C | } string C | } data C | } C | } C 5+(ntms*prec) } (where prec=1 for s.p.; =2 for d.p. ) C n } Last value of last string for this column C C Words 3 through 5+(ntms*prec) above data repeat for all strings C within a column. Words 1 through n repeat for all columns that are C read into memory. C C C Argument list : C ZI - Memory for storage of data (integer) C ZR - Same location as ZI but real single reference C INTEGER ZI(1) INTEGER IBLK(15), MODULE(2) REAL ZR(1) INCLUDE 'MMACOM.COM' COMMON /ZZZZZZ/ RXL(1) COMMON /SYSTEM/ IBFSIZ, IWR DATA MODULE / 4HMMAR, 4HM3 / MEM = 1 DO 10 I = 1,15 10 IBLK(I) = 0 IBLK(1) = IRFILE C C IRCOL1, FIRST COLUMN EXPECTED FOR THIS PASS C IRCOLN, ON INPUT, THIS IS THE LAST COLUMN THAT IS NEEDED C ON OUTPUT, THIS IS THE LAST COLUMN READ C LASMEM, LAST AVAILABLE MEMORY INDEX TO THE "ZI" ARRAY C ICOL = IRCOL1 100 CONTINUE IBLK(8) = -1 LASINDM = MEM - 1 CALL DSCPOS ( IRFILE, ICBLK, ICLR, ICBP ) CALL GETSTR ( *900, IBLK ) C IF ( ICOL .NE. IBLK( 12 ) ) GO TO 7001 ZI(MEM ) = -ICOL MEM1 = MEM + 1 MEM = MEM + 2 105 CONTINUE NTMS = IBLK( 6 ) IF ( ( MEM + 2 + NTMS*2 ) .GT. LASMEM ) GO TO 2000 ITYPE = IBLK( 2 ) JROW = IBLK( 4 ) INDEX = IBLK( 5 ) ZI(MEM) = JROW ZI(MEM+1)= NTMS GO TO ( 110, 120, 130 ), ITYPE 110 CONTINUE MINDEX = MEM + 2 DO 115 II = 1,NTMS ZR( MINDEX ) = SIGN*RXL( INDEX+II-1 ) ZR( MINDEX+1 ) = 0. MINDEX = MINDEX+2 115 CONTINUE GO TO 180 C C THE FOLLOWING LINE SHOULD NEVER BE REFERENCED C 120 CONTINUE WRITE( IWR, * )' ERROR IN MMARM3' STOP 130 CONTINUE MINDEX = MEM + 1 NTMS2 = NTMS*2 DO 135 II = 1,NTMS2 ZR( MINDEX+II ) = SIGN*RXL( INDEX+II-1 ) 135 CONTINUE 180 CONTINUE MEM = MEM + 2 + NTMS*2 CALL ENDGET ( IBLK ) CALL GETSTR ( *1000, IBLK ) GO TO 105 900 CONTINUE ZI( MEM ) = -ICOL MEM1 = MEM + 1 MEM = MEM + 2 1000 CONTINUE C C CHECK IF SPACE AVAILABLE FOR A FULL COLUMN OF "D" MATRIX, IF NECESSARY C IF ( MEM .GT. ( LASMEM-MEMPCOL ) ) GO TO 2000 LASMEM = LASMEM - MEMPCOL ZI( MEM1 ) = MEM ICOL = ICOL + 1 IF ( ICOL .GT. IRCOLN ) GO TO 7000 GO TO 100 2000 LASINDM = MEM1 - 2 C C SAVE I/O LOCATION OF LAST COLUMN FOR NEXT PASS C IRPOS( 1 ) = ICBLK IRPOS( 2 ) = ICLR IRPOS( 3 ) = ICBP IRCOLN = ICOL - 1 IF ( IRCOLN .LT. IRCOL1 ) CALL MESAGE ( -8, MEM+MEMPCOL, MODULE ) GO TO 7777 7000 CONTINUE LASINDM = MEM - 1 C GO TO 7777 C7001 WRITE( IWR, 9001 ) ICOL, IBLK(12), IRFILE C9001 FORMAT(' ERROR OCCURRED IN MMARM3, EXPECTED COLUMN =',I10 C &,/, ' BUT READ COLUMN =',I10,' FROM FILE =',I5 ) C CALL MESAGE ( -61, 0, 0 ) 7777 RETURN END ================================================ FILE: mis/mmarm4.f ================================================ SUBROUTINE MMARM4 ( ZI, ZD, MEMPCOL ) C C MMARM4 - This routine will store matrix columns in memory in compact C form and in complex double precision. The input matrix is C can be any type and any precision. C The column is stored in memory according to the following scheme: C C MEMPCOL = Input, extra memory needed for each column that is stored C in memory in compact form. This is needed for methods 40 C and 41 where for each column of "B" stored in compact form C in memory, there needs to be space available for a column C of the "D" matrix. C C 1st word = column number (negative) C 2nd word = index to next column within this array C 3st word = row position of first element in following string C 4nd word = number of terms in string (ntms) C 5rd word } C | } C | } = actual C | } matrix C | } string C | } data C | } C | } C 5+(ntms*prec) } (where prec=1 for s.p.; =2 for d.p. ) C n } Last value of last string for this column C C Words 3 through 5+(ntms*prec) above data repeat for all strings C within a column. Words 1 through n repeat for all columns that are C read into memory. C C Argument list : C ZI - Memory for storage of data (integer) C ZD - Same location as ZI but real double reference C INTEGER ZI(1) INTEGER IBLK(15), MODULE(2) DOUBLE PRECISION ZD(1), DXL(1) INCLUDE 'MMACOM.COM' COMMON /ZZZZZZ/ RXL(1) COMMON /SYSTEM/ IBFSIZ, IWR EQUIVALENCE ( RXL, DXL ) DATA MODULE / 4HMMAR, 4HM4 / MEM = 1 DO 10 I = 1,15 10 IBLK(I) = 0 IBLK(1) = IRFILE C C IRCOL1, FIRST COLUMN EXPECTED FOR THIS PASS C IRCOLN, ON INPUT, THIS IS THE LAST COLUMN THAT IS NEEDED C ON OUTPUT, THIS IS THE LAST COLUMN READ C LASMEM, LAST AVAILABLE MEMORY INDEX TO THE "ZI" ARRAY C ICOL = IRCOL1 100 CONTINUE IBLK(8) = -1 LASINDM = MEM - 1 CALL DSCPOS ( IRFILE, ICBLK, ICLR, ICBP ) CALL GETSTR ( *900, IBLK ) C IF ( ICOL .NE. IBLK( 12 ) ) GO TO 7001 ZI(MEM ) = -ICOL MEM1 = MEM + 1 MEM = MEM + 2 105 CONTINUE NTMS = IBLK( 6 ) IF ( ( MEM + 2 + NTMS*4 ) .GT. LASMEM ) GO TO 2000 ITYPE = IBLK( 2 ) JROW = IBLK( 4 ) INDEX = IBLK( 5 ) ZI(MEM) = JROW ZI(MEM+1)= NTMS GO TO ( 110, 120, 130, 140 ), ITYPE 110 CONTINUE MINDEX = MEM/2 + 1 DO 115 II = 1,NTMS ZD( MINDEX+1 ) = SIGN*RXL( INDEX+II-1 ) ZD( MINDEX+2 ) = 0.D0 MINDEX = MINDEX+2 115 CONTINUE GO TO 180 120 CONTINUE MINDEX = MEM/2 + 1 DO 125 II = 1,NTMS ZD( MINDEX+1 ) = SIGN*DXL( INDEX+II-1 ) ZD( MINDEX+2 ) = 0.D0 MINDEX = MINDEX + 2 125 CONTINUE GO TO 180 130 CONTINUE MINDEX = MEM/2 + 1 NTMS2 = NTMS*2 DO 135 II = 1,NTMS2 ZD( MINDEX+II ) = SIGN*RXL( INDEX+II-1 ) 135 CONTINUE GO TO 180 140 CONTINUE MINDEX = MEM/2 + 1 NTMS2 = NTMS*2 DO 145 II = 1,NTMS2 ZD( MINDEX+II ) = SIGN*DXL( INDEX+II-1 ) 145 CONTINUE 180 CONTINUE MEM = MEM + 2 + NTMS*4 CALL ENDGET ( IBLK ) CALL GETSTR ( *1000, IBLK ) GO TO 105 900 CONTINUE ZI( MEM ) = -ICOL MEM1 = MEM + 1 MEM = MEM + 2 1000 CONTINUE C C CHECK IF SPACE AVAILABLE FOR A FULL COLUMN OF "D" MATRIX, IF NECESSARY C IF ( MEM .GT. ( LASMEM-MEMPCOL ) ) GO TO 2000 LASMEM = LASMEM - MEMPCOL ZI( MEM1 ) = MEM ICOL = ICOL + 1 IF ( ICOL .GT. IRCOLN ) GO TO 7000 GO TO 100 2000 LASINDM = MEM1 - 2 C C SAVE I/O LOCATION OF LAST COLUMN FOR NEXT PASS C IRPOS( 1 ) = ICBLK IRPOS( 2 ) = ICLR IRPOS( 3 ) = ICBP IRCOLN = ICOL - 1 IF ( IRCOLN .LT. IRCOL1 ) CALL MESAGE ( -8, MEM+MEMPCOL, MODULE ) GO TO 7777 7000 CONTINUE LASINDM = MEM - 1 C GO TO 7777 C7001 WRITE( IWR, 9001 ) ICOL, IBLK(12), IRFILE C9001 FORMAT(' ERROR OCCURRED IN MMARM4, EXPECTED COLUMN =',I10 C &,/, ' BUT READ COLUMN =',I10,' FROM FILE =',I5 ) C CALL MESAGE ( -61, 0, 0 ) 7777 RETURN END ================================================ FILE: mis/moda.f ================================================ SUBROUTINE MODA C C***** C C DUMMY DECK FOR MODULE MODA SEE USERS MANUAL SECTION 5.3 C FOR MODULE PROPERTIES CHECK XMPLBD C OR USE DIAG 29 C C***** C INTEGER IPARM , PARM12 , PARM13 C INTEGER OUTFIL(4) C COMMON /BLANK/ PARM(5),IPARM(5),PARM11,PARM12,PARM13 C C DATA OUTFIL /201,202,203,204/ C RETURN END ================================================ FILE: mis/modac1.f ================================================ SUBROUTINE MODAC1(CASECC,TOL,TOL1,CASEZZ,CASEYY) C C MODAC1 REDUCES THE NUMBER OF ENTRIES ON TOL TO THE TIMES C SPECIFIED BY THE OFREQ SET IN CASECC C C CORE IS OUT AS FOLLOWS ON RETURN C C CONTENTS LENGTH TYPE POINTER C -------- ------ ---- ------- C NEW TIMES NFN R IFN C KEEP REMOVE NFO I IKR C C C C C C C C C C C C C INTEGER SYSBUF,CASECC,TOL,NAME(2),TOL1,FILE,IHD(2),MCB(7),IBUF(6) INTEGER CASEZZ,CASEYY,FLAG REAL Z(1) COMMON /SYSTEM/ SYSBUF COMMON /MODAC3/ NFO,NFN,NZ, ID COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE ( Z(1), IZ(1) ) DATA NAME /4HMODA,4HC1 / C C BRING IN CASECC C LW = 6 IF(ID .EQ. 4) LW = 7 IBUF1 = NZ -SYSBUF+1 IBUF2 = IBUF1-SYSBUF IBUF3 = IBUF2 -SYSBUF CALL GOPEN(CASECC,IZ(IBUF1),0) FILE = CASECC CALL READ(*900,*10,CASECC,IZ,IBUF2-1,0,IVEC) CALL MESAGE(-8,0,NAME) 10 CONTINUE ICC = 0 CALL CLOSE(CASECC, 1) IFROUT =145 ILSYM = 200 IVEC = IVEC+1 ILIST = IVEC IF(ID .EQ. 5) GO TO 600 C C BRING IN OLD TIME/FREQ LIST C FILE = TOL CALL OPEN(*900,TOL,IZ(IBUF1),0) I = ILIST M = 3 IX= 2 NFO = NFO + I IF(ID .EQ. 2 .OR. ID .EQ. 4) GO TO 25 20 CALL READ(*910,*30,TOL,IBUF,M,0,FLAG) IZ(I) =IBUF(M) IZ(I+1)= 0 I = I + IX M =1 GO TO 20 25 CALL FWDREC(*910,TOL) CALL FWDREC(*910,TOL) 26 CALL READ(*910,*30,TOL,IBUF,LW,0,FLAG) IZ(I) = IBUF(4) C REIG SHOULD BE ON CYCLES IF(ID .EQ. 4) IZ(I) = IBUF(5) IZ(I+1) = 0 I = I+2 IF(I.EQ.NFO) GO TO 30 GO TO 26 30 CALL CLOSE(TOL,1) NLIST = I -IX C C MATCH LIST OF SELECTED VALUES WITH TIME LIST IN CORE C 35 CONTINUE IX = ICC + IFROUT IFSET = IZ(IX) IF ( IFSET .LE. 0) GO TO 70 IX = ICC +ILSYM ISETNF = IX + IZ(IX)+1 40 ISETF = ISETNF +2 NSETF =IZ(ISETNF+1) + ISETF-1 IF( IZ(ISETNF).EQ. IFSET) GO TO 80 ISETNF = NSETF +1 IF ( ISETNF .LT. IVEC) GO TO 40 IFSET = -1 70 DO 75 J = ILIST,NLIST,2 75 IZ(J+1) = 1 GO TO 200 80 DO 100 I = ISETF,NSETF K = 0 DIFF = 1.E25 REAL = Z(I) DO 90 J = ILIST,NLIST,2 IF (IZ(J+1) .NE. 0) GO TO 90 DIFF1 = ABS(Z(J) - REAL) IF( DIFF1 .GE. DIFF) GO TO 90 DIFF = DIFF1 K = J 90 CONTINUE IF ( K .NE. 0) IZ(K+1) = 1 100 CONTINUE C C SELECTED FREQUENCIES MARKED FOR OUTPUT C 200 NFO =(NLIST - ILIST +2)/2 C C MOVE NEW FREQ TO UPPER C K=1 DO 300 I= ILIST,NLIST,2 IF( IZ(I+1).EQ. 0) GO TO 300 Z(K) = Z(I) K = K +1 300 CONTINUE NFN = K-1 DO 400 I = ILIST,NLIST,2 IZ(K) = IZ(I+1) K = K+1 400 CONTINUE IF(ID .EQ. 5) RETURN FILE =TOL1 CALL OPEN(*800,TOL1,IZ(IBUF1),1) CALL FNAME(TOL1,IHD) CALL WRITE(TOL1,IHD,2,0) IF(ID .EQ. 2 .OR. ID .EQ. 4) GO TO 402 CALL WRITE(TOL1,Z,NFN,1) 401 CONTINUE CALL CLOSE(TOL1,1) MCB(1)= TOL1 MCB(2)= NFN CALL WRTTRL(MCB ) IF(ID .EQ. 2) GO TO 500 800 RETURN C C COPY OVER CLAMA STUFF C 402 CALL WRITE(TOL1,0,0,1) K = NFN + NFO + 1 NZX = IBUF3 -K FILE = TOL CALL GOPEN(TOL,IZ(IBUF2),0) CALL READ(*910,*920,TOL,IZ(K),146,1,FLAG) CALL WRITE(TOL1,IZ(K),146,1) M = NFN+1 N = M+NFO -1 DO 410 I = M,N CALL READ(*910,*920,TOL,IZ(K),LW,0,FLAG) IF(IZ(I) .EQ. 0) GO TO 410 CALL WRITE(TOL1,IZ(K),LW,0) 410 CONTINUE CALL CLOSE(TOL,1) CALL WRITE(TOL1,0,0,1) GO TO 401 C C COPY OVER CASECC C 500 CALL GOPEN(CASECC,IZ(IBUF1),0) CALL GOPEN(CASEZZ,IZ(IBUF2),1) M = NFN +1 N = M+NFO-1 DO 510 I = M,N CALL READ(*511,*520,CASECC,IZ(K),NZX,0,FLAG) 520 IF(IZ(I) .EQ. 0) GO TO 510 CALL WRITE(CASEZZ,IZ(K),FLAG,1) 510 CONTINUE 511 CALL CLOSE(CASECC,1) CALL CLOSE(CASEZZ,1) MCB(1) = CASECC CALL RDTRL(MCB) MCB(1) = CASEZZ CALL WRTTRL(MCB) RETURN C C STATIC ANALYSIS C 600 CONTINUE R = 1.0 NFO = NFO+ILIST NLIST = NFO-2 DO 610 I = ILIST,NFO,2 Z(I) = R IZ(I+1) = 0 R = R+1. 610 CONTINUE C C COPY EDT C CALL OPEN(*670,TOL,IZ(IBUF1),0) CALL OPEN(*670,TOL1,IZ(IBUF2),1) FILE = TOL CALL FNAME(TOL1,IHD) CALL WRITE(TOL1,IHD,2,0) 620 CALL READ(*630,*920,TOL,IZ(NFO+2),NZ,0,FLAG) CALL WRITE(TOL1,IZ(NFO+2),FLAG,1) GO TO 620 630 CALL CLOSE(TOL,1) CALL CLOSE(TOL1,1) MCB(1) = TOL CALL RDTRL(MCB) MCB(1) = TOL1 CALL WRTTRL(MCB) 670 GO TO 35 C C ERROR MESSAGES C 900 IP1=-1 901 CALL MESAGE(IP1,FILE,NAME) 910 IP1=-2 GO TO 901 920 IP1=-3 GO TO 901 END ================================================ FILE: mis/modac2.f ================================================ SUBROUTINE MODAC2( NV,INP1,IOUT) C C MODAC2 REDUCES THE SIZE OF INP1 (BY REMOVING SELECTED COLUMNS) C C CORE IS LAIDED OUT AS FOLLOWS C C CONTENTS LENGTH TYPE POINTER C -------- ------ ---- ------- C C NEW TIMES NFN R IFN C KEEP/REMOVE NFO I IKR C COPIED COLUMN MCB(3) R ICOL C C 2 BUFFERS SYSBUF I IBUF1 C SYSBUF I IBUF2 C C VARIABLES C C NV NUMBER OF COLUMS TO PROCESS TOGETHER (MINUS SAYS ADD HEAD C INP1 COPY FROM THIS FILE C IOUT COPY TO THIS FILE C C C INTEGER IZ,SYSBUF,NAME(2),IHD(2),MCB(7),FILE REAL Z(1) COMMON /UNPAKX/ITC,II,JJ,INCR COMMON /SYSTEM/ SYSBUF COMMON /MODAC3/ NFO,NFN,NZ COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (Z(1),IZ(1)) DATA NAME /4HMODA,4HC2 / C C ALLOCATE CORE C MCB(1) =IOUT CALL RDTRL(MCB) IF ( MCB(1) .LE. 0) RETURN MCB(1) = INP1 CALL RDTRL(MCB) IF (MCB(1) .LE. 0) RETURN NLOAD = MCB(2)/(NFO*IABS(NV)) IFN =1 IKR = IFN + NFN ICOL = IKR + NFO IBUF1 = NZ -SYSBUF+1 IBUF2 = IBUF1- SYSBUF IF ( ICOL + MCB(3) + 2*SYSBUF .GT. NZ) CALL MESAGE(-8,0,NAME) C C OPEN FILES C FILE = INP1 CALL GOPEN(INP1,IZ(IBUF1),0) FILE = IOUT CALL OPEN(*900,IOUT,IZ(IBUF2),1) CALL FNAME(IOUT,IHD) CALL WRITE(IOUT,IHD,2,0) IF ( NV .GT. 0) GO TO 10 CALL WRITE(IOUT,Z,NFN,0) 10 CALL WRITE(IOUT,0,0,1) C C SET UP MATRIX TRAILER C FILE = INP1 MCB(2) =0 MCB(6) =0 MCB(7) =0 MCB(1) = IOUT ITC = MCB(5) INCR = 1 INV = IABS(NV) DO 200 M = 1,NLOAD K = IKR -1 DO 100 I =1,NFO K =K+1 IF( IZ(K) .EQ. 0) GO TO 20 C C KEEP COLUMN C CALL CYCT2B(INP1,IOUT,INV,IZ(ICOL),MCB) GO TO 100 C C SKIP COLUMN C 20 DO 30 J = 1,INV CALL FWDREC(*910,INP1) 30 CONTINUE 100 CONTINUE 200 CONTINUE C C CLOSE UP C CALL CLOSE(INP1,1) CALL CLOSE(IOUT,1) CALL WRTTRL(MCB) RETURN C C ERROR MESSAGES C 900 IP1= -1 901 CALL MESAGE(IP1,FILE,NAME) 910 IP1 = -2 GO TO 901 END ================================================ FILE: mis/modacc.f ================================================ SUBROUTINE MODACC C C THIS IS THE MODULE MODACC C C DMAP CALL C C MODACC CASECC,TOL,UDV1T,PPT,PDT,PST/TOL1,UDV3T,PP3,PDT3,PST3/ C C,N,TRAN $ C C THE PURPOSE OF THIS MODULE IS TO REDUCE THE COLUMN LENCTHS OF C UDV1T,PPT,PDT,PST TO THE LENGTH SPECIFIED BY OFREQ IN CASECC. C THE CURRENT LIST OF TIMES IS ON TOL C INTEGER CASECC, TOL,UDV1T,PPT,PDT,PST,TOL1,UDV3T,PP3,PDT3,PST3 COMMON /BLANK / IOP(2) COMMON /MODAC3/ NFO,NFN,NZ,ID COMMON /ZZZZZZ/ IZ(1) DATA CASECC, TOL,UDV1T,PPT,PDT,PST,TOL1,UDV3T,PP3,PDT3,PST3 / 1 101 , 102,103 ,104,105,106,201 ,202 ,203,204 ,205 / DATA ITRAN / 4HTRAN/ ,ICEIGN /4HCEIG / DATA IREIG / 4HREIG/ DATA ISTAT / 4HSTAT/ C ID = 1 IF (IOP(1) .EQ. ICEIGN) ID = 2 IF (IOP(1) .EQ. ITRAN) ID = 3 IF (IOP(1) .EQ. IREIG) ID = 4 IF (IOP(1) .EQ. ISTAT) ID = 5 C C FOR EIGENVALUES STOP LIST AT NUMBER OF VECTORS C NFO = 0 IZ(1) = UDV1T CALL RDTRL(IZ) J = 2 NFO = 2 * IZ(J) NZ = KORSZ(IZ(1)) C C BUILD LIST OF NEW TIMES, KEEP/REMOVE LIST C CALL MODAC1 (CASECC,TOL,TOL1,PP3,PPT) C C COPY DISPLACEMENTS C ID1 = 1 IF (ID .EQ. 3) ID1 = 3 CALL MODAC2 (ID1,UDV1T,UDV3T) IF (ID.EQ.2 .OR. ID.EQ.4) RETURN C C COPY P LOAD S (+ HEAD STUFF FOR NOW) C CALL MODAC2 (-1,PPT,PP3) C C COPY D LOADS C CALL MODAC2 (1,PDT,PDT3) C C COPY S LOADS C CALL MODAC2 (1,PST,PST3) RETURN END ================================================ FILE: mis/modb.f ================================================ SUBROUTINE MODB C C***** C C DUMMY DECK FOR MODULE MODB SEE USERS MANUAL SECTION 5.3 C FOR MODULE PROPERTIES CHECK XMPLBD C OR USE DIAG 29 C C***** C INTEGER IPARM1 , IPARM2 C INTEGER INFILE(3), OUTFIL(4) C COMMON /BLANK/ PARM(4),IPARM1(3),PARM8,IPARM2(3) C C DATA INFILE /101,102,103/ C DATA OUTFIL /201,202,203,104/ C RETURN END ================================================ FILE: mis/modc.f ================================================ SUBROUTINE MODC C C***** C C DUMMY DECK FOR MODULE MODC SEE USERS MANUAL SECTION 5.3 C FOR MODULE PROPERTIES CHECK XMPLBD C OR USE DIAG 29 C C***** C C INTEGER INFILE(2) C COMMON /BLANK/ IPARM C C DATA INFILE /101,102/ C RETURN END ================================================ FILE: mis/mplprt.f ================================================ SUBROUTINE MPLPRT C C PRINTS MPL TABLE FOR DOCUMENTATION PURPOSES C AND CHECKS VALIDITY OF MANY ITEMS. C DOUBLE PRECISION XX REAL X(2,1) INTEGER KP(6),FLAG,FLAGB,FLAGS,TOT,FLGTOT,ADD(2), 1 T1,T2,T3,H1,H2,H3,H1X(32),H2X(32),H3X(32) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /SYSTEM/ NB,NO,JUNK1(6),NLPP,JUNK2(2),LINE COMMON /XFIST / NFIST COMMON /XPFIST/ NPFIST COMMON /OUTPUT/ T1(32),T2(32),T3(32),H1(32),H2(32),H3(32) COMMON /XGPI2 / LMPL,MPLPNT,MPL(1) COMMON /XGPI2X/ XX(1) C EQUIVALENCE (XX(1),X(1,1)) C DATA KP / 1,1,2,2,2,4 / , ADD /4HADD ,4H / DATA FLAGB / 1H / , FLAGS /4H ***/ DATA H1X/4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H 2 ,4H M,4H O D,4H U L,4H E ,4H P R,4H O P,4H E R,4H T I 3 ,4H E S,4H L,4H I S,4H T ,4H ,4H ,4H ,4H 4 ,4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H / DATA H2X/4H ,4H ,4H ,4H ,4H ,4H ,4H ,4H 2 ,4H ,4H ,4H ,4H ,4H ,4H -,4H - -,4H - - 3 ,4H - -,4H P A,4H R A,4H M E,4H T E,4H R S,4H - -,4H - - 4 ,4H - -,4H - -,4H ,4H ,4H ,4H ,4H ,4H / DATA H3X/4H MP,4HLID ,4HNWDS,4H WD,4H1 M,4HOD-N,4HAME ,4HTYP 2 ,4H IN ,4H OUT,4H SC,4HR T,4HOT ,4H I,4HD TY,4HP 3 ,4HP ,4H D,4HEFAU,4HLT (,4HIF A,4HNY) ,4H ,4H W 4 ,4H1-W2,4H FLG,4H ,4H ,4H ,4H ,4H ,4H / C 21 FORMAT (7H0 ,3I5,2X ,2A4 ,I3,4I5 ,10X,A3) 22 FORMAT (7H0 ,3I5,2X ,2A4 ,I3,4I5 1 ,10X,50H----- N O P A R A M E T E R S E X I S T ----- 2 ,10X,A3) 23 FORMAT (7H0 ,3I5,2X,8H (NONE) ) 24 FORMAT (7H0 ,3I5,2X,2A4,I3 ) 31 FORMAT (59X,I2,5H. INT,I5,7X,16H-- NO DEFAULT --,6X ,I2 ) 32 FORMAT (59X,I2,5H. RSP,I5,7X,16H-- NO DEFAULT --,6X ,I2 ) 33 FORMAT (59X,I2,5H. BCD,I5,7X,16H-- NO DEFAULT --,6X ,I2,1H-,I2 ) 34 FORMAT (59X,I2,5H. RDP,I5,7X,16H-- NO DEFAULT --,6X ,I2,1H-,I2,A4) 35 FORMAT (59X,I2,5H. CSP,I5,7X,16H-- NO DEFAULT --,6X ,I2,1H-,I2,A4) 36 FORMAT (59X,I2,5H. CDP,I5,7X,16H-- NO DEFAULT --,6X ,I2,1H-,I2,A4) 41 FORMAT (59X,I2,5H. INT,I5, I15,14X ,I2 ) 42 FORMAT (59X,I2,5H. RSP,I5, 1P,E20.4,9X ,I2 ) 43 FORMAT (59X,I2,5H. BCD,I5, 11X,2A4,10X ,I2,1H-,I2 ) 44 FORMAT (59X,I2,5H. RDP,I5, 1P,D20.4,9X ,I2,1H-,I2,A4) 45 FORMAT (59X,I2,5H. CSP,I5, 3H (,1P,E11.4,1H, ,1P,E11.4,3H , 1 I2,1H-,I2,A4) 46 FORMAT (59X,I2,5H. CDP,I5, 3H (,1P,D11.4,1H, ,1P,D11.4,3H) , 1 I2,1H-,I2,A4) 47 FORMAT (10X,'NOTE - THE ABOVE PARAMETER DEFAULTS WILL BE CHANGED', 1 ' TO ALL ZEROS BY THE ADD MODULE. HOWEVER, IF ALL 4 PARAMETERS', 2 ' ARE NOT', /10X,'SPECIFIED, THEY WILL BE CHANGED TO 2*(1.,0.),', 3 ' 2*(0.D0,0.D0), OR 2*(0.,0.), 2*(1.D0,0.D0) DEPENDING ON ', 4 'MATRICES INVOLVED') C C INITIALIZATION C CALL PAGE MPLID = 0 NPAD = 0 I2 = 0 DO 80 I = 1,32 H1(I) = H1X(I) H2(I) = H2X(I) H3(I) = H3X(I) 80 CONTINUE CALL PAGE C C PROCESS NEXT ENTRY C 100 CONTINUE IF (I2-LMPL) 110,900,9901 110 I0 = I2 I1 = I2 + 1 I2 = I0 + MPL(I1) MPLID = MPLID + 1 C C TEST FOR MODULE TYPE C IF (MPL(I1)-1) 9904,120,112 112 IF (MPL(I1+1) .EQ. 0) GO TO 120 IF (MPL(I0+4) .LT. 3) GO TO 130 C C EXECUTIVE MODULE C CALL PAGE2 (-2) L1 = I0 + 2 L2 = L1 + 2 WRITE (NO,24) MPLID,MPL(I1),I1,(MPL(L),L=L1,L2) GO TO 100 C C PAD SPACE C 120 CALL PAGE2 (-2) WRITE (NO,23) MPLID,MPL(I1),I1 NPAD = NPAD + 1 GO TO 100 C C FUNCTIONAL MODULE C 130 IF (MPL(I1) .GT. 7) GO TO 140 C C NO PARAMETERS EXIST FOR THIS FUNCTIONAL MODULE C CALL PAGE2 (-2) L1 = I0 + 5 L2 = L1 + 2 TOT = 0 DO 137 L = L1,L2 137 TOT = TOT + MPL(L) FLGTOT = FLAGB IF (TOT .GT. NFIST-NPFIST) FLGTOT = FLAGS L1 = I0 + 2 WRITE (NO,22) MPLID,MPL(I1),I1,(MPL(L),L=L1,L2),TOT,FLGTOT GO TO 100 C C PARAMETERS EXIST FOR THIS FUNCTIONAL MODULE C 140 CONTINUE C C DETERMINE THE NUMBER OF PARAMETERS FOR FUNCTIONAL MODULE C NP = 0 I = I0 + 8 150 CONTINUE IF ((I-1)-(I2)) 151,160,9903 151 IP = IABS(MPL(I)) IF (IP .GT. 6) GO TO 9902 IF (MPL(I)) 152,9902,154 152 NP = NP + 1 I = I + 1 GO TO 150 154 NP = NP + 1 I = I + 1 + KP(IP) GO TO 150 160 IF (NP .LE. 0) GO TO 9903 C CALL PAGE2 (-2-NP) L1 = I0 + 5 L2 = L1 + 2 TOT= 0 DO 167 L = L1,L2 167 TOT = TOT + MPL(L) FLGTOT = FLAGB IF (TOT .GT. NFIST-NPFIST) FLGTOT = FLAGS L1 = I0 + 2 WRITE (NO,21) MPLID,MPL(I1),I1,(MPL(L),L=L1,L2),TOT,FLGTOT C C PRINT PARAMETERS C NP = 0 I = I0 + 8 J2 = 0 170 CONTINUE NP = NP + 1 J1 = J2 + 1 IF ((I-1)-(I2)) 175,200,9903 175 IP = IABS(MPL(I)) IF (IP .GT. 6) GO TO 9902 IF (MPL(I)) 180,9902,190 C C PARAMETER HAS NO DEFAULT VALUE C 180 CONTINUE J2 = J1 GO TO (181,182,183,184,185,186), IP C C INTEGER C 181 WRITE (NO,31) NP,I,J1 GO TO 188 C C REAL SINGLE-PRECISION C 182 WRITE (NO,32) NP,I,J1 GO TO 188 C C ALPHANUMERIC (BCD) C 183 J2 = J2 + 1 WRITE (NO,33) NP,I,J1,J2 GO TO 188 C C REAL DOUBLE-PRECISION C 184 J2 = J2 + 1 FLAG = FLAGB IF (MOD(J1,2) .EQ. 0) FLAG = FLAGS WRITE (NO,34) NP,I,J1,J2,FLAG GO TO 188 C C COMPLEX SINGLE-PRECISION C 185 J2 = J2 + 1 FLAG = FLAGB IF (MOD(J1,2) .EQ. 0) FLAG = FLAGS WRITE (NO,35) NP,I,J1,J2,FLAG GO TO 188 C C COMPLEX DOUBLE-PRECISION C 186 J2 = J2 + 3 FLAG = FLAGB IF (MOD(J1,2) .EQ. 0) FLAG = FLAGS WRITE (NO,36) NP,I,J1,J2,FLAG GO TO 188 188 CONTINUE I = I + 1 GO TO 170 C C PARAMETER HAS A DEFAULT VALUE C 190 CONTINUE GO TO (191,192,193,194,195,196), IP C C INTEGER C 191 J2 = J1 WRITE (NO,41) NP,I,MPL(I+1),J1 I = I + 2 GO TO 198 C C REAL SINGLE-PRECISION C 192 J2 = J1 M = MPL(I+1) WRITE (NO,42) NP,I,X(1,M),J1 I = I + 2 GO TO 198 C C ALPHANUMERIC (BCD) C 193 J2 = J1 + 1 WRITE (NO,43) NP,I,MPL(I+1),MPL(I+2),J1,J2 I = I + 3 GO TO 198 C C REAL DOUBLE-PRECISION C 194 J2 = J1 + 1 M = MPL(I+1) FLAG = FLAGB IF (MOD(J1,2) .EQ. 0) FLAG = FLAGS WRITE (NO,44) NP,I,XX(M),J1,J2,FLAG I = I + 3 GO TO 198 C C COMPLEX SINGLE-PRECISION C 195 J2 = J1 + 1 M = MPL(I+1) FLAG = FLAGB IF (MOD(J1,2) .EQ. 0) FLAG = FLAGS WRITE (NO,45) NP,I,X(1,M),X(2,M),J1,J2,FLAG I = I + 3 GO TO 198 C C COMPLEX DOUBLE-PRECISION C 196 J2 = J1 + 3 M1 = MPL(I+1) M2 = MPL(I+3) FLAG = FLAGB IF (MOD(J1,2) .EQ. 0) FLAG = FLAGS WRITE (NO,46) NP,I,XX(M1),XX(M2),J1,J2,FLAG I = I + 5 GO TO 198 198 CONTINUE GO TO 170 C 200 CONTINUE IF (MPL(L1).NE.ADD(1) .OR. MPL(L1+1).NE.ADD(2)) GO TO 100 CALL PAGE2 (-2) WRITE (NO,47) GO TO 100 C C TERMINATION C 900 CONTINUE CALL PAGE2 (-4) WRITE (NO,901) 901 FORMAT ('0*** END OF MPL PRINTOUT') WRITE (NO,902) MPLID,NPAD 902 FORMAT ('0*** THE MPL CONTAINS ',I3,' ENTRYS. OF THESE, ',I3, 1 ' ARE PAD ENTRYS.') C RETURN C C ERROR MESSAGES C 9901 WRITE (NO,9951) SWM,I2,LMPL 9951 FORMAT (A27,' 65, POINTER I2 =',I10,' DOES NOT AGREE WITH LMPL =', 1 I11) GO TO 9995 C 9902 WRITE (NO,9952) SWM 9952 FORMAT (A27,' 66, ILLEGAL PARAMETER TYPE CODE.') GO TO 9995 C 9903 WRITE (NO,9953) SWM 9953 FORMAT (A27,' 67, ERROR IN PARAMETER SEQUENCE.') GO TO 9995 C 9904 WRITE (NO,9954) SWM 9954 FORMAT (A27,' 68, ILLEGAL WORD COUNT.') C C 9995 CALL PAGE2 (4) WRITE (NO,9996) 9996 FORMAT (5X,'MPL TABLE LISTING CANCELLED.') C RETURN END ================================================ FILE: mis/mpy3.f ================================================ SUBROUTINE MPY3 C***** C PRIMARY DRIVER FOR MATRIX TRIPLE PRODUCT. C C ASSOCIATED SUBROUTINES C MPY3DR - SECONDARY DRIVER. SETS UP OPEN CORE AND DETERMINES C SOLUTION METHOD. C MPY3IC - IN-CORE PRODUCT. C MPY3OC - OUT-OF-CORE PRODUCT. C MPY3A - PREPARES B AND A(T). C MPY3B - PROCESSES A AND PERFORMS FIRST PART OF PRODUCT. C MPY3P - PERFORMS MULTIPLICATION AND SUMMATION. C MPY3NU - CALCULATES NEXT TIME USED FOR INDIVIDUAL COLUMNS OF B C OR ENTRIES OF A. C MPY3C - PERFORMS MULTIPLICATION AND SUMMATION FOR REMAINING C TERMS IN COLUMN OF A. C C DMAP CALLING SEQUENCE C C MPY3 A,B,E / C / C,N,CODE/ C,N,PREC $ C***** INTEGER FILEA,FILEB,FILEE,FILEC,CODE,PREC, SCR1,SCR2,SCR3 C C DMAP PARAMETERS COMMON /BLANK / IBCC,IBCP C FILES COMMON /MPY3TL/ FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2, 1 SCR3,LCORE,CODE,PREC,DUMMY(13) C OPEN CORE COMMON /ZZZZZZ/ Z(1) C C***** C ASSIGN GINO FILE NUMBERS. C***** FILEA(1) = 101 FILEB(1) = 102 FILEE(1) = 103 SCR1 = 301 SCR2 = 302 SCR3 = 303 CODE = IBCC PREC = IBCP LCORE = KORSZ(Z) C***** C GET MATRIX TRAILERS C***** CALL RDTRL (FILEA) CALL RDTRL (FILEB) CALL RDTRL (FILEE) IF (FILEE(1) .LT. 0) FILEE(1) = 0 C CALL MAKMCB (FILEC,201,FILEA(2),1,PREC) IF (CODE .EQ. 0) GO TO 10 IF (CODE .EQ. 2) FILEC(3) = FILEB(3) IF (CODE.EQ.1 .AND. FILEA(2).NE.FILEB(2)) FILEC(4) = 2 IF (CODE.EQ.2 .AND. FILEB(3).NE.FILEA(2)) FILEC(4) = 2 C***** C PERFORM MULTIPLY C***** 10 CALL MPY3DR (Z) CALL WRTTRL (FILEC) C RETURN END ================================================ FILE: mis/mpy3a.f ================================================ SUBROUTINE MPY3A (Z,IZ,DZ) C***** C PREPARES B AND A(T). C***** DOUBLE PRECISION DZ(1),DA C C C INTEGER FILEA,FILEB,SCR1,SCR2,FILE INTEGER BUF1,BUF2,BUF3 INTEGER PREC,PRECN INTEGER ZPNTRS INTEGER TYPIN,TYPOUT,ROW1,ROWM INTEGER UTYP,UROW1,UROWN,UINCR INTEGER EOL,EOR INTEGER PRECL C C C DIMENSION Z(1),IZ(1) DIMENSION NAME(2) DIMENSION MCB(7) C C C FILES COMMON / MPY3TL / FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2, 1 SCR,LKORE,CODE,PREC,LCORE,SCR3(7),BUF1,BUF2, 2 BUF3,BUF4,E C SUBROUTINE CALL PARAMETERS COMMON / MPY3CP / ITRL,ICORE,N,NCB,M,DUMCP(3),ZPNTRS(22),LAEND C PACK COMMON / PACKX / TYPIN,TYPOUT,ROW1,ROWM,INCR C UNPACK COMMON / UNPAKX / UTYP,UROW1,UROWN,UINCR C TERMWISE MATRIX READ COMMON / ZNTPKX / A(2),DUM(2),IROW,EOL,EOR C C C EQUIVALENCE (IPOINT,ZPNTRS(3)), (NPOINT,ZPNTRS(4)), * (IACOLS,ZPNTRS(5)), (ITRANS,ZPNTRS(7)), * (IBCOLS,ZPNTRS(11)) EQUIVALENCE (A(1),DA) C C C DATA NAME / 4HMPY3,4HA / C***** C FILE OPENING. C***** FILE = SCR1 CALL OPEN(*901,SCR1,Z(BUF2),1) FILE = FILEB(1) CALL OPEN(*901,FILEB,Z(BUF3),0) CALL FWDREC(*902,FILEB) C***** C UNPACK B AND PACK INTO SCRATCH FILE 1. C***** C PACK PARAMETERS TYPIN = PREC TYPOUT = PREC ROW1 = 1 ROWM = N INCR = 1 C UNPACK PARAMETERS UTYP = PREC UROW1 = 1 UROWN = N UINCR = 1 PRECN = PREC*N MCB(1) = 301 MCB(2) = 0 MCB(3) = N MCB(4) = 1 MCB(5) = PREC MCB(6) = 0 MCB(7) = 0 DO 50 K=1,NCB CALL UNPACK(*20,FILEB,Z(IBCOLS)) GO TO 40 20 IB = IBCOLS - 1 DO 30 L=1,PRECN IB = IB + 1 30 Z(IB) = 0. 40 CALL PACK (Z(IBCOLS),SCR1,MCB) CALL SAVPOS (SCR1,IZ(K)) 50 CONTINUE CALL CLOSE (SCR1,1) CALL CLOSE (FILEB,1) IF (ICORE .EQ. 1) GO TO 9999 C***** C INITIALIZE ARRAY CONTAINING POINTERS TO ROWS OF MATRIX A TO 0. C***** DO 100 L=IPOINT,NPOINT 100 IZ(L) = 0 C***** C COUNT NO. OF NON-ZERO COLUMNS IN EACH ROW OF A. C***** FILE = FILEA(1) CALL OPEN(*901,FILEA,Z(BUF1),0) CALL FWDREC(*902,FILEA) DO 120 I=1,M CALL INTPK(*120,FILEA,0,PREC,0) 110 CALL ZNTPKI II = IPOINT + IROW - 1 IZ(II) = IZ(II) + 1 IF (EOL .EQ. 1) GO TO 120 GO TO 110 120 CONTINUE C***** C CALCULATE POINTERS TO ROWS OF MATRIX A. C***** JJ = 1 DO 130 L=IPOINT,NPOINT IF (IZ(L) .EQ. 0) GO TO 130 INCRJJ = IZ(L) IZ(L) = JJ JJ = JJ + INCRJJ 130 CONTINUE LAEND = JJ - 1 C***** C PROCESS A(T) MATRIX. C***** FILE = FILEA(1) CALL REWIND (FILEA) CALL FWDREC(*902,FILEA) JJ2 = IACOLS + LAEND - 1 DO 200 JJ=IACOLS,JJ2 200 IZ(JJ) = 0 DO 250 J=1,M CALL INTPK(*250,FILEA,0,PREC,0) 210 CALL ZNTPKI L = IPOINT + IROW - 1 JJ = IZ(L) JJC = IACOLS + JJ - 1 220 IF (IZ(JJC) .EQ. 0) GO TO 230 JJ = JJ + 1 JJC = JJC + 1 GO TO 220 230 IZ(JJC) = J IF (PREC .EQ. 2) GO TO 240 JJT = ITRANS + JJ - 1 Z(JJT) = A(1) IF (EOL .EQ. 1) GO TO 250 GO TO 210 240 JJT = (ITRANS - 1)/2 + JJ DZ(JJT) = DA IF (EOL .EQ. 1) GO TO 250 GO TO 210 250 CONTINUE PRECL = PREC*LAEND CALL CLOSE (FILEA,1) GO TO 9999 C***** C ERROR MESSAGES. C***** 901 NERR = -1 GO TO 1001 902 NERR = -2 1001 CALL MESAGE (NERR,FILE,NAME) C 9999 RETURN END ================================================ FILE: mis/mpy3b.f ================================================ SUBROUTINE MPY3B (Z,IZ,DZ) C***** C PROCESSES A AND PERFORMS FIRST PART OF PRODUCT. C***** DOUBLE PRECISION DZ(1),DA C C C INTEGER FILEA,SCR1,SCR2,FILE INTEGER PREC,PRECN INTEGER ZPNTRS INTEGER UTYP,UROW1,UROWN,UINCR INTEGER EOL,EOR INTEGER PRECK C C C LOGICAL FIRST1,FIRST2 C C C DIMENSION Z(1),IZ(1) DIMENSION NAME(2) C C C FILES COMMON / MPY3TL / FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2, 1 SCR,LKORE,CODE,PREC,LCORE,SCR3(7),BUF1,BUF2, 2 BUF3,BUF4,E C SUBROUTINE CALL PARAMETERS COMMON / MPY3CP / ITRL,ICORE,N,NCB,M,NK,DUMCP(2),ZPNTRS(22),LAEND, 1 FIRST1,FIRST2,K,K2,KCOUNT,IFLAG,KA,KB,J,I,NTBU C UNPACK COMMON / UNPAKX / UTYP,UROW1,UROWN,UINCR C TERMWISE MATRIX READ COMMON / ZNTPKX / A(2),DUM(2),IROW,EOL,EOR C C C EQUIVALENCE (A(1),DA) C OPEN CORE POINTERS EQUIVALENCE (IBCOLS,ZPNTRS(11)), (IBCID,ZPNTRS(13)), * (IBNTU,ZPNTRS(15)), (IKTBP,ZPNTRS(17)), * (IAKJ,ZPNTRS(21)) C C C DATA NAME / 4HMPY3,4HB / C***** C INITIALIZATION. C***** FILE = SCR1 UTYP = PREC UROW1 = 1 UROWN = N UINCR = 1 PRECN = PREC*N C***** C READ AND STORE COLUMN OF A. C***** K = 0 KT = IKTBP - 1 IF (PREC .EQ. 2) GO TO 20 C SINGLE PRECISION CASE KJ = IAKJ - 1 CALL INTPK(*120,FILEA,0,1,0) 10 CALL ZNTPKI K = K + 1 KT = KT + 1 IZ(KT) = IROW KJ = KJ + 1 Z(KJ) = A(1) IF (EOL .EQ. 1) GO TO 30 GO TO 10 C DOUBLE PRECISION CASE 20 KJ = (IAKJ - 1)/2 CALL INTPK(*120,FILEA,0,2,0) 25 CALL ZNTPKI K = K + 1 KT = KT + 1 IZ(KT) = IROW KJ = KJ + 1 DZ(KJ) = DA IF (EOL .EQ. 1) GO TO 30 GO TO 25 30 IF (.NOT. FIRST1) GO TO 80 C***** C READ COLUMNS OF B INTO CORE. C***** FIRST1 = .FALSE. IF (K .GT. NK) GO TO 40 K2 = K GO TO 50 40 K2 = NK 50 KT = IKTBP - 1 KB = IBCOLS - PRECN KBC = IBCID - 1 DO 60 KK=1,K2 KT = KT + 1 KKK = IZ(KT) CALL FILPOS (SCR1,IZ(KKK)) KB = KB + PRECN CALL UNPACK(*55,SCR1,Z(KB)) GO TO 59 55 IB = KB - 1 DO 57 L=1,PRECN IB = IB + 1 57 Z(IB) = 0. 59 CONTINUE KBC = KBC + 1 IZ(KBC) = KKK 60 CONTINUE C***** C BEGIN CALCULATING MATRIX PRODUCT. C***** 80 KT = IKTBP - 1 KCOUNT = 0 PRECK = PREC*K DO 110 KA=1,K KT = KT + 1 KBC = IBCID - 1 DO 90 KB=1,K2 KBC = KBC + 1 IF (IZ(KT) .EQ. IZ(KBC)) GO TO 100 90 CONTINUE GO TO 110 100 KKB = KB CALL MPY3P (Z,Z,Z) IZ(KT) = 0 KCOUNT = KCOUNT + 1 IF (FIRST2 .OR. ICORE .EQ. 1) GO TO 110 I = IZ(KBC) CALL MPY3NU (Z) KBN = IBNTU + KKB - 1 IZ(KBN) = NTBU 110 CONTINUE C***** C SET RETURN FLAG. C***** IF (KCOUNT .EQ. K) GO TO 120 IFLAG = 1 GO TO 9999 120 IFLAG = 0 IF (ICORE .NE. 1 .OR. FIRST2) GO TO 9999 IF (J .EQ. M) GO TO 9999 FILE = SCR2 CALL FWDREC(*902,SCR2) GO TO 9999 C***** C ERROR MESSAGES. C***** 902 NERR = -2 CALL MESAGE (NERR, FILE, NAME) C 9999 RETURN END ================================================ FILE: mis/mpy3c.f ================================================ SUBROUTINE MPY3C (Z,IZ,DZ) C***** C PERFORMS MULTIPLICATION AND SUMMATION FOR REMAINING TERMS OF COLUMN C OF A. C***** INTEGER PREC INTEGER SCR1,SCR2,FILE INTEGER ZPNTRS INTEGER UTYP,UROW1,UROWN,UINCR INTEGER PRECN C C C LOGICAL FIRST2 C C C DIMENSION Z(1),IZ(1) C DIMENSION NAME(2) C C C FILES COMMON / MPY3TL / FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2, 1 SCR,LKORE,CODE,PREC,LCORE,SCR3(7),BUF1,BUF2, 2 BUF3,BUF4,E C SUBROUTINE CALL PARAMETERS COMMON / MPY3CP / ITRL,ICORE,N,NCB,M,NK,DUM1(2),ZPNTRS(22), 1 DUM2(2),FIRST2,K,K2,KCOUNT,IFLAG,KA,LTBC,J, 2 LTAC,NTBU C UNPACK COMMON / UNPAKX / UTYP,UROW1,UROWN,UINCR C C C EQUIVALENCE (IBCOLS,ZPNTRS(11)), (IBCID,ZPNTRS(13)), * (IBNTU,ZPNTRS(15)), (IKTBP,ZPNTRS(17)), * (IANTU,ZPNTRS(19)) C C C C DATA NAME / 4HMPY3,4HC / C***** C INITIALIZATION. C***** UTYP = PREC UROW1 = 1 UROWN = N UINCR = 1 PRECN = PREC*N FILE = SCR1 C***** C TEST TO SEE IF LESS THAN NK COLUMNS OF B IN CORE. C***** IF (FIRST2) GO TO 30 C***** C DETERMINE WHICH COLUMN OF B TO BE PUT INTO CORE. C***** LTA = 0 IA = IANTU - 1 DO 10 I=1,K IA = IA + 1 IF (LTA .GE. IZ(IA)) GO TO 10 LTA = IZ(IA) IK = IKTBP + I - 1 LTAC= IZ(IK) KA = I 10 CONTINUE C***** C DETERMINE WHICH COLUMN OF B TO BE REPLACED. C***** LTB = 0 IB = IBNTU - 1 DO 20 I=1,NK IB = IB + 1 IF (LTB .GE. IZ(IB)) GO TO 20 LTB = IZ(IB) LTBC = I 20 CONTINUE GO TO 50 C***** C LESS THAN NK COLUMNS OF B IN CORE. C***** 30 K2 = K2 + 1 LTBC= K2 KK = IKTBP - 1 DO 40 KA=1,K KK = KK + 1 IF (IZ(KK) .EQ. 0) GO TO 40 LTAC = IZ(KK) GO TO 50 40 CONTINUE C***** C ADD OR REPLACE COLUMN OF B INTO CORE. C***** 50 CALL FILPOS (SCR1,IZ(LTAC)) KK = IBCOLS + PRECN*(LTBC - 1) CALL UNPACK(*55,SCR1,Z(KK)) GO TO 59 55 IK = KK - 1 DO 57 L=1,PRECN IK = IK + 1 57 Z(IK) = 0. 59 CONTINUE IF (FIRST2) GO TO 70 IF (ICORE .EQ. 1) GO TO 60 CALL MPY3NU (Z) KK = IBNTU + LTBC - 1 IZ(KK) = NTBU 60 KK = IANTU + KA - 1 IZ(KK) = 0 70 KK = IBCID + LTBC - 1 IZ(KK) = LTAC KB = LTBC C***** C PERFORM COMPUTATION. C***** CALL MPY3P (Z,Z,Z) LTBC = KB KK = IKTBP + KA - 1 IZ(KK) = 0 KCOUNT = KCOUNT + 1 RETURN END ================================================ FILE: mis/mpy3dr.f ================================================ SUBROUTINE MPY3DR (Z) C C SECONDARY DRIVER IF MPY3DR IS CALLED BY MPY3 C PRIMARY DRIVER IF CALLED BY OTHERS (COMB2 AND MRED2 GROUP) C C SETS UP OPEN CORE AND DETERMINES SOLUTION METHOD. C IMPLICIT INTEGER (A-Z) EXTERNAL ANDF,ORF,COMPLF,LSHIFT LOGICAL E INTEGER Z(1),MPY(3),MCB(7,3),NAME(2) REAL RHOA,RHOB,RHOE,TCOL,TIMCON,TIMEM,TIMEM1,TIMEM2, 1 TIMEM3 DOUBLE PRECISION DD,NN,MM,PP,XX CHARACTER UFM*23,UWM*25,UIM*29 CWKBI 4/94 COMMON /LOGOUT/ LOUT COMMON /XMSSG / UFM,UWM,UIM COMMON /MPY3TL/ FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2, 1 SCR3,LKORE,CODE,PREC,LCORE,SCR(7),BUF1,BUF2, 2 BUF3,BUF4,E COMMON /MPY3CP/ ITRL,ICORE,N,NCB,M,NK,D,MAXA,DUMCP(34) COMMON /NTIME / TIMCON(16) COMMON /SYSTEM/ SYSBUF,NOUT,DUM1(22),DIAG,DUM2(32),METH COMMON /MPYADX/ MFILEA(7),MFILEB(7),MFILEE(7),MFILEC(7),MCORE, 1 MT,SIGNAB,SIGNC,MPREC,MSCR,TIMEM EQUIVALENCE (AC,FILEA(2)), (AR,FILEA(3)), 1 (BC,FILEB(2)), (BR,FILEB(3)), 2 (BF,FILEB(4)), (EC,FILEE(2)), 3 (ER,FILEE(3)), (EF,FILEE(4)) EQUIVALENCE (MCB(1,1),FILEA(1)) DATA NAME / 4HMPY3,4HDR / DATA MPY / 4HMPY3,4H ,4H / DATA JBEGN , JEND /4HBEGN,4HEND / C C RETURN IF EITHER A OR B IS PURGED C IF (FILEA(1) .LT. 0) RETURN IF (FILEB(1) .LT. 0) RETURN C C TEST FOR MATRIX COMPATABILITY. C MPY(3) = JBEGN CALL CONMSG (MPY,3,0) C SCR(1) = SCR3 IF (CODE .NE. 0) GO TO 5 IF (BF.EQ.2 .OR. BF.EQ. 7) GO TO 901 5 IF (AR.NE.BR .AND. CODE.EQ.1) GO TO 902 IF (AR.NE.BC .AND. CODE.NE.1) GO TO 903 IF (FILEE(1) .LE. 0) GO TO 15 E = .TRUE. IF (CODE .NE. 0) GO TO 10 IF (EF.EQ.2 .OR. EF.EQ.7) GO TO 905 10 IF (EC.NE.BC .AND. CODE.EQ.1) GO TO 909 IF (EC.NE.AC .AND. CODE.NE.1) GO TO 904 IF (ER.NE.AC .AND. CODE.EQ.1) GO TO 910 IF (ER.NE.BR .AND. CODE.EQ.2) GO TO 906 GO TO 30 C 15 E = .FALSE. DO 20 I = 1,7 20 FILEE(I) = 0 C C CORE ALLOCATION. C 30 BUF1 = LKORE - SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF LCORE= BUF4 - 1 IF (LCORE .LT. 0) GO TO 2008 C C IF REQUESTED CALCULATE THE OUTPUT PRECISION C IF (PREC.GE.1 .AND. PREC.LE.4) GO TO 46 IPRC = 1 ITYP = 0 DO 45 I = 1,3 IF (MCB(5,I).EQ.2 .OR. MCB(5,I).EQ.4) IPRC = 2 IF (MCB(5,I) .GE. 3) ITYP = 2 45 CONTINUE PREC = ITYP + IPRC IF (PREC .LE. 2) FILEC(5) = PREC 46 CONTINUE C C DETERMINE NK, THE NUMBER OF COLUMNS OF B MATRIX ABLE TO BE HELD C IN CORE. C N = FILEB(3) NCB = FILEB(2) M = FILEA(2) D = FILEA(7) + 1 MAXA= FILEA(6)/FILEA(5) C C (NCB SHOULD BE USED IN THE ABOVE EQUATION INSTEAD OF N. SEE C MPY3IC) C DD = D NN = NCB MM = M PP = 1 + PREC XX = DD*PP*NN*MM/10000.D0 IXX= XX + 0.5D0 NK = (LCORE - 2*NCB - IXX - PREC*M - PREC - (2+PREC)*MAXA)/ 1 (2+PREC*N) C C SET UP CONSTANTS IN MPYADX COMMON C MSCR = SCR2 MCORE = LKORE MPREC = 0 SIGNAB= 1 SIGNC = 1 C C CALCULATE PROPERTIES OF THE MATRICES C RHOA = (FILEA(7)+1)/10000. RHOB = (FILEB(7)+1)/10000. RHOE = (FILEE(7)+1)/10000. AELMS = AR*AC*RHOA BELMS = BR*BC*RHOB EELMS = ER*EC*RHOE C C CALCULATE MPY3 TIME ESTIMATE - REMEMBER NO COMPLEX FOR MPY3 C CALL SSWTCH (19,L19) TIMEM3 = 1.0E+10 IF (PREC .GE. 3) GO TO 100 IF (CODE .EQ. 1) GO TO 100 TIMEM3 = (RHOA + 2./FLOAT(M))*FLOAT(M)*FLOAT(N)* 1 (FLOAT(M) + FLOAT(N))*TIMCON(8+PREC) + 2 (FLOAT(N)**2 + FLOAT(M)**2 + RHOA*FLOAT(M)* 3 FLOAT(N)*(2. + FLOAT(M)))*TIMCON(5) TIMEM3 = TIMEM3/1.0E6 CWKBR 4/94 IF (L19 .NE. 0) WRITE (NOUT,50) FILEA(1),AR,AC,AELMS,RHOA, IF (L19 .NE. 0) WRITE (LOUT,50) FILEA(1),AR,AC,AELMS,RHOA, 1 FILEB(1),BR,BC,BELMS,RHOB, 2 FILEE(1),ER,EC,EELMS,RHOE, 3 CODE,LCORE,NK,TIMEM3 50 FORMAT (50H0(A MAT ROWS COLS TERMS DENS) (B MAT ROWS , 1 50H COLS TERMS DENS) (E MAT ROWS COLS TERMS , 2 32H DENS) C CORE NK TIME / 3 3(I6,I7,I6,I9,F7.4,1X),I2,I6,I6,F10.1 ) C IF (NK.GE.3 .OR. CODE.EQ.2) GO TO 70 DO 60 I = 1,7 MFILEA(I) = FILEA(I) 60 MFILEE(I) = FILEE(I) CALL MAKMCB (MFILEB,SCR1,BR,2,PREC) MFILEB(2) = AC TCOL = FLOAT(BELMS)*FLOAT(AELMS)/FLOAT(AR)/FLOAT(AC) MFILEB(6) = TCOL + 1.0 MFILEB(7) = TCOL/BR*1.0E+4 MFILEC(1) = -1 MFILEC(5) = PREC MT = 1 CALL MPYAD (Z(1),Z(1),Z(1)) TIMEM3 = TIMEM3 + TIMEM C CWKBR 4/94 70 WRITE (NOUT,80) UIM,TIMEM3 70 WRITE (LOUT,80) UIM,TIMEM3 80 FORMAT (A29,' 6525, TRIPLE MULTIPLY TIME ESTIMATE FOR MPY3 = ', 1 F10.1,' SECONDS.') C C CALCULATE MPYAD TIME ESTIMATE FOR (AT*B)*A + E C 100 TIMEM1 = 1.0E+10 IF (CODE .EQ. 2) GO TO 200 DO 110 I = 1,7 MFILEA(I) = FILEA(I) MFILEB(I) = FILEB(I) IF (CODE .EQ. 1) MFILEE(I) = FILEE(I) IF (CODE .NE. 1) MFILEE(I) = 0 110 CONTINUE CALL MAKMCB (MFILEC,-1,AC,2,PREC) MT = 1 CALL MPYAD (Z(1),Z(1),Z(1)) TIMEM1 = TIMEM IF (CODE .EQ. 1) GO TO 130 C DO 120 I = 1,7 MFILEB(I) = MFILEA(I) MFILEA(I) = MFILEC(I) 120 MFILEE(I) = FILEE(I) MFILEA(1) = SCR1 MFILEA(2) = BC TCOL = FLOAT(BELMS)*FLOAT(AELMS)/FLOAT(AR)/FLOAT(BC) MFILEA(6) = TCOL + 1.0 MFILEA(7) = TCOL/AC*1.0E+4 MT = 0 CALL MPYAD (Z(1),Z(1),Z(1)) TIMEM1 = TIMEM1 + TIMEM C CWKBR 4/94 130 WRITE (NOUT,140) UIM,TIMEM1 130 WRITE (LOUT,140) UIM,TIMEM1 140 FORMAT (A29,' 6525, TRIPLE MULTIPLY TIME ESTIMATE FOR MPYAD - ', 1 '(AT*B)*A + E = ',F10.1,' SECONDS.') C C CALCULATE MPYAD TIME ESTIMATE FOR AT*(B*A) + E C 200 TIMEM2 = 1.0E+10 IF (CODE .EQ. 1) GO TO 290 DO 210 I = 1,7 MFILEA(I) = FILEB(I) MFILEB(I) = FILEA(I) IF (CODE .EQ. 2) MFILEE(I) = FILEE(I) IF (CODE .NE. 2) MFILEE(I) = 0 210 CONTINUE CALL MAKMCB (MFILEC,-1,BR,2,PREC) MT = 0 CALL MPYAD (Z(1),Z(1),Z(1)) TIMEM2 = TIMEM IF (CODE .EQ. 2) GO TO 230 C DO 220 I = 1,7 MFILEA(I) = MFILEB(I) MFILEB(I) = MFILEC(I) 220 MFILEE(I) = FILEE(I) MFILEB(1) = SCR1 MFILEB(2) = AC TCOL = FLOAT(BELMS)*FLOAT(AELMS)/FLOAT(AR)/FLOAT(AC) MFILEB(6) = TCOL + 1.0 MFILEB(7) = TCOL/BR*1.0E+4 MT = 1 CALL MPYAD (Z(1),Z(1),Z(1)) TIMEM2 = TIMEM2 + TIMEM C CWKBR 4/94 230 WRITE (NOUT,240) UIM,TIMEM2 230 WRITE (LOUT,240) UIM,TIMEM2 240 FORMAT (A29,' 6525, TRIPLE MULTIPLY TIME ESTIMATE FOR MPYAD - ', 1 'AT*(B*A) + E = ',F10.1,' SECONDS.') C C CHOOSE METHOD BASED ON THE BEST TIME ESTIMATE OR USER REQUEST C 290 CALL TMTOGO (TTG) IF (FLOAT(TTG) .LE. 1.2*AMIN1(TIMEM3,TIMEM1,TIMEM2)) GO TO 908 DIAG = ANDF(DIAG,COMPLF(LSHIFT(1,18))) KMETH = METH JMETH = METH METH = 0 IF (JMETH.LT.1 .OR. JMETH.GT.3) JMETH = 0 IF (JMETH.EQ.1 .AND. CODE.EQ.2) JMETH = 0 IF (JMETH.EQ.2 .AND. CODE.EQ.1) JMETH = 0 IF (JMETH.EQ.3 .AND. CODE.EQ.1) JMETH = 0 IF (JMETH .NE. 0) GO TO (400,500,300), JMETH FILEC(4) = FILEB(4) C IF (TIMEM3.LT.TIMEM1 .AND. TIMEM3.LT.TIMEM2) GO TO 300 IF (TIMEM1 .LT. TIMEM2) GO TO 400 GO TO 500 C C PERFORM MULTIPLY WITH MPY3 C 300 IF (NK .LT. 3) GO TO 310 ICORE = 0 CALL MPY3IC (Z(1),Z(1),Z(1)) GO TO 9999 C C OUT OF CORE PROCESSING FOR MPY3 C 310 ICORE = 1 CWKBR 4/94 WRITE (NOUT,320) UIM WRITE (LOUT,320) UIM 320 FORMAT (A29,' 6526, THE CENTER MATRIX IS TOO LARGE FOR', /5X, 1 'IN-CORE PROCESSING. OUT-OF-CORE PROCESSING WILL BE ', 2 'PERFORMED.') C NK = (LCORE - 4*NCB - PREC*M - (2+PREC)*MAXA)/(2+PREC*N) CALL MPY3OC (Z(1),Z(1),Z(1)) FILEC(4) = FILEB(4) GO TO 9999 C C PERFORM MULTIPLY WITH MPYAD DOING (AT * B) FIRST C 400 DO 410 I = 1,7 MFILEA(I) = FILEA(I) MFILEB(I) = FILEB(I) IF (CODE .EQ. 1) MFILEE(I) = FILEE(I) IF (CODE .NE. 1) MFILEE(I) = 0 410 CONTINUE CALL MAKMCB (MFILEC,SCR1,AC,2,PREC) IF (CODE .EQ. 1) MFILEC(1) = FILEC(1) MT = 1 CALL MPYAD (Z(1),Z(1),Z(1)) IF (CODE .EQ. 1) GO TO 425 CALL WRTTRL (MFILEC) C DO 420 I = 1,7 MFILEB(I) = MFILEA(I) MFILEA(I) = MFILEC(I) 420 MFILEE(I) = FILEE(I) CALL MAKMCB (MFILEC,FILEC(1),AC,FILEB(4),PREC) MT = 0 CALL MPYAD (Z(1),Z(1),Z(1)) 425 DO 430 I = 1,7 430 FILEC(I) = MFILEC(I) GO TO 9999 C C PERFORM MULTIPLY WITH MPYAD DOING (B*A) FIRST C 500 DO 510 I = 1,7 MFILEA(I) = FILEB(I) MFILEB(I) = FILEA(I) IF (CODE .EQ. 2) MFILEE(I) = FILEE(I) IF (CODE .NE. 2) MFILEE(I) = 0 510 CONTINUE CALL MAKMCB (MFILEC,SCR1,BR,2,PREC) IF (CODE .EQ. 2) MFILEC(1) = FILEC(1) MT = 0 CALL MPYAD (Z(1),Z(1),Z(1)) IF (CODE .EQ. 2) GO TO 525 CALL WRTTRL (MFILEC) C DO 520 I = 1,7 MFILEA(I) = MFILEB(I) MFILEB(I) = MFILEC(I) 520 MFILEE(I) = FILEE(I) CALL MAKMCB (MFILEC,FILEC(1),AC,FILEB(4),PREC) MT = 1 CALL MPYAD (Z(1),Z(1),Z(1)) 525 DO 530 I = 1,7 530 FILEC(I) = MFILEC(I) GO TO 9999 C C ERROR MESSAGES. C 901 WRITE (NOUT,9001) UFM GO TO 1001 902 WRITE (NOUT,9002) UFM GO TO 1001 903 WRITE (NOUT,9003) UFM GO TO 1001 904 WRITE (NOUT,9004) UFM GO TO 1001 905 WRITE (NOUT,9005) UFM GO TO 1001 906 WRITE (NOUT,9006) UFM GO TO 1001 908 WRITE (NOUT,9008) UFM GO TO 1001 909 WRITE (NOUT,9009) UFM GO TO 1001 910 WRITE (NOUT,9010) UFM 1001 CALL MESAGE (-37,0,NAME) 2008 CALL MESAGE ( -8,0,NAME) 9001 FORMAT (A23,'6551, MATRIX B IN MPY3 IS NOT SQUARE FOR A(T)BA + E', 1 ' PROBLEM.') 9002 FORMAT (A23,' 6552, NO. OF ROWS OF MATRIX A IN MPY3 IS UNEQUAL TO' 1, /5X,'NO. OF ROWS OF MATRIX B FOR A(T)B + E PROBLEM.') 9003 FORMAT (A23,' 6553, NO. OF ROWS OF MATRIX A IN MPY3 IS UNEQUAL TO' 1 /5X,'NO. OF COLUMNS OF MATRIX B FOR A(T)BA + E PROBLEM.') 9004 FORMAT (A23,' 6554, NO. OF COLUMNS OF MATRIX E IN MPY3 IS UNEQUAL' 1, /5X,'TO NO. OF COLUMNS OF MATRIX A FOR A(T)BA +E PROBLEM.') 9005 FORMAT (A23,' 6555, MATRIX E IN MPY3 IS NOT SQUARE FOR A(T)BA + ', 1 'E PROBLEM.') 9006 FORMAT (A23,' 6556, NO. OF ROWS OF MATRIX E IN MPY3 IS UNEQUAL TO' 1, /5X,'NO. OF ROWS OF MATRIX B FOR BA + E PROBLEM.') 9008 FORMAT (A23,' 6558, INSUFFICIENT TIME REMAINING FOR MPY3 ', 1 'EXECUTION.') 9009 FORMAT (A23,' 6524, NO. OF COLUMNS OF MATRIX E IN MPY3 IS UNEQUAL' 1, ' TO',/5X,'NO. OF COLUMNS OF MATRIX B FOR A(T)B + E ', 2 'PROBLEM.') 9010 FORMAT (A23,' 6559, NO. OF ROWS OF MATRIX E IN MPY3 IS UNEQUAL TO' 1, /5X,'NO. OF COLUMNS OF MATRIX A FOR A(T)B + E PROBLEM.') C C RETURN C 9999 DIAG = ORF(DIAG,LSHIFT(L19,18)) METH = KMETH MPY(3) = JEND CALL CONMSG (MPY,3,0) RETURN END ================================================ FILE: mis/mpy3ic.f ================================================ SUBROUTINE MPY3IC (Z,IZ,DZ) C C IN-CORE PRODUCT. C LOGICAL FIRST1,FIRST2,E INTEGER FILEA,FILEB,FILEE,FILEC,CODE,PREC,SCR1,SCR3,FILE, 1 BUF1,BUF2,BUF3,BUF4,D,ZPNTRS,TYPIN,TYPOUT,ROW1, 2 ROWM,UTYP,UROW1,UROWN,UINCR,EOL,EOR,PRECM DOUBLE PRECISION DZ(1),DD,NN,MM,PP DIMENSION Z(1),IZ(1),NAME(2) COMMON /MPY3TL/ FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2, 1 SCR,LKORE,CODE,PREC,LCORE,SCR3(7),BUF1,BUF2, 2 BUF3,BUF4,E COMMON /MPY3CP/ ITRL,ICORE,N,NCB,M,NK,D,MAXA,ZPNTRS(22),LAEND, 1 FIRST1,FIRST2,K,K2,KCOUNT,IFLAG,KA,LTBC,J,I,NTBU COMMON /PACKX / TYPIN,TYPOUT,ROW1,ROWM,INCR COMMON /UNPAKX/ UTYP,UROW1,UROWN,UINCR COMMON /ZNTPKX/ A(2),DUM(2),IROW,EOL,EOR COMMON /SYSTEM/ SYSBUF,NOUT EQUIVALENCE (ISAVP ,ZPNTRS( 1)), (NSAVP ,ZPNTRS( 2)), 1 (IPOINT,ZPNTRS( 3)), (NPOINT,ZPNTRS( 4)), 2 (IACOLS,ZPNTRS( 5)), (NACOLS,ZPNTRS( 6)), 3 (ITRANS,ZPNTRS( 7)), (NTRANS,ZPNTRS( 8)), 4 (IC ,ZPNTRS( 9)), (NC ,ZPNTRS(10)), 5 (IBCOLS,ZPNTRS(11)), (NBCOLS,ZPNTRS(12)), 6 (IBCID ,ZPNTRS(13)), (NBCID ,ZPNTRS(14)), 7 (IBNTU ,ZPNTRS(15)), (NBNTU ,ZPNTRS(16)), 8 (IKTBP ,ZPNTRS(17)), (NKTBP ,ZPNTRS(18)), 9 (IANTU ,ZPNTRS(19)), (NANTU ,ZPNTRS(20)), O (IAKJ ,ZPNTRS(21)), (NAKJ ,ZPNTRS(22)) DATA NAME / 4HMPY3,4HIC / C C C INITIALIZATION. C FIRST1 = .TRUE. FIRST2 = .TRUE. DD = D NN = NCB MM = M PP = PREC C C OPEN CORE POINTERS C ISAVP = 1 NSAVP = NCB IPOINT = NSAVP + 1 NPOINT = NSAVP + NCB IACOLS = NPOINT + 1 C NACOLS = NPOINT + D*NCB*M/10000 NACOLS = NPOINT + (DD*NN*MM/10000.D0 + 0.5D0) ITRANS = NACOLS + 1 IF (PREC.NE.1 .AND. MOD(ITRANS,2).NE.1) ITRANS = ITRANS + 1 C NTRANS = ITRANS + PREC*D*NCB*M/10000 - 1 NTRANS = ITRANS + (PP*DD*NN*MM/10000.D0 + 0.5D0) - 1 IC = NTRANS + 1 IF (PREC.NE.1 .AND. MOD(IC,2).NE.1) IC = IC + 1 NC = IC + PREC*M - 1 IBCOLS= NC + 1 NBCOLS= NC + PREC*N*NK IBCID = NBCOLS + 1 NBCID = NBCOLS + NK IBNTU = NBCID + 1 NBNTU = NBCID + NK IKTBP = NBNTU + 1 NKTBP = NBNTU + MAXA IANTU = NKTBP + 1 NANTU = NKTBP + MAXA IAKJ = NANTU + 1 NAKJ = NANTU + PREC*MAXA C C PACK PARAMETERS C TYPIN = PREC TYPOUT= PREC ROW1 = 1 INCR = 1 C C UNPACK PARAMETERS C UTYP = PREC UROW1 = 1 UINCR = 1 C C PREPARE B AND A(T). C CALL MPY3A (Z,Z,Z) C C OPEN FILES AND CHECK EXISTENCE OF MATRIX E. C IF (.NOT.E) GO TO 20 FILE = FILEE(1) CALL OPEN (*5001,FILEE,Z(BUF4),2) CALL FWDREC (*5002,FILEE) 20 FILE = FILEA(1) CALL OPEN (*5001,FILEA,Z(BUF1),2) CALL FWDREC (*5002,FILEA) FILE = SCR1 CALL OPEN (*5001,SCR1,Z(BUF2),0) FILE = FILEC(1) CALL GOPEN (FILEC,Z(BUF3),1) ROWM = FILEC(3) C C PROCESS COLUMNS OF C ONE BY ONE. C DO 1000 J = 1,M C C INITIALIZE COLUMN OF C. C DO 30 IX = IC,NC 30 Z(IX) = 0. IF (.NOT.E) GO TO 50 UROWN = M CALL UNPACK (*50,FILEE,Z(IC)) 50 PRECM = PREC*M C C PROCESS A AND PERFORM FIRST PART OF PRODUCT. C CALL MPY3B (Z,Z,Z) C C TEST IF PROCESSING IS COMPLETE C IF (IFLAG .EQ. 0) GO TO 900 C C PROCESS REMAINING TERMS OF COLUMN J OF A. C C TEST IF BCOLS IS FULL C 100 IF (K2 .LT. NK) GO TO 150 C C CALCULATE NEXT TIME USED FOR COLUMNS OF B AND/OR TERMS OF A C IF (.NOT.FIRST2) GO TO 120 FIRST2 = .FALSE. IBC = IBCID - 1 IB = IBNTU - 1 DO 110 II = 1,NK IBC= IBC + 1 I = IZ(IBC) CALL MPY3NU (Z) IB = IB + 1 110 IZ(IB) = NTBU 120 IK = IKTBP - 1 IA = IANTU - 1 DO 140 II = 1,K IK = IK + 1 IA = IA + 1 IF (IZ(IK) .EQ. 0) GO TO 130 I = IZ(IK) CALL MPY3NU (Z) IZ(IA) = NTBU GO TO 140 130 IZ(IA) = 0 140 CONTINUE C C ADD OR REPLACE COLUMN OF B INTO CORE AND PERFORM COMPUTATION C 150 CALL MPY3C (Z,Z,Z) IF (KCOUNT .EQ. K) GO TO 900 IF (FIRST2) GO TO 100 GO TO 150 C C PACK COLUMN OF C. C 900 CALL PACK (Z(IC),FILEC,FILEC) 1000 CONTINUE C C CLOSE FILES. C CALL CLOSE (FILEA,2) CALL CLOSE (SCR1,1) CALL CLOSE (FILEC,1) IF (E) CALL CLOSE (FILEE,2) GO TO 9999 C C ERROR MESSAGES. C 5001 NERR = -1 GO TO 6000 5002 NERR = -2 6000 CALL MESAGE (NERR,FILE,NAME) C 9999 RETURN END ================================================ FILE: mis/mpy3nu.f ================================================ SUBROUTINE MPY3NU (IZ) C C CALCULATES NEXT TIME USED FOR INDIVIDUAL COLUMNS OF B OR FOR ROWS C CORRESPONDING TO NON-ZERO TERMS IN COLUMN OF A. C INTEGER ZPNTRS DIMENSION IZ(1),NAME(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,NOUT COMMON /MPY3CP/ ITRL,ICORE,N,NCB,DUM1(4),ZPNTRS(22),LAEND, 1 DUM2(8),J,ID,NTBU EQUIVALENCE (IPOINT,ZPNTRS(3)),(IACOLS,ZPNTRS(5)) DATA NAME / 4HMPY3,4HNU / C C CALCULATION BY SEARCH THROUGH ROW OF A IN QUESTION. C LP = IPOINT + ID - 1 L1 = IZ(LP) IF (L1 .EQ. 0) GO TO 60 IF (ID .EQ. NCB) GO TO 20 LL = ID + 1 DO 10 L = LL,NCB LP = LP + 1 IF (IZ(LP) .EQ. 0) GO TO 10 L2 = IZ(LP) - 1 GO TO 30 10 CONTINUE 20 L2 = LAEND 30 LAC = IACOLS + L1 - 2 DO 40 L = L1,L2 LAC = LAC + 1 IF (J .LT. IZ(LAC)) GO TO 50 40 CONTINUE NTBU = 99999999 GO TO 80 50 NTBU = IZ(LAC) GO TO 80 C C ERROR MESSAGE. C 60 WRITE (NOUT,70) UFM 70 FORMAT (A23,' 6557, UNEXPECTED NULL COLUMN OF A(T) ENCOUNTERED.') CALL MESAGE (-37,0,NAME) C 80 RETURN END ================================================ FILE: mis/mpy3oc.f ================================================ SUBROUTINE MPY3OC (Z,IZ,DZ) C C OUT-OF-CORE PRODUCT. C LOGICAL FIRST1,FIRST2,FIRST3,E INTEGER FILEA,FILEE,FILEC,CODE,PREC,SCR1,SCR2,SCR3,FILE, 1 BUF1,BUF2,BUF3,BUF4,SYSBUF,ZPNTRS,EOL,EOR,PRECM, 2 TYPIN,TYPOUT,ROW1,ROWM,UTYP,UROW1,UROWN,UINCR, 3 BUF5,SIGNAB,SIGNC DOUBLE PRECISION DZ(1),DA DIMENSION Z(1),IZ(1),NAME(2),NAMS(2) C C MPYAD COMMON COMMON /MPYADX/ MFILEA(7),MFILEB(7),MFILEE(7),MFILEC(7),MCORE, 1 MT,SIGNAB,SIGNC,MPREC,MSCR C C FILES COMMON /MPY3TL/ FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2, 1 SCR,LKORE,CODE,PREC,LCORE,SCR3(7),BUF1,BUF2, 2 BUF3,BUF4,E C C SUBROUTINE CALL PARAMETERS COMMON /MPY3CP/ DUM1(2),N,NCB,M,NK,D,MAXA,ZPNTRS(22),LAEND, 1 FIRST1,FIRST2,K,K2,KCOUNT,IFLAG,KA,LTBC,J,LTAC C C PACK COMMON /PACKX / TYPIN,TYPOUT,ROW1,ROWM,INCR C C UNPACK COMMON /UNPAKX/ UTYP,UROW1,UROWN,UINCR C C TERMWISE MATRIX READ COMMON /ZNTPKX/ A(2),DUM(2),IROW,EOL,EOR C C SYSTEM PARAMETERS COMMON /SYSTEM/ SYSBUF,NOUT EQUIVALENCE (ISAVP,ZPNTRS(1)), (NSAVP,ZPNTRS(2)), 1 (INTBU,ZPNTRS(3)), (NNTBU,ZPNTRS(4)), 2 (ILAST,ZPNTRS(5)), (NLAST,ZPNTRS(6)), 3 (INTBU2,ZPNTRS(7)), (NNTBU2,ZPNTRS(8)), 4 (IC,ZPNTRS(9)), (NC,ZPNTRS(10)), 5 (IBCOLS,ZPNTRS(11)),(NBCOLS,ZPNTRS(12)), 6 (IBCID,ZPNTRS(13)), (NBCID,ZPNTRS(14)), 7 (IBNTU,ZPNTRS(15)), (NBNTU,ZPNTRS(16)), 8 (IKTBP,ZPNTRS(17)), (NKTBP,ZPNTRS(18)), 9 (IANTU,ZPNTRS(19)), (NANTU,ZPNTRS(20)), O (IAKJ,ZPNTRS(21)), (NAKJ,ZPNTRS(22)), 1 (A(1),DA) DATA NAME / 4HMPY3,4HOC / DATA NAMS / 4HSCR3,4H / C C RECALCULATION OF NUMBER OF COLUMNS OF B ABLE TO BE PUT IN CORE. C BUF5 = BUF4 - SYSBUF LCORE = BUF5 - 1 NK = (LCORE - 4*N - PREC*M - (2 + PREC)*MAXA)/(2 + PREC*N) IF (NK .LT. 1) GO TO 5008 C C INITIALIZATION. C FIRST1 = .TRUE. FIRST2 = .TRUE. FIRST3 = .FALSE. PRECM = PREC*M C C OPEN CORE POINTERS C ISAVP = 1 NSAVP = NCB INTBU = NSAVP + 1 NNTBU = NSAVP + NCB ILAST = NNTBU + 1 NLAST = NNTBU + NCB INTBU2 = NLAST + 1 NNTBU2 = NLAST + NCB IC = NNTBU2 + 1 NC = NNTBU2 + PREC*M IBCOLS = NC + 1 NBCOLS = NC + PREC*N*NK IBCID = NBCOLS + 1 NBCID = NBCOLS + NK IBNTU = NBCID + 1 NBNTU = NBCID + NK IKTBP = NBNTU + 1 NKTBP = NBNTU + MAXA IANTU = NKTBP + 1 NANTU = NKTBP + MAXA IAKJ = NANTU + 1 NAKJ = NANTU + PREC*MAXA KF = NSAVP KL = NNTBU KN2 = NLAST KBC = NBCOLS KBN = NBCID KT = NBNTU KAN = NKTBP C C PACK PARAMETERS C TYPIN = PREC TYPOUT= PREC ROW1 = 1 INCR = 1 C C UNPACK PARAMETERS C UTYP = PREC UROW1 = 1 UINCR = 1 C C MATRIX TRAILERS C CALL MAKMCB (SCR3,SCR3(1),N,2,PREC) IF (M .EQ. N) SCR3(4) = 1 C C PUT B ONTO SCRATCH FILE IN UNPACKED FORM. C CALL MPY3A (Z,Z,Z) C C OPEN FILES AND CHECK EXISTENCE OF MATRIX E. C IF (CODE.EQ.0 .OR. .NOT.E) GO TO 15 FILE = FILEE(1) CALL OPEN (*5001,FILEE,Z(BUF5),2) CALL FWDREC (*5002,FILEE) 15 FILE = FILEA(1) CALL OPEN (*5001,FILEA,Z(BUF1),0) CALL FWDREC (*5002,FILEA) FILE = SCR1 CALL OPEN (*5001,SCR1,Z(BUF2),0) FILE = SCR2 CALL OPEN (*5001,SCR2,Z(BUF3),1) IF (CODE .EQ. 0) GO TO 20 FILE = FILEC(1) CALL GOPEN (FILEC,Z(BUF4),1) ROWM = FILEC(3) GO TO 30 20 FILE = SCR3(1) CALL OPEN (*5001,SCR3,Z(BUF4),1) CALL WRITE (SCR3,NAMS,2,1) ROWM = SCR3(3) C C PROCESS SCR2 AND SET FIRST-TIME-USED AND LAST-TIME-USED FOR EACH C ROW OF A. C 30 DO 40 K = 1,NCB IZ(KF+K) = 0 40 IZ(KL+K) = 0 DO 90 J = 1,M K = 0 CALL INTPK (*80,FILEA,0,PREC,0) 50 CALL ZNTPKI K = K + 1 IZ(KT+K) = IROW IF (IZ(KF+IROW) .GT. 0) GO TO 60 IZ(KF+IROW) = J 60 IZ(KL+IROW) = J IF (EOL .EQ. 1) GO TO 70 GO TO 50 70 CALL WRITE (SCR2,IZ(IKTBP),K,0) 80 CALL WRITE (SCR2,0,0,1) 90 CONTINUE CALL CLOSE (FILEA,1) CALL OPEN (*5001,FILEA,Z(BUF1),2) CALL FWDREC (*5002,FILEA) CALL CLOSE (SCR2,1) CALL OPEN (*5001,SCR2,Z(BUF3),0) C C PROCESS COLUMNS OF A ONE AT A TIME. C DO 360 J = 1,M C C INITIALIZE SUM - ACCUMULATION MATRIX TO 0. C DO 100 I = IC,NC 100 Z(I) = 0. IF (CODE.EQ.0 .OR. .NOT.E) GO TO 105 UROWN = N CALL UNPACK (*105,FILEE,Z(IC)) C C PROCESS A AND PERFORM FIRST PART OF PRODUCT BA(J). C 105 CALL MPY3B (Z,Z,Z) C C TEST IF PROCESSING IS COMPLETE C IF (IFLAG .EQ. 0) GO TO 340 C C PROCESS REMAINING TERMS OF COLUMN J OF A. C C TEST IF BCOLS IS FULL C 110 IF (K2 .LT. NK) GO TO 330 C C CALCULATE NEW NEXT TIME USED VALUES C IF (FIRST3) GO TO 130 FIRST2 = .FALSE. FIRST3 = .TRUE. DO 120 JJ = 1,J 120 CALL FWDREC (*5002,SCR2) 130 FILE = SCR2 KC = 0 KN = KF DO 170 KA = 1,NCB KN = KN + 1 IF (J .GE. IZ(KN)) GO TO 140 KC = KC + 1 IF (J+1 .LT. IZ(KN )) GO TO 135 IF (J+1 .LT. IZ(KL+KA)) GO TO 160 IZ(KN2+KA) = 99999999 GO TO 136 135 IZ(KN2+KA) = IZ(KN) 136 KC = KC + 1 GO TO 170 140 IF (J .LT. IZ(KL+KA)) GO TO 150 IZ(KN) = 99999999 IZ(KN2+KA) = IZ(KN) KC = KC + 2 GO TO 170 150 IZ(KN ) = 0 160 IZ(KN2+KA) = 0 170 CONTINUE IF (KC .EQ. 2*NCB) GO TO 240 JJ = J + 1 180 CALL READ (*5002,*210,SCR2,KA,1,0,KK) IF (IZ(KN2+KA) .GT. 0) GO TO 180 IF (JJ .EQ. J+1) GO TO 190 IZ(KN2+KA) = JJ KC = KC + 1 190 IF (IZ(KF+KA) .GT. 0) GO TO 200 IZ(KF+KA) = JJ KC = KC + 1 200 IF (KC .EQ. 2*NCB) GO TO 220 GO TO 180 210 JJ = JJ + 1 GO TO 180 220 MM = M - 1 IF (J .EQ. MM) GO TO 290 C C POSITION SCRATCH FILE FOR NEXT PASS THROUGH C JJ = JJ - J J2 = J + 2 JJ1 = JJ - 1 IF (J2 .LT. JJ1) GO TO 250 IF (JJ1 .GT. 0) GO TO 270 230 CALL FWDREC (*5002,SCR2) GO TO 290 240 IF (J .EQ. M) GO TO 290 GO TO 230 250 CALL REWIND (SCR2) J1 = J + 1 DO 260 JFWD = 1,J1 260 CALL FWDREC (*5002,SCR2) GO TO 290 270 DO 280 JBCK = 1,JJ1 280 CALL BCKREC (SCR2) C C ASSIGN NEXT TIME USED TO COLUMNS OF B IN CORE C 290 DO 300 KK = 1,NK I = IZ(KBC+KK) 300 IZ(KBN+KK) = IZ(KF+I) C C ASSIGN NEXT TIME USED TO NON-ZERO TERMS IN COLUMN OF A C DO 320 KK = 1,K IF (IZ(KT+KK) .EQ. 0) GO TO 310 I = IZ(KT+KK) IZ(KAN+KK) = IZ(KF+I) GO TO 320 310 IZ(KAN+KK) = 0 320 CONTINUE C C PERFORM MULTIPLICATION AND SUMMATION FOR NEXT TERM OF COLUMN OF A C 330 CALL MPY3C (Z,Z,Z) C C TEST IF PROCESSING OF BA(J) IS COMPLETE C IF (KCOUNT .EQ. K) GO TO 340 IF (FIRST2) GO TO 110 IZ(KBN+LTBC) = IZ(KN2+LTAC) GO TO 330 C C PACK COLUMN OF C OR BA. C 340 IF (CODE .EQ. 0) GO TO 350 CALL PACK (Z(IC),FILEC,FILEC) GO TO 360 350 CALL PACK (Z(IC),SCR3,SCR3) 360 CONTINUE C C CLOSE FILES. C CALL CLOSE (FILEA,2) CALL CLOSE (SCR1,1) CALL CLOSE (SCR2,1) IF (.NOT.E) GO TO 369 CALL CLOSE (FILEE,2) 369 IF (CODE .EQ. 0) GO TO 370 CALL CLOSE (FILEC,1) GO TO 9999 370 CALL CLOSE (SCR3,1) CALL WRTTRL (SCR3) C C CALL MPYAD TO FINISH PRODUCT C DO 380 I = 1,7 MFILEA(I) = FILEA(I) MFILEB(I) = SCR3(I) MFILEE(I) = FILEE(I) 380 MFILEC(I) = FILEC(I) MT = 1 SIGNAB = 1 SIGNC = 1 MPREC = PREC MSCR = SCR1 CALL MPYAD (Z,Z,Z) GO TO 9999 C C ERROR MESSAGES. C 5001 NERR = -1 GO TO 6000 5002 NERR = -2 GO TO 6000 5008 NERR = -8 FILE = 0 6000 CALL MESAGE (NERR,FILE,NAME) C 9999 RETURN END ================================================ FILE: mis/mpy3p.f ================================================ SUBROUTINE MPY3P (Z,IZ,DZ) C***** C PERFORMS MULTIPLICATION AND SUMMATION. C***** DOUBLE PRECISION DZ(1),DFACT C C C INTEGER CODE,PREC INTEGER ZPNTRS C C C DIMENSION Z(1),IZ(1) C C C SUBROUTINE CALL PARAMETERS COMMON / MPY3CP / ITRL,ICORE,N,NCB,M,DUM1(3),ZPNTRS(22),LAEND, 1 DUM2(6),KA,KB C FILES COMMON / MPY3TL / FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2, 1 SCR,LKORE,CODE,PREC,LCORE,SCR3(7),BUF1,BUF2, 2 BUF3,BUF4,E C C C EQUIVALENCE (FACT,DFACT) C OPEN CORE POINTERS EQUIVALENCE (IPOINT,ZPNTRS(3)), (IACOLS,ZPNTRS(5)), * (ITRANS,ZPNTRS(7)), (IC,ZPNTRS(9)), * (IBCOLS,ZPNTRS(11)), (IAKJ,ZPNTRS(21)) C***** C LOOP FOR ACCUMULATING SUMS. C***** KJ = IAKJ + KA - 1 KJ2 = (IAKJ - 1)/2 + KA KB = IBCOLS + PREC*((KB - 1)*N - 1) IF (CODE .EQ. 2 .OR. ICORE .EQ. 1) GO TO 100 C***** C A(T)BA CASE. C***** LP = IPOINT - 1 DO 90 L=1,N C CALCULATE FACTOR = B(LK)*A(KJ) TO BE MULTIPLIED TO NON-ZERO TERMS IN C LTH COLUMN OF A(T) KB = KB + PREC LP = LP + 1 IF (IZ(LP) .EQ. 0) GO TO 90 IF (PREC .EQ. 2) GO TO 10 IF (Z(KB) .EQ. 0.0) GO TO 90 FACT = Z(KB)*Z(KJ) GO TO 20 10 KB2 = (KB + 1)/2 IF (DZ(KB2) .EQ. 0.0D0) GO TO 90 DFACT = DZ(KB2)*DZ(KJ2) 20 I1 = IZ(LP) IF (L .EQ. N) GO TO 40 C ACCUMULATE SUMS FOR NON-ZERO TERMS IN COLUMN L OF A(T) L1 = L + 1 LLP = LP DO 30 LL=L1,N LLP = LLP + 1 IF (IZ(LLP) .NE. 0) GO TO 50 30 CONTINUE 40 I2 = LAEND GO TO 60 50 I2 = IZ(LLP) - 1 60 IAC = IACOLS + I1 - 2 IF (PREC .EQ. 2) GO TO 80 C SINGLE PRECISION CASE IAT = ITRANS + I1 - 2 DO 70 I=I1,I2 IAC = IAC + 1 IAT = IAT + 1 II = IC + IZ(IAC) - 1 70 Z(II) = Z(II) + Z(IAT)*FACT GO TO 90 C DOUBLE PRECISION CASE 80 IAT = (ITRANS - 3)/2 + I1 DO 85 I=I1,I2 IAC = IAC + 1 IAT = IAT + 1 II = (IC - 1)/2 + IZ(IAC) 85 DZ(II) = DZ(II) + DZ(IAT)*DFACT III = (IC - 1)/2 + 1 90 CONTINUE GO TO 999 C***** C BA CASE. C***** 100 IF (PREC .EQ. 2) GO TO 140 C SINGLE PRECISION CASE II = IC - 1 DO 130 I=1,N II = II + 1 KB = KB + 1 IF (Z(KB) .EQ. 0.0) GO TO 130 Z(II) = Z(II) + Z(KB)*Z(KJ) 130 CONTINUE GO TO 999 C DOUBLE PRECISION CASE 140 II = (IC - 1)/2 KB = (KB + 1)/2 DO 150 I=1,N II = II + 1 KB = KB + 1 IF (DZ(KB) .EQ. 0.0D0) GO TO 150 DZ(II) = DZ(II) + DZ(KB)*DZ(KJ2) 150 CONTINUE C 999 RETURN END ================================================ FILE: mis/mpy4t.f ================================================ SUBROUTINE MPY4T (IZ,Z,DZ) C C INNER LOOP FOR MPYAD, METHOD 4 WITH TRANSPOSE C C T C A * B + C = D C C THIS ROUTINE IS CALLED ONLY BY MPYAD WHEN METHOD 2 TRANSPOSE, C MPY2T, IS SELECTED, AND DIAG 41 IS NOT TURNED ON BY USER. C C MPY4T IS ABOUT 5 TIMES FASTER THAN MPY2T AS TESTED ON VAX C C THERE IS A PICTORIAL DISCRIPTION ABOUT MPY4T IN MPYAD SUBROUTINE C C THIS MACHINE INDEPENDENT ROUTINE CAN ACTUALLY BE INCORPORATED C INTO MPYQ, WHICH IS PRESENTLY A .MDS ROUTINE C C IF MATRIX A, OR B, OR BOTH, IS COMPLEX, MATRIX D IS COMPLEX. C MATRIX D CAN NOT BE COMPLEX, IF BOTH MATRICES A AND B ARE REAL. C C C WRITTEN BY G.CHAN/UNISYS 1/92 C IMPLICIT INTEGER (A-Z) REAL Z(1) ,SUMR ,SUMI DOUBLE PRECISION DZ(1) ,DSUMR ,DSUMI ,DZERO DIMENSION IZ(1) ,NAM(2) COMMON /MPYADX/ FILEA(7),FILEB(7),FILEC(7),FILED(7) COMMON /TYPE / PRC(2) ,NWDS(4) ,RC(4) COMMON /MACHIN/ MACH ,IHALF ,JHALF COMMON /UNPAKX/ TYP ,II ,JJ COMMON /MPYADZ/ RCB ,RCD ,LL ,LLL ,JBB , 1 NBX(3) ,AROW ,AROW1 ,AROWN ,ACORE , 2 APOINT ,BCOL ,CROW ,FIRSTL ,NA(3) , 3 NWDA COMMON /MPYQT4/ RCA ,PRCA ,ALL ,JUMP ,PRCD EQUIVALENCE (DSUMR ,SUMR ) ,(DSUMI ,SUMI) DATA NAM / 4HMPY4 ,1HT / ,DZERO / 0.0D+0 / C C***** C ANDF(I,J) = IAND(I,J) C RSHIFT(I,J) = ISHFT(I,-J) C WHERE ISHFT(I,-J) IS RIGHT-SHIFT I BY J BITS, ZERO FILL C AND ISHFT IS SYSTEM ROUTINE C C UNIX: C REMOVE ABOVE 2 ON-LINE FUNCTIONS IF IAND AND ISHFT SYSTEM C FUNCTIONS ARE NOT AVAILABLE. ANDF AND RSHIFT ARE ALREADY ENTRY C POINTS IN SUBROUTINE MAPFNS. C***** C C METHOD 4T TRANSPOSE CASE C C ARRAY Z(JBB) THRU Z(ACORE-1) HOLDS THE CURRENT COLUMN OF MATRIX B C ARRAY Z(1) THRU Z(JBB-1) IS A WORKING COLUMN SPACE FOR MATRIX D C C ON EACH ROW OF A, WE WANT TO MULTIPLY C C A(ROW,J)*B(J,COL) + C(ROW,COL) = D(ROW,COL) C C NOTICE B(J,COL) RUNS FROM B(II,COL) THRU B(JJ,COL) WITHOUT C SKIPPING, C WHILE A(ROW,J) RUNS IN MULTIPLE STRING SEGMENTS ALONG J. C ALSO THE BEGINING OF J IN A(ROW,J) AND THE BEGINING OF J IN C B(J,COL) MOST LIKELY START DIFFERNTLY C C NOW, ON EACH ROW, WE START FROM FIRST STRING. SKIP THIS STRING C IF IT IS NOT WITHIN B(II,) AND B(JJ,) RANGE. (ALSO, WE HAVE C SAVED PREVIOUSLY THE LAST TERM OF THE LAST STRING, AND THEREFORE C IF THE WHOLE ROW OF A(,J) WITH ITS STRINGS IS NOT WITHIN II,JJ C RANGE OF COLUMN B, WE SKIP THE WHOLE ROW-AND-COLUMN COMPUTATION.) C IF IT IS WITHIN THE RANGE, WE NEED TO SYNCHRONIZE THE J INDEX FOR C BOTH A(ROW,J) AND B(J,COL), THEN MULTIPLY, AND SUM ON AN ELEMENT C OF MATRIX D. THEN MOVE ON TO THE NEXT STRING, AND DO THE SAME. C REPEAT THIS PROCESS UNTIL J IS EXHAUST EITHER ON A(ROW,J) OR ON C B(J,COL). C WHEN ALL ROWS OF MATRIX A CURRENTLY IN CORE HAVE PASSED THRU, WE C HAVE ONE COLUMN OF MATRIX D DONE, FROM AROW1 THRU AROWN. C C SINCE TRANSPOSE OF MATRIX A IS WHAT WE WANT, THE TERM 'ROW' IS C ACTUALLY 'COLUMN' WHEN THE DATA WAS MOVED INTO Z SPACE IN MPYAD C C RCA,RCB = 1, MATRIX A,B IS REAL, = 2 MATRIX A,B IS COMPLEX C PRCA = 1, MATRIX A IS IN S.P., = 2 MATRIX A IS IN D.P. C PRCD = 0, MATRIX D IS IN S.P., = 1 MATRIX A IS IN D.P. C NWDA = NUMBER OF WORDS PER ELEMENT OF MATRIX A C JBB = POINTER TO FIRST WORD OF COLUMN B C II,JJ = FIRST TO LAST NON-ZERO TERMS IN CURRENT COLUMN OF B C ALL = 1,2,3,4 ALL MATRICES ARE OF THE SAME TYPE - S.P., C D.P., C.S.P., OR C.D.P. RESPECTIVELY C = 5, MATRICES ARE OF MIXED TYPES C JUMP = BRANCHING INDEX TO MIXED TYPE MATRICES COMPUTATION. C C APOINT = POINTER TO STRING CONTROL WORD C = 0, CURRENT ROW OF A IS EXHAULTED C IZ(APOINT) = LEFT HALF OF WORD IS NBR, RIGHT HALF IS NBRSTR C NBR = NO. OF WORDS IN THIS STRING C NBRSTR = NO. OF STRINGS IN THIS ROW A C INIT = COLUMN POSITION OF 1ST STRING WORD C IF (INIT .GT. JJ) = 1ST STRING WORD IS BEYOND LAST WORD IN COLN B C IF (INIT+NBR .LT. II) = LAST STRING WORD IS BEFORE 1ST WORD IN C COLUMN OF B C JB,JE = BEGINNING AND ENDING J-INDEX FOR COLUMN A AND ROW B C IPOINT = THE JB WORD POSITION IN ROW A C JA = POINTER TO ROW A ELEMENT C KB = POINTER TO COLUMN B ELEMENT C LAST = POSITION OF LAST NON-ZERO COLUMN TERM IN ROW OF A C C C WE START FROM FIRST ROW AROW1, AND WILL RUN THRU TO LAST ROW AROWN C AROW = AROW1 L = FIRSTL 10 APOINT = IZ(L) IF (APOINT .EQ. 0) GO TO 510 LAST = RSHIFT(IZ(L-1),IHALF) INIT = ANDF(IZ(APOINT),JHALF) IF (INIT.GT.JJ .OR. LAST.LT.II) GO TO 510 NBRSTR = ANDF(IZ(L-1),JHALF) GO TO 30 20 INIT = ANDF(IZ(APOINT),JHALF) 30 NBR = RSHIFT(IZ(APOINT),IHALF) IF (INIT .GT. JJ) GO TO 510 IF (INIT+NBR .LT. II) GO TO 500 JB = MAX0(INIT,II) JE = MIN0(INIT+NBR-1,JJ) IF (JB .GT. JE) GO TO 500 IPOINT = APOINT + (JB-INIT+1)*PRCA JA = (IPOINT-1)/PRCA + 1 KB = (JB-II)*RCB + JBB DSUMR= DZERO GO TO (40,60,80,100,120,520), ALL C 40 DO 50 J = JB,JE SUMR = SUMR + Z(JA)*Z(KB) C C DON'T BE SUPRISED TO SEE SOME Z(JA) ARE ZEROS C (VAX PACKING ROUTINE ALLOWS UP TO 3 ZEROS BETWEEN STRINGS) C JA = JA + RCA 50 KB = KB + RCB Z(AROW) = Z(AROW) + SUMR GO TO 500 C 60 DO 70 J = JB,JE DSUMR = DSUMR + DZ(JA)*DZ(KB) JA = JA + RCA 70 KB = KB + RCB DZ(AROW) = DZ(AROW) + DSUMR GO TO 500 C 80 SUMI = 0.0 DO 90 J = JB,JE SUMR = SUMR + Z(JA)*Z(KB ) - Z(JA+1)*Z(KB+1) SUMI = SUMI + Z(JA)*Z(KB+1) + Z(JA+1)*Z(KB ) JA = JA + RCA 90 KB = KB + RCB Z(AROW ) = Z(AROW ) + SUMR Z(AROW+1) = Z(AROW+1) + SUMI GO TO 500 C 100 DSUMI = DZERO DO 110 J = JB,JE DSUMR = DSUMR + DZ(JA)*DZ(KB ) - DZ(JA+1)*DZ(KB+1) DSUMI = DSUMI + DZ(JA)*DZ(KB+1) + DZ(JA+1)*DZ(KB ) JA = JA + RCA 110 KB = KB + RCB DZ(AROW ) = DZ(AROW ) + DSUMR DZ(AROW+1) = DZ(AROW+1) + DSUMI GO TO 500 C C 120 GO TO (130,150,170,190, 210,230,250,270, 1 290,310,330,350, 370,390,410,430), JUMP C C +--------------- MATRIX B -----------------+ C MATRIX REAL REAL COMPLEX COMPLEX C A SINGLE DOUBLE SINGLE DOUBLE C --------------- ---------- --------- ---------- ---------- C REAL SINGLE 130 150 170 190 C REAL DOUBLE 210 230 250 270 C COMPLEX SINGLE 290 310 330 350 C COMPLEX DOUBLE 370 390 410 430 C C 130 DO 140 J = JB,JE DSUMR = DSUMR + DBLE(Z(JA)*Z(KB)) JA = JA + RCA 140 KB = KB + RCB GO TO 460 C 150 DO 160 J = JB,JE DSUMR = DSUMR + DBLE(Z(JA))*DZ(KB) JA = JA + RCA 160 KB = KB + RCB IF (PRCD) 470,470,460 C 170 DSUMI = DZERO DO 180 J = JB,JE DSUMR = DSUMR + DBLE(Z(JA)*Z(KB )) DSUMI = DSUMI + DBLE(Z(JA)*Z(KB+1)) JA = JA + RCA 180 KB = KB + RCB IF (PRCD) 490,490,480 C 190 DSUMI = DZERO DO 200 J = JB,JE DSUMR = DSUMR + DBLE(Z(JA))*DZ(KB ) DSUMI = DSUMI + DBLE(Z(JA))*DZ(KB+1) JA = JA + RCA 200 KB = KB + RCB IF (PRCD) 490,490,480 C 210 DO 220 J = JB,JE DSUMR = DSUMR + DZ(JA)*DBLE(Z(KB)) JA = JA + RCA 220 KB = KB + RCB IF (PRCD) 470,470,460 C 230 DO 240 J = JB,JE DSUMR = DSUMR + DZ(JA)*DZ(KB) JA = JA + RCA 240 KB = KB + RCB GO TO 470 C 250 DSUMI = DZERO DO 260 J = JB,JE DSUMR = DSUMR + DZ(JA)*DBLE(DZ(KB )) DSUMI = DSUMI + DZ(JA)*DBLE(DZ(KB+1)) JA = JA + RCA 260 KB = KB + RCB IF (PRCD) 490,490,480 C 270 DSUMI = DZERO DO 280 J = JB,JE DSUMR = DSUMR + DZ(JA)*DZ(KB ) DSUMI = DSUMI + DZ(JA)*DZ(KB+1) JA = JA + RCA 280 KB = KB + RCB IF (PRCD) 490,490,480 C 290 DSUMI = DZERO DO 300 J = JB,JE DSUMR = DSUMR + DBLE(Z(JA )*Z(KB)) DSUMI = DSUMI + DBLE(Z(JA+1)*Z(KB)) JA = JA + RCA 300 KB = KB + RCB IF (PRCD) 490,490,480 C 310 DSUMI = DZERO DO 320 J = JB,JE DSUMR = DSUMR + DBLE(Z(JA ))*DZ(KB) DSUMI = DSUMI + DBLE(Z(JA+1))*DZ(KB) JA = JA + RCA 320 KB = KB + RCB IF (PRCD) 490,490,480 C 330 DSUMI = DZERO DO 340 J = JB,JE DSUMR = DSUMR + DBLE(Z(JA)*Z(KB )) - DBLE(Z(JA+1)*Z(KB+1)) DSUMI = DSUMI + DBLE(Z(JA)*Z(KB+1)) + DBLE(Z(JA+1)*Z(KB )) JA = JA + RCA 340 KB = KB + RCB GO TO 480 C 350 DSUMI = DZERO DO 360 J = JB,JE DSUMR = DSUMR + DBLE(Z(JA ))*DZ(KB) DSUMI = DSUMI + DBLE(Z(JA+1))*DZ(KB) JA = JA + RCA 360 KB = KB + RCB IF (PRCD) 490,490,480 C 370 DSUMI = DZERO DO 380 J = JB,JE DSUMR = DSUMR + DZ(JA )*DBLE(Z(KB)) DSUMI = DSUMI + DZ(JA+1)*DBLE(Z(KB)) JA = JA + RCA 380 KB = KB + RCB IF (PRCD) 490,490,480 C 390 DSUMI = DZERO DO 400 J = JB,JE DSUMR = DSUMR + DZ(JA )*DZ(KB) DSUMI = DSUMI + DZ(JA+1)*DZ(KB) JA = JA + RCA 400 KB = KB + RCB IF (PRCD) 490,490,480 C 410 DSUMI = DZERO DO 420 J = JB,JE DSUMR = DSUMR + DZ(JA)*DBLE(Z(KB )) - DZ(JA+1)*DBLE(Z(KB+1)) DSUMI = DSUMI + DZ(JA)*DBLE(Z(KB+1)) + DZ(JA+1)*DBLE(Z(KB )) JA = JA + RCA 420 KB = KB + RCB IF (PRCD) 490,490,480 C 430 DSUMI = DZERO DO 440 J = JB,JE DSUMR = DSUMR + DZ(JA)*DZ(KB ) - DZ(JA+1)*DZ(KB+1) DSUMI = DSUMI + DZ(JA)*DZ(KB+1) + DZ(JA+1)*DZ(KB ) JA = JA + RCA 440 KB = KB + RCB GO TO 490 C 460 DZ(AROW) = DZ(AROW) + DSUMR GO TO 500 470 Z(AROW) = Z(AROW) + SNGL(DSUMR) GO TO 500 480 DZ(AROW ) = DZ(AROW ) + DSUMR DZ(AROW+1) = DZ(AROW+1) + DSUMI GO TO 500 490 Z(AROW ) = Z(AROW ) + SNGL(DSUMR) Z(AROW+1) = Z(AROW+1) + SNGL(DSUMI) C C C END OF STRING DATA. IF THIS IS NOT THE LAST STRING OF CURRENT C ROW OF A, RETURN FOR NEXT STRING C 500 NBRSTR = NBRSTR - 1 APOINT = APOINT + NBR*NWDA + PRCA IF (NBRSTR .GT. 0) GO TO 20 C C END OF A ROW OF MATRIX A. C RETURN FOR NEXT ROW IF THIS IS NOT THE LAST ROW IN OPEN CORE. C IF IT IS THE LAST ROW, RETURN TO CALLER FOR PACKING OUT THE C CURRENT COLUMN OF MATRIX D (IN C ARRAY) C 510 L = L - 2 AROW = AROW + 1 IF (AROW .LE. AROWN) GO TO 10 RETURN C 520 CALL MESAGE (-37,0,NAM) RETURN END ================================================ FILE: mis/mpya3d.f ================================================ SUBROUTINE MPYA3D (AA,BB,NROW,BAND,CC) C C WITH ENTRY MPYA3S (A,B,NROW,BAND,C) C C WAS NAMED DATBAD/DATBAS IN UAI CODE C C THESE ROUTINES PERFORM TRIPLE MATRIX MULTIPLY OF THE FORM C C T C C = C + A * B * A C C ON TWO INCOMING ROW-LOADED MATRICES A AND B, AND ADD THEM TO C MATRIX C C C THE INCOMING MATRICES MUST BE SQUARE (AND OBVIOUSLY OF THE SAME C SIZE, NROW.) AND C SYMMETRICAL (SINCE WE OPERATE ONLY ON LOWER TRIANGULAR MATRICES) C C MATRIX A CAN BE A PSUEDO-DIAGONAL MATRIX, I.E. A MATRIX HAVING C SQUARE PARTITIONS OF NON-ZERO TERMS ALONG ITS DIAGONAL. C THESE PARTITIONS ARE OF THE SIZE BAND X BAND. C NOTE THAT NROW MUST BE AN INTEGER MULTIPLE OF BAND. C C THIS ALGORITHM IS SUITABLE FOR TRIPLE MULTIPLIES INVOLVING GLOBAL C TRANSFORMATIONS. C C INTEGER BAND REAL A(1) ,B(1) ,C(1) DOUBLE PRECISION AA(1),BB(1),CC(1),DD C C C DOUBLE PRECISION VERSION C II = 0 DO 50 IB = 1,NROW IA1 = ((IB-1)/BAND+1)*BAND C DO 40 ID1 = 1,NROW,BAND ID2 = ID1 + BAND - 1 IF (ID1 .GT. IA1) GO TO 50 C ID11N = (ID1-1)*NROW DO 30 ID = ID1,ID2 JJ = ID11N DD = 0.0D0 C DO 10 IC = ID1,ID2 IBIC = II + IC ICID = JJ + ID IF (AA(ICID) .EQ. 0.0D0) GO TO 10 DD = DD + BB(IBIC)*AA(ICID) 10 JJ = JJ + NROW C IF (DD .EQ. 0.0D0) GO TO 30 KK = (ID-1)*NROW C DO 20 IA = ID,IA1 IBIA = II + IA IF (AA(IBIA) .EQ. 0.0D0) GO TO 20 IAID = KK + ID CC(IAID) = CC(IAID) + DD*AA(IBIA) 20 KK = KK + NROW C 30 CONTINUE 40 CONTINUE 50 II = II + NROW C C COPY THE LOWER TRIANGLE TO THE UPPER C KK = NROW - 1 II = 0 DO 70 I = 1,KK IB = I + 1 JJ = I*NROW DO 60 J = IB,NROW CC(II+J) = CC(JJ+I) 60 JJ = JJ + NROW 70 II = II + NROW C RETURN C C ENTRY MPYA3S (A,B,NROW,BAND,C) C ============================== C C SINGLE PRECISION VERSION C II = 0 DO 150 IB = 1,NROW IA1 = ((IB-1)/BAND+1)*BAND C DO 140 ID1 = 1,NROW,BAND ID2 = ID1 + BAND - 1 IF (ID1 .GT. IA1) GO TO 150 C ID11N = (ID1-1)*NROW DO 130 ID = ID1,ID2 JJ = ID11N DD = 0.0D0 C DO 110 IC = ID1,ID2 IBIC = II + IC ICID = JJ + ID IF (A(ICID) .EQ. 0.0) GO TO 110 DD = DD + DBLE(B(IBIC))*DBLE(A(ICID)) 110 JJ = JJ + NROW IF (DD .EQ. 0.0D0) GO TO 130 KK = (ID-1)*NROW C DO 120 IA = ID,IA1 IBIA = II + IA IF (A(IBIA) .EQ. 0.0) GO TO 120 IAID = KK + ID C(IAID) = SNGL(DBLE(C(IAID)) + DD*DBLE(A(IBIA))) 120 KK = KK + NROW C 130 CONTINUE 140 CONTINUE 150 II = II + NROW C C COPY THE LOWER TRIANGLE TO THE UPPER C KK = NROW - 1 II = 0 DO 170 I = 1,KK IB = I + 1 JJ = I*NROW DO 160 J = IB,NROW C(II+J) = C(JJ+I) 160 JJ = JJ + NROW 170 II = II + NROW C RETURN END ================================================ FILE: mis/mpyad.f ================================================ SUBROUTINE MPYAD (ZZ ,Z ,ZD ) C C THE FOLLOWING DEFINES THE VARIOUS I/O METHODS AND STORAGE METHODS USED C BY THE DIFFERENT MULTIPLY-ADD METHODS. C C IN REGARDS TO THE NEW METHODS BELOW, WHEN MULTIPLE COLUMNS OF A MATRIX C ARE STORED AND READ BY GETSTR, THEN THE MATRIX IS STORED IN MEMORY IN C COMPACT FORM. SEE SUBROUTINES 'MMARM1,2,3,4' FOR A DESCRIPTION OF C THIS COMPACT FORM. WHEN ONLY A SINGLE COLUMN OF A MATRIX IS STORED C AND IT IS BEING READ BY GETSTR, IT IS STORED IN COMPACT FORM IN MEMORY. C SEE SUBROUTINES 'MMARC1,2,3,4' FOR A DESCRIPTION OF THIS FORM. C C METHOD METHOD OF READING MATRIX MULTIPLE COLUMNS OF MATRIX STORED C A B C A B D C OLD METHODS C 1 INTPK UNPACK UNPACK NO YES YES C 2T GETSTR UNPACK INTPK YES NO NO C 2NT GETSTR INTPK INTPK YES NO NO C 3T UNPACK GETSTR INTPK YES NO NO C NEW METHODS C 10 UNPACK UNPACK UNPACK YES NO NO C 11 UNPACK GETSTR UNPACK YES NO NO C 20 UNPACK UNPACK UNPACK NO YES YES C 21 GETSTR UNPACK UNPACK NO YES YES C 30 GETSTR UNPACK UNPACK YES NO NO C 31 GETSTR GETSTR UNPACK YES NO NO C 40 UNPACK GETSTR UNPACK NO YES YES C 41 GETSTR GETSTR UNPACK NO YES YES C COMMON /MPYADX/ FILEA(7) ,FILEB(7) ,FILEC(7) , 1 FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 , 2 SCRTCH,TIME COMMON /SYSTEM/ KSYSTM(152) EQUIVALENCE (KSYSTM(58), METHOD ) CALL SSWTCH ( 49, L49 ) IF ( METHOD .GE. 1 .AND. METHOD .LE. 3 ) L49 = 1 IF ( L49 .NE. 0 ) CALL MPYADO ( ZZ, Z, ZD ) IF ( L49 .EQ. 0 ) CALL MMA ( ZZ, Z, ZD ) RETURN END ================================================ FILE: mis/mpyado.f ================================================ SUBROUTINE MPYADO (ZZ ,Z ,ZD ) C C MPYAD PERFORMS THE MATRIX OPERATION C (+/-)A * B (+/-)C = D OR C (+/-)A(T) * B (+/-)C = D C C LAST REVISED 1/92 BY G.CHAN/UNISYS C . NEW METHOD 4T WAS ADDED WHICH IS FASTER THAN METHOD 2T UNDER C CERTAIN CONDITIONS. C . NEW ROUTINE FOR DIAGONAL, IDENTITY, AND ROW VECTOR MATRICES C . USER CAN REVERT TO ORIGINAL MPYAD ALL METHODS, BY DIAG 41 C C C LEGEND: C C +---+ + + IS A MATRIX +- \ AN ELEMENT OF C | | | | BY COLUMNS | IS A \ A, B, OR C IN C | | | | IN MULTIPLE | COLUMN \ AND C | | | | PASSES | OR / AN ELEMENT C +---+ + + +- / OF D OUT C C +-------+ IS A MATRIX C | | BY ROWS => OR INDICATES MATRICES C AND D C +-------+ IN MULTIPLE <= ARE USING SAME CORE SPACE C +-------+ PASSES C +-------+ C C UPPER CASE LETTER INDICATES UNPACKED MATRIX OR COLUMN C LOWER CASE LETTER INDICATES MATRIX OR COLUMN IN STRINGS FORM C C C METHOD 1NT AND 1T METHOD 2NT METHOD 2T C B +- C +----+ + + / | C | | | | / |B C a | B | | | + + +---+ +- | C \ | | | | | | | | | +----------+ +- C \ +----+ + + | | | a | |C | a | C +----+ | | | | | +----------+ C | | + + +---+ +- +- +----------+ \ C | D | <= C | +----------+ \ C | | => |D \ C C | | | \ C +----+ +- D C C METHOD 3T +- METHOD 4T +- C | | C |b |b(BANDED) C | | C +- +- C + + +----+ +- +- +---------+ +- C | | | | | | | | | C | | | A | |D + |C | a | |C C | | | | | | | | | C + + +----+ +- +- +---------+ +- +- C ADD ON +---------+ | C LAST +---------+ |D(FULL) C PASS => | C +- C LOGICAL LAST ,NULL EXTERNAL ANDF ,ORF ,LSHIFT CWKBI 9/93 INTEGER PRNTYP(4), NAMEA(2), NAMEB(2), NAMEC(2), NAMED(2), PRCA INTEGER ZZ(6) ,P ,Q ,R ,T ,OP ,OPA , 1 OPB ,OPC ,OPBC ,OP2 ,ONE1 ,ONE2 ,P1 , 2 PP1 ,PP2 ,PRC ,PREC ,PREC1 ,BCD ,RCB , 3 RCD ,RC ,RD ,RDREW ,WRT ,WRTREW,CLS , 4 CLSREW,ANDF ,ORF ,EOL ,EOR ,ACOL ,ACOL1 , 5 ACOLN ,ACORE ,APOINT,POINT ,BCOL ,BUF1 ,BUF2 , 6 BUF3 ,BUF4 ,BUFI ,BLK ,BLOCK ,ROW ,ROWA , 7 AROW ,AROW1 ,AROWN ,CROW ,DROW ,TYPE ,TYPEA , 8 TYPEB ,TYPEC ,TYPED ,TYPEBD,TYPD ,TYPD1 ,FILE , 9 FILEA ,FILEB ,FILEC ,FILED ,CFILE ,DFILE ,EFILE , O SCRTCH,SIGNAB,SIGNC ,FIRSTL,SYSBUF,FORM ,FLAG , 1 DENSC DOUBLE PRECISION AD(2) ,BD(2) ,DD(2) ,ZD(1) ,XND DIMENSION B(4) ,Z(1) ,MPY(3),BCD(2),ZERO(4) ,XNS(1), 1 NAME(2) ,BLK(15) ,METHOD(6) CNVXNB COMMON /LOGOUT/ LOUT CNVXNE COMMON /MACHIN/ MACH ,IHALF ,JHALF 1 /MPYQT4/ QT(2) ,LL4 ,JMP(2) COMMON /MPYADX/ FILEA(7) ,FILEB(7) ,FILEC(7) , 1 FILED(7) ,NZ ,T ,SIGNAB,SIGNC ,PREC1 , 2 SCRTCH,TIME 3 /SYSTEM/ KSYSTM(152) 4 /TYPE / PRC(2),NWDS(4) ,RC(4) 5 /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW,CLS 6 /ZBLPKX/ D(4) ,DROW 7 /ZNTPKX/ A(4) ,IP ,EOL ,EOR 8 /PACKX / TYPED ,TYPD1 ,ONE1 ,PP1 ,INCR1 9 /UNPAKX/ TYPEBD,ONE2 ,PP2 ,INCR2 COMMON /NTIME / NITEMS,TMIO ,TMBPAK,TMIPAK,TMPAK ,TMUPAK,TMGSTR, 1 TMPSTR,TMT(4),TML(4) 2 /MPYADZ/ RCB ,RCD ,LL ,LLL ,JB ,NBX ,NDX , 3 JMAX1X,ACOL ,ACOL1 ,ACOLN ,ACORE ,APOINT,BCOL , 4 CROW ,FIRSTL,NA ,NB ,ND ,NWDA ,NWDB , 5 NWDD ,PREC ,JMAX ,INCRA ,BLOCK(20) 6 /ZZZZZZ/ XND(8500) EQUIVALENCE (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),MOUT ) , 1 (KSYSTM(58),KSYS58) , (KSYSTM(40),NBPW ) CWKBI 10/93 2 ,(KSYSTM(55),IPREC ) EQUIVALENCE (A(1) ,AD(1) ) , (B(1) ,BD(1) ) , 1 (D(1) ,DD(1) ) , (FILEA(2),M ) , 2 (FILEA(3),N,ROWA ) , (FILEA(5),TYPEA ) , 3 (FILEB(2),Q ) , (FILEB(3),R ) , 4 (FILEB(5),TYPEB ) , (FILEC(5),TYPEC ) , 6 (FILED(5),TYPD ) , (NZZ ,BUF1 ) , 7 (ACOLN ,AROWN ) , (FILEC(7),DENSC ) EQUIVALENCE (BLOCK(2),TYPE ) , (BLOCK(3),FORM ) , 1 (BLOCK(4),ROW ) , (BLOCK(5),POINT ) , 2 (BLOCK(6),NBRSTR ) , 3 (BLOCK(8),FLAG ) , (XND(1) ,XNS(1) ) , 4 (ACOL1 ,AROW1 ) , (ACOL ,AROW ) , 5 (MPY(1) ,NAME(1) ) C DATA NAME / 4HMPYA, 4HD /, JBEGN / 4HBEGN/, JEND / 3HEND/ 1 TIME1 / 0. / , TIME2 / 0. /, ZERO / 4*0 /, 2 METHOD/ 4H1 NT, 4H1 T , 4H2 NT, 4H2 T , 4H3 T , 3H4 T/ CWKBI 9/93 DATA PRNTYP / 2HRS, 2HRD, 2HCS, 2HCD / CNVXNB IF (TYPEA .EQ. 0) TYPEA = IPREC IF (TYPEB .EQ. 0) TYPEB = IPREC IF (TYPEC .EQ. 0) TYPEC = IPREC CNVXNE CWKBNB 7/94 SPR94008 ITYPEA = TYPEA ITYPEB = TYPEB ITYPEC = TYPEC CWKBNE 7/94 SPR94008 C C CHECK TO SEE IF THE INPUT MATRICES ARE CONFORMABLE C CALL SSWTCH (19,L19) CALL SSWTCH (41,L41) NOGO = 0 FILE = 0 NOAB = 0 IF (FILEA(6).EQ.0 .OR. FILEB(6).EQ.0) NOAB = 1 IROWB = FILEA(2) IROWC = FILEA(3) IF (T .NE. 0) T = 1 IF (T .EQ. 0) GO TO 30 IROWB = FILEA(3) IROWC = FILEA(2) 30 IF (NOAB .EQ. 1) GO TO 50 IF (FILEB(3) .NE. IROWB) NOGO = 1 IF (FILEC(1) .LE. 0) GO TO 40 IF (FILEC(2).NE.FILEB(2) .OR. FILEC(3).NE.IROWC) NOGO = 1 40 IF (NOGO .EQ. 1) GO TO 560 C C PERFORM GENERAL INITIALIZATION C 50 MPY(3) = JBEGN IF (FILED(1) .GT. 0) CALL CONMSG (MPY,3,0) NOUT = LOUT C C -- USE SINGLE PRECISION ON MACHINES WITH 60 OR 64 BITS PER WORD C IF (NBPW .GE. 60) PREC1 = 1 OPB = RDREW OPC = RDREW OP2 = WRTREW OP = CLS CFILE = FILEC(1) IF (CFILE .EQ. 0) TYPEC = 1 B(2) = 0. B(3) = 0. B(4) = 0. TYPD1 = TYPD ONE1 = 1 ONE2 = 1 P = N IF (T .NE. 0) P = M PP1 = P INCR1 = 1 IF (CFILE.EQ.0 .OR. FILEC(6).EQ.0) CFILE = 0 IF (FILEB(6).EQ.0 .AND. CFILE.EQ.0) PP1 = 1 INCR2 = 1 FILED(2) = 0 FILED(6) = 0 FILED(7) = 0 MPASS3 = 0 TIME3 = 1.0E+10 PREC = PREC1 IF (PREC .NE. 2) PREC = 1 IF (PREC1.EQ.0 .AND. (PRC(TYPEA).EQ.2 .OR. PRC(TYPEB).EQ.2 .OR. 1 PRC(TYPEC).EQ.2)) PREC = 2 C C ELIMINATE METHOD THREE FROM SELECTION FOR THIS BAD CASE C (I.E. TRANSPOSE AND MIXED MATRIX PRECISION) C IT = T IF (IT.NE.0 .AND. PREC.EQ.1 .AND. PRC(TYPEB).EQ.2) IT = 0 IF (IT.NE.T .AND. L19.NE.0) WRITE (NOUT,60) TYPEA,TYPEB,TYPEC 60 FORMAT ('0METHOD 3T IS ELIMINATED FROM SELECTION/MPYAD@60',/1X, 1 'MATRIX TYPES A,B,C =',3I3) C C COMPUTE TYPE AND PRECISION OF D MATRIX C RCD = 1 FOR REAL, 2 FOR COMPLEX C PREC = 1 FOR SINGLE, 2 FOR DOUBLE C TYPED = 1 FOR RSP, 2 FOR RDP, 3 FOR CSP, AND 4 FOR CDP C PRC(1) = 1 FOR S.P. PRC(2) = 2 FOR D.P. C RCD = 0 IF (PREC .EQ. 2) GO TO 70 IF (ANDF(TYPEA,1) .EQ. 0) TYPEA = TYPEA - 1 IF (ANDF(TYPEB,1) .EQ. 0) TYPEB = TYPEB - 1 IF (ANDF(TYPEC,1) .EQ. 0) TYPEC = TYPEC - 1 70 IF (TYPEA.GT.2 .OR. TYPEB.GT.2 .OR. TYPEC.GT.2) RCD = 2 TYPED = RCD + PREC IF (RCD .EQ. 0) RCD = 1 C C RCA/B/D = 1 IF A/B/D IS REAL, = 2 IF A/B/D IS COMPLEX C NWDA/B/D = NUMBER OF WORDS PER ELEMENT OF A/B/D C NBX/DX = NUMBER OF ELEMENTS PER COLUMN OF B/C ORD C NB/D = NUMBER OF WORDS PER COLUMN OF B/C OR D C NZZ = BUF1 = POINTER TO FIRST GINO BUFFER C BUF2/3 = POINTER TO SECOND AND THIRD GINO BUFFERS C JJ = MAX. NO. OF COLNS OF B AND D THAT MAY BE HELD IN CORE C MPASS1/2/3 = NUMBER OF PASSES REQUIRED FOR METHOD ONE/TWO/THREE C JZB/JZDB = POINTER TO FIRST ELEMENT OF B FOR SP/DP REFERENCE C JB = POINTER TO FIRST ELEMENT OF B FOR PRECISION OF PROBLEM C ACORE = POINTER TO FIRST WORD FOR STORAGE OF PACKED COLUMNS C OF A MATRIX FOR METHOD TWO C KSYS58 = SYSTEM(58), METHOD REQUESTED BY USER IF IT IS NON-ZERO C C C TURN TRANSPOSE FLAG OFF IF INPUT MATRIX A IS SYMMETRIC, AND SURELY C THAT COLUMNS EQUEL ROWS, AND DIAG 41 IS OFF. C C IF INPUT A OR B IS DIAGONAL, ROW VECTOR, OR IDENTITY MATRICES, C MATRICES ARE NOT IN MIXED PRECISTION TYPES, AND DIAG 41 FLAG IS C OFF AND SYSTEM(94) IS NOT 1, BRANCH OFF TO SPECIAL SUBROUTINE C MPY-D-R-I C K = FILEA(4) IF (K.EQ.6 .AND. M.EQ.N .AND. L41.EQ.0) T = 0 C SYMMETRIC COLN=ROW DIAG41 OFF IF (L41.EQ.1 .OR. MOD(KSYSTM(94),10).EQ.1) GO TO 80 J = FILEB(4) IF (K.NE.3 .AND. K.NE.7 .AND. K.NE.8 .AND. 1 J.NE.3 .AND. J.NE.7 .AND. J.NE.8) GO TO 80 C DIAGONAL ROW VCTR IDENTITY C IF (TYPEA.NE.TYPEB .OR. TYPEA.NE.TYPD) GO TO 80 K = MAX0(M,N,Q,R) J = K*2 + 1 K = K + 1 CALL MPYDRI (Z,Z,Z(K),Z(K),Z(J),Z(J)) GO TO 380 C 80 RCB = RC(TYPEB) NBX = R*RCB NWDB = NWDS(TYPEB) NWDB1 = NWDB + 1 NB = R*NWDB NDX = P*RCD ND = P*NWDS(TYPED) NZZ = IABS(NZ) - SYSBUF + 1 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF JJ = (NZZ-1)/(NB+ND) ICRQ = NB + ND - NZZ + 1 IF (ICRQ .GT. 0) GO TO 530 MPASS1= (Q-1)/JJ + 1 JZB = JJ*ND + 1 JZDB = JJ*NDX + 1 JB = JZB IF (PRC(TYPEB) .EQ. 2) JB = JZDB NWDA = NWDS(TYPEA) PRCA = PRC(TYPEA) NA = NWDA*N NWDA1 = NWDA + 1 NWDD = NWDS(TYPED) ACORE = ND + 1 IF (T .NE. 0) ACORE = NB + 1 ACORE = ((ACORE+1)/2)*2 + 1 IF (SIGNAB.EQ.0 .AND. PREC.EQ.1 .AND. (PRC(TYPEA).EQ.2 .OR. 1 PRC(TYPEB).EQ.2)) TYPED = RCD + 1 IF (NOAB.EQ.1 .OR. SIGNAB.EQ. 0) GO TO 1100 IF (SIGNAB.EQ.1 .OR. SIGNAB.EQ.-1) GO TO 100 WRITE (MOUT,90) 90 FORMAT ('0*** USER FATAL MESSAGE 2398, MPYAD REQUIRES SIGN OF ', 1 'A*B TO BE -1, 0, OR +1') GO TO 540 100 CALL MPYQ (Z) C C CALCULATE ESTIMATED EXECUTION TIMES AND SELECT METHOD. C NCORE = BUF3 - ACORE ICRQ = -NCORE IF (ICRQ .GT. 0) GO TO 530 CORE = FLOAT(NCORE/NWDA) FN = FILEA(2) FM = FILEA(3) FP = FILEB(2) RHOA = AMIN1(1.E-4*FLOAT(FILEA(7)),1.0) RHOB = AMIN1(1.E-4*FLOAT(FILEB(7)),1.0) RHOC = AMIN1(1.E-4*FLOAT(FILEC(7)),1.0) RHOD = AMAX1(RHOA,RHOB) ARITH = FM*FN*(TMT(TYPED) + (1.0-RHOA)*TML(TYPED)) ATERM = (FM*RHOA+5.0)*FN*TMIPAK BTERM = FLOAT(R)*FP*0.5*(1.0+RHOB)*TMUPAK DTERM = FM*FP*0.5*(1.0+RHOD)*TMPAK CTERM = 0 IF (CFILE .NE. 0) CTERM = FM*FP*0.5*(1.0+RHOC)*TMUPAK TIME1 = (FM*FN*FP*RHOA*TMT(TYPED) + FLOAT(MPASS1)*ATERM + BTERM 1 + DTERM + CTERM)*1.0E-6 C MPASS2= (2.0-RHOA)*FM*FN*RHOA/CORE + 1.0 FR = MPASS2 IF (T .NE. 0) GO TO 110 TIME2 = (FP*RHOA*RHOB*ARITH + ATERM 1 + (FR+1.0)/2.0*(FN*RHOB+10.0)*FP*TMIPAK + FR*DTERM 2 + (FR-1.0)*0.5*FM*FP*(1.0+RHOD)*TMUPAK 3 + CTERM)*1.0E-6 GO TO 120 C 110 FNT = FN*FM*RHOB P1 = AMIN1((FNT/FLOAT(FILEB(6))+FP)/2.0,FNT,FP) FP1 = P1 CTERM2= 0. IF (CFILE .NE. 0) CTERM2 = (FN*RHOC+5.0)*FP*TMIPAK BTERM = FM*FP*0.5*(1.0+RHOB)*TMUPAK DTERM2= (FN*RHOD+5.0)*FP TIME2 = (FP1*RHOA*ARITH + (FM*RHOA+5.0)*FN*TMIPAK + FR*BTERM 1 + (FR+1.0)/2.0*DTERM2*TMBPAK + (FR-1.0)/2.0*DTERM2*TMIPAK 2 + CTERM2)*1.0E-6 C BUFI = BUF4 IF (FILEC(1) .EQ. 0) BUFI = BUF3 NBRROW= MIN0((BUFI-ORF(ND+1,1))/NA,M) MPASS3= (M-1)/NBRROW + 1 FR = MPASS3 TIME3 = (FM*FN*FP*RHOB*TMT(TYPED) + FM*FN*0.5*(1.0+RHOA)*TMUPAK 1 + FR*FP*(FN*RHOB+5.0 )*TMIPAK 2 + (FR+1.0)/4.0*FN*FP*(1.0+RHOD)*TMPAK 3 + (FR-1.0)/4.0*FN*FP*(1.0+RHOD)*TMUPAK + CTERM2)*1.E-6 120 CALL TMTOGO (ITIMGO) IF (CORE .LE. 0.0) TIME2 = AMAX1(TIME1,TIME3) + 1.0 TIME = AMIN1(TIME1,TIME2,TIME3) ITIME = TIME + 1 IF (ITIMGO.LE.ITIME .AND. FILED(1).GT.0) GO TO 550 C C PRINT TIMING MESSAGE AND IF OUTPUT FILE IS PURGED RETURN C IELEMS = FN*FM*RHOA + 0.5 JELEMS = FLOAT(R)*FP*RHOB CWKBNB 9/93 IF(L19.EQ.0) GO TO 137 CALL FNAME ( FILEA, NAMEA ) CALL FNAME ( FILEB, NAMEB ) CALL FNAME ( FILEC, NAMEC ) CALL FNAME ( FILED, NAMED ) WRITE( NOUT,136, IOSTAT=IERR ) CWKBR 7/94/SPR 94008 * NAMEA, N, M, IELEMS, RHOA, PRNTYP( TYPEA ) CKWBR 7/94 SPR 94008 *, NAMEB, R, Q, JELEMS, RHOB, PRNTYP( TYPEB ) * NAMEA, N, M, IELEMS, RHOA, PRNTYP( ITYPEA ) *, NAMEB, R, Q, JELEMS, RHOB, PRNTYP( ITYPEB ) 136 FORMAT( & ' /-----------------------------------------------------------/' &,/ &,' / MATRIX ROWS COLS TERMS DENS TYPE /' &,/ &,' /-----------------------------------------------------------/' &,/ &,' / A- ',2A4,I8,I7,I10,F7.4, 5X, A2 &,/ &,' / B- ',2A4,I8,I7,I10,F7.4, 5X, A2 ) IELEMS = FN*FM*RHOC + .5 IF (CFILE .EQ. 0) GO TO 11140 WRITE( NOUT,11136, IOSTAT=IERR ) * NAMEC, FILEC(3), FILEC(2), IELEMS, RHOC, PRNTYP(ITYPEC) 11136 FORMAT( & ' / C- ',2A4,I8,I7,I10, F7.4, 5X, A2 ) 11140 WRITE( NOUT, 11137 ) NAMED, PRNTYP(TYPED) 11137 FORMAT(' / D- ',2A4,8X, 7X, 10X, 7X, 5X, A2 ) WRITE( NOUT, 11138 ) SIGNAB, SIGNC, T, CORE, MPASS1,MPASS2, & MPASS3, TIME1, TIME2, TIME3 11138 FORMAT(' / SIGNAB =',I4,' SIGNC =',I4,' TIME EST=',I9 &, ' MEMORY =',F8.0 &,/, ' / MPASS1 =',I4, ' MPASS2=',I4, ' MPASS3=',I4 &,/, ' / TIME1 =',E9.2,' TIME2=',E9.2,' TIME3=',E9.2,/ &,' /-----------------------------------------------------------/' &) 137 CONTINUE CWKBNE 9/93 C 180 IF (FILED(1) .LT. 0) GO TO 1600 C J = KSYS58 IF (J.LT.0 .OR. J.GT.3 .OR. (J.EQ.3 .AND. IT.EQ.0)) J = 0 IF (J .NE. 0) GO TO (200,600,1300), J IF (IT .NE. 0) GO TO 190 CWKBNB 2/95 NCL93004 IF ( MPASS1 .LT. MPASS2 ) GO TO 200 IF ( MPASS2 .LT. MPASS1 ) GO TO 600 CWKBNE 2/95 NCL93004 IF (TIME1 .LT. TIME2) GO TO 200 GO TO 600 CWKBD 2/95 NCL93004 190 IF (TIME1.LT.TIME2 .AND. TIME1.LT.TIME3) GO TO 200 CWKBNB 2/95 NCL93004 190 CONTINUE IF ( MPASS1 .LT. MPASS2 .AND. & ( TIME1 .LT. TIME3 .OR. MPASS1 .LT. MPASS3 ) ) GO TO 200 IF ( MPASS2 .LT. MPASS1 .AND. & ( TIME2 .LT. TIME3 .OR. MPASS2 .LT. MPASS3 ) ) GO TO 200 IF ( TIME1 .LT. TIME2 .AND. TIME1 .LT. TIME3 ) GO TO 200 IF (TIME2 .LT. TIME3) GO TO 600 CWKBNE 2/95 NCL93004 GO TO 1300 C C ********************* C * * C * METHOD ONE * C * MPY1NT $ 1T * C * * C ********************* C C BUILD MATRIX PRODUCT JMAX COLUMNS PER PASS OF A MATRIX C WHERE JMAX=JJ EXCEPT ON FINAL PASS C 200 JCOL = 1 230 WRITE (NOUT,240) METHOD(T+1),MPASS1,TIME1 240 FORMAT (' METHOD TO BE USED:',A4,', NBR PASSES =',I4, 1 ', EST. TIME =',F9.1) 250 JMAX = MIN0(JCOL+JJ-1,Q) IF (JMAX .EQ. Q) OP = CLSREW JMAX1 = JMAX - JCOL JMAX = JMAX1 + 1 JMAX1X= JMAX1*NDX IF (FILEB(6) .EQ. 0) GO TO 270 C C READ AND UNPACK JMAX COLUMNS OF THE B MATRIX C FILE = FILEB(1) JZ = JZB TYPEBD = TYPEB*SIGNAB NBD = NB OPBC = OPB PP2 = R ASSIGN 270 TO MM GO TO 400 C C READ AND UNPACK JMAX COLUMNS OF THE C MATRIX C 270 FILE = FILEC(1) JZ = 1 TYPEBD = TYPED*SIGNC NBD = ND OPBC = OPC PP2 = P ASSIGN 280 TO MM GO TO 400 C C OPEN AND POSITION A MATRIX TO FIRST COLUMN C 280 IF (FILEB(6) .EQ. 0) GO TO 340 FILE = FILEA(1) CALL OPEN (*500,FILEA,Z(NZZ),RDREW) 290 CALL FWDREC (*510,FILEA) C C SET POINTERS C L = COLUMN NUMBER C LL = POINTER TO LTH ROW OF B MATRIX C LLL = POINTER TO LTH ROW OF D MATRIX C L = 1 LL = JB LLL = 1 C C CALL INTPK TO INITIATE READING THE LTH COLUMN OF THE A MATRIX C IF COLUMN IS NULL, BYPASS ARITHMETIC C 310 CALL INTPK (*320,FILEA,0,TYPED,0) C C FORM EITHER A(I,L)*B(L,J) + D(I,J) C OR A(L,I)*B(I,J) + D(L,J) C WHERE J RUNS ACROSS COLUMNS OF B AND D NOW IN CORE C CALL MPY1V (ZZ,Z,ZD) C C POSITION POINTERS FOR NEXT COLUMN OF A C 320 LL = LL + RCB LLL = LLL+ RCD L = L + 1 IF (L .LE. M) GO TO 310 C C CLOSE AND REWIND FILE CONTAINING A MATRIX C CALL CLOSE (FILEA,CLSREW) C C OPEN FILE CONTAINING D MATRIX TO WRITE C 340 FILE = FILED(1) CALL OPEN (*500,FILED,Z(NZZ),OP2) C C IF FIRST COLUMNS OF D, WRITE HEADER C IF (OP2 .EQ. WRT) GO TO 360 CALL FNAME (FILED,BCD) CALL WRITE (FILED,BCD,2,1) C C PACK AND WRITE JMAX COLUMNS OF THE D MATRIX C 360 JZ = 1 DO 370 J = 1,JMAX CALL PACK (Z(JZ),FILED,FILED) 370 JZ = JZ + ND C C TEST FOR END OF MULTIPLICATION C CLOSE FILE CONTAINING D MATRIX C CALL CLOSE (FILED,OP) C C SET OP FLAGS FOR OPEN CALLS FOR NEXT PASS C OPB = RD OPC = RD OP2 = WRT C JCOL = JCOL + JJ IF (JCOL .LE. Q) GO TO 250 380 MPY(3) = JEND CALL CONMSG (MPY,3,0) GO TO 1600 C C INTERNAL SUBROUTINE TO READ JMAX COLUMNS OF THE B OR C MATRICES C ELEMENTS ARE SET TO ZERO IF COLUMN IS NULL OR MATRIX ABSENT C C OPEN AND POSITION FILE IF MATRIX IS PRESENT C 400 IF (FILE) 410,420,410 410 CALL OPEN (*500,FILE,Z(NZZ),OPBC) IF (JCOL .NE. 1) GO TO 420 CALL FWDREC (*510,FILE) C C LOOP THROUGH JMAX COLUMNS OF MATRIX C 420 DO 470 J = 1,JMAX C C UNPACK THE JTH COLUMN IF MATRIX IS PRESENT C IF (FILE) 440,450,440 440 CALL UNPACK (*450,FILE,Z(JZ)) GO TO 470 C C ZERO COLUMN C 450 K2 = JZ + NBD - 1 DO 460 K = JZ,K2 460 Z(K) = 0. C C POSITION POINTERS TO NEXT COLUMN OF MATRIX C 470 JZ = JZ + NBD C C CLOSE FILE IF MATRIX IS PRESENT C IF (FILE) 480,490,480 480 CALL CLOSE (FILE,OP) C C RETURN C 490 GO TO MM, (270,280) C C C ERROR CONDITIONS C 500 MM = -1 GO TO 520 510 MM = -2 520 CALL MESAGE (MM,FILE,NAME) GO TO 1600 C 530 MM = -8 FILE = ICRQ GO TO 520 540 MM = -37 GO TO 520 550 MM = -50 FILE = ITIME GO TO 520 560 CALL FNAME (FILEA,ZZ(1)) CALL FNAME (FILEB,ZZ(3)) CALL FNAME (FILEC,ZZ(5)) IF (FILEC(2).NE.FILEB(2) .OR. FILEC(3).NE.IROWC) NOGO = 1 WRITE (MOUT,570) ZZ(1),ZZ(2),FILEA(2),FILEA(3),ZZ(3),ZZ(4), 1 FILEB(2),FILEB(3),ZZ(5),ZZ(6),FILEC(2),IROWC 570 FORMAT (3(4X,2A4,2I7)) MM = -55 GO TO 520 C C C ********************* C * * C * METHOD TWO * C * MPY2NT $ 2T * C * AND MPY4T * C * * C ********************* C 600 CONTINUE C C INITIALIZE FOR METHODS 2NT, 2T AND 4T. C METHOD 4T DOES NOT HANDLE COMPLEX MATRIX-D FROM REAL MATRICES A C AND B (LL4 = 6). C MT4 = 0 MT2 = T IF (MOD(KSYSTM(94),100)/10 .EQ. 1) GO TO 620 IF (T.EQ.0 .OR. L41.EQ.1 .OR. LL4.EQ.6) GO TO 620 IF (MPASS2.LE.2 .OR. CFILE.EQ.0 .OR. DENSC.LT.700) GO TO 620 MT2 = 0 MT4 = 2 ACORE = NB + ND + 1 ACORE = ((ACORE+1)/2)*2 + 1 JZB = ND + 1 JB = ND/PREC1 + 1 620 DFILE = FILED(1) EFILE = SCRTCH BLOCK(1) = FILEA(1) CFILE = FILEC(1) OPA = RDREW TYPEC = TYPED*SIGNC FIRSTL= BUF3 - 1 640 WRITE (NOUT,240) METHOD(T+3+MT4),MPASS2,TIME2 C C BEGIN PASS C C OPEN DFILE TO WRITE. C READ AS MANY COLUMNS (OR ROWS) OF A AS CAN BE HELD C IN CORE IN PACKED FORM ON THIS PASS. C ACOL1 = 1 650 FILE = DFILE CALL OPEN (*500,DFILE,Z(BUF3),WRTREW) CALL FNAME (FILED(1),BCD) CALL WRITE (DFILE,BCD,2,1) FILED(2) = 0 FILED(6) = 0 FILED(7) = 0 FILE = FILEA(1) CALL GOPEN (FILEA,Z(BUF2),OPA) APOINT = ACORE L = FIRSTL ACOL = ACOL1 CWKBR 9/94 660 IF ( (APOINT+NA+2) .GE. L-2) GO TO 530 C ABOVE CHECK WAS OVER-ZEALOUS IN CHECKING FOR AVAILABLE MEMORY C BECAUSE OF THE CHECK TWO LINES AFTER STATEMENT 670 660 IF ( (APOINT+2) .GE. L-2) GO TO 750 ZZ(L ) = 0 ZZ(L-1) = 0 BLOCK(8)=-1 CALL GETSTR (*730,BLOCK) INCRA = 1 IF (PRC(TYPE).EQ.2 .AND. PRC(TYPEA).EQ.1) INCRA = 2 ZZ(L) = APOINT 670 KR1 = APOINT + 2 KRN = KR1 + NBRSTR*NWDA - 1 IF (KRN .GE. L-2) GO TO 740 C C MOVE STRING FROM BUFFER TO CORE AND COMPLETE STRING DEFINITION C WORDS C IF (PRC(TYPE).NE.2 .OR. PRC(TYPEA).NE.1) GO TO 690 C C -- THIS CODE NECESSARY FOR UNIVAC DOUBLE PRECISION TO SINGLE PRC. C INC = 1 INCRA = 1 IF (TYPE .EQ. 4) INC = 2 KRN = KR1 + NBRSTR*INC - 1 DO 680 II = KR1,KRN Z(II) = XND(POINT) POINT = POINT + INCRA 680 CONTINUE GO TO 710 690 IF (PRC(TYPE) .EQ. 2) POINT = POINT*2 - 1 DO 700 II = KR1,KRN Z(II) = XNS(POINT) POINT = POINT + INCRA 700 CONTINUE 710 ZZ(APOINT ) = ROW ZZ(APOINT+1) = NBRSTR ZZ(L-1) = ZZ(L-1) + 1 APOINT = KRN + 1 C C GET NEXT STRING DEFINITION C CALL ENDGET (BLOCK) CALL GETSTR (*730,BLOCK) GO TO 670 C C END-OF-COLUMN - C SAVE LAST NON-ZERO TERM POSTION FOR MTHOD 4T, THEN C TEST FOR ALL COLUMNS C C SINCE GINO IS MDS, MAKE SURE THAT THE LAST VALUES IN NBRSTR AND C ROW HERE ARE STILL VALID. OTHERWISE THEY MUST BE SAVED FIRST (AT C 710) AND USED ON NEXT LINE. C 730 IF (MT4 .EQ. 2) ZZ(L-1) = ORF(ZZ(L-1),LSHIFT(ROW+NBRSTR-1,IHALF)) C NBR + LAST NON-ZERO TERM COLUMN NO. C L = L - 2 ACOL = ACOL + 1 IF (ACOL .LE. M) GO TO 660 C C ALL COLUMNS OF A ARE IN - THIS IS THE LAST PASS C ACOLN = M CALL CLOSE (FILEA(1),CLSREW) GO TO 760 C C ALL COLUMNS OF A WILL NOT FIT ON THIS PASS. C 740 CALL BCKREC (FILEA(1)) 750 CALL CLOSE (FILEA(1),CLS) ACOLN = ACOL - 1 C C IF CFILE IS PRESENT, OPEN IT. C IF THIS IS THE FIRST PASS, SKIP HEADER RECORD. C OPEN BFILE AND SKIP HEADER RECORD. C INITIALIZE COLUMN (OR ORW) COUNTER, BCOL, TO 1, AND BRANCH ON T. C 760 IF (CFILE .EQ. 0) GO TO 770 FILE = CFILE CALL OPEN (*500,CFILE,Z(BUF1),RDREW) CALL FWDREC (*510,CFILE) 770 FILE = FILEB(1) CALL OPEN (*500,FILEB(1),Z(BUF2),RDREW) CALL FWDREC (*510,FILEB(1)) BCOL = 1 780 IF (MT2 .EQ. 1) GO TO 900 C C UNPACK A COLUMN OF C. C IF (CFILE .EQ. 0) GO TO 810 TYPEBD = TYPEC IF (MT4 .NE. 0) ONE2 = 1 PP2 = P CALL UNPACK (*810,CFILE,Z) GO TO 830 810 DO 820 II = 1,ND Z(II) = 0. 820 CONTINUE 830 IF (MT4 .NE. 0) GO TO 850 C C NON-TRANSPOSE CASE, METHOD 2NT C ============================== C C INITIATE INTERPRETATION OF A COLUMN OF B. C C ITYPSG = TYPED*SIGNAB ITYPSG = TYPEB*SIGNAB CALL INTPK (*860,FILEB(1),0,ITYPSG,0) C C FOR EACH NON-ZERO ELEMENT B(I) IN THE CURRENT COLMN OF B SUCH C THAT FOR I.GE.ACOL1 .AND I.LE.ACOLN, FORM ALL PRODUCTS OF C D(K,I) = A(K,I)*B(I) + C(K,I) C CALL MPY2NV (ZZ,Z,ZD) GO TO 860 C C TRNASPOSE CASE, METHOD 4T C ========================= C C UNPACK A BANDED COLUMN OF MATRIX B, RANGING FROM ONE2 THRU PP2. C FOR THE RANGE MAX0(ONE2,ACOL1) THRU MIN0(PP2,ACOLN), FORM ALL C PRODUCTS C D(I,K) = A(I,J)*B(J,K) + C(I,K) C 850 TYPEBD = TYPEB*SIGNAB ONE2 = 0 CALL UNPACK (*860,FILEB,Z(JZB)) C C WE HAVE HERE - C ACLO1, ACOLN = COLUMNS OF MATRIX A IN CORE C BCOL = CURRENTLY WE ARE WORKING ON THE BCOL COLUMN OF MATRIX B, C WHICH IS ALSO THE WORKING COLUMNS OF MATRIX D AND MATRIX C C Z(JZB) THRU Z(ACORE-1) CONTAIN THE BCOL COLUMN OF MATRIX B C CALL MPY4T (Z,Z,Z) C C PACK CURRENT COLUMN ONTO DFILE FOR BOTH 2NT AND 4T METHOD, AND C GO TO TEST FOR END OF PASS. C 860 CALL PACK (Z,DFILE,FILED) GO TO 980 C C TRANSPOSE CASE, METHOD 2T C ========================= C C INITIATE BUILDING OF A PACKED COLUMN OF D. C UNPACK A COLUMN OF B IN CORE. IF NULL, COPY COLUMN FROM C TO D. C INITIATE INTERPRETATION OF A COLUMN OF C. C 900 CALL BLDPK (TYPED,TYPD,DFILE,0,0) TYPEBD = TYPEB*SIGNAB PP2 = R CALL UNPACK (*910,FILEB(1),Z) EOL = 1 CROW = 16777215 C 16777215 = 2**24 - 1 C IF (CFILE .EQ. 0) GO TO 960 CALL INTPK (*960,CFILE,0,TYPEC,0) CROW = 0 GO TO 960 910 IF (CFILE .EQ. 0) GO TO 970 CALL INTPK (*970,CFILE,0,TYPEC,0) 920 CALL ZNTPKI CROW = IP 930 DO 940 II = 1,NWDD D(II) = A(II) 940 CONTINUE DROW = CROW CALL ZBLPKI 950 IF (EOL .EQ. 0) GO TO 920 GO TO 970 C C FOR ALL NON-NULL ROWS OF A IN CORE, FORM A(I,J)*B(J) + C(I) C 960 CALL MPY2TV (ZZ,Z,ZD) IF (AROWN.EQ.M .OR. CROW.EQ.16777215) GO TO 970 IF (CROW .GT. AROWN) GO TO 930 GO TO 950 C C TERMINATE CURRENT COLUMN OF D. C 970 CALL BLDPKN (DFILE,0,FILED) C C BOTH TRANSPOSE (2T AND 4T) AND NON-TRANSPOSE (2NT) CASES C C TEST FOR COMPLETION OF PASS. IF COMPLETE, TEST ALL PASSES. C 980 BCOL = BCOL + 1 IF (BCOL .LE. Q) GO TO 780 CALL CLOSE (FILEB,CLSREW) IF (CFILE .NE. 0) CALL CLOSE (CFILE,CLSREW) CALL CLOSE (DFILE,CLSREW) IF (ACOLN .EQ. M) GO TO 1010 C C NOT LAST PASS - SWITCH C AND D FILES AND CONTINUE C OPA = RD TYPEC = TYPED IF (ACOL1 .EQ. 1) GO TO 990 K = CFILE CFILE = DFILE DFILE = K GO TO 1000 990 CFILE = DFILE DFILE = EFILE 1000 ACOL1 = ACOLN + 1 GO TO 650 C C LAST PASS - C MAKE SURE D MATRIX IS ON PROPER FILE. C IF NOT, SWITCH FIST AND FIAT UNIT NBRS IN /XFIAT/ C 1010 IF (DFILE .NE. FILED(1)) CALL FILSWI (DFILE,FILED) GO TO 380 C C A MATRIX OR B MATRIX IS NULL - COPY C MATRIX TO D MATRIX C 1100 TIME = 0.0 IF (FILED(1) .LT. 0) GO TO 1600 IF (Q .LE. 0) Q = FILEC(2) FILED(2) = 0 FILED(6) = 0 FILED(7) = 0 WRITE (NOUT,1140) 1140 FORMAT (' MPYAD - NULL MATRIX PRODUCT') CALL GOPEN (FILED,Z(BUF1),WRTREW) IF (CFILE .EQ. 0) GO TO 1150 IF (TYPEC .EQ. SIGNC*TYPD) GO TO 1170 GO TO 1200 C C PACK NULL COLUMNS BECAUSE C MATRIX IS NULL C 1150 PP1 = 1 DO 1160 ACOL = 1,Q CALL PACK (ZERO,FILED,FILED) 1160 CONTINUE GO TO 1190 C C USE CPYSTR TO COPY C TO D C 1170 BLOCK(1) = CFILE BLK(1) = FILED(1) CALL GOPEN (CFILE,Z(BUF2),RDREW) DO 1180 II = 1,Q CALL CPYSTR (BLOCK,BLK,0,0) 1180 CONTINUE CALL CLOSE (CFILE,CLSREW) FILED(2) = Q FILED(5) = FILEC(5) FILED(6) = FILEC(6) FILED(7) = FILEC(7) 1190 IF (FILEC(1) .GT. 0) FILED(4) = FILEC(4) CALL CLOSE (FILED,CLSREW) GO TO 380 C C USE INTPK/BLDPK TO COPY C TO D BECAUSE TYPES CONFLICT C 1200 CALL GOPEN (CFILE,Z(BUF2),RDREW) DO 1230 II = 1,Q CALL BLDPK (TYPD,TYPD,FILED,BLOCK,1) ITYPSG = SIGNC*TYPD CALL INTPK (*1220,FILEC,0,ITYPSG,0) 1210 CALL ZNTPKI CALL BLDPKI (A,IP,FILED,BLOCK) IF (EOL .EQ. 0) GO TO 1210 1220 CALL BLDPKN (FILED,BLOCK,FILED) 1230 CONTINUE CALL CLOSE (CFILE,CLSREW) GO TO 1190 C C C ********************* C * * C * METHOD THREE * C * MPY3T * C * * C ********************* C C TRANSPOSE CASE ONLY, METHOD 3T C ============================== C 1300 CONTINUE WRITE (NOUT,240) METHOD(5),MPASS3,TIME3 BLOCK(1) = FILEB(1) ACORE = ORF(ND+1,1) CFILE = SCRTCH DFILE = FILED(1) IF (MOD(MPASS3,2) .NE. 0) GO TO 1340 CFILE = FILED(1) DFILE = SCRTCH 1340 AROW1 = 1 LAST = .FALSE. OPA = RDREW C C BEGIN PASS BY FILLING CORE WITH UNPACKED COLUMNS OF A C 1350 AROWN = MIN0(AROW1+NBRROW-1,M) IF (AROWN .EQ. M) LAST = .TRUE. CALL GOPEN (FILEA,Z(BUF1),OPA) TYPEBD = TYPEA*SIGNAB PP2 = N APOINT = ACORE DO 1390 AROW = AROW1,AROWN CALL UNPACK (*1360,FILEA,Z(APOINT)) GO TO 1380 1360 K2 = APOINT + NA - 1 DO 1370 II = APOINT,K2 Z(II) = 0. 1370 CONTINUE 1380 APOINT = APOINT + NA 1390 CONTINUE II = CLS IF (LAST) II = CLSREW CALL CLOSE (FILEA,II) INCRA = (AROWN-AROW1)*NA C C PREPARE TO PASS B MATRIX AND C MATRIX FROM LAST PASS C IF (AROW1 .NE. 1) CALL GOPEN (CFILE,Z(BUF2),RDREW) CALL GOPEN (DFILE,Z(BUF3),WRTREW) CALL GOPEN (FILEB,Z(BUF1),RDREW ) IF (LAST .AND. FILEC(1).NE.0) CALL GOPEN (FILEC,Z(BUF4),RDREW) FILED(2) = 0 FILED(6) = 0 FILED(7) = 0 TYPEBD = TYPED PP2 = AROWN K2 = AROWN*NWDD C DO 1530 BCOL = 1,Q IF (AROW1 .NE. 1) GO TO 1420 C C FIRST PASS OR NULL COLUMN ON CFILE - SET COLUMN OF D TO ZERO C 1400 DO 1410 II = 1,K2 1410 Z(II) = 0. NULL = .TRUE. IF (LAST) GO TO 1430 GO TO 1500 C C INTERMEDIATE PASS OR LAST PASS - UNPACK COLUMN FROM PREVIOUS PASS C 1420 CALL UNPACK (*1400,CFILE,Z) NULL = .FALSE. IF (.NOT.LAST) GO TO 1500 C C LAST PASS - ADD COLUMN FROM C MATRIX (IF PRESENT) C 1430 IF (FILEC(1) .EQ. 0) GO TO 1500 ITYPSG = TYPED*SIGNC CALL INTPK (*1500,FILEC,0,ITYPSG,0) NULL = .FALSE. 1440 CALL ZNTPKI GO TO (1450,1460,1470,1480), TYPED 1450 Z(IP) = Z(IP) + A(1) GO TO 1490 1460 ZD(IP) = ZD(IP) + AD(1) GO TO 1490 1470 Z(2*IP-1) = Z(2*IP-1) + A(1) Z(2*IP ) = Z(2*IP ) + A(2) GO TO 1490 1480 ZD(2*IP-1) = ZD(2*IP-1) + AD(1) ZD(2*IP ) = ZD(2*IP ) + AD(2) 1490 IF (EOL .EQ. 0) GO TO 1440 C C FOR EACH NON-ZERO TERM B(J) IN THE CURRENT COLUMN OF B FORM C D(I,K) = D(I,K) + A(I,J)*B(J,K) C 1500 CALL MPY3T (*1510,Z(ACORE),Z(ACORE),Z(1),Z(1)) GO TO 1520 C C PACK NULL COLUMN C 1510 IF (.NOT.NULL) GO TO 1520 PP1 = 1 CALL PACK (ZERO,DFILE,FILED) GO TO 1530 C C PACK NON-NULL COLUMN C 1520 PP1 = AROWN CALL PACK (Z,DFILE,FILED) C C TEST FOR END OF CURRENT PASS C 1530 CONTINUE C IF (AROW1 .NE. 1) CALL CLOSE (CFILE,CLSREW) CALL CLOSE (DFILE,CLSREW) CALL CLOSE (FILEB,CLSREW) IF (LAST) GO TO 1540 C C NOT LAST PASS - SWITCH FILES AND CONTINUE C II = CFILE CFILE = DFILE DFILE = II AROW1 = AROWN + 1 OPA = RD GO TO 1350 C C LAST PASS - SIGNAL END AND RETURN C 1540 IF (FILEC(1) .NE. 0) CALL CLOSE (FILEC,CLSREW) GO TO 380 C 1600 RETURN END ================================================ FILE: mis/mpydri.f ================================================ SUBROUTINE MPYDRI (A,DA,B,DB,C,DC) C C SPECIAL MPYAD PERFORMS THE MATRIX OPERATION C (+/-)A *B (+/-)C = D OR C (+/-)A(T)*B (+/-)C = D C C WHERE A, OR B IS , OR BOTH ARE, DIAGONAL, ROW VECTOR, OR IDENTITY C MATRIX. MATRIX C CAN BE PURGED C C THIS ROUITNE DOES NOT HANDEL A-TRANSPOSE, WHILE B IS DIAGNOL, ROW C VECTOR, OR IDENTIY MASTRIX. ONLY EXCEPTION IS A IS TRULY (Nx1). C C NOTE - C 1. IN NASTRAN GINO, THE TRAILER 2ND AND 3RD WORDS FOR A ROW-VECTOR C IS (1xM), AND THE DIAGONAL MATRIX IS ALSO (1xM) C 2. THE ROW-VECTOR AND DIAGONAL MATRIX ARE PACKED IN ONE RECORD. C AND THUS, THEY REQUIRE SPECIAL ATTENTION DEALING WITH THE FILEB C WHILE FILEA IS ALREADY A ROW-VECTOR, OR A DIAGONAL MATRIX C C WRITTEN BY G.CHAN/UNISYS, 1/92 C LAST MODIFIED FOR SPECIAL CASES THAT INVOLVE B MATRIX IS ALSO C A DIAGONAL MATRIX OR A ROW-VECOTR, 2/93 ---- C IMPLICIT INTEGER (A-Z) INTEGER NAME(2),AD(7),SD(7) REAL A(1),B(1),C(1) DOUBLE PRECISION DA(1),DB(1),DC(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /MPYADX/ FILEA(7),FILEB(7),FILEC(7),FILED(7),NZZ,T,SIGNAB, 1 SIGNC,PREC,SCR COMMON /SYSTEM/ SYSBUF,NOUT COMMON /TYPE / PRC(2),WORDS(4) COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW COMMON /PACKX / TYPEP,TYPOUT,IP,JP,INCRP COMMON /UNPAKX/ TYPEU,IU,JU,INCRU COMMON /TRNSPX/ NAMEA(7),NAMEAT(7),LCORE,NSCR,ISCR EQUIVALENCE (FILEA(1),FA ),(FILEA(4),FORMA), 2 (FILEA(5),TYPEA),(FILEB(1),FB ), 4 (FILEB(4),FORMB),(FILEB(5),TYPEB), 5 (FILEC(1),FC ),(FILEC(4),FORMC), 7 (FILEC(5),TYPEC),(FILED(1),FD ), 8 (FILED(2),COLD ),(FILED(4),FORMD), 9 (FILED(5),TYPED) DATA NAME / 4HMPYA , 4HDRI /, 1 DIAGNL , ROWVEC , IDENT / 3, 7, 8 / C C MOVE TRUE ROWS AND COLUMNS INTO ROWA/B/C AND COLA/B/C C COLA = FILEA(2) ROWA = FILEA(3) COLB = FILEB(2) ROWB = FILEB(3) COLC = FILEC(2) ROWC = FILEC(3) IF (FORMA.EQ.DIAGNL .OR. FORMA.EQ.ROWVEC) COLA = ROWA IF (FORMA .EQ. ROWVEC) ROWA = 1 IF (FORMB.EQ.DIAGNL .OR. FORMB.EQ.ROWVEC) COLB = ROWB IF (FORMB .EQ. ROWVEC) ROWB = 1 IF (FORMC.EQ.DIAGNL .OR. FORMC.EQ.ROWVEC) COLC = ROWC IF (FORMC .EQ. ROWVEC) ROWC = 1 C IF (SIGNAB.EQ.0 .AND. FC.EQ.0) GO TO 1100 IF (SIGNAB.EQ.0 .AND. FC.NE.0) GO TO 780 BUF1 = NZZ - SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF COLD = 0 ROWD = ROWA IF (T .EQ. 1) ROWD = COLA IF (PREC.EQ.1 .AND. (TYPED.EQ.2 .OR. TYPED.EQ.4)) TYPED = TYPED -1 TYPOUT= TYPED NWDS = WORDS(TYPED) ROWA2 = ROWA*NWDS ROWB2 = ROWB*NWDS ROWD2 = ROWD*NWDS COLB2 = COLB*2 NZ = BUF3 - 1 SD(1) = SCR IF (FC .NE. 0) GO TO 10 SD(1) = FD NZ = BUF2 - 1 10 CALL MAKMCB (SD,SD,ROWD,FORMD,TYPED) C C REMEMBER, ONLY FILEA CAN HAVE TRANSPOSE, NOT FILEB. C IF FILEA IS DIAGONAL, ROW VECTOR, OR IDENTITY MATRIX, THE ACTUAL C TRANSPOSE OF FILEA HAS NEVER TAKEN PLACE. C C FA, FB, FC AND FD ARE FILEA, FILEB, FILEC AND FILED RESPECTIVELY. C AD(1) IS EITHER FILEA OR FILED, AND C SD(1) IS EITHER SCRATCH FILE OR FILED C IF (T .EQ. 1) GO TO 30 DO 20 I = 1,7 20 AD(I) = FILEA(I) GO TO 50 30 DO 40 I = 1,7 40 AD(I) = FILED(I) 50 IP = 1 JP = ROWD INCRP = 1 IU = 1 INCRU = 1 IF (FA .LE. 0) GO TO 60 FILE = FA CALL OPEN (*1010,FA,A(BUF1),RDREW) CALL FWDREC (*1020,FA) 60 IF (FB .LE. 0) GO TO 70 FILE = FB CALL OPEN (*1010,FB,A(BUF2),RDREW) CALL FWDREC (*1020,FB) C 70 IF (FA .LE. 0) GO TO 80 IF (FORMA .EQ. DIAGNL) GO TO 90 IF (FORMA .EQ. ROWVEC) GO TO 200 IF (FORMA .EQ. IDENT ) GO TO 400 80 IF (T .EQ. 1) GO TO 990 IF (FORMB .EQ. DIAGNL) GO TO 490 IF (FORMB .EQ. ROWVEC) GO TO 600 IF (FORMB .EQ. IDENT ) GO TO 750 FILE = 0 GO TO 1070 C C D G J M C FILEA IS E H K N C DIAGONAL - F I L O C a a 0 0 aD aG aJ aM C b 0 b 0 bE bH bK bN C c ==> 0 0 c cF cI cL cO C C SPECIAL CASE NEEDS TO BE CONSIDERED - C FILEB IS ALSO A DIAGONAL MATRIX. (FILEB CANNOT BE A ROW VECTOR) C 90 FILE = FA JU = ROWA TYPEU = TYPED*SIGNAB CALL UNPACK (*1050,FA,A) CALL CLOSE (FA,CLSREW) CALL GOPEN (SD,A(BUF1),WRTREW) FILE = FB JU = ROWB TYPEU = TYPED IF (FORMB .EQ. DIAGNL) GO TO 150 DO 145 I = 1,COLB CALL UNPACK (*1050,FB,B) GO TO (100,110,120,130), TYPEB 100 DO 105 J = 1,ROWB 105 C(J) = A(J)*B(J) GO TO 140 110 DO 115 J = 1,ROWB 115 DC(J) = DA(J)*DB(J) GO TO 140 120 DO 125 J = 1,ROWB2,2 C(J ) = A(J)*B(J ) - A(J+1)*B(J+1) 125 C(J+1) = A(J)*B(J+1) + A(J+1)*B(J ) GO TO 140 130 DO 135 J = 1,ROWB2,2 DC(J ) = DA(J)*DB(J ) - DA(J+1)*DB(J+1) 135 DC(J+1) = DA(J)*DB(J+1) + DA(J+1)*DB(J ) 140 CALL PACK (C,SD,SD) 145 CONTINUE GO TO 190 C C SPECIAL CASE - FILEB IS ALSO A DIAGONAL MATRIX C 150 CALL UNPACK (*1050,FB,B) IF (TYPEB .GE. 3) GO TO 165 DO 155 J = 1,ROWB 155 C(J) = 0.0 DO 160 J = 1,ROWB IF (TYPEB .EQ. 1) C(J) = A(J)* B(J) IF (TYPEB .EQ. 2) DC(J) = DA(J)*DB(J) CALL PACK (C,SD,SD) C(J) = 0.0 IF (TYPEB .EQ. 2) DC(J) = 0.0D+0 160 CONTINUE GO TO 190 C 165 DO 170 J = 1,ROWB2 170 C(J) = 0.0 DO 180 J = 1,ROWB2,2 IF (TYPEB .EQ. 4) GO TO 175 C(J ) = A(J)*B(J ) - A(J+1)*B(J+1) C(J+1) = A(J)*B(J+1) + A(J+1)*B(J ) CALL PACK (C,SD,SD) C(J ) = 0.0 C(J+1) = 0.0 GO TO 180 175 DC(J ) = DA(J)*DB(J ) - DA(J+1)*DB(J+1) DC(J+1) = DA(J)*DB(J+1) + DA(J+1)*DB(J ) CALL PACK (C,SD,SD) DC(J ) = 0.0D+0 DC(J+1) = 0.0D+0 180 CONTINUE C 190 CALL CLOSE (FB,CLSREW) CALL CLOSE (SD,CLSREW) GO TO 800 C E I M C FILEA IS A ROW a F J N C VECTOR - b G K O C RESULT IN FILED, c H L P C A (Nx1) RECT. d ==> a b c d aE+bF+ aI+bJ+ aM+bN+ C MATRIX or A ROW- cG+dH cK+dL cO+dP C VECTOR C C SPECIAL CASE NEEDS TO BE CONSIDERED - C FILEB IS A DIAGONAL MATRIX. (FILEB CANNOT BE A ROW VECTOR) C C C TRANSPOSE OF FILEA, E F G C A ROW VECTOR - a aE aF aG C b bE bF bG C c cE cF cG C d dE dF dG C C SPECIAL CASES NEED TO BE CONSIDERED - C FILEB MUST BE A (Nx1) RECTANGULAR MATRIX, OR A ROW VECTOR C 200 FILE = FA JU = ROWA TYPEU = TYPED*SIGNAB CALL UNPACK (*1050,FA,A) CALL CLOSE (FA,CLSREW) CALL GOPEN (SD,A(BUF1),WRTREW) FILE = FB TYPEU = TYPED IF (T .EQ. 1) GO TO 350 C C FILEA IS A ROW-VECTOR, RESULT IS ALSO A ROW-VECTOR, OR A C (Nx1) RECTANGULAR MATRIX C JU = ROWB IF (FORMB .EQ. DIAGNL) GO TO 260 IF (ROWB .NE. ROWA) GO TO 1030 COLB4 = COLB*4 DO 205 J = 1,COLB4 205 C(J) = 0.0 DO 250 J = 1,COLB CALL UNPACK (*290,FB,B) GO TO (210,220,230,240), TYPEB 210 DO 215 K = 1,ROWB 215 C(J) = C(J) + A(K)*B(K) GO TO 250 220 DO 225 K = 1,ROWB 225 DC(J) = DC(J) + DA(K)*DB(K) GO TO 250 230 DO 235 K = 1,ROWB2,2 C(J ) = C(J ) + A(K)*B(K ) - A(K+1)*B(K+1) 235 C(J+1) = C(J+1) + A(K)*B(K+1) + A(K+1)*B(K ) GO TO 250 240 DO 245 K = 1,ROWB,2 DC(J ) = DC(J ) + DA(K)*DB(K ) - DA(K+1)*DB(K+1) 245 DC(J+1) = DC(J+1) + DA(K)*DB(K+1) + DA(K+1)*DB(K ) 250 CONTINUE GO TO 300 C C SPECIAL CASE - FILEB IS A DIAGONAL MATRIX. C 260 CALL UNPACK (*1050,FB,B) GO TO (270,280,290,300), TYPEB 270 DO 275 J = 1,COLB 275 C(J) = A(J)*B(J) GO TO 310 280 DO 285 J = 1,COLB 285 DC(J) = DA(J)*DB(J) GO TO 310 290 DO 295 J = 1,COLB2,2 C(J ) = A(J)*B(J ) - A(J+1)*B(J+1) 295 C(J+1) = A(J)*B(J+1) + A(J+1)*B(J ) GO TO 310 300 DO 305 J = 1,COLB2,2 DC(J ) = DA(J)*DB(J ) - DA(J+1)*DB(J+1) 305 DC(J+1) = DA(J)*DB(J+1) + DA(J+1)*DB(J ) C 310 CALL CLOSE (FB,CLSREW) IF (FC .EQ. 0) GO TO 340 FILE = FC TYPEU = TYPEC*SIGNC CALL GOPEN (FC,A(BUF2),RDREW) IF (FORMC .NE. ROWVEC) GO TO 311 CALL UNPACK (*1050,FC,A(1)) GO TO 314 311 IP = 1 JP = 1 DO 313 J = 1,COLC CALL UNPACK (*312,FC,A(J*NWDS-1)) GO TO 313 312 A(J*NWDS-1) = 0. A(J*NWDS ) = 0. 313 CONTINUE C 314 CALL CLOSE (FC,CLSREW) GO TO (315,325), TYPED 315 DO 320 J = 1,ROWD2 320 C(J) = C(J) + A(J) GO TO 340 325 DO 330 J = 1,ROWD2 330 DC(J) = DC(J) + DA(J) C 340 CALL PACK (C,SD,SD) FORMD = ROWVEC GO TO 970 C C FILEA (A ROW VECTOR) TRANSFPOSE C 350 IF (FORMB .EQ. ROWVEC) GO TO 390 IF (ROWB .NE. 1) GO TO 1030 IU = 0 J = 1 DO 380 I = 1,ROWB CALL UNPACK (*360,FB,B(J)) IF (IU .NE. I) GO TO 1030 GO TO 380 360 JE = J + NWDS DO 370 K = J,JE 370 B(K) = 0.0 380 J = J + NWDS CALL CLOSE (FB,CLSREW) IU = 1 GO TO 610 C C SPECAIL CASE - FILE B IS A ROW VECTOR C 390 IF (ROWB .NE. 1) GO TO 1030 JU = COLB CALL UNPACK (*1030,FB,B(1)) CALL CLOSE (FB,CLSREW) GO TO 610 C C FILEA IS IDENTITY - C C SPECIAL CASEs NEED TO BE CONSIDERED - C SIGNAB IS NEGATIVE, OR FILEB IS A DIAGONAL MATRIX C (FILEB CANNOT BE A ROW-VECTOR) C 400 CALL CLOSE (FA,CLSREW) IF (FORMB.EQ.DIAGNL .OR. SIGNAB.LT.0) GO TO 420 FILE = SD(1) CALL OPEN (*1010,FA,A(BUF1),WRTREW) CALL REWIND (FB) CALL CPYFIL (FB,SD,A(1),NZ,K) CALL CLOSE (FB,CLSREW) CALL CLOSE (SD,CLSREW) IF (FC .EQ. 0) GO TO 410 DO 405 I = 2,7 405 SD(I) = FILEB(I) GO TO 800 410 DO 415 I = 2,7 415 FILED(I) = FILEB(I) GO TO 1100 C C SPECIAL CASE - FILEB IS A DIAGONAL MATRIX C OR SIGNAB IS NEGATIVE C 420 CALL GOPEN (SD,A(BUF1),WRTREW) JU = ROWB FILE = FB TYPEU = TYPED*SIGNAB IF (FORMB .NE. DIAGNL) GO TO 430 CALL UNPACK (*1050,FB,B) CALL CLOSE (FB,CLSREW) J = 1 DO 425 I = 1,ROWA IP = I JP = I CALL PACK (B(J),SD,SD) 425 J = J + NWDS CALL CLOSE (SD,CLSREW) IF (FC) 800,950,800 C C SPECIAL CASE - SIGNAB IS NEGATIVE C 430 FILE = FB DO 435 I = 1,COLB CALL UNPACK (*1050,FB,B) CALL PACK (B,SD,SD) 435 CONTINUE CALL CLOSE (SD,CLSREW) CALL CLOSE (FB,CLSREW) IF (FC) 800,950,800 C C FILEA IS A COLUMN MATRIX - C i.e. A (1,N) RECTANGULAR MATRIX OR A (Nx1) TRANSPOSE C C FILEB MUST BE A (Nx1) RECTANGULAR MATRIX C C CURRENTLY THIS CASE IS HANDLED IN MPYAD SUBROUINTE C C HOWEVER, IF FILEB IS A ROW VECTOR, IT IS HANDLED IN 600 C IF FILEA IS A ROW VECTOR TRANSPOSE, IT IS HANDLED IN 200/350 C C 440 CONTINUE C C X 0 0 X C FILEB IS DIAGONAL - 0 Y 0 Y C 0 0 Z <== Z C a e i aX eY iZ C b f j bX fY jZ C c g k cX gY kZ C d h l dX hY lZ C 490 FILE = FB JU = COLB TYPEU = TYPED*SIGNAB CALL UNPACK (*1050,FB,B) CALL CLOSE (FB,CLSREW) CALL GOPEN (SD,A(BUF2),WRTREW) FILE = FA JU = ROWA TYPEU = TYPED DO 590 I = 1,COLA CALL UNPACK (*1050,FA,A) GO TO (500,520,540,560) TYPEB 500 DO 510 J = 1,ROWA 510 C(J) = A(J)*B(I) GO TO 580 520 DO 530 J = 1,ROWA 530 DC(J) = DA(J)*DB(I) GO TO 580 540 DO 550 J = 1,ROWA2,2 C(J ) = A(J)*B(J ) - A(J+1)*B(J+1) 550 C(J+1) = A(J)*B(J+1) + A(J+1)*B(J ) GO TO 580 560 DO 570 J = 1,ROWA2,2 DC(J ) = DA(J)*DB(J ) - DA(J+1)*DB(J+1) 570 DC(J+1) = DA(J)*DB(J+1) + DA(J+1)*DB(J ) 580 CALL PACK (C,SD,SD) 590 CONTINUE CALL CLOSE (AD,CLSREW) CALL CLOSE (SD,CLSREW) GO TO 800 C C FILEB IS A ROW VECTOR - E C F C NOTE - FILEA MUST BE A E F G <== G C ONE-COLUMN MATRIX. a aE aF aG C i.e. A(1xN) OR b bE bF bG C A(Nx1) TRNASPOSE c cE cF cG C d dE dF dG C WE ALREADY HANDLED THE CASE C WHERE FILEA IS A ROW-VECTOR TRANSPOSE IN 200 C 600 FILE = FB JU = COLB TYPEU = TYPED*SIGNAB IF (T .EQ. 1) GO TO 602 IF (COLA .NE. 1) GO TO 1030 CALL UNPACK (*1050,FB,B) GO TO 608 602 IF (ROWA .NE. 1) GO TO 1030 J = COLA*NWDS DO 604 I = 1,J 604 B(I) = 0.0 J = 1 DO 606 I = 1,COLA CALL UNPACK (*606,FB,B(J)) 606 J = J + NWDS 608 CALL CLOSE (FB,CLSREW) FILE = FA JU = ROWA TYPEU = TYPED CALL UNPACK (*1050,FA,A) CALL CLOSE (AD,CLSREW) CALL GOPEN (FD,A(BUF1),WRTREW) 610 DO 710 J = 1,COLB GO TO (620,640,660,680), TYPEA 620 DO 630 I = 1,ROWA 630 C(I) = A(I)*B(J) GO TO 700 640 DO 650 I = 1,ROWA 650 DA(I) = DA(I)*DB(J) GO TO 700 660 DO 670 I = 1,ROWA2,2 C(I ) = A(I)*B(J ) - A(I+1)*B(J+1) 670 C(I+1) = A(I)*B(J+1) + A(I+1)*B(J ) GO TO 700 680 DO 690 I = 1,ROWA2,2 DC(I ) = DA(I)*DB(J ) - DA(I+1)*DB(J+1) DC(I+1) = DA(I)*DB(J+1) + DA(I+1)*DB(J ) 690 KX = KX + NWDS 700 CALL PACK (C,FD,FILED) 710 CONTINUE CALL CLOSE (FD,CLSREW) GO TO 800 C C FILEB IS IDENTITY - C C SPECIAL CASE NEEDS TO BE CONSIDERED - C NEGATIVE SIGNAB C 750 CALL CLOSE (FB,CLSREW) FILE = SD(1) CALL OPEN (*1010,SD,A(BUF2),WRTREW) IF (SIGNAB .LT. 0) GO TO 760 CALL REWIND (FA) CALL CPYFIL (FA,SD,A(1),NZ,K) GO TO 770 C 760 TYPEU = TYPED*SIGNAB JU = ROWA FILE = FA DO 765 I = 1,COLA CALL UNPACK (*1050,FA,A) CALL PACK (A,SD,SD) 765 CONTINUE 770 CALL CLOSE (FA,CLSREW) CALL CLOSE (SD,CLSREW) IF (FC) 800,950,800 C C NULL MATRIX PRODUCT A*B, COPY FILEC TO FILED C 780 FILE = FC CALL OPEN (*1010,FC,A(BUF1),RDREW) FILE = FD CALL OPEN (*1010,FD,A(BUF2),WRTREW) CALL CPYFIL (FC,FD,A(1),NZ,K) CALL CLOSE (FC,CLSREW) CALL CLOSE (FD,CLSREW) DO 790 I = 2,7 FILED(I) = FILEC(I) 790 CONTINUE GO TO 1100 C C ADD PRODUCT OF A*B TO C C 800 IF (FC .EQ. 0) GO TO 950 CALL GOPEN (FD,A(BUF3),WRTREW) FILE = FC CALL OPEN (*1010,FC,A(BUF2),RDREW) CALL FWDREC (*1020,FC) FILE = SD(1) CALL OPEN (*1010,SD,A(BUF1),RDREW) CALL FWDREC (*1020,SD) JU = ROWC TYPEP = TYPED DO 920 I = 1,COLC TYPEU = TYPED*SIGNC CALL UNPACK (*810,FC,C) GO TO 830 810 DO 820 J = 1,ROWD2 820 C(J) = 0.0 830 TYPEU = TYPED CALL UNPACK (*840,SD,B) GO TO 860 840 DO 850 J = 1,ROWD2 850 B(J) = 0.0 860 GO TO (870,890,870,890), TYPED 870 DO 880 J = 1,ROWD2 880 A(J) = B(J) + C(J) GO TO 910 890 DO 900 J = 1,ROWD2 900 DA(J) = DB(J) + DC(J) 910 CALL PACK (A,FD,FILED) 920 CONTINUE CALL CLOSE (FC,CLSREW) CALL CLOSE (SD,CLSREW) C 950 IF (COLD .NE. 0) GO TO 970 DO 960 I = 2,7 960 FILED(I) = SD(I) 970 CALL CLOSE (FD,CLSREW) CALL WRTTRL (FILED) GO TO 1100 C C ERROR C 990 WRITE (NOUT,1000) SFM 1000 FORMAT (A25,'. MPYDRI DOES NOT HANDLE A-TRANSPOSE. SHOULD NOT BE', 1 ' CALLED BY MPYAD') GO TO 1070 1010 J = -1 GO TO 1080 1020 J = -2 GO TO 1080 1030 WRITE (NOUT,1040) UFM 1040 FORMAT (A23,' FROM MPYAD/MPYDRI. FILES NOT COMPATIBLE') GO TO 1070 1050 WRITE (NOUT,1060) UFM 1060 FORMAT (A23,' FROM MPYAD/MPYDRI. NULL COLUMN ENCOUNTERED DURING', 1 ' MATRIX UNPACK') 1070 J = -37 1080 CALL MESAGE (J,FILE,NAME) C 1100 RETURN END ================================================ FILE: mis/mpyl.f ================================================ SUBROUTINE MPYL (A,B,NCOLA,NROWA,NCOLB,C) C C SINCE CDC FORTRAN 5 IMPOSES NO LONGER EXACT NO. OF DUMMY ARGUMENT C LIST FOR SUBROUTINE AND ENTRY POINTS, THIS ROUTINE IS NOW MACHINE C INDEPENDENT. C DIMENSION A(NCOLA,NROWA),B(NCOLB,NCOLA),C(NCOLB,NROWA) DIMENSION D(NROWA,NCOLA),X(3),Y(3),VECT(3) C C SIMPLE MATRIX MULTIPLICATION C DO 10 N= 1,NCOLB DO 10 L= 1,NROWA C(N,L) = 0.0 DO 10 M= 1,NCOLA 10 C(N,L) = C(N,L)+B(N,M)*A(M,L) RETURN C ENTRY NORM (X,Y) C ================ C C NORMALIZE X VECTOR C Y(1) = X(1)*X(1)+X(2)*X(2)+X(3)*X(3) IF (Y(1) .EQ. 0.0) GO TO 15 W = 1./SQRT(Y(1)) X(1) = X(1)*W X(2) = X(2)*W X(3) = X(3)*W 15 RETURN C ENTRY CROSS (X,Y,VECT) C ====================== C C CROSS PRODUCT C VECT(1) = X(2)*Y(3)-X(3)*Y(2) VECT(2) = Y(1)*X(3)-X(1)*Y(3) VECT(3) = X(1)*Y(2)-Y(1)*X(2) RETURN C ENTRY MPYLT (D,B,NCOLA,NROWA,NCOLB,C) C ===================================== C C TRANSPOSE MULTIPLY C DO 20 N= 1,NCOLB DO 20 L= 1,NROWA C(N,L) = 0.0 DO 20 M= 1,NCOLA 20 C(N,L) = C(N,L)+D(L,M)*B(N,M) RETURN END ================================================ FILE: mis/mpyq.f ================================================ SUBROUTINE MPYQ (Z ) C C MPYQ IS CALLED ONCE PER EXECUTION OF MPYAD. IT PERFORMS GENERAL C INITIALIZATION FOR EACH OF THE ENTRY POINTS C I.E. SETTING UP MPYAD GO-TO-BRANCHES, ARITH AND BPICK FOR METHOD C 1, AND ARITH2, APICK2 AND BPICK2 FOR METHOD 2 C C ENTRY POINTS - C MPY1V (PERFORMS THE INNER LOOP FOR MPYAD, METHOD 1, C TRANSPOSE AND NON-TRANSPOSE. IT IS CALLED ONCE FOR C EACH COLUMNN OF THE A MATRIX) C MPY2NV (PERFORMS THE INNER LOOP FOR THE NON-TRANSPOSE CASE C OF METHOD 2. IT IS CALLED ONCE FOR EACH COUMN OF C THE B MATRIX) C MPY2TV (SAME AS MPY2NV, EXECPT IT IS FOR THE TRANSPOSE C CASE) C MPY3T (PERFORMS THE INNER LOOP FOR THE TRANSPOSE CASE OF C METHOD 3. IT IS CALLED ONCE FOR EACH COLUMN OF THE C B MATRIX) C (WHERE V STANDS FOR VAX VERSION, AND T IS THE TRANSPOSE FLAG) C C THE MPYi ROUTINES PERFORM THE MATRIX MULTIPLICATION AND ADDITION C FOR THE MPYAD INNER LOOPS C C (+/-)A * B (+/-)C = D OR (+/-)A(T) * B (+/-)C = D C C C LAST REVISED BY G.CHAN/UNISYS 1/91 C (1) MPY3T WAS PREVIOUSLY A .MDS SUBROUTINE. IT IS NOW AN ENTRY C POINT IN THIS MPYQ ROUTINE C (MPY3T IS AN ENTRY POINT IN MPYQ, IN IBM AND CDC VERSIONS) C (2) TO IMPROVE MPYAD INNER LOOP LOGIC FOR THE COMMON CASES C C IMPLICIT INTEGER (A-Z) REAL A(4) ,B(4) ,D(4) ,Z(1) ,AA(4) ,AAA , 1 BSR ,AAS(1) ,DDS(1) ,BBB ,BSI ,BBS DOUBLE PRECISION AD(2) ,BD(2) ,DD(2) ,ZD(1) ,ADD(2),BDR , 1 BDI ,AAD(1) ,DDD(1) ,BBD(1) DIMENSION ZZ(1) COMMON /MPYADX/ FILEA(7),FILEB(7),FILEC(7),FILED(7),NZ ,T , 1 SIGNAB ,SIGNC ,PREC1 ,SCRTCH ,TIME 2 /SYSTEM/ KSYSTM(65) 3 /TYPE / PRC(2) ,NWDS(4) ,RC(4) 4 /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW,CLS 5 /ZBLPKX/ D ,DROW 6 /ZNTPKX/ A ,I ,EOL ,EOR 7 /PACKX / TYPED ,TYPD1 ,ONE1 ,PP1 ,INCR1 8 /UNPAKX/ TYPEBD ,ONE2 ,PP2 ,INCR2 COMMON /MPYADZ/ RCB ,RCD ,LL ,LLL ,JB ,NBX , 1 NDX ,JMAX1X ,ACOL ,ACOL1 ,ACOLN ,ACORE, 2 APOINT ,BCOL ,CROW ,FIRSTL ,NA ,NB , 3 ND ,NWDA ,NWDB ,NWDD ,PREC ,JMAX , 4 INCRA ,BLOCK(20) COMMON /MPYQT4/ RCA ,PRCA ,ALL4 ,JUMP4 ,PREC4 COMMON /ZZZZZZ/ BBS(17000) EQUIVALENCE (KSYSTM( 1),SYSBUF) ,(KSYSTM( 2),MOUT ) , 1 (KSYSTM(58),IPASS ) EQUIVALENCE (A(1) ,AD(1) ) ,(B(1) ,BD(1)) , 1 (D(1) ,DD(1) ) ,(FILEA(2),M ) , 2 (FILEA(3),N ) ,(FILEA(5),TYPEA ) , 3 (FILEB(2),Q ) ,(FILEB(3),R ) , 4 (FILEB(5),TYPEB ) ,(FILEC(5),TYPEC ) , 5 (FILED(5),TYPD ) ,(NZZ ,BUF1 ) , 6 (ACOLN ,AROWN ) ,(AA(1) ,ADD(1) ) , 7 (ACOL1 ,AROW1 ) ,(ACOL ,AROW ) , 8 (BBS(1) ,BBD(1) ) EQUIVALENCE (BLOCK(2),TYPE ) ,(BLOCK(3),FORM ) , 1 (BLOCK(4),ROW, J3 ) ,(BLOCK(5),POINT ) , 2 (BLOCK(6),NBRSTR ) ,(BLOCK(8),FLAG ) EQUIVALENCE (BLOCK(5),JB31 ) ,(BLOCK(6),NTERM3 ) , 1 (BLOCK(7),JB3N ) ,(BLOCK(8),B3FLAG ) C DATA MASK6F / X'00FFFFFF' / DATA MASK6F / 16777215 / C C MASK6F= '00FFFFFF'X (OR X'00FFFFFF') = 16777215 C RCB = 1 IF B IS REAL,2 IF B IS COMPLEX C NWDB = NUMBER OF WORDS PER ELEMENT OF B C NBX = NUMBER OF ELEMENTS PER COLUMN OF B C NB = NUMBER OF WORDS PER COLUMN OF B C NDX = NUMBER OF ELEMENTS PER COLUMN OF C AND D C ND = NUMBER OF WORDS PER COLUMN OF C AND D C NZZ = BUF1 = POINTER TO FIRST GINO BUFFER C BUF2 = POINTER TO SECOND GINO BUFFER C BUF3 = POINTER TO THIRD GINO BUFFER C JJ = MAX. NO. OF COLUMNS OF B AND D THAT MAY BE HELD IN CORE C MPASS1= NUMBER OF PASSES REQUIRED FOR METHOD ONE C JZB = POINTER TO FIRST ELEMENT OF B FOR SP REFERENCE C JZDB = POINTER TO FIRST ELEMENT OF B FOR DP REFERENCE C JB = POINTER TO FIRST ELEMENT OF B FOR PRECISION OF PROBLEM C NWDA = NUMBER OF WORDS PER ELEMENT OF A C NWDD = NUMBER OF WORDS PER ELEMENT OF D C ACORE = POINTER TO FIRST WORD FOR STORAGE OF PACKED COLUMNS C OF A MATRIX FOR METHOD TWO C***** RCA = RC(TYPEA) MODB = MOD(TYPEB,2) MODA = MOD(TYPEA,2) PRCA = PRC(TYPEA) FA3 = FILEA(3) C C IF DIAG 43 IS ON, SKIP ALL (1991) SPEED IMPROVEMENT LOGIC C (THIS IS ONLY TEMPORARY) C ALL = 0 IF (TYPEA.EQ.TYPEB .AND. TYPEA.EQ.TYPED) ALL = TYPEA ALL4 = ALL IF (ALL4 .EQ. 0) ALL4 = 5 IF (TYPED.GE.3 .AND. TYPEA.LE.2 .AND. TYPEB.LE.2) ALL4 = 6 CALL SSWTCH (43,J) IF (J .EQ. 1) ALL = 0 JUMP4 = TYPEB + (TYPEA-1)*4 PREC4 = PREC1 - 1 C C RCA, PRCA, ALL4 AND JUMP4 ARE USED IN MPY4T C GO TO (20,40,100,300), TYPED C C REAL SINGLE PRECISION C 20 ASSIGN 840 TO ARITH ASSIGN 750 TO BPICK IF (T .NE. 0) GO TO 30 C ASSIGN 1210 TO ARITH2 ASSIGN 1010 TO BPICK2 ASSIGN 1100 TO APICK2 GO TO 600 C 30 ASSIGN 1600 TO ARITH2 ASSIGN 1400 TO BPICK2 ASSIGN 1500 TO APICK2 GO TO 600 C C REAL DOUBLE PRECISION C 40 ASSIGN 850 TO ARITH ASSIGN 770 TO BPICK IF (MODB .EQ. 1) ASSIGN 790 TO BPICK IF (T .NE. 0) GO TO 60 C ASSIGN 1220 TO ARITH2 ASSIGN 1030 TO BPICK2 IF (MODB .EQ. 1) ASSIGN 1050 TO BPICK2 ASSIGN 1120 TO APICK2 50 IF (MODA .EQ. 1) ASSIGN 1140 TO APICK2 GO TO 600 C 60 ASSIGN 1610 TO ARITH2 ASSIGN 1420 TO BPICK2 IF (MODB .EQ. 1) ASSIGN 1440 TO BPICK2 ASSIGN 1520 TO APICK2 70 IF (MODA .EQ. 1) ASSIGN 1540 TO APICK2 GO TO 600 C C COMPLEX SINGLE PRECISION C 100 ASSIGN 860 TO ARITH GO TO (110,110,120,130), TYPEB 110 ASSIGN 750 TO BPICK GO TO 140 120 ASSIGN 760 TO BPICK GO TO 140 130 ASSIGN 810 TO BPICK 140 IF (T .NE. 0) GO TO 220 C ASSIGN 1230 TO ARITH2 GO TO (150,150,160,170), TYPEB 150 ASSIGN 1010 TO BPICK2 GO TO 180 160 ASSIGN 1020 TO BPICK2 GO TO 180 170 ASSIGN 1070 TO BPICK2 180 GO TO (190,190,200,210), TYPEA 190 ASSIGN 1100 TO APICK2 GO TO 600 200 ASSIGN 1110 TO APICK2 GO TO 600 210 ASSIGN 1160 TO APICK2 GO TO 600 220 ASSIGN 1620 TO ARITH2 C GO TO (230,230,240,250), TYPEB 230 ASSIGN 1400 TO BPICK2 GO TO 260 240 ASSIGN 1410 TO BPICK2 GO TO 260 250 ASSIGN 1460 TO BPICK2 260 GO TO (270,270,280,290), TYPEA 270 ASSIGN 1500 TO APICK2 GO TO 600 280 ASSIGN 1510 TO APICK2 GO TO 600 290 ASSIGN 1560 TO APICK2 GO TO 600 C C COMPLEX DOUBLE PRECISION C 300 ASSIGN 870 TO ARITH GO TO (310,320,330,340), TYPEB 310 ASSIGN 790 TO BPICK GO TO 350 320 ASSIGN 770 TO BPICK GO TO 350 330 ASSIGN 800 TO BPICK GO TO 350 340 ASSIGN 780 TO BPICK 350 IF (T .NE. 0) GO TO 440 C ASSIGN 1240 TO ARITH2 GO TO (360,370,380,390), TYPEB 360 ASSIGN 1050 TO BPICK2 GO TO 400 370 ASSIGN 1030 TO BPICK2 GO TO 400 380 ASSIGN 1060 TO BPICK2 GO TO 400 390 ASSIGN 1040 TO BPICK2 400 GO TO (50,410,420,430), TYPEA 410 ASSIGN 1120 TO APICK2 GO TO 600 420 ASSIGN 1150 TO APICK2 GO TO 600 430 ASSIGN 1130 TO APICK2 GO TO 600 C 440 ASSIGN 1630 TO ARITH2 GO TO (450,460,470,480), TYPEB 450 ASSIGN 1440 TO BPICK2 GO TO 490 460 ASSIGN 1420 TO BPICK2 GO TO 490 470 ASSIGN 1450 TO BPICK2 GO TO 490 480 ASSIGN 1430 TO BPICK2 490 GO TO (70,500,510,520), TYPEA 500 ASSIGN 1520 TO APICK2 GO TO 600 510 ASSIGN 1550 TO APICK2 GO TO 600 520 ASSIGN 1530 TO APICK2 C C MPYQ INITIALIZATION DONE C 600 RETURN C C ENTRY MPY1V (ZZ ,Z ,ZD ) C ===================== C C METHOD 1 (TRANSPOSE AND NON-TRANSPOSE) C 700 B (2) = 0. BD(2) = 0.D0 710 CALL ZNTPKI I1 = I - 1 IF (T) 730,720,730 720 K1 = LL K2 = I1*RCD + 1 GO TO 740 730 K1 = I1*RCB + JB K2 = LLL 740 K3 = K2 + JMAX1X IF (ALL .NE. 0) GO TO (900,920,940,960), ALL DO 880 K = K2,K3,NDX J = K1 GO TO BPICK, (750,760,770,780,790,800,810) 750 IF (Z(J) .EQ. 0.0) GO TO 880 B(1) = Z(J) GO TO 830 760 IF (Z(J).EQ.0.0 .AND. Z(J+1).EQ.0.0) GO TO 880 B(1) = Z(J ) B(2) = Z(J+1) GO TO 830 770 IF (ZD(J) .EQ. 0.D0) GO TO 880 BD(1) = ZD(J) GO TO 830 780 IF (ZD(J).EQ.0.D0 .AND. ZD(J+1).EQ.0.D0) GO TO 880 BD(1) = ZD(J ) BD(2) = ZD(J+1) GO TO 830 790 IF (Z(J) .EQ. 0.0) GO TO 880 BD(1) = Z(J) GO TO 830 800 IF (Z(J).EQ.0.0 .AND. Z(J+1).EQ.0.0) GO TO 880 BD(1) = Z(J ) BD(2) = Z(J+1) GO TO 830 810 IF (ZD(J).EQ.0.D0 .AND. ZD(J+1).EQ.0.D0) GO TO 880 B(1) = ZD(J ) B(2) = ZD(J+1) C 830 GO TO ARITH, (840,850,860,870) 840 Z(K) = Z(K) + A(1)*B(1) GO TO 880 850 ZD(K) = ZD(K) + AD(1)*BD(1) GO TO 880 860 Z(K ) = Z(K ) + A(1)*B(1) - A(2)*B(2) Z(K+1) = Z(K+1) + A(1)*B(2) + A(2)*B(1) GO TO 880 870 ZD(K ) = ZD(K ) + AD(1)*BD(1) - AD(2)*BD(2) ZD(K+1) = ZD(K+1) + AD(1)*BD(2) + AD(2)*BD(1) 880 K1 = K1 + NBX IF (EOL) 980,710,980 C C COMMON CASES (TYPEA=TYPEB=TYPED=PREC) C C PREC=1, ARITH(840) AND BPICK(750) C PREC=2, ARITH(850) AND BPICK(770) C PREC=3, ARITH(860) AND BPICK(760) C PREC=4, ARITH(870) AND BPICK(780) C 900 DO 910 K = K2,K3,NDX Z(K) = Z(K) + A(1)*Z(K1) 910 K1 = K1 + NBX IF (EOL) 980,710,980 920 DO 930 K = K2,K3,NDX ZD(K) = ZD(K) + AD(1)*ZD(K1) 930 K1 = K1 + NBX IF (EOL) 980,710,980 940 DO 950 K = K2,K3,NDX Z(K ) = Z(K ) + A(1)*Z(K1 ) - A(2)*Z(K1+1) Z(K+1) = Z(K+1) + A(1)*Z(K1+1) + A(2)*Z(K1 ) 950 K1 = K1 + NBX IF (EOL) 980,710,980 960 DO 970 K = K2,K3,NDX ZD(K ) = ZD(K ) + AD(1)*ZD(K1 ) - AD(2)*ZD(K1+1) ZD(K+1) = ZD(K+1) + AD(1)*ZD(K1+1) + AD(2)*ZD(K1 ) 970 K1 = K1 + NBX IF (EOL) 980,710,980 980 RETURN C C ENTRY MPY2NV (ZZ ,Z ,ZD ) C ====================== C C METHOD 2 NON-TRANSPOSE CASE C B(2) = 0. BD(2) = 0.D0 AA(2) = 0. ADD(2)= 0.D0 L = FIRSTL ACOL = ACOL1 1000 CALL ZNTPKI IF (I.LT.ACOL1 .OR. I.GT.ACOLN .OR. I.LT.ACOL) GO TO 1290 L = L - 2*(I-ACOL) ACOL = I APOINT= ZZ(L) IF (APOINT .EQ. 0) GO TO 1280 NBR = ZZ(L-1) IF (ALL .NE. 0) GO TO (1260,1265,1270,1275), ALL GO TO BPICK2, (1010,1020,1030,1040,1050,1060,1070) 1010 B(1) = A(1) GO TO 1090 1020 B(1) = A(1) B(2) = A(2) GO TO 1090 1030 BD(1) = AD(1) GO TO 1090 1040 BD(1) = AD(1) BD(2) = AD(2) GO TO 1090 1050 BD(1) = A(1) GO TO 1090 1060 BD(1) = A(1) BD(2) = A(2) GO TO 1090 1070 B(1) = AD(1) B(2) = AD(2) C 1090 NBRSTR = ZZ( APOINT+1 ) INIT = ZZ( APOINT ) APOINT = APOINT + 2 J = APOINT IF ( PRCA .EQ. 2 ) J = J/2 + 1 APOINT = APOINT+ NBRSTR*NWDA IROW = INIT*RCD - RCD + 1 NROW = IROW + NBRSTR*RCD - 1 DO 1250 K = IROW,NROW,RCD GO TO APICK2, (1100,1110,1120,1130,1140,1150,1160) 1100 AA(1) = Z(J) GO TO 1200 1110 AA(1) = Z(J ) AA(2) = Z(J+1) GO TO 1200 1120 ADD(1)= ZD(J) GO TO 1200 1130 ADD(1)= ZD(J ) ADD(2)= ZD(J+1) GO TO 1200 1140 ADD(1)= Z(J) GO TO 1200 1150 ADD(1)= Z(J ) ADD(2)= Z(J+1) GO TO 1200 1160 AA(1) = ZD(J ) AA(2) = ZD(J+1) C 1200 GO TO ARITH2, (1210,1220,1230,1240) 1210 Z(K) = Z(K) + AA(1)*B(1) GO TO 1250 1220 ZD(K) = ZD(K) + ADD(1)*BD(1) GO TO 1250 1230 Z(K )= Z(K ) + AA(1)*B(1) - AA(2)*B(2) Z(K+1)= Z(K+1) + AA(1)*B(2) + AA(2)*B(1) GO TO 1250 1240 ZD(K ) = ZD(K ) + ADD(1)*BD(1) - ADD(2)*BD(2) ZD(K+1) = ZD(K+1) + ADD(1)*BD(2) + ADD(2)*BD(1) 1250 J = J + RCA NBR = NBR - 1 IF (NBR) 1280,1280,1090 C C COMMON CASES (TYPEA=TYPEB=TYPED=PREC) C C PREC=1, ARITH2(1210), APICK2(1100) AND BPICK2(1010) C PREC=2, ARITH2(1220), APICK2(1120) AND BPICK2(1030) C PREC=3, ARITH2(1230), APICK2(1110) AND BPICK2(1020) C PREC=4, ARITH2(1620), APICK2(1510) AND BPICK2(1410) C 1260 NBRSTR = ZZ( APOINT+1 ) INIT = ZZ( APOINT ) APOINT = APOINT + 2 J = APOINT IF ( PRCA .EQ. 2 ) J = J/2 + 1 APOINT = APOINT+ NBRSTR*NWDA IROW = INIT*RCD - RCD + 1 NROW = IROW + NBRSTR*RCD - 1 DO 1262 K = IROW,NROW,RCD Z(K) = Z(K) + Z(J)*A(1) 1262 J = J + RCA NBR = NBR - 1 IF (NBR) 1280,1280,1260 C 1265 NBRSTR = ZZ( APOINT+1 ) INIT = ZZ( APOINT ) APOINT = APOINT + 2 J = APOINT IF ( PRCA .EQ. 2 ) J = J/2 + 1 APOINT = APOINT+ NBRSTR*NWDA IROW = INIT*RCD - RCD + 1 NROW = IROW + NBRSTR*RCD - 1 DO 1267 K = IROW,NROW,RCD ZD(K) = ZD(K) + ZD(J)*AD(1) 1267 J = J + RCA NBR = NBR - 1 IF (NBR) 1280,1280,1265 C 1270 NBRSTR = ZZ( APOINT+1 ) INIT = ZZ( APOINT ) APOINT = APOINT + 2 J = APOINT IF ( PRCA .EQ. 2 ) J = J/2 + 1 APOINT = APOINT+ NBRSTR*NWDA IROW = INIT*RCD - RCD + 1 NROW = IROW + NBRSTR*RCD - 1 DO 1272 K = IROW,NROW,RCD Z(K ) = Z(K ) + Z(J)*A(1) - Z(J+1)*A(2) Z(K+1) = Z(K+1) + Z(J)*A(2) + Z(J+1)*A(1) 1272 J = J + RCA NBR = NBR - 1 IF (NBR) 1280,1280,1270 C 1275 NBRSTR = ZZ( APOINT+1 ) INIT = ZZ( APOINT ) APOINT = APOINT + 2 J = APOINT IF ( PRCA .EQ. 2 ) J = J/2 + 1 APOINT = APOINT+ NBRSTR*NWDA IROW = INIT*RCD - RCD + 1 NROW = IROW + NBRSTR*RCD - 1 DO 1277 K = IROW,NROW,RCD ZD(K ) = ZD(K ) + ZD(J)*AD(1) - ZD(J+1)*AD(2) ZD(K+1) = ZD(K+1) + ZD(J)*AD(2) + ZD(J+1)*AD(1) 1277 J = J + RCA NBR = NBR - 1 IF (NBR) 1280,1280,1275 C 1280 L = L - 2 ACOL = ACOL + 1 1290 IF (EOL .EQ. 0) GO TO 1000 RETURN C C ENTRY MPY2TV (ZZ ,Z ,ZD ) C ====================== C C METHOD 2 - TRANSPOSE CASE C C COMMENTS FROM G.CHAN/UNISYS 1/91 C OBSERVE THAT THERE IS NO DO-LOOP IN THIS MPY2TV LOGIC. IT IS C THEREFORE CONCLUDED THAT THE TRANSPOSE CASE WOULD TAKE MUCH MORE C TIME THAN THE NON-TRANSPOSE CASE C B(2) = 0. BD(2) = 0.D0 AA(2) = 0. ADD(2)= 0.D0 DD(1) = 0.D0 DD(2) = 0.D0 L = FIRSTL APOINT= ZZ(L) AROW = AROW1 IF (CROW .EQ. MASK6F) GO TO 1350 GO TO 1330 1300 APOINT = ZZ(L) IF (CROW-AROW) 1320,1340,1350 1310 DROW = CROW CALL ZBLPKI 1320 IF (EOL .NE. 0) GO TO 1350 1330 CALL ZNTPKI CROW = I 1340 DD(1) = AD(1) DD(2) = AD(2) IF (CROW-AROW) 1310,1360,1350 1350 DD(1) = 0.D0 DD(2) = 0.D0 IF (APOINT .EQ. 0) GO TO 1690 1360 DROW = AROW IF (APOINT .EQ. 0) GO TO 1680 NBRSTR= ZZ(L-1) 1370 NBR = ZZ( APOINT+1 ) NBR1 = NBR INIT = ZZ( APOINT ) APOINT = APOINT + 2 J = APOINT IF ( PRCA .GT. 1 ) J = J/2 + 1 APOINT = APOINT + NBR*NWDA K = (INIT-1)*RCB + 1 1380 IF (ALL .NE. 0) GO TO (1640,1645,1650,1655), ALL GO TO BPICK2, (1400,1410,1420,1430,1440,1450,1460) 1400 B(1) = Z(K) GO TO 1470 1410 B(1) = Z(K ) B(2) = Z(K+1) GO TO 1470 1420 BD(1) = ZD(K) GO TO 1470 1430 BD(1) = ZD(K ) BD(2) = ZD(K+1) GO TO 1470 1440 BD(1) = Z(K) GO TO 1470 1450 BD(1) = Z(K ) BD(2) = Z(K+1) GO TO 1470 1460 B(1) = ZD(K ) B(2) = ZD(K+1) C 1470 GO TO APICK2, (1500,1510,1520,1530,1540,1550,1560) 1500 AA(1) = Z(J) GO TO 1570 1510 AA(1) = Z(J ) AA(2) = Z(J+1) GO TO 1570 1520 ADD(1)= ZD(J) GO TO 1570 1530 ADD(1)= ZD(J ) ADD(2)= ZD(J+1) GO TO 1570 1540 ADD(1)= Z(J) GO TO 1570 1550 ADD(1)= Z(J ) ADD(2)= Z(J+1) GO TO 1570 1560 AA(1) = Z(J ) AA(2) = Z(J+2) C 1570 GO TO ARITH2, (1600,1610,1620,1630) 1600 D(1) = D(1) + AA(1)*B(1) GO TO 1660 1610 DD(1) = DD(1) + ADD(1)*BD(1) GO TO 1660 1620 D(1) = D(1) + AA(1)*B(1) - AA(2)*B(2) D(2) = D(2) + AA(1)*B(2) + AA(2)*B(1) GO TO 1660 1630 DD(1) = DD(1) + ADD(1)*BD(1) - ADD(2)*BD(2) DD(2) = DD(2) + ADD(1)*BD(2) + ADD(2)*BD(1) GO TO 1660 C C COMMON CASES (TYPEA=TYPEB=TYPED=PREC) C C PREC=1, ARITH2(1600), APICK2(1500) AND BPICK2(1400) C PREC=2, ARITH2(1610), APICK2(1520) AND BPICK2(1420) C PREC=3, ARITH2(1620), APICK2(1510) AND BPICK2(1410) C PREC=4, ARITH2(1630), APICK2(1530) AND BPICK2(1430) C 1640 D(1) = D(1) + Z(J)*Z(K) J = J + RCA K = K + RCB NBR = NBR - 1 IF (NBR) 1670,1670,1640 C 1645 DD(1) = DD(1) + ZD(J)*ZD(K) J = J + RCA K = K + RCB NBR = NBR - 1 IF (NBR) 1670,1670,1645 C 1650 D(1) = D(1) + Z(J)*Z(K ) - Z(J+1)*Z(K+1) D(2) = D(2) + Z(J)*Z(K+1) + Z(J+1)*Z(K ) J = J + RCA K = K + RCB NBR = NBR - 1 IF (NBR) 1670,1670,1650 C 1655 DD(1) = DD(1) + ZD(J)*ZD(K ) - ZD(J+1)*ZD(K+1) DD(2) = DD(2) + ZD(J)*ZD(K+1) + ZD(J+1)*ZD(K ) J = J + RCA K = K + RCB NBR = NBR - 1 IF (NBR) 1670,1670,1655 C 1660 J = J + RCA K = K + RCB NBR = NBR - 1 IF (NBR .GT. 0) GO TO 1380 1670 NBRSTR = NBRSTR - 1 IF (NBRSTR .GT. 0) GO TO 1370 1680 CALL ZBLPKI 1690 L = L - 2 AROW = AROW + 1 IF (AROW .LE. AROWN) GO TO 1300 RETURN C C ENTRY MPY3T (*,AAS ,AAD ,DDS ,DDD ) C =============================== C C METHOD 3 (TRANSPOSE ONLY) C B3FLAG = -1 CALL GETSTR (*2400,BLOCK) CIBMNB 6/93 IF ( BLOCK( 2 ) .EQ. TYPEB ) GO TO 1699 TYPEB = BLOCK( 2 ) RCB = RC( TYPEB ) ALL = 0 1699 CONTINUE CIBMNE 6/93 IF (ALL .NE. 0) GO TO (1760,1920,2060,2270), ALL GO TO (1700,1800,2000,2100), TYPED C C PERFORM ARITHMETIC IN REAL SINGLE PRECISION C 1700 JB3N = JB31 + NTERM3 - 1 DO 1740 JB3 = JB31,JB3N K = J3 BBB = BBS(JB3) IF (BLOCK(2) .EQ. 2) BBB = BBD(JB3) IF (TYPEA .NE. 2) GO TO 1720 DO 1710 I = AROW1,AROWN AAA = AAD(K) DDS(I) = DDS(I) + AAA*BBB 1710 K = K + NA GO TO 1740 1720 DO 1730 I = AROW1,AROWN DDS(I) = DDS(I) + AAS(K)*BBB 1730 K = K + NA 1740 J3 = J3 + 1 CALL ENDGET (BLOCK) CALL GETSTR (*2500,BLOCK) GO TO 1700 C C COMMON CASE (TYPEA=TYPEB=TYPED=PREC=1) C 1760 JB3N = JB31 + NTERM3 - 1 DO 1780 JB3 = JB31,JB3N K = J3 DO 1770 I = AROW1,AROWN DDS(I) = DDS(I) + AAS(K)*BBS(JB3) 1770 K = K + NA 1780 J3 = J3 + 1 CALL ENDGET (BLOCK) CALL GETSTR (*2500,BLOCK) GO TO 1760 C C PERFORM ARITHMETIC IN REAL DOUBLE PRECISION C 1800 K1 = 2*(PRCA-1) + PRC(TYPEB) 1810 JB3N = JB31 + NTERM3 - 1 DO 1900 JB3 = JB31,JB3N K = J3 GO TO (1820,1840,1860,1880), K1 1820 DO 1830 I = AROW1,AROWN DDD(I) = DDD(I) + AAS(K)*BBS(JB3) 1830 K = K + FA3 GO TO 1900 1840 DO 1850 I = AROW1,AROWN DDD(I) = DDD(I) + AAS(K)*BBD(JB3) 1850 K = K + FA3 GO TO 1900 1860 DO 1870 I = AROW1,AROWN DDD(I) = DDD(I) + AAD(K)*BBS(JB3) 1870 K = K + FA3 GO TO 1900 1880 DO 1890 I = AROW1,AROWN DDD(I) = DDD(I) + AAD(K)*BBD(JB3) 1890 K = K + FA3 1900 J3 = J3 + 1 CALL ENDGET (BLOCK) CALL GETSTR (*2500,BLOCK) GO TO 1810 C C COMMON CASE (TYPEA=TYPEB=TYPED=PREC=2) C 1920 JB3N = JB31 + NTERM3 - 1 DO 1940 JB3 = JB31,JB3N K = J3 DO 1930 I = AROW1,AROWN DDD(I) = DDD(I) + AAD(K)*BBD(JB3) 1930 K = K + FA3 1940 J3 = J3 + 1 CALL ENDGET (BLOCK) CALL GETSTR (*2500,BLOCK) GO TO 1920 C C PERFORM ARITHMETIC IN COMPLEX SINGLE PRECISION C 2000 BSI = 0. I1 = 2*AROW1 - 1 IN = 2*AROWN - 1 2010 IF (RCA .EQ. 2) J3 = 2*J3 - 1 JB3N = JB31 + RCB*NTERM3 - RCB DO 2050 JB3 = JB31,JB3N,RCB BSR = BBS(JB3) IF (RCB .EQ. 2) BSI = BBS(JB3+1) K = J3 IF (RCA .EQ. 2) GO TO 2030 DO 2020 I = I1,IN,2 DDS(I ) = DDS(I ) + AAS(K)*BSR DDS(I+1) = DDS(I+1) + AAS(K)*BSI 2020 K = K + NA GO TO 2050 2030 DO 2040 I = I1,IN,2 DDS(I ) = DDS(I ) + AAS(K)*BSR - AAS(K+1)*BSI DDS(I+1) = DDS(I+1) + AAS(K)*BSI + AAS(K+1)*BSR 2040 K = K + NA 2050 J3 = J3 + RCA CALL ENDGET (BLOCK) CALL GETSTR (*2500,BLOCK) GO TO 2010 C C COMMON CASE (TYPEA=TYPEB=TYPED=PREC=3) C 2060 I1 = 2*AROW1 - 1 IN = 2*AROWN - 1 2070 J3 = 2*J3 - 1 JB3N = JB31 + RCB*NTERM3 - RCB DO 2090 JB3 = JB31,JB3N,RCB K = J3 DO 2080 I = I1,IN,2 DDS(I ) = DDS(I ) + AAS(K)*BBS(JB3 ) - AAS(K+1)*BBS(JB3+1) DDS(I+1) = DDS(I+1) + AAS(K)*BBS(JB3+1) + AAS(K+1)*BBS(JB3 ) 2080 K = K + NA 2090 J3 = J3 + RCA CALL ENDGET (BLOCK) CALL GETSTR (*2500,BLOCK) GO TO 2070 C C PERFORM ARITHMETIC IN COMPLEX DOUBLE PRECISION C 2100 BDI = 0. INCA= RCA*FA3 I1 = 2*AROW1 - 1 IN = 2*AROWN - 1 2110 IF (RCA .EQ. 2) J3 = 2*J3 - 1 JB3N = JB31 + RCB*NTERM3 - RCB DO 2260 JB3 = JB31,JB3N,RCB K = J3 GO TO (2120,2130,2140,2150), TYPEB 2120 BDR = BBS(JB3) GO TO 2160 2130 BDR = BBD(JB3) GO TO 2160 2140 BDR = BBS(JB3 ) BDI = BBS(JB3+1) GO TO 2160 2150 BDR = BBD(JB3 ) BDI = BBD(JB3+1) 2160 GO TO (2170,2190,2210,2230), TYPEA 2170 DO 2180 I = I1,IN,2 DDD(I ) = DDD(I ) + AAS(K)*BDR DDD(I+1) = DDD(I+1) + AAS(K)*BDI 2180 K = K + INCA GO TO 2250 2190 DO 2200 I = I1,IN,2 DDD(I ) = DDD(I ) + AAD(K)*BDR DDD(I+1) = DDD(I+1) + AAD(K)*BDI 2200 K = K + INCA GO TO 2250 2210 DO 2220 I = I1,IN,2 DDD(I ) = DDD(I ) + AAS(K)*BDR - AAS(K+1)*BDI DDD(I+1) = DDD(I+1) + AAS(K)*BDI + AAS(K+1)*BDR 2220 K = K + INCA GO TO 2250 2230 DO 2240 I = I1,IN,2 DDD(I ) = DDD(I ) + AAD(K)*BDR - AAD(K+1)*BDI DDD(I+1) = DDD(I+1) + AAD(K)*BDI + AAD(K+1)*BDR 2240 K = K + INCA 2250 J3 = J3 + RCA 2260 CONTINUE CALL ENDGET (BLOCK) CALL GETSTR (*2500,BLOCK) GO TO 2110 C C COMMON CASE (TYPEA=TYPEB=TYPED=PREC=4) C 2270 INCA= RCA*FA3 I1 = 2*AROW1 - 1 IN = 2*AROWN - 1 2280 J3 = 2*J3 - 1 JB3N = JB31 + RCB*NTERM3 - RCB DO 2300 JB3 = JB31,JB3N,RCB K = J3 DO 2290 I = I1,IN,2 DDD(I ) = DDD(I ) + AAD(K)*BBD(JB3 ) - AAD(K+1)*BBD(JB3+1) DDD(I+1) = DDD(I+1) + AAD(K)*BBD(JB3+1) + AAD(K+1)*BBD(JB3 ) 2290 K = K + INCA 2300 J3 = J3 + RCA CALL ENDGET (BLOCK) CALL GETSTR (*2500,BLOCK) GO TO 2280 C 2400 RETURN 1 2500 RETURN END ================================================ FILE: mis/mqdplt.f ================================================ SUBROUTINE MQDPLT C C THIS ROUTINE GENERATES FOUR 6X6 STIFFNESS MATRICES WITH RESPECT C TO ONE PIVOT POINT OF A QUADRILATERAL PLATE ELEMENT. C C REF. FMMS-66 JUNE 23, 1969 TRI.BENDING ELEMENT MASS C FMMS-66 JUNE 23, 1969 QUAD. BENDING ELEMENT MASS C C CALLS FROM THIS ROUTINE ARE MADE TO C MTRBSC - BASIC BENDING TRI. ROUTINE. C TRANSD - SUPPLIES 3X3 TRANSFORMATIONS C SMA2B - INSERTION ROUTINE C GMMATD - GENERAL MATRIX MULITPLY AND TRANSPOSE ROUTINE C MESAGE - ERROR MESSAGE WRITER C C ALL WRITE STATEMENTS WHICH HAVE BEEN COMMENTED OUT, HAVE BEEN C LEFT IN THE PROGRAMMING FOR ANY FUTURE DEBUGGING USE. C C ECPT LISTS AS OF AUGUST 4, 1967 C C DEFINITION DEFINITION C ECPT BSC.BEND.TRI.-----TYPE QUAD.PLT.---------TYPE C ======== ============= ======= =============== ======= C ECPT( 1) = ELEMENT ID INTEGER ** ELEMENT INTEGER C ECPT( 2) = GRID PT. A INTEGER ** GRID PT.A INTEGER C ECPT( 3) = GRID PT. B INTEGER ** GRID PT.B INTEGER C ECPT( 4) = GRID PT. C INTEGER ** GRID PT.C INTEGER C ECPT( 5) = THETA REAL ** GRID PT.D INTEGER C ECPT( 6) = MAT ID 1 INTEGER ** THETA REAL C ECPT( 7) = I MOM. OF INERT. REAL ** MAT ID 1 INTEGER C ECPT( 8) = MAT ID 2 INTEGER ** I MOM. OF INERT. REAL C ECPT( 9) = T2 REAL ** MAT ID 2 INTEGER C ECPT(10) = NON-STRUCT. MASS REAL ** T2 REAL C ECPT(11) = Z1 REAL ** NON-STRUCT. MASS REAL C ECPT(12) = Z2 REAL ** Z1 REAL C ECPT(13) = COORD. SYS. ID 1 INTEGER ** Z2 REAL C ECPT(14) = X1 REAL ** COORD. SYS. ID 1 INTEGER C ECPT(15) = Y1 REAL ** X1 REAL C ECPT(16) = Z1 REAL ** Y1 REAL C ECPT(17) = COORD. SYS. ID 2 INTEGER ** Z1 REAL C ECPT(18) = X2 REAL ** COORD. SYS. ID 2 INTEGER C ECPT(19) = Y2 REAL ** X2 REAL C ECPT(20) = Z2 REAL ** Y2 REAL C ECPT(21) = COORD. SYS. ID 3 INTEGER ** Z2 REAL C ECPT(22) = X3 REAL ** COORD. SYS. ID 3 INTEGER C ECPT(23) = Y3 REAL ** X3 REAL C ECPT(24) = Z3 REAL ** Y3 REAL C ECPT(25) = ELEMENT TEMP REAL ** Z3 REAL C ECPT(26) = ** COORD. SYS. ID 4 INTEGER C ECPT(27) = ** X4 REAL C ECPT(28) = ** Y4 REAL C ECPT(29) = ** Z4 REAL C ECPT(30) = ** ELEMENT TEMP REAL C INTEGER SUBSCA,SUBSCB,SUBSCC DOUBLE PRECISION MOUT,TITE,DPDUM1,TJTE,DPDUM2,IVECT,D1,JVECT,D2, 1 KVECT,A1,MSUM,T,V,VV,XSUBB,XSUBC,YSUBC,PROD9, 2 TEMP,TEMP9,TEMP36,U1,U2,H,E,A,REQUIV,R,IIZ,MIZ, 3 SIGN,PTMASS,M6X6 DIMENSION M(12),NECPT(100),REQUIV(8),VQ1(3),VQ2(3),VQ3(3), 1 VQ4(3),A(1),MSUM(36) COMMON /CONDAS/ CONSTS(5) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE, 2 G2X211,G2X212,G2X222,SPACE(2) COMMON /SMA2IO/ DUM1(10),IFMGG,DUM2(25) COMMON /SMA2CL/ DUM3(2),NPVT,DUMCL(7),LINK(10),NOGO COMMON /SMA2ET/ ECPT(100) COMMON /SMA2DP/ MOUT(36),TITE(9),TJTE(36),TEMP36(36),DPDUM1(27), 1 D1(3),D2(3),A1(3),T(9),V(2),VV(2),IIZ,MIZ,SIGN, 2 SPDUM(20),M6X6(36),DPDUM2(10),PROD9(9),TEMP9(9), 3 XSUBB,XSUBC,YSUBC,E(9),TEMP,SP1(33),KM,NBEGIN, 4 JNOT,NPIVOT,THETA,NSUBC,ISING,SUBSCA,SUBSCB, 5 SUBSCC,SINANG,COSANG,NPOINT,IVECT(3),JVECT(3), 6 KVECT(3),U1,U2,R(2,4),H,PTMASS EQUIVALENCE (CONSTS(4),DEGRA),(NECPT(1),ECPT(1)), 1 (R(1,1),REQUIV(1)),(VQ1(1),ECPT(15)), 2 (VQ2(1),ECPT(19)),(VQ3(1),ECPT(23)), 3 (VQ4(1),ECPT(27)),(A(1),MOUT(1)) DATA M / 2,4,1, 3,1,2, 4,2,3, 1,3,4 / C C DETERMINE PIVOT POINT NUMBER C DO 10 I = 1,4 IF (NPVT .NE. NECPT(I+1)) GO TO 10 NPIVOT = I GO TO 20 10 CONTINUE C C FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION C CALL MESAGE (-30,34,ECPT(1)) C 20 THETA = ECPT(6)*DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) C IF (NPIVOT-2) 30,30,40 30 JNOT = NPIVOT + 2 GO TO 50 40 JNOT = NPIVOT - 2 C C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X4) FOR QUADRILATERAL PLATE... C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX C 50 DO 60 I = 1,8 60 REQUIV(I) = 0.0D0 C C SHIFT ECPT UP TO MATCH MTRBSC FOR CERTAIN VARIABLES. C DO 80 I = 6,12 80 ECPT(I) = ECPT(I+1) C DO 90 I = 1,3 D1(I) = DBLE(VQ3(I)) - DBLE(VQ1(I)) D2(I) = DBLE(VQ4(I)) - DBLE(VQ2(I)) 90 A1(I) = DBLE(VQ2(I)) - DBLE(VQ1(I)) C C NON-NORMALIZED K-VECTOR = D1 CROSS D2 C KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3) KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1) KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2) C C NORMALIZE K-VECTOR C TEMP = DSQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2) IF (TEMP .EQ. 0.0D0) GO TO 360 DO 100 I = 1,3 100 KVECT(I) = KVECT(I)/TEMP C C COMPUTE H = A1 DOT KVECT C H = A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3) C C WRITE (6,109) C WRITE (6,119) C WRITE (6,1195) H,(D1(I),D2(I),A1(I),I=1,3) C C I-VECTOR = (A1) - H*(KVECT) NON-NORMALIZED C DO 110 I = 1,3 110 IVECT(I) = A1(I) - H*KVECT(I) C C NORMALIZE I-VECTOR C TEMP = DSQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2) IF (TEMP .EQ. 0.0D0) GO TO 360 DO 120 I = 1,3 120 IVECT(I) = IVECT(I)/TEMP C C J-VECTOR = K CROSS I, AND X3 CALCULATION C JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3) JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1) JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2) C C NORMALIZE J VECTOR TO MAKE SURE C TEMP = DSQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2) IF (TEMP .EQ. 0.0D0) GO TO 360 DO 130 I = 1,3 130 JVECT(I) = JVECT(I)/TEMP C C X3 GOES INTO R(1,3) = D1 DOT IVECT C R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3) C C X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3) C R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3) R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3) C C X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4) C R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2) R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3) C C WRITE (6,129) (IVECT(I),I=1,3),(JVECT(I),I=1,3),(KVECT(I),I=1,3), C 1 ((R(I,J),J=1,4),I=1,2) C C CHECK OF 4 POINTS FOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES. C IF (R(2,3).LE.0.0D0 .OR. R(2,4).LE.0.0D0) GO TO 140 TEMP = R(1,2) - (R(1,2)-R(1,3))*R(2,4)/R(2,3) IF (R(1,4) .GE. TEMP) GO TO 140 TEMP = R(2,3)*R(1,4)/R(2,4) IF (R(1,3) .GT. TEMP) GO TO 150 140 CALL MESAGE (30,35,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C AT 140 THE COORDINATES OF THE PLATE IN THE ELEMENT C SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE C POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR C ROW 2 RESPECTIVELY. C C SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT. C C COMPUTE SUB-TRIANGLE COORDINATES C C ZERO OUT MSUM MATRICES C 150 DO 160 I = 1,36 160 MSUM(I) = 0.0D0 PTMASS = 0.0D0 ELTEMP = ECPT(30) C DO 220 J = 1,4 IF (J .EQ. JNOT) GO TO 220 KM = 3*J - 3 SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 170 I = 1,2 V(I) = R(I,SUBSCB) - R(I,SUBSCA) 170 VV(I) = R(I,SUBSCC) - R(I,SUBSCA) XSUBB = DSQRT(V(1)**2 + V(2)**2) U1 = V(1)/XSUBB U2 = V(2)/XSUBB XSUBC = U1*VV(1) + U2*VV(2) YSUBC = U1*VV(2) - U2*VV(1) C SINTH = SINANG*U1 - COSANG*U2 COSTH = COSANG*U1 + SINANG*U2 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR C TRIANGLE -J- C C WRITE(6,139) XSUBB,XSUBC,YSUBC C CALL MTRBSC C U C NOW HAVE AT HAND M I,J, =1,2,3. 9-3X3 MATRICES STORED AT C IJ A(1) THROUGH A(81). C C MAP THE 3 3X3-S FOR THE PIVOT ROW INTO THE SUMMATION ARRAYS... C C SET UP OF T-MATRIX C T(1) = 1.0D0 T(2) = 0.0D0 T(3) = 0.0D0 T(4) = 0.0D0 T(5) = U1 T(6) = U2 T(7) = 0.0D0 T(8) =-U2 T(9) = U1 C C C FIND WHICH POINT OF THE SUBTRIANGLE IS ALSO THE PIVOT OF THE C QUADRILATERAL C DO 180 I = 1,3 NPOINT = KM + I IF (M(NPOINT) .NE. NPIVOT) GO TO 180 NBEGIN = 27*I - 27 GO TO 190 180 CONTINUE C 190 DO 210 I = 1,3 NPOINT = NBEGIN + 9*I - 8 CALL GMMATD (T,3,3,1, A(NPOINT),3,3,0, TEMP9) CALL GMMATD (TEMP9,3,3,0, T,3,3,0, PROD9) C C ADD THIS PRODUCT IN NOW. C NPOINT = KM + I NPOINT = 9*M(NPOINT) - 9 DO 200 K = 1,9 NPOINT = NPOINT + 1 200 MSUM(NPOINT) = MSUM(NPOINT) + PROD9(K)/2.0D0 C C 210 CONTINUE C PTMASS = PTMASS + DBLE(ECPT(10))/4.0D0 * XSUBB*YSUBC 220 CONTINUE PTMASS = PTMASS/3.0D0 C DO 225 I = 1,36 225 TJTE(I) = 0.0D0 C C FILL E-MATRIX C DO 230 I = 1,9 230 E(I) = 0.0D0 DO 235 I = 1,3 NPOINT = 3*I - 2 E(NPOINT ) = IVECT(I) E(NPOINT+1) = JVECT(I) 235 E(NPOINT+2) = KVECT(I) C C C T C FORM T E STORE IN TITE-MATRIX (6X3) C I C IF (NECPT(4*NPIVOT+10) .EQ. 0) GO TO 240 CALL TRANSD (NECPT(4*NPIVOT+10),T) CALL GMMATD (T,3,3,1, E(1),3,3,0, TITE(1)) C C GO TO 260 C 240 DO 250 K = 1,9 250 TITE(K) = E(K) C C C TRANSFORMATIONS AND INSERTION C 260 DO 350 J = 1,4 NBEGIN = 9*J - 9 DO 265 I = 1,36 265 M6X6(I) = 0.0D0 DO 270 I = 1,3 NPOINT = NBEGIN + I M6X6(I+14) = MSUM(NPOINT ) M6X6(I+20) = MSUM(NPOINT+3) 270 M6X6(I+26) = MSUM(NPOINT+6) C C IF (NPIVOT .NE. J) GO TO 290 C SIGN = (-1)**J TEMP = PTMASS*H MIZ = TEMP/2.0D0*SIGN IIZ = TEMP*H/2.0D0 M6X6( 1) = PTMASS M6X6( 5) = MIZ M6X6( 8) = M6X6(1) M6X6(10) =-MIZ M6X6(20) = M6X6(10) M6X6(22) = M6X6(22) + IIZ M6X6(25) = MIZ M6X6(29) = M6X6(29) + IIZ C C 290 IF (NECPT(4*J+10) .EQ. 0) GO TO 320 CALL TRANSD (NECPT(4*J+10),T) CALL GMMATD (E(1),3,3,1, T(1),3,3,0, TJTE(1)) DO 300 I = 1,3 NPOINT = I + 21 TJTE(NPOINT ) = TJTE(I ) TJTE(NPOINT+ 6) = TJTE(I+3) 300 TJTE(NPOINT+12) = TJTE(I+6) DO 310 I = 1,3 NPOINT = I + 21 TJTE(I ) = TJTE(NPOINT ) TJTE(I+ 6) = TJTE(NPOINT+ 6) TJTE(I+12) = TJTE(NPOINT+12) 310 TJTE(I+ 3) = 0.0D0 C GO TO 340 C 320 DO 330 I = 1,3 NPOINT = 6*I - 5 NPT = NPOINT + 21 TJTE(NPOINT ) = E(I ) TJTE(NPOINT+1) = E(I+3) TJTE(NPOINT+2) = E(I+6) TJTE(NPT ) = E(I ) TJTE(NPT +1) = E(I+3) 330 TJTE(NPT +2) = E(I+6) C C 340 CALL GMMATD (M6X6(1),6,6,0, TJTE(1),6,6,0, TEMP36(1)) CALL GMMATD (TITE(1),3,3,0, TEMP36( 1),3,6,0, MOUT( 1)) CALL GMMATD (TITE(1),3,3,0, TEMP36(19),3,6,0, MOUT(19)) C C CALL SMA2B (MOUT(1),NECPT(J+1),-1,IFMGG,0.0D0) C 350 CONTINUE RETURN C C 360 CALL MESAGE (30,26,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN END ================================================ FILE: mis/mred1.f ================================================ SUBROUTINE MRED1 C C THIS SUBROUTINE IS THE MRED1 MODULE WHICH INITIATES THE MODAL C SYNTHESIS CALCULATIONS. C C DMAP CALLING SEQUENCE C MRED1 CASECC,GEOM4,DYNAMICS/USETX,EEDX,EQST,DMR/*NAMEA*/ C S,N,DRY/STEP/S,N,NOUS/S,N,SKIPM/S,N,GPARM/TYPE $ C C INPUT DATA C GINO - CASECC - CASE CONTROL C GEOM4 - BDYC DATA C - BDYS DATA C - BDYS1 DATA C DYNAMICS - EIGR DATA C SOF - EQSS - SUBSTRUCTURE EQUIVALENCE TABLE C BGSS - BASIC GRID POINT IDENTIFICATION TABLE C CSTM - COORDINATE SYSTEM TRANSFORMATION MATRICES DATA C C OUTPUT DATA C GINO - USETX - S,R,B DEGREES OF FREEDOM C EEDX - EIGR DATA C EQST - TEMPORARY EQSS C DMR - RIGID BODY MATRIX C C PARAMETERS C INPUT - NAMEA - INPUT SUBSTRUCTURE NAME (BCD) C DRY - OPERATION MODE (INTEGER) C STEP - CONTROL DATA CASECC RECORD (INTEGER) C TYPE - REAL OR COMPLEX (BCD) C OUTPUT - DRY - MODULE OPERATION FLAG (INTEGER) C NOUS - FIXED POINTS FLAG (INTEGER) C = +1 IF FIXED POINTS DEFINED C = -1 IF NO FIXED POINTS DEFINED C SKIPM - MODES FLAG (INTEGER) C = 0 IF MODES NOT PRESENT C = -1 IF MODES PRESENT C OTHERS - GBUF - GINO BUFFERS C SBUF - SOF BUFFERS C KORLEN - CORE LENGTH C NEWNAM - NEW SUBSTRUCTURE NAME C BNDSET - BOUNDARY SET IDENTIFICATION NUMBER C FIXSET - FIXED SET IDENTIFICATION NUMBER C IEIG - EIGENVALUE SET IDENTIFICATION NUMBER C IO - OUTPUT FLAGS C RGRID - FREEBODY MODES FLAGS C RNAME - FREEBODY SUBSTRUCTURE NAME C IRSAVE - RSAVE FLAG C KORBGN - BEGINNING ADDRESS OF OPEN CORE C NCSUBS - NUMBER OF CONTRIBUTING SUBSTRUCTURES C NAMEBS - BEGINNING ADDRESS OF CONTRIBUTING SUBSTRUCTURE C NAMES C EQSIND - BEGINNING ADDRESS OF EQSS GROUP ADDRESSES C NSLBGN - BEGINNING ADDRESS OF SIL DATA C NSIL - NUMBER OF SIL GROUPS C BDYCS - BEGINNING ADDRESS OF BDYC DATA C NBDYCC - NUMBER OF BDYC DATA GROUPS C USETL - LENGTH OF USET ARRAY C USTLOC - BEGINNING ADDRESS OF USET ARRAY C RGRIDX - FREEBODY MODE RELATIVE X COORDINATE C RGRIDY - FREEBODY MODE RELATIVE Y COORDINATE C RGRIDZ - FREEBODY MODE RELATIVE Z COORDINATE C USRMOD - USERMODE OPTION FLAG C BOUNDS - OLDBOUNDS OPTION FLAG C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,ANDF,ORF LOGICAL USRMOD,BOUNDS,PONLY,ERRORS REAL RZ(1),RANGE(2),GPRM DIMENSION MODNAM(2),MTRLRA(7),MTRLRB(7),MTRLRC(7),MTRLRD(7), 1 NMONIC(16),CCTYPE(2),MTRLRE(7),ITMNAM(2), 2 LSTBIT(32),ERRNAM(6),LETRS(2) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / OLDNAM(2),DRY,STEP,NOUS,SKIPM,TYPE(2),GPRM,GBUF1, 1 GBUF2,SBUF1,SBUF2,SBUF3,KORLEN,NEWNAM(2),BNDSET, 2 FIXSET,IEIG,IO,RGRID(2),RNAME(2),IRSAVE,KORBGN, 3 NCSUBS,NAMEBS,EQSIND,NSLBGN,NSIL,BDYCS,NBDYCC, 4 USETL,USTLOC,RGRIDX,RGRIDY,RGRIDZ,USRMOD,BOUNDS, 5 PONLY COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,IPRNTR EQUIVALENCE (Z(1),RZ(1)) DATA NMONIC/ 4HNAMB,4HBOUN,4HFIXE,4HMETH,4HCMET,4HOUTP,4HRGRI, 1 4HOLDM,4HOLDB,4HRSAV,4HRNAM,4HRANG,4HNMAX,4HUSER, 2 4HNAMA,4HGPAR/ DATA CASECC/ 101 / DATA MODNAM/ 4HMRED,4H1 / DATA ERRNAM/ 4HLAMS,4HPHIS,4HPHIL,4HGIMS,4HLMTX,4HUPRT/ DATA IBLANK, YES,NO,ALL /4H ,4HYES ,4HNO ,4HALL / DATA LETRS / 1HM,1HC / DATA CCTYPE/ -1,-2 / DATA CRED , NHLODS,NHLOAP,NHEQSS /4HCRED,4HLODS,4HLOAP,4HEQSS/ C C COMPUTE OPEN CORE AND DEFINE GINO, SOF BUFFERS C NOZWDS = KORSZ(Z(1)) GBUF1 = NOZWDS- SYSBUF - 2 GBUF2 = GBUF1 - SYSBUF SBUF1 = GBUF2 - SYSBUF SBUF2 = SBUF1 - SYSBUF - 1 SBUF3 = SBUF2 - SYSBUF KORLEN = SBUF3 - 1 KORBGN = 1 IF (KORLEN .LE. KORBGN) GO TO 430 C C INITIALIZE SOF C CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) C C INITIALIZE CASE CONTROL PARAMETERS C DO 10 I = 1, 2 RGRID(I) = -1 NEWNAM(I)= IBLANK 10 RNAME(I) = IBLANK BNDSET = 0 FIXSET = 0 IEIG = 0 NOIEIG = YES IO = 0 SKIPM = 0 MODES = NO BOUNDS = .FALSE. PONLY = .FALSE. IBOUND = NO IRSAVE = NO NOUS = 1 IFREE = NO NMAX = 2147483647 IMAX = ALL IMODE = NO USRMOD = .FALSE. IUSERM = 1 MODULE = 1 GPRM = 0.0 IBF = 0 NRANGE = 0 IRANGE = ALL RANGE(1) =-1.0E+35 RANGE(2) = 1.0E+35 C C PROCESS CASE CONTROL C IFILE = CASECC CALL OPEN (*400,CASECC,Z(GBUF2),0) IF (STEP) 20,40,20 20 DO 30 I = 1,STEP 30 CALL FWDREC (*420,CASECC) C C READ CASECC AND EXTRACT DATA C 40 CALL READ (*410,*420,CASECC,Z(KORBGN),2,0,NOREAD) IF (Z(KORBGN) .EQ. CRED) MODULE = 2 NOWDSC = Z(KORBGN+1) DO 190 I = 1,NOWDSC,3 CALL READ (*410,*420,CASECC,Z(KORBGN),3,0,NOREAD) C C TEST CASE CONTROL MNEMONICS C DO 50 J = 1,16 IF (Z(KORBGN) .EQ. NMONIC(J)) GO TO 60 50 CONTINUE GO TO 190 C C SELECT DATA TO EXTRACT C 60 GO TO ( 70, 90,100,110,110,120,130,140,150,160,170, 1 102,115,125,132,155), J C C EXTRACT NEW SUBSTRUCTURE NAME C 70 DO 80 K = 1,2 80 NEWNAM(K) = Z(KORBGN+K) GO TO 190 C C EXTRACT BOUNDARY SET C 90 IF (Z(KORBGN+1) .NE. CCTYPE(1)) GO TO 185 BNDSET = Z(KORBGN+2) IBF = IBF + 2 GO TO 190 C C EXTRACT FIXED SET C 100 IF (Z(KORBGN+1) .NE. CCTYPE(1)) GO TO 185 FIXSET = Z(KORBGN+2) IBF = IBF + 1 GO TO 190 C C EXTRACT FREQUENCY RANGE C 102 IF (Z(KORBGN+1) .NE. CCTYPE(2)) GO TO 185 IRANGE = IBLANK IF (NRANGE .EQ. 1) GO TO 104 NRANGE = 1 RANGE(1) = RZ(KORBGN+2) GO TO 190 104 RANGE(2) = RZ(KORBGN+2) GO TO 190 C C EXTRACT EIGENVALUE METHOD C 110 IF (Z(KORBGN+1) .NE. CCTYPE(1)) GO TO 185 IEIG = Z(KORBGN+2) NOIEIG = NO GO TO 190 C C EXTRACT MAXIMUM NUMBER OF FREQUENCIES C 115 IF (Z(KORBGN+1) .NE. CCTYPE(1)) GO TO 185 IF (Z(KORBGN+2) .EQ. 0) GO TO 190 NMAX = Z(KORBGN+2) IMAX = IBLANK GO TO 190 C C EXTRACT OUTPUT FLAGS C 120 IF (Z(KORBGN+1) .NE. CCTYPE(1)) GO TO 185 IO = ORF(IO,Z(KORBGN+2)) GO TO 190 C C EXTRACT USERMODE FLAG C 125 IF (Z(KORBGN+1) .NE. CCTYPE(1)) GO TO 185 IMODE = YES SKIPM = -1 USRMOD = .TRUE. IF (Z(KORBGN+2) .EQ. 2) IUSERM = 2 GO TO 190 C C EXTRACT RIGID BODY GRID POINT ID C 130 RGRID(1) = Z(KORBGN+2) IF (Z(KORBGN+1) .NE. CCTYPE(1)) RGRID(1) = 0 IFREE = YES GO TO 190 C C EXTRACT OLD SUBSTRUCTURE NAME C 132 DO 134 K = 1,2 134 OLDNAM(K) = Z(KORBGN+K) GO TO 190 C C SET OLDMODES FLAG C 140 IF ((Z(KORBGN+1).EQ.CCTYPE(1)) .OR. (Z(KORBGN+1).EQ.CCTYPE(2))) 1 GO TO 185 IF (Z(KORBGN+1) .NE. YES) GO TO 190 SKIPM = -1 MODES = YES GO TO 190 C C SET OLDBOUND FLAG C 150 IF ((Z(KORBGN+1).EQ.CCTYPE(1)) .OR. (Z(KORBGN+1).EQ.CCTYPE(2))) 1 GO TO 185 IF (Z(KORBGN+1) .NE. YES) GO TO 190 BOUNDS = .TRUE. IBOUND = YES GO TO 190 C C EXTRACT GPARAM PARAMETER C 155 IF (Z(KORBGN+1) .NE. CCTYPE(2)) GO TO 185 GPRM = RZ(KORBGN+2) GO TO 190 C C SET RSAVE FLAG C 160 IF (Z(KORBGN+1) .EQ. NO) GO TO 190 IRSAVE = YES GO TO 190 C C EXTRACT RIGID BODY SUBSTRUCTURE NAME C 170 DO 180 K = 1,2 180 RNAME(K) = Z(KORBGN+K) IF (RGRID(1) .LT. 0) RGRID(1) = 0 IFREE = YES GO TO 190 C C CASECC COMMAND ERROR C 185 WRITE (IPRNTR,916) UWM,LETRS(MODULE),NMONIC(J) 190 CONTINUE CALL CLOSE (CASECC,1) C C TEST MODULE OPERATION FLAG C IF (DRY) 192,194,196 192 IF (DRY .EQ. -2) GO TO 198 WRITE (IPRNTR,909) UIM DRY = -2 GO TO 198 194 SKIPM = -1 ITEST = 0 CALL FDSUB (NEWNAM,ITEST) IF (ITEST .NE. -1) GO TO 510 WRITE (IPRNTR,922) UFM,LETRS(MODULE),NEWNAM GO TO 500 196 ITEST = 0 CALL FDSUB (NEWNAM,ITEST) IF (ITEST .EQ. -1) GO TO 198 IF (BOUNDS .OR. (SKIPM .EQ. -1)) GO TO 198 CALL SFETCH (NEWNAM,NHLODS,3,ITEST) IF (ITEST .EQ. 3) GO TO 197 CALL SFETCH (NEWNAM,NHLOAP,3,ITEST) IF (ITEST .EQ. 3) GO TO 197 ITMNAM(1) = NEWNAM(1) ITMNAM(2) = NEWNAM(2) GO TO 450 C C LOADS ONLY PROCESSING C 197 PONLY = .TRUE. C C TEST OUTPUT OPTION C 198 IF (ANDF(IO,1) .EQ. 0) GO TO 200 CALL PAGE1 WRITE (IPRNTR,900) OLDNAM,NEWNAM IF (IBF .EQ. 0) WRITE (IPRNTR,918) IF (IBF .EQ. 1) WRITE (IPRNTR,919) FIXSET IF (IBF .EQ. 2) WRITE (IPRNTR,920) BNDSET IF (IBF .EQ. 3) WRITE (IPRNTR,921) BNDSET,FIXSET IF (RGRID(1) .EQ. -1) WRITE (IPRNTR,906) RNAME IF (RGRID(1) .NE. -1) WRITE (IPRNTR,907) RGRID(1),RNAME IF (NOIEIG .EQ. NO) WRITE (IPRNTR,908) IBOUND,MODES,IFREE,IMODE, 1 IRSAVE,IEIG IF (NOIEIG .NE. NO) WRITE (IPRNTR,908) IBOUND,MODES,IFREE,IMODE, 1 IRSAVE IF (IMAX .EQ. ALL) WRITE (IPRNTR,910) IMAX,GPRM IF (IMAX .NE. ALL) WRITE (IPRNTR,911) NMAX,GPRM IF (IRANGE .EQ. ALL) WRITE (IPRNTR,912) OLDNAM,IRANGE IF (IRANGE .NE. ALL) WRITE (IPRNTR,913) OLDNAM,RANGE(1) C C CHECK FOR OLDMODES, OLDBOUND ERRORS C 200 ERRORS = .FALSE. IF (PONLY) GO TO 290 CALL SFETCH (OLDNAM,ERRNAM(1),3,ITEST) CALL SOFTRL (OLDNAM,ERRNAM(2),MTRLRA) CALL SOFTRL (OLDNAM,ERRNAM(4),MTRLRB) CALL SOFTRL (OLDNAM,ERRNAM(5),MTRLRC) CALL SOFTRL (OLDNAM,ERRNAM(3),MTRLRD) CALL SOFTRL (OLDNAM,ERRNAM(6),MTRLRE) IFLAG = 1 IF (USRMOD) GO TO 290 IF (SKIPM) 210,230,230 C C OLDMODES SET - PHIS AND LAMS MUST BE ON SOF C 210 IF (ITEST .GT. 3) GO TO 360 220 IFLAG = 2 IF (MTRLRA(1) .GT. 2) GO TO 360 GO TO 260 C C OLDMODES NOT SET - PHIS, PHIL AND LAMS MUST BE DELETED C 230 IF (ITEST .LT. 3) GO TO 370 240 IFLAG = 2 IF (MTRLRA(1) .LT. 3) GO TO 370 250 IFLAG = 3 IF (MTRLRD(1) .LT. 3) GO TO 370 C C OLDBOUND SET - GIMS AND UPRT MUST BE ON SOF C 260 IFLAG = 4 IF (.NOT. BOUNDS) GO TO 270 IF (MTRLRB(1) .GT. 2) GO TO 380 265 IFLAG = 6 IF (MTRLRE(1) .GT. 2) GO TO 380 GO TO 290 C C OLDBOUND NOT SET - GIMS AND LMTX MUST BE DELETED C 270 IF (MTRLRB(1) .LT. 3) GO TO 390 280 IFLAG = 5 IF (MTRLRC(1) .LT. 3) GO TO 390 C C TEST FOR ERRORS C 290 IF (ERRORS) GO TO 500 IF (IUSERM .EQ. 2) WRITE (IPRNTR,917) UIM C C READ EQSS GROUP 0 DATA AND TEST OPEN CORE LENGTH C ITMNAM(2) = OLDNAM(2) CALL SFETCH (OLDNAM,NHEQSS,1,ITEST) IF (ITEST .EQ. 3) GO TO 460 IF (ITEST .EQ. 4) GO TO 470 IF (ITEST .EQ. 5) GO TO 480 CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) IF (KORBGN+NWDSRD .GE. SBUF3) GO TO 430 C C COMPRESS BASIC SUBSTRUCTURE NAMES AND TEST OPEN CORE LENGTH C NCSUBS = Z(KORBGN+2) NAMEBS = KORBGN I = 2*((NWDSRD - 4)/2) K = 4 DO 300 J = 1,I,2 Z(KORBGN+J-1) = Z(KORBGN+K ) Z(KORBGN+J ) = Z(KORBGN+K+1) IF (RGRID(1) .LT. 0) GO TO 300 IF (RNAME(1) .NE. IBLANK) GO TO 298 RNAME(1) = Z(KORBGN+J-1) RNAME(2) = Z(KORBGN+J ) 298 CONTINUE IF ((Z(KORBGN+J-1).NE.RNAME(1)) .OR. (Z(KORBGN+J).NE.RNAME(2))) 1 GO TO 300 RGRID(2) = (J+1)/2 300 K = K + 2 EQSIND = KORBGN + 2*NCSUBS IF (EQSIND .GE. SBUF3) GO TO 430 C C TEST OUTPUT OPTION C IF (ANDF(IO,1) .EQ. 0) GO TO 310 IF (IRANGE .NE. ALL) GO TO 302 I = 2*NCSUBS WRITE (IPRNTR,901) (Z(KORBGN+J-1),Z(KORBGN+J),J=1,I,2) GO TO 310 302 IF (NCSUBS .GE. 5) GO TO 306 I = 1 + 2*NCSUBS DO 304 J = I,10 304 Z(KORBGN+J-1) = IBLANK 306 K = 10 WRITE (IPRNTR,914) (Z(KORBGN+J-1),Z(KORBGN+J),J=1,K,2),RANGE(2) IF (NCSUBS .LE. 5) GO TO 310 K = K + 1 I = 2*NCSUBS WRITE (IPRNTR,901) (Z(KORBGN+J-1),Z(KORBGN+J),J=K,I,2) C C READ EQSS GROUPS TO END-OF-ITEM C 310 KORBGN = EQSIND + 2*NCSUBS DO 320 I = 1, NCSUBS IF (KORBGN .GE. SBUF3) GO TO 430 CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) J = 2*(I - 1) Z(EQSIND+J ) = KORBGN Z(EQSIND+J+1) = NWDSRD 320 KORBGN = KORBGN + NWDSRD NSLBGN = KORBGN CALL SUREAD (Z(KORBGN),-2,NWDSRD,ITEST) NSIL = NWDSRD/2 C C TEST OUTPUT OPTION C IF (ANDF(RSHIFT(IO,3),1) .EQ. 0) GO TO 350 DO 330 I = 1,NCSUBS J = 2*(I-1) CALL CMIWRT (1,OLDNAM,Z(NAMEBS+J),Z(EQSIND+J),Z(EQSIND+J+1),RZ,Z) 330 CONTINUE ISIL = 2*NSIL CALL CMIWRT (8,OLDNAM,OLDNAM,NSLBGN,ISIL,RZ,Z) C C DETERMINE USET LENGTH C 350 KORBGN = NSLBGN + NWDSRD USTLOC = KORBGN ICODE = Z(KORBGN-2) CALL DECODE (ICODE,LSTBIT,NWDSD) USETL = (Z(KORBGN-3) + NWDSD) - 1 C C PROCESS FIXED SET C CALL MRED1A (1) CALL MRED1B (1) C C PROCESS BOUNDARY SET C CALL MRED1A (2) CALL MRED1B (2) C C CONVERT EQSS DATA TO UB DATA C IF (PONLY) GO TO 510 CALL MRED1C C C PROCESS EIGENVALUE DATA C IF (SKIPM .EQ. -1) GO TO 355 CALL MRED1D C C PROCESS FREE BODY MODES C 355 CALL MRED1E GO TO 510 C C PHIS, LAMS DO NOT EXIST C 360 WRITE (IPRNTR,902) UFM,ERRNAM(IFLAG),OLDNAM ERRORS = .TRUE. GO TO (220,260), IFLAG C C PHIS, PHIR, LAMS NOT DELETED C 370 WRITE (IPRNTR,903) UFM,ERRNAM(IFLAG),OLDNAM ERRORS = .TRUE. GO TO (240,250,260), IFLAG C C GIMS, UPRT DOES NOT EXIST C 380 WRITE (IPRNTR,904) UFM,ERRNAM(IFLAG),OLDNAM ERRORS = .TRUE. IF (IFLAG - 5) 265,265,290 C C GIMS, LMTX NOT DELETED C 390 WRITE (IPRNTR,905) UFM,ERRNAM(IFLAG),OLDNAM ERRORS = .TRUE. IFLAG = IFLAG - 3 GO TO (280,290), IFLAG C C PROCESS SYSTEM FATAL ERRORS C 400 IMSG = -1 GO TO 440 410 IMSG = -2 GO TO 440 420 IMSG = -3 GO TO 440 430 IMSG = -8 IFILE = 0 440 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN C C PROCESS MODULE FATAL ERRORS C 450 IMSG = -4 GO TO 490 460 IMSG = -1 GO TO 490 470 IMSG = -2 GO TO 490 480 IMSG = -3 490 CALL SMSG (IMSG,NHEQSS,ITMNAM) RETURN C 500 CALL SOFCLS DRY = -2 RETURN C C CLOSE ANY OPEN FILES C 510 CALL SOFCLS IF (DRY .EQ. -2) WRITE (IPRNTR,915) LETRS(MODULE) IF (PONLY) SKIPM = -1 RETURN C 900 FORMAT (//38X,46HS U M M A R Y O F C U R R E N T P R O, 1 8H B L E M,//13X,38HNAME OF PSEUDOSTRUCTURE TO BE REDUCED , 2 4(2H. ),2A4,6X,40HNAME GIVEN TO RESULTANT PSEUDOSTRUCTURE , 3 2A4) 901 FORMAT (16X,2A4,2X,2A4,2X,2A4,2X,2A4,2X,2A4) 902 FORMAT (A23,' 6617, OLDMODES SET AND REQUESTED SOF ITEM DOES NOT', 1 ' EXIST. ITEM ',A4,', SUBSTRUCTURE ',2A4,1H.) 903 FORMAT (A23,' 6618, OLDMODES NOT SET AND REQUESTED SOF ITEM MUST', 1 ' BE DELETED. ITEM ',A4,', SUBSTRUCTURE ',2A4,1H.) 904 FORMAT (A23,' 6619, OLDBOUND SET AND REQUESTED SOF ITEM DOES NOT', 1 ' EXIST. ITEM ',A4,', SUBSTRUCTURE ',2A4,1H.) 905 FORMAT (A23,' 6620, OLDBOUND NOT SET AND REQUESTED SOF ITEM MUST', 1 ' BE DELETED. ITEM ',A4,', SUBSTRUCTURE ',2A4,1H.) 906 FORMAT (13X,'RIGID BODY GRID POINT IDENTIFICATION NUMBER .',14X, 1 'RIGID BODY SUBSTRUCTURE NAME ',5(2H. ),2A4) 907 FORMAT (13X,46HRIGID BODY GRID POINT IDENTIFICATION NUMBER . ,I8, 1 6X,30HRIGID BODY SUBSTRUCTURE NAME ,5(2H. ),2A4) 908 FORMAT (13X,18HOLDBOUND FLAG SET ,14(2H. ),A4,10X,12HOLDMODES FLA, 1 6HG SET ,11(2H. ),A4,/13X,29HFREE BODY MODES TO BE CALCULA, 2 5HTED ,6(2H. ),A4,10X,20HUSER MODES FLAG SET ,10(2H. ),A4, 3 /13X,24HSAVE REDUCTION PRODUCTS ,11(2H. ),A4,10X,7HEIGENVA, 4 23HLUE EXTRACTION METHOD ,5(2H. ),I8) 909 FORMAT (A29,' 6630, FOR DRY OPTION IN MODAL REDUCE, INPUT DATA ', 1 'WILL BE CHECKED', /36X,'BUT NO SOF TABLE ITEMS WILL BE ', 2 'CREATED.') 910 FORMAT (13X,42HMAXIMUM NUMBER OF FREQUENCIES TO BE USED ,2(2H. ), 1 A4,10X,14HGPARAM VALUE ,13(2H. ),1P,E12.6) 911 FORMAT (13X,42HMAXIMUM NUMBER OF FREQUENCIES TO BE USED ,2(2H. ), 1 I8,6X,14HGPARAM VALUE ,13(2H. ),1P,E12.6) 912 FORMAT (13X,46HNAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN ,2A4, 1 6X,32HRANGE OF FREQUENCIES TO BE USED ,4(2H. ),A4) 913 FORMAT (13X,46HNAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN ,2A4, 1 6X,32HRANGE OF FREQUENCIES TO BE USED ,4(2H. ),1P,E12.6) 914 FORMAT (16X,5(2A4,2X),47X,1P,E12.6) 915 FORMAT (10H0 MODULE ,A1,36HREDUCE TERMINATING DUE TO ABOVE ERRO, 1 3HRS.) 916 FORMAT (A25,' 6367, ILLEGAL FORMAT ON THE ',A1,'REDUCE OUTPUT ', 1 'COMMAND ',A4,'. COMMAND IGNORED.') 917 FORMAT (A29,' 6636, NMAX AND RANGE SUB COMMANDS ARE IGNORED ', 1 'UNDER USERMODES = TYPE 2.') 918 FORMAT (13X,36HBOUNDARY SET IDENTIFICATION NUMBER ,5(2H. ),14X, 1 32HFIXED SET IDENTIFICATION NUMBER ,4(2H. )) 919 FORMAT (13X,36HBOUNDARY SET IDENTIFICATION NUMBER ,5(2H. ),14X, 1 32HFIXED SET IDENTIFICATION NUMBER ,4(2H. ),I8) 920 FORMAT (13X,36HBOUNDARY SET IDENTIFICATION NUMBER ,5(2H. ),I8,6X, 1 32HFIXED SET IDENTIFICATION NUMBER ,4(2H. )) 921 FORMAT (13X,36HBOUNDARY SET IDENTIFICATION NUMBER ,5(2H. ),I8,6X, 1 32HFIXED SET IDENTIFICATION NUMBER ,4(2H. ),I8) 922 FORMAT (A23,' 6220, MODULE ',A1,'REDUCE - RUN EQUALS GO AND ', 1 'SUBSTRUCTURE ',2A4,' DOES NOT EXIST.') C END ================================================ FILE: mis/mred1a.f ================================================ SUBROUTINE MRED1A (MODE) C C THIS SUBROUTINE PROCESSES THE BDYC DATA FOR THE FIXED C IDENTIFICATION SET (FIXSET) AND THE BOUNDARY IDENTIFICATION SET C (BNDSET) FOR THE MRED1 MODULE. C C INPUT DATA C GINO - GEOM4 - BDYC DATA C MODE - PROCESSING OPERATION FLAG C = 1, PROCESS FIXED ID SET C = 2, PROCESS BOUNDARY ID SET C C OUTPUT DATA C GINO - USETX - S,R,B DEGREES OF FREEDOM C C PARAMETERS C INPUT - GBUF1 - GINO BUFFER C KORLEN - CORE LENGTH C BNDSET - BOUNDARY SET IDENTIFICATION NUMBER C FIXSET - FIXED SET IDENTIFICATION NUMBER C IO - OUTPUT OPTION FLAG C KORUST - STARTING ADDRESS OF USET ARRAY C NCSUBS - NUMBER OF CONTRIBUTING SUBSTRUCTURES C NAMEBS - BEGINNING ADDRESS OF BASIC SUBSTRUCTURES NAMES C KBDYC - BEGINNING ADDRESS OF BDYC DATA C NBDYCC - NUMBER OF BDYC CARDS C USETL - NUMBER OF WORDS IN USET ARRAY C OUTPUT - NOUS - FIXED POINTS FLAG C .GE. 0, FIXED POINTS DEFINED C .EQ. -1, NO FIXED POINTS DEFINED C DRY - MODULE OPERATION FLAG C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,ANDF LOGICAL PONLY DIMENSION ARRAY(3),BDYC(2),MODNAM(2) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / OLDNAM(2),DRY,IDUM1,NOUS,SKIPM,IDUM2(3),GBUF1, 1 IDUM3(4),KORLEN,IDUM4(2),BNDSET,FIXSET,IDUM5,IO, 2 IDUM6(6),NCSUBS,NAMEBS,IDUM7(3),KBDYC,NBDYCC, 3 USETL,KORUST,IDUM14(5),PONLY COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ IDUM8,IPRNTR,IDUM9(6),NLPP,IDUM10(2),LINE COMMON /TWO / ITWO(32) COMMON /BITPOS/ IDUM11(5),UL,UA,UF,IDUM12,UN,IDUM13(11),UI DATA GEOM4 , BDYC /102,910,9/ DATA MODNAM/ 4HMRED,4H1A / C C TEST PROCESSING MODE FLAG C IF (MODE .EQ. 2) GO TO 10 C C TEST FIXED SET ID FLAG AND SET FIXED INDEX C IF (FIXSET.EQ.0 .OR. SKIPM.EQ.-1) GO TO 260 SETID = FIXSET ISHIFT = 10 GO TO 20 C C SET BOUNDARY INDEX C 10 IF (BNDSET .EQ. 0) GO TO 240 SETID = BNDSET ISHIFT = 1 C C ALLOCATE USET ARRAY AND TEST OPEN CORE LENGTH C IF (NOUS .EQ. 1) GO TO 40 20 KBDYC = KORUST + USETL IF (KBDYC .GE. KORLEN) GO TO 200 C C TURN UL, UA, UF, UN, AND UI BITS ON IN USET ARRAY C IBITS = ITWO(UL) + ITWO(UA) + ITWO(UF) + ITWO(UN) + ITWO(UI) DO 30 I = 1,USETL 30 Z(KORUST+I-1) = IBITS C C READ BOUNDARY SET (BDYC) BULK DATA FOR REQUESTED FIXED SET C ID (FIXSET) OR BOUNDARY SET ID (BNDSET) C 40 IFILE = GEOM4 CALL PRELOC (*170,Z(GBUF1),GEOM4) CALL LOCATE (*230,Z(GBUF1),BDYC,IFLAG) 50 CALL READ (*180,*230,GEOM4,ARRAY,1,0,IFLAG) IF (ARRAY(1) .EQ. SETID) GO TO 70 60 CALL READ (*180,*190,GEOM4,ARRAY,3,0,IFLAG) IF (ARRAY(3) .EQ. -1) GO TO 50 GO TO 60 C C SET ID FOUND, STORE AT Z(KBDYC+NWDS) C 70 NWDS = 0 80 CALL READ (*180,*190,GEOM4,Z(KBDYC+NWDS),3,0,IFLAG) IF (Z(KBDYC+NWDS+2) .EQ. -1) GO TO 110 C C CHECK THAT SUBSTRUCTURE IS A COMPONENT OF STRUCTURE BEING C REDUCED C DO 90 I = 1,NCSUBS J = 2*(I-1) IF ((Z(NAMEBS+J).EQ.Z(KBDYC+NWDS)) .AND. (Z(NAMEBS+J+1).EQ. 1 Z(KBDYC+NWDS+1))) GO TO 100 90 CONTINUE C C SUBSTRUCTURE IS NOT A COMPONENT C IF (MODE .EQ. 1) WRITE (IPRNTR,900) UWM,Z(KBDYC+NWDS), 1 Z(KBDYC+NWDS+1) IF (MODE .EQ. 2) WRITE (IPRNTR,901) UWM,Z(KBDYC+NWDS), 1 Z(KBDYC+NWDS+1) DRY = -2 GO TO 80 C C SAVE BASIC SUBSTRUCTURE INDEX C 100 Z(KBDYC+NWDS+3) = I NWDS = NWDS + 4 IF (KBDYC+NWDS .GE. KORLEN) GO TO 200 GO TO 80 C C CHECK FOR DUPLICATE BDYC SUBSTRUCTURE NAMES C 110 NWDS = NWDS/4 IF (NWDS .LE. 1) GO TO 125 I = NWDS - 1 DO 120 J = 1,I K = J + 1 II = 4*(J-1) DO 120 L = K,NWDS LL = 4*(L-1) IF (Z(KBDYC+II ) .NE. Z(KBDYC+LL )) GO TO 120 IF (Z(KBDYC+II+1) .NE. Z(KBDYC+LL+1)) GO TO 120 WRITE (IPRNTR,902) UFM,OLDNAM,ARRAY(1) DRY = -2 120 CONTINUE C C TEST OUTPUT OPTION C 125 CONTINUE IF (ANDF(RSHIFT(IO,ISHIFT),1) .EQ. 0) GO TO 150 IF (NWDS .EQ. 0) GO TO 150 LINE = NLPP + 1 DO 140 I = 1,NWDS IF (LINE .LE. NLPP) GO TO 130 CALL PAGE1 IF (MODE .EQ. 1) WRITE (IPRNTR,903) FIXSET IF (MODE .EQ. 2) WRITE (IPRNTR,904) BNDSET LINE = LINE + 7 130 J = 4*(I-1) IF (MODE .EQ. 1) WRITE (IPRNTR,905) Z(KBDYC+J),Z(KBDYC+J+1), 1 Z(KBDYC+J+2) IF (MODE .EQ. 2) WRITE (IPRNTR,906) Z(KBDYC+J),Z(KBDYC+J+1), 1 Z(KBDYC+J+2) 140 LINE = LINE + 1 C C SORT BDYC DATA ON SET ID C 150 NBDYCC = NWDS IF (NBDYCC .LE. 1) GO TO 270 NWDS = 4*NBDYCC CALL SORT (0,0,4,3,Z(KBDYC),NWDS) GO TO 270 C C PROCESS SYSTEM FATAL ERRORS C 170 IMSG = -1 GO TO 220 180 IMSG = -2 GO TO 210 190 IMSG = -3 GO TO 210 200 IMSG = -8 IFILE = 0 210 CALL CLOSE (GEOM4,1) 220 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN C C PROCESS MODULE FATAL ERRORS C 230 IF (MODE .EQ. 1) WRITE (IPRNTR,907) UWM,FIXSET IF (MODE .EQ. 2) WRITE (IPRNTR,908) UWM,BNDSET DRY = -1 GO TO 250 240 IF (PONLY) GO TO 280 WRITE (IPRNTR,909) UFM DRY = -2 250 CALL SOFCLS CALL CLOSE (GEOM4,1) RETURN C C NO FIXED ID SET DATA C 260 NOUS = -1 C C END OF PROCESSING C 270 CALL CLOSE (GEOM4,1) 280 CONTINUE C 900 FORMAT (A25,' 6622, A FIXED SET HAS BEEN SPECIFIED FOR ',2A4, 1 ', BUT IT IS NOT A COMPONENT OF',/32X,'THE PSEUDOSTRUCTURE' 2, ' BEING PROCESSED. THE FIXED SET WILL BE IGNORED.') 901 FORMAT (A25,' 6604, A BOUNDARY SET HAS BEEN SPECIFIED FOR ',2A4, 1 ', BUT IT IS NOT A COMPONENT OF',/32X,'THE PSEUDOSTRUCTURE' 2, ' BEING PROCESSED. THE BOUNDARY SET WILL BE IGNORED.') 902 FORMAT (A23,' 6623, SUBSTRUCTURE ',2A4, 1 ' HAS DUPLICATE NAMES IN BDYC DATA SET ',I8,1H.) 903 FORMAT (1H0,43X,'SUMMARY OF COMBINED FIXED SET NUMBER ',I8, //57X, 1 'BASIC FIXED', /54X,'SUBSTRUCTURE SET ID', /58X, 2 'NAME NUMBER',/) 904 FORMAT (1H0,43X,'SUMMARY OF COMBINED BOUNDARY SET NUMBER ',I8, 1 //57X,'BASIC BOUNDARY', /54X,'SUBSTRUCTURE SET ID', 2 /58X,'NAME NUMBER',/) 905 FORMAT (56X,2A4,3X,I8) 906 FORMAT (56X,2A4,4X,I8) 907 FORMAT (A25,' 6621, FIXED SET',I9,' SPECIFIED IN CASE CONTROL ', 1 'HAS NOT BEEN DEFINED BY BULK DATA.') 908 FORMAT (A25,' 6606, BOUNDARY SET',I9,' SPECIFIED IN CASE CONTROL', 1 ' HAS NOT BEEN DEFINED BY BULK DATA.') 909 FORMAT (A23,' 6603, A BOUNDARY SET MUST BE SPECIFIED FOR A REDUCE' 1, ' OPERATION.') C RETURN END ================================================ FILE: mis/mred1b.f ================================================ SUBROUTINE MRED1B (MODE) C C THIS SUBROUTINE PROCESSES THE BDYS AND BDYS1 DATA FOR THE FIXED C IDENTIFICATION SET (FIXSET) AND THE BOUNDARY IDENTIFICATION SET C (BNDSET) FOR THE MRED1 MODULE. C C INPUT DATA C GINO - GEOM4 - BDYS DATA C - BDYS1 DATA C OTHERS - MODE - SUBROUTINE PROCESSING FLAG C = 1, PROCESS FIXED ID SET C = 2, PROCESS BOUNDARY ID SET C C OUTPUT DATA C GINO - USETX - S,R,B DEGREES OF FREEDOM C C PARAMETERS C INPUT - NOUS - FIXED POINTS FLAG C .GE. 0, FIXED POINTS DEFINED C .EQ. -1, NO FIXED POINTS DEFINED C GBUF1 - GINO BUFFER C KORLEN - CORE LENGTH C IO - OUTPUT OPTION FLAG C NAMEBS - BEGINNING ADDRESS OF BASIC SUBSTRUCTURES NAMES C EQSIND - BEGINNING ADDRESS OF EQSS GROUP ADDRESSES C NSLBGN - BEGINNING ADDRESS OF SIL DATA C KBDYC - BEGINNING ADDRESS OF BDYC DATA C USETX - USETX OUTPUT FILE NUMBER C NBDYCC - NUMBER OF BDYC WORDS C OUTPUT - DRY - MODULE OPERATION FLAG C OTHERS - LOCUST - BEGINNING ADDRESS OF USET ARRAY C IERR - NO BDYS/BDYS1 DATA ERROR FLAG C .LT. 2, NO ERRORS C .EQ. 2, ERRORS C GRPBGN - ABSOLUTE BEGINNING ADDRESS OF EQSS GROUP DATA C GRPEND - ABSOLUTE ENDING ADDRESS OF EQSS GROUP DATA C GRPIP - ABSOLUTE ADDRESS OF EQSS DATA GROUP C LOCBGN - BEGINNING ADDRESS OF EQSS DATA FOR SUBSTRUCTURE C NFOUND - NUMBER OF EQSS DATA ITEMS FOUND FOR SET ID C KPNTBD - ARRAY OF BDYC DOF COMPONENTS C KPNTSL - ARRAY OF EQSS DOF COMPONENTS C INDSIL - ABSOLUTE INDEX INTO SIL DATA C NSILUS - ABSOLUTE INDEX INTO USET ARRAY C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,ANDF,ORF,COMPLF LOGICAL BOUNDS,PONLY REAL RZ(1) DIMENSION ARRAY(3),BDYI(2,2),BDY(2),EQSTRL(7),IDUM(3), 1 KPNTSL(32),IOSHFT(2),KPNTBD(9),MODNAM(2),USETRL(7) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / OLDNAM(2),DRY,IDUM13,NOUS,IDUM2(4),GBUF1, 1 IDUM14(4),KORLEN,IDUM4(5),IO,IDUM5(2),BNDSET, 2 FIXSET,IEIG,KORBGN,IDUM12,NAMEBS,EQSIND,NSLBGN, 3 IDUM6,KBDYC,NBDYCC,LUSET,LOCUST,IDUM3(4),BOUNDS, 4 PONLY COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ IDUM7,IPRNTR,IDUM8(6),NLPP,IDUM9(2),LINE COMMON /TWO / ITWO(32) COMMON /BITPOS/ IDUM10(5),UL,UA,UF,US,UN,IDUM11(10),UB,UI COMMON /PATX / LCORE,NSUB(3),FUSET COMMON /UNPAKX/ TYPEU,IROWU,NROWU,INCRU EQUIVALENCE (RZ(1),Z(1)) DATA GEOM4 , BDYI,USETX/102,1210,12,1310,13,201/ DATA MODNAM/ 4HMRED,4H1B / DATA IOSHFT/ 11,2 / DATA ITEM / 4HUPRT/ DATA UPRT , EQST /301,203/ C C TEST FOR FIXED SET INPUT C IF (NOUS.EQ.-1 .AND. MODE.EQ.1) GO TO 430 C C CHECK FOR LOADS PROCESSING ONLY C IF (PONLY) GO TO 345 C C PROCESS BDY(S/S1) BULK DATA FOR SPECIFIED BDYC C ISHIFT = IOSHFT(MODE) IF (NBDYCC .EQ. 0) GO TO 335 KORBGN = KBDYC + 4*NBDYCC IF (KORBGN .GE. KORLEN) GO TO 300 IF (ANDF(RSHIFT(IO,ISHIFT),1) .EQ. 0) GO TO 10 CALL PAGE1 IF (MODE .EQ. 1) WRITE (IPRNTR,900) IF (MODE .EQ. 2) WRITE (IPRNTR,901) LINE = LINE + 7 10 IBITS = ITWO(UL) + ITWO(UA) + ITWO(UF) IF (MODE .EQ. 2) IBITS = ITWO(UI) IBITS = COMPLF(IBITS) IERR = 0 IBDY = 0 IFILE = GEOM4 C C SET BULK DATA PROCESSING FLAG AND READ SET ID C IBDY .EQ. 1 - BDYS C IBDY .EQ. 2 - BDYS1 C NXTBDY = 1 IFOUND = 0 CALL PRELOC (*270,Z(GBUF1),GEOM4) 20 IBDY = IBDY + 1 IF (IBDY .EQ. 3) GO TO 260 DO 30 I = 1,2 30 BDY(I) = BDYI(I,IBDY) CALL LOCATE (*250,Z(GBUF1),BDY,IFLAG) GO TO 40 35 CALL BCKREC (GEOM4) NXTBDY = NXTBDY + 1 IF (NXTBDY .GT. NBDYCC) GO TO 20 CALL READ (*280,*290,GEOM4,IDUM,3,0,IFLAG) 40 CALL READ (*280,*20,GEOM4,ARRAY,IBDY,0,IFLAG) C C CHECK REQUEST ID C BDYJ = 2 BDYK = 2 BDYL = 3 BDYM = 2 IF (IBDY .EQ. 1) GO TO 50 BDYJ = 3 BDYK = 1 BDYL = 2 BDYM = 3 50 IWDS = 2 + 4*(NXTBDY-1) DO 55 I = NXTBDY, NBDYCC IF (Z(KBDYC+IWDS) .EQ. ARRAY(1)) GO TO 90 55 IWDS = IWDS + 4 C C FINISH BDY(S/S1) SET ID READING C 60 CALL READ (*280,*290,GEOM4,ARRAY(BDYJ),BDYK,0,IFLAG) IF (IBDY - 2) 70,80,80 70 IF (ARRAY(2).NE.-1 .AND. ARRAY(3).NE.-1) GO TO 60 GO TO 40 80 IF (ARRAY(3) .NE. -1) GO TO 60 GO TO 40 C C CONTINUE BDY(S/S1) SET ID PROCESSING C 90 CALL READ (*280,*290,GEOM4,ARRAY(BDYJ),BDYK,0,IFLAG) IF (IBDY - 2) 100,110,110 100 IF (ARRAY(2).EQ.-1 .AND. ARRAY(3).EQ.-1) GO TO 115 GO TO 120 110 IF (ARRAY(3) .EQ. -1) GO TO 115 GO TO 120 C C CHECK FOR NEXT BDY(S/S1) CARD HAVING SAME SET ID AS CURRENT ID C 115 CALL READ (*280,*35,GEOM4,ARRAY,IBDY,0,IFLAG) IF (Z(KBDYC+IWDS) .EQ. ARRAY(1)) GO TO 90 GO TO 35 C C LOCATE EQSS DATA FOR SUBSTRUCTURE C 120 IFOUND = 1 IP = 2*(Z(KBDYC+IWDS+1)-1) GRPBGN = Z(EQSIND+IP) GRPEND = GRPBGN + Z(EQSIND+IP+1) K = Z(EQSIND+IP+1)/3 CALL BISLOC (*170,ARRAY(BDYM),Z(GRPBGN),3,K,LOCBGN) GRPIP = GRPBGN + LOCBGN - 1 LOC = GRPIP - 3 130 IF (LOC .LT. GRPBGN) GO TO 140 IF (Z(LOC) .LT. Z(GRPIP)) GO TO 140 LOC = LOC - 3 GO TO 130 140 LOCBGN = LOC + 3 NFOUND = 1 LOC = LOCBGN + 3 150 IF (LOC .GE. GRPEND) GO TO 180 IF (Z(LOCBGN) .LT. Z(LOC)) GO TO 180 LOC = LOC + 3 NFOUND = NFOUND + 1 GO TO 150 C C CANNOT LOCATE EXTERNAL ID C 170 CALL PAGE1 IF (MODE .EQ. 1) WRITE (IPRNTR,902) UFM,ARRAY(3),ARRAY(2), 1 ARRAY(1),Z(NAMEBS+IP),Z(NAMEBS+IP+1) IF (MODE .EQ. 2) WRITE (IPRNTR,903) UFM,ARRAY(3),ARRAY(2), 1 ARRAY(1),Z(NAMEBS+IP),Z(NAMEBS+IP+1) DRY = -2 GO TO 90 C C LOCATE CORRECT IP FOR THIS EXTERNAL ID C 180 CALL SPLT10 (ARRAY(BDYL),KPNTBD,JWDS) M = 0 DO 230 I = 1, NFOUND J = (3*(I-1)) + 2 ICODE = Z(LOCBGN+J) CALL DECODE (ICODE,KPNTSL,KWDS) DO 230 K = 1, KWDS DO 190 L = 1, JWDS IF (KPNTSL(K) .EQ. KPNTBD(L)-1) GO TO 200 190 CONTINUE GO TO 230 C C CONVERT GRID ID AND COMPONENT TO SIL VALUE C 200 IF (ANDF(RSHIFT(IO,ISHIFT),1) .EQ. 0) GO TO 220 IF (LINE .LE. NLPP) GO TO 210 CALL PAGE1 IF (MODE .EQ. 1) WRITE (IPRNTR,900) IF (MODE .EQ. 2) WRITE (IPRNTR,901) LINE = LINE + 7 210 IF (M .EQ. 0) WRITE (IPRNTR,906) ARRAY(1),ARRAY(BDYM),ARRAY(BDYL) M = 1 LINE = LINE + 1 220 INDSIL = NSLBGN + ((2*Z(LOCBGN+J-1))-2) NSILUS = LOCUST + ((Z(INDSIL)-1)+(K-1)) KPNTBD(L) = 0 C C FILL USET ARRAY C IF FIXSET - TURN OFF UL, UA, UF BITS AND TURN ON US BIT C IF BNDSET - TURN OFF UI BIT AND TURN ON UB BIT C UBORS = US IF (MODE .EQ. 2) UBORS = UB Z(NSILUS) = ANDF(Z(NSILUS),IBITS) Z(NSILUS) = ORF(Z(NSILUS),ITWO(UBORS)) 230 CONTINUE C C CHECK THAT ALL IP FOUND C DO 240 I = 1,JWDS IF (KPNTBD(I) .EQ. 0) GO TO 240 IF (MODE .EQ. 1) WRITE (IPRNTR,904) UWM,ARRAY(BDYM),Z(NAMEBS+IP), 1 Z(NAMEBS+IP+1) IF (MODE .EQ. 2) WRITE (IPRNTR,905) UWM,ARRAY(BDYM),Z(NAMEBS+IP), 1 Z(NAMEBS+IP+1) GO TO 90 240 CONTINUE GO TO 90 C C SET NO DATA AVAILABLE FLAG C 250 IERR = IERR + 1 GO TO 20 C C END OF ID SET PROCESSING C 260 CALL CLOSE (GEOM4,1) IF (IERR .EQ. 2) GO TO 330 IF (IFOUND .EQ. 0) GO TO 330 IF (MODE .EQ. 1) GO TO 430 C C WRITE USETX DATA C CALL GOPEN (USETX,Z(GBUF1),1) CALL WRITE (USETX,Z(LOCUST),LUSET,1) CALL CLOSE (USETX,1) USETRL(1) = USETX USETRL(2) = 1 USETRL(3) = LUSET USETRL(4) = 7 USETRL(5) = 1 CALL WRTTRL (USETRL) C C VERIFY OLD BOUNDARY UNCHANGED C IF (.NOT.BOUNDS) GO TO 430 IF (LOCUST+2*LUSET .GE. KORLEN) GO TO 300 345 CALL SOFTRL (OLDNAM,ITEM,USETRL) IF (USETRL(1) .NE. 1) GO TO 440 NROWU = USETRL(3) IF (PONLY) LUSET = NROWU IF (NROWU .NE. LUSET) GO TO 420 C C GET OLD UPRT VECTOR C TYPEU = USETRL(5) CALL MTRXI (UPRT,OLDNAM,ITEM,0,ITEST) NEWUST = LOCUST + LUSET IF (PONLY) NEWUST = LOCUST IF (PONLY .AND. NEWUST+NROWU.GE.KORLEN) GO TO 300 IROWU = 1 INCRU = 1 CALL GOPEN (UPRT,Z(GBUF1),0) CALL UNPACK (*350,UPRT,RZ(NEWUST)) GO TO 370 350 DO 360 I = 1,LUSET 360 RZ(NEWUST+I-1) = 0.0 370 CALL CLOSE (UPRT,1) IF (PONLY) GO TO 405 C C GET NEW UPRT VECTOR C LCORE = KORLEN - (NEWUST+LUSET) FUSET = USETX CALL CALCV (UPRT,UN,UI,UB,Z(NEWUST+LUSET)) TYPEU = 1 NROWU = LUSET CALL GOPEN (UPRT,Z(GBUF1),0) CALL UNPACK (*380,UPRT,RZ(NEWUST+LUSET)) GO TO 400 380 DO 390 I = 1,LUSET 390 RZ(NEWUST+LUSET+I-1) = 0.0 400 CALL CLOSE (UPRT,1) C C CHECK OLD, NEW UPRT VECTORS AND COUNT NUMBER OF ROWS IN 0, 1 C SUBSETS AND SAVE IN EQST TRAILER FOR USE IN MRED2A C 405 ISUB0 = 0 ISUB1 = 0 DO 410 I = 1,LUSET IF (RZ(NEWUST+I-1) .EQ. 0.0) ISUB0 = ISUB0 + 1 IF (RZ(NEWUST+I-1) .EQ. 1.0) ISUB1 = ISUB1 + 1 IF (PONLY) GO TO 410 IF (RZ(NEWUST+I-1) .NE. RZ(NEWUST+LUSET+I-1)) GO TO 420 410 CONTINUE EQSTRL(1) = EQST EQSTRL(6) = ISUB0 EQSTRL(7) = ISUB1 CALL WRTTRL (EQSTRL) GO TO 430 C C BOUNDARY POINTS ARE NOT THE SAME C 420 WRITE (IPRNTR,909) UFM,OLDNAM DRY = -2 430 CONTINUE RETURN C C PROCESS SYSTEM FATAL ERRORS C 270 IMSG = -1 GO TO 320 280 IMSG = -2 GO TO 310 290 IMSG = -3 GO TO 310 300 IMSG = -8 IFILE = 0 310 CALL CLOSE (GEOM4,1) 320 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN C C PROCESS MODULE FATAL ERRORS C 330 IF (MODE .EQ. 1) WRITE (IPRNTR,907) UFM,FIXSET IF (MODE .EQ. 2) WRITE (IPRNTR,908) UFM,BNDSET 335 DRY = -2 CALL SOFCLS CALL CLOSE (GEOM4,1) RETURN 440 GO TO (450,450,460,470,480,480), ITEST 450 WRITE (IPRNTR,910) UFM,MODNAM,ITEM,OLDNAM DRY = -2 RETURN 460 IMSG = -1 GO TO 490 470 IMSG = -2 GO TO 490 480 IMSG = -3 490 CALL SMSG (IMSG,ITEM,OLDNAM) RETURN C 900 FORMAT (//45X,40HTABLE OF GRID POINTS COMPOSING FIXED SET, 1 //53X,5HFIXED,/53X,25HSET ID GRID POINT DOF, /53X, 2 26HNUMBER ID NUMBER CODE,/) 901 FORMAT (1H0,44X,43HTABLE OF GRID POINTS COMPOSING BOUNDARY SET, 1 //52X,8HBOUNDARY,/53X,25HSET ID GRID POINT DOF, /53X, 2 26HNUMBER ID NUMBER CODE,/) 902 FORMAT (A23,' 6624, GRID POINT',I9,' COMPONENT',I9,' SPECIFIED ', 1 'IN FIXED SET',I9, /5X,'FOR SUBSTRUCTURE ',2A4, 2 ' DOES NOT EXIST.',//////) 903 FORMAT (A23,' 6611, GRID POINT',I9,' COMPONENT',I9,' SPECIFIED ', 1 'IN BOUNDARY SET',I9, /5X,'FOR SUBSTRUCTURE ',2A4, 2 ' DOES NOT EXIST.',//////) 904 FORMAT (A25,' 6625, DEGREES OF FREEDOM AT GRID POINT',I9, 1 ' COMPONENT SUBSTRUCTURE ',2A4, /32X,'INCLUDED IN A FIXED', 2 ' SET DO NOT EXIST. REQUEST WILL BE IGNORED.') 905 FORMAT (A25,' 6610, DEGREES OF FREEDOM AT GRID POINT',I9, 1 ' COMPONENT SUBSTRUCTURE ',2A4, /32X,'INCLUDED IN A NON-', 2 'EXISTING BOUNDARY SET. REQUEST WILL BE IGNORED.') 906 FORMAT (52X,2(I8,3X),I6) 907 FORMAT (A23,' 6626, NO BDYS OR BDYS1 BULK DATA HAS BEEN INPUT TO', 1 ' DEFINE FIXED SET',I9,1H.) 908 FORMAT (A23,' 6607, NO BDYS OR BDYS1 BULK DATA HAS BEEN INPUT TO', 1 ' DEFINE BOUNDARY SET',I9,1H.) 909 FORMAT (A23,' 6637, OLDBOUND HAS BEEN SPECIFIED BUT THE BOUNDARY', 1 ' POINTS FOR SUBSTRUCTURE ',2A4,' HAVE BEEN CHANGED.') 910 FORMAT (A23,' 6215, MODULE ',2A4,8H - ITEM ,A4,' OF SUBSTRUCTURE ' 1, 2A4,' PSEUDO-EXISTS ONLY.') C END ================================================ FILE: mis/mred1c.f ================================================ SUBROUTINE MRED1C C C THIS SUBROUTINE CONVERTS THE EQSS DATA AND BGSS DATA TO CORRESPOND C TO THE BOUNDARY DEGREES OF FREEDOM (UB) FOR THE MRED1 MODULE C C INPUT DATA C SOF - BGSS - BASIC GRID POINT IDENTIFICATION TABLE C C OUTPUT DATA C GINO - EQST - TEMPORARY EQSS DATA FILE C C PARAMETERS C INPUT - GBUF1 - GINO BUFFER C KORLEN - LENGTH OF OPEN CORE C NEWNAM - NAME OF NEW SUBSTRUCTURE C RGRID - FREEBODY MODE IDENTIFICATION NUMBERS (SET IN C MRED1) C RGRID(1) .EQ. GRID POINT IDENTIFICATION NUMBER C RGRID(2) .EQ. NUMBER OF CONTRIBUTING SUBSTRUCTURE C NCSUBS - NUMBER OF CONTRIBUTING SUBSTRUCTURES C NAMEBS - BEGINNING ADDRESS OF BASIC SUBSTRUCTURE NAMES C EQSIND - BEGINNING ADDRESS OF EQSS GROUP ADDRESSES C NSLBGN - BEGINNING ADDRESS OF SIL DATA C NSIL - NUMBER OF SIL GROUPS C LOCUST - BEGINNING ADDRESS OF USET ARRAY C EXTERNAL ANDF,ORF LOGICAL BOUNDS INTEGER OLDNAM,DRY,GBUF1,EQSIND,RGRID,Z,SILDOF,UB,ESTDTA, 1 SILIND,ESTWRT,BITPAT,EQST,EQSTRL,ANDF,ORF DIMENSION BITPAT(32),MODNAM(2),EQSTRL(7) COMMON /BLANK / OLDNAM(2),DRY,IDUM1(6),GBUF1,IDUM2(4),KORLEN, 1 NEWNAM(2),IDUM3(4),RGRID(2),IDUM4(4),NCSUBS, 2 NAMEBS,EQSIND,NSLBGN,NSIL,IDUM6(3),LOCUST, 3 IDUM7(4),BOUNDS COMMON /ZZZZZZ/ Z(1) COMMON /TWO / ITWO(32) COMMON /BITPOS/ IDUM5(20),UB DATA EQST , NHBGSS,MODNAM / 203,4HBGSS,4HMRED,4H1C / C C IF OLDBOUNDS OPTION, GET EQST TRAILER C IF (DRY .EQ. -2) RETURN EQSTRL(1) = EQST IF (.NOT. BOUNDS) GO TO 5 CALL RDTRL (EQSTRL) C C GET SIL DOF AND DECODE C 5 NEWIPS = 0 DO 30 I = 1,NSIL SILDOF = NSLBGN + ((2*I) - 1) ICODE = Z(SILDOF) CALL DECODE (ICODE,BITPAT,NWDSD) C C TEST FOR DOF REMAINING IN BOUNDARY SET C NDOF = 0 KOMPNT = 0 DO 10 J = 1,NWDSD K = LOCUST + (Z(SILDOF-1)-1) + (J-1) IF (ANDF(Z(K),ITWO(UB)) .EQ. 0) GO TO 10 K = 32 - BITPAT(J) KOMPNT = ORF(KOMPNT,ITWO(K)) NDOF = NDOF + 1 10 CONTINUE C C SAVE NEW SIL DATA C IF (NDOF .EQ. 0) GO TO 20 NEWIPS = NEWIPS + 1 Z(SILDOF-1) = (8*NEWIPS) + NDOF Z(SILDOF) = KOMPNT GO TO 30 C C SIL DATA NOT NEEDED C 20 Z(SILDOF-1) = -1 30 CONTINUE C C WRITE EQSS GROUP 0 DATA ONTO TEMPORARY EQST TABLE C CALL GOPEN (EQST,Z(GBUF1),1) CALL WRITE (EQST,NEWNAM,2,0) CALL WRITE (EQST,NCSUBS,1,0) CALL WRITE (EQST,NEWIPS,1,0) NWDS = EQSIND - NAMEBS CALL WRITE (EQST,Z(NAMEBS),NWDS,1) EQSTRL(2) = NWDS + 4 C C WRITE REMAINING EQSS GROUP DATA ONTO TEMPORARY EQST TABLE C EQSTRL(3) = NCSUBS DO 60 I = 1,NCSUBS J = 2*(I-1) ESTDTA = Z(EQSIND+J) NWDS = Z(EQSIND+J+1) C C TEST SUBSTRUCTURE COMPONENTS C IF (NWDS .LE. 0) GO TO 60 DO 50 J = 1,NWDS,3 SILIND = NSLBGN + (2*(Z(ESTDTA+J) - 1)) IF (RGRID(1) .LE. 0) GO TO 40 IF (I .NE. RGRID(2)) GO TO 40 IF (RGRID(1) .NE. Z(ESTDTA+J-1)) GO TO 40 RGRID(1) = Z(ESTDTA+J) 40 IF (Z(SILIND) .EQ. -1) GO TO 50 C C REPLACE IP, SIL NUMBERS AND WRITE DATA C ESTWRT = ESTDTA + J Z(ESTWRT ) = Z(SILIND)/8 Z(ESTWRT+1) = Z(SILIND+1) CALL WRITE (EQST,Z(ESTWRT-1),3,0) 50 CONTINUE 60 CALL WRITE (EQST,0,0,1) C C REDUCE SIL ENTRIES AND STORE NEW SIL DATA AT Z(2*NSIL) C NDOF = 1 LOINDX = 0 NEWSIL = NSLBGN + (2*NSIL) IF ((NEWSIL+(2*NSIL)) .GE. KORLEN) GO TO 130 DO 70 I = 1,NSIL J = 2*(I-1) IF (Z(NSLBGN+J) .EQ. -1) GO TO 70 Z(NEWSIL+LOINDX ) = NDOF Z(NEWSIL+LOINDX+1) = Z(NSLBGN+J+1) NDOF = NDOF + ANDF(Z(NSLBGN+J),7) LOINDX = LOINDX + 2 70 CONTINUE C C WRITE SIL DATA ONTO TEMPORARY EQST TABLE C KORBGN = NAMEBS IF (LOINDX .LE. 0) CALL WRITE (EQST,0,0,1) IF (LOINDX .GT. 0) CALL WRITE (EQST,Z(NEWSIL),LOINDX,1) EQSTRL(4) = LOINDX C C READ AND WRITE BGSS GROUP 0 DATA C CALL SFETCH (OLDNAM,NHBGSS,1,ITEST) IF (ITEST .EQ. 3) GO TO 90 IF (ITEST .EQ. 4) GO TO 100 IF (ITEST .EQ. 5) GO TO 110 CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) Z(KORBGN ) = OLDNAM(1) Z(KORBGN+1) = OLDNAM(2) NBGSS = Z(KORBGN+2) Z(KORBGN+2) = LOINDX/2 CALL WRITE (EQST,Z(KORBGN),3,1) C C ELIMINATE BGSS DATA NOT REQUIRED C I = 0 EQSTRL(5) = 0 DO 80 J = 1,NBGSS CALL SUREAD (Z(KORBGN),4,NWDSRD,ITEST) IF (I .GT. (2*NSIL)) GO TO 80 IF (Z(NSLBGN+I) .EQ. -1) GO TO 80 CALL WRITE (EQST,Z(KORBGN),4,0) EQSTRL(5) = EQSTRL(5) + 4 80 I = I + 2 CALL WRITE (EQST,0,0,1) CALL WRTTRL (EQSTRL) C C CLOSE EQST FILE C CALL CLOSE (EQST,1) RETURN C C PROCESS MODULE FATAL ERRORS C 90 IMSG = -1 GO TO 120 100 IMSG = -2 GO TO 120 110 IMSG = -3 120 CALL SMSG (IMSG,NHBGSS,OLDNAM) RETURN C C PROCESS SYSTEM FATAL ERRORS C 130 IMSG = -8 IFILE = 0 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) C RETURN END ================================================ FILE: mis/mred1d.f ================================================ SUBROUTINE MRED1D C C THIS SUBROUTINE GENERATES THE EEDX DATA BLOCK USING THE EED DATA C BLOCK FORMAT FROM THE EIGR OR EIGC AND EIGP BULK DATA FOR THE C MRED1 MODULE. C C INPUT DATA C GINO - DYNAMICS - EIGC DATA C EIGP DATA C EIGR DATA C C OUTPUT DATA C GINO - EEDX - EIGC DATA C EIGP DATA C EIGR DATA C C PARAMETERS C INPUT - DNAMIC - DYNAMICS DATA BLOCK INPUT FILE NUMBER C GBUF1 - GINO BUFFER C EEDX - EEDX DATA BLOCK OUTPUT FILE NUMBER C KORBGN - BEGINNING ADDRESS OF OPEN CORE C IEIG - EIGENVALUE EXTRACTION SET IDENTIFICATION NUMBER C OUTPUT - DRY - MODULE OPERATION FLAG C OTHERS - EIGTYP - EIG CARD TYPE PROCESSING FLAG C = 1, PROCESS EIGC DATA C = 2, PROCESS EIGP DATA C = 3, PROCESS EIGR DATA C EIGCP - EIGC AND EIGP DATA ERROR FLAG C = 0, NO EIGC, EIGP DATA - NO ERROR C = 1, EIGC DATA ONLY - NO ERROR C = 2, EIGP DATA ONLY - ERROR C = 3, EIGC AND EIGP DATA - NO ERROR C EIGTRL - EEDX TRAILER C EIGCPR - DUMMY EIG(C,P,R) ARRAY C EIG - ARRAY OF EIG(C,P,R) CARD TYPES AND HEADER C INFORMATION C KORBGN - BEGINNING ADDRESS OF OPEN CORE C NWDS2R - NUMBER OF EIG(C,P,R) WORDS TO READ ON DYNAMIC C DATA FILE C EXTERNAL ORF LOGICAL USRMOD INTEGER ORF,OLDNAM,DRY,TYPE,GBUF1,GBUF2,Z,DNAMIC, 1 EIG(3,3),EIGCPR(3),EEDX,EIGTRL(7),EIGTYP,EIGCP DIMENSION MODNAM(2),LETR(3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / OLDNAM(2),DRY,IDUM1(3),TYPE(2),IDUM5,GBUF1,GBUF2, 1 IDUM2(3),KORLEN,IDUM7(4),IEIG,IDUM3(6),KORBGN, 2 IDUM6(12),USRMOD COMMON /ZZZZZZ/ Z(1) COMMON /TWO / ITWO(32) COMMON /SYSTEM/ IDUM4,IPRNTR DATA DNAMIC, EIG,EEDX/103,207,2,0,257,4,0,307,3,0,202/ DATA MODNAM, LETR /4HMRED,4H1D ,1HC,1HP,1HR/ DATA KOMPLX, KREAL/4HCOMP,4HREAL/ C C OPEN DYNAMICS, EEDX DATA BLOCKS C IF (DRY .EQ. -2) RETURN IF (USRMOD) GO TO 175 CALL PRELOC (*180,Z(GBUF1),DNAMIC) CALL GOPEN (EEDX,Z(GBUF2),1) C C SET PROCESSING FLAGS C EIGTYP = 0 EIGCP = 0 EIGTRL(1) = EEDX DO 10 I = 2,7 10 EIGTRL(I) = 0 C C INCREMENT EIG PROCESSING FLAG C EIGTYP .EQ. 1, PROCESS EIGC DATA C EIGTYP .EQ. 2, PROCESS EIGP DATA C EIGTYP .EQ. 3, PROCESS EIGR DATA C 20 EIGTYP = EIGTYP + 1 IF (EIGTYP .EQ. 4) GO TO 170 C C SELECT EIG MODE C IF (TYPE(1).EQ.KREAL .AND. EIGTYP.LT.3) GO TO 20 IF (TYPE(1).EQ.KOMPLX .AND. EIGTYP.EQ.3) GO TO 20 DO 30 I = 1,3 30 EIGCPR(I) = EIG(I,EIGTYP) C C LOCATE EIG(C,P,R) DATA CARD C CALL LOCATE (*20,Z(GBUF1),EIGCPR,ITEST) C C SET UP EEDX DATA RECORD C DO 40 I = 1,3 40 Z(KORBGN+I-1) = EIGCPR(I) C C FIND CORRECT EIG(C,P,R) DATA CARD C GO TO (50,60,70), EIGTYP 50 NWDS2R = 10 GO TO 80 60 NWDS2R = 4 GO TO 80 70 NWDS2R = 18 80 CALL READ (*190,*200,DNAMIC,Z(KORBGN+3),NWDS2R,0,NOWDSR) IF (Z(KORBGN+3) .EQ. IEIG) GO TO 100 GO TO (90,80,80), EIGTYP C C READ REST OF EIGC DATA C 90 CALL READ (*190,*200,DNAMIC,Z(KORBGN+3),7,0,NOWDSR) IF (Z(KORBGN+3) .EQ. -1) GO TO 80 GO TO 90 C C SELECT EIG PROCESSING MODE C 100 GO TO (110,140,150), EIGTYP C C WRITE EIGC DATA ONTO EEDX DATA BLOCK C 110 CALL WRITE (EEDX,Z(KORBGN),13,0) EIGTRL(2) = ORF(EIGTRL(2),16384) EIGCP = EIGCP + 1 120 CALL READ (*190,*200,DNAMIC,Z(KORBGN),7,0,NOWDSR) IF (Z(KORBGN) .EQ. -1) GO TO 130 CALL WRITE (EEDX,Z(KORBGN),7,0) GO TO 120 130 CALL WRITE (EEDX,Z(KORBGN),7,1) GO TO 20 C C WRITE EIGP DATA ONTO EEDX DATA BLOCK C 140 CALL WRITE (EEDX,Z(KORBGN),7,1) EIGCP = EIGCP + 2 EIGTRL(2) = ORF(EIGTRL(2),4096) GO TO 20 C C WRITE EIGR DATA ONTO EEDX DATA BLOCK C 150 CALL WRITE (EEDX,Z(KORBGN),21,1) EIGTRL(2) = ORF(EIGTRL(2),8192) GO TO 20 C C CLOSE DYNAMICS, EEDX DATA BLOCKS C 170 CALL CLOSE (DNAMIC,1) CALL CLOSE (EEDX,1) C C TEST FOR EIG CARD ERRORS C IF (EIGTRL(2) .EQ. 0) GO TO 230 IF (EIGCP .EQ. 2) GO TO 240 C C WRITE EEDX DATA BLOCK TRAILER C CALL WRTTRL (EIGTRL) 175 CONTINUE RETURN C C PROCESS SYSTEM FATAL ERRORS C 180 IMSG = -1 GO TO 220 190 IMSG = -2 IF (EIGTYP .EQ. 2) GO TO 20 GO TO 210 200 IMSG = -3 IF (EIGTYP .EQ. 2) GO TO 20 210 WRITE (IPRNTR,900) UFM,LETR(EIGTYP),IEIG,OLDNAM 220 CALL SOFCLS CALL MESAGE (IMSG,DNAMIC,MODNAM) RETURN C C PROCESS MODULE FATAL ERRORS C 230 WRITE (IPRNTR,901) UFM,IEIG,OLDNAM GO TO 250 240 WRITE (IPRNTR,902) UFM,IEIG,OLDNAM 250 DRY = -2 RETURN C 900 FORMAT (A23,' 6627, NO EIG',A1,' DATA CARD ', 1 'SPECIFIED FOR SET ID',I9,', SUBSTRUCTURE ',2A4,1H.) 901 FORMAT (A23,' 6628, NO EIGC OR EIGR CARD SPECIFIED FOR SET ID',I9, 1 ', SUBSTRUCTURE ',2A4,1H.) 902 FORMAT (A23,' 6629, NO EIGC DATA CARD SPECIFHIED WITH EIGP DATA ', 1 'CARD SET ID',I9,', SUBSTRUCTURE ',2A4,1H.) C END ================================================ FILE: mis/mred1e.f ================================================ SUBROUTINE MRED1E C C THIS SUBROUTINE GENERATES THE RIGID BODY MATRIX DMX IF FREEBODY C MODES ARE REQUESTED FOR THE MRED1 MODULE. C C INPUT DATA C SOF - BGSS - BASIC GRID POINT IDENTIFICATION TABLE C EQSS - SUBSTRUCTURE EQUIVALENCE TABLE C CSTM - COORDINATE SYSTEM TRANSFORMATION MATRIX C C OUTPUT DATA C GINO - SCR1 - SCRATCH FILE HOLDING UNTRANSPOSED DMX MATRIX C DMR - RIGID BODY MATRIX C C PARAMETERS C INPUT - DRY - MODULE OPERATION FLAG C RGRID - FREEBODY MODES FLAGS C RGRID(1) .EQ. INTERNAL GRID POINT IDENTIFICATION C NUMBER (SET IN MRED1C) C RGRID(2) .EQ. NUMBER OF THE CONTRIBUTING C SUBSTRUCTURE (SET IN MRED1) C KORBGN - BEGINNING ADDRESS OF OPEN CORE C KORLEN - LENGTH OF OPEN CORE C RGRID0 - FREE BODY MODE BASIC COORDINATES C OTHERS - NBGSS - NUMBER OF INTERNAL GRID IDENTIFICATION POINTS C LOCBGS - BEGINNING ADDRESS OF BGSS DATA C LOCSTM - BEGINNING ADDRESS OF CSTM DATA C LOCSIL - BEGINNING ADDRESS OF SIL DATA C SMALD - MATRIX OF COORDINATE LOCATION DIFFERENCES (3X3) C TI - MATRIX OF COORDINATE TRANSFORMATIONS (3X3) C BIGD - PARTITIONED MATRIX OF TRANSFORMATIONS (6X6) C C T C TTD - TEMPORARY MATRIX HOLDING (T SMALD) (3X3) C KOMPNT - ARRAY HOLDING DECODED SIL COMPONENTS C INTEGER OLDNAM,DRY,GBUF1,GBUF2,RGRID,RNAME,Z,TYPIN,TYPPCK, 1 TYPUNP,SCR1,DMR,TITTD,TIIJD1,TTDIJD,ZEROIJ,TIIJD2, 2 DMRNAM DIMENSION MODNAM(2),ITRLR(7),TI(9),SMALD(9),BIGD(36),TTD(9), 1 KOMPNT(32),RZ(1),DMRNAM(2) COMMON /BLANK / OLDNAM(2),DRY,IDUM1(6),GBUF1,GBUF2,IDUM2(3), 1 KORLEN,IDUM3(6),RGRID(2),RNAME(2),IDUM4,KORBGN, 2 NCSUBS,IDUM5(3),NSIL,IDUM6(4),RGRID0(3) COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / TYPIN,TYPPCK,IROWP,LROWP,INCRP COMMON /UNPAKX/ TYPUNP,IROWUP,LROWUP,INCRUP EQUIVALENCE (RZ(1),Z(1)) DATA MODNAM/ 4HMRED,4H1E / DATA NHBGSS, NHCSTM,NHEQSS /4HBGSS,4HCSTM,4HEQSS/ DATA SCR1 , DMR /301,204 / C C TEST FOR MODULE ERRORS C IF (DRY .EQ. -2) GO TO 190 C C TEST FOR FREEBODY MODES REQUEST C IF (RGRID(1) .EQ. -1) GO TO 190 C C READ BGSS DATA C IT = 1 CALL SFETCH (OLDNAM,NHBGSS,1,ITEST) IF (ITEST .EQ. 3) GO TO 240 IF (ITEST .EQ. 4) GO TO 250 IF (ITEST .EQ. 5) GO TO 260 CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) C C EXTRACT SUBSTRUCTURE IP DATA C NBGSS = Z(KORBGN+2) LOCBGS = KORBGN CALL SUREAD (Z(KORBGN),-2,NWDSRD,ITEST) KORBGN = KORBGN + NWDSRD C C READ CSTM DATA C LOCSTM = KORBGN IF (KORLEN .LE. LOCSTM) GO TO 200 IT = 2 CALL SFETCH (OLDNAM,NHCSTM,1,ITEST) IF (ITEST .EQ. 3) GO TO 30 IF (ITEST .EQ. 4) GO TO 250 IF (ITEST .EQ. 5) GO TO 260 CALL SUREAD (Z(LOCSTM),-2,NWDSRD,ITEST) CALL PRETRS (Z(LOCSTM+3),NWDSRD-4) C C CHECK FOR BASIC COORDINATES C 30 DO 40 I = 1, 3 40 RGRID0(I) = 0.0 IF (RGRID(1) .EQ. 0) GO TO 60 C C EXTRACT FREEBODY BASIC COORDINATES C LOCRGR = LOCBGS + (4*(RGRID(1)-1)) DO 50 I = 1,3 50 RGRID0(I) = RZ(LOCRGR+I) C C OPEN SCRATCH FILE C 60 IFILE = SCR1 ITRLR(1) = IFILE CALL OPEN (*210,SCR1,Z(GBUF2),1) TYPIN = 1 TYPPCK= 1 IROWP = 1 LROWP = 6 INCRP = 1 C C OPEN EQSS FILE AND CHECK OPEN CORE LENGTH C IT = 3 CALL SFETCH (OLDNAM,NHEQSS,1,ITEST) IF (ITEST .EQ. 3) GO TO 240 IF (ITEST .EQ. 4) GO TO 250 IF (ITEST .EQ. 5) GO TO 260 LOCSIL = LOCSTM + NWDSRD CALL SUREAD (Z(LOCSIL),-1,NWDSRD,ITEST) IF (KORLEN .LE. LOCSIL) GO TO 240 C C READ UP TO SIL DATA C IF (KORLEN .LE. 2*NSIL) GO TO 240 DO 70 I = 1,NCSUBS CALL SUREAD (Z(LOCSIL),-1,NWDSRD,ITEST) IF (KORLEN .LE. LOCSIL+NWDSRD) GO TO 240 70 CONTINUE C C GENERATE SMALD MATRIX (3X3) C C ** ** C * * C * 0.0 DELTA(Z) -DELTA(Y) * C * * C SMALD = * -DELTA(Z) 0.0 DELTA(X) * C * * C * DELTA(Y) -DELTA(X) 0.0 * C * * C ** ** C DO 140 I = 1,NBGSS II = 4*(I-1) SMALD(1) = 0.0 SMALD(2) = RZ(LOCBGS+II+3) - RGRID0(3) SMALD(3) =-RZ(LOCBGS+II+2) + RGRID0(2) SMALD(4) =-SMALD(2) SMALD(5) = 0.0 SMALD(6) = RZ(LOCBGS+II+1) - RGRID0(1) SMALD(7) =-SMALD(3) SMALD(8) =-SMALD(6) SMALD(9) = 0.0 C C SELECT TI, TTD MATRIX GENERATION C IF (Z(LOCBGS+II)) 120,85,80 C C GENERATE TI, TTD MATRICES (3X3) C (CID .GT. 0) C 80 CALL TRANSS (Z(LOCBGS+II),TI) CALL GMMATS (TI,3,3,0,SMALD,3,3,1,TTD) GO TO 95 C C GENERATE TI, TTD MATRICES (3X3) C (CID .EQ. 0) C 85 DO 90 J = 1,3 DO 90 K = 1,3 L = K + 3*(J-1) TI(L) = 0.0 IF (J .EQ. K) TI(L) = 1.0 90 TTD(L) = SMALD(L) C C GENERATE BIGD MATRIX (6X6) C C ** ** C * . * C * T . T * C * T . T SMALD * C * . * C BIGD = *..............* C * . * C * . T * C * 0 . T * C * . * C ** ** C 95 DO 100 J = 1,3 DO 100 K = 1,3 TITTD = K + 3*(J-1) TIIJD1 = K + 6*(J-1) TTDIJD = TIIJD1 + 3 ZEROIJ = TIIJD1 + 18 TIIJD2 = TIIJD1 + 21 BIGD(TIIJD1) = TI(TITTD) BIGD(TTDIJD) = TTD(TITTD) BIGD(ZEROIJ) = 0.0 100 BIGD(TIIJD2) = TI(TITTD) C C EXTRACT ROWS OF BIGD CORRESPONDING TO ACTIVE SIL COMPONENTS C CALL SUREAD (Z(LOCSIL),2,NWDSRD,ITEST) ICODE = Z(LOCSIL+1) CALL DECODE (ICODE,KOMPNT,NWDSD) DO 110 J = 1,NWDSD IROWD = 1 + 6*KOMPNT(J) 110 CALL PACK (BIGD(IROWD),SCR1,ITRLR) GO TO 140 C C SCALAR POINT ADDS NULL COLUMN TO BIGD C (CID .LT. 0) C 120 DO 130 J = 1,6 130 BIGD(J) = 0.0 IROWP = 1 CALL PACK (BIGD(1),SCR1,ITRLR) 140 CONTINUE CALL CLOSE (SCR1,1) ITRLR(3) = LROWP C C READ SCR1 INTO TRANSPOSED FORM C CALL OPEN (*210,SCR1,Z(GBUF1),0) TYPUNP = 1 IROWUP = 1 LROWUP = 6 INCRUP = ITRLR(2) KOLMNS = ITRLR(2) KORBGN = LOCBGS IF (KORLEN .LE. KORBGN+LROWP*KOLMNS) GO TO 240 DO 170 I = 1,KOLMNS CALL UNPACK (*150,SCR1,Z(KORBGN)) GO TO 170 150 J = KORBGN DO 160 K = 1,6 RZ(J) = 0.0 160 J = J + INCRUP 170 KORBGN = KORBGN + 1 CALL CLOSE (SCR1,1) C C PLACE TRANSPOSED BIGD ONTO DMR OUTPUT FILE C IFILE = DMR CALL OPEN (*210,DMR,Z(GBUF2),1) CALL FNAME (DMR,DMRNAM) CALL WRITE (DMR,DMRNAM,2,1) LOCDMR = LOCBGS LROWP = KOLMNS IFORM = 2 CALL MAKMCB (ITRLR,DMR,LROWP,IFORM,TYPIN) DO 180 I = 1,6 CALL PACK (Z(LOCDMR),DMR,ITRLR) 180 LOCDMR = LOCDMR + KOLMNS CALL CLOSE (DMR,1) CALL WRTTRL (ITRLR) 190 RETURN C C PROCESS SYSTEM FATAL ERRORS C 200 IMSG =-8 IFILE = 0 GO TO 230 210 IMSG = -1 230 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) GO TO 190 C C PROCESS MODULE FATAL ERRORS C 240 IMSG = -1 GO TO 270 250 IMSG = -2 GO TO 270 260 IMSG = -3 270 IF (IT-2) 280,290,300 280 CALL SMSG (IMSG,NHBGSS,OLDNAM) GO TO 190 C 290 CALL SMSG (IMSG,NHCSTM,OLDNAM) GO TO 190 C 300 CALL SMSG (IMSG,NHEQSS,OLDNAM) GO TO 190 C END ================================================ FILE: mis/mred2.f ================================================ SUBROUTINE MRED2 C C THIS SUBROUTINE IS THE MRED2 MODULE WHICH PERFORMS THE MAJOR C COMPUTATIONS FOR THE REDUCE COMMAND. C C DMAP CALLING SEQUENCE C MRED2 CASECC,LAMAMR,PHISS,EQST,USETMR,KAA,MAA,BAA,K4AA,PAA,DMR, C QSM/KHH,MHH,BHH,K4HH,PHH,POVE/STEP/S,N,DRY/POPT $ C C 12 INPUT DATA BLOCKS C GINO - CASECC - CASE CONTROL DATA C LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED C PHISS - EIGENVECTORS FOR SUBSTRUCTURE BEING REDUCED C EQST - EQSS DATA FOR BOUNDARY SET FOR SUBSTRUCTURE C BEINGREDUCED C USETMR - USET TABLE FOR REDUCED SUBSTRUCTURE C KAA - SUBSTRUCTURE STIFFNESS MATRIX C MAA - SUBSTRUCTURE MASS MATRIX C BAA - SUBSTRUCTURE VISCOUS DAMPING MATRIX C K4AA - SUBSTRUCTURE STRUCTURE DAMPINF MATRIX C PAA - SUBSTRUCTURE LOAD MATRIX C DMR - FREE BODY MATRIX C QSM - MODEL REACTION MATRIX C SOF - LAMS - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE C PHIS - EIGENVECTOR TABLE FOR ORIGINAL SUBSTRUCTURE C LMTX - STIFFNESS DECOMPOSITION PRODUCT FOR ORIGINAL C SUBSTRUCTURE C GIMS - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS FOR C ORIGINAL SUBSTRUCTURE C HORG - H TRANSFORMATION MATRIX FOR ORIGINAL C SUBSTRUCTURE C C 6 OUTPUT DATA BLOCKS C GINO - KHH - REDUCED STIFFNESS MATRIX C MHH - REDUCED MASS MATRIX C BHH - REDUCED VISCOUS DAMPING MATRIX C K4HH - REDUCED STRUCTURE DAMPING MATRIX C PHH - REDUCED LOAD MATRIX C POVE - INTERIOR POINT LOAD MATRIX C SOF - LAMS - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE C PHIS - EIGENVECTOR TABLE FOR ORIGINAL SUBSTRUCTURE C LMTX - STIFFNESS DECOMPOSITION PRODUCT FOR ORIGINAL C SUBSTRUCTURE C GIMS - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS FOR C ORIGINAL SUBSTRUCTURE C HORG - H TRANSFORMATION MATRIX FOR ORIGINAL C SUBSTRUCTURE C UPRT - PARTITIONING VECTOR FOR MREDUCE FOR ORIGINAL C SUBSTRUCTURE C POVE - INTERNAL POINT LOADS FOR ORIGINAL SUBSTRUCTURE C POAP - INTERNAL POINTS APPENDED LOADS FOR ORIGINAL C SUBSTRUCTURE C EQSS - SUBSTRUCTURE EQUIVALENCE TABLE FOR REDUCED C SUBSTRUCTURE C BGSS - BASIC GRID POINT DEFINITION TABLE FOR REDUCED C SUBSTRUCTURE C CSTM - COORDINATE SYSTEM TRANSFORMATION MATRICES FOR C REDUCED SUBSTRUCTURE C LODS - LOAD SET DATA FOR REDUCED SUBSTRUCTURE C LOAP - APPENDED LOAD SET DATA FOR REDUCED SUBSTRUCTURE C PLTS - PLOT SET DATA FOR REDUCED SUBSTRUCTURE C KMTX - STIFFNESS MATRIX FOR REDUCED SUBSTRUCTURE C MMTX - MASS MATRIX FOR REDUCED SUBSTRUCTURE C PVEC - LOAD MATRIX FOR REDUCED SUBSTRUCTURE C PAPD - APPENDED LOAD MATRIX FOR REDUCED SUBSTRUCTURE C BMTX - VISCOUS DAMPING MATRIX FOR REDUCED SUBSTRUCTURE C K4MX - STRUCTURE DAMPING MATRIX FOR REDUCED C SUBSTRUCTURE C C 11 SCRATCH DATA BLOCKS C C PARAMETERS C INPUT - STEP - CONTROL DATA CASECC RECORD (INTEGER) C POPT - PVEC OR PAPP OPTION FLAG (BCD) C OUTPUT - DRY - MODULE OPERATION FLAG (INTEGER) C OTHERS - GBUF - GINO BUFFERS C SBUF - SOF BUFFERS C INFILE - INPUT FILE NUMBERS C OTFILE - OUTPUT FILE NUMBERS C ISCR - ARRAY OF SCRATCH FILE NUMBERS C ISCR11 - LII PARTITION MATRIX USED IN MRED2B AND MRED2F C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C NEWNAM - NAME OF REDUCED SUBSTRUCTURE C FREBDY - FREE BODY MODES CALCULATION FLAG C RANGE - RANGE OF FREQUENCIES TO BE USED C NMAX - MAXIMUM NUMBER OF FREQUENCIES TO BE USED C USRMOD - USERMODES CALCULATION FLAG C IO - IO OPTIONS FLAG C BOUNDS - OLDBOUNDS OPTION FLAG C MODES - OLDMODES OPTION FLAG C RSAVE - SAVE REDUCTION PRODUCT FLAG C LAMSAP - BEGINNING ADDRESS OF MODE USE DESCRIPTION ARRAY C MODPTS - NUMBER OF MODAL POINTS C MODLEN - LENGTH OF MODE USE ARRAY C EXTERNAL ORF LOGICAL FREBDY,BOUNDS,MODES,RSAVE,PONLY INTEGER STEP,DRY,POPT,GBUF1,GBUF2,SBUF1,SBUF2,SBUF3, 1 OTFILE,OLDNAM,USRMOD,GBUF3,Z,SYSBUF,CASECC,ORF DIMENSION MODNAM(2),NMONIC(10),RZ(1),ITRLR(7) COMMON /BLANK / STEP,DRY,POPT,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2,SBUF3, 1 INFILE(12),OTFILE(6),ISCR(10),KORLEN,KORBGN, 2 OLDNAM(2),NEWNAM(2),FREBDY,RANGE(2),NMAX,USRMOD, 3 IO,BOUNDS,MODES,RSAVE,LAMSAP,MODPTS,MODLEN,PONLY, 4 LSTZWD,ISCR11 COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,IPRNTR EQUIVALENCE (CASECC,INFILE(1)), (RZ(1),Z(1)) DATA NMONIC/ 4HNAMA,4HNAMB,4HFREE,4HRANG,4HNMAX,4HUSER,4HOUTP, 1 4HOLDB,4HOLDM,4HRSAV/ DATA IBLANK, NHLODS,NHLOAP/4H ,4HLODS,4HLOAP/ DATA MODNAM/ 4HMRED,4H2 / DATA ITRLR / 106 ,6*0 / C C COMPUTE OPEN CORE AND DEFINE GINO, SOF BUFFERS C IF (DRY .EQ. -2) RETURN NOZWDS = KORSZ(Z(1)) LSTZWD = NOZWDS- 1 GBUF1 = NOZWDS- SYSBUF - 2 GBUF2 = GBUF1 - SYSBUF GBUF3 = GBUF2 - SYSBUF SBUF1 = GBUF3 - SYSBUF SBUF2 = SBUF1 - SYSBUF - 1 SBUF3 = SBUF2 - SYSBUF KORLEN = SBUF3 - 1 KORBGN = 1 IF (KORLEN .LE. KORBGN) GO TO 290 C C INITIALIZE SOF C CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) C C INITIALIZE CASE CONTROL PARAMETERS C DO 2 I = 1,12 2 INFILE(I) = 100 + I DO 4 I = 1,6 4 OTFILE(I) = 200 + I DO 6 I = 1, 10 6 ISCR(I) = 300 + I ISCR11 = 311 DO 10 I = 1, 2 OLDNAM(I) = IBLANK 10 NEWNAM(I) = IBLANK RANGE(1) = 0.0 RANGE(2) = 1.0E+35 FREBDY = .FALSE. NMAX = 2147483647 USRMOD = -1 IO = 0 NRANGE = 0 BOUNDS = .FALSE. MODES = .FALSE. RSAVE = .FALSE. PONLY = .FALSE. C C ** PROCESS CASE CONTROL C IFILE = CASECC CALL OPEN (*260,CASECC,Z(GBUF2),0) IF (STEP) 20,40,20 20 DO 30 I = 1, STEP 30 CALL FWDREC (*280,CASECC) C C READ CASECC C 40 CALL READ (*270,*280,CASECC,Z(KORBGN),2,0,NWDSRD) NWDSCC = Z(KORBGN+1) DO 200 I = 1,NWDSCC,3 CALL READ (*270,*280,CASECC,Z(KORBGN),3,0,NWDSRD) C C TEST CASE CONTROL MNEMONICS C DO 50 J = 1,10 IF (Z(KORBGN) .EQ. NMONIC(J)) GO TO 60 50 CONTINUE GO TO 200 C C SELECT DATA TO EXTRACT C 60 GO TO (70,90,110,120,140,150,160,170,180,190), J C C EXTRACT NAME OF SUBSTRUCTURE BEING REDUCED C 70 DO 80 K = 1,2 80 OLDNAM(K) = Z(KORBGN+K) GO TO 200 C C EXTRACT NAME OF REDUCED SUBSTRUCTURE C 90 DO 100 K = 1,2 100 NEWNAM(K) = Z(KORBGN+K) GO TO 200 C C EXTRACT FREEBODY MODES FLAG C 110 FREBDY = .TRUE. GO TO 200 C C EXTRACT FREQUENCY RANGE C 120 IF (NRANGE .EQ. 1) GO TO 130 NRANGE = 1 RANGE(1) = RZ(KORBGN+2) GO TO 200 130 RANGE(2) = RZ(KORBGN+2) GO TO 200 C C EXTRACT MAXIMUM NUMBER OF FREQUENCIES C 140 IF (Z(KORBGN+2) .EQ. 0) GO TO 200 NMAX = Z(KORBGN+2) GO TO 200 C C EXTRACT USERMODE FLAG C 150 USRMOD = Z(KORBGN+2) GO TO 200 C C EXTRACT OUTPUT FLAGS C 160 IO = ORF(IO,Z(KORBGN+2)) GO TO 200 C C EXTRACT OLDBOUND FLAG C 170 BOUNDS = .TRUE. GO TO 200 C C EXTRACT OLDMODES FLAG C 180 MODES = .TRUE. GO TO 200 C C EXTRACT REDUCTION SAVE FLAG C 190 RSAVE = .TRUE. C 200 CONTINUE CALL CLOSE (CASECC,1) C C TEST FOR RUN = GO C MRD2G = 1 IF (DRY .EQ. 0) GO TO 230 C C CHECK FOR USERMODE = TYPE 2 C IF (USRMOD .EQ. 2) GO TO 210 C C CHECK FOR STIFFNESS PROCESSING C CALL RDTRL (ITRLR) IF (ITRLR(1) .GT. 0) GO TO 208 C C CHECK FOR LOADS ONLY C CALL SFETCH (NEWNAM,NHLODS,3,ITEST) IF (ITEST .EQ. 3) GO TO 204 CALL SFETCH (NEWNAM,NHLOAP,3,ITEST) IF (ITEST .EQ. 3) GO TO 204 MRD2G = 4 GO TO 230 204 MRD2G = 3 PONLY = .TRUE. GO TO 230 C C PROCESS STIFFNESS MATRIX C 208 MRD2G = 2 CALL MRED2A C C PROCESS OLDBOUND FLAG C CALL MRED2B C C PROCESS OLDMODES FLAG C CALL MRED2C (1) GO TO 220 C C PROCESS USERMODES FLAG C 210 CALL MRED2D CALL MRED2C (3) GO TO 240 C C CALCULATE MODAL TRANSFORMATION MATRIX C 220 CALL MRED2E CALL MRED2C (2) C C CALCULATE FREE BODY EFFECTS C CALL MRED2F C C CALCULATE STRUCTURAL MATRICES C C MRD2G .EQ. 1, M,B,K4,P/PA PROCESSING (RUN = GO) C MRD2G .EQ. 2, K,M,B,K4,P/PA PROCESSING C MRD2G .EQ. 3, P/PA PROCESSING (ONLY) C MRD2G .EQ. 4, M,B,K4,P/PA PROCESSING (RUN = STEP) C 230 CALL MRED2G (MRD2G) IF (MRD2G .EQ. 1) GO TO 250 C C PROCESS NEW TABLE ITEMS C 240 CALL MRED2H C C CLOSE ANY OPEN FILES C 250 CALL SOFCLS IF (DRY .EQ. -2) WRITE (IPRNTR,900) RETURN C C PROCESS SYSTEM FATAL ERRORS C 260 IMSG = -1 GO TO 300 270 IMSG = -2 GO TO 300 280 IMSG = -3 GO TO 300 290 IMSG = -8 IFILE = 0 300 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN C 900 FORMAT (//,' MODULE MREDUCE TERMINATING DUE TO ABOVE ERRORS.') C END ================================================ FILE: mis/mred2a.f ================================================ SUBROUTINE MRED2A C C THIS SUBROUTINE PARTITIONS THE STIFFNESS MATRIX INTO BOUNDARY AND C INTERIOR POINTS AND THEN SAVES THE PARTITIONING VECTOR ON THE SOF C AS THE UPRT ITEM FOR THE MRED2 MODULE. C C INPUT DATA C GINO - USETMR - USET TABLE FOR REDUCED SUBSTRUCTURE C KAA - SUBSTRUCTURE STIFFNESS MATRIX C C OUTPUT DATA C GINO - KBB - KBB PARTITION MATRIX C KIB - KIB PARTITION MATRIX C KII - KII PARTITION MATRIX C SOF - UPRT - PARTITION VECTOR FOR ORIGINAL SUBSTRUCTURE C C PARAMETERS C INPUT - GBUF - GINO BUFFER C INFILE - INPUT FILE NUMBERS C ISCR - SCRATCH FILE NUMBERS C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C OTHERS - USETMR - USETMR INPUT FILE NUMBER C KAA - KAA INPUT FILE NUMBER C KBB - KBB OUTPUT FILE NUMBER C KIB - KIB OUTPUT FILE NUMBER C KII - KII OUTPUT FILE NUMBER C UPRT - KAA PARTITION VECTOR FILE NUMBER C LOGICAL BOUNDS INTEGER DRY,GBUF1,OLDNAM,USRMOD,Z,UN,UB,UI,FUSET, 1 USETMR,UPRT,EQST,MODNAM(2),ITRLR(7) COMMON /BLANK / IDUM1,DRY,IDUM6,GBUF1,IDUM2(5),INFILE(12), 1 IDUM3(6),ISCR(10),KORLEN,KORBGN,OLDNAM(2), 2 IDUM7(6),USRMOD,IDUM9,BOUNDS COMMON /ZZZZZZ/ Z(1) COMMON /BITPOS/ IDUM4(9),UN,IDUM5(10),UB,UI COMMON /PATX / LCORE,NSUB(3),FUSET COMMON /SYSTEM/ IDUM8,IPRNTR EQUIVALENCE (EQST,INFILE(4)),(USETMR,INFILE(5)), 1 (KAA,INFILE(6)),(KBB,ISCR(1)),(KIB,ISCR(2)), 2 (KII,ISCR(3)),(UPRT,ISCR(5)) DATA MODNAM/ 4HMRED,4H2A / DATA ITEM / 4HUPRT/ C C LOCATE PARTITIONING VECTOR C IF (DRY .EQ. -2) GO TO 100 IF (BOUNDS) GO TO 10 LCORE = KORLEN FUSET = USETMR CALL CALCV (UPRT,UN,UI,UB,Z(KORBGN)) GO TO 20 10 CALL MTRXI (UPRT,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 30 ITRLR(1) = EQST CALL RDTRL (ITRLR) NSUB(1) = ITRLR(6) NSUB(2) = ITRLR(7) C C PARTITION STIFFNESS MATRIX C C ** ** C * . * C ** ** * KBB . KBI * C * * * . * C * KAA * = *...........* C * * * . * C ** ** * KIB . KII * C * . * C ** ** C 20 CONTINUE CALL GMPRTN (KAA,KII,0,KIB,KBB,UPRT,UPRT,NSUB(1),NSUB(2), 1 Z(KORBGN),KORLEN) C C SAVE PARTITIONING VECTOR C IF (BOUNDS) GO TO 25 CALL MTRXO (UPRT,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 30 25 CONTINUE GO TO 100 C C PROCESS MODULE FATAL ERRORS C 30 GO TO (40,45,50,55,60,80), ITEST 40 IMSG = -9 GO TO 90 45 IMSG = -11 GO TO 90 50 IMSG = -1 GO TO 70 55 IMSG = -2 GO TO 70 60 IMSG = -3 70 CALL SMSG (IMSG,ITEM,OLDNAM) GO TO 100 80 IMSG = -10 90 DRY = -2 CALL SMSG1 (IMSG,ITEM,OLDNAM,MODNAM) 100 RETURN C END ================================================ FILE: mis/mred2b.f ================================================ SUBROUTINE MRED2B C C THIS SUBROUTINE PERFORMS THE GUYAN REDUCTION ON THE STRUCTURE C POINTS FOR THE MRED2 MODULE. C C INPUT DATA C GINO - KII - KII PARTITION MATRIX C SOF - GIMS - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS OF C ORIGINAL SUBSTRUCTURE C C OUTPUT DATA C GINO - LII - LII PARTITION MATRIX C SOF - LMTX - LII PARTITION MATRIX C GIMS - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS OF C ORIGINAL SUBSTRUCTURE C C PARAMETERS C INPUT - GBUF - GINO BUFFER C ISCR - SCRATCH FILE NUMBER ARRAY C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEGING REDUCED C BOUNDS - OLDBOUNDS OPTION FLAG C RSAVE - DECOMPOSITION SAVE FLAG C OTHERS - KIB - KIB PARTITION MATRIX FILE NUMBER C KII - KII PARTITION MATRIX FILE NUMBER C LII - LII PARTITION MATRIX FILE NUMBER (ISCR11) C LOGICAL BOUNDS,RSAVE INTEGER DRY,SBUF1,SBUF2,SBUF3,OLDNAM,Z,POWER,CHLSKY,U, 1 GIBT,PREC,SIGN,GIB,DBLKOR,DMR DOUBLE PRECISION DETR,DETI,MINDIA,DZ DIMENSION ITRLR(7),MODNAM(2),ITMLST(2),DZ(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /BLANK / IDUM1,DRY,IDUM4(4),SBUF1,SBUF2,SBUF3,INFILE(12), 1 IDUM6(6),ISCR(10),KORLEN,KORBGN,OLDNAM(2), 2 IDUM2(8),BOUNDS,IDUM3,RSAVE,IDUM7(4),LSTZWD,ISCR11 COMMON /ZZZZZZ/ Z(1) COMMON /SFACT / KIIT(7),LIIT(7),ISCRQ(7),ISCRA,ISCRB,NZSF, 1 DETR,DETI,POWER,ISCRC,MINDIA,CHLSKY COMMON /FBSX / LIIFBS(7),U(7),KIBT(7),GIBT(7),NZFBS,PREC,SIGN COMMON /SYSTEM/ IDUM5,IPRNTR EQUIVALENCE (DMR,INFILE(11)),(GIB,ISCR(6)),(DZ(1),Z(1)), 1 (KIB,ISCR(2)),(KII,ISCR(3)),(LII,ISCR11) DATA MODNAM/ 4HMRED,4H2B / DATA LOWER / 4 / DATA ITMLST/ 4HLMTX,4HGIMS/ C C TEST FOR GUYAN REDUCTION C IF (DRY .EQ. -2) GO TO 140 IF (.NOT.BOUNDS) GO TO 10 ITRLR(1) = DMR CALL RDTRL (ITRLR) IF (ITRLR(1) .LT. 0) GO TO 35 ITEM = ITMLST(1) CALL SOFTRL (OLDNAM,ITEM,ITRLR) IF (ITRLR(1) .EQ. 1) GO TO 35 C C DECOMPOSE INTERIOR STIFFNESS MATRIX C C T C ** ** ** ** ** ** C * * * * * * C * KII * = * LII * * LII * C * * * * * * C ** ** ** ** ** ** C 10 CALL SOFCLS KIIT(1) = KII CALL RDTRL (KIIT) CALL MAKMCB (LIIT,LII,KIIT(3),LOWER,KIIT(5)) ISCRQ(1) = ISCR(6) ISCRA = ISCR(7) ISCRB = ISCR(8) ISCRC = ISCR(9) POWER = 1 CHLSKY = 0 DBLKOR = 1 + KORBGN/2 NZSF = LSTZWD - 2*DBLKOR - 1 CALL SDCOMP (*40,DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (LIIT) C C SAVE LII AS LMTX ON SOF C IF (.NOT. RSAVE) GO TO 20 CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) IFILE = LII ITEM = ITMLST(1) CALL MTRXO (LII,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 70 IF (BOUNDS) GO TO 35 CALL SOFCLS C C SOLVE STRUCTURE REDUCTION TRANSFORMATION MATRIX C C T C ** ** ** ** ** ** ** ** C * * * * * * * * C * LII * * LII * * GIB * = -* KIB * C * * * * * * * * C ** ** ** ** ** ** ** ** C 20 IF (BOUNDS) GO TO 32 KIBT(1) = KIB CALL RDTRL (KIBT) DO 30 I = 1,7 30 LIIFBS(I) = LIIT(I) CALL MAKMCB (GIBT,GIB,KIBT(3),KIBT(4),KIBT(5)) NZFBS = LSTZWD - 2*DBLKOR PREC = KIBT(5) SIGN = -1 CALL FBS (DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (GIBT) C C SAVE GIB AS GIMS ON SOF C CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) IFILE = GIB ITEM = ITMLST(2) CALL MTRXO (GIB,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 70 GO TO 35 32 CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) 35 CONTINUE GO TO 140 C C PROCESS SYSTEM FATAL ERRORS C 40 WRITE (IPRNTR,45) SWM,OLDNAM 45 FORMAT (A27,' 6311, SDCOMP DECOMPOSITION FAILED ON KII MATRIX ', 1 'FOR SUBSTRUCTURE ',2A4) IMSG = -37 IFILE = 0 CALL MESAGE (IMSG,IFILE,MODNAM) GO TO 140 C C PROCESS MODULE FATAL ERRORS C 70 GO TO (80,80,80,90,100,120), ITEST 80 IMSG = -9 GO TO 130 90 IMSG = -2 GO TO 110 100 IMSG = -3 110 CALL SMSG (IMSG,ITEM,OLDNAM) GO TO 140 120 IMSG = -10 130 DRY = -2 CALL SMSG1 (IMSG,ITEM,OLDNAM,MODSAM) 140 RETURN C END ================================================ FILE: mis/mred2c.f ================================================ SUBROUTINE MRED2C (KODE) C C THIS SUBROUTINE PROCESSES THE OLDMODES OPTION FLAG FOR THE MRED2 C MODULE. C C INPUT DATA C GINO - LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED C PHISS - EIGENVCTOR MATRIX FOR SUBSTRUCTURE BEING REDUCED C SOF - LAMS - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE C PHIS - EIGENVCTOR TABLE FOR ORIGINAL SUBSTRUCTURE C C OUTPUT DATA C GINO - LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED C PHISS - EIGENVCTOR MATRIX FOR SUBSTRUCTURE BEING REDUCED C SOF - LAMS - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE C PHIS - EIGENVCTOR MATRIX FOR ORIGINAL SUBSTRUCTURE C C PARAMETERS C INPUT - GBUF - GINO BUFFER C INFILE - INPUT FILE NUMBERS C ISCR - SCRATCH FILE NUMBERS C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C MODES - OLDMODES OPTION FLAG C LAMAAP - BEGINNING ADDRESS OF LAMS RECORD TO BE APPENDED C NFOUND - NUMBER OF MODAL POINTS USED C MODLEN - LENGTH OF MODE USE ARRAY C OTHERS - LAMAMR - LAMAMR INPUT FILE NUMBER C PHIS - PHIS INPUT FILE NUMBER C LAMS - LAMS INPUT FILE NUMBER C PHISS - PHISS INPUT FILE NUMBER C LOGICAL MODES INTEGER DRY,GBUF1,OLDNAM,Z,PHIS,PHISS,RGDFMT DIMENSION MODNAM(2),ITMLST(2) COMMON /BLANK / IDUM1,DRY,IDUM7,GBUF1,IDUM2(5),INFILE(12), 1 IDUM3(6),ISCR(10),KORLEN,KORBGN,OLDNAM(2), 2 IDUM5(9),MODES,IDUM6,LAMAAP,NFOUND,MODLEN COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ IDUM4,IPRNTR EQUIVALENCE (LAMAMR,INFILE(2)),(PHIS,INFILE(3)), 1 (LAMS,ISCR(5)),(PHISS,ISCR(6)) DATA MODNAM/ 4HMRED,4H2C / DATA ITMLST/ 4HPHIS,4HLAMS/ DATA RGDFMT/ 3 / C C TEST OPERATION FLAG C IF (DRY .EQ. -2) GO TO 200 IF (KODE .GT. 1) GO TO 20 C C TEST OLDMODES OPTION FLAG C IF (MODES) GO TO 10 C C STORE GINO PHIS AS PHIS ON SOF C IFILE = PHIS CALL MTRXO (PHIS,OLDNAM,ITMLST(1),0,ITEST) ITEM = ITMLST(1) IF (ITEST .NE. 3) GO TO 120 GO TO 200 C C READ SOF PHIS ONTO GINO PHIS SCRATCH FILE C 10 CALL MTRXI (PHISS,OLDNAM,ITMLST(1),0,ITEST) ITEM = ITMLST(1) IF (ITEST .NE. 1) GO TO 120 C C READ SOF LAMS ONTO GINO LAMAMR SCRATCH FILE C CALL SFETCH (OLDNAM,ITMLST(2),1,ITEST) ITEM = ITMLST(2) IF (ITEST .GT. 1) GO TO 120 CALL GOPEN (LAMS,Z(GBUF1),1) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) CALL WRITE (LAMS,Z(KORBGN),NWDSRD,1) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) CALL WRITE (LAMS,Z(KORBGN),NWDSRD,1) CALL CLOSE (LAMS,1) C C SWITCH FILE NUMBERS C PHIS = PHISS LAMAMR = LAMS GO TO 200 C C STORE LAMAMR (TABLE) AS LAMS ON SOF C 20 IF (MODES) GO TO 70 ITEM = ITMLST(2) CALL DELETE (OLDNAM,ITEM,ITEST) IF (ITEST.EQ.2 .OR. ITEST.GT.3) GO TO 120 IFILE = LAMAMR CALL GOPEN (LAMAMR,Z(GBUF1),0) CALL FWDREC (*100,LAMAMR) ITEST = 3 CALL SFETCH (OLDNAM,ITMLST(2),2,ITEST) IF (ITEST .NE. 3) GO TO 120 DO 30 I = 1,2 30 Z(KORBGN+I-1) = OLDNAM(I) Z(KORBGN+2 ) = RGDFMT Z(KORBGN+3 ) = MODLEN CALL SUWRT (Z(KORBGN),4,2) LAMWDS = MODLEN - 1 IF (LAMWDS .LT. 1) GO TO 55 DO 50 I = 1,LAMWDS CALL READ (*90,*100,LAMAMR,Z(KORBGN),7,0,NWDS) 50 CALL SUWRT (Z(KORBGN),7,1) 55 CALL READ (*90,*100,LAMAMR,Z(KORBGN),7,0,NWDS) CALL CLOSE (LAMAMR,1) CALL SUWRT (Z(KORBGN),7,2) IF (KODE .EQ. 3) GO TO 60 CALL SUWRT (Z(LAMAAP),MODLEN,2) CALL SUWRT (Z(LAMAAP),0,3) GO TO 70 60 DO 65 I = 1,MODLEN 65 Z(KORBGN+I-1) = 1 CALL SUWRT (Z(KORBGN),MODLEN,2) CALL SUWRT (Z(KORBGN),0,3) 70 CONTINUE GO TO 200 C C PROCESS SYSTEM FATAL ERRORS C 90 IMSG = -2 GO TO 110 100 IMSG = -3 110 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) GO TO 200 C C PROCESS MODULE FATAL ERRORS C 120 GO TO (130,135,140,150,160,180), ITEST 130 IMSG = -9 GO TO 190 135 ISMG = -11 GO TO 190 140 IMSG = -1 GO TO 170 150 IMSG = -2 GO TO 170 160 IMSG = -3 170 CALL SMSG (IMSG,ITEM,OLDNAM) GO TO 200 180 IMSG = -10 190 DRY = -2 CALL SMSG1 (IMSG,ITEM,OLDNAM,MODNAM) 200 RETURN END ================================================ FILE: mis/mred2d.f ================================================ SUBROUTINE MRED2D C C THIS SUBROUTINE CALCULATES THE MODAL MASS AND STIFFNESS MATRICES C IF USERMODE = TYPE2 FOR THE MRED2 MODULE. C C INPUT DATA C GINO - USETMR - USET TABLE FOR REDUCED SUBSTRUCTURE C LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED C PHISS - EIGENVECTORS FOR SUBSTRUCTURE BEING REDUCED C QSM - MODEL REACTION MATRIX C PAA - SUBSTRUCTURE LOAD MATRIX C C OUTPUT DATA C GINO - KHH - REDUCED STIFFNESS MATRIX C MHH - REDUCED MASS MATRIX C PHH - REDUCED LOAD MATRIX C SOF - HORG - H TRANSFORMATION MATRIX C KMTX - STIFFNESS MATRIX FOR REDUCED SUBSTRUCTURE C MMTX - MASS MATRIX FOR REDUCED SUBSTRUCTURE C PVEC - LOAD MATRIX FOR REDUCED SUBSTRUCTURE C PAPP - APPENDED LOAD MATRIX FOR REDUCED SUBSTRUCTURE C POVE - INTERNAL POINT LOADS FOR ORIGINAL SUBSTRUCTURE C POAP - INTERNAL POINTS APPENDED LOADS FOR ORIGINAL C SUBSTRUCTURE C C PARAMETERS C INPUT - DRY - MODULE OPERATION FALG C GBUF - GINO BUFFERS C INFILE - INPUT FILE NUMBERS C OTFILE - OUTPUT FILE NUMBERS C ISCR - SCRATCH FILE NUMBERS C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C NEWNAM - NAME OF REDUCED SUBSTRUCTURE C USRMOD - USERMODE FLAG C INTEGER DRY,POPT,GBUF1,SBUF1,SBUF2,SBUF3,OTFILE,OLDNAM, 1 USRMOD,Z,UL,UA,UF,US,UN,UB,TYPIN,TYPOUT,TYPEA, 2 TYPEB,PAA,PHH,RPRTN,CPRTN,BBZERO,ZERO,USETMR,SNB, 3 PAPP DIMENSION ITRLR(7),ITRLR1(7),ITRLR2(7),MODNAM(2),ITMLST(6), 1 BLOCK(11),ISUB(4),ITMNAM(2),RZ(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / IDUM1,DRY,POPT,GBUF1,IDUM3(2),SBUF1,SBUF2,SBUF3, 1 INFILE(12),OTFILE(6),ISCR(10),KORLEN,KORBGN, 2 OLDNAM(2),NEWNAM(2),IDUM4(4),USRMOD,IDUM2(5), 3 NMODES COMMON /ZZZZZZ/ Z(1) COMMON /TWO / ITWO(32) COMMON /BITPOS/ IDUM5(5),UL,UA,UF,US,UN,IDUM6(10),UB COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR COMMON /SYSTEM/ IDUM7,IPRNTR EQUIVALENCE (USETMR,INFILE(5)),(KBB,INFILE(6)), 1 (MBB,INFILE(7)),(PAA,INFILE(10)), 2 (KHH,OTFILE(1)),(MHH,OTFILE(2)),(PHH,OTFILE(5)), 3 (RPRTN,ISCR(8)),(CPRTN,ISCR(8)),(K,ISCR(3)), 4 (BBZERO,ISCR(9)),(M,ISCR(10)),(ZERO,ISCR(3)), 5 (RZ(1),Z(1)),(TYPEA,BLOCK(1)),(TYPEB,BLOCK(7)) DATA MODNAM/ 4HMRED,4H2D / DATA PAPP / 4HPAPP/ DATA MRED2 / 27 / DATA ITMLST/ 4HKMTX,4HMMTX,4HPVEC,4HPAPP,4HPOVE,4HPOAP/ C C CHECK USERMODE OPTION FLAG C IF (DRY .EQ. -2) GO TO 400 C C COUNT NUMBER OF FREE, FIXED POINTS WITHIN BOUNDARY SET C ITRLR(1) = USETMR CALL RDTRL(ITRLR) IFILE = USETMR IF (ITRLR(1) .LT. 0) GO TO 270 LUSET = ITRLR(3) IF ((KORBGN + LUSET) .GE. KORLEN) GO TO 280 CALL GOPEN (USETMR,Z(GBUF1),0) CALL READ (*260,*270,USETMR,Z(KORBGN),LUSET,0,NWDSRD) CALL CLOSE (USETMR,1) NUF = 0 NUS = 0 SNB = ITWO(US) + ITWO(UN) + ITWO(UB) LAFNB = ITWO(UL) + ITWO(UA) + ITWO(UF) + ITWO(UN) + ITWO(UB) DO 10 I = 1,LUSET IF (Z(KORBGN+I-1) .EQ. LAFNB) NUF = NUF + 1 IF (Z(KORBGN+I-1) .EQ. SNB) NUS = NUS + 1 10 CONTINUE C C IF FIXED SET, COMPUTE GS MATRIX C IF (NUS .EQ. 0) GO TO 20 CALL MRED2I (1,0,0) C C IF FREE SET, PARTITION PHISS C 20 IF (NUF .EQ. 0) GO TO 50 CALL MRED2J (NUF,N2) C C FORM HK MATRIX C CALL MRED2L (NUF,N2,NUS,UFBITS) 50 CALL MRED2M (NUF,N2,NUS) C C COMPUTE K MATRIX C CALL MRED2N C C COMPUTE HM MATRIX C CALL MRED2O (NUS) C C OUTPUT HORG C CALL MRED2P (NUS,NUF,N2) C C PROCESS STIFFNESS, MASS MATRICES C II = 1, PROCESS STIFFNESS MATRIX C II = 2, PROCESS MASS MATRIX C IF (DRY .EQ. -2) GO TO 240 CALL SETLVL (NEWNAM,1,OLDNAM,ITEST,MRED2) IF (ITEST .EQ. 8) GO TO 380 DO 190 II = 1,2 ITRLR1(1) = KBB KM = K KMHH = KHH IF (II .EQ. 1) GO TO 60 ITRLR1(1) = MBB KM = M KMHH = MHH 60 KMBB = ITRLR1(1) CALL RDTRL (ITRLR1) IF (ITRLR1(1) .LT. 0) GO TO 160 CALL SOFCLS C C FORM MERGE VECTOR C JROW = ITRLR1(3) KOLUMN = ITRLR1(2) ITRLR2(1) = KM CALL RDTRL (ITRLR2) NROW = ITRLR2(3) KOLMNS = ITRLR2(2) DO 130 I = 1,NROW RZ(KORBGN+I-1) = 0.0 IF (I .GT. JROW) RZ(KORBGN+I-1) = 1.0 130 CONTINUE IFORM = 7 TYPIN = 1 TYPOUT = 1 IROW = 1 INCR = 1 CALL MAKMCB (ITRLR1,RPRTN,NROW,IFORM,TYPIN) CALL GOPEN (RPRTN,Z(GBUF1),1) CALL PACK (Z(KORBGN),RPRTN,ITRLR1) CALL CLOSE (RPRTN,1) CALL WRTTRL (ITRLR1) C C MERGE (K,M)BB MATRIX WITH ZERO MATRICES C ISUB(1) = KOLUMN ISUB(2) = KOLMNS - KOLUMN ISUB(3) = JROW ISUB(4) = NROW - JROW ITYPE = 1 CALL GMMERG (BBZERO,KMBB,0,0,0,RPRTN,RPRTN,ISUB,ITYPE,Z(KORBGN), 1 KORLEN) C C FORM STIFFNESS, MASS MATRICES C C ** ** C * . * C ** ** ** ** * (K,M)BB . 0 * C * * * * * . * C * (K,M)HH * = * (K,M) * + *.............* C * * * * * . * C ** ** ** ** * 0 . 0 * C * . * C ** ** DO 150 I = 1,11 150 BLOCK(I) = 0.0 BLOCK(2) = 1.0 BLOCK(8) = 1.0 TYPEA = ITRLR2(5) TYPEB = ITRLR1(5) IOP = 1 CALL SSG2C (KM,BBZERO,KMHH,IOP,BLOCK) CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) GO TO 170 C C NO BB MATRIX PARTITION C 160 KMHH = KM C C STORE MATRIX ON SOF C II = 1, STORE KHH AS KMTX C II = 2, STORE MHH AS MMTX C 170 ITEM = ITMLST(II) ITMNAM(1) = NEWNAM(1) ITMNAM(2) = NEWNAM(2) CALL MTRXO (KMHH,NEWNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 300 190 CONTINUE C C PROCESS LOAD DATA C ITRLR1(1) = PAA CALL RDTRL (ITRLR1) IF (ITRLR1(1) .LT. 0) GO TO 240 C C EXPAND PAA FOR MODAL DOF C C ** ** C * * C ** ** * PAA * C * * * * C * PHH * = *.....* C * * * * C ** ** * 0 * C * * C ** ** C NROW = ITRLR1(3) + N2 IF (N2 .EQ. 0) NROW = NROW + (NMODES - NUF) IFORM = 7 TYPIN = 1 TYPOUT = 1 IROW = 1 INCR = 1 CALL MAKMCB (ITRLR2,CPRTN,NROW,IFORM,TYPIN) DO 230 I = 1,NROW RZ(KORBGN+I-1) = 0.0 IF (I .GT. ITRLR1(3)) RZ(KORBGN+I-1) = 1.0 230 CONTINUE CALL GOPEN (CPRTN,Z(GBUF1),1) CALL PACK (Z(KORBGN),CPRTN,ITRLR2) CALL CLOSE (CPRTN,1) CALL WRTTRL (ITRLR2) C C MERGE PAA WITH ZERO MATRIX C ISUB(3) = ITRLR1(3) ISUB(4) = N2 IF (N2 .EQ. 0) ISUB(4) = NMODES - NUF ITYPE = 1 CALL GMMERG (PHH,PAA,0,0,0,0,CPRTN,ISUB,ITYPE,Z(KORBGN),KORLEN) C C SAVE PHH AS PVEC OR PAPP ON SOF C ITEM = ITMLST(3) IF (POPT .EQ. PAPP) ITEM = ITMLST(4) ITMNAM(1) = NEWNAM(1) ITMNAM(2) = NEWNAM(2) CALL MTRXO (PHH,NEWNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 300 C C STORE NULL MATRIX AS POVE OR POAP ON SOF C IFORM = 2 KOLMNS = ITRLR1(2) NROW = N2 IF (N2 .EQ. 0) NROW = NMODES - NUF CALL MAKMCB (ITRLR2,ZERO,NROW,IFORM,TYPIN) CALL GOPEN (ZERO,Z(GBUF1),1) DO 234 I = 1,KOLMNS DO 232 J = 1,NROW 232 RZ(KORBGN+J-1) = 0.0 234 CALL PACK (Z(KORBGN),ZERO,ITRLR2) CALL CLOSE (ZERO,1) CALL WRTTRL (ITRLR2) ITEM = ITMLST(5) IF (POPT .EQ. PAPP) ITEM = ITMLST(6) ITMNAM(1) = OLDNAM(1) ITMNAM(2) = OLDNAM(2) CALL MTRXO (ZERO1,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 300 240 CONTINUE GO TO 400 C C PROCESS SYSTEM FATAL ERRORS C 260 IMSG = -2 GO TO 290 270 IMSG = -3 GO TO 290 280 IMSG = -8 IFILE = 0 290 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) GO TO 400 C C PROCESS MODULE FATAL ERRORS C 300 GO TO (310,320,330,340,350,370), ITEST 310 IMSG = -9 GO TO 390 320 IMSG = -11 GO TO 390 330 IMSG = -1 GO TO 360 340 IMSG = -2 GO TO 360 350 IMSG = -3 360 CALL SMSG (IMSG,ITEM,ITMNAM) GO TO 400 370 IMSG = -10 GO TO 390 380 WRITE (IPRNTR,385) UFM 385 FORMAT (A23,' 6518, ONE OF THE COMPONENT SUBSTRUCTURES HAS BEEN ', 1 'USED IN A PREVIOUS COMBINE OR REDUCE.') DRY = -2 GO TO 400 390 DRY = -2 CALL SMSG1 (IMSG,ITEM,ITMNAM,MODNAM) 400 RETURN END ================================================ FILE: mis/mred2e.f ================================================ SUBROUTINE MRED2E C C THIS SUBROUTINE CALCULATES THE MODAL TRANSFORMATION MATRIX FOR THE C MRED2 MODULE. C C INPUT DATA C GINO - LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED C PHISS - EIGENVECTOR MATRIX FOR SUBSTRUCTURE BEING REDUCE C SOF - GIMS - G TRANSFORMATION MATRIX FOR ORIGINAL SUBSTRUCTUR C C OUTPUT DATA C GINO - HIM - HIM MATRIX PARTITION C C PARAMETERS C INPUT - GBUF - GINO BUFFERS C INFILE - INPUT FILE NUMBERS C OTFILE - OUTPUT FILE NUMBERS C ISCR - SCRATCH FILE NUMBERS C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C NMAX - MAXIMUM NUMBER OF FREQUENCIES TO BE USED C OUTPUT - MODUSE - BEGINNING ADDRESS OF MODE USE DESCRIPTION ARRAY C MODLEN - LENGTH OF MODE USE ARRAY C NFOUND - NUMBER OF MODAL POINTS FOUND C OTHERS - HIMPRT - HIM PARTITION VECTOR C PPRTN - PHISS MATRIX PARTITION VECTOR C PHIAM - PHIAM MATRIX PARTITION C PHIBM - PHIBM MATRIX PARTITION C PHIIM - PHIIM MATRIX PARTITION C IPARTN - BEGINNING ADDRESS OF PHISS PARTITION VECTOR C LAMAMR - LAMAMR INPUT FILE NUMBER C PHISS - PHISS INPUT FILE NUMBER C PPRTN - PARTITION VECTOR FILE NUMBER C HIMPRT - HIM PARTITION VECTOR FILE NUMBER C GIB - GIB INPUT FILE NUMBER C PHIAM - PHIAM PARTITION MATRIX FILE NUMBER C PHIBM - PHIBM PARTITION MATRIX FILE NUMBER C PHIIM - PHIIM PARTITION MATRIX FILE NUMBER C HIM - HIM INPUT FILE NUMBER C HIMSCR - HIM SCRATCH INPUT FILE NUMBER C LOGICAL FREBDY INTEGER DRY,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2,SBUF3,OTFILE, 1 OLDNAM,Z,TYPIN,TYPEP,FUSET,UN,UB,UI INTEGER T,SIGNAB,SIGNC,PREC,SCR,RULE,TYPEU,PHISS INTEGER PPRTN,GIB,PHIAM,PHIBM,PHIIM,HIM,HIMSCR,HIMPRT, 1 USETMR,HIMTYP,FBMODS,DBLKOR,SGLKOR,DICORE DOUBLE PRECISION DZ,DHIMSM,DHIMAG DIMENSION MODNAM(2),RZ(1),ITRLR(7),DZ(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / IDUM1,DRY,IDUM6,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2, 1 SBUF3,INFILE(12),OTFILE(6),ISCR(10),KORLEN, 2 KORBGN,OLDNAM(2),IDUM4(2),FREBDY,RANGE(2),NMAX, 3 IDUM5(5),MODUSE,NFOUND,MODLEN,IDUM2,LSTZWD COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / TYPIN,TYPEP,IROWP,NROWP,INCRP COMMON /PATX / LCORE,NSUB(3),FUSET COMMON /MPYADX/ ITRLRA(7),ITRLRB(7),ITRLRC(7),ITRLRD(7),NZ,T, 1 SIGNAB,SIGNC,PREC,SCR COMMON /BITPOS/ IDUM3(9),UN,IDUM7(10),UB,UI COMMON /PARMEG/ IA(7),IA11(7),IA21(7),IA12(7),IA22(7),LCR,RULE COMMON /UNPAKX/ TYPEU,IROWU,NROWU,INCRU COMMON /SYSTEM/ IDUM8,IPRNTR EQUIVALENCE (LAMAMR,INFILE(2)),(PHISS,INFILE(3)), 1 (USETMR,INFILE(5)) EQUIVALENCE (GIB,ISCR(8)),(PPRTN,ISCR(5)), 1 (HIM,ISCR(8)), 2 (HIMPRT,ISCR(9)),(PHIBM,ISCR(9)) EQUIVALENCE (RZ(1),Z(1)),(DZ(1),Z(1)) DATA MODNAM/ 4HMRED,4H2E / DATA EPSLON, ISCR4,FBMODS /1.0E-03,304,6/ DATA ITEM / 4HGIMS / C C READ LAMAMR FILE C IF (DRY .EQ. -2) GO TO 300 KORE = KORBGN IFILE = LAMAMR CALL GOPEN (LAMAMR,Z(GBUF1),0) CALL FWDREC (*170,LAMAMR) ITER = 0 2 CALL READ (*160,*4,LAMAMR,Z(KORBGN),7,0,NWDS) C C REJECT MODES WITH NO ASSOCIATED VECTORS C IF (RZ(KORBGN+5) .LE. 0.0) GO TO 2 KORBGN = KORBGN + 7 IF (KORBGN .GE. KORLEN) GO TO 180 ITER = ITER + 1 GO TO 2 4 CALL CLOSE (LAMAMR,1) C C ZERO OUT PARTITIONING VECTOR AND SET UP MODE USE DESCRIPTION C RECORD C MODEXT = KORBGN ITRLR(1)= PHISS CALL RDTRL (ITRLR) ITPHIS = ITRLR(2) NROWS = ITRLR(3) IF ((3*ITPHIS)+MODEXT .GE. KORLEN) GO TO 180 LAMLEN = 7*ITPHIS NNMAX = MIN0(NMAX,ITPHIS) MODUSE = MODEXT + ITPHIS IPARTN = MODEXT + 2*ITPHIS MODLEN = ITPHIS DO 10 I = 1,ITPHIS Z(MODEXT+I-1) = 0 Z(MODUSE+I-1) = 3 10 RZ(IPARTN+I-1) = 0.0 C C SELECT DESIRED MODES C KORBGN = MODEXT + 3*ITPHIS IF (KORBGN .GE. KORLEN) GO TO 180 NFOUND = 0 DO 20 I = 1,ITPHIS J = 4 + 7*(I-1) IF (RZ(KORE+J).LE.RANGE(1) .OR. RZ(KORE+J).GE.RANGE(2)) GO TO 20 C C REMOVE MODES WITH NEGATIVE EIGENVALUES C IF (RZ(KORE+J-2) .LT. 0.0) GO TO 20 Z(MODEXT+NFOUND) = I NFOUND = NFOUND + 1 Z(MODUSE +I-1) = 1 RZ(IPARTN+I-1) = 1.0 20 CONTINUE C C PACK OUT PARTITIONING VECTOR C TYPIN = 1 TYPEP = 1 IROWP = 1 NROWP = ITRLR(2) INCRP = 1 IFORM = 2 CALL MAKMCB (ITRLR,PPRTN,NROWP,IFORM,TYPIN) CALL GOPEN (PPRTN,Z(GBUF1),1) CALL PACK (RZ(IPARTN),PPRTN,ITRLR) CALL CLOSE (PPRTN,1) CALL WRTTRL (ITRLR) C C PARTITION PHISS MATRIX C C ** ** ** ** C * * * . * C * PHISS * = * 0 . PHIAM * C * * * . * C ** ** ** ** C NSUB(1) = ITPHIS - NFOUND NSUB(2) = NFOUND NSUB(3) = 0 LCORE = KORLEN - KORBGN ICORE = LCORE C C TEST FOR ALL MODES C IF (NSUB(1) .EQ. 0) GO TO 32 PHIAM = ISCR(8) CALL GMPRTN (PHISS,0,0,PHIAM,0,PPRTN,0,NSUB(1),NSUB(2),Z(KORBGN), 1 ICORE) C C PARTITION PHIAM MATRIX C C ** ** C * * C ** ** * PHIBM * C * * * * C * PHIAM * = *.......* C * * * * C ** ** * PHIIM * C * * C ** ** C GO TO 34 32 PHIAM = PHISS 34 CONTINUE C C CALCULATE THE VECTOR MAGNITUDE C IF (KORBGN+NROWS .GE. KORLEN) GO TO 180 CALL GOPEN (PHIAM,Z(GBUF1),0) TYPEU = 1 IROWU = 1 NROWU = NROWS INCRU = 1 DO 40 I = 1,NFOUND L = IPARTN + I - 1 RZ(L) = 0.0 CALL UNPACK (*40,PHIAM,RZ(KORBGN)) DO 38 J = 1,NROWS K = KORBGN + J - 1 RZ(L) = RZ(L) + RZ(K)**2 38 CONTINUE 40 CONTINUE CALL CLOSE (PHIAM,1) FUSET = USETMR CALL CALCV (PPRTN,UN,UI,UB,Z(KORBGN)) C C TEST FOR NULL B SET C ITRLR(1) = PPRTN CALL RDTRL (ITRLR) IF (ITRLR(6) .GT. 0) GO TO 44 PHIIM = PHIAM IA11(1) = PHIAM CALL RDTRL (IA11) DO 42 I = 1,7 42 IA21(I) = 0 GO TO 55 44 CONTINUE PHIIM = ISCR(7) CALL GMPRTN (PHIAM,PHIIM,PHIBM,0,0,0,PPRTN,NSUB(1),NSUB(2), 1 Z(KORBGN),ICORE) JHIM = 0 C C COMPUTE MODAL TRANSFORMATION MATRIX C C ** ** ** ** ** ** ** ** C * * * * * * * * C * HIM * = * PHIIM * - * GIB * * PHIBM * C * * * * * * * * C ** ** ** ** ** ** ** ** C CALL MTRXI (GIB,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 200 CALL SOFTRL (OLDNAM,ITEM,ITRLR) ITEST = ITRLR(1) IF (ITEST .NE. 1) GO TO 200 DO 50 I = 1, 7 ITRLRA(I) = ITRLR(I) ITRLRB(I) = IA21(I) 50 ITRLRC(I) = IA11(I) ITRLRA(1) = GIB HIMSCR = ISCR(4) IFORM = 2 IPRC = 1 ITYP = 0 IF (ITRLRA(5).EQ.2 .OR. ITRLRA(5).EQ.4) IPRC = 2 IF (ITRLRB(5).EQ.2 .OR. ITRLRB(5).EQ.4) IPRC = 2 IF (ITRLRC(5).EQ.2 .OR. ITRLRC(5).EQ.4) IPRC = 2 IF (ITRLRA(5) .GE. 3) ITYP = 2 IF (ITRLRB(5) .GE. 3) ITYP = 2 IF (ITRLRC(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (ITRLRD,HIMSCR,ITRLR(3),IFORM,ITYPE) CALL SOFCLS T = 0 SIGNAB = -1 SIGNC = 1 PREC = 0 SCR = ISCR(6) DBLKOR = KORBGN/2 + 1 NZ = LSTZWD - ((2*DBLKOR)-1) CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (ITRLRD) CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) I = ITRLRD(2) II = ITRLRD(3) IFORM = ITRLRD(4) HIMTYP = ITRLRD(5) GO TO 60 C C PHIBM IS NULL, HIM = PHIIM C 55 HIMSCR = PHIIM I = IA11(2) II = IA11(3) IFORM = IA11(4) HIMTYP = IA11(5) JHIM = 1 C C TEST SELECTED MODES C 60 NCORE = I IF (KORBGN+NCORE .GE. KORLEN) GO TO 180 TYPIN = HIMTYP TYPEP = HIMTYP IROWP = 1 NROWP = II INCRP = 1 IROWU = 1 CALL GOPEN (HIMSCR,Z(GBUF1),0) CALL MAKMCB (ITRLR,HIM,II,IFORM,HIMTYP) CALL GOPEN (HIM,Z(GBUF3),1) NFOUND = 0 ITER = I DBLKOR = KORBGN/2 + 1 SGLKOR = 2*DBLKOR - 1 IF (HIMTYP .EQ. 1) DICORE = (SGLKOR+II)/2 + 1 IF (HIMTYP .EQ. 2) DICORE = DBLKOR + II ICORE = 2*DICORE - 1 C C UNPACK HIM COLUMN C DO 140 I = 1,ITER C C LIMIT VECTORS TO NMAX C IF (NFOUND .LT. NNMAX) GO TO 65 J = Z(MODEXT+I-1) + MODUSE - 1 Z(J) = 3 GO TO 140 65 TYPEU = HIMTYP INCRU = 1 NROWU = II IHIM = NROWU CALL UNPACK (*90,HIMSCR,DZ(DBLKOR)) C C SAVE LARGEST HIM COLUMN VALUE AND CALCULATE MAGNITUDE OF HIM, C COLUMN C IF (HIMTYP .EQ. 2) GO TO 74 ITYPE = 0 HIMSUM = 0.0 HIMMAG = 0.0 DO 72 J = 1,IHIM IF (ABS(RZ(SGLKOR+J-1)) .GE. ABS(HIMMAG)) HIMMAG = RZ(SGLKOR+J-1) 72 HIMSUM = HIMSUM + (RZ(SGLKOR+J-1)**2) GO TO 78 74 ITYPE = 2 DHIMSM = 0.0D0 DHIMAG = 0.0D0 DO 76 J = 1,IHIM IF (DABS(DZ(DBLKOR+J-1)) .GE. DABS(DHIMAG)) 1 DHIMAG = DZ(DBLKOR+J-1) 76 DHIMSM = DHIMSM + DZ(DBLKOR+J-1)**2 HIMSUM = DHIMSM 78 IF (JHIM .EQ. 1) GO TO 95 PHIMSM = RZ(IPARTN+I-1) IF (PHIMSM .LE. 0.0) GO TO 90 PMSM = PHIMSM*EPSLON*EPSLON IF (HIMSUM .GE. PMSM) GO TO 95 C C REJECT MODE C 90 J = Z(MODEXT+I-1) Z(MODUSE+J-1) = 2 GO TO 140 C C USE MODE C 95 NFOUND = NFOUND + 1 C C SCALE HIM COLUMN C IF (HIMTYP .EQ. 2) GO TO 104 DO 102 J = 1,IHIM 102 RZ(SGLKOR+J-1) = RZ(SGLKOR+J-1)/HIMMAG GO TO 130 104 DO 106 J = 1,IHIM 106 DZ(DBLKOR+J-1) = DZ(DBLKOR+J-1)/DHIMAG C C PACK HIM COLUMN C 130 NROWP = NROWU CALL PACK(DZ (DBLKOR),HIM,ITRLR) 140 CONTINUE CALL CLOSE (HIM,1) IF (JHIM .EQ. 0) CALL CLOSE (PHIIM,1) CALL CLOSE (HIMSCR,1) CALL WRTTRL (ITRLR) KORBGN = KORE IF (JHIM .EQ. 1) HIMSCR = ISCR4 C C TEST NUMBER OF MODAL POINTS C MODAL = ITRLR(2) IF (FREBDY) MODAL = MODAL + FBMODS IF (MODAL .LE. ITRLR(3)) GO TO 300 WRITE (IPRNTR,145) UFM,OLDNAM,MODAL,ITRLR(3) 145 FORMAT (A23,' 6633, FOR SUBSTRUCTURE ',2A4,' THE TOTAL NUMBER OF', 1 ' MODAL COORDINATES (',I8,1H), /30X, 2 'IS LARGER THAN THE NUMBER OF INTERNAL DOF (',I8,2H).) DRY = -2 GO TO 300 C C PROCESS SYSTEM FATAL ERRORS C 160 IMSG = -2 GO TO 190 170 IMSG = -3 GO TO 190 180 IMSG = -8 IFILE = 0 190 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) GO TO 300 C C PROCESS MODULE FATAL ERRORS C 200 GO TO (210,210,220,230,240,260), ITEST 210 IMSG = -11 GO TO 270 220 IMSG = -1 GO TO 250 230 IMSG = -2 GO TO 250 240 IMSG = -3 250 CALL SMSG (IMSG,ITEM,OLDNAM) GO TO 300 260 IMSG = -10 270 CALL SMSG1 (IMSG,ITEM,OLDNAM,MODNAM) DRY = -2 300 RETURN END ================================================ FILE: mis/mred2f.f ================================================ SUBROUTINE MRED2F C C THIS SUBROUTINE COMPUTES THE FREEBODY EFFECTS FOR THE MRED2 C MODULE. C C INPUT DATA C GINO - MAA - SUBSTRUCTURE MASS MATRIX C DMR - FREEBODY MATRIX C SOF - GIMS - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS OF C ORIGINAL SUBSTRUCTURE C C OUTPUT DATA C GINO - HGH - HORG PARTITION MATRIX C SOF - HORG - H TRANSFORMATION MATRIX FOR ORIG. SUBSTRUCTURE C C PARAMETERS C INPUT - GBUF - GINO BUFFERS C INFILE - INPUT FILE NUMBERS C ISCR - SCRATCH FILE NUMBERS C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C FREBDY - FREEBODY MODES OPTION FLAG C OTHERS - RPRTN - ROW PARTITIONING VECTOR FILE NUMBER C LII - LII PARTITION MATRIX FILE NUMBER (ISCR11) C IDENT - IDENTITY MATRIX FILE NUMBER C ZERO - ZERO MATRIX FILE NUMBER C HIE - HIE PARTITION MATRIX FILE NUMBER C HIR - HIR PARTITION MATRIX FILE NUMBER C HIRSCR - HIR SCRATCH PARTITION MATRIX FILE NUMBER C FBR - FBR PARTITION MATRIX FILE NUMBER C FIR - FIR PARTITION MATRIX FILE NUMBER C GIB - GIMS INPUT FILE NUMBER C CPRTN - COLUMN PARTITIONING VECTOR FILE NUMBER C HIM - HIM PARTITION MATRIX FILE NUMBER C HGH - HORG MATRIX FILE NUMBER C LOGICAL FREBDY,BOUNDS INTEGER DRY,GBUF1,GBUF2,SBUF1,SBUF2,SBUF3,OLDNAM,Z,T, 1 SIGNAB,SIGNC,PRECMP,SCR,FUSET,PRECFB,SIGN,TYPINP, 2 TYPEOP,TYPINU,UN,UB,UI,DMR,FAR,FIR,FARIND,ZERO, 3 RPRTN,HIE,HIR,CPRTN,HIM,HGH,GIB,HIRSCR,USETMR, 4 DBLKOR,SGLKOR DOUBLE PRECISION DZ,DHIRMG DIMENSION MODNAM (2),ITRLR1(7),ITRLR2(7),RZ(1),ISUB(4),ITMLST(4), 1 DZ(1) COMMON /BLANK / IDUM1,DRY,IDUM7,GBUF1,GBUF2,IDUM2,SBUF1,SBUF2, 1 SBUF3,INFILE(12),OTFILE(6),ISCR(10),KORLEN, 2 KORBGN,OLDNAM(2),IDUM4(2),FREBDY,IDUM8(5),BOUNDS, 3 IDUM9(6),LSTZWD,ISCR11 COMMON /ZZZZZZ/ Z(1) COMMON /MPYADX/ ITRLRA(7),ITRLRB(7),ITRLRC(7),ITRLRD(7),NZMPY,T, 1 SIGNAB,SIGNC,PRECMP,SCR COMMON /BITPOS/ IDUM5(9),UN,IDUM6(10),UB,UI COMMON /PATX / LCORE,NSUB(3),FUSET COMMON /FBSX / JTRLRL(7),JTRLRU(7),JTRLRB(7),JTRLRX(7),NZFBS, 1 PRECFB,SIGN COMMON /PACKX / TYPINP,TYPEOP,IROWP,NROWP,INCRP COMMON /UNPAKX/ TYPINU,IROWU,NROWU,INCRU COMMON /SYSTEM/ IDUM3,IPRNTR EQUIVALENCE (USETMR,INFILE(5)),(MAA,INFILE(7)), 1 (DMR,INFILE(11)),(RPRTN,ISCR(9)),(IDENT,ISCR(5)), 2 (CPRTN,ISCR(10)),(PPRTN,ISCR(4)),(RZ(1),Z(1)), 3 (DZ(1),Z(1)),(GIB,ISCR(4)),(LII ,ISCR11), 4 (HIRSCR,ISCR(5)),(HGH,ISCR(8)),(ZERO,ISCR(6)), 5 (HIM,ISCR(8)),(HIE,ISCR(7)),(HIR ,ISCR(9)), 6 (FAR,ISCR(9)),(FIR,ISCR(10)) DATA MODNAM/ 4HMRED,4H2F / DATA FARIND, ISCR7 ,ISCR8 /6, 307, 308 / DATA ITMLST/ 4HGIMS,4HHORG,4HUPRT,4HLMTX/ C C TEST FREEBODY MODES CALCULATION FLAG C IF (DRY .EQ. -2) GO TO 300 ITRLR2(1) = DMR CALL RDTRL (ITRLR2) IF (ITRLR2(1) .LT. 0) GO TO 110 C C COMPUTE FREEBODY MATRIX C C ** ** ** ** ** ** C * * * * * * C * FAR * = * MAA * * DMR * C * * * * * * C ** ** ** ** ** ** C CALL SOFCLS FREBDY = .TRUE. ITRLR1(1) = MAA CALL RDTRL (ITRLR1) DO 10 I = 1,7 ITRLRA(I) = ITRLR1(I) ITRLRB(I) = ITRLR2(I) 10 ITRLRC(I) = 0 IFORM = 2 IPRC = 1 ITYP = 0 IF (ITRLRA(5).EQ.2 .OR. ITRLRA(5).EQ.4) IPRC = 2 IF (ITRLRB(5).EQ.2 .OR. ITRLRB(5).EQ.4) IPRC = 2 IF (ITRLRA(5) .GE. 3) ITYP = 2 IF (ITRLRB(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (ITRLRD,FAR,ITRLR1(3),IFORM,ITYPE) T = 0 SIGNAB= 1 SIGNC = 1 PREC = 0 SCR = ISCR(4) DBLKOR= 1 + KORBGN/2 NZMPY = LSTZWD - 2*DBLKOR - 1 CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (ITRLRD) C C PARTITION FAR INTO BOUNDARY, INTERIOR POINTS C C ** ** C * * C ** ** * FBR * C * * * * C * FAR * = *.....* C * * * * C ** ** * FIR * C * * C ** ** C LCORE = NZMPY FUSET = USETMR CALL CALCV (PPRTN,UN,UI,UB,Z(KORBGN)) CALL GMPRTN (FAR,FIR,0,0,0,0,PPRTN,NSUB(1),NSUB(2),Z(KORBGN), 1 KORLEN) C C CALCULATE FREEBODY TRANSFORMATION MATRIX C C T C ** ** ** ** ** ** ** ** C * * * * * * * * C * LII * * LII * * HIR * = -* FIR * C * * * * * * * * C ** ** ** ** ** ** ** ** C IF (.NOT.BOUNDS) GO TO 20 ITEM = ITMLST(4) CALL SOFTRL (OLDNAM,ITEM,JTRLRL) ITEST = JTRLRL(1) IF (ITEST .NE. 1) GO TO 20 JTRLRL(1) = LII CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) CALL MTRXI (LII,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 210 CALL SOFCLS GO TO 30 20 JTRLRL(1) = LII CALL RDTRL (JTRLRL) 30 JTRLRB(1) = FIR CALL RDTRL (JTRLRB) IFORM = 2 IPRC = 1 ITYP = 0 IF (JTRLRL(5).EQ.2 .OR. JTRLRL(5).EQ.4) IPRC = 2 IF (JTRLRB(5).EQ.2 .OR. JTRLRB(5).EQ.4) IPRC = 2 IF (JTRLRL(5) .GE. 3) ITYP = 2 IF (JTRLRB(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (JTRLRX,HIR,JTRLRB(3),IFORM,ITYPE) NZFBS = NZMPY PRECFB = ITYPE SIGN = -1 CALL FBS (Z(KORBGN),Z(KORBGN)) CALL WRTTRL (JTRLRX) C C UNPACK HIR COLUMNS FOR SCALING C TYPINU = JTRLRX(5) IROWU = 1 NROWU = JTRLRX(3) INCRU = JTRLRX(5) TYPINP = JTRLRX(5) TYPEOP = JTRLRX(5) IROWP = 1 NROWP = JTRLRX(3) INCRP = JTRLRX(5) CALL GOPEN (HIR,Z(GBUF1),0) IFORM = JTRLRX(4) CALL MAKMCB (ITRLR1,HIRSCR,JTRLRX(3),IFORM,JTRLRX(5)) CALL GOPEN (HIRSCR,Z(GBUF2),1) SGLKOR = 2*DBLKOR - 1 DO 80 I = 1,FARIND CALL UNPACK (*60,HIR,DZ(DBLKOR)) C C CALCULATE MAGNITUDE OF HIR C IF (JTRLRX(5) .EQ. 2) GO TO 42 HIRMAG = RZ(SGLKOR) IF (NROWU .EQ. 1) GO TO 50 DO 40 J = 2,NROWU IF (ABS(RZ(SGLKOR+J-1)) .GT. ABS(HIRMAG)) HIRMAG = RZ(SGLKOR+J-1) 40 CONTINUE GO TO 50 42 DHIRMG = DZ(DBLKOR) IF (NROWU .EQ. 1) GO TO 50 DO 44 J = 2,NROWU IF (DABS(DZ(DBLKOR+J-1)) .GT. DABS(DHIRMG)) DHIRMG =DZ(DBLKOR+J-1) 44 CONTINUE C C SCALE HIR COLUMN C 50 IF (JTRLRX(5) .EQ. 2) GO TO 54 DO 52 J = 1,NROWU 52 RZ(SGLKOR+J-1) = RZ(SGLKOR+J-1)/HIRMAG GO TO 80 54 DO 56 J = 1,NROWU 56 DZ(DBLKOR+J-1) = DZ(DBLKOR+J-1)/DHIRMG GO TO 80 C C NULL COLUMN C 60 IF (JTRLRX(5) .EQ. 2) GO TO 74 DO 72 J = 1,NROWU 72 RZ(SGLKOR+J-1) = 0.0 GO TO 80 74 DO 76 J = 1,NROWU 76 DZ(DBLKOR+J-1) = 0.0D0 C C PACK HIR COLUMN C 80 CALL PACK (DZ(DBLKOR),HIRSCR,ITRLR1) CALL CLOSE (HIRSCR,1) CALL CLOSE (HIR,1) CALL WRTTRL (ITRLR1) ISUB(1) = ITRLR1(2) C C SET UP MERGE COLUMN PARTITION VECTOR C ITRLR2(1) = HIM CALL RDTRL (ITRLR2) I = ITRLR1(2) + ITRLR2(2) ISUB(2) = ITRLR2(2) DO 100 J = 1,I RZ(KORBGN+J-1) = 0.0 IF (J .GT. ISUB(1)) RZ(KORBGN+J-1) = 1.0 100 CONTINUE TYPINP = 1 TYPEOP = 1 IROWP = 1 NROWP = I INCRP = 1 IFORM = 7 CALL MAKMCB (ITRLR2,RPRTN,NROWP,IFORM,TYPINP) CALL GOPEN (RPRTN,Z(GBUF1),1) CALL PACK(RZ (KORBGN),RPRTN,ITRLR2) CALL CLOSE (RPRTN,1) CALL WRTTRL (ITRLR2) C C MERGE FREEBODY, MODAL TRANSFORMATION MATRICES C C ** ** ** ** C * * * . * C * HIE * = * HIR . HIM * C * * * . * C ** ** ** ** C IF (HIE .NE. HIM) GO TO 105 HIE = ISCR8 HGH = ISCR7 105 ITYPE = 1 IF (I .NE. ITRLR2(3)) ITYPE = 2 CALL GMMERG (HIE,HIRSCR,0,HIM,0,RPRTN,0,ISUB,ITYPE,Z(KORBGN), 1 KORLEN) CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) GO TO 120 C C FREEBODY MODES NOT REQUESTED C 110 HIE = HIM IF (HIE .EQ. ISCR7) HGH = ISCR8 IF (HIE .EQ. ISCR8) HGH = ISCR7 C C FORM HGH MATRIX C C ** ** C * . * C ** ** * I . 0 * C * * * . * C * HGH * = *...........* C * * * . * C ** ** * GIB . HIE * C * . * C ** ** C 120 CALL SOFTRL (OLDNAM,ITMLST(2),ITRLR1) IF (ITRLR1(1) .EQ. 1) GO TO 190 C C GENERATE IDENTITY MATRIX C CALL SOFTRL (OLDNAM,ITMLST(1),ITRLR1) ITEST = ITRLR1(1) ITEM = ITMLST(1) IF (ITEST .NE. 1) GO TO 210 TYPINP = 1 TYPEOP = ITRLR1(5) IROWP = 1 NROWP = ITRLR1(2) INCRP = 1 IFORM = 8 II = ITRLR1(2) CALL MAKMCB (ITRLR1,IDENT,NROWP,IFORM,TYPEOP) CALL GOPEN (IDENT,Z(GBUF1),1) DO 140 I = 1,II DO 130 J = 1,II RZ(KORBGN+J-1) = 0.0 IF (I .EQ. J) RZ(KORBGN+J-1) = 1.0 130 CONTINUE 140 CALL PACK (RZ(KORBGN),IDENT,ITRLR1) CALL CLOSE (IDENT,1) CALL WRTTRL (ITRLR1) C C SET UP MERGE ROW PARTITION VECTOR C ITRLR1(1) = HIE CALL RDTRL (ITRLR1) ITER = ITRLR1(2) NROWP = II + ITER DO 170 I = 1,NROWP RZ(KORBGN+I-1) = 0.0 IF (I .GT. II) RZ(KORBGN+I-1) = 1.0 170 CONTINUE TYPINP = 1 TYPEOP = 1 INCRP = 1 IFORM = 7 CALL MAKMCB (ITRLR2,RPRTN,NROWP,IFORM,TYPINP) CALL GOPEN (RPRTN,Z(GBUF1),1) CALL PACK (RZ(KORBGN),RPRTN,ITRLR2) CALL CLOSE (RPRTN,1) CALL WRTTRL (ITRLR2) NROWS = NROWP C C SET UP MERGE COLUMN PARTITION VECTOR C ITEM = ITMLST(3) CALL MTRXI (CPRTN,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 210 C C SET UP GIB MATRIX C CALL MTRXI (GIB,OLDNAM,ITMLST(1),0,ITEST) ITEM = ITMLST(1) IF (ITEST .NE. 1) GO TO 210 C C MERGE ALL STRUCTURAL REDUCTION TRANSFORMATION MATRICES C ISUB(1) = II ISUB(2) = ITER ISUB(3) = ITRLR1(3) ISUB(4) = II ITYPE = 1 IF (NROWS .NE. NROWP) ITYPE = 2 CALL GMMERG (HGH,GIB,IDENT,HIE,0,RPRTN,CPRTN,ISUB,ITYPE,Z(KORBGN), 1 KORLEN) C C SAVE HGH ON SOF AS HORG MATRIX C CALL MTRXO (HGH,OLDNAM,ITMLST(2),0,ITEST) ITEM = ITMLST(2) IF (ITEST .NE. 3) GO TO 210 190 CONTINUE GO TO 300 C C PROCESS MODULE FATAL ERRORS C 210 GO TO (220,230,240,250,260,280), ITEST 220 IMSG = -9 GO TO 290 230 IMSG = -11 GO TO 290 240 IMSG = -1 GO TO 270 250 IMSG = -2 GO TO 270 260 IMSG = -3 270 CALL SMSG (IMSG,ITEM,OLDNAM) GO TO 300 280 IMSG = -10 290 DRY = -2 CALL SMSG1 (IMSG,ITEM,OLDNAM,MODNAM) 300 RETURN END ================================================ FILE: mis/mred2g.f ================================================ SUBROUTINE MRED2G (KODE) C C THIS SUBROUTINE CALCULATES THE FINAL STRUCTURAL MATRICES FOR THE C MRED2 MODULE. C C INPUT DATA C GINO - KBB - STIFFNESS PARTITION MATRIX C KIB - KIB STIFFNESS PATTITION MATRIX C HIE - HIE PARTITION MATRIX C KII - KII PARTITION MATRIX C HGH - HORG PARTITION MATRIX C MAA - MASS INPUT MATRIX C BAA - DAMPING INPUT MATRIX C K4AA - STIFFNESS INPUT MATRIX C PAA - LOADS INPUT MATRIX C SOF - GIMS - G TRANSFORMATION MATRIX C C OUTPUT DATA C GINO - KHH - STIFFNESS MATRIX C MHH - MASS MATRIX C BHH - DAMPING MATRIX C K4HH - K4HH MATRIX C PHH - LOADS MATRIX C SOF - KMTX - STIFFNESS MATRIX C MMTX - MASS MATRIX C PVEC - LOADS MATRIX C PAPP - APPENDED LOADS MATRIX C BMTX - DAMPING MATRIX C K4MX - K4MX STIFFNESS MATRIX C C PARAMETERS C INPUT - POPT - LOADS OPTION FLAG C GBUF - GINO BUFFERS C INFILE - INPUT FILE NUMBERS C OTFILE - OUTPUT FILE NUMBERS C ISCR - SCRATCH FILE NUMBERS C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C OTHERS - PAA - LOADS INPUT FILE NUMBER C KHH - STIFFNESS I C KHH - STIFFNESS OUTPUT FILE NUMBER C POVE - LOADS OUTPUT FILE NUMBER C UPRT - PARTITION VECTOR FILE NUMBER C ZEROEB - ZERO PARTITION FILE NUMBER C KBB - KBB INPUT FILE NUMBER C ZEROBE - ZERO PARTITION MATRIX C KIB - KIB INPUT FILE NUMBER C KII - KII INPUT FILE NUMBER C KBARBB - KBARBB FILE NU BER C GIB - GIB INPUT FILE NUMBER C KEE - KEE FILE NUMBER C HGH - HORG INPUT FILE NUMBER C LOGICAL FREBDY,BOUNDS,MODES,PONLY INTEGER DRY,POPT,GBUF1,SBUF1,SBUF2,SBUF3,OTFILE,OLDNAM,Z, 1 T,SIGNAB,SIGNC,PREC,SCR,TYPIN,TYPOUT,UN,UB,UI, 2 FUSET,PREC3,ZEROBE,ZEROEB,BLANKS,PAPP,PAA,POVE, 3 UPRT,GIB,HGH,HIE,RPRTN,CPRTN,USETMR,DBLKOR,EQST DOUBLE PRECISION DZ DIMENSION MODNAM(2),ITRLR1(7),ITRLR2(7),ITRLR3(7),ISUB(4), 1 ITMLST(11),ITMNAM(2),RZ(1),DZ(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / IDUM1,DRY,POPT,GBUF1,IDUM2(2),SBUF1,SBUF2,SBUF3, 1 INFILE(12),OTFILE(6),ISCR(10),KORLEN,KORBGN, 2 OLDNAM(2),NEWNAM(2),FREBDY,IDUM6(5),BOUNDS,MODES, 3 IDUM7(4),PONLY,LSTZWD COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ IDUM3,IPRNTR COMMON /MPYADX/ ITRLRA(7),ITRLRB(7),ITRLRC(7),ITRLRD(7),NZ,T, 1 SIGNAB,SIGNC,PREC,SCR,DUMM COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR COMMON /BITPOS/ IDUM4(9),UN,IDUM5(10),UB,UI COMMON /PATX / LCORE,NSUB(3),FUSET COMMON /MPY3TL/ JTRLRA(7),JTRLRB(7),JTRLRE(7),JTRLRC(7),JSCR(3), 1 LKORE,ICODE,PREC3,DUMMY(13) EQUIVALENCE (EQST,INFILE(5)),(USETMR,INFILE(5)), 1 (PAA,INFILE(10)),(KHH,OTFILE(1)),(POVE,OTFILE(6)) EQUIVALENCE (ZEROBE,ISCR(1)),(UPRT,ISCR(1)),(KIB,ISCR(2)), 1 (ZEROEB,ISCR(3)),(KII,ISCR(3)),(KBB,ISCR(1)), 2 (GIB,ISCR(4)),(KBARBB,ISCR(5)),(KEE,ISCR(6)), 3 (HIE,ISCR(7)),(HGH,ISCR(8)),(RPRTN,ISCR(2)), 4 (CPRTN,ISCR(4)),(RZ(1),Z(1)),(DZ(1),Z(1)) DATA MODNAM/ 4HMRED,4H2G /, PAPP ,BLANKS/4HPAPP,4H / DATA ITMLST/ 4HKMTX,4HMMTX,4HBMTX,4HK4MX,4HPVEC,4HPAPP,4HPOVE, 1 4HGIMS,4HHORG,4HPOAP,4HUPRT/ DATA MRED2 / 27 / C C SELECT OPERATION C KODE = 1, NO SETLVL, NO STIFFNESS CALCULATIONS C KODE = 2, SETLVL, STIFFNESS CALCULATIONS C KODE = 3, NO SETLVL, NO STIFFNESS CALCULATIONS C KODE = 4, SETLVL, NO STIFFNESS CALCULATIONS C IF (DRY .EQ. -2) GO TO 300 GO TO (90,1,90,1), KODE C C SET UP NEW SUBSTRUCTURE C 1 IF (BOUNDS .OR. MODES) GO TO 5 NUMB = 1 CALL SETLVL (NEWNAM,NUMB,OLDNAM,ITEST,MRED2) IF (ITEST .EQ. 8) GO TO 290 5 IF (KODE .EQ. 4) GO TO 90 C C FORM PRELIMINARY STIFFNESS CALCULATION C C T C ** ** ** ** ** ** ** ** C * * * * * * * * C * KBARBB * = * KBB * + * GIB * * KIB * C * * * * * * * * C ** ** ** ** ** ** ** ** C ITRLR1(1) = KBB CALL RDTRL (ITRLR1) ITEM = ITMLST(8) ITMNAM(1) = OLDNAM(1) ITMNAM(2) = OLDNAM(2) CALL SOFTRL (OLDNAM,ITEM,ITRLR2) ITEST = ITRLR2(1) IF (ITEST .NE. 1) GO TO 200 CALL MTRXI (GIB,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 200 CALL SOFCLS ITRLR2(1) = GIB CALL RDTRL (ITRLR2) ITRLR3(1) = KIB CALL RDTRL (ITRLR3) DO 10 I = 1,7 ITRLRA(I) = ITRLR2(I) ITRLRB(I) = ITRLR3(I) 10 ITRLRC(I) = ITRLR1(I) IFORM = 6 IPRC = 1 ITYP = 0 IF ((ITRLRA(5) .EQ. 2) .OR. (ITRLRA(5) .EQ. 4)) IPRC = 2 IF ((ITRLRB(5) .EQ. 2) .OR. (ITRLRB(5) .EQ. 4)) IPRC = 2 IF ((ITRLRC(5) .EQ. 2) .OR. (ITRLRC(5) .EQ. 4)) IPRC = 2 IF (ITRLRA(5) .GE. 3) ITYP = 2 IF (ITRLRB(5) .GE. 3) ITYP = 2 IF (ITRLRC(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (ITRLRD,KBARBB,ITRLR1(3),IFORM,ITYPE) T = 1 SIGNAB = 1 SIGNC = 1 PREC = 0 SCR = ISCR(9) DBLKOR = KORBGN/2 + 1 NZ = LSTZWD - (2*DBLKOR - 1) CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (ITRLRD) KBAROW = ITRLRD(3) KCOL = ITRLRD(2) C C FORM PRELIMINARY STIFFNESS CALCULATION C C T C ** ** ** ** ** ** ** ** C * * * * * * * * C * KEE * = * HIE * * KII * * HIE * C * * * * * * * * C ** ** ** ** ** ** ** ** C ITRLR1(1) = HIE ITRLR2(1) = KII CALL RDTRL (ITRLR1) CALL RDTRL (ITRLR2) DO 20 I = 1,7 JTRLRA(I) = ITRLR1(I) JTRLRB(I) = ITRLR2(I) 20 JTRLRE(I) = 0 IPRC = 1 ITYP = 0 IF (JTRLRA(5).EQ.2 .OR. JTRLRA(5).EQ.4) IPRC = 2 IF (JTRLRB(5).EQ.2 .OR. JTRLRB(5).EQ.4) IPRC = 2 IF (JTRLRA(5).GE.3 .OR. JTRLRB(5).GE.3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (JTRLRC,KEE,ITRLR1(2),IFORM,ITYPE) JSCR(1) = ISCR(9) JSCR(2) = ISCR(2) JSCR(3) = ISCR(1) LKORE = NZ ICODE = 0 PREC3 = 0 CALL MPY3DR (DZ(DBLKOR)) CALL WRTTRL (JTRLRC) KEEROW = JTRLRC(3) KEECOL = JTRLRC(2) C C GENERATE MERGE PARTITION VECTOR C NROW = KCOL + KEECOL DO 80 I = 1,NROW RZ(KORBGN+I-1) = 0.0 IF (I .GT. KCOL) RZ(KORBGN+I-1) = 1.0 80 CONTINUE TYPIN = 1 TYPOUT = 1 IROW = 1 INCR = 1 IFORM = 7 CALL MAKMCB (ITRLR1,RPRTN,NROW,IFORM,TYPIN) CALL GOPEN (RPRTN,Z(GBUF1),1) CALL PACK (RZ(KORBGN),RPRTN,ITRLR1) CALL CLOSE (RPRTN,1) CALL WRTTRL (ITRLR1) C C FORM STIFFNESS MATRIX C C ** ** C * . * C ** ** * KBARBB . 0 * C * * * . * C * KHH * = *..............* C * * * . * C ** ** * 0 . KEE * C * . * C ** ** C ISUB(1) = KCOL ISUB(2) = KEECOL ISUB(3) = KBAROW ISUB(4) = KEEROW IFORM = 6 CALL GMMERG (KHH,KBARBB,0,0,KEE,RPRTN,RPRTN,ISUB,IFORM,Z(KORBGN), 1 KORLEN) C C STORE KHH AS KMTX ON SOF C CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) ITMNAM(1) = NEWNAM(1) ITMNAM(2) = NEWNAM(2) CALL MTRXO (KHH,NEWNAM,ITMLST(1),0,ITEST) ITEM = ITMLST(1) IF (ITEST .NE. 3) GO TO 200 GO TO 100 C C LOCATE HGH MATRIX C 90 CALL MTRXI (HGH,OLDNAM,ITMLST(9),0,ITEST) ITEM = ITMLST(9) ITMNAM(1) = OLDNAM(1) ITMNAM(2) = OLDNAM(2) IF (ITEST .NE. 1) GO TO 200 100 SIGNAB = 1 SIGNC = 1 SCR = ISCR(1) DBLKOR = KORBGN/2 + 1 LCORE = LSTZWD - (2*DBLKOR - 1) C C GENERATE MATRICES REQUESTED C I = 2, GENERATE MHH MATRIX C I = 3, GENERATE BHH MATRIX C I = 4, GENERATE K4HH MATRIX C I = 5, GENERATE PHH MATRIX C DO 180 I = 2,5 ITRLR1(1) = INFILE(I+5) CALL RDTRL (ITRLR1) IF (ITRLR1(1) .LT. 0) GO TO 180 CALL SOFCLS C C CALCULATE MATRIX REQUIRED C C T C ** ** ** ** ** ** ** ** C * * * * * * * * C * (M,B,K4)HH * = * HGH * * (M,B,K4)AA * * HGH * C * * * * * * * * C ** ** ** ** ** ** ** ** C C T C ** ** ** ** ** ** C * * * * * * C * PHH * = * HGH * * PAA * C * * * * * * C ** ** ** ** ** ** C ITRLR2(1) = HGH CALL RDTRL (ITRLR2) ITEM = ITMLST(I) IF (I.EQ.5 .AND. POPT.EQ.PAPP) ITEM = ITMLST(6) DO 120 J = 1,7 JTRLRA(J) = ITRLR2(J) JTRLRB(J) = ITRLR1(J) 120 JTRLRE(J) = 0 IFORM = 6 IPRC = 1 ITYP = 0 IF (JTRLRA(5).EQ.2 .OR. JTRLRA(5).EQ.4) IPRC = 2 IF (JTRLRB(5).EQ.2 .OR. JTRLRB(5).EQ.4) IPRC = 2 IF (JTRLRA(5).GE.3 .OR. JTRLRB(5).GE.3) ITYP = 2 ITYPE = IPRC + ITYP CALL MAKMCB (JTRLRC,OTFILE(I),ITRLR2(2),IFORM,ITYPE) JSCR(1) = ISCR(9) JSCR(2) = ISCR(2) JSCR(3) = ISCR(1) ICODE = 0 IF (I .EQ. 5) ICODE = 1 PREC3 = 0 CALL MPY3DR (DZ(DBLKOR)) CALL WRTTRL (JTRLRC) C C STORE MATRIX ON SOF C I = 2, STORE MHH AS MMTX C I = 3, STORE BHH AS BMTX C I = 4, STORE K4HH AS K4MX C I = 5, STORE PHH AS PVEC OR PAPP C CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) ITMNAM(1) = NEWNAM(1) ITMNAM(2) = NEWNAM(2) CALL MTRXO (OTFILE(I),NEWNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 200 180 CONTINUE C C TEST FOR LOAD PROCESSING C IF (POPT .EQ. BLANKS) GO TO 190 IF (.NOT. PONLY) GO TO 184 ITRLR1(1) = EQST CALL RDTRL (ITRLR1) NSUB(1 ) = ITRLR1(6) NSUB(2) = ITRLR1(7) ITEM = ITMLST(11) ITMNAM(1) = OLDNAM(1) ITMNAM(2) = OLDNAM(2) CALL MTRXI (UPRT,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 1) GO TO 200 GO TO 188 C C PARTITION PAA VECTOR C 184 LCORE = KORLEN FUSET = USETMR CALL CALCV (UPRT,UN,UI,UB,Z(KORBGN)) 188 CONTINUE CALL GMPRTN (PAA,POVE,0,0,0,0,UPRT,NSUB(1),NSUB(2),Z(KORBGN), 1 KORLEN) C C SAVE POVE AS POVE OR POAP ON SOF C IF (MODES) GO TO 190 ITEM = ITMLST(7) IF (POPT .EQ. PAPP) ITEM = ITMLST(10) CALL MTRXO (POVE,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 200 190 CONTINUE GO TO 300 C C PROCESS MODULE ERRORS C 200 GO TO (210,220,230,240,250,270), ITEST 210 IMSG = -9 GO TO 280 220 IMSG = -11 GO TO 280 230 IMSG = -1 GO TO 260 240 IMSG = -2 GO TO 260 250 IMSG = -3 260 CALL SMSG (IMSG,ITEM,ITMNAM) GO TO 300 270 IMSG = -10 280 DRY = -2 CALL SMSG1 (IMSG,ITEM,ITMNAM,MODNAM) GO TO 300 290 WRITE (IPRNTR,295) UFM 295 FORMAT (A23,' 6518, ONE OF THE COMPONENT SUBSTRUCTURES HAS BEEN ', 1 'USED IN A PREVIOUS COMBINE OR REDUCE.') DRY = -2 300 RETURN END ================================================ FILE: mis/mred2h.f ================================================ SUBROUTINE MRED2H C C THIS SUBROUTINE CREATES THE REDUCED SUBSTRUCTURE NEW TABLE ITEMS C FOR THE MRED2 MODULE. C C INPUT DATA C GINO - EQST - TEMPORARY SUBSTRUCTURE EQUIVALENCE TABLE FOR C SUBSTRUCTURE BEING REDUCED C C OUTPUT DATA C SOF - EQSS - SUBSTRUCTURE EQUIVALENCE TABLE FOR REDUCED C SUBSTRUCTURE C BGSS - BASIC GRID POINT DEFINITION TABLE FOR REDUCED C SUBSTRUCTURE C LODS - LOAD SET DATA FOR REDUCED SUBSTRUCTURE C LOAP - APPENDED LOAD SET DATA FOR REDUCED SUBSTRUCTURE C PLTS - PLOT SET DATA FOR REDUCED SUBSTRUCTURE C CSTM - COORDINATE SYSTEM TRANSFORMATION DATA FOR REDUCED C SUBSTRUCTURE C C PARAMETERS C INPUT - DRY - MODULE OPERATION FLAG C POPT - LOAD OPTION FLAG C GBUF1 - GINO BUFFER C INFILE - INPUT FILE NUMBERS C KORLEN - LENGTH OF OPEN CORE C KORBGN - BEGINNING ADDRESS OF OPEN CORE C OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED C NEWNAM - NAME OF REDUCED SUBSTRUCTURE C FREBDY - FREEBODY OPR C FREBDY - FREEBODY OPTIONS FLAG C IO - OUTPUT OPTIONS FLAG C MODPTS - NUMBER OF MODAL POINTS C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,ANDF LOGICAL FREBDY,PONLY REAL ZERO,RZ(1) DIMENSION MODNAM(2),LSTBIT(32),ITRLR(7),ITMLST(3),ITMNAM(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / IDUM1,DRY,POPT,GBUF1,IDUM2(5),INFILE(12), 1 IDUM3(16),KORLEN,KORBGN,OLDNAM(2),NEWNAM(2), 2 FREBDY,IDUM4(3),USRMOD,IO,IDUM6(4),MODPTS,IDUM9, 3 PONLY COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ IDUM5,IPRNTR,IDUM7(6),NLPP,IDUM8(2),LINE EQUIVALENCE (EQST,INFILE(4)), (RZ(1),Z(1)) DATA MODNAM/ 4HMRED,4H2H / DATA PAPP , LODS,LOAP /4HPAPP,4HLODS,4HLOAP/ DATA FARIND, IZERO,ZERO /6,0,0.0/ DATA ITMLST/ 4HEQSS,4HBGSS,4HLAMS / DATA SOFEOG/ 4H$EOG / C C CHECK FOR LOADS PROCESSING ONLY C IF (PONLY) GO TO 55 C C PROCESS EQSS, BGSS DATA C IF (DRY .EQ. -2) GO TO 300 ITRLR(1) = EQST CALL RDTRL (ITRLR) ITMNAM(1) = NEWNAM(1) ITMNAM(2) = NEWNAM(2) IFILE = EQST IF (ITRLR(1) .LT. 0) GO TO 210 CALL GOPEN (EQST,Z(GBUF1),0) ITEST = 3 ITEM = ITMLST(1) CALL SFETCH (NEWNAM,4HEQSS,2,ITEST) IF (ITEST .NE. 3) GO TO 250 NEWPTS = MODPTS IF (FREBDY) NEWPTS = NEWPTS + FARIND C C PROCESS EQSS GROUP 0 DATA C IF (KORBGN+ITRLR(2)+2 .GE. KORLEN) GO TO 230 CALL READ (*215,*220,EQST,Z(KORBGN),ITRLR(2),1,NWDSRD) NCSUBS = Z(KORBGN+2) Z(KORBGN+2) = Z(KORBGN+2) + 1 Z(KORBGN+3) = Z(KORBGN+3) + NEWPTS NEWCS = ITRLR(2) Z(KORBGN+NEWCS ) = NEWNAM(1) Z(KORBGN+NEWCS+1) = NEWNAM(2) NEWCS = ITRLR(2) + 2 CALL SUWRT (Z(KORBGN),NEWCS,2) C C PROCESS REMAINING EQSS GROUPS C NWDS = KORLEN - KORBGN DO 20 I = 1,NCSUBS CALL READ (*215,*10,EQST,Z(KORBGN),NWDS,1,NWDSRD) GO TO 230 10 IF (KORBGN+1+NWDSRD .GE. KORLEN) GO TO 230 20 CALL SUWRT (Z(KORBGN),NWDSRD,2) C C PROCESS MODAL AND FREE-BODY POINTS C IF (KORBGN+3*NEWPTS .GE. KORLEN) GO TO 230 DO 30 I = 1,NEWPTS KORE = 3*(I-1) IF (.NOT.FREBDY) GO TO 24 IF (I .GT. FARIND) GO TO 22 Z(KORBGN+KORE) = I GO TO 26 22 Z(KORBGN+KORE) = 100 + I - FARIND GO TO 26 24 Z(KORBGN+KORE ) = 100 + I 26 Z(KORBGN+KORE+1) = ITRLR(4)/2 + I 30 Z(KORBGN+KORE+2) = 1 NWDSRD = 3*NEWPTS CALL SUWRT (Z(KORBGN),NWDSRD,2) C C PROCESS EQSS SIL DATA C IF (KORBGN+ITRLR(4)+2*NEWPTS .GE. KORLEN) GO TO 230 CALL READ (*215,*220,EQST,Z(KORBGN),ITRLR(4),1,NWDSRD) NWDSRD = ITRLR(4) - 1 ICODE = Z(KORBGN+NWDSRD) CALL DECODE (ICODE,LSTBIT,NWDSD) LSTSIL = Z(KORBGN+NWDSRD-1) + NWDSD - 1 DO 40 I = 1,NEWPTS KORE = ITRLR(4) + 2*(I-1) Z(KORBGN+KORE ) = LSTSIL + I 40 Z(KORBGN+KORE+1) = 1 NWDSRD = ITRLR(4) + 2*NEWPTS CALL SUWRT (Z(KORBGN),NWDSRD,2) CALL SUWRT (Z(KORBGN),0,3) C C PROCESS BGSS DATA C IF (KORBGN+ITRLR(5)+4*NEWPTS .GE. KORLEN) GO TO 230 ITEM = ITMLST(2) ITEST = 3 CALL SFETCH (NEWNAM,4HBGSS,2,ITEST) IF (ITEST .NE. 3) GO TO 250 CALL READ (*215,*220,EQST,Z(KORBGN),3,1,NWDSRD) Z(KORBGN ) = NEWNAM(1) Z(KORBGN+1) = NEWNAM(2) Z(KORBGN+2) = Z(KORBGN+2) + NEWPTS LOCBGS = KORBGN CALL SUWRT (Z(KORBGN),3,2) CALL READ (*215,*220,EQST,Z(KORBGN),ITRLR(5),1,NWDSRD) DO 50 I = 1,NEWPTS KORE = ITRLR(5) + 4*(I-1) Z(KORBGN+KORE ) = -1 RZ(KORBGN+KORE+1) = 0.0 RZ(KORBGN+KORE+2) = 0.0 50 RZ(KORBGN+KORE+3) = 0.0 NWDSRD = ITRLR(5) + 4*NEWPTS CALL SUWRT (Z(KORBGN),NWDSRD,2) CALL SUWRT (Z(KORBGN),0,3) KORBGN = KORBGN + ITRLR(5) C C PROCESS LODS, LOAP ITEM C 55 ITEM = LODS IF (POPT .EQ. PAPP) ITEM = LOAP ITEST = 3 CALL SFETCH (OLDNAM,ITEM,1,ITEST) IF (ITEST .EQ. 3) GO TO 60 CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) IF ((KORBGN + NWDSRD) .GE. KORLEN) GO TO 230 Z(KORBGN ) = NEWNAM(1) Z(KORBGN+1) = NEWNAM(2) Z(KORBGN+3) = Z(KORBGN+3) + 1 Z(KORBGN+NWDSRD ) = NEWNAM(1) Z(KORBGN+NWDSRD+1) = NEWNAM(2) Z(KORBGN+NWDSRD+2) = SOFEOG IWDS = NWDSRD + 3 CALL SUREAD (Z(KORBGN+IWDS),-2,NWDSRD,ITEST) IF (KORBGN+IWDS+NWDSRD+2 .GE. KORLEN) GO TO 230 Z(KORBGN+IWDS+NWDSRD ) = 0 Z(KORBGN+IWDS+NWDSRD+1) = SOFEOG IWDS = IWDS + NWDSRD + 2 ITEST = 3 CALL SFETCH (NEWNAM,ITEM,2,ITEST) IF (ITEST .NE. 3) GO TO 250 CALL SUWRT (Z(KORBGN),IWDS,3) IF (PONLY) GO TO 130 C C PROCESS PLTS ITEM C 60 CALL SFETCH (OLDNAM,4HPLTS,1,ITEST) IF (ITEST .EQ. 3) GO TO 70 CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) Z(KORBGN ) = NEWNAM(1) Z(KORBGN+1) = NEWNAM(2) ITEST = 3 CALL SFETCH (NEWNAM,4HPLTS,2,ITEST) IF (ITEST .NE. 3) GO TO 250 ITEST = 2 CALL SUWRT (Z(KORBGN),NWDSRD,ITEST) ITEST = 3 CALL SUWRT (Z(KORBGN),0,ITEST) C C PROCESS CSTM ITEM C 70 CALL SFETCH (OLDNAM,4HCSTM,1,ITEST) IF (ITEST .EQ. 3) GO TO 130 CALL SUREAD (Z(KORBGN),-2,NWDSRD,ITEST) IF (KORBGN+2*NWDSRD .GE. KORLEN) GO TO 230 Z(KORBGN ) = NEWNAM(1) Z(KORBGN+1) = NEWNAM(2) KORE = NWDSRD - 4 CALL SORT(0,0,14,1,Z(KORBGN+3),KORE) KORE = KORE/14 IF (KORBGN+2*NWDSRD+KORE .GE. KORLEN) GO TO 230 DO 80 I = 1, KORE 80 Z(KORBGN+NWDSRD+I-1) = 0 NBGSS = ITRLR(5)/4 DO 100 I = 1, NBGSS K = 4*(I-1) IF (Z(LOCBGS+K) .LE. 0) GO TO 100 DO 90 J = 1,KORE LOC = 14*(J-1) IF (Z(KORBGN+3+LOC) .NE. Z(LOCBGS+K)) GO TO 90 Z(KORBGN+NWDSRD+J-1) = 1 GO TO 100 90 CONTINUE 100 CONTINUE LOCNEW = 0 DO 120 I = 1,KORE IF (Z(KORBGN+NWDSRD+I-1) .EQ. 0) GO TO 120 LOCOLD = 14*(I-1) DO 110 J = 1,14 110 Z(KORBGN+NWDSRD+KORE+LOCNEW+J-1) = Z(KORBGN+3+LOCOLD+J-1) LOCNEW = LOCNEW + 14 120 CONTINUE IF (LOCNEW .EQ. 0) GO TO 130 ITEST = 3 CALL SFETCH (NEWNAM,4HCSTM,2,ITEST) CALL SUWRT (NEWNAM,2,2) CALL SUWRT (Z(KORBGN+NWDSRD+KORE),LOCNEW,2) CALL SUWRT (Z(KORBGN),0,3) C C OUTPUT EQSS ITEM C 130 CALL CLOSE (EQST,1) IF (ANDF(RSHIFT(IO,4),1) .NE. 1) GO TO 150 CALL SFETCH (NEWNAM,4HEQSS,1,ITEST) IF (ITEST .NE. 1) GO TO 250 CALL SUREAD (Z(KORBGN), 4,NWDSRD,ITEST) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) LOC = KORBGN + NWDSRD NCSUBS = NCSUBS + 1 DO 140 I = 1, NCSUBS CALL SUREAD (Z(LOC),-1,NWDSRD,ITEST) NAMLOC = KORBGN + 2*(I-1) CALL CMIWRT (1,NEWNAM,Z(NAMLOC),LOC,NWDSRD,Z,Z) 140 CONTINUE CALL SUREAD (Z(LOC),-1,NWDSRD,ITEST) IF ((LOC + NWDSRD) .GE. KORLEN) GO TO 230 CALL CMIWRT (8,NEWNAM,0,LOC,NWDSRD,Z,Z) C C OUTPUT BGSS ITEM C 150 IF (ANDF(RSHIFT(IO,5),1) .NE. 1) GO TO 160 CALL SFETCH (NEWNAM,4HBGSS,1,ITEST) IF (ITEST .NE. 1) GO TO 250 NGRP = 1 CALL SJUMP (NGRP) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) CALL CMIWRT (2,NEWNAM,NEWNAM,KORBGN,NWDSRD,Z,Z) C C OUTPUT CSTM ITEM C 160 IF (ANDF(RSHIFT(IO,6),1) .NE. 1) GO TO 170 CALL SFETCH (NEWNAM,4HCSTM,1,ITEST) IF (ITEST .EQ. 3) GO TO 170 NGRP = 1 CALL SJUMP (NGRP) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) CALL CMIWRT (3,NEWNAM,NEWNAM,KORBGN,NWDSRD,Z,Z) C C OUTPUT PLTS ITEM C 170 IF (ANDF(RSHIFT(IO,7),1) .NE. 1) GO TO 180 CALL SFETCH (NEWNAM,4HPLTS,1,ITEST) IF (ITEST .EQ. 3) GO TO 180 CALL SUREAD (Z(KORBGN), 3,NWDSRD,ITEST) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) CALL CMIWRT (4,NEWNAM,NEWNAM,KORBGN,NWDSRD,Z,Z) C C OUTPUT LODS ITEM C 180 IF (ANDF(RSHIFT(IO,8),1) .NE. 1) GO TO 200 CALL SFETCH (NEWNAM,ITEM,1,ITEST) IF (ITEST .EQ. 3) GO TO 200 CALL SUREAD (Z(KORBGN), 4,NWDSRD,ITEST) CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) LOC = KORBGN + NWDSRD ITYPE = 5 IF (ITEM .EQ. LOAP) ITYPE = 7 DO 190 I = 1,NCSUBS NAMLOC = KORBGN + 2*(I-1) CALL SUREAD (Z(LOC),-1,NWDSRD,ITEST) CALL CMIWRT (ITYPE,NEWNAM,Z(NAMLOC),LOC,NWDSRD,Z,Z) ITYPE = 6 190 CONTINUE C C OUTPUT MODAL DOF SUMMARY C 200 IF (ANDF(RSHIFT(IO,9),1) .NE. 1) GO TO 209 ITEM = ITMLST(3) ITMNAM(1) = OLDNAM(1) ITMNAM(2) = OLDNAM(2) CALL SFETCH (OLDNAM,ITEM,1,ITEST) IF (ITEST .NE. 1) GO TO 250 CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) CALL PAGE1 WRITE (IPRNTR,901) NEWNAM LINE = LINE + 11 NOFREQ = Z(KORBGN+3) LAMLOC = KORBGN MODUSE = LAMLOC + 7*NOFREQ + 1 CALL SUREAD (Z(KORBGN),-2,NWDSRD,ITEST) IF ((KORBGN + NWDSRD) .GE. KORLEN) GO TO 230 IF (USRMOD .GT. 1) GO TO 205 ITEM = ITMLST(1) ITMNAM(1) = NEWNAM(1) ITMNAM(2) = NEWNAM(2) CALL SFETCH (NEWNAM,ITEM,1,ITEST) IF (ITEST .NE. 1) GO TO 250 KORBGN = KORBGN + MODUSE + NOFREQ IF (KORBGN .GE. KORLEN) GO TO 230 CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) DO 201 I = 1,NCSUBS CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST) IF (KORBGN+NWDSRD .GE. KORLEN) GO TO 230 201 CONTINUE IPRB = 0 IF (FREBDY) IPRB = Z(KORBGN+1) - 1 NWDSRD = NWDSRD/3 LOCEQS = KORBGN DO 202 I = 1,NWDSRD J = 1 + 3*(I-1) IPID = Z(LOCEQS+J) IF (Z(LOCEQS+J-1) .GT. 100) GO TO 203 202 CONTINUE 203 KORBGN = KORBGN + 3*NWDSRD IPID = 2*IPID IF (KORBGN+IPID .GE. KORLEN) GO TO 230 CALL SUREAD (Z(KORBGN),IPID,NWDSRD,ITEST) IPS = Z(KORBGN+IPID-2) IF (.NOT. FREBDY) GO TO 205 DO 204 I = 1,FARIND J = 3*(I-1) K = 2*((I-1) + IPRB) 204 WRITE (IPRNTR,902) IZERO,ZERO,IZERO,Z(LOCEQS+J),Z(KORBGN+K) 205 INDEX1 = -3 IF (FREBDY) INDEX1 = 3*FARIND - 3 DO 208 I = 1,NOFREQ IF (LINE .LE. NLPP) GO TO 206 CALL PAGE1 WRITE (IPRNTR,901) NEWNAM LINE = LINE + 11 206 IF ((Z(MODUSE+I-1) .GT. 1) .OR. (USRMOD .GT. 1)) GO TO 207 INDEX1 = INDEX1 + 3 MODE = 7*(I-1) WRITE (IPRNTR,902) Z(LAMLOC+MODE),RZ(LAMLOC+MODE+4),Z(MODUSE+I-1), 1 Z(LOCEQS+INDEX1),IPS IPS = IPS + 1 GO TO 208 207 MODE = 7*(I-1) WRITE (IPRNTR,902) Z(LAMLOC+MODE),RZ(LAMLOC+MODE+4),Z(MODUSE+I-1) 208 LINE = LINE + 1 209 CONTINUE GO TO 300 C C PROCESS SYSTEM FATAL ERRORS C 210 IMSG = -1 GO TO 240 215 IMSG = -2 GO TO 240 220 IMSG = -3 GO TO 240 230 IMSG = -8 IFILE = 0 240 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) GO TO 300 C C PROCESS MODULE FATAL ERRORS C 250 GO TO (260,260,260,270,280,280), ITEST 260 CALL SMSG1 (-9,ITEM,ITMNAM,MODNAM) DRY = -2 GO TO 300 270 IMSG = -2 GO TO 290 280 IMSG = -3 290 CALL SMSG (IMSG,ITEM,ITMNAM) 300 RETURN C 901 FORMAT (1H0,36X,43HMODAL DOF SUMMARY FOR REDUCED SUBSTRUCTURE , 1 2A4, //30X,36HUSAGE CODES ARE 0 - RIGID BODY POINT, /46X, 2 25H1 - INCLUDED IN MODAL SET, /46X,20H2 - EXCLUDED FROM MO, 3 36HDAL SET BECAUSE OF NON-PARTICIPATION,/46X,10H3 - EXCLUD, 4 42HED FROM MODAL SET BECAUSE OF RANGE OR NMAX,//40X,4HMODE, 5 22X,15HUSAGE GRID, /39X,6HNUMBER,8X,6HCYCLES,8X, 6 26HCODE POINT ID SIL,/) 902 FORMAT (39X,I5,5X,1P,E13.6,6X,I1,6X,I8,4X,I6) C END ================================================ FILE: mis/mred2i.f ================================================ SUBROUTINE MRED2I (KODE,NUF,N2) C C THIS SUBROUTINE COMPUTES THE GS MATRIX FOR THE MRED2 MODULE. C INTEGER DRY,GBUF1,OTFILE,Z,TYPIN,TYPOUT,TYPINU, 1 QSMROW,QSMCOL,GS,QSM,DBLKOR,SGLKOR,QSMTYP DOUBLE PRECISION DZ DIMENSION MODNAM(2),ITRLR1(7),RZ(1),DZ(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / IDUM1,DRY,IDUM2,GBUF1,IDUM3(5),INFILE(12), 1 OTFILE(6),ISCR(10),KORLEN,KORBGN,IDUM6(14), 2 NMODES,MODLEN COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ IDUM4,IPRNTR COMMON /CONDAS/ IDUM5(4),FORPI2 COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR COMMON /UNPAKX/ TYPINU,IROWU,NROWU,INCRU EQUIVALENCE (LAMAMR,INFILE(2)),(QSM,INFILE(12)), 1 (GS,ISCR(7)),(RZ(1),Z(1)),(DZ(1),Z(1)) DATA MODNAM/ 4HMRED,4H2I /, IDIAG / 3 / C C TEST OPERATION MODE C IF (DRY .EQ. -2) RETURN C C FORM GS MATRIX C C ** ** C * * T C ** ** * . 0 * ** ** C * * * . * * * 2 C * GS * =-* 1/K * * QSM * WHERE K = M W C * * * . * * * I I C ** ** * 0 . * ** ** C * * C ** ** C ITRLR1(1) = QSM CALL RDTRL (ITRLR1) IF (ITRLR1(1) .LT. 0) GO TO 100 QSMROW = ITRLR1(2) QSMCOL = ITRLR1(3) C C 2 C FORM K = 1.0 / (M W ) C I I C IF (KORBGN+7+QSMROW .GE. KORLEN) GO TO 80 IFILE = LAMAMR CALL GOPEN (LAMAMR,Z(GBUF1),0) CALL FWDREC (*70,LAMAMR) NMODES = 0 10 CALL READ (*60,*15,LAMAMR,Z(KORBGN),7,0,NWDSRD) RZ(KORBGN+7+NMODES) = 1.0/(FORPI2*RZ(KORBGN+5)*(RZ(KORBGN+4)**2)) NMODES = NMODES + 1 IF (KORBGN+7+NMODES .GE. KORLEN) GO TO 80 GO TO 10 15 CALL CLOSE (LAMAMR,1) IF (NMODES .NE. QSMROW) GO TO 110 MODLEN = NMODES C C READ QSM INTO CORE C KORE = KORBGN KORBGN = KORBGN + 7 + ITRLR1(2) IF (KORBGN+QSMROW*(QSMCOL+1) .GE. KORLEN) GO TO 80 TYPINU = ITRLR1(5) IROWU = 1 NROWU = ITRLR1(3) INCRU = 1 QSMTYP = ITRLR1(5) DBLKOR = KORBGN/2 + 1 SGLKOR = 2*DBLKOR - 1 CALL GOPEN (QSM,Z(GBUF1),0) IF (QSMTYP .EQ. 2) GO TO 26 LOCQSM = SGLKOR DO 25 I = 1,QSMROW CALL UNPACK (*20,QSM,RZ(SGLKOR)) GO TO 25 20 DO 22 J = 1,QSMCOL 22 RZ(SGLKOR+J-1) = 0.0E0 25 SGLKOR = SGLKOR + ITRLR1(3) KORBGN = SGLKOR GO TO 30 26 LOCQSM = DBLKOR DO 29 I = 1,QSMROW CALL UNPACK (*27,QSM,DZ(DBLKOR)) GO TO 29 27 DO 28 J = 1,QSMCOL 28 DZ(DBLKOR+J-1) = 0.0D0 29 DBLKOR = DBLKOR + ITRLR1(3) KORBGN = DBLKOR 30 CALL CLOSE (QSM,1) C C FORM GS MATRIX C TYPIN = ITRLR1(5) TYPOUT = ITRLR1(5) IROW = 1 NROW = QSMROW INCR = 1 CALL MAKMCB (ITRLR1,GS,QSMROW,IDIAG,TYPIN) DBLKOR = KORBGN/2 + 1 SGLKOR = 2*DBLKOR - 1 CALL GOPEN (GS,Z(GBUF1),1) DO 35 I = 1,QSMCOL DO 34 J = 1,QSMROW K = 3*(J-1) IF (QSMTYP .EQ. 2) GO TO 32 RZ(SGLKOR+J-1) = RZ(KORE+7+J-1)*RZ(LOCQSM+K) GO TO 34 32 CONTINUE DZ(DBLKOR+J-1) = RZ(KORE+7+J-1)*DZ(LOCQSM+K) 34 CONTINUE 35 CALL PACK (DZ(DBLKOR),GS,ITRLR1) KORBGN = KORE CALL CLOSE (GS,1) CALL WRTTRL (ITRLR1) RETURN C C PROCESS SYSTEM FATAL ERRORS C 60 IMSG = -2 GO TO 90 70 IMSG = -3 GO TO 90 80 IMSG = -8 IFILE = 0 90 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN C C PROCESS MODULE FATAL ERRORS C 100 WRITE (IPRNTR,900) UFM GO TO 120 110 WRITE (IPRNTR,901) UFM,QSMROW,QSMCOL,NMODES 120 DRY = -2 RETURN C 900 FORMAT (A23,' 6638, IN MODULE MREDUCE WITH USERMODE=2, THE ', 1 'CONSTRAINT FORCES MATRIX (QSM) CANNOT BE PURGED.') 901 FORMAT (A23,' 6634, IN MODULE MREDUCE WITH USERMODE=2, THE ', 1 'CONSTRAINT FORCES MATRIX (',I3,3H X ,I3,1H), /30X, 2 'IS INCOMPATABLE WITH THE NUMBER OF MODES (',I3,2H).) C END ================================================ FILE: mis/mred2j.f ================================================ SUBROUTINE MRED2J (NUF,N2) C C THIS SUBROUTINE PARTITIONS THE PHISS MATRIX FOR THE MRED2 MODULE. C INTEGER DRY,GBUF1,OTFILE,TYPIN,TYPOUT,PHISS,RPRTN, 1 ITRLR1(7),MODNAM(2) COMMON /BLANK / IDUM1,DRY,IDUM4,GBUF1,IDUM2(5),INFILE(12), 1 OTFILE(6),ISCR(10),KORLEN,KORBGN,IDUM3(14),NMODES COMMON /ZZZZZZ/ RZ(1) COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR EQUIVALENCE (PHISS,INFILE(3)),(PHISS1,ISCR(8)), 1 (PHISS2,ISCR(9)) ,(RPRTN,ISCR(10)) DATA MODNAM/ 4HMRED,4H2J / C C SET UP PARTITIONING VECTOR C IF (DRY .EQ. -2) RETURN TYPIN = 1 TYPOUT = 1 IROW = 1 INCR = 1 C C COMMENTS FROM G.CHAN/UNISYS 4/92 C ORIGINALLY AT THIS POINT, THE FOLLOWING DO 20 LOOP IS IN ERROR C 1. KOLUMN AND J ARE NOT DEFINED C 2. NROW AND ITRLR1 ARE ALSO NOT YET DEFINED C C MY BEST GUESS IS THE NEXT 10 LINES THAT FOLLOW C IFILE = PHISS ITRLR1(1) = PHISS CALL RDTRL (ITRLR1) IF (ITRLR1(1) .LT. 0) GO TO 30 KOLUMN = ITRLR1(2) NROW = ITRLR1(3) DO 20 I = 1,KOLUMN RZ(KORBGN+I-1) = 0.0 IF (I .GT. NUF) RZ(KORBGN+I-1) = 1.0 20 CONTINUE C IFORM = 7 CALL MAKMCB (ITRLR1,RPRTN,NROW,IFORM,ITRLR1(5)) CALL GOPEN (RPRTN,RZ(GBUF1),1) CALL PACK (RZ(KORBGN),RPRTN,ITRLR1) CALL CLOSE (RPRTN,1) CALL WRTTRL (ITRLR1) C C PARTITION PHISS MATRIX C C ** ** ** ** C * * * . * C * PHISS * = * PHISS1 . PHISS2 * C * * * . * C ** ** ** ** C ITRLR1(1) = PHISS CALL RDTRL (ITRLR1) N2 = NMODES - NUF CALL GMPRTN (PHISS,PHISS1,0,PHISS2,0,RPRTN,0,NUF,N2,RZ(KORBGN), 1 KORLEN) RETURN C C PROCESS SYSTEM FATAL ERRORS C 30 IMSG = -1 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN END ================================================ FILE: mis/mred2l.f ================================================ SUBROUTINE MRED2L (NUF,N2,NUS,UFBITS) C C THIS SUBROUTINE PREFORMS PRELIMINARY CALCULATIONS AND MERGES OF C THE HK MATRIX FOR THE MRED2 MODULE. C EXTERNAL ANDF INTEGER DRY,GBUF1,SBUF1,SBUF2,SBUF3,OTFILE,T,SIGNAB,SIGNC, 1 PREC,SCR,TYPIN,TYPOUT,ANDF,ROWS,UFBITS,PHISS1, 2 PHISS,DBLKOR,SGLKOR DOUBLE PRECISION DZ DIMENSION ITRLR1(7),ITRLR2(7),MODNAM(2),ISUB(4),RZ(1),DZ(1) COMMON /BLANK / IDUM1,DRY,IDUM2,GBUF1,IDUM3(2),SBUF1,SBUF2,SBUF3, 1 INFILE(12),OTFILE(6),ISCR(10),KORLEN,KORBGN, 2 IDUM4(14),MODPTS,IDUM5(2),LSTZWD COMMON /ZZZZZZ/ Z(1) COMMON /MPYADX/ ITRLRA(7),ITRLRB(7),ITRLRC(7),ITRLRD(7),NZ,T, 1 SIGNAB,SIGNC,PREC,SCR COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR EQUIVALENCE (GS,ISCR(7)),(PHISS1,ISCR(8)),(PHISS2,ISCR(9)), 1 (IDENT,ISCR(5)),(PHISS,ISCR(6)),(PHIGS,ISCR(2)), 2 (PHIS12,ISCR(2)),(PHI12I,ISCR(8)),(RPRTN,ISCR(5)), 3 (CPRTN,ISCR(10)),(RZ(1),Z(1)),(DZ(1),Z(1)) DATA MODNAM/ 4HMRED,4H2L / C C -1 C COMPUTE PHISS1 C IF (DRY .EQ. -2) RETURN CALL SOFCLS IFILE = PHISS1 ITRLR1(1) = PHISS1 CALL RDTRL (ITRLR1) CALL GOPEN (PHISS1,Z(GBUF1),0) KOLUMN = ITRLR1(2) ROWS = ITRLR1(3) ITEST = KOLUMN * ROWS IF ((KORBGN+ITEST+(3*KOLUMN)) .GE. KORLEN) GO TO 190 KORE = 0 DBLKOR = (KORBGN/2) + 1 SGLKOR = (2*DBLKOR) - 1 IF (ITRLR1(5) .EQ. 2) GO TO 15 DO 10 I = 1,KOLUMN CALL READ (*170,*180,PHISS1,Z(SGLKOR+KORE),ROWS,0,NWDSRD) 10 KORE = KORE + ROWS ICORE = ((SGLKOR+ITEST)/2) + 1 GO TO 19 15 DO 18 I = 1,KOLUMN CALL READ (*170,*180,PHISS1,DZ(DBLKOR+KORE),ROWS,0,NWDSRD) 18 KORE = KORE + ROWS ICORE = DBLKOR + ITEST 19 CALL CLOSE (PHISS1,1) INVERT = 0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (ROWS,DZ(DBLKOR),KOLUMN,B,INVERT,DETERM,ISING, 1 DZ(ICORE)) IF (ISING .EQ. 2) GO TO 192 KORE = 0 INCR = 1 TYPIN = 1 TYPOUT= 1 IROW = 1 NROW = KOLUMN CALL MAKMCB (ITRLR2,PHISS1,NROW,ITRLR1(4),ITRLR1(5)) CALL GOPEN (PHISS1,Z(GBUF1),1) DO 29 I = 1,ROWS IF (ITRLR1(5) .EQ. 2) GO TO 25 CALL PACK (RZ(SGLKOR+KORE),PHISS1,ITRLR2) GO TO 29 25 CALL PACK (DZ(DBLKOR+KORE),PHISS1,ITRLR2) 29 KORE = KORE + ROWS CALL CLOSE (PHISS1,1) C C COMPUTE PHIGS C C -1 C ** ** ** ** ** ** ** ** C * * * * * * * * C * PHIGS * = -* PHISS1 * * PHISS * * GS * C * * * * * * * * C ** ** ** ** ** ** ** ** C ITRLR1(1) = PHISS1 ITRLR2(1) = PHISS CALL RDTRL (ITRLR1) CALL RDTRL (ITRLR2) ICOL = ITRLR2(3) DO 30 I = 1,7 ITRLRA(I) = ITRLR1(I) ITRLRB(I) = ITRLR2(I) 30 ITRLRC(I) = 0 CALL MAKMCB (ITRLRD,PHISSI,ITRLR2(3),ITRLR2(4),ITRLR2(5)) T = 0 SIGNAB = -1 SIGNC = 1 PREC = 0 SCR = ISCR(10) NZ = LSTZWD - ((2*DBLKOR)-1) CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (ITRLRD) ITRLR1(1) = GS CALL RDTRL (ITRLR1) DO 40 I = 1,7 ITRLRA(I) = ITRLRD(I) 40 ITRLRB(I) = ITRLR1(I) CALL MAKMCB (ITRLRD,PHIGS,ITRLR1(3),ITRLR1(4),ITRLR1(5)) SIGNAB = 1 CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (ITRLRD) C C FORM HKPG MATRIX C C ** ** C * . * C * . -1 * C ** ** * PHIGS . PHISS * C * * * . * C * HKPG * = *.................* C * * * . * C ** ** * 0 . 0 * C * . * C ** ** C NROW = NUF + N2 DO 90 I = 1,NROW RZ(KORBGN+I-1) = 0.0 IF (I .GT. N2) RZ(KORBGN+I-1) = 1.0 90 CONTINUE TYPIN = 1 TYPOUT = 1 IROW = 1 INCR = 1 IFORM = 7 CALL MAKMCB (ITRLR1,CPRTN,NROW,IFORM,TYPIN) CALL GOPEN (CPRTN,Z(GBUF1),1) CALL PACK (Z(KORBGN),CPRTN,ITRLR1) CALL CLOSE (CPRTN,1) CALL WRTTRL (ITRLR1) NROW = NUS + NUF IFILE = USETMR CALL GOPEN (USETMR,Z(GBUF1),0) DO 100 I = 1,NROW CALL READ (*170,*180,USETMR,Z(KORBGN),1,0,NWDSRD) RZ(KORBGN+I) = 0.0 IF (ANDF(Z(KORBGN),UFBITS) .NE. 0) RZ(KORBGN+I) = 1.0 100 CONTINUE CALL CLOSE (USETMR,1) NROW = ROWS ROWS = NUF + N2 CALL MAKMCB (ITRLR2,RPRTN,NROW,IFORM,TYPIN) CALL GOPEN (RPRTN,Z(GBUF1),1) CALL PACK (Z(KORBGN+1),RPRTN,ITRLR2) CALL CLOSE (RPRTN,1) CALL WRTTRL (ITRLR2) ISUB(1) = NUF ISUB(2) = N2 ISUB(3) = NUS ISUB(4) = N2 ITYPE = 2 CALL GMMERG (HKPG,PHIGSH,0,PHISS1,0,RPRTN,CPRTN,ISUB,ITYPE, 1 Z(KORBGN),KORLEN) C C COMPUTE PHIS12 C C -1 C ** ** ** ** ** ** C * * * * * * C * PHIS12 * = -* PHISS1 * * PHISS2 * C * * * * * * C ** ** ** ** ** ** C ITRLR1(1) = PHISS1 ITRLR2(1) = PHISS2 CALL RDTRL (ITRLR1) CALL RDTRL (ITRLR2) MODPTS = ITRLR1(3) + ITRLR2(3) DO 110 I = 1,7 ITRLRA(I) = ITRLR1(I) 110 ITRLRB(I) = ITRLR2(I) CALL MAKMCB (ITRLRD,PHIS12,ITRLR2(3),ITRLR2(4),ITRLR2(5)) SIGNAB = -1 CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR)) CALL WRTTRL (ITRLRD) C C GENERATE IDENTITY MATRIX C NROW = ITRLRD(3) CALL MAKMCB (ITRLR1,IDENT,NROW,ITRLRD(4),ITRLRD(5)) CALL GOPEN (IDENT,Z(GBUF1),1) DO 130 I = 1,NROW DO 120 J = 1,NROW RZ(KORBGN+J-1) = 0.0 IF (J .EQ. I) RZ(KORBGN+J-1) = 1.0 120 CONTINUE 130 CALL PACK (Z(KORBGN),IDENT,ITRLR1) CALL CLOSE (IDENT,1) CALL WRTTRL (ITRLR1) C C GENERATE PHI12I MATRIX C C ** ** C * * C ** ** * PHIS12 * C * * * * C * PHI12I * = *........* C * * * * C ** ** * I * C * * C ** ** C ITRLR1(1) = PHIS12 CALL RDTRL (ITRLR1) ISUB(3) = ITRLR1(3) ISUB(4) = NROW NROW = ITRLR1(2) + NROW DO 140 I = 1,NROW RZ(KORBGN+I-1) = 0.0 IF (I .GT. ITRLR1(2)) RZ(KORBGN+I-1) = 1.0 140 CONTINUE INCR = 1 CALL MAKMCB (ITRLR2,CPRTN,NROW,IFORM,TYPIN) CALL GOPEN (CPRTN,Z(GBUF1),1) CALL PACK (Z(KORBGN),RPRTN,ITRLR2) CALL CLOSE (CPRTN,1) CALL WRTTRL (ITRLR2) CALL GMMERG (PHI12I,PHIS12,IDENT,0,0,0,CPRTN,ISUB,ITYPE, 1 Z(KORBGN),KORLEN) CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) RETURN C C PROCESS SYSTEM FATAL ERRORS C 170 IMSG = -2 GO TO 200 180 IMSG = -3 GO TO 200 190 IMSG = -8 GO TO 194 192 IMSG = -37 194 IFILE = 0 200 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN END ================================================ FILE: mis/mred2m.f ================================================ SUBROUTINE MRED2M (NUF,N2,NUS) C C THIS SUBROUTINE FORMS THE HK MATRIX FOR THE MRED2 MODULE. C INTEGER DRY,GBUF1,OTFILE,Z,TYPIN,TYPOUT,HKPG,PHI12I,HK, 1 RPRTN,CPRTN DIMENSION ITRLR1(7),MODNAM(2),ITRLR2(7),ISUB(4),RZ(1) COMMON /BLANK / IDUM1,DRY,IDUM4,GBUF1,IDUM2(17),OTFILE(6), 1 ISCR(10),KORLEN,KORBGN,IDUM3(14),NMODES COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR EQUIVALENCE (HK,ISCR(2)),(IDENT,ISCR(8)),(HKPG,ISCR(3)), 1 (PHI12I,ISCR(8)),(CPRTN,ISCR(9)),(RPRTN,ISCR(9)) EQUIVALENCE (RZ(1),Z(1)) DATA MODNAM/ 4HMRED,4H2M / C C FORM HK MATRIX C C ** ** ** ** C * * * . * C * HK * = * HKPG . PHI12I * C * * * . * C ** ** ** ** C IF (DRY .EQ. -2) RETURN IF (NUF .EQ. 0) GO TO 30 ITRLR1(1) = HKPG CALL RDTRL (ITRLR1) ITRLR2(1) = PHI12I CALL RDTRL (ITRLR2) INCR = 1 TYPIN = 1 TYPOUT = 1 IROW = 1 NROW = ITRLR1(3) + ITRLR2(3) ISUB(1) = ITRLR1(3) ISUB(2) = ITRLR2(3) DO 20 I = 1,NROW RZ(KORBGN+I-1) = 0.0 IF (I .GT. ITRLR1(3)) RZ(KORBGN+I-1) = 1.0 20 CONTINUE IFORM = 7 CALL MAKMCB (ITRLR2,RPRTN,NROW,IFORM,TYPIN) CALL GOPEN (RPRTN,Z(GBUF1),1) CALL PACK (Z(KORBGN),RPRTN,ITRLR2) CALL CLOSE (RPRTN,1) CALL WRTTRL (ITRLR2) ITYPE = 2 CALL GMMERG (HK,HKPG,0,PHI12I,0,RPRTN,0,ISUB,ITYPE,Z(KORBGN), 1 KORLEN) RETURN C C NO UF POINTS C C ** ** ** ** C * * * . * C * HK * = * 0 . I * C * * * . * C ** ** ** ** C 30 TYPIN = 1 TYPOUT = 1 IROW = 1 NROW = NMODES INCR = 1 IFORM = 8 IF (KORBGN+NMODES .GE. KORLEN) GO TO 100 C C GENERATE IDENTITY MATRIX C CALL MAKMCB (ITRLR2,IDENT,NMODES,IFORM,TYPIN) CALL GOPEN (IDENT,Z(GBUF1),1) DO 70 I = 1,NMODES DO 60 J = 1,NMODES RZ(KORBGN+J-1) = 0.0 IF (J .EQ. I) RZ(KORBGN+J-1) = 1.0 60 CONTINUE 70 CALL PACK (Z(KORBGN),IDENT,ITRLR2) CALL CLOSE (IDENT,1) CALL WRTTRL (ITRLR2) C C GENERATE ROW PARTITIONING VECTOR C NROW = NUS + NMODES IF (KORBGN+NROW .GE. KORLEN) GO TO 100 J = NROW DO 90 I = 1,J RZ(KORBGN+I-1) = 0.0 IF (I .GT. NUS) RZ(KORBGN+I-1) = 1.0 90 CONTINUE IFORM = 7 CALL MAKMCB (ITRLR2,RPRTN,NROW,IFORM,TYPIN) CALL GOPEN (RPRTN,Z(GBUF1),1) CALL PACK (Z(KORBGN),RPRTN,ITRLR2) CALL CLOSE (RPRTN,1) CALL WRTTRL (ITRLR2) C C FORM HK MATRIX C ISUB(1) = NUS ISUB(2) = NMODES ITYPE = 2 CALL GMMERG (HK,0,0,IDENT,0,RPRTN,0,ISUB,ITYPE,Z(KORBGN),KORLEN) RETURN C C PROCESS SYSTEM ERRORS C 100 IMSG =-8 IFILE = 0 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN C END ================================================ FILE: mis/mred2n.f ================================================ SUBROUTINE MRED2N C C THIS SUBROUTINE CALCULATES THE K MATRIX FOR THE MRED2 MODULE. C INTEGER DRY,GBUF1,GBUF2,SBUF1,SBUF2,SBUF3,OTFILE,PREC, 1 TYPIN,TYPOUT,HK,DBLKOR DOUBLE PRECISION DZ DIMENSION ITRLR1(7),ITRLR2(7),MODNAM(2),RZ(1),DZ(1) COMMON /BLANK / IDUM1,DRY,IDUM2,GBUF1,GBUF2,IDUM3,SBUF1,SBUF2, 1 SBUF3,INFILE(12),OTFILE(6),ISCR(10),KORLEN,KORBGN, 2 IDUM4(14),NMODES,IDUM6(2),LSTZWD COMMON /ZZZZZZ/ Z(1) COMMON /CONDAS/ IDUM5(4),FORPI2 COMMON /MPY3TL/ ITRLRA(7),ITRLRB(7),ITRLRE(7),ITRLRC(7),JSCR(3), 1 LKORE,ICODE,PREC,DUMMY(13) COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR EQUIVALENCE (LAMAMR,INFILE(2)),(RZ(1),Z(1)),(DZ(1),Z(1)), 1 (HK,ISCR(2)),(KMW2,ISCR(5)),(K,ISCR(3)) DATA MODNAM/ 4HMRED,4H2N / C C 2 C FORM KMW2 = M W MATRIX C I I C IF (DRY .EQ. -2) RETURN IF (KORBGN+7+NMODES .GE. KORLEN) GO TO 75 IFILE = LAMAMR CALL GOPEN (LAMAMR,Z(GBUF1),0) CALL FWDREC (*70,LAMAMR) IFORM = 3 ITYPE = 1 CALL MAKMCB (ITRLR1,KMW2,NMODES,IFORM,ITYPE) TYPIN = 1 TYPOUT= 1 IROW = 1 NROW = NMODES INCR = 1 CALL GOPEN (KMW2,Z(GBUF2),1) DO 20 I = 1,NMODES CALL READ (*60,*70,LAMAMR,Z(KORBGN),7,0,NWDSRD) DO 10 J = 1,NMODES RZ(KORBGN+7+J-1) = 0.0 IF (J .EQ. I) 1 RZ(KORBGN+7+J-1) = FORPI2*RZ(KORBGN+5)*(RZ(KORBGN+4)**2) 10 CONTINUE 20 CALL PACK (Z(KORBGN+7),KMW2,ITRLR1) CALL CLOSE (LAMAMR,1) CALL CLOSE (KMW2,1) CALL WRTTRL (ITRLR1) C C FORM K MATRIX C C T C ** ** C ** ** ** ** * . 0 * ** ** C * * * * * . * * * 2 C * K * = * HK * * K * * HK * WHERE K = M W C * * * * * . * * * I I C ** ** ** ** * 0 . * ** ** C ** ** C ITRLR2(1) = HK CALL RDTRL (ITRLR2) DO 30 I = 1,7 ITRLRA(I) = ITRLR2(I) ITRLRB(I) = ITRLR1(I) 30 ITRLRE(I) = 0 IPRC = 1 ITYP = 0 IF ((ITRLRA(5) .EQ. 2) .OR. (ITRLRA(5) .EQ. 4)) IPRC = 2 IF ((ITRLRB(5) .EQ. 2) .OR. (ITRLRB(5) .EQ. 4)) IPRC = 2 IF (ITRLRA(5) .GE. 3) ITYP = 2 IF (ITRLRB(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP IFORM = 6 CALL MAKMCB (ITRLRC,K,ITRLR2(3),IFORM,ITYPE) JSCR(1) = ISCR(8) JSCR(2) = ISCR(6) JSCR(3) = ISCR(2) ICODE = 0 PREC = 0 DBLKOR = (KORBGN/2) + 1 LKORE = LSTZWD - (2*DBLKOR - 1) CALL SOFCLS CALL MPY3DR (DZ(DBLKOR)) CALL WRTTRL (ITRLRC) CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) RETURN C C PROCESS SYSTEM FATAL ERRORS C 60 IMSG = -2 GO TO 80 70 IMSG = -3 GO TO 80 75 IMSG = -8 IFILE = 0 80 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN END ================================================ FILE: mis/mred2o.f ================================================ SUBROUTINE MRED2O (NUS) C C THIS SUBROUTINE FORMS THE M MATRIX FOR THE MRED2 MODULE. C INTEGER DRY,GBUF1,GBUF2,SBUF1,SBUF2,SBUF3,OTFILE,Z, 1 TYPIN,TYPOUT,PREC,TYPEA,TYPEB,HK,GS,RPRTN,HM, 2 GSZERO,DBLKOR DOUBLE PRECISION DZ DIMENSION ITRLR1(7),ITRLR2(7),MODNAM(2),ISUB(4), 1 RZ(1),BLOCK(11),DZ(1) COMMON /BLANK / IDUM1,DRY,IDUM2,GBUF1,GBUF2,IDUM3,SBUF1,SBUF2, 1 SBUF3,INFILE(12),OTFILE(6),ISCR(10),KORLEN,KORBGN, 2 IDUM5(14),NMODES,IDUM4(2),LSTZWD COMMON /ZZZZZZ/ Z(1) COMMON /MPY3TL/ ITRLRA(7),ITRLRB(7),ITRLRE(7),ITRLRC(7),JSCR(3), 1 LKORE,ICODE,PREC,DUMMY(13) COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR EQUIVALENCE (LAMAMR,INFILE(2)),(GS,ISCR(7)),(DZ(1),Z(1)), 1 (HK,ISCR(2)),(KMW2,ISCR(5)),(HM,ISCR(9)), 2 (GSZERO,ISCR(10)),(M,ISCR(10)),(RPRTN,ISCR(8)), 3 (RZ(1),Z(1)),(TYPEA,BLOCK(1)),(TYPEB,BLOCK(7)) DATA MODNAM/ 4HMRED,4H2O / C C FORM HM MATRIX C C ** ** ** ** ** ** C * * * * * . . * C * HM * = * HK * + * GS . 0 . 0 * C * * * * * . . * C ** ** ** ** ** ** C IF (DRY .EQ. -2) RETURN IF (NUS .EQ. 0) GO TO 60 C C GENERATE ROW PARTITION VECTOR C ITRLR1(1) = HK CALL RDTRL (ITRLR1) ITRLR2(1) = GS CALL RDTRL (ITRLR2) TYPIN = 1 TYPOUT= 1 IROW = 1 NROW = ITRLR1(2) INCR = 1 DO 40 I = 1,NROW RZ(KORBGN+I-1) = 0.0 IF (I .GT. ITRLR2(2)) RZ(KORBGN+I-1) = 1.0 40 CONTINUE IFORM = 7 CALL MAKMCB (ITRLR2,RPRTN,NROW,IFORM,TYPIN) CALL GOPEN (RPRTN,Z(GBUF1),1) CALL PACK (Z(KORBGN),RPRTN,ITRLR2) CALL CLOSE (RPRTN,1) CALL WRTTRL (ITRLR2) C C MERGE GS, ZERO MATRICES C ISUB(1) = ITRLR2(2) ISUB(2) = ITRLR1(2) - ITRLR2(2) CALL GMMERG (GSZERO,GS,0,0,0,RPRTN,0,ISUB,ITRLR2(5),Z(KORBGN), 1 KORLEN) C C FORM HM MATRIX C ITRLR2(1) = GSZERO CALL RDTRL (ITRLR2) DO 50 I = 1,11 50 BLOCK(I) = 0.0 BLOCK(2) = 1.0 BLOCK(8) = 1.0 TYPEA = ITRLR1(5) TYPEB = ITRLR2(5) IOP = 1 CALL SOFCLS CALL SSG2C (HK,GSZERO,HM,IOP,BLOCK) GO TO 70 C C IF NO US POINTS C C ** ** ** ** C * * * * C * HM * = * HK * C * * * * C ** ** ** ** C 60 HM = HK CALL SOFCLS C C FORM KMW2 = M MATRIX C I C 70 IFILE = LAMAMR CALL GOPEN (LAMAMR,Z(GBUF1),0) CALL FWDREC (*140,LAMAMR) IFORM = 3 ITYPE = 1 CALL MAKMCB (ITRLR1,KMW2,NMODES,IFORM,ITYPE) TYPIN = 1 TYPOUT= 1 IROW = 1 NROW = NMODES INCR = 1 CALL GOPEN (KMW2,Z(GBUF2),1) DO 90 I = 1,NMODES CALL READ (*130,*140,LAMAMR,Z(KORBGN),7,0,NWDSRD) DO 80 J = 1,NMODES RZ(KORBGN+7+J-1) = 0.0 IF (J .EQ. I) RZ(KORBGN+7+J-1) = RZ(KORBGN+5) 80 CONTINUE 90 CALL PACK (Z(KORBGN+7),KMW2,ITRLR1) CALL CLOSE (LAMAMR,1) CALL CLOSE (KMW2,1) CALL WRTTRL (ITRLR1) C C FORM M MATRIX C C T C ** ** ** ** ** ** C ** ** * * * . * * * C * * * * * . * * * C * M * = * HM * * M * * HM * WHERE M = M C * * * * * . * * * I C ** ** * * * . * * * C ** ** ** ** ** ** C ITRLR1(1) = HM ITRLR2(1) = KMW2 CALL RDTRL (ITRLR1) CALL RDTRL (ITRLR2) DO 100 I = 1,7 ITRLRA(I) = ITRLR1(I) ITRLRB(I) = ITRLR2(I) 100 ITRLRE(I) = 0 IPRC = 1 ITYP = 0 IF ((ITRLRA(5) .EQ. 2) .OR. (ITRLRA(5) .EQ. 4)) IPRC = 2 IF ((ITRLRB(5) .EQ. 2) .OR. (ITRLRB(5) .EQ. 4)) IPRC = 2 IF (ITRLRA(5) .GE. 3) ITYP = 2 IF (ITRLRB(5) .GE. 3) ITYP = 2 ITYPE = IPRC + ITYP IFORM = 6 CALL MAKMCB (ITRLRC,M,ITRLR1(3),IFORM,ITYPE) JSCR(1) = ISCR(7) JSCR(2) = ISCR(8) JSCR(3) = ISCR(6) ICODE = 0 PREC = 0 DBLKOR = (KORBGN/2) + 1 LKORE = LSTZWD - (2*DBLKOR - 1) CALL MPY3DR (DZ(DBLKOR)) CALL WRTTRL (ITRLRC) CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3)) RETURN C C PROCESS SYSTEM FATAL ERRORS C 130 IMSG = -2 GO TO 150 140 IMSG = -3 150 CALL SOFCLS CALL MESAGE (IMSG,IFILE,MODNAM) RETURN END ================================================ FILE: mis/mred2p.f ================================================ SUBROUTINE MRED2P (NUS,NUF,N2) C C THIS SUBROUTINE OUTPUTS THE HAB MATRIX TO THE SOF AS THE HORG ITEM C FOR THE MRED2 MODULE. C INTEGER DRY,GBUF1,OTFILE,Z,TYPIN,TYPOUT,HAB DIMENSION RZ(1),MODNAM(2),ITRLR1(7) COMMON /BLANK / IDUM1,DRY,IDUM2,GBUF1,IDUM3(17),OTFILE(6), 1 ISCR(10),KORLEN,KORBGN,OLDNAM(2),IDUM4(12),NMODES COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR COMMON /SYSTEM/ IDUM5,IPRNTR EQUIVALENCE (HAB,ISCR(2)),(RZ(1),Z(1)) DATA MODNAM/ 4HMRED,4H2P / DATA ITEM / 4HHORG/ C C FORM HAB MATRIX C C ** ** ** ** C * * * . * C * HAB * = * I . 0 * C * * * . * C ** ** ** ** C IF (DRY .EQ. -2) GO TO 160 KOLMNS = NUS + NUF + N2 IF (N2 .EQ. 0) KOLMNS = KOLMNS + (NMODES - NUF) TYPIN = 1 TYPOUT = 1 IROW = 1 NROW = NUS + NUF INCR = 1 IFORM = 2 CALL MAKMCB (ITRLR1,HAB,NROW,IFORM,TYPIN) CALL GOPEN (HAB,Z(GBUF1),1) DO 20 I = 1,KOLMNS DO 10 J = 1,NROW RZ(KORBGN+J-1) = 0.0 IF (I .GT. NUS+NUF) GO TO 10 IF (J .EQ. I) RZ(KORBGN+J-1) = 1.0 10 CONTINUE 20 CALL PACK (Z(KORBGN),HAB,ITRLR1) CALL CLOSE (HAB,1) CALL WRTTRL (ITRLR1) C C STORE HAB MATRIX AS HORG ON SOF C CALL MTRXO (HAB,OLDNAM,ITEM,0,ITEST) IF (ITEST .NE. 3) GO TO 70 GO TO 160 C C PROCESS MODULE FATAL ERRORS C 70 GO TO (80,90,100,110,120,140), ITEST 80 IMSG = -9 GO TO 150 90 IMSG = -11 GO TO 150 100 IMSG = -1 GO TO 130 110 IMSG = -2 GO TO 130 120 IMSG = -3 130 CALL SMSG (IMSG,ITEM,OLDNAM) GO TO 160 140 IMSG = -10 150 DRY = -2 CALL SMSG1 (IMSG,ITEM,OLDNAM,MODNAM) 160 RETURN END ================================================ FILE: mis/mrge.f ================================================ SUBROUTINE MRGE (LIST, N, STRING, M) C***** C MRGE IS A MERGE ROUTINE. GIVEN A SORTED LIST AND A SORTED STRING, C MRGE ADDS THE ENTRIES IN THE STRING TO THE LIST IN THEIR APPROPRIATE C POSITIONS. DUPLICATES ARE DISCARDED. C C ARGUMENTS C C LIST --- THE ARRAY CONTAINING THE SORTED LIST C N --- THE NUMBER OF TERMS BEFORE AND AFTER THE MERGE C STRING --- THE ARRAY CONTAINING THE SORTED STRING C M --- THE NUMBER OF TERMS IN THE STRING C C***** INTEGER LIST(1), STRING(1) C C LOCATE THE POSITION IN THE LIST OF THE FIRST TERM IN THE STRING C KK = 1 ID = STRING(KK) CALL BISLOC (*12, ID, LIST, 1, N, K) KSTART = MIN0( K+1, N ) K2 = 2 GO TO 13 12 KSTART = MAX0( 1, K-1 ) K2 = 1 C C CREATE A HOLE IN THE LIST BY MOVING THE END OF THE LIST. C 13 K = N 14 LIST(K+M) = LIST(K) K = K - 1 IF( K .GE. KSTART ) GO TO 14 K1 = KSTART + M NM = N + M K = KSTART C C NOW ADD TO THE LIST BY MERGING FROM THE TWO STRINGS C 16 IF( K1 .GT. NM ) GO TO 60 IF( K2 .GT. M ) GO TO 50 IF (LIST(K1) - STRING(K2)) 20, 40, 30 C C CHOOSE TERM FROM OLD LIST C 20 LIST(K) = LIST(K1) K1 = K1 + 1 K = K + 1 GO TO 16 C C CHOOSE TERM FROM STRING C 30 LIST(K) = STRING(K2) K2 = K2 + 1 K = K + 1 GO TO 16 C C DUPLICATES -- DISCARD TERM FROM STRING C 40 K2 = K2 + 1 GO TO 20 C C STRING EXHAUSTED -- COMPLETE LIST FROM OLD LIST C 50 DO 52 KX=K1,NM LIST(K) = LIST(KX) K = K + 1 52 CONTINUE GO TO 68 C C OLD LIST EXHAUSTED -- COMPLETE LIST FROM STRING C 60 IF( K2 .GT. M ) GO TO 68 DO 62 KX=K2,M LIST(K) = STRING(KX) K = K + 1 62 CONTINUE C C RETURN NEW NUMBER OF TERMS IN LIST. C 68 N = K - 1 RETURN END ================================================ FILE: mis/mring.f ================================================ SUBROUTINE MRING (POINTS) C C HEAT CONDUCTIVITY SMA2 ROUITNE FOR TRIANGULAR (POINTS=3) AND C TRAPEZOIDAL (POINTS=4) RING ELEMENTS. C THIS ROUTINE IS SEPARATE FROM MTRAPR AND MTRIRG SO AS TO BE C IN OVERLAY WITH MTRMEM AND MQDMEM. C LOGICAL NOGO INTEGER POINTS ,OUTPT ,SYSBUF ,TINT ,MAP(15) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 ,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM ,SWM COMMON /SYSTEM/ SYSBUF ,OUTPT ,NOGO COMMON /SMA2ET/ ECPT(100) EQUIVALENCE (T,TINT) DATA PI23 / 2.0943951024 / DATA MAP / 1,2,3, 1,2,3, 2,3,4, 3,4,1, 4,1,2 / C C ECPT LISTS C C ECPT TRIRG -------- TRMEM TRAPRG ------- QDMEM C =========================================================== C 1 EL-ID EL-ID EL-ID EL-ID C 2 SIL-1 SIL-1 SIL-1 SIL-1 C 3 SIL-2 SIL-2 SIL-2 SIL-2 C 4 SIL-3 SIL-3 SIL-3 SIL-3 C 5 THETA THETA SIL-4 SIL-4 C 6 MATID MATID THETA THETA C 7 CSID-1 T MATID MATID C 8 X1 NS-MASS CSID-1 T C 9 Y1 CSID-1 X1 NS-MASS C 10 Z1 X1 Y1 CSID-1 C 11 CSID-2 Y1 Z1 X1 C 12 X2 Z1 CSID-2 Y1 C 13 Y2 CSID-2 X2 Z1 C 14 Z2 X2 Y2 CSID-2 C 15 CSID-3 Y2 Z2 X2 C 16 X3 Z2 CSID-3 Y2 C 17 Y3 CSID-3 X3 Z2 C 18 Z3 X3 Y3 CSID-3 C 19 AVG-TEMP Y3 Z3 X3 C 20 Z3 CSID-4 Y3 C 21 AVG-TEMP X4 Z3 C 22 Y4 CSID-4 C 23 Z4 X4 C 24 AVG-TEMP Y4 C 25 Z4 C 26 AVG-TEMP C C GEOMETRY CHECKS X MUST BE .GT.0, AND Y = 0 FOR I = 1,2,..,POINTS C I I C I1 = POINTS + 4 I2 = I1 + 4*POINTS - 1 DO 20 I = I1,I2,4 IF (ECPT(I+1)) 140,10,10 10 IF (ECPT(I+2)) 140,20,140 20 CONTINUE C C POINT ORDERING CHECK. C IF (POINTS .EQ. 4) GO TO 30 I1 = 1 I2 = 3 GO TO 40 30 I1 = 4 I2 = 15 40 JPOINT = POINTS + 1 DO 50 I = I1,I2,3 IR = MAP(I )*4 + JPOINT IS = MAP(I+1)*4 + JPOINT IT = MAP(I+2)*4 + JPOINT TEMP = (ECPT(IS) - ECPT(IR))*(ECPT(IT+2) - ECPT(IS+2)) - 1 (ECPT(IT) - ECPT(IS))*(ECPT(IS+2) - ECPT(IR+2)) IF (TEMP) 140,140,50 50 CONTINUE C C TRAPEZOID TEST. C IF (POINTS .NE. 4) GO TO 100 IF (ECPT(11) - ECPT(15)) 70,60,70 60 IF (ECPT(19) - ECPT(23)) 70,90,70 70 CALL PAGE2 (-2) WRITE (OUTPT,80) SWM,ECPT(1) 80 FORMAT (A27,' 3091, A TRAPRG ELEMENT =',I14,' DOES NOT HAVE ', 1 'SIDE 1-2 PARALLEL TO SIDE 3-4.') C C THICKNESS OF TRMEM OR QDMEM TO BE CALLED BELOW. C QDMEM WILL SUBDIVIDE THICKNESS FOR SUB-TRIANGLES AND THUS C T IS SET = INTEGER 1 AS A FLAG TO QDMEM ROUTINE WHICH WILL C COMPUTE T FOR EACH. C C TEMP. PATH FOR APPROX. THICKNESS C 90 T = PI23*(ECPT(9) + ECPT(13) + ECPT(17) + ECPT(21))*3.0/4.0 GO TO 110 100 T = PI23*(ECPT(8) + ECPT(12) + ECPT(16)) C C CONVERT ECPT TO THAT OF A TRMEM OR QDMEM. C 110 J = 5*POINTS + 6 K = 4*POINTS + 1 DO 120 I = 1,K ECPT(J) = ECPT(J-2) J = J - 1 120 CONTINUE ECPT(POINTS+4) = T ECPT(POINTS+5) = 0.0 IF (POINTS .EQ. 4) GO TO 130 C C MTRMEM CALL C CALL MASSTQ (4) RETURN C C MQDMEM CALL C 130 CALL MASSTQ (1) RETURN C C BAD GEOMETRY FATAL ERROR. C 140 WRITE (OUTPT,150) UFM,ECPT(1) 150 FORMAT (A23,' 3092, TRIRG OR TRAPRG ELEMENT =',I14,' POSSESSES ', 1 'ILLEGAL GEOMETRY.') NOGO = .TRUE. RETURN END ================================================ FILE: mis/msgwrt.f ================================================ SUBROUTINE MSGWRT C C MSGWRT WILL PRINT THE INDICATED ERROR MESSAGES ON THE OUTPUT TAPE C INTEGER OUTTAP,NAME(2),POS(2),NEG(2),PNG(2) DIMENSION XMSG(4,1),IPAG(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /MACHIN/ MACH COMMON /SYSTEM/ SYSBUF,OUTTAP COMMON /MSGX / N,M,MSG(4,1) EQUIVALENCE (XMSG(1,1),MSG(1,1)) DATA POS,NEG/ 4HWARN,4HING ,4HFATA,4HL / DATA NMSGS / 117/ , IPAG / 4H PAG,4HE2 / C DO 99 I = 1,N L = IABS(MSG(1,I)) IF (MACH.EQ.3 .AND. L.GE.1125 .AND. L.LE.1320) GO TO 80 C C *** NOTE *** CHANGE IF STATEMENT WHEN YOU CHANGE GO TO C MAKE SURE MESSAGE NO. IS WITHIN GO TO RANGE C IF (L .GT. NMSGS) GO TO 98 IF (L .EQ. 30) GO TO 30 IF (MSG(3,I).NE.IPAG(1) .AND. MSG(4,I).NE.IPAG(2)) CALL PAGE2 (4) IF (L.GE.71 .AND. L.LE.NMSGS) GO TO 210 C C --- NOTE --- INCREASE THE UPPER LIMIT TO ADD MORE MESSAGES C LPLUS = L + 3000 DO 205 J = 1,2 PNG(J) = POS(J) IF (MSG(1,I) .LT. 0) PNG(J) = NEG(J) 205 CONTINUE CALL FNAME (MSG(2,I),NAME) C GO TO ( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 2 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 3 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 4 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 5 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 6 61, 62, 63, 64, 65, 66, 67, 68, 69, 70), L C C *** CHANGE L INTO CORRECT GINO.NASTIO.PACKUNPK ERROR NUMBER C 210 LPLUS = L + 1055 WRITE (OUTTAP,2005) SFM,LPLUS C C *** BRANCH TO PRINT APPROPRIATE ERROR MESSAGE C --- NOTE - EACH NEW MESSAGE REQUIRES A NEW PRINT STATEMENT C LPLUS = L - 70 GO TO ( 226, 227, 228, 229, 230, 231, 232, 233, 234, 9 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 8 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 7 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 6 265, 266, 267, 268, 269, 270, 271, 272), LPLUS C C *** GINO FORMAT NUMBERS MATCH THE MESSAGE NUMBER. C 226 WRITE (OUTTAP,1126) GO TO 99 227 WRITE (OUTTAP,1127) GO TO 99 228 WRITE (OUTTAP,1128) GO TO 99 229 WRITE (OUTTAP,1129) GO TO 99 230 WRITE (OUTTAP,1130) GO TO 99 231 WRITE (OUTTAP,1131) GO TO 99 232 WRITE (OUTTAP,1132) GO TO 99 233 WRITE (OUTTAP,1133) GO TO 99 234 WRITE (OUTTAP,1134) GO TO 99 235 WRITE (OUTTAP,1135) GO TO 99 236 WRITE (OUTTAP,1136) GO TO 99 237 WRITE (OUTTAP,1137) GO TO 99 238 WRITE (OUTTAP,1138) GO TO 99 239 WRITE (OUTTAP,1139) GO TO 99 240 WRITE (OUTTAP,1140) GO TO 99 241 WRITE (OUTTAP,1141) GO TO 99 242 WRITE (OUTTAP,1142) GO TO 99 243 WRITE (OUTTAP,1143) GO TO 99 244 WRITE (OUTTAP,1144) GO TO 99 245 WRITE (OUTTAP,1145) GO TO 99 246 WRITE (OUTTAP,1146) GO TO 99 247 WRITE (OUTTAP,1147) GO TO 99 248 WRITE (OUTTAP,1148) GO TO 99 249 WRITE (OUTTAP,1149) GO TO 99 250 WRITE (OUTTAP,1150) GO TO 99 251 WRITE (OUTTAP,1151) GO TO 99 252 WRITE (OUTTAP,1152) GO TO 99 253 WRITE (OUTTAP,1153) GO TO 99 254 WRITE (OUTTAP,1154) GO TO 99 255 WRITE (OUTTAP,1155) GO TO 99 256 WRITE (OUTTAP,1156) GO TO 99 257 WRITE (OUTTAP,1157) GO TO 99 258 WRITE (OUTTAP,1158) GO TO 99 259 WRITE (OUTTAP,1159) GO TO 99 260 WRITE (OUTTAP,1160) GO TO 99 261 WRITE (OUTTAP,1161) GO TO 99 262 WRITE (OUTTAP,1162) SFM GO TO 99 263 WRITE (OUTTAP,1163) SFM GO TO 99 264 WRITE (OUTTAP,1164) GO TO 99 265 WRITE (OUTTAP,1165) GO TO 99 266 WRITE (OUTTAP,1166) SFM GO TO 99 267 WRITE (OUTTAP,1167) SFM GO TO 99 268 WRITE (OUTTAP,1168) GO TO 99 269 WRITE (OUTTAP,1169) SFM GO TO 99 270 WRITE (OUTTAP,1170) GO TO 99 271 WRITE (OUTTAP,1171) GO TO 99 272 WRITE (OUTTAP,1172) SFM GO TO 99 C C *** END OF GINO ERRORS SECTION C 1 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,101 ) MSG(2,I),MSG(3,I),MSG(4,I) GO TO 99 2 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,102 ) NAME,MSG(2,I),MSG(3,I),MSG(4,I) GO TO 99 3 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,103 ) NAME,MSG(2,I),MSG(3,I),MSG(4,I) GO TO 99 4 WRITE (OUTTAP,2005) SFM,LPLUS WRITE (OUTTAP,104 ) NAME GO TO 99 5 WRITE (OUTTAP,2001) PNG,LPLUS WRITE (OUTTAP,105 ) NAME,MSG(3,I),MSG(4,I) GO TO 99 6 WRITE (OUTTAP,106 ) SFM,MSG(3,I),MSG(4,I),MSG(2,I) GO TO 99 7 WRITE (OUTTAP,2005) SFM,LPLUS WRITE (OUTTAP,107 ) MSG(3,I),MSG(4,I) IF (MSG(1,I) .GE. 0) GO TO 99 CALL ERRTRC ('MSGWRT ',0) GO TO 99 8 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,108 ) MSG(3,I),MSG(4,I) IF (MSG(2,I) .GT.0) WRITE (OUTTAP,1081) MSG(2,I) J = -MSG(2,I) IF (J .GT. 0) WRITE (OUTTAP,1082) J IF (MACH.EQ.3 .OR. MACH.EQ.5) WRITE (OUTTAP,1083) GO TO 99 9 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,109 ) NAME,MSG(2,I) GO TO 99 10 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,110 ) NAME,MSG(2,I) GO TO 99 11 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,111 ) MSG(2,I) GO TO 99 12 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,112 ) NAME,MSG(2,I) GO TO 99 13 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,113 ) NAME,MSG(2,I) GO TO 99 14 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,114 ) NAME,MSG(2,I) GO TO 99 15 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,115 ) NAME,MSG(2,I) GO TO 99 16 WRITE (OUTTAP,2005) SFM,LPLUS WRITE (OUTTAP,116 ) NAME,MSG(3,I),MSG(4,I) GO TO 99 17 WRITE (OUTTAP,2010) UWM,LPLUS IF (MSG(2,I) .EQ. 0) WRITE (OUTTAP,117 ) IF (MSG(2,I) .NE. 0) WRITE (OUTTAP,1175) GO TO 99 18 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,118 ) MSG(3,I),MSG(4,I),MSG(2,I) GO TO 99 19 WRITE (OUTTAP,2015) UFM,LPLUS WRITE (OUTTAP,119 ) MSG(3,I),MSG(4,I),MSG(2,I) GO TO 99 20 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,120 ) MSG(2,I),MSG(3,I),MSG(4,I) GO TO 99 21 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,121 ) MSG(2,I) GO TO 99 22 WRITE (OUTTAP,2025) SWM,LPLUS WRITE (OUTTAP,2026) WRITE (OUTTAP,122 ) MSG(3,I),MSG(4,I) GO TO 99 23 CONTINUE WRITE (OUTTAP,123 ) UIM,MSG(2,I),MSG(3,I),MSG(4,I) GO TO 99 24 WRITE (OUTTAP,2020) UIM,LPLUS WRITE (OUTTAP,124 ) NAME,MSG(3,I) GO TO 99 25 WRITE (OUTTAP,2005) SFM,LPLUS WRITE (OUTTAP,125 ) MSG(3,I),MSG(4,I) GO TO 99 26 WRITE (OUTTAP,2005) SFM,LPLUS WRITE (OUTTAP,126 ) NAME,MSG(3,I),MSG(4,I) GO TO 99 27 WRITE (OUTTAP,2020) UIM,LPLUS WRITE (OUTTAP,127 ) MSG(2,I) GO TO 99 28 CONTINUE WRITE (OUTTAP,128 ) UIM,MSG(2,I),MSG(3,I),MSG(4,I) GO TO 99 29 WRITE (OUTTAP,129 ) SFM,NAME,MSG(2,I) GO TO 99 30 CALL USRMSG (I) GO TO 99 31 CONTINUE 32 WRITE (OUTTAP,2015) UFM,LPLUS WRITE (OUTTAP,132 ) MSG(2,I),MSG(3,I),MSG(4,I) GO TO 99 33 WRITE (OUTTAP,133 ) UFM,MSG(2,I) GO TO 99 34 WRITE (OUTTAP,2010) UWM,LPLUS WRITE (OUTTAP,134 ) XMSG(2,I),XMSG(3,I) GO TO 99 35 WRITE (OUTTAP,2020) UIM,LPLUS WRITE (OUTTAP,135 ) MSG(2,I),XMSG(3,I) GO TO 99 36 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,136 ) MSG(3,I),MSG(4,I) GO TO 99 37 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,137 ) MSG(3,I),MSG(4,I) GO TO 99 38 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,138 ) MSG(2,I) GO TO 99 39 WRITE (OUTTAP,139 ) SFM GO TO 99 40 WRITE (OUTTAP,2000) PNG,LPLUS WRITE (OUTTAP,140 ) NAME,MSG(2,I) GO TO 99 41 WRITE (OUTTAP,2010) UWM,LPLUS WRITE (OUTTAP,141 ) MSG(2,I) GO TO 99 42 WRITE (OUTTAP,2010) UWM,LPLUS WRITE (OUTTAP,142 ) XMSG(2,I) GO TO 99 43 WRITE (OUTTAP,2015) UFM,LPLUS WRITE (OUTTAP,143 ) MSG(2,I),MSG(3,I),MSG(4,I) GO TO 99 44 WRITE (OUTTAP,2015) UFM,LPLUS WRITE (OUTTAP,144 ) MSG(2,I),MSG(3,I) GO TO 99 45 WRITE (OUTTAP,145 ) UWM,MSG(2,I),MSG(3,I),MSG(4,I) GO TO 99 46 WRITE (OUTTAP,146 ) UFM GO TO 99 47 WRITE (OUTTAP,147 ) UFM GO TO 99 48 WRITE (OUTTAP,148 ) SFM,MSG(2,I),MSG(3,I),MSG(4,I) GO TO 99 49 WRITE (OUTTAP,149 ) SFM,MSG(3,I),MSG(4,I),MSG(2,I) GO TO 99 50 WRITE (OUTTAP,150 ) SFM,MSG(3,I),MSG(4,I),MSG(2,I) GO TO 99 51 WRITE (OUTTAP,151 ) UFM,MSG(2,I) GO TO 99 52 WRITE (OUTTAP,152 ) UWM,MSG(2,I),MSG(3,I),MSG(4,I) GO TO 99 53 WRITE (OUTTAP,153 ) UWM,MSG(2,I),MSG(3,I) GO TO 99 54 WRITE (OUTTAP,154 ) UWM,MSG(2,I),XMSG(3,I) GO TO 99 55 WRITE (OUTTAP,2001) PNG,LPLUS WRITE (OUTTAP,155 ) MSG(3,I),MSG(4,I) GO TO 99 56 WRITE (OUTTAP,2001) PNG,LPLUS WRITE (OUTTAP,156 ) GO TO 99 57 WRITE (OUTTAP,2001) PNG,LPLUS WRITE (OUTTAP,157 ) NAME GO TO 99 58 WRITE (OUTTAP,2001) PNG,LPLUS WRITE (OUTTAP,158 ) XMSG(2,I),MSG(3,I) GO TO 99 59 WRITE (OUTTAP,2001) PNG,LPLUS WRITE (OUTTAP,159 ) MSG(2,I),MSG(3,I),MSG(4,I) GO TO 99 60 WRITE (OUTTAP,160 ) UFM GO TO 99 61 CONTINUE GO TO 99 62 WRITE (OUTTAP,162 ) SFM GO TO 99 63 WRITE (OUTTAP,163 ) SFM GO TO 99 64 WRITE (OUTTAP,164 ) SFM GO TO 99 65 WRITE (OUTTAP,165 ) SFM GO TO 99 66 WRITE (OUTTAP,166 ) SFM GO TO 99 67 WRITE (OUTTAP,167 ) SFM GO TO 99 68 WRITE (OUTTAP,168 ) SFM GO TO 99 69 WRITE (OUTTAP,169 ) SFM GO TO 99 70 WRITE (OUTTAP,170 ) SFM GO TO 99 80 CALL MSGUNI (L) GO TO 99 98 WRITE (OUTTAP,198 ) MSG(1,I),MSG(2,I),MSG(3,I),MSG(4,I) 99 CONTINUE IF (N .GE. M) WRITE (OUTTAP,199) UWM,M I = N N = 0 IF (MSG(1,I) .GE. 0) GO TO 1000 CWKBI WRITE (OUTTAP,100) CALL ERRTRC ('WRTMSG ',100) 1000 RETURN C C C 100 FORMAT ('0FATAL ERROR') 101 FORMAT ('0ATTEMPT TO OPEN DATA SET',I4,' IN SUBROUTINE ',A4,A2, 1 ', WHICH WAS NOT DEFINED IN THE FIST') 102 FORMAT ('0EOF ENCOUNTERED WHILE READING DATA SET ',2A4,'(FILE', 1 I4,') IN SUBROUTINE ',2A4) 103 FORMAT ('0ATTEMPT TO READ PAST THE END OF A LOGICAL RECORD IN ', 1 'DATA SET ',2A4,'(FILE',I4,') IN SUBROUTINE ',2A4) 104 FORMAT ('0INCONSISTENT TYPE FLAGS ENCOUNTERED WHILE PACKING DATA', 1 'SET ',2A4) 105 FORMAT ('0ATTEMPT TO OPERATE ON THE SINGULAR MATRIX ',2A4, 1 ' IN SUBROUTINE ',2A4) 106 FORMAT (A25,' 3006, BUFFER ASSIGNED WHEN OPENING DATA BLOCK ',2A4, 1 6H,FILE ,I5,1H,, /5X,'CONFLICTS WITH BUFFERS CURRENTLY ', 2 'OPEN.') 107 FORMAT ('0ILLEGAL INPUT TO SUBROUTINE ',2A4) 108 FORMAT ('0INSUFFICIENT CORE AVAILABLE FOR SUBROUTINE ',2A4) 1081 FORMAT (' ADDITIONAL CORE REQUIRED =',I10,' WORDS.') 1082 FORMAT (' PRESENT OPEN CORE SIZE =',I10,' WORDS.') 1083 FORMAT (' USE NASTRAN HICORE CARD TO INCREASE CORE SIZE') 109 FORMAT ('0DATA TRANSMISSION ERROR ON DATA SET ',2A4,'(FILE',I4, 1 1H)) 110 FORMAT ('0ATTEMPT TO MANIPULATE DATA SET ',2A4,'(FILE',I4, 1 ' BEFORE OPENING THE FILE') 111 FORMAT ('0ATTEMPT TO WRITE A TRAILER ON FILE',I4, 1 ' WHEN IT HAS BEEN PURGED') 112 FORMAT ('0ATTEMPT TO OPEN DATA SET ',2A4,'(FILE',I4, 1 ') WHICH HAS ALREADY BEEN OPENED') 113 FORMAT ('0ATTEMPT TO READ DATA SET ',2A4,'(FILE',I4, 1 ') WHEN IT WAS OPENED FOR OUTPUT') 114 FORMAT ('0ATTEMPT TO WRITE DATA SET ',2A4,'(FILE',I4, 1 ') WHEN IT WAS OPENED FOR INPUT') 115 FORMAT ('0ATTEMPT TO FWDREC ON DATA SET ',2A4,'(FILE',I4, 1 ') WHEN IT WAS OPENED FOR OUTPUT') 116 FORMAT (1H0,2A4,' MATRIX IS NOT IN PROPER FORM IN SUBROUTINE ', 1 2A4) 117 FORMAT ('0 ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN ', 1 'REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS.', /5X, 2 '(USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION ', 3 'VIA A ''PARAM AUTOSPC'' BULK DATA CARD)') 1175 FORMAT ('0 ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN ', 1 'REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS.') 118 FORMAT ('0MODULE ',2A4,', SEQUENCE NO.',I5, 1 ', REQUIREMENTS EXCEED AVAILABLE FILES') 119 FORMAT ('0MAXIMUM LINE COUNT EXCEEDED IN SUBROUTINE ',2A4, 1 ' LINE COUNT EQUALS',I8) 120 FORMAT ('0GNFIST OVERFLOWED FIST TABLE AT SEQUENCE NO.',I5, 1 ' DATA SET ',2A4) 121 FORMAT ('0FILE',I4,' NOT DEFINED IN FIST') 122 FORMAT (5X,'DATA BLOCK ',2A4,' MAY BE REQUIRED AS INPUT AND IS ', 1 'NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ', 2 'ROUTE.') 123 FORMAT (A29,' 3028 B =',I5,' C =',I5,' R =',I5) 124 FORMAT ('0THE BANDWIDTH OF MATRIX ',2A4,' EXCEEDS THE MAXIMUM ', 1 'BANDWIDTH. A MAXIMUM BANDWIDTH OF',I5,' WILL BE USED') 125 FORMAT ('0ILLEGAL INDEX IN ACTIVE ROW OR COLUMN CALCULATION IN ', 1 2A4) 126 FORMAT ('0MATRIX ',2A4,' EXCEEDS MAXIMUM ALLOWABLE SIZE FOR BAND', 1 'WIDTH PLUS ACTIVE COLUMNS. BMAX =',I6,' CMAX =',I6) 127 FORMAT ('0DECOMPOSITION TIME ESTIMATE IS',I6) 128 FORMAT (A29,' 3028, BBAR =',I5,' CBAR =',I5,' R =',I5) 129 FORMAT (A25,' 3029, PHYSICAL EOF ENCOUNTERED ON DATA SET ',2A4, 1 ' (FILE',I4,3H ).) 132 FORMAT ('0UNABLE TO FIND SELECTED SET (',I8,') IN TABLE (',A4, 1 ') IN SUBROUTINE (',A4,2H).) 133 FORMAT (A23,' 3033, SUBCASE ID',I9,' IS REFERENCED ON ONE OR MORE' 1, ' RANDPS CARDS', /5X,'BUT IS NOT A CURRENT SUBCASE ID.') 134 FORMAT ('0ORTHOGONALITY CHECK FAILED, LARGEST TERM = ',1P,E14.7, 1 ', EPSILON = ',1P,E14.7) 135 FORMAT (5X,'FOR SUBCASE NUMBER',I6,', EPSILON SUB E = ',1P,E15.7) 136 FORMAT ('0DATA SET ',2A4,' IS REQUIRED AS INPUT BUT HAS NOT ', 1 'BEEN GENERATED OR PURGED') 137 FORMAT ('0JOB TERMINATED IN SUBROUTINE ',2A4) 138 FORMAT ('0DATA SET ',A4,' DOES NOT HAVE MULTI-REEL CAPABILITY') 139 FORMAT (A25,' 3039, ENDSYS CANNOT FIND SAVE FILE.') 140 FORMAT ('0ATTEMPT TO WRITE DATA SET ',2A4,'(FILE',I4, 1 ') WHEN IT IS AN INPUT FILE') 141 FORMAT ('0EXTERNAL GRID POINT',I9,' DOES NOT EXIST OR IS NOT A ', 1 'GEOMETRIC GRID POINT.', 2 /5X,'THE BASIC ORIGIN WILL BE USED.') 142 FORMAT ('0INCONSISTENT SCALAR MASSES HAVE BEEN USED. EPSILON/', 1 'DELTA = ',1P,E15.7) 143 FORMAT ('0UNCONNECTED EXTRA POINT (MODAL COORDINATE =',I9, 1 ') HAS BEEN DETECTED BY SUBROUTINE ',2A4) 144 FORMAT ('0A POINT ON NON-LINEAR LOAD SET',I9,' NOLIN',I1, 1 ' IS NOT AN EXTRA POINT.', /5X,'ONLY EXTRA POINTS MAY ', 2 'HAVE NON-LINEAR LOADS IN A MODAL FORMULATION.') 145 FORMAT (A25,' 3045, INSUFFICIENT TIME TO COMPLETE THE REMAINING', 1 I6,' SOLUTION(S) IN MODULE ',2A4) 146 FORMAT (A23,' 3046, YOUR SELECTED LOADING CONDITION, INITIAL ', 1 'CONDITION, AND NON-LINEAR FORCES ARE NULL', /5X, 2 'A ZERO SOLUTION WILL RESULT.') 147 FORMAT (A23,' 3047, NO MODES WITHIN RANGE AND LMODES = 0. A MODAL' 1, ' FORMULATION CANNOT BE MADE.') 148 FORMAT (A25,' 3048, BUFFER CONTROL WORD INCORRECT FOR GINO ',A4, 1 ' OPERATION ON DATA BLOCK ',2A4) 149 FORMAT (A25,' 3049, GINO UNABLE TO POSITION DATA BLOCK ',2A4, 1 ' CORRECTLY DURING ',A4,' OPERATION.') 150 FORMAT (A25,' 3050, INSUFFICIENT TIME REMAINING FOR ',2A4, 1 '. TIME ESTIMATE IS',I9,' SECONDS.') 151 FORMAT (A23,' 3051, INITIAL CONDITION SET',I9,' WAS SELECTED FOR', 1 ' A MODAL TRANSIENT PROBLEM.' ,/5X, 2 'INITIAL CONDITIONS ARE NOT ALLOWED IN SUCH A PROBLEM.') 152 FORMAT (A25,' 3052, A RANDOM REQUEST FOR CURVE TYPE - ',A4, 1 ' -, POINT -',I9, /5X,'COMPONENT -',I4, 2 ' -, SPECIFIES TOO LARGE A COMPONENT ID. THE LAST ', 3 'COMPONENT WILL BE USED.') 153 FORMAT (A25,' 3053, THE ACCURACY OF EIGENVALUE',I6,' IS IN DOUBT.' 1, ' GIVENS-QR FAILED TO CONVERGE IN',I4,' ITERATIONS.') 154 FORMAT (A25,' 3054, THE ACCURACY OF EIGENVECTOR',I6,' CORRESPOND', 1 'ING TO THE EIGENVALUE ',1P,E15.7,' IS IN DOUBT.') 155 FORMAT ('0AN ATTEMPT TO MULTIPLY OR MULTIPLY AND ADD NON-CONFOR', 1 'MABLE MATRICES TOGETHER WAS MADE IN SUBROUTINE ',2A4) 156 FORMAT ('0NO MASS MATRIX IS PRESENT BUT MASS DATA IS REQUIRED') 157 FORMAT ('0MATRIX ',2A4,' IS NOT POSITIVE DEFINITE.') 158 FORMAT ('0EPSILON IS LARGER THAN ',1P,E14.7,' FOR SUBCASE',I5) 159 FORMAT ('0SET IDENTIFIER ',A4,' DOES NOT EXIST. ERROR DETECTED ', 1 'IN SUBROUTINE ',2A4) 160 FORMAT (A23,' 3060, READ MODULE FINDS THAT THE INPUT STIFFNESS ', 1 'AND/OR MASS MATRIX IS NULL.') 162 FORMAT (A25,' 3062, NO MESSAGE.') 163 FORMAT (A25,' 3063, NO MESSAGE.') 164 FORMAT (A25,' 3064, NO MESSAGE.') 165 FORMAT (A25,' 3065, NO MESSAGE.') 166 FORMAT (A25,' 3066, NO MESSAGE.') 167 FORMAT (A25,' 3067, NO MESSAGE.') 168 FORMAT (A25,' 3068, NO MESSAGE.') 169 FORMAT (A25,' 3069, NO MESSAGE.') 170 FORMAT (A25,' 3070, NO MESSAGE.') 198 FORMAT ('0NO MESSAGE FOR MESSAGE NO. =',I5 ,/5X,'PARAMETERS = ', 1 3I20) 199 FORMAT (A25,' 3199, NON-FATAL MESSAGES MAY HAVE BEEN LOST BY ', 1 'ATTEMPTING TO QUEUE MORE THAN',I5,' MESSAGES') 1126 FORMAT ('0ADDRESS OF BUFFER LESS THAN ADDRESS OF /XNSTRN/.') 1127 FORMAT ('0BUFFER ASSIGNED EXTENDS INTO MASTER INDEX AREA.') 1128 FORMAT ('0ON AN OPEN CALL WITHOUT REWIND, THE BLOCK NUMBER READ ', 1 'DOES NOT MATCH EXPECTED VALUE.') 1129 FORMAT ('0ON A CALL WRITE THE WORD COUNT IS NEGATIVE.') 1130 FORMAT ('0ON A CALL READ THE CONTROL WORD AT WHICH THE FILE IS ', 1 'POSITIONED IS NOT ACCEPTABLE.') 1131 FORMAT ('0LOGICAL RECORD TRAILER NOT RECOGNIZABLE AS SUCH.') 1132 FORMAT ('0UNRECOGNIZABLE CONTROL WORD DURING PROCESSING OF A ', 1 'BCKREC CALL.') 1133 FORMAT ('0AFTER A POSITIONING CALL TO IO6600, DURING PROCESSING ', 1 'OF A BCKREC CALL THE BLOCK READ WAS NOT THE EXPECTED ', 2 'ONE.') 1134 FORMAT ('0CALL SKPFIL IN A FORWARD DIRECTION ON A FILE NOT ', 1 'OPENED FOR OUTPUT IS NOT SUPPORTED.') 1135 FORMAT ('0FILPOS WAS CALLED ON A FILE OPENED FOR OUTPUT.') 1136 FORMAT ('0ENDPUT WAS CALLED WITH BLOCK(8) EQUAL TO -1.') 1137 FORMAT ('0MORE TERMS WRITTEN IN STRING THAN WERE AVAILABLE TO ', 1 'WRITE.') 1138 FORMAT ('0CURRENT BUFFER POINTER EXCEEDS LAST DATA WORD IN BLOCK') 1139 FORMAT ('0ON AN INITIAL CALL TO GETSTR, THE RECORD IS NOT ', 1 'POSITIONED AT THE COLUMN HEADER.') 1140 FORMAT ('0STRING DEFINITION WORD NOT RECOGNIZABLE.') 1141 FORMAT ('0FIRST WORD OF A DOUBLE PRECISION STRING IS NOT ON A ', 1 'DOUBLE PRECISION BOUNDARY.') 1142 FORMAT ('0CURRENT BUFFER POINTER IS BEYOND RANGE OF INFORMATION ', 1 'IN BUFFER.') 1143 FORMAT ('0ON AN INITIAL CALL TO GETSTB, THE FILE IS NOT ', 1 'POSITIONED AT AN ACCEPTABLE POINT.') 1144 FORMAT ('0END-OF-SEGMENT CONTROL WORD SHOULD HAVE IMMEDIATELY ', 1 'PRECED CURRENT POSITION AND IT DID NOT.') 1145 FORMAT ('0COLUMN TRAILER NOT FOUND.') 1146 FORMAT ('0PREVIOUS RECORD TO BE READ BACKWARDS WAS NOT WRITTEN ', 1 'WITH STRING TRAILERS.') 1147 FORMAT ('0STRING RECOGNITION WORD NOT RECOGNIZED.') 1148 FORMAT ('0RECORD CONTROL WORD NOT IN EXPECTED POSITION.') 1149 FORMAT ('0RECTYP WAS CALLED FOR A FILE OPENED FOR OUTPUT.') 1150 FORMAT ('0RECTYP MUST BE CALLED WHEN THE FILE IS POSITIONED AT ', 1 'THE BEGINNING OF A RECORD.') 1151 FORMAT ('ON A CALL TO OPEN THE BUFFER ASSIGNED OVERLAPS A ', 1 'PREVIOUSLY ASSIGNED BUFFER.') 1152 FORMAT ('0A CALL TO OPEN FOR AN ALREADY OPEN FILE.') 1153 FORMAT ('0FILE NOT OPEN.') 1154 FORMAT ('0GINO REFERENCE NAME NOT IN FIST OR FILE NOT OPEN.') 1155 FORMAT ('0A CALL TO GETSTR OCCURRED WHEN THE FILE WAS POSITIONED', 1 'AT END-OF-FILE.') 1156 FORMAT ('0ATTEMPTED TO WRITE ON AN INPUT FILE.') 1157 FORMAT ('0ATTEMPTED TO READ FROM AN OUTPUT FILE.') 1158 FORMAT ('0A CALL TO BLDPK OR PACK IN WHICH EITHER TYPIN OR ', 1 'TYPOUT IS OUT OF RANGE.') 1159 FORMAT ('0ROW POSITIONS OF ELEMENTS FURNISHED TO ZBLPKI OR ', 1 'BLDPKI ARE NOT IN A MONOTONIC INCREASING SEQUENCE.', /, 2 ' (POSSIBLY DUE TO ROW OR COLUMN INDEX ERROR)') 1160 FORMAT ('0ON A CALL TO BLDPKN, FILE NAME DOES NOT MATCH PREVIOUS', 1 'CALLS.') 1161 FORMAT ('0A CALL TO INTPK OR UNPACK IN WHICH TYPOUT IS OUT OF ', 1 'RANGE.') 1162 FORMAT (A25,' 1162, NO MESSAGE.') 1163 FORMAT (A25,' 1163, NO MESSAGE.') 1164 FORMAT ('0 FOLLOWING A READ ATTEMPT ON AN INDEXED FILE, EITHER ', 1 'AN END-OF-FILE WAS ENCOUNTERED OR THE NUMBER OF WORDS ', 2 'READ WAS INCORRECT.') 1165 FORMAT ('0ON AN ATTEMPT TO READ A SEQUENTIAL FILE, AN END-OF-', 1 'FILE OR AN END-OF-INFORMATION WAS ENCOUNTERED.') 1166 FORMAT (A25,' 1166, NO MESSAGE.') 1167 FORMAT (A25,' 1167, NO MESSAGE.') 1168 FORMAT ('0A CALL TO IO6600 WITH OPCODE=5 (FORWARD SPACE) IS NOT ', 1 'SUPPORTED.') 1169 FORMAT (A25,' 1169, NO MESSAGE.') 1170 FORMAT ('0ILLEGAL CALL TO NASTIO, LOGIC ERROR IN IO6600.') 1171 FORMAT ('0ON A POSITION CALL, THE BLOCK NUMBER REQUESTED IS NOT ', 1 'FOUND IN CORE WHEN IT IS EXPECTED THERE.') 1172 FORMAT (A25,' 1172, NO MESSAGE.') 2000 FORMAT (12H0*** SYSTEM ,2A4,8H MESSAGE,I5) 2001 FORMAT (10H0*** USER ,2A4,9H MESSAGE ,I5) 2005 FORMAT (A25,I5) 2010 FORMAT (A25,I5) 2015 FORMAT (A23,I5) 2020 FORMAT (A29,I5) 2025 FORMAT (A27,I5) 2026 FORMAT (1H+,33X,'(SEE PROG. MANUAL SEC. 4.9.7, OR ',7HUSERS' , 1 'MANUAL P. 6.5-3)') END ================================================ FILE: mis/mslot.f ================================================ SUBROUTINE MSLOT(ITYPE) C***** C THIS ROUTINE CALCULATES THE MASS MATRIX TERMS FOR THE C CSLOT3 AND CSLOT4 TWO DIMENSIONAL LAPLACE ELEMENTS C IOPT- CSLOT3 = 0, CSLOT4 = 1 C***** C THE ECPT DATA FOR THESE ELEMENTS ARE C C FIELD CSLOT3 CSLOT4 C 1 ID ID C 2 SIL1 SIL1 C 3 SIL2 SIL2 C 4 SIL3 SIL3 C 5 RHO SIL4 C 6 BULK RHO C 7 M BULK C 8 N M C 9 CID1 N C 10 R1 CID1 C 11 Z1 R1 C 12 W1 Z1 C 13 CID2 W1 C 14 R2 CID2 C 15 Z2 R2 C 16 W2 Z2 C 17 CID3 W2 C 18 R3 CID3 C 19 Z3 R3 C 20 W3 Z3 C 21 TEMP W3 C 22 CID4 C 23 R4 C 24 Z4 C***** 25 W4 C***** 26 TEMP C INTEGER NECPT(100) DOUBLE PRECISION COEF ,A2 ,WB 1 ,R ,Z ,W 2 ,MIJ C***** COMMON /SMA2CL/ IOPT4,K4GGSW,NPVT COMMON /SMA2ET/ ECPT(100) COMMON /SMA2IO/ DUM1(10),IFILE COMMON/SMA2DP/ COEF ,A2 ,WB 1 ,R(3) ,Z(3) ,W(3) 2 ,MIJ ,IRET ,IP 3 ,K C***** EQUIVALENCE (ECPT(1),NECPT(1)) C***** IF(ITYPE .GT. 0) GO TO 50 IF(ECPT(6) .EQ.0.0.OR.NECPT(7) .EQ. 0 ) RETURN K=-1 10 K=K+1 IF(2*NECPT(8) - K*NECPT(7) ) 30,20,10 20 NECPT(7) = NECPT(7)*2 30 ECPT(7) = FLOAT(NECPT(7))/2.0 DO 40 I=1,20 40 ECPT(I+50)= ECPT(I) IRET =4 GO TO 140 C***** C THE CSLOT4 ELEMENT IS CHECKED FOR VALIDITY AND THE DATA ARE C REARRANGED TO CONFORM TO THE CSLOT3 FORMAT C***** 50 IF(ECPT(7).EQ.0.0 .OR.NECPT(8).EQ.0 ) RETURN K =-1 60 K =K+1 IF( 2*NECPT(9) - K*NECPT(8) ) 80,70,60 70 NECPT(8) =NECPT(8)*2 80 ECPT(8) = FLOAT(NECPT(8))/2.0 DO 90 I=1,4 90 ECPT(I+50) = ECPT(I) DO 100 I=6,21 100 ECPT(I+49) = ECPT(I) ECPT(56) = ECPT(7)*2.0 IRET =1 GO TO 140 110 ECPT(54)= ECPT(5) ECPT(68) = ECPT(23) ECPT(69) = ECPT(24) ECPT(70) = ECPT(25) IRET =2 GO TO 140 120 ECPT(53)= ECPT(4) ECPT(64)= ECPT(19) ECPT(65)= ECPT(20) ECPT(66)= ECPT(21) IRET =3 GO TO 140 130 ECPT(52)= ECPT(3) ECPT(60)= ECPT(15) ECPT(61)= ECPT(16) ECPT(62)= ECPT(17) IRET =4 C***** C EACH CSLOT3 ELEMENT OR SUBELEMENT IS FORMULATED AS FOLLOWS C***** 140 IF((NECPT(52).NE.NPVT).AND.(NECPT(53).NE.NPVT).AND. 1 (NECPT(54).NE.NPVT)) GO TO 170 DO 150 I=1,3 IP = 4*(I-1)+60 R(I) =ECPT(IP) Z(I) =ECPT(IP+1) W(I) =ECPT(IP+2) IF(NPVT .EQ. NECPT(I+51)) IPVT=I 150 CONTINUE A2 = (R(2)-R(1))*(Z(3)-Z(1)) -(R(3)-R(1))*(Z(2)-Z(1)) WB = W(1) +W(2) +W(3)+W(IPVT) COEF = DABS(A2)*ECPT(57) /(120.0D0 *ECPT(56)) I=NPVT DO 160 J=1,3 K = NECPT(J+51) MIJ = COEF *( WB + W(J) ) IF (IPVT .EQ. J) MIJ =MIJ*2.0D0 CALL SMA2B(MIJ,K,I,IFILE,0.0D0) 160 CONTINUE 170 GO TO (110,120,130,180),IRET 180 RETURN END ================================================ FILE: mis/msolid.f ================================================ SUBROUTINE MSOLID (ITYPE) C C THIS ROUTINE CALCULATES THE MASS MATRICES FOR THE SOLID ELEMENTS, C C I = ELEMENT C *** ******* C 1 CTETRA C 2 CWEDGE C 3 CHEXA1 C 4 CHEXA2 C C A SERIES OF 6 BY 6 DIAGONAL MATRICES ARE CALUCLATED, ONE PER C CONNECTED GRID POINT C C ECPT TETRA WEDGE HEXA C ------------------------------------------------- C ECPT( 1) = EL ID EL ID EL ID C ECPT( 2) = MAT-ID MAT-ID MAT-ID C ECPT( 3) = GRID-1 GRID-1 GRID-1 C ECPT( 4) = GRID-2 GRID-2 GRID-2 C ECPT( 5) = GRID-3 GRID-3 GRID-3 C ECPT( 6) = GRID-4 GRID-4 GRID-4 C ECPT( 7) = CSID-1 GRID-5 GRID-5 C ECPT( 8) = X1 GRID-6 GRID-6 C ECPT( 9) = Y1 CSID-1 GRID-7 C ECPT(10) = Z1 X1 GRID-8 C ECPT(11) = CSID-2 Y1 CSID-1 C ECPT(12) = X2 Z1 X1 C ECPT(13) = Y2 CSID-2 Y1 C ECPT(14) = Z2 X2 Z1 C ECPT(15) = CSID-3 Y2 CSID-2 C ECPT(16) = X3 Z2 X2 C ECPT(17) = Y3 CSID-3 Y2 C ECPT(18) = Z3 X3 Z2 C ECPT(19) = CSID-4 Y3 CSID-3 C ECPT(20) = X4 Z3 X3 C ECPT(21) = Y4 CSID-4 Y3 C ECPT(22) = Z4 X4 Z3 C ECPT(23) = EL-TEM Y4 CSID-4 C ECPT(24) Z4 X4 C ECPT(25) CSID-5 Y4 C ECPT(26) X5 Z4 C ECPT(27) Y5 CSID-5 C ECPT(28) Z5 X5 C ECPT(29) CSID-6 Y5 C ECPT(30) X6 Z5 C ECPT(31) Y6 CSID-6 C ECPT(32) Z6 X6 C ECPT(33) ELTEMP Y6 C ECPT(34) Z6 C ECPT(35) CSID-7 C ECPT(36) X7 C ECPT(37) Y7 C ECPT(38) C ECPT(39) CSID-8 C ECPT(40) X8 C ECPT(41) Y8 C ECPT(42) Z8 C ECPT(43) EL-TEMP C LOGICAL HEAT INTEGER M(14,4),NECPT(100) DOUBLE PRECISION PTMASS,EMASS,R(3,3),MGE(36) COMMON /SMA2HT/ HEAT COMMON /SMA2ET/ ECPT(100) COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ RHO COMMON /HMTOUT/ CP COMMON /SMA2DP/ PTMASS,EMASS,R,MGE,NPTS,NEL,MFIRST,KPT,NROW,JLOC, 1 ITEST,J1,M1,ILOC(4) COMMON /SMA2CL/ DUM1(2),NPVT COMMON /SMA2IO/ DUM2(10),IFMGG,DUMXX(1),IFBGG EQUIVALENCE (ECPT(1),NECPT(1)) DATA M( 1,1), M( 1,2),M( 1,3),M( 1,4) / 1 ,2 ,3 ,4 / DATA M( 2,1), M( 2,2),M( 2,3),M( 2,4) / 1 ,2 ,3 ,6 / DATA M( 3,1), M( 3,2),M( 3,3),M( 3,4) / 1 ,2 ,6 ,5 / DATA M( 4,1), M( 4,2),M( 4,3),M( 4,4) / 1 ,4 ,5 ,6 / DATA M( 5,1), M( 5,2),M( 5,3),M( 5,4) / 1 ,2 ,3 ,6 / DATA M( 6,1), M( 6,2),M( 6,3),M( 6,4) / 1 ,3 ,4 ,8 / DATA M( 7,1), M( 7,2),M( 7,3),M( 7,4) / 1 ,3 ,8 ,6 / DATA M( 8,1), M( 8,2),M( 8,3),M( 8,4) / 1 ,5 ,6 ,8 / DATA M( 9,1), M( 9,2),M( 9,3),M( 9,4) / 3 ,6 ,7 ,8 / DATA M(10,1), M(10,2),M(10,3),M(10,4) / 2 ,3 ,4 ,7 / DATA M(11,1), M(11,2),M(11,3),M(11,4) / 1 ,2 ,4 ,5 / DATA M(12,1), M(12,2),M(12,3),M(12,4) / 2 ,4 ,5 ,7 / DATA M(13,1), M(13,2),M(13,3),M(13,4) / 2 ,5 ,6 ,7 / DATA M(14,1), M(14,2),M(14,3),M(14,4) / 4 ,5 ,7 ,8 / C C SET THE ELEMENT PARAMETERS ACCORDING TO THE TYPE C NPTS = NO. OF CONNECTED POINTS C NEL = NO. OF SUBELEMENTS C MFIRST=POSITION OF FIRST ROW OF MAPPING C MATRIX C GO TO (100,110,120,130), ITYPE 100 NPTS = 4 NEL = 1 MFIRST= 1 GO TO 140 110 NPTS = 6 NEL = 3 MFIRST= 2 GO TO 140 120 NPTS = 8 NEL = 5 MFIRST= 5 GO TO 140 130 NPTS = 8 NEL = 10 MFIRST= 5 140 CONTINUE C C FETCH THE MATERIAL ID AND THE DENSITY, RHO C MATIDC = NECPT(2) MATFLG = 4 NTEMP = 5*NPTS + 3 ELTEMP = ECPT(NTEMP) IF (.NOT.HEAT) CALL MAT (ECPT(1)) IF (HEAT) CALL HMAT (ECPT) IF (HEAT) RHO = CP IF (RHO .EQ. 0.0) GO TO 1200 C C ZERO OUT POINT MASS C PTMASS = 0.0D0 C C LOOP ON SUBELEMENTS C DO 1000 ME = 1,NEL NROW = MFIRST + ME - 1 C C SET UP POINTERS TO LOCATION VECTORS AND TEST IF ELEMENT IS C CONNECTED C ITEST = 0 DO 300 I = 1,4 KPT = M(NROW,I) IF (NECPT(KPT+2) .NE. NPVT) GO TO 250 ITEST = 1 C C THE LOCATION OF THE VECTOR DATA IN THE ECPT IS C 250 ILOC(I) = 4*KPT + NPTS 300 CONTINUE IF (ITEST .EQ. 0) GO TO 1000 C C CALCULATE DIFFERENCE VECTORS FROM THE FIRST VECTOR C DO 500 I = 2,4 DO 400 J = 1,3 JLOC = ILOC(I) + J - 1 J1 = ILOC(1) + J - 1 400 R(I-1,J) = ECPT(JLOC) - ECPT(J1) 500 CONTINUE C C THE MASS ON EACH POINT DUE TO THE TETRAHEDRON IS C (NEGATIVE VALUE OF RHO IS ALLOWED) C EMASS = RHO/24.D0*DABS((R(3,1)*(R(1,2)*R(2,3) - R(1,3)*R(2,2)) 1 + R(3,2)*(R(1,3)*R(2,1) - R(1,1)*R(2,3)) 2 + R(3,3)*(R(1,1)*R(2,2) - R(1,2)*R(2,1)))) IF (ITYPE.NE.4) GO TO 600 EMASS = EMASS/2.0D0 C C THE MASS IS NOW ADDED TO THE APPROPRIATE POINT C 600 PTMASS = PTMASS + EMASS 1000 CONTINUE C C THE MASSES ARE EXPANDED AND INSERTED C IF (HEAT) GO TO 1150 DO 1100 I = 1,36 1100 MGE(I) = 0.0D0 M1 =-1 MGE(1) = PTMASS MGE(8) = MGE(1) MGE(15)= MGE(1) CALL SMA2B (MGE(1),NPVT,M1,IFMGG,0.0D0) GO TO 1200 1150 CALL SMA2B (PTMASS,NPVT,NPVT,IFBGG,0.0D0) C C ALL DONE C 1200 RETURN END ================================================ FILE: mis/mtimsu.f ================================================ SUBROUTINE M TIMS U (Y,X,BUF) C C M TIMS U FORMS THE PRODUCT X = M*Y C INTEGER DIAG ,EOL ,FILEM ,FILEK DOUBLE PRECISION X(1) ,Y(1) ,DA DIMENSION BUF(1) COMMON /INVPWX/ FILEK(7) ,FILEM(7) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,LOWTRI ,UPRTRI , 4 SYM ,ROW ,IDENTY COMMON /INVPXX/ DUMM(13) ,NZERO COMMON /ZNTPKX/ A(4) ,II ,EOL C COMMON /DESCRP/ LENGTH ,MAJOR(1) EQUIVALENCE (A(1),DA) C C NCOL = FILEK(2) DO 10 I = 1,NCOL 10 X(I) = 0.D0 C C MASS MATRIX IS NOT DIAGONAL C NZERO = 0 DO 40 I = 1,NCOL IF (Y(I) .EQ. 0.D0) GO TO 30 CALL INTPK (*40,FILEM(1),0,RDP,0) NZERO = NZERO + 1 20 CALL ZNTPKI X(II) = DA*Y(I) + X(II) IF (EOL) 40,20,40 30 CALL SKPREC (FILEM,1) NZERO = NZERO + 1 40 CONTINUE GO TO 90 90 CALL REWIND (FILEM(1)) CALL SKPREC (FILEM,1) NZERO = NCOL - NZERO RETURN END ================================================ FILE: mis/mtmsu1.f ================================================ SUBROUTINE MTMSU1 (Y,X,BUF) C C M TIMS U FORMS THE PRODUCT X = M*Y C INTEGER DIAG ,EOL ,FILEM ,FILEK REAL X(1) ,Y(1) DIMENSION BUF(1) COMMON /INVPWX/ FILEK(7) ,FILEM(7) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,LOWTRI ,UPRTRI , 4 SYM ,ROW ,IDENTY COMMON /INVPXX/ DUMM(13) ,NZERO COMMON /ZNTPKX/ A(4) ,II ,EOL C COMMON /DESCRP/ LENGTH ,MAJOR(1) EQUIVALENCE (A(1),DA) C C NCOL = FILEK(2) DO 10 I = 1,NCOL 10 X(I) = 0.0 C C MASS MATRIX IS NOT DIAGONAL C NZERO = 0 DO 40 I = 1,NCOL IF (Y(I) .EQ. 0.0) GO TO 30 CALL INTPK (*40,FILEM(1),0,RSP,0) NZERO = NZERO + 1 20 CALL ZNTPKI X(II) = DA*Y(I) + X(II) IF (EOL) 40,20,40 30 CALL SKPREC (FILEM,1) NZERO = NZERO + 1 40 CONTINUE GO TO 90 90 CALL REWIND (FILEM(1)) CALL SKPREC (FILEM,1) NZERO = NCOL - NZERO RETURN END ================================================ FILE: mis/mtrapr.f ================================================ SUBROUTINE MTRAPR C C THIS ROUTINE COMPUTES THE MASS MATRIX FOR A AXI-SYMMETRIC RING C WITH A TRAPEZOIDAL CROSS SECTION C C ECPT FOR THE TRAPEZOIDAL RING C TYPE C ECPT( 1) ELEMENT IDENTIFICATION I C ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A I C ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B I C ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C I C ECPT( 5) SCALAR INDEX NO. FOR GRID POINT D I C ECPT( 6) MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT( 7) MATERIAL IDENTIFICATION I C ECPT( 8) COOR. SYS. ID. FOR GRID POINT A I C ECPT( 9) X-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(10) Y-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(11) Z-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(12) COOR. SYS. ID. FOR GRID POINT B I C ECPT(13) X-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(14) Y-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(15) Z-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(16) COOR. SYS. ID. FOR GRID POINT C I C ECPT(17) X-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(18) Y-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(19) Z-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(20) COOR. SYS. ID. FOR GRID POINT D I C ECPT(21) X-COOR. OF GRID POINT D (IN BASIC COOR.) R C ECPT(22) Y-COOR. OF GRID POINT D (IN BASIC COOR.) R C ECPT(23) Z-COOR. OF GRID POINT D (IN BASIC COOR.) R C ECPT(24) EL. TEMPERATURE FOR MATERIAL PROPERTIES R C DOUBLE PRECISION CONSTD,D2PI,D,GAMBQ,R,Z,DELINT,AK,AKI,AKT,AM, 1 R1,R2,R3,R4,Z1,Z2,Z3,Z4,ZMIN,DGAMA,RZINTD, 2 RMIN,RMAX,RHOD,TWOPI DIMENSION JRZ(2),IECPT(24),AM(64) COMMON /SYSTEM/ IBUF,IOUT COMMON /CONDAD/ CONSTD(5) COMMON /SMA2IO/ DUM1(10),IFMGG,DUM2(25) COMMON /SMA2CL/ DUM3(2),NPVT,DUM4(7),LINK(10),NOGO COMMON /SMA2ET/ ECPT(24),DUM5(76) COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO COMMON /SMA2DP/ D(64),GAMBQ(64),R(4),Z(4),DELINT(12),AK(64), 1 AKI(36),AKT(9),DGAMA,ZMIN,RHOD,TWOPI,IGP(4), 2 ICS(4),SP(24),TEMPE EQUIVALENCE (IECPT(1),ECPT(1)),(R(1),R1),(R(2),R2),(R(3),R3), 1 (R(4),R4),(Z(1),Z1),(Z(2),Z2),(Z(3),Z3),(Z(4),Z4) 2, (AM(1),AK(1)),(CONSTD(2),D2PI) C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT( 1) IGP(1) = IECPT( 2) IGP(2) = IECPT( 3) IGP(3) = IECPT( 4) IGP(4) = IECPT( 5) MATID = IECPT( 7) ICS(1) = IECPT( 8) ICS(2) = IECPT(12) ICS(3) = IECPT(16) ICS(4) = IECPT(20) R(1) = ECPT( 9) D(1) = ECPT(10) Z(1) = ECPT(11) R(2) = ECPT(13) D(2) = ECPT(14) Z(2) = ECPT(15) R(3) = ECPT(17) D(3) = ECPT(18) Z(3) = ECPT(19) R(4) = ECPT(21) D(4) = ECPT(22) Z(4) = ECPT(23) TEMPE = ECPT(24) DGAMA = ECPT( 6) C C CHECK INTERNAL GRID POINTS FOR PIVOT POINT C IPP = 0 DO 100 I = 1,4 IF (NPVT .EQ. IGP(I)) IPP = I 100 CONTINUE IF (IPP .EQ. 0) CALL MESAGE (-30,34,IDEL) C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C DO 200 I = 1,4 IF (R(I) .LT. 0.0D0) GO TO 910 IF (D(I) .NE. 0.0D0) GO TO 910 200 CONTINUE C C COMPUTE THE ELEMENT COORDINATES C ZMIN = DMIN1(Z1,Z2,Z3,Z4) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN Z4 = Z4 - ZMIN C C FATAL IF RATIO OF RADII IS TO LARGE FOR GUASS QUADRATURE FOR IP=-1 C RMIN = DMIN1(R1,R2,R3,R4) RMAX = DMAX1(R1,R2,R3,R4) IF (RMIN .EQ. 0.D0) GO TO 206 IF (RMAX/RMIN .GT. 10.D0) GO TO 930 C 206 CONTINUE D(5) = (R1+R4)/2.0D0 D(6) = (R2+R3)/2.0D0 IF (D(5) .EQ. 0.0D0) GO TO 210 IF (DABS((R1-R4)/D(5)) .GT. 0.5D-2) GO TO 210 R1 = D(5) R4 = D(5) 210 CONTINUE IF (D(6) .EQ. 0.0D0) GO TO 220 IF (DABS((R2-R3)/D(6)) .GT. 0.5D-2) GO TO 220 R2 = D(6) R3 = D(6) 220 CONTINUE C ICORE = 0 J = 1 DO 230 I = 1,4 IF (R(I) .NE. 0.0D0) GO TO 230 ICORE = ICORE + 1 JRZ(J) = I J = 2 230 CONTINUE IF (ICORE.NE.0 .AND. ICORE.NE.2) GO TO 910 C C FORM THE TRANSFORMATION MATRIX (8X8) FROM FIELD COORDINATES TO C GRID POINT DEGREES OF FREEDOM C DO 300 I = 1,64 GAMBQ(I) = 0.0D0 300 CONTINUE GAMBQ( 1) = 1.0D0 GAMBQ( 2) = R1 GAMBQ( 3) = Z1 GAMBQ( 4) = R1*Z1 GAMBQ(13) = 1.0D0 GAMBQ(14) = R1 GAMBQ(15) = Z1 GAMBQ(16) = GAMBQ(4) GAMBQ(17) = 1.0D0 GAMBQ(18) = R2 GAMBQ(19) = Z2 GAMBQ(20) = R2*Z2 GAMBQ(29) = 1.0D0 GAMBQ(30) = R2 GAMBQ(31) = Z2 GAMBQ(32) = GAMBQ(20) GAMBQ(33) = 1.0D0 GAMBQ(34) = R3 GAMBQ(35) = Z3 GAMBQ(36) = R3*Z3 GAMBQ(45) = 1.0D0 GAMBQ(46) = R3 GAMBQ(47) = Z3 GAMBQ(48) = GAMBQ(36) GAMBQ(49) = 1.0D0 GAMBQ(50) = R4 GAMBQ(51) = Z4 GAMBQ(52) = R4*Z4 GAMBQ(61) = 1.0D0 GAMBQ(62) = R4 GAMBQ(63) = Z4 GAMBQ(64) = GAMBQ(52) C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (8,GAMBQ(1),8,D(10),0,D(11),ISING,SP) IF (ISING .EQ. 2) GO TO 920 C C MODIFY THE TRANSFORMATION MATRIX IF ELEMENT IS A CORE ELEMENT C IF (ICORE .EQ. 0) GO TO 305 JJ1 = 2*JRZ(1) - 1 JJ2 = 2*JRZ(2) - 1 C DO 303 I = 1,8 J = 8*(I-1) GAMBQ(I ) = 0.0D0 GAMBQ(I+ 16) = 0.0D0 GAMBQ(J+JJ1) = 0.0D0 GAMBQ(J+JJ2) = 0.0D0 303 CONTINUE 305 CONTINUE C C CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS C INDICATED BY THE FOLLOWING TABLE C C DELINT(1) - (1,0) C DELINT(2) - (1,1) C DELINT(3) - (1,2) C DELINT(4) - (2,0) C DELINT(5) - (2,1) C DELINT(6) - (2,2) C DELINT(7) - (3,0) C DELINT(8) - (3,1) C DELINT(9) - (3,2) C I1 = 0 DO 400 I = 1,3 IP = I DO 350 J = 1,3 IQ = J - 1 I1 = I1 + 1 DELINT(I1) = RZINTD(IP,IQ,R,Z,4) 350 CONTINUE 400 CONTINUE C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT (IDEL) C C SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES C RHOD = RHO C C GENERATE THE CONSISTENT MASS MATRIX IN FIELD COORDINATES C DO 600 I = 1,64 AM(I) = 0.0D0 600 CONTINUE TWOPI = D2PI*RHOD AM( 1) = TWOPI*DELINT(1) AM( 2) = TWOPI*DELINT(4) AM( 3) = TWOPI*DELINT(2) AM( 4) = TWOPI*DELINT(5) AM( 9) = AM( 2) AM(10) = TWOPI*DELINT(7) AM(11) = TWOPI*DELINT(5) AM(12) = TWOPI*DELINT(8) AM(17) = AM( 3) AM(18) = AM(11) AM(19) = TWOPI*DELINT(3) AM(20) = TWOPI*DELINT(6) AM(25) = AM( 4) AM(26) = AM(12) AM(27) = AM(20) AM(28) = TWOPI*DELINT(9) DO 650 I = 1,4 K = (I-1)*8 DO 650 J = 1,4 K = K + 1 AM(K+36) = AM(K) 650 CONTINUE C C TRANSFORM THE ELEMENT MASS MATRIX FROM FIELD COORDINATES TO GRID C POINT DEGREES OF FREEDOM C CALL GMMATD (GAMBQ,8,8,1, AK,8,8,0, D) CALL GMMATD (D,8,8,0, GAMBQ,8,8,0, AK) C C ZERO OUT THE (6X6) MATRIX USED AS INPUT TO THE INSERTION ROUTINE C DO 700 I = 1,36 AKI(I) = 0.0D0 700 CONTINUE C C LOCATE THE TRANSFORMATION MATRICES FOR THE FOUR GRID POINTS C DO 800 I = 1,4 IF (ICS(I) .EQ. 0) GO TO 800 K = 9*(I-1) + 1 CALL TRANSD (ICS(I),D(K)) 800 CONTINUE C C START THE LOOP FOR INSERTION OF THE FOUR (6X6) MATRICES INTO THE C MASTER MASS MATRIX C IR1 = 2*IPP - 1 IAPP = 9*(IPP-1) + 1 DO 900 I = 1,4 C C PLACE THE APPROIATE (2X2) SUBMATRIX OF THE MASS MATRIX IN A (3X3) C MATRIX FOR TRANSFORMATION C IC1 = 2*I - 1 IRC = (IR1-1)*8 + IC1 AKT(1) = AK(IRC) AKT(2) = 0.0D0 AKT(3) = AK(IRC+1) AKT(4) = 0.0D0 AKT(5) = 0.0D0 AKT(6) = 0.0D0 AKT(7) = AK(IRC+8) AKT(8) = 0.0D0 AKT(9) = AK(IRC+9) C C TRANSFORM THE (3X3) MASS MATRIX C IF (ICS(IPP) .EQ. 0) GO TO 820 CALL GMMATD (D(IAPP),3,3,1, AKT(1),3,3,0, D(37)) DO 810 J = 1,9 AKT(J) = D(J+36) 810 CONTINUE 820 CONTINUE IF (ICS(I) .EQ. 0) GO TO 840 IAI = 9*(I-1) + 1 CALL GMMATD (AKT(1),3,3,0, D(IAI),3,3,0, D(37)) DO 830 J = 1,9 AKT(J) = D(J+36) 830 CONTINUE 840 CONTINUE C C PLACE THE TRANSFORMED (3X3) MATRIX INTO A (6X6) MATRIX FOR THE C INSERTION ROUTINE C J = 0 DO 850 J1 = 1,18,6 DO 850 J2 = 1,3 J = J + 1 K = J1 + J2 - 1 AKI(K) = AKT(J) 850 CONTINUE C C CALL THE INSERTION ROUTINE C CALL SMA2B (AKI(1),IGP(I),-1,IFMGG,0.0D0) 900 CONTINUE RETURN C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C 910 I = 37 GO TO 950 920 I = 26 GO TO 950 930 I = 218 GO TO 960 C C ERROR TYPE 218 HAD BEEN ISSUED BY KTRAPR ALREADY. C 950 CALL MESAGE (30,I,IDEL) 960 NOGO = 1 RETURN C END ================================================ FILE: mis/mtrbsc.f ================================================ SUBROUTINE MTRBSC C COMMENT. ALL WRITE STATEMENTS WHICH HAVE BEEN COMMENTED OUT, HAVE BEEN C LEFT IN THE PROGRAMMING FOR ANY FUTURE DEBUGGING USE. C C C ************* BASIC BENDING TRIANGLE ELEMENT ROUTINE ********** C C CALLS FROM THIS ROUTINE ARE MADE TO. . . C C MAT - MATERIAL DATA ROUTINE C SMA2B - INSERTION ROUTINE C TRANSD - DOUBLE PRECISION TRANSFORMATION SUPPLIER C INVERD - DOUBLE PRECISION INVERSE ROUTINE C GMMATD - DOUBLE PRECISION MATRIX MULTIPLY AND TRANSPOSE C MESAGE - ERROR MESSAGE WRITER C C C ****************************************************************** C DOUBLE PRECISION A ,E ,XSUBB ,TEMP 1 ,XSUBC ,D ,YSUBC ,XCYC 2 ,XCSQ ,DETERM ,YCSQ ,XBSQ 3 ,G2X2 ,J2X2 ,HYQ ,AIJ 4 ,BIJ ,SIIJ ,SIZERO ,MBARAA 5 ,MAR ,MRR ,S 6 ,PROD9 ,TEMP9 ,G 7 ,YPRODJ ,XPRODI 8 ,FJ ,FJ2 ,FI ,FIJ C C DIMENSION D(9) ,G(9) ,G2X2(4) ,J2X2(4) , S(18) 1 ,ECPT(1) ,HYQ(6) ,SIIJ(7,7) ,MBARAA(9) , MAR(18) 2 ,MRR(36) C DIMENSION MNAME(9) C DIMENSION NASTER(130) C DATA (MNAME(I), I = 1,9) /6H1(MAA),6H (MAB),6H (MAC),6H (MBA), C $6H (MBB),6H (MBC),6H (MCA),6H (MCB),6H (MCC) / C DATA NASTER /130*1H*/ C COMMON /SMA2IO/ DUM1(10), IFMGG, DUM2(25) COMMON /SMA2CL/ DUM3(2), NPVT 2, DUMCL(7) 3, LINK(10) ,NOGO COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE, 2 G2X211, G2X212, G2X222, SPACE(2) C C ECPT BLOCK COMMON /SMA2ET/ 1 NECPT(1) ,NGRID(3) 2 ,ANGLE ,MATID1 3 ,EYE ,MATID2 4 ,T2 ,FMU 5 ,Z11 ,Z22 6 ,DUMMY1 ,X1 7 ,Y1 ,Z1 8 ,DUMMY2 ,X2 9 ,Y2 ,Z2 1 ,DUMMY3 ,X3 2 ,Y3 ,Z3 ,DUMB(76) C COMMON /SMA2DP/ A(225) ,PROD9(9) 1 ,TEMP9(9) ,XSUBB 2 ,XSUBC ,YSUBC 3 ,E(9) ,TEMP 4 ,XCSQ ,XBSQ 5 ,YCSQ ,XCYC 6 ,AIJ ,DETERM 7 ,BIJ ,SIZERO 8 ,FJ ,FJ2 9 ,FI ,FIJ T ,YPRODJ ,XPRODI 1 2 ,ISING ,DUMMY(59) C EQUIVALENCE 1 (D(1),G(1),SIIJ(1,1),A(1)) ,(ECPT(1),NECPT(1)) 2 ,(G2X2(1),A(10)) ,(J2X2(1),A(14)) 3 ,(HYQ(1),A(50)) ,(MBARAA(1),A(136)) 4 ,(MAR(1),A(145)) ,(MRR(1),A(163)) 5 ,(S(1),A(82)) C C ECPT LIST FOR BASIC BENDING TRIANGLE NAME IN C THIS C ECPT ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID 1 MATID1 INTEGER C ECPT( 7) = I = MOMENT OF INERTIA EYE REAL C ECPT( 8) = MATERIAL ID 2 MATID2 INTEGER C ECPT( 9) = T2 T2 REAL C ECPT(10) = NON-STRUCTURAL-MASS FMU REAL C ECPT(11) = Z1 Z11 REAL C ECPT(12) = Z2 Z22 REAL C ECPT(13) = COORD. SYSTEM ID 1 NECPT(13) INTEGER C ECPT(14) = X1 X1 REAL C ECPT(15) = Y1 Y1 REAL C ECPT(16) = Z1 Z1 REAL C ECPT(17) = COORD. SYSTEM ID 2 NECPT(17) INTEGER C ECPT(18) = X2 X2 REAL C ECPT(19) = Y2 Y2 REAL C ECPT(20) = Z2 Z2 REAL C ECPT(21) = COORD. SYSTEM ID 3 NECPT(21) INTEGER C ECPT(22) = X3 X3 REAL C ECPT(23) = Y3 Y3 REAL C ECPT(24) = Z3 Z3 REAL C ECPT(25) = ELEMENT TEMPERATURE ELTEMP REAL C ****************************************************************** C C SETTING UP G MATRIX C INFLAG = 2 MATID = MATID1 CALL MAT( ECPT(1) ) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT) C DO 50 I = 1,9 50 D(I) = G(I) * DBLE(EYE) C C F1LL (HBAR) MATRIX STORING AT A(100). . .A(135) XCSQ = XSUBC ** 2 YCSQ = YSUBC ** 2 XBSQ = XSUBB ** 2 XCYC = XSUBC * YSUBC C DO 80 I = 100,135 80 A(I) = 0.0D0 C A(100) = XBSQ A(103) = XBSQ * XSUBB A(107) = XSUBB A(112) = -2.0D0 * XSUBB A(115) = -3.0D0 * XBSQ A(118) = XCSQ A(119) = XCYC A(120) = YCSQ A(121) = XCSQ * XSUBC A(122) = YCSQ * XSUBC A(123) = YCSQ * YSUBC A(125) = XSUBC A(126) = YSUBC * 2.0D0 A(128) = XCYC * 2.0D0 A(129) = YCSQ * 3.0D0 A(130) =-2.0D0 * XSUBC A(131) =-YSUBC A(133) =-3.0D0 * XCSQ A(134) =-YCSQ C C C ****************************************************************** C IF( T2 .EQ. 0.0E0 ) GO TO 110 C C ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 110 C ARE NECESSARY IF T2 IS NON-ZERO. C C C GET THE G2X2 MATRIX C MATID = MATID2 INFLAG = 3 CALL MAT( ECPT(1) ) IF(G2X211.EQ.0.0E0 .AND. G2X212.EQ.0.0E0 .AND. G2X222.EQ.0.0E0) 1 GO TO 110 G2X2(1) = G2X211 * T2 G2X2(2) = G2X212 * T2 G2X2(3) = G2X2(2) G2X2(4) = G2X222 * T2 C DETERM = G2X2(1) * G2X2(4) - G2X2(3) * G2X2(2) J2X2(1) = G2X2(4) / DETERM J2X2(2) =-G2X2(2) / DETERM J2X2(3) = J2X2(2) J2X2(4) = G2X2(1) / DETERM C C C (H ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE C YQ RIGHT PORTION IS COMPUTED AND USED AS A (2X3). THE LEFT C 2X3 PORTION IS NULL. THE RIGHT PORTION WILL BE STORED AT C A(50)...A(55) UNTIL NOT NEEDED ANY FURTHER. C C C TEMP = 2.0D0 * D(2) + 4.0D0 * D(9) HYQ(1) = -6.0D0 * (J2X2(1) * D(1) + J2X2(2) * D(3)) HYQ(2) = -J2X2(1) * TEMP - 6.0D0 * J2X2(2) * D(6) HYQ(3) = -6.0D0 * (J2X2(1) * D(6) + J2X2(2) * D(5)) HYQ(4) = -6.0D0 * (J2X2(2) * D(1) + J2X2(4) * D(3)) HYQ(5) = -J2X2(2) * TEMP - 6.0D0 * J2X2(4) * D(6) HYQ(6) = -6.0D0 * (J2X2(2) * D(6) + J2X2(4) * D(5)) C C ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H )(H ) C UY YQ C THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW. C NO (H ) MATRIX IS ACTUALLY COMPUTED DIRECTLY. C UY C C THE FOLLOWING IS THEN STEP 6 PAGE 8, FMMS-66 C DO 100 I = 1,3 A(I + 102) = A(I + 102) + XSUBB * HYQ(I) 100 A(I + 120) = A(I + 120) + XSUBC * HYQ(I) + YSUBC * HYQ(I + 3) C C THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO C C ****************************************************************** C 110 CONTINUE C C AT THIS POINT INVERT (H) WHICH IS STORED AT A(100). . .A(135) C STORE INVERSE BACK IN A(100). . A(135) C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERD(6,A(100),6,A(136),0,DETERM,ISING,A(142)) C C CHECK TO SEE IF H WAS SINGULAR IF( ISING .NE. 2 ) GO TO 120 C C C ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION. CALL MESAGE(30,33,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN C C CHURN OUT INTEGRAL VALUES I USED IN REFERENCED M MATRICES C IJ SEE P.9, FMMS-66 C C THE CALCULATION FOR (I ) ARE AS FOLLOWS C IJ C *** C A1 = XSUBB * YSUBC**(J+1) / ((J+1)*(J+2)) * C 0J * C * C B = XSUBC * YSUBC**(J+1) / (J+2) * C 0J ** J=0,6 C * C A = A1 + B * C 0J 0J 0J * C * C I = MU * A1 * C 0J 0J *** C C *** C A1 = I * XSUBB * A /(I+J+2) * C IJ I-1,J * C * C B = XSUBC**(I+1) * YSUBC**(J+1) /((I+1)*(I+J+2)) * I=1,6 C IJ ** J=0,6 C * C A = A1 + B * C IJ IJ IJ * C * C I MU * A1 * C IJ= IJ * C *** C NOTE.. LOOPS FOR PROGRAM BEGIN AT 1 INSTEAD OF 0 C I.E. I = 1,7 C J = 1,7 C 120 DO 140 J=1,7 YPRODJ = YSUBC **J FJ = J FJ2 = J+1 AIJ = XSUBB * YPRODJ /(FJ * FJ2) BIJ = XSUBC * YPRODJ / FJ2 SIIJ(1,J) = FMU * AIJ AIJ = AIJ + BIJ IF(J .EQ. 7) GO TO 140 K = 8 - J DO 130 I = 2,K XPRODI = XSUBC **I FI = I FIJ = I + J AIJ = (FI-1.0D0) * XSUBB * AIJ / FIJ BIJ = XPRODI * YPRODJ /(FI * FIJ) SIIJ(I,J) = FMU * AIJ 130 AIJ = AIJ + BIJ C 140 CONTINUE SIZERO = SIIJ(1,1) / 3.0D0 C CHUNK IN NUMBERS FOR (M-BAR-AA) 3X3 MATRIX AS PER MS-48, PAGES 6-10 C C (M ) 3X6 MATRIX C AR C C (M ) 6X6 MATRIX C RR C C (M-BAR-AA) MATRIX C MBARAA(1) = SIIJ(1,1) MBARAA(2) = SIIJ(1,2) MBARAA(3) = -SIIJ(2,1) MBARAA(4) = SIIJ(1,2) MBARAA(5) = SIIJ(1,3) MBARAA(6) = -SIIJ(2,2) MBARAA(7) = -SIIJ(2,1) MBARAA(8) = -SIIJ(2,2) MBARAA(9) = SIIJ(3,1) C C (M ) MATRIX C AR MAR( 1) = SIIJ(3,1) MAR( 2) = SIIJ(2,2) MAR( 3) = SIIJ(1,3) MAR( 4) = SIIJ(4,1) MAR( 5) = SIIJ(2,3) MAR( 6) = SIIJ(1,4) MAR( 7) = SIIJ(3,2) MAR( 8) = SIIJ(2,3) MAR( 9) = SIIJ(1,4) MAR(10) = SIIJ(4,2) MAR(11) = SIIJ(2,4) MAR(12) = SIIJ(1,5) MAR(13) =-SIIJ(4,1) MAR(14) =-SIIJ(3,2) MAR(15) =-SIIJ(2,3) MAR(16) =-SIIJ(5,1) MAR(17) =-SIIJ(3,3) MAR(18) =-SIIJ(2,4) C C (M ) MATRIX A 6X6 SYMMETRIC MATRIX C RR MRR( 1) = SIIJ(5,1) MRR( 2) = SIIJ(4,2) MRR( 3) = SIIJ(3,3) MRR( 4) = SIIJ(6,1) MRR( 5) = SIIJ(4,3) MRR( 6) = SIIJ(3,4) MRR( 7) = MRR(2) MRR( 8) = SIIJ(3,3) MRR( 9) = SIIJ(2,4) MRR(10) = SIIJ(5,2) MRR(11) = SIIJ(3,4) MRR(12) = SIIJ(2,5) MRR(13) = MRR(3) MRR(14) = MRR(9) MRR(15) = SIIJ(1,5) MRR(16) = SIIJ(4,3) MRR(17) = SIIJ(2,5) MRR(18) = SIIJ(1,6) MRR(19) = MRR( 4) MRR(20) = MRR(10) MRR(21) = MRR(16) MRR(22) = SIIJ(7,1) MRR(23) = SIIJ(5,3) MRR(24) = SIIJ(4,4) MRR(25) = MRR( 5) MRR(26) = MRR(11) MRR(27) = MRR(17) MRR(28) = MRR(23) MRR(29) = SIIJ(3,5) MRR(30) = SIIJ(2,6) MRR(31) = MRR( 6) MRR(32) = MRR(12) MRR(33) = MRR(18) MRR(34) = MRR(24) MRR(35) = MRR(30) MRR(36) = SIIJ(1,7) C IF(T2 .EQ. 0.0) GO TO 146 IF(G2X211.EQ.0.0E0 .AND. G2X212.EQ.0.0E0 .AND. G2X222.EQ.0.0E0) 1 GO TO 146 C MAR( 4) = MAR( 4) + HYQ(1) * SIIJ(2,1) + HYQ(4) * SIIJ(1,2) MAR( 5) = MAR( 5) + HYQ(2) * SIIJ(2,1) + HYQ(5) * SIIJ(1,2) MAR( 6) = MAR( 6) + HYQ(3) * SIIJ(2,1) + HYQ(6) * SIIJ(1,2) MAR(10) = MAR(10) + HYQ(1) * SIIJ(2,2) + HYQ(4) * SIIJ(1,3) MAR(11) = MAR(11) + HYQ(2) * SIIJ(2,2) + HYQ(5) * SIIJ(1,3) MAR(12) = MAR(12) + HYQ(3) * SIIJ(2,2) + HYQ(6) * SIIJ(1,3) MAR(16) = MAR(16) - HYQ(1) * SIIJ(3,1) - HYQ(4) * SIIJ(2,2) MAR(17) = MAR(17) - HYQ(2) * SIIJ(3,1) - HYQ(5) * SIIJ(2,2) MAR(18) = MAR(18) - HYQ(3) * SIIJ(3,1) - HYQ(6) * SIIJ(2,2) MRR( 4) = MRR( 4) + HYQ(1) * SIIJ(4,1) + HYQ(4) * SIIJ(3,2) MRR( 5) = MRR( 5) + HYQ(2) * SIIJ(4,1) + HYQ(5) * SIIJ(3,2) MRR( 6) = MRR( 6) + HYQ(3) * SIIJ(4,1) + HYQ(6) * SIIJ(3,2) MRR(10) = MRR(10) + HYQ(1) * SIIJ(3,2) + HYQ(4) * SIIJ(2,3) MRR(11) = MRR(11) + HYQ(2) * SIIJ(3,2) + HYQ(5) * SIIJ(2,3) MRR(12) = MRR(12) + HYQ(3) * SIIJ(3,2) + HYQ(6) * SIIJ(2,3) MRR(16) = MRR(16) + HYQ(1) * SIIJ(2,3) + HYQ(4) * SIIJ(1,4) MRR(17) = MRR(17) + HYQ(2) * SIIJ(2,3) + HYQ(5) * SIIJ(1,4) MRR(18) = MRR(18) + HYQ(3) * SIIJ(2,3) + HYQ(6) * SIIJ(1,4) MRR(19) = MRR( 4) MRR(20) = MRR(10) MRR(21) = MRR(16) MRR(22) = MRR(22) + HYQ(1) * (HYQ(1) * SIIJ(3,1) + 2.0D0 1 * (SIIJ(5,1) + HYQ(4) * SIIJ(2,2))) + HYQ(4) * (2.0D0 * SIIJ(4,2) 2 + HYQ(4) * SIIJ(1,3)) MRR(23) = MRR(23) + HYQ(2) * SIIJ(5,1) + HYQ(5) * SIIJ(4,2) 1 + HYQ(1) * (SIIJ(3,3) + HYQ(2) * SIIJ(3,1) + HYQ(5) * SIIJ(2,2)) 2 + HYQ(4) * (SIIJ(2,4) + HYQ(2) * SIIJ(2,2) + HYQ(5) * SIIJ(1,3)) MRR(24) = MRR(24) + HYQ(3) * SIIJ(5,1) + HYQ(6) * SIIJ(4,2) 1 + HYQ(1) * (SIIJ(2,4) + HYQ(3) * SIIJ(3,1) + HYQ(6) * SIIJ(2,2)) 2 + HYQ(4) * (SIIJ(1,5) + HYQ(3) * SIIJ(2,2) + HYQ(6) * SIIJ(1,3)) MRR(25) = MRR( 5) MRR(26) = MRR(11) MRR(27) = MRR(17) MRR(28) = MRR(23) MRR(29) = MRR(29) + HYQ(2) * (HYQ(2) * SIIJ(3,1) + 2.0D0 1 * (SIIJ(3,3) + HYQ(5) * SIIJ(2,2))) + HYQ(5) * (2.0D0 * SIIJ(2,4) 2 + HYQ(5) * SIIJ(1,3)) MRR(30) = MRR(30) + HYQ(3) * SIIJ(3,3) + HYQ(6) * SIIJ(2,4) 1 + HYQ(2) * (SIIJ(2,4) + HYQ(3) * SIIJ(3,1) + HYQ(6) * SIIJ(2,2)) 2 + HYQ(5) * (SIIJ(1,5) + HYQ(3) * SIIJ(2,2) + HYQ(6) * SIIJ(1,3)) MRR(31) = MRR( 6) MRR(32) = MRR(12) MRR(33) = MRR(18) MRR(34) = MRR(24) MRR(35) = MRR(30) MRR(36) = MRR(36) + HYQ(3) * (HYQ(3) * SIIJ(3,1) + 2.0D0 1 * (SIIJ(2,4) + HYQ(6) * SIIJ(2,2))) + HYQ(6) * (2.0D0 * SIIJ(1,5) 2 + HYQ(6) * SIIJ(1,3)) C 146 CONTINUE C C C FILL S-MATRIX EQUIVALENCED TO A(82) (S IS 6X3 ) C S( 1) = 1.0D0 S( 2) = 0.0D0 S( 3) =-XSUBB S( 4) = 0.0D0 S( 5) = 1.0D0 S( 6) = 0.0D0 S( 7) = 0.0D0 S( 8) = 0.0D0 S( 9) = 1.0D0 S(10) = 1.0D0 S(11) = YSUBC S(12) =-XSUBC S(13) = 0.0D0 S(14) = 1.0D0 S(15) = 0.0D0 S(16) = 0.0D0 S(17) = 0.0D0 S(18) = 1.0D0 C CAN NOW COMPUTE 9 (3X3) MASS MATRICES (FMMS-66, PAGES 10-11) C C C -1 T -1 C ( M ) = ( H ) ( M ) ( H ) C RR C C PARTITION (M) C /// /// C / * / C / MBB * MBC / C / * / C ( M ) = / ********* / C / * / C / MCB * MCC / C / * / C /// /// C 4 (3X3) MATRICES C -1 C ( M ) = ( M ) ( H ) C AI AR C C PARTITION (M ) /// /// C AI / * / C ( M ) = / M-BAR-AB * M-BAR-AC / C AI / * / C /// /// C 2 (3X3) MATRICES C T T C ( MAB ) = (M-BAR-AB) - (S ) (MBB) - (S ) (MCB) C B C C C T T C ( MAC ) = (M-BAR-AC) - (S ) (MBC) - (S ) (MCC) C B C C C T T T T C ( MAA ) = (M-BAR-AA) - (S ) (M ) - (S ) (MAC ) C B AB C C C - (M-BAR-AB) (S ) - (M-BAR-AC) (S ) C B C C C T C ( MBA ) = (MAB ) C C T C ( MCA ) = (MAC ) C CHOOSE APPROPRIATE BLOCK OF A-ARRAY FOR STORAGE C C (3X3) STORED IN (3X3) STORED IN (3X3) STORED IN C (MAA) A( 1... 9) (MAB) A(10)...8) (MAC) A(19...27) C (MBA) A(28...36) (MBB) A(37)...45) (MBC) A(46...54) C (MCA) A(55...63) (MCB) A(64...72) (MCC) A(73...81) C C -1 C (H ) IS STORED AT A(100...135) C (S) EQUIVALENCED A( 81... 99) C WORKING STORAGE IS A(181...216) C (M-BAR-AB) STORED UNTIL NO LONGER NEEDED IN A(163...171) C (M-BAR-AC) STORED UNTIL NO LONGER NEEDED IN A(172...180) C C -1 T -1 COMPUTE (M) = (H ) ((M ) (H )) C RR C CALL GMMATD(MRR(1),6,6,0,A(100),6,6,0,A(37)) CALL GMMATD(A(100),6,6,1,A( 37),6,6,0,A( 1)) C CREATE PARTITION OF 4 (3X3) DO 150 I=1,3 A(I+36) = A(I ) A(I+39) = A(I+ 6) A(I+42) = A(I+12) C A(I+45) = A(I+ 3) A(I+48) = A(I+ 9) A(I+51) = A(I+15) C A(I+63) = A(I+18) A(I+66) = A(I+24) A(I+69) = A(I+30) C A(I+72) = A(I+21) A(I+75) = A(I+27) 150 A(I+78) = A(I+33) C COMPUTE -1 C (M ) = (M ) (H ) AND PARTITION INTO 2 (3X3) (M-BAR-AB) C AI AR AND (M-BAR-AC) C CALL GMMATD(MAR(1),3,6,0,A(100),6,6,0,A(181)) DO 160 I=1,3 A(I+162) = A(I+180) A(I+165) = A(I+186) A(I+168) = A(I+192) C A(I+171) = A(I+183) A(I+174) = A(I+189) 160 A(I+177) = A(I+195) COMPUTE (MAB) CALL GMMATD(S( 1),3,3,1,A(37),3,3,0,A(181)) CALL GMMATD(S(10),3,3,1,A(64),3,3,0,A(190)) DO 170 I=1,9 170 A(I+9)=A(I+162) - A(I+180) - A(I+189) COMPUTE (MAC) CALL GMMATD(S( 1),3,3,1,A(46),3,3,0,A(181)) CALL GMMATD(S(10),3,3,1,A(73),3,3,0,A(190)) DO 180 I=1,9 180 A(I+18) = A(I+171) - A(I+180) - A(I+189) COMPUTE (MAA) CALL GMMATD(S( 1),3,3,1,A(10),3,3,1,A(181)) CALL GMMATD(S( 10),3,3,1,A(19),3,3,1,A(190)) CALL GMMATD(A(163),3,3,0,S( 1),3,3,0,A(199)) CALL GMMATD(A(172),3,3,0,S(10),3,3,0,A(208)) DO 190 I=1,9 190 A(I) = MBARAA(I) - A(I+180) - A(I+189) - A(I+198) - A(I+207) COMPUTE (MBA) AND (MCA) DO 200 I=1,3 NPT = 3 * I + 7 A(I+27) = A(NPT) A(I+30) = A(NPT + 1) A(I+33) = A(NPT + 2) C A(I+54) = A(NPT + 9) A(I+57) = A(NPT + 10) 200 A(I+60) = A(NPT + 11) C RETURN C END ================================================ FILE: mis/mtriqd.f ================================================ SUBROUTINE MTRIQD (NTYPE) C C C 8/18/67 E C P T L I S T I N G C C ECPT TRPLT TRIA1 TRIA2 QDPLT QUAD1 QUAD2 C ***************************************************************** C C 1 ELEM ID ELEM ID ELEM ID ELEM ID ELEM ID ELEM ID C 2 GRID A GRID A GRID A GRID A GRID A GRID A C 3 GRID B GRID B GRID B GRID B GRID B GRID B C 4 GRID C GRID C GRID C GRID C GRID C GRID C C 5 THETA THETA THETA GRID D GRID D GRID D C 6 MATID1 MATID1 MAT ID THETA THETA THETA C 7 I T1 T MATID1 MATID1 MAT ID C 8 MATID2 MATID2 NS MASS I T1 T C 9 T2 I CSID 1 MATID2 MATID2 NS MASS C 10 NS MASS MATID3 X1 T2 I CSID 1 C 11 Z1 T2 Y1 NS MASS MATID3 X1 C 12 Z2 NS MASS Z1 Z1 T2 Y1 C 13 CSID 1 Z1 CSID 3 Z2 NS MASS Z1 C 14 X1 Z2 X2 CSID 1 Z1 CSID 2 C 15 Y1 CSID 1 Y2 X1 Z2 X2 C 16 Z1 X1 Z2 Y1 CSID 1 Y2 C 17 CSID 2 Y1 CSID 3 Z1 X1 Z2 C 18 X2 Z1 X3 CSID 2 Y1 CSID 3 C 19 Y2 CSID 2 Y3 X2 Z1 X3 C 20 Z2 X2 Z3 Y2 CSID 2 Y3 C 21 CSID 3 Y2 TEMP Z2 X2 Z3 C 22 X3 Z2 CSID 3 Y2 CSID 4 C 23 Y3 CSID 3 X3 Z2 X4 C 24 Z3 X3 Y3 CSID 3 Y4 C 25 TEMP Y3 Z3 X3 Z4 C 26 Z3 CSID 4 Y3 TEMP C 27 TEMP X4 Z3 C 28 Y4 CSID 4 C 29 Z4 X4 C 30 TEMP Y4 C 31 Z4 C 32 TEMP C C LOGICAL HEAT DIMENSION SAVE(32),ISAVE(32) COMMON /SMA2ET/ ECPT(100) COMMON /SMA2HT/ HEAT COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ RHO EQUIVALENCE (SAVE(1),ISAVE(1),ECPT(50)) C C THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2 C C NTYPE = 1 IMPLIES MTRIA1 C NTYPE = 2 IMPLIES MTRIA2 C NTYPE = 3 IMPLIES MQUAD1 C NTYPE = 4 IMPLIES MQUAD2 C C IF (I . EQ. 0) THEN COMPUTE UNCOUPLED MASS C C CALL MASSTQ (NARG) C WHERE NARG = 5 FOR TRIA1 C NARG = 4 FOR TRIA2 C NARG = 2 FOR QUAD1 C NARG = 1 FOR QUAD2 C C CALLS FROM THIS ROUTINE CAN BE MADE TO C C MTRPLT - TRIANGULAR PLATE ROUTINE C MQDPLT - QUADRILATERAL PLATE ROUTINE C MASSTQ - UNCOUPLED MASS COMBINATION ELEMENT ROUTINE C C ALL INSERTIONS OF 6X6 ELEMENT MASS MATRICES ARE HANDLED BY C THE ABOVE ROUTINES. C C THE SAVED ECPT IS EQUIVALENCED TO ECPT(50) C C C SAVE THE INCOMING ECPT C INFLAG = 4 DO 10 I = 1,32 10 SAVE(I) = ECPT(I) C C TRANSFER TO OPERATIONS DESIRED C C MTRIA1 MTRIA2 MQUAD1 MQUAD2 GO TO ( 20, 60, 100, 150), NTYPE C C *** MTRIA1 *** C C SET UP ECPT FOR CALL TO MTRPLT. FIRST CHECK I EQUAL ZERO C 20 IF (SAVE(9) .NE. 0.0) GO TO 30 NARG = 5 CALL MASSTQ (NARG) GO TO 200 C 30 DO 40 I = 1,5 40 ECPT(I) = SAVE(I) DO 50 I = 6,25 50 ECPT(I) = SAVE(I+2) MATID = ISAVE(6) IF (SAVE(7) .EQ. 0.0) GO TO 54 CALL MAT (ECPT(1)) ECPT(10) = SAVE(12) + RHO*SAVE(7) C GO TO 56 54 ECPT(10) = SAVE(12) 56 IF (.NOT.HEAT) CALL MTRPLT GO TO 200 C C *** MTRIA2 *** C C SET UP ECPT FOR CALL TO MTRPLT C 60 IF (SAVE(7) .NE. 0.0) GO TO 70 NARG = 4 CALL MASSTQ (NARG) GO TO 200 C 70 DO 80 I = 1,6 80 ECPT(I) = SAVE(I) ECPT(7) = SAVE(7)**3/12.0 ECPT(8) = SAVE(6) ECPT(9) = SAVE(7) MATID = ISAVE(6) CALL MAT (ECPT(1)) ECPT(10) = SAVE(8) + RHO*SAVE(7) DO 90 I = 13,25 90 ECPT(I) = SAVE(I-4) C IF (.NOT. HEAT) CALL MTRPLT GO TO 200 C C *** MQUAD1 *** C C SET UP ECPT FOR CALL TO MQDPLT. FIRST CHECK I EQUAL ZERO C 100 IF (SAVE(10) .NE. 0.0) GO TO 110 NARG = 2 CALL MASSTQ (NARG) GO TO 200 C 110 DO 130 I = 1,6 130 ECPT(I) = SAVE(I) DO 140 I = 7,30 140 ECPT(I) = SAVE(I+2) MATID = ISAVE(7) IF (SAVE(8) .EQ. 0.0) GO TO 144 CALL MAT (ECPT(1)) ECPT(11) = SAVE(13) + RHO*SAVE(8) C GO TO 146 144 ECPT(11) = SAVE(13) 146 IF (.NOT.HEAT) CALL MQDPLT GO TO 200 C C *** MQUAD2 *** C C SET UP ECPT FOR CALL TO MQDPLT C 150 IF (SAVE(8) .NE. 0.0) GO TO 160 NARG = 1 CALL MASSTQ (NARG) GO TO 200 C 160 DO 170 I = 1,7 170 ECPT(I) = SAVE(I) ECPT(8) = SAVE(8)**3/12.0 ECPT(9) = SAVE(7) ECPT(10)= SAVE(8) MATID = ISAVE(7) CALL MAT (ECPT(1)) ECPT(11) = SAVE(9) + RHO*SAVE(8) DO 180 I = 14,30 180 ECPT(I) = SAVE(I-4) C IF (.NOT. HEAT) CALL MQDPLT 200 RETURN END ================================================ FILE: mis/mtrirg.f ================================================ SUBROUTINE MTRIRG C C C***** C THIS ROUTINE COMPUTES THE MASS MATRIX FOR A AXI-SYMMETRIC RING C WITH A TRIANGULAR CROSS SECTION C***** C C C ECPT FOR THE TRIANGULAR RING C C C TYPE C ECPT( 1) ELEMENT IDENTIFICATION I C ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A I C ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B I C ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C I C ECPT( 5) MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT( 6) MATERIAL IDENTIFICATION I C ECPT( 7) COOR. SYS. ID. FOR GRID POINT A I C ECPT( 8) X-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT( 9) Y-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(10) Z-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(11) COOR. SYS. ID. FOR GRID POINT B I C ECPT(12) X-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(13) Y-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(14) Z-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(15) COOR. SYS. ID. FOR GRID POINT C I C ECPT(16) X-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(17) Y-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(18) Z-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(19) EL. TEMPERATURE FOR MATERIAL PROPERTIES R C C DOUBLE PRECISION CONSTD, D2PI DOUBLE PRECISION 1 D , GAMBQ, R, Z 2, DELINT, AK, AKI 3, AKT, AM DOUBLE PRECISION R1, R2, R3, Z1, Z2, Z3, ZMIN, DGAMA 1, DR, RH, DZ, ZH, RA, ZA, AREA 2, TWOPI, RHOD, DKI C DIMENSION IECPT(19) DIMENSION AM(36) C COMMON /CONDAD/ CONSTD(5) COMMON /SMA2IO/ 1 DUM1(10) 2, IFMGG 3, DUM2(25) COMMON /SMA2CL/ 1 DUM3(2) 2, NPVT 3, DUM4(7) 4, LINK(10) ,NOGO COMMON /SMA2ET/ 1 ECPT(19) 2, DUM5(81) COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH COMMON /MATOUT/ 1 E(3) ,ANU(3) 2, RHO ,G(3) 3, ALF(3) ,TZERO COMMON /SMA2DP/ 1 D(36) , GAMBQ(36), R(3) , Z(3) 2, DELINT(8), AK(36) 3, AKI(36), AKT(9) 4, DGAMA, ZMIN, RHOD, TWOPI 5, DR, RH, DZ, ZH, RA, ZA, AREA 8, IGP(3) , ICS(3) , SP(18) 9, TEMPE C EQUIVALENCE (IECPT(1) , ECPT(1)) EQUIVALENCE (R(1),R1), (R(2),R2), (R(3),R3) 1, (Z(1),Z1), (Z(2),Z2), (Z(3),Z3) EQUIVALENCE (AM(1) , AK(1)) EQUIVALENCE ( CONSTD(2) , D2PI ) C C ---------------------------------------------------------------------- C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT(1) IGP(1)= IECPT(2) IGP(2)= IECPT(3) IGP(3)= IECPT(4) MATID = IECPT(6) ICS(1)= IECPT(7) ICS(2)= IECPT(11) ICS(3)= IECPT(15) R(1) = ECPT(8) D(1) = ECPT(9) Z(1) = ECPT(10) R(2) = ECPT(12) D(2) = ECPT(13) Z(2) = ECPT(14) R(3) = ECPT(16) D(3) = ECPT(17) Z(3) = ECPT(18) TEMPE = ECPT(19) DGAMA = ECPT(5) C C C CHECK INTERNAL GRID POINTS FOR PIVOT POINT C IPP = 0 DO 100 I = 1,3 IF (NPVT .EQ. IGP(I)) IPP = I 100 CONTINUE IF (IPP .EQ. 0) CALL MESAGE (-30,34,IDEL) C C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C IEROR1 = 0 DO 200 I = 1,3 IF (R(I).GT.0.0D0) GO TO 200 IF (IEROR1.NE.0) GO TO 200 CALL MESAGE (30, 211, IDEL) IEROR1 = 1 200 CONTINUE IEROR2 = 0 DO 210 I = 1, 3 IF (D(I).EQ.0.0D0) GO TO 210 IF (IEROR2.NE.0) GO TO 210 CALL MESAGE (30, 212, IDEL) IEROR2 = 1 210 CONTINUE C C C COMPUTE THE ELEMENT COORDINATES C IF (IEROR1.EQ.0.AND.IEROR2.EQ.0) GO TO 220 NOGO = 2 RETURN 220 ZMIN = DMIN1 (Z1, Z2, Z3) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN C C C C FORM THE TRANSFORMATION MATRIX (6X6) FROM FIELD COORDINATES TO GRID C POINT DEGREES OF FREEDOM C DO 300 I = 1,36 GAMBQ(I) = 0.0D0 300 CONTINUE GAMBQ( 1) = 1.0D0 GAMBQ( 2) = R1 GAMBQ( 3) = Z1 GAMBQ(10) = 1.0D0 GAMBQ(11) = R1 GAMBQ(12) = Z1 GAMBQ(13) = 1.0D0 GAMBQ(14) = R2 GAMBQ(15) = Z2 GAMBQ(22) = 1.0D0 GAMBQ(23) = R2 GAMBQ(24) = Z2 GAMBQ(25) = 1.0D0 GAMBQ(26) = R3 GAMBQ(27) = Z3 GAMBQ(34) = 1.0D0 GAMBQ(35) = R3 GAMBQ(36) = Z3 C C C NONEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERD (6, GAMBQ(1),6 , D(10), 0, D(11) , ISING , SP) C IF (ISING.EQ.2) GO TO 920 C C C C CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS C INDICATED BY THE FOLLOWING TABLE C C DELINT( 1) - ( 1,0) C DELINT( 2) - ( 1,1) C DELINT( 3) - ( 1,2) C DELINT( 4) - ( 2,0) C DELINT( 5) - ( 2,1) C DELINT( 6) - ( 0,2) C DELINT( 7) - ( 3,0) C DELINT( 8) - (-1,2) C C C TEST FOR RELATIVE SMALL AREA OF INTEGRATION C AND IF AREA IS SMALL THEN APPROXIMATE INTEGRALS C DR = DMAX1 ( DABS(R1-R2) , DABS(R2-R3) , DABS(R3-R1) ) RH = DMIN1 ( R1 , R2 , R3 ) / 10.0D0 DZ = DMAX1 ( DABS(Z1-Z2) , DABS(Z2-Z3) , DABS(Z3-Z1) ) ZH = DMIN1 ( Z1 , Z2 , Z3 ) / 10.0D0 RA = (R1 + R2 + R3) / 3.0D0 ZA = (Z1 + Z2 + Z3) / 3.0D0 AREA =(R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2)) / 2.0D0 KODE = 0 IF (DABS( (R2-R1)/R2 ) .LT. 1.0D-5) KODE = 1 IF ( DR .LE. RH .OR. DZ .LE. ZH ) KODE = -1 C C 310 CONTINUE I1 = 0 DO 400 I = 1,3 IP = I DO 350 J = 1,3 IQ = J - 1 IF (IP.EQ.2 .AND. IQ.EQ.2) IP = 0 IF (IP.EQ.3 .AND. IQ.EQ.2) IP = -1 IF (IP.EQ.3 .AND. IQ.EQ.1) GO TO 350 I1 = I1 + 1 IF (KODE) 320,330,340 320 DELINT(I1) =((RA) ** IP)*((ZA) ** IQ) * AREA GO TO 350 330 DELINT(I1) = DKI(1,3,1,2,1,3,IP,IQ,R,Z) 1 + DKI(3,2,1,2,3,2,IP,IQ,R,Z) GO TO 350 340 CONTINUE DELINT(I1) = DKI(1,3,3,2,1,3,IP,IQ,R,Z) 350 CONTINUE 400 CONTINUE C C C TEST FOR EXCESSIVE ROUND-OFF ERROR IN INTEGRAL CALCULATIONS C AND IF IT EXIST APPROXIMATE INTEGRALS C IF (KODE .LT. 0) GO TO 500 DO 450 I = 1,8 IF (DELINT(I) .LT. 0.0D0) GO TO 475 450 CONTINUE IF (DELINT(3) .LE. DELINT(6)) GO TO 475 IF (DELINT(8) .GE. DELINT(3)) GO TO 475 IF (DELINT(8) .GT. DELINT(6)) GO TO 475 GO TO 500 475 CONTINUE KODE = -1 GO TO 310 500 CONTINUE C C C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT (IDEL) C C C SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES C RHOD = RHO C C GENERATE THE CONSISTENT MASS MATRIX IN FIELD COORDINATES C DO 600 I = 1,36 AM(I) = 0.0D0 600 CONTINUE TWOPI = D2PI * RHOD AM( 1)= TWOPI * DELINT(1) AM( 2)= TWOPI * DELINT(4) AM( 3)= TWOPI * DELINT(2) AM( 7)= AM( 2) AM( 8)= TWOPI * DELINT(7) AM( 9)= TWOPI * DELINT(5) AM(13)= AM( 3) AM(14)= AM( 9) AM(15)= TWOPI * DELINT(3) AM(22)= AM( 1) AM(23)= AM( 2) AM(24)= AM( 3) AM(28)= AM(23) AM(29)= AM( 8) AM(30)= AM( 9) AM(34)= AM(24) AM(35)= AM(30) AM(36)= AM(15) C C TRANSFORM THE ELEMENT MASS MATRIX FROM FIELD COORDINATES C TO GRID POINT DEGREES OF FREEDOM C CALL GMMATD (GAMBQ , 6, 6, 1, AK , 6, 6, 0, D ) CALL GMMATD (D , 6, 6, 0, GAMBQ , 6, 6, 0, AK) C C C C ZERO OUT THE (6X6) MATRIX USED AS INPUT TO THE INSERTION ROUTINE C DO 700 I = 1,36 AKI(I) = 0.0D0 700 CONTINUE C C C LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS C DO 800 I = 1,3 IF (ICS(I) .EQ. 0) GO TO 800 K = 9 * (I-1) + 1 CALL TRANSD (ICS(I) , D(K)) 800 CONTINUE C C C C START THE LOOP FOR INSERTION OF THE THREE (6X6) MATRICES C INTO THE MASTER MASS MATRIX C IR1 = 2 * IPP - 1 IAPP = 9 * (IPP-1) + 1 DO 900 I = 1,3 C C PLACE THE APPROIATE (2X2) SUBMATRIX OF THE MASS MATRIX C IN A (3X3) MATRIX FOR TRANSFORMATION C IC1 = 2 * I - 1 IRC = (IR1 - 1) * 6 + IC1 AKT(1) = AK(IRC) AKT(2) = 0.0D0 AKT(3) = AK(IRC+1) AKT(4) = 0.0D0 AKT(5) = 0.0D0 AKT(6) = 0.0D0 AKT(7) = AK(IRC+6) AKT(8) = 0.0D0 AKT(9) = AK(IRC+7) C C TRANSFORM THE (3X3) MASS MATRIX C IF (ICS(IPP) .EQ. 0) GO TO 820 CALL GMMATD (D(IAPP) , 3, 3, 1, AKT(1) , 3, 3, 0, D(28) ) DO 810 J = 1,9 AKT(J) = D(J+27) 810 CONTINUE 820 CONTINUE IF (ICS(I) .EQ. 0) GO TO 840 IAI = 9 * (I - 1) + 1 CALL GMMATD (AKT(1) , 3, 3, 0, D(IAI) , 3, 3, 0, D(28) ) DO 830 J = 1,9 AKT(J) = D(J+27) 830 CONTINUE 840 CONTINUE C C PLACE THE TRANSFORMED (3X3) MATRIX INTO A (6X6) MATRIX FOR C THE INSERTION ROUTINE C J = 0 DO 850 J1 = 1,18,6 DO 850 J2 = 1,3 J = J + 1 K = J1 + J2 - 1 AKI(K) = AKT(J) 850 CONTINUE C C CALL THE INSERTION ROUTINE C CALL SMA2B (AKI(1) , IGP(I), -1, IFMGG, 0.0D0) 900 CONTINUE RETURN C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C 915 NOGO=1 RETURN 920 CALL MESAGE(30,37,IDEL) GO TO 915 C END ================================================ FILE: mis/mtrplt.f ================================================ SUBROUTINE MTRPLT C COMMENT. ALL WRITE STATEMENTS WHICH HAVE BEEN COMMENTED OUT, HAVE BEEN C LEFT IN THE PROGRAMMING FOR ANY FUTURE DEBUGGING USE. C C C THIS ROUTINE GENERATES THE FOLLOWING C C 3-6X6 STIFFNESS MATRICES WITH RESPECT C TO ONE PIVOT POINT OF A TRIANGULAR PLATE C ELEMENT. C C REF. FMMS-66 JUNE 23, 1969 C C CALLS FROM THIS ROUTINE ARE MADE TO C MTRBSC - BASIC BENDING TRI. ROUTINE. C TRANSD - SUPPLIES 3X3 TRANSFORMATIONS C INVERD - MATRIX INVERSION ROUTINE C SMA2B - INSERTION ROUTINE C GMMATD - GENERAL MATRIX MULITPLY AND C TRANSPOSE ROUTINE C MESAGE - ERROR MESSAGE WRITER C C INTEGER SUBSCA ,SUBSCB ,SUBSCC DOUBLE PRECISION 1 R(2,4) ,D1(3) ,HABC(18) 2 ,TEMP ,D2(3) ,HINV 3 ,MSUM(63) ,IVECT ,G(36) 4 ,V ,JVECT ,E 5 ,VV ,KVECT ,TITE(9) 6 ,XSUBB ,TEMP9 ,TJTE(36) 7 ,XSUBC ,PROD9 ,ARR9 8 ,YSUBC ,U1 ,ARRAY9 9 ,T ,U2 ,TEMP36(36) T ,A ,TEMP1 ,PROD12(12) 1 ,C1 ,TEMP2 ,HQ(12) 2 ,C2 ,L1 ,Y1 3 ,X1 ,L2 ,Y2 4 ,X2 ,S1 ,DETERM 5 ,S2 ,MOUT(36) ,S ,REQUIV(8) 6 ,EM3 ,M6X6 C C ****************************************************************** C C ECPT LISTS AS OF AUGUST 4, 1967 C C DEFINITION C ECPT TRI.PLATE AND BASIC BENDING TRI. C ****************************************************************** C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = GRID PT. A INTEGER C ECPT( 3) = GRID PT. B INTEGER C ECPT( 4) = GRID PT. C INTEGER C ECPT( 5) = THETA REAL C ECPT( 6) = MAT ID 1 INTEGER C ECPT( 7) = I MOM. OF INERT. REAL C ECPT( 8) = MAT ID 2 INTEGER C ECPT( 9) = T2 REAL C ECPT(10) = NON-STRUCT. MASS REAL C ECPT(11) = Z1 REAL C ECPT(12) = Z2 REAL C ECPT(13) = COORD. SYS. ID 1 INTEGER C ECPT(14) = X1 REAL C ECPT(15) = Y1 REAL C ECPT(16) = Z1 REAL C ECPT(17) = COORD. SYS. ID 2 INTEGER C ECPT(18) = X2 REAL C ECPT(19) = Y2 REAL C ECPT(20) = Z2 REAL C ECPT(21) = COORD. SYS. ID 3 INTEGER C ECPT(22) = X3 REAL C ECPT(23) = Y3 REAL C ECPT(24) = Z3 REAL C ECPT(25) = ELEMENT TEMP REAL C ****************************************************************** DIMENSION 1 NECPT(100) ,M(9) ,V1(3) 2 ,V2(3) ,V3(3) C COMMON /CONDAS/ CONSTS(5) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE, 2 G2X211, G2X212, G2X222, SPACE(2) COMMON /SMA2IO/ DUM1(10),IFMGG,DUM2(25) COMMON /SMA2CL/ DUM3(2), NPVT 2, DUMCL(7) 3, LINK(10) ,NOGO COMMON /SMA2ET/ ECPT(100) COMMON /SMA2DP/ 1 A(81) ,S(18) ,HINV(36) 2 ,TEMP9(9) ,PROD9(9) ,ARR9(9) 3 ,ARRAY9(9) ,T(9) ,M6X6(36),DUMX(54) 4 ,XSUBB ,XSUBC ,YSUBC 5 ,E(9) ,TEMP ,L1 6 ,L2 ,S1 ,S2 7 ,C1 ,C2 ,X1 8 ,X2 ,Y1 ,Y2 9 ,TEMP1 ,TEMP2 ,DUMTWO(20),DETERM T ,NPOINT ,KM ,SUBSCA 1 ,SUBSCB ,SUBSCC ,NPIVOT 2 ,THETA ,NSUBC ,ISING 3 ,NPT1 ,V(2) ,VV(2) 4 ,IVECT(3) ,JVECT(3) ,KVECT(3) 5 ,U1 ,U2 ,SINANG 6 ,COSANG C EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE 1 (NECPT(1),ECPT(1)) 2 ,(PROD12(1),A(13)) 3 ,(HABC(1),A(25)) 4 ,(TITE(1),A(37)) 5 ,(TJTE(1),A(46)) 6 ,(MOUT(1),A(1)) 7 ,(TEMP36(1),HINV(1)) 8 ,(V1(1),ECPT(14)) 9 ,(V2(1),ECPT(18)) T ,(V3(1),ECPT(22)) 1 ,(REQUIV(1),R(1,1)) 2 ,(D1(1),A(1)) 3 ,(D2(1),A(4)) 4 ,(HQ(1),A(1)) C DATA M/ 1,2,4, 2,3,4, 3,1,4 / C ELTEMP = ECPT(25) C DETERMINE PIVOT POINT NUMBER C DO 10 I=1,3 IF( NPVT .NE. NECPT(I+1) ) GO TO 10 NPIVOT = I GO TO 20 10 CONTINUE C C C FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION CALL MESAGE(-30,34,ECPT(1)) C 20 THETA = ECPT(5) * DEGRA SINANG = SIN( THETA ) COSANG = COS( THETA ) C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X4) FOR TRIANGULAR PLATE. (COLUMN 4 BLANK) C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX DO 30 I=1,8 30 REQUIV(I)=0.0D0 C DO 40 I=1,3 D2(I) = DBLE( V2(I) ) - DBLE( V1(I) ) 40 D1(I) = DBLE( V3(I) ) - DBLE( V1(I) ) C C X2 GOES IN R(1,2) R(1,2) = DSQRT ( D2(1)**2 + D2(2)**2 + D2(3)**2 ) IF (R(1,2).EQ.0.0D0) GO TO 400 DO 50 I=1,3 50 IVECT(I) = D2(I) / R(1,2) C C NON-NORMALIZED K-VECTOR KVECT(1) = IVECT(2) * D1(3) - D1(2) * IVECT(3) KVECT(2) = IVECT(3) * D1(1) - D1(3) * IVECT(1) KVECT(3) = IVECT(1) * D1(2) - D1(1) * IVECT(2) C C Y3 GOES INTO R(2,3) R(2,3) = DSQRT ( KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2 ) IF (R(2,3).EQ.0.0D0) GO TO 400 DO 60 I=1,3 60 KVECT(I) = KVECT(I) / R(2,3) C C J-VECTOR = K X I VECTORS JVECT(1) = KVECT(2) * IVECT(3) - IVECT(2) * KVECT(3) JVECT(2) = KVECT(3) * IVECT(1) - IVECT(3) * KVECT(1) JVECT(3) = KVECT(1) * IVECT(2) - IVECT(1) * KVECT(2) C NORMALIZE J VECTOR TO MAKE SURE TEMP = DSQRT ( JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2 ) IF (TEMP.EQ.0.0D0) GO TO 400 DO 70 I=1,3 70 JVECT(I) = JVECT(I) / TEMP C X3 GOES INTO R(1,3) = D1 DOT IVECT R(1,3) = D1(1) * IVECT(1) + D1(2) * IVECT(2) + D1(3) * IVECT(3) C C CENTROID POINT GOES INTO R(1,4) AND R(2,4) R(1,4) = ( R(1,2) + R(1,3) ) / 3.0D0 R(2,4) = R(2,3) / 3.0D0 C C C ****************************************************************** C THE COORDINATES AND CENTROID OF THE PLATE IN THE ELEMENT C SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE C POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR C ROW 2 RESPECTIVELY. C ****************************************************************** C C SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT. C C ****************************************************************** C COMMENCE CALCULATIONS FOR ALL THREE SUBTRIANGLES C INITIALIZE TO ZERO.. C MSUM MATRIX 7 (3X3) = 63 LONG, C G MATRIX 4 (3X3) = 36 LONG. C DO 80 I=1,63 80 MSUM(I) = 0.0D0 DO 90 I=1,36 90 G(I) = 0.0D0 C CHOOSE APPROPRIATE COORDINATE POINTS FOR EACH SUBTRIANGLE J = 1,2,3 C DO 210 J=1,3 KM = 3*J - 3 C SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 100 I=1,2 V(I) = R(I,SUBSCB) - R(I,SUBSCA) 100 VV(I)= R(I,SUBSCC) - R(I,SUBSCA) XSUBB = DSQRT ( V(1)**2 + V(2)**2 ) U1 = V(1) / XSUBB U2 = V(2) / XSUBB XSUBC = U1 * VV(1) + U2 * VV(2) YSUBC = U1 * VV(2) - U2 * VV(1) C SINTH = SINANG * U1 - COSANG * U2 COSTH = COSANG * U1 + SINANG * U2 IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 C C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR C TRIANGLE -J- C CALL MTRBSC C U C NOW HAVE AT HAND M I,J, =1,2,3. 9-3X3 MATRICES STORED AT C IJ A(1) THROUGH A(81). C C -1 C ALSO H (6X6) AT A(100) TO A(135) AND S (6X3) AT A(82) TO A(99) C C C NOTE..SUB-MATRICES FOR THE PIVOT POINT AND THE CENTROID POINT C ARE TRANSFORMED TO ELEMENT COORDINATES AND SUMMED WITH C THEIR CORRESPONDING SUB-MATRIX OF THE TRIANGULAR PLATE C C *** *** C *** * MSUM(28...36) * C M I = 1,2,3 * ARE STORED IN * MSUM(37...45) * C I3 3 = CENTROID * * MSUM(46...54) * C *** * MSUM(54...63) * C *** *** C WHERE I DENOTES A POINT ON THE SUB-TRIANGLE, AND C REFERENCES GRID POINTS 1, 2, OR 3 C ON THE TRIANGULAR PLATE C C *** *** C *** * MSUM( 1... 9) * C M I = PIVOT PT * ARE STORED IN * MSUM(10...18) * C IJ J = 1,2 * * MSUM(19...27) * C *** *** *** C WHERE I DENOTES A POINT ON THE SUB-TRIANGLE AND C REFERENCES POINTS 1, 2, 3, OR 4 C ON THE TRIANGULAR PLATE C C C C SET UP OF T-MATRIX C T(1) = 1.0D0 T(2) = 0.0D0 T(3) = 0.0D0 T(4) = 0.0D0 T(5) = U1 T(6) = U2 T(7) = 0.0D0 T(8) =-U2 T(9) = U1 C C DO 120 I=1,3 CALL GMMATD( T(1),3,3,1, A(27*I-8),3,3,0, TEMP9(1) ) CALL GMMATD( TEMP9(1),3,3,0, T(1),3,3,0, PROD9(1) ) C C ADD THIS PRODUCT IN NOW. C COMPUTE POINTER TO MSUM MATRIX DESIRED. (ZERO POINTER) NPOINT = KM + I NPOINT = 9*M(NPOINT) + 18 C DO 110 K=1,9 NSUBC = NPOINT + K 110 MSUM(NSUBC) = MSUM(NSUBC) + PROD9(K) 120 CONTINUE C C DO 150 K=1,2 NPOINT = KM + K IF( M(NPOINT) .NE. NPIVOT ) GO TO 150 CALL GMMATD( T(1),3,3,1, A(36*K-35),3,3,0, TEMP9(1) ) CALL GMMATD( TEMP9(1),3,3,0, T(1),3,3,0, PROD9(1) ) C C COMPUTE POINTER TO MSUM MATRIX (ZERO POINTER) C NPOINT = 9 * NPIVOT - 9 DO 130 I=1,9 NSUBC = NPOINT + I 130 MSUM(NSUBC) = MSUM(NSUBC) + PROD9(I) C CALL GMMATD(T(1),3,3,1, A(18*K-8),3,3,0, TEMP9(1) ) CALL GMMATD( TEMP9(1),3,3,0, T(1),3,3,0, PROD9(1) ) C C COMPUTE ZERO POINTER TO MSUM MATRIX DESIRED C NPOINT = KM + 3 - K NPOINT = 9 * M(NPOINT) - 9 DO 140 I=1,9 NSUBC = NPOINT + I 140 MSUM(NSUBC) = MSUM(NSUBC) + PROD9(I) 150 CONTINUE C C C NOTE..THE CENTROID POINT IS A DUMMY POINT SO IT MUST BE REMOVED. C THIS IS DONE BY TRANSFERRING THE DISPLACEMENTS IN THE C MIDDLE TO BE A DIRECT FUNCTION OF THE OTHER DISPLACEMENTS. C THE TRANSFERENCE IS DONE THROUGH THE CREATION OF 3 (2X3) C HABC MATRICES, EACH CORRESPONDING TO A POINT OF THE C SUB-TRIANGLE. EACH HABC MATRIX IS SUMMED WITH ITS C CORRESPONDENT IN THE G MATRIX 4 (3X3) ONE FOR EACH GRID POINT C AND THE CENTROID POINT C C C FORM HQ (2X6) C TEMP1 = XSUBB - XSUBC TEMP2 = YSUBC ** 2 L1 = DSQRT( XSUBC**2 + TEMP2 ) L2 = DSQRT( TEMP1**2 + TEMP2 ) S1 = XSUBC / L1 S2 = TEMP1 / L2 C1 = YSUBC / L1 C2 = YSUBC / L2 X1 = XSUBC / 2.0D0 Y1 = YSUBC / 2.0D0 X2 = (XSUBB + XSUBC) / 2.0D0 Y2 = Y1 HQ( 1) = -XSUBC * C1 HQ( 2) = X1 * S1 - Y1 * C1 HQ( 3) = YSUBC * S1 HQ( 4) = -3.0D0 * X1 * X1 * C1 HQ( 5) = Y1 * (XSUBC * S1 - Y1 * C1 ) HQ( 6) = 3.0D0 * Y1 * Y1 * S1 HQ( 7) = 2.0D0 * X2 * C2 HQ( 8) = X2 * S2 + Y2 * C2 HQ( 9) = YSUBC * S2 HQ(10) = 3.0D0 * X2 * X2 * C2 HQ(11) = Y2 * ( 2.0D0 * X2 * S2 + Y2 * C2 ) HQ(12) = 3.0D0 * Y2 * Y2 * S2 C C C C I -1 C COMPUTE (H I H ) = (HQ)(H) STORE IN PROD12 C PSI,B I PSI,C C I C C CALL GMMATD( HQ(1),2,6,0, HINV(1),6,6,0, PROD12(1) ) C C C COMPUTE (H ) = -(PROD12)(S) C PSI,A C CALL GMMATD( PROD12(1),2,6,0, S(1),6,3,0, HABC(1) ) C HABC(1) = -HABC(1) HABC(2) = -HABC(2) + S1 HABC(3) = -HABC(3) + C1 HABC(4) = -HABC(4) HABC(5) = -HABC(5) + S2 HABC(6) = -HABC(6) - C2 C C SPLIT (H ) AND (H ) PARTITION C PSI,B PSI,C C HABC( 7) = PROD12( 1) HABC( 8) = PROD12( 2) HABC( 9) = PROD12( 3) HABC(10) = PROD12( 7) HABC(11) = PROD12( 8) HABC(12) = PROD12( 9) HABC(13) = PROD12( 4) HABC(14) = PROD12( 5) HABC(15) = PROD12( 6) HABC(16) = PROD12(10) HABC(17) = PROD12(11) HABC(18) = PROD12(12) C C C MAP H , H , AND H INTO THE G-MATRICES. C A B C C C TRIANGLE NUMBER = J, THE THREE POINTS ARE SUBSCA, SUBSCB, SUBSCC. C DO 200 I=1,3 C C POINTER TO H = 6*I-6 C I C C C TRANSFORM H SUB I C CALL GMMATD( HABC(6*I-5),2,3,0, T(1),3,3,0, TEMP9(1) ) C C NPOINT = KM + I NPOINT = 9*M(NPOINT) - 9 C C J = 1 ROW 1 OF H INTO ROW 1 OF G. C ROW 2 OF H INTO ROW 2 OF G. C J = 2 ROW 1 OF H INTO ROW 2 OF G. C ROW 2 OF H INTO ROW 3 OF G. C J = 3 ROW 1 OF H INTO ROW 3 OF G. C ROW 2 OF H INTO ROW 1 OF G. C IF( J-2 ) 170,160,190 C 160 NPOINT = NPOINT + 3 170 DO 180 K=1,6 NPOINT = NPOINT + 1 180 G(NPOINT) = G(NPOINT) + TEMP9(K) GO TO 200 190 G(NPOINT + 7) = G(NPOINT + 7) + TEMP9(1) G(NPOINT + 8) = G(NPOINT + 8) + TEMP9(2) G(NPOINT + 9) = G(NPOINT + 9) + TEMP9(3) G(NPOINT + 1) = G(NPOINT + 1) + TEMP9(4) G(NPOINT + 2) = G(NPOINT + 2) + TEMP9(5) G(NPOINT + 3) = G(NPOINT + 3) + TEMP9(6) C 200 CONTINUE C C C END OF LOOP FOR BASIC TRIANGLES C C 210 CONTINUE C C ****************************************************************** C CALCULATE MASS MATRIX PARTITIONS FOR WHOLE PLATE , ACCOUNTING FOR C DISPLACEMENT OF CENTER. EXPAND PARTITIONS TO (6X6) AND C TRANSFORM TO GLOBAL COORDINATES C C C DO 215 I = 1,36 215 TJTE(I) = 0.0D0 EM3 = DBLE(ECPT(10)) / 6.0D0 * R(1,2) * R(2,3) C C FILL E-MATRIX C DO 220 I=1,9 220 E(I) = 0.0D0 DO 225 I = 1,3 NPOINT = 3 * I - 2 E(NPOINT ) = IVECT(I) E(NPOINT + 1) = JVECT(I) 225 E(NPOINT + 2) = KVECT(I) C C C T C FORM T E STORE IN TITE-MATRIX (6X3) C I C IF( NECPT(4*NPIVOT+9) .EQ. 0 ) GO TO 230 CALL TRANSD( NECPT(4*NPIVOT+9), T(1) ) CALL GMMATD( T(1),3,3,1, E( 1),3,3,0, TITE( 1) ) C GO TO 250 C 230 DO 240 K=1,9 240 TITE(K) = E(K) C C C SOLVE NOW FOR .... C C E T T T C (M ) = (M ) - (TERM ) (M ) - (M )(TERM ) + (TERM )(M )(TERM ) C IJ IJ I J4 I4 J I 44 J C C -1 I=NPIVOT C WHERE... (TERM ) = (G ) (G ) ,I=NPIVOT J=1,2,3 C I 4 I C C -1 C (TERM ) = (G ) (G ) ,J=1,2,3 AS ABOVE C J 4 J C C AND WITH TRANSFORMATIONS.... C C G T E T C (M ) = (C ) (E)(M )(E )(C ) C IJ I IJ J C C C COMPUTE (TERM ) STORE IN PROD9 C I=NPIVOT C C -1 C FIRST GET (G ) C 4 C 250 CONTINUE C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USES SUBSEQUENTLY. ISING = -1 CALL INVERD( 3,G(28),3,PROD9,0,DETERM,ISING,TEMP9 ) C C CHECK FOR SINGULARITY. ISING=2 IMPLIES SINGULARITY. GO TO(270,260),ISING 260 CALL MESAGE(30,36,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN C 270 CALL GMMATD ( G(28),3,3,0, G(9*NPIVOT-8),3,3,0, PROD9(1) ) C C T C GET (TERM )(M ) STORE IN TEMP9 C I=NPIVOT 44 C CALL GMMATD( PROD9(1),3,3,1, MSUM(55),3,3,0, TEMP9(1) ) C C C C THE TWO COMMON PRODUCTS ARE NOW AT HAND IN PROD9 AND TEMP9. C DO 390 J=1,3 C C T T C (TERM ) (M ) STORE IN ARR9 C I=NPIVOT J4 C CALL GMMATD( PROD9(1),3,3,1, MSUM(9*J+19),3,3,1, ARR9(1) ) C C SUBTRACT FROM (M ) C IJ C NBEGIN = 9*J-9 DO 275 I = 1,36 275 M6X6(I) = 0.0D0 DO 280 I=1,9 NPOINT = NBEGIN + I 280 MSUM(NPOINT) = MSUM(NPOINT) - ARR9(I) C C C COMPUTE (TERM ) STORE IN ARR9 C J C CALL GMMATD( G(28),3,3,0, G(9*J-8),3,3,0, ARR9(1) ) C C C GET (M )(TERM ) STORE IN ARRAY9 C I4 J C CALL GMMATD( MSUM(9*NPIVOT+19),3,3,0, ARR9(1),3,3,0, ARRAY9(1)) C C SUBTRACT FROM MIJ C DO 290 I=1,9 NPOINT = NBEGIN + I 290 MSUM(NPOINT) = MSUM(NPOINT) - ARRAY9(I) C C T C COMPUTE (TERM )(M )(TERM ) = (TEMP9)(ARR9) C I=NPOINT 44 J C CALL GMMATD( TEMP9(1),3,3,0, ARR9(1),3,3,0, ARRAY9(1) ) C C ADD TO M C IJ C DO 300 I=1,9 NPOINT = NBEGIN + I 300 MSUM(NPOINT) = MSUM(NPOINT) + ARRAY9(I) C C C E C M COMPLETE C IJ C C TRANSFORM NOW, AND INSERT. C C C TRANSFORMATIONS AND INSERTION C IF( NECPT(4*J+9) .EQ. 0) GO TO 330 CALL TRANSD( NECPT(4*J+9), T(1) ) CALL GMMATD( E(1),3,3,1,T(1),3,3,0,TJTE(1) ) DO 310 I = 1,3 NPOINT = I + 21 TJTE(NPOINT ) = TJTE(I) TJTE(NPOINT + 6) = TJTE(I + 3) 310 TJTE(NPOINT + 12) = TJTE(I + 6) DO 320 I = 1,3 NPOINT = I + 21 TJTE(I ) = TJTE(NPOINT) TJTE(I + 6) = TJTE(NPOINT + 6) TJTE(I + 12) = TJTE(NPOINT + 12) 320 TJTE(I + 3) = 0.0D0 C GO TO 350 C 330 DO 340 I = 1,3 NPOINT = 6*I - 5 NPT = NPOINT + 21 TJTE(NPOINT ) = E(I) TJTE(NPOINT + 1) = E(I + 3) TJTE(NPOINT + 2) = E(I + 6) TJTE(NPT ) = E(I) TJTE(NPT + 1) = E(I + 3) 340 TJTE(NPT + 2) = E(I + 6) C C C EXPAND THE MSUM MATRIX (3X3) TO M6X6 MATRIX (6X6) 350 IF(NPIVOT .NE. J) GO TO 370 M6X6(1) = EM3 M6X6(8) = EM3 370 DO 380 I = 1,3 NPOINT = NBEGIN + I M6X6(I + 14) = MSUM(NPOINT) M6X6(I + 20) = MSUM(NPOINT + 3) 380 M6X6(I + 26) = MSUM(NPOINT + 6) C C CALL GMMATD(M6X6(1),6,6,0,TJTE(1),6,6,0,TEMP36(1)) CALL GMMATD(TITE(1),3,3,0,TEMP36(1) ,3,6,0,MOUT( 1)) CALL GMMATD(TITE(1),3,3,0,TEMP36(19),3,6,0,MOUT(19)) C C CALL SMA2B(MOUT(1),NECPT(J+1),-1,IFMGG,0.0D0) C 390 CONTINUE RETURN C C 400 CALL MESAGE(30,26,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN END ================================================ FILE: mis/mtrxi.f ================================================ SUBROUTINE MTRXI (FILE,NAME,ITEM,DUMBUF,ITEST) C C COPIES MATRIX ITEM OF SUBSTRUCTURE NAME FROM THE SOF TO THE C NASTRAN FILE C ITEST VALUES RETURNED ARE C 1 - NORMAL RETURN C 2 - ITEM PSEUDO-EXISTS ONLY ON THE SOF C 3 - ITEM DOES NOT EXIST ON THE SOF C 4 - NAME DOES NOT EXIT C 5 - ITEM IS NOT ONE OF THE ALLOWABLE MATRIX ITEMS C 6 - THE NASTRAN FILE HAS BEEN PURGED C EXTERNAL RSHIFT, ANDF INTEGER RSHIFT, ANDF, TRAIL(7), FILE, BUF(1), EOF, 1 NMSBR(2), NAME(2), OLDBUF, BLKSIZ COMMON /MACHIN/ MACH, IHALF, JHALF COMMON /SOF / DITDUM(6), IO, IOPBN, IOLBN, IOMODE COMMON /SYS / BLKSIZ COMMON /ZZZZZZ/ NSTRN EQUIVALENCE (BUF(1), NSTRN) DATA NMSBR / 4HMTRX,4HI / DATA IRD / 1 /, IDLE / 0 /, IFETCH / -1 / C C CHECK IF ITEM IS ONE OF THE FOLLOWING ALLOWABLE NAMES. C KMTX, MMTX, PVEC, POVE, UPRT, HORG, UVEC, QVEC, PAPP, POAP, LMTX C CALL CHKOPN (NMSBR(1)) ITM = ITTYPE(ITEM) IF (ITM .NE. 1) GO TO 1030 C C MAKE SURE BUFFER IS DOUBLE WORD ALIGNED, OPEN NASTRAN FILE, AND C ADUST SOF BUFFER TO COINCIDE WITH GINO C ALSO DETERMINE PLACEMENT OF MATRIX NAME IN FIRST BUFFER C IDISP = LOCFX(BUF(IO-2)) - LOCFX(NSTRN) IF (ANDF(IDISP,1) .NE. 0) IO = IO + 1 IOPT = 1 CALL OPEN (*1000,FILE,BUF(IO-2),IOPT) OLDBUF = IO C IN = 4 IF (MACH .GT. 2) GO TO 40 IN = 7 CIBMD 6/93 IF (BUF(IO-2) .EQ. FILE) GO TO 40 CIBMD 6/93 IO = IO + 1 CIBMD 6/93 IF (BUF(IO-2) .NE. FILE) GO TO 1010 C C OPEN ITEM TO READ AND FETCH FIRST BLOCK FROM SOF C 40 CONTINUE CALL SFETCH (NAME(1),ITEM,IFETCH,ITEST) IF (ITEST .NE. 1) GO TO 1050 C C INSERT CORRECT MATRIX NAME INTO BUFFER C CALL FNAME (FILE,BUF(IO+IN)) C C WRITE BLOCK ON NASTRAN FILE C ASSIGN 50 TO IJUMP EOF = 0 50 IF (BUF(IO+1) .LE. 0) GO TO 90 CALL WRTBLK (FILE,EOF) C C READ NEXT SOF BLOCK C 60 CALL FNXT (IOPBN,INXT) IF (MOD(IOPBN,2) .EQ. 1) GO TO 70 NEXT = ANDF(RSHIFT(BUF(INXT),IHALF),JHALF) GO TO 80 70 NEXT = ANDF(BUF(INXT),JHALF) 80 IF (NEXT .EQ. 0) GO TO 1020 IOPBN = NEXT IOLBN = IOLBN + 1 CALL SOFIO (IRD,IOPBN,BUF(IO-2)) GO TO IJUMP, (50,100) C C LAST DATA BLOCK HAS BEEN READ FROM SOF C 90 ITRAIL = BUF(IO+1) BUF(IO+1) = IOLBN IF (ITRAIL .GE. 0) GO TO 97 TRAIL(1) = FILE DO 95 I = 2,7 TRAIL(I) = BUF(IO+BLKSIZ-7+I) 95 CONTINUE CALL WRTTRL (TRAIL) 97 EOF = 1 CALL WRTBLK (FILE,EOF) CALL CLOSE (FILE,1) IF (ITRAIL .NE. 0) GO TO 120 C C TRAILER IS STORED ON NEXT SOF BLOCK - READ IT C ASSIGN 100 TO IJUMP GO TO 60 C C WRITE TRAILER OF NASTRAN DATA BLOCK C 100 TRAIL(1) = FILE DO 110 I = 2,7 110 TRAIL(I) = BUF(IO+BLKSIZ-7+I) CALL WRTTRL (TRAIL) 120 ITEST = 1 IO = OLDBUF RETURN C C ERROR RETURNS C C C NASTRAN FILE PURGED C 1000 ITEST = 6 IOMODE = IDLE RETURN C C BUFFER ALIGNMENT ERROR C CIBMD 6/93 1010 CALL SOFCLS CIBMD 6/93 CALL MESAGE (-8,0,NMSBR) C C SOF CHAINING ERROR C 1020 CALL ERRMKN (19,9) RETURN C C INVALID ITEM NAME C 1030 ITEST = 5 RETURN C C ERROR IN SFETCH CALL C 1050 CALL CLOSE (FILE,1) IO = OLDBUF RETURN C END ================================================ FILE: mis/mtrxin.f ================================================ SUBROUTINE MTRXIN C C TWO CAPABILITIES - C C (1) TO PROVIDE DIRECT INPUT MATRICES CAPABILITY, IN DYNAMIC RIGID C FORMATS, AND C (2) TO CONVERT DMIG TYPE MATRICES TO NASTRAN MATRIX FORMAT. C C REVISED 1/90 BY G.CHAN/UNISYS C NO INTEGER ROW AND COLUMN PACKING FOR 32-BIT WORD MACHINE, AND C REAL AND COMPLEX DMIG MATRIX GENERATION FROM DMIG INPUT CARDS C WITH DOUBLE PRECISION DATA C IMPLICIT INTEGER (A-Z) EXTERNAL ORF,LSHIFT,RSHIFT,ANDF LOGICAL PACK REAL X,ALPHA(4),BETA(4),BUFR(13) DOUBLE PRECISION XD(2),BUFD(2) DIMENSION BUF(20),MCB(50),DMIG(2),NAM(2),BLOCK(81),DB(13), 1 FILEI(3),BUFI(3),FILEA(7),FILEB(7),FILEC(7) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /MACHIN/ MACH,IHALF,JHALF COMMON /BLANK / LUSET,NOMAT(3) 1 /ZZZZZZ/ Z(1) 2 /SYSTEM/ SYSBUF,NOUT,XX(5),LOADNN 3 /TYPE / PRC(2),NWDS(4) 4 /ZBLPKX/ X(4),ROW 5 /NAMES / RD,RDREW,WRT,WRTREW,CLSREW 6 /SETUP / IFILE(6) 7 /SADDX / NOMATS,NZ,MCBS(67) EQUIVALENCE (BUF(1) ,BUFR(1) ), (X(1) ,XD(1) ), 1 (FILEI(1),FILE1 ), (FILEI(2),FILE2 ), 2 (BUFI(1) ,BUF3 ), (BUFI(2) ,BUF4 ), 3 (NOMAT(1),NOMAT1 ), (NOMAT(2),NOMAT2 ), 4 (FILEI(3),FILE3 ), (BUFI(3) ,BUF5 ), 5 (NOMAT(3),NOMAT3 ), (BUFD(1) ,DB(13) ), 6 (BUF(1) ,DB(2) ) EQUIVALENCE (MCBS( 1),FILEA(1)), (MCBS( 8),TYPALP ), 1 (MCBS( 9),ALPHA(1)), (MCBS(13),FILEB(1)), 2 (MCBS(20),TYPBET ), (MCBS(21),BETA(1) ), 3 (MCBS(61),FILEC(1)) DATA MCB / 201 ,9*0 ,202 ,9*0 ,203 ,29*0 /, 1 CASECC, MPOOL ,EQEX ,TFPOOL / 2 101 , 102 ,103 ,105 /, 3 SCR1 , SCR2 ,SCR3 ,SCR4 ,SCR5 ,SCR6 ,SCR7 / 4 301 , 302 ,303 ,304 ,305 ,306 ,307 /, 5 BLOCK / 81*0 /, 6 NAM / 4HMTRX,4HIN /, 7 DMIG / 114 ,1 /, 8 NFILES/ 21 /, 9 IMAT1 , IMAT2 ,IMAT3 ,ITF / 139, 141, 143, 15/ C C PERFORM GENERAL INITIALIZATION C BUF1 = KORSZ(Z) - SYSBUF - 2 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF BUF5 = BUF4 - SYSBUF NOMAT1= -1 NOMAT2= -1 NOMAT3= -1 MASK16= JHALF C C IF MACHINE IS MORE THEN 32 BITS PER WORD, WE USE PACKING LOGIC C OTHERWISE, WE DO NOT PACK ROW AND COLUMN INDICES INTO ONE WORD C PACK = .FALSE. IF (IHALF .GT. 16) PACK = .TRUE. DO 12 I = 1,NFILES,10 J1 = I + 1 JN = I + 9 DO 11 J = J1,JN MCB(J) = 0 11 CONTINUE 12 CONTINUE TFSET = 0 TYPALP = 1 ALPHA(1)= 1.0 TYPBET = 1 BETA(1) = 1.0 NOGO = 0 C C OPEN MPOOL. IF PURGED, SET FLAG. C FILE = MPOOL NOMPOO = 0 NODMIG = 0 CALL PRELOC (*30,Z(BUF1),MPOOL) NOMPOO = 1 CALL LOCATE (*30,Z(BUF1),DMIG,FLAG) NODMIG = 1 C C READ CASE CONTROL RECORD. C SET NAMES OF REQUESTED MATRICES. C IF CASE CONTROL IS PURGED, SET NAMES OF REQUESTED MATRICES EQUAL C NAMES OF OUTPUT DATA BLOCKS. C 30 FILE = CASECC CALL OPEN (*90,CASECC,Z(BUF2),RDREW) CALL FWDREC (*680,CASECC) CALL READ (*650,*50,CASECC,Z,BUF2,1,FLAG) CALL MESAGE (-8,0,NAM) 50 CONTINUE CALL CLOSE (CASECC,CLSREW) TFSET = Z(ITF) IF (Z(IMAT1) .EQ. 0) GO TO 70 NOMAT1 = 1 MCB(8) = Z(IMAT1 ) MCB(9) = Z(IMAT1+1) 70 IF (Z(IMAT2) .EQ. 0) GO TO 80 NOMAT2 = 1 MCB(18) = Z(IMAT2 ) MCB(19) = Z(IMAT2+1) 80 IF (Z(IMAT3) .EQ. 0) GO TO 110 NOMAT3 = 1 MCB(28) = Z(IMAT3 ) MCB(29) = Z(IMAT3+1) GO TO 110 90 DO 100 I = 1,21,10 MCB(31) = MCB(I) CALL RDTRL (MCB(31)) IF (MCB(31) .EQ. MCB(I)) CALL FNAME (MCB(31),MCB(I+7)) 100 CONTINUE GO TO 290 C C IF TRANSFER FUNCTION MATRICES EXIST, BUILD THEM IN MATRIX FORMAT. C WRITE THEM ON 201,202,203 IF NO DMIG MATRICES TO ADD, OTHERWISE, C WRITE THEM ON SCR5,SCR6,SCR7. C IF NO TRANSFER FUNCTION MATRICES AND NO DMIG MATRICES, EXIT. C 110 IF (NOMAT1+NOMAT2+NOMAT3 .EQ. -3) GO TO 114 IF (NODMIG) 116,630,116 114 NODMIG = 0 116 IF (NODMIG.EQ.0 .AND. TFSET.EQ.0) GO TO 650 IF (TFSET .EQ. 0) GO TO 290 FILE1 = SCR5 C C TEST FOR PURGED OUTPUT DATA BLOCKS. C DO 102 I = 1,21,10 102 CALL RDTRL (MCB(I)) IF (NOMAT1 .EQ. -1) FILE1 = MCB( 1) FILE2 = SCR7 IF (NOMAT3 .EQ. -1) FILE2 = MCB(21) FILE3 = SCR6 IF (NOMAT2 .EQ. -1) FILE3 = MCB(11) NOMAT1 = 1 NOMAT2 = 1 NOMAT3 = 1 C C OPEN TFPOOL AND POSITION TO REQUESTED SET. C IF SET NOT IN TFPOOL, QUEUE MESSAGE AND TURN ON NOGO FLAG. C FILE = TFPOOL CALL OPEN (*140,TFPOOL,Z(BUF2),RDREW) 130 CALL FWDREC (*140,TFPOOL) CALL READ (*140,*140,TFPOOL,BUF,1,0,FLAG) IF (BUF(1) .EQ. TFSET) GO TO 150 GO TO 130 140 NOGO = 1 BUF(1) = TFSET BUF(2) = 0 CALL MESAGE (30,74,BUF) IF (DMIG(1) .EQ. TFSET) GO TO 150 CALL CLOSE (TFPOOL,CLSREW) GO TO 290 C C OPEN OUTPUT FILES. WRITE HEADER RECORDS. C 150 DO 160 I = 1,3 C C CHECK FOR PURGED OUTPUT DATA BLOCKS. C IF (FILEI(I) .GT. 0) GO TO 152 NOMAT(I) = -1 GO TO 160 152 FILE = FILEI(I) BUFX = BUFI(I) CALL GOPEN (FILE,Z(BUFX),WRTREW) 160 CONTINUE C C PACK MATRICES ONTO OUTPUT FILES. C NCOL = LUSET ICOL = 1 JSW = 0 ISW = 0 I45 = 5 IF (PACK) I45 = 4 I12 = I45 - 3 180 DO 190 I = 1,3 IF (FILEI(I) .LE. 0) GO TO 190 CALL BLDPK (1,1,FILEI(I),BLOCK(20*I-19),1) 190 CONTINUE IF (ISW .NE. 0) GO TO 210 200 IF (JSW .NE. 0) GO TO 240 CALL READ (*680,*260,TFPOOL,BUF,I45,0,FLAG) ISW = 1 COL = BUF(1) ROW = BUF(2) IF (.NOT.PACK) GO TO 210 COL = RSHIFT(BUF(1),IHALF) ROW = ANDF(BUF(1),MASK16) 210 IF (COL .GT. ICOL) GO TO 240 DO 230 I = 1,3 IF (FILEI(I) .LE. 0) GO TO 230 CALL BLDPKI (BUF(I+I12),ROW,FILEI(I),BLOCK(20*I-19)) 230 CONTINUE ISW = 0 GO TO 200 240 DO 250 I = 1,3 IF (FILEI(I) .LE. 0) GO TO 250 CALL BLDPKN (FILEI(I),BLOCK(20*I-19),BLOCK(7*I+54)) 250 CONTINUE ICOL = ICOL + 1 IF (ICOL .LE. NCOL) GO TO 180 GO TO 270 260 JSW = 1 GO TO 240 C C CLOSE FILES AND WRITE TRAILERS. IF NO DMIG MATRICES, RETURN C 270 CALL CLOSE (TFPOOL,CLSREW) DO 280 I = 1,3 IF (FILEI(I) .LE. 0) GO TO 280 I7 = 7*I BLOCK(I7+54) = FILEI(I) BLOCK(I7+56) = NCOL BLOCK(I7+57) = 1 BLOCK(I7+58) = 1 CALL CLOSE (FILEI(I),1) CALL WRTTRL (BLOCK(I7+54)) 280 CONTINUE IF (NODMIG .EQ. 0) GO TO 650 C C READ EQUIVALENCE TABLE INTO CORE C 290 FILE = EQEX CALL GOPEN (EQEX,Z(BUF2),0) CALL SKPREC (EQEX,1) CALL READ (*680,*300,EQEX,Z,BUF2,1,NEQEX) CALL MESAGE (-8,0,NAM) 300 CALL CLOSE (EQEX,CLSREW) KN = NEQEX/2 NN = NEQEX - 1 DO 310 I = 1,NN,2 Z(I+1) = Z(I+1)/10 310 CONTINUE C C READ MATRIX HEADER INFORMATION. C LOOK UP MATRIX NAME IN NAME LIST. IF ABSENT, SKIP MATRIX. C 320 CALL READ (*680,*630,MPOOL,BUF,9,0,FLAG) C C BUF(5)= INPUT MATRIX TYPE, BUF(6)= OUTOUT MATRIX TYPE C BUF(1) AND BUF(2) ARE MATRIX NAME FROM DMIG CARDS. C K = BUF(6) PREC = PRC(K) K = BUF(5) IPRC = MOD(K,2) NWD = NWDS(K) NWD1 = NWD + 1 I11 = 11 IF (PACK) GO TO 325 I11 = 10 NWD1 = NWD + 2 325 I10 = I11 - 1 DO 330 I = 1,NFILES,10 IF (MCB(I+7).EQ.BUF(1) .AND. MCB(I+8).EQ.BUF(2)) GO TO 360 330 CONTINUE 340 CALL FREAD (MPOOL,BUF,2,0) IF (BUF(1) .EQ. -1) GO TO 320 350 CALL FREAD (MPOOL,BUF,2,0) IF (BUF(1) .EQ. -1) GO TO 340 CALL FREAD (MPOOL,BUF,-NWD,0) GO TO 350 C C OPEN SCRATCH FILE. SET POINTERS. C 360 IPTR = I FILE = MCB(IPTR) MCB(IPTR+2) = LUSET MCB(IPTR+3) = BUF(4) MCB(IPTR+4) = BUF(6) MCB(IPTR+9) = 1 IQQ = (IPTR-1)/10 NOMAT(IQQ+1) = +1 ISW = 0 IMTRX = NEQEX + 1 I = IMTRX C C CALL OPEN (*670,SCR1,Z(BUF2),WRTREW) C C READ COLUMN GRID AND COMPONENT, AND CHECK DUPLICATE. C CONVERT GRID AND COMPONENT TO SIL NO. C C REMOVE DUPLICATE CHECK ADDED HERE IN 91 VERSION. CHECKING SHOULD C BE DONE EARLY IN IFP MODULE, AND NOT HERE. REMOVED ALSO NOGOX AND C ITS ASSOCIATED LINES. 3/93 C 370 CALL FREAD (MPOOL,BUF(10),2,0) IF (BUF(10) .EQ. -1) GO TO 450 C C ASSIGN 380 TO RET GO TO 710 380 COL = Z(2*K) IF (BUF(11) .NE. 0) COL = COL + BUF(11) - 1 IF (PACK) COL = LSHIFT(COL,IHALF) C C READ A COLUMN OF THE MATRIX. C STORE IN CORE OR ON SCRATCH FILE IF TOO BIG FOR CORE. C 390 CALL FREAD (MPOOL,BUF(10),2,0) IF (BUF(10) .EQ. -1) GO TO 370 ASSIGN 400 TO RET GO TO 710 400 ROW = Z(2*K) IF (BUF(11) .NE. 0) ROW = ROW + BUF(11) - 1 BUF(11) = ROW BUF(10) = COL IF (PACK) BUF(11) = ROW + COL CALL FREAD (MPOOL,BUF(12),NWD,0) IF (ISW .EQ. 0) GO TO 420 410 CALL WRITE (SCR1,BUF(I11),NWD1,0) GO TO 390 420 IF (I+NWD1 .LT. BUF2) GO TO 430 ISW = 1 CALL WRITE (SCR1,Z(IMTRX),I-IMTRX,0) GO TO 410 430 DO 440 J = 1,NWD1 Z(I) = BUF(J+I10) 440 I = I + 1 GO TO 390 C C SORT MATRIX. C 450 IF (ISW .EQ. 0) GO TO 460 CALL WRITE (SCR1,0,0,1) CALL CLOSE (SCR1,CLSREW) CALL OPEN (*670,SCR1,Z(BUF2),RDREW) IFILE(1) = SCR2 IFILE(2) = SCR3 IFILE(3) = SCR4 IF ( PACK) CALL SORTI (SCR1,0,NWD1,1,Z(IMTRX),BUF2-IMTRX) IF (.NOT.PACK) CALL SORTI2 (SCR1,0,NWD1,1,Z(IMTRX),BUF2-IMTRX) CALL CLOSE (SCR1,CLSREW) GO TO 470 460 N = I - IMTRX NMTRX = I - NWD1 CALL CLOSE (SCR1,CLSREW) IF ( PACK) CALL SORTI (0,0,NWD1,1,Z(IMTRX),N) IF (.NOT.PACK) CALL SORTI2 (0,0,NWD1,1,Z(IMTRX),N) C C OPEN OUTPUT FILE. WRITE HEADER RECORD C IF SORTED MATRIX NOT IN CORE, OPEN FILE WITH MATRIX. C 470 IF (TFSET .NE. 0) FILE = SCR1 CALL OPEN (*670,FILE,Z(BUF2),WRTREW) CALL FNAME (FILE,BUF(19)) CALL WRITE (FILE,BUF(19),2,1) IF (ISW .NE. 0) CALL OPEN (*670,IFILE(6),Z(BUF3),RDREW) C C PACK MATRIX ONTO OUTPUT FILE. C NCOL = LUSET J = IMTRX ICOL = 1 JSW = 0 490 CALL BLDPK (BUF(6),BUF(6),FILE,0,0) IF (JSW .NE. 0) GO TO 540 500 IF (J .GT. NMTRX) GO TO 570 IF (ISW .EQ. 0) GO TO 510 CALL READ (*680,*580,IFILE(6),BUF(I11),NWD1,0,FLAG) GO TO 530 510 DO 520 K = 1,NWD1 BUF(K+I10) = Z(J) 520 J = J + 1 530 COL = BUF(10) ROW = BUF(11) IF (.NOT.PACK) GO TO 540 COL = RSHIFT(BUF(11),IHALF) ROW = ANDF(BUF(11),MASK16) 540 IF (COL .GT. ICOL) GO TO 590 JSW = 0 IF (PREC .EQ. 2) GO TO 550 IF (IPRC .EQ. 0) GO TO 545 X(1) = BUFR(12) X(2) = BUFR(13) GO TO 560 545 X(1) = BUFD(1) X(2) = BUFD(2) GO TO 560 550 IF (IPRC .EQ. 0) GO TO 555 XD(1) = BUFR(12) XD(2) = BUFR(13) GO TO 560 555 XD(1) = BUFD(1) XD(2) = BUFD(2) 560 CALL ZBLPKI GO TO 500 570 CALL BLDPKN (FILE,0,MCB(IPTR)) ICOL = ICOL + 1 IF (ICOL .LE. NCOL) GO TO 490 GO TO 600 580 J = NMTRX + 1 GO TO 570 590 JSW = 1 GO TO 570 600 CALL CLOSE (FILE,CLSREW) IF (ISW .NE. 0) CALL CLOSE (IFILE(6),CLSREW) CALL WRTTRL (MCB(IPTR)) C C IF TRANSFER FUNCTION MATRICES ARE TO BE ADDED, CALL MATRIX ADD C ROUTINE THEN RETURN TO READ NEXT MATRIX IN THE MATRIX POOL. C IF (TFSET .EQ. 0) GO TO 320 J = 2 IF (IPTR .EQ. 1) J = 1 IF (IPTR .EQ. 11) J = 3 DO 620 I = 1,7 K = IPTR + I - 1 FILEA(I) = MCB(K) K = 7*J + I FILEB(I) = BLOCK(K+53) 620 FILEC(I) = 0 FILEA(1) = SCR1 FILEC(1) = MCB(IPTR) FILEC(2) = NCOL FILEC(3) = NCOL FILEC(4) = FILEA(4) FILEC(5) = FILEA(5) NZ = BUF1 - IMTRX NOMATS = 2 K = ORF(IMTRX,1) CALL SADD (Z(K),Z(K)) CALL WRTTRL (FILEC) GO TO 320 C C TEST FOR ALL REQUESTED MATRICES FOUND. C 630 DO 640 I = 1,NFILES,10 IF (MCB(I+7).EQ.0 .OR. MCB(I+9).NE.0) GO TO 640 CALL MESAGE (30,70,MCB(I+7)) NOGO = 1 640 CONTINUE 650 IF (NOMPOO .NE. 0) CALL CLOSE (MPOOL,CLSREW) IF (NOGO .NE. 0) CALL MESAGE (-61,0,NAM) RETURN C C FATAL ERRORS C 670 N = -1 GO TO 700 680 N = -2 700 CALL MESAGE (N,FILE,NAM) C C BINARY SEARCH ROUTINE C 710 KLO = 1 KHI = KN 720 K = (KLO+KHI+1)/2 730 IF (BUF(10)-Z(2*K-1)) 740,810,750 740 KHI = K GO TO 760 750 KLO = K 760 IF (KHI-KLO-1) 800,770,720 770 IF (K.EQ.KLO) GO TO 780 K = KLO GO TO 790 780 K = KHI 790 KLO = KHI GO TO 730 800 NOGO = 1 BUF(11) = 0 810 GO TO RET, (380,400) END ================================================ FILE: mis/mtrxo.f ================================================ SUBROUTINE MTRXO (FILE,NAME,ITEM,DUMBUF,ITEST) C C COPIES MATRIX ITEM OF SUBSTRUCTURE NAME FROM THE NASTRAN FILE C TO THE SOF C ITEST VALUES RETURNED ARE C 1 - ITEM ALREADY EXISTS ON THE SOF C 2 - THE ITEM WAS PESUDO WRITTEN C 3 - NORMAL RETURN C 4 - NAME DOES NOT EXIST C 5 - ITEM IS NOT ONE OF THE ALLOWABLE MATIX ITEMS C 6 - NASTRAN FILE HAS BEEN PURGED C EXTERNAL LSHIFT,ORF,ANDF LOGICAL MDIUP INTEGER NMSBR(2),BUF(1),FILE,TRAIL(7),OLDBUF,NAME(2), 1 BLKSIZ,FIRST,ORF,ANDF CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /MACHIN/ MACH,IHALF,JHALF COMMON /SOF / DITDUM(6),IO,IOPBN,IOLBN,IOMODE,IOPTR,IOSIND, 1 IOITCD,IOBLK,SOFDUM(20),MDIUP COMMON /SYSTEM/ NBUF,NOUT COMMON /SYS / BLKSIZ COMMON /ZZZZZZ/ NSTRN EQUIVALENCE (BUF(1),NSTRN) DATA NMSBR / 4HMTRX, 4HO / DATA IWRT / 2 / DATA IFETCH/ -2/ DATA IDLE / 0 / C C CHECK IF ITEM IS ONE OF THE FOLLOWING ALLOWABLE NAMES. C KMTX, MMTX, PVEC, POVE, UPRT, HORG, UVEC, QVEC, PAPP, POAP, LMTX C CALL CHKOPN (NMSBR(1)) ITM = ITTYPE(ITEM) IF (ITM .NE. 1) GO TO 1030 IF (FILE .GT. 0) GO TO 20 C C THE MATRIX ITEM IS TO BE PESUDO WRITTEN C ITEST = 2 CALL SFETCH (NAME(1),ITEM,IFETCH,ITEST) GO TO 100 C C CHECK IF NASTRAN FILE HAS BEEN PURGED C 20 TRAIL(1) = FILE CALL RDTRL (TRAIL) IF (TRAIL(1) .LE. 0) GO TO 1020 C C OPEN ITEM TO WRITE AND FETCH FIRST BLOCK FOR SOF C ITEST = 3 CALL SFETCH (NAME(1),ITEM,IFETCH,ITEST) IF (ITEST .NE. 3) GO TO 100 C C OPEN NASTRAN FILE C MAKE SURE BUFFER IS DOUBLE WORD ALIGNED. C IDISP = LOCFX(BUF(IO-2)) - LOCFX(NSTRN) IF (ANDF(IDISP,1) .NE. 0) IO = IO + 1 IOPT = 0 CALL OPEN (*1020,FILE,BUF(IO-2),IOPT) C C ADJUST SOF BUFFER TO COINCIDE WITH GINO BUFFER C OLDBUF = IO C CIBMD 6/93 IF (MACH .GT. 2) GO TO 50 CIBMD 6/93 IF (BUF(IO-2) .EQ. FILE) GO TO 50 CIBMD 6/93 IO = IO + 1 CIBMD 6/93 IF (BUF(IO-2) .NE. FILE) GO TO 1000 C C BEGIN COPYING DATA TO SOF C C FIRST CHECK IF CALL TO OPEN OBTAINED ONLY BLOCK IN FILE C 50 FIRST = 1 CALL RDBLK (*70,FILE,FIRST,LEFT) FIRST = 0 C C WRITE OUT BLOCK IN BUFFER TO SOF AND OBTAIN A FREE SOF BLOCK C 60 CALL SOFIO (IWRT,IOPBN,BUF(IO-2)) CALL GETBLK (IOPBN,J) IF (J .EQ. -1) GO TO 120 IOPBN = J IOLBN = IOLBN + 1 C C OBTAIN A NEW BLOCK FROM THE GINO FILE C CALL RDBLK (*70,FILE,FIRST,LEFT) GO TO 60 C C THE LAST BUFFER OF THE GINO FILE HAS BEEN FOUND - DETERMINE C IF SUFFICIENT SPACE IN BUFFER REMAINS FOR TRAILER C 70 CONTINUE IF (LEFT .GE. 6) GO TO 80 C C INSUFFICIENT SPACE - OBTAIN NEW SOF BLOCK C SET BLOCK NUMBER OF CURRENT BLOCK TO ZERO TO INDICATE TRAILER C IS STORED IN NEXT BLOCK C BUF(IO+1) = 0 CALL SOFIO (IWRT,IOPBN,BUF(IO-2)) CALL GETBLK (IOPBN,J) IF (J .EQ. -1) GO TO 120 IOPBN = J IOLBN = IOLBN + 1 C C STORE TRAILER IN LAST SIX WORDS OF BLOCK C SET BLOCK NUMBER NEGATIVE TO INDICATE LAST BLOCK AND C WRITE OUT FINAL BLOCK TO SOF C 80 DO 90 I = 2,7 90 BUF(IO+BLKSIZ-7+I) = TRAIL(I) BUF(IO+1) = -IOLBN CALL SOFIO (IWRT,IOPBN,BUF(IO-2)) C C CLOSE FILE AND UPDATE MDI C CALL CLOSE (FILE,1) CALL FMDI (IOSIND,IMDI) BUF(IMDI+IOITCD) = ORF(ANDF(IOBLK,JHALF),LSHIFT(IOLBN,IHALF)) MDIUP = .TRUE. C C RETURN C ITEST = 3 IO = OLDBUF IOMODE = IDLE 100 RETURN C C THERE ARE NO MORE FREE BLOCKS ON THE SOF. C RETURN THE BLOCKS THAT HAVE BEEN USED SO FAR BY THE ITEM BEING C WRITTEN, CLOSE THE SOF AND ISSUE A FATAL MESSAGE C 120 CALL RETBLK (IOBLK) CALL SOFCLS GO TO 1010 C C ERROR RETURNS C C C BUFFER ALIGNMENT ERROR C CIBMD 6/93 1000 CALL SOFCLS CIBMD 6/93 CALL MESAGE (-8,0,NMSBR) CIBMD 6/93 GO TO 100 C C NO MORE FREE BLOCKS ON THE SOF C 1010 WRITE (NOUT,1011) UFM 1011 FORMAT (A23,' 6223, THERE ARE NO MORE FREE BLOCKS AVAILABLE ON ', 1 'THE SOF.') CALL MESAGE (-37,0,NMSBR) C C GINO FILE PURGED C 1020 ITEST = 6 GO TO 100 C C INVALID ITEM NAME C 1030 ITEST = 5 GO TO 100 C END ================================================ FILE: mis/mxcid.f ================================================ SUBROUTINE MXCID (*,Z,MSET,MSZE,NWDS,USET,GPL,SIL,BUF1) C C THIS SUBROUTINE CREATES AN ARRAY AT Z(1) OF LENGTH MSZE*NWDS C WHICH CONTAINS THE EXTERNAL ID*10 + COMPONENT AT Z(1,M) FOR C EACH DEGREE OF FREEDOM BELONGING TO SET -MSET-. C C OPEN CORE IS Z(1) TO Z(BUF1-1). TWO BUFFERS NEEDED. C C NONSTANDARD RETURN IF TASK NOT COMPLETED. C C IF THIS IS A SUBSTRUCTURING PROBLEM, MXCIDS SHOULD BE CALLED C INSTEAD C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,ANDF,ORF INTEGER FNAM(2),NAME(2),X(7),Z(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /SYSTEM/ NBUFSZ,KOUTP COMMON /NAMES / KRD,KRDRW,KWR,KWRRW, KCLRW,KCL,KWEOF COMMON /BITPOS/ MASK2(32),HSET(32) COMMON /TWO / ITWO(32) DATA NSET / 20 / DATA NAME , NONE / 4HMXCI,4HD , 4H (NO / C C ALLOCATE CORE - CHECK DATA FILE AVAILABILITY C BUF2 = BUF1 + NBUFSZ IF (NWDS .LE. 0) NWDS = 1 LGP = MSZE*NWDS + 1 X(1) = SIL CALL FNAME (SIL,FNAM) IF (FNAM(1) .EQ. NONE) GO TO 220 CALL RDTRL (X) NGP = X(2) LSIL= LGP + NGP C C SEVEN WORDS NEEDED IF SIL AND USET OUT OF CORE C IF (LSIL .GT. BUF1-7) GO TO 260 C C DETERMINE IF SIL (AND USET) FIT IN CORE C LUSET = LSIL + NGP X(1) = USET CALL FNAME (USET,FNAM) IF (FNAM(1) .EQ. NONE) GO TO 220 CALL RDTRL (X) NDOF = X(3) L = ORF(LSHIFT(X(4),16),X(5)) C IF (LUSET+NDOF .GT. BUF1) LUSET = 0 IF (LUSET .GT. BUF1) LSIL = 0 C C CHECK SET REQUEST C DO 10 ISET = 1,NSET IF (HSET(ISET) .EQ. MSET) GO TO 20 10 CONTINUE GO TO 240 20 CONTINUE ISET = MASK2(ISET) ISET = ITWO(ISET) IF (ANDF(L,ISET) .EQ. 0) GO TO 240 C C LOAD GPL INTO CORE C X(1) = GPL CALL OPEN (*220,GPL,Z(BUF2),KRDRW) CALL FREAD (GPL,0,0,1) CALL FREAD (GPL,Z(LGP),NGP,0) CALL CLOSE (GPL,KCL) X(1) = SIL CALL GOPEN (SIL,Z(BUF1),KRDRW) CALL GOPEN (USET,Z(BUF2),KRDRW) C C LOAD SIL AND USET IF POSSIBLE C IF (LSIL .EQ. 0) GO TO 30 CALL FREAD (SIL,Z(LSIL),NGP,0) CALL CLOSE (SIL,KCL) SIL1 = Z(LSIL) PSIL = LSIL + 1 I = NGP - 1 GO TO 40 30 CALL FREAD (SIL,SIL1,1,0) I = 1 PSIL = LGP + NGP 40 IF (LUSET .EQ. 0) GO TO 50 CALL FREAD (USET,Z(LUSET),NDOF,0) CALL CLOSE (USET,KCL) PUSET = LUSET 50 IF (LUSET .EQ. 0) PUSET = PSIL + I C C PSIL POINTS SECOND SIL ENTRY IF SIL IN CORE, ELSE LOCATION TO USE C PUSET POINTS TO FIRST WORD USET, ELSE LOCATION IN Z TO USE C LSIL, LUSET ARE ZERO IF FILES NOT IN CORE. C LOOP ON NUMBER GRID POINTS - EXIT WHEN MSIZE ACHIEVED. C MCOUNT = 1 C DO 130 LLL = 1,NGP IF (LLL .EQ. NGP) GO TO 60 IF (LSIL.NE. 0) GO TO 70 CALL FREAD (SIL,Z(PSIL),1,0) GO TO 70 60 SIL2 = NDOF + 1 GO TO 80 70 SIL2 = Z(PSIL) IF (LSIL .NE. 0) PSIL = PSIL + 1 80 NDF = SIL2 - SIL1 IF (NDF.LT.1 .OR. NDF.GT.6) GO TO 240 C C GET NDF WORDS FROM USET C IF (LUSET .EQ. 0) CALL FREAD (USET,Z(PUSET),NDF,0) C C DETERMINE IF IN THE SET C J = PUSET K = J + NDF - 1 100 CONTINUE DO 110 I = J,K IF (ANDF(Z(I),ISET) .NE. 0) GO TO 120 110 CONTINUE GO TO 125 C C LOCATED A POINT IN THE SET C 120 CONTINUE LL = I - PUSET + 1 L = LGP + LLL - 1 IF (NDF .EQ. 1) LL = 0 Z(MCOUNT) = Z(L)*10 + LL MCOUNT = MCOUNT + NWDS IF (MCOUNT .GE. LGP) GO TO 310 IF (I .EQ. K) GO TO 125 J = I + 1 GO TO 100 125 IF (LUSET .NE. 0) PUSET = PUSET + NDF SIL1 = SIL2 130 CONTINUE C C END OF ALL GRIDS AND MATRIX NOT FILLED - NEED IMMEDIATE MESSAGE. C CALL PAGE2 (2) WRITE (KOUTP,210) SWM,NAME 210 FORMAT (A27,' 3016, MATRIX IS NOT IN PROPER FORM IN SUBROUTINE ', 1 2A4) GO TO 300 C C PURGED FILES C 220 CALL PAGE2 (2) WRITE (KOUTP,230) SWM,X(1),NAME 230 FORMAT (A27,' 3001, ATTEMPT TO OPEN DATA SET',I4,' IN SUBROUTINE', 1 1X,2A4,' WHICH WAS NOT DEFINED IN FIST') GO TO 300 C C ILLEGAL INPUT C 240 CALL PAGE2 (2) WRITE (KOUTP,250) SWM,NAME 250 FORMAT (A27,' 3007, ILLEGAL INPUT TO SUBROUTINE ',2A4) GO TO 300 C C INSUFFICIENT CORE C 260 CALL PAGE2 (2) WRITE (KOUTP,270) SWM,NAME 270 FORMAT (A27,' 3008, INSUFFICIENT CORE AVAILABLE FOR SUBROUTINE ', 1 2A4, 1H.) C 300 CONTINUE CALL CLOSE (SIL ,KCL) CALL CLOSE (USET,KCL) RETURN 1 310 CONTINUE CALL CLOSE (SIL ,KCL) CALL CLOSE (USET,KCL) RETURN END ================================================ FILE: mis/mxcids.f ================================================ SUBROUTINE MXCIDS(*,Z,MSET,MSZE,NWDS,USET,NSTRT,SNAM) C----- C THIS SUBROUTINE CREATES A LIST OF SUBSTRUCTURE NAMES AT Z(1) C AND AN ARRAY AT Z(NSTRT) OF LENGTH MSZE*NWDS WITH THE FIRST TWO WORDS C OF EACH ENTRY AS, C 1 - EXTERNAL ID * 10 + COMPONENT C 2 - POINTER TO FIRST WORD OF SUBSTRUCTURE NAME... C C INPUT C Z = OPEN CORE - Z(1) TO Z(NSTRT-1) C MSET = ONE WORD BCD IDENTIFING SET C MSZE = NUMBER OF COLUMNS IN MATRIX C NWDS = NUMBER WORDS/ENTRY DESIRED (2 MINIMUM) C USET = USET GINO FILE NAME C NSTRT = LOCATION OF FIRST OF FOUR (4) BUFFERS. C SNAM = SUBSTRUCTURE NAME BEING SOLVED (2 WORD BCD). C OUTPUT C * = TASK NOT COMPLETED C Z = SUBSTRUCTURE NAMES + COLUMN IDENTIFIERS (SEE ABOVE) C NSTRT = FIRST WORD OF COLUMN IDENTIFIERS C----- C C N O T C O D E D Y E T C IF (MSET.EQ.1) RETURN RETURN 1 END ================================================ FILE: mis/na12a8.f ================================================ SUBROUTINE NA1 2 A8 (*,A,N,B,NOTUSE) C INTEGER A(1), B(2), CDC CHARACTER*1 C(1), T(8) CHARACTER*8 D(1) CHARACTER*10 BLNK, TEMP COMMON /XREADX/ NOUT COMMON /MACHIN/ MACH EQUIVALENCE (T(1),TEMP) DATA BLNK / ' ' /, CDC / 4 / C C THESE ROUTTNES CONVERT N A1 BCD WORDS IN A, OR N A1 CHARACTERS IN C C TO AN 8-BYTE BCD WORD IN B (CDC ONLY), (OR TO TWO 4-BYTE BCD C WORDS IN B, ALL OTHER NON-CDC MACHINES), OR AN 8-CHARACTER WORD C IN D, LEFT ADJUSTED. C CALLING ROUTINE MUST NOT USE LOGICAL*1 FOR A-ARRAY. C (NO SYSTEM ENCODE/DECODE FUNCTIONS ARE USED) C C ENTRY POINTS NA1 2 A8 (BCD-BYTE VERSION) C NK1 2 K8 (CHARACTER VERSION) C C C WRITTEN BY G.CHAN/SPERRY IN AUG. 1985 C PARTICULARLY FOR XREAD ROUTINE, IN SUPPORT OF ITS NEW FREE-FIELD C INPUT FORMAT. THIS SUBROUTINE IS MACHINE INDEPENDENT C C LAST REVISED 8/1988 C IF (N .GT. 8) GO TO 40 TEMP = BLNK CALL B2K (A,TEMP,N) IF (MACH .NE. CDC) CALL KHRBC2 (TEMP,B(1)) CWKBD IF (MACH .EQ. CDC) B(1) = ISWAP(TEMP) RETURN C ENTRY NK1 2 K8 (*,C,N,D,NOTUSE) C =============================== C IF (N .GT. 8) GO TO 40 TEMP = BLNK DO 30 I = 1,N 30 T(I) = C(I) D(1) = TEMP RETURN C 40 WRITE (NOUT,50) N 50 FORMAT (' N.GT.8/NA12A8',I6) J = NOTUSE RETURN 1 END ================================================ FILE: mis/na12if.f ================================================ SUBROUTINE NA1 2 IF (*,A,N,B,INT) C C VAX, IBM AND UNIVAC VERSION (CHARACTER FUNCTION PROCESSING) C =========================== C COMMON /XREADX/NOUT INTEGER A(1) CHARACTER*1 BK, PT, TJ, T(24), C(1), NUM(10) CHARACTER*12 TEMP, NEXT, BLNK EQUIVALENCE (TEMP,T(1)), (NEXT,T(13)), (I,XI) DATA BK, PT, BLNK / ' ', '.', ' ' / DATA NUM / '0','1','2','3','4','5','6','7','8','9' / C C ARRAY A, IN NA1 BCD WORDS (OR C IN CHARACTERS), IS DECODED TO C AN INTEGER OR TO A F.P. NUMBER IN B. C INT SHOULD BE SET TO +1 IF CALLER IS EXPECTING B TO BE AN INTEGER, C OR SET TO -1 IF B IS TO BE A F.P. NUMBER. SET INT TO ZERO IF C CALLER IS NOT SURE. IN THIS LAST CASE, INT WILL BE SET TO +1 OR C -1 BY NA12IF/NK12IF ACCORDING TO THE INPUT DATA TYPE. C THESE ROUTINES HANDLE UP TO 12 DIGITS INPUT DATA (N .LE. 12) C (NO SYSTEM ENCODE/DECODE FUNCTIONS ARE USED) C C ENTRY POINTS NA1 2 IF (BCD-INTEGER/FP VERSION) C NK1 2 IF (CHARACTER-INTEGER/FP VERSION) C C WRITTEN BY G.CHAN/SPERRY IN AUG. 1985 C PARTICULARLY FOR XREAD ROUTINE, IN SUPPORT OF ITS NEW FREE-FIELD C INPUT FORMAT. THIS SUBROUTINE IS MACHINE INDEPENDENT C IF (N .GT. 12) GO TO 150 CALL B2K (A,TEMP,N) GO TO 20 C ENTRY NK1 2 IF (*,C,N,B,INT) C **************************** C IF (N .GT. 12) GO TO 150 DO 15 I=1,N 15 T(I)=C(I) C 20 IF (INT .GE. 1) GO TO 110 25 NT=1 K =24 J =N NEXT=BLNK DO 50 I=1,12 IF (I .GT. N) GO TO 30 TJ=T(J) IF (TJ .EQ. BK) GO TO 50 IF (TJ .EQ. PT) NT=NT-2 T(K)=TJ GO TO 40 30 T(K)=BK 40 K=K-1 50 J=J-1 C IF (NT.LT.-1 .OR. INT*NT.LT.0) GO TO 170 IF (INT .EQ. 0) INT=NT IF (INT) 60,170,80 60 READ (NEXT,70) B 70 FORMAT (F12.0) RETURN 80 READ (NEXT,90) I 90 FORMAT (I12) 100 B=XI RETURN C C QUICK WAY TO GET THE INTEGER C 110 I=0 J=0 120 J=J+1 IF (J .GT. N) GO TO 100 TJ=T(J) IF (TJ .EQ. BK) GO TO 120 DO 130 K=1,10 IF (TJ .EQ. NUM(K)) GO TO 140 130 CONTINUE GO TO 25 140 I=I*10 + K-1 GO TO 120 C 150 B=0. WRITE (NOUT,160) N 160 FORMAT (5X,'*** N.GT.12/NA12IF',I6) 170 RETURN 1 END ================================================ FILE: mis/nascar.f ================================================ SUBROUTINE NASCAR C C NASCAR READS THE NASTRAN CARD (IF PRESENT) AND CALLS TTLPGE. C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,ORF,COMPLF INTEGER HDG(14),NSTRN(2),BDT(7),FILES(2), 1 MODCOM(9),KEYWDS(2,17),BUF(75) REAL S1,RTOLEL CHARACTER UFM*23,UWM*25,S2*16 COMMON /XMSSG / UFM,UWM COMMON /MACHIN/ MACH COMMON /SYSTEM/ SYSTEM(100) COMMON /BLANK / FLAG,CARD(20) COMMON /OUTPUT/ PGHDG(96) COMMON /XFIST / NFIST,LFIST,FIST(2) COMMON /XPFIST/ NPFIST COMMON /LHPWX / LHPW(4),MXFL EQUIVALENCE (SYSTEM( 1),SYSBUF), 1 (SYSTEM( 2),OUTTAP), 2 (SYSTEM( 3),NOGO ), 3 (SYSTEM( 4),INTAP ), 4 (SYSTEM( 7),LOGFL ), 5 (SYSTEM(20),PLTFLG), 6 (SYSTEM(29),MAXFIL), 7 (SYSTEM(30),MAXOPN), 8 (SYSTEM(34),IDRUM ), O (SYSTEM(57),MODCOM(1)), A (SYSTEM(70),ITOLEL,RTOLEL), B (SYSTEM(77),BANDIT) C DATA NSTRN /4HNAST, 4HRAN / DATA FILES /4HFILE, 1HS /, BLANK / 1H / DATA LKEYWD / 17 / DATA KEYWDS /4HBUFF, 4HSIZE, 2 4HCONF, 4HIG , 3 4HMAXF, 4HILES, 4 4HMAXO, 4HPEN , 5 4HSYST, 4HEM , 6 4HKON3, 4H60 , 7 4HNLIN, 4HES , 8 4HTITL, 4HEOPT, 9 4HMODC, 4HOM , O 4HHICO, 4HRE , 1 4HDRUM, 4H , 2 4HTRAC, 4HKS , 3 4HSTST, 4H , 4 4HBAND, 4HIT , 5 4HBULK, 4HDATA, 6 4HPLOT, 4HOPT , 7 4HLOGF, 4HL / DATA HDG /4HN A ,4HS T ,4HR A ,4HN S,4H Y S,4H T E,4H M , 1 4HP A ,4HR A ,4HM E ,4HT E ,4HR E,4H C H,4H O / DATA BDT /4HTCRI,4HTMTH,4HTMPC,4HTDEP,4HTPCH,4HTRUN,4HTDIM/ DATA TOPT / -9 / C DATA ADD /4H@ASG,4H,T ,4HLOG-,4HFILE,4H.,F ,4H . / DATA S1,S2 /4HWORD, ' OF /SYSTEM/ IS '/ C C C CONMSG (BCD7,1,1) MASK1 = COMPLF(0) MASK2 = RSHIFT(MASK1,1) C C CALL NSINFO TO OPEN NAINFO FILE AND PICK UP ANY PRESET SYSTEM C PARAMETERS FROM THE SECOND SECTION OF THAT FILE C J = 2 CALL NSINFO (J) IF (J .NE. 2) TOPT = J C C READ FIRST CARD IN DATA STREAM AND CALL XRCARD TO CONVERT IT. C IF INPUT CARD IS BLANK, READ NEXT CARD C 10 CALL XREAD (*3500,CARD) IF (CARD(1).EQ.BLANK .AND. CARD(2).EQ.BLANK .AND. CARD(3).EQ.BLANK 1 .AND. CARD(5).EQ.BLANK .AND. CARD(7).EQ.BLANK) GO TO 10 CALL XRCARD (BUF,75,CARD) FLAG = 1 IF (BUF(1)) 4000,15,20 15 IF (NOGO .EQ. 0) GO TO 10 NOGO = 0 GO TO 4000 C C IF CARD IS NASTRAN PARAMETER CARD, ECHO IT. C 20 IF (BUF(2).NE.NSTRN(1) .OR. BUF(3).NE.NSTRN(2)) GO TO 4000 DO 25 I = 1,14 25 PGHDG(I+2) = HDG(I) IF (SYSTEM(11) .LE. 0) CALL PAGE1 WRITE (OUTTAP,30) (CARD(I),I=1,20) 30 FORMAT (5X,20A4) C C RETURN IF NO KEYWORD ON NASTRAN CARD C IF (BUF(4) .EQ. MASK2) GO TO 4000 FLAG = 0 C C IDENTIFY KEYWORDS AND BRANCH TO APPROPRIATE CODE. C J = 4 35 JN = 2*BUF(1) + 1 J1 = 1 GO TO 50 40 IF (BUF(J1)) 85,45,50 45 CALL XREAD (*3500,CARD) CALL XRCARD (BUF,75,CARD) WRITE (OUTTAP,30) CARD IF (BUF(1) .EQ. 0) GO TO 45 J = 2 GO TO 35 50 IF (BUF(J1) .EQ. MASK2) GO TO 4000 DO 55 I = 1,LKEYWD IF (BUF(J).EQ.KEYWDS(1,I) .AND. BUF(J+1).EQ.KEYWDS(2,I)) GO TO 110 55 CONTINUE IF (BUF(J) .EQ. KEYWDS(1,14)) GO TO 100 IF (BUF(J) .EQ. FILES(1)) GO TO 3000 IF (BUF(J) .NE. BLANK) GO TO 60 J = J + 2 IF (BUF(J+2) .EQ. MASK2) GO TO 4000 IF (BUF(J) .EQ. 0) GO TO 45 IF (J .LT. JN) GO TO 50 J1 = JN + 1 IF (BUF(J1) .EQ. MASK2) GO TO 4000 JN = 2*BUF(J1) + 1 J = J1 + 1 GO TO 50 C C PRINT MESSAGE FOR UNIDENTIFIED KEYWORD. C 60 CONTINUE WRITE (OUTTAP,65) UFM,BUF(J),BUF(J+1) 65 FORMAT (A23,' 17, UNIDENTIFIED NASTRAN CARD KEYWORD ',2A4, 1 '. ACCEPTABLE KEYWORDS FOLLOW ---', /1H0 ) DO 70 I = 1,LKEYWD WRITE (OUTTAP,75) KEYWDS(1,I),KEYWDS(2,I) 70 CONTINUE 75 FORMAT (5X,2A4) WRITE (OUTTAP,80) (BDT(I),I=1,7) 80 FORMAT (7(5X,4HBAND,A4), 1 /5X,'FILES (MUST BE LAST IN INPUT LIST)') NOGO = 1 GO TO 4000 C C PRINT MESSAGE FOR BAD FORMAT. C 85 WRITE (OUTTAP,90) UFM 90 FORMAT (A23,' 43, INCORRECT FORMAT FOR NASTRAN CARD.') NOGO = 1 GO TO 4000 C C . CHECK FOR LEGAL REAL NUMBER... C 95 CONTINUE IF (BUF(J1-2) .NE. -2) GO TO 85 IF (BUF(J1-2) .EQ. -2) GO TO 120 IF (I .EQ. 11) GO TO 1100 C C . BANDIT KEYWORDS. C 100 I = 1400 K = BUF(J+1) C C KEYWORD FOUND. C 110 CONTINUE J1 = JN + 1 PARAM = BUF(J1+1) J1 = J1 + 2 IF (BUF(J1) .NE. MASK2) JN = 2*BUF(J1) + J1 J = J1 + 1 IF (BUF(J1-2) .NE. -1) GO TO 95 120 CONTINUE IF (I .EQ. 1400) GO TO 1400 GO TO ( 150, 200, 300, 400, 500, 600, 700, 800, 900,1000, 1 1100,1200,1300,1450,1500,1600,1700), I C C BUFFSIZE C 150 CONTINUE SYSBUF = PARAM GO TO 40 C C IGNORE THE CONFIG PARAMETER C 200 CONTINUE GO TO 40 C C MAXFILES UPPER LIMIT C 300 CONTINUE M = MXFL IF (PARAM .LE. M) GO TO 320 WRITE (OUTTAP,310) M 310 FORMAT (' *** MAXFILES IS RESET TO THE LIMIT OF 74') PARAM = M 320 MAXFIL = PARAM GO TO 40 C C MAXOPEN C 400 CONTINUE IF (PARAM .LE. MAXFIL) GO TO 420 IF (PARAM .GT. MXFL) GO TO 430 WRITE (OUTTAP,410) PARAM 410 FORMAT (' *** MAXOPEN EXCEEDS MAXFILES. MAXFILES IS AUTOMATICALLY' 1, ' EXPANDED TO',I4) MAXFIL = PARAM 420 MAXOPN = PARAM GO TO 40 C 430 M = MXFL WRITE (OUTTAP,440) M,M 440 FORMAT (' *** MAXOPEN EXCEEDS MAXFILES LIMIT OF ',I3,'. BOTH ', 1 'MAXOPEN AND MAXFILES ARE RESET ONLY TO ',I3,' EACH') MAXFIL = M MAXOPN = M GO TO 40 C C SYSTEM C 500 CONTINUE IF (PARAM .LE. 0) GO TO 85 IF (PARAM .NE. 24) GO TO 510 WRITE (OUTTAP,505) 505 FORMAT ('0*** FATAL, USER SHOULD NOT CHANGE THE 24TH WORD OF ', 1 '/SYSTEM/') NOGO = 1 GO TO 40 C 510 IF (BUF(J1)) 530,40,520 520 J1 = JN + 1 J = J1 + 1 IF (BUF(J1) .EQ. MASK2) GO TO 85 JN = J1 + 2*BUF(J1) GO TO 510 530 IF (BUF(J1).EQ.-2 .AND. PARAM.NE.70) GO TO 85 C C IGNORE THE CONFIG PARAMETER C IF (PARAM .NE. 28) SYSTEM(PARAM) = BUF(J) C C SYSTEM WORD ECHO C IF (PARAM .GE. 10) GO TO 531 IF (PARAM .EQ. 1) WRITE (OUTTAP,541) S1,PARAM,S2 IF (PARAM .EQ. 2) WRITE (OUTTAP,542) S1,PARAM,S2 IF (PARAM .EQ. 3) WRITE (OUTTAP,543) S1,PARAM,S2 IF (PARAM .EQ. 4) WRITE (OUTTAP,544) S1,PARAM,S2 IF (PARAM .EQ. 7) WRITE (OUTTAP,547) S1,PARAM,S2 IF (PARAM.EQ.7 .AND. MACH.EQ.3) WRITE (OUTTAP,548) IF (PARAM .EQ. 9) WRITE (OUTTAP,549) S1,PARAM,S2 GO TO 590 531 K = PARAM/10 IF (K .LE. 9) GO TO (532,532,533,534,534,536,536,536,536), K WRITE (OUTTAP,540) S1,PARAM,S2 GO TO 590 532 IF (PARAM .EQ. 20) WRITE (OUTTAP,550) S1,PARAM,S2 IF (PARAM .EQ. 28) WRITE (OUTTAP,558) S1,PARAM,S2 IF (PARAM .EQ. 29) WRITE (OUTTAP,559) S1,PARAM,S2 GO TO 590 533 IF (PARAM .EQ. 30) WRITE (OUTTAP,560) S1,PARAM,S2 IF (PARAM .EQ. 31) WRITE (OUTTAP,561) S1,PARAM,S2 IF (PARAM.EQ.34 .AND. MACH.NE.4) WRITE (OUTTAP,564) S1,PARAM,S2 IF (PARAM.EQ.34 .AND. MACH.EQ.4) WRITE (OUTTAP,565) S1,PARAM,S2 GO TO 590 534 IF (PARAM .EQ. 42) WRITE (OUTTAP,572) S1,PARAM,S2 IF (PARAM .EQ. 45) WRITE (OUTTAP,575) S1,PARAM,S2 IF (PARAM .EQ. 57) WRITE (OUTTAP,577) S1,PARAM,S2 IF (PARAM .EQ. 58) WRITE (OUTTAP,578) S1,PARAM,S2 IF (PARAM .EQ. 59) WRITE (OUTTAP,579) S1,PARAM,S2 GO TO 590 536 IF (PARAM.GE.60 .AND. PARAM.LE.65) WRITE (OUTTAP,577) S1,PARAM,S2 IF (PARAM .EQ. 70) WRITE (OUTTAP,580) S1,PARAM,S2 IF (PARAM .EQ. 77) WRITE (OUTTAP,587) S1,PARAM,S2 GO TO 590 540 FORMAT (5X,A4,I3,A16,'NOT AVAILABLE. INPUT IGNORED') 541 FORMAT (5X,A4,I3,A16,'GINO BUFFER SIZE') 542 FORMAT (5X,A4,I3,A16,'OUTPUT UNIT') 543 FORMAT (5X,A4,I3,A16,'NOGO FLAG') 544 FORMAT (5X,A4,I3,A16,'INPUT UNIT') 547 FORMAT (5X,A4,I3,A16,'NO. OF CONSOLE LOG MESSAGES') 548 FORMAT (1H+,31X,'. (95 MAX.)') 549 FORMAT (5X,A4,I3,A16,'NO. OF LINES PER PAGE. MINIMUM 10') 550 FORMAT (5X,A4,I3,A16,'PLOT OPTION') 558 FORMAT (5X,A4,I3,A16,'MACHINE CONFIGURATION (IGNORED)') 559 FORMAT (5X,A4,I3,A16,'MAX FILES') 560 FORMAT (5X,A4,I3,A16,'MAX FILES OPEN') 561 FORMAT (5X,A4,I3,A16,'HI-CORE') 564 FORMAT (5X,A4,I3,A16,'DRUM FLAG') 565 FORMAT (5X,A4,I3,A16,'NOS/NOS-BE FLAG') 572 FORMAT (5X,A4,I3,A16,'SYSTEM RELEASE DATE') 575 FORMAT (5X,A4,I3,A16,'TAPE BIT') 577 FORMAT (5X,A4,I3,A16,'DATA EXTRACTED FROM ADUM CARDS') 578 FORMAT (5X,A4,I3,A16,'MPYAD METHOD SELECTION') 579 FORMAT (5X,A4,I3,A16,'PLOT TAPE TRACK SPEC') 580 FORMAT (5X,A4,I3,A16,'SMA1 SINGULAR TOLERANCE') 587 FORMAT (5X,A4,I3,A16,'BANDIT/BULKDATA FLAG') C C SET BOTTOM LIMIT OF 10 TO NUMBER OF LINES PER PAGE C AND FOR UNIVAC ONLY, LIMIT THE CONSOLE LOG MESSAGES TO 95 MAXIMUM C 590 IF (PARAM.EQ.9 .AND. SYSTEM(9).LT.10) SYSTEM(9) = 10 IF (MACH .EQ.3 .AND. PARAM.EQ.7 .AND. SYSTEM(7).GT.95) 1 SYSTEM(7) = 95 J1 = J1 + 2 J = J1 + 1 IF (BUF(J1) .EQ. MASK2) GO TO 4000 JN = J1 + 2*BUF(J1) GO TO 40 C C KON360/HICORE C 600 CONTINUE SYSTEM(31) = PARAM GO TO 40 C C NLINES - BOTTOM-LIMITED TO 10 C 700 CONTINUE SYSTEM(9) = PARAM IF (SYSTEM(9) .LT. 10) SYSTEM(9) = 10 GO TO 40 C C TITLEOPT C 800 CONTINUE TOPT = PARAM IF (MACH.EQ.3 .AND. TOPT.LE.-2) LOGFL = 3 GO TO 40 C C MODCOM COMMUNICATION AREA C 900 CONTINUE IF (PARAM .LE. 0) GO TO 85 910 IF (BUF(J1)) 930,40,920 920 J1 = JN + 1 J = J1 + 1 IF (BUF(J1) .EQ. MASK2) GO TO 85 JN = J1 + 2*BUF(J1) GO TO 910 930 MODCOM(PARAM) = BUF(J) J1 = J1 + 2 J = J1 + 1 IF (BUF(J1) .EQ. MASK2) GO TO 4000 JN = J1 + 2*BUF(J1) GO TO 40 C C HICORE = LENGTH OF CORE ON UNIVAC, VAX, AND UNIX C 1000 CONTINUE SYSTEM(31) = PARAM GO TO 40 C C UNIVAC - DRUM ALLOCATION, 1 BY POSITIONS, 2 BY TRACKS C DEFAULT IS 1, 150 POSITIONS (GOOD FOR LARGE JOB) C IF DRUM IS 2, 1280 TRKS. IS ASSIGNED (SUITABLE FOR C SMALLER JOB) C C CDC - IDRUM (34TH WORD OF /SYSTEM/) IS LENGTH OF FET + DUMMY INDEX C 1100 IDRUM = PARAM GO TO 40 C C PLOT TAPE TRACK SIZE TRACK=7 IMPLIES 7 TRACK C TRACK=9 IMPLIES 9 TRACK C 1200 IF (PARAM.NE.7 .AND. PARAM.NE.9) GO TO 1250 IF (PARAM .EQ. 7) SYSTEM(59) = 1 IF (PARAM .EQ. 9) SYSTEM(59) = 2 GO TO 40 1250 WRITE (OUTTAP,1480) UWM,PARAM,KEYWDS(1,12),KEYWDS(2,12) NOGO = 1 GO TO 40 C C . ELEMENT SINGULARITY TOLERANCE (A REAL S.P. NUMBER)... C 1300 ITOLEL = PARAM IF (BUF(J1-2).EQ.-1) RTOLEL = ITOLEL GO TO 40 C C BANDIT (77TH WORD OF SYSTEM) C BANDIT KEYWORDS (DEFAULT VALUES IN BRACKETS, SET BY BGRID ROUTINE) C BANDTCRI = (1),2,3,4 CRITERION C BANDTMTH = 1,2,(3) METHOD C BANDTMPC = (0),1,2 MPC EQUS. AND RIGID ELEMENTS C BANDTDEP = (0),1 DEPENDANT GRID C BANDTPCH = (0),1 PUNCH SEQGP CARDS C BANDTRUN = (0),1 RUN/SEQGP C BANDTDIM = (0),1,2,...,9 SCRATCH ARRAY DIMENSION C BANDIT = -1,(0) BANDIT SKIP FLAG C WHERE, C CRITERION = 1, USE RMS WAVEFRONT TO DETERMINE BEST RESULT, C = 2, BANDWIDTH, =3, PROFILE, OR =4, MAX WAVEFRONT C METHOD = 1, CM METHOD IS USED, 3, GPS, OR 2, BOTH C MPC = 0, MPC'S AND RIGID ELEM ARE NOT CONSIDERED C = 1, MPC'S AND RIGID ELEM ARE USED IN RESEQUENCING C = 2, ONLY RIGID ELEMENTS ARE USED IN RESEQUENCING C DEPEND = 0, DEPENDANT GRID IS OMITTED IN RESEQUENCING C IF MPC IS NON-ZERO C = 1, DEPENDANT GRIDS ARE INCLUDED C PUNCH = 0, NO SEQGP CARDS PUNCHED C = 1, PUNCH OUT BANDIT GENERATED SEQGP CARDS AND C TERMINATE NASTRAN JOB C RUN/SEQGP = 0, BANDIT WOULD QUIT IF THERE IS ONE OR MORE SEQGP C CARD IN THE INPUT DECK C = 1, TO FORCE BANDIT TO BE EXECUTED EVEN IF SEQGP C CARDS ARE PRESENT C DIM = 1,2,...,N, TO SET THE SCRATCH AREA, USED ONLY IN C GPS METHOD, TO N*100. (N IS 9 OR LESS) C = 0, DIMENSION IS SET TO 150 C BANDIT =-1, BANDIT COMPUTATION IS SKIPPED UNCONDITIONALLY C = 0, BANDIT WOULD BE EXECUTED IF BULK DATA CONTAINS C NO INPUT ERROR C 1400 CONTINUE IF (BANDIT .LT. 0) GO TO 40 IF (K.EQ.BDT(7) .AND. PARAM.GE.100) PARAM = PARAM/100 IF (PARAM.LT.0 .OR. PARAM.GT.9) GO TO 1470 DO 1420 I = 1,7 IF (K .NE. BDT(I)) GO TO 1420 K = PARAM*10**(I-1) GO TO 1430 1420 CONTINUE GO TO 60 1430 BANDIT = BANDIT + K GO TO 40 1450 IF (PARAM .LT. 0) BANDIT = -1 IF (PARAM .LE. 0) GO TO 40 K = KEYWDS(2,14) 1470 WRITE (OUTTAP,1480) UWM,PARAM,KEYWDS(1,14),K 1480 FORMAT (A25,' 65, ILLEGAL VALUE OF ',I7,' IN NASTRAN ',2A4, 1 ' CARD') GO TO 40 C C BULK DATA CHECK ONLY C TO TERMINATE JOB AFTER BULK DATA CHECK, AND SKIP OVER BANDIT C (OPTION TO PRINTOUT TIME CONSTANTS IN /NTIME/, IF BULKDATA=-3) C 1500 CONTINUE IF (PARAM .NE. 0) BANDIT = -2 IF (BANDIT .EQ. -2) MAXFIL = 23 IF (PARAM .EQ. -3) BANDIT = -3 GO TO 40 C C PLOT OPTIONS - C C PLTFLG BULKDATA PLOT COMMANDS ACTION TAKEN C ----- ------- -- ------------- ------------------------------- C 0 NO ERROR NO ERROR EXECUTES ALL LINKS, NO PLOTS C NO ERROR ERROR STOPS AFTER LNK1 DATA CHECK C ERROR ERR OR NO ERR STOPS AFTER LINK1 CHECK C 1 NO ERROR NO ERROR GO, ALL LINKS AND PLOTS C NO ERROR ERROR STOP AFTER LINK1 DATA CHECK C ERROR NO ERROR STOP AFTER LINK1 DATA CHECK C ERROR ERROR STOP AFTER LINK1 DATA CHECK C 2 NO ERROR NO ERROR STOP AFTER UNDEFORM PLOT/LINK2 C NO ERROR ERROR STOP AFTER LINK1 DATA CHECK C ERROR NO ERROR STOP AFTER UNDEFORM PLOT/LINK2 C ERROR ERROR STOP AFTER LINK1 DATA CHECK C 3 (ERROR OR (ERROR OR (ATTEMPT TO PLOT UNDEFORM MODEL C NO ERROR) NO ERROR) THEN STOP/LINK2) C 4 NO ERROR NO ERROR GO, ALL LINKS AND PLOTS C NO ERROR ERROR STOP AFTER UNDEFORM PLOT/LINK2 C ERROR NO ERROR STOP AFTER UNDEFORM PLOT/LINK2 C ERROR ERROR STOP AFTER LINK1 DATA CHECK C 5 NO ERROR NO ERROR GO, ALL LINKS AND PLOTS C NO ERROR ERROR GO, ALL LINKS BUT NO PLOTS C ERROR NO ERROR STOP AFTER UNDEFORM PLOT/LINK2 C ERROR ERROR STOP AFTER LINK1 DATA CHECK C PLTFLG 0 OR 1 IS SET BY THE PRESENCE OF THE PLOT TAPE. C PLTFLG WILL BE RESET TO POSITIVE IN IFP1 C CUT MAXFIL TO HALF AND SKIP BANDIT IF PLOT OPTION IS 2 OR 3 C 1600 CONTINUE IF (PARAM.LT.2 .OR. PARAM.GT.5) GO TO 1650 IF (PARAM .GE. 2) PLTFLG = -PARAM IF (PLTFLG.NE.-2 .AND. PLTFLG.NE.-3) GO TO 40 MAXFIL = 24 BANDIT = -1 GO TO 40 1650 WRITE (OUTTAP,1480) UWM,PARAM,KEYWDS(1,16),KEYWDS(2,16) GO TO 40 C C LOGFL = LOGFILE MESSAGE CONTROL ON UNIVAC 1100 C 1700 CONTINUE LOGFL = PARAM GO TO 40 C C FILES C 3000 IF (BUF(J+2) .NE. MASK1) GO TO 85 IF (J+4 .GE. JN) GO TO 85 IF (BUF(J+4).EQ.BLANK .AND. BUF(J+6).EQ.MASK1) GO TO 3010 J = J + 4 KHR = 0 GO TO 3020 3010 J = J + 8 KHR = 7 3020 IF (BUF(J).EQ.MASK1 .OR. KHR.EQ.1) GO TO 3090 DO 3030 II = 1,NPFIST IF (BUF(J) .EQ. FIST(2*II-1)) GO TO 3060 3030 CONTINUE DO 3040 I = 1,LKEYWD IF (BUF(J).EQ.KEYWDS(1,I) .AND. BUF(J+1).EQ.KEYWDS(2,I)) GO TO 110 3040 CONTINUE IF (BUF(J) .NE. BLANK) WRITE (OUTTAP,3050) UWM,BUF(J) 3050 FORMAT (A25,' 64, ',A4,' IS NOT DEFINED AS A NASTRAN FILE AND ', 1 'WILL BE IGNORED.') GO TO 3070 3060 IXX = 2**(II-1) SYSTEM(45) = ORF(SYSTEM(45),IXX) 3070 J = J + 2 KHR = KHR + 1 IF (J .LT. JN) GO TO 3020 J1 = JN + 1 IF (BUF(J1) .EQ. MASK2) GO TO 4000 IF (BUF(J1) .NE. 0) GO TO 85 3080 CALL XREAD (*3500,CARD) CALL XRCARD (BUF,75,CARD) WRITE (OUTTAP,30) (CARD(I),I=1,20) IF (BUF(1) .EQ. 0) GO TO 3080 J = 2 J1 = 1 JN = 2*BUF(1) + 1 GO TO 3020 3090 J = J + 2 GO TO 40 C C C END-OF-FILE ENCOUNTERED ON INPUT FILE C 3500 WRITE (OUTTAP,3600) UFM,INTAP 3600 FORMAT (A23,' 74, EOF ENCOUNTERED ON UNIT ',I4, 1 ' WHILE READING THE INPUT DATA IN SUBROUTINE NASCAR') CALL MESAGE (-61,0,0) C C C GENERATE TITLE PAGE C 4000 DO 4100 I = 1,14 4100 PGHDG(I+2) = BLANK CALL TTLPGE (TOPT) C RETURN END ================================================ FILE: mis/norm1.f ================================================ SUBROUTINE NORM1 (X,DIV) C******* C NORM WILL NORMALIZE X TO MAXIMUM ELEMENT EQUAL TO ONE AND STORE TH C DIVISOR IN MAX C******* DOUBLE PRECISION X(1) ,MAX ,DIV COMMON /INVPWX/ FILEK(7) EQUIVALENCE (NCOL,FILEK(2)) DATA IND1 /1/ MAX = 0.D0 DO 10 I=1,NCOL DIV = DABS( X(I) ) IF( DIV .LE. MAX ) GO TO 10 MAX = DIV IND = I 10 CONTINUE IF( X(IND) .LT. 0.D0 ) IND = -IND I = IABS(IND1) XX = X(I) DIV = SIGN(1.,XX)*FLOAT(ISIGN(1,IND1))*MAX XX = DIV IND1 = IND*IFIX(SIGN(1.,XX)) MAX = 1.D0/DIV DO 20 I=1,NCOL XI = X(I)*MAX IF (ABS(XI) .LT. 1.E-36) XI=0. 20 X(I)= XI RETURN END ================================================ FILE: mis/norm11.f ================================================ SUBROUTINE NORM11(X,DIV) C DOUBLE PRECISION DIV REAL X(1) ,MAX COMMON /INVPWX/ FILEK(7) EQUIVALENCE (NCOL,FILEK(2)) DATA IND1 /1/ C MAX = 0.0 DO 10 I=1,NCOL XX = ABS( X(I) ) IF( XX .LE. MAX ) GO TO 10 MAX = XX IND = I 10 CONTINUE IF( X(IND) .LT. 0.0 ) IND = -IND I = IABS(IND1) XX = X(I) DIV = SIGN(1.,XX)*FLOAT(ISIGN(1,IND1))*MAX XX = DIV IND1 = IND*IFIX(SIGN(1.,XX)) MAX = 1.0 /DIV DO 20 I=1,NCOL XI = X(I)*MAX IF (ABS(XI) .LT. 1.E-36) XI = 0.0 20 X(I)= XI RETURN END ================================================ FILE: mis/normal.f ================================================ SUBROUTINE NORMAL C C THIS IS THE DRIVER FOR THE NORM MODULE. C C NORM INMAT/OUTMAT/S,N,NCOL/S,N,NROW/S,N,XNORM/V,Y,IOPT $ C C DEPENDING ON THE VALUE OF IOPT, THIS MODULE PERFORMS THE C FOLLOWING FUNCTIONS -- C C IOPT = 'MAX' C NORM GENERATES A MATRIX. EACH COLUMN OF THIS OUTPUT C MATRIX REPRESENTS A COLUMN OF THE INPUT MATRIX C NORMALIZED BY ITS LARGEST ROW ELEMENT. (DEFAULT) C C IOPT = 'SRSS' C NORM GENERATES A COLUMN VECTOR. EACH ELEMENT OF THIS C VECTOR REPRESENTS THE SQUARE ROOT OF THE SUM OF THE C SQUARES (SRSS) OF THE CORRESPONDING ROW OF THE INPUT C MATRIX. C C C C INPUT DATA BLOCK -- C C INMAT - ANY MATRIX C C OUTPUT DATA BLOCK -- C C OUTMAT - OUTPUT MATRIX GENERATED AS DESCRIBED BELOW C C PARAMETERS -- C C NCOL - NO. OF COLUMNS OF THE INPUT MATRIX (OUTPUT/INTEGER) C C NROW - NO. OF ROWS OF THE INPUT MATRIX (OUTPUT/INTEGER) C C XNORM - MAX. NORMALIZING OR SRSS VALUE, DEPENDING UPON THE C IOPT VALUE SPECIFIED (OUTPUT/REAL) C IOPT - OPTION INDICATING WHETHER EACH COLUMN OF THE INPUT C MATRIX IS TO BE NORMALIZED BY THE MAXIMUM ROW ELEMENT C IN THAT COLUMN OR WHETHER THE SRSS VALUE FOR EACH ROW C OF THE INPUT MATRIX IS TO BE COMPUTED (INPUT/BCD) C C THIS MODULE DEVELOPED BY P. R. PAMIDI OF RPK CORPORATION, C MARCH 1988 C DIMENSION MCB(7), Z(1) , ISUBNM(2) DOUBLE PRECISION DXMAX , ZD(1) , DZERO CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / NCOL , NROW , XXMAX , IOPT(2) COMMON /PACKX / IPKOT1 , IPKOT2 , IP1 , IP2 , INCRP COMMON /SYSTEM/ ISYSBF , NOUT COMMON /TYPE / IPRC(2), NWDS(4), IRC(4) COMMON /UNPAKX/ IUNOUT , IU1 , IU2 , INCRU COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (IZ(1),Z(1),ZD(1)), (IOPT1,IOPT(1)) DATA MATIN , MATOUT / 101, 201/ DATA ISUBNM, MAX , ISRSS , IBLNK , DZERO / 1 4HNORM, 4HAL , 4HMAX , 4HSRSS, 4H , 0.0D+0 / C IF (IOPT(2).EQ.IBLNK .AND. (IOPT1.EQ.MAX .OR. IOPT1.EQ.ISRSS)) 1 GO TO 20 WRITE (NOUT,10) UFM,IOPT 10 FORMAT (A23,', ILLEGAL BCD VALUE (', 2A4,') FOR THE 4TH PARAMATER' 1, ' IN MODULE NORM') CALL MESAGE (-61,0,0) 20 INCRU = 1 INCRP = 1 ICORE = KORSZ(IZ) IBUF1 = ICORE - ISYSBF + 1 IBUF2 = IBUF1 - ISYSBF ICORE = IBUF2 - 1 CALL GOPEN (MATIN ,IZ(IBUF1),0) CALL GOPEN (MATOUT,IZ(IBUF2),1) MCB(1) = MATIN CALL RDTRL (MCB) NCOL = MCB(2) NROW = MCB(3) NROW2 = 2*NROW ITYPE = MCB(5) IPREC = ITYPE IF (IPREC .GT. 2) IPREC = IPREC - 2 IUNOUT = ITYPE IPKOT1 = ITYPE IPKOT2 = ITYPE NROWP = IPREC*NROW NWORDS = NWDS(ITYPE) MWORDS = NROW*NWORDS KWORDS = MWORDS IF (IOPT1 .NE. MAX) KWORDS = KWORDS + NROWP ICRREQ = KWORDS - ICORE IF (ICRREQ .GT. 0) CALL MESAGE (-8,ICRREQ,ISUBNM) IVEC = MWORDS IVEC1 = IVEC + 1 IVEC2 = IVEC + NROWP IF (IOPT1 .EQ. MAX) GO TO 40 MCB(5) = IPREC IPKOT1 = IPREC IPKOT2 = IPREC DO 30 I= IVEC1,IVEC2 30 Z(I) = 0.0 40 MCB(1) = MATOUT MCB(2) = 0 MCB(6) = 0 MCB(7) = 0 IU1 = 1 IU2 = NROW C XXMAX = 0.0 DO 700 I = 1,NCOL XX = 0.0 CALL UNPACK (*50,MATIN,Z) IP1 = IU1 IP2 = IU2 XMAX =-1.0 GO TO 70 50 IP1 = 1 IP2 = 1 XMAX = 0.0 DO 60 J = 1,NWORDS Z(J) = 0.0 60 CONTINUE C 70 IF (IOPT1 .EQ. ISRSS) GO TO 600 IF (XMAX .EQ. 0.0) GO TO 510 C C OPTION IS MAX C GO TO (100,200,300,400), ITYPE C 100 XMAX = 0.0 DO 110 J = 1,NROW X = ABS(Z(J)) IF (X .GT. XMAX) XMAX = X 110 CONTINUE IF (XMAX .EQ. 0.0) GO TO 510 XX = XMAX DO 120 J = 1,NROW Z(J) = Z(J)/XMAX 120 CONTINUE GO TO 500 C 200 DXMAX = DZERO DO 210 J = 1,NROW DX = DABS(ZD(J)) IF (DX .GT. DXMAX) DXMAX = DX 210 CONTINUE IF (DXMAX .EQ. DZERO) GO TO 510 XX = DXMAX DO 220 J = 1,NROW ZD(J) = ZD(J)/DXMAX 220 CONTINUE GO TO 500 C 300 XMAX = 0.0 DO 310 J = 1,NROW2,2 X = SQRT(Z(J)*Z(J) + Z(J+1)**2) IF (X .GT. XMAX) XMAX = X 310 CONTINUE IF (XMAX .EQ. 0.0) GO TO 510 XX = XMAX DO 320 J = 1,NROW2,2 Z(J ) = Z(J )/XMAX Z(J+1) = Z(J+1)/XMAX 320 CONTINUE GO TO 500 C 400 DXMAX = DZERO DO 410 J = 1,NROW2,2 DX = DSQRT(ZD(J)*ZD(J) + ZD(J+1)**2) IF (DX .GT. DXMAX) DXMAX = DX 410 CONTINUE IF (DXMAX .EQ. DZERO) GO TO 510 XX = DXMAX DO 420 J = 1,NROW2,2 ZD(J ) = ZD(J )/DXMAX ZD(J+1) = ZD(J+1)/DXMAX 420 CONTINUE C 500 IF (XX .GT. XXMAX) XXMAX = XX 510 CALL PACK (Z,MATOUT,MCB) GO TO 700 C C OPTION IS SRSS C 600 IF (XMAX .EQ. 0.0) GO TO 700 GO TO (610,630,650,670), ITYPE C 610 DO 620 J = 1,NROW K = IVEC + J Z(K) = Z(K) + Z(J)*Z(J) 620 CONTINUE GO TO 700 C 630 DO 640 J = 1,NROW K = IVEC + J ZD(K) = ZD(K) + ZD(J)*ZD(J) 640 CONTINUE GO TO 700 C 650 K = IVEC DO 660 J = 1,NROW2,2 K = K + 1 Z(K) = Z(K) + Z(J)*Z(J) + Z(J+1)**2 660 CONTINUE GO TO 700 C 670 K = IVEC DO 680 J = 1,NROW2,2 K = K + 1 ZD(K) = ZD(K) + ZD(J)*ZD(J) + ZD(J+1)**2 680 CONTINUE C 700 CONTINUE CALL CLOSE (MATIN, 1) IF (IOPT1 .EQ. MAX) GO TO 760 C IP1 = IU1 IP2 = IU2 GO TO (710,730), IPREC C 710 DO 720 I = IVEC1,IVEC2 Z(I) = SQRT(Z(I)) IF (Z(I) .GT. XXMAX) XXMAX = Z(I) 720 CONTINUE GO TO 750 C 730 DO 740 I = IVEC1,IVEC2 ZD(I) = DSQRT(ZD(I)) IF (ZD(I) .GT. XXMAX) XXMAX = ZD(I) 740 CONTINUE C 750 CALL PACK (Z(IVEC1),MATOUT,MCB) C 760 CALL CLOSE (MATOUT,1) CALL WRTTRL (MCB) RETURN END ================================================ FILE: mis/nrlsum.f ================================================ SUBROUTINE NRLSUM C C NRLSUM OES2,OEF2/NRLSTR,NRLFOR/V,N,NMODES/V,N,NSHOCK(NDIR)/ C C,Y,DIRECT=123/C,Y,SQRSS=0 $ C C NRLSUM COMPUTES NRL SUM STRESSES AND FORCES FOR DDAM. IT IS C ASSUMED THAT THE USER HAS REQUESTED STRESSES AND FORCES IN SORT2 C FORMAT (BUT RESULTS WILL BE SORT1). NRLSUM READS ITEMS FOR AN C ELEMENT (FOR ALL SUBCASES) AND COMPUTES THE NRL SUM. UP TO 3 C SCRATCH FILES ARE USED TO STORE THE SUMS FOR EACH SHOCK DIRECTION. C PRINCIPAL STRESSES WILL BE COMPUTED BASED ON THE SUMS. THE NUMBER C OF SUBCASES IS NMODES*NSHOCK WITH THE ORDER 1-NMODES, C NMODES+1 - 2*NMODES, ... NSHOCK*NMODES. C C (IF (SQRSS.EQ.1), SQUARE ROOT OF THE SUM OF THE SQUARES IS USED C INSTEAD OF NRL SUM C INTEGER FILE,BUF1,BUF2,BUF3,BUF4,OES2,SYSBUF,ELTYPE,SCR1, 1 SCR2,SCR3,ELID,OLDTYP,SCR(3), 2 OEF2,OFIL,IDIR(2),INUM(3),NSUB(3),DIRECT,SQRSS DIMENSION SIG(6),SIGP(3),SMAT(3,3),DCOS(3,3) DIMENSION Z(20),NAM(2),STRESS(146),ISTRES(146),MCB(7) COMMON /SYSTEM/ SYSBUF COMMON /BLANK / NMODES,NSHOCK,DIRECT,SQRSS COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (Z(1),IZ(1)), (STRESS(1),ISTRES(1)) EQUIVALENCE (SIGP(1),SA), (SIGP(2),SB), (SIGP(3),SC) EQUIVALENCE (SIG(1) ,SX), (SIG(2) ,SY), (SIG(3) ,SZ), 1 (SIG(4),SXY), (SIG(5),SYZ), (SIG(6),SZX) DATA OES2 , NRLSTR,SCR1,SCR2,SCR3 / 101,201,301,302,303/ DATA OEF2 , NRLFOR /102,202 / DATA SCR / 301,302,303 / DATA IDIR / 4HDIRE,4HCTIO / DATA INUM / 4HN 1 ,4HN 2 ,4HN 3 / DATA DTOR / 0.0174532925E0 / DATA NAM / 4HNRLS,4HUM /, I0 / 0 / C LCORE= KORSZ(Z) BUF1 = LCORE- SYSBUF + 1 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF IF (NSHOCK .EQ. 3) GO TO 20 IF (NSHOCK .EQ. 2) GO TO 10 BUF4 = BUF2 BUF3 = BUF2 GO TO 20 C 10 BUF4 = BUF3 C 20 LCORE = BUF4 - 1 IF (LCORE .LE. 0) GO TO 1008 NDIR = NSHOCK IF (NDIR .GT. 1) GO TO 11 NSUB(1) = DIRECT GO TO 14 11 IF (NDIR .GT. 2) GO TO 13 IF (DIRECT .EQ. 23) GO TO 12 NSUB(1) = 1 NSUB(2) = 2 IF (DIRECT .EQ. 13) NSUB(2) = 3 GO TO 14 12 NSUB(1) = 2 NSUB(2) = 3 GO TO 14 13 NSUB(1) = 1 NSUB(2) = 2 NSUB(3) = 3 14 CONTINUE IFIL = OES2 OFIL = NRLSTR C 15 FILE = IFIL OLDTYP = 0 CALL OPEN (*710,IFIL,Z(BUF1),0) CALL FWDREC (*1002,IFIL) CALL GOPEN (SCR1,Z(BUF2),1) IF (NSHOCK .GT. 1) CALL GOPEN (SCR2,Z(BUF3),1) IF (NSHOCK .EQ. 3) CALL GOPEN (SCR3,Z(BUF4),1) C 30 CALL READ (*410,*1003,IFIL,STRESS,146,1,IWORDS) ELTYPE= ISTRES(3) NWDS = ISTRES(10) I5 = ISTRES(5) ELID = ISTRES(5)/10 C C REFORMULATE TO SORT 1 FORMAT C ISTRES(2) = 5 IF (IFIL .EQ. OEF2) ISTRES(2) = 4 ISTRES(141) = IDIR(1) ISTRES(142) = IDIR(2) C C WRITE ONTO SCRATCH ONLY FOR NEW ELEMENT TYPE C IF (ELTYPE .EQ. OLDTYP) GO TO 45 DO 35 I = 1,NSHOCK ISTRES(4) = I ISTRES(5) = I ISTRES(8) = I ISUB = NSUB(I) ISTRES(143) = INUM(ISUB) IF (OLDTYP .NE. 0) CALL WRITE (SCR(I),0,0,1) CALL WRITE (SCR(I),STRESS,146,1) 35 CONTINUE C OLDTYP = ELTYPE C C READ STRESS INFO FOR NUMBER OF MODES AND SHOCK DIRECTIONS C IF (NMODES*NWDS .GT. LCORE) GO TO 1008 45 DO 400 NS = 1,NSHOCK ISCR = 300 + NS C CALL FREAD (IFIL,Z(1),NWDS*NMODES,0) C C GO TO PROPER SECTION FOR EACH ELEMENT TYPE C C FOR FORCES, COMPUTATIONS ARE EASIER. SO LETS NOT HAVE A COMPUTED C GO TO C IF (IFIL .EQ. OES2) GO TO 46 C IF (ELTYPE.GE.20 .AND. ELTYPE.LE.33) GO TO 400 IF (ELTYPE.GE.39 .AND. ELTYPE.LE.52) GO TO 400 IF (ELTYPE.EQ.62 .OR. ELTYPE.EQ.68 .OR. ELTYPE.EQ.69 .OR. 1 ELTYPE.EQ.72) GO TO 400 IF (ELTYPE.GE.65 .AND. ELTYPE.LE.67) GO TO 400 IF (ELTYPE.EQ. 9 .OR. ELTYPE.EQ.16 .OR. ELTYPE.EQ.73 .OR. 1 ELTYPE.EQ.76) GO TO 400 I3 = 1 I2 = NWDS I1 = 2 IF (ELTYPE.EQ.35 .OR. ELTYPE.EQ.70 .OR. ELTYPE.EQ.71) I1 = 3 GO TO 105 C 46 CONTINUE C GO TO ( 50, 60, 50, 70, 70, 80, 80, 80, 90, 50, 1 100,100,100,400, 80, 90, 80, 80, 80,400, 2 400,400,400,400,400,400,400,400,400,400, 3 400,400,400,110,120,130,140,150,160,160, 4 160,160,400,400,400,400,400,400,400,400, 5 400,400,170,170,170,170,170,170,170,170, 6 170, 90, 90, 80,220,220,220,400,400,180, 7 190,400,200,200,200,210,400,400,400,400, 8 400,400, 80), ELTYPE C C ROD, TUBE, CONROD C 50 I1 = 2 I2 = 4 I3 = 2 ASSIGN 55 TO IRET GO TO 390 C C IGNORE MARGINS OF SAFETY C 55 IZ(I0+3) = 1 IZ(I0+5) = 1 GO TO 395 C C BEAM C 60 I1 = 2 I2 = 5 I3 = 1 ASSIGN 65 TO IRET GO TO 390 65 Z(6) = Z(5) + AMAX1(Z(2),Z(3),Z(4)) Z(7) = Z(5) + AMIN1(Z(2),Z(3),Z(4)) IZ(I0+8) = 1 I1 = 9 I2 = 11 I3 = 1 ASSIGN 66 TO IRET GO TO 390 66 Z(12) = Z(5) + AMAX1(Z(9),Z(10),Z(11)) Z(13) = Z(5) + AMIN1(Z(9),Z(10),Z(11)) IZ(I0+14) = 1 GO TO 395 C C SHEAR C 70 I1 = 2 I2 = 3 I3 = 1 ASSIGN 75 TO IRET GO TO 390 75 IZ(I0+4) = 1 GO TO 395 C C TRBSC, TRPLT, QDPLT, TRIA1, TRIA2, TRIA3, QUAD1, QUAD2, QUAD4 C 80 I1 = 3 I2 = 5 I3 = 1 J3 = 3 J4 = 4 J5 = 5 J6 = 6 J7 = 7 J8 = 8 J9 = 9 ASSIGN 85 TO IRET GO TO 390 85 SS = .5*(Z(J3) + Z(J4)) ST = Z(J3) - Z(J4) SQ = SQRT(.25*ST**2 + Z(J5)**2) Z(J7) = SS + SQ Z(J8) = SS - SQ Z(J9) = SQ SD = 2.*Z(J5) IF (ABS(SD).LT.1.E-15 .AND. ABS(ST).LT.1.E-15) GO TO 87 Z(J6) = ATAN2(SD,ST)*28.6478898 GO TO 88 87 Z(J6) = 0. 88 IF (J3 .EQ. 11) GO TO 395 IF (ELTYPE.EQ. 9 .OR. ELTYPE.EQ.16) GO TO 395 C TRMEM QDMEM IF (ELTYPE.EQ.62 .OR. ELTYPE.EQ.63) GO TO 395 C QDMEM1 QDMEM2 IF (ELTYPE .EQ. 35) GO TO 125 C CONEAX I1 = 11 I2 = 13 I3 = 1 J3 = 11 J4 = 12 J5 = 13 J6 = 14 J7 = 15 J8 = 16 J9 = 17 GO TO 390 C C TRMEM, QDMEM, QDMEM1, QDMEM2 C 90 I1 = 2 I2 = 4 I3 = 1 J3 = 2 J4 = 3 J5 = 4 J6 = 5 J7 = 6 J8 = 7 J9 = 8 ASSIGN 85 TO IRET GO TO 390 C C CELAS1,2,3 C 100 I1 = 2 I2 = 2 I3 = 1 105 ASSIGN 395 TO IRET GO TO 390 C C BAR - ADD AXIAL STRESS TO EXTENSIONAL STRESSES DUE TO BENDING C BEFORE COMPUTING NRL SUMS. THEN ZERO OUT AXIAL STRESS C AND MAX AND MIN STRESSES C 110 I1 = 2 I2 = 5 I3 = 1 DO 113 J = 1,NMODES ISUB = NWDS*(J-1) DO 111 I = 2,5 111 Z(ISUB+I) = Z(ISUB+I)+Z(ISUB+6) DO 112 I = 10,13 112 Z(ISUB+I) = Z(ISUB+I)+Z(ISUB+6) 113 CONTINUE ASSIGN 115 TO IRET GO TO 390 115 Z(6) = 0. Z(7) = 0. Z(8) = 0. IZ(I0+9) = 1 I1 = 10 I2 = 13 I3 = 1 ASSIGN 116 TO IRET GO TO 390 116 Z(14) = 0. Z(15) = 0. IZ(I0+16) = 1 GO TO 395 C C CONEAX C 120 I1 = 4 I2 = 6 I3 = 1 J3 = 4 J4 = 5 J5 = 6 J6 = 7 J7 = 8 J8 = 9 J9 = 10 ASSIGN 85 TO IRET GO TO 390 125 IF (J3 .EQ. 12) GO TO 395 I1 = 12 I2 = 14 I3 = 1 J3 = 12 J4 = 13 J5 = 14 J6 = 15 J7 = 16 J8 = 17 J9 = 18 GO TO 390 C C TRIARG C 130 I1 = 2 I2 = 5 I3 = 1 GO TO 105 C C TRAPRG C 140 I1 = 2 I2 = 21 I3 = 1 GO TO 105 C C TORDRG C 150 I1 = 2 I2 = 16 I3 = 1 GO TO 105 C C TETRA, WEDGE, HEXA1, HEXA2 C 160 I1 = 2 I2 = 7 I3 = 1 ASSIGN 165 TO IRET GO TO 390 165 Z(8) = SQRT((Z(2)-Z(3))**2 + (Z(3)-Z(4))**2 + (Z(4)-Z(2))**2 + 1 6.*(Z(5)**2 + Z(6)**2 + Z(7)**2)) / 3. Z(9) = -(Z(2)+Z(3)+Z(4)) / 3. GO TO 395 C C DUM1 - DUM9 C 170 I1 = 2 I2 = 10 I3 = 1 GO TO 105 C C TRIAAX C 180 I1 = 3 I2 = 11 I3 = 1 GO TO 105 C C TRAPAX C 190 I1 = 3 I2 = 47 I3 = 1 GO TO 105 C C TRIM6, TRPLT1, TRSHL C 200 IEND = 8 ISKIP= 8 IF (ELTYPE .NE. 73) GO TO 201 IEND = 4 ISKIP= 7 201 J2 = -5 IJ = 0 202 IJ = IJ + 1 J2 = J2 + ISKIP J4 = J2 + 2 I1 = J2 I2 = J4 I3 = 1 ASSIGN 205 TO IRET GO TO 390 205 SS = .5*(Z(J2)+Z(J2+1)) ST = Z(J2) - Z(J2+1) SQ = SQRT(.25*ST**2 + Z(J4)**2) Z(J4+2) = SS + SQ Z(J4+3) = SS - SQ Z(J4+4) = SQ SD = 2.*Z(J4) IF (ABS(SD).LT.1.E-15 .AND. ABS(ST).LT.1.E-15) GO TO 206 Z(J4+1) = ATAN2(SD,ST) * 28.6478898 GO TO 207 206 Z(J4+1) = 0. 207 IF (IJ .LT. IEND) GO TO 202 GO TO 395 C C IS2D8 C 210 IJ = 0 J2 = 1 211 IJ = IJ + 1 J2 = J2 + 5 J4 = J2 + 2 I1 = J2 I2 = J4 I3 = 1 ASSIGN 215 TO IRET GO TO 390 215 IF (IJ .LT. 8) GO TO 211 GO TO 395 C C IHEX1,2,3 C 220 I1 = 3 I2 = 4 I3 = 1 ASSIGN 221 TO IRET GO TO 390 221 I1 = 11 IF (ELTYPE. EQ. 67) I1 = 12 C IHEX3 I2 = I1+1 ASSIGN 222 TO IRET GO TO 390 222 I1 = I1 + 6 I2 = I1 + 1 ASSIGN 223 TO IRET GO TO 390 C C COMPUTE PRINCIPAL STRESSES C 223 SIG(1) = Z( 3) SIG(2) = Z(11) SIG(3) = Z(17) SIG(4) = Z( 4) SIG(5) = Z(12) SIG(6) = Z(18) IF (ELTYPE .NE. 67) GO TO 224 C IHEX3 SIG(2) = Z(12) SIG(3) = Z(18) SIG(5) = Z(13) SIG(6) = Z(19) 224 CONTINUE C***** C SOLVE CUBIC EQUATION FOR PRINCIPAL STRESSES C***** C C S**3 + P*S**2 + Q*S + R = 0.0 C C REF. -- CRC STANDARD MATH TABLES 14TH ED., PP. 392,3 C RM = 0.0 DO 262 I = 1,6 IF (ABS(SIG(I)) .GT. RM) RM = ABS(SIG(I)) 262 CONTINUE IF (RM .LE. 0.0) GO TO 267 THRESH = 1.0E-5 264 DO 263 I = 1,6 IF (ABS(SIG(I)/RM) .LT. THRESH) SIG(I) = 0.0 263 CONTINUE RX = SX/RM RY = SY/RM RZ = SZ/RM RXY= SXY/RM RYZ= SYZ/RM RZX= SZX/RM P =-RX - RY - RZ Q = RX*RY + RY*RZ + RZ*RX - RXY**2 - RYZ**2 - RZX**2 R =-(RX*RY*RZ +2.0*RXY*RYZ*RZX -RX*RYZ**2 -RY*RZX**2 -RZ*RXY**2) A = (3.0*Q - P**2)/3.0 B = (2.0*P**3 - 9.0*P*Q + 27.0*R)/27.0 X =-A**3/27.0 IF (X .GT. 0.0) GO TO 270 C C CHECK FOR IMAGINARY ROOTS C IF (ABS(X) .GT. RM*1.0E-6) GO TO 265 C C CHECK FOR 3 EQUAL ROOTS C IF (ABS(B) .GT. 1.0E-6) GO TO 265 X = 0.0 PHI= 0.0 GO TO 275 265 THRESH = 10.0*THRESH IF (THRESH .LT. 1.1E-3) GO TO 264 267 SA = 0.0 SB = 0.0 SC = 0.0 GO TO 280 270 COSPHI =-(B/2.0)/SQRT(X) IF (ABS(COSPHI) .GT. 1.0) GO TO 265 PHI= ACOS(COSPHI) X = 2.0*SQRT(-A/3.0) 275 SA = (X*COS(PHI/3.0)-P/3.0)*RM SB = (X*COS(PHI/3.0+120.0*DTOR)-P/3.0)*RM SC = (X*COS(PHI/3.0+240.0*DTOR)-P/3.0)*RM RM = 0.0 DO 276 I = 1,3 IF (ABS(SIGP(I)) .GT. RM) RM = ABS(SIGP(I)) 276 CONTINUE DO 277 I = 1,3 IF (ABS(SIGP(I)/RM) .LT. 1.0E-5) SIGP(I) = 0.0 277 CONTINUE C***** C COMPUTE MEAN STRESS OR PRESSURE C***** 280 SN =-(SA+SB+SC)/3.0 C***** C COMPUTE OCTAHEDRAL SHEAR STRESS C***** SO = SQRT(((SA+SN)**2 + (SB+SN)**2 + (SC+SN)**2)/3.0) C***** C COMPUTE DIRECTION COSINES OF THE PRINCIPAL PLANES C***** RM = 1.0E-6 DO 600 I = 1,3 IF (SIGP(I) .EQ. 0.0) GO TO 580 SMAT(1,1) = 1.0 - SX/SIGP(I) SMAT(2,1) =-SXY/SIGP(I) SMAT(3,1) =-SZX/SIGP(I) SMAT(1,2) = SMAT(2,1) SMAT(2,2) = 1.0 - SY/SIGP(I) SMAT(3,2) =-SYZ/SIGP(I) SMAT(1,3) = SMAT(3,1) SMAT(2,3) = SMAT(3,2) SMAT(3,3) = 1.0 - SZ/SIGP(I) CALL SAXB (SMAT(1,1),SMAT(1,2),DCOS(1,I)) RX = SADOTB(DCOS(1,I),DCOS(1,I)) J = 1 CALL SAXB (SMAT(1,2),SMAT(1,3),DCOS(1,I)) RY = SADOTB(DCOS(1,I),DCOS(1,I)) IF (RY .GT. RX) J = 2 CALL SAXB (SMAT(1,3),SMAT(1,1),DCOS(1,I)) RZ = SADOTB(DCOS(1,I),DCOS(1,I)) IF (RZ.GT.RY .AND. RZ.GT.RX) J = 3 P = SMAT(1,J) Q = SMAT(2,J) R = SMAT(3,J) IF (J-2) 450,460,470 450 J = 2 GO TO 480 460 J = 3 GO TO 480 470 J = 1 480 S = SMAT(1,J) T = SMAT(2,J) V = SMAT(3,J) IF (ABS(Q) .LE. RM) GO TO 500 RX = V - T*R/Q IF (ABS(RX) .LE. RM) GO TO 490 RZ =-(S - T*P/Q)/RX RY =-(P + R*RZ)/Q 485 X = 1.0 + RZ*RZ + RY*RY DCOS(1,I) = 1.0/SQRT(X) DCOS(2,I) = RY*DCOS(1,I) DCOS(3,I) = RZ*DCOS(1,I) GO TO 600 490 RX = S - T*P/Q IF (ABS(RX) .LE. RM) GO TO 580 RY =-R/Q X = 1.0 + RY*RY DCOS(1,I) = 0.0 DCOS(3,I) = 1.0/SQRT(X) DCOS(2,I) = RY*DCOS(3,I) GO TO 600 500 IF (ABS(R) .LE. RM) GO TO 520 RZ = -P/R IF (ABS(T) .LE. RM) GO TO 510 RY =-(S - V*P/R)/T GO TO 485 510 IF (ABS(S-V*P/R) .LE. RM) GO TO 580 DCOS(1,I) = 0.0 DCOS(2,I) = 1.0 DCOS(3,I) = 0.0 GO TO 600 520 IF (ABS(P) .LE. RM) GO TO 580 IF (ABS(V) .LE. RM) GO TO 530 RZ =-T/V X = 1.0 + RZ*RZ DCOS(1,I) = 0.0 DCOS(2,I) = 1.0/SQRT(X) DCOS(3,I) = RZ*DCOS(2,I) GO TO 600 530 IF (ABS(T) .LE. RM) GO TO 580 DCOS(1,I) = 0.0 DCOS(2,I) = 0.0 DCOS(3,I) = 1.0 GO TO 600 580 DCOS(1,I) = 0.0 DCOS(2,I) = 0.0 DCOS(3,I) = 0.0 600 CONTINUE IPTS = 0 IF (ELTYPE .EQ. 67) IPTS = 1 C IHEX3 Z(5) = SA Z(9) = SN Z(10)= SO Z(IPTS+13) = SB Z(IPTS+19) = SC DO 610 I = 1,3 Z( 5+I) = DCOS(1,I) Z(IPTS+13+I) = DCOS(2,I) Z(IPTS+19+I) = DCOS(3,I) 610 CONTINUE GO TO 395 C C PERFORM NRL SUMS C 390 DO 393 I = I1,I2,I3 SUM = 0. RMAX = 0. DO 392 J = 1,NMODES ISUB = NWDS*(J-1) + I SUM = SUM + Z(ISUB)**2 IF (ABS(Z(ISUB)) .GT. RMAX) RMAX = ABS(Z(ISUB)) 392 CONTINUE IF (SQRSS .EQ. 1) RMAX = 0. SUM = SUM - RMAX**2 SUM = RMAX + SQRT(SUM) Z(I)= SUM 393 CONTINUE C GO TO IRET, (55,65,66,75,85,115,116,165,205,215,221,222,223,395) C C WRITE NRL SUMS TO APPROPRIATE SCRATCH FILE C 395 IZ(1) = I5 CALL WRITE (ISCR,Z,NWDS,0) C 400 CONTINUE C C DONE WITH THIS ELEMENT. SINCE WE ARE WRITING IN SORT1, EOR IS C NEEDED ON SCRATCH FILE ONLY IF ELEMENT TYPE CHANGES. THIS WILL BE C CHECKED ABOVE. SKIP EOR ON OES2 AND GO BACK. C FILE = IFIL CALL FWDREC (*1002,IFIL) GO TO 30 C C EOF ON OES2. WRITE EOR ON SCRATCH FILE AND COPY THEM TO OUTPUT C DATA BLOCK. C 410 CALL CLOSE (IFIL,1) C DO 415 I = 2,7 415 MCB(I) = 1 DO 420 I = 1,NSHOCK CALL WRITE (SCR(I),0,0,1) CALL CLOSE (SCR(I),1) MCB(1) = SCR(I) CALL WRTTRL (MCB) 420 CONTINUE C LCORE = BUF2 - 1 CALL GOPEN (OFIL,Z(BUF1),1) DO 700 I = 1,NSHOCK CALL GOPEN (SCR(I),Z(BUF2),0) C 430 CALL READ (*690,*440,SCR(I),Z,LCORE,0,IWORDS) CALL WRITE (OFIL,Z,LCORE,0) GO TO 430 C C EOR C 440 CALL WRITE (OFIL,Z,IWORDS,1) GO TO 430 C C EOF C 690 CALL CLOSE (SCR(I),1) C 700 CONTINUE C CALL CLOSE (OFIL,1) MCB(1) = OFIL CALL WRTTRL (MCB) C C GO BACK FOR FORCES C 710 IF (IFIL .EQ. OEF2) RETURN IFIL = OEF2 OFIL = NRLFOR GO TO 15 C 1002 N = -2 GO TO 1010 1003 N = -3 GO TO 1010 1008 N = -8 FILE = 0 1010 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/nsinfo.f ================================================ SUBROUTINE NSINFO (JUMP) C C THIS ROUTINE READS AND PROCESSES DATA IN THE NASINFO FILE C C JUMP = 2, NSINFO IS CALLED BY NASCAR TO OPEN NASINFO FILE AND C PROCESS THE SYSTEM PRESET PARAMETERS IN THE 2ND SECTION C OF THE FILE, AND THE BCD WORDS (USED ONLY BY NUMTYP C SUBROUTINE) IN THE 3RD SECTION C JUMP = 3, NSINFO IS CALLED BY TTLPGE TO PROCESS THE INSTALLATION- C CENTER-TO-USER MESSAGES STORED IN THE 4TH SECTION OF C THE NASINFO FILE C JUMP = 4, NSINFO IS CALLED BY XCSA TO ECHO DIAG 48 MESSAGE STORED C IN THE 5TH SECITON OF THE NASINFO FILE. C C SINCE DIAG48 MAY NOT BE CALLED, NASINFO FILE IS CLOSED BY XCSA C C WRITTEN BY G.CHAN/UNISYS 6/1990 C IMPLICIT INTEGER (A-Z) CWKBR 8/94 SUN INTEGER NAME(2),NTAB(5),CARDX(4),CARD(20),DIAG48(4) INTEGER NAME(2),CARDX(4),CARD(20),DIAG48(4) REAL TIME CWKBR CHARACTER*167 IFILE CHARACTER*144 IFILE CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /MACHIN/ MACH COMMON /SYSTEM/ SYS(100) COMMON /NTIME / NT,TIME(16) COMMON /OUTPUT/ DUM(64),PGHDG3(32) COMMON /NUMTPX/ NBCD,BCD(1) COMMON /BLANK / IBLNK(60) EQUIVALENCE (CARDX(1),CARD(1)) EQUIVALENCE (SYS(1),SYSBUF), (SYS( 2),NOUT), (SYS( 9),NLPP ), 1 (SYS(14),MXLNS), (SYS(19),EHCO), (SYS(31),HICORE), 2 (SYS(35),LPRUS), (SYS(37),LU ), (SYS(36),NPRUS ), 3 (SYS(20),PLTOP), (SYS(92),DICT), (SYS(76),NOSBE ), 4 (SYS(77),BNDIT), (SYS(91),LPCH) DATA TTPG / 0 / CWKBR 8/94 SUN DATA EQU , R , S , BNK , EQUALS , NAME / CWKBR 8/94 SUN1 1H= , 1HR, 1HS, 4H , 4H==== , 4HNSIN,2HFO / DATA EQU , S , BNK , EQUALS , NAME / 1 1H= , 1HS, 4H , 4H==== , 4HNSIN,2HFO / DATA RELSE , TPG, POP, TIM, MXL, BSZ , S3S ,SKP3 / 1 4HELEA, 3HTPG,3HPOP,3HTIM,3HMXL, 3HBSZ , 3HS3S ,0 / DATA LPP , HIC, BND, ECH, NOS, PRU, NPR, PCH, END / 1 3HLPP , 3HHIC,3HBND,3HECH,3HNOS, 3HPRU,3HNPR,3HPCH,3HEND / DATA S88 , S89, S90, S92, S94, S96, S97, S98, S99 / 1 3HS88 , 3HS89,3HS90,3HS92,3HS94, 3HS96,3HS97,3HS98,3HS99 / DATA DIAG48 , DD ,DIC ,COD ,KEY / 1 4H D I, 4H A G, 4H 4, 2H 8 , 3H$. ,3HDIC,3HCOD,3HKEY / C GO TO (550,200,350,400), JUMP C C JUMP = 2 C ======== C C OPEN NASINFO FILE, AND SET LU, THE 37TH WORD OF /SYSTEM/ C C CURRENTLY 'NASINFO' IS USED FOR ALL MACHINES OF TYPE 5 AND HIGHER C 200 LU = 99 CALL NASOPN (*280, LU, IFILE) C C SEARCH FOR FIRST EQUAL-LINE C 210 READ (LU,220,ERR=275,END=275) CARDX 220 FORMAT (20A4) IF (CARD(1).NE.EQUALS .AND. CARD(2).NE.EQUALS) GO TO 210 C C READ AND PROCESS THE 2ND SECTION OF NASINFO FILE C 230 READ (LU,235,END=500) SYMBOL,EQ,VALUE 235 FORMAT (A4,A1,I7) IF (SYMBOL .EQ. BNK) GO TO 230 IF (EQ .NE. EQU) GO TO 520 IF (SYMBOL .EQ. TIM) GO TO 250 IF (SYMBOL .EQ. END) GO TO 290 IF (VALUE .EQ. -99) GO TO 230 IF (SYMBOL .EQ. S3S) GO TO 240 IF (SYMBOL .EQ. BSZ) SYSBUF = VALUE IF (SYMBOL .EQ. LPP) NLPP = VALUE IF (SYMBOL .EQ. HIC) HICORE = VALUE IF (SYMBOL .EQ. MXL) MXLNS = VALUE IF (SYMBOL .EQ. TPG) TTPG = VALUE IF (SYMBOL .EQ. ECH) ECHO = VALUE IF (SYMBOL .EQ. PCH) LPCH = VALUE IF (SYMBOL .EQ. DIC) DICT = VALUE IF (SYMBOL .EQ. BND) BNDIT = VALUE IF (SYMBOL .EQ. POP) PLTOP = VALUE IF (SYMBOL .EQ. PRU) LPRUS = VALUE IF (SYMBOL .EQ. NPR) NPRUS = VALUE IF (SYMBOL .EQ. NOS) NOSBE = VALUE IF (SYMBOL .EQ. COD) CODE = VALUE IF (SYMBOL .EQ. KEY) KEY = VALUE SYMB1 = KHRFN1(BNK,1,SYMBOL,1) IF (SYMB1 .NE. S) GO TO 230 IF (SYMBOL .EQ. S88) SYS(88) = VALUE IF (SYMBOL .EQ. S89) SYS(89) = VALUE IF (SYMBOL .EQ. S90) SYS(90) = VALUE IF (SYMBOL .EQ. S92) SYS(92) = VALUE IF (SYMBOL .EQ. S94) SYS(94) = VALUE IF (SYMBOL .EQ. S96) SYS(96) = VALUE IF (SYMBOL .EQ. S97) SYS(97) = VALUE IF (SYMBOL .EQ. S98) SYS(98) = VALUE IF (SYMBOL .EQ. S99) SYS(99) = VALUE GO TO 230 C C SKIP JUMP 3 PRINTOUT C 240 SKP3 = 1 GO TO 230 C C READ IN 16 GINO TIME CONSTANTS (NT=16) C 250 IF (VALUE .NE. NT) GO TO 270 READ (LU,260,END=500) TIME 260 FORMAT (12X,8F7.2, /12X,8F7.2) GO TO 230 270 READ (LU,235,END=500) SYMBOL READ (LU,235,END=500) SYMBOL GO TO 230 C C NASINFO DOES NOT EXIST (or IS WRITE-PROTECTED), SET LU TO ZERO C 275 CLOSE (UNIT=LU) CALL MESAGE (2,0,NAME) 280 WRITE (NOUT, 285) IFILE 285 FORMAT ('0*** USER WARNING MESSAGE, UNABLE TO OPEN ', * 'THE FOLLOWING NASINFO FILE -- '// CWKBR* 1X, A167/) * 1X, A44/) LU = 0 GO TO 550 C C READ PASS THE 2ND EQUAL-LINE. CONTINUE INTO 3RD SECTION C 290 READ (LU,220,END=500) CARDX IF (CARD(1).NE.EQUALS .AND. CARD(2).NE.EQUALS) GO TO 290 C C C THIS 3RD SECTION CONTAINS BCD WORDS WHICH ARE REALLY REAL NUMBERS. C (THE BINARY REPRESENTATIONS OF SOME REAL NUMBERS AND THEIR C CORRESPONDING BCD WORDS ARE EXACTLY THE SAME. SUBROUTINE NUMTYP C MAY IDENTIFY THEM AS TYPE BCD. ANY WORD ON THE BCD LIST WILL BE C REVERTED BACK TO AS TYPE REAL. THE LIST IS MACHINE DEPENDENT) C C SKIP FIRST 5 COMMENT LINES C READ (LU,220,END=500) READ (LU,220) READ (LU,220) READ (LU,220) READ (LU,220) C 300 READ (LU,305,END=500) MACHX,NBCD 305 FORMAT (I2,I3) IF (MACHX .EQ. MACH) GO TO 320 IF (NBCD .EQ. 0) GO TO 300 DO 310 I = 1,NBCD,19 READ (LU,325) 310 CONTINUE GO TO 300 320 IF (NBCD .EQ. 0) GO TO 340 JB = 1 DO 330 I = 1,NBCD,19 JE = JB + 18 READ (LU,325) (BCD(J),J=JB,JE) 325 FORMAT (5X,19(A4,1X)) 330 CONTINUE C C READ PASS THE 3RD EQUAL-LINE, THEN RETURN C 340 READ (LU,220,END=500) CARDX IF (CARD(1).NE.EQUALS .AND. CARD(2).NE.EQUALS) GO TO 340 IF (TTPG .NE. 0) JUMP = TTPG GO TO 550 C C JUMP = 3 C ======== C C READ AND ECHO OUT INSTALLATION-CENTER-TO-USER MESSAGES, SAVED IN C THE 4TH SECTION OF NASINFO FILE C TERMINATE MESSAGES BY THE LAST EQUAL-LINE. C C IN THIS MESSAGE SECTION ONLY, SKIP INPUT LINE IF A '$. ' SYMBOL C IS IN FIRST 4 COLUMNS. C 350 IF (LU.EQ.0 .OR. SKP3.EQ.1) GO TO 550 CALL PAGE1 360 READ (LU,220,END=500) CARD IF (CARD(1) .EQ. DD) GO TO 360 IF (CARD(1) .NE. EQUALS) GO TO 380 IF (CARD(2) .EQ. EQUALS) GO TO 550 CALL PAGE1 WRITE (NOUT,370) 370 FORMAT (//) GO TO 360 380 WRITE (NOUT,390) CARD 390 FORMAT (25X,20A4) GO TO 360 C C JUMP = 4 C ======== C C PROCESS DIAG48 MESSAGE, SAVED IN THE 5TH SECTION OF NASINFO FILE C 400 CALL SSWTCH (20,L20) IF (LU .EQ. 0) GO TO 480 DO 410 I = 10,20 410 PGHDG3(I) = BNK PGHDG3(6) = DIAG48(1) PGHDG3(7) = DIAG48(2) PGHDG3(8) = DIAG48(3) PGHDG3(9) = DIAG48(4) LINE = NLPP + 1 COUNT = 0 C C READ AND PRINT RELEASE NEWS C PRINT LAST TWO YEARS OF NEWS ONLY, IF DIAG 20 IS ON C (MECHANISM - GEAR TO THE 'nn RELEASE' LINE AND '========' LINES) C ONE = 1 IF (L20 .EQ. 1) ONE = 0 420 READ (LU,220,END=540) CARD IF (CARD(1).EQ.EQUALS .AND. CARD(2).EQ.EQUALS) GO TO 470 IF (ONE .EQ. -1) GO TO 440 IF (CARD(2).NE.RELSE .OR. CARD(4).NE. BNK) GO TO 440 COUNT = COUNT + ONE IF (COUNT .LE. 2) GO TO 440 430 READ (LU,220,END=540) CARDX IF (CARD(1).NE.EQUALS .OR. CARD(2).NE.EQUALS) GO TO 430 GO TO 470 440 IF (LINE .LT. NLPP) GO TO 460 CALL PAGE1 IF (LINE .EQ. NLPP) GO TO 450 LINE = 3 GO TO 460 450 WRITE (NOUT,370) LINE = 5 460 LINE = LINE + 1 WRITE (NOUT,390) CARD GO TO 420 C C READ AND PRINT THE REST OF SECTION 5 C 470 IF (ONE .EQ. -1) GO TO 540 ONE = -1 LINE = NLPP + 1 GO TO 420 C 480 WRITE (NOUT,490) UIM 490 FORMAT (A29,', DIAG48 MESSAGES ARE NOT AVAILABLE DUE TO ABSENCE ', 1 'OF THE NASINFO FILE') GO TO 540 C C ERROR C 500 WRITE (NOUT,510) SFM 510 FORMAT (A25,' 3002, EOF ENCOUNTERED WHILE READING NASINFO FILE') STOP 'JOB TERMINATED IN SUBROUTINE NSINFO' 520 WRITE (NOUT,530) SYMBOL,EQ,VALUE 530 FORMAT ('0*** ERROR IN NASINFO FILE - LINE - ',A4,A1,I7) GO TO 230 C 540 IF (L20 .EQ. 0) GO TO 550 CLOSE (UNIT=LU) CALL PEXIT 550 RETURN END ================================================ FILE: mis/number.f ================================================ SUBROUTINE NUMBER (SND,NUM,NDSTK,LVLS2,NDEG,RENUM,LVLST,LSTPT, 1 NFLG,IBW2,IPF2,IPFA,ISDIR,STKA,STKB,STKC,STKD,NU,IDIM) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C NUMBER PRODUCES THE NUMBERING OF THE GRAPH FOR MIN BANDWIDTH C C SND- ON INPUT THE NODE TO BEGIN NUMBERING ON C NUM- ON INPUT AND OUTPUT, THE NEXT AVAILABLE NUMBER C LVLS2- THE LEVEL STRUCTURE TO BE USED IN NUMBERING C RENUM- THE ARRAY USED TO STORE THE NEW NUMBERING C LVLST- ON OUTPUT CONTAINS LEVEL STRUCTURE C LSTPT(I)- ON OUTPUT, INDEX INTO LVLST TO FIRST NODE IN ITH LVL C LSTPT(I+1) - LSTPT(I) = NUMBER OF NODES IN ITH LVL C NFLG- =+1 IF SND IS FORWARD END OF PSEUDO-DIAM C =-1 IF SND IS REVERSE END OF PSEUDO-DIAM C IBW2- BANDWIDTH OF NEW NUMBERING COMPUTED BY NUMBER C IPF2- PROFILE OF NEW NUMBERING COMPUTED BY NUMBER C IBW2 AND IPF2 HERE DO NOT INCLUDE DIAGONAL TERMS. C IPFA- WORKING STORAGE USED TO COMPUTE PROFILE AND BANDWIDTH C ISDIR- INDICATES STEP DIRECTION USED IN NUMBERING(+1 OR -1) C STACKS HAVE DIMENSION OF IDIM C NU- WORK SPACE FOR BUNPAK C INTEGER SND, STKA, STKB, STKC, STKD, 1 XA, XB, XC, XD, END, 2 CX, RENUM, TEST DIMENSION STKA(1), STKB(1), STKC(1), STKD(1), LVLS2(1), 1 NDEG(1), RENUM(1), LVLST(1), LSTPT(1), NU(1), 2 IPFA(1), NDSTK(1) COMMON /BANDB / DUM3(3), NGRID COMMON /BANDG / N, IDPTH, IDEG COMMON /BANDS / DUMS(4), MAXGRD, MAXDEG COMMON /SYSTEM/ IBUF, NOUT C C SET UP LVLST AND LSTPT FROM LVLS2 C DO 10 I=1,N 10 IPFA(I)=0 NSTPT=1 DO 15 I=1,IDPTH LSTPT(I)=NSTPT DO 15 J=1,N IF (LVLS2(J).NE.I) GO TO 15 LVLST(NSTPT)=J NSTPT=NSTPT+1 15 CONTINUE LSTPT(IDPTH+1)=NSTPT C C THIS ROUTINE USES FOUR STACKS, A,B,C,AND D, WITH POINTERS C XA,XB,XC, AND XD. CX IS A SPECIAL POINTER INTO STKC WHICH C INDICATES THE PARTICULAR NODE BEING PROCESSED. C LVLN KEEPS TRACK OF THE LEVEL WE ARE WORKING AT. C INITIALLY STKC CONTAINS ONLY THE INITIAL NODE, SND. C LVLN=0 IF (NFLG.LT.0) LVLN=IDPTH+1 XC=1 STKC(XC)=SND 20 CX=1 XD=0 LVLN=LVLN+NFLG LST=LSTPT(LVLN) LND=LSTPT(LVLN+1)-1 C C BEGIN PROCESSING NODE STKC(CX) C 25 IPRO=STKC(CX) RENUM(IPRO)=NUM NUM=NUM+ISDIR END=NDEG(IPRO) XA=0 XB=0 C C CHECK ALL ADJACENT NODES C CALL BUNPAK(NDSTK,IPRO,END,NU) DO 40 I=1,END TEST =NU(I) INX=RENUM(TEST) C C ONLY NODES NOT NUMBERED OR ALREADY ON A STACK ARE ADDED C IF (INX.EQ.0) GO TO 30 IF (INX.LT.0) GO TO 40 C C DO PRELIMINARY BANDWIDTH AND PROFILE CALCULATIONS C NBW=(RENUM(IPRO)-INX)*ISDIR IF (ISDIR.GT.0) INX=RENUM(IPRO) IF (IPFA(INX).LT.NBW) IPFA(INX)=NBW GO TO 40 30 RENUM(TEST)=-1 C C PUT NODES ON SAME LEVEL ON STKA, ALL OTHERS ON STKB C IF (LVLS2(TEST).EQ.LVLS2(IPRO)) GO TO 35 XB=XB+1 IF (XB.GT.IDIM) GO TO 100 STKB(XB)=TEST GO TO 40 35 XA=XA+1 IF (XA.GT.IDIM) GO TO 100 STKA(XA)=TEST 40 CONTINUE C C SORT STKA AND STKB INTO INCREASING DEGREE AND ADD STKA TO STKC C AND STKB TO STKD C IF (XA.EQ.0) GO TO 50 IF (XA.EQ.1) GO TO 45 CALL SORTDG (STKC,STKA,XC,XA,NDEG) GO TO 50 45 XC=XC+1 IF (XC.GT.IDIM) GO TO 100 STKC(XC)=STKA(XA) 50 IF (XB.EQ.0) GO TO 65 IF (XB.EQ.1) GO TO 60 CALL SORTDG (STKD,STKB,XD,XB,NDEG) GO TO 65 60 XD=XD+1 IF (XD.GT.IDIM) GO TO 100 STKD(XD)=STKB(XB) C C BE SURE TO PROCESS ALL NODES IN STKC C 65 CX=CX+1 IF (XC.GE.CX) GO TO 25 C C WHEN STKC IS EXHAUSTED LOOK FOR MIN DEGREE NODE IN SAME LEVEL C WHICH HAS NOT BEEN PROCESSED C MAX=IDEG+1 SND=N+1 DO 70 I=LST,LND TEST=LVLST(I) IF (RENUM(TEST).NE. 0) GO TO 70 IF (NDEG(TEST).GE.MAX) GO TO 70 RENUM(SND)=0 RENUM(TEST)=-1 MAX=NDEG(TEST) SND=TEST 70 CONTINUE IF (SND.EQ.N+1) GO TO 75 XC=XC+1 IF (XC.GT.IDIM) GO TO 100 STKC(XC)=SND GO TO 25 C C IF STKD IS EMPTY WE ARE DONE, OTHERWISE COPY STKD ONTO STKC C AND BEGIN PROCESSING NEW STKC C 75 IF (XD.EQ.0) GO TO 90 DO 80 I=1,XD 80 STKC(I)=STKD(I) XC=XD GO TO 20 C C DO FINAL BANDWIDTH AND PROFILE CALCULATIONS C 90 DO 95 I=1,N IF (IPFA(I).GT.IBW2) IBW2=IPFA(I) IPF2=IPF2+IPFA(I) 95 CONTINUE RETURN C C DIMENSION EXCEEDED . . . STOP JOB. C 100 NGRID=-3 RETURN END ================================================ FILE: mis/odum.f ================================================ SUBROUTINE ODUM (I1,IX,ITYPE,NMULT,NLINES,ID) C OUTPUT DUMMY ROUTINE IF (IX+IX+ITYPE .EQ. NMULT) NLINES=ID RETURN END ================================================ FILE: mis/odumx.f ================================================ SUBROUTINE ODUMX (Z) C ENTRY ODUM1 (Z) GO TO 10 C ENTRY ODUM2 (Z) GO TO 10 C ENTRY ODUM3 (Z) GO TO 10 C ENTRY ODUM4 (Z) GO TO 10 C ENTRY ODUM5 (Z) GO TO 10 C ENTRY ODUM6 (Z) GO TO 10 C ENTRY ODUM7 (Z) GO TO 10 C ENTRY ODUM8 (Z) GO TO 10 C ENTRY ODUM9 (Z) C 10 NOTUSE = Z RETURN END ================================================ FILE: mis/ofcomp.f ================================================ SUBROUTINE OFCOMP (*,FILE,TYPE,ELTYP,IAPP,HEADNG,PNCHED,FORM) C C OFP ROUTINE TO HANDLE PRINT AND PUNCH OF LAYERED COMPOSITE C ELEMENT STRESSES AND FORCES. CURRENTLY, THIS INVOLVES ONLY C THE CQUAD4 AND CTRIA3 ELEMENTS. C C FILE = OUTPUT FILE UNDER PROCESSING C TYPE = TYPE OF DATA- REAL , SORT 1 = 1 C COMPLEX, SORT 1 = 2 C REAL , SORT 2 = 3 C COMPLEX, SORT 2 = 4 C ELTYP = ELEMENT TYPE- QUAD4 = 64 C TRIA3 = 83 C IAPP = SOLUTION TYPE C HEADNG = INDICATES PRINT HEADINGS ARE DONE FOR A PAGE C PNCHED = INDICATES PUNCH HEADINGS ARE DONE C FORM = DATA TYPE- STRESSES = 22 C FORCES = 23 C STRAIN = 21 C EXTERNAL ANDF LOGICAL HEAT,PNCHED,CMPXDT,SORT1,SORT2,HEADNG,MAGPHA, 1 QUAD4,TRIA3,STRESS,FORCE,STRN INTEGER IST(86),FILE,FLAG,NOUT,PUNCH,BUF(86),IBUF(3), 1 DEVICE,ANDF,HEAD,TYPE,ELTYP,FORM,STATIC,FREQ, 2 CEIG,ITITLE(32),ISUBTL(32),LABEL(32),ELEMID, 3 FAILTH,HILL(2),HOFFMN(2),TSAIWU(2),STRESF(2), 4 STRAIN(2),IFAIL(2),BLNK,ASTR,SUBST(3), 5 ID(50),OF(58) C INTEGER REIG,TRANS,BK1,ELEC REAL RST(86),RID(50),BUFR(86),RBUF(3) C REAL HARMON,PANGLE,BUFF(1) CHARACTER*5 T3Q4,T3,Q4 COMMON /BLANK / ICARD C COMMON /ZZOFPX/ L1,L2,L3,L4,L5,ID(50),HARMON,PANGLE,BUFF(1) COMMON /ZZZZZZ/ CORE(1) COMMON /OUTPUT/ HEAD(96) COMMON /SYSTEM/ KSYSTM(100) EQUIVALENCE (IST(1) ,RST(1) ), (ID(1) ,RID(1) ), 1 (BUF(1) ,BUFR(1)), (IBUF(1) ,RBUF(1) ), 2 (IFAIL(1) ,FAILMX ), (IFAIL(2) ,MAXFLG ), 3 (KSYSTM(2) ,NOUT ), (KSYSTM(9) ,MAXLNS ), 4 (KSYSTM(12),LINE ), (KSYSTM(33),IFLG ), 5 (KSYSTM(56),ITHERM ), (KSYSTM(69),ISUBS ), 6 (KSYSTM(91),PUNCH ), (HEAD( 1) ,ITITLE(1)), 7 (HEAD(65) ,LABEL(1)), (HEAD(33) ,ISUBTL(1)), 8 (L1, OF(1) ,CORE(1)), (L2,OF(2)),(L3,OF(3)), 9 (ID(1) ,OF (6)), (L4,OF(4)),(L5,OF(5)) C EQUIVALENCE (HARMON ,OF (56)), (PANGLE ,OF (57)), C 1 (BUFF(1) ,OF (58)) C DATA STATIC,FREQ,CEIG / 1 , 5 , 9 / C DATA REIG,TRANS,BK1,ELEC / 2 , 6 , 8 , 11 / DATA HILL , HOFFMN, TSAIWU, STRESF / 1 4H H,4HILL ,4HHOFF,4HMAN ,4HTSAI,4H-WU ,4H STR,4HESS / DATA STRAIN /4H STR,4HAIN / DATA BLNK ,ASTR /4H ,4H * / DATA SUBST /4HSUBS,4HTRUC,4HTURE / DATA T3Q4, T3, Q4 /' ', 'TRIA3', 'QUAD4'/ C C INITIALIZE C CMPXDT = TYPE.EQ.2 .OR. TYPE.EQ.4 SORT1 = TYPE .LE. 2 SORT2 = TYPE .GT. 2 HEAT = ITHERM.EQ. 1 MAGPHA = ID(9).EQ.3 .AND. (IAPP.EQ.FREQ .OR. IAPP.EQ.CEIG) QUAD4 = ELTYP .EQ. 64 TRIA3 = ELTYP .EQ. 83 STRESS = FORM .EQ. 22 FORCE = FORM .EQ. 23 STRN = FORM .EQ. 21 IF (HEAT .OR. SORT2 .OR. CMPXDT) GO TO 1800 C C GET THE DEVICE CODE IF SORT=2, 1=PRINT 2=POST 4=PUNCH C IF (SORT1) GO TO 10 IDD = ID(5)/10 DEVICE = ID(5) - 10*IDD IDEVCE = DEVICE ID(5) = IDD ELEMID = IDD 10 CONTINUE C C GET THE NUMBER OF OUTPUT WORDS PER ELEMENT. C NWDS = ID(10) IF (NWDS .EQ. 0) GO TO 1800 IF (FORCE) GO TO 40 C C ******************** C ******* READ ******* C ******************** C 20 CALL READ (*1910,*1800,FILE,IST(1),3,0,FLAG) IF (SORT1) ELEMID = IST(1) IF (SORT2) TIME = RST(1) NLAYER = IST(2) FAILTH = IST(3) IPLY = 0 30 IPLY = IPLY + 1 IF (IPLY .GT. NLAYER) GO TO 20 C 40 CALL READ (*1910,*1900,FILE,IST(1),NWDS,0,FLAG) IF (STRESS .AND. IPLY.EQ.NLAYER) 1 CALL READ (*1910,*1910,FILE,IFAIL,2,0,FLAG) IF (FORCE) ELEMID = IST(1) C C GET THE DEVICE CODE IF SORT=1, 1=PRINT 2=POST 4=PUNCH C IF (SORT2) GO TO 100 IF (STRESS .AND. IPLY.GT.1) GO TO 100 ITEMP = ELEMID / 10 DEVICE = ELEMID - 10*ITEMP IDEVCE = DEVICE ELEMID = ITEMP C C ********************* C ******* PUNCH ******* C ********************* C 100 IF (DEVICE .LT. 4) GO TO 820 C C TAKE OUT INDEX FAILURE FLAGS FOR STRESSES C NUMWDS = NWDS IF (STRESS) NUMWDS = NUMWDS - 2 DO 110 II=1,NWDS 110 BUF(II) = IST(II) IF (FORCE) GO TO 120 BUF(6) = BUF(7) BUF(7) = BUF(8) BUF(8) = BUF(9) 120 CONTINUE C IF (PNCHED) GO TO 500 C C PUNCH HEADINGS - TITLE, SUBTITLE, AND LABEL C ICARD = ICARD + 1 WRITE (PUNCH,130) (ITITLE(J),J=1,15),ICARD ICARD = ICARD + 1 WRITE (PUNCH,140) (ISUBTL(J),J=1,15),ICARD ICARD = ICARD + 1 WRITE (PUNCH,150) ( LABEL(J),J=1,15),ICARD 130 FORMAT (10H$TITLE =,15A4,2X,I8) 140 FORMAT (10H$SUBTITLE=,15A4,2X,I8) 150 FORMAT (10H$LABEL =,15A4,2X,I8) C C IF SUBSTRUCTURE (PHASE2) EXTRACTED ALSO SUBS-NAME AND COMPONENT C IF (ISUBS .EQ. 0) GO TO 170 IF (ISUBTL(20).NE.SUBST(1) .OR. ISUBTL(21).NE.SUBST(2) .OR. 1 ISUBTL(22).NE.SUBST(3)) GO TO 170 ICARD = ICARD + 1 WRITE (PUNCH,160) (ISUBTL(J),J=20,26),ICARD ICARD = ICARD + 1 WRITE (PUNCH,160) ( LABEL(J),J=20,26),ICARD 160 FORMAT (1H$,7A4,43X,I8) C 170 ICARD = ICARD + 1 IF (STRESS) WRITE (PUNCH,190) ICARD IF (FORCE ) WRITE (PUNCH,180) ICARD 180 FORMAT (15H$ELEMENT FORCES,57X,I8) 190 FORMAT (17H$ELEMENT STRESSES,55X,I8) C C REAL, REAL/IMAGINARY, MAGNITUDE/PHASE C ICARD = ICARD + 1 IF (CMPXDT) GO TO 200 WRITE (PUNCH,220) ICARD GO TO 250 200 IF (MAGPHA) GO TO 210 WRITE (PUNCH,230) ICARD GO TO 250 210 WRITE (PUNCH,240) ICARD 220 FORMAT (12H$REAL OUTPUT,60X,I8) 230 FORMAT (22H$REAL-IMAGINARY OUTPUT,50X,I8) 240 FORMAT (23H$MAGNITUDE-PHASE OUTPUT,49X,I8) C C SUBCASE OR ELEMENT ID C 250 ICARD = ICARD + 1 IF (SORT2) GO TO 260 WRITE (PUNCH,280) ID(4),ICARD GO TO 270 260 WRITE (PUNCH,290) ELEMID,ICARD 270 CONTINUE 280 FORMAT (13H$SUBCASE ID =,I12,47X,I8) 290 FORMAT (13H$ELEMENT ID =,I10,49X,I8) C C PUNCH ELEMENT TYPE NUMBER, C IT IS SWITCHED TO MATCH THOSE OF POST PROCESSOR. C ICARD = ICARD + 1 IELTYP = ID(3) T3Q4 = T3 IF (IELTYP .EQ. 64) T3Q4 = Q4 WRITE (PUNCH,300) IELTYP,T3Q4,ICARD 300 FORMAT (15H$ELEMENT TYPE =,I12,4H (,A5,1H),37X,I8) C C EIGENVALUE, FREQUENCY, OR TIME C GO TO (480,400,480,480,440,450,480,400,400,480,480), IAPP C C PUNCH EIGENVALUE C 400 ICARD = ICARD + 1 IF (SORT1 .AND. CMPXDT) GO TO 410 WRITE (PUNCH,420) RID(6),ID(5),ICARD GO TO 480 410 WRITE (PUNCH,430) RID(6),RID(7),ID(5),ICARD GO TO 480 420 FORMAT (13H$EIGENVALUE =,E15.7,2X,6HMODE =,I6,30X,I8) 430 FORMAT (15H$EIGENVALUE = (,E15.7,1H,,E15.7,8H) MODE =,I6,12X,I8) C C FREQUENCY OR TIME C 440 IF (SORT2) GO TO 480 ICARD = ICARD + 1 WRITE (PUNCH,460) RID(5),ICARD GO TO 480 450 IF (SORT2) GO TO 480 ICARD = ICARD + 1 WRITE (PUNCH,470) RID(5),ICARD 460 FORMAT (12H$FREQUENCY =,E16.7,44X,I8) 470 FORMAT (7H$TIME =,E16.7,49X,I8) C 480 PNCHED = .TRUE. C C PUNCH HEADINGS COMPLETE C 500 ICARD = ICARD + 1 C C ELEMENT STRESSES, FIRST SUB-RECORD C IF (FORCE) GO TO 570 IF (IPLY .LE. 1) GO TO 520 WRITE (PUNCH,510) BUF(1),BUFR(2),BUFR(3),ICARD 510 FORMAT (6H-CONT-,12X,I10,8X,2(1P,E18.6),I8) GO TO 560 C 520 IF (SORT2 .AND. IAPP.NE.STATIC) GO TO 540 C C FIRST CARD BEGINS WITH AN INTEGER C WRITE (PUNCH,530) ELEMID,BUF(1),BUFR(2),BUFR(3),ICARD 530 FORMAT (I10,8X,I10,8X,2(1P,E18.6),I8) GO TO 560 C C FIRST CARD BEGINS WITH A REAL C 540 WRITE (PUNCH,550) TIME,BUF(1),BUFR(2),BUFR(3),ICARD 550 FORMAT (1P,E18.6,I10,8X,2(1P,E18.6),I8) 560 NWORD = 3 GO TO 620 C C ELEMENT FORCES, FIRST SUB-RECORD C 570 IF (SORT2 .AND. IAPP.NE.STATIC) GO TO 590 C C FIRST CARD BEGINS WITH AN INTEGER C WRITE (PUNCH,580) BUF(1),BUFR(2),BUFR(3),BUFR(4),ICARD 580 FORMAT (I10,8X,3(1P,E18.6),I8) GO TO 610 C C FIRST CARD BEGINS WITH A REAL C 590 WRITE (PUNCH,600) BUFR(1),BUFR(2),BUFR(3),BUFR(4),ICARD 600 FORMAT (4(1P,E18.6),I8) 610 NWORD = 4 C 620 LENGTH = 8 C C SUBSEQUENT SUB-RECORDS C 700 LEFT = NUMWDS - NWORD IF (LEFT .GT. 0) GO TO 710 IF (SORT1) GO TO 810 GO TO 820 C C PUNCH THE SUB-RECORDS C 710 IF (NWORD .GE. LENGTH) GO TO 700 ICARD = ICARD + 1 NWORD = NWORD + 3 JOUT = 3 IF (NWORD .LE. LENGTH) GO TO 720 NWORD = NWORD - 1 JOUT = 2 IF (NWORD .EQ. LENGTH) GO TO 720 NWORD = NWORD - 1 JOUT = 1 C 720 JJ = NWORD - JOUT + 1 DO 730 II = 1,JOUT IBUF(II) = BUF(JJ) 730 JJ = JJ + 1 GO TO (740,760,780), JOUT C C 1 WORD OUT C 740 WRITE (PUNCH,750) RBUF(1),ICARD 750 FORMAT (6H-CONT-,12X,1P,E18.6,36X,I8) GO TO 800 C C 2 WORDS OUT C 760 IF (IPLY .LT. NLAYER) WRITE (PUNCH,770) RBUF(1),RBUF(2),ICARD IF (IPLY .EQ. NLAYER) WRITE (PUNCH,775) RBUF(1),RBUF(2),RBUF(3), 1 ICARD 770 FORMAT (6H-CONT-,12X,1P,E18.6,0P,F18.4,18X,I8) 775 FORMAT (6H-CONT-,12X,1P,E18.6, 2(0P,F18.4),I8) GO TO 800 C C 3 WORDS OUT C 780 WRITE (PUNCH,790) RBUF(1),RBUF(2),RBUF(3),ICARD 790 FORMAT (6H-CONT-,12X,1P,E18.6,0P,F18.4,1P,E18.6,I8) 800 IF (JOUT .LT. 3) GO TO 700 GO TO 710 C C END OF PUNCH, SEE IF PRINT IS REQUESTED C 810 IDEVCE = DEVICE - 4 820 IF (ANDF(IDEVCE,1) .NE. 0) GO TO 900 IF (STRESS) GO TO 30 GO TO 40 C C ********************* C ******* PRINT ******* C ********************* C C WRITE TITLES IF HAVE NOT DONE SO YET C 900 ICHECK = 0 IF (LINE.LE.MAXLNS-2 .AND. HEADNG) GO TO 910 IFLG = 1 CALL PAGE1 HEADNG = .TRUE. ICHECK = 1 C C *** PRINT OF ELEMENT STRESSES *** C 910 IF (FORCE) GO TO 1500 C C BRANCH ON TYPE OF OUTPUT C GO TO (920,1400,1410,1420), TYPE C C *** REAL, SORT 1 *** C 920 IF (ICHECK .EQ. 0) GO TO 1200 GO TO (960,930,960,960,960,940,960,950,960,960,960), IAPP C 930 WRITE (NOUT,970) ID(5),RID(8),RID(6) GO TO 1010 940 WRITE (NOUT,980) RID(5) GO TO 1010 950 WRITE (NOUT,990) RID(6) GO TO 1010 960 WRITE (NOUT,1000) 970 FORMAT (6X,'MODE NUMBER = ',I4,26X,'FREQUENCY = ',1P,E13.6,26X, 1 'EIGENVALUE = ',1P,E13.6) 980 FORMAT (6X,6HTIME =,1P,E14.6) 990 FORMAT (6X,12HEIGENVALUE =,1P,E14.6) 1000 FORMAT (1H ) C 1010 CONTINUE IF (QUAD4) GO TO 1020 IF (TRIA3) GO TO 1030 GO TO 1050 1020 WRITE (NOUT,1070) GO TO 1050 1030 WRITE (NOUT,1080) GO TO 1050 1050 WRITE (NOUT,1100) WRITE (NOUT,1110) 1070 FORMAT (20X,'S T R E S S E S I N L A Y E R E D ', 1 'C O M P O S I T E E L E M E N T S ( Q U A D 4 )') 1080 FORMAT (20X,'S T R E S S E S I N L A Y E R E D ', 1 'C O M P O S I T E E L E M E N T S ( T R I A 3 )') 1100 FORMAT ('0 ELEMENT',3X,'PLY *STRESSES IN FIBER AND MATRIX', 1 ' DIRECTIONS* *DIRECT FIBER * *INTER-LAMINAR STRESS', 2 'ES* * SHEAR BOND * *MAXIMUM*') 1110 FORMAT (4X, 'ID', 6X, 'ID * NORMAL-1', 6X, 'NORMAL-2', 6X, 1 'SHEAR-12 * *FAILURE INDEX* *SHEAR-1Z',6X,'SHEAR-2Z*', 2 ' *FAILURE INDEX* * INDEX *',/) C C WRITE THE DATA C BUT FIRST, MODIFY THE FAILURE INDEX FLAGS FROM INTEGER TO BCD C 1200 IF (IST( 6) .EQ. 0) IST( 6) = BLNK IF (IST( 6) .EQ. 1) IST( 6) = ASTR IF (IST(10) .EQ. 0) IST(10) = BLNK IF (IST(10) .EQ. 1) IST(10) = ASTR C IF (IPLY .GT. 1) GO TO 1220 WRITE (NOUT,1210) ELEMID,IST(1),(RST(K),K=2,5),IST(6), 1 (RST(K),K=7,9),IST(10) 1210 FORMAT (1H0,I8,2X,I4,3(1P,E14.5),2X,0P,F10.3,A4,2(1P,E14.5), 1 0P,F10.3,A4) NLINES = 3 GO TO 1730 C 1220 WRITE (NOUT,1230) IST(1),(RST(K),K=2,5),IST(6), 1 (RST(K),K=7,9),IST(10) 1230 FORMAT (11X,I4,3(1P,E14.5),2X,0P,F10.3,A4,2(1P,E14.5),0P,F10.3,A4) NLINES = 1 IF (IPLY .LT. NLAYER) GO TO 1730 C C IF THE LAST LAYER, CHECK THE MAXIMUM FAILURE INDEX C NLINES = 2 IF (MAXFLG .EQ. 0) MAXFLG = BLNK IF (MAXFLG .EQ. 1) MAXFLG = ASTR IF (FAILTH .NE. 0) GO TO (1250,1260,1270,1280,1290), FAILTH FAILMX = 0.0 WRITE (NOUT,1240) FAILMX 1240 FORMAT (1H ,116X,0P,F10.3) GO TO 1730 1250 WRITE (NOUT,1300) HILL(1),HILL(2),FAILMX,MAXFLG GO TO 1730 1260 WRITE (NOUT,1300) HOFFMN(1),HOFFMN(2),FAILMX,MAXFLG GO TO 1730 1270 WRITE (NOUT,1300) TSAIWU(1),TSAIWU(2),FAILMX,MAXFLG GO TO 1730 1280 WRITE (NOUT,1300) STRESF(1),STRESF(2),FAILMX,MAXFLG GO TO 1730 1290 WRITE (NOUT,1300) STRAIN(1),STRAIN(2),FAILMX,MAXFLG 1300 FORMAT (1H ,41X,2A4,'FAILURE THEORY WAS USED FOR THIS ELEMENT.', 1 26X,0P,F10.3,A4) GO TO 1730 C C *** COMPLEX, SORT 1 *** C 1400 GO TO 1800 C C *** REAL, SORT 2 *** C 1410 GO TO 1800 C C *** COMPLEX, SORT 2 *** C 1420 GO TO 1800 C C *** PRINT OF ELEMENT FORCES *** C 1500 CONTINUE C C BRANCH ON TYPE OF OUTPUT C GO TO (1510,1700,1710,1720), TYPE C C *** REAL, SORT 1 *** C 1510 IF (ICHECK .EQ. 0) GO TO 1670 GO TO (1550,1520,1550,1550,1550,1530,1550,1540,1550,1550,1550), 1 IAPP C 1520 WRITE (NOUT,970) ID(5),RID(8),RID(6) GO TO 1560 1530 WRITE (NOUT,980) RID(5) GO TO 1560 1540 WRITE (NOUT,990) RID(6) GO TO 1560 1550 WRITE (NOUT,1000) C 1560 IF (QUAD4) GO TO 1570 IF (TRIA3) GO TO 1580 GO TO 1600 1570 WRITE (NOUT,1620) GO TO 1600 1580 WRITE (NOUT,1630) GO TO 1600 1600 WRITE (NOUT,1650) WRITE (NOUT,1660) 1620 FORMAT (22X,'F O R C E S I N L A Y E R E D C O M P O S ', 1 'I T E E L E M E N T S ( Q U A D 4 )'/) 1630 FORMAT (22X,'F O R C E S I N L A Y E R E D C O M P O S ', 1 'I T E E L E M E N T S ( T R I A 3 )'/) 1650 FORMAT (6X,'ELEMENT',18X,'- MEMBRANE FORCES -',22X,'- BENDING', 1 ' MOMENTS -',11X,'- TRANSVERSE SHEAR FORCES -') 1660 FORMAT (8X,'ID',16X,2HFX,12X,2HFY,12X,3HFXY,11X, 1 2HMX,12X,2HMY,12X,3HMXY,11X,2HVX,12X,2HVY) C C WRITE THE DATA C 1670 WRITE (NOUT,1680) ELEMID,(RST(K),K=2,9) 1680 FORMAT (1H0,4X,I8,6X,8(1X,1P,E13.5)) NLINES = 2 GO TO 1730 C C *** COMPLEX, SORT 1 *** C 1700 GO TO 1800 C C *** REAL, SORT 2 *** C 1710 GO TO 1800 C C *** COMPLEX, SORT 2 *** C 1720 GO TO 1800 C C DONE WITH ONE ENTRY, GO BACK AND READ ANOTHER ONE. C 1730 LINE = LINE + NLINES IF (STRESS) GO TO 30 GO TO 40 C 1800 CONTINUE RETURN C 1900 IF (FORCE) RETURN 1910 CONTINUE RETURN 1 C C END ================================================ FILE: mis/ofp.f ================================================ SUBROUTINE OFP C C THE OUTPUT FILE PROCESSOR C C THIS SUBROUTINE IS THE MAIN AND ONLY DRIVER. C OFP1 OUTPUTS HEADINGS ONLY. C IMPLICIT INTEGER (A-Z) LOGICAL AXIC,FLUID,TEMPER,ONEFIL,HEADNG,SOLSET,ELEMEN, 1 PNCHED,HEAT,GPFB,ESE,DUMMY,GPST,EOR,PACK,STRAIN INTEGER REAL(10),IMAG(5),ISAVE(20),GSE(4),I15BLK(2), 1 FILEX(6),B(23,4),FMT(300),IOUT(100),TSAVE(96), 2 SCAN(2),ID(50),BUFF(1),OF(56) REAL FREAL(10),FIMAG(2),OUT(100) DOUBLE PRECISION DOUT(50) CWKBI CHARACTER*1 CFMT(300) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /BLANK / ICARD,OPTION(2) COMMON /SYSTEM/ KSYSTM(65) COMMON /OFPCOM/ TEMPER,MPUNCH COMMON /OFPBD1/ D(1) COMMON /OFPBD5/ ESINGL(64),E(1) CZZ COMMON /ZZOFPX/ CORE(1) COMMON /ZZZZZZ/ CORE(20000) COMMON /OFP1ID/ IDM(2) COMMON /OUTPUT/ HEAD(96) EQUIVALENCE (KSYSTM( 1),SYSBUF), (KSYSTM( 2),L ), 1 (KSYSTM( 9),MAXLNS), (KSYSTM(12),LINE ), 2 (KSYSTM(38),AXIF ), (KSYSTM(56),ITHERM), 3 (FREAL (1),REAL(1)), (FIMAG (1),IMAG(1)), 4 (ID (3),IELTYP ), (IOUT(1),OUT(1),DOUT(1)), 5 (L1, OF(1),CORE(1)), (L2,OF(2)), (L3,OF(3)), 6 (L4, OF(4)), (L5,OF(5)), (ID(1),OF(6)), 7 (BUFF(1),OF(56)) CWKBI EQUIVALENCE ( CFMT, FMT ) DATA PE / 4H1P,E /, PF / 4H0P,F / DATA E236 / 4H23.6 /, F236 / 4H14.1 / DATA E156 / 4H15.6 /, F156 / 4H6.1 / DATA I8 / 4H,I8, /, I12 / 4H,I11 / DATA I2X / 4H2X /, I2XX / 4H,2X / DATA I1X / 4H(1X /, I1XX / 4H,1X / DATA ISTAR / 4H,1H* /, I15X / 4H/14X / DATA IH0 / 4H/1H0 /, I1H0 / 4H(1H0 / DATA I9X / 4H,9X /, I6X / 4H,6X / DATA F174 / 4H17.4 / DATA STATIC, REIGEN , FREQ , TRANS , BK1 , CEIGEN / 1 1 , 2 , 5 , 6 , 8 , 9 / DATA A4 , COMMA , CPAREN, OPAREN / 1 4HA4 , 4H, , 4H) , 4H( / DATA EEND / 195 /, I15BLK/ 4HA4, , 4H11X /, 1 GSE / 4HG , 4HS , 4HE , 4HM / DATA FILEX / 101, 102, 103,104, 105 , 106 / DATA IBLANK, E9PT1 / 4H , 195 / DATA IHEAT / 4HHEAT /, CENTER/ 4HTER / DATA PHASE / 4H1P9E /, SCAN / 4HSCAN , 4HNED / DATA HEX1 , HEX2, HEX3 /4HHEX1, 4HHEX2 , 4HHEX3/ C C C THE FOLLOWING ARE ZERO POINTERS TO THE DATA-BLOCK AND LINE-SET C SELECTION LISTS. TO THIS THE SUBSET SELECTION POINTER IS ADDED. C THE SUBSET SELECTION POINTER IS BASED ON INFORMATION IN THE ID C RECORD. C C A MINUS ONE IN THE FOLLOWING ARRAY INDICATES AN UNDEFINED OUTPUT. C C S O R T - I S O R T - I I C *************** **************** ZERO-BASE C REAL COMPLEX REAL COMPLEX POINTERS INTO C-ARY C ************************************* ******************* C DISPLACEMENT VECTOR DATA B( 1,1),B( 1,2),B( 1,3),B( 1,4) / 0, 4, 2, 6 / C C LOAD VECTOR DATA B( 2,1),B( 2,2),B( 2,3),B( 2,4) / 8, 12, 10, 14 / C C SPCF VECTOR DATA B( 3,1),B( 3,2),B( 3,3),B( 3,4) / 16, 20, 18, 22 / C C ELEMENT FORCE (ZERO POINTERS INTO OVERLAY BLOCK DATA) DATA B( 4,1),B( 4,2),B( 4,3),B( 4,4) / 0, 0, 0, 0 / C C ELEMENT STRESS (ZERO POINTERS FOR OVERLAY BLOCK DATA) DATA B( 5,1),B( 5,2),B( 5,3),B( 5,4) / 0, 0, 0, 0 / C C EIGENVALUE SUMMARY DATA B( 6,1),B( 6,2),B( 6,3),B( 6,4) / 38, 39, -1, -1 / C C EIGENVECTOR DATA B( 7,1),B( 7,2),B( 7,3),B( 7,4) / 72, 40, -1, -1 / C C GPST DATA B( 8,1),B( 8,2),B( 8,3),B( 8,4) / 73, -1, -1, -1 / C C EIGENVALUE ANALYSIS SUMMARY DATA B( 9,1),B( 9,2),B( 9,3),B( 9,4) / 64, 68, -1, -1 / C C VELOCITY VECTOR DATA B(10,1),B(10,2),B(10,3),B(10,4) / 24, 30, 26, 32 / C C ACCELERATION VECTOR DATA B(11,1),B(11,2),B(11,3),B(11,4) / 25, 34, 27, 36 / C C NON-LINEAR-FORCE VECTOR DATA B(12,1),B(12,2),B(12,3),B(12,4) / 28, -1, 29, -1 / C C GRID-POINT-WEIGHT-OUTPUT DATA B(13,1),B(13,2),B(13,3),B(13,4) / -1, -1, -1, -1 / C C EIGENVECTOR (SOLUTION SET FROM VDR) DATA B(14,1),B(14,2),B(14,3),B(14,4) / -1, 60, -1, 62 / C C DISP-VECTOR (SOLUTION SET FROM VDR) DATA B(15,1),B(15,2),B(15,3),B(15,4) / 42, 44, 43, 46 / C C VELO-VECTOR (SOLUTION SET FROM VDR) DATA B(16,1),B(16,2),B(16,3),B(16,4) / 48, 50, 49, 52 / C C ACCE-VECTOR (SOLUTION SET FROM VDR) DATA B(17,1),B(17,2),B(17,3),B(17,4) / 54, 56, 55, 58 / C C ELEMENT STRAIN ENERGY (FROM GPFDR) DATA B(18,1),B(18,2),B(18,3),B(18,4) / 74, -1, -1, -1 / C C GRID POINT FORCE BALANCE (FROM GPFDR) DATA B(19,1),B(19,2),B(19,3),B(19,4) / 76, -1, -1, -1 / C C MPCFORCE VECTOR DATA B(20,1),B(20,2),B(20,3),B(20,4) / 78, -1, -1, -1 / C C ELEMENT STRAIN/CURVATURE (ZERO POINTER FOR OVERLAY BLOCK DATA) DATA B(21,1),B(21,2),B(21,3),B(21,4) / 0, -1, -1, -1 / C C STRESSES IN LAYERED COMPOSITE ELEMENTS (ZERO POINTER) DATA B(22,1),B(22,2),B(22,3),B(22,4) / 0, 0, 0, 0 / C C FORCES IN LAYERED COMPOSITE ELEMENTS (ZERO POINTER) DATA B(23,1),B(23,2),B(23,3),B(23,4) / 0, 0, 0, 0 / C ************************************ ******************* C C SAVE OLD TITLES WHATEVER THEY BE AND RESTORE BEFORE RETURNING C CALL TOTAPE (3,BUFF(1)) HEAT = .FALSE. IF (ITHERM .NE. 0) HEAT = .TRUE. OPTION(1) = 0 IF (HEAT) OPTION(1) = IHEAT ONEFIL = .FALSE. GO TO 10 C C ENTRY OFPDMP (IFILE1) C ===================== C ONEFIL = .TRUE. 10 DO 20 I = 1,96 20 TSAVE(I) = HEAD(I) C ICORE = KORSZ(BUFF) IF (ICORE .GE. SYSBUF) GO TO 40 WRITE (6,30) UWM,ICORE,SYSBUF 30 FORMAT (A25,' 2043, OFP HAS INSUFFICIENT CORE FOR ONE GINO ', 1 'BUFFER **** OFP NOT EXECUTED.') RETURN C 40 LINE = 0 IFILE = 0 C C LOOP FOR 6 FILES C 50 IFILE = IFILE + 1 IF (ONEFIL .AND. IFILE.GT.1) GO TO 2060 FILE = FILEX(IFILE) IF (ONEFIL) FILE = IFILE1 CALL OPEN (*2050,FILE,BUFF(1),0) FROM = 55 CALL FWDREC (*2020,FILE) 60 CALL READ (*2040,*2040,FILE, ID(1),50,0,FLAG) CALL READ (*2040,*2040,FILE,HEAD(1),96,1,FLAG) AXIC = .FALSE. TEMPER = .FALSE. DUMMY = .FALSE. GPST = .FALSE. SORT = 1 PNCHED = .FALSE. HEADNG = .FALSE. GPFB = .FALSE. ESE = .FALSE. STRAIN = .FALSE. C C COMPUTE I AND J, THE B ARRAY SUBSCRIPTS C J = ID(2)/1000 I = ID(2) - J*1000 J = J + 1 IF (I.NE.4 .AND. I.NE.5 .AND. I.NE.21) GO TO 70 ICURV = ID(3)/1000 ID(3) = ID(3) - 1000*ICURV C 70 PACK = .FALSE. SOLSET = .FALSE. FLUID = .FALSE. IF (AXIF .NE. 0) FLUID = .TRUE. ELEMEN = .FALSE. IAPP = ID(1)/10 NADD = 1 FROM = 75 IF (J .GT. 4) GO TO 2020 FROM = 77 IF (J) 2020,80,80 80 FROM = 80 IF (I.LT.1 .OR. I.GT.23) GO TO 2020 IF (J .GT. 2) SORT = 2 IF (J.NE.3 .OR. IAPP.NE.STATIC) GO TO 120 IF (HEAD(74).EQ.SCAN(1) .AND. HEAD(75).EQ.SCAN(2)) GO TO 100 DO 90 IHD = 65,96 90 HEAD(IHD) = IBLANK GO TO 120 100 DO 110 IHD = 65,72 IF (IHD .GE. 68) HEAD(IHD+22) = IBLANK 110 HEAD(IHD) = IBLANK 120 GO TO (150,150,150,230,240,270,150,290,300,150, 1 150,150,340,380,380,380,380,390,400,220, 2 410,420,420), I 150 PACK = .TRUE. IF (ID(3) .EQ. 1000) AXIC = .TRUE. GO TO (200,210,220,160,160,160,280,160,160,310,320,330), I 160 CALL MESAGE (-61,0,0) C C DISPLACEMENT VECTOR C 200 IF (J.EQ.3 .AND. IAPP.EQ.TRANS) NADD = 7 IF (OPTION(1) .NE. IHEAT) GO TO 500 IF (I.EQ.1 .AND. (J.EQ.1 .OR. J.EQ.3)) TEMPER =.TRUE. GO TO 500 C C LOAD VECTOR C 210 IF (J.EQ.3 .AND. IAPP.EQ.TRANS) NADD = 7 GO TO 500 C C SPCF VECTOR, MPCF VECTOR C 220 IF (J.EQ.3 .AND. IAPP.EQ.TRANS) NADD = 7 CWKBI 11/93 SPR93007 PACK = .TRUE. GO TO 500 C C ELEMENT FORCE, ELEMENT STRESS C 230 CONTINUE 240 FROM = 240 IF (ID(3).LT. 1 .OR. ID(3).GT.100) GO TO 2020 IF (ID(3).GT.52 .AND. ID(3).LT. 62) DUMMY = .TRUE. ELEMEN = .TRUE. IOPT = 2 IF (ICURV.GT.0 .AND. J.EQ.1) GO TO 260 IF (ICURV.GT.0 .AND. (J.EQ.2 .OR. J.EQ.4)) GO TO 250 NADD = 6*(ID(3)-1) + 1 IF (J.EQ.2 .OR. J.EQ.4) NADD = NADD*2 - 1 GO TO 500 250 FROM = 250 IF (ICURV .GT. 1) GO TO 2020 NADD = 0 IF (ID(3) .EQ. 6) NADD = 1 IF (ID(3) .EQ. 17) NADD = 13 IF (ID(3) .EQ. 18) NADD = 25 IF (ID(3) .EQ. 19) NADD = 37 GO TO 500 C C ELEMENT STRESS IN MATERIAL COORDINATE SYSTEM C 260 FROM = 260 IF (ICURV .GT. 2) GO TO 2020 NADD = 0 IF (ID(3) .EQ. 6) NADD = 1 IF (ID(3) .EQ. 17) NADD = 7 IF (ID(3) .EQ. 18) NADD = 13 IF (ID(3) .EQ. 19) NADD = 19 IF (ICURV .EQ. 2) NADD = 25 GO TO 500 C C EIGENVALUE SUMMARY C 270 CONTINUE GO TO 500 C C EIGENVECTOR C 280 CONTINUE GO TO 500 C C GPST C 290 GPST = .TRUE. GO TO 500 C C EIGENVALUE ANALYSIS SUMMARY C ID(3) = 1 DETERMINANT METHOD TABLE C ID(3) = 2 INVERSE POWER TABLE C ID(3) = 3 DETERMINANT METHOD SWEPT FUNCTION DATA VECTORS C ID(3) = 4 UPPER HESSENBERG METHOD TABLE C 300 NADD = 6*(ID(3)-1) + 1 FROM = 300 IF (ID(3) .GT. 4) GO TO 2020 GO TO 500 C C VELOCITY VECTOR C 310 CONTINUE GO TO 500 C C ACCELERATION VECTOR C 320 CONTINUE GO TO 500 C C NON-LINERAR FORCE VECTOR C 330 SOLSET = .TRUE. GO TO 500 C C GRID-POINT-WEIGHT-OUTPUT C (FROM = 345 AND 355 ARE SETUP IN OFPGPW) C 340 FROM = 340 IF (J .GT. 1) GO TO 2020 CALL OFPGPW (*2020,FILE,DOUT,FROM) GO TO 60 C C EIGENVECTOR, DISPLACEMENT, VELOCITY, ACCELERATION C (VDR OUTPUT ONLY) C 380 PACK = .TRUE. SOLSET = .TRUE. GO TO 500 C C ELEMENT STRAIN ENERGY. C 390 ESE = .TRUE. IOPT = 3 GO TO 500 C C GRID POINT FORCE BALANCE. C 400 GPFB = .TRUE. IOPT = 4 LASTID = 0 GO TO 500 C C ELEMENT STRAIN/CURVATURE C 410 FROM = 410 IF (ID(3).NE.6 .AND. ID(3).NE.17 .AND. ID(3).NE.18 .AND. CWKBR NCL93012 3/94 1 ID(3).NE.19) GO TO 2020 1 ID(3).NE.19 .AND. ID(3).NE.64 .AND. ID(3).NE.83) GO TO 2020 FROM = 415 IF (ICURV .GT. 2) GO TO 2020 STRAIN = .TRUE. ELEMEN = .TRUE. IOPT = 2 NADD = 0 IF (ID(3) .EQ. 6) NADD = 1 IF (ID(3) .EQ. 17) NADD = 7 IF (ID(3) .EQ. 18) NADD = 13 IF (ID(3) .EQ. 19) NADD = 19 CWKBNB NCL93012 3/94 IF (ID(3) .EQ. 64) NADD = 55 IF (ID(3) .EQ. 83) NADD = 61 CWKBNE NCL93012 3/94 IF (ICURV .EQ. 1) NADD = NADD + 24 IF (ICURV .EQ. 2) NADD = 49 GO TO 500 C C STRESSES AND FORCES IN LAYERED COMPOSITE ELEMENTS C 420 CALL OFCOMP (*60,FILE,J,IELTYP,IAPP,HEADNG,PNCHED,I) GO TO 60 C 500 FROM = 500 IF (B(I,J) .EQ. -1) GO TO 2020 IF (PACK ) IOPT = 1 POINT = NADD + B(I,J)*6 C C IS THIS MAGNITUDE / PHASE OUTPUT C IF (ID(9).EQ.3 .AND. (IAPP.EQ.FREQ .OR. IAPP.EQ.CEIGEN)) 1 POINT = POINT + 6 C IF (STRAIN) GO TO 660 IF (ELEMEN) GO TO 510 C C CALL NON-STRESS AND NON-FORCE OVERLAY. C CALL OFPMIS (IX,L1,L2,L3,L4,L5,POINT) FROM = 505 GO TO 690 C C CALL PARTICULAR STRESS OR FORCE OVERLAY CONSIDERING C REAL, COMPLEX, SORT1, SORT2. C 510 IF (DUMMY) GO TO 580 IF (ICURV .LE. 0) GO TO 515 IF (J .EQ. 1) GO TO 650 IF (J .EQ. 2) GO TO 670 IF (J .EQ. 4) GO TO 680 515 ITYPE = J + 4*(5-I) GO TO (520,530,540,560,570,610,620,640), ITYPE C 520 CALL OFPRS1 (IX,L1,L2,L3,L4,L5,POINT) FROM = 525 GO TO 690 C 530 CALL OFPCS1 (IX,L1,L2,L3,L4,L5,POINT) FROM = 535 GO TO 690 C 540 IF (IAPP .NE. STATIC) GO TO 550 CALL OFRS2S (IX,L1,L2,L3,L4,L5,POINT) FROM = 545 GO TO 690 550 CALL OFPRS2 (IX,L1,L2,L3,L4,L5,POINT) FROM = 555 GO TO 690 C 560 CALL OFPCS2 (IX,L1,L2,L3,L4,L5,POINT) FROM = 565 GO TO 690 C 570 CALL OFPRF1 (IX,L1,L2,L3,L4,L5,POINT) FROM = 575 IF (.NOT.HEAT .OR. ID(3).EQ.82) GO TO 690 IF (ID(10) .NE. -9) GO TO 600 L2 = 405 L4 = 0 L5 = 406 ID(10) = 9 GO TO 700 C 580 CALL ODUM (1,IX,ITYPE,NMULT,NLINES,ID) DUMMY = .FALSE. FROM = 580 GO TO 690 C C REAL FORCE SORT 1 (HEAT) C 600 L2 = 297 IF (ID(10) .EQ. 5) L2 = 302 L4 = 0 L5 = 298 IF (ID(10) .EQ. 5) L5 = 300 GO TO 700 C 610 CALL OFPCF1 (IX,L1,L2,L3,L4,L5,POINT) FROM = 615 IF (HEAT) GO TO 2020 GO TO 690 C 620 IF (IAPP .NE. STATIC) GO TO 630 CALL OFRF2S (IX,L1,L2,L3,L4,L5,POINT) FROM = 625 GO TO 690 630 CALL OFPRF2 (IX,L1,L2,L3,L4,L5,POINT) FROM = 635 IF (.NOT.HEAT .OR. ID(3).EQ.82) GO TO 690 C C REAL FORCE SORT 2 (HEAT) C L1 = 108 L2 = 297 IF (ID(10) .EQ. 5) L2 = 302 L5 = 299 IF (ID(10) .EQ. 5) L5 = 301 GO TO 700 C 640 CALL OFPCF2 (IX,L1,L2,L3,L4,L5,POINT) FROM = 645 IF (HEAT) GO TO 2020 GO TO 690 C 650 CALL OFPSS1 (IX,L1,L2,L3,L4,L5,POINT) FROM = 655 GO TO 690 660 CALL OFPSN1 (IX,L1,L2,L3,L4,L5,POINT) FROM = 665 GO TO 690 C 670 CALL OFPCC1 (IX,L1,L2,L3,L4,L5,POINT) FROM = 675 GO TO 690 C 680 CALL OFPCC2 (IX,L1,L2,L3,L4,L5,POINT) FROM = 685 C 690 IF (IX .EQ. 0) GO TO 2000 C C IF THERMAL DISPLACEMENTS IN -HEAT- PROBLEMS, CHANGE HEADING C FROM DISPLACEMENT TO TEMPERATURE C 700 IF (TEMPER .AND. L2.EQ.1) L2 = 253 IF (TEMPER .AND. L3.EQ.1) L3 = 253 C C HEAT PROBLEMS REAL-SORT1-VECTORS ONLY C IF (HEAT .AND. PACK .AND. J.EQ.1) L5 = 296 IF (HEAT .AND. SORT.EQ.2 .AND. .NOT.ELEMEN) L5 = 303 IF (AXIC) L4 = -1 IF (AXIC) L5 = 203 IF (AXIC .AND. IAPP.EQ.TRANS .AND. J.EQ.3) L5 = 402 IF (AXIC .AND. IAPP.EQ.STATIC .AND. J.EQ.3) L5 = 403 IF (AXIC .AND. IAPP.EQ.FREQ .AND. J.EQ.4) L5 = 404 IF (J .NE. 1) GO TO 710 IF (IAPP.EQ.TRANS .AND. I.NE.8) L1 = 106 IF ((IAPP.EQ.REIGEN .OR. IAPP.EQ.BK1) .AND. I.NE.6 .AND. I.NE.8 1 .AND. I.NE.9) L1 = 102 GO TO 720 710 IF (J .NE. 2) GO TO 720 IF (IAPP.EQ.CEIGEN .AND. I.NE.6 .AND. I.NE.9) L1 = 110 720 IDD = 0 IF (SORT .EQ. 1) GO TO 730 IDD = ID(5) ITEMP = IDD/10 DEVICE= IDD - 10*ITEMP DEVICE= MOD(DEVICE,8) IDD = ITEMP ID(5) = IDD IF (HEAT .AND. .NOT.ELEMEN .AND. SORT.EQ.2) L5 = 303 IF (IAPP .EQ. STATIC) IDD = -1 C C SORT2 HARMONIC VECTOR OUTPUT C 730 IF (.NOT.PACK .OR. .NOT.FLUID .OR. SORT.EQ.1) GO TO 750 IF (ID(5) .LT. 500000) GO TO 740 IF (L1 .EQ. 107) L1 = 229 740 FLUID = .FALSE. IF (ESE .OR. GPFB) GO TO 800 750 IF (PACK .OR. ELEMEN) GO TO 800 CALL OFP1 HEADNG = .TRUE. C C OUTPUT THE DATA BLOCK C 800 EOR = .FALSE. IF (ELEMEN .AND. ID(3).EQ.35) AXIC = .TRUE. IF (ELEMEN .AND. ID(3).EQ.70) AXIC = .TRUE. IF (ELEMEN .AND. ID(3).EQ.71) AXIC = .TRUE. IF (AXIC) SOLSET = .TRUE. C C D(IX) CONTINS TWO VALUES IN A PACKED 4 DIGIT NUMBER. C THE RIGHT 2 DIGITS GIVES THE NUMBER OF LINES FORMAT PRODUCES. C THE LEFT 2 DIGITS GIVES THE NUMBER OF DATA VECTORS PER LINE. C IF THE LEFT 2 DIGITS ARE 0 OR NULL, 1 VECTOR IS ASSUMED. C IF (HEAT ) GO TO 810 IF (DUMMY) GO TO 820 NMULT = D(IX)/100 NLINES = D(IX) - NMULT*100 GO TO 820 810 NMULT = 1 NLINES = 1 820 IF (NMULT .EQ. 0) NMULT = 1 NWDS = ID(10)*NMULT NWDSAV= NWDS MAXN = MAXLNS - NLINES C IF (NWDS .EQ. 0) GO TO 60 900 IF (EOR) GO TO 60 FROM = 900 CALL READ (*2020,*910,FILE,IOUT(1),NWDS,0,FLAG) GO TO 920 910 IF (FLAG .EQ. 0) GO TO 60 IF (FLAG .EQ. 0) GO TO 60 NWDS = FLAG NWDSAV= NWDS EOR = .TRUE. 920 I1 = 0 IF (AXIC) GO TO 930 IGSE = IOUT(2) IF (PACK .OR. GPST) IOUT(2) = GSE(IGSE) IF (ESE .OR. GPFB) GO TO 930 IF (.NOT.PACK .AND. .NOT.ELEMEN) GO TO 1030 930 IF (SORT .EQ. 2) GO TO 990 INCR = ID(10) I = 1 K1 = 1 940 ITEMP = IOUT(I)/10 DEVICE = IOUT(I) - 10*ITEMP DEVICE = MOD(DEVICE,8) IOUT(I)= ITEMP IF (DEVICE .LT. 4) GO TO 950 CALL OFPPUN (IOUT(I),IOUT(I),INCR,IOPT,IDD,PNCHED) DEVICE = DEVICE - 4 950 IF (DEVICE .GT. 0) GO TO 980 C C ELIMINATE VECTOR FROM MULTIPLE VECTOR PER LINE C NWDS = NWDS - INCR IF (NWDS .GT. I) GO TO 960 DEVICE = 1 IF (NWDS .GT. 0) GO TO 990 IF (EOR) GO TO 60 NWDS = NWDSAV GO TO 900 960 K1 = K1 + INCR K2 = K1 + INCR - 1 JJ = I - 1 DO 970 J = K1,K2 JJ = JJ + 1 970 IOUT(JJ) = IOUT(J) GO TO 940 980 I = I + INCR IF (I .LE. NWDS) GO TO 940 990 IF (DEVICE .LT. 4) GO TO 1020 IF (ELEMEN) GO TO 1000 CALL OFPPUN (IOUT(1),IOUT(1),NWDS,IOPT,IDD,PNCHED) GO TO 1020 C C SORT 2 ELEMENT PUNCH C 1000 INCR = ID(10) DO 1010 JJ = 1,NWDS,INCR CALL OFPPUN (IOUT(JJ),IOUT(JJ),INCR,IOPT,IDD,PNCHED) 1010 CONTINUE 1020 IF (DEVICE.NE.1 .AND. DEVICE.NE.5) GO TO 900 1030 IF (.NOT.PACK .OR. AXIC) GO TO 1100 IF (FLUID .AND. SORT.EQ.1 .AND. IOUT(1).GE.500000) GO TO 1800 1040 IF (IOUT(2) .NE. GSE(1)) GO TO 1720 C C BUILD FORMAT CHECKING DATA FOR SPECIAL CASES. C 1100 I = 1 IF (HEAT .AND. ELEMEN .AND. ID(3).NE.82) GO TO 1400 IF (DUMMY) GO TO 1640 FMT(1) = OPAREN IFMT = 1 J = IX + 1 GO TO 1120 1110 J = J + 1 IFMT = IFMT + 1 FMT(IFMT) = COMMA C C IF K IS NEGATIVE THEN BUILDING BLOCK IS NOT FOR A VARIABLE. C IN THIS CASE THEN K IS ACTUAL POINTER TO BE USED IN THE ESINGL ARR C 1120 K = D(J) IF (K) 1130,1300,1140 1130 K = -K IFMT = IFMT + 1 FMT(IFMT) = ESINGL(K) GO TO 1110 C C CHECK FOR SPECIAL PACKING FORMATS C 1140 K = 5*K - 5 IF (.NOT. AXIC) GO TO 1150 IF (K.NE.200 .AND. K.NE.275) GO TO 1160 IF (IOUT(2) .EQ. IBLANK) GO TO 1230 GO TO 1240 1150 IF (.NOT.PACK .OR. IOUT(2).EQ.GSE(1)) GO TO 1160 IF ((I.GE.I1 .AND. I.LE.8) .OR. (I.GE.I2 .AND. I.LE.14)) 1 GO TO 1250 C C IF SOLSET AND K=0 OR K=80 OR K=365 OR K=75 USE I15BLK IF INTEGER 1 C 1160 IF (.NOT. SOLSET) GO TO 1170 IF (K.NE.0 .AND. K.NE.80 .AND. K.NE.365 .AND. K.NE.75) GO TO 1170 IF (IOUT(I) .NE. 1) GO TO 1170 IOUT(I) = IBLANK IFMT = IFMT + 2 FMT(IFMT-1) = I15BLK(1) FMT(IFMT ) = I15BLK(2) IF (AXIC) FMT(IFMT) = I2X GO TO 1260 C C CHECK FOR 0.0 ON AN E-FORMAT C 1170 IF (K .LT. EEND) IF (OUT(I)) 1230,1240,1230 IF (K .EQ. 440) IF (OUT(I)) 1230,1240,1230 C C CHECK FOR MID-EDGE OR CENTER STRESS POINTS ON ISOPARAMETRIC C SOLID ELEMENTS C IF ((K.NE.390 .AND. K.NE.395) .OR. IOUT(I).NE.0) GO TO 1190 IF (K .EQ. 395) GO TO 1180 IOUT(I) = CENTER GO TO 1240 1180 IOUT(I) = IBLANK GO TO 1240 C C CHECK FOR SPECIAL INTEGER ON E9.1 FORMAT ONLY C 1190 IF (K.NE.E9PT1 .OR. IOUT(I).NE.1) GO TO 1200 IOUT(I) = IBLANK GO TO 1240 C C CHECK FOR SPECIAL GPST FORMATS C 1200 IF (IOUT(I).NE.0 .OR. K.LT.301 .OR. K.GT.325) GO TO 1210 IOUT(I) = IBLANK GO TO 1240 C C CHECK FOR HARMONIC NUMBER OR POINT ANGLE C 1210 IF (K.NE.355 .AND. K.NE.360 .AND. K.NE.445) GO TO 1220 IF (IOUT(I).LE.0 .OR. IOUT(I).GE.1000) GO TO 1220 IOUT(I) = IOUT(I) - 1 GO TO 1240 C C CHECK FOR PHASE ANGLE ON STRESSES WITH TRAPAX AND TRIAAX ELEMENTS C C COMMENTS FROM G.CHAN/UNISYS 1/93 C FMT AND PHASE ARE LOCAL. I SEE NOBODY SETTING UP FMT() TO PHASE. C PHASE IS '1PE9'. IN ANSI FORTRAN STANDARD, A COMMA IS NEEDED C BETWEEN P AND E IF PHASE IS REALLY USED IN SETTING UP FMT(). C 1220 IF (K.NE.430 .OR. ID(9).NE.3 .OR. IAPP.NE.FREQ .OR. FMT(IFMT-4) 1 .NE.PHASE) GO TO 1230 GO TO 1240 C C NO OTHER SPECIAL CHECKS AT THIS TIME C C *** ADD FORMAT BLOCKS *** C C STANDARD BLOCKS C 1230 IFMT = IFMT + 2 FMT(IFMT-1) = E(K+1) FMT(IFMT ) = E(K+2) GO TO 1260 C C ALTERNATE BLOCKS C 1240 IFMT = IFMT + 3 FMT(IFMT-2) = E(K+3) FMT(IFMT-1) = E(K+4) FMT(IFMT ) = E(K+5) GO TO 1260 C C SPECIAL BLOCKS FOR PACKED OUTPUT C 1250 IFMT = IFMT + 1 FMT(IFMT) = A4 GO TO 1260 C 1260 I = I + 1 GO TO 1110 C C OUTPUT THE LINE OR LINES OF DATA WITH THE NEW FORMAT C 1300 FMT(IFMT) = CPAREN IF (LINE.GT.MAXN .OR. .NOT.HEADNG) CALL OFP1 HEADNG = .TRUE. NWDS = NWDSAV C C IF GRID-POINT-FORCE-BALANCE ENTRY, BLANK OUT NONEXISTENT (ZERO) C ELEMENT ID-S. C IF (.NOT.GPFB) GO TO 1330 IF (IOUT(2)) 1320,1310,1320 1310 IOUT(2) = IBLANK FMT( 9) = A4 FMT(10) = I9X C C ALSO, FOR GPFB, SET FORMAT TO SPACE TWO LINES ON NEW POINT-ID. C 1320 IF (IOUT(1) .EQ. LASTID) GO TO 1330 LASTID = IOUT(1) FMT(2) = IH0 LINE = LINE + 2 1330 CALL OFPPNT (IOUT,NWDS,CFMT) GO TO 1700 C C ELEMENT FORCES IN HEAT PROBLEMS C 1400 IF (LINE.GT.MAXN .OR. .NOT.HEADNG) CALL OFP1 HEADNG = .TRUE. IF (SORT .EQ. 2) GO TO 1520 C C BRANCH ON SPECIAL HBDY OUTPUT C IF (NWDS .EQ. 5) GO TO 1460 IF (IOUT(5) .EQ. 1) GO TO 1440 IF (IOUT(6) .EQ. 1) GO TO 1420 IF (IOUT(2).EQ.HEX1 .OR. IOUT(2).EQ.HEX2) GO TO 1480 IF (IOUT(2) .EQ. HEX3) GO TO 1500 CRPKR THE FOLLOWING LINE HAS BEEN CHANGED CRPKR WRITE (L,1410) IOUT(1),(OUT(I),I=2,9) WRITE (L,1410) (IOUT(I),I=1,3), (OUT(I),I=4,9) 1410 FORMAT (I14,4X,2A4,6(1P,E17.6)) GO TO 1700 CRPKR THE FOLLOWING LINE HAS BEEN CHANGED C1420 WRITE (L,1430) IOUT(1),OUT(2),OUT(3),OUT(4),OUT(5),OUT(7),OUT(8) 1420 WRITE (L,1430) IOUT(1),IOUT(2),IOUT(3),OUT(4),OUT(5), * OUT(7),OUT(8) 1430 FORMAT (I14,4X,2A4,2(1P,E17.6),17X,2(1P,E17.6)) GO TO 1700 CRPKR THE FOLLOWING LINE HAS BEEN CHANGED C1440 WRITE (L,1450) IOUT(1),OUT(2),OUT(3),OUT(4),OUT(7) 1440 WRITE (L,1450) IOUT(1),IOUT(2),IOUT(3),OUT(4),OUT(7) 1450 FORMAT (I14,4X,2A4,1P,E17.6,34X,1P,E17.6) GO TO 1700 C 1460 WRITE (L,1470) IOUT(1),OUT(2),OUT(3),OUT(4),OUT(5) 1470 FORMAT (18X,I18,4(1P,E18.6)) GO TO 1700 C 1480 WRITE (L,1490) (IOUT(I),I=1,3),(OUT(I),I=4,9) 1490 FORMAT (I14,1X,A4,I7,6(1P,E17.6)) GO TO 1700 1500 WRITE (L,1510) (IOUT(I),I=1,3),(OUT(I),I=4,9) 1510 FORMAT (I14,2X,A4,2X,A4,6(1P,E17.6)) GO TO 1700 C C BRANCH ON SPECIAL HBDY FORCES C 1520 IF (NWDS .EQ. 5) GO TO 1580 IF (IOUT(5) .EQ. 1) GO TO 1560 IF (IOUT(6) .EQ. 1) GO TO 1540 IF (IOUT(2).EQ.HEX1 .OR. IOUT(2).EQ.HEX2) GO TO 1600 IF (IOUT(2) .EQ. HEX3) GO TO 1620 CRPKR THE FOLLOWING LINE HAS BEEN CHANGED CRPKR WRITE (L,1530) (OUT(I),I=1,9) WRITE (L,1530) OUT(1),IOUT(2),IOUT(3),(OUT(I),I=4,9) 1530 FORMAT (1P,E14.6,4X,2A4,6(1P,E17.6)) GO TO 1700 CRPKR THE FOLLOWING LINE HAS BEEN CHANGED C1540 WRITE (L,1550) (OUT(KK),KK=1,5),OUT(7),OUT(8) 1540 WRITE (L,1550) OUT(1),IOUT(2),IOUT(3),OUT(4),OUT(5), * OUT(7),OUT(8) 1550 FORMAT (1P,E14.6,4X,2A4,2(1P,E17.6),17X,2(1P,E17.6)) GO TO 1700 CRPKR THE FOLLOWING LINE HAS BEEN CHANGED C1560 WRITE (L,1570) (OUT(KK),KK= 1,4),OUT(7) 1560 WRITE (L,1570) OUT(1),IOUT(2),IOUT(3),OUT(4),OUT(7) 1570 FORMAT (1P,E14.6,4X,2A4,1P,E17.6,34X,1P,E17.6) GO TO 1700 1580 WRITE (L,1590) (OUT(KK),KK=1,5) 1590 FORMAT (18X,5(1P,E18.6)) GO TO 1700 CRPKR THE FOLLOWING LINE HAS BEEN CHANGED C1600 WRITE (L,1610) OUT(1),OUT(2),IOUT(3),(OUT(I),I=4,9) 1600 WRITE (L,1610) OUT(1),IOUT(2),IOUT(3),(OUT(I),I=4,9) 1610 FORMAT (1P,E14.6,1X,A4,I7,6(1P,E17.6)) GO TO 1700 CRPKR THE FOLLOWING LINE HAS BEEN CHANGED C1620 WRITE (L,1630) (OUT(I),I=1,9) 1620 WRITE (L,1630) OUT(1),IOUT(2),IOUT(3),(OUT(I),I=4,9) 1630 FORMAT (1P,E14.6,2X,A4,2X,A4,6(1P,E17.6)) GO TO 1700 C C DUMMY ELEMENT C 1640 IF (LINE.GT.MAXN .OR. .NOT.HEADNG) CALL ODUM (2,L,ITYPE,IAPP,0,ID) HEADNG = .TRUE. NWDS = NWDSAV CALL ODUM (3,L,ITYPE,IAPP,NWDS,IOUT) GO TO 1700 C 1700 LINE = LINE + NLINES IF (EOR ) GO TO 60 IF (AXIC) GO TO 900 IF (.NOT.PACK .OR. IOUT(2).EQ.GSE(1) .OR. I1.EQ.9) GO TO 900 C C TRANSFER THE SAVED BLOCK C DO 1710 I = 1,NWDS 1710 IOUT(I) = ISAVE(I) IF (.NOT.FLUID) GO TO 1040 IF (IOUT(1) .GE. 500000) GO TO 1800 GO TO 1040 C C SPECIAL ROUTINE TO PACK SCALAR OR EXTRA POINTS OUTPUT.. C PACKING IS PERFORMED ONLY WHEN IDS ARE SEQUENTIAL, C AND THE TYPE REMAINS THE SAME. C 1720 I = 1 GRDPT = IOUT(1) TYPE = IOUT(2) 1730 IF (I .EQ. 6) GO TO 1760 1740 FROM = 1740 CALL READ (*2020,*1790,FILE,ISAVE(1),NWDS,0,FLAG) IGSE = ISAVE(2) IF (PACK) ISAVE(2) = GSE(IGSE) IF (SORT .EQ. 2) GO TO 1750 ITEMP = ISAVE(1)/10 DEVICE = ISAVE(1) - 10*ITEMP DEVICE = MOD(DEVICE,8) ISAVE(1) = ITEMP 1750 IF (DEVICE .GE. 4) CALL OFPPUN (ISAVE(1),ISAVE(1),NWDS,IOPT,IDD, 1 PNCHED) IF (DEVICE.NE.1 .AND. DEVICE.NE.3 .AND. DEVICE.NE.5 .AND. 1 DEVICE.NE.7) GO TO 1740 J = GRDPT + I IF (FLUID .AND. ISAVE(1).GE.500000) GO TO 1760 IF (ISAVE(2).NE.TYPE .OR. ISAVE(1).NE.(GRDPT+I)) GO TO 1760 C C PACK THIS VECTOR INTO LINE OF DATA C IF COMPLEX TWO LINES OF DATA C IMAGINARY PART WILL BE PACKED EVEN IF IT DOES NOT EXIST. C I = I + 1 IOUT(I+2) = ISAVE(3) IOUT(I+8) = ISAVE(9) GO TO 1730 C C PUT BLANKS IN ANY OPEN SLOTS C 1760 J = I + 3 IF (J .GT. 8) GO TO 1780 DO 1770 K = J,8 IOUT(K ) = IBLANK 1770 IOUT(K+6) = IBLANK C 1780 I1 = J I2 = J + 6 GO TO 1100 C 1790 EOR = .TRUE. GO TO 1760 C C SPECIAL LOGIC FOR SORT-1 VECTOR OUTPUT IN A FLUID PROBLEM FOR C HARMONIC POINTS ONLY C 1800 OLDHRM = -1 L5 = 230 LINE= MAXN + 1 K = 0 EOR = .FALSE. GO TO 1820 1810 FROM = 1810 CALL READ (*2020,*1840,FILE,IOUT(1),NWDS,0,FLAG) C C PUNCH PROCESSING C ITEMP = IOUT(1)/10 DEVICE = IOUT(1) - 10*ITEMP IOUT(1)= ITEMP IF (DEVICE .LT. 4) GO TO 1820 DEVICE = MOD(DEVICE,8) CALL OFPPUN (IOUT(1), IOUT(1),INCR,IOPT,IDD,PNCHED) DEVICE = DEVICE - 4 IF (DEVICE .LE. 0) GO TO 1810 C C DECODE THE HARMONIC C 1820 ITEMP = MOD(IOUT(1),500000) NHARM = (IOUT(1)-ITEMP)/500000 IOUT(1) = ITEMP IF (OLDHRM .EQ. -1) OLDHRM = NHARM IF (NHARM.NE.OLDHRM .OR. K.GE.5) GO TO 1850 K = K + 1 1830 REAL(2*K-1) = IOUT(1) REAL(2*K ) = IOUT(3) IMAG( K ) = IOUT(9) GO TO 1810 C C OUTPUT THE LINE OF DATA C 1840 EOR = .TRUE. IF (K .LE. 0) GO TO 60 C C BUILD THE FORMAT C 1850 FMT(1) = I1X IF (NLINES .GT. 1) FMT(1) = I1H0 FMT(2) = I12 FMT(3) = I2XX IFMT = 3 C C ADD STAR IF THIS IS AN UN-SYMETRIC HARMONIC C IF (MOD(OLDHRM,2) .EQ. 0) GO TO 1860 FMT(3) = ISTAR FMT(4) = I1XX IFMT = 4 C C VARIABLES IN MAIN LINE C 1860 DO 1890 I = 1,K FMT(IFMT+1) = I8 IF (FREAL(2*I)) 1870,1880,1870 1870 FMT(IFMT+2) = PE FMT(IFMT+3) = E156 IFMT = IFMT + 3 GO TO 1890 1880 FMT(IFMT+2) = PF FMT(IFMT+3) = F156 FMT(IFMT+4) = I9X IFMT = IFMT + 4 1890 CONTINUE C C VARIABLES IN SECOND LINE IF COMPLEX C IF (NLINES .LE. 1) GO TO 1940 IFMT = IFMT + 1 FMT(IFMT) = I15X DO 1930 I = 1,K IFMT = IFMT + 1 FMT(IFMT) = COMMA IF (FIMAG(I)) 1910,1900,1910 1900 FMT(IFMT+1) = PF FMT(IFMT+2) = F236 FMT(IFMT+3) = I9X IFMT = IFMT + 3 GO TO 1930 1910 IF (L3 .EQ. 126) GO TO 1920 FMT(IFMT+1) = PE FMT(IFMT+2) = E236 IFMT = IFMT + 2 GO TO 1930 1920 FMT(IFMT+1) = PF FMT(IFMT+2) = F174 FMT(IFMT+3) = I6X IFMT = IFMT + 3 1930 CONTINUE C C COMPLETE FORMAT C 1940 FMT(IFMT+1) = CPAREN IF (LINE .GT. MAXN) CALL OFP1 LINE = LINE + NLINES K2 = 2*K IHARM= (OLDHRM-1)/2 IF (NLINES .LE. 1) GO TO 1950 CRPKR THE FOLLOWING LINE HAS BEEN REPLACED BY TWO LINES CRPKR WRITE (L,FMT) IHARM,(FREAL(I),I=1,K2),(FIMAG(I),I=1,K) WRITE (L,FMT) IHARM,(REAL(I),FREAL(I+1),I=1,K2,2), * (FIMAG(I),I=1,K) GO TO 1960 CRPKR THE FOLLOWING LINE HAS BEEN REPLACED C1950 WRITE (L,FMT) IHARM,(FREAL(I),I=1,K2) 1950 WRITE (L,FMT) IHARM,(REAL(I),FREAL(I+1),I=1,K2,2) 1960 K = 1 OLDHRM = NHARM IF (.NOT. EOR) GO TO 1830 GO TO 60 C C ERROR CONDITION THIS FILE C 2000 WRITE (L,2010) SWM,IX,POINT,FROM 2010 FORMAT (A27,', OFP BLOCK DATA ROUTINES UNAVAILABLE FOR THIS ', 1 'ELEMENT.',11X,'IX,POINT,FROM =,',3I5) 2020 WRITE (L,2030) UWM,FROM 2030 FORMAT (A25,' 3030, OFP UNABLE TO PROCESS DATA BLOCK. A TABLE ', 1 'PRINT OF THE DATA BLOCK FOLLOWS. FROM =',I5,'/OFP') CALL CLOSE (FILE,1) CALL TABPRT (FILE) GO TO 2050 C C CLOSE FILE UP C 2040 CALL CLOSE (FILE,1) 2050 IF (IFILE .EQ. 6) GO TO 2060 GO TO 50 C C RESTORE TITLES TO WHATEVER THEY WERE AT ENTRY TO OFP C 2060 DO 2070 I = 1,96 2070 HEAD(I) = TSAVE(I) RETURN END ================================================ FILE: mis/ofp1.f ================================================ SUBROUTINE OFP1 C C THIS ROUTINE OUTPUTS A PAGE HEADING BASED ON PARAMETERS COMING C THROUGH COMMON. C THIS ROUTINE CALLS OPF1A, OFP1B OR OFP1C FOR ACTUAL PRINTING, SUCH C THAT OFP1A, OFP1B AND OFP1C CAN BE OVERLAYED IN PARALLEL. C INTEGER L123(5),ID(50),OF(6) COMMON /SYSTEM/ KSYS(100) COMMON /ZZZZZZ/ CORE(1) EQUIVALENCE (CORE(1),OF(1),L123(1)), (ID(1),OF(6)), 1 (NOUT,KSYS(2)), (LINET,KSYS(12)), (IFLAG,KSYS(33)) C C IFLAG IS WORD 33 OF /SYSTEM/ AND IS SET TO INCIDATE OFP PRINTED C LAST. C CALL PAGE1 IFLAG = 1 DO 1000 I = 1,5 LINE = L123(I) IF (LINE) 1000,800,500 500 IF (LINE .GT. 174) GO TO 600 C C ... 1 THRU 174- C CALL OFP1A (LINE) GO TO 1000 600 IF (LINE .GT. 380) GO TO 700 C C ... 175 THRU 380 - C CALL OFP1B (LINE) GO TO 1000 C C ... 381 UP - C 700 CALL OFP1C (LINE) GO TO 1000 C 800 WRITE (NOUT,900) 900 FORMAT (1H ) C 1000 CONTINUE LINET = LINET + 4 RETURN END ================================================ FILE: mis/ofp1a.f ================================================ SUBROUTINE OFP1A (LINE) C C THIS ROUTINE WAS NAMED OFP1 BEFORE. C INTEGER L123(5),ID(50),OF(6) REAL FID(50),RT(8,15),SECTN(2) COMMON /SYSTEM/ KSYS(80) COMMON /ZZZZZZ/ CORE(1) COMMON /OFP1ID/ ID22,M EQUIVALENCE (KSYS(2),L), (KSYS(12),LINET), (KSYS(33),IFLAG), 1 (KSYS(3),NOGO), (CORE(1),OF(1),L123(1)), 2 (FID(1) ,ID(1), OF(6)) C DATA RT/ 1 4HSING, 4HULAR, 4HITIE, 4HS EN, 4HCOUN, 4HTERE, 4HD. , 4H , 2 4H4 SH, 4HIFT , 4HPTS., 4HPER , 4HROOT, 4H EXC, 4HEEDE, 4HD. , 3 4HALL , 4HEIGE, 4HNVAL, 4HUES , 4HFOUN, 4HD IN, 4H RAN, 4HGE. , 4 4H3X E, 4HST.R, 4HOOTS, 4H IN , 4HRANG, 4HE SP, 4HECIF, 4HIED., 5 4HNO M, 4HORE , 4HEIGE, 4HNVAL, 4HUES , 4HIN P, 4HROBL, 4HEM. , 6 4HNO. , 4HOF R, 4HOOTS, 4H DES, 4HIRED, 4H WER, 4HE FO, 4HUND., 7 4H1 OR, 4H MOR, 4HE RO, 4HOT O, 4HUTSI, 4HDE F, 4HR.RA, 4HNGE., 8 4HINSU, 4HFFIC, 4HIENT, 4H TIM, 4HE FO, 4HR NE, 4HXT R, 4HOOT., 9 4HUNAB, 4HLE T, 4HO CO, 4HNVER, 4HGE. , 4H , 4H , 4H , O 4HNORM, 4HAL T, 4HERMI, 4HNATI, 4HON , 4H , 4H , 4H , 1 4HEIGE, 4HNVAL, 4HUES , 4HOUTS, 4HIDE , 4HFREQ, 4H. RA, 4HNGE , 2 4HINSU, 4HFFIC, 4HIENT, 4H TIM, 4HE RE, 4HMAIN, 4HING , 4H , 3 4HFEWE, 4HR TH, 4HAN R, 4HEQUE, 4HSTED, 4H ROO, 4HTS F, 4HOUND, 4 4HROOT, 4HS FO, 4HUND , 4HWITH, 4H REQ, 4H. AC, 4HCURA, 4HCY , 5 4HNO R, 4HOOTS ,4H FOU, 4HND, , 4HNONE, 4H PAS, 4HSED , 4HTEST/ DATA SECTN / 4H.3.3, 4H.7.3 / , TWOPI /6.283185307 / C LOCAL = LINE - 100 IF (LOCAL) 2003,2003,2004 2003 GO TO (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22, 1 23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43, 2 44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64, 3 65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85, 4 86,87,88,89,90,91,92,93,94,95,96,97,98,99,100), LINE 2004 GO TO ( 101,102,103,104,105,106,107,108,109,110,111,112,113,114, 1 115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130, 2 131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146, 3 147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162, 4 163,164,165,166,167,168,169,170,171,172,173,174), LOCAL C 1 WRITE (L,501) GO TO 1000 2 WRITE (L,502) GO TO 1000 3 WRITE (L,503) GO TO 1000 4 WRITE (L,504) GO TO 1000 5 WRITE (L,505) IF (ID22 .EQ. -999) GO TO 1000 IF (ID22) 2053,2052,2051 2051 WRITE (L,5050) WRITE (L,5051) ID22 GO TO 2054 2052 IF (.NOT.((M.GE.3 .AND. M.LE.7) .OR. M.EQ.10 .OR. M.EQ.13)) 1 GO TO 1000 WRITE (L,5050) WRITE (L,5052) GO TO 2054 2053 IF (M.NE.8 .AND. M.NE.12) GO TO 1000 WRITE (L,5050) WRITE (L,5053) 2054 WRITE (L,5054) LINET = LINET + 10 ID22 =-999 GO TO 1000 6 WRITE (L,506) ID(5) GO TO 1000 7 WRITE (L,507) GO TO 1000 8 WRITE (L,508) GO TO 1000 9 WRITE (L,509) GO TO 1000 10 WRITE (L,510) GO TO 1000 11 WRITE (L,511) GO TO 1000 12 WRITE (L,512) GO TO 1000 13 WRITE (L,513) GO TO 1000 14 WRITE (L,514) GO TO 1000 15 WRITE (L,515) GO TO 1000 16 WRITE (L,516) GO TO 1000 17 WRITE (L,517) GO TO 1000 18 WRITE (L,518) GO TO 1000 19 WRITE (L,519) GO TO 1000 20 WRITE (L,520) GO TO 1000 21 WRITE (L,521) GO TO 1000 22 WRITE (L,522) GO TO 1000 23 WRITE (L,523) GO TO 1000 24 WRITE (L,524) GO TO 1000 25 WRITE (L,525) GO TO 1000 26 WRITE (L,526) GO TO 1000 27 WRITE (L,527) GO TO 1000 28 WRITE (L,528) GO TO 1000 29 WRITE (L,529) GO TO 1000 C C PROCESS SPC AND MPC SET IDS PROPERLY TO ACCOUNT FOR AXISYMMETRIC C PROBLEMS C 30 DO 3010 J = 3,4 IF (ID(J) .LT. 100000000) GO TO 3010 ID(J) = ID(J) - 100000000 IF (ID(J) .LT. 100000000) GO TO 3010 ID(J) = ID(J) - 100000000 3010 CONTINUE WRITE (L,530) ID(3),ID(4) LINET = LINET + 1 GO TO 1000 31 WRITE (L,531) GO TO 1000 32 WRITE (L,532) GO TO 1000 33 WRITE (L,533) GO TO 1000 34 WRITE (L,534) GO TO 1000 35 WRITE (L,535) GO TO 1000 36 WRITE (L,536) GO TO 1000 37 WRITE (L,537) GO TO 1000 38 WRITE (L,538) GO TO 1000 39 WRITE (L,539) GO TO 1000 40 WRITE (L,540) GO TO 1000 41 WRITE (L,541) GO TO 1000 42 WRITE (L,542) GO TO 1000 43 WRITE (L,543) GO TO 1000 44 WRITE (L,544) GO TO 1000 45 WRITE (L,545) GO TO 1000 46 WRITE (L,546) GO TO 1000 47 WRITE (L,547) GO TO 1000 48 WRITE (L,548) GO TO 1000 49 WRITE (L,549) GO TO 1000 50 WRITE (L,550) GO TO 1000 51 WRITE (L,551) GO TO 1000 52 WRITE (L,552) GO TO 1000 53 WRITE (L,553) GO TO 1000 54 WRITE (L,554) GO TO 1000 55 WRITE (L,555) GO TO 1000 56 WRITE (L,556) GO TO 1000 57 WRITE (L,557) GO TO 1000 58 WRITE (L,558) GO TO 1000 59 WRITE (L,559) GO TO 1000 60 WRITE (L,560) GO TO 1000 61 WRITE (L,561) GO TO 1000 62 WRITE (L,562) GO TO 1000 63 WRITE (L,563) GO TO 1000 64 WRITE (L,564) GO TO 1000 65 WRITE (L,565) GO TO 1000 66 WRITE (L,566) GO TO 1000 67 WRITE (L,567) GO TO 1000 68 WRITE (L,568) GO TO 1000 69 WRITE (L,569) GO TO 1000 70 WRITE (L,570) GO TO 1000 71 WRITE (L,571) GO TO 1000 72 WRITE (L,572) GO TO 1000 73 WRITE (L,573) GO TO 1000 74 WRITE (L,574) GO TO 1000 75 WRITE (L,575) GO TO 1000 76 WRITE (L,576) GO TO 1000 77 WRITE (L,577) GO TO 1000 78 WRITE (L,578) GO TO 1000 79 WRITE (L,579) GO TO 1000 80 WRITE (L,580) GO TO 1000 81 WRITE (L,581) GO TO 1000 82 WRITE (L,582) GO TO 1000 83 WRITE (L,583) GO TO 1000 84 WRITE (L,584) GO TO 1000 85 WRITE (L,585) GO TO 1000 86 WRITE (L,586) GO TO 1000 87 WRITE (L,587) GO TO 1000 88 WRITE (L,588) GO TO 1000 89 WRITE (L,589) GO TO 1000 90 IF (ID(16) .EQ. 1) GO TO 905 WRITE (L,590) GO TO 1000 905 WRITE (L,5905) GO TO 1000 91 WRITE (L,591) (ID(K),K=11,15),ID(17),FID(18),(ID(K),K=19,21) M = ID(17) IF (M .GE. 8) NOGO = 14 IF (ID(16) .NE. 1) GO TO 911 IF (M.EQ.2 .OR. M.GT.3) NOGO = 14 IF (M .EQ. 0) M = 10 IF (M .EQ. 1) M = 13 IF (M .EQ. 3) M = 14 911 IF (M .GT. 0) WRITE (L,5911) (RT(K,M),K=1,8),SECTN(1) ID22 = ID(22) GO TO 1000 92 WRITE (L,592) GO TO 1000 93 WRITE (L,593) (ID(K),K=11,17),FID(18),(ID(K),K=19,21) M = ID(17) 933 IF (M .GE. 3) NOGO = 14 IF (M .EQ. 1) M = 6 IF (M .EQ. 2) M = 11 IF (M .EQ. 3) M = 8 IF (M .EQ. 4) M = 1 GO TO 911 94 WRITE (L,594) GO TO 1000 95 WRITE (L,595) GO TO 1000 96 WRITE (L,596) SECTN(1) = SECTN(2) GO TO 1000 97 WRITE (L,597) GO TO 1000 98 WRITE (L,598) (ID(K),K=11,18) M = ID(18) GO TO 933 99 IF (ID(3) .EQ. 4) GO TO 1007 WRITE (L,599) (ID(K),K=11,16) M = ID(16) IF (ID(17) .NE. 1) GO TO 911 IF (M .GT. 2) NOGO = 14 IF (M .EQ. 0) M = 10 IF (M .EQ. 1) M = 13 IF (M .EQ. 2) M = 15 GO TO 911 C C ID(3)=2, ID(17)=0, METHOD IS COMPLEX INV C ID(3)=2, ID(17)=1, METHOD IS COMPLEX FEER C ID(3)=4, ID(17)=0, METHOD IS COMPLEX HESS C 100 SECTN(1) = SECTN(2) IF (ID(17) .EQ. 1) GO TO 1005 IF (ID( 3) .EQ. 4) GO TO 1006 WRITE (L,600) GO TO 1000 1005 WRITE (L,6005) GO TO 1000 1006 WRITE (L,6006) GO TO 1000 1007 WRITE (L,6007) ID(11),ID(12),ID(18) M = ID(18) GO TO 933 101 F = SQRT(ABS(FID(6)))/TWOPI WRITE (L,601) FID(6),F LINET = LINET + 1 GO TO 1000 102 F = SQRT(ABS(FID(6)))/TWOPI WRITE (L,602) FID(6),F LINET = LINET + 1 GO TO 1000 103 WRITE (L,603) FID(5) GO TO 1000 104 CONTINUE WRITE (L,604) FID(5) GO TO 1000 105 WRITE (L,605) FID(5) GO TO 1000 106 CONTINUE WRITE (L,606) FID(5) GO TO 1000 107 WRITE (L,607) ID(5) GO TO 1000 108 WRITE (L,608) ID(5) GO TO 1000 109 CYCFRQ = ABS(FID(7)) / TWOPI WRITE (L,609) FID(6),FID(7),CYCFRQ GO TO 1000 110 CONTINUE CYCFRQ = ABS(FID(7)) / TWOPI WRITE (L,610) FID(6),FID(7),CYCFRQ GO TO 1000 111 WRITE (L,611) GO TO 1000 112 WRITE (L,612) GO TO 1000 113 WRITE (L,613) GO TO 1000 114 WRITE (L,614) GO TO 1000 115 WRITE (L,615) GO TO 1000 116 WRITE (L,616) GO TO 1000 117 WRITE (L,617) GO TO 1000 118 WRITE (L,618) GO TO 1000 119 WRITE (L,619) GO TO 1000 120 WRITE (L,620) GO TO 1000 121 WRITE (L,621) GO TO 1000 122 WRITE (L,622) GO TO 1000 123 WRITE (L,623) GO TO 1000 124 WRITE (L,624) ID(5) GO TO 1000 125 WRITE (L,625) GO TO 1000 126 WRITE (L,626) GO TO 1000 127 WRITE (L,627) GO TO 1000 128 WRITE (L,628) GO TO 1000 129 WRITE (L,629) GO TO 1000 130 WRITE (L,630) GO TO 1000 131 WRITE (L,631) GO TO 1000 132 WRITE (L,632) GO TO 1000 133 WRITE (L,633) GO TO 1000 134 WRITE (L,634) GO TO 1000 135 WRITE (L,635) GO TO 1000 136 WRITE (L,636) GO TO 1000 137 WRITE (L,637) GO TO 1000 138 WRITE (L,638) GO TO 1000 139 WRITE (L,639) GO TO 1000 140 WRITE (L,640) GO TO 1000 141 CONTINUE GO TO 1000 142 WRITE (L,642) GO TO 1000 143 WRITE (L,643) GO TO 1000 144 WRITE (L,644) GO TO 1000 145 WRITE (L,645) GO TO 1000 146 WRITE (L,646) GO TO 1000 147 CONTINUE GO TO 1000 148 WRITE (L,648) GO TO 1000 149 WRITE (L,649) GO TO 1000 150 WRITE (L,650) GO TO 1000 151 WRITE (L,651) GO TO 1000 152 WRITE (L,652) GO TO 1000 153 WRITE (L,653) GO TO 1000 154 WRITE (L,654) GO TO 1000 155 WRITE (L,655) GO TO 1000 156 WRITE (L,656) GO TO 1000 157 WRITE (L,657) GO TO 1000 158 WRITE (L,658) GO TO 1000 159 WRITE (L,659) GO TO 1000 160 WRITE (L,660) GO TO 1000 161 WRITE (L,661) GO TO 1000 162 WRITE (L,662) GO TO 1000 163 WRITE (L,663) GO TO 1000 164 WRITE (L,664) GO TO 1000 165 WRITE (L,665) GO TO 1000 166 WRITE (L,666) GO TO 1000 167 WRITE (L,667) GO TO 1000 168 WRITE (L,668) GO TO 1000 169 WRITE (L,669) GO TO 1000 170 WRITE (L,670) GO TO 1000 171 WRITE (L,671) GO TO 1000 172 WRITE (L,672) GO TO 1000 173 WRITE (L,673) GO TO 1000 174 WRITE (L,674) 1000 CONTINUE RETURN C C 501 FORMAT (45X,37HD I S P L A C E M E N T V E C T O R) 502 FORMAT (6X,16HPOINT ID. TYPE,10X,2HT1,13X,2HT2,13X,2HT3,13X, 1 2HR1,13X,2HR2,13X,2HR3) 503 FORMAT (46X, 31HR E A L E I G E N V A L U E S,/) 504 FORMAT (3X, 4HMODE, 4X, 10HEXTRACTION, 7X, 10HEIGENVALUE, 12X, 1 6HRADIAN, 14X, 6HCYCLIC, 2X, 2(9X, 11HGENERALIZED)) 505 FORMAT (4X,3HNO., 7X, 5HORDER, 30X, 9HFREQUENCY, 11X, 9HFREQUENCY, 1 12X,4HMASS, 14X, 9HSTIFFNESS,/) 5050 FORMAT (/37X,16(4H****), /37X,1H*,62X,1H*, /37X,1H*) 5051 FORMAT (1H+,45X,'NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY', 1 9X,1H*, /37X,1H*,I10,' EIGENVALUE(S) AT LOW FREQ. END NOT', 2 ' FOUND',11X,1H*) 5052 FORMAT (1H+,39X,'NASTRAN INFORMATION MESSAGE 3308, LOWEST EIGEN', 1 'VALUE FOUND',3X,1H*, /37X,1H*,2X,'AS INDICATED BY THE ', 2 'STURM''S SEQUENCE OF THE DYNAMIC MATRIX',2X,1H*) 5053 FORMAT (1H+,42X,'NASTRAN WARNING MESSAGE 3309, ALL LOWER EIGEN', 1 'VALUES',6X,1H*, /37X,1H*, 5X,'NOT NECESSARY FOUND.',37X, 2 1H*) 5054 FORMAT (37X,1H*,62X,1H*, /37X,1H*,8X, 1 43H(THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37),11X,1H*, 1 /37X,16(4H****),/) 506 FORMAT (41X,39HR E A L E I G E N V E C T O R N O .,I11) 507 FORMAT (7X,7HELEMENT,11X,5HAXIAL,37X,7HELEMENT,11X,5HAXIAL) 508 FORMAT (9X,3HID.,13X,5HFORCE,10X,6HTORQUE,23X,3HID.,13X,5HFORCE, 1 10X,6HTORQUE) 509 FORMAT (12H0 ELEMENT,9X,17HBEND-MOMENT END-A,12X,17HBEND-MOMENT 1 END-B,16X,9H- SHEAR -,15X,5HAXIAL) 510 FORMAT (4X,9H ID. ,3(6X,7HPLANE 1,7X,7HPLANE 2,2X),7X,5HFORCE, 1 9X,6HTORQUE) 511 FORMAT (7X,7HELEMENT,11X,5HFORCE,10X,5HFORCE,22X,7HELEMENT,11X, 1 5HFORCE,10X,5HFORCE) 512 FORMAT (9X,3HID.,12X,7HPTS 1,3,8X,7HPTS 2,4,23X,3HID.,12X, 1 7HPTS 1,3,8X,7HPTS 2,4) 513 FORMAT (7X,7HELEMENT,10X,6HMOMENT,9X,6HMOMENT,22X,7HELEMENT,10X, 1 6HMOMENT,9X,6HMOMENT) 514 FORMAT (1H0,8X,7HELEMENT,2(11X,11HBEND-MOMENT),10X,12HTWIST-MOMENT 1, 2(13X,5HSHEAR,4X)) 515 FORMAT (11X,3HID.,17X,1HX,21X,1HY,43X,1HX,21X,1HY) 516 FORMAT (6X,3(7HELEMENT,9X,5HFORCE,12X),7HELEMENT,9X,5HFORCE) 517 FORMAT (8X,3(3HID.,30X),3HID.) 518 FORMAT (2(7X,7HELEMENT,7X,5HAXIAL,7X,6HSAFETY,6X,9HTORSIONAL,5X, 1 6HSAFETY)) 519 FORMAT (2(9X,3HID.,8X,6HSTRESS,7X,6HMARGIN,8X,6HSTRESS,6X, 1 6HMARGIN)) 520 FORMAT (2X,7HELEMENT,8X,3HSA1,12X,3HSA2,12X,3HSA3,15X,1HS,14X, 1 6HSA-MAX,9X,6HSA-MIN,11X,6HM.S.-T) 521 FORMAT (4X,3HID.,10X,3HSB1,12X,3HSB2,12X,3HSB3,30X,6HSB-MAX,9X, 1 6HSB-MIN,11X,6HM.S.-C) 522 FORMAT (2(9X,7HELEMENT,12X,3HMAX,12X,3HAVG,8X,6HSAFETY)) 523 FORMAT (2(11X,3HID.,13X,5HSHEAR,10X,5HSHEAR,7X,6HMARGIN)) 524 FORMAT (2(11X,3HID.,40X,6HMARGIN)) 525 FORMAT (2X,7HELEMENT,11X,32HSTRESSES IN ELEMENT COORD SYSTEM,12X, 1 9HPRINCIPAL,11X,18HPRINCIPAL STRESSES,12X,3HMAX) 526 FORMAT (4X,3HID.,11X,8HNORMAL-X,7X,8HNORMAL-Y,7X,8HSHEAR-XY,6X, 1 12HSTRESS ANGLE,9X,5HMAJOR,10X,5HMINOR,10X,5HSHEAR) 527 FORMAT (2X,7HELEMENT,6X,5HFIBRE,15X,'STRESSES IN ELEMENT COORD ', 1 'SYSTEM',13X,'PRINCIPAL STRESSES (ZERO SHEAR)',12X,3HMAX) 528 FORMAT (4X,3HID.,7X,8HDISTANCE,11X,8HNORMAL-X,7X,8HNORMAL-Y,6X, 1 8HSHEAR-XY,7X,5HANGLE,9X,5HMAJOR,11X,5HMINOR,10X,5HSHEAR) 529 FORMAT (6X,3(7HELEMENT,9X,6HSTRESS,11X),7HELEMENT,9X,6HSTRESS) 530 FORMAT (30X,'G R I D P O I N T S I N G U L A R I T Y ', 1 'T A B L E',6X,3HSPC,I9,3X,3HMPC,I9) 531 FORMAT (8X,5HPOINT,10X,11HSINGULARITY,18X,'LIST OF COORDINATE ', 1 'COMBINATIONS THAT WILL REMOVE SINGULARITY') 532 FORMAT (9X,3HID.,3X,4HTYPE,7X,5HORDER,7X,21HSTRONGEST COMBINATION, 1 15X,18HWEAKER COMBINATION,17X,19HWEAKEST COMBINATION) 533 FORMAT (53X,21HL O A D V E C T O R) 534 FORMAT (2X,7HELEMENT,8X,3HSA1,12X,3HSA2,12X,3HSA3,12X,3HSA4,11X, 1 5HAXIAL,10X,6HSA-MAX,9X,17HSA-MIN M.S.-T) 535 FORMAT (4X,3HID.,10X,3HSB1,12X,3HSB2,12X,3HSB3,12X,3HSB4,11X, 1 6HSTRESS,9X,6HSB-MAX,9X,17HSB-MIN M.S.-C) 536 FORMAT (43X,'F O R C E S I N R O D E L E M E N T S',5X, 1 '( C R O D )') 537 FORMAT (33X,'F O R C E S I N B E A M E L E M E N T S',8X, 1 '( C B E A M )') 538 FORMAT (27X,'F O R C E S A C T I N G O N S H E A R ', 1 'P A N E L E L E M E N T S ( C S H E A R )') 539 FORMAT (37X,'F O R C E S I N T W I S T P A N E L S',6X, 1 '( C T W I S T )') 540 FORMAT (21X,'F O R C E S I N B A S I C B E N D I N G ', 1 'T R I A N G L E S',7X,'( C T R B S C )') 541 FORMAT (30X,'F O R C E S I N S C A L A R S P R I N G S',8X, 1 '( C E L A S 1 )') 542 FORMAT (30X,'F O R C E S I N S C A L A R S P R I N G S',8X, 1 '( C E L A S 2 )') 543 FORMAT (30X,'F O R C E S I N S C A L A R S P R I N G S',8X, 1 '( C E L A S 3 )') 544 FORMAT (30X,'F O R C E S I N S C A L A R S P R I N G S',8X, 1 '( C E L A S 4 )') 545 FORMAT (31X,'F O R C E S O F S I N G L E - P O I N T ', 1 'C O N S T R A I N T') 546 FORMAT (43X,'F O R C E S I N R O D E L E M E N T S',5X, 1 '( C O N R O D )') 547 FORMAT (33X,'F O R C E S I N B A R E L E M E N T S',9X, 1 '( C B A R )') 548 FORMAT (17X,'F O R C E S I N B E N D I N G Q U A D R I L A', 1 ' T E R A L S',9X,'( C Q D P L T )') 549 FORMAT (17X,'F O R C E S I N G E N E R A L Q U A D R I L A', 1 ' T E R A L E L E M E N T S ( C Q U A D 1 )') 550 FORMAT (17X,'F O R C E S I N G E N E R A L Q U A D R I L A', 1 'T E R A L E L E M E N T S ( C Q U A D 2 )') 551 FORMAT (21X,'F O R C E S I N G E N E R A L T R I A N G U L', 1 ' A R E L E M E N T S',8X,'( C T R I A 1 )') 552 FORMAT (21X,'F O R C E S I N G E N E R A L T R I A N G U L', 1 ' A R E L E M E N T S',8X,'( C T R I A 2 )') 553 FORMAT (27X,'F O R C E S I N B E N D I N G T R I A N G L E', 1 ' S ( C T R P L T )') 554 FORMAT (33X,'F O R C E S I N R O D E L E M E N T S ', 1 '( C T U B E )') 555 FORMAT (37X,'S T R E S S E S I N R O D E L E M E N T S',6X, 1 '( C R O D )') 556 FORMAT (34X,'S T R E S S E S I N B E A M E L E M E N T S', 1 8X,'( C B E A M )') 557 FORMAT (40X,'S T R E S S E S I N S H E A R P A N E L S',6X, 1 '( C S H E A R )') 558 FORMAT (40X,'S T R E S S E S I N T W I S T P A N E L S',7X, 1 '( C T W I S T )') 559 FORMAT (22X,'S T R E S S E S I N T R I A N G U L A R ', 1 'M E M B R A N E S ( C T R M E M )') 560 FORMAT (19X,'S T R E S S E S I N B A S I C B E N D I N G ', 1 ' T R I A N G L E S',8X,'( C T R B S C )') 561 FORMAT (30X,'S T R E S S E S I N S C A L A R S P R I N G S', 1 8X,'( C E L A S 1 )') 562 FORMAT (30X,'S T R E S S E S I N S C A L A R S P R I N G S', 1 8X,'( C E L A S 2 )') 563 FORMAT (30X,'S T R E S S E S I N S C A L A R S P R I N G S', 1 8X,'( C E L A S 3 )') 564 FORMAT (33X,'S T R E S S E S I N B A R E L E M E N T S',10X, 1 '( C B A R )') 565 FORMAT (37X,'S T R E S S E S I N R O D E L E M E N T S',6X, 1 '( C O N R O D )') 566 FORMAT (21X,'S T R E S S E S I N Q U A D R I L A T E R A L ', 1 ' M E M B R A N E S ( C Q D M E M )') 567 FORMAT (18X,'S T R E S S E S I N B E N D I N G Q U A D R I', 1 ' L A T E R A L S',13X,'( C Q D P L T )') 568 FORMAT (18X,'S T R E S S E S I N G E N E R A L Q U A D R I', 1 ' L A T E R A L E L E M E N T S',6X,'( C Q U A D 1 )') 569 FORMAT (18X,'S T R E S S E S I N G E N E R A L Q U A D R I', 1 ' L A T E R A L E L E M E N T S',6X,'( C Q U A D 2 )') 570 FORMAT (18X,'S T R E S S E S I N G E N E R A L T R I A N G', 1 ' U L A R E L E M E N T S',7X,'( C T R I A 1 )') 571 FORMAT (18X,'S T R E S S E S I N G E N E R A L T R I A N G', 1 ' U L A R E L E M E N T S',7X,'( C T R I A 2 )') 572 FORMAT (24X,'S T R E S S E S I N B E N D I N G T R I A N G', 1 ' L E S',8X,'( C T R P L T )') 573 FORMAT (36X,'S T R E S S E S I N R O D E L E M E N T S',6X, 1 '( C T U B E )') 574 FORMAT (20X,'S T R E S S E S F O R T H E T R I A N G U L A', 1 ' R R I N G S',5X,'( C T R I A R G )') 575 FORMAT (5X,3HEL ,13X,6HRADIAL,20X,15HCIRCUMFERENTIAL,20X,5HAXIAL, 1 25X,5HSHEAR) 576 FORMAT (5X,3HID ,15X,3H(X),25X,7H(THETA),25X,3H(Z),27X,4H(ZX)) 577 FORMAT (18X,'S T R E S S E S F O R T H E T R A P E Z O I D', 1 ' A L R I N G S',5X,'( C T R A P R G )') 578 FORMAT (5X,3HEL ,5X,6HSTRESS,15X,6HRADIAL,16X,15HCIRCUMFERENTIAL, 1 16X,5HAXIAL,21X,5HSHEAR) 579 FORMAT (5X,3HID ,6X,5HPOINT,17X,3H(X),21X,7H(THETA),21X,3H(Z),23X, 1 4H(ZX)) 580 FORMAT (11X,'S T R E S S R E S U L T A N T S F O R T H E ', 1 ' T O R O I D A L R I N G S ( C T O R D R G )') 581 FORMAT (5X, 3HEL , 8H STRESS, 15X, 17HMEMBRANE (FORCES), 26X, 1 17HFLEXURE (MOMENTS), 23X, 5HSHEAR) 582 FORMAT (5X,2HID,9H POINT,8X,10HTANGENTIAL,10X,'CIRCUMFERENTIAL' 1, 8X,10HTANGENTIAL,11X,15HCIRCUMFERENTIAL,10X,7H(FORCE)) 583 FORMAT (22X,'F O R C E S F O R T H E T R I A N G U L A R ', 1 ' R I N G S ( C T R I A R G )') 584 FORMAT (5X,12HEL CORNER,18X,6HRADIAL,26X,15HCIRCUMFERENTIAL, 1 26X,5HAXIAL) 585 FORMAT (5X,12HID POINT,20X,3H(X),31X,7H(THETA),31X,3H(Z)) 586 FORMAT (21X,'F O R C E S F O R T H E T R A P E Z O I D A L', 1 ' R I N G S ( C T R A P R G )') 587 FORMAT (23X,'F O R C E S F O R T H E T O R O I D A L ', 1 'R I N G S ( C T O R D R G )') 588 FORMAT (5X,12HEL CORNER,9X,6HRADIAL,8X,15HCIRCUMFERENTIAL,7X, 1 5HAXIAL,13X,6HMOMENT,9X,13HDIRECT STRAIN,7X,9HCURVATURE) 589 FORMAT (5X,12HID POINT,11X,3H(X),13X,7H(THETA),12X,3H(Z),15X, 1 4H(ZX),14X,4H(XI),13X,7H(XI,XI)) 590 FORMAT (30X,'E I G E N V A L U E A N A L Y S I S S U M M A R', 1 ' Y (INVERSE POWER METHOD)') 5905 FORMAT (30X,'E I G E N V A L U E A N A L Y S I S S U M M A R', 1 ' Y',9X,'(FEER METHOD)') 591 FORMAT (1H0, /1H0,39X,32HNUMBER OF EIGENVALUES EXTRACTED ,6(2H .), 1 I10,/1H0,39X,30HNUMBER OF STARTING POINTS USED,7(2H .),I10, 2 /1H0,39X,30HNUMBER OF STARTING POINT MOVES,7(2H .),I10, 3 /1H0,39X,36HNUMBER OF TRIANGULAR DECOMPOSITIONS ,4(2H .), 4 I10,/1H0,39X,34HTOTAL NUMBER OF VECTOR ITERATIONS ,5(2H .), 4 I10,//1H0,39X,22HREASON FOR TERMINATION,11(2H .),I10,1H*,/, 5 /1H0,39X,36HLARGEST OFF-DIAGONAL MODAL MASS TERM,4(2H .), 6 E10.2, /1H0,77X,3(2H .),I10, /50X,9HMODE PAIR ,10(2H .), 7 /78X,3(2H .),I10, /1H0,39X,'NUMBER OF OFF-DIAGONAL MODAL ', 8 'MASS', /45X,23HTERMS FAILING CRITERION,8(2H .),I10) 5911 FORMAT (/1H0,39X,3H(* ,8A4, /41X,'SEE NASTRAN U.M. VOL II, ', 1 'SECTION 2',A4,1H)) 592 FORMAT (26X,'E I G E N V A L U E A N A L Y S I S S U M M A R', 1 ' Y (DETERMINANT METHOD)') 593 FORMAT (1H0, /1H0,39X,32HNUMBER OF EIGENVALUES EXTRACTED ,6(2H .), 1 I9,/1H0,39X,44HNUMBER OF PASSES THROUGH STARTING POINTS . . 2, I9,/1H0,39X,26HNUMBER OF CRITERIA CHANGES,9(2H .),I9, 3 /1H0,39X,30HNUMBER OF STARTING POINT MOVES,7(2H .),I9, 4 /1H0,39X,36HNUMBER OF TRIANGULAR DECOMPOSITIONS ,4(2H .), 5 I9,/1H0,39X,44HNUMBER OF FAILURES TO ITERATE TO A ROOT . . 6, I9, //1H0,39X,22HREASON FOR TERMINATION,11(2H .),I9,1H*, 7 //,1H0,39X,36HLARGEST OFF-DIAGONAL MODAL MASS TERM,4(2H .), 8 E9.2,/1H0,77X,3(2H .),I9,/50X, 9HMODE PAIR ,10(2H .), /78X, 9 3(2H .),I9, /1H0,39X,33HNUMBER OF OFF-DIAGONAL MODAL MASS, O /45X,23HTERMS FAILING CRITERION,8(2H .),I9) 594 FORMAT (10X,14HSTARTING POINT,6X,6HLAMBDA,9X,'RADIAN FREQUENCY ', 1 ' CYCLIC FREQUENCY DETERMINANT',9X,'SCALE FACTOR',/) 595 FORMAT (1H0,40X,'S W E P T D E T E R M I N A N T F U N C T I', 1 ' O N',/) 596 FORMAT (20X,'C O M P L E X E I G E N V A L U E A N A L Y S I', 1 ' S S U M M A R Y (DETERMINANT METHOD)') 597 FORMAT (42X,5H- P -,35X,10H- DET(P) -, /10X,14HSTARTING POINT,10X, 1 4HREAL,13X,4HIMAG,20X,9HMAGNITUDE,9X,5HPHASE,5X, 2 12HSCALE FACTOR) 598 FORMAT (1H0, /1H0,39X,32HNUMBER OF EIGENVALUES EXTRACTED ,6(2H .), 1 I9,/1H0,39X,44HNUMBER OF PASSES THROUGH STARTING POINTS . . 2, I9,/1H0,39X,26HNUMBER OF CRITERIA CHANGES,9(2H .),I9, 3 /1H0,39X,30HNUMBER OF STARTING POINT MOVES,7(2H .),I9, 4 /1H0,39X,36HNUMBER OF TRIANGULAR DECOMPOSITIONS ,4(2H .), 5 I9,/1H0,39X,44HNUMBER OF FAILURES TO ITERATE TO A ROOT . . 6, I9,/1H0,39X,36HNUMBER OF PREDICTIONS OUTSIDE REGION,4(2H .) 7, I9,/1H0,/1H0,39X,22HREASON FOR TERMINATION,11(2H .),I9,1H*) 599 FORMAT (1H0, /1H0, /1H0,35X,32HNUMBER OF EIGENVALUES EXTRACTED , 1 9(2H .),I9, /1H0,35X,30HNUMBER OF STARTING POINTS USED, 2 10(2H .),I9, /1H0,35X, 3 50HNUMBER OF STARTING POINT OR SHIFT POINT MOVES . .,I9, 4 /1H0,35X,42HTOTAL NUMBER OF TRIANGULAR DECOMPOSITIONS , 5 4(2H .),I9, /1H0,35X,34HTOTAL NUMBER OF VECTOR ITERATIONS , 6 8(2H .),I9, /1H0, /1H0,35X,22HREASON FOR TERMINATION, 7 14(2H .),I9,1H*) 600 FORMAT (19X,'C O M P L E X E I G E N V A L U E A N A L Y S I', 1 ' S S U M M A R Y (INVERSE POWER METHOD)') 6005 FORMAT (23X,'C O M P L E X E I G E N V A L U E A N A L Y S I', 1 ' S S U M M A R Y (FEER METHOD)') 6006 FORMAT (20X,'C O M P L E X E I G E N V A L U E A N A L Y S I', 1 ' S S U M M A R Y (HESSENBERG METHOD)') 6007 FORMAT (1H0, /1H0, /,1H0,35X,32HNUMBER OF EIGENVALUES EXTRACTED , 1 9(2H .),I9, /,1H0,35X,30HNUMBER OF EIGENVALUES DESIRED , 2 10(2H .),I9, /,1H0,35X,22HREASON FOR TERMINATION,14(2H .), 3 I9,1H*) 601 FORMAT (6X, 'EIGENVALUE =',E14.6, * 4X, '(CYCLIC FREQUENCY =', E14.6, ' HZ)'/) 602 FORMAT (6X, 'EIGENVALUE =',E14.6, * 4X, '(CYCLIC FREQUENCY =', 1P,E14.6, ' HZ)'/) 603 FORMAT (6X,11HFREQUENCY =,E14.6) 604 FORMAT (6X,11HFREQUENCY =,1P,E14.6) 605 FORMAT (6X,6HTIME =,E14.6) 606 FORMAT (6X,6HTIME =,1P,E14.6) 607 FORMAT (6X,10HPOINT-ID =,I8) 608 FORMAT (6X,12HELEMENT-ID =,I8,/) 609 FORMAT (6X,20HCOMPLEX EIGENVALUE =,E14.6,1H,,E14.6, * 4X, '(CYCLIC FREQUENCY =', E14.6, 'HZ)') 610 FORMAT (6X,20HCOMPLEX EIGENVALUE =,1P,E14.6,1H,,1P,E14.6, * 4X, '(CYCLIC FREQUENCY =', 1P,E14.6, 'HZ)') 611 FORMAT (6X,16HFREQUENCY TYPE,10X,2HT1,13X,2HT2,13X,2HT3,13X, 1 2HR1,13X,2HR2,13X,2HR3) 612 FORMAT (6X,16H TIME TYPE,10X,2HT1,13X,2HT2,13X,2HT3,13X, 1 2HR1,13X,2HR2,13X,2HR3) 613 FORMAT (48X,30HV E L O C I T Y V E C T O R ) 614 FORMAT (44X,38HA C C E L E R A T I O N V E C T O R ) 615 FORMAT (41X,45HN O N - L I N E A R - F O R C E V E C T O R ) 616 FORMAT (40X,'C O M P L E X E I G E N V A L U E S U M M A R Y') 617 FORMAT (1H0,16X,19HROOT EXTRACTION,18X,10HEIGENVALUE,21X, 1 9HFREQUENCY,14X,7HDAMPING) 618 FORMAT (18X,3HNO.,8X,5HORDER,13X,6H(REAL),11X,6H(IMAG),16X, 1 8H(CYCLES),12X,11HCOEFFICIENT) 619 FORMAT (39X,'C O M P L E X D I S P L A C E M E N T V E C T O R 1' ) 620 FORMAT (43X,'C O M P L E X V E L O C I T Y V E C T O R') 621 FORMAT (39X,'C O M P L E X A C C E L E R A T I O N V E C T O R 1' ) 622 FORMAT (25X,'C O M P L E X F O R C E S O F S I N G L E ', 1 'P O I N T C O N S T R A I N T') 623 FORMAT (47X,'C O M P L E X L O A D V E C T O R') 624 FORMAT (39X,'C O M P L E X E I G E N V E C T O R NO.',I11) 625 FORMAT (58X,'(REAL/IMAGINARY)') 626 FORMAT (57X,'(MAGNITUDE/PHASE)') 627 FORMAT (27X,'C O M P L E X S T R E S S E S I N B A R E L', 1 ' E M E N T S ( C B A R )') 628 FORMAT (23X,'C O M P L E X S T R E S S E S I N S C A L A R', 1 ' S P R I N G S ( C E L A S 1 )') 629 FORMAT (23X,'C O M P L E X S T R E S S E S I N S C A L A R', 1 ' S P R I N G S ( C E L A S 2 )') 630 FORMAT (23X,'C O M P L E X S T R E S S E S I N S C A L A R', 1 ' S P R I N G S ( C E L A S 3 )') 631 FORMAT (25X,'C O M P L E X S T R E S S E S I N R O D E L', 1 ' E M E N T S ( C O N R O D )') 632 FORMAT (14X,'C O M P L E X S T R E S S E S I N Q U A D R I', 1 ' L A T E R A L M E M B R A N E S ( C Q D M E M )') 633 FORMAT (16X,'C O M P L E X S T R E S S E S I N B E N D I N', 1 ' G Q U A D R I L A T E R A L S ( C Q D P L T )') 634 FORMAT (6X,'C O M P L E X S T R E S S E S I N G E N E R A L' 1, ' Q U A D R I L I A T E R A L E L E M E N T S ', 2 '( C Q U A D 1)') 635 FORMAT (6X,'C O M P L E X S T R E S S E S I N G E N E R A L' 1, ' Q U A D R I L I A T E R A L E L E M E N T S ', 2 '( C Q U A D 2 )') 636 FORMAT (27X,'C O M P L E X S T R E S S E S I N R O D E L', 1 ' E M E N T S ( C R O D )') 637 FORMAT (25X,'C O M P L E X S T R E S S E S I N S H E A R ', 1 ' P A N E L S ( C S H E A R )') 638 FORMAT (14X,'C O M P L E X S T R E S S E S I N B A S I C ', 1 ' B E N D I N G T R I A N G L E S ( C T R B S C )') 639 FORMAT (10X,'C O M P L E X S T R E S S E S I N G E N E R A', 1 ' L T R I A N G U L A R E L E M E N T S ', 2 '( C T R I A 1 )') 640 FORMAT (11X,'C O M P L E X S T R E S S E S I N G E N E R A', 1 ' L T R I A N G U L A R E L E M E N T S ', 2 '( C T R I A 2 )') 642 FORMAT (17X,'C O M P L E X S T R E S S E S I N T R I A N G', 1 ' U L A R M E M B R A N E S ( C T R M E M )') 643 FORMAT (20X,'C O M P L E X S T R E S S E S I N B E N D I N', 1 ' G T R I A N G L E S ( C T R P L T )') 644 FORMAT (26X,'C O M P L E X S T R E S S E S I N R O D ', 1 'E L E M E N T S ( C T U B E )') 645 FORMAT (25X,'C O M P L E X S T R E S S E S I N T W I S T ', 1 ' P A N E L S ( C T W I S T )') 646 FORMAT (29X,'C O M P L E X F O R C E S I N B A R E L E M', 1 ' E N T S ( C B A R )') 648 FORMAT (25X,'C O M P L E X F O R C E S I N S C A L A R ', 1 'S P R I N G S ( C E L A S 1 )') 649 FORMAT (25X,'C O M P L E X F O R C E S I N S C A L A R ', 1 'S P R I N G S ( C E L A S 2 )') 650 FORMAT (25X,'C O M P L E X F O R C E S I N S C A L A R ', 1 'S P R I N G S ( C E L A S 3 )') 651 FORMAT (25X,'C O M P L E X F O R C E S I N S C A L A R ', 1 'S P R I N G S ( C E L A S 4 )') 652 FORMAT (27X,'C O M P L E X F O R C E S I N R O D E L E M', 1 ' E N T S ( C O N R O D )') 653 FORMAT (17X,'C O M P L E X F O R C E S I N B E N D I N G ', 1 ' Q U A D R I L A T E R A L S ( C Q D P L T )') 654 FORMAT (9X,'C O M P L E X F O R C E S I N G E N E R A L ', 1 'Q U A D R I L A T E R A L E L E M E N T S ', 2 '( C Q U A D 1 )') 655 FORMAT (9X,'C O M P L E X F O R C E S I N G E N E R A L ', 1 'Q U A D R I L A T E R A L E L E M E N T S ', 2 '( C Q U A D 2 )') 656 FORMAT (29X,'C O M P L E X F O R C E S I N R O D E L E M', 1 ' E N T S ( C R O D )') 657 FORMAT (7X,'C O M P L E X F O R C E S A C T I N G O N ', 1 'S H E A R P A N E L E L E M E N T S (C S H E A R)') 658 FORMAT (16X,'C O M P L E X F O R C E S I N B A S I C B E', 1 ' N D I N G T R I A N G L E S ( C T R B S C )') 659 FORMAT (12X,'C O M P L E X F O R C E S I N G E N E R A L ', 1 ' T R I A N G U L A R E L E M E N T S ( C T R I A 1 )') 660 FORMAT (12X,'C O M P L E X F O R C E S I N G E N E R A L ', 1 ' T R I A N G U L A R E L E M E N T S ( C T R I A 2 )') 661 FORMAT (22X, 'C O M P L E X F O R C E S I N B E N D I N G ', 1 ' T R I A N G L E S ( C T R P L T )') 662 FORMAT (28X,'C O M P L E X F O R C E S I N R O D E L E M', 1 ' E N T S ( C T U B E )') 663 FORMAT (27X,'C O M P L E X F O R C E S I N T W I S T P A', 1 ' N E L S ( C T W I S T )') 664 FORMAT (12X,7HELEMENT,20X,4(8HLOCATION,7X ),6X,7HAVERAGE, /14X, 1 3HID.,26X,1H1,14X,1H2,14X,1H3,14X,1H4,13X,12HAXIAL STRESS) 665 FORMAT (17X,7HELEMENT,29X,5HAXIAL,39X,9HTORSIONAL, /19X,3HID.,30X, 1 6HSTRESS,41X,6HSTRESS) 666 FORMAT (17X,7HELEMENT,28X,7HMAXIMUM,39X,7HAVERAGE, /19X,3HID.,31X, 1 5HSHEAR,41X,5HSHEAR) 667 FORMAT (17X,7HELEMENT,29X,5HAXIAL,41X,6HTORQUE, /19X,3HID.,31X, 1 5HFORCE) 668 FORMAT (9H ELEMENT,7X,5HFIBRE,37X,'- STRESSES IN ELEMENT COORDI', 1 'NATE SYSTEM -', /4X,3HID.,8X,8HDISTANCE,18X,8HNORMAL-X, 2 26X,8HNORMAL-Y,25X,8HSHEAR-XY) 669 FORMAT (13X,7HELEMENT,33X,'- STRESSES IN ELEMENT COORDINATE SYST', 1 'EM -', /15X,3HID.,18X,8HNORMAL-X,26X,8HNORMAL-Y,26X, 2 8HSHEAR-XY) 670 FORMAT (2(16X,7HELEMENT,35X), /2(18X,3HID.,20X,5HFORCE,12X)) 671 FORMAT (2(16X,7HELEMENT,35X), /2(18X,3HID.,19X,6HSTRESS,12X)) 672 FORMAT (17X,7HELEMENT,29X,5HFORCE,42X,5HFORCE) 673 FORMAT (19X,3HID.,30X,7HPTS 1,3,40X,7HPTS 2,4) 674 FORMAT (17X,7HELEMENT,28X,6HMOMENT,41X,6HMOMENT) C END ================================================ FILE: mis/ofp1b.f ================================================ SUBROUTINE OFP1B (LINE) C C THIS SUBROUTINE WAS FORMED ONLY TO REDUCE THE SIZE OF OFP1 FOR C COMPILATION PURPOSES. IT IS CALLED ONLY BY OFP1. C PREVIOUSLY THIS ROUTINE WAS NAMED OPF1A. C DIMENSION FD(50),ID(50),OF(6) COMMON /SYSTEM/ IBUF,L,NOGO COMMON /ZZZZZZ/ CORE(1) EQUIVALENCE (CORE(1),OF(1)),(ID(1),FD(1),OF(6)) DATA IDUM1, IDUM2, IDUM3, IDUM4, IDUM5, IDUM6 / 1 4HDUM1,4HDUM2,4HDUM3,4HDUM4,4HDUM5,4HDUM6/, 2 IDUM7, IDUM8, IDUM9 / 3 4HDUM7,4HDUM8,4HDUM9/ C IF (LINE .GT. 294) GO TO 10 LOCAL = LINE - 174 GO TO (175,176,177,178,179,180,181,182,183,184,185,186,187,188,189 1 ,190,191,192,193,194,195,196,197,198,199,200,201,202,203,204 2 ,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219 3 ,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234 4 ,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249 5 ,250,251,252,253,254,255,256,257,258,259,260,261,262,263,264 6 ,265,266,267,268,269,270,271,272,273,274,275,276,277,278,279 7 ,280,281,282,283,284,285,286,287,288,289,290,291,292,293,294 8 ), LOCAL 10 IF (LINE .GT. 380) RETURN LOCAL = LINE - 294 GO TO (295,296,297,298,299,300,301,302,303,304,305,306,307,308,309 9 ,310,311,312,313,314,315,316,317,318,319,320,321,322,323,324 X ,325,326,327,328,329,330,331,332,333,334,335,336,337,338,339 B ,340,341,342,343,344,345,346,347,348,349,350,351,352,353,354 C ,355,356,357,358,359,360,361,362,363,364,365,366,367,368,369 D ,370,371,372,373,374,375,376,377,378,379,380) LOCAL 175 CONTINUE GO TO 1000 176 WRITE (L,676) GO TO 1000 177 WRITE (L,677) GO TO 1000 178 WRITE (L,678) GO TO 1000 179 WRITE (L,679) GO TO 1000 180 WRITE (L,680) GO TO 1000 181 WRITE (L,681) GO TO 1000 182 WRITE (L,682) GO TO 1000 183 WRITE (L,683) GO TO 1000 184 WRITE (L,684) GO TO 1000 185 WRITE (L,685) GO TO 1000 186 WRITE (L,686) GO TO 1000 187 WRITE (L,687) GO TO 1000 188 WRITE (L,688) GO TO 1000 189 WRITE (L,689) GO TO 1000 190 WRITE (L,690) GO TO 1000 191 WRITE (L,691) GO TO 1000 192 WRITE (L,692) GO TO 1000 193 WRITE (L,693) GO TO 1000 194 WRITE (L,694) GO TO 1000 195 WRITE (L,695) GO TO 1000 196 WRITE (L,696) GO TO 1000 197 WRITE (L,697) GO TO 1000 198 WRITE (L,698) GO TO 1000 199 WRITE (L,699) GO TO 1000 200 WRITE (L,700) GO TO 1000 201 WRITE (L,701) GO TO 1000 202 WRITE (L,702) ID(3) GO TO 1000 203 WRITE (L,703) GO TO 1000 204 WRITE (L,704) GO TO 1000 205 WRITE (L,705) GO TO 1000 206 WRITE (L,706) GO TO 1000 207 WRITE (L,707) GO TO 1000 208 WRITE (L,708) GO TO 1000 209 WRITE (L,709) GO TO 1000 210 WRITE (L,710) GO TO 1000 211 WRITE (L,711) GO TO 1000 212 WRITE (L,712) GO TO 1000 213 WRITE (L,713) GO TO 1000 214 WRITE (L,714) ID(5) GO TO 1000 215 WRITE (L,715) GO TO 1000 216 WRITE (L,716) (ID(K),K=11,14),ID(17),FD(18),(ID(K),K=19,21) IF (ID(17) .EQ. 1) WRITE (L,7161) IF (ID(17) .NE. 1) WRITE (L,7162) IF (ID(17) .NE. 1) NOGO = 14 GO TO 1000 217 WRITE (L,717) GO TO 1000 218 WRITE (L,718) GO TO 1000 219 WRITE (L,719) GO TO 1000 220 WRITE (L,720) GO TO 1000 221 WRITE (L,721) GO TO 1000 222 WRITE (L,722) GO TO 1000 223 WRITE (L,723) GO TO 1000 224 WRITE (L,724) GO TO 1000 225 WRITE (L,725) GO TO 1000 226 WRITE (L,726) GO TO 1000 227 WRITE (L,727) GO TO 1000 228 WRITE (L,728) GO TO 1000 229 IDD = MOD(ID(5),500000) JHARM = (ID(5)-IDD)/500000 IHARM = (JHARM-1)/2 IF (MOD(JHARM,2) .EQ. 1) GO TO 1229 WRITE (L,729) IDD,IHARM GO TO 1000 1229 WRITE (L,1729) IDD,IHARM GO TO 1000 230 WRITE (L,730) GO TO 1000 231 WRITE (L,731) GO TO 1000 232 WRITE (L,732) GO TO 1000 233 WRITE (L,733) GO TO 1000 234 WRITE (L,734) GO TO 1000 235 WRITE (L,735) GO TO 1000 236 WRITE (L,736) GO TO 1000 237 WRITE (L,737) GO TO 1000 238 WRITE (L,738) GO TO 1000 239 WRITE (L,739) GO TO 1000 240 WRITE (L,740) GO TO 1000 241 WRITE (L,741) GO TO 1000 242 WRITE (L,742) GO TO 1000 243 WRITE (L,743) GO TO 1000 244 WRITE (L,744) GO TO 1000 245 WRITE (L,745) GO TO 1000 246 WRITE (L,746) GO TO 1000 247 WRITE (L,747) GO TO 1000 248 WRITE (L,748) GO TO 1000 249 WRITE (L,749) GO TO 1000 250 WRITE (L,750) GO TO 1000 251 WRITE (L,751) GO TO 1000 252 WRITE (L,752) GO TO 1000 253 WRITE (L,753) GO TO 1000 254 IDX = IDUM1 GO TO 1754 255 IDX = IDUM2 GO TO 1754 256 IDX = IDUM3 GO TO 1754 257 IDX = IDUM4 GO TO 1754 258 IDX = IDUM5 GO TO 1754 259 IDX = IDUM1 GO TO 1759 260 IDX = IDUM2 GO TO 1759 261 IDX = IDUM3 GO TO 1759 262 IDX = IDUM4 GO TO 1759 263 IDX = IDUM5 GO TO 1759 264 WRITE (L,764) GO TO 1000 265 WRITE (L,765) GO TO 1000 266 IDX = IDUM1 GO TO 1766 267 IDX = IDUM2 GO TO 1766 268 IDX = IDUM3 GO TO 1766 269 IDX = IDUM4 GO TO 1766 270 IDX = IDUM5 GO TO 1766 271 IDX = IDUM1 GO TO 1771 272 IDX = IDUM2 GO TO 1771 273 IDX = IDUM3 GO TO 1771 274 IDX = IDUM4 GO TO 1771 275 IDX = IDUM5 GO TO 1771 276 WRITE (L,776) GO TO 1000 277 WRITE (L,777) GO TO 1000 278 WRITE (L,778) GO TO 1000 279 WRITE (L,779) GO TO 1000 280 IDX = IDUM6 GO TO 1754 281 IDX = IDUM7 GO TO 1754 282 IDX = IDUM8 GO TO 1754 283 IDX = IDUM9 GO TO 1754 284 IDX = IDUM6 GO TO 1759 285 IDX = IDUM7 GO TO 1759 286 IDX = IDUM8 GO TO 1759 287 IDX = IDUM9 GO TO 1759 288 IDX = IDUM6 GO TO 1766 289 IDX = IDUM7 GO TO 1766 290 IDX = IDUM8 GO TO 1766 291 IDX = IDUM9 GO TO 1766 292 IDX = IDUM6 GO TO 1771 293 IDX = IDUM7 GO TO 1771 294 IDX = IDUM8 GO TO 1771 295 IDX = IDUM9 GO TO 1771 296 WRITE (L,796) GO TO 1000 297 WRITE (L,797) GO TO 1000 298 WRITE (L,798) GO TO 1000 299 WRITE (L,799) GO TO 1000 300 WRITE (L,800) GO TO 1000 301 WRITE (L,801) GO TO 1000 302 WRITE (L,802) GO TO 1000 303 WRITE (L,803) GO TO 1000 304 WRITE (L,804) GO TO 1000 305 WRITE (L,805) GO TO 1000 306 WRITE (L,806) GO TO 1000 307 WRITE (L,807) GO TO 1000 308 WRITE (L,808) GO TO 1000 309 WRITE (L,809) GO TO 1000 310 WRITE (L,810) GO TO 1000 311 WRITE (L,811) GO TO 1000 312 WRITE (L,812) GO TO 1000 313 WRITE (L,813) GO TO 1000 314 WRITE (L,814) GO TO 1000 315 WRITE (L,815) GO TO 1000 316 WRITE (L,816) GO TO 1000 317 WRITE (L,817) GO TO 1000 318 WRITE (L,818) GO TO 1000 319 WRITE (L,819) GO TO 1000 320 WRITE (L,820) GO TO 1000 321 WRITE (L,821) GO TO 1000 322 WRITE (L,822) GO TO 1000 323 WRITE (L,823) GO TO 1000 324 WRITE (L,824) GO TO 1000 325 WRITE (L,825) GO TO 1000 326 WRITE (L,826) GO TO 1000 327 WRITE (L,827) GO TO 1000 328 IDD = ID(3) - 64 WRITE (L,828) IDD GO TO 1000 329 WRITE (L,829) GO TO 1000 330 WRITE (L,830) GO TO 1000 331 IDD = ID(3) - 64 WRITE (L,831) IDD GO TO 1000 332 WRITE (L,832) GO TO 1000 333 WRITE (L,833) GO TO 1000 334 WRITE (L,834) GO TO 1000 335 WRITE (L,835) GO TO 1000 336 WRITE (L,836) GO TO 1000 337 WRITE (L,837) GO TO 1000 338 WRITE (L,838) GO TO 1000 339 WRITE (L,839) GO TO 1000 340 WRITE (L,840) GO TO 1000 341 WRITE (L,841) GO TO 1000 342 WRITE (L,842) GO TO 1000 343 WRITE (L,843) GO TO 1000 344 WRITE (L,844) GO TO 1000 345 WRITE (L,845) GO TO 1000 346 WRITE (L,846) GO TO 1000 347 WRITE (L,847) GO TO 1000 348 WRITE (L,848) GO TO 1000 349 WRITE (L,849) GO TO 1000 350 WRITE (L,850) GO TO 1000 351 WRITE (L,851) GO TO 1000 352 WRITE (L,852) GO TO 1000 353 WRITE (L,853) GO TO 1000 354 WRITE (L,854) ID(6),ID(7),FD(3) GO TO 1000 355 WRITE (L,855) GO TO 1000 356 WRITE (L,856) GO TO 1000 357 WRITE (L,857) GO TO 1000 358 WRITE (L,858) GO TO 1000 359 WRITE (L,859) GO TO 1000 360 WRITE (L,860) GO TO 1000 361 WRITE (L,861) GO TO 1000 362 WRITE (L,862) GO TO 1000 363 WRITE (L,863) GO TO 1000 364 WRITE (L,864) GO TO 1000 365 WRITE (L,865) GO TO 1000 366 WRITE (L,866) GO TO 1000 367 WRITE (L,867) GO TO 1000 368 WRITE (L,868) GO TO 1000 369 WRITE (L,869) GO TO 1000 370 WRITE (L,870) GO TO 1000 371 WRITE (L,871) GO TO 1000 372 WRITE (L,872) GO TO 1000 373 WRITE (L,873) GO TO 1000 374 WRITE (L,874) GO TO 1000 375 WRITE (L,875) GO TO 990 376 WRITE (L,876) GO TO 1000 377 WRITE (L,877) GO TO 1000 378 WRITE (L,878) GO TO 1000 379 WRITE (L,879) GO TO 1000 380 WRITE (L,880) GO TO 1000 990 WRITE (L,995) 995 FORMAT (1H ) 1000 RETURN C C ****************************************************************** C 676 FORMAT (2(25X,5HAXIAL,30X), /2(7X,4HTIME,14X,5HFORCE,9X,6HTORQUE, 1 15X)) 677 FORMAT (21X,17HBEND-MOMENT-END-A,12X,17HBEND-MOMENT-END-B,18X, 1 5HSHEAR,17X, /7X,4HTIME,3(8X,7HPLANE 1,7X,7HPLANE 2),9X, 2 5HFORCE,10X,6HTORQUE) 678 FORMAT (2(25X,5HFORCE,10X,5HFORCE,15X), /2(7X,4HTIME,13X, 1 7HPTS 1,3,8X,7HPTS 2,4,14X)) 679 FORMAT (2(24X,6HMOMENT,9X,6HMOMENT,15X), /2(7X,4HTIME,13X, 1 7HPTS 1,3,8X,7HPTS 2,4,14X)) 680 FORMAT (8X,4HTIME,3X,2(11X,11HBEND-MOMENT),11X,12HTWIST-MOMENT, 1 13X,5HSHEAR,17X,5HSHEAR, /31X,1HX,21X,1HY,43X,1HX,21X,1HY) 681 FORMAT (4(8X,4HTIME,10X,5HFORCE,6X)) 682 FORMAT (2(21X,5HAXIAL,7X,6HSAFETY,6X,9HTORSIONAL,5X,6HSAFETY), / 1 2(7X,4HTIME,9X,6HSTRESS,7X,6HMARGIN,8X,6HSTRESS,6X, 2 6HMARGIN)) 683 FORMAT (7X,4HTIME,12X,3HSA1,12X,3HSA2,12X,3HSA3,10X, 1 12HAXIAL-STRESS,8X,6HSA-MAX,9X,6HSA-MIN,11X,6HM.S.-T, /23X, 2 3HSB1,12X,3HSB2,12X,3HSB3,30X,6HSB-MAX,9X,6HSB-MIN,11X, 3 6HM.S.-C) 684 FORMAT (2(26X,7HMAXIMUM,8X,7HAVERAGE,6X,6HSAFETY), /2(8X,4HTIME, 1 15X,5HSHEAR,10X,5HSHEAR,7X,6HMARGIN)) 685 FORMAT (2(54X,6HSAFETY), /2(7X,4HTIME,15X,7HMAXIMUM,8X,7HAVERAGE, 1 6X,6HMARGIN)) 686 FORMAT (19X,5HFIBRE,11X,32HSTRESSES IN ELEMENT COORD SYSTEM,13X, 1 31HPRINCIPAL STRESSES (ZERO SHEAR),10X,7HMAXIMUM, /7X, 2 4HTIME,7X,8HDISTANCE,7X,8HNORMAL-X,7X,8HNORMAL-Y,6X, 3 8HSHEAR-XY,7X,5HANGLE,9X,5HMAJOR,11X,5HMINOR,10X,5HSHEAR) 687 FORMAT (20X,32HSTRESSES IN ELEMENT COORD SYSTEM,12X,9HPRINCIPAL, 1 11X,18HPRINCIPAL STRESSES,10X,7HMAXIMUM, /7X,4HTIME,8X, 2 8HNORMAL-X,6X,8HNORMAL-Y,7X,8HSHEAR-XY,6X,12HSTRESS ANGLE, 3 9X,5HMAJOR,10X,5HMINOR,10X,5HSHEAR) 688 FORMAT (4(8X,4HTIME, 9X,6HSTRESS,6X)) 689 FORMAT (5X,4HTIME,15X,3HSA1,12X,3HSA2,12X,3HSA3,12X,3HSA4,8X, 1 12HAXIAL-STRESS,6X,6HSA-MAX,9X,6HSA-MIN,5X,6HM.S.-T, /24X, 2 3HSB1,12X,3HSB2,12X,3HSB3,12X,3HSB4,26X,6HSB-MAX,9X, 3 6HSB-MIN,5X,6HM.S.-C) 690 FORMAT (53X,5HAXIAL, /13X,9HFREQUENCY,31X,5HFORCE,41X,6HTORQUE) 691 FORMAT (11X,2(42X,5HFORCE), /13X,9HFREQUENCY,30X,7HPTS 1,3,40X, 1 7HPTS 2,4) 692 FORMAT (11X,2(41X,6HMOMENT), /13X,9HFREQUENCY,30X,7HPTS 1,3,40X, 1 7HPTS 2,4) 693 FORMAT (5X,9HFREQUENCY,2X,2(11X,11HBEND-MOMENT),10X, 1 12HTWIST-MOMENT,2(13X,5HSHEAR,4X), /2(31X,1HX,21X,1HY,12X)) 694 FORMAT (2(12X,9HFREQUENCY,20X,5HFORCE,12X)) 695 FORMAT (53X,5HAXIAL,39X,9HTORSIONAL, /13X,9HFREQUENCY, 1 2(30X,6HSTRESS,11X)) 696 FORMAT (52X,7HMAXIMUM,39X,7HAVERAGE, /13X,9HFREQUENCY, 1 2(31X,5HSHEAR,10X)) 697 FORMAT (20X,5HFIBRE,37X,'- STRESSES IN ELEMENT COORDINATE SYSTEM', 1 2H -, /4X,'FREQUENCY,6X,8HDISTANCE',18X,8HNORMAL-X,26X, 2 8HNORMAL-Y,25X,8HSHEAR-XY) 698 FORMAT (53X,41H- STRESSES IN ELEMENT COORDINATE SYSTEM -, /9X, 1 9HFREQUENCY,18X,8HNORMAL-X,26X,8HNORMAL-Y,26X,8HSHEAR-XY) 699 FORMAT (2(12X,9HFREQUENCY,19X,6HSTRESS,12X)) 700 FORMAT (39X,4(8HLOCATION,7X),6X,7HAVERAGE, /8X,9HFREQUENCY,26X, 1 1H1,14X,1H2,14X,1H3,14X,1H4,13X,12HAXIAL STRESS) 701 FORMAT (21X,17HBEND-MOMENT-END-A,12X,17HBEND-MOMENT-END-B,18X, 1 5HSHEAR,17X, /4X,9HFREQUENCY,3(6X,7HPLANE 1,7X, 2 9HPLANE 2 ),6X,5HFORCE,10X,6HTORQUE) 702 FORMAT (27X,'O U T P U T F R O M G R I D P O I N T W E I', 1 ' G H T G E N E R A T O R', /1H0,53X, 2 17HREFERENCE POINT =,I9) 703 FORMAT (5X,9HSECTOR-ID,/6X,8HPOINT-ID,/7X,7HRING-ID,2X,8HHARMONIC, 1 8X,2HT1,13X,2HT2,13X,2HT3,13X,2HR1,13X,2HR2,13X,2HR3) 704 FORMAT (11X,'S T R E S S E S I N A X I S - S Y M M E T R I C', 1 ' C O N I C A L S H E L L E L E M E N T S ', 2 '(CCONEAX)') 705 FORMAT (13X,'F O R C E S I N A X I S - S Y M M E T R I C ', 1 'C O N I C A L S H E L L E L E M E N T S (CCONEAX)') 706 FORMAT (8H ELEMENT,10X,5HPOINT,5X,5HFIBRE,11X,'STRESSES IN ELEM', 1 'ENT COORD SYSTEM',8X,'PRINCIPAL STRESSES (ZERO SHEAR)', 2 8X,7HMAXIMUM, /3X,'ID. HARMONIC ANGLE DISTANCE',7X, 3 8HNORMAL-V,6X,8HNORMAL-U,6X,8HSHEAR-UV,6X,5HANGLE,7X, 4 5HMAJOR,9X,5HMINOR,9X,5HSHEAR) 707 FORMAT (9H ELEMENT,5X,8HHARMONIC,4X,5HPOINT,4X,2(7X,5HBEND-, 1 6HMOMENT),6X,12HTWIST-MOMENT,2(11X,5HSHEAR,1X), /3X,3HID., 2 9X,6HNUMBER,5X,5HANGLE,15X,1HV,17X,1HU,37X,1HV,16X,1HU) 708 FORMAT (31X,'C O M P L E X D I S P L A C E M E N T ', 1 'V E C T O R (SOLUTION SET)') 709 FORMAT (35X,'C O M P L E X V E L O C I T Y V E C T O R ', 1 '(SOLUTION SET)') 710 FORMAT (31X,'C O M P L E X A C C E L E R A T I O N ', 1 'V E C T O R (SOLUTION SET)') 711 FORMAT (43X,46HV E L O C I T Y V E C T O R (SOLUTION SET)) 712 FORMAT (39X,'D I S P L A C E M E N T V E C T O R ', 1 '(SOLUTION SET)') 713 FORMAT (39X,'A C C E L E R A T I O N V E C T O R ', 1 '(SOLUTION SET)') 714 FORMAT (29X,'C O M P L E X E I G E N V E C T O R N O .',I11, 1 3X,14H(SOLUTION SET)) 715 FORMAT (30X,'E I G E N V A L U E A N A L Y S I S ', 1 'S U M M A R Y (GIVENS METHOD)') 716 FORMAT (///,36X,45HNUMBER OF EIGENVALUES EXTRACTED . . . . . . ., 1 I10,//36X,45HNUMBER OF EIGENVECTORS COMPUTED . . . . . . ., 2 I10,//36X,45HNUMBER OF EIGENVALUE CONVERGENCE FAILURES . ., 3 I10,//36X,45HNUMBER OF EIGENVECTOR CONVERGENCE FAILURES. ., 4 I10,///36X,45HREASON FOR TERMINATION. . . . . . . . . . . ., 5 I10,1H*,///36X,45HLARGEST OFF-DIAGONAL MODAL MASS TERM. . . . ., 6 1P,E10.2,//76X,5H. . .,I10,/46X,'MODE PAIR. . . . . . . . . . .', 7 /76X,5H. . .,I10,//36X,33HNUMBER OF OFF-DIAG0NAL MODAL MASS , 8 /41X,40HTERMS FAILING CRITERION. . . . . . . . .,I10) 7161 FORMAT (//36X,22H(* NORMAL TERMINATION)) 7162 FORMAT (//36X,31H(* INSUFFICIENT TIME REMAINING)) 717 FORMAT (107X,22HOCTAHEDRAL PRESSURE, /6X,10HELEMENT-ID,8X, 1 8HSIGMA-XX,6X,8HSIGMA-YY,6X,8HSIGMA-ZZ,7X,6HTAU-YZ,8X, 2 6HTAU-XZ,8X,6HTAU-XY,8X,5HTAU-0,10X,1HP) 718 FORMAT (107X,22HOCTAHEDRAL PRESSURE, /6X,10H TIME ,8X, 1 8HSIGMA-XX,6X,8HSIGMA-YY,6X,8HSIGMA-ZZ,7X,6HTAU-YZ,8X, 2 6HTAU-XZ,8X,6HTAU-XY,8X,5HTAU-0,10X,1HP) 719 FORMAT (18X,10HELEMENT-ID,8X,8HSIGMA-XX,6X,8HSIGMA-YY,6X, 1 8HSIGMA-ZZ,7X,6HTAU-YZ,8X,6HTAU-XZ,8X,6HTAU-XY) 720 FORMAT (18X,10HFREQUENCY ,8X,8HSIGMA-XX,6X,8HSIGMA-YY,6X, 1 8HSIGMA-ZZ,7X,6HTAU-YZ,8X,6HTAU-XZ,8X,6HTAU-XY) 721 FORMAT (19X,'S T R E S S E S I N S O L I D T E T R A H E D', 1 ' R O N E L E M E N T S ( C T E T R A )') 722 FORMAT (11X,'C O M P L E X S T R E S S E S I N S O L I D ', 1 ' T E T R A H E D R O N E L E M E N T S ( C T E T R A )') 723 FORMAT (25X,'S T R E S S E S I N S O L I D W E D G E ', 1 'E L E M E N T S ( C W E D G E )') 724 FORMAT (17X,'C O M P L E X S T R E S S E S I N S O L I D ', 1 ' W E D G E E L E M E N T S ( C W E D G E )') 725 FORMAT (20X,'S T R E S S E S I N S O L I D H E X A H E D R', 1 ' O N E L E M E N T S ( C H E X A 1 )') 726 FORMAT (12X,'C O M P L E X S T R E S S E S I N S O L I D ', 1 ' H E X A H E D R O N E L E M E N T S ( C H E X A 1 )') 727 FORMAT (20X,'S T R E S S E S I N S O L I D H E X A H E D R', 1 ' O N E L E M E N T S ( C H E X A 2 )') 728 FORMAT (12X,'C O M P L E X S T R E S S E S I N S O L I D ', 1 ' H E X A H E D R O N E L E M E N T S ( C H E X A 2 )') 729 FORMAT (6X,10HPOINT-ID =,I7,4X,10HHARMONIC =,I4) 1729 FORMAT (6X,10HPOINT-ID =,I7,4X,10HHARMONIC =,I4,1H*) 730 FORMAT (5X,8HHARMONIC,5(3X,8HPOINT-ID,5X,2HT1,5X)) 731 FORMAT (10X,'V E L O C I T I E S I N A X I S Y M M E T R I C', 1 ' F L U I D E L E M E N T S ( C A X I F 2 - ', 2 'S T R E S S )') 732 FORMAT (10X,'V E L O C I T I E S I N A X I S Y M M E T R I C', 1 ' F L U I D E L E M E N T S ( C A X I F 3 - ', 2 'S T R E S S )') 733 FORMAT (10X,'V E L O C I T I E S I N A X I S Y M M E T R I C', 1 ' F L U I D E L E M E N T S ( C A X I F 4 - ', 2 'S T R E S S )') 734 FORMAT (24X,'V E L O C I T I E S I N S L O T E L E M E N T', 1 ' S ( C S L O T 3 - S T R E S S )') 735 FORMAT (24X,'V E L O C I T I E S I N S L O T E L E M E N T', 1 ' S ( C S L O T 4 - S T R E S S )') 736 FORMAT (2X,'C O M P L E X V E L O C I T I E S I N A X I S ', 1 'Y M M E T R I C F L U I D E L E M E N T S ', 2 '( C A X I F 2 - S T R E S S )') 737 FORMAT (2X,'C O M P L E X V E L O C I T I E S I N A X I S ', 1 'Y M M E T R I C F L U I D E L E M E N T S ', 2 '( C A X I F 3 - S T R E S S )') 738 FORMAT (2X,'C O M P L E X V E L O C I T I E S I N A X I S ', 1 'Y M M E T R I C F L U I D E L E M E N T S ', 2 '( C A X I F 4 - S T R E S S )') 739 FORMAT (15X,'C O M P L E X V E L O C I T I E S I N S L O T', 1 ' E L E M E N T S ( C S L O T 3 - S T R E S S )') 740 FORMAT (15X,'C O M P L E X V E L O C I T I E S I N S L O T', 1 ' E L E M E N T S ( C S L O T 4 - S T R E S S )') 741 FORMAT (8X,7HELEMENT,17X,6HCENTER,25X,7HEDGE 1,19X,7HEDGE 2,19X, 1 7HEDGE 3,/10X,3HID., 8X,27HR --------- PHI --------- Z, 2 12X,15HS --------- PHI,11X,15HS --------- PHI,11X, 3 15HS --------- PHI) 742 FORMAT (31X,6HCENTER,25X,7HEDGE 1,19X,7HEDGE 2,19X,7HEDGE 3, 1 /2X,8H TIME ,10X,27HR --------- PHI --------- Z,12X, 2 15HS --------- PHI,11X,15HS --------- PHI,11X, 3 15HS --------- PHI) 743 FORMAT (32X,6HCENTER,25X,7HEDGE 1,19X,7HEDGE 2,19X,7HEDGE 3, 1 /4X,9HFREQUENCY,8X,27HR --------- PHI --------- Z,12X, 2 15HS --------- PHI,11X,15HS --------- PHI,11X, 3 15HS --------- PHI) 744 FORMAT (13X,7HELEMENT,18X,6HCENTER,20X,7HEDGE 1,11X,7HEDGE 2, 1 11X,7HEDGE 3,11X,7HEDGE 4,/15X,3HID.,13X, 2 19HR --------------- Z,17X,1HS,17X,1HS,17X,1HS,17X,1HS) 745 FORMAT (38X,6HCENTER,20X,7HEDGE 1,11X,7HEDGE 2,11X,7HEDGE 3, 1 11X,7HEDGE 4, /11X,4HTIME,16X,19HR --------------- Z,17X, 2 1HS,17X,1HS,17X,1HS,17X,1HS) 746 FORMAT (38X,6HCENTER,20X,7HEDGE 1,11X,7HEDGE 2,11X,7HEDGE 3, 1 11X,7HEDGE 4,/9X,9HFREQUENCY,13X,19HR --------------- Z, 2 17X,1HS,17X,1HS,17X,1HS,17X,1HS) 747 FORMAT (9X,7HELEMENT,24X,6HCENTER,26X,7HEDGE 1,15X,7HEDGE 2, 1 15X,7HEDGE 3,/11X,3HID.,17X,23HR ------------------- Z, 2 21X,1HS,21X,1HS,21X,1HS) 748 FORMAT (40X,6HCENTER,26X,7HEDGE 1,15X,7HEDGE 2,15X,7HEDGE 3, 1 /7X,4HTIME,20X,23HR ------------------- Z,21X,1HS,21X,1HS, 2 21X,1HS) 749 FORMAT (40X,6HCENTER,26X,7HEDGE 1,15X,7HEDGE 2,15X,7HEDGE 3, 1 /5X,9HFREQUENCY,17X,23HR ------------------- Z,21X,1HS,21X, 2 1HS,21X,1HS) 750 FORMAT (14X,7HELEMENT,30X,6HCENTER,47X,4HEDGE,/16X,3HID.,21X, 1 27HR ----------------------- Z,25X, 2 28HS ---------------------- PHI) 751 FORMAT (51X,6HCENTER,47X,4HEDGE, /12X,4HTIME,24X, 1 27HR ----------------------- Z,25X, 2 28HS ---------------------- PHI) 752 FORMAT (51X,6HCENTER,47X,4HEDGE, /10X,9HFREQUENCY,21X, 1 27HR ----------------------- Z,25X, 2 28HS ---------------------- PHI) 753 FORMAT (46X,35HT E M P E R A T U R E V E C T O R) 1754 WRITE (L,754) IDX GO TO 1000 754 FORMAT (36X,'S T R E S S E S I N U S E R E L E M E N T S', 1 ' (C',A4,1H)) 1759 WRITE (L,759) IDX GO TO 1000 759 FORMAT (38X,'F O R C E S I N U S E R E L E M E N T S (C', 1 A4,1H) ) 764 FORMAT (5X,9H EL-ID,6X,2HS1,11X,2HS2,11X,2HS3,11X,2HS4,11X, 1 2HS5,11X,2HS6,11X,2HS7,11X,2HS8,11X,2HS9) 765 FORMAT (5X,9H EL-ID,6X,2HF1,11X,2HF2,11X,2HF3,11X,2HF4,11X, 1 2HF5,11X,2HF6,11X,2HF7,11X,2HF8,11X,2HF9) 1766 WRITE (L,766) IDX GO TO 1000 766 FORMAT (28X,'C O M P L E X S T R E S S E S I N U S E R ', 1 'E L E M E N T S (C',A4,1H)) 1771 WRITE (L,771) IDX GO TO 1000 771 FORMAT (30X,'C O M P L E X F O R C E S I N U S E R E L E', 1 ' M E N T S (C',A4,1H)) 776 FORMAT (5X,9H TIME,6X,2HS1,11X,2HS2,11X,2HS3,11X,2HS4,11X, 1 2HS5,11X,2HS6,11X,2HS7,11X,2HS8,11X,2HS9) 777 FORMAT (5X,9H TIME,6X,2HF1,11X,2HF2,11X,2HF3,11X,2HF4,11X, 1 2HF5,11X,2HF6,11X,2HF7,11X,2HF8,11X,2HF9) 778 FORMAT (5X,9HFREQUENCY,6X,2HS1,11X,2HS2,11X,2HS3,11X,2HS4,11X, 1 2HS5,11X,2HS6,11X,2HS7,11X,2HS8,11X,2HS9) 779 FORMAT (5X,9HFREQUENCY,6X,2HF1,11X,2HF2,11X,2HF3,11X,2HF4,11X, 1 2HF5,11X,2HF6,11X,2HF7,11X,2HF8,11X,2HF9) 796 FORMAT (6X,'POINT ID. TYPE',6X,'ID VALUE ID+1 VALUE ', 1 'ID+2 VALUE ID+3 VALUE ID+4 VALUE ID+5 VALUE') 797 FORMAT (19X,'F I N I T E E L E M E N T T E M P E R A T U R E', 1 ' G R A D I E N T S A N D F L U X E S') 798 FORMAT (4X,'ELEMENT-ID EL-TYPE X-GRADIENT Y-', 1 'GRADIENT Z-GRADIENT X-FLUX Y-FLUX', 2 ' Z-FLUX') 799 FORMAT (4X,'TIME EL-TYPE X-GRADIENT Y-', 1 'GRADIENT Z-GRADIENT X-FLUX Y-FLUX', 2 ' Z-FLUX') 800 FORMAT (26X,'ELEMENT-ID APPLIED-LOAD CONVECTION ', 1 ' RADIATION TOTAL') 801 FORMAT (26X,'TIME APPLIED-LOAD CONVECTION ', 1 ' RADIATION TOTAL') 802 FORMAT (33X,'H E A T F L O W I N T O H B D Y E L E M E N', 1 ' T S (CHBDY)') 803 FORMAT (6X,16HTIME TYPE ,6X,7H VALUE) 804 FORMAT (21X,'S T R E S S E S I N Q U A D R I L A T E R A L', 1 ' M E M B R A N E S ( C Q D M E M 1 )') 805 FORMAT (14X,'C O M P L E X S T R E S S E S I N Q U A D R I', 1 ' L A T E R A L M E M B R A N E S ( C Q D M E M 1 )') 806 FORMAT (26X,'S T R E S S E S A C T I N G I N Q D M E M 2 ', 1 ' E L E M E N T S (CQDMEM2)') 807 FORMAT (19X,'C O M P L E X S T R E S S E S A C T I N G I N', 1 ' Q D M E M 2 E L E M E N T S (CQDMEM2)') 808 FORMAT (18X,'S T R E S S E S I N G E N E R A L Q U A D R I', 1 ' L A T E R A L E L E M E N T S', 6X,15H( C Q U A D 4 )) 809 FORMAT ('0*** THIS FORMAT 809/OFP1B NOT USED ***') C ============================== 810 FORMAT (28X,'F O R C E S A C T I N G O N Q D M E M 2 E L', 1 ' E M E N T S (CQDMEM2)') 811 FORMAT (20X,'C O M P L E X F O R C E S A C T I N G O N ', 1 'Q D M E M 2 E L E M E N T S (CQDMEM2)') 812 FORMAT (18X,106H====== POINT 1 ====== ====== POINT 2 ====== 1 ====== POINT 3 ====== ====== POINT 4 ====== , /7X, 2 7HELEMENT,4X,8HF-FROM-4,6X,8HF-FROM-2,6X,8HF-FROM-1,6X, 3 8HF-FROM-3,6X,8HF-FROM-2,6X,8HF-FROM-4,6X,8HF-FROM-3,6X, 4 8HF-FROM-1, /9X,2HID,15X,6HKICK-1,7X,8HSHEAR-12,7X, 5 6HKICK-2,7X,8HSHEAR-23,7X,6HKICK-3,7X,8HSHEAR-34,7X, 6 6HKICK-4,7X,8HSHEAR-41 ) 813 FORMAT (18X,106H====== POINT 1 ====== ====== POINT 2 ====== 1 ====== POINT 3 ====== ====== POINT 4 ====== , /14X, 2 4X,8HF-FROM-4,6X,8HF-FROM-2,6X,8HF-FROM-1,6X,8HF-FROM-3,6X, 3 8HF-FROM-2,6X,8HF-FROM-4,6X,8HF-FROM-3,6X,8HF-FROM-1, /5X, 4 9HFREQUENCY,12X,6HKICK-1,7X,8HSHEAR-12,7X,6HKICK-2,7X, 5 8HSHEAR-23,7X,6HKICK-3,7X,8HSHEAR-34,7X,6HKICK-4,7X, 6 8HSHEAR-41) 814 FORMAT (18X,106H====== POINT 1 ====== ====== POINT 2 ====== 1 ====== POINT 3 ====== ====== POINT 4 ====== , /14X, 2 4X,8HF-FROM-4,6X,8HF-FROM-2,6X,8HF-FROM-1,6X,8HF-FROM-3,6X, 3 8HF-FROM-2,6X,8HF-FROM-4,6X,8HF-FROM-3,6X,8HF-FROM-1, /10X, 4 4HTIME,12X,6HKICK-1,7X,8HSHEAR-12,7X,6HKICK-2,7X,8HSHEAR-23 5, 7X,6HKICK-3,7X,8HSHEAR-34,7X,6HKICK-4,7X,8HSHEAR-41) 815 FORMAT (6X,16HSUBCASE TYPE,10X,2HT1,13X,2HT2,13X,2HT3,13X, 1 2HR1,13X,2HR2,13X,2HR3) 816 FORMAT (2(26X,7HMAXIMUM,8X,7HAVERAGE,6X,6HSAFETY),/2(6X,7HSUBCASE, 1 14X,5HSHEAR,10X,5HSHEAR,7X,6HMARGIN)) 817 FORMAT (20X,32HSTRESSES IN ELEMENT COORD SYSTEM,12X,9HPRINCIPAL, 1 11X,18HPRINCIPAL STRESSES,10X,7HMAXIMUM, /6X,7HSUBCASE,6X, 2 8HNORMAL-X,6X,8HNORMAL-Y,7X,8HSHEAR-XY,6X,12HSTRESS ANGLE, 3 9X,5HMAJOR,10X,5HMINOR,10X,5HSHEAR) 818 FORMAT (6X,7HSUBCASE,11X,3HSA1,12X,3HSA2,12X,3HSA3,12X,3HSA4,8X, 1 12HAXIAL-STRESS,6X,6HSA-MAX,9X,6HSA-MIN,5X,6HM.S.-T, /24X, 2 3HSB1,12X,3HSB2,12X,3HSB3,12X,3HSB4,26X,6HSB-MAX,9X, 3 6HSB-MIN,5X,6HM.S.-C) 819 FORMAT (18X,106H====== POINT 1 ====== ====== POINT 2 ====== 1 ====== POINT 3 ====== ====== POINT 4 ====== , /14X, 2 4X,8HF-FROM-4,6X,8HF-FROM-2,6X,8HF-FROM-1,6X,8HF-FROM-3,6X, 3 8HF-FROM-2,6X,8HF-FROM-4,6X,8HF-FROM-3,6X,8HF-FROM-1, /5X, 4 7HSUBCASE,14X,6HKICK-1,7X,8HSHEAR-12,7X,6HKICK-2,7X, 5 8HSHEAR-23,7X,6HKICK-3,7X,8HSHEAR-34,7X,6HKICK-4,7X, 6 8HSHEAR-41 ) 820 FORMAT (21X,17HBEND-MOMENT-END-A,12X,17HBEND-MOMENT-END-B,18X, 1 5HSHEAR, /6X,7HSUBCASE,6X,3(7HPLANE 1,7X,7HPLANE 2,8X), 2 6H FORCE,10X,6HTORQUE) 821 FORMAT (2(21X,5HAXIAL,7X,6HSAFETY,6X,9HTORSIONAL,5X,6HSAFETY), / 1 2(6X,7HSUBCASE,7X,6HSTRESS,7X,6HMARGIN,8X,6HSTRESS,6X, 2 6HMARGIN)) 822 FORMAT (2(25X,5HAXIAL,30X) , /2(6X,7HSUBCASE,12X,5HFORCE, 9X, 1 6HTORQUE,15X)) 823 FORMAT (5X,7HELEMENT,8X,33HSTRESSES IN MATERIAL COORD SYSTEM,12X, 1 9HPRINCIPAL,11X,18HPRINCIPAL STRESSES,12X,3HMAX) 824 FORMAT (13X,7HELEMENT,33X,'- STRESSES IN MATERIAL COORDINATE ', 1 'SYSTEM -', /15X,3HID.,18X,8HNORMAL-X,26X,8HNORMAL-Y,26X, 2 8HSHEAR-XY) 825 FORMAT (20X,33HSTRESSES IN MATERIAL COORD SYSTEM,11X,9HPRINCIPAL, 1 11X,18HPRINCIPAL STRESSES,10X,7HMAXIMUM, /7X,4HTIME,8X, 2 8HNORMAL-X,6X,8HNORMAL-Y,7X,8HSHEAR-XY,6X,12HSTRESS ANGLE, 3 9X,5HMAJOR,10X,5HMINOR,10X,5HSHEAR) 826 FORMAT (53X,42H- STRESSES IN MATERIAL COORDINATE SYSTEM -, /9X, 1 9HFREQUENCY,18X,8HNORMAL-X,26X,8HNORMAL-Y,26X,8HSHEAR-XY) 827 FORMAT (20X,33HSTRESSES IN MATERIAL COORD SYSTEM,11X,9HPRINCIPAL, 1 11X,18HPRINCIPAL STRESSES,10X,7HMAXIMUM, /6X,7HSUBCASE,6X, 2 8HNORMAL-X,6X,8HNORMAL-Y,7X,8HSHEAR-XY,6X,12HSTRESS ANGLE, 3 9X,5HMAJOR,10X,5HMINOR,10X,5HSHEAR) 828 FORMAT (21X,'S T R E S S E S I N I S O P A R A M E T R I C ', 1 ' S O L I D ( C I H E X',I2,2H )) 829 FORMAT (2X,7HELEMENT,5X,4HGRID,11X,'STRESSES IN BASIC COORDINATE', 1 'SYSTEM',13X,12HDIR. COSINES) 830 FORMAT (7X,2HID,4X,5HPOINT,8X,6HNORMAL,12X,5HSHEAR,10X,9HPRINCIPAL 1, 10X,1HA,4X,1HB,4X,1HC,4X,11HMEAN STRESS,5X,9HMAX SHEAR) 831 FORMAT (13X,'C O M P L E X S T R E S S E S I N I S O P A R', 1 ' A M E T R I C S O L I D ( C I H E X',I2,2H )) 832 FORMAT (7X,2HID,3X,6HPOINTS,5X,8HNORMAL-X,9X,8HNORMAL-Y,9X, 1 8HNORMAL-Z,9X,8HSHEAR-XY,9X,8HSHEAR-YZ,9X,8HSHEAR-ZX) 833 FORMAT (25X,'F O R C E D I S T R I B U T I O N I N B A R', 1 ' E L E M E N T S,10X,11H( C B A R )') 834 FORMAT (21H0 ELEMENT STATION,9X,11HBEND-MOMENT,22X, 1 11HSHEAR FORCE,21X,5HAXIAL) 835 FORMAT (7X,3HID.,5X,5H(PCT),5X,7HPLANE 1,8X,7HPLANE 2,11X, 1 7HPLANE 1,8X,7HPLANE 2,15X,5HFORCE,14X,6HTORQUE) 836 FORMAT (25X,'S T R E S S D I S T R I B U T I O N I N B A R', 1 ' E L E M E N T S,7X,11H( C B A R )') 837 FORMAT (21H0 ELEMENT STATION,4X,3HSXC,11X,3HSXD,11X,3HSXF,11X, 1 3HSXG,12X,5HAXIAL,10X,5HS-MAX, 9X,5HS-MIN,9X,4HM.S.) 838 FORMAT (7X,3HID.,5X,5H(PCT)) 839 FORMAT (21X,'F O R C E S F O R T H E Q U A D R I L A T E R A L' 1, ' T H I N S H E L L ( C Q U A D T S )') 840 FORMAT (6X,2HEL, 36X,6HFORCES,51X,7HMOMENTS ) 841 FORMAT (6X,2HID,5X,5HPOINT,9X,2HFX,17X,2HFY,17X,2HFZ,17X,2HMX,17X, 1 2HMY,17X,2HMZ ) 842 FORMAT (17X,'F O R C E S I N T R I A N G U L A R T H I N ', 1 'S H E L L E L E M E N T S ( C T R S H L )') 843 FORMAT (19X,'S T R E S S E S F O R T H E Q U A D R I L A T E ', 1 'R A L T H I N S H E L L ( C Q U A D T S )') 844 FORMAT (3X,9HEL STRESS,8X,28HMEMBRANE STRESS RESULTANTS,24X, 1 17HFLEXURAL MOMENTS,27X,5HSHEAR ) 845 FORMAT (3X,'ID POINT NORMAL(NX) NORMAL(NY) SHEAR(NXY)', 1 ' NORMAL(MX) NORMAL(MY) TORQUE(MXY) ', 2 'NORMAL(QX) NORMAL(QY)') 846 FORMAT (18X,'S T R E S S E S I N T R I A N G U L A R T H I', 1 ' N S H E L L E L E M E N T S ( C T R S H L )') 847 FORMAT (5X,'S T R E S S E S I N A X I S - S Y M M E T R I C ', 1 'T R I A N G U L A R R I N G E L E M E N T S (CTRIAAX)') 848 FORMAT (' ELEMENT HARMONIC POINT RADIAL AXIAL',6X, 1 'CIRCUM. SHEAR SHEAR SHEAR F L U X ', 2 'D E N S I T I E S', /,' ID. NUMBER ANGLE ', 3 '(R) (Z) (THETA-T) (ZR) (RT) ', 4 '(ZT) (R) (Z) (T)') 849 FORMAT (11X,'F O R C E S I N A X I S - S Y M M E T R I C T R ', 1 'I A N G U L A R R I N G E L E M E N T S (CTRIAAX)') 850 FORMAT (1X,113H ELEMENT HARMONIC POINT RADIAL 1 CIRCUMFERENTIAL AXIAL CHARGE, 1 /1X,' ID. NUMBER ANGLE (R)',17X, 3 '(THETA-T) (Z)') 851 FORMAT (5X,'S T R E S S E S I N A X I S - S Y M M E T R I C T', 1 ' R A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX)') 852 FORMAT (11X,'F O R C E S I N A X I S - S Y M M E T R I C T R ', 1 'A P E Z O I D A L R I N G E L E M E N T S (CTRAPAX)') 853 FORMAT (43X,45HE L E M E N T S T R A I N E N E R G I E S ) 854 FORMAT (30X,15HELEMENT-TYPE = ,2A4,9X,23H* TOTAL FOR ALL TYPES = , 1 1P,E16.7, /1H0,95X,1H*, /36X,10HELEMENT-ID,10X, 2 13HSTRAIN-ENERGY,11X,16HPERCENT OF TOTAL ) 855 FORMAT (42X,47HG R I D P O I N T F O R C E B A L A N C E ) 856 FORMAT (11H POINT-ID,4X,10HELEMENT-ID,5X,6HSOURCE,13X,2HT1,13X, 1 2HT2,13X,2HT3,13X,2HR1,13X,2HR2,13X,2HR3) 857 FORMAT (22X,'F O R C E S I N T R I A N G U L A R P L A T E', 1 ' E L E M E N T S ( C T R P L T 1 )') 858 FORMAT (20X,'S T R E S S E S I N T R I A N G U L A R ', 1 'P L A T E E L E M E N T S ( C T R P L T 1 )') 859 FORMAT (1H0,9X,7HELEMENT,4X,5HPOINT,7X,2(11HBEND-MOMENT, 9X), 1 12HTWIST-MOMENT,2(11X,5HSHEAR,4X)) 860 FORMAT (12X,3HID.,7X,3HNO.,13X,1HX,19X,1HY,39X,1HX,19X,1HY) 861 FORMAT (1H0, 8H ELEMENT, 2X, 5HPOINT, 5X, 5HFIBER, 11X, 1 32HSTRESSES IN ELEMENT COORD SYSTEM, 12X, 2 31HPRINCIPAL STRESSES (ZERO SHEAR), 11X, 3HMAX) 862 FORMAT (3X,3HID.,6X,3HNO.,5X,8HDISTANCE, 7X,8HNORMAL-X,6X, 1 8HNORMAL-Y,6X,8HSHEAR-XY,8X,5HANGLE,9X,5HMAJOR,9X,5HMINOR, 2 10X,5HSHEAR) 863 FORMAT (18X,'S T R E S S E S I N T R I A N G U L A R ', 1 'M E M B R A N E E L E M E N T S ( C T R I M 6 )') 864 FORMAT (1H0, 8H ELEMENT, 5X, 5HPOINT, 7X, 1 32HSTRESSES IN ELEMENT COORD SYSTEM, 13X, 2 31HPRINCIPAL STRESSES (ZERO SHEAR), 13X, 3HMAX) 865 FORMAT (4X,3HID.,8X,3HNO., 5X,8HNORMAL-X,7X,8HNORMAL-Y,7X, 1 8HSHEAR-XY,8X,5HANGLE,10X,5HMAJOR,10X,5HMINOR,10X,5HSHEAR) 866 FORMAT (2(24X, 6HMOMENT, 9X, 6HMOMENT, 15X), /2(6X, 7HSUBCASE,11X, 1 7HPTS 1,3, 8X, 7HPTS 2,4, 14X)) 867 FORMAT (6X, 7HSUBCASE, 2X, 2(11X, 11HBEND-MOMENT), 11X, 1 12HTWIST-MOMENT, 13X, 5HSHEAR, 17X, 5HSHEAR, 2 /31X, 1HX, 21X, 1HY, 43X, 1HX, 21X, 1HY) 868 FORMAT (4(6X, 7HSUBCASE, 9X, 5HFORCE, 6X)) 869 FORMAT (5X, 7HSUBCASE, 11X, 3HSA1, 12X, 3HSA2, 12X, 3HSA3, 10X, 1 12HAXIAL-STRESS, 8X, 6HSA-MAX, 9X, 6HSA-MIN, 11X,6HM.S.-T, 2 /23X, 3HSB1, 12X, 3HSB2, 12X, 3HSB3, 30X, 6HSB-MAX, 9X, 3 6HSB-MIN, 11X, 6HM.S.-C) 870 FORMAT (2(54X, 6HSAFETY), /2(5X, 7HSUBCASE, 14X, 7HMAXIMUM, 8X, 1 7HAVERAGE, 6X, 6HMARGIN)) 871 FORMAT (19X, 5HFIBRE, 11X, 32HSTRESSES IN ELEMENT COORD SYSTEM, 1 13X, 31HPRINCIPAL STRESSES (ZERO SHEAR), 10X, 7HMAXIMUM,/ 2 5X, 7HSUBCASE, 6X, 8HDISTANCE, 7X, 8HNORMAL-X, 7X, 3 8HNORMAL-Y, 6X, 8HSHEAR-XY, 7X, 5HANGLE, 9X, 5HMAJOR, 4 11X, 5HMINOR, 10X, 5HSHEAR) 872 FORMAT (4(6X, 7HSUBCASE, 8X, 6HSTRESS, 6X)) 873 FORMAT (107X, 22HOCTAHEDRAL PRESSURE,/5X, 10HSUBCASE , 8X, 1 8HSIGMA-XX, 6X, 8HSIGMA-YY, 6X, 8HSIGMA-ZZ, 7X, 6HTAU-YZ, 2 8X, 6HTAU-XZ, 8X, 6HTAU-XY, 8X, 5HTAU-0, 10X, 1HP) 874 FORMAT (107X, 22HOCTAHEDRAL PRESSURE,/5X, 11HSUBCASE , 8X, 1 8HSIGMA-XX, 6X, 8HSIGMA-YY, 6X, 8HSIGMA-ZZ, 7X, 6HTAU-YZ, 2 8X, 6HTAU-XZ, 8X, 6HTAU-XY, 8X, 5HTAU-0, 10X, 1HP) 875 FORMAT (32X,'F O R C E S O F M U L T I - P O I N T C O N S', 1 ' T R A I N T') 876 FORMAT (2X,7HELEMENT,4X,16HMAT. COORD. SYS.,6X, 1 33HSTRESSES IN MATERIAL COORD SYSTEM,12X, 2 31HPRINCIPAL STRESSES (ZERO SHEAR),12X,3HMAX) 877 FORMAT (4X, 3HID., 6X, 15HID./OUTPUT CODE, 1 5X, 8HNORMAL-X, 7X, 8HNORMAL-Y, 6X, 8HSHEAR-XY, 2 7X, 5HANGLE, 9X, 5HMAJOR, 11X, 5HMINOR, 10X, 5HSHEAR) 878 FORMAT (43X,'S T R E S S E S A T G R I D P O I N T S') 879 FORMAT (7X,'S T R A I N S / C U R V A T U R E S I N G E N E ', 1 'R A L T R I A N G U L A R E L E M E N T S',6X, 2 '( C T R I A 1 )') 880 FORMAT (7X,'S T R A I N S / C U R V A T U R E S I N G E N E ', 1 'R A L T R I A N G U L A R E L E M E N T S',6X, 2 '( C T R I A 2 )') C END ================================================ FILE: mis/ofp1c.f ================================================ SUBROUTINE OFP1C (LINE) C C THIS SUBROUTINE WAS FORMED ONLY TO REDUCE THE SIZE OF OFP1 FOR C COMPILATION PURPOSES. IT IS CALLED ONLY BY OFP1. C THIS ROUTINE WAS PART OF OFP1B BEFORE. C COMMON /SYSTEM/ IBUF,L CZZ COMMON /ZZOFPX/ L123(1) COMMON /ZZZZZZ/ L123(20000) C C CWKBR NCL93012 3/94 IF (LINE .GT. 467) GO TO 100 CWKBR SPR94001 7/94 IF (LINE .GT. 470) GO TO 100 IF (LINE .GT. 474) GO TO 100 LOCAL = LINE - 380 GO TO (381,382,383,384,385,386,387,388,389,390, 1 391,392,393,394,395,396,397,398,399,400, 2 401,402,403,404,405,406,407,408,409,410, 3 411,412,413,414,415,416,417,418,419,420, 4 421,422,423,424,425,426,427,428,429,430, 5 431,432,433,434,435,436,437,438,439,440, 6 441,442,443,444,445,446,447,448,449,450, 7 451,452,453,454,455,456,457,458,459,460, CWKBR NCL93012 3/94 8 461,462,463,464,465,466,467), LOCAL CWKBD SPR94001 7/94 8 461,462,463,464,465,466,467,100,469,470), LOCAL CWKBNB SPR94001 7/94 8 461,462,463,464,465,466,467,100,469,470, 9 471,472,473,474), LOCAL CWKBNE SPR94001 7/94 C 100 WRITE (L,110) LINE 110 FORMAT ('0*** OFP ERROR/OFP1C, LINE=',I9) CALL MESAGE (-61,0,0) C 381 WRITE (L,881) GO TO 1000 382 WRITE (L,882) GO TO 1000 383 WRITE (L,883) GO TO 1000 384 WRITE (L,884) GO TO 1000 385 WRITE (L,885) GO TO 1000 386 WRITE (L,886) GO TO 1000 387 WRITE (L,887) GO TO 1000 388 WRITE (L,888) GO TO 1000 389 WRITE (L,889) GO TO 1000 390 WRITE (L,890) GO TO 1000 391 WRITE (L,891) GO TO 1000 392 WRITE (L,892) GO TO 1000 393 WRITE (L,893) GO TO 1000 394 WRITE (L,894) GO TO 1000 395 WRITE (L,895) GO TO 1000 396 WRITE (L,896) GO TO 1000 397 WRITE (L,897) GO TO 1000 398 WRITE (L,898) GO TO 1000 399 WRITE (L,899) GO TO 1000 400 WRITE (L,900) GO TO 1000 401 WRITE (L,901) GO TO 1000 402 WRITE (L,902) GO TO 1000 403 WRITE (L,903) GO TO 1000 404 WRITE (L,904) GO TO 1000 405 WRITE (L,905) GO TO 1000 406 WRITE (L,906) GO TO 1000 407 WRITE (L,907) GO TO 1000 408 WRITE (L,908) GO TO 1000 409 WRITE (L,909) GO TO 1000 410 WRITE (L,910) GO TO 1000 411 WRITE (L,911) GO TO 1000 412 WRITE (L,912) GO TO 1000 413 WRITE (L,913) GO TO 1000 414 WRITE (L,914) GO TO 1000 415 WRITE (L,915) GO TO 1000 416 WRITE (L,916) GO TO 1000 417 WRITE (L,917) GO TO 1000 418 WRITE (L,918) GO TO 1000 419 WRITE (L,919) GO TO 1000 420 WRITE (L,920) GO TO 1000 421 WRITE (L,921) GO TO 1000 422 WRITE (L,922) GO TO 1000 423 WRITE (L,923) GO TO 1000 424 WRITE (L,924) GO TO 1000 425 WRITE (L,925) GO TO 1000 426 WRITE (L,926) GO TO 1000 427 WRITE (L,927) GO TO 1000 428 WRITE (L,928) GO TO 1000 429 WRITE (L,929) GO TO 1000 430 WRITE (L,930) GO TO 1000 431 WRITE (L,931) GO TO 1000 432 WRITE (L,932) GO TO 1000 433 WRITE (L,933) GO TO 1000 434 WRITE (L,934) GO TO 1000 435 WRITE (L,935) GO TO 1000 436 WRITE (L,936) GO TO 1000 437 WRITE (L,937) GO TO 1000 438 WRITE (L,938) GO TO 1000 439 WRITE (L,939) GO TO 1000 440 WRITE (L,940) GO TO 1000 441 WRITE (L,941) GO TO 1000 442 WRITE (L,942) GO TO 1000 443 WRITE (L,943) GO TO 1000 444 WRITE (L,944) GO TO 1000 445 WRITE (L,945) GO TO 1000 446 WRITE (L,946) GO TO 1000 447 WRITE (L,947) GO TO 1000 448 WRITE (L,948) GO TO 1000 449 WRITE (L,949) GO TO 1000 450 WRITE (L,950) GO TO 1000 451 WRITE (L,951) GO TO 1000 452 WRITE (L,952) GO TO 1000 453 WRITE (L,953) GO TO 1000 454 WRITE (L,954) GO TO 1000 455 WRITE (L,955) GO TO 1000 456 WRITE (L,956) GO TO 1000 457 WRITE (L,957) GO TO 1000 458 WRITE (L,958) GO TO 1000 459 WRITE (L,959) GO TO 1000 460 WRITE (L,960) GO TO 1000 461 WRITE (L,961) GO TO 1000 462 WRITE (L,962) GO TO 1000 463 WRITE (L,963) GO TO 1000 464 WRITE (L,964) GO TO 1000 465 WRITE (L,965) GO TO 1000 466 WRITE (L,966) GO TO 1000 467 WRITE (L,967) GO TO 1000 CWKBNB NCL93012 3/94 469 WRITE ( L,969) GO TO 1000 470 WRITE ( L,970) GO TO 1000 CWKBNE NCL93012 3/94 CWKBNB SPR94001 7/94 471 WRITE (L,971) GO TO 1000 472 WRITE (L,972) GO TO 1000 473 WRITE (L,973) GO TO 1000 474 WRITE (L,974) GO TO 1000 CWKBNE SPR94001 7/94 1000 RETURN C C ****************************************************************** C 881 FORMAT (4X,'S T R A I N S / C U R V A T U R E S I N G E N E ', 1 'R A L Q U A D R I L A T E R A L E L E M E N T S',6X, 2 '( C Q U A D 2 )') 882 FORMAT (4X,'S T R A I N S / C U R V A T U R E S I N G E N E ', 1 'R A L Q U A D R I L A T E R A L E L E M E N T S',6X, 2 '( C Q U A D 1 )') CWKBRB NCL93012 3/94 C 883 FORMAT (2X,7HELEMENT,24X,37HSTRNS./CURVS. IN ELEMENT COORD SYSTEM, C 1 6X,38HPRIN. STRNS./CURVS. (ZERO SHEAR/TWIST),7X,7HMAXIMUM) CWKBRE NCL93012 3/94 883 FORMAT (2X,7HELEMENT,8X,'STRAIN',8X 1, 37HSTRNS./CURVS. IN ELEMENT COORD SYSTEM 2, 6X,38HPRIN. STRNS./CURVS. (ZERO SHEAR/TWIST),7X,7HMAXIMUM) 884 FORMAT (4X,3HID.,6X,15HID./OUTPUT CODE,5X,8HNORMAL-X,7X, 1 8HNORMAL-Y,6X,8HSHEAR-XY,7X,5HANGLE,9X,5HMAJOR,11X,5HMINOR, 3 7X,11HSHEAR/TWIST) 885 FORMAT (2X,7HELEMENT,4X,16HMAT. COORD. SYS.,4X,'STRNS./CURVS. ', 1 ' IN MATERIAL COORD SYSTEM',5X, 2 38HPRIN. STRNS./CURVS. (ZERO SHEAR/TWIST),7X,7HMAXIMUM) 886 FORMAT (33X,'S T R A I N S / C U R V A T U R E S A T G R I D', 1 ' P O I N T S') 887 FORMAT (2X,7H POINT ,4X,16HMAT. COORD. SYS.,6X, 1 33HSTRESSES INMATERIAL COORD SYSTEM , 12X, 2 31HPRINCIPAL STRESSES (ZERO SHEAR), 12X,3HMAX) 888 FORMAT (2X,7H POINT ,4X,16HMAT. COORD. SYS.,4X, 1 38HSTRNS./CURVS. IN MATERIAL COORD SYSTEM, 5X, 2 38HPRIN. STRNS./CURVS. (ZERO SHEAR/TWIST), 7X,7HMAXIMUM) 889 FORMAT (50X,30H(IN ELEMENT COORDINATE SYSTEM),/) 890 FORMAT (50X,31H(IN MATERIAL COORDINATE SYSTEM),/) CWKBRB NCL93012 3/94 C 891 FORMAT (4X,3HID.,26X,8HNORMAL-X, 7X,8HNORMAL-Y, 6X,8HSHEAR-XY, C 1 7X,5HANGLE, 9X,5HMAJOR, 11X,5HMINOR, 7X,11HSHEAR/TWIST) CWKBRE NCL93012 3/94 891 FORMAT (4X,3HID.,9X,'CURVATURE',7X 1, 8HNORMAL-X, 7X,8HNORMAL-Y, 6X,8HSHEAR-XY 2, 7X,5HANGLE, 9X,5HMAJOR, 11X,5HMINOR, 7X,11HSHEAR/TWIST) 892 FORMAT (4X,'C O M P L E X F O R C E S I N A X I S - S Y M ', 1 'M E T R I C T R I A N G U L A R R I N G E L E M E ', 2 'N T S (CTRIAAX)',/) 893 FORMAT (2X,'C O M P L E X S T R E S S E S I N A X I S - S ', 1 'Y M M E T R I C T R I A N G U L A R R I N G E L E ', 2 'M E N T S (CTRIAAX)',/) 894 FORMAT (3X,'C O M P L E X F O R C E S I N A X I S - S Y M ', 1 'M E T R I C T R A P E Z O I D A L R I N G E L E M ', 2 'E N T S (CTRAPAX)',/) 895 FORMAT (' C O M P L E X S T R E S S E S I N A X I S - S Y ', 1 ' M M E T R I C T R A P E Z O I D A L R I N G E L E', 2 ' M E N T S (CTRAPAX)',/) 896 FORMAT (3X,'SUBCASE HARMONIC POINT',12X,'RADIAL',12X, 1 'CIRCUMFERENTIAL',12X,'AXIAL',16X,'CHARGE', /14X, 2 'NUMBER ANGLE',13X,'(R)',17X,'(THETA-T)',16X,'(Z)') 897 FORMAT (' SUBCASE HARMONIC POINT RADIAL AXIAL ', 1 'CIRCUM. SHEAR SHEAR SHEAR F L U X ', 2 'D E N S I T I E S', /11X,'NUMBER ANGLE (R)',9X, 3 '(Z) (THETA-T) (ZR) (RT) (ZT)',8X, 4 '(R) (Z) (T)') 898 FORMAT (' FREQUENCY HARMONIC POINT RADIAL',12X, 1 'CIRCUMFERENTIAL',12X,'AXIAL',16X,'CHARGE', /14X, 2 'NUMBER ANGLE',13X,'(R)',17X,'(THETA-T)',16X,'(Z)') 899 FORMAT (' FREQUENCY HARMONIC POINT RADIAL AXIAL ', 1 'CIRCUM. SHEAR SHEAR SHEAR F L U X ', 2 'D E N S I T I E S', /10X,'NUMBER ANGLE (R)',9X, 3 '(Z) (THETA-T) (ZR) (RT) (ZT)',8X, 4 '(R) (Z) (T)') 900 FORMAT (4X,'TIME HARMONIC POINT RADIAL',12X, 1 'CIRCUMFERENTIAL',12X,'AXIAL',16X,'CHARGE', /14X, 2 'NUMBER ANGLE',13X,'(R)',17X,'(THETA-T)',16X,'(Z)') 901 FORMAT (2X,'TIME HARMONIC POINT RADIAL AXIAL ', 1 'CIRCUM. SHEAR SHEAR SHEAR F L U X ', 2 'D E N S I T I E S', /11X,'NUMBER ANGLE (R)',9X, 3 '(Z) (THETA-T) (ZR) (RT) (ZT)',8X, 4 '(R) (Z) (T)') 902 FORMAT (5X,4HTIME,7X,8HHARMONIC,8X,2HT1,13X,2HT2,13X,2HT3,13X, 1 2HR1,13X,2HR2,13X,2HR3) 903 FORMAT (4X,7HSUBCASE,5X,8HHARMONIC,8X,2HT1,13X,2HT2,13X,2HT3, 1 13X,2HR1,13X,2HR2,13X,2HR3) 904 FORMAT (3X,9HFREQUENCY,4X,8HHARMONIC,8X,2HT1,13X,2HT2,13X,2HT3, 1 13X,2HR1,13X,2HR2,13X,2HR3) 905 FORMAT (19X,'F I N I T E E L E M E N T M A G N E T I C F I', 1 ' E L D A N D I N D U C T I O N',/) 906 FORMAT (4X,'ELEMENT-ID EL-TYPE X-FIELD',10X,'Y-FIELD', 1 10X,'Z-FIELD X-INDUCTION Y-INDUCTION',6X, 2 'Z-INDUCTION') 907 FORMAT (28X,'G R I D P O I N T S T R E S S E S F O R I S', 1 ' 2 D 8 E L E M E N T S',/) 908 FORMAT (2X,7HELEMENT,3X,5HNO.OF,4X,5HNO.OF,7X,4HGRID,3X,6HCOORD.) 909 FORMAT (4X,3HID.,4X,9HGRID PTS.,1X,8HSTRESSES,3X,5HPOINT,2X, 1 7HSYS ID.,5X,5HSIG-X,8X,5HSIG-Y,8X,6HTAU-XY) 910 FORMAT (12X,5HNO.OF,4X,5HNO.OF,13X,6HCOORD.) 911 FORMAT (4X,4HTIME,3X,9HGRID PTS.,1X,8HSTRESSES,2X,7HGRID PT,1X, 1 7HSYS ID.,5X,5HSIG-X,8X,5HSIG-Y,8X,6HTAU-XY) 912 FORMAT (20X,'C O M P L E X G R I D P O I N T S T R E S S E', 1 ' S F O R I S 2 D 8 E L E M E N T S',/) 913 FORMAT (2X,7HELEMENT,3X,5HNO.OF,4X,5HNO.OF,13X,6HCOORD.,/4X,3HID., 1 4X,9HGRID PTS.,1X,8HSTRESSES,2X,7HGRID PT,1X,7HSYS ID.,11X, 2 5HSIG-X,22X,5HSIG-Y,22X,6HTAU-XY) 914 FORMAT (12X,5HNO.OF,4X,5HNO.OF,13X,6HCOORD., /1X,9HFREQUENCY,1X, 1 9HGRID PTS.,1X,8HSTRESSES,2X,7HGRID PT,1X,7HSYS ID.,11X, 2 5HSIG-X,22X,5HSIG-Y,22X,6HTAU-XY) 915 FORMAT (12X,5HNO.OF,4X,5HNO.OF,13X,6HCOORD., /2X,7HSUBCASE,2X, 1 9HGRID PTS.,1X,8HSTRESSES,2X,7HGRID PT,1X,7HSYS ID.,5X, 2 5HSIG-X,8X,5HSIG-Y,8X,6HTAU-XY) 916 FORMAT (26X,'F O R C E S I N C U R V E D B E A M E L', 1 ' E M E N T S',8X,'( C E L B O W )',/) 917 FORMAT (5X,7HELEMENT,11X,16H-BENDING MOMENT-,21X,7H-SHEAR-,18X, 1 13H-AXIAL FORCE-,7X,8H-TORQUE-) 918 FORMAT (7X,3HID.,7X,13HPLANE-1 END-A,2X,13HPLANE-2 END-A,5X, 1 13HPLANE-1 END-A,2X,13HPLANE-2 END-A,13X,5HEND-A,13X, 2 5HEND-A) 919 FORMAT (25X,5HEND-B,10X,5HEND-B,13X,5HEND-B,28X,5HEND-B,13X, 1 5HEND-B) 920 FORMAT (26X,'S T R E S S E S I N C U R V E D B E A M ', 1 ' E L E M E N T S',8X,'( C E L B O W )',/) 921 FORMAT (23X,16H-BENDING MOMENT-,21X,7H-SHEAR-,18X, 1 13H-AXIAL FORCE-,7X,8H-TORQUE-) 922 FORMAT (4X,4HTIME,9X,13HPLANE-1 END-A,2X,13HPLANE-2 END-A,5X, 1 13HPLANE-1 END-A,8X,7HPLANE-2,13X,5HEND-A,13X,5HEND-A, 2 /25X,5HEND-B,10X,5HEND-B,13X,5HEND-B,28X,5HEND-B,13X, 3 5HEND-B) 923 FORMAT (6X,7HSUBCASE,4X,13HPLANE-1 END-A,2X,13HPLANE-2 END-A,5X, 1 13HPLANE-1 END-A,2X,13HPLANE-2 END-A,13X,5HEND-A,13X, 2 5HEND-A, /25X,5HEND-B,10X,5HEND-B,13X,5HEND-B,28X,5HEND-B, 3 13X,5HEND-B) 924 FORMAT (19X,'C O M P L E X F O R C E S I N C U R V E D ', 1 'B E A M E L E M E N T S ( C E L B O W )',/) 925 FORMAT (7X,9HFREQUENCY,21X,14HBENDING-MOMENT,19X,11HSHEAR-FORCE, 1 22X,5HAXIAL,10X,6HTORQUE, /35X,7HPLANE 1,8X,7HPLANE 2,11X, 2 7HPLANE 1,8X,7HPLANE 2,13X,5HFORCE) 926 FORMAT (18X,'C O M P L E X S T R E S S E S I N C U R V E D', 1 ' B E A M E L E M E N T S ( C E L B O W )',/) 927 FORMAT (7X,9HELEMENT ,21X,14HBENDING-MOMENT,19X,11HSHEAR-FORCE, 1 22X,5HAXIAL,10X,6HTORQUE, /35X,7HPLANE 1,8X,7HPLANE 2,11X, 2 7HPLANE 1,8X,7HPLANE 2,13X,5HFORCE) 928 FORMAT (23X,'F O R C E S I N F L U I D H E X A H E D R A L', 1 ' E L E M E N T S ( C F H E X 2 )',/) 929 FORMAT (23X,'F O R C E S I N F L U I D H E X A H E D R A L', 1 ' E L E M E N T S ( C F H E X 1 )',/) 930 FORMAT (19X,'F O R C E S I N F L U I D T E T R A H E D R A', 1 ' L E L E M E N T S ( C F T E T R A )',/) 931 FORMAT (26X,'F O R C E S I N F L U I D W E D G E E L E M', 1 ' E N T S ( C F W E D G E )',/) 932 FORMAT (24X,'P O W E R C O N V E C T E D B Y F T U B E ', 1 'E L E M E N T S ( C F T U B E )',/) 933 FORMAT (47X,4HTIME,26X,5HPOWER) 934 FORMAT (45X,10HELEMENT-ID ,22X,5HPOWER) 935 FORMAT (2X,7HELEMENT,3X,16HMAT. COORD. SYS.,30X, 1 42H- STRESSES IN MATERIAL COORDINATE SYSTEM -, /4X, 2 3HID., 5X,16HID./OUTPUT CODED, 14X,8HNORMAL-X, 26X, 3 8HNORAML-Y, 25X,8HSHEAR-XY ) 936 FORMAT (16X,16HMAT. COORD. SYS., 30X, 1 42H- STRESSES IN MATERIAL COORDINATE SYSTEM -, /4X, 2 9HFREQUENCY, 3X,15HID./OUTPUT CODE, 3 14X,8HNORAML-X, 26X,8HNORMAL-Y, 25X,8HSHEAR-XY ) 937 FORMAT (50X, 29H(IN STRESS COORDINATE SYSTEM),/) 938 FORMAT (2X,7HELEMENT,6X,5HFIBRE,15X,'STRESSES IN STRESS COORD. ', 1 'SYSTEM',13X,31HPRINCIPAL STRESSES (ZERO SHEAR),12X,3HMAX) 939 FORMAT (4X,3HID.,7X,8HDISTANCE,11X,8HNORMAL-X,7X,8HNORMAL-Y,6X, 1 8HSHEAR-XY,7X,5HANGLE,9X,5HMAJOR,11X,5HMINOR,10X,5HSHEAR) 940 FORMAT (20X,'F O R C E S I N G E N E R A L Q U A D R I ', 1 'L A T E R A L E L E M E N T S ( Q U A D 4 )',/) 941 FORMAT (6X,'ELEMENT',12X,'- MEMBRANE FORCES -',22X,'- BENDING', 1 ' MOMENTS -',11X,'- TRANSVERSE SHEAR FORCES -') 942 FORMAT (8X,'ID',10X,2HFX,12X,2HFY,12X,3HFXY,11X,2HMX,12X,2HMY, 1 12X,3HMXY,11X,2HVX,12X,2HVY) 943 FORMAT (19X,5HFIBRE,11X,32HSTRESSES IN STRESS COORD. SYSTEM,13X, 1 31HPRINCIPAL STRESSES (ZERO SHEAR),10X,7HMAXIMUM, /7X, 2 4HTIME,7X,8HDISTANCE,7X,8HNORMAL-X,7X,8HNORMAL-Y,6X, 3 8HSHEAR-XY,7X,5HANGLE,9X,5HMAJOR,11X,5HMINOR,10X,5HSHEAR) 944 FORMAT (19X, 5HFIBRE, 11X, 32HSTRESSES IN STRESS COORD. SYSTEM, 1 13X, 31HPRINCIPAL STRESSES (ZERO SHEAR), 10X, 7HMAXIMUM, 2 /5X, 7HSUBCASE, 6X, 8HDISTANCE, 7X, 8HNORMAL-X, 7X, 3 8HNORMAL-Y, 6X, 8HSHEAR-XY, 7X, 5HANGLE, 9X, 5HMAJOR, 4 11X, 5HMINOR, 10X, 5HSHEAR) 945 FORMAT (6X,' TIME ',18X,'- MEMBRANE FORCES -',22X,'- BENDING', 1 ' MOMENTS -',11X,'- TRANSVERSE SHEAR FORCES -') 946 FORMAT (26X,2HFX,12X,2HFY,12X,3HFXY,11X,2HMX,12X,2HMY,12X,3HMXY, 1 11X,2HVX,12X,2HVY) 947 FORMAT (6X,'SUBCASE',18X,'- MEMBRANE FORCES -',22X,'- BENDING', 1 ' MOMENTS -',11X,'- TRANSVERSE SHEAR FORCES -') 948 FORMAT (6X,'C O M P L E X S T R E S S E S I N G E N E R A ', 1 'L Q U A D R I L I A T E R A L E L E M E N T S ', 2 '( C Q U A D 4 )') 949 FORMAT (9H ELEMENT,7X,5HFIBRE,38X,'- STRESSES IN STRESS COORDI', 1 'NATE SYSTEM -', /4X,3HID.,8X,8HDISTANCE,18X,8HNORMAL-X, 2 26X,8HNORMAL-Y,25X,8HSHEAR-XY) 950 FORMAT (20X,5HFIBRE,38X,'- STRESSES IN STRESS COORDINATE SYSTEM -' 1, /4X,9HFREQUENCY,6X,8HDISTANCE,18X,8HNORMAL-X,26X, 2 8HNORMAL-Y,25X,8HSHEAR-XY) 951 FORMAT (6X,7HELEMENT,15X,6HCENTER,22X,7HEDGE 1,14X,7HEDGE 2,14X, 1 7HEDGE 3,14X,7HEDGE 4, /8X,3HID.,9X,'R ------- PHI ----', 2 '-- Z',4X,4(8X,13HS ------- PHI)) 952 FORMAT (28X,6HCENTER,22X,7HEDGE 1,14X,7HEDGE 2,14X,7HEDGE 3, 1 14X,7HEDGE 4, /7X,4HTIME,9X,22HR ------- PHI ------ Z,4X, 2 4(8X,13HS ------- PHI)) 953 FORMAT (29X,6HCENTER,21X,7HEDGE 1,14X,7HEDGE 2, 14X,7HEDGE 3, 1 14X,7HEDGE 4,/4X,9HFREQUENCY,7X,22HR ------- PHI ------ Z, 2 4X,4(8X,13HS ------- PHI)) 954 FORMAT (9X,'C O M P L E X S T R E S S E S I N T R I A N G ', 1 'U L A R M E M B R A N E E L E M E N T S ', 2 '( C T R I M 6 )') 955 FORMAT (11X,'C O M P L E X F O R C E S I N T R I A N G U L', 1 ' A R M E M B R A N E E L E M E N T S ( C T R I M 6 )') 956 FORMAT (9X,'C O M P L E X S T R E S S E S I N T R I A N G ', 1 'U L A R B E N D I N G E L E M E N T S ', 2 '( C T R P L T 1 )') 957 FORMAT (11X,'C O M P L E X F O R C E S I N T R I A N G U L', 1 ' A R B E N D I N G E L E M E N T S ( C T R P L T 1 )') 958 FORMAT (12X,'C O M P L E X S T R E S S E S I N T R I A N G', 1 ' U L A R S H E L L E L E M E N T S ( C T R S H L )') 959 FORMAT (14X,'C O M P L E X F O R C E S I N T R I A N G U L', 1 ' A R S H E L L E L E M E N T S ( C T R S H L )') 960 FORMAT (9X,'C O M P L E X F O R C E S I N G E N E R A L ', 1 'Q U A D R I L A T E R A L E L E M E N T S ', 2 '( C Q U A D 4 )') 961 FORMAT (3X,'FREQUENCY',14X,'- MEMBRANE FORCES -',23X,'- BENDING', 1 ' MOMENTS -',10X,'- TRANSVERSE SHEAR FORCES -', 2 /22X,2HFX,12X,2HFY,11X,3HFXY,13X,2HMX,12X,2HMY,11X,3HMXY, 3 13X,2HVX,12X,2HVY) 962 FORMAT (16X,4HGRID,11X,35HSTRESSES IN BASIC COORDINATE SYSTEM,13X, 1 12HDIR. COSINES, /3X,9HFREQUENCY,3X,5HPOINT,5X,8HNORMAL-X, 2 9X,8HNORMAL-Y,9X,8HNORMAL-Z,9X,8HSHEAR-XY,9X,8HSHEAR-YZ,9X, 3 8HSHEAR-ZX) 963 FORMAT (22X,'F O R C E S I N G E N E R A L T R I A N G ', 1 'U L A R E L E M E N T S ( C T R I A 3 )',/) 964 FORMAT (12X,'C O M P L E X F O R C E S I N G E N E R A L ', 1 ' T R I A N G U L A R E L E M E N T S ( C T R I A 3 )') 965 FORMAT (21X,'S T R E S S E S I N G E N E R A L T R I A N G', 1 ' U L A R E L E M E N T S',6X,'( C T R I A 3 )') 966 FORMAT (9X,'C O M P L E X S T R E S S E S I N G E N E R A ', 1 'L T R I A N G U L A R E L E M E N T S ', 2 '( C T R I A 3 )') 967 FORMAT (107X,22HOCTAHEDRAL PRESSURE, /6X,10H SUBCASE,8X, 1 8HSIGMA-XX,6X,8HSIGMA-YY,6X,8HSIGMA-ZZ,7X,6HTAU-YZ,8X, 2 6HTAU-XZ,8X,6HTAU-XY,8X,5HTAU-0,10X,1HP) CWKBNB NCL93012 3/94 969 FORMAT ( 4X, 'S T R A I N S / C U R V A T U R E S I N G E N ' 1,'E R A L Q U A D R I L A T E R A L E L E M E N T S ',6X 2,'( Q U A D 4 )' ) 970 FORMAT ( 4X, 'S T R A I N S / C U R V A T U R E S I N G E N ' 1,'E R A L T R I A N G U L A R E L E M E N T S ',6X 2,'( T R I A 3 )' ) CWKBNE NCL93012 3/94 CWKBNB SPR94001 7/94 971 FORMAT (' SUBCASE',5X,'STRESS',15X,'RADIAL',16X 1, 'CIRCUMFERENTIAL',16X,'AXIAL',21X,'SHEAR') 972 FORMAT (5X,'NO ',6X,'POINT',17X,'(X)',21X,'(THETA)',21X,'(Z)',23X, 1 '(ZX)') 973 FORMAT (' SUBCASE CORNER',18X,'RADIAL',26X,'CIRCUMFERENTIAL', 1 26X,'AXIAL') 974 FORMAT (' NO POINT',20X,'(X)',31X,'(THETA)',31X,'(Z)') CWKBNE SPR94001 7/94 END ================================================ FILE: mis/ofpcc1.f ================================================ SUBROUTINE OFPCC1 (IX, L1, L2, L3, L4, L5, IPOINT) C***** C SETS HEADER LINE FORMATS FOR COMPLEX ELEMENT STRESSES IN C MATERIAL COORDINATE SYSTEM -- SORT 1 OUTPUT C***** DIMENSION IDATA(48) C DATA IDATA/3951,104, 139, 125, 0, 432, 3977,104, 139, 126, 0, 432, * 3951,104, 140, 125, 0, 432, 3977,104, 140, 126, 0, 432, * 3951,104, 135, 125, 0, 432, 3977,104, 135, 126, 0, 432, * 3951,104, 134, 125, 0, 432, 3977,104, 134, 126, 0, 432/ C IX = IDATA(IPOINT ) L1 = IDATA(IPOINT+1) L2 = IDATA(IPOINT+2) L3 = IDATA(IPOINT+3) L4 = IDATA(IPOINT+4) L5 = IDATA(IPOINT+5) C RETURN END ================================================ FILE: mis/ofpcc2.f ================================================ SUBROUTINE OFPCC2 (IX, L1, L2, L3, L4, L5, IPOINT) C***** C SETS HEADER LINE FORMATS FOR COMPLEX ELEMENT STRESSES IN C MATERIAL COORDINATE SYSTEM -- SORT 2 OUTPUT C***** DIMENSION IDATA(48) C DATA IDATA/4003,108, 139, 125, 0, 433, 4031,108, 139, 126, 0, 433, * 4003,108, 140, 125, 0, 433, 4031,108, 140, 126, 0, 433, * 4003,108, 135, 125, 0, 433, 4031,108, 135, 126, 0, 433, * 4003,108, 134, 125, 0, 433, 4031,108, 134, 126, 0, 433/ C IX = IDATA(IPOINT ) L1 = IDATA(IPOINT+1) L2 = IDATA(IPOINT+2) L3 = IDATA(IPOINT+3) L4 = IDATA(IPOINT+4) L5 = IDATA(IPOINT+5) C RETURN END ================================================ FILE: mis/ofpcf1.f ================================================ SUBROUTINE OFPCF1(IX,L1,L2,L3,L4,L5,POINT) C***** C SETS HEADER LINE FORMATS FOR COMPLEX FORCES SORT1 C***** INTEGER C, POINT COMMON/OFPB6/ C(10) IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofpcf2.f ================================================ SUBROUTINE OFPCF2(IX,L1,L2,L3,L4,L5,POINT) C***** C SETS HEADER LINE FORMATS FOR COMPLEX FORCES SORT2 C***** INTEGER C, POINT COMMON/OFPB8/ C(10) IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofpcs1.f ================================================ SUBROUTINE OFPCS1(IX,L1,L2,L3,L4,L5,POINT) C***** C SETS HEADER LINE FORMATS FOR COMPLEX STRESSES SORT1 C***** INTEGER C, POINT COMMON/OFPB2/ C(10) IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofpcs2.f ================================================ SUBROUTINE OFPCS2(IX,L1,L2,L3,L4,L5,POINT) C***** C SETS HEADER LINE FORMATS FOR COMPLEX STRESSES SORT2 C***** INTEGER C, POINT COMMON/OFPB4/ C(10) IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofpgpw.f ================================================ SUBROUTINE OFPGPW (*,FILE,OUT,FROM) C C PRINT GRID POINT WEIGHT GENERATORN TABLE C (SOURCE PROGRAM ORIGINALLY CODED IN OFP) C INTEGER FILE,FLAG,FROM,OF(5) DOUBLE PRECISION OUT(1) COMMON /SYSTEM/ IBUF,L,DUMMY(10),LINE COMMON /ZZZZZZ/ CORE(1) EQUIVALENCE (L1,OF(1),CORE(1)), (L2,OF(2)), (L3,OF(3)), 1 (L4,OF(4)), (L5,OF(5)) C C FOR GRIDPOINT WEIGHT OUTPUT ONLY ONE DATA VECTOR OF 78 WORDS C IS EXPECTED AND IT IS THUS READ AND OUTPUT EXPLICITLY C (CHANGED TO D.P. BY G.CHAN/UNISYS, AND THEREFORE 156 WORDS. C THIS RECORD IS SENT OVER BY GPWG1B, WHICH IS NOW A D.P. ROUTINE) C FROM = 345 CALL READ (*2020,*60,FILE,OUT(1),90,0,FLAG) L1 = 0 L2 = 0 L3 = 202 L4 = 0 L5 = 0 CALL OFP1 LINE = LINE + 44 WRITE (L,350) (OUT(I),I=1,45) 350 FORMAT (37X, 1 'MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM', 2 /16X,3H***,93X,3H***, /6(16X,1H*,1P,6D16.8,2H *,/),16X, 3 3H***,93X,3H***, /40X, 4 51HS - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION, 5 /2(40X,3H***,5X), /3(40X,1H*,1P,3D16.8,2H *,/),2(40X,3H***, 4 5X), /25X,9HDIRECTION, /20X,20HMASS AXIS SYSTEM (S),7X, 5 4HMASS,17X,6HX-C.G.,11X,6HY-C.G.,11X,6HZ-C.G.) FROM = 355 CALL READ (*2020,*60,FILE,OUT(1),66,1,FLAG) WRITE (L,360) (OUT(I),I=1,12) 360 FORMAT (28X,1HX,1P,D27.9,1P,D21.9,1P,2D17.9,/ 1 28X,1HY,1P,D27.9,1P,D21.9,1P,2D17.9,/ 2 28X,1HZ,1P,D27.9,1P,D21.9,1P,2D17.9) WRITE (L,370) (OUT(I),I=13,33) 370 FORMAT (/49X,33HI(S) - INERTIAS RELATIVE TO C.G. , /2(38X,3H***, 1 11X), /3(38X,1H*,1P,3D17.9,3H *,/),2(38X,3H***,11X), /54X, 2 25HI(Q) - PRINCIPAL INERTIAS, /2(38X,3H***,11X), /38X,1H*, 3 1P,D17.9,36X,1H*, /38X,1H*,1P,D34.9,19X,1H*, /38X,1H*,1P, 4 D51.9,3H *, /2(38X,3H***,11X), /44X, 5 44HQ - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q, /2(38X, 6 3H***,11X),/3(38X,1H*,1P,3D17.9,3H *,/),2(38X,3H***,11X)) 60 RETURN C 2020 RETURN 1 END ================================================ FILE: mis/ofpmis.f ================================================ SUBROUTINE OFPMIS(IX,L1,L2,L3,L4,L5,POINT) C***** C SETS HEADER LINE FORMATS FOR ALL NON-STRESS AND NON-FORCE C***** INTEGER C, POINT COMMON/OFPB9/ C(10) IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofppnt.f ================================================ SUBROUTINE OFPPNT (OUT,NWDS,FMT) C CWKBD LOGICAL DEBUG CWKBR INTEGER OUT(NWDS), FMT(300) INTEGER OUT(NWDS) CHARACTER*1 FMT(1200) CWKBI COMMON /MACHIN/ MACHX COMMON /SYSTEM/ SYSBUF, L CWKBD DATA DEBUG / .FALSE. / C CWKBD IF (DEBUG) WRITE (L,10) (FMT(K),K=1,32) 10 FORMAT (' FMT=',32A4) CWKBR 5/95 IF ( MACHX.EQ.2 .OR. MACHX.EQ.5 ) IF ( MACHX.EQ.2 .OR. MACHX.EQ.5 .OR. MACHX .EQ. 21 ) * WRITE (L,FMT,IOSTAT=IOSXX) (OUT(K),K=1,NWDS) CWKBR 5/95 IF ( MACHX.NE.2 .AND. MACHX.NE.5 ) IF ( MACHX.NE.2 .AND. MACHX.NE.5 .AND. MACHX .NE. 21 ) * CALL FORWRT (FMT, OUT, NWDS) RETURN END ================================================ FILE: mis/ofppun.f ================================================ SUBROUTINE OFPPUN (IBUF,BUF,NWDS,IOPT,IDD,PNCHED) C C MAIN OFP PUNCH ROUTINE FOR PUNCHING OF DATA LINES ONLY C C $MIXED_FORMATS C LOGICAL TEMPER,PNCHED INTEGER IBUF(NWDS),VECTOR,ID(50),OF(56) REAL BUF(NWDS),RID(50) COMMON /SYSTEM/ SYSBUF,L,DUM53(53),ITHERM,DUM34(34),LPCH COMMON /OUTPUT/ HD(96) C COMMON /ZZOFPX/ L1,L2,L3,L4,L5,ID(50) COMMON /ZZZZZZ/ CORE(1) COMMON /BLANK / ICARD COMMON /OFPCOM/ TEMPER, M COMMON /GPTA1 / NELM,LAST,INCR,IE(25,1) EQUIVALENCE (RID(1),ID(1),OF(6)), (L1,OF(1),CORE(1)), 1 (L2,OF(2)), (L3,OF(3)), (L4,OF(4)), (L5,OF(5)) DATA VECTOR, IDTEMP / 1, 0 / C C IF (.NOT. PNCHED) GO TO 700 20 IF (NWDS .LT. 0) GO TO 1710 C C FIRST CARD OUT C ICARD = ICARD + 1 IF (IOPT .EQ. VECTOR) GO TO 200 C C GENERAL 1-ST CARD (FIRST WORD OF BUF ASSUMED INTEGER) C N = MIN0(4,NWDS) IF (IDD) 30,90,40 30 IF (IDD .EQ. -1) GO TO 90 40 GO TO (50,60,70,80), N 50 WRITE (LPCH,440,ERR=180) BUF(1),ICARD GO TO 180 60 WRITE (LPCH,450,ERR=180) BUF(1),BUF(2),ICARD GO TO 180 70 WRITE (LPCH,460,ERR=180) BUF(1),BUF(2),BUF(3),ICARD GO TO 180 80 WRITE (LPCH,470,ERR=180) BUF(1),BUF(2),BUF(3),BUF(4),ICARD GO TO 180 90 GO TO (100,110,120,130), N 100 WRITE (LPCH,400) IBUF(1),ICARD GO TO 180 110 WRITE (LPCH,410,ERR=180) IBUF(1),BUF(2),ICARD GO TO 180 120 WRITE (LPCH,420,ERR=180) IBUF(1),BUF(2),BUF(3),ICARD GO TO 180 C C CHECK FOR THERMAL FORCES FOR ISOPARAMETRICS C 130 IF (ITHERM.EQ.0 .OR. M.NE.4) GO TO 150 IF (ID(3).LT.65 .OR. ID(3).GT.67) GO TO 150 WRITE (LPCH,140) IBUF(1),BUF(2),IBUF(3),BUF(4),ICARD 140 FORMAT (I10,8X,A4,14X,I10,8X,1P,E18.6,I8) GO TO 180 C C CHECK FOR INTEGER IN SECOND ARGUMENT ALSO. C 150 IF (M .EQ. 19) GO TO 170 IF (NUMTYP(BUF(2)) .LE. 1) GO TO 160 WRITE (LPCH,430,ERR=180) IBUF(1),BUF(2),BUF(3),BUF(4),ICARD GO TO 180 160 WRITE (LPCH,500,ERR=180) IBUF(1),IBUF(2),BUF(3),BUF(4),ICARD GO TO 180 170 WRITE (LPCH,510) IBUF(1),IBUF(2),BUF(3),BUF(4),ICARD GO TO 180 180 NWORD = 4 GO TO 230 C C VECTOR 1-ST CARD (FIRST WORD INTEGER, SECOND WORD BCD) C 200 IF (TEMPER) GO TO 280 IF (IDD.NE.0 .AND. IDD.NE.-1) GO TO 210 WRITE (LPCH,520,ERR=220) IBUF(1),BUF(2),BUF(3),BUF(4),BUF(5),ICARD GO TO 220 210 WRITE (LPCH,530,ERR=220) BUF(1),BUF(2),BUF(3),BUF(4),BUF(5),ICARD 220 NWORD = 5 C C CONTINUATION CARDS IF ANY. C 230 IF (NWORD .GE. NWDS) GO TO 1710 ICARD = ICARD + 1 NWORD = NWORD + 3 IF (NWORD .LE. NWDS) GO TO 250 NWORD = NWORD - 1 IF (NWORD .EQ. NWDS) GO TO 240 NWORD = NWORD - 1 C C 1 WORD OUT C WRITE (LPCH,610,ERR=1710) BUF(NWORD),ICARD GO TO 1710 C C 2 WORDS OUT C 240 WRITE (LPCH,600,ERR=1710) BUF(NWORD-1),BUF(NWORD),ICARD GO TO 1710 C C 3 WORDS OUT C 250 IF (IBUF(NWORD-1) .EQ. VECTOR) GO TO 260 IF (IBUF(NWORD ) .EQ. VECTOR) GO TO 270 WRITE (LPCH,590,ERR=230) BUF(NWORD-2),BUF(NWORD-1),BUF(NWORD), 1 ICARD GO TO 230 260 WRITE (LPCH,620) BUF(NWORD-2),BUF(NWORD),ICARD GO TO 230 270 WRITE (LPCH,600) BUF(NWORD-2),BUF(NWORD-1),ICARD GO TO 230 C C SPECIAL PUNCH ONLY WHEN TEMPER FLAG IS ON IN A -HEAT- FORMULATION. C 280 IC1 = IBUF(1) IF (IDD.EQ.0 .OR. IDD.EQ.-1) GO TO 290 IDTEMP = IDTEMP + 1 IC1 = IDD 290 CONTINUE WRITE (LPCH,300) IDTEMP,IC1,BUF(3),ICARD 300 FORMAT (8HTEMP* ,I16,I16,1P,E16.6,16X,I8) GO TO 1710 C 400 FORMAT (I10,62X,I8) 410 FORMAT (I10,8X,1P,E18.6,36X,I8) 420 FORMAT (I10,8X,2(1P,E18.6),18X,I8) 430 FORMAT (I10,8X,3(1P,E18.6),I8) 440 FORMAT (1P,E18.6,54X,I8) 450 FORMAT (2(1P,E18.6),36X,I8) 460 FORMAT (3(1P,E18.6),18X,I8) 470 FORMAT (4(1P,E18.6),I8) 500 FORMAT (I10,8X,I10,8X,2(1P,E18.6),I8) 510 FORMAT (I10,8X,I10,8X,2A4,28X,I8) 520 FORMAT (I10,7X,A1,3(1P,E18.6),I8) 530 FORMAT (1P,E16.6,1X,A1,3(1P,E18.6),I8) 590 FORMAT (6H-CONT-,12X,3(1P,E18.6),I8) 600 FORMAT (6H-CONT-,12X,2(1P,E18.6),18X,I8) 610 FORMAT (6H-CONT-,12X,1P,E18.6,36X,I8) 620 FORMAT (6H-CONT-,12X,1P,E18.6,18X,1P,E18.6,I8) C C C PUNCH HEADING CARDS C C C TITLE,SUBTITLE,AND LABEL C 700 DO 740 I = 1,3 ICARD = ICARD + 1 GO TO (710,720,730), I 710 WRITE (LPCH,750) (HD(J),J= 1,15),ICARD GO TO 740 720 WRITE (LPCH,760) (HD(J),J=33,47),ICARD GO TO 740 730 WRITE (LPCH,770) (HD(J),J=65,79),ICARD 740 CONTINUE C 750 FORMAT (10H$TITLE =,15A4,2X,I8) 760 FORMAT (10H$SUBTITLE=,15A4,2X,I8) 770 FORMAT (10H$LABEL =,15A4,2X,I8) C KTYPE = ID(2)/1000 M = ID(2) - (KTYPE)*1000 IF (M.LT.1 .OR. M.GT.19) GO TO 1200 ICARD = ICARD + 1 GO TO (780,790,800 ,810,900,1170,910,1170,1170,920, 1 930,940,1170,950,960,970 ,980,990 ,1000), M 780 WRITE (LPCH,1010) ICARD GO TO 1200 790 WRITE (LPCH,1020) ICARD GO TO 1200 800 WRITE (LPCH,1030) ICARD GO TO 1200 810 WRITE (LPCH,1040) ICARD GO TO 1200 C C PUNCH ELEMENT STRESS OR GRID POINT STRESS HEADING LINE C 900 IF (L2 .NE. 378) WRITE(LPCH,1050) ICARD IF (L2 .EQ. 378) WRITE(LPCH,1060) ICARD GO TO 1200 910 WRITE (LPCH,1070) ICARD GO TO 1200 920 WRITE (LPCH,1080) ICARD GO TO 1200 930 WRITE (LPCH,1090) ICARD GO TO 1200 940 WRITE (LPCH,1100) ICARD GO TO 1200 950 WRITE (LPCH,1110) ICARD GO TO 1200 960 WRITE (LPCH,1120) ICARD GO TO 1200 970 WRITE (LPCH,1130) ICARD GO TO 1200 980 WRITE (LPCH,1140) ICARD GO TO 1200 990 WRITE (LPCH,1150) ICARD GO TO 1200 1000 WRITE (LPCH,1160) ICARD GO TO 1200 C 1010 FORMAT (14H$DISPLACEMENTS,58X,I8) 1020 FORMAT (7H$OLOADS,65X,I8) 1030 FORMAT (5H$SPCF,67X,I8) 1040 FORMAT (15H$ELEMENT FORCES,57X,I8) 1050 FORMAT (17H$ELEMENT STRESSES,55X,I8) 1060 FORMAT (24H$STRESSES AT GRID POINTS,48X,I8) 1070 FORMAT (12H$EIGENVECTOR,60X,I8) 1080 FORMAT (9H$VELOCITY,63X,I8) 1090 FORMAT (13H$ACCELERATION,59X,I8) 1100 FORMAT (18H$NON-LINEAR-FORCES,54X,I8) 1110 FORMAT (27H$EIGENVECTOR (SOLUTION SET),45X,I8) 1120 FORMAT (29H$DISPLACEMENTS (SOLUTION SET),43X,I8) 1130 FORMAT (24H$VELOCITY (SOLUTION SET),48X,I8) 1140 FORMAT (28H$ACCELERATION (SOLUTION SET),43X,I8) 1150 FORMAT (23HELEMENT STRAIN ENERGIES ,49X,I8) 1160 FORMAT (24HGRID POINT FORCE BALANCE ,48X,I8) 1170 ICARD = ICARD - 1 C C REAL, REAL/IMAGINARY, MAGNITUDE/PHASE C 1200 ICARD = ICARD + 1 IF (KTYPE.LT.1 .OR. KTYPE.EQ.2) GO TO 1210 IF (ID(9).EQ. 3) GO TO 1230 GO TO 1220 1210 WRITE (LPCH,1240) ICARD GO TO 1300 1220 WRITE (LPCH,1250) ICARD GO TO 1300 C 1230 WRITE (LPCH,1260) ICARD 1240 FORMAT (12H$REAL OUTPUT,60X,I8) 1250 FORMAT (22H$REAL-IMAGINARY OUTPUT, 50X,I8) 1260 FORMAT (23H$MAGNITUDE-PHASE OUTPUT,49X,I8) C C SUBCASE NUMBER FOR SORT1 OUTPUT, OR C SUBCASE NUMBER FOR SORT2, FREQUENCY AND TRANSIENT RESPONSE ONLY C 1300 IF (KTYPE .LE. 1) GO TO 1310 IAPP = ID(1)/10 IF (IAPP.NE.5 .AND. IAPP.NE.6) GO TO 1400 1310 ICARD = ICARD + 1 WRITE (LPCH,1320) ID(4),ICARD 1320 FORMAT (13H$SUBCASE ID =,I12,47X,I8) C C IF ELEMENT STRESS OR FORCE PUNCH ELEMENT TYPE NUMBER C 1400 IF (M.NE.4 .AND. M.NE.5) GO TO 1500 ICARD = ICARD + 1 ID3 = ID(3) IF (L2 .NE. 378) WRITE (LPCH,1410) ID3,IE(1,ID3),IE(2,ID3),ICARD IF (L2 .EQ. 378) WRITE (LPCH,1420) ICARD 1410 FORMAT (15H$ELEMENT TYPE =,I12,3X,1H(,2A4,1H),32X,I8) 1420 FORMAT (38H$PUNCHED IN MATERIAL COORDINATE SYSTEM,34X,I8) C C PUNCH EIGENVALUE, FREQUENCY, POINT OR ELEMENT ID, OR TIME C 1500 IAPP = ID(1)/10 IF (IAPP.LT.1 .OR. IAPP.GT.10) GO TO 1700 GO TO (1590,1510,1590,1590,1550,1570,1590,1510,1510,1590), IAPP C C PUNCH EIGENVALUE C 1510 ICARD = ICARD + 1 IF (KTYPE .EQ. 1) GO TO 1530 WRITE (LPCH,1520,ERR=1700) RID(6),ID(5),ICARD 1520 FORMAT (13H$EIGENVALUE =,E15.7,2X,6HMODE =,I6,30X,I8) GO TO 1700 1530 WRITE (LPCH,1540,ERR=1700) RID(6),RID(7),ID(5),ICARD 1540 FORMAT (15H$EIGENVALUE = (,E15.7,1H,,E15.7,8H) MODE =,I6,12X,I8) GO TO 1700 C C FREQUENCY OR TIME, POINT OR ELEMENT ID C 1550 IF (KTYPE .GT. 1) GO TO 1590 ICARD = ICARD + 1 WRITE (LPCH,1560,ERR=1700) RID(5),ICARD 1560 FORMAT (12H$FREQUENCY =,E16.7,44X,I8) GO TO 1700 1570 IF (KTYPE .GT. 1) GO TO 1590 ICARD = ICARD + 1 WRITE (LPCH,1580,ERR=1700) RID(5),ICARD 1580 FORMAT (7H$TIME =,E16.7,49X,I8) GO TO 1700 1590 IF (KTYPE .LE. 1) GO TO 1700 ICARD = ICARD + 1 IF (M.EQ.4 .OR. M.EQ.5) GO TO 1610 WRITE (LPCH,1600) ID(5),ICARD 1600 FORMAT (11H$POINT ID =,I12,49X,I8) GO TO 1700 1610 WRITE (LPCH,1620) ID(5),ICARD 1620 FORMAT (13H$ELEMENT ID =,I10,49X,I8) C C CARD HEADING COMPLETE C 1700 PNCHED = .TRUE. IF (.NOT.TEMPER) GO TO 20 IDTEMP = IDTEMP + 1 IF (IDD .GT. 0) IDTEMP = 0 GO TO 20 C 1710 RETURN END ================================================ FILE: mis/ofprf1.f ================================================ SUBROUTINE OFPRF1(IX,L1,L2,L3,L4,L5,POINT) C***** C SETS HEADER LINE FORMATS FOR REAL FORCES SORT1 C***** INTEGER C, POINT COMMON/OFPB5/ C(10) IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofprf2.f ================================================ SUBROUTINE OFPRF2(IX,L1,L2,L3,L4,L5,POINT) C***** C SETS HEADER LINE FORMATS FOR REAL FORCES SORT2 C***** INTEGER C, POINT COMMON/OFPB7/ C(10) IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofprs1.f ================================================ SUBROUTINE OFPRS1(IX,L1,L2,L3,L4,L5,POINT) C***** C SETS HEADER LINE FORMATS FOR REAL STREESES SORT1 C***** INTEGER C, POINT COMMON/OFPB1/ C(10) IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofprs2.f ================================================ SUBROUTINE OFPRS2(IX,L1,L2,L3,L4,L5,POINT) C***** C SETS HEADER LINE FORMATS FOR REAL STREESES SORT2 C***** INTEGER C, POINT COMMON/OFPB3/ C(10) IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofpsn1.f ================================================ SUBROUTINE OFPSN1 (IX, L1, L2, L3, L4, L5, POINT) C***** C SETS HEADER LINE FORMATS FOR REAL STRAINS SORT1 C***** INTEGER C, POINT COMMON/OFSN1/ C(10) IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofpss1.f ================================================ SUBROUTINE OFPSS1 (IX, L1, L2, L3, L4, L5, POINT) C***** C SETS HEADER LINE FORMATS FOR REAL STRESSES SORT1 (IN MATERIAL C COORDINATES) C***** INTEGER C, POINT COMMON/OFSS1/ C(10) IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofrf2s.f ================================================ SUBROUTINE OFRF2S(IX,L1,L2,L3,L4,L5,POINT) C***** C SETS HEADER LINE FORMATS FOR REAL FORCES SORT2 - STATICS C***** INTEGER C, POINT COMMON/OFPB7S/ C(10) C***** IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofrs2s.f ================================================ SUBROUTINE OFRS2S(IX,L1,L2,L3,L4,L5,POINT) C***** C SETS HEADER LINE FORMATS FOR REAL STRESSES SORT2 - STATICS C***** INTEGER C, POINT COMMON/OFPB3S/ C(10) C***** IX = C(POINT) L1 = C(POINT+1) L2 = C(POINT+2) L3 = C(POINT+3) L4 = C(POINT+4) L5 = C(POINT+5) RETURN END ================================================ FILE: mis/ofsplt.f ================================================ SUBROUTINE OFSPLT (*,ESYM,ELID,G,OFFSET,X,DEFORM,GPLST) C C CALLED ONLY BY LINEL TO PRCESS ELEMENT OFFSET PLOT C THIS ROUTINE DRAW THE CBAR, CTRIA3, AND CQUAD4, WITH OFFSET IN C PLACE. C C INPUT: C ESYM = BCD, SHOULD BE 'BR', 'T3', OR 'Q4' BCD C ELID = ELEMENT ID I C G = SIL LIST I C OFFSET = 6 COORDINATES (GLOBAL) FOR CBAR, I C = 1 OFFSET, NORMAL TO PLATE, FOR CTRIA3 OR CQUAD4 C X = GRID POINT COORDINATE, ALREADY CONVERTED TO SCREEN C (X-Y) COORDINATES R C DEFORM = 0, FOR UNDEFORM PLOT, .NE.0 FOR DEFORMED OR BOTH I C THIS ROUTINE WILL NOT PROCESS DEFORMED-OFFSET PLOT C OFFSCL = OFFSET MULTIPLICATION FACTOR I C PEDGE = OFFSET PLOT FLAG I C = 3, PLOT OFFSET ELEMENTS ONLY, SKIP OTHER ELEMNETS C NOT = 3, PLOT OFFSET ELEMENTS, RETURN TO PLOT OTHERS C PLABEL = FLAG FOR ELEM ID LABEL I C PEN = PEN SELECTION, 1-31. 32-62 FOR COLOR FILL I C OFFLAG = HEADING CONTROL I C ELSET = ECT DATA BLOCK. THIS DATA BLOCK WAS MODIFIED IN I C COMECT TO INCLUDE OFFSET DATA FOR BAR,TRIA3,QUAD4 C GPLST = A SUBSET OF GRID POINTS PERTAININGS TO THOSE GRID I C POINTS USED ONLY IN THIS PLOT C LOCAL: C SCALE = REAL NUMBER OF OFFSCL C OFF = OFFSET VALUES FROM ELEMENT DATA IN ELSET DATA BLOCK C PN1 = PEN COLOR FOR OFFSET LEG. C IF PEN.GT.1, PN1 = PEN-1. IF PEN.LE.1, PN1 = PEN+1 C NL = NO. OF LINES TO BE DRAWN PER ELEMENT C DELX = SMALL OFFSET FROM MIDDLE OF LINE FOR ELEM ID PRINTING C 0.707 = AN ABITRARY FACTOR TO PUT OFFSET 45 DEGREE OFF GRID C POINT C C TWO METHODS C (1) PEDGE .NE. 3 C AN OFFSET PLOT WITHOUT CONSIDERING ITS TRUE DIRECTION, OFFSET C VALUE(S) MAGNIFIED 20 TIMES C (2) PEDGE .EQ. 3 C PLOT WITH TRUE OFFSET DIRECTIONS, AND PLOT, WITH COLOR OPTION, C GRID(A)-OFFSET(A)-OFFSET(B)-GRID(B) C OFFSET CAN BE SCALE UP BY USER VIA PLOT OFFSET COMMAND, C DEFAULT IS NO SCALE UP. (NEW 93) C C A SYMBOL * IS ADDED AT THE TIP OF EACH OFFSET C CURRENTLY THE SYMBOLS KBAR,KT3 AND KQ4 ARE NOT USED C C CURRENTLY ONLY CBAR (OFFSET=6), CTRIA3 AND CQUAD4 (OFFSET=1 BOTH) C HAVE OFFSET CAPABILITY C C WRITTEN BY G.CHAN/UNISYS 10/1990 C C COMMENTS FORM G.C. 3/93 C THE LOGIC IN COMPUTING THE TRUE OFFSET INVOLVING COORDINATE C TRANSFORMATION AT EACH POINT POINT SEEMS SHAKY. MAKE SURE THAT C AXIS AND SIGN DATA (FROM PROCES) ARE TRUELY AVAILBLE. ARE THE C GIRD POINT XYZ COORDINATES AT HAND IN GLOBAL ALREADY? C THE OFFSET PLOT IS QUESTIONABLE. C IMPLICIT INTEGER (A-Z) INTEGER G(3),OFFHDG(5),SYM(2),GPLST(1) REAL X(3,1),OFF(3,2),V(3),CSTM,SIGN,X1,X2,X3,Y1,Y2,Y3, 1 XMAX,YMAX,YMAX1,CNTX,CNTY,CNTY4,SCALE,DELX, 2 OFV(3,2) COMMON /BLANK / SKP1(12),ELSET COMMON /SYSTEM/ SKP2,NOUT COMMON /RSTXXX/ CSTM(3,3),SKP3(12),AXIS(3),SIGN(3) COMMON /XXPARM/ SKP4(235),OFFSCL COMMON /DRWDAT/ SKP5,PLABEL,SKP6,PEN,SKP7(11),PEDGE,OFFLAG COMMON /PLTDAT/ SKP8(6),XMAX,YMAX,SKP9(15),CNTX,CNTY DATA KBAR , KT3,KQ4 / 2HBR,2HT3,2HQ4 /, SYM / 2,0 / DATA OFFHDG/ 4H OFF,4HSET ,4HSCAL,4HE = ,4H X / C CALL FREAD (ELSET,OFF,OFFSET,0) C IF (DEFORM.NE.0 .OR. OFFSCL.LT.0) GO TO 200 IF (PEDGE.NE.3 .OR. OFFLAG.EQ.1) GO TO 20 OFFLAG= 1 CNTY4 = 4.*CNTY YMAX1 = YMAX - CNTY SCALE = 1.0 IF (PEDGE .NE. 3) SCALE = 20.0 IF (PEDGE .EQ. 3) SCALE = FLOAT(OFFSCL) MPEN = MOD(PEN,31) IF (MPEN .GT. 1) PN1 = MPEN - 1 IF (MPEN .LE. 1) PN1 = MPEN + 1 C C ADD OFFSET HEADER LINE C CALL PRINT (30.*CNTX,YMAX,1,OFFHDG,5,0) X1 = 48. IF (OFFSCL .GE. 100) X1 = 47. CALL TYPINT (X1*CNTX,YMAX,1,OFFSCL,1,0) C 20 X1 = 0.0 DO 30 I = 1,OFFSET X1 = X1 + ABS(OFF(I,1)) OFV(I,1) = OFF(I,1) 30 CONTINUE IF (ABS(X1) .LT. 1.0E-7) GO TO 200 C NL = 1 IF (ESYM .EQ. KT3) NL = 3 IF (ESYM .EQ. KQ4) NL = 4 IF (PEDGE .NE. 3) GO TO 150 C J = ALOG10(FLOAT(ELID)) + 1.0 DELX = (J+.03)*CNTX C C COMPUTE THE TRUE OFFSET DIRECTION IF PEDGE = 3, C OTHERWISE, JUST PLOT OFFSET AT 45 DEGREE C IF (OFFSET .EQ. 1) GO TO 90 C C CBAR, OFFSET = 6 C CONVERT OFFSET FROM GLOBAL TO PLOT COORDINATES C C AXIS AND SIGN DATA FROM SUBROUTINE PROCES C DO 80 K = 1,2 DO 50 I = 1,3 J = AXIS(I) V(J) = SIGN(I)*OFV(J,K) 50 CONTINUE DO 70 J = 1,3 L = AXIS(J) X1 = 0.0 DO 60 I = 1,3 X1 = X1 + CSTM(L,I)*V(I) 60 CONTINUE OFF(J,K) = X1*SCALE 70 CONTINUE 80 CONTINUE GO TO 110 C C CTRIA3 AND CQUAD4, OFFSET = 1 C COMPUTE UNIT NORMAL TO THE PLATE BY CROSS PRODUCT, THEN C THE MAGNITUDE OF OFFSET C 90 I = G(1) J = G(2) K = G(3) I = GPLST(I) J = GPLST(J) K = GPLST(K) V(1) = (X(2,J)-X(2,I))*(X(3,K)-X(3,I)) 1 - (X(3,J)-X(3,I))*(X(2,K)-X(2,I)) V(2) = (X(3,J)-X(3,I))*(X(1,K)-X(1,I)) 1 - (X(1,J)-X(1,I))*(X(3,K)-X(3,I)) V(3) = (X(1,J)-X(1,I))*(X(2,K)-X(2,I)) 1 - (X(2,J)-X(2,I))*(X(1,K)-X(1,I)) X1 = 0.5*SQRT(V(1)*V(1) + V(2)*V(2) + V(3)*V(3)) V(2) = V(2)/X1 V(3) = V(3)/X1 OFF(2,1) = OFV(1,1)*V(2)*SCALE OFF(3,1) = OFV(1,1)*V(3)*SCALE OFF(2,2) = OFF(2,1) OFF(3,2) = OFF(3,1) C C DRAW THE ELEMENT LINES AND ELEMENT ID C IF COLOR FILL IS REQUESTED, SET PEN TO ZERO ON THE LAST CLOSING-IN C EDGE (2- OR 3-DIMESIONAL ELEMENTS ONLY) C 110 DO 130 L = 1,NL I = G(L ) J = G(L+1) I = GPLST(I) J = GPLST(J) X1 = X(2,I) Y1 = X(3,I) X2 = X(2,I) + OFF(2,1) Y2 = X(3,I) + OFF(3,1) IF (X2 .LT. 0.1) X2 = 0.1 IF (X2 .GT. XMAX) X2 = XMAX IF (Y2 .LT. CNTY4) Y2 = CNTY4 IF (Y2 .GT. YMAX1) Y2 = YMAX1 CALL LINE (X1,Y1,X2,Y2,PN1,0) CALL SYMBOL (X2,Y2,SYM,0) X3 = X(2,J) + OFF(2,2) Y3 = X(3,J) + OFF(3,2) IF (X3 .LT. 0.1) X3 = 0.1 IF (X3 .GT. XMAX) X3 = XMAX IF (Y3 .LT. CNTY4) Y3 = CNTY4 IF (Y3 .GT. YMAX1) Y3 = YMAX1 IPEN = PEN IF (PEN.GT.31 .AND. NL.GE.3 .AND. L.EQ.NL) IPEN = 0 CALL LINE (X2,Y2,X3,Y3,IPEN,0) C IF (L .GT. 1) GO TO 130 IF (PLABEL.NE.3 .AND. PLABEL.NE.6) GO TO 120 IF (X2 .GE. X1) DELX = -DELX X1 = 0.5*(X3 + X2) + DELX Y1 = 0.5*(Y3 + Y2) CALL TYPINT (X1,Y1,1,ELID,1,0) 120 IF (NL .GT. 1) GO TO 130 CALL SYMBOL (X3,Y3,SYM,0) X2 = X(2,J) Y2 = X(3,J) CALL LINE (X3,Y3,X2,Y2,PEN,0) 130 CONTINUE GO TO 210 C C PLOT OFFSET WITHOUT CONSIDERING ITS TRUE OFFSET DIRECTION IN C GENERAL PLOT. (SEE 130 LOOP FOR ELEMENTS WITH COLOR FILL) C 150 IF (OFFSET .EQ. 1) GO TO 160 V(1) = OFF(1,1)*OFF(1,1) + OFF(2,1)*OFF(2,1) + OFF(3,1)*OFF(3,1) V(2) = OFF(1,2)*OFF(1,2) + OFF(2,2)*OFF(2,2) + OFF(3,2)*OFF(3,2) V(1) = 0.707*SQRT(V(1)) V(2) = 0.707*SQRT(V(2)) GO TO 170 C 160 V(1) = 0.707*OFF(1,1) V(2) = V(1) C 170 V(1) = V(1)*SCALE V(2) = V(2)*SCALE DO 180 L = 1,NL I = G(L ) J = G(L+1) I = GPLST(I) J = GPLST(J) X1 = X(2,I) + V(1) Y1 = X(3,I) + V(1) X2 = X(2,J) + V(2) Y2 = X(3,J) + V(2) IPEN = PEN IF (PEN.GT.31 .AND. NL.GE.3 .AND. L.EQ.NL) IPEN = 0 CALL LINE (X1,Y1,X2,Y2,IPEN,0) CALL SYMBOL (X1,Y1,SYM,0) IF (NL .EQ. 1) CALL SYMBOL (X2,Y2,SYM,0) 180 CONTINUE GO TO 210 C 200 IF (PEDGE.NE.3 .OR. OFFSCL.LT.0) RETURN 210 RETURN 1 END ================================================ FILE: mis/oldel1.f ================================================ SUBROUTINE OLDEL1 C C ANY ELEMENT (NEW OR OLD) WHICH HAS NOT BEEN CONVERTED TO USE C EMGPRO SHOULD HAVE AN ENTRY POINT IN OLDEL1, OLDEL2, OR OLDEL3 C *************************************************************** C ENTRY AXIF2S GO TO 10 ENTRY AXIF2D GO TO 10 ENTRY AXIF3S GO TO 10 ENTRY AXIF3D GO TO 10 ENTRY AXIF4S GO TO 10 ENTRY AXIF4D GO TO 10 ENTRY CONES GO TO 10 ENTRY CONED GO TO 10 ENTRY ELBOWS GO TO 10 ENTRY ELBOWD GO TO 10 ENTRY FLMASS GO TO 10 ENTRY FLMASD GO TO 10 ENTRY FLUD2S GO TO 10 ENTRY FLUD2D GO TO 10 ENTRY FLUD3S GO TO 10 ENTRY FLUD3D GO TO 10 ENTRY FLUD4S GO TO 10 ENTRY FLUD4D C 10 CALL EMGOLD RETURN END ================================================ FILE: mis/oldel2.f ================================================ SUBROUTINE OLDEL2 C C ANY ELEMENT (NEW OR OLD) WHICH HAS NOT BEEN CONVERTED TO USE C EMGPRO SHOULD HAVE AN ENTRY POINT IN OLDEL1, OLDEL2, OR OLDEL3 C *************************************************************** C ENTRY HEXA1S GO TO 10 ENTRY HEXA1D GO TO 10 ENTRY HEXA2S GO TO 10 ENTRY HEXA2D GO TO 10 ENTRY PLOTLS GO TO 10 ENTRY PLOTLD GO TO 10 ENTRY QDMEMS GO TO 10 ENTRY QDMEMD GO TO 10 ENTRY QDPLTS GO TO 10 ENTRY QDPLTD GO TO 10 ENTRY QUAD1S GO TO 10 ENTRY QUAD1D GO TO 10 ENTRY QUAD2S GO TO 10 ENTRY QUAD2D GO TO 10 ENTRY SLOT3S GO TO 10 ENTRY SLOT3D GO TO 10 ENTRY SLOT4S GO TO 10 ENTRY SLOT4D C 10 CALL EMGOLD RETURN END ================================================ FILE: mis/oldel3.f ================================================ SUBROUTINE OLDEL3 C C ANY ELEMENT (NEW OR OLD) WHICH HAS NOT BEEN CONVERTED TO USE C EMGPRO SHOULD HAVE AN ENTRY POINT IN OLDEL1, OLDEL2, OR OLDEL3 C *************************************************************** C ENTRY TETRAS GO TO 10 ENTRY TETRAD GO TO 10 ENTRY TRAPRS GO TO 10 ENTRY TRAPRD GO TO 10 ENTRY TRIARS GO TO 10 ENTRY TRIARD GO TO 10 ENTRY TRIA1S GO TO 10 ENTRY TRIA1D GO TO 10 ENTRY TRIA2S GO TO 10 ENTRY TRIA2D GO TO 10 ENTRY TRPLTS GO TO 10 ENTRY TRPLTD GO TO 10 ENTRY WEDGES GO TO 10 ENTRY WEDGED C 10 CALL EMGOLD RETURN END ================================================ FILE: mis/olplot.f ================================================ SUBROUTINE OLPLOT C C DRIVER FOR USER SUPPLIED INTERACTIVE PLOTTER C C NOTE - ALL FORTRAN STOPS MUST BE CHANGED TO RETURNS C OTHERWISE THE FORTRAN STOPS WILL KILL THE INTERACTIVE SESSION. C INTEGER PLT2 COMMON /SYSTEM/ IBUF,NOUT DATA PLT2/13/ C WRITE (NOUT,10) 10 FORMAT (' USER MUST SUPPLY SITE DEPENDENT PLOTTING PACKAGE', 1 /4X, 'IN SUBROUTINE OLPLOT FOR INTERACTIVE PLOTS') C C REWIND PLT2 C CALL THE SITE DEPENDENT PLOTTING ROUTINES HERE. C CALL NASPLOT RETURN END ================================================ FILE: mis/onetwo.f ================================================ SUBROUTINE ONETWO(*,IX,X,DX,ITERMM) C******* C PROGRAM TO SOLVE A MATRIX OF ORDER ONE OR TWO FOR DECOMP C******* DOUBLE PRECISION DX(6),DET,MINDIA,DZ ,DA INTEGER SYSBUF,RDP,DUM INTEGER TYPEL INTEGER SCRFLG,JPOSL,BBAR,CBCNT,R,BBBAR1 1 ,BBBAR,SR2FL ,SR2FIL INTEGER RD,WRT,REW,EOFNRW DIMENSION SUB(2),X(1),IX(1) C COMMON /SYSTEM/SYSBUF COMMON /DCOMPX/IFILA(7),IFILL(7),IFILU(7),DUM(3),DET,POWER, 1 NX,MINDIA COMMON /NAMES/ RD,RDREW,WRT,WRTREW,REW,NOREW,EOFNRW ,RSP,RDP COMMON /ZBLPKX/DZ(2),JJ COMMON /PACKX/ITYPE1,ITYPE2,IY,JY,INCRY COMMON /UNPAKX/ITYPEX,IXY,JXY,INCRX C EQUIVALENCE (IFILA(2),NCOL),(IFILL(5),TYPEL),(SR2FIL,DUM(2)) C DATA SUB/4HONET,4HWO / C C ---------------------------------------------------------------------- C IBUF1 = NX-SYSBUF IBUF2 = IBUF1-SYSBUF IBUF3 = IBUF2-SYSBUF IFILE = IFILU(1) CALL CLOSE(DUM(2),REW) IF(ITERMM.EQ.1)IFILE = DUM(2) CALL GOPEN(IFILE,IX(IBUF3),1) CALL GOPEN(IFILA,IX(IBUF1),0) ITYPEX = RDP ITYPE1 = RDP ITYPE2 = TYPEL INCRX = 1 INCRY = 1 IF(NCOL .EQ. 2)GO TO 100 IF( NCOL .NE. 1)GO TO 5000 C******* C SOLVE A (1X1) C******* IXY = 1 JXY = 1 CALL UNPACK(*5060,IFILA(1),DX) DET = DX(1) MINDIA = DABS(DX(1)) IY = 1 JY = 1 CALL PACK(DX,IFILE,IFILU) DX(1) = 0.D0 CALL PACK(DX,IFILL(1),IFILL) IF(ITERMM.EQ.0)GO TO 90 CALL CLOSE(IFILE,EOFNRW) GO TO 95 90 CALL CLOSE(IFILE,REW) 95 CALL CLOSE(IFILA(1),REW) CALL CLOSE(IFILL(1),REW) RETURN 100 IXY = 1 C******* C SOLVE A (2X2) C******* JXY = 2 CALL UNPACK(*5060,IFILA(1),DX) CALL UNPACK(*5060,IFILA(1),DX(3)) A = 1. IF(DABS(DX(1)) .GE. DABS(DX(2)))GO TO 150 C******* C PERFORM INTERCHANGE C******* DET = DX(1) DX(1) = DX(2) DX(2) = DET DET = DX(3) DX(3) = DX(4) DX(4) = DET A = -1. 150 CONTINUE DX(2) = DX(2)/DX(1) DX(4) = DX(4)-DX(2)*DX(3) DET = DX(4)*DX(1)*A IF(DX(1) .EQ. 0.D0 .OR. DX(4) .EQ. 0.D0)GO TO 5060 MINDIA = DMIN1 (DABS(DX(1)),DABS(DX(4))) IY = 1 JY = 2 DX(5) = 0.0D0 IF(A.LT.0.0) DX(5) = 1.0D0 DX(6) = DX(2) CALL PACK(DX(5),IFILL(1),IFILL) DX(6) = 0. JY = 1 CALL PACK(DX(6),IFILL(1),IFILL) IF(ITERMM .EQ. 1)GO TO 160 DX(2) = DX(3) DX(3) = DX(4) DX(4) = DX(2) JY = 2 CALL PACK(DX(3),IFILE,IFILU) IY = 2 CALL PACK(DX,IFILE,IFILU) GO TO 90 160 JY = 1 CALL PACK(DX,IFILE,IFILU) JY=2 CALL PACK(DX(3),IFILE,IFILU) CALL CLOSE(IFILE,EOFNRW) GO TO 95 ENTRY FINWRT(ITERM,SCRFLG,SR2FL,JPOSL,I1SP,BBAR,I1,CBCNT, 1IPAK,R,BBBAR1,BBBAR,I6SP,I4,I4SP,IX,DX,X,LCOL) IBUF1 = NX-SYSBUF IBUF2 = IBUF1-SYSBUF IBUF3 = IBUF2-SYSBUF CALL CLOSE(IFILA(1),REW) CALL GOPEN(SR2FIL,IX(IBUF1),WRT) CALL CLOSE(SR2FIL,EOFNRW) K=0 CALL GOPEN(IFILL,IX(IBUF2),WRT) IF(SCRFLG.EQ.0)GO TO 2005 CALL GOPEN(SR2FL,IX(IBUF3),RD) 2005 LL = 0 2010 JPOSL = JPOSL+1 CALL BLDPK(RDP,TYPEL,IFILL(1),0,0) IN1 = I1SP+K JJ = JPOSL DZ(1) = IX(IN1) CALL ZBLPKI KK = 0 IEND = MIN0(BBAR,NCOL-JJ) IF(IEND .EQ. 0)GO TO 2030 IN1 = I1+LL*BBAR 2020 JJ = JJ+1 IN2 = IN1+KK DZ(1) =DX(IN2) CALL ZBLPKI KK = KK+1 IF(KK-IEND)2020,2030,5050 2030 IF(CBCNT.EQ.0)GO TO 2050 C******* C PACK ACTIVE ROW ELEMENTS ALSO C******* KK = 0 2035 IN1 = I6SP + KK IN2 = I4 + IX(IN1)*BBBAR + K DZ(1) = DX(IN2) IF(DZ(1) .EQ. 0.D0)GO TO 2040 IN1 = I4SP + IX(IN1) JJ = IX(IN1) CALL ZBLPKI 2040 KK = KK + 1 IF(KK .LT. CBCNT)GO TO 2035 2050 CALL BLDPKN(IFILL(1),0,IFILL) LL = LL + 1 K = K + 1 IF(K.EQ.LCOL)GO TO 2080 IF(K-R+1)2010,2060,2070 2060 IF(R-BBBAR1)2070,2010,5050 2070 LL =LL-1 IN1 = I1+LL*BBAR CALL FREAD(SR2FL,DX(IN1),2*BBAR,0) GO TO 2010 2080 CALL CLOSE(IFILL(1),REW) IF(SCRFLG.GT.0)CALL CLOSE(SR2FL,REW) IF(ITERM .NE. 0)RETURN C******* C RE-WRITE THE UPPER TRIANGLE WITH THE RECORDS IN THE REVERSE ORDER C******* INCRX = 1 INCRY = 1 ITYPE1 = TYPEL ITYPE2 = TYPEL ITYPEX = TYPEL IFILU(2) = 0 IFILU(6) = 0 IFILU(7) = 0 CALL GOPEN(SR2FIL,IX(IBUF1),RD) CALL GOPEN(IFILU,IX(IBUF2),1) DO 2300 I = 1,NCOL IXY = 0 CALL BCKREC(SR2FIL) CALL UNPACK(*5060,SR2FIL,IX) CALL BCKREC(SR2FIL) KK = JXY-IXY+1 K = KK/2 KK = KK + 1 IF(TYPEL .EQ. 1)GO TO 2095 DO 2090 J = 1,K L = KK-J DA = DX(J) DX(J) = DX(L) 2090 DX(L) = DA GO TO 2100 2095 DO 2097 J = 1,K L = KK-J A = X(J) X(J) = X(L) 2097 X(L) = A 2100 IY = NCOL-JXY+1 JY = NCOL-IXY+1 CALL PACK(IX,IFILU(1),IFILU) 2300 CONTINUE CALL CLOSE(IFILU(1),REW) CALL CLOSE(SR2FIL,REW) RETURN 5000 NO = -8 GO TO 5500 5050 NO = -25 GO TO 5500 5060 RETURN 1 5500 CALL MESAGE(NO,0,SUB) RETURN END ================================================ FILE: mis/onlins.f ================================================ SUBROUTINE ONLINS (*,LX) C C ON-LINE SCAN ROUTINE, CALLED ONLY BY SCAN C C WRITTEN FEBY G.CHAN/SPERRY, FEB. 1986 C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT, RSHIFT, ANDF, ORF, COMPLF LOGICAL DEBUG INTEGER NAME(2), CARD(20), IZ(1) REAL R(2), Z(30) COMMON /MACHIN/ MACH COMMON /BLANK / IELT(2), ICOMP, NTOP, AMAX, AMIN, 1 IBEG, IEND, ICOMPX COMMON /SYSTEM/ IBUF, OUTTAP, NOGO, IN, DUM(74), 1 SWTCH1, JDUM(6), INTRA COMMON /XSCANX/ SKIP(2), LCORE, LBEG, LEND, DUMM(2), 1 IEL, IOPT, ISET, ISORT, IDUM(4), 2 DEBUG COMMON /IFP1A / SCR1, CASECC, IS, NWPC, NCPW, 1 NMODES, ICC, NSET, DUMMY(3), ISUB, 2 LENCC, IBLNK, IEQUAL, IEOR C C /ZZIFP1/ IS THE OPEN CORE FOR SCAN COMMON /ZZZZZZ/ LCSE(400),CORE(1) EQUIVALENCE (IZ(1),LCSE(1)) EQUIVALENCE (IMAX,AMAX), (IMIN,AMIN), 1 (IDUPL,IBEG), (INC,IEND), 2 (CARD(1),CORE(1)), (IZ(1),Z(1)) DATA BLANK , EQUAL , STOP , ALL , NAME / 1 4H , 4H= , 4HSTOP, 4HALL , 4HONLI, 4HNS / DATA LU , DEBUG1, DEBUG2, DEBUG3, I0 / 1 1 , 4HDEBU, 4HG ON, 4HG OF, 0 / C C INITIALIZE /IFP1A/ C SCR1 = 301 CASECC = 101 IS = 0 NWPC = 20 NCPW = 4 NMODES = 0 ICC = 0 ISUB = 1 IBLNK = BLANK IEQUAL = EQUAL IEOR = COMPLF(0) IEOR = RSHIFT(IEOR,1) C C SET INTERACTIVE FLAG TO POSITIVE, A SIGNAL TO SCAN, TOTAPE, IFP1C C INTRA = IABS(INTRA) IF (INTRA .EQ. 0) INTRA = 1 C ICOMP = LX NWPC1 = NWPC + 1 NOUT = OUTTAP WRITE (NOUT,10) 10 FORMAT (///1X,'*** SCAN INTERACTIVE INPUT ***') C C READ CASECC FILE AND SAVE DATA IN LCSE, ONE SUBCASE AT A TIME C SAVE SET DATA IN CORE BEGIN AT CORE(BGN) C 15 LCSE(166) = 200 LCSE(199) = 0 LCSE(200) = 0 NZ = KORSZ(CORE(1)) - 3*IBUF - 1 NZ = MIN0(NZ,LCORE) ISCAN = 0 NSET = 0 I81 = NWPC1 SUBID =-1 LX = 0 IF (ICOMP .EQ. -2) GO TO 30 C C NO QUESTION ASKED IF SORT2 DATA TYPE IS USED. C LX = 1 20 WRITE (NOUT,25) 25 FORMAT (//,' ENTER SUBCASE ID (DEFAULT=FIRST SUBCASE)') READ (IN,26) R 26 FORMAT (2A4) CALL A82INT (*20,R,8,SUBID,I) IF (SUBID .EQ. 0) SUBID = -1 IF (INTRA .GT. 10) WRITE (LU,27) SUBID 27 FORMAT (///3X,'SUBCASE ID',I8) 30 JJ = 1 CALL REWIND (CASECC) CALL FWDREC (*110,CASECC) 32 JJ = JJ + 1 CALL READ (*110,*110,CASECC,LCSE(JJ),1,0,I) IF (SUBID .EQ. -1) SUBID = LCSE(JJ) IF (LCSE(JJ) .EQ. SUBID) GO TO 35 CALL FWDREC (*110,CASECC) GO TO 32 35 LCSE(1) = LCSE(JJ) CALL READ (*110,*125,CASECC,LCSE(2),199,0,I) LENCC = LCSE(166) LSEM = LCSE(LENCC) NSET = LCSE(LENCC-1) IF (LSEM .GT. 0) CALL READ (*110,*125,CASECC,CORE(I81),LSEM,0,I) I81 = I81 + LSEM BGN = I81 END = I81 37 CALL READ (*40,*40,CASECC,CORE(I81),2,0,I) JMP = CORE(I81+1) CORE(I81+2) = JJ I81 = I81 + 3 CALL READ (*110,*125,CASECC,CORE(I81),JMP,0,I) NSET = NSET + 1 I81 = I81 + JMP GO TO 37 C C SET CARD C 40 WRITE (NOUT,43) 43 FORMAT (//,' ENTER A BLANK, OR A SET CARD (SEE USER MANUAL P. ', 1 '2.3-44)', /,' E.G. SET 101 = 1, 5 THRU 20') 45 CORE(I81) = IEOR NOGO = 0 CALL XREAD (*40,CARD) IF (CARD(1).EQ.BLANK .AND. CARD(2).EQ.BLANK) GO TO 60 WRITE (LU,77) CARD IF (CARD(1) .NE. DEBUG1) GO TO 46 J = LSHIFT(1,20) IF (CARD(2) .EQ. DEBUG2) SWTCH1 = ORF(J,SWTCH1) J = COMPLF(J) IF (CARD(2) .EQ. DEBUG3) SWTCH1 = ANDF(J,SWTCH1) DEBUG = .FALSE. IF (CARD(2) .EQ. DEBUG2) DEBUG = .TRUE. GO TO 40 46 IB = I81 NZZ = NZ - I81 CALL XRCARD (CORE(I81),NZZ,CARD(1)) IF (CORE(I81+8) .NE. ALL) GO TO 47 CORE(I81 ) = CORE(I81+4) CORE(I81+1) = 1 CORE(I81+2) = JJ CORE(I81+3) =-1 I81 = I81 + 4 GO TO 50 47 ICC = 1 CALL IFP1C (I81,NZZ) C C CONTINUATION CARDS FOR SET ARE READ IN BY IFP1C C IF (NOGO .EQ. 0) GO TO 50 I81 = IB GO TO 40 50 NSET = NSET + 1 WRITE (NOUT,52) CORE(IB) 52 FORMAT (/,' THIS NEW SET',I6,' IS DEFINED FOR LOCAL USE ONLY', 1 //,' ENTER A BLANK, OR ANOTHER SET CARD') KK = 55 IF (DEBUG) WRITE (6,55) KK,I81 55 FORMAT (' ONLINS/',I2,4X,'I81 =',I7) GO TO 45 C C SET DATA - FROM CORE(BGN) THRU CORE(END) C 60 END = I81 - 1 NZZ = NZ - I81 C C SCAN CARD C 70 WRITE (NOUT,72) 72 FORMAT (//,' ENTER A BLANK, OR A SCAN CARD (SEE USER MANUAL P.2.3- 141A', /,' E.G. SCAN (STRESS,CBAR,AXIAL,SA/MAX) = 15, SET 102', 2 /,' SCAN (FORCE,3,ROD,2) = +2000.,-1500.', 3 /,' SCAN (HELP)' ) C 75 JUMPH = 0 CALL XREAD (*70,CARD) IF (CARD(1).EQ.STOP .AND. CARD(2).EQ.BLANK) GO TO 135 IF (CARD(1).EQ.BLANK .AND. CARD(2).EQ.BLANK) GO TO 90 WRITE (LU,77) CARD 77 FORMAT (20A4) IB = I81 CALL XRCARD (CORE(I81),NZZ,CARD(1)) CALL IFP1H (I81,NZZ,JUMPH) IF (NOGO .NE. 0) GO TO 80 IF (JUMPH .EQ. 0) GO TO 82 CALL IFP1H (0,0,2) 80 I81 = IB IF (NOGO) 70,75,70 C 82 J = CORE(IB) IF (ISCAN .EQ. 0) ISCAN = J IF (ISCAN .EQ. J) ISCAN = 30000000 WRITE (NOUT,85) 85 FORMAT (/,' ENTER A BLANK, OR ANOTHER SCAN CARD') KK = 87 IF (DEBUG) WRITE (6,55) KK,I81 GO TO 75 C C MOVE SET AND SCAN DATA TO THE END OF CASECC ARRAY IN /ZZIFP1/ C THEN, MOVE THE ENTIRE CASECC DATA (SET AND SCAN INCLUDED) TO C THE END OF THE OPEN CORE. FINALLY, MOVE THE SAME DATA BLOCK C TO THE BEGINNING OF THE OPEN CORE SPACE IN /ZZSCAN/ FOR SCAN C OPERATION C 90 L = LENCC IF (I81 .LE. NWPC1) GO TO 100 J = BGN + 2 I81 = I81 - 1 DO 95 I = NWPC1,I81 IF (I .NE. J) GO TO 92 J = J + CORE(J-1) + 3 GO TO 95 92 L = L + 1 LCSE(L) = CORE(I) 95 CONTINUE J = LCORE DO 96 I = 1,L LCSE(J) = LCSE(I) 96 J = J - 1 IF (I .GT. J) CALL MESAGE (+8,0,NAME) J = LCORE DO 97 I = 1,L Z(I) = LCSE(J) 97 J = J - 1 IF (DEBUG) WRITE (6,99) (Z(I),I=1,L) 99 FORMAT (//,' Z(1...200+) =', (/4X,10I7)) 100 IF (LX .GT. 0) LX = L C IF (ISCAN .EQ. 20000000) GO TO 103 IF (Z(25) .EQ. 0) GO TO 140 C C STRESS SCAN C Z(24) =-1 Z(25) = 1 Z(26) = 1 103 IF (ISCAN .NE. 20000000) GO TO 105 IF (Z(28) .EQ. 0) GO TO 150 C C FORCE SCAN C Z(27) =-1 Z(28) = 1 Z(29) = 1 105 IF (INTRA .GT. 10) OUTTAP = LU RETURN C 110 JJ = JJ - 1 WRITE (NOUT,115) SUBID,(Z(I),I=1,JJ) 115 FORMAT (//,' SUBCASE',I5,' NOT FOUND', 1 //,' EXISTING SUBCASES ARE -', (/5X,10I7)) GO TO 15 C 125 CALL MESAGE (+2,CASECC,NAME) GO TO 105 135 RETURN 1 C 140 WRITE (NOUT,145) 145 FORMAT (//,' STRESS OUTPUT FILE NOT AVAILABLE FOR SCAN',//) GO TO 75 150 WRITE (NOUT,155) 155 FORMAT (//,' FORCE OUTPUT FILE NOT AVAILABLE FOR SCAN',//) GO TO 75 END ================================================ FILE: mis/opt2a.f ================================================ SUBROUTINE OPT2A (IP,EL,IEL,PR,IPR,RR) C LOGICAL FIRST,UNSAFE INTEGER COUNT,ETYP,IEL(1),IP(2,1),IPR(1),IZ(10),NAME(2), 1 OES1,OUTTAP,PEST,PSTRES,PTELT,ZCOR,OLDTYP,EID(20), 2 PLUS(5),IY(1) REAL EL(1),PR(1),RR(1),Y(1),PARM(8) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / SKP(2),COUNT,SKQ(2),KORE,SKR(2),NWDSE,NWDSP,SKS, 1 OES1,SKT(3),NELW,NPRW,SKU,NTOTL,CONV COMMON /OPTPW2/ ZCOR,Z(16) COMMON /ZZZZZZ/ CORE(1) COMMON /NAMES / NRD,NOEOR,NWRT,NEXT COMMON /SYSTEM/ SYSBUF,OUTTAP C EQUIVALENT ARE (EL,IEL), (PR,IPR) EQUIVALENCE (Z(1),IZ(1)), (CORE(1),PARM(1),MAX), 1 (IY(1),Y(1),PARM(8)) DATA NAME / 4H OPT,4H2A / DATA PLUS / 4H , 4H+ , 4H++ , 4H+++ , 4H++++ / C NELR = 0 NE = 0 PTELT = 0 IDEL = 0 KEL = KORE KCONV = 0 CONV = 1.0 ICP = NTOTL - 4 FIRST =.TRUE. C C READ HEADER, ODD RECORDS C GO TO 10 5 CALL FREAD (OES1,0,0,NEXT) 10 CALL READ (*630,*100,OES1,Z(1),10,NEXT,I) ETYP = IZ(3) NESW = IZ(10) OLDTYP= PTELT PTELT = IY(ETYP) IF (PTELT .GT. 0) GO TO 15 C C ELEMENT TYPE NOT TO OPTIMIZE C GO TO 5 15 IF (PTELT.GE.OLDTYP .OR. OLDTYP.EQ.0) GO TO 20 IF (KEL .NE. -1) KEL = KORE IF (NE .EQ. 0) GO TO 16 CALL PAGE2 (1) WRITE (OUTTAP,580) (EID(J),J=1,NE) NE = 0 16 WRITE (OUTTAP,17) 17 FORMAT (/5X,15HNEXT SUBCASE...) C C SET POINTERS TO ELEMENT TYPE AND PROPERTIES IN CORE. C L = LOCATION OF FIRST, M = MAX LOCATION C 20 LEL = IP(1,PTELT) MEL = IP(1,PTELT+1) - 1 IF (MEL .LE. LEL) GO TO 5 LOCE = LEL LOCP1 = IP(2,PTELT) - 1 IF (NESW .GT. ZCOR) GO TO 70 C C SEQUENTIALLY READ ONE ELEMENT FROM EVEN NUMBERED RECORDS. C LOCE IS CURRENT ELEMENT TO COMPARE TO. C 30 CALL READ (*90,*10,OES1,Z(1),NESW,NOEOR,I) IDES = IZ(1)/10 50 IF (IDES .EQ. IEL(LOCE)) GO TO 110 C C SCAN THE CORE FILE UNTIL ELEMENT ID .GT. IDES C IF (IDES .LT. IEL(LOCE)) GO TO 30 C C CORE ELEMENT NOT TO BE OPTIMIZED C LOCE = LOCE + NWDSE IF (LOCE .LT. MEL) GO TO 50 C C END OF ELEMENT SEARCH FOR THIS TYPE (EOR NOT READ) C GO TO 5 C C ELEMENT TYPE EXCEEDS CORE C 70 IER = -8 IFLE = NESW - ZCOR GO TO 105 C C ILLEGAL EOF, EOR C 90 IER = -2 GO TO 101 100 IER = -3 101 IFLE = OES1 C 105 CALL MESAGE (IER,IFLE,NAME) C C PROCES THIS ELEMENT C 110 CONTINUE NELR = NELR + 1 LOCP = IEL(LOCE+4) + LOCP1 PEST = IPR(LOCP+1)/100 MEST = IPR(LOCP+1) - PEST*100 RC = 1.0 X1A = 0.0 X2A = 0.0 E1 = 999. UNSAFE = .FALSE. C GO TO (160,160,180,150,150,150,140,140,140,120, 1 130,140,140,140,170,150,140,120,140,140), PTELT C C ROD, TUBE C 120 LIMIT = 1 PSTRES = 4 ASSIGN 121 TO IRET GO TO 500 121 LIMIT = 2 PSTRES = 2 ASSIGN 540 TO IRET GO TO 500 C C SHEAR C 130 LIMIT = 1 PSTRES = 2 ASSIGN 540 TO IRET GO TO 500 C C TRBSC, TRPLT, QDPLT, TRIA1, TRIA2, TRIA3, QUAD1, QUAD2, QUAD4 C 140 IF (MEST .EQ. 1) GO TO 144 LIMIT = 2 PSTRES = 7 ASSIGN 141 TO IRET GO TO 500 141 PSTRES = 8 ASSIGN 142 TO IRET GO TO 500 142 PSTRES = 15 ASSIGN 143 TO IRET GO TO 500 143 PSTRES = 16 ASSIGN 144 TO IRET X1A = AMAX1(ABS(Z( 7)),ABS(Z( 8))) X2A = AMAX1(ABS(Z(15)),ABS(Z(16))) X1A = AMAX1(X1A,X2A) K = 0 IF (X1A.EQ.ABS(Z(8)) .OR. X1A.EQ.ABS(Z(15))) K = 1 X1A = Z( 7+K) X2A = Z(16-K) GO TO 500 144 IF (MEST .EQ. 2) GO TO 540 LIMIT = 1 PSTRES = 9 ASSIGN 145 TO IRET GO TO 500 145 PSTRES = 17 ASSIGN 540 TO IRET GO TO 500 C C TRMEM, QDMEM, QDMEM1, QDMEM2 C 150 IF (MEST .EQ. 1) GO TO 152 LIMIT = 2 PSTRES = 6 ASSIGN 151 TO IRET GO TO 500 151 PSTRES = 7 ASSIGN 152 TO IRET GO TO 500 152 IF (MEST .EQ. 2) GO TO 30 LIMIT = 1 PSTRES = 8 ASSIGN 540 TO IRET GO TO 500 C C BAR, ELBOW C 160 LIMIT = 2 PSTRES = 7 X2A = ABS(Z(7)) ASSIGN 161 TO IRET GO TO 500 161 PSTRES = 8 X1A = ABS(Z(8)) ASSIGN 162 TO IRET GO TO 500 162 PSTRES = 14 ASSIGN 163 TO IRET GO TO 500 163 PSTRES = 15 ASSIGN 540 TO IRET GO TO 500 C C TRIM6 C 170 IF (IEL(LOCE) .EQ. IDEL) GO TO 172 IDEL = IEL(LOCE) ICP = ICP + 4 IF (KEL.NE.-1 .AND. ICP.GE.KEL) CALL MESAGE (-8,0,NAME) IY(ICP) = LOCP IY(ICP+4) =-1 172 K = 0 M1 =-1 DO 175 I = 1,3 M1 = M1 + 7 II = 3 + LOCE S1S = 0.0 S3S = 0.0 IF (MEST .NE. 2) S3S = ABS(Z(M1+2)/EL(II)) II = II - 2 IF (Z(M1) .LT. 0.0) II = II + 1 IF (MEST .NE. 1) S1S = ABS(Z(M1)/EL(II)) II = 1 + LOCE IF (Z(M1+1) .LT. 0.0) II = II + 1 S2S = ABS(Z(M1+1)/EL(II)) S13 = AMAX1(S1S,S2S) S13 = AMAX1(S13,S3S) Y(ICP+I) = AMAX1(Y(ICP+I),S13) PR(LOCP+4) = AMAX1(PR(LOCP+4),S13) E1 = ABS(S13) - 1.0 IF (ABS(E1) .LE. PARM(2)) K = K + 1 175 CONTINUE ASSIGN 540 TO IRET IF (K-3) 550,520,520 C C IS2D8 C 180 M1 = 1 S1S = 0.0 S2S = 0.0 S3S = 0.0 DO 185 M = 1,8 M1 = M1 + 5 II = 3 + LOCE IF (MEST .NE. 2) S3S = AMAX1(S3S,ABS(Z(M1+2)/EL(II))) II = II - 2 IF (Z(M1) .LT. 0.0) II = II + 1 IF (MEST .NE. 1) S1S = AMAX1(S1S,ABS(Z(M1)/EL(II))) II = 1 + LOCE IF (Z(M1+1) .LT. 0.0) II = II + 1 S2S = AMAX1(S2S,ABS(Z(M1+1)/EL(II))) S13 = AMAX1(S1S,S2S) S13 = AMAX1(S13,S3S) 185 CONTINUE E1 = ABS(S13) - 1.0 PR(LOCP+4) = AMAX1(PR(LOCP+4),S13) ASSIGN 540 TO IRET GO TO 520 C C FUNCTION E1 - RATIO STRESS MINUS LIMIT DIVIDED BY LIMIT, C WITH RESET OF -ALPHA- C LOCP = POINTER TO PID OF PROPERTY. C LOCE = POINTER TO EID OF ELEMENT. C LIMIT = 1=SHEAR, 2= COMPRESSION/TENSION. C PSTRES = CORRESPONDING STRESS, POINTER TO Z ARRAY. C 500 II = 3 + LOCE IF (LIMIT .EQ. 1) GO TO 510 II = II - 2 IF (Z(PSTRES) .LT. 0.0) II = II + 1 510 IF (EL(II) .LE. 0.0) GO TO 530 C C POSITIVE LIMIT C PR(LOCP+4) = AMAX1(PR(LOCP+4),ABS(Z(PSTRES)/EL(II))) C C I C NEGATIVE E1, SAFE I POSITIVE E1, UNSAFE C I C --+------+------+------+------+------+------+------------------- E1 C UL 4P 3P 2P P 0 P (WHERE P=PARM(2), C ++++ +++ ++ + I I UL=UNLOADED) C OVER DESIGNED I REGION WHEREI UNDER DESIGNED C REGION I AE1 .LE. P I REGION C (UNSAFE=.FALSE.) I (UNSAFE=.TRUE.) C E1 = ABS(Z(PSTRES)/EL(II)) - 1.0 520 IF (E1 .GT. PARM(2)) UNSAFE = .TRUE. IF (UNSAFE) KEL = -1 AE1 = AMIN1(AE1,ABS(E1)) 530 GO TO IRET, (121,141,142,143,144,145,151,152,161,162,163,540) C 540 X1 = ABS(X1A) X2 = ABS(X2A) IF (X1.EQ.0.0 .OR. X2.EQ.0.0) GO TO 550 X1A= AMIN1(X1A,X2A) X1 = AMIN1(X1,X2)/AMAX1(X1,X2) X1 = SIGN(X1,X1A) IF (ABS(X1) .GT. 1.0E-8) RC = X1 C C SAVE IN RR AN EMPIRICAL ALPHA MODIFIER FOR SPEEDY CONVERGENCE C 550 IRR = (LOCP+NWDSP)/NWDSP RR(IRR) = RC C IF (UNSAFE) GO TO 30 C C PRINT ELEMENT IDS THAT HAVE CONVERGED, OR OVER DESIGNED C IF (.NOT.FIRST) GO TO 570 FIRST = .FALSE. CALL PAGE2 (-3) WRITE (OUTTAP,560) UIM 560 FORMAT (A29,' 2304A, THE FOLLOWING ELEMENTS EITHER CONVERGED (NO', 1 ' PLUS) OR OVER-DESIGNED (PLUS(ES))',/5X,'IN ONE OR MORE ', 2 'SUBCASES, (EACH PLUS INDICATES AN INCREMENTAL PERCENTAGE' 3, ' OF OVER-DESIGN BASED ON CONVERGENCE CRITERION, EPS)',/) 570 XSTAR = (PR(LOCP+4)-1.0) - PARM(2) J = IFIX(ABS(XSTAR)/PARM(2)) IF (J .GT. 3) J = 3 II = 1 IF (PR(LOCP+4) .LT. 1.0E-8) II = 0 IF (II .EQ. 0) J = 4 EID(NE+1) = IEL(LOCE) EID(NE+2) = PLUS(J+1) NE = NE + 2 IF (NE .LT. 20) GO TO 590 NE = 0 CALL PAGE2 (1) WRITE (OUTTAP,580) EID 580 FORMAT (5X,10(I8,A4)) 590 IF (KEL .EQ. -1) GO TO 30 KEL = KEL - 1 CWKBR 9/93 IZK = IZ(KEL) IZK = IY(KEL) IF (PR(LOCP+3) .LT. 1.0E-6) II = 0 IF (J.GT.0 .AND. IZK.EQ.-1 .AND. II.NE.0) KCONV = KCONV - 1 IF (II .EQ. 0) GO TO 600 IF (AE1 .GT. PARM(2)) GO TO 30 600 IF (IEL(LOCE) .EQ. IZK) GO TO 30 IF (AE1.LE.PARM(2) .AND. IZK.EQ.-1) GO TO 610 IF (II.EQ.0 .AND. IZK.EQ.-1) GO TO 30 CWKBR 9/93 IZ(KEL) = IEL(LOCE) IY(KEL) = IEL(LOCE) CWKBR 9/93 IF (II .EQ. 0) IZ(KEL) = -1 IF (II .EQ. 0) IY(KEL) = -1 KCONV = KCONV + 1 GO TO 30 CWKBR 9/93 610 IZ(KEL) = IEL(LOCE) 610 IY(KEL) = IEL(LOCE) GO TO 30 C C EOF C 630 CONTINUE IF (NE .GT. 0) WRITE (OUTTAP,580) (EID(J),J=1,NE) C C IF KEL=-1 HERE, OR C IF NUMBER OF ELEMENTS CONVERGED, KORE-KEL, IS LESS THAN NUMBER OF C ELEMENTS IN THE PROBLEM, NELW/NWDSE, CONVERGENCE IS INCOMPLETE C IF (KEL .EQ. -1) GO TO 650 IF (KCONV .LT. NELW/NWDSE) GO TO 650 CWKBR CALL PAGE (-4) CALL PAGE2 (-4) WRITE (OUTTAP,640) UIM 640 FORMAT (A29,' 2304B, CONVERGENCE ACHIEVED FOR ALL ELEMENTS ', 1 'REQUESTED, AND IN ALL SUBCASE(S)', /5X, 2 'FULLY-STRESSED DESIGN COMPLETED',/) CONV = 2.0 GO TO 670 C C IF NELR IS ZERO, NO ELEMENT MATCH MADE C 650 IF (NELR .GT. 0) GO TO 670 CALL PAGE2 (-2) WRITE (OUTTAP,660) UFM 660 FORMAT (A23,' 2295, NO ELEMENTS EXIST FOR OPTIMIZATION.') COUNT = MAX + 1 C 670 RETURN END ================================================ FILE: mis/opt2b.f ================================================ SUBROUTINE OPT2B (IPR,PR,PL,RR) C INTEGER COUNT,IPR(1),OUTTAP,SYSBUF,IY(1) REAL PL(1),PR(1),RR(1),Y(1),Z(8) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / SKP1(2),COUNT,SKP2(6),NWDSP, 1 SKP3(6),NPRW,NKLW,NTOTL,CONV COMMON /ZZZZZZ/ CORE(1) COMMON /SYSTEM/ SYSBUF,OUTTAP EQUIVALENCE (CORE(1),Z(1),MAX), (EPS,Z(2)), (GAMA,Z(3)), 1 (IPRNT,Z(7)), (IY(1),Y(1),Z(8)) C EQUIVALENT ARE (IPR,PR) C NMES = 0 CH = 1.0 C DO 100 NP = 1,NPRW,NWDSP ALPH= PR(NP+4) I = 1 ICP = NTOTL - 4 3 ICP = ICP+4 IF (IY(ICP) .LE. 0) GO TO 5 IF (IY(ICP) .NE. NP) GO TO 3 C C SPECIAL HANDLING OF TRIM6 C 4 ALPH = Y(ICP+I) C 5 IF (ALPH) 70,40,10 C C POSITIVE ALPHA, CALCULATE PNEW C 10 IRR = (NP+NWDSP)/NWDSP IF (ABS(GAMA-1.0) .LT. 1.0E-4) CH = 0.25*RR(IRR) + 0.75 PNEW = PR(NP+3)*((ALPH/(ALPH+(1.0-ALPH)*GAMA))**CH) IF (IPR(NP+5) .EQ. 0) GO TO 30 C C COMPARE TO LIMIT DATA C KPL = IPR(NP+5) DELP = PNEW/PR(NP+2) IF (DELP .LT. PL(KPL)) GO TO 20 KPL = KPL + 1 IF (DELP.LE.PL(KPL) .OR. PL(KPL).EQ.0) GO TO 30 C C RECALCULATE ALPHA, PNEW BASED ON THE LIMIT C 20 PNEW = PR(NP+2)*PL(KPL) ALPH =-PNEW*GAMA/(PNEW*(1.0-GAMA)-PR(NP+3)) C 30 PR(NP+4) = ALPH IF (NP .EQ. IY(ICP)) Y(ICP+I) = ALPH GO TO 80 C C ZERO STRESS INPUT, CHANGE ALPH TO 0.0001 C 40 IF (IPRNT.EQ.0 .OR. NMES.GE.100) GO TO 60 NMES = NMES + 1 CALL PAGE2 (-2) WRITE (OUTTAP,50) UWM,IPR(NP) 50 FORMAT (A25,' 2303, FULLY-STRESSED DESIGN DETECTED ZERO STRESS ', 1 'FOR PROPERTY',I9, /5X,'CHECK PROPERTY CARD OR UNLOADED ', 2 'ELEMENT(S)') 60 ALPH = 1.0E-4 GO TO 10 C C NO CHANGE IN ALPH (-1.0 DETECTED) C 70 ALPH = -1.0E0 IF (NP .EQ. IY(ICP)) GO TO 30 C 80 IF (NP .NE. IY(ICP)) GO TO 100 I = I + 1 IF (I .LE. 3) GO TO 4 ICP = ICP + 4 C 100 CONTINUE C RETURN END ================================================ FILE: mis/opt2c.f ================================================ SUBROUTINE OPT2C (PT,IEL,IPR,PR,RR) C LOGICAL KPUN INTEGER B1,PT(2,1),COUNT,EID,EJECT,EST1,EST2,ETYP,HEADNG, 1 OUTTAP,IEL(1),IPR(1),IZ(100),NAME(2),NEOP(21), 2 SYSBUF,WDOPT(42),YCOR,ZCOR,MCB(7),IY(1), 3 TUBE,QUAD4,TRIM6,TRIA3 REAL PR(1),RR(1),Y(1),BLK,PCD(2,21),G(2,10),PARM(8) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / SKP1(2),COUNT,NCARD,SKP2,YCOR,B1,NELOP,NWDSE, 1 NWDSP,SKP3(2),EST1,SKP4,EST2,NELW,NPRW,NKLW,NTOTL, 2 CONV COMMON /OPTPW2/ ZCOR,Z(100) COMMON /ZZZZZZ/ CORE(1) COMMON /NAMES / NRD,NOEOR,NWRT,NWEOR COMMON /SYSTEM/ SYSBUF,OUTTAP,SKPS1(6),NLPP,SKPS2(2),NLINES, 1 SKPS3(78),LPCH COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1) EQUIVALENCE (IZ(1),Z(1)), (EID,Z(1)), (CORE(1),PARM(1),MAX), 1 (G(1,1),IZ(100)), (G(1,10),IG10), (IPRNT,PARM(7)), 2 (IY(1),Y(1),PARM(8)) C EQUIVALENT ARE (IPR,PR) C C C NOTE - CHANGE EQUIVALENCE IF AN ELEMENT TO BE OPTIMIZED HAS EST C (EPT ONLY) ENTRIES BEYOND 100 WORDS. C DATA NAME / 4H OPT, 4H2C / DATA NMES , YES,PLUS,BLK / 0, 4HYES , 4H+AAA, 4H / DATA TUBE , QUAD4,TRIM6,TRIA3 / 3, 64 , 73, 83 / DATA PCD / 1 4HPBAR,4H , 4HPELB,4HOW , 4HPIS2,4HD8 , 4HPQDM,4HEM , 2 4HPQDM,4HEM1 , 4HPQDM,4HEM2 , 4HPQDP,4HLT , 4HPQUA,4HD1 , 3 4HPQUA,4HD2 , 4HPROD,4H , 4HPSHE,4HAR , 4HPTRB,4HSC , 4 4HPTRI,4HA1 , 4HPTRI,4HA2 , 4HPTRI,4HM6 , 4HPTRM,4HEM , 5 4HPTRP,4HLT , 4HPTUB,4HE , 4HPSHE,4HLL , 4HPSHE,4HLL , 6 4HYYYY,4H / C C POINTERS TO WORDS ON EST TO CONVERT. NEOP(ITP) IS POINTER INTO C -WDOPT- ARRAY. THE -WDOPT- FIRST ENTRY FOR THE ELEMENT IS THE C NUMBER OF ENTRIES ON -EST- TO CONVERT FOLLOWED BY THE WORD NUMBERS C TO OPTIMIZE. C DATA NEOP / 21,30,39,15,15, 15,27,17,15,1, 6,12,8,6,35, 1 6,12, 4,41,41, 0/ DATA WDOPT / C C ROD (A,J) 1 2, 5,6 C C TUBE (O.D.) 2, 1, 5 C C SHEAR(T), TRMEM(T), TRIA2(T) 3, 1, 7 C C TRIA1(T1,T2,I) 4, 3, 7,9,11 C C TRBSC(T2,I),TRPLT(T2,I) 5, 2, 7,9 C C QDMEM(T), QDMEM1(T), QDMEM2(T), QUAD2(T) 6, 1, 8 C C QUAD1(T1,T2,I) 7, 3, 8,10,12 C C BAR(A,J,I1,I2,I12) 8, 5, 17,18,19,20,33 C C QDPLT(T2,I) 9, 2, 8,10 C C ELBOW(A,J,I1,I2) O, 4, 9,10,11,12 C C TRIM6(T1,T3,T5) 1, 3, 10,11,12 C C IS2D8(T) 2, 1, 13 C C QUAD4(T), TRIA3(T) PSHELL ONLY 3, 1, 14 * / C C DETERMINE IF PROPTETY CARDS ARE TO BE PUNCHED C KPUN = .FALSE. KOUNT = 0 HEADNG = 0 CH = 1.0 ICP = NTOTL IF (COUNT.EQ.MAX .OR. CONV.EQ.2.0) KPUN =.TRUE. IF (PARM(5) .NE. YES) KPUN = .FALSE. IF (IPRNT .NE. 0) NLINES = NLPP IE2 = 1 LEL = 0 C C READ EST1 ELEMENT TYPE C 10 CALL READ (*400,*360,EST1,ETYP,1,NOEOR,I) CALL WRITE (EST2,ETYP,1,NOEOR) ITP = IY(ETYP) IF (ITP .EQ. 0) GO TO 20 IE1 = PT(1,ITP) C C CHECK IF CORE ELEMENTS SKIPPED BECAUSE TYPE NOT ON EST C IF (IE1 .GT. IE2) GO TO 60 IE2 = PT(1,ITP+1) LEL = IEL(IE1) IP1 = PT(2,ITP) - 1 IF (IE2 .GT. IE1) GO TO 40 C C SKIP THIS ELEMENT TYPE. COPY RECORD TO EST2 C 20 J = 1 N = ZCOR CALL READ (*30,*30,EST1,Z,ZCOR,NOEOR,N) J = 0 30 CALL WRITE (EST2,Z(1),N,J) IF (J) 10,20,10 C C ELEMENT TYPE HAS CORE ENTRIES C 40 CONTINUE NWDS = INCR*(ETYP-1) + 12 NWDS = NE(NWDS) NPCARD = 0 IF (NWDS .GT. ZCOR) CALL MESAGE (-8,ZCOR,NAME) C C READ ONE EST1 ELEMENT INTO CORE C 50 CALL READ (*350,*340,EST1,Z,NWDS,NOEOR,I) IF (EID-LEL) 55,80,60 C C ELEMENT ID NOT IN CORE C 55 CALL WRITE (EST2,IZ(1),NWDS,NOEOR) GO TO 50 C C ELEMENT IN CORE NOT ON EST C 60 I = EJECT(2) IF (I .EQ. 0) GO TO 68 IF (COUNT.EQ.MAX .OR. CONV.EQ.2.0) GO TO 66 WRITE (OUTTAP,65) COUNT 65 FORMAT (1H0,8X,45HPROPERTIES USED DURING INTERMEDIATE ITERATION, 1 I5, 10H BY OPTPR2/) GO TO 68 66 WRITE (OUTTAP,67) COUNT 67 FORMAT (1H0,8X,38HPROPERTIES USED DURING FINAL ITERATION, 1 I5, 10H BY OPTPR2/) 68 WRITE (OUTTAP,70) SFM,ETYP,LEL,NAME 70 FORMAT (A25,' 2297, INCORRECT LOGIC FOR ELEMENT TYPE',I4, 1 ', ELEMENT',I8,2H (,2A4,2H).) CALL MESAGE (-61,LEL,NAME) C C ELEMENT IN CORE - CONVERT THE ENTRIES C 80 IPL = IEL(IE1+4) + IP1 IE1 = IE1 + NWDSE LEL = IEL(IE1) IF (IE1 .GT. IE2) LEL = 100000000 A = PR(IPL+4) IF (A .GT. 0.0) GO TO 100 NMES = NMES + 1 IF (IPRNT.EQ.0 .OR. NMES.GT.100) GO TO 55 I = EJECT (2) IF (I .EQ. 0) GO TO 88 IF (COUNT.EQ.MAX .OR. CONV.EQ.2.0) GO TO 84 WRITE (OUTTAP,65) COUNT GO TO 88 84 WRITE (OUTTAP,65) COUNT 88 WRITE (OUTTAP,90) UIM,EID 90 FORMAT (A29,' 2305, OPTPR2 DETECTED NEGATIVE ALPHA FOR ELEMENT', 1 I8) GO TO 55 C 100 LOCF = NEOP(ITP) J = LOCF K = WDOPT(LOCF) IRR = (IPL+NWDSP)/NWDSP IF (ABS(PARM(3)-1.0) .LT. 0.0001) CH = 0.25*RR(IRR) + 0.75 C = (A/(A+(1.0-A)*PARM(3)))**CH IF (ETYP .NE. TRIM6) GO TO 105 C C SPECIAL HANDLING FOR TRIM6 C IF THICKNESS-3 OR THICKNESS-5 IS ZERO, SET EQUAL TO THICKNESS-1 C DO 102 JJ = 1,K J = J +1 L = WDOPT(J) IF (JJ.NE.K .AND. ABS(Z(L+1)).LT.1.E-7) Z(L+1) = Z(L) PC = Y(ICP+JJ) 102 Z(L) = Z(L)*(PC/(PC+(1.0-PC)*PARM(3))) ICP = ICP + 4 GO TO 115 C 105 DO 110 I = 1,K J = J + 1 L = WDOPT(J) 110 Z(L) = C*Z(L) IF (ETYP.NE.QUAD4 .AND. ETYP.NE.TRIA3) GO TO 112 Z(L+6) = 0.5*Z(L) Z(L+7) = -0.5*Z(L) 112 IF (ETYP.EQ.TUBE .AND. Z(L).LT.2.*Z(L+1)) Z(L+1) = .5*Z(L) 115 CALL WRITE (EST2,Z(1),NWDS,NOEOR) C C PUNCH AND/OR PRINT PROPERTY CARDS C IF (IPRNT.EQ.0 .OR. IPR(IPL).LE.0) GO TO 50 GO TO (120,130,140,150,150,150,160,170,150,180,150,160,170,150, 1 180,150,160,190,170,170), ITP C C PBAR C 120 K1 = 02222211 K2 = 22222222 K3 = 00000222 GO TO 250 C C PELBOW C 130 K1 = 02222211 K2 = 22222222 K3 = 22222222 GO TO 250 C C PIS2D8 C 140 K1 = 00000211 GO TO 230 C C PQDMEM, PQDMEM1, PQDMEM2, PQUAD2, PSHEAR, PTRIA2, PTRMEM C 150 K1 = 00002211 GO TO 230 C C PQDPLT, PTRBSC, PTRPLT C 160 K1 = 22221211 GO TO 230 C C PQUAD1, PTRIA1, PSHELL C 170 K1 = 22121211 K2 = 00000022 GO TO 240 C C PROD, PTRIM6 C 180 K1 = 00222211 GO TO 230 C C PTUBE C 190 K1 = 00022211 C C OUTPUT THE CARD(S) C 230 K2 = 0 240 K3 = 0 250 II = WDOPT(LOCF+1) - 4 KK = K1 G(1,1) = PCD(1,ITP) G(2,1) = PCD(2,ITP) IZ(II+2) = IPR(IPL) IPR(IPL) =-IPR(IPL) 260 DO 270 I = 2,9 G(1,I) = BLK G(2,I) = BLK J = MOD(KK,10) IF (J .EQ. 0) GO TO 270 IF (J .EQ. 1) CALL INT2A8 (*370,IZ(I+II),G(1,I)) IF (J .EQ. 2) CALL FP2A8 (*380, Z(I+II),G(1,I)) 270 KK = KK/10 G(1,10) = BLK G(2,10) = BLK IF (K2.EQ.0 .OR. (K2.EQ.-1 .AND. K3.EQ.0) .OR. K3.EQ.-1) GO TO 320 KOUNT = KOUNT + 1 CALL INT2A8 (*375,KOUNT,G(1,10)) G(2,10) = G(1,10) IG10 = KHRFN3(G(1,1),PLUS,-3,1) IF (HEADNG .EQ. 0) GO TO 320 280 WRITE (OUTTAP,290) G 290 FORMAT (5X,10(2A4,1X)) IF (.NOT.KPUN) GO TO 300 WRITE (LPCH,295) G 295 FORMAT (20A4) NCARD = NCARD + 1 C C SET UP FOR CONTINUATION CARD(S) C 300 IF (K2.EQ.0 .OR. (K2.EQ.-1 .AND. K3.EQ.0) .OR. K3.EQ.-1) GO TO 50 G(1,1) = G(1,10) G(2,1) = G(2,10) II = II + 8 IF (K2) 315,50,310 310 KK = K2 K2 = -1 GO TO 260 315 KK = K3 K3 = -1 GO TO 260 C C PRINT HEADING C 320 HEADNG = 1 IF (EJECT(1) .EQ. 0) GO TO 280 IF (COUNT.EQ.MAX .OR. CONV.EQ.2.0) GO TO 330 WRITE (OUTTAP,65) COUNT GO TO 280 330 WRITE (OUTTAP,67) COUNT GO TO 280 C C EOR ON EST1 C 340 CALL WRITE (EST2,0,0,NWEOR) IF (IE1-IE2) 60,10,10 C C ERRORS C 350 CALL MESAGE (-2,EST1,NAME) 360 CALL MESAGE (-3,EST1,NAME) 370 J = 370 GO TO 390 375 J = 375 I = KOUNT GO TO 390 380 J = 380 390 WRITE (OUTTAP,395) J,G(1,1),G(2,1),I,II,IZ(I+II),Z(I+II) 395 FORMAT (16H0*** OPT2C/ERROR,I5,9X,5HELEM ,2A4,3I9,E10.4 ) GO TO 50 C 400 CALL EOF (EST2) MCB(1) = EST1 CALL RDTRL(MCB) MCB(1) = EST2 CALL WRTTRL(MCB) RETURN END ================================================ FILE: mis/opt2d.f ================================================ SUBROUTINE OPT2D (IPR,PR) C----- C COPY OPTP1 TO OPTP2 DATA FILE. C CHANGE RECORD 3 WORD 1 = IABS (PID). C WORD 4 = PLST C WORD 5 = ALPH C----- REAL PR(1) INTEGER ZCOR ,EOR ,IPR(1) ,OPTP1 ,OPTP2 ,IZ(1) C COMMON /BLANK/ SKP1(9),NWDSP,OPTP1,SKP3(2),OPTP2,SKP4(2),NPRW COMMON /NAMES / NRD,NRREW,NWRT,NWREW,NEXT COMMON /OPTPW2/ ZCOR,Z(1) EQUIVALENCE (IZ(1),Z(1)) C C . RECORD ZERO - COPY NAME AND 6 PARAMETERS... C CALL FREAD (OPTP1,Z(1),8,NEXT) CALL FNAME(OPTP2,Z(1)) CALL WRITE (OPTP2,Z(1),8,NEXT) C C . RECORD ONE (POINTERS) AND TWO (ELEMENT DATA)... C DO 30 I = 1,2 N = ZCOR 10 EOR = NEXT CALL READ(*20,*20,OPTP1,Z,ZCOR,0,N) EOR = 0 20 CALL WRITE (OPTP2,Z(1),N,EOR) IF (EOR.EQ.0) GO TO 10 30 CONTINUE C C . RECORD THREE - PROPERTY DATA... C EOR = 0 DO 40 I = 1,NPRW,NWDSP IPR(I) = IABS(IPR(I) ) PR(I+4) = -1.0 CALL WRITE (OPTP2,IPR(I),NWDSP,EOR) 40 CONTINUE CALL WRITE (OPTP2,0,0,NEXT) C C . RECORD FOUR - PLIMIT DATA... C CALL FREAD (OPTP1,0,0,NEXT) N = ZCOR 50 EOR = NEXT CALL READ(*60,*60,OPTP1,Z,ZCOR,0,N) EOR = 0 60 CALL WRITE (OPTP2,Z(1),N,EOR) IF (EOR.EQ.0) GO TO 50 C CALL EOF (OPTP2) IZ(1) = OPTP1 CALL RDTRL(IZ(1)) IZ(1) = OPTP2 CALL WRTTRL (IZ(1)) RETURN END ================================================ FILE: mis/optp1a.f ================================================ SUBROUTINE OPTP1A (ELT,ELOP,ELE,DTYP) C INTEGER ELT(1),IWD(28),COUNT,EST,SYSBUF,OUTTAP,ELOP(2,1), 1 YCOR,ECOR,B1P1,IE(1),IPT(21),IMAT(1),NAME(2), 2 DTYP(1) REAL ELE(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / SKP1(2),COUNT,SKP2(2),YCOR,B1P1,NPOW, 1 NELW,NWDSE,NPRW,NWDSP,SKP3, 2 MPT,SKP4(3),EST,SKP5(2),NELTYP,ITYPE(21) COMMON /OPTPW1/ ECOR,E(1) COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1) COMMON /SYSTEM/ SYSBUF,OUTTAP COMMON /MATIN / MATID,INFLAG,TEMP,PLA,SINTH,COSTH COMMON /MATOUT/ OMAT(20) COMMON /NAMES / NRD,NOEOR,NWRT,NWEOR EQUIVALENCE (E(1),IE(1)), (OMAT(1),IMAT(1)), (K1,C1) DATA NAME / 4H OPT,4HP1A / C C POINTER TO IPT ARRAY - ZERO MEANS ELEMENT NOT USED. C UPDATE IPT DIMENSIONS AS NEW ELEMENTS ARE ADDED C DATA IPT / 15,17,21,11,23, 25,11,13,11, 1, 5,9,7,9,19, 1 9, 9, 3,27,27, 0/ C C WORD POINTER TO EST AND MATERIAL STRESS LIMITS C WORD 1 = 100*WORD TO OPTIMIZE (EST - IF.NE.0) + ALTERNATE C WORD 2 = 100*WORD FOR STRESS LIMIT + ALTERNATE C WHERE 1 = SHEAR C 2 = TENSION/COMPRESSION C 3 = ANY/ALL NONZERO C DATA IWD / 506,201 , 500,200 , 700,100 , 709,303 , 700,300 , C 11 13 15 17 19 1 800,300 , 810,303 ,1718,202 , 910,202 ,1011,303 , C 21 23 25 27 2 1300,303 , 800,303 , 800,303 ,1400,300 / C NELW = 0 SINTH = 0.0 COSTH = 1.0 PLA = 0.0 INFLAG = 2 C C COPY POINTER ARRAY INTO CORE C DO 10 I = 1,NTYPES ELT(I) = DTYP(I) 10 CONTINUE C C ZERO OUT POINTER ARRAY C I1 = 2*(NPOW+1) DO 20 I = 2,I1 20 ELOP(I,1) = 0 ELOP(1,1) = 1 C C READ IN ELEMENT TYPE C 30 CALL READ (*120,*170,EST,IETYP,1,NOEOR,I) IF (IETYP .GT. NTYPES) GO TO 110 INTYP = DTYP(IETYP) IF (INTYP .LE. 0) GO TO 110 C C DECODE LIMITS NEEDED C I = IPT(INTYP) J2 = IWD(I) J1 = J2/100 J2 = J2 - J1*100 I2 = IWD(I+1) I1 = I2/100 I2 = I2 - I1*100 NEST = (IETYP-1)*INCR + 12 NEST = NE(NEST) IF (NEST .GT. ECOR) GO TO 200 40 CALL READ (*160,*115,EST,E,NEST,NOEOR,K1) MATID = IE(J1-1) IF (MATID .EQ. 0) MATID = IE(J2-1) TEMP = E(NEST) CALL MAT (IE(1)) C C TEST IF PERTINENT STRESS LIMITS ARE ZERO C K1 = 0 K2 = 0 IF (I1.EQ.2 .AND. I2.EQ.2) GO TO 50 C C SHEAR C IF (OMAT(15) .NE. 0.0 ) GO TO 50 IF (I1 .NE. 2) K1 = 1 IF (I2.EQ.1 .OR. I2.EQ.3) K2 = 1 50 IF (I1.EQ.1 .AND. I2.LE.1) GO TO 70 C C TENSION C IF (OMAT(13) .NE. 0.0) GO TO 60 IF (I1 .GT. 1) K1 = K1 + 1 IF (I2 .GT. 1) K2 = K2 + 1 C C COMPRESSION C 60 IF (OMAT(14) .NE. 0.0) GO TO 70 IF (I1 .GT. 1) K1 = K1 + 1 IF (I2 .GT. 1) K2 = K2 + 1 C 70 IF (K1.GE.I1 .AND. K2.GE.I2) GO TO 40 C C CHECK IF PROPERTY IS NONZERO AND STORE INFO IN PID POINTER C IF (E(J1) .NE. 0.0) GO TO 90 80 IF (E(J2) .EQ. 0.0) GO TO 40 C IF (K2 .GE. I2) GO TO 40 C C ALTERNATE PROPERTY USED C K1 = J2*100 + I2 GO TO 100 C 90 IF (K1 .GE. I1) GO TO 80 C C PRIMARY PROPERTY USED C K1 = J1*100 + I1 100 IF (NELW+5 .GT. YCOR) GO TO 180 ELE(NELW+1) = E(1) ELE(NELW+2) = OMAT(13) ELE(NELW+3) = OMAT(14) ELE(NELW+4) = OMAT(15) C C NOTE, K1 = C1 C ELE(NELW+5) = C1 NELW = NELW + NWDSE GO TO 40 C C NEW ELEMENT TYPE C 110 CONTINUE CALL FREAD (EST,0,0,NWEOR) IF (IETYP .GT. NTYPES) GO TO 120 IF (INTYP .LE. 0) GO TO 30 115 ELOP(1,INTYP+1) = NELW + 1 GO TO 30 C C EOF C 120 I1 = NPOW + 1 DO 130 I = 2,I1 IF (ELOP(1,I) .GT. 0) GO TO 130 ELOP(1,I) = ELOP(1,I-1) 130 CONTINUE IF (NELW .NE. 0) GO TO 150 CALL PAGE2 (-2) WRITE (OUTTAP,140) UFM 140 FORMAT (A23,' 2295, NO ELEMENTS EXIST FOR OPTIMIZATION.') COUNT = -1 150 RETURN C C ILLEGAL EOF C 160 CALL MESAGE (-2,EST,NAME) C C ILLEGAL EOR C 170 CALL MESAGE (-3,EST,NAME) C C INSUFFICIENT CORE C 180 CALL PAGE2 (-2) WRITE (OUTTAP,190) UFM,NAME,B1P1,IE(1) 190 FORMAT (A23,' 2296, INSUFFICIENT CORE ',2A4,1H(,I10,' ), ELEMENT', 1 I9) NELW = 0 GO TO 150 200 CALL PAGE2 (-2) WRITE (OUTTAP,190) NAME,ECOR,IETYP NELW = 0 GO TO 150 END ================================================ FILE: mis/optp1b.f ================================================ SUBROUTINE OPTP1B (ELT,ELOP,ELE,PR) C INTEGER ELT(1),ELOP(2,1),ELE(1),PR(1),COUNT,ECT,SYSBUF, 1 OUTTAP,YCOR,PRCOR,PRC,NAME(2),CARD(2),ELCR,ELPT, 2 PID,PRPT,PRPT1,B1P1 COMMON /BLANK / SKP1(2),COUNT,SKP2(2),YCOR,B1P1,NPOW, 1 NELW,NWDSE,NPRW,NWDSP,SKP3, 2 SKP4(2),ECT,SKP5(4),NUMELM,ITYPE(21) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /ZZZZZZ/ X(1) COMMON /OPTPW1/ PRCOR,PRC(2) COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1) COMMON /SYSTEM/ SYSBUF,OUTTAP COMMON /NAMES / NRD,NOEOR,NWRT,NWEOR DATA NAME / 4H OPT,4HP1B / C C IEOP = 1 IDES = ELOP(1,IEOP ) IDEE = ELOP(1,IEOP+1) PRPT = 1 PRPT1 = 1 ELOP(2,1) = 1 C C IN CASE OF ERROR SET PRC(1) C PRC(1) = -1 C DO 130 K = 1,NUMELM NELE = (IDEE-IDES)/NWDSE IF (NELE) 30,120,10 C 10 IDX = INCR*(ITYPE(K)-1) IDP = IDX + 4 CARD(1) = NE(IDP ) CARD(2) = NE(IDP+1) IF (NE(IDP+2).GT.PRCOR) GO TO 150 CALL LOCATE (*160,X(B1P1),CARD(1),I) C C SEQUENTIAL ELEMENT SEARCH C NPR = 0 ELPT = IDES ELCR = ELE(ELPT) C 20 CALL READ (*160,*160,ECT,PRC,NE(IDP+2),NOEOR,I) IF (PRC(1)-ELCR) 20,50,30 C C LOGIC OR FILE FAILURE C 30 CALL PAGE2 (-2) WRITE (OUTTAP,40) SFM,ITYPE(K),PRC(1),NAME 40 FORMAT (A25,' 2297, INCORRECT LOGIC FOR ELEMENT TYPE',I4, 1 ', ELEMENT',I8,2H (,2A4,2H).) GO TO 170 C C ELEMENT ID IN CORE .EQ. ECT ID - ELEMENT TO BE OPTIMIZED C 50 PID = PRC(2) CARD(1) = PID CARD(2) = ELE(ELPT+4) C C TEST FOR CORE NEEDED AFTER EXPANDING TO NWDSP WORDS C IF (PRPT1+NWDSP*(NPR/2+1) .GT. YCOR) GO TO 180 CALL BISHEL (*60,CARD,NPR,2,PR(PRPT1)) 60 ELE(ELPT+4) = PID ELPT = ELPT + NWDSE IF (ELPT .GE. IDEE) GO TO 70 ELCR = ELE(ELPT) GO TO 20 C C NEW ELEMENT TYPE COMING C 70 CALL FREAD (ECT,0,0,NWEOR) C C EXPAND PROPERTIES TO NWDSP WORDS/PROPERTY C NX = NPR/2 IF (NX-1) 30,100,80 80 CONTINUE DO 90 I = 1,NX J = NX - I L = PRPT1 + J*NWDSP M = PRPT1 + J*2 PR(L ) = PR(M ) 90 PR(L+1) = PR(M+1) C 100 PRPT = PRPT1 + NX*NWDSP C C PLACE POINTERS IN ELEMENT ARRAY C L = IDEE - 1 DO 110 I = IDES,L,NWDSE KID = ELE(I+4) CALL BISLOC (*30,KID,PR(PRPT1),NWDSP,NX,J) ELE(I+4) = J 110 CONTINUE C C SETUP FOR NEXT ELEMENT C 120 IEOP = IEOP + 1 ELOP(2,IEOP) = PRPT PRPT1 = PRPT IDES = IDEE IF (IEOP .GT. NPOW) GO TO 140 IDEE = ELOP(1,IEOP+1) 130 CONTINUE C C 140 NPRW = PRPT - 1 RETURN C C ERRORS C C INSUFFICIENT CORE IN /OPTPW1/ OR /XXOPT1/ C 150 COUNT = -1 GO TO 140 C C FILE ERRORS C 160 CALL MESAGE (-7,ECT,NAME) 170 PRPT = 1 GO TO 140 C C INSUFFICIENT CORE C 180 CALL PAGE2 (-2) WRITE (OUTTAP,190) UFM,NAME,B1P1,PID 190 FORMAT (A23,' 2298, INSUFFICIENT CORE ',2A4,1H(,I10,'), PROPERTY', 1 I9) GO TO 150 END ================================================ FILE: mis/optp1c.f ================================================ SUBROUTINE OPTP1C (ELT,ELOP,PR) C INTEGER COUNT,ELT(1),ELOP(2,2),EPT,PR(1),SYSBUF,OUTTAP, 1 YCOR,PRCOR,PRC,NAME(2),CARD(2),DTYP(21),B1P1,ENTRY CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / SKP1(2),COUNT,SKP2(2),YCOR,B1P1,NPOW, 1 SKP3(2),NPRW,NWDSP,SKP4, 2 SKP5,EPT,SKP6(6),ENTRY(21) COMMON /OPTPW1/ PRCOR,PRC(1) COMMON /ZZZZZZ/ X(1) COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1) COMMON /SYSTEM/ SYSBUF,OUTTAP COMMON /NAMES / NRD,NOEOR,NWRT,NWEOR EQUIVALENCE (M1,RM1) DATA NAME / 4H OPT,4HP1C /, RM1 / -1.0 / C C PROPERTY CORRELATOR TO EST DESIGN VARIABLE (100*EST LOCATION). C THIS VALUE ADDS/SUBTRACTS FROM EST ENTRY TO GET EPT LOCATION. C ENTRY IS MADE BY THE ELT ARRAY (SEQUENTIAL LIST OF NUMBERS WITH C ZEROS FOR ELEMENTS NOT USED). C DATA DTYP / 1 -14, -6, -10, -5, -5, -5, -5, -5, -5, -2, C BR EB IS QM M1 M2 QP Q1 Q2 RD 2 -4, -4, -4, -4, -7, -4, -4, -2, -5, -5, C SH TB T1 T2 T6 TM TP TU Q4 T3 3 0/ C JETYP = 1 IDPS = ELOP(2,1) IDPE = ELOP(2,2) - 1 C DO 80 IETYP = 1,NTYPES IF (ELT(IETYP) .LE. 0) GO TO 80 NPR = (IDPE+1-IDPS)/NWDSP IF (NPR) 30,70,10 C 10 IDX = ENTRY(JETYP) IDX = INCR*(IDX-1) IDP = IDX + 7 CARD(1) = NE(IDP ) CARD(2) = NE(IDP+1) IF (NE(IDP+2) .GT. PRCOR) GO TO 130 C CALL LOCATE (*110,X(B1P1),CARD,I) ICPR = PR(IDPS) ICPT = IDPS C 20 CALL READ (*150,*160,EPT,PRC,NE(IDP+2),NOEOR,I) C C SEQUENTIAL PROPERTY SEARCH. PROPERTIES THAT ARE UNSORTED ON EPT C WILL FAIL. THIS MAY OCCUR FOR 2 PID/CARD (E.G., QDMEM, QUAD2, C SHEAR, TRIA2, TRMEM). C IF (PRC(1)-ICPR) 20,50,30 C C LOGIC OR UNSORTED FILE ERROR C 30 CALL PAGE2 (-2) WRITE (OUTTAP,40) SFM,IETYP,PRC(1),NAME 40 FORMAT (A25,' 2299, INCORRECT LOGIC FOR ELEMENT TYPE',I4, 1 ', PROPERTY',I9,2H (,2A4,2H).) GO TO 100 C C PROPERTY IN CORE LOCATED. C 50 NPR = NPR - 1 PR(ICPT+5) = 0 PR(ICPT+4) = M1 C C LOCATE VARIABLE AS SET BY OPTP1A C J1 = PR(ICPT+1)/100 J2 = J1+DTYP(JETYP) PR(ICPT+3) = PRC(J2) PR(ICPT+2) = PRC(J2) C C ICPT+0, +1 SET BY OPTP1A C ICPT = ICPT + NWDSP IF (ICPT .GT. IDPE) GO TO 60 ICPR = PR(ICPT) GO TO 20 C C NEW ELEMENT TYPE COMING C 60 IF (NPR .GT. 0) GO TO 30 CALL FREAD (EPT,0,0,NWEOR) 70 IDPS = IDPE + 1 JETYP = JETYP + 1 IF (JETYP .GT. NPOW) GO TO 90 IDPE = ELOP(2,JETYP+1) - 1 80 CONTINUE C C 90 RETURN C C ERRORS C 100 COUNT = -1 GO TO 90 C C UNABLE TO LOCATE SORTED PID C 110 WRITE (OUTTAP,120) SFM,NAME,PRC(1) 120 FORMAT (A25,' 2300, ',2A4,'UNABLE TO LOCATE PROPERTY',I10, 1 ' ON EPT OR IN CORE.') GO TO 100 C C INSUFFICIENT CORE /OPTPW1/ C 130 CALL PAGE2 (-2) WRITE (OUTTAP,140) UFM,NAME,PRCOR,IETYP 140 FORMAT (A23,' 2296. INSUFFICIENT CORE ',2A4,1H(,I10,' ), ELEMENT', 1 I9) GO TO 100 C C ILLEGAL EOF C 150 CALL MESAGE (-2,EPT,NAME) C C ILLEGAL EOR C 160 CALL MESAGE (-3,EPT,NAME) GO TO 100 END ================================================ FILE: mis/optp1d.f ================================================ SUBROUTINE OPTP1D (ELOP,PR,PL) C C PROPERTY OPTIMIZER SET POINTERS TO PLIMIT C INTEGER ELOP(2,1),PR(1),COUNT,YCOR,B1P1,SCRTH1, 1 SYSBUF,OUTTAP,PLP,PID,NAME(2),NKL(2) REAL PL(1),KL CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / SKP1(2),COUNT,SKP2(2),YCOR,B1P1,NPOW, 1 SKP3(2),NPRW,NWDSP,NKLW,SKP4(6),SCRTH1 COMMON /OPTPW1/ KLWDS,KL(4) COMMON /SYSTEM/ SYSBUF,OUTTAP COMMON /NAMES / NRD,NOEOR,NWRT,NWEOR EQUIVALENCE (NKL(1),KL(1)) DATA NAME / 4H OPT,4HPID / C NOGO = 0 PLP = 1 GO TO 15 C C READ A NEW ELEMENT TYPE C 10 CALL FREAD (SCRTH1,0,0,NWEOR) 15 L = 0 NPL = 0 CALL READ (*150,*180,SCRTH1,ITP,1,NOEOR,I) IF (ITP .LE. NPOW) GO TO 40 C 20 CALL PAGE2 (-2) WRITE (OUTTAP,30) SFM,NAME,ITP,L 30 FORMAT (A25,' 2301,',2A4,' FILE OPTIMIZATION PARAMETER INCORRECT', 1 ' AS',2I8) NOGO = NOGO + 1 GO TO 140 C 40 IP1 = ELOP(2,ITP) IP2 = ELOP(2,ITP+1) - 1 NPR = IP2 - IP1 IF (NPR .LE. 0) GO TO 10 CALL FREAD (SCRTH1,L,1,NOEOR) IF (L .LE. 0) GO TO 20 C CALL FREAD (SCRTH1,NKL(1),4,NOEOR) L = L - 1 C C SEQUENTIAL SEARCH ON PLIMIT AND PROPERTY DATA C LPL -- LAST PLIMIT POINTED TO (BY ILL). C NPL -- NUMBER OF PLIMIT FOR THIS ELEMENT TYPE IN CORE. C PLP -- POINTER FIRST PLIMIT -- -- -- . C LPL = -9877 C DO 130 IPR = IP1,IP2,NWDSP PID = PR(IPR) C 50 IF (PID-NKL(1)) 70,80,60 C C CHECK UPPER RANGE PLIMIT C 60 CONTINUE IF (PID-NKL(2)) 80,80,70 C C READ NEXT PLIMIT INTO CORE C 70 IF (L.LE.0) GO TO 140 CALL FREAD (SCRTH1,NKL(1),4,NOEOR) L = L - 1 GO TO 50 C C PLIMIT EXISTS - SEE IF MATCHES LAST C 80 IF (LPL .EQ. L) GO TO 120 C C DOESNOT - CHECK IF PREVIOUS ENTRY C IF (NPL .EQ. 0) GO TO 100 DO 90 LPL = PLP,LOC,2 IF (PL(LPL) .NE. KL(3)) GO TO 90 IF (PL(LPL+1) .EQ. KL(4)) GO TO 110 90 CONTINUE C C NEW PLIMIT C 100 IF (NPL+PLP+1 .GT.YCOR) GO TO 190 NPL = NPL + 2 LOC = NPL + PLP - 2 PL(LOC ) = KL(3) PL(LOC+1) = KL(4) LPL = L ILL = LOC GO TO 120 C C PREVIOUS MATCH C 110 ILL = LPL LPL = L C C LOAD POINTER C 120 PR(IPR+5) = ILL C 130 CONTINUE C 140 PLP = PLP + NPL GO TO 10 C C END-OF-FILE C 150 NKLW = PLP + NPL - 1 160 IF (NOGO .GT. 0) COUNT = -1 RETURN C C ILLEGAL EOR C 180 CALL MESAGE (-3,SCRTH1,NAME) C C INSUFFICIENT COREINTERNAL ELEMENT NUMBER PRINTED C 190 CALL PAGE2 (-2) WRITE (OUTTAP,200) UFM,NAME,B1P1,ITP 200 FORMAT (A23,' 2298, INSUFFICIENT CORE ',2A4,1H(,I10, 1 ' ), PROPERTY',I9) NKLW = -PLP GO TO 160 END ================================================ FILE: mis/optpr1.f ================================================ SUBROUTINE OPTPR1 C C THIS ROUTINE IS THE DRIVER FOR PROPERTY OPTIMIZATION, PHASE 1. C C C OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/V,N,PRINT/V,N,TSTART/ C V,N,COUNT $ C C WHERE PRINT = OUTPUT, INTEGER = 1 C TSTART = OUTPUT, INTEGER = TIME AT EXIT OF OPTPR1. C COUNT = OUTPUT, INTEGER =-1 NOT PROPERTY OPTIMIZATION. C = 1 IS PROPERTY OPTIMIZATION. C CRITERIA FOR OPTIMIZATION C C 1. OUTPUT FILE NOT PURGED. C 2. BULK DATA CARD -POPT IS PRESENT. C AFTER THESE TESTS ALL ERRORS ARE FATAL. C C C SUBROUTINES USED C C OPTP1A - READS ELEMENT DATA INTO CORE (NWDSE PER ELEMENT). C OPTP1B - READS PROPERTY IDS INTO CORE AND SETS ELEMENT DATA C POINTER (V1) TO ITS LOCATION. (NWDSP PER PROPERTY). C OPTP1C - READS DESIGN PROPERTIES INTO CORE. C OPTP1D - READS PLIMIT DATA INTO CORE AND SETS PROPERTY DATA C POINTER (PLIM) TO ITS LOCATION. (NWDSK PER LIMIT) C C C LOGICAL DEBUG INTEGER DATTYP(21),DATDTY(90),DTYP(90),SYSBUF,B2,B1P1, 1 NAME(2),CREW,FILE,YCOR,PCOR1,ECOR1,PRCOR1,FNAM(2), 2 PRINT,COUNT,POPH(2),HPOP(2),PLMH(2),NONE(2), 3 EPT,ECT,DIT,EST,OPTP1,OUTTAP,Y(1),SCRTH1,ZCOR, 4 PCOR2,TSTART REAL X(7) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / PRINT,TSTART,COUNT,SKP(2),YCOR,B1P1,NPOW, 1 NELW,NWDSE,NPRW,NWDSP,NKLW,MPT,EPT,ECT,DIT,EST, 2 OPTP1,SCRTH1,NELTYP,ITYPE(21) COMMON /OPTPW1/ ZCOR,Z(100) COMMON /ZZZZZZ/ CORE(1) COMMON /NAMES / NRD,NRREW,NWRT,NWREW,CREW COMMON /SYSTEM/ SYSBUF,OUTTAP COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1) EQUIVALENCE (X(1),CORE(1)), (X(7),Y(1)) C DATA DEBUG / .FALSE. / DATA POPH , PLMH / 404,4, 304,3 /, NAME / 4H OPT,3HPR1 /, 1 HPOP / 4H P,4HOPT / , NONE / 4H (NO,4HNE) /, 2 LTYPE / 90 / ,NUMTYP / 20 / C C NELTYP = NO. ELEMENT TYPES THAT MAY BE OPTIMIZED C LTYPE = DIMENSION OF DATDTY AND DTYP C DATTYP/DTYP = ARRAY TO GIVE RELATIVE LOCATIONS OF ELEMENTS IN C /GPTA1/ C DATA DATTYP/ 1 34, 81, 80, 16, 62, 63, 15, 19, 18, 1, 4, 7, 6, 17, C BR EB IS QM M1 M2 QP Q1 Q2 RD SH TB T1 T2 2 73, 9, 8, 3, 64, 83, 0 / C T6 TM TP TU Q4 T3 C C SETUP DATDYP/DTYP IN ALPHABETICAL ORDER AND IN /GPTA1/ SEQUENCE C DATA DATDTY / 10, 0, 18, 11, 0, 13, 12, 17, 16, 0 C ELEMENT RD 2 TU SH 5 T1 TB TP TM 10 1, 4*0 , 7, 4, 14, 9, 8, 0 C ELEMENT 11-14 QP QM T2 Q2 Q1 20 2, 10*0 C ELEMENT 21-30 3, 3*0 , 1, 6*0 C ELEMENT 31-33 BR 35-40 4, 10*0 C ELEMENT 41-50 5, 10*0 C ELEMENT 51-60 6, 0, 5, 6, 19, 6*0 C ELEMENT 61 M1 M2 Q4 65-70 7, 2*0, 15, 6*0, 3 C ELEMENT 71-72 T6 74-79 D8 8, 2, 0, 20, 7*0 / C ELEMENT EB 82 T3 84-90 C C SET UP ELEMENT TYPES C NELTYP = NUMTYP DO 1 I = 1,21 IF (NTYPES .GT. LTYPE) GO TO 140 1 ITYPE(I) = DATTYP(I) DO 2 I = 1,NTYPES 2 DTYP(I) = DATDTY(I) C C ZCOR = 100 MPT = 101 EPT = 102 ECT = 103 DIT = 104 EST = 105 OPTP1 = 201 SCRTH1= 301 C C STEP 1. INITIALIZE AND CHECK FOR OUTPUT FILE C COUNT = 0 PRINT = 1 CALL FNAME (OPTP1,FNAM) IF (FNAM(1).EQ.NONE(1) .AND. FNAM(2).EQ.NONE(2)) GO TO 120 C B1P1 = KORSZ(CORE(1)) - SYSBUF B2 = B1P1 - SYSBUF YCOR = B2 - 7 PCOR1 =-1 ECOR1 =-1 PRCOR1=-1 KCOR1 =-1 NWDSE = 5 NWDSP = 6 NPOW = NELTYP CALL DELSET C C STEP 2. FIND POPT CARD C CALL PRELOC (*120,X(B1P1),MPT) CALL LOCATE (*110,X(B1P1),POPH,I) CALL READ (*10,*30,MPT,X,7,1,NWDS) C C ILLEGAL NUMBER OF WORDS C 10 CALL PAGE2 (-2) WRITE (OUTTAP,20) SFM,NAME,NWDS,HPOP 20 FORMAT (A25,' 2288, ',2A4,'READ INCORRECT NUMBER WORDS (',I2,2A4, 1 2H).) GO TO 80 C 30 IF (NWDS.NE.6) GO TO 10 C C STEP 2A. PROCESS PLIMIT CARDS ON SCRATCH FILE C IF (YCOR .LE. 11) GO TO 60 NKLW = 0 CALL LOCATE (*40,X(B1P1),PLMH,I) CALL GOPEN (SCRTH1,X(B2),NWREW) CALL OPTPX (DTYP) CALL CLOSE (SCRTH1,CREW) 40 CALL CLOSE (MPT,CREW) IF (NKLW .LT. 0) GO TO 60 IF (COUNT+1 .EQ. 0) GO TO 80 C C STEP 3. LOAD MATERIAL DATA C CALL PREMAT (Y(1),Y(1),X(B1P1),YCOR,MCOR,MPT,DIT) PCOR1 = MCOR + 1 PCOR2 = PCOR1 + NTYPES ECOR1 = PCOR2 + 2*(NPOW+1) YCOR = YCOR - ECOR1 IF (YCOR .LT. (NWDSE+NWDSP)) GO TO 60 C C STEP 4. READ ELEMENTS INTO CORE C CALL GOPEN (EST,X(B2),0) CALL OPTP1A (Y(PCOR1),Y(PCOR2),Y(ECOR1),DTYP) CALL CLOSE (EST,CREW) IF (COUNT+1 .EQ. 0) GO TO 80 IF (NELW .LE. 0) GO TO 60 C C STEP 5. READ IN PROPERTIES IDS, SET V1. SECOND BUFFER NOT NEEDED C PRCOR1 = ECOR1 + NELW YCOR = YCOR - NELW + SYSBUF IF (YCOR .LT. NWDSP) GO TO 60 FILE = ECT CALL PRELOC (*90,X(B1P1),ECT) CALL OPTP1B (Y(PCOR1),Y(PCOR2),Y(ECOR1),Y(PRCOR1)) CALL CLOSE (ECT,CREW) IF (COUNT+1 .EQ. 0) GO TO 60 IF (NPRW .LE. 0) GO TO 80 C C STEP 6. READ PROPERTY DATA INTO CORE C KCOR1 = PRCOR1 + NPRW YCOR = YCOR - NPRW C FILE = EPT CALL PRELOC (*90,X(B1P1),EPT) CALL OPTP1C (Y(PCOR1),Y(PCOR2),Y(PRCOR1)) CALL CLOSE (EPT,CREW) IF (COUNT+1 .EQ.0) GO TO 80 C C STEP 7. PROCESS PLIMIT CARDS C IF (NKLW .LE. 0) GO TO 50 IF (YCOR .LT. 4) GO TO 60 CALL GOPEN (SCRTH1,X(B1P1),NRREW) CALL OPTP1D (Y(PCOR2),Y(PRCOR1),Y(KCOR1)) CALL CLOSE (SCRTH1,CREW) IF (NKLW .LT. 0) GO TO 60 IF (COUNT+1 .EQ. 0) GO TO 80 C C STEP 7. COUNT=0, OUTPUT FILE OPTPR1 C 50 FILE = OPTP1 CALL OPEN (*90,OPTP1,X(B1P1),NWREW) CALL WRITE (OPTP1,FNAM,2,0) CALL WRITE (OPTP1,X(1),6,1) C CALL WRITE (OPTP1,Y(PCOR1),NTYPES,0) CALL WRITE (OPTP1,NPOW,1,0) CALL WRITE (OPTP1,Y(PCOR2),2*(NPOW+1),1) CALL WRITE (OPTP1,Y(ECOR1),NELW,1) CALL WRITE (OPTP1,Y(PRCOR1),NPRW,1) CALL WRITE (OPTP1,Y(KCOR1),NKLW,1) CALL EOF (OPTP1) J = 0 Y(J+1) = OPTP1 Y(J+2) = 0 Y(J+3) = NELW Y(J+4) = NPRW Y(J+5) = NKLW Y(J+6) = 0 Y(J+7) = NTYPES CALL WRTTRL (Y(1)) CALL CLOSE (OPTP1,CREW) GO TO 130 C C ERROR MESSAGES - FILE NOT CREATED C C INSUFFICIENT CORE C 60 CALL PAGE2 (-3) WRITE (OUTTAP,70) UFM,NAME,B1P1,PCOR1,ECOR1,PRCOR1,KCOR1 70 FORMAT (A23,' 2289, ',2A4,'INSUFFICIENT CORE (',I10,2H ), /9X,I9, 1 ' = MATERIAL',I9,' = POINTERS',I9,' = ELEMENTS',I9, 2 ' = PROPERTIES') 80 CALL MESAGE(-61,EPT,NAME) C C INPUT FILE PURGED - ILLEGALLY C 90 CALL MESAGE (-1,FILE,NAME) C C OPTPR1 NOT CREATED C 110 CALL CLOSE (MPT,CREW) 120 COUNT = -1 C C OPTPR1 CREATED C 130 CONTINUE CALL KLOCK (TSTART) RETURN C C ERROR MESSAGE C 140 WRITE (OUTTAP,150) SFM 150 FORMAT (A25,', DATDTY AND DTYP ARRAYS TOO SMALL') CALL MESAGE (-37,0,NAME) END ================================================ FILE: mis/optpr2.f ================================================ SUBROUTINE OPTPR2 C C THIS ROUTINE IS THE DRIVER FOR PROPERTY OPTIMIZATION, PHASE 2. C C CALLING SEQUENCE C C OPTPR2 OPTP1,OES1,EST1 / OPTP2,EST2 / V,N,PRINT / V,N,TSTART / C V,N,COUNT / V,N,CARDNO $ C WHERE PRINT = INPUT/OUTPUT - INTEGER, CALL OFP IF 1, SKIP OFP C IF -1 C TSTART = INPUT - INTEGER, END TIME AT OPTPR1. C COUNT = INPUT/OUTPUT - INTEGER, ITERATION LOOP COUNTER. C CARDNO = INPUT/OUTPUT - INTEGER, PUNCHED CARD COUNT C C LOGICAL DEBUG INTEGER PRINT,COUNT,YCOR,PARM(8),B1,NAME(2),CREW,FILE, 1 SYSBUF,OUTTAP,IY(1),NONE(2),OPTP1,OES1,EST1,OPTP2, 2 PTRRY,EST2,B2,PTPTY,PTELY,PTPRY,PTPLY,TG,TL, 3 TSTART,ZCOR REAL Y(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / PRINT,TSTART,COUNT,NCARD,SKP,YCOR,B1,NELOP,NWDSE, 1 NWDSP,OPTP1,OES1,EST1,OPTP2,EST2, 2 NELW,NPRW,NKLW,NTOTL,CONV COMMON /OPTPW2/ ZCOR,Z(200) COMMON /ZZZZZZ/ CORE(1) COMMON /NAMES / NRD,NRREW,NWRT,NWREW,CREW COMMON /SYSTEM/ SYSBUF,OUTTAP COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1) EQUIVALENCE (Y(1),IY(1),PARM(8)), (CORE(1),MAX,PARM(1)), 1 (PARM(4),IPRN ), (PARM(7),IPRNT) DATA NAME / 4H OPT,4HPR2 /, NONE / 4H (NO,4HNE) / DATA PTPTY , PTELY,PTPRY,PTPLY,PTRRY / 5*0 / C DATA DEBUG / .FALSE / C OPTP1 = 101 OES1 = 102 EST1 = 103 OPTP2 = 201 EST2 = 202 ZCOR = 200 NWDSE = 5 NWDSP = 6 C C LOAD /GPTA1/ ON 1108 C CALL DELSET C C STEP 1. INITIALIZE AND READ POPT DATA C B1 = KORSZ(CORE(1)) - SYSBUF + 1 B2 = B1 - SYSBUF YCOR= B2 -1 IF (B2 .LE. 6) GO TO 10 COUNT = COUNT + 1 CONV = 0.0 FILE = OPTP1 CALL OPEN (*105,FILE,PARM(B1),NRREW) CALL FREAD (OPTP1,PARM(1),2,0) CALL FREAD (OPTP1,PARM(1),6,1) C C PARM NOW CONTAINS C C 1 = MAX - MAX NUMBER OF ITERATIONS (I) C 2 = EPS - CONVERGENCE TEST (R) C 3 = GAMA - ITERATION FACTOR (R) C 4 = IPRN - PRINT CONTROL (I) C 5,6 = KPUN - PUNCH CONTROL (BCD, YES OR NO) C C NEW PROPERTIES ARE CALCULATED BY, C PNEW = (PLST*ALPH) / (ALPH + (1-ALPH)GAMA) C C STEP 2. CHECK TIME TO GO C IF (COUNT .GT. MAX) GO TO 105 CALL TMTOGO (TG) IF (TG .GT. 0) GO TO 5 CALL MESAGE (45,COUNT,NAME) COUNT = 0 GO TO 110 5 CALL KLOCK (TL) TL = (TL-TSTART)/COUNT IF (TG .LE. TL) COUNT = MAX IPRNT = 0 C C STEP 3. READ OPTP1 INTO CORE C C RECORD 1 - POINTERS C YCOR = YCOR - 7 IF (YCOR .LT. NTYPES) GO TO 10 C C POINTERS TO OPTIMIZING POINTERS C CALL FREAD (OPTP1,Y(1),NTYPES,0) C C NUMBER OF ELEMENT TYPES THAT MAY BE OPTIMIZED C CALL FREAD (OPTP1,NELOP,1,0) C C ELEMENT AND PROPERTY POINTERS OF (2,NELOP+1) LENGTH C YCOR = YCOR - NTYPES I = 2*(NELOP+1) PTPTY= NTYPES + 1 IF (YCOR .LT. I) GO TO 10 CALL FREAD (OPTP1,Y(PTPTY),I,1) C C RECORD 2 - ELEMENT DATA C YCOR = YCOR - I PTELY = PTPTY + I IF (YCOR .LT. NWDSE+NWDSP) GO TO 10 CALL READ (*10,*30,OPTP1,Y(PTELY),YCOR,1,NELW) C C INSUFFICIENT CORE - PRINT START OF EACH SECTION C C 10 CALL PAGE2 (-3) I = NTYPES + 1 WRITE (OUTTAP,20) UFM,NAME,B1,I,PTPTY,PTELY,PTPRY 20 FORMAT (A23,' 2289, ',2A4,'INSUFFICIENT CORE (',I10,2H ), /9X,I9, 1 ' = MATERIAL',I9,' = POINTERS',I9,' = ELEMENTS',I9, 2 ' = PROPERTIES') CALL CLOSE (FILE,CREW) GO TO 100 C C RECORD 3 - PROPERTY DATA C 30 IF (NELW .LT. NWDSE) GO TO 50 PTPRY = PTELY + NELW YCOR = YCOR - NELW IF (YCOR .LT. NWDSP) GO TO 10 CALL READ (*10,*40,OPTP1,Y(PTPRY),YCOR,1,NPRW) GO TO 10 C C RECORD 4 - PLIMIT DATA C 40 IF (NPRW .LT. NWDSP) GO TO 50 PTPLY = PTPRY + NPRW YCOR = YCOR - NPRW IF (YCOR .LT. 0) GO TO 10 CALL READ (*10,*70,OPTP1,Y(PTPLY),YCOR,1,NKLW) GO TO 10 C C INSUFFICIENT DATA C 50 CALL CLOSE (FILE,CREW) CALL PAGE2 (-2) WRITE (OUTTAP,60) UFM,NAME 60 FORMAT (A23,' 2302, SUBROUTINE ',2A4,' HAS NO PROPERTY OR ', 1 'ELEMENT DATA.') GO TO 100 C C CLOSE OPTP1 FILE. C ALLOCATE AN ARRAY WITH STARTING POINTER PTRRY, OF LENGTH EQUALS TO C THE NO. OF PROPERTY CARDS (TO BE USED IN OPT2A, 2B, AND 2C) C SET VARIABLE NTOTL TO THE TOTAL LENGTH OF WORDS USED IN OPEN CORE C RE-ESTABLISH OPEN CORE UPPER LIMIT, YCOR C 70 CALL CLOSE (FILE,CREW) PTRRY = PTPLY + NKLW NTOTL = PTRRY + NPRW/NWDSP + 1 IY(NTOTL-1) = -1234567 IF (NTOTL .GT. YCOR) GO TO 10 YCOR = B2 - 1 DO 80 J = NTOTL,YCOR 80 IY(J) = 0 C C READ STRESS DATA, SET ALPH C FILE = OES1 CALL GOPEN (FILE,PARM(B1),NRREW) CALL OPT2A (IY(PTPTY),Y(PTELY),IY(PTELY),Y(PTPRY),IY(PTPRY), 1 Y(PTRRY)) IF (IY(NTOTL-1) .NE. -1234567) GO TO 120 CALL CLOSE (FILE,CREW) IF (COUNT .GT. MAX) GO TO 105 C C SET NEW PROPERTY, CHECK FOR CONVERGENCE C CALL OPT2B (IY(PTPRY),Y(PTPRY),Y(PTPLY),Y(PTRRY)) C C CREATE EST2, PUNCH PROPERTIES IF CONVERGED C PRINT = -1 IF (COUNT.GE.MAX .OR. COUNT.LE.1 .OR. CONV.EQ. 2.) PRINT = 1 IF (IPRN .LT.0 .AND. MOD(COUNT,IABS(IPRN)).EQ. 0) PRINT = 1 IF (COUNT.GT.MAX .OR. COUNT.LT.0) GO TO 90 IF (COUNT.EQ.1 .OR. COUNT.GE.MAX .OR. MOD(COUNT,IABS(IPRN)).EQ.0 1 .OR. CONV.EQ.2.) IPRNT = 1 FILE = EST1 CALL OPEN (*95,FILE,PARM(B1),NRREW) CALL FREAD (FILE,NONE(1),2,1) FILE = EST2 CALL GOPEN (FILE,PARM(B2),NWREW) CALL OPT2C (Y(PTPTY),IY(PTELY),IY(PTPRY),Y(PTPRY),Y(PTRRY)) CALL CLOSE (FILE,CREW) CALL CLOSE (EST1,CREW) C C COPY OPTPR1 TO OPTPR2 - CHANGE RECORD 3 C 90 IF (COUNT .GT. MAX) GO TO 105 CALL OPEN (*95,OPTP1,PARM(B1),NRREW) FILE = OPTP2 CALL OPEN (*95,FILE,PARM(B2),NWREW) CALL OPT2D (IY(PTPRY),Y(PTPRY)) CALL CLOSE (FILE,CREW) CALL CLOSE (OPTP1,CREW) GO TO 110 C C FILE NOT PRESENT C 95 CALL MESAGE (-1 ,FILE,NAME) 100 CALL MESAGE (-61,B2,NAME) 105 COUNT = -1 CALL CLOSE (OPTP1,1) 110 IF (CONV .EQ. 2.0) COUNT = MAX IF (COUNT .LE. 0) PRINT = 1 IF (COUNT .EQ. 0) COUNT =-1 RETURN C 120 WRITE (OUTTAP,125) NTOTL,PTRRY 125 FORMAT (32H0*** RR DIMENSION ERROR/OPTPR2 ,2I7) GO TO 100 END ================================================ FILE: mis/optpx.f ================================================ SUBROUTINE OPTPX (DTYP) C C PROCESS PLIMIT CARDS INTO ELEMENT SECTIONS THAT MAY BE READ BY C OPTP1D C MPT ASSUMED PREPOSITIONED TO PLIMIT CARDS. C INTEGER COUNT,YCOR,B1P1,NPOW,EPT,NAME(2),SYSBUF,OUTTAP, 1 DTYP(1),ETP(21),ANY,ALL,STOR(21),BLANK,EJECT, 2 SCRTH1,ENTRY,X(7),IY(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / SKP1(2),COUNT,SKP2(2),YCOR,B1P1,NPOW,SKP3(4),NKLW, 1 MPT,EPT,SKP5(4),SCRTH1,NELTYP,ENTRY(21) COMMON /OPTPW1/ KCOR,K(10) COMMON /ZZZZZZ/ CORE(1) COMMON /NAMES / NRD,NOEOR,NWRT,NWEOR COMMON /SYSTEM/ SYSBUF,OUTTAP COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1) EQUIVALENCE (STOR(1),K(10)),(CORE(1),X(1)),(X(7),IY(1)) DATA ETP / 21*0 /, ALL / 4HALL /, BLANK / 1H /, 1 NAME / 4H OPT, 4HPX / C MAXW = 0 IALL = 0 ANY = 0 NOCOR = 0 NOGO = 0 NX = 1 ASSIGN 10 TO IRET C C MAKE PRELIMINARY PASS C 10 IMHERE = 10 CALL READ (*310,*110,MPT,K,9,0,NWDS) IF (K(1) .EQ. ALL) GO TO 30 DO 20 I = 1,NTYPES IF (DTYP(I) .EQ. 0) GO TO 20 IDX = INCR*(I-1) + 1 IF (NE(IDX ) .NE. K(1)) GO TO 20 IF (NE(IDX+1) .EQ. K(2)) GO TO 40 20 CONTINUE GO TO 50 C C ALL SPECIFIED C 30 IALL = IALL + 1 GO TO 10 C C LEGAL ELEMENT TYPE C 40 I = DTYP(I) ETP(I) = ETP(I) + 1 ANY = ANY + 1 GO TO 10 C C ILLEGAL ELEMENT TYPE C 50 NOGO = NOGO + 1 IF (NOGO .GT. 1) GO TO 70 CALL PAGE2 (-4) WRITE (OUTTAP,60) UFM 60 FORMAT (A23,' 2290, THE FOLLOWING ILLEGAL ELEMENT TYPES FOUND ON', 1 ' PLIMIT CARD') 70 STOR(NX ) = K(1) STOR(NX+1) = K(2) NX = NX + 2 IF (NX .LT. 20) GO TO 10 80 I = EJECT(2) IF (I .EQ. 0) GO TO 90 CALL PAGE2 (-2) WRITE (OUTTAP,60) UFM 90 WRITE (OUTTAP,100) STOR 100 FORMAT (1H0,9X,10(2A4,1X)) NX = 1 GO TO IRET, (10,130) C C LAST PLIMIT C 110 IF (NX .LE. 1) GO TO 130 ASSIGN 130 TO IRET DO 120 I = NX,20 120 STOR(I) = BLANK GO TO 80 C C CONTINUE PROCESSING LEGAL CARDS UNLESS ANY = 0 C 130 IF (ANY.EQ.0 .AND. IALL.EQ.0) GO TO 300 CALL BCKREC (MPT) IMHERE = 130 CALL READ (*310,*320,MPT,STOR(1),3,NOEOR,NWDS) C LOC1 = 1 C C START OF OUTPUT LOOP C DO 290 N = 1,NTYPES IDE = DTYP(N) IF (IDE .LE. 0) GO TO 290 IDX = ENTRY(IDE) IDX = INCR*(IDX-1) NEN = 0 NDE = ETP(IDE) IF (NDE .LE. 0) GO TO 160 NWDS = 0 C IMHERE = 140 DO 150 M = 1,NDE 140 CALL READ (*310,*320,MPT,STOR(1),9,NOEOR,NWDS) IF (STOR(1) .NE. NE(IDX+1)) GO TO 140 IF (STOR(2) .NE. NE(IDX+2)) GO TO 140 CALL OPTPX1 (*260,STOR,NOGO,NEN,LOC1) 150 CONTINUE CALL BCKREC (MPT) IMHERE = 150 CALL READ (*310,*320,MPT,STOR(1),3,NOEOR,NWDS) C C CHECK IF ALL SPECIFIED C 160 IF (IALL .LE. 0) GO TO 190 IMHERE = 170 DO 180 M = 1,IALL 170 CALL READ (*310,*320,MPT,STOR(1),9,NOEOR,NWDS) IF (STOR(1) .NE. ALL) GO TO 170 CALL OPTPX1 (*260,STOR,NOGO,NEN,LOC1) 180 CONTINUE CALL BCKREC (MPT) IMHERE = 180 CALL READ (*310,*320,MPT,STOR(1),3,NOEOR,NWDS) C C CONTINUE PROCESSING LEGAL CARDS - SORT ON SECOND WORD C 190 IF (NEN .EQ. 0) GO TO 290 CALL SORT (0,0,4,2,IY(LOC1),NEN) C C CHECK SECOND WORD C I1 = IY(LOC1 ) I2 = IY(LOC1+1) I3 = IY(LOC1+2) I4 = IY(LOC1+3) LOC2= LOC1 + NEN L = LOC2 IF (L+4 .GT. YCOR) NWDS = 1 NX = NEN - 3 IF (NX .LT. 5) GO TO 250 DO 240 M = 5,NX,4 J = LOC1 + M - 1 J1 = IY(J ) J2 = IY(J+1) C IF (I1 .GE. J1) GO TO 220 IF (I2 .GE. J1) GO TO 220 C C CHECK FOR EXPANDING THE THRU C IF (I2 .NE. J1-1) GO TO 200 IF (I3 .NE. IY(J+2)) GO TO 200 IF (I4 .NE. IY(J+3)) GO TO 200 I2 = J2 IF (M .NE. NX) GO TO 240 IY(NX) = I1 GO TO 250 C C OUTPUT PLIMIT DATA IN SETS OF 4 C 200 IF (NOGO.GT.0 .OR. NWDS.GT.0) GO TO 210 IY(L ) = I1 IY(L+1) = I2 IY(L+2) = I3 IY(L+3) = I4 210 L = L + 4 IF (L+3 .GT. YCOR) NWDS = NWDS + 4 I1 = J1 I2 = J2 I3 = IY(J+2) I4 = IY(J+3) GO TO 240 C C OVERLAPPING RANGE ERROR CONDITION C 220 CALL PAGE2 (-2) WRITE (OUTTAP,230) UFM,I1,I2,J1,J2 230 FORMAT (A23,' 2291, PLIMIT RANGE INCORRECT FOR',I8,' THRU',I8, 1 ' AND',I8,' THRU',I8,'.') I1 = J1 I2 = J2 NOGO = NOGO + 1 240 CONTINUE C C AFTER ELEMENTS THAT MAY BE OPTIMIZED, FLUSH BUFFER. C 250 IF (L+3 .GT. YCOR) GO TO 260 IY(L ) = IY(NX ) IY(L+1) = IY(NX+1) IY(L+2) = IY(NX+2) IY(L+3) = IY(NX+3) L = L + 3 GO TO 280 C C INSUFFICIENT CORE FOR ELEMENTS OF THIS TYPE C 260 CALL PAGE2 (-2) NOCOR = 1 NWDS = NWDS + 3 WRITE (OUTTAP,270) UFM,NE(IDX+1),NE(IDX+2),NWDS 270 FORMAT (A23,' 2292, INSUFFICIENT CORE FOR PLIMIT DATA, ELEMENT ', 1 2A4,I5,' WORDS SKIPPED.') NOGO = NOGO + 1 C C WRITE ONTO SCRATCH FILE C 280 IF (NOGO .GT. 0) GO TO 290 MAXW = MAX0(L,MAXW) STOR(1) = IDE STOR(2) = (L-LOC2+1)/4 CALL WRITE (SCRTH1,STOR(1),2,NOEOR) C C AFTER ELEMENT TYPE, NUMBER WORDS - WRITE DATA C CALL WRITE (SCRTH1,IY(LOC2),L-LOC2+1,NWEOR) C 290 CONTINUE C C END OF OUTPUT LOOP C CALL EOF (SCRTH1) 300 IF (NOGO .EQ. 0) NKLW = MAXW IF (NOGO .GT. 0) COUNT = -1 IF (NOCOR .NE. 0) NKLW = -64 RETURN C C ILLEGAL EOF (310), EOR (320) C 310 J = -2 NWDS = -222 GO TO 330 320 J = -3 330 WRITE (OUTTAP,340) IMHERE,NWDS 340 FORMAT (' ERROR IN OPTPX. IMHERE=',I4,', NWDS=',I6) CALL MESAGE (J,MPT,NAME) GO TO 300 END ================================================ FILE: mis/optpx1.f ================================================ SUBROUTINE OPTPX1 (*,STOR,NOGO,NEN,LOC1) C C PROCESS PID DATA ON PLIMIT CARD C INTEGER STOR(15),SYSBUF,OUTTAP,YCOR,THRU,NAM(2),X(7),IY(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / SKP1(5),YCOR COMMON /ZZZZZZ/ CORE(1) COMMON /SYSTEM/ SYSBUF,OUTTAP EQUIVALENCE (CORE(1),X(1)),(X(7),IY(1)) DATA THRU / 4HTHRU / C NAM(1) = STOR(1) NAM(2) = STOR(2) IF (STOR(6) .EQ. THRU) GO TO 100 C C USER SPECIFIED BY EXPLICIT ID-S C CALL SORT (0,0,1,1,STOR(5),5) C C CREATE PSEUDO THRU RANGE C LOCATE FIRST NONZERO C DO 10 L = 5,9 IF (STOR(L) .NE. 0) GO TO 30 10 CONTINUE CALL PAGE2 (-2) WRITE (OUTTAP,20) UFM,NAM 20 FORMAT (A23,' 2293, NO PID ENTRIES ON PLIMIT CARD (',2A4,2H).) NOGO = NOGO + 1 GO TO 110 C C LOOP ON ENTRIES C 30 CONTINUE I1 = STOR(L) I3 = 1 35 I2 = STOR(L+1) IF (L-9) 40,60,130 40 IF (I2-I1-I3) 80,50,60 C C THRU CAN BE EXPANDED C 50 L = L + 1 I3 = I3 + 1 GO TO 35 C C PUT OUT I1,I2 C 60 STOR(1) = I1 STOR(2) = STOR(L) IF (LOC1+3+NEN .GT. YCOR) GO TO 120 CALL BISHEL (*80,STOR,NEN,4,IY(LOC1)) 70 L = L + 1 IF (L-9) 30,30,110 C C DUPLICATE ENTRIES FOUND C 80 CALL PAGE2 (-2) WRITE (OUTTAP,90) UFM,I1,I2,NAM 90 FORMAT (A23,' 2294, DUPLICATE',I8,' THRU',I8,' RANGE FOR ELEMENT', 1 1X,2A4,' REJECTED PLIMIT. SCAN CONTINUED.') NOGO = NOGO + 1 GO TO 70 C C USER SPECIFIED BY USING THRU C 100 L = 8 STOR(9) = STOR(8) STOR(8) = STOR(5) GO TO 30 C C THIS PLIMIT FINISHED C 110 CONTINUE RETURN C C INSUFFICIENT CORE C 120 CONTINUE STOR(1) = NAM(1) STOR(2) = NAM(2) RETURN 1 C 130 CALL MESAGE (-7,0,NAM) GO TO 120 END ================================================ FILE: mis/order.f ================================================ SUBROUTINE ORDER (GPLST,ID,REST,GRIDS,IDTAB,LCOR,B1,B2,B3) C LOGICAL SPILL INTEGER GRIDS(1),ID(1),IDTAB(2),TP,GPLST(1),IGRD(2),SCR4, 1 ISYM(14),ITYPE(14),HOLD(3),ELID,SILS(34),REST(2), 2 EST,SIL,SCR2,ECPT,B1,B2,B3,THREE(3),OFFSET COMMON /BLANK / NGP,SKP(11),EST,SKIP1(3),SIL,SKIP2(5),ECPT,OES1, 1 SCR1,SCR2,NEWOES,SCR4 EQUIVALENCE (THREE(1),IFLAG),(THREE(2),NELMT),(THREE(3),IGDPT) EQUIVALENCE (KQ4,ISYM(13)),(KT3,ISYM(14)) DATA ISYM / 2HSH,2HT1,2HTB,2HTP,2HTM,2HQP,2HQM,2HT2,2HQ2,2HQ1, 1 2HM1,2HM2,2HQ4,2HT3/ ,KBAR/2HBR/ DATA ITYPE / 4,6,7,8,9,15,16,17,18,19,62,63,64,83/ DATA NTYPE / 14 / C C BUILD A TABLE FOR GPECT POINTERS TO ELID AND ITS ORDERED GRID PTS C SPILL = .FALSE. J = 1 I = 3 IDTAB(1) = 0 JSPILL = 1 LCORX = LCOR NEWIN = SCR4 NEWOUT = SCR2 2 CALL READ (*130,*12,EST,TP,1,0,M) OFFSET = 0 IF (TP .EQ. KBAR) OFFSET = 6 IF (TP.EQ.KT3 .OR. TP.EQ.KQ4) OFFSET = 1 3 CALL FREAD (EST,NGPPE,1,0) IDTAB(I-1) = NGPPE C C SKIP PAST THE NON-CONTOUR ELEMENTS C DO 4 K = 1,NTYPE IF (TP .EQ. ISYM(K)) GO TO 8 4 CONTINUE 6 CALL FREAD (EST,ELID,1,0) IF (ELID .EQ. 0) GO TO 2 J = 1 + NGPPE + OFFSET CALL FREAD (EST,0,-J,0) GO TO 6 C C CONSTRUCT IDTAB 1. 0, 2.NGPPE, 3.ELID, 4.ELIDPTR, 5.REPEAT. 3,4 C FOR ALL ELEMENTS OF THIS TYPE, 6.REPEAT 1-5 FOR ALL ELEMENTS IN C THE SET. CONSTRUCT GRIDS 1-NGPPE. GRIDS FOR 1ST ELEMENT, NEXT. C REPEAT 1ST FOR ALL ELEMENTS IN THE IDTAB C 8 CALL READ (*12,*12,EST,IDTAB(I),2,0,M) I = I + 2 IF (IDTAB(I-2) .NE. 0) GO TO 10 C C END OF ELEMENTS OF THIS TYPE C TP = IDTAB(I-1) GO TO 3 C 10 CALL FREAD (EST,GRIDS(J),NGPPE,0) IF (OFFSET .NE. 0) CALL FREAD (EST,0,-OFFSET,0) J = J + NGPPE IF (I .GE. LCORX) GO TO 14 GO TO 8 C C TABLE FIT INTO CORE C 12 CALL BCKREC (EST) GO TO 16 C C SPILL OCCURS - TABLE DID NOT FIT C 14 SPILL = .TRUE. C C END OF TABLE C 16 LIDTAB = I - 1 IF (LIDTAB .LE. 2) GO TO (130,140), JSPILL LGRIDS = J - 1 LASTNG = NGPPE GO TO (18,140), JSPILL 18 CALL OPEN (*130,ECPT,GPLST(B2),0) CALL GOPEN (SCR2,GPLST(B1),1) CALL FWDREC (*120,ECPT) IGDPT = 0 20 IGDPT = IGDPT + 1 IEOR = 0 IF (GPLST(IGDPT) .NE. 0) GO TO 25 CALL FWDREC (*120,ECPT) GO TO 20 25 NELMT = 0 IFLAG =-1 C C ECPT--1. PIVOT POINT, 2. DEG.FREEDOM, 3. -LENGTH, 4. ELID POINTER C 5. ELTYPE, 6.SILS (THERE ARE (LENGTH-2) OF THEM), 7. REPEAT ITEMS C (3-6) FOR ALL ELEMENTS ATTACHED TO PIVOT, 8. EOR, 9. REPEAT ITEMS C (1-8) FOR ALL GRIDS IN THE PROBLEM. C CALL READ (*120,*120,ECPT,IGRD,2,0,M) 30 CALL READ (*120,*75,ECPT,LENGTH,1,0,M) CALL FREAD (ECPT,SILS,-LENGTH,0) TP = SILS(2) DO 32 I = 1,NTYPE IF (TP .EQ. ITYPE(I)) GO TO 33 32 CONTINUE GO TO 30 C C MATCH ELIDPTR WITH ITS ELID AND GRID POINTS IF POSSIBLE C 33 J = 1 DO 50 I = 1,LIDTAB,2 IF (IDTAB(I)) 40,35,40 35 NGPPE = IDTAB(I+1) GO TO 50 40 IF (IDTAB(I+1) .EQ. SILS(1)) GO TO 55 J = J + NGPPE 50 CONTINUE C C IF NOT IN THE TABLE, IS THERE SPILL(IE IS TABLE NOT COMPLETE). C NO SPILL, SKIP HIM. YES SPILL, FLAG HIM. C IF (.NOT.SPILL) GO TO (30,145), JSPILL ELID =-SILS(1) NELMT = NELMT + 1 GO TO 70 C C FOUND ELEMENT IN THE TABLE C 55 ELID = IDTAB(I) DO 60 I = 1,NGPPE K = J + I - 1 IF (IGDPT .EQ. GRIDS(K)) GO TO 65 60 CONTINUE 65 IAFTER = I - (I/NGPPE)*NGPPE + J IBEFOR = J + I - 2 IF (I .EQ. 1) IBEFOR = IBEFOR + NGPPE NELMT = NELMT + 1 REST(2*NELMT-1) = GRIDS(IAFTER) REST(2*NELMT ) = GRIDS(IBEFOR) 70 ID(NELMT) = ELID IF (NELMT .LT. LCOR/2) GO TO (30,145), JSPILL GO TO 80 75 IF (NELMT .EQ. 0) GO TO (20,140), JSPILL IEOR = 1 C C ORDER ELEMENTS IF WE HAVE REACHED END OF EST FILE C 80 IF (SPILL) GO TO 112 IF (NELMT .LE.2) GO TO 110 INDEX = 3 IALL = 2*NELMT IONE = REST(1) ITWO = REST(2) 85 IF (IONE .EQ. ITWO) GO TO 105 DO 90 I = INDEX,IALL,2 IF (ITWO .EQ. REST(I)) GO TO 95 90 CONTINUE GO TO 110 95 IF (I .EQ. INDEX) GO TO 100 J = (INDEX+1)/2 K = (I+1)/2 HOLD(1) = ID(J) ID(J) = ID(K) ID(K) = HOLD(1) HOLD(2) = REST(INDEX ) HOLD(3) = REST(INDEX+1) REST(INDEX ) = REST(I ) REST(INDEX+1) = REST(I+1) REST(I ) = HOLD(2) REST(I+1) = HOLD(3) 100 INDEX = INDEX + 2 ITWO = REST(INDEX-1) IF (INDEX .LT. IALL) GO TO 85 IF (IONE .NE. ITWO) GO TO 110 C C INTERIOR ELEMENTS C 105 CALL WRITE (NEWOUT,THREE,3,0) CALL WRITE (NEWOUT,ID,NELMT,1) IF (IGDPT .LT. NGP) GO TO (20,140), JSPILL GO TO 120 C C BORDER ELEMENTS C 110 IFLAG = -2 112 CALL WRITE (NEWOUT,THREE,3,0) J = -1 DO 115 I = 1,NELMT J = J + 2 CALL WRITE (NEWOUT,ID(I),1,0) CALL WRITE (NEWOUT,REST(J),2,0) 115 CONTINUE IQ = 2*NELMT CALL WRITE (NEWOUT,0,0,1) GO TO (118,140), JSPILL 118 IF (IEOR) 25,25,119 119 IF (IGDPT .LT.NGP) GO TO 20 120 CALL CLOSE (ECPT,1) 125 CALL WRITE (NEWOUT,0,1,1) CALL CLOSE (NEWOUT,1) C C IF NO SPILL - RETURN C 130 IF (.NOT.SPILL) GO TO 170 C C COME HERE IF WE HAVE SPILL C I = NEWOUT NEWOUT = NEWIN NEWIN = I CALL GOPEN (NEWIN,GPLST(B1),0) CALL GOPEN (NEWOUT,GPLST(B2),1) JSPILL = 2 NGPPE = LASTNG IDTAB(1) = 0 IDTAB(2) = LASTNG I = 3 J = 1 SPILL = .FALSE. GO TO 8 C C TABLE CONSTRUCTED SO RETURN HERE C 140 CALL READ (*160,*160,NEWIN,THREE,3,0,M) NELMT = 0 145 CALL READ (*160,*75,NEWIN,SILS(1),3,0,M) IF (SILS(1)) 150,150,155 150 SILS(1) = -SILS(1) GO TO 33 155 ELID = SILS(1) NELMT = NELMT + 1 REST(2*NELMT-1) = SILS(2) REST(2*NELMT ) = SILS(3) GO TO 70 C C END OF FILE C 160 CALL CLOSE (NEWIN,1) GO TO 125 C C OUTPUT FILE MUST BE SCRATCH 2 C 170 IF (NEWOUT .EQ. SCR2) RETURN CALL GOPEN (NEWOUT,GPLST(B1),0) CALL GOPEN (SCR2,GPLST(B2),1) CALL CPYFIL (NEWOUT,SCR2,REST,LCOR,M) CALL CLOSE (SCR2,1) CALL CLOSE (NEWOUT,1) RETURN END ================================================ FILE: mis/ortck.f ================================================ SUBROUTINE ORTCK (X,MASS,IBUF,NUM,NDIM,GM,ACCUM,EPS) C C ORTCK WILL GENERATE THE GENERALIZED MASS MATRIX FOR CLOSE ROOTS C AND MAKE THE EPSILON TEST TO DETERMINE IF THE VECTORS SHOULD BE C ORTHOGONALIZED C DOUBLE PRECISION ACCUM(1) DIMENSION IBUF(1) ,X(NDIM,1),GM(NUM,1),IM(7) C COMMON /DESCRP/ LENGTH ,MAJOR(1) COMMON /ZNTPKX/ Z(4) ,II ,IEOL COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP C IDEN = 0 IM(1) = MASS CALL RDTRL (IM) IF (IM(4) .EQ. 8) IDEN = 1 IF (IDEN .EQ. 1) GO TO 10 CALL GOPEN (MASS,IBUF,0) 10 K = 1 20 DO 30 I = 1,NUM DO 30 J = 1,NUM 30 GM(I,J) = 0. DO 110 I = 1,NDIM DO 40 J = 1,NUM 40 ACCUM(J) = 0.D0 IF (IDEN .EQ. 1) GO TO 80 CALL INTPK (*110,MASS,0,RSP,0) 50 IF (IEOL .EQ. 1)GO TO 90 CALL ZNTPKI 60 DO 70 J = 1,NUM 70 ACCUM(J) = ACCUM(J) + Z(1)*X(II,J) GO TO 50 C C IDENTITY C 80 IEOL = 1 II = I Z(1) = 1.0 GO TO 60 90 DO 100 J = 1,NUM DO 100 M = 1,NUM 100 GM(J,M) = GM(J,M) + ACCUM(J)*X(I,M) 110 CONTINUE IF (IDEN .EQ. 1) GO TO 120 CALL REWIND (MASS) CALL SKPREC (MASS,1) 120 GM(1,1) = SQRT(GM(1,1)) DO 130 I = 2,NUM GM(I,I) = SQRT(GM(I,I)) II = I - 1 DO 130 J = 1,II 130 GM(I,J) = GM(I,J)/(GM(I,I)*GM(J,J)) DO 140 I = 1,NUM DO 140 J = 1,NDIM 140 X(J,I) = X(J,I)/GM(I,I) J = 0 150 DO 170 KK = 1,K IF (ABS(GM(K+1,KK)) .LT. EPS) GO TO 170 J = 1 DO 160 I = 1,NDIM 160 X(I,K+1) = X(I,K+1) - GM(K+1,KK)*X(I,KK) 170 CONTINUE K = K + 1 IF (K .GE. NUM) GO TO 180 IF (J .EQ. 0) GO TO 150 GO TO 20 180 IF (IDEN .EQ. 1) GO TO 190 CALL CLOSE (MASS,REW) 190 RETURN END ================================================ FILE: mis/ortho.f ================================================ SUBROUTINE ORTHO (U,V,X1,X2,X3,X4,X5,NZ,IBUF1,IBUF2,IBUF3,IBUF4) C C ORTHO WILL ORTHOGONALIZE THE CURRENT ITERANT WITH RESPECT TO C THE PREVIOUSLY EXTRACTED EIGENVECTORS C INTEGER FILEM ,FILEK ,FILEB ,FILELM , 1 FILEVC ,SR0FIL ,SR5FIL ,REAL , 2 SUB(2) ,IBUF1(1) ,IBUF2(1) ,IBUF3(1) , 3 SQR ,CDP ,IBUF4(1) DOUBLE PRECISION U(1) ,V(1) ,X1(1) ,X2(1) , 1 X3(1) ,X4(1) ,X5(1) ,PJ(2) , 2 CONST1(2) ,CONST2(2),ALPHA(2),BETA(2) COMMON /CINVPX/ FILEK(7) ,FILEM(7) ,FILEB(7),FILELM(7) , 1 FILEVC(7),DMPFIL ,SCRFIL(10) COMMON /CINVXX/ DUM(17) ,REAL ,XXXX ,NORTHO COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR EQUIVALENCE (SR0FIL,SCRFIL(10)) ,(SR5FIL,SCRFIL(5)) , 1 (NCOL,FILEK(2)) DATA SUB / 4HORTH ,4HO / C NCOL2 = NCOL + NCOL NCOL4 = NCOL2 + NCOL2 IF (FILEB(1) .EQ. 0) GO TO 5 CALL CMTIMU (V,X1,0,IBUF4) CALL CMTIMU (U,X2,FILEB,IBUF4) GO TO 7 5 DO 6 I = 1,NCOL2 6 X2(I) = 0.D0 7 CONTINUE CALL CMTIMU (U,X3,0,IBUF4) CALL SSWTCH (12,L7) CONST1(1) = 1.0D0 CONST1(2) = 0. CONST2(1) =-1.0D0 CONST2(2) = 0. CALL CSUB (X1,X2,X2,CONST1,CONST2) C C REWIND EIGENVALUE AND EIGENVECTOR FILES C IFILE = FILELM(1) CALL OPEN (*1000,IFILE,IBUF1,RDREW) IFILE = FILEVC(1) CALL OPEN (*1000,IFILE,IBUF2,RDREW) IFILE = SR0FIL CALL OPEN (*1000,IFILE,IBUF3,RDREW) DO 100 K = 1,NORTHO C C READ AN EIGENVALUE C IFILE = FILELM(1) CALL READ (*1010,*1020,IFILE,PJ(1),4,1,FLAG) CONST1(1) = -1.D0 CONST1(2) = 0. CALL CSUB (X3,X2,X5,PJ,CONST1) C C READ THE RIGHT EIGENVECTOR C IFILE = FILEVC(1) CALL READ (*1010,*1020,IFILE,X1(1),NCOL4,1,FLAG) C C READ THE LEFT EIGENVECTOR C IFILE = SR0FIL CALL READ (*1010,*1020,IFILE,X4(1),NCOL4,1,FLAG) C IF (FILEB(1) .NE. 0) GO TO 40 C C COMPUTE ALPHA USING REAL FORMULA C CALL CX TRN Y (X4,X3,CONST1) GO TO 55 40 CALL CX TRN Y (X4(1),X5(1),CONST1(1)) 55 ALPHA(1) = CONST1(1) ALPHA(2) = CONST1(2) BETA(1) = ALPHA(1)*PJ(1) - ALPHA(2)*PJ(2) BETA(2) = ALPHA(1)*PJ(2) + ALPHA(2)*PJ(1) IF (L7 .EQ. 0) GO TO 1901 WRITE (6,500) CONST1,CONST2,ALPHA 500 FORMAT (4H NUM ,2D12.5,6H DENOM ,2D12.5,6H ALPHA ,2D12.5 ) 1901 CONTINUE DO 60 I = 1,NCOL2,2 U(I ) = U(I ) - ALPHA(1)*X1(I) + ALPHA(2)*X1(I+1) U(I+1) = U(I+1) - ALPHA(2)*X1(I) - ALPHA(1)*X1(I+1) IF (FILEB(1) .EQ. 0) GO TO 60 V(I ) = V(I ) - BETA(1)*X1(I ) + BETA(2)*X1(I+1) V(I+1) = V(I+1) - BETA(1)*X1(I+1) - BETA(2)*X1(I ) 60 CONTINUE 100 CONTINUE CALL CLOSE (FILELM,NOREW) CALL CLOSE (FILEVC,NOREW) CALL CLOSE (SR0FIL,NOREW) RETURN C 1000 NO = -1 GO TO 1500 1010 NO = -2 GO TO 1500 1020 NO = -3 1500 CALL MESAGE (NO,IFILE,SUB) RETURN END ================================================ FILE: mis/oscxrf.f ================================================ SUBROUTINE OSCXRF (IOP,AVAIL) C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF INTEGER DBENT(3),BLOCK(6),LAB(6),IOUT(32),IHD1(32), 1 IHD2(32),IHD3(32),IHD4(32),IHD5(32) COMMON /OUTPUT/ ITITL(96),IHEAD(96) COMMON /MODDMP/ IFLG(5) COMMON /SYSTEM/ KSYS(65) COMMON /LNKLST/ I,NVAIL,ISEQN,KIND,ITYPE,MASK3,MASK4,MASK5 COMMON /ZZZZZZ/ Z(1) COMMON /XVPS / VPS(3) EQUIVALENCE (KSYS(2),OP), (KSYS(9),NLPP), (KSYS(12),NLINE) DATA IHD1 / 7*4H ,4HCOSM,4HIC /,4H NAS,4HTRAN,4H DMA, 1 4HP CO ,4HMPIL,4HER -,4H DMA,4HP CR,4HOSS , 2 4HREFE ,4HRENC,4HE LI,4HSTIN,4HG ,9*4H / DATA IHD2 / 32*4H / DATA IHD3 / 4HMODU,4HLE N,4HAME ,4HDMAP,4H STA,4HTEME, 1 4HNT N,4HUMBE,4HRS ,23*4H / DATA IHD4 / 4HDATA,4H BLO,4HCK ,4HDMAP,4H STA,4HTEME, 1 4HNT N,4HUMBE,4HRS ,23*4H / DATA IHD5 / 4HPARA,4HMETE,4HR ,4HTYPE,4H ,4HDMAP, 1 4H STA,4HTEME,4HNT N,4HUMBE,4HRS ,21*4H / DATA LAB / 4HI ,4HR ,4HBCD ,4HRDP ,4HCSP ,4HCDP / DATA POOL / 4HPOOL / DATA NBLANK/ 4H / ,IOUT /32*4H / DATA NASTK / 4H* / ,NOTAPP/4HN.A. / C C RESTRICT OPEN CORE DUE TO LIMITED FIELD SIZE FOR POINTERS C NVAIL = AVAIL IF (NVAIL .GT. 16350) NVAIL = 16350 C C PROCESS VARAIABLE PARAMETER LIST C MASK2 = LSHIFT(1,16) - 1 MASK1 = ANDF(LSHIFT(1,20)-1,COMPLF(MASK2)) MASK3 = LSHIFT(1,14) - 1 MASK4 = LSHIFT(MASK3,14) MASK5 = COMPLF(ORF(MASK3,MASK4)) NOSGN = COMPLF(LSHIFT(1,KSYS(40)-1)) C DO 14 I = 1,1600 14 Z(I) = 0 K = 3 I = 1 KIND =-5 NPARAM= 1 20 ITYPE = ANDF(VPS(K+2),MASK1) ITYPE = RSHIFT(ITYPE,16) LEN = ANDF(VPS(K+2),MASK2) CALL LINKUP (*999,VPS(K)) K = K + LEN + 3 IF (K .GT. VPS(2)) GO TO 30 NPARAM = NPARAM + 1 GO TO 20 C C PROCESS NAMES OF MODULES AND DATA BLOCKS C 30 PSEQ = 0 40 CALL READ (*200,*998,POOL,BLOCK,6,0,Q) IAUTO = 0 MI = RSHIFT(BLOCK(3),16) ITYPE = ANDF(MASK2,BLOCK(3)) ISEQN = ANDF(NOSGN,BLOCK(6)) KIND = 1 IF (PSEQ.EQ.ISEQN .AND. (MI.EQ.3 .OR. MI.EQ.8)) IAUTO = 1 IF (IAUTO .EQ. 1) KIND = 2 PSEQ = ISEQN CALL LINKUP (*999,BLOCK(4)) KIND = 3 GO TO (50,50,70,90), ITYPE C C PROCESS FUNCTIONAL MODULE IO SECTIONS C 50 IRLH = 0 51 IRLH = IRLH + 1 CALL READ (*998,*998,POOL,NDB,1,0,Q) DO 52 J = 1,NDB CALL READ (*998,*998,POOL,DBENT,3,0,Q) IF (DBENT(1) .EQ. 0) GO TO 52 CALL LINKUP (*999,DBENT) 52 CONTINUE KIND = 4 IF (ITYPE.EQ.1 .AND. IRLH.EQ.1) GO TO 51 KIND = 5 CALL READ (*998,*998,POOL,NDB, -1,0,Q) CALL READ (*998,*998,POOL,NPARM,1,0,Q) IF (NPARM .EQ. 0) GO TO 80 DO 65 J = 1,NPARM CALL READ (*998,*998,POOL,IL,1,0,Q) IF (IL) 60,55,55 55 CALL READ (*998,*998,POOL,DBENT,-IL,0,Q) GO TO 65 60 IL = ANDF(NOSGN,IL) CALL LINKUP (*999,VPS(IL-3)) 65 CONTINUE GO TO 80 70 IF (MI .NE. 7) GO TO 80 KIND = 5 CALL READ (*998,*998,POOL,IL,1,0,Q) IL = ANDF(MASK2,IL) CALL LINKUP (*999,VPS(IL-3)) 80 CALL FWDREC (*998,POOL) GO TO 40 90 MI = MI - 7 IF (MI .LT. 0) MI = 4 GO TO (100,120,170,120) ,MI 100 CALL READ (*998,*998,POOL,NDB,1,0,Q) KIND = 5 IF (IAUTO .EQ. 1) KIND = 6 DO 110 J = 1,NDB CALL READ (*998,*998,POOL,DBENT,2,0,Q) IL = DBENT(1) CALL LINKUP (*999,VPS(IL-3)) 110 CONTINUE GO TO 80 120 CALL READ (*998,*40,POOL,NDB,1,0,Q) KIND = 3 130 DO 140 J = 1,NDB CALL READ (*998,*998,POOL,DBENT,2,0,Q) IF (DBENT(1) .EQ. 0) GO TO 140 CALL LINKUP (*999,DBENT) 140 CONTINUE IF (MI .EQ. 4) GO TO 80 CALL READ (*998,*998,POOL,IL,1,0,Q) IF (IL) 160,160,150 150 KIND = 5 CALL LINKUP (*999,VPS(IL-3)) 160 IF (MI .EQ. 2) GO TO 120 170 CALL READ (*998,*40,POOL,NDB,1,0,Q) KIND = 3 CALL READ (*998,*998,POOL,DBENT,3,0,Q) IF (DBENT(1) .EQ. 0) GO TO 180 CALL LINKUP (*999,DBENT) 180 NDB = NDB - 1 GO TO 130 C C SORT PARAMETER AND MODULE NAMES, 8-BCD WORD SORT C 200 NWDS = 4*NPARAM CALL SORTA8 (0,0,4,1,Z(1),NWDS) IST = NWDS + 1 J = I - 1 - NWDS CALL SORTA8 (0,0,4,1,Z(IST),J) NWDS = I - 1 C C TRAVERSE LINKED LISTS AND GENERATE OUTPUT C K = 1 KDH = 0 DO 260 J = 1,32 IHEAD(J ) = IHD1(J) IHEAD(J+32) = IHD2(J) IHEAD(J+64) = IHD5(J) 260 CONTINUE CALL PAGE WRITE (OP,900) NLINE = NLINE + 1 C C PROCESS PARAMETER NAMES C 270 IOUT(2) = Z(K ) IOUT(3) = Z(K+1) NTYPE = RSHIFT(Z(K+2),28) IOUT(4) = NBLANK IOUT(5) = LAB(NTYPE) IF (NTYPE.EQ.0 .OR. NTYPE.GT.6) IOUT(5) = NOTAPP IOUT(6) = NBLANK C C TRACE THROUGH LINKED LIST C II = 7 280 LINK = ANDF(MASK3,Z(K+2)) 310 ISN = ANDF(MASK3,Z(LINK)) IF (KDH .EQ. 0) ISN = -ISN CALL OUTPAK (II,IOUT,ISN) ITEMP = RSHIFT(Z(LINK),28) IF (ITEMP.EQ.2 .OR. ITEMP.EQ.4 .OR. ITEMP.EQ.6) IOUT(II+1) = NASTK LINK = RSHIFT(ANDF(Z(LINK),MASK4),14) IF (LINK .EQ. 0) GO TO 320 II = II + 2 GO TO 310 C C PRINT OUTPUT C 320 NLINE = NLINE + 1 IF (NLINE .LE. NLPP) GO TO 321 CALL PAGE NLINE = NLINE + 1 WRITE (OP,900) NLINE = NLINE + 1 321 WRITE (OP,902) (IOUT(LL),LL=2,32) DO 325 LL = 2,32 IOUT(LL) = NBLANK 325 CONTINUE 328 K = K + 4 IF (K .GE. IST) GO TO 330 IF (KDH .EQ. 1) GO TO 337 IF (KDH .EQ. 2) GO TO 425 GO TO 270 C C PROCESS MODULE NAMES C 330 IF (KDH .GT. 0) GO TO 340 KDH = 1 DO 335 J = 1,32 IHEAD(J+64) = IHD3(J) 335 CONTINUE WRITE (OP,910) CALL PAGE NLINE = NLINE + 1 WRITE (OP,900) K = IST IST = NWDS 337 IF (RSHIFT(Z(K+3),28) .GE. 3) GO TO 328 339 IOUT(2) = Z(K ) IOUT(3) = Z(K+1) IOUT(4) = NBLANK II = 5 GO TO 280 C C PROCESS DATA BLOCKS C 340 IF (KDH .GT. 1) GO TO 430 KDH = 2 DO 420 J = 1,32 IHEAD(J+64) = IHD4(J) 420 CONTINUE WRITE (OP,905) CALL PAGE NLINE = NLINE + 1 WRITE (OP,900) K = 4*NPARAM + 1 IST = NWDS 425 IF (RSHIFT(Z(K+3),28) .GE. 3) GO TO 339 GO TO 328 430 WRITE (OP,906) CALL REWIND (POOL) CALL SKPFIL (POOL,IOP) CALL FWDREC (*998,POOL) GO TO 1000 998 CALL XGPIDG (59,0,0,0) GO TO 1000 999 CALL XGPIDG (60,0,0,0) 1000 RETURN C 900 FORMAT (1H ) 902 FORMAT (5X,31A4) 905 FORMAT (//6X,'* DENOTES AUTOMATICALLY GENERATED INSTRUCTIONS', 1 /8X,'STATEMENT NUMBER REFERS TO DMAP SEQUENCE NUMBER OF ', 2 'PREVIOUS INSTRUCTION') 906 FORMAT (//6X,'* DENOTES STATEMENTS IN WHICH THE DATA BLOCK ', 1 'APPEARSRS AS OUTPUT.') 910 FORMAT (//6X,'* DENOTES APPEARANCE OF PARAMETER IN AUTOMATICALLY', 1 ' GENERATED SAVE INSTRUCTION') END ================================================ FILE: mis/outmsc.f ================================================ SUBROUTINE OUTMSC (*,*) C C COPY DATA BLOCK(S) TO FORTRAN UNIT, IN MSC/OUTPUT2 COMPATIBLE C RECORD FORMATS. C C DMAP CALL - C OUTPUT2 IN1,IN2,IN3,IN4,IN5/ /V,N,P1/V,N,P2/V,N,P3/V,N,P4/V,N,P5/ C V,N,P6 $ C C THIS ROUTINE IS CALLED ONLY BY OUTPT2 C SEE OUTPT2 FOR PARAMETERS P1,P2,...,P6. (P6 = *MSC*) C C IF P1 .NE. -9, ALTERNATE RETURN 1, OTHERWISE RETURN 2. C C WRITTEN BY G.CHAN/UNISYS 3/93 C LOGICAL DP INTEGER P1,P2,P3,P4,P5,P6,ENDREC,ENDFIL,OUT,BUF1,D, 1 INP(13),MCB(7),NAME(2),NONE(2),SUB(2),TMP(2), 2 DX(3),HDR(7),HDRX(7),TAPCOD(2),BLOCK(20) REAL XNS(1) DOUBLE PRECISION DXNS(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,MO2*19 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / P1,P2,P3(2),P4,P5,P6(2) COMMON /MACHIN/ MACH COMMON /SYSTEM/ IBUF,NOUT,IDUM4(6),NLPP,IDUM5(5),D(3) COMMON /TYPE / IDUM6(2),NWDS(4) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (XNS(1),Z(1)) EQUIVALENCE (XNS(1),DXNS(1)) DATA HDR / 4HNAST,4HRAN ,4HFORT,4H TAP,4HE ID,4H COD,4HE - / DATA INP / 4HUT1 ,4HUT2 ,4HUT3 ,4HINPT,4HINP1,4HINP2,4HINP3, 1 4HINP4,4HINP5,4HINP6,4HINP7,4HINP8,4HINP9 / DATA MO2 / '. MODULE OUTPUT2 - ' / DATA NONE , SUB /4H (NO,4HNE) ,4HOUTP,4HUT2* / C WRITE (NOUT,10) UIM 10 FORMAT (A29,'. USER REQUESTED RECORDS IN MSC/OUTPUT2 COMPATIBLE', 1 ' RECORDS') ENDFIL = 0 ENDREC = 0 LCOR = KORSZ(Z(1)) BUF1 = LCOR - IBUF + 1 IF (BUF1 .LE. 0) CALL MESAGE (-8,LCOR,SUB) LEND = BUF1 - 1 OUT = P2 TAPCOD(1) = P3(1) TAPCOD(2) = P3(2) IF (P1 .EQ. -9) GO TO 210 IF (P1 .EQ. -3) GO TO 300 IF (P1 .LE. -2) GO TO 620 IF (P1 .LE. 0) GO TO 40 C C SKIP FORWARD n DATA BLOCKS, P1 = n C I = 1 20 READ (OUT) KEY KEYX = 2 IF (KEY .NE. KEYX) GO TO 720 READ (OUT) TMP READ (OUT) KEY IF (KEY .GE. 0) GO TO 740 ASSIGN 30 TO IRET NSKIP = 1 GO TO 500 30 I = I + 1 IF (I .LE. P1) GO TO 20 C 40 IF (P1 .NE. -1) GO TO 80 REWIND OUT KEY = 3 WRITE (OUT) KEY WRITE (OUT) D KEY = 7 WRITE (OUT) KEY WRITE (OUT) HDR KEY = 2 WRITE (OUT) KEY WRITE (OUT) P3 ENDREC = ENDREC - 1 WRITE (OUT) ENDREC WRITE (OUT) ENDFIL ENDREC = 0 WRITE (NOUT,50) UIM,P3 50 FORMAT (A29,' FROM OUPUT2 MODULE. THE LABEL IS ',2A4) C 80 DO 200 II = 1,5 INPUT = 100 + II MCB(1) = INPUT CALL RDTRL (MCB(1)) IF (MCB(1) .LE. 0) GO TO 200 CALL FNAME (INPUT,NAME) IF (NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 200 BLOCK(1) = INPUT NWD = NWDS(MCB(5)) DP = MCB(5).EQ.2 .OR. MCB(5).EQ.4 C C OPEN INPUT DATA BLOCK TO READ WITH REWIND C CALL OPEN (*600,INPUT,Z(BUF1),0) KEY = 2 WRITE (OUT) KEY WRITE (OUT) NAME ENDREC = ENDREC - 1 WRITE (OUT) ENDREC KEY = 7 WRITE (OUT) KEY WRITE (OUT) MCB ENDREC = ENDREC - 1 WRITE (OUT) ENDREC C C COPY CONTENTS OF INPUT DATA BLOCK ONTO FILE C 90 CALL RECTYP (INPUT,K) KEY = 1 WRITE (OUT) KEY WRITE (OUT) K IF (K .EQ. 0) GO TO 130 C C STRING RECORD C BLOCK(2) = STRING TYPE, 1,2,3 OR 4 C BLOCK(4) = FIRST (OR LAST) ROW POSITION ON A MATRIX COLUMN C BLOCK(5) = POINTER TO STRING, W.R.T. XNS ARRAY C BLOCK(6) = NO. OF TERMS IN STRING C BLOCK(8) = -1 100 CALL GETSTR (*170,BLOCK) KEY = BLOCK(6)*NWD WRITE (OUT) KEY C C NEXT 3 LINES, ORIGINATED FROM MSC/OUTPUT2, DO NOT WORK FOR D.P. C DATA ON VAX, AND POSSIBLY SILICON-GRAPHICS. THEY ARE REPLACED BY C NEXT 8 LINES BELOW. BESIDE, TO WORK ON PROPER D.P. DATA BOUNDARY, C THE K1 IN THE FOLLOWING LINE SHOULD BE K1 = (BLOCK(5)-1)*NWD+1 C C K1 = BLOCK(5) C K2 = K1 + KEY - 1 C WRITE (OUT) BLOCK(4),(XNS(K),K=K1,K2) C K1 = BLOCK(5)*NWD K2 = K1 + KEY -1 IF (DP) GO TO 110 WRITE (OUT) BLOCK(4),(XNS(K),K=K1,K2) GO TO 120 110 K1 = K1/2 K2 = K2/2 WRITE (OUT) BLOCK(4),(DXNS(K),K=K1,K2) C 120 CALL ENDGET (BLOCK) GO TO 100 C C NON-STRING RECORD C MAKE SURE EACH RECORD IS NOT LONGER THAN P4 WORDS C 130 CALL READ (*180,*150,INPUT,Z(1),LEND,0,K1) DO 140 I = 1,LEND,P4 KEY = LEND - I + 1 IF (KEY .GE. P4) KEY = P4 K2 = I + KEY - 1 WRITE (OUT) KEY WRITE (OUT) (Z(K),K=I,K2) 140 CONTINUE GO TO 130 150 DO 160 I = 1,K1,P4 KEY = K1 - I + 1 IF (KEY .GE. P4) KEY = P4 K2 = I + KEY - 1 WRITE (OUT) KEY WRITE (OUT) (Z(K),K=I,K2) 160 CONTINUE C 170 ENDREC = ENDREC - 1 WRITE (OUT) ENDREC GO TO 90 C C CLOSE INPUT DATA BLOCK WITH REWIND C 180 CALL CLOSE (INPUT,1) WRITE (OUT) ENDFIL ENDREC = 0 WRITE (NOUT,190) UIM,NAME,OUT,INP(P2-10),MCB 190 FORMAT (A29,' 4144. DATA BLOCK ',2A4,' WRITTEN ON FORTRAN UNIT ', 1 I3,2H (,A4,1H), /5X,'TRAILER =',6I7,I11) C 200 CONTINUE C C CLOSE FORTRAN TAPE WITHOUT END-OF-FILE AND WITHOUT REWIND C RETURN 1 C C FINAL CALL TO OUTPUT2, P1 = -9 C 210 WRITE (OUT) ENDFIL RETURN 2 C C OBTAIN LIST OF DATA BLOCKS ON FORTRAN TAPE, P1 = -3 C 300 REWIND OUT READ (OUT) KEY KEYX = 3 IF (KEY .NE. KEYX) GO TO 720 READ (OUT) DX READ (OUT) KEY KEYX = 7 IF (KEY .NE. KEYX) GO TO 720 READ (OUT) HDRX DO 310 K = 1,7 IF (HDRX(K) .NE. HDR(K)) GO TO 640 310 CONTINUE READ (OUT) KEY KEYX = 2 IF (KEY .NE. KEYX) GO TO 720 READ (OUT) TMP IF (TMP(1).NE.P3(1) .OR. TMP(2).NE.P3(2)) GO TO 660 320 ASSIGN 330 TO IRET NSKIP = 1 GO TO 500 330 K = 0 340 CALL PAGE1 WRITE (NOUT,350) INP(P2-10),OUT 350 FORMAT (//42X,'CONTENTS OF ',A4,', FORTRAN UNIT',I3, /46X, 1 'FILE',18X,'NAME',/) 360 READ (OUT) KEY IF (KEY) 680,400,370 370 READ (OUT) TMP ASSIGN 380 TO IRET NSKIP = 1 GO TO 500 380 K = K + 1 WRITE (NOUT,390) K,TMP 390 FORMAT (45X,I5,18X,2A4) IF (MOD(K,NLPP)) 360,340,360 400 ASSIGN 80 TO IRET NSKIP = K + 1 IF (NSKIP .GT. 0) REWIND OUT GO TO 500 C C SKIP NSKIP FILES ON FORTRAN TAPE C 500 IF (NSKIP .EQ. 0) GO TO 540 DO 530 J = 1,NSKIP 510 READ (OUT) KEYX IF (KEYX) 510,530,520 520 IF (KEYX .GT. LCOR) GO TO 700 READ (OUT) (Z(L),L=1,KEYX) GO TO 510 530 CONTINUE 540 GO TO IRET, (30,80,330,380) C C ERRORS C 600 CALL FNAME (INPUT,TMP) WRITE (NOUT,610) SFM,MO2,TMP 610 FORMAT (A25,' 4116',A19,'UNABLE TO OPEN INPUT DATA BLOCK ',2A4) GO TO 800 620 WRITE (NOUT,630) UFM,MO2,P1 630 FORMAT (A23,' 4120',A19,'ILLEGAL FIRST PARAMETER ',I3) GO TO 800 640 WRITE (NOUT,650) UFM,MO2,HDRX 650 FORMAT (A23,' 4130',A19,'ILLEGAL TAPE HEADER CODE ',7A4) GO TO 800 660 WRITE (NOUT,670) UWM,TMP,P3 670 FORMAT (A25,' 4141. FORTRAN TAPE ID CODE - ',2A4, 1 ' DOES NOT MATCH OUTPUT2 THIRD PARAMETER NAME - ',2A4) GO TO 320 680 WRITE (NOUT,690) SFM,MO2 690 FORMAT (A25,' 4415',A19,'SHORT RECORD ENCOUNTERED') GO TO 800 700 WRITE (NOUT,710) UFM,LCOR,KEY 710 FORMAT (A23,' 2187. INSUFFICIENT WORKING CORE TO HOLD FORTRAN ', 1 'LOGICAL RECORD.', /5X,'LENGHT OF WORKING CORE =',I11, 2 '. LENGTH OF FORTRAN LOGICAL RECORD =',I11) GO TO 800 720 WRITE (NOUT,730) SFM,KEY,KEYX 730 FORMAT (A25,' 2190. ILLEGAL VLUE FOR KEY =',I10,1H.,5X, 1 'EXPECTED VALUE =',I10) GO TO 800 740 WRITE (NOUT,750) SFM,KEY 750 FORMAT (A25,' 2190. ILLEGAL VALUE FOR KEY =',I10) 800 CALL MESAGE (-61,0,SUB) RETURN 1 C END ================================================ FILE: mis/outpak.f ================================================ SUBROUTINE OUTPAK (II,IOUT,ISN) C EXTERNAL ORF INTEGER IOUT(1),NUMBER(10),IDIG(4),ORF,OP COMMON /SYSTEM/ KSYS(65) EQUIVALENCE (KSYS(2),OP),(KSYS(9),NLPP),(KSYS(12),NLINE), 1 (KSYS(41),NCPW) DATA NUMBER/ 1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9,1H0/ DATA NBLANK/ 4H / C KCODE = 0 IF (ISN .LT. 0) KCODE = 1 ISN = IABS(ISN) ICODE = 0 IF (II .GT. 32) ICODE = 1 IF (ICODE .EQ. 1) GO TO 50 C C TRANSLATE ISN TO DIGITS C 10 IDIG(1) = ISN/1000 IDIG(2) = (ISN-IDIG(1)*1000)/100 IDIG(3) = (ISN-IDIG(1)*1000 - IDIG(2)*100)/10 IDIG(4) = ISN - IDIG(1)*1000 - IDIG(2)*100 - IDIG(3)*10 DO 20 I = 1,4 IF (IDIG(I) .EQ. 0) IDIG(I) = 10 20 CONTINUE C C FORM WORD AND STORE IN IOUT ARRAY C K = 0 DO 30 I = 1,4 J = IDIG(I) K = ORF(KLSHFT(KRSHFT(NUMBER(J),NCPW-1),NCPW-I),K) 30 CONTINUE IOUT(II) = K GO TO 80 50 NLINE = NLINE + 1 IF (NLINE .LE. NLPP) GO TO 60 CALL PAGE NLINE = NLINE + 1 WRITE (OP,100) NLINE = NLINE + 1 60 WRITE (OP,90) (IOUT(I),I=2,32) II = 5 IF (KCODE .EQ. 1) II = 7 DO 70 LL = 2,32 IOUT(LL) = NBLANK 70 CONTINUE GO TO 10 80 RETURN C 90 FORMAT (5X,31A4) 100 FORMAT (/,1H ) END ================================================ FILE: mis/outpt.f ================================================ SUBROUTINE OUTPT C C***** C C DUMMY DECK FOR MODULE OUTPUT SEE USERS MANUAL SECTION 5.3 C FOR MODULE PROPERTIES CHECK XMPLBD C OR USE DIAG 29 C C***** C INTEGER PARM C COMMON /BLANK/ PARM C C DATA INFILE /101/ C RETURN END ================================================ FILE: mis/outpt1.f ================================================ SUBROUTINE OUTPT1 C C COPY DATA BLOCK(S) ONTO NASTRAN USER TAPE WHICH MUST BE SET-UP. C C CALL TO THIS MODULE IS C C OUTPUT1 IN1,IN2,IN3,IN4,IN5//V,N,P1/V,N,P2/V,N,P3 $ C C P1 = 0, NO ACTION TAKEN BEFORE WRITE (DEFAULT) C =+N, SKIP FORWARD N DATA BLOCKS BEFORE WRITE C =-1, USER TAPE IS REWOUND BEFORE WRITE C =-2, A NEW REEL IS MOUNTED BEFORE WRITE C =-3, THE NAMES OF ALL DATA BLOCKS ON USER TAPE ARE C PRINTED AND WRITE OCCURS AT THE END OF TAPE C =-4, AN INPUT TAPE IS TO BE DISMOUNTED. C A NEW OUTPUT REEL WILL THEN BE MOUNTED. C =-9, WRITE EOF, REWIND AND UNLOAD. C C P2 = 0, FILE NAME IS INPT (DEFAULT) C = 1, FILE NAME IS INP1 C = 2, FILE NAME IS INP2 C = 3, FILE NAME IS INP3 C = 4, FILE NAME IS INP4 C = 5, FILE NAME IS INP5 C = 6, FILE NAME IS INP6 C = 7, FILE NAME IS INP7 C = 8, FILE NAME IS INP8 C = 9, FILE NAME IS INP9 C C P3 = TAPE ID CODE FOR USER TAPE, AN ALPHANUMERIC C VARIABLE WHOSE VALUE WILL BE WRITTEN ON A USER C TAPE. THE WRITTING OF THIS ITEM IS DEPENDENT ON C THE VALUE OF P1 AS FOLLOWS.. C *P1* *TAPE ID WRITTEN* C +N NO C 0 NO C -1 YES C -2 YES (ON NEW REEL) C -3 NO (WARNING CHECK) C -4 YES (ON NEW REEL) C -9 NO C DEFAULT VALUE FOR P3 IS XXXXXXXX C C IMPLICIT INTEGER (A-Z) LOGICAL TAPEUP,TAPBIT INTEGER TRL(7),NAME(2),SUBNAM(2),IN(5),NAMEX(2),OTT(10), 1 IDHDR(7),IDHDRX(7),P3X(2),D(3),DX(3),TAPCOD(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /MACHIN/ MACH COMMON /BLANK / P1,P2,P3(2) 1 /SYSTEM/ KSYSTM(65) 2 /ZZZZZZ/ X(1) EQUIVALENCE (KSYSTM( 1),NB ),(KSYSTM( 2),NOUT), 1 (KSYSTM( 9),NLPP),(KSYSTM(12),LINE), 2 (KSYSTM(15),D(1)) DATA SUBNAM/ 4HOUTP,4HT1 / DATA IN / 101,102,103,104,105/ DATA ZERO , MONE,MTWO,MTRE,MFOR,MNIN/ 0,-1,-2,-3,-4,-9/ DATA OTT / 4HINPT,4HINP1,4HINP2,4HINP3,4HINP4, 1 4HINP5,4HINP6,4HINP7,4HINP8,4HINP9/ DATA IDHDR / 4HNAST,4HRAN ,4HUSER,4H TAP,4HE ID,4H COD,4HE - / C C LCOR = KORSZ(X) - 2*NB IF (LCOR .LE. 0) GO TO 9908 INBUF = LCOR + 1 OUBUF = INBUF + NB TAPCOD(1) = P3(1) TAPCOD(2) = P3(2) IF (P2.LT.0 .OR. P2.GT.9) GO TO 9904 OUT = OTT(P2+1) IF (MACH .GE. 5) GO TO 120 TAPEUP = TAPBIT(OUT) IF (.NOT.TAPEUP ) GO TO 9909 120 IF (P1 .LT. MNIN) GO TO 9905 IF (P1.GT.MNIN .AND. P1.LT.MFOR) GO TO 9905 C IF (P1 .EQ. MNIN) GO TO 5000 IF (P1 .EQ. MTRE) GO TO 2000 IF (P1 .LE. ZERO) GO TO 150 C CALL GOPEN (OUT,X(OUBUF),2) DO 130 I = 1,P1 CALL READ (*9903,*9903,OUT,NAMEX,2,1,NF) 130 CALL SKPFIL (OUT,1) CALL CLOSE (OUT,2) GO TO 190 C 150 IF (P1.NE.MTWO .AND. P1.NE.MFOR) GO TO 190 C C P1 = -2 OR P1 = -4 IS ACCEPTABLE ONLY ON IBM OR UNIVAC C IF (MACH.NE.2 .AND. MACH.NE.3) GO TO 9905 C IOLD = 3 + P1/2 CALL GOPEN (OUT,X(OUBUF),3) CALL TPSWIT (OUT,IOLD,2,TAPCOD) C C OPEN USER TAPE TO WRITE WITHOUT REWIND C 190 CALL GOPEN (OUT,X(OUBUF),3) IF (P1.NE.MONE .AND. P1.NE.MTWO .AND. P1.NE.MFOR) GO TO 195 CALL REWIND (OUT) CALL WRITE (OUT,D,3,0) CALL WRITE (OUT,IDHDR,7,0) CALL WRITE (OUT,P3,2,1) CALL EOF (OUT) GO TO 195 C 193 CALL CLOSE (OUT,2) CALL GOPEN (OUT,X(OUBUF),3) C 195 DO 1000 I = 1,5 INPUT = IN(I) TRL(1) = INPUT CALL RDTRL (TRL) IF (TRL(1) .LE. 0) GO TO 1000 CALL FNAME (INPUT,NAME) C C OPEN INPUT DATA BLOCK TO READ WITH REWIND. C CALL OPEN (*9901,INPUT,X(INBUF),0) CALL WRITE (OUT,NAME,2,0) CALL WRITE (OUT,TRL(2),6,1) C C LEVEL 17.5, THE ABOVE 8 WORD RECORD WAS WRITTEN OUT IN 2 RECORDS C 2 BCD WORD NAME, AND 7 TRAILER WORDS C C COPY CONTENTS OF INPUT DATA BLOCK ONTO USER TAPE. C CALL CPYFIL (INPUT,OUT,X,LCOR,NF) C C CLOSE INPUT DATA BLOCK WITH REWIND C CALL CLOSE (INPUT,1) C CALL EOF (OUT) CALL PAGE2 (-4) WRITE (NOUT,350) UIM,NAME,OUT,(TRL(II),II=2,7) 350 FORMAT (A29,' 4114', //5X,'DATA BLOCK ',2A4, 1 ' WRITTEN ON NASTRAN FILE ',A4,', TRLR =',6I10) C 1000 CONTINUE C C CLOSE NASTRAN USER TAPE WITHOUT REWIND, BUT WITH END-OF-FILE C CALL CLOSE (OUT,3) RETURN C C OBTAIN LIST OF DATA BLOCKS ON USER TAPE. C 2000 CALL OPEN (*9902,OUT,X(OUBUF),0) CALL READ (*9911,*9912,OUT,DX,3,0,NF) CALL READ (*9911,*9912,OUT,IDHDRX,7,0,NF) DO 2005 KF = 1,7 IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 9913 2005 CONTINUE CALL READ (*9911,*9912,OUT,P3X,2,1,NF) IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 9914 2006 CALL SKPFIL (OUT,1) KF = 0 2007 CALL PAGE1 LINE = LINE + 5 WRITE (NOUT,2010) OUT 2010 FORMAT (//50X,A4,14H FILE CONTENTS ,/46X,4HFILE,18X,4HNAME,//) 2020 CALL READ (*2050,*9915,OUT,NAMEX,2,1,NF) CALL SKPFIL (OUT,1) KF = KF + 1 LINE = LINE + 1 WRITE (NOUT,2030) KF,NAMEX 2030 FORMAT (45X,I5,18X,2A4) IF (LINE-NLPP) 2020,2007,2007 2050 CALL SKPFIL (OUT,-1) GO TO 193 C 5000 CONTINUE CALL EOF (OUT) CALL UNLOAD( OUT) RETURN C C ERRORS C 9901 MM = -1 GO TO 9996 9902 WRITE (NOUT,9952) SFM,OUT 9952 FORMAT (A25,' 4117, SUBROUTINE OUTPT1 UNABLE TO OPEN NASTRAN FILE' 1, A4,1H.) LINE = LINE + 2 GO TO 9995 9903 WRITE (NOUT,9953) UFM,P1,OUT,I 9953 FORMAT (A23,' 4118, MODULE OUTPUT1 IS UNABLE TO SKIP FORWARD',I10, 2 ' DATA BLOCKS ON PERMANENT NASTRAN FILE ',A4,1H., /5X, 3 'NUMBER OF DATA BLOCKS SKIPPED =',I6) LINE = LINE + 3 GO TO 9995 9904 WRITE (NOUT,9954) UFM,P2 9954 FORMAT (A23,' 4119, MODULE OUTPUT1 - ILLEGAL VALUE FOR SECOND ', 1 'PARAMETER =',I20) LINE = LINE + 2 GO TO 9995 9905 WRITE (NOUT,9955) UFM,P1 9955 FORMAT (A23,' 4120, MODULE OUTPUT1 - ILLEGAL VALUE FOR FIRST ', 1 'PARAMETER =',I20) LINE = LINE + 2 GO TO 9995 9908 MM = -8 INPUT = -LCOR GO TO 9996 9909 WRITE (NOUT,9959) UFM,OUT 9959 FORMAT (A23,' 4127, USER TAPE ',A4,' NOT SET UP.') LINE = LINE + 2 GO TO 9995 9911 WRITE (NOUT,9961) UFM,OUT 9961 FORMAT (A23,' 4128, MODULE OUTPUT1 - END-OF-FILE ENCOUNTERED ', 1 'WHILE ATTEMPTING TO READ TAPE ID CODE ON USER TAPE ',A4) LINE = LINE + 2 GO TO 9995 9912 WRITE (NOUT,9962) UFM,OUT 9962 FORMAT (A23,' 4129, MODULE OUTPUT1 - END-OF-RECORD ENCOUNTERED ', 1 'WHILE ATTEMPTING TO READ TAPE ID CODE ON USER TAPE ',A4) LINE = LINE + 2 GO TO 9995 9913 WRITE (NOUT,9963) UFM,(IDHDRX(KF),KF=1,7) 9963 FORMAT (A23,' 4130, MODULE OUTPUT1 - ILLEGAL TAPE CODE HEADER = ', 1 7A4) LINE = LINE + 2 GO TO 9995 9914 WRITE (NOUT,9964) UWM,P3X,P3 9964 FORMAT (A25,' 4131, USER TAPE ID CODE -',2A4,'- DOES NOT MATCH ', 1 'THIRD OUTPUT1 DMAP PARAMETER -',2A4,2H-.) LINE = LINE + 2 GO TO 2006 9915 WRITE (NOUT,9965) SFM 9965 FORMAT (A25,' 4115, MODULE OUTPUT1 - SHORT RECORD.') LINE = LINE + 2 GO TO 9995 C 9995 MM = -37 9996 CALL MESAGE (MM,INPUT,SUBNAM) RETURN C END ================================================ FILE: mis/outpt2.f ================================================ SUBROUTINE OUTPT2 C C COPY DATA BLOCK(S) ONTO FORTRAN UNIT. C C CALL TO THIS MODULE IS C C OUTPUT2 IN1,IN2,IN3,IN4,IN5/ /V,N,P1/V,N,P2/V,N,P3/ C V,N,P4/V,N,P5/V,N,P6 $ C C P1 = 0, NO ACTION TAKEN BEFORE WRITE C (DEFAULT P1=0) C =+N, SKIP FORWARD N DATA BLOCKS BEFORE WRITE C =-1, BEFORE WRITE, FORTRAN TAPE IS REWOUND AND A C HEADER RECORD (RECORD NUMBER 0) ADDED TO TAPE C =-3, THE NAMES OF ALL DATA BLOCKS ON FORTRAN TAPE C ARE PRINTED AND WRITE OCCURS AT THE END OF TAPE C =-9, WRITE A NULL FILE, ENDFILE AND REWIND FORTRAN C TAPE. C C P2 = THE FORTRAN UNIT NO. ON WHICH THE DATA BLOCKS WILL C BE WRITTEN. (DEFAULT P2=11). C C P3 = TAPE ID CODE FOR FORTRAN TAPE, AN ALPHANUMERIC C VARIABLE WHOSE VALUE WILL BE WRITTEN ON A FORTRAN C TAPE. C THE WRITING OF THIS ITEM IS DEPENDENT ON THE C VALUE OF P1 AS FOLLOWS. C *P1* *TAPE ID WRITTEN* C +N NO C 0 NO C -1 YES C -3 NO (WARNING CHECK) C (DEFAULT P3 = XXXXXXXX). C C P4 = 0, FORTRAN WRITTEN RECORD SIZE IS UNLIMITTED C (DEFAULT FOR ALL MACHINES, EXECPT IBM) C =-N, MAXIMUM FORTRAN WRITTEN RECORD SIZE IS N TIMES C THE SYSTEM BUFFER SIZE, N*BUFFSIZE C = N, MAXIMUM FORTRAN WRITTEN RECORD SIZE IS N WORDS. C - IN ALL CASES, THE MAXIMUM FORTRAN WRITTEN RECORD C SIZE SHOLD BE .GE. BUFFSIZE, AND .LE. AVAILABLE C CORE C IBM, IF P4=0, AND SINCE IBM CAN NOT HANDLE UNLIMITED C RECORD SIZE, RECORD SIZE P4 OF 1024 WORDS IS USED C C P5 = 0 FOR NON-SPARSE, AND NON-ZERO FOR SPARSE MATRIX C OUTPUT C = 0, KEY-WORD RECORD CONTAINS EFFECTIVELY ONE SINGLE C WORD OF DATA (THIS IS THE ORIGINAL COSMIC/OUTPT2) C = NOT 0, KEY-WORD RECORD CONTAINS 2 WORDS, THUS ALLOW C SPARSE MATRIX TO BE COPIED OUT. C FIRST KEY WORD: C >0, DEFINES THE LENGTH OF NEXT DATA RECORD C =0, END-OF-FILE C <0, END-OF-RECORD WITH ANOTHER RECORD TO FOLLOW C SECOND KEY WORD: C =0, TABLE DATA, OR P5 SPARSE MATRIX OPTION NOT C REQUESTED C >0, ROW-BASE FOR NEXT RECORD. FOR EXAMPLE: C KEYS = 10,200 INDICATE NEXT DATA RECORD IS C FOR ROW(200+1) THRU ROW(200+10) C i.e. (ROW(KEY2+J),J=1,KEY1) C C P6 = BLANK (DEFAULT) C = *MSC*, OUTPUT2 WILL ISSUE RECORDS IN MSC/OUTPUT2 C FORMAT WHICH IS SLIGHTLY DIFFERENT FROM C COSMIC/OUTPUT2. C (P5 OPTION IS NOT AVAILABLE) C C NOTES ABOUT P5 C (1) P5 IS IGNORED IN TABLE DATA C (2) POSSIBLY, NON-ZERO ROW ELEMENT MAY START AT 2ND HALF C OF A COMPLEX WORD C (3) UP TO 3 ZEROS MAY BE IMBEDDED IN NON-ZERO STRING C (4) THE CHOICE OF 2 KEY WORDS IN ONE KEY RECORD OVER 2 KEY C WORDS IN TWO RECORDS (AS IN MSC/NASTRAN), IS NOT TO C MAKE THE ORIGINAL COSMIC OUTPT2/INPTT2 OBSOLETE. C (i.e. WE DON'T FOLLOW OTHER PEOPLE BLINDLY SO TO MAKE C OURSELVES OBSOLETE) C (5) ALTHOUGH OUTPT2 ALWAYS WRITES 2 KEY WORDS OUT IN A C RECORD. ONE MAY CHOOSE TO READ BACK ONE OR BOTH KEYS. C C REVISED 11/90 BY G.CHAN/UNISYS TO INCLUDE P4 AND P5 PARAMETERS C LAST REVISED 2/93 BY G.CHAN TO INCLUDE P6 PARAMETER C IMPLICIT INTEGER (A-Z) LOGICAL SPARSE,DP CHARACTER*6 MT,MATRIX,TABLE DIMENSION DX(3),TRL(8),NAME(2),SUBNAM(2),INP(3),NAMEX(2), 1 IDHDR(7),IDHDRX(7),P3X(2),TAPCOD(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 CWKBNB CHARACTER*80 DSNAMES COMMON /DSNAME/ DSNAMES(80) CWKBNE COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / P1,P2,P3(2),P4,P5,P6(2) 1 /SYSTEM/ BUFFSZ,NOUT,DUM6(6),NLPP,DUM2(2),LINE,DUM(2),D(3) 2 /ZZZZZZ/ X(1) 3 /MACHIN/ MACH COMMON /UNPAKX/ ITYPE,IROW,NROW,INCR DATA SUBNAM/ 4HOUTP, 4HT2 /, MATRIX,TABLE /'MATRIX',' TABLE'/ DATA INP / 1HT, 1H1, 1H2 /, MSC / 4HMSC / DATA ZERO , MONE,MTWO,MTRE,MNIN / 0,-1,-2,-3,-9 / DATA IDHDR / 4HNAST,4HRAN ,4HFORT,4H TAP,4HE ID,4H COD,4HE - / CWKBI DATA IFIRST/0/ C C CHECK P2 AND P4 PARAMETERS C CWKBI 3/95 SPR94016 LCOR = KORSZ(X) - BUFFSZ IF (P2 .GE. 11 .AND. P2 .LE. 21 ) GO TO 20 J = 11 WRITE (NOUT,10) UWM,P2,J,INP(I) 10 FORMAT (A25,' FROM OUTPUT2 MODULE. UNACCEPTABLE FORTRAN UNIT',I3, 1 ' WAS CHANGED TO',I3,' (INP',A1,1H)) P2 = J 20 IF (P4) 25,30,35 25 LREC = -P4*BUFFSZ GO TO 40 30 LREC = LCOR IF (MACH .EQ. 2) LREC = 1024 IF (P6(1) .EQ. MSC) LREC = 2*BUFFSZ GO TO 40 35 LREC = P4 40 IF (LREC .GT. LCOR) LREC = LCOR IF (LREC .LT. BUFFSZ) LREC = BUFFSZ IF (P4 .NE. 0) WRITE (NOUT,50) UIM,LREC 50 FORMAT (A29,' 4116, MAXIMUM FORTRAN RECORD SIZE USED IN OUTPUT2 ', 1 'WAS',I8,' WORDS') P4 = LREC CWKBNB IF ( IFIRST .NE. 0 ) GO TO 51 CLOSE ( UNIT=P2 ) OPEN ( UNIT=P2, FILE=DSNAMES(P2), FORM='UNFORMATTED', 1 STATUS='UNKNOWN' ) IFIRST = 1 51 CONTINUE CWKBNE IF (P6(1) .EQ. MSC) CALL OUTMSC (*1000,*420) C SPARSE = .FALSE. IF (P5 .NE. 0) SPARSE = .TRUE. ENDFIL = 0 ENDREC = 0 CWKBD 3/95 SPR94016 LCOR = KORSZ(X) - BUFFSZ ICRQ =-LCOR IF (LCOR .LE. 0) GO TO 890 INBUF = LCOR + 1 TAPCOD(1) = P3(1) TAPCOD(2) = P3(2) OUT = P2 IF (P1 .EQ. MNIN) GO TO 410 IF (P1.LT.MTRE .OR. P1.EQ.MTWO) GO TO 810 C IF (P1 .EQ. MTRE) GO TO 500 IF (P1 .LE. ZERO) GO TO 80 C I = 1 60 READ (OUT) KEY KEYX = 2 IF (KEY .NE. KEYX) GO TO 900 READ (OUT) NAMEX READ (OUT) KEY IF (KEY .GE. 0) GO TO 920 ASSIGN 70 TO RET NSKIP = 1 GO TO 700 70 I = I + 1 IF (I .LE. P1) GO TO 60 C 80 IF (P1 .NE. MONE) GO TO 90 C C REWIND OUTPUT TAPE. (P1 = -1) C REWIND OUT KEY = 3 WRITE (OUT) KEY,ZERO WRITE (OUT) D KEY = 7 WRITE (OUT) KEY,ZERO WRITE (OUT) IDHDR KEY = 2 WRITE (OUT) KEY,ZERO WRITE (OUT) P3 ENDREC = ENDREC - 1 WRITE (OUT) ENDREC,ZERO WRITE (OUT) ENDFIL,ZERO ENDREC = 0 C 90 DO 400 I = 1,5 INPUT = 100 + I TRL(1) = INPUT CALL RDTRL (TRL) IF (TRL(1) .LE. 0) GO TO 400 CALL FNAME (INPUT,NAME) C C OPEN INPUT DATA BLOCK TO READ WITH REWIND. C CALL OPEN (*800,INPUT,X(INBUF),0) CALL SKPREC (INPUT,1) TRL(8) = 1 CALL RECTYP (INPUT,IREC1) IF (IREC1 .NE. 0) GO TO 100 TRL(8) = 0 CALL READ (*100,*100,INPUT,X(1),1,1,NF) CALL RECTYP (INPUT,IREC2) IF (IREC2 .EQ. 0) GO TO 100 TRL(8) = 2 100 CALL REWIND (INPUT) KEY = 2 WRITE (OUT) KEY,ZERO WRITE (OUT) NAME ENDREC = ENDREC - 1 WRITE (OUT) ENDREC,ZERO KEY = 8 WRITE (OUT) KEY,ZERO WRITE (OUT) TRL ENDREC = ENDREC - 1 WRITE (OUT) ENDREC,ZERO INDEX = 0 C C COPY CONTENTS OF INPUT DATA BLOCK ONTO FILE. C (OR THE HEADER RECORD OF A MATRIX DATA BLOCK) C C COMMENTS FROM G.CHAN/UNISYS 2/93 C THE WRITES IN LOOP 110 AND 120 SEEM DATA TYPE (S.P. OR D.P.) C INCENSITIVE. THE D.P. DATA IN KELM, MELM AND BELM TABLES SHOULD C WORK OK. C 110 CALL READ (*310,*120,INPUT,X(1),LREC,0,NF) WRITE (OUT) LREC,ZERO WRITE (OUT) (X(L),L=1,LREC) GO TO 110 C 120 WRITE (OUT) NF,ZERO WRITE (OUT) (X(L),L=1,NF) ENDREC = ENDREC - 1 WRITE (OUT) ENDREC,ZERO IF (TRL(8) .EQ. 0) GO TO 110 IF (TRL(8) .EQ. 1) GO TO 130 IF (INDEX .GT. 0) GO TO 130 INDEX = 1 GO TO 110 C C COPY STRING FORMATTED MATRIX C 130 IF (TRL(8).EQ.2 .AND. INDEX.EQ.2) GO TO 140 INDEX = 2 NWDS = TRL(5) DP = .FALSE. IF (NWDS.EQ.2 .OR. NWDS.EQ. 4) DP = .TRUE. DSP = 1 IF (DP) DSP = 2 IF (NWDS .EQ. 3) NWDS = 2 C NWDS=1,SP - =2,DP,CS - =4,CDP C INCR = 1 NWDS = TRL(3)*NWDS C C CHECK FOR NULL MATRIX C IF (TRL(2).EQ.0 .OR. TRL(3).EQ.0) GO TO 310 C C NWDS HAS NUMBER WORDS NEEDED PER COLUMN C ICRQ = NWDS - LCOR IF (NWDS .GT. LCOR) GO TO 890 ITYPE = TRL(5) IROW = 1 NROW = TRL(3) NCOL = TRL(2) IF (TRL(8) .EQ. 2) NCOL = 1 140 DO 300 L = 1,NCOL CALL UNPACK (*180,INPUT,X) IF (SPARSE) GO TO 200 150 DO 160 KB = 1,NWDS,LREC KE = KB + LREC - 1 IF (KE .GT. NWDS) KE = NWDS KBE = KE - KB + 1 WRITE (OUT) KBE,ZERO WRITE (OUT) (X(K),K=KB,KE) 160 CONTINUE C 170 ENDREC = ENDREC - 1 WRITE (OUT) ENDREC,ZERO GO TO 300 180 IF (SPARSE) GO TO 170 DO 190 K = 1,NWDS X(K) = 0 190 CONTINUE GO TO 150 C C SPARSE MASTRIX OUT C 200 J12 = -1 DO 260 J = 1,NWDS,DSP IF (J12 .GE. +1) GO TO 220 IF (X(J) .NE. 0.0) GO TO 210 IF (DP) IF (X(J+1)) 210,260,210 GO TO 260 210 J12 = +1 K2 = J - 1 GO TO 260 220 IF (X(J) .NE. 0.0) GO TO 260 IF (DP) IF (X(J+1)) 260,230,260 230 IF (J12 .EQ. -1) CALL MESAGE (-37,0,SUBNAM) J12 = J12 + 1 C C ALLOW UP TO 3 IMBEDDED ZEROS C IF (J12 .LE. 3) GO TO 260 IF (X(J-1).NE.0.0 .OR. X(J-2).NE. 0.0) GO TO 260 J12 = -1 K1 = J - K2 IF (K1 .GT. LREC) GO TO 240 WRITE (OUT) K1,K2 WRITE (OUT) (X(K2+K),K=1,K1) GO TO 260 240 KE = J KB = K2 + 1 DO 250 KK = KB,KE,LREC K2 = KK - 1 K1 = K2 + LREC IF (K1 .GT. KE) K1 = KE WRITE (OUT) K1,K2 WRITE (OUT) (X(K2+K),K=1,K1) 250 CONTINUE 260 CONTINUE C IF (J12 .EQ. -1) GO TO 290 J12 = -1 K1 = NWDS - K2 IF (K1 .GE. LREC) GO TO 270 WRITE (OUT) K1,K2 WRITE (OUT) (X(K2+K),K=1,K1) GO TO 290 270 KE = NWDS KB = K2 + 1 DO 280 KK = KB,KE,LREC K2 = KK - 1 K1 = K2 + LREC IF (K1 .GT. KE) K1 = KE WRITE (OUT) K1,K2 WRITE (OUT) (X(K2+K),K=1,K1) 280 CONTINUE C 290 ENDREC = ENDREC - 1 WRITE (OUT) ENDREC,ZERO C 300 CONTINUE C IF (TRL(8) .EQ. 2) GO TO 110 C C CLOSE INPUT DATA BLOCK WITH REWIND C 310 CALL CLOSE (INPUT,1) C WRITE (OUT) ENDFIL,ZERO ENDREC = 0 CALL PAGE2 (-4) MT = MATRIX IF (TRL(8) .EQ. 0) MT = TABLE WRITE (NOUT,320) UIM,MT,NAME,OUT,(TRL(II),II=2,7) 320 FORMAT (A29,' 4114, ',A6,' DATA BLOCK ',2A4, 1 ' WRITTEN ON FORTRAN UNIT',I4, /5X,'TRAILR =',5I6,I9) IF (SPARSE .AND. TRL(8).NE.0) WRITE (NOUT,330) 330 FORMAT (1H+,55X,'(SPARSE MATRIX)') C 400 CONTINUE GO TO 1000 C C FINAL CALL TO OUTPUT2. (P1 = -9) C 410 WRITE (OUT) ENDFIL,ZERO 420 ENDREC = 0 ENDFILE OUT REWIND OUT WRITE (NOUT,430) UIM 430 FORMAT (A29,'. OUTPUT2 MODULE WROTE AN E-O-F RECORD, A SYSTEM ', 1 'E-O-F MARK, AND REWOUND THE OUTPUT TAPE. (P1=-9)') GO TO 1000 C C OBTAIN LIST OF DATA BLOCKS ON FORTRAN TAPE. (P1 = -3) C 500 REWIND OUT READ (OUT) KEY KEYX = 3 IF (KEY .NE. KEYX) GO TO 900 READ (OUT) DX READ (OUT) KEY KEYX = 7 IF (KEY .NE. KEYX) GO TO 900 READ (OUT) IDHDRX DO 510 KF = 1,7 IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 830 510 CONTINUE READ (OUT) KEY KEYX = 2 IF (KEY .NE. KEYX) GO TO 900 READ (OUT) P3X IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 850 520 ASSIGN 530 TO RET NSKIP = 1 GO TO 700 530 KF = 0 540 CALL PAGE1 LINE = LINE + 8 WRITE (NOUT,550) OUT 550 FORMAT (1H0, 50X, 30HFILE CONTENTS ON FORTRAN UNIT , I2, 1 /51X, 32(1H-), ///54X, 4HFILE, 18X, 4HNAME/1H0) 560 READ (OUT) KEY IF (KEY) 870,600,570 570 READ (OUT) NAMEX ASSIGN 580 TO RET NSKIP = 1 GO TO 700 580 KF = KF + 1 LINE = LINE + 1 WRITE (NOUT,590) KF,NAMEX 590 FORMAT (53X,I5,18X,2A4) IF (LINE-NLPP) 560,540,540 600 ASSIGN 90 TO RET NSKIP = -(KF+1) GO TO 700 C C SIMULATION OF SKPFIL (OUT,NSKIP) C 700 IF (NSKIP) 720,710,730 710 GO TO RET, (70,90,530,580) 720 REWIND OUT C C NSKIP IS THE NEGATIVE OF THE NUMBER OF FILES TO BE SKIPPED C NSKIP = -NSKIP 730 DO 770 NS = 1,NSKIP 740 READ (OUT) KEY IF (KEY) 740,760,750 750 CONTINUE C ICRQ = KEY - LCOR C IF (KEY .GT. LCOR) GO TO 9917 READ (OUT) L GO TO 740 760 CONTINUE 770 CONTINUE GO TO 710 C C C ERRORS C 800 MM = -1 GO TO 950 C 810 WRITE (NOUT,820) UFM,P1 820 FORMAT (A23,' 4120, MODULE OUTPUT2 - ILLEGAL VALUE FOR FIRST ', 1 'PARAMETER =',I20) LINE = LINE + 2 GO TO 940 830 WRITE (NOUT,840) UFM,(IDHDRX(KF),KF=1,7) 840 FORMAT (A23,' 4130, MODULE OUTPUT2 - ILLEGAL TAPE CODE HEADER = ', 1 7A4) LINE = LINE + 2 GO TO 940 850 WRITE (NOUT,860) UWM,P3X,P3 860 FORMAT (A25,' 4131, FORTRAN TAPE ID CODE -',2A4,'- DOES NOT MATCH' 1, ' THIRD OUTPUT2 DMAP PARAMETER -',2A4,2H-.) LINE = LINE + 2 GO TO 520 870 WRITE (NOUT,880) SFM 880 FORMAT (A25,' 4115, MODULE OUTPUT2 - SHORT RECORD.') LINE = LINE + 2 GO TO 940 890 MM = -8 INPUT = ICRQ GO TO 950 900 WRITE (NOUT,930) SFM,KEY WRITE (NOUT,910) KEYX 910 FORMAT (10X,17HEXPECTED VALUE = ,I10,1H.) LINE = LINE + 3 GO TO 940 920 WRITE (NOUT,930) SFM,KEY 930 FORMAT (A25,' 2190, ILLEGAL VALUE FOR KEY =',I10,1H.) LINE = LINE + 2 GO TO 940 C 940 MM = -37 950 CALL MESAGE (MM,INPUT,SUBNAM) C 1000 RETURN END ================================================ FILE: mis/outpt3.f ================================================ SUBROUTINE OUTPT3 C C PUNCH UP TO 5 MATRIX DATA BLOCK ONTO DMI CARDS C C CALL TO THIS MODULE IS C C OUTPUT3 M1,M2,M3,M4,M5//C,N,PO/C,Y,N1=AB/C,Y,N2=CD/C,Y,N3=EF/ C C,Y,N4=GH/C,Y,N5=IJ $ C C PO = FORTRAN OUTPUT FILE UNIT NO. (DEFAULT = 0) C .GE.0 MEANS NO LISTING OF CARD IMAGES WILL BE MADE C .LT.0 MEANS LISTING OF DMI CARD IMAGES WILL BE MADE C ON FORTRAN UNIT = IABS(PO). C C C LOGICAL FIRST INTEGER IN(5),SUBNAM(2),NAME(2),TRL(7),ERNO,PARAM, 1 TRL1,TRL2,TRL3,TRL4,TRL5,TRL6,TRL7,EOL,EOR CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / JO,PARAM(2,5) 1 /SYSTEM/ NB,NO,JUNK(6),NLPP 2 /ZZZZZZ/ X(1) 3 /ZNTPKX/ Z(4),IZ,EOL,EOR 4 /PHDMIX/ NAMEX(2),NAM,IFO,ITIN,ITOUT,IR,IC,NOUTPT,KPP,NLP, 5 ERNO,ICOL,IRO,XX,ICARD1 EQUIVALENCE (TRL(1),TRL1), (TRL(2),TRL2), (TRL(3),TRL3), 1 (TRL(4),TRL4), (TRL(5),TRL5), (TRL(6),TRL6), 2 (TRL(7),TRL7) DATA SUBNAM/ 4HOUTP,4HUT3 /, IN/ 101,102,103,104,105 / DATA ITYP / 1 / C C LCOR = KORSZ(X) - NB IF (LCOR .LE. 0) CALL MESAGE (-8,LCOR,SUBNAM) IBUF = LCOR+1 JONO = 0 IF (JO .LT. 0) JONO = IABS(JO) NOUTPT = JONO ITIN = 1 KPP = 2 NLP = NLPP C DO 1000 II = 1,5 TRL1 = IN(II) CALL RDTRL (TRL) IF (TRL1 .LE. 0) GO TO 1000 CALL FNAME (IN(II),NAME) CALL GOPEN (IN(II),X(IBUF),0) NAMEX(1) = NAME(1) NAMEX(2) = NAME(2) NAM = PARAM(1,II) IFO = TRL4 ITOUT= 0 IR = TRL3 IC = TRL2 CALL PHDMIA IF (ERNO .NE. 0) GO TO 9400 C DO 900 J = 1,TRL2 CALL INTPK (*900,IN(II),0,ITYP,0) FIRST = .FALSE. ICOL = J C DO 800 I = 1,TRL3 IF (EOL .NE. 0) GO TO 850 CALL ZNTPKI IRO = IZ XX = Z(1) C C VAX MAY HAVE A FEW IMBEDED ZEROS C IF (XX .EQ. 0.0) GO TO 800 IF (FIRST) GO TO 100 FIRST = .TRUE. CALL PHDMIB IF (ERNO) 9400,200,9400 100 CALL PHDMIC IF (ERNO) 9400,200,9400 200 CONTINUE 800 CONTINUE C 850 CALL PHDMID IF (ERNO .NE. 0) GO TO 9400 900 CONTINUE C NCARDS = ICARD1 + 1 CALL PAGE2 (-2) WRITE (NO,1) UIM,NAME,NCARDS 1 FORMAT (A29,' 4103, OUTPUT3 HAS PUNCHED MATRIX DATA BLOCK ',2A4, 1 ' ONTO ',I5,' DMI CARDS.') CALL CLOSE (IN(II),1) 1000 CONTINUE RETURN C C ERROR MESSAGE C 9400 CALL PAGE2 (-2) WRITE (NO,9450) UFM 9450 FORMAT (A23,' 4104, ATTEMPT TO PUNCH MORE THAN 99999 DMI CARDS ', 1 'FOR A SINGLE MATRIX.') CALL MESAGE (-61,0,0) RETURN C END ================================================ FILE: mis/outpt4.f ================================================ SUBROUTINE OUTPT4 C C COPY MATRIX DATA BLOCKS ONTO A FORTRAN TAPE, BINARY OR ASCII C FORMATS, IN DENSE MATRIX FORM (FROM FIRST TO LAST NON-ZERO TERMS C OF COLUMNS), OR IN SPARSE FORM (BY STRINGS) C C A LOGICAL OUTPUT RECORD, WHICH CAN BE ONE OR MORE PHYSICAL RECORES C BEGINS WITH 3 INTEGER WORD THEN AN ARRAY OF DATA C C FIRST INTEGER WORD = LOGICAL RECORD NUMBER, OR COLUMN NUMBER C SECOND INTEGER WORD = ROW POSITION OF 1ST NONZERO TERM IN COLUMN C = 0, SPARSE MATRIX (BINARY ONLY) C .LT.0, SPARSE MATRIX ROW POSITION (ASCII ONLY) C THIRD INTEGER WORD = NW, LENGTH OF ARRAY DATA THAT FOLLOW C NW IS BASED ON S.P. WORD COUNT (BINARY ONLY) C NW IS DATA PRECISION TYPE DEPENDENT (ASCII) C C OUTPUT4 DOES NOT HANDLE TABLE DATA BLOCK, EXECPT 6 SPECIAL TABLES C KELM, MELM, BELM, KDICT, MDICT, AND BDICT. C C C OUTPUT4 IN1,IN2,IN3,IN4,IN5 // V,N,P1 / V,N,P2 / V,N,P3 $ C C PARAMETERS P1, P2 AND P3 ARE INTEGERS C C P1 = 0, NO ACTION TAKEN BEFORE WRITE (DEFAULT) C =-1, REWIND TAPE BEFORE WRITE C =-2, AT END, WRITE E-O-F MARK AND REWIND TAPE C =-3, BOTH -1 AND -2 C =-9, NOT AVAILABLE C C P2 = N, FORTRAN OUTPUT UNIT N (N = 11,...,24) C =-N, MATRIX WILL BE WRITTEN OUT IN SPARSE FORMAT ONTO UNIT N. C C P3 = 1, FILE OUTPUT IN FORTRAN BINARY FORMAT (UNFORMATTED) C = 2, FILE OUTPUT IN BCD FORMAT (ASCII, FORMATTED) C . NO MIXED INTEGERS AND REAL NUMBERS IN A FORMATTED RECORD. C THE RECORD LENGTH IS LESS THAN 132 BYTES. C . IF INPUT MATRIX TO BE COPIED OUT IS IN S.P., INTEGERS ARE C WRITTEN OUT IN I13, AND S.P.REAL DATA IN 10E13.6. C . IF INPUT MATRIX TO BE COPIED OUT IS IN D.P., INTEGERS ARE C WRITTEN OUT IN I16, AND D.P.REAL DATA IN 8D16.9. C = 3, FORMATS I16 AHD 8E16.9 ARE USED TO COPY INTEGERS AND S.P. C REAL DATA OUT TO OUTPUT TAPE. P3=3 IS USED ONLY FOR C MACHINE WITH LONG WORDS (60 OR MORE BITS PER WORD) C C THESE OUTPUT FORMATS CAN BE CHANGED EASILY BY ALTERING FORMATS C 40, 50, 60 AND 370. MAKE SURE AN OUTPUT LINE DOES NOT EXCEED 132 C COLUMNS. OTHERWISE, IT WOULD BE FOLDED IN PRINTOUT OR SCREEN C LISTING. C C WRITTEN BY G.CHAN/UNISYS 3/93 C LOGICAL SPARSE,BO,SP,DP,CP INTEGER P1,P2,P3,BUF1,D,ZERO,TRL(8),NAME(2),NONE(2), 1 IX(3),BLOCK(20),INP(13),SUB(2),TAB1(6),TAB2(6) REAL XNS(1) DOUBLE PRECISION DX(1),DXNS(1) CHARACTER*6 DNS,SPA,DS CHARACTER*11 FMD,UNF,FM CHARACTER UFM*23,UWM*25,UIM*29 CWKBI CHARACTER*80 DSNAMES CWKBI COMMON / DSNAME / DSNAMES(80) COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / P1,P2,P3 COMMON /SYSTEM/ IBUFF,NOUT,DUM1(6),NLPP,DUM2(2),LINE,DUM3(2), 1 D(3),DUM22(22),NBPW COMMON /MACHIN/ MACH COMMON /UNPAKX/ ITU,II,JJ,INCR COMMON /TYPE / PRC(2),NWD(4) COMMON /ZZZZZZ/ X(1) EQUIVALENCE (X(1),XNS(1)) EQUIVALENCE (X(1),IX(1),DX(1)),(XNS(1),DXNS(1)),(NM1,NAME(1)) DATA INP / 4HUT1 ,4HUT2 ,4HUT3 ,4HINPT,4HINP1,4HINP2,4HINP3, 1 4HINP4,4HINP5,4HINP6,4HINP7,4HINP8,4HINP9/ DATA TAB1 / 4HKELM,4HMELM,4HBELM,4HKDIC,4HMDIC,4HBDIC/, 1 TAB2 / 4HHKEL,4HHMEL,4HHBEL,4HHKDI,4HHMDI,4HHBDI/ DATA DNS , SPA / 'DENSE ', 'SPARSE' / RZERO,ZERO / 0.,0 / DATA FMD , UNF / 'FORMATTED ','UNFORMATTED' / DATA NONE , SUB / 4H (NO,4HNE) ,4HOUTP,4HT4 / CWKBI DATA IFIRST / 0 / C SPARSE = P2.LT.0 P2 = IABS(P2) IF (P2.LE.10 .OR. P2.GT.24) GO TO 500 BO = P3.NE.1 II = 1 INCR = 1 LCOR = KORSZ(X(1)) BUF1 = LCOR - IBUFF C FM = UNF IF (BO) FM = FMD CWKBNB IF ( BO .OR. IFIRST .NE. 0 ) GO TO 1 CLOSE ( UNIT=P2 ) OPEN (UNIT=P2,STATUS='NEW',ACCESS='SEQUENTIAL',FORM=FM,ERR=500 1 ,FILE=DSNAMES(P2) ) 1 CONTINUE IFIRST = 1 CWBKNE IF (P1.EQ.-1 .OR. P1.EQ.-3) REWIND P2 C DO 400 IPT = 1,5 NDICT = 0 INPUT = 100 + IPT TRL(1)= INPUT CALL RDTRL (TRL(1)) IF (TRL(1) .LE. 0) GO TO 400 CALL FNAME (INPUT,NAME) IF (NM1.EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 400 IF (TRL(7).EQ.0 .AND. TRL(8).EQ.0) GO TO 250 IF (TRL(4).LT.1 .OR. TRL(4).GT.8) GO TO 250 NC = TRL(2) NR = TRL(3) ITU = TRL(5) IF (NC.EQ.0 .OR. NR.EQ.0 .OR. (ITU.LT.1 .OR. ITU.GT.4)) GO TO 250 NWDS = NWD(ITU) IF (NR*NWDS .GE. BUF1) CALL MESAGE (-8,LCOR,SUB) DP = ITU.EQ.2 .OR. ITU.EQ.4 SP = .NOT.DP CP = SP .AND. P3.EQ.3 .AND. NBPW.GE.60 IF (CP) SP = .FALSE. IF (BO .AND. SPARSE .AND. NC.GT.2000) WRITE (NOUT,10) UWM 10 FORMAT (A25,' FROM OUTPUT4 MODULE. ON ASCII TAPE AND SPARSE ', 1 'MATRIX OUTPUT, EACH STRING OF DATA IS WRITTEN OUT TO THE', 2 /5X,'OUTPUT TAPE AS A FORTRAN FORMATTED REDORD. FATAL ERROR', 3 ' COULD OCCUR WHEN NO. OF RECORDS EXCEED SYSTEM I/O LIMIT') C C OPEN INPUT DATA BLOCK TO READ WITH REWIND C CALL OPEN (*520,INPUT,X(BUF1),0) CALL FWDREC (*520,INPUT) C BLOCK(1) = INPUT C C WRITE TRAILER RECORD ON OUTPUT TAPE. C SET FORM (TRL(4)) TO NEGATIVE IF ASCII RECORDS IS REQUESTED C K = -TRL(4) IF (.NOT.BO) WRITE (P2 ) NC,NR,TRL(4),ITU,NAME IF ( BO) WRITE (P2,20) NC,NR,K ,ITU,NAME 20 FORMAT (1X,4I13,5X,2A4) C IF (SPARSE) GO TO 100 C C DENSE MATRIX OUTPUT - C WRITE THE MATRIX COLUMNS FROM FIRST TO LAST NON-ZERO TERMS C 30 DO 80 K = 1,NC II = 0 CALL UNPACK (*40,INPUT,X) JJ = (JJ-II+1)*NWDS IF (BO) GO TO 40 C WRITE (P2) K,II,JJ,(X(L),L=1,JJ) GO TO 80 C 40 M = JJ/2 IF (SP) WRITE (P2,50) K,II,JJ,( X(L),L=1,JJ) IF (CP) WRITE (P2,60) K,II,JJ,( X(L),L=1,JJ) IF (DP) WRITE (P2,70) K,II,JJ,(DX(L),L=1,M ) 50 FORMAT (1X,3I13,/,(1X,10E13.6)) 60 FORMAT (1X,3I16,/,(1X, 8E16.9)) 70 FORMAT (1X,3I16,/,(1X, 8D16.9)) C 80 CONTINUE C GO TO 210 C C SPARSE MATRIX OUPUT - C WRITE A RECORD FOR EACH MATRIX COLUMN, IN PACKED STRINGS DATA C IF MATRIX IS NOT WRITTEN IN STRINGS, SEND THE MATRIX TO THE DENSE C MATRIX METHOD C 100 CALL RECTYP (INPUT,K) IF (K .NE. 0) GO TO 110 CALL REWIND (INPUT) CALL FWDREC (*520,INPUT) GO TO 30 C C BLOCK(2) = STRING TYPE, 1,2,3 OR 4 C BLOCK(4) = FIRST ROW POSITION ON A MATRIX COLUMN C BLOCK(5) = POINTER TO STRING IN XNS ARRAY C BLOCK(6) = NO. OF TERMS IN STRING C 110 NWORDS = NWD(ITU) NWORD1 = NWORDS - 1 DO 200 K = 1,NC BLOCK(8) = -1 NW = 0 120 CALL GETSTR (*150,BLOCK) IF (BO) GO TO 160 LN = BLOCK(6)*NWORDS J1 = BLOCK(5)*NWORDS - NWORD1 J2 = J1 + LN - 1 C NW = NW + 1 IX(NW) = BLOCK(4) + 65536*BLOCK(6) L = 1 DO 130 J = J1,J2 X(L+NW) = XNS(J) 130 L = L + 1 NW = NW + LN IF (NW .GE. BUF1) CALL MESAGE (-8,LCOR,SUB) 140 CALL ENDGET (BLOCK) GO TO 120 150 IF (NW .GT. 0) WRITE (P2) K,ZERO,NW,(X(J),J=1,NW) GO TO 200 C C NOTE - FOR THE BCD OUTPUT RECORD, THE 2ND INTEGER WORD, ZERO C BEFORE, IS REPLACED BY THE NEGATIVE OF THE ROW POSITION (IN A C MATRIX COLUMN). C DOUBLE THE POINTER TO THE STRING IN XNS ARRAY, J1, IF DATA TYPE IS C COMPLEX, BUT NOT THE LENGTH LN. C 160 LN = BLOCK(6) J1 = BLOCK(5) IF (BLOCK(2) .GE. 3) J1 = J1*2 J2 = J1 + LN - 1 MROW = -BLOCK(4) C C ZERO REPLACED EXACT LENGTH OF XNS, OR DXNS C / / IF (SP) WRITE (P2,50) K,MROW,LN,( XNS(J),J=J1,J2) IF (CP) WRITE (P2,60) K,MROW,LN,( XNS(J),J=J1,J2) IF (DP) WRITE (P2,70) K,MROW,LN,(DXNS(J),J=J1,J2) GO TO 140 C 200 CONTINUE C C WRITE AN EXTRA NCOL+1 COLUMN RECORD OUT TO P2, AND AT LEAST ONE C VALUE OF ZERO C 210 M = 1 K = NC + 1 IF (BO) GO TO 220 WRITE (P2) K,M,M,RZERO GO TO 230 220 IF (SP) WRITE (P2,50) K,M,M,RZERO IF (CP .OR. DP) WRITE (P2,60) K,M,M,RZERO 230 DS = DNS IF (SPARSE) DS = SPA WRITE (NOUT,240) UIM,NAME,P2,INP(P2-10),FM,DS,(TRL(L),L=2,7) 240 FORMAT (A29,' FROM OUTPUT4 MODULE. DATA BLOCK ',2A4,' WAS WRITTEN' 1, ' OUT TO FORTRAN TAPE',I3,' (',A4,')', /5X,'IN ',A11, 2 ' RECORDS. ',A6,' MATRIX FORM. TRAILER =',5I6,I9) GO TO 280 C C INPUT FILE IS A TABLE DATA BLOCK C ONLY 6 SPECIAL TABLES ARE ALLOWED C 250 DO 260 I = 1,6 IF (NM1.EQ.TAB1(I) .OR. NM1.EQ.TAB2(I)) GO TO 290 260 CONTINUE IF (BO) WRITE (P2,270) UWM,INPUT,NAME,(TRL(J),J=2,7) WRITE (NOUT,270) UWM,INPUT,NAME,(TRL(J),J=2,7) 270 FORMAT (A25,'. INPUT DATA BLOCK',I5,2H, ,2A4,', IS A TABLE OR A ', 1 'NULL MATRIX. OUTPUT4 MODULE HANDLES ONLY MATRICES', /5X, 2 'TRAILER =',6I6) 280 CALL CLOSE (INPUT,1) GO TO 400 C C KELM, MELM AND BELM (AND HKELM, HMELM AND HBELM) TALBES C 290 IF (SPARSE) WRITE (NOUT,300) UWM,NAME,P2,P3 300 FORMAT (A25,'. PARAMETER P2 FOR SPARSE MATRIX IS MEANINGLESS FOR', 1 ' THE ',2A8,' INPUT FILE. P2,P3 =',2I4,/) CALL OPEN (*520,INPUT,X(BUF1),0) CALL FWDREC (*520,INPUT) K = -TRL(4) IF (.NOT.BO) WRITE (P2 ) NC,NR,TRL(4),ITU,NAME IF ( BO) WRITE (P2,20) NC,NR,K ,ITU,NAME J = 1 K = 0 IF (I .GE. 4) GO TO 310 DP = TRL(2).EQ.2 SP = .NOT.DP CP = SP .AND. P3.EQ.3 .AND. NBPW.GE.60 IF (CP) SP = .FALSE. 310 K = K + 1 CALL READ (*380,*320,INPUT,X,BUF1-1,1,M) CALL MESAGE (-8,0,SUB) 320 IF (I .GE. 4) GO TO 350 IF (BO) GO TO 330 WRITE (P2) K,J,M,(X(L),L=1,M) GO TO 310 C 330 IF (DP) GO TO 340 IF (SP) WRITE (P2,50) K,J,M,( X(L),L=1,M) IF (CP) WRITE (P2,60) K,J,M,( X(L),L=1,M) GO TO 310 340 M = M/2 WRITE (P2,70) K,J,M,(DX(L),L=1,M) GO TO 310 C C KDICT, MDICT AND BDICT (AND HKDICT, HMDICT AND HBDICT) TABLES. C INTEGERIZE THE DAMPING CONSTANT (BY 10**8) BEFORE OUTPUT THE ARRAY C 350 NDICT = IX(3) + 5 DO 360 I = 8,M,NDICT IX(I) = IFIX(X(I)*100000000.) 360 CONTINUE IF (.NOT.BO) WRITE (P2) K,J,M,(IX(L),L=1,M) IF (BO .AND. .NOT.CP) WRITE (P2,370) K,J,M,(IX(L),L=1,M) IF (BO .AND. CP) WRITE (P2,375) K,J,M,(IX(L),L=1,M) 370 FORMAT (1X,3I13,/,(1X,10I13)) 375 FORMAT (1X,3I13,/,(1X, 8I16)) GO TO 310 C 380 IF (.NOT.BO) WRITE (P2) K,J,J,ZERO IF (BO .AND. .NOT.CP) WRITE (P2,370) K,J,J,ZERO IF (BO .AND. CP) WRITE (P2,375) K,J,J,ZERO IF (NDICT .NE. 0) WRITE (NOUT,390) UIM,NAME,INP(P2-10) 390 FORMAT (A29,'. THE DAMPING CONSTANT TERMS FROM ',2A4,' WERE ', 1 'MULTIPLIED BY 10**8, AND INTEGERIZED', /5X, 2 'BEFORE WRITING OUT TO ',A4,' OUTPUT FILE') GO TO 280 C 400 CONTINUE C IF (P1.NE.-2 .AND. P1.NE.-3) GO TO 600 ENDFILE P2 REWIND P2 CLOSE (UNIT=P2) GO TO 600 C C ERRORS C 500 WRITE (NOUT,510) UFM,P2 510 FORMAT (A23,'. CANNOT OPEN OUTPUT FORTRAN FILE. UNIT =',I4) GO TO 540 520 WRITE (NOUT,530) UWM,INPUT 530 FORMAT (A25,'. OUTPT4 CANNOT OPEN INPUT DATA BLOCK',I5) C 540 CALL MESAGE (-37,0,SUB) 600 RETURN END ================================================ FILE: mis/outpt5.f ================================================ SUBROUTINE OUTPT5 C C DRIVER OF OUTPUT5 MODULE C COPIES UP TO 5 GINO DATA BLOCKS TO TAPE, BY FORTRAN WRITE, C FORMATTED (ASCII), OR UNFORMATTED (BINARY) C C THIS MODULE HAS BEEN EXPANDED TO INCLUDE TABLE DATA BLOCKS. C ORIGINALLY IT HANDLES ONLY MATRIX DATA BLOCKS. G.CHAN/MAY 88 C C ==== TABLE ==== C OUTPT5 CALLS TABLE5 TO PROCESS TABLE DATA BLOCKS C . UNFORMATTED (BINARY) OR FORMATTED (UNDER P4 CONTROL) C . IF BINARY, EACH RECORD IS WRITTEN OUT BY - C WRITE (OUT) L,(Z(J),J=1,L) C . IF FORMATTED, 5 BYTES ARE USED FOR BCD WORD, C 10 BYTES FOR INTEGER, C 15 BYTES FOR REAL, S.P. OR D.P. C . A HEADER RECORD, WHICH CONFORMS TO OUTPT5 HEADER STANDARD, C IS WRITTEN OUT FIRST, PRECEEDING THE TABLE DATA RECORDS. C C ==== MATRIX ==== C COPY GINO MATRIX DATA BLOCK(S) ONTO FORTRAN UNIT IN C . UNPACKED BANDED RECORD C . BANDED COLUMN RECORD (FIRST TO LAST NON-ZERO ELEMENTS), C . UNFORMATTED (BINARY) OR FORMATTED C . SINGLE PRECISION OR DOUBLE, REAL OR COMPLEX DATA C . OUTPUT FORTRAN TAPE INPI (I=T,1,2,..,9) FOR UNIVAC, IBM, VAX C OR TAPE UTI (I= 1,2,..,5) FOR CDC C (DEFAULT=INP1, UNIT 15, OR UT1, UNIT 11) C C THIS MODULE HANDLES ONLY MATRIX DATA BLOCKS, NOT TRUE ANY MORE C C UNFORMATTED RECORDS CAN ONLY BE USED BY THE SAME COMPUTER SYSTEM, C WHILE FORMATTED RECORDS CAN BE USED ACROSS COMPUTER BOUNDARY C (E.G. WRITTEN BY CDC MACHINE AND READ BY IBM) AND ALSO, CAN BE C EDITED BY SYSTEM EDITOR, OR PRINTED OUT BY SYSTEM PRINT COMMAND. C C CALL TO THIS MODULE IS C C OUTPUT5 IN1,IN2,IN3,IN4,IN5//C,N,P1/C,N,P2/C,N,P3/C,N,P4 C /C,N,T1/C,N,T2/C,N,T3/C,N,T4... $ C C P1=+N, SKIP FORWARD N MATRIX DATA BLOCKS OR TABLES BEFORE C WRITE. (EXCEPT THE FIRST HEADER RECORD. EACH C MATRIX DATA BLOCK OR TABLE, PRECEEDED BY A HEADER C RECORD, IS A COMPLETE MATRIX OR TABLE, MADE UP OF C MANY PHYSICAL RECORDS. C SKIP TO THE END OF TAPE IF P1 EXCEEDS THE C NO. OF DATA BLOCKS AVAILABLE ON THE OUTPUT FILE) C P1= 0, NO ACTION TAKEN BEFORE WRITE. (DEFAULT) C P1=-1, FORTRAN TAPE IS REWOUND, A TAPE HEADER RECORD IS C WRITTEN TO TAPE. DATA IN FIRST GINO DATA BLOCK IS C COPIED TO TAPE, FOLLOWED BY 4 MORE GINO DATA C BLOCKS IF THEY ARE PRESENT. C AT END, NO EOF WRITTEN, AND TAPE NOT REWOUND C P1=-3, THE NAMES OF ALL DATA BLOCKS ON FORTRAN TAPE C ARE PRINTED AND WRITE OCCURS AT THE END OF TAPE C P1=-9, WRITE AN INTERNAL END-OF-FILE RECORD, FOLLOWED BY C A SYSTEM ENDFILE MARK, AND REWIND FORTRAN TAPE C P2 IS THE FORTRAN UNIT NO. ON WHICH THE DATA BLOCKS WILL C BE WRITTEN. DEFAULT IS 15 (INP1 FOR UNIVAC, IBM, C VAX), OR UNIT 11 (UT1 FOR CDC) C C P3 IS TAPE ID IF GIVEN BY USER. DEFAULT IS XXXXXXXX C C P4= 0, OUTPUT FILE IS FORTRAN WRITTEN, UNFORMATTED C P4= 1, OUTPUT FILE IS FORTRAN WRITTEN, FORMATTED C (BCD IN 2A4, INTEGER IN I8, REAL IN 10E13.6 AND C D.P. IN 5D26.17) C P4= 2, SAME AS P4=1, EXECPT 5E26.17 IS USED FOR S.P. REAL C DATA. P4=2 IS USED ONLY IN MACHINES WITH LONG WORD C FOR ACCURACY (60 OR MORE BITS PER WORD) C C TI 10 WORD ARRAY USED ONLY BY TABLE BLOCK DATA. C TO OVERRIDE AUTOMATIC FORMAT TYPE SETTING. C C OUTPT5 LOGIC - C (P4=0) (P4=1) C RECORD WORD CONTENTS BINARY FORMAT C ------ ---- -------------------------------- ------- ------- C 0 TAPE HEADER RECORD - C 1,2 TAPEID 2*BCD 2A4 C 3,4 MACHINE (2ND WORD BLANK) 2*BCD 2A4 C 5-7 DATE 3*INT 3I8 C 8 SYSTEM BUFFSIZE INT I8 C 9 P4 (0,1, OR 2) INT I8 C 1A,1B% FIRST MATRIX HEADER RECORD - C 1 ZERO INT I8 C 2,3 ONE,ONE 2*INT 2I8 C 4 D.P. ZERO F.P. D26.17 C 5-10 MATRIX TRAILER 6*INT 6I8 C (COL,ROW,FORM,TYPE,MAX,DENSITY) C 11,12 DMAP NAME OF FIRST INPUT MATRIX 2*BCD 2A4 C 2A,2B 1 1 (FIRST MATRIX COLUMN ID) INT I8 C 2 COLUMN LOC. OF FIRST NON-ZERO ELEM. INT I8 C 3 COLUMN LOC. OF LAST NON-ZERO ELEM. INT I8 C 1-W FIRST BANDED COLUMN DATA F.P. (**) C (W=WORD3-WORD2) C 3A,3B 1 2 (SECOND MATRIX COLUMN ID) INT I8 C 2-3 FIRST AND LAST NON-ZERO ELEM LOC. 2*INT 2I8 C 1-W SECOND BANDED COLUMN DATA F.P. (**) C 4A,4B 1-3 THIRD MATRIX COLUMN, SAME FORMAT 3*INT 3I8 C 1-W AS RECORD 1 F.P. (**) C : : : C ZA,ZB 1 (A NULL COLUMN ID) INT I8 C 2,3 1,1 2*INT 2I8 C 1 0.0 F.P. (**) C : : : C MA,MB 1-3 LAST MATRIX COLUMN, SAME AS REC #2 3*INT 3I8 C 1-W LAST BANDED COLUMN DATA F.P. (**) C C SA,SB : SECOND MATRIX HEADER RECORD 3*INT+F.P. 3I8+D26. C +2*BCD +2*BCD C +6*INT +6I8 C S+1A,S+1B 1-W FIRST THRU LAST COLS OF 2ND MATRIX C : : REPEAT FOR MORE MATRICES C : : (UP TO 5 MATRIX DATA BLOCKS PER ONE OUTPUT FILE) C C EOFA,EOFB 1 -1 INT I8 C 2,3 1,1 2*INT 2I8 C 1 D.P. ZERO F.P. D26.17 C C - NOTE - C BCD AND INTEGERS IN 8 C SINGLE PRECISION REAL IN 13.6 C DOUBLE PRECISION DATA IN 26.17 C S.P. LOGN WORD MACHINE 26.17 C C WHERE % RECORDS A AND B ARE 2 (OR MORE) RECORDS ON FORMATTED C OUTPUT FILE, WHILE C A & B ARE 1 CONTINUOUS RECORD IN UNFORMATTED TAPE C (**) IS (10E13.6) FOR S.P.REAL, OR (5D26.17) FOR D.P. DATA. C OR (5E26.17) FOR S.P. AND D.P. DATA (P4=2 ONLY) C NOTE - C NO SYSTEM END-OF-FILE MARK WRITTEN BETWEEN MATRICES. C C TO READ BINARY TAPE TO READ FORMATTED TAPE C ---------------------------- -------------------------------- C LOGICAL SP,DP C INTEGER COL,ROW,FORM,TYPE,DENS,FILE(2),IZ(M,N) C * TAPEID(2),MAC(2),DATE(3),BUFSZ,P4 C DOUBLE PRECISION DZ(M/2,N/2),DTEMP C COMMON /ZZZZZZ/ Z(M,N) C EQUIVALENCE (Z,IZ,DZ) C DATA SP,DP / .TRUE.,.FALSE./ C READ (TAPE,ERR=7) READ (TAPE,10,ERR=7) C * TAPEID,MAC,DATE,BUFSZ,P4 C 1 K = 0 C 2 K = K + 1 C READ (TAPE,ERR=7,END=3) I,JB, IF (SP) READ (TAPE,8,ERR=7,END=3) C * JE I,JB,JE,( Z(J,K),J=JB,JE) C IF (DP) READ (TAPE,9,ERR=7,END=3) C * I,JB,JE,(DZ(J,K),J=JB,JE) C IF (I) 3, 4, 6 CC EOF,MATRIX-HEADER,COLUMN C 3 CONTINUE CC (EOF ENCOUNTERED, COMPLETE TAPE READ) C CALL EXIT C 4 BACKSPACE TAPE C BACKSPACE TAPE CC (MATRIX-HEADER READ) C READ (TAPE) J,J,J, READ (TAPE,11) J,J,J C * DTEMP,COL,ROW,FORM,TYPE,MAX,DENS,FILE C DP = .FALSE. C IF (TYPE.EQ.2 .OR. TYPE.EQ.4) DP=.TRUE. C SP = .NOT.DP C JTYP = TYPE C IF (TYPE .EQ. 3) JTYP = 2 C IF (COL*JTYP.GT.M .OR. ROW*JTYP.GT.N) STOP 'Z DIM ERR' C J = COL*ROW*JTYP C DO 5 I = 1,J C 5 Z(I,1) = 0.0 C GO TO 1 C 6 CONTINUE CC (A COLUMN OF MATRIX READ) C IF (I .NE. K) STOP 'COLUMN COUNTER MISSMATCH' C GO TO 2 C 7 STOP 'READ ERROR. CHECK TAPE FORMAT TYPE' C 8 FORMAT (3I8,/,(10E13.6)) C 9 FORMAT (3I8,/,(5D26.17)) C 10 FORMAT (4A4,5I8) C 11 FORMAT (3I8,/,D26.17,6I8,2A4) CC FOR LONG WORD MACHINE 8 FORMAT (3I8,/,(5E26.17)) C C SEE SUBROUTINE INPTT5 FOR MORE COMPREHENSIVE DETAILS IN RECOVERING C MATRIX DATA FROM THE TAPE GENERATED IN THIS OUTPT5 ROUTINE. C OR SUBROUTINE TABLE-V FOR TABLE DATA BLOCK RECOVERY. C C WRITTEN BY G.CHAN/UNISYS 1987 C IMPLICIT INTEGER (A-Z) LOGICAL P40,P40S,P40D,P41,P41S,P41D,P41C,COMPLX INTEGER TRL(9),NAME(2),TAPEID(2),SUBNAM(2),TI,DT(3), 1 FN(3,10),NONE(2) REAL RZ(1),X,ZERO DOUBLE PRECISION DZ(1),DX,DZERO CHARACTER*8 BINARY,FORMTD,BF CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 CWKBNB CHARACTER*80 DSNAMES COMMON /DSNAME/ DSNAMES(80) CWKBNE COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / P1,P2,P3(2),P4,TI(10) COMMON /MACHIN/ MACH,IJHALF(3),MCHNAM COMMON /SYSTEM/ IBUF,NOUT,DUM6(7),LINE,DUMM4(4),DATE(3), 1 DUM22(22),NBPW,DUM50(50),LPCH COMMON /ZZZZZZ/ IZ(1) COMMON /UNPAKX/ ITYP,II,JJ,INCR EQUIVALENCE (RZ(1),DZ(1),IZ(1)) DATA BINARY, FORMTD, SUBNAM / 1 'BINARY ', 'FORMATTD', 4HOUTP, 2HT5 / DATA ZERO, DZERO, IZERO, ONE, MONE, FN / 1 0.0, 0.0D0, 0, 1, -1, 30*4H / DATA MTRX, TBLE, BLANK / 4HMTRX, 4HTBLE, 4H / DATA NONE / 4H (NO, 4HNE) / C C IF MACHINE IS CDC OR UNIVAC, CALL CDCOPN OR UNVOPN TO OPEN OUTPUT C FILE, A FORMATTED SEQUENTIAL TAPE. NO CONTROL WORDS ARE TO BE C ADDED TO EACH FORMATTED RECORD. RECORD LENGTH IS 132 CHARACTERS, C AN ANSI STANDARD. C CWKBD IF (MACH .EQ. 3) CALL UNVOPN (P2) CWKBD IF (MACH .EQ. 4) CALL CDCOPN (P2) BF = BINARY IF (P4 .GE. 1) BF = FORMTD CALL PAGE CALL PAGE2 (1) WRITE (NOUT,3) UIM,BF,P1 3 FORMAT (A29,', MODULE OUTPUT5 CALLED BY USER DMAP ALTER, ON ',A8, 1 ' TAPE,', /5X,'WITH FOLLOWING REQUEST (P1=',I2,1H)) IF (P1 .EQ. -9) WRITE (NOUT,4) IF (P1 .EQ. -3) WRITE (NOUT,5) IF (P1 .EQ. -1) WRITE (NOUT,6) IF (P1 .EQ. 0) WRITE (NOUT,7) IF (P1 .GT. 0) WRITE (NOUT,8) P1 4 FORMAT (5X,'WRITE AN INTERNAL E-O-F RECORD, FOLLOWED BY A SYSTEM', 1 ' E-O-F MARK, AND REWIND OUTPUT TAPE') 5 FORMAT (5X,'REWIND TAPE, PRINT DATA BLOCK NAMES AND THEN WRITE ', 1 'AFTER THE LAST DATA BLOCK ON TAPE') 6 FORMAT (5X,'REWIND, WRITE A TAPE HEADER RECORD, THEN FOLLOWED BY ' 1, 'DATA BLOCKS WRITING.',/5X,'AT END, NO EOF AND NO REWIND') 7 FORMAT (5X,'DATA BLOCKS ARE WRITTEN STARTING AT CURRENT TAPE ', 1 'POSITION. AT END, NO EOF AND NO REWIND') 8 FORMAT (5X,'SKIP FORWARD',I4,' DATA BLOCKS BEFORE WRITING (TAPE ', 1 'HEADER RECORD NOT COUNTED AS A DATA BLOCK).', /5X, 2 'NO REWIND BEFORE SKIPPING. AT END, NO EOF AND NO REWIND') C BUF1 = KORSZ(RZ(1)) - IBUF - 1 IF (BUF1 .LE. 0) CALL MESAGE (-8,0,SUBNAM) OUT = P2 WRT = 0 LFN = -1 IF (P1 .EQ. -3) LFN = 0 C C SET P4 FLAGS C C SET P40 TO .TRUE. IF USER SPECIFIES P4 TO ZERO (BINARY) C SET P41 TO .TRUE. IF USER SPECIFIES P4 TO ONE (FORMATTED) C SET P40D TO .TRUE. IF P40 IS TRUE AND DATA IS IN D.P. C SET P40S TO .TRUE. IF P40 IS TRUE AND DATA IS IN S.P. C SET P41D TO .TRUE. IF P41 IS TRUE AND DATA IS IN D.P. C SET P41S TO .TRUE. IF P41 IS TRUE AND DATA IS IN S.P. C SET P41C TO .TRUE. IF P4=2, AND RESET P41S AND P41D TO .FALSE. C P40D = .FALSE. P41S = .FALSE. P41D = .FALSE. P41C = P4.EQ.2 .AND. NBPW.GE.60 P41 = .FALSE. IF (P4 .GE. 1) P41 = .TRUE. CWKBNB CLOSE ( UNIT=OUT ) IF ( P4 .NE. 0 ) GO TO 1 OPEN ( UNIT=OUT, FILE=DSNAMES(OUT), FORM='UNFORMATTED' 1 ,STATUS='UNKNOWN' ) GO TO 2 1 CONTINUE OPEN ( UNIT=OUT, FILE=DSNAMES(OUT), STATUS='UNKNOWN' ) 2 CONTINUE CWKBNE IF (P41C) GO TO 10 P41S = P41 IF (P41 ) P41D = .NOT.P41S 10 P40 = .NOT.P41 P40S = P40 IF (P40) P40D = .NOT.P40S IF (P1 .NE. -9) GO TO 20 C C FINAL CALL TO OUTPUT5 C IF (P40) WRITE (OUT ) MONE,ONE,ONE,DZERO IF (P41) WRITE (OUT,290) MONE,ONE,ONE,DZERO ENDFILE OUT REWIND OUT RETURN C 20 IF (P1 .EQ. -3) GO TO 60 IF (P1 .EQ. -1) GO TO 180 IF (P1) 30,190,65 C 30 WRITE (NOUT,35) UFM,P1 35 FORMAT (A23,' 4120, MODULE OUTPUT5 - ILLEGAL VALUE FOR FIRST ', 1 'PARAMETER = ',I8) 40 ERR = -37 50 CALL MESAGE (ERR,INPUT,SUBNAM) RETURN C C OLD TAPE. CHECK TAPE ID C 60 REWIND OUT 65 IF (P40) READ (OUT, END=150) TAPEID,NAME,DT,I,K IF (P41) READ (OUT,185,END=150) TAPEID,NAME,DT,I,K IF (TAPEID(1).EQ.P3(1) .AND. TAPEID(2).EQ.P3(2)) GO TO 70 WRITE (NOUT,67) TAPEID,P3 67 FORMAT ('0*** WRONG TAPE MOUNTED - TAPEID =',2A4,', NOT ',2A4) GO TO 40 70 CALL PAGE2 (6) WRITE (NOUT,75) TAPEID,NAME,DT,I 75 FORMAT (/5X,'MODULE OUTPUT5 IS PROCESSING TAPE ',2A4, /5X, 1 'WRITTEN BY ',2A4, /5X,'ON ',I2,1H/,I2,1H/,I2, /5X, 2 'BUFFSIZE USED =',I7,/) IF (K .EQ. 0) WRITE (NOUT,80) BINARY IF (K .GE. 1) WRITE (NOUT,80) FORMTD 80 FORMAT (5X,'ORIGINAL TAPE IS ',A8) IF (K .EQ. P4) GO TO 90 WRITE (NOUT,85) UFM,P4 85 FORMAT (A23,', THE 4TH PARAMETER TO OUTPUT5 DOES NOT AGREE WITH ', 1 'ORIG. TAPE FORMAT P4=',I5,/) CALL MESAGE (-37,0,SUBNAM) C C TO SKIP P1 MATRIX DATA BLOCKS OR TABLES ON THE OLD OUTPUT FILE C OR TO TABULATE TAPE CONTENTS IF P1 = -3 C 90 LFN = 0 100 IF (P40 ) READ (OUT, ERR=160,END=150) NC,JB,JE IF (P41S) READ (OUT,280,ERR=100,END=150) NC,JB,JE,( X,J=JB,JE) IF (P41C) READ (OUT,285,ERR=100,END=150) NC,JB,JE,( X,J=JB,JE) IF (P41D) READ (OUT,290,ERR=100,END=150) NC,JB,JE,(DX,J=JB,JE) IF (NC) 140,120,100 110 IF (P40 ) READ (OUT, ERR=160,END=150) L IF (P41 ) READ (OUT,115,ERR=100,END=150) L,(TABLE,J=1,L) 115 FORMAT (I10,24A5,/,(26A5)) IF (L) 140,120,110 120 IF (P1.NE.-3 .AND. LFN.GE.P1) GO TO 140 LFN = LFN + 1 BACKSPACE OUT IF (P41) BACKSPACE OUT IF (P40) READ (OUT ) I,I,I,DX,J,J,J,J,K,K,FN(1,LFN),FN(2,LFN) IF (P41) READ (OUT,250) I,I,I,DX,J,J,J,J,K,K,FN(1,LFN),FN(2,LFN) IF (K.GT.0 .AND. J.GE.1 .AND. J.LE.4) GO TO 130 FN(3,LFN) = TBLE GO TO 110 130 FN(3,LFN) = MTRX IF (P40) GO TO 100 P41S = .FALSE. P41D = .FALSE. P41C = P4.EQ.2 .AND. NBPW.GE.60 IF (P41C) GO TO 100 IF (J.EQ.1 .OR. J.EQ.3) P41S = .TRUE. P41D = .NOT.P41S GO TO 100 140 IF (P41) BACKSPACE OUT 150 BACKSPACE OUT IF (P1.EQ.-3 .AND. LFN.GT.0) GO TO 430 GO TO 200 C 160 WRITE (NOUT,170) UWM,TAPEID 170 FORMAT (A25,' FROM OUTPUT5 MODULE. ERROR WHILE READING ',2A4) GO TO 40 C C NEW TAPE (P1=-1) C C WRITE A TAPE IDENTIFICATION RECORD (NOTE -THIS IS THE ONLY TIME C A TAPE HEADER RECORD IS WRITTEN) C 180 IF (P1 .NE. -1) GO TO 200 REWIND OUT TRL(1) = P3(1) TRL(2) = P3(2) TRL(3) = MCHNAM TRL(4) = BLANK TRL(5) = DATE(1) TRL(6) = DATE(2) TRL(7) = DATE(3) IF (P40) WRITE (OUT ) (TRL(J),J=1,7),IBUF,P4 IF (P41) WRITE (OUT,185) (TRL(J),J=1,7),IBUF,P4 185 FORMAT (4A4,5I8) 190 LFN = 0 C C COPY MATRICES OR TABLES OUT TO TAPE C 200 DO 400 MX = 1,5 INPUT = MX + 100 CALL FNAME (INPUT,NAME) IF (NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 390 TRL(1) = INPUT CALL RDTRL (TRL) IF (TRL(1) .LE. 0) GO TO 390 IF (TRL(1) .GT. 0) GO TO 220 CALL PAGE2 (3) WRITE (NOUT,210) INPUT,NAME 210 FORMAT (/5X,'INPUT FILE ',2A4,'(',I3,') IS PURGED. NO DATA ', 1 'TRANSFERRED TO OUTPUT FILE') GO TO 400 220 IF (TRL(4).GT.8 .OR. TRL(5).GT.4 .OR. TRL(6).LE.0 .OR. TRL(7).LE.0 1 ) CALL TABLE5 (*400,INPUT,OUT,TRL,BUF1,WRT,LFN,FN) COL = TRL(2) ROW = TRL(3) TYPE = TRL(5) COMPLX = .FALSE. IF (TYPE .GE. 3) COMPLX = .TRUE. C C CHECK FOR NULL MATRIX C IF (ROW.EQ.0 .OR. COL.EQ.0 .OR. TYPE.EQ.0) GO TO 380 C C SET FLAGS FOR FORMATTED OR UNFORMATTED WRITE, SINGLE OR DOUBLE C PRECISION DATA, THEN WRITE THE MATRIX HEADER WITH PROPER FORMAT. C MATRIX HEADER CONSISTS OF ONE SCRATCH WORD, ORIGINAL MATRIX C TRAILER, AND MATRIX DMAP NAME C P40S = .FALSE. P40D = .FALSE. P41S = .FALSE. P41D = .FALSE. P41C = P4.EQ.2 .AND. NBPW.GE.60 IF (P41) GO TO 230 IF (TYPE.EQ.1 .OR. TYPE.EQ.3) P40S = .TRUE. P40D = .NOT.P40S GO TO 240 230 IF (P41C) GO TO 240 IF (TYPE.EQ.1 .OR. TYPE.EQ.3) P41S = .TRUE. P41D = .NOT.P41S 240 IF (P40) WRITE (OUT ) IZERO,ONE,ONE,DZERO,(TRL(K),K=2,7),NAME IF (P41) WRITE (OUT,250) IZERO,ONE,ONE,DZERO,(TRL(K),K=2,7),NAME 250 FORMAT (3I8,/,D26.17,6I8,2A4) WRT = 1 C C OPEN INPUT DATA BLOCK AND SAVE DMAP NAME IN FN ARRAY C ERR = -1 CALL OPEN (*50,INPUT,RZ(BUF1),0) CALL FWDREC (*50,INPUT) IF (LFN.EQ.-1 .OR. LFN.GE.10) GO TO 260 LFN = LFN + 1 FN(1,LFN) = NAME(1) FN(2,LFN) = NAME(2) FN(3,LFN) = MTRX C C UNPACK A MATRIX COLUMN, AND WRITE TO OUTPUT FILE THE BANDED DATA C (FROM FIRST TO LAST NON-ZERO ELEMENTS) C 260 ITYP = TYPE INCR = 1 DO 320 NC = 1,COL II = 0 JJ = 0 CALL UNPACK (*300,INPUT,RZ) JB = II JE = JJ NWDS = JJ - II + 1 IF (.NOT.COMPLX) GO TO 270 NWDS = NWDS + NWDS JE = NWDS + JB - 1 270 IF (NWDS .GT. BUF1) CALL MESAGE (-8,0,SUBNAM) IF (P40S) WRITE (OUT) NC,JB,JE,(RZ(J),J=1,NWDS) IF (P40D) WRITE (OUT) NC,JB,JE,(DZ(J),J=1,NWDS) IF (P41S) WRITE (OUT,280,ERR=480) NC,JB,JE,(RZ(J),J=1,NWDS) IF (P41C) WRITE (OUT,285,ERR=480) NC,JB,JE,(RZ(J),J=1,NWDS) IF (P41D) WRITE (OUT,290,ERR=480) NC,JB,JE,(DZ(J),J=1,NWDS) 280 FORMAT (3I8,/,(10E13.6)) 285 FORMAT (3I8,/,(5E26.17)) 290 FORMAT (3I8,/,(5D26.17)) GO TO 320 C C A NULL COLUMN C 300 JE = 1 IF (COMPLX) JE = 2 IF (P40S) WRITE (OUT ) NC,ONE,JE,( ZERO,I=1,JE) IF (P40D) WRITE (OUT ) NC,ONE,JE,(DZERO,I=1,JE) IF (P41S) WRITE (OUT,280) NC,ONE,JE,( ZERO,I=1,JE) IF (P41C) WRITE (OUT,285) NC,ONE,JE,( ZERO,I=1,JE) IF (P41D) WRITE (OUT,290) NC,ONE,JE,(DZERO,I=1,JE) 320 CONTINUE C C CLOSE INPUT DATA BLOCK WITH REWIND. C CALL CLOSE (INPUT,1) CALL PAGE2 (10) WRITE (NOUT,350) NAME,OUT,(TRL(J),J=2,5),IBUF 350 FORMAT (/5X,'MODULE OUTPUT5 UNPACKED MATRIX DATA BLOCK ',2A4, 1 ' AND WROTE IT OUT TO', /5X,'FORTRAN UNIT',I4, 2 ', IN BANDED DATA FORM (FIRST TO LAST NON-ZERO ELEMENTS)', 3 /9X,'NO. OF COLS =',I8, /9X,'NO. OF ROWS =',I8, /16X, 4 'FORM =',I8, /16X,'TYPE =',I8, /5X,'SYSTEM BUFFSIZE =',I8) IF (P40 ) WRITE (NOUT,360) IF (P41S) WRITE (NOUT,365) IF (P41C) WRITE (NOUT,370) IF (P41D) WRITE (NOUT,375) 360 FORMAT (5X,'IN FORTRAN BINARY RECORDS') 365 FORMAT (5X,'IN FORTRAN FORMATTED RECORDS - (3I8,/,(10E13.6))') 370 FORMAT (5X,'IN FORTRAN FORMATTED RECORDS - (3I8,/,(5E26.17))') 375 FORMAT (5X,'IN FORTRAN FORMATTED RECORDS - (3I8,/,(5D26.17))') GO TO 400 C C NULL MATRIX, OR GINO DATA BLOCK IS NOT A MTRIX FILE C 380 CALL PAGE2 (5) WRITE (NOUT,385) UWM,NAME 385 FORMAT (A25,' FROM OUTPUT5 MODULE. ',2A4,' IS EITHER A NULL ', 1 'MATRIX OR NOT A MATRIX DATA BLOCK', /5X, 2 'NO DATA WERE COPIED TO OUTPUT FILE',/) GO TO 400 C 390 TRL(1) = INPUT + 1 CALL RDTRL (TRL) IF (TRL(1) .GT. 0) WRITE (NOUT,395) UWM,INPUT,NAME 395 FORMAT (A25,' FROM OUTPUT5 MODULE. INPUT DATA BLOCK',I5,2H, ,2A4, 1 ' IS EITHER PURGED OR DOES NOT EXIST') C 400 CONTINUE C IF (WRT .EQ. 0) WRITE (NOUT,410) UWM 410 FORMAT (A25,' FROM OUTPUT5 MODULE. NO DATA BLOCK WRITTEN TO ', 1 'OUTPUT FILE') ENDFILE OUT BACKSPACE OUT IF (P1 .EQ. -3) GO TO 460 C C PRINT LIST OF DATA BLOCKS ON FORTRAN TAPE (P1=-3). C IF (LFN .LE. 0) RETURN 430 CALL PAGE2 (LFN+10) WRITE (NOUT,440) OUT,MCHNAM,BF,(J,FN(1,J),FN(2,J),FN(3,J), 1 J=1,LFN) 440 FORMAT (/5X,'SUMMARY FROM OUTPUT5 MODULE', //16X,'DATA BLOCKS ', 1 'WRITTEN TO FORTRAN UNIT',I4, /17X,'(BY ',A4,' MACHINE, ', 2 A8,' RECORDS)', ///22X,'FILE',8X,'NAME',8X,'TYPE' /17X, 3 9(4H----), /,(22X,I3,9X,2A4,4X,A4)) IF (P1 .EQ. -3) GO TO 200 IF (P40) GO TO 460 CALL PAGE2 (2) WRITE (NOUT,450) 450 FORMAT (/5X,'THIS FORMATTED OUTPUT FILE CAN BE VIEWED OR EDITED', 1 ' VIA SYSTEM EDITOR',/) C 460 IF (MACH .EQ. 3) CALL UNVCLS (P2) IF (MACH .EQ. 4) CALL CDCCLS (P2) RETURN C C WRITE ERROR C 480 WRITE (NOUT,490) SFM 490 FORMAT (A25,' IN WRITING OUTPUT FILE', /5X,'IBM USER - CHECK FILE' 1, ' ASSIGNMENT FOR DCB PARAMETER OF 132 BYTES') CALL MESAGE (-37,0,SUBNAM) END ================================================ FILE: mis/page.f ================================================ SUBROUTINE PAGE C C MASTER PAGING ROUTINE FOR NASTRAN. C INTEGER OTPE,DATE,CRDATE,SYM,TITLEX(18),NAME(2),FCHAR CHARACTER MONTH(12)*3,AHEAD*30,MCHNAM*11,MACHOS*7 COMMON /CHMACH/ MCHNAM, MACHOS COMMON /MACHIN/ MACH(4) COMMON /SYSTEM/ SYSBUF,OTPE,MPCN(3),SPCN,METHOD,LOADN,SYM,ST, 1 IPAGE,LINE,ITLINE,MAXLIN,DATE(3),DUM15(15),IOFP, 2 X(8),CRDATE(3) COMMON /OUTPUT/ TITLE(32),SUBTIT(32),LABEL(32),HEAD1(32), 1 HEAD2(32),HEAD3(32) EQUIVALENCE (TITLEX(1),TITLE(1)) DATA MONTH /'JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', 1 'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC'/ DATA NAME / 4HPAGE, 4H / C IOUT = 1 10 IPAGE = IPAGE + 1 ITLINE= ITLINE + LINE LINE = 0 IF (ITLINE .GT. MAXLIN) GO TO 70 IN = DATE(1) C C ASSEMBLE PAGE HEADING C AHEAD = ' ' NCMNAM = INDEX(MCHNAM,' ') - 1 IF (NCMNAM .LE. -1) NCMNAM = 11 NCMOS = INDEX(MACHOS,' ') - 1 IF (NCMOS .LE. -1) NCMOS = 7 FCHAR = (18 - NCMNAM - NCMOS)/2 + 1 WRITE (AHEAD(FCHAR:FCHAR+1),15) CRDATE(3) 15 FORMAT (A2) FCHAR = FCHAR + 3 AHEAD(FCHAR:30) = MCHNAM(1:NCMNAM) // ' ' // MACHOS(1:NCMOS) // 1 ' NASTRAN' C WRITE (OTPE,20) TITLEX, AHEAD, MONTH(IN),DATE(2),DATE(3),IPAGE 20 FORMAT (1H1,4X,17A4,A2,' /',A30,'/ ',A3,1X,I2,', ',I2, 1 ' / PAGE',I6) WRITE (OTPE,30) SUBTIT 30 FORMAT (5X,31A4,A3) WRITE (OTPE,40) LABEL 40 FORMAT (1H0,4X,31A4,A3) LINE = LINE + 4 IF (IOUT .EQ.0) GO TO 60 WRITE (OTPE,40) (HEAD1(I),I=1,32) WRITE (OTPE,30) (HEAD2(I),I=1,32) WRITE (OTPE,30) (HEAD3(I),I=1,32) LINE = LINE + 4 60 RETURN C C MAX LINES EXCEEDED. BUMP MAXLINES BY 3000 AND CALL MESAGE C 70 MAXLIN = MAXLIN + 3000 CALL MESAGE (-19,ITLINE,NAME) GO TO 60 C C ENTRY PAGE1 C =========== C IOUT = 0 GO TO 10 END ================================================ FILE: mis/page2.f ================================================ SUBROUTINE PAGE2 (LINES) C C 2ND MASTER PAGING ROUTINE FOR NASTRAN C C IABS(LINES) = NO. OF LINES TO BE ADDED FOR OUTPUT C IF CURRENT PAGE CAN NOT ACCOMODATE THE INCOMING LINES, A NEW PAGE C IS INITIATED WITH PROPER HEADINGS. C C IF LINES IS NEGATIVE, A 6-LINE HEADER IS PRINTED. C IF LINES IS POSITIVE, A 3-LINE HEADER IS PRINTED AND FOLLOWED BY C 3 BLANK LINES. C C ENTRY POINT PAGE3 - C A 3-LINE HEADER IS PRINTED, NO BLANK LINES FOLLOWED. LINES CAN BE C NEGATIVE OR POSITIVE. C C SIMPLIFIED BY G.CHAN/UNISYS, AND PAGE3 ADDED 12/92 C IMPLICIT INTEGER (A-Z) INTEGER TITLEX(18),NAME(2),FCHAR CHARACTER MONTH(12)*3,AHEAD*30,MCHNAM*11,MACHOS*7 COMMON /CHMACH/ MCHNAM, MACHOS COMMON /MACHIN/ MACH(4) COMMON /SYSTEM/ IBUF,NOUT,DUM6(6),SYM,ST,PAGE,LINE,TLINE,MAXLIN, 1 DATE(3),DUM15(15),OFP,DUM8(8),CRDATE(3) COMMON /OUTPUT/ TITLE(32),SUBTIT(32),LABEL(32),HEAD1(32), 1 HEAD2(32),HEAD3(32) EQUIVALENCE (TITLEX(1),TITLE(1)) DATA MONTH /'JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', 1 'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC'/ DATA NAME / 4H PAG, 4HE2 / C FLAG = 2 C 10 IF (LINES .EQ. 0) GO TO 100 LL = IABS(LINES) IF (SYM-LINE.LT.LL .OR. OFP.NE.0) GO TO 30 20 LINE = LINE + LL GO TO 100 C 30 PAGE = PAGE + 1 TLINE = TLINE + LINE LINE = 0 IF (TLINE .GT. MAXLIN) GO TO 90 IN = DATE(1) C C ASSEMBLE PAGE HEADING C AHEAD = ' ' NCMNAM = INDEX(MCHNAM,' ') - 1 IF (NCMNAM .LE. -1) NCMNAM = 11 NCMOS = INDEX(MACHOS,' ') - 1 IF (NCMOS .LE. -1) NCMOS = 7 FCHAR = (18 - NCMNAM - NCMOS)/2 + 1 WRITE (AHEAD(FCHAR:FCHAR+1),35) CRDATE(3) 35 FORMAT (A2) FCHAR = FCHAR + 3 AHEAD(FCHAR:30) = MCHNAM(1:NCMNAM) // ' ' // MACHOS(1:NCMOS) // 1 ' NASTRAN' C WRITE (NOUT,40) TITLEX, AHEAD, MONTH(IN),DATE(2),DATE(3),PAGE 40 FORMAT (1H1,4X,17A4,A2,' /',A30,'/ ',A3,1X,I2,', ',I2, 1 ' / PAGE',I6) WRITE (NOUT,50) SUBTIT 50 FORMAT ( 5X,31A4,A3) WRITE (NOUT,60) LABEL 60 FORMAT (/5X,31A4,A3) LINE = LINE + 4 IF (FLAG .LT. 0) GO TO 20 IF (LINES .GT. 0) GO TO 70 C WRITE (NOUT,60) (HEAD1(I),I=1,32) WRITE (NOUT,50) (HEAD2(I),I=1,32) WRITE (NOUT,50) (HEAD3(I),I=1,32) LINE = LINE + 4 GO TO 20 C 70 WRITE (NOUT,80) 80 FORMAT (///) LINE = LINE + 4 GO TO 20 C C MAX LINES EXCEEDED. BUMP MAXLINES BY 3000 AND CALL MESAGE C 90 MAXLIN = MAXLIN + 3000 CALL MESAGE (-19,TLINE,NAME) C 100 OFP = 0 RETURN C C ENTRY PAGE3 (LINES) C =================== C FLAG = -3 GO TO 10 C END ================================================ FILE: mis/pakcol.f ================================================ SUBROUTINE PAKCOL(TERMS,NTERMS) C C PACKS OUT A COLUMN OF AF OR DKGG MATRIX - DATA IS IN THE C FOLLOWING SAMPLE FORMATS. C C --------------------- C I NEGATIVE ROWSIL I C I-------------------I C I 1 MATRIX TERM I C I-------------------I C I POSITIVE ROWSIL I C I-------------------I C I I C I 3 MATRIX TERMS I C I I C --------------------- C C MATRIX TERMS ARE IN DOUBLE PRECISION C C DOUBLE PRECISION VAL ,TVAL C INTEGER TERMS(1) ,A ,TEMP(7) C C PACK COMMON BLOCK C COMMON / ZBLPKX / A(4) ,IROW C EQUIVALENCE ( VAL , A(1) ) EQUIVALENCE ( TVAL , A(3) ) C C*********************************************************************** C C SORT THE MATRIX ENTRIES BY ABSOULUTE SIL VALUES C ILOC = 1 10 ISIL = TERMS(ILOC) JLOC = ILOC JSIL = ISIL 20 JLOC = JLOC + 3 IF(JSIL .GT. 0) JLOC = JLOC + 4 IF(JLOC .GE. NTERMS) GO TO 60 JSIL = TERMS(JLOC) IF(IABS(JSIL) .GE. IABS(ISIL)) GO TO 20 C NT = 3 IF(JSIL .GT. 0) NT = 7 DO 30 I=1,NT 30 TEMP(I) = TERMS(JLOC+I-1) C KLOC = JLOC - 1 DO 40 I=ILOC,KLOC J = KLOC - I + ILOC 40 TERMS(J+NT) = TERMS(J) C DO 50 I=1,NT 50 TERMS(ILOC+I-1) = TEMP(I) ISIL = JSIL GO TO 20 C 60 ILOC = ILOC + 3 IF(ISIL .GT. 0) ILOC = ILOC + 4 IF(ILOC .LT. NTERMS) GO TO 10 C C PACK OUT TERMS - ADDING ANY IDENTICAL SIL C ILOC = 1 70 IROW = IABS(TERMS(ILOC)) NT = 2 IF(TERMS(ILOC) .GT. 0) NT = 6 C DO 100 I=1,NT,2 A(1) = TERMS(ILOC+I) A(2) = TERMS(ILOC+I+1) JLOC = ILOC 80 J = JLOC JLOC = J + 3 IF(TERMS(J) .GT. 0) JLOC = J + 7 IF(JLOC .GE. NTERMS) GO TO 90 IF(TERMS(JLOC) .NE. TERMS(ILOC)) GO TO 90 C C DUPLICATE SILS - ADD THEM C A(3) = TERMS(JLOC+I) A(4) = TERMS(JLOC+I+1) VAL = VAL + TVAL J = JLOC GO TO 80 C C PACK OUT TERM C 90 CONTINUE CALL ZBLPKI 100 IROW = IROW + 1 C ILOC = JLOC IF(ILOC .LT. NTERMS) GO TO 70 C RETURN END ================================================ FILE: mis/param.f ================================================ SUBROUTINE PARAM (SETID,XX,BUF4) C C THIS PARAM ROUTINE IS CALLED ONLY BY DPLOT, WHICH IS THE DRIVER C OF THE PLOT MODULE ==== == ===== C C THE DRIVER FOR THE PARAM MODULE IS QPARAM C LOGICAL TEST INTEGER SETID(1),XX(1) ,BUF4 ,BUF1 ,BUFSIZ ,TITLE , 1 PRNT ,PARM ,PLTBUF ,CAMERA ,BFRAMS ,PLTMOD , 2 TAPDEN ,PENSIZ ,PENCLR ,PAPTYP ,AXIS ,DAXIS , 3 FVP ,PRJECT ,FOR ,ORG ,ORIGIN ,PLOTER , 4 WORD ,AWRD(2) ,ERR(3) ,BLANK ,PLTNAM(2),EOR , 5 TRA ,WHERE ,DIRECT ,FSCALE ,PLTYPE ,FPLTIT , 6 PLTITL ,SAVTIT(96),MSG1(20),MSG2(20) ,MSG4(22) ,MSG5(16), 7 ANTI ,AXISD(7) ,BOTH ,BPI ,BY ,COLO , 8 COMM ,DEFO ,DENS ,DISP ,EVEN ,FILM , 9 FRAM ,HMODE ,HPLOT(2) ,HKEY(19) ,HX ,OESX , O NKWD(3) ,ICNDA(20),PLAN ,POIN ,PAPE ,SEPA , 1 SIZE ,STRE ,SYMM ,TYPE ,Z1 ,Z2 , 2 FILL ,COLOR ,LAYER ,OES1 ,OES1L ,ONRGY1 REAL MAXDEF DOUBLE PRECISION DWRD COMMON /SYSTEM/ KSYSTM(65) COMMON /OUTPUT/ TITLE(96) COMMON /BLANK / SKP11(3) ,PRNT ,SKP12(6) ,PARM ,SKP2(9) , 1 MERR ,SKPIT(2) ,OESX COMMON /XXPARM/ PLTBUF ,CAMERA ,BFRAMS ,PLTMOD(2),TAPDEN , 1 NPENS ,PAPSIZ(2),PAPTYP(2),PENSIZ(8) , 2 PENCLR(8,2),PENPAP ,SCALE(2) ,FSCALE ,MAXDEF , 3 DEFMAX ,AXIS(3) ,DAXIS(3) ,VANGLE(3) , 4 SKPVUE(6),FVP ,VANPNT(5),D02 ,D03 , 5 PRJECT ,S0S ,FOR ,ORG ,NORG , 6 ORIGIN(11),EDGE(11,4),XY(11,3),NCNTR ,CNTR(50), 7 ICNTVL ,WHERE ,DIRECT ,SUBCAS ,FLAG , 8 DATA ,LASSET ,FPLTIT ,PLTITL(17) , 9 COLOR ,LAYER COMMON /PLTDAT/ MODEL ,PLOTER ,SKPPLT(17),CHRSCL ,SKPA(2) , 1 CNTSIN ,SKPD1(6) ,PLTYPE ,SKPD2(3),CNTIN3 EQUIVALENCE (KSYSTM(1),BUFSIZ) ,(PAPE,HKEY(10)) , 1 (WORD,AWRD(1),DWRD ,FWRD,IWRD) C C THE FOLLOWING ARE THE ALLOWABLE FIRST WORDS ON THE LOGICAL CARD. C THE PROJECTION DETERMINES HOW MANY WORDS ARE CHECKED. C C OES1 IS THE NORMAL STRESS FILE, 111 C OES1L IS THE LAYER COMPOSITE STRESS FILE, 112 C ONRGY1 IS THE ELEMENT STRAIN ENERGY FILE, 113 C DATA OES1 , OES1L , ONRGY1 /111,112,113 / DATA NKWD / 17,19,19/ , BLANK4 /4H / DATA HKEY / 4HFIND, 4HVIEW, 4HAXES, 4HMAXI, 4HORTH, 4HPERS, 1 4HSTER, 4HCONT, 4HCAME, 4HPAPE, 4HPEN , 4HBLAN, 2 4HORIG, 4HSCAL, 4HCSCA, 4HPROJ, 4HPTIT, 4HOCUL, 3 4HVANT/ C C THE FOLLOWING ARE RECOGNIZABLE PARAMETERS C DATA AXISD/ 2HMZ , 2HMY, 2HMX, 0, 1HX, 1HY, 1HZ /, 1 ANTI / 4HANTI/, BOTH/ 4HBOTH/, BPI / 4HBPI /, BY /4HBY /, 2 COLO / 4HCOLO/, DEFO/ 4HDEFO/, DENS/ 4HDENS/, FILM/4HFILM/, 3 FRAM / 4HFRAM/,HMODE/ 4HMODE/,HPLOT/ 4HPLOT, 4HTER /, 4 HX / 4HX /, PLAN/ 4HPLAN/, POIN/ 4HPOIN/, SEPA/4HSEPA/, 5 SIZE / 4HSIZE/, SYMM/ 4HSYMM/, TYPE/ 4HTYPE/, C C CONTOUR PLOTTING C 6 DISP / 4HDISP/, STRE/ 4HSTRE/, EVEN/ 4HEVEN/, LAYE/ 4HLAYE/, 7 LIST / 4HLIST/, Z1 / 2HZ1 /, Z2 / 2HZ2 /, MAX / 3HMAX /, 8 MID / 3HMID /, COMM/ 4HCOMM/, LOCA/ 4HLOCA/, FILL/ 4HFILL/ C DATA ICNDA /4HMAJP, 4HMINP, 4HMAXS, 4HXNOR, 4HYNOR, 4HZNOR, 1 4HXYSH, 4HXZSH, 4HYZSH, 4HXDIS, 4HYDIS, 4HZDIS, 4HMAGN, 2 4HNRM1, 4HNRM2, 4HSH12, 4HSH1Z, 4HSH2Z, 4HBDSH, 4HSTRA/ C DATA EOR , BLANK/ 1000000, 1H /, 1 NMSG5 , MSG5 / 16,4H(25X, 4H,31H, 4HMORE, 4H THA, 4HN 50, 2 4H CON, 4HTOUR, 4HS SP, 4HECIF, 4HIED,, 4H1P,E, 4H14.6, 3 4H,9H , 4HREJE, 4HCTED, 4H) / DATA NMSG1 / 20 / DATA MSG1 / 4H(34X ,4H,45H ,4HAN A ,4HTTEM ,4HPT H , 1 4HAS B ,4HEEN ,4HMADE ,4H TO ,4HDEFI , 2 4HNE M ,4HORE ,4HTHAN ,4H ,I2 ,4H,17H , 3 4H DIS ,4HTINC ,4HT OR ,4HIGIN ,4HS) / DATA NMSG2 / 20 / DATA MSG2 / 4H(30X ,4H,34H ,4HAN U ,4HNREC ,4HOGNI , 1 4HZABL ,4HE PL ,4HOT P ,4HARAM ,4HETER , 2 4H (,2 ,4HA4,2 ,4H9H) ,4HHAS ,4HBEEN , 3 4H DET ,4HECTE ,4HD - ,4HIGNO ,4HRED) / DATA NMSG4 / 22 / DATA MSG4 / 4H(25X ,4H,4HP ,4HEN , ,4HI4,6 ,4H9H I , 1 4HS NO ,4HT A ,4HLEGA ,4HL PE ,4HN NU , 2 4HMBER ,4H FOR ,4H THI ,4HS PL ,4HOTTE , 3 4HR. P ,4HEN 1 ,4H WIL ,4HL BE ,4H RED , 4 4HEFIN ,4HED.) / DATA TEST / .FALSE. / C C C COMMENTS FROM G.CHAN/UNISYS ABOUT THE NOFIND FLAG 11/1990 C C THE NOFIND FLAG WAS TOO CONFUSING BEFORE. I'M SETTING THE NEW RULE C HERE C C NOFIND FLAG IS USED IN PARAM AND PLOT ROUTINES ONLY. ITS USE IS C TO INDICATE WHETHER SUBROUTINE FIND SHOULD BE CALLED. C (SUBROUTINE FIND COMPUTES THE NEW ORIGIN, FRAME SIZE, NEW VIEW, C VANTAGE POINT ETC. DUE TO CERTAIN PLOT PARAMETERS). C NOFIND FLAG CAN BE SET BY USER VIA THE FIND AND NOFIND COMMANDS, C OR IT IS SET AUTOMATICALLY BY THIS PARAM SUBROUTINE. C C NOFIND ACTION C -------- ---------------------------------------------------- C -1 FIND ROUTINE SHOULD BE CALLED IN NEXT OPPORTUNITY C BEFORE THE ACTUAL PLOTTING C +1 (1) A NOFIND CARD WAS ENCOUNTERED. USER WANTS TO KEEP C ALL PARAMETERS AS IN THE PREVIOUS PLOT CASE, OR C (2) FIND ROUTINE WAS JUST CALLED. PROGRAM SHOULD NOT C CALL FIND AGAIN C 0 THE CURRENT STATUS OF ALL PARAMETERS THAT WERE FOUND C BY PREVIOUS FIND REMAIN UNCHANGED. HOWEVER, ANY C CHANGE IN THE PLOT PARAMETERS BY THE USER (SCALE, C CSCALE, VIEW, VENTAGE POINT, REGION, ORIGIN, PLOTTER, C MAX.DEFORMATION, PROJECTION AND PAPER SIZE) WILL C CHANGE NOFIND FLAG TO -1 C C IF A FIND COMMAND IS ENCOUNTERED, SUBROUTINE FIND IS CALLED C IMMEDIATELY AND UNCONDISIONALLY, THEN NOFIND FLAG IS SET TO +1 C C IF USER HAS ALREADY ONE OR MORE ORIGINS, AND IF HE USES A FIND C CARD TO FIND ANOTHER ORIGIN, BUT THE NEXT PLOT CARD DOES NOT USE C THIS NEWLY DEFINED ORIGIN, A WARNING MESSAGE SHOULD BE ISSUED TO C INFORM THE USER THAT THE DEFAULT ORIGIN, WHICH IS THE FIRST C DEFINDED ORIGIN, IS GOING TO BE USED, NOT THE ONE HE JUST DEFINED C NOFIND = -1 LASSET = 0 CALL PLTSET BUF1 = BUF4 + 3*BUFSIZ C C SAVE THE TITLE, SUBTITLE AND LABEL IF DEFORMED PLOTS ... C IF (PRNT .GE. 0) GO TO 30 DO 10 I = 1,96 10 SAVTIT(I) = TITLE(I) 20 NOFIND = 0 30 CALL RDMODX (PARM,MODE,WORD) 40 CALL READ (*1800,*1800,PARM,MODE,1,0,I) IF (MODE) 50,40,60 50 I = 1 IF (MODE .EQ. -4) I = 2 CALL FREAD (PARM,0,-I,0) GO TO 40 60 IF (MODE .LT. EOR) GO TO 70 CALL FREAD (PARM,0,0,1) GO TO 40 70 MODE = MODE + 1 CALL RDWORD (MODE,WORD) CALL RDWORD (MODE,WORD) IF (AWRD(1) .NE. HPLOT(1)) GO TO 160 IF (AWRD(2) .EQ. BLANK) GO TO 110 IF (AWRD(2) .EQ. HPLOT(2)) GO TO 900 GO TO 1750 C C FIND C 100 CALL FIND (MODE,BUF1,BUF4,SETID,XX) NOFIND = +1 IF (MODE .GE. 0) GO TO 30 MODE = MODEX GO TO 130 C C PLOT C 110 IF (TEST) GO TO 130 C C WHEN PLOTTER OR PROJECTION WERE HIT C FSCALE=FOR=FVP=1 C PROJECTION=KWRD-4, SOME NUMBER C WHEN SCALE IS HIT, FSCALE SET TO 0 C WHEN VANTAGE POINT IS HEIT, FVP SET TO 0 C WHEN ORIGIN IS HIT, ORG SET TO 0 C IF (FSCALE.NE.0 .OR. FOR.NE.0) GO TO 120 IF (PRJECT.EQ.1 .OR. FVP.EQ.0) GO TO 130 120 MODEX = MODE MODE = -1 ORG = MAX0(1,ORG) GO TO 100 130 CALL PLOT (MODE,BUF1,BUF4,SETID,XX,NOFIND) OESX = OES1 IF (NOFIND .EQ. -1) ORG = MAX0(1,ORG) GO TO 20 C C PLOT PARAMETER CARD. C 140 IF (MODE .LE. 0) CALL RDMODE (*140,*150,*40,MODE,WORD) 150 CALL RDWORD (MODE,WORD) 160 I = NKWD(PRJECT) DO 170 KWRD = 1,I IF (HKEY(KWRD) .EQ. WORD) GO TO 200 170 CONTINUE GO TO 1750 C 200 GO TO (100, 1230, 250, 500, 230, 230, 230, 1300, 400, 700, 1 800, 440, 600, 1120, 1700, 1100, 1720, 520, 1200), KWRD C C FIND VIEW AXES MAXI ORTH PERS STER CONT CAME PAPE C 1 PEN BLAN ORIG SCAL CSCA PROJ PTIT OCUL VANT C C C RECHECK IF PROJECTION CARD C 210 DO 220 KWRD = 5,7 IF (WORD .EQ. HKEY(KWRD)) GO TO 230 220 CONTINUE GO TO 1750 C C PROJECTION C 230 PRJECT = KWRD-4 VANGLE(1) = 0. VANGLE(2) =-1.E10 VANGLE(3) = 34.27 FSCALE = 1 FVP = 1 FOR = 1 IF (NOFIND .EQ. 0) NOFIND = -1 CALL RDWORD (MODE,WORD) IF (WORD .NE. HKEY(16)) GO TO 140 C C READ SECOND WORD OF ORTHO.,PERS.,OR STERO. SHOULD BE PROJECTION C IF (ORG .EQ. 0) GO TO 140 DO 240 I = 1,ORG EDGE(I,1) = 0. EDGE(I,2) = 0. EDGE(I,3) = 1. EDGE(I,4) = 1. 240 CONTINUE ORG = 0 GO TO 140 C C AXES C 250 DO 290 J = 1,3 IF (MODE .EQ. 0) CALL RDMODE (*140,*260,*40,MODE,WORD) 260 CALL RDWORD (MODE,WORD) DO 270 I = 1,7 IF (WORD .EQ. AXISD(I)) GO TO 280 270 CONTINUE GO TO 310 280 AXIS(J) = I - 4 290 CONTINUE IF (MODE .EQ. 0) CALL RDMODE (*320,*300,*320,MODE,WORD) 300 CALL RDWORD (MODE,WORD) 310 IF (WORD .EQ. ANTI) GO TO 330 320 K = 1 GO TO 340 330 K = -1 340 DO 350 J = 1,3 DAXIS(J) = K*AXIS(J) 350 CONTINUE IF (MODE .GE. EOR) GO TO 40 IF (MODE.LT.0 .OR. WORD.EQ.SYMM .OR. WORD.EQ.ANTI) GO TO 140 GO TO 160 C C CAMERA C 400 ASSIGN 420 TO TRA IF (MODE .LE. 0) CALL RDMODE (*1910,*410,*40,MODE,WORD) 410 CALL RDWORD (MODE,WORD) N = 2 IF (WORD .EQ. FILM) N = 1 IF (WORD .EQ. PAPE) N = 2 IF (WORD .EQ. BOTH) N = 3 IF (N) 430,1750,430 420 N = IWRD 430 CAMERA = N GO TO 140 C C BLANK FRAMES C 440 IF (MODE .EQ. 0) GO TO 1750 CALL RDWORD (MODE,WORD) IF (WORD.NE.FRAM .OR. MODE.NE.0) GO TO 1750 ASSIGN 450 TO TRA GO TO 1900 450 BFRAMS = IWRD GO TO 140 C C MAXIMUM DEFORMATION C 500 IF (MODE .LE. 0) GO TO 1750 CALL RDWORD (MODE,WORD) IF (WORD.NE.DEFO .OR. MODE.NE.0) GO TO 1750 ASSIGN 510 TO TRA GO TO 1940 510 MAXDEF = FWRD GO TO 140 C C OCULAR SEPARATION C 520 IF (MODE .LE. 0) GO TO 1750 CALL RDWORD (MODE,WORD) IF (WORD.NE.SEPA .OR. MODE.NE.0) GO TO 1750 ASSIGN 530 TO TRA GO TO 1940 530 S0S = FWRD GO TO 140 C C ORIGIN C 600 IF (MODE .NE. 0) GO TO 1750 ASSIGN 610 TO TRA GO TO 1900 C C ORIGIN ID C 610 ID = IWRD ASSIGN 620 TO TRA GO TO 1940 C C HORIZONTAL LOCATION (LEFT EYE - STEREO) C 620 X = FWRD*CNTSIN ASSIGN 630 TO TRA GO TO 1940 C C VERTICAL LOCATION C 630 Y = FWRD*CNTSIN IF (ORG .EQ. 0) GO TO 670 DO 640 J = 1,ORG IF (ORIGIN(J) .EQ. ID) GO TO 680 640 CONTINUE IF (ORG .LT. NORG) GO TO 670 IF (PRNT .LT. 0) GO TO 650 ERR(1) = 1 ERR(2) = NORG CALL WRTPRT (MERR,ERR,MSG1,NMSG1) 650 ORG = NORG DO 660 I = 1,2 EDGE(ORG+1,I+0) = 0. EDGE(ORG+1,I+2) = 1. 660 CONTINUE 670 ORG = ORG + 1 J = ORG ORIGIN(J) = ID IF (NOFIND .EQ. 0) NOFIND = -1 680 XY(J,1) = X XY(J,3) = Y FOR = 0 ASSIGN 690 TO TRA GO TO 1940 C C HORIZONTAL LOCATION (RIGHT EYE - STEREO) C 690 XY(J,2) = FWRD*CNTSIN GO TO 140 C C PAPER SIZE, TYPE C 700 IF (MODE .LE. 0) GO TO 1750 CALL RDWORD (MODE,WORD) IF (WORD .EQ. TYPE) GO TO 760 IF (WORD.NE.SIZE .OR. MODE.NE.0) GO TO 1750 ASSIGN 710 TO TRA GO TO 1940 710 X = FWRD CALL RDMODE (*730,*720,*40,MODE,WORD) 720 CALL RDWORD (MODE,WORD) IF (WORD.NE.BY .AND. WORD.NE.HX) GO TO 1750 IF (MODE .NE. 0) GO TO 1750 730 ASSIGN 740 TO TRA GO TO 1940 740 PAPSIZ(1) = X PAPSIZ(2) = FWRD CALL PLTSET CALL RDMODE (*140,*750,*40,MODE,WORD) 750 CALL RDWORD (MODE,WORD) IF (WORD .NE. TYPE) GO TO 160 C C PAPER TYPE C 760 IF (MODE .EQ. 0) GO TO 1750 CALL RDWORD (MODE,WORD) PAPTYP(1) = AWRD(1) PAPTYP(2) = AWRD(2) IF (MODE) 140,140,700 C C PEN SIZE / COLOR C 800 IF (MODE .NE. 0) GO TO 1750 ASSIGN 810 TO TRA GO TO 1900 810 IF (IWRD.NE.1 .AND. IWRD.LE. NPENS) GO TO 820 ERR(1) = 1 ERR(2) = IWRD CALL WRTPRT (MERR,ERR,MSG4,NMSG4) IWRD = 1 820 ID = IWRD 830 CALL RDMODE (*140,*840,*40,MODE,WORD) 840 CALL RDWORD (MODE,WORD) IF (WORD .EQ. SIZE) GO TO 850 IF (WORD .NE. COLO) GO TO 160 IF (MODE .EQ. 0) GO TO 1750 CALL RDWORD (MODE,WORD) PENCLR(ID,1) = AWRD(1) PENCLR(ID,2) = AWRD(2) IF (MODE) 140,830,840 C C PEN SIZE C 850 IF (MODE .NE. 0) GO TO 1750 ASSIGN 860 TO TRA GO TO 1900 860 PENSIZ(ID) = IWRD GO TO 830 C C PLOTTER C 900 IF (MODE .EQ. 0) GO TO 1750 CALL RDWORD (MODE,WORD) PLTNAM(1) = AWRD(1) PLTNAM(2) = AWRD(2) PLTMOD(1) = 0 PLTMOD(2) = 0 CAMERA = 2 FSCALE = 1 FVP = 1 FOR = 1 IF (ORG .EQ. 0) GO TO 920 DO 910 I = 1,ORG EDGE(I,1) = 0. EDGE(I,2) = 0. EDGE(I,3) = 1. EDGE(I,4) = 1. 910 CONTINUE ORG = 0 C C CHECK FOR A MODEL NUMBER C 920 ASSIGN 960 TO TRA J = 1 IF (MODE .LE. 0) CALL RDMODE (*1910,*930,*970,MODE,WORD) 930 CALL RDWORD (MODE,WORD) IF (WORD .EQ. DENS ) GO TO 970 IF (WORD .NE. HMODE) GO TO 960 940 IF (MODE .LE. 0) CALL RDMODE (*1910,*950,*970,MODE,WORD) 950 CALL RDWORD (MODE,WORD) IF (WORD .EQ. DENS) GO TO 970 960 PLTMOD(J) = WORD J = J + 1 IF (J .EQ. 2) GO TO 940 970 CALL FNDPLT (ID,N,PLTMOD) PLOTER = ID MODEL = N CALL PLTSET IF (WORD .EQ. DENS) GO TO 1000 IF (MODE .GE. EOR) GO TO 40 C C TAPE DENSITY ON PLOTTER CARD C 980 IF (MODE .LE. 0) CALL RDMODE (*980,*990,*40,MODE,WORD) 990 CALL RDWORD (MODE,WORD) 1000 IF (WORD .NE. DENS) GO TO 160 IF (MODE .NE. 0) GO TO 140 ASSIGN 1010 TO TRA GO TO 1900 1010 TAPDEN = IWRD CALL RDMODE (*140,*1020,*40,MODE,WORD) 1020 CALL RDWORD (MODE,WORD) IF (WORD .EQ. BPI) GO TO 140 GO TO 160 C C PROJECTION PLANE SEPARATION C 1100 IF (MODE .EQ. 0) GO TO 1750 CALL RDWORD (MODE,WORD) C C USER MAY HAVE REVERSE ENGLISH C IF (WORD .NE. PLAN) GO TO 210 IF (MODE .EQ. 0) GO TO 1750 CALL RDWORD (MODE,WORD) IF (MODE.NE.0 .OR. WORD.NE.SEPA) GO TO 1750 ASSIGN 1110 TO TRA GO TO 1940 1110 IF (PRJECT .EQ. 2) D02 = FWRD IF (PRJECT .EQ. 3) D03 = FWRD GO TO 140 C C SCALE C 1120 IF (MODE .NE. 0) GO TO 1750 ASSIGN 1130 TO TRA GO TO 1940 1130 IF (FWRD .EQ. 0.) GO TO 1140 IF (PRJECT .NE. 3) SCALE(1) = CNTSIN*FWRD IF (PRJECT .EQ. 3) SCALE(1) = CNTIN3*FWRD 1140 FSCALE = 0 ASSIGN 1150 TO TRA GO TO 1940 1150 IF (FWRD .NE. 0.) SCALE(2) = FWRD IF (NOFIND .EQ. 0) NOFIND = -1 GO TO 140 C C VANTAGE POINT C 1200 IF (MODE .EQ. 0) GO TO 1750 CALL RDWORD (MODE,WORD) IF (WORD.NE.POIN .OR. MODE.NE.0) GO TO 1750 ASSIGN 1220 TO TRA J = 0 1210 J = J + 1 IF (J .EQ. 3) J = 4 IF (PRJECT.EQ.3 .AND. J.EQ.6) J = 3 GO TO 1940 1220 VANPNT(J) = FWRD IF ((PRJECT.NE.3 .AND. J.NE.5) .OR. (PRJECT.EQ.3 .AND. J.NE.3)) 1 GO TO 1210 FVP = 0 IF (NOFIND .EQ. 0) NOFIND = -1 GO TO 140 C C VIEW C 1230 IF (MODE .NE. 0) GO TO 1750 ASSIGN 1250 TO TRA J = 4 1240 J = J - 1 GO TO 1940 1250 VANGLE(J) = FWRD IF (NOFIND .EQ. 0) NOFIND = -1 IF (J-1) 1240,140,1240 C C CONTOUR C C RESTORE DEFAULTS C 1300 ICNTVL = 1 NCNTR = 10 COLOR = 0 LAYER = 0 WHERE = 1 DIRECT = 2 CNTR(1)= 0.0 CNTR(2)= 0.0 C C FLAG AND LASSET SET IN PLOT AND CONPLT C 1310 IF (MODE .LE. 0) CALL RDMODE (*1310,*1320,*40,MODE,WORD) 1320 CALL RDWORD (MODE,WORD) IF (WORD.EQ.COLO .OR. WORD.EQ.FILL .OR. WORD.EQ.LAYE) GO TO 1340 IF (WORD .NE. EVEN) GO TO 1370 ASSIGN 1330 TO TRA GO TO 1900 1330 NCNTR = MIN0 (50,IWRD) GO TO 1310 1340 IF (WORD .EQ. COLO) ASSIGN 1350 TO TRA IF (WORD .EQ. FILL) ASSIGN 1360 TO TRA IF (WORD .EQ. LAYE) GO TO 1600 GO TO 1900 1350 COLOR = IWRD GO TO 1310 1360 COLOR = -IWRD GO TO 1310 C 1370 IF (WORD .NE. LIST) GO TO 1500 IF (MODE .GT. 0) GO TO 1580 NCNTR = 0 ASSIGN 1390 TO TRA 1380 CALL RDMODE (*1950,*1320,*40,MODE,WORD) 1390 IF (NCNTR .LT. 50) GO TO 1400 IF (PRNT .LT. 0) GO TO 1380 ERR(1) = 1 ERR(2) = IWRD CALL WRTPRT (MERR,ERR,MSG5,NMSG5) GO TO 1380 1400 NCNTR = NCNTR + 1 CNTR(NCNTR) = FWRD GO TO 1380 C 1500 IF (WORD .EQ. Z1 ) GO TO 1510 IF (WORD .EQ. Z2 ) GO TO 1520 IF (WORD .EQ. MAX ) GO TO 1530 IF (WORD .EQ. MID ) GO TO 1540 IF (WORD .EQ. COMM) GO TO 1550 IF (WORD .EQ. DISP) GO TO 1310 IF (WORD .EQ. STRE) GO TO 1310 IF (WORD .NE. LOCA) GO TO 1560 DIRECT = 1 GO TO 1310 1510 WHERE = 1 GO TO 1310 1520 WHERE =-1 GO TO 1310 1530 WHERE = 2 GO TO 1310 1540 WHERE = 3 GO TO 1310 1550 DIRECT = 2 GO TO 1310 C 1560 DO 1570 J = 1,20 IF (WORD .EQ. ICNDA(J)) GO TO 1590 1570 CONTINUE 1580 IF (PRNT .LT. 0) GO TO 1310 ERR(1) = 2 ERR(2) = AWRD(1) ERR(3) = AWRD(2) CALL WRTPRT (MERR,ERR,MSG2,NMSG2) GO TO 1310 C 1590 ICNTVL = J C C SET STRESS FILE TO STRAIN FILE C IF (ICNTVL .EQ. 20) OESX = ONRGY1 GO TO 1310 C C ASSIGN LAYER NUMBER HERE FOR COMPOSITS C 1600 ASSIGN 1610 TO TRA C C SET STRESS FILE TO LAYER STRESS C OESX = OES1L GO TO 1900 1610 LAYER = IWRD GO TO 1310 C C CSCALE C 1700 IF (MODE .NE. 0) GO TO 1750 ASSIGN 1710 TO TRA GO TO 1940 1710 CHRSCL = FWRD IF (NOFIND .EQ. 0) NOFIND = -1 IF (CHRSCL .LT. 1.0) CHRSCL = 1.0 CALL PLTSET GO TO 140 C C PTITLE C 1720 FPLTIT = 1 DO 1730 I = 1,17 1730 PLTITL(I) = BLANK4 J = COLOR DO 1740 I = 1,17,2 CALL RDWORD (MODE,WORD) PLTITL(I ) = AWRD(1) PLTITL(I+1) = AWRD(2) IF (MODE .EQ. 0) GO TO 140 1740 CONTINUE COLOR = J IF (MODE .NE. 0) CALL RDWORD (MODE,WORD) GO TO 140 C C UNRECOGNIZABLE PLOT PARAMETER. C 1750 IF (PRNT.LT. 0) GO TO 140 ERR(1) = 2 ERR(2) = AWRD(1) ERR(3) = AWRD(2) CALL WRTPRT (MERR,ERR,MSG2,NMSG2) GO TO 140 C C END OF PLOT INPUT C 1800 IF (PRNT .GE. 0) GO TO 1820 DO 1810 I = 1,96 1810 TITLE(I) = SAVTIT(I) 1820 CONTINUE RETURN C C C READ AN INTEGER ON A PARAMETER CARD C 1900 CALL RDMODE (*1910,*140,*40,MODE,WORD) 1910 IF (MODE .EQ. -1) GO TO 1930 IF (MODE .EQ. -4) GO TO 1920 IWRD = FWRD GO TO 1930 1920 IWRD = DWRD 1930 GO TO TRA, (420,450,610,810,860,1330,1350,1360,1610,960,1010) C C READ A DECIMAL NUMBER ON A PARAMETER CARD C 1940 CALL RDMODE (*1950,*140,*40,MODE,WORD) 1950 IF (MODE .EQ. -4) GO TO 1960 IF (MODE .NE. -1) GO TO 1970 FWRD = IWRD GO TO 1970 1960 FWRD = DWRD 1970 GO TO TRA, ( 510, 530, 620, 630, 690, 710, 740,1110,1130,1150, 1 1220,1250,1390,1710) C END ================================================ FILE: mis/paraml.f ================================================ SUBROUTINE PARAML C C TO SELECT PARAMETERS FROM A GINO DATA BLOCK C C PARAML DB/ /C,N,OP/V,N,P1/V,N,P2/V,N,RSP/V,N,INTEG/V,N,RDP/ C V,N,BCD/V,N,SPLX/V,N,DPLX $ C C INPUT GINO FILE - C DB = TABLE INPUT FILE IF OP='TABLEi' C DB = MATRIX INPUT FILE IF OP='MATRIX','NULL', etc. C OUTPUT GINO FILE - C NONE C INPUT PARAMETER - C OP = OPERATION FLAG, ONE OF THE FOLLOWING KEY WORDS, C 'MATRIX', 'NULL', 'PRESENCE', 'TRAILER', OR C 'TABLE1' - ABSTRACT FROM 1 INPUT WORD TO FORM ALL OUTPUT C DATA TYPE (INTEGER, S.P /D.P. REAL S.P./D.P. C COMPLEX) AND 4-BYTE BCD WORD (1 WORD) C 'TABLE2' - ABSTRACT FROM 2 INPUT WORDS TO FORM ALL C OUTPUT DATA TYPE, AND 8-BYTE BCD (2 WORDS) C 'TABLE4' - ABSTRACT FORM 4 INPUT WORDS TO FORM S.P./D.P. C COMPLEX NUMBER C 'TABLE1/2/4' OPERATES ONLY IN TABLE DATA BLOCK, AND C THE OTHERS OPERATE ONLY IN MATRIX DATA BLOCK. C C IF 'PRESENCE' IS ABBREVIATED AS 'PRES ', THE USER C PARAML INFORMATION MESSAGE IS NOT ECHOED OUT. C C INPUT/OUTPUT PARAMETERS - C P1 = RECORD NO. IF DB IS A TABLE, OR C P1 = ROW NO. IF DB IS A MATRIX C (DEFAULT=1) C P2 = WORD POSITION INDEX (BASED ON S.P.REAL WORD COUNT) C IF DB IS A TABLE, OR C P2 = COLUMN NUMBER, IF DB IS A MATRIX DATA BLOCK, S.P. OR C D.P. C (DEFAULT=1) C (ROW FIRST AND COLUMN SECOND - IN CONSISTANT WITH SCALAR MODULE) C OUTPUT PARAMETERS - C RSP = SINGLE PRECISION REAL C (DATA ABSTRACTED FROM 1 OR 2 INPUT WORDS) C INTEG = INTEGER (DATA ABSTRACTED FROM 1 INPUT WORD) C RDP = DOUBLE PREC. FLOATING NUMBERS (FROM 1 OR 2 INPUT WORDS) C BCD = 8-BYTE BCD WORD, BLANK FILLED IF NECCESSARY C SPLX = SINGLE PRECISION COMPLEX (FROM 1 TO 4 INPUT WORDS) C DPLX = DOUBLE PRECISION COMPLEX (FROM 1 TO 4 INPUT WORDS) C IMPLICIT INTEGER (A-Z) LOGICAL TB1,TB2,TB4,MAT,PRT INTEGER MCB(7),NAME(2),IVPS(1),OPCD(7),FNM(2), 1 NMVPS(2),EI(3),AT(2) REAL Z(1),RSP,SPLX,SP(4),VPS,X,Y DOUBLE PRECISION DZ(1),RDP,DPLX,DP(2) CHARACTER*7 NTY(4) CHARACTER*10 TYPE(4) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /XVPS / VPS(2) COMMON /UNPAKX/ ITYP,II,JJ,INCR COMMON /ILOCAL/ IL(2),IL3,IL4,IL5,IL6,IL7,IL8,IL9 COMMON /SYSTEM/ SYSBUF,NOUT COMMON /BLANK / OP(2),P1,P2,RSP,INTEG,RDP,BCD(2),SPLX(2),DPLX(2) COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (VPS(1),IVPS(1)) ,(Z(1),IZ(1),DZ(1)) EQUIVALENCE (SP(1) , DP(1)) DATA NAME / 4HPARA,4HML /,BLANK/4H /, AT/ 4HAND ,4HTHRU / DATA OPCD / 4HTABL,4HMATR,4HPRES,4HNULL,4HTRAI,4HDTI ,4HDMI / DATA FIRST/ 12 / ,IN1 / 101 /, EI /2HE1, 2HE2, 2HE4 / DATA NTY / 'ZERO', 'INTEGER', 'REAL', 'BCD' / DATA TYPE / 'S.P. REAL ', 'D.P. REAL ', 'S.P. CMPLX', 'D.P.CMPLX'/ C C SUPPRESS ALL PARAML CHECKING MESSAGES IF DIAG 37 IS ON C CALL SSWTCH (37,I) PRT = I .EQ. 0 NZ = KORSZ(IZ) IBUF1 = NZ - SYSBUF + 1 IF (IBUF1 .LE. 0) GO TO 1220 FLAG = 1 MCB(1)= IN1 CALL RDTRL (MCB) IF (MCB(1) .GT. 0) GO TO 20 C C INPUT PURGED. RETURN IF OP(1) IS NOT 'PRES' C IF (OP(1) .NE. OPCD(3)) GO TO 1240 FLAG =-1 CALL FNDPAR (-5,IL5) IF (PRT .AND. OP(2).NE.BLANK) WRITE (NOUT,40) UIM,OP 10 INTEG = FLAG IVPS(IL5) = FLAG NMVPS(1) = IVPS(IL5-3) NMVPS(2) = IVPS(IL5-2) IF (PRT .AND. OP(2).NE.BLANK) WRITE (NOUT,510) INTEG,NMVPS GO TO 1240 C 20 PREC = MCB(5) CALL FNAME (IN1,FNM) DO 30 J=3,9 CALL FNDPAR (-J,IL(J)) 30 CONTINUE IF (OP(1).EQ.OPCD(3) .AND. OP(2).EQ.BLANK) GO TO 200 IF (OP(1) .EQ. OPCD(4)) GO TO 210 IF (.NOT.PRT) GO TO 45 CALL PAGE2 (FIRST) FIRST = 5 WRITE (NOUT,40) UIM,OP 40 FORMAT (A29,' FROM PARAML MODULE - ',2A4,2H -, /5X, 1 '(ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)',/) C C IDENTIFY OPCODE C 45 DO 50 I = 1,7 IF (OP(1) .EQ. OPCD(I)) GO TO (300,800,200,210,220,90,90), I 50 CONTINUE 60 WRITE (NOUT,70) UFM,OP 70 FORMAT (A23,', ILLEGAL OP REQUEST TO MODULE PARAML - ',2A4) 80 CALL MESAGE (-37,0,NAME) C 90 IF (.NOT.PRT) GO TO 60 WRITE (NOUT,100) UIM 100 FORMAT (A29,', NEW PARAMETERS USED IN PARAML MODULE:', //5X, 1 'PARAML DB//C,N,OP/C,N,P1/V,N,P2/V,N,RSP/V,N,INT/V,N,RDP/', 2 'V,N,BCD/V,N,CSX/V,N,CDX $', /13X, 3 'OP = OPCODE, ONE OF THE FOLLOWING KEY WORDS, BCD INPUT, N', 4 'O DEFAULT', /23X,43H'MATRIX', 'NULL', 'PRESENCE', 'TRAILER', OR, 5 /23X,28H'TABLE1', 'TABLE2', 'TABLE4', 6 /13X,'P1,P2 = RECORD NO. AND WORD POSITION IF OP= TABLEi', 7 /21X,'= ROW AND COLUMN INDEXES IF OP= MATRIX, INTEGERS INPUT', 8 /21X,'= P2 GIVES THE VALUE OF P1 TRAILER WORD IF OP= TRAILER', 9 /13X,'RSP,RDP = SINGLE PRECISION AND DOUBLE PREC. REAL, OUTPUT', O /23X,'(DEFAULTS ARE 0.0 AND 0.D+0, PREVIOUS DEFAULTS WARE ONES', 1 /13X,'INT,BCD = INTEGER AND 2-BCD WORDS OUTPUT', /23X,'INT =-1,', 2 ' IF NULL MATRIX AND OP= NULL, OR PURGED DB AND OP= PRESENCE', 3 /13X,'CSX,CDX = SINGLE PRECISION AND DOUBLE PRECISION COMPLEX, ', 4 'OUTPUT', //5X,'EXAMPLE - ', 5 'ABSTRACT THE 3RD COL. 9TH ROW ELEMENT OF KGG MATRIX, AND', /15X, 6 'ABSTRACT THE 3RD RECORD AND 9TH WORD OF EPT DATA BLCOK', //5X, 7 'PARAML KGG//*MATRIX*/C,N,9/C,N,3/V,N,R93//V,N,D93//V,N,CS93', 8 /5X,'PARAML EPT//*TABLE1*/C,N,3/C,N,9//V,N,I39/V,N,D39',/) IF (I .EQ. 6) WRITE (NOUT,110) IF (I .EQ. 7) WRITE (NOUT,120) 110 FORMAT (5X,'SUGGESTION- REPLACE THE OPCODE ''DTI'' BY ''TABLE1''') 120 FORMAT (5X,'SUGGESTION- REPLACE THE OPCODE ''DMI'' BY ''MATRIX''', 1 /18X,'AND NOTE THAT P1 IS ROW NUMBER AND P2 IS COLUMN NO.') GO TO 60 C C OP = PRESENCE C TEST FOR PRESENCE OF DATA BLOCK C 200 GO TO 10 C C OP = NULL C TEST FOR NULL MATRIX DATA BLOCK C 210 IF (MCB(7) .EQ. 0) FLAG =-1 GO TO 10 C C OP = TRAILER C PLACE THE (P1+1) WORD OF THE TRAILER IN P2 C 220 IF (P1.LE.0 .OR. P1.GE.7) GO TO 230 P2 = MCB(P1+1) IVPS(IL3) = P2 NMVPS(1) = IVPS(IL3-3) NMVPS(2) = IVPS(IL3-2) IF (PRT) WRITE (NOUT,510) P2,NMVPS GO TO 1240 230 WRITE (NOUT,240) UFM,P1 240 FORMAT (A23,', 2ND PARAMETER IN PARAML MODULE IS ILLEGAL',I5) GO TO 80 C C OP = TABLE C PROCESS TABLE TYPE DATA BLOCK C 300 TB1 = .FALSE. TB2 = .FALSE. TB4 = .FALSE. IF (OP(2) .EQ. EI(1)) TB1 = .TRUE. IF (OP(2) .EQ. EI(2)) TB2 = .TRUE. IF (OP(2) .EQ. EI(3)) TB4 = .TRUE. IF (.NOT.TB1 .AND. .NOT.TB2 .AND. .NOT.TB4) GO TO 60 MAT = .FALSE. RECNO = P1 INDEX = P2 IF (TB2) IXP1 = INDEX+1 IF (TB4) IXP1 = INDEX+3 ATX = AT(1) IF (TB4) ATX = AT(2) CALL OPEN (*1200,IN1,IZ(IBUF1),0) CALL SKPREC (IN1,RECNO) CALL READ (*1210,*310,IN1,IZ,IBUF1-1,1,RL) GO TO 1220 310 IF (INDEX .GT. RL) GO TO 1210 IF (IL4 .LE. 0) GO TO 500 C C OUTPUT REQUEST IN S.P. REAL C IF (.NOT.PRT) GO TO 350 IF (.NOT.TB1) GO TO 330 WRITE (NOUT,320) FNM,RECNO,INDEX 320 FORMAT (5X,'INPUT FILE ',2A4,' RECORD',I6,' WORD',I6,13X,1H=) GO TO 350 330 WRITE (NOUT,340) FNM,RECNO,INDEX,ATX,IXP1 340 FORMAT (5X,'INPUT FILE ',2A4,' RECORD',I6,' WORDS',I6,1X,A4,I5, 1 ' =') 350 NMVPS(1) = IVPS(IL4-3) NMVPS(2) = IVPS(IL4-2) IF (TB4) GO TO 400 IF (TB2) GO TO 355 RSP = Z(INDEX) IF (MAT) GO TO 360 K = NUMTYP(RSP)+1 IF (K.EQ.2 .OR. K.EQ.4) GO TO 400 GO TO 360 355 K = -1 IF (INDEX+1 .GT. RL) GO TO 400 SP(1) = Z(INDEX ) SP(2) = Z(INDEX+1) CWKBI IF ( SP(2) .EQ. 0.0 ) DP(1) = SP(1) CWKBR RSP = SNGL(DP(1)) RSP = SP(1) K = NUMTYP(RSP)+1 IF (K.EQ.2 .OR. K.EQ.4) GO TO 400 360 IF (PRT) WRITE (NOUT,370) RSP,NMVPS 370 FORMAT (1H+,70X,E15.8,' = ',2A4) VPS(IL4) = RSP GO TO 500 C 400 IF (.NOT.PRT) GO TO 500 WRITE (NOUT,410) NMVPS 410 FORMAT (1H+,70X,'(INVALID REQUEST) = ',2A4) IF (K .GT. 0) WRITE (NOUT,420) UWM,NTY(K),NMVPS IF (K .EQ.-1) WRITE (NOUT,430) UWM,NMVPS 420 FORMAT (A25,' - ILLEGAL OUTPUT REQUESTED. ORIG. DATA TYPE IS ',A7, 1 ', PARAMETER ',2A4,' NOT SAVED') 430 FORMAT (A25,' - E-O-R ENCOUNTERED. PARAMETER ',2A4,' NOT SAVED') C 500 IF (IL5.LE.0 .OR. MAT) GO TO 540 C C OUTPUT REQUEST IS INTEGER C IF (.NOT.PRT) GO TO 505 IF ( TB1) WRITE (NOUT,320) FNM,RECNO,INDEX IF (.NOT.TB1) WRITE (NOUT,340) FNM,RECNO,INDEX,ATX,IXP1 505 NMVPS(1) = IVPS(IL5-3) NMVPS(2) = IVPS(IL5-2) K = 0 IF (TB2 .OR. TB4) GO TO 520 INTEG = IZ(INDEX) K = NUMTYP(INTEG)+1 IF (K .GT. 2) GO TO 520 IVPS(IL5) = INTEG IF (PRT) WRITE (NOUT,510) INTEG,NMVPS 510 FORMAT (1H+,70X,I15,' = ',2A4) GO TO 540 C 520 IF (.NOT.PRT) GO TO 540 WRITE (NOUT,410) NMVPS IF (K .GT. 0) WRITE (NOUT,420) UWM,NTY(K),NMVPS IF (K .EQ. 0) WRITE (NOUT,530) UWM,NMVPS 530 FORMAT (A25,' - ILLEGAL INTEGER ABSTRACTION FROM 2 OR 4 DATA ', 1 'WORDS. OUPUT PARAMETER ',2A4,' NOT SAVED') GO TO 540 C 540 IF (IL6 .LE. 0) GO TO 600 C C OUTPUT REQUEST IN D.P. REAL C IF (.NOT.PRT) GO TO 545 IF ( TB1) WRITE (NOUT,320) FNM,RECNO,INDEX IF (.NOT.TB1) WRITE (NOUT,340) FNM,RECNO,INDEX,ATX,IXP1 545 NMVPS(1) = IVPS(IL6-3) NMVPS(2) = IVPS(IL6-2) IF (MAT) GO TO 560 IF (TB2) GO TO 550 IF (TB4) GO TO 590 K = NUMTYP(Z(INDEX))+1 IF (K.EQ.2 .OR. K.EQ.4) GO TO 590 DP(1) = DBLE(Z(INDEX)) GO TO 570 550 K =-1 J = 0 IF (INDEX+1 .GT. RL) GO TO 590 SP(1) = Z(INDEX ) SP(2) = Z(INDEX+1) CWKBD 9/93 X = SNGL(DP(1)) X = SP(1) J = NUMTYP(X)+1 IF (J.EQ.2 .OR. J.EQ.4) GO TO 590 GO TO 570 560 IF (PREC .EQ. 1) DP(1) = DBLE(Z(INDEX)) CWKBI 570 IF ( SP(2) .EQ. 0.0 ) DP(1) = SP(1) CWKBR 570 RDP = DP(1) RDP = DP(1) VPS(IL6 ) = SP(1) VPS(IL6+1) = SP(2) IF (PRT) WRITE (NOUT,580) RDP,NMVPS 580 FORMAT (1H+,70X,D15.8,' = ',2A4) GO TO 600 C 590 IF (.NOT.PRT) GO TO 600 WRITE (NOUT,410) NMVPS IF (J.EQ.2 .OR. J.EQ.4) K = J IF (K .GT. 0) WRITE (NOUT,420) UWM,NTY(K),NMVPS IF (K .EQ.-1) WRITE (NOUT,430) UWM,NMVPS C 600 IF (IL7.LE.0 .OR. MAT) GO TO 650 C C OUTPUT REQUEST IN BCD C IF (.NOT.PRT) GO TO 605 IF ( TB1) WRITE (NOUT,320) FNM,RECNO,INDEX IF (.NOT.TB1) WRITE (NOUT,340) FNM,RECNO,INDEX,ATX,IXP1 605 NMVPS(1) = IVPS(IL7-3) NMVPS(2) = IVPS(IL7-2) K = 0 IF (TB4) GO TO 630 BCD(1) = IZ(INDEX) BCD(2) = BLANK K = NUMTYP(BCD(1))+1 IF (K .NE. 4) GO TO 630 IF (TB1) GO TO 610 K = -1 IF (INDEX+1 .GT. RL) GO TO 630 BCD(2) = IZ(INDEX+1) K = NUMTYP(BCD(2))+1 IF (K .NE. 4) GO TO 630 610 IVPS(IL7 ) = BCD(1) IVPS(IL7+1) = BCD(2) IF (PRT) WRITE (NOUT,620) BCD,NMVPS 620 FORMAT (1H+,70X,2A4,' = ',2A4) GO TO 650 C 630 IF (.NOT.PRT) GO TO 650 WRITE (NOUT,410) NMVPS IF (K .GT. 0) WRITE (NOUT,420) UWM,NTY(K),NMVPS IF (K .EQ. 0) WRITE (NOUT,640) UWM,NMVPS IF (K .EQ.-1) WRITE (NOUT,430) UWM,NMVPS 640 FORMAT (A25,' - ILLEGAL BCD ABSTRACTION FROM 4 DATA WORDS. ', 1 ' PARAMETER ',2A4,'NOT SAVED') C 650 IF (IL8 .LE. 0) GO TO 700 C C OUTPUT REQUEST IN S.P. COMPLEX C IF (.NOT.PRT) GO TO 655 IF ( TB1) WRITE (NOUT,320) FNM,RECNO,INDEX IF (.NOT.TB1) WRITE (NOUT,340) FNM,RECNO,INDEX,ATX,IXP1 655 NMVPS(1) = IVPS(IL8-3) NMVPS(2) = IVPS(IL8-2) K =-1 J = 0 IF (TB4) GO TO 660 SPLX(1) = Z(INDEX) SPLX(2) = 0.0 IF (TB1 .OR. MAT) GO TO 670 IF (INDEX+1 .GT. RL) GO TO 690 SPLX(2) = Z(INDEX+1) GO TO 670 660 IF (INDEX+3 .GT. RL) GO TO 690 SP(1) = Z(INDEX ) SP(2) = Z(INDEX+1) SP(3) = Z(INDEX+2) SP(4) = Z(INDEX+3) CWKBR SPLX(1) = SNGL(DP(1)) SPLX(1) = SP(1) CWKBR SPLX(2) = SNGL(DP(2)) SPLX(2) = SP(3) 670 J = NUMTYP(SPLX(1))+1 K = NUMTYP(SPLX(2))+1 IF (J.EQ.2 .OR. J.EQ.4 .OR. K.EQ.2 .OR. J.EQ.4) GO TO 690 VPS(IL8 ) = SPLX(1) VPS(IL8+1) = SPLX(2) IF (PRT) WRITE (NOUT,680) SPLX,NMVPS 680 FORMAT (1H+,70X,1H(,E15.8,1H,,E15.8,1H),' = ',2A4) GO TO 700 C 690 IF (.NOT.PRT) GO TO 700 WRITE (NOUT,410) NMVPS IF (J.EQ.2 .OR. J.EQ.4) K = J IF (K .EQ. 0) WRITE (NOUT,420) UWM,NTY(K),NMVPS IF (K .EQ.-1) WRITE (NOUT,430) UWM,NMVPS C 700 IF (IL9 .LE. 0) GO TO 1100 C C OUTPUT REQUEST IN D.P. COMPLEX C IF (.NOT.PRT) GO TO 705 IF ( TB1) WRITE (NOUT,320) FNM,RECNO,INDEX IF (.NOT.TB1) WRITE (NOUT,340) FNM,RECNO,INDEX,ATX,IXP1 705 NMVPS(1) = IVPS(IL9-3) NMVPS(2) = IVPS(IL9-2) K =-1 J = 0 IF (TB4) GO TO 710 K = NUMTYP(Z(INDEX))+1 IF (K.EQ.2 .OR. K.EQ.4) GO TO 740 DP(1) = DBLE(Z(INDEX)) DP(2) = 0.D0 IF (TB1 .OR. MAT) GO TO 720 IF (INDEX+1 .GT. RL) GO TO 740 K = NUMTYP(Z(INDEX+1))+1 IF (K.EQ.2 .OR. K.EQ.4) GO TO 740 DP(2) = DBLE(Z(INDEX+1)) GO TO 720 710 IF (INDEX+3 .GT. RL) GO TO 740 SP(1) = Z(INDEX ) SP(2) = Z(INDEX+1) SP(3) = Z(INDEX+2) SP(4) = Z(INDEX+3) CWKBR X = SNGL(DP(1)) X = SP(1) CWKBR Y = SNGL(DP(2)) Y = SP(3) J = NUMTYP(X)+1 K = NUMTYP(Y)+1 IF (J.EQ.2 .OR. J.EQ.4 .OR. K.EQ.2 .OR. K.EQ.4) GO TO 740 DP(1) = DBLE(Z(INDEX)) DP(2) = 0.D0 720 DPLX(1) = DP(1) DPLX(2) = DP(2) VPS(IL9 ) = SP(1) VPS(IL9+1) = SP(2) VPS(IL9+2) = SP(3) VPS(IL9+3) = SP(4) IF (PRT) WRITE (NOUT,730) DPLX,NMVPS 730 FORMAT (1H+,70X,1H(,D15.8,1H,,D15.8,1H),' = ',2A4) GO TO 1100 C 740 IF (.NOT.PRT) GO TO 1100 WRITE (NOUT,410) NMVPS IF (J.EQ.2 .OR. J.EQ.4) K = J IF (K .GT. 0) WRITE (NOUT,420) UWM,NTY(K),NMVPS IF (K .EQ.-1) WRITE (NOUT,430) UWM,NMVPS GO TO 1100 C C OP = MATRIX C PROCESS MATRIX TYPE DATA BLOCK C 800 ROW = P1 COL = P2 ITYP = MCB(5) IF (IL5 .LE. 0) GO TO 840 IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM 810 FORMAT (5X,'ELEMENT (',I5,'-ROW,',I5,'-COL) OF ',A10,' INPUT ', 1 'FILE ',2A4,2H =) NMVPS(1) = IVPS(IL5-3) NMVPS(2) = IVPS(IL5-2) IF (.NOT.PRT) GO TO 840 WRITE (NOUT,820) NMVPS 820 FORMAT (1H+,70X,'(INVALID INTEGER) = ',2A4) WRITE (NOUT,830) UWM,NMVPS 830 FORMAT (A25,' - OUTPUT PARAMETER ',2A4,' NOT SAVED') 840 IF (IL7 .LE. 0) GO TO 860 IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM NMVPS(1) = IVPS(IL7-3) NMVPS(2) = IVPS(IL7-2) IF (.NOT.PRT) GO TO 860 WRITE (NOUT,850) NMVPS 850 FORMAT (1H+,70X,'(INVALID BCD WORD)= ',2A4) WRITE (NOUT,830) UWM,NMVPS C 860 IF (IL4.LE.0 .AND. IL6.LE.0 .AND. IL8.LE.0 .AND. IL9.LE.0) 1 GO TO 1240 C C OUTPUT REQUEST - IL4 - S.P. REAL C IL5 - INTEGER C IL6 - D.P. REAL C IL7 - BCD C IL8 - S.P. COMPLEX C IL9 - D.P. COMPLEX C MAT = .TRUE. TB1 = .FALSE. TB2 = .FALSE. TB4 = .FALSE. RECNO = P2 INDEX = P1 RL = 999999 II = 1 JJ = MCB(3) INCR = 1 CALL GOPEN (IN1,IZ(IBUF1),0) CALL SKPREC (IN1,COL-1) CALL UNPACK (*1030,IN1,Z) GO TO (900,910,950,950), ITYP C C INPUT MATRIX PRECISION TYPE = 1, S.P. REAL C 900 GO TO 350 C C MATRIX PRECISION TYPE = 2, D.P. REAL C 910 IF (IL4 .LE. 0) GO TO 920 IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM RSP = DZ(ROW) VPS(IL4) = RSP NMVPS(1) = IVPS(IL4-3) NMVPS(2) = IVPS(IL4-2) IF (PRT) WRITE (NOUT,370) RSP,NMVPS 920 IF (IL6 .LE. 0) GO TO 930 IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM RDP = DZ(ROW) DP(1) = RDP VPS(IL6 ) = SP(1) VPS(IL6+1) = SP(2) NMVPS(1) = IVPS(IL6-3) NMVPS(2) = IVPS(IL6-2) IF (PRT) WRITE (NOUT,580) RDP,NMVPS 930 IF (IL8 .LE. 0) GO TO 940 IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM SPLX(1) = DZ(ROW) SPLX(2) = 0.0 VPS(IL8 ) = SPLX(1) VPS(IL8+1) = SPLX(2) NMVPS(1) = IVPS(IL8-3) NMVPS(2) = IVPS(IL8-2) IF (PRT) WRITE (NOUT,680) SPLX,NMVPS 940 IF (IL9 .LE. 0) GO TO 1100 IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM DP(1) = DZ(ROW) DP(2) = 0.D0 NMVPS(1) = IVPS(IL9-3) NMVPS(2) = IVPS(IL9-2) GO TO 720 C C INPUT MATRIX PRECISION TYPE = 3 OR 4, COMPLEX C 950 IF (IL4 .LE. 0) GO TO 970 IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM NMVPS(1) = IVPS(IL4-3) NMVPS(2) = IVPS(IL4-2) IF (.NOT.PRT) GO TO 970 WRITE (NOUT,960) NMVPS 960 FORMAT (1H+,70X,' (INVALID S.P. REAL NUMBER) = ',2A4) WRITE (NOUT,830) UWM,NMVPS 970 IF (IL6 .LE. 0) GO TO 990 IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM NMVPS(1) = IVPS(IL6-3) NMVPS(2) = IVPS(IL6-2) IF (PRT) WRITE (NOUT,980) NMVPS 980 FORMAT (1H+,70X,' (INVALID D.P.REAL NUMBER) = ',2A4) 990 IF (IL8.LE.0 .AND. IL9.LE.0) GO TO 1100 IF (ITYP .EQ. 4) GO TO 1010 C C INPUT MATRIX PRECISION TYPE = 3, S.P.COMPLEX C IF (IL8 .LE. 0) GO TO 1000 IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM SPLX(1) = Z(ROW ) SPLX(2) = Z(ROW+1) VPS(IL8 ) = SPLX(1) VPS(IL8+1) = SPLX(2) NMVPS(1) = IVPS(IL8-3) NMVPS(2) = IVPS(IL8-2) IF (PRT) WRITE (NOUT,680) SPLX,NMVPS 1000 IF (IL9 .LE. 0) GO TO 1100 IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM DP(1) = DBLE(Z(ROW )) DP(2) = DBLE(Z(ROW+1)) NMVPS(1) = IVPS(IL9-3) NMVPS(2) = IVPS(IL9-2) GO TO 720 C C INPUT MATRIX PRECISION TYPE = 4, D.P.COMPLEX C 1010 IF (IL8 .LE. 0) GO TO 1020 IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM SPLX(1) = SNGL(DZ(ROW )) SPLX(2) = SNGL(DZ(ROW+1)) VPS(IL8 ) = SPLX(1) VPS(IL8+1) = SPLX(2) NMVPS(1) = IVPS(IL8-3) NMVPS(2) = IVPS(IL8-2) IF (PRT) WRITE (NOUT,680) SPLX,NMVPS 1020 IF (IL9 .LE. 0) GO TO 1100 IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM DP(1) = DZ(ROW ) DP(2) = DZ(ROW+1) NMVPS(1) = IVPS(IL9-3) NMVPS(2) = IVPS(IL9-2) GO TO 720 C C NULL INPUT MATRIX ELEMENT C 1030 Z (ROW ) = 0. Z (ROW+1) = 0. DZ(ROW ) = 0.D0 DZ(ROW+1) = 0.D0 GO TO (900,910,950,950), ITYP C 1100 CALL CLOSE (IN1,1) GO TO 1240 C C ERRORS C 1200 J = -1 GO TO 1230 1210 J = -2 GO TO 1230 1220 J = -8 1230 CALL MESAGE (J,IN1,NAME) C 1240 RETURN END ================================================ FILE: mis/partn.f ================================================ SUBROUTINE PARTN (IRP,ICP,CORE) C EXTERNAL RSHIFT,ANDF INTEGER ANDF,TWO1,CORE,SYSBUF,RSHIFT DIMENSION ICP(1),IRP(1) DIMENSION CORE(1),IAS(7,4),HEAD(2),BLOCK1(40),NAME(2) COMMON /PARMEG/ NAMEA,NCOLA,NROWA,IFORMA,ITYPA,IA(2), 1 IA11(7),IA21(7),IA12(7),IA22(7),LCARE,RULE COMMON /SYSTEM/ SYSBUF COMMON /TWO / TWO1(32) COMMON /ZNTPKX/ A11(4),II,IEOL,IEOR EQUIVALENCE (IAS(1,1),IA11(1)) DATA ILN / 20 /, NAME / 4HPART,4HN / C C ZERO 6 AND 7 OF OUTPUT BLOCKS C IOTP = ITYPA IOPEN = 0 DO 40 I = 1,4 DO 10 J = 6,7 10 IAS(J,I) = 0 IF (IAS(1,I)) 20,40,20 20 IF (IAS(5,I) .NE. ITYPA) IOTP = 4 IOPEN = IOPEN + 1 DO 30 J = 2,5 IF (IAS(J,I)) 340,340,30 30 CONTINUE IAS(2,I) = 0 40 CONTINUE LCORE = LCARE IBUF = LCORE- SYSBUF + 1 IBUFCP = IBUF - NROWA IBUFRP = IBUFCP - (NCOLA+31)/32 IF (IBUFRP) 300,300,50 50 LCORE = IBUFRP - 1 INORP = 0 CALL RULER (RULE,ICP,ZCPCT,OCPCT,CORE(IBUFCP),NROWA,CORE(IBUF),1) IF (IRP(1).EQ.ICP(1) .AND. IRP(1).NE.0 .AND. NROWA.EQ.NCOLA) 1 GO TO 60 CALL RULER (RULE,IRP,ZRPCT,ORPCT,CORE(IBUFRP),NCOLA,CORE(IBUF),0) GO TO 70 60 INORP = 1 LCORE = IBUFCP - 1 C C OPEN OUTPUT MATRICES C 70 IF (IOPEN*SYSBUF .GT. LCORE) GO TO 300 DO 100 I = 1,4 IF (IAS(1,I)) 80,100,80 80 LCORE = LCORE - SYSBUF CALL OPEN (*90,IAS(1,I),CORE(LCORE+1),1) CALL FNAME (IAS(1,I),HEAD) CALL WRITE (IAS(1,I),HEAD,2,1) GO TO 100 90 IAS(1,I) = 0 100 CONTINUE C C OPEN INPUT MATRIX C CALL GOPEN (NAMEA,CORE(IBUF),0) C C LOOP FOR EACH COLUMN C KM = 0 DO 270 LOOP = 1,NCOLA IF (INORP .NE. 0) GO TO 110 C C COLUMN PARTITION A SEQ. OF ZEROS AND ONES C KM = KM + 1 IF (KM .GT. 32) KM = 1 L = IBUFRP + (LOOP-1)/32 ITEMP = ANDF(CORE(L),TWO1(KM)) IF (KM .EQ. 1) ITEMP = RSHIFT(ANDF(CORE(L),TWO1(KM)),1) IF (ITEMP) 120,130,120 110 L = IBUFCP + LOOP - 1 IF (CORE(L)) 130,120,120 120 L1 = 2 GO TO 140 130 L1 = 0 C C BEGIN BLDPK ON TWO SUBS C 140 J = 0 DO 160 L = 1,2 K = L1 + L M = ILN*(L-1) + 1 IF (IAS(1,K)) 150,160,150 150 CALL BLDPK (IOTP,IAS(5,K),IAS(1,K),BLOCK1(M),1) J = J + 1 160 CONTINUE IF (J) 170,260,170 C C SEARCH COLUMN FOR NON-ZERO ELEMENTS C 170 CALL INTPK (*230,NAMEA,0,IOTP,0) C C LOOP FOR ROWS WITHIN COLUMN C 180 IF (IEOL) 230,190,230 190 CALL ZNTPKI C C COMPUTE ROW POSITION AND OUTPUT MATRIX C L = IBUFCP + II - 1 IPOS = IABS(CORE(L)) IF (CORE(L)) 200,210,210 200 M1 = L1 + 1 M = 1 GO TO 220 210 M1 = L1 + 2 M = ILN+ 1 220 IF (IAS(1,M1) .EQ. 0) GO TO 180 CALL BLDPKI (A11(1),IPOS,IAS(1,M1),BLOCK1(M)) GO TO 180 230 DO 250 L = 1,2 K = L + L1 M = ILN*(L-1) + 1 IF (IAS(1,K)) 240,250,240 240 CALL BLDPKN (IAS(1,K),BLOCK1(M),IAS(1,K)) 250 CONTINUE GO TO 270 260 CALL SKPREC (NAMEA,1) 270 CONTINUE C C ALL DONE - CLOSE OPEN MATRICES C CALL CLOSE (NAMEA,1) DO 290 I = 1,4 IF (IAS(1,I)) 280,290,280 280 CALL CLOSE (IAS(1,I),1) 290 CONTINUE RETURN C 300 IPM1 =-8 310 CALL MESAGE (IPM1,IPM2,NAME) 340 IPM1 =-7 GO TO 310 END ================================================ FILE: mis/partn1.f ================================================ SUBROUTINE PARTN1 C C THIS IS THE DMAP MODULE PARTN WHICH PARTITIONS A MATRIX -A- INTO C FOUR PARTITIONS, SOME OR ALL OF WHICH MAY BE PURGED. C C C ** ** C * I * C * A11 I A12 * C ** ** * I * C * * * ------+----------- * C * A * BECOMES * I * C * * * I * C ** ** * A21 I A22 * C * I * C ** ** C C C BASED ON ROW PARTITION MATRIX -RP- AND COLUMN PARTITION MATRIX C -CP- C C DMAP SEQUENCE. C C PARTN A,CP,RP/A11,A21,A12,A22/V,Y,SYM/V,Y,TYPE/V,Y,F11/V,Y,F21/ C V,Y,F12/V,Y,F22 $ C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,ANDF LOGICAL CPHERE,RPHERE,CPNULL,RPNULL DIMENSION MCB(7,4),BLOCK(80),SUBR(2),AIJ(4),BUFFS(5), 1 HEAD(2),MCBA(7),REFUS(3) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /MAHCIN/ MACHX COMMON /ZNTPKX/ ELEM(4),ROW,EOL COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS COMMON /SYSTEM/ SYSBUF,OUTPT,XXX(37),NBPW COMMON /PRTMRG/ CPSIZE,RPSIZE,CPONES,RPONES,CPNULL,RPNULL,CPHERE, 1 RPHERE,ICP,NCP,IRP,NRP COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / SYM,TYPE,FORM(4),CPCOL,RPCOL,IREQCL DATA SUBR / 4HPART,4HN1 /, A,CP,RP /101,102,103/, 1 AIJ / 201,202,203,204/ DATA NAFORM/ 4HFORM /, NATYPE/ 4HTYPE /, REFUS/2*3H ,3HREF / DATA EOR / 1 / C CORE = KORSZ(Z) BUFFS(1) = CORE - SYSBUF - 2 DO 10 I = 2,5 BUFFS(I) = BUFFS(I-1) - SYSBUF - 2 10 CONTINUE CORE = BUFFS(5) - 1 IF (CORE .LT. 10) CALL MESAGE (-8,0,SUBR) C C OPEN MATRIX TO BE PARTITIONED. IF PURGED RETURN IS MADE C BUFF = BUFFS(5) CALL OPEN (*425,A,Z(BUFF),RDREW) CALL SKPREC (A,1) MCBA(1) = A CALL RDTRL (MCBA) INFORM = MCBA(4) C C CALL TO PARTN2 WILL PROCESS -CP- AND -RP- INTO BIT STRINGS AND C DETERMINE SIZES OF THE PARTITIONS. C BUFF = BUFFS(4) CALL PARTN2 (CP,RP,CORE,Z(BUFF)) C C IF RPSIZE OR CPSIZE ARE 0 THEY ARE SET EQUAL TO THE RESPECTIVE C SIZE OF A C IF (CPSIZE .EQ. 0) CPSIZE = MCBA(2) IF (RPSIZE .EQ. 0) RPSIZE = MCBA(3) C C MATRIX COMPATIBILITY CHECKS C IF (RPSIZE.EQ.MCBA(3) .AND. CPSIZE.EQ.MCBA(2)) GO TO 40 WRITE (OUTPT,30) SWM,MCBA(3),MCBA(2),RPSIZE,CPSIZE 30 FORMAT (A27,' 2166, MATRIX TO BE PARTITIONED IS OF SIZE',I10, 1 ' ROWS BY',I10,' COLUMNS.', /5X,'ROW PARTITION SIZE IS', 2 I10,' COLUMN PARTITION SIZE IS',I10,' (INCOMPATIBLE).') C C PREPARE OUTPUT DATA BLOCKS AS REQUIRED. C 40 CPZERO = MCBA(2) - CPONES RPZERO = MCBA(3) - RPONES C C CHECK OF TYPE PARAMETER C NTYPE = MCBA(5) IF (NTYPE .EQ. TYPE) GO TO 60 IF (TYPE .EQ. 0) GO TO 54 IF (TYPE.LT.0 .OR. TYPE.GT.4) GO TO 52 WRITE (OUTPT,50) SWM,NATYPE,TYPE,REFUS(1),SUBR,NTYPE 50 FORMAT (A27,' 2163, REQUESTED VALUE OF ',A4,I10,2X,A3, 1 'USED BY ',2A4,'. LOGICAL CHOICE IS',I10) NTYPE = TYPE GO TO 60 52 WRITE (OUTPT,50) SWM,NATYPE,TYPE,REFUS(3),SUBR,NTYPE 54 TYPE = NTYPE C 60 DO 140 I = 1,4 FILE = AIJ(I) MCB(1,I) = 0 COLS = CPZERO ROWS = RPZERO IF (I.EQ.3 .OR. I.EQ.4) COLS = CPONES IF (I.EQ.2 .OR. I.EQ.4) ROWS = RPONES C C IF ROWS OR COLS EQUAL ZERO NOTHING IS WRITTEN ON THIS PARTITION C IF (ROWS.EQ.0 .OR. COLS.EQ.0) GO TO 140 BUFF = BUFFS(I) CALL OPEN (*140,FILE,Z(BUFF),WRTREW) CALL FNAME (FILE,HEAD) CALL WRITE (FILE,HEAD,2,EOR) C C CHECK OF THE FORM PARAMETER C NFORM = FORM(I) IF (NFORM.LT.1 .OR. NFORM.GT.8) GO TO 110 GO TO (70,130,100,70,70,70,100,70), NFORM C C FORM IMPLIES SQUARE C 70 IF (ROWS .EQ. COLS) GO TO 130 80 WRITE (OUTPT,90) SWM,HEAD,NFORM,ROWS,COLS 90 FORMAT (A27,' 2168, THE FORM PARAMETER AS GIVEN TO THE PARTITION', 1 'ING MODULE FOR SUB-PARTITION ',2A4, /5X,'IS INCONSISTANT' 2, ' WITH ITS SIZE. FORM =',I9,' SIZE =',I9,' ROWS BY',I9, 3 ' COLUMNS.') GO TO 130 C C DIAGONAL OR ROW MATRIX C 100 IF (COLS .EQ. 1) GO TO 130 GO TO 80 C C NO FORM SPECIFIED THUS IT IS SQUARE IF ROWS = COLS OR RECTANGULAR C OTHERWISE. C 110 NFORM = 2 IF (ROWS .EQ. COLS) NFORM = 1 IF (SYM.LT.0 .AND. INFORM.EQ.6 .AND. NFORM.EQ.1 .AND. 1 (I.EQ.1 .OR. I.EQ.4)) NFORM = 6 IF (FORM(I) .EQ. 0) GO TO 128 JJ = 1 IF (FORM(I).LT.1 .OR. FORM(I).GT.8) JJ = 3 WRITE (OUTPT,50) SWM,NAFORM,FORM(I),REFUS(JJ),SUBR,NFORM IF (JJ .NE. 3) NFORM = FORM(I) 128 FORM(I) = NFORM C C TRAILER INITIALIZATION. BLDPKN WILL SET MCB(2) AND MCB(6) LATER. C 130 CALL MAKMCB (MCB(1,I),FILE,ROWS,NFORM,NTYPE) 140 CONTINUE C C ROW PARTITIONING BIT STRING IS AT THIS POINT CONVERTED TO A CORE C VECTOR ONE WORD PER BIT. EACH WORD CONTAINS THE ROW NUMBER OF THE C PARTITION TO WHICH THE ELEMENT OF -A- IS TO BE MOVED TO. IF THE C NUMBER IS NEGATIVE THE ELEMENT IS MOVED TO THE LOWER PARTITIONS C AND IF THE NUMBER IS POSITIVE THE ELEMENT IS MOVED TO THE UPPER C PARTITION C IZ = NRP + 1 NZ = IZ + RPSIZE - 1 IF (NZ+NBPW .GT. CORE) CALL MESAGE (-8,0,SUBR) IF (.NOT.RPNULL .AND. RPONES.NE.0) GO TO 160 K = 0 DO 150 I = IZ,NZ K = K + 1 Z(I) = K 150 CONTINUE GO TO 210 160 JZ = IZ - 1 ZERO = 0 ONES = 0 C C NOTE THIS LOGIC WORKS ON CRAY WITH 48 OF 64 BIT INTEGER WORD C DO 200 I = IRP,NRP DO 190 J = 1,NBPW SHIFT = NBPW - J BIT = RSHIFT(Z(I),SHIFT) JZ = JZ + 1 IF (ANDF(BIT,1)) 180,170,180 170 ZERO = ZERO + 1 Z(JZ) = ZERO GO TO 190 180 ONES = ONES - 1 Z(JZ) = ONES 190 CONTINUE 200 CONTINUE C C LOOP ON ALL THE COLUMNS OF -A-. C 210 IZM1 = IZ - 1 DO 400 I = 1,CPSIZE IF (CPNULL) GO TO 220 IL1 = I - 1 BITWD = IL1/NBPW + ICP SHIFT = NBPW - MOD(IL1,NBPW) - 1 BIT = RSHIFT(Z(BITWD),SHIFT) IF (ANDF(BIT,1)) 230,220,230 C C ZERO-S COLUMN (LEFT PARTITIONS A11 AND A21) C 220 IFILE = 1 IBLOCK = 1 GO TO 240 C C ONE-S COLUMN (RIGHT PARTITIONS A12 AND A22) C 230 IFILE = 3 IBLOCK = 41 GO TO 240 C C START COLUMNS OF THE 2 AIJ PARTITIONS. C 240 KFILE = IFILE KBLOCK = IBLOCK M = 0 DO 270 J = 1,2 IF (MCB(1,KFILE)) 260,260,250 250 CALL BLDPK (NTYPE,MCB(5,KFILE),MCB(1,KFILE),BLOCK(KBLOCK),1) M = 1 260 KFILE = KFILE + 1 KBLOCK = KBLOCK + 20 270 CONTINUE IF (M) 280,390,280 C C START THE I-TH COLUMN OF THE MATRIX BEING PARTITIONED -A-. C 280 CALL INTPK (*350,A,0,NTYPE,0) C C LOOP ON NON-ZEROS OF THE COLUMN C 290 IF (EOL) 300,300,350 C C PICK UP A NON-ZERO ELEMENT C 300 CALL ZNTPKI C C DETERMINE ROW POSITION AND FILE DESTINATION. C L = IZM1 + ROW IF (Z(L)) 320,310,310 C C ZERO-S ROW PARTITION. C 310 JROW = Z(L) KFILE = IFILE KBLOCK = IBLOCK GO TO 330 C C ONE-S ROW PARTITION. C 320 JROW = -Z(L) KFILE = IFILE + 1 KBLOCK = IBLOCK + 20 C C OUTPUT THE ELEMENT. C 330 IF (MCB(1,KFILE)) 290,290,340 340 CALL BLDPKI (ELEM,JROW,MCB(1,KFILE),BLOCK(KBLOCK)) GO TO 290 C C COMPLETE COLUMNS OF THE 2 AIJ PARTITIONS BEING WORKED ON. C 350 KFILE = IFILE KBLOCK = IBLOCK DO 380 J = 1,2 IF (MCB(1,KFILE)) 370,370,360 360 CALL BLDPKN (MCB(1,KFILE),BLOCK(KBLOCK),MCB(1,KFILE)) 370 KFILE = KFILE + 1 KBLOCK = KBLOCK + 20 380 CONTINUE GO TO 400 C C COLUMN NOT BEING OUTPUT TO ANY PARTITIONS AT ALL THUS SKIP IT. C 390 CALL SKPREC (A,1) C 400 CONTINUE C C WRAP UP. C CALL CLOSE (A,CLSREW) DO 420 I = 1,4 IF (MCB(1,I)) 420,420,410 410 CALL WRTTRL (MCB(1,I)) CALL CLOSE (MCB(1,I),CLSREW) 420 CONTINUE 425 RETURN END ================================================ FILE: mis/partn2.f ================================================ SUBROUTINE PARTN2 (CP,RP,CORE,BUF) C C THIS IS AN INITIALIZATION ROUTINE FOR PARTN1 AND MERGE1. C IT CALLS PARTN3 TO BUILD THE BIT STRINGS FROM THE PARTITIONING C VECTORS -CP- AND -RP- AND SETS DEFAULT OPTIONS FOR -CP- AND -RP- C BASED ON -SYM-. C C LOGICAL CPNULL ,RPNULL ,CPHERE ,RPHERE INTEGER CP ,RP ,CORE ,BUF(4) ,SUBR(2) , 1 CPSIZE ,RPSIZE ,CPONES ,RPONES ,Z , 2 SYM ,TYPE ,FORM ,SYSBUF ,OUTPT , 3 CPCOL ,RPCOL CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 ,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM ,SWM COMMON /SYSTEM/ SYSBUF ,OUTPT COMMON /PRTMRG/ CPSIZE ,RPSIZE ,CPONES ,RPONES ,CPNULL , 1 RPNULL ,CPHERE ,RPHERE ,ICP ,NCP , 2 IRP ,NRP COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / SYM ,TYPE ,FORM(4) ,CPCOL ,RPCOL , 1 IREQCL DATA SUBR / 4HPART ,4HN2 / C C C I I I I C SYM I RP-PURGED I CP-PURGED I NEITHER-PURGED I C ---------+-------------+-------------+----------------+-------- C I I I I C .LT.0 I RP IS SET I CP IS SET I RP MUST HAVE I C I = TO CP I = TO RP I SAME ONES-S I C I I I COUNT AS CP I C ---------+-------------+-------------+----------------+-------- C I I I I C .GE.0 I RP IS SET I CP IS SET I USE CP AND RP I C I TO ALL 0 I TO ALL 0 I I C I I I I C C IN ALL CASES, RESULTANT -CP- AND -RP- DIMENSIONS MUST BE C COMPATIBLE TO THOSE OF -A- C C C CONVERT COLUMN PARTITIONING VECTOR TO BIT STRING. C ICP = 1 IREQCL = CPCOL CALL PARTN3 (CP,CPSIZE,CPONES,ICP,NCP,CPHERE,BUF,CORE) CPCOL = IREQCL IF (CPHERE) GO TO 10 IRP = 1 GO TO 20 10 IRP = NCP + 1 C C CONVERT ROW PARTITIONING VECTOR TO BIT STRING. C 20 IREQCL = RPCOL CALL PARTN3 (RP,RPSIZE,RPONES,IRP,NRP,RPHERE,BUF,CORE) RPCOL = IREQCL C C BRANCH ON SYMMETRIC OR NON-SYMMETRIC DMAP VARIABLE SYM C CPNULL = .FALSE. RPNULL = .FALSE. IF (SYM) 30,140,140 C C DMAP USER CLAIMS SYMMETRIC INPUT AND OUTPUT C 30 IF (CPHERE) GO TO 70 C C -CP- IS PURGED. CHECK FOR -RP- PURGED (ERROR), AND IF NOT SET C -CP- BITS EQUAL TO -RP- BITS C IF (RPHERE) GO TO 60 C C BOTH -RP- AND -CP- PURGED AND -A- IS NOT PURGED (ERROR). C 40 WRITE (OUTPT,50) SFM 50 FORMAT (A25,' 2170, BOTH THE ROW AND COLUMN PARTITIONING VECTORS', 1 ' ARE PURGED AND ONLY ONE MAY BE.') CALL MESAGE (-61,0,SUBR) C C SET CP-ONES = RP-ONES BY SIMPLE EQUIVALENCE OF CORE SPACE C 60 ICP = IRP NCP = NRP CPONES = RPONES CPSIZE = RPSIZE GO TO 170 C C -CP- IS NOT PURGED. IF -RP- IS PURGED IT IS SET EQUAL TO -CP-. C 70 IF (RPHERE) GO TO 80 IRP = ICP NRP = NCP RPONES = CPONES RPSIZE = CPSIZE GO TO 170 C C BOTH -RP- AND -CP- ARE PRESENT AND SINCE USER HAS SPECIFIED A C SYMMETRIC OUTPUT PARTITION IS DESIRED THE NUMBER OF C NON-ZEROS IN-CP- MUST EQUAL THE NUMBER OF NON-ZEROS IN -RP- FOR NO C ERROR HERE. C 80 IF (CPONES.EQ.RPONES .AND. CPSIZE.EQ.RPSIZE) GO TO 100 WRITE (OUTPT,90) SWM,CP,RP 90 FORMAT (A27,' 2171, SYM FLAG INDICATES TO THE PARTITION OR MERGE', 1 ' MODULE THAT A SYMMETRIC MATRIX IS TO BE', /5X, 2 ' OUTPUT. THE PARTITIONING VECTORS',2I4,' HOWEVER DO NOT', 3 ' CONTAIN AN IDENTICAL NUMBER OF ZEROS AND NON-ZEROS.') C C CHECK FOR ORDER OF ONES IN ROW AND COLUMN PARTITIONING VECTOR. C 100 IF (CPSIZE .NE. RPSIZE) GO TO 170 J = IRP DO 110 I = ICP,NCP IF (Z(I) .NE. Z(J)) GO TO 120 J = J + 1 110 CONTINUE GO TO 170 C C ROW AND COLUMN PARTITIONING VECTORS DO NOT HAVE SAME ORDER. C 120 WRITE (OUTPT,130) SWM 130 FORMAT (A27,' 2172, ROW AND COLUMN PARTITIONING VECTORS DO NOT ', 1 'HAVE IDENTICAL ORDERING OF ZERO', /5X,' AND NON-ZERO ', 2 'ELEMENTS, AND SYM FLAG INDICATES THAT A SYMMETRIC ', 3 'PARTITION OR MERGE IS TO BE PERFORMED.') GO TO 170 C C DMAP USER DOES NOT REQUIRE SYMMETRY C 140 IF (CPHERE) GO TO 160 C C -CP- IS PURGED. THUS -RP- MUST BE PRESENT FOR NO ERROR. C IF (RPHERE) GO TO 150 GO TO 40 C C SET CP-ONES EQUAL TO 0 AND CPSIZE = 0 C 150 CPNULL = .TRUE. CPSIZE = 0 CPONES = 0 GO TO 170 C C -CP- NOT PURGED. IF -RP- IS PURGED SET IT NULL. C 160 IF (RPHERE) GO TO 170 RPNULL = .TRUE. NRP = IRP - 1 RPSIZE = 0 RPONES = 0 170 RETURN END ================================================ FILE: mis/partn3.f ================================================ SUBROUTINE PARTN3 (FILE,SIZE,ONES,IZ,NZ,HERE,BUF,CORE) CDIR$ INTEGER=64 C C CDIR$ IS CRAY COMPILER DIRECTIVE. 64-BIT INTEGER IS USED LOCALLY C DO LOOP 10 MAY NOT WORK PROPERLY WITH 48 BIT INTEGER C C PARTN3 CALLED BY PARTN1 AND MERGE1 (VIA PARTN2) BUILDS A BIT C STRING AT Z(IZ) THROUGH Z(NZ) AND CONTAINING ONE-BITS ONLY IN C THE RESPECTIVE POSITIONS OCCUPIED BY NON-ZERO ELEMENTS IN THE C COLUMN VECTOR WHICH IS STORED ON FILE. C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ORF LOGICAL HERE,PASS DIMENSION BUF(4),MCB(7),TRL(6),BIT(64),SUBR(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS COMMON /SYSTEM/ SYSBUF,OUTPT,XXX(37),NBPW COMMON /ZNTPKX/ ELEM(4),ROW,EOL COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / SYM,TYPE,FORM(4),CPCOL,RPCOL,IREQCL EQUIVALENCE (TRL(1),MCB(2)) DATA SUBR / 4HPART,4HN3 / DATA PASS / .FALSE. / C C SET UP TABLE OF BITS ON FIRST PASS THROUGH THIS ROUTINE. C IF (PASS) GO TO 20 PASS = .TRUE. J = NBPW - 1 K = LSHIFT(1,J) DO 10 I = 1,NBPW BIT(I) = K K = RSHIFT(K,1) 10 CONTINUE C 20 CALL OPEN (*130,FILE,BUF,RDREW) HERE = .TRUE. MCB(1) = FILE CALL RDTRL (MCB) C C NUMBER OF WORDS IN COLUMN INCLUDING ZEROS C SIZE = TRL(2) IF (IREQCL .EQ. 0) GO TO 37 IF (IREQCL.GT.0 .AND. IREQCL.LE.TRL(1)) GO TO 38 IF (TRL(1) .LE. 0) GO TO 37 WRITE (OUTPT,30) SWM,FILE,TRL(1),IREQCL 30 FORMAT (A27,' 2173, PARTITIONING VECTOR FILE',I5,' CONTAINS',I10, 1 ' COLUMNS.', /5X,' THE FIRST COLUMN WILL BE USED, NOT THE', 2 ' REQUESTED COLUMN',I10) 37 IREQCL = 1 38 CALL SKPREC (FILE,IREQCL) IF (TRL(4).EQ.1 .OR. TRL(4).EQ.2) GO TO 60 WRITE (OUTPT,50) SWM,FILE 50 FORMAT (A27,' 2174, PARTITIONING VECTOR ON FILE',I5, 1 ' IS NOT REAL-SINGLE OR REAL-DOUBLE PRECISION.') C C ZERO THE BIT STRING C 60 NZ = IZ + (SIZE-1)/NBPW IF (NZ .GT. CORE) CALL MESAGE (-8,0,SUBR) DO 70 I = IZ,NZ Z(I) = 0 70 CONTINUE C C SET UP TO UNPACK THE COLUMN C ONES = 0 EOL = 0 CALL INTPK (*120,FILE,0,1,0) GO TO 90 C C UNPACK THE ELEMENTS AND TURN ON BITS IN THE BIT STRING. MAINTAIN C COUNT OF BITS IN -ONES-. C 80 IF (EOL) 90,90,120 90 CALL ZNTPKI IF (ROW .GT. SIZE) GO TO 100 K = ROW - 1 ZWORD = K/NBPW + IZ ZBIT = MOD(K,NBPW) + 1 Z(ZWORD) = ORF(Z(ZWORD),BIT(ZBIT)) ONES = ONES + 1 GO TO 80 C C ELEMENT OF COLUMN LIES OUT OF RANGE INDICATED BY TRAILER C 100 WRITE (OUTPT,110) SFM,FILE 110 FORMAT (A25,' 2175, THE ROW POSITION OF AN ELEMENT OF A COLUMN ', 1 'ON FILE',I5, /5X,'IS GREATER THAN NUMBER OF ROWS ', 2 'SPECIFIED BY TRAILER.') GO TO 160 C C BIT STRING IS COMPLETE. C 120 CALL CLOSE (FILE,CLSREW) RETURN C C FILE IS PURGED C 130 SIZE = 0 ONES = 0 HERE = .FALSE. RETURN C C FATAL ERROR C 160 CALL CLOSE (FILE,CLSREW) CALL MESAGE (-61,0,SUBR) RETURN END ================================================ FILE: mis/pcoord.f ================================================ SUBROUTINE PCOORD (PEN) C C PLOTS A COORDINATE TRIAD AT THE LOWER RIGHT CORNER OF A STRUCTURAL C PLOT. THIS ROUTINE IS CALLED ONLY BY DRAW C C WRITTEN BY G.CHAN/UNISYS 10/1990 C INTEGER PEN,FPLTIT,SYM(2) COMMON /XXPARM/ IDUMM(215),FPLTIT COMMON /PLTDAT/ IDUM20(20),SIZE,IDUM2(2),CNTCHR(2) COMMON /DRWAXS/ G(3,4) C C C COMPUTE THE ORIGIN, WHICH IS A FUNCTION OF FRAME SIZE, CHARACTER C VERTICAL AND HORIZONTAL SCALES, PRESENCE OF PTITLE LINE, AND THE C OVERALL SIZE OF THE TRIAD C C ALL THE NUMERIC MULTIPLIERS USED BELOW WERE WORKED OUT WITH FRAME C SIZE OF 1023.0. THEY SHOULD BE APPLICABLE TO FRAME SIZE OF 3000. C X2 = 0.0 Y2 = 0.0 Y1 = 0.0 DO 10 I = 1,3 IF (G(2,I) .GT. X2) X2 = G(2,I) IF (G(3,I) .LT. Y2) Y2 = G(3,I) IF (G(3,I) .GT. Y1) Y1 = G(3,I) 10 CONTINUE DE = 1.8*CNTCHR(1) SF = 2.7*CNTCHR(2) IF (FPLTIT .EQ. 0) SF = 1.3*SF SF = SF/(Y1-Y2) X1 = SIZE - X2*SF - DE Y1 = -Y2*SF IF (FPLTIT .NE. 0) Y1 = Y1 + 0.8*CNTCHR(2) EP = 0.0001 OF = -1. IF (G(2,1).LE.EP .AND. G(2,2).LE.EP .AND. G(2,3).LE.EP) OF = +1. IF (OF .EQ. +1.) X1 = X1 - DE C C DRAW THE X-Y-Z COORDINATE TRIAD C DRAW A CIRCLE AT THE ORIGIN IF ANY AXIS IS IN LINE WITH VIEWER C SYM(1) = 6 SYM(2) = 0 DE = 0.8*CNTCHR(1) OF = 1.3*OF*CNTCHR(1) DO 30 I = 1,3 X2 = G(2,I)*SF + X1 Y2 = G(3,I)*SF + Y1 CALL LINE (X1,Y1,X2,Y2,PEN,0) IF (ABS(G(2,I))+ABS(G(3,I)) .GE. EP) GO TO 20 CALL SYMBOL (X1,Y1,SYM,0) CALL TIPE (X2+OF,Y2,1,G(I,4),1,0) GO TO 30 20 IF (G(2,I) .GT. 0.0) CALL TIPE (X2+DE,Y2,1,G(I,4),1,0) IF (G(2,I) .LE. 0.0) CALL TIPE (X2-DE,Y2,1,G(I,4),1,0) 30 CONTINUE C RETURN END ================================================ FILE: mis/permut.f ================================================ SUBROUTINE PERMUT(IA,ID,N,ISW) DIMENSION IA(1),IB(32),IC(32),ID(10) DO 10 I=1,N IC(I)=IA(I) 10 IB(I)=I N1=N-1 DO 20 I=1,N1 I1=I+1 DO 30 J=I1,N IF(IC(J)-IC(I))40,30,30 40 IS1=IB(J) IB(J)=IB(I) IB(I)=IS1 IS1 = IC(J) IC(J)=IC(I) IC(I) = IS1 30 CONTINUE 20 CONTINUE DO 50 I = 1,N IF(IC(I)-ISW)50,60,60 50 CONTINUE K=1 GO TO 71 60 DO 70 J=I,N K=J-I+1 70 ID(K)=IB(J) IF(K .EQ. N) GO TO 90 K=K+1 71 DO 80 J=K,N L=J-K+1 80 ID(J)=IB(L) 90 RETURN END ================================================ FILE: mis/perpec.f ================================================ SUBROUTINE PERPEC (X,STEREO) C INTEGER FVP,PRJECT,GP,STEREO REAL X(3,1),MIN,MAX DOUBLE PRECISION DIAM,R COMMON /BLANK / SKP(5),NGPSET COMMON /XXPARM/ SKPPLT(6),PENPAP(30),SCALX1,OBJMOD,SCALX2(3), 1 VIEW(15),FVP,R0,S0L,S0R,T0,D0,D02,D03,PRJECT,S0S COMMON /RSTXXX/ CSTM(3,3),MIN(3),MAX(3),D(3),AVER(3) DATA RDIST / 29. / C C I====================I C T I I C 1 I PROJECTION I C 1 I I C 1 I PLANE I C 1 I I C 1 I====================I C 1 / / C 1 / / C 1 / * OBSERVER / C 1 / 1 /D0 C 1/ 1 / C +--------------------/-----S C / 1 / / C / T01 /R0 C / 1/ / C /----------+- - - - -/ C / S0 C R C IF (PRJECT .EQ. 1) GO TO 140 IF (FVP .EQ. 0) GO TO 110 IF (PRJECT .EQ. 3) GO TO 100 C C PERSPECTIVE PROJECTION...FIND VANTAGE POINT C R = D(1)**2 + D(2)**2 + D(3)**2 DIAM = DSQRT(R) R0 = 2.*DIAM + AVER(1) S0L = AVER(2) T0 = DIAM + AVER(3) D0 = 1.5*DIAM GO TO 110 C C STEREO PROJECTION...FIND VANTAGE POINT C 100 R0 = RDIST + AVER(1)*OBJMOD S0L = AVER(2)*OBJMOD - S0S/2. S0R = AVER(2)*OBJMOD + S0S/2. T0 = AVER(3)*OBJMOD D0 = D03 GO TO 140 C 110 SCAL = 1. IF (PRJECT .EQ. 3) SCAL = OBJMOD SLR = S0L IF (STEREO .NE. 0) SLR = S0R DO 120 GP = 1,NGPSET R = D0/(R0-SCAL*X(1,GP)) S = SLR + R*(SCAL*X(2,GP)-SLR) T = T0 + R*(SCAL*X(3,GP)-T0 ) X(2,GP) = S X(3,GP) = T IF (PRJECT .EQ. 3) GO TO 120 MIN(2) = AMIN1(MIN(2),S) MIN(3) = AMIN1(MIN(3),T) MAX(2) = AMAX1(MAX(2),S) MAX(3) = AMAX1(MAX(3),T) 120 CONTINUE IF (PRJECT .EQ. 3) GO TO 140 C C FIND MINIMA + MAXIMA DIFFERENCES + AVERAGES C DO 130 I = 2,3 D(I) = MAX(I) - MIN(I) AVER(I) = (MAX(I)+MIN(I))/2. 130 CONTINUE C 140 RETURN END ================================================ FILE: mis/pexit.f ================================================ SUBROUTINE PEXIT C INTEGER HH,SS,DATE(3) COMMON /OUTPUT/ LE(17) COMMON /MACHIN/ MACH COMMON /MSGX / NMSG COMMON /RESDIC/ IRDICT COMMON /SYSTEM/ ISYSTM(100) EQUIVALENCE (ISYSTM( 2),NOUT ), (ISYSTM(76),NOSBE), 1 (ISYSTM(82),ICPFLG), 2 (ISYSTM(15),DATE ) C C SEE IF ANY MESSAGES ARE IN THE QUEUE C IF (NMSG .GT. 0) CALL MSGWRT IF (ICPFLG .NE. 0) WRITE (IRDICT,10) 10 FORMAT ('$ END OF CHECKPOINT DICTIONARY') C C JOB DONE. PRINT LAST 4 MESSAGE LINES C CALL WALTIM (I) HH = I/3600 MM = (I-HH*3600)/60 SS = I - HH*3600 - MM*60 CALL CPUTIM (I,T,0) IF (MACH .EQ. 4) I = T IF (LE(1).EQ.-1 .AND. LE(2).EQ.-1) GO TO 70 WRITE (NOUT,20) LE,DATE,HH,MM,SS 20 FORMAT (////40X,'* * * END OF JOB * * *', /1H1, /,' JOB TITLE = ', 1 17A4, /,' DATE:',I3,1H/,I2,1H/,I2, /,' END TIME:',I3,1H:, 2 I2,1H:,I2) C C CDC TOTAL CPU TIME IS A BIG NUMBER. DON'T PRINT IT C IF (MACH.EQ.4 .OR. LE(1).EQ.-1) GO TO 50 IF (MACH .LE. 5) WRITE (NOUT,30) I IF (MACH .GT. 5) WRITE (NOUT,40) I 30 FORMAT (' TOTAL CPU TIME',I6,' SEC.') 40 FORMAT (' TOTAL WALL CLOCK TIME',I7,' SEC.') C C FLUSH O/P BUFFERS C 50 WRITE (NOUT,60) 60 FORMAT (1H ) C IF (MACH.EQ.4 .AND. NOSBE.GT.0) CALL LINK (-1,NOSBE,1) GO TO 90 C 70 J = 5 IF (LE(9) .GE. 0) J = 3 WRITE (NOUT,80) (LE(I),I=J,8) 80 FORMAT (//1X,6A4) C 90 CONTINUE CALL DBMSTF DO 100 I = 1,4 CLOSE ( I ) 100 CONTINUE DO 200 I = 7,22 CLOSE ( I ) 200 CONTINUE CWKBR 8/94 SUN CALL EXIT CALL EXIT( 0 ) END ================================================ FILE: mis/phdmia.f ================================================ SUBROUTINE PHDMIA C C PUNCH SINGLE- OR DOUBLE-FIELD DMI CARDS FOR REAL, SINGLE- C PRECISION MATRICES. C C $MIXED_FORMAT C LOGICAL FIRST INTEGER FMT(8),IQX(8),KFMT(22),RET,NAME(2),RET1,LFMT(23), 1 H1,H2,H3,C1,C2,C3,H1A,C1A,ERNO REAL QX(8) COMMON /PHDMIX/ NAME,NAM,IFO,ITIN,ITOUT,IR,IC,NOUTPT,KPP,NLPP, 1 ERNO,ICOL,IRO,X,ICARD1 COMMON /SYSTEM/ DUM90(90),NP COMMON /MAHCIN/ MACH EQUIVALENCE (QX(1),IQX(1)), (LFMT(2),KFMT(1)) DATA DMI , IZ, P , DMIS , S / 1 3HDMI , 0 , 1H+, 4HDMI*, 1H* / DATA KFMT / 3*4H$$$$,16*4H**** , 4HA1,A,4H2,I5,4H) / DATA KFMTI , KFMTR1,KFMTR2/4HI8 ,,4HF8.1,4H, / DATA KDMTI , KDMTR1,KDMTR2/4HI16,,4H1PE1,4H6.8, / DATA KFMTB , KFMT8 ,KDMTR0/4H ,4H4X, ,4H E1 / DATA KDMTB , KDMT8 /4H ,4H8X, / DATA H1 , H2 ,H3 ,C1 ,C2 ,C3 ,H1A ,C1A / 1 4H(A4,, 4H4X, ,4H2A4,,4H(A1,,4HA2, ,4HI5, ,4H A4,,4H A1,/ DATA LFMT(1)/ 4H(1X,/ C C IBM/AIX (MACH=8) DOES NOT LIKE THE NON-ANSI STANDARD FORMAT C 1PE16.8 (THE STANDARD IS 1P,E16.8). C IF (MACH .EQ. 8) KDMTR1 = KDMTR0 C C CALLED INITIALLY FOR EACH MATRIX. C C SET PUNCH UNIT TO 7 FOR IBM AND CDC AND TO 1 FOR UNIVAC C ERNO = 0 NOUT = NOUTPT KP = KPP NKP = 8/KP ICARD =-1 ICARD1= 0 GO TO (10,20), KP 10 DMIPS = DMI PS = P GO TO 30 20 DMIPS = DMIS PS = S DO 25 I = 12,19 25 KFMT(I) = KDMTB 30 WRITE (NP,1) DMI,NAME,IZ,IFO,ITIN,ITOUT,IR,IC,P,NAM,ICARD1 1 FORMAT (A3,5X,2A4,4I8,8X,2I8,A1,A2,I5) IF (NOUT .LE. 0) GO TO 40 WRITE (NOUT,2) DMI,NAME,IZ,IFO,ITIN,ITOUT,IR,IC,P,NAM,ICARD1 2 FORMAT (1H1,/1X,A3,5X,2A4,4I8,8X,2I8,A1,A2,I5) L = 1 40 RETURN C C ENTRY PHDMIB C ============ C C CALLED FOR FIRST NON-ZERO ELEMENT OF EACH COLUMN. C IQ = 0 IROW = IRO FIRST=.TRUE. IQ = IQ + 1 FMT(IQ) = 0 IQX(IQ) = 0 IQ = IQ + 1 FMT(IQ) = 1 IQX(IQ) = ICOL IQ = IQ + 1 FMT(IQ) = 1 IQX(IQ) = IROW IQ = IQ + 1 FMT(IQ) = 2 QX(IQ) = X RETURN C C ENTRY PHDMIC C ============ C C CALLED FOR EACH NON-ZERO ELEMENT OF COLUMN EXCEPT FIRST ONE. C C LOOK FOR FULL CARD C IF (IQ .LT. NKP) GO TO 100 ASSIGN 100 TO RET GO TO 700 C C DETERMINE IF NEW ENTRY IS CONSECUTIVE OR NON-CONSECUTIVE. C 100 IF (IRO .NE. IROW+1) GO TO 200 IROW = IRO IQ = IQ + 1 FMT(IQ) = 2 QX(IQ) = X RETURN C 200 IQ = IQ + 1 IROW = IRO FMT(IQ) = 1 IQX(IQ) = IRO IF (IQ .LT. NKP) GO TO 300 ASSIGN 300 TO RET GO TO 700 300 IQ = IQ + 1 FMT(IQ) = 2 QX(IQ) = X RETURN C C ENTRY PHDMID C ============ C C ENTRY POINT FOR COLUMN TERMINATION CALL C IF (IQ .LE. 0) RETURN ASSIGN 500 TO RET GO TO 700 500 RETURN C C PUNCH CARD C 700 N = IQ ASSIGN 800 TO RET1 GO TO 1000 800 IF (FIRST) GO TO 900 WRITE (NP,KFMT,ERR=810) PS,NAM,ICARD,(QX(L),L=1,IQ),PS,NAM,ICARD1 810 LFMT(2) = C1A IF (NOUT .LE. 0) GO TO 850 IF (L .LT. NLPP) GO TO 830 WRITE (NOUT,3) 3 FORMAT (1H1) L = 0 830 WRITE (NOUT,LFMT,ERR=840) PS,NAM,ICARD,(QX(L),L=1,IQ), 1 PS,NAM,ICARD1 840 L = L + 1 850 IQ = 0 GO TO 950 900 WRITE (NP,KFMT,ERR=910) DMIPS,NAME,(QX(L),L=2,IQ),PS,NAM,ICARD1 910 LFMT(2) = H1A IF (NOUT .LE. 0) GO TO 940 IF (L .LT. NLPP) GO TO 920 WRITE (NOUT,3) L = 0 920 WRITE (NOUT,LFMT,ERR=930) DMIPS,NAME,(QX(L),L=2,IQ),PS,NAM,ICARD1 930 L = L + 1 940 FIRST = .FALSE. IQ = 0 950 GO TO RET, (100,300,500) C C BUILD FORMAT FOR CARD IMAGE. C 1000 ICARD = ICARD + 1 ICARD1 = ICARD + 1 IF (ICARD1 .GT. 99999) GO TO 9901 GO TO (1001,1101), KP 1001 IF (FIRST) GO TO 1005 I1 = 1 KFMT(1) = C1 KFMT(2) = C2 KFMT(3) = C3 GO TO 1009 1005 I1 = 2 KFMT(1) = H1 KFMT(2) = H2 KFMT(3) = H3 KFMT(4) = KFMTB KFMT(5) = KFMTB 1009 DO 1030 I = I1,N K = FMT(I) IF (K .EQ. 2) GO TO 1020 1010 KFMT(2*I+2) = KFMTI KFMT(2*I+3) = KFMTB GO TO 1030 1020 KFMT(2*I+2) = KFMTR1 KFMT(2*I+3) = KFMTR2 1030 CONTINUE IF (N .GE. NKP) GO TO 1999 N1 = N + 1 DO 1040 I = N1,NKP KFMT(2*I+2) = KFMT8 KFMT(2*I+3) = KFMT8 1040 CONTINUE GO TO 1999 1101 IF (FIRST) GO TO 1105 I1 = 1 KFMT(1) = C1 KFMT(2) = C2 KFMT(3) = C3 GO TO 1109 1105 I1 = 2 KFMT(1) = H1 KFMT(2) = H2 KFMT(3) = H3 KFMT(4) = KDMT8 KFMT(5) = KDMTB 1109 DO 1130 I = I1,N K = FMT(I) IF (K .EQ. 2) GO TO 1120 1110 KFMT(2*I+2) = KDMTI KFMT(2*I+3) = KDMTB GO TO 1130 1120 KFMT(2*I+2) = KDMTR1 KFMT(2*I+3) = KDMTR2 1130 CONTINUE IF (N .GE. NKP) GO TO 1999 N1 = N + 1 DO 1140 I = N1,NKP KFMT(2*I+2) = KDMT8 KFMT(2*I+3) = KDMT8 1140 CONTINUE GO TO 1999 1999 GO TO RET1, (800) C C C ERROR MESSAGES C 9901 ERNO = 1 GO TO 9999 C C 9999 RETURN C END ================================================ FILE: mis/pidck.f ================================================ SUBROUTINE PIDCK (PFILE,GEOM2,NOPID,Z) C C THIS ROUTINE CHECKS THE UNIQUNESS OF PROPERTY IDS FOR ALL ELEMENTS C THAT HAVE PID FIELDS C C IT SHOULD BE CALLED ONLY ONCE BY IFP C IT DOES NOT OPEN NOR CLOSE ANY GINO FILE. C C DESIGN REQUIREMENT - C C IF PID IS REFERENCED BY AN ELEMENT, THE PID MUST RESIDE ON THE C THIRD FIELD OF THE ELEMENT INPUT CARD. C INPUT FILES - GEOM2 AND PROPERTY FILE (EPT). C C THIS VERSION INCLUDES SPECIAL HANDLING OF THE CQUAD4 AND CTRIA3 C ELEMENTS WHICH USE AND SHARE MORE THAN ONE STANDARD PROPERTY CARD. C THE PROPERTY TYPE IDS OF THE PSHELL, PCOMP, PCOMP1 AND PCOMP2 C MUST NOT BE INTERRUPTED BY ANOTHER PROPERTY TYPE. (I.E. NO OTHER C PROPERTY TYPE SHOULD HAVE AN ID PLACED IN BETWEEN 5502 THRU 5802). C NOTICE THAT THE PSHELL CARD HAS FIXED LENGTH WHILE THE 3 PCOMPI C CARDS HAVE VARIABLE LENGTH. C C WRITTEN BY G.CHAN/UNISYS, SEPT. 1983 C LOGICAL ABORT INTEGER PFILE, GEOM2, Z(1), NAME(2), 1 FLAG, X(3), QUAD4, PSHELL, 2 PCOMP(3) CHARACTER UFM*23, UWM*25, UIM*29 COMMON /XMSSG / UFM, UWM, UIM COMMON /SYSTEM/ IBUF, NOUT, ABORT, SKIP(42), 1 KDUM(9) COMMON /GPTA1 / NELEM, LAST, INCR, NE(1) DATA QUAD4 , PSHELL, PCOMP / 1 5408 , 5802, 5502, 5602, 5702 / DATA NAME / 4HPIDC, 4HK / C C UPDATE /GPTA1/ IF DUMMY ELEMENTS ARE PRESENT C DO 90 I = 1,9 IF (KDUM(I) .EQ. 0) GO TO 90 K = KDUM(I) NG = K/10000000 NC = (K-NG*10000000)/10000 NP = (K-NG*10000000 - NC*10000)/10 K = (51+I)*INCR NE(K+ 6) = 2 + NG + NC NE(K+ 9) = 2 + NP NE(K+10) = NG 90 CONTINUE C C CREATE A PROPERTY ID TABLE IN Z FROM /GPTA1/ DATA BLOCK FOR THOSE C ELEMENTS THAT HAVE PROPERTY CARDS C 4 WORDS PER ENTRY C WORD 1, PROPERTY TYPE CODE (EPT-ID) C WORD 2, LENGTH OF PROPERTY CARD (EPTWDS) C WORD 3, ELEMENT TYPE CODE (ECT-ID) C WORD 4, LENGTH OF ELEMENT CARD (ECTWDS), PLUS POINTER TO GPTA1 C II = 0 DO 100 I = 1,LAST,INCR IF (NE(I+6) .EQ. 0) GO TO 100 Z(II+1) = NE(I+6) Z(II+2) =-NE(I+8) Z(II+3) = NE(I+3) Z(II+4) = NE(I+5)*10000 + I II = II + 4 100 CONTINUE C C ADD 3 MORE PROPERTY CARDS (PCOMP, PCOMP1, PCOMP2) FOR CQUAD4 (64) C AND CTRIA3 C NOTE - THESE THREE ARE OPEN-ENDED, AND WE SET WORD 2 TO -8888 C - WE GIVE THEM LOCALLY NEW QUAD4 IDS IN THE 3RD WORD, SO THAT C ELEMENT CQUAD4 AND ELEMENT CTRIA3 WILL PICK THEM UP VIA C THE PSEHLL DATA LATER. C I = (64-1)*INCR + 1 IF (NE(I+3) .NE. QUAD4) CALL MESAGE (-37,0,NAME) DO 105 J = 1,3 Z(II+1) = PCOMP(J) Z(II+2) = -8888 Z(II+3) = QUAD4 - J Z(II+4) = NE(I+5)*10000 + I II = II + 4 105 CONTINUE C C SORT THIS 4-ENTRY Z-TABLE BY THE FIRST WORD. C SET WORD 2 TO -9999 IF ELEMENT USES THE SAME PROPERTY CARD AS THE C PREVIOUS ELEMENT. C I4 = II/4 CALL SORT (0,0,4,1,Z,II) DO 110 I = 5,II,4 IF (Z(I) .EQ. Z(I-4)) Z(I+1) = -9999 110 CONTINUE C C READ FROM PFILE ALL PID INTO REMAINING CORE. REPLACE WORD 2 IN THE C Z-TABLE BY PID BEGIN-ENDING POINTERS C JJ = II + 1 IF (NOPID .EQ. 1) GO TO 210 CALL REWIND (PFILE) 120 CALL FWDREC (*360,PFILE) 130 CALL READ (*190,*190,PFILE,X,3,0,FLAG) C 2147483647 = 2**31-1 IF (X(1) .EQ. 2147483647) GO TO 190 CALL BISLOC (*120,X(1),Z,4,I4,K) 140 KP1 = K + 1 IF (Z(KP1) .NE. -9999) GO TO 150 K = K - 4 GO TO 140 150 NWDS = -Z(KP1) IF (NWDS .LE. 0) GO TO 120 KOMP = 0 IF (NWDS .NE. 8888) GO TO 155 KOMP = 1 NWDS = 8 155 Z(KP1) = (JJ*10000) + (JJ-1) JB = JJ 160 CALL READ (*360,*130,PFILE,Z(JJ),NWDS,0,FLAG) IF (KOMP .EQ. 0) GO TO 167 165 CALL READ (*360,*130,PFILE,J,1,0,FLAG) IF (J .NE. -1) GO TO 165 167 JE = MOD(Z(KP1),10000) IF (JE .LT. JB) GO TO 180 DO 170 J = JB,JE IF (Z(JJ) .EQ. Z(J)) GO TO 160 170 CONTINUE 180 Z(KP1) = Z(KP1) + 1 JJ = JJ + 1 GO TO 160 190 CALL REWIND (PFILE) JJ = JJ - 1 IF (JJ .LE. II) NOPID = -1 C C RESET THE PSHELL POINTERS TO INCLUDE THE PCOMP GROUP IDS. C MAKE SURE THIS GROUP ARE ALL TOGETHER, NOT SEPERATED BY OTHER C PROPERTY CARD C THERE ARE 2 PSHELL CARDS, ONE FROM CQUAD4 AND ONE FROM CTRIA3, C MAKE SURE THE FIRST PSHELL POINTER IS USED C CALL BISLOC (*210,PSHELL,Z,4,I4,KP1) IF (Z(KP1+1) .EQ. -9999) KP1 = KP1 - 4 IF (Z(KP1- 4).NE.PCOMP(3) .OR. Z(KP1-8).NE.PCOMP(2) .OR. 1 Z(KP1-12).NE.PCOMP(1)) GO TO 380 J = Z(KP1+1) IF (J .LE. 0) J = 0 JB = J/10000 JE = MOD(J,10000) IF (JB .EQ. 0) JB = 9999999 DO 200 I = 1,3 CALL BISLOC (*370,PCOMP(I),Z,4,I4,K) IF (Z(K+1) .LE. 0) GO TO 200 J = Z(K+1)/10000 K = MOD(Z(K+1),10000) IF (J .LT. JB) JB = J IF (K .GT. JE) JE = K 200 CONTINUE IF (JB .NE. 9999999) Z(KP1+1) = (JB*10000) + JE C C RESET POINTERS FOR THOSE PROPERTY ID COMMON TO MORE THAN ONE TYPE C OF ELEMENTS, AND C MOVE THE THIRD ENTRY IN THE Z-TABLE TO FIRST, FOR ELEMENT SORT C 210 DO 220 I = 1,II,4 Z(I) = Z(I+2) J = I + 1 IF (Z(J) .GT. 0) GO TO 220 IF (Z(J) .EQ. -9999) Z(J) = Z(J-4) 220 CONTINUE CALL SORT (0,0,4,1,Z,II) C C READ IN CONNECTING ELEMENTS, ONE BY ONE, FROM GEOM2 FILE, AND C CHECK THE EXISTENCE OF THE PROPERTY ID IF IT IS SPECIFIED. C KK = JJ + 1 CALL REWIND (GEOM2) 230 CALL FWDREC (*360,GEOM2) 240 CALL READ (*300,*300,GEOM2,X,3,0,FLAG) CALL BISLOC (*230,X(1),Z,4,I4,K) NWDS = Z(K+3)/10000 IF (NWDS .LE. 0) GO TO 230 J = Z(K+1) IF (J .LE. 0) GO TO 270 JB = J/10000 JE = MOD(J,10000) 250 CALL READ (*360,*240,GEOM2,Z(KK),NWDS,0,FLAG) JJ1 = Z(KK+1) DO 260 J = JB,JE IZ = IABS(Z(J)) IF (JJ1 .NE. IZ) GO TO 260 Z(J) = -IZ GO TO 250 260 CONTINUE CALL MESAGE (30,10,Z(KK)) ABORT = .TRUE. GO TO 250 270 J = MOD(Z(K+3),10000) CALL MESAGE (30,11,NE(J)) ABORT = .TRUE. GO TO 230 300 CALL REWIND (GEOM2) IF (ABORT .OR. NOPID.NE.0) GO TO 350 C C PREPARE AN ACTIVE PROPERTY ID LIST FOR SUBROUTINE MATCK C J = II + 1 II = 1 DO 320 I = J,JJ IF (Z(I) .GE. 0) GO TO 310 II = II + 1 Z(II) = -Z(I) GO TO 320 310 Z(KK) = Z(I) KK = KK + 1 320 CONTINUE Z(1) = II C C Z(2,...II) CONTAINS A LIST OF ACTIVE PROPERTY IDS, UN-SORTED, C REFERENCED BY ELEMENTS IN GEOM2 FILE. Z(1) = LENGTH OF THIS LIST C JJ1 = JJ + 1 KK = KK - 1 IF (KK .LT. JJ1) RETURN WRITE (NOUT,330) UIM 330 FORMAT (A29,', THE FOLLOWING PROPERTY IDS ARE PRESENT BUT NOT ', 1 'USED -') WRITE (NOUT,340) (Z(J),J=JJ1,KK) 340 FORMAT (/5X,12I9) RETURN C C SET Z(1) TO ZERO IF NO ACTIVE PROPERTY LIST EXISTS. C 350 Z(1) = 0 RETURN C 360 J = -2 GO TO 400 370 WRITE (NOUT,375) 375 FORMAT ('0*** CAN NOT LOCATE PSHELL OR PCOMP DATA IN /GPTA1/') GO TO 390 380 WRITE (NOUT,385) Z(KP1),PSHELL,Z(KP1-4),PCOMP(3), 1 Z(KP1-8),PCOMP(2),Z(KP1-12),PCOMP(1) 385 FORMAT ('0*** ERROR IN /GPTA1/ PCOMP ARRANGEMENT',(/3X,2I7)) 390 J = -37 400 CALL MESAGE (J,0,NAME) RETURN END ================================================ FILE: mis/piklvl.f ================================================ SUBROUTINE PIKLVL (*,LVLS1,LVLS2,CCSTOR,IDFLT,ISDIR,XC,NHIGH, 1 NLOW,NACUM,SIZE,STPT) C INTEGER CCSTOR(1), SIZE(1), STPT(1), XC, END, TEMP DIMENSION NHIGH(1), NLOW(1), NACUM(1), LVLS1(1), LVLS2(1) COMMON /BANDG / IDUM, IDPTH C C THIS ROUTINE IS USED ONLY BY GIBSTK OF BANDIT MODULE C C PIKLVL CHOOSES THE LEVEL STRUCTURE USED IN NUMBERING GRAPH C C LVLS1- ON INPUT CONTAINS FORWARD LEVELING INFO C LVLS2- ON INPUT CONTAINS REVERSE LEVELING INFO C ON OUTPUT THE FINAL LEVEL STRUCTURE CHOSEN C CCSTOR- ON INPUT CONTAINS CONNECTED COMPONENT INFO C IDFLT- ON INPUT =1 IF WDTH LVLS1'WDTH LVLS2, =2 OTHERWISE C NHIGH KEEPS TRACK OF LEVEL WIDTHS FOR HIGH NUMBERING C DIMENSION OF NHIGH IS MAXIMUM ALLOWABLE NUMBER OF LEVELS C NLOW- KEEPS TRACK OF LEVEL WIDTHS FOR LOW NUMBERING C NACUM- KEEPS TRACK OF LEVEL WIDTHS FOR CHOSEN LEVEL STRUCTURE C XC- NUMBER OF MAXIMUM ALLOWABLE CONNECTED COMPONENTS C (IS THE DIMENSION FOR SIZE AND STPT) C SIZE(I)- SIZE OF ITH CONNECTED COMPONENT C STPT(I)- INDEX INTO CCSTORE OF 1ST NODE IN ITH CON COMPT C ISDIR- FLAG WHICH INDICATES WHICH WAY THE LARGEST CONNECTED C COMPONENT FELL. =+1 IF LOW AND -1 IF HIGH C C C PART 1 - C ======== C SORTS SIZE AND STPT HERE, IN DECENDING ORDER C (PREVIOUS SORT2 ROUTINE IS NOW MOVED INTO HERE. C THE ORIGINAL BUBBLE SORT HAS BEEN REPLACED BY THE MODIFIED SHELL C SORT WHICH IS MUCH FASTER /G.CHAN, MAY 1988) C IF (XC .EQ. 0) RETURN 1 M=XC 10 M=M/2 IF (M .EQ. 0) GO TO 70 J=1 K=XC-M 20 I=J 30 N=I+M IF (SIZE(N)-SIZE(I)) 60,60,50 50 TEMP =SIZE(I) SIZE(I)=SIZE(N) SIZE(N)=TEMP TEMP =STPT(I) STPT(I)=STPT(N) STPT(N)=TEMP I=I-M IF (I .GE. 1) GO TO 30 60 J=J+1 IF (J-K) 20,20,10 70 CONTINUE C C C PART 2 - C ======== C CHOOSES THE LEVEL STRUCTURE USED IN NUMBERING GRAPH C C C FOR EACH CONNECTED COMPONENT DO C DO 270 I=1,XC J =STPT(I) END=SIZE(I)+J-1 C C SET NHIGH AND NLOW EQUAL TO NACUM C DO 200 K=1,IDPTH NHIGH(K)=NACUM(K) NLOW(K) =NACUM(K) 200 CONTINUE C C UPDATE NHIGH AND NLOW FOR EACH NODE IN CONNECTED COMPONENT C DO 210 K=J,END INODE=CCSTOR(K) LVLNH=LVLS1(INODE) NHIGH(LVLNH)=NHIGH(LVLNH)+1 LVLNL=LVLS2(INODE) NLOW(LVLNL)=NLOW(LVLNL)+1 210 CONTINUE MAX1=0 MAX2=0 C C SET MAX1=LARGEST NEW NUMBER IN NHIGH C SET MAX2=LARGEST NEW NUMBER IN NLOW C DO 220 K=1,IDPTH IF (2*NACUM(K).EQ.NLOW(K)+NHIGH(K)) GO TO 220 IF (NHIGH(K).GT.MAX1) MAX1=NHIGH(K) IF (NLOW(K) .GT.MAX2) MAX2=NLOW(K) 220 CONTINUE C C SET IT= NUMBER OF LEVEL STRUCTURE TO BE USED C IT=1 IF (MAX1.GT.MAX2) IT=2 IF (MAX1.EQ.MAX2) IT=IDFLT IF (IT.EQ.2) GO TO 250 IF (I .EQ.1) ISDIR=-1 C C COPY LVLS1 INTO LVLS2 FOR EACH NODE IN CONNECTED COMPONENT C DO 230 K=J,END INODE=CCSTOR(K) LVLS2(INODE)=LVLS1(INODE) 230 CONTINUE C C UPDATE NACUM TO BE THE SAME AS NHIGH C DO 240 K=1,IDPTH NACUM(K)=NHIGH(K) 240 CONTINUE GO TO 270 C C UPDATE NACUM TO BE THE SAME AS NLOW C 250 DO 260 K=1,IDPTH NACUM(K)=NLOW(K) 260 CONTINUE 270 CONTINUE RETURN END ================================================ FILE: mis/pkbar.f ================================================ SUBROUTINE PKBAR C C THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES K(NPVT,NPVT) AND C K(NPVT,J) FOR A BAR ELEMENT HAVING END POINTS NUMBERED NPVT AND J. C C ECPT FOR THE BAR C C ECPT( 1) - IELID ELEMENT ID. NUMBER C ECPT( 2) - ISILNO(2) * SCALAR INDEX NOS. OF THE GRID POINTS C ECPT( 3) - ... * C ECPT( 4) - SMALLV(3) $ REFERENCE VECTOR C ECPT( 5) - ... $ C ECPT( 6) - ... $ C ECPT( 7) - ICSSV COOR. SYS. ID FOR SMALLV VECTOR C ECPT( 8) - IPINFL(2) * PIN FLAGS C ECPT( 9) - ... * C ECPT(10) - ZA(3) $ OFFSET VECTOR FOR POINT A C ECPT(11) - ... $ C ECPT(12) - ... $ C ECPT(13) - ZB(3) * OFFSET VECTOR FOR POINT B C ECPT(14) - ... * C ECPT(15) - ... * C ECPT(16) - IMATID MATERIAL ID. C ECPT(17) - A CROSS-SECTIONAL AREA C ECPT(18) - I1 $ AREA MOMENTS OF INERTIA C ECPT(19) - I2 $ C ECPT(20) - FJ POLAR MOMENT OF INERTIA C ECPT(21) - NSM NON-STRUCTURAL MASS C ECPT(22) - FE FORCE ELEMENT DESCRIPTIONS (FORCE METHOD) C ECPT(23) - C1 * STRESS RECOVERY COEFFICIENTS C ECPT(24) - C2 * C ECPT(25) - D1 * C ECPT(26) - D2 * C ECPT(27) - F1 * C ECPT(28) - F2 * C ECPT(29) - G1 * C ECPT(30) - G2 * C ECPT(31) - K1 $ AREA FACTORS FOR SHEAR C ECPT(32) - K2 $ C ECPT(33) - I12 AREA MOMENT OF INERTIA C ECPT(34) - MCSIDA COOR. SYS. ID. FOR GRID POINT A C ECPT(35) - GPA(3) * BASIC COORDINATES FOR GRID POINT A C ECPT(36) - ... * C ECPT(37) - ... * C ECPT(38) - MCSIDB COOR. SYS. ID. FOR GRID POINT B C ECPT(39) - GPB(3) $ BASIC COORDINATES FOR GRID POINT B C ECPT(40) - ... $ C ECPT(41) - ... $ C ECPT(42) - ELTEMP AVG. ELEMENT TEMPERATURE C ECPT(43) - EPS1SP PREVIOUS STRAIN VALUE ONCE REMOVED C ECPT(44) - EPS2SP PREVIOUS STRAIN VALUE C ECPT(45) - ESTAR PREVIOUSLY COMPUTED MODULUS OF ELASTICITY C ECPT(46) - UASP(6) * INCREMENTAL DISPLACEMENT VECTOR AT PT.A C ECPT(47) - ... * C ECPT(48) - ... * C ECPT(49) - ... * C ECPT(50) - ... * C ECPT(51) - ... * C ECPT(52) - UBSP(6) $ INCREMENTAL DISPLACEMENT VECTOR AT PT.B C ECPT(53) - ... $ C ECPT(54) - ... $ C ECPT(55) - ... $ C ECPT(56) - ... $ C ECPT(57) - ... $ C LOGICAL ABASIC,BBASIC,BASIC,AOFSET,BOFSET,OFFSET REAL K1,K2,I1,I2,I12,NSM DOUBLE PRECISION TA(18),TB(9),SMALV0(6),DELA,DELB,KE,KEP,VECI, 1 VECJ,VECK,FL,FLL,EI1,EI2,GAK1,GAK2,R1,R2,SK1, 2 SK2,SK3,SK4,AEL,GJL,LR1,LR2,L,LSQ,LCUBE,DP(8) DOUBLE PRECISION BETA,LB,L2B3,L2B6,U(24),D(9),EPSIN1,EPSIN2,DEPS1, 1 DEPS2,EPS1,EPS2,GAMMA,GAMMAS,SIGMA1,SIGMA2, 2 E SUB 0 D,G SUB 0 D,E,G DIMENSION VECI(3),VECJ(3),VECK(3),ECPT(100),IECPT(100), 1 IPIN(10) C C PLA42 COMMUNICATIONS BLOCK COMMON /PLA42C/ NPVT,G NEW,G OLD,DUMCL(146),NOGO C C ECPT COMMON BLOCK COMMON /PLA42E/ IELID,ISILNO(2),SMALLV(3),ICSSV,IPINFL(2),ZA(3), 1 ZB(3),IMATID,A,I1,I2,FJ,NSM,FE,C1,C2,D1,D2,F1,F2, 2 G1,G2,K1,K2,I12,MCSIDA,GPA(3),MCSIDB,GPB(3), 3 ELTEMP,EPS1SP,EPS2SP,ESTAR,UASP(6),UBSP(6) C C PKBAR LOCAL VARIABLES IN PLA42 SCRATCH BLOCK COMMON /PLA42D/ KE(144),KEP(144),DELA(6),DELB(6) C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT COMMON /MATIN / MATIDC,MATFLG,TDUM,PLAARG C COMMON /MATOUT/ E SUB 0,G SUB 0,MATDUM(18) EQUIVALENCE (IELID,ECPT(1),IECPT(1)),(TA(10),TB(1)), 1 (ECPT(71),DP(1),D(1)),(E SUB 0,PLAANS) C C C DETERMINE WHICH POINT IS THE PIVOT POINT. C IPVT = 1 IF (ISILNO(1) .EQ. NPVT) GO TO 20 IPVT = 2 IF (ISILNO(2) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1)) C C SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS. C ICSIDA AND ICSIDB ARE COOR. SYS. IDS. C 20 JCSIDA = 34 JCSIDB = 38 JOFSTA = 10 JOFSTB = 13 JPINA = 8 JPINB = 9 ICSIDA = IECPT(34) ICSIDB = IECPT(38) C C NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL C AXIS PLANE (FMMS - 36 P. 4) C WE STORE SMALLV IN SMALV0 SO THAT ARITHMETIC WILL BE DOUBLE C PRECISION C DO 50 I = 1,3 50 SMALV0(I) = SMALLV(I) FL = DSQRT(SMALV0(1)**2 + SMALV0(2)**2 + SMALV0(3)**2) IF (FL .LE. 0.0D0) GO TO 1010 DO 60 I = 1,3 60 SMALV0(I) = SMALV0(I)/FL C C DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT. C ABASIC = .TRUE. BBASIC = .TRUE. IF (ICSIDA .NE. 0) ABASIC = .FALSE. IF (ICSIDB .NE. 0) BBASIC = .FALSE. C C COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY C IF (.NOT.ABASIC) CALL TRANSD (ECPT(JCSIDA),TA) IF (.NOT.BBASIC) CALL TRANSD (ECPT(JCSIDB),TB) C C DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS. C AOFSET = .TRUE. J = JOFSTA - 1 DO 70 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 80 70 CONTINUE AOFSET = .FALSE. 80 BOFSET = .TRUE. J = JOFSTB - 1 DO 90 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 100 90 CONTINUE BOFSET = .FALSE. C C FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS. C FIRST WE STORE THE COORDINATES IN THE ARRAY DP SO THAT ALL C ARITHMETIC WILL BE DOUBLE PRECISION. C 100 DP(1) = ECPT(JCSIDA+1) DP(2) = ECPT(JCSIDA+2) DP(3) = ECPT(JCSIDA+3) DP(4) = ECPT(JCSIDB+1) DP(5) = ECPT(JCSIDB+2) DP(6) = ECPT(JCSIDB+3) VECI(1) = DP(1) - DP(4) VECI(2) = DP(2) - DP(5) VECI(3) = DP(3) - DP(6) C C TRANSFORM THE OFFSET VECTORS IF NECESSARY C IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150 C C TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY. C IDELA = 1 J = JOFSTA - 1 DO 110 I = 1,3 J = J + 1 110 DELA(I) = ECPT(J) IF (ABASIC) GO TO 120 IDELA = 4 CALL GMMATD (TA,3,3,0, DELA(1),3,1,0, DELA(4)) C C TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY C 120 IDELB = 1 J = JOFSTB - 1 DO 130 I = 1,3 J = J + 1 130 DELB(I) = ECPT(J) IF (BBASIC) GO TO 140 IDELB = 4 CALL GMMATD (TB,3,3,0, DELB(1),3,1,0, DELB(4)) C C SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI C 140 VECI(1) = VECI(1) + DELA(IDELA ) - DELB(IDELB ) VECI(2) = VECI(2) + DELA(IDELA+1) - DELB(IDELB+1) VECI(3) = VECI(3) + DELA(IDELA+2) - DELB(IDELB+2) C C COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE C 150 VECI(1) = -VECI(1) VECI(2) = -VECI(2) VECI(3) = -VECI(3) FL = DSQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) IF (FL .EQ. 0.0D0) GO TO 1010 DO 160 I = 1,3 160 VECI(I) = VECI(I)/FL C C COMPUTE THE SMALL V SUB 0 VECTOR, SMALV0. ***CHECK THIS LOGIC*** C ISV = 1 IF (ICSSV .EQ. 0) GO TO 180 ISV = 4 CALL GMMATD (TA,3,3,0, SMALV0(1),3,1,0, SMALV0(4)) C C COMPUTE THE K VECTOR, VECK = VECI X SMALV0, AND NORMALIZE C 180 VECK(1) = VECI(2)*SMALV0(ISV+2) - VECI(3)*SMALV0(ISV+1) VECK(2) = VECI(3)*SMALV0(ISV ) - VECI(1)*SMALV0(ISV+2) VECK(3) = VECI(1)*SMALV0(ISV+1) - VECI(2)*SMALV0(ISV) FLL = DSQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) IF ( FLL .EQ. 0.0D0 ) GO TO 1010 VECK(1) = VECK(1)/FLL VECK(2) = VECK(2)/FLL VECK(3) = VECK(3)/FLL C C COMPUTE THE J VECTOR, VECJ = VECK X VECI, AND NORMALIZE C VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2) VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3) VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1) FLL = DSQRT(VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2) IF ( FLL .EQ. 0.0D0 ) GO TO 1010 VECJ(1) = VECJ(1)/FLL VECJ(2) = VECJ(2)/FLL VECJ(3) = VECJ(3)/FLL C C SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX C CALCULATION C L = FL LSQ = L**2 LCUBE = LSQ*L C C STORE INCREMENTAL DISPLACEMENT VECTORS IN DOUBLE PRECISION C LOCATIONS C DO 182 I = 1,6 U(I) = UASP(I) 182 U(I+12) = UBSP(I) C C COMPUTE ON FIRST PASS C * E * U AND C * E * U ON SECOND PASS C B B B A A A C IPASS = 1 BASIC = BBASIC OFFSET = BOFSET JOFSET = JOFSTB JCSID = 10 INDEX = 13 C C IF THERE ARE OFFSETS FOR THIS POINT, CONSTRUCT THE 3 X 3 MATRIX D. C 184 IF (.NOT. OFFSET) GO TO 188 D(1) = 0.0D0 D(2) = ECPT(JOFSET+2) D(3) = -ECPT(JOFSET+1) D(4) = -D(2) D(5) = 0.0D0 D(6) = ECPT(JOFSET) D(7) = -D(3) D(8) = -D(6) D(9) = 0.0D0 C C COMPUTE THE 3 VECTOR D * U , WHERE U IS THE VECTOR OF THE 3 C R R C ROTATIONAL DISPLACEMENTS C CALL GMMATD (D,3,3,0, U(INDEX+3),3,1,0, U(INDEX+6)) C C ADD OFFSET CONTRIBUTION TO THE TRANSLATION COMPONENTS OF THE C DISPLACEMENT VECTOR C J = INDEX DO 186 I = 1,3 U(J) = U(J) + U(J+6) 186 J = J + 1 C C TRANSFORM TRANSLATIONAL COMPONENTS TO BASIC COORDINATES IF C NECESSARY C 188 IF (BASIC) GO TO 190 CALL GMMATD (TA(JCSID),3,3,0, U(INDEX),3,1,0, U(INDEX+3)) C C STORE TRANSFORMED VECTOR BACK INTO ITS ORIGINAL D.P. LOCATION C U(INDEX ) = U(INDEX+3) U(INDEX+1) = U(INDEX+4) U(INDEX+2) = U(INDEX+5) 190 IF (IPASS .EQ. 2) GO TO 192 IPASS = 2 BASIC = ABASIC OFFSET = AOFSET JOFSET = JOFSTA JCSID = 1 INDEX = 1 GO TO 184 C C FORM THE DIFFERENCE OF THE TRANSLATIONAL COMPONENTS OF THE C TRANSFORMED DISPLACEMENT VECTORS C 192 DO 194 I = 1,3 194 U(I+12) = U(I+12) - U(I) C C FORM DOT PRODUCT C CALL GMMATD (VECI,3,1,1, U(13),3,1,0, D(1)) C C CALCULATE THE INCREMENTAL ELEMENT STRAIN C DEPS1 = D(1)/L C C PERFORM EXTENSIONAL STRAIN CALCULATIONS IN DOUBLE PRECISION C EPSIN1 = EPS1SP EPSIN2 = EPS2SP DEPS2 = EPSIN2 - EPSIN1 EPS1 = EPSIN2 + DEPS1 GAMMA = G NEW GAMMAS = G OLD EPS2 = EPS1 + GAMMA*DEPS1 C C CALL MAT ROUTINE TO GET SIGMA1 AND SIGMA2 AS FUNCTIONS OF EPS1, C EPS2 C MATIDC = IMATID MATFLG = 1 CALL MAT (IECPT(1)) E SUB 0 D = E SUB 0 G SUB 0 D = G SUB 0 MATFLG = 6 PLAARG = EPS1 CALL MAT (IECPT(1)) SIGMA1 = PLAANS PLAARG = EPS2 CALL MAT (IECPT(1)) SIGMA2 = PLAANS IF (EPS1 .EQ. EPS2) GO TO 200 E = (SIGMA2-SIGMA1)/(EPS2-EPS1) GO TO 202 200 E = ESTAR 202 G = E*G SUB 0 D/E SUB 0 D C C STORE ECPT VARIABLES IN DOUBLE PRECISION LOCATIONS C DP(3) = I1 DP(4) = I2 DP(5) = A EI1 = E*DP(3) EI2 = E*DP(4) IF (K1.EQ.0.0 .OR. I12.NE.0.0) GO TO 210 DP(6) = K1 GAK1 = G*DP(5)*DP(6) R1 = (12.0D0*EI1*GAK1)/(GAK1*LCUBE + 12.0D0*L*EI1) GO TO 220 210 R1 = 12.0D0*EI1/LCUBE 220 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 230 DP(7) = K2 GAK2 = G*DP(5)*DP(7) R2 = (12.0D0*EI2*GAK2)/(GAK2*LCUBE + 12.0D0*L*EI2) GO TO 240 230 R2 = 12.0D0*EI2/LCUBE C C COMPUTE THE -SMALL- K-S, SK1, SK2, SK3 AND SK4 C 240 SK1 = 0.25D0*R1*LSQ + EI1/L SK2 = 0.25D0*R2*LSQ + EI2/L SK3 = 0.25D0*R1*LSQ - EI1/L SK4 = 0.25D0*R2*LSQ - EI2/L C C COMPUTE THE TERMS THAT WILL BE NEEDED FOR THE 12 X 12 MATRIX KE C AEL = DP(5)*E/L LR1 = L*R1/2.0D0 LR2 = L*R2/2.0D0 DP(8)= FJ GJL = G*DP(8)/L C C CONSTRUCT THE 12 X 12 MATRIX KE C DO 250 I = 1,144 250 KE(I) = 0.0D0 KE( 1) = AEL KE( 7) = -AEL KE( 14) = R1 KE( 18) = LR1 KE( 20) = -R1 KE( 24) = LR1 KE( 27) = R2 KE( 29) = -LR2 KE( 33) = -R2 KE( 35) = -LR2 KE( 40) = GJL KE( 46) = -GJL KE( 51) = -LR2 KE( 53) = SK2 KE( 57) = LR2 KE( 59) = SK4 KE( 62) = LR1 KE( 66) = SK1 KE( 68) = -LR1 KE( 72) = SK3 KE( 73) = -AEL KE( 79) = AEL KE( 86) = -R1 KE( 90) = -LR1 KE( 92) = R1 KE( 96) = -LR1 KE( 99) = -R2 KE(101) = LR2 KE(105) = R2 KE(107) = LR2 KE(112) = -GJL KE(118) = GJL KE(123) = -LR2 KE(125) = SK4 KE(129) = LR2 KE(131) = SK2 KE(134) = LR1 KE(138) = SK3 KE(140) = -LR1 KE(144) = SK1 IF (I12 .EQ. 0.0) GO TO 255 DP(8) = I12 BETA = 12.0D0*DP(1)*DP(8)/LCUBE LB = L*BETA/2.0D0 L2B3 = LSQ*BETA/3.0D0 L2B6 = LSQ*BETA/6.0D0 KE( 15) = BETA KE( 17) = -LB KE( 21) = -BETA KE( 23) = -LB KE( 26) = BETA KE( 30) = LB KE( 32) = -BETA KE( 36) = LB KE( 50) = -LB KE( 54) = -L2B3 KE( 56) = LB KE( 60) = -L2B6 KE( 63) = LB KE( 65) = -L2B3 KE( 69) = -LB KE( 71) = -L2B6 KE( 87) = -BETA KE( 89) = LB KE( 93) = BETA KE( 95) = LB KE( 98) = -BETA KE(102) = -LB KE(104) = BETA KE(108) = -LB KE(122) = -LB KE(126) = -L2B6 KE(128) = LB KE(132) = -L2B3 KE(135) = LB KE(137) = -L2B6 KE(141) = -LB KE(143) = -L2B3 C C DETERMINE IF THERE ARE NON-ZERO PIN FLAGS. C 255 KA = IECPT(JPINA) KB = IECPT(JPINB) IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 325 C C SET UP THE IPIN ARRAY C DO 260 I = 1,5 IPIN(I ) = MOD(KA,10) IPIN(I+5) = MOD(KB,10) + 6 IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0 KA = KA/10 260 KB = KB/10 C C ALTER KE MATRIX DUE TO PIN FLAGS. C DO 320 I = 1,10 IF (IPIN(I) .EQ. 0) GO TO 320 II = 13*IPIN(I) - 12 IF (KE(II) .NE. 0.0D0) GO TO 280 IL = IPIN(I) II = II - IL DO 270 J = 1,12 II = II + 1 KE(II) = 0.0D0 KE(IL) = 0.0D0 IL = IL + 12 270 CONTINUE GO TO 320 280 DO 300 J = 1,12 JI = 12*(J-1) + IPIN(I) IJ = 12*(IPIN(I)-1) + J DO 290 LL = 1,12 JLL = 12*(J-1) + LL ILL = 12*(IPIN(I)-1) + LL KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI) 290 CONTINUE KEP(IJ ) = 0.0D0 KEP(JI ) = 0.0D0 300 CONTINUE DO 310 K = 1,144 310 KE(K) = KEP(K) 320 CONTINUE C C E C STORE K AT KEP(1),...,KEP(36) AND C NPVT,A C C E C K AT KEP(37),...,KEP(72) C NPVT,B C 325 J = 0 IF (IPVT .EQ. 2) GO TO 327 ILOW = 1 ILIM = 72 GO TO 329 327 ILOW = 73 ILIM = 144 329 DO 340 I = ILOW,ILIM,12 LOW = I LIM = LOW + 5 DO 330 K = LOW,LIM J = J + 1 KEP(J ) = KE(K ) 330 KEP(J+36) = KE(K+6) 340 CONTINUE C T C STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A MATRIX. C KE(1) = VECI(1) KE(2) = VECI(2) KE(3) = VECI(3) KE(4) = VECJ(1) KE(5) = VECJ(2) KE(6) = VECJ(3) KE(7) = VECK(1) KE(8) = VECK(2) KE(9) = VECK(3) C C ZERO OUT THE ARRAY WHERE THE 3X3 MATRIX H AND THE W AND W 6X6 C MATRICES WILL RESIDE. A B C DO 350 I = 28,108 350 KE(I) = 0.0D0 IPASS = 1 IWBEG = 0 C C SET UP POINTERS C IF (IPVT - 1) 365,360,365 360 BASIC = ABASIC JCSID = JCSIDA OFFSET = AOFSET JOFSET = JOFSTA IKEL = 1 INDEX = ISILNO(1) GO TO 368 365 BASIC = BBASIC JCSID = JCSIDB OFFSET = BOFSET JOFSET = JOFSTB IKEL = 37 INDEX = ISILNO(2) C C SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX. C G = AT X TI C 368 IG = 1 IF (BASIC) GO TO 370 CALL TRANSD (ECPT(JCSID),KE(10)) CALL GMMATD (KE(1),3,3,0, KE(10),3,3,0, KE(19)) IG = 19 C C IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3X3 C MATRIX. C 370 IF (.NOT.OFFSET) GO TO 380 KE(10) = 0.0D0 KE(11) = ECPT(JOFSET+2) KE(12) = -ECPT(JOFSET+1) KE(13) = -KE(11) KE(14) = 0.0D0 KE(15) = ECPT(JOFSET) KE(16) = -KE(12) KE(17) = -KE(15) KE(18) = 0.0D0 C C FORM THE 3 X 3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10) C CALL GMMATD (KE(IG),3,3,0, KE(10),3,3,0, KE(28)) C C C FORM THE W MATRIX OR THE W MATRIX IN KE(37) OR KE(73) DEPENDING C A B C UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION. G WILL BE C STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS. H, IF NON-ZERO, C WILL BE STORED IN THE UPPER RIGHT CORNER. C 380 KE(IWBEG+37) = KE(IG ) KE(IWBEG+38) = KE(IG+1) KE(IWBEG+39) = KE(IG+2) KE(IWBEG+43) = KE(IG+3) KE(IWBEG+44) = KE(IG+4) KE(IWBEG+45) = KE(IG+5) KE(IWBEG+49) = KE(IG+6) KE(IWBEG+50) = KE(IG+7) KE(IWBEG+51) = KE(IG+8) KE(IWBEG+58) = KE(IG ) KE(IWBEG+59) = KE(IG+1) KE(IWBEG+60) = KE(IG+2) KE(IWBEG+64) = KE(IG+3) KE(IWBEG+65) = KE(IG+4) KE(IWBEG+66) = KE(IG+5) KE(IWBEG+70) = KE(IG+6) KE(IWBEG+71) = KE(IG+7) KE(IWBEG+72) = KE(IG+8) IF (.NOT.OFFSET) GO TO 390 KE(IWBEG+40) = KE(28) KE(IWBEG+41) = KE(29) KE(IWBEG+42) = KE(30) KE(IWBEG+46) = KE(31) KE(IWBEG+47) = KE(32) KE(IWBEG+48) = KE(33) KE(IWBEG+52) = KE(34) KE(IWBEG+53) = KE(35) KE(IWBEG+54) = KE(36) C C T E C FORM THE PRODUCT W X K AND STORE IN KEP(73) C NPVT C 390 CALL GMMATD (KE(37),6,6,1, KEP(IKEL),6,6,0, KEP(73)) C C COMPUTE THE FINAL ANSWER AND STORE IN KEP(109) C CALL GMMATD (KEP(73),6,6,0, KE(IWBEG+37),6,6,0, KEP(109)) C C INSERT THIS 6 X 6 C CALL PLA4B (KEP(109),INDEX) C C IF IPASS = 2, WE ARE DONE. OTHERWISE COMPUTE THE OFF-DIAGONAL C 6 X 6. C IF (IPASS .EQ. 2) GO TO 500 IWBEG = 36 IPASS = 2 DO 410 I = 28,36 410 KE(I) = 0.0D0 IF (IPVT-1) 360,365,360 C C UPDATE ECPT ENTRY C 500 EPS1SP = EPS2SP EPS2SP = EPS1 ESTAR = E RETURN 1010 CALL MESAGE (30,26,IECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN END ================================================ FILE: mis/pkqad1.f ================================================ SUBROUTINE PKQAD1 C THIS SUBROUTINE IS THE DRIVER FOR THE QUAD1 CALCULATIONS IN C PLA4 C C ECPT FOR QUAD1 C C 1 EL.ID C 2 GRID A C 3 GRID B C 4 GRID C C 5 GRID D C 6 THETA C 7 MATID1 C 8 T1 C 9 MATID2 C 10 I C 11 MATID3 C 12 T2 C 13 MS MASS C 14 Z1 C 15 Z2 C 16 CSID 1 C 17 X1 C 18 Y1 C 19 Z1 C 20 CSID 2 C 21 X2 C 22 Y2 C 23 Z2 C 24 CSID 3 C 25 X3 C 26 Y3 C 27 Z3 C 28 CSID 4 C 29 X4 C 30 Y4 C 31 Z4 C 32 TEMP C 33 EPS0 C 34 EPSS C 35 ESTAR C 36 SIGXS C 37 SIGYS C 38 SIGXYS C 39 U(A) (3X1) C 42 U(B) (3X1) C 45 U(C) (3X1) C 48 U(D) (3X1) C C ****************************************************************** C LOGICAL ISTIFF C REAL NU C DIMENSION NECPT(32), NECPTS(32) C COMMON /PLA42E/ ECPT(32),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS, 1 UI(12), DUMMY(50) COMMON /PLA4ES/ ECPTSA(100), PH1OUT(200) COMMON /PLA4UV/ IVEC, Z(24) C C SCRATCH BLOCK 325 CELLS C COMMON /PLA42S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS, 1 EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3) 2, EXTRA(4) COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA42C/ NPVT, GAMMA, GAMMAS, IPASS 1, DUMCL(145) ,NOGO COMMON /PLAGP/ GP(9), MIDGP , ELID C EQUIVALENCE (NECPT(7),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS), 1 (G13,NU) , (G11,ESUB0) 2, (NECPTS(1),ECPTSA(1)) 3, (G12,NIROF) C C SETUP GP MATRIX FOR PLAMAT C ISTIFF = .FALSE. ELID = ECPT(1) MIDGP = MATID1 DO 10 I=1,9 10 GP(I)=0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF(ESTAR .EQ. 0.0) GO TO 50 IF(IPASS .NE. 1 ) GO TO 20 MATID = MATID1 COSTH = 1.0 SINTH = 0.0E0 INFLAG= 2 C CALL MAT(ECPT(1)) C GP(1) = G11 GP(2) = G12 GP(3) = G13 GP(4) = G12 GP(5) = G22 GP(6) = G23 GP(7) = G13 GP(8) = G23 GP(9) = G33 GO TO 50 20 IF(TAU0 .EQ. 0.0) GO TO 50 120 MATID = MATID1 INFLAG = 1 C CALL MAT(ECPT(1)) C F = 9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR) SX = (2.0*SIGXS - SIGYS)/ 3.0 SY = (2.0*SIGYS - SIGXS)/ 3.0 GP(1) = (1.0+SX**2*F) / ESUB0 GP(2) = (-NU+SX*SY*F) / ESUB0 GP(3) = (2.0*SIGXYS*SX*F) / ESUB0 GP(4) = GP(2) GP(5) = (1.0+SY**2*F) / ESUB0 GP(6) = (2.0*SIGXYS*SY*F) / ESUB0 GP(7) = GP(3) GP(8) = GP(6) GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. IDUM2 = -1 CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3) C C CHECK SINGULARITY C IF (IDUM2.EQ.2) GO TO 150 C 50 IF(ISTIFF) GO TO 130 ISTIFF = .TRUE. C C CALCULATE PHASE I STRESSES C DO 30 I = 1,32 30 ECPTSA(I) = ECPT(I) NECPTS(2) = 1 NECPTS(3) = 4 NECPTS(4) = 7 NECPTS(5) = 10 C CALL PKTQ1(3) C C C CALCULATE PHASE II STRESSES C IVEC = 1 DO 60 I = 1,24 60 Z(I) = UI(I) DO 70 I = 1,200 70 ECPTSA(I) = PH1OUT(I) S(1) = SIGXS S(2) = SIGYS S(3) = SIGXYS C CALL PKTQ2(4) C C C UPDATE ECPT FOR STRESSES C SIGXS = S(1) SIGYS = S(2) SIGXYS = S(3) TAU1 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) MATID= MATID1 INFLAG = 8 PLAARG = TAU1 C CALL MAT(ECPT(1)) C C C TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION C IF ( NIROF . EQ. 1 ) GO TO 80 C C RETURNS EPS SUB 1 GIVEN TAU1 C EPS1 = PLAANS DEPS = EPS1 - EPSS DEPSS= EPSS - EPS0 EPS2 = EPS1 + GAMMA * DEPS INFLAG=6 PLAARG = EPS2 C CALL MAT(ECPT(1)) C C RETURNS TAU2 GIVEN EPS2 C TAU2 = PLAANS ESTAR = 0.0 IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1) EPS0 = EPSS EPSS = EPS1 GO TO 100 C 80 ESTAR = 0.0 C SETUP STIFFNESS CALCULATIONS FOR GP C 100 DO 110 I = 1,9 110 GP(I) = 0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF( ESTAR .NE. 0.0 .AND. TAU0 .NE. 0.0) GO TO 120 C C SETUP CALL TO ELEMENT STIFFNESS ROUTINE IT WILL ALSO INSERT C 130 DO 140 I = 1,32 140 ECPTSA(I) = ECPT(I) CALL PKTRQD(3) RETURN 150 CALL MESAGE(30,38,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN END ================================================ FILE: mis/pkqad2.f ================================================ SUBROUTINE PKQAD2 C THIS SUBROUTINE IS THE DRIVER FOR THE QUAD2 CALCULATIONS IN C PLA4 C C ECPT FOR QUAD2 C C 1 EL.ID C 2 GRID A C 3 GRID B C 4 GRID C C 5 GRID D C 6 THETA C 7 MAT ID C 8 T C 9 MS MASS C 10 CSID 1 C 11 X1 C 12 Y1 C 13 Z1 C 14 CSID 2 C 15 X2 C 16 Y2 C 17 Z2 C 18 CSID 3 C 19 X3 C 20 Y3 C 21 Z3 C 22 CSID 4 C 23 X4 C 24 Y4 C 25 Z4 C 26 TEMP C 27 EPS0 C 28 EPSS C 29 ESTAR C 30 SIGXS C 31 SIGYS C 32 SIGXXS C 33 U(A) (3X1) C 36 U(B) (3X1) C 39 U(C) (3X1) C 42 U(D) (3X1) C C ****************************************************************** C LOGICAL ISTIFF C REAL NU C DIMENSION NECPT(26), NECPTS(26) C COMMON /PLA42E/ ECPT(26),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS, 1 UI(12), DUMMY(56) COMMON /PLA4ES/ ECPTSA(100), PH1OUT(200) COMMON /PLA4UV/ IVEC, Z(24) C C SCRATCH BLOCK 325 CELLS C COMMON /PLA42S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS, 1 EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3) 2, EXTRA(4) COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA42C/ NPVT, GAMMA, GAMMAS, IPASS 1, DUMCL(145) ,NOGO COMMON /PLAGP/ GP(9), MIDGP , ELID C EQUIVALENCE (NECPT(7),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS), 1 (G13,NU) , (G11,ESUB0) 2, (NECPTS(1),ECPTSA(1)) 3, (G12,NIROF) C C SETUP GP MATRIX FOR PLAMAT C ISTIFF = .FALSE. ELID = ECPT(1) MIDGP = MATID1 DO 10 I=1,9 10 GP(I)=0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF(ESTAR .EQ. 0.0) GO TO 50 IF(IPASS .NE. 1 ) GO TO 20 MATID = MATID1 COSTH = 1.0 SINTH = 0.0E0 INFLAG= 2 C CALL MAT(ECPT(1)) C GP(1) = G11 GP(2) = G12 GP(3) = G13 GP(4) = G12 GP(5) = G22 GP(6) = G23 GP(7) = G13 GP(8) = G23 GP(9) = G33 GO TO 50 20 IF(TAU0 .EQ. 0.0) GO TO 50 120 MATID = MATID1 INFLAG = 1 C CALL MAT(ECPT(1)) C F = 9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR) SX = (2.0*SIGXS - SIGYS)/ 3.0 SY = (2.0*SIGYS - SIGXS)/ 3.0 GP(1) = (1.0+SX**2*F) / ESUB0 GP(2) = (-NU+SX*SY*F) / ESUB0 GP(3) = (2.0*SIGXYS*SX*F) / ESUB0 GP(4) = GP(2) GP(5) = (1.0+SY**2*F) / ESUB0 GP(6) = (2.0*SIGXYS*SY*F) / ESUB0 GP(7) = GP(3) GP(8) = GP(6) GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. IDUM2 = -1 CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3) C C CHECK SINGULARITY C IF (IDUM2.EQ.2) GO TO 150 C 50 IF(ISTIFF) GO TO 130 ISTIFF = .TRUE. C C CALCULATE PHASE I STRESSES C DO 30 I = 1,32 30 ECPTSA(I) = ECPT(I) NECPTS(2) = 1 NECPTS(3) = 4 NECPTS(4) = 7 NECPTS(5) = 10 C CALL PKTQ1(4) C C C CALCULATE PHASE II STRESSES C IVEC = 1 DO 60 I = 1,24 60 Z(I) = UI(I) DO 70 I = 1,200 70 ECPTSA(I) = PH1OUT(I) S(1) = SIGXS S(2) = SIGYS S(3) = SIGXYS C CALL PKTQ2(4) C C C UPDATE ECPT FOR STRESSES C SIGXS = S(1) SIGYS = S(2) SIGXYS = S(3) TAU1 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) MATID= MATID1 INFLAG = 8 PLAARG = TAU1 C CALL MAT(ECPT(1)) C C C TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION C IF ( NIROF . EQ. 1 ) GO TO 80 C C RETURNS EPS SUB 1 GIVEN TAU1 C EPS1 = PLAANS DEPS = EPS1 - EPSS DEPSS= EPSS - EPS0 EPS2 = EPS1 + GAMMA * DEPS INFLAG=6 PLAARG = EPS2 C CALL MAT(ECPT(1)) C C RETURNS TAU2 GIVEN EPS2 C TAU2 = PLAANS ESTAR = 0.0 IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1) EPS0 = EPSS EPSS = EPS1 GO TO 100 C 80 ESTAR = 0.0 C SETUP STIFFNESS CALCULATIONS FOR GP C 100 DO 110 I = 1,9 110 GP(I) = 0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF( ESTAR .NE. 0.0 .AND. TAU0 .NE. 0.0) GO TO 120 C C SETUP CALL TO ELEMENT STIFFNESS ROUTINE IT WILL ALSO INSERT C 130 DO 140 I = 1,32 140 ECPTSA(I) = ECPT(I) CALL PKTRQD(4) RETURN 150 CALL MESAGE(30,38,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN END ================================================ FILE: mis/pkqdm.f ================================================ SUBROUTINE PKQDM C THIS SUBROUTINE IS THE DRIVER FOR THE QUAD-MEMBRANE CALCULATIONS IN C PLA4 C C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = GRID POINT D NGRID(4) INTEGER C ECPT( 6) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 7) = MATERIAL ID MATID INTEGER C ECPT( 8) = T T REAL C ECPT( 9) = NON-STRUCTURAL MASS FMU REAL C ECPT(10) = COORD. SYSTEM ID 1 NECPT(10) INTEGER C ECPT(11) = X1 X1 REAL C ECPT(12) = Y1 Y1 REAL C ECPT(13) = Z1 Z1 REAL C ECPT(14) = COORD. SYSTEM ID 2 NECPT(14) INTEGER C ECPT(15) = X2 X2 REAL C ECPT(16) = Y2 Y2 REAL C ECPT(17) = Z2 Z2 REAL C ECPT(18) = COORD. SYSTEM ID 3 NECPT(18) INTEGER C ECPT(19) = X3 X3 REAL C ECPT(20) = Y3 Y3 REAL C ECPT(21) = Z3 Z3 REAL C ECPT(22) = COORD. SYSTEM ID 4 NECPT(22) INTEGER C ECPT(23) = X4 X4 REAL C ECPT(24) = Y4 Y4 REAL C ECPT(25) = Z4 Z4 REAL C ECPT(26) = ELEMENT TEMPERATURE ELTEMP REAL C ECPT(27) = STRAIN (MINUS ONE) EPS0 REAL C ECPT(28) = STRAIN (PRESENT) EPSS REAL C ECPT(29) = MODULUS OF ELASTICITY ESTAR REAL C ECPT(30) = STRESS SUB X SIGXS REAL C ECPT(31) = STRESS SUB Y SIGYS REAL C ECPT(32) = STRESS SUB XY SIGXYS REAL C ECPT(33) = DISPLACEMENT VECTOR A1 UI(1) REAL C ECPT(34) = DISPLACEMENT VECTOR A2 UI(2) REAL C ECPT(35) = DISPLACEMENT VECTOR A3 UI(3) REAL C ECPT(36) = DISPLACEMENT VECTOR B1 UI(4) REAL C ECPT(37) = DISPLACEMENT VECTOR B2 UI(5) REAL C ECPT(38) = DISPLACEMENT VECTOR B3 UI(6) REAL C ECPT(39) = DISPLACEMENT VECTOR C1 UI(7) REAL C ECPT(40) = DISPLACEMENT VECTOR C2 UI(8) REAL C ECPT(41) = DISPLACEMENT VECTOR C3 UI(9) REAL C ECPT(42) = DISPLACEMENT VECTOR D1 UI(10) REAL C ECPT(43) = DISPLACEMENT VECTOR D2 UI(11) REAL C ECPT(44) = DISPLACEMENT VECTOR D3 UI(12) REAL C C ****************************************************************** C LOGICAL ISTIFF C REAL NU C DIMENSION NECPT(26), NECPTS(26) C COMMON /PLA42E/ ECPT(26),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS, 1 UI(12),DUMMY(56) COMMON /PLA4ES/ ECPTSA(100), PH1OUT(200) COMMON /PLA4UV/ IVEC, Z(24) C C SCRATCH BLOCK 325 CELLS C COMMON /PLA42S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS, 1 EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3) 2, EXTRA(4) COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA42C/ NPVT, GAMMA, GAMMAS, IPASS COMMON /PLAGP/ GP(9), MIDGP , ELID C EQUIVALENCE (NECPT(7),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS), 1 (G13,NU) , (G11,ESUB0) 2, (NECPTS(1),ECPTSA(1)) 3, (G12,NIROF) C C SETUP GP MATRIX FOR PLAMAT C ISTIFF = .FALSE. ELID = ECPT(1) MIDGP = MATID1 DO 10 I=1,9 10 GP(I)=0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF(ESTAR .EQ. 0.0) GO TO 50 IF(IPASS .NE. 1 ) GO TO 20 MATID = MATID1 COSTH = 1.0 SINTH = 0.0E0 INFLAG= 2 C CALL MAT(ECPT(1)) C GP(1) = G11 GP(2) = G12 GP(3) = G13 GP(4) = G12 GP(5) = G22 GP(6) = G23 GP(7) = G13 GP(8) = G23 GP(9) = G33 GO TO 50 20 IF(TAU0 .EQ. 0.0) GO TO 50 120 MATID = MATID1 INFLAG = 1 C CALL MAT(ECPT(1)) C F = 9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR) SX = (2.0*SIGXS - SIGYS)/ 3.0 SY = (2.0*SIGYS - SIGXS)/ 3.0 GP(1) = (1.0+SX**2*F) / ESUB0 GP(2) = (-NU+SX*SY*F) / ESUB0 GP(3) = (2.0*SIGXYS*SX*F) / ESUB0 GP(4) = GP(2) GP(5) = (1.0+SY**2*F) / ESUB0 GP(6) = (2.0*SIGXYS*SY*F) / ESUB0 GP(7) = GP(3) GP(8) = GP(6) GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. IDUM2 = -1 CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3) C C CHECK SINGULARITY C C TAKE THIS OUT AND THE -C- IN THE NEXT CARD C IF( IDUM2 .EQ. 2) CALL MESAGE(-30,38,ECPT(1)) C 50 IF(ISTIFF) GO TO 130 ISTIFF = .TRUE. C C CALCULATE PHASE I STRESSES C DO 30 I = 1,32 30 ECPTSA(I) = ECPT(I) NECPTS(2) = 1 NECPTS(3) = 4 NECPTS(4) = 7 NECPTS(5) = 10 C CALL PKQDM1 C C C CALCULATE PHASE II STRESSES C IVEC = 1 DO 60 I = 1,24 60 Z(I) = UI(I) DO 70 I = 1,200 70 ECPTSA(I) = PH1OUT(I) S(1) = SIGXS S(2) = SIGYS S(3) = SIGXYS C CALL PKTRQ2(2) C C C UPDATE ECPT FOR STRESSES C SIGXS = S(1) SIGYS = S(2) SIGXYS = S(3) TAU1 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) MATID= MATID1 INFLAG = 8 PLAARG = TAU1 C CALL MAT(ECPT(1)) C C C TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION C IF ( NIROF . EQ. 1 ) GO TO 80 C C RETURNS EPS SUB 1 GIVEN TAU1 C EPS1 = PLAANS DEPS = EPS1 - EPSS DEPSS= EPSS - EPS0 EPS2 = EPS1 +GAMMA*DEPS INFLAG=6 PLAARG = EPS2 C CALL MAT(ECPT(1)) C C RETURNS TAU2 GIVEN EPS2 C TAU2 = PLAANS ESTAR = 0.0 IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1) EPS0 = EPSS EPSS = EPS1 GO TO 100 C 80 ESTAR = 0.0 C SETUP STIFFNESS CALCULATIONS FOR GP C 100 DO 110 I = 1,9 110 GP(I) = 0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF( ESTAR .NE. 0.0 .AND. TAU0 .NE. 0.0) GO TO 120 C C SETUP CALL TO ELEMENT STIFFNESS ROUTINE IT WILL ALSO INSERT C 130 DO 140 I = 1,32 140 ECPTSA(I) = ECPT(I) CALL PKQDMS RETURN END ================================================ FILE: mis/pkqdm1.f ================================================ SUBROUTINE PKQDM1 C THIS ROUTINE CALCULATES PHASE I OUTPUT FOR THE QUAD-MEMBRAND IN C PLA4 C REAL IVEC,JVEC,KVEC INTEGER NECPT(100) DIMENSION M(12),R(6),NGRID(4),COORD(16),S(27) C COMMON /CONDAS/ CONSTS(5) COMMON /PLA42C/ DUMCL(149),NOGO COMMON /PLA42S/ DUMMY(100),SUM(36),STEMP(9),D1(3),D2(3),A1(3), 1 A2(3),A3(3),A4(3),IVEC(3),JVEC(3),KVEC(3),VECL,H,V(8),ECPTSA(36), 2 ST(3),NCOORD,NPOINT,NSUB1,NSUB2,NSUB3,T(9),COSANG,SINANG,U1,U2, 3 THETA, DUMY(85) COMMON /PLA4ES/ ECPT(100),PH1OUT(200) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH C EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (NECPT(1),ECPT(1)) EQUIVALENCE (R(1),IVEC(1)),(NGRID(1),ECPTSA(2)), 1 (COORD(1),ECPTSA(10)) , (S(1),PH1OUT(10)) C DATA M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 / C ****************************************************************** C ECPT ECPT C RECEIVED BY REQUIRED BY C SQDME1 STRME1 C ****************************************************************** C ECPT( 1) = EL. ID ECPT( 1) = EL. ID C ECPT( 2) = GRD. PT. A ECPT( 2) = GRD. PT. A C ECPT( 3) = GRD. PT. B ECPT( 3) = GRD. PT. B C ECPT( 4) = GRD. PT. C ECPT( 4) = GRD. PT. C C ECPT( 5) = GRD. PT. D ECPT( 5) = THETA C ECPT( 6) = THETA ECPT( 6) = MATERIAL ID C ECPT( 7) = MATERIAL ID ECPT( 7) = T C ECPT( 8) = T ECPT( 8) = NON-STRUCT. MASS C ECPT( 9) = NON-STRUCT. MASSECPT( 9) = COORD. SYS. ID 1 C ECPT(10) = COORD. SYS. ID 1ECPT(10) = X1 C ECPT(11) = X1 ECPT(11) = Y1 C ECPT(12) = Y1 ECPT(12) = Z1 C ECPT(13) = Z1 ECPT(13) = COORD. SYS. ID 2 C ECPT(14) = COORD. SYS. ID 2ECPT(14) = X2 C ECPT(15) = X2 ECPT(15) = Y2 C ECPT(16) = Y2 ECPT(16) = Z2 C ECPT(17) = Z2 ECPT(17) = COORD. SYS. ID 3 C ECPT(18) = COORD. SYS. ID 3ECPT(18) = X3 C ECPT(19) = X3 ECPT(19) = Y3 C ECPT(20) = Y3 ECPT(20) = Z3 C ECPT(21) = Z3 ECPT(21) = ELEMENT TEMPERATURE C ECPT(22) = COORD. SYS. ID 4 NOTE. THE FOLLOWING ARE INTEGERS... C ECPT(23) = X4 GRID POINTS, MAT ID, EL.ID, C ECPT(24) = Y4 COORD. SYS. IDS. C ECPT(25) = Z4 ALL OTHERS ARE REAL IN THE ECPT. C ECPT(26) = ELEMENT TEMPERATURE C ****************************************************************** C C C VECTORS D1 AND D2 FMMS-46 PAGE 6 C A1 A2 A3 A4 C DO 10 I=1,3 D1(I) = ECPT(I + 18) - ECPT(I + 10) D2(I) = ECPT(I + 22) - ECPT(I + 14) A1(I) = ECPT(I + 14) - ECPT(I + 10) A2(I) = ECPT(I + 18) - ECPT(I + 14) A3(I) = ECPT(I + 22) - ECPT(I + 18) 10 A4(I) = ECPT(I + 10) - ECPT(I + 22) C C K-VECTOR = NORMALIZED D1 CROSS D2 C KVEC(1) = D1(2) * D2(3) - D1(3) * D2(2) KVEC(2) = D1(3) * D2(1) - D1(1) * D2(3) KVEC(3) = D1(1) * D2(2) - D1(2) * D2(1) VECL = SQRT ( KVEC(1)**2 + KVEC(2)**2 + KVEC(3)**2 ) IF (VECL.LT.1.0E-06) GO TO 120 KVEC(1) = KVEC(1)/VECL KVEC(2) = KVEC(2)/VECL KVEC(3) = KVEC(3)/VECL C C I-VECTOR = NORMALIZED A SUB 12 - H * KVECTOR C GET H FIRST = ( A SUB 12 DOT KVECTOR)/2 C H = (A1(1)*KVEC(1) + A1(2)*KVEC(2) + A1(3)*KVEC(3))/2.0E0 C IVEC(1) = A1(1) - H * KVEC(1) IVEC(2) = A1(2) - H * KVEC(2) IVEC(3) = A1(3) - H * KVEC(3) VECL = SQRT ( IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2 ) IF (VECL.LT.1.0E-06) GO TO 120 IVEC(1) = IVEC(1)/VECL IVEC(2) = IVEC(2)/VECL IVEC(3) = IVEC(3)/VECL C C J-VECTOR = K CROSS I C JVEC(1) = KVEC(2) * IVEC(3) - KVEC(3) * IVEC(2) JVEC(2) = KVEC(3) * IVEC(1) - KVEC(1) * IVEC(3) JVEC(3) = KVEC(1) * IVEC(2) - KVEC(2) * IVEC(1) C VECL = SQRT(JVEC(1)**2 + JVEC(2)**2 + JVEC(3)**2) JVEC(1) = JVEC(1)/VECL JVEC(2) = JVEC(2)/VECL JVEC(3) = JVEC(3)/VECL C THETA = ECPT(6) * DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) C V(1) = 1.0E0 V(2) = 0.0E0 C C R ARRAY IS EQUIVALENCED TO IVECTOR AND JVECTOR C CALL GMMATS(R,2,3,0, A2,3,1,0, V(3)) CALL GMMATS(R,2,3,0, A3,3,1,0, V(5)) CALL GMMATS(R,2,3,0, A4,3,1,0, V(7)) C C NORMALIZE THE 4 2X1 V ARRAYS C DO 20 I=1,4 VECL = SQRT ( V(2*I-1)**2 + V(2*I)**2 ) IF(VECL .LT. 1.0E-10) CALL MESAGE(-30,26,ECPT(1)) V(2*I-1) = V(2*I-1)/VECL 20 V(2*I ) = V(2*I )/VECL C C MAPPING MATRIX M IS IN DATA STATEMENT. C C NOW MAKE 4 CALLS TO PKTRM1 WHICH WILL RETURN C S , S , S , S , T SUB 0 C A B C T C C SAVE GRID SILS AND COORDINATE SYSTEMS. C DO 30 I=1,36 30 ECPTSA(I) = ECPT(I) C ECPT(6) = ECPT(7) ECPT(7) = ECPT(8) ECPT(8) = ECPT(9) C C ZERO OUT SUM MATRICES C DO 40 I=1,36 40 SUM(I) = 0.0E0 ST(1) = 0.0E0 ST(2) = 0.0E0 ST(3) = 0.0E0 C DO 90 I=1,4 C C POINTER TO THE SILS IN THE MAPPING MATRIX NCOORD = 8 NPOINT = 3*I-3 DO 60 J=2,4 NPOINT = NPOINT + 1 NSUB1 = M(NPOINT) DO 50 K=1,4 NSUB3 = 4*NSUB1 - 4 + K NCOORD = NCOORD + 1 50 ECPT(NCOORD) = COORD(NSUB3) 60 NECPT(J) = NGRID( NSUB1 ) C C SET UP T MATRIX FOR THIS TRIANGLE. T IS 3X3 C U1 = V(2*I-1) U2 = V(2*I ) C T(1) = U1 ** 2 T(2) = U2 ** 2 T(7) = U1 * U2 T(3) = -2.0E0 * T(7) T(4) = T(2) T(5) = T(1) T(6) = -T(3) T(8) = -T(7) T(9) = T(1) - T(2) C C COMPUTE NET SINTH AND COSTH FOR ANISOTROPIC POSSIBILITY C SINTH = SINANG * U1 - COSANG * U2 COSTH = COSANG * U1 + SINANG * U2 C CALL PKTRM1 (1) C C C NOW TRANSFORM AND ADD THE S MATRICES INTO THE RESPECTIVE SUM C MATRICES. C DO 80 J=1,3 C C POINTER TO TRIANGLE I ROW IN THE MAPPING MATRIX C NPOINT = 3*I-3 C C TRANSFORM S C CALL GMMATS( T,3,3,0, S(9*J-8),3,3,0, STEMP ) C C ADD STEMP INTO RESPECTIVE KSUM POSITIONS C C ZERO POINTER INTO KSUM MATRICES NSUB1 = NPOINT + J NSUB1 = M(NSUB1)*9 - 9 DO 70 K=1,9 NSUB1 = NSUB1 + 1 70 SUM(NSUB1) = SUM(NSUB1) + STEMP(K) 80 CONTINUE 90 CONTINUE C C ALL MATRICES COMPLETE C C FILL OUTPUT BLOCK C DO 100 I=1,5 100 PH1OUT(I) = ECPTSA(I) DO 110 I=1,36 110 PH1OUT(I+9) = 0.25E0 * SUM(I) C PHASE 1 COMPLETE OUTPUT BLOCK CONTAINS 45 WORDS C RETURN 120 CALL MESAGE(30,26,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN END ================================================ FILE: mis/pkqdms.f ================================================ SUBROUTINE PKQDMS C THIS SUBROUTINE CALCULATES AND SHIPS TO PLA4B THE STIFFNESS MATRIX FOR C PLA4 C *** QUADRILATERAL MEMBRANE SUBROUTINE *** C C CALLS FROM THIS ROUTINE ARE MADE TO THE FOLLOWING C C PKTRMS - TRIANGULAR MEMBRANE SUBROUTINE C PLA4B - INSERTION ROUTINE C MESAGE - ERROR MESSAGE WRITER C DOUBLE PRECISION KIJ,KSUM,K3X3,TEMP REAL IVEC,JVEC,KVEC C DIMENSION M(12) 1 ,K3X3(27) 2 ,NECPT(5) C COMMON /CONDAS/ CONSTS(5) COMMON /PLA4ES/ ECPT(100) COMMON /PLA42C/ NPVT , DUM1(3) 1, DUMCL(145) ,NOGO COMMON /PLA42D/ KIJ(36),DUM7(156),KSUM(36),TEMP,COSANG,SINANG, 1VECL,IVEC(3),JVEC(3),KVEC(3),PVEC(3),VSUBK(3),V(3),SI(3), 2 NPIVOT,MPOINT,MI,NSUBSC,NGRID(4),U1,U2,COORD(16),DUMM8(248) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH C EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (K3X3 ( 1),KIJ ( 1)) 1 ,(NECPT ( 1),ECPT ( 1)) C DATA M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 / C ****************************************************************** C ECPT ECPT C RECEIVED BY REQUIRED BY C KQDMEM KTRMEM C ****************************************************************** C ECPT( 1) = EL. ID ECPT( 1) = EL. ID C ECPT( 2) = GRD. PT. A ECPT( 2) = GRD. PT. A C ECPT( 3) = GRD. PT. B ECPT( 3) = GRD. PT. B C ECPT( 4) = GRD. PT. C ECPT( 4) = GRD. PT. C C ECPT( 5) = GRD. PT. D ECPT( 5) = THETA C ECPT( 6) = THETA ECPT( 6) = MATERIAL ID C ECPT( 7) = MATERIAL ID ECPT( 7) = T C ECPT( 8) = T ECPT( 8) = NON-STRUCT. MASS C ECPT( 9) = NON-STRUCT. MASSECPT( 9) = COORD. SYS. ID 1 C ECPT(10) = COORD. SYS. ID 1ECPT(10) = X1 C ECPT(11) = X1 ECPT(11) = Y1 C ECPT(12) = Y1 ECPT(12) = Z1 C ECPT(13) = Z1 ECPT(13) = COORD. SYS. ID 2 C ECPT(14) = COORD. SYS. ID 2ECPT(14) = X2 C ECPT(15) = X2 ECPT(15) = Y2 C ECPT(16) = Y2 ECPT(16) = Z2 C ECPT(17) = Z2 ECPT(17) = COORD. SYS. ID 3 C ECPT(18) = COORD. SYS. ID 3ECPT(18) = X3 C ECPT(19) = X3 ECPT(19) = Y3 C ECPT(20) = Y3 ECPT(20) = Z3 C ECPT(21) = Z3 ECPT(21) = ELEMENT TEMPERATURE C ECPT(22) = COORD. SYS. ID 4 NOTE. THE FOLLOWING ARE INTEGERS... C ECPT(23) = X4 GRID POINTS, MAT ID, EL.ID, C ECPT(24) = Y4 COORD. SYS. IDS. C ECPT(25) = Z4 ALL OTHERS ARE REAL IN THE ECPT. C ECPT(26) = ELEMENT TEMPERATURE C ****************************************************************** C C THE FOLLOWING COMPUTATION IS PERFORMED FOR USE WITH THE C COMPUTATION OF SINTH AND COSTH BELOW (ANISOTROPIC MATERIAL C POSSIBILITY) NOTE FMMS-46 PAGE -9- C ANGL = ECPT(6) * DEGRA COSANG = COS( ANGL ) SINANG = SIN( ANGL ) IVEC(1) = ECPT(15) - ECPT(11) IVEC(2) = ECPT(16) - ECPT(12) IVEC(3) = ECPT(17) - ECPT(13) VECL = SQRT( IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2 ) IF (VECL.EQ.0.0E0) GO TO 200 IVEC(1) = IVEC(1)/VECL IVEC(2) = IVEC(2)/VECL IVEC(3) = IVEC(3)/VECL VSUBK(1) =IVEC(2) *(ECPT(25)-ECPT(13))-IVEC(3)*(ECPT(24)-ECPT(12)) VSUBK(2) =IVEC(3) *(ECPT(23)-ECPT(11))-IVEC(1)*(ECPT(25)-ECPT(13)) VSUBK(3) =IVEC(1) *(ECPT(24)-ECPT(12))-IVEC(2)*(ECPT(23)-ECPT(11)) VECL = SQRT(VSUBK(1)**2 + VSUBK(2)**2 + VSUBK(3)**2 ) IF (VECL.EQ.0.0E0) GO TO 200 KVEC(1) = VSUBK(1)/VECL KVEC(2) = VSUBK(2)/VECL KVEC(3) = VSUBK(3)/VECL JVEC(1) = KVEC(2) * IVEC(3) - KVEC(3) * IVEC(2) JVEC(2) = KVEC(3) * IVEC(1) - KVEC(1) * IVEC(3) JVEC(3) = KVEC(1) * IVEC(2) - KVEC(2) * IVEC(1) DO 10 I=1,3 10 PVEC(I) = COSANG * IVEC(I) + SINANG * JVEC(I) C C C SAVE COORDINATE SYSTEMS AND GRID POINT SIL NUMBERS C NGRID(1) = NECPT(2) NGRID(2) = NECPT(3) NGRID(3) = NECPT(4) NGRID(4) = NECPT(5) DO 20 I=1,16 20 COORD(I) = ECPT(I + 9) C C NOTE. COORD 1, 5, 9, AND 13 ARE INTEGER CSID NUMBERS. C C CORRECT ECPT FOR MEMBRANE USE ECPT(5) = ECPT(6) ECPT(6) = ECPT(7) ECPT(7) = ECPT(8)/2.0E0 ECPT(8) = ECPT(9) C C FOR EACH TRIANGLE THEN THE THREE GRID POINTS AND COORDINATES C ARE INSERTED INTO THE ECPT BEFORE THE CALL TO KTRMEM. C C FILL MAP MATRIX (PERFORMED IN DATA STATEMENT - DO NOT ALTER) C A B C C M1 = 1 M2 = 2 M3 = 4 (TRIANGLE I) C C M4 = 2 M5 = 3 M6 = 1 (TRIANGLE II) C C M7 = 3 M8 = 4 M9 = 2 (TRIANGLE III) C C M10= 4 M11= 1 M12= 3 (TRIANGLE IV) C C ****************************************************************** C FIND WHICH POINT IS THE PIVOT POINT. DO 30 I=1,4 IF(NPVT .NE. NGRID(I)) GO TO 30 NPIVOT = I GO TO 40 30 CONTINUE C C FALL THRU ABOVE LOOP IMPLIES AN ERROR CONDITION. C CALL MESAGE(-30,34,ECPT(1)) C C COMPUTE JNOT WHICH EQUALS THE ONE TRIANGLE OF THE FOUR NOT USED C AND THUS NOT COMPUTED FOR THE PIVOT POINT IN QUESTION. (NOTE THE C ROWS OF THE MAPPING MATRIX ABOVE AND THE TRIANGLE NUMBERS) C 40 IF(NPIVOT - 2)50,50,60 50 JNOT = NPIVOT + 2 GO TO 70 60 JNOT = NPIVOT - 2 C C ZERO OUT KSUM FOR 36 70 DO 80 I=1,36 80 KSUM(I) = 0.0D0 C DO 150 J=1,4 IF (J .EQ. JNOT) GO TO 150 C C FILL IN ECPT FOR TRIANGLE J MPOINT = 3*J - 3 DO 100 I=1,3 NPT1 = MPOINT + I NSUBSC = M(NPT1) NECPT(I+1) = NGRID(NSUBSC) C NPT1 = 4*NSUBSC - 4 DO 90 K=1,4 NPT2 = NPT1 + K NPT3 = 4*I + 4 + K 90 ECPT(NPT3) = COORD(NPT2) 100 CONTINUE C C ECPT IS COMPLETE FOR TRIANGLE J C C SET UP SINTH AND COSTH FOR THIS SUB TRIANGLE C IF( J.NE.1 ) GO TO 110 SINTH = SINANG COSTH = COSANG GO TO 120 C C NOTE FMMS-46 PAGE-9 FOR FOLLOWING C 110 V(1) = ECPT(14) - ECPT(10) V(2) = ECPT(15) - ECPT(11) V(3) = ECPT(16) - ECPT(12) VECL = SQRT( V(1)**2 + V(2)**2 + V(3)**2 ) IF (VECL.EQ.0.0E0) GO TO 200 U1 = ( V(1)*PVEC(1) + V(2)*PVEC(2) + V(3)*PVEC(3) )/VECL SI(1) = V(2) * PVEC(3) - V(3) * PVEC(2) SI(2) = V(3) * PVEC(1) - V(1) * PVEC(3) SI(3) = V(1) * PVEC(2) - V(2) * PVEC(1) U2 = ( SI(1)*KVEC(1) + SI(2)*KVEC(2) + SI(3)*KVEC(3) )/VECL VECL = SQRT( U1**2 + U2**2 ) IF (VECL.EQ.0.0E0) GO TO 200 U1 = U1 / VECL U2 = U2 / VECL SINTH = SINANG * U1 - COSANG * U2 COSTH = COSANG * U1 + SINANG * U2 120 IF( ABS(SINTH) .LT. 1.0E-06 ) SINTH = 0.0E0 C CALL PKTRMS(1) C C RETURNING FROM PKTRMS THE 3 3X3 ARRAYS FOR THE PIVOT ARE STORED IN C COMMON UNDER THE NAME K3X3(27) C C NOW ADD THE 3 3X3 ARRAYS INTO THE 4 3X3 ARRAYS OF KSUM C DO 140 I=1,3 NPT1 = 9*I - 9 C NPT1 POINTS TO THE ZERO POSITION OF THE I-TH K3X3. C MPOINT POINTS TO THE ZERO POSITION OF THE J-TH ROW OF MAP MATRIX C MI = MPOINT + I NPT2 = 9 * M(MI) - 9 C NPT2 NOW POINTS TO THE ZERO POSITION OF THE M(MI) TH SUM MATRIX C DO 130 K=1,9 NPT3 = NPT2 + K MI = NPT1 + K 130 KSUM(NPT3) = KSUM(NPT3) + K3X3(MI) 140 CONTINUE C 150 C O N T I N U E C C ****************************************************************** C C NOW INSERT EACH OF THE 4-KSUM (3X3) MATRICES INTO A 6X6 AND C SHIP TO PLA4B C DO 160 I=1,36 160 KIJ(I) = 0.0D0 C DO 190 J=1,4 MPOINT = 9*J - 9 C MPOINT POINTS TO THE ZERO POSITION OF THE J-TH KSUM 3X3. KIJ( 1) = KSUM(MPOINT + 1) KIJ( 2) = KSUM(MPOINT + 2) KIJ( 3) = KSUM(MPOINT + 3) KIJ( 7) = KSUM(MPOINT + 4) KIJ( 8) = KSUM(MPOINT + 5) KIJ( 9) = KSUM(MPOINT + 6) KIJ(13) = KSUM(MPOINT + 7) KIJ(14) = KSUM(MPOINT + 8) KIJ(15) = KSUM(MPOINT + 9) C C SHIP TO PLA4B CALL PLA4B (KIJ(1), NGRID(J)) C 190 CONTINUE C RETURN 200 CALL MESAGE(30,26,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN END ================================================ FILE: mis/pkqdpl.f ================================================ SUBROUTINE PKQDPL C C THIS ROUTINE CALCULATES THE STIFFNESS MATRIX FOR QUAD-PLATES IN C PLA4 C C THIS ROUTINE GENERATES THE FOLLOWING C C FOUR 6X6 STIFFNESS MATRICES WITH RESPECT TO ONE PIVOT POINT OF A C QUADRILATERAL PLATE ELEMENT. C C REF. FMMS-44 JULY 18, 1967 TRI.BENDING ELEMENT STIFF. C FMMS-48 AUGUST 1, 1967 QUAD. BENDING ELEMENT STIFF. C C CALLS FROM THIS ROUTINE ARE MADE TO C PKTRBS - BASIC BENDING TRIANGLE C TRANSD - SUPPLIES 3X3 TRANSFORMATIONS C PLA4B - INSERTION ROUTINE C GMMATD - GENERAL MATRIX MULITPLY AND TRANSPOSE ROUTINE C MESAGE - ERROR MESSAGE WRITER C C C ECPT LISTS AS OF AUGUST 4, 1967 C C DEFINITION DEFINITION C ECPT BSC.BEND.TRI.-----TYPE QUAD.PLT.---------TYPE C ================================================================== C ECPT( 1) = ELEMENT ID INTEGER ** ELEMENT INTEGER C ECPT( 2) = GRID PT. A INTEGER ** GRID PT.A INTEGER C ECPT( 3) = GRID PT. B INTEGER ** GRID PT.B INTEGER C ECPT( 4) = GRID PT. C INTEGER ** GRID PT.C INTEGER C ECPT( 5) = THETA REAL ** GRID PT.D INTEGER C ECPT( 6) = MAT ID 1 INTEGER ** THETA REAL C ECPT( 7) = I MOM. OF INERT. REAL ** MAT ID 1 INTEGER C ECPT( 8) = MAT ID 2 INTEGER ** I MOM. OF INERT. REAL C ECPT( 9) = T2 REAL ** MAT ID 2 INTEGER C ECPT(10) = NON-STRUCT. MASS REAL ** T2 REAL C ECPT(11) = Z1 REAL ** NON-STRUCT. MASS REAL C ECPT(12) = Z2 REAL ** Z1 REAL C ECPT(13) = COORD. SYS. ID 1 INTEGER ** Z2 REAL C ECPT(14) = X1 REAL ** COORD. SYS. ID 1 INTEGER C ECPT(15) = Y1 REAL ** X1 REAL C ECPT(16) = Z1 REAL ** Y1 REAL C ECPT(17) = COORD. SYS. ID 2 INTEGER ** Z1 REAL C ECPT(18) = X2 REAL ** COORD. SYS. ID 2 INTEGER C ECPT(19) = Y2 REAL ** X2 REAL C ECPT(20) = Z2 REAL ** Y2 REAL C ECPT(21) = COORD. SYS. ID 3 INTEGER ** Z2 REAL C ECPT(22) = X3 REAL ** COORD. SYS. ID 3 INTEGER C ECPT(23) = Y3 REAL ** X3 REAL C ECPT(24) = Z3 REAL ** Y3 REAL C ECPT(25) = ELEMENT TEMP REAL ** Z3 REAL C ECPT(26) = ** COORD. SYS. ID 4 INTEGER C ECPT(27) = ** X4 REAL C ECPT(28) = ** Y4 REAL C ECPT(29) = ** Z4 REAL C ECPT(30) = ** ELEMENT TEMP REAL C INTEGER SUBSCA,SUBSCB,SUBSCC DOUBLE PRECISION KOUT,TITE,TJTE,DPDUM1,DPDUM2,D1,D2,IVECT,JVECT, 1 KVECT,A1,KSUM,T,V,VV,XSUBB,XSUBC,YSUBC,PROD9, 2 TEMP,TEMP9,H,U1,U2,E,A,TEMP18,REQUIV,R DIMENSION M(12),NECPT(100),REQUIV(8),VQ1(3),VQ2(3),VQ3(3), 1 VQ4(3),A(1) COMMON /CONDAS/ CONSTS(5) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE, 2 G2X211,G2X212,G2X222 COMMON /PLA42C/ NPVT,DUM1(148),NOGO COMMON /PLA4ES/ ECPT(100) COMMON /PLA42D/ KOUT(36),TITE(18),TJTE(18),TEMP18(18),DPDUM1(54), 1 IVECT(3),JVECT(3),KVECT(3),D1(3),D2(3),A1(3), 2 T(9),V(2),VV(2),H,U1,U2,R(2,4),KSUM(36), 3 DPDUM2(3),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC, 4 E(18),TEMP,SP1(28),SP2(2),KM,NBEGIN,JNOT,NPIVOT, 5 THETA,NSUBC,ISING,SUBSCA,SUBSCB,SUBSCC,SINANG, 6 COSANG,NPOINT EQUIVALENCE (CONSTS(4),DEGRA),(NECPT(1),ECPT(1)), 1 (R(1,1),REQUIV(1)),(VQ1(1),ECPT(15)), 4 (VQ2(1),ECPT(19)),(VQ3(1),ECPT(23)), 6 (VQ4(1),ECPT(27)),(A(1),KOUT(1)) DATA M / 2,4,1, 3,1,2, 4,2,3, 1,3,4 / C C DETERMINE PIVOT POINT NUMBER C DO 10 I = 1,4 IF (NPVT .NE. NECPT(I+1)) GO TO 10 NPIVOT = I GO TO 20 10 CONTINUE C C FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION C CALL MESAGE (-30,34,ECPT(1)) C 20 THETA = ECPT(6)*DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) C IF (NPIVOT-2) 30,30,40 30 JNOT = NPIVOT + 2 GO TO 50 40 JNOT = NPIVOT - 2 C C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X4) FOR QUADRILATERAL PLATE... C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX C 50 DO 60 I = 1,8 60 REQUIV(I) = 0.0D0 C C SHIFT ECPT UP TO MATCH PKTRBS FOR CERTAIN VARIABLES. C DO 80 I = 6,12 80 ECPT(I) = ECPT(I+1) C DO 90 I = 1,3 D1(I) = DBLE(VQ3(I)) - DBLE(VQ1(I)) D2(I) = DBLE(VQ4(I)) - DBLE(VQ2(I)) 90 A1(I) = DBLE(VQ2(I)) - DBLE(VQ1(I)) C C NON-NORMALIZED K-VECTOR = D1 CROSS D2 C KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3) KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1) KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2) C C NORMALIZE K-VECTOR C TEMP = DSQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2) IF (TEMP .EQ. 0.0D0) GO TO 330 DO 100 I = 1,3 100 KVECT(I) = KVECT(I)/TEMP C C COMPUTE H = (A1 DOT KVECT)/2 C TEMP = (A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3))/2.0D0 C C I-VECTOR =(A1) - H*(KVECT) NON-NORMALIZED C DO 110 I = 1,3 110 IVECT(I) = A1(I) - TEMP*KVECT(I) C C NORMALIZE I-VECTOR C TEMP = DSQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2) IF (TEMP .EQ. 0.0D0) GO TO 330 DO 120 I = 1,3 120 IVECT(I) = IVECT(I)/TEMP C C J-VECTOR = K CROSS I, AND X3 CALCULATION C JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3) JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1) JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2) C C NORMALIZE J VECTOR TO MAKE SURE C TEMP = DSQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2) IF (TEMP .EQ. 0.0D0) GO TO 330 DO 130 I = 1,3 130 JVECT(I) = JVECT(I)/TEMP C C X3 GOES INTO R(1,3) = D1 DOT IVECT C R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3) C C X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3) C R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3) R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3) C C X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4) C R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2) R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3) C C CHECK OF 4 POINTS FOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES. C IF (R(2,3).LE.0.0D0 .OR. R(2,4).LE.0.0D0) GO TO 140 TEMP = R(1,2) - (R(1,2)-R(1,3))*R(2,4)/R(2,3) IF (R(1,4) .GE. TEMP) GO TO 140 TEMP = R(2,3)*R(1,4)/ R(2,4) IF (R(1,3) .GT. TEMP) GO TO 150 140 CALL MESAGE (30,35,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C 140 AT 140 THE COORDINATES OF THE PLATE IN THE ELEMENT C SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE C POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR C ROW 2 RESPECTIVELY. C C C SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT. C C C COMPUTE SUB-TRIANGLE COORDINATES C C ZERO OUT KSUM MATRICES C 150 DO 160 I = 1,36 160 KSUM(I) = 0.0D0 C DO 220 J = 1,4 IF (J .EQ. JNOT) GO TO 220 KM = 3*J - 3 SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 170 I = 1,2 V(I) = R(I,SUBSCB) - R(I,SUBSCA) 170 VV(I)= R(I,SUBSCC) - R(I,SUBSCA) XSUBB = DSQRT(V(1)**2 + V(2)**2) U1 = V(1)/XSUBB U2 = V(2)/XSUBB XSUBC = U1*VV(1) + U2*VV(2) YSUBC = U1*VV(2) - U2*VV(1) C SINTH = SINANG*U1 - COSANG*U2 COSTH = COSANG*U1 + SINANG*U2 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR C TRIANGLE -J- C CALL PKTRBS (1) C U C NOW HAVE AT HAND K I,J, =1,2,3. 9-3X3 MATRICES STORED AT C IJ A(1) THROUGH A(81). C C MAP THE 3 3X3-S FOR THE PIVOT ROW INTO THE SUMMATION ARRAYS... C C SET UP OF T-MATRIX C T(1) = 1.0D0 T(2) = 0.0D0 T(3) = 0.0D0 T(4) = 0.0D0 T(5) = U1 T(6) = U2 T(7) = 0.0D0 T(8) =-U2 T(9) = U1 C C FIND WHICH POINT OF THE SUBTRIANGLE IS ALSO THE PIVOT OF THE C QUADRILATERAL C DO 180 I = 1,3 NPOINT = KM + I IF (M(NPOINT) .NE. NPIVOT) GO TO 180 NBEGIN = 27*I - 27 GO TO 190 180 CONTINUE C 190 DO 210 I = 1,3 NPOINT = NBEGIN + 9*I - 8 CALL GMMATD (T,3,3,1, A(NPOINT),3,3,0, TEMP9) CALL GMMATD (TEMP9,3,3,0, T,3,3,0, PROD9) C C ADD THIS PRODUCT IN NOW. C NPOINT = KM + I NPOINT = 9*M(NPOINT) - 9 DO 200 K = 1,9 NPOINT = NPOINT + 1 200 KSUM(NPOINT) = KSUM(NPOINT) + PROD9(K)/2.0D0 210 CONTINUE C 220 CONTINUE C C FILL E-MATRIX C DO 230 I = 1,18 230 E(I) = 0.0D0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C C T C FORM T E STORE IN TITE-MATRIX (6X3) C I C IF (NECPT(4*NPIVOT+10) .EQ. 0) GO TO 240 CALL TRANSD (NECPT(4*NPIVOT+10),T) CALL GMMATD (T,3,3,1, E( 1),3,3,0, TITE( 1)) CALL GMMATD (T,3,3,1, E(10),3,3,0, TITE(10)) GO TO 260 C 240 DO 250 K = 1,18 250 TITE(K) = E(K) C 260 DO 320 J = 1,4 C C TRANSFORMATIONS AND INSERTION C IF (NECPT(4*J+10) .EQ. 0) GO TO 270 CALL TRANSD (NECPT(4*J+10),T) CALL GMMATD (T,3,3,1, E(1),3,3,0, TJTE(1 )) CALL GMMATD (T,3,3,1, E(10),3,3,0, TJTE(10)) GO TO 290 270 DO 280 K = 1,18 280 TJTE(K) = E(K) 290 CALL GMMATD (KSUM(9*J-8),3,3,0, TJTE,6,3,1, TEMP18(1)) CALL GMMATD (TITE(1),6,3,0, TEMP18(1),3,6,0, KOUT(1)) CALL PLA4B (KOUT(1),NECPT(J+1)) C 320 CONTINUE RETURN C 330 CALL MESAGE (30,26,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN END ================================================ FILE: mis/pkrod.f ================================================ SUBROUTINE PKROD C C THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES K(NPVT,NPVT) AND C K(NPVT,J) FOR A ROD HAVING END POINTS NUMBERED NPVT AND J. C C ECPT FOR THE ROD C ================ CARD C TYPE TABLE TYPE C ECPT( 1)ELEMENT ID. I ECT CROD C ECPT( 2)SCALAR INDEX NUMBER FOR GRID POINT A I ECT CROD C ECPT( 3)SCALAR INDEX NUMBER FOR GRID POINT B I ECT CROD C ECPT( 4)MATERIAL ID. I EPT PROD C ECPT( 5)AREA (A) R EPT PROD C ECPT( 6)POLAR MOMENT OF INERTIA (J) R EPT PROD C ECPT( 7) TORSIONAL STRESS COEFF (C) R EPT PROD C ECPT( 8) NON-STRUCTRAL MASS (MU) R EPT PROD C ECPT( 9) COOR. SYS. ID. NO. FOR GRID POINT A I BGPDT GRID C ECPT(10) X-COORDINATE OF GRID PT. A (IN BASIC COOR)R BGPDT C ECPT(11) Y-COORDINATE OF GRID PT. A (IN BASIC COOR)R BGPDT C ECPT(12) Z-COORDINATE OF GRID PT. A (IN BASIC COOR)R BGPDT C ECPT(13) COOR. SYS. ID. NO. FOR GRID POINT B I BGPDT C ECPT(14) X-COORDINATE OF GRID PT. B (IN BASIC COOR)R BGPDT C ECPT(15) Y-COORDINATE OF GRID PT. B (IN BASIC COOR)R BGPDT C ECPT(16) Z-COORDINATE OF GRID PT. B (IN BASIC COOR)R BGPDT C ECPT(17) ELEMENT TEMPERATURE C ECPT(18) PREVIOUS STRAIN VALUE, ONCE REMOVED (EPSIN1) C ECPT(19) PREVIOUS STRAIN VALUE (EPSIN2) C ECPT(20) PREVIOUSLY COMPUTED VALUE OF MODULUS OF ELASTICITY, ESTAR C ECPT(21) DISPLACEMENT COORDINATES FOR GRID POINT A C ECPT(22) . . . C ECPT(23) . . . C ECPT(24) DISPLACEMENT COORDINATES FOR GRID POINT B C ECPT(25) . . . C ECPT(26) . . . C DOUBLE PRECISION D(18),X,Y,Z,XL,XN(3),UA(6),UB(6),TA(9),TB(9),E,G, 1 DIFF(3),DPTERM,EPSIN1,EPSIN2,DEPS1,DEPS2,EPS1, 2 EPS2,GAMMA,GAMMAS,SIGMA1,SIGMA2,DSCL,DSCR,KE(36) DIMENSION IECPT(200) C C PLA42 PARAMETERS COMMUNICATION BLOCK COMMON /PLA42C/ NPVT,G NEW,G OLD,DUMCL(146),NOGO 1 C C ECPT COMMON BLOCK COMMON /PLA42E/ ECPT(100) C C PLA42 LOCAL VARIABLE (SCRATCH) BLOCK COMMON /PLA42D/ D,X,Y,Z,XL,XN,UA,UB,TA,TB,DIFF,DPTERM,EPSIN1, 1 EPSIN2,DEPS1,DEPS2,EPS1,EPS2,GAMMA,GAMMAS, 2 SIGMA1,SIGMA2,DSCL,DSCR,E,G,KE C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT COMMON /MATIN / MATIDC,MATFLG,TEMDUM,PLAARG,MATDUM(2) COMMON /MATOUT/ E SUB 0,G SUB 0,DUMMAT(18) EQUIVALENCE (IECPT(1),ECPT(1)) ,(PLAANS,ESUB0) C C BEGIN EXECUTION C IND = 0 IF (IECPT(2) .EQ. NPVT) GO TO 10 IF (IECPT(3) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1)) IND = 1 ITEMP = IECPT(2) IECPT(2) = IECPT(3) IECPT(3) = ITEMP KA = 13 KB = 9 IDISPA = 23 IDISPB = 20 GO TO 20 10 KA = 9 KB = 13 IDISPA = 20 IDISPB = 23 C C AT THIS POINT KA POINTS TO THE COOR. SYS. ID. OF THE PIVOT GRID C POINT. SIMILARLY FOR KB AND THE NON-PIVOT GRID POINT. C NOW COMPUTE THE LENGTH OF THE ROD. C C WE STORE THE COORDINATES IN THE D ARRAY SO THAT ALL ARITHMETIC C WILL BE DOUBLE PRECISION C 20 D(1) = ECPT(KA+1) D(2) = ECPT(KA+2) D(3) = ECPT(KA+3) D(4) = ECPT(KB+1) D(5) = ECPT(KB+2) D(6) = ECPT(KB+3) X = D(1) - D(4) Y = D(2) - D(5) Z = D(3) - D(6) XL = DSQRT(X**2 + Y**2 + Z**2) IF (XL .NE. 0.0D0) GO TO 25 CALL MESAGE (30,26,IECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C CALCULATE A NORMALIZED DIRECTION VECTOR IN BASIC COORDINATES. C 25 XN(1) = X/XL XN(2) = Y/XL XN(3) = Z/XL C C STORE DISPLACEMENT VECTORS IN DOUBLE PRECISION LOCATIONS C UA(1) = ECPT(IDISPA+1) UA(2) = ECPT(IDISPA+2) UA(3) = ECPT(IDISPA+3) UB(1) = ECPT(IDISPB+1) UB(2) = ECPT(IDISPB+2) UB(3) = ECPT(IDISPB+3) C C C COMPUTE THE DIFFERENCE VECTOR DIFF = T * U - T * U C A A B B C IBASEA = 0 IF (IECPT(KA) .EQ. 0) GO TO 30 CALL TRANSD (ECPT(KA),TA) IBASEA = 3 CALL GMMATD (TA,3,3,0, UA(1),3,1,0, UA(4)) 30 IBASEB = 0 IF (IECPT(KB) .EQ. 0) GO TO 40 CALL TRANSD (ECPT(KB),TB) IBASEB = 3 CALL GMMATD (TB,3,3,0, UB(1),3,1,0, UB(4)) 40 DIFF(1) = UA(IBASEA+1) - UB(IBASEB+1) DIFF(2) = UA(IBASEA+2) - UB(IBASEB+2) DIFF(3) = UA(IBASEA+3) - UB(IBASEB+3) C C COMPUTE DOT PRODUCT XN . DIFF C CALL GMMATD (XN,3,1,1, DIFF,3,1,0, DPTERM) C C COMPUTE INCREMENT OF STRAIN C DEPS1 = DPTERM/XL EPSIN1 = ECPT(18) EPSIN2 = ECPT(19) DEPS2 = EPSIN2 - EPSIN1 C C COMPUTE CURRENT STRAIN AND ESTIMATED NEXT STRAIN C EPS1 = EPSIN2 + DEPS1 GAMMA = G NEW GAMMAS = G OLD EPS2 = EPS1 + GAMMA*DEPS1 C C CALL MAT ROUTINE TWICE TO GET SIGMA1 AND SIGMA2 AS A FUNCTION OF C EPS1 AND EPS2 C MATIDC = IECPT(4) MATFLG = 6 PLAARG = EPS1 CALL MAT (IECPT(1)) SIGMA1 = PLAANS PLAARG = EPS2 CALL MAT (IECPT(1)) SIGMA2 = PLAANS C C ON THE FIRST PASS, I.E. WHEN ECPT(19) = 0.0, SIGMA1 = E * EPS1 C 0 C IF (ECPT(19) .NE. 0.0) GO TO 41 MATFLG = 1 CALL MAT (IECPT(1)) D(2) = E SUB 0 SIGMA1 = D(2)*EPS1 C C FOR STIFFNESS MATRIX GENERATION, COMPUTE THE NEW MATERIAL C PROPERTIES C 41 IF (EPS1 .EQ. EPS2) GO TO 42 E = (SIGMA2-SIGMA1)/(EPS2-EPS1) GO TO 44 42 E = ECPT(20) C C CALL MAT ROUTINE TO GET ELASTIC MODULI. STORE IN D.P. LOCATIONS. C 44 MATFLG = 1 CALL MAT (IECPT(1)) D(2) = E SUB 0 D(4) = GSUB0 C C SET UP STIFFNESS MATRIX CONSTANTS IN DSCL AND DSCR C G = E*D(4)/D(2) D(1) = ECPT(5) D(3) = ECPT(6) DSCL = D(1)*E/XL DSCR = D(3)*G/XL C C SET UP THE -N- MATRIX AND STORE AT D(1) C D(1) = XN(1)*XN(1) D(2) = XN(1)*XN(2) D(3) = XN(1)*XN(3) D(4) = D(2) D(5) = XN(2)*XN(2) D(6) = XN(2)*XN(3) D(7) = D(3) D(8) = D(6) D(9) = XN(3)*XN(3) C C ZERO OUT THE 6X6 WHICH WILL BE USED FOR STORAGE OF C KGG(NPVT,NONPVT), NONPVT = NPVT,J C DO 50 I = 1,36 50 KE(I) = 0.0D0 NONPVT = 2 K2 = 1 C C IF PIVOT GRID POINT IS IN BASIC COORDINATES, GO TO 70 C IF (IECPT(KA) .EQ. 0) GO TO 70 CALL GMMATD (TA(1),3,3,1, D(1),3,3,0, D(10)) CALL GMMATD (D(10),3,3,0, TA(1),3,3,0, D(1)) C C AT THIS POINT D(1) CONTAINS THE MATRIX PRODUCT TAT*N*TA C AND D(10) CONTAINS THE MATRIX PRODUCT TAT*N. C ASSIGN 100 TO IRETRN GO TO 80 70 ASSIGN 90 TO IRETRN C C FILL THE KE MATRIX C 80 KE( 1) = DSCL*D(K2 ) KE( 2) = DSCL*D(K2+1) KE( 3) = DSCL*D(K2+2) KE( 7) = DSCL*D(K2+3) KE( 8) = DSCL*D(K2+4) KE( 9) = DSCL*D(K2+5) KE(13) = DSCL*D(K2+6) KE(14) = DSCL*D(K2+7) KE(15) = DSCL*D(K2+8) KE(22) = DSCR*D(K2 ) KE(23) = DSCR*D(K2+1) KE(24) = DSCR*D(K2+2) KE(28) = DSCR*D(K2+3) KE(29) = DSCR*D(K2+4) KE(30) = DSCR*D(K2+5) KE(34) = DSCR*D(K2+6) KE(35) = DSCR*D(K2+7) KE(36) = DSCR*D(K2+8) CALL PLA4B (KE,IECPT(NONPVT)) C C RETURN FROM FILL CODE W/ IRETRN = 90 IMPLIES G.P. A WAS IN BASIC C . . . . . = 100 IMPLIES G.P. A WAS NOT BASIC C . . . . . = 140 IMPLIES THE K(NPVT,NONPVT) C HAS BEEN COMPUTED AND INSERTED C AND HENCE WE ARE FINISHED. C GO TO IRETRN, (90,100,140) 90 K1 = 1 K2 = 10 GO TO 110 100 K1 = 10 K2 = 1 110 NONPVT = 3 C C IF NON-PIVOT GRID POINT IS IN BASIC COORDINATES, GO TO 120 C IF (IECPT(KB) .EQ. 0) GO TO 120 C C RECALL THAT D(K1) CONTAINS TAT*N. C CALL GMMATD (D(K1),3,3,0, TB(1),3,3,0, D(K2)) C C AT THIS POINT D(K2) CONTAINS TAT*N*TB. C GO TO 130 120 K2 = K1 130 ASSIGN 140 TO IRETRN C C SET CONSTANTS NEGATIVE TO PROPERLY COMPUTE K(NPVT,NONPVT) C DSCR = -DSCR DSCL = -DSCL GO TO 80 C C A TRANSFER TO STATEMENT NO. 140 IMPLIES KGGNL CALCULATIONS HAVE C BEEN COMPLETED. UPDATE ECPT ARRAY. C 140 IF (IND .EQ. 0) GO TO 150 ITEMP = IECPT(2) IECPT(2) = IECPT(3) IECPT(3) = ITEMP 150 ECPT(18) = ECPT(19) ECPT(19) = EPS1 ECPT(20) = E RETURN END ================================================ FILE: mis/pktq1.f ================================================ SUBROUTINE PKTQ1(NTYPE) C THIS ROUTINE CALCULATES PHASE I OUTPUT FOR PLA4 C FOR COMBINATION ELEMENTS C C**************** PHASE I STRESS DATA RECOVERY ************************ C *********************************************************-************ C C 9/12/67 E C P T L I S T I N G C *************************** C ECPT TRMEM QDMEM TRPLT QDPLT TRIA1 QUAD1 TRIA2 QUAD2 C ********************************************************************** C 1 EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID C 2 GRID A GRID A GRID A GRID A GRID A GRID A GRID A GRID A C 3 GRID B GRID B GRID B GRID B GRID B GRID B GRID B GRID B C 4 GRID C GRID C GRID C GRID C GRID C GRID C GRID C GRID C C 5 THETA GRID D THETA GRID D THETA GRID D THETA GRID D C 6 MATID THETA MATID1 THETA MATID1 THETA MAT ID THETA C 7 T MAT ID I MATID1 T1 MATID1 T MAT ID C 8 NS MASS T MATID2 I MATID2 T1 NS MASS T C 9 CSID 1 NS MASS T2 MATID2 I MATID2 CSID 1 NS MASS C 10 X1 CSID 1 NS MASS T2 MATID3 I X1 CSID 1 C 11 Y1 X1 Z1 NS MASS T2 MATID3 Y1 X1 C 12 Z1 Y1 Z2 Z1 NS MASS T2 Z1 Y1 C 13 CSID 2 Z1 CSID 1 Z2 Z1 NS MASS CSID 2 Z1 C 14 X2 CSID 2 X1 CSID 1 Z2 Z1 X2 CSID 2 C 15 Y2 X2 Y1 X1 CSID 1 Z2 Y2 X2 C 16 Z2 Y2 Z1 Y1 X1 CSID 1 Z2 Y2 C 17 CSID 3 Z2 CSID 2 Z1 Y1 X1 CSID 3 Z2 C 18 X3 CSID 3 X2 CSID 2 Z1 Y1 X3 CSID 3 C 19 Y3 X3 Y2 X2 CSID 2 Z1 Y3 X3 C 20 Z3 Y3 Z2 Y2 X2 CSID 2 Z3 Y3 C 21 TEMP Z3 CSID 3 Z2 Y2 X2 TEMP Z3 C 22 CSID 4 X3 CSID 3 Z2 Y2 CSID 4 C 23 X4 Y3 X3 CSID 3 Z2 X4 C 24 Y4 Z3 Y3 X3 CSID 3 Y4 C 25 Z4 TEMP Z3 Y3 X3 Z4 C 26 TEMP CSID 4 Z3 Y3 TEMP C 27 X4 TEMP Z3 C 28 Y4 CSID 4 C 29 Z4 X4 C 30 TEMP Y4 C 31 Z4 C 32 TEMP C ********************************************************************** C DIMENSION SAVE(32) C COMMON /PLA4ES/ ECPT(100), PH1OUT(173) ,DUMMY(27) C C C THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2 C C NTYPE = 1 IMPLIES STRIA1 C NTYPE = 2 IMPLIES STRIA2 C NTYPE = 3 IMPLIES SQUAD1 C NTYPE = 4 IMPLIES SQUAD2 C C SAVE THE INCOMING ECPT C DO 10 I=1,32 10 SAVE(I) = ECPT(I) C C TRANSFER TO OPERATIONS DESIRED C C STRIA1 STRIA2 SQUAD1 SQUAD2 GO TO(20,100,150,230),NTYPE C C ************** C *** STRIA1 *** C ************** C C SET UP ECPT FOR PKTRM1, FIRST CHECK T1 FOR ZERO 20 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 50 DO 30 I=9,21 30 ECPT(I) = SAVE(I + 6) C CALL PKTRM1 (0) C C MOVE OUTPUT FROM PKTRM1 TO NEAR BOTTOM OF PH1OUT C WORDS (1 THRU 36) DOWN TO (99 THRU 134) C C DO 40 I=1,36 40 PH1OUT(I + 98) = PH1OUT(I) RETURN 50 PH1OUT( 99) = ECPT(1) PH1OUT(100) = 0.0E0 RETURN C C C ************** C *** STRIA2 *** C ************** 100 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 140 C SET UP CALL TO PKTRM1 C C ECPT IS OK AS DELIVERED TO THIS ROUTINE C CALL PKTRM1(0) C C MOVE OUTPUT FROM PKTRM1 TO NEAR BOTTOM OF PH1OUT C WORDS (1 THRU 36) DOWN TO (99 THRU 134) C DO 110 I=1,36 110 PH1OUT(I + 98) = PH1OUT(I) RETURN C 140 PH1OUT( 99) = ECPT(1) PH1OUT(100) = 0.0E0 RETURN C C ************** C *** SQUAD1 *** C ************** C 150 IF(SAVE(8).EQ.0.0E0)GO TO 180 C C SET UP CALL TO PKQDM1 C ECPT(9) = SAVE(13) DO 160 I=10,26 160 ECPT(I) = SAVE(I+6) C CALL PKQDM1 C C MOVE OUTPUT DOWN TO NEAR BOTTOM OF PH1OUT C WORDS (1 THRU 45) DOWN TO (129 THRU 173) C DO 170 I=1,45 170 PH1OUT(I + 128) = PH1OUT(I) C RETURN 180 PH1OUT(129) = ECPT(1) PH1OUT(130) = 0.0E0 RETURN C C C ************** C *** SQUAD2 *** C ************** C 230 IF( SAVE(8) .EQ. 0.0E0 ) GO TO 270 C C SET UP CALL TO PKQDM1 C C ECPT IS OK AS DELIVERED TO THIS ROUTINE C CALL PKQDM1 C C MOVE OUTPUT DOWN TO NEAR BOTTOM OF PH1OUT C WORDS (1 THRU 45) DOWN TO (129 THRU 173) C DO 240 I=1,45 240 PH1OUT(I + 128) = PH1OUT(I) RETURN C 270 PH1OUT(129) = ECPT(1) PH1OUT(130) = 0.0E0 RETURN END ================================================ FILE: mis/pktq2.f ================================================ SUBROUTINE PKTQ2 (NPTS) C C THIS ROUTINE CALCULATES PHASE II OUTPUT FOR PLA4 FOR COMBINATION C ELEMENTS C C **** PHASE II OF STRESS DATA RECOVERY ********* C C NPTS = 3 IMPLIES STRIA1 OR STRIA2 (PHASE II) C NPTS = 4 IMPLIES SQUAD1 OR SQUAD2 (PHASE II) C DIMENSION NSIL(4),NPH1OU(1),SI(36) COMMON /PLA4UV/ IVEC,Z(24) COMMON /PLA4ES/ PH1OUT(300) COMMON /PLA42S/ STRESS(3),TEMP,DELTA,NPOINT,I,J,NPT1,VEC(5),TEM, 1 Z1OVRI, Z2OVRI,DUM1(308) EQUIVALENCE (NSIL(1),PH1OUT(2)),(NPH1OU(1),PH1OUT(1)), 1 (SI(1),PH1OUT(9)) C C PHASE I OUTPUT FROM THE MEMBRANE IS THE FOLLOWING C NOTE..BEGIN = 30*NPTS+8 C C PH1OUT(BEGIN+ 1) ELEMENT ID C PH1OUT(BEGIN+ 2 THRU BEGIN +5) 3 SILS AND DUMMY OR 4 SILS C PH1OUT(BEGIN+ 6 THRU BEGIN +9) DUMMY C PH1OUT(BEGIN+10 THRU BEGIN +9*NPTS+9) 3 OR 4 S SUB I 3X3 ARRAYS C C C FIND SIG X, SIG Y, SIG XY, FOR MEMBRANE CONSIDERATION C IF (NPH1OU(30*NPTS+10) .EQ. 0) RETURN C C I=NPTS C STRESS VECTOR = (SUMMATION(S )(U )) C I=1 I I C DO 60 I = 1,NPTS C C POINTER TO I-TH SIL IN PH1OUT C NPOINT = 30*NPTS + 9 + I C C POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE C NPOINT = IVEC + NPH1OU(NPOINT) - 1 C C POINTER TO S SUB I 3X3 C NPT1 = 30*NPTS + 9 + 9*I C CALL GMMATS (PH1OUT(NPT1),3,3,0, Z(NPOINT),3,1,0, VEC(1)) C DO 50 J = 1,3 50 STRESS(J) = STRESS(J) + VEC(J) C 60 CONTINUE C RETURN END ================================================ FILE: mis/pktrbs.f ================================================ SUBROUTINE PKTRBS (IOPT) C C BASIC BENDING TRIANGLE ELEMENT ROUTINE C C THIS ROUTINE DOES SUB-CALCULATIONS FOR TRI OR QUAD PLATES IN PLA4 C C CALLS FROM THIS ROUTINE ARE MADE TO C MAT - MATERIAL DATA ROUTINE C C PLAMAT - ROTATES AND RETURNS GP MATRIX C TRANSD - DOUBLE PRECISION TRANSFORMATION SUPPLIER C INVERD - DOUBLE PRECISION INVERSE ROUTINE C GMMATD - DOUBLE PRECISION MATRIX MULTIPLY AND TRANSPOSE C MESAGE - ERROR MESSAGE WRITER C C IOPT = 1 IMPLIES COMPUTE ONLY THE NINE (3X3)MATRICES C WHICH FORM THE 9X9 K SUPER U - MATRIX. C IOPT = 2 SAME AS IOPT = 1,BUT SAVE H-INVERSE AND S C C ECPT LIST FOR BASIC BENDING TRIANGLE NAME IN C THIS C ECPT ROUTINE TYPE C ------------------------------------ ------------------- C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID 1 MATID1 INTEGER C ECPT( 7) = I = MOMENT OF INERTIA EYE REAL C ECPT( 8) = MATERIAL ID 2 MATID2 INTEGER C ECPT( 9) = T2 T2 REAL C ECPT(10) = NON-STRUCTURAL-MASS FMU REAL C ECPT(11) = Z1 Z11 REAL C ECPT(12) = Z2 Z22 REAL C ECPT(13) = COORD. SYSTEM ID 1 NECPT(13) INTEGER C ECPT(14) = X1 X1 REAL C ECPT(15) = Y1 Y1 REAL C ECPT(16) = Z1 Z1 REAL C ECPT(17) = COORD. SYSTEM ID 2 NECPT(17) INTEGER C ECPT(18) = X2 X2 REAL C ECPT(19) = Y2 Y2 REAL C ECPT(20) = Z2 Z2 REAL C ECPT(21) = COORD. SYSTEM ID 3 NECPT(21) INTEGER C ECPT(22) = X3 X3 REAL C ECPT(23) = Y3 Y3 REAL C ECPT(24) = Z3 Z3 REAL C ECPT(25) = ELEMENT TEMPERATURE ELTEMP REAL C INTEGER SUBSCA,SUBSCB DOUBLE PRECISION A,E,XSUBB,TEMP,XSUBC,D,YSUBC,XCYC,XCSQ,DETERM, 1 YCSQ,XBSQ,G2X2,TITE,TJTE,S,TI,J2X2,AREA,G,XBAR, 2 YBAR,PX2,PY2,PXY2,XBAR3,YBAR2,YBAR3,PROD9,TEMP9 DIMENSION D(9),G2X2(4),J2X2(4),S(18),ECPT(1),G(9),TJTE(18), 1 TITE(18),TI(9) COMMON /PLA42C/ NPVT,DUM1(148),NOGO COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE, 2 G2X211, G2X212, G2X222 C C ECPT BLOCK COMMON /PLA4ES/ NECPT(1),NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU, 1 Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3, 2 X3,Y3,Z3,DUMB(76) COMMON /PLA42D/ A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,E(18), 1 TEMP,XBAR,AREA,XCSQ,YBAR2,YCSQ,YBAR,XBSQ,PX2, 2 XCYC,PY2,PXY2,XBAR3,YBAR3,DETERM,NSIZED, 3 DUMDUM(4),NPIVOT,THETA,NSUBC,ISING,SUBSCA,SUBSCB, 4 NBEGIN,DUMMY(30) EQUIVALENCE (D(1),G(1),A(79)),(ECPT(1),NECPT(1)), 1 (G2X2(1),A(88)),(TJTE(1),A(100)), 2 (TITE(1),S(1),A(82)),(J2X2(1),A(92)), 3 (TI(1),A(118)) C C MATID = MATID1 INFLAG = -1 C CALL PLAMAT C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT) C DO 90 I = 1,9 90 D(I) = G(I)*DBLE(EYE) C AREA = XSUBB*YSUBC/2.0D0 XBAR =(XSUBB + XSUBC)/3.0D0 YBAR = YSUBC/3.0D0 C XCSQ = XSUBC**2 YCSQ = YSUBC**2 XBSQ = XSUBB**2 XCYC = XSUBC*YSUBC PX2 = (XBSQ + XSUBB*XSUBC + XCSQ)/6.0D0 PY2 = YCSQ/6.0D0 PXY2 = YSUBC*(XSUBB + 2.0D0*XSUBC)/12.0D0 XBAR3 = 3.0D0*XBAR YBAR3 = 3.0D0*YBAR YBAR2 = 2.0D0*YBAR C C X C FILL THE (K ) MATRIX STORING IN A(1) THRU A(36) C A( 1) = D( 1) A( 2) = D( 3) A( 3) = D( 2) A( 4) = D( 1)*XBAR3 A( 5) = D( 2)*XBAR + YBAR2*D(3) A( 6) = D( 2)*YBAR3 A( 7) = A( 2) A( 8) = D( 9) A( 9) = D( 6) A(10) = D( 3)*XBAR3 A(11) = D( 6)*XBAR + YBAR2*D(9) A(12) = D( 6)*YBAR3 A(13) = A( 3) A(14) = A( 9) A(15) = D( 5) A(16) = D( 2)*XBAR3 A(17) = D( 5)*XBAR + YBAR2*D(6) A(18) = D( 5)*YBAR3 A(19) = A( 4) A(20) = A(10) A(21) = A(16) A(22) = D( 1)*9.0D0*PX2 A(23) = D( 2)*3.0D0*PX2 + 6.0D0*PXY2*D(3) A(24) = D( 2)*9.0D0*PXY2 A(25) = A( 5) A(26) = A(11) A(27) = A(17) A(28) = A(23) A(29) = D( 5)*PX2 + 4.0D0*PXY2*D(6) + 4.0D0*PY2*D(9) A(30) = D( 5)*3.0D0*PXY2 + 6.0D0*PY2*D(6) A(31) = A( 6) A(32) = A(12) A(33) = A(18) A(34) = A(24) A(35) = A(30) A(36) = D( 5)*9.0D0*PY2 TEMP = 4.0D0*AREA DO 70 I = 1,36 70 A(I) = A(I)*TEMP C C F1LL (HBAR) MATRIX STORING AT A(37) THRU A(72) C DO 130 I = 37,72 130 A(I) = 0.0D0 C A(37) = XBSQ A(40) = XBSQ*XSUBB A(44) = XSUBB A(49) =-2.0D0*XSUBB A(52) =-3.0D0*XBSQ A(55) = XCSQ A(56) = XCYC A(57) = YCSQ A(58) = XCSQ*XSUBC A(59) = YCSQ*XSUBC A(60) = YCSQ*YSUBC A(62) = XSUBC A(63) = YSUBC*2.0D0 A(65) = XCYC *2.0D0 A(66) = YCSQ *3.0D0 A(67) =-2.0D0*XSUBC A(68) =-YSUBC A(70) =-3.0D0*XCSQ A(71) =-YCSQ C IF (T2 .EQ. 0.0E0) GO TO 500 C C ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 500 C ARE NECESSARY IF T2 IS NON-ZERO. C C GET THE G2X2 MATRIX C MATID = MATID2 INFLAG = 3 CALL MAT (ECPT(1)) IF (G2X211.EQ.0.0 .AND. G2X212.EQ.0.0 .AND. G2X222.EQ.0.0) 1 GO TO 500 G2X2(1) = G2X211*T2 G2X2(2) = G2X212*T2 G2X2(3) = G2X212*T2 G2X2(4) = G2X222*T2 C DETERM = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2) J2X2(1) = G2X2(4)/DETERM J2X2(2) =-G2X2(2)/DETERM J2X2(3) =-G2X2(3)/DETERM J2X2(4) = G2X2(1)/DETERM C C (H ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE C YQ RIGHT PORTION IS COMPUTED AND USED AS A (2X3). THE LEFT C 2X3 PORTION IS NULL. THE RIGHT PORTION WILL BE STORED AT C A(73)...A(78) UNTIL NOT NEEDED ANY FURTHER. C TEMP = 2.0D0*D(2) + 4.0D0*D(9) A(73) = -6.0D0*(J2X2(1)*D(1) + J2X2(2)*D(3)) A(74) = -J2X2(1)*TEMP + 6.0D0*J2X2(2)*D(6) A(75) = -6.0D0*(J2X2(1)*D(6) + J2X2(2)*D(5)) A(76) = -6.0D0*(J2X2(2)*D(1) + J2X2(4)*D(3)) A(77) = -J2X2(2)*TEMP + 6.0D0*J2X2(4)*D(6) A(78) = -6.0D0*(J2X2(2)*D(6) + J2X2(4)*D(5)) C C THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H ) MATRIX (2X3) C YQ C C NOW FORMING PRODUCT (G2X2)(H ) AND STORING AS AN INTERMEDIATE C STEP. YQ C CALL GMMATD (G2X2(1),2,2,0, A(73),2,3,0, A(79)) C C Y C WITH LAST PRODUCT FORM LOWER RIGHT 3 X 3 PARTITION OF (K ) C C Y T C THUS (K ) PARTITION = (H ) (LAST PRODUCT) STORE AT A(85) C YQ C CALL GMMATD (A(73),2,3,1, A(79),2,3,0, A(85)) C C X C NOW ADD THE 9 ELEMENTS OF THIS 3X3 PORTION TO (K ) C PER STEP 5 PAGE -16- MS-17 Y C MULTIPLY IN AREA AT SAME TIME WHICH WAS LEFT OUT OF (K ) ABOVE. C DO 60 I = 1,3 A(I+21) = A(I+21) + A(I+84)*AREA A(I+27) = A(I+27) + A(I+87)*AREA 60 A(I+33) = A(I+33) + A(I+90)*AREA C C ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H )(H ) C UY YQ C THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW. C NO (H ) MATRIX IS ACTUALLY COMPUTED DIRECTLY. C UY C C THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17. C DO 75 I = 1,3 A(I+39) = A(I+39) + XSUBB*A(I+72) 75 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75) C C THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO C 500 CONTINUE C C AT THIS POINT INVERT (H) WHICH IS STORED AT A(37) THRU A(72) C STORE INVERSE BACK IN A(37) THRU A(72) C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (6,A(37),6,A(73),0,DETERM,ISING,A(79)) C C CHECK TO SEE IF H WAS SINGULAR C IF (ISING .NE. 2) GO TO 440 C C ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION. C CALL MESAGE (30,33,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C Q -1 C 440 FORM (K )(H ) AND STORE AT A(73) THRU A(108) C C X Q C NOTE THAT (K ) AT THIS POINT IS (K ) C 440 CALL GMMATD (A(1),6,6,0, A(37),6,6,0, A(73)) C C -1 T C FORM(K ) = (H ) (LAST PRODUCT) STORE AT A(109) THRU A(144) C II C CALL GMMATD (A(37),6,6,1, A(73),6,6,0, A(109)) C C FILL S-MATRIX EQUIVALENCED TO A(82) (S IS 6X3) C IF (IOPT .NE. 2) GO TO 700 C C SAVE H-INVERSE TO BE USED BY TRIANGULAR PLATE ROUTINE. C DO 710 I = 37,72 710 A(I+108) = A(I) C 700 S( 1) = 1.0D0 S( 2) = 0.0D0 S( 3) =-XSUBB S( 4) = 0.0D0 S( 5) = 1.0D0 S( 6) = 0.0D0 S( 7) = 0.0D0 S( 8) = 0.0D0 S( 9) = 1.0D0 S(10) = 1.0D0 S(11) = YSUBC S(12) =-XSUBC S(13) = 0.0D0 S(14) = 1.0D0 S(15) = 0.0D0 S(16) = 0.0D0 S(17) = 0.0D0 S(18) = 1.0D0 C C T C FORM K = K = -K S STORING AT A(46) (K IS 6X3) C IA AI II IA C CALL GMMATD (A(109),6,6,0, S(1),6,3,0, A(46)) C C THIS PRODUCT IS MULTIPLIED BY SCALER -1 BELOW. C C T C (K ) = (S )(-K ) C AA IA C C NOTE K HAS NOT BEEN MULTIPLIED ABOVE BY -1, THUS IGNORE MINUS C IA HERE. C CALL GMMATD (S(1),6,3,1, A(46),6,3,0, A(1)) C C NOW MULTIPLY K BY SCALER (-1) C IA C DO 190 I = 46,63 190 A(I) = -A(I) C C AT THIS POINT, STORED BY ROWS ARE C C K (6X6) AT A(109) THRU A(144) C II C C K (6,3) AT A(46) THRU A(63) C IA C C K (3X3) AT A(1) THRU A(9) C AA C C ARRANGE NINE 3X3 MATRICES OF K SUPER U C A( I) = A(I+18) A(10) = A( 46) A(11) = A( 49) A(12) = A( 52) A(13) = A( 47) A(14) = A( 50) A(15) = A( 53) A(16) = A( 48) A(17) = A( 51) A(18) = A( 54) A(19) = A( 55) A(20) = A( 58) A(21) = A( 61) A(22) = A( 56) A(23) = A( 59) A(24) = A( 62) A(25) = A( 57) A(26) = A( 60) A(27) = A( 63) A(37) = A(109) A(38) = A(110) A(39) = A(111) A(40) = A(115) A(41) = A(116) A(42) = A(117) A(43) = A(121) A(44) = A(122) A(45) = A(123) A(46) = A(112) A(47) = A(113) A(48) = A(114) A(49) = A(118) A(50) = A(119) A(51) = A(120) A(52) = A(124) A(53) = A(125) A(54) = A(126) A(64) = A(127) A(65) = A(128) A(66) = A(129) A(67) = A(133) A(68) = A(134) A(69) = A(135) A(70) = A(139) A(71) = A(140) A(72) = A(141) A(73) = A(130) A(74) = A(131) A(75) = A(132) A(76) = A(136) A(77) = A(137) A(78) = A(138) A(79) = A(142) A(80) = A(143) A(81) = A(144) RETURN END ================================================ FILE: mis/pktri1.f ================================================ SUBROUTINE PKTRI1 C THIS ROUTINE CALCULATES GP,SET-S UP THE ECPT AND UPDATES THE ECPT C FOR THE TRIA1 ELEMENTS C PLA4 C C ECPT FOR TRIA1 C C EL.ID ECPT( 1) C GRID A ECPT( 2) C GRID B ECPT( 3) C GRID C ECPT( 4) C THETA ECPT( 5) C MATID1 ECPT( 6) C T1 ECPT( 7) C MATID2 ECPT( 8) C I ECPT( 9) C MATID3 ECPT(10) C T2 ECPT(11) C NS MASS ECPT(12) C Z1 ECPT(13) C Z2 ECPT(14) C CSID 1 ECPT(15) C X1 ECPT(16) C Y1 ECPT(17) C Z1 ECPT(18) C CSID 2 ECPT(19) C X2 ECPT(20) C Y2 ECPT(21) C Z2 ECPT(22) C CSID3 ECPT(23) C X3 ECPT(24) C Y3 ECPT(25) C Z3 ECPT(26) C TEMP ECPT(27) C EPS SUB 0 (PREVIOUS STRAIN) ECPT(28) C EPS SUB STAR (LAST STRAIN) ECPT(29) C MODULUS OF ELASTICITY ECPT(30) C SIGMA X STRESS ECPT(31) C SIGMA Y STRESS ECPT(32) C SIGMA XY STRESS ECPT(33) C U A (3X1 DISPLACEMENT VECTOR) ECPT(34) C U B (3X1 DISPLACEMENT VECTOR) ECPT(37) C U C (3X1 DISPLACEMENT VECTOR) ECPT(40) C C ****************************************************************** C LOGICAL ISTIFF C REAL NU C DIMENSION NECPT(27), NECPTS(27) C COMMON /PLA42E/ ECPT(27),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS, 1 UI(09), DUMMY(58) COMMON /PLA4ES/ ECPTSA(100), PH1OUT(200) COMMON /PLA4UV/ IVEC, Z(24) C C SCRATCH BLOCK 325 CELLS C COMMON /PLA42S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS, 1 EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3) 2, EXTRA(4) COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA42C/ NPVT, GAMMA, GAMMAS, IPASS 1, DUMCL(145) ,NOGO COMMON /PLAGP/ GP(9) , MIDGP , ELID C EQUIVALENCE (NECPT(6),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS) 1, (G13,NU) , (G11,ESUB0) 2, (NECPTS(1),ECPTSA(1)) 3, (G12,NIROF) C C SETUP GP MATRIX FOR PLAMAT C ISTIFF = .FALSE. ELID = ECPT(1) MIDGP = MATID1 DO 10 I=1,9 10 GP(I)=0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF(ESTAR .EQ. 0.0) GO TO 50 IF(IPASS .NE. 1 ) GO TO 20 MATID = MATID1 COSTH = 1.0 SINTH = 0.0E0 INFLAG= 2 C CALL MAT(ECPT(1)) C GP(1) = G11 GP(2) = G12 GP(3) = G13 GP(4) = G12 GP(5) = G22 GP(6) = G23 GP(7) = G13 GP(8) = G23 GP(9) = G33 GO TO 50 20 IF(TAU0 .EQ. 0.0) GO TO 50 120 MATID = MATID1 INFLAG = 1 C CALL MAT(ECPT(1)) C F = 9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR) SX = (2.0*SIGXS - SIGYS)/ 3.0 SY = (2.0*SIGYS - SIGXS)/ 3.0 GP(1) = (1.0+SX**2*F) / ESUB0 GP(2) = (-NU+SX*SY*F) / ESUB0 GP(3) = (2.0*SIGXYS*SX*F) / ESUB0 GP(4) = GP(2) GP(5) = (1.0+SY**2*F) / ESUB0 GP(6) = (2.0*SIGXYS*SY*F) / ESUB0 GP(7) = GP(3) GP(8) = GP(6) GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. IDUM2 = -1 CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3) C C CHECK SINGULARITY C IF(IDUM2.EQ.2) GO TO 150 C 50 IF(ISTIFF) GO TO 130 ISTIFF = .TRUE. C C CALCULATE PHASE I STRESSES C DO 30 I = 1,32 30 ECPTSA(I) = ECPT(I) NECPTS(2) = 1 NECPTS(3) = 4 NECPTS(4) = 7 C CALL PKTQ1(1) C C C CALCULATE PHASE II STRESSES C IVEC = 1 DO 60 I = 1,24 60 Z(I) = UI(I) DO 70 I = 1,200 70 ECPTSA(I) = PH1OUT(I) S(1) = SIGXS S(2) = SIGYS S(3) = SIGXYS C CALL PKTQ2(3) C C UPDATE ECPT FOR STRESSES C SIGXS = S(1) SIGYS = S(2) SIGXYS = S(3) TAU1 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) MATID= MATID1 INFLAG = 8 PLAARG = TAU1 C CALL MAT(ECPT(1)) C C TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION C IF ( NIROF . EQ. 1 ) GO TO 80 C C RETURNS EPS SUB 1 GIVEN TAU1 C EPS1 = PLAANS DEPS = EPS1 - EPSS DEPSS= EPSS - EPS0 EPS2 = EPS1 + GAMMA * DEPS INFLAG=6 PLAARG = EPS2 C CALL MAT(ECPT(1)) C C RETURNS TAU2 GIVEN EPS2 C TAU2 = PLAANS ESTAR = 0.0 IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1) EPS0 = EPSS EPSS = EPS1 GO TO 100 80 ESTAR = 0.0 C C SETUP STIFFNESS CALCULATIONS FOR GP C 100 DO 110 I = 1,9 110 GP(I) = 0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF( ESTAR .NE. 0.0 .AND. TAU0 .NE. 0.0) GO TO 120 C C SETUP CALL TO ELEMENT STIFFNESS ROUTINE IT WILL ALSO INSERT C 130 DO 140 I = 1,32 140 ECPTSA(I) = ECPT(I) CALL PKTRQD(1) RETURN 150 CALL MESAGE(30,38,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN END ================================================ FILE: mis/pktri2.f ================================================ SUBROUTINE PKTRI2 C THIS SUBROUTINE IS THE DRIVER FOR THE TRIA2 CALCULATIONS IN C PLA4 C C ECPT FOR TRIA2 C C 1 EL.ID C 2 GRID A C 3 GRID B C 4 GRID C C 5 THETA C 6 MAT ID C 7 T C 8 MS MASS C 9 CSID 1 C 10 X1 C 11 Y1 C 12 Z1 C 13 CSID 2 C 14 X2 C 15 Y2 C 16 Z2 C 17 CSID 3 C 18 X3 C 19 Y3 C 20 Z3 C 21 TEMP C 22 EPS0 C 23 EPSS C 24 ESTAR C 25 SIGXS C 26 SIGYS C 27 SIGXYS C 28 U(A) (3X1) C 31 U(B) (3X1) C 34 U(C) (3X1) C C ****************************************************************** C LOGICAL ISTIFF C REAL NU C DIMENSION NECPT(21), NECPTS(21) C COMMON /PLA42E/ ECPT(21),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS, 1 UI(09), DUMMY(64) COMMON /PLA4ES/ ECPTSA(100), PH1OUT(200) COMMON /PLA4UV/ IVEC, Z(24) C C SCRATCH BLOCK 325 CELLS C COMMON /PLA42S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS, 1 EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3) 2, EXTRA(4) COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA42C/ NPVT, GAMMA, GAMMAS, IPASS 1, DUMCL(145) ,NOGO COMMON /PLAGP/ GP(9) , MIDGP , ELID C EQUIVALENCE (NECPT(6),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS) 1, (G13,NU) , (G11,ESUB0) 2, (NECPTS(1),ECPTSA(1)) 3, (G12,NIROF) C C SETUP GP MATRIX FOR PLAMAT C ISTIFF = .FALSE. ELID = ECPT(1) MIDGP = MATID1 DO 10 I=1,9 10 GP(I)=0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF(ESTAR .EQ. 0.0) GO TO 50 IF(IPASS .NE. 1 ) GO TO 20 MATID = MATID1 COSTH = 1.0 SINTH = 0.0E0 INFLAG= 2 C CALL MAT(ECPT(1)) C GP(1) = G11 GP(2) = G12 GP(3) = G13 GP(4) = G12 GP(5) = G22 GP(6) = G23 GP(7) = G13 GP(8) = G23 GP(9) = G33 GO TO 50 20 IF(TAU0 .EQ. 0.0) GO TO 50 120 MATID = MATID1 INFLAG = 1 C CALL MAT(ECPT(1)) C F = 9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR) SX = (2.0*SIGXS - SIGYS)/ 3.0 SY = (2.0*SIGYS - SIGXS)/ 3.0 GP(1) = (1.0+SX**2*F) / ESUB0 GP(2) = (-NU+SX*SY*F) / ESUB0 GP(3) = (2.0*SIGXYS*SX*F) / ESUB0 GP(4) = GP(2) GP(5) = (1.0+SY**2*F) / ESUB0 GP(6) = (2.0*SIGXYS*SY*F) / ESUB0 GP(7) = GP(3) GP(8) = GP(6) GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. IDUM2 = -1 CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3) C C CHECK SINGULARITY C IF (IDUM2.EQ.2) GO TO 150 C 50 IF(ISTIFF) GO TO 130 ISTIFF = .TRUE. C C CALCULATE PHASE I STRESSES C DO 30 I = 1,32 30 ECPTSA(I) = ECPT(I) NECPTS(2) = 1 NECPTS(3) = 4 NECPTS(4) = 7 C CALL PKTQ1(2) C C C CALCULATE PHASE II STRESSES C IVEC = 1 DO 60 I = 1,24 60 Z(I) = UI(I) DO 70 I = 1,200 70 ECPTSA(I) = PH1OUT(I) S(1) = SIGXS S(2) = SIGYS S(3) = SIGXYS C CALL PKTQ2(3) C C UPDATE ECPT FOR STRESSES C SIGXS = S(1) SIGYS = S(2) SIGXYS = S(3) TAU1 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) MATID= MATID1 INFLAG = 8 PLAARG = TAU1 C CALL MAT(ECPT(1)) C C TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION C IF ( NIROF . EQ. 1 ) GO TO 80 C C RETURNS EPS SUB 1 GIVEN TAU1 C EPS1 = PLAANS DEPS = EPS1 - EPSS DEPSS= EPSS - EPS0 EPS2 = EPS1 + GAMMA * DEPS INFLAG=6 PLAARG = EPS2 C CALL MAT(ECPT(1)) C C RETURNS TAU2 GIVEN EPS2 C TAU2 = PLAANS ESTAR = 0.0 IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1) EPS0 = EPSS EPSS = EPS1 GO TO 100 80 ESTAR = 0.0 C C SETUP STIFFNESS CALCULATIONS FOR GP C 100 DO 110 I = 1,9 110 GP(I) = 0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF( ESTAR .NE. 0.0 .AND. TAU0 .NE. 0.0) GO TO 120 C C SETUP CALL TO ELEMENT STIFFNESS ROUTINE IT WILL ALSO INSERT C 130 DO 140 I = 1,32 140 ECPTSA(I) = ECPT(I) CALL PKTRQD(2) RETURN 150 CALL MESAGE(30,38,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN END ================================================ FILE: mis/pktrm.f ================================================ SUBROUTINE PKTRM C THIS SUBROUTINE IS THE DRIVER FOR THE TRI-MEMBRANE CALCULATIONS IN C PLA4 C C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID MATID INTEGER C ECPT( 7) = T T REAL C ECPT( 8) = NON-STRUCTURAL MASS FMU REAL C ECPT( 9) = COORD. SYSTEM ID 1 NECPT(9) INTEGER C ECPT(10) = X1 X1 REAL C ECPT(11) = Y1 Y1 REAL C ECPT(12) = Z1 Z1 REAL C ECPT(13) = COORD. SYSTEM ID 2 NECPT(13) INTEGER C ECPT(14) = X2 X2 REAL C ECPT(15) = Y2 Y2 REAL C ECPT(16) = Z2 Z2 REAL C ECPT(17) = COORD. SYSTEM ID 3 NECPT(17) INTEGER C ECPT(18) = X3 X3 REAL C ECPT(19) = Y3 Y3 REAL C ECPT(20) = Z3 Z3 REAL C ECPT(21) = ELEMENT TEMPERATURE ELTEMP REAL C ECPT(22) = STRAIN (MINUS ONE) EPS0 REAL C ECPT(23) = STRAIN (PRESENT) EPSS REAL C ECPT(24) = MODULUS OF ELASTICITY ESTAR REAL C ECPT(25) = STRESS SUB X SIGXS REAL C ECPT(26) = STRESS SUB Y SIGYS REAL C ECPT(27) = STRESS SUB XY SIGXYS REAL C ECPT(28) = DISPLACEMENT VECTOR A1 UI(1) REAL C ECPT(29) = DISPLACEMENT VECTOR A2 UI(2) REAL C ECPT(30) = DISPLACEMENT VECTOR A3 UI(3) REAL C ECPT(31) = DISPLACEMENT VECTOR B1 UI(4) REAL C ECPT(32) = DISPLACEMENT VECTOR B2 UI(5) REAL C ECPT(33) = DISPLACEMENT VECTOR B3 UI(6) REAL C ECPT(34) = DISPLACEMENT VECTOR C1 UI(7) REAL C ECPT(35) = DISPLACEMENT VECTOR C2 UI(8) REAL C ECPT(36) = DISPLACEMENT VECTOR C3 UI(9) REAL C C ****************************************************************** C LOGICAL ISTIFF C REAL NU C DIMENSION NECPT(21), NECPTS(21) C COMMON /PLA42E/ ECPT(21),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS, 1 UI(9),DUMMY(64) COMMON /PLA4ES/ ECPTSA(100), PH1OUT(200) COMMON /PLA4UV/ IVEC, Z(24) C C SCRATCH BLOCK 325 CELLS C COMMON /PLA42S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS, 1 EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3) 2, EXTRA(4) COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA42C/ NPVT, GAMMA, GAMMAS, IPASS 1, DUMCL(145) ,NOGO COMMON /PLAGP/ GP(9) , MIDGP , ELID C EQUIVALENCE (NECPT(6),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS) 1, (G13,NU) , (G11,ESUB0) 2, (NECPTS(1),ECPTSA(1)) 3, (G12,NIROF) C C SETUP GP MATRIX FOR PLAMAT C ISTIFF = .FALSE. ELID = ECPT(1) MIDGP = MATID1 DO 10 I=1,9 10 GP(I)=0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF(ESTAR .EQ. 0.0) GO TO 50 IF(IPASS .NE. 1 ) GO TO 20 MATID = MATID1 COSTH = 1.0 SINTH = 0.0E0 INFLAG= 2 C CALL MAT(ECPT(1)) C GP(1) = G11 GP(2) = G12 GP(3) = G13 GP(4) = G12 GP(5) = G22 GP(6) = G23 GP(7) = G13 GP(8) = G23 GP(9) = G33 GO TO 50 20 IF(TAU0 .EQ. 0.0) GO TO 50 120 MATID = MATID1 INFLAG = 1 C CALL MAT(ECPT(1)) C F = 9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR) SX = (2.0*SIGXS - SIGYS)/ 3.0 SY = (2.0*SIGYS - SIGXS)/ 3.0 GP(1) = (1.0+SX**2*F) / ESUB0 GP(2) = (-NU+SX*SY*F) / ESUB0 GP(3) = (2.0*SIGXYS*SX*F) / ESUB0 GP(4) = GP(2) GP(5) = (1.0+SY**2*F) / ESUB0 GP(6) = (2.0*SIGXYS*SY*F) / ESUB0 GP(7) = GP(3) GP(8) = GP(6) GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. IDUM2 = -1 CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3) C C CHECK SINGULARITY C IF (IDUM2.EQ.2) GO TO 150 C 50 IF(ISTIFF) GO TO 130 ISTIFF = .TRUE. C C CALCULATE PHASE I STRESSES C DO 30 I = 1,32 30 ECPTSA(I) = ECPT(I) NECPTS(2) = 1 NECPTS(3) = 4 NECPTS(4) = 7 C CALL PKTRM1(0) C C C CALCULATE PHASE II STRESSES C IVEC = 1 DO 60 I = 1,24 60 Z(I) = UI(I) DO 70 I = 1,200 70 ECPTSA(I) = PH1OUT(I) S(1) = SIGXS S(2) = SIGYS S(3) = SIGXYS C CALL PKTRQ2(1) C C UPDATE ECPT FOR STRESSES C SIGXS = S(1) SIGYS = S(2) SIGXYS = S(3) TAU1 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) MATID= MATID1 INFLAG = 8 PLAARG = TAU1 C CALL MAT(ECPT(1)) C C TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION C IF ( NIROF . EQ. 1 ) GO TO 80 C C RETURNS EPS SUB 1 GIVEN TAU1 C EPS1 = PLAANS DEPS = EPS1 - EPSS DEPSS= EPSS - EPS0 EPS2 = EPS1 + GAMMA * DEPS INFLAG=6 PLAARG = EPS2 C CALL MAT(ECPT(1)) C C RETURNS TAU2 GIVEN EPS2 C TAU2 = PLAANS ESTAR = 0.0 IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1) EPS0 = EPSS EPSS = EPS1 GO TO 100 80 ESTAR = 0.0 C C SETUP STIFFNESS CALCULATIONS FOR GP C 100 DO 110 I = 1,9 110 GP(I) = 0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF( ESTAR .NE. 0.0 .AND. TAU0 .NE. 0.0) GO TO 120 C C SETUP CALL TO ELEMENT STIFFNESS ROUTINE IT WILL ALSO INSERT C 130 DO 140 I = 1,32 140 ECPTSA(I) = ECPT(I) CALL PKTRMS(0) RETURN 150 CALL MESAGE(30,38,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN END ================================================ FILE: mis/pktrm1.f ================================================ SUBROUTINE PKTRM1(NTYPE) C THIS ROUTINE CALCULATES PHASE I OUTPUT FOR PLA4 C BOTH FOR THE TRI-MEMBRANE AND SUB-CALCULATIONS FOR THE QUAD MEMBRANE C C ******** PHASE I OF STRESS DATA RECOVERY ************************* C ******** TRIANGULAR MEMBRANE ELEMENT ***************************** C C CALLS FROM THIS ROUTINE ARE MADE TO. . . C C PLAMAT - RETURNS STANDARD GP MATRIS ROTATED C TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER C GMMATS - SINGLE PRECISION MATRIX MULTIPLY AND TRANSPOSE C MESAGE - ERROR MESSAGE WRITER C C IF NTYPE = 0 TRI-MEMBRANE CALCULATIONS WILL BE DONE C C IF NTYPE = 1 QUAD-MEMBRANE CALCULATIONS WILL BE DONE C C DIMENSION G(9), ECPT(4) C COMMON /CONDAS/ CONSTS(5) COMMON /PLA4ES/ 1 NECPT(1) ,NGRID(3) 2 ,ANGLE ,MATID1 3 ,T ,FMU 4 ,DUMMY1 ,X1 5 ,Y1 ,Z1 6 ,DUMMY2 ,X2 7 ,Y2 ,Z2 8 ,DUMMY3 ,X3 9 ,Y3 ,Z3 ,DUMB(80) T ,PH1OUT(200) COMMON /PLA42S/ C(18), E(18), TI(9), TEMPAR(27), TEMP 2 ,XSUBB,XSUBC,YSUBC,VOL,REELMU,DELTA,FLAMDA,THETA ,DUMMY(244) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/G11,G12,G13,G22,G23,G33 COMMON /PLA42C/ DUMCL(149) ,NOGO C EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (G(1),TEMPAR(19)),(ECPT(1),NECPT(1)) C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID MATID INTEGER C ECPT( 7) = T T REAL C ECPT( 8) = NON-STRUCTURAL MASS FMU REAL C ECPT( 9) = COORD. SYSTEM ID 1 NECPT(9) INTEGER C ECPT(10) = X1 X1 REAL C ECPT(11) = Y1 Y1 REAL C ECPT(12) = Z1 Z1 REAL C ECPT(13) = COORD. SYSTEM ID 2 NECPT(13) INTEGER C ECPT(14) = X2 X2 REAL C ECPT(15) = Y2 Y2 REAL C ECPT(16) = Z2 Z2 REAL C ECPT(17) = COORD. SYSTEM ID 3 NECPT(17) INTEGER C ECPT(18) = X3 X3 REAL C ECPT(19) = Y3 Y3 REAL C ECPT(20) = Z3 Z3 REAL C ECPT(21) = ELEMENT TEMPERATURE ELTEMP REAL C C ****************************************************************** C C SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE C C E(1), E(3), E(5) WILL BE THE I-VECTOR C E(2), E(4), E(6) WILL BE THE J-VECTOR C E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE C C FIRST FIND I-VECTOR = RSUBB - RSUBA (NON-NORMALIZED) E(1) = X2 - X1 E(3) = Y2 - Y1 E(5) = Z2 - Z1 C C NOW FIND LENGTH = X-SUB-B COORD. IN ELEMENT SYSTEM XSUBB = SQRT( E(1)**2 + E(3)**2 + E(5)**2 ) IF(XSUBB .GT. 1.0E-06) GO TO 20 CALL MESAGE(30,31,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN C C NOW NORMALIZE I-VECTOR WITH X-SUB-B 20 E(1) = E(1) / XSUBB E(3) = E(3) / XSUBB E(5) = E(5) / XSUBB C C HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN C E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER C E(2) = X3 - X1 E(4) = Y3 - Y1 E(6) = Z3 - Z1 C C X-SUB-C = I . (RSUBC - RSUBA) , THUS XSUBC = E(1) * E(2) + E(3) * E(4) + E(5) * E(6) C C AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(7) = E(3) * E(6) - E(5) * E(4) E(8) = E(5) * E(2) - E(1) * E(6) E(9) = E(1) * E(4) - E(3) * E(2) C C C THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C C COORD. IN ELEMENT SYSTEM YSUBC = SQRT( E(7)**2 + E(8)**2 + E(9)**2 ) IF(YSUBC .GT. 1.0E-06) GO TO 25 CALL MESAGE(30,32,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN C C NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND C 25 E(7) = E(7) / YSUBC E(8) = E(8) / YSUBC E(9) = E(9) / YSUBC C C NOW HAVING I AND K VECTORS.GET J = I CROSS K AND C STORE IN THE SPOT FOR J C E(2) = E(5) * E(8) - E(3) * E(9) E(4) = E(1) * E(9) - E(5) * E(7) E(6) = E(3) * E(7) - E(1) * E(8) C C AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE. TEMP = SQRT( E(2)**2 + E(4)**2 + E(6)**2 ) E(2) = E(2)/TEMP E(4) = E(4)/TEMP E(6) = E(6)/TEMP C C VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA C REELMU = 1.0E0 / XSUBB FLAMDA = 1.0E0 / YSUBC DELTA = XSUBC / XSUBB - 1.0E0 C C ****************************************************************** C C NOW FORM THE C MATRIX (3X6) PARTITIONED AS FOLLOWS HERE. C CSUBA = (3X2) STORED IN C(1) . . .C(6) BY ROWS C CSUBB = (3X2) STORED IN C(7) . . .C(12) BY ROWS C CSUBC = (3X2) STORED IN C(13). . .C(18) BY ROWS C C(1) = -REELMU C(2) = 0.0E0 C(3) = 0.0E0 C(4) = FLAMDA * DELTA C(5) = C(4) C(6) = -REELMU C(7) = REELMU C(8) = 0.0E0 C(9) = 0.0E0 C(10) = -FLAMDA * REELMU * XSUBC C(11) = C(10) C(12) = REELMU C(13) = 0.0E0 C(14) = 0.0E0 C(15) = 0.0E0 C(16) = FLAMDA C(17) = FLAMDA C(18) = 0.0E0 C IF( NTYPE .EQ. 1 ) GO TO 30 THETA = ANGLE * DEGRA SINTH = SIN( THETA ) COSTH = COS( THETA ) 30 IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 MATID = MATID1 INFLAG = -1 CALL PLAMAT C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C ****************************************************************** C C G, E, AND C MATRICES ARE COMPLETE C C C C T C COMPUTE S = G C E T , I = 1,2,3. C I I I C DO 100 I = 1,3 C C POINTER TO C = 6*I - 5 C I C CALL GMMATS ( G,3,3,0, C(6*I-5),3,2,0, TEMPAR(1)) CALL GMMATS ( TEMPAR(1),3,2,0, E,3,2,1, TEMPAR(10) ) C C DO WE NEED TRANSFORMATION TI C IF( NECPT(4*I + 5) .EQ. 0 ) GO TO 60 CALL TRANSS( NECPT(4*I + 5), TI ) CALL GMMATS( TEMPAR(10),3,3,0, TI,3,3,0, PH1OUT(9*I+1) ) GO TO 100 60 NPT1 = 9 * I DO 80 J = 10,18 NPT1 = NPT1 + 1 80 PH1OUT(NPT1) = TEMPAR(J) 100 CONTINUE PH1OUT(1) = ECPT(1) PH1OUT(2) = ECPT(2) PH1OUT(3) = ECPT(3) PH1OUT(4) = ECPT(4) C C THIS CONCLUDES PHASE 1 FOR TRIANGULAR MEMBRANE OR SUB CALCULATION C TO ANOTHER ROUTINE... RETURN C END ================================================ FILE: mis/pktrms.f ================================================ SUBROUTINE PKTRMS (NTYPE) C C THIS ROUTINE CALCULATES AND SHIPS TO PLA4B THE STIFFNESS MATRIX C FOR PLA4 C C *** TRIANGULAR MEMBRANE ELEMENT *** C C CALLS FROM THIS ROUTINE ARE MADE TO C C PLAMAT - ROTATES AND RETURNS GP C PLA4B - INSERTION ROUTINE C TRANSD - DOUBLE PRECISION TRANSFORMATION SUPPLIER C GMMATD - DOUBLE PRECISION MATRIX MULTIPLY AND TRANSPOSE C MESAGE - ERROR MESSAGE WRITER C C IF NTYPE = 0 COMPLETE MEMBRANE COMPUTATION IS PERFORMED C C IF NTYPE = 1 RETURN 3 TRANSFORMED 3X3 MATRICES ONLY FOR THE PIVOT C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C =============================================================== C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID MATID INTEGER C ECPT( 7) = T T REAL C ECPT( 8) = NON-STRUCTURAL MASS FMU REAL C ECPT( 9) = COORD. SYSTEM ID 1 NECPT(9) INTEGER C ECPT(10) = X1 X1 REAL C ECPT(11) = Y1 Y1 REAL C ECPT(12) = Z1 Z1 REAL C ECPT(13) = COORD. SYSTEM ID 2 NECPT(13) INTEGER C ECPT(14) = X2 X2 REAL C ECPT(15) = Y2 Y2 REAL C ECPT(16) = Z2 Z2 REAL C ECPT(17) = COORD. SYSTEM ID 3 NECPT(17) INTEGER C ECPT(18) = X3 X3 REAL C ECPT(19) = Y3 Y3 REAL C ECPT(20) = Z3 Z3 REAL C ECPT(21) = ELEMENT TEMPERATURE ELTEMP REAL C DOUBLE PRECISION TEMPAR,C,E,TI,TEMP,G,XSUBC,VOL,XSUBB,YSUBC, 1 REELMU,FLAMDA,DELTA,KIJ DIMENSION G(9),ECPT(1) COMMON /CONDAS/ CONSTS(5) COMMON /PLA42C/ NPVT,DUM1(148),NOGO COMMON /PLA4ES/ NECPT(1),NGRID(3),ANGLE,MATID1,T,FMU,DUMMY1,X1, 1 Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,X3,Y3,Z3,DUMB(80) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA42D/ KIJ(36),C(18),E(9),TEMPAR(27),TI(9),TEMP,XSUBB, 1 XSUBC,YSUBC,VOL,REELMU,DELTA,FLAMDA,THETA,KA, 2 NPOINT,NSAVE,DUMMY(382) EQUIVALENCE (CONSTS(4),DEGRA),(G(1),TEMPAR(19)), 1 (ECPT(1),NECPT(1)) C C SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE C C E(1), E(3), E(5) WILL BE THE I-VECTOR C E(2), E(4), E(6) WILL BE THE J-VECTOR C E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE C C FIRST FIND I-VECTOR = RSUBB - RSUBA (NON-NORMALIZED) C E(1) = DBLE(X2) - DBLE(X1) E(3) = DBLE(Y2) - DBLE(Y1) E(5) = DBLE(Z2) - DBLE(Z1) C C NOW FIND LENGTH = X-SUB-B COORD. IN ELEMENT SYSTEM C XSUBB = DSQRT(E(1)**2 + E(3)**2 + E(5)**2) IF (XSUBB .GT. 1.0D-06) GO TO 20 CALL MESAGE (30,31,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C 20 NOW NORMALIZE I-VECTOR WITH X-SUB-B C 20 E(1) = E(1)/XSUBB E(3) = E(3)/XSUBB E(5) = E(5)/XSUBB C C HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN C E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER C E(2) = DBLE(X3) - DBLE(X1) E(4) = DBLE(Y3) - DBLE(Y1) E(6) = DBLE(Z3) - DBLE(Z1) C C X-SUB-C = I . (RSUBC - RSUBA), THUS C XSUBC = E(1)*E(2) + E(3)*E(4) + E(5)*E(6) C C AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(7) = E(3)*E(6) - E(5)*E(4) E(8) = E(5)*E(2) - E(1)*E(6) E(9) = E(1)*E(4) - E(3)*E(2) C C THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C C COORD. IN ELEMENT SYSTEM C YSUBC = DSQRT(E(7)**2 + E(8)**2 + E(9)**2) IF (YSUBC .GT. 1.0D-06) GO TO 25 CALL MESAGE (30,32,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C C 25 NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND C 25 E(7) = E(7)/YSUBC E(8) = E(8)/YSUBC E(9) = E(9)/YSUBC C C J VECTOR = K CROSS I C STORE IN THE SPOT FOR J C E(2) = E(5)*E(8) - E(3)*E(9) E(4) = E(1)*E(9) - E(5)*E(7) E(6) = E(3)*E(7) - E(1)*E(8) C C AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE. C TEMP = DSQRT(E(2)**2 + E(4)**2 + E(6)**2) IF (TEMP .NE. 0.0D0) GO TO 26 CALL MESAGE (30,26,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO C ACCUMULATE C NOGO = 1 RETURN C 26 E(2) = E(2)/TEMP E(4) = E(4)/TEMP E(6) = E(6)/TEMP C C VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA C VOL = XSUBB*YSUBC*DBLE(T)/2.0D0 REELMU = 1.0D0/XSUBB FLAMDA = 1.0D0/YSUBC DELTA = XSUBC/XSUBB - 1.0D0 C C NOW FORM THE C MATRIX (3X6) PARTITIONED AS FOLLOWS HERE. C CSUBA = (3X2) STORED IN C( 1) THRU C( 6) BY ROWS C CSUBB = (3X2) STORED IN C( 7) THRU C(12) BY ROWS C CSUBC = (3X2) STORED IN C(13) THRU C(18) BY ROWS C C(1) = -REELMU C(2) = 0.0D0 C(3) = 0.0D0 C(4) = FLAMDA*DELTA C(5) = C(4) C(6) = -REELMU C(7) = REELMU C(8) = 0.0D0 C(9) = 0.0D0 C(10) = -FLAMDA*REELMU*XSUBC C(11) = C(10) C(12) = REELMU C(13) = 0.0D0 C(14) = 0.0D0 C(15) = 0.0D0 C(16) = FLAMDA C(17) = FLAMDA C(18) = 0.0D0 IF (NTYPE .EQ. 1) GO TO 30 C THETA = ANGLE*DEGRA SINTH = SIN(THETA) COSTH = COS(THETA) 30 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 MATID = MATID1 INFLAG = -1 CALL PLAMAT C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C AT THIS POINT, G, E, AND C MATRICES ARE COMPLETE C C AT THIS POINT THE FOLLOWING EQUATION CAN BE SOLVED FOR K-SUB-IJ C C T T T C K = VOL . T * E * C * G * C * E * T C IJ I I J J C C T-SUB-I WILL BE USED IN THE ABOVE ONLY IF THE PIVOT COORDINATE C SYSTEM ID IS NOT ZERO, OTHERWISE IT IS ASSUMED TO BE THE C IDENTITY MATRIX. C C THE I SUBSCRIPT IMPLIES THE PIVOT POINT 1,2, OR 3 (ELEMENT SYST) C THE J SUBSCRIPT IMPLIES 1 THRU 3 FOR EACH CALL TO THIS ROUTINE. C C FIRST LOCATE WHICH POINT IS THE PIVOT C DO 100 I = 1,3 IF (NGRID(I) .NE. NPVT) GO TO 100 KA = 4*I + 5 NPOINT = 6*I - 5 GO TO 150 100 CONTINUE C C FALLING THRU ABOVE LOOP INDICATES THE PIVOT POINT SPECIFIED BY C NPVT WAS NOT FOUND EQUAL TO ANY OF THE 3 GRID POINTS IN THE ECPT C THUS ERROR CONDITION. C CALL MESAGE (-30,34,ECPT(1)) C C T C COMPUTE E * C * G AND STORE IN TEMPAR( 1 THRU 9 ) C I C 150 CALL GMMATD (E,3,2,0, C(NPOINT),3,2,1, TEMPAR(10)) CALL GMMATD (TEMPAR(10),3,3,0, G,3,3,0, TEMPAR(1)) C C NCOM WILL ALWAYS POINT TO THE COMMON 3 X 3 PRODUCT ABOVE C NPT1 WILL POINT TO FREE WORKING SPACE LENGTH 9 C NCOM = 1 NPT1 = 10 C C MULTIPLY COMMON PRODUCT BY SCALER VOL C DO 90 I = 1,9 90 TEMPAR(I) = TEMPAR(I)*VOL C C CHECK FOR PIVOT CSID = 0, IF ZERO SKIP TRANSFORMATION TSUBI. C IF (NECPT(KA) .EQ. 0) GO TO 80 C C NOT-ZERO THUS GET TI C CALL TRANSD (NECPT(KA),TI) C C INTRODUCE TI INTO THE COMMON PRODUCT AND STORE AT C TEMPAR(10 THRU 18) C CALL GMMATD (TI,3,3,1, TEMPAR(1),3,3,0, TEMPAR(10)) C C COMMON PRODUCT NOW STARTS AT TEMPAR(10) THUS CHANGE NCOM AND NPT1 C NCOM = 10 NPT1 = 1 C C 80 NOW HAVE COMMON PRODUCT STORED BEGINNING TEMPAR(NCOM), (3X3). C NPT1 POINTS TO FREE WORKING SPACE LENGTH 9. C C PROCEED NOW AND RUN OUT THE 3 6X6 MATRICES KIJ-SUB-1,2,3. C C FIRST ZERO OUT (6 X 6) K C IJ C 80 NSAVE = NPT1 DO 700 I = 1,36 700 KIJ(I) = 0.0D0 NPOINT = 0 C DO 500 I = 1,3 CALL GMMATD (C(6*I-5),3,2,0, E,3,2,1, TEMPAR(NSAVE)) C C T C NPT2 IS SET TO POINT TO THE BEGINNING OF THE PRODUCT C * E * T C J J C NPT2 = NSAVE NPT1 = 19 C C CHECK FOR ZERO CSID IN WHICH CASE TJ IS NOT NEEDED C IF (NECPT(4*I+5) .EQ. 0) GO TO 60 C C COMMING HERE IMPLIES NEED FOR TJ C WILL STORE TJ IN TI C CALL TRANSD (NECPT(4*I+5),TI) CALL GMMATD (TEMPAR(NPT2),3,3,0, TI,3,3,0, TEMPAR(19)) NPT1 = NPT2 NPT2 = 19 C C 60 AT THIS POINT COMPLETE COMPUTATION FOR K-SUB-I,J C 60 CALL GMMATD (TEMPAR(NCOM),3,3,0, TEMPAR(NPT2),3,3,0, TEMPAR(NPT1)) C IF (NTYPE .EQ. 0) GO TO 95 DO 96 J = 1,9 NPOINT = NPOINT + 1 NPT2 = NPT1 + J - 1 96 KIJ(NPOINT) = TEMPAR(NPT2) GO TO 500 C 95 KIJ( 1) = TEMPAR(NPT1 ) KIJ( 2) = TEMPAR(NPT1+1) KIJ( 3) = TEMPAR(NPT1+2) KIJ( 7) = TEMPAR(NPT1+3) KIJ( 8) = TEMPAR(NPT1+4) KIJ( 9) = TEMPAR(NPT1+5) KIJ(13) = TEMPAR(NPT1+6) KIJ(14) = TEMPAR(NPT1+7) KIJ(15) = TEMPAR(NPT1+8) CALL PLA4B (KIJ(1),NECPT(I+1)) C 500 CONTINUE RETURN END ================================================ FILE: mis/pktrpl.f ================================================ SUBROUTINE PKTRPL C THIR ROUTINE CALCULATES THE STIFFNESS MATRIX FOR TRI-PLATES IN PLA4 C C THIS ROUTINE GENERATES THE FOLLOWING C C 3-6X6 STIFFNESS MATRICES WITH RESPECT C TO ONE PIVOT POINT OF A TRIANGULAR PLATE C ELEMENT. C C REF. FMMS-55 NOVEMBER 1ST, 1967 C C CALLS FROM THIS ROUTINE ARE MADE TO C PKTRBS - BASIC BENDING TRIANGLE C TRANSD - SUPPLIES 3X3 TRANSFORMATIONS C INVERD - MATRIX INVERSION ROUTINE C PLA4B - INSERTION ROUTINE C GMMATD - GENERAL MATRIX MULITPLY AND C TRANSPOSE ROUTINE C MESAGE - ERROR MESSAGE WRITER C C INTEGER SUBSCA ,SUBSCB ,SUBSCC DOUBLE PRECISION 1 R ,D1 ,HABC 2 ,TEMP ,D2 ,HINV 3 ,KSUM ,IVECT ,G 4 ,V ,JVECT ,E 5 ,VV ,KVECT ,TITE 6 ,XSUBB ,TEMP9 ,TJTE 7 ,XSUBC ,PROD9 ,ARR9 8 ,YSUBC ,U1 ,ARRAY9 9 ,T ,U2 ,TEMP18 T ,A ,TEMP1 ,PROD12 1 ,C1 ,TEMP2 ,HQ 2 ,C2 ,L1 ,Y1 3 ,X1 ,L2 ,Y2 4 ,X2 ,S1 ,DETERM 5 ,S2 ,KOUT ,S ,REQUIV C ****************************************************************** C C ECPT LISTS AS OF AUGUST 4, 1967 C C DEFINITION C ECPT TRI.PLATE AND BASIC BENDING TRI. C ****************************************************************** C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = GRID PT. A INTEGER C ECPT( 3) = GRID PT. B INTEGER C ECPT( 4) = GRID PT. C INTEGER C ECPT( 5) = THETA REAL C ECPT( 6) = MAT ID 1 INTEGER C ECPT( 7) = I MOM. OF INERT. REAL C ECPT( 8) = MAT ID 2 INTEGER C ECPT( 9) = T2 REAL C ECPT(10) = NON-STRUCT. MASS REAL C ECPT(11) = Z1 REAL C ECPT(12) = Z2 REAL C ECPT(13) = COORD. SYS. ID 1 INTEGER C ECPT(14) = X1 REAL C ECPT(15) = Y1 REAL C ECPT(16) = Z1 REAL C ECPT(17) = COORD. SYS. ID 2 INTEGER C ECPT(18) = X2 REAL C ECPT(19) = Y2 REAL C ECPT(20) = Z2 REAL C ECPT(21) = COORD. SYS. ID 3 INTEGER C ECPT(22) = X3 REAL C ECPT(23) = Y3 REAL C ECPT(24) = Z3 REAL C ECPT(25) = ELEMENT TEMP REAL C ****************************************************************** DIMENSION 1 NECPT(100) ,M(9) ,REQUIV(8) 2 ,HQ(12) ,PROD12(12) ,HABC(18) 3 ,G(36) ,TITE(18) ,TJTE(18) 4 ,KOUT(36) ,TEMP18(18) ,V1(3) 5 ,V2(3) ,V3(3) ,R(2,4) 6 ,D1(3) ,D2(3) C COMMON /CONDAS/ CONSTS(5) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE, 2 G2X211, G2X212, G2X222 COMMON /PLA42C/ NPVT, DUM1(3) 1, DUMCL(145) ,NOGO COMMON /PLA4ES/ ECPT(100) COMMON /PLA42D/ 1 A(81) ,S(18) ,T(9) 2 ,TEMP9(9) ,PROD9(9) ,ARR9(9) 3 ,ARRAY9(9) ,HINV(36) ,KSUM(63) 4 ,XSUBB ,XSUBC ,YSUBC 5 ,E(18) ,TEMP ,L1 6 ,L2 ,S1 ,S2 7 ,C1 ,C2 ,X1 8 ,X2 ,Y1 ,Y2 9 ,TEMP1 ,TEMP2 ,DUMTWO(2) ,DETERM T ,NPOINT ,KM ,SUBSCA 1 ,SUBSCB ,SUBSCC ,NPIVOT 2 ,THETA ,NSUBC ,ISING 3 ,NPT1 ,V(2) ,VV(2) 4 ,IVECT(3) ,JVECT(3) ,KVECT(3) 5 ,U1 ,U2 ,SINANG 6 ,COSANG C EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE 1 (NECPT(1),ECPT(1)) 2 ,(PROD12(1),A(13)) 3 ,(HABC(1),A(25)) 4 ,(TITE(1),A(37)) 5 ,(TJTE(1),A(55)) 6 ,(KOUT(1),A(1)) 7 ,(TEMP18(1),HINV(1)) 8 ,(V1(1),ECPT(14)) 9 ,(V2(1),ECPT(18)) T ,(V3(1),ECPT(22)) 1 ,(REQUIV(1),R(1,1)) 2 ,(D1(1),A(1)) 3 ,(D2(1),A(4)) 4 ,(HQ(1),A(1)) C DATA M/ 1,2,4, 2,3,4, 3,1,4 / C C DETERMINE PIVOT POINT NUMBER C DO 10 I=1,3 IF( NPVT .NE. NECPT(I+1) ) GO TO 10 NPIVOT = I GO TO 20 10 CONTINUE C C C FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION CALL MESAGE(-30,34,ECPT(1)) C 20 THETA = ECPT(5) * DEGRA SINANG = SIN( THETA ) COSANG = COS( THETA ) C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X4) FOR TRIANGULAR PLATE. (COLUMN 4 BLANK) C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX DO 30 I=1,8 30 REQUIV(I)=0.0D0 C DO 40 I=1,3 D2(I) = DBLE( V2(I) ) - DBLE( V1(I) ) 40 D1(I) = DBLE( V3(I) ) - DBLE( V1(I) ) C C X2 GOES IN R(1,2) R(1,2) = DSQRT ( D2(1)**2 + D2(2)**2 + D2(3)**2 ) IF (R(1,2).EQ.0.0D0) GO TO 370 DO 50 I=1,3 50 IVECT(I) = D2(I) / R(1,2) C C NON-NORMALIZED K-VECTOR KVECT(1) = IVECT(2) * D1(3) - D1(2) * IVECT(3) KVECT(2) = IVECT(3) * D1(1) - D1(3) * IVECT(1) KVECT(3) = IVECT(1) * D1(2) - D1(1) * IVECT(2) C C Y3 GOES INTO R(2,3) R(2,3) = DSQRT ( KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2 ) IF (R(2,3).EQ.0.0D0) GO TO 370 DO 60 I=1,3 60 KVECT(I) = KVECT(I) / R(2,3) C C J-VECTOR = K X I VECTORS JVECT(1) = KVECT(2) * IVECT(3) - IVECT(2) * KVECT(3) JVECT(2) = KVECT(3) * IVECT(1) - IVECT(3) * KVECT(1) JVECT(3) = KVECT(1) * IVECT(2) - IVECT(1) * KVECT(2) C NORMALIZE J VECTOR TO MAKE SURE TEMP = DSQRT ( JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2 ) IF (TEMP.EQ.0.0D0) GO TO 370 DO 70 I=1,3 70 JVECT(I) = JVECT(I) / TEMP C X3 GOES INTO R(1,3) = D1 DOT IVECT R(1,3) = D1(1) * IVECT(1) + D1(2) * IVECT(2) + D1(3) * IVECT(3) C C CENTROID POINT GOES INTO R(1,4) AND R(2,4) R(1,4) = ( R(1,2) + R(1,3) ) / 3.0D0 R(2,4) = R(2,3) / 3.0D0 C ****************************************************************** C THE COORDINATES AND CENTROID OF THE PLATE IN THE ELEMENT C SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE C POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR C ROW 2 RESPECTIVELY. C ****************************************************************** C C SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT. C C ****************************************************************** C ZERO OUT THE KSUM MATRIX FOR 63 AND THE GSUM MATRIX FOR 36... C DO 80 I=1,63 80 KSUM(I) = 0.0D0 DO 90 I=1,36 90 G(I) = 0.0D0 C C DO 210 J=1,3 KM = 3*J - 3 C SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 100 I=1,2 V(I) = R(I,SUBSCB) - R(I,SUBSCA) 100 VV(I)= R(I,SUBSCC) - R(I,SUBSCA) XSUBB = DSQRT ( V(1)**2 + V(2)**2 ) U1 = V(1) / XSUBB U2 = V(2) / XSUBB XSUBC = U1 * VV(1) + U2 * VV(2) YSUBC = U1 * VV(2) - U2 * VV(1) C SINTH = SINANG * U1 - COSANG * U2 COSTH = COSANG * U1 + SINANG * U2 IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR C TRIANGLE -J- C CALL PKTRBS(2) C U C NOW HAVE AT HAND K I,J, =1,2,3. 9-3X3 MATRICES STORED AT C IJ A(1) THROUGH A(81). C C -1 C ALSO H (6X6) AT A(145) TO A(181) AND S (6X3) AT A(82) TO A(99) C C NOW ADD CERTAIN OF THESE INTO THE SUMMED MATRICES C C C SET UP OF T-MATRIX C T(1) = 1.0D0 T(2) = 0.0D0 T(3) = 0.0D0 T(4) = 0.0D0 T(5) = U1 T(6) = U2 T(7) = 0.0D0 T(8) =-U2 T(9) = U1 C DO 120 I=1,3 CALL GMMATD( T(1),3,3,1, A(27*I-8),3,3,0, TEMP9(1) ) CALL GMMATD( TEMP9(1),3,3,0, T(1),3,3,0, PROD9(1) ) C C ADD THIS PRODUCT IN NOW. C COMPUTE POINTER TO KSUM MATRIX DESIRED. (ZERO POINTER) NPOINT = KM + I NPOINT = 9*M(NPOINT) + 18 C DO 110 K=1,9 NSUBC = NPOINT + K 110 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(K) 120 CONTINUE DO 150 K=1,2 NPOINT = KM + K IF( M(NPOINT) .NE. NPIVOT ) GO TO 150 CALL GMMATD( T(1),3,3,1, A(36*K-35),3,3,0, TEMP9(1) ) CALL GMMATD( TEMP9(1),3,3,0, T(1),3,3,0, PROD9(1) ) C C COMPUTE POINTER TO KSUM MATRIX (ZERO POINTER) C NPOINT = 9 * NPIVOT - 9 DO 130 I=1,9 NSUBC = NPOINT + I 130 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(I) C CALL GMMATD(T(1),3,3,1, A(18*K-8),3,3,0, TEMP9(1) ) CALL GMMATD( TEMP9(1),3,3,0, T(1),3,3,0, PROD9(1) ) C C COMPUTE ZERO POINTER TO KSUM MATRIX DESIRED C NPOINT = KM + 3 - K NPOINT = 9 * M(NPOINT) - 9 DO 140 I=1,9 NSUBC = NPOINT + I 140 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(I) 150 CONTINUE C C FORM HQ (2X6) C TEMP1 = XSUBB - XSUBC TEMP2 = YSUBC ** 2 L1 = DSQRT( XSUBC**2 + TEMP2 ) L2 = DSQRT( TEMP1**2 + TEMP2 ) S1 = XSUBC / L1 S2 = TEMP1 / L2 C1 = YSUBC / L1 C2 = YSUBC / L2 X1 = XSUBC / 2.0D0 Y1 = YSUBC / 2.0D0 X2 = (XSUBB + XSUBC) / 2.0D0 Y2 = Y1 HQ( 1) = -XSUBC * C1 HQ( 2) = X1 * S1 - Y1 * C1 HQ( 3) = 2.0D0 * Y1 * S1 HQ( 4) = -3.0D0 * X1 * X1 * C1 HQ( 5) = Y1 * (2.0D0 * X1 * S1 - Y1 * C1 ) HQ( 6) = 3.0D0 * Y1 * Y1 * S1 HQ( 7) = 2.0D0 * X2 * C2 HQ( 8) = X2 * S2 + Y2 * C2 HQ( 9) = 2.0D0 * Y2 * S2 HQ(10) = 3.0D0 * X2 * X2 * C2 HQ(11) = Y2 * ( 2.0D0 * X2 * S2 + Y2 * C2 ) HQ(12) = 3.0D0 * Y2 * Y2 * S2 C C I -1 C COMPUTE (H I H ) = (HQ)(H) STORE IN PROD12 C PSI,B I PSI,C C I C C CALL GMMATD( HQ(1),2,6,0, HINV(1),6,6,0, PROD12(1) ) C C C COMPUTE (H ) = -(PROD12)(S) C PSI,A C CALL GMMATD( PROD12(1),2,6,0, S(1),6,3,0, HABC(1) ) C HABC(1) = -HABC(1) HABC(2) = -HABC(2) + S1 HABC(3) = -HABC(3) + C1 HABC(4) = -HABC(4) HABC(5) = -HABC(5) + S2 HABC(6) = -HABC(6) - C2 C C SPLIT (H ) AND (H ) PARTITION C PSI,B PSI,C C HABC( 7) = PROD12( 1) HABC( 8) = PROD12( 2) HABC( 9) = PROD12( 3) HABC(10) = PROD12( 7) HABC(11) = PROD12( 8) HABC(12) = PROD12( 9) HABC(13) = PROD12( 4) HABC(14) = PROD12( 5) HABC(15) = PROD12( 6) HABC(16) = PROD12(10) HABC(17) = PROD12(11) HABC(18) = PROD12(12) C C MAP H , H , AND H INTO THE G-MATRICES. C A B C C C TRIANGLE NUMBER = J, THE THREE POINTS ARE SUBSCA, SUBSCB, SUBSCC. C DO 200 I=1,3 C C POINTER TO H = 6*I-6 C I C C C TRANSFORM H SUB I C CALL GMMATD( HABC(6*I-5),2,3,0, T(1),3,3,0, TEMP9(1) ) C C NPOINT = KM + I NPOINT = 9*M(NPOINT) - 9 C C J = 1 ROW 1 OF H INTO ROW 1 OF G. C ROW 2 OF H INTO ROW 2 OF G. C J = 2 ROW 1 OF H INTO ROW 2 OF G. C ROW 2 OF H INTO ROW 3 OF G. C J = 3 ROW 1 OF H INTO ROW 3 OF G. C ROW 2 OF H INTO ROW 1 OF G. C IF( J-2 ) 170,160,190 C 160 NPOINT = NPOINT + 3 170 DO 180 K=1,6 NPOINT = NPOINT + 1 180 G(NPOINT) = G(NPOINT) + TEMP9(K) GO TO 200 190 G(NPOINT + 7) = G(NPOINT + 7) + TEMP9(1) G(NPOINT + 8) = G(NPOINT + 8) + TEMP9(2) G(NPOINT + 9) = G(NPOINT + 9) + TEMP9(3) G(NPOINT + 1) = G(NPOINT + 1) + TEMP9(4) G(NPOINT + 2) = G(NPOINT + 2) + TEMP9(5) G(NPOINT + 3) = G(NPOINT + 3) + TEMP9(6) C 200 CONTINUE C C C END OF LOOP FOR BASIC TRIANGLES C 210 CONTINUE C ****************************************************************** C C FILL E-MATRIX C DO 220 I=1,18 220 E(I) = 0.0D0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C C T C FORM T E STORE IN TITE-MATRIX (6X3) C I C IF( NECPT(4*NPIVOT+9) .EQ. 0 ) GO TO 230 CALL TRANSD( NECPT(4*NPIVOT+9), T(1) ) CALL GMMATD( T(1),3,3,1, E( 1),3,3,0, TITE( 1) ) CALL GMMATD( T(1),3,3,1, E(10),3,3,0, TITE(10) ) GO TO 250 230 DO 240 K=1,18 240 TITE(K) = E(K) C C SOLVE NOW FOR .... C C E T T T C (K ) = (K ) - (TERM ) (K ) - (K )(TERM ) + (TERM )(K )(TERM ) C IJ IJ I J4 I4 J I 44 J C C -1 I=NPIVOT C WHERE... (TERM ) = (G ) (G ) ,I=NPIVOT J=1,2,3 C I 4 I C C -1 C (TERM ) = (G ) (G ) ,J=1,2,3 AS ABOVE C J 4 J C C AND WITH TRANSFORMATIONS.... C C G T E T C (K ) = (C ) (E)(K )(E )(C ) C IJ I IJ J C C C COMPUTE (TERM ) STORE IN PROD9 C I=NPIVOT C C -1 C FIRST GET (G ) C 4 C 250 CONTINUE C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERD( 3,G(28),3,PROD9,0,DETERM,ISING,TEMP9 ) C C CHECK FOR SINGULARITY. ISING=2 IMPLIES SINGULARITY. GO TO(270,260),ISING 260 CALL MESAGE(30,36,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN C 270 CALL GMMATD ( G(28),3,3,0, G(9*NPIVOT-8),3,3,0, PROD9(1) ) C C T C GET (TERM )(K ) STORE IN TEMP9 C I=NPIVOT 44 C CALL GMMATD( PROD9(1),3,3,1, KSUM(55),3,3,0, TEMP9(1) ) C C C C THE TWO COMMON PRODUCTS ARE NOW AT HAND IN PROD9 AND TEMP9. C DO 360 J=1,3 C C T T C (TERM ) (K ) STORE IN ARR9 C I=NPIVOT J4 C CALL GMMATD( PROD9(1),3,3,1, KSUM(9*J+19),3,3,1, ARR9(1) ) C C SUBTRACT FROM (K ) C IJ C NBEGIN = 9*J-9 DO 280 I=1,9 NPOINT = NBEGIN + I 280 KSUM(NPOINT) = KSUM(NPOINT) - ARR9(I) C C C COMPUTE (TERM ) STORE IN ARR9 C J C CALL GMMATD( G(28),3,3,0, G(9*J-8),3,3,0, ARR9(1) ) C C C GET (K )(TERM ) STORE IN ARRAY9 C I4 J C CALL GMMATD( KSUM(9*NPIVOT+19),3,3,0, ARR9(1),3,3,0, ARRAY9(1)) C C SUBTRACT FROM KIJ C DO 290 I=1,9 NPOINT = NBEGIN + I 290 KSUM(NPOINT) = KSUM(NPOINT) - ARRAY9(I) C C T C COMPUTE (TERM )(K )(TERM ) = (TEMP9)(ARR9) C I=NPOINT 44 J C CALL GMMATD( TEMP9(1),3,3,0, ARR9(1),3,3,0, ARRAY9(1) ) C C ADD TO K C IJ C DO 300 I=1,9 NPOINT = NBEGIN + I 300 KSUM(NPOINT) = KSUM(NPOINT) + ARRAY9(I) C C E C K COMPLETE C IJ C C TRANSFORM NOW, AND INSERT. C C C TRANSFORMATIONS AND INSERTION C IF( NECPT(4*J+9) .EQ. 0) GO TO 310 CALL TRANSD( NECPT(4*J+9), T(1) ) CALL GMMATD( T(1),3,3,1, E( 1),3,3,0, TJTE( 1) ) CALL GMMATD( T(1),3,3,1, E(10),3,3,0, TJTE(10) ) GO TO 330 310 DO 320 K=1,18 320 TJTE(K) = E(K) 330 CALL GMMATD( KSUM(NBEGIN+1),3,3,0, TJTE(1),6,3,1, TEMP18(1) ) CALL GMMATD ( TITE(1),6,3,0, TEMP18(1),3,6,0, KOUT(1)) CALL PLA4B(KOUT(1),NECPT(J+1)) C 360 CONTINUE RETURN 370 CALL MESAGE(30,26,ECPT(1)) C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C NOGO=1 RETURN END ================================================ FILE: mis/pktrq2.f ================================================ SUBROUTINE PKTRQ2 (NTYPE) C THIS ROUTINE CALCULATES PHASE II OUTPUT FOR PLA4 C C NTYPE = 1 TRI-MEMBRANE C NTYPE = 2 QUAD-MEMBRANE C C PH1OUT CONTAINS THE FOLLOWING C *** NTYPE = 1 *** C ELEMENT ID C 3 SILS C 5 DUMMY-S C 3 S ARRAYS EACH 3X3 C C *** NTYPE = 2 *** C ELEMENT ID C 4 SILS C 4 DUMMY-S C 4 S ARRAYS EACH 3X3 C DIMENSION NSIL(4), SI(36) C COMMON /PLA4UV/ IVEC, Z(24) COMMON /PLA4ES/ PH1OUT(300) COMMON /PLA42S/ STRESS(3),VEC(3),TEMP,DELTA,NSIZE,NPOINT, 1 DUM(315) C EQUIVALENCE 1 (NSIL(1),PH1OUT(2)) 2, (SI(1),PH1OUT(10)) C C C I=NSIZE C STRESS VECTOR = (SUMMATION (S ) (U )) C I=1 I I C NSIZE = NTYPE + 2 DO 20 I = 1,NSIZE C POINTER TO DISPLACEMENT VECTOR NPOINT = IVEC + NSIL(I) -1 C CALL GMMATS( SI(9*I-8),3,3,0, Z(NPOINT),3,1,0, VEC(1)) C DO 30 J=1,3 30 STRESS(J) = STRESS(J) + VEC(J) 20 CONTINUE C RETURN END ================================================ FILE: mis/pktrqd.f ================================================ SUBROUTINE PKTRQD (NTYPE) C THIS ROUTINE SETS UP THE ECPT FOR COMBINATION ELEMENTS IN PLA4 C C C ********************************************************************** C C 8/18/67 E C P T L I S T I N G C *************************** C ECPT TRMEM QDMEM TRPLT QDPLT TRIA1 QUAD1 TRIA2 QUAD2 C ********************************************************************** C 1 EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID C 2 GRID A GRID A GRID A GRID A GRID A GRID A GRID A GRID A C 3 GRID B GRID B GRID B GRID B GRID B GRID B GRID B GRID B C 4 GRID C GRID C GRID C GRID C GRID C GRID C GRID C GRID C C 5 THETA GRID D THETA GRID D THETA GRID D THETA GRID D C 6 MATID THETA MATID1 THETA MATID1 THETA MAT ID THETA C 7 T MAT ID I MATID1 T1 MATID1 T MAT ID C 8 NS MASS T MATID2 I MATID2 T1 NS MASS T C 9 CSID 1 NS MASS T2 MATID2 I MATID2 CSID 1 NS MASS C 10 X1 CSID 1 NS MASS T2 MATID3 I X1 CSID 1 C 11 Y1 X1 Z1 NS MASS T2 MATID3 Y1 X1 C 12 Z1 Y1 Z2 Z1 NS MASS T2 Z1 Y1 C 13 CSID 2 Z1 CSID 1 Z2 Z1 NS MASS CSID 2 Z1 C 14 X2 CSID 2 X1 CSID 1 Z2 Z1 X2 CSID 2 C 15 Y2 X2 Y1 X1 CSID 1 Z2 Y2 X2 C 16 Z2 Y2 Z1 Y1 X1 CSID 1 Z2 Y2 C 17 CSID 3 Z2 CSID 2 Z1 Y1 X1 CSID 3 Z2 C 18 X3 CSID 3 X2 CSID 2 Z1 Y1 X3 CSID 3 C 19 Y3 X3 Y2 X2 CSID 2 Z1 Y3 X3 C 20 Z3 Y3 Z2 Y2 X2 CSID 2 Z3 Y3 C 21 TEMP Z3 CSID 3 Z2 Y2 X2 TEMP Z3 C 22 CSID 4 X3 CSID 3 Z2 Y2 CSID 4 C 23 X4 Y3 X3 CSID 3 Z2 X4 C 24 Y4 Z3 Y3 X3 CSID 3 Y4 C 25 Z4 TEMP Z3 Y3 X3 Z4 C 26 TEMP CSID 4 Z3 Y3 TEMP C 27 X4 TEMP Z3 C 28 Y4 CSID 4 C 29 Z4 X4 C 30 TEMP Y4 C 31 Z4 C 32 TEMP C ********************************************************************** C DIMENSION SAVE(32) COMMON /PLA4ES/ ECPT(100) COMMON /PLA42D/ DUMMY(600) EQUIVALENCE (SAVE(1),ECPT(50)) C C THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2 C C NTYPE = 1 IMPLIES KTRIA1 C NTYPE = 2 IMPLIES KTRIA2 C NTYPE = 3 IMPLIES KQUAD1 C NTYPE = 4 IMPLIES KQUAD2 C C C THE SAVED ECPT IS EQUIVALENCED TO ECPT(50) C C SAVE THE INCOMING ECPT C DO 10 I=1,32 10 SAVE(I) = ECPT(I) C C TRANSFER TO OPERATIONS DESIRED C C KTRIA1 KTRIA2 KQUAD1 KQUAD2 GO TO(20,70,100,150),NTYPE C C *** KTRIA1 *** C C SET UP ECPT FOR CALL TO PKTRMS 20 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 40 DO 30 I=9,21 30 ECPT(I) = SAVE(I + 6) C CALL PKTRMS(0) C C SET UP CALL TO PKTRPL 40 IF( SAVE(9) .EQ. 0.0E0 ) RETURN DO 50 I=1,5 50 ECPT(I) = SAVE(I) DO 60 I=6,25 60 ECPT(I) = SAVE(I + 2) C CALL PKTRPL RETURN C C *** KTRIA2 *** C 70 IF( SAVE(7) .EQ. 0.0E0 ) RETURN C SET UP CALL TO PKTRMS C C ECPT IS OK AS DELIVERED TO THIS ROUTINE C CALL PKTRMS(0) C C SET UP CALL TO PKTRPL C DO 80 I=1,6 80 ECPT(I) = SAVE(I) ECPT(7) = SAVE(7) ** 3 / 12.0E0 ECPT(8) = SAVE(6) ECPT(9) = SAVE(7) ECPT(10)= SAVE(8) DO 90 I=13,25 90 ECPT(I) = SAVE(I - 4) C CALL PKTRPL RETURN C C *** KQUAD1 *** C 100 IF(SAVE(8).EQ.0.0E0)GO TO 120 C C SET UP CALL TO PKQDMS C ECPT(9) = SAVE(13) DO 110 I=10,26 110 ECPT(I) = SAVE(I+6) C CALL PKQDMS C 120 IF( SAVE(10) .EQ. 0.0E0 ) RETURN C C SET UP CALL TO PKQDPL C DO 130 I=1,6 130 ECPT(I) = SAVE(I) DO 140 I=7,30 140 ECPT(I) = SAVE(I + 2) C CALL PKQDPL RETURN C C *** KQUAD2 *** C 150 IF( SAVE(8) .EQ. 0.0E0 ) RETURN C C SET UP CALL TO PKQDMS C C ECPT IS OK AS DELIVERED TO THIS ROUTINE C CALL PKQDMS C C SET UP CALL TO PKQDPL C DO 160 I=1,7 160 ECPT(I) = SAVE(I) ECPT(8) = SAVE(8) **3 / 12.0E0 ECPT(9) = SAVE(7) ECPT(10)= SAVE(8) ECPT(11)= SAVE(9) DO 170 I=14,30 170 ECPT(I) = SAVE(I - 4) C CALL PKQDPL C RETURN END ================================================ FILE: mis/pla1.f ================================================ SUBROUTINE PLA1 C C THIS FUNCTIONAL MODULE IS THE FIRST OF FOUR FUNCTIONAL MODULES C UNIQUE TO THE PIECE-WISE LINEAR ANALYSIS (DISPLACEMENT METHOD) C RIGID FORMAT C C C PLA1 CSTM,MPT,ECPT,GPCT,DIT,CASECC,EST /KGGL,ECPTNL,ESTL,ESTNL/ C V,N,KGGLPG/V,N,NPLALIM/V,N,ECPTNLPG/V,N,PLSETNO/ C V,N,NONLSTR/V,N,PLFACT/ $ C C THE OUTPUT DATA BLOCKS AND PARAMETERS ARE DEFINED AS FOLLOWS - C C KGGL IS THE STIFFNESS MATRIX OF LINEAR (NON-STRESS DEPENDENT) C ELEMENTS C ECPTNL IS A SUBSET OF THE ECPT WHICH CONTAINS ECPT PLUS STRESS C INFORMATION FOR THE NON-LINEAR (STRESS DEPENDENT) ELEMENTS C ESTL, A SUBSET OF THE EST, CONTAINS ALL LINEAR ELEMENTS C ESTNL, THE COMPLEMENT OF THE ESTL, CONTAINS INFORMATION FOR THE C NON-LINEAR ELEMENTS C C PARAMETER NAMES BELOW ARE FORTRAN VARIABLE NAMES RATHER THAN DMAP C PARAMETER NAMES C C KGGLPG IS THE PURGE FLAG FOR THE KGGL AND ESTL DATA BLOCKS. IT IS C SET = -1 (PURGE=YES) IF ALL ELEMENTS ARE STRESS DEPENDENT C NPLALP IS THE NUMBER OF PASSES THAT WILL BE MADE THRU THE PLA LOOP C KICKOF IS SET = -1 (KICK THE USER OFF THE MACHINE = YES) IF THE C DIT IS PURGED OR ALL ELEMENTS ARE NON-STRESS DEPENDENT C PLASET IS THE SET NUMBER ON THE PLFACT CARD THAT IS OBTAINED FROM C THE FIRST RECORD OF CASECC C NONLST IS THE FLAG SUCH THAT IF IT IS A -1 THE USER DOES NOT WISH C TO OUTPUT HIS NON-LINEAR STRESSES. HENCE PLA3 WILL NOT BE C CALLED C PLFACT IS THE FIRST PIECE-WISE LINEAR FACTOR TO BE USED FROM C PLASET C LOGICAL PHASE1,ALL,HEAT INTEGER BUFR1,BUFR2,BUFR3,BUFR4,BUFSZ,IZ(1),EOR,CLSRW, 1 CLSNRW,OUTRW,FROWIC,TNROWS,CSTM,DIT,ECPT,GPCT, 2 ECPTNL,ESTL,ESTNL,PLAARY(90),FILE,TRAIL,PLASET, 3 PLANOS(2),SETNO,OUTFIL,IECPT(100),ESTLTR(7), 4 ESTNLT(7),YESSD,EST,CASECC DOUBLE PRECISION DZ(1),DPDUM,DPWORD DIMENSION NAME(2),INPVT(2) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / KGGLPG,NPLALP,KICKOF,PLASET,NONLST,PLFACT(2) COMMON /SYSTEM/ BUFSZ,ISYSPT,ISP1(37),NBPW,ISP2(14),IPREC COMMON /SMA1IO/ CSTM,MPT,DIT,BUFR1,ECPT,BUFR2,GPCT,BUFR3,BUFR4, 1 ITYPE,KGGL,ESTNL,ECPTNL,DUM1,ESTL,DUM2,INRW, 2 OUTRW,CLSNRW,CLSRW,NEOR,EOR,MCBKGG(7),TRAIL(7) COMMON /ZZZZZZ/ Z(1) COMMON /SMA1BK/ ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT,I6X6K, 1 DUM4,DUM5,DUM6 COMMON /SMA1CL/ IOPT4,DUM7,NPVT,LEFT,FROWIC,LROWIC,NROWSC, 1 TNROWS,JMAX,NLINKS,LINK(10),DUM8,DUM9,NOGO COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1) COMMON /SMA1ET/ XECPT(100) COMMON /SMA1DP/ DPDUM(300) COMMON /SMA1HT/ HEAT COMMON /ZBLPKX/ DPWORD,LLLLLL(2),INDEX COMMON /MATIN / MATID,INFLAG,FILLER(4) COMMON /MATOUT/ INDSTR,YYYYYY(19) EQUIVALENCE (Z(1),IZ(1),DZ(1)) ,(IECPT(1),XECPT(1)), 1 (MCBKGG(1),ESTLTR(1)), (TRAIL(1),ESTNLT(1)), 2 (TRAIL(2),NNLEL), (ESTLTR(2),NLEL), 3 (FNN,NN), (INDSTR,E) DATA CASECC,JSTSET,JPLSET,JSYM /106,23,164,200 / DATA NAME / 4HPLA1,4H /, HMPT / 4HMPT / DATA PLANOS/ 1103, 11 / DATA PLAARY/ 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 4 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6 30*0 / C C IF THE DIT HAS BEEN PURGED, WE CANNOT PROCEED FURTHER C IPR = IPREC CALL DELSET TRAIL(1) = DIT CALL RDTRL (TRAIL) IF (TRAIL(1) .LT. 0) CALL MESAGE (-1,DIT,NAME) C C INITIALIZE HEAT PARAMETER C HEAT = .FALSE. C C INITIALIZE MODULE PARAMETERS AND SET IOPT4 = 0, SO THAT ELEMENT C ROUTINES WILL NOT CALCULATE STRUCTURAL DAMPING MATRICES. C KGGLPG =-1 NPLALP = 1 KICKOF =-1 PLASET =-1 NONLST = 1 PLFACT(1) = 1.0 IOPT4 = 0 ESTNL = 204 EST = 107 PHASE1 = .TRUE. ASSIGN 290 TO NOSD C C SET UP BUFFERS AND INITIALIZE FILE TRAILERS. C IZMAX = KORSZ (Z) BUFR1 = IZMAX - BUFSZ BUFR2 = BUFR1 - BUFSZ BUFR3 = BUFR2 - BUFSZ BUFR4 = BUFR3 - BUFSZ LEFT = BUFR4 - 1 CALL MAKMCB (MCBKGG,KGGL,0,6,IPR) CALL MAKMCB (TRAIL,ECPTNL,0,0,0) C C CHECK PLAARY SIZE C IF (NELEMS .GT. 90) WRITE (ISYSPT,1) UWM 1 FORMAT (A25,' 2151, -PLAARY- ARRAY IS SMALLER THAN MAXIMUM ', 1 'NUMBER OF ELEMENT TYPES.') C C OPEN THE KGGL FILE FOR OUTPUT C CALL GOPEN (KGGL,Z(BUFR1),1) C C ATTEMPT TO READ THE CSTM INTO CORE C ICSTM = 0 NCSTM = 0 FILE = CSTM CALL OPEN (*20,CSTM,Z(BUFR2),INRW) CALL FWDREC (*870,CSTM) CALL READ (*870,*10,CSTM,Z(ICSTM+1),LEFT,EOR,NCSTM) C C INSUFFICIENT CORE - CALL MESAGE C CALL MESAGE (-8,0,NAME) 10 LEFT = LEFT - NCSTM CALL CLOSE (CSTM,CLSRW) C C CALL PRETRD TO SET UP FUTURE CALLS TO TRANSD. C CALL PRETRD (Z(ICSTM+1),NCSTM) CALL PRETRS (Z(ICSTM+1),NCSTM) C C CALL PREMAT TO READ THE MPT AND THE DIT AND TO SET UP FUTURE CALLS C TO SUBROUTINE MAT. NOTE NEGATIVE ISGN FOR DIT TO TRIGGER PLA FLAG C IN MAT. C 20 IMAT = NCSTM CALL PREMAT (IZ(IMAT+1),Z(IMAT+1),Z(BUFR2-3),LEFT,MUSED,MPT,-DIT) LEFT = LEFT - MUSED IGPCT = NCSTM + MUSED C C OPEN THE INPUT FILES ECPT AND GPCT AND THE OUTPUT FILE ECPTNL. C CALL GOPEN (ECPT, Z(BUFR2),0) CALL GOPEN (GPCT, Z(BUFR3),0) CALL GOPEN (ECPTNL,Z(BUFR4),1) ILEFT = LEFT C C BEGIN MAIN LOOP FOR PROCESSING THE ECPT. C 30 CALL READ (*650,*630,GPCT,INPVT(1),2,NEOR,IFLAG) NGPCT = INPVT(2) LEFT = ILEFT - 2*NGPCT IF (LEFT .LE. 0) CALL MESAGE (-8,0,NAME) CALL FREAD (GPCT,IZ(IGPCT+1),NGPCT,EOR) C C FROWIC IS THE FIRST ROW IN CORE (1 .LE. FROWIC .LE. 6) C FROWIC = 1 IPOINT = IGPCT + NGPCT NPOINT = NGPCT I6X6K = IPOINT + NPOINT C C MAKE I6X6K A DOUBLE PRECISION INDEX (I6X6K POINTS TO THE 0TH C LOCATION OF THE 6 X 6 SUBMATRIX OF KGGL IN CORE) C I6X6K = (I6X6K-1)/2 + 2 C C CONSTRUCT THE POINTER TABLE WHICH WILL ENABLE SUBROUTINE SMA1B TO C ADD THE ELEMENT STIFFNESS MATRICES TO KGGL. C IZ(IPOINT+1) = 1 I1 = 1 I = IGPCT J = IPOINT + 1 40 I1 = I1 + 1 IF (I1 .GT. NGPCT) GO TO 50 I = I + 1 J = J + 1 INC= 6 IF (IZ(I) .LT. 0) INC = 1 IZ(J) = IZ(J-1) + INC GO TO 40 C C JMAX = THE NO. OF COLUMNS OF KGGL THAT WILL BE GENERATED WITH THE C CURRENT PIVOT POINT. C 50 INC = 5 ILAST = IGPCT + NGPCT JLAST = IPOINT + NPOINT IF (IZ(ILAST) .LT. 0) INC = 0 JMAX = IZ(JLAST) + INC C C TNROWS = TOTAL NO. OF ROWS OF THE MATRIX TO BE GENERATED C TNROWS = 6 IF (INPVT(1) .LT. 0) TNROWS = 1 IF (2*TNROWS*JMAX .LT. LEFT) GO TO 70 C C THE WHOLE SUBMATRIX CANNOT FIT IN CORE C IF (TNROWS .EQ. 1) CALL MESAGE (-8,0,NAME) NROWSC = 3 PLAARY(39) = NAME(1) 60 PLAARY(40) = NPVT CALL MESAGE (30,85,PLAARY(39)) IF (2*NROWSC*JMAX .LT. LEFT) GO TO 80 NROWSC = NROWSC - 1 IF (NROWSC .EQ. 0) CALL MESAGE (-8,0,NAME) GO TO 60 70 NROWSC = TNROWS 80 FROWIC = 1 LROWIC = FROWIC + NROWSC - 1 C C ZERO OUT THE KGGL SUBMATRIX IN CORE. C LOW = I6X6K + 1 LIM = I6X6K + JMAX*NROWSC DO 90 I = LOW,LIM 90 DZ(I) = 0.0D0 C C INITIALIZE THE LINK VECTOR TO -1 C DO 100 I = 1,NLINKS 100 LINK(I) = -1 LINCOR = 1 FILE = ECPT C C TURN FIRST PASS, FIRST ELEMENT READ ON THE CURRENT PASS OF THE C ECPT RECORD, AND PIVOT POINT WRITTEN INDICATORS ON. C IPASS = 1 NPVTWR = 0 110 IFIRST = 1 C C READ THE FIRST WORD OF THE ECPT RECORD, THE PIVOT POINT, INTO NPVT C CALL FREAD (ECPT,NPVT,1,NEOR) C C READ THE NEXT ELEMENT TYPE INTO ITYPE, AND READ THE PRESCRIBED NO. C OF WORDS INTO THE XECPT ARRAY. C 120 CALL READ (*870,*520,ECPT,ITYPE,1,NEOR,IFLAG) IDX = (ITYPE-1)*INCR NN = NE(IDX+12) CALL FREAD (ECPT,XECPT,NN,NEOR) ITEMP = NE(IDX+22) IF (IPASS .NE. 1) GO TO 290 C C THIS IS THE FIRST PASS. IF THE ELEMENT IS IN THE PLA SET, CALL C THE MAT ROUTINE TO FIND OUT IF ANY OF THE MATERIAL PROPERTIES IS C STRESS DEPENDENT. C C C CROD CBEAM CTUBE CSHEAR CTWIST CTRIA1 C 1 2 3 4 5 6 C CTRBSC CTRPLT CTRMEM CONROD ELAS1 ELAS2 C 7 8 9 10 11 12 C ELAS3 ELAS4 CQDPLT CQDMEM CTRIA2 CQUAD2 C 13 14 15 16 17 18 C CQUAD1 CDAMP1 CDAMP2 CDAMP3 CDAMP4 CVISC C 19 20 21 22 23 24 C MASS1 CMASS2 CMASS3 CMASS4 CONM1 CONM2 C 25 26 27 28 29 30 C PLOTEL REACT QUAD3 CBAR CCONE C 31 32 33 34 35 IF (ITYPE .GT. 35) GO TO 120 GO TO (130,890,150,290,290,160,290,290,170,130, 1 290,290,290,290,290,180,190,200,210,120, 2 120,120,120,120,120,120,120,120,120,120, 3 120,890,890,220,290), ITYPE C C ROD C 130 MATID = IECPT(4) ASSIGN 140 TO YESSD GO TO 230 140 XECPT(18) = 0.0 XECPT(19) = 0.0 INFLAG = 1 CALL MAT (IECPT(1)) XECPT(20) = E IF (PHASE1) GO TO 145 XECPT(21) = 0.0 NWDS = 21 GO TO 765 145 NWDS = 20 GO TO 260 C C TUBE C 150 MATID = IECPT(4) ASSIGN 155 TO YESSD GO TO 230 155 XECPT(17) = 0.0 XECPT(18) = 0.0 INFLAG = 1 CALL MAT (IECPT(1)) XECPT(19) = E IF (PHASE1) GO TO 157 XECPT(20) = 0.0 NWDS = 20 GO TO 765 157 NWDS = 19 GO TO 260 C C TRIA1 C 160 MATID = IECPT(6) ASSIGN 165 TO YESSD GO TO 230 165 DO 166 I = 28,33 166 XECPT(I) = 0.0 INFLAG = 1 CALL MAT (IECPT(1)) XECPT(30) = E IF (PHASE1) GO TO 168 DO 167 I = 34,38 167 XECPT(I) = 0.0 NWDS = 38 GO TO 765 168 NWDS = 33 GO TO 260 C C TRMEM C 170 MATID = IECPT(6) ASSIGN 175 TO YESSD GO TO 230 175 DO 176 I = 22,27 176 XECPT(I) = 0.0 INFLAG = 1 CALL MAT (IECPT(1)) XECPT(24) = E NWDS = 27 IF (PHASE1) GO TO 260 GO TO 765 C C QDMEM C 180 MATID = IECPT(7) ASSIGN 185 TO YESSD GO TO 230 185 DO 186 I = 27,32 186 XECPT(I) = 0.0 INFLAG = 1 CALL MAT (IECPT(1)) XECPT(29) = E NWDS = 32 IF (PHASE1) GO TO 260 GO TO 765 C C TRIA2 C 190 MATID = IECPT(6) ASSIGN 195 TO YESSD GO TO 230 195 DO 196 I = 22,27 196 XECPT(I) = 0.0 INFLAG = 1 CALL MAT (IECPT(1)) XECPT(24) = E IF (PHASE1) GO TO 198 DO 197 I = 28,32 197 XECPT(I) = 0.0 NWDS = 32 GO TO 765 198 NWDS = 27 GO TO 260 C C QUAD2 C 200 MATID = IECPT(7) ASSIGN 205 TO YESSD GO TO 230 205 DO 206 I = 27,32 206 XECPT(I) = 0.0 INFLAG = 1 CALL MAT (IECPT(1)) XECPT(29) = E IF (PHASE1) GO TO 208 DO 207 I = 33,37 207 XECPT(I) = 0.0 NWDS = 37 GO TO 765 208 NWDS = 32 GO TO 260 C C QUAD1 C 210 MATID = IECPT(7) ASSIGN 215 TO YESSD GO TO 230 215 DO 216 I = 33,38 216 XECPT(I) =0.0 INFLAG = 1 CALL MAT (IECPT(1)) XECPT(35) = E IF (PHASE1) GO TO 218 DO 217 I = 39,43 217 XECPT(I) = 0.0 NWDS = 43 GO TO 765 218 NWDS = 38 GO TO 260 C C BAR - IF COORDINATE 1 OF EITHER PT. A OR PT. B IS PINNED THE C ELEMENT IS TREATED AS LINEAR (NON-STRESS DEPENDENT) C 220 IF (IECPT(8).EQ.0 .AND. IECPT(9).EQ.0) GO TO 224 KA = IECPT(8) KB = IECPT(9) 222 IF (MOD(KA,10).EQ.1 .OR. MOD(KB,10).EQ.1) GO TO 290 KA = KA/10 KB = KB/10 IF (KA.LE.0 .AND. KB.LE.0) GO TO 224 GO TO 222 224 MATID = IECPT(16) ASSIGN 226 TO YESSD GO TO 230 226 XECPT(43) = 0.0 XECPT(44) = 0.0 INFLAG = 1 CALL MAT (IECPT(1)) XECPT(45) = E IF (PHASE1) GO TO 228 DO 227 I = 46,50 227 XECPT(I) = 0.0 NWDS = 50 GO TO 765 228 NWDS = 45 GO TO 260 C C TEST TO SEE IF ELEMENT IS STRESS DEPENDENT. C 230 INFLAG = 5 CALL MAT (IECPT(1)) IF (INDSTR) 240,240,250 240 GO TO NOSD, (290,820) 250 GO TO YESSD, (140,155,165,175,185,195,205,215,226) C C WRITE AN ENTRY ONTO ECPTNL C 260 IF (NPVTWR) 270,270,280 270 NPVTWR = 1 CALL WRITE (ECPTNL,NPVT,1,NEOR) KICKOF = 1 280 CALL WRITE (ECPTNL,ITYPE,1,NEOR) CALL WRITE (ECPTNL,XECPT,NWDS,NEOR) NNLEL = NNLEL + 1 GO TO 120 C C IF THIS IS THE 1ST ELEMENT READ ON THE CURRENT PASS OF THE ECPT, C CHECK TO SEE IF THIS ELEMENT IS IN A LINK THAT HAS ALREADY BEEN C PROCESSED. C 290 KGGLPG = 1 IF (IFIRST .EQ. 1) GO TO 300 C C THIS IS NOT THE FIRST PASS. IF ITYPE(TH) ELEMENT ROUTINE IS IN C CORE, PROCESS IT. C IF (ITEMP .EQ. LINCOR) GO TO 310 C C THE ITYPE(TH) ELEMENT ROUTINE IS NOT IN CORE. IF THIS ELEMENT C ROUTINE IS IN A LINK THAT ALREADY HAS BEEN PROCESSED READ THE NEXT C ELEMENT. C IF (LINK(ITEMP) .EQ. 1) GO TO 120 C C SET A TO BE PROCESSED LATER FLAG FOR THE LINK IN WHICH THE ELEMENT C RESIDES C LINK(ITEMP) = 0 GO TO 120 C C SINCE THIS IS THE FIRST ELEMENT TYPE TO BE PROCESSED ON THIS PASS C OF THE ECPT RECORD, A CHECK MUST BE MADE TO SEE IF THIS ELEMENT C IS IN A LINK THAT HAS ALREADY BEEN PROCESSED. IF IT IS SUCH AN C ELEMENT, WE KEEP IFIRST = 1 AND READ THE NEXT ELEMENT. C 300 IF (LINK(ITEMP) .EQ. 1) GO TO 120 C C SET THE CURRENT LINK IN CORE = ITEMP AND IFIRST = 0 C LINCOR = ITEMP IFIRST = 0 C C CALL THE PROPER ELEMENT ROUTINE. C C CROD CBEAM CTUBE CSHEAR CTWIST CTRIA1 CTRBSC C 1 2 3 4 5 6 7 C CTRPLT CTRMEM CONROD ELAS1 ELAS2 ELAS3 ELAS4 C 8 9 10 11 12 13 14 C CQDPLT CQDMEM CTRIA2 CQUAD2 CQUAD1 CDAMP1 CDAMP2 C 15 16 17 18 19 20 21 C CDAMP3 CDAMP4 CVISC CMASS1 CMASS2 CMASS3 CMASS4 C 22 23 24 25 26 27 28 C CONM1 CONM2 PLOTEL REACT QUAD3 CBAR CCONE C 29 30 31 32 33 34 35 310 IF (ITYPE .GT. 35) GO TO 120 GO TO (320,890,340,350,360,370,380,390,400,320, 1 410,420,430,440,450,460,470,480,490,120, 2 120,120,120,120,120,120,120,120,120,120, 3 120,890,890,500,510), ITYPE 320 CALL KROD GO TO 120 340 CALL KTUBE GO TO 120 350 CALL KPANEL (4) GO TO 120 360 CALL KPANEL (5) GO TO 120 370 CALL KTRIQD (1) GO TO 120 380 CALL KTRBSC (0) GO TO 120 390 CALL KTRPLT GO TO 120 400 CALL KTRMEM (0) GO TO 120 410 CALL KELAS (1) GO TO 120 420 CALL KELAS (2) GO TO 120 430 CALL KELAS (3) GO TO 120 440 CALL KELAS (4) GO TO 120 450 CALL KQDPLT GO TO 120 460 CALL KQDMEM GO TO 120 470 CALL KTRIQD (2) GO TO 120 480 CALL KTRIQD (4) GO TO 120 490 CALL KTRIQD (3) GO TO 120 500 CALL KBAR GO TO 120 510 IF (NBPW .LE. 32) CALL KCONED IF (NBPW .GT. 32) CALL KCONES GO TO 120 C C AN END OF LOGICAL RECORD HAS BEEN HIT ON THE ECPT. IF NPVTWR = 0, C THE PIVOT POINT HAS NOT BEEN WRITTEN ON ECPTNL AND NO ELEMENTS IN C THE CURRENT ECPT RECORD ARE PLASTIC. C 520 IF (IPASS .NE. 1) GO TO 550 IF (NPVTWR) 530,530,540 530 CALL WRITE (ECPTNL,-NPVT,1,EOR) GO TO 550 540 CALL WRITE (ECPTNL,0,0,EOR) 550 IPASS = 2 LINK(LINCOR) = 1 DO 560 I = 1,NLINKS IF (LINK(I) .EQ. 0) GO TO 570 560 CONTINUE GO TO 580 C C SINCE AT LEAST ONE LINK HAS NOT BEEN PROCESSED THE ECPT FILE MUST C BE BACKSPACED C 570 CALL BCKREC (ECPT) GO TO 110 C C WRITE THE NO. OF ROWS IN CORE UNTO THE KGGL FILE USING ZBLPKI. C 580 I1 = 0 590 I2 = 0 IBEG = I6X6K + I1*JMAX CALL BLDPK (2,IPR,KGGL,0,0) 600 I2 = I2 + 1 IF (I2 .GT. NGPCT) GO TO 620 JJ = IGPCT + I2 INDEX = IABS(IZ(JJ)) - 1 LIM = 6 IF (IZ(JJ) .LT. 0) LIM = 1 JJJ = IPOINT + I2 KKK = IBEG + IZ(JJJ) - 1 I3 = 0 610 I3 = I3 + 1 IF (I3 .GT. LIM) GO TO 600 INDEX = INDEX + 1 KKK = KKK + 1 DPWORD = DZ(KKK) IF (DPWORD .NE. 0.0D0) CALL ZBLPKI GO TO 610 620 CALL BLDPKN (KGGL,0,MCBKGG) I1 = I1 + 1 IF (I1 .LT. NROWSC) GO TO 590 C C IF LROWIC = TNROWS, PROCESSING OF THE CURRENT ECPT RECORD HAS BEEN C COMPLETED. C IF (LROWIC .EQ. TNROWS) GO TO 30 CALL BCKREC (ECPT) FROWIC = FROWIC + NROWSC LROWIC = LROWIC + NROWSC IPASS = 2 GO TO 110 C C NO ELEMENTS ARE CONNECTED TO THE PIVOT POINT. OUTPUT ZERO C COLUMN(S). ALSO, WRITE NEGATIVE PIVOT POINT ON ECPTNL. C 630 LIM = 6 IF (INPVT(1) .LT. 0) LIM = 1 DO 640 I = 1,LIM CALL BLDPK (2,IPR,KGGL,0,0) 640 CALL BLDPKN (KGGL,0,MCBKGG) CALL SKPREC (ECPT,1) CALL WRITE (ECPTNL,-IABS(INPVT(1)),1,EOR) GO TO 30 C C ECPT PROCESSING HAS BEEN COMPLETED SINCE AN EOF HAS BEEN READ ON C GPCT. C 650 CALL CLOSE (GPCT,CLSRW) CALL CLOSE (ECPT,CLSRW) CALL CLOSE (KGGL,CLSRW) CALL CLOSE (ECPTNL,CLSRW) IF (KICKOF .EQ. -1) GO TO 865 IF (MCBKGG(6) .NE. 0) GO TO 654 DO 652 I = 2,7 652 MCBKGG(I) = 0 GO TO 656 654 MCBKGG(3) = MCBKGG(2) 656 CALL WRTTRL (MCBKGG) CALL WRTTRL (TRAIL) C C BEGIN EST PROCESSING C LEFT = BUFR4 - 1 ICC = NCSTM + MUSED ALL = .FALSE. PHASE1 = .FALSE. C C READ THE FIRST RECORD OF CASECC INTO CORE. C FILE = CASECC CALL GOPEN (CASECC,Z(BUFR1),0) CALL READ (*870,*658,CASECC,IZ(ICC+1),LEFT,EOR,NCC) CALL MESAGE (-8,0,NAME) 658 IPLSET = ICC + JPLSET PLASET = IZ(IPLSET) ISTSET = ICC + JSTSET IF (IZ(ISTSET)) 660,670,680 660 ALL = .TRUE. GO TO 705 670 NONLST = -1 GO TO 705 C C THE USER HAS REQUESTED A PROPER SUBSET OF HIS SET OF ELEMENTS FOR C WHICH HE WANTS STRESS OUTPUT. FIND THE SET IN OPEN CORE AND C DETERMINE ZERO POINTER AND LENGTH OF THE SET. C 680 ISYM = ICC + JSYM ISETNO = ISYM + IZ(ISYM) + 1 LSET = IZ(ISETNO+1) 690 ISET = ISETNO + 2 NSET = IZ(ISETNO+1) + ISET - 1 IF (IZ(ISETNO) .EQ. IZ(ISTSET)) GO TO 700 ISETNO = NSET + 1 IF (ISETNO .LT. NCC) GO TO 690 ALL = .TRUE. 700 IZ(NSET+1) = 2**14 + 1 705 CALL CLOSE (CASECC,CLSRW) IF (PLASET .NE. -1) GO TO 706 JJ = 1 PLFACT(1) = 1.0 GO TO 731 706 CONTINUE C C SEARCH THE MPT FOR THE PLA SET C FILE = MPT CALL PRELOC (*860,Z(BUFR1-3),MPT) CALL LOCATE (*895,Z(BUFR1-3),PLANOS,IFLAG) C C READ A PLA SET NO. C 710 CALL READ (*895,*895,MPT,SETNO,1,NEOR,IFLAG) JJ = 0 720 CALL READ (*895,*895,MPT,NN,1,NEOR,IFLAG) IF (NN .EQ. -1) GO TO 730 JJ = JJ + 1 IF (JJ .EQ. 1) PLFACT(1) = FNN GO TO 720 730 IF (SETNO .NE. PLASET) GO TO 710 NPLALP = JJ PLFACT(2) = 0.0 CALL CLOSE (MPT,CLSRW) 731 CONTINUE C C PROCESS THE EST C ESTLTR(1) = ESTL ESTNLT(1) = ESTNL DO 740 I = 2,7 ESTLTR(I) = 0 740 ESTNLT(I) = 0 ASSIGN 820 TO NOSD CALL GOPEN ( EST,Z(BUFR1),0) CALL GOPEN ( ESTL,Z(BUFR2),1) CALL GOPEN (ESTNL,Z(BUFR3),1) FILE = EST C C READ THE ELEMENT TYPE. IF THE ELEMENT TYPE IS ADMISSIBLE TO C PIECEWISE LINEAR ANALYSIS, WRITE IT TWICE. OTHERWISE GO TO NEXT C RECORD. C 750 CALL READ (*850,*880,EST,ITYPE,1,NEOR,IFLAG) IF (PLAARY(ITYPE) .EQ. 1) GO TO 755 CALL SKPREC (EST,1) GO TO 750 755 CALL WRITE (ESTL, ITYPE,1,NEOR) CALL WRITE (ESTNL,ITYPE,1,NEOR) C C READ THE EST ENTRY C 760 IDX = (ITYPE-1)*INCR NWDS = NE(IDX+12) CALL READ (*870,*840,EST,XECPT,NWDS,NEOR,IFLAG) IF (PLAARY(ITYPE) .EQ. 0) GO TO 820 IF (ITYPE .GT. 38) GO TO 820 C CROD CBEAM CTUBE CSHEAR CTWIST C 1 2 3 4 5 GO TO ( 130, 820, 150, 820, 820, C CTRIA1 CTRBSC CTRPLT CTRMEM CONROD C 6 7 8 9 10 1 160, 820, 820, 170, 130, C CELAS1 CELAS2 CELAS3 CELAS4 CQDPLT C 11 12 13 14 15 2 820, 820, 820, 820, 820, C CQDMEM CTRIA2 CQUAD2 CQUAD1 CDAMP1 C 16 17 18 19 20 3 180, 190, 200, 210, 820, C CDAMP2 CDAMP3 CDAMP4 CVISC CMASS1 C 21 22 23 24 25 4 820, 820, 820, 820, 820, C CMASS2 CMASS3 CMASS4 CONM1 CONM2 C 26 27 28 29 30 5 820, 820, 820, 820, 820, C PLOTEL REACT QUAD3 CBAR CCONE C 31 32 33 34 35 6 820, 820, 820, 220, 820, C CTRIARG CTRAPRG CTORDRG C 36 37 38 7 820, 820, 820), ITYPE C C THE ELEMENT IS STRESS DEPENDENT. DETERMINE IF STRESS OUTPUT IS C REQUESTED. C AN EXAMPLE... IF WE HAVE IN CASE CONTROL C SET 5 = 1,2,3,98THRU100,4THRU15,81,18,82,90,92 C THEN THE WORDS IN CASE CONTROL ARE... C IZ(ISETNO) = 5,12,1,2,3,4,-15,18,81,82,90,92,98,-100 = IZ(NSET) C 765 IF (ALL) GO TO 800 IF (NONLST .EQ. -1) GO TO 760 IELID = IECPT(1) I = ISET 770 IF (I .GT. NSET) GO TO 760 IF (IZ(I+1) .LT. 0) GO TO 780 IF (IELID .EQ. IZ(I)) GO TO 800 IF (IELID .LT. IZ(I)) GO TO 760 I = I + 1 GO TO 790 780 IF (IELID.GE.IZ(I) .AND. IELID.LE.IABS(IZ(I+1))) GO TO 800 IF (IELID .LT. IZ(I)) GO TO 760 I = I + 2 790 IF (IZ(I) .GT. 0) GO TO 770 ALL = .TRUE. LLLLLL(1) = IZ(ISTSET) LLLLLL(2) = IZ(I) CALL MESAGE (30,92,LLLLLL) 800 OUTFIL = ESTNL NNLEL = NNLEL + 1 GO TO 830 820 OUTFIL = ESTL NLEL = NLEL + 1 830 CALL WRITE (OUTFIL,XECPT,NWDS,NEOR) GO TO 760 840 CALL WRITE (ESTL,0,0,EOR) CALL WRITE (ESTNL,0,0,EOR) GO TO 750 C C WRAP UP ROUTINE C 850 CALL CLOSE (EST,CLSRW) CALL CLOSE (ESTL,CLSRW) CALL CLOSE (ESTNL,CLSRW) CALL WRTTRL (ESTLTR) CALL WRTTRL (ESTNLT) 865 RETURN C C FATAL ERRORS C 860 CALL MESAGE (-1,FILE,NAME) 870 CALL MESAGE (-2,FILE,NAME) 880 CALL MESAGE (-3,FILE,NAME) 890 CALL MESAGE (-30,87,ITYPE) C C UNABLE TO FIND PLFACT CARD IN THE MPT WHICH WAS CHOSEN BY THE USER C IN CASECC. C 895 TRAIL(1) = HMPT TRAIL(2) = NAME(1) CALL MESAGE (-32,PLASET,TRAIL) RETURN END ================================================ FILE: mis/pla2.f ================================================ SUBROUTINE PLA2 C***** C THIS ROUTINE IS THE SECOND FUNCTIONAL MODULE UNIQUE TO THE PIECE-WISE C LINEAR ANALYSIS (PLA) RIGID FORMAT FOR THE DISPLACEMENT APPROACH. C C DMAP CALL... C C PLA2 DELTAUGV,DELTAPG,DELTAQG/UGV1,PGV1,QG1/V,N,PLACOUNT/ $ C C CONCERNING DELTAUGV AND UGV1, THE ROUTINE WORKS AS FOLLOWS... C DELTAUGV IS THE CURRENT INCREMENTAL DISPLACEMENT VECTOR IN THE PLA C RIGID FORMAT LOOP AND UGV1 IS AN APPENDED FILE OF DISPLACEMENT VECTORS C IF PLACOUNT .EQ. 1, THAT IS, THIS IS THE FIRST TIME PLA2 HAS BEEN C CALLED IN THE PLA LOOP, THEN DELTAUGV IS COPIED ONTO UGV1. IF C PLACOUNT .GT. 1, THE PREVIOUS, OR LAST, DISPLACEMENT VECTOR IS READ C INTO CORE FROM THE UGV1 DATA BLOCK, AND THE UGV1 FILE IS CLOSED WITH- C OUT REWIND, THEN OPENED WITHOUT REWIND TO WRITE. THE DELTAUGV VECTOR C IS READ AN ELEMENT AT A TIME USING SUBROUTINE ZNTPKI AND ADDED TO C THE VECTOR IN CORE. THEN THE NEW DISPLACEMENT VECTOR IS WRITTEN ONTO C THE UGV1 FILE. C C THEN THE PLA DMAP LOOP COUNTER PLACOUNT IS INCREMENTED. C C DELTAPG IS THE CURRENT INCREMENTAL LOAD VECTOR AND PGV1 IS THE C CORRESPONDING MATRIX OF RUNNING SUM LOAD VECTORS. PROCESSING IS C SIMILAR TO THE ABOVE. NOTE THAT NEITHER DATA BLOCK, LIKE THE TWO C DISCUSSED ABOVE, CAN BE PURGED. C C DELTAQG IS THE CURRENT INCREMENTAL VECTOR OF SINGLE POINT CONSTRAINT C FORCES AND QG1 IS THE APPENDED FILE OF VECTORS OF SPCF. THESE TWO C DATA BLOCKS ARE PROCESSED IDENTICALLY TO DELTAUGV AND UGV1 EXCECT C THAT NO FATAL ERROR EXISTS IF ONE OR THE OTHER HAS BEEN PURGED. C***** C INTEGER 1 BUFSZ 2, BUFFR1 ,BUFFR2 3, OFILE ,PLACNT 4, EOR ,CLSRW 5, CLSNRW ,OUTRW 6, EOL ,TYPEA 7, TYPEB ,OUTNRW INTEGER INBLK(15),OUBLK(15) C DIMENSION 1 NAME(2) ,DUMMY(2) 2, MCB(7) COMMON /BLANK/PLACNT COMMON /SYSTEM/ BUFSZ COMMON /ZZZZZZ / Z(1) COMMON /ZNTPKX/ 1 A(4) ,INDEX 2, EOL ,IDUMMY COMMON /PACKX / 1 TYPEA ,TYPEB 2, IPACK ,JPACK 3, INCPK COMMON /UNPAKX/ 1 IUNPKB ,IUNPK 2, JUNPK ,INCUPK C DATA NAME /4HPLA2,4H / DATA INRW,OUTRW,OUTNRW,CLSRW,CLSNRW,EOR/0,1,3,1,2,1/ C C INITIALIZE C IZMAX = KORSZ (Z) BUFFR1 = IZMAX - BUFSZ BUFFR2 = BUFFR1 - BUFSZ LEFT = BUFFR2 - 1 ILOOP = 1 IFILE = 101 OFILE = 201 C C OPEN INPUT FILE TO READ AND OUTPUT FILE TO WRITE (IF PLACNT .EQ. 1) C OR TO READ (IF PLACNT .GT. 1) C 10 JFILE = IFILE INBLK(1) = IFILE OUBLK(1) = OFILE DO 15 I = 2,7 15 MCB(I) = 0 MCB(1) = OFILE IF (PLACNT .EQ. 1) MCB(1) = IFILE CALL RDTRL (MCB) CALL OPEN(*100,IFILE,Z(BUFFR1),INRW) CALL FWDREC(*9020,IFILE) IOPT = INRW IF (PLACNT .EQ. 1) IOPT = OUTRW CALL OPEN(*110,OFILE,Z(BUFFR2),IOPT) IF (PLACNT .NE. 1) GO TO 30 C C THIS IS THE FIRST TIME THROUGH THE PLA LOOP. COPY THE VECTOR ON THE C INPUT FILE ONTO THE OUTPUT FILE. C CALL FNAME (OFILE,DUMMY) CALL WRITE (OFILE,DUMMY,2,EOR) CALL CPYSTR(INBLK,OUBLK,0,0) CALL CLOSE (OFILE,CLSRW) CALL CLOSE(IFILE,CLSRW) GO TO 70 C C THIS IS NOT THE FIRST PASS C 30 JFILE = OFILE CALL FWDREC(*9020,OFILE) NRECS = PLACNT - 2 IF (NRECS .LE. 0) GO TO 50 DO 40 I = 1,NRECS 40 CALL FWDREC(*9020,OFILE) 50 MCB(1) = OFILE CALL RDTRL (MCB) MCB(6) = 0 MCB(7) = 0 IF (LEFT .LT. MCB(3)) CALL MESAGE (-8,0,NAME) IUNPKB = 1 IUNPK = 1 JUNPK = MCB(3) INCUPK = 1 CALL UNPACK(*9030,OFILE,Z) CALL CLOSE (OFILE,CLSNRW) CALL OPEN(*9010,OFILE,Z(BUFFR2),OUTNRW) C C READ THE INCREMENTAL VECTOR. INTPK INITIALIZES AND ZNTPKI RETURNS C ONE ELEMENT AT A TIME C KTYPE = 1 CALL INTPK(*9040,IFILE,0,KTYPE,0) C C READ AND ADD LOOP. C 60 CALL ZNTPKI Z(INDEX) = Z(INDEX) + A(1) IF (EOL .EQ. 0) GO TO 60 C C ADDITION HAS BEEN COMPLETED C CALL CLOSE (IFILE,CLSRW) C C WRITE VECTOR ON OUTPUT FILE IN PACKED FORMAT. C TYPEA = 1 TYPEB = 1 IPACK = 1 JPACK = MCB(3) INCPK = 1 CALL PACK(Z,OFILE,MCB) CALL CLOSE (OFILE,CLSRW) C C WRITE TRAILER C 70 MCB(1) = OFILE CALL WRTTRL (MCB) 90 ILOOP = ILOOP + 1 IF (ILOOP .GT. 3) GO TO 200 IFILE = IFILE + 1 OFILE = OFILE + 1 GO TO 10 100 IF (ILOOP .EQ. 1 .OR. ILOOP .EQ. 2) CALL MESAGE (-30,127,IFILE) GO TO 90 110 IF (ILOOP .EQ. 1 .OR. ILOOP .EQ. 2) CALL MESAGE (-30,128,OFILE) GO TO 90 C C INCREMENT THE PLA DMAP LOOP COUNTER C 200 PLACNT = PLACNT + 1 RETURN C C FATAL ERRORS C 9010 CALL MESAGE (-1,JFILE,NAME) 9020 CALL MESAGE (-2,JFILE,NAME) 9030 CALL MESAGE (-30,129,ILOOP+200) 9040 CALL MESAGE (-30,130,ILOOP+100) RETURN END ================================================ FILE: mis/pla3.f ================================================ SUBROUTINE PLA3 C***** C THIS ROUTINE COMPUTES ELEMENT STRESSES FOR NON-LINEAR (STRESS DEPEN- C DENT) ELEMENTS FOR WHICH THE USER HAS REQUESTED STRESS OUTPUT. IT C ALSO UPDATES THE ESTNL DATA BLOCK SO THAT THE OUTPUT FILE, ESTNL1, C CONTAINS UP-TO-DATE ELEMENT STRESS INFORMATION. C C DMAP CALL... C C PLA3 CSTM,MPT,DIT,DELTAUGV,ESTNL,CASECC/ONLES,ESTNL1/V,N,PLACOUNT/ C V,N,PLSETNO/ $ C C THIS ROUTINE IS THE MODULE DRIVER... SUBROUTINE PLA31 READS THE C INCREMENTAL DISPLACEMENT VECTOR INTO CORE AND APPENDS THE PROPER C DISPLACEMENT VALUES TO THE ESTNL ENTRY FOR EACH ELEMENT, THEREBY C CREATING THE ESTNLS, THE ESTNL SCRATCH FILE. IN PLA32, THE ESTNLS C FILE IS READ, AND THE PROPER ELEMENT ROUTINE IS CALLED. THE ELEMENT C ROUTINE COMPUTES THE ELEMENT STRESSES AND STORES THIS INFORMATION IN C THE BLOCK /SOUT/. THE ELEMENT ROUTINE ALSO UPDATES THE EST ENTRY C WHICH HAS BEEN COMMUNICATED TO TI VIA /PLA32E/. C***** C C C CALL PLA31 CALL PLA32 RETURN END ================================================ FILE: mis/pla31.f ================================================ SUBROUTINE PLA31 C C THIS ROUTINE READS THE INCREMENTAL DISPLACEMENT VECTOR INTO CORE C AND APPENDS THE PROPER DISPLACEMENT VALUES TO THE ESTNL ENTRY FOR C EACH ELEMENT, THEREBY CREATING THE ESTNLS, THE ESTNL SCRATCH FILE, C WHICH IS PROCESSED BY SUBROUTINE PLA32. C INTEGER BUFSZ,BUFR1,BUFR2,DELUGV,ESTNL,ESTNLS,FILE,EOR, 1 CLSRW,IZ(1),IESTBK(100),ESTWDS(40),ELTYPE DIMENSION NAME(2),NGPTS(40),MCBUGV(7),ESTBK(100) COMMON /BLANK / ICOM COMMON /SYSTEM/ BUFSZ COMMON /ZZZZZZ/ Z(1) COMMON /UNPAKX/ ITYPEB,IUNPK,JUNPK,INCUPK EQUIVALENCE (Z(1),IZ(1)),(ESTBK(1),IESTBK(1)) DATA NAME / 4HPLA3,4H1 / DATA DELUGV, ESTNL,ESTNLS / 104,105,301/ DATA EOR , NEOR,CLSRW / 1,0,1 / C C 1 ROD BEAM TUBE SHEAR TWIST C 2 TRIA1 TRBSC TRPLT TRMEM CONROD C 3 ELAS1 ELAS2 ELAS3 ELAS4 QDPLT C 4 QDMEM TRIA2 QUAD2 QUAD1 DAMP1 C 5 DAMP2 DAMP3 DAMP4 VISC MASS1 C 6 MASS2 MASS3 MASS4 CONM1 CONM2 C 7 PLOTEL REACT QUAD3 BAR CONE C 8 TRIARG TRAPRG TORDRG CORE CAP C DATA ESTWDS/ 1 21, 0, 20, 0, 0, 2 38, 0, 0, 27, 21, 3 0, 0, 0, 0, 0, 4 32, 32, 37, 43, 0, 5 0, 0, 0, 0, 0, 6 0, 0, 0, 0, 0, 7 0, 0, 0, 50, 0, 8 0, 0, 0, 0, 0 / DATA NGPTS / 1 2, 2, 2, 4, 4, 2 3, 3, 3, 3, 2, 3 2, 2, 2, 2, 4, 4 4, 3, 4, 4, 2, 5 2, 2, 2, 2, 2, 6 2, 2, 2, 2, 2, 7 2, 0, 0, 2, 2, 8 3, 4, 2, 4, 2 / C C DETERMINE SIZE OF CORE, DEFINE BUFFERS AND INITIALIZE CORE C POINTERS AND COUNTERS C IZMAX = KORSZ (Z) BUFR1 = IZMAX - BUFSZ BUFR2 = BUFR1 - BUFSZ LEFT = BUFR2 - 1 IDISP = 0 C C OPEN THE DISPLACEMENT VECTOR FILE AND READ THE DISPLACEMENT VECTOR C INTO OPEN CORE. C FILE = DELUGV CALL GOPEN (DELUGV,Z(BUFR1),0) MCBUGV(1) = DELUGV CALL RDTRL (MCBUGV) IF (LEFT .LT. MCBUGV(3)) CALL MESAGE (-8,0,NAME) ITYPEB = 1 IUNPK = 1 JUNPK = MCBUGV(3) INCUPK = 1 CALL UNPACK (*9040,DELUGV,Z(IDISP+1)) CALL CLOSE (DELUGV,CLSRW) C C BUILD THE SCRATCH FILE ESTNLS C CALL GOPEN (ESTNL,Z(BUFR1),0) CALL GOPEN (ESTNLS,Z(BUFR2),1) C C READ AN ELEMENT TYPE FROM ESTNL AND WRITE IT ON ESTNLS. C 10 CALL READ (*60,*9030,ESTNL,ELTYPE,1,NEOR,IFLAG) NWDSRD = ESTWDS(ELTYPE) IF (NWDSRD .LE. 0) CALL MESAGE (-30,91,ELTYPE) CALL WRITE (ESTNLS,ELTYPE,1,NEOR) C C READ AN ESTNL ENTRY C 20 J = NWDSRD CALL READ (*9020,*50,ESTNL,ESTBK,J,NEOR,IFLAG) NOGPTS = NGPTS(ELTYPE) IF (NOGPTS .LE. 0) CALL MESAGE (-30,92,ELTYPE) C C APPEND THE DISPLACEMENT VECTORS ONTO THE ESTBK. C NWDS = 3 J = J + 1 IF (ELTYPE.EQ. 1 .OR. ELTYPE.EQ. 3 .OR. ELTYPE.EQ.10 .OR. 1 ELTYPE.EQ. 6 .OR. ELTYPE.EQ.17 .OR. ELTYPE.EQ.18 .OR. 2 ELTYPE.EQ.19 .OR. ELTYPE.EQ.34) NWDS = 6 DO 40 I = 1,NOGPTS INDEX = IDISP + IESTBK(I+1) DO 30 K = 1,NWDS ESTBK(J) = Z(INDEX) INDEX = INDEX + 1 30 J = J + 1 40 CONTINUE C C THE APPENDED ESTNL ENTRY, WHICH IS AT ESTBK IS NOW COMPLETE. C CALL WRITE (ESTNLS,ESTBK,J-1,NEOR) GO TO 20 C C WRITE AN EOR ON THE ESTNLS FILE. C 50 CALL WRITE (ESTNLS,0,0,EOR) GO TO 10 C C PROCESSING IS NOW COMPLETE C 60 CALL CLOSE (ESTNL,CLSRW) CALL CLOSE (ESTNLS,CLSRW) RETURN C C FATAL ERRORS C 9020 CALL MESAGE (-2,FILE,NAME) 9030 CALL MESAGE (-3,FILE,NAME) 9040 CALL MESAGE (-5,DELUGV,NAME) RETURN END ================================================ FILE: mis/pla32.f ================================================ SUBROUTINE PLA32 C C THIS ROUTINE READS THE ESTNLS DATA BLOCK CREATED IN SUBROUTINE C PLA31, AND CALLS THE PROPER ELEMENT ROUTINE TO COMPUTE ELEMENT C STRESSES. C ELEMENT STRESS INFORMATION IS STORED BY THE ELEMENT ROUTINE IN C /STROUT/. THE ELEMENT ROUTINE ALSO UPDATES THE EST ENTRY WHICH C HAS BEEN COMMUNICATED TO IT VIA /PLA32E/. NOTE THAT THIS UPDATED C EST ENTRY DOES NOT CONTAIN DISPLACEMENT VECTOR INFORMATION. C INTEGER BUFSZ,BUFR1,BUFR2,BUFR3,CSTM,DIT,ESTNLS,CASECC, 1 ONLES,ESTNL1,EOR,CLSRW,FILE,IZ(1),IESTBK(100), 9 ESTWDS(40),ELTYPE,OUTRW,PLACNT,PLSETN,PLANOS(2), 2 OSTRT(7),ESTT(7),SETNO DIMENSION NAME(2),NSTWDS(40),NWDSP2(40),P(4),IP(4),DUM2(2), 1 TUBSAV(20),ICHAR(9),ITITLE(3),IY(30) COMMON /BLANK / PLACNT,PLSETN COMMON /SYSTEM/ BUFSZ COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ COMMON /ZZZZZZ/ Z(1) COMMON /PLA32C/ GAMMA,GAMMAS,IPASS COMMON /PLA32E/ ESTBK(100) C C SCRATCH BLOCK USED BY ELEMENT ROUTINES (325 SINGLE PRECISION C CELLS) AND OUTPUT BLOCK FOR ELEMENT STRESSES C COMMON /PLA32S/ XXXXXX(325) COMMON /SOUT / YYYYYY(30) EQUIVALENCE (Z(1),IZ(1)),(ESTBK(1),IESTBK(1)),(P(1),IP(1)), 1 (YYYYYY(1),IY(1)) DATA NAME / 4HPLA3, 4H2 / DATA ITITLE/ 4HLOAD, 4H FAC,4HTOR / DATA CSTM , MPT,DIT,ESTNLS,CASECC/ 101,102,103,301,106 / DATA ONLES , ESTNL1 / 201,202 / DATA INRW , OUTRW,EOR,NEOR,CLSRW / 0,1,1,0,1 / DATA PLANOS/ 1103,11 / C C 1 ROD BEAM TUBE SHEAR TWIST C 2 TRIA1 TRBSC TRPLT TRMEM CONROD C 3 ELAS1 ELAS2 ELAS3 ELAS4 QDPLT C 4 QDMEM TRIA2 QUAD2 QUAD1 DAMP1 C 5 DAMP2 DAMP3 DAMP4 VISC MASS1 C 6 MASS2 MASS3 MASS4 CONM1 CONM2 C 7 PLOTEL REACT QUAD3 BAR CONE C 8 TRIARG TRAPRG TORDRG CORE CAP C DATA ESTWDS/ 1 21, 0, 20, 0, 0, 2 38, 0, 0, 27, 21, 3 0, 0, 0, 0, 0, 4 32, 32, 37, 43, 0, 5 0, 0, 0, 0, 0, 6 0, 0, 0, 0, 0, 7 0, 0, 0, 50, 0, 8 0, 0, 0, 0, 0 / DATA NSTWDS/ 1 5, 0, 5, 0, 0, 2 17, 0, 0, 8, 5, 3 0, 0, 0, 0, 0, 4 8, 17, 17, 17, 0, 5 0, 0, 0, 0, 0, 6 0, 0, 0, 0, 0, 7 0, 0, 0, 16, 0, 8 0, 0, 0, 0, 0 / DATA NWDSP2/ 1 33, 0, 32, 0, 0, 2 56, 0, 0, 36, 33, 3 0, 0, 0, 0, 0, 4 44, 50, 61, 67, 0, 5 0, 0, 0, 0, 0, 6 0, 0, 0, 0, 0, 7 0, 0, 0, 62, 0, 8 0, 0, 0, 0, 0 / C C DEFINE POSITION IN CASECC RECORD OF DESTINATION (PRINTER, PUNCH, C ETC.) OF ELEMENT STRESSES. C DATA IDEST /24/ C C C DETERMINE SIZE OF CORE, DEFINE BUFFERS AND INITIALIZE CORE POINTER C AND COUNTERS C IZMAX = KORSZ(Z) BUFR1 = IZMAX - BUFSZ BUFR2 = BUFR1 - BUFSZ BUFR3 = BUFR2 - BUFSZ LEFT = BUFR3 - 1 IPASS = PLACNT- 1 ICSTM = 0 NCSTM = 0 DO 5 I = 1,7 OSTRT(I) = 0 5 ESTT(I) = 0 C C ATTEMPT TO READ CSTM INTO CORE C FILE = CSTM CALL OPEN (*20,CSTM,Z(BUFR1),INRW) CALL FWDREC (*9020,CSTM) CALL READ (*9020,*10,CSTM,Z(ICSTM+1),LEFT,EOR,NCSTM) CALL MESAGE (-8,0,NAME) 10 LEFT = LEFT - NCSTM CALL CLOSE (CSTM,CLSRW) CALL PRETRS (Z(ICSTM+1),NCSTM) 20 IMAT = NCSTM C C COMPUTE GAMMA AND GAMMAS FROM THE PROPER PLFACT CARD C FILE = MPT CALL PRELOC (*9010,Z(BUFR1-3),MPT) CALL LOCATE (*9040,Z(BUFR1-3),PLANOS,IFLAG) 30 CALL READ (*9020,*9030,MPT,SETNO,1,NEOR,IFLAG) IF (SETNO .EQ. PLSETN) GO TO 40 35 CALL READ (*9020,*9030,MPT,NN,1,NEOR,IFLAG) IF (NN .EQ. -1) GO TO 30 GO TO 35 40 IF (PLACNT .LE. 4) GO TO 45 CALL READ (*9020,*9030,MPT,0,-(PLACNT-4),NEOR,IFLAG) 45 NWDSRD = 4 IF (PLACNT .LT. 4) NWDSRD = PLACNT CALL READ (*9020,*9030,MPT,P,NWDSRD,NEOR,IFLAG) IF (IP(NWDSRD) .NE. -1) GO TO 48 IF (PLACNT-3) 42,43,44 42 GAMMAS = 1.0 GO TO 46 43 GAMMAS = (P(2) - P(1))/P(1) GO TO 46 44 GAMMAS = (P(3) - P(2))/(P(2) - P(1)) 46 GAMMA = 1.0 GO TO 65 48 A = P(2) - P(1) IF (PLACNT-3) 50,55,60 50 GAMMAS = 0.0 GAMMA = A/P(1) GO TO 65 55 GAMMAS = A/P(1) GAMMA = (P(3) - P(2))/A GO TO 65 60 WORD = P(3) - P(2) GAMMAS = WORD/A GAMMA = (P(4) - P(3))/WORD 65 CALL CLOSE (MPT,CLSRW) C C READ MPT AND DIT FILES. NOTE MINUS SIGN ON DIT TO TRIGGER PLA C FLAG. C CALL PREMAT (IZ(IMAT+1),Z(IMAT+1),Z(BUFR1-3),LEFT,MUSED,MPT,-DIT) LEFT = LEFT - MUSED ICC = NCSTM + MUSED C C READ CASECC INTO OPEN CORE C FILE = CASECC CALL OPEN (*9010,CASECC,Z(BUFR1),INRW) CALL FWDREC (*9020,CASECC) CALL READ (*9020,*68,CASECC,Z(ICC+1),LEFT,EOR,NCC) CALL MESAGE (-8,0,NAME) 68 LEFT = LEFT - NCC CALL CLOSE (CASECC,CLSRW) C C OPEN INPUT FILE C FILE = ESTNLS CALL OPEN (*9010,ESTNLS,Z(BUFR1),INRW) CALL FWDREC (*9020,ESTNLS) C C OPEN THE ELEMENT STRESS FILE FOR OUTPUT AND BUILD HEADER WHICH IS C NON-CHANGING. C FILE = ONLES CALL OPEN (*9010,ONLES,Z(BUFR2),OUTRW) CALL FNAME (ONLES,DUM2) CALL WRITE (ONLES,DUM2,2,EOR) C C THE FOLLOWING INDICES HAVE TO CHANGE WHEN THERE ARE CHANGES IN C THE FORMAT OF THE CASECC DATA BLOCK C IONLES = ICC + NCC IZ(IONLES+1) = IZ(ICC+18) + 100 IZ(IONLES+2) = 5 IZ(IONLES+4) = IZ(ICC+1) IZ(IONLES+5) = IZ(ICC+4) IZ(IONLES+6) = 0 IZ(IONLES+7) = 0 IZ(IONLES+8) = 0 IZ(IONLES+9) = 0 ILOW = IONLES + 51 IHIGH = IONLES + 146 LEFT = LEFT - 146 IF (LEFT .LT. 0) CALL MESAGE (-8,0,NAME) J = ICC + 38 DO 70 I = ILOW,IHIGH J = J + 1 70 IZ(I) = IZ(J) C C STORE LOAD FACTOR AND INTEGER IN LABEL PORTION OF OUTPUT C IZ(IONLES+135) = ITITLE(1) IZ(IONLES+136) = ITITLE(2) IZ(IONLES+137) = ITITLE(3) III = PLACNT - 1 CALL INT2AL (III,IZ(IONLES+138),ICHAR) C C DEFINE DESTINATION OF OUTPUT C I = ICC + IDEST JDEST = IZ(I) C C OPEN THE ESTNL1 FILE FOR OUTPUT. C FILE = ESTNL1 CALL OPEN (*9010,ESTNL1,Z(BUFR3),OUTRW) CALL FNAME (ESTNL1,DUM2) CALL WRITE (ESTNL1,DUM2,2,EOR) FILE = ESTNLS C C READ ELEMENT TYPE C 80 CALL READ (*220,*9030,ESTNLS,ELTYPE,1,NEOR,IFLAG) C C FILL IN REMAINDER OF ID RECORD FOR THE ONLES FILE C IZ(IONLES+3) = ELTYPE IZ(IONLES+10) = NSTWDS(ELTYPE) IF (NSTWDS(ELTYPE) .LE. 0) CALL MESAGE (-30,91,ELTYPE) C C WRITE ID RECORD FOR ONLES FILE C CALL WRITE (ONLES,IZ(IONLES+1),146,EOR) CALL WRITE (ESTNL1,ELTYPE,1,NEOR) C C READ AN ENTRY FROM THE APPENDED ESTNL FILE AND CALL THE PROPER C ROUTINE C 90 CALL READ (*9020,*210,ESTNLS,ESTBK,NWDSP2(ELTYPE),NEOR,IFLAG) C C 1,ROD 2,BEAM 3,TUBE 4,SHEAR 5,TWIST GO TO ( 110, 999, 120, 999, 999, C 6,TRIA1 7,TRBSC 8,TRPLT 9,TRMEM 10,CONROD 1 130, 999, 999, 140, 110, C 11,ELAS1 12,ELAS2 13,ELAS3 14,ELAS4 15,QDPLT 2 999, 999, 999, 999, 999, C 16,QDMEM 17,TRIA2 18,QUAD2 19,QUAD1 20,DAMP1 3 150, 160, 170, 180, 999, C 21,DAMP2 22,DAMP3 23,DAMP4 24,VISC 25,MASS1 4 999, 999, 999, 999, 999, C 26,MASS2 27,MASS3 28,MASS4 29,CONM1 30,CONM2 5 999, 999, 999, 999, 999, C 31,PLOTEL 32,REACT 33,QUAD3 34,BAR 35,CONE 6 999, 999, 999, 190, 999, C 36,TRIARG 37,TRAPRG 38,TORDRG 39,CORE? 40,CAP? 7 999, 999, 999, 999, 999), ELTYPE C C ROD, CONROD C 110 CALL PSROD C C IF ELEMENT IS A TUBE, RESTORE SAVED EST ENTRY AND STORE UPDATED C STRESS VARIABLES IN PROPER SLOTS. C IF (ELTYPE .NE. 3) GO TO 200 DO 115 I = 1,16 115 ESTBK(I) = TUBSAV(I) ESTBK(17) = ESTBK(18) ESTBK(18) = ESTBK(19) ESTBK(19) = ESTBK(20) ESTBK(20) = ESTBK(21) GO TO 200 C C C TUBE - REARRANGE ESTBK FOR THE TUBE SO THAT IT IS IDENTICAL TO THE C ONE FOR THE ROD C C SAVE THE EST ENTRY FOR THE TUBE EXCEPT THE 4 WORDS WHICH WILL BE C UPDATED BY THE THE ROD ROUTINE AND THE DISPLACEMENT VECTORS C 120 DO 125 I = 1,16 125 TUBSAV(I) = ESTBK(I) C C COMPUTE AREA, TORSIONAL INERTIA TERM AND STRESS COEFFICIENT C D = ESTBK(5) T = ESTBK(6) DMT= D - T A = DMT*T* PI FJ = .25*A*(DMT**2 + T**2) C = D/2.0 C C MOVE THE END OF THE ESTBK ARRAY DOWN ONE SLOT SO THAT ENTRIES 7 C THRU 32 WILL BE MOVED TO POSITIONS 8 THRU 33. C M = 33 DO 127 I = 1,26 ESTBK(M) = ESTBK(M-1) 127 M = M - 1 ESTBK(5) = A ESTBK(6) = FJ ESTBK(7) = C GO TO 110 C C TRIA1 C 130 CALL PSTRI1 GO TO 200 C C TRMEM C 140 CALL PSTRM GO TO 200 C C QDMEM C 150 CALL PSQDM GO TO 200 C C TRIA2 C 160 CALL PSTRI2 GO TO 200 C C QUAD2 C 170 CALL PSQAD2 GO TO 200 C C QUAD1 C 180 CALL PSQAD1 GO TO 200 C C BAR C 190 CALL PSBAR GO TO 200 C C ALTER ELEMENT IDENTIFICATION FROM EXTERNAL (USER) IDENTIFICATION C TO INTERNAL ID., AND WRITE OUTPUT FILES. C 200 IY(1) = 10*IY(1) + JDEST CALL WRITE (ONLES,IY,NSTWDS(ELTYPE),NEOR) CALL WRITE (ESTNL1,ESTBK,ESTWDS(ELTYPE),NEOR) OSTRT(2) = OSTRT(2) + 1 ESTT(2) = ESTT(2) + 1 GO TO 90 C C WRITE EORS C 210 CALL WRITE (ONLES,0,0,EOR) CALL WRITE (ESTNL1,0,0,EOR) GO TO 80 C C CLOSE FILES AND WRITE TRAILERS C 220 CALL CLOSE (ONLES,CLSRW) CALL CLOSE (ESTNL1,CLSRW) CALL CLOSE (ESTNLS,CLSRW) OSTRT(1) = ONLES ESTT(1) = ESTNL1 CALL WRTTRL (OSTRT) CALL WRTTRL (ESTT) RETURN C C FATAL ERRORS C 999 CALL MESAGE (-30,92,ELTYPE) 9010 J = -1 GO TO 9050 9020 J = -2 GO TO 9050 9030 J = -3 GO TO 9050 9040 J = -5 9050 CALL MESAGE (J,FILE,NAME) RETURN END ================================================ FILE: mis/pla4.f ================================================ SUBROUTINE PLA4 C***** C THIS FUNCTIONAL MODULE IS THE LAST OF FOUR FUNCTIONAL MODULES UNIQUE C TO THE PIECE-WISE LINEAR ANALYSIS (DISPLACEMENT METHOD) RIGID FORMAT. C***** C DMAP CALL... C C PLA4 CSTM,MPT,ECPTNL,GPCT,DIT,DELTAUGV/KGGNL,ECPTNL1/V,N,PLACOUNT/V, C N,PLSETNO/V,N,PLFACT/ $ C C THE OUTPUT DATA BLOCKS AND PARAMETERS ARE DEFINED AS FOLLOWS... C C KGGNL IS THE STIFFNESS MATRIX OF NON-LINEAR (STRESS DEPENDENT) C ELEMENTS. C ECPTNL1 IS THE UP-TO-DATE VERSION OF THE INPUT DATA BLOCK, ECPTNL. C THAT IS, THE ECPTNL1 DATA BLOCK CONTAINS THE SAME INFORMATION C AS ECPTNL EXCEPT THE STRESS INFORMATION IS UPDATED. C C PARAMETER NAMES BELOW ARE FORTRAN RATHER THAN DMAP NAMES C C PLACNT IS PIECE-WISE LINEAR ANALYSIS RIGID FORMAT DMAP LOOP COUNTER. C PLSETN IS THE PLFACT CARD SET NUMBER CHOSEN BY THE USER IN HIS CASE C CONTROL PACKAGE. C PLFACT IS THE FACTOR BY WHICH THE LOAD VECTOR WILL MULTIPLIED THE NEXT C TIME THROUGH THE PLA DMAP LOOP C***** C THIS ROUTINE IS THE MODULE DRIVER. PLA41 APPENDS DISPLACEMENT INFOR- C MATION TO THE ECPTNL DATA BLOCK AND A SCRATCH DATA BLOCK, ECPTS, OF C THIS MERGED INFORMATION IS CREATED. SUBROUTINE PLA42 USES THE DATA C BLOCK ECPTS TO CREATE THE KGGNL MATRIX. ALSO THE UPDATED ECPT INFOR- C MATION IS OUTPUT AS DATA BLOCK ECPTNL1 BY PLA42. C***** CALL PLA41 CALL PLA42 RETURN END ================================================ FILE: mis/pla41.f ================================================ SUBROUTINE PLA41 C C THIS ROUTINE APPENDS DISPLACEMENT VECTOR INFORMATION TO THE C ECPTNL DATA BLOCK AND CREATES A SCRATCH DATA BLOCK, ECPTS, OF C THIS MERGED INFORMATION. ECPTS IS PROCESSED BY SUBROUTINE PLA41. C INTEGER SYSBUF,CLSRW,BUFFR1,BUFFR2,UGV,ECPTNL,ECPTS, 1 EOR,FILE,ELTYPE DIMENSION NAME(2),MCBUGV(7),NWORDS(40),NGPTS(40), 1 XECPT(100),IECPT(100) COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ Z(1) COMMON /UNPAKX/ ITYPEB,IUNPK,JUNPK,INCUPK EQUIVALENCE (XECPT(1),IECPT(1)) DATA UGV , ECPTNL,ECPTS / 106,103,301 / DATA NAME / 4HPLA4,4H1 / DATA EOR , NEOR,CLSRW / 1,0,1 / C C 1 ROD BEAM TUBE SHEAR TWIST C 2 TRIA1 TRBSC TRPLT TRMEM CONROD C 3 ELAS1 ELAS2 ELAS3 ELAS4 QDPLT C 4 QDMEM TRIA2 QUAD2 QUAD1 DAMP1 C 5 DAMP2 DAMP3 DAMP4 VISC MASS1 C 6 MASS2 MASS3 MASS4 CONM1 CONM2 C 7 PLOTEL REACT QUAD3 BAR CONE C 8 X X X X X C DATA NWORDS/ 1 20, 0, 19, 0, 0, 2 33, 0, 0, 27, 20, 3 0, 0, 0, 0, 0, 4 32, 27, 32, 38, 0, 5 0, 0, 0, 0, 0, 6 0, 0, 0, 0, 0, 7 0, 0, 0, 45, 0, 8 0, 0, 0, 0, 0 / DATA NGPTS / 1 2, 2, 2, 4, 4, 2 3, 3, 3, 3, 2, 3 2, 2, 2, 2, 4, 4 4, 3, 4, 4, 2, 5 2, 2, 2, 2, 2, 6 2, 2, 2, 2, 2, 7 2, 0, 0, 2, 2, 8 0, 0, 0, 0, 0 / C C INITIALIZE C IZMAX = KORSZ(Z) BUFFR1 = IZMAX - SYSBUF BUFFR2 = BUFFR1 - SYSBUF LEFT = BUFFR2 - 1 C C READ THE DISPLACEMENT VECTOR INTO OPEN CORE. C FILE = UGV CALL GOPEN (UGV,Z(BUFFR1),0) MCBUGV(1) = UGV CALL RDTRL (MCBUGV) IF (LEFT .LT. MCBUGV(3)) CALL MESAGE (-8,0,NAME) ITYPEB = 1 IUNPK = 1 JUNPK = MCBUGV(3) INCUPK = 1 CALL UNPACK (*9050,UGV,Z(1)) CALL CLOSE (UGV,CLSRW) C C OPEN THE ECPTNL AND ECPTS FILES. C CALL GOPEN (ECPTS ,Z(BUFFR1),1) CALL GOPEN (ECPTNL,Z(BUFFR2),0) C C READ AND WRITE THE PIVOT POINT C 10 CALL READ (*60,*9030,ECPTNL,NPVT,1,NEOR,IFLAG) CALL WRITE (ECPTS,NPVT,1,NEOR) C C READ ELEMENT TYPE C 20 CALL READ (*9020,*50,ECPTNL,ELTYPE,1,NEOR,IFLAG) J = NWORDS(ELTYPE) IF (J .LE. 0) CALL MESAGE (-30,114,IECPT(1)) C C READ THE ECPT ENTRY FOR THIS ELEMENT. C CALL FREAD (ECPTNL,XECPT,J,0) C C APPEND DISPLACEMENT VECTOR TO THE ECPT ENTRY C J = J + 1 NWDS = 3 IF (ELTYPE .EQ. 34) NWDS = 6 NOGPTS = NGPTS(ELTYPE) DO 40 I = 1,NOGPTS INDEX = IECPT(I+1) DO 30 K = 1,NWDS XECPT(J) = Z(INDEX) INDEX = INDEX + 1 30 J = J + 1 40 CONTINUE C C THE ECPT ENTRY IS NOW COMPLETE. WRITE IT OUT. C CALL WRITE (ECPTS,ELTYPE, 1,NEOR) CALL WRITE (ECPTS,XECPT,J-1,NEOR) GO TO 20 C C AN EOR HAS BEEN READ ON ECPTNL. WRITE EOR ON ECPTS. C 50 CALL WRITE (ECPTS,0,0,EOR) GO TO 10 C C PROCESSING IS COMPLETE. CLOSE FILES. C 60 CALL CLOSE (ECPTNL,CLSRW) CALL CLOSE (ECPTS,CLSRW) RETURN C C FATAL ERRORS C 9020 CALL MESAGE (-2,FILE,NAME) 9030 CALL MESAGE (-3,FILE,NAME) 9050 CALL MESAGE (-30,83,NAME) RETURN END ================================================ FILE: mis/pla42.f ================================================ SUBROUTINE PLA42 C C THIS ROUTINE PROCESSES THE SCRATCH DATA BLOCK ECPTS, WHICH IS THE C ECPTNL DATA BLOCK APPENDED WITH THE PROPER DISPLACEMENT VECTOR C COMPONENTS, AND CREATES THE STIFFNESS MATRIX KGGNL AND THE UPDATED C ECPTNL, ECPTNL1. ECPTNL1, NAMED ECPTO IN THIS ROUTINE, DOES NOT C CONTAIN DISPLACEMENT VECTOR COMPONENTS. C INTEGER SYSBUF,BUFFR1,BUFFR2,BUFFR3,CSTM,ECPTS,ECPTO,GPCT, 1 DIT,PLACNT,PLANOS,SETNO,FROWIC,EOR,CLSRW,OUTRW, 2 BUFFR4,PLSETN,FILE,ECPTOT DOUBLE PRECISION DZ,DPWORD,DDDDDD DIMENSION DZ(1),IZ(1),INPVT(2),NAME(2),MCBKGG(7),P(4), 1 ECPTOT(7),PLANOS(2),IP(4),NWDSP2(40),TUBSAV(16) COMMON /BLANK / PLACNT,PLSETN,PLFACT(2) COMMON /SYSTEM/ SYSBUF,ISKPU(53),IPREC COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ COMMON /ZZZZZZ/ Z(1) COMMON /PLA42S/ XXXXXX(325) COMMON /PLA42D/ DDDDDD(300) COMMON /PLA42E/ ECPT(100) COMMON /PLA42C/ NPVT,GAMMA,GAMMAS,IPASS,ICSTM,NCSTM,IGPCT,NGPCT, 1 IPOINT,NPOINT,I6X6K,N6X6K,CSTM,MPT,ECPTS,GPCT, 2 DIT,KGGNL,ECPTO,INRW,OUTRW,EOR,NEOR,CLSRW,JMAX, 3 FROWIC,LROWIC,NROWSC,NLINKS,NWORDS(40),IOVRLY(40), 4 LINK(40),NOGO COMMON /ZBLPKX/ DPWORD,DUM(2),INDEX COMMON /PLA4ES/ WORDES(300) COMMON /PLA4UV/ WORDUV(25) EQUIVALENCE (Z(1),IZ(1),DZ(1)) ,(P(1),IP(1)) DATA NAME / 4HPLA4,4H2 /, PLANOS / 1103, 11 / DATA NWDSP2/ 20, 0, 19, 0, 0, 1 33, 0, 0, 27, 20, 2 5*0, 3 32, 27, 32, 38, 0, 4 13*0, 45, 6*0/ C C DO 5 I = 1,40 5 IOVRLY(I) = 1 C C DETERMINE SIZE OF VARIABLE CORE AND SET UP BUFFERS C IZMAX = KORSZ(Z) BUFFR1 = IZMAX - SYSBUF BUFFR2 = BUFFR1 - SYSBUF BUFFR3 = BUFFR2 - SYSBUF BUFFR4 = BUFFR3 - SYSBUF LEFTT = BUFFR4 - 1 IPASS = PLACNT - 1 IPR = IPREC C C READ THE CSTM INTO CORE C FILE = CSTM NCSTM = 0 ICSTM = 0 CALL OPEN (*20,CSTM,Z(BUFFR1),INRW) CALL SKPREC (CSTM,1) CALL READ (*9020,*10,CSTM,Z(ICSTM+1),LEFTT,EOR,NCSTM) CALL MESAGE (-8,0,NAME) 10 LEFTT = LEFTT - NCSTM C C PRETRD SETS UP SUBSEQUENT CALLS TO TRANSD C CALL PRETRD (Z(ICSTM+1),NCSTM) CALL PRETRS (Z(ICSTM+1),NCSTM) CALL CLOSE (CSTM,CLSRW) 20 IMAT = NCSTM C C SEARCH THE MPT FOR THE PLAFACT CARDS. C FILE = MPT CALL PRELOC (*9010,Z(BUFFR1-3),MPT) CALL LOCATE (*9040,Z(BUFFR1-3),PLANOS,IFLAG) C C FIND THE CORRECT PLA SET NO. C 30 CALL FREAD (MPT,SETNO,1,0) IF (SETNO .EQ. PLSETN) GO TO 50 40 CALL FREAD (MPT,NN,1,0) IF (NN .EQ. (-1)) GO TO 30 GO TO 40 C C SKIP THE PROPER NO. OF WORDS ON THE PLFACT CARD SO THAT GAMMA AND C GAMMAS (GAMMA STAR) WILL BE CORRECTLY COMPUTED. C 50 IF (PLACNT .LE. 4) GO TO 60 CALL FREAD (MPT,0,-(PLACNT-4),0) 60 NWDSRD = 4 IF (PLACNT .LT. 4) NWDSRD = PLACNT CALL FREAD (MPT,P,NWDSRD,0) IF (PLACNT - 3) 70,80,90 70 GAMMAS = 0.0 PLFACT(1) = P(2) - P(1) GAMMA = PLFACT(1)/P(1) GO TO 100 80 WORD = P(2) - P(1) PLFACT(1) = P(3) - P(2) GAMMAS = WORD/P(1) GAMMA = PLFACT(1)/WORD GO TO 100 90 WORD = P(3) - P(2) PLFACT(1) = P(4) - P(3) GAMMAS = WORD/(P(2)-P(1)) GAMMA = PLFACT(1)/WORD 100 PLFACT(2) = 0.0 CALL CLOSE (MPT,CLSRW) C C CALL PREMAT TO READ MPT AND DIT INTO CORE. NOTE NEGATIVE FILE NO. C FOR DIT TO TRIGGER PLA FLAG IN SUBROUTINE PREMAT. C CALL PREMAT (Z(IMAT+1),Z(IMAT+1),Z(BUFFR1),LEFTT,MATCR,MPT,-DIT) LEFTT = LEFTT - MATCR IGPCT = NCSTM + MATCR C C OPEN KGGNL, ECPTO, ECPTS, AND GPCT C IFILE = KGGNL CALL GOPEN (KGGNL,Z(BUFFR1),1) CALL MAKMCB (MCBKGG,KGGNL,0,6,IPR) CALL GOPEN (ECPTO,Z(BUFFR2),1) CALL MAKMCB (ECPTOT,ECPTO,0,0,0) CALL GOPEN (ECPTS,Z(BUFFR3),0) CALL GOPEN (GPCT,Z(BUFFR4),0) C C READ THE FIRST TWO WORDS OF NEXT GPCT RECORD INTO INPVT(1). C INPVT(1) IS THE PIVOT POINT. INPVT(1) .GT. 0 IMPLIES THE PIVOT C POINT IS A GRID POINT. INPVT(1) .LT. 0 IMPLIES THE PIVOT POINT C IS A SCALAR POINT. INPVT(2) IS THE NUMBER OF WORDS IN THE C REMAINDER OF THIS RECORD OF THE GPCT. C 130 FILE = GPCT CALL READ (*1000,*700,GPCT,INPVT(1),2,NEOR,IFLAG) NGPCT = INPVT(2) CALL FREAD (GPCT,IZ(IGPCT+1),NGPCT,1) IF (INPVT(1) .LT. 0) GO TO 700 C C FROWIC IS THE FIRST ROW IN CORE. (1 .LE. FROWIC .LE. 6) C FROWIC = 1 C C DECREMENT THE AMOUNT OF CORE REMAINING. C LEFT = LEFTT - 2*NGPCT IF (LEFT .LE. 0) CALL MESAGE (-8,0,NAME) IPOINT = IGPCT + NGPCT NPOINT = NGPCT I6X6K = IPOINT + NPOINT I6X6K = (I6X6K - 1)/2 + 2 C C CONSTRUCT THE POINTER TABLE, WHICH WILL ENABLE SUBROUTINE PLA4B TO C INSERT THE 6 X 6 MATRICES INTO KGGNL. C IZ(IPOINT+1) = 1 I1 = 1 I = IGPCT J = IPOINT + 1 140 I1 = I1 + 1 IF (I1 .GT. NGPCT) GO TO 150 I = I + 1 J = J + 1 INC= 6 IF (IZ(I) .LT. 0) INC = 1 IZ(J) = IZ(J-1) + INC GO TO 140 C C JMAX = NO. OF COLUMNS OF KGGNL THAT WILL BE GENERATED WITH THE C CURRENT GRID POINT. C 150 INC = 5 ILAST = IGPCT + NGPCT JLAST = IPOINT + NPOINT IF (IZ(ILAST) .LT. 0) INC = 0 JMAX = IZ(JLAST) + INC C C IF 2*6*JMAX .LT. LEFT, THERE ARE NO SPILL LOGIC PROBLEMS FOR KGGNL C SINCE THE WHOLE DOUBLE PRECISION SUBMATRIX OF ORDER 6 X JMAX CAN C FIT IN CORE. C ITEMP = 6*JMAX IF (2*ITEMP .LT. LEFT) GO TO 170 NAME(2) = INPVT(1) CALL MESAGE (30,85,NAME) NROWSC = 3 160 IF (2*NROWSC*JMAX .LT. LEFT) GO TO 180 NROWSC = NROWSC - 1 IF (NROWSC .EQ. 0) CALL MESAGE (-8,0,NAME) GO TO 160 170 NROWSC = 6 C C LROWIC IS THE LAST ROW IN CORE. (1 .LE. LROWIC .LE. 6) C 180 LROWIC = FROWIC + NROWSC - 1 C C ZERO OUT THE KGGD SUBMATRIX IN CORE. C 185 LOW = I6X6K + 1 LIM = I6X6K + JMAX*NROWSC DO 190 I = LOW,LIM 190 DZ(I) = 0.0D0 C C INITIALIZE THE LINK VECTOR TO -1. C DO 200 I = 1,NLINKS 200 LINK(I) = -1 C C TURN FIRST PASS INDICATOR ON. C IFIRST = 1 C C READ THE 1ST WORD OF THE ECPT RECORD, THE PIVOT POINT, INTO NPVT. C IF NPVT .LT. 0, THE REMAINDER OF THE ECPT RECORD IS NULL SO THAT C 1 OR 6 NULL COLUMNS MUST BE GENERATED C FILE = ECPTS CALL FREAD (ECPTS,NPVT,1,0) IF (NPVT .LT. 0) GO TO 700 C C WRITE PIVOT POINT ON ECPTNL1 (ECPTO) C CALL WRITE (ECPTO,NPVT,1,NEOR) C C READ THE NEXT ELEMENT TYPE INTO THE CELL ITYPE. C 220 CALL READ (*9020,*500,ECPTS,ITYPE,1,NEOR,IFLAG) C C READ THE ECPT ENTRY FOR THE CURRENT TYPE INTO THE ECPT ARRAY. THE C NUMBER OF WORDS TO BE READ WILL BE NWORDS(ITYPE). C IF (NWORDS(ITYPE) .LE. 0) CALL MESAGE (-30,61,NAME) CALL FREAD (ECPTS,ECPT,NWORDS(ITYPE),0) ITEMP = IOVRLY(ITYPE) C C IF THIS IS THE 1ST ELEMENT READ ON THE CURRENT PASS OF THE ECPT C CHECK TO SEE IF THIS ELEMENT IS IN A LINK THAT HAS ALREADY BEEN C PROCESSED. C IF (IFIRST .EQ. 1) GO TO 230 C C THIS IS NOT THE FIRST PASS. IF ITYPE(TH) ELEMENT ROUTINE IS IN C CORE, PROCESS IT. C IF (ITEMP .EQ. LINCOR) GO TO 235 C C THE ITYPE(TH) ELEMENT ROUTINE IS NOT IN CORE. IF THIS ELEMENT C ROUTINE IS IN A LINK THAT ALREADY HAS BEEN PROCESSED READ THE NEXT C ELEMENT. C IF (LINK(ITEMP) .EQ. 1) GO TO 220 C C SET A TO BE PROCESSED LATER FLAG FOR THE LINK IN WHICH THE ELEMENT C RESIDES C LINK(ITEMP) = 0 GO TO 220 C C SINCE THIS IS THE FIRST ELEMENT TYPE TO BE PROCESSED ON THIS PASS C OF THE ECPT RECORD, A CHECK MUST BE MADE TO SEE IF THIS ELEMENT C IS IN A LINK THAT HAS ALREADY BEEN PROCESSED. IF IT IS SUCH AN C ELEMENT, WE KEEP IFIRST = 1 AND READ THE NEXT ELEMENT. C 230 IF (LINK(ITEMP) .EQ. 1) GO TO 220 C C SET THE CURRENT LINK IN CORE = ITEMP AND IFIRST = 0 C LINCOR = ITEMP IFIRST = 0 C C CALL THE PROPER ELEMENT ROUTINE. C C ROD BEAM TUBE SHEAR TWIST C 1 2 3 4 5 235 GO TO ( 240, 999, 250, 999, 999, C TRIA1 TRBSC TRPLT TRMEM CONROD C 6 7 8 9 10 1 260, 999, 999, 270, 240, C ELAS1 ELAS2 ELAS3 ELAS4 QDPLT C 11 12 13 14 15 2 999, 999, 999, 999, 999, C QDMEM TRIA2 QUAD2 QUAD1 DAMP1 C 16 17 18 19 20 3 280, 290, 300, 310, 999, C DAMP2 DAMP3 DAMP4 VISC MASS1 C 21 22 23 24 25 4 999, 999, 999, 999, 999, C MASS2 MASS3 MASS4 CONM1 CONM2 C 26 27 28 29 30 5 999, 999, 999, 999, 999, C PLOTEL REACT QUAD3 BAR CONE C 31 32 33 34 35 6 999, 999, 999, 320, 999, C TRIARG TRAPRG CTORDRG CORE CAP C 36 37 38 39 40 7 999, 999, 999, 999, 999),ITYPE C C ROD, CONROD C 240 CALL PKROD C C IF THE ELEMENT IS A TUBE, RESTORE THE SAVED ECPTNL ENTRY AND STORE C THE UPDATED VARIABLES IN PROPER SLOTS. C IF (ITYPE .NE. 3) GO TO 400 DO 245 I = 1,16 245 ECPT(I) = TUBSAV(I) ECPT(17) = ECPT(18) ECPT(18) = ECPT(19) ECPT(19) = ECPT(20) GO TO 400 C C THIS IS A TUBE ELEMENT. REARRANGE THE ECPT FOR THE TUBE SO THAT C IT IS IDENTICAL TO THE ONE FOR THE ROD. C C SAVE THE ECPT ENTRY FOR THE TUBE EXCEPT FOR THE 3 WORDS WHICH WILL C BE UPDATED BY THE PKROD ROUTINE AND THE TRANSLATIONAL COMPONENTS C OF THE DISPLACEMENTS VECTORS. C 250 DO 255 I = 1,16 255 TUBSAV(I) = ECPT(I) C C COMPUTE AREA, TORSIONAL INERTIA TERM AND STRESS COEFFICIENT. C D = ECPT(5) T = ECPT(6) DMT = D - T A = DMT*T*PI FJ= .25*A*(DMT**2 + T**2) C = D/2.0 C C MOVE THE END OF THE ECPT ARRAY DOWN ONE SLOT SO THAT ENTRIES 7 C THROUGH 25 WILL BE MOVED TO POSITIONS 8 THROUGH 26. C M = 26 DO 257 I = 1,19 ECPT(M) = ECPT(M-1) 257 M = M - 1 ECPT(5) = A ECPT(6) = FJ ECPT(7) = C GO TO 240 C C TRIA1 C 260 CALL PKTRI1 GO TO 400 C C TRMEM C 270 CALL PKTRM GO TO 400 C C QDMEM C 280 CALL PKQDM GO TO 400 C C TRIA2 C 290 CALL PKTRI2 GO TO 400 C C QUAD2 C 300 CALL PKQAD2 GO TO 400 C C QUAD1 C 310 CALL PKQAD1 GO TO 400 C C BAR C 320 CALL PKBAR C C WRITE ELEMENT TYPE AND UPDATED ECPT ENTRY ONTO ECPTNL1 (ECPTO) C 400 CALL WRITE (ECPTO,ITYPE,1,NEOR) CALL WRITE (ECPTO,ECPT,NWDSP2(ITYPE),NEOR) ECPTOT(2) = ECPTOT(2) + 1 GO TO 220 C C AT STATEMENT NO. 500 WE HAVE HIT AN EOR ON THE ECPT FILE. SEARCH C THE LINK VECTOR TO DETERMINE IF THERE ARE LINKS TO BE PROCESSED. C 500 LINK(LINCOR) = 1 DO 510 I = 1,NLINKS IF (LINK(I) .EQ. 0) GO TO 520 510 CONTINUE GO TO 525 C C SINCE AT LEAST ONE LINK HAS NOT BEEN PROCESSED THE ECPT FILE MUST C BE BACKSPACED. C 520 CALL BCKREC (ECPTS) GO TO 150 525 IF (NOGO .EQ. 1) CALL MESAGE (-61,0,0) C C AT THIS POINT BLDPK THE NUMBER OF ROWS IN CORE ONTO THE KGGNL FILE C I1 = 0 540 I2 = 0 IBEG = I6X6K + I1*JMAX CALL BLDPK (2,IPR,IFILE,0,0) 550 I2 = I2 + 1 IF (I2 .GT. NGPCT) GO TO 570 JJ = IGPCT + I2 INDEX = IABS(IZ(JJ)) - 1 LIM = 6 IF (IZ(JJ) .LT. 0) LIM = 1 JJJ = IPOINT + I2 KKK = IBEG + IZ(JJJ) - 1 I3 = 0 560 I3 = I3 + 1 IF (I3 .GT. LIM) GO TO 550 INDEX = INDEX + 1 KKK = KKK + 1 DPWORD = DZ(KKK) IF (DPWORD .NE. 0.0D0) CALL ZBLPKI GO TO 560 570 CALL BLDPKN (IFILE,0,MCBKGG) I1 = I1 + 1 IF (I1 .LT. NROWSC) GO TO 540 C C WRITE AN EOR ON ECPTO C CALL WRITE (ECPTO,0,0,EOR) C C TEST TO SEE IF THE LAST ROW IN CORE, LROWIC, = THE TOTAL NO. OF C ROWS TO BE COMPUTED = 6. IF IT IS, WE ARE DONE. IF NOT, THE C ECPTS MUST BE BACKSPACED. C IF (LROWIC .EQ. 6) GO TO 130 CALL BCKREC (ECPTS) FROWIC = FROWIC + NROWSC LROWIC = LROWIC + NROWSC GO TO 185 700 IF (NOGO .EQ. 1) CALL MESAGE (-61,0,0) C C HERE WE HAVE A PIVOT POINT WITH NO ELEMENTS CONNECTED, SO THAT C NULL COLUMNS MUST BE OUTPUT ON THE KGGD FILE. C FILE = ECPTS LIM = 6 IF (INPVT(1) .LT. 0) LIM = 1 DO 710 I = 1,LIM CALL BLDPK (2,IPR,IFILE,0,0) 710 CALL BLDPKN (KGGNL,0,MCBKGG) CALL SKPREC (ECPTS,1) C C WRITE PIVOT POINT ON ECPTO C CALL WRITE (ECPTO,NPVT,1,EOR) GO TO 130 C C CHECK NOGO FLAG. IF NOGO = 1, TERMINATE EXECUTION C 1000 IF (NOGO .EQ. 1) CALL MESAGE (-61,0,0) C C WRAP UP BEFORE RETURN C CALL CLOSE (ECPTS,CLSRW) CALL CLOSE (ECPTO,CLSRW) CALL CLOSE (GPCT,CLSRW) CALL CLOSE (KGGNL,CLSRW) MCBKGG(3) = MCBKGG(2) CALL WRTTRL (MCBKGG) CALL WRTTRL (ECPTOT) RETURN C C ERROR RETURNS C 9010 CALL MESAGE (-1,FILE,NAME) 9020 CALL MESAGE (-2,FILE,NAME) 9040 CALL MESAGE (-4,FILE,NAME) 999 CALL MESAGE (-30,92,ITYPE) RETURN END ================================================ FILE: mis/pla4b.f ================================================ SUBROUTINE PLA4B (KE,J) C***** C THIS ROUTINE IS THE INSERTION ROUTINE FOR THE PLA4 MODULE. IT ADDS C THE 6 X 6 DOUBLE PRECISION MATRIX KE TO THE SUBMATRIX OF ORDER C 6 X JMAX C***** DOUBLE PRECISION 1 DZ(1) ,KE(36) C C C INTEGER 1 FROWIC ,IZ(1) C C VARIABLE CORE C COMMON /ZZZZZZ/ 1 Z(1) C C PLA42 COMMUNICATIONS BLOCK C COMMON /PLA42C/ 1 IDUM5(6) 2, IGPCT ,NGPCT 3, IPOINT ,NPOINT 4, I6X6K ,N6X6K 5, IDUM11(12) 6, JMAX ,FROWIC 7, LROWIC ,NROWSC 8, IDUM(121) C C C EQUIVALENCE 1 (DZ(1),Z(1),IZ(1)) C C SEARCH THE GPCT AND FIND AN INDEX M SUCH THAT C IABS(GPCT(M)) .LE. J .LT. IABS(GPCT(M+1)) C LOW = IGPCT + 1 LIM = NGPCT + LOW - 2 IF (LOW .GT. LIM) GO TO 15 DO 10 I = LOW,LIM ISAVE = I IF (J .GE. IABS(IZ(I+1)) ) GO TO 10 IF (J .GE. IABS(IZ(I)) ) GO TO 20 10 CONTINUE IF (J .GE. IABS(IZ(ISAVE+1)) ) ISAVE = ISAVE + 1 GO TO 20 15 ISAVE = LOW C C ADD KE TO THE SUBMATRIX C 20 L1 = FROWIC - 1 JJ = IPOINT + ISAVE - IGPCT J2 = IZ(JJ) - 1 I1 = 0 LIM = NROWSC - 1 30 IF (I1 .GT. LIM) RETURN K1 = I6X6K + I1*JMAX + J2 J1 = 0 L = 6*L1 K = K1 40 J1 = J1 + 1 IF (J1 .GT. 6) GO TO 50 K = K + 1 L = L + 1 DZ(K) = DZ(K) + KE(L) GO TO 40 50 I1 = I1 + 1 L1 = L1 + 1 GO TO 30 END ================================================ FILE: mis/plamat.f ================================================ SUBROUTINE PLAMAT C THIS ROUTINE RETURNS GP ROTATED FOR PLA3 AND PLA4 C DIMENSION X(27) COMMON /MATIN / MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 , DUMMY(14) COMMON /PLAGP / GP(9) , MIDGP , ELID C C TEST TO SEE IF INCOMING MATERIAL ID IS EQUAL TO MATERIAL ID IN C PLAGP. IF NOT USE REGULAR CALL TO MAT TO GET GP C IF( MIDGP .NE. MATID ) GO TO 10 C C T C TRANSFORM G , G = U * G * U C P P P C X(1) = COSTH**2 X(2) = SINTH**2 X(3) = COSTH * SINTH X(4) = X(2) X(5) = X(1) X(6) = -X(3) X(7) = 2.0 * X(6) X(8) = -X(7) X(9) = X(1) - X(2) CALL GMMATS(GP(1),3,3,0,X( 1),3,3,0,X(19)) CALL GMMATS(X( 1),3,3,1,X(19),3,3,0,X(10)) G11 = X(10) G12 = X(11) G13 = X(12) G22 = X(14) G23 = X(15) G33 = X(18) RETURN 10 INFLAG = 2 CALL MAT (ELID) RETURN END ================================================ FILE: mis/pload.f ================================================ SUBROUTINE PLOAD C INTEGER NAME(2),GRIDP,PONT DIMENSION GRIDP(5),IGPCO(4,4),GPCO1(3),GPCO2(3),GPCO3(3), 1 PONT(4),IORD(4),VECT(3),VECT1(3),VECT2(3), 2 PLOADS(3,4),GPCO4(3),VECT3(3) COMMON /LOADX / LCORE,SLT,BGPDT,OLD,CSTM,NN(11),NOBLD COMMON /SYSTEM/ KSYS(87),KSYS88 COMMON /ZZZZZZ/ CORE(1) EQUIVALENCE (PMAG,GRIDP(1)), 1 (IGPCO(2,1),GPCO1(1)),(IGPCO(2,2),GPCO2(1)), 2 (IGPCO(2,3),GPCO3(1)),(IGPCO(2,4),GPCO4(1)) DATA NAME / 4HPLOA,4HD /, PI / 3.141592654 / C C DO 10 I = 1,3 10 PLOADS(I,4) = 0.0 CALL READ (*150,*150,SLT,GRIDP(1),5,0,FLAG) PONT(1) = GRIDP(2) PONT(2) = GRIDP(3) PONT(3) = GRIDP(4) PONT(4) = GRIDP(5) N1 = 4 IF (GRIDP(5) .EQ. 0) N1 = 3 CALL PERMUT (PONT(1),IORD(1),N1,OLD) DO 20 I = 1,N1 L = IORD(I) 20 CALL FNDPNT (IGPCO(1,L),PONT(L)) IF (N1 .EQ. 4) GO TO 160 C C THREE POINTS C DO 30 I = 1,3 VECT3(I) = GPCO1(I) - GPCO2(I) VECT2(I) = GPCO3(I) - GPCO1(I) 30 VECT1(I) = GPCO2(I) - GPCO3(I) CALL CROSS (VECT3(1),VECT1(1),VECT(1)) C DO 40 I = 1,3 DO 40 J = 1,3 40 PLOADS(J,I) = -VECT(J) C IF (KSYS88 .EQ. 1) GO TO 50 C C KSYS88 = 0, PRESSURE LOAD IS DISTRIBUTED EVENLY (ONE-THIRD) TO C EACH OF THE 3 GRID POINTS. TRIANGULAR GEOMETRY IS NOT CONSIDERED. C PMAG = PMAG/6 VECT(1) = PMAG VECT(2) = PMAG VECT(3) = PMAG GO TO 80 C C IMPLEMENTED BY G.CHAN/UNISYS 3/1990 C KSYS88 = 1, PRESSURE LOAD IS DISTRIBUTED PROPORTIONALLY TO THE C THREE ANGLE SIZES. C E.G. A 45-90-45 DEGREE TRIANGLE ELEMENT WILL HAVE TWICE THE LOAD C AT THE 90 DEGREE ANGLE TO THAT OF THE 45 DEGREE ANGLE. C RECTANGULAR ELEMENT (4 POINTS) IS NOT AFFECTED C C GET AREA(2X), SIDES (VI) AND ANGLES (AI) OF THE TRIANGLE C 50 CONTINUE AREA = SQRT(VECT (1)**2 + VECT (2)**2 + VECT (3)**2) V1 = SQRT(VECT1(1)**2 + VECT1(2)**2 + VECT1(3)**2) V2 = SQRT(VECT2(1)**2 + VECT2(2)**2 + VECT2(3)**2) V3 = SQRT(VECT3(1)**2 + VECT3(2)**2 + VECT3(3)**2) C C CHOOSE AN ANGLE, WHICH IS NOT THE LARGEST, TO START COMPUTING C THE THREE ANGLES C IF (V2.GT.V1 .AND. V2.GT.V3) GO TO 60 SIN2 = AREA/(V3*V1) SIN1 = V1*SIN2/V2 SIN3 = V3*SIN2/V2 A2 = ASIN(SIN2) IF (SIN1 .GE. 0.0) A1 = ASIN(SIN1) IF (SIN3 .GE. 0.0) A3 = ASIN(SIN3) IF (V1 .GT. V3) A1 = PI - A2 - A3 IF (V3 .GT. V1) A3 = PI - A2 - A1 GO TO 70 C 60 SIN3 = AREA/(V2*V1) SIN2 = V2*SIN3/V3 SIN1 = V1*SIN3/V3 A3 = ASIN(SIN3) IF (SIN2 .GE. 0.0) A2 = ASIN(SIN2) IF (SIN1 .GE. 0.0) A1 = ASIN(SIN1) IF (V1 .GT. V2) A1 = PI - A3 - A2 IF (V2 .GT. V1) A2 = PI - A3 - A1 70 PMAG = 0.5*PMAG/PI VECT(1) = PMAG*A1 VECT(2) = PMAG*A2 VECT(3) = PMAG*A3 C C TRANSFORM TO GLOBAL AND ADD CONTRIBUTIONS C 80 DO 130 I = 1,N1 DO 90 J = 1,3 IF (N1 .EQ. 4) PLOADS(J,I) = -PLOADS(J,I)*PMAG IF (N1 .EQ. 3) PLOADS(J,I) = -PLOADS(J,I)*VECT(I) 90 CONTINUE IF (IGPCO(1,I) .NE. 0) CALL BASGLB (PLOADS(1,I),PLOADS(1,I), 1 IGPCO(2,I),IGPCO(1,I)) CALL FNDSIL (PONT(I)) DO 120 J = 1,3 IN = PONT(I) + J - 1 CORE(IN) = PLOADS(J,I) + CORE(IN) 120 CONTINUE 130 CONTINUE 140 RETURN C 150 CALL MESAGE (-1,SLT,NAME) GO TO 140 C C FOUR POINTS C C C TRIANGLE 1,2,3 C 160 DO 170 I = 1,3 VECT1(I) = GPCO1(I) - GPCO2(I) 170 VECT2(I) = GPCO3(I) - GPCO2(I) CALL CROSS (VECT1(1),VECT2(1),VECT(1)) DO 180 I = 1,3 DO 180 J = 1,3 180 PLOADS(J,I) = VECT(J) C C TRIANGLE 2,3,4 C DO 190 I =1,3 VECT1(I) = GPCO2(I) - GPCO3(I) 190 VECT2(I) = GPCO4(I) - GPCO3(I) CALL CROSS (VECT1(1),VECT2(1),VECT(1)) DO 200 I = 2,4 DO 200 J = 1,3 200 PLOADS(J,I) = PLOADS(J,I) + VECT(J) C C TRIANGLE 3,1,4 C DO 210 I = 1,3 VECT1(I) = GPCO4(I) - GPCO1(I) 210 VECT2(I) = GPCO3(I) - GPCO1(I) CALL CROSS (VECT1(1),VECT2(1),VECT(1)) DO 230 I = 1,4 IF (I .EQ. 2) GO TO 230 DO 220 J = 1,3 220 PLOADS(J,I) = PLOADS(J,I)+VECT(J) 230 CONTINUE C C TRIANGLE (4,1,2) C DO 240 I = 1,3 VECT1(I) = GPCO4(I) - GPCO1(I) 240 VECT2(I) = GPCO2(I) - GPCO1(I) CALL CROSS (VECT1(1),VECT2(1),VECT(1)) DO 260 I = 1,4 IF (I .EQ. 3) GO TO 260 DO 250 J = 1,3 250 PLOADS(J,I) = PLOADS(J,I) + VECT(J) 260 CONTINUE PMAG = PMAG/12.0 GO TO 80 END ================================================ FILE: mis/pload1.f ================================================ SUBROUTINE PLOAD1 (OPT,ISLT,V,SA,SB,BA,BB,PA,PB,TA,TB,SLT,EPT) C C PLOAD1 CALCULATES THE END LOADS ON A BAR ELEMENT FOR PLOAD1 LOADS C IT IS CALLED ONLY BY PLBAR1 C C OPT = 1, CALLED FROM PLBAR1/EXTERN, 2, CALLED FROM SDRX C SLT = PLOAD1 CARD C V = REFERENCE VECTOR IN BASIC C SA = OFFSET VECTOR IN BASIC POINT A C SB = OFFSET VECTOR IN BASIC POINT B C BA = BASIC COORD FOR POINT A C BB = BASIC COORD FOR POINT B C PA = LOAD VECOTR FOR POINT A C PB = LOAD VECOTR FOR POINT B C TA,TB = TRANSFORMATION MATRICES FOR A AND B ONLY USED WITH OPT 1 C EPT = POINTER TO EST C INTEGER OPT,OLDID,TYPE,SCALE,ISLT(7) REAL LEN DOUBLE PRECISION AX,AY,AZ,BX,BY,BZ,DX1,DX2,DL,DT,DFX1,DFY1,DFZ1, 1 DFX2,DFY2,DFZ2,S1,S2,S3,S4,S5, 2 I01,I11,I21,I31,I41,I02,I12,I22,I32,I42 DIMENSION V(3),SA(3),SB(3),BA(3),BB(3),PA(6),PB(6),EPT(32), 1 A(3),B(3),C(3),D(9),E(9),SLT(7),TA(9),TB(9),TP(3) COMMON /MATOUT/ F,G EQUIVALENCE (A(1),E(1)),(B(1),E(7)),(C(1),E(4)) DATA OLDID , D / 10*0 / C IF (OLDID .EQ. ISLT(1)) GO TO 20 OLDID = ISLT(1) C C CALCULATE AXIS AND LENGTH, AND THE E MATRIX C A(1) = BB(1)-BA(1) + SB(1)-SA(1) A(2) = BB(2)-BA(2) + SB(2)-SA(2) A(3) = BB(3)-BA(3) + SB(3)-SA(3) LEN = SQRT(SADOTB(A,A)) IF (LEN .EQ. 0.0) GO TO 380 A(1) = A(1)/LEN A(2) = A(2)/LEN A(3) = A(3)/LEN CALL SAXB (A,V,B) C TEMP = SQRT(SADOTB(B,B)) IF (TEMP .EQ. 0.0) GO TO 380 B(1) = B(1)/TEMP B(2) = B(2)/TEMP B(3) = B(3)/TEMP CALL SAXB (B,A,C) C C TRANSVERSE SHEAR C TEMP = EPT(31)*EPT(17)*G*LEN**2 TMP = 12.0*F*EPT(18) ALY = 0.0 IF (ABS(TEMP+TMP) .GT. 1.0E-14) ALY = TMP/(TMP+TEMP) OMALY = 1.0 - ALY C TEMP = (TEMP/EPT(31))*EPT(32) TMP = 12.0*F*EPT(19) ALZ = 0.0 IF (ABS(TEMP+TMP) .GT. 1.0E-14) ALZ = TMP/(TMP+TEMP) OMALZ = 1.0 - ALZ C C START BUILDING THE FORCES AND MOMENTS C 20 TYPE = ISLT(2) SCALE = ISLT(3) X1 = SLT(4) F1 = SLT(5) X2 = SLT(6) F2 = SLT(7) I = (TYPE-1)/6 + 1 J = MOD(TYPE,6) IF (J .EQ. 0) GO TO 60 GO TO (30,30,30,40,50,60), J 30 FX1 = A(J)*F1 FY1 = C(J)*F1 FZ1 = B(J)*F1 FX2 = A(J)*F2 FY2 = C(J)*F2 FZ2 = B(J)*F2 GO TO 100 40 FX1 = F1 FY1 = 0.0 FZ1 = 0.0 FX2 = F2 FY2 = 0.0 FZ2 = 0.0 GO TO 100 50 FX1 = 0.0 FY1 = F1 FZ1 = 0.0 FX2 = 0.0 FY2 = F2 FZ2 = 0.0 GO TO 70 60 FX1 = 0.0 FY1 = 0.0 FZ1 = F1 FX2 = 0.0 FY2 = 0.0 FZ2 = F2 70 J = 4 C C SCALED C 100 IF (SCALE.EQ.2 .OR. SCALE.EQ.4) GO TO 110 X1 = X1/LEN X2 = X2/LEN C C DISTRIBUTED SCALED LOADS C 110 IF (X1 .EQ. X2) GO TO 220 IF (SCALE.LE.2 .OR. J.EQ.4) GO TO 120 FSCALE = SQRT(1.0-A(J)**2) FX1 = FSCALE*FX1 FY1 = FSCALE*FY1 FZ1 = FSCALE*FZ1 FX2 = FSCALE*FX2 FY2 = FSCALE*FY2 FZ2 = FSCALE*FZ2 C C DISTRIBUTED LOADS C 120 DX1 = X1 DX2 = X2 DL = LEN DFX1 = FX1 DFY1 = FY1 DFZ1 = FZ1 DFX2 = FX2 DFY2 = FY2 DFZ2 = FZ2 S1 = DX2 - DX1 S2 = .5000000D0*(DX2**2 - DX1**2) S3 = .3333333D0*(DX2**3 - DX1**3) S4 = .2500000D0*(DX2**4 - DX1**4) S5 = .2000000D0*(DX2**5 - DX1**5) IF (I .EQ. 2) GO TO 140 C C FORCES C I01 = DL*(S1-S2) I11 = DL*(S1-3.0D0*S3 + 2.0D0*S4) I21 = DL*( 3.0D0*S3 - 2.0D0*S4) I31 = DL*(S2-2.0D0*S3 + S4) I41 = DL*(S4-S3) DT = DL*DL I02 = DT*(S2-S3) IF (F1 .EQ. F2) GO TO 130 I12 = DT*(S2-3.0D0*S4 + 2.0D0*S5) I22 = DT*( 3.0D0*S4 - 2.0D0*S5) I32 = DT*(S3-2.0D0*S4 + S5) I42 = DT*(S5-S4) DT = DL*(DX2-DX1) BX = (DFX2-DFX1)/DT BY = (DFY2-DFY1)/DT BZ = (DFZ2-DFZ1)/DT AX = DFX1 - DX1*BX*DL AY = DFY1 - DX1*BY*DL AZ = DFZ1 - DX1*BZ*DL GO TO 170 130 AX = DFX1 AY = DFY1 AZ = DFZ1 GO TO 160 C C MOMENTS C 140 I01 = DL*(S1-S2) I11 =-6.0D0*(S2-S3) I21 =-I11 I31 = S1 - 4.0D0*S2 + 3.0D0*S3 I41 = - 2.0D0*S2 + 3.0D0*S3 IF (F1 .EQ. F2) GO TO 150 I02 = (S2-S3)*DL**2 I12 =-6.0D0*DL*(S3-S4) I22 =-I12 I32 = DL*(S2-4.0D0*S3 + 3.0D0*S4) I42 =-DL*( 2.0D0*S3 - 3.0D0*S4) DT = (DX2 -DX1)*DL BX = (DFX2-DFX1)/DT BY = (DFZ2-DFZ1)/DT BZ =-(DFY2-DFY1)/DT AX = DFX1 + DX1*BX*DL AY = DFZ1 + DX1*BY*DL AZ =-DFY1 + DX1*BZ*DL GO TO 170 150 AX = DFX1 AY = DFZ1 AZ =-DFY1 160 BX = 0.0D0 BY = 0.0D0 BZ = 0.0D0 I12 = 0.0D0 I22 = 0.0D0 I32 = 0.0D0 I42 = 0.0D0 C C LOADS C 170 PA(1) = I01*AX + I02*BX PA(2) = I11*AY + I12*BY PA(3) = I11*AZ + I22*BZ PA(4) = 0.0 PA(5) =-DL*(I31*AZ + I32*BZ) PA(6) = DL*(I31*AY + I32*BY) DT = DL*DL PB(1) = DL*S2*AX + DT*S3*BX PB(2) = I21 *AY + I22 *BY PB(3) = I21 *AZ + I22 *BZ PB(4) = 0.0 PB(5) =-DL*(I41*AZ + I42*BZ) PB(6) = DL*(I41*AY + I42*BY) IF (I .EQ. 2) GO TO 190 IF (ALY .EQ. 0.0) GO TO 180 PA(2) = OMALY*PA(2) + ALY*( I01*AY + I02*BY ) PA(6) = OMALY*PA(6) + ALY*( I02*AY - I41*BY*DT)*.50 PB(2) = OMALY*PB(2) + ALY*(DL*S2*AY + S3 *BY*DT) PB(6) = OMALY*PB(6) - ALY*( I02*AY - I41*BY*DT)*.50 180 IF (ALZ .EQ. 0.0) GO TO 300 PA(3) = OMALZ*PA(3) + ALZ*( I01*AZ + I02*BZ ) PA(5) = OMALZ*PA(5) - ALZ*( I02*AZ - I41*BZ*DT)*.50 PB(3) = OMALZ*PB(3) + ALZ*(DL*S2*AZ + S3 *BZ*DT) PB(5) = OMALZ*PB(5) + ALZ*( I02*AZ - I41*BZ*DT)*.50 GO TO 300 190 TEMP = PA(1) PA(1) = PA(4) PA(4) = TEMP TEMP = PB(1) PB(1) = PB(4) PB(4) = TEMP IF (ALY .EQ. 0.0) GO TO 200 PA(2) = OMALY*PA(2) PA(6) = OMALY*PA(6) + ALY*(I01*AY + I02*BY) PB(2) = OMALY*PB(2) PB(6) = OMALY*PB(6) + ALY*(DL*S2*AY + S3*BY*DT) 200 IF (ALZ .EQ. 0.0) GO TO 300 PA(3) = OMALZ*PA(3) PA(5) = OMALZ*PA(5) + ALZ*(I01*AZ + I02*BZ) PB(3) = OMALZ*PB(3) PB(5) = OMALZ*PB(5) + ALZ*(DL*S2*AZ + S3*BZ*DT) GO TO 300 C C CONCENTRATED LOADS C 220 TMP = 1.0 - X1 IF (I .EQ. 2) GO TO 230 C C FORCES C TEMP = 1.0 - 3.0*X1**2 + 2.0*X1**3 PA(1) = TMP*FX1 PA(2) = TEMP*FY1*OMALY + FY1*TMP*ALY PA(3) = TEMP*FZ1*OMALZ + FZ1*TMP*ALZ PA(4) = 0.0 TEMP =-LEN*X1*TMP**2 TMP = TMP*LEN*X1*.50 PA(5) = TEMP*FZ1*OMALZ - FZ1*TMP*ALZ PA(6) =-TEMP*FY1*OMALY + FY1*TMP*ALY TEMP = 3.0*X1**2 - 2.0*X1**3 PB(1) = X1*FX1 PB(2) = TEMP*FY1*OMALY + FY1*X1*ALY PB(3) = TEMP*FZ1*OMALZ + FZ1*X1*ALZ PB(4) = 0.0 TEMP = (1.0-X1)*LEN*X1**2 PB(5) = TEMP*FZ1*OMALZ + FZ1*TMP*ALZ PB(6) =-TEMP*FY1*OMALY - FY1*TMP*ALY GO TO 300 C C MOMENTS C 230 TEMP =-(6.0/LEN*X1)*TMP PA(1) = 0.0 PA(2) = TEMP*FZ1*OMALY PA(3) =-TEMP*FY1*OMALZ PA(4) = TMP*FX1 TEMP = 1.0 - 4.0*X1 + 3.0*X1**2 PA(5) = TEMP*FY1*OMALZ + FY1*TMP*ALZ PA(6) = TEMP*FZ1*OMALY + FZ1*TMP*ALY PB(1) = 0.0 PB(2) =-PA(2) PB(3) =-PA(3) PB(4) = X1*FX1 TEMP = 3.0*X1**2 - 2.0*X1 PB(5) = TEMP*FY1*OMALZ + FY1*X1*ALZ PB(6) = TEMP*FZ1*OMALY + FZ1*X1*ALY GO TO 300 C C PIN FLAGS C 300 CALL PLOAPF (EPT,EPT,LEN,PA,PB) C C LOAD VECTORS DONE FOR SDRX C IF (OPT .EQ. 2) GO TO 400 C C TRANSFORM LOAD VECTOR TO GLOBAL C CALL GMMATS (E ,3,3,1,PA(1),3,1,0,TP ) CALL GMMATS (TA,3,3,1,TP ,3,1,0,PA(1)) CALL GMMATS (E ,3,3,1,PB(1),3,1,0,TP ) CALL GMMATS (TB,3,3,1,TP ,3,1,0,PB(1)) CALL GMMATS (E ,3,3,1,PA(4),3,1,0,TP ) CALL GMMATS (TA,3,3,1,TP ,3,1,0,PA(4)) CALL GMMATS (E ,3,3,1,PB(4),3,1,0,TP ) CALL GMMATS (TB,3,3,1,TP ,3,1,0,PB(4)) C DO 310 I = 1,3 IF (SA(I) .NE. 0.0) GO TO 320 310 CONTINUE GO TO 330 320 D(2) =-SA(3) D(3) = SA(2) D(4) = SA(3) D(6) =-SA(1) D(7) =-SA(2) D(8) = SA(1) CALL GMMATS (D,3,3,0,PA(1),3,1,0,TP) PA(4) = PA(4) + TP(1) PA(5) = PA(5) + TP(2) PA(6) = PA(6) + TP(3) C 330 DO 340 I = 1,3 IF (SB(I) .NE. 0.0) GO TO 350 340 CONTINUE GO TO 400 350 D(2) =-SB(3) D(3) = SB(2) D(4) = SB(3) D(6) =-SB(1) D(7) =-SB(2) D(8) = SB(1) CALL GMMATS (D,3,3,0,PB(1),3,1,0,TP) PB(4) = PB(4) + TP(1) PB(5) = PB(5) + TP(2) PB(6) = PB(6) + TP(3) GO TO 400 C C ERROR C 380 CALL MESAGE (-30,31,OLDID) C 400 RETURN END ================================================ FILE: mis/pload3.f ================================================ SUBROUTINE PLOAD3 C C COMPUTES THE CONTRIBUTION TO THE LOAD VECTOR DUE TO PRESSURES C APPLIED TO THE FACES OF ISOPARAMETRIC SOLID ELEMENTS C INTEGER GP(32) ,SEQ(32) ,FACE ,SGNCOL(6) , 1 COL ,TYPE ,CID(32) ,N(3) , 2 IBGPD(4) C DOUBLE PRECISION SHP(32) ,DSHP(3,32) ,JINV(3,3) ,DETJ 1, S(3,2) ,ABSISA ,PFACT ,F(3,32) C REAL BXYZ(3,32) ,BGPD(4) ,P(6) ,RF(3,32) C COMMON /LOADX / LCORE ,SLT ,BGPDT , 1 OLD COMMON /ZZZZZZ/ CORE(1) C EQUIVALENCE (BGPD(1),IBGPD(1),DSHP(1,1)) EQUIVALENCE (SEQ(1),SHP(1)) EQUIVALENCE (N(1),NI) ,(N(2),NJ) ,(N(3),NK) EQUIVALENCE (F(1,1),RF(1,1)) C DATA ABSISA/0.577350269189626D0/ DATA SGNCOL/-3,-2,1,2,-1,3/ C C READ PRESSURES AND GRID POINT ID S FROM THE SLT, DETERMINE C ELEMENT TYPE AND NUMBER OF GRID POINTS AND GET BASIC COORDINATES. C CALL READ(*500,*500,SLT,P,6,0,I) CALL READ(*500,*500,SLT,GP,32,0,I) TYPE=1 NGP=8 IF (GP(9) .EQ. 0) GO TO 10 TYPE=2 NGP=20 IF (GP(21) .EQ. 0) GO TO 10 TYPE=3 NGP=32 10 CALL PERMUT(GP,SEQ,NGP,OLD) DO 30 I=1,NGP J=SEQ(I) CALL FNDPNT(BGPD,GP(J)) CID(J)=IBGPD(1) DO 20 K=1,3 F(K,I)=0.0 BXYZ(K,J)=BGPD(K+1) 20 CONTINUE 30 CONTINUE C C LOOP OVER SIX ELEMENT FACES C DO 300 FACE=1,6 IF (P(FACE) .EQ. 0.0) GO TO 300 J=1 I=ISIGN(J,SGNCOL(FACE)) SGN=FLOAT(I) COL=IABS(SGNCOL(FACE)) DO 50 I=1,3 IF (I .NE. COL) GO TO 40 S(I,1)=SGN N(I)=1 GO TO 50 40 S(I,1)=-ABSISA S(I,2)= ABSISA N(I)=2 50 CONTINUE C C INTEGRATION LOOPS C DO 200 I=1,NI DO 200 J=1,NJ DO 200 K=1,NK C C GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE. C CALL IHEXSD(TYPE,SHP,DSHP,JINV,DETJ,0,S(1,I),S(2,J),S(3,K),BXYZ) IF (DETJ .EQ. 0.0) CALL MESAGE(-61,0,0) PFACT=DETJ*DBLE(SGN*P(FACE)) C C LOOP OVER GRID POINTS C DO 100 L=1,NGP IF (SHP(L) .EQ. 0.0) GO TO 100 DO 60 M=1,3 60 F(M,L)=PFACT*JINV(M,COL)*SHP(L)+F(M,L) 100 CONTINUE 200 CONTINUE 300 CONTINUE J=3*NGP DO 305 I=1,J 305 RF(I,1)=F(I,1) C C TRANSFORM VECTOR TO GLOBAL AND ADD TO GLOBAL LOAD VECTOR. C DO 400 I=1,NGP IF (CID(I) .EQ. 0) GO TO 310 CALL BASGLB(RF(1,I),RF(1,I),BXYZ(1,I),CID(I)) 310 CALL FNDSIL(GP(I)) DO 320 J=1,3 K=GP(I)+J-1 CORE(K)=CORE(K)+RF(J,I) 320 CONTINUE 400 CONTINUE RETURN 500 CALL MESAGE(-61,0,0) RETURN END ================================================ FILE: mis/pload4.f ================================================ SUBROUTINE PLOAD4 (IBUF5,IDO,JOPEN) C C TO GENERATE PLOAD4 PRESSURE LOAD FOR QUAD4 AND TRIA3 ELEMENTS. C C BOTH ELEMENT TYPES MAY BE PRESENT, OR ONLY ONE OF THE TWO IS C PRESENT. C C THIS ROUTINE IS CALLED ONLY BY EXTERN IN SSG1 MODULE, LINK5 C C THIS ROUTINE CALLS PLOD4D OR PLOD4S TO COMPUTE LOAD FOR QUAD4 C ELEMENTS, AND CALLS T3PL4D OR T3PL4S TO COMPUTE LOAD FOR TRIA3 C C IN OVERLAY TREE, THIS ROUTINE SHOULD BE IN PARALLELED WITH FPONT C ROUTINE, AND FOLLOWED BY PLOD4D/S AND T3PL4D/S. I.E. C C ( FPONT C EXTERN ( ( PLOD4D (/ZZSSA1/ C ( PLOAD4 ( PLOD4S C ( T3PL4D C ( T3PL4S C LOGICAL ALLIN,DEBUG INTEGER IZ(1),NAME(2),FILE,SLT,EST,QUAD4,TRIA3,T3,Q4 CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /ZZZZZZ/ CORE(1) COMMON /LOADX / LCARE,SLT,IDUM(5),EST COMMON /SYSTEM/ IBUF,NOUT,JDUM(52),IPREC COMMON /PINDEX/ IEST(45),ISLT(11) COMMON /GPTA1 / NELEM,LAST,INCR,IELEM(1) EQUIVALENCE (CORE(1),IZ(1)) DATA QUAD4 , TRIA3 , NAME / 1 64 , 83 , 4HPLOA,4HD4 / DATA DEBUG / .FALSE. / C C C T3 AND Q4 KEEP TRACK OF THE PRESENCE OF THE CTRIA3 AND CQUAD4 C ELEMENTS C T3 = 0 Q4 = 0 LCORE = IBUF5 - IBUF IDO11 = IDO*11 ALLIN = .FALSE. IF (IDO11 .GT. LCORE) GO TO 400 IF (DEBUG) WRITE (NOUT,300) 300 FORMAT (/,' * PLOAD4 IS CALLED FOR ONE LOAD CASE') C C OPEN CORE IS BIG ENOUGH TO HOLD ALL PLOAD4 DATA. C READ THEM ALL INTO CORE C (BAD NEWS - OPEN CORE AT THIS TIME IS NOT AVAILABLE) C IF (.NOT.ALLIN) GO TO 400 C ALLIN = .TRUE. FILE = SLT IMHERE= 350 CALL READ (*620,*630,SLT,CORE,IDO11,0,FLAG) C C OPEN CORE NOT LARGE ENOUGH TO HOLD ALL PLOAD4 DATA C 400 IF (JOPEN .EQ. 1) GO TO 415 JOPEN = 1 FILE = EST CALL OPEN (*610,EST,CORE(IBUF5),0) CALL FWDREC (*620,EST) FILE = EST 410 CALL READ (*430,*560,EST,IELTYP,1,0,FLAG) 415 IF (IELTYP .EQ. QUAD4) GO TO 440 IF (IELTYP .EQ. TRIA3) GO TO 445 420 CALL FWDREC (*430,EST) GO TO 410 430 IF (T3+Q4 .NE. 0) GO TO 560 WRITE (NOUT,435) UFM 435 FORMAT (A23,', PLOAD4 PRESSURE LOAD IS USED WITHOUT THE PRESENCE', 1 ' OF QUAD4 OR TRIA3 ELEMENT') IMHERE = 435 GO TO 620 C 440 IF (Q4 .GE. 1) GO TO 420 Q4 = 1 IF (DEBUG) WRITE (NOUT,441) T3 441 FORMAT (/,' QUAD4 ELEM FOUND. SETTING Q4 TO 1. T3 =',I3) GO TO 450 445 IF (T3 .EQ. 1) GO TO 420 T3 = 1 IF (DEBUG) WRITE (NOUT,446) Q4 446 FORMAT (/,' TRIA3 ELEM FOUND. SETTING T3 TO 1. Q4 =',I3) 450 J = INCR*(IELTYP-1) NWORDS = IELEM(J+12) IEST(1)= 0 C FILE = SLT IB = 0 IMHERE = 550 DO 550 J = 1,IDO IF (ALLIN) GO TO 460 JSAVE = J IF (J.EQ.1 .AND. T3+Q4.GE.2) GO TO 470 CALL READ (*620,*630,SLT,ISLT,11,0,FLAG) GO TO 470 460 DO 465 I = 1,11 465 ISLT(I) = IZ(I+IB) IB = IB + 11 470 IF (ISLT(1)-IEST(1)) 550,490,480 480 CALL READ (*560,*560,EST,IEST,NWORDS,0,FLAG) GO TO 470 C 490 IF (IELTYP .EQ. TRIA3) GO TO 520 C C PLOAD4 FOR QUAD4 ELEMENT C IF (DEBUG) WRITE (NOUT,500) IEST(1) 500 FORMAT (' ==> PROCESS PLOAD4 FOR QUAD ELEM',I8) GO TO (505,510), IPREC 505 CALL PLOD4S GO TO 550 510 CALL PLOD4D GO TO 550 C C PLOAD4 FOR TRIA3 ELEMENT C SET ISLT(1) TO NEGATIVE FOR PLOAD4/TRIA3 COMPUTATION C 520 IF (DEBUG) WRITE (NOUT,525) IEST(1) 525 FORMAT (' ==> PROCESS PLOAD4 FOR TRIA3 ELEM',I8) ISLT(1) = -IABS(ISLT(1)) GO TO (530,540), IPREC 530 CALL T3PL4S GO TO 550 540 CALL T3PL4D C 550 CONTINUE C 560 IF (T3+Q4 .GE. 2) GO TO 580 C C JUST FINISHED EITHER QUAD4 OR TRIA3 ELEMENT. BACKSPACE EST FILE, C AND BACKSPACE SLT FILE IF SLT DATA ARE NOT ALREADY IN CORE. C REPEAT PLOAD4 (LOAD TYPE 25) COMPUTAION FOR THE OTHER ELEMENT C (TRIA3 OR QUAD4) WHICH WE HAVE NOT YET PROCESSED IN THE FIRST C PASS. MUST STEP OVER OTHER LOADS THAT MIGHT BE PRESENT C CALL BCKREC (EST) Q4 = Q4 + 1 JSAVE = 0 IF (ALLIN) GO TO 410 C CALL BCKREC (SLT) IMHERE = 570 570 CALL READ (*620,*630,SLT,I,1,0,FLAG) IF (I .NE. 25) GO TO 570 IMHERE = 573 CALL READ (*620,*630,SLT,I,1,0,FLAG) IF (I .NE. IDO) GO TO 570 IMHERE = 575 CALL READ (*620,*630,SLT,ISLT,6,0,FLAG) IF (ISLT(6) .NE. -1) GO TO 570 IMHERE = 577 CALL READ (*620,*630,SLT,ISLT(7),5,0,FLAG) IF (ISLT(7) .NE. 0) GO TO 570 JSAVE = 1 GO TO 410 C 580 IF (JOPEN .EQ. 1) CALL CLOSE (EST,1) JOPEN = 0 IF (ALLIN .OR. JSAVE.GE.IDO) GO TO 600 IMHERE = 590 J = (IDO-JSAVE)*11 CALL READ (*640,*640,SLT,0,-J,0,FLAG) 600 RETURN C 610 J = -1 GO TO 650 620 J = -2 GO TO 650 630 J = -3 GO TO 650 640 J = 1 650 WRITE (NOUT,660) IMHERE,T3,Q4,IDO,JSAVE 660 FORMAT (' IMHERE =',I5,' T3,Q4 =',2I3,' IDO,JSAVE =',2I5) CALL MESAGE (J,FILE,NAME(1)) GO TO 600 END ================================================ FILE: mis/ploapf.f ================================================ SUBROUTINE PLOAPF (ECPT,IECPT,L,PA,PB) C C THIS ROUTINE IS CALLED ONLY BY PLOAD1 FOR HANDLING PIN FLAGS OF C THE CBAR C REAL I1,I2,I12,K1,K2,L,L2,L3,KE,KEP,LB,LR1,LR2, 1 L2B3,L2B6 DIMENSION ECPT(33),IECPT(9),PA(1),PB(1),PE(12),PEP(12), 1 IPIN(10),KE(144),KEP(144) COMMON /MATOUT/ E,G C KA = IECPT(8) KB = IECPT(9) IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 200 DO 10 I = 1,6 PE(I ) = PA(I) 10 PE(I+6) = PB(I) L2 = L**2 L3 = L2*L A = ECPT(17) I1 = ECPT(18) I2 = ECPT(19) FJ = ECPT(20) K1 = ECPT(31) K2 = ECPT(32) I12 = ECPT(33) EI1 = E*I1 EI2 = E*I2 R1 = 12.0*EI1/L3 R2 = 12.0*EI2/L3 IF (K1.EQ.0.0 .OR. I12.NE.0.0) GO TO 20 GAK = G*A*K1 R1 = (12.0*EI1*GAK)/(GAK*L3 + 12.0*L*EI1) 20 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 30 GAK = G*A*K2 R2 = (12.0*EI2*GAK)/(GAK*L3 + 12.0*L*EI2) C C COMPUTE THE -SMALL-K-S. SK1, SK2, SK3 AND SK4 C 30 SK1 = 0.25*R1*L2 + EI1/L SK2 = 0.25*R2*L2 + EI2/L SK3 = 0.25*R1*L2 - EI1/L SK4 = 0.25*R2*L2 - EI2/L C C COMPUTE THE 12 X 12 MATRIX KE C AEL = A*E /L LR1 = L*R1/2.0 LR2 = L*R2/2.0 GJL = G*FJ/L C DO 40 I = 1,144 40 KE(I) = 0.0 KE( 1) = AEL KE( 7) =-AEL KE( 14) = R1 KE( 18) = LR1 KE( 20) =-R1 KE( 24) = LR1 KE( 27) = R2 KE( 29) =-LR2 KE( 33) =-R2 KE( 35) =-LR2 KE( 40) = GJL KE( 46) =-GJL KE( 51) =-LR2 KE( 53) = SK2 KE( 57) = LR2 KE( 59) = SK4 KE( 62) = LR1 KE( 66) = SK1 KE( 68) =-LR1 KE( 72) = SK3 KE( 73) =-AEL KE( 79) = AEL KE( 86) =-R1 KE( 90) =-LR1 KE( 92) = R1 KE( 96) =-LR1 KE( 99) =-R2 KE(101) = LR2 KE(105) = R2 KE(107) = LR2 KE(112) =-GJL KE(118) = GJL KE(123) =-LR2 KE(125) = SK4 KE(129) = LR2 KE(131) = SK2 KE(134) = LR1 KE(138) = SK3 KE(140) =-LR1 KE(144) = SK1 IF (I12 .EQ. 0.0) GO TO 50 BETA =-12.0*E*I12/L3 LB = L *BETA/2.0 L2B3 = L2*BETA/3.0 L2B6 = L2*BETA/6.0 KE( 15) =-BETA KE( 17) = LB KE( 21) = BETA KE( 23) = LB KE( 26) =-BETA KE( 30) =-LB KE( 32) = BETA KE( 36) =-LB KE( 50) = LB KE( 54) = L2B3 KE( 56) =-LB KE( 60) = L2B6 KE( 63) =-LB KE( 65) = L2B3 KE( 69) = LB KE( 71) = L2B6 KE( 87) = BETA KE( 89) =-LB KE( 93) =-BETA KE( 95) =-LB KE( 98) = BETA KE(102) = LB KE(104) =-BETA KE(108) = LB KE(122) = LB KE(126) = L2B6 KE(128) =-LB KE(132) = L2B3 KE(135) =-LB KE(137) = L2B6 KE(141) = LB KE(143) = L2B3 C C SET UP THE IPIN ARRAY C 50 DO 60 I = 1,5 IPIN(I ) = MOD(KA,10) IPIN(I+5) = MOD(KB,10) + 6 IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0 KA = KA/10 60 KB = KB/10 C C ALTER KE MATRIX DUE TO PIN FLAGS C DO 130 I = 1,10 IP = IPIN(I) IF (IP .EQ. 0) GO TO 130 II = IP*13 - 12 IF (KE(II) .NE. 0.0) GO TO 80 IL = IP II = II - IL DO 70 J = 1,12 II = II + 1 KE(II) = 0.0 KE(IL) = 0.0 70 IL = IL + 12 GO TO 130 80 IP12 = (IP-1)*12 DO 100 J = 1,12 J12 = (J-1)*12 JI = J12 + IP IJ = IP12 + J DO 90 LL = 1,12 JLL = J12 + LL ILL = IP12 + LL 90 KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI) PEP(J ) = PE(J ) - (KE(JI )/KE(II))*PE(IP) KEP(IJ ) = 0.0 KEP(JI ) = 0.0 100 CONTINUE PEP(IP ) = 0.0 DO 110 K = 1,144 110 KE(K) = KEP(K) DO 120 K = 1,12 120 PE(K) = PEP(K) 130 CONTINUE C DO 140 I = 1,10 IP = IPIN(I) IF (IP .EQ. 0) GO TO 140 PE(IP) = 0.0 140 CONTINUE DO 150 I = 1,6 PA(I) = PE(I ) 150 PB(I) = PE(I+6) C 200 RETURN END ================================================ FILE: mis/plod4d.f ================================================ SUBROUTINE PLOD4D C C ROUTINE TO PROCESS PLOAD4 BULK DATA TO CREATE LOADS ON QUAD4 C ELEMENTS C C DOUBLE PRECISION VERSION. C C GRID POINT NUMBERING IS COUNTER-CLOCKWISE C GRIDS 1,2,3, AND 4 ARE AT THE CORNERS C INTEGER NEST(125),IORDER(4),SIL(4),KSIL(4),NOUT, 1 CID,NSURF,SWP,SYSBUF,IZ(1),ITGRID(4,4), 2 IBGPDT(4,4),ISLT(11),NOGO REAL PE(3,4),BGPDT(4,4),PPP(4),NV(3),NVX(3), 1 LOCATE(3) DOUBLE PRECISION DPE(3,4),WEIGHT,XSI,ETA,EPS,AREA,SHP(4), 1 DSHP(8),TMPSHP(4),DSHPTP(8),VI(3),VJ(3), 2 V3T(3),GAUSS(3),WTGAUS(3) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /LOADX / IDUM1(4),CSTM,IDUM2(13),ICM COMMON /PINDEX/ BEST(45),SLT(11) COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,NOUT,NOGO EQUIVALENCE (IZ(1) ,Z(1) ), (SLT(1),ISLT(1) ) EQUIVALENCE (NEST(1),BEST(1)), (NUMINT,NEST(25)) EQUIVALENCE (SIL(1) ,NEST(2)), (BGPDT(1,1),BEST(29)) EQUIVALENCE (IBGPDT(1,1),BGPDT(1,1)) DATA NDOF / 3 / C C EST LISTING C -------------------------------------------------- C 1 EID C 2 THRU 5 SILS, GRIDS 1 THRU 4 C 6 THRU 9 T (MEMBRANE), GRIDS 1 THRU 4 C 10 THETA (MATERIAL) C 11 TYPE FLAG FOR WORD 10 C 12 ZOFF (OFFSET) C 13 MATERIAL ID FOR MEMBRANE C 14 T (MEMBRANE) C 15 MATERIAL ID FOR BENDING C 16 I FACTOR (BENDING) C 17 MATERIAL ID FOR TRANSVERSE SHEAR C 18 FACTOR FOR T(S) C 19 NSM (NON-STRUCTURAL MASS) C 20 THRU 21 Z1, Z2 (STRESS FIBRE DISTANCES) C 22 MATERIAL ID FOR MEMBRANE-BENDING COUPLING C 23 THETA (MATERIAL) FROM PSHELL CARD C 24 TYPE FLAG FOR WORD 23 C 25 INTEGRATION ORDER C 26 THETA (STRESS) C 27 TYPE FLAG FOR WORD 26 C 28 ZOFF1 (OFFSET) OVERRIDDEN BY EST(12) C 29 THRU 44 CID,X,Y,Z - GRIDS 1 THRU 4 C 45 ELEMENT TEMPERATURE C C DATA FROM THE PLOAD4 CARD DESCRIBED HERE C ------------------------------------------------------------ C EID ELEMENT ID C P1,P2,P3,P4 CORNER GRID POINT PRESSURES PER UNIT SURFACE AREA C G1,G3 DEFINES QUADRILATERAL SURFACE OF HEXA, QUAD8, AND C PENTA SURFACES ON WHICH PRESSURE LOADS EXIST C OTHERWISE SURFACE IS TRIANGULAR IF G3 IS ZERO OR C BLANK, SURFACE IS TRIANGULAR C CID COORDINATE SYSTEM FOR DEFINITION OF PRESSURE VECTOR C N1,N2,N3 COMPONENTS OF PRESSURE DIRECTION VECTOR IF CID C 'BLANK' OR ZERO, THE PRESSURE ACTS NORMAL TO THE C SURFACE OF THE ELEMENT C C EQUIVALENT NUMERICAL INTEGRATION POINT LOADS PP(III) ARE C OBTAINED VIA BI-LINEAR INTERPOLATION C C GENERAL INITIALIZATION. C C BEST(45) IS THE DATA FOR EST WHICH IS READ IN EXTERN AND IS C READY TO BE USED. C C READ FROM PLOAD4 CARDS C P1 = PPP(1) C P2 = PPP(2) C P3 = PPP(3) C P4 = PPP(4) C CID,N1,N2,N3 C C X WILL BE THE LENGTH OF THE PRESSURE VECTOR FOR NORMALIZATION. C NV(I) WILL BE THE NORMALIZED PRESSURE VECTOR C X = 0.0 DO 10 I = 1,4 10 PPP(I) = SLT(I+1) DO 20 I = 1,3 NV(I) = SLT(I+8) X = X + NV(I)*NV(I) 20 CONTINUE CID = ISLT(8) C IF (X .EQ. 0.0) GO TO 40 X = SQRT(X) DO 30 I = 1,3 30 NV(I) = NV(I)/X C 40 NCRD = 3 C C PERFORM TEST FOR PRESENCE OF CONSTANT PRESSURE SET SWP C SWP = 1 IF (PPP(2).EQ.0.D0 .AND. PPP(3).EQ.0.D0 .AND. PPP(4).EQ.0.D0) 1 SWP = 0 NSURF = 4 C C THE ARRAY IORDER STORES THE ELEMENT NODE ID IN INCREASING SIL C ORDER. C C IORDER(1) = NODE WITH LOWEST SIL NUMBER C IORDER(4) = NODE WITH HIGHEST SIL NUMBER C C ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST G1,G2,G3,G4. C THAT IS, THE 'I' PART OF THE 'GI' AS THEY ARE LISTED ON THE C CONNECTIVITY BULK DATA CARD DESCRIPTION. C KSILD = 99999995 DO 100 I = 1,4 IORDER(I) = 0 KSIL(I) = SIL(I) 100 CONTINUE DO 120 I = 1,4 ITEMP = 1 ISIL = KSIL(1) DO 110 J = 2,4 IF (ISIL .LE. KSIL(J)) GO TO 110 ITEMP = J ISIL = KSIL(J) 110 CONTINUE IORDER(I) = ITEMP KSIL(ITEMP) = 99999999 120 CONTINUE C C ADJUST EST DATA C C USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE C GEOMETRY DATA INTO INCREASING SIL ORDER. C DO 140 I = 1,4 KSIL(I) = SIL(I) DO 130 J = 1,4 ITGRID(J,I) = IBGPDT(J,I) 130 CONTINUE 140 CONTINUE DO 160 I = 1,4 IPOINT = IORDER(I) SIL(I) = KSIL(IPOINT) DO 150 J = 1,4 IBGPDT(J,I) = ITGRID(J,IPOINT) 150 CONTINUE 160 CONTINUE C NVCT = NCRD*4 EPS = 0.001D0 C C SET VALUES FOR NUMERICAL INTEGRATION POINTS AND WEIGHT FACTORS C C DEFAULT INTEGRATION ORDER IS 2X2 C NUMINT = 2 GAUSS(1) = -0.57735026918962D0 GAUSS(2) = +0.57735026918962D0 WTGAUS(1) = 1.0D0 WTGAUS(2) = 1.0D0 C C ZERO OUT THE LOAD ROW SET C DO 170 I = 1,NDOF DO 170 J = 1,4 170 DPE(I,J) = 0.0D0 C C SET UP THE LOOPS FOR NUMERICAL INTEGRATION C DO 350 IETA = 1,NUMINT ETA = GAUSS(IETA) DO 350 IXSI = 1,NUMINT XSI = GAUSS(IXSI) WEIGHT = WTGAUS(IXSI)*WTGAUS(IETA) P = 0.0D0 C C P1,P2,P3,P4 ARE THE GRID POINT PRESSURE LOADS PER UNIT C AREA FROM THE PLOAD4 CARD. THESE WILL BE USED WITH A C BILINEAR SHAPE FUNCTION ROUTINE TO CALCULATE THE NODAL C LOADS. C C BILINEAR CASE WHERE THE VALUES OF XSI,ETA ARE INPUT IN C EXPLICIT FORM DEPENDING UPON WHICH NUMERICAL INTEGRATION C SCHEME IS BEING USED. C C C NSURF IS AN INTEGER WHICH KEEPS TRACK OF THE SURFACE TYPE C NSURF = 3 . . . TRIANGULAR SURFACE C NSURF = 4 . . . QUADRILATERAL SURFACE C C C CALL SHAPE FCN. ROUTINE FOR THE BILINEAR QUAD4. INPUT IS C XSI,ETA,III AND EVALUATION OF SHAPE FCN. AT INTEG.PTS C WILL BE PERFORMED. C CALL Q4SHPD (XSI,ETA,SHP,DSHP) C IF (SWP .EQ. 0) P = PPP(1) IF (SWP .EQ. 0) GO TO 200 C DO 180 III = 1,NSURF 180 P = P + SHP(III)*PPP(III) 200 CONTINUE C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 210 I = 1,4 TMPSHP(I ) = SHP(I ) DSHPTP(I ) = DSHP(I ) 210 DSHPTP(I+4) = DSHP(I+4) DO 220 I = 1,4 KK = IORDER(I) SHP (I ) = TMPSHP(KK ) DSHP(I ) = DSHPTP(KK ) 220 DSHP(I+4) = DSHPTP(KK+4) C C COMPUTE THE UNIT NORMALS V3T AT EACH GRID POINT. THESE WILL C BE USED TO GET COMPONENTS OF PRESSURE VECTOR ACTING NORMAL TO C THE SURFACE. AREA CALCULATION CHECKS THE GEOMETRY OF THE C ELEMENT. C DO 230 I = 1,3 VI(I) = 0.0D0 VJ(I) = 0.0D0 DO 230 J = 1,4 II = I + 1 VI(I) = VI(I) + BGPDT(II,J)*DSHP(J ) 230 VJ(I) = VJ(I) + BGPDT(II,J)*DSHP(J+4) C C CHECK FOR USER INPUT VECTOR TO ROTATE LOADS C CALL DAXB (VI,VJ,V3T) AREA = DSQRT(V3T(1)**2 + V3T(2)**2 + V3T(3)**2) IF (AREA .GT. 0.0D0) GO TO 300 C WRITE (NOUT,240) SFM,NEST(1) 240 FORMAT (A25,'. BAD GEOMETRY DETECTED FOR QUAD4 ELEMENT ',I8, 1 ' WHILE PROCESSING PLOAD4 DATA.') NOGO = 1 RETURN C 300 CONTINUE IF (X .EQ. 0.0) GO TO 330 C C CHECK FOR NON-ZERO CID AND NEED TO ROTATE USER'S VECTOR C IF (CID .EQ. 0) GO TO 320 C C COMPUTE THE LOCATION OF THE INTEGRATION POINT SO THAT WE CAN C ROTATE THE USER VECTOR PER CID. THIS LOCATION REQUIRED ONLY IF C CID IS CYLINDRICAL OR SPHERICAL. C LOCATE(1) = 0. LOCATE(2) = 0. LOCATE(3) = 0. DO 310 J = 1,4 LOCATE(1) = LOCATE(1) + BGPDT(2,J)*SHP(J) LOCATE(2) = LOCATE(2) + BGPDT(3,J)*SHP(J) LOCATE(3) = LOCATE(3) + BGPDT(4,J)*SHP(J) 310 CONTINUE CALL GLBBAS (NV(1),NVX(1),LOCATE(1),CID) C C NOW ROTATE THE PRESSURE LOAD C V3T(1) = NVX(1)*AREA V3T(2) = NVX(2)*AREA V3T(3) = NVX(3)*AREA GO TO 330 C C NOW ROTATE THE PRESSURE LOAD C 320 V3T(1) = NV(1)*AREA V3T(2) = NV(2)*AREA V3T(3) = NV(3)*AREA C C COMPUTE THE CONTRIBUTION TO THE LOAD MATRIX FROM THIS C INTEGRATION POINT AS NT*P*V3T C 330 DO 340 I = 1,4 DO 340 J = 1,NDOF 340 DPE(J,I) = DPE(J,I) + WEIGHT*P*SHP(I)*V3T(J) C 350 CONTINUE C C END OF NUMERICAL INTEGRATION LOOPS C C MOVE DATA FROM DOUBLE PRECISION ARRAY TO SINGLE PRECISION C DO 400 J = 1,4 PE(1,J) = DPE(1,J) PE(2,J) = DPE(2,J) PE(3,J) = DPE(3,J) 400 CONTINUE C C ADD ELEMENT LOAD TO OVERALL LOAD. C JB = 25 DO 430 J = 1,4 JB = JB + 4 IF (NEST(JB) .NE. 0) CALL BASGLB (PE(1,J),PE(1,J),BEST(JB+1), 1 NEST(JB)) JP = SIL(J) - 1 DO 420 I = 1,3 Z(JP+I) = Z(JP+I) + PE(I,J) 420 CONTINUE 430 CONTINUE RETURN END ================================================ FILE: mis/plod4s.f ================================================ SUBROUTINE PLOD4S C C ROUTINE TO PROCESS PLOAD4 BULK DATA TO CREATE LOADS ON C QUAD4 ELEMENTS C C SINGLE PRECISION VERSION. C C GRID POINT NUMBERING IS COUNTER-CLOCKWISE C GRIDS 1,2,3, AND 4 ARE AT THE CORNERS C INTEGER NEST(125),IORDER(4),SIL(4),KSIL(4),NOUT,CID, 1 NSURF,SWP,SYSBUF,IZ(1),ITGRID(4,4),IBGPDT(4,4), 2 ISLT(11),NOGO REAL PE(3,4),BGPDT(4,4),PPP(4),NV(3),NVX(3),LOCATE(3) REAL DPE(3,4),WEIGHT,XSI,ETA,EPS,AREA,SHP(4), 1 DSHP(8),TMPSHP(4),DSHPTP(8),VI(3),VJ(3),V3T(3), 2 GAUSS(3),WTGAUS(3) COMMON /LOADX / IDUM1(4),CSTM,IDUM2(13),ICM COMMON /PINDEX/ BEST(45),SLT(11) COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,NOUT,NOGO EQUIVALENCE (IZ(1) ,Z(1) ), (SLT(1),ISLT(1) ) EQUIVALENCE (NEST(1),BEST(1)), (NUMINT,NEST(25)) EQUIVALENCE (SIL(1) ,NEST(2)), (BGPDT(1,1),BEST(29)) EQUIVALENCE (IBGPDT(1,1),BGPDT(1,1)) EQUIVALENCE (PE(1,1),DPE(1,1)) C DATA NDOF / 3 / C C EST LISTING C ---------------------------------------------------------- C 1 EID C 2 THRU 5 SILS, GRIDS 1 THRU 4 C 6 THRU 9 T (MEMBRANE), GRIDS 1 THRU 4 C 10 THETA (MATERIAL) C 11 TYPE FLAG FOR WORD 10 C 12 ZOFF (OFFSET) C 13 MATERIAL ID FOR MEMBRANE C 14 T (MEMBRANE) C 15 MATERIAL ID FOR BENDING C 16 I FACTOR (BENDING) C 17 MATERIAL ID FOR TRANSVERSE SHEAR C 18 FACTOR FOR T(S) C 19 NSM (NON-STRUCTURAL MASS) C 20 THRU 21 Z1, Z2 (STRESS FIBRE DISTANCES) C 22 MATERIAL ID FOR MEMBRANE-BENDING COUPLING C 23 THETA (MATERIAL) FROM PSHELL CARD C 24 TYPE FLAG FOR WORD 23 C 25 INTEGRATION ORDER C 26 THETA (STRESS) C 27 TYPE FLAG FOR WORD 26 C 28 ZOFF1 (OFFSET) OVERRIDDEN BY EST(12) C 29 THRU 44 CID,X,Y,Z - GRIDS 1 THRU 4 C 45 ELEMENT TEMPERATURE C C C DATA FROM THE PLOAD4 CARD DESCRIBED HERE C ---------------------------------------------------------- C EID ELEMENT ID C P1,P2,P3,P4 CORNER GRID POINT PRESSURES PER UNIT SURFACE AREA C G1,G3 DEFINES QUADRILATERAL SURFACE OF HEXA, QUAD8, AND C PENTA SURFACES ON WHICH PRESSURE LOADS EXIST C OTHERWISE SURFACE IS TRIANGULAR IF G3 IS ZERO OR C BLANK, SURFACE IS TRIANGULAR C CID COORDINATE SYSTEM FOR DEFINITION OF PRESSURE VECTOR C N1,N2,N3 COMPONENTS OF PRESSURE DIRECTION VECTOR IF CID C 'BLANK' OR ZERO, THE PRESSURE ACTS NORMAL TO THE C SURFACE OF THE ELEMENT C C EQUIVALENT NUMERICAL INTEGRATION POINT LOADS PP(III) ARE C OBTAINED VIA BI-LINEAR INTERPOLATION C***** C GENERAL INITIALIZATION. C***** C BEST(45) IS THE DATA FOR EST WHICH IS READ IN EXTERN AND IS C READY TO BE USED. C C READ FROM PLOAD4 CARDS C P1 = PPP(1) C P2 = PPP(2) C P3 = PPP(3) C P4 = PPP(4) C CID,N1,N2,N3 C***** C C C X WILL BE THE LENGTH OF THE PRESSURE VECTOR FOR NORMALIZATION. C NV(I) WILL BE THE NORMALIZED PRESSURE VECTOR C X = 0.0 DO 10 I = 1,4 10 PPP(I) = SLT(I+1) DO 20 I = 1,3 NV(I) = SLT(I+8) X = X + NV(I)**2 20 CONTINUE CID = ISLT(8) C IF (X .EQ. 0.0) GO TO 40 X = SQRT( X ) DO 30 I = 1,3 30 NV(I) = NV(I) / X C 40 NCRD = 3 C***** C PERFORM TEST FOR PRESENCE OF CONSTANT PRESSURE SET SWP C***** SWP = 1 IF (PPP(2).EQ.0. .AND. PPP(3).EQ.0. .AND. PPP(4).EQ.0.) 1 SWP = 0 NSURF = 4 C C THE ARRAY IORDER STORES THE ELEMENT NODE ID IN C INCREASING SIL ORDER. C C IORDER(1) = NODE WITH LOWEST SIL NUMBER C IORDER(4) = NODE WITH HIGHEST SIL NUMBER C C ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST G1,G2,G3,G4. C THAT IS, THE 'I' PART OF THE 'GI' AS THEY ARE LISTED ON THE C CONNECTIVITY BULK DATA CARD DESCRIPTION. C KSILD = 99999995 DO 100 I=1,4 IORDER(I) = 0 KSIL(I) = SIL(I) 100 CONTINUE DO 120 I=1,4 ITEMP = 1 ISIL = KSIL(1) DO 110 J=2,4 IF (ISIL.LE.KSIL(J)) GO TO 110 ITEMP = J ISIL = KSIL(J) 110 CONTINUE IORDER(I) = ITEMP KSIL(ITEMP) = 99999999 120 CONTINUE C***** C ADJUST EST DATA C C USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE C GEOMETRY DATA INTO INCREASING SIL ORDER. C***** DO 140 I=1,4 KSIL(I) = SIL(I) DO 130 J=1,4 ITGRID(J,I) = IBGPDT(J,I) 130 CONTINUE 140 CONTINUE DO 160 I=1,4 IPOINT = IORDER(I) SIL(I) = KSIL(IPOINT) DO 150 J=1,4 IBGPDT(J,I) = ITGRID(J,IPOINT) 150 CONTINUE 160 CONTINUE C NVCT = NCRD*4 EPS = 0.001 C***** C SET VALUES FOR NUMERICAL INTEGRATION POINTS AND WEIGHT FACTORS C C DEFAULT INTEGRATION ORDER IS 2X2 C***** NUMINT = 2 GAUSS(1) = -0.57735026918962 GAUSS(2) = +0.57735026918962 WTGAUS(1) = 1.0 WTGAUS(2) = 1.0 C***** C ZERO OUT THE LOAD ROW SET C***** DO 170 I=1,NDOF DO 170 J=1,4 170 DPE(I,J) = 0.0 C***** C SET UP THE LOOPS FOR NUMERICAL INTEGRATION C***** DO 350 IETA=1,NUMINT ETA = GAUSS(IETA) DO 350 IXSI=1,NUMINT XSI = GAUSS(IXSI) WEIGHT = WTGAUS(IXSI)*WTGAUS(IETA) P = 0.0 C***** C P1,P2,P3,P4 ARE THE GRID POINT PRESSURE LOADS PER UNIT C AREA FROM THE PLOAD4 CARD. THESE WILL BE USED WITH A C BILINEAR SHAPE FUNCTION ROUTINE TO CALCULATE THE NODAL C LOADS. C C BILINEAR CASE WHERE THE VALUES OF XSI,ETA ARE INPUT IN C EXPLICIT FORM DEPENDING UPON WHICH NUMERICAL INTEGRATION C SCHEME IS BEING USED. C C C NSURF IS AN INTEGER WHICH KEEPS TRACK OF THE SURFACE TYPE C NSURF = 3 . . . TRIANGULAR SURFACE C NSURF = 4 . . . QUADRILATERAL SURFACE C C***** C CALL SHAPE FCN. ROUTINE FOR THE BILINEAR QUAD4. INPUT IS C XSI,ETA,III AND EVALUATION OF SHAPE FCN. AT INTEG.PTS C WILL BE PERFORMED. C***** CALL Q4SHPS (XSI,ETA,SHP,DSHP) C IF (SWP .EQ. 0) P=PPP(1) IF (SWP .EQ. 0) GO TO 200 C DO 180 III=1,NSURF 180 P = P + SHP(III)*PPP(III) 200 CONTINUE C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 210 I=1,4 TMPSHP(I) = SHP(I) DSHPTP(I) = DSHP(I) 210 DSHPTP(I+4) = DSHP(I+4) DO 220 I=1,4 KK = IORDER(I) SHP (I ) = TMPSHP(KK) DSHP(I ) = DSHPTP(KK) 220 DSHP(I+4) = DSHPTP(KK+4) C***** C COMPUTE THE UNIT NORMALS V3T AT EACH GRID POINT. THESE WILL C BE USED TO GET COMPONENTS OF PRESSURE VECTOR ACTING NORMAL TO C THE SURFACE. AREA CALCULATION CHECKS THE GEOMETRY OF THE C ELEMENT. C***** DO 230 I=1,3 VI(I) = 0.0 VJ(I) = 0.0 DO 230 J=1,4 II=I+1 VI(I) = VI(I) + BGPDT(II,J) * DSHP(J) 230 VJ(I) = VJ(I) + BGPDT(II,J) * DSHP(J+4) C C CHECK FOR USER INPUT VECTOR TO ROTATE LOADS C CALL SAXB (VI,VJ,V3T) AREA = SQRT(V3T(1)**2+V3T(2)**2+V3T(3)**2) IF (AREA .GT. 0.0) GO TO 300 C WRITE (NOUT,240) NEST(1) 240 FORMAT ('0*** SYSTEM FATAL ERROR. BAD GEOMETRY DETECTED FOR ', 1 'QUAD4 ELEMENT ',I8,' WHILE PROCESSING PLOAD4 DATA.') NOGO = 1 RETURN C 300 CONTINUE IF (X .EQ. 0.0) GO TO 330 C C CHECK FOR NON-ZERO CID AND NEED TO ROTATE USER'S VECTOR C IF (CID .EQ. 0) GO TO 320 C C COMPUTE THE LOCATION OF THE INTEGRATION POINT SO THAT WE CAN C ROTATE THE USER VECTOR PER CID. THIS LOCATION REQUIRED ONLY IF C CID IS CYLINDRICAL OR SPHERICAL. C LOCATE(1) = 0. LOCATE(2) = 0. LOCATE(3) = 0. DO 310 J=1,4 LOCATE(1) = LOCATE(1) + BGPDT(2,J) * SHP(J) LOCATE(2) = LOCATE(2) + BGPDT(3,J) * SHP(J) LOCATE(3) = LOCATE(3) + BGPDT(4,J) * SHP(J) 310 CONTINUE CALL GLBBAS (NV(1),NVX(1),LOCATE(1),CID) C C NOW ROTATE THE PRESSURE LOAD C V3T(1) = NVX(1) * AREA V3T(2) = NVX(2) * AREA V3T(3) = NVX(3) * AREA GO TO 330 320 CONTINUE C C NOW ROTATE THE PRESSURE LOAD C V3T(1) = NV(1) * AREA V3T(2) = NV(2) * AREA V3T(3) = NV(3) * AREA 330 CONTINUE C C***** C COMPUTE THE CONTRIBUTION TO THE LOAD MATRIX FROM THIS C INTEGRATION POINT AS NT * P * V3T C***** DO 340 I=1,4 DO 340 J=1,NDOF 340 DPE(J,I) = DPE(J,I) + WEIGHT * P * SHP(I) * V3T(J) 350 CONTINUE C***** C END OF NUMERICAL INTEGRATION LOOPS C C MOVE DATA FROM REAL ARRAY DPE TO SINGLE PRECISION PE C (NO MOVE, SINCE DPE IS EQUIVALENT TO PE) C***** C DO 400 J=1,4 C PE(1,J) = DPE(1,J) C PE(2,J) = DPE(2,J) C PE(3,J) = DPE(3,J) C 400 CONTINUE C***** C ADD ELEMENT LOAD TO OVERALL LOAD. C***** JB = 25 DO 430 J=1,4 JB = JB + 4 IF (NEST(JB) .EQ. 0) GO TO 410 CALL BASGLB (PE(1,J),PE(1,J),BEST(JB+1),NEST(JB)) 410 CONTINUE JP = SIL(J) - 1 DO 420 I=1,3 Z(JP+I) = Z(JP+I) + PE(I,J) 420 CONTINUE 430 CONTINUE RETURN END ================================================ FILE: mis/plot.f ================================================ SUBROUTINE PLOT (MODE,BUF1,B1,SETID,DEFLST,NOFIND) C C THIS PLOT ROUTINE IS CALLED ONLY BY PARAM C EXTERNAL ANDF LOGICAL TAPBIT ,STRESS ,DISP INTEGER ANDF ,ANYDEF ,AWRD(2) ,BFRMS ,B1 ,BUF1 , 1 BUFSIZ ,CASECC ,D1 ,D2 ,DEFBUF ,DEFILE , 2 DEFID ,DIRECT ,DTYPE ,DEFLST(2),EOR ,ELSET , 3 ERR(17) ,GPSET ,OES1 ,ORIGIN ,FOR ,PARM , 4 PBUFSZ ,PCON ,PEDGE ,PLABEL ,PLTBUF ,PLTNUM , 5 PLTTAP ,PLTTYP ,PORIG ,PPEN ,PRNT ,PRJECT , 6 PSET ,PSYMM ,PSHAPE ,PSYMBL ,PVECTR ,REW , 7 SETID(1) ,SETD ,SKPTTL ,STEREO ,SUBC(2) ,SUBCAS , 8 TRA ,WHERE ,WORD ,NAME(2) ,SKPLOD ,THLID , 9 FSCALE ,FVP ,OFFSCL ,ORG INTEGER NF(2) ,F1(10) ,F2(20) ,MSG1(19) ,MSG2(17) ,MF4(6) , 1 MSG7(13) ,MF3(3,3) ,USED(10) INTEGER ALL ,BOTH ,CONTUR ,DEFO ,ELEM ,EPID , 1 KEYWD ,GRID ,GSPC ,LAG(2) ,MAGC(2) ,TO , 2 MF1(2,5) ,MF2(2,5) ,POIN ,RANG ,RQST(17) ,THRU , 3 TIME REAL FRR(17) ,MAXDEF DOUBLE PRECISION DWRD CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON / PLTSCR / NCOR, PLTSC(50) COMMON /BLANK / NGP ,SKP11 ,NSETS ,PRNT ,PLTNUM , 1 NGPSET ,ANYDEF ,SKP12(3) ,PARM ,GPSET ,ELSET , 2 CASECC ,SKP21(3) ,DEFILE(3),MERR ,SETD ,SKP31 , 3 OES1 COMMON /SYSTEM/ BUFSIZ ,NOUT ,DUMMY(66),ISUBS COMMON /OUTPUT/ TITLE(32,3) COMMON /PLTDAT/ SKPPLT(20),SKPA(10),PLTTAP COMMON /XXPARM/ PBUFSZ ,CAMERA ,BFRMS ,SKPCAM(3), 1 PENPAP(30),SCALE(4),DEFMAX ,VIEW(15) ,VANPNT(8),PRJECT , 2 PROJCT ,FOR ,ORG ,NORG ,ORIGIN(11), 3 SKPPAR(77),NCNTR ,CNTR(50) ,ICNTVL ,WHERE ,DIRECT , 4 SUBCAS ,FLAG ,DATA ,SKP19(19),ICOLOR ,SKP235 , 5 OFFSCL COMMON /DRWDAT/ PSET ,PLABEL ,PORIG ,PPEN ,PSHAPE , 1 PSYMBL(2),PSYMM(6) ,PVECTR ,PCON ,PEDGE ,OFFLAG COMMON /PLOTHD/ IUSED EQUIVALENCE (ERR(1),FRR(1)) , (WORD,AWRD(1),IWRD,FWRD,DWRD) EQUIVALENCE (FSCALE,SCALE(3)), (FVP,VANPNT(1)) EQUIVALENCE (SKP19(1), LASSET ) DATA EOR , INPREW,NOREW,REW,SKPTTL,SKPLOD / 1000000,0,2,1,37,5 / DATA SUBC/ 4HSUBC, 4HASES/ DATA NAME/ 4H PL, 4HOT / C DATA NF / 10, 20 / , 1 F1 / 4H(49X, 4H,4HP, 4HLOT,, 4HI9,2, 4HX,16, 4HHUND, 4HEFOR, 2 4HMED , 4HSHAP, 4HE) / , 3 F2 / 4H(10X, 4H,4HP, 4HLOT,, 4HI5,3, 4HX,2(, 4HA4,A, 4H3),I, 4 4H6,10, 4HH - , 4HSUBC, 4HASE,, 4HI8,3, 4HH - , 4H,A4,, 5 4H1P,E, 4H15.6, 4H,1X,, 4H6A4,, 4HE11., 4H3) / C C DATA FOR FORMAT F2 - ORDER CORRESPONDING TO DTYPE, +10=VEL,+20=ACC C DATA MF1 / 4HSTAT, 2HIC , 4HFREQ, 1H. , 4HTRAN,2HS. , 1 4HMODA, 1HL , 4HCMOD, 2HAL / , 2 MF2 / 4HDEFO, 3HRM. , 4HVELO, 1H. , 4HACCE,2HL. , 3 4HSTRE, 2HSS , 4HSTRA, 2HIN / DATA IMOD, LOAD / 4HMODE, 4HLOAD/ DATA MF3 / 4H- FR, 4HEQUE, 4HNCY , 4H- EI, 4HGENV,4HALUE, 1 4H- TI, 2HME , 1H / , 2 MF4 / 4H PHA, 4HSE L, 4HAG , 4H MAG, 4HNITU,2HDE / C DATA NMSG1,NMSG2, NMSG7 / 19, 17, 13/ , 1 MSG1/ 4H(33X, 4H,26H, 4HAN U, 4HNREC, 4HOGNI, 4HZABL, 4HE OP, 2 4HTION, 4H (,2, 4HA4,3, 4H1H) , 4HWAS , 4HDETE, 4HCTED, 3 4H ON , 4HA -P, 4HLOT-, 4H CAR, 4HD) / , 4 MSG2/ 4H(34X, 4H,21H, 4HA NO, 4HN-EX, 4HISTE, 4HNT O, 4HRIGI, 5 4HN,I7, 4H,31H, 4H IS, 4H SPE, 4HCIFI, 4HED O, 4HN A , 6 4H-PLO, 4HT- C, 4HARD)/ , 7 MSG7/ 4H(33X, 4H,41H, 4H*** , 4HINCO, 4HMPLE, 4HTE P, 4HLOT , 8 4HDUE , 4HTO I, 4HNPUT, 4H OR , 4HFILE, 4H.) / C C SET OPTIONS - FOLLOWING THE SET REQUEST(S) C DATA RQST/ 4HSET , 4HORIG, 4HSHAP, 4HSYMB, 4HLABE, 4HVECT, 4HDENS, 1 4HPEN , 4HSYMM, 4HANTI, 4HMAXI, 4HOUTL, 4HHIDD, 4HSHRI, 2 4HNOFI, 4HFILL, 4HOFFS/ C DATA USED/ 4H(49X, 4H,6HO, 4HRIGI, 4HN,I7, 4H,19H, 4H US, 4HED I, 1 4HN TH, 4HIS P, 4HLOT)/ C C THE FOLLOWING ARE POSSIBLE OPTIONS ON THE PLOT CARD C DATA DEFO/ 4HDEFO/, LORIG/ 0 /, 1 ALL / 3HALL /, TO / 2HTO /, THRU/ 4HTHRU/, RANG / 4HRANG/, 2 TIME/ 4HTIME/, BOTH / 4HBOTH/, GRID/ 4HGRID/, POIN / 4HPOIN/, 3 ELEM/ 4HELEM/, GSPC / 4HGSPC/, LAG / 4HPHAS , 4HLAG /, 4 MAGC/ 4HMAGN , 4HIT. /, EPID/ 4HEPID/,CONTUR/ 4HCONT/ C NCNTR = 10 ICNTVL = 1 WHERE = 1 LASSET = 0 DIRECT = 2 NCOR = 50 DO 1 I = 1, 50 PLTSC(I) = 0 CNTR(I) = 0 1 CONTINUE PLTBUF = B1 - PBUFSZ DEFBUF = PLTBUF - BUFSIZ IF (DEFBUF .LE. 0) GO TO 1400 V1 =-1.E+30 V2 =+1.E+30 PH = 0.0 MAG = 0 PCON = 0 LOADID = 0 LPCON = 0 FLAG = 0.0 SUBCAS = 0 DEFID = 0 DISP =.FALSE. STRESS =.FALSE. TWOPI = 8.0*ATAN(1.0) NDEF = 0 NOGO = 0 CALL RDMODX (PARM,MODE,WORD) C 10 IF (MODE .LE. 0) CALL RDMODE (*10,*20,*40,MODE,WORD) 20 CALL RDWORD (MODE,WORD) C C CHECK FOR A DEFORMATION TYPE C DO 30 DTYPE = 1,5 IF (WORD .EQ. MF1(1,DTYPE)) GO TO 50 30 CONTINUE 40 DTYPE = 0 IF (WORD.NE.CONTUR .OR. MODE.GE.EOR) GO TO 180 PCON = 1 PLTTYP= 1 GO TO 90 C C DEFORMATION TYPE SPECIFIED. CHECK IF ALL ARE TO BE PLOTTED C 50 PLTTYP = 1 IF (MODE .LE. 0) CALL RDMODE (*120,*60,*110,MODE,WORD) 60 CALL RDWORD (MODE,WORD) DO 70 PLTTYP = 1,3 IF (WORD .EQ. MF2(1,PLTTYP)) GO TO 80 70 CONTINUE PLTTYP = 1 IF (WORD .NE. CONTUR) GO TO 110 PCON = 1 GO TO 80 C C ACCEL, VELOCITY ONLY ALLOWED FOR TRANS OR FREQUENCY RESPONSE. C NOTE THAT A COMPLEX IGENVALUE WOULD BE NEEDED FOR -CMODAL- C 80 IF ((DTYPE.EQ.2 .OR. DTYPE.EQ.3) .OR. PLTTYP.EQ.1) GO TO 90 ERR(1) = 2 ERR(2) = AWRD(1) ERR(3) = AWRD(2) CALL WRTPRT (MERR,ERR,MSG1,NMSG1) PLTTYP = 1 90 IF (MODE .LE. 0) CALL RDMODE (*120,*100,*110,MODE,WORD) 100 CALL RDWORD (MODE,WORD) 110 NDEF = 1 DEFLST(1) = ALL GO TO 180 C C THE DEFORMATIONS MAY BE EXPLICITLY LISTED AND/OR A RANGE MAY BE C LISTED (I.E., N1,N2 AND/OR N1 -TO/THRU- N2) C 120 ASSIGN 130 TO TRA GO TO 1450 130 NDEF = NDEF + 1 DEFLST(NDEF) = IWRD CALL RDMODE (*1450,*140,*170,MODE,WORD) 140 CALL RDWORD (MODE,WORD) IF (MODE.NE.0 .OR. (WORD.NE.TO .AND. WORD.NE.THRU)) GO TO 170 ASSIGN 150 TO TRA CALL RDMODE (*1450,*160,*170,MODE,WORD) 150 DEFLST(NDEF+1) = TO DEFLST(NDEF+2) = IWRD NDEF = NDEF + 2 CALL RDMODE (*120,*160,*170,MODE,WORD) 160 CALL RDWORD (MODE,WORD) 170 IF (NDEF.NE.1 .OR. DEFLST(1).NE.0) GO TO 180 NDEF = 2 DEFLST(2) = ALL C C ALL THE LISTED DEFORMATION ID-S HAVE BEEN READ C 180 DEFLST(NDEF+1) = 0 IF (MODE .GE. EOR) GO TO 340 C C TEST FOR CONTOUR REQUEST C 190 IF (WORD .NE. CONTUR) GO TO 240 IF (PCON .EQ. 0) GO TO 220 200 ERR(2) = AWRD(1) ERR(3) = AWRD(2) 210 ERR(1) = 2 CALL WRTPRT (MERR,ERR,MSG1,NMSG1) GO TO 320 C 220 PCON = 1 IF (DTYPE .EQ. 0) PLTTYP = 1 IF (NDEF .NE. 1) GO TO 230 NDEF = 0 GO TO 90 230 IF (MODE .GT. 0) GO TO 320 ERR(2) = SUBC(1) ERR(3) = SUBC(2) GO TO 210 C C TEST FOR RANGE / TIME (UNITS=LAMDA,F, OR TIME) C 240 IF (WORD.NE.RANG .AND. WORD.NE.TIME) GO TO 270 IF (PCON.EQ.0 .AND. DTYPE.EQ.1) GO TO 200 ASSIGN 250 TO TRA IF (MODE .GT. 0) GO TO 200 CALL RDMODE (*1490,*330,*340,MODE,WORD) 250 V1 = FWRD ASSIGN 260 TO TRA CALL RDMODE (*1490,*330,*340,MODE,WORD) 260 V2 = FWRD GO TO 320 C C TEST FOR PHASE LAG (COMPLEX DATA) C 270 IF (WORD .NE. LAG(1)) GO TO 310 IF (DTYPE.NE.2 .AND. DTYPE.NE.5) GO TO 200 ASSIGN 300 TO TRA 280 IF (MODE .LE. 0) CALL RDMODE (*1490,*290,*340,MODE,WORD) 290 CALL RDWORD (MODE,WORD) IF (WORD .EQ. LAG(2)) GO TO 280 GO TO 340 300 IF (MAG.EQ.0) PH = FWRD GO TO 320 C C TEST FOR MAGNITUDE (COMPLEX DATA) C 310 IF (WORD .NE. MAGC(1)) GO TO 340 IF (DTYPE.NE.2 .AND. DTYPE.NE.5) GO TO 200 IF (PH .EQ. 0.0) MAG = 1 GO TO 320 C 320 IF (MODE .LE. 0) CALL RDMODE (*320,*330,*340,MODE,WORD) 330 CALL RDWORD (MODE,WORD) GO TO 190 C C READ THE REST OF THE PLOT CARD INTO STORAGE - DEFLST(N1-N2) C 340 N1 = NDEF + 1 N2 = N1 + 1 IF (MODE .LT. EOR) GO TO 350 DEFLST(N2) = MODE N2 = N2 + 1 GO TO 400 350 N = 0 360 DEFLST(N2+1) = AWRD(1) DEFLST(N2+2) = AWRD(2) N2 = N2 + 2 N = N + 1 IF (MODE .EQ. 0) GO TO 370 CALL RDWORD (MODE,WORD) GO TO 360 370 N2 = N2 + 1 DEFLST(N1+1) = N 380 CALL READ (*1520,*390,PARM,DEFLST(N2),DEFBUF-N2+1,0,N) GO TO 1400 390 N2 = N2 + N C C SAVE LENGTH OF OPEN CORE USED IN IUSED FOR HDPLOT C IUSED = N2 + NSETS IF (DEFLST(N2-1) .EQ. 0) GO TO 380 400 N2 = N2 - 1 C C INITIATE THE PLOTS OF THE REQUESTED DEFORMATIONS. C NPLOTS = 0 IF (PRNT .LT. 0) GO TO 420 IF (DTYPE.EQ.0 .AND. PCON.EQ.0) GO TO 410 ANYDEF = 1 GO TO 1430 C C DO THE UNDEFORMED PLOT C 410 DEFID = 0 DEFBUF = DEFBUF + BUFSIZ IF (ISUBS.EQ.0 .AND. .NOT.TAPBIT(PLTTAP)) GO TO 1520 GO TO 700 420 IF (DTYPE.EQ.0 .AND. PCON.EQ.0) GO TO 1430 C C DO THE DEFORMED PLOT C C STRESS IS TRUE IF CONTOUR REQUEST IS FOR STRESS C LPCON = PCON IF (.NOT.TAPBIT(PLTTAP)) GO TO 1520 IF (PCON.NE.0 .AND. ICNTVL.LE. 9) STRESS = .TRUE. IF (PCON.NE.0 .AND. ICNTVL.GT.13) STRESS = .TRUE. IF ((PCON.NE.0 .AND. (ICNTVL.GT.9.AND.ICNTVL.LT.14)) .OR. 1 DTYPE.NE.0) DISP = .TRUE. IF (.NOT.DISP) GO TO 470 MDEF = DEFILE(1) IF (DTYPE .GT. 1) MDEF = DEFILE(2) IF (DTYPE .GT. 0) GO TO 460 C C USER SPECIFIED CONTOUR DISP AND NOT THE TYPE C USE FIRST NON-NULL FILE C 430 CALL OPEN (*440,MDEF,DEFLST(DEFBUF),INPREW) CALL SKPREC (MDEF,1) GO TO 450 440 IF (MDEF .EQ. DEFILE(2)) CALL MESAGE (-1,MDEF,NAME) MDEF = DEFILE(2) GO TO 430 C C SET DTYPE BY MFILE C 450 CALL READ (*1390,*1390,MDEF,ERR(1),2,0,I) MFILE = MOD(ERR(2),10) DTYPE = MFILE CALL CLOSE (MDEF,REW) 460 CONTINUE C C CALCULATE HEADER WORD 2 NEEDED FOR PLOT FILE CHECK C MFILE = DTYPE IF (DTYPE .EQ. 3) MFILE = 3 + (PLTTYP-1)*10 C C OPEN OES1 AND MDEF C IF (.NOT.DISP) GO TO 470 CALL OPEN (*1430,MDEF,DEFLST(DEFBUF),INPREW) CALL SKPREC (MDEF,1) 470 IF (.NOT.STRESS) GO TO 500 CALL OPEN (*1390,OES1,DEFLST(B1),INPREW) CALL SKPREC (OES1,1) IF (.NOT.DISP) PLTTYP = 4 CALL FREAD (OES1,I,1,0) CALL BCKREC (OES1) I = I/10 JAPP = I IF (DTYPE .NE. 0) GO TO 475 IF (I.EQ.1 .OR. I.EQ.3 .OR. I.EQ.4 .OR. I.EQ.7 .OR. I.EQ.10) 1 DTYPE = 1 IF (I.EQ.2 .OR. I.EQ.8) DTYPE = 4 IF (I .EQ. 6) DTYPE = 3 C C FOR STRESS PLOTS SET -FLAG- SO FNDSET KNOWS WHICH WORD TO COMPARE C 475 IF (DTYPE .EQ. 1) GO TO 480 IF (DTYPE .GT. 1) FLAG = 1.0 IF (DTYPE .GT. 3) FLAG = 2.0 480 IF (DTYPE .EQ. 0) GO TO 1410 IF (.NOT.DISP) DEFBUF = DEFBUF + BUFSIZ C C READ THE PLOT TITLES FOR EACH DEFORMED SHAPE TO BE DRAWN C 500 PCON = LPCON IF (.NOT.DISP) GO TO 540 510 CALL READ (*1385,*1385,MDEF,DEFID,1,0,I) CALL FREAD (MDEF,N,1,0) IF (N .EQ. MFILE) GO TO 515 CALL SKPREC (MDEF,1) GO TO 530 515 CONTINUE CALL FREAD (MDEF,LOADID,1,0) CALL FREAD (MDEF,VALUE, 1,1) IF (VALUE.LT.V1 .OR. VALUE.GT.V2) GO TO 530 DATA = VALUE SUBCAS = DEFID N = 1 520 IF (DEFLST(N) .EQ. ALL) GO TO 540 CALL INTLST (DEFLST,N,I,D1,D2) IF (DEFID.GE.D1 .AND. DEFID.LE.D2) GO TO 540 IF (N .LT. N1) GO TO 520 530 CALL SKPREC (MDEF,1) GO TO 510 C C POSITION OES1 IF NEEDED C 540 IF (.NOT.STRESS) GO TO 660 IF (NPLOTS .NE. 0) CALL OPEN (*1390,OES1,DEFLST(B1),NOREW) 550 CALL READ (*1385,*1385,OES1,IAPP,1,0,I) C C VERIFY OES1 IS FOR CURRENT DTYPE C IAPP = IAPP/10 IF (IAPP .NE. JAPP) GO TO 1385 CALL FREAD (OES1,0,-2,0) CALL FREAD (OES1,I,1,0) IF (.NOT.DISP ) GO TO 570 IF (I.NE.DEFID) GO TO 620 570 SUBCAS = I V = VALUE CALL FREAD (OES1,ERR(1),4,0) IF (DTYPE .EQ. 1) GO TO 575 IF (DTYPE .GE. 4) GO TO 580 C C TRANSIENT C V = FRR(1) C C STATICS C 575 J = ERR(4) GO TO 590 C C MODAL C 580 J = ERR(1) V = FRR(2) IF (DTYPE.EQ.4 .AND. IAPP.EQ.2) V = SQRT(ABS(V))/TWOPI 590 IF (.NOT.DISP) GO TO 600 C C ACCOUNT FOR ROUNDOFF C IF (ABS(V-VALUE) .GT. 1.0E-6) GO TO 620 DATA = VALUE GO TO 650 600 IF (V.LT.V1 .OR. V.GT.V2) GO TO 620 DATA = V N = 1 610 IF (DEFLST(N) .EQ. ALL) GO TO 650 CALL INTLST (DEFLST,N,I,D1,D2) IF (SUBCAS.GE.D1 .AND. SUBCAS.LE.D2) GO TO 650 IF (N .LT. N1) GO TO 610 C C WRONG CASE C 620 CALL FWDREC (*1410,OES1) CALL FWDREC (*1410,OES1) GO TO 550 C C LOCATED CASE TO PLOT C 650 CALL BCKREC (OES1) LOADID = J DEFID = SUBCAS VALUE = DATA C 660 CALL GOPEN (CASECC,DEFLST(BUF1),INPREW) 670 CALL READ (*690,*690,CASECC,N,1,0,I) IF (N .EQ. DEFID) GO TO 675 CALL FREAD (CASECC,0,0,1) GO TO 670 675 CALL FREAD (CASECC,0,-SKPLOD,0) CALL FREAD (CASECC,THLID,1,0) IF (LOADID .EQ. 0) LOADID = THLID SKPTTL = 31 CALL FREAD (CASECC,0,-SKPTTL,0) CALL FREAD (CASECC,TITLE,3*32,0) CALL CLOSE (CASECC,REW) GO TO 700 690 CALL CLOSE (CASECC,REW) IF (.NOT.DISP) GO TO 550 CALL FREAD (MDEF,0,0,1) GO TO 510 C C IDENTIFY THE PLOT C 700 PLTNUM = PLTNUM + 1 IF (STRESS) CALL CLOSE (OES1,NOREW) CALL SOPEN (*1430,PLTTAP,DEFLST(PLTBUF),PBUFSZ) NCNTR = -IABS(NCNTR) IF (NPLOTS .EQ. 0) CALL PLTOPR NPLOTS = NPLOTS + 1 STEREO = 0 MTYP = 0 ERR(2) = PLTNUM IF (.NOT.(DISP .OR. STRESS)) GO TO 720 ERR(3) = MF1(1,DTYPE) ERR(4) = MF1(2,DTYPE) IF (ICNTVL .EQ. 20) PLTTYP = 4 ERR(5) = MF2(1,PLTTYP) ERR(6) = MF2(2,PLTTYP) ERR(7) = DEFID ERR(8) = LOADID ERR(9) = LOAD IF (DTYPE .NE. 1) GO TO 710 ERR(1) = 8 GO TO 730 710 ERR(1) = 12 IF (DTYPE .GT. 3) ERR(9) = IMOD FRR(10) = VALUE MTYP = 1 IF (DTYPE .EQ. 3) MTYP = 3 IF (DTYPE.EQ.4 .AND. LOADID.LT.0) MTYP = 2 IF (MTYP .EQ. 2) ERR(8) = -LOADID ERR(11) = MF3(1,MTYP) ERR(12) = MF3(2,MTYP) ERR(13) = MF3(3,MTYP) IF (DTYPE.EQ.3 .OR. DTYPE.EQ.4) GO TO 730 ERR(1) = 15 M = 0 IF (MAG .NE. 0) M = 3 ERR(14) = MF4(M+1) ERR(15) = MF4(M+2) ERR(16) = MF4(M+3) IF (MAG .NE. 0) GO TO 730 ERR(1) = 16 FRR(17) = PH GO TO 730 720 ERR(1) = 1 CALL WRTPRT (MERR,ERR,F1,NF(1)) GO TO 740 730 CALL WRTPRT (MERR,ERR,F2,NF(2)) 740 CALL STPLOT (PLTNUM) CALL HEAD (DTYPE,PLTTYP,MTYP,ERR) C C PLOT EACH SET REQUESTED. INTERPRET THE ASSOCIATED REQUESTS. C 750 CALL RDMODY (DEFLST(N1+1),MODE,WORD) MODE = 0 MAXDEF = 0. PORIG = 1 PPEN = 1 PSET = 0 760 PLABEL = -1 PCON = LPCON PSHAPE = 1 PVECTR = 0 OFFLAG = 0 PEDGE = 0 PSYMBL(1) = 0 PSYMBL(2) = 0 PSYMM(1) = 1 PSYMM(2) = 1 PSYMM(3) = 1 PSYMM(4) = 1 PSYMM(5) = 1 PSYMM(6) = 1 780 IF (MODE .LE. 0) CALL RDMODE (*780,*790,*1180,MODE,WORD) 790 CALL RDWORD (MODE,WORD) C C CHECK FOR THE KEYWORD. THIS MAY BE FOLLOWED BY QUALIFIERS C 800 CONTINUE DO 802 KEYWD = 1,17 IF (WORD .EQ. RQST(KEYWD)) GO TO 804 802 CONTINUE GO TO 1170 804 GO TO (1080, 910, 960, 990, 830,1060, 810, 810,1020,1020, 1 880,1140,1148,1142,1175, 805,1160), KEYWD C C SET ORIG SHAP SYMB LABE VECT DENS PEN SYMM ANTI C 1 MAXI OUTL HIDD SHRI NOFI FILL OFFS C C FILL ELEMENTS BY SET HERE C FILL PRESENTLY DOES NOT WORK TOGETHER WITH SHRINK AND HIDDEN C 805 PPEN = PPEN + 31 PEDGE = 100 GO TO 780 C C DENSITY I, PEN I C 810 IF (MODE .NE. 0) GO TO 1170 ASSIGN 820 TO TRA GO TO 1440 820 PPEN = IWRD GO TO 780 C C LABEL GRID / ELEMENTS C 830 PLABEL = 0 IF (MODE .LE. 0) CALL RDMODE (*780,*840,*1180,MODE,WORD) 840 CALL RDWORD (MODE,WORD) IF (WORD .EQ. BOTH) GO TO 870 IF (WORD .EQ. ELEM) GO TO 860 IF (WORD .NE. GRID) GO TO 872 IF (MODE .LE. 0) CALL RDMODE (*780,*850,*1180,MODE,WORD) 850 CALL RDWORD (MODE,WORD) IF (WORD-POIN) 800,780,800 860 PLABEL = 3 GO TO 780 870 PLABEL = 6 GO TO 780 872 IF (WORD .EQ. GSPC) PLABEL = 1 IF (WORD .EQ. EPID) PLABEL = 4 IF (PLABEL .NE. 0) GO TO 780 GO TO 800 C C MAXIMUM DEFORMATION X.X C 880 CONTINUE ASSIGN 900 TO TRA IF (MODE .LE. 0) CALL RDMODE (*1490,*890,*1180,MODE,WORD) 890 CALL RDWORD (MODE,WORD) IF (WORD.NE.DEFO .OR. MODE.NE.0) GO TO 800 GO TO 1480 900 MAXDEF = ABS(FWRD) GO TO 780 C C ORIGIN I C 910 IF (MODE .NE. 0) GO TO 1170 ASSIGN 920 TO TRA GO TO 1440 920 DO 930 I = 1,ORG IF (ORIGIN(I) .EQ. IWRD) GO TO 940 930 CONTINUE IF (STEREO .NE. 0) GO TO 780 ERR(1) = 1 ERR(2) = IWRD CALL WRTPRT (MERR,ERR,MSG2,NMSG2) GO TO 780 940 PORIG = I GO TO 780 C C SHAPE C 960 IF (PEDGE .NE. 0) GO TO 1170 IF ((.NOT.(DISP .OR. STRESS) .AND. DTYPE .NE. 0)) GO TO 1170 IF (.NOT.DISP) GO TO 780 PSHAPE = 2 DO 970 I = 1,NDEF IF (DEFLST(I) .EQ. 0) GO TO 980 970 CONTINUE GO TO 780 980 PSHAPE = 3 GO TO 780 C C SYMBOL I,I C 990 PSYMBL(1) = 1 IF (MODE .NE. 0) GO TO 1170 ASSIGN 1010 TO TRA I = 0 1000 I = I + 1 GO TO 1440 1010 PSYMBL(I) = IWRD IF (I-2) 1000,780,780 C C SYMMETRY B / ANTISYMMETRY B C 1020 N = 1 IF (KEYWD .EQ. 10) N = -1 IF (MODE .LE. 0) GO TO 1170 CALL RDWORD (MODE,WORD) CALL INTVEC (WORD) IF (WORD.LT.1 .OR. WORD.GT.7) GO TO 1170 DO 1050 I = 1,3 PSYMM(I) = 1 IF (ANDF(WORD,2**(I-1)) .NE. 0) PSYMM(I) = -1 PSYMM(I+3) = N*PSYMM(I) 1050 CONTINUE GO TO 780 C C VECTOR B C 1060 IF (.NOT.DISP .OR. MODE .EQ. 0) GO TO 1170 CALL RDWORD (MODE,WORD) PVECTR = WORD GO TO 780 C C SET - SAVE FIRST ENCOUNTERED, DO PLOT WHEN EOR OR ANOTHER SET C 1080 IF (MODE .NE. 0) GO TO 1170 ASSIGN 1090 TO TRA GO TO 1440 1090 IWRD = IABS(IWRD) DO 1100 I = SETD,NSETS IF (IWRD .EQ. SETID(I)) GO TO 1120 1100 CONTINUE IF (STEREO .NE. 0) GO TO 1110 WRITE (NOUT,1105) UFM,IWRD 1105 FORMAT (A23,' 700, SET',I9,' REQUESTED ON PLOT CARD HAS NOT BEEN', 1 ' DEFINED.') NOGO = 1 1110 IWRD = SETD GO TO 1130 1120 IWRD = I 1130 IF (PSET .NE. 0) GO TO 1180 PSET = IWRD GO TO 780 C C OUTLINE C 1140 IF (PSHAPE .NE. 1) GO TO 1170 IF (PCON .EQ. 0) GO TO 780 PEDGE = 1 GO TO 1149 C C SHRINK C 1142 IF (PEDGE .NE. 2) PEDGE = 75 IF (PEDGE .EQ. 2) PEDGE = 75 + 200 C SHRINK + HIDDEN C IF (MODE .GT. 0) GO TO 780 CALL RDMODE (*1144,*1143,*1180,MODE,WORD) 1143 CALL RDWORD (MODE,WORD) GO TO 1149 1144 IF (MODE.EQ.-2 .AND. FWRD.GT.0.0 .AND. FWRD.LE.1.0) GO TO 1147 WRITE (NOUT,1145) UWM 1145 FORMAT (A25,', INPUT VALUE ERROR FOR SHRINK. 0.85 IS SUBSTITUED') IF (MODE .EQ. -1) WRITE (NOUT,1146) IWRD 1146 FORMAT (5X,'FOR INTEGER VALUE',I5) FWRD = 0.85 1147 J = FWRD*100 IF (J .LT. 10) J = 10 IF (J .GT. 100) J = 100 IF (PEDGE .NE. 2) PEDGE = J IF (PEDGE .EQ. 2) PEDGE = J + 200 C SHRINK + HIDDEN C GO TO 1149 C C HIDDEN C 1148 IF (PEDGE .LT. 10) PEDGE = 2 IF (PEDGE.GE.10 .AND. PEDGE.LE.100) PEDGE = 200 + PEDGE C HIDDEN + SHRINK 1149 IF (.NOT.DISP) GO TO 780 DO 1150 I = 1,NDEF IF (DEFLST(I) .EQ. 0) GO TO 1155 1150 CONTINUE PSHAPE = 2 GO TO 780 1155 PSHAPE = 3 GO TO 780 C C OFFSET n C TURN OFFSET PLOT ON IF n IS .GE. 0. +n IS MAGNIFYING FACTOR C TURN OFFSET PLOT OFF IF n IS .LT. 0 C C 1160 IF (MODE .NE. 0) GO TO 1170 ASSIGN 1165 TO TRA GO TO 1440 1165 OFFSCL = IWRD IF (OFFSCL .GE. 0) PEDGE = 3 GO TO 780 C C UNRECOGNIZABLE OPTION ON THE -PLOT- CARD. C 1170 IF (STEREO .NE. 0) GO TO 780 ERR(1) = 2 ERR(2) = AWRD(1) ERR(3) = AWRD(2) CALL WRTPRT (MERR,ERR,MSG1,NMSG1) GO TO 780 C C NOFIND C C COMMENTS FROM G.CHAN/UNISYS 11/1990 C THE 'NOFIND' FEATURE IN NASTRAN PLOTTING COMMANDS IS REALLY NOT C NEEDED. IT ONLY LIMITS TO PREVIOUS PLOT CASE. THE FOLLOWING TWO C EXAMPLES GIVE EXACTLY THE SAME RESULT IN $ PLOT 2 C C $ PLOT 1 $ PLOT 1 C FIND SCALE, ORIGIN 100, SET 2 FIND SCALE, ORIGIN 100, SET 2 C PLOT ORIGIN 100 PLOT ORIGIN 100 C $ PLOT 2 $ PLOT 2 C PLOT ORIGIN 100 PLOT NOFIND C : C (NOTE - ORIGIN 100 IS STILL AVAILABLE C IN ANY FOLLOWING PLOT) C $ PLOT N C PLOT ORIGIN 100 C 1175 NOFIND = +1 IF (LORIG .EQ. 0) GO TO 1530 PORIG = LORIG GO TO 780 C C 1180 IF (NOFIND .GE. 0) GO TO 1185 IF (FSCALE.NE.0 .OR. FOR.NE.0) GO TO 1182 IF (PRJECT.EQ.1 .OR. FVP.EQ.0) GO TO 1185 1182 FORG = 1 FSCALE= 1 ISETD = SETD SETD = MAX0(SETD,PSET) MODEX = MODE MODE = -1 ORG = MAX0(1,ORG) CALL FIND (MODE,BUF1,B1,SETID,DEFLST) NOFIND= +1 SETD = ISETD MODE = MODEX C C PLOT THIS SET C 1185 IF (.NOT.DISP) GO TO 1210 IF (PVECTR.NE.0 .OR. PSHAPE.NE.1 .OR. PEDGE.NE.0) GO TO 1210 IF (PCON.NE.0 .AND. ICNTVL.GT. 9) GO TO 1210 IF (PCON.NE.0 .AND. ICNTVL.GT.13) GO TO 1210 C C CREATE A DEFAULT OF SHAPE OR SHAPE + UNDERLAY C DO 1190 I = 1,NDEF IF (DEFLST(I) .EQ. 0) GO TO 1200 1190 CONTINUE PSHAPE = 2 GO TO 1210 1200 PSHAPE = 3 1210 PSET = MAX0(PSET,SETD) C C DEFAULT OF FIRST DEFINED SET WILL BE USED C CALL GOPEN (GPSET,DEFLST(B1),INPREW) CALL SKPREC (GPSET,PSET) CALL FREAD (GPSET,NGPSET,1,0) C C TEST FOR CORE NEEDED FOR BOTH UNDEF, DEFOR PLOTS, GRID INDEX C I1 = N2 + NGP + 1 C C UNDEFORMED COORDINATES C I2 = I1 + 3*NGPSET C C DEFORMATION VALUES C I3 = I2 + 3*NGPSET C C REDUCE CORE FOR UNDEFORMED PLOTS C IF (DISP) GO TO 1230 I3 = I2 N = 0 GO TO 1240 C C DEFORMED PLOTS NEED X-Y LOCATIONS OF RESULTANT DEFLECTIONS ON C FRAME C 1230 N = 2*NGPSET C 1240 IF (I3+N-1 .GE. DEFBUF) GO TO 1400 IUSED = MAX0(I3+N-1,IUSED+NGP) C CALL FREAD (GPSET,DEFLST(N2+1),NGP,0) CALL CLOSE (GPSET,REW) CALL FNDSET (DEFLST(N2+1),DEFLST(I1),BUF1-N2,0) C CALL GOPEN (ELSET,DEFLST(B1),INPREW) IF (PSET .EQ. 1) GO TO 1280 CALL SKPREC (ELSET,PSET-1) C 1280 IF (.NOT.STRESS) GO TO 1290 IF (ICNTVL.LT.4 .OR. DIRECT.NE.2) GO TO 1290 I = B1 + BUFSIZ CALL CLOSE (PARM,NOREW) CALL GOPEN (OES1,DEFLST(I),NOREW) C CALL ROTAT (ELSET,BUF1-N2,DEFLST(N2+1),DEFLST(I1)) C CALL CLOSE (OES1,NOREW) CALL GOPEN (PARM,DEFLST(I),NOREW) C 1290 IF (.NOT.DISP) GO TO 1320 C C CONVERSION FOR ACCEL OR VELOCITY C CONV = 1.0 IF (PLTTYP .EQ. 1) GO TO 1310 IF (PLTTYP.EQ.3 .OR. PLTTYP.EQ.4) GO TO 1300 C C VELOCITY C CONV = VALUE*TWOPI GO TO 1310 C C ACCEL C 1300 CONV = (VALUE*TWOPI)**2 1310 I = 3*BUFSIZ + B1 PH1 = PH * TWOPI/360.0 CALL GETDEF (MDEF,PH1,MAG,CONV,PLTTYP,DEFLST(I),DEFLST(N2+1), 1 DEFLST(I2)) C FILE PH MAG W RESP BUF(1) GPLST C DEFLECTION C C PRINT THE MAXIMUM FOUND ON THE PLOT FILE C IF (MODE.GE.EOR .AND. ICOLOR.EQ.0) CALL HEAD (0,0,-1,DEFMAX) ASSIGN 1320 TO INCOM IF (MAXDEF .NE. 0.0) DEFMAX = MAXDEF IF (DEFMAX.EQ.0.0 .OR. SCALE(4).EQ.0.0) GO TO 1420 C C GPLST ,X ,U ,S , 1320 CALL DRAW (DEFLST(N2+1),DEFLST(I1),DEFLST(I2),DEFLST(I3), 1 DISP,STEREO,DEFBUF-(I3+N),BUF1-N2) C C NOTE - THE NEXT TO LAST ARGUMENT, DEFBUF-(I3+N), IS THE SIZE OF C AVAILABLE OPEN CORE. IT IS NOT A POINTER, AND IT IS NOT AN C OPEN CORE ARRAY C C OPEN CORE /ZZPLOT/ C SETID NSETS NDOF NGP 3*NGPSET 3*NGPSET SCRATCH N C -----+-----+----+----+---+--------+--------+-------+--+--+-+-+-+-+ C ! N1 N2 I1 (X) I2 (U) I3 (S) DEFBUF ..BUF.. C !(DEFLST) / C (GPLST) N=2*NGPSET C CALL CLOSE (ELSET,REW) IF (MODE .GE. EOR) GO TO 1360 IF (.NOT.DISP) GO TO 1350 CALL BCKREC (MDEF) 1350 PSET = IWRD IF (.NOT.STRESS) GO TO 760 C C POSITION OES1 C I = 1 ASSIGN 1360 TO INCOM CALL FNDSET (DEFLST(N2+1),DEFLST(I1),BUF1-N2,I) IF (I .EQ. 1) GO TO 760 GO TO 1420 C C END OF A DEFORMATION C 1360 CALL STPLOT (-1) IF (PRJECT.NE.3 .OR. STEREO.NE.0) GO TO 1380 STEREO = 1 CALL SOPEN (*1430,PLTTAP,DEFLST(PLTBUF),PBUFSZ) J = BFRMS BFRMS = 2 CALL STPLOT (PLTNUM) BFRMS = J PLTNUM = PLTNUM + 1 IF (.NOT.DISP) GO TO 1370 CALL BCKREC (MDEF) 1370 IF (.NOT.STRESS) GO TO 750 C C POSITION OES1 C I = 1 ASSIGN 1360 TO INCOM CALL FNDSET (DEFLST(N2+1),DEFLST(I1),BUF1-N2,I) IF (I .NE. 1) GO TO 1420 GO TO 750 1380 IF (DISP .OR. STRESS) GO TO 500 C C END OF THIS PLOT CARD. C 1385 IF (STRESS) CALL CLOSE (OES1,REW) 1390 IF (DISP ) CALL CLOSE (MDEF,REW) GO TO 1430 C C INSUFFICIENT CORE TO START PROCESSING C 1400 CALL MESAGE (-8,DEFBUF,NAME) C 1410 CONTINUE GO TO 1385 C C INCOMPLETE PLOT RESULTED C 1420 ERR(1) = 0 CALL WRTPRT (MERR,ERR,MSG7,NMSG7) GO TO INCOM, (1360,1320) C C FINISHING ONE PLOT C ECHO OUT WHICH ORIGIN WAS USED C 1430 IF (NOGO .NE. 0) CALL MESAGE (-61,0,0) IF (PORIG .EQ. 0) GO TO 1550 ERR(1) = 1 ERR(2) = ORIGIN(PORIG) CALL WRTPRT (MERR,ERR,USED,10) CALL WRITE (MERR,0,0,1) LORIG = PORIG PORIG = 0 GO TO 1550 C C READ AN INTEGER VALUE FROM THE -PLOT- CARD C 1440 CALL RDMODE (*1450,*790,*1180,MODE,WORD) 1450 IF (MODE .EQ. -1) GO TO 1470 IF (MODE .EQ. -4) GO TO 1460 IWRD = FWRD GO TO 1470 1460 IWRD = DWRD 1470 GO TO TRA, (130,150,820,920,1010,1090,1165) C C READ A REAL VALUE FROM THE -PLOT- CARD C 1480 CALL RDMODE (*1490,*790,*1180,MODE,WORD) 1490 IF (MODE .EQ. -4) GO TO 1500 IF (MODE .EQ. -1) FWRD = IWRD GO TO 1510 1500 FWRD = DWRD 1510 GO TO TRA, (250,260,900,300) C 1520 WRITE (NOUT,1525) UFM,PLTTAP 1525 FORMAT (A23,' 702, PLOT FILE ',A4,' DOES NOT EXIST.') NOGO = 1 GO TO 1390 1530 WRITE (NOUT,1535) UWM,LORIG 1535 FORMAT (A25,' 704, NO PREVIOUS PLOT TO INITIATE NOFIND OPERATION') C 1550 RETURN END ================================================ FILE: mis/pltmrg.f ================================================ SUBROUTINE PLTMRG C C MODULE PLTMRG WRITES GINO DATA BLOCKS WHICH ARE USED AS INPUT TO C THE PLOT MODULE FOR PLOTTING A SUBSTRUCTURE. C C APRIL 1974 C LOGICAL IDENT INTEGER BUF ,SYSBUF ,Z(3) ,CASESS ,PCDB , 1 PLTP ,GPS ,ELS ,BGP ,CASEP , 2 EQEX ,SCR1 ,SRD ,PLTS ,FILE , 3 EQSS ,SUBR(2) ,CASECC(2),BUF1 ,ELID , 4 BUF2 ,BUF3 ,BUF4 ,BUF5 ,RC , 5 BAR ,QUAD4 ,TRIA3 ,OFFSET REAL RZ COMMON /BLANK / NAME(2) ,NGPTOT ,LSIL ,NPSET , 1 NM(2) ,BUF(7) COMMON /SYSTEM/ SYSBUF COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW COMMON /ZZZZZZ/ RZ(1) EQUIVALENCE (Z(1),RZ(1)) DATA PLTS , EQSS ,SUBR ,CASECC / 1 4HPLTS, 4HEQSS ,4HPLTM ,4HRG ,4HCASE ,4HCC / DATA CASESS, PCDB ,PLTP ,GPS ,ELS / 1 101 , 102 ,201 ,202 ,203 /, 2 BGP , CASEP ,EQEX ,SCR1 ,SRD / 3 204 , 205 ,206 ,301 ,1 /, 4 BAR , QUAD4 ,TRIA3 / 5 2HBR , 2HQ4 ,2HT3 / C C INITIALIZE C NCORE = KORSZ(Z) BUF1 = NCORE- SYSBUF + 1 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF BUF5 = BUF4 - SYSBUF NCORE = BUF5 - 1 NGPTOT= 0 LSIL = 0 NPSET =-1 IF (NCORE .LE. 0) GO TO 9008 CALL SOFOPN (Z(BUF3),Z(BUF4),Z(BUF5)) C C STRIP SUBSTRUCTURE RECORDS FROM CASESS AND WRITE CASEP (CASECC) C FILE = CASESS CALL OPEN (*9001,CASESS,Z(BUF1),RDREW) FILE = CASEP CALL OPEN (*9001,CASEP,Z(BUF2),WRTREW) CALL FNAME (CASEP,BUF) CALL WRITE (CASEP,BUF,2,1) FILE = CASESS 10 CALL READ (*9002,*9003,CASESS,Z,2,1,NWDS) IF (Z(1).NE.CASECC(1) .OR. Z(2).NE.CASECC(2)) GO TO 10 20 CALL READ (*40,*30,CASESS,Z,NCORE,1,NWDS) GO TO 9008 30 CALL WRITE (CASEP,Z,NWDS,1) GO TO 20 40 CALL CLSTAB (CASEP,REW) CALL CLOSE (CASESS,REW) C C BASIC GRID POINT DATA C NM(1) = NAME(1) NM(2) = NAME(2) ITEM = PLTS CALL SFETCH (NAME,PLTS,SRD,RC) IF (RC .NE. 1) GO TO 6100 C C READ SUBSTRUCTURE NAMES AND TRANSFORMATION DATA INTO OPEN CORE. C CALL SUREAD (Z,3,NWDS,RC) IF (RC .NE. 1) GO TO 6106 NSS = Z(3) IF (14*NSS .GT. NCORE) GO TO 9008 CALL SUREAD (Z,14*NSS,NWDS,RC) IF (RC .NE. 1) GO TO 6106 ICORE = 14*NSS + 1 C C READ THE BASIC GRID POINT DATA FROM THE PLTS ITEM OF EACH BASIC C SUBSTRUCTURE COMPRISING THE PSEUDOSTRUCTURE TO BE PLOTTED. C TRANSFORM THE COORDINATES TO THE BASIC COORDINATE SYSTEM OF THE C PSEUDOSTRUCTURE AND WRITE THEM ON BGP (BGPDT). C FILE = BGP CALL OPEN (*9001,BGP,Z(BUF1),WRTREW) CALL FNAME (BGP,BUF) CALL WRITE (BGP,BUF,2,1) J = 1 120 NM(1) = Z(J ) NM(2) = Z(J+1) NGP = 0 CALL SFETCH (NM,PLTS,SRD,RC) IF (RC .EQ. 1) GO TO 130 CALL SMSG (RC-2,PLTS,NM) GO TO 170 130 I = 1 CALL SJUMP (I) IDENT = .FALSE. DO 140 I = 1,3 IF (Z(J+I+1) .NE. 0) GO TO 150 IF (Z(J+I+5) .NE. 0) GO TO 150 IF (Z(J+I+9) .NE. 0) GO TO 150 IF (ABS(RZ(J+4*I+1)-1.0) .GT. 1.0E-4) GO TO 150 140 CONTINUE IDENT = .TRUE. 150 CALL SUREAD (BUF,4,NWDS,RC) IF (RC .EQ. 2) GO TO 170 NGP = NGP + 1 IF (IDENT .OR. BUF(1).LT.0) GO TO 160 BUF(5) = Z(J+2) BUF(6) = Z(J+3) BUF(7) = Z(J+4) CALL GMMATS (Z(J+5),3,3,-2,BUF(2),3,1,0,BUF(5)) CALL WRITE (BGP,BUF,1,0) CALL WRITE (BGP,BUF(5),3,0) GO TO 150 160 CALL WRITE (BGP,BUF,4,0) GO TO 150 170 NGPTOT = NGPTOT+NGP Z(J+2) = NGP J = J + 14 IF (J .LT. ICORE) GO TO 120 CALL WRITE (BGP,0,0,1) CALL CLOSE (BGP,REW) BUF(1) = BGP BUF(2) = NGPTOT DO 180 I = 3,7 180 BUF(I) = 0 CALL WRTTRL (BUF) C C ALLOCATE 5 WORDS PER COMPONENT BASIC SUBSTRUCTURE AT THE TOP OF C OPEN CORE. THIS ARRAY IS HEREINAFTER REFERRED TO AS *SDATA* C C SAVE THE BASIC SUBSTRUCTURE NAMES AND THE NUMBER OF STRUCTURAL C GRID POINTS IN EACH IN SDATA. DO NOT SAVE SUBSTRUCTURES FOR C WHICH NO PLTS ITEM WAS FOUND. C J = 1 DO 190 I = 1,NSS IF (Z(14*I-11) .EQ. 0) GO TO 190 Z(J ) = Z(14*I-13) Z(J+1) = Z(14*I-12) Z(J+2) = Z(14*I-11) J = J + 5 190 CONTINUE IF (J .LE. 1) GO TO 9200 NSS = J/5 ISX = NSS*5 ICORE = J LCORE = NCORE - J + 1 C C COMPUTE EQEX (EQEXIN) C C C READ THE EQEXIN DATA FROM THE PLTS ITEM OF EACH BASIC SUBSTRUCTURE C USE THREE WORDS IN OPEN CORE FOR EACH GRID POINT (1) EXTERNAL C ID, (2) INTERNAL ID, (3) SUBSTRUCTURE SEQUENCE NUMBER IN SDATA. C INCREMENT THE INTERNAL IDS BY THE NUMBER OF GRID POINTS ON THE C PRECEDING SUBSTRUCTURES. C K = ICORE NGP = 0 DO 210 I = 1,NSS NM(1) = Z(5*I-4) NM(2) = Z(5*I-3) CALL SFETCH (NM,PLTS,SRD,RC) N = 2 CALL SJUMP (N) RC = 3 IF (N .LT. 0) GO TO 6106 N = Z(5*I-2) DO 200 J = 1,N CALL SUREAD (Z(K),2,NWDS,RC) IF (RC .NE. 1) GO TO 6106 Z(K+1) = Z(K+1) + NGP Z(K+2) = I K = K + 3 IF (K+2 .GT. NCORE) GO TO 9008 200 CONTINUE NGP = NGP + N 210 CONTINUE C C SORT ON EXTERNAL IDS AND WRITE RECORD 1 OF EQEX. C CALL SORT (0,0,3,1,Z(ICORE),3*NGP) FILE = EQEX CALL OPEN (*9001,EQEX,Z(BUF1),WRTREW) CALL FNAME (EQEX,BUF) CALL WRITE (EQEX,BUF,2,1) DO 220 I = 1,NGP 220 CALL WRITE (EQEX,Z(ICORE+3*I-3),2,0) CALL WRITE (EQEX,0,0,1) C C SAVE THE TABLE IN OPEN CORE ON SCR1 TO USE IN COMPUTING RECORD 2 C OF EQEX C FILE = SCR1 CALL OPEN (*9001,SCR1,Z(BUF2),WRTREW) CALL WRITE (SCR1,Z(ICORE),3*NGP,1) CALL CLOSE (SCR1,REW) CALL OPEN (*9001,SCR1,Z(BUF2),RDREW) C C READ GROUP 0 OF THE EQSS ITEM OF THE SUBSTRUCTURE TO BE PLOTTED C INTO OPEN CORE AT ICORE. READ THE EXTERNAL AND INTERNAL IDS FOR C EACH CONTRIBUTING BASIC SUBSTRUCTURE INTO OPEN CORE FOLLOWING C GROUP 0. SAVE THE CORE POINTERS FOR EACH GROUP IN SDATA. C NM(1) = NAME(1) NM(2) = NAME(2) ITEM = EQSS CALL SFETCH (NAME,EQSS,SRD,RC) IF (RC .NE. 1) GO TO 6100 CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .NE. 2) GO TO 9008 K = ICORE + NWDS N = Z(ICORE+2) ISS = 1 DO 250 I = 1,N IF (ISS .GT. ISX) GO TO 240 IF (Z(ICORE+2*I+2).NE.Z(ISS) .OR. Z(ICORE+2*I+3).NE.Z(ISS+1)) 1 GO TO 240 Z(ISS+3) = K 230 IF (K+2 .GT. NCORE) GO TO 9008 CALL SUREAD (Z(K),3,NWDS,RC) K = K + 2 IF (RC .EQ. 1) GO TO 230 Z(ISS+4) = (K-Z(ISS+3))/2 ISS = ISS + 5 GO TO 250 240 J = 1 CALL SJUMP (J) 250 CONTINUE C C READ SIL NUMBERS INTO OPEN CORE. C KSIL = K - 1 N = Z(ICORE+3) IF (KSIL+N+1 .GT. NCORE) GO TO 9008 DO 260 I = 1,N CALL SUREAD (Z(KSIL+I),2,NWDS,RC) IF (RC .NE. 1) GO TO 6106 260 CONTINUE LSIL = Z(KSIL+N) C C READ THE TABLE OF EXTERNAL ID (GP), INTERNAL ID (IP), AND SUB- C STRUCTURE NUMBER (SSN) FROM SCR1 ONE ENTRY AT A TIME. LOCATE C THE GP IN THE EQSS DATA INDICATED BY SSN AND LOOK UP THE SIL C NUMBER. WRITE GP AND SIL ON EQEX. IF GP NOT FOUND, THEN SIL=-1. C 270 CALL READ (*9002,*290,SCR1,BUF,3,0,N) I = BUF(3) J = Z(5*I-1) I5 = 5*I CALL BISLOC (*280,BUF(1),Z(J),2,Z(I5),K) I = Z(J+K) + KSIL BUF(2) = 10*Z(I) + 1 CALL WRITE (EQEX,BUF,2,0) GO TO 270 280 BUF(2) = -1 CALL WRITE (EQEX,BUF,2,0) GO TO 270 290 CALL WRITE (EQEX,0,0,1) CALL CLOSE (EQEX,REW) CALL CLOSE (SCR1,REW) BUF(1) = EQEX BUF(2) = NGPTOT DO 300 I = 3,7 300 BUF(I) = 0 CALL WRTTRL (BUF) C C INTERPRET PLOT SETS AND GENERATE PLTP (PLTPAR) C C C AT PRESENT, ONLY ONE PLOT SET (DEFINED IN PHASE 1) IS ALLOWED. C C PHASE 2 PLOT SET DEFINITIONS ARE IGNORED. C C COPY PCDB TO PLTP C FILE = PCDB CALL OPEN (*9001,PCDB,Z(BUF1),RDREW) CALL FWDREC (*9002,PCDB) FILE = PLTP CALL OPEN (*9001,PLTP,Z(BUF2),WRTREW) CALL FNAME (PLTP,BUF) CALL WRITE (PLTP,BUF,2,1) 310 CALL READ (*330,*320,PCDB,Z(ICORE),LCORE,1,NWDS) GO TO 9008 320 CALL WRITE (PLTP,Z(ICORE),NWDS,1) GO TO 310 330 CALL CLOSE (PCDB,REW) CALL CLOSE (PLTP,REW) BUF(1) = PCDB CALL RDTRL (BUF) BUF(1) = PLTP CALL WRTTRL (BUF) DO 340 I = 1,NSS Z(5*I-1) = 0 Z(5*I ) = 1 340 CONTINUE NPSET = 1 C C GPSETS C C C LOCATE THE GPSETS DATA OF THE PLTS ITEM OF EACH BASIC SUBSTRUCTURE C AND READ THE NUMBER OF GRID POINTS IN THE ELEMENT SET. STORE THIS C AS THE FOURTH ENTRY IN SDATA C N = 3 NGPSET = 0 ITEM = PLTS DO 1010 I = 1,NSS NM(1) = Z(5*I-4) NM(2) = Z(5*I-3) CALL SFETCH (NM,PLTS,SRD,RC) CALL SJUMP (N) RC = 3 IF (N .LT. 0) GO TO 6106 CALL SUREAD (Z(5*I-1),1,NWDS,RC) IF (RC .NE. 1) GO TO 6106 NGPSET = NGPSET + Z(5*I-1) 1010 CONTINUE C C WRITE RECORDS 0 AND 1 OF GPS AND FIRST WORD OF RECORD 2. C FILE = GPS CALL OPEN (*9001,GPS,Z(BUF1),WRTREW) CALL FNAME (GPS,BUF) CALL WRITE (GPS,BUF,2,1) CALL WRITE (GPS,1,1,1) CALL WRITE (GPS,NGPSET,1,0) C C READ GPSETS DATA FROM THE PLTS ITEM OF EACH BASIC SUBSTRUCTURE. C INCREMENT THE ABSOLUTE VALUE OF THE POINTERS IN IT BY THE NUMBER C OF GRID POINTS IN THE ELEMENT SETS OF THE PRECEDING BASIC C SUBSTRUCTURES. WRITE THE RESULT ON GPS (GPSETS). C N = 3 NGPSET = 0 DO 1050 I = 1,NSS CALL SFETCH (Z(5*I-4),PLTS,SRD,RC) CALL SJUMP (N) CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) IF (RC .NE. 2) GO TO 9008 NWDS = NWDS - 1 DO 1040 J = 1,NWDS IF (Z(ICORE+J)) 1020,1040,1030 1020 Z(ICORE+J) = Z(ICORE+J) - NGPSET GO TO 1040 1030 Z(ICORE+J) = Z(ICORE+J) + NGPSET 1040 CONTINUE CALL WRITE (GPS,Z(ICORE+1),NWDS,0) NGPSET = NGPSET + Z(5*I-1) 1050 CONTINUE CALL CLSTAB (GPS,REW) C C ELSETS C C C READ THE ELSETS DATA FROM THE PLTS ITEM OF EACH BASIC SUBSTRUCTURE C INCREMENT ALL NON-ZERO GRID POINT CONNECTION INDICES BY THE NUMBER C OF STRUCTURAL GRID POINTS OF THE PRECEDING SUBSTRUCTURES. WRITE C THE RESULT ON ELS (ELSETS). C C NOTE THE ELEMENT TYPES WILL BE SCRAMBLED. LIKE ELEMENT TYPES C FROM THE CONTRIBUTING BASIC SUBSTRUCTURES WILL NOT BE C GROUPED TOGETHER. C C NOTE THE BAR HAS ADDITIONALLY 6 OFFSET DATA VALUES. QUAD4 AND C TRIA3 HAS 1 OFFSET DATA EACH C FILE = ELS CALL OPEN (*9001,ELS,Z(BUF1),WRTREW) CALL FNAME (ELS,BUF) CALL WRITE (ELS,BUF,2,1) NGP = 0 C C LOOP OVER BASIC SUBSTRUCTURES C DO 2050 I = 1,NSS NM(1) = Z(5*I-4) NM(2) = Z(5*I-3) CALL SFETCH (NM,PLTS,SRD,RC) N = 4 CALL SJUMP (N) RC = 3 IF (N .LT. 0) GO TO 6106 C C LOOP OVER ELEMENT TYPES C 2010 CALL SUREAD (BUF,2,N,RC) IF (RC .EQ. 2) GO TO 2040 IF (RC .NE. 1) GO TO 6106 CALL WRITE (ELS,BUF,2,0) NGPEL = BUF(2) OFFSET = 0 IF (BUF(1) .EQ. BAR) OFFSET = 6 IF (BUF(1).EQ.QUAD4 .OR. BUF(1).EQ.TRIA3) OFFSET = 1 C C LOOP OVER ELEMENTS C 2020 CALL SUREAD (ELID,1,N,RC) IF (RC .NE. 1) GO TO 6106 CALL WRITE (ELS,ELID,1,0) IF (ELID .LE. 0) GO TO 2010 CALL SUREAD (INDX,1,N,RC) CALL WRITE (ELS,INDX,1,0) CALL SUREAD (Z(ICORE),NGPEL+OFFSET,N,RC) IF (RC .NE. 1) GO TO 6106 C C LOOP OVER CONNECTIONS C K = ICORE DO 2030 J = 1,NGPEL IF (Z(K) .NE. 0) Z(K) = Z(K) + NGP 2030 K = K + 1 CALL WRITE (ELS,Z(ICORE),NGPEL+OFFSET,0) GO TO 2020 2040 NGP = NGP + Z(5*I-2) 2050 CONTINUE C CALL WRITE (ELS,0,0,1) CALL CLSTAB (ELS,REW) C C NORMAL MODULE COMPLETION C CALL SOFCLS RETURN C C ABNORMAL MODULE COMPLETION C 6100 IF (RC .EQ. 2) RC = 3 CALL SMSG (RC-2,ITEM,NM) GO TO 9200 6106 CALL SMSG (RC+4,ITEM,NM) GO TO 9200 9001 N = 1 GO TO 9100 9002 N = 2 GO TO 9100 9003 N = 3 GO TO 9100 9008 N = 8 9100 CALL MESAGE (N,FILE,SUBR) CALL CLOSE (FILE,REW) 9200 CALL SOFCLS NPSET = -1 RETURN END ================================================ FILE: mis/pltopr.f ================================================ SUBROUTINE PLTOPR C INTEGER PRNT,PLOTER,PLTYPE,EOF,ITYPE(4),LIST(20),SKIP, 1 PLTTYP(3,3),A1(9),A2(12),A3(25),A4(13),A5(17), 2 A6(6),B1(16),B2(16),B5(10),C1(16),C2(17),C3(24), 3 FILM(2),PAPER(2),ILAY(20),D1(11),D2(6),D3(29), 4 PRJ(3,3),PLUS,MINUS,XYZ(3),SYMM(4),BLANK,E1(12), 5 E2(20),E3(14),E4(18),F1(22),F2(25),F3(12),F4(23), 6 STRESS(34),DIST(12),WAY(4),G1(13),G2(11),G3(16), 7 G4(6),G5(11),G6(8),G7(4),DISPLA(10),SPACE,LAYER, 8 CAMERA,BFRAMS,PLTMDL,TAPDEN,PAPTYP,PENSIZ,PENCLR, 9 AXIS,DAXIS,PRJECT,ORIGIN,STRAIN(4),P6(23),ORG, O H1(11) REAL ALST(20),CSCALE COMMON /BLANK / SKPCOM(20),PRNT COMMON /XXPARM/ PBUFSZ,CAMERA,BFRAMS,PLTMDL(2),TAPDEN,NPENS, 1 PAPSIZ(2),PAPTYP(2),PENSIZ(8),PENCLR(8,2),PENPAP, 2 SCALE(2),SKPSCL(3),AXIS(3),DAXIS(3),VANGLE(9), 3 VANTX1,R0,S0L,S0R,T0,D0,VANTX2(2),PRJECT,S0S, 4 FOR,ORG,NORG,ORIGIN(11),ORIGX3(11,4), 5 XY(11,3),NCNTR,CNTR(50),ICNTVL,IWHERE,IDIREC, 6 SKIP23(23),LAYER COMMON /PLTDAT/ MODEL,PLOTER,SKPPLT(17),CSCALE,SKPA(2),CNTSIN, 1 SKPB(3),NOPENS,SKPC(2),PLTYPE,SKPD(2),EOF,CNTIN3 EQUIVALENCE (LIST(1),ALST(1)) C DATA NSKIP , SKIP /1 ,4H(1X) / DATA FILM , PAPER /4HFILM ,1H ,4HPAPE ,1HR / C C PLOTTER TYPE FORMATS. C DATA NP6 / 23 / DATA P6 / 4H(10X ,4H,38H ,4HTHE ,4HFOLL ,4HOWIN , 1 4HG PL ,4HOTS ,4HARE ,4HFOR ,4HA NA , 2 4HSTPL ,4HT ,2 ,4HA4,A ,4H2,8H ,4HPLOT , 3 4HTER ,4H,2A4 ,4H,17H ,4HTYPI ,4HNG C , 4 4HAPAB ,4HILIT ,4HY,/) / DATA PLTTYP/ 4HMICR ,4HOFIL ,1HM , 1 4H TA ,4HBLE ,1H , 2 4H DR ,4HUM ,1H / DATA ITYPE / 4HWITH ,4H , 1 4HWITH ,4HOUT / C C GENERAL PLOTTER FORMATS. C DATA NA1 / 9 / DATA A1 / 4H(//, ,4H25H ,4HP L ,4HO T ,4HT E , 1 4HR ,4H D A ,4H T A ,4H,/) / DATA NA2 / 12 / DATA A2 / 4H(10X ,4H,27H ,4HTHE ,4HPLOT ,4H TAP , 1 4HE IS ,4H WRI ,4HTTEN ,4H AT, ,4HI4,4 , 2 4HH BP ,4HI,/) / DATA NA3 / 25 / DATA A3 / 4H(10X ,4H,89H ,4HTHE ,4HPLOT ,4HS AR , 1 4HE SE ,4HPARA ,4HTED ,4HBY E ,4HND-O , 2 4HF-FI ,4HLE M ,4HARKS ,4H...T ,4HWO E , 3 4HND-O ,4HF-FI ,4HLE M ,4HARKS ,4H FOL , 4 4HLOW ,4HTHE ,4HLAST ,4H PLO ,4HT,/) / DATA NA4 / 13 / DATA A4 / 4H(10X ,4H,41H ,4HAN E ,4HND-O ,4HF-FI , 1 4HLE M ,4HARK ,4HFOLL ,4HOWS ,4HTHE , 2 4HLAST ,4H PLO ,4HT,/) / DATA NA5 / 17 / DATA A5 / 4H(10X ,4H,56H ,4HTHE ,4HFIRS ,4HT CO , 1 4HMMAN ,4HD FO ,4HR EA ,4HCH P ,4HLOT , 2 4HCONT ,4HAINS ,4H THE ,4H PLO ,4HT NU , 3 4HMBER ,4H,/) / DATA NA6 / 6 / DATA A6 / 4H(10X ,4H,9HC ,4HSCAL ,4HE = ,4H,F5. , 1 4H2,/) / C C TABLE PLOTTER FORMATS. C DATA NB1 / 16 / DATA B1 / 4H(10X ,4H,30H ,4HSET ,4HTHE ,4HX + , 1 4HY SC ,4HALE ,4HFACT ,4HORS ,4HAT,F , 2 4H6.1, ,4H12H ,4HCOUN ,4HTS/I ,4HNCH, , 3 4H/) / DATA NB2 / 16 / DATA B2 / 4H(10X ,4H,12H ,4HPAPE ,4HR SI ,4HZE = , 1 4H,F5. ,4H1,2H ,4H X,F ,4H5.1, ,4H16H, , 2 4H PA ,4HPER ,4HTYPE ,4H = , ,4H2A4, , 3 4H/) / DATA NB5 / 10 / DATA B5 / 4H(10X ,4H,3HP ,4HEN,I ,4H2,7H ,4H - S , 1 4HIZE, ,4HI2,2 ,4HH, , ,4H2A4, ,4H/) / C C ELECTRONIC PLOTTER FORMATS. C DATA NC1 / 16 / DATA C1 / 4H(10X ,4H,37H ,4HTHE ,4HFOLL ,4HOWIN , 1 4HG PL ,4HOTS ,4HARE ,4HREQU ,4HESTE , 2 4HD ON ,4H ,A4 ,4H,A1, ,4H5H O ,4HNLY, , 3 4H/) / DATA NC2 / 17 / DATA C2 / 4H(10X ,4H,54H ,4HTHE ,4HFOLL ,4HOWIN , 1 4HG PL ,4HOTS ,4HARE ,4HREQU ,4HESTE , 2 4HD ON ,4H BOT ,4HH FI ,4HLM + ,4H PAP , 3 4HER,/ ,4H) / DATA NC3 / 24 / DATA C3 / 4H(10X ,4H,I1, ,4H79H ,4HBLAN ,4HK FR , 1 4HAMES ,4H WIL ,4HL BE ,4H INS ,4HERTE , 2 4HD ON ,4H FIL ,4HM ON ,4HLY B ,4HETWE , 3 4HEN E ,4HACH ,4HOF T ,4HHE F ,4HOLLO , 4 4HWING ,4H PLO ,4HTS,/ ,4H) / C C ENGINEERING DATA FORMATS. C DATA ND1 / 11 / DATA D1 / 4H(//3 ,4H3H E ,4H N G ,4H I N ,4H E E , 1 4H R I ,4H N G ,4H ,4HD A ,4HT A, , 2 4H/) / DATA ND2 / 6 / DATA D2 / 4H(10X ,4H,3A4 ,4H,11H ,4H PRO ,4HJECT , 1 4HION) / DATA ND3 / 29 / DATA D3 / 4H(10X ,4H,29H ,4HROTA ,4HTION ,4HS (D , 1 4HEGRE ,4HES) ,4H- GA ,4HMMA ,4H=,F7 , 2 4H.2,8 ,4HH, B ,4HETA ,4H=,F7 ,4H.2,9 , 3 4HH, A ,4HLPHA ,4H =,F ,4H7.2, ,4H10H, , 4 4H AX ,4HES = ,4H ,2A ,4H1,2( ,4H1H,, , 5 4H2A1) ,4H,2H, ,4H ,4A ,4H4) / 5 DATA PRJ , PLUS ,MINUS ,XYZ ,SYMM ,BLANK / 1 4HORTH ,4HOGRA ,4HPHIC ,4HPERS ,4HPECT , 2 4HIVE ,4HSTER ,4HEOSC ,4HOPIC ,1H+,1H- , 3 1HX ,1HY ,1HZ ,4HANTI ,4HSYMM , 4 4HETRI ,1HC ,1H / C C ORTHOGRAPHIC + PERSPECTIVE ENGINEERING DATA FORMATS. C DATA NE1 / 12 / DATA E1 / 4H(10X ,4H,29H ,4HSCAL ,4HE (O ,4HBJEC , 1 4HT-TO ,4H-PLO ,4HT SI ,4HZE) ,4H=,1P , 2 4H,E13 ,4H.6) / DATA NE2 / 20 / DATA E2 / 4H(10X ,4H,29H ,4HVANT ,4HAGE ,4HPOIN , 1 4HT (I ,4HNCHE ,4HS) - ,4H RO ,4H=,1P , 2 4H,E13 ,4H.6,6 ,4HH, S ,4H0 =, ,4HE13. , 3 4H6,6H ,4H, T0 ,4H =,E ,4H13.6 ,4H) / DATA NE3 / 14 / DATA E3 / 4H(10X ,4H,38H ,4HPROJ ,4HECTI ,4HON P , 1 4HLANE ,4H SEP ,4HARAT ,4HION ,4H(INC , 2 4HHES) ,4H =,1 ,4HP,E1 ,4H3.6) / DATA NE4 / 18 / DATA E4 / 4H(10X ,4H,6HO ,4HRIGI ,4HN,I8 ,4H,11H , 1 4H - ,4H X ,4H0 =, ,4H1P,E ,4H14.6 , 2 4H,6H, ,4H Y0 ,4H=,E1 ,4H4.6, ,4H5X,8 , 3 4HH(IN ,4HCHES ,4H)) / C C STEREO ENGINEERING DATA FORMATS. C DATA NF1 / 22 / DATA F1 / 4H(10X ,4H,30H ,4HSCAL ,4HES - ,4H (MO , 1 4HDEL- ,4HTO-P ,4HLOT ,4HSIZE ,4H =,1 , 2 4HP,E1 ,4H3.6, ,4H25H, ,4H OB ,4HJECT , 3 4H-TO- ,4HMODE ,4HL SI ,4HZE = ,4H,E13 , 4 4H.6,1 ,4HH)) / DATA NF2 / 25 / DATA F2 / 4H(10X ,4H,29H ,4HVANT ,4HAGE ,4HPOIN , 1 4HT (I ,4HNCHE ,4HS) - ,4H R0 ,4H=,1P , 2 4H,E13 ,4H.6,9 ,4HH, S ,4H0(L) ,4H =,E , 3 4H13.6 ,4H,9H, ,4H S0( ,4HR) = ,4H,E13 , 4 4H.6,6 ,4HH, T ,4H0 =, ,4HE13. ,4H6) / DATA NF3 / 12 / DATA F3 / 4H(10X ,4H,28H ,4HOCUL ,4HAR S ,4HEPAR , 1 4HATIO ,4HN (I ,4HNCHE ,4HS) = ,4H,1P, , 2 4HE13. ,4H6) / DATA NF4 / 23 / DATA F4 / 4H(10X ,4H,6HO ,4HRIGI ,4HN,I8 ,4H,14H , 1 4H - ,4H X ,4H0(L) ,4H =,1 ,4HP,E1 , 2 4H4.6, ,4H9H, ,4HX0(R ,4H) =, ,4HE14. , 3 4H6,6H ,4H, Y0 ,4H =,E ,4H14.6 ,4H,5X, , 4 4H8H(I ,4HNCHE ,4HS)) / C C CONTOUR PLOTTING DATA FORMATS C DATA NG1 / 13 / 1 G1 / 4H(//4 ,4H2H C ,4H O N ,4H T O ,4H U R , 2 4H P ,4H L O ,4H T T ,4H I N ,4H G , 3 4H D A ,4H T A ,4H,/) / DATA NG2 / 11 / 1 G2 / 4H(9X, ,4H32HA ,4HBOVE ,4H PLO ,4HT IS , 2 4H A C ,4HONTO ,4HUR P ,4HLOT ,4HOF , , 3 4H4A4) / DATA NG3 / 16 / 1 G3 / 4H(9X, ,4H52HT ,4HHE C ,4HONTO ,4HUR V , 2 4HALUE ,4HS AR ,4HE CA ,4HLCUL ,4HATED , 3 4H AT ,4HFIBR ,4HE DI ,4HSTAN ,4HCE , , 4 4H3A4) / DATA NG4 / 6 / 1 G4 / 4H(9X, ,4H4HIN ,4H A,2 ,4HA4,6 ,4HHSYS , 2 4HTEM) / DATA NG5 / 11 / 1 G5 / 4H(//, ,4H51X, ,4H28HT ,4HABLE ,4H OF , 2 4H PL ,4HOTTI ,4HNG ,4HSYMB ,4HOLS, , 3 4H/) / DATA NG6 / 8 / 1 G6 / 4H(5(5 ,4HX,13 ,4HHSYM ,4HBOL ,4H VAL , 2 4HUE,6 ,4HX),/ ,4H) / DATA NG7 / 4 / 1 G7 / 4H(5(I ,4H9,1P ,4H,E15 ,4H.6)) / C DATA NH1 / 11 / DATA H1 / 4H(//5 ,4H0X,2 ,4H9HPL ,4HOT M ,4HODUL , 1 4HE ME ,4HSSAG ,4HES C ,4HONTI ,4HNUE , 2 4H,/) / C DATA STRAIN / 4HSTRA ,4HIN E ,4HNERG ,4HIES /, 1 DIST / 4H Z2 ,2*1H ,4H Z1 ,2*1H ,4HMAX , 2 4H- Z1 ,4H,Z2 ,4HAVER ,4H-Z1, ,4HZ2 /, 3 WAY / 4H LOC ,4HAL ,4H COM ,4HMON / C DATA SPACE / 4H / 1 DISPLA / 4HDEFO ,4HRMAT ,4HION ,1HX,1HY,1HZ, 3HMAG , 2 3*0 / C C 1 3 DATA STRESS / 4HSTRE,4HSS, ,4HSHEA,4HR - , C 5 (1) 7 (2) 9 (3) 11 (4) 1 4HMAJO,4HR-PR ,4HMINO,4HR-PR ,4HMAXI,4HMUM ,4HNORM,4HAL X, C 13 (5) 15 (6) 17 18 19 2 4HNORM,4HAL Y ,4HNORM,4HAL Z ,4HXY ,4HXZ ,4HYZ , C 20 (14) 22 (15) 24(16) 26 (17) 3 4HNORM,4HAL 1 ,4HNORM,4HAL 2 ,4HSHEA,4HR 12 ,4HSHEA,4HR 1Z, C 28 (18) 30 (19) 32 34 4 4HSHEA,4HR 1Z ,4HBOND,4HSH12 ,4HLAYE,4HR NU ,4HMBER / C DATA ILAY / 4H 1 ,4H 2 ,4H 3 ,4H 4 ,4H 5 ,4H 6 , 1 4H 7 ,4H 8 ,4H 9 ,4H 10 ,4H 11 ,4H 12 , 2 4H 13 ,4H 14 ,4H 15 ,4H 16 ,4H 17 ,4H 18 , 3 4H 19 ,4H 20 / C IF (NCNTR .GT. 0) GO TO 201 C C PRINT THE PLOTTER ID. C LIST(1) = 0 CALL WRITE (PRNT,LIST,1,0) CALL WRTPRT (PRNT,LIST,A1,NA1) C C NASTRAN GENERAL PURPOSE PLOTTER. C LIST(1) = 5 J = IABS(PLTYPE) DO 126 I = 1,3 LIST(I+1) = PLTTYP(I,J) 126 CONTINUE MM = 1 IF (PLTYPE .LT. 0) MM = 3 LIST(5) = ITYPE(MM ) LIST(6) = ITYPE(MM+1) CALL WRTPRT (PRNT,LIST,P6,NP6) C C GENERAL PLOTTER INFORMATION. C IF (TAPDEN .LE. 0) GO TO 151 LIST(1) = 1 LIST(2) = TAPDEN CALL WRTPRT (PRNT,LIST,A2,NA2) 151 IF (EOF .NE. 0) GO TO 152 CALL WRTPRT (PRNT,0,A3,NA3) GO TO 154 152 CALL WRTPRT (PRNT,0,A4,NA4) 154 CALL WRTPRT (PRNT,0,A5,NA5) LIST(1) = 1 ALST(2) = CSCALE CALL WRTPRT (PRNT,LIST,A6,NA6) IF (IABS(PLTYPE)-2) 170,160,163 C C TABLE PLOTTER INFORMATION. C 160 LIST(1) = 1 ALST(2) = CNTSIN CALL WRTPRT (PRNT,LIST,B1,NB1) 163 LIST(1) = 4 ALST(2) = PAPSIZ(1) ALST(3) = PAPSIZ(2) LIST(4) = PAPTYP(1) LIST(5) = PAPTYP(2) CALL WRTPRT (PRNT,LIST,B2,NB2) C LIST(1) = 4 N = MIN0(NPENS,NOPENS) DO 168 I = 1,N LIST(2) = I LIST(3) = PENSIZ(I) IF (LIST(3) .LT. 0) GO TO 168 LIST(4) = PENCLR(I,1) LIST(5) = PENCLR(I,2) IF (LIST(4).EQ.BLANK .AND. LIST(5).EQ.BLANK) GO TO 168 CALL WRTPRT (PRNT,LIST,B5,NB5) 168 CONTINUE CALL WRTPRT (PRNT,0,SKIP,NSKIP) GO TO 180 C C ELECTRONIC PLOTTER INFORMATION. C 170 IF (CAMERA-2) 171,172,174 171 LIST(2) = FILM(1) LIST(3) = FILM(2) GO TO 173 172 LIST(2) = PAPER(1) LIST(3) = PAPER(2) 173 LIST(1) = 2 CALL WRTPRT (PRNT,LIST,C1,NC1) GO TO 175 174 CALL WRTPRT (PRNT,0,C2,NC2) 175 IF (CAMERA.EQ.2 .OR. BFRAMS.EQ.0) GO TO 180 LIST(1) = 1 LIST(2) = BFRAMS CALL WRTPRT (PRNT,LIST,C3,NC3) C C ENGINEERING DATA. C 180 CALL WRTPRT (PRNT,0,D1,ND1) LIST(1) = 3 DO 181 I = 1,3 LIST(I+1) = PRJ(I,PRJECT) 181 CONTINUE CALL WRTPRT (PRNT,LIST,D2,ND2) C LIST(1) = 13 ALST(2) = VANGLE(3) IF (VANGLE(2) .GT. -1.E10) GO TO 1815 IF (PRJECT .NE. 2) VANGLE(2) = VANGLE(4) IF (PRJECT .EQ. 2) VANGLE(2) = VANGLE(5) 1815 ALST(3) = VANGLE(2) ALST(4) = VANGLE(1) DO 182 I = 1,3 J = 2*I + 3 K = IABS(AXIS(I)) LIST(J) = PLUS IF (AXIS(I) .LT. 0) LIST(J) = MINUS LIST(J+1) = XYZ(K) 182 CONTINUE N = 1 IF (AXIS(1) .EQ. DAXIS(1)) N = 2 LIST(14) = BLANK J = 1 DO 183 I = N,4 LIST(J+10) = SYMM(I) J = J + 1 183 CONTINUE CALL WRTPRT (PRNT,LIST,D3,ND3) IF (PRJECT .EQ. 3) GO TO 195 C C ORTHOGRAPHIC + PERSPECTIVE ENGINEERING DATA. C LIST(1) = 1 ALST(2) = SCALE(1)/CNTSIN CALL WRTPRT (PRNT,LIST,E1,NE1) IF (PRJECT .EQ. 1) GO TO 191 LIST(1) = 3 ALST(2) = R0 ALST(3) = S0L ALST(4) = T0 CALL WRTPRT (PRNT,LIST,E2,NE2) LIST(1) = 1 ALST(2) = D0 CALL WRTPRT (PRNT,LIST,E3,NE3) C 191 CALL WRTPRT (PRNT,0,SKIP,NSKIP) LIST(1) = 3 DO 192 I = 1,ORG LIST(2) = ORIGIN(I) ALST(3) = XY(I,1)/CNTSIN ALST(4) = XY(I,3)/CNTSIN CALL WRTPRT (PRNT,LIST,E4,NE4) 192 CONTINUE GO TO 260 C C STEREO ENGINEERING DATA. C 195 LIST(1) = 2 ALST(2) = SCALE(1)/CNTIN3 ALST(3) = SCALE(2) CALL WRTPRT (PRNT,LIST,F1,NF1) LIST(1) = 4 ALST(2) = R0 ALST(3) = S0L ALST(4) = S0R ALST(5) = T0 CALL WRTPRT (PRNT,LIST,F2,NF2) LIST(1) = 1 ALST(2) = D0 CALL WRTPRT (PRNT,LIST,E3,NE3) ALST(2) = S0S CALL WRTPRT (PRNT,LIST,F3,NF3) C CALL WRTPRT (PRNT,0,SKIP,NSKIP) LIST(1) = 4 DO 196 I = 1,ORG LIST(2) = ORIGIN(I) ALST(3) = XY(I,1)/CNTSIN ALST(4) = XY(I,2)/CNTSIN ALST(5) = XY(I,3)/CNTSIN CALL WRTPRT (PRNT,LIST,F4,NF4) 196 CONTINUE GO TO 260 C C CONTOUR PLOTTING DATA C 201 LIST(1) = 0 CALL WRTPRT (PRNT,LIST,G1,NG1) LIST(1) = 4 IF (ICNTVL.GT.9 .AND. ICNTVL.LT.14) GO TO 210 C C STRESS CONTOURS C I = 1 IF (ICNTVL.GT. 6 .OR. ICNTVL.EQ. 3) I = 3 IF (ICNTVL.GE.14 .AND.ICNTVL.LE.19) I = 1 IF (ICNTVL .NE. 20) GO TO 203 C C STRAIN CONTOURS C LIST(1) = 4 LIST(2) = STRAIN(1) LIST(3) = STRAIN(2) LIST(4) = STRAIN(3) LIST(5) = STRAIN(4) CALL WRTPRT (PRNT,LIST,G2,NG2) GO TO 205 C 203 LIST(2) = STRESS(I) LIST(3) = STRESS(I+1) I = ICNTVL*2 + 3 IF (ICNTVL.GT.13 .AND. ICNTVL.LT.20) I = (ICNTVL-14)*2 + 20 IF (ICNTVL.GT. 6 .AND. ICNTVL.LE. 9) I = ICNTVL + 10 LIST(4) = STRESS(I) LIST(5) = SPACE IF (ICNTVL.LT.7 .OR. ICNTVL .GE.14) LIST(5) = STRESS(I+1) CALL WRTPRT (PRNT,LIST,G2,NG2) C C ADDING LAYER NUMBER TO OUTPUT WHEN REQUESTED C IF (ICNTVL.LT.14 .OR. ICNTVL.EQ.20) GO TO 204 LIST(1) = 4 LIST(2) = STRESS(32) LIST(3) = STRESS(33) LIST(4) = STRESS(34) LIST(5) = ILAY(LAYER) CALL WRTPRT (PRNT,LIST,G2,NG2) GO TO 205 C 204 LIST(1) = 3 I = IWHERE IF (IWHERE .LE. 0) I = 0 I = I*3 + 1 LIST(2) = DIST(I) LIST(3) = DIST(I+1) LIST(4) = DIST(I+2) CALL WRTPRT (PRNT,LIST,G3,NG3) C 205 J = 2*(IDIREC-1) + 1 GO TO 220 C C DISPLACEMENT CONTOURS C 210 I = 1 LIST(2) = DISPLA(I ) LIST(3) = DISPLA(I+1) LIST(4) = DISPLA(I+2) LIST(5) = DISPLA(ICNTVL-6) CALL WRTPRT (PRNT,LIST,G2,NG2) J = 3 220 IF (ICNTVL.LT.4 .OR. ICNTVL.EQ.13) GO TO 235 LIST(1) = 2 LIST(2) = WAY(J ) LIST(3) = WAY(J+1) CALL WRTPRT (PRNT,LIST,G4,NG4) 235 LIST(1) = 0 CALL WRTPRT (PRNT,LIST,G5,NG5) CALL WRTPRT (PRNT,LIST,G6,NG6) L = (NCNTR-1)/10 + 1 LIST(1) = 2*L K = MIN0(NCNTR,10) DO 250 J = 1,K N = J + (L-1)*10 M = 2 DO 240 I = J,N,10 IF (I .GT. NCNTR) GO TO 245 LIST(M ) = I ALST(M+1) = CNTR(I) 240 M = M + 2 GO TO 247 245 LIST(1) = LIST(1) - 2 L = L - 1 247 CALL WRTPRT (PRNT,LIST,G7,NG7) 250 CONTINUE C 260 LIST(1) = 0 CALL WRTPRT (PRNT,LIST,H1,NH1) RETURN END ================================================ FILE: mis/pltset.f ================================================ SUBROUTINE PLTSET C C COMMENTS FROM G.C. - C THE DRIVER FOR DMAP MODULE PLTSET IS DPLTST C THIS ROUTINE HAS NOTHING TO DO WITH DPLTST. IT IS CALLED ONLY C BY PARAM (IN MODULE PLOT), XYPLOT, AND SEEMAT C C LOGICAL TAPBIT INTEGER CHRWRD,PBFSIZ,PBUFSZ,PDATA,PLTDAT,PLTYPE, 1 PLOTER,PLT1,PLT2,PLTNUM,OFFSCL REAL XYMAX(2),CNTCHR(2),XYSIZE(2) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / SKP4(4),PLTNUM COMMON /XXPARM/ PBUFSZ,SKPARM(6),PAPSIZ(2),SKP235(226),OFFSCL COMMON /PLTDAT/ MODEL,PLOTER,REG(2,2),AXYMAX(2),XYEDGE(11),CHRSCL, 1 PDATA(20),PLTDAT(20,1) COMMON /MACHIN/ MACH COMMON /SYSTEM/ KSYSTM(65) EQUIVALENCE (PDATA(1),XYMAX(1)) , (PDATA(3),CNTSIN) , 1 (PDATA(4),CNTCHR(1)), (PDATA(10),PLTYPE) , 2 (PDATA(12),PBFSIZ) , (NOUT ,KSYSTM( 2)), 3 (CHRWRD,KSYSTM(41)) , (ITRACK,KSYSTM(59)) DATA XYSIZE/ 11.0, 8.5 /, PLT1,PLT2 / 4HPLT1, 4HPLT2 / C C INITIALIZE -PDATA- C DO 100 I = 1,20 PDATA(I) = PLTDAT(I,PLOTER) 100 CONTINUE C C PLT2 FILE WAS HARD CODED INTO THE 11TH WORD OF PLTDAT(11,PLOTER) C BY PLOTBD. IF USER REQUESTS PLT1 FILE, WE MUST MAKE A SWITCH HERE C IF (.NOT.TAPBIT(PLT2) .AND. TAPBIT(PLT1)) PDATA(11) = PLT1 IF (PLTNUM.EQ.0 .AND. OFFSCL.EQ.0) WRITE (NOUT,110) UIM,PDATA(11) 110 FORMAT (A29,', PLOT FILE GOES TO ',A4) C IF (OFFSCL .EQ. 0) OFFSCL = 1 C C SCALE THE CHARACTURE SIZE BEFORE SETTING BORDERS C CNTCHR(1) = CHRSCL*CNTCHR(1) CNTCHR(2) = CHRSCL*CNTCHR(2) PBUFSZ = PBFSIZ/CHRWRD C C FOR UNIVAC 9 TRACK CALCOMP PLOT TAPES QUARTER WORD MODE WILL C BE USED LIMITING THE NUMBER OF CHARACTERS PER WORD TO 4 C ITRACK = 2 FOR 9 TRACK TAPES - OTHERWISE 1 FOR 7 TRACK TAPES C THE DEFAULT IS FOR 7 TRACK TAPES C C IF (MACH.EQ.3 .AND. ITRACK.EQ.2) PBUFSZ = PBFSIZ/4 C C SINCE GENERAL PLOTTER IS THE ONLY ONE SUPPORTED BY NASTRAN, THE C PLOT BUFFER FOR UNIVAC MUST BE 500 WORDS FOR BOTH FORTRAN V AND C ASCII FORTRAN. (SEE PROG. MANUAL PAGE 6.10-15) C IF (MACH .EQ. 3) PBUFSZ = PBFSIZ/6 C PLTYPE = MODEL C C INITIALIZE PAPER SIZE AND BORDERS C DO 130 I = 1,2 IF (IABS(PLTYPE)-2) 121,125,124 121 IF (PLTYPE) 122,122,123 C C CRT PLOTTERS C 122 AXYMAX(I) = XYMAX(I) - CNTCHR(I) XYEDGE(I) = CNTCHR(I)*.5 GO TO 129 123 AXYMAX(I) = XYMAX(I) XYEDGE(I) = 0. GO TO 129 C C DRUM PLOTTERS C 124 IF (PAPSIZ(I) .LE. 0.0) PAPSIZ(I) = XYMAX(I)/CNTSIN GO TO (127,126), I C C TABLE PLOTTERS C 125 IF (PAPSIZ(I) .LE. 0.0) PAPSIZ(I) = XYSIZE(I) C 126 IF (CNTSIN*PAPSIZ(I) .GT. XYMAX(I)) PAPSIZ(I) = XYMAX(I)/CNTSIN 127 AXYMAX(I) = CNTSIN*PAPSIZ(I) - CNTSIN XYEDGE(I) = CNTSIN*.5 129 REG(I,1) = 0. REG(I,2) = AXYMAX(I) 130 CONTINUE C RETURN END ================================================ FILE: mis/plttra.f ================================================ SUBROUTINE PLTTRA C C PLTTRA MODIFIES THE SIL AND BGPDT TABLES FOR THE PURPOSE OF C PLOTTING SPECIAL SCALAR GRID POINTS C C INPUT SIL BGPDT LUSET C OUTPUT SIP BGPDP LUSEP C C SPECIAL SCALAR GRID POINTS C BGPDT(I,1)= 1 SIL(I+1)-SIL(I)=1 C BGPDP(I,1)=-2 SIP(I+1)-SIP(I)=6 C C LUSET IS THE VALUE OF SIL(LAST+1) IF IT EXISTED C LUSEP IS THE VALUE OF SIP(LAST+1) IF IT EXISTED C LOGICAL LEOF INTEGER SYSBUF,BUF1,BUF2,BUF3,BUF4,FILE,SIL,BGPDT,SIP, 1 BGPDP,NAME(2),Z,PLT(2),FLAG,A,B,S1,S2,DELTA DIMENSION A(4),B(2),MCB(7) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / LUSET,LUSEP COMMON /SYSTEM/ SYSBUF,NOT COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (A(3),B(1)),(FILE,MCB(1)) DATA BGPDT , SIL,BGPDP,SIP/ 101,102,201,202 / DATA PLT / 4HPLTT,4HRA /, MCB / 7*0 / DATA LEOF / .FALSE./ C NADD = 0 NS = 0 C C LOCATE STORAGE AREA FOR FILE BUFFERS C NZ = KORSZ(Z) BUF1 = NZ - SYSBUF + 1 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF IF (BUF4 .LE. 0) CALL MESAGE (-8,NZ,PLT) C C READ TRAILER RECORDS OF INPUT FILES AND CHECK COMPATABILITY C OPEN AND FOREWARD SPACE LABEL RECORD OF INPUT FILES C OPEN AND WRITE LABEL RECORD OF OUTPUT FILES C FILE = BGPDT CALL RDTRL (MCB) CALL FNAME (FILE,NAME) IF (FILE .LE. 0) GO TO 900 CALL OPEN (*900, BGPDT, Z(BUF2), RDREW) CALL FWDREC (*1010,BGPDT) C FILE = SIL CALL RDTRL (MCB) CALL FNAME (FILE,NAME) IF (FILE .LE. 0) GO TO 900 IF (MCB(3) .NE. LUSET) GO TO 1130 CALL OPEN (*900,SIL,Z(BUF1),RDREW) CALL FWDREC (*1010,SIL) C FILE = SIP CALL FNAME (SIP,A) CALL OPEN (*1000,SIP,Z(BUF3),WRTREW) CALL WRITE (SIP,A,2,1) C FILE = BGPDP CALL OPEN (*1000,BGPDP,Z(BUF4),WRTREW) CALL FNAME (BGPDP,B) CALL WRITE (BGPDP,B,2,1) C C READ SIL(I) C FILE = SIL CALL READ (*1010,*1020,SIL,S1,1,0,FLAG) C C READ SIL(I+1) C 10 FILE = SIL CALL READ (*1010,*30,SIL,S2,1,0,FLAG) C C READ BGPDT(I,J) C 15 FILE = BGPDT CALL READ (*1010,*1020,BGPDT,A,4,0,FLAG) DELTA = 0 NS = NS + 1 C C CHECK IF SPECIAL SCALAR GRID POINT C IF (A(1).LT.0 .OR. S2-S1.EQ.6) GO TO 20 IF (S2-S1 .NE. 1) GO TO 1110 C C SPECIAL SCALAR GRID POINT C DELTA = 5 A(1) =-2 20 S1 = S1 + NADD C C WRITE SIP AND BGPDP TABLE ENTRIES C CALL WRITE (SIP,S1,1,0) CALL WRITE (BGPDP,A,4,0) NADD = NADD + DELTA IF (LEOF) GO TO 40 S1 = S2 GO TO 10 C C SIL(I) IS SIL(LAST) C 30 LEOF = .TRUE. S2 = LUSET + 1 GO TO 15 40 LUSEP = LUSET + NADD C C CLOSE OUTPUT FILES AND WRITE TRAILER RECORDS C CALL CLOSE (SIL ,CLSREW) CALL CLOSE (BGPDT,CLSREW) CALL CLOSE (SIP ,CLSREW) CALL CLOSE (BGPDP,CLSREW) MCB(1) = BGPDP MCB(3) = 0 CALL WRTTRL (MCB) MCB(1) = SIP MCB(3) = LUSEP CALL WRTTRL (MCB) RETURN C 900 LUSEP = LUSET RETURN C C ERROR DIAGNOSTICS C 1000 NDX = -1 GO TO 1100 1010 NDX = -2 GO TO 1100 1020 NDX = -3 1100 CALL MESAGE (NDX,FILE,PLT) GO TO 1150 1130 WRITE (NOT,2001) UFM,LUSET,MCB(3) 2001 FORMAT (A23,' 5011, FIRST PARAMETER',I6,' NE TRAILER RECORD ', 1 'PARAMETER',I6) GO TO 1150 1110 WRITE (NOT,2002) UFM,NS 2002 FORMAT (A23,' 5012, ENTRY',I6,' OF SIL TABLE INCOMPATIBLE WITH ', 1 'NEXT ENTRY') 1150 CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/pnm.f ================================================ SUBROUTINE PNM(M,N,X,IR,V) DIMENSION GAMMA(81) IF(N.LT.M) GO TO 2 IF(N.EQ.0) GO TO 1 GO TO 3 1 V=1.0 RETURN 2 V=0.0 RETURN 3 Z=1.0 W=Z IF(N.EQ.M) GO TO 4 NMM=N-M DO 5 I=1,NMM 5 Z=X*Z 4 GAMMA(1)=1.0 NPNN1=N+N+1 DO 6 I=2,NPNN1 GAMMA(I)=W*GAMMA(I-1) 6 W=W+1.0 W=1.0 ABXX=ABS(X) IF(ABXX.LT.0.001) GO TO 7 GO TO 8 7 I=(N-M)/2 I2=2*I NMM=N-M IF(I2.NE.NMM) GO TO 9 V=GAMMA(M+N+1)/(GAMMA(I+1)*GAMMA(M+I+1)) IF(IR.NE.0) GO TO 100 V=V*(-1.0)**I GO TO 100 9 V=0.0 RETURN 8 Y=W/(X*X) IF(IR.EQ.0) GO TO 11 GO TO 12 11 Y=-Y W=-W 12 J=3 V=0.0 DO 13 I=1,22 II=(N-M+2)/2 IF(II.LT.I) GO TO 100 V=V+GAMMA(N+N-I-I+3)*Z/(GAMMA(I)*GAMMA(N-I+2)*GAMMA(N-I-I-M+J)) 13 Z=Z*Y 100 Z=1.0 DO 101 I=1,N 101 Z=Z+Z V=V/Z IF(IR.NE.0) GO TO 102 GO TO 103 102 II=N/4 I=N-4*II IF(I.GT.1) GO TO 104 GO TO 103 104 V=-V 103 IF(M.EQ.0) RETURN J=M/2 CF=W+X*X Z=ABS(CF) J2=J+J IF(M.NE.J2) GO TO 107 GO TO 105 107 Z=SQRT(Z) J=M 105 IF(J.LT.1) J=1 DO 106 I=1,J 106 V=V*Z RETURN END ================================================ FILE: mis/polypt.f ================================================ SUBROUTINE POLYPT( LOCTOF,STEDGE,TR, NGRIDF,FLEDGE,FL,LOCFOS, EPS, 1 NPOLY,P) C C POLYPT DETERMINES PERIMETER POINTS OF AREA COMMON TO STRUCTURAL C TRIANGLE BOUNDED BY TR POINTS AND FLUID ELEMENT BOUNDED BY C (3 OR 4) FL POINTS C DOUBLE PRECISION P(2,7) DOUBLE PRECISION TR(3,3), FL(3,4), SS(2), P1(2), EPS(2) INTEGER STEDGE(2,3), FLEDGE(2,4), KEDGE(2,5), JEDGE(2,7) 1, LOCTOF(3), LOCFOS(4) C IP= 0 NPOLY= 0 C DO 10 I=1,2 DO 10 J=1,7 10 P(I,J)= 0.D0 C DO 20 K=1,3 IF ( LOCTOF(K) .LT. 0) GO TO 40 20 CONTINUE C C STRUCTURAL TRIANGLE IS COMMON AREA WHEN NO STR PTS LIE OUTSIDE C FLUID ELEMENT BOUNDRY IP= 3 DO 30 K=1,3 DO 30 I=1,2 30 P(I,K)= TR(I,K) GO TO 9000 C 40 CONTINUE C K= NGRIDF -1 DO 50 I=1,2 DO 45 J=1,K JEDGE(I,J)= FLEDGE(I,J) 45 JEDGE(I,J+NGRIDF)= FLEDGE(I,J) 50 JEDGE(I,NGRIDF)= FLEDGE(I,NGRIDF) C DO 60 I=1,2 DO 55 J=1,2 KEDGE(I,J)= STEDGE(I,J) 55 KEDGE(I,J+3)= STEDGE(I,J) 60 KEDGE(I,3)= STEDGE(I,3) C C DO 100 K=1,3 K1= KEDGE(1,K) K2= KEDGE(2,K) DO 100 J=1,NGRIDF J1= JEDGE(1,J) J2= JEDGE(2,J) CALL PTINTR( TR(1,K1),TR(1,K2), FL(1,J1),FL(1,J2), SS, INTER, EPS) IF (INTER .EQ. 1) GO TO 200 100 CONTINUE C C - - AREAS ARE DISJOINT GO TO 9000 C C 200 JLAST= J JJ1= J JJ2= J +NGRIDF -1 KLAST= K KK1= K +1 KK2= K+2 C IF (LOCTOF(K1) .EQ. 1) GO TO 1800 C 1ST TRI POINT IS OUTSIDE FLUID BOUNDRY P1(2)= SS(2) P1(1)= SS(1) AP1= (P1(1)-TR(1,K1))**2 +(P1(2)-TR(2,K1))**2 JP1= JLAST JJ1= JLAST+1 C DO 300 J=JJ1,JJ2 J1= JEDGE(1,J) J2= JEDGE(2,J) CALL PTINTR( TR(1,K1),TR(1,K2), FL(1,J1),FL(1,J2), SS, INTER, EPS) IF (INTER .EQ. 1) GO TO 400 300 CONTINUE C IP= IP+1 P(1,IP)= P1(1) P(2,IP)= P1(2) GO TO 1000 C 400 AP2= (SS(1)-TR(1,K1))**2 + (SS(2)-TR(2,K1))**2 IF (AP1 .LT. AP2) GO TO 500 C P(1,IP+1)= SS(1) P(2,IP+1)= SS(2) P(1,IP+2)= P1(1) P(2,IP+2)= P1(2) IP= IP+2 JLAST= JP1 GO TO 600 C 500 P(1,IP+1)= P1(1) P(2,IP+1)= P1(2) P(1,IP+2)= SS(1) P(2,IP+2)= SS(2) IP= IP+2 JLAST= J C 600 CONTINUE IF ( JLAST .GT. NGRIDF) JLAST= JLAST -NGRIDF JJ1= JLAST JJ2= JJ1 +NGRIDF -1 J2= JEDGE(2,JLAST) GO TO 2000 C C SEARCH ALONG LAST STRUCTURAL TRIANGLE EDGE FOR NEXT PTINTR C 1000 IF ( LOCTOF(K2) .LT. 0) GO TO 1100 IF (TR(1,K2) .EQ. P(1,1) .AND. TR(2,K2) .EQ. P(2,1)) GO TO 9000 IP= IP+1 P(1,IP)= TR(1,K2) P(2,IP)= TR(2,K2) KLAST= KLAST +1 IF ( KLAST .EQ. KK2) GO TO 9000 K2= KEDGE(2,KLAST) GO TO 1000 C 1100 CONTINUE JJ1= JLAST IF (JJ1 .GT. JJ2) GO TO 9000 DO 1150 J= JJ1,JJ2 J1= JEDGE(1,J) J2= JEDGE(2,J) CALL PTINTR( P(1,IP),TR(1,K2), FL(1,J1),FL(1,J2), SS, INTER, EPS) IF ( INTER .EQ. 1) GO TO 1200 1150 CONTINUE C GO TO 9000 C 1200 IF (SS(1) .EQ. P(1,1) .AND. SS(2) .EQ. P(2,1)) GO TO 9000 IP= IP +1 P(1,IP)= SS(1) P(2,IP)= SS(2) JLAST= J GO TO 2000 C 1800 P(1,IP+1)= TR(1,K1) P(2,IP+1)= TR(2,K1) P(1,IP+2)= SS(1) P(2,IP+2)= SS(2) IP= IP+2 C C SEARCH ALONG LAST FLUID EDGE FOR NEXT PTINTR C 2000 IF ( LOCFOS(J2) .LT. 0) GO TO 2100 IF (FL(1,J2) .EQ. P(1,1) .AND. FL(2,J2) .EQ. P(2,1)) GO TO 9000 IP= IP+1 P(1,IP)= FL(1,J2) P(2,IP)= FL(2,J2) JLAST= JLAST +1 IF ( JLAST .GT. JJ2) GO TO 9000 J2= JEDGE(2,JLAST) GO TO 2000 C 2100 CONTINUE KK1= KLAST IF (KK1 .GT. KK2) GO TO 9000 DO 2150 K=KK1,KK2 K1= KEDGE(1,K) K2= KEDGE(2,K) CALL PTINTR( P(1,IP),FL(1,J2), TR(1,K1),TR(1,K2), SS, INTER, EPS) IF ( INTER .EQ. 1) GO TO 2200 2150 CONTINUE C GO TO 9000 C 2200 IF (SS(1) .EQ. P(1,1) .AND. SS(2) .EQ. P(2,1)) GO TO 9000 IP= IP +1 P(1,IP)= SS(1) P(2,IP)= SS(2) KLAST= K GO TO 1000 C C 9000 CONTINUE NPOLY= IP RETURN END ================================================ FILE: mis/prefix.f ================================================ SUBROUTINE PREFIX (IPREFX,NAME) C EXTERNAL LSHIFT,RSHIFT,ORF INTEGER NAME(2),RSHIFT,ORF,RWORD COMMON /SYSTEM/ JUNK(38),NBPC,NBPW,NCPW DATA IBLNK / 4H / C IBLANK = IBLNK C C THIS ROUTINE PREFIXES THE TWO WORD VARIABLE 'NAME' WITH THE SINGLE C CHARACTER PREFIX 'IPREFX'. C C SET RIGHT HAND PORTION OF WORDS TO ZERO. C LWORD = LSHIFT( RSHIFT( NAME(1),NBPW-4*NBPC ) , NBPW-4*NBPC ) RWORD = LSHIFT( RSHIFT( NAME(2),NBPW-4*NBPC ) , NBPW-4*NBPC ) IPREFX = LSHIFT( RSHIFT( IPREFX,NBPW-NBPC ) , NBPW-NBPC ) IBLANK = RSHIFT( LSHIFT( IBLANK,4*NBPC ) , 4*NBPC ) C C MOVE RIGHT WORD ONE CHARACTER AND PREFIX WITH LAST CHARACTER C OF LEFT WORD. C RWORD = ORF( LSHIFT( LWORD,3*NBPC ) , RSHIFT( RWORD,NBPC ) ) RWORD = LSHIFT( RSHIFT( RWORD ,NBPW-4*NBPC ) , NBPW-4*NBPC ) RWORD = ORF( RWORD , IBLANK ) C C MOVE LEFT WORD ONE CHARACTER TO RIGHT AND PREFIX WITH INPUT C VALUE. C LWORD = ORF( IPREFX , RSHIFT( LWORD,NBPC)) LWORD = LSHIFT( RSHIFT( LWORD ,NBPW-4*NBPC ) , NBPW-4*NBPC ) LWORD = ORF( LWORD , IBLANK ) C NAME(1) = LWORD NAME(2) = RWORD RETURN END ================================================ FILE: mis/preloc.f ================================================ SUBROUTINE PRELOC (*,BUF,FILE) C C PRELOC OPENS AND POSITIONS REQUESTED FILE TO FIRST DATA RECORD. C LOCATE POSITIONS FILE TO REQUESTED DATA RECORD WITHIN FILE. C EXTERNAL ANDF INTEGER BUF(2),FILE ,NAM(2),TRL(7),NM1(2),FLAG ,ANDF , 1 TWO ,RET ,BFF(1),ID(2) ,FLG COMMON /TWO / TWO(32) DATA NAM , NM1 / 1 4HPREL, 4HOC ,4HLOCA,4HTE / C C OPEN FILE. IF PURGED, GIVE ALTERNATE RETURN. C OTHERWISE SKIP HEADER RECORD C TRL(1) = FILE CALL RDTRL (TRL) IF (TRL(1) .LT. 0) GO TO 10 IF (TRL(2)+TRL(3)+TRL(4)+TRL(5)+TRL(6)+TRL(7) .EQ. 0) GO TO 10 CALL OPEN (*10,FILE,BUF(2),0) CALL FWDREC (*2,FILE) BUF(1) = FILE ICHECK = 123456789 RETURN 10 RETURN 1 C C FATAL FILE ERRORS C 2 CALL MESAGE (-2,FILE,NAM) 3 CALL MESAGE (-3,TRL,NM1) C C ENTRY LOCATE (*,BFF,ID,FLG) C =========================== C C ENTRY TO POSITION DATA RECORD. C C READ TRAILER FOR FILE. IF BIT NOT ON OR FILE PURGED, C GIVE ALTERNATE RETURN. C CWKBD IF (ICHECK .NE. 123456789) CALL ERRTRC ('LOCATE ',10) TRL(1) = BFF(1) CALL RDTRL (TRL) IF (TRL(1) .LT. 0) RETURN 1 K = (ID(2)-1)/16 L = ID(2)- 16*K IF (ANDF(TRL(K+2),TWO(L+16)) .EQ. 0) RETURN 1 C C READ THREE ID WORDS FROM DATA RECORD. C IF END-OF-FILE, REPOSITION FILE TO FIRST DATA RECORD AND RETRY. C IF ID WORD MATCHES USER, RETURN. C LAST = 0 ASSIGN 20 TO RET 20 CALL READ (*50,*20,TRL(1),TRL(2),3,0,FLAG) IF (TRL(2) .NE. ID(1)) GO TO 22 FLG = TRL(4) RETURN C C SKIP RECORD. READ ID WORDS FROM NEXT RECORD. IF MATCH,RETURN. C IF END-OF FILE, REPOSITION TO FIRST DATA RECORD AND RETRY. C IF NO MATCH, TEST FOR RETURN TO ORIGINAL FILE POSITION. IF SO, C QUEUE MESSAGE AND GIVE ALTERNATE RETURN. IF NOT, CONTINUE SEARCH. C 22 ASSIGN 30 TO RET 25 CALL FWDREC (*2,TRL(1)) 30 CALL READ (*50,*3,TRL(1),TRL(5),3,0,FLAG) IF (TRL(5) .NE. ID(1)) GO TO 32 FLG = TRL(7) RETURN C 32 IF (TRL(5) .NE. TRL(2)) GO TO 25 35 CALL SSWTCH (40,J) CWKBD IF (J .NE. 0) CALL ERRTRC ('LOCATE ',35) CALL MESAGE (30,72,ID) CALL FWDREC (*2,TRL(1)) RETURN 1 C C CODE TO POSITION FILE TO FIRST DATA RECORD. C 50 CALL REWIND (TRL(1)) IF (LAST .NE. 0) GO TO 35 LAST = 1 CALL FWDREC (*2,TRL(1)) GO TO RET, (20,30) END ================================================ FILE: mis/premat.f ================================================ SUBROUTINE PREMAT (IZ,RZ,BFR,NIMAT,N2MAT,MPTF,DITF) C C REVISED 7/92, BY G.CHAN, NEW REFERENCE TO OPEN CORE ARRAY, SUCH C THAT THE SOURCE CODE IS UP TO ANSI FORTRAN 77 STANADARD C LOGICAL PART1 ,PLA ,TDEP INTEGER IZ(1) ,BFR(1),DITF ,QMAT1 ,QMAT2 ,QMATX ,FLAG , 1 MAT1(2) ,MATT1(2) ,DIT ,BUF(3),TEMPID, 2 NAM(2),BACK ,RET ,MAT2(2) ,MATT2(2) , 3 RET1 ,PASS ,TABLID,TABLEI(16) ,MATS1(2) , 4 MAT3(2) ,MATT3(2) ,QMAT3 ,QMAT8 ,MAT8(2) INTEGER QMATF ,ELEMID,QMTPZ1,QMTPZ2,QMAT6 ,SYSBUF,MATF(2) INTEGER Z ,OFFSET REAL NU ,RZ(1) ,X(27) ,Y(25) ,NUX ,NUXX ,J11 , 1 J12 ,J22 ,NUXY3 ,NUYZ3 ,NUZX3 ,MATSET,ZZ(1) DIMENSION MATPZ1(2) ,MATPZ2(2) ,MTTPZ1(2) , 1 MTTPZ2(2) ,BUFPZ(51) ,MAT6(2) , 2 MATT6(2) ,BUFTM6(39) ,XY(108) , 3 IB(46) COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,NOUT ,SKP(7),TEMPID COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /MATIN / MATID ,INFLAG,TEMP ,PLAARG,SINTH ,COSTH COMMON /MATOUT/ E ,G ,NU ,RHO ,ALPHA ,TO ,GE , 1 SIGMAT,SIGMAC,SIGMAS,SPACE(15) ,TDEP , 2 DUM26(26) C C COMMON FOR PIEZOELECTRIC MATERIAL COMMON /MATPZ / PZOUT(51) C C ISOPARAMETRIC MATERIALS C COMMON /MATISO/ G11 ,G12 ,G13 ,G14 ,G15 ,G16 ,G12 , C G22,..,G56 ,G66 ,RHO , C AXX ,AYY ,AZZ ,AXY ,AYZ ,AZX ,TREF , C GE ,IER C COMMON /MATISO/ BUFM6(46) EQUIVALENCE (E ,BUF(1),Y(1) ), 1 (Y( 1),G11 ,EX3 ,PLAANS ,INDSTR), 2 (Y( 2),G12 ,EY3 ,ICELL2), 3 (Y( 3),G13 ,EZ3 ), 4 (Y( 4),G22 ,NUXY3), 5 (Y( 5),G23 ,NUYZ3), 6 (Y( 6),G33 ,NUZX3), 7 (Y( 7),RHOY ,RHO3 ), 8 (Y( 8),ALPH1 ,GXY3 ), 9 (Y( 9),ALPH2 ,GYZ3 ), O (Y(10),ALPH12,GZX3 ), 1 (Y(11),TOY ,AX3 ), 2 (Y(12),GEY ,AY3 ), 3 (Y(13),SIGTY ,AZ3 ), 4 (Y(14),SIGCY ,TREF3), 5 (Y(15),SIGSY ,GE3 ) EQUIVALENCE (Y(16),J11 ,G113 ), 1 (Y(17),J12 ,G123 ), 2 (Y(18),J22 ,G133 ), 3 (Y(19), G223 ), 4 (Y(20), G233 ), 5 (Y(21), G333 ), 6 (Y(22), SIGTY3 ), 7 (Y(23), SIGCY3 ), 8 (Y(24), SIGSY3 ), 9 (Y(25), MATSET ) EQUIVALENCE (X( 1) , EX ), 1 (X( 2) , GX ), 2 (X( 3) , NUX ), 3 (X( 4) , RHOX ), 4 (X( 5) , ALPHX ), 5 (X( 6) , TOX ), 6 (X( 7) , GEX ), 7 (X( 8) , SIGTX ), 8 (X( 9) , SIGCX ), 9 (X(10) , SIGSX ) EQUIVALENCE (BUFM6(1) , IB(1) ) EQUIVALENCE (ZZ(1) , Z(1) ) C C DATA DEFINING CARDS TO BE READ C DATA MAT1 , KMAT1 , LMAT1 / 103, 1, 11, 31 / , 2 MAT2 , KMAT2 , LMAT2 / 203, 2, 16, 46 / , 3 MAT3 , KMAT3 , LMAT3 / 1403,14, 16, 46 / , 6 MAT6 , KMAT6 , LMAT6 / 2503,25, 40, 118 / , 8 MAT8 , KMAT8 , LMAT8 / 603, 6, 18, 52 / , 1 MATT1 / 703, 7 / , 2 MATT2 / 803, 8 / , 3 MATT3 / 1503,15 / , 6 MATT6 / 2603,26 / , 1 MATS1 / 503, 5 / , 1 MATPZ1 , KMTPZ1 , LMTPZ1 / 1603,16, 15, 43 / , 2 MATPZ2 , KMTPZ2 , LMTPZ2 / 1703,17, 52, 154 / , 1 MTTPZ1 / 1803,18 / , 2 MTTPZ2 / 1903,19 / , F MATF , KMATF , LMATF / 5110,51, 3, 3 / DATA NTYPES, TABLEI / 8, 1 105 , 1, 205 , 2, 305 , 3, 405 , 4, 3105,31, 3205,32, 2 3305,33, 3405,34/ DATA NAM / 4HMAT , 4H / C C MAT1 AND MAT2 HAVE ONE EXTRA WORD AT END C DATA NWMAT1 / 12 / , NWMAT2 / 17 / C C - DATA IN /MATOUT/ IN VARIOUS MAT FORMATS, AND INFLAGS - C C FORMAT MAT1 MAT2 MAT3 MAT6 MAT8 MATP C INFLAG= 1 2,3,12 4 5 6,8 7 11 10 12 C -WORD- ----- ------ --- ------ ------ ----- ---- ---- ----- ---- C 1 E G11 RHO INDSTR PLAANS EX : E1 E C 2 G G12 ICDLL/8 EY : NU12 E C 3 NU G13 EZ E2 C 4 PHO G22 NUXY RHO G12 C 5 ALPH G23 NUYZ G2Z C 6 T0 G33 NUZX G1Z C 7 GE RHO RHO RHO C 8 SIGT ALPH1 (X/N INDICATES GXY ALPH1 C 9 SIGC ALPH2 ITEM X IS FOR GYZ ALPH2 C 10 SIGS ALPH12 INFLAG=N ONLY) GZX TO C 11 TO AX TL C 12 GE AY CL C 13 SIGT AZ TT C 14 SIGC TO CT C 15 SIGS GE IS C 16 E/12 J11/3 G11 GE C 17 E/12 J12/3 G12 F12 C 18 J22/3 G13 C 19 G22 C 20 G23 C 21 G33 C 22 SIGT C 23 SIGC C 24 SIGS C 25 MATSET MATSET MATSET MATSET C 26 TDEP C : C C PERFORM GENERAL INITIALIZATION C QMAT1 = 0 QMAT2 = 0 QMAT3 = 0 QMAT6 = 0 QMAT8 = 0 QMATF = 0 QMATX = 0 QMTPZ1 = 0 QMTPZ2 = 0 PLA = .FALSE. IF (DITF .LT. 0) PLA = .TRUE. PART1 = .TRUE. I =-1 MPT = MPTF DIT = IABS(DITF) OFFSET = LOCFX(IZ(1)) - LOCFX(Z(1)) IF (OFFSET .LT. 0) CALL ERRTRC ('PREMAT ',10) N1MAT = NIMAT + OFFSET C C READ MAT1,MAT2 AND MAT3 CARDS. SPREAD FORMAT SO THAT MATTI AND C MATSI TEMPERATURE AND STRESS-STRAIN TABLE NUMBERS CAN BE MERGED C CALL PRELOC (*350,BFR,MPT) IMAT1 = 1 + OFFSET I = 1 + OFFSET CALL LOCATE (*60,BFR,MAT1,FLAG) QMAT1 = 1 IMHERE= 30 30 CALL READ (*1350,*50,MPT,BUF,NWMAT1,0,FLAG) Z(I) = BUF(1) I = I + 1 DO 40 J = 2,KMAT1 Z(I ) = BUF(J) Z(I+1) = 0 Z(I+2) = 0 IF (I .GT. N1MAT) GO TO 1398 40 I = I + 3 GO TO 30 50 NMAT1 = I - LMAT1 60 IMAT2 = I CALL LOCATE (*100,BFR,MAT2,FLAG) QMAT2 = 1 IMHERE= 70 70 CALL READ (*1350,*90,MPT,BUF,NWMAT2,0,FLAG) Z(I) = BUF(1) I = I + 1 DO 80 J = 2,KMAT2 Z(I ) = BUF(J) Z(I+1) = 0 Z(I+2) = 0 IF (I .GT. N1MAT) GO TO 1398 80 I = I + 3 GO TO 70 90 NMAT2 = I - LMAT2 100 IMAT3 = I CALL LOCATE (*131,BFR,MAT3,FLAG) QMAT3 = 1 IMHERE= 110 110 CALL READ (*1350,*130,MPT,BUF,KMAT3,0,FLAG) Z(I) = BUF(1) I = I + 1 DO 120 J = 2,KMAT3 Z(I ) = BUF(J) Z(I+1) = 0 Z(I+2) = 0 IF (I .GT. N1MAT) GO TO 1398 120 I = I + 3 GO TO 110 130 NMAT3 = I - LMAT3 131 IMTPZ1 = I CALL LOCATE (*135,BFR,MATPZ1,FLAG) QMTPZ1 = 1 IMHERE = 132 132 CALL READ (*1350,*134,MPT,BUF,KMTPZ1,0,FLAG) Z(I) = BUF(1) I = I + 1 DO 133 J = 2,KMTPZ1 Z(I ) = BUF(J) Z(I+1) = 0 Z(I+2) = 0 IF (I .GT. N1MAT) GO TO 1398 133 I = I + 3 GO TO 132 134 NMTPZ1 = I - LMTPZ1 135 IMTPZ2 = I CALL LOCATE (*140,BFR,MATPZ2,FLAG) QMTPZ2 = 1 IMHERE = 136 136 CALL READ (*1350,*138,MPT,BUF,KMTPZ2,0,FLAG) Z(I) = BUF(1) I = I + 1 DO 137 J = 2,KMTPZ2 Z(I ) = BUF(J) Z(I+1) = 0 Z(I+2) = 0 IF (I .GT. N1MAT) GO TO 1398 137 I = I + 3 GO TO 136 138 NMTPZ2 = I - LMTPZ2 140 IMAT6 = I CALL LOCATE (*144,BFR,MAT6,FLAG) QMAT6 = 1 IMHERE = 141 141 FLAG = 0 CALL READ (*1350,*143,MPT,BUF,KMAT6,0,FLAG) Z(I) = BUF(1) I = I + 1 DO 142 J = 2,KMAT6 Z(I ) = BUF(J) Z(I+1) = 0 Z(I+2) = 0 IF (I .GT. N1MAT) GO TO 1398 142 I = I + 3 GO TO 141 143 NMAT6 = I - LMAT6 IF (FLAG .NE. 0) GO TO 1570 144 IMAT8 = I CALL LOCATE (*1444,BFR,MAT8,FLAG) QMAT8 = 1 IMHERE= 1441 1441 FLAG = 0 CALL READ (*1350,*1443,MPT,BUF,KMAT8,0,FLAG) Z(I) = BUF(1) I = I + 1 DO 1442 J = 2,KMAT8 Z(I ) = BUF(J) Z(I+1) = 0 Z(I+2) = 0 IF (I .GT. N1MAT) GO TO 1398 1442 I = I + 3 GO TO 1441 1443 NMAT8 = I - LMAT8 IF (FLAG .NE. 0) GO TO 1570 1444 IMATF = I CALL LOCATE (*149,BFR,MATF,FLAG) QMATF = 1 IMHERE = 145 145 CALL READ (*1350,*148,MPT,BUF,KMATF,0,FLAG) Z(I ) = BUF(1) Z(I+1) = BUF(2) Z(I+2) = BUF(3) I = I + 3 GO TO 145 148 NMATF = I - LMATF 149 ILIST = I IF (I .GT. N1MAT) GO TO 1398 CALL CLOSE (MPT,CLSREW) C C IF TEMPERATURE OR PLA PROBLEM, READ THE MATTI OR MATSI CARDS. C MERGE MATSI AND MATTI DATA WITH MATI DATA. C SAVE A LIST OF TABLES REFERENCED. C IF ( PLA .AND. TEMPID.NE.0) GO TO 1540 IF (.NOT.PLA .AND. TEMPID.EQ.0) GO TO 350 CALL PRELOC (*350,BFR,MPT) IF (TEMPID .NE. 0) GO TO 160 NX = 3 CALL LOCATE (*150,BFR,MATS1,FLAG) QMATX = 1 ASSIGN 150 TO BACK ASSIGN 1420 TO RET1 ASSIGN 820 TO PASS N = KMAT1 GO TO 910 150 CONTINUE 160 NX = 2 CALL LOCATE (*170,BFR,MATT1,FLAG) QMATX = 1 ASSIGN 170 TO BACK ASSIGN 1450 TO RET1 ASSIGN 820 TO PASS N = KMAT1 GO TO 910 170 CALL LOCATE (*180,BFR,MATT2,FLAG) QMATX = 1 ASSIGN 180 TO BACK ASSIGN 1460 TO RET1 ASSIGN 850 TO PASS N = KMAT2 GO TO 910 180 CALL LOCATE (*181,BFR,MATT3,FLAG) QMATX = 1 ASSIGN 181 TO BACK ASSIGN 1520 TO RET1 ASSIGN 880 TO PASS N = KMAT3 GO TO 910 181 CALL LOCATE (*182,BFR,MTTPZ1,FLAG) QMATX = 1 ASSIGN 182 TO BACK ASSIGN 1551 TO RET1 ASSIGN 901 TO PASS N = KMTPZ1 GO TO 910 182 CALL LOCATE (*183,BFR,MTTPZ2,FLAG) QMATX = 1 ASSIGN 183 TO BACK ASSIGN 1552 TO RET1 ASSIGN 904 TO PASS N = KMTPZ2 GO TO 910 183 CALL LOCATE (*190,BFR,MATT6,FLAG) QMATX = 1 ASSIGN 190 TO BACK ASSIGN 1560 TO RET1 ASSIGN 907 TO PASS N = 31 GO TO 910 190 ITABL = I IMHERE= 190 IF (I .GT. N1MAT) GO TO 1398 NLIST = ITABL - 11 CALL CLOSE (MPT,CLSREW) C C IF ANY MATTI OR MATSI CARDS WERE READ, FORM A SORTED LIST OF TABLE C NUMBERS REFERENCED ON THESE CARDS. THEN, DISCARD ANY DUPLICATES IN C THE LIST SO THAT THE LIST CONTAINS UNIQUE TABLE NOS. TO BE READ. C IF (QMATX .EQ. 0) GO TO 350 DO 220 II = ILIST,NLIST,11 MIN = 999999999 DO 210 JJ = II,NLIST,11 IF (Z(JJ) .GE. MIN) GO TO 210 MIN = Z(JJ) JX = JJ 210 CONTINUE Z(JX) = Z(II) 220 Z(II) = MIN Z(ITABL) = 0 JJ = ILIST DO 230 II = ILIST,NLIST,11 IF (Z(II+11) .EQ. Z(II)) GO TO 230 Z(JJ) = Z(II) JJ = JJ + 11 230 CONTINUE ITABL = JJ NLIST = JJ - 11 C C READ THE DIT BY TABLE TYPE. FOR EACH TABLE IN THE DIT, LOOK UP IN C TABLE NO. LIST TO DETERMINE IF THE TABLE IS REQUIRED FOR PROBLEM C SOLUTION. IF NOT, SKIP THE TABLE. IF SO, READ THE TABLE INTO CORE C AND STORE POINTERS TO THE FIRST AND LAST ENTRIES IN THE TABLE AND C THE TYPE OF TABLE. THIS INFORMATION IS STORED IN THE TABLE NO. C LIST C CALL PRELOC (*1370,BFR,DIT) I = ITABL J = 1 ASSIGN 260 TO RET ASSIGN 280 TO RET1 240 JJ = J + J - 1 CALL LOCATE (*290,BFR,TABLEI(JJ),FLAG) 250 CALL READ (*1380,*290,DIT,BUF,8,0,FLAG) NWDS = 2 IF (J.EQ.4 .OR. J.EQ.8) NWDS = 1 TABLID = BUF(1) GO TO 960 260 Z(L+1) = J IF (J .GT. 4) Z(L+1) = J - 4 Z(L+2) = I IMHERE = 270 270 CALL READ (*1380,*1390,DIT,Z(I),NWDS,0,FLAG) IF (Z(I) .EQ. -1) GO TO 300 I = I + NWDS IF (I .GT. N1MAT) GO TO 1398 GO TO 270 280 CALL READ (*1380,*1390,DIT,BUF,NWDS,0,FLAG) IF (BUF(1) .EQ. -1) GO TO 250 GO TO 280 290 J = J + 1 IF (J .LE. NTYPES) GO TO 240 CALL CLOSE (DIT,CLSREW) GO TO 330 300 Z(L+3) = I - NWDS C C STORE THE PARAMETERS ON THE TABLEI CARD IN LOCATIONS C Z(L+4),Z(L+5),...,Z(L+10) C DO 310 K = 2,8 LX = L + K 310 Z(LX+2) = BUF(K) C C IF THIS TABLE IS A POLYNOMIAL (TABLE4), EVALUATE THE END POINTS C AND STORE AT ZZ(L+8) AND ZZ(L+9) C IF (J .NE. 4) GO TO 250 XX = (ZZ(L+6) - ZZ(L+4))/ZZ(L+5) ASSIGN 1330 TO IGOTO GO TO 1280 320 ASSIGN 1340 TO IGOTO XX = (ZZ(L+7) - ZZ(L+4))/ZZ(L+5) GO TO 1280 C C TEST TO FOR ALL REFERENCED TABLES IN CORE C 330 FLAG = 0 DO 340 L = ILIST,NLIST,11 IF (Z(L+1) .NE. 0) GO TO 340 FLAG = 1 BUF(1) = Z(L) BUF(2) = 0 CALL MESAGE (30,41,BUF) 340 CONTINUE IF (FLAG .NE. 0) CALL MESAGE (-37,0,NAM) C C WRAP UP PREMAT C 350 N2MAT = I + 1 - OFFSET MATIDO = 0 SINTHO = 2.0 COSTHO = 2.0 INFLGO = 0 PART1 =.FALSE. MAPCK =+999 RETURN C C THE FOLLOWING POINTERS AND FLAGS ARE SET IN PREMAT FOR USE BY MAT- C QMAT1 = 0, NO MAT1 TABLE, = 1, MAT1 TABLE PRESENT C IMAT1 = POINTER TO FIRST ENTRY IN MAT1 TABLE C LMAT1 = LENGTH OF EACH ENTRY IN MAT1 TABLE C NAMT1 = POINTER TO LAST ENTRY IN MAT1 TABLE C QMAT2, IMAT2, LMAT2 AND NMAT2 ARE DEFINED AS ABOVE FOR MAT2 TABLE C QMATX = 0, NO TEMP OR STRESS TABLES PRESENT, = 1, OTHERWISW C ILIST = POINTER TO FIRST ENTRY IN TABLE LIST C NLIST = POINTER TO LAST ENTRY IN TABLE LIST C C THE TABLE LIST HAS 11 WORDS PER ENTRY AS FOLLOWS-- C 1. TABLE NUMBER (I.E. ID NO.) C 2. TABLE TYPE (I.E. 1 = TABLE1, 2 = TABLE2 ETC.) C 3. POINTER TO FIRST ENTRY IN TABLE C 4. POINTER TO LAST ENTRY IN TABLE C 5. THRU 11. PARAMETERS ON TABLEI CARD C MATIDO = OLD MATERIAL ID (INITIALIZED TO 0 BY PREMAT) C SINTHO = OLD SIN THETA (INITIALIZED TO 2. BY PREMAT) C INFLGO = OLD INFLAG (INITIALIZED TO 0 BY PREMAT) C C C ENTRY MAT (ELEMID) C ================== C C IF MAPCK .NE. +999 PREMAT HAS BEEN CORRUPTED. (OVERLAY ERROR) C IF (MAPCK .EQ. +999) GO TO 355 WRITE (NOUT,353) MAPCK 353 FORMAT (//,' *** PREMAT OVERLEY ERROR',I12) CALL ERRTRC ('PREMAT ',353) C C C INFLAG DESCRIBES PROCESSING REQUESTED BY CALLER C 355 GO TO (360 ,400 ,480 ,560 ,620 ,640 ,680 ,2000,2200,2400,2600, 1 2700), INFLAG C C INFLAG = 1 MEANS CALLER WANTS ONLY MAT1 PROPERTIES IN MAT1 FORMAT C IF NO TEMPERATURE DEPENDENT PROPERTIES AND MATID = OLD MATID, C RETURN SINCE DATA IS ALREADY IN MATOUT C 360 IF (TEMPID.EQ.0 .AND. MATID.EQ.MATIDO .AND. INFLAG.EQ.INFLGO .AND. 1 .NOT. PLA) RETURN MATIDO = MATID INFLGO = INFLAG TDEP =.FALSE. C C LOOK UP MATID IN MAT1 TABLE C ASSIGN 380 TO RET ASSIGN 1480 TO RET1 GO TO 820 C C PICK UP MATERIAL PROPERTIES FROM MAT1 ENTRY. C 380 I = K + 1 J = 1 ASSIGN 390 TO BACK GO TO 980 390 Y(J) = PROP I = I + 3 J = J + 1 IF (J .LT. KMAT1) GO TO 980 RETURN C C INFLAG = 2 MEANS CALLER WANTS MAT2 FORMAT WHETHER PROPERTIES ARE C DEFINED IN MAT1 OR MAT2 TABLE. C IF NO TEMPERATURE DEPENDENT PROPERTIES AND MATID = OLD MATID AND C SIN THETA = OLD SIN THETA, RETURN C 400 IF (TEMPID.EQ.0 .AND. MATID.EQ.MATIDO .AND. SINTH.EQ.SINTHO .AND. 1 .NOT.PLA .AND. INFLAG.EQ.INFLGO .AND. COSTH.EQ.COSTHO) 2 RETURN INFLGO = INFLAG MATIDO = MATID SINTHO = SINTH COSTHO = COSTH C C LOOK UP MATID IN MAT1 TABLE C 410 ASSIGN 420 TO RET1 ASSIGN 430 TO RET GO TO 820 C C MATID NOT IN MAT1 TABLE, LOOK UP IN MAT2 TABLE C - IF NOT PRESENT, FATAL ERROR IF INFLAG = 2 C - IF NOT PRESENT, SEARCH MAT8 TABLE IF INFLAG = 12 C 420 ASSIGN 450 TO RET ASSIGN 425 TO RET1 GO TO 850 425 IF (INFLGO .EQ. 12) GO TO 2710 GO TO 1480 C C MATID FOUND IN MAT1 TABLE. C COMPUTE G MATRIX FROM MAT1 PROPERTIES. C COMPLETE REMAINDER OF OUTPUT BUFFER IN MAT2 FORMAT. C 430 I = K + 1 J = 1 ASSIGN 440 TO BACK MMAT = 1 GO TO 980 440 X(J) = PROP I = I + 3 J = J + 1 IF (J .LT. KMAT1) GO TO 980 NUXX = 1.0 - NUX**2 G11 = EX/NUXX G12 = NUX*G11 G13 = 0. G22 = G11 G23 = 0. G33 = GX RHOY = RHOX ALPH1 = ALPHX ALPH2 = ALPHX ALPH12= 0. TOY = TOX GEY = GEX SIGTY = SIGTX SIGCY = SIGCX SIGSY = SIGSX IF (INFLGO .EQ. 12) GO TO 2701 RETURN C C MATID FOUND IN MAT2 TABLE. C PLACE PROPERTIES IN OUTPUT AREA IN MAT2 FORMAT C THEN TEST FOR TRANSFORMATION. IF IDENTITY, RETURN. 3THERWISE, C PERFORM U(T)*G*U . C 450 I = K + 1 J = 1 MMAT = 2 ASSIGN 460 TO BACK GO TO 980 460 Y(J) = PROP I = I + 3 J = J + 1 IF (J .LT. KMAT2) GO TO 980 IF (INFLGO .EQ. 12) GO TO 2705 IF (SINTH .EQ. 0.0) GO TO 470 IF (ABS(SINTH**2 + COSTH**2 - 1.0) .GT. .0001) GO TO 1485 C C TRANSFORM G , THE MATERIAL STIFFNESS PROPERTY MATRIX. C M T C G = U * G * U C E M C X( 1) = COSTH**2 X( 2) = SINTH**2 X( 3) = COSTH*SINTH X( 4) = X(2) X( 5) = X(1) X( 6) =-X(3) X( 7) = 2.0*X(6) X( 8) =-X(7) X( 9) = X(1) - X(2) X(10) = G11 X(11) = G12 X(12) = G13 X(13) = G12 X(14) = G22 X(15) = G23 X(16) = G13 X(17) = G23 X(18) = G33 CALL GMMATS (X(10),3,3,0,X( 1),3,3,0,X(19)) CALL GMMATS (X( 1),3,3,1,X(19),3,3,0,X(10)) G11 = X(10) G12 = X(11) G13 = X(12) G22 = X(14) G23 = X(15) G33 = X(18) C C COMPUTE THE TRANSFORMED TEMPERATURE EXPANSION VECTOR C (ALPHA) = (U)*(ALPHA) C M C X(3) = -X(3) X(6) = -X(6) X(7) = -X(7) X(8) = -X(8) CALL GMMATS (X(1),3,3,0, Y(8),3,1,0, X(10)) ALPH1 = X(10) ALPH2 = X(11) ALPH12= X(12) 470 IF (INFLAG .EQ. 7) GO TO 813 RETURN C C INFLAG = 3 IMPLIES THE CALLER WANTS C (1) ONLY J11, J12 AND J22, AND C (2) THE FIRST 15 LOCATIONS OF /MATOUT/ TO BE UNDISTURBED. C 480 IF (MATID.EQ.MATIDO .AND. INFLAG.EQ.INFLGO .AND. .NOT.PLA) RETURN IF (MATID .NE. MATIDO) GO TO 490 IF (INFLGO .NE. 2) GO TO 490 IF (MMAT-2) 530,540,540 C C SEARCH MAT1 TABLE FOR MATID C 490 ASSIGN 500 TO RET1 ASSIGN 510 TO RET GO TO 820 C C MATID NOT IN MAT1 TABLE. LOOK IN MAT2 TABLE - ERROR IF NOT PRESENT C 500 ASSIGN 1480 TO RET1 ASSIGN 540 TO RET GO TO 850 510 I = K + 4 ASSIGN 520 TO BACK GO TO 980 520 J11 = PROP J12 = 0.0 J22 = PROP GO TO 550 530 J11 = GX J12 = 0.0 J22 = GX GO TO 550 540 J11 = 0.0 J12 = 0.0 J22 = 0.0 550 INFLGO = INFLAG MATIDO = MATID RETURN C C INFLAG = 4 MEANS CALLER DESIRES ONLY THE DENSITY PROPERTY (RHO) C LOOK UP MATID IN MAT1 TABLE. C 560 IF (TEMPID.EQ.0 .AND. MATID.EQ.MATIDO .AND. INFLAG.EQ.INFLGO .AND. 1 .NOT.PLA) RETURN ASSIGN 580 TO RET ASSIGN 570 TO RET1 GO TO 820 C C MATID NOT IN MAT1 TABLE, LOOK UP IN MAT2 TABLE - ERROR IF NOT C PRESENT C 570 ASSIGN 610 TO RET ASSIGN 1480 TO RET1 GO TO 850 C C MATID FOUND IN MAT1 TABLE. PICK UP RHO C 580 I = K + 10 590 ASSIGN 600 TO BACK GO TO 980 600 Y(1) = PROP MATIDO = MATID INFLGO = INFLAG RETURN C C MATID FOUND IN MAT2 TABLE. PICK UP RHO. C 610 I = K + 19 GO TO 590 C C INFLAG = 5, USED ONLY IN MODULE PLA1, DETERMINES IF THE MAT CARD C REFERENCED IS A MAT1 WITH E, YOUNGS MODULUS, DEFINED AS STRESS C DEPENDENT. IF IT IS STRESS DEPENDENT, INDSTR, THE FIRST WORD OF C THE /MATOUT/ BLOCK IS SET = 1. IF NOT STRESS DEPENDENT, INDSTR C IS SET = 0 ONLY MAT1 CARDS ARE ADMISSIBLE FOR THIS TEST. C 620 IF (PLA .AND. MATID.EQ.MATIDO .AND. INFLAG.EQ.INFLGO) RETURN MATIDO = MATID INFLGO = INFLAG ASSIGN 630 TO RET ASSIGN 635 TO RET1 INDSTR = 0 GO TO 820 C C TEST TO SEE IF THE MATERIAL PROPERTY E IS DEPENDENT ON A TABLE OF C STRAIN VS. STRESS (EPSILON VS. SIGMA) C 630 TABLID = Z(K+3) IF (TABLID .NE. 0) INDSTR = 1 635 RETURN C C INFLAG = 6, USED ONLY IN SUBROUTINES PLA3 AND PLA4, ACCEPTS C EPSILON - STRAIN - IN THE /MATIN/ BLOCK (PLAARG) AND LOOKS-UP C SIGMA - STRESS - AND STORES THIS VALUE IN PLAANS IN /MATOUT/. C ONLY MAT1 AND MATS1 CARDS ARE ADMISSIBLE FOR THIS INFLAG. C 640 ASSIGN 650 TO RET ASSIGN 1500 TO RET1 MATIDO = MATID INFLGO = INFLAG GO TO 820 650 TABLID = Z(K+3) IF (TABLID .LE. 0) GO TO 1510 XX = PLAARG ASSIGN 660 TO RET ASSIGN 1490 TO RET1 GO TO 960 660 ITYPE = Z(L+1) IF (ITYPE .NE. 1) GO TO 1530 ASSIGN 670 TO IRET GO TO 1080 670 PLAANS = PROP RETURN C C INFLAG = 7, USED CURRENTLY ONLY BY BELL AEROSYSTEMS ELEMENTS, C IMPLIES THE USER WANTS HIS DATA IN MAT3 FORMAT. IF THE MATID IS C FOUND IN THE MAT1 SET, THE DATA IS STORED IN MAT3 FORMAT. IF NOT C FOUND IN THE MAT1 SET, THE MAT3 SET IS SEARCHED. IF NOT FOUND IN C THE MAT3 SET THE MAT2 SET IS SEARCHED. IF NOT FOUND HERE, A FATAL C ERROR EXISTS. C 680 IF (TEMPID.EQ.0 .AND. INFLAG.EQ.INFLGO .AND. MATID.EQ.MATIDO) 1 RETURN INFLGO = INFLAG MATIDO = MATID ASSIGN 690 TO RET 685 CONTINUE ASSIGN 790 TO RET1 GO TO 820 690 I = K + 1 J = 1 ASSIGN 700 TO BACK GO TO 980 700 GO TO (710,720,730,740,750,760,770,771,772,773), J 710 EX3 = PROP EY3 = PROP EZ3 = PROP GO TO 780 720 GXY3 = PROP GYZ3 = PROP GZX3 = PROP GO TO 780 730 NUXY3 = PROP NUYZ3 = PROP NUZX3 = PROP GO TO 780 740 RHO3 = PROP GO TO 780 750 AX3 = PROP AY3 = PROP AZ3 = PROP GO TO 780 760 TREF3 = PROP GO TO 780 770 GE3 = PROP GO TO 780 771 SIGTY3 = PROP GO TO 780 772 SIGCY3 = PROP GO TO 780 773 SIGSY3 = PROP MATSET = 1.0 RETURN C 780 J = J + 1 I = I + 3 GO TO 980 C C SEARCH FOR MATID IN THE MAT3 SET C 790 ASSIGN 800 TO RET ASSIGN 811 TO RET1 GO TO 880 C C PICK UP MATERIAL PROPERTIES FROM MAT3 ENTRY C 800 I = K + 1 J = 1 ASSIGN 810 TO BACK GO TO 980 810 Y(J) = PROP I = I + 3 J = J + 1 IF (J .LT. KMAT3) GO TO 980 MATSET = 3.0 RETURN C C SEARCH FOR MATID IN THE MAT2 SET C 811 ASSIGN 812 TO RET ASSIGN 1480 TO RET1 GO TO 850 C C GO TO INFLAG = 2 CODE TO PICK UP MAT2 PROPERTIES C 812 GO TO 450 813 SIGTY3 = SIGTY SIGCY3 = SIGCY SIGSY3 = SIGSY TREF3 = TOY GE3 = GEY AX3 = ALPH1 AY3 = ALPH2 AZ3 = ALPH12 G113 = G11 G123 = G12 G133 = G13 G223 = G22 G233 = G23 G333 = G33 MATSET = 2.0 RETURN C C INFLAG = 8 IS USED ONLY BY TWO-DIMENSIONAL ELEMENTS IN PIECEWISE C LINEAR ANALYSIS. HERE WE PERFORM AN INVERSE INTERPOLATION TO C OBTAIN STRAIN (EPS) GIVEN STRESS (TAU) C 2000 ASSIGN 2010 TO RET ASSIGN 1500 TO RET1 MATIDO = MATID INFLGO = INFLAG YY = PLAARG GO TO 820 2010 TABLID = Z(K+3) IF (TABLID .LE. 0) GO TO 1510 ASSIGN 2020 TO RET ASSIGN 1490 TO RET1 GO TO 960 2020 ITYPE = Z(L+1) IF (ITYPE .NE. 1) GO TO 1530 C C ROUTINE TO PERFORM INVERSE LINEAR INTERPOLATION OR EXTRAPOLATION. C ITABL = Z(L+2) NTABL = Z(L+3) UP = 1.0 IF (ZZ(ITABL) .GT. ZZ(ITABL+2)) UP = -1.0 KXX1 = ITABL IF ((YY - ZZ(ITABL+1))*UP .LT. 0.0) GO TO 2180 KXX1 = NTABL - 2 IF ((YY - ZZ(NTABL+1))*UP .LE. 0.0) GO TO 2030 IF (ZZ(NTABL+1) .EQ. ZZ(NTABL-1)) GO TO 2180 2030 KLO = 1 KHI = (NTABL - ITABL)/2 + 1 2090 KX = (KLO + KHI + 1)/2 KXX = (KX - 1)*2 + ITABL IF ((YY - ZZ(KXX+1))*UP) 2100,2150,2110 2100 KHI = KX GO TO 2120 2110 KLO = KX 2120 IF (KHI-KLO .NE. 1) GO TO 2090 KXX1 = 2*(KLO-1) + ITABL IF (KXX .EQ. KXX1) GO TO 2130 IF (YY .EQ. ZZ(KXX1+3)) GO TO 2140 2130 PLAANS = (YY - ZZ(KXX1+1))*(ZZ(KXX1+2) - ZZ(KXX1))/(ZZ(KXX1+3) 1 - ZZ(KXX1+1)) + ZZ(KXX1) 2135 ICELL2 = 0 RETURN C 2140 KXX = KXX1 + 2 2150 IF (YY .EQ. ZZ(KXX-1)) GO TO 2160 IF (YY .EQ. ZZ(KXX+3)) GO TO 2170 PLAANS = ZZ(KXX) GO TO 2135 2160 PLAANS = (ZZ(KXX) + ZZ(KXX-2))/2.0 GO TO 2135 2170 PLAANS = (ZZ(KXX) + ZZ(KXX+2))/2.0 GO TO 2135 C C YY IS OUT OF THE RANGE OF THE FUNCTION, SET THE SECOND CELL OF C /MATOUT/ EQUAL TO ONE. C 2180 PLAANS = 0.0 ICELL2 = 1 RETURN C C INFLAG = 9 IS USED ONLY BY TRAPAX AND TRIAAX WHEN PIEZOELECTRIC C MATERIALS ARE SELECTED. WANT MATERIALS RETURNED INTO MATPZ2 C FORMAT. C C MATPZ1 CODE TRANSFORMS 1,2,3 MATERIAL DIRECTIONS INTO Z, THETA, C R = 0 DIRECTIONS, RESPECTIVLELY, AND INTERCHANGES 4TH AND 6TH ROWS C AND COLUMNS TO ACCOUNT FOR DIFFERENT SHEAR ORDERING. C ELEMENT ROUTINE WILL TRANSFORM FOR R-POLARIZATION C MATPZ2 CODE ASSUMES USER HAS PERFO-MED ALL TRANSFORMATIONS AS C EXPLAINED FOR MATPZ1 C 2200 IF (TEMPID.EQ.0 .AND. INFLAG.EQ.INFLGO .AND. MATID.EQ.MATIDO) 1 RETURN INFLGO = INFLAG MATIDO = MATID C C LOOK UP MATID IN MATPZ1 TABLE C ASSIGN 2210 TO RET1 ASSIGN 2220 TO RET GO TO 901 C C NOT IN MATPZ1, LOOK AT MATPZ2 C 2210 ASSIGN 2300 TO RET ASSIGN 685 TO RET1 GO TO 904 C C FOUND IN MATPZ1 - PUT OUT LIKE MATPZ2 C 2220 I = K + 1 J = 1 ASSIGN 2230 TO BACK GO TO 980 2230 BUFPZ(J) = PROP I = I + 3 J = J + 1 IF (J .LT. KMTPZ1) GO TO 980 EPSO = 8.854E-12 DO 2240 IJK = 1,8 2240 BUFPZ(IJK) = BUFPZ(IJK)*1.E-12 SE1 = (BUFPZ(4)-BUFPZ(1))*2.*BUFPZ(5)**2 - BUFPZ(2)* 1 (BUFPZ(4)**2-BUFPZ(1)**2) SE2 = 2.*BUFPZ(5)**2 - BUFPZ(2)*(BUFPZ(4) + BUFPZ(1)) IF (SE1.EQ.0. .OR. SE2.EQ.0.)GO TO 1556 CE11 =-(BUFPZ(5)**2-BUFPZ(1)*BUFPZ(2))/SE1 CE12 = (BUFPZ(5)**2-BUFPZ(2)*BUFPZ(4))/SE1 CE13 = BUFPZ(5)/SE2 CE33 =-(BUFPZ(4)+BUFPZ(1))/SE2 CE44 = 1./BUFPZ(3) CE66 = 0.5/(BUFPZ(1) - BUFPZ(4)) E15 = BUFPZ(8)*CE44 E31 = BUFPZ(6)*(CE11+CE12) + BUFPZ(7)*CE13 E33 = BUFPZ(6)*CE13*2. + BUFPZ(7)*CE33 EPS11 = BUFPZ(9)*EPSO EPS33 = BUFPZ(10)*EPSO DO 2250 IJK = 4,44 2250 PZOUT(IJK)= 0. PZOUT( 1) = CE33 PZOUT( 2) = CE13 PZOUT( 3) = CE13 PZOUT( 7) = CE11 PZOUT( 8) = CE12 PZOUT(12) = CE11 PZOUT(16) = CE44 PZOUT(19) = CE44 PZOUT(21) = CE66 PZOUT(22) = E33 PZOUT(23) = E31 PZOUT(24) = E31 PZOUT(31) = E15 PZOUT(38) = E15 PZOUT(40) = EPS33 PZOUT(43) = EPS11 PZOUT(45) = EPS11 PZOUT(46) = BUFPZ(11) PZOUT(47) = BUFPZ(12) PZOUT(48) = BUFPZ(12) PZOUT(49) = BUFPZ(12) PZOUT(50) = BUFPZ(13) PZOUT(51) = BUFPZ(14) MATSET = 4.0 RETURN C C FOUND IN MATPZ2 FORMAT C 2300 I = K + 1 J = 1 ASSIGN 2310 TO BACK GO TO 980 2310 PZOUT(J) = PROP I = I + 3 J = J + 1 IF (J .LT. KMTPZ2) GO TO 980 MATSET = 5.0 RETURN C C INFLAG = 10, USED CURRENTLY ONLY BY ISOPARAMETRIC SOLIDS IHEX1,2,3 C IMPLIES CALLER WANTS HIS DATA IN MAT6 FORMAT STORED IN MATISO. C MATERIALS COULD BE ON MAT1 OR ON MAT6. IN EITHER CASE,MATERIALS C WILL BE COMPUTED FOR MAT6 OUTPUT. IF NOT FOUND ON MAT1 OR MAT6, C FATAL. C 2400 IF (TEMPID.EQ.0 .AND. MATID.EQ.MATIDO .AND. INFLAG.EQ.INFLGO) 1 RETURN INFLGO = INFLAG MATIDO = MATID TDEP =.FALSE. C C LOOK UP MATID IN MAT1 TABLE C ASSIGN 2420 TO RET1 ASSIGN 2430 TO RET GO TO 820 C C MATID NOT IN MAT1. CHECK MAT6 C 2420 ASSIGN 2470 TO RET ASSIGN 1480 TO RET1 GO TO 907 C C MATID FOUND IN MAT1 TABLE. COMPUTE G MATRIX,ETC. C 2430 IB(46) = 1 I = K + 1 J = 1 ASSIGN 2440 TO BACK GO TO 980 2440 X(J) = PROP I = I + 3 J = J + 1 IF (J .LT. KMAT1) GO TO 980 DD = (1.+NUX)*(1.-2.*NUX) IF (DD .NE. 0.) GO TO 2450 IB(46) = 0 RETURN C 2450 DD = EX*(1.-NUX)/DD DDN1 = NUX/(1.-NUX) DDN2 = 0.5*(1.-2.*NUX)/(1.-NUX) DO 2460 IJKL = 1,45 2460 BUFM6(IJKL) = 0. BUFM6( 1) = DD BUFM6( 2) = DD*DDN1 BUFM6( 3) = BUFM6(2) BUFM6( 7) = BUFM6(2) BUFM6( 8) = BUFM6(1) BUFM6( 9) = BUFM6(2) BUFM6(13) = BUFM6(2) BUFM6(14) = BUFM6(2) BUFM6(15) = BUFM6(1) BUFM6(22) = DD*DDN2 BUFM6(29) = BUFM6(22) BUFM6(36) = BUFM6(22) BUFM6(37) = RHOX BUFM6(38) = ALPHX BUFM6(39) = ALPHX BUFM6(40) = ALPHX BUFM6(44) = TOX BUFM6(45) = GEX RETURN C C MATID FOUND IN MAT6 TABLE. PUT PROPERTIES IN MAT6 FORMAT AND C TRANSFORM USING DIRECTION COSINES C 2470 IB(46) = 6 I = K + 1 J = 1 ASSIGN 2480 TO BACK GO TO 980 2480 BUFTM6(J) = PROP I = I + 3 J = J + 1 IF (J .LT. KMAT6) GO TO 980 C C PUT SYMMETRIC PORTION OF G INTO A FULL 6 X 6 AND CREATE A 6 X 6 C DIRECTION COSINE MATRIX BY COOK PP. 212-213. THEN TRANSFORM C (U-TRANSPOSE)*G*U C KKK = 0 LLL = 0 DO 2500 III = 1,6 DO 2490 JJJ = III,6 KKK = KKK + 1 LLL = LLL + 1 XY(LLL) = BUFTM6(KKK) IF (JJJ .EQ. III) GO TO 2490 L5 = 5*(JJJ-III) ISUB = LLL + L5 XY(ISUB) = XY(LLL) 2490 CONTINUE LLL = LLL + III 2500 CONTINUE XL1 = BUFTM6(31) XM1 = BUFTM6(32) XN1 = BUFTM6(33) XL2 = BUFTM6(34) XM2 = BUFTM6(35) XN2 = BUFTM6(36) XL3 = BUFTM6(37) XM3 = BUFTM6(38) XN3 = BUFTM6(39) XY(37) = XL1**2 XY(38) = XM1**2 XY(39) = XN1**2 XY(40) = XL1*XM1 XY(41) = XM1*XN1 XY(42) = XN1*XL1 XY(43) = XL2**2 XY(44) = XM2**2 XY(45) = XN2**2 XY(46) = XL2*XM2 XY(47) = XM2*XN2 XY(48) = XN2*XL2 XY(49) = XL3**2 XY(50) = XM3**2 XY(51) = XN3**2 XY(52) = XL3*XM3 XY(53) = XM3*XN3 XY(54) = XN3*XL3 XY(55) = XL1*XL2*2. XY(56) = XM1*XM2*2. XY(57) = XN1*XN2*2. XY(58) = XL1*XM2 + XL2*XM1 XY(59) = XM1*XN2 + XM2*XN1 XY(60) = XN1*XL2 + XN2*XL1 XY(61) = XL2*XL3*2. XY(62) = XM2*XM3*2. XY(63) = XN2*XN3*2. XY(64) = XL2*XM3 + XL3*XM2 XY(65) = XM2*XN3 + XM3*XN2 XY(66) = XN2*XL3 + XN3*XL2 XY(67) = XL3*XL1*2. XY(68) = XM3*XM1*2. XY(69) = XN3*XN1*2. XY(70) = XL3*XM1 + XL1*XM3 XY(71) = XM3*XN1 + XM1*XN3 XY(72) = XN3*XL1 + XN1*XL3 C CALL GMMATS (XY(1),6,6,0,XY(37),6,6,0,XY(73)) CALL GMMATS (XY(37),6,6,1,XY(73),6,6,0,BUFM6(1)) C C MUST ALSO TRANSFORM THERMAL EXPANSION VECOT= (U-INVERSE)*ALPHA C BY COOK P.212, THE INVERSE OF U IS THE TRANSPOSE OF THE C MATRIX WHICH TRANSFORMS STRESSES C KKK = 72 DO 2540 III = 1,6 DO 2530 JJJ = 1,36,6 KKK = KKK + 1 LLL = JJJ + III + 35 XY(KKK) = XY(LLL) 2530 CONTINUE 2540 CONTINUE DO 2545 III = 75,87,6 DO 2545 JJJ = 1,3 KKK = III + JJJ XY(KKK) = XY(KKK)*0.5 2545 CONTINUE DO 2550 III = 90,102,6 DO 2550 JJJ = 1,3 KKK = III + JJJ XY(KKK) = XY(KKK)*2.0 2550 CONTINUE C CALL GMMATS (XY(73),6,6,0,BUFTM6(23),6,1,0,BUFM6(38)) C BUFM6(37) = BUFTM6(22) BUFM6(44) = BUFTM6(29) BUFM6(45) = BUFTM6(30) RETURN C C INFLAG = 11 IS USED ONLY BY A HYDROELASTIC ANALYSIS TO FIND THE C DENSITY FOR THREE DIMENSIONAL FLUID ELEMENTS FROM MATF CARDS. C 2600 IF (QMATF .EQ. 0) GO TO 1480 DO 2610 K = IMATF,NMATF,LMATF IF (Z(K) .EQ. MATID) GO TO 2620 2610 CONTINUE GO TO 1480 2620 RHO = ZZ(K+1) RETURN C C INFLAG = 12 IS USED ONLY BY SHELL ELEMENTS QUAD4 AND TRIA3. C MAT1 IS FIRST SEARCHED, IF NOT FOUND, MAT2 IS SEARCHED. IF FOUND C IN EITHER CASE, /MATOUT/ WILL BE FILLED WITH MAT2 FORMAT DATA. C IF NOT FOUND IN MAT1 OR MAT2, MAT8 IS SEARCHED AND MAT8 FORMAT IS C USED IN /MATOUT/. FATAL ERROR IF MAT8 IS NOT FOUND. C 2700 IF (TEMPID.EQ.0 .AND. MATID.EQ.MATIDO .AND. INFLAG.EQ.INFLGO .AND. 1 SINTH.EQ.SINTHO .AND. COSTH.EQ.COSTHO .AND. .NOT.PLA) RETURN INFLGO = INFLAG MATIDO = MATID SINTHO = SINTH COSTHO = COSTH C C GO TO INFLAG = 2 CODE TO PICK UP MAT1 OR MAT2 PROPERTIES C SET MATSET TO 1.0 IF PROPERTY DATA COMES FROM MAT1, OR C TO 2.0 IF FROM MAT2 C GO TO 410 C 2701 MATSET = 1.0 Y(16) = EX Y(17) = EX RETURN 2705 MATSET = 2.0 RETURN C C NOT FOUND IN MAT1 AND MAT2. LOOK FOR MAT8, ERROR IF NOT FOUND C 2710 IF (QMAT8 .EQ. 0) GO TO 1480 DO 2720 K = IMAT8,NMAT8,LMAT8 IF (Z(K) .EQ. MATID) GO TO 2730 2720 CONTINUE GO TO 1480 2730 I = K + 1 J = 1 ASSIGN 2740 TO BACK GO TO 980 C C OUTPUT IN MAT8 FORMAT AND SET MATSET TO 8.0 C 2740 X(J) = PROP I = I + 3 J = J + 1 IF (J .LT. KMAT8) GO TO 980 DO 2760 K = 1,17 Y(K) = X(K) 2760 CONTINUE Y(2) = X(3) Y(3) = X(2) Y(5) = X(6) Y(6) = X(5) MATSET = 8.0 RETURN C C C INTERNAL ROUTINE TO SEARCH FOR MATERIAL IN MAT1 TABLE C 820 IF (QMAT1 .EQ. 0) GO TO 840 DO 830 K = IMAT1,NMAT1,LMAT1 IF (Z(K) .EQ. MATID) GO TO RET, ( 380,430,510,580,630,650,690,930, 1 2010,2430) 830 CONTINUE 840 GO TO RET1, (420,500,570,635,790,1420,1450,1480,1500,2420) C C INTERNAL ROUTINE TO SEARCH FOR MATERIAL IN MAT2 TABLE C 850 IF (QMAT2 .EQ. 0) GO TO 870 DO 860 K = IMAT2,NMAT2,LMAT2 IF (Z(K) .EQ. MATID) GO TO RET, (930,450,610,540,812) 860 CONTINUE 870 GO TO RET1, (425,1460,1480) C C INTERNAL ROUTINE TO SEARCH FOR MATERIAL IN MAT3 TABLE. C 880 IF (QMAT3 .EQ. 0) GO TO 900 DO 890 K = IMAT3,NMAT3,LMAT3 IF (Z(K) .EQ. MATID) GO TO RET, (800,930) 890 CONTINUE 900 GO TO RET1, (811) C C PIEZOELECTRIC MATERIALS C 901 IF (QMTPZ1 .EQ. 0) GO TO 903 DO 902 K = IMTPZ1,NMTPZ1,LMTPZ1 IF (Z(K) .EQ. MATID) GO TO RET, (2220,930) 902 CONTINUE 903 GO TO RET1, (1551,2210) 904 IF (QMTPZ2 .EQ. 0) GO TO 906 DO 905 K = IMTPZ2,NMTPZ2,LMTPZ2 IF (Z(K) .EQ. MATID) GO TO RET, (2300,930) 905 CONTINUE 906 GO TO RET1, (1552,1480,685) C C SEARCH FOR MATERIAL IN MAT6 TABLE(ISOPARAMETRIC SOLIDS) C 907 IF (QMAT6 .EQ. 0) GO TO 909 DO 908 K = IMAT6,NMAT6,LMAT6 IF (Z(K) .EQ. MATID) GO TO RET, (2470,930) 908 CONTINUE 909 GO TO RET1, (1560,1480) C C INTERNAL ROUTINE TO READ MATXI CARDS, MERGE DATA IN MATI TABLE C AND STORE TABLE IDS IN CORE. C 910 ASSIGN 930 TO RET 920 CALL READ (*1350,*950,MPT,BUF,N,0,FLAG) MATID = BUF(1) GO TO PASS, (820,850,880,901,904,907) 930 DO 940 J = 2,N IF (BUF(J) .EQ. 0) GO TO 940 JX = K + 3*(J-2) + NX Z(JX) = BUF(J) Z(I ) = BUF(J) Z(I+1)= 0 I = I + 11 940 CONTINUE GO TO 920 950 GO TO BACK, (150,170,180,181,182,183,190) C C INTERNAL ROUTINE TO SEARCH FOR A TABLE IN THE TABLE LIST C 960 DO 970 L = ILIST,NLIST,11 IF (Z(L) .EQ. TABLID) GO TO RET, (260,660,990,1030,2020) 970 CONTINUE GO TO RET1, (280,1490,1520) C C ROUTINE TO TEST FOR DEPENDENCE OF A MATERIAL PROPERTY ON C TEMPERATURE OR STRESS. IF DEPENDENT, APPROPRIATE TABLE LOOK UP C PROCEDURE IS EMPLOYED. IN EITHER CASE, THE PROPERTY IS RETURNED C IN PROP. C 980 IF (QMATX .EQ. 0) GO TO 1060 FLAG = 0 TABLID = Z(I+1) IF (ELEMID .LT. 0) GO TO 1020 IF (TABLID .EQ. 0) GO TO 1060 XX = TEMP TDEP =.TRUE. FLAG = 1 ASSIGN 990 TO RET ASSIGN 1490 TO RET1 GO TO 960 990 ASSIGN 1010 TO RET 1000 ITYPE = Z(L+1) GO TO (1180,1200,1230,1240), ITYPE 1010 PROPT = PROP GO TO 1070 C C SINCE THIS IS NOT A PIECEWISE LINEAR ANALYSIS PROBLEM, NO STRESS C DEPENDENT MATERIAL PROPERTIES ARE ALLOWED. IF AND WHEN THIS C RESTRICTION IS LIFTED THE FOLLOWING CODE CAN BE IMPLEMENTED. C CURRENTLY A TRANSFER IS ALWAYS MADE TO STATEMENT 1060, SINCE THE C ELEMENT ID. IS ALWAYS POSITIVE. C 1020 IF (PLA) GO TO 1550 IF (ELEMID .GT. 0) GO TO 1060 TABLID = Z(I+2) IF (TABLID .EQ. 0) GO TO 1050 ASSIGN 1030 TO RET ASSIGN 1490 TO RET1 GO TO 960 1030 ASSIGN 1040 TO RET XX = PLAARG GO TO 1000 1040 IF (FLAG .NE. 0) PROP = PROP*PROPT GO TO 1070 1050 IF (FLAG .NE. 0) GO TO 1070 1060 PROP = ZZ(I) 1070 GO TO BACK, ( 390,440,460,520,600,700,810,2230,2310,2440,2480, 1 2740) C C ROUTINE TO PERFORM LINEAR INTERPOLATION FOR FUNCTION IN TABLE. C L POINTS TO THE ENTRY IN THE TABLE LIST WHICH DEFINES THE TABLE. C ARGUMENT IS XX. FUNCTION VALUE IS RETURNED IN PROP. EXTRAPOLATION C IS MADE IF XX IS OUTSIDE THE LIMITS OF THE TABLE. C 1080 ITABL = Z(L+2) NTABL = Z(L+3) UP = 1.0 IF (ZZ(ITABL) .GT. ZZ(ITABL+2)) UP = -1.0 KXX1 = ITABL IF ((XX - ZZ(ITABL))*UP .LE. 0.) GO TO 1130 KXX1 = NTABL - 2 IF ((XX - ZZ(NTABL))*UP .GE. 0.) GO TO 1130 KLO = 1 KHI = (NTABL-ITABL)/2 + 1 1090 KX = (KLO+KHI+1)/2 KXX = (KX-1)*2 + ITABL IF ((XX - ZZ(KXX))*UP) 1100,1150,1110 1100 KHI = KX GO TO 1120 1110 KLO = KX 1120 IF (KHI-KLO .NE. 1) GO TO 1090 KXX1 = (KLO-1)*2 + ITABL IF (KXX .EQ. KXX1) GO TO 1130 IF (XX .EQ. ZZ(KXX1+2)) GO TO 1140 1130 PROP = (XX - ZZ(KXX1))*(ZZ(KXX1+3) - ZZ(KXX1+1))/(ZZ(KXX1+2) 1 - ZZ(KXX1)) + ZZ(KXX1+1) GO TO IRET, (670,1190,1220) 1140 KXX = KXX1 + 2 1150 IF (XX .EQ. ZZ(KXX-2)) GO TO 1160 IF (XX .EQ. ZZ(KXX+2)) GO TO 1170 PROP = ZZ(KXX+1) GO TO IRET, (670,1190,1220) 1160 PROP = (ZZ(KXX-1) + ZZ(KXX+1))/2.0 GO TO IRET, (670,1190,1220) 1170 PROP = (ZZ(KXX+1) + ZZ(KXX+3))/2.0 C C TABLE TYPE = 1 C ARGUMENT = XX C 1180 ASSIGN 1190 TO IRET GO TO 1080 1190 GO TO RET, (1010,1040) C C TABLE TYPE = 2 C ARGUMENT = (XX-X1) C 1200 XX = XX - ZZ(L+4) 1210 ASSIGN 1220 TO IRET GO TO 1080 1220 PROP = ZZ(I)*PROP GO TO RET, (1010,1040) C C TABLE TYPE = 3 C ARGUMENT = (XX-X1)/X2 C 1230 XX = (XX - ZZ(L+4))/ZZ(L+5) GO TO 1210 C C TABLE TYPE = 4 C PERFORM POLYNOMIAL INTERPOLATION C C C NOTE... C ZZ(L+4) = X1 C ZZ(L+5) = X2 C ZZ(L+6) = X3 C ZZ(L+7) = X4 C ZZ(L+8) = F((X3-X1)/X2) C ZZ(L+9) = F((X4-X1)/X2) C WHERE X1 AND X2 ARE TRANSLATION AND SCALE FACTORS RESPECTIVELY C AND X3 AND X4 (X3 .LT. X4) ARE THE END POINTS OF THE C INTERVAL OVER WHICH THE POLYNOMIAL IS DEFINED. C 1240 FACTOR = ZZ(I) C C DETERMINE THE ARGUMENT XX C XX = (XX - ZZ(L+4))/ZZ(L+5) IF (XX - (ZZ(L+6) - ZZ(L+4))/ZZ(L+5)) 1250,1250,1260 1250 PROP = ZZ(L+8) GO TO 1310 1260 IF (XX - (ZZ(L+7) - ZZ(L+4))/ZZ(L+5)) 1280,1270,1270 1270 PROP = ZZ(L+9) GO TO 1310 1280 NN = Z(L+3) PROP = ZZ(NN) 1290 IF (NN .LE. Z(L+2)) GO TO 1300 PROP = PROP*XX + ZZ(NN-1) NN = NN - 1 GO TO 1290 1300 IF (PART1) GO TO IGOTO, (1330,1340) 1310 PROP = PROP*FACTOR GO TO RET, (1010,1040) 1330 ZZ(L+8) = PROP GO TO 320 1340 ZZ(L+9) = PROP GO TO 250 C C FATAL ERROR MESSAGES C 1350 N = -2 DIT = MPT GO TO 1400 1370 N = -1 GO TO 1400 1380 N = -2 GO TO 1400 1390 N = -3 GO TO 1400 1385 WRITE (NOUT,1386) IMHERE,I,N1MAT,OFFSET,NIMAT 1386 FORMAT ('0*** NIMAT SPACE TOO SMALL. ERROR AT',I5,'/PREMAT', /5X, 1 'I,N1MAT,OFFSET,NIMAT =',3I12,I7,/) GO TO 1472 1398 IF (NIMAT .LE. 2*SYSBUF+4) GO TO 1385 N = -8 DIT = I - N1MAT 1400 CALL MESAGE (N,DIT,NAM) N = 16 BUF(1) = 0 BUF(2) = 0 GO TO 1470 1420 N = 17 1430 BUF(1) = MATID BUF(2) = 0 GO TO 1470 1450 N = 19 GO TO 1430 1460 N = 20 GO TO 1430 C 1470 CALL SSWTCH (20,J) IF (J .EQ. 0) GO TO 1475 WRITE (NOUT,1471) BUF(1),BUF(2) 1471 FORMAT (' PREMAT/1471 - BUF(1),BUF(2) =',2I10) 1472 CALL ERRTRC ('MAT ',1472) C 1475 CALL MESAGE (-30,N,BUF) C 1480 N = 42 BUF(1) = ELEMID BUF(2) = MATID GO TO 1470 1485 N = 103 BUF(1) = 0 BUF(2) = 0 GO TO 1470 1490 N = 112 BUF(1) = TABLID GO TO 1470 1500 N = 113 GO TO 1430 1510 N = 116 BUF(1) = MATID BUF(2) = TABLID GO TO 1470 1520 N = 114 GO TO 1430 1530 N = 115 BUF(1) = TABLID BUF(2) = ITYPE GO TO 1470 1540 BUF(1) = TEMPID 1541 BUF(2) = 0 N = 117 GO TO 1470 1550 BUF(1) = ELEMID GO TO 1541 1551 BUF(2) = 1 GO TO 1553 1552 BUF(2) = 2 1553 N = 216 1554 BUF(1) = MATID GO TO 1470 1556 N = 214 GO TO 1554 1560 N = 217 GO TO 1554 1570 N = 219 GO TO 1554 END ================================================ FILE: mis/presax.f ================================================ SUBROUTINE PRESAX (IHARM) C C THIS ROUTINE APPLIES PRESSURE LOADS TO AXISYMMETRIC SHELL C LOGICAL PIEZ INTEGER FILE,SLT,ICARD(6),IORD(2),NAME(2) REAL CARD(6),GPCO(4,2) COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRAD,S4PISQ COMMON /ZZZZZZ/ Z(1) COMMON /LOADX / LC,SLT,BGPDT,OLD COMMON /SYSTEM/ KSYSTM(80) EQUIVALENCE (ICARD(1),CARD(1)) DATA NAME / 4HPRES,4HAX / C C DEFINITION OF VARIABLES C C N NUMBER OF CURRENT HARMONIC C FILE FILE NAME FOR ERROR MESAGES C SLT STATIC LOADS TABLE C CARD CARD IMAGE OF PRESAX CARD C DEGRAD CONVERSION FACTOR FOR DEGREES TO RADIANS C IORD ARRAY GIVING OPTIMUM ORDER FOR LOOKING UP POINTS IN BGPDT C OLD CURRENT POSITION OF BGPDT C GPCO ARRAY HOLDING BGPDT DATA FOR EACH RING C XL DISTANCE BETWEEN RINGS C SINSI SIN ANGLE BETWEEN RINGS C COSSI COS ANGLE BETWEEN RINGS C ISILA SIL VALUE OF CURRENT HARMONIC - RING A C ISILB SIL VALUE OF CURRENT HARMONIC - RING B C IHARM SUBCASE INDICATOR 1 = SINE 2 = COSINE C C C BRING IN PRESAX CARD C FILE = SLT CALL READ (*910,*920,SLT,CARD(1),6,0,IFLAG) N = ICARD(6) + 1 XI = N - 1 C C CONVERT PHI1,PHI2 TO RADIANS C CARD(4) = CARD(4)*DEGRAD CARD(5) = CARD(5)*DEGRAD C C PICK UP BGPDT DATA FOR RINGS C C IF 1ST. RING IS NEGATIVE, THIS IS A SURFACE CHARGE LOAD IN A C PIEZOELECTRIC PROBLEM C PIEZ = .FALSE. IF (KSYSTM(78).NE.1 .OR. ICARD(2).GT.0) GO TO 5 PIEZ = .TRUE. ICARD(2) = -ICARD(2) 5 CONTINUE CALL PERMUT (ICARD(2),IORD(1),2,OLD) DO 10 I = 1,2 J = IORD(I) + 1 CALL FNDPNT (GPCO(1,J-1),ICARD(J) ) 10 CONTINUE XL = SQRT((GPCO(2,2) - GPCO(2,1))**2 + (GPCO(3,2) - GPCO(3,1))**2) IF (XL .EQ. 0.0) CALL MESAGE (-30,26,-1) SINSI = (GPCO(2,2) - GPCO(2,1))/XL COSSI = (GPCO(3,2) - GPCO(3,1))/XL CALL FNDSIL (ICARD(2)) ISILA = ICARD(2) CALL FNDSIL (ICARD(3)) ISILB = ICARD(3) C C APPLY LOADS TO ALL HARMONICS C IF (N .NE. 1) GO TO 20 C C APPLY LOADS TO ZERO HARMONIC - COSINE SUBCASE ONLY C IF (IHARM .NE. 2) GO TO 90 PR = (CARD(5) - CARD(4)) GO TO 30 C C I .GT. 1 APPLY SINE AND COSINE FACTORS C 20 IF (IHARM .EQ. 1) GO TO 40 C C COSINE CASE C PR = (SIN(XI*CARD(5)) - SIN(XI*CARD(4)))/XI GO TO 30 C C SINE CASE C 40 PR = -(COS(XI*CARD(5)) - COS(XI*CARD(4)))/XI C C APPLY LOADS C 30 PR = PR*CARD(1)*XL PRPIEZ = PR PRC = PR*COSSI PRS =-PR*SINSI PR = GPCO(2,1)/3.0 + GPCO(2,2)/6.0 IF (.NOT.PIEZ) GO TO 35 C C PIEZOELECTRIC C PRC = 0. PRS = 0. 35 CONTINUE Z(ISILA ) = Z(ISILA ) + PRC*PR Z(ISILA+2) = Z(ISILA+2) + PRS*PR IF (PIEZ) Z(ISILA+3) = Z(ISILA+3) + PRPIEZ*PR PR = GPCO(2,2)/3.0 + GPCO(2,1)/6.0 Z(ISILB ) = Z(ISILB ) + PRC*PR Z(ISILB+2) = Z(ISILB+2) + PRS*PR IF (PIEZ) Z(ISILB+3) = Z(ISILB+3) + PRPIEZ*PR 90 RETURN C C FILE ERRORS C 910 IP1 = -2 911 CALL MESAGE (IP1,FILE,NAME(1)) 920 IP1 = -3 GO TO 911 END ================================================ FILE: mis/pretab.f ================================================ SUBROUTINE PRETAB (DITF,RZ,INZ,BUF,LCRGVN,LCUSED,TABNOL,LIST) C C SUBROUTINE PRETAB READS TABLES INTO OPEN CORE, SETS UP TABLE C DICTIONARIES WHICH ARE LATER USED WHEN THE CALLING ROUTINE C REQUESTS A FUNCTIONAL VALUE FROM A TABLE VIA A CALL TO THE ENTRY C POINT TAB. C C REVISED 7/92, BY G.CHAN/UNISYS. C 1. NEW REFERENCE TO THE OPEN CORE ARRAY SUCH THAT THE SOURCE CODE C IS UP TO ANSI FORTRAN 77 STANDARD C 2. LOGARITHMIC SCALE ENHANCEMENT C C ARGUMENT LIST - C C DITF THE GINO NAME OF THE FILE ON WHICH THE TABLES RESIDE. C RZ THE OPEN CORE ARRAY. RZ IS USED AS REAL BY THIS ROUTINE. C INZ SAME ADDRESS AS RZ. USED AS INTEGER IN THIS ROUTINE. C BUF A BUFFER TO BE USED BY SUBROUTINE PRELOC. C LCRGVN THE LENGTH OF OPEN CORE GIVEN TO PRETAB. C LCUSED THE AMOUNT OF CORE USED BY PRETAB. C TABNOL LIST OF TABLE NUMBERS THAT THE USER WILL BE REFERENCING. C TABNOL(1) = N IS THE NUMBER OF TABLES TO BE REFERENCED. C TABNOL(2),...,TABNOL(N+1) CONTAIN THE TABLE NUMBERS. NOTE C THAT 0 IS AN ADMISSIBLE TABLE NUMBER IN THE TABLE NO. C LIST. TABLE NO. 0 DEFINES A FUNCTION WHICH IS IDENTICAL- C LY = 0 FOR ALL VALUES OF THE INDEPENDENT VARIABLE. C LIST ARRAY OF CONTROL WORDS FOR SUBROUTINE LOCATE AND TABLE C TYPES. C LIST(1) = M IS THE NO. OF TRIPLES WHICH FOLLOW IN LIST. C THE FIRST TWO WORDS OF EACH TRIPLE ARE THE SUBROUTINE C LOCATE CONTROL WORDS AND THE THIRD WORD IS THE TABLE TYPE C = 1,2,3,4, OR 5. C LNTH = 12 WORDS PER TABLE ENTRY C LOGICAL PART1 INTEGER DITF ,INZ(1) ,TABNOL(1) ,DIT ,LIST(1), 1 IARY(8),TABNO ,TABTYP ,TABIDO ,NAME(2) , 2 CLSRW ,TABID ,OFFSET ,SCTYP REAL Y(2) ,RZ(1) ,Z(1) ,BUF(1) ,PX(2,2) COMPLEX SUM ,A ,B ,TERM CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CONDAS/ PI ,TWOPI ,RADEG ,DEGRA ,S4PISQ COMMON /SYSTEM/ IBUF ,NOUT COMMON /ZZZZZZ/ IZ(1) EQUIVALENCE (Z(1),IZ(1)) DATA CLSRW, NEOR ,NAME ,PX , LNTH / 1 1 , 0 ,4HPRET,4HAB ,3.,2.,1.339,1.0 , 12 / C C INITIALIZE C OFFSET = LOCFX(INZ(1)) - LOCFX(IZ(1)) IF (OFFSET .LT. 0) CALL ERRTRC ('PRETAB ',5) DIT = DITF IDIC = 0 + OFFSET PART1= .TRUE. LIM = TABNOL(1) ICRQ = LNTH*LIM - LCRGVN IF (ICRQ .GE. 0) GO TO 1080 C C SET UP TABLE NUMBERS IN DICTIONARY C C FOR EACH TABLE THE DICTIONARY ENTRY IS AS FOLLOWS - C C LOC. 1 TABLE NUMBER C LOC. 2 TABLE TYPE(1,2,3, 4, OR 5) C LOC. 3 POINTER TO 1ST ENTRY IN TABLE. C LOC. 4 POINTER TO LAST ENTRY IN TABLE. C LOC. 5 * C LOC. 6 * C LOC. 7 * C LOC. 8 * LOCATIONS 5 THRU 11 CONTAIN TABLE PARAMETERS. C LOC. 9 * C LOC. 10 * C LOC. 11 * C LOC. 12 SCALE TYPE - LINEAR-LINER(0), LOG-LOG(1), LINEAR- C LOG(2), LOG-LINEAR(3) C DO 20 I = 1,LIM IZ(IDIC+1) = TABNOL(I+1) JLOW = IDIC + 2 JLIM = IDIC + LNTH DO 10 J = JLOW,JLIM 10 IZ(J) = 0 20 IDIC = IDIC + LNTH IDICL = 1 + OFFSET IDICH = IDIC C C READ THE CARDS REFERENCED VIA THE TABNOL AND LIST ARRAY. C ITABLE = IDIC CALL PRELOC (*1010,BUF,DIT) LIMJJ = TABNOL(1) LIM = LIST(1) JJ = 1 30 JJ3 = 3*JJ - 1 CALL LOCATE (*110,BUF,LIST(JJ3),FLAG) C C READ 8 WORDS INTO THE ARRAY IARY C 40 CALL READ (*1020,*110,DIT,IARY,8,NEOR,FLAG) TABNO = IARY(1) SCTYP = IARY(8) C C DETERMINE IF THIS TABLE NUMBER IS IN THE USER SUPPLIED LIST OF C TABLE NUMBERS C DO 50 J = 1,LIMJJ IF (TABNO .EQ. IABS(TABNOL(J+1))) IF (TABNO-TABNOL(J+1)) 60,70,60 50 CONTINUE C C THIS TABLE IS NOT CALLED FOR. READ THE TABLE SERIALLY UNTIL AN C END OF TABLE INDICATOR (TWO MINUS ONES FOR TABLE TYPES 1,2,3 AND C ONE MINUS ONE FOR TABLE TYPE 4 C NWDS = 2 IF (LIST(3*JJ+1) .EQ. 4) NWDS = 1 55 CALL READ (*1020,*1040,DIT,IARY(2),NWDS,NEOR,IFLAG) IF (IARY(2) .EQ. -1) GO TO 40 GO TO 55 C C THERE ARE TWO DIFFERENT TABLES WITH THE SAME NUMBER -- FATAL ERROR C 60 IARY(1) = TABNO IARY(2) = LIST(3*JJ-1) CALL MESAGE (-30,88,IARY) C C THIS IS A NEW TABLE. SET TABLE NUMBER NEGATIVE AND DEFINE WORDS C 2 AND 3 OF THE PROPER DICTIONARY ENTRY. C 70 TABTYP = LIST(3*JJ+1) TABNOL(J+1) = -TABNOL(J+1) INDEX = LNTH*(J-1) + OFFSET IZ(INDEX+2) = TABTYP IZ(INDEX+3) = ITABLE + 1 C C READ THE TABLE INTO CORE. C NWDSRD = 2 IF (TABTYP .EQ. 4) NWDSRD = 1 II = ITABLE + 1 80 CALL READ (*1020,*1040,DIT,Z(II),NWDSRD,NEOR,FLAG) IF (IZ(II) .EQ. -1) GO TO 90 II = II + NWDSRD ICRQ = II - LCRGVN - OFFSET IF (ICRQ .GE. 0) GO TO 1080 GO TO 80 C C STORE THE LAST LOCATION OF THE TABLE IN IZ(INDEX+4) C 90 IZ(INDEX+4) = II - NWDSRD C C STORE THE PARAMETERS ON THE TABLE CARD IN WORDS 5 THRU 11 OF THE C PROPER DICTIONARY ENTRY. C LX = INDEX + 4 DO 100 K = 2,8 LX = LX + 1 100 IZ(LX) = IARY(K) IZ(LX+1) = SCTYP C C STORE THE CORRECT 0TH ADDRESS OF THE NEXT TABLE IN ITABLE C ITABLE = IZ(INDEX+4) C C IF THE TABLE IS A POLYNOMIAL EVALUATE THE END POINTS. C IF (TABTYP .NE. 4) GO TO 108 L = INDEX + 1 XX = (Z(L+6) - Z(L+4))/Z(L+5) ASSIGN 470 TO IGOTO GO TO 440 102 ASSIGN 480 TO IGOTO XX = (Z(L+7) - Z(L+4))/Z(L+5) GO TO 440 108 ITABLE = ITABLE + 1 GO TO 40 C C TEST TO SEE IF ALL OF THE REQUESTED TABLES HAVE BEEN FOUND. IF C ALL TABLES HAVE NOT BEEN FOUND, GO TO NEXT TRIPLE IN LIST ARRAY C 110 IF (JJ .GE. LIM) GO TO 120 DO 115 I = 1,LIMJJ IF (TABNOL(I+1) .GT. 0) GO TO 117 115 CONTINUE GO TO 120 117 JJ = JJ + 1 GO TO 30 C C SET ALL ENTRIES IN TABNOL BACK TO THEIR ORIGINAL POSITIVE STATUS. C IF AN ENTRY IS STILL POSITIVE, THIS IMPLIES THE TABLE WAS NOT C FOUND IN THE DIT AND A FATAL ERROR CONDITION EXISTS. C 120 IFLAG = 0 DO 140 I = 1,LIMJJ IF (TABNOL(I+1) .LE. 0) GO TO 130 CALL MESAGE (30,89,TABNOL(I+1)) IFLAG = 1 GO TO 140 130 TABNOL(I+1) = -TABNOL(I+1) 140 CONTINUE IF (IFLAG .NE. 0) CALL MESAGE (-37,0,NAME) C C WRAP-UP PRETAB C CALL CLOSE (DIT,CLSRW) PART1 = .FALSE. TABIDO = -1 XO = -10.0E+37 LCUSED = ITABLE + 1 - OFFSET ICHECK = 123456789 RETURN C C ENTRY TAB COMPUTES THE FUNCTIONAL VALUE Y AT THE ABSCISSA X FOR C THE FUNCTION DEFINED BY THE TABLE WHOSE NUMBER IS TABID C C ENTRY TAB (TABID,X,Y) C ===================== C IF (ICHECK .NE. 123456789) CALL ERRTRC ('PRETAB ',200) ASSIGN 251 TO IHOP C IF (TABID.EQ.TABIDO .AND. X.EQ.XO) GO TO 210 TABIDO = TABID XO = X GO TO 220 210 Y(1) = YO RETURN 220 IF (TABID .NE. 0) GO TO 230 Y(1) = 0.0 YO = 0.0 RETURN C C SEARCH THE TABLE DICTIONARY TO FIND THE TABLE NUMBER C 230 DO 240 II = IDICL,IDICH,LNTH IF (TABID .EQ. IZ(II)) GO TO 250 240 CONTINUE C C TABID COULD NOT BE FOUND IN THE DICTIONARY - FATAL ERROR C CALL MESAGE (-30,90,TABID) 250 L = II ITYPE = IZ(L+ 1) SCTYP = IZ(L+11) + 1 GO TO IHOP, (251,501) 251 CONTINUE GO TO (260,270,280,290,295), ITYPE C C TABLE TYPE = 1 C C A RGUMENT = X C 260 XX = X GO TO 300 C C TABLE TYPE = 2 C C ARGUMENT = (X - X1) C 270 XX = X - Z(L+4) GO TO 300 C C TABLE TYPE = 3 C C ARGUMENT = (X - X1)/X2 C 280 XX = (X - Z(L+4))/Z(L+5) GO TO 300 C C TABLE TYPE = 4 C C ARGUMENT = (X - X1)/X2 C 290 XX = (X - Z(L+4))/Z(L+5) GO TO 400 C C TABLE TYPE = 5 C C TABRNDG CARD FUNTION ONLY C 295 CONTINUE C C PICK UP TYPE C LX = IZ(L+4) C C P US ONE OVER TERM IN PX TABLE BASED ONL TYPE C P = 1./PX(LX,1) C C CONPUTE K SQUARED FROM PX TABLE C XKSQ = PX(LX,2)*PX(LX,2) C C RETRIEVE LU (L/U) FROM TABLE PARAMS C XLU = Z(L+5) XX = 2.*Z(L+6)**2*XLU XLU = XLU*XLU WSQ = S4PISQ*XO*XO TR = XKSQ*XLU*WSQ PROP= XX*(1.+2.*(P+1.)*TR)/(1.+TR)**(P+1.5) GO TO 500 C C ROUTINE TO PERFORM LINEAR INTERPOLATION FOR FUNCTION IN A TABLE. C L POINTS TO THE ENTRY IN THE TABLE DICTIONARY WHICH DEFINES THE C TABLE. THE ARGUMENT IS XX. THE FUNCTIONAL VALUE IS STORED IN PROP. C EXTRAPOLATION IS MADE IF XX IS OUTSIDE THE LIMITS OF THE TABLE. C HENCE THERE ARE NO ERROR RETURNS. C HOWEVER, IF FUNCTION OVERFLOWED ON EXTRAPOLATION OUTSIDE TABLE C LIMITS, A FATAL MESSAGE IS ISSUED. C 300 ITABL = IZ(L+2) NTABL = IZ(L+3) UP = 1.0 IF (Z(ITABL) .GT. Z(ITABL+2)) UP = -1.0 KXX1 = ITABL IF ((XX - Z(ITABL))*UP .LE. 0.0) GO TO 350 KXX1 = NTABL - 2 IF ((XX - Z(NTABL))*UP .GE. 0.0) GO TO 350 KLO = 1 KHI = (NTABL - ITABL)/2 + 1 310 KX = (KLO + KHI + 1)/2 KXX = (KX - 1)*2 + ITABL IF ((XX - Z(KXX))*UP) 320,370,330 320 KHI = KX GO TO 340 330 KLO = KX 340 IF (KHI-KLO .NE. 1) GO TO 310 KXX1 = (KLO - 1)*2 + ITABL IF (KXX .EQ. KXX1) GO TO 350 IF (XX .EQ. Z(KXX1+2)) GO TO 360 350 GO TO (355,351,352,353), SCTYP 351 CALL LOGLOG (Z(KXX1),Z(KXX1+1),Z(KXX1+2),Z(KXX1+3),XX,PROP) GO TO 500 352 CALL SMILOG (Z(KXX1),Z(KXX1+1),Z(KXX1+2),Z(KXX1+3),XX,PROP) GO TO 500 353 CALL LOGSMI (Z(KXX1),Z(KXX1+1),Z(KXX1+2),Z(KXX1+3),XX,PROP) GO TO 500 355 PROP = (XX - Z(KXX1))*(Z(KXX1+3) - Z(KXX1+1))/(Z(KXX1+2) 1 - Z(KXX1)) + Z(KXX1+1) IF (ABS(PROP) .LT. 1.0E-36) PROP = 0.0 IF (ABS(PROP) .LT. 1.0E+36) GO TO 500 IF (UP.GT.0. .AND. (XX.LT.Z(ITABL) .OR. XX.GT.Z(NTABL)))GO TO 1050 IF (UP.LT.0. .AND. (XX.GT.Z(ITABL) .OR. XX.LT.Z(NTABL)))GO TO 1050 GO TO 500 360 KXX = KXX1 + 2 370 IF (XX .EQ. Z(KXX-2)) GO TO 380 IF (XX .EQ. Z(KXX+2)) GO TO 390 PROP = Z(KXX+1) GO TO 500 380 PROP = (Z(KXX-1) + Z(KXX+1))/2.0 GO TO 500 390 PROP = (Z(KXX+1) + Z(KXX+3))/2.0 GO TO 500 C C POLYNOMIAL EVALUATION C 400 IF (XX - (Z(L+6) - Z(L+4))/Z(L+5)) 410,410,420 410 PROP = Z(L+8) GO TO 500 420 IF (XX - (Z(L+7) - Z(L+4))/Z(L+5)) 440,430,430 430 PROP = Z(L+9) GO TO 500 440 NN = IZ(L+3) PROP = Z(NN) 450 IF (NN .LE. IZ(L+2)) GO TO 460 PROP = PROP*XX + Z(NN-1) NN = NN - 1 GO TO 450 460 IF (PART1) GO TO IGOTO, (470,480) GO TO 500 470 Z(L+8) = PROP GO TO 102 480 Z(L+9) = PROP GO TO 40 C C TAB WRAP-UP C 500 Y(1) = PROP YO = Y(1) RETURN C C ENTRY TAB1 (TABID,X,Y) C ====================== C C ENRTY FOR TABLE TRANSFORM C ASSIGN 501 TO IHOP GO TO 220 501 CONTINUE C C L POINTS TO TABLE C ITYPE IS THE TABLE TYPE C ITABL = IZ(L+2) NTABL = IZ(L+3) OMEGA = TWOPI*X GO TO (510,520,530,540), ITYPE C C TABLED1 C 510 CONTINUE X1 = 0.0 X2 = 1.0 GO TO 550 C C TABLED2 C 520 CONTINUE X1 = Z(L+4) X2 = 1.0 GO TO 550 C C TABLED3 C 530 CONTINUE X1 = Z(L+4) X2 = Z(L+5) GO TO 550 C C TABLED4 C 540 CONTINUE C C EVALUATE SUM C 550 CONTINUE SUM = CMPLX(0.0,0.0) K = ITABL 551 CONTINUE YI = Z(K+1) XI = Z(K) YIP1 = Z(K+3) XIP1 = Z(K+2) OMEGAX = OMEGA*X2*(XIP1-XI) CALL IFTE2 (OMEGAX,RP,CP) P =-OMEGA*(X1 + X2*XIP1) A = CMPLX(0.,P) B = CMPLX(RP,CP) TERM = CEXP(A)*B*YIP1 P =-OMEGA*(X1 + X2*XI) A = CMPLX(0.,P) B = CMPLX(RP,-CP) TERM = TERM + CEXP(A)*B*YI TERM = TERM*(XIP1- XI)*.5 SUM = SUM + TERM K = K + 2 IF (K .LT. NTABL) GO TO 551 C C FINISH FUNCTION C SUM = SUM*X2 Y(1) = REAL(SUM) Y(2) = AIMAG(SUM) RETURN C C FATAL ERROR MESSAGES C 1010 MN = -1 GO TO 1100 1020 MN = -2 GO TO 1100 1040 MN = -3 GO TO 1100 1050 WRITE (NOUT,1055) UFM,IZ(L) 1055 FORMAT (A23,' 3308, TABLE',I9,' INTERPOLATION ERROR', /5X, 1 'FUNCTION OVERFLOWED WHEN EXTRAPOLATION WAS MADE OUTSIDE ', 2 'TABLE GIVEN RANGE.') MN = -37 GO TO 1100 1080 MN = -8 DIT= ICRQ 1100 CALL MESAGE (MN,DIT,NAME) RETURN END ================================================ FILE: mis/pretrd.f ================================================ SUBROUTINE PRETRD (CSTMX,NCSTMX) C C PRETRD SETS UP EVENTUAL CALLS TO TRANSD. FOR A MODULE TO USE C TRANSD A CALL TO PRETRD MUST BE INITIATED BY THE MODULE DRIVER C ONCE AND ONLY ONCE. CSTMX IS ARRAY OF COORDINATE SYSTEM C TRANSFORMATION MATRICES AND MCSTMX IS THE LENGTH OF THIS ARRAY. C C THE ARRAY CSTMX MUST BE WITHIN OPEN CORE BOUND, AND THERE IS NO C CHECK ON THIS CONDITION. C C GIVEN THE ECPT ARRAY OF LENGTH 4, THE FIRST WORD BEING AN INTEGER C COORDINATE SYSTEM IDENTIFICATION NUMBER AND THE NEXT WORDS BEING C THE REAL COORDINATES OF A POINT IN BASIC COORDINATES, THIS ROUTINE C COMPUTES THE TRANSFORMATION (DIRECTION COSINE) MATRIX TA WHICH C WILL MAP A VECTOR FROM THE LOCAL SYSTEM LABELED ECPT(1) TO BASIC C COORDINATES. TA IS A DOUBLE PRECISION MATRIX. C C REVISED 7/92 BY G.CHAN/UNISYS. NEW REFERENCE TO CSTM ARRAY SUCH C THAT THE SOURCE CODE IS UP TO ANSI FORTRAN 77 STANDARD. C INTEGER OFFSET DOUBLE PRECISION TA(9),TL(9),XN(3),X,Y,Z,R,KE(9),XL DIMENSION CSTMX(1),ECPT(4) COMMON /ZZZZZZ/ CSTM(1) EQUIVALENCE (FL1,INT1),(FL2,INT2) C NCSTM = NCSTMX OFFSET = LOCFX(CSTMX(1)) - LOCFX(CSTM(1)) IF (OFFSET .LT. 0) CALL ERRTRC ('PRETRD ',1) ICHECK = 123456789 RETURN C C ENTRY TRANSD (ECPT,TA) C ====================== C FL1 = ECPT(1) IF (INT1 .EQ. 0) GO TO 90 IF (ICHECK .NE. 123456789) CALL ERRTRC ('PRETRD ',10) DO 10 J = 1,NCSTM,14 I = J + OFFSET FL2 = CSTM(I) IF (INT1 .NE. INT2) GO TO 10 KK = I FL2 = CSTM(I+1) GO TO (20,40,40), INT2 10 CONTINUE C C THE COORDINATE SYSTEM ID. COULD NOT BE FOUND IN THE CSTM. C CALL MESAGE (-30,25,INT1) C C THE COORDINATE SYSTEM IS RECTANGULAR. C 20 DO 30 J = 1,9 K = KK + 4 + J 30 TA(J) = CSTM(K) RETURN C 40 XN(1) = ECPT(2) - CSTM(KK+2) XN(2) = ECPT(3) - CSTM(KK+3) XN(3) = ECPT(4) - CSTM(KK+4) X = CSTM(KK+5)*XN(1) + CSTM(KK+ 8)*XN(2) + CSTM(KK+11)*XN(3) Y = CSTM(KK+6)*XN(1) + CSTM(KK+ 9)*XN(2) + CSTM(KK+12)*XN(3) Z = CSTM(KK+7)*XN(1) + CSTM(KK+10)*XN(2) + CSTM(KK+13)*XN(3) R = DSQRT(X**2+Y**2) IF (R .EQ. 0.0D0) GO TO 20 DO 50 J = 1,9 K = KK + 4 + J 50 KE(J) = CSTM(K) GO TO (60,60,70), INT2 C C THE COORDINATE SYSTEM IS CYLINDRICAL. C 60 TL(1) = X/R TL(2) =-Y/R TL(3) = 0.0D0 TL(4) =-TL(2) TL(5) = TL(1) TL(6) = 0.0D0 TL(7) = 0.0D0 TL(8) = 0.0D0 TL(9) = 1.0D0 GO TO 80 C C THE COORDINATE SYSTEM IS SPHERICAL. C 70 XL = DSQRT(X*X + Y*Y + Z*Z) TL(1) = X/XL TL(2) = (X*Z)/(R*XL) TL(3) =-Y/R TL(4) = Y/XL TL(5) = (Y*Z)/(R*XL) TL(6) = X/R TL(7) = Z/XL TL(8) =-R/XL TL(9) = 0.0D0 80 CALL GMMATD (KE(1),3,3,0, TL(1),3,3,0, TA(1)) RETURN C C THE LOCAL SYSTEM IS BASIC. C 90 DO 100 I = 1,9 100 TA(I) = 0.0D0 TA(1) = 1.0D0 TA(5) = 1.0D0 TA(9) = 1.0D0 RETURN END ================================================ FILE: mis/pretrs.f ================================================ SUBROUTINE PRETRS (CSTMX,NCSTMX) C C PRETRS SETS UP EVENTUAL CALLS TO TRANSS. FOR A MODULE TO USE C TRANSS A CALL TO PRETRS MUST BE INITIATED BY THE MODULE DRIVER C ONCE AND ONLY ONCE. CSTMX IS ARRAY OF COORDINATE SYSTEM C TRANSFORMATION MATRICES AND MCSTMX IS THE LENGTH OF THIS ARRAY. C C THE CSTMX ARRAY MUST BE WITHIN OPEN CORE BOUND, AND THERE IS NO C CHECK ON THIS CONDITION C C GIVEN THE ARRAY ECPT OF LENGTH 4, THE FIRST WORD BEING AN INTEGER C COORDINATE SYSTEM IDENTIFICATION NUMBER AND THE NEXT WORDS BEING C THE REAL COORDINATES OF A POINT IN BASIC COORDINATES, THIS ROUTINE C COMPUTES THE TRANSFORMATION (DIRECTION COSINE) MATRIX TA WHICH C WILL MAP A VECTOR FROM THE LOCAL SYSTEM LABELED ECPT(1) TO BASIC C COORDINATES. C C REVISED 7/92 BY G.CHAN/UNISYS. NEW REFERENCE TO CSTM ARRAY SUCH C THAT THE SOURCE CODE IS UP TO ANSI FORTRAN 77 STANDARD. C INTEGER OFFSET REAL KE DIMENSION CSTMX(1),ECPT(4),TA(9),TL(9),KE(9),XN(3) COMMON /ZZZZZZ/ CSTM(1) EQUIVALENCE (FL1,INT1),(FL2,INT2) C NCSTM = NCSTMX OFFSET = LOCFX(CSTMX(1)) - LOCFX(CSTM(1)) IF (OFFSET .LT. 0) CALL ERRTRC ('PRETRS ',1) ICHECK = 123456789 RETURN C C ENTRY TRANSS (ECPT,TA) C ====================== C FL1 = ECPT(1) IF (INT1 .EQ. 0) GO TO 90 IF (ICHECK .NE. 123456789) CALL ERRTRC ('PRETRS ',10) DO 10 J = 1,NCSTM,14 I = J + OFFSET FL2 = CSTM(I) IF (INT1 .NE. INT2) GO TO 10 KK = I FL2 = CSTM(I+1) GO TO (20,40,40), INT2 10 CONTINUE C C THE COORDINATE SYSTEM ID. COULD NOT BE FOUND IN THE CSTM. C CALL MESAGE (-30,25,INT1) C C THE COORDINATE SYSTEM IS RECTANGULAR. C 20 DO 30 J = 1,9 K = KK + 4 + J 30 TA(J) = CSTM(K) RETURN C 40 XN(1) = ECPT(2) - CSTM(KK+2) XN(2) = ECPT(3) - CSTM(KK+3) XN(3) = ECPT(4) - CSTM(KK+4) X = CSTM(KK+5)*XN(1) + CSTM(KK+ 8)*XN(2) + CSTM(KK+11)*XN(3) Y = CSTM(KK+6)*XN(1) + CSTM(KK+ 9)*XN(2) + CSTM(KK+12)*XN(3) Z = CSTM(KK+7)*XN(1) + CSTM(KK+10)*XN(2) + CSTM(KK+13)*XN(3) R = SQRT(X**2 + Y**2) IF (R .EQ. 0.0) GO TO 20 DO 50 J = 1,9 K = KK + 4 + J 50 KE(J) = CSTM(K) GO TO (60,60,70), INT2 C C THE COORDINATE SYSTEM IS CYLINDRICAL. C 60 TL(1) = X/R TL(2) =-Y/R TL(3) = 0.0 TL(4) =-TL(2) TL(5) = TL(1) TL(6) = 0.0 TL(7) = 0.0 TL(8) = 0.0 TL(9) = 1.0 GO TO 80 C C THE COORDINATE SYSTEM IS SPHERICAL. C 70 XL = SQRT(X**2 + Y**2 + Z**2) TL(1) = X/XL TL(2) = (X*Z)/(R*XL) TL(3) =-Y/R TL(4) = Y/XL TL(5) = (Y*Z)/(R*XL) TL(6) = X/R TL(7) = Z/XL TL(8) =-R/XL TL(9) = 0.0 80 CALL GMMATS (KE(1),3,3,0, TL(1),3,3,0, TA(1)) RETURN C C THE LOCAL SYSTEM IS BASIC. C 90 DO 100 I = 1,9 100 TA(I) = 0.0 TA(1) = 1.0 TA(5) = 1.0 TA(9) = 1.0 RETURN END ================================================ FILE: mis/print.f ================================================ SUBROUTINE PRINT (X,Y,XYD,CHR,N,OPT) C C (X,Y) = STARTING OR ENDING POINT OF THE LINE TO BE PRINTED (ALWAYS C LEFT-TO-RIGHT OR TOP-TO-BOTTOM). C CHR = CHARACTERS TO BE PRINTED (4 PER WORD). C N = NUMBER OF 4 CHARACTER WORDS. C XYD = +/-1 IF X = STARTING OR ENDING POINT OF THE LINE. C ... = +/-2 .. Y = ........ .. ...... ..... .. ... ..... C OPT = -1 TO INITIATE THE TYPING MODE. C ... = +1 .. TERMINATE ... ...... ..... C ... = 0 .. PRINT A LINE. C EXTERNAL ORF,KRSHFT,KLSHFT INTEGER XYD,CHR(1),OPT,ORF,C(80),BLANK,BLNK,CHARX,D REAL XY(2,2) COMMON /PLTDAT/ SKPPLT(20),SKPA(3),CNTCHR(2) COMMON /SYSTEM/ SKPSYS(40),NCPW DATA BLANK / 1H / C IF (OPT .NE. 0) GO TO 150 BLNK = KRSHFT(KLSHFT(BLANK,1),1) D = MAX0(IABS(XYD),1) S = CNTCHR(D) IF (XYD.EQ.-1 .OR. XYD.EQ.2) S = -S XY(1,1) = X XY(2,1) = Y XY(1,2) = XY(1,1) XY(2,2) = XY(2,1) C C SEPARATE 80 CHARACTERS AT A TIME. C DO 130 J = 1,N,20 IF (XYD .LT. 0) GO TO 105 L1 = J L2 = L1 + 19 IF (L2 .GT. N) L2 = N GO TO 106 105 L2 = N - J + 1 L1 = L2 - 19 IF (L1 .LE. 0) L1 = 1 C 106 NC = 0 DO 120 L = L1,L2 DO 110 I = 1,4 CHARX = KRSHFT(CHR(L),NCPW-I) NC = NC + 1 C(NC) = ORF(KLSHFT(CHARX,NCPW-1),BLNK) 110 CONTINUE 120 CONTINUE C C TYPE THE -NC- CHARACTERS JUST SEPARATED. C XY(D,2) = XY(D,1) + S*FLOAT(L1-1) CALL TIPE (XY(1,2),XY(2,2),XYD,C,NC,0) 130 CONTINUE GO TO 200 C C OPT = +/-1 C 150 CALL TIPE (0,0,0,0,0,OPT) 200 RETURN END ================================================ FILE: mis/proces.f ================================================ SUBROUTINE PROCES (X) C INTEGER AXES,AXIS,GP,PRJECT REAL X(3,1),XMIN(3),XMAX(3),MIN,MAX DOUBLE PRECISION SUM,V(3) COMMON /CONDAS/ CONSTS(5) COMMON /BLANK / SKPCOM(5),NGPSET COMMON /XXPARM/ PBUFSZ,PLOTER(5),PENPAP(30),SCALE(5),AXES(6), 1 ALPHA,BETA,GAMMA,BETA13,BETA2,VIEW(4), 2 VANPUT(8),PRJECT COMMON /RSTXXX/ CSTM(3,3),MIN(3),MAX(3),D(3),AVER(3), 1 AXIS(3),SIGN(3) COMMON /DRWAXS/ G(3,3) EQUIVALENCE (CONSTS(3),RAD) C C INITIALIZATION. C DO 10 I = 1,3 AXIS(I) = IABS(AXES(I)) SIGN(I) = 1. IF (AXES(I) .LT. 0) SIGN(I) = -1. MIN(I) = +1.E+20 MAX(I) = -1.E+20 IF (PRJECT .NE. 3) GO TO 10 XMIN(I) = +1.E+20 XMAX(I) = -1.E+20 10 CONTINUE C C CALCULATE THE CO-ORDINATE SYSTEM ROTATION MATRIX. C IF (BETA .GT. -1.E+10) GO TO 20 IF (PRJECT .NE. 2) BETA = BETA13 IF (PRJECT .EQ. 2) BETA = BETA2 20 SINA = SIN(ALPHA/RAD) SINB = SIN(BETA /RAD) SING = SIN(GAMMA/RAD) COSA = COS(ALPHA/RAD) COSB = COS(BETA /RAD) COSG = COS(GAMMA/RAD) C CSTM(1,1) = COSB*COSG CSTM(2,1) = COSA*SING + SINA*SINB*COSG CSTM(3,1) = SINA*SING - COSA*SINB*COSG CSTM(1,2) =-COSB*SING CSTM(2,2) = COSA*COSG - SINA*SINB*SING CSTM(3,2) = SINA*COSG + COSA*SINB*SING CSTM(1,3) = SINB CSTM(2,3) =-SINA*COSB CSTM(3,3) = COSA*COSB C C SWITCH AXES + ROTATE THE GRID POINT CO-ORDINATES. C DO 60 GP = 1,NGPSET DO 30 I = 1,3 J = AXIS(I) V(I) = SIGN(I)*X(J,GP) IF (PRJECT .NE. 3) GO TO 30 VAL = V(I) XMIN(I) = AMIN1(XMIN(I),VAL) XMAX(I) = AMAX1(XMAX(I),VAL) 30 CONTINUE DO 50 J = 1,3 SUM = 0.D0 DO 40 I = 1,3 SUM = SUM + CSTM(J,I)*V(I) 40 CONTINUE VAL = SUM X(J,GP) = VAL MIN(J) = AMIN1(MIN(J),VAL) MAX(J) = AMAX1(MAX(J),VAL) 50 CONTINUE 60 CONTINUE C C CALCULATE THE MINIMA-MAXIMA DIFFERENCES + AVERAGES. C DO 70 I = 1,3 IF (PRJECT .NE. 3) D(I) = MAX(I) - MIN(I) IF (PRJECT .EQ. 3) D(I) = XMAX(I) - XMIN(I) AVER(I) = (MAX(I)+MIN(I))/2. 70 CONTINUE C C CREATE A X-Y-Z UNIT COORDINATES IN /DRWAXS/ FOR VIEW PLOTTING C DO 90 I = 1,9 90 G(I,1) = 0.0 G(1,1) = 1.0 G(2,2) = 1.0 G(3,3) = 1.0 C DO 130 GP = 1,3 DO 100 I = 1,3 J = AXIS(I) V(I) = SIGN(I)*G(J,GP) 100 CONTINUE DO 120 J = 1,3 SUM = 0.D0 DO 110 I = 1,3 SUM = SUM + CSTM(J,I)*V(I) 110 CONTINUE 120 G(J,GP) = SUM 130 CONTINUE C RETURN END ================================================ FILE: mis/procom.f ================================================ SUBROUTINE PROCOM (PROCOS,PROCOF,CASECC,NCOEFS,NGRIDS) C C PROCOM COMBINES PROCOF CASES FOR SUBCOM-S AND REPCASES C INTEGER PROCOF,CASECC,BUF1,BUF2,BUF3,FILE,PROCOS,INFO(7), 1 IZ(1),NAM(2) COMMON /SYSTEM/ IBUF COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)) DATA I166 , I16 ,NAM / 166, 16, 4HPROC,4HOM / C LCORE = KORSZ(Z) BUF1 = LCORE - IBUF + 1 BUF2 = BUF1 - IBUF BUF3 = BUF2 - IBUF LCORE = BUF3 - 1 IF (LCORE.LT.NCOEFS .OR. LCORE.LT.NGRIDS) GO TO 108 CALL GOPEN (PROCOS,Z(BUF1),0) CALL GOPEN (PROCOF,Z(BUF2),1) C C CHECK EACH SUBCASE FOR REPCASE OR SUBCOM-IF NONE(JUST COPY SET OF C 5 RECORDS FROM PROCOS TO PROCOF C FILE = CASECC CALL GOPEN (CASECC,Z(BUF3),0) 10 FILE = CASECC CALL READ (*90,*20,CASECC,Z(1),LCORE,0,IWORDS) GO TO 108 20 IF (IZ(I16) .NE. 0) GO TO 30 C C NOT A SUBCOM - MIGHT BE REPCASE C 25 FILE = PROCOS CALL FREAD (PROCOS,Z,103,1) CALL WRITE (PROCOF,Z,103,1) CALL FREAD (PROCOS,Z,NCOEFS,1) CALL WRITE (PROCOF,Z,NCOEFS,1) CALL FREAD (PROCOS,Z,NCOEFS,1) CALL WRITE (PROCOF,Z,NCOEFS,1) CALL FREAD (PROCOS,Z,NGRIDS,1) CALL WRITE (PROCOF,Z,NGRIDS,1) CALL FREAD (PROCOS,Z,NGRIDS,1) CALL WRITE (PROCOF,Z,NGRIDS,1) C C GO BACK FOR ANOTHER CASE CONTROL RECORD C GO TO 10 C C REPCASE OR SUBCOM C 30 IF (IZ(I16) .GT. 0) GO TO 45 C C REPCASE C DO 40 I = 1,5 CALL BCKREC (PROCOS) 40 CONTINUE GO TO 25 C C SUBCOM C 45 LCC = IZ(I166) LSYM = IZ(LCC) DO 50 I = 1,LSYM DO 50 J = 1,5 CALL BCKREC (PROCOS) 50 CONTINUE NTOT = 2*(NCOEFS+NGRIDS) IF (IWORDS+2*NTOT .GT. LCORE) GO TO 108 INEW = IWORDS + NTOT DO 60 I = 1,NTOT 60 Z(INEW+I) = 0. DO 80 I = 1,LSYM COEF = Z(LCC+I) IF (COEF .EQ. 0.) GO TO 75 CALL FREAD (PROCOS,INFO,103,1) CALL FREAD (PROCOS,Z(IWORDS+1),NCOEFS,1) CALL FREAD (PROCOS,Z(IWORDS+NCOEFS+1),NCOEFS,1) CALL FREAD (PROCOS,Z(IWORDS+2*NCOEFS+1),NGRIDS,1) CALL FREAD (PROCOS,Z(IWORDS+2*NCOEFS+NGRIDS+1),NGRIDS,1) DO 70 J = 1,NTOT Z(INEW+J) = Z(INEW+J) + COEF*Z(IWORDS+J) 70 CONTINUE GO TO 80 75 DO 76 K = 1,5 CALL FWDREC (*102,PROCOS) 76 CONTINUE C 80 CONTINUE C C WRITE TO PROCOF- 1ST BE SURE THAT ISYM IS 0 TO ACCOUNT FOR C POSSIBLE SYMMETRY-ANTISYMMETRY COMBINATION C INFO(6) = 0 CALL WRITE (PROCOF,INFO,103,1) CALL WRITE (PROCOF,Z(INEW+1),NCOEFS,1) CALL WRITE (PROCOF,Z(INEW+NCOEFS+1),NCOEFS,1) CALL WRITE (PROCOF,Z(INEW+2*NCOEFS+1),NGRIDS,1) CALL WRITE (PROCOF,Z(INEW+2*NCOEFS+NGRIDS+1),NGRIDS,1) C C GO BACK FOR ANOTHER SUBCASE C GO TO 10 C C DONE C 90 CALL CLOSE (CASECC,1) CALL CLOSE (PROCOS,1) CALL CLOSE (PROCOF,1) INFO(1) = PROCOS CALL RDTRL (INFO) INFO(1) = PROCOF CALL WRTTRL (INFO) RETURN C 102 CALL MESAGE (-2,0,NAM) 108 CALL MESAGE (-8,0,NAM) RETURN END ================================================ FILE: mis/prolat.f ================================================ SUBROUTINE PROLAT C C PROLATE COMPUTES COEFFICIENTS FOR A PROLATE SPHEROIDAL HARMONIC C EXPANSION FOR MAGNETOSTATICS PROBLEMS. A PROLATE SPHEROID IA C ASSUMED TO ENCLOSE THE FERROMAGNETIC BODY AND ALL MAGNETIC C SOURCES. A PROLATE BULK DATA CARD DEFINES THE GRIDS ON HTE SURFACE C OF TEH PROLATE SPHEROID, THE NUMBER OF TERMS IN THE SERIES C EXPANSION,ETC. CASE CONTROL CARD AXISYM CONTROLS SYMMETRY OR ANTI- C SYMMETRY(OR LACK OF) OF THE POTENTIAL W.R.T. THE X-Y PLANE FOR C EACH SUBCASE. C C PROLATE GEOM1,EQEXIN,BGPDT,CASECC,NSLT,HUGV,REMFLD,HEST,MPT,DIT/ C PROCF C LOGICAL REMFL,ONLYAR,ANOM,WRIT INTEGER BUF1,BUF2,FILE,GEOM1,EQEXIN,BGPDT,CASECC,HUGV, 1 PROCOF,SYSBUF,OTPE,TYPOUT,SCR1,PROLTE(2),INFO(7), 2 SUBCAS,HEST,PROCOS,TRAIL(7) C INTEGER DIT,REMFLD,MPT REAL INTER(4,4),J11,J12,J21,J22 DIMENSION IZ(6),NAM(2),MCB(7),V13(3),V24(3),VX(3),POTI(4), 1 POTV(4),XII(4),ETAI(4),XDETJ(4),IPT(4),XX(4), 2 YY(4),ZZ(4),PNMV(4),XETA(4),XPHI(4),TRIGC(4), 3 TRIGS(4),ETAINT(4),PHIINT(4),XN(4),FO(7),TITLE(96) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27,SIM*31 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM,SIM COMMON /BIOT / NG1,NG2,IST,SUBCAS,X1,Y1,Z1,X2,Y2,Z2,BUF2,REMFL, 1 MCORE,LOAD,NSLT,SCR1,HEST,NTOT COMMON /SYSTEM/ SYSBUF,OTPE COMMON /UNPAKX/ TYPOUT,II,NN,INCR COMMON /PACKX / ITYPIN,ITYPOU,III,NNN,JNCR COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)) , (INFO(1),FO(1)) DATA NAM / 4HPROL,4HATE / DATA PROCOS/ 302 / DATA PROLTE/ 4101,41/ DATA GEOM1, EQEXIN,BGPDT,CASECC/101,102,103,104/ DATA HUGV, PROCOF /106,201 / C DATA REMFLD, MPT,DIT/107,109,110/ DATA PT1, PT2 /.211324865,.788675135/ DATA INTER(1,1),INTER(2,2),INTER(3,3),INTER(4,4)/4*.622008469/ DATA INTER(1,2),INTER(1,4),INTER(2,1),INTER(2,3)/4*.16666667 / DATA INTER(3,2),INTER(3,4),INTER(4,1),INTER(4,3)/4*.16666667 / DATA INTER(1,3),INTER(2,4),INTER(3,1),INTER(4,2)/4*.044658199/ DATA PI / 3.1415927/ C TPI = 2.*PI WRIT = .FALSE. NSLT = 105 HEST = 108 SCR1 = 301 LCORE = KORSZ(Z) LLCORE = LCORE BUF1 = LCORE - SYSBUF LCORE = BUF1 - 1 IF (LCORE .LE. 0) GO TO 1008 C XII(1) = PT1 XII(2) = PT1 XII(3) = PT2 XII(4) = PT2 ETAI(1)= PT2 ETAI(2)= PT1 ETAI(3)= PT1 ETAI(4)= PT2 C C CHECK TO SEE IF PROLATE CARD EXISTS.IF NOT, WARNING AND OUT C FILE = GEOM1 CALL PRELOC (*1001,Z(BUF1),GEOM1) CALL LOCATE (*10,Z(BUF1),PROLTE,IDX) GO TO 20 10 WRITE (OTPE,15) SIM 15 FORMAT (A31,', NO PROLAT CARD FOUND') CALL CLOSE (GEOM1,1) RETURN C C THERE IS ONLY ONE PROLAT CARD IN THE DECK-READ IT IN C 20 CALL READ (*1002,*30,GEOM1,Z,LCORE,0,NGRIDS) GO TO 1008 30 CALL CLOSE (GEOM1,1) SEMAJ = Z(1) J = 2 SEMIN = Z(J) NSEGS = IZ(3) MSEGS = IZ(4) NNHARM = IZ(5) NMHARM = IZ(6) IGRID = 6 C C CREATE A LIST OF COORDINATES FOR THE GRID POINTS. WE WILL NEED C BOTH INTERNAL AND SIL VALUES FOR THE GRIDS.BUT THESE ARE THE SAME C IN HEAT TRANSFER. SO READ IN ONLY THE 1ST RECORD OF EQEXIN C MCORE = LCORE-NGRIDS IEQEX = NGRIDS CALL GOPEN (EQEXIN,Z(BUF1),0) FILE = EQEXIN CALL READ (*1002,*40,EQEXIN,Z(IEQEX+1),MCORE,0,NEQEX) GO TO 1008 40 CALL CLOSE (EQEXIN,1) C C CREATE A LIST OF INTERNAL VALUES OF THE GRIDS ON PROLAT-CHECK CORE C INEXT = IEQEX + NEQEX IF (INEXT+NGRIDS-6 .GT. LCORE) GO TO 1008 C IGRID1 = IGRID + 1 K = 0 DO 50 I = IGRID1,NGRIDS K = K + 1 CALL BISLOC (*60,IZ(I),IZ(IEQEX+1),2,NEQEX/2,JLOC) C C STORE THE INTERNAL VALUE C IZ(INEXT+K) = IZ(IEQEX+JLOC+1) 50 CONTINUE GO TO 70 60 WRITE (OTPE,65) UFM,IZ(I) 65 FORMAT (A23,', GRID',I8,' ON PROLAT CARD DOES NOT EXIST') CALL MESAGE (-61,0,0) C C MOVE THIS LIST UP IN CORE / ALL ELSE IN OPEN CORE IS EXPENDABLE C 70 DO 80 I = 1,K 80 IZ(I) = IZ(INEXT+I) NGRIDS = NGRIDS - 6 C C CREATE SCRATCH FILE OF HC VALUES FOR EACH REMFLUX CARD(FOR LATER C USE IN HC LINE INTEGRALS) C BUF2 = BUF1 MCORE= LCORE CALL REMFLX (NGRIDS) C C NOW PICK UP COORDINATES OF THESE POINTS-OPEN CORE 1-NGRIDS GIVES C THE POINTERS C IBG = NGRIDS CALL GOPEN (BGPDT,Z(BUF1),0) FILE = BGPDT CALL READ (*1002,*90,BGPDT,Z(IBG+1),LCORE-NGRIDS,0,NBG) GO TO 1008 90 CALL CLOSE (BGPDT,1) C K = IBG + NBG IF (K+3*NGRIDS .GT. LCORE) GO TO 1008 DO 100 I = 1,NGRIDS IPZ = IZ(I) ISUB = 4*(IPZ-1) + IBG ISUB1= ISUB + 1 DO 95 J = 1,3 95 Z(K+J) = Z(ISUB1+J) K = K + 3 100 CONTINUE C C MOVE THESE UP IN CORE SO THAT TOTAL WORDS OF OPEN CORE IS NOW C 4*NGRIDS C K = IBG + NBG DO 110 I = 1,NGRIDS IJ = NGRIDS + 3*(I-1) DO 105 J = 1,3 105 Z(IJ+J) = Z(K+J) K = K + 3 110 CONTINUE IBG = NGRIDS IOP = 0 IOP1= 1 C C NOW PICK UP POTENTIAL VALUES AY THESE GRIDS C MCB(1) = HUGV CALL RDTRL (MCB) NCOL = MCB(2) NROW = MCB(3) TYPOUT= 1 II = 1 NN = NROW INCR = 1 SUBCAS= 0 115 INEXT = 4*NGRIDS IPOT = INEXT IF (INEXT+NROW+NGRIDS .GT. LCORE) GO TO 1008 SUBCAS = SUBCAS + 1 CALL GOPEN (HUGV,Z(BUF1),IOP) CALL UNPACK (*131,HUGV,Z(INEXT+1)) CALL CLOSE (HUGV,2) C C PICK UP POTENTIALS OF ASSOCIATED POINTS C ISUB = INEXT + NROW DO 120 I = 1,NGRIDS IPZ = IZ(I) Z(ISUB+I) = Z(INEXT+IPZ) 120 CONTINUE C C MOVE THESE UP C DO 130 I = 1,NGRIDS 130 Z(IPOT+I) = Z(ISUB+I) GO TO 150 C C ZERO POTENTIALS C 131 DO 132 I = 1,NGRIDS 132 Z(IPOT+I) = 0. CALL CLOSE (HUGV,2) C C OPEN CORE ARRANGEMENT C C 1 - NGRIDS SIL VALUES C NGRIDS + 1 - 4*NGRIDS BGPDT VALUES OF THESE POINTS C 4*NGRIDS + 1 - 5*NGRIDS ANOMALY POTENTIALS C 5*NGRIDS + 1 - 5*NGRIDS + NTOT LOAD INFO IF NEEDED C 5*NGRIDS + NTOT + 1 - 6*NGRIDS + NTOT HC POTENTIALS C C PICK UP SYMMETRY INDICATOR FOR THIS CASE. 0 MEANS NO SYMMETRY, C 1(SINE) MEANS ANTI-SYMMETRY, 2(COSINE) MEANS SYMMETRY. 0 IMPLIES C 360 DEGREE MODELING, 1 AND 2 IMPLY 180 DEGREE MODELING(SKIP SUBCOM C REPCASE. IF LOAD=0, THEN BIOT SAVART LOADS ARE ZERO) C C INDICATOR=10,20, OR 30 MEANS ANOMALY ONLY, IE DO NOT INCLUDE C EFFECTS OF APPLIED FIELD(USED MAINLY IN INDUCING FIELDS) C IF THIS IS THE CASE, SET ANOM TO TRUE AND GO BACK TO 0,1,2 C 150 INEXT = 5*NGRIDS IF (INEXT+136 .GT. LCORE) GO TO 1008 CALL GOPEN (CASECC,Z(BUF1),IOP) 135 CALL FREAD (CASECC,Z(INEXT+1),136,1) NSYM = IZ(INEXT+16) LOAD = IZ(INEXT+4) ISYM = IZ(INEXT+136) DO 136 I = 1,96 136 TITLE(I) = Z(INEXT+38+I) ANOM = .FALSE. IF (ISYM.LE.2) GO TO 140 ANOM = .TRUE. IF (ISYM.EQ.30) ISYM = 0 ISYM = ISYM/10 140 CONTINUE IF (NSYM .NE. 0) GO TO 135 CALL CLOSE (CASECC,2) C C PROLATE SPHEROID COORDINATE XI IS CONSTANT OVER THE REFERNCE C SPHEROID. DFOC=DISTANCE BETWEEN FOCI C INEXT = 5*NGRIDS DFOC = 2.*SQRT(SEMAJ**2-SEMIN**2) XI = 2.*SEMAJ/DFOC DXI = 2./DFOC/XI C C IF BIOT-SAVART LOAD ARE ZERO OR ANOMALY ONLY, SKIP HC POTENTIALS C IF (LOAD .EQ. 0) GO TO 192 IF (ANOM) GO TO 192 C C SET UP LOADS FOR LINE INTEGRAL COMPUTATIONS C BUF2 = BUF1 MCORE = LCORE IST = INEXT C CALL LOADSU C INEXT = INEXT + NTOT IF (INEXT+NGRIDS .GT. LCORE) GO TO 1008 C C CHECK CORE FOR BIOTSV C IF (REMFL .AND. INEXT+4*NGRIDS.GT.LCORE) GO TO 1008 C C FIRST INTEGRATE THE BIOT-SAVART FIELD ON THE PROLATE SPHEROID TO C COME UP WITH AN EQUIVALENT POTENTIAL AT EACH POINT TO BE ADDED TO C THE ANOMALY POTENTIAL. STORE THESE POTENTIALS IN 5*NGRIDS+NTOT+1 C THRU 6*NGRIDS+NTOT C C DO 160 I = 1,NGRIDS 160 Z(INEXT+I) = 0. IHCPOT = INEXT MLONG = MSEGS + 1 IF (ISYM .EQ. 0) MLONG = MSEGS MCIRC = MSEGS IF (ISYM .EQ. 0) MCIRC = MSEGS - 1 C DO 190 N = 1,NSEGS C DO 170 M = 1,MLONG C C INTEGRATE HC LONGITUDINALLY. PERFORM LINE INTEGRAL OF HC.DL C RETRIEVE COORDINATES OF POINTS C IPT1 = (M-1)*(NSEGS-1) + 2 + (N-1) IPT2 = IPT1 + 1 IF (N .EQ. 1) IPT1 = 1 IF (N .EQ. NSEGS) IPT2 = 2 C ISUB = 3*(IPT1-1) + IBG X1 = Z(ISUB+1) Y1 = Z(ISUB+2) Z1 = Z(ISUB+3) ISUB = 3*(IPT2-1) + IBG X2 = Z(ISUB+1) Y2 = Z(ISUB+2) Z2 = Z(ISUB+3) NG1 = IZ(IPT1) NG2 = IZ(IPT2) C CALL LINEIN (X1,Y1,Z1,X2,Y2,Z2,HCDL) C C NOW ADD POTENTIAL FROM 1ST POINT TO INTEGRAL AT 2ND TO GIVE C INITIAL POTENTIAL AT 2ND POINT. IF 2ND POINT IS RIGHT END POINT C (POINT 2 ON PROLAT), ACCUMULATE FOR AVERAGING C ADD = 0. IF (IPT2 .EQ. 2) ADD = Z(IHCPOT+2) Z(IHCPOT+IPT2) = Z(IHCPOT+IPT1) + HCDL + ADD C C GET ANOTHER CIRCUMFERENTIAL SEGMENT C 170 CONTINUE C C AVERAGE THE INTEGRALS AT RIGHT END POINT C Z(IHCPOT+2) = Z(IHCPOT+2)/FLOAT(MLONG) C C LONGITUDINAL INTEGRATIONS FOR THIS LONGITUDINAL SEGMENT ARE C COMPLETE. C NOW INTEGRATE CIRCUMFERENTIALLY DOWN THE RIGHT HAND SIDE OF THE C LONGITUDINAL SEGMENT AND AVERGAE WITH THE LONGITUDINAL RESULTS. C IF WE ARE AT THE LAST SET OF LONGITUDINAL SEGMENTS, DO NOT DO ANY C CIRCUMFERENTIAL INTEGRATIONS SINCE WE HAVE ONLY THE RIGHT END C POINT. C IF (N .EQ. NSEGS) GO TO 190 DO 180 M = 1,MCIRC IPT1 = (M-1)*(NSEGS-1) + 2 + N IPT2 = IPT1 + (NSEGS-1) ISUB = 3*(IPT1-1) + IBG X1 = Z(ISUB+1) Y1 = Z(ISUB+2) Z1 = Z(ISUB+3) ISUB = 3*(IPT2-1) + IBG X2 = Z(ISUB+1) Y2 = Z(ISUB+2) Z2 = Z(ISUB+3) NG1 = IZ(IPT1) NG2 = IZ(IPT2) C CALL LINEIN (X1,Y1,Z1,X2,Y2,Z2,HCDL) C C TO GET FINAL HC POTENTIAL AT 2ND POINT, ADD PRESENT POTENTIAL AT C POINT 2(WHICH RESULTED FROM LONGITUDINAL INTEGRATION) TO THE SUM C OF THE POTENTIAL AT POINT 1 AND PRESENT INTEGRAL. THEN AVERAGE C Z(IHCPOT+IPT2) = (Z(IHCPOT+IPT2) + Z(IHCPOT+IPT1) + HCDL)/2. C 180 CONTINUE C C GET ANOTHER SET OF LONGITUDINAL SEGMENTS C 190 CONTINUE C CALL CLOSE (NSLT,1) C C USING THE POTENTIALS JUST COMPUTED, COMPUTE AN AVERAGE REFERNCE C POTENTIAL TO BE SUBTRACTED FROM THESE POTENTIALS SO THAT THE C AVERAGE POTENTIAL IS ZERO GIVING A ZERO MONOPOLE. C (AVERAGE POTENTIAL=(U/AREA)*(INTEGRAL OF PHI*D(AREA))-INTEGRATE C OVER EACH SURFACE PATCH. ALSO COMPARE COMPUTED AREA TO ANALYTICAL C AREA. IF THIS SUBCASE IS A SINE CASE, THEN AVERGAE IS C AUTOMATICALLY ZERO AND WE CAN SKIP THIS.(THE AREA IN THE C INTEGRATION IS 4*PI-MORSE+FESCHBACH-PAGES 1265 AND 1285--OR THE C A00 TE-M OF THE EXPANSION) C THE REASON FOR THE REFERENCE POTENTIAL IS THAT WE MUST ARBITRARILY C SET PHI=0 AT SOME POINT AND THEN THEN INTEGRATE TO GET PHIC. C REFF COMPENSATES FOR THAT C REFF = 0. 192 ONLYAR = .FALSE. IF (LOAD.EQ.0 .OR. ISYM.EQ.1) ONLYAR = .TRUE. IF (ANOM) ONLYAR = .TRUE. C SUMP = 0. SUMA = 0. SUMEP= 0. DO 240 N = 1,NSEGS DO 240 M = 1,MSEGS C C GET THE COORDINATES OF THE 4 CORNERS OF THE PATCH(3 CORNERS IF C 1ST OR LAST SET OF SEGMENTS) C IPT(1) = (M-1)*(NSEGS-1) + 2 + (N-1) IPT(2) = IPT(1) + (NSEGS-1) IPT(3) = IPT(2) + 1 IPT(4) = IPT(1) + 1 IF (M .NE. MSEGS) GO TO 195 IF (ISYM .NE. 0) GO TO 195 IPT(2) = N + 1 IPT(3) = IPT(2) + 1 195 IF (N .NE. 1) GO TO 200 IPT(1) = 1 IPT(2) = 1 GO TO 210 200 IF (N .NE. NSEGS) GO TO 210 IPT(3) = 2 IPT(4) = 2 C C COMPITE VECTOR COMPONENTS FOR THE DIAGONALS AND TAKE 1/2 THE CROSS C PRODUCT TO GET THE PATCH AREA C 210 DO 215 I = 1,4 ISUB = 3*(IPT(I)-1) + IBG XX(I) = Z(ISUB+1) YY(I) = Z(ISUB+2) ZZ(I) = Z(ISUB+3) XETA(I) = DXI*XX(I) IF (ZZ(I).EQ.0. .AND. YY(I).EQ.0.) GO TO 215 XPHI(I) = ATAN2(ZZ(I),YY(I)) IF (XPHI(I) .LT. 0.) XPHI(I) = XPHI(I) + TPI 215 CONTINUE IF (ISYM.NE.0 .OR. M.NE.MSEGS) GO TO 216 XPHI(2) = TPI XPHI(3) = TPI 216 IF (N .NE. 1) GO TO 217 XPHI(1) = XPHI(4) XPHI(2) = XPHI(3) GO TO 218 217 IF (N .NE. NSEGS) GO TO 218 XPHI(4) = XPHI(1) XPHI(3) = XPHI(2) 218 CONTINUE C V13(1) = XX(3) - XX(1) V13(2) = YY(3) - YY(1) V13(3) = ZZ(3) - ZZ(1) V24(1) = XX(4) - XX(2) V24(2) = YY(4) - YY(2) V24(3) = ZZ(4) - ZZ(2) C VX(1) = V13(2)*V24(3) - V13(3)*V24(2) VX(2) = V13(3)*V24(1) - V13(1)*V24(3) VX(3) = V13(1)*V24(2) - V13(2)*V24(1) C AREA = .5*SQRT(VX(1)**2+VX(2)**2+VX(3)**2) AREAEP = .5*((XETA(4)-XETA(2))*(XPHI(1)-XPHI(3)) 1 -(XETA(1)-XETA(3))*(XPHI(4)-XPHI(2))) C C FOLLOWING IS BECAUSE OF BACKWARDS DEFINITION OF XPHI C AREAEP = -AREAEP IF (ONLYAR) GO TO 235 C C PERFORM LINEAR INTERPOLATION OF TEH POTENTIALS FROM THE VERTICES C TO THE INTEGRATION POINTS USING ISOPARAMETRIC SHAPE FUNCTIONS AND C THEN INTEGRATE. 1ST PICK UP VERTEX POTENTIALS C C IPT1 = IPT(1) IPT2 = IPT(2) IPT3 = IPT(3) IPT4 = IPT(4) POTV(1) = Z(IHCPOT+IPT1) POTV(2) = Z(IHCPOT+IPT2) POTV(3) = Z(IHCPOT+IPT3) POTV(4) = Z(IHCPOT+IPT4) C DO 220 I = 1,4 POTI(I) = 0. DO 220 J = 1,4 POTI(I) = POTI(I)+INTER(I,J)*POTV(J) 220 CONTINUE C SUM = 0. DO 230 I = 1,4 C C COMPUTE DETREMINANT OF JACOBIAN C J11 = ETAI(I)*(XETA(4)-XETA(1)) + (1.-ETAI(I))*(XETA(3)-XETA(2)) J12 = ETAI(I)*(XPHI(4)-XPHI(1)) + (1.-ETAI(I))*(XPHI(3)-XPHI(2)) J21 = XII(I)*(XETA(4)-XETA(3)) + (1.- XII(I))*(XETA(1)-XETA(2)) J22 = XII(I)*(XPHI(4)-XPHI(3)) + (1.- XII(I))*(XPHI(1)-XPHI(2)) J12 =-J12 J22 =-J22 DETJ= J11*J22 - J12*J21 230 SUM = SUM + POTI(I)*DETJ*.25 C C NOTE--- .25 * SUM OF THE 4 DETJ-S EQUALS AREAEP C SUMP = SUMP + SUM 235 SUMA = SUMA + AREA SUMEP= SUMEP + AREAEP C C GET ANOTHER PATCH C 240 CONTINUE C IF (SUMA .GT. 0.) GO TO 260 WRITE (OTPE,250) UFM 250 FORMAT (A23,', AREA OF PROLATE SPHEROID IS ZERO') CALL MESAGE (-61,0,0) C C COMPUTE ANALYTICAL AREA C 260 EPS = .5*DFOC/SEMAJ AREA = 2.*PI*(SEMIN**2+SEMAJ*SEMIN*ASIN(EPS)/EPS) IF (ISYM .NE. 0) SUMA = 2.*SUMA C IF (.NOT.WRIT) WRITE (OTPE,270) UIM,AREA,SUMA 270 FORMAT (A29,', THE EXACT SURFACE AREA OF THE PROLATE SPHEROID IS', 1 1X,1P,E15.3,', THE COMPUTED AREA IS ',1P,E15.3) WRIT = .TRUE. IF (LOAD .EQ. 0) GO TO 295 IF (ANOM) GO TO 295 IF (ISYM .EQ. 1) GO TO 280 C C GET REFERNCE POTENTIAL AND SUBTRACT FROM SUM OF ANOMALY AND HC C POTENTI C REFF = SUMP/SUMEP 280 DO 290 I = 1,NGRIDS 290 Z(IPOT+I) = Z(IPOT+I) + Z(IHCPOT+I) - REFF C C FINALLY NOW WE CAN COMPUTE THE COEFFICIENTS A(M,N) AND B(M,N). C MORSE ABD FESCHBACH P. 1285--CHAECK FOR ENOUGH OPEN VORE SPACE TO C STORE THE A-S AND B-S. FOR EACH TYPE, THE NUMBER OF COEFFICIENTS C IS THE SUM OF TH+ INTEGERS FROM 1 TO (\+1), UNLESS M HAS A MAXIMUM C LESS THAN N, IN WHICH CASE, THE COUNT IS (M+1)*(N+1-M)+SUM OF C INTEGERS FROM 1 TO M. THE COEFFICIENTS WE NEED ARE C C M=0 M=1 M=2 M=4 ETC C N=0 A00 C N=1 A01 A11 C N=2 A02 A12 A22 C N=3 A03 A13 A23 A33 C . C ETC C C WE NO LONGER NEED THE HC POTENTIALS OR LOAD INFO. SO STORE C COEFFICIENTS STARTING AT 5*NGRIDS+1 C 295 IACOEF = IPOT + NGRIDS NCOEFS = ((NNHARM+1)*(NNHARM+2))/2 IF (NMHARM .LT. NNHARM) NCOEFS = (NMHARM+1)*(NNHARM+1-NMHARM)+ 1 (NMHARM*(NMHARM+1))/2 IBCOEF = IACOEF + NCOEFS IF (IBCOEF+NCOEFS .GT. LCORE) GO TO 1008 N2 = 2*NCOEFS DO 300 I = 1,N2 300 Z(IACOEF+I) = 0. C C START THE INTEGRATIONS - FOR EACH PATCH IN TURN, DO ALL THE M-S C AND N- C DO 460 NS = 1,NSEGS DO 460 MS = 1,MSEGS C C INITIAL PART IS SAME AS FOR REFERNEC POTENTIAL C IPT(1) = (MS-1)*(NSEGS-1) + 2 + (NS-1) IPT(2) = IPT(1) + (NSEGS-1) IPT(3) = IPT(2) + 1 IPT(4) = IPT(1) + 1 IF (MS .NE. MSEGS) GO TO 310 IF (ISYM .NE. 0) GO TO 310 IPT(2) = NS + 1 IPT(3) = IPT(2) + 1 310 IF (NS .NE. 1) GO TO 320 IPT(1) = 1 IPT(2) = 1 GO TO 330 320 IF (NS .NE. NSEGS) GO TO 330 IPT(3) = 2 IPT(4) = 2 330 DO 335 I = 1,4 ISUB = 3*(IPT(I)-1) + IBG XX(I) = Z(ISUB+1) YY(I) = Z(ISUB+2) ZZ(I) = Z(ISUB+3) XETA(I) = DXI*XX(I) IF (ZZ(I).EQ.0. .AND. YY(I).EQ.0.) GO TO 335 XPHI(I) = ATAN2(ZZ(I),YY(I)) IF (XPHI(I) .LT. 0.) XPHI(I) = XPHI(I) + TPI 335 CONTINUE IF (ISYM.NE.0 .OR. MS.NE.MSEGS) GO TO 337 XPHI(2) = TPI XPHI(3) = TPI 337 IF (NS .NE. 1) GO TO 338 XPHI(1) = XPHI(4) XPHI(2) = XPHI(3) GO TO 339 338 IF (NS .NE. NSEGS) GO TO 339 XPHI(4) = XPHI(1) XPHI(3) = XPHI(2) 339 CONTINUE C C GET POTENTAILS AT VERTICES C DO 336 I = 1,4 ISUB = IPT(I) POTV(I) = Z(IPOT+ISUB) 336 CONTINUE C C INTERPOLATE TO GET POTENTIALS AT EACH INTEGRATION POINT C DO 340 I = 1,4 POTI(I) = 0. DO 340 J = 1,4 POTI(I) = POTI(I) + INTER(I,J)*POTV(J) 340 CONTINUE C C SAVE JACOBIAN DETERMINA5TS AT THE INTEGRATION POINTS C DO 350 I = 1,4 J11 = ETAI(I)*(XETA(4)-XETA(1)) + (1.-ETAI(I))*(XETA(3)-XETA(2)) J12 = ETAI(I)*(XPHI(4)-XPHI(1)) + (1.-ETAI(I))*(XPHI(3)-XPHI(2)) J21 = XII(I)*(XETA(4)-XETA(3)) + (1.- XII(I))*(XETA(1)-XETA(2)) J22 = XII(I)*(XPHI(4)-XPHI(3)) + (1.- XII(I))*(XPHI(1)-XPHI(2)) C C BECAUSE OF MY INCONSISTENCY IN DIRECTIONS BETWEEN PROLATE SPHEROID C COORDINATES IN ANGLE DIRECTION AND ISOPARAMETRIC COORDINATES IN C THAT DIRECTION, WE MUST SWITCH SIGNS FOR XPHI DIFFERENCES- OR ELSE C WE WE WILL GET NEGATIVE AREAS C J12 = -J12 J22 = -J22 C XDETJ(I) = J11*J22 - J12*J21 350 CONTINUE C C COMPUTE 4 (ETA,PHI) COORDINATES AT THE INTEGRATION POINTS. USE C SHAPE FUNCTIONS FOR UNIT SQUARE. (ETAINT AND PHIINT ARE PROLATE C SPHEROIDAL COORDINATES AT INTEGRATION POINTS. XETA,XHPI ARE C PROLATE SPHEROIDAL COORDS. AT VERTICES. XII,ETAI ARE ISOPARAMETRIC C COORDS AT INTEGRATION POINTS FOR UNIT ISOPARAMEQRIC SPUARE. C DO 358 I = 1,4 XN(1) = (1.-XII(I))*ETAI(I) XN(2) = (1.-XII(I))*(1.-ETAI(I)) XN(3) = XII(I)*(1.-ETAI(I)) XN(4) = XII(I)*ETAI(I) ETAINT(I) = 0. PHIINT(I) = 0. DO 357 J = 1,4 ETAINT(I) = ETAINT(I) + XN(J)*XETA(J) PHIINT(I) = PHIINT(I) + XN(J)*XPHI(J) 357 CONTINUE 358 CONTINUE C C START ACTUAL INTEGRATION FOR A GIVEN N,M C KOUNT = 0 NNP1 = NNHARM + 1 DO 450 N = 1,NNP1 IAN = N - 1 CN = IAN C C SINCE M SUMMATION GOES ONLY TO N, COMPUTE MIN(N,NNHARM) C NMP1 = NMHARM + 1 IF (NMP1 .GT. N) NMP1 = N C DO 450 M = 1,NMP1 IAM = M - 1 CM = IAM KOUNT = KOUNT + 1 C C COMPUTE ASSOCIATED LEGENDRE FUNCTION OF 1ST KIND AT EAC C INTEGRATION POINT C DO 360 I = 1,4 CALL PNM (IAM,IAN,ETAINT(I),0,PNMV(I)) 360 CONTINUE C C COMPUTE TRIG FUNCTION AT EAC INTEGRATION POINT C DO 370 I = 1,4 ANG = CM*PHIINT(I) TRIGS(I) = SIN(ANG) TRIGC(I) = COS(ANG) 370 CONTINUE C SUMA = 0. SUMB = 0. DO 380 I = 1,4 IF (ISYM.EQ.0 .OR. ISYM.EQ.1) 1 SUMB = SUMB + TRIGS(I)*PNMV(I)*POTI(I)*XDETJ(I)*.25 IF (ISYM.EQ.0 .OR. ISYM.EQ.2) 1 SUMA = SUMA + TRIGC(I)*PNMV(I)*POTI(I)*XDETJ(I)*.25 380 CONTINUE C C NOW FORM MULTIPLICATICE CONSTANT BASED ON N,M C EM = 1. IF (IAM .GT. 0) EM = 2. C C ADJUST EM FOR 1/2 MODEL IF NECESSARY C IF (ISYM .GT. 0) EM = 2.*EM C C COMPUTE FACTORIALS C NMM = IAN - IAM IF (NMM .NE. 0) GO TO 390 FNUM = 1. GO TO 410 390 FNUM = 1. C = 1. DO 400 I = 1,NMM FNUM = FNUM*C C = C + 1. 400 CONTINUE 410 NPM = IAN+IAM IF (NPM .NE. 0) GO TO 420 FDEN = 1. GO TO 440 420 FDEN = 1. C = 1. DO 430 I = 1,NPM FDEN = FDEN*C C = C + 1. 430 CONTINUE 440 CON = EM*(2.*CN+1.)*FNUM/FDEN/4./PI C SUMA = SUMA*CON SUMB = SUMB*CON C C STORE THE COEFFICIENTS C Z(IACOEF+KOUNT) = SUMA+Z(IACOEF+KOUNT) Z(IBCOEF+KOUNT) = SUMB+Z(IBCOEF+KOUNT) C C GET ANOTHER N OR M C 450 CONTINUE C C GET ANOTHER AREA PATCH C 460 CONTINUE C C DONE - THE SCARATCH DATA BLOCK PROCOS WILL HAVE 5 RECORDS FOR EACH C SUBCASE. 1ST IS 7 WORD INFO ARRAY, 2ND IS A(M,N) 3RD IS B(M,N) C 4TH IS POTENTIALS ON SURFACE FROM ANOMALY+HC POTENTIALS-REFF, C 5TH IS POTENTAILS ON SURFACE USING EXPANSION(WHICH WE WILL DO NOW) C ISUMP = IBCOEF + NCOEFS IF (ISUMP+NGRIDS .GT. LCORE) GO TO 1008 C DO 480 I = 1,NGRIDS C C PICK UP COORDINATES OF POINT C ISUB = 3*(I-1) + IBG X1 = Z(ISUB+1) Y1 = Z(ISUB+2) Z1 = Z(ISUB+3) C C COMPUTE PROLATE SPHEROIDAL COORDINATES C ETA = DXI*X1 PHI = 0. IF (Z1.EQ.0. .AND. Y1.EQ.0.) GO TO 465 PHI = ATAN2(Z1,Y1) C C START SUMMATION C 465 KOUNT = 0 SUM = 0. DO 470 N = 1,NNP1 IAN = N - 1 CN = IAN NMP1= NMHARM + 1 IF (NMP1 .GT. N) NMP1 = N DO 470 M = 1,NMP1 IAM = M - 1 CM = IAM KOUNT = KOUNT + 1 C C GET LEGENDRE AND TRIG FUNCTIONS C CALL PNM (IAM,IAN,ETA,0,V) ANG = CM*PHI TRIG1 = COS(ANG) TRIG2 = SIN(ANG) AB = 0. IF (ISYM.EQ.0 .OR. ISYM.EQ.1) AB = AB+Z(IBCOEF+KOUNT)*TRIG2 IF (ISYM.EQ.0 .OR. ISYM.EQ.2) AB = AB+Z(IACOEF+KOUNT)*TRIG1 C SUM = SUM + AB*V 470 CONTINUE C C STORE VALUE C Z(ISUMP+I) = SUM C C GET ANOTHER POINT C 480 CONTINUE C C WRITE RESULTS TO PROCOS C FO(1) = SEMAJ FO(2) = SEMIN INFO(3) = NNHARM INFO(4) = NMHARM INFO(5) = NCOEFS INFO(6) = ISYM INFO(7) = NGRIDS CALL GOPEN (PROCOS,Z(BUF1),IOP1) CALL WRITE (PROCOS,INFO,7,0) CALL WRITE (PROCOS,TITLE,96,1) CALL WRITE (PROCOS,Z(IACOEF+1),NCOEFS,1) CALL WRITE (PROCOS,Z(IBCOEF+1),NCOEFS,1) CALL WRITE (PROCOS,Z(IPOT +1),NGRIDS,1) CALL WRITE (PROCOS,Z(ISUMP +1),NGRIDS,1) CALL CLOSE (PROCOS,2) C C NOW THAT WE ARE FINISHED ALL THIS WORK, WE SHOULD SEE IF THERE C ARE OTHER SUBCASES WE MUST DO IT FOR C IF (SUBCAS .GE. NCOL) GO TO 490 IOP = 2 IOP1 = 3 GO TO 115 C C DONE C 490 TRAIL(1) = PROCOS TRAIL(2) = SUBCAS DO 500 I = 3,7 500 TRAIL(I) = 0 CALL WRTTRL (TRAIL) C C CHECK FOR SUBCOMS AND REPCASES AND WRITE ( TO OUTPUT FILE C CALL PROCOM (PROCOS,PROCOF,CASECC,NCOEFS,NGRIDS) C RETURN C 1001 N =-1 GO TO 1010 1002 N =-2 GO TO 1010 1008 N =-8 FILE = 0 1010 CALL MESAGE (N,FILE,NAM) RETURN END ================================================ FILE: mis/prompt.f ================================================ SUBROUTINE PROMPT C C DRIVER FOR INTERACTIVE MODULE - PROMPT C C PROMPT //S,N,PEXIT/S,N,PLOT1/S,N,PLOT2/S,N,XYPLOT/ C S,N,SCAN1/S,N,SCAN2/DUM1/DUM2/DUM3/DUM4 $ C IMPLICIT INTEGER (A-Z) COMMON /BLANK / PARAM(10) COMMON /SYSTEM/ KSYSM(100) EQUIVALENCE (NOUT ,KSYSM(2)), (SOLN ,KSYSM(22)), 1 (IN ,KSYSM(4)), (INTRA,KSYSM(86)) DATA P,S,C,B / 1HP, 1HS, 1HC, 1H / C INTRA=IABS(INTRA) NOUT = 6 DO 10 I=1,10 10 PARAM(I)=0 C 20 WRITE (NOUT,110) READ (IN,130,ERR=20) J IF (J.LT.1 .OR. J.GT.6) GO TO 20 IF (SOLN.EQ.3 .AND. (J.EQ.4 .OR. J.EQ.6)) GO TO 70 PARAM(J)=-1 IF (J .EQ. 1) RETURN 40 WRITE (NOUT,120) I=B READ (IN,140,END=50) I 50 IF (I .EQ. B) RETURN IF (I .EQ. C) GO TO 60 IF (I.NE.P .AND. I.NE.S) GO TO 40 IF (I .EQ. S) INTRA = MOD(INTRA,10) IF (I .EQ. P) INTRA = MOD(INTRA,10) + 10 RETURN C 60 PARAM(J)=0 GO TO 20 70 WRITE (NOUT,80) J,SOLN 80 FORMAT (/,' OPTION',I3,' IS NOT AVAILABLE FOR SOLUTION',I3) GO TO 20 C 110 FORMAT (9X,'1. EXIT', 1 /9X,'2. STRUCTURE PLOTS - UNDEFORMED', 3 /9X,'3. STRUCTURE PLOTS - DEFORMED', 4 /9X,'4. XYPLOTS', 5 /9X,'5. SCAN OUTPUT - SORT1', 6 /9X,'6. SCAN OUTPUT - SORT2', 7 //9X,'SELECT ONE OPTION FROM MENU -') 120 FORMAT (/9X,'OUTPUT TO SCREEN, OR TO PRINTFILE, OR CANCEL OPTION ( 1S/P/C) -') 130 FORMAT (I1) 140 FORMAT (A1) END ================================================ FILE: mis/prtint.f ================================================ SUBROUTINE PRTINT C INTEGER TRLR INTEGER OPT, PRT C C OPT = 0 IF MATRIX BY COLUMNS...1 IF BY ROWS. C REAL NAME(2) C COMMON /BLANK/ OPT, PRT COMMON /XXMPRT/ TRLR(7) COMMON /ZZZZZZ/ X(1) C IF (PRT.LT.0) GO TO 100 TRLR(1) = 101 CALL RDTRL (TRLR) IF (TRLR(1).LE.0) GO TO 100 CALL FNAME (TRLR,NAME) CALL INTPRT (X,OPT,1,NAME) 100 RETURN END ================================================ FILE: mis/prtmsg.f ================================================ SUBROUTINE PRTMSG C COMMON /ZZZZZZ/ BUF(1) COMMON /OUTPUT/ TITLE(32,6) C DATA INPREW,MSG,BLANK / 0,101,4H / C CALL OPEN (*110,MSG,BUF,INPREW) CALL READ (*110,*110,MSG,0,0,1,J) DO 100 J = 4,6 DO 100 I = 1,32 TITLE(I,J) = BLANK 100 CONTINUE CALL WRTMSG (MSG) 110 RETURN END ================================================ FILE: mis/prtprm.f ================================================ SUBROUTINE PRTPRM C C PRINTS NASTRAN PARAMETERS C C $MIXED_FORMATS C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT LOGICAL KICKK REAL WAL(32) DOUBLE PRECISION DAL(2) DIMENSION BT(26),KT(26),K1(32),K2(32),K3(32),K4(32), 1 K5(32),K6(32),NAME(2),VAL(2) COMMON /MACHIN/ MACHX COMMON /BLANK / IC,B1,B2 COMMON /XVPS / V(2) COMMON /SYSTEM/ NB,NOUT,JUNK1(6),LNMAX,JUNK2(2),LN COMMON /OUTPUT/ DUMHED(96),H1(32),H2(32),H3(32) EQUIVALENCE (V(2),L), (DAL(1),VAL(1),WAL(1)) DATA XXXX / 4HXXXX /, OO/27/ DATA KT / 5,6,4,5,6,5,3,4,3,5,7,6,6,6,6,5,0,0,0,4,3,2, 1 7,5,4,1 / DATA K1 / 32*4H / DATA K2 / 7*4H ,4HC O ,4HN T ,4HE N ,4HT S ,4H O , 1 4HF ,4HP A ,4HR A ,4HM E ,4HT E ,4HR , 2 4HT A ,4HB L ,4HE ,11*4H / DATA K3 / 32*4H / DATA K4 / 32*4H / DATA K5 / 32*4H / DATA K6 / 32*4H / DATA BT / 4HSTAT,4HINER,4HMODE,4HDIFF,4HBUCK,4HPLA ,4HDIRC, 1 4HDIRF,4HDIRT,4HMDLC,4HMDLF,4HMDLT,4HNMDS,4HCYCS, 2 4HCYCM,4HASTA,4HDDRM,4HFVDA,4HMVDA,4HHSTA,4HHNLI, 3 4HHTRD,4HBLAD,4HFLUT,4HAERO,4HDMAP/ C C IF (IC .NE. 0) GO TO 550 DO 10 M = 1,32 H1(M) = K1(M) H2(M) = K2(M) 10 H3(M) = K3(M) CALL PAGE I = 3 IF (I .GT. L) GO TO 510 KICKK = .FALSE. IF (B1.NE.XXXX .OR. B2.NE.XXXX) KICKK = .TRUE. IF (KICKK) GO TO 180 C 20 IF (I .GT. L) GO TO 7820 ASSIGN 30 TO R GO TO 300 30 I = I + NW + 3 IF (LN .GE. LNMAX) CALL PAGE GO TO (40,60,80,100,120,150), TYPE 40 WRITE (NOUT,50) NAME(1),NAME(2),VAL(1) 50 FORMAT (20X,2A4,10X,I10) GO TO 170 60 WRITE (NOUT,70) NAME(1),NAME(2),WAL(1) 70 FORMAT (20X,2A4,10X,1P,E14.6) GO TO 170 80 WRITE (NOUT,90) NAME(1),NAME(2),VAL(1),VAL(2) 90 FORMAT (20X,2A4,10X,2A4) GO TO 170 100 WRITE (NOUT,110) NAME(1),NAME(2),DAL(1) 110 FORMAT (20X,2A4,10X,1P,D24.16) GO TO 170 120 WRITE (NOUT,130) NAME(1),NAME(2),WAL(1),WAL(2) 130 FORMAT (20X,2A4,10X,1H(,1P,2E14.6,1H)) IF (MACHX .EQ. 5) WRITE (NOUT,140,ERR=170) DAL(1) 140 FORMAT (1H+,69X,'OR',D24.16) GO TO 170 150 WRITE (NOUT,160) NAME(1),NAME(2),DAL(1),DAL(2) 160 FORMAT (20X,2A4,10X,1H(,1P,2D24.16,1H)) 170 IF (KICKK) GO TO 200 LN = LN + 2 GO TO 20 C 180 IF (I .GT. L) GO TO 530 IF (V(I).NE.B1 .OR. V(I+1).NE.B2) GO TO 210 ASSIGN 190 TO R GO TO 300 190 GO TO (40,60,80,100,120,150), TYPE 200 GO TO 7820 210 I = I + V(I+2) + 3 GO TO 180 C 300 NAME(1) = V(I ) NAME(2) = V(I+1) NW = V(I+2) DO 310 M = 1,NW MI = M + I 310 VAL(M) = V(MI+2) M = NUMTYP(VAL(1)) + 1 GO TO ( 320, 490, 320, 480), M C ZERO,INTG,REAL, BCD C 320 IF (NW .GT. 1) GO TO 330 TYPE = 2 GO TO 500 330 IF (NW .LT. 4) GO TO 340 TYPE = 6 GO TO 500 C C THE 7094 AND 6600 SHOULD BE CORRECT C THE 360 AND 1108 CAN STILL HAVE SOME MISTAKES C VAX IS OK, OTHER UNIX MACHINES FOLLOW VAX ** MACHX ** C MACHINES ABOVE 12 NEED TO BE SET CORRECTLY IN NEXT GO TO STATEMENT C C DUMMY 360 1108 6600 VAX ULTRIX SUN AIX HP C S/G MAC CRAY CNVX NEC FUJISU DG AMDL PRIME C 486 DUMMY C ---- ----- ---- ---- ---- ------ ---- ---- ----- 340 GO TO ( 420, 430, 440, 450, 350, 350, 350, 350, 350, 1 350, 350, 410, 350, 350, 350, 350, 350, 350, 2 350, 350), MACHX C C ****** NEED TEST FOR RDP VS CSP. I ASSUME CSP FOR NOW. C 350 GO TO 430 C C ****** OH MY GOSH, HOW CAN I SOLVE THIS PROBLEM FOR THE VAX C 410 IF (RSHIFT(VAL(2),48) .EQ. 0) GO TO 470 GO TO 460 420 IF (MACHX.EQ.1 .AND. IABS(RSHIFT(VAL(1),27)).EQ. 1 OO+IABS(RSHIFT(VAL(2),27))) GO TO 470 GO TO 460 430 IF (RSHIFT(LSHIFT(VAL(2),9),28).EQ.0 .AND. VAL(2).NE.0) GO TO 470 GO TO 460 440 IF (RSHIFT(LSHIFT(VAL(1),9),35).EQ.1 .AND. RSHIFT(LSHIFT(VAL(2),9) 1 ,35).EQ.1) GO TO 460 IF (VAL(2) .EQ. 0) GO TO 460 GO TO 470 450 IF (IABS(RSHIFT(VAL(1),48)) .EQ. 48+IABS(RSHIFT(VAL(2),48))) 1 GO TO 470 460 TYPE = 5 GO TO 500 470 TYPE = 4 GO TO 500 480 TYPE = 3 GO TO 500 490 TYPE = 1 500 GO TO R, (30,190) C 510 WRITE (NOUT,520) 520 FORMAT (1H0,19X,'NO PARAMETERS EXIST') LN = LN + 2 GO TO 7820 530 WRITE (NOUT,540) B1,B2 540 FORMAT (1H0,19X,'PARAMETER NAMED ',2A4,' IS NOT IN VPS.') LN = LN + 2 GO TO 7820 C 550 DO 560 M = 1,32 H1(M) = K4(M) H2(M) = K5(M) 560 H3(M) = K6(M) CALL PAGE KICK = IABS(IC) DO 570 M = 1,26 IF (B1 .NE. BT(M)) GO TO 570 MM = M GO TO 590 570 CONTINUE LN = LN + 2 WRITE (NOUT,580) B1,B2 580 FORMAT ('0SECOND PRTPARM PARAMETER VALUE -',2A4,'- IMPROPER.') GO TO 7810 590 IF (KICK.GT.KT(MM) .AND. MM.LE.26) GO TO 600 LN = LN + 5 GO TO ( 700, 800, 900,1000,1100,1200,1300,1400,1500,1600, 1 1700,1800,1900,2000,2100,2200,2300,2400,2500,3000, 2 3100,3200,3600,3700,3800,4100), MM 600 WRITE (NOUT,610) KICK 610 FORMAT ('0PRTPARM DIAGNOSTIC',I20,' NOT IN TABLE.') LN = LN + 2 GO TO 7810 C C DISPLACEMENT APPROACH - RIGID FORMAT 1 C 700 GO TO (710,720,730,740,750), KICK 710 WRITE (NOUT,4200) GO TO 7800 720 WRITE (NOUT,4210) GO TO 7800 730 WRITE (NOUT,4220) GO TO 7800 740 WRITE (NOUT,4230) GO TO 7800 750 WRITE (NOUT,4240) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 2 C 800 GO TO (810,820,830,840,850,860), KICK 810 WRITE (NOUT,4300) GO TO 7800 820 WRITE (NOUT,4310) GO TO 7800 830 WRITE (NOUT,4320) GO TO 7800 840 WRITE (NOUT,4330) GO TO 7800 850 WRITE (NOUT,4340) GO TO 7800 860 WRITE (NOUT,4350) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 3 C 900 GO TO (910,920,930,940), KICK 910 WRITE (NOUT,4400) GO TO 7800 920 WRITE (NOUT,4410) GO TO 7800 930 WRITE (NOUT,4420) GO TO 7800 940 WRITE (NOUT,4430) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 4 C 1000 GO TO (1010,1020,1030,1040,1050), KICK 1010 WRITE (NOUT,4500) GO TO 7800 1020 WRITE (NOUT,4510) GO TO 7800 1030 WRITE (NOUT,4520) GO TO 7800 1040 WRITE (NOUT,4530) GO TO 7800 1050 WRITE (NOUT,4540) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 5 C 1100 GO TO (1110,1120,1130,1140,1150,1160), KICK 1110 WRITE (NOUT,4600) GO TO 7800 1120 WRITE (NOUT,4610) GO TO 7800 1130 WRITE (NOUT,4620) GO TO 7800 1140 WRITE (NOUT,4630) GO TO 7800 1150 WRITE (NOUT,4640) GO TO 7800 1160 WRITE (NOUT,4650) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 6 C 1200 GO TO (1210,1220,1230,1240,1250), KICK 1210 WRITE (NOUT,4700) GO TO 7800 1220 WRITE (NOUT,4710) GO TO 7800 1230 WRITE (NOUT,4720) GO TO 7800 1240 WRITE (NOUT,4730) GO TO 7800 1250 WRITE (NOUT,4740) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 7 C 1300 GO TO (1310,1320,1330), KICK 1310 WRITE (NOUT,4800) GO TO 7800 1320 WRITE (NOUT,4810) GO TO 7800 1330 WRITE (NOUT,4820) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 8 C 1400 GO TO (1410,1420,1430,1440), KICK 1410 WRITE (NOUT,4900) GO TO 7800 1420 WRITE (NOUT,4910) GO TO 7800 1430 WRITE (NOUT,4920) GO TO 7800 1440 WRITE (NOUT,4930) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 9 C 1500 GO TO (1510,1520,1530), KICK 1510 WRITE (NOUT,5000) GO TO 7800 1520 WRITE (NOUT,5010) GO TO 7800 1530 WRITE (NOUT,5020) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 10 C 1600 GO TO (1610,1620,1630,1640,1650), KICK 1610 WRITE (NOUT,5100) GO TO 7800 1620 WRITE (NOUT,5110) GO TO 7800 1630 WRITE (NOUT,5120) GO TO 7800 1640 WRITE (NOUT,5130) GO TO 7800 1650 WRITE (NOUT,5140) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 11 C 1700 GO TO (1710,1720,1730,1740,1750,1760,1770), KICK 1710 WRITE (NOUT,5200) GO TO 7800 1720 WRITE (NOUT,5210) GO TO 7800 1730 WRITE (NOUT,5220) GO TO 7800 1740 WRITE (NOUT,5230) GO TO 7800 1750 WRITE (NOUT,5240) GO TO 7800 1760 WRITE (NOUT,5250) GO TO 7800 1770 WRITE (NOUT,5260) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 12 C 1800 GO TO (1810,1820,1830,1840,1850,1860), KICK 1810 WRITE (NOUT,5300) GO TO 7800 1820 WRITE (NOUT,5310) GO TO 7800 1830 WRITE (NOUT,5320) GO TO 7800 1840 WRITE (NOUT,5330) GO TO 7800 1850 WRITE (NOUT,5340) GO TO 7800 1860 WRITE (NOUT,5350) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 13 C 1900 GO TO (1910,1920,1930,1940,1950,1960), KICK 1910 WRITE (NOUT,5400) GO TO 7800 1920 WRITE (NOUT,5410) GO TO 7800 1930 WRITE (NOUT,5420) GO TO 7800 1940 WRITE (NOUT,5430) GO TO 7800 1950 WRITE (NOUT,5440) GO TO 7800 1960 WRITE (NOUT,5450) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 14 C 2000 GO TO (2010,2020,2030,2040,2050,2060), KICK 2010 WRITE (NOUT,5500) GO TO 7800 2020 WRITE (NOUT,5510) GO TO 7800 2030 WRITE (NOUT,5520) GO TO 7800 2040 WRITE (NOUT,5530) GO TO 7800 2050 WRITE (NOUT,5540) GO TO 7800 2060 WRITE (NOUT,5550) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 15 C 2100 GO TO (2110,2120,2130,2140,2150,2160), KICK 2110 WRITE (NOUT,5600) GO TO 7800 2120 WRITE (NOUT,5610) GO TO 7800 2130 WRITE (NOUT,5620) GO TO 7800 2140 WRITE (NOUT,5630) GO TO 7800 2150 WRITE (NOUT,5640) GO TO 7800 2160 WRITE (NOUT,5650) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 16 C 2200 GO TO (2210,2220,2230,2240,2250), KICK 2210 WRITE (NOUT,5700) GO TO 7800 2220 WRITE (NOUT,5710) GO TO 7800 2230 WRITE (NOUT,5720) GO TO 7800 2240 WRITE (NOUT,5730) GO TO 7800 2250 WRITE (NOUT,5740) GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 17 C 2300 CONTINUE GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 18 C 2400 CONTINUE GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 19 C 2500 CONTINUE GO TO 7800 C C HEAT APPROACH - RIGID FORMAT 1 C 3000 GO TO (3010,3020,3030,3040), KICK 3010 WRITE (NOUT,6600) GO TO 7800 3020 WRITE (NOUT,6610) GO TO 7800 3030 WRITE (NOUT,6620) GO TO 7800 3040 WRITE (NOUT,6630) GO TO 7800 C C HEAT APPROACH - RIGID FORMAT 3 C 3100 GO TO (3110,3120,3130), KICK 3110 WRITE (NOUT,6700) GO TO 7800 3120 WRITE (NOUT,6710) GO TO 7800 3130 WRITE (NOUT,6720) GO TO 7800 C C HEAT APPROACH - RIGID FORMAT 9 C 3200 GO TO (3210,3220), KICK 3210 WRITE (NOUT,6800) GO TO 7800 3220 WRITE (NOUT,6810) GO TO 7800 C C AERO APPROACH - RIGID FORMAT 9 C 3600 GO TO (3610,3620,3630,3640,3650,3660,3670), KICK 3610 WRITE (NOUT,7200) GO TO 7800 3620 WRITE (NOUT,7210) GO TO 7800 3630 WRITE (NOUT,7220) GO TO 7800 3640 WRITE (NOUT,7230) GO TO 7800 3650 WRITE (NOUT,7240) GO TO 7800 3660 WRITE (NOUT,7250) GO TO 7800 3670 WRITE (NOUT,7260) GO TO 7800 C C AERO APPROACH - RIGID FORMAT 10 C 3700 GO TO (3710,3720,3730,3740,3750), KICK 3710 WRITE (NOUT,7300) GO TO 7800 3720 WRITE (NOUT,7310) GO TO 7800 3730 WRITE (NOUT,7320) GO TO 7800 3740 WRITE (NOUT,7330) GO TO 7800 3750 WRITE (NOUT,7340) GO TO 7800 C C AERO APPROACH - RIGID FORMAT 11 C 3800 GO TO (3810,3820,3830,3840), KICK 3810 WRITE (NOUT,7400) GO TO 7800 3820 WRITE (NOUT,7410) GO TO 7800 3830 WRITE (NOUT,7420) GO TO 7800 3840 WRITE (NOUT,7430) GO TO 7800 C C DMAP APPROACH C 4100 WRITE (NOUT,7700) KICK GO TO 7800 C C DISPLACEMENT APPROACH - RIGID FORMAT 1 C 4200 FORMAT (//////,' STATIC ANALYSIS ERROR NO.1 ATTEMPT TO EXECUTE ', 1 'MORE THAN 360 LOOPS.') 4210 FORMAT (//////,' STATIC ANALYSIS ERROR NO.2 MASS MATRIX REQUIRED' 1, ' FOR WEIGHT AND BALANCE CALCULATIONS.') 4220 FORMAT (//////,' STATIC ANALYSIS ERROR NO.3 NO INDEPENDENT ', 1 'DEGREES OF FREEDOM HAVE BEEN DEFINED.') 4230 FORMAT (//////,' STATIC ANALYSIS ERROR NO.4 NO ELEMENTS HAVE ', 1 'BEEN DEFINED.') 4240 FORMAT (//////,' STATIC ANALYSIS ERROR NO.5 A LOOPING PROBLEM ', 1 'RUN ON A NON-LOOPING SUBSET.') C C DISPLACEMENT APPROACH - RIGID FORMAT 2 C 4300 FORMAT (//////,' INERTIA RELIEF ERROR NO.1 MASS MATRIX REQUIRED', 1 ' FOR CALCULATION OF INERTIA LOADS.') 4310 FORMAT (//////,' INERTIA RELIEF ERROR NO.2 ATTEMPT TO EXECUTE ', 1 'MORE THAN 360 LOOPS.') 4320 FORMAT (//////,' INERTIA RELIEF ERROR NO.3 NO INDEPENDENT ', 1 'DEGREES OF FREEDOM HAVE BEEN DEFINED.') 4330 FORMAT (//////,' INERTIA RELIEF ERROR NO.4 FREE BODY SUPPORTS ', 1 'ARE REQUIRED.') 4340 FORMAT (//////,' INERTIA RELIEF ERROR NO.5 A LOOPING PROBLEM ', 1 'RUN ON A NON-LOOPING SUBSET.') 4350 FORMAT (//////,' INERTIA RELIEF ERROR NO.6 NO STRUCTURAL ', 1 'ELEMENTS HAVE BEEN DEFINED.') C C DISPLACEMENT APPROACH - RIGID FORMAT 3 C 4400 FORMAT (//////,' NORMAL MODES ERROR NO.1 MASS MATRIX REQUIRED ', 1 'FOR REAL EIGENVALUE ANALYSIS.') 4410 FORMAT (//////,' NORMAL MODES ERROR NO.2 EIGENVALUE EXTRACTION ', 1 'DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.') 4420 FORMAT (//////,' NORMAL MODES ERROR NO.3 NO INDEPENDENT DEGREES', 1 ' OF FREEDOM HAVE BEEN DEFINED.') 4430 FORMAT (//////,' NORMAL MODES ERROR NO.4 NO STRUCTURAL ELEMENTS', 1 ' HAVE BEEN DEFINED.') C C DISPLACEMENT APPROACH - RIGID FORMAT 4 C 4500 FORMAT (//////,' DIFFERENTIAL STIFFNESS ERROR NO.1 NO STRUCTURAL' 1, ' ELEMENTS HAVE BEEN DEFINED.') 4510 FORMAT (//////,' DIFFERENTIAL STIFFNESS ERROR NO.2 FREE BODY ', 1 'SUPPORTS NOT ALLOWED.') 4520 FORMAT (//////,' DIFFERENTIAL STIFFNESS ERROR NO.3 NO GRID POINT' 1, ' DATA IS SPECIFIED.') 4530 FORMAT (//////,' DIFFERENTIAL STIFFNESS ERROR NO.4 MASS MATRIX ', 1 'REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.') 4540 FORMAT (//////,' DIFFERENTIAL STIFFNESS ERROR NO.5 NO ', 1 'INDEPENDENT DEGREES OF FREEDOM HAVE BEEN DEFINED.') C C DISPLACEMENT APPROACH - RIGID FORMAT 5 C 4600 FORMAT (//////,' BUCKLING ANALYSIS ERROR NO.1 NO STRUCTURAL ', 1 'ELEMENTS HAVE BEEN DEFINED.') 4610 FORMAT (//////,' BUCKLING ANALYSIS ERROR NO.2 FREE BODY SUPPORTS' 1, ' NOT ALLOWED.') 4620 FORMAT (//////,' BUCKLING ANALYSIS ERROR NO.3 EIGENVALUE ', 1 'EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.') 4630 FORMAT (//////,' BUCKLING ANALYSIS ERROR NO.4 NO EIGENVALUES ', 1 'FOUND.') 4640 FORMAT (//////,' BUCKLING ANALYSIS ERROR NO.5 MASS MATRIX ', 1 'REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.') 4650 FORMAT (//////,' BUCKLING ANALYSIS ERROR NO.6 NO INDEPENDENT ', 1 'DEGREES OF FREEDOM HAVE BEEN DEFINED.') C C DISPLACEMENT APPROACH - RIGID FORMAT 6 C 4700 FORMAT (//////,' PIECEWISE LINEAR ERROR NO.1 NO NONLINEAR ', 1 'ELEMENTS HAVE BEEN DEFINED.') 4710 FORMAT (//////,' PIECEWISE LINEAR ERROR NO.2 ATTEMPT TO EXECUTE', 1 ' MORE THAN 360 LOOPS.') 4720 FORMAT (//////,' PIECEWISE LINEAR ERROR NO.3 MASS MATRIX ', 1 'REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.') 4730 FORMAT (//////,' PIECEWISE LINEAR ERROR NO.4 NO ELEMENTS HAVE ', 1 'BEEN DEFINED.') 4740 FORMAT (//////,' PIECEWISE LINEAR ERROR NO.5 STIFFNESS MATRIX ', 1 'SINGULAR DUE TO MATERIAL PLASTICITY.') C C DISPLACEMENT APPROACH - RIGID FORMAT 7 C 4800 FORMAT (//////,' DIRECT COMPLEX EIGENVALUE ERROR NO.1 ', 1 'EIGENVALUE EXTRACTION DATA REQUIRED FOR COMPLEX ', 2 'EIGENVALUE ANALYSIS.') 4810 FORMAT (//////,' DIRECT COMPLEX EIGENVALUE ERROR NO.2 ATTEMPT ', 1 'TO EXECUTE MORE THAN 100 LOOPS.') 4820 FORMAT (//////,' DIRECT COMPLEX EIGENVALUE ERROR NO.3 MASS ', 1 'MATRIX REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.') C C DISPLACEMENT APPROACH - RIGID FORMAT 8 C 4900 FORMAT (//////,' DIRECT FREQUENCY RESPONSE ERROR NO.1 FREQUENCY', 1 ' RESPONSE LIST REQUIRED FOR FREQUENCY RESPONSE ', 2 'CALCULATIONS.') 4910 FORMAT (//////,' DIRECT FREQUENCY RESPONSE ERROR NO.2 DYNAMIC ', 1 'LOADS TABLE REQUIRED FOR FREQUENCY RESPONSE CALCULATIONS') 4920 FORMAT (//////,' DIRECT FREQUENCY RESPONSE ERROR NO.3 ATTEMPT ', 1 'TO EXECUTE MORE THAN 100 LOOPS.') 4930 FORMAT (//////,' DIRECT FREQUENCY RESPONSE ERROR NO.4 MASS ', 1 'MATRIX REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.') C C DISPLACEMENT APPROACH - RIGID FORMAT 9 C 5000 FORMAT (//////,' DIRECT TRANSIENT RESPONSE ERROR NO.1 TRANSIENT', 1 ' RESPONSE LIST REQUIRED FOR TRANSIENT RESPONSE ', 2 'CALCULATIONS.') 5010 FORMAT (//////,' DIRECT TRANSIENT RESPONSE ERROR NO.2 ATTEMPT ', 1 'TO EXECUTE MORE THAN 100 LOOPS.') 5020 FORMAT (//////,' DIRECT TRANSIENT RESPONSE ERROR NO.3 MASS ', 1 'MATRIX REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.') C C DISPLACEMENT APPROACH - RIGID FORMAT 10 C 5100 FORMAT (//////,' MODAL COMPLEX EIGENVALUE ERROR NO.1 MASS MATRIX' 1, ' REQUIRED FOR MODAL FORMULATION.') 5110 FORMAT (//////,' MODAL COMPLEX EIGENVALUE ERROR NO.2 EIGENVALUE', 1 ' EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.') 5120 FORMAT (//////,' MODAL COMPLEX EIGENVALUE ERROR NO.3 ATTEMPT TO', 1 ' EXECUTE MORE THAN 100 LOOPS.') 5130 FORMAT (//////,' MODAL COMPLEX EIGENVALUE ERROR NO.4 REAL ', 1 'EIGENVALUES REQUIRED FOR MODAL FORMULATION.') 5140 FORMAT (//////,' MODAL COMPLEX EIGENVALUE ERROR NO.5 NO ', 1 'STRUCTURAL ELEMENTS HAVE BEEN DEFINED.') C C DISPLACEMENT APPROACH - RIGID FORMAT 11 C 5200 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.1 MASS MATRIX' 1, ' REQUIRED FOR MODAL FORMULATION.') 5210 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.2 EIGENVALUE', 1 ' EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.') 5220 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.3 ATTEMPT TO', 1 ' EXECUTE MORE THAN 100 LOOPS.') 5230 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.4 REAL ', 1 'EIGENVALUES REQUIRED FOR MODAL FORMULATION.') 5240 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.5 FREQUENCY ', 1 'RESPONSE LIST REQUIRED FOR FREQUENCY RESPONSE ', 2 'CALCULATIONS.') 5250 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.6 DYNAMIC ', 1 'LOADS TABLE REQUIRED FOR FREQUENCY RESPONSE CALCULATIONS') 5260 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.7 NO ', 1 'STRUCTURAL ELEMENTS HAVE BEEN DEFINED.') C C DISPLACEMENT APPROACH - RIGID FORMAT 12 C 5300 FORMAT (//////,' MODAL TRANSIENT RESPONSE ERROR NO.1 MASS MATRIX' 1, ' REQUIRED FOR MODAL FORMULATION.') 5310 FORMAT (//////,' MODAL TRANSIENT RESPONSE ERROR NO.2 EIGENVALUE ', 1 'EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.') 5320 FORMAT (//////,' MODAL TRANSIENT RESPONSE ERROR NO.3 ATTEMPT TO ', 1 'EXECUTE MORE THAN 100 LOOPS.') 5330 FORMAT (//////,' MODAL TRANSIENT RESPONSE ERROR NO.4 REAL ', 1 'EIGENVALUES REQUIRED FOR MODAL FORMULATION.') 5340 FORMAT (//////,' MODAL TRANSIENT RESPONSE ERROR NO.5 TRANSIENT ', 1 'RESPONSE LIST REQUIRED FOR TRANSIENT RESPONSE ', 2 'CALCULATIONS.') 5350 FORMAT (//////,' MODAL TRANSIENT RESPONSE ERROR NO.6 NO ', 1 'STRUCTURAL ELEMENTS HAVE BEEN DEFINED.') C C DISPLACEMENT APPROACH - RIGID FORMAT 13 C 5400 FORMAT (//////,' NORMAL MODES WITH DIFFERENTIAL STIFFNESS ERROR ', 1 'NO.1 NO STRUCTURAL ELEMENTS HAVE BEEN DEFINED.') 5410 FORMAT (//////,' NORMAL MODES WITH DIFFERENTIAL STIFFNESS ERROR ', 1 'NO.2 FREE BODY SUPPORTS NOT ALLOWED.') 5420 FORMAT (//////,' NORMAL MODES WITH DIFFERENTIAL STIFFNESS ERROR ', 1 'NO.3 EIGENVALUE EXTRACTION DATA REQUIRED FOR REAL ', 2 'EIGENVALUE ANALYSIS.') 5430 FORMAT (//////,' NORMAL MODES WITH DIFFERENTIAL STIFFNESS ERROR ', 1 'NO.4 NO EIGENVALUE FOUND.') 5440 FORMAT (//////,' NORMAL MODES WITH DIFFERENTIAL STIFFNESS ERROR ', 1 'NO. 5 MASS MATRIX REQUIRED FOR REAL EIGENVALUE ANALYSIS') 5450 FORMAT (//////,' NORMAL MODES WITH DIFFERENTIAL STIFFNESS ERROR ', 1 'NO. 6 NO INDEPENDENT DEGREES OF FREEDOM HAVE BEEN ', 2 'DEFINED.') C C DISPLACEMENT APPROACH - RIGID FORMAT 14 C 5500 FORMAT (//////,' STATICS WITH CYCLIC TRANSFORMATION ERROR NO. 1 ', 1 ' ATTEMPT TO EXECUTE MORE THAN 360 LOOPS.') 5510 FORMAT (//////,' STATICS WITH CYCLIC TRANSFORMATION ERROR NO. 2 ' 1, 'MASS MATRIX REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS') 5520 FORMAT (//////,' STATICS WITH CYCLIC TRANSFORMATION ERROR NO. 3 ', 1 ' NO INDEPENDENT DEGREES OF FREEDOM HAVE BEEN DEFINED.') 5530 FORMAT (//////,' STATICS WITH CYCLIC TRANSFORMATION ERROR NO. 4 ', 1 ' NO ELEMENTS HAVE BEEN DEFINED.') 5540 FORMAT (//////,' STATICS WITH CYCLIC TRANSFORMATION ERROR NO. 5 ', 1 ' CYCLIC TRANSFORMATION DATA ERROR.') 5550 FORMAT (//////,' STATICS WITH CYCLIC TRANSFORMATION ERROR NO. 6 ', 1 ' FREE BODY SUPPORTS NOT ALLOWED.') C C DISPLACEMENT APPROACH - RIGID FORMAT 15 C 5600 FORMAT (//////,' NORMAL MODES WITH CYCLIC TRANSFORMATION ERROR ', 1 'NO. 1 MASS MATRIX REQUIRED FOR REAL EIGENVALUE ANALYSIS') 5610 FORMAT (//////,' NORMAL MODES WITH CYCLIC TRANSFORMATION ERROR ', 1 'NO. 2 EIGENVALUE EXTRACTION DATA REQUIRED FOR REAL ', 2 'EIGENVALUE ANALYSIS.') 5620 FORMAT (//////,' NORMAL MODES WITH CYCLIC TRANSFORMATION ERROR ', 1 'NO. 3 NO INDEPENDENT DEGREES OF FREEDOM HAVE BEEN ', 2 'DEFINED.') 5630 FORMAT (//////,' NORMAL MODES WITH CYCLIC TRANSFORMATION ERROR ', 1 'NO. 4 FREE BODY SUPPORTS NOT ALLOWED.') 5640 FORMAT (//////,' NORMAL MODES WITH CYCLIC TRANSFORMATION ERROR ', 1 'NO. 5 CYCLIC TRANSFORMATION DATA ERROR.') 5650 FORMAT (//////,' NORMAL MODES WITH CYCLIC TRANSFORMATION ERROR ', 1 'NO. 6 NO STRUCTURAL ELEMENTS HAVE BEEN DEFINED.') C C DISPLACEMENT APPROACH - RIGID FORMAT 16 C 5700 FORMAT (//////,' AEROTHERMOELASTIC ERROR NO. 1 NO STRUCTURAL ', 1 'ELEMENTS HAVE BEEN DEFINED.') 5710 FORMAT (//////,' AEROTHERMOELASTIC ERROR NO. 2 FREE BODY ', 1 'SUPPORTS NOT ALLOWED.') 5720 FORMAT (//////,' AEROTHERMOELASTIC ERROR NO. 3 NO GRID POINT ', 1 'DATA IS SPECIFIED.') 5730 FORMAT (//////,' AEROTHERMOELASTIC ERROR NO. 4 MASS MATRIX ', 1 'REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.') 5740 FORMAT (//////,' AEROTHERMOELASTIC ERROR NO. 5 NO INDEPENDENT ', 1 'DEGREES OF FREEDOM HAVE BEEN DEFINED.') C C DISPLACEMENT APPROACH - RIGID FORMAT 17 C C5800 FORMAT (//) C C DISPLACEMENT APPROACH - RIGID FORMAT 18 C C5900 FORMAT (//) C C DISPLACEMENT APPROACH - RIGID FORMAT 19 C C6000 FORMAT (//) C C C HEAT APPROACH - RIGID FORMAT 1 C 6600 FORMAT (//////,' STATIC HEAT TRANSFER ERROR NO. 1 ATTEMPT TO ', 1 'EXECUTE MORE THAN 100 LOOPS.') 6610 FORMAT (//////,' STATIC HEAT TRANSFER ERROR NO. 2 LOOPING ', 1 'PROBLEM RUN ON A NON-LOOPING SUBSET.') 6620 FORMAT (//////,' STATIC HEAT TRANSFER ERROR NO. 3 NO INDEPENDENT' 1, ' DEGREES OF FREEDOM HAVE BEEN DEFINED.') 6630 FORMAT (//////,' STATIC HEAT TRANSFER ERROR NO. 4 NO ELEMENTS ', 1 'HAVE BEEN DEFINED.') C C HEAT APPROACH - RIGID FORMAT 3 C 6700 FORMAT (//////,' NONLINEAR STATIC HEAT TRANSFER ERROR NO. 1 NO ', 1 'INDEPENDENT DEGREES OF FREEDOM HAVE BEEN DEFINED.') 6710 FORMAT (//////,' NONLINEAR STATIC HEAT TRANSFER ERROR NO. 2 NO ', 1 'SIMPLE STRUCTURAL ELEMENTS.') 6720 FORMAT (//////,' NONLINEAR STATIC HEAT TRANSFER ERROR NO. 3 ', 1 'STIFFNESS MATRIX SINGULAR.') C C HEAT APPROACH - RIGID FORMAT 9 C 6800 FORMAT (//////,' TRANSIENT HEAT TRANSFER ERROR NO. 1 TRANSIENT ', 1 'RESPONSE LIST REQUIRED FOR TRANSIENT RESPONSE ', 2 'CALCULATIONS.') 6810 FORMAT (//////,' TRANSIENT HEAT TRANSFER ERROR NO. 2 ATTEMPT ', 1 'TO EXECUTE MORE THAN 100 LOOPS.') C C AERO APPROACH - RIGID FORMAT 9 C 7200 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 1 MASS MATRIX', 1 ' REQUIRED FOR MODAL FORMULATION.') 7210 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 2 EIGENVALUE ', 1 'EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.') 7220 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 3 ATTEMPT TO ', 1 'EXECUTE MORE THAN 100 LOOPS.') 7230 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 4 REAL ', 1 'EIGENVALUES REQUIRED FOR MODAL FORMULATION.') 7240 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 5 NO GRID ', 1 'POINT DATA IS SPECIFIED OR NO STRUCTURAL ELEMENTS HAVE ', 2 'BEEN DEFINED.') 7250 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 6 FREE BODY ', 1 'SUPPORTS NOT ALLOWED.') 7260 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 7 CYCLIC ', 1 'TRANSFORMATION DATA ERROR.') C C AERO APPROACH - RIGID FORMAT 10 C 7300 FORMAT (//////,' MODAL FLUTTER ANALYSIS ERROR NO. 1 MASS MATRIX', 1 ' REQUIRED FOR MODAL FORMULATION.') 7310 FORMAT (//////,' MODAL FLUTTER ANALYSIS ERROR NO. 2 EIGENVALUE ', 1 'EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.') 7320 FORMAT (//////,' MODAL FLUTTER ANALYSIS ERROR NO. 3 ATTEMPT TO ', 1 'EXECUTE MORE THAN 100 LOOPS.') 7330 FORMAT (//////,' MODAL FLUTTER ANALYSIS ERROR NO. 4 REAL ', 1 'EIGENVALUES REQUIRED FOR MODAL FORMULATION.') 7340 FORMAT (//////,' MODAL FLUTTER ANALYSIS ERROR NO. 5 NO GRID ', 1 'POINT DATA IS SPECIFIED OR NO STRUCTURAL ELEMENTS HAVE ', 2 'BEEN DEFINED.') C C AERO APPROACH - RIGID FORMAT 11 C 7400 FORMAT (//////,' MODAL AEROELASTIC RESPONSE ERROR NO. 1 MASS ', 1 'MATRIX REQUIRED FOR MODAL FORMULATION.') 7410 FORMAT (//////,' MODAL AEROELASTIC RESPONSE ERROR NO. 2 ', 1 'EIGENVALUE EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ', 2 'ANALYSIS.') 7420 FORMAT (//////,' MODAL AEROELASTIC RESPONSE ERROR NO. 3 NO GRID', 1 ' POINT DATA IS SPECIFIED OR NO STRUCTURAL ELEMENTS HAVE ', 2 'BEEN DEFINED.') 7430 FORMAT (//////,' MODAL AEROELASTIC RESPONSE ERROR NO. 4 REAL ', 1 'EIGENVALUES REQUIRED FOR MODAL FORMULATION.') C C DMAP APPROACH C 7700 FORMAT (//////,10X,'DMAP ERROR',3X,I20) 7800 IF (IC .GE. 0) RETURN C 7810 CONTINUE CALL MESAGE (-61,0,0) C 7820 RETURN C END ================================================ FILE: mis/psbar.f ================================================ SUBROUTINE PSBAR C***** C THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES K(NPVT,NPVT) AND C K(NPVT,J) FOR A BAR ELEMENT HAVING END POINTS NUMBERED NPVT AND J. C***** C C E C P T F O R T H E B A R C C ECPT( 1) - IELID ELEMENT ID. NUMBER C ECPT( 2) - ISILNO(2) * SCALAR INDEX NOS. OF THE GRID POINTS C ECPT( 3) - ... * C ECPT( 4) - SMALLV(3) $ REFERENCE VECTOR C ECPT( 5) - ... $ C ECPT( 6) - ... $ C ECPT( 7) - ICSSV COOR. SYS. ID FOR SMALLV VECTOR C ECPT( 8) - IPINFL(2) * PIN FLAGS C ECPT( 9) - ... * C ECPT(10) - ZA(3) $ OFFSET VECTOR FOR POINT A C ECPT(11) - ... $ C ECPT(12) - ... $ C ECPT(13) - ZB(3) * OFFSET VECTOR FOR POINT B C ECPT(14) - ... * C ECPT(15) - ... * C ECPT(16) - IMATID MATERIAL ID. C ECPT(17) - A CROSS-SECTIONAL AREA C ECPT(18) - I1 $ AREA MOMENTS OF INERTIA C ECPT(19) - I2 $ C ECPT(20) - FJ POLAR MOMENT OF INERTIA C ECPT(21) - NSM NON-STRUCTURAL MASS C ECPT(22) - FE FORCE ELEMENT DESCRIPTIONS (FORCE METHOD) C ECPT(23) - C1 * STRESS RECOVERY COEFFICIENTS C ECPT(24) - C2 * C ECPT(25) - D1 * C ECPT(26) - D2 * C ECPT(27) - F1 * C ECPT(28) - F2 * C ECPT(29) - G1 * C ECPT(30) - G2 * C ECPT(31) - K1 $ AREA FACTORS FOR SHEAR C ECPT(32) - K2 $ C ECPT(33) - I12 AREA MOMENT OF INERTIA C ECPT(34) - MCSIDA COOR. SYS. ID. FOR GRID POINT A C ECPT(35) - GPA(3) * BASIC COORDINATES FOR GRID POINT A C ECPT(36) - ... * C ECPT(37) - ... * C ECPT(38) - MCSIDB COOR. SYS. ID. FOR GRID POINT B C ECPT(39) - GPB(3) $ BASIC COORDINATES FOR GRID POINT B C ECPT(40) - ... $ C ECPT(41) - ... $ C ECPT(42) - ELTEMP AVG. ELEMENT TEMPERATURE C ECPT(43) - EPSIN1 PREVIOUS STRAIN VALUE ONCE REMOVED C ECPT(44) - EPSIN2 PREVIOUS STRAIN VALUE C ECPT(45) - ESTAR PREVIOUSLY COMPUTED MODULUS OF ELASTICITY C ECPT(46) - V1STAR * ELEMENT FORCES, INITIALLY ZERO C ECPT(47) - V2STAR * C ECPT(48) - TSTAR * C ECPT(49) - M1ASTR * C ECPT(50) - M2ASTR * C ECPT(51) - UAIN(6) $ INCREMENTAL DISPLACEMENT VECTOR AT PT. A C ECPT(52) - ... $ C ECPT(53) - ... $ C ECPT(54) - ... $ C ECPT(55) - ... $ C ECPT(56) - ... $ C ECPT(57) - UBIN(6) * INCREMENTAL DISPLACEMENT VECTOR AT PT. B C ECPT(58) - ... * C ECPT(59) - ... * C ECPT(60) - ... * C ECPT(61) - ... * C ECPT(62) - ... * C REAL 1 L ,LSQ 2, LCUBE ,I1 3, I2 ,K1 4, K2 ,KE 5, KEP ,I12 6, NSM ,LR1 7, LR2 ,LB 8, L2B3 ,L2B6 REAL 1 M1ASTR ,M2ASTR 2, M1A ,M2A 3, M1B ,M2B 4, K1A ,K2A 5, K1B ,K2B LOGICAL 1 ABASIC ,BBASIC 2, BASIC ,AOFSET 3, BOFSET ,OFFSET DIMENSION 1 VECI(3) ,VECJ(3) 2, VECK(3) ,ECPT(100) 3, IECPT(100) ,IPIN(10) 5, TA(18) ,TB(9) 6, SMALV0(6) ,U(24) 7, D(9) ,SA(72) 8, SB(36) ,FA(6) 9, FB(6) C COMMON /PLA32E/ 1 IELID ,ISILNO(2) 2, SMALLV(3) ,ICSSV 3, IPINFL(2) ,ZA(3) 4, ZB(3) ,IMATID 5, A ,I1 6, I2 ,FJ 7, NSM ,FE 8, C1 ,C2 9, D1 ,D2 T, F1 ,F2 1, G1 ,G2 2, K1 ,K2 3, I12 4, MCSIDA ,GPA(3) 5, MCSIDB ,GPB(3) 6, ELTEMP ,EPSIN1 7, EPSIN2 ,ESTAR 8, V1STAR ,V2STAR COMMON /PLA32E/ 1 TSTAR ,M1ASTR 2, M2ASTR ,UAIN(6) 3, UBIN(6) COMMON /PLA32S/ 1 KE(144) ,KEP(144) 2, DELA(6) ,DELB(6) COMMON /PLA32C/ 1 GAMMA ,GAMMAS COMMON /SOUT/ 1 ISELID ,SIG1A 2, SIG2A ,SIG3A 3, SIG4A ,SIGAX 4, SIGAMX ,SIGAMN 5, MSTEN ,SIG1B 6, SIG2B ,SIG3B 7, SIG4B ,SIGBMX 8, SIGBMN ,MSCOM 9, DUM14(14) COMMON /MATIN/ 1 MATIDC ,MATFLG 2, TEMDUM ,PLAARG 3, DUM2(2) COMMON /MATOUT/ 1 E SUB 0 ,G SUB 0 2, NU ,RHO 3, ALPHA ,T SUB 0 4, GSUBE ,SIGMAT 5, SIGMAC ,SIGMAS C EQUIVALENCE 1 (IELID,ECPT(1),IECPT(1)) 2, (TA(10),TB(1)) 3, (ECPT(71),D(1)) 4, (E SUB 0,PLAANS) 5, (SA(37),SB(1)) 6, (MSTEN,SMTEN) 7, (MSCOM,SMCOM) C C----------------------------------------------------------------------- C C SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS. C ICSIDA AND ICSIDB ARE COOR. SYS. IDS. C JCSIDA = 34 JCSIDB = 38 JOFSTA = 10 JOFSTB = 13 JPINA = 8 JPINB = 9 ICSIDA = IECPT(34) ICSIDB = IECPT(38) C C NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL AXIS C PLANE (FMMS - 36 P. 4) C FL = 0.0 DO 50 I = 1,3 50 FL = FL + SMALLV(I)**2 FL = SQRT(FL) DO 60 I = 1,3 60 SMALLV(I) = SMALLV(I) / FL C C DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT. C ABASIC = .TRUE. BBASIC = .TRUE. IF (ICSIDA .NE. 0) ABASIC = .FALSE. IF (ICSIDB .NE. 0) BBASIC = .FALSE. C C COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY C IF (.NOT. ABASIC) CALL TRANSS (ECPT(JCSIDA),TA) IF (.NOT. BBASIC) CALL TRANSS (ECPT(JCSIDA),TB) C C DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS. C AOFSET = .TRUE. J = JOFSTA - 1 DO 70 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 80 70 CONTINUE AOFSET = .FALSE. 80 BOFSET = .TRUE. J = JOFSTB - 1 DO 90 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 100 90 CONTINUE BOFSET = .FALSE. C C FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS. C 100 VECI(1) = ECPT(JCSIDA+1) - ECPT(JCSIDB+1) VECI(2) = ECPT(JCSIDA+2) - ECPT(JCSIDB+2) VECI(3) = ECPT(JCSIDA+3) - ECPT(JCSIDB+3) C C TRANSFORM THE OFFSET VECTORS IF NECESSARY C IF ( .NOT. AOFSET .AND. .NOT. BOFSET ) GO TO 150 C C TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY. C IDELA = 1 J = JOFSTA - 1 DO 110 I = 1,3 J = J + 1 110 DELA(I) = ECPT(J) IF (ABASIC) GO TO 120 IDELA = 4 CALL GMMATS (TA,3,3,0, DELA(1),3,1,0, DELA(4) ) C C TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY C 120 IDELB = 1 J = JOFSTB - 1 DO 130 I = 1,3 J = J + 1 130 DELB(I) = ECPT(J) IF (BBASIC) GO TO 140 IDELB = 4 CALL GMMATS (TB,3,3,0, DELB(1),3,1,0, DELB(4) ) C C SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI C 140 VECI(1) = VECI(1) + DELA(IDELA ) - DELB(IDELB ) VECI(2) = VECI(2) + DELA(IDELA+1) - DELB(IDELB+1) VECI(3) = VECI(3) + DELA(IDELA+2) - DELB(IDELB+2) C C COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE C 150 VECI(1) = -VECI(1) VECI(2) = -VECI(2) VECI(3) = -VECI(3) FL = SQRT (VECI(1)**2 + VECI(2)**2 + VECI(3)**2) DO 160 I = 1,3 160 VECI(I) = VECI(I) / FL C C COMPUTE THE SMALL V SUB 0 VECTOR, SMALV0. ****CHECK THIS LOGIC**** C DO 165 I = 1,3 165 SMALV0(I) = SMALLV(I) ISV = 1 IF (ICSSV .EQ. 0) GO TO 180 ISV = 4 CALL GMMATS (TA,3,3,0, SMALV0(1),3,1,0, SMALV0(4) ) C C COMPUTE THE K VECTOR, VECK = VECI X SMALV0, AND NORMALIZE C 180 VECK(1) = VECI(2) * SMALV0(ISV+2) - VECI(3) * SMALV0(ISV+1) VECK(2) = VECI(3) * SMALV0(ISV ) - VECI(1) * SMALV0(ISV+2) VECK(3) = VECI(1) * SMALV0(ISV+1) - VECI(2) * SMALV0(ISV) FLL = SQRT ( VECK(1)**2 + VECK(2)**2 + VECK(3)**2 ) VECK(1) = VECK(1) / FLL VECK(2) = VECK(2) / FLL VECK(3) = VECK(3) / FLL C C COMPUTE THE J VECTOR, VECJ = VECK X VECI, AND NORMALIZE C VECJ(1) = VECK(2) * VECI(3) - VECK(3) * VECI(2) VECJ(2) = VECK(3) * VECI(1) - VECK(1) * VECI(3) VECJ(3) = VECK(1) * VECI(2) - VECK(2) * VECI(1) FLL = SQRT ( VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2 ) VECJ(1) = VECJ(1) / FLL VECJ(2) = VECJ(2) / FLL VECJ(3) = VECJ(3) / FLL C C SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX CALCULATION C L = FL LSQ = L**2 LCUBE = LSQ * L C C STORE INCREMENTAL DISPLACEMENT VECTORS IN DOUBLE PRECISION LOCATIONS C DO 182 I = 1,6 U(I) = UAIN(I) 182 U(I+12) = UBIN(I) C***** C COMPUTE ON FIRST PASS C * E * U AND C * E * U ON SECOND PASS C B B B A A A C***** IPASS = 1 BASIC = BBASIC OFFSET = BOFSET JOFSET = JOFSTB JCSID = 10 INDEX = 13 C C IF THERE ARE OFFSETS FOR THIS POINT, CONSTRUCT THE 3 X 3 MATRIX D. C 184 IF (.NOT. OFFSET) GO TO 188 D(1) = 0.0 D(2) = ECPT(JOFSET+2) D(3) = -ECPT(JOFSET+1) D(4) = -D(2) D(5) = 0.0 D(6) = ECPT(JOFSET) D(7) = -D(3) D(8) = -D(6) D(9) = 0.0 C C COMPUTE THE 3 VECTOR D * U , WHERE U IS THE VECTOR OF THE 3 C R R C ROTATIONAL DISPLACEMENTS C CALL GMMATS (D,3,3,0, U(INDEX+3),3,1,0, U(INDEX+6)) C C ADD OFFSET CONTRIBUTION TO THE TRANSLATION COMPONENTS OF THE DISPLACE- C MENT VECTOR C J = INDEX DO 186 I = 1,3 U(J) = U(J) + U(J+6) 186 J = J + 1 C C TRANSFORM TRANSLATIONAL COMPONENTS TO BASIC COORDINATES IF NECESSARY C 188 IF (BASIC) GO TO 190 CALL GMMATS (TA(JCSID),3,3,0, U(INDEX),3,1,0, U(INDEX+3) ) C C STORE TRANSFORMED VECTOR BACK INTO ITS ORIGINAL D.P. LOCATION C U(INDEX ) = U(INDEX+3) U(INDEX+1) = U(INDEX+4) U(INDEX+2) = U(INDEX+5) 190 IF (IPASS .EQ. 2) GO TO 192 IPASS = 2 BASIC = ABASIC OFFSET = AOFSET JOFSET = JOFSTA JCSID = 1 INDEX = 1 GO TO 184 C C FORM THE DIFFERENCE OF THE TRANSLATIONAL COMPONENTS OF THE TRANSFORMED C DISPLACEMENT VECTORS C 192 DO 194 I = 1,3 194 U(I+12) = U(I+12) - U(I) C C FORM DOT PRODUCT C CALL GMMATS (VECI,3,1,1, U(13),3,1,0, D(1) ) C C CALCULATE THE INCREMENTAL ELEMENT STRAIN C DEPS1 = D(1) / L C C PERFORM EXTENSIONAL STRAIN CALCULATIONS C DEPS2 = EPSIN2 - EPSIN1 EPS1 = EPSIN2 + DEPS1 EPS2 = EPSIN2 + (DEPS1 + GAMMAS**2 * DEPS2)* (GAMMA + 1.0E0) 1 /(GAMMAS + 1.0E0) 2 + GAMMAS * (DEPS1 - GAMMAS*DEPS2) * (GAMMA+1.0E0)**2 3 /(GAMMAS + 1.0E0) C C CALL MAT ROUTINE TO GET SIGMA1 AND SIGMA2 AS FUNCTIONS OF EPS1,EPS2 C MATIDC = IMATID MATFLG = 1 CALL MAT (IECPT(1)) E SUB 0 L = E SUB 0 G SUB 0 L = G SUB 0 MATFLG = 6 PLAARG = EPS1 CALL MAT (IECPT(1)) SIGMA1 = PLAANS PLAARG = EPS2 CALL MAT (IECPT(1)) SIGMA2 = PLAANS C C NOTE THAT E1 IS USED IN THIS ROUTINE ONLY TO UPDATE THE EST (ECPT) C ENTRY C IF (EPS1 .EQ. EPS2) GO TO 200 E1 = (SIGMA2 - SIGMA1) / (EPS2 - EPS1) GO TO 202 200 E1 = ESTAR C C BEGIN ELEMENT STRESS MATRIX CALCULATIONS. C 202 E = ESTAR G = ESTAR * G SUB 0 L / E SUB 0 L EI1 = E * I1 EI2 = E * I2 IF (K1 .EQ. 0.0 .OR. I12 .NE. 0.0) GO TO 210 GAK1 = G * A * K1 R1 = (12.0 * EI1 * GAK1) / (GAK1 * LCUBE + 12.0 * L * EI1) GO TO 220 210 R1 = 12.0 * EI1 / LCUBE 220 IF (K2 .EQ. 0.0 .OR. I12 .NE. 0.0) GO TO 230 GAK2 = G * A * K2 R2 = (12.0 * EI2 * GAK2) / (GAK2 * LCUBE + 12.0 * L * EI2) GO TO 240 230 R2 = 12.0 * EI2 / LCUBE C C COMPUTE THE -SMALL- K-S, SK1, SK2, SK3 AND SK4 C 240 SK1 = 0.25 * R1 * LSQ + EI1 / L SK2 = 0.25 * R2 * LSQ + EI2 / L SK3 = 0.25 * R1 * LSQ - EI1 / L SK4 = 0.25 * R2 * LSQ - EI2 / L C C COMPUTE THE TERMS THAT WILL BE NEEDED FOR THE 12 X 12 MATRIX KE C AEL = A * E / L LR1 = L * R1 / 2.0 LR2 = L * R2 / 2.0 GJL = G * FJ / L C C CONSTRUCT THE 12 X 12 MATRIX KE C DO 250 I = 1,144 250 KE(I) = 0.0 KE( 1) = AEL KE( 7) = -AEL KE( 14) = R1 KE( 18) = LR1 KE( 20) = -R1 KE( 24) = LR1 KE( 27) = R2 KE( 29) = -LR2 KE( 33) = -R2 KE( 35) = -LR2 KE( 40) = GJL KE( 46) = -GJL KE( 51) = -LR2 KE( 53) = SK2 KE( 57) = LR2 KE( 59) = SK4 KE( 62) = LR1 KE( 66) = SK1 KE( 68) = -LR1 KE( 72) = SK3 KE( 73) = -AEL KE( 79) = AEL KE( 86) = -R1 KE( 90) = -LR1 KE( 92) = R1 KE( 96) = -LR1 KE( 99) = -R2 KE(101) = LR2 KE(105) = R2 KE(107) = LR2 KE(112) = -GJL KE(118) = GJL KE(123) = -LR2 KE(125) = SK4 KE(129) = LR2 KE(131) = SK2 KE(134) = LR1 KE(138) = SK3 KE(140) = -LR1 KE(144) = SK1 IF (I12 .EQ. 0.0) GO TO 255 BETA = 12.0 * E * I12 / LCUBE LB = L * BETA / 2.0 L2B3 = LSQ * BETA / 3.0 L2B6 = LSQ * BETA / 6.0 KE( 15) = BETA KE( 17) = -LB KE( 21) = -BETA KE( 23) = -LB KE( 26) = BETA KE( 30) = LB KE( 32) = -BETA KE( 36) = LB KE( 50) = -LB KE( 54) = -L2B3 KE( 56) = LB KE( 60) = -L2B6 KE( 63) = LB KE( 65) = -L2B3 KE( 69) = -LB KE( 71) = -L2B6 KE( 87) = -BETA KE( 89) = LB KE( 93) = BETA KE( 95) = LB KE( 98) = -BETA KE(102) = -LB KE(104) = BETA KE(108) = -LB KE(122) = -LB KE(126) = -L2B6 KE(128) = LB KE(132) = -L2B3 KE(135) = LB KE(137) = -L2B6 KE(141) = -LB KE(143) = -L2B3 C C DETERMINE IF THERE ARE NON-ZERO PIN FLAGS. C 255 KA = IECPT(JPINA) KB = IECPT(JPINB) IF (KA .EQ. 0 .AND. KB .EQ. 0) GO TO 325 C C SET UP THE IPIN ARRAY C DO 260 I = 1,5 IPIN(I ) = MOD(KA,10) IPIN(I+5) = MOD(KB,10) + 6 IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0 KA = KA / 10 260 KB = KB / 10 C C ALTER KE MATRIX DUE TO PIN FLAGS. C DO 320 I = 1,10 IF (IPIN(I) .EQ. 0) GO TO 320 II = 13 * IPIN(I) - 12 IF (KE(II) .NE. 0.0) GO TO 280 IL = IPIN(I) II = II - IL DO 270 J = 1,12 II = II + 1 KE(II) = 0.0 KE(IL) = 0.0 IL = IL + 12 270 CONTINUE GO TO 320 280 DO 300 J = 1,12 JI = 12 * (J-1) + IPIN(I) IJ = 12 * (IPIN(I) - 1) + J DO 290 LL = 1,12 JLL = 12 * (J-1) + LL ILL = 12 * (IPIN(I) - 1) + LL KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II)) * KE(JI) 290 CONTINUE KEP(IJ) = 0.0 KEP(JI) = 0.0 300 CONTINUE DO 310 K = 1,144 310 KE(K) = KEP(K) 320 CONTINUE C C E C STORE K IN KEP(1),...,KEP(36) AND C AA C C E C STORE K IN KEP(37),...,KEP(72) C AB C 325 J = 0 DO 340 I = 1,72,12 LOW = I LIM = LOW + 5 DO 330 K = LOW,LIM J = J + 1 KEP(J) = KE(K) 330 KEP(J+36) = KE(K+6) 340 CONTINUE C C T C STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A MATRIX. C KE(1) = VECI(1) KE(2) = VECI(2) KE(3) = VECI(3) KE(4) = VECJ(1) KE(5) = VECJ(2) KE(6) = VECJ(3) KE(7) = VECK(1) KE(8) = VECK(2) KE(9) = VECK(3) C C SET POINTERS SO THAT WE WILL BE WORKING WITH POINT A. C BASIC = ABASIC JCSID = JCSIDA OFFSET = AOFSET JOFSET = JOFSTA IWBEG = 0 IKEL = 1 IAB = 1 INDEX = ISILNO(1) C C ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX AND THE W AND W 6 X 6 C MATRICES WILL RESIDE. A B C DO 350 I = 28,108 350 KE(I) = 0.0 C C SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX. C G = AT X TI C 360 IG = 1 IF (BASIC) GO TO 370 CALL TRANSS (ECPT(JCSID),KE(10)) CALL GMMATS (KE(1),3,3,0, KE(10),3,3,0, KE(19) ) IG = 19 C C IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3 X3 MATRIX. C 370 IF ( .NOT. OFFSET ) GO TO 380 KE(10) = 0.0 KE(11) = ECPT(JOFSET+2) KE(12) = -ECPT(JOFSET+1) KE(13) = -KE(11) KE(14) = 0.0 KE(15) = ECPT(JOFSET) KE(16) = -KE(12) KE(17) = -KE(15) KE(18) = 0.0 C C FORM THE 3 X 3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10) C CALL GMMATS (KE(IG),3,3,0, KE(10),3,3,0, KE(28) ) C C C FORM THE W MATRIX OR THE W MATRIX IN KE(37) OR KE(73) DEPENDING C A B C UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION. G WILL BE STORED C IN THE UPPER LEFT AND LOWER RIGHT CORNERS. H, IF NON-ZERO, WILL BE C STORED IN THE UPPER RIGHT CORNER. C C 380 KE(IWBEG+37) = KE(IG ) KE(IWBEG+38) = KE(IG+1) KE(IWBEG+39) = KE(IG+2) KE(IWBEG+43) = KE(IG+3) KE(IWBEG+44) = KE(IG+4) KE(IWBEG+45) = KE(IG+5) KE(IWBEG+49) = KE(IG+6) KE(IWBEG+50) = KE(IG+7) KE(IWBEG+51) = KE(IG+8) KE(IWBEG+58) = KE(IG ) KE(IWBEG+59) = KE(IG+1) KE(IWBEG+60) = KE(IG+2) KE(IWBEG+64) = KE(IG+3) KE(IWBEG+65) = KE(IG+4) KE(IWBEG+66) = KE(IG+5) KE(IWBEG+70) = KE(IG+6) KE(IWBEG+71) = KE(IG+7) KE(IWBEG+72) = KE(IG+8) IF ( .NOT. OFFSET ) GO TO 390 KE(IWBEG+40) = KE(28) KE(IWBEG+41) = KE(29) KE(IWBEG+42) = KE(30) KE(IWBEG+46) = KE(31) KE(IWBEG+47) = KE(32) KE(IWBEG+48) = KE(33) KE(IWBEG+52) = KE(34) KE(IWBEG+53) = KE(35) KE(IWBEG+54) = KE(36) C C E E C FORM THE PRODUCT S = K X W OR S = K X W , DEPENDING C A AA A B AB B C UPON WHICH POINT WE ARE WORKING WITH. C 390 CALL GMMATS (KEP(IKEL),6,6,0, KE(IWBEG+37),6,6,0, SA(IAB) ) C C IF THE POINT UNDER CONSIDERATION IS POINT B WE ARE FINISHED. IF NOT, C SET UP POINTS AND INDICATORS FOR WORKING WITH POINT B. C IF (IWBEG .EQ. 36) GO TO 500 BASIC = BBASIC JCSID = JCSIDB OFFSET = BOFSET JOFSET = JOFSTB IWBEG = 36 IKEL = 37 IAB = 37 INDEX = ISILNO(2) DO 400 I = 28,36 400 KE(I) = 0.0 GO TO 360 C C COMPUTE FORCES AND MOMENTS FROM S AND S AND DISPLACEMENT C A B C VECTORS C 500 CALL GMMATS (SA,6,6,0, UAIN,6,1,0, FA) CALL GMMATS (SB,6,6,0, UBIN,6,1,0, FB) FX = A * SIGMA1 V1 = -FA(2) - FB(2) + V1STAR V2 = -FA(3) - FB(3) + V2STAR T = -FA(4) - FB(4) + TSTAR M2A = FA(5) + FB(5) + M2ASTR M1A = -FA(6) - FB(6) + M1ASTR M1B = M1A - V1*L M2B = M2A - V2*L C***** C COMPUTE ELEMENT STRESSES AT 4 POINTS C***** C C COMPUTE K1A AND K2A C IF (I12 .NE. 0.0) GO TO 530 IF (I1 .NE. 0.0) GO TO 520 K1A = 0.0 GO TO 540 520 K1A = -M1A / I1 GO TO 540 530 K1A = (M2A * I12 - M1A * I2) / (I1 * I2 - I12**2) K2A = (M1A * I12 - M2A * I1) / (I1 * I2 - I12**2) GO TO 560 540 IF (I2 .NE. 0.0) GO TO 550 K2A = 0.0 GO TO 560 550 K2A = -M2A / I2 C C COMPUTE SIG1A, SIG2A, SIG3A AND SIG4A C 560 SIG1A = K1A * C1 + K2A * C2 SIG2A = K1A * D1 + K2A * D2 SIG3A = K1A * F1 + K2A * F2 SIG4A = K1A * G1 + K2A * G2 C C COMPUTE K1B AND K2B C IF (I12 .NE. 0.0) GO TO 580 IF (I1 .NE. 0.0) GO TO 570 K1B = 0.0 GO TO 590 570 K1B = -M1B / I1 GO TO 590 580 K1B = (M2B * I12 - M1B * I2) / (I1 * I2 - I12**2) K2B = (M1B * I12 - M2B * I1) / (I1 * I2 - I12**2) GO TO 610 590 IF (I2 .NE. 0.0) GO TO 600 K2B = 0.0 GO TO 610 600 K2B = -M2B / I2 C C COMPUTE SIG1B, SIG2B, SIG3B AND SIG4B C 610 SIG1B = K1B * C1 + K2B * C2 SIG2B = K1B * D1 + K2B * D2 SIG3B = K1B * F1 + K2B * F2 SIG4B = K1B * G1 + K2B * G2 C C COMPUTE AXIAL STRESS C SIGAX = 0.0 IF (A .NE. 0.0) SIGAX = FX / A C C COMPUTE MAXIMA AND MINIMA C SIGAMX = SIGAX + AMAX1(SIG1A,SIG2A,SIG3A,SIG4A) SIGBMX = SIGAX + AMAX1(SIG1B,SIG2B,SIG3B,SIG4B) SIGAMN = SIGAX + AMIN1(SIG1A,SIG2A,SIG3A,SIG4A) SIGBMN = SIGAX + AMIN1(SIG1B,SIG2B,SIG3B,SIG4B) C C COMPUTE MARGIN OF SAFETY IN TENSION C IF(SIGMAT.LE.0.0)GO TO 620 IF(AMAX1(SIGAMX,SIGBMX).LE.0.0) GO TO 620 Q=SIGMAT/AMAX1(SIGAMX,SIGBMX) SMTEN=Q-1.0 GO TO 630 620 MSTEN=1 C C COMPUTE MARGIN OF SAFETY IN COMPRESSION C 630 SIGMAC=-ABS(SIGMAC) IF(AMIN1(SIGAMN,SIGBMN).GE.0.0) GO TO 640 W=SIGMAC/AMIN1(SIGAMN,SIGBMN) SMCOM=W-1.0 GO TO 650 640 MSCOM=1 650 ISELID = IELID C C UPDATE EST (ECPT) ENTRIES C EPSIN1 = EPSIN2 EPSIN2 = EPS1 ESTAR = E1 V1STAR = V1 V2STAR = V2 TSTAR = T M1ASTR = M1A M2ASTR = M2A RETURN END ================================================ FILE: mis/psqad1.f ================================================ SUBROUTINE PSQAD1 C THIS SUBROUTINE IS THE DRIVER FOR THE QUAD1 CALCULATIONS IN C PLA3 C C ECPT FOR QUAD1 C C 1 EL.ID C 2 GRID A C 3 GRID B C 4 GRID C C 5 GRID D C 6 THETA C 7 MATID1 C 8 T1 C 9 MATID2 C 10 I C 11 MATID3 C 12 T2 C 13 MS MASS C 14 Z1 C 15 Z2 C 16 CSID 1 C 17 X1 C 18 Y1 C 19 Z1 C 20 CSID 2 C 21 X2 C 22 Y2 C 23 Z2 C 24 CSID 3 C 25 X3 C 26 Y3 C 27 Z3 C 28 CSID 4 C 29 X4 C 30 Y4 C 31 Z4 C 32 TEMP C 33 EPS0 C 34 EPSS C 35 ESTAR C 36 SIGXS C 37 SIGYS C 38 SIGXYS C 39 MXS C 40 MYS C 41 MXYS C 42 VXS C 43 VYS C 44 U(A) (6X1) C 50 U(B) (6X1) C 56 U(C) (6X1) C 62 U(D) (6X1) C C ****************************************************************** REAL NU C DIMENSION NECPT(32), NECPTS(32) C COMMON /PLA32E/ ECPT(32),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS, 1 FORVEC(5), UI(24), DUMMY(33) COMMON /PLA3ES/ ECPTSA(100),PH1OUT(200) COMMON /PLA3UV/ IVEC, Z(24) C C SCRATCH BLOCK 325 CELLS C COMMON /PLA32S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS, 1 EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3) 2, EXTRA(4) COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA32C/ GAMMA, GAMMAS, IPASS COMMON /PLAGP/ GP(9), MIDGP , ELID C EQUIVALENCE (NECPT(7),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS), 1 (G13,NU) , (G11,ESUB0) 2, (NECPTS(1),ECPTSA(1)) 3, (G12,NIROF) C C SETUP GP MATRIX FOR PLAMAT C ELID = ECPT(1) MIDGP = MATID1 DO 10 I=1,9 10 GP(I)=0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF(ESTAR .EQ. 0.0) GO TO 50 IF(IPASS .NE. 1 ) GO TO 20 MATID = MATID1 COSTH = 1.0 SINTH = 0.0E0 INFLAG= 2 C CALL MAT(ECPT(1)) C GP(1) = G11 GP(2) = G12 GP(3) = G13 GP(4) = G12 GP(5) = G22 GP(6) = G23 GP(7) = G13 GP(8) = G23 GP(9) = G33 GO TO 50 20 IF(TAU0 .EQ. 0.0) GO TO 50 MATID = MATID1 INFLAG = 1 C CALL MAT(ECPT(1)) C F = 9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR) SX = (2.0*SIGXS - SIGYS)/ 3.0 SY = (2.0*SIGYS - SIGXS)/ 3.0 GP(1) = (1.0+SX**2*F) / ESUB0 GP(2) = (-NU+SX*SY*F) / ESUB0 GP(3) = (2.0*SIGXYS*SX*F) / ESUB0 GP(4) = GP(2) GP(5) = (1.0+SY**2*F) / ESUB0 GP(6) = (2.0*SIGXYS*SY*F) / ESUB0 GP(7) = GP(3) GP(8) = GP(6) GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. IDUM2 = -1 CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3) C C CHECK SINGULARITY C IF( IDUM2 .EQ. 2) CALL MESAGE(-30,38,ECPT(1)) C C CALCULATE PHASE I STRESSES C 50 DO 30 I = 1,32 30 ECPTSA(I) = ECPT(I) NECPTS(2) = 1 NECPTS(3) = 7 NECPTS(4) = 13 NECPTS(5) = 19 C CALL PSTQ1(3) C C C CALCULATE PHASE II STRESSES C IVEC = 1 DO 60 I = 1,24 60 Z(I) = UI(I) DO 70 I = 1,200 70 ECPTSA(I) = PH1OUT(I) S(1) = SIGXS S(2) = SIGYS S(3) = SIGXYS I201 = 201 ECPTSA(I201) = ECPT(1) DO 75 I=1,5 75 ECPTSA(I+201) = FORVEC(I) C CALL PSTQ2 (4) C C C UPDATE ECPT FOR STRESSES C SIGXS = S(1) SIGYS = S(2) SIGXYS = S(3) C C NEW FORCES ARE IN /PLA3ES/ AT LOCATIONS 202-206 C DO 76 I=1,5 76 FORVEC(I) = ECPTSA(I+201) TAU1 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) MATID= MATID1 INFLAG = 8 PLAARG = TAU1 C CALL MAT(ECPT(1)) C C C TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION C IF ( NIROF . EQ. 1 ) GO TO 80 C C RETURNS EPS SUB 1 GIVEN TAU1 C EPS1 = PLAANS DEPS = EPS1 - EPSS DEPSS= EPSS - EPS0 EPS2 = EPS1 + GAMMA * DEPS INFLAG=6 PLAARG = EPS2 C CALL MAT(ECPT(1)) C C RETURNS TAU2 GIVEN EPS2 C TAU2 = PLAANS ESTAR = 0.0 IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1) EPS0 = EPSS EPSS = EPS1 RETURN C 80 ESTAR = 0.0 RETURN END ================================================ FILE: mis/psqad2.f ================================================ SUBROUTINE PSQAD2 C THIS SUBROUTINE IS THE DRIVER FOR THE QUAD2 CALCULATIONS IN C PLA3 C C ECPT FOR QUAD2 C C 1 EL.ID C 2 GRID A C 3 GRID B C 4 GRID C C 5 GRID D C 6 THETA C 7 MAT ID C 8 T C 9 MS MASS C 10 CSID 1 C 11 X1 C 12 Y1 C 13 Z1 C 14 CSID 2 C 15 X2 C 16 Y2 C 17 Z2 C 18 CSID 3 C 19 X3 C 20 Y3 C 21 Z3 C 22 CSID 4 C 23 X4 C 24 Y4 C 25 Z4 C 26 TEMP C 27 EPS0 C 28 EPSS C 29 ESTAR C 30 SIGXS C 31 SIGYS C 32 SIGXXS C 33 MXS C 34 MYS C 35 MXYS C 36 VXS C 37 VYS C 38 U(A) (6X1) C 44 U(B) (6X1) C 50 U(C) (6X1) C 56 U(D) (6X1) C C ****************************************************************** REAL NU C DIMENSION NECPT(26), NECPTS(26) C COMMON /PLA32E/ ECPT(26),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS, 1 FORVEC(5), UI(24), DUMMY(39) COMMON /PLA3ES/ ECPTSA(100),PH1OUT(200) COMMON /PLA3UV/ IVEC, Z(24) C C SCRATCH BLOCK 325 CELLS C COMMON /PLA32S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS, 1 EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3) 2, EXTRA(4) COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA32C/ GAMMA, GAMMAS, IPASS COMMON /PLAGP/ GP(9), MIDGP , ELID C EQUIVALENCE (NECPT(7),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS), 1 (G13,NU) , (G11,ESUB0) 2, (NECPTS(1),ECPTSA(1)) 3, (G12,NIROF) C C SETUP GP MATRIX FOR PLAMAT C ELID = ECPT(1) MIDGP = MATID1 DO 10 I=1,9 10 GP(I)=0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF(ESTAR .EQ. 0.0) GO TO 50 IF(IPASS .NE. 1 ) GO TO 20 MATID = MATID1 COSTH = 1.0 SINTH = 0.0E0 INFLAG= 2 C CALL MAT(ECPT(1)) C GP(1) = G11 GP(2) = G12 GP(3) = G13 GP(4) = G12 GP(5) = G22 GP(6) = G23 GP(7) = G13 GP(8) = G23 GP(9) = G33 GO TO 50 20 IF(TAU0 .EQ. 0.0) GO TO 50 MATID = MATID1 INFLAG = 1 C CALL MAT(ECPT(1)) C F = 9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR) SX = (2.0*SIGXS - SIGYS)/ 3.0 SY = (2.0*SIGYS - SIGXS)/ 3.0 GP(1) = (1.0+SX**2*F) / ESUB0 GP(2) = (-NU+SX*SY*F) / ESUB0 GP(3) = (2.0*SIGXYS*SX*F) / ESUB0 GP(4) = GP(2) GP(5) = (1.0+SY**2*F) / ESUB0 GP(6) = (2.0*SIGXYS*SY*F) / ESUB0 GP(7) = GP(3) GP(8) = GP(6) GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. IDUM2 = -1 CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3) C C CHECK SINGULARITY C IF( IDUM2 .EQ. 2) CALL MESAGE(-30,38,ECPT(1)) C C CALCULATE PHASE I STRESSES C 50 DO 30 I = 1,32 30 ECPTSA(I) = ECPT(I) NECPTS(2) = 1 NECPTS(3) = 7 NECPTS(4) = 13 NECPTS(5) = 19 C CALL PSTQ1(4) C C C CALCULATE PHASE II STRESSES C IVEC = 1 DO 60 I = 1,24 60 Z(I) = UI(I) DO 70 I = 1,200 70 ECPTSA(I) = PH1OUT(I) S(1) = SIGXS S(2) = SIGYS S(3) = SIGXYS I201 = 201 ECPTSA(I201) = ECPT(1) DO 75 I=1,5 75 ECPTSA(I+201) = FORVEC(I) C CALL PSTQ2(4) C C C UPDATE ECPT FOR STRESSES C SIGXS = S(1) SIGYS = S(2) SIGXYS = S(3) C C NEW FORCES ARE IN /PLA3ES/ AT LOCATIONS 202-206 C DO 76 I=1,5 76 FORVEC(I) = ECPTSA(I+201) TAU1 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) MATID= MATID1 INFLAG = 8 PLAARG = TAU1 C CALL MAT(ECPT(1)) C C C TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION C IF ( NIROF . EQ. 1 ) GO TO 80 C C RETURNS EPS SUB 1 GIVEN TAU1 C EPS1 = PLAANS DEPS = EPS1 - EPSS DEPSS= EPSS - EPS0 EPS2 = EPS1 + GAMMA * DEPS INFLAG=6 PLAARG = EPS2 C CALL MAT(ECPT(1)) C C RETURNS TAU2 GIVEN EPS2 C TAU2 = PLAANS ESTAR = 0.0 IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1) EPS0 = EPSS EPSS = EPS1 RETURN C 80 ESTAR = 0.0 RETURN END ================================================ FILE: mis/psqdm.f ================================================ SUBROUTINE PSQDM C THIS SUBROUTINE IS THE DRIVER FOR THE QUAD-MEMBRANE CALCULATIONS IN C PLA3 C C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = GRID POINT D NGRID(4) INTEGER C ECPT( 6) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 7) = MATERIAL ID MATID INTEGER C ECPT( 8) = T T REAL C ECPT( 9) = NON-STRUCTURAL MASS FMU REAL C ECPT(10) = COORD. SYSTEM ID 1 NECPT(10) INTEGER C ECPT(11) = X1 X1 REAL C ECPT(12) = Y1 Y1 REAL C ECPT(13) = Z1 Z1 REAL C ECPT(14) = COORD. SYSTEM ID 2 NECPT(14) INTEGER C ECPT(15) = X2 X2 REAL C ECPT(16) = Y2 Y2 REAL C ECPT(17) = Z2 Z2 REAL C ECPT(18) = COORD. SYSTEM ID 3 NECPT(18) INTEGER C ECPT(19) = X3 X3 REAL C ECPT(20) = Y3 Y3 REAL C ECPT(21) = Z3 Z3 REAL C ECPT(22) = COORD. SYSTEM ID 4 NECPT(22) INTEGER C ECPT(23) = X4 X4 REAL C ECPT(24) = Y4 Y4 REAL C ECPT(25) = Z4 Z4 REAL C ECPT(26) = ELEMENT TEMPERATURE ELTEMP REAL C ECPT(27) = STRAIN (MINUS ONE) EPS0 REAL C ECPT(28) = STRAIN (PRESENT) EPSS REAL C ECPT(29) = MODULUS OF ELASTICITY ESTAR REAL C ECPT(30) = STRESS SUB X SIGXS REAL C ECPT(31) = STRESS SUB Y SIGYS REAL C ECPT(32) = STRESS SUB XY SIGXYS REAL C ECPT(33) = DISPLACEMENT VECTOR A1 UI(1) REAL C ECPT(34) = DISPLACEMENT VECTOR A2 UI(2) REAL C ECPT(35) = DISPLACEMENT VECTOR A3 UI(3) REAL C ECPT(36) = DISPLACEMENT VECTOR B1 UI(4) REAL C ECPT(37) = DISPLACEMENT VECTOR B2 UI(5) REAL C ECPT(38) = DISPLACEMENT VECTOR B3 UI(6) REAL C ECPT(39) = DISPLACEMENT VECTOR C1 UI(7) REAL C ECPT(40) = DISPLACEMENT VECTOR C2 UI(8) REAL C ECPT(41) = DISPLACEMENT VECTOR C3 UI(9) REAL C ECPT(42) = DISPLACEMENT VECTOR D1 UI(10) REAL C ECPT(43) = DISPLACEMENT VECTOR D2 UI(11) REAL C ECPT(44) = DISPLACEMENT VECTOR D3 UI(12) REAL C C ****************************************************************** REAL NU C DIMENSION NECPT(26), NECPTS(26) C COMMON /PLA32E/ ECPT(26),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS, 1 UI(12),DUMMY(56) COMMON /PLA3ES/ ECPTSA(100),PH1OUT(200) COMMON /PLA3UV/ IVEC, Z(24) C C SCRATCH BLOCK 325 CELLS C COMMON /PLA32S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS, 1 EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3) 2, EXTRA(4) COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA32C/ GAMMA, GAMMAS, IPASS COMMON /PLAGP/ GP(9), MIDGP , ELID C EQUIVALENCE (NECPT(7),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS), 1 (G13,NU) , (G11,ESUB0) 2, (NECPTS(1),ECPTSA(1)) 3, (G12,NIROF) C C SETUP GP MATRIX FOR PLAMAT C ELID = ECPT(1) MIDGP = MATID1 DO 10 I=1,9 10 GP(I)=0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF(ESTAR .EQ. 0.0) GO TO 50 IF(IPASS .NE. 1 ) GO TO 20 MATID = MATID1 COSTH = 1.0 SINTH = 0.0E0 INFLAG= 2 C CALL MAT(ECPT(1)) C GP(1) = G11 GP(2) = G12 GP(3) = G13 GP(4) = G12 GP(5) = G22 GP(6) = G23 GP(7) = G13 GP(8) = G23 GP(9) = G33 GO TO 50 20 IF(TAU0 .EQ. 0.0) GO TO 50 MATID = MATID1 INFLAG = 1 C CALL MAT(ECPT(1)) C F = 9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR) SX = (2.0*SIGXS - SIGYS)/ 3.0 SY = (2.0*SIGYS - SIGXS)/ 3.0 GP(1) = (1.0+SX**2*F) / ESUB0 GP(2) = (-NU+SX*SY*F) / ESUB0 GP(3) = (2.0*SIGXYS*SX*F) / ESUB0 GP(4) = GP(2) GP(5) = (1.0+SY**2*F) / ESUB0 GP(6) = (2.0*SIGXYS*SY*F) / ESUB0 GP(7) = GP(3) GP(8) = GP(6) GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. IDUM2 = -1 CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3) C C CHECK SINGULARITY C IF( IDUM2 .EQ. 2) CALL MESAGE(-30,38,ECPT(1)) C C CALCULATE PHASE I STRESSES C 50 DO 30 I = 1,32 30 ECPTSA(I) = ECPT(I) NECPTS(2) = 1 NECPTS(3) = 4 NECPTS(4) = 7 NECPTS(5) = 10 C CALL PSQDM1 C C C CALCULATE PHASE II STRESSES C IVEC = 1 DO 60 I = 1,24 60 Z(I) = UI(I) DO 70 I = 1,200 70 ECPTSA(I) = PH1OUT(I) S(1) = SIGXS S(2) = SIGYS S(3) = SIGXYS C CALL PSTRQ2(2) C C C UPDATE ECPT FOR STRESSES C SIGXS = S(1) SIGYS = S(2) SIGXYS = S(3) TAU1 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) MATID= MATID1 INFLAG = 8 PLAARG = TAU1 C CALL MAT(ECPT(1)) C C C TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION C IF ( NIROF . EQ. 1 ) GO TO 80 C C RETURNS EPS SUB 1 GIVEN TAU1 C EPS1 = PLAANS DEPS = EPS1 - EPSS DEPSS= EPSS - EPS0 EPS2 = EPS1 + GAMMA * DEPS INFLAG=6 PLAARG = EPS2 C CALL MAT(ECPT(1)) C C RETURNS TAU2 GIVEN EPS2 C TAU2 = PLAANS ESTAR = 0.0 IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1) EPS0 = EPSS EPSS = EPS1 RETURN C 80 ESTAR = 0.0 RETURN END ================================================ FILE: mis/psqdm1.f ================================================ SUBROUTINE PSQDM1 C THIS ROUTINE CALCULATES PHASE I OUTPUT FOR THE QUAD-MEMBRAND IN C PLA3 C REAL IVEC,JVEC,KVEC INTEGER NECPT(100) DIMENSION M(12),R(6),NGRID(4),COORD(16),S(27) C COMMON /CONDAS/ CONSTS(5) COMMON /PLA32S/ DUMMY(100),SUM(36),STEMP(9),D1(3),D2(3),A1(3), 1 A2(3),A3(3),A4(3),IVEC(3),JVEC(3),KVEC(3),VECL,H,V(8),ECPTSA(36), 2 ST(3),NCOORD,NPOINT,NSUB1,NSUB2,NSUB3,T(9),COSANG,SINANG,U1,U2, 3 THETA, DUMY(85) COMMON /PLA3ES/ ECPT(100),PH1OUT(200) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH C EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (NECPT(1),ECPT(1)) EQUIVALENCE (R(1),IVEC(1)),(NGRID(1),ECPTSA(2)), 1 (COORD(1),ECPTSA(10)) , (S(1),PH1OUT(10)) C DATA M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 / C ****************************************************************** C ECPT ECPT C RECEIVED BY REQUIRED BY C SQDME1 STRME1 C ****************************************************************** C ECPT( 1) = EL. ID ECPT( 1) = EL. ID C ECPT( 2) = GRD. PT. A ECPT( 2) = GRD. PT. A C ECPT( 3) = GRD. PT. B ECPT( 3) = GRD. PT. B C ECPT( 4) = GRD. PT. C ECPT( 4) = GRD. PT. C C ECPT( 5) = GRD. PT. D ECPT( 5) = THETA C ECPT( 6) = THETA ECPT( 6) = MATERIAL ID C ECPT( 7) = MATERIAL ID ECPT( 7) = T C ECPT( 8) = T ECPT( 8) = NON-STRUCT. MASS C ECPT( 9) = NON-STRUCT. MASSECPT( 9) = COORD. SYS. ID 1 C ECPT(10) = COORD. SYS. ID 1ECPT(10) = X1 C ECPT(11) = X1 ECPT(11) = Y1 C ECPT(12) = Y1 ECPT(12) = Z1 C ECPT(13) = Z1 ECPT(13) = COORD. SYS. ID 2 C ECPT(14) = COORD. SYS. ID 2ECPT(14) = X2 C ECPT(15) = X2 ECPT(15) = Y2 C ECPT(16) = Y2 ECPT(16) = Z2 C ECPT(17) = Z2 ECPT(17) = COORD. SYS. ID 3 C ECPT(18) = COORD. SYS. ID 3ECPT(18) = X3 C ECPT(19) = X3 ECPT(19) = Y3 C ECPT(20) = Y3 ECPT(20) = Z3 C ECPT(21) = Z3 ECPT(21) = ELEMENT TEMPERATURE C ECPT(22) = COORD. SYS. ID 4 NOTE. THE FOLLOWING ARE INTEGERS... C ECPT(23) = X4 GRID POINTS, MAT ID, EL.ID, C ECPT(24) = Y4 COORD. SYS. IDS. C ECPT(25) = Z4 ALL OTHERS ARE REAL IN THE ECPT. C ECPT(26) = ELEMENT TEMPERATURE C ****************************************************************** C C C VECTORS D1 AND D2 FMMS-46 PAGE 6 C A1 A2 A3 A4 C DO 10 I=1,3 D1(I) = ECPT(I + 18) - ECPT(I + 10) D2(I) = ECPT(I + 22) - ECPT(I + 14) A1(I) = ECPT(I + 14) - ECPT(I + 10) A2(I) = ECPT(I + 18) - ECPT(I + 14) A3(I) = ECPT(I + 22) - ECPT(I + 18) 10 A4(I) = ECPT(I + 10) - ECPT(I + 22) C C K-VECTOR = NORMALIZED D1 CROSS D2 C KVEC(1) = D1(2) * D2(3) - D1(3) * D2(2) KVEC(2) = D1(3) * D2(1) - D1(1) * D2(3) KVEC(3) = D1(1) * D2(2) - D1(2) * D2(1) VECL = SQRT ( KVEC(1)**2 + KVEC(2)**2 + KVEC(3)**2 ) IF(VECL.LT.1.0E-06) CALL MESAGE(-30,26,ECPT(1)) KVEC(1) = KVEC(1)/VECL KVEC(2) = KVEC(2)/VECL KVEC(3) = KVEC(3)/VECL C C I-VECTOR = NORMALIZED A SUB 12 - H * KVECTOR C GET H FIRST = ( A SUB 12 DOT KVECTOR)/2 C H = (A1(1)*KVEC(1) + A1(2)*KVEC(2) + A1(3)*KVEC(3))/2.0E0 C IVEC(1) = A1(1) - H * KVEC(1) IVEC(2) = A1(2) - H * KVEC(2) IVEC(3) = A1(3) - H * KVEC(3) VECL = SQRT ( IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2 ) IF( VECL .LT. 1.0E-06) CALL MESAGE(-30,26,ECPT(1)) IVEC(1) = IVEC(1)/VECL IVEC(2) = IVEC(2)/VECL IVEC(3) = IVEC(3)/VECL C C J-VECTOR = K CROSS I C JVEC(1) = KVEC(2) * IVEC(3) - KVEC(3) * IVEC(2) JVEC(2) = KVEC(3) * IVEC(1) - KVEC(1) * IVEC(3) JVEC(3) = KVEC(1) * IVEC(2) - KVEC(2) * IVEC(1) C VECL = SQRT(JVEC(1)**2 + JVEC(2)**2 + JVEC(3)**2) JVEC(1) = JVEC(1)/VECL JVEC(2) = JVEC(2)/VECL JVEC(3) = JVEC(3)/VECL C THETA = ECPT(6) * DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) C V(1) = 1.0E0 V(2) = 0.0E0 C C R ARRAY IS EQUIVALENCED TO IVECTOR AND JVECTOR C CALL GMMATS(R,2,3,0, A2,3,1,0, V(3)) CALL GMMATS(R,2,3,0, A3,3,1,0, V(5)) CALL GMMATS(R,2,3,0, A4,3,1,0, V(7)) C C NORMALIZE THE 4 2X1 V ARRAYS C DO 20 I=1,4 VECL = SQRT ( V(2*I-1)**2 + V(2*I)**2 ) IF(VECL .LT. 1.0E-10) CALL MESAGE(-30,26,ECPT(1)) V(2*I-1) = V(2*I-1)/VECL 20 V(2*I ) = V(2*I )/VECL C C MAPPING MATRIX M IS IN DATA STATEMENT. C C NOW MAKE 4 CALLS TO PSTRM1 WHICH WILL RETURN C S , S , S , S , T SUB 0 C A B C T C C SAVE GRID SILS AND COORDINATE SYSTEMS. C DO 30 I=1,36 30 ECPTSA(I) = ECPT(I) C ECPT(6) = ECPT(7) ECPT(7) = ECPT(8) ECPT(8) = ECPT(9) C C ZERO OUT SUM MATRICES C DO 40 I=1,36 40 SUM(I) = 0.0E0 ST(1) = 0.0E0 ST(2) = 0.0E0 ST(3) = 0.0E0 C DO 90 I=1,4 C C POINTER TO THE SILS IN THE MAPPING MATRIX NCOORD = 8 NPOINT = 3*I-3 DO 60 J=2,4 NPOINT = NPOINT + 1 NSUB1 = M(NPOINT) DO 50 K=1,4 NSUB3 = 4*NSUB1 - 4 + K NCOORD = NCOORD + 1 50 ECPT(NCOORD) = COORD(NSUB3) 60 NECPT(J) = NGRID( NSUB1 ) C C SET UP T MATRIX FOR THIS TRIANGLE. T IS 3X3 C U1 = V(2*I-1) U2 = V(2*I ) C T(1) = U1 ** 2 T(2) = U2 ** 2 T(7) = U1 * U2 T(3) = -2.0E0 * T(7) T(4) = T(2) T(5) = T(1) T(6) = -T(3) T(8) = -T(7) T(9) = T(1) - T(2) C C COMPUTE NET SINTH AND COSTH FOR ANISOTROPIC POSSIBILITY C SINTH = SINANG * U1 - COSANG * U2 COSTH = COSANG * U1 + SINANG * U2 C CALL PSTRM1(1) C C C NOW TRANSFORM AND ADD THE S MATRICES INTO THE RESPECTIVE SUM C MATRICES. C DO 80 J=1,3 C C POINTER TO TRIANGLE I ROW IN THE MAPPING MATRIX C NPOINT = 3*I-3 C C TRANSFORM S C CALL GMMATS( T,3,3,0, S(9*J-8),3,3,0, STEMP ) C C ADD STEMP INTO RESPECTIVE KSUM POSITIONS C C ZERO POINTER INTO KSUM MATRICES NSUB1 = NPOINT + J NSUB1 = M(NSUB1)*9 - 9 DO 70 K=1,9 NSUB1 = NSUB1 + 1 70 SUM(NSUB1) = SUM(NSUB1) + STEMP(K) 80 CONTINUE 90 CONTINUE C C ALL MATRICES COMPLETE C C FILL OUTPUT BLOCK C DO 100 I=1,5 100 PH1OUT(I) = ECPTSA(I) DO 110 I=1,36 110 PH1OUT(I+9) = 0.25E0 * SUM(I) C PHASE 1 COMPLETE OUTPUT BLOCK CONTAINS 45 WORDS C RETURN END ================================================ FILE: mis/psqpl1.f ================================================ SUBROUTINE PSQPL1 C C THIS ROUTINE CALCULATES PHASE I OUTPUT FOR PLA3 C FOR THE QUAD-PLATE PART OF COMBINATION ELEMENTS C C PHASE I OF STRESS DATA RECOVERY FOR TRI OR QUAD PLATE. C C OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING. C C 1) ELEMENT ID C 2) 4 SILS C 3) I C 4) Z1 AND Z2 C 5) 4 5X6 S-SUB-I ARRAYS C THUS, 128 WORDS FOR QUAD-PLATE C C ECPT LISTS AS OF AUGUST 4, 1967 C C DEFINITION DEFINITION C ECPT BSC.BEND.TRI.-----TYPE QUAD.PLT.---------TYPE C ======== ============== ======= ============== ======= C ECPT( 1) = ELEMENT ID INTEGER ** ELEMENT INTEGER C ECPT( 2) = GRID PT. A INTEGER ** GRID PT.A INTEGER C ECPT( 3) = GRID PT. B INTEGER ** GRID PT.B INTEGER C ECPT( 4) = GRID PT. C INTEGER ** GRID PT.C INTEGER C ECPT( 5) = THETA REAL ** GRID PT.D INTEGER C ECPT( 6) = MAT ID 1 INTEGER ** THETA REAL C ECPT( 7) = I MOM. OF INERT. REAL ** MAT ID 1 INTEGER C ECPT( 8) = MAT ID 2 INTEGER ** I MOM. OF INERT. REAL C ECPT( 9) = T2 REAL ** MAT ID 2 INTEGER C ECPT(10) = NON-STRUCT. MASS REAL ** T2 REAL C ECPT(11) = Z1 REAL ** NON-STRUCT. MASS REAL C ECPT(12) = Z2 REAL ** Z1 REAL C ECPT(13) = COORD. SYS. ID 1 INTEGER ** Z2 REAL C ECPT(14) = X1 REAL ** COORD. SYS. ID 1 INTEGER C ECPT(15) = Y1 REAL ** X1 REAL C ECPT(16) = Z1 REAL ** Y1 REAL C ECPT(17) = COORD. SYS. ID 2 INTEGER ** Z1 REAL C ECPT(18) = X2 REAL ** COORD. SYS. ID 2 INTEGER C ECPT(19) = Y2 REAL ** X2 REAL C ECPT(20) = Z2 REAL ** Y2 REAL C ECPT(21) = COORD. SYS. ID 3 INTEGER ** Z2 REAL C ECPT(22) = X3 REAL ** COORD. SYS. ID 3 INTEGER C ECPT(23) = Y3 REAL ** X3 REAL C ECPT(24) = Z3 REAL ** Y3 REAL C ECPT(25) = ELEMENT TEMP REAL ** Z3 REAL C ECPT(26) = ** COORD. SYS. ID 4 INTEGER C ECPT(27) = ** X4 REAL C ECPT(28) = ** Y4 REAL C ECPT(29) = ** Z4 REAL C ECPT(30) = ** ELEMENT TEMP REAL C INTEGER SUBSCA,SUBSCB,SUBSCC REAL IVECT,JVECT,KVECT DIMENSION NECPT(100),M(12),VQ1(3),VQ2(3),VQ3(3),VQ4(3), 1 REQUIV(10) COMMON /CONDAS/ CONSTS(5) COMMON /PLA3ES/ ECPT(100),PH1OUT(200) COMMON /PLA32S/ A(45),TEMP15(15),PROD15(15),T(9),TITE(18),V(25), 1 D1(3),D2(3),SPDUM1(18),U1,U2,SINANG,COSANG, 2 SSUM(60),R(2,5),XSUBB,XSUBC,YSUBC,E(18),TEMP, 3 VV1(2),VV2(2),H,A1(3),NPOINT,SPDUM2(5),IVECT(3), 4 JVECT(3),KVECT(3),SPDUM3(15),THETA,NSUBC, 5 SPDUM4(1),SUBSCA,SUBSCB,SUBSCC,SPDUM5(2),XC,YC, 6 SPDUM6(5) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH EQUIVALENCE (CONSTS(4),DEGRA),(ECPT(1),NECPT(1)), 1 (VQ1(1),ECPT(15)),(VQ2(1),ECPT(19)), 2 (VQ3(1),ECPT(23)),(VQ4(1),ECPT(27)), 3 (REQUIV(1),R(1,1)) DATA M / 2,4,1, 3,1,2, 4,2,3, 1,3,4/ C THETA = ECPT(6)*DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) C C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X5) FOR QUADRILATERAL PLATE. C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX C DO 10 I = 1,10 10 REQUIV(I) = 0.0 C C SHIFT ECPT UP TO MATCH PSTRB1 FOR CERTAIN VARIABLES. C DO 30 I = 6,12 30 ECPT(I) = ECPT(I+1) C DO 40 I = 1,3 D1(I) = VQ3(I) - VQ1(I) D2(I) = VQ4(I) - VQ2(I) 40 A1(I) = VQ2(I) - VQ1(I) C C NON-NORMALIZED K-VECTOR = D1 CROSS D2 C KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3) KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1) KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2) C C NORMALIZE K-VECTOR C TEMP = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2) DO 50 I = 1,3 50 KVECT(I) = KVECT(I)/TEMP C C COMPUTE H = (A1 DOT KVECT)/2 C TEMP = (A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3))/2.0 C C I-VECTOR =(A1) - H*(KVECT) NON-NORMALIZED C DO 60 I = 1,3 60 IVECT(I) = A1(I) - TEMP*KVECT(I) C C NORMALIZE I-VECTOR C TEMP = SQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2) DO 70 I = 1,3 70 IVECT(I) = IVECT(I)/TEMP C C J-VECTOR = K X I VECTORS C JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3) JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1) JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2) C C NORMALIZE J VECTOR TO MAKE SURE C TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2) DO 80 I = 1,3 80 JVECT(I) = JVECT(I)/TEMP C C X3 GOES INTO R(1,3) = D1 DOT IVECT C R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3) C C X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3) C R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3) R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3) C C X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4) C R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2) R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3) C C STRESS CALCULATION POINT WHICH IS THE DIAGONALS INTERSECTION. C FTEMP = R(1,3)*R(2,4) + R(2,3)*(R(1,2) - R(1,4)) IF (FTEMP .EQ. 0.0) CALL MESAGE (-30,26,ECPT(1)) R(1,5) = R(1,2)*R(1,3)*R(2,4)/FTEMP R(2,5) = R(1,2)*R(2,3)*R(2,4)/FTEMP C C CHECK OF 4 POINTS FOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES. C IF (R(2,3).LE.0.0 .OR. R(2,4).LE.0.0) GO TO 90 TEMP = R(1,2) - (R(1,2)-R(1,3))*R(2,4)/R(2,3) IF (R(1,4) .GE. TEMP) GO TO 90 TEMP = R(2,3)*R(1,4)/R(2,4) IF (R(1,3) .GT. TEMP) GO TO 100 90 CALL MESAGE (-30,35,ECPT(1)) C C SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT... C C COMPUTE SUB-TRIANGLE COORDINATES C CALL BASIC BENDING ROUTINE FOR ALL SUB-TRIANGLES. C 100 DO 110 I = 1,60 110 SSUM(I) = 0.0 C DO 160 J = 1,4 KM = 3*J - 3 SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 120 I = 1,2 VV1(I) = R(I,SUBSCB) - R(I,SUBSCA) 120 VV2(I) = R(I,SUBSCC) - R(I,SUBSCA) XSUBB = SQRT(VV1(1)**2 + VV1(2)**2) U1 = VV1(1)/XSUBB U2 = VV1(2)/XSUBB XSUBC = U1*VV2(1) + VV2(2)*U2 YSUBC = U1*VV2(2) - VV2(1)*U2 C XC = SQRT((R(1,SUBSCA)-R(1,5))**2 + (R(2,SUBSCA)-R(2,5))**2) YC = 0.0 C SINTH = SINANG*U1 - COSANG*U2 COSTH = COSANG*U1 + SINANG*U2 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR TRIANGLE -J- C CALL PSTRB1 (1) C C RETURNING FROM PSTRB1 THE FOLLOWING QUANTITIES ARE AT HAND. C C S , S , S , EACH 5X3. 45 WORDS STORED IN A(1) THRU A(45) C A B C C C C SET UP OF T-MATRIX C T(1) = 1.0 T(2) = 0.0 T(3) = 0.0 T(4) = 0.0 T(5) = U1 T(6) = U2 T(7) = 0.0 T(8) =-U2 T(9) = U1 C C SET UP V-MATRIX PER FMMS 51-A C V( 1) = U1*U1*0.25 V( 2) = U2*U2*0.25 V(11) = U1*U2*0.25 V( 3) =-V(11)*2.00 V( 4) = 0.0 V( 5) = 0.0 V( 6) = V(2) V( 7) = V(1) V( 8) =-V(3) V( 9) = 0.0 V(10) = 0.0 V(12) =-V(11) V(13) = V(1) - V(2) V(14) = 0.0 V(15) = 0.0 V(16) = 0.0 V(17) = 0.0 V(18) = 0.0 V(19) = U1*0.25 V(20) =-U2*0.25 V(21) = 0.0 V(22) = 0.0 V(23) = 0.0 V(24) =-V(20) V(25) = V(19) C C ADD IN S , S , S TO THE 4 5X3 SSUM MATRICES C A B C C DO 150 I = 1,3 CALL GMMATS (V,5,5,0, A(15*I-14),5,3,0, TEMP15) CALL GMMATS (TEMP15,5,3,0, T,3,3,0, PROD15) C C POINTER TO SSUM MATRIX C NPOINT = KM + I NPOINT = 15*M(NPOINT) - 15 DO 140 K = 1,15 NSUBC = NPOINT + K 140 SSUM(NSUBC) = SSUM(NSUBC) + PROD15(K) 150 CONTINUE C 160 CONTINUE C C FILL E-MATRIX C DO 170 I = 1,18 170 E( I) = 0.0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C DO 210 I = 1,4 C C DO WE NEED TRANSFORMATION T C I NSUBC = 4*I + 10 IF (NECPT(NSUBC) .EQ. 0) GO TO 180 CALL TRANSS (NECPT(NSUBC),T) CALL GMMATS (T,3,3,1, E( 1),3,3,0, TITE( 1)) CALL GMMATS (T,3,3,1, E(10),3,3,0, TITE(10)) GO TO 200 C 180 DO 190 K = 1,18 190 TITE(K) = E(K) C 200 CALL GMMATS (SSUM(15*I-14),5,3,0, TITE,6,3,1, PH1OUT(30*I-21)) C 210 CONTINUE C C I, Z1, Z2, ELEM ID, 4 SILS FOR PHASE 2 C PH1OUT(1) = ECPT( 1) PH1OUT(2) = ECPT( 2) PH1OUT(3) = ECPT( 3) PH1OUT(4) = ECPT( 4) PH1OUT(5) = ECPT( 5) PH1OUT(6) = ECPT( 7) PH1OUT(7) = ECPT(11) PH1OUT(8) = ECPT(12) C C ALL PHASE ONE COMPLETE C RETURN END ================================================ FILE: mis/psrod.f ================================================ SUBROUTINE PSROD C***** C THIS ROUTINE COMPUTES STRESSES AND FORCES FOR THE ROD ELEMENT FOR THE C PLA3 FUNCTIONAL MODULE. C***** C C E C P T F O R T H E R O D C C CARD C TYPE TABLE TYPE C ECPT( 1)ELEMENT ID. I ECT CROD C ECPT( 2)SCALAR INDEX NUMBER FOR GRID POINT A I ECT CROD C ECPT( 3)SCALAR INDEX NUMBER FOR GRID POINT B I ECT CROD C ECPT( 4)MATERIAL ID. I EPT PROD C ECPT( 5)AREA (A) R EPT PROD C ECPT( 6)POLAR MOMENT OF INERTIA (J) R EPT PROD C ECPT( 7) TORSIONAL STRESS COEFF (C) R EPT PROD C ECPT( 8) NON-STRUCTRAL MASS (MU) R EPT PROD C ECPT( 9) COOR. SYS. ID. NO. FOR GRID POINT A I BGPDT GRID C ECPT(10) X-COORDINATE OF GRID PT. A (IN BASIC COOR)R BGPDT C ECPT(11) Y-COORDINATE OF GRID PT. A (IN BASIC COOR)R BGPDT C ECPT(12) Z-COORDINATE OF GRID PT. A (IN BASIC COOR)R BGPDT C ECPT(13) COOR. SYS. ID. NO. FOR GRID POINT B I BGPDT C ECPT(14) X-COORDINATE OF GRID PT. B (IN BASIC COOR)R BGPDT C ECPT(15) Y-COORDINATE OF GRID PT. B (IN BASIC COOR)R BGPDT C ECPT(16) Z-COORDINATE OF GRID PT. B (IN BASIC COOR)R BGPDT C ECPT(17) ELEMENT TEMPERATURE C ECPT(18) PREVIOUS STRAIN VALUE, ONCE REMOVED (EPS STAR SUB 0) C ECPT(19) PREVIOUS STRAIN VALUE (EPS STAR) C ECPT(20) PREVIOUSLY COMPUTED VALUE OF MODULUS OF ELASTICITY (ESTAR) C ECPT(21) PREVIOUSLY COMPUTED TORSIONAL MOMENT (TSTAR) C ECPT(22) INCREMENTAL DISPLACEMENT VECTOR FOR GRID POINT A C ECPT(23) ... C ECPT(24) ... C ECPT(25) ... C ECPT(26) ... C ECPT(27) ... C ECPT(28) INCREMENTAL DISPLACEMENT VECTOR FOR GRID POINT B C ECPT(29) ... C ECPT(30) ... C ECPT(31) ... C ECPT(32) ... C ECPT(33) ... C C C DIMENSION 1 ECPT(100) ,IECPT(100) 2, XN(3) ,UA(9) 3, UB(9) ,DIFF(3) 4, TA(9) ,TB(9) C C EST (ECPT) COMMON BLOCK C COMMON /PLA32E/ 1 ECPT C C SCRATCH BLOCK FOR VARIABLES LOCAL TO PLA3 ELEMENT ROUTINES. C COMMON /PLA32S/ 1 XL ,XN 2, UA ,UB 3, TA ,TB 4, DIFF C C PLA32 COMMUNICATION BLOCK C COMMON /PLA32C/ GAMMA ,GAMMAS C C OUTPUT BLOCK FOR ELEMENT STRESSES C COMMON /SOUT / 1 JSELID ,SIGMA 2, SMSIG ,TAU 3, SMTAU C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN/ 1 MATIDC ,MATFLG 2, TEMDUM ,PLAARG 3, DUM2(2) C C C COMMON /MATOUT/ 1 E SUB 0 ,G SUB 0 2, MATDUM(5) ,SIGMAT 3, SIGMAC ,SIGMAS C C C EQUIVALENCE 1 (IECPT(1),ECPT(1)) ,(E SUB 0,PLAANS) 2, (SMSIG,MSSIG) ,(SMTAU,MSTAU) C C CALL MAT ROUTINE TO GET MATERIAL PROPERTIES AND STORE IN LOCAL NAMES. C MATIDC = IECPT(4) MATFLG = 1 CALL MAT (IECPT(1)) E SUB 0 L = E SUB 0 G SUB 0 L = G SUB 0 C C SET UP VECTOR ALONG THE ROD, COMPUTE LENGTH AND NORMALIZE C XN(1) = ECPT(10) - ECPT(14) XN(2) = ECPT(11) - ECPT(15) XN(3) = ECPT(12) - ECPT(16) XL = XN(1)**2 + XN(2)**2 + XN(3)**2 XL = SQRT (XL) XN(1) = XN(1) / XL XN(2) = XN(2) / XL XN(3) = XN(3) / XL C C STORE DISPLACEMENT VECTORS IN LOCAL VARIABLES C DO 10 I = 1,6 UA(I) = ECPT(I+21) 10 UB(I) = ECPT(I+27) C C TRANSFORM DISPLACEMENT VECTOR TRANSLATIONAL COMPONENTS IF NECESSARY C IBASEA = 0 IF (IECPT(9) .EQ. 0) GO TO 20 IBASEA = 6 CALL TRANSS (IECPT(9),TA) CALL GMMATS (TA,3,3,0, UA(1),3,1,0, UA(7)) 20 IBASEB = 0 IF (IECPT(13) .EQ. 0) GO TO 30 IBASEB = 6 CALL TRANSS (IECPT(13),TB) CALL GMMATS (TB,3,3,0, UB(1),3,1,0, UB(7)) C C FORM DIFFERENCE VECTOR, DOT PRODUCT AND INCREMENT OF STRAIN C 30 DIFF(1) = UA(IBASEA+1) - UB(IBASEB+1) DIFF(2) = UA(IBASEA+2) - UB(IBASEB+2) DIFF(3) = UA(IBASEA+3) - UB(IBASEB+3) CALL GMMATS (XN,3,1,1, DIFF,3,1,0, TERM) DEPS1 = TERM / XL EPSIN2 = ECPT(19) EPSIN1 = ECPT(18) DEPS2 = EPSIN2 - EPSIN1 C C COMPUTE EPS1 AND EPS2 AND FETCH VIA MAT STRESSES SIGMA1 AND SIGMA2 C EPS1 = EPSIN2 + DEPS1 EPS2 = EPSIN2 + (DEPS1+GAMMAS**2*DEPS2)*(GAMMA+1.0)/(GAMMAS+1.0) 1 + GAMMAS*(DEPS1-GAMMAS*DEPS2)*(GAMMA+1.0)**2 / (GAMMAS+1.0) MATFLG = 6 PLAARG = EPS1 CALL MAT (IECPT(1)) SIGMA1 = PLAANS PLAARG = EPS2 CALL MAT (IECPT(1)) SIGMA2 = PLAANS IF (EPS1 .EQ. EPS2) GO TO 42 E = (SIGMA2 - SIGMA1) / (EPS2 - EPS1) GO TO 44 42 E = ECPT(20) 44 G = ECPT(20) * G SUB 0 L / E SUB 0 L C C COMPUTE STRESSES C ISELID = IECPT(1) SIGMA = SIGMA1 P = ECPT(5) * SIGMA1 C C TRANSFORM DISPLACEMENT VECTOR ROTATIONAL DISPLACEMENTS IF NECESSARY. C IBASEA = 3 IF (IECPT(9) .EQ. 0) GO TO 60 CALL GMMATS (TA,3,3,0, UA(4),3,1,0, UA(7)) IBASEA = 6 60 IBASEB = 3 IF (IECPT(13) .EQ. 0) GO TO 70 IBASEB = 6 CALL GMMATS (TB,3,3,0, UB(4),3,1,0, UB(7)) 70 DIFF(1) = UA(IBASEA+1) - UB(IBASEB+1) DIFF(2) = UA(IBASEA+2) - UB(IBASEB+2) DIFF(3) = UA(IBASEA+3) - UB(IBASEB+3) CALL GMMATS (XN,3,1,1, DIFF,3,1,0, TERM) T = ECPT(6) * G * TERM / XL + ECPT(21) IF (ECPT(6) .EQ. 0.0) GO TO 80 TAU = ECPT(7) * T / ECPT(6) GO TO 90 80 TAU = 0.0 C C COMPUTE MARGIN OF SAFETY IN EXTENSION C 90 IF(SIGMA.LE.0.0)GO TO 101 IF(SIGMAT.LE.0.0)GO TO 102 SMSIG=SIGMAT/SIGMA-1.0 GO TO 180 101 IF(SIGMA.NE.0.0) GO TO 103 GO TO 102 103 SIGMAC=-ABS(SIGMAC) SMSIG=SIGMAC/SIGMA - 1.0 GO TO 180 102 MSSIG=1 C C COMPUTE MARGIN OF SAFETY IN TORSION C 180 IF(SIGMAS.LE.0.0) GO TO 190 IF(TAU.EQ.0.0)GO TO 190 SMTAU= SIGMAS/ABS(TAU) - 1.0 GO TO 210 190 MSTAU=1 210 JSELID = IECPT(1) C C UPDATE EST (ECPT) ENTRY C ECPT(18) = ECPT(19) ECPT(19) = EPS1 ECPT(20) = E ECPT(21) = T RETURN END ================================================ FILE: mis/psta.f ================================================ SUBROUTINE PSTA(DELTAY,BI,CA,ALPH,THI,AJJL) DIMENSION A(3,3),AI(6),AJ(6),H(3,3),EK(6),G(3,3),GI(3,3),Q(3,3) DIMENSION DELTAY(1),BI(1),CA(1),ALPH(1),THI(13) DIMENSION P(3,6),QI(3,3) COMPLEX PC(3) COMMON /PACKX/ ITI,IT0,II,NN,INCR COMMON /AMGMN/ MCB(7),NROW,ND,NE,REFC,EMACH,RFK COMMON /PSTONC/ NJJ,NMACH,NTHRY,NTHICK,NALPHA,NXIS,NTAUS,NSTRIP, * SECLAM COMMON / CONDAS / PI,TWOPI,RADG,DEGRA DATA A /9*0.0/ , H /9*0.0/ BREF = REFC * .5 RFC = RFK/BREF II = NROW +1 NN = NROW C C BUILD AJJL FOR EACH STRIP C DO 200 I=1,NSTRIP B = BI(I) CONST = 8.0 * DELTAY(I) * (RFC * B)**2 A(1,1) = -1.0 A(2,1) = -.5 * B A(2,2) = B A(3,3) = B H(1,1) = -1.0 H(1,2) = A(2,1) H(2,2) = B H(3,3) = B ALPHA = ALPH(1) IF(NALPHA.NE.1 ) ALPHA = ALPH(I) ALPHA = ALPHA * DEGRA ALPHA2 = ALPHA*ALPHA N = 2 IF(CA(I) .NE. 0.0 ) N = 3 IF( NTHICK .EQ. 0 ) GO TO 20 DO 10 J=1,6 AI(J) = THI(J) AJ(J) = 0.0 IF(N .EQ. 3 ) AJ(J) = THI(J+6) 10 CONTINUE ZETAH = 1.0 IF( NXIS .EQ. 1 ) ZETAH = THI(13) IF( NXIS.GT.1) ZETAH = THI(I+12) GO TO 70 20 IF( NTAUS .NE. 1 ) GO TO 30 TAU = THI(1) TAUH = THI(2) TAUT = THI(3) IF( N .EQ. 2 ) TAUT = 0. T = TAUH-TAUT ZETAM = THI(4) ZETAH = THI(5) GO TO 50 30 K = (I-1) * 3+1 TAU = THI(K) TAUH = THI(K+1) TAUT = THI(K+2) IF( N .EQ. 2 ) TAUT = 0. T = TAUH - TAUT K = (I-1)*2+1 + 3*NSTRIP ZETAM = THI(K) ZETAH = THI(K+1) DO 40 J=1,6 40 AJ(J) = 0. 50 IF(N .EQ. 2 ) ZETAH = 1.0 IF( N .EQ. 2 ) GO TO 60 AJ(1) = -.5 * T AJ(2) = -.25*T*(1.0+ZETAH) AJ(3) = -(1./6.)*T*(1.+ZETAH+ZETAH*ZETAH) AJ(4) = .25*T*T/ (1.-ZETAH) AJ(5) = .125*T*T*(1.0+ZETAH) / (1.-ZETAH) AJ(6) = (1./12.)*T*T*(1.+ZETAH+ZETAH*ZETAH) / (1.-ZETAH) 60 TS = TAU-TAUH*(TAU-TAUH) AI(1) = TAUH*.5 + AJ(1) AI(2) = -(TAU/3.)*ZETAH + (TAUH/6.) * (2.*ZETAH+ZETAM) + AJ(2) AI(3) = -(TAU/12.)*ZETAH *(3.*ZETAH+2.*ZETAM) + (TAUH/12.) * * (3. *ZETAH*ZETAH + 2.*ZETAH*ZETAM+ZETAM*ZETAM) + AJ(3) AI(4) = (TAU*TAU/(3. *ZETAM)) + (1./3.)*TS*(ZETAH-ZETAM) + AJ(4) AI(5) = (TAU*TAU/12.) + (1./12.)*TS*(3.*ZETAH + ZETAM) / * (ZETAH-ZETAM) + AJ(5) AI(6) = (TAU*TAU/30.) * ZETAM + (1./30.)*TS*(6.*ZETAH*ZETAH + * 3.*ZETAH*ZETAM + ZETAM*ZETAM) / (ZETAH-ZETAM) + AJ(6) 70 EMS = EMACH*EMACH SECS = SECLAM*SECLAM IF( NTHRY .NE. 0 ) GO TO 80 CBAR1 = 1. CBAR2 = (1.4+1.)/4. GO TO 90 80 CBAR1 = EMACH / SQRT(EMS-SECS) CBAR2 = (EMS*EMS*(1.4+1.)- 4.*SECS*(EMS-SECS)) /(4.*(EMS-SECS)**2) 90 CBAR3 = (1.4+1.) / 12. EK(1) = (1./EMACH ) *(CBAR1+2.*CBAR2*EMACH*AI(1) * + 3.*CBAR3*EMS*(AI(4)+ALPHA2)) EK(2) = (1./EMACH) * (CBAR1+4.*CBAR2*EMACH * AI(2) * + 3.*CBAR3*EMS*(2.*AI(5)+ALPHA2)) EK(3) = (4./(3.*EMACH)) * (CBAR1+6.*CBAR2*EMACH*AI(3) * + 3.*CBAR3*EMS*(3.*AI(6)+ALPHA2)) IF( N .EQ. 3 ) GO TO 100 EK(4) = (1./EMACH) * (CBAR1*(1.-ZETAH) + 2.*CBAR2*EMACH*AJ(1) * +3.*CBAR3*EMS*AJ(4) + ALPHA2*(1.-ZETAH)) EK(5) = (1./EMACH) * (CBAR1*(1.-ZETAH*ZETAH) + 4.*CBAR2*EMACH* * AJ(2) + 3.*CBAR3*EMS*(2.*AJ(5)+ALPHA2*(1.-ZETAH*ZETAH))) EK(6) = (4./(3.*EMACH))*(CBAR1*(1.-ZETAH**3) + 6.*CBAR2*EMACH* * AJ(3) + 3.*CBAR3*EMS*(3.*AJ(6)+ ALPHA2*(1.-ZETAH**3))) E1K = 1.0/(RFC *B) E1KS = E1K*E1K G(1,1) = 0. G(1,2) = -EK(1) * E1KS G(2,1) = 0. G(2,2) = -EK(2) * E1KS GI(1,1) = -EK(1) * E1K GI(1,2) = -EK(2) * E1K GI(2,1) = GI(1,2) GI(2,2) = -EK(3) * E1K IF( N .EQ. 3 ) GO TO 100 G(1,3) = -EK(4) * E1KS G(2,3) = -EK(5) * E1KS G(3,1) = 0. G(3,2) =-(EK(5)-2.*EK(4)*ZETAH) * E1KS G(3,3) = G(3,2) GI(1,3) = -(EK(5)-2.*EK(4)*ZETAH) * E1K GI(2,3) = -(EK(6)-2.*EK(5)*ZETAH) * E1K GI(3,1) = GI(1,3) GI(3,2) = -(EK(6) -2.*EK(5)*ZETAH) * E1K GI(3,3) = -(EK(6)-4.*EK(5)*ZETAH+4.*EK(4)*ZETAH*ZETAH) * E1K C C MATRICES BUILT TIME TO MULTIPLY C 100 DO 110 K=1,N DO 110 L=1,N Q(K,L) = 0. QI(K,L) = 0. DO 110 M1=1,N Q(K,L) = Q(K,L) + A(K,M1) * G(M1,L) QI(K,L) = QI(K,L) + A(K,M1) * GI(M1,L) 110 CONTINUE N2 = 2*N DO 130 K=1,N DO 130 L=1,N2,2 IT = L/2+1 P(K,L) = 0. P(K,L+1) = 0. DO 120 M1=1,N P(K,L) = P(K,L) + Q(K,M1) * H(M1,IT) P(K,L+1) = P(K,L+1) + QI(K,M1)*H(M1,IT) 120 CONTINUE P(K,L) = P(K,L) * CONST P(K,L+1) = P(K,L+1) * CONST 130 CONTINUE C C PACK OUT C NN = NN+N DO 150 J=1,N2,2 DO 140 K=1,N PC(K) = CMPLX(P(K,J),P(K,J+1)) 140 CONTINUE CALL PACK(PC,AJJL,MCB) 150 CONTINUE II = II+N 200 CONTINUE RETURN END ================================================ FILE: mis/pstamg.f ================================================ SUBROUTINE PSTAMG (INPUT,AJJL,SKJ) C C DRIVER FOR PISTON THEORY C INTEGER SYSBUF,AJJL,SKJ,NAME(2),IZ(1) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,IOUT COMMON /PACKX / ITI,ITO,II,NN,INCR COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK COMMON /PSTONC/ NNJ,NMACH,NTHRY,NTHICK,NALPHA,NXIS,NTAUS,NSTRIP, 1 SECLAM EQUIVALENCE (Z(1),IZ(1)) DATA NHACPT, NHCOMM,NAME /4HACPT,4HCOMM,4HPSTA,4HMG / C ICORE = KORSZ(IZ) - 4*SYSBUF C C BRING IN DATA AND ALLOCATE CORE C CALL FREAD (INPUT,NNJ,9,0) IDEL = 1 IB = IDEL + NSTRIP ICA = IB + NSTRIP IPALP= ICA + NSTRIP C C READ FIXED ARRAYS C NW = 3*NSTRIP CALL FREAD (INPUT,Z,NW,0) C C READ ALPHA ARRAY AND STUFF AT END (INTEGRALS OR TAUS) C IEND = 0 DO 20 I = 1,NMACH CALL FREAD (INPUT,RM,1,0) IF (RM .NE. FMACH) GO TO 10 IEND = 1 CALL FREAD (INPUT,Z(IPALP),NALPHA,0) GO TO 20 10 CALL FREAD (INPUT,Z,-NALPHA,0) 20 CONTINUE IF (IEND .EQ. 0) GO TO 50 IPT = IPALP + NALPHA CALL READ (*30,*30,INPUT,Z(IPT),ICORE,1,N) 30 NT = IPT + N CALL BUG (NHACPT,30,Z,NT) CALL BUG (NHCOMM,30,NNJ,9) C C OUTPUT SKJ C RM = 1.0 ITI = 1 ITO = 3 II = ISK NSK = NSK + 1 NN = NSK DO 40 I = 1,NNJ CALL PACK (RM,SKJ,TSKJ) II = II + 1 IF (I .EQ. NNJ) GO TO 40 NN = NN + 1 40 CONTINUE ISK = II NSK = NN ITI = 3 ITO = 3 CALL PSTA (Z(IDEL),Z(IB),Z(ICA),Z(IPALP),Z(IPT),AJJL) NROW = NROW + NNJ GO TO 70 C C ERROR MESSAGE C 50 WRITE (IOUT,60) UFM,FMACH 60 FORMAT (A23,' 2428, MACH NUMBER ',F10.5,' WAS NOT FOUND IN ', 1 'PISTON THEORY ALPHA ARRAY.') CALL MESAGE (-61,0,NAME) C 70 RETURN END ================================================ FILE: mis/pstpl1.f ================================================ SUBROUTINE PSTPL1 C C THIS ROUTINE CALCULATES PHASE I OUTPUT FOR PLA3 C FOR THE TRI-PLATE PART OF COMBINATION ELEMENTS C C PHASE I OF STRESS DATA RECOVERY FOR TRI-PLATE C C OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING. C C 1) ELEMENT ID C 2) 3 SILS AND A DUMMY C 3) I C 4) Z1 AND Z2 C 5) 3 5X6 S-SUB-I ARRAYS C THUS, 98 WORDS FOR THE TRI-PLATE C C C ECPT LISTS AS OF AUGUST 4, 1967 C C DEFINITION C ECPT BSC.BEND.TRI. AND THE TRI-PLATE C ======== ================= ======= C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = GRID PT. A INTEGER C ECPT( 3) = GRID PT. B INTEGER C ECPT( 4) = GRID PT. C INTEGER C ECPT( 5) = THETA REAL C ECPT( 6) = MAT ID 1 INTEGER C ECPT( 7) = I MOM. OF INERT. REAL C ECPT( 8) = MAT ID 2 INTEGER C ECPT( 9) = T2 REAL C ECPT(10) = NON-STRUCT. MASS REAL C ECPT(11) = Z1 REAL C ECPT(12) = Z2 REAL C ECPT(13) = COORD. SYS. ID 1 INTEGER C ECPT(14) = X1 REAL C ECPT(15) = Y1 REAL C ECPT(16) = Z1 REAL C ECPT(17) = COORD. SYS. ID 2 INTEGER C ECPT(18) = X2 REAL C ECPT(19) = Y2 REAL C ECPT(20) = Z2 REAL C ECPT(21) = COORD. SYS. ID 3 INTEGER C ECPT(22) = X3 REAL C ECPT(23) = Y3 REAL C ECPT(24) = Z3 REAL C ECPT(25) = ELEMENT TEMP REAL C INTEGER SUBSCA ,SUBSCB ,SUBSCC REAL L1 ,L2 ,IVECT ,JVECT ,KVECT DIMENSION M(9) ,REQUIV(9) ,G(36) ,TITE(10),V(25) , 1 HQ(12) ,TEMP15(15),PROD15(15),NECPT(25) , 2 V1(3) ,V2(3) ,V3(3) COMMON /CONDAS/ CONSTS(5) COMMON /PLA3ES/ ECPT(100),PH1OUT(200) COMMON /PLA32S/ A(45) ,T(9) ,S(18) , 2 HINV(36) ,PROD12(12),D1(3) , 3 D2(3) ,HABC(18) ,SSUM(60) , 4 R(2,4) ,IVECT(3) ,JVECT(3) , 5 KVECT(3) ,VV1(2) ,VV2(2) ,XSUBB ,XSUBC , 6 YSUBC ,E(18) ,TEMP , 7 L1 ,L2 ,C1 , 8 C2 ,S1 ,S2 , 9 X1 ,X2 ,Y1 , T Y2 ,NPOINT ,DUM9 , 1 TEMP1 ,TEMP2 ,PROD9(9) , 2 TEMP9(9) ,DUM8 ,KM , 3 SUBSCA ,SUBSCB ,SUBSCC ,DUM11 , 4 THETA ,NSUBC ,ISING , 5 U1 ,U2 ,SINANG , 6 COSANG ,DUM10 ,XC , 7 YC ,DETERM ,DUM12(29) COMMON /MATIN / MATID ,INFLAG ,ELTEMP ,STRESS ,SINTH , 1 COSTH EQUIVALENCE (CONSTS(4),DEGRA) ,(PROD15(1),PROD9(1)) , 1 (REQUIV(1),R(1,1)) ,(NECPT(1) ,ECPT(1) ) , 2 (ECPT(14) ,V1(1)) ,(V2(1) ,ECPT(18)) , 3 (ECPT(22) ,V3(1)) ,(TITE(1) ,A(1) ) , 4 (PROD12(1),V(1)) ,(HQ(1) ,A(1) ) DATA M / 1,2,4, 2,3,4, 3,1,4 / C THETA = ECPT(5)*DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) C C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X4) FOR THE TRIANGULAR PLATE. C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX C DO 10 I = 1,8 10 REQUIV(I) = 0.0 C DO 20 I = 1,3 D2(I) = V2(I) - V1(I) 20 D1(I) = V3(I) - V1(I) C C X2 GOES IN R(1,2) C R(1,2) = SQRT(D2(1)**2 + D2(2)**2 + D2(3)**2) DO 30 I = 1,3 30 IVECT(I) = D2(I)/R(1,2) C C NON-NORMALIZED K-VECTOR C KVECT(1) = IVECT(2)*D1(3) - D1(2)*IVECT(3) KVECT(2) = IVECT(3)*D1(1) - D1(3)*IVECT(1) KVECT(3) = IVECT(1)*D1(2) - D1(1)*IVECT(2) C C Y3 GOES INTO R(2,3) C R(2,3) = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2) DO 40 I = 1,3 40 KVECT(I) = KVECT(I)/R(2,3) C C J-VECTOR = K X I VECTORS C JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3) JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1) JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2) C C NORMALIZE J VECTOR TO MAKE SURE C TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2) DO 60 I = 1,3 60 JVECT(I) = JVECT(I)/TEMP C C X3 GOES INTO R(1,3) = D1 DOT IVECT C R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3) C C CENTROID POINT GOES INTO R(1,4) AND R(2,4) C R(1,4) = (R(1,2)+R(1,3))/3.0 R(2,4) = R(2,3)/3.0 C C COMPUTE SUB-TRIANGLE COORDINATES C CALL BASIC BENDING ROUTINE FOR ALL SUB-TRIANGLES. C DO 80 I = 1,60 80 SSUM(I) = 0.0 DO 90 I = 1,36 90 G(I) = 0.0 C DO 180 J = 1,3 KM = 3*J - 3 SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 100 I = 1,2 VV1(I) = R(I,SUBSCB) - R(I,SUBSCA) 100 VV2(I) = R(I,SUBSCC) - R(I,SUBSCA) XSUBB = SQRT(VV1(1)**2 + VV1(2)**2) U1 = VV1(1)/XSUBB U2 = VV1(2)/XSUBB XSUBC = U1*VV2(1) + VV2(2)*U2 YSUBC = U1*VV2(2) - VV2(1)*U2 C XC = XSUBC YC = YSUBC C SINTH = SINANG*U1 - COSANG*U2 COSTH = COSANG*U1 + SINANG*U2 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR C TRIANGLE -J- C CALL PSTRB1 (2) C C RETURNING FROM PSTRB1 THE FOLLOWING QUANTITIES ARE AT HAND. C C S , S , S , EACH 5X3. 45 WORDS STORED IN A( 1) THRU A(45) C A B C C C AND ALSO H-INVERSE IS AT A(73) THRU A(108) AND S IS AT A(55) THRU C A(72) C C SET UP OF T-MATRIX C T(1) = 1.0 T(2) = 0.0 T(3) = 0.0 T(4) = 0.0 T(5) = U1 T(6) = U2 T(7) = 0.0 T(8) =-U2 T(9) = U1 C C SET UP V-MATRIX PER FMMS 51-A C V( 1) = U1*U1/3.0 V( 2) = U2*U2/3.0 V(11) = U1*U2/3.0 V( 3) =-V(11)*2.0 V( 4) = 0.0 V( 5) = 0.0 V( 6) = V(2) V( 7) = V(1) V( 8) =-V(3) V( 9) = 0.0 V(10) = 0.0 V(12) =-V(11) V(13) = V(1) - V(2) V(14) = 0.0 V(15) = 0.0 V(16) = 0.0 V(17) = 0.0 V(18) = 0.0 V(19) = U1/3.0 V(20) =-U2/3.0 V(21) = 0.0 V(22) = 0.0 V(23) = 0.0 V(24) =-V(20) V(25) = V(19) C C ADD IN S , S , S TO THE 4 5X3 SSUM MATRICES C A B C C DO 120 I = 1,3 CALL GMMATS (V(1),5,5,0, A(15*I-14),5,3,0, TEMP15(1)) CALL GMMATS (TEMP15(1),5,3,0, T(1),3,3,0, PROD15(1)) C C POINTER TO SSUM MATRIX C NPOINT = KM + I NPOINT = 15*M(NPOINT) - 15 DO 110 K = 1,15 NSUBC = NPOINT + K 110 SSUM(NSUBC) = SSUM(NSUBC) + PROD15(K) 120 CONTINUE C C FORM HQ (2X6) C TEMP1 = XSUBB - XSUBC TEMP2 = YSUBC**2 L1 = SQRT(XSUBC**2 + TEMP2) L2 = SQRT(TEMP1**2 + TEMP2) S1 = XSUBC/L1 S2 = TEMP1/L2 C1 = YSUBC/L1 C2 = YSUBC/L2 X1 = XSUBC/2.0 Y1 = YSUBC/2.0 X2 = (XSUBB + XSUBC)/2.0 Y2 = Y1 HQ( 1) =-XSUBC*C1 HQ( 2) = X1*S1 - Y1*C1 HQ( 3) = 2.0*Y1*S1 HQ( 4) =-3.0*X1*X1*C1 HQ( 5) = Y1*(2.0*X1*S1 - Y1*C1) HQ( 6) = 3.0*Y1*Y1*S1 HQ( 7) = 2.0*X2*C2 HQ( 8) = X2*S2 + Y2*C2 HQ( 9) = 2.0*Y2*S2 HQ(10) = 3.0*X2*X2*C2 HQ(11) = Y2*(2.0*X2*S2 + Y2*C2) HQ(12) = 3.0*Y2*Y2*S2 C C I -1 C COMPUTE (H I H ) = (HQ)(H) STORE IN PROD12 C PSI,B I PSI,C C I C CALL GMMATS (HQ(1),2,6,0, HINV(1),6,6,0, PROD12(1)) C C COMPUTE (H ) = -(PROD12)(S) C PSI,A C CALL GMMATS (PROD12(1),2,6,0, S(1),6,3,0, HABC(1)) HABC(1) = -HABC(1) HABC(2) = -HABC(2) + S1 HABC(3) = -HABC(3) + C1 HABC(4) = -HABC(4) HABC(5) = -HABC(5) + S2 HABC(6) = -HABC(6) - C2 C C SPLIT(H ) AND (H ) PARTITION C PSI,B PSI,C C HABC( 7) = PROD12( 1) HABC( 8) = PROD12( 2) HABC( 9) = PROD12( 3) HABC(10) = PROD12( 7) HABC(11) = PROD12( 8) HABC(12) = PROD12( 9) HABC(13) = PROD12( 4) HABC(14) = PROD12( 5) HABC(15) = PROD12( 6) HABC(16) = PROD12(10) HABC(17) = PROD12(11) HABC(18) = PROD12(12) C C MAP H , H , AND H INTO THE G-MATRICES. C A B C C DO 170 I = 1,3 C C POINTER TO H = 6*I-6 C I C C TRANSFORM H SUB I C CALL GMMATS (HABC(6*I-5),2,3,0, T(1),3,3,0, TEMP9(1)) C NPOINT = KM + I NPOINT = 9*M(NPOINT) - 9 C C J = 1 ROW 1 OF H INTO ROW 1 OF G. C ROW 2 OF H INTO ROW 2 OF G. C J = 2 ROW 1 OF H INTO ROW 2 OF G. C ROW 2 OF H INTO ROW 3 OF G. C J = 3 ROW 1 OF H INTO ROW 3 OF G. C ROW 2 OF H INTO ROW 1 OF G. C IF (J-2) 140,130,160 C 130 NPOINT = NPOINT + 3 140 DO 150 K = 1,6 NPOINT = NPOINT + 1 150 G(NPOINT) = G(NPOINT) + TEMP9(K) GO TO 170 160 G(NPOINT+7) = G(NPOINT+7) + TEMP9(1) G(NPOINT+8) = G(NPOINT+8) + TEMP9(2) G(NPOINT+9) = G(NPOINT+9) + TEMP9(3) G(NPOINT+1) = G(NPOINT+1) + TEMP9(4) G(NPOINT+2) = G(NPOINT+2) + TEMP9(5) G(NPOINT+3) = G(NPOINT+3) + TEMP9(6) C 170 CONTINUE 180 CONTINUE C C FILL E-MATRIX C DO 190 I = 1,18 190 E(I) = 0.0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C C * * -1 C (S ) = (S ) - (S )(G ) (G ) I=A,B,C C I I 4 4 I C C E T T C (S ) = (S ) (E) (C ) = (S ) (TITE) I=A,B,C C I I I I C C * -1 C FIRST GET COMMON PRODUCT (S )(G ) C 4 4 C C INVERT (G ) STORE INVERSE BACK INTO (G ) C 4 4 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (3,G(28),3,PROD9(1),0,DETERM,ISING,TEMP9(1)) C C CHECK FOR SINGULARITY. ISING = 2 IMPLIES SINGULARITY C GO TO (210,200), ISING 200 CALL MESAGE (-30,36,ECPT(1)) C 210 CALL GMMATS (SSUM(46),5,3,0, G(28),3,3,0, PROD15(1)) C DO 260 I = 1,3 C C (PROD15)(G ) C I C CALL GMMATS (PROD15(1),5,3,0, G(9*I-8),3,3,0, TEMP15(1)) C C SUBTRACT TEMP15 FROM S C I C NPOINT = 15*I - 15 DO 220 K = 1,15 NPOINT = NPOINT + 1 220 SSUM(NPOINT) = SSUM(NPOINT) - TEMP15(K) C C DO WE NEED TRANSFORMATION T C I NSUBC = 4*I + 9 IF (NECPT(NSUBC) .EQ. 0) GO TO 230 CALL TRANSS (NECPT(NSUBC),T(1)) CALL GMMATS (T(1),3,3,1, E( 1),3,3,0, TITE( 1)) CALL GMMATS (T(1),3,3,1, E(10),3,3,0, TITE(10)) GO TO 250 C 230 DO 240 K = 1,18 240 TITE(K) = E(K) C 250 CALL GMMATS (SSUM(15*I-14),5,3,0, TITE(1),6,3,1, PH1OUT(30*I-21)) C 260 CONTINUE C C I, Z1, Z2, ELEM ID, 3 SILS FOR PHASE 2. PH1OUT(5) IS A DUMMY C PH1OUT(1) = ECPT( 1) PH1OUT(2) = ECPT( 2) PH1OUT(3) = ECPT( 3) PH1OUT(4) = ECPT( 4) PH1OUT(6) = ECPT( 7) PH1OUT(7) = ECPT(11) PH1OUT(8) = ECPT(12) C C ALL PHASE ONE COMPLETE C RETURN END ================================================ FILE: mis/pstq1.f ================================================ SUBROUTINE PSTQ1(NTYPE) C THIS ROUTINE CALCULATES PHASE I OUTPUT FOR PLA3 C FOR COMBINATION ELEMENTS C C**************** PHASE I STRESS DATA RECOVERY ************************ C ********************************************************************** C C 9/12/67 E C P T L I S T I N G C *************************** C ECPT TRMEM QDMEM TRPLT QDPLT TRIA1 QUAD1 TRIA2 QUAD2 C ********************************************************************** C 1 EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID C 2 GRID A GRID A GRID A GRID A GRID A GRID A GRID A GRID A C 3 GRID B GRID B GRID B GRID B GRID B GRID B GRID B GRID B C 4 GRID C GRID C GRID C GRID C GRID C GRID C GRID C GRID C C 5 THETA GRID D THETA GRID D THETA GRID D THETA GRID D C 6 MATID THETA MATID1 THETA MATID1 THETA MAT ID THETA C 7 T MAT ID I MATID1 T1 MATID1 T MAT ID C 8 NS MASS T MATID2 I MATID2 T1 NS MASS T C 9 CSID 1 NS MASS T2 MATID2 I MATID2 CSID 1 NS MASS C 10 X1 CSID 1 NS MASS T2 MATID3 I X1 CSID 1 C 11 Y1 X1 Z1 NS MASS T2 MATID3 Y1 X1 C 12 Z1 Y1 Z2 Z1 NS MASS T2 Z1 Y1 C 13 CSID 2 Z1 CSID 1 Z2 Z1 NS MASS CSID 2 Z1 C 14 X2 CSID 2 X1 CSID 1 Z2 Z1 X2 CSID 2 C 15 Y2 X2 Y1 X1 CSID 1 Z2 Y2 X2 C 16 Z2 Y2 Z1 Y1 X1 CSID 1 Z2 Y2 C 17 CSID 3 Z2 CSID 2 Z1 Y1 X1 CSID 3 Z2 C 18 X3 CSID 3 X2 CSID 2 Z1 Y1 X3 CSID 3 C 19 Y3 X3 Y2 X2 CSID 2 Z1 Y3 X3 C 20 Z3 Y3 Z2 Y2 X2 CSID 2 Z3 Y3 C 21 TEMP Z3 CSID 3 Z2 Y2 X2 TEMP Z3 C 22 CSID 4 X3 CSID 3 Z2 Y2 CSID 4 C 23 X4 Y3 X3 CSID 3 Z2 X4 C 24 Y4 Z3 Y3 X3 CSID 3 Y4 C 25 Z4 TEMP Z3 Y3 X3 Z4 C 26 TEMP CSID 4 Z3 Y3 TEMP C 27 X4 TEMP Z3 C 28 Y4 CSID 4 C 29 Z4 X4 C 30 TEMP Y4 C 31 Z4 C 32 TEMP C ********************************************************************** C DIMENSION SAVE(32) C COMMON /PLA3ES/ ECPT(100), PH1OUT(173) ,DUMMY(27) C C C THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2 C C NTYPE = 1 IMPLIES STRIA1 C NTYPE = 2 IMPLIES STRIA2 C NTYPE = 3 IMPLIES SQUAD1 C NTYPE = 4 IMPLIES SQUAD2 C C SAVE THE INCOMING ECPT C DO 10 I=1,32 10 SAVE(I) = ECPT(I) C C TRANSFER TO OPERATIONS DESIRED C C STRIA1 STRIA2 SQUAD1 SQUAD2 GO TO(20,100,150,230),NTYPE C C ************** C *** STRIA1 *** C ************** C C SET UP ECPT FOR PSTRM1, FIRST CHECK T1 FOR ZERO 20 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 50 DO 30 I=9,21 30 ECPT(I) = SAVE(I + 6) C CALL PSTRM1 (0) C C MOVE OUTPUT FROM PSTRM1 TO NEAR BOTTOM OF PH1OUT C WORDS (1 THRU 36) DOWN TO (99 THRU 134) C C DO 40 I=1,36 40 PH1OUT(I + 98) = PH1OUT(I) GO TO 60 C 50 PH1OUT( 99) = ECPT(1) PH1OUT(100) = 0.0E0 C C SET UP CALL TO PSTPL1, CHECK I EQUAL TO ZERO 60 IF( SAVE(9) .EQ. 0.0E0 ) GO TO 90 DO 70 I=1,5 70 ECPT(I) = SAVE(I) DO 80 I=6,25 80 ECPT(I) = SAVE(I + 2) C CALL PSTPL1 RETURN C 90 PH1OUT(1) = ECPT(1) PH1OUT(2) = 0.0E0 RETURN C C ************** C *** STRIA2 *** C ************** 100 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 140 C SET UP CALL TO PSTRM1 C C ECPT IS OK AS DELIVERED TO THIS ROUTINE C CALL PSTRM1(0) C C MOVE OUTPUT FROM PSTRM1 TO NEAR BOTTOM OF PH1OUT C WORDS (1 THRU 36) DOWN TO (99 THRU 134) C DO 110 I=1,36 110 PH1OUT(I + 98) = PH1OUT(I) C C SET UP CALL TO PSTPL1 C DO 120 I=1,6 120 ECPT(I) = SAVE(I) ECPT(7) = SAVE(7) ** 3 / 12.0E0 ECPT(8) = SAVE(6) ECPT(9) = SAVE(7) ECPT(10)= SAVE(8) ECPT(11) = SAVE(7)/2.0E0 ECPT(12) = -ECPT(11) DO 130 I=13,25 130 ECPT(I) = SAVE(I - 4) C CALL PSTPL1 RETURN C 140 PH1OUT( 1) = ECPT(1) PH1OUT( 2) = 0.0E0 PH1OUT( 99) = ECPT(1) PH1OUT(100) = 0.0E0 RETURN C C ************** C *** SQUAD1 *** C ************** C 150 IF(SAVE(8).EQ.0.0E0)GO TO 180 C C SET UP CALL TO PSQDM1 C ECPT(9) = SAVE(13) DO 160 I=10,26 160 ECPT(I) = SAVE(I+6) C CALL PSQDM1 C C MOVE OUTPUT DOWN TO NEAR BOTTOM OF PH1OUT C WORDS (1 THRU 45) DOWN TO (129 THRU 173) C DO 170 I=1,45 170 PH1OUT(I + 128) = PH1OUT(I) C GO TO 190 180 PH1OUT(129) = ECPT(1) PH1OUT(130) = 0.0E0 C 190 IF( SAVE(10) .EQ. 0.0E0 ) GO TO 220 C C SET UP CALL TO PSQPL1 C DO 200 I=1,6 200 ECPT(I) = SAVE(I) DO 210 I=7,30 210 ECPT(I) = SAVE(I + 2) C CALL PSQPL1 RETURN C 220 PH1OUT(1) = ECPT(1) PH1OUT(2) = 0.0E0 RETURN C C ************** C *** SQUAD2 *** C ************** C 230 IF( SAVE(8) .EQ. 0.0E0 ) GO TO 270 C C SET UP CALL TO PSQDM1 C C ECPT IS OK AS DELIVERED TO THIS ROUTINE C CALL PSQDM1 C C MOVE OUTPUT DOWN TO NEAR BOTTOM OF PH1OUT C WORDS (1 THRU 45) DOWN TO (129 THRU 173) C DO 240 I=1,45 240 PH1OUT(I + 128) = PH1OUT(I) C C C SET UP CALL TO PSQPL1 C DO 250 I=1,7 250 ECPT(I) = SAVE(I) ECPT(8) = SAVE(8) **3 / 12.0E0 ECPT(9) = SAVE(7) ECPT(10)= SAVE(8) ECPT(11)= SAVE(9) ECPT(12) = SAVE(8)/2.0E0 ECPT(13) =-ECPT(12) DO 260 I=14,30 260 ECPT(I) = SAVE(I - 4) C CALL PSQPL1 C RETURN C 270 PH1OUT(1) = ECPT(1) PH1OUT(2) = 0.0E0 PH1OUT(129) = ECPT(1) PH1OUT(130) = 0.0E0 RETURN END ================================================ FILE: mis/pstq2.f ================================================ SUBROUTINE PSTQ2 (NPTS) C THIS ROUTINE CALCULATES PHASE II OUTPUT FOR PLA3 C FOR COMBINATION ELEMENTS C C ****PHASE II OF STRESS DATA RECOVERY********* C C NPTS = 3 IMPLIES STRIA1 OR STRIA2 (PHASE II) C NPTS = 4 IMPLIES SQUAD1 OR SQUAD2 (PHASE II) C DIMENSION NSIL(4), NPH1OU(2), SI(36) C COMMON /PLA3UV/ IVEC,Z(24) COMMON /PLA3ES/ PH1OUT(200),FORVEC(6),DUMMY(94) COMMON /PLA32S/ STRESS(3),TEMP,DELTA,NPOINT,I,J,NPT1,VEC(5),TEM, 1 Z1OVRI, Z2OVRI,DUM1(308) COMMON /SOUT/ STR(18) EQUIVALENCE 1 (NSIL(1),PH1OUT(2)) 2 ,(NPH1OU(1),PH1OUT(1)) 3 ,(SI(1),PH1OUT(9)) C C ********************************************************************** C ********************************************************************** C C PHASE I OUTPUT FROM THE PLATE IS THE FOLLWOING C C PH1OUT(1) ELEMENT ID C PH1OUT(2 THRU 5) 3 SILS AND DUMMY OR 4 SILS C PH1OUT(6) I C PH1OUT(7 THRU 8) Z1 AND Z2 C PH1OUT(9 THRU 30*NPTS+8) 3 OR 4 S SUB I 5X6 ARRAYS C C ********************************************************************** C C PHASE I OUTPUT FROM THE MEMBRANE IS THE FOLLOWING C NOTE..BEGIN = 30*NPTS+8 C C PH1OUT(BEGIN + 1) ELEMENT ID C PH1OUT(BEGIN + 2 THRU BEGIN + 5) 3 SILS AND DUMMY OR 4 SILS C PH1OUT(BEGIN + 6) T SUB 0 C PH1OUT(BEGIN + 7 THRU BEGIN + 9) S SUB T 3X1 ARRAY C PH1OUT(BEGIN + 10 THRU BEGIN + 9*NPTS+9) 3 OR 4 S SUB I 3X3 ARRAYS C C ********************************************************************** C ********************************************************************** C C THE ABOVE ELEMENTS ARE COMPOSED OF PLATES AND MEMBRANES... C SOME MAY ONLY CONTAIN PLATES WHILE OTHERS MAY ONLY CONTAIN C MEMBRANES. C A CHECK FOR A ZERO FIRST SIL IN THE PHASE I OUTPUT, WHICH C INDICATES WHETHER ONE OR THE OTHER HAS BEEN OMITTED, IS MADE BELOW C C C C FIRST GET FORCE VECTOR FOR THE PLATE CONSIDERATION C C M , M , M , V , V C X Y XY X Y C C NPTS C THE 5X1 FORCE VECTOR = SUMMATION (S )(U ) C I=1 I I C C C ZERO OUT LOCAL STRESSES C SIG X 1 = 0.0E0 SIG Y 1 = 0.0E0 SIG XY 1 = 0.0E0 SIG X 2 = 0.0E0 SIG Y 2 = 0.0E0 SIG XY 2 = 0.0E0 C IF( NSIL(1) .EQ. 0 ) GO TO 30 C C FORM SUMMATION C DO 20 I=1,NPTS C C POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE C NPOINT = IVEC + NSIL(I) - 1 C CALL GMMATS( SI(30*I-29),5,6,0, Z(NPOINT),6,1,0, VEC(1) ) C DO 10 J=2,6 10 FORVEC(J) = FORVEC(J) + VEC(J-1) C 20 CONTINUE C C FORCE VECTOR IS NOW COMPLETE C Z1 = PH1OUT(7) Z2 = PH1OUT(8) C Z1 OVR I = - PH1OUT(7) / PH1OUT(6) Z2 OVR I = - PH1OUT(8) / PH1OUT(6) C SIG X 1 = FORVEC(2) * Z1 OVR I SIG Y 1 = FORVEC(3) * Z1 OVR I SIG XY 1 = FORVEC(4) * Z1 OVR I SIG X 2 = FORVEC(2) * Z2 OVR I SIG Y 2 = FORVEC(3) * Z2 OVR I SIG XY 2 = FORVEC(4) * Z2 OVR I C ******************************* C GO TO 40 30 Z1 = 0.0E0 Z2 = 0.0E0 C C FIND SIG X, SIG Y, SIG XY, FOR MEMBRANE CONSIDERATION 40 IF( NPH1OU(30*NPTS+10) .EQ. 0 ) GO TO 90 C C C I=NPTS C STRESS VECTOR = ( SUMMATION(S )(U ) ) C I=1 I I C DO 60 I=1,NPTS C C POINTER TO I-TH SIL IN PH1OUT NPOINT = 30*NPTS + 9 + I C POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE NPOINT = IVEC + NPH1OU (NPOINT) - 1 C C POINTER TO S SUB I 3X3 NPT1 = 30 * NPTS + 9 + 9 * I C CALL GMMATS ( PH1OUT(NPT1),3,3,0, Z(NPOINT),3,1,0, VEC(1) ) C DO 50 J=1,3 50 STRESS(J) = STRESS(J) + VEC(J) C 60 CONTINUE C C C ADD MEMBRANE STRESSES TO PLATE STRESSES C SIG X 1 = SIG X 1 + STRESS(1) SIG Y 1 = SIG Y 1 + STRESS(2) SIG XY 1 = SIG XY 1 + STRESS(3) SIG X 2 = SIG X 2 + STRESS(1) SIG Y 2 = SIG Y 2 + STRESS(2) SIG XY 2 = SIG XY 2 + STRESS(3) C C STRESS OUTPUT VECTOR IS THE FOLLOWING C C 1) ELEMENT ID C 2) Z1 = FIBER DISTANCE 1 C 3) SIG X 1 C 4) SIG Y 1 C 5) SIG XY 1 C 6) ANGLE OF ZERO SHEAR AT Z1 C 7) SIG P1 AT Z1 C 8) SIG P2 AT Z1 C 9) TAU MAX = MAXIMUM SHEAR STRESS AT Z1 C C 10) ELEMENT ID C 11) Z2 = FIBER DISTANCE 2 C 12) SIG X 2 C 13) SIG Y 2 C 14) SIG XY 2 C 15) ANGLE OF ZERO SHEAR AT Z2 C 16) SIG P1 AT Z2 C 17) SIG P2 AT Z2 C S7) SIG P2 AT Z2 C 18) TAU MAX = MAXIMUM SHEAR STRESS AT Z2 C C 90 IF( NPH1OU(2) .EQ. 0 .AND. NPH1OU(30*NPTS+10) .EQ. 0 ) GO TO 120 C C COMPUTE PRINCIPAL STRESSES C STR( 1) = PH1OUT(1) STR( 2) = Z1 STR( 3) = SIG X 1 STR( 4) = SIG Y 1 STR( 5) = SIG XY 1 STR(10) = PH1OUT(1) STR(11) = Z2 STR(12) = SIG X 2 STR(13) = SIG Y 2 STR(14) = SIG XY 2 C DO 110 I=3,12,9 TEMP = STR(I) - STR(I+1) STR(I+6) = SQRT( (TEMP/2.0E0)**2 + STR(I+2)**2 ) DELTA = ( STR(I) + STR(I+1) ) / 2.0E0 STR(I+4) = DELTA + STR(I+6) STR(I+5) = DELTA - STR(I+6) DELTA = 2.0E0 * STR(I+2) IF( ABS(DELTA) .LT. 1.0E-15 .AND. ABS(TEMP) .LT. 1.0E-15)GO TO 100 STR(I+3) = ATAN2( DELTA,TEMP ) * 28.6478898E0 GO TO 110 100 STR(I+3) = 0.0E0 110 CONTINUE C GO TO 140 120 DO 130 I=2,18 130 STR(I) = 0.0E0 140 STR(1) = PH1OUT(1) STR(10) = PH1OUT(1) C C C ADDITION TO ELIMINATE 2ND ELEMENT ID IN OUTPUT C DO 150 I=10,17 150 STR(I) = STR(I+1) C RETURN END ================================================ FILE: mis/pstrb1.f ================================================ SUBROUTINE PSTRB1 (IOPT) C C THIS ROUTINE DOES SUB-CALCULATIONS FOR PLATE ELEMENTS IN PLA3 C C THIS ROUTINE IS SIMILAR TO STRBS1, BUT SINCE THE BASIC BENDING C TRIANGLE (IOPT = 0) IS NOT USED IN PLA, THE CORRESPONDING C EXECUTIABLE CODE FOR THAT CASE IS NOT USED. C C PHASE ONE FOR STRESS RECOVERY C C IOPT = 0 (BASIC BENDING TRIANGLE) C IOPT = 1 (SUB-CALCULATIONS FOR SQDPL1) C IOPT = 2 (SUB-CALCULATIONS FOR STRPL1) C C CALLS FROM THIS ROUTINE ARE MADE TO C C PLAMAT - ROTATES AND RETURNS GP MATRIX C MAT - MATERIAL DATA ROUTINE C TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER C INVERS - SINGLE PRECISION INVERSE ROUTINE C GMMATS - SINGLE PRECISION MATRIX MULTIPLY AND TRANSPOSE C MESAGE - ERROR MESSAGE WRITER C INTEGER SUBSCA,SUBSCB REAL KS,J2X2 DIMENSION D(9),G2X2(4),J2X2(4),S(18),ECPT(1),G(9),HIC(18), 1 HIB(18),TITE(18),T(9),KS(30),HINV(36) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE, 2 G2X211, G2X212, G2X222 COMMON /PLA32S/ A(225),XSUBB,XSUBC,YSUBC,E(18),TEMP,XBAR,AREA, 1 XCSQ,YBAR2,YCSQ,YBAR,XBSQ,PX2,XCYC,PY2,PXY2,XBAR3, 2 YBAR3,DETERM,PROD9(9),TEMP9(9),NSIZED,DUMDUM(4), 3 NPIVOT,THETA ,NSUBC,ISING,SUBSCA,SUBSCB,NERROR, 4 NBEGIN,NTYPED,XC,YC,YC2,YC3,ISUB,XC3,DUM55(26) COMMON /PLA3ES/ NECPT(1),NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU, 1 Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,X3, 2 Y3,Z3,DUMB(76),PH1OUT(200) EQUIVALENCE (D(1),G(1),A(79)),(ECPT(1),NECPT(1)), 1 (KS(1),PH1OUT(1)),(G2X2(1),A(88)),(S(1),A(55)), 2 (TITE(1),A(127)),(J2X2(1),A(92)),(T(1),A(118)), 3 (HIB(1),A(109)),(HIC(1),A(127)),(HINV(1),A(73)) C C ECPT LIST FOR BASIC BENDING TRIANGLE NAME IN C THIS C ECPT ROUTINE TYPE C ========================================== ======== ======= C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID 1 MATID1 INTEGER C ECPT( 7) = I = MOMENT OF INERTIA EYE REAL C ECPT( 8) = MATERIAL ID 2 MATID2 INTEGER C ECPT( 9) = T2 T2 REAL C ECPT(10) = NON-STRUCTURAL-MASS FMU REAL C ECPT(11) = Z1 Z11 REAL C ECPT(12) = Z2 Z22 REAL C ECPT(13) = COORD. SYSTEM ID 1 NECPT(13) INTEGER C ECPT(14) = X1 X1 REAL C ECPT(15) = Y1 Y1 REAL C ECPT(16) = Z1 Z1 REAL C ECPT(17) = COORD. SYSTEM ID 2 NECPT(17) INTEGER C ECPT(18) = X2 X2 REAL C ECPT(19) = Y2 Y2 REAL C ECPT(20) = Z2 Z2 REAL C ECPT(21) = COORD. SYSTEM ID 3 NECPT(21) INTEGER C ECPT(22) = X3 X3 REAL C ECPT(23) = Y3 Y3 REAL C ECPT(24) = Z3 Z3 REAL C ECPT(25) = ELEMENT TEMPERATURE ELTEMP REAL C MATID = MATID1 INFLAG = -1 C CALL PLAMAT C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT) C DO 50 I = 1,9 50 D(I) = G(I)*EYE C XBAR = (XSUBB+XSUBC)/3.0 YBAR = YSUBC/3.0 C C FORMING K 5X6 AND STORING TEMPORARILY IN PH1OUT OUTPUT SPACE. C S (EQUIVALENCED) C XC3 = 3.0*XC YC3 = 3.0*YC YC2 = 2.0*YC KS( 1) = D(1) KS( 2) = D(3) KS( 3) = D(2) KS( 4) = D(1)*XC3 KS( 5) = D(2)*XC + D(3)*YC2 KS( 6) = D(2)*YC3 KS( 7) = D(2) KS( 8) = D(6) KS( 9) = D(5) KS(10) = D(2)*XC3 KS(11) = D(5)*XC + D(6)*YC2 KS(12) = D(5)*YC3 KS(13) = D(3) KS(14) = D(9) KS(15) = D(6) KS(16) = D(3)*XC3 KS(17) = D(6)*XC + D(9)*YC2 KS(18) = D(6)*YC3 C C ROWS 4 AND 5 C KS(19) = 0.0 KS(20) = 0.0 KS(21) = 0.0 KS(22) =-D(1)*6.0 KS(23) =-D(2)*2.0 - D(9)*4.0 KS(24) =-D(6)*6.0 KS(25) = 0.0 KS(26) = 0.0 KS(27) = 0.0 KS(28) =-D(3)*6.0 KS(29) =-D(6)*6.0 KS(30) =-D(5)*6.0 C C MULTIPLY FIRST 3 ROWS BY 2.0 C DO 70 I = 1,18 70 KS(I) = KS(I)*2.0 C XCSQ = XSUBC**2 YCSQ = YSUBC**2 XBSQ = XSUBB**2 XCYC = XSUBC*YSUBC C C F1LL (HBAR) MATRIX STORING AT A(37) THRU A(72) C DO 90 I = 37,72 90 A(I) = 0.0 A(37) = XBSQ A(40) = XBSQ*XSUBB A(44) = XSUBB A(49) =-2.0*XSUBB A(52) =-3.0*XBSQ A(55) = XCSQ A(56) = XCYC A(57) = YCSQ A(58) = XCSQ*XSUBC A(59) = YCSQ*XSUBC A(60) = YCSQ*YSUBC A(62) = XSUBC A(63) = YSUBC*2.0 A(65) = XCYC *2.0 A(66) = YCSQ *3.0 A(67) =-2.0*XSUBC A(68) =-YSUBC A(70) =-3.0*XCSQ A(71) =-YCSQ C IF (T2 .EQ. 0.0) GO TO 110 C C ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 100 C ARE NECESSARY IF T2 IS NON-ZERO. C C GET THE G2X2 MATRIX C MATID = MATID2 INFLAG = 3 CALL MAT (ECPT(1)) IF (G2X211.EQ.0.0 .AND. G2X212.EQ.0.0 .AND. G2X222.EQ.0.0) 1 GO TO 110 G2X2(1) = G2X211*T2 G2X2(2) = G2X212*T2 G2X2(3) = G2X212*T2 G2X2(4) = G2X222*T2 C DETERM = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2) J2X2(1) = G2X2(4)/DETERM J2X2(2) =-G2X2(2)/DETERM J2X2(3) =-G2X2(3)/DETERM J2X2(4) = G2X2(1)/DETERM C C (H ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE C YQ RIGHT PORTION IS COMPUTED AND USED AS A (2X3). THE LEFT C 2X3 PORTION IS NULL. THE RIGHT PORTION WILL BE STORED AT C A(73) THRU A(78) UNTIL NOT NEEDED ANY FURTHER. C TEMP = 2.0*D(2) + 4.0*D(9) A(73) = -6.0*(J2X2(1)*D(1) + J2X2(2)*D(3)) A(74) = -J2X2(1)*TEMP + 6.0*J2X2(2)*D(6) A(75) = -6.0*(J2X2(1)*D(6) + J2X2(2)*D(5)) A(76) = -6.0*(J2X2(2)*D(1) + J2X2(4)*D(3)) A(77) = -J2X2(2)*TEMP + 6.0*J2X2(4)*D(6) A(78) = -6.0*(J2X2(2)*D(6) + J2X2(4)*D(5)) C C THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H ) MATRIX (2X3) C YQ C C ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF(H )(H ) C UY YQ C THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW. C NO (H ) MATRIX IS ACTUALLY COMPUTED DIRECTLY. C UY C C THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17. C DO 100 I = 1,3 A(I+39) = A(I+39) + XSUBB*A(I+72) 100 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75) C C THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO C 110 CONTINUE C C AT THIS POINT INVERT (H) WHICH IS STORED AT A(37) THRU A(72) C STORE INVERSE BACK IN A(37) THRU A(72) C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUNTLY. C ISING = -1 CALL INVERS (6,A(37),6,A(73),0,DETERM,ISING,A(79)) C C CHECK TO SEE IF H WAS SINGULAR C IF (ISING .NE. 2) GO TO 120 C C ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION. C CALL MESAGE (-30,38,ECPT(1)) C C SAVE H-INVERSE IF TRI-PLATE IS CALLING C 120 DO 130 I = 1,36 130 HINV(I) = A(I+36) C C FILL S-MATRIX, EQUIVALENCED TO A(55). (6X3) C S( 1) = 1.0 S( 2) = 0.0 S( 3) =-XSUBB S( 4) = 0.0 S( 5) = 1.0 S( 6) = 0.0 S( 7) = 0.0 S( 8) = 0.0 S( 9) = 1.0 S(10) = 1.0 S(11) = YSUBC S(12) =-XSUBC S(13) = 0.0 S(14) = 1.0 S(15) = 0.0 S(16) = 0.0 S(17) = 0.0 S(18) = 1.0 C C COMPUTE S , S , AND S NO TRANSFORMATIONS C A B C C C -1 C S = - K H S , S = K H , S = K H C A S B S IB C S IC C C S COMPUTATION. C A C CALL GMMATS (HINV(1),6,6,0, S(1),6,3,0, A(16)) C C DIVIDE H-INVERSE INTO A LEFT 6X3 AND RIGHT 6X3 PARTITION. C I = 0 J =-6 150 J = J + 6 K = 0 160 K = K + 1 I = I + 1 ISUB = J + K HIB(I) = HINV(ISUB ) HIC(I) = HINV(ISUB + 3) IF (K .LT. 3) GO TO 160 IF (J .LT. 30) GO TO 150 C CALL GMMATS (KS(1),5,6,0, A(16),6,3,0, A(1)) C C MULTIPLY S SUB A BY -1 C DO 170 I = 1,15 170 A(I) = -A(I) C C S COMPUTATION C B C CALL GMMATS (KS,5,6,0, HIB,6,3,0, A(16)) C C S COMPUTATION C C C CALL GMMATS (KS,5,6,0, HIC,6,3,0, A(31)) C RETURN END ================================================ FILE: mis/pstri1.f ================================================ SUBROUTINE PSTRI1 C THIS ROUTINE CALCULATES GP,SET-S UP THE ECPT AND UPDATES THE ECPT C FOR THE TRIA1 ELEMENTS C C ECPT FOR TRIA1 C EL.ID ECPT( 1) C GRID A ECPT( 2) C GRID B ECPT( 3) C GRID C ECPT( 4) C THETA ECPT( 5) C MATID1 ECPT( 6) C T1 ECPT( 7) C MATID2 ECPT( 8) C I ECPT( 9) C MATID3 ECPT(10) C T2 ECPT(11) C NS MASS ECPT(12) C Z1 ECPT(13) C Z2 ECPT(14) C CSID 1 ECPT(15) C X1 ECPT(16) C Y1 ECPT(17) C Z1 ECPT(18) C CSID 2 ECPT(19) C X2 ECPT(20) C Y2 ECPT(21) C Z2 ECPT(22) C CSID3 ECPT(23) C X3 ECPT(24) C Y3 ECPT(25) C Z3 ECPT(26) C TEMP ECPT(27) C EPS SUB 0 (PREVIOUS STRAIN) ECPT(28) C EPS SUB STAR (LAST STRAIN) ECPT(29) C MODULUS OF ELASTICITY ECPT(30) C SIGMA X STRESS ECPT(31) C SIGMA Y STRESS ECPT(32) C SIGMA XY STRESS ECPT(33) C M X STAR FORCE ECPT(34) C M Y STAR FORCE ECPT(35) C M XX STAR FORCE ECPT(36) C V X STAR FORCE ECPT(37) C V Y STAR FORCE ECPT(38) C U A (6X1 DISPLACEMENT VECTOR) ECPT(39) C U B (6X1 DISPLACEMENT VECTOR) ECPT(45) C U C (6X1 DISPLACEMENT VECTOR) ECPT(51) C C ****************************************************************** C REAL NU C DIMENSION NECPT(27),NECPTS(27) COMMON /PLA32E/ ECPT(27), EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS, 1 FORVEC(5),UI(18),DUMMY(44) COMMON /PLA3ES/ ECPTSA(100), PH1OUT(200) COMMON /PLA3UV/ IVEC, Z(24) C C SCRATCH BLOCK 325 CELLS C COMMON /PLA32S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS, 1 EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3) 2, EXTRA(4) COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA32C/ GAMMA, GAMMAS, IPASS COMMON /PLAGP/ GP(9), MIDGP , ELID C EQUIVALENCE (NECPT(6),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS) 1, (G13,NU) , (G11,ESUB0) 2, (NECPTS(1),ECPTSA(1)) 3, (G12,NIROF) C C SETUP GP MATRIX FOR PLAMAT C ELID = ECPT(1) MIDGP = MATID1 DO 10 I=1,9 10 GP(I)=0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF(ESTAR .EQ. 0.0) GO TO 50 IF(IPASS .NE. 1 ) GO TO 20 MATID = MATID1 COSTH = 1.0 SINTH = 0.0E0 INFLAG= 2 C CALL MAT(ECPT(1)) C GP(1) = G11 GP(2) = G12 GP(3) = G13 GP(4) = G12 GP(5) = G22 GP(6) = G23 GP(7) = G13 GP(8) = G23 GP(9) = G33 GO TO 50 20 IF(TAU0 .EQ. 0.0) GO TO 50 MATID = MATID1 INFLAG = 1 C CALL MAT(ECPT(1)) C F = 9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR) SX = (2.0*SIGXS - SIGYS)/ 3.0 SY = (2.0*SIGYS - SIGXS)/ 3.0 GP(1) = (1.0+SX**2*F) / ESUB0 GP(2) = (-NU+SX*SY*F) / ESUB0 GP(3) = (2.0*SIGXYS*SX*F) / ESUB0 GP(4) = GP(2) GP(5) = (1.0+SY**2*F) / ESUB0 GP(6) = (2.0*SIGXYS*SY*F) / ESUB0 GP(7) = GP(3) GP(8) = GP(6) GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. IDUM2 = -1 CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3) C C CHECK SINGULARITY C IF( IDUM2 .EQ. 2) CALL MESAGE(-30,38,ECPT(1)) C C CALCULATE PHASE I STRESSES C 50 DO 30 I = 1,32 30 ECPTSA(I) = ECPT(I) NECPTS(2) = 1 NECPTS(3) = 7 NECPTS(4) = 13 C CALL PSTQ1 (1) C C C CALCULATE PHASE II STRESSES C IVEC = 1 DO 60 I = 1,24 60 Z(I) = UI(I) DO 70 I = 1,200 70 ECPTSA(I) = PH1OUT(I) S(1) = SIGXS S(2) = SIGYS S(3) = SIGXYS I201 = 201 ECPTSA(I201) = ECPT(1) DO 75 I=1,5 75 ECPTSA(I+201) = FORVEC(I) C CALL PSTQ2 (3) C C C UPDATE ECPT FOR STRESSES C SIGXS = S(1) SIGYS = S(2) SIGXYS = S(3) C C NEW FORCES ARE IN /PLA3ES/ AT LOCATIONS 202-206 C DO 76 I=1,5 76 FORVEC(I) = ECPTSA(I+201) TAU1 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) MATID= MATID1 INFLAG = 8 PLAARG = TAU1 C CALL MAT(ECPT(1)) C C TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION C IF ( NIROF . EQ. 1 ) GO TO 80 C C RETURNS EPS SUB 1 GIVEN TAU1 C EPS1 = PLAANS DEPS = EPS1 - EPSS DEPSS= EPSS - EPS0 EPS2 = EPS1 + GAMMA * DEPS INFLAG=6 PLAARG = EPS2 C CALL MAT(ECPT(1)) C C RETURNS TAU2 GIVEN EPS2 C TAU2 = PLAANS ESTAR = 0.0 IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1) EPS0 = EPSS EPSS = EPS1 RETURN C 80 ESTAR = 0.0 RETURN END ================================================ FILE: mis/pstri2.f ================================================ SUBROUTINE PSTRI2 C THIS SUBROUTINE IS THE DRIVER FOR THE TRIA2 CALCULATIONS IN C PLA3 C C C ECPT FOR TRIA2 C ****************************************************************** C 1 EL.ID C 2 GRID A C 3 GRID B C 4 GRID C C 5 THETA C 6 MAT ID C 7 T C 8 MS MASS C 9 CSID 1 C 10 X1 C 11 Y1 C 12 Z1 C 13 CSID 2 C 14 X2 C 15 Y2 C 16 Z2 C 17 CSID 3 C 18 X3 C 19 Y3 C 20 Z3 C 21 TEMP C 22 EPS0 C 23 EPSS C 24 ESTAR C 25 SIGXS C 26 SIGYS C 27 SIGXYS C 28 MXS C 29 MYS C 30 MXYS C 31 VXS C 32 VYS C 33 U(A) (6X1) C 39 U(B) (6X1) C 45 U(C) (6X1) C C ****************************************************************** C REAL NU C DIMENSION NECPT(21), NECPTS(21) COMMON /PLA32E/ ECPT(21),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS, 1 FORVEC(5), UI(18), DUMMY(50) COMMON /PLA3ES/ ECPTSA(100), PH1OUT(200) COMMON /PLA3UV/ IVEC, Z(24) C C SCRATCH BLOCK 325 CELLS C COMMON /PLA32S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS, 1 EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3) 2, EXTRA(4) COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA32C/ GAMMA, GAMMAS, IPASS COMMON /PLAGP/ GP(9), MIDGP , ELID C EQUIVALENCE (NECPT(6),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS) 1, (G13,NU) , (G11,ESUB0) 2, (NECPTS(1),ECPTSA(1)) 3, (G12,NIROF) C C SETUP GP MATRIX FOR PLAMAT C ELID = ECPT(1) MIDGP = MATID1 DO 10 I=1,9 10 GP(I)=0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF(ESTAR .EQ. 0.0) GO TO 50 IF(IPASS .NE. 1 ) GO TO 20 MATID = MATID1 COSTH = 1.0 SINTH = 0.0E0 INFLAG= 2 C CALL MAT(ECPT(1)) C GP(1) = G11 GP(2) = G12 GP(3) = G13 GP(4) = G12 GP(5) = G22 GP(6) = G23 GP(7) = G13 GP(8) = G23 GP(9) = G33 GO TO 50 20 IF(TAU0 .EQ. 0.0) GO TO 50 MATID = MATID1 INFLAG = 1 C CALL MAT(ECPT(1)) C F = 9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR) SX = (2.0*SIGXS - SIGYS)/ 3.0 SY = (2.0*SIGYS - SIGXS)/ 3.0 GP(1) = (1.0+SX**2*F) / ESUB0 GP(2) = (-NU+SX*SY*F) / ESUB0 GP(3) = (2.0*SIGXYS*SX*F) / ESUB0 GP(4) = GP(2) GP(5) = (1.0+SY**2*F) / ESUB0 GP(6) = (2.0*SIGXYS*SY*F) / ESUB0 GP(7) = GP(3) GP(8) = GP(6) GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. IDUM2 = -1 CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3) C C CHECK SINGULARITY C IF( IDUM2 .EQ. 2) CALL MESAGE(-30,38,ECPT(1)) C C CALCULATE PHASE I STRESSES C 50 DO 30 I = 1,32 30 ECPTSA(I) = ECPT(I) NECPTS(2) = 1 NECPTS(3) = 7 NECPTS(4) = 13 C CALL PSTQ1 (2) C C C CALCULATE PHASE II STRESSES C IVEC = 1 DO 60 I = 1,24 60 Z(I) = UI(I) DO 70 I = 1,200 70 ECPTSA(I) = PH1OUT(I) S(1) = SIGXS S(2) = SIGYS S(3) = SIGXYS I201 = 201 ECPTSA(I201) = ECPT(1) DO 75 I=1,5 75 ECPTSA(I+201) = FORVEC(I) C CALL PSTQ2 (3) C C C UPDATE ECPT FOR STRESSES C SIGXS = S(1) SIGYS = S(2) SIGXYS = S(3) C C NEW FORCES ARE IN /PLA3ES/ AT LOCATIONS 202-206 C DO 76 I=1,5 76 FORVEC(I) = ECPTSA(I+201) TAU1 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) MATID= MATID1 INFLAG = 8 PLAARG = TAU1 C CALL MAT(ECPT(1)) C C TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION C IF ( NIROF . EQ. 1 ) GO TO 80 C C RETURNS EPS SUB 1 GIVEN TAU1 C EPS1 = PLAANS DEPS = EPS1 - EPSS DEPSS= EPSS - EPS0 EPS2 = EPS1 + GAMMA * DEPS INFLAG=6 PLAARG = EPS2 C CALL MAT(ECPT(1)) C C RETURNS TAU2 GIVEN EPS2 C TAU2 = PLAANS ESTAR = 0.0 IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1) EPS0 = EPSS EPSS = EPS1 RETURN C 80 ESTAR = 0.0 RETURN END ================================================ FILE: mis/pstrm.f ================================================ SUBROUTINE PSTRM C C THIS SUBROUTINE IS THE DRIVER FOR THE TRI-MEMBRANE CALCULATIONS C IN PLA3 C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID MATID INTEGER C ECPT( 7) = T T REAL C ECPT( 8) = NON-STRUCTURAL MASS FMU REAL C ECPT( 9) = COORD. SYSTEM ID 1 NECPT(9) INTEGER C ECPT(10) = X1 X1 REAL C ECPT(11) = Y1 Y1 REAL C ECPT(12) = Z1 Z1 REAL C ECPT(13) = COORD. SYSTEM ID 2 NECPT(13) INTEGER C ECPT(14) = X2 X2 REAL C ECPT(15) = Y2 Y2 REAL C ECPT(16) = Z2 Z2 REAL C ECPT(17) = COORD. SYSTEM ID 3 NECPT(17) INTEGER C ECPT(18) = X3 X3 REAL C ECPT(19) = Y3 Y3 REAL C ECPT(20) = Z3 Z3 REAL C ECPT(21) = ELEMENT TEMPERATURE ELTEMP REAL C ECPT(22) = STRAIN (MINUS ONE) EPS0 REAL C ECPT(23) = STRAIN (PRESENT) EPSS REAL C ECPT(24) = MODULUS OF ELASTICITY ESTAR REAL C ECPT(25) = STRESS SUB X SIGXS REAL C ECPT(26) = STRESS SUB Y SIGYS REAL C ECPT(27) = STRESS SUB XY SIGXYS REAL C ECPT(28) = DISPLACEMENT VECTOR A1 UI(1) REAL C ECPT(29) = DISPLACEMENT VECTOR A2 UI(2) REAL C ECPT(30) = DISPLACEMENT VECTOR A3 UI(3) REAL C ECPT(31) = DISPLACEMENT VECTOR B1 UI(4) REAL C ECPT(32) = DISPLACEMENT VECTOR B2 UI(5) REAL C ECPT(33) = DISPLACEMENT VECTOR B3 UI(6) REAL C ECPT(34) = DISPLACEMENT VECTOR C1 UI(7) REAL C ECPT(35) = DISPLACEMENT VECTOR C2 UI(8) REAL C ECPT(36) = DISPLACEMENT VECTOR C3 UI(9) REAL C C ****************************************************************** C REAL NU DIMENSION NECPT(21),NECPTS(21) COMMON /PLA32E/ ECPT(21),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS, 1 UI(9),DUMMY(64) COMMON /PLA3ES/ ECPTSA(100),PH1OUT(200) COMMON /PLA3UV/ IVEC,Z(24) C C SCRATCH BLOCK 325 CELLS C COMMON /PLA32S/ S(3),DUM(297),TAU0,TAU1,TAU2,F,SX,SY,DEPS, 1 DEPSS,EPS1,EPS2,DUM1,IDUM2,IDUM3(3,3),EXTRA(4) COMMON /MATIN / MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 COMMON /PLA32C/ GAMMA,GAMMAS,IPASS COMMON /PLAGP / GP(9),MIDGP,ELID EQUIVALENCE (NECPT(6),MATID1),(ECPT(1),NECPT(1)),(G11,PLAANS), 1 (G13,NU),(G11,ESUB0),(NECPTS(1),ECPTSA(1)), 2 (G12,NIROF) C C SETUP GP MATRIX FOR PLAMAT C ELID = ECPT(1) MIDGP = MATID1 DO 10 I = 1,9 10 GP(I) = 0.0 TAU0 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) IF (ESTAR .EQ. 0.) GO TO 50 IF (IPASS .NE. 1) GO TO 20 MATID = MATID1 COSTH = 1.0 SINTH = 0.0 INFLAG = 2 C CALL MAT (ECPT(1)) C GP(1) = G11 GP(2) = G12 GP(3) = G13 GP(4) = G12 GP(5) = G22 GP(6) = G23 GP(7) = G13 GP(8) = G23 GP(9) = G33 GO TO 50 20 IF (TAU0 .EQ. 0.0) GO TO 50 MATID = MATID1 INFLAG = 1 C CALL MAT (ECPT(1)) C F = 9.0*(ESUB0-ESTAR)/(4.0*TAU0**2*ESTAR) SX = (2.0*SIGXS-SIGYS)/3.0 SY = (2.0*SIGYS-SIGXS)/3.0 GP(1) = (1.0+SX**2*F) /ESUB0 GP(2) = (-NU+SX*SY*F) /ESUB0 GP(3) = (2.0*SIGXYS*SX*F)/ESUB0 GP(4) = GP(2) GP(5) = (1.0+SY**2*F)/ESUB0 GP(6) = (2.0*SIGXYS*SY*F)/ESUB0 GP(7) = GP(3) GP(8) = GP(6) GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2)/ESUB0 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUNTLY. C IDUM2 = -1 CALL INVERS (3,GP,3,0,0,DUM1,IDUM2,IDUM3) C C CHECK SINGULARITY C IF (IDUM2 .EQ. 2) CALL MESAGE (-30,38,ECPT(1)) C C CALCULATE PHASE I STRESSES C 50 DO 30 I = 1,32 30 ECPTSA(I) = ECPT(I) NECPTS(2) = 1 NECPTS(3) = 4 NECPTS(4) = 7 C CALL PSTRM1 (0) C C CALCULATE PHASE II STRESSES C IVEC = 1 DO 60 I = 1,24 60 Z(I) = UI(I) DO 70 I = 1,200 70 ECPTSA(I) = PH1OUT(I) S(1) = SIGXS S(2) = SIGYS S(3) = SIGXYS C CALL PSTRQ2 (1) C C UPDATE ECPT FOR STRESSES C SIGXS = S(1) SIGYS = S(2) SIGXYS = S(3) TAU1 = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2) MATID = MATID1 INFLAG = 8 PLAARG = TAU1 C CALL MAT (ECPT(1)) C C TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION C IF (NIROF .EQ. 1) GO TO 80 C C RETURNS EPS SUB 1 GIVEN TAU1 C EPS1 = PLAANS DEPS = EPS1 - EPSS DEPSS= EPSS - EPS0 EPS2 = EPS1 + GAMMA * DEPS INFLAG = 6 PLAARG = EPS2 C CALL MAT (ECPT(1)) C C RETURNS TAU2 GIVEN EPS2 C TAU2 = PLAANS ESTAR = 0.0 IF (EPS2-EPS1 .NE. 0.0) ESTAR = (TAU2-TAU1)/(EPS2-EPS1) EPS0 = EPSS EPSS = EPS1 RETURN C 80 ESTAR = 0.0 RETURN END ================================================ FILE: mis/pstrm1.f ================================================ SUBROUTINE PSTRM1 (NTYPE) C THIS ROUTINE CALCULATES PHASE I OUTPUT FOR PLA3 C BOTH FOR THE TRI-MEMBRANE AND SUB-CALCULATIONS FOR THE QUAD MEMBRANE C C ******** PHASE I OF STRESS DATA RECOVERY ************************* C ******** TRIANGULAR MEMBRANE ELEMENT ***************************** C C CALLS FROM THIS ROUTINE ARE MADE TO. . . C C PLAMAT - RETURNS STANDARD GP MATRIS ROTATED C TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER C GMMATS - SINGLE PRECISION MATRIX MULTIPLY AND TRANSPOSE C MESAGE - ERROR MESSAGE WRITER C C IF NTYPE = 0 TRI-MEMBRANE CALCULATIONS WILL BE DONE C C IF NTYPE = 1 QUAD-MEMBRANE CALCULATIONS WILL BE DONE C C DIMENSION G(9), ECPT(4) C COMMON /CONDAS/ CONSTS(5) COMMON /PLA3ES/ 1 NECPT(1) ,NGRID(3) 2 ,ANGLE ,MATID1 3 ,T ,FMU 4 ,DUMMY1 ,X1 5 ,Y1 ,Z1 6 ,DUMMY2 ,X2 7 ,Y2 ,Z2 8 ,DUMMY3 ,X3 9 ,Y3 ,Z3 ,DUMB(80) T ,PH1OUT(200) COMMON /PLA32S/ C(18), E(18), TI(9), TEMPAR(27), TEMP 2 ,XSUBB,XSUBC,YSUBC,VOL,REELMU,DELTA,FLAMDA,THETA ,DUMMY(244) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/G11,G12,G13,G22,G23,G33 C EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (G(1),TEMPAR(19)) ,(ECPT(1),NECPT(1)) C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID MATID INTEGER C ECPT( 7) = T T REAL C ECPT( 8) = NON-STRUCTURAL MASS FMU REAL C ECPT( 9) = COORD. SYSTEM ID 1 NECPT(9) INTEGER C ECPT(10) = X1 X1 REAL C ECPT(11) = Y1 Y1 REAL C ECPT(12) = Z1 Z1 REAL C ECPT(13) = COORD. SYSTEM ID 2 NECPT(13) INTEGER C ECPT(14) = X2 X2 REAL C ECPT(15) = Y2 Y2 REAL C ECPT(16) = Z2 Z2 REAL C ECPT(17) = COORD. SYSTEM ID 3 NECPT(17) INTEGER C ECPT(18) = X3 X3 REAL C ECPT(19) = Y3 Y3 REAL C ECPT(20) = Z3 Z3 REAL C ECPT(21) = ELEMENT TEMPERATURE ELTEMP REAL C C ****************************************************************** C C SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE C C E(1), E(3), E(5) WILL BE THE I-VECTOR C E(2), E(4), E(6) WILL BE THE J-VECTOR C E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE C C FIRST FIND I-VECTOR = RSUBB - RSUBA (NON-NORMALIZED) E(1) = X2 - X1 E(3) = Y2 - Y1 E(5) = Z2 - Z1 C C NOW FIND LENGTH = X-SUB-B COORD. IN ELEMENT SYSTEM XSUBB = SQRT( E(1)**2 + E(3)**2 + E(5)**2 ) IF(XSUBB .GT. 1.0E-06) GO TO 20 CALL MESAGE(-30,31,ECPT(1)) C C NOW NORMALIZE I-VECTOR WITH X-SUB-B 20 E(1) = E(1) / XSUBB E(3) = E(3) / XSUBB E(5) = E(5) / XSUBB C C HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN C E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER C E(2) = X3 - X1 E(4) = Y3 - Y1 E(6) = Z3 - Z1 C C X-SUB-C = I . (RSUBC - RSUBA) , THUS XSUBC = E(1) * E(2) + E(3) * E(4) + E(5) * E(6) C C AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(7) = E(3) * E(6) - E(5) * E(4) E(8) = E(5) * E(2) - E(1) * E(6) E(9) = E(1) * E(4) - E(3) * E(2) C C C THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C C COORD. IN ELEMENT SYSTEM YSUBC = SQRT( E(7)**2 + E(8)**2 + E(9)**2 ) IF(YSUBC .GT. 1.0E-06) GO TO 25 CALL MESAGE(-30,32,ECPT(1)) C C NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND C 25 E(7) = E(7) / YSUBC E(8) = E(8) / YSUBC E(9) = E(9) / YSUBC C C NOW HAVING I AND K VECTORS.GET J = I CROSS K AND C STORE IN THE SPOT FOR J C E(2) = E(5) * E(8) - E(3) * E(9) E(4) = E(1) * E(9) - E(5) * E(7) E(6) = E(3) * E(7) - E(1) * E(8) C C AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE. TEMP = SQRT( E(2)**2 + E(4)**2 + E(6)**2 ) E(2) = E(2)/TEMP E(4) = E(4)/TEMP E(6) = E(6)/TEMP C C VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA C REELMU = 1.0E0 / XSUBB FLAMDA = 1.0E0 / YSUBC DELTA = XSUBC / XSUBB - 1.0E0 C C ****************************************************************** C C NOW FORM THE C MATRIX (3X6) PARTITIONED AS FOLLOWS HERE. C CSUBA = (3X2) STORED IN C(1) . . .C(6) BY ROWS C CSUBB = (3X2) STORED IN C(7) . . .C(12) BY ROWS C CSUBC = (3X2) STORED IN C(13). . .C(18) BY ROWS C C(1) = -REELMU C(2) = 0.0E0 C(3) = 0.0E0 C(4) = FLAMDA * DELTA C(5) = C(4) C(6) = -REELMU C(7) = REELMU C(8) = 0.0E0 C(9) = 0.0E0 C(10) = -FLAMDA * REELMU * XSUBC C(11) = C(10) C(12) = REELMU C(13) = 0.0E0 C(14) = 0.0E0 C(15) = 0.0E0 C(16) = FLAMDA C(17) = FLAMDA C(18) = 0.0E0 C IF( NTYPE .EQ. 1 ) GO TO 30 THETA = ANGLE * DEGRA SINTH = SIN( THETA ) COSTH = COS( THETA ) 30 IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 MATID = MATID1 INFLAG = -1 CALL PLAMAT C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C ****************************************************************** C C G, E, AND C MATRICES ARE COMPLETE C C C C T C COMPUTE S = G C E T , I = 1,2,3. C I I I C DO 100 I = 1,3 C C POINTER TO C = 6*I - 5 C I C CALL GMMATS ( G,3,3,0, C(6*I-5),3,2,0, TEMPAR(1)) CALL GMMATS ( TEMPAR(1),3,2,0, E,3,2,1, TEMPAR(10) ) C C DO WE NEED TRANSFORMATION TI C IF( NECPT(4*I + 5) .EQ. 0 ) GO TO 60 CALL TRANSS( NECPT(4*I + 5), TI ) CALL GMMATS( TEMPAR(10),3,3,0, TI,3,3,0, PH1OUT(9*I+1) ) GO TO 100 60 NPT1 = 9 * I DO 80 J = 10,18 NPT1 = NPT1 + 1 80 PH1OUT(NPT1) = TEMPAR(J) 100 CONTINUE PH1OUT(1) = ECPT(1) PH1OUT(2) = ECPT(2) PH1OUT(3) = ECPT(3) PH1OUT(4) = ECPT(4) C C THIS CONCLUDES PHASE 1 FOR TRIANGULAR MEMBRANE OR SUB CALCULATION C TO ANOTHER ROUTINE... RETURN C END ================================================ FILE: mis/pstrq2.f ================================================ SUBROUTINE PSTRQ2 (NTYPE) C THIS ROUTINE CALCULATES PHASE II OUTPUT FOR PLA3 C C NTYPE = 1 TRI-MEMBRANE C NTYPE = 2 QUAD-MEMBRANE C C PH1OUT CONTAINS THE FOLLOWING C *** NTYPE = 1 *** C ELEMENT ID C 3 SILS C 5 DUMMY-S C 3 S ARRAYS EACH 3X3 C C *** NTYPE = 2 *** C ELEMENT ID C 4 SILS C 4 DUMMY-S C 4 S ARRAYS EACH 3X3 C DIMENSION NSIL(4), SI(36) C COMMON /PLA3UV/ IVEC, Z(24) COMMON /PLA3ES/ PH1OUT(300) COMMON /PLA32S/ STRESS(3),VEC(3),TEMP,DELTA,NSIZE,NPOINT, 1 DUM(315) COMMON /SOUT/ STRES(9) C EQUIVALENCE 1 (NSIL(1),PH1OUT(2)) 2, (SI(1),PH1OUT(10)) C C C I=NSIZE C STRESS VECTOR = (SUMMATION (S ) (U )) C I=1 I I C NSIZE = NTYPE + 2 DO 20 I = 1,NSIZE C POINTER TO DISPLACEMENT VECTOR NPOINT = IVEC + NSIL(I) -1 C CALL GMMATS( SI(9*I-8),3,3,0, Z(NPOINT),3,1,0, VEC(1)) C DO 30 J=1,3 30 STRESS(J) = STRESS(J) + VEC(J) 20 CONTINUE C STRES(1) = PH1OUT(1) STRES(2) = STRESS(1) STRES(3) = STRESS(2) STRES(4) = STRESS(3) C C ****************************************************************** C C PRINCIPAL STRESSES AND ANGLE OF ACTION PHI TEMP = STRES(2) - STRES(3) STRES(8) = SQRT( (TEMP/2.0E0)**2 + STRES(4)**2 ) DELTA = (STRES(2) + STRES(3))/2.0E0 STRES(6) = DELTA + STRES(8) STRES(7) = DELTA - STRES(8) DELTA = 2.0E0 * STRES(4) IF( ABS(DELTA) .LT. 1.0E-15 .AND. ABS(TEMP) .LT. 1.0E-15)GO TO 101 STRES(5) = ATAN2( DELTA,TEMP ) * 28.6478898 E00 RETURN 101 STRES(5) = 0.0E0 RETURN END ================================================ FILE: mis/pthbdy.f ================================================ SUBROUTINE PTHBDY C C PTHBDY MODIFIES THE SIL,ECT,EQEXIN AND BGBDT FOR CHBDY ELEMENTS C SO THEY CAN BE PLOTTED. C C THE SIL BGPDT AND EQEXIN OUTPUT LOOKALIKES ARE ADD ON FILES C THE ECT OUTPUT FILE HAS THE CHBDY FLAG SET NEGATIVE C SO PLTSET CAN TELL THE ECTS APART IT ALSO HAS THE NEW GRID POINTS C INTEGER NAME(2),EPT,ECT,SIL,IEQ,BGPDT,HECT,HSIL,OEQ, 1 HBGPDT,GEOM2,SCR1,SCR2,FLAG,IZ(1),SYSBUF,OUT, 2 CBS(20),OSIL,FILE1,FILE2,VIEW(2),CHBDY(2), 3 PHBDY(2),BUF1,BUF2,BUF3,BUF4,BUF5,BUF6,TRL(7) DIMENSION NSIL(7),NEQ(14),TEM(3),E(3),V(3),R21(3) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / NHBDY,MESH(2) COMMON /SYSTEM/ SYSBUF,OUT,DUM(6),NLPP COMMON /CONDAS/ PI COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (IZ(1),Z(1)) DATA GEOM2 , ECT, EPT, SIL, IEQ, BGPDT / 1 101 , 102, 103, 104, 105, 106 / DATA HECT , HSIL, OEQ, HBGPDT, SCR1, SCR2 / 1 201 , 202, 203, 204, 301, 302 / DATA IYES , NO , NAME , NPHBDY, NVIEW, NCB2 / 1 4HYES , 4HNO , 4HPLNB, 4HDY , 7 , 6 , 15 / DATA VIEW , CHBDY , PHBDY , NECT / 1 2606 , 26 , 4208,42, 2502,25 , 15 / C C PRINT FLAG CHBDY FLAG C IPRT = 0 IF (MESH(1) .EQ. IYES) IPRT = 1 NHBDY = -1 LINE = NLPP C C INITIALIZE C BUF1 = KORSZ(Z(1)) - SYSBUF BUF2 = BUF1 - SYSBUF - 1 BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF BUF5 = BUF4 - SYSBUF BUF6 = BUF5 - SYSBUF CALL PRELOC (*1000,Z(BUF1),GEOM2) CALL LOCATE (*1000,Z(BUF1),CHBDY,N) C C MAKE A SCRATCH FILE WITH EID AF DISLIN FOR CHBDY C IPN = 0 IVEW = 0 CALL PRELOC (*25,Z(BUF2),EPT) FILE1 = EPT CALL LOCATE (*15,Z(BUF2),PHBDY,N) CALL READ (*1002,*10,EPT,Z(1),BUF3,0,N) GO TO 1008 10 IPN = N 15 IPV = IPN + 1 NRD = BUF3 - IPV CALL LOCATE (*25,Z(BUF2),VIEW,N) CALL READ (*1002,*20,EPT,Z(IPV),NRD,0,N) GO TO 1008 20 IVEW = N 25 CALL CLOSE (EPT,1) CALL GOPEN (SCR1,Z(BUF2),1) FILE1 = GEOM2 30 CALL READ (*1002,*70,GEOM2,CBS,NCB2,0,N) TEM(1) = 0.0 TEM(2) = 0.0 IF (IPN .EQ. 0) GO TO 40 DO 35 I = 1,IPN,NPHBDY IF (CBS(2) .NE. IZ(I)) GO TO 35 TEM(1) = Z(I+2) GO TO 40 35 CONTINUE 40 IF (IVEW .EQ. 0) GO TO 65 IF (CBS(15) .EQ. 0) GO TO 65 DO 60 I = 1,IVEW,NVIEW IF (CBS(15) .NE. IZ(IPN+I)) GO TO 60 TEM(2) = Z(IPN+I+5) IF (IPRT .EQ. 0) GO TO 65 IF (LINE .LT. NLPP) GO TO 50 LINE = 1 CALL PAGE1 WRITE (OUT,45) 45 FORMAT (1H0,17X,5HIDENT,8X,4HBETA,7X,5HGAMMA,9X,3HCAN,6X,6HCAN BE, 1 /6X,5HCHBDY,6X,6HNUMBER,8X,4HMESH,8X,4HMESH,7X,5HSHADE,6X, 2 6HSHADED,5X,7HDISLIN ,/) 50 NB = IYES NS = IYES IF (IZ(IPN+I+1) .EQ. 0) NB = NO IF (IZ(IPN+I+2) .EQ. 0) NS = NO LINE = LINE+1 WRITE (OUT,55) CBS(1),IZ(IPN+I),IZ(IPN+I+3),IZ(IPN+I+4),NB,NS, 1 TEM(2) 55 FORMAT (1H ,4(I10,2X),6X,A4,8X,A4,2X,1P,E10.4) GO TO 65 60 CONTINUE 65 CALL WRITE (SCR1,TEM,2,0) GO TO 30 70 CALL WRITE (SCR1,0,0,1) CALL CLOSE (SCR1 ,1) CALL CLOSE (GEOM2,1) CALL GOPEN (SCR1,Z(BUF1),0) TRL(1) = SIL CALL RDTRL (TRL) OSIL = TRL(3) TRL(1) = BGPDT CALL RDTRL (TRL) NIN = TRL(2) NRD = 4*TRL(2) IF (5*SYSBUF+NRD+50 .GT. BUF1) GO TO 1008 C C FIND CHBDY CARDS COPY ECT TO CHBDY CARDS C CALL GOPEN (ECT,Z(BUF2),0) CALL GOPEN (HECT,Z(BUF3),1) FILE1 = ECT 80 CALL READ (*1000,*1000,ECT,CBS,3,0,N) CALL WRITE (HECT,CBS,3,0) IF (CBS(1).EQ.CHBDY(1) .AND. CBS(2).EQ.CHBDY(2)) GO TO 95 C C DUPE REST OF RECORD C 85 CALL READ (*1002,*90,ECT,Z(1),BUF6-1,0,N) CALL WRITE (HECT,Z(1),BUF6-1,0) GO TO 85 90 CALL WRITE (HECT,Z(1),N,1) GO TO 80 C C COPY SIL EQEXIN TO NEW FILES C 95 ICORE = BUF6 - 1 ILFT = 1 FILE1 = SIL FILE2 = HSIL N = BUF4 LEQ = 0 100 CALL GOPEN (FILE1,Z(BUF6),0) CALL GOPEN (FILE2,Z(N),1) 105 CALL READ (*1002,*120,FILE1,Z(ILFT),ICORE,0,M) IF (FILE1 .NE. IEQ) GO TO 115 DO 110 I = 1,ICORE,2 IF (IZ(I) .GT. LEQ) LEQ = IZ(I) 110 CONTINUE 115 CALL WRITE (FILE2,Z(ILFT),ICORE,0) GO TO 105 120 IF (FILE1 .NE. IEQ) GO TO 130 DO 125 I = 1,M,2 IF (IZ(I) .GT. LEQ) LEQ = IZ(I) 125 CONTINUE 130 CALL WRITE (FILE2,Z(ILFT),M,0) CALL CLOSE (FILE1,1) IF (N .EQ. BUF5) GO TO 150 FILE1 = IEQ FILE2 = OEQ N = BUF5 GO TO 100 C C BRING IN BGPDT C 150 CALL GOPEN (BGPDT,Z(BUF6),0) FILE1 = BGPDT CALL READ (*1002,*1002,BGPDT,Z(1),NRD,0,N) CALL CLOSE (BGPDT,1) C C FINALLY TIME TO GO TO WORK C NHBDY = 0 NNGP = 0 NBGP = NRD + 1 DO 155 I = 1,24 IZ(NRD+I) = 0 155 CONTINUE FILE1 = ECT CALL GOPEN (SCR2,Z(BUF6),1) 160 CALL READ (*1002,*350,ECT,CBS,NECT,0,N) CBS(NECT) = 0.0 IF (CBS(3) .GT. 6) CBS(3) = 3 CALL READ (*1002,*1002,SCR1,TEM,2,0,N) FLAG = CBS(3) NHBDY = NHBDY + 1 GO TO (200,250,260,270,280,260), FLAG C C POINT C C C BGPDT DATA FOR POINT C 200 I1 = (CBS(4)-1)*4 + 2 ITRY = 1 E(1) = 0.0 E(2) = 0.0 E(3) = 0.0 CALL SAPB (CBS(12),E,V) CALL SANORM (*400,V) E(1) = 1.0 205 XL = SADOTB(V,E) R21(1) = E(1) - XL*V(1) R21(2) = E(2) - XL*V(2) R21(3) = E(3) - XL*V(3) XL = SADOTB(R21,R21) IF (XL .GT. .2) GO TO 210 IF (ITRY .EQ. 2) GO TO 400 ITRY = 2 E(1) = 0.0 E(2) = 1.0 GO TO 205 210 CALL SANORM (*215,R21) 215 CALL SAXB (V,R21,E) XL = 0.0 IF (TEM(1) .NE. 0.0) XL = SQRT(TEM(1)/PI) ZS3 = .8660254 Z(NBGP+ 1) = Z(I1 ) + XL*R21(1) Z(NBGP+ 2) = Z(I1+1) + XL*R21(2) Z(NBGP+ 3) = Z(I1+2) + XL*R21(3) Z(NBGP+ 5) = Z(I1 ) + XL*( .5*R21(1) + ZS3*E(1)) Z(NBGP+ 6) = Z(I1+1) + XL*( .5*R21(2) + ZS3*E(2)) Z(NBGP+ 7) = Z(I1+2) + XL*( .5*R21(3) + ZS3*E(3)) Z(NBGP+ 9) = Z(I1 ) + XL*(-.5*R21(1) + ZS3*E(1)) Z(NBGP+10) = Z(I1+1) + XL*(-.5*R21(2) + ZS3*E(2)) Z(NBGP+11) = Z(I1+2) + XL*(-.5*R21(3) + ZS3*E(3)) Z(NBGP+14) = Z(I1+1) - XL* R21(2) Z(NBGP+15) = Z(I1+2) - XL* R21(3) Z(NBGP+17) = Z(I1 ) + XL*(-.5*R21(1) - ZS3*E(1)) Z(NBGP+18) = Z(I1+1) + XL*(-.5*R21(2) - ZS3*E(2)) Z(NBGP+19) = Z(I1+2) + XL*(-.5*R21(3) - ZS3*E(3)) Z(NBGP+21) = Z(I1 ) + XL*(+.5*R21(1) - ZS3*E(1)) Z(NBGP+22) = Z(I1+1) + XL*(+.5*R21(2) - ZS3*E(2)) Z(NBGP+23) = Z(I1+2) + XL*(+.5*R21(3) - ZS3*E(3)) Z(NBGP+25) = Z(I1 ) + XL*V(1) Z(NBGP+26) = Z(I1+1) + XL*V(2) Z(NBGP+27) = Z(I1+2) + XL*V(3) NNGP= NNGP + 7 NS = 7 NEA = 14 NB = 28 M = 7 N = 5 220 NN = 1 DO 225 I = 1,M LEQ = LEQ + 1 NIN = NIN + 1 NSIL(I) = NIN NEQ(NN) = LEQ NEQ(NN+1) = NIN CBS(N ) = NIN NN = NN + 2 N = N + 1 225 CONTINUE GO TO 300 C C LINE C C C BGPDT DATA FOR LINE C 250 I1 = (CBS(4)-1)*4 + 2 I2 = (CBS(5)-1)*4 + 2 CALL SAMB (Z(I2),Z(I1),R21) XL = SADOTB(R21,R21) IF (XL .EQ. 0.0) GO TO 400 X1 = SADOTB(R21,CBS(12)) XL = X1/XL E(1) = XL*R21(1) E(2) = XL*R21(2) E(3) = XL*R21(3) CALL SAMB (CBS(12),E,V) CALL SANORM (*400,V) CALL SAXB (V,R21,E) CALL SANORM (*400,E) D = TEM(2) AF = TEM(1)*.5 Z(NBGP+ 1) = Z(I1 ) + D*V(1) - AF*E(1) Z(NBGP+ 2) = Z(I1+1) + D*V(2) - AF*E(2) Z(NBGP+ 3) = Z(I1+2) + D*V(3) - AF*E(3) Z(NBGP+ 5) = Z(I2 ) + D*V(1) - AF*E(1) Z(NBGP+ 6) = Z(I2+1) + D*V(2) - AF*E(2) Z(NBGP+ 7) = Z(I2+2) + D*V(3) - AF*E(3) Z(NBGP+ 9) = Z(I2 ) + D*V(1) + AF*E(1) Z(NBGP+10) = Z(I2+1) + D*V(2) + AF*E(2) Z(NBGP+11) = Z(I2+2) + D*V(3) + AF*E(3) Z(NBGP+13) = Z(I1 ) + D*V(1) + AF*E(1) Z(NBGP+14) = Z(I1+1) + D*V(2) + AF*E(2) Z(NBGP+15) = Z(I1+2) + D*V(3) + AF*E(3) Z(NBGP+17) = Z(I1 ) + D*V(1) + .5*R21(1) Z(NBGP+18) = Z(I1+1) + D*V(2) + .5*R21(2) Z(NBGP+19) = Z(I1+2) + D*V(3) + .5*R21(3) Z(NBGP+21) = Z(NBGP+17) + 2.*AF*V(1) Z(NBGP+22) = Z(NBGP+18) + 2.*AF*V(2) Z(NBGP+23) = Z(NBGP+19) + 2.*AF*V(3) NNGP= NNGP + 6 NS = 6 NEA = 12 NB = 24 M = 6 N = 6 GO TO 220 C C REV OR ELIP DO NOTHING C 260 GO TO 310 C C AREA3 C C BGPDT DATA FOR AREA3 C 270 I1 = (CBS(4)-1)*4 + 2 I2 = (CBS(5)-1)*4 + 2 I3 = (CBS(6)-1)*4 + 2 CALL SAMB (Z(I2),Z(I1),E) CALL SAMB (Z(I3),Z(I1),V) CALL SAXB (E,V,E) CALL SANORM (*400,E) CALL SAMB (Z(I2),Z(I1),V) X1 = SADOTB(V,V) CALL SAMB (Z(I3),Z(I1),V) X2 = SADOTB(V,V) CALL SAMB (Z(I3),Z(I2),V) X3 = SADOTB(V,V) X1 = AMAX1(X1,X2) X1 = AMAX1(X1,X3) XL = .25* SQRT(X1) CALL SAPB (Z(I1),Z(I2),V) CALL SAPB (Z(I3),V,V) Z(NBGP+1) = V(1)/3.0 Z(NBGP+2) = V(2)/3.0 Z(NBGP+3) = V(3)/3.0 Z(NBGP+5) = Z(NBGP+1) + XL*E(1) Z(NBGP+6) = Z(NBGP+2) + XL*E(2) Z(NBGP+7) = Z(NBGP+3) + XL*E(3) 275 NNGP= NNGP + 2 NS = 2 NEA = 4 NB = 8 LEQ = LEQ + 1 NIN = NIN + 1 N = 7 IF (FLAG .EQ. 5) N = 8 NSIL(1)= NIN NEQ(1) = LEQ NEQ(2) = NIN CBS(N) = NIN LEQ = LEQ + 1 NIN = NIN + 1 NSIL( 2) = NIN NEQ ( 3) = LEQ NEQ ( 4) = NIN CBS(N+1) = NIN CBS(N+2) = NIN CBS(N+3) = NIN IF (FLAG .EQ. 4) CBS(N+4) = NIN GO TO 300 C C AREA4 C C BGPDT DATA FOR AREA4 C 280 I1 = (CBS(4)-1)*4 + 2 I2 = (CBS(5)-1)*4 + 2 I3 = (CBS(6)-1)*4 + 2 I4 = (CBS(7)-1)*4 + 2 CALL SAMB (Z(I3),Z(I1),E) CALL SAMB (Z(I4),Z(I2),V) CALL SAXB (E,V,E) CALL SANORM (*400,E) CALL SAMB (Z(I2),Z(I1),V) X1 = SADOTB(V,V) CALL SAMB (Z(I3),Z(I2),V) X2 = SADOTB(V,V) CALL SAMB (Z(I4),Z(I3),V) X3 = SADOTB(V,V) CALL SAMB (Z(I4),Z(I1),V) X4 = SADOTB(V,V) X1 = AMAX1(X1,X2) X1 = AMAX1(X1,X3) X1 = AMAX1(X1,X4) XL = .25* SQRT(X1) CALL SAPB (Z(I1),Z(I2),V) CALL SAPB (V,Z(I3),V) CALL SAPB (V,Z(I4),V) Z(NBGP+1) = .25*V(1) Z(NBGP+2) = .25*V(2) Z(NBGP+3) = .25*V(3) Z(NBGP+5) = Z(NBGP+1) + XL*E(1) Z(NBGP+6) = Z(NBGP+2) + XL*E(2) Z(NBGP+7) = Z(NBGP+3) + XL*E(3) GO TO 275 C C ADD TO HSIL HEQEXIN HECT C BGPDT C 300 CALL WRITE (HSIL,NSIL,NS,0) CALL WRITE (OEQ,NEQ,NEA,0) CALL WRITE (SCR2,Z(NBGP),NB,0) 310 CBS(3) = -CBS(3) CALL WRITE (HECT,CBS,NECT,0) GO TO 160 C C END CLOSE FILES, WRITE NBGPDT, WRITE TRAILERS THEN FINISH ECT COPY C 350 CALL WRITE (HSIL,0,0,1) CALL WRITE (OEQ ,0,0,1) CALL WRITE (HECT,0,0,1) CALL WRITE (SCR2,0,0,1) CALL CLOSE (SCR2,1) CALL CLOSE (SCR1,1) CALL CLOSE (HSIL,1) CALL CLOSE (OEQ ,1) CALL GOPEN (HBGPDT,Z(BUF1),1) CALL WRITE (HBGPDT,Z,NRD,0) IF (NNGP .EQ. 0) GO TO 380 FILE1 = SCR2 CALL GOPEN (SCR2,Z(BUF6),0) 360 CALL READ (*1002,*370,SCR2,Z(1),BUF6-1,0,N) CALL WRITE (HBGPDT,Z(1),BUF6-1,0) GO TO 360 370 CALL WRITE (HBGPDT,Z(1),N,1) CALL CLOSE (SCR2,1) 380 CALL CLOSE (HBGPDT,1) TRL(1) = HBGPDT TRL(2) = NRD/4 + NNGP CALL WRTTRL (TRL) TRL(1) = OEQ CALL WRTTRL (TRL) TRL(1) = HSIL TRL(3) = NNGP + OSIL CALL WRTTRL (TRL) TRL(1) = ECT CALL RDTRL (TRL) TRL(1) = HECT CALL WRTTRL (TRL) FILE1 = ECT GO TO 80 C C BAD GEOMETRY FOR ELEMENT C 400 CBS(3) = -CBS(3) NHBDY = NHBDY - 1 WRITE (OUT,410) UWM,CBS(1) 410 FORMAT (A25,', CHBDY ELEMENT',I9,' HAS NO NORMAL OR BAD GEOMETRY', 1 ' WHICH MAKES IT UNPLOTTABLE') GO TO 310 C C RETURN OR ERROR MESSAGES C 1000 CALL CLOSE (ECT,1) CALL CLOSE (HECT,1) CALL CLOSE (GEOM2,1) RETURN C 1002 CALL MESAGE (-2,0,FILE1) 1008 CALL MESAGE (-8,0,NAME) RETURN END ================================================ FILE: mis/ptintr.f ================================================ SUBROUTINE PTINTR (A,AA,B,BB,S,K,EPS) C C RETURNS DOUBLE PRECISION VALUES OF X,Y COORDINATES (S) OF C POINT OF INTERSECTION (IF ANY) OF LINE SEGMENTS C FROM A TO AA AND B TO BB C A .NE. AA AND B .NE. BB C K IS CONDITION FLAG RETURNED -- C K = 1 LINES INTERSECT AT S C K = 0 LINES INTERSECT AT S, AN ENDPOINT OF ONE LINE SEGMENT C K =-1 LINES DO NOT INTERSECT C DOUBLE PRECISION A(2),AA(2),B(2),BB(2),P(2),S(2) DOUBLE PRECISION AX,AY,BX,BY,AAA,PA,PAA,BBB,PB,PBB DOUBLE PRECISION EPS(2),D DOUBLE PRECISION DIST,X,Y,U,V C C EPS ARRAY FOR SIGNIFICANCE TESTING C EPS(1) IS AREA, ANGLE LIMIT C EPS(2) IS LENGTH LIMIT C C C DOUBLE PRECISION FUNCTION FOR DISTANCE BETWEEN 2 POINTS C DIST(X,Y,U,V) = (X-U)**2 +(Y-V)**2 C X = 0.D0 Y = X U = X V = X P(1) = 0.D0 P(2) = 0.D0 S(1) = 0.D0 S(2) = 0.D0 C K =-1 C AX = AA(1) - A(1) AY = AA(2) - A(2) BX = BB(1) - B(1) BY = BB(2) - B(2) C AAA= AX**2 + AY**2 BBB= BX**2 + BY**2 D = BX*AY - AX*BY C C IS EITHER LINE TOO SHORT? C IF (AAA.LE.EPS(1) .OR. BBB.LE.EPS(1)) RETURN C C ARE A AND B PARALLEL? C IF (DABS(D) .GT. EPS(1)) GO TO 80 C C A AND B ARE PARALLEL -- ARE THEY SAME LINE? C P(1) = B(1) P(2) = B(2) IF (DIST(B(1),B(2), A(1), A(2)) .LE. EPS(1) .OR. 1 DIST(B(1),B(2),AA(1),AA(2)) .LE. EPS(1)) GO TO 100 P(1) = BB(1) P(2) = BB(2) IF (DIST(BB(1),BB(2), A(1), A(2)) .LE. EPS(1) .OR. 1 DIST(BB(1),BB(2),AA(1),AA(2)) .LE. EPS(1)) GO TO 100 C C A PARALLEL TO B AND NOT SAME LINE C RETURN C C IS A PARALLEL TO Y AXIS? C 80 IF (DABS(AX) .GT. EPS(2)) GO TO 90 P(1) = A(1) P(2) = B(2) + (P(1)-B(1))*BY/BX GO TO 100 90 P(1) = ((B(2)-A(2))*AX*BX + A(1)*AY*BX-B(1)*AX*BY)/D P(2) = A(2) + (P(1)-A(1))*AY/AX C 100 AAA = AAA + EPS(1) BBB = BBB + EPS(1) PA = DIST(P(1),P(2), A(1), A(2)) PB = DIST(P(1),P(2), B(1), B(2)) PAA = DIST(P(1),P(2),AA(1),AA(2)) PBB = DIST(P(1),P(2),BB(1),BB(2)) C C POINT OF INTERSECTION NOT ON EITHER SEGMENT C IF (PA.GT.AAA .OR. PAA.GT.AAA .OR. PB.GT.BBB .OR. PBB.GT.BBB) 1 RETURN C C LINES INTERSECT AT P C K = 1 S(1) = P(1) S(2) = P(2) C C LINES INTERSECT AT P, AN ENDPOINT OF ONE SEGMENT C IF ((PA.LT.EPS(2) .OR. PAA.LT.EPS(2)) .OR. 1 (PB.LT.EPS(2) .OR. PBB.LT.EPS(2))) K= 0 RETURN END ================================================ FILE: mis/pull.f ================================================ SUBROUTINE PULL (BCD,OUT,ICOL,NCHAR,FLAG) C C THIS ROUTINE EXTRACTS BCD DATA (OUT) FROM A STRING,(BCD) C STARTING AT POSITION ICOL C EXTERNAL ORF LOGICAL FIRST INTEGER BCD(1),OUT(1),FLAG,CPERWD,BLANK,ORF COMMON /SYSTEM/ IDUM(38),NBPC,NBPW,NCPW DATA CPERWD/ 4 /, BLANK / 4H /, FIRST / .TRUE. / C NWDS = (NCHAR-1)/CPERWD + 1 IF (.NOT.FIRST) GO TO 5 FIRST = .FALSE. NX = NCPW - CPERWD IXTRA = NX*NBPC IBL = 0 IB1 = KRSHFT(BLANK,NCPW-1) IF (NX .EQ. 0) GO TO 5 DO 2 I = 1,NX IBL = ORF(IBL,KLSHFT(IB1,I-1)) 2 CONTINUE 5 DO 10 I = 1,NWDS 10 OUT(I) = IBL C IWD = (ICOL-1)/CPERWD + 1 M1 = (ICOL-(IWD-1)*CPERWD-1)*NBPC M2 = CPERWD*NBPC - M1 C DO 20 I = 1,NWDS IBCD = IWD + I - 1 ITEMP = KRSHFT(BCD(IBCD),IXTRA/NBPC) OUT(I) = ORF(OUT(I),KLSHFT(ITEMP,(M1+IXTRA)/NBPC)) ITEMP = KRSHFT(BCD(IBCD+1),(M2+IXTRA)/NBPC) OUT(I) = ORF(OUT(I),KLSHFT(ITEMP,IXTRA/NBPC)) 20 CONTINUE IF (NWDS*CPERWD .EQ. NCHAR) RETURN C C REMOVE EXTRA CHARACTERS FROM LAST OUT WORD C NBL = (NWDS-1)*CPERWD + NCPW - NCHAR LWORD = KRSHFT(OUT(NWDS),NBL) OUT(NWDS) = KLSHFT(LWORD,NBL) C ITEMP = 0 DO 40 I = 1,NBL ITEMP = ORF(ITEMP,KLSHFT(IB1,I-1)) 40 CONTINUE OUT(NWDS) = ORF(OUT(NWDS),ITEMP) C RETURN END ================================================ FILE: mis/push.f ================================================ SUBROUTINE PUSH (IN,BCD,ICOL,NCHAR,FLAG) C C THIS ROUTINE IS USED TO PLACE BCD CHARACTERS OR INTEGERS FROM II C ARRAY INTO THE BCD STRING . IF FLAG = 1 AN INTEGER IS INPUT C EXTERNAL ORF LOGICAL FIRST INTEGER ORF,FLAG,BCD(1),CPERWD,IN(1),II(18),BLANK, 1 DIGIT,NUMBS(10) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ ISYS,IOUT,NOGO,IDUM(35),NBPC,NBPW,NCPW DATA NUMBS / 1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9 / DATA CPERWD/ 4 /, FIRST / .TRUE. /, BLANK /1H /, 1 MINUS / 4H- / C IF (.NOT.FIRST) GO TO 15 FIRST = .FALSE. C C REMOVE BLANKS FROM NUMBERS, AND ZERO FILL C ISH = NCPW - 1 DO 5 I = 1,10 ISAVE = KRSHFT(NUMBS(I),ISH) NUMBS(I) = KLSHFT(ISAVE,ISH) 5 CONTINUE ISAVE = KRSHFT(MINUS,ISH) MINUS = KLSHFT(ISAVE,ISH) NX = NCPW - CPERWD IXTRA = NX*NBPC IBL = 0 IF (NX .EQ. 0) GO TO 15 IB1 = KRSHFT(BLANK,ISH) DO 10 I = 1,NX IBL = ORF(IBL,KLSHFT(IB1,I-1)) 10 CONTINUE C 15 IF (NCHAR .LE. 0) RETURN IF (NCHAR+ICOL .GT. 128) GO TO 70 NIN = (NCHAR-1)/CPERWD + 1 DO 20 I = 1,NIN 20 II(I) = IN(I) IF (FLAG .NE. 1) GO TO 50 C C INTEGER HAS BEEN INPUT - 1 WORD ONLY C C FIND POWER OF 10 = NUMBER OF CHARACTERS C IX = IABS(IN(1)) DO 25 I = 1,8 IX = IX/10 IF (IX .EQ. 0) GO TO 30 25 CONTINUE GO TO 80 30 IC = I IF (IN(1) .LT. 0) IC = IC + 1 IF (IC .GT. NCHAR) GO TO 80 II(2) = BLANK IX = IABS(IN(1)) IF (IC .LE. CPERWD) GO TO 40 C C NUMBER TAKES TWO WORDS C M = IC - CPERWD II(2) = KRSHFT(BLANK,M) DO 35 I = 1,M IJ = IX/10 DIGIT = IABS(IX-10*IJ) + 1 IX = IJ IADD = NUMBS(DIGIT) II(2) = ORF(II(2),KRSHFT(IADD,M-I)) 35 CONTINUE C IC = CPERWD C C FIRST WORD SET HERE FOR BOTH CASES C 40 II(1) = KRSHFT(BLANK,IC) DO 45 I = 1,IC IF (I.EQ.IC .AND. IN(1).LT.0) GO TO 45 IJ = IX/10 DIGIT = IABS(IX-10*IJ) + 1 IX = IJ IADD = NUMBS(DIGIT) II(1) = ORF(II(1),KRSHFT(IADD,IC-I)) 45 CONTINUE IF (IN(1) .LT. 0) II(1) = ORF(II(1),MINUS) C 50 IWRD = (ICOL-1)/CPERWD + 1 ICL = ICOL - (IWRD-1)*CPERWD LWRD = (ICOL+NCHAR-2)/CPERWD + 1 LCOL = ICOL + NCHAR - (LWRD-1)*CPERWD - 1 M1 = (ICL-1)*NBPC M2 = CPERWD*NBPC - M1 M3 = M2 + (NCPW-CPERWD)*NBPC C C M1 IS THE NUMBER OF BITS FOR THE FIRST SET OF CHARACTERS C M2 IS THE NUMBER OF BITS FOR THE SECOND SET OF CHARACTERS C M3 IS THE NUMBER OF BITS FOR THE RIGHT HALF OF THE WORD C C IADD IS THE CURRENT WORKING WORD, IADD1 IS THE SPILL C ISAVE = KRSHFT(BCD(IWRD),M3/NBPC) IADD1 = KLSHFT(ISAVE,M3/NBPC) K = 0 DO 60 I = IWRD,LWRD K = K + 1 C C SPLIT INPUT WORD INTO TWO SETS C C MOVE LEFT HALF TO RIGHT SIDE OF IADD AND ADD IADD1 C ISAVE = KRSHFT(II(K),(M1+IXTRA)/NBPC) IADD = ORF(KLSHFT(ISAVE,IXTRA/NBPC),IADD1) C C IF THIS ISNT THE LAST WORD MOVE THE RIGHT HALF TO IADD1 AND INSERT C IF (I .GE. LWRD) GO TO 60 ISAVE = KRSHFT(II(K),IXTRA/NBPC) IADD1 = KLSHFT(ISAVE,M3/NBPC) C BCD(I) = ORF(IADD,IBL) C 60 CONTINUE C C LAST WORD PROCESSED HERE, REMOVE EXTRA CHARACTERS C ISH = NCPW - LCOL ISAVE = KRSHFT(IADD ,ISH) IADD = KLSHFT(ISAVE,ISH) ISAVE = KLSHFT(BCD(LWRD),LCOL) BCD(LWRD) = ORF(IADD,KRSHFT(ISAVE,LCOL)) RETURN C 70 WRITE (IOUT,75) UFM,NCHAR,IN 75 FORMAT (A23,' 6015. TOO MANY CHARACTERS TO BE INSERTED IN A DMAP', 1 ' LINE', /6X,4H N = , I8 ,6X, 6HWORD =,A4) GO TO 90 80 WRITE (IOUT,85) UFM,IN 85 FORMAT (A23,' 6016. TOO MANY DIGITS TO BE INSERTED IN DMAP.', 1 2X,'VALUE =',I12) C 90 NOGO = 1 RETURN END ================================================ FILE: mis/q2bcd.f ================================================ SUBROUTINE Q2BCD (EST,PLANAR,RMAT,ET,IERROR) C C BASIC CALCULATIONS ARE PERFORMED FOR THE QDMEM2 ELEMENT IN THIS C ROUTINE (DOUBLE-PRECISION VERSION) C LOGICAL PLANAR REAL EST(1) DOUBLE PRECISION MAG ,D12(3) ,G1(3) ,IAREA ,D13(3),GRID(3,5), 1 G2(3) ,ITWOH ,D24(3),VEC(3) ,G3(3) ,ET(3,3) , 2 G5(3) ,G4(3) ,DADOTB,RMAT(3,5) EQUIVALENCE (GRID(1,1),G1(1)),(GRID(1,2),G2(1)), 1 (GRID(1,3),G3(1)),(GRID(1,4),G4(1)), 2 (GRID(1,5),G5(1)) C C MOVE GRID COORDINATES AND MAKE DOUBLE-PRECISION IF THIS IS THE C DOUBLE-PRECISION VERSION. C DO 10 I = 1,3 G1(I) = EST(I+10) G2(I) = EST(I+14) G3(I) = EST(I+18) G4(I) = EST(I+22) 10 CONTINUE C C FORM D , D AND D VECTORS C 13 24 12 C DO 20 I = 1,3 D12(I) = G2(I) - G1(I) D13(I) = G3(I) - G1(I) D24(I) = G4(I) - G2(I) 20 CONTINUE C C NVEC = D13 CROSS D24 = K-VECTOR (UN-NORMALIZED) C CALL DAXB (D13,D24,VEC) MAG = DSQRT(DADOTB(VEC,VEC)) IAREA = 0.5D0*MAG C C NORMALIZE K-VECTOR C IF (MAG) 100,100,30 30 ET(1,3) = VEC(1)/MAG ET(2,3) = VEC(2)/MAG ET(3,3) = VEC(3)/MAG C C H = .5 * (D DOT K-VEC) C 12 C ITWOH = DADOTB(D12,ET(1,3)) C C I-VECTOR (UN-NORMALIZED) = (D ) - 2 H (K-VECTOR) C 12 C DO 40 I = 1,3 VEC(I) = D12(I) - ITWOH*ET(I,3) 40 CONTINUE MAG = DSQRT(DADOTB(VEC,VEC)) C C NORMALIZE I-VECTOR C IF (MAG) 100,100,50 50 ET(1,1) = VEC(1)/MAG ET(2,1) = VEC(2)/MAG ET(3,1) = VEC(3)/MAG C C JVEC = KVEC CROSS IVEC C CALL DAXB (ET(1,3),ET(1,1),ET(1,2)) C C FILL THE SUB-TRIANGLE ELEMENT COORDINATE MATRIX C DO 60 I = 1,3 G5(I) = 0.25D0*(G1(I) + G2(I) + G3(I) + G4(I)) 60 CONTINUE RMAT(1,1) = 0.0D0 RMAT(2,1) = 0.0D0 RMAT(3,1) =-ITWOH/2.0D0 DO 70 I = 2,5 VEC(1) = GRID(1,I) - G1(1) VEC(2) = GRID(2,I) - G1(2) VEC(3) = GRID(3,I) - G1(3) CALL GMMATD (ET,3,3,0, VEC,3,1,0, RMAT(1,I)) RMAT(1,I) = RMAT(1,I) + RMAT(1,1) RMAT(2,I) = RMAT(2,I) + RMAT(2,1) RMAT(3,I) = RMAT(3,I) + RMAT(3,1) 70 CONTINUE C C SET PLANAR FLAG .TRUE. OR .FALSE. C IF ((ITWOH/2.0D0)**2/IAREA .LE. 0.01D0) GO TO 80 PLANAR = .FALSE. GO TO 90 80 PLANAR = .TRUE. C C ALL BASIC CALCULATIONS NOW COMPLETE C 90 IERROR = 0 RETURN C C ERROR CONDITION, BAD ELEMENT GEOMETRY. C 100 IERROR = 1 RETURN END ================================================ FILE: mis/q2bcs.f ================================================ SUBROUTINE Q2BCS (EST,PLANAR,RMAT,ET,IERROR) C C BASIC CALCULATIONS ARE PERFORMED FOR THE QDMEM2 ELEMENT IN THIS C ROUTINE (SINGLE-PRECISION VERSION) C LOGICAL PLANAR REAL EST(1) REAL MAG ,D12(3),G1(3) ,IAREA ,D13(3) ,GRID(3,5), 1 G2(3) ,ITWOH ,D24(3),VEC(3) ,G3(3) ,ET(3,3) , 2 G5(3) ,G4(3) ,SADOTB,RMAT(3,5) EQUIVALENCE (GRID(1,1),G1(1)),(GRID(1,2),G2(1)),(GRID(1,3),G3(1)), 1 (GRID(1,4),G4(1)),(GRID(1,5),G5(1)) C C MOVE GRID COORDINATES C DO 10 I = 1,3 G1(I) = EST(I+10) G2(I) = EST(I+14) G3(I) = EST(I+18) G4(I) = EST(I+22) 10 CONTINUE C C FORM D , D AND D VECTORS C 13 24 12 C DO 20 I = 1,3 D12(I) = G2(I) - G1(I) D13(I) = G3(I) - G1(I) D24(I) = G4(I) - G2(I) 20 CONTINUE C C NVEC = D13 CROSS D24 = K-VECTOR (UN-NORMALIZED) C CALL SAXB (D13,D24,VEC) MAG = SQRT (SADOTB(VEC,VEC)) IAREA = 0.5*MAG C C NORMALIZE K-VECTOR C IF (MAG) 100,100,30 30 ET(1,3) = VEC(1)/MAG ET(2,3) = VEC(2)/MAG ET(3,3) = VEC(3)/MAG C C H = .5 * (D DOT K-VEC) C 12 C ITWOH = SADOTB(D12,ET(1,3)) C C I-VECTOR (UN-NORMALIZED) = (D ) - 2 H (K-VECTOR) C 12 C DO 40 I = 1,3 VEC(I) = D12(I) - ITWOH*ET(I,3) 40 CONTINUE MAG = SQRT(SADOTB(VEC,VEC)) C C NORMALIZE I-VECTOR C IF (MAG) 100,100,50 50 ET(1,1) = VEC(1)/MAG ET(2,1) = VEC(2)/MAG ET(3,1) = VEC(3)/MAG C C JVEC = KVEC CROSS IVEC C CALL SAXB (ET(1,3),ET(1,1),ET(1,2)) C C FILL THE SUB-TRIANGLE ELEMENT COORDINATE MATRIX C DO 60 I = 1,3 G5(I) = 0.25*(G1(I) + G2(I) + G3(I) + G4(I)) 60 CONTINUE RMAT(1,1) = 0.0 RMAT(2,1) = 0.0 RMAT(3,1) =-ITWOH/2.0 DO 70 I = 2,5 VEC(1) = GRID(1,I) - G1(1) VEC(2) = GRID(2,I) - G1(2) VEC(3) = GRID(3,I) - G1(3) CALL GMMATS (ET,3,3,0, VEC,3,1,0, RMAT(1,I)) RMAT(1,I) = RMAT(1,I) + RMAT(1,1) RMAT(2,I) = RMAT(2,I) + RMAT(2,1) RMAT(3,I) = RMAT(3,I) + RMAT(3,1) 70 CONTINUE C C SET PLANAR FLAG .TRUE. OR .FALSE. C IF ((ITWOH/2.0)**2/IAREA .LE. 0.01) GO TO 80 PLANAR = .FALSE. GO TO 90 80 PLANAR = .TRUE. C C ALL BASIC CALCULATIONS NOW COMPLETE C 90 IERROR = 0 RETURN C C ERROR CONDITION, BAD ELEMENT GEOMETRY. C 100 IERROR = 1 RETURN END ================================================ FILE: mis/q2trmd.f ================================================ SUBROUTINE Q2TRMD(RA,RB,RC,ALPHA,ISINTH,ICOSTH,GSUBE,IT, 1 IERROR,IOPT,KMAT,PMAT,SMAT,ZMAT) C***** C SUB-TRIANGLE COMPUTATION ROUTINE FOR THE QDMEM2 ELEMENT C C ON INPUT C ======== C RA,RB,RC = 3 (3X1) COORDINATE VECTORS FOR TRIANGLE C IOPT = 1 CALL FROM STIFFNESS GENERATION MODULE C = 2 CALL FROM STATIC LOAD MODULE C = 3 CALL FROM STRESS RECOVERY MODULE C ALPHA = 3X1 VECTOR APPROPRIATE FOR CALL C ISINTH = SIN OF MATERIAL ANGLE(WHOLE - ELEMENT) C ICOSTH = COS OF MATERIAL ANGLE(WHOLE - ELEMENT) C GSUBE = MATERIAL MATRIX (3X3) C IT = THICKNESS OF ELEMENT C C ON OUTPUT C ========= C IERROR = 0 IF NO ERROR C = 1 IF BAD ELEMENT GEOMETRY C C KMAT,PMAT,SMAT,ZMAT = FOLLOWING PER IOPT VALUE SENT C C C IOPT=1 C ------ C KMAT = 7 (3X3)-S = KCA,KCB,KCC,KAA,KAB,KBA,KBB C PMAT = UNCHANGED C SMAT = UNCHANGED C ZMAT = UNCHANGED C C IOPT=2 C ------ C KMAT = 3 (3X3)-S = KCA,KCB,KCC C PMAT = 3 (3X1)-S = PA,PB,PC C SMAT = UNCHANGED C ZMAT = UNCHANGED C C IOPT=3 C ------ C KMAT = 7 (3X3)-S = KCA,KCB,KCC,KAA,KAB,KBA,KBB C PMAT = 3 (3X1)-S = PTA,PTB,PTC C SMAT = 3 (3X3)-S = SA,SB,SC C ZMAT = 3 (3X1)-S = ZA,ZB,ZC C C***** DOUBLE PRECISION ALPHA(3) ,E(9) ,IAREAT ,I33 DOUBLE PRECISION RA(3) ,KMAT(1) ,ZMAT(1) ,MAG ,IVEC(3) DOUBLE PRECISION RB(3) ,PMAT(1) ,V12(3) ,IAREA ,JVEC(3) DOUBLE PRECISION RC(3) ,SMAT(1) ,V13(3) ,IXSUBB ,KVEC(3) DOUBLE PRECISION IC ,ISINTH ,CA(6) ,IXSUBC ,TM(9) DOUBLE PRECISION IS ,ICOSTH ,CB(6) ,IYSUBC ,TM3(3) DOUBLE PRECISION IT ,CC(6) ,C(3,6) ,ALP(3) DOUBLE PRECISION TEMP9(9) ,HI(27) ,HITGE(9) ,GSUBE(9) C DOUBLE PRECISION DADOTB C INTEGER IPART(3,3) C EQUIVALENCE (C(1,1),CA(1)), (C(1,3),CB(1)), (C(1,5),CC(1)) EQUIVALENCE (E(1),IVEC(1)), (E(4),JVEC(1)), (E(7),KVEC(1)) C DATA IPART/ 28,46,1, 37,55,10, 0,0,19 / C C V = R - R , V = R - R C 12 B A 13 C B C DO 10 I = 1,3 V12(I) = RB(I) - RA(I) V13(I) = RC(I) - RA(I) 10 CONTINUE C C KVEC(UN-NORMALIZED) = V X V C 12 13 C CALL DAXB( V12, V13, KVEC ) MAG = DSQRT( DADOTB(KVEC,KVEC) ) IF( MAG ) 190,190,20 C C NORMALIZE K-VECTOR, AND AREA C 20 KVEC(1) = KVEC(1) / MAG KVEC(2) = KVEC(2) / MAG KVEC(3) = KVEC(3) / MAG IAREA = 0.50D0 * MAG C C I-VECTOR = V (NORMALIZED) THUS C 12 C MAG = DSQRT( DADOTB( V12, V12 ) ) IF( MAG ) 190,190,30 30 IVEC(1) = V12(1) / MAG IVEC(2) = V12(2) / MAG IVEC(3) = V12(3) / MAG IXSUBB = MAG C C J-VECTOR = K-VECTOR CROSS I-VECTOR THUS C CALL DAXB( KVEC, IVEC, JVEC ) C C MATERIAL COEFFICIENTS C AND S U,V,W = I-VECTOR C MAG = DSQRT( IVEC(1)**2 + IVEC(2)**2 ) IF( MAG .LE. 0.D0 ) GO TO 190 IC =(IVEC(1)*ICOSTH + IVEC(2)*ISINTH)/MAG IS =(IVEC(1)*ISINTH - IVEC(2)*ICOSTH)/MAG C C X = MAGNITUDE OF V , X = I-VEC DOT V , Y = J-VEC DOT V C B 12 C 13 C 13 C IXSUBC = DADOTB( IVEC, V13 ) IYSUBC = DADOTB( JVEC, V13 ) IF( IXSUBB ) 40,190,40 40 IF( IYSUBC ) 50,190,50 C 50 CA(1) = -1.0D0 / IXSUBB CA(2) = 0.0D0 I33 = 1.0D0 / IYSUBC CA(3) = I33 * (IXSUBC/IXSUBB - 1.0D0) CA(4) = 0.0D0 CA(5) = CA(3) CA(6) = CA(1) C CB(1) = -CA(1) CB(2) = 0.0D0 CB(3) = - I33 * (IXSUBC / IXSUBB ) CB(4) = 0.0D0 CB(5) = CB(3) CB(6) = CB(1) C CC(1) = 0.0D0 CC(2) = 0.0D0 CC(3) = I33 CC(4) = 0.0D0 CC(5) = I33 CC(6) = 0.0D0 C C FORM MATERIAL-ORIENTATION-TRANSFORMATION-MATRIX (BY-ROWS) C TM(1) = IC * IC TM(2) = IS * IS TM(3) = IC * IS TM(4) = TM(2) TM(5) = TM(1) TM(6) = -TM(3) TM(7) = 2.0D0 * TM(6) TM(8) = -TM(7) TM(9) = TM(1) - TM(2) IAREAT= IAREA * IT C C IF SSG CALL MULTIPLY ALPHA(T-TO) VECTOR BY IAREAT C IF( IOPT .NE. 2 ) GO TO 60 ALP(1) = ALPHA(1) * IAREAT ALP(2) = ALPHA(2) * IAREAT ALP(3) = ALPHA(3) * IAREAT C C IF SDR CALL COMPUTE AREA = X * T C B 60 IF( IOPT .NE. 3 ) GO TO 70 TM3(1) = TM(3) * IT TM3(2) = TM(6) * IT TM3(3) = TM(9) * IT C C SET FIRST PARTITION ROW TO COMPUTE FOR STIFFNESS MATRICES. C 70 IROW1 = 1 IF( IOPT .EQ. 2 ) IROW1 = 3 C***** C M C H = T C E C I I C C***** DO 80 I = 1,3 CALL GMMATD( TM,3,3,0, C(1,2*I-1),2,3,1, TEMP9 ) CALL GMMATD( TEMP9,3,2,0, E,2,3,0, HI(9*I-8) ) 80 CONTINUE C***** C FORM OUTPUTS FOR POINTS I = A,B,C C***** DO 180 I = 1,3 C C T C HITGE= H G C I E C CALL GMMATD( HI(9*I-8),3,3,1, GSUBE,3,3,0, HITGE ) C C STIFFNESS MATRIX CALCULATIONS C C ONLY KAA,KAB ARE FORMED. OUTPUT ORDER WITH EACH 3X3 STORED C KBA,KBB BY ROWS = C KCA,KCB,KCC KCA,KCB,KCC,KAA,KAB,KBA,KBB C IF( I .LT. IROW1 ) GO TO 150 KK = 0 DO 140 J = 1,3 IPARTN = IPART(I,J) IF( IPARTN )140,140,90 90 DO 100 K = 1,9 KK = KK + 1 TEMP9(K) = HI(KK)*IAREAT 100 CONTINUE CALL GMMATD( HITGE,3,3,0, TEMP9,3,3,0, KMAT(IPARTN) ) 140 CONTINUE 150 GO TO(180,160,170),IOPT C**** C SSG LOAD GENERATION CALL ADDITIONAL DATA TO OUTPUT. C C ONLY PA,PB,PC ARE FORMED. C***** 160 CALL GMMATD( HITGE,3,3,0, ALP,3,1,0, PMAT(3*I-2) ) GO TO 180 C***** C SDR ADDITIONAL PHASE-1 STRESS OUTPUTS C***** 170 JPARTN = 9*I-8 CALL GMMATD( GSUBE,3,3,0, HI(JPARTN),3,3,0, SMAT(JPARTN) ) IPARTN = 3*I - 2 CALL GMMATD( HITGE,3,3,0, ALPHA,3,1,0, PMAT(IPARTN) ) CALL GMMATD( TM3,3,1,1, SMAT(JPARTN),3,3,0, ZMAT(IPARTN) ) DO 175 J=1,3 K = IPARTN + J - 1 PMAT(K) = PMAT(K)*IAREAT 175 CONTINUE C 180 CONTINUE IERROR = 0 RETURN C***** C ERROR CONDITION, BAD GEOMETRY. C***** 190 IERROR = 1 RETURN END ================================================ FILE: mis/q2trms.f ================================================ SUBROUTINE Q2TRMS(RA,RB,RC,ALPHA,ISINTH,ICOSTH,GSUBE,IT, 1 IERROR,IOPT,KMAT,PMAT,SMAT,ZMAT) C***** C SUB-TRIANGLE COMPUTATION ROUTINE FOR THE QDMEM2 ELEMENT C C ON INPUT C ======== C RA,RB,RC = 3 (3X1) COORDINATE VECTORS FOR TRIANGLE C IOPT = 1 CALL FROM STIFFNESS GENERATION MODULE C = 2 CALL FROM STATIC LOAD MODULE C = 3 CALL FROM STRESS RECOVERY MODULE C ALPHA = 3X1 VECTOR APPROPRIATE FOR CALL C ISINTH = SIN OF MATERIAL ANGLE(WHOLE - ELEMENT) C ICOSTH = COS OF MATERIAL ANGLE(WHOLE - ELEMENT) C GSUBE = MATERIAL MATRIX (3X3) C IT = THICKNESS OF ELEMENT C C ON OUTPUT C ========= C IERROR = 0 IF NO ERROR C = 1 IF BAD ELEMENT GEOMETRY C C KMAT,PMAT,SMAT,ZMAT = FOLLOWING PER IOPT VALUE SENT C C C IOPT=1 C ------ C KMAT = 7 (3X3)-S = KCA,KCB,KCC,KAA,KAB,KBA,KBB C PMAT = UNCHANGED C SMAT = UNCHANGED C ZMAT = UNCHANGED C C IOPT=2 C ------ C KMAT = 3 (3X3)-S = KCA,KCB,KCC C PMAT = 3 (3X1)-S = PA,PB,PC C SMAT = UNCHANGED C ZMAT = UNCHANGED C C IOPT=3 C ------ C KMAT = 7 (3X3)-S = KCA,KCB,KCC,KAA,KAB,KBA,KBB C PMAT = 3 (3X1)-S = PTA,PTB,PTC C SMAT = 3 (3X3)-S = SA,SB,SC C ZMAT = 3 (3X1)-S = ZA,ZB,ZC C C***** REAL ALPHA(3) ,E(9) ,IAREAT ,I33 REAL RA(3) ,KMAT(1) ,ZMAT(1) ,MAG ,IVEC(3) REAL RB(3) ,PMAT(1) ,V12(3) ,IAREA ,JVEC(3) REAL RC(3) ,SMAT(1) ,V13(3) ,IXSUBB ,KVEC(3) REAL IC ,ISINTH ,CA(6) ,IXSUBC ,TM(9) REAL IS ,ICOSTH ,CB(6) ,IYSUBC ,TM3(3) REAL IT ,CC(6) ,C(3,6) ,ALP(3) REAL TEMP9(9) ,HI(27) ,HITGE(9) ,GSUBE(9) C REAL SADOTB C INTEGER IPART(3,3) C EQUIVALENCE (C(1,1),CA(1)), (C(1,3),CB(1)), (C(1,5),CC(1)) EQUIVALENCE (E(1),IVEC(1)), (E(4),JVEC(1)), (E(7),KVEC(1)) C DATA IPART/ 28,46,1, 37,55,10, 0,0,19 / C C V = R - R , V = R - R C 12 B A 13 C B C DO 10 I = 1,3 V12(I) = RB(I) - RA(I) V13(I) = RC(I) - RA(I) 10 CONTINUE C C KVEC(UN-NORMALIZED) = V X V C 12 13 C CALL SAXB( V12, V13, KVEC ) MAG = SQRT( SADOTB( KVEC, KVEC ) ) IF( MAG ) 190,190,20 C C NORMALIZE K-VECTOR, AND AREA C 20 KVEC(1) = KVEC(1) / MAG KVEC(2) = KVEC(2) / MAG KVEC(3) = KVEC(3) / MAG IAREA = 0.50 * MAG C C I-VECTOR = V (NORMALIZED) THUS C 12 C MAG = SQRT( SADOTB( V12, V12 ) ) IF( MAG ) 190,190,30 30 IVEC(1) = V12(1) / MAG IVEC(2) = V12(2) / MAG IVEC(3) = V12(3) / MAG IXSUBB = MAG C C J-VECTOR = K-VECTOR CROSS I-VECTOR THUS C CALL SAXB( KVEC, IVEC, JVEC ) C C MATERIAL COEFFICIENTS C AND S U,V,W = I-VECTOR C MAG = SQRT( IVEC(1)**2 + IVEC(2)**2 ) IF( MAG .LE. 0.E0 ) GO TO 190 IF( MAG .LE. 0 ) GO TO 190 IC =(IVEC(1)*ICOSTH + IVEC(2)*ISINTH)/MAG IS =(IVEC(1)*ISINTH - IVEC(2)*ICOSTH)/MAG C C X = MAGNITUDE OF V , X = I-VEC DOT V , Y = J-VEC DOT V C B 12 C 13 C 13 C IXSUBC = SADOTB( IVEC, V13 ) IYSUBC = SADOTB( JVEC, V13 ) IF( IXSUBB ) 40,190,40 40 IF( IYSUBC ) 50,190,50 C 50 CA(1) = -1.0E0 / IXSUBB CA(2) = 0.0E0 I33 = 1.0E0 / IYSUBC CA(3) = I33 * (IXSUBC/IXSUBB - 1.0E0) CA(4) = 0.0E0 CA(5) = CA(3) CA(6) = CA(1) C CB(1) = -CA(1) CB(2) = 0.0E0 CB(3) = - I33 * (IXSUBC / IXSUBB ) CB(4) = 0.0E0 CB(5) = CB(3) CB(6) = CB(1) C CC(1) = 0.0E0 CC(2) = 0.0E0 CC(3) = I33 CC(4) = 0.0E0 CC(5) = I33 CC(6) = 0.0E0 C C FORM MATERIAL-ORIENTATION-TRANSFORMATION-MATRIX (BY-ROWS) C TM(1) = IC * IC TM(2) = IS * IS TM(3) = IC * IS TM(4) = TM(2) TM(5) = TM(1) TM(6) = -TM(3) TM(7) = 2.0E0 * TM(6) TM(8) = -TM(7) TM(9) = TM(1) - TM(2) IAREAT= IAREA * IT C C IF SSG CALL MULTIPLY ALPHA(T-TO) VECTOR BY IAREAT C IF( IOPT .NE. 2 ) GO TO 60 ALP(1) = ALPHA(1) * IAREAT ALP(2) = ALPHA(2) * IAREAT ALP(3) = ALPHA(3) * IAREAT C C IF SDR CALL COMPUTE AREA = X * T C B 60 IF( IOPT .NE. 3 ) GO TO 70 TM3(1) = TM(3) * IT TM3(2) = TM(6) * IT TM3(3) = TM(9) * IT C C SET FIRST PARTITION ROW TO COMPUTE FOR STIFFNESS MATRICES. C 70 IROW1 = 1 IF( IOPT .EQ. 2 ) IROW1 = 3 C***** C M C H = T C E C I I C C***** DO 80 I = 1,3 CALL GMMATS( TM,3,3,0, C(1,2*I-1),2,3,1, TEMP9 ) CALL GMMATS( TEMP9,3,2,0, E,2,3,0, HI(9*I-8) ) 80 CONTINUE C***** C FORM OUTPUTS FOR POINTS I = A,B,C C***** DO 180 I = 1,3 C C T C HITGE= H G C I E C CALL GMMATS( HI(9*I-8),3,3,1, GSUBE,3,3,0, HITGE ) C C STIFFNESS MATRIX CALCULATIONS C C ONLY KAA,KAB ARE FORMED. OUTPUT ORDER WITH EACH 3X3 STORED C KBA,KBB BY ROWS = C KCA,KCB,KCC KCA,KCB,KCC,KAA,KAB,KBA,KBB C IF( I .LT. IROW1 ) GO TO 150 KK = 0 DO 140 J = 1,3 IPARTN = IPART(I,J) IF( IPARTN )140,140,90 90 DO 100 K = 1,9 KK = KK + 1 TEMP9(K) = HI(KK)*IAREAT 100 CONTINUE CALL GMMATS( HITGE,3,3,0, TEMP9,3,3,0, KMAT(IPARTN) ) 140 CONTINUE 150 GO TO(180,160,170),IOPT C**** C SSG LOAD GENERATION CALL ADDITIONAL DATA TO OUTPUT. C C ONLY PA,PB,PC ARE FORMED. C***** 160 CALL GMMATS( HITGE,3,3,0, ALP,3,1,0, PMAT(3*I-2) ) GO TO 180 C***** C SDR ADDITIONAL PHASE-1 STRESS OUTPUTS C***** 170 JPARTN = 9*I-8 CALL GMMATS( GSUBE,3,3,0, HI(JPARTN),3,3,0, SMAT(JPARTN) ) IPARTN = 3*I - 2 CALL GMMATS( HITGE,3,3,0, ALPHA,3,1,0, PMAT(IPARTN) ) CALL GMMATS( TM3,3,1,1, SMAT(JPARTN),3,3,0, ZMAT(IPARTN) ) DO 175 J=1,3 K = IPARTN + J - 1 PMAT(K) = PMAT(K)*IAREAT 175 CONTINUE C 180 CONTINUE IERROR = 0 RETURN C***** C ERROR CONDITION, BAD GEOMETRY. C***** 190 IERROR = 1 RETURN END ================================================ FILE: mis/q4bmgd.f ================================================ SUBROUTINE Q4BMGD (DSHP,GPTH,BGPDT,GPNORM,PHI,BMATRX) C C THIS ROUTINE ASSEMBLES PORTIONS OF B-MATRIX FOR QUAD4 C LOGICAL MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,BADJ INTEGER ROWFLG REAL GPNORM(4,1),BGPDT(4,1) DOUBLE PRECISION BMATRX(1),PSITRN(9),BBAR(120),ATRANS(6),PHI(9), 1 DSHP(1),GPTH(1),DERIV,THICK,HZTA,TERM,DETJ, 2 UEV,UNV,ANGLEI,EDGEL,EDGSHR,BB1,BB2,BB3, 3 BSBAR1(6),BSBAR(48),TEE(9) COMMON /Q4DT / DETJ,HZTA,PSITRN,NNODE,BADJ,N1 COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /Q4COMD/ ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4), 1 UEV(3,4),ROWFLG,IORDER(4) C***** C INITIALIZE C***** NDOF =NNODE*6 NDOF3=NNODE*3 ND2=NDOF*2 ND3=NDOF*3 ND4=NDOF*4 ND5=NDOF*5 ND6=NDOF*6 C C SET THE SIZE OF B-MATRIX BASED ON THE ROW FLAG. C ROWFLG = 1 OUT OF PLANE SHEAR (LAST 2 ROWS) ND2 C ROWFLG = 2 IN-PLANE SHEAR (THIRD ROW) NDOF C ROWFLG = 3 THE FIRST SIX (THREE) ROWS ND6 (ND3) C NN = ND6 IF (NORPTH) NN = ND3 IF (ROWFLG .EQ. 1) NN = ND2 IF (ROWFLG .EQ. 2) NN = ND2 C***** C SET UP TERMS TO BE FILLED IN B-MATRIX C***** DO 50 K=1,NNODE KPOINT=6*(K-1) THICK =GPTH(K) C C COMPUTE THE TERMS WHICH GO IN THE FIRST 6(3) ROWS. C IF (ROWFLG .EQ. 1) GO TO 20 ATRANS(1)=-PSITRN(2)*GPNORM(4,K)+PSITRN(3)*GPNORM(3,K) ATRANS(2)= PSITRN(1)*GPNORM(4,K)-PSITRN(3)*GPNORM(2,K) ATRANS(3)=-PSITRN(1)*GPNORM(3,K)+PSITRN(2)*GPNORM(2,K) ATRANS(4)=-PSITRN(5)*GPNORM(4,K)+PSITRN(6)*GPNORM(3,K) ATRANS(5)= PSITRN(4)*GPNORM(4,K)-PSITRN(6)*GPNORM(2,K) ATRANS(6)=-PSITRN(4)*GPNORM(3,K)+PSITRN(5)*GPNORM(2,K) C DO 10 I=1,2 IPOINT=ND3*(I-1) ITOT =IPOINT+KPOINT DERIV=DSHP(N1*(I-1)+K) BBAR( 1+ITOT)=DERIV*PSITRN(1) BBAR( 2+ITOT)=DERIV*PSITRN(2) BBAR( 3+ITOT)=DERIV*PSITRN(3) BBAR(NDOF+1+ITOT)=DERIV*PSITRN(4) BBAR(NDOF+2+ITOT)=DERIV*PSITRN(5) BBAR(NDOF+3+ITOT)=DERIV*PSITRN(6) TERM=HZTA*THICK*DERIV BBAR( 4+ITOT)=TERM*ATRANS(1) BBAR( 5+ITOT)=TERM*ATRANS(2) BBAR( 6+ITOT)=TERM*ATRANS(3) BBAR(NDOF+4+ITOT)=TERM*ATRANS(4) BBAR(NDOF+5+ITOT)=TERM*ATRANS(5) BBAR(NDOF+6+ITOT)=TERM*ATRANS(6) 10 CONTINUE GO TO 50 C C COMPUTE THE TERMS WHICH GO IN THE LAST 2 ROWS. C 20 IF (.NOT.BENDNG) RETURN TEE(1)= 0.0D0 TEE(2)=-GPNORM(4,K) TEE(3)= GPNORM(3,K) TEE(4)=-TEE(2) TEE(5)= 0.0D0 TEE(6)=-GPNORM(2,K) TEE(7)=-TEE(3) TEE(8)=-TEE(6) TEE(9)= 0.0D0 C KP1=KPOINT*2 KP2=KP1+7 J=IORDER(K) I=J-1 IF (I .EQ. 0) I=4 C IB=0 30 IB=IB+1 BB1=-UNV(IB,J)*EDGSHR(1,J)/EDGEL(J) 1 +UNV(IB,I)*EDGSHR(1,I)/EDGEL(I) BB2=-UNV(IB,J)*EDGSHR(2,J)/EDGEL(J) 1 +UNV(IB,I)*EDGSHR(2,I)/EDGEL(I) BB3=-UNV(IB,J)*EDGSHR(3,J)/EDGEL(J) 1 +UNV(IB,I)*EDGSHR(3,I)/EDGEL(I) BSBAR(KP1+IB )=PSITRN(1)*BB1+PSITRN(2)*BB2+PSITRN(3)*BB3 BSBAR(KP1+IB+3)=PSITRN(4)*BB1+PSITRN(5)*BB2+PSITRN(6)*BB3 IF (IB .LT. 3) GO TO 30 C IB=0 40 IB=IB+1 BB1=-(UEV(IB,J)*EDGSHR(1,J)+UEV(IB,I)*EDGSHR(1,I))*0.5D0 BB2=-(UEV(IB,J)*EDGSHR(2,J)+UEV(IB,I)*EDGSHR(2,I))*0.5D0 BB3=-(UEV(IB,J)*EDGSHR(3,J)+UEV(IB,I)*EDGSHR(3,I))*0.5D0 BSBAR1(IB )=PSITRN(1)*BB1+PSITRN(2)*BB2+PSITRN(3)*BB3 BSBAR1(IB+3)=PSITRN(4)*BB1+PSITRN(5)*BB2+PSITRN(6)*BB3 IF (IB .LT. 3) GO TO 40 CALL GMMATD (BSBAR1,2,3,0,TEE,3,3,0,BSBAR(KP2)) C C***** C FILL IN B-MATRIX FOR THE NORMAL PATH C***** C 50 CONTINUE IF (.NOT.NORPTH) GO TO 200 GO TO (140,120,100), ROWFLG C C ROWFLG = 3 FIRST THREE ROWS C 100 DO 110 KBAR=1,NDOF BMATRX(KBAR )=PHI(1)*BBAR(KBAR )+PHI(2)*BBAR(KBAR+ND3 ) BMATRX(KBAR+NDOF)=PHI(4)*BBAR(KBAR+NDOF)+PHI(5)*BBAR(KBAR+ND4 ) BMATRX(KBAR+ND2 )=PHI(4)*BBAR(KBAR )+PHI(1)*BBAR(KBAR+NDOF) 1 +PHI(5)*BBAR(KBAR+ND3 )+PHI(2)*BBAR(KBAR+ND4 ) 110 CONTINUE GO TO 300 C C ROWFLG = 2 IN-PLANE SHEAR (3RD ROW) C 120 DO 130 KBAR=1,NDOF BMATRX(KBAR)=PHI(4)*BBAR(KBAR )+PHI(1)*BBAR(KBAR+NDOF) 1 +PHI(5)*BBAR(KBAR+ND3)+PHI(2)*BBAR(KBAR+ND4 ) 130 CONTINUE GO TO 300 C C ROWFLG = 1 OUT-OF-PLANE SHEAR (LAST 2 ROWS) C 140 DO 150 KBAR=1,NDOF IBAR=((KBAR-1)/3)*3+KBAR BMATRX(KBAR+NDOF)=BSBAR(IBAR ) BMATRX(KBAR )=BSBAR(IBAR+3) 150 CONTINUE GO TO 300 C C***** C FILL IN B-MATRIX FOR THE MIDI PATH C***** C 200 DO 210 IJI=1,NN 210 BMATRX(IJI)=0.0D0 GO TO (280,260,220), ROWFLG C C ROWFLG = 3 FIRST SIX ROWS C 220 IF (.NOT.MEMBRN) GO TO 240 DO 230 KA=1,NNODE KK=(KA-1)*6 DO 230 M=1,3 BMATRX(M+KK )=PHI(1)*BBAR(M+KK )+PHI(2)*BBAR(M+KK+ND3) BMATRX(M+KK+NDOF)=PHI(4)*BBAR(M+KK+NDOF)+PHI(5)*BBAR(M+KK+ND4) 230 CONTINUE C 240 IF (.NOT.BENDNG) GO TO 300 DO 250 KA=1,NNODE KK=(KA-1)*6 DO 250 N=4,6 BMATRX(N+KK+ND3)=PHI(1)*BBAR(N+KK )+PHI(2)*BBAR(N+KK+ND3) BMATRX(N+KK+ND4)=PHI(4)*BBAR(N+KK+NDOF)+PHI(5)*BBAR(N+KK+ND4) 250 CONTINUE GO TO 300 C C ROWFLG = 2 IN-PLANE SHEAR (3RD AND 6TH ROWS) C 260 DO 270 KA=1,NNODE KK=(KA-1)*6 DO 270 M=1,3 N=3+M BMATRX(M+KK )=PHI(4)*BBAR(M+KK )+PHI(1)*BBAR(M+KK+NDOF) 1 +PHI(5)*BBAR(M+KK+ND3)+PHI(2)*BBAR(M+KK+ND4) BMATRX(N+KK+NDOF)=PHI(4)*BBAR(N+KK )+PHI(1)*BBAR(N+KK+NDOF) 1 +PHI(5)*BBAR(N+KK+ND3)+PHI(2)*BBAR(N+KK+ND4) 270 CONTINUE GO TO 300 C C ROWFLG = 1 OUT-OF-PLANE SHEAR (LAST 2 ROWS) C 280 DO 290 KA=1,NNODE KK=(KA-1)*6 DO 290 M=1,3 N=3+M KKK=KK*2 BMATRX(M+KK+NDOF)=BSBAR(M+KKK ) BMATRX(N+KK+NDOF)=BSBAR(M+KKK+6) BMATRX(M+KK )=BSBAR(N+KKK ) BMATRX(N+KK )=BSBAR(N+KKK+6) 290 CONTINUE C 300 CONTINUE RETURN END ================================================ FILE: mis/q4bmgs.f ================================================ SUBROUTINE Q4BMGS (DSHP,GPTH,BGPDT,GPNORM,PHI,BMATRX) C C THIS ROUTINE ASSEMBLES PORTIONS OF B-MATRIX FOR QUAD4 C LOGICAL MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,BADJ INTEGER ROWFLG REAL GPNORM(4,1),BGPDT(4,1) REAL BMATRX(1),PSITRN(9),BBAR(120),ATRANS(6),PHI(9), 1 DSHP(1),GPTH(1),DERIV,THICK ,HZTA,TERM,DETJ, 2 UEV,UNV,ANGLEI,EDGEL,EDGSHR,BB1,BB2,BB3, 3 BSBAR1(6),BSBAR(48),TEE(9) COMMON /Q4DT / DETJ,HZTA,PSITRN,NNODE,BADJ,N1 COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /Q4COMS/ ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4), 1 UEV(3,4),ROWFLG,IORDER(4) C***** C INITIALIZE C***** NDOF=NNODE*6 NDOF3=NNODE*3 ND2=NDOF*2 ND3=NDOF*3 ND4=NDOF*4 ND5=NDOF*5 ND6=NDOF*6 C C SET THE SIZE OF B-MATRIX BASED ON THE ROW FLAG. C ROWFLG = 1 OUT OF PLANE SHEAR (LAST 2 ROWS) ND2 C ROWFLG = 2 IN-PLANE SHEAR (THIRD ROW) NDOF C ROWFLG = 3 THE FIRST SIX (THREE) ROWS ND6 (ND3) C NN = ND6 IF (NORPTH) NN = ND3 IF (ROWFLG .EQ. 1) NN = ND2 IF (ROWFLG .EQ. 2) NN = ND2 C***** C SET UP TERMS TO BE FILLED IN B-MATRIX C***** DO 50 K=1,NNODE KPOINT=6*(K-1) THICK=GPTH(K) C C COMPUTE THE TERMS WHICH GO IN THE FIRST 6(3) ROWS. C IF (ROWFLG .EQ. 1) GO TO 20 ATRANS(1)=-PSITRN(2)*GPNORM(4,K)+PSITRN(3)*GPNORM(3,K) ATRANS(2)= PSITRN(1)*GPNORM(4,K)-PSITRN(3)*GPNORM(2,K) ATRANS(3)=-PSITRN(1)*GPNORM(3,K)+PSITRN(2)*GPNORM(2,K) ATRANS(4)=-PSITRN(5)*GPNORM(4,K)+PSITRN(6)*GPNORM(3,K) ATRANS(5)= PSITRN(4)*GPNORM(4,K)-PSITRN(6)*GPNORM(2,K) ATRANS(6)=-PSITRN(4)*GPNORM(3,K)+PSITRN(5)*GPNORM(2,K) C DO 10 I=1,2 IPOINT=ND3*(I-1) ITOT =IPOINT+KPOINT DERIV=DSHP(N1*(I-1)+K) BBAR( 1+ITOT)=DERIV*PSITRN(1) BBAR( 2+ITOT)=DERIV*PSITRN(2) BBAR( 3+ITOT)=DERIV*PSITRN(3) BBAR(NDOF+1+ITOT)=DERIV*PSITRN(4) BBAR(NDOF+2+ITOT)=DERIV*PSITRN(5) BBAR(NDOF+3+ITOT)=DERIV*PSITRN(6) TERM=HZTA*THICK*DERIV BBAR( 4+ITOT)=TERM*ATRANS(1) BBAR( 5+ITOT)=TERM*ATRANS(2) BBAR( 6+ITOT)=TERM*ATRANS(3) BBAR(NDOF+4+ITOT)=TERM*ATRANS(4) BBAR(NDOF+5+ITOT)=TERM*ATRANS(5) BBAR(NDOF+6+ITOT)=TERM*ATRANS(6) 10 CONTINUE GO TO 50 C C COMPUTE THE TERMS WHICH GO IN THE LAST 2 ROWS. C 20 IF (.NOT.BENDNG) RETURN TEE(1)= 0.0 TEE(2)=-GPNORM(4,K) TEE(3)= GPNORM(3,K) TEE(4)=-TEE(2) TEE(5)= 0.0 TEE(6)=-GPNORM(2,K) TEE(7)=-TEE(3) TEE(8)=-TEE(6) TEE(9)= 0.0 C KP1=KPOINT*2 KP2=KP1+7 J=IORDER(K) I=J-1 IF (I .EQ. 0) I=4 C IB=0 30 IB=IB+1 BB1=-UNV(IB,J)*EDGSHR(1,J)/EDGEL(J) 1 +UNV(IB,I)*EDGSHR(1,I)/EDGEL(I) BB2=-UNV(IB,J)*EDGSHR(2,J)/EDGEL(J) 1 +UNV(IB,I)*EDGSHR(2,I)/EDGEL(I) BB3=-UNV(IB,J)*EDGSHR(3,J)/EDGEL(J) 1 +UNV(IB,I)*EDGSHR(3,I)/EDGEL(I) BSBAR(KP1+IB )=PSITRN(1)*BB1+PSITRN(2)*BB2+PSITRN(3)*BB3 BSBAR(KP1+IB+3)=PSITRN(4)*BB1+PSITRN(5)*BB2+PSITRN(6)*BB3 IF (IB.LT.3) GO TO 30 C IB=0 40 IB=IB+1 BB1=-(UEV(IB,J)*EDGSHR(1,J)+UEV(IB,I)*EDGSHR(1,I))*0.5 BB2=-(UEV(IB,J)*EDGSHR(2,J)+UEV(IB,I)*EDGSHR(2,I))*0.5 BB3=-(UEV(IB,J)*EDGSHR(3,J)+UEV(IB,I)*EDGSHR(3,I))*0.5 BSBAR1(IB )=PSITRN(1)*BB1+PSITRN(2)*BB2+PSITRN(3)*BB3 BSBAR1(IB+3)=PSITRN(4)*BB1+PSITRN(5)*BB2+PSITRN(6)*BB3 IF (IB .LT. 3) GO TO 40 CALL GMMATS (BSBAR1,2,3,0,TEE,3,3,0,BSBAR(KP2)) 50 CONTINUE C C***** C FILL IN B-MATRIX FOR THE NORMAL PATH C***** C IF (.NOT.NORPTH) GO TO 200 GO TO (140,120,100), ROWFLG C C ROWFLG = 3 FIRST THREE ROWS C 100 DO 110 KBAR=1,NDOF BMATRX(KBAR )=PHI(1)*BBAR(KBAR )+PHI(2)*BBAR(KBAR+ND3 ) BMATRX(KBAR+NDOF)=PHI(4)*BBAR(KBAR+NDOF)+PHI(5)*BBAR(KBAR+ND4 ) BMATRX(KBAR+ND2 )=PHI(4)*BBAR(KBAR )+PHI(1)*BBAR(KBAR+NDOF) 1 +PHI(5)*BBAR(KBAR+ND3 )+PHI(2)*BBAR(KBAR+ND4 ) 110 CONTINUE GO TO 300 C C ROWFLG = 2 IN-PLANE SHEAR (3RD ROW) C 120 DO 130 KBAR=1,NDOF BMATRX(KBAR)=PHI(4)*BBAR(KBAR )+PHI(1)*BBAR(KBAR+NDOF) 1 +PHI(5)*BBAR(KBAR+ND3)+PHI(2)*BBAR(KBAR+ND4 ) 130 CONTINUE GO TO 300 C C ROWFLG = 1 OUT-OF-PLANE SHEAR (LAST 2 ROWS) C 140 DO 150 KBAR=1,NDOF IBAR=((KBAR-1)/3)*3+KBAR BMATRX(KBAR+NDOF)=BSBAR(IBAR ) BMATRX(KBAR )=BSBAR(IBAR+3) 150 CONTINUE GO TO 300 C C***** C FILL IN B-MATRIX FOR THE MIDI PATH C***** C 200 DO 210 IJI=1,NN 210 BMATRX(IJI)=0.0E0 GO TO (280,260,220), ROWFLG C C ROWFLG = 3 FIRST SIX ROWS C 220 IF (.NOT.MEMBRN) GO TO 240 DO 230 KA=1,NNODE KK=(KA-1)*6 DO 230 M=1,3 BMATRX(M+KK )=PHI(1)*BBAR(M+KK )+PHI(2)*BBAR(M+KK+ND3) BMATRX(M+KK+NDOF)=PHI(4)*BBAR(M+KK+NDOF)+PHI(5)*BBAR(M+KK+ND4) 230 CONTINUE C 240 IF (.NOT.BENDNG) GO TO 300 DO 250 KA=1,NNODE KK=(KA-1)*6 DO 250 N=4,6 BMATRX(N+KK+ND3)=PHI(1)*BBAR(N+KK )+PHI(2)*BBAR(N+KK+ND3) BMATRX(N+KK+ND4)=PHI(4)*BBAR(N+KK+NDOF)+PHI(5)*BBAR(N+KK+ND4) 250 CONTINUE GO TO 300 C C ROWFLG = 2 IN-PLANE SHEAR (3RD AND 6TH ROWS) C 260 DO 270 KA=1,NNODE KK=(KA-1)*6 DO 270 M=1,3 N=3+M BMATRX(M+KK )=PHI(4)*BBAR(M+KK )+PHI(1)*BBAR(M+KK+NDOF) 1 +PHI(5)*BBAR(M+KK+ND3)+PHI(2)*BBAR(M+KK+ND4 ) BMATRX(N+KK+NDOF)=PHI(4)*BBAR(N+KK )+PHI(1)*BBAR(N+KK+NDOF) 1 +PHI(5)*BBAR(N+KK+ND3)+PHI(2)*BBAR(N+KK+ND4 ) 270 CONTINUE GO TO 300 C C ROWFLG = 1 OUT-OF-PLANE SHEAR (LAST 2 ROWS) C 280 DO 290 KA=1,NNODE KK=(KA-1)*6 DO 290 M=1,3 N=3+M KKK=KK*2 BMATRX(M+KK+NDOF)=BSBAR(M+KKK ) BMATRX(N+KK+NDOF)=BSBAR(M+KKK+6) BMATRX(M+KK )=BSBAR(N+KKK ) BMATRX(N+KK )=BSBAR(N+KKK+6) 290 CONTINUE C 300 CONTINUE RETURN END ================================================ FILE: mis/q4gmgs.f ================================================ SUBROUTINE Q4GMGS (MID,FACTOR,G) C & ENTRY Q4GMGD (MID,FACTOD,D) C C C MATERIAL PROPERTY MATRIX GENERATOR ROUTINE FOR QUAD4 ELEMENT C C THIS ROUTINE BUILDS THE MATERIAL PROPERTY MATRIX, G, USING THE C OUTPUT OF SUBROUTINE 'MAT' (/MATOUT/). C C ALL THE MATERIAL OPTIONS, ISOTROPIC, ORTHOTROPIC, AND ANISOTROPIC, C ARE AVAILABLE. C C OUTPUT WILL BE G(9) OR D(9) FOR MID1, MID2 AND MID4. C FOR MID3, G(4) OR D(4) IS SENT BACK. C REAL FACTOR,G(9),CONST,MTYPE,NU12,NU21 DOUBLE PRECISION FACTOD,D(9),DONST COMMON /MATOUT/ RMTOUT(25) EQUIVALENCE (RMTOUT(1),E1),(RMTOUT(2),NU12),(RMTOUT(3),E2) C C SINGLE PRECISION SECTION - C DO 10 I=1,9 10 G(I) = 0.0 MTYPE= RMTOUT(25) MTYP = IFIX(MTYPE+.05) - 2 IF (MTYP) 20,30,80 C C ISOTROPIC MATERIALS (MAT1) C 20 IF (MID .NE. 3) GO TO 40 G(1) = RMTOUT(6) G(4) = G(1) GO TO 100 C C ANISOTROPIC MATERIALS (MAT2) C 30 IF (MID .EQ. 3) GO TO 60 40 DO 50 I=1,3 50 G(I) = RMTOUT(I) G(4) = G(2) G(5) = RMTOUT(4) G(6) = RMTOUT(5) G(7) = G(3) G(8) = G(6) G(9) = RMTOUT(6) GO TO 100 C 60 DO 70 I=1,4 70 G(I) = RMTOUT(I) G(3) = G(2) GO TO 100 C C ORTHOTROPIC MATERIALS (MAT8) C 80 IF (MID .EQ. 3) GO TO 90 NU21 = NU12 * E2 / E1 CONST= 1.0 - (NU21*NU12) G(1) = E1 / CONST G(2) = NU12 * E2 / CONST G(4) = G(2) G(5) = E2 / CONST G(9) = RMTOUT(4) GO TO 100 C 90 G(1) = RMTOUT(6) G(4) = RMTOUT(5) IF (G(1).EQ.0.0 .AND. G(4).EQ.0.0) GO TO 120 C C STANDARD RETURN C 100 DO 110 I=1,9 110 G(I) = G(I)*FACTOR GO TO 310 C C FATAL RETURN C 120 MID = -MID GO TO 310 C ENTRY Q4GMGD (MID,FACTOD,D) C =========================== C DO 200 I=1,9 200 D(I) = 0.0D0 MTYPE= RMTOUT(25) MTYP = IFIX(MTYPE+.05) - 2 IF (MTYP) 210,220,270 C C ISOTROPIC MATERIALS (MAT1) C 210 IF (MID .NE. 3) GO TO 230 D(1) = RMTOUT(6) D(4) = D(1) GO TO 290 C C ANISOTROPIC MATERIALS (MAT2) C 220 IF (MID .EQ. 3) GO TO 250 230 DO 240 I=1,3 240 D(I) = RMTOUT(I) D(4) = D(2) D(5) = RMTOUT(4) D(6) = RMTOUT(5) D(7) = D(3) D(8) = D(6) D(9) = RMTOUT(6) GO TO 290 C 250 DO 260 I=1,4 260 D(I) = RMTOUT(I) D(3) = D(2) GO TO 290 C C ORTHOTROPIC MATERIALS (MAT8) C 270 IF (MID .EQ. 3) GO TO 280 NU21 = NU12 * E2 / E1 DONST= 1.0D0 - DBLE(NU21*NU12) D(1) = E1 / DONST D(2) = NU12 * E2 / DONST D(4) = D(2) D(5) = E2 / DONST D(9) = RMTOUT(4) GO TO 290 C 280 D(1) = RMTOUT(6) D(4) = RMTOUT(5) IF (D(1).EQ.0.0D0 .AND. D(4).EQ.0.0D0) GO TO 120 C C STANDARD RETURN C 290 DO 300 I=1,9 300 D(I) = D(I)*FACTOD C 310 RETURN END ================================================ FILE: mis/q4nrms.f ================================================ SUBROUTINE Q4NRMS (BGPDT,GPNORM,IORDER,IFLAG) C & ENTRY Q4NRMD (BGPDT,GPNORM,IORDER,IFLAG) C C***** C COMPUTES UNIT NORMAL VECTORS FOR QUAD4 GRID POINTS. C***** INTEGER IORDER(4) REAL BGPDT(4,4),GPNORM(4,4), 1 SHP(4), SSHP(4,2), V(3,3), TSHP(4), TSSHP(4,2), 2 AXI(4),AETA(4),ETA,VMAG,XI DOUBLE PRECISION DSHP(4),DSSHP(4,2),DV(3,3),TDSHP(4),TDSSHP(4,2), 1 ADI(4),AETD(4),ETD,DMAG,DI DATA AXI / -1.0 , 1.0 , 1.0 , -1.0 / DATA AETA / -1.0 , -1.0 , 1.0 , 1.0 / DATA ADI / -1.0D0, 1.0D0, 1.0D0, -1.0D0 / DATA AETD / -1.0D0, -1.0D0, 1.0D0, 1.0D0 / C C SINGLE PRECISION SECTION - C***** C COMPUTE SHAPE FUNCTION DERIVATIVES C***** IFLAG = 0 DO 50 II=1,4 IO = IORDER(II) XI = AXI(IO) ETA = AETA(IO) CALL Q4SHPS (XI,ETA,SHP,SSHP) C***** C SORT THE SHAPE FUNCTIONS C***** DO 10 I=1,4 TSHP(I) = SHP(I) DO 10 J=1,2 10 TSSHP(I,J) = SSHP(I,J) C DO 20 IK=1,4 I = IORDER(IK) SHP(IK) = TSHP(I) DO 20 J=1,2 20 SSHP(IK,J) = TSSHP(I,J) C***** C COMPUTE VECTOR C***** DO 30 I=1,2 DO 30 J=1,3 V(I,J) = 0.0 J1 = J + 1 DO 30 K=1,4 30 V(I,J) = V(I,J) + SSHP(K,I)*BGPDT(J1,K) C V(3,1) = V(1,2)*V(2,3) - V(2,2)*V(1,3) V(3,2) = V(1,3)*V(2,1) - V(2,3)*V(1,1) V(3,3) = V(1,1)*V(2,2) - V(2,1)*V(1,2) VMAG = V(3,1)**2+V(3,2)**2+V(3,3)**2 C IF (VMAG .GT. 1.0E-11) GO TO 40 IFLAG = 1 GO TO 200 C 40 VMAG = SQRT(VMAG) GPNORM(2,II) = V(3,1)/VMAG GPNORM(3,II) = V(3,2)/VMAG GPNORM(4,II) = V(3,3)/VMAG 50 CONTINUE GO TO 200 C ENTRY Q4NRMD (BGPDT,GPNORM,IORDER,IFLAG) C ======================================= C C DOUBLE PRECISION SECTION - C C***** C COMPUTE SHAPE FUNCTION DERIVATIVES C***** IFLAG = 0 DO 150 II=1,4 IO = IORDER(II) DI = ADI(IO) ETD = AETD(IO) CALL Q4SHPD (DI,ETD,DSHP,DSSHP) C C SORT THE SHAPE FUNCTIONS C DO 110 I=1,4 TDSHP(I) = DSHP(I) DO 110 J=1,2 110 TDSSHP(I,J) = DSSHP(I,J) C DO 120 IK=1,4 I = IORDER(IK) DSHP(IK) = TDSHP(I) DO 120 J=1,2 120 DSSHP(IK,J) = TDSSHP(I,J) C***** C COMPUTE VECTOR C***** DO 130 I=1,2 DO 130 J=1,3 DV(I,J) = 0.0D0 J1 = J + 1 DO 130 K=1,4 130 DV(I,J) = DV(I,J) + DSSHP(K,I)*BGPDT(J1,K) C DV(3,1) = DV(1,2)*DV(2,3) - DV(2,2)*DV(1,3) DV(3,2) = DV(1,3)*DV(2,1) - DV(2,3)*DV(1,1) DV(3,3) = DV(1,1)*DV(2,2) - DV(2,1)*DV(1,2) DMAG = DV(3,1)**2+DV(3,2)**2+DV(3,3)**2 C IF (DMAG .GT. 1.0D-11) GO TO 140 IFLAG = 1 GO TO 200 C 140 DMAG = DSQRT(DMAG) GPNORM(2,II) = DV(3,1)/DMAG GPNORM(3,II) = DV(3,2)/DMAG GPNORM(4,II) = DV(3,3)/DMAG 150 CONTINUE C 200 RETURN END ================================================ FILE: mis/q4shps.f ================================================ SUBROUTINE Q4SHPS (XI,ETA, SHP, SSHP) C & ENTRY Q4SHPD (DI,ETD,DSHP,DSSHP) C C***** C COMPUTES SHAPE FUNCTIONS AND THEIR DERIVATIVES C FOR THE QUAD4 ELEMENT C***** C REAL XI,ETA, SHP(4), SSHP(8),CLC(2,4) DOUBLE PRECISION DI,ETD,DSHP(4),DSSHP(8),DLD(2,4) DATA CLC /-1.0 ,-1.0 ,1.0 ,-1.0 ,1.0 ,1.0 ,-1.0 ,1.0 / DATA DLD /-1.0D0,-1.0D0,1.0D0,-1.0D0,1.0D0,1.0D0,-1.0D0,1.0D0/ C C SINGLE PRECISION - C DO 10 I=1,4 SHP (I ) = 0.25 * (1.0+XI *CLC(1,I)) * (1.0+ETA*CLC(2,I)) SSHP(I ) = 0.25 * (1.0+ETA*CLC(2,I)) * CLC(1,I) SSHP(I+4) = 0.25 * (1.0+XI *CLC(1,I)) * CLC(2,I) 10 CONTINUE RETURN C ENTRY Q4SHPD (DI,ETD,DSHP,DSSHP) C ================================ C C DOUBLE PRECISION - C DO 20 I=1,4 DSHP (I ) = .25D0 * (1.D0+DI *DLD(1,I)) * (1.D0+ETD*DLD(2,I)) DSSHP(I ) = .25D0 * (1.D0+ETD*DLD(2,I)) * DLD(1,I) DSSHP(I+4) = .25D0 * (1.D0+DI *DLD(1,I)) * DLD(2,I) 20 CONTINUE RETURN END ================================================ FILE: mis/qdmem.f ================================================ SUBROUTINE QDMEM(T,CORE) REAL IVEC,JVEC,KVEC,NGRID DIMENSION M(12),R(6),NGRID(4),COORD(16) DIMENSION D1(3),D2(3),A1(3),A2(3),A3(3),A4(3),IVEC(3),JVEC(3), 1 KVEC(3),V(8),ECPTSA(36),T(1),CORE(1) COMMON /CONDAS/ PI ,TWOPI ,RADEG ,DEGRA , 1 S4PISQ COMMON /TRIMEX/ ECPT(26) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH EQUIVALENCE (R(1),IVEC(1)),(NGRID(1),ECPTSA(2)), 1 (COORD(1),ECPTSA(10)),(R(4),JVEC(1)) C DATA M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 / C ****************************************************************** C ECPT ECPT C RECEIVED BY REQUIRED BY C SQDME1 STRME1 C ****************************************************************** C ECPT( 1) = EL. ID ECPT( 1) = EL. ID C ECPT( 2) = GRD. PT. A ECPT( 2) = GRD. PT. A C ECPT( 3) = GRD. PT. B ECPT( 3) = GRD. PT. B C ECPT( 4) = GRD. PT. C ECPT( 4) = GRD. PT. C C ECPT( 5) = GRD. PT. D ECPT( 5) = THETA C ECPT( 6) = THETA ECPT( 6) = MATERIAL ID C ECPT( 7) = MATERIAL ID ECPT( 7) = T C ECPT( 8) = T ECPT( 8) = NON-STRUCT. MASS C ECPT( 9) = NON-STRUCT. MASSECPT( 9) = COORD. SYS. ID 1 C ECPT(10) = COORD. SYS. ID 1ECPT(10) = X1 C ECPT(11) = X1 ECPT(11) = Y1 C ECPT(12) = Y1 ECPT(12) = Z1 C ECPT(13) = Z1 ECPT(13) = COORD. SYS. ID 2 C ECPT(14) = COORD. SYS. ID 2ECPT(14) = X2 C ECPT(15) = X2 ECPT(15) = Y2 C ECPT(16) = Y2 ECPT(16) = Z2 C ECPT(17) = Z2 ECPT(17) = COORD. SYS. ID 3 C ECPT(18) = COORD. SYS. ID 3ECPT(18) = X3 C ECPT(19) = X3 ECPT(19) = Y3 C ECPT(20) = Y3 ECPT(20) = Z3 C ECPT(21) = Z3 ECPT(21) = ELEMENT TEMPERATURE C ECPT(22) = COORD. SYS. ID 4 NOTE. THE FOLLOWING ARE INTEGERS... C ECPT(23) = X4 GRID POINTS, MAT ID, EL.ID, C ECPT(24) = Y4 COORD. SYS. IDS. C ECPT(25) = Z4 ALL OTHERS ARE REAL IN THE ECPT. C ECPT(26) = ELEMENT TEMPERATURE C ****************************************************************** C C C VECTORS D1 AND D2 FMMS-46 PAGE 6 C A1 A2 A3 A4 C DO 10 I=1,3 D1(I) = ECPT(I + 18) - ECPT(I + 10) D2(I) = ECPT(I + 22) - ECPT(I + 14) A1(I) = ECPT(I + 14) - ECPT(I + 10) A2(I) = ECPT(I + 18) - ECPT(I + 14) A3(I) = ECPT(I + 22) - ECPT(I + 18) 10 A4(I) = ECPT(I + 10) - ECPT(I + 22) C C K-VECTOR = NORMALIZED D1 CROSS D2 C KVEC(1) = D1(2) * D2(3) - D1(3) * D2(2) KVEC(2) = D1(3) * D2(1) - D1(1) * D2(3) KVEC(3) = D1(1) * D2(2) - D1(2) * D2(1) VECL = SQRT ( KVEC(1)**2 + KVEC(2)**2 + KVEC(3)**2 ) IF(VECL .EQ. 0.0) CALL MESAGE(-30,26,ECPT(1)) KVEC(1) = KVEC(1)/VECL KVEC(2) = KVEC(2)/VECL KVEC(3) = KVEC(3)/VECL C C I-VECTOR = NORMALIZED A SUB 12 - H * KVECTOR C GET H FIRST = ( A SUB 12 DOT KVECTOR)/2 C H = (A1(1)*KVEC(1) + A1(2)*KVEC(2) + A1(3)*KVEC(3))/2.0E0 C IVEC(1) = A1(1) - H * KVEC(1) IVEC(2) = A1(2) - H * KVEC(2) IVEC(3) = A1(3) - H * KVEC(3) VECL = SQRT ( IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2 ) IF(VECL .EQ. 0.0) CALL MESAGE(-30,26,ECPT(1)) IVEC(1) = IVEC(1)/VECL IVEC(2) = IVEC(2)/VECL IVEC(3) = IVEC(3)/VECL C C J-VECTOR = K CROSS I C JVEC(1) = KVEC(2) * IVEC(3) - KVEC(3) * IVEC(2) JVEC(2) = KVEC(3) * IVEC(1) - KVEC(1) * IVEC(3) JVEC(3) = KVEC(1) * IVEC(2) - KVEC(2) * IVEC(1) C VECL = SQRT(JVEC(1)**2 + JVEC(2)**2 + JVEC(3)**2) JVEC(1) = JVEC(1)/VECL JVEC(2) = JVEC(2)/VECL JVEC(3) = JVEC(3)/VECL C THETA=ECPT(6)*DEGRA SINANG=SIN(THETA) COSANG=COS(THETA) C V(1) = 1.0E0 V(2) = 0.0E0 C C R ARRAY IS EQUIVALENCED TO IVECTOR AND JVECTOR C CALL GMMATS(R,2,3,0, A2,3,1,0, V(3)) CALL GMMATS(R,2,3,0, A3,3,1,0, V(5)) CALL GMMATS(R,2,3,0, A4,3,1,0, V(7)) C C NORMALIZE THE 4 2X1 V ARRAYS C DO 20 I=1,4 VECL = SQRT ( V(2*I-1)**2 + V(2*I)**2 ) IF(VECL .EQ. 0.0) CALL MESAGE(-30,26,ECPT(1)) V(2*I-1) = V(2*I-1)/VECL 20 V(2*I ) = V(2*I )/VECL C C MAPPING MATRIX M IS IN DATA STATEMENT. C C NOW MAKE 4 CALLS TO STRME1 WHICH WILL RETURN C C SAVE GRID SILS AND COORDINATE SYSTEMS. C C C REDUCE THICKNESS BY 0.5 C ECPT(8) = ECPT(8)/2.0 DO 30 I=1,36 30 ECPTSA(I) = ECPT(I) C ECPT(6) = ECPT(7) ECPT(7) = ECPT(8) ECPT(8) = ECPT(9) C ECPT(21) = ECPT(26) C DO 60 I=1,4 C C POINTER TO THE SILS IN THE MAPPING MATRIX NCOORD = 8 NPOINT = 3*I-3 TBAR = T(1) DO 50 J=2,4 NPOINT = NPOINT + 1 NSUB1 = M(NPOINT) DO 40 K=1,4 NSUB3 = 4*NSUB1 - 4 + K NCOORD = NCOORD + 1 40 ECPT(NCOORD) = COORD(NSUB3) 50 ECPT(J) = NGRID(NSUB1) C C SET UP T MATRIX FOR THIS TRIANGLE. T IS 3X3 C U1 = V(2*I-1) U2 = V(2*I ) C C C COMPUTE NET SINTH AND COSTH FOR ANISOTROPIC POSSIBILITY C SINTH = SINANG * U1 - COSANG * U2 COSTH = COSANG * U1 + SINANG * U2 C CALL TRIMEM(1,TBAR,CORE) 60 CONTINUE RETURN END ================================================ FILE: mis/qdmm1.f ================================================ SUBROUTINE QDMM1 (TBAR,PG) C C QUADRILATERAL MEMBRANE ELEMENT C C CALLS FROM THIS ROUTINE ARE MADE TO C MAT - MATERIAL DATA ROUTINE C MESAGE - ERROR MESSAGE WRITER C BASGLB - TRANSFER COORDINATES FROM BASIC TO GLOBAL C GMMATS - SINGLE PRECISION MATRIX MULTIPLY AND TRANSPOSE C TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER C C ECPT LIST C IN THIS C ECPT DESCRIPTION ROUTINE TYPE C ======== ================================= ======== ======= C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) GRID POINT A NGRID(1) INTEGER C ECPT( 3) GRID POINT B NGRID(2) INTEGER C ECPT( 4) GRID POINT C NGRID(3) INTEGER C ECPT( 5) GRID POINT D NGRID(4) INTEGER C ECPT( 6) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 7) MATERIAL ID MATID1 INTEGER C ECPT( 8) = THICKNESS T REAL C ECPT( 9) = NON-STRUCTURAL MASS FMU REAL C ECPT(10) COORD. SYSTEM ID 1 NECPT(10) INTEGER C ECPT(11) = X1 X1 REAL C ECPT(12) = Y1 Y1 REAL C ECPT(13) = Z1 Z1 REAL C ECPT(14) COORD. SYSTEM ID 2 NECPT(14) INTEGER C ECPT(15) = X2 X2 REAL C ECPT(16) = Y2 Y2 REAL C ECPT(17) = Z2 Z2 REAL C ECPT(18) COORD. SYSTEM ID 3 NECPT(18) INTEGER C ECPT(19) = X3 X3 REAL C ECPT(20) = Y3 Y3 REAL C ECPT(21) = Z3 Z3 REAL C ECPT(22) COORD. SYSTEM ID 4 NECPT(22) INTEGER C ECPT(23) = X4 X4 REAL C ECPT(24) = Y4 Y4 REAL C ECPT(25) Z4 Z4 REAL C REAL LA,LB,LC,LD,LDD2,LBD1,LCD1,LCD2,MAGI,MAGJ,MAGK DIMENSION ECPT(26),PG(1),G(9),E(9) COMMON /CONDAS/ CONSTS(5) COMMON /TRIMEX/ NECPT(1),NGRID(4),ANGLE,MATID1,T,FMU, 1 DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,X3,Y3,Z3, 2 DUMMY4,X4,Y4,Z4 COMMON /SSGWRK/ EE(144),B(96),TEMPAR(24),C(24),TI(9) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHAS(3), 1 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE, 2 G2X211,G2X212,G2X222 EQUIVALENCE (CONSTS(4),DEGRA),(ECPT(1),NECPT(1)) C C SET UP THE E MATRIX WHICH IS (12X12) FOR THE QUAD-MEMBRANE PROJECT C ONTO THE MEAN PLANE C DO 2 I = 1,144 EE(I) = 0. 2 CONTINUE C C E(1), E(4), E(7) WILL BE THE I-VECTOR C E(2), E(5), E(8) WILL BE THE J-VECTOR C E(3), E(6), E(9) WILL BE THE K-VECTOR C C COMPUTE DIFFERENCES OF COORDINATES OF ACTUAL GRID POINTS C X21 = X2 - X1 Y21 = Y2 - Y1 Z21 = Z2 - Z1 X31 = X3 - X1 Y31 = Y3 - Y1 Z31 = Z3 - Z1 X41 = X4 - X1 Y41 = Y4 - Y1 Z41 = Z4 - Z1 X42 = X4 - X2 Y42 = Y4 - Y2 Z42 = Z4 - Z2 C C COMPUTE THE ELEMENTS OF THE (3X3) E MATRIX C PK1 = Y31*Z42 - Z31*Y42 PK2 = Z31*X42 - X31*Z42 PK3 = X31*Y42 - Y31*X42 MAGK = SQRT(PK1**2 + PK2**2 + PK3**2) IF (MAGK .GT. 1.0E-06) GO TO 40 CALL MESAGE (-30,32,ECPT(1)) 40 PK1 = PK1/MAGK PK2 = PK2/MAGK PK3 = PK3/MAGK C C HH IS THE MEASURE OF NON-PLANARITY OF THE ELEMENT C HH = X21*PK1 + Y21*PK2 + Z21*PK3 PI1 = X21 - HH*PK1 PI2 = Y21 - HH*PK2 PI3 = Z21 - HH*PK3 MAGI = SQRT(PI1**2 + PI2**2 + PI3**2) IF (MAGI.GT.1.0E-06) GO TO 41 CALL MESAGE (-30,31,ECPT(1)) 41 PI1 = PI1/MAGI PI2 = PI2/MAGI PI3 = PI3/MAGI HH =-HH/2. C C THIS SIGN CHANGE MADE BECAUSE SIGN OF H AS DEFINED ON C PAGE 4.87-105 OF PROGRAMMERS MANUAL IS WRONG C PJ1 = PK2*PI3 - PK3*PI2 PJ2 = PK3*PI1 - PK1*PI3 PJ3 = PK1*PI2 - PK2*PI1 MAGJ = SQRT(PJ1**2 + PJ2**2 + PJ3**2) PJ1 = PJ1/MAGJ PJ2 = PJ2/MAGJ PJ3 = PJ3/MAGJ C C INSERT ELEMENTS INTO THE (3X3) E MATRIX C E(1) = PI1 E(2) = PJ1 E(3) = PK1 E(4) = PI2 E(5) = PJ2 E(6) = PK2 E(7) = PI3 E(8) = PJ3 E(9) = PK3 C C STORE FOUR (3X3) E MATRICES INTO (12X12) E MATRIX C LLCT = -39 DO 5 IICT = 1,12,3 LLCT = LLCT + 39 NNCT = 0 MMCT =-12 DO 4 JJCT = 1,3 MMCT = MMCT + 12 DO 3 KKCT = 1,3 NNCT = NNCT + 1 KTOT = KKCT + LLCT + MMCT EE(KTOT) = E(NNCT) 3 CONTINUE 4 CONTINUE 5 CONTINUE C C COMPUTE DIFFERENCES OF COORDINATES OF GRID POINTS IN THE MEAN PLAN C X12 = -X21*E(1) - Y21*E(4) - Z21*E(7) X13 = -X31*E(1) - Y31*E(4) - Z31*E(7) X14 = -X41*E(1) - Y41*E(4) - Z41*E(7) Y3A = X31*E(2) + Y31*E(5) + Z31*E(8) Y4A = X42*E(2) + Y42*E(5) + Z42*E(8) X24 = X14 - X12 X23 = X13 - X12 X34 = X14 - X13 Y34 = Y3A - Y4A C C COMPUTE LENGTHS OF SIDES OF ELEMENT IN THE MEAN PLANE C LA = ABS(X12) LB = SQRT(X23**2 + Y3A**2) LC = SQRT(X34**2 + Y34**2) LD = SQRT(X14**2 + Y4A**2) C C COMPUTE THE CHARACTERISTIC ANGLES OF ELEMENT IN THE MEAN PLANE C CTH1 =-X14/LD STH1 = Y4A/LD CTH2 = X23/LB STH2 = Y3A/LB CTH31 = X34/LC STH31 =-Y34/LC CTH41 = CTH1 STH41 = STH1 CTH32 = STH2 STH32 = CTH2 CTH42 = STH31 STH42 = CTH31 DLT1 = CTH31*CTH32 - STH31*STH32 DLT2 = CTH42*CTH41 + STH41*STH42 LDD2 = LD*DLT2 LBD1 = LB*DLT1 LCD1 = LC*DLT1 LCD2 = LC*DLT2 C C SET UP THE (12X12) TRANSFORMATION MATRIX B BETWEEN THE MEAN PLANE C AND ACTUAL GRID POINTS C DO 6 I = 1,96 6 B( I) = 0. B( 1) = 1. B(10) = 1. B(17) =-HH/LA B(18) =-HH/(LD*STH1)+((HH*CTH1)/(LA*STH1)) B(19) = HH/LA B(20) = (HH*CTH2)/(LA*STH2) B(23) = (HH*CTH42)/LDD2 B(24) = (HH*STH42)/LDD2 B(27) = 1. B(36) = 1. B(41) =-B(17) B(42) =-(HH*CTH1)/(LA*STH1) B(43) = B(17) B(44) = ((-HH*CTH2)/(LA*STH2))+(HH/(LB*STH2)) B(45) =-(HH*STH31)/LBD1 B(46) =-(HH*CTH31)/LBD1 B(53) = 1. B(62) = 1. B(68) =-HH/(LB*STH2) B(69) = HH*((STH31/LBD1)+(CTH32/LCD1)) B(70) = HH*((CTH31/LBD1)+(STH32/LCD1)) B(71) =-(HH*STH41)/LCD2 B(72) = (HH*CTH41)/LCD2 B(79) = 1. B(88) = 1. B(90) = HH/(LD*STH1) B(93) =-(HH*CTH32)/LCD1 B(94) =-(HH*STH32)/LCD1 B(95) = HH*((-CTH42/LDD2)+(STH41/LCD2)) B(96) = HH*((-STH42/LDD2)-(CTH41/LCD2)) H = ECPT( 8) ELTEMP= ECPT(26) C C SET UP (3X8) C MATRIX (SEE FMMS) C C( 1) =-(H*Y4A)/2. C( 2) = 0. C( 3) =-(H*X24)/2. C( 4) = 0. C( 5) =-(H*X24)/2. C( 6) =-(H*Y4A)/2. C( 7) = (H*Y3A)/2. C( 8) = 0. C( 9) = (H*X13)/2. C(10) = 0. C(11) = (H*X13)/2. C(12) = (H*Y3A)/2. C(13) = (H*Y4A)/2. C(14) = 0. C(15) = (H*X24)/2. C(16) = 0. C(17) = (H*X24)/2. C(18) = (H*Y4A)/2. C(19) =-(H*Y3A)/2. C(20) = 0. C(21) =-(H*X13)/2. C(22) = 0. C(23) =-(H*X13)/2. C(24) =-(H*Y3A)/2. THETA = ANGLE*DEGRA SINTH = SIN(THETA) COSTH = COS(THETA) IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 MATID = MATID1 INFLAG = 2 C T C COMPUTE TRANSFORMED MATRIX OF STIFFNESSES G = P * G * P C CALL MAT (ECPT(1)) C C STORE INTO G MATRIX C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C T - C COMPUTE PG = T * E * B * C * G * ALPHA * (T - T ) C 0 C TEMP = TBAR - TSUB0 TEMPAR(1) = ALPHAS(1)*TEMP TEMPAR(2) = ALPHAS(2)*TEMP TEMPAR(3) = ALPHAS(3)*TEMP CALL GMMATS (G(1),3,3,0,TEMPAR(1),3,1,0,TEMPAR(13)) CALL GMMATS (C(1),8,3,0,TEMPAR(13),3,1,0,TEMPAR(1)) CALL GMMATS (B(1),12,8,0,TEMPAR(1),8,1,0,TEMPAR(13)) CALL GMMATS (EE(1),12,12,0,TEMPAR(13),12,1,0,TEMPAR(1)) DO 13 I = 1,4 C C T-SUB-I WILL BE USED BELOW ONLY IF THE PIVOT COORDINATE SYSTEM ID C IS NOT ZERO, OTHERWISE IT IS ASSUMED TO BE THE IDENTITY MATRIX. C KA = 4*I + 6 C C DO WE NEED TRANSFORMATION TI C ISW = 0 JJ = 3*I - 2 IF (NECPT(KA) .EQ. 0) GO TO 9 ISW = 1 CALL BASGLB (TEMPAR(JJ),TEMPAR(20),NECPT(KA+1),NECPT(KA)) C C COMPUTE PG VECTOR C 9 DO 12 K = 1,3 JJK = JJ + K - 1 K19 = K + 19 IF (ISW .EQ. 0) TEMPAR(K19) = TEMPAR(JJK) I1 = I + 1 L = NECPT(I1) + K - 1 PG(L) = PG(L) + TEMPAR(K19) 12 CONTINUE 13 CONTINUE RETURN END ================================================ FILE: mis/qdmm1d.f ================================================ SUBROUTINE QDMM1D C C THIS SUBROUTINE COMPUTES THE STIFFNESS AND MASS MATRIX FOR THE C FIRST QUADRILATERAL MEMBRANE ELEMENT. C C DOUBLE PRECISION VERSION C C ECPT LIST C IN THIS C ECPT DESCRIPTION ROUTINE TYPE C ======== =============================== ======== ======= C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) GRID POINT A NGRID(1) INTEGER C ECPT( 3) GRID POINT B NGRID(2) INTEGER C ECPT( 4) GRID POINT C NGRID(3) INTEGER C ECPT( 5) GRID POINT D NGRID(4) INTEGER C ECPT( 6) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 7) MATERIAL ID MATID INTEGER C ECPT( 8) = THICKNESS T REAL C ECPT( 9) = NON-STRUCTURAL MASS FMU REAL C ECPT(10) COORD. SYSTEM ID 1 NECPT(10) INTEGER C ECPT(11) = X1 X1 REAL C ECPT(12) = Y1 Y1 REAL C ECPT(13) = Z1 Z1 REAL C ECPT(14) COORD. SYSTEM ID 2 NECPT(14) INTEGER C ECPT(15) = X2 X2 REAL C ECPT(16) = Y2 Y2 REAL C ECPT(17) = Z2 Z2 REAL C ECPT(18) COORD. SYSTEM ID 3 NECPT(18) INTEGER C ECPT(19) = X3 X3 REAL C ECPT(20) = Y3 Y3 REAL C ECPT(21) = Z3 Z3 REAL C ECPT(22) COORD. SYSTEM ID 4 NECPT(22) INTEGER C ECPT(23) = X4 X4 REAL C ECPT(24) = Y4 Y4 REAL C ECPT(25) Z4 Z4 REAL C ECPT(26) = ELEMENT TEMPERATURE ELTEMP REAL C LOGICAL NOGO, HEAT, PLANAR INTEGER OUTPT, DICT(9), MAP(2,4), ELID, ESTID REAL ECPT(26) DOUBLE PRECISION AQ, BQ, CQ, B, 1 C, D, E, F, H, 2 O, P, Q, U, H1, 3 HH, LA, LB, LC, LD, 4 LBD1, LCD1, LCD2, LDD2, DLT1, 5 DLT2, PI1, PI2, PI3, PJ1, 6 PJ2, PJ3, PK1, PK2, PK3, 7 AT1, AT2, AT3, AT4, MGG(4), 8 CTH1, CTH2, CTH31, CTH32, CTH41, 9 CTH42, STH1, STH2, STH31, STH32, O STH41, STH42, BTXK, TIE, TI, 1 FACT, TEMP, ETA01(2), YSUB4, MAGI, 2 MAGJ, MAGK, X12, X13, X14, 3 X21, X23, X24, X31, X34, 4 X41, X42, Y21, Y31, Y34, 5 Y41, Y42, Y3A, Y4A, Z21, 6 Z31, Z41, Z42, KIJ, ETA, 7 TEA, V, ETJ, TEMPAR(144) CHARACTER UFM*23, UWM*25, UIM*29 COMMON /XMSSG / UFM, UWM, UIM COMMON /SYSTEM/ KSYSTM, OUTPT COMMON /CONDAS/ CONSTS(4),DEGRA COMMON /EMGEST/ NECPT(1), NGRID(4), ANGLE, MATID1, THICK, 1 FMU, DUMMY1, X1, Y1, Z1, 2 DUMMY2, X2, Y2, Z2, 3 DUMMY3, X3, Y3, Z3, 4 DUMMY4, X4, Y4, Z4, 5 DUM(75) COMMON /EMGPRM/ DUM2(16), MASS, DUM3, IPREC, NOGO, 1 HEAT COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, 1 COSTH COMMON /MATOUT/ G11, G12, G13, G22, G23, 1 G33, RHO, ALPHA1, ALPHA2, ALP12, 2 TSUB0, GSUBE, SIGTEN, SIGCOM, SIGSHE, 3 G2X211, G2X212, G2X222 COMMON /SMA1DP/ TIE(9,4), KIJ(3,3), B(144), E(9), ETJ(9,4) COMMON /SMA2DP/ U(64), C(6), AQ(24), BQ(24), CQ(30), 1 TI(9), BTXK(96) COMMON /EMGDIC/ DMMM(2), NLOCS, ELID, ESTID EQUIVALENCE (DICT5,DICT(5)), (ECPT(1),NECPT(1)), 1 (U(1),TEMPAR(1)) C O(D,V,F,H,P,Q,Y4A,X12,Y34,Y3A,X23,X14,ETA,TEA) = 1 (D + (V*TEA) + (F*ETA) + (H*TEA*ETA) + (P*TEA*TEA) + (Q*ETA*ETA)) 2 /((-Y4A*X12) + (-Y34*X12*ETA) + ((-Y4A*X23) + (Y3A*X14))*TEA) C ETA = 1.D0 TEA = 1.D0 IF (HEAT) GO TO 450 ETA01(1) = 0.211324865D0 ETA01(2) = 0.788675135D0 C C COMPUTE DIFFERENCES OF COORDINATES OF ACTUAL GRID POINTS C X21 = X2 - X1 Y21 = Y2 - Y1 Z21 = Z2 - Z1 X31 = X3 - X1 Y31 = Y3 - Y1 Z31 = Z3 - Z1 X41 = X4 - X1 Y41 = Y4 - Y1 Z41 = Z4 - Z1 X42 = X4 - X2 Y42 = Y4 - Y2 Z42 = Z4 - Z2 C C COMPUTE ELEMENTS OF THE E MATRIX C PK1 = Y31*Z42 - Z31*Y42 PK2 = Z31*X42 - X31*Z42 PK3 = X31*Y42 - Y31*X42 MAGK= DSQRT(PK1**2 + PK2**2 + PK3**2) IF (MAGK .LE. 1.D-6) GO TO 410 PK1 = PK1/MAGK PK2 = PK2/MAGK PK3 = PK3/MAGK C C HH IS THE MEASURE OF NON-PLANARITY OF THE ELEMENT C HH = X21*PK1 + Y21*PK2 + Z21*PK3 PI1 = X21 - HH*PK1 PI2 = Y21 - HH*PK2 PI3 = Z21 - HH*PK3 MAGI= DSQRT(PI1**2 + PI2**2 + PI3**2) IF (MAGI .LE. 1.D-6) GO TO 420 PI1 = PI1/MAGI PI2 = PI2/MAGI PI3 = PI3/MAGI HH =-HH/2.D0 C C THIS SIGN CHANGE MADE BECAUSE SIGN OF H AS DEFINED ON C PAGE 4.87-105 OF PROGRAMMERS MANUAL IS WRONG C TEMP = DSQRT(X31**2 + Y31**2 + Z31**2) YSUB4= DSQRT(X42**2 + Y42**2 + Z42**2) H1 = (2.0*HH)/(TEMP+YSUB4) PLANAR = .TRUE. IF (H1 .GT. 1.0D-6) PLANAR = .FALSE. IF (H1 .GE. 1.0D-2) WRITE (OUTPT,28) UIM,H1,NECPT(1) 28 FORMAT (A29,' 3061, THE MEASURE OF NON-PLANARITY IS ',D13.5, 1 ' FOR ELEMENT NUMBER',I9) PJ1 = PK2*PI3 - PK3*PI2 PJ2 = PK3*PI1 - PK1*PI3 PJ3 = PK1*PI2 - PK2*PI1 MAGJ= DSQRT(PJ1**2 + PJ2**2 + PJ3**2) IF (MAGJ .LE. 1.D-6) GO TO 430 PJ1 = PJ1/MAGJ PJ2 = PJ2/MAGJ PJ3 = PJ3/MAGJ C C * SET UP E MATRIX (3X3) FOR QUAD-MEMBRANE PROJECTION ONTO C MEAN PLANE C E IS TRANSPOSE OF E MATRIX IN THEORETICAL MANUAL C C E(1),E(4),E(7) IS I-VECTOR C E(2),E(5),E(8) IS J-VECTOR C E(3),E(6),E(9) IS K-VECTOR C E(1) = PI1 E(2) = PJ1 E(3) = PK1 E(4) = PI2 E(5) = PJ2 E(6) = PK2 E(7) = PI3 E(8) = PJ3 E(9) = PK3 C C COMPUTE DIFFERENCES OF COORDINATES OF GRID POINTS IN THE MEAN PLAN C X12 =-(X21*E(1) + Y21*E(4) + Z21*E(7)) X13 =-(X31*E(1) + Y31*E(4) + Z31*E(7)) X24 =-(X42*E(1) + Y42*E(4) + Z42*E(7)) X14 = X12 + X24 Y3A = X31*E(2) + Y31*E(5) + Z31*E(8) Y4A = X42*E(2) + Y42*E(5) + Z42*E(8) X34 = X14 - X13 Y34 = Y3A - Y4A X23 = X13 - X12 IF (Y3A.LE.0.0D0 .OR. Y4A.LE.0.0D0) GO TO 430 TEMP = X12 + X23*(Y4A/Y3A) YSUB4= (Y3A/Y4A)*X14 C C 0 C CHECK FOR INTERNAL ANGLE GREATER THAN 180 C IF (X13.GE.YSUB4 .OR. X14.LE.TEMP) GO TO 430 C C GET MASS MATRIX DIAGONALS C IF( MASS .EQ. 0) GO TO 60 INFLAG = 4 MATID = MATID1 CALL MAT (ECPT(1)) C C GET TRIANGULAR AREA TIMES TWO C AT1 = -X12*Y4A AT2 = -X12*Y3A AT3 = -X23*Y4A + X24*Y3A AT4 = -X13*Y4A + X14*Y3A C FACT = (FMU + G11*THICK)/12.0D0 MGG(1) = (AT4 + AT1 + AT2)*FACT MGG(2) = (AT1 + AT2 + AT3)*FACT MGG(3) = (AT2 + AT3 + AT4)*FACT MGG(4) = (AT3 + AT4 + AT1)*FACT C C COMPUTE LENGTHS OF SIDES OF ELEMENT IN THE MEAN PLANE C 60 LA = DABS(X12) LB = DSQRT(X23**2 + Y3A**2) LC = DSQRT(X34**2 + Y34**2) LD = DSQRT(X14**2 + Y4A**2) IF (LA.EQ.0.D0 .OR. LB.EQ.0.D0 .OR. LC.EQ.0.D0 .OR. LD.EQ.0.D0) 1 GO TO 430 C C COMPUTE THE CHARACTERISTIC ANGLES OF ELEMENT IN THE MEAN PLANE C IF (PLANAR) GO TO 75 CTH1 =-X14/LD STH1 = Y4A/LD CTH2 = X23/LB STH2 = Y3A/LB CTH31 = X34/LC STH31 =-Y34/LC CTH41 = CTH1 STH41 = STH1 CTH32 = STH2 STH32 = CTH2 CTH42 = STH31 STH42 = CTH31 DLT1 = CTH31*CTH32 - STH31*STH32 DLT2 = CTH42*CTH41 + STH41*STH42 LDD2 = LD*DLT2 LBD1 = LB*DLT1 LCD1 = LC*DLT1 LCD2 = LC*DLT2 C C SET UP THE (12X8) TRANSFORMATION MATRIX B BETWEEN THE MEAN PLANE C AND ACTUAL GRID POINTS C DO70 I = 2,92 B(I) = 0.0 70 CONTINUE C B( 1) = 1.0 B(10) = 1.0 B(17) =-HH/LA B(18) =-HH/(LD*STH1) + ((HH*CTH1)/(LA*STH1)) B(19) = HH/LA B(20) = (HH*CTH2)/(LA*STH2) B(23) = (HH*CTH42)/LDD2 B(24) = (HH*STH42)/LDD2 B(27) = 1.0 B(36) = 1. B(41) =-B(17) B(42) = (-HH*CTH1)/(LA*STH1) B(43) = B(17) B(44) = ((-HH*CTH2)/(LA*STH2)) + (HH/(LB*STH2)) B(45) = (-HH*STH31)/LBD1 B(46) = (-HH*CTH31)/LBD1 B(53) = 1. B(62) = 1. B(68) =-HH/(LB*STH2) B(69) = HH*((STH31/LBD1) + (CTH32/LCD1)) B(70) = HH*((CTH31/LBD1) + (STH32/LCD1)) B(71) = (-HH*STH41)/LCD2 B(72) = (HH*CTH41)/LCD2 B(79) = 1.0 B(88) = 1.0 B(90) = HH/(LD*STH1) B(93) = (-HH*CTH32)/LCD1 B(94) = (-HH*STH32)/LCD1 B(95) = HH*((-CTH42/LDD2) + (STH41/LCD2)) B(96) = HH*((-STH42/LDD2) - (CTH41/LCD2)) C 75 THETA = ANGLE*DEGRA SINTH = SIN(THETA) COSTH = COS(THETA) IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 ELTEMP = ECPT(26) INFLAG = 2 MATID = MATID1 C C T C COMPUTE TRANSFORMED MATRIX OF STIFFNESSES C = P * G * P C CALL MAT (ECPT(1)) C C STORE INTO G MATRIX C C(1) = G11 C(2) = G12 C(3) = G22 C(4) = G13 C(5) = G23 C(6) = 0.D0 FACT = G33*DBLE(THICK)/(X24*Y3A - X13*Y4A)*2.0D0 C C COMPUTE COEFFICIENTS OF THE GENERAL INTEGRAL C C 2 2 C D + E*ETA + F*ZETA + H*ETA*ZETA + P*ETA + Q*ZETA C -------------------------------------------------- C Y *X +Y *X *ZETA + (Y *X - Y *X ) * ETA C 4 21 34 21 4 32 3 41 C AQ( 1) =-Y4A AQ( 3) =-X24 AQ( 5) =-X24 AQ( 6) =-Y4A AQ( 7) = Y4A AQ( 9) = X14 AQ(11) = X14 AQ(12) = Y4A AQ(13) = 0.0 AQ(15) = 0.0 AQ(17) = 0.0 AQ(18) = 0.0 AQ(19) = 0.0 AQ(21) =-X12 AQ(23) =-X12 AQ(24) = 0.0 C BQ( 1) = Y3A BQ( 3) = X23 BQ( 5) = X23 BQ( 6) = Y3A BQ( 7) =-Y4A BQ( 9) =-X14 BQ(11) =-X14 BQ(12) =-Y4A BQ(13) = Y4A BQ(15) = X14 BQ(17) = X14 BQ(18) = Y4A BQ(19) =-Y3A BQ(21) =-X23 BQ(23) =-X23 BQ(24) =-Y3A C CQ( 1) =-Y34 CQ( 3) = X34 CQ( 5) = X34 CQ( 6) =-Y34 CQ( 7) = Y34 CQ( 9) =-X34 CQ(11) =-X34 CQ(12) = Y34 CQ(13) = 0.0 CQ(15) =-X12 CQ(17) =-X12 CQ(18) = 0.0 CQ(19) = 0.0 CQ(21) = X12 CQ(23) = X12 CQ(24) = 0.0 C NN = 0 DO 120 I = 1,4 DO 110 K = 1,2 DO 100 J = 1,4 DO 90 L = 1,2 NN = NN + 1 IM1 = I - 1 JM1 = J - 1 KM1 = K - 1 LM1 = L - 1 K1 = 6*IM1 + 4*KM1 + 1 K2 = 6*IM1 + 3*KM1 + 3 L1 = 6*JM1 + 4*LM1 + 1 L2 = 6*JM1 + 3*LM1 + 3 KL = K + L - 1 K3 = K + 3 L3 = L + 3 D = C(KL)*AQ(K1)*AQ(L1)+C(K3)*AQ(K1)*AQ(L2)+C(L3)*AQ(K2)*AQ(L1) C V = C(KL)*((AQ(K1)*BQ(L1))+(BQ(K1)*AQ(L1)))+C(K3)*((AQ(K1)*BQ(L2)) 1 + (BQ(K1)*AQ(L2)))+C(L3)*((AQ(K2)*BQ(L1))+(BQ(K2)*AQ(L1))) C F = C(KL)*((AQ(K1)*CQ(L1))+(CQ(K1)*AQ(L1)))+C(K3)*((AQ(K1)*CQ(L2)) 1 + (CQ(K1)*AQ(L2)))+C(L3)*((AQ(K2)*CQ(L1))+(CQ(K2)*AQ(L1))) C H = C(KL)*((BQ(K1)*CQ(L1))+(CQ(K1)*BQ(L1)))+C(K3)*((BQ(K1)*CQ(L2)) 1 + (CQ(K1)*BQ(L2)))+C(L3)*((BQ(K2)*CQ(L1))+(CQ(K2)*BQ(L1))) C P = C(KL)*BQ(K1)*BQ(L1)+C(K3)*BQ(K1)*BQ(L2)+C(L3)*BQ(K2)*BQ(L1) C Q = C(KL)*CQ(K1)*CQ(L1)+C(K3)*CQ(K1)*CQ(L2)+C(L3)*CQ(K2)*CQ(L1) C C USE GAUSSIAN INTEGRATION TO FIND THE PARTITIONS OF C THE STIFFNESS MATRIX FOR THE MEAN PLANE ELEMENT C U(NN) = 0.0D0 DO 80 IA01 = 1,2 DO 80 JA01 = 1,2 U(NN) = U(NN) + 1 O(D,V,F,H,P,Q,Y4A,X12,Y34,Y3A,X23,X14,ETA01(IA01),ETA01(JA01)) 80 CONTINUE U(NN) = U(NN)/4.0D0*DBLE(THICK) C C ADD SHEAR TERMS HERE C U(NN) = U(NN) + FACT*(AQ(K2)+0.5*(BQ(K2)+CQ(K2))) 1 *(AQ(L2)+0.5*(BQ(L2)+CQ(L2))) 90 CONTINUE 100 CONTINUE 110 CONTINUE 120 CONTINUE C C TRANSFORM FROM MEAN PLANE TO ACTUAL GRID POINTS C C T C K = B * K * B C C EXPAND MATRIX TO INCLUDE Z COORDINATES C IF NON-PLANAR, C IF (PLANAR) GO TO 130 CALL GMMATD (B(1),12,8,0, U(1),8,8,0, BTXK(1)) CALL GMMATD (BTXK(1),12,8,0, B(1),12,8,1, TEMPAR(1)) GO TO 200 C C * IF PLANAR, TEMPAR(12X12) .EQ. U(8X8) C 130 IJ1 =-12 I2 = 144 DO 140 I = 1,64 140 TEMPAR(I2+I) = U(I) DO 190 I = 1,12 IJ1 = IJ1 + 12 IF (MOD(I,3) .NE. 0) GO TO 160 DO 150 J = 1,12 IJ = IJ1 + J 150 TEMPAR(IJ) = 0.0D0 GO TO 190 160 DO 180 J = 1,12 IJ = IJ1 + J IF (MOD(J,3) .NE. 0) GO TO 170 TEMPAR(IJ) = 0.0D0 GO TO 180 170 I2 = I2 + 1 TEMPAR(IJ) = TEMPAR(I2) 180 CONTINUE 190 CONTINUE C C T T C * GENERATE (T * E) AND (E * T ) C I J C 200 DO 230 I = 1,4 KA = 4*I + 6 IF (NECPT(KA) .EQ. 0) GO TO 210 CALL TRANSD (NECPT(KA),TI) CALL GMMATD (TI,3,3,1, E,3,3,0, TIE(1,I)) CALL GMMATD (E,3,3,1, TI,3,3,0, ETJ(1,I)) GO TO 230 210 DO 220 II = 1,9 TIE(II,I) = E(II) 220 CONTINUE ETJ(1,I) = E(1) ETJ(2,I) = E(4) ETJ(3,I) = E(7) ETJ(4,I) = E(2) ETJ(5,I) = E(5) ETJ(6,I) = E(8) ETJ(7,I) = E(3) ETJ(8,I) = E(6) ETJ(9,I) = E(9) 230 CONTINUE C T T C COMPUTE STIFFNESS MATRIX K = T * E * S * E * T C IJ I IJ J C C EXTRACT 3 BY 3 PARTITIONS, TRANSFORM TO GLOBAL, AND INSERT C BY ORDER OF SILS INTO A 12 BY 12 MATRIX C DO 260 I = 1,4 J = NGRID(I) DO 240 K = 2,5 IF (NECPT(K) .EQ. J) GO TO 250 240 CONTINUE CALL MESAGE (-30,34,ECPT(1)) 250 MAP(1,I) = J 260 MAP(2,I) = I CALL SORT (0,0,2,1,MAP(1,1),8) C C REPLACE SILS WITH INDICES C RESORT FOR ORIGINAL ORDER - WORD 1 WILL CONTAIN NEW LOCATION C DO 270 I = 1,4 270 MAP(1,I) = I CALL SORT (0,0,2,2,MAP(1,1),8) C C MOVE AND TRANSFORM HERE C ROW LOOP C DO 300 I = 1,4 IOR = 36*(I-1) INR = 36*(MAP(1,I)-1) C C COLUMN LOOP C DO 300 J = 1,4 IOCL = IOR + 3*(J-1) INCL = INR + 3*(MAP(1,J)-1) C C INNER LOOPS C DO 280 K = 1,3 KL = IOCL + 12*(K-1) DO 280 L = 1,3 KIJ(L,K) = TEMPAR(KL+L) 280 CONTINUE C C TRANSFORM 3 BY 3 C CALL GMMATD (KIJ,3,3,0, ETJ(1,J),3,3,0, E) CALL GMMATD (TIE(1,I),3,3,0, E,3,3,0, KIJ) C C INSERT C DO 290 K = 1,3 KL = INCL + 12*(K-1) DO 290 L = 1,3 B(KL+L) = KIJ(L,K) 290 CONTINUE 300 CONTINUE C C INSERT WHOLE 12 BY 12 USING EMGOUT C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 7 DICT5 = GSUBE LDATA = 144 IEOE = 1 IFILE = 1 CALL EMGOUT (B,B,LDATA,IEOE,DICT,IFILE,IPREC) C C DO MASS IF NECESSARY C IF (MASS .EQ. 0) RETURN DO 350 I = 1,4 KL = 3*(MAP(1,I) - 1) DO 350 J = 1,3 B(KL+J) = MGG(I) 350 CONTINUE DICT(2) = 2 DICT(5) = 0 LDATA = 12 IFILE = 2 CALL EMGOUT (B,B,LDATA,IEOE,DICT,IFILE,IPREC) RETURN C C ERROR EXITS C 410 J = 32 GO TO 440 420 J = 31 GO TO 440 430 J = 26 440 CALL MESAGE (30,J,ECPT(1)) NOGO = .TRUE. RETURN C 450 WRITE (OUTPT,460) UWM,NECPT(1) 460 FORMAT (A25,' 3115, QDMM1D FINDS ELEMENT NO.',I9,' PRESENT IN A', 1 ' HEAT FORMULATION AND IS IGNORING SAME.') RETURN END ================================================ FILE: mis/qdmm1s.f ================================================ SUBROUTINE QDMM1S C C THIS SUBROUTINE COMPUTES THE STIFFNESS AND MASS MATRIX FOR THE C FIRST QUADRILATERAL MEMBRANE ELEMENT. C C SINGLE PRECISION VERSION C C ECPT LIST C IN THIS C ECPT DESCRIPTION ROUTINE TYPE C ======== ================================ ======== ======= C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) GRID POINT A NGRID(1) INTEGER C ECPT( 3) GRID POINT B NGRID(2) INTEGER C ECPT( 4) GRID POINT C NGRID(3) INTEGER C ECPT( 5) GRID POINT D NGRID(4) INTEGER C ECPT( 6) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 7) MATERIAL ID MATID INTEGER C ECPT( 8) = THICKNESS T REAL C ECPT( 9) = NON-STRUCTURAL MASS FMU REAL C ECPT(10) COORD. SYSTEM ID 1 NECPT(10) INTEGER C ECPT(11) = X1 X1 REAL C ECPT(12) = Y1 Y1 REAL C ECPT(13) = Z1 Z1 REAL C ECPT(14) COORD. SYSTEM ID 2 NECPT(14) INTEGER C ECPT(15) = X2 X2 REAL C ECPT(16) = Y2 Y2 REAL C ECPT(17) = Z2 Z2 REAL C ECPT(18) COORD. SYSTEM ID 3 NECPT(18) INTEGER C ECPT(19) = X3 X3 REAL C ECPT(20) = Y3 Y3 REAL C ECPT(21) = Z3 Z3 REAL C ECPT(22) COORD. SYSTEM ID 4 NECPT(22) INTEGER C ECPT(23) = X4 X4 REAL C ECPT(24) = Y4 Y4 REAL C ECPT(25) Z4 Z4 REAL C ECPT(26) = ELEMENT TEMPERATURE ELTEMP REAL C LOGICAL NOGO, HEAT, PLANAR INTEGER OUTPT, DICT(9), MAP(2,4), ELID, ESTID REAL KIJ, LA, LB, LC, LD, 1 LBD1, LCD1, LCD2, LDD2, MGG(4), 2 MAGI, MAGJ, MAGK, ETA01(2), ECPT(26), 3 TEMPAR(144) CHARACTER UFM*23, UWM*25, UIM*29 COMMON /XMSSG / UFM, UWM, UIM COMMON /SYSTEM/ KSYSTM, OUTPT COMMON /CONDAS/ CONSTS(4),DEGRA COMMON /EMGEST/ NECPT(1), NGRID(4), ANGLE, MATID1, THICK, 1 FMU, DUMMY1, X1, Y1, Z1, 2 DUMMY2, X2, Y2, Z2, 3 DUMMY3, X3, Y3, Z3, 4 DUMMY4, X4, Y4, Z4, 5 DUM(75) COMMON /EMGPRM/ DUM2(16), MASS, DUM3, IPREC, NOGO, 1 HEAT COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, 1 COSTH COMMON /MATOUT/ G11, G12, G13, G22, G23, 1 G33, RHO, ALPHA1, ALPHA2, ALP12, 2 TSUB0, GSUBE, SIGTEN, SIGCOM, SIGSHE, 3 G2X211, G2X212, G2X222 COMMON /SMA1DP/ TIE(9,4), KIJ(3,3), B(144), E(9), ETJ(9,4) COMMON /SMA2DP/ U(64), C(6), AQ(24), BQ(24), CQ(30), 1 TI(9), BTXK(96) COMMON /EMGDIC/ DMMM(2), NLOCS, ELID, ESTID EQUIVALENCE (DICT5,DICT(5)), (ECPT(1),NECPT(1)), 1 (U(1),TEMPAR(1)) C O(D,V,F,H,P,Q,Y4A,X12,Y34,Y3A,X23,X14,ETA,TEA) = (D+(V*TEA) + 1 (F*ETA) + (H*TEA*ETA) + (P*TEA*TEA) + (Q*ETA*ETA))/ 2 ((-Y4A*X12) + (-Y34*X12*ETA) + ((-Y4A*X23) + (Y3A*X14))*TEA) C ETA = 1.0 TEA = 1.0 IF (HEAT) GO TO 450 ETA01(1) = 0.211324865 ETA01(2) = 0.788675135 C C COMPUTE DIFFERENCES OF COORDINATES OF ACTUAL GRID POINTS C X21 = X2 - X1 Y21 = Y2 - Y1 Z21 = Z2 - Z1 X31 = X3 - X1 Y31 = Y3 - Y1 Z31 = Z3 - Z1 X41 = X4 - X1 Y41 = Y4 - Y1 Z41 = Z4 - Z1 X42 = X4 - X2 Y42 = Y4 - Y2 Z42 = Z4 - Z2 C C COMPUTE ELEMENTS OF THE E MATRIX C PK1 = Y31*Z42 - Z31*Y42 PK2 = Z31*X42 - X31*Z42 PK3 = X31*Y42 - Y31*X42 MAGK= SQRT(PK1**2 + PK2**2 + PK3**2) IF (MAGK .LE. 1.0E-6) GO TO 410 PK1 = PK1/MAGK PK2 = PK2/MAGK PK3 = PK3/MAGK C C HH IS THE MEASURE OF NON-PLANARITY OF THE ELEMENT C HH = X21*PK1 + Y21*PK2 + Z21*PK3 PI1 = X21 - HH*PK1 PI2 = Y21 - HH*PK2 PI3 = Z21 - HH*PK3 MAGI= SQRT(PI1**2 + PI2**2 + PI3**2) IF (MAGI .LE. 1.0E-6) GO TO 420 PI1 = PI1/MAGI PI2 = PI2/MAGI PI3 = PI3/MAGI HH =-HH/2.0 C C THIS SIGN CHANGE MADE BECAUSE SIGN OF H AS DEFINED ON C PAGE 4.87-105 OF PROGRAMMERS MANUAL IS WRONG C TEMP = SQRT(X31**2 + Y31**2 + Z31**2) YSUB4 = SQRT(X42**2 + Y42**2 + Z42**2) H1 = (2.0*HH)/(TEMP + YSUB4) PLANAR= .TRUE. IF (H1 .GT. 1.0E-6) PLANAR = .FALSE. IF (H1 .GE. 1.0E-2) WRITE (OUTPT,28) UIM,H1,NECPT(1) 28 FORMAT (A29,' 3061, THE MEASURE OF NON-PLANARITY IS ',E13.5, 1 ' FOR ELEMENT NUMBER',I9) PJ1 = PK2*PI3 - PK3*PI2 PJ2 = PK3*PI1 - PK1*PI3 PJ3 = PK1*PI2 - PK2*PI1 MAGJ= SQRT(PJ1**2 + PJ2**2 + PJ3**2) IF (MAGJ .LE. 1.0E-6) GO TO 430 PJ1 = PJ1/MAGJ PJ2 = PJ2/MAGJ PJ3 = PJ3/MAGJ C C * SET UP E MATRIX (3X3) FOR QUAD-MEMBRANE PROJECTION ONTO MEAN PLANE C E IS TRANSPOSE OF E MATRIX IN THEORETICAL MANUAL C C E(1),E(4),E(7) IS I-VECTOR C E(2),E(5),E(8) IS J-VECTOR C E(3),E(6),E(9) IS K-VECTOR C E(1) = PI1 E(2) = PJ1 E(3) = PK1 E(4) = PI2 E(5) = PJ2 E(6) = PK2 E(7) = PI3 E(8) = PJ3 E(9) = PK3 C C COMPUTE DIFFERENCES OF COORDINATES OF GRID POINTS IN THE MEAN PLAN C X12 =-(X21*E(1) + Y21*E(4) + Z21*E(7)) X13 =-(X31*E(1) + Y31*E(4) + Z31*E(7)) X24 =-(X42*E(1) + Y42*E(4) + Z42*E(7)) X14 = X12 + X24 Y3A = X31*E(2) + Y31*E(5) + Z31*E(8) Y4A = X42*E(2) + Y42*E(5) + Z42*E(8) X34 = X14 - X13 Y34 = Y3A - Y4A X23 = X13 - X12 IF (Y3A.LE.0. .OR. Y4A.LE.0.) GO TO 430 TEMP = X12 + X23*(Y4A/Y3A) YSUB4 = (Y3A/Y4A)*X14 C C 0 C CHECK FOR INTERNAL ANGLE GREATER THAN 180 C IF (X13.GE.YSUB4 .OR. X14.LE.TEMP) GO TO 430 C C GET MASS MATRIX DIAGONALS C IF( MASS .EQ. 0) GO TO 60 INFLAG = 4 MATID = MATID1 CALL MAT (ECPT(1)) C C GET TRIANGULAR AREA TIMES TWO C AT1 = -X12*Y4A AT2 = -X12*Y3A AT3 = -X23*Y4A + X24*Y3A AT4 = -X13*Y4A + X14*Y3A C FACT = (FMU + G11*THICK)/12.0 MGG(1) = (AT4 + AT1 + AT2)*FACT MGG(2) = (AT1 + AT2 + AT3)*FACT MGG(3) = (AT2 + AT3 + AT4)*FACT MGG(4) = (AT3 + AT4 + AT1)*FACT C C COMPUTE LENGTHS OF SIDES OF ELEMENT IN THE MEAN PLANE C 60 LA = ABS(X12) LB = SQRT(X23**2 + Y3A**2) LC = SQRT(X34**2 + Y34**2) LD = SQRT(X14**2 + Y4A**2) IF (LA.EQ.0. .OR. LB.EQ.0. .OR. LC.EQ.0. .OR. LD.EQ.0.) GO TO 430 C C COMPUTE THE CHARACTERISTIC ANGLES OF ELEMENT IN THE MEAN PLANE C IF (PLANAR) GO TO 75 CTH1 =-X14/LD STH1 = Y4A/LD CTH2 = X23/LB STH2 = Y3A/LB CTH31 = X34/LC STH31 =-Y34/LC CTH41 = CTH1 STH41 = STH1 CTH32 = STH2 STH32 = CTH2 CTH42 = STH31 STH42 = CTH31 DLT1 = CTH31*CTH32 - STH31*STH32 DLT2 = CTH42*CTH41 + STH41*STH42 LDD2 = LD*DLT2 LBD1 = LB*DLT1 LCD1 = LC*DLT1 LCD2 = LC*DLT2 C C SET UP THE (12X8) TRANSFORMATION MATRIX B BETWEEN THE MEAN PLANE C AND ACTUAL GRID POINTS C DO70 I = 2,92 B(I) = 0.0 70 CONTINUE C B( 1) = 1.0 B(10) = 1.0 B(17) =-HH/LA B(18) =-HH/(LD*STH1) + ((HH*CTH1)/(LA*STH1)) B(19) = HH/LA B(20) = (HH*CTH2)/(LA*STH2) B(23) = (HH*CTH42)/LDD2 B(24) = (HH*STH42)/LDD2 B(27) = 1.0 B(36) = 1. B(41) =-B(17) B(42) = (-HH*CTH1)/(LA*STH1) B(43) = B(17) B(44) = ((-HH*CTH2)/(LA*STH2)) + (HH/(LB*STH2)) B(45) = (-HH*STH31)/LBD1 B(46) = (-HH*CTH31)/LBD1 B(53) = 1. B(62) = 1. B(68) =-HH/(LB*STH2) B(69) = HH*((STH31/LBD1) + (CTH32/LCD1)) B(70) = HH*((CTH31/LBD1) + (STH32/LCD1)) B(71) = (-HH*STH41)/LCD2 B(72) = (HH*CTH41)/LCD2 B(79) = 1.0 B(88) = 1.0 B(90) = HH/(LD*STH1) B(93) = (-HH*CTH32)/LCD1 B(94) = (-HH*STH32)/LCD1 B(95) = HH*((-CTH42/LDD2) + (STH41/LCD2)) B(96) = HH*((-STH42/LDD2) - (CTH41/LCD2)) C 75 THETA = ANGLE*DEGRA SINTH = SIN(THETA) COSTH = COS(THETA) IF (ABS(SINTH).LT.1.0E-06) SINTH = 0.0E0 ELTEMP = ECPT(26) INFLAG = 2 MATID = MATID1 C C T C COMPUTE TRANSFORMED MATRIX OF STIFFNESSES C = P * G * P C CALL MAT (ECPT(1)) C C STORE INTO G MATRIX C C(1) = G11 C(2) = G12 C(3) = G22 C(4) = G13 C(5) = G23 C(6) = 0. FACT = G33*THICK/(X24*Y3A - X13*Y4A)*2. C C COMPUTE COEFFICIENTS OF THE GENERAL INTEGRAL C C 2 2 C D + E*ETA + F*ZETA + H*ETA*ZETA + P*ETA + Q*ZETA C -------------------------------------------------- C Y *X +Y *X *ZETA + (Y *X - Y *X ) * ETA C 4 21 34 21 4 32 3 41 C AQ( 1) =-Y4A AQ( 3) =-X24 AQ( 5) =-X24 AQ( 6) =-Y4A AQ( 7) = Y4A AQ( 9) = X14 AQ(11) = X14 AQ(12) = Y4A AQ(13) = 0.0 AQ(15) = 0.0 AQ(17) = 0.0 AQ(18) = 0.0 AQ(19) = 0.0 AQ(21) =-X12 AQ(23) =-X12 AQ(24) = 0.0 C BQ( 1) = Y3A BQ( 3) = X23 BQ( 5) = X23 BQ( 6) = Y3A BQ( 7) =-Y4A BQ( 9) =-X14 BQ(11) =-X14 BQ(12) =-Y4A BQ(13) = Y4A BQ(15) = X14 BQ(17) = X14 BQ(18) = Y4A BQ(19) =-Y3A BQ(21) =-X23 BQ(23) =-X23 BQ(24) =-Y3A C CQ( 1) =-Y34 CQ( 3) = X34 CQ( 5) = X34 CQ( 6) =-Y34 CQ( 7) = Y34 CQ( 9) =-X34 CQ(11) =-X34 CQ(12) = Y34 CQ(13) = 0.0 CQ(15) =-X12 CQ(17) =-X12 CQ(18) = 0.0 CQ(19) = 0.0 CQ(21) = X12 CQ(23) = X12 CQ(24) = 0.0 C NN = 0 DO 120 I = 1,4 DO 110 K = 1,2 DO 100 J = 1,4 DO 90 L = 1,2 NN = NN + 1 IM1 = I - 1 JM1 = J - 1 KM1 = K - 1 LM1 = L - 1 K1 = 6*IM1 + 4*KM1 + 1 K2 = 6*IM1 + 3*KM1 + 3 L1 = 6*JM1 + 4*LM1 + 1 L2 = 6*JM1 + 3*LM1 + 3 KL = K + L - 1 K3 = K + 3 L3 = L + 3 D = C(KL)*AQ(K1)*AQ(L1)+C(K3)*AQ(K1)*AQ(L2)+C(L3)*AQ(K2)*AQ(L1) C V = C(KL)*((AQ(K1)*BQ(L1))+(BQ(K1)*AQ(L1)))+C(K3)*((AQ(K1)*BQ(L2)) 1 + (BQ(K1)*AQ(L2)))+C(L3)*((AQ(K2)*BQ(L1))+(BQ(K2)*AQ(L1))) C F = C(KL)*((AQ(K1)*CQ(L1))+(CQ(K1)*AQ(L1)))+C(K3)*((AQ(K1)*CQ(L2)) 1 + (CQ(K1)*AQ(L2)))+C(L3)*((AQ(K2)*CQ(L1))+(CQ(K2)*AQ(L1))) C H = C(KL)*((BQ(K1)*CQ(L1))+(CQ(K1)*BQ(L1)))+C(K3)*((BQ(K1)*CQ(L2)) 1 + (CQ(K1)*BQ(L2)))+C(L3)*((BQ(K2)*CQ(L1))+(CQ(K2)*BQ(L1))) C P = C(KL)*BQ(K1)*BQ(L1)+C(K3)*BQ(K1)*BQ(L2)+C(L3)*BQ(K2)*BQ(L1) C Q = C(KL)*CQ(K1)*CQ(L1)+C(K3)*CQ(K1)*CQ(L2)+C(L3)*CQ(K2)*CQ(L1) C C USE GAUSSIAN INTEGRATION TO FIND THE PARTITIONS OF C THE STIFFNESS MATRIX FOR THE MEAN PLANE ELEMENT C U(NN) = 0.0 DO 80 IA01 = 1,2 DO 80 JA01 = 1,2 U(NN) = U(NN) + 1 O(D,V,F,H,P,Q,Y4A,X12,Y34,Y3A,X23,X14,ETA01(IA01),ETA01(JA01)) 80 CONTINUE U(NN) = U(NN)/4.0*THICK C C ADD SHEAR TERMS HERE U(NN) = U(NN) + FACT*(AQ(K2)+0.5*(BQ(K2)+CQ(K2))) 1 *(AQ(L2)+0.5*(BQ(L2)+CQ(L2))) 90 CONTINUE 100 CONTINUE 110 CONTINUE 120 CONTINUE C C TRANSFORM FROM MEAN PLANE TO ACTUAL GRID POINTS C C T C K = B * K * B C C EXPAND MATRIX TO INCLUDE Z COORDINATES C IF NON-PLANAR, C IF (PLANAR) GO TO 130 CALL GMMATS (B(1),12,8,0, U(1),8,8,0, BTXK(1)) CALL GMMATS (BTXK(1),12,8,0, B(1),12,8,1, TEMPAR(1)) GO TO 200 C C * IF PLANAR, TEMPAR(12X12) .EQ. U(8X8) C 130 IJ1 =-12 I2 = 144 DO 140 I = 1,64 140 TEMPAR(I2+I) = U(I) DO 190 I = 1,12 IJ1 = IJ1 + 12 IF (MOD(I,3) .NE. 0) GO TO 160 DO 150 J = 1,12 IJ = IJ1 + J 150 TEMPAR(IJ) = 0.0 GO TO 190 160 DO 180 J = 1,12 IJ = IJ1 + J IF (MOD(J,3) .NE. 0) GO TO 170 TEMPAR(IJ) = 0.0 GO TO 180 170 I2 = I2 + 1 TEMPAR(IJ) = TEMPAR(I2) 180 CONTINUE 190 CONTINUE C C T T C * GENERATE (T * E) AND (E * T ) C I J C 200 DO 230 I = 1,4 KA = 4*I + 6 IF (NECPT(KA) .EQ. 0) GO TO 210 CALL TRANSS (NECPT(KA),TI) CALL GMMATS (TI,3,3,1, E,3,3,0, TIE(1,I)) CALL GMMATS (E,3,3,1, TI,3,3,0, ETJ(1,I)) GO TO 230 210 DO 220 II = 1,9 TIE(II,I) = E(II) 220 CONTINUE ETJ(1,I) = E(1) ETJ(2,I) = E(4) ETJ(3,I) = E(7) ETJ(4,I) = E(2) ETJ(5,I) = E(5) ETJ(6,I) = E(8) ETJ(7,I) = E(3) ETJ(8,I) = E(6) ETJ(9,I) = E(9) 230 CONTINUE C T T C COMPUTE STIFFNESS MATRIX K = T * E * S * E * T C IJ I IJ J C C EXTRACT 3 BY 3 PARTITIONS, TRANSFORM TO GLOBAL, AND INSERT BY C ORDER OF SILS INTO A 12 BY 12 MATRIX C DO 260 I = 1,4 J = NGRID(I) DO 240 K = 2,5 IF (NECPT(K) .EQ. J) GO TO 250 240 CONTINUE CALL MESAGE (-30,34,ECPT(1)) 250 MAP(1,I) = J 260 MAP(2,I) = I CALL SORT (0,0,2,1,MAP(1,1),8) C C REPLACE SILS WITH INDICES C RESORT FOR ORIGINAL ORDER - WORD 1 WILL CONTAIN NEW LOCATION C DO 270 I = 1,4 270 MAP(1,I) = I CALL SORT (0,0,2,2,MAP(1,1),8) C C MOVE AND TRANSFORM HERE C ROW LOOP C DO 300 I = 1,4 IOR = 36*(I-1) INR = 36*(MAP(1,I) - 1) C C COLUMN LOOP C DO 300 J = 1,4 IOCL = IOR + 3*(J-1) INCL = INR + 3*(MAP(1,J) - 1) C C INNER LOOPS C DO 280 K = 1,3 KL = IOCL + 12*(K-1) DO 280 L = 1,3 KIJ(L,K) = TEMPAR(KL+L) 280 CONTINUE C C TRANSFORM 3 BY 3 C CALL GMMATS (KIJ,3,3,0, ETJ(1,J),3,3,0, E) CALL GMMATS (TIE(1,I),3,3,0, E,3,3,0, KIJ) C C INSERT C DO 290 K = 1,3 KL = INCL + 12*(K-1) DO 290 L = 1,3 B(KL+L) = KIJ(L,K) 290 CONTINUE 300 CONTINUE C C INSERT WHOLE 12 BY 12 USING EMGOUT C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 7 DICT5 = GSUBE LDATA = 144 IEOE = 1 IFILE = 1 CALL EMGOUT (B,B,LDATA,IEOE,DICT,IFILE,IPREC) C C DO MASS IF NECESSARY C IF (MASS .EQ. 0) RETURN DO 350 I = 1,4 KL = 3*(MAP(1,I) - 1) DO 350 J = 1,3 B(KL+J) = MGG(I) 350 CONTINUE DICT(2) = 2 DICT(5) = 0 LDATA = 12 IFILE = 2 CALL EMGOUT (B,B,LDATA,IEOE,DICT,IFILE,IPREC) RETURN C C ERROR EXITS C 410 J = 32 GO TO 440 420 J = 31 GO TO 440 430 J = 26 440 CALL MESAGE (30,J,ECPT(1)) NOGO = .TRUE. RETURN C 450 WRITE (OUTPT,460) UWM,NECPT(1) 460 FORMAT (A25,' 3115, QDMM1S FINDS ELEMENT NO.',I9,' PRESENT IN A', 1 ' HEAT FORMULATION AND IS IGNORING SAME.') RETURN END ================================================ FILE: mis/qdmm1x.f ================================================ SUBROUTINE QDMM1X C C THIS ROUTINE IS SAME AS QDMM1D EXCEPT IT USES EMGOLD/SMA1B LOGIC. C (QDMM1D USE EMGOUT LOGIC). IT IS CALLED ONLY BY KTRIQD TO IMPROVE C QUAD2 MEMBRANE COMPUTATION. KTRIQD BELONGS TO THE EMGOLD FAMILY OF C ELEMENTS. C C QDMM1D COMPUTE THE STIFFNESS MATRIX FOR THE FIRST QUADRILATERAL C MEMBRANE ELEMENT. MASS MATRIX IS NOT COMPUTE HERE. C C THIS ROUTINE WAS RE-ASSEMBLED BY G.CHAN/UNISYS 5/91 C C ECPT LIST C IN THIS C ECPT DESCRIPTION ROUTINE TYPE C ======== ================================ ======== ======= C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) GRID POINT A NGRID(1) INTEGER C ECPT( 3) GRID POINT B NGRID(2) INTEGER C ECPT( 4) GRID POINT C NGRID(3) INTEGER C ECPT( 5) GRID POINT D NGRID(4) INTEGER C ECPT( 6) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 7) MATERIAL ID MATID INTEGER C ECPT( 8) = THICKNESS T REAL C ECPT( 9) = NON-STRUCTURAL MASS FMU REAL C ECPT(10) COORD. SYSTEM ID 1 NECPT(10) INTEGER C ECPT(11) = X1 X1 REAL C ECPT(12) = Y1 Y1 REAL C ECPT(13) = Z1 Z1 REAL C ECPT(14) COORD. SYSTEM ID 2 NECPT(14) INTEGER C ECPT(15) = X2 X2 REAL C ECPT(16) = Y2 Y2 REAL C ECPT(17) = Z2 Z2 REAL C ECPT(18) COORD. SYSTEM ID 3 NECPT(18) INTEGER C ECPT(19) = X3 X3 REAL C ECPT(20) = Y3 Y3 REAL C ECPT(21) = Z3 Z3 REAL C ECPT(22) COORD. SYSTEM ID 4 NECPT(22) INTEGER C ECPT(23) = X4 X4 REAL C ECPT(24) = Y4 Y4 REAL C ECPT(25) Z4 Z4 REAL C ECPT(26) = ELEMENT TEMPERATURE ELTEMP REAL C LOGICAL NOGO, HEAT, PLANAR INTEGER OUTPT, MAP(2,4), ELID REAL ECPT(26) DOUBLE PRECISION AQ, BQ, CQ, B, 1 C, D, E, F, H, 2 O, P, Q, U, H1, 3 HH, LA, LB, LC, LD, 4 LBD1, LCD1, LCD2, LDD2, DLT1, 5 DLT2, PI1, PI2, PI3, PJ1, 6 PJ2, PJ3, PK1, PK2, PK3, 7 CTH1, CTH2, CTH31, CTH32, CTH41, 8 CTH42, STH1, STH2, STH31, STH32, 9 STH41, STH42, BTXK, TIE, TI, O FACT, TEMP, ETA01(2), YSUB4, MAGI, 1 MAGJ, MAGK, X12, X13, X14, 2 X21, X23, X24, X31, X34, 3 X41, X42, Y21, Y31, Y34, 4 Y41, Y42, Y3A, Y4A, Z21, 5 Z31, Z41, Z42, KJJ(3,3), ETA, 6 TEA, V, ETJ, TEMPAR(144), 7 KIJ, ZERO CHARACTER UFM*23, UWM*25, UIM*29 COMMON /XMSSG / UFM, UWM, UIM COMMON /SYSTEM/ KSYSTM, OUTPT COMMON /CONDAS/ CONSTS(4),DEGRA COMMON /SMA1ET/ NECPT(1), NGRID(4), ANGLE, MATID1, THICK, 1 FMU, DUMMY1, X1, Y1, Z1, 2 DUMMY2, X2, Y2, Z2, 3 DUMMY3, X3, Y3, Z3, 4 DUMMY4, X4, Y4, Z4 COMMON /SMA1CL/ IOPT4, K4GGSW, NPVT, DUM19(19),NOGO COMMON /SMA1IO/ DUM1(10), IFKGG, DUM2, IF4GG COMMON /SMA1HT/ HEAT COMMON /SMA1DP/ KIJ(36), TIE(9,4), B(144), E(9), ETJ(9,4), 1 U(64), C(6), AQ(24), BQ(24), CQ(30), 2 TI(9), BTXK(96) COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, 1 COSTH COMMON /MATOUT/ G11, G12, G13, G22, G23, 1 G33, RHO, ALPHA1, ALPHA2, ALP12, 2 TSUB0, GSUBE, SIGTEN, SIGCOM, SIGSHE, 3 G2X211, G2X212, G2X222 EQUIVALENCE (ECPT(1),NECPT(1),ELID), (KJJ(1,1),KIJ(1)), 1 (U(1),TEMPAR(1)) DATA ZERO / 0.0D0 / C DATA M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 / C TRIANGLES 1-2-4, 2-3-1, 3-4-2, AND 4-1-3 C O(D,V,F,H,P,Q,Y4A,X12,Y34,Y3A,X23,X14,ETA,TEA) = 1 (D + (V*TEA) + (F*ETA) + (H*TEA*ETA) + (P*TEA*TEA) + (Q*ETA*ETA)) 2 /((-Y4A*X12) + (-Y34*X12*ETA) + ((-Y4A*X23) + (Y3A*X14))*TEA) C C FIND WHICH POINT IS THE PIVOT POINT C DO 10 I = 1,4 IF (NPVT .NE. NGRID(I)) GO TO 10 NPIVOT = I GO TO 15 10 CONTINUE GO TO 450 C 15 ETA = 1.D0 TEA = 1.D0 ETA01(1) = 0.211324865D0 ETA01(2) = 0.788675135D0 C C COMPUTE DIFFERENCES OF COORDINATES OF ACTUAL GRID POINTS C X21 = X2 - X1 Y21 = Y2 - Y1 Z21 = Z2 - Z1 X31 = X3 - X1 Y31 = Y3 - Y1 Z31 = Z3 - Z1 X41 = X4 - X1 Y41 = Y4 - Y1 Z41 = Z4 - Z1 X42 = X4 - X2 Y42 = Y4 - Y2 Z42 = Z4 - Z2 C C COMPUTE ELEMENTS OF THE E MATRIX C PK1 = Y31*Z42 - Z31*Y42 PK2 = Z31*X42 - X31*Z42 PK3 = X31*Y42 - Y31*X42 MAGK= DSQRT(PK1**2 + PK2**2 + PK3**2) IF (MAGK .LE. 1.D-6) GO TO 410 PK1 = PK1/MAGK PK2 = PK2/MAGK PK3 = PK3/MAGK C C HH IS THE MEASURE OF NON-PLANARITY OF THE ELEMENT C HH = X21*PK1 + Y21*PK2 + Z21*PK3 PI1 = X21 - HH*PK1 PI2 = Y21 - HH*PK2 PI3 = Z21 - HH*PK3 MAGI= DSQRT(PI1**2 + PI2**2 + PI3**2) IF (MAGI .LE. 1.D-6) GO TO 420 PI1 = PI1/MAGI PI2 = PI2/MAGI PI3 = PI3/MAGI HH =-HH/2.D0 C C THIS SIGN CHANGE MADE BECAUSE SIGN OF H AS DEFINED ON PP 4.87-105 C OF PROGRAMMERS MANUAL IS WRONG C TEMP = DSQRT(X31**2 + Y31**2 + Z31**2) YSUB4= DSQRT(X42**2 + Y42**2 + Z42**2) H1 = (2.0*HH)/(TEMP+YSUB4) PLANAR = .TRUE. IF (H1 .GT. 1.0D-6) PLANAR = .FALSE. IF (H1 .GE. 1.0D-2) WRITE (OUTPT,35) UIM,H1,NECPT(1) 35 FORMAT (A29,' 3061, THE MEASURE OF NON-PLANARITY IS ',D13.5, 1 ' FOR ELEMENT NUMBER',I9) PJ1 = PK2*PI3 - PK3*PI2 PJ2 = PK3*PI1 - PK1*PI3 PJ3 = PK1*PI2 - PK2*PI1 MAGJ= DSQRT(PJ1**2 + PJ2**2 + PJ3**2) IF (MAGJ .LE. 1.D-6) GO TO 430 PJ1 = PJ1/MAGJ PJ2 = PJ2/MAGJ PJ3 = PJ3/MAGJ C C SET UP E MATRIX (3X3) FOR QUAD-MEMBRANE PROJECTION ONTO MEAN PLANE C E IS TRANSPOSE OF E MATRIX IN THEORETICAL MANUAL C C E(1),E(4),E(7) IS I-VECTOR C E(2),E(5),E(8) IS J-VECTOR C E(3),E(6),E(9) IS K-VECTOR C E(1) = PI1 E(2) = PJ1 E(3) = PK1 E(4) = PI2 E(5) = PJ2 E(6) = PK2 E(7) = PI3 E(8) = PJ3 E(9) = PK3 C C COMPUTE DIFFERENCES OF COORDINATES OF GRID POINTS IN THE MEAN PLAN C X12 =-(X21*E(1) + Y21*E(4) + Z21*E(7)) X13 =-(X31*E(1) + Y31*E(4) + Z31*E(7)) X24 =-(X42*E(1) + Y42*E(4) + Z42*E(7)) X14 = X12 + X24 Y3A = X31*E(2) + Y31*E(5) + Z31*E(8) Y4A = X42*E(2) + Y42*E(5) + Z42*E(8) X34 = X14 - X13 Y34 = Y3A - Y4A X23 = X13 - X12 IF (Y3A.LE.ZERO .OR. Y4A.LE.ZERO) GO TO 430 TEMP = X12 + X23*(Y4A/Y3A) YSUB4= (Y3A/Y4A)*X14 C C 0 C CHECK FOR INTERNAL ANGLE GREATER THAN 180 C IF (X13.GE.YSUB4 .OR. X14.LE.TEMP) GO TO 430 C C COMPUTE LENGTHS OF SIDES OF ELEMENT IN THE MEAN PLANE C LA = DABS(X12) LB = DSQRT(X23**2 + Y3A**2) LC = DSQRT(X34**2 + Y34**2) LD = DSQRT(X14**2 + Y4A**2) IF (LA.EQ.ZERO .OR. LB.EQ.ZERO .OR. LC.EQ.ZERO .OR. LD.EQ.ZERO) 1 GO TO 430 C C COMPUTE THE CHARACTERISTIC ANGLES OF ELEMENT IN THE MEAN PLANE C IF (PLANAR) GO TO 70 CTH1 =-X14/LD STH1 = Y4A/LD CTH2 = X23/LB STH2 = Y3A/LB CTH31 = X34/LC STH31 =-Y34/LC CTH41 = CTH1 STH41 = STH1 CTH32 = STH2 STH32 = CTH2 CTH42 = STH31 STH42 = CTH31 DLT1 = CTH31*CTH32 - STH31*STH32 DLT2 = CTH42*CTH41 + STH41*STH42 LDD2 = LD*DLT2 LBD1 = LB*DLT1 LCD1 = LC*DLT1 LCD2 = LC*DLT2 C C SET UP THE (12X8) TRANSFORMATION MATRIX B BETWEEN THE MEAN PLANE C AND ACTUAL GRID POINTS C DO 60 I = 2,92 B(I) = 0.0 60 CONTINUE C B( 1) = 1.0 B(10) = 1.0 B(17) =-HH/LA B(18) =-HH/(LD*STH1) + ((HH*CTH1)/(LA*STH1)) B(19) = HH/LA B(20) = (HH*CTH2)/(LA*STH2) B(23) = (HH*CTH42)/LDD2 B(24) = (HH*STH42)/LDD2 B(27) = 1.0 B(36) = 1. B(41) =-B(17) B(42) = (-HH*CTH1)/(LA*STH1) B(43) = B(17) B(44) = ((-HH*CTH2)/(LA*STH2)) + (HH/(LB*STH2)) B(45) = (-HH*STH31)/LBD1 B(46) = (-HH*CTH31)/LBD1 B(53) = 1. B(62) = 1. B(68) =-HH/(LB*STH2) B(69) = HH*((STH31/LBD1) + (CTH32/LCD1)) B(70) = HH*((CTH31/LBD1) + (STH32/LCD1)) B(71) = (-HH*STH41)/LCD2 B(72) = (HH*CTH41)/LCD2 B(79) = 1.0 B(88) = 1.0 B(90) = HH/(LD*STH1) B(93) = (-HH*CTH32)/LCD1 B(94) = (-HH*STH32)/LCD1 B(95) = HH*((-CTH42/LDD2) + (STH41/LCD2)) B(96) = HH*((-STH42/LDD2) - (CTH41/LCD2)) C 70 THETA = ANGLE*DEGRA SINTH = SIN(THETA) COSTH = COS(THETA) IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 ELTEMP = ECPT(26) INFLAG = 2 MATID = MATID1 C C T C COMPUTE TRANSFORMED MATRIX OF STIFFNESSES C = P * G * P C CALL MAT (ECPT(1)) C C STORE INTO G MATRIX C C(1) = G11 C(2) = G12 C(3) = G22 C(4) = G13 C(5) = G23 C(6) = ZERO FACT = G33*DBLE(THICK)/(X24*Y3A - X13*Y4A)*2.0D0 C C COMPUTE COEFFICIENTS OF THE GENERAL INTEGRAL C C 2 2 C D + E*ETA + F*ZETA + H*ETA*ZETA + P*ETA + Q*ZETA C -------------------------------------------------- C Y *X +Y *X *ZETA + (Y *X - Y *X ) * ETA C 4 21 34 21 4 32 3 41 C AQ( 1) =-Y4A AQ( 3) =-X24 AQ( 5) =-X24 AQ( 6) =-Y4A AQ( 7) = Y4A AQ( 9) = X14 AQ(11) = X14 AQ(12) = Y4A AQ(13) = 0.0 AQ(15) = 0.0 AQ(17) = 0.0 AQ(18) = 0.0 AQ(19) = 0.0 AQ(21) =-X12 AQ(23) =-X12 AQ(24) = 0.0 C BQ( 1) = Y3A BQ( 3) = X23 BQ( 5) = X23 BQ( 6) = Y3A BQ( 7) =-Y4A BQ( 9) =-X14 BQ(11) =-X14 BQ(12) =-Y4A BQ(13) = Y4A BQ(15) = X14 BQ(17) = X14 BQ(18) = Y4A BQ(19) =-Y3A BQ(21) =-X23 BQ(23) =-X23 BQ(24) =-Y3A C CQ( 1) =-Y34 CQ( 3) = X34 CQ( 5) = X34 CQ( 6) =-Y34 CQ( 7) = Y34 CQ( 9) =-X34 CQ(11) =-X34 CQ(12) = Y34 CQ(13) = 0.0 CQ(15) =-X12 CQ(17) =-X12 CQ(18) = 0.0 CQ(19) = 0.0 CQ(21) = X12 CQ(23) = X12 CQ(24) = 0.0 C NN = 0 DO 120 I = 1,4 DO 110 K = 1,2 DO 100 J = 1,4 DO 90 L = 1,2 NN = NN + 1 IM1 = I - 1 JM1 = J - 1 KM1 = K - 1 LM1 = L - 1 K1 = 6*IM1 + 4*KM1 + 1 K2 = 6*IM1 + 3*KM1 + 3 L1 = 6*JM1 + 4*LM1 + 1 L2 = 6*JM1 + 3*LM1 + 3 KL = K + L - 1 K3 = K + 3 L3 = L + 3 D = C(KL)*AQ(K1)*AQ(L1)+C(K3)*AQ(K1)*AQ(L2)+C(L3)*AQ(K2)*AQ(L1) C V = C(KL)*((AQ(K1)*BQ(L1))+(BQ(K1)*AQ(L1)))+C(K3)*((AQ(K1)*BQ(L2)) 1 + (BQ(K1)*AQ(L2)))+C(L3)*((AQ(K2)*BQ(L1))+(BQ(K2)*AQ(L1))) C F = C(KL)*((AQ(K1)*CQ(L1))+(CQ(K1)*AQ(L1)))+C(K3)*((AQ(K1)*CQ(L2)) 1 + (CQ(K1)*AQ(L2)))+C(L3)*((AQ(K2)*CQ(L1))+(CQ(K2)*AQ(L1))) C H = C(KL)*((BQ(K1)*CQ(L1))+(CQ(K1)*BQ(L1)))+C(K3)*((BQ(K1)*CQ(L2)) 1 + (CQ(K1)*BQ(L2)))+C(L3)*((BQ(K2)*CQ(L1))+(CQ(K2)*BQ(L1))) C P = C(KL)*BQ(K1)*BQ(L1)+C(K3)*BQ(K1)*BQ(L2)+C(L3)*BQ(K2)*BQ(L1) C Q = C(KL)*CQ(K1)*CQ(L1)+C(K3)*CQ(K1)*CQ(L2)+C(L3)*CQ(K2)*CQ(L1) C C USE GAUSSIAN INTEGRATION TO FIND THE PARTITIONS OF THE STIFFNESS C MATRIX FOR THE MEAN PLANE ELEMENT C U(NN) = ZERO DO 80 IA01 = 1,2 DO 80 JA01 = 1,2 U(NN) = U(NN) + 1 O(D,V,F,H,P,Q,Y4A,X12,Y34,Y3A,X23,X14,ETA01(IA01),ETA01(JA01)) 80 CONTINUE U(NN) = U(NN)/4.0D0*DBLE(THICK) C C ADD SHEAR TERMS HERE C U(NN) = U(NN) + FACT*(AQ(K2)+0.5*(BQ(K2)+CQ(K2))) 1 *(AQ(L2)+0.5*(BQ(L2)+CQ(L2))) 90 CONTINUE 100 CONTINUE 110 CONTINUE 120 CONTINUE C C TRANSFORM FROM MEAN PLANE TO ACTUAL GRID POINTS C C T C K = B * K * B C C EXPAND MATRIX TO INCLUDE Z COORDINATES C C IF NON-PLANAR, C IF (PLANAR) GO TO 130 CALL GMMATD (B(1),12,8,0, U(1),8,8,0, BTXK(1)) CALL GMMATD (BTXK(1),12,8,0, B(1),12,8,1, TEMPAR(1)) GO TO 200 C C IF PLANAR, TEMPAR(12X12) .EQ. U(8X8) C 130 IJ1 =-12 I2 = 144 DO 140 I = 1,64 140 TEMPAR(I2+I) = U(I) DO 190 I = 1,12 IJ1 = IJ1 + 12 IF (MOD(I,3) .NE. 0) GO TO 160 DO 150 J = 1,12 IJ = IJ1 + J 150 TEMPAR(IJ) = ZERO GO TO 190 160 DO 180 J = 1,12 IJ = IJ1 + J IF (MOD(J,3) .NE. 0) GO TO 170 TEMPAR(IJ) = ZERO GO TO 180 170 I2 = I2 + 1 TEMPAR(IJ) = TEMPAR(I2) 180 CONTINUE 190 CONTINUE C C T T C GENERATE (T * E) AND (E * T ) C I J C 200 DO 230 I = 1,4 KA = 4*I + 6 IF (NECPT(KA) .EQ. 0) GO TO 210 CALL TRANSD (NECPT(KA),TI) CALL GMMATD (TI,3,3,1, E,3,3,0, TIE(1,I)) CALL GMMATD (E,3,3,1, TI,3,3,0, ETJ(1,I)) GO TO 230 210 DO 220 II = 1,9 TIE(II,I) = E(II) 220 CONTINUE ETJ(1,I) = E(1) ETJ(2,I) = E(4) ETJ(3,I) = E(7) ETJ(4,I) = E(2) ETJ(5,I) = E(5) ETJ(6,I) = E(8) ETJ(7,I) = E(3) ETJ(8,I) = E(6) ETJ(9,I) = E(9) 230 CONTINUE C T T C COMPUTE STIFFNESS MATRIX K = T * E * S * E * T C IJ I IJ J C C EXTRACT 3 BY 3 PARTITIONS, TRANSFORM TO GLOBAL, AND INSERT BY C ORDER OF SILS INTO A 12X12 MATRIX C DO 260 I = 1,4 J = NGRID(I) DO 240 K = 2,5 IF (NECPT(K) .EQ. J) GO TO 250 240 CONTINUE GO TO 450 250 MAP(1,I) = J 260 MAP(2,I) = I CALL SORT (0,0,2,1,MAP(1,1),8) C C REPLACE SILS WITH INDICES C RESORT FOR ORIGINAL ORDER - WORD 1 WILL CONTAIN NEW LOCATION C DO 270 I = 1,4 270 MAP(1,I) = I CALL SORT (0,0,2,2,MAP(1,1),8) C C MOVE AND TRANSFORM HERE C C ROW LOOP C DO 300 I = 1,4 IOR = 36*(I-1) INR = 36*(MAP(1,I)-1) C C COLUMN LOOP C DO 300 J = 1,4 IOCL = IOR + 3*(J-1) INCL = INR + 3*(MAP(1,J)-1) C C INNER LOOPS C DO 280 K = 1,3 KL = IOCL + 12*(K-1) DO 280 L = 1,3 KJJ(L,K) = TEMPAR(KL+L) 280 CONTINUE C C TRANSFORM 3 BY 3 C CALL GMMATD (KJJ,3,3,0, ETJ(1,J),3,3,0, E) CALL GMMATD (TIE(1,I),3,3,0, E,3,3,0, KJJ) C C INSERT C DO 290 K = 1,3 KL = INCL + 12*(K-1) DO 290 L = 1,3 B(KL+L) = KJJ(L,K) 290 CONTINUE 300 CONTINUE C C PREPARE OUTPUT TO SMA1B C CALL SORT (0,0,4,1,NGRID(1),4) DO 350 J = 1,4 IF (NPVT .NE. NGRID(J)) GO TO 350 MPOINT = (J-1)*36 IF (HEAT) GO TO 330 C C SEND ONLY THE 4 6X6 SUBMATRICES ASSOCIATED TO THE PIVOT POINT TO C SMA1B C DO 320 K = 1,4 DO 310 I = 1,36 310 KIJ(I) = ZERO C KIJ( 1) = B(MPOINT+ 1) KIJ( 2) = B(MPOINT+ 2) KIJ( 3) = B(MPOINT+ 3) KIJ( 7) = B(MPOINT+13) KIJ( 8) = B(MPOINT+14) KIJ( 9) = B(MPOINT+15) KIJ(13) = B(MPOINT+25) KIJ(14) = B(MPOINT+26) KIJ(15) = B(MPOINT+27) CALL SMA1B (KIJ(1),NGRID(K),-1,IFKGG,ZERO) 320 MPOINT = MPOINT + 3 C IF (IOPT4.EQ.0 .OR. GSUBE.EQ. 0.0) GO TO 350 TEMP = GSUBE CALL SMA1B (KIJ(1),NGRID(J),-1,IF4GG,TEMP) K4GGW = 1 GO TO 350 C C HEAT FORMULATION C 330 CALL SMA1B (B(MPOINT+1),NGRID(I),NPVT,IFKGG,ZERO) C 350 CONTINUE GO TO 470 C C ERROR EXITS C 410 J = 32 GO TO 440 420 J = 31 GO TO 440 430 J = 26 440 K = 30 GO TO 460 450 K =-30 J = 34 460 CALL MESAGE (K,J,ECPT(1)) NOGO = .TRUE. C 470 RETURN END ================================================ FILE: mis/qdmm2.f ================================================ SUBROUTINE QDMM2 (TEMPS,PG) C C THERMAL LOAD GENERATION FOR THE QDMEM2 ELEMENT. C C ELEMENT EST ENTRY CONTENTS C + + + + + + + + + + + + + + + + + + + + + + + + + + C + 1 = ID + C + 2 = SIL-PT-A (ELEMENT CONNECTS + C + 3 = SIL-PT-B GRID POINTS A,B, + C + 4 = SIL-PT-C C,D IN THAT ORDER) + C + 5 = SIL-PT-D + C + 6 = MATERIAL-ANGLE + C + 7 = MATERIAL-ID + C + 8 = THICKNESS OF ELEMENT + C + 9 = NON-STRUCTURAL-MASS + C + 10 = COORD-SYS-ID PT-A OR 0 + C + 11 = XA + C + 12 = YA + C + 13 = ZA + C + 14 = COORD-SYS-ID PT-B OR 0 + C + 15 = XB + C + 16 = YB + C + 17 = ZB + C + 18 = COORD-SYS-ID PT-C OR 0 + C + 19 = XC + C + 20 = YC + C + 21 = ZC + C + 22 = COORD-SYS-ID PT-D OR 0 + C + 23 = XD + C + 24 = YD + C + 25 = ZD + C + 26 = AVERAGE OF CONNECTED GRID TEMPERATURES + C + + + + + + + + + + + + + + + + + + + + + + + + + + C LOGICAL PLANAR INTEGER NEST(7),MAP(4,3) REAL RMAT(3,5),ET(9),K5SUM(9,5),ISINTH,KMAT(27), 1 ITEMP9(9),ALPHA(3),PMAT(9),JTEMP9(9),ICOSTH, 2 GSUBE(9),TEMPS(1),PG(1),PSUM(3,5),IT CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33, RHO, ALPS(3), TSUB0 COMMON /SYSTEM/ KSYSTM(65) COMMON /TRIMEX/ EST(26) COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ EQUIVALENCE (KSYSTM(2),IOUTPT),(NEST(1),EST(1)) DATA MAP / 1, 2, 3, 4, 1 2, 3, 4, 1, 2 5, 5, 5, 5 / C C COMPUTE BASIC SIN AND COSINE OF ELEMENT MATERIAL ANGLE. C ANGL = EST(6)*DEGRA ISINTH = SIN(ANGL) ICOSTH = COS(ANGL) C C COMPUTE GSUBE MATRIX C INFLAG = 2 MATID = NEST(7) ELTEMP = EST(26) SINTH = 0.0 COSTH = 1.0 CALL MAT (NEST(1)) GSUBE(1) = G11 GSUBE(2) = G12 GSUBE(3) = G13 GSUBE(4) = G12 GSUBE(5) = G22 GSUBE(6) = G23 GSUBE(7) = G13 GSUBE(8) = G23 GSUBE(9) = G33 C C FORM ALPHA = ALPS *(T-T ) 3X1 VECTOR USED IN SUB-TRIANGLE CALCS C E 0 C TBAR = TEMPS(1) - TSUB0 ALPHA(1) = ALPS(1)*TBAR ALPHA(2) = ALPS(2)*TBAR ALPHA(3) = ALPS(3)*TBAR C C NOTE THE ABOVE MAY BE MOVED TO BELOW AND COMPUTED USING THE C GRID TEMPS OF SUB-TRIANGLE. (I.E. TOTAL AVERAGE FOR CENTER POINT C ONLY.) AVERAGE OF WHOLE ELEMENT IS USED EXCLUSIVELY NOW. C C BASIC WHOLE-ELEMENT CALCULATIONS C CALL Q2BCS (EST,PLANAR,RMAT,ET,IERROR) IF (IERROR) 10,10,140 C C ZERO SUMMATION ARRAYS C 10 DO 30 I = 1,5 DO 20 J = 1,9 K5SUM(J,I) = 0.0 20 CONTINUE PSUM(1,I) = 0.0 PSUM(2,I) = 0.0 PSUM(3,I) = 0.0 30 CONTINUE C C SUB-TRIANGLE COMPUTATIONS AND SUMMATIONS. C DO 70 I = 1,4 IA = MAP(I,1) IB = MAP(I,2) IC = MAP(I,3) IT = EST(8) CALL Q2TRMS (RMAT(1,IA),RMAT(1,IB),RMAT(1,IC),ALPHA(1),ISINTH, 1 ICOSTH,GSUBE,IT,IERROR,2,KMAT,PMAT,DUMMY,DUMMY) IF (IERROR) 40,40,140 C C SUM IN KCA,KCB,KCC C 40 DO 50 K = 1,9 K5SUM(K,IA) = K5SUM(K,IA) + KMAT(K ) K5SUM(K,IB) = K5SUM(K,IB) + KMAT(K+ 9) K5SUM(K,IC) = K5SUM(K,IC) + KMAT(K+18) 50 CONTINUE C C SUM IN PA,PB,PC C DO 60 K = 1,3 PSUM(K,IA) = PSUM(K,IA) + PMAT(K ) PSUM(K,IB) = PSUM(K,IB) + PMAT(K+3) PSUM(K,IC) = PSUM(K,IC) + PMAT(K+6) 60 CONTINUE C 70 CONTINUE C C IF -PLANAR- MODIFY THE K5SUM MATRICES. C IF (.NOT.PLANAR) GO TO 90 DO 80 I = 1,5 K5SUM(7,I) = 0.0 K5SUM(8,I) = 0.0 K5SUM(9,I) =-0.25 80 CONTINUE K5SUM(9,5) = 1.0 C C INVERT K AND NEGATE THE RESULT. C 55 C 90 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (3,K5SUM(1,5),3,DUMMY,0,DETERM,ISING,ITEMP9) IF (ISING .EQ. 2) GO TO 140 C DO 100 I = 1,9 K5SUM(I,5) = -K5SUM(I,5) 100 CONTINUE C C 4 (3X1) LOAD VECTORS ARE COMPUTED AND ADDED INTO THE P-VECTOR IN C CORE C C G T T -1 T C (P ) = (T ) (E) ((PSUM ) + ((-K ) (K )) (PSUM )) C I I I 55 5I 5 C DO 130 I = 1,4 CALL GMMATS (K5SUM(1,5),3,3,0,K5SUM(1,I),3,3,0,ITEMP9) CALL GMMATS (ITEMP9,3,3,1,PSUM(1,5),3,1,0,JTEMP9) DO 110 J = 1,3 PSUM(J,I) = PSUM(J,I) + JTEMP9(J) 110 CONTINUE CALL GMMATS (ET,3,3,1,PSUM(1,I),3,1,0,JTEMP9) JTEMP9(4) = 0.0 JTEMP9(5) = 0.0 JTEMP9(6) = 0.0 K = 4*I + 6 IF (NEST(K) .NE. 0) CALL BASGLB (JTEMP9,JTEMP9,NEST(K+1),NEST(K)) C C ADD LOAD TO CORE FOR THIS GRID C I L = NEST(I+1) DO 120 J = 1,3 PG(L) = PG(L) + JTEMP9(J) L = L + 1 120 CONTINUE C 130 CONTINUE RETURN C C ERROR CONDITIONS C 140 WRITE (IOUTPT,150) UWM,NEST(1) 150 FORMAT (A25,' 3100, ELEMENT THERMAL LOAD COMPUTATION FOR QDMEM2 ', 1 'ELEMENT ID =',I9, /5X,'FINDS ILLEGAL GEOMETRY THUS NO ', 2 'LOADS OUTPUT FOR ELEMENT-ID NOTED.') RETURN END ================================================ FILE: mis/qdmm2d.f ================================================ SUBROUTINE QDMM2D C C THIS ROUTINE CALCULATES THE STIFFNESS, MASS AND DAMPING MATRICES C FOR THE QDMM2 ELEMENT. C C DOUBLE PRECISION VERSION C C THIS SUBROUTINE USES SUBROUTINE E MA D TQ TO CALCULATE THE LUMPED C MASS USING THE SAME METHOD AS WITH THE QDMEM ELEMENT. C C THIS ROUTINE MAY NOT BE CALLED IN A HEAT PROBLEM. C C ELEMENT EST ENTRY CONTENTS C + + + + + + + + + + + + + + + + + + + + + + + + + + C + 1 = ID + C + 2 = SIL-PT-A (ELEMENT CONNECTS + C + 3 = SIL-PT-B GRID POINTS A,B, + C + 4 = SIL-PT-C C,D IN THAT ORDER) + C + 5 = SIL-PT-D + C + 6 = MATERIAL-ANGLE + C + 7 = MATERIAL-ID + C + 8 = THICKNESS OF ELEMENT + C + 9 = NON-STRUCTURAL-MASS + C + 10 = COORD-SYS-ID PT-A OR 0 + C + 11 = XA + C + 12 = YA + C + 13 = ZA + C + 14 = COORD-SYS-ID PT-B OR 0 + C + 15 = XB + C + 16 = YB + C + 17 = ZB + C + 18 = COORD-SYS-ID PT-C OR 0 + C + 19 = XC + C + 20 = YC + C + 21 = ZC + C + 22 = COORD-SYS-ID PT-D OR 0 + C + 23 = XD + C + 24 = YD + C + 25 = ZD + C + 26 = AVERAGE OF CONNECTED GRID TEMPERATURES + C + + + + + + + + + + + + + + + + + + + + + + + + + + C LOGICAL PLANAR,NOGO,IHEAT INTEGER DICT(11),ELID,ESTID,IPART(4),NEST(7),MAP(4,3) DOUBLE PRECISION KIJ(1),KOUT(144),RMAT(3,5),ET(9),K1SUM(9,16), 1 ISINTH,KMAT(63),K5SUM(9,5),ICOSTH,GSUBE(9),IT, 2 G(36),ITEMP9(9),K5MOD(9,5),TMAT(36),JTEMP9(9), 3 IDETRM,KTEMP9(9) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /EMGEST/ EST(26) COMMON /EMGPRM/ DUMM(15),ISMD(3),IPREC,NOGO,HEAT,ICMBAR COMMON /EMGDIC/ DUM(2),NGRIDS,ELID,ESTID COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPS(3),TSUB0,GE COMMON /SYSTEM/ KSYSTM(65) COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ EQUIVALENCE (KSYSTM(2),IOUTPT),(NEST(1),EST(1)), 1 (DICT(5),DICT5),(K1SUM(1,1),KIJ(1)), 2 (KSYSTM(56),IHEAT) DATA MAP / 1, 2, 3, 4, 1 2, 3, 4, 1, 2 5, 5, 5, 5 / C C THIS ELEMENT NOT USED IN A HEAT PROBLEM C IF (IHEAT) GO TO 320 C C CREATE AN ARRAY POINTING TO THE GRID POINTS ACCORDING TO C INCREASING SIL VALUE C DO 2 I = 1,4 IPART(I) = NEST(I+1) 2 CONTINUE I = -4 4 J = 0 DO 6 K = 1,4 IF (IPART(K) .LT. J) GO TO 6 J = IPART(K) L = K 6 CONTINUE IPART(L) = I I = I + 1 IF (I .LT. 0) GO TO 4 DO 8 I = 1,4 IPART(I) = -IPART(I) 8 CONTINUE C C IF STIFFNESS MATRIX NEEDED C SET UP DICT ARRAY AND FOR STIFFNESS MATRIX C CALCULATIONS, OTHERWISE SKIP C IF (ISMD(1) .EQ. 0) GO TO 400 C C COMPUTE BASIC SIN AND COSINE OF ELEMENT MATERIAL ANGLE. C ANGL = EST(6)*DEGRA ISINTH = SIN(ANGL) ICOSTH = COS(ANGL) C C COMPUTE GSUBE MATRIX C INFLAG = 2 MATID = NEST(7) ELTEMP = EST(26) SINTH = 0.0 COSTH = 1.0 CALL MAT (NEST(1)) GSUBE(1) = G11 GSUBE(2) = G12 GSUBE(3) = G13 GSUBE(4) = G12 GSUBE(5) = G22 GSUBE(6) = G23 GSUBE(7) = G13 GSUBE(8) = G23 GSUBE(9) = G33 C C BASIC WHOLE-ELEMENT CALCULATIONS C CALL Q2BCD (EST,PLANAR,RMAT,ET,IERROR) IF (IERROR) 10,10,270 C C ZERO SUMMATION ARRAYS C 10 DO 40 I = 1,9 DO 20 J = 1,16 K1SUM(I,J) = 0.0D0 20 CONTINUE DO 30 J = 1,5 K5SUM(I,J) = 0.0D0 30 CONTINUE 40 CONTINUE C C SUB-TRIANGLES ARE COMPUTED AND RESULTS SUMMED. C DO 70 I = 1,4 C C CALL TRIANGLE CALCULATION ROUTINE TO GET (3X3) SUB-PARTITIONS C IA = MAP(I,1) IB = MAP(I,2) IC = MAP(I,3) IT = EST(8) C CALL Q2TRMD (RMAT(1,IA),RMAT(1,IB),RMAT(1,IC),DUMMY,ISINTH,ICOSTH, 1 GSUBE,IT,IERROR,1,KMAT,DUMMY,DUMMY,DUMMY) IF (IERROR) 50,50,270 C C SUM IN KCA,KCB,KCC 3-(3X3)-S STORED FIRST IN KMAT C C ALSO SUM IN KAA,KAB,KBA,KBB = LAST 4-(3X3)-S STORED IN KMAT. C THESE GO INTO 4 OF THE 16 POSSIBLE (3X3) SUM MATRICES = , C C K11,K12,K13,K14,K21,K22,K23,K24,K31,K32,K33,K34,K41,K42,K43,K44 C C J1,J2,J3,J4 WILL EACH POINT TO 1 OF THE 16 (3X3)-S. C 50 J1 = 5*IA - 4 J2 = 4*IA - 4 + IB J3 = 4*IB - 4 + IA J4 = 5*IB - 4 C DO 60 K = 1,9 K5SUM(K,IA) = K5SUM(K,IA) + KMAT(K ) K5SUM(K,IB) = K5SUM(K,IB) + KMAT(K+ 9) K5SUM(K,IC) = K5SUM(K,IC) + KMAT(K+18) K1SUM(K,J1) = K1SUM(K,J1) + KMAT(K+27) K1SUM(K,J2) = K1SUM(K,J2) + KMAT(K+36) K1SUM(K,J3) = K1SUM(K,J3) + KMAT(K+45) K1SUM(K,J4) = K1SUM(K,J4) + KMAT(K+54) 60 CONTINUE C 70 CONTINUE C C FORMATION OF THE FOUR (3X3) G MATRICES. C -1 C (G ) = -(K5SUM ) (K ) NOTE. IF -PLANAR- THEN MODIFIED C I 55 5I K5SUM MATRICES ARE USED. C IF (PLANAR) GO TO 90 DO 80 I = 1,5 DO 80 J = 1,9 K5MOD(J,I) = K5SUM(J,I) 80 CONTINUE GO TO 110 C 90 DO 100 I = 1,5 K5MOD(1,I) = K5SUM(1,I) K5MOD(2,I) = K5SUM(2,I) K5MOD(3,I) = K5SUM(3,I) K5MOD(4,I) = K5SUM(4,I) K5MOD(5,I) = K5SUM(5,I) K5MOD(6,I) = K5SUM(6,I) K5MOD(7,I) = 0.0D0 K5MOD(8,I) = 0.0D0 K5MOD(9,I) =-0.25D0 100 CONTINUE K5MOD(9,5) = 1.0D0 C C INVERT K5MOD AND NEGATE RESULT. C 55 C 110 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (3,K5MOD(1,5),3,DUMMY,0,IDETRM,ISING,ITEMP9) IF (ISING .EQ. 2) GO TO 290 C DO 120 I = 1,9 K5MOD(I,5) = -K5MOD(I,5) 120 CONTINUE C C FORM G MATRICES C DO 130 I = 1,4 CALL GMMATD (K5MOD(1,5),3,3,0, K5MOD(1,I),3,3,0, G(9*I-8)) 130 CONTINUE C C FORMATION OF THE 4 TRANSFORMATION MATRICES EACH (3X3) C DO 170 I = 1,4 IEST = 4*I + 6 IF (NEST(IEST)) 140,150,140 C C GET TRANSFORMATION MATRIX C 140 CALL TRANSD (NEST(IEST),ITEMP9) CALL GMMATD (ET,3,3,0, ITEMP9,3,3,0, TMAT(9*I-8)) GO TO 170 C 150 K = 9*I - 9 DO 160 J = 1,9 K = K + 1 TMAT(K) = ET(J) 160 CONTINUE C 170 CONTINUE C C FORM STIFFNESS MATRIX BY ROW-PARTIONS. C DO 260 I = 1,4 C T C IF -PLANAR- FORM (G ) (K ) FOR USE IN COLUMN-PARTITIONS LOOP. C I 55 C IF (.NOT.PLANAR) GO TO 190 CALL GMMATD (G(9*I-8),3,3,1, K5SUM(1,5),3,3,0, ITEMP9) C C COLUMN-PARTITIONS-LOOP C 190 DO 250 J = 1,4 C T C FORM (K ) = (K5SUM ) + (K ) (G ) C IJ IJ 5I J C CALL GMMATD (K5SUM(1,I),3,3,1, G(9*J-8),3,3,0, JTEMP9) LPART = 4*I - 4 + J DO 200 K = 1,9 K1SUM(K,LPART) = K1SUM(K,LPART) + JTEMP9(K) 200 CONTINUE C C BALANCE OF TERMS IF -PLANAR- C C T T C ADD IN (G ) (K ) + (G ) (K )(G ) C I 5J I 55 J C IF (.NOT.PLANAR) GO TO 220 CALL GMMATD (ITEMP9,3,3,0, G(9*J-8),3,3,0, JTEMP9) CALL GMMATD (G(9*I-8),3,3,1, K5SUM(1,J),3,3,0, KTEMP9) DO 210 K = 1,9 K1SUM(K,LPART) = K1SUM(K,LPART) + KTEMP9(K) + JTEMP9(K) 210 CONTINUE C C TRANSFORM THIS RESULTANT K (3X3) STORED AT K1SUM(1,LPART) C IJ C TO GLOBAL. C 220 CALL GMMATD (TMAT(9*I-8),3,3,1, K1SUM(1,LPART),3,3,0, JTEMP9) CALL GMMATD (JTEMP9,3,3,0, TMAT(9*J-8),3,3,0, K1SUM(1,LPART)) 250 CONTINUE 260 CONTINUE C C FOR THE MATRIX ASSEMBLER -EMG- THE 16 (3X3) PARTITIONS IN K1SUM C ARE REARRANGED TO STORE THEM BY ROWS TO A TOTAL OF C 12X12 RATHER THAN 3X3. BUT FIRST DICT MUST BE C SET UP. THE SILS MUST BE SORTED SO THAT THE 12X12 WILL C BE BY INCREASING SIL VALUE C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 7 DICT5 = GE IP = IPREC C C REORDER K1SUM INTO KOUT AS DESCRIBED ABOVE C C **** **** C * K K K K * C * AA AB AC AD* C K = * K K K K * C * BA BB BC BD* C * K K K K * C * CA CB CC CD* C * K K K K * C * DA DB DC DD* C **** **** C C WHERE SUBSCRIPTS ARE ARRANGED BY INCREASING SIL VALUE C DO 390 I = 1,4 II = IPART(I) DO 380 J = 1,4 JTT = IPART(J) JT = (I-1)*4 + J DO 370 K= 1,9 MODK = MOD(K,3) IF(MODK .EQ. 0) MODK = 3 L = (II-1)*36 + ((K-1)/3)*12 + (JTT-1)*3 + MODK KOUT(L) = K1SUM(K,JT) 370 CONTINUE 380 CONTINUE 390 CONTINUE C CALL EMGOUT (KOUT,KOUT,144,1,DICT,1,IP) C C CALCULATE THE MASS MATRIX HERE. SUBROUTINE C E MAS TQ IS USED TO GENERATE A LUMPED C MASS MATRIX EXACTLY LIKE A QDMEM ELEMENT C 400 IF (ISMD(2) .EQ. 0) RETURN C CALL E MA D TQ (1,K1SUM) C DICT(1) = ESTID DICT(2) = 2 DICT(3) = 12 DICT(4) = 7 DICT(5) = 0 C C REARRANGE KIJ BY INCREASING SIL VALUE C DO 440 I = 1,4 II = 1 + (IPART(I)-1)*3 IJ = (I-1)*3 + 1 KOUT(IJ ) = KIJ(II ) KOUT(IJ+1) = KIJ(II+1) 440 KOUT(IJ+2) = KIJ(II+2) C CALL EMGOUT (KOUT,KOUT,12,1,DICT,2,IP) RETURN C C ELEMENT ERRORS DETECTED. C 270 WRITE (IOUTPT,280) UFM,NEST(1) 280 FORMAT (A23,' 3098, QDMEM2 ELEMENT STIFFNESS ROUTINE DETECTS ', 1 'ILLEGAL GEOMETRY FOR ELEMENT ID =',I10) GO TO 310 290 WRITE (IOUTPT,300) UFM,NEST(1) 300 FORMAT (A23,' 3099. ELEMENT STIFFNESS COMPUTATION FOR QDMEM2 ', 1 'ELEMENT ID =',I10, /5X,'IS IMPOSSIBLE DUE TO SINGULARITY', 2 ' IN CONSTRAINT EQUATION.') 310 NOGO = .TRUE. RETURN C 320 WRITE (IOUTPT,330) UWM,NEST(1) 330 FORMAT (A25,' 3115, QDMM2 FINDS ELEMENT NUMBER',I10, 1 ' PRESENT IN A HEAT FORMULATION AND IS IGNORING SAME.') C RETURN END ================================================ FILE: mis/qdmm2s.f ================================================ SUBROUTINE QDMM2S C C THIS ROUTINE CALCULATES THE STIFFNESS, MASS AND DAMPING MATRICES C FOR THE QDMM2 ELEMENT. C C SINGLE PRECISION VERSION C C THIS ROUTINE USES SUBROUTINE E MAS TQ TO CALCULATE THE LUMPED C MASS USING THE SAME METHOD AS WITH THE QDMEM ELEMENT. C C THIS ROUTINE MAY NOT BE CALLED IN A HEAT PROBLEM. C C ELEMENT EST ENTRY CONTENTS C + + + + + + + + + + + + + + + + + + + + + + + + + + C + 1 = ID + C + 2 = SIL-PT-A (ELEMENT CONNECTS + C + 3 = SIL-PT-B GRID POINTS A,B, + C + 4 = SIL-PT-C C,D IN THAT ORDER) + C + 5 = SIL-PT-D + C + 6 = MATERIAL-ANGLE + C + 7 = MATERIAL-ID + C + 8 = THICKNESS OF ELEMENT + C + 9 = NON-STRUCTURAL-MASS + C + 10 = COORD-SYS-ID PT-A OR 0 + C + 11 = XA + C + 12 = YA + C + 13 = ZA + C + 14 = COORD-SYS-ID PT-B OR 0 + C + 15 = XB + C + 16 = YB + C + 17 = ZB + C + 18 = COORD-SYS-ID PT-C OR 0 + C + 19 = XC + C + 20 = YC + C + 21 = ZC + C + 22 = COORD-SYS-ID PT-D OR 0 + C + 23 = XD + C + 24 = YD + C + 25 = ZD + C + 26 = AVERAGE OF CONNECTED GRID TEMPERATURES + C + + + + + + + + + + + + + + + + + + + + + + + + + + C LOGICAL PLANAR,NOGO,IHEAT INTEGER DICT(11),ELID,ESTID,IPART(4),NEST(7),MAP(4,3) REAL RMAT(3,5),ET(9),K1SUM(9,16),KIJ(1),ISINTH, 1 KMAT(63),K5SUM(9,5),ICOSTH,GSUBE(9),IT,G(36), 2 ITEMP9(9),K5MOD(9,5),TMAT(36),JTEMP9(9),IDETRM, 3 KTEMP9(9),KOUT(144) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /EMGEST/ EST(26) COMMON /EMGPRM/ DUMM(15),ISMD(3),IPREC,NOGO,HEAT,ICMBAR COMMON /EMGDIC/ DUM(2),NGRIDS,ELID,ESTID COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPS(3),TSUB0,GE COMMON /SYSTEM/ KSYSTM(65) COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ EQUIVALENCE (KSYSTM(2),IOUTPT),(NEST(1),EST(1)), 1 (DICT(5),DICT5),(K1SUM(1,1),KIJ(1)), 2 (KSYSTM(56),IHEAT) DATA MAP / 1, 2, 3, 4, 1 2, 3, 4, 1, 2 5, 5, 5, 5 / C C C THIS ELEMENT NOT USED IN A HEAT PROBLEM C IF (IHEAT) GO TO 320 C C CREATE AN ARRAY POINTING TO THE GRID POINTS ACCORDING TO C INCREASING SIL VALUE C DO 2 I = 1,4 IPART(I) = NEST(I+1) 2 CONTINUE I = -4 4 J = 0 DO 6 K = 1,4 IF (IPART(K) .LT. J) GO TO 6 J = IPART(K) L = K 6 CONTINUE IPART(L) = I I = I + 1 IF (I .LT. 0) GO TO 4 DO 8 I = 1,4 IPART(I) = -IPART(I) 8 CONTINUE C C IF STIFFNESS MATRIX NEEDED C SET UP DICT ARRAY AND FOR STIFFNESS MATRIX C CALCULATIONS, OTHERWISE SKIP C IF (ISMD(1) .EQ. 0) GO TO 400 C C COMPUTE BASIC SIN AND COSINE OF ELEMENT MATERIAL ANGLE. C ANGL = EST(6)*DEGRA ISINTH = SIN(ANGL) ICOSTH = COS(ANGL) C C COMPUTE GSUBE MATRIX C INFLAG = 2 MATID = NEST(7) ELTEMP = EST(26) SINTH = 0.0 COSTH = 1.0 CALL MAT (NEST(1)) GSUBE(1) = G11 GSUBE(2) = G12 GSUBE(3) = G13 GSUBE(4) = G12 GSUBE(5) = G22 GSUBE(6) = G23 GSUBE(7) = G13 GSUBE(8) = G23 GSUBE(9) = G33 C C BASIC WHOLE-ELEMENT CALCULATIONS C CALL Q2BCS (EST,PLANAR,RMAT,ET,IERROR) IF (IERROR) 10,10,270 C C ZERO SUMMATION ARRAYS C 10 DO 40 I = 1,9 DO 20 J = 1,16 K1SUM(I,J) = 0.0 20 CONTINUE DO 30 J = 1,5 K5SUM(I,J) = 0.0 30 CONTINUE 40 CONTINUE C C SUB-TRIANGLES ARE COMPUTED AND RESULTS SUMMED. C DO 70 I = 1,4 C C CALL TRIANGLE CALCULATION ROUTINE TO GET (3X3) SUB-PARTITIONS C IA = MAP(I,1) IB = MAP(I,2) IC = MAP(I,3) IT = EST(8) C CALL Q2TRMS (RMAT(1,IA),RMAT(1,IB),RMAT(1,IC),DUMMY,ISINTH,ICOSTH, 1 GSUBE,IT,IERROR,1,KMAT,DUMMY,DUMMY,DUMMY) IF (IERROR) 50,50,270 C C SUM IN KCA,KCB,KCC 3-(3X3)-S STORED FIRST IN KMAT C C ALSO SUM IN KAA,KAB,KBA,KBB = LAST 4-(3X3)-S STORED IN KMAT. C THESE GO INTO 4 OF THE 16 POSSIBLE (3X3) SUM MATRICES = , C C K11,K12,K13,K14,K21,K22,K23,K24,K31,K32,K33,K34,K41,K42,K43,K44 C C J1,J2,J3,J4 WILL EACH POINT TO 1 OF THE 16 (3X3)-S. C 50 J1 = 5*IA - 4 J2 = 4*IA - 4 + IB J3 = 4*IB - 4 + IA J4 = 5*IB - 4 C DO 60 K = 1,9 K5SUM(K,IA) = K5SUM(K,IA) + KMAT(K ) K5SUM(K,IB) = K5SUM(K,IB) + KMAT(K+ 9) K5SUM(K,IC) = K5SUM(K,IC) + KMAT(K+18) K1SUM(K,J1) = K1SUM(K,J1) + KMAT(K+27) K1SUM(K,J2) = K1SUM(K,J2) + KMAT(K+36) K1SUM(K,J3) = K1SUM(K,J3) + KMAT(K+45) K1SUM(K,J4) = K1SUM(K,J4) + KMAT(K+54) 60 CONTINUE C 70 CONTINUE C C FORMATION OF THE FOUR (3X3) G MATRICES. C -1 C (G ) = -(K5SUM ) (K ) NOTE. IF -PLANAR- THEN MODIFIED C I 55 5I K5SUM MATRICES ARE USED. C IF (PLANAR) GO TO 90 DO 80 I = 1,5 DO 80 J = 1,9 K5MOD(J,I) = K5SUM(J,I) 80 CONTINUE GO TO 110 C 90 DO 100 I = 1,5 K5MOD(1,I) = K5SUM(1,I) K5MOD(2,I) = K5SUM(2,I) K5MOD(3,I) = K5SUM(3,I) K5MOD(4,I) = K5SUM(4,I) K5MOD(5,I) = K5SUM(5,I) K5MOD(6,I) = K5SUM(6,I) K5MOD(7,I) = 0.0 K5MOD(8,I) = 0.0 K5MOD(9,I) =-0.25 100 CONTINUE K5MOD(9,5) = 1.0 C C INVERT K5MOD AND NEGATE RESULT. C 55 C 110 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (3,K5MOD(1,5),3,DUMMY,0,IDETRM,ISING,ITEMP9) IF (ISING .EQ. 2) GO TO 290 C DO 120 I = 1,9 K5MOD(I,5) = -K5MOD(I,5) 120 CONTINUE C C FORM G MATRICES C DO 130 I = 1,4 CALL GMMATS (K5MOD(1,5),3,3,0, K5MOD(1,I),3,3,0, G(9*I-8)) 130 CONTINUE C C FORMATION OF THE 4 TRANSFORMATION MATRICES EACH (3X3) C DO 170 I = 1,4 IEST = 4*I + 6 IF (NEST(IEST)) 140,150,140 C C GET TRANSFORMATION MATRIX C 140 CALL TRANSS (NEST(IEST),ITEMP9) CALL GMMATS (ET,3,3,0, ITEMP9,3,3,0, TMAT(9*I-8)) GO TO 170 C 150 K = 9*I - 9 DO 160 J = 1,9 K = K + 1 TMAT(K) = ET(J) 160 CONTINUE C 170 CONTINUE C C FORM STIFFNESS MATRIX BY ROW-PARTIONS. C DO 260 I = 1,4 C T C IF -PLANAR- FORM (G ) (K ) FOR USE IN COLUMN-PARTITIONS LOOP. C I 55 C IF (.NOT.PLANAR) GO TO 190 CALL GMMATS (G(9*I-8),3,3,1, K5SUM(1,5),3,3,0, ITEMP9) C C COLUMN-PARTITIONS-LOOP C 190 DO 250 J = 1,4 C T C FORM (K ) = (K5SUM ) + (K ) (G ) C IJ IJ 5I J C CALL GMMATS (K5SUM(1,I),3,3,1, G(9*J-8),3,3,0, JTEMP9) LPART = 4*I - 4 + J DO 200 K = 1,9 K1SUM(K,LPART) = K1SUM(K,LPART) + JTEMP9(K) 200 CONTINUE C C BALANCE OF TERMS IF -PLANAR- C C T T C ADD IN (G ) (K ) + (G ) (K )(G ) C I 5J I 55 J C IF (.NOT.PLANAR) GO TO 220 CALL GMMATS (ITEMP9,3,3,0, G(9*J-8),3,3,0, JTEMP9) CALL GMMATS (G(9*I-8),3,3,1, K5SUM(1,J),3,3,0, KTEMP9) DO 210 K = 1,9 K1SUM(K,LPART) = K1SUM(K,LPART) + KTEMP9(K) + JTEMP9(K) 210 CONTINUE C C TRANSFORM THIS RESULTANT K (3X3) STORED AT K1SUM(1,LPART) C IJ C TO GLOBAL. C 220 CALL GMMATS (TMAT(9*I-8),3,3,1, K1SUM(1,LPART),3,3,0, JTEMP9) CALL GMMATS (JTEMP9,3,3,0, TMAT(9*J-8),3,3,0, K1SUM(1,LPART)) 250 CONTINUE 260 CONTINUE C C FOR THE MATRIX ASSEMBLER -EMG- THE 16 (3X3) PARTITIONS IN K1SUM C ARE REARRANGED TO STORE THEM BY ROWS TO A TOTAL OF C 12X12 RATHER THAN 3X3. BUT FIRST DICT MUST BE C SET UP. THE SILS MUST BE SORTED SO THAT THE 12X12 WILL C BE BY INCREASING SIL VALUE C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 7 DICT5 = GE IP = IPREC C C REORDER K1SUM INTO KOUT AS DESCRIBED ABOVE C C **** **** C * K K K K * C * AA AB AC AD* C K = * K K K K * C * BA BB BC BD* C * K K K K * C * CA CB CC CD* C * K K K K * C * DA DB DC DD* C **** **** C C WHERE SUBSCRIPTS ARE ARRANGED BY INCREASING SIL VALUE C DO 390 I = 1,4 II = IPART(I) DO 380 J = 1,4 JTT = IPART(J) JT = (I-1)*4 + J DO 370 K = 1,9 MODK = MOD(K,3) IF (MODK .EQ. 0) MODK = 3 L = (II-1)*36 + ((K-1)/3)*12 + (JTT-1)*3 + MODK KOUT(L) = K1SUM(K,JT) 370 CONTINUE 380 CONTINUE 390 CONTINUE C CALL EMGOUT (KOUT,KOUT,144,1,DICT,1,IP) C C CALCULATE THE MASS MATRIX HERE. SUBROUTINE C E MAS TQ IS USED TO GENERATE A LUMPED C MASS MATRIX EXACTLY LIKE A QDMEM ELEMENT C 400 IF (ISMD(2) .EQ. 0) RETURN C CALL E MAS TQ (1,K1SUM) C DICT(1) = ESTID DICT(2) = 2 DICT(3) = 12 DICT(4) = 7 DICT(5) = 0 C C REARRANGE KIJ BY INCREASING SIL VALUE C DO 440 I = 1,4 II = 1 + (IPART(I)-1)*3 IJ = (I-1)*3 + 1 KOUT(IJ ) = KIJ(II ) KOUT(IJ+1) = KIJ(II+1) 440 KOUT(IJ+2) = KIJ(II+2) C CALL EMGOUT (KOUT,KOUT,12,1,DICT,2,IP) RETURN C C ELEMENT ERRORS DETECTED. C 270 WRITE (IOUTPT,280) UFM,NEST(1) 280 FORMAT (A23,' 3098, QDMEM2 ELEMENT STIFFNESS ROUTINE DETECTS ', 1 'ILLEGAL GEOMETRY FOR ELEMENT ID =',I10) GO TO 310 290 WRITE (IOUTPT,300) UFM,NEST(1) 300 FORMAT (A23,' 3099. ELEMENT STIFFNESS COMPUTATION FOR QDMEM2 ', 1 'ELEMENT ID =',I10, /5X,'IS IMPOSSIBLE DUE TO SINGULARITY', 2 ' IN CONSTRAINT EQUATION.') 310 NOGO = .TRUE. RETURN C 320 WRITE (IOUTPT,330) UWM,NEST(1) 330 FORMAT (A25,' 3115, QDMM2 FINDS ELEMENT NUMBER',I10, 1 ' PRESENT IN A HEAT FORMULATION AND IS IGNORING SAME.') C RETURN END ================================================ FILE: mis/qdplt.f ================================================ SUBROUTINE QDPLT (TI) C C THERMAL LOADING FOR THE BENDING QUADRILATERAL C C DEFINITION DEFINITION C ECPT BSC.BEND.TRI.------TYPE QUAD.PLT.----------TYPE C ======== ================= ====== ================ ======= C ECPT( 1) = ELEMENT ID INTEGER ** ELEMENT INTEGER C ECPT( 2) = GRID PT. A INTEGER ** GRID PT.A INTEGER C ECPT( 3) = GRID PT. B INTEGER ** GRID PT.B INTEGER C ECPT( 4) = GRID PT. C INTEGER ** GRID PT.C INTEGER C ECPT( 5) = THETA REAL ** GRID PT.D INTEGER C ECPT( 6) = MAT ID 1 INTEGER ** THETA REAL C ECPT( 7) = I MOM. OF INERT. REAL ** MAT ID 1 INTEGER C ECPT( 8) = MAT ID 2 INTEGER ** I MOM. OF INERT. REAL C ECPT( 9) = T2 REAL ** MAT ID 2 INTEGER C ECPT(10) = NON-STRUCT. MASS REAL ** T2 REAL C ECPT(11) = Z1 REAL ** NON-STRUCT. MASS REAL C ECPT(12) = Z2 REAL ** Z1 REAL C ECPT(13) = COORD. SYS. ID 1 INTEGER ** Z2 REAL C ECPT(14) = X1 REAL ** COORD. SYS. ID 1 INTEGER C ECPT(15) = Y1 REAL ** X1 REAL C ECPT(16) = Z1 REAL ** Y1 REAL C ECPT(17) = COORD. SYS. ID 2 INTEGER ** Z1 REAL C ECPT(18) = X2 REAL ** COORD. SYS. ID 2 INTEGER C ECPT(19) = Y2 REAL ** X2 REAL C ECPT(20) = Z2 REAL ** Y2 REAL C ECPT(21) = COORD. SYS. ID 3 INTEGER ** Z2 REAL C ECPT(22) = X3 REAL ** COORD. SYS. ID 3 INTEGER C ECPT(23) = Y3 REAL ** X3 REAL C ECPT(24) = Z3 REAL ** Y3 REAL C ECPT(25) = ELEMENT TEMP REAL ** Z3 REAL C ECPT(26) = ** COORD. SYS. ID 4 INTEGER C ECPT(27) = ** X4 REAL C ECPT(28) = ** Y4 REAL C ECPT(29) = ** Z4 REAL C ECPT(30) = ** ELEMENT TEMP REAL C INTEGER SUBSCA,SUBSCB,SUBSCC REAL IVECT,JVECT,KVECT,KHI,TI(6),KS DIMENSION NECPT(100),M(12),VQ1(3),VQ2(3),VQ3(3),VQ4(3), 1 REQUIV(10) COMMON /CONDAS/ CONSTS(5) COMMON /TRIMEX/ ECPT(100) COMMON /SSGWRK/ A(45),TEMP15(15),PROD15(15),T(9),TITE(18),V(25), 1 D1(3),D2(3),SPDUM1(18),U1,U2,SINANG,COSANG, 2 SSUM(60),R(2,5),XSUBB,XSUBC,YSUBC,E(18),TEMP, 3 VV1(2),VV2(2),H,A1(3),NPOINT,SPDUM2(5),IVECT(3), 4 JVECT(3),KVECT(3),SPDUM3(15),THETA,NSUBC, 5 SPDUM4(1),SUBSCA,SUBSCB,SUBSCC,SPDUM5(2),XC,YC, 6 SPDUM6(5) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /SSGTRI/ D(9), KHI(5), KS(30), P(5) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (CONSTS(4),DEGRA),(ECPT(1),NECPT(1)), 1 (VQ1(1),ECPT(15)),(VQ2(1),ECPT(19)), 2 (VQ3(1),ECPT(23)),(VQ4(1),ECPT(27)), 3 (REQUIV(1),R(1,1)) DATA M / 2,4,1, 3,1,2, 4,2,3, 1,3,4 / C THETA = ECPT(6)*DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) C C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X5) FOR QUADRILATERAL PLATE. C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX C DO 10 I = 1,10 10 REQUIV(I) = 0.0 C C SHIFT ECPT UP TO MATCH STRBS1 FOR CERTAIN VARIABLES. C DO 30 I = 6,12 30 ECPT(I) = ECPT(I+1) C DO 40 I = 1,3 D1(I) = VQ3(I) - VQ1(I) D2(I) = VQ4(I) - VQ2(I) 40 A1(I) = VQ2(I) - VQ1(I) C C NON-NORMALIZED K-VECTOR = D1 CROSS D2 C KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3) KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1) KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2) C C NORMALIZE K-VECTOR C TEMP = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2) DO 50 I = 1,3 50 KVECT(I) = KVECT(I)/TEMP C C COMPUTE H = (A1 DOT KVECT)/2 C TEMP = (A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3))/2.0 C C I-VECTOR = (A1) - H*(KVECT) NON-NORMALIZED C DO 60 I = 1,3 60 IVECT(I) = A1(I) - TEMP*KVECT(I) C C NORMALIZE I-VECTOR C TEMP = SQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2) DO 70 I = 1,3 70 IVECT(I) = IVECT(I)/TEMP C C J-VECTOR = K X I VECTORS C JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3) JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1) JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2) C C NORMALIZE J VECTOR TO MAKE SURE C TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2) DO 80 I = 1,3 80 JVECT(I) = JVECT(I)/TEMP C C X3 GOES INTO R(1,3) = D1 DOT IVECT C R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3) C C X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3) C R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3) R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3) C C X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4) C R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2) R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3) C C STRESS CALCULATION POINT WHICH IS THE DIAGONALS INTERSECTION. C FTEMP = R(1,3)*R(2,4) + R(2,3)*(R(1,2)-R(1,4)) IF (FTEMP .EQ. 0.0) CALL MESAGE (-30,26,ECPT(1)) R(1,5) = R(1,2)*R(1,3)*R(2,4)/FTEMP R(2,5) = R(1,2)*R(2,3)*R(2,4)/FTEMP C C CHECK OF 4 POINTS FOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES. C IF (R(2,3).LE.0.0 .OR. R(2,4).LE.0.0) GO TO 90 TEMP = R(1,2) - (R(1,2)-R(1,3))*R(2,4)/R(2,3) IF (R(1,4) .GE. TEMP) GO TO 90 TEMP = R(2,3)*R(1,4)/R(2,4) IF (R(1,3) .GT. TEMP) GO TO 100 90 CALL MESAGE (-30,35,ECPT(1)) C C SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT... C C COMPUTE SUB-TRIANGLE COORDINATES C CALL BASIC BENDING ROUTINE FOR ALL SUB-TRIANGLES. C 100 ELTEMP = ECPT(30) DO 110 I = 1,60 110 SSUM(I) = 0.0 C DO 160 J = 1,4 KM = 3*J - 3 SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 120 I = 1,2 VV1(I) = R(I,SUBSCB) - R(I,SUBSCA) 120 VV2(I) = R(I,SUBSCC) - R(I,SUBSCA) XSUBB = SQRT(VV1(1)**2 + VV1(2)**2) U1 = VV1(1)/XSUBB U2 = VV1(2)/XSUBB XSUBC = U1*VV2(1) + VV2(2)*U2 YSUBC = U1*VV2(2) - VV2(1)*U2 C XC = SQRT((R(1,SUBSCA)-R(1,5))**2 + (R(2,SUBSCA)-R(2,5))**2) YC = 0.0 C SINTH = SINANG*U1 - COSANG*U2 COSTH = COSANG*U1 + SINANG*U2 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR C TRIANGLE -J- C CALL TRBSC (1,TI(1)) C C RETURNING FROM STRBS1 THE FOLLOWING QUANTITIES ARE AT HAND. C C S , S , S , EACH 5X3. 45 WORDS STORED IN A(1) THRU A(45) C A B C C C COMPUTE KHI (5X1) AFTER THE FIRST SUB-TRIANGLE ONLY. C E C C NFACTOR FOR THE QUADRILATERAL IS 2.0 C IF (J .NE. 1) GO TO 125 C C SINTH = SINANG C COSTH = COSANG C STRESS = 0 C MATID = NECPT(6) C INFLAG = 2 C CALL MAT (NECPT(1)) C CALL SSGKHI (TI(1),TI(1),2.0) C C SET UP OF T-MATRIX C 125 T(1) = 1.0 T(2) = 0.0 T(3) = 0.0 T(4) = 0.0 T(5) = U1 T(6) = U2 T(7) = 0.0 T(8) =-U2 T(9) = U1 C C SET UP V-MATRIX PER FMMS 51-A C V( 1) = U1*U1*0.250 V( 2) = U2*U2*0.250 V(11) = U1*U2*0.250 V( 3) =-V(11)*2.0 V( 4) = 0.0 V( 5) = 0.0 V( 6) = V(2) V( 7) = V(1) V( 8) =-V(3) V( 9) = 0.0 V(10) = 0.0 V(12) =-V(11) V(13) = V(1) - V(2) V(14) = 0.0 V(15) = 0.0 V(16) = 0.0 V(17) = 0.0 V(18) = 0.0 V(19) = U1*0.250 V(20) =-U2*0.250 V(21) = 0.0 V(22) = 0.0 V(23) = 0.0 V(24) =-V(20) V(25) = V(19) C C ADD IN S , S , S TO THE 4 5X3 SSUM MATRICES C A B C C DO 150 I = 1,3 CALL GMMATS (V,5,5,0, A(15*I-14),5,3,0, TEMP15) CALL GMMATS (TEMP15,5,3,0, T,3,3,0, PROD15) C C POINTER TO SSUM MATRIX C NPOINT = KM + I NPOINT = 15*M(NPOINT) - 15 DO 140 K = 1,15 NSUBC = NPOINT + K 140 SSUM(NSUBC) = SSUM(NSUBC) + PROD15(K) 150 CONTINUE C 160 CONTINUE C C FILL E-MATRIX C DO 170 I = 1,18 170 E( I) = 0.0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C DO 210 I = 1,4 C C DO WE NEED TRANSFORMATION T C I NSUBC = 4*I + 10 IF (NECPT(NSUBC) .EQ. 0) GO TO 180 CALL GBTRAN (NECPT(NSUBC), NECPT(NSUBC+1), T(1)) CALL GMMATS (T,3,3,1, E (1),3,3,0, TITE( 1)) CALL GMMATS (T,3,3,1, E(10),3,3,0, TITE(10)) GO TO 200 C 180 DO 190 K = 1,18 190 TITE(K) = E(K) C 200 CALL GMMATS (SSUM(15*I-14),5,3,0, TITE,6,3,1, KS(1)) C C COMPUTE LOAD VECTOR AND INSERT IT IN OPEN CORE C CALL GMMATS (KS(1),5,6,1, KHI(1),5,1,0, P(1)) K = NECPT(I+1) - 1 DO 225 L = 1,6 K = K + 1 225 Z(K) = Z(K) + P(L) C 210 CONTINUE RETURN END ================================================ FILE: mis/qhbdy.f ================================================ SUBROUTINE QHBDY C***** C C THIS ROUTINE APPLIES THE LOADS DUE TO A SELECTED HEAT FLUX C LOADING CONDITION. C C DATA CARD IS... C C QHBDY SETID FLAG Q0 AF G1 G2 G3 G4 C ============================ C ABOVE FIELDS AVAILABLE TO THIS ROUTINE ONLY. C GRIDS ARE IN INTERNAL NOTATION AT THIS POINT. C***** INTEGER MAP(15) ,CARD(7) ,IGRIDS(5),SLT ,OLD ,BG INTEGER SILS(4) ,GRIDS(4) ,ORDER(4) ,SUBR(2) C REAL BGPDT(4,4) ,X(4) ,Y(4) ,Z(4) REAL DATA4(4) ,P(4) ,R12(3) ,R13(3) ,LENGTH C COMMON /CONDAS/ CONSTS(5) COMMON/LOADX / LC, SLT, BG, OLD, N(12), IFM COMMON/ZZZZZZ/ CORE(1) C EQUIVALENCE ( CONSTS(1) , PI ) EQUIVALENCE(X(1),BGPDT(1,2)), (Y(1),BGPDT(1,3)), (Z(1),BGPDT(1,4)) EQUIVALENCE(IFLAG,CARD(1)), (Q0,CARD(2)), (AF,CARD(3)) EQUIVALENCE(GRIDS(1),CARD(4),SILS(1)) C DATA MAP/ 1,2,3, 1,2,4, 2,3,1, 3,4,2, 4,1,3 / DATA IGRIDS/ 1,2,2,3,4 / DATA SUBR/ 4HQHBD,4HY / C***** C READ AND PROCESS ONE QHBDY IMAGE PER CALL TO THIS ROUTINE. C***** CALL READ(*902,*903,SLT,CARD(1),7,0,FLAG) NGRIDS = IGRIDS(IFLAG) C***** C OBTAIN A GRID (INTERNAL) POINT SORT VECTOR SO AS TO CALL FOR BGPDT C DATA EFFICIENTLY. C***** IF( NGRIDS .LE. 1 ) GO TO 35 CALL PERMUT( GRIDS(1), ORDER(1), NGRIDS, OLD ) GO TO 38 35 ORDER(1) = 1 C***** C PICK UP BGPDT FOR THE 1 TO 4 POINTS AND OBTAIN THE SILS. C***** 38 DO 40 I = 1,NGRIDS L = ORDER(I) CALL FNDPNT( DATA4(1), GRIDS(L) ) BGPDT(L,1) = DATA4(1) BGPDT(L,2) = DATA4(2) BGPDT(L,3) = DATA4(3) BGPDT(L,4) = DATA4(4) CALL FNDSIL( GRIDS(L) ) 40 CONTINUE C***** C ALL DATA IS AT HAND FOR LOAD CALCULATIONS C***** AF = AF * Q0 GO TO (100,200,300,400,500),IFLAG C***** C IFLAG=1 A POINT... C***** 100 P(1) = AF GO TO 700 C***** C IFLAG=2 A LINE... C***** 200 LENGTH = SQRT( (X(2)-X(1))**2 + (Y(2)-Y(1))**2 + (Z(2)-Z(1))**2 ) P(1) = AF * LENGTH * 0.50E0 P(2) = P(1) GO TO 700 C***** C IFLAG=3 A LINE OF REVOLUTION... C***** 300 FACT = PI*Q0*SQRT( (X(2)-X(1))**2 + (Z(2)-Z(1))**2 ) / 3.0E0 P(1) = FACT * (2.0E0*X(1) + X(2)) P(2) = FACT * (X(1) + 2.0E0*X(2)) GO TO 700 C***** C IFLAG=4 A TRIANGLE... C***** 400 FACT = Q0 / 6.0E0 IMAP = 1 NMAP = 3 GO TO 600 C***** C IFLAG=5 A QUADRILATERAL... C***** 500 FACT = Q0 / 12.0E0 IMAP = 4 NMAP = 15 C***** C MAP 1 OR 4 TRIANGLES INTO 3 OR 4 POINTS. C***** 600 P(1) = 0.0E0 P(2) = 0.0E0 P(3) = 0.0E0 P(4) = 0.0E0 DO 650 I = IMAP,NMAP,3 I1 = MAP(I) I2 = MAP(I+1) I3 = MAP(I+2) R12(1) = X(I2) - X(I1) R12(2) = Y(I2) - Y(I1) R12(3) = Z(I2) - Z(I1) R13(1) = X(I3) - X(I1) R13(2) = Y(I3) - Y(I1) R13(3) = Z(I3) - Z(I1) CALL SAXB( R12(1), R13(1), R12(1) ) FACTX= FACT * SQRT( R12(1)**2 + R12(2)**2 + R12(3)**2 ) P(I1) = P(I1) + FACTX P(I2) = P(I2) + FACTX P(I3) = P(I3) + FACTX 650 CONTINUE C***** C LOAD VALUES COMPLETE. C***** 700 DO 800 I = 1,NGRIDS ISIL = SILS(I) CORE(ISIL ) = CORE(ISIL ) + P(I) 800 CONTINUE RETURN C***** C END OF FILE OR END OF RECORD HIT ERROR. C***** 902 CALL MESAGE(-2,SLT,SUBR) 903 CALL MESAGE(-3,SLT,SUBR) GO TO 902 END ================================================ FILE: mis/qloadl.f ================================================ SUBROUTINE QLOADL (IOPT) C C THIS ROUTINE CALCULATES THERMAL LOADS FROM QBDY1, QBDY2, OR C QVECT DATA. THE INPUT DATA, READ FROM FILE SLT, IS - C C ENTRY QBDY1 QBDY2 QVECT C ----- ----- ----- ----- C 1 TYPE EL.ID. SIL1 C 2 EL.ID. TYPE SIL2 C 3 SIL1 SIL1 SIL3 C 4 SIL2 SIL2 SIL4 C 5 SIL3 SIL3 EL.ID. C 6 SIL4 SIL4 TYPE C 7-10 C1,C2,C3,C4 -SAME -SAME C 11-13 E VECTOR NONE NONE C 14-16 V1 VECTOR * * C 17-19 V2 VECTOR * * C LOGICAL NOGO,TRANST INTEGER SLT,OLD,BG,SUBR(2),IGRIDS(6),TYPE,SILS(4),IE(3), 1 MINUS(2) REAL E(3),COEF(4),V1(3),V2(3),CARD(19) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /LOADX / LC,SLT,BG,OLD,NXN(12),IFM,NYN(2),ILID COMMON /ZZZZZZ/ CORE(1) COMMON /SYSTEM/ SYSBUF,IOUT COMMON /QVECT / ITRAN,IQVECT EQUIVALENCE (TYPE,CARD(1)),(ID,CARD(2)),(SILS(1),CARD(3)), 1 (COEF(1),CARD(7)),(E(1),IE(1),CARD(11)), 2 (V1(1),CARD(14)),(V2(1),CARD(17)) DATA IGRIDS/ 1,2,2,3,4,2 / DATA SUBR / 4HQLOA,4HDL / DATA ITRAN1, IOLD,MINUS / 4HTRAN,0,-1,-1 / C TRANST = .FALSE. IF (ITRAN .EQ. ITRAN1) TRANST = .TRUE. NWORDS = 10 IF (IOPT .EQ. 3) NWORDS = 19 C CALL READ (*100,*110,SLT,CARD(1),NWORDS,0,FLAG) C C REARRANGE CARD ARRAY FOR UNIFORMITY. C GO TO (20,10,40), IOPT 10 DOT = CARD(1) CARD(1) = CARD(2) CARD(2) = DOT 20 N = IGRIDS(TYPE) C C QBDY1 OR QBDY2 C DO 30 I = 1,N ISIL = SILS(I) CORE(ISIL) = CORE(ISIL) + COEF(I) 30 CONTINUE RETURN C C QVECT LOADS C 40 DOT = CARD(5) DOT2 = CARD(6) CARD(6) = CARD(4) CARD(5) = CARD(3) CARD(4) = CARD(2) CARD(3) = CARD(1) CARD(2) = DOT CARD(1) = DOT2 N = IGRIDS(TYPE) DOT = 0.0 INT = 0 IF (TYPE .EQ. 6) GO TO 70 DO 50 I = 1,3 IF (NUMTYP(IE(I)) .EQ. 1) GO TO 51 DOT = DOT + E(I)*V1(I) GO TO 50 51 INT = INT + 1 50 CONTINUE IF (INT .GT. 0) GO TO 90 IF (DOT .GE. 0.0) RETURN DO 60 I = 1,N ISIL = SILS(I) 60 CORE(ISIL) = CORE(ISIL) - DOT*COEF(I) RETURN C C QVECT ON ELCYL ELEMENT C 70 DOT2 = 0.0 DO 80 I = 1,3 IF (NUMTYP(IE(I)) .EQ. 1) GO TO 81 DOT = DOT + E(I)*V1(I) DOT2 = DOT2 + E(I)*V2(I) GO TO 80 81 INT = INT + 1 80 CONTINUE IF (INT .GT. 0) GO TO 90 COEF(1) = COEF(1)*SQRT(DOT**2 + DOT2**2) COEF(2) = COEF(1) ISIL = SILS(1) CORE(ISIL) = CORE(ISIL) + COEF(1) ISIL = SILS(2) CORE(ISIL) = CORE(ISIL) + COEF(2) RETURN C C GOES HERE IF INTEGERS ARE FOUND IN E VECTOR C 90 IF (.NOT. TRANST) GO TO 120 C C BUILD QVECT RECORDS FOR TRANSIENT C IF (ILID .EQ. IOLD) GO TO 91 IF (IOLD .EQ. 0) GO TO 92 C C TERMINATE OLD RECORD C CALL WRITE (IQVECT,MINUS,2,0) 92 IOLD = ILID CALL WRITE (IQVECT,ILID,1,0) C C DUMP DATA ON IQVECT C 91 CALL WRITE (IQVECT,N,1,0) DO 93 I = 1,N CALL WRITE (IQVECT,SILS(I),1,0) CALL WRITE (IQVECT,COEF(I),1,0) 93 CONTINUE CALL WRITE (IQVECT,IE,3,0) CALL WRITE (IQVECT,V1,6,0) RETURN C 100 CALL MESAGE (-2,SLT,SUBR) 110 CALL MESAGE (-3,SLT,SUBR) 120 NOGO = .TRUE. WRITE (IOUT,130) UFM,ID 130 FORMAT (A23,' 3080, ERROR IN QVECT DATA, INTEGER VALUES SPECIFIED' 1, ' FOR THERMAL FLUX VECTOR COMPONENTS', /30X, 2 'IN A NON-TRANSIENT ANALYSIS.', /30X,'ELEMENT ID = ',I9) CALL MESAGE (-61,0,SUBR) RETURN END ================================================ FILE: mis/qparam.f ================================================ SUBROUTINE QPARAM C C PARAM PERFORMS THE FOLLOWING OPERATIONS ON PARAMETERS-- C 1. OUT = IN1 .AND. IN2 C 2. OUT = IN1 .OR . IN2 C 3. OUT = IN1 + IN2 C 4. OUT = IN1 - IN2 C 5. OUT = IN1 * IN2 C 6. OUT = IN1 / IN2 C 7. OUT = .NOT. IN1 C 8. OUT = IN1 .IMP. IN2 C 9. STORE VALUE OF OUT IN VPS. C 10. OUT = VALUE OF PRECISION CELL FROM /SYSTEM/ C 11. OUT = CURRENT TIME C 12. OUT = TIME TO GO C 13. OUT = SYSTEM(IN1) = IN2 C 14. OUT = SYSTEM(25) WITH BITS IN1 THRU IN2 TURNED ON OR OFF. C 15. OUT = SYSTEM CELL IN1. C 16. SAVE AND RESTORES SENSE SWITCHES C 17. SETS SENSE SWITCHES C 18. SAVE AND RESTORES SYSTEM CELLS C 19. OUT = -1 IF IN1 .EQ. IN2, OUT = +1 OTHERWISE. C 20. OUT = -1 IF IN1 .GT. IN2, OUT = +1 OTHERWISE. C 21. OUT = -1 IF IN1 .LT. IN2, OUT = +1 OTHERWISE. C 22. OUT = -1 IF IN1 .LE. IN2, OUT = +1 OTHERWISE. C 23. OUT = -1 IF IN1 .GE. IN2, OUT = +1 OTHERWISE. C 24. OUT = -1 IF IN1 .NE. IN2, OUT = +1 OTHERWISE. C 25. UNDEFINED. C 26. UNDEFINED. C 27. UNDEFINED. C 28. UNDEFINED. C 29. UNDEFINED. C 30. UNDEFINED. C EXTERNAL LSHIFT,ORF,ANDF INTEGER SWITCH,OFF,ORF,XORF,OP,OPCODE,OUT,OUTTAP,ANDF,VPS, 1 OSCAR DIMENSION OPCODE(30),SWITCH(2) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / OP(2),OUT,IN1,IN2 COMMON /SYSTEM/ KSYSTM(80) COMMON /OSCENT/ OSCAR(16) COMMON /XVPS / VPS(1) EQUIVALENCE (KSYSTM( 2),OUTTAP),(KSYSTM(23),LSYSTM), 1 (KSYSTM(55),IPREC ),(KSYSTM(79),SWITCH(1)) DATA OPCODE/ 4HAND ,4HOR ,4HADD ,4HSUB ,4HMPY 1 , 4HDIV ,4HNOT ,4HIMPL,4HNOP ,4HPREC 2 , 4HKLOC,4HTMTO,4HSYST,4HDIAG,4HSYSR 3 , 4HSSSR,4HSSST,4HSTSR,4HEQ ,4HGT 4 , 4HLT ,4HLE ,4HGE ,4HNE ,4H**** 5 , 4H****,4H****,4H****,4H****,4H**** Z / DATA OFF / 4HOFF / C C BRANCH ON OPERATION CODE. C DO 5 I = 1,30 IF (OP(1) .EQ. OPCODE(I)) GO TO ( 1 10, 20, 30, 40, 50, 60, 70, 80, 90,100, 2 110,120,130,140,150,160,170,180,190,200, 3 210,220,230,240,250,260,270,280,290,300), I 5 CONTINUE GO TO 990 C C .AND. C 10 OUT = -1 IF (IN1.GE.0 .OR. IN2.GE.0) OUT = +1 GO TO 900 C C .OR. C 20 OUT = +1 IF (IN1.LT.0 .OR . IN2.LT.0) OUT = -1 GO TO 900 C C ADD C 30 OUT = IN1 + IN2 GO TO 900 C C SUB C 40 OUT = IN1 - IN2 GO TO 900 C C MPY C 50 OUT = IN1*IN2 GO TO 900 C C DIV C 60 OUT = IN1/IN2 GO TO 900 C C NOT C 70 OUT = -IN1 GO TO 900 C C IMPLY C 80 OUT = +1 IF (IN1.GE.0 .OR. IN2.LT.0) OUT = -1 GO TO 900 C C NOP C 90 GO TO 900 C C PROVIDE PRECISION FROM /SYSTEM/. C 100 OUT = IPREC GO TO 900 C C PROVIDE CURRENT TIME C 110 CALL KLOCK (OUT) GO TO 900 C C PROVIDE TIME-TO-GO C 120 CALL TMTOGO (OUT) GO TO 900 C C MODIFY SYSTEM CELL. C 130 OUT = IN2 KSYSTM(IN1) = IN2 IF (IN1.LE.0 .OR. IN1.GT.LSYSTM) WRITE (OUTTAP,135) UWM,IN1 135 FORMAT (A25,' 2317, PARAM HAS STORED OUTSIDE DEFINED RANGE OF ', 1 'COMMON BLOCK /SYSTEM/.', /32X,'INDEX VALUE =',I20) GO TO 900 C C TURN DIAG SWITCH ON OR OFF. C 140 IF (IN2 .LT. IN1) IN2 = IN1 DO 145 I = IN1,IN2 IF (I .GT. 31) GO TO 142 OUT = LSHIFT(1,I-1) SWITCH(1) = ORF(SWITCH(1),OUT) IF (OP(2) .EQ. OFF) SWITCH(1) = SWITCH(1) - OUT GO TO 145 142 OUT = I - 31 OUT = LSHIFT(1,OUT-1) SWITCH(2) = ORF(SWITCH(2),OUT) IF (OP(2) .EQ. OFF) SWITCH(2) = SWITCH(2) - OUT OUT = OUT + 31 145 CONTINUE OUT = SWITCH(1) IF (I .GT. 31) OUT = SWITCH(2) GO TO 900 C C RETURN VALUE OF IN1-TH WORD OF /SYSTEM/. C 150 OUT = KSYSTM(IN1) GO TO 900 C C SAVE OR RESTORE SSWITCH WORD C 160 IF (IN1 .LT. 0) GO TO 165 IF (IN1 .GT. 31) GO TO 161 OUT = SWITCH(1) GO TO 900 161 CONTINUE OUT = SWITCH(2) GO TO 900 165 IF (IABS(IN1) .GT. 31) GO TO 166 SWITCH(1) = OUT GO TO 900 166 SWITCH(2) = OUT GO TO 900 C C TURN SSWITCH ON OR OFF C 170 IF (OUT .EQ. 0) GO TO 900 IF (OUT .GT. 0) GO TO 175 IF (IABS(OUT) .GT. 31) GO TO 171 MASK = LSHIFT(1,IABS(OUT)-1) SWITCH(1) = XORF(MASK,ORF(MASK,SWITCH(1))) GO TO 900 171 CONTINUE OUT = OUT + 31 MASK = LSHIFT(1,IABS(OUT)-1) SWITCH(2) = XORF(MASK,ORF(MASK,SWITCH(2))) OUT = OUT - 31 GO TO 900 175 CONTINUE IF (OUT .GT. 31) GO TO 176 SWITCH(1) = ORF(LSHIFT(1,OUT-1),SWITCH(1)) GO TO 900 176 CONTINUE OUT = OUT - 31 SWITCH(2) = ORF(LSHIFT(1,OUT-1),SWITCH(2)) OUT = OUT + 31 GO TO 900 C C SAVE OR RESTORE A CELL OF SYSTEM C C SAVE C 180 CONTINUE IF (IN1 .LT. 0) GO TO 185 OUT = KSYSTM(IN1) GO TO 900 C C RESTORE C 185 IN1 = IABS(IN1) KSYSTM(IN1) = OUT GO TO 900 C C ARITHMETIC RELATIONAL OPERATORS. C 190 IF (IN1-IN2) 191,192,191 191 OUT = +1 GO TO 900 192 OUT = -1 GO TO 900 200 IF (IN1-IN2) 191,191,192 210 IF (IN1-IN2) 192,191,191 220 IF (IN1-IN2) 192,192,191 230 IF (IN1-IN2) 191,192,192 240 IF (IN1-IN2) 192,191,192 C C UNDEFINED. C 250 GO TO 900 C C UNDEFINED. C 260 GO TO 900 C C UNDEFINED. C 270 GO TO 900 C C UNDEFINED. C 280 GO TO 900 C C UNDEFINED. C 290 GO TO 900 C C UNDEFINED. C 300 GO TO 900 C C SAVE OUT IN THE VPS. C 900 I = ANDF(OSCAR(16),65535) VPS(I) = OUT RETURN C C OPERATION CODE NOT DEFINED-- WRITE MESSAGE. C 990 WRITE (OUTTAP,998) UFM,OP(1),OP(2) 998 FORMAT (A23,' 2024, OPERATION CODE ',2A4,' NOT DEFINED FOR ', 1 'MODULE PARAM.') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/qparmd.f ================================================ SUBROUTINE QPARMD C C MODULE PARAMD PERFORMS THE FOLLOW OP ON PARAMETERS IN DOUBLE C PRECISION C (REFERENCE - MODULE PARAMR AND SUBROUTINE QPARMR) C C DMAP C PARAMD / /C,N,OP/ V,N,OUTD/V,N,IND1/V,N,IND2/ C V,N,OUTC/V,N,INC1/V,N,INC2/V,N,FLAG $ C C OP COMPUTE C -- ------------------------------------------- C BY DEFAULT FLAG = 0 C 1 ADD OUTD = IND1 + IND2 C 2 SUB OUTD = IND1 - IND2 C 3 MPY OUTD = IND1 * IND2 C 4 DIV OUTD = IND1 / IND2 (IF IND2 = 0, FLAG IS SET TO +1) C 5 NOP RETURN C 6 SQRT OUTD = DSQRT(IND1) C 7 SIN OUTD = DSIN(IND1) WHERE IND1 IS IN RADIANS C 8 COS OUTD = DCOS(IND1) WHERE IND1 IS IN RADIANS C 9 ABS OUTD = DABS(IND1) C 10 EXP OUTD = DEXP(IND1) C 11 TAN OUTD = DTAN(IND1) WHERE IND1 IS IN RADIANS C 12 ADDC OUTC = INC1 + INC2 C 13 SUBC OUTC = INC1 - INC2 C 14 MPYC OUTC = INC1 * INC2 C 15 DIVC OUTC = INC1 / INC2 (IF INC2 = 0, FLAG IS SET TO +1) C 16 COMPLEX OUTC = (IND1,IND2) C 17 CSQRT OUTC = DCSQRT(INC1) C 18 NORM OUTD = DSQRT(OUTC(1)**2 + OUTC(2)**2) C 19 REAL IND1 = OUTC(1), IND2 = OUTC(2) C 20 POWER OUTD = IND1**IND2 C 21 CONJ OUTC = DCONJG(INC1) C 22 EQ FLAG =-1 IF IND1 COMPARES WITH IND2 C 23 GT FLAG =-1 IF IND1 IS GT IND2 C 24 GE FLAG =-1 IF IND1 IS GE IND2 C 25 LT FLAG =-1 IF IND1 IS LT IND2 C 26 LE FLAG =-1 IF IND1 IS LE IND2 C 27 NE FLAG =-1 IF IND1 IS NE IND2 C 28 LOG OUTD = DLOG10(IND1) C 29 LN OUTD = DLOG(IND1) C 30 FIX FLAG = OUTD C 31 FLOAT OUTD = FLOAT(FLAG) C C NEW OP CODE ADDED IN THIS NEW VERSION, 12/1988 - C C 32 ERR IF FLAG IS 0, SYSTEM NOGO FLAG IS SET TO ZERO C IF FLAG IS NON-ZERO, JOB TERMINATED IF ANY PREVIOUS C PARAMD (OR PARAMR) CONTAINS NON-FATAL ERROR(S) C LOGICAL PRT INTEGER OP,OPCODE(50),FLAG,IVPS(1),NAME(2),IL(8),ILX(8), 1 NAM(2),BLNK REAL TEMP(2) DOUBLE PRECISION OUTD,IND1,IND2,OUTC,INC1,INC2,DENOM,TEMPD CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / OP(2),OUTD,IND1,IND2,OUTC(2),INC1(2),INC2(2),FLAG COMMON /XVPS / VPS(1) COMMON /ILXXD / IL1,IL2,IL3,IL4,IL5,IL6,IL7,IL8 COMMON /SYSTEM/ IBUF,NOUT,NOGO,DUMMY(33),KSYS37 EQUIVALENCE (VPS(1),IVPS(1)), (TEMPD,TEMP(1)), (IL,IL1) DATA NAME / 4HQPAR,4HMD / ,IFIRST / 15 / DATA OPCODE / 4HADD ,4HSUB ,4HMPY ,4HDIV ,4HNOP , 1 4HSQRT,4HSIN ,4HCOS ,4HABS ,4HEXP , 2 4HTAN ,4HADDC,4HSUBC,4HMPYC,4HDIVC, 3 4HCOMP,4HCSQR,4HNORM,4HREAL,4HPOWE, 4 4HCONJ,4HEQ ,4HGT ,4HGE ,4HLT , 5 4HLE ,4HNE ,4HLOG ,4HLN ,4HFIX , 6 4HFLOA,4HERR ,4H ,4H ,4H , 7 4H ,4H ,4H ,4H ,4H , 8 4H ,4H ,4H ,4H ,4H , 9 4H ,4H ,4H ,4H ,4H / DATA ILX / 4H1ST ,4H2ND ,4H3RD ,4H4TH ,4H5TH , 1 4H6TH ,4H7TH ,4H8TH / DATA PARM,NAM / 4HPARM,4H/PAR,3HAMD/,BLNK /4H / C C SUPPRESS ALL PARAMETER CHECK MESSAGES IF DIAG 37 IS ON C CALL SSWTCH (37,I) PRT = I .EQ. 0 IF (PRT) NAM(1) = BLNK IF (PRT) NAM(2) = BLNK C C COMPUTE VPS INDEXES AND PARAMETER NAMES C DO 2 I = 2,8 CALL FNDPAR (-I,IL(I)) 2 CONTINUE IF (.NOT.PRT) GO TO 4 CALL PAGE2 (IFIRST) IFIRST = 6 WRITE (NOUT,3) UIM,OP 3 FORMAT (A29,' FROM PARAMD MODULE - OP CODE = ',2A4, /5X, 1 '(ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37)') C C BRANCH ON OPERATION CODE C 4 IFLAG = FLAG FLAG = 0 IERR = 0 C DO 5 IOP = 1,32 IF (OP(1) .EQ. OPCODE(IOP)) GO TO 1 ( 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 2 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 3 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 4 310, 320 ), IOP 5 CONTINUE WRITE (NOUT,6) OP(1),NAM 6 FORMAT (22X,'UNRECOGNIZABLE OP CODE = ',A4,' (INPUT ERROR) ',2A4) CALL MESAGE (-7,0,NAME) C C ******* C D.P. REAL NUMBER FUNCTIONS C ******* C C ADD C 10 OUTD = IND1 + IND2 GO TO 600 C C SUBTRACT C 20 OUTD = IND1 - IND2 GO TO 600 C C MULTIPLY C 30 OUTD = IND1*IND2 GO TO 600 C C DIVIDE C 40 OUTD = 0.D+0 IF (IND2 .EQ. 0.D+0) GO TO 45 OUTD = IND1/IND2 GO TO 600 45 WRITE (NOUT,47) NAM 47 FORMAT (5X,'ERROR - DIVIDED BY ZERO ',2A4) IERR = 1 FLAG =+1 IF (IL8 .LE. 0) GO TO 730 IVPS(IL8) = FLAG I = IL8 - 3 IF (PRT) WRITE (NOUT,48) IVPS(I),IVPS(I+1),FLAG 48 FORMAT (22X,2A4,2H =,I10,' (OUTPUT)') GO TO 730 C C NOP C 50 RETURN C C SQUARE ROOT C 60 IF (IND1 .LT. 0.D+0) GO TO 65 OUTD = DSQRT(IND1) GO TO 650 65 WRITE (NOUT,67) NAM 67 FORMAT (5X,'ERROR - OPERATING ON A NEGATIVE NUMBER ',2A4) OUTD = 0.D+0 IERR = 1 GO TO 650 C C SINE C 70 OUTD = DSIN(IND1) GO TO 650 C C COSINE C 80 OUTD = DCOS(IND1) GO TO 650 C C ABSOLUTE VALUE C 90 OUTD = DABS(IND1) GO TO 650 C C EXPONENTIAL C 100 OUTD = DEXP(IND1) GO TO 650 C C TANGENT C 110 OUTD = DTAN(IND1) GO TO 650 C C NORM C 180 OUTD = DSQRT(OUTC(1)**2 + OUTC(2)**2) GO TO 690 C C POWER C 200 OUTD = IND1**IND2 GO TO 600 C C LOG C 280 IF (IND1 .LT. 0.D+0) GO TO 65 OUTD = DLOG10(IND1) GO TO 650 C C NATURAL LOG C 290 IF (IND1 .LT. 0.D+0) GO TO 65 OUTD = DLOG(IND1) GO TO 650 C C FLOAT C 310 OUTD = IFLAG GO TO 670 C C ERR C 320 IF (IFLAG.NE.0 .AND. KSYS37.NE.0) GO TO 970 KSYS37 = 0 NOGO = 0 IF (PRT) WRITE (NOUT,325) 325 FORMAT (5X,'SYSTEM NOGO FLAG IS RESET TO INTEGER ZERO',/) GO TO 990 C C ******* C COMPLEX FUNCTIONS C ******* C C ADD COMPLEX C 120 OUTC(1) = INC1(1) + INC2(1) OUTC(2) = INC1(2) + INC2(2) GO TO 730 C C SUBTRACT COMPLEX C 130 OUTC(1) = INC1(1) - INC2(1) OUTC(2) = INC1(2) - INC2(2) GO TO 730 C C MULTIPLY COMPLEX C 140 OUTC(1) = INC1(1)*INC2(1) - INC1(2)*INC2(2) OUTC(2) = INC1(1)*INC2(2) + INC1(2)*INC2(1) GO TO 730 C C DIVIDE COMPLEX C 150 DENOM = INC2(1)**2 + INC2(2)**2 IF (DENOM .EQ. 0.D+0) GO TO 155 OUTC(1) = (INC1(1)*INC2(1) + INC1(2)*INC2(2))/DENOM OUTC(2) = (INC1(2)*INC2(1) - INC1(1)*INC2(2))/DENOM GO TO 730 155 OUTC(1) = 0.D+0 OUTC(2) = 0.D+0 GO TO 45 C C COMPLEX C 160 OUTC(1) = IND1 OUTC(2) = IND2 GO TO 710 C C COMPLEX SQUARE ROOT C 170 OUTC(1) = (INC1(1)**2 + INC1(2)**2)**0.25D0 1 *DCOS(0.5D0*DATAN2(INC1(2),INC1(1))) OUTC(2) = (INC1(1)**2 + INC1(2)**2)**0.25D0 1 *DSIN(0.5D0*DATAN2(INC1(2),INC1(1))) GO TO 760 C C CONJUGATE C 210 OUTC(1) = INC1(1) OUTC(2) =-INC1(2) GO TO 760 C C REAL C 190 IND1 = OUTC(1) IND2 = OUTC(2) GO TO 770 C C EQUAL C 220 IF (IND1 .EQ. IND2) FLAG = -1 GO TO 660 C C GREATER THAN C 230 IF (IND1 .GT. IND2) FLAG = -1 GO TO 660 C C GREATER THAN OR EQUAL C 240 IF (IND1 .GE. IND2) FLAG = -1 GO TO 660 C C LESS THAN C 250 IF (IND1 .LT. IND2) FLAG = -1 GO TO 660 C C LESS THAN OR EQUAL C 260 IF (IND1 .LE. IND2) FLAG = -1 GO TO 660 C C NOT EQUAL C 270 IF (IND1 .NE. IND2) FLAG = -1 GO TO 660 C C FIX C 300 FLAG = OUTD GO TO 720 C C --------------------------------------------------- C C INPUT PARAMETER ECHO C 600 ASSIGN 620 TO IRTN3 ASSIGN 800 TO IRTN4 610 IF (.NOT.PRT) GO TO 615 I = IL3 - 3 IF (IL3 .LE. 0) WRITE (NOUT,640) ILX(3),PARM,IND1 IF (IL3 .GT. 0) WRITE (NOUT,640) IVPS(I),IVPS(I+1),IND1 615 IF (IL3 .EQ. 0) IERR = 1 GO TO IRTN3, (620,800) 620 IF (.NOT.PRT) GO TO 645 J = IL4 - 3 IF (IL4 .LE. 0) WRITE (NOUT,640) ILX(4),PARM,IND2 IF (IL4 .GT. 0) WRITE (NOUT,640) IVPS(J),IVPS(J+1),IND2 640 FORMAT (22X,2A4,3H = ,D15.8,' (INPUT)') 645 IF (IL4 .EQ. 0) IERR = 1 GO TO IRTN4, (800,880,910) C 650 ASSIGN 800 TO IRTN3 GO TO 610 C 660 ASSIGN 620 TO IRTN3 ASSIGN 910 TO IRTN4 GO TO 610 C 670 IF (.NOT.PRT) GO TO 685 I = IL8 - 3 IF (IL8 .LE. 0) WRITE (NOUT,680) ILX(8),PARM,IFLAG IF (IL8 .GT. 0) WRITE (NOUT,680) IVPS(I),IVPS(I+1),IFLAG 680 FORMAT (22X,2A4,2H =,I10,' (INPUT)') 685 IF (IL8 .EQ. 0) IERR = 1 GO TO 800 C 690 IF (.NOT.PRT) GO TO 705 I = IL5 - 3 IF (IL5 .LE. 0) WRITE (NOUT,700) ILX(5),PARM,OUTC IF (IL5 .GT. 0) WRITE (NOUT,700) IVPS(I),IVPS(I+1),OUTC 700 FORMAT (22X,2A4,4H = (,D15.8,1H,,D15.8,') (INPUT)') 705 IF (IL5 .EQ. 0) IERR = 1 GO TO 800 C 710 ASSIGN 620 TO IRTN3 ASSIGN 880 TO IRTN4 GO TO 610 C 720 IF (.NOT.PRT) GO TO 725 I = IL2 - 3 IF (IL2 .LE. 0) WRITE (NOUT,640) ILX(2),PARM,OUTD IF (IL2 .GT. 2) WRITE (NOUT,640) IVPS(I),IVPS(I+1),OUTD 725 IF (IL2 .EQ. 0) IERR = 1 GO TO 910 C 730 ASSIGN 750 TO IRTN6 740 IF (.NOT.PRT) GO TO 745 I = IL6 - 3 IF (IL6 .LE. 0) WRITE (NOUT,700) ILX(6),PARM,INC1 IF (IL6 .GT. 0) WRITE (NOUT,700) IVPS(I),IVPS(I+1),INC1 IF (IL6 .EQ. 0) IERR = 1 745 GO TO IRTN6, (750,880) 750 IF (.NOT.PRT) GO TO 755 J = IL7 - 3 IF (IL7 .LE. 0) WRITE (NOUT,700) ILX(7),PARM,INC2 IF (IL7 .GT. 0) WRITE (NOUT,700) IVPS(J),IVPS(J+1),INC2 755 IF (IL7 .EQ. 0) IERR = 1 GO TO 880 C 760 ASSIGN 880 TO IRTN6 GO TO 740 C 770 IF (.NOT.PRT) GO TO 775 I = IL5 - 3 IF (IL5 .LE. 0) WRITE (NOUT,700) ILX(5),PARM,OUTC IF (IL5 .GT. 0) WRITE (NOUT,700) IVPS(I),IVPS(I+1),OUTC 775 IF (IL5 .EQ. 0) IERR = 1 GO TO 840 C C OUTPUT PARAMETER CHECK C C SECOND PARAMETER - OUTD C 800 IF (IL2 .GT. 0) GO TO 820 WRITE (NOUT,810) ILX(2),NAM 810 FORMAT (22X,A4,'PARAMETER IS MISSING (OUTPUT ERROR) ',2A4) IERR = 1 GO TO 950 820 IF (IERR .EQ. 0) GO TO 825 TEMP(1) = VPS(IL2 ) TEMP(2) = VPS(IL2+1) OUTD = TEMPD 825 TEMPD = OUTD VPS(IL2 ) = TEMP(1) VPS(IL2+1) = TEMP(2) I = IL2 - 3 IF (PRT) WRITE (NOUT,830) IVPS(I),IVPS(I+1),OUTD 830 FORMAT (22X,2A4,3H = ,D15.8,' (OUTPUT)') GO TO 950 C C THIRD AND FOURTH PARAMETERS - IND1, IND2 C 840 IF (IL3 .GT. 0) GO TO 850 WRITE (NOUT,810) ILX(3),NAM IERR = 1 GO TO 860 850 IF (IERR .EQ. 0) GO TO 855 TEMP(1) = VPS(IL3 ) TEMP(2) = VPS(IL3+1) IND1 = TEMPD 855 TEMPD = IND1 VPS(IL3 ) = TEMP(1) VPS(IL3+1) = TEMP(2) I = IL3 - 3 IF (PRT) WRITE (NOUT,830) IVPS(I),IVPS(I+1),IND1 860 IF (IL4 .GT. 0) GO TO 870 WRITE (NOUT,810) ILX(4),NAM IERR = 1 GO TO 950 870 IF (IERR .EQ. 0) GO TO 875 TEMP(1) = VPS(IL4 ) TEMP(2) = VPS(IL4+1) IND2 = TEMPD 875 TEMPD = IND2 VPS(IL4 ) = TEMP(1) VPS(IL4+1) = TEMP(2) J = IL4 - 3 IF (PRT) WRITE (NOUT,830) IVPS(J),IVPS(J+1),IND2 GO TO 950 C C FIFTH PARAMETER - OUTC C 880 IF (IL5 .GT. 0) GO TO 890 WRITE (NOUT,810) ILX(5),NAM IERR = 1 GO TO 950 890 IF (IERR .EQ. 0) GO TO 895 TEMP(1) = VPS(IL5 ) TEMP(2) = VPS(IL5+1) OUTC(1) = TEMPD TEMP(1) = VPS(IL5+2) TEMP(2) = VPS(IL5+3) OUTC(2) = TEMPD 895 TEMPD = OUTC(1) VPS(IL5 ) = TEMP(1) VPS(IL5+1) = TEMP(2) TEMPD = OUTC(2) VPS(IL5+2) = TEMP(1) VPS(IL5+3) = TEMP(2) I = IL5 - 3 IF (PRT) WRITE (NOUT,900) IVPS(I),IVPS(I+1),OUTC 900 FORMAT (22X,2A4,4H = (,D15.8,1H,,D15.8,') (OUTPUT)') GO TO 950 C C EIGHTH PARAMETER - FLAG C 910 IF (IL8 .GT. 0) GO TO 920 WRITE (NOUT,810) ILX(8),NAM IERR = 1 GO TO 950 920 IF (IERR .EQ. 0) IVPS(IL8) = FLAG I = IL8 - 3 IF (PRT) WRITE (NOUT,930) IVPS(I),IVPS(I+1),IVPS(IL8) 930 FORMAT (22X,2A4,2H =,I12,6X,'(OUTPUT)') C 950 IF (IERR .EQ. 0) GO TO 990 WRITE (NOUT,960) UWM,NAM 960 FORMAT (A25,' - I/O ERROR, OUTPUT NOT SAVED. OUTPUT DEFAULT ', 1 'VALUE REMAINS ',2A4,/) GO TO 990 970 WRITE (NOUT,980) NAM 980 FORMAT (5X,'JOB TERMINTATED DUE TO PREVIOUS ERROR(S) ',2A4,/) CALL PEXIT 990 IF (KSYS37 .EQ. 0) KSYS37 = IERR RETURN C END ================================================ FILE: mis/qparmr.f ================================================ SUBROUTINE QPARMR C C MODULE PARAMR PERFORMS THE FOLLOW OP ON PARAMETERS IN SINGLE C PRECISION C (COMPANION MODULE PARAMD AND SUBROUTINE QPARMD) C C DMAP C PARAMR / /C,N,OP/ V,N,OUTR/V,N,IN1R/V,N,IN2R/ C V,N,OUTC/V,N,IN1C/V,N,IN2C/V,N,FLAG $ C C OP COMPUTE C -- ------------------------------------------- C BY DEFAULT FLAG = 0 C 1 ADD OUTR = IN1R + IN2R C 2 SUB OUTR = IN1R - IN2R C 3 MPY OUTR = IN1R * IN2R C 4 DIV OUTR = IN1R / IN2R (IF IN2R = 0, FLAG IS SET TO +1) C 5 NOP RETURN C 6 SQRT OUTR = SQRT(IN1R) C 7 SIN OUTR = SIN(IN1R) WHERE IN1R IS IN RADIANS C 8 COS OUTR = COS(IN1R) WHERE IN1R IS IN RADIANS C 9 ABS OUTR = ABS(IN1R) C 10 EXP OUTR = EXP(IN1R) C 11 TAN OUTR = TAN(IN1R) WHERE IN1R IS IN RADIANS C 12 ADDC OUTC = IN1C + IN2C C 13 SUBC OUTC = IN1C - IN2C C 14 MPYC OUTC = IN1C * IN2C C 15 DIVC OUTC = IN1C / IN2C (IF IN2C = 0, FLAG IS SET TO +1) C 16 COMPLEX OUTC = (IN1R,IN2R) C 17 CSQRT OUTC = CSQRT(IN1C) C 18 NORM OUTR = SQRT(OUTC(1)**2 + OUTC(2)**2) C 19 REAL IN1R = OUTC(1), IN2R = OUTC(2) C 20 POWER OUTR = IN1R**IN2R C 21 CONJ OUTC = CONJG(IN1C) C 22 EQ FLAG =-1 IF IN1R COMPARES WITH IN2R C 23 GT FLAG =-1 IF IN1R IS GT IN2R C 24 GE FLAG =-1 IF IN1R IS GE IN2R C 25 LT FLAG =-1 IF IN1R IS LT IN2R C 26 LE FLAG =-1 IF IN1R IS LE IN2R C 27 NE FLAG =-1 IF IN1R IS NE IN2R C 28 LOG OUTR = ALOG10(IN1R) C 29 LN OUTR = ALOG(IN1R) C 30 FIX FLAG = OUTR C 31 FLOAT OUTR = FLOAT(FLAG) C C NEW OP CODE ADDED IN THIS NEW VERSION, 12/1988 - C C 32 ERR IF FLAG IS 0, SYSTEM NOGO FLAG IS SET TO ZERO C IF FLAG IS NON-ZERO, JOB TERMINATED IF ANY PREVIOUS C PARAMR (OR PARAMD) CONTAINS NON-FATAL ERROR(S) C LOGICAL PRT INTEGER OP,OPCODE(50),FLAG,IVPS(1),NAME(2),IL(8),ILX(8), 1 NAM(2),BLNK REAL IN1R,IN2R,IN1C,IN2C CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / OP(2),OUTR,IN1R,IN2R,OUTC(2),IN1C(2),IN2C(2),FLAG COMMON /XVPS / VPS(1) COMMON /ILXXR / IL1,IL2,IL3,IL4,IL5,IL6,IL7,IL8 COMMON /SYSTEM/ IBUF,NOUT,NOGO,DUMMY(33),KSYS37 EQUIVALENCE (VPS(1),IVPS(1)), (IL,IL1) DATA NAME / 4HQPAR,4HMR / ,IFIRST / 15 / DATA OPCODE / 4HADD ,4HSUB ,4HMPY ,4HDIV ,4HNOP , 1 4HSQRT,4HSIN ,4HCOS ,4HABS ,4HEXP , 2 4HTAN ,4HADDC,4HSUBC,4HMPYC,4HDIVC, 3 4HCOMP,4HCSQR,4HNORM,4HREAL,4HPOWE, 4 4HCONJ,4HEQ ,4HGT ,4HGE ,4HLT , 5 4HLE ,4HNE ,4HLOG ,4HLN ,4HFIX , 6 4HFLOA,4HERR ,4H ,4H ,4H , 7 4H ,4H ,4H ,4H ,4H , 8 4H ,4H ,4H ,4H ,4H , 9 4H ,4H ,4H ,4H ,4H / DATA ILX / 4H1ST ,4H2ND ,4H3RD ,4H4TH ,4H5TH , 1 4H6TH ,4H7TH ,4H8TH / DATA PARM,NAM / 4HPARM,4H/PAR,3HAMR/,BLNK /4H / C C SUPPRESSED ALL INPUT/OUTPUT CHECK MESSAGES IF DIAG 37 IS ON C CALL SSWTCH (37,I) PRT = I .EQ. 0 IF (PRT) NAM(1) = BLNK IF (PRT) NAM(2) = BLNK C C COMPUTE VPS INDEXES AND PARAMETER NAMES C DO 2 I = 2,8 CALL FNDPAR (-I,IL(I)) 2 CONTINUE IF (.NOT.PRT) GO TO 4 CALL PAGE2 (IFIRST) IFIRST = 6 WRITE (NOUT,3) UIM,OP 3 FORMAT (A29,' FROM PARAMR MODULE - OP CODE = ',2A4, /5X, 1 '(ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)') C C BRANCH ON OPERATION CODE C 4 IFLAG = FLAG FLAG = 0 IERR = 0 C DO 5 IOP = 1,32 IF (OP(1) .EQ. OPCODE(IOP)) GO TO 1 ( 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 2 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 3 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 4 310, 320 ), IOP 5 CONTINUE WRITE (NOUT,6) OP(1),NAM 6 FORMAT (22X,'UNRECOGNIZABLE OP CODE = ',A4,' (INPUT ERROR) ',2A4) CALL MESAGE (-7,0,NAME) C C ******* C REAL NUMBER FUNCTIONS C ******* C C ADD C 10 OUTR = IN1R + IN2R GO TO 600 C C SUBTRACT C 20 OUTR = IN1R - IN2R GO TO 600 C C MULTIPLY C 30 OUTR = IN1R*IN2R GO TO 600 C C DIVIDE C 40 OUTR = 0.0 IF (IN2R .EQ. 0.D0) GO TO 45 OUTR = IN1R/IN2R GO TO 600 45 WRITE (NOUT,47) NAM 47 FORMAT (5X,'ERROR - DIVIDED BY ZERO ',2A4) IERR = 1 FLAG =+1 IF (IL8 .LE. 0) GO TO 730 IVPS(IL8) = FLAG I = IL8 - 3 WRITE (NOUT,48) IVPS(I),IVPS(I+1),FLAG,NAM 48 FORMAT (22X,2A4,2H =,I10,' (OUTPUT) ',2A4) GO TO 730 C C NOP C 50 RETURN C C SQUARE ROOT C 60 IF (IN1R .LT. 0.0) GO TO 65 OUTR = SQRT(IN1R) GO TO 650 65 WRITE (NOUT,67) NAM 67 FORMAT (5X,'ERROR - OPERATING ON A NEGATIVE NUMBER ',2A4) OUTR = 0.0 IERR = 1 GO TO 650 C C SINE C 70 OUTR = SIN(IN1R) GO TO 650 C C COSINE C 80 OUTR = COS(IN1R) GO TO 650 C C ABSOLUTE VALUE C 90 OUTR = ABS(IN1R) GO TO 650 C C EXPONENTIAL C 100 OUTR = EXP(IN1R) GO TO 650 C C TANGENT C 110 OUTR = TAN(IN1R) GO TO 650 C C NORM C 180 OUTR = SQRT(OUTC(1)**2 + OUTC(2)**2) GO TO 690 C C POWER C 200 OUTR = IN1R**IN2R GO TO 600 C C LOG C 280 IF (IN1R .LT. 0.0) GO TO 65 OUTR = ALOG10(IN1R) GO TO 650 C C NATURAL LOG C 290 IF (IN1R .LT. 0.0) GO TO 65 OUTR = ALOG(IN1R) GO TO 650 C C FLOAT C 310 OUTR = IFLAG GO TO 670 C C ERR C 320 IF (IFLAG.NE.0 .AND. KSYS37.NE.0) GO TO 970 KSYS37 = 0 NOGO = 0 IF (PRT) WRITE (NOUT,325) 325 FORMAT (5X,'SYSTEM NOGO FLAG IS RESET TO INTEGER ZERO',/) GO TO 990 C C ******* C COMPLEX FUNCTIONS C ******* C C ADD COMPLEX C 120 OUTC(1) = IN1C(1) + IN2C(1) OUTC(2) = IN1C(2) + IN2C(2) GO TO 730 C C SUBTRACT COMPLEX C 130 OUTC(1) = IN1C(1) - IN2C(1) OUTC(2) = IN1C(2) - IN2C(2) GO TO 730 C C MULTIPLY COMPLEX C 140 OUTC(1) = IN1C(1)*IN2C(1) - IN1C(2)*IN2C(2) OUTC(2) = IN1C(1)*IN2C(2) + IN1C(2)*IN2C(1) GO TO 730 C C DIVIDE COMPLEX C 150 DENOM = IN2C(1)**2 + IN2C(2)**2 IF (DENOM .EQ. 0.0) GO TO 155 OUTC(1) = (IN1C(1)*IN2C(1) + IN1C(2)*IN2C(2))/DENOM OUTC(2) = (IN1C(2)*IN2C(1) - IN1C(1)*IN2C(2))/DENOM GO TO 730 155 OUTC(1) = 0.0 OUTC(2) = 0.0 GO TO 45 C C COMPLEX C 160 OUTC(1) = IN1R OUTC(2) = IN2R GO TO 710 C C COMPLEX SQUARE ROOT C 170 OUTC(1) = (IN1C(1)**2 + IN1C(2)**2)**0.25 1 *COS(0.5*ATAN2(IN1C(2),IN1C(1))) OUTC(2) = (IN1C(1)**2 + IN1C(2)**2)**0.25 1 *SIN(0.5*ATAN2(IN1C(2),IN1C(1))) GO TO 760 C C CONJUGATE C 210 OUTC(1) = IN1C(1) OUTC(2) =-IN1C(2) GO TO 760 C C REAL C 190 IN1R = OUTC(1) IN2R = OUTC(2) GO TO 770 C C EQUAL C 220 IF (IN1R .EQ. IN2R) FLAG = -1 GO TO 660 C C GREATER THAN C 230 IF (IN1R .GT. IN2R) FLAG = -1 GO TO 660 C C GREATER THAN OR EQUAL C 240 IF (IN1R .GE. IN2R) FLAG = -1 GO TO 660 C C LESS THAN C 250 IF (IN1R .LT. IN2R) FLAG = -1 GO TO 660 C C LESS THAN OR EQUAL C 260 IF (IN1R .LE. IN2R) FLAG = -1 GO TO 660 C C NOT EQUAL C 270 IF (IN1R .NE. IN2R) FLAG = -1 GO TO 660 C C FIX C 300 FLAG = OUTR GO TO 720 C C --------------------------------------------------- C C INPUT PARAMETER ECHO C 600 ASSIGN 620 TO IRTN3 ASSIGN 800 TO IRTN4 610 IF (.NOT.PRT) GO TO 615 I = IL3 - 3 IF (IL3 .LE. 0) WRITE (NOUT,640) ILX(3),PARM,IN1R IF (IL3 .GT. 0) WRITE (NOUT,640) IVPS(I),IVPS(I+1),IN1R 615 IF (IL3 .EQ. 0) IERR = 1 GO TO IRTN3, (620,800) 620 IF (.NOT.PRT) GO TO 645 J = IL4 - 3 IF (IL4 .LE. 0) WRITE (NOUT,640) ILX(4),PARM,IN2R IF (IL4 .GT. 0) WRITE (NOUT,640) IVPS(J),IVPS(J+1),IN2R 640 FORMAT (22X,2A4,3H = ,E13.6,' (INPUT)') 645 IF (IL4 .EQ. 0) IERR = 1 GO TO IRTN4, (800,880,910) C 650 ASSIGN 800 TO IRTN3 GO TO 610 C 660 ASSIGN 620 TO IRTN3 ASSIGN 910 TO IRTN4 GO TO 610 C 670 IF (.NOT.PRT) GO TO 685 I = IL8 - 3 IF (IL8 .LE. 0) WRITE (NOUT,680) ILX(8),PARM,IFLAG IF (IL8 .GT. 0) WRITE (NOUT,680) IVPS(I),IVPS(I+1),IFLAG 680 FORMAT (22X,2A4,2H =,I10,' (INPUT)') 685 IF (IL8 .EQ. 0) IERR = 1 GO TO 800 C 690 IF (.NOT.PRT) GO TO 705 I = IL5 - 3 IF (IL5 .LE. 0) WRITE (NOUT,700) ILX(5),PARM,OUTC IF (IL5 .GT. 0) WRITE (NOUT,700) IVPS(I),IVPS(I+1),OUTC 700 FORMAT (22X,2A4,4H = (,E13.6,1H,,E13.6,') (INPUT)') 705 IF (IL5 .EQ. 0) IERR = 1 GO TO 800 C 710 ASSIGN 620 TO IRTN3 ASSIGN 880 TO IRTN4 GO TO 610 C 720 IF (.NOT.PRT) GO TO 725 I = IL2 - 3 IF (IL2 .LE. 0) WRITE (NOUT,640) ILX(2),PARM,OUTR IF (IL2 .GT. 0) WRITE (NOUT,640) IVPS(I),IVPS(I+1),OUTR 725 IF (IL2 .EQ. 0) IERR = 1 GO TO 910 C 730 ASSIGN 750 TO IRTN6 740 IF (.NOT.PRT) GO TO 745 I = IL6 - 3 IF (IL6 .LE. 0) WRITE (NOUT,700) ILX(6),PARM,IN1C IF (IL6 .GT. 0) WRITE (NOUT,700) IVPS(I),IVPS(I+1),IN1C 745 IF (IL6 .EQ. 0) IERR = 1 GO TO IRTN6, (750,880) 750 IF (.NOT.PRT) GO TO 755 J = IL7 - 3 IF (IL7 .LE. 0) WRITE (NOUT,700) ILX(7),PARM,IN2C IF (IL7 .GT. 0) WRITE (NOUT,700) IVPS(J),IVPS(J+1),IN2C 755 IF (IL7 .EQ. 0) IERR = 1 GO TO 880 C 760 ASSIGN 880 TO IRTN6 GO TO 740 C 770 IF (.NOT.PRT) GO TO 775 I = IL5 - 3 IF (IL5 .LE. 0) WRITE (NOUT,700) ILX(5),PARM,OUTC IF (IL5 .GT. 0) WRITE (NOUT,700) IVPS(I),IVPS(I+1),OUTC 775 IF (IL5 .EQ. 0) IERR = 1 GO TO 840 C C OUTPUT PARAMETER CHECK C C SECOND PARAMETER - OUTR C 800 IF (IL2 .GT. 0) GO TO 820 WRITE (NOUT,810) ILX(2),NAM 810 FORMAT (22X,A4,'PARAMETER IS MISSING (OUTPUT ERROR) ',2A4) IERR = 1 GO TO 950 820 IF (IERR .EQ. 0) VPS(IL2) = OUTR I = IL2 - 3 IF (PRT) WRITE (NOUT,830) IVPS(I),IVPS(I+1),VPS(IL2) 830 FORMAT (22X,2A4,3H = ,E13.6,' (OUTPUT)') GO TO 950 C C THIRD AND FOURTH PARAMETERS - INR1, INR2 C 840 IF (IL3 .GT. 0) GO TO 850 WRITE (NOUT,810) ILX(3),NAM IERR = 1 GO TO 860 850 IF (IERR .EQ. 0) VPS(IL3) = IN1R I = IL3 - 3 IF (PRT) WRITE (NOUT,830) IVPS(I),IVPS(I+1),VPS(IL3) 860 IF (IL4 .GT. 0) GO TO 870 WRITE (NOUT,810) ILX(4),NAM IERR = 1 GO TO 950 870 IF (IERR .EQ. 0) VPS(IL4) = IN2R J = IL4 - 3 IF (PRT) WRITE (NOUT,830) IVPS(J),IVPS(J+1),VPS(IL4) GO TO 950 C C FIFTH PARAMETER - OUTC C 880 IF (IL5 .GT. 0) GO TO 890 WRITE (NOUT,810) ILX(5),NAM IERR = 1 GO TO 950 890 IF (IERR .EQ. 1) GO TO 895 VPS(IL5 ) = OUTC(1) VPS(IL5+1) = OUTC(2) 895 I = IL5 - 3 IF (PRT) WRITE (NOUT,900) IVPS(I),IVPS(I+1),VPS(IL5),VPS(IL5+1) 900 FORMAT (22X,2A4,4H = (,E13.6,1H,,E13.6,') (OUTPUT)') GO TO 950 C C EIGHTH PARAMETER - FLAG C 910 IF (IL8 .GT. 0) GO TO 920 WRITE (NOUT,810) ILX(8),NAM IERR = 1 GO TO 950 920 IF (IERR .EQ. 0) IVPS(IL8) = FLAG I = IL8 - 3 IF (PRT) WRITE (NOUT,930) IVPS(I),IVPS(I+1),IVPS(IL8) 930 FORMAT (22X,2A4,2H =,I10,6X,'(OUTPUT)') C 950 IF (IERR .EQ. 0) GO TO 990 WRITE (NOUT,960) UWM,NAM 960 FORMAT (A25,' - I/O ERROR, OUTPUT NOT SAVED. OUTPUT DEFAULT ', 1 'VALUE REMAINS ',2A4,/) GO TO 990 970 WRITE (NOUT,980) 980 FORMAT (5X,'JOB TERMINATED DUE TO PREVIOUS ERROR(S)',/) CALL PEXIT 990 IF (KSYS37 .EQ. 0) KSYS37 = IERR RETURN C END ================================================ FILE: mis/qriter.f ================================================ SUBROUTINE QRITER (VAL,O,LOC,QR) C C ORTEGA-KAISER QR ITERATION FOR A LARGE TRIDIAGONAL MATRIX C INTEGER LOC(1),QR,SYSBUF,MSG(10) REAL LFREQ DOUBLE PRECISION VAL(1),O(1),SHIFT,ZERO,ONE,ONES,EPSI,G,R,S,T,U, 1 DLMDAS CHARACTER*5 BELOW,ABOVE,BELABV CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /SYSTEM/ SYSBUF,NOUT COMMON /GIVN / IDUM0(100),N,LFREQ,IDUM3,IDUM4,HFREQ,LAMA,NV, 1 NE,IDUM9,NFOUND,IDUM11,IDUM12,IDUM13,NEVER,MAX COMMON /REIGKR/ IOPTN COMMON /MGIVXX/ DLMDAS DATA EPSI , ZERO,ONE,MSG/ 1.0D-10, 0.0D+0, 1.0D+0, 53,9*0 / DATA MGIV , BELOW,ABOVE / 4HMGIV, 'BELOW', 'ABOVE' / C C VAL = DIAGONAL TERMS OF THE TRIDIAGONAL. C REORDERED EIGENVALUES UPON RETURN. C O = SQUARE OF THE OFF-DIAGIONAL TERMS OF THE TRIDIAGONAL. C LOC = ORIGINAL LOCATIONS OF THE REORDERED EIGENVALUES. C QR = 1 MEANS VAL= EIGENVALUES--JUST REORDER THEM C N = ORDER OF THE PROBLEM = ALSO NO. OF FREQ. EXTRACTED C MAX = MAXIMUM NUMBER OF ITERATIONS C SHIFT = SHIFT FACTOR (SMALLEST DIAGONAL TERM C LFREQ , HFREQ = FREQ. RANGE OF INTEREST IF NV IS ZERO C NV = NUMBER OF EIGENVECTORS TO BE COMPUTED, SAVED AND OUTPUT. C IF NV IS ZERO (INPUT), AND LFREQ-HFREQ ARE PRESENT, NV IS C SET TO BE NO. OF MODES WITHIN THE FREQ. RANGE (OUTPUT) C NE = NO. OF EIGENVALUES (INCLUDING RIGID MODES) TO BE PRINTED. C ALL, IF NE IS NOT SPECIFIED. C IF NE .LT. NV, NE IS SET EQUAL TO NV C MAX = 100*N IF (NV .GT. N) NV = N IF (NE .EQ. 0) NE = N IF (NE .LT. NV) NE = NV C C IS THIS AN ORDERING ONLY CALL C NEVER = 0 IF (QR .NE. 0) GO TO 150 C C SEARCH FOR A DECOUPLED SUBMATRIX. C M2 = N 100 M2M1 = M2 - 1 DO 101 K = 1,M2M1 M1 = M2 - K IF (O(M1) .NE. ZERO) GO TO 102 101 CONTINUE C C ALL OFF-DIAGONAL TERMS ARE ZEROS, JOB DONE. GO TO 150 C THE DIAGONALS CONTAIN THE EIGENVALUES. C GO TO 150 C C DECOUPLED SUBMATRIX C 102 M2M1 = M1 M2 = M1 + 1 IF (M2M1 .EQ. 1) GO TO 105 DO 103 K = 2,M2M1 M1 = M2 - K IF (O(M1) .EQ. ZERO) GO TO 104 103 CONTINUE GO TO 105 104 M1 = M1 + 1 105 MM = M1 C C Q-R ITERATION FOR THE DECOUPLED SUBMATRIX C 110 DO 135 ITER = 1,MAX IF (DABS(VAL(M2))+O(M2M1) .EQ. DABS(VAL(M2))) GO TO 140 DO 111 K = M1,M2M1 IF (VAL(K) .NE. VAL(K+1)) GO TO 115 111 CONTINUE SHIFT = ZERO GO TO 120 C C FIND THE SMALLEST DIAGONAL TERM = SHIFT C 115 SHIFT = VAL(M2) DO 116 I = M1,M2M1 IF (DABS(VAL(I)) .LT. DABS(SHIFT)) SHIFT = VAL(I) 116 CONTINUE C C REDUCE ALL TERMS BY SHIFT C DO 117 I = M1,M2 VAL(I) = VAL(I) - SHIFT 117 CONTINUE C C Q-R ITERATION C 120 R = VAL(M1)**2 S = O(M1)/(R+O(M1)) T = ZERO U = S*(VAL(M1) + VAL(M1+1)) VAL(M1) = VAL(M1) + U IF (M1 .EQ. M2M1) GO TO 125 M1P1 = M1 + 1 DO 123 I = M1P1,M2M1 G = VAL(I) - U R = (ONE-T)*O(I-1) ONES = ONE - S IF (DABS(ONES) .GT. EPSI) R = G*G/ONES R = R + O(I) O(I-1) = S*R IF (O(I-1) .EQ. ZERO) MM = I T = S C C IBM MAY FLAG AN EXPONENT UNDERFLOW ON NEXT LINE. C IT IS PERFECTLY OK SINCE O(I) SHOULD BE APPROACHING ZERO. C S = O(I)/R U = S*(G + VAL(I+1)) VAL(I) = U + G 123 CONTINUE C 125 VAL(M2) = VAL(M2) - U R = (ONE-T)*O(M2M1) ONES = ONE - S IF (DABS(ONES) .GT. EPSI) R = VAL(M2)**2/ONES O(M2M1) = S*R C C SHIFT BACK C IF (SHIFT .EQ. ZERO) GO TO 133 DO 130 I = M1,M2 VAL(I) = VAL(I) + SHIFT 130 CONTINUE 133 M1 = MM 135 CONTINUE C C TOO MANY ITERATIONS C C C THE ACCURACY OF EIGENVALUE XXXXX IS IN DOUBT--QRITER FAILED TO C CONVERGE IN XX ITERATIONS C NEVER = NEVER + 1 CALL MESAGE (MSG(1),VAL(M2),MAX) C C CONVERGENCE ACHIEVED C 140 IF (M1 .EQ. M2M1) GO TO 145 M2 = M2M1 M2M1 = M2 -1 GO TO 110 145 IF (M1 .LE. 2) GO TO 150 M2 = M1 - 1 GO TO 100 150 IF (N .EQ. 1) GO TO 205 C C REORDER EIGENVALUES ALGEBRAICALLY IN ASCENDING ORDER C IF (IOPTN .NE. MGIV) GO TO 155 C C FOR MGIV METHOD, RECOMPUTE LAMBDA C DO 153 K = 1,N VAL(K) = (1.0D0/VAL(K)) - DLMDAS 153 CONTINUE 155 CONTINUE DO 190 K = 1,N DO 160 M = 1,N IF (VAL(M) .NE. -10000.0D0) GO TO 170 160 CONTINUE 170 IF (M .EQ. N) GO TO 185 MP1 = M + 1 DO 180 I = MP1,N IF (VAL(I) .EQ. -10000.0D0) GO TO 180 IF (VAL(M) .GT. VAL(I)) M = I 180 CONTINUE 185 O(K) = VAL(M) VAL(M) =-10000.0D0 LOC(K) = M 190 CONTINUE DO 195 I = 1,N VAL(I) = O(I) 195 CONTINUE C C IF RIGID MODES WERE FOUND BEFORE, REPLACE RIGID FREQ. BY ZERO C IF (NFOUND .EQ. 0) GO TO 205 DO 200 I = 1,NFOUND VAL(I) = ZERO 200 CONTINUE C C OUTPUT OPTION CHECK - BY FREQ. RANGE OR BY NO. OF FREQ. C REQUESTED C 205 IB = 1 IF (NV .NE. 0) GO TO 225 IF (LFREQ .LE. 0.0) GO TO 225 C C LOCATE PONTER THAT POINTS TO EIGENVALUE ABOVE OR EQUAL THE C LOWEST LFREQ. AS REQUESTED. C DO 215 I = 1,N IF (VAL(I) .GE. LFREQ) GO TO 220 215 CONTINUE I = 0 220 IB = I C C OPEN LAMA FOR OUTPUT C PUT EIGENVALUES ON LAMA FOLLOWED BY ORDER FOUND C 225 IBUF1 = (KORSZ(O)-SYSBUF+1)/2 CALL GOPEN (LAMA,O(IBUF1),1) NN = 0 IF (IB .EQ. 0) GO TO 240 DO 230 I = IB,N VALX = VAL(I) IF (NV.NE.0 .AND. I.GT. NE) GO TO 240 IF (NV.EQ.0 .AND. VALX.GT.HFREQ) GO TO 240 CALL WRITE (LAMA,VALX,1,0) NN = NN + 1 230 CONTINUE C 240 CONTINUE C C IF FREQ. RANGE IS REQUESTED, AND ALL FREQ. FOUND ARE OUTSIDE THE C RANGE, OUTPUT AT LEAST ONE FREQ. C IF (NN .GT. 0) GO TO 260 IF (IB .EQ. 0) BELABV = BELOW IF (IB .NE. 0) BELABV = ABOVE WRITE (NOUT,250) UIM,BELABV 250 FORMAT (A29,', ALL ROOTS FOUND WERE ',A5,' FREQ. RANGE SPECIFIED', 1 /5X,'HOWEVER, ONE EIGENVALUE OUTSIDE THIS FREQ. RANGE WAS', 2 ' SAVED AND PRINTED') NN = 1 IF (IB .NE. 0) IB = N IF (IB .EQ. 0) IB = 1 CALL WRITE (LAMA,VAL(IB),1,0) 260 CALL WRITE (LAMA,0,0,1) CALL WRITE (LAMA,LOC(IB),NN,1) CALL CLOSE (LAMA,1) MSG(2) = LAMA MSG(3) = NN CALL WRTTRL (MSG(2)) C C IF FREQ. DOES NOT START FROM FIRST FUNDAMENTAL MODE, ADJUST VAL C AND LOC TABLES SO THAT WILVEC WILL PICK UP FREQUENCIES CORRECTLY C IF (IB .LE. 1) GO TO 280 J = 1 DO 270 I = IB,N VAL(J) = VAL(I) LOC(J) = LOC(I) 270 J = J + 1 C 280 IF (NV.EQ.0 .AND. IB.GT.1 .AND. NN.LT.NFOUND .AND. VAL(1).LE.ZERO) 1 NFOUND = 0 IF (NV .EQ. 0) NV = NN RETURN END ================================================ FILE: mis/qriter1.f ================================================ SUBROUTINE QRITER1 (VAL,O,LOC,QR) C C ORTEGA-KAISER QR ITERATION FOR A LARGE TRIDIAGONAL MATRIX C INTEGER LOC(1),QR,SYSBUF,MSG(10) REAL LFREQ REAL VAL(1),O(1),SHIFT,ZERO,ONE,ONES,EPSI,G,R,S,T,U, 1 DLMDAS CHARACTER*5 BELOW,ABOVE,BELABV CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM CWKBR 2/94 SPR93027 COMMON /SYSTEM/ SYSBUF,NOUT COMMON /SYSTEM/ SYSBUF,NOUT, IDUM(52), IPREC COMMON /GIVN / IDUM0(100),N,LFREQ,IDUM3,IDUM4,HFREQ,LAMA,NV, 1 NE,IDUM9,NFOUND,IDUM11,IDUM12,IDUM13,NEVER,MAX COMMON /REIGKR/ IOPTN COMMON /MGIVXX/ DLMDAS DATA EPSI , ZERO,ONE,MSG/ 1.0D-10, 0.0D+0, 1.0D+0, 53,9*0 / DATA MGIV , BELOW,ABOVE / 4HMGIV, 'BELOW', 'ABOVE' / C C VAL = DIAGONAL TERMS OF THE TRIDIAGONAL. C REORDERED EIGENVALUES UPON RETURN. C O = SQUARE OF THE OFF-DIAGIONAL TERMS OF THE TRIDIAGONAL. C LOC = ORIGINAL LOCATIONS OF THE REORDERED EIGENVALUES. C QR = 1 MEANS VAL= EIGENVALUES--JUST REORDER THEM C N = ORDER OF THE PROBLEM = ALSO NO. OF FREQ. EXTRACTED C MAX = MAXIMUM NUMBER OF ITERATIONS C SHIFT = SHIFT FACTOR (SMALLEST DIAGONAL TERM C LFREQ , HFREQ = FREQ. RANGE OF INTEREST IF NV IS ZERO C NV = NUMBER OF EIGENVECTORS TO BE COMPUTED, SAVED AND OUTPUT. C IF NV IS ZERO (INPUT), AND LFREQ-HFREQ ARE PRESENT, NV IS C SET TO BE NO. OF MODES WITHIN THE FREQ. RANGE (OUTPUT) C NE = NO. OF EIGENVALUES (INCLUDING RIGID MODES) TO BE PRINTED. C ALL, IF NE IS NOT SPECIFIED. C IF NE .LT. NV, NE IS SET EQUAL TO NV C MAX = 100*N IF (NV .GT. N) NV = N IF (NE .EQ. 0) NE = N IF (NE .LT. NV) NE = NV C C IS THIS AN ORDERING ONLY CALL C NEVER = 0 IF (QR .NE. 0) GO TO 150 C C SEARCH FOR A DECOUPLED SUBMATRIX. C M2 = N 100 M2M1 = M2 - 1 DO 101 K = 1,M2M1 M1 = M2 - K IF (O(M1) .NE. ZERO) GO TO 102 101 CONTINUE C C ALL OFF-DIAGONAL TERMS ARE ZEROS, JOB DONE. GO TO 150 C THE DIAGONALS CONTAIN THE EIGENVALUES. C GO TO 150 C C DECOUPLED SUBMATRIX C 102 M2M1 = M1 M2 = M1 + 1 IF (M2M1 .EQ. 1) GO TO 105 DO 103 K = 2,M2M1 M1 = M2 - K IF (O(M1) .EQ. ZERO) GO TO 104 103 CONTINUE GO TO 105 104 M1 = M1 + 1 105 MM = M1 C C Q-R ITERATION FOR THE DECOUPLED SUBMATRIX C 110 DO 135 ITER = 1,MAX IF (ABS(VAL(M2))+O(M2M1) .EQ. ABS(VAL(M2))) GO TO 140 DO 111 K = M1,M2M1 IF (VAL(K) .NE. VAL(K+1)) GO TO 115 111 CONTINUE SHIFT = ZERO GO TO 120 C C FIND THE SMALLEST DIAGONAL TERM = SHIFT C 115 SHIFT = VAL(M2) DO 116 I = M1,M2M1 IF (ABS(VAL(I)) .LT. ABS(SHIFT)) SHIFT = VAL(I) 116 CONTINUE C C REDUCE ALL TERMS BY SHIFT C DO 117 I = M1,M2 VAL(I) = VAL(I) - SHIFT 117 CONTINUE C C Q-R ITERATION C 120 R = VAL(M1)**2 S = O(M1)/(R+O(M1)) T = ZERO U = S*(VAL(M1) + VAL(M1+1)) VAL(M1) = VAL(M1) + U IF (M1 .EQ. M2M1) GO TO 125 M1P1 = M1 + 1 DO 123 I = M1P1,M2M1 G = VAL(I) - U R = (ONE-T)*O(I-1) ONES = ONE - S IF (ABS(ONES) .GT. EPSI) R = G*G/ONES R = R + O(I) O(I-1) = S*R IF (O(I-1) .EQ. ZERO) MM = I T = S C C IBM MAY FLAG AN EXPONENT UNDERFLOW ON NEXT LINE. C IT IS PERFECTLY OK SINCE O(I) SHOULD BE APPROACHING ZERO. C S = O(I)/R U = S*(G + VAL(I+1)) VAL(I) = U + G 123 CONTINUE C 125 VAL(M2) = VAL(M2) - U R = (ONE-T)*O(M2M1) ONES = ONE - S IF (ABS(ONES) .GT. EPSI) R = VAL(M2)**2/ONES O(M2M1) = S*R C C SHIFT BACK C IF (SHIFT .EQ. ZERO) GO TO 133 DO 130 I = M1,M2 VAL(I) = VAL(I) + SHIFT 130 CONTINUE 133 M1 = MM 135 CONTINUE C C TOO MANY ITERATIONS C C C THE ACCURACY OF EIGENVALUE XXXXX IS IN DOUBT--QRITER FAILED TO C CONVERGE IN XX ITERATIONS C NEVER = NEVER + 1 CALL MESAGE (MSG(1),VAL(M2),MAX) C C CONVERGENCE ACHIEVED C 140 IF (M1 .EQ. M2M1) GO TO 145 M2 = M2M1 M2M1 = M2 -1 GO TO 110 145 IF (M1 .LE. 2) GO TO 150 M2 = M1 - 1 GO TO 100 150 IF (N .EQ. 1) GO TO 205 C C REORDER EIGENVALUES ALGEBRAICALLY IN ASCENDING ORDER C IF (IOPTN .NE. MGIV) GO TO 155 C C FOR MGIV METHOD, RECOMPUTE LAMBDA C DO 153 K = 1,N VAL(K) = (1.0/VAL(K)) - DLMDAS 153 CONTINUE 155 CONTINUE DO 190 K = 1,N DO 160 M = 1,N IF (VAL(M) .NE. -10000.0) GO TO 170 160 CONTINUE 170 IF (M .EQ. N) GO TO 185 MP1 = M + 1 DO 180 I = MP1,N IF (VAL(I) .EQ. -10000.0) GO TO 180 IF (VAL(M) .GT. VAL(I)) M = I 180 CONTINUE 185 O(K) = VAL(M) VAL(M) =-10000.0 LOC(K) = M 190 CONTINUE DO 195 I = 1,N VAL(I) = O(I) 195 CONTINUE C C IF RIGID MODES WERE FOUND BEFORE, REPLACE RIGID FREQ. BY ZERO C IF (NFOUND .EQ. 0) GO TO 205 DO 200 I = 1,NFOUND VAL(I) = ZERO 200 CONTINUE C C OUTPUT OPTION CHECK - BY FREQ. RANGE OR BY NO. OF FREQ. C REQUESTED C 205 IB = 1 IF (NV .NE. 0) GO TO 225 IF (LFREQ .LE. 0.0) GO TO 225 C C LOCATE PONTER THAT POINTS TO EIGENVALUE ABOVE OR EQUAL THE C LOWEST LFREQ. AS REQUESTED. C DO 215 I = 1,N IF (VAL(I) .GE. LFREQ) GO TO 220 215 CONTINUE I = 0 220 IB = I C C OPEN LAMA FOR OUTPUT C PUT EIGENVALUES ON LAMA FOLLOWED BY ORDER FOUND C CWKBR 2/94 SPR93027 225 IBUF1 = (KORSZ(O)-SYSBUF+1)/2 225 IBUF1 = (KORSZ(O)-SYSBUF+1)/IPREC CALL GOPEN (LAMA,O(IBUF1),1) NN = 0 IF (IB .EQ. 0) GO TO 240 DO 230 I = IB,N VALX = VAL(I) IF (NV.NE.0 .AND. I.GT. NE) GO TO 240 IF (NV.EQ.0 .AND. VALX.GT.HFREQ) GO TO 240 CALL WRITE (LAMA,VALX,1,0) NN = NN + 1 230 CONTINUE C 240 CONTINUE C C IF FREQ. RANGE IS REQUESTED, AND ALL FREQ. FOUND ARE OUTSIDE THE C RANGE, OUTPUT AT LEAST ONE FREQ. C IF (NN .GT. 0) GO TO 260 IF (IB .EQ. 0) BELABV = BELOW IF (IB .NE. 0) BELABV = ABOVE WRITE (NOUT,250) UIM,BELABV 250 FORMAT (A29,', ALL ROOTS FOUND WERE ',A5,' FREQ. RANGE SPECIFIED', 1 /5X,'HOWEVER, ONE EIGENVALUE OUTSIDE THIS FREQ. RANGE WAS', 2 ' SAVED AND PRINTED') NN = 1 IF (IB .NE. 0) IB = N IF (IB .EQ. 0) IB = 1 CALL WRITE (LAMA,VAL(IB),1,0) 260 CALL WRITE (LAMA,0,0,1) CALL WRITE (LAMA,LOC(IB),NN,1) CALL CLOSE (LAMA,1) MSG(2) = LAMA MSG(3) = NN CALL WRTTRL (MSG(2)) C C IF FREQ. DOES NOT START FROM FIRST FUNDAMENTAL MODE, ADJUST VAL C AND LOC TABLES SO THAT WILVEC WILL PICK UP FREQUENCIES CORRECTLY C IF (IB .LE. 1) GO TO 280 J = 1 DO 270 I = IB,N VAL(J) = VAL(I) LOC(J) = LOC(I) 270 J = J + 1 C 280 IF (NV.EQ.0 .AND. IB.GT.1 .AND. NN.LT.NFOUND .AND. VAL(1).LE.ZERO) 1 NFOUND = 0 IF (NV .EQ. 0) NV = NN RETURN END ================================================ FILE: mis/quad4d.f ================================================ SUBROUTINE QUAD4D C C FORMS STIFFNESS AND MASS MATRICES FOR THE QUAD4 PLATE ELEMENT C C DOUBLE PRECISION VERSION C C EST LISTING C C WORD TYPE DESCRIPTION C -------------------------------------------------------------- C 1 I ELEMENT ID, EID C 2 THRU 5 I SILS, GRIDS 1 THRU 4 C 6 THRU 9 R MEMBRANE THICKNESSES T AT GRIDS 1 THRU 4 C 10 R MATERIAL PROPERTY ORIENTATION ANGLE, THETA C OR I COORD. SYSTEM ID (SEE TM ON CQUAD4 CARD) C 11 I TYPE FLAG FOR WORD 10 C 12 R GRID ZOFF (OFFSET) C 13 I MATERIAL ID FOR MEMBRANE, MID1 C 14 R ELEMENT THICKNESS, T (MEMBRANE, UNIFORMED) C 15 I MATERIAL ID FOR BENDING, MID2 C 16 R BENDING INERTIA FACTOR, I C 17 I MATERIAL ID FOR TRANSVERSE SHEAR, MID3 C 18 R TRANSV. SHEAR CORRECTION FACTOR TS/T C 19 R NON-STRUCTURAL MASS, NSM C 20 THRU 21 R Z1, Z2 (STRESS FIBRE DISTANCES) C 22 I MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4 C 23 R MATERIAL ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD) C 24 I TYPE FLAG FOR WORD 23 C 25 I INTEGRATION ORDER C 26 R STRESS ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD) C 27 I TYPE FLAG FOR WORD 26 C 28 R ZOFF1 (OFFSET) OVERRIDDEN BY EST(12) C 29 THRU 44 I/R CID,X,Y,Z - GRIDS 1 THRU 4 C 45 R ELEMENT TEMPERATURE C C LOGICAL HEAT,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,BADJAC, 1 ANIS,NOCSUB,NOGO INTEGER NEST(45),IEGPDT(4,4),CPMASS,FLAGS,NOUT,ELTYPE, 1 ELID,ESTID,SIL(4),KSIL(4),KCID(4),DICT(9), 2 IGPDT(4,4),IGPTH(4),NAM(2),MID(4),TYPE,NECPT(4), 3 ROWFLG,NOTRAN(4),HSIL(8),HORDER(8) REAL TSFACT,EPSI,EPST,EPS,GPTH(4),MATOUT,EGPDT(4,4), 1 GSUBE,BGPDM(3,4),GPNORM(4,4),BGPDT(4,4),ADAMP, 2 MATSET,NSM,EPNORM(4,4),KHEAT,HTCP,SINMAT,COSMAT, 3 ECPT(4),SAVE(20) DOUBLE PRECISION AMGG(1),AKGG,DGPTH(4),BMAT1(384),XYBMAT(96), 1 ZETA,MOMINR,VOL,VOLI,TH,AREA,AREA2,DETJ, 2 PTINT(2),EPS1,XI,ETA,ZTA,HZTA,THK, 3 XMASSO,V(3,3),COEFF,XMTMP(16),XMASS(16), 4 TMPMAS(9),JACOB(3,3),TMPSHP(4),TMPTHK(4), 5 DSHPTP(8),PSITRN(9),PHI(9),SHP(4),DSHP(8), 6 TGRID(4,4),COLSTF(144),TRANS(36),TRANS1(36), 7 COLTMP(144),AVGTHK,TEMP CWKBD 2/94 SPR93020 DOUBLE PRECISION EIX,EIY,TGX,TGY CWKBI 9/94 SPR93020 DOUBLE PRECISION VKL, V12DK, VP12L, VJL CWKBI 2/94 SPR93020 DOUBLE PRECISION DNUX, DNUY C C DOUBLE PRECISION PTINTZ(2),BMATRX(144),STRESR(240) C C DATA FOR ADDING ELEMENT, USER AND MATERIAL COORDINATE SYSTEMS C DOUBLE PRECISION AA,BB,CC,X31,Y31,X42,Y42,EXI,EXJ,UGPDM(3,4), 1 CENT(3),CENTE(3),TBM(9),TEB(9),TEM(9),TUB(9), 2 TUM(9),TEU(9),TBG(9),GGE(9),GGU(9) C C DATA FOR ADDING CSUBB, MIDI, MATERIAL TRANS., AND HEAT C DOUBLE PRECISION RHO,TS,TSI,REALI,RHOX,THETAM,XM,YM,U(9),A,B, 1 ASPECT,THLEN,XA(4),YB(4),GT(9),GI(36), 2 ENORX,ENORY,GNORX,GNORY,NUNORX,NUNORY,DSUB,DSUB4, 3 PSIINX,PSIINY,TSMFX,TSMFY,CURVTR(3,4),CURVE(3), 4 SINEAX,SINEAY,W1,PI,TWOPI,RADDEG,DEGRAD, 5 HTFLX(12),HTCAP(16),HTCON(16),DVOL,DHEAT,WEITC, 6 BTERMS(32),DETERM CWKBNB 11/93 SPR 93020 DOUBLE PRECISION VD1(3), VD2(3), VKN(3), VKS(3) 1, V12(3), V41(3), VP12(3),VIS(3), VJS(3) CWKBNE 11/93 SPR 93020 C C DATA FOR IRREGULAR 4-NODE C DOUBLE PRECISION ZC(4),UEV,ANGLEI,EDGEL,EDGSHR,UNV,VNT(3,4),CONST, 1 ASPCTX,ASPCTY,GFOUR(10,10),DFOUR(7,7),BFOUR(240), 2 CSUBB4,CSUBX,CSUBY,CSUBT,CSUBTX,CSUBTY,OFFSET, 3 SFCTR1,SFCTR2,SFCTX1,SFCTX2,SFCTY1,SFCTY2 CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM C C ICORE = FIRST WORD OF OPEN CORE C JCORE = NEXT AVAILABLE LOCATION IN OPEN CORE. C NCORE = CURRENT LAST AVAILABLE LOCATION IN OPEN CORE C COMMON /EMGPRM/ ICORE,JCORE,NCORE,ICSTM,NCSTM,IMAT,NMAT,IHMAT, 1 NHMAT,IDIT,NDIT,ICONG,NCONG,LCONG,ANYCON, 2 FLAGS(3),PRECIS,ERROR,HEAT,CPMASS,LCSTM,LMAT, 3 LHMAT,KFLAGS(3),L38 COMMON /EMGEST/ EST(45) COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID COMMON /SYSTEM/ SYS(100) COMMON /MATIN / MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT COMMON /MATOUT/ MATOUT(25) COMMON /HMTOUT/ KHEAT(7),TYPE CZZ COMMON /ZZEMGX/ AKGG(1) COMMON /ZZZZZZ/ AKGG(20000) COMMON /Q4DT / DETJ,HZTA,PSITRN,NNODE,BADJAC,N1 COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /Q4COMD/ ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4), 1 UEV(3,4),ROWFLG,IORDER(4) COMMON /CONDAD/ PI,TWOPI,RADDEG,DEGRAD COMMON /COMJAC/ XI,ETA,ZETA,DETERM,DUM2,LTYPFL COMMON /CJACOB/ TH,VI(3),VJ(3),VN(3) COMMON /TRPLM / NDOF,IBOT,IPTX1,IPTX2,IPTY1,IPTY2 EQUIVALENCE (SYS(01) ,SYSBUF ), (SYS(02) ,NOUT ), 1 (SYS(03) ,NOGO ), (SYS(55) ,IPREC ) C EQUIVALENCE (SYS(48) ,ICSUB4 ), (SYS(49) ,ICSUBB ), C 1 (SYS(50) ,ICSUBT ), (SYS(75) ,ICSUB8 ) EQUIVALENCE (FLAGS(1),KGG1 ), (FLAGS(2),MGG1 ), 1 (ADAMP ,DICT(5) ), (IGPTH(1),GPTH(1) ), 2 (EST(1) ,NEST(1) ), (INT ,NEST(25) ), 3 (ELTH ,EST(14) ), (GPTH(1) ,EST(6) ), 4 (ZOFF ,EST(12) ), (ZOFF1 ,EST(28) ), 5 (SIL(1) ,NEST(2) ), (MATSET ,MATOUT(25)), 6 (NSM ,EST(19) ), (AMGG(1) ,AKGG(1) ), 7 (HTCP ,KHEAT(4)), (HTFLX(1),TMPMAS(1) ), 8 (HTCAP(1),XMASS(1)), (HTCON(1),XMTMP(1) ), 9 (NECPT(1),ECPT(1) ), O (BGPDT(1,1) ,EST(29) ), 1 (IEGPDT(1,1),EGPDT(1,1)), 2 (IGPDT(1,1) ,BGPDT(1,1)) DATA EPS1 / 1.0D-7 / DATA CONST / 0.57735026918962D0/ DATA NAM / 4HQUAD,4H4D / C ELID = NEST(1) LTYPFL = 1 OFFSET = ZOFF IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1 C C CHECK FOR SUFFICIENT OPEN CORE FOR ELEMENT STIFFNESS C JCORED = JCORE/IPREC + 1 NCORED = NCORE/IPREC - 1 IF ((JCORED+576).LE.NCORED .OR. HEAT .OR. KGG1.EQ.0) GO TO 10 GO TO 1730 C C COPY THE SILS AND BGPDT DATA INTO SAVE ARRAY SINCE THE DATA C WILL BE REORDERED BASED ON INCREASING SILS. C 10 J = 1 DO 15 I = 1,20 SAVE(I) = EST(I+J) IF (I .EQ. 4) J = 24 15 CONTINUE C NNODE = 4 N1 = 4 NODESQ= NNODE*NNODE NDOF = NNODE*6 NDOF3 = NNODE*3 ND2 = NDOF*2 ND3 = NDOF*3 ND4 = NDOF*4 ND5 = NDOF*5 ND6 = NDOF*6 ND7 = NDOF*7 C C FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS 1, 2 AND 4. C THIS ARRAY WILL BE USED LATER TO DEFINE THE USER COORD. SYSTEM C WHILE CALCULATING TRANSFORMATIONS INVOLVING THIS COORD. SYSTEM. C DO 20 I = 1,3 II = (I-1)*3 IJ = I IF (IJ .EQ. 3) IJ = 4 DO 20 J = 1,3 JJ = J + 1 20 GGU(II+J) = BGPDT(JJ,IJ) CWKBD 11/93 SPR93020 CALL BETRND (TUB,GGU,0,ELID) CWKBNB 11/93 SPR93020 C ADD FROM SHEAR ELEMENT C C COMPUTE DIAGONAL VECTORS C DO 21 I = 1,3 II=I+1 VD1(I) = BGPDT(II,3) - BGPDT(II,1) 21 VD2(I) = BGPDT(II,4) - BGPDT(II,2) C C COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED C AREA, PA C VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2) VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3) VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1) VKL = DSQRT( VKN(1)**2 + VKN(2)**2 + VKN(3)**2 ) IF ( VKL .EQ. 0. ) WRITE( NOUT, 2070 ) NEST(1) 2070 FORMAT(//,' ILLEGAL GEOMETRY FOR QUAD4 ELEMENT, ID=',I10 ) VKS(1) = VKN(1)/VKL VKS(2) = VKN(2)/VKL VKS(3) = VKN(3)/VKL PA = VKL/2.D0 C C COMPUTE SIDES -12- AND -41- DO 25 I = 1,3 II = I + 1 V12(I) = BGPDT(II,2) - BGPDT(II,1) V41(I) = BGPDT(II,1) - BGPDT(II,4) 25 CONTINUE C C COMPUTE DOT PRODUCT, V12DK, OR V12 AND VK, THE VECTORS VP12, VI, VJ C V12DK = V12(1)*VKS(1) + V12(2)*VKS(2) + V12(3)*VKS(3) VP12(1) = V12(1) - V12DK*VKS(1) VP12(2) = V12(2) - V12DK*VKS(2) VP12(3) = V12(3) - V12DK*VKS(3) VP12L = DSQRT( VP12(1)**2 + VP12(2)**2 + VP12(3)**2 ) IF ( VP12L .EQ. 0. ) WRITE( NOUT, 2070 ) NEST(1) VIS(1) = VP12(1) / VP12L VIS(2) = VP12(2) / VP12L VIS(3) = VP12(3) / VP12L VJS(1) = VKS(2)*VIS(3) - VKS(3)*VIS(2) VJS(2) = VKS(3)*VIS(1) - VKS(1)*VIS(3) VJS(3) = VKS(1)*VIS(2) - VKS(2)*VIS(1) C C NORMALIZE J FOR GOOD MEASURE C VJL = DSQRT( VJS(1)**2 + VJS(2)**2 + VJS(3)**2 ) IF ( VJL .EQ. 0. ) WRITE ( NOUT, 2070 ) NEST(1) VJS(1) = VJS(1) / VJL VJS(2) = VJS(2) / VJL VJS(3) = VJS(3) / VJL DO 29 I = 1,3 TUB(I) = VIS(I) TUB(I+3) = VJS(I) TUB(I+6) = VKS(I) 29 CONTINUE CWKBNE 11/93 SPR93020 C C STORE INCOMING BGPDT FOR LUMPED MASS AND ELEMENT C.S. C DO 30 I = 1,3 I1 = I + 1 DO 30 J = 1,4 30 BGPDM(I,J) = BGPDT(I1,J) C C TRANSFORM BGPDM FROM BASIC TO USER C.S. C DO 40 I = 1,3 IP = (I-1)*3 DO 40 J = 1,4 UGPDM(I,J) = 0.0D0 DO 40 K = 1,3 KK = IP + K 40 UGPDM(I,J) = UGPDM(I,J) + TUB(KK)*(DBLE(BGPDM(K,J))-GGU(K)) C C C THE ORIGIN OF THE ELEMENT C.S. IS IN THE MIDDLE OF THE ELEMENT C DO 50 J = 1,3 CENT(J) = 0.0D0 DO 50 I = 1,4 50 CENT(J) = CENT(J)+UGPDM(J,I)/NNODE C C STORE THE CORNER NODE DIFF. IN THE USER C.S. C X31 = UGPDM(1,3) - UGPDM(1,1) Y31 = UGPDM(2,3) - UGPDM(2,1) X42 = UGPDM(1,4) - UGPDM(1,2) Y42 = UGPDM(2,4) - UGPDM(2,2) AA = DSQRT(X31*X31 + Y31*Y31) BB = DSQRT(X42*X42 + Y42*Y42) IF (AA.EQ.0.D0 .OR. BB.EQ.0.D0) GO TO 1700 C C NORMALIZE XIJ'S C X31 = X31/AA Y31 = Y31/AA X42 = X42/BB Y42 = Y42/BB EXI = X31 - X42 EXJ = Y31 - Y42 C C STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT C.S. AND USER C.S. C GGE(1) = CENT(1) GGE(2) = CENT(2) GGE(3) = CENT(3) C GGE(4) = GGE(1) + EXI GGE(5) = GGE(2) + EXJ GGE(6) = GGE(3) C GGE(7) = GGE(1) - EXJ GGE(8) = GGE(2) + EXI GGE(9) = GGE(3) C C THE ARRAY IORDER STORES THE ELEMENT NODE ID IN C INCREASING SIL ORDER. C C IORDER(1) = NODE WITH LOWEST SIL NUMBER C IORDER(4) = NODE WITH HIGHEST SIL NUMBER C C ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE C LIST G1,G2,G3,G4 . THAT IS, THE 'I' PART C OF THE 'GI' AS THEY ARE LISTED ON THE CONNECTIVITY C BULK DATA CARD DESCRIPTION. C DO 60 I = 1,4 IORDER(I) = 0 HORDER(I) = 0 KSIL(I) = SIL(I) HSIL(I) = SIL(I) 60 CONTINUE C DO 80 I = 1,4 ITEMP = 1 ISIL = KSIL(1) DO 70 J = 2,4 IF (ISIL .LE. KSIL(J)) GO TO 70 ITEMP = J ISIL = KSIL(J) 70 CONTINUE IORDER(I) = ITEMP HORDER(I) = ITEMP KSIL(ITEMP) = 99999999 80 CONTINUE C C ADJUST EST DATA C C USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE C GEOMETRY DATA INTO INCREASING SIL ORDER. C DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE C FUNCTIONS GO WITH WHICH GEOMETRIC PARAMETERS! C DO 100 I = 1,4 KSIL(I) = SIL(I) TMPTHK(I) = GPTH(I) KCID(I) = IGPDT(1,I) DO 90 J = 2,4 TGRID(J,I) = BGPDT(J,I) 90 CONTINUE 100 CONTINUE DO 120 I = 1,4 IPOINT = IORDER(I) SIL(I) = KSIL(IPOINT) GPTH(I) = TMPTHK(IPOINT) IGPDT(1,I) = KCID(IPOINT) DO 110 J = 2,4 BGPDT(J,I) = TGRID(J,IPOINT) 110 CONTINUE 120 CONTINUE C C COMPUTE NODE NORMALS C CALL Q4NRMD (BGPDT,GPNORM,IORDER,IFLAG) IF (IFLAG .EQ. 0) GO TO 130 GO TO 1700 C C DETERMINE NODAL THICKNESSES C 130 AVGTHK = 0.0D0 DO 160 I = 1,NNODE IORD = IORDER(I) DO 140 IC = 1,3 140 CURVTR(IC,IORD) = GPNORM(IC+1,I) C IF (GPTH(I) .EQ. 0.0) GPTH(I) = ELTH IF (NEST(13).EQ.0 .AND. ELTH.EQ.0.0) GPTH(I) = 1.0E-14 IF (GPTH(I) .GT. 0.0) GO TO 150 WRITE (NOUT,2010) UFM,ELID NOGO = .TRUE. GO TO 1710 150 DGPTH(I) = GPTH(I) AVGTHK = AVGTHK + DGPTH(I)/NNODE 160 CONTINUE C C NEST(13) = MID1 ID FOR MEMBRANE C NEST(15) = MID2 ID FOR BENDING C NEST(17) = MID3 ID FOR TRANSVERSE SHEAR C NEST(22) = MID4 ID FOR MEMBRANE-BENDING COUPLING C MID4 MUST BE BLANK UNLESS MID1 AND MID2 ARE NON-ZERO C MID4 ID MUST NOT EQUAL MID1 OR MID2 ID C (WHEN LAYER COMPOSITE IS USED, MID ID IS RAISED TO ID*100000000) C EST(14) = MEMBRANE THICKNESS, T C EST(16) = BENDING STIFFNESS PARAMETER, 12I/T**3 C EST(18) = TRANSVERSE SHEAR PARAMETER, TS/T C C 0.8333333 = 5.0/6.0 C MOMINR = 0.0D0 TSFACT = .8333333 NOCSUB = .FALSE. IF (NEST(15) .NE. 0) MOMINR = EST(16) IF (NEST(17) .NE. 0) TS = EST(18) IF ( EST(18) .EQ. .0) TS = .833333D0 C C FIX FOR LAMINATED COMPOSITE WITH MEMBRANE BEHAVIOUR ONLY. C REQUIRED TO PREVENT ZERO DIVIDE ERRORS. C IF (NEST(15).EQ.0 .AND. NEST(13).GT.100000000) TS = .833333D0 C C SET LOGICAL NOCSUB IF EITHER MOMINR OR TS ARE NOT DEFAULT C VALUES. THIS WILL BE USED TO OVERRIDE ALL CSUBB COMPUTATIONS. C I.E. DEFAULT VALUES OF UNITY ARE USED. C EPSI = ABS(MOMINR - 1.0) EPST = ABS(TS - TSFACT) EPS = .05 C NOCSUB = EPSI.GT.EPS .OR. EPST.GT.EPS IF (NEST(13) .GT. 100000000) NOCSUB = .FALSE. C C THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE C TRANSFORMED FROM THE BASIC C.S. TO THE ELEMENT C.S. C CALL BETRND (TEU,GGE,0,ELID) CALL GMMATD (TEU,3,3,0,TUB ,3,3,0,TEB ) CALL GMMATD (TUB,3,3,1,CENT,3,1,0,CENTE) IDENTT = 0 IF (TEB(1).EQ.1.D0 .AND. TEB(5).EQ.1.D0 .AND. TEB(9).EQ.1.D0 .AND. 1 TEB(2).EQ.0.D0 .AND. TEB(3).EQ.0.D0 .AND. TEB(4).EQ.0.D0 .AND. 2 TEB(6).EQ.0.D0 .AND. TEB(7).EQ.0.D0 .AND. TEB(8).EQ.0.D0 3 ) IDENTT = 1 IP = -3 DO 170 II = 2,4 IP = IP + 3 DO 170 J = 1,NNODE EPNORM(II,J) = 0.0 EGPDT(II,J) = 0.0 DO 170 K = 1,3 KK = IP + K K1 = K + 1 CC = DBLE(BGPDT(K1,J)) - GGU(K)-CENTE(K) EPNORM(II,J) = EPNORM(II,J) + TEB(KK)*GPNORM(K1,J) 170 EGPDT(II,J) = EGPDT(II,J) + SNGL(TEB(KK)*CC) C C BEGIN INITIALIZING MATERIAL VARIABLES C C SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR- C ISOTROPIC MATERIAL PROPERTIES AMONG THE MAT1 CARDS, C ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND C ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS. C INFLAG = 12 RHO = 0.0D0 ELTEMP = EST(45) MID(1) = NEST(13) MID(2) = NEST(15) MID(3) = NEST(17) MID(4) = NEST(22) MEMBRN = MID(1).GT.0 BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0D0 SHRFLX = MID(3).GT.0 MBCOUP = MID(4).GT.0 C C FIGURE OUT PATH OF THE TRIPLE MULTIPLY AND THE NO. OF ROWS IN C THE B-MATRIX (I.E. STRAIN-NODAL DISPLACEMENT MATRIX) C C NORPTH = MID(1).EQ.MID(2) .AND. MID(1).EQ.MID(3) .AND. MID(4).EQ.0 C 1 .AND. DABS(MOMINR-1.0D0).LE.EPS1 C NORPTH = .FALSE. C C DETERMINE FACTORS TO BE USED IN CSUBB CALCULATIONS C C IF (.NOT.BENDNG) GO TO 290 DO 210 I = 1,4 DO 200 J = 1,NNODE JO = IORDER(J) IF (I .NE. JO) GO TO 200 XA(I) = EGPDT(2,J) YB(I) = EGPDT(3,J) ZC(I) = EGPDT(4,J) VNT(1,I) = EPNORM(2,J) VNT(2,I) = EPNORM(3,J) VNT(3,I) = EPNORM(4,J) 200 CONTINUE 210 CONTINUE C A = 0.5D0*DABS(XA(2)+XA(3)-XA(1)-XA(4)) B = 0.5D0*DABS(YB(4)+YB(3)-YB(1)-YB(2)) IF (A .GT. B) ASPECT = B/A IF (A .LE. B) ASPECT = A/B THLEN = AVGTHK/A IF (A .LT. B) THLEN = AVGTHK/B C C TORSION-RELATED SHEAR CORRECTION FOR 4-NODE- C PRELIMINARY FACTORS C ASPCTX = A/B ASPCTY = B/A CSUBB4 = 1.6D0 CSUBT = 71.D0*ASPECT*(1.6D0/CSUBB4)*(1.D0+415.D0*ASPECT*THLEN**2) CSUBTX = CSUBT*ASPCTX**2 CSUBTY = CSUBT*ASPCTY**2 C I = 2 J = 2 JJ = 3 SINEAX = 0.0D0 SINEAY = 0.0D0 220 CALL DAXB (CURVTR(1,I-1),CURVTR(1,I),CURVE) CC = CURVE(1)*CURVE(1) + CURVE(2)*CURVE(2) + CURVE(3)*CURVE(3) IF (CC .LT. EPS1) GO TO 230 CC = 0.5D0*DSQRT(CC) 230 SINEAX = SINEAX + CC IF (I .NE. 2) GO TO 240 I = 4 GO TO 220 C 240 CALL DAXB (CURVTR(1,J),CURVTR(1,JJ),CURVE) CC = CURVE(1)*CURVE(1) + CURVE(2)*CURVE(2) + CURVE(3)*CURVE(3) IF (CC .LT. EPS1) GO TO 250 CC = 0.5D0*DSQRT(CC) 250 SINEAY = SINEAY+CC IF (J .NE. 2) GO TO 260 J = 1 JJ = 4 GO TO 240 260 CC = 28.0D0 SINEAX = CC*SINEAX + 1.0D0 SINEAY = CC*SINEAY + 1.0D0 IF (SINEAX .GT. SINEAY) SINEAY = SINEAX IF (SINEAY .GT. SINEAX) SINEAX = SINEAY C C IRREGULAR 4-NODE CODE- GEOMETRIC VARIABLES C C CALCULATE AND NORMALIZE- UNIT EDGE VECTORS, UNIT NORMAL VECTORS C DO 270 I = 1,4 J = I + 1 IF (J .EQ. 5) J = 1 UEV(1,I) = XA(J) - XA(I) UEV(2,I) = YB(J) - YB(I) UEV(3,I) = ZC(J) - ZC(I) UNV(1,I) = (VNT(1,J) + VNT(1,I))*0.50D0 UNV(2,I) = (VNT(2,J) + VNT(2,I))*0.50D0 UNV(3,I) = (VNT(3,J) + VNT(3,I))*0.50D0 CC = UEV(1,I)**2 + UEV(2,I)**2 + UEV(3,I)**2 IF (CC .EQ. 0.D0) GO TO 1700 IF (CC .GE. EPS1) CC = DSQRT(CC) EDGEL(I) = CC UEV(1,I) = UEV(1,I)/CC UEV(2,I) = UEV(2,I)/CC UEV(3,I) = UEV(3,I)/CC CC = UNV(1,I)**2 + UNV(2,I)**2 + UNV(3,I)**2 IF (CC .EQ. 0.D0) GO TO 1700 IF (CC .GE. EPS1) CC = DSQRT(CC) UNV(1,I) = UNV(1,I)/CC UNV(2,I) = UNV(2,I)/CC UNV(3,I) = UNV(3,I)/CC 270 CONTINUE C C CALCULATE INTERNAL NODAL ANGLES C DO 280 I = 1,4 J = I - 1 IF (J .EQ. 0) J = 4 ANGLEI(I)=-UEV(1,I)*UEV(1,J) -UEV(2,I)*UEV(2,J) -UEV(3,I)*UEV(3,J) IF (DABS(ANGLEI(I)) .LT .EPS1) ANGLEI(I) = 0.0D0 280 CONTINUE C C SET THE INTEGRATION POINTS C C 290 CONTINUE PTINT(1) = -CONST PTINT(2) = CONST C PTINTZ(1) = -CONST C PTINTZ(2) = CONST C JZTA = 2 C IF (.NOT.BENDNG) PTINTZ(1) = 0.0D0 C IF (.NOT.BENDNG) JZTA = 1 IF (HEAT) GO TO 1790 C C TRIPLE LOOP TO SAVE THE LAST 2 ROWS OF B-MATRIX AT 2X2X2 C INTEGRATION POINTS FOR LATER MANIPULATION. C IF (KGG1 .EQ. 0) GO TO 400 C IF (.NOT.BENDNG) GO TO 360 I = 1 KPT= 1 C DO 350 IXSI = 1,2 XI = PTINT(IXSI) C DO 350 IETA = 1,2 ETA = PTINT(IETA) C CALL Q4SHPD (XI,ETA,SHP,DSHP) C C IRREGULAR 4-NODE CODE- CALCULATION OF NODAL EDGE SHEARS C AT THIS INTEGRATION POINT C DO 310 IJ = 1,4 II = IJ - 1 IF (II .EQ. 0) II = 4 IK = IJ + 1 IF (IK .EQ. 5) IK = 1 AA = SHP(IJ) BB = SHP(IK) C DO 300 IS = 1,3 EDGSHR(IS,IJ) = (UEV(IS,IJ)+ANGLEI(IJ)*UEV(IS,II))*AA/ 1 (1.0D0-ANGLEI(IJ)*ANGLEI(IJ)) 2 + (UEV(IS,IJ)+ANGLEI(IK)*UEV(IS,IK))*BB/ 3 (1.0D0-ANGLEI(IK)*ANGLEI(IK)) 300 CONTINUE 310 CONTINUE C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 320 IS = 1,4 TMPSHP(IS ) = SHP(IS ) DSHPTP(IS ) = DSHP(IS ) 320 DSHPTP(IS+4) = DSHP(IS+4) DO 330 IS = 1,4 KK = IORDER(IS) SHP (IS ) = TMPSHP(KK ) DSHP(IS ) = DSHPTP(KK ) 330 DSHP(IS+4) = DSHPTP(KK+4) C DO 340 IZTA = 1,2 ZTA = PTINT(IZTA) C C COMPUTE THE JACOBIAN AT THIS GAUSS POINT, C ITS INVERSE AND ITS DETERMINANT. C HZTA = ZTA/2.0D0 CALL JACOB2 (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 1710 C C COMPUTE PSI TRANSPOSE X JACOBIAN INVERSE. C HERE IS THE PLACE WHERE THE INVERSE JACOBIAN IS FLAGED TO BE C TRANSPOSED BECAUSE OF OPPOSITE MATRIX LOADING CONVENTION C BETWEEN INVER AND GMMAT. C CALL GMMATD (PSITRN,3,3,0,JACOB,3,3,1,PHI) C C CALL Q4BMGD TO GET B MATRIX C SET THE ROW FLAG TO 1. IT SIGNALS SAVING THE LAST 2 ROWS. C ROWFLG = 1 CALL Q4BMGD (DSHP,DGPTH,EGPDT,EPNORM,PHI,BMAT1(KPT)) 340 KPT = KPT + ND2 350 CONTINUE C C IN PLANE SHEAR REDUCTION C C IF (.NOT.MEMBRN) GO TO 400 C 360 CONTINUE XI = 0.0D0 ETA = 0.0D0 KPT = 1 KPNT= ND2 C IF (NORPTH) KPNT = NDOF C CALL Q4SHPD (XI,ETA,SHP,DSHP) C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 370 I = 1,4 TMPSHP(I ) = SHP(I ) DSHPTP(I ) = DSHP(I ) 370 DSHPTP(I+4) = DSHP(I+4) DO 380 I = 1,4 KK = IORDER(I) SHP(I ) = TMPSHP(KK ) DSHP(I ) = DSHPTP(KK ) 380 DSHP(I+4) = DSHPTP(KK+4) C C DO 390 IZTA = 1,JZTA DO 390 IZTA = 1,2 C ZTA = PTINTZ(IZTA) ZTA = PTINT(IZTA) HZTA = ZTA/2.0D0 CALL JACOB2 (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 1710 C CALL GMMATD (PSITRN,3,3,0,JACOB,3,3,1,PHI) C C CALL Q4BMGD TO GET B-MATRIX C SET THE ROW FLAG TO 2. IT WILL SAVE THE 3RD ROW OF B-MATRIX AT C THE TWO INTEGRATION POINTS. C ROWFLG = 2 CALL Q4BMGD (DSHP,DGPTH,EGPDT,EPNORM,PHI,XYBMAT(KPT)) 390 KPT = KPT + KPNT C C SET THE ARRAY OF LENGTH 4 TO BE USED IN CALLING TRANSD. C NOTE THAT THE FIRST WORD IS THE COORDINATE SYSTEM ID WHICH C WILL BE SET IN POSITION LATER. C 400 DO 410 IEC = 2,4 410 ECPT(IEC) = 0.0 C C FETCH MATERIAL PROPERTIES C C C EACH MATERIAL PROPERTY MATRIX G HAS TO BE TRANSFORMED FROM C THE MATERIAL COORDINATE SYSTEM TO THE ELEMENT COORDINATE C SYSTEM. THESE STEPS ARE TO BE FOLLOWED- C C 1- IF MCSID HAS BEEN SPECIFIED, SUBROUTINE TRANSD IS CALLED C TO CALCULATE TBM-MATRIX (MATERIAL TO BASIC TRANSFORMATION). C TBM-MATRIX IS THEN PREMULTIPLIED BY TEB-MATRIX TO OBTAIN C TEM-MATRIX. C THEN USING THE PROJECTION OF X-AXIS, AN ANGLE IS CALCULATED C UPON WHICH STEP 2 IS TAKEN. C C 2- IF THETAM HAS BEEN SPECIFIED, SUBROUTINE ANGTRD IS CALLED C TO CALCULATE TEM-MATRIX (MATERIAL TO ELEMENT TRANSFORMATION). C C T C 3- G = U G U C E M C C IF (NEST(11) .EQ. 0) GO TO 470 MCSID = NEST(10) C C CALCULATE TEM-MATRIX USING MCSID C 420 IF (MCSID .GT. 0) GO TO 440 DO 430 I = 1,9 430 TEM(I) = TEB(I) GO TO 450 440 NECPT(1) = MCSID CALL TRANSD (ECPT,TBM) C C MULTIPLY TEB AND TBM MATRICES C CALL GMMATD (TEB,3,3,0,TBM,3,3,0,TEM) C C CALCULATE THETAM FROM THE PROJECTION OF THE X-AXIS OF THE C MATERIAL C.S. ON TO THE XY PLANE OF THE ELEMENT C.S. C 450 CONTINUE XM = TEM(1) YM = TEM(4) IF (DABS(XM).GT.EPS1 .OR. DABS(YM).GT.EPS1) GO TO 460 NEST(2) = MCSID J = 231 GO TO 1720 460 THETAM = DATAN2(YM,XM) GO TO 480 C C CALCULATE TEM-MATRIX USING THETAM C 470 THETAM = DBLE(EST(10))*DEGRAD C IF (THETAM .EQ. 0.0D0) GO TO 490 IF (THETAM .EQ. 0.0D0) GO TO 490 480 CALL ANGTRD (THETAM,1,TUM) CALL GMMATD (TEU,3,3,0,TUM,3,3,0,TEM) GO TO 510 C C DEFAULT IS CHOSEN, LOOK FOR VALUES OF MCSID AND/OR THETAM C ON THE PSHELL CARD. C 490 IF (NEST(24) .EQ. 0) GO TO 500 MCSID = NEST(23) GO TO 420 C 500 THETAM = DBLE(EST(23))*DEGRAD GO TO 480 C 510 CONTINUE IF (HEAT) GO TO 1810 C DO 600 M = 1,36 600 GI(M) = 0.0D0 SINMAT = 0. COSMAT = 0. IGOBK = 0 C C BEGIN M-LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID C M = 0 610 M = M + 1 IF (M .GT. 4) GO TO 790 IF (M.EQ.4 .AND. IGOBK.EQ.1) GO TO 800 MATID = MID(M) IF (MATID.EQ.0 .AND. M.NE.3) GO TO 610 IF (MATID.EQ.0 .AND. M.EQ.3 .AND. .NOT.BENDNG) GO TO 610 IF (MATID.EQ.0 .AND. M.EQ.3 .AND. BENDNG) MATID = MID(2) C IF (M-1) 640,630,620 620 IF (MATID.EQ.MID(M-1) .AND. IGOBK.EQ.0) GO TO 640 630 CALL MAT (ELID) 640 CONTINUE C IF (MEMBRN .AND. M.EQ.1) RHO = MATOUT(7) RHOX = RHO IF (RHO .EQ. 0.0D0) RHOX = 1.0D0 IF (KGG1 .EQ. 0) GO TO 610 C IF (MEMBRN .AND. M.NE.1 .OR. .NOT.MEMBRN .AND. M.NE.2) GO TO 650 GSUBE = MATOUT(12) IF (MATSET .EQ. 8.) GSUBE = MATOUT(16) 650 CONTINUE C IF (M.EQ.2 .AND. NORPTH) GO TO 670 COEFF = 1.0D0 LPOINT = (M-1)*9 + 1 C CALL Q4GMGD (M,COEFF,GI(LPOINT)) C CWKBDB 11/93 SPR93020 C IF (M .GT. 0) GO TO 670 C IF (.NOT.SHRFLX .AND. BENDNG) GO TO 660 C NEST(2) = MATID C J = 232 C GO TO 1720 C C 660 M = -M C ALREADY DELETED BEFORE SPR93020 670 IF (.NOT.BENDNG) GO TO 760 C 670 CONTINUE C MTYPE = IFIX(MATSET+.05) - 2 C IF (NOCSUB) GO TO 760 C GO TO (760,680,720,760), M C C 680 IF (MTYPE) 690,700,710 C 690 ENORX = MATOUT(16) C ENORY = MATOUT(16) C GO TO 760 C 700 ENORX = MATOUT(1) C ENORY = MATOUT(4) C GO TO 760 C 710 ENORX = MATOUT(1) C ENORY = MATOUT(3) C GO TO 760 C C 720 IF (MTYPE) 730,740,750 C 730 GNORX = MATOUT(6) C GNORY = MATOUT(6) C GO TO 760 C C 740 GNORX = MATOUT(1) C GNORY = MATOUT(4) C GO TO 760 C C 750 GNORX = MATOUT(6) C GNORY = MATOUT(5) C IF (GNORX .EQ. 0.0D0) GNORX = MATOUT(4) C IF (GNORY .EQ. 0.0D0) GNORY = MATOUT(4) C 760 CONTINUE C CWKBDE 11/93 SPR93020 C IF (MATSET .EQ. 1.0) GO TO 610 IF (M .EQ. 3) GO TO 770 U(1) = TEM(1)*TEM(1) U(2) = TEM(4)*TEM(4) U(3) = TEM(1)*TEM(4) U(4) = TEM(2)*TEM(2) U(5) = TEM(5)*TEM(5) U(6) = TEM(2)*TEM(5) U(7) = TEM(1)*TEM(2)*2.0D0 U(8) = TEM(4)*TEM(5)*2.0D0 U(9) = TEM(1)*TEM(5) + TEM(2)*TEM(4) L=3 GO TO 780 C 770 U(1) = TEM(5)*TEM(9) + TEM(6)*TEM(8) U(2) = TEM(2)*TEM(9) + TEM(8)*TEM(3) U(3) = TEM(4)*TEM(9) + TEM(7)*TEM(6) U(4) = TEM(1)*TEM(9) + TEM(3)*TEM(7) L = 2 C 780 CALL GMMATD (U(1),L,L,1,GI(LPOINT),L,L,0,GT(1)) CALL GMMATD (GT(1),L,L,0,U(1),L,L,0,GI(LPOINT)) CWKBNB 11/93 SPR93020 IF (M .GT. 0) GO TO 670 IF (.NOT.SHRFLX .AND. BENDNG) GO TO 660 NEST(2) = MATID J = 232 GO TO 1720 660 M = -M 670 CONTINUE MTYPE = IFIX(MATSET+.05) - 2 IF (NOCSUB) GO TO 760 GO TO (760,680,720,760), M CWKBNE 11/93 SPR93020 CWKBNB 2/94 SPR93020 680 IF ( MTYPE ) 690, 700, 710 690 ENORX = MATOUT(16) ENORY = MATOUT(16) DNUX = GI( LPOINT+1 ) / GI( LPOINT ) DNUY = GI( LPOINT+3 ) / GI( LPOINT+4 ) GO TO 760 700 ENORX = MATOUT(1) ENORY = MATOUT(4) DNUX = GI( LPOINT+1 ) / GI( LPOINT ) DNUY = GI( LPOINT+3 ) / GI( LPOINT+4 ) GO TO 760 710 ENORX = MATOUT(1) ENORY = MATOUT(3) DNUX = GI(LPOINT+1)/GI(LPOINT) DNUY = GI(LPOINT+3)/GI(LPOINT+4) CWKBNE 2/94 SPR93020 GO TO 760 720 IF ( MTYPE ) 730, 740, 750 730 GNORX = MATOUT(6) GNORY = MATOUT(6) GO TO 760 740 GNORX = MATOUT(1) GNORY = MATOUT(4) GO TO 760 750 GNORX = MATOUT(6) GNORY = MATOUT(5) IF ( GNORX .EQ. 0.0D0 ) GNORX = MATOUT(4) IF ( GNORY .EQ. 0.0D0 ) GNORY = MATOUT(4) 760 CONTINUE GO TO 610 C C END OF M-LOOP C 790 CONTINUE IF (MID(3) .LT. 100000000) GO TO 800 IF (GI(19).NE.0.D0 .OR. GI(20).NE.0.D0 .OR. GI(21).NE.0.D0 .OR. 1 GI(22).NE.0.D0) GO TO 800 IGOBK = 1 M = 2 MID(3) = MID(2) GO TO 610 800 CONTINUE C NOCSUB = ENORX.EQ.0.0D0 .OR. ENORY.EQ.0.0D0 .OR. 1 GNORX.EQ.0.0D0 .OR. GNORY.EQ.0.0D0 .OR. 2 MOMINR.EQ.0.0D0 C MATTYP = IFIX(MATSET+.05) C C IF MGG1 IS NON-ZERO AND RHO IS GREATER THAN 0.0, C THEN COMPUTE THE MASS MATRIX. C IF (MGG1 .EQ. 0) GO TO 810 IF (JCORED+144 .LE. NCORED) GO TO 810 810 CONTINUE C LIMIT = JCORED + NDOF*NDOF DO 820 I = JCORED,LIMIT 820 AKGG(I) = 0.0D0 DO 830 I = 1,NODESQ XMASS(I) = 0.0D0 830 XMTMP(I) = 0.0D0 AREA = 0.0D0 VOL = 0.0D0 C C C HERE BEGINS THE TRIPLE LOOP ON STATEMENTS 1310 AND 1300 TO C GAUSS INTEGRATE FOR THE ELEMENT MASS AND STIFFNESS MATRICES. C ----------------------------------------------------------- C DO 1310 IXSI = 1,2 XI = PTINT(IXSI) DO 1310 IETA = 1,2 ETA = PTINT(IETA) CALL Q4SHPD (XI,ETA,SHP,DSHP) C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 900 I = 1,4 TMPSHP(I ) = SHP(I ) DSHPTP(I ) = DSHP(I ) 900 DSHPTP(I+4) = DSHP(I+4) DO 910 I = 1,4 KK = IORDER(I) SHP (I ) = TMPSHP(KK ) DSHP(I ) = DSHPTP(KK ) 910 DSHP(I+4) = DSHPTP(KK+4) CALL GMMATD (SHP,1,NNODE,0,DGPTH,1,NNODE,1,THK) REALI = MOMINR*THK*THK*THK/12.0D0 C REALI = THK*THK*THK/12.0D0 TSI = TS*THK C C SKIP MASS CALCULATIONS IF NOT REQUESTED C IF (NSM .NE. 0.0) GO TO 920 IF (MGG1 .EQ. 0) GO TO 1020 IF (RHO .EQ. 0.D0) GO TO 1020 IF (RHO .GT. 0.D0) GO TO 920 WRITE (NOUT,2030) UWM,RHO,MID(1),NEST(1) C NOGO = .TRUE. C GO TO 1710 C C COMPUTE S AND T VECTORS AT THE MID-SURFACE C FOR MASS CALCULATIONS ONLY. C 920 CONTINUE DO 930 I = 1,2 IPOINT = 4*(I-1) DO 930 J = 1,3 V(I,J) = 0.0D0 DO 930 K = 1,NNODE KTEMP = K + IPOINT JTEMP = J + 1 V(I,J)= V(I,J) + DSHP(KTEMP)*BGPDT(JTEMP,K) 930 CONTINUE C C COMPUTE S CROSS T AT THE MID-SURFACE FOR MASS CALCULATIONS. C V(3,1) = V(1,2)*V(2,3) - V(2,2)*V(1,3) V(3,2) = V(1,3)*V(2,1) - V(2,3)*V(1,1) V(3,3) = V(1,1)*V(2,2) - V(2,1)*V(1,2) AREA2 = V(3,1)*V(3,1) + V(3,2)*V(3,2) + V(3,3)*V(3,3) C C AREA2 = NORM OF S CROSS T IS THE AREA OF THE ELEMENT C AS COMPUTED AT THIS GAUSS POINT. C CWKBR 11/93 SPR 93015 IF (AREA2 .LT. EPS1) GO TO 1700 IF ( AREA2 .LE. 0.0 ) GO TO 1700 C AREA2 = DSQRT(AREA2) AREA = AREA + AREA2 VOLI = AREA2*THK VOL = VOL + VOLI C IF (MGG1 .EQ. 0) GO TO 1020 IF (CPMASS .GT. 0) GO TO 1000 I4 = 1 DO 960 J4 = 1,NNODE XMASS(I4) = XMASS(I4) + VOLI*RHOX*SHP(J4) 960 I4 = I4 + NNODE + 1 GO TO 1020 C C COMPUTE CONSISTENT MASS MATRIX C C COMPUTE THE CONTRIBUTION TO THE MASS MATRIX C FROM THIS INTEGRATION POINT. C 1000 CALL GMMATD (SHP,1,NNODE,1,SHP,1,NNODE,0,XMTMP) C C ADD MASS CONTRIBUTION FROM THIS INTEGRATION POINT C TO THE ELEMENT MASS MATRIX. C DO 1010 I = 1,NODESQ 1010 XMASS(I) = XMASS(I) + VOLI*RHOX*XMTMP(I) C 1020 IF (KGG1 .EQ. 0) GO TO 1330 C C BEGIN STIFFNESS COMPUTATIONS C C SET DEFAULT VALUES OF CSUBB FACTORS C SFCTY1 = 1.0D0 SFCTY2 = 1.0D0 SFCTX1 = 1.0D0 SFCTX2 = 1.0D0 TSMFX = 1.0D0 TSMFY = 1.0D0 IF (NOCSUB) GO TO 1090 IF (.NOT.BENDNG) GO TO 1090 C NUNORX = MOMINR*ENORX/(2.0D0*GNORX) - 1.0D0 C NUNORY = MOMINR*ENORY/(2.0D0*GNORY) - 1.0D0 CWKBNB 2/94 SPR93020 NUNORX = MOMINR*ENORX/(2.0D0*GNORX) - 1.0D0 NUNORY = MOMINR*ENORY/(2.0D0*GNORY) - 1.0D0 CWKBNE 2/94 SPR93020 C C NOTE- THE ABOVE EXPRESSIONS FOR NUNORX AND NUNORY WERE MODIFIED C BY G.CHAN/UNISYS 1988 C CWKBDB 2/94 SPR93020 C EIX = MOMINR*ENORX C EIY = MOMINR*ENORY C TGX = 2.0D0*GNORX C TGY = 2.0D0*GNORY C NUNORX = EIX/TGX - 1.0D0 C NUNORY = EIY/TGY - 1.0D0 C IF (EIX .GT. TGX) NUNORX= 1.0D0 - TGX/EIX C IF (EIY .GT. TGY) NUNORY= 1.0D0 - TGY/EIY CWKBDE 2/94 SPR93020 IF (NUNORX .GT. 0.999999D0) NUNORX = 0.999999D0 IF (NUNORY .GT. 0.999999D0) NUNORY = 0.999999D0 CWKBNB 2/94 SPR93020 IF ( NUNORX .LE. 0. ) NUNORX = DNUX IF ( NUNORY .LE. 0. ) NUNORY = DNUY CWKBNE 2/94 SPR93020 C IF (NUNORX .GT. .49D0) NUNORX = 0.49D0 C IF (NUNORY .GT. .49D0) NUNORY = 0.49D0 CC = ASPECT C C NOTE- THE FOLLOWING 2 FORMULATIONS WERE PUT IN ON 4/30/85 IN C CONJUNCTION WITH THE OUT-OF-PLANE SHEAR CORRECTION BASED C ON T.J.R HUGHES. THE FLEXIBLE SOLUTION PROVIDES MORE C ACCURATE RESULTS FOR PLATES, ALTHOUGH IT MIGHT CONVERGE C SLOWLY. THE STIFFER SOLUTION (COMMENTED OUT) IS O.K. FOR C PLATES AND SHOULD HAVE A BETTER CONVERGENCE. C C THEY WERE MODIFIED ON 5/3/85 C C 4-NODE CSUBB FORMULATION AS OF 5/3/85 (FLEXIBLE SOLUTION) C REPLACES THE ONE COMMENTED OUT IMMEDIATELY ABOVE C W1 = 1.0D0 + 4400.0D0*THLEN*THLEN*THLEN*THLEN IF (CC .LT. 0.2D0) GO TO 1030 DSUB4 = (18.375D0-11.875D0*CC)*W1 GO TO 1040 1030 DSUB4 = (159.85D0*CC-15.97D0)*W1 C C 4-NODE CSUBB FORMULATION AS OF 5/3/85 (STIFFER SOLUTION) C C W1 = 1.0D0 + 2.5D0*THLEN + 1.0D04*THLEN**5 C IF (CC .LT. 0.2D0) GO TO 1030 C DSUB4 = 18.0D0*W1 C GO TO 1040 C1030 DSUB4 = (179.85D0*CC-17.97D0)*W1 1040 IF (DSUB4 .LT. .01D0) DSUB4 = 0.01D0 IF (DSUB4 .GT. 2.0D3) DSUB4 = 2000.0D0 DSUB = DSUB4 COEFT = CONST AX = A IF (ETA .LT .0.0D0) AX = A + COEFT*(XA(2)-XA(1)-A) IF (ETA .GT. 0.0D0) AX = A + COEFT*(XA(3)-XA(4)-A) PSIINX = 20.0D0*DSUB*REALI*SINEAX*(1.0D0+ASPECT*ASPECT)/ 1 (TSI*(1.0D0-NUNORX)*AX*AX) DSUB = DSUB4 COEFT = CONST BY = B IF (XI .LT. 0.0D0) BY = B + COEFT*(YB(4)-YB(1)-B) IF (XI .GT. 0.0D0) BY = B + COEFT*(YB(3)-YB(2)-B) PSIINY = 20.0D0*DSUB*REALI*SINEAY*(1.0D0+ASPECT*ASPECT)/ 1 (TSI*(1.0D0-NUNORY)*BY*BY) IF (.NOT.SHRFLX) GO TO 1050 TSMFX = PSIINX/(1.0D0+PSIINX) TSMFY = PSIINY/(1.0D0+PSIINY) GO TO 1060 1050 TSMFX = PSIINX TSMFY = PSIINY C 1060 CONTINUE IF (TSMFX .LE. 0.0D0) TSMFX = EPS1 IF (TSMFY .LE. 0.0D0) TSMFY = EPS1 C C FILL IN THE 7X7 MATERIAL PROPERTY MATRIX D FOR NORPTH C IF (.NOT.NORPTH) GO TO 1090 DO 1070 IG = 1,7 DO 1070 JG = 1,7 1070 DFOUR(IG,JG) = 0.0D0 C DO 1080 IG = 1,3 IG1 = (IG-1)*3 DO 1080 JG = 1,3 JG1 = JG + IG1 1080 DFOUR(IG,JG) = GI(JG1) GO TO 1150 C C FILL IN THE 10X10 G-MATRIX WHEN MID4 IS NOT PRESENT C 1090 DO 1100 IG = 1,10 DO 1100 JG = 1,10 1100 GFOUR(IG,JG) = 0.0D0 IF (MBCOUP) GO TO 1150 C IF (.NOT.MEMBRN) GO TO 1120 DO 1110 IG = 1,3 IG1 = (IG-1)*3 DO 1110 JG = 1,3 JG1 = JG + IG1 1110 GFOUR(IG,JG) = GI(JG1) C 1120 IF (.NOT.BENDNG) GO TO 1250 DO 1130 IG = 4,6 IG2 = (IG-2)*3 DO 1130 JG = 4,6 JG2 = JG + IG2 1130 GFOUR(IG,JG) = GI(JG2)*MOMINR C IF (.NOT.MEMBRN) GO TO 1150 DO 1140 IG = 1,3 IG1 = (IG-1)*3 KG = IG + 3 DO 1140 JG = 1,3 JG1 = JG + IG1 LG = JG + 3 GFOUR(IG,LG) = GI(JG1) 1140 GFOUR(KG,JG) = GI(JG1) 1150 CONTINUE C C IRREGULAR 4-NODE CODE- CALCULATION OF NODAL EDGE SHEARS C AT THIS INTEGRATION POINT C DO 1210 IJ = 1,4 II = IJ - 1 IF (II .EQ. 0) II = 4 IK = IJ + 1 IF (IK .EQ. 5) IK = 1 C DO 1160 IR = 1,4 IF (IJ .NE. IORDER(IR)) GO TO 1160 IOJ = IR GO TO 1170 1160 CONTINUE 1170 DO 1180 IR = 1,4 IF (IK .NE. IORDER(IR)) GO TO 1180 IOK = IR GO TO 1190 1180 CONTINUE 1190 AA = SHP(IOJ) BB = SHP(IOK) C DO 1200 IS = 1,3 EDGSHR(IS,IJ) = (UEV(IS,IJ)+ANGLEI(IJ)*UEV(IS,II))*AA/ 1 (1.0D0-ANGLEI(IJ)*ANGLEI(IJ)) 2 + (UEV(IS,IJ)+ANGLEI(IK)*UEV(IS,IK))*BB/ 3 (1.0D0-ANGLEI(IK)*ANGLEI(IK)) 1200 CONTINUE 1210 CONTINUE C C TORSION-RELATED SHEAR CORRECTION FOR 4-NODE- C SET-UP OF EXPANDED SHEAR MATERIAL PROPERTY MATRICES (G OR D) C CSUBX = 20.0D0*REALI/(TSI*(1.0D0-NUNORX)*A*A) CSUBY = 20.0D0*REALI/(TSI*(1.0D0-NUNORY)*B*B) SFCTR1 = CSUBB4*CSUBX SFCTR2 = CSUBTX*CSUBX IF (.NOT.SHRFLX) GO TO 1220 SFCTR1 = SFCTR1/(1.0D0+SFCTR1) SFCTR2 = SFCTR2/(1.0D0+SFCTR2) 1220 CONTINUE SFCTX1 = SFCTR1 + SFCTR2 SFCTX2 = SFCTR1 - SFCTR2 SFCTR1 = CSUBB4*CSUBY SFCTR2 = CSUBTY*CSUBY IF (.NOT.SHRFLX) GO TO 1230 SFCTR1 = SFCTR1/(1.0D0+SFCTR1) SFCTR2 = SFCTR2/(1.0D0+SFCTR2) 1230 CONTINUE SFCTY1 = SFCTR1 + SFCTR2 SFCTY2 = SFCTR1 - SFCTR2 C C FILL IN THE EXPANDED MATERIAL PROPERTY MATRIX C IF (NORPTH) GO TO 1240 GFOUR( 7, 7) = 0.25D0*SFCTY1*TS*GI(19) GFOUR( 8, 8) = 0.25D0*SFCTY1*TS*GI(19) GFOUR( 8, 7) = 0.25D0*SFCTY2*TS*GI(19) GFOUR( 7, 8) = GFOUR(8,7) GFOUR( 9, 9) = 0.25D0*SFCTX1*TS*GI(22) GFOUR(10,10) = 0.25D0*SFCTX1*TS*GI(22) GFOUR(10, 9) = 0.25D0*SFCTX2*TS*GI(22) GFOUR( 9,10) = GFOUR(10,9) GFOUR( 7, 9) = DSQRT(TSMFX*TSMFY)*TS*GI(20) GFOUR( 9, 7) = GFOUR(7,9) GO TO 1250 C 1240 DFOUR(4,4) = 0.25D0*SFCTY1*TS*GI(19) DFOUR(5,5) = 0.25D0*SFCTY1*TS*GI(19) DFOUR(5,4) = 0.25D0*SFCTY2*TS*GI(19) DFOUR(4,5) = DFOUR(5,4) DFOUR(6,6) = 0.25D0*SFCTX1*TS*GI(22) DFOUR(7,7) = 0.25D0*SFCTX1*TS*GI(22) DFOUR(7,6) = 0.25D0*SFCTX2*TS*GI(22) DFOUR(6,7) = DFOUR(7,6) DFOUR(4,6) = DSQRT(TSMFX*TSMFY)*TS*GI(20) DFOUR(6,4) = DFOUR(4,6) 1250 CONTINUE C C DO 1300 IZTA = 1,JZTA DO 1300 IZTA = 1,2 ZTA = PTINT(IZTA) IBOT = (IZTA-1)*ND2 C HZTA = ZTA/2.0D0 C C TORSION-RELATED SHEAR CORRECTION FOR 4-NODE- C SET-UP OF POINTERS TO THE SAVED B-MATRIX C IPTX1 = ((IXSI-1)*2+IETA-1)*2*ND2 + IBOT IPTX2 = ((IXSI-1)*2+2-IETA)*2*ND2 + IBOT IPTY1 = ((IXSI-1)*2+IETA-1)*2*ND2 + IBOT IPTY2 = ((2-IXSI)*2+IETA-1)*2*ND2 + IBOT C IF (NORPTH) IBOT = IBOT/2 C C FILL IN THE 10X10 G-MATRIX IF MID4 IS PRESENT C IF (.NOT.MBCOUP) GO TO 1290 DO 1260 IG = 1,3 IG1 = (IG-1)*3 DO 1260 JG = 1,3 JG1 = JG + IG1 JG4 = JG1 + 27 1260 GFOUR(IG,JG) = GI(JG1) C DO 1270 IG = 4,6 IG2 = (IG-2)*3 DO 1270 JG = 4,6 JG2 = JG + IG2 JG4 = JG2 + 18 1270 GFOUR(IG,JG) = GI(JG2)*MOMINR C DO 1280 IG = 1,3 IG4 = (IG+8)*3 KG = IG + 3 DO 1280 JG = 1,3 JG4 = JG + IG4 JG1 = JG4 - 27 LG = JG + 3 GFOUR(IG,LG) = -GI(JG4)*ZTA*6.0D0+GI(JG1) 1280 GFOUR(KG,JG) = -GI(JG4)*ZTA*6.0D0+GI(JG1) 1290 CONTINUE C C COMPUTE THE JACOBIAN AT THIS GAUSS POINT, C ITS INVERSE AND ITS DETERMINANT. C CALL JACOB2 (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 1710 C C COMPUTE PSI TRANSPOSE X JACOBIAN INVERSE. C HERE IS THE PLACE WHERE THE INVERSE JACOBIAN IS FLAGED TO BE C TRANSPOSED BECAUSE OF OPPOSITE MATRIX LOADING CONVENTION C BETWEEN INVER AND GMMAT. C CALL GMMATD (PSITRN,3,3,0,JACOB,3,3,1,PHI) C C CALL Q4BMGD TO GET B-MATRIX. SET THE ROW FLAG TO 3. C IT WILL RETURN THE FIRST 6 ROWS OF B-MATRIX. C ROWFLG = 3 CALL Q4BMGD (DSHP,DGPTH,EGPDT,EPNORM,PHI,BFOUR(1)) C C REPLACE ABOVE Q4BMGD BY THE FOLLOWING LINE IF TRPLMD IS NOT USED C CALL Q4BMGD (DSHP,DGPTH,EGPDT,EPNORM,PHI,BMATRX) C C TORSION-RELATED SHEAR CORRECTION FOR 4-NODE - C SET-UP OF B-MATRIX AND TRIPLE MULTIPLY C C CALL TRPLMD (GFOUR,DFOUR,BFOUR,BMAT1,XYBMAT,MATTYP,JCORED,DETJ) C (TRPLMD CAN BE REPLACED BY NEXT 40 (APROX.) LINES) C C ND63 = ND6 C ND74 = ND7 C IF (.NOT.NORPTH) GO TO 1291 C ND63 = ND3 C ND74 = ND4 C1291 DO 1292 IX = 1,NDOF C BFOUR(IX) = BMATRX(IX) C BFOUR(IX+NDOF) = BMATRX(IX+NDOF) C BFOUR(IX+ND2 ) = XYBMAT(IX+IBOT) C BFOUR(IX+ND5 ) = XYBMAT(IX+IBOT+NDOF) C BFOUR(IX+ND63) = BMAT1(IX+IPTY1) C BFOUR(IX+ND74) = BMAT1(IX+IPTY2) C BFOUR(IX+ND74+NDOF) = BMAT1(IX+IPTX1+NDOF) C1292 BFOUR(IX+ND74+ND2 ) = BMAT1(IX+IPTX2+NDOF) C C IF (NORPTH) GO TO 1294 C DO 1293 IX = 1,NDOF C BFOUR(IX+ND3) = BMATRX(IX+ND3) C BFOUR(IX+ND4) = BMATRX(IX+ND4) C1293 CONTINUE C NNX = 10 C CALL GMMATD (GFOUR,NNX,NNX,0,BFOUR,NNX,NDOF,0,STRESR) C GO TO 1295 C C1294 NNX = 7 C CALL GMMATD (DFOUR,NNX,NNX,0,BFOUR,NNX,NDOF,0,STRESR) C1295 NNY = NNX*NDOF C DO 1296 KBAR = 1,NNY C1296 BFOUR(KBAR) = BFOUR(KBAR)*DETJ C C COMPUTE THE CONTRIBUTION TO THE STIFFNESS MATRIX FROM THIS GAUSS C INTEGRATION POINT. NOTE THAT THE -1 IN THE GMMATD CALL KEEPS A C RUNNING SUM ON AKGG. C C CALL GMMATD (BFOUR,NNX,NDOF,-1,STRESR,NNX,NDOF,0,AKGG(JCORED)) C 1300 CONTINUE 1310 CONTINUE C C EQUALIZE THE OFF- DIAGNOAL TERMS TO GUARANTEE PERFECT SYMMETRIC C MATRIX IF NO DAMPING INVLOVED C IF (GSUBE .NE. 0.0) GO TO 1330 IJ = JCORED - 1 NDOFM1 = NDOF - 1 DO 1320 II = 1,NDOFM1 IP1 = II + 1 IM1 = (II-1)*NDOF + IJ DO 1320 JJ = IP1,NDOF I = IM1 + JJ J = (JJ-1)*NDOF + II + IJ TEMP = (AKGG(I) + AKGG(J))*.5D0 IF (DABS(TEMP) .LT. 1.0D-17) TEMP = 0.0D0 AKGG(I) = TEMP AKGG(J) = TEMP 1320 CONTINUE C C END OF STIFFNESS LOOP C C ADD NON-STRUCTURAL MASS C 1330 CONTINUE IF (MGG1 .EQ. 0) GO TO 1410 IF (RHO.EQ.0.D0 .AND. NSM.EQ.0.0) GO TO 1410 C IF (CPMASS .GT. 0) GO TO 1410 IF (NSM .EQ. 0.0) GO TO 1410 IF (VOL.EQ.0.D0 .OR. RHOX.EQ.0.D0) WRITE (NOUT,2060) SFM,ELID, 1 AREA,VOL,RHOX,MGG1,KGG1 FACTOR = (VOL*RHO+NSM*AREA)/(VOL*RHOX) DO 1400 I = 1,NODESQ 1400 XMASS(I) = XMASS(I)*FACTOR 1410 CONTINUE C C PICK UP THE GLOBAL TO BASIC TRANSFORMATIONS FROM THE CSTM. C DO 1412 I = 1,36 1412 TRANS(I) = 0.0D0 C DO 1414 I = 2,8 C1414 TRANS1(I) = 0.0D0 C TRANS1(1) = 1.0D0 C TRANS1(5) = 1.0D0 C TRANS1(9) = 1.0D0 C DO 1450 I = 1,NNODE NOTRAN(I) = 0 IPOINT = 9*(I-1) + 1 IF (IGPDT(1,I) .LE. 0) GO TO 1420 IGPTH(1) = IGPDT(1,I) GPTH (2) = BGPDT(2,I) GPTH (3) = BGPDT(3,I) GPTH (4) = BGPDT(4,I) C C NOTE THAT THE 6X6 TRANSFORMATION WHICH WILL BE USED LATER C IN THE TRIPLE MULTIPLICATION TO TRANSFORM THE ELEMENT C STIFFNESS MATRIX FROM BASIC TO GLOBAL COORDINATES, IS BUILT C UPON THE 3X3 TRANSFORMATION FROM GLOBAL TO BASIC TBG-MATRIX. C THIS IS DUE TO THE DIFFERENCE IN TRANSFORMATION OF ARRAYS C AND MATRICES. C CALL TRANSD (GPTH,TBG) CALL GMMATD (TEB,3,3,0,TBG,3,3,0,TRANS(IPOINT)) GO TO 1450 C 1420 IF (IDENTT.NE.1 .OR. OFFSET.NE.0.0D0) GO TO 1430 NOTRAN(I) = 1 GO TO 1450 C 1430 DO 1440 J = 1,9 1440 TRANS(IPOINT+J-1) = TEB(J) 1450 CONTINUE C C C HERE WE SHIP OUT THE STIFFNESS AND DAMPING MATRICES. C ---------------------------------------------------- C IF (KGG1 .EQ. 0) GO TO 1600 C C SET UP I-LOOP TO DUMP OUT BASIC TO GLOBAL TRANSFORMED, NODAL C PARTITIONED (6 D.O.F. PER NODE) COLUMNS OF THE ELEM. STIFFNESS. C C THIS MEANS WE ARE SENDING TO EMGOUT 6 COLUMNS OF THE ELEMENT C STIFFNESS MATRIX AT A TIME. EACH BUNCH OF 6 COLUMNS CORRESPOND C TO ONE PARTICULAR NODE OF THE ELEMENT. FOR THE MASS MATRIX, WE C ONLY SEND 3 COLUMNS PER NODE TO EMGOUT SINCE THE OTHER 3 D.O.F. C ARE ZERO ANYWAY. THE CODE WORD (DICT(4)) TELLS EMGOUT WHICH C COLUMNS ARE THE NON ZERO ONES THAT WE ARE SENDING. (SEE SECTION C 6.8.3.5.1 OF THE PROGRAMMER MANUAL) C C DICT(1) = ESTID DICT(2) = 1 DICT(3) = NDOF DICT(4) = 63 NPART = NDOF*6 DO 1560 I = 1,NNODE IBEGIN = 6*(I-1) + JCORED - 1 C C DUMP AN UNTRANSFORMED NODAL COLUMN PARTITION. C DO 1500 J = 1,NDOF KPOINT = NDOF*(J-1) + IBEGIN LPOINT = 6*(J-1) DO 1500 K = 1,6 1500 COLSTF(LPOINT+K) = AKGG(KPOINT+K) IF (NOTRAN(I) .EQ. 1) GO TO 1515 C C THIS COLUMN PARTITION NEEDS TO BE TRANSFORMED TO GLOBAL C COORDINATES. (SEE PAGE 2.3-43 OF THE PROGRAMMER MANUAL) C C LOAD THE 6X6 TRANSFORMATION C CALL TLDRD (OFFSET,I,TRANS,TRANS1) C C TRANSFORM THE NODAL COLUMN PARTITION. C CALL GMMATD (COLSTF,NDOF,6,0,TRANS1,6,6,0,COLTMP) DO 1510 II = 1,NPART 1510 COLSTF(II) = COLTMP(II) C C NOW TRANSFORM THE ROWS OF THIS PARTITION. C 1515 DO 1530 M = 1,NNODE IF (NOTRAN(M) .EQ. 1) GO TO 1530 MPOINT = 36*(M-1) + 1 C C LOAD THE 6X6 TRANSFORMATION C CALL TLDRD (OFFSET,M,TRANS,TRANS1) C C TRANSFORM THE 6 ROWS FOR THIS SUBPARTITION C CALL GMMATD (TRANS1,6,6,1,COLSTF(MPOINT),6,6,0,COLTMP) IIPNT = MPOINT - 1 DO 1520 II = 1,36 1520 COLSTF(IIPNT+II) = COLTMP(II) 1530 CONTINUE C C HERE WE MUST CHANGE FROM THE ROW LOADING CONVENTION C FOR GMMATD TO THE COLUMN LOADING CONVENTION FOR EMGOUT. C DO 1550 II = 1,6 IPOINT = NDOF*(II-1) DO 1550 JJ = 1,NDOF JPOINT = 6*(JJ-1) COLTMP(IPOINT+JJ) = COLSTF(JPOINT+II) 1550 CONTINUE C C DUMP THE TRANSFORMED NODAL COLUMN PARTITION C IEOE = 0 IF (I .EQ. NNODE) IEOE = 1 ADAMP = GSUBE C C INTEGER 1 IN THE NEXT TO LAST FORMAL PARAMETER OF C EMGOUT MEANS WE ARE SENDING STIFFNESS DATA. C CALL EMGOUT (COLTMP,COLTMP,NPART,IEOE,DICT,1,IPREC) 1560 CONTINUE C C C HERE WE SHIP OUT THE MASS MATRIX. C --------------------------------- C 1600 IF (MGG1 .EQ. 0) GO TO 1710 C NDOF = NNODE*3 NPART = NDOF*3 DICT(3) = NDOF DICT(4) = 7 ADAMP = 0.0D0 C C SET UP I-LOOP TO PROCESS AND DUMP THE NODAL COLUMN PARTITIONS. C DO 1690 I = 1,NNODE DO 1610 IJK = 1,NPART 1610 AMGG(JCORED-1+IJK) = 0.0D0 C C SET UP J-LOOP TO LOAD THE UNTRANSFORMED NODAL COLUMN PARTITION. C DO 1620 J = 1,NNODE IPOINT = 9*(J-1) + JCORED JPOINT = IPOINT + 4 KPOINT = IPOINT + 8 IFROM = NNODE*(J-1) + I XMASSO = XMASS(IFROM) AMGG(IPOINT) = XMASSO AMGG(JPOINT) = XMASSO AMGG(KPOINT) = XMASSO 1620 CONTINUE IF (NOTRAN(I) .EQ. 1) GO TO 1670 C C THIS COLUMN PARTITION NEEDS TO BE TRANSFORMED C TO GLOBAL COORDINATES. C DO 1640 M = 1,NNODE MPOINT = 9*(M-1) + JCORED CALL GMMATD (AMGG(MPOINT),3,3,0,TRANS(9*I-8),3,3,0,TMPMAS) IICORE = MPOINT - 1 DO 1630 K = 1,9 1630 AMGG(IICORE+K) = TMPMAS(K) 1640 CONTINUE C C SET UP M-LOOP TO TRANSFORM THE NODAL ROW PARTITIONS C OF THIS NODAL COLUMN PARTITION. C DO 1660 M = 1,NNODE MPOINT = 9*(M-1) + JCORED C C TRANSFORM THE 3 ROWS FOR THIS SUBPARTITION. THIS IS CORRECT C (3 ROWS). REMEMBER THAT FOR THE MASS MATIIX FOR THIS ELEMENT C THERE ARE NO MASS MOMENT OF INERTIA TERMS. THIS GIVES THREE C ROWS OF ZERO TERMS INTERSPERSED BETWEEN 3 ROWS OF NONZERO C TRANSLATIONAL MASS TERMS FOR EACH NODE. C CALL GMMATD (TRANS(9*M-8),3,3,1,AMGG(MPOINT),3,3,0,TMPMAS) IICORE = MPOINT - 1 DO 1650 K = 1,9 1650 AMGG(IICORE+K) = TMPMAS(K) 1660 CONTINUE C C HERE WE MUST CHANGE FROM THE ROW LOADING CONVENTION C FOR GMMATD TO THE COLUMN LOADING CONVENTION FOR EMGOUT. C 1670 DO 1680 II = 1,3 IPOINT = NDOF*(II-1) DO 1680 JJ = 1,NDOF JPOINT = 3*(JJ-1) + JCORED - 1 1680 COLTMP(IPOINT+JJ) = AMGG(JPOINT+II) C C DUMP THIS TRANSFORMED MASS NODAL COLUMN PARTITION. C IEOE = 0 IF (I .EQ. NNODE) IEOE = 1 C C INTEGER 2 IN THE NEXT TO LAST FORMAL PARAMETER OF C EMGOUT MEANS WE ARE SENDING MASS DATA. C CALL EMGOUT (COLTMP,COLTMP,NPART,IEOE,DICT,2,IPREC) 1690 CONTINUE GO TO 1710 C 1700 J = 230 GO TO 1720 C 1710 CONTINUE RETURN C 1720 CALL MESAGE (30,J,NEST) IF (L38 .EQ. 1) CALL MESAGE (-61,0,0) NOGO = .TRUE. GO TO 1710 1730 CALL MESAGE (-30,234,NAM) C C C HEAT FLOW OPTION STARTS HERE. C C WE NEED TO RESTORE THE ORIGINAL ORDER OF SILS AND BGPDT DATA C 1790 J = 1 DO 1800 I = 1,20 EST(I+J) = SAVE(I) IF (I .EQ. 4) J = 24 1800 CONTINUE C INFLAG = 2 COSMAT = 1.0 SINMAT = 0.0 MATID = NEST(13) CALL HMAT (ELID) GI(1) = DBLE(KHEAT(1)) GI(2) = DBLE(KHEAT(2)) GI(3) = GI(2) GI(4) = DBLE(KHEAT(3)) ANIS = TYPE.NE.4 .AND. TYPE.NE.-1 C COMMENT- ANIS = .FALSE. MEANS ISOTROPIC THERMAL CONDUCTIVITY. C IF (ANIS) GO TO 400 GO TO 1820 1810 CONTINUE TEM(3) = TEM(4) TEM(4) = TEM(5) CALL GMMATD (TEM,2,2,0,GI,2,2,0,GT) CALL GMMATD (GT,2,2,0,TEM,2,2,1,GI) 1820 CONTINUE DO 1830 I = 1,16 HTCON(I) = 0.0D0 HTCAP(I) = 0.0D0 1830 CONTINUE DO 1840 I = 5,8 HSIL(I) = 0 1840 HORDER(I) = 0 C DO 1890 IXSI = 1,2 XI = PTINT(IXSI) DO 1890 IETA = 1,2 ETA = PTINT(IETA) DO 1870 IZTA = 1,2 ZETA = PTINT(IZTA) C CALL TERMSD (NNODE,DGPTH,EPNORM,EGPDT,HORDER,HSIL,BTERMS) DVOL = DETERM C DO 1850 I = 1,4 1850 ECPT(I) = GI(I)*DVOL WEITC = DVOL*HTCP C IP = 1 DO 1860 I = 1,NNODE IDN = I + NNODE HTFLX(IP+1) = ECPT(3)*BTERMS(I) + ECPT(4)*BTERMS(IDN) HTFLX(IP ) = ECPT(1)*BTERMS(I) + ECPT(2)*BTERMS(IDN) 1860 IP = IP + 2 CALL GMMATD (BTERMS,2,NNODE,-1,HTFLX,NNODE,2,1,HTCON) C 1870 CONTINUE IF (HTCP .EQ. 0.0) GO TO 1890 IP = 0 DO 1880 I = 1,NNODE DHEAT = WEITC*SHP(I) DO 1880 J = 1,NNODE IP = IP + 1 HTCAP(IP) = HTCAP(IP) + DHEAT*SHP(J) 1880 CONTINUE 1890 CONTINUE DICT(1) = ESTID DICT(2) = 1 DICT(3) = NNODE DICT(4) = 1 IF (HTCP .EQ. 0.0) GO TO 1900 ADAMP = 1.0 CALL EMGOUT (HTCAP,HTCAP,NODESQ,1,DICT,3,IPREC) 1900 CONTINUE ADAMP = 0.0 CALL EMGOUT (HTCON,HTCON,NODESQ,1,DICT,1,IPREC) GO TO 1710 C 2010 FORMAT (A23,', THE ELEMENT THICKNESS FOR QUAD4 EID =',I9, 1 ' IS NOT COMPLETELY DEFINED.') 2030 FORMAT (A25,', RHO = ',1P,D12.4,' IS ILLEGAL FROM MATERIAL ID =', 1 I9,' FOR QUAD4 EID =',I9) 2060 FORMAT (A25,', ZERO VOLUME OR DENSITY FOR QUAD4 ELEMENT ID =',I9, 1 ', AREA,VOL,RHO =',3D12.3, /70X,'MGG1,KGG1 =',2I8) END ================================================ FILE: mis/quad4s.f ================================================ SUBROUTINE QUAD4S C C FORMS STIFFNESS AND MASS MATRICES FOR THE QUAD4 PLATE ELEMENT C C SINGLE PRECISION VERSION C C C EST LISTING C C WORD TYPE DESCRIPTION C -------------------------------------------------------------- C 1 I ELEMENT ID, EID C 2 THRU 5 I SILS, GRIDS 1 THRU 4 C 6 THRU 9 R MEMBRANE THICKNESSES T AT GRIDS 1 THRU 4 C 10 R MATERIAL PROPERTY ORIENTATION ANGLE, THETA C OR I COORD. SYSTEM ID (SEE TM ON CQUAD4 CARD) C 11 I TYPE FLAG FOR WORD 10 C 12 R GRID ZOFF (OFFSET) C 13 I MATERIAL ID FOR MEMBRANE, MID1 C 14 R ELEMENT THICKNESS, T (MEMBRANE, UNIFORMED) C 15 I MATERIAL ID FOR BENDING, MID2 C 16 R BENDING INERTIA FACTOR, I C 17 I MATERIAL ID FOR TRANSVERSE SHEAR, MID3 C 18 R TRANSV. SHEAR CORRECTION FACTOR TS/T C 19 R NON-STRUCTURAL MASS, NSM C 20 THRU 21 R Z1, Z2 (STRESS FIBRE DISTANCES) C 22 I MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4 C 23 R MATERIAL ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD) C 24 I TYPE FLAG FOR WORD 23 C 25 I INTEGRATION ORDER C 26 R STRESS ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD) C 27 I TYPE FLAG FOR WORD 26 C 28 R ZOFF1 (OFFSET) OVERRIDDEN BY EST(12) C 29 THRU 44 I/R CID,X,Y,Z - GRIDS 1 THRU 4 C 45 R ELEMENT TEMPERATURE C C LOGICAL HEAT,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,BADJAC, 1 ANIS,NOCSUB,NOGO INTEGER NEST(45),IEGPDT(4,4),CPMASS,FLAGS,NOUT,ELTYPE, 1 ELID,ESTID,SIL(4),KSIL(4),KCID(4),DICT(9), 2 IGPDT(4,4),IGPTH(4),NAM(2),MID(4),TYPE,NECPT(4), 3 ROWFLG,NOTRAN(4),HSIL(8),HORDER(8) REAL TSFACT,EPSI,EPST,EPS,GPTH(4),MATOUT,EGPDT(4,4), 1 GSUBE,BGPDM(3,4),GPNORM(4,4),BGPDT(4,4),ADAMP, 2 MATSET,NSM,EPNORM(4,4),KHEAT,HTCP,SINMAT,COSMAT, 3 ECPT(4),SAVE(20) REAL AMGG(1),AKGG,DGPTH(4),BMAT1(384),XYBMAT(96),ZETA, 1 MOMINR,VOL,VOLI,TH,AREA,AREA2,DETJ,PTINT(2), 2 EPS1,XI,ETA,ZTA,HZTA,THK,XMASSO,V(3,3), 3 COEFF,XMTMP(16),XMASS(16),TMPMAS(9),JACOB(3,3), 4 TMPSHP(4),TMPTHK(4),DSHPTP(8),PSITRN(9),PHI(9), 5 SHP(4),DSHP(8),TGRID(4,4),COLSTF(144),TRANS(36), 6 TRANS1(36),COLTMP(144),AVGTHK,TEMP REAL AA,BB,CC,X31,Y31,X42,Y42,EXI,EXJ,UGPDM(3,4), 1 CENT(3),CENTE(3),TBM(9),TEB(9),TEM(9),TUB(9), 2 TUM(9),TEU(9),TBG(9),GGE(9),GGU(9) REAL RHO,TS,TSI,REALI,RHOX,THETAM,XM,YM,U(9),A,B, 1 ASPECT,THLEN,XA(4),YB(4),GT(9),GI(36),ENORX,ENORY, 2 GNORX,GNORY,NUNORX,NUNORY,DSUB,DSUB4,PSIINX, 3 PSIINY,TSMFX,TSMFY,CURVTR(3,4),CURVE(3),SINEAX, 4 SINEAY,W1,PI,TWOPI,RADDEG,DEGRAD,HTFLX(12),DETERM, 5 HTCAP(16),HTCON(16),DVOL,DHEAT,WEITC,BTERMS(32) REAL ZC(4),UEV,ANGLEI,EDGEL,EDGSHR,UNV,VNT(3,4),ASPCTX, 1 ASPCTY,GFOUR(10,10),DFOUR(7,7),BFOUR(240),CSUBB4, 2 CSUBX,CSUBY,CSUBT,CSUBTX,CSUBTY,SFCTR1,SFCTR2, 3 SFCTX1,SFCTX2,SFCTY1,SFCTY2,OFFSET,CONST CWKBD 2/94 SPR93020 REAL EIX,EIY,TGX,TGY CWKBI 2/94 SPR 93020 REAL DNUX, DNUY CWKBNB 11/93 SPR 93020 REAL VD1(3), VD2(3), VKN(3), VKS(3) 1, V12(3), V41(3), VP12(3),VIS(3), VJS(3) CWKBNE 11/93 SPR 93020 CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM C C ICORE = FIRST WORD OF OPEN CORE C JCORE = NEXT AVAILABLE LOCATION IN OPEN CORE. C NCORE = CURRENT LAST AVAILABLE LOCATION IN OPEN CORE C COMMON /EMGPRM/ ICORE,JCORE,NCORE,ICSTM,NCSTM,IMAT,NMAT,IHMAT, 1 NHMAT,IDIT,NDIT,ICONG,NCONG,LCONG,ANYCON,FLAGS(3), 2 PRECIS,ERROR,HEAT,CPMASS,LCSTM,LMAT,LHMAT, 3 KFLAGS(3),L38 COMMON /EMGEST/ EST(45) COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID COMMON /SYSTEM/ SYS(100) COMMON /MATIN / MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT COMMON /MATOUT/ MATOUT(25) COMMON /HMTOUT/ KHEAT(7),TYPE CZZ COMMON /ZZEMGX/ AKGG(1) COMMON /ZZZZZZ/ AKGG(1) COMMON /Q4DT / DETJ,HZTA,PSITRN,NNODE,BADJAC,N1 COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /Q4COMS/ ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4), 1 UEV(3,4),ROWFLG,IORDER(4) COMMON /CONDAS/ PI,TWOPI,RADDEG,DEGRAD COMMON /COMJAC/ XI,ETA,ZETA,DETERM,DUM2,LTYPFL COMMON /CJACOB/ TH,VI(3),VJ(3),VN(3) COMMON /TRPLM / NDOF,IBOT,IPTX1,IPTX2,IPTY1,IPTY2 EQUIVALENCE (SYS(01) ,SYSBUF ), (SYS(02) ,NOUT ), 1 (SYS(03) ,NOGO ), (SYS(55) ,IPREC ) C EQUIVALENCE (SYS(48) ,ICSUB4 ), (SYS(49) ,ICSUBB ), C 1 (SYS(50) ,ICSUBT ), (SYS(75) ,ICSUB8 ) EQUIVALENCE (FLAGS(1) ,KGG1 ), (FLAGS(2),MGG1 ), 1 (ADAMP ,DICT(5) ), (IGPTH(1),GPTH(1) ), 2 (EST(1) ,NEST(1) ), (INT ,NEST(25) ), 3 (BGPDT(1,1),EST(29) ), (GPTH(1) ,EST(6) ), 4 (ELTH ,EST(14) ), (SIL(1) ,NEST(2) ), 5 (ZOFF ,EST(12) ), (ZOFF1 ,EST(28) ), 6 (AMGG(1) ,AKGG(1) ), (NECPT(1),ECPT(1) ), 7 (HTCP ,KHEAT(4)), (HTFLX(1),TMPMAS(1) ), 8 (HTCAP(1) ,XMASS(1)), (HTCON(1),XMTMP(1) ), 9 (NSM ,EST(19) ), (MATSET ,MATOUT(25)), O (IEGPDT(1,1),EGPDT(1,1)), 1 (IGPDT(1,1) ,BGPDT(1,1)) DATA EPS1 / 1.0E-7 / DATA CONST / 0.57735026918962/ DATA NAM / 4HQUAD,4H4S / C ELID = NEST(1) LTYPFL = 1 OFFSET = ZOFF IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1 C C CHECK FOR SUFFICIENT OPEN CORE FOR ELEMENT STIFFNESS C JCORED = JCORE NCORED = NCORE- 1 IF (JCORED+576.LE.NCORED .OR. HEAT .OR. KGG1.EQ.0) GO TO 10 GO TO 1730 C C COPY THE SILS AND BGPDT DATA INTO SAVE ARRAY SINCE THE DATA C WILL BE REORDERED BASED ON INCREASING SILS. C 10 J = 1 DO 15 I = 1,20 SAVE(I) = EST(I+J) IF (I .EQ. 4) J = 24 15 CONTINUE C NNODE = 4 N1 = 4 NODESQ= NNODE*NNODE NDOF = NNODE*6 NDOF3 = NNODE*3 ND2 = NDOF*2 ND3 = NDOF*3 ND4 = NDOF*4 ND5 = NDOF*5 ND6 = NDOF*6 ND7 = NDOF*7 C C FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS C 1, 2 AND 4. THIS ARRAY WILL BE USED LATER TO DEFINE C THE USER COORDINATE SYSTEM WHILE CALCULATING C TRANSFORMATIONS INVOLVING THIS COORDINATE SYSTEM. C DO 20 I = 1,3 II = (I-1)*3 IJ = I IF (IJ .EQ. 3) IJ = 4 DO 20 J = 1,3 JJ = J + 1 20 GGU(II+J) = BGPDT(JJ,IJ) CWKBD 11/93 SPR93020 CALL BETRNS (TUB,GGU,0,ELID) CWKBNB 11/93 SPR93020 C ADD FROM SHEAR ELEMENT C C COMPUTE DIAGONAL VECTORS C DO 21 I = 1,3 II=I+1 VD1(I) = BGPDT(II,3) - BGPDT(II,1) 21 VD2(I) = BGPDT(II,4) - BGPDT(II,2) C C COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED C AREA, PA C VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2) VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3) VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1) VKL = SQRT( VKN(1)**2 + VKN(2)**2 + VKN(3)**2 ) IF ( VKL .EQ. 0. ) WRITE( NOUT, 2070 ) NEST(1) 2070 FORMAT(//,' ILLEGAL GEOMETRY FOR QUAD4 ELEMENT, ID=',I10 ) VKS(1) = VKN(1)/VKL VKS(2) = VKN(2)/VKL VKS(3) = VKN(3)/VKL CWKBR 9/94 PA = VKL/2.D0 PA = VKL/2.0 C C COMPUTE SIDES -12- AND -41- DO 25 I = 1,3 II = I + 1 V12(I) = BGPDT(II,2) - BGPDT(II,1) V41(I) = BGPDT(II,1) - BGPDT(II,4) 25 CONTINUE C C COMPUTE DOT PRODUCT, V12DK, OR V12 AND VK, THE VECTORS VP12, VI, VJ C V12DK = V12(1)*VKS(1) + V12(2)*VKS(2) + V12(3)*VKS(3) VP12(1) = V12(1) - V12DK*VKS(1) VP12(2) = V12(2) - V12DK*VKS(2) VP12(3) = V12(3) - V12DK*VKS(3) VP12L = SQRT( VP12(1)**2 + VP12(2)**2 + VP12(3)**2 ) IF ( VP12L .EQ. 0. ) WRITE( NOUT, 2070 ) NEST(1) VIS(1) = VP12(1) / VP12L VIS(2) = VP12(2) / VP12L VIS(3) = VP12(3) / VP12L VJS(1) = VKS(2)*VIS(3) - VKS(3)*VIS(2) VJS(2) = VKS(3)*VIS(1) - VKS(1)*VIS(3) VJS(3) = VKS(1)*VIS(2) - VKS(2)*VIS(1) C C NORMALIZE J FOR GOOD MEASURE C VJL = SQRT( VJS(1)**2 + VJS(2)**2 + VJS(3)**2 ) IF ( VJL .EQ. 0. ) WRITE ( NOUT, 2070 ) NEST(1) VJS(1) = VJS(1) / VJL VJS(2) = VJS(2) / VJL VJS(3) = VJS(3) / VJL DO 29 I = 1,3 TUB(I) = VIS(I) TUB(I+3) = VJS(I) TUB(I+6) = VKS(I) 29 CONTINUE CWKBNE 11/93 SPR93020 C C STORE INCOMING BGPDT FOR LUMPED MASS AND ELEMENT C.S. C DO 30 I = 1,3 I1 = I + 1 DO 30 J = 1,4 30 BGPDM(I,J) = BGPDT(I1,J) C C TRANSFORM BGPDM FROM BASIC TO USER C.S. C DO 40 I = 1,3 IP = (I-1)*3 DO 40 J = 1,4 UGPDM(I,J) = 0.0 DO 40 K = 1,3 KK = IP + K 40 UGPDM(I,J) = UGPDM(I,J) + TUB(KK)*((BGPDM(K,J)) - GGU(K)) C C C THE ORIGIN OF THE ELEMENT C.S. IS IN THE MIDDLE OF THE ELEMENT C DO 50 J = 1,3 CENT(J) = 0.0 DO 50 I = 1,4 50 CENT(J) = CENT(J) + UGPDM(J,I)/NNODE C C STORE THE CORNER NODE DIFF. IN THE USER C.S. C X31 = UGPDM(1,3) - UGPDM(1,1) Y31 = UGPDM(2,3) - UGPDM(2,1) X42 = UGPDM(1,4) - UGPDM(1,2) Y42 = UGPDM(2,4) - UGPDM(2,2) AA = SQRT(X31*X31 + Y31*Y31) BB = SQRT(X42*X42 + Y42*Y42) IF (AA.EQ.0.0 .OR. BB.EQ.0.0) GO TO 1700 C C NORMALIZE XIJ'S C X31 = X31/AA Y31 = Y31/AA X42 = X42/BB Y42 = Y42/BB EXI = X31 - X42 EXJ = Y31 - Y42 C C STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT C.S. AND USER C.S. C GGE(1) = CENT(1) GGE(2) = CENT(2) GGE(3) = CENT(3) C GGE(4) = GGE(1) + EXI GGE(5) = GGE(2) + EXJ GGE(6) = GGE(3) C GGE(7) = GGE(1) - EXJ GGE(8) = GGE(2) + EXI GGE(9) = GGE(3) C C THE ARRAY IORDER STORES THE ELEMENT NODE ID IN C INCREASING SIL ORDER. C C IORDER(1) = NODE WITH LOWEST SIL NUMBER C IORDER(4) = NODE WITH HIGHEST SIL NUMBER C C ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE C LIST G1,G2,G3,G4 . THAT IS, THE 'I' PART C OF THE 'GI' AS THEY ARE LISTED ON THE CONNECTIVITY C BULK DATA CARD DESCRIPTION. C DO 60 I = 1,4 IORDER(I) = 0 HORDER(I) = 0 KSIL(I) = SIL(I) HSIL(I) = SIL(I) 60 CONTINUE C DO 80 I = 1,4 ITEMP = 1 ISIL = KSIL(1) DO 70 J = 2,4 IF (ISIL .LE. KSIL(J)) GO TO 70 ITEMP = J ISIL = KSIL(J) 70 CONTINUE IORDER(I) = ITEMP HORDER(I) = ITEMP KSIL(ITEMP) = 99999999 80 CONTINUE C C ADJUST EST DATA C C USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE C GEOMETRY DATA INTO INCREASING SIL ORDER. C DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE C FUNCTIONS GO WITH WHICH GEOMETRIC PARAMETERS! C DO 100 I = 1,4 KSIL(I) = SIL(I) TMPTHK(I) = GPTH(I) KCID(I) = IGPDT(1,I) DO 90 J = 2,4 TGRID(J,I) = BGPDT(J,I) 90 CONTINUE 100 CONTINUE DO 120 I = 1,4 IPOINT = IORDER(I) SIL(I) = KSIL(IPOINT) GPTH(I)= TMPTHK(IPOINT) IGPDT(1,I) = KCID(IPOINT) DO 110 J = 2,4 BGPDT(J,I) = TGRID(J,IPOINT) 110 CONTINUE 120 CONTINUE C C COMPUTE NODE NORMALS C CALL Q4NRMS (BGPDT,GPNORM,IORDER,IFLAG) IF (IFLAG .EQ. 0) GO TO 130 GO TO 1700 C C DETERMINE NODAL THICKNESSES C 130 AVGTHK = 0.0 DO 160 I = 1,NNODE IORD = IORDER(I) DO 140 IC = 1,3 140 CURVTR(IC,IORD) = GPNORM(IC+1,I) C IF (GPTH(I) .EQ. 0.0) GPTH(I) = ELTH IF (NEST(13).EQ.0 .AND. ELTH.EQ.0.) GPTH(I) = 1.0E-14 IF (GPTH(I) .GT. 0.0) GO TO 150 WRITE (NOUT,2010) UFM,ELID NOGO =.TRUE. GO TO 1710 150 DGPTH(I) = GPTH(I) AVGTHK = AVGTHK + DGPTH(I)/NNODE 160 CONTINUE C C NEST(13) = MID1 ID FOR MEMBRANE C NEST(15) = MID2 ID FOR BENDING C NEST(17) = MID3 ID FOR TRANSVERSE SHEAR C NEST(22) = MID4 ID FOR MEMBRANE-BENDING COUPLING C MID4 MUST BE BLANK UNLESS MID1 AND MID2 ARE NON-ZERO C MID4 ID MUST NOT EQUAL MID1 OR MID2 ID C (WHEN LAYER COMPOSITE IS USED, MID ID IS RAISED TO ID*100000000) C EST(14) = MEMBRANE THICKNESS, T C EST(16) = BENDING STIFFNESS PARAMETER, 12I/T**3 C EST(18) = TRNASVERSE SHEAR PARAMETER, TS/T C C 0.8333333 = 5.0/6.0 C MOMINR = 0.0 TSFACT = .8333333 NOCSUB = .FALSE. IF (NEST(15) .NE. 0) MOMINR = EST(16) IF (NEST(17) .NE. 0) TS = EST(18) IF ( EST(18) .EQ. 0.) TS = .8333333 C C FIX FOR LAMINATED COMPOSITE WITH MEMBRANE BEHAVIOUR ONLY. C REQUIRED TO PREVENT ZERO DIVIDE ERRORS. C IF (NEST(15).EQ.0 .AND. NEST(13).GT.100000000) TS = .8333333 C C SET LOGICAL NOCSUB IF EITHER MOMINR OR TS ARE NOT DEFAULT C VALUES. THIS WILL BE USED TO OVERRIDE ALL CSUBB COMPUTATIONS. C I.E. DEFAULT VALUES OF UNITY ARE USED. C EPSI = ABS(MOMINR - 1.0) EPST = ABS(TS - TSFACT) EPS = .05 C NOCSUB = EPSI.GT.EPS .OR. EPST.GT.EPS IF (NEST(13) .GT. 100000000) NOCSUB = .FALSE. C C THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE C TRANSFORMED FROM THE BASIC C.S. TO THE ELEMENT C.S. C C SET IDENTT FLAG TO 1 IF TEB IS AN IDENTITY MATRIX C CALL BETRNS (TEU,GGE,0,ELID) CALL GMMATS (TEU,3,3,0,TUB ,3,3,0,TEB ) CALL GMMATS (TUB,3,3,1,CENT,3,1,0,CENTE) IDENTT = 0 IF (TEB(1).EQ.1.0 .AND. TEB(5).EQ.1.0 .AND. TEB(9).EQ.1.0 .AND. 1 TEB(2).EQ.0.0 .AND. TEB(3).EQ.0.0 .AND. TEB(4).EQ.0.0 .AND. 2 TEB(6).EQ.0.0 .AND. TEB(7).EQ.0.0 .AND. TEB(8).EQ.0.0 3 ) IDENTT = 1 IP = -3 DO 170 II = 2,4 IP = IP + 3 DO 170 J = 1,NNODE EPNORM(II,J) = 0.0 EGPDT(II,J) = 0.0 DO 170 K = 1,3 KK = IP + K K1 = K + 1 CC = BGPDT(K1,J) - GGU(K) - CENTE(K) EPNORM(II,J) = EPNORM(II,J) + TEB(KK)*GPNORM(K1,J) 170 EGPDT(II,J) = EGPDT(II,J) + (TEB(KK)*CC) C C BEGIN INITIALIZING MATERIAL VARIABLES C C SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR- C ISOTROPIC MATERIAL PROPERTIES AMONG THE MAT1 CARDS, C ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND C ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS. C INFLAG = 12 RHO = 0.0 ELTEMP = EST(45) MID(1) = NEST(13) MID(2) = NEST(15) MID(3) = NEST(17) MID(4) = NEST(22) MEMBRN = MID(1).GT.0 BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0 SHRFLX = MID(3).GT.0 MBCOUP = MID(4).GT.0 C C FIGURE OUT PATH OF THE TRIPLE MULTIPLY AND THE NO. OF ROWS C IN B-MATRIX C C NORPTH = MID(1).EQ.MID(2).AND.MID(1).EQ.MID(3).AND.MID(4).EQ.0 C 1 .AND. ABS(MOMINR-1.0).LE.EPS1 NORPTH = .FALSE. C C DETERMINE FACTORS TO BE USED IN CSUBB CALCULATIONS C C IF (.NOT.BENDNG) GO TO 290 DO 210 I = 1,4 DO 200 J = 1,NNODE JO = IORDER(J) IF (I .NE. JO) GO TO 200 XA(I) = EGPDT(2,J) YB(I) = EGPDT(3,J) ZC(I) = EGPDT(4,J) VNT(1,I) = EPNORM(2,J) VNT(2,I) = EPNORM(3,J) VNT(3,I) = EPNORM(4,J) 200 CONTINUE 210 CONTINUE C A = 0.5*ABS(XA(2)+XA(3)-XA(1)-XA(4)) B = 0.5*ABS(YB(4)+YB(3)-YB(1)-YB(2)) IF (A .GT. B) ASPECT = B/A IF (A .LE. B) ASPECT = A/B THLEN = AVGTHK/A IF (A .LT. B) THLEN = AVGTHK/B C C TORSION-RELATED SHEAR CORRECTION FOR 4-NODE- C PRELIMINARY FACTORS C ASPCTX = A/B ASPCTY = B/A CSUBB4 = 1.6 C IF (ICSUBB .NE. 0) CSUBB4 = SYS(49) CSUBT = 71.0*ASPECT*(1.60/CSUBB4)*(1.0+415.0*ASPECT*THLEN**2) CSUBTX = CSUBT*ASPCTX**2 CSUBTY = CSUBT*ASPCTY**2 C I = 2 J = 2 JJ = 3 SINEAX = 0.0 SINEAY = 0.0 220 CALL SAXB (CURVTR(1,I-1),CURVTR(1,I),CURVE) CC = CURVE(1)*CURVE(1) + CURVE(2)*CURVE(2) + CURVE(3)*CURVE(3) IF (CC .LT. EPS1) GO TO 230 CC = 0.5*SQRT(CC) 230 SINEAX = SINEAX + CC IF (I .NE. 2) GO TO 240 I = 4 GO TO 220 C 240 CALL SAXB (CURVTR(1,J),CURVTR(1,JJ),CURVE) CC = CURVE(1)*CURVE(1) + CURVE(2)*CURVE(2) + CURVE(3)*CURVE(3) IF (CC .LT. EPS1) GO TO 250 CC = 0.5*SQRT(CC) 250 SINEAY = SINEAY + CC IF (J .NE. 2) GO TO 260 J = 1 JJ = 4 GO TO 240 260 CC = 28.0 SINEAX =CC*SINEAX + 1.0 SINEAY =CC*SINEAY + 1.0 IF (SINEAX .GT. SINEAY) SINEAY = SINEAX IF (SINEAY .GT. SINEAX) SINEAX = SINEAY C C IRREGULAR 4-NODE CODE- GEOMETRIC VARIABLES C C CALCULATE AND NORMALIZE- UNIT EDGE VECTORS,UNIT NORMAL VECTORS C DO 270 I = 1,4 J = I + 1 IF (J .EQ. 5) J = 1 UEV(1,I) = XA(J) - XA(I) UEV(2,I) = YB(J) - YB(I) UEV(3,I) = ZC(J) - ZC(I) UNV(1,I) = (VNT(1,J) + VNT(1,I))*0.50 UNV(2,I) = (VNT(2,J) + VNT(2,I))*0.50 UNV(3,I) = (VNT(3,J) + VNT(3,I))*0.50 CC = UEV(1,I)**2 + UEV(2,I)**2 + UEV(3,I)**2 IF (CC .EQ. 0.0) GO TO 1700 IF (CC .GE. EPS1) CC = SQRT(CC) EDGEL(I) = CC UEV(1,I) = UEV(1,I)/CC UEV(2,I) = UEV(2,I)/CC UEV(3,I) = UEV(3,I)/CC CC = UNV(1,I)**2 + UNV(2,I)**2 + UNV(3,I)**2 IF (CC .EQ. 0.0) GO TO 1700 IF (CC .GE. EPS1) CC = SQRT(CC) UNV(1,I) = UNV(1,I)/CC UNV(2,I) = UNV(2,I)/CC UNV(3,I) = UNV(3,I)/CC 270 CONTINUE C C CALCULATE INTERNAL NODAL ANGLES C DO 280 I = 1,4 J = I - 1 IF (J .EQ. 0) J = 4 ANGLEI(I) =-UEV(1,I)*UEV(1,J)-UEV(2,I)*UEV(2,J)-UEV(3,I)*UEV(3,J) IF (ABS(ANGLEI(I)) .LT. EPS1) ANGLEI(I) = 0.0 280 CONTINUE C 290 CONTINUE C C SET THE INTEGRATION POINTS C PTINT(1) = -CONST PTINT(2) = CONST C JZTA = 2 C IF (.NOT.BENDNG) PTINTZ(1) = 0.0 C IF (.NOT.BENDNG) JZTA = 1 IF (HEAT) GO TO 1790 C C TRIPLE LOOP TO SAVE THE LAST 2 ROWS OF B-MATRIX AT 2X2X2 C INTEGRATION POINTS FOR LATER MANIPULATION. C IF (KGG1 .EQ. 0) GO TO 400 C IF (.NOT.BENDNG) GO TO 360 I = 1 KPT= 1 C DO 350 IXSI = 1,2 XI = PTINT(IXSI) C DO 350 IETA = 1,2 ETA = PTINT(IETA) C CALL Q4SHPS (XI,ETA,SHP,DSHP) C C IRREGULAR 4-NODE CODE- CALCULATION OF NODAL EDGE SHEARS C AT THIS INTEGRATION POINT C DO 310 IJ = 1,4 II = IJ - 1 IF (II .EQ. 0) II = 4 IK = IJ + 1 IF (IK .EQ. 5) IK = 1 AA = SHP(IJ) BB = SHP(IK) C DO 300 IS = 1,3 EDGSHR(IS,IJ)=(UEV(IS,IJ) + ANGLEI(IJ)*UEV(IS,II))*AA/ 1 (1.0-ANGLEI(IJ)*ANGLEI(IJ)) 2 +(UEV(IS,IJ) + ANGLEI(IK)*UEV(IS,IK))*BB/ 3 (1.0-ANGLEI(IK)*ANGLEI(IK)) 300 CONTINUE 310 CONTINUE C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 320 IS = 1,4 TMPSHP(IS ) = SHP(IS ) DSHPTP(IS ) = DSHP(IS ) 320 DSHPTP(IS+4) = DSHP(IS+4) DO 330 IS = 1,4 KK = IORDER(IS) SHP (IS ) = TMPSHP(KK ) DSHP(IS ) = DSHPTP(KK ) 330 DSHP(IS+4) = DSHPTP(KK+4) C DO 340 IZTA = 1,2 ZTA = PTINT(IZTA) C C COMPUTE THE JACOBIAN AT THIS GAUSS POINT, C ITS INVERSE AND ITS DETERMINANT. C HZTA = ZTA/2.0 CALL JACOBS (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 1710 C C COMPUTE PSI TRANSPOSE X JACOBIAN INVERSE. C HERE IS THE PLACE WHERE THE INVERSE JACOBIAN IS FLAGED TO BE C TRANSPOSED BECAUSE OF OPPOSITE MATRIX LOADING CONVENTION C BETWEEN INVER AND GMMAT. C CALL GMMATS (PSITRN,3,3,0,JACOB,3,3,1,PHI) C C CALL Q4BMGS TO GET B MATRIX C SET THE ROW FLAG TO 1. IT SIGNALS SAVING THE LAST 2 ROWS. C ROWFLG = 1 CALL Q4BMGS (DSHP,DGPTH,EGPDT,EPNORM,PHI,BMAT1(KPT)) 340 KPT = KPT + ND2 350 CONTINUE C C IN PLANE SHEAR REDUCTION C C IF (.NOT.MEMBRN) GO TO 400 C 360 CONTINUE XI = 0.0 ETA = 0.0 KPT = 1 KPNT= ND2 C IF (NORPTH) KPNT = NDOF C CALL Q4SHPS (XI,ETA,SHP,DSHP) C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 370 I = 1,4 TMPSHP(I ) = SHP(I ) DSHPTP(I ) = DSHP(I ) 370 DSHPTP(I+4) = DSHP(I+4) DO 380 I = 1,4 KK = IORDER(I) SHP (I ) = TMPSHP(KK ) DSHP(I ) = DSHPTP(KK ) 380 DSHP(I+4) = DSHPTP(KK+4) C C DO 390 IZTA = 1,JZTA DO 390 IZTA = 1,2 ZTA = PTINT(IZTA) HZTA = ZTA/2.0 CALL JACOBS (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 1710 C CALL GMMATS (PSITRN,3,3,0,JACOB,3,3,1,PHI) C C CALL Q4BMGS TO GET B-MATRIX C SET THE ROW FLAG TO 2. IT WILL SAVE THE 3RD ROW OF B-MATRIX AT C THE TWO INTEGRATION POINTS. C ROWFLG = 2 CALL Q4BMGS (DSHP,DGPTH,EGPDT,EPNORM,PHI,XYBMAT(KPT)) 390 KPT = KPT + KPNT C C SET THE ARRAY OF LENGTH 4 TO BE USED IN CALLING TRANSS. C NOTE THAT THE FIRST WORD IS THE COORDINATE SYSTEM ID WHICH C WILL BE SET IN POSITION LATER. C 400 DO 410 IEC = 2,4 410 ECPT(IEC) = 0.0 C C FETCH MATERIAL PROPERTIES C C C EACH MATERIAL PROPERTY MATRIX G HAS TO BE TRANSFORMED FROM C THE MATERIAL COORDINATE SYSTEM TO THE ELEMENT COORDINATE C SYSTEM. THESE STEPS ARE TO BE FOLLOWED- C C 1- IF MCSID HAS BEEN SPECIFIED, SUBROUTINE TRANSS IS CALLED C TO CALCULATE TBM-MATRIX (MATERIAL TO BASIC TRANSFORMATION). C TBM-MATRIX IS THEN PREMULTIPLIED BY TEB-MATRIX TO OBTAIN C TEM-MATRIX. C THEN USING THE PROJECTION OF X-AXIS, AN ANGLE IS CALCULATED C UPON WHICH STEP 2 IS TAKEN. C C 2- IF THETAM HAS BEEN SPECIFIED, SUBROUTINE ANGTRS IS CALLED C TO CALCULATE TEM-MATRIX (MATERIAL TO ELEMENT TRANSFORMATION). C C T C 3- G = U G U C E M C C IF (NEST(11) .EQ. 0) GO TO 470 MCSID = NEST(10) C C CALCULATE TEM-MATRIX USING MCSID C 420 IF (MCSID .GT. 0) GO TO 440 DO 430 I = 1,9 430 TEM(I) = TEB(I) GO TO 450 440 NECPT(1) = MCSID CALL TRANSS (ECPT,TBM) C C MULTIPLY TEB AND TBM MATRICES C CALL GMMATS (TEB,3,3,0,TBM,3,3,0,TEM) C C CALCULATE THETAM FROM THE PROJECTION OF THE X-AXIS OF THE C MATERIAL C.S. ON TO THE XY PLANE OF THE ELEMENT C.S. C 450 CONTINUE XM = TEM(1) YM = TEM(4) IF (ABS(XM).GT.EPS1 .OR. ABS(YM).GT.EPS1) GO TO 460 NEST(2) = MCSID J = 231 GO TO 1720 460 THETAM = ATAN2(YM,XM) GO TO 480 C C CALCULATE TEM-MATRIX USING THETAM C 470 THETAM = EST(10)*DEGRAD IF (THETAM .EQ. 0.0) GO TO 490 480 CALL ANGTRS (THETAM,1,TUM) CALL GMMATS (TEU,3,3,0,TUM,3,3,0,TEM) GO TO 510 C C DEFAULT IS CHOSEN, LOOK FOR VALUES OF MCSID AND/OR THETAM C ON THE PSHELL CARD. C 490 IF (NEST(24) .EQ. 0) GO TO 500 MCSID = NEST(23) GO TO 420 C 500 THETAM = EST(23)*DEGRAD GO TO 480 C 510 CONTINUE IF (HEAT) GO TO 1810 C DO 600 M = 1,36 600 GI(M) = 0.0 SINMAT = 0.0 COSMAT = 0.0 IGOBK = 0 C C BEGIN M-LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID C M = 0 610 M = M + 1 IF (M .GT. 4) GO TO 790 IF (M.EQ.4 .AND. IGOBK.EQ.1) GO TO 800 MATID = MID(M) IF (MATID.EQ.0 .AND. M.NE.3) GO TO 610 IF (MATID.EQ.0 .AND. M.EQ.3 .AND. .NOT.BENDNG) GO TO 610 IF (MATID.EQ.0 .AND. M.EQ.3 .AND. BENDNG) MATID = MID(2) C IF (M-1) 640,630,620 620 IF (MATID.EQ.MID(M-1) .AND. IGOBK.EQ.0) GO TO 640 630 CALL MAT (ELID) 640 CONTINUE C IF (MEMBRN .AND. M.EQ.1) RHO=MATOUT(7) RHOX = RHO IF (RHO .EQ. 0.0) RHOX = 1.0 IF (KGG1 .EQ. 0) GO TO 610 C IF (MEMBRN .AND. M.NE.1 .OR. .NOT.MEMBRN .AND. M.NE.2) GO TO 650 GSUBE = MATOUT(12) IF (MATSET .EQ. 8.) GSUBE = MATOUT(16) 650 CONTINUE C IF (M.EQ.2 .AND. NORPTH) GO TO 670 COEFF = 1.0 LPOINT = (M-1)*9 + 1 C CALL Q4GMGS (M,COEFF,GI(LPOINT)) C CWKBDB 11/93 SPR93020 C IF (M .GT. 0) GO TO 670 C IF (.NOT.SHRFLX .AND. BENDNG) GO TO 660 C NEST(2) = MATID C J = 232 C GO TO 1720 C C 660 M = -M C 11/93 ALREADY DELETED 670 IF (.NOT.BENDNG) GO TO 760 C 670 CONTINUE C MTYPE = IFIX(MATSET+.05) - 2 C IF (NOCSUB) GO TO 760 C GO TO (760,680,720,760), M C C 680 IF (MTYPE) 690,700,710 C 690 ENORX = MATOUT(16) C ENORY = MATOUT(16) C GO TO 760 C 700 ENORX = MATOUT(1) C ENORY = MATOUT(4) C GO TO 760 C 710 ENORX = MATOUT(1) C ENORY = MATOUT(3) C GO TO 760 C C 720 IF (MTYPE) 730,740,750 C 730 GNORX = MATOUT(6) C GNORY = MATOUT(6) C GO TO 760 C C 740 GNORX = MATOUT(1) C GNORY = MATOUT(4) C GO TO 760 C C 750 GNORX = MATOUT(6) C GNORY = MATOUT(5) C IF (GNORX .EQ. 0.0) GNORX = MATOUT(4) C IF (GNORY .EQ. 0.0) GNORY = MATOUT(4) C 760 CONTINUE CWKBDE 11/93 SPR93020 C C C IF (MATSET .EQ. 1.0) GO TO 610 IF (M .EQ. 3) GO TO 770 U(1) = TEM(1)*TEM(1) U(2) = TEM(4)*TEM(4) U(3) = TEM(1)*TEM(4) U(4) = TEM(2)*TEM(2) U(5) = TEM(5)*TEM(5) U(6) = TEM(2)*TEM(5) U(7) = TEM(1)*TEM(2)*2.0 U(8) = TEM(4)*TEM(5)*2.0 U(9) = TEM(1)*TEM(5) + TEM(2)*TEM(4) L = 3 GO TO 780 C 770 U(1) = TEM(5)*TEM(9) + TEM(6)*TEM(8) U(2) = TEM(2)*TEM(9) + TEM(8)*TEM(3) U(3) = TEM(4)*TEM(9) + TEM(7)*TEM(6) U(4) = TEM(1)*TEM(9) + TEM(3)*TEM(7) L=2 C 780 CALL GMMATS (U(1),L,L,1,GI(LPOINT),L,L,0,GT(1)) CALL GMMATS (GT(1),L,L,0,U(1),L,L,0,GI(LPOINT)) CWKBNB 11/93 SPR93020 IF (M .GT. 0) GO TO 670 IF (.NOT.SHRFLX .AND. BENDNG) GO TO 660 NEST(2) = MATID J = 232 GO TO 1720 660 M = -M 670 CONTINUE MTYPE = IFIX(MATSET+.05) - 2 IF (NOCSUB) GO TO 760 GO TO (760,680,720,760), M CWKBNE 11/93 SPR93020 CWKBNB 2/94 SPR93020 680 IF ( MTYPE ) 690, 700, 710 690 ENORX = MATOUT(16) ENORY = MATOUT(16) DNUX = GI( LPOINT+1 ) / GI( LPOINT ) DNUY = GI( LPOINT+3 ) / GI( LPOINT+4 ) GO TO 760 700 ENORX = MATOUT(1) ENORY = MATOUT(4) DNUX = GI( LPOINT+1 ) / GI( LPOINT ) DNUY = GI( LPOINT+3 ) / GI( LPOINT+4 ) GO TO 760 710 ENORX = MATOUT(1) ENORY = MATOUT(3) DNUX = GI( LPOINT+1 ) / GI( LPOINT ) DNUY = GI( LPOINT+3 ) / GI( LPOINT+4 ) GO TO 760 720 IF ( MTYPE ) 730, 740, 750 730 GNORX = MATOUT(6) GNORY = MATOUT(6) GO TO 760 740 GNORX = MATOUT(1) GNORY = MATOUT(4) GO TO 760 750 GNORX = MATOUT(6) GNORY = MATOUT(5) CWKBDB 9/94 C IF ( GNORX .EQ. 0.0D0 ) GNORX = MATOUT(4) C IF ( GNORY .EQ. 0.0D0 ) GNORY = MATOUT(4) CWKBDE 9/94 CWKBNB 9/94 IF ( GNORX .EQ. 0.0 ) GNORX = MATOUT(4) IF ( GNORY .EQ. 0.0 ) GNORY = MATOUT(4) CWKBNE 9/94 760 CONTINUE CWKBNE 2/94 SPR93020 GO TO 610 C C END OF M-LOOP C 790 CONTINUE IF (MID(3) .LT. 100000000) GO TO 800 IF (GI(19).NE.0.0 .OR. GI(20).NE.0.0 .OR. GI(21).NE.0.0 .OR. 1 GI(22).NE.0.0) GO TO 800 IGOBK = 1 M = 2 MID(3) = MID(2) GO TO 610 800 CONTINUE C NOCSUB = ENORX.EQ.0.0 .OR. ENORY.EQ.0.0 .OR. 1 GNORX.EQ.0.0 .OR. GNORY.EQ.0.0 .OR. 2 MOMINR.EQ.0.0 C MATTYP = IFIX(MATSET+.05) C C IF MGG1 IS NON-ZERO AND RHO IS GREATER THAN 0.0, C THEN COMPUTE THE MASS MATRIX. C IF (MGG1 .EQ. 0) GO TO 810 IF (JCORED+144 .LE. NCORED) GO TO 810 GO TO 1730 810 CONTINUE C LIMIT = JCORED + NDOF*NDOF DO 820 I = JCORED,LIMIT 820 AKGG(I) = 0.0 DO 830 I = 1,NODESQ XMASS(I) = 0.0 830 XMTMP(I) = 0.0 AREA = 0.0 VOL = 0.0 C C C HERE BEGINS THE TRIPLE LOOP ON STATEMENTS 1310 AND 1300 TO C GAUSS INTEGRATE FOR THE ELEMENT MASS AND STIFFNESS MATRICES. C ----------------------------------------------------------- C DO 1310 IXSI = 1,2 XI = PTINT(IXSI) DO 1310 IETA = 1,2 ETA = PTINT(IETA) CALL Q4SHPS (XI,ETA,SHP,DSHP) C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 900 I = 1,4 TMPSHP(I ) = SHP(I ) DSHPTP(I ) = DSHP(I ) 900 DSHPTP(I+4) = DSHP(I+4) DO 910 I = 1,4 KK = IORDER(I) SHP (I ) = TMPSHP(KK ) DSHP(I ) = DSHPTP(KK ) 910 DSHP(I+4) = DSHPTP(KK+4) CALL GMMATS (SHP,1,NNODE,0,DGPTH,1,NNODE,1,THK) REALI = MOMINR*THK*THK*THK/12.0 C REALI = THK*THK*THK/12.0 TSI = TS*THK C C SKIP MASS CALCULATIONS IF NOT REQUESTED C IF (NSM .NE. 0.) GO TO 920 IF (MGG1 .EQ. 0 ) GO TO 1020 IF (RHO .EQ. 0.) GO TO 1020 IF (RHO .GT. 0.) GO TO 920 WRITE (NOUT,2030) UWM,RHO,MID(1),NEST(1) C NOGO =.TRUE. C GO TO 1710 920 CONTINUE C C COMPUTE S AND T VECTORS AT THE MID-SURFACE C FOR MASS CALCULATIONS ONLY. C DO 930 I = 1,2 IPOINT = 4*(I-1) DO 930 J = 1,3 V(I,J) = 0.0 DO 930 K = 1,NNODE KTEMP = K + IPOINT JTEMP = J + 1 V(I,J)= V(I,J) + DSHP(KTEMP)*BGPDT(JTEMP,K) 930 CONTINUE C C COMPUTE S CROSS T AT THE MID-SURFACE FOR MASS CALCULATIONS. C V(3,1) = V(1,2)*V(2,3) - V(2,2)*V(1,3) V(3,2) = V(1,3)*V(2,1) - V(2,3)*V(1,1) V(3,3) = V(1,1)*V(2,2) - V(2,1)*V(1,2) AREA2 = V(3,1)*V(3,1) + V(3,2)*V(3,2) + V(3,3)*V(3,3) C C AREA2 = NORM OF S CROSS T IS THE AREA OF THE ELEMENT C AS COMPUTED AT THIS GAUSS POINT. C CWKBR spr 93015 IF (AREA2 .LT. EPS1) GO TO 1700 IF ( AREA2 .LE. 0.0 ) GO TO 1700 C AREA2 = SQRT(AREA2) AREA = AREA + AREA2 VOLI = AREA2*THK VOL = VOL + VOLI C IF (MGG1 .EQ. 0) GO TO 1020 IF (CPMASS .GT. 0) GO TO 1000 I4 = 1 DO 960 J4 = 1,NNODE XMASS(I4) = XMASS(I4) + VOLI*RHOX*SHP(J4) 960 I4 = I4 + NNODE + 1 GO TO 1020 C C COMPUTE CONSISTENT MASS MATRIX C C COMPUTE THE CONTRIBUTION TO THE MASS MATRIX C FROM THIS INTEGRATION POINT. C 1000 CALL GMMATS (SHP,1,NNODE,1,SHP,1,NNODE,0,XMTMP) C C ADD MASS CONTRIBUTION FROM THIS INTEGRATION POINT C TO THE ELEMENT MASS MATRIX. C DO 1010 I = 1,NODESQ 1010 XMASS(I) = XMASS(I) + VOLI*RHOX*XMTMP(I) C 1020 IF (KGG1 .EQ. 0) GO TO 1330 C C BEGIN STIFFNESS COMPUTATIONS C C SET DEFAULT VALUES OF CSUBB FACTORS C SFCTY1 = 1.0 SFCTY2 = 1.0 SFCTX1 = 1.0 SFCTX2 = 1.0 TSMFX = 1.0 TSMFY = 1.0 IF (NOCSUB) GO TO 1090 IF (.NOT.BENDNG) GO TO 1090 C NUNORX = MOMINR*ENORX/(2.0*GNORX) - 1.0 C NUNORY = MOMINR*ENORY/(2.0*GNORY) - 1.0 CWKBNB 2/94 SPR93020 NUNORX = MOMINR*ENORX/(2.0*GNORX) - 1.0 NUNORY = MOMINR*ENORY/(2.0*GNORY) - 1.0 CWKBNE 2/94 SPR93020 C C NOTE- THE ABOVE EXPRESSIONS FOR NUNORX AND NUNORY WERE MODIFIED C BY G.CHAN/UNISYS 1988 C CWKBDB 2/94 SPR93020 C EIX = MOMINR*ENORX C EIY = MOMINR*ENORY C TGX = 2.0*GNORX C TGY = 2.0*GNORY C NUNORX = EIX/TGX - 1.0 C NUNORY = EIY/TGY - 1.0 C IF (EIX .GT. TGX) NUNORX = 1.0 - TGX/EIX C IF (EIY .GT. TGY) NUNORY = 1.0 - TGY/EIY CWKBDE 2/94 SPR93020 IF (NUNORX .GT. 0.999999) NUNORX = 0.999999 IF (NUNORY .GT. 0.999999) NUNORY = 0.999999 CWKBNB 2/94 SPR93020 IF ( NUNORX .LE. 0. ) NUNORX = DNUX IF ( NUNORY .LE. 0. ) NUNORY = DNUY CWKBNE 2/94 SPR93020 C IF (NUNORX .GT. .49) NUNORX = 0.49 C IF (NUNORY .GT. .49) NUNORY = 0.49 CC = ASPECT C C NOTE- THE FOLLOWING 2 FORMULATIONS WERE PUT IN ON 4/30/85 IN C CONJUNCTION WITH THE OUT-OF-PLANE SHEAR CORRECTION A LA C HUGHES. THE FLEXIBLE SOLUTION PROVIDES MORE ACCURATE C RESULTS FOR PLATES, ALTHOUGH IT MIGHT CONVERGE SLOWLY. C THE STIFFER SOLUTION (COMMENTED OUT) IS O.K. FOR PLATES C AND SHOULD HAVE A BETTER CONVERGENCE. C C THEY WERE MODIFIED ON 5/3/85 C C C 4-NODE CSUBB FORMULATION AS OF 5/3/85 (FLEXIBLE SOLUTION) C REPLACES THE ONE COMMENTED OUT IMMEDIATELY ABOVE C W1 = 1.0 + 4400.0*THLEN*THLEN*THLEN*THLEN IF (CC .LT. 0.2) GO TO 1030 DSUB4 = (18.375-11.875*CC)*W1 GO TO 1040 1030 DSUB4 = (159.85*CC-15.97)*W1 C C 4-NODE CSUBB FORMULATION AS OF 5/3/85 (STIFFER SOLUTION) C C W1 = 1.0 + 2.5*THLEN + 1.04*THLEN**5 C IF (CC .LT. 0.2) GO TO 1030 C DSUB4 = 18.0*W1 C GO TO 1040 C1030 DSUB4 = (179.85*CC-17.97)*W1 1040 IF (DSUB4 .LT. 0.01) DSUB4 = 0.01 IF (DSUB4 .GT. 2000.0) DSUB4 = 2000.0 DSUB = DSUB4 COEFT = CONST AX = A IF (ETA .LT. 0.0) AX = A + COEFT*(XA(2)-XA(1)-A) IF (ETA .GT. 0.0) AX = A + COEFT*(XA(3)-XA(4)-A) PSIINX = 20.0*DSUB*REALI*SINEAX*(1.0+ASPECT*ASPECT)/ 1 (TSI*(1.0-NUNORX)*AX*AX) DSUB = DSUB4 COEFT = CONST BY = B IF (XI .LT. 0.0) BY = B + COEFT*(YB(4)-YB(1)-B) IF (XI .GT. 0.0) BY = B + COEFT*(YB(3)-YB(2)-B) PSIINY = 20.0*DSUB*REALI*SINEAY*(1.0+ASPECT*ASPECT)/ 1 (TSI*(1.0-NUNORY)*BY*BY) IF (.NOT.SHRFLX) GO TO 1050 TSMFX = PSIINX/(1.0+PSIINX) TSMFY = PSIINY/(1.0+PSIINY) GO TO 1060 1050 TSMFX = PSIINX TSMFY = PSIINY GO TO 1060 C 1060 CONTINUE IF (TSMFX .LE. 0.0) TSMFX = EPS1 IF (TSMFY .LE. 0.0) TSMFY = EPS1 C C FILL IN THE 7X7 MATERIAL PROPERTY MATRIX D FOR NORPTH C IF (.NOT.NORPTH) GO TO 1090 DO 1070 IG = 1,7 DO 1070 JG = 1,7 1070 DFOUR(IG,JG) = 0.0 C DO 1080 IG = 1,3 IG1 = (IG-1)*3 DO 1080 JG = 1,3 JG1 = JG + IG1 1080 DFOUR(IG,JG) = GI(JG1) GO TO 1150 C C FILL IN THE 10X10 G-MATRIX WHEN MID4 IS NOT PRESENT C 1090 DO 1100 IG = 1,10 DO 1100 JG = 1,10 1100 GFOUR(IG,JG) = 0.0 IF (MBCOUP) GO TO 1150 C IF (.NOT.MEMBRN) GO TO 1120 DO 1110 IG = 1,3 IG1 = (IG-1)*3 DO 1110 JG = 1,3 JG1 = JG + IG1 1110 GFOUR(IG,JG) = GI(JG1) C 1120 IF (.NOT.BENDNG) GO TO 1250 DO 1130 IG = 4,6 IG2 = (IG-2)*3 DO 1130 JG = 4,6 JG2 = JG + IG2 1130 GFOUR(IG,JG) = GI(JG2)*MOMINR C IF (.NOT.MEMBRN) GO TO 1150 DO 1140 IG = 1,3 IG1 = (IG-1)*3 KG = IG + 3 DO 1140 JG = 1,3 JG1 = JG + IG1 LG = JG + 3 GFOUR(IG,LG) = GI(JG1) 1140 GFOUR(KG,JG) = GI(JG1) 1150 CONTINUE C C IRREGULAR 4-NODE CODE- CALCULATION OF NODAL EDGE SHEARS C AT THIS INTEGRATION POINT C DO 1210 IJ = 1,4 II = IJ - 1 IF (II .EQ. 0) II = 4 IK = IJ + 1 IF (IK .EQ. 5) IK = 1 C DO 1160 IR = 1,4 IF (IJ .NE. IORDER(IR)) GO TO 1160 IOJ = IR GO TO 1170 1160 CONTINUE 1170 DO 1180 IR = 1,4 IF (IK .NE. IORDER(IR)) GO TO 1180 IOK = IR GO TO 1190 1180 CONTINUE 1190 AA = SHP(IOJ) BB = SHP(IOK) C DO 1200 IS = 1,3 EDGSHR(IS,IJ) = (UEV(IS,IJ)+ANGLEI(IJ)*UEV(IS,II))*AA/ 1 (1.0-ANGLEI(IJ)*ANGLEI(IJ)) 2 + (UEV(IS,IJ)+ANGLEI(IK)*UEV(IS,IK))*BB/ 3 (1.0-ANGLEI(IK)*ANGLEI(IK)) 1200 CONTINUE 1210 CONTINUE C C TORSION-RELATED SHEAR CORRECTION FOR 4-NODE- C SET-UP OF EXPANDED SHEAR MATERIAL PROPERTY MATRICES (G OR D) C CSUBX = 20.0*REALI/(TSI*(1.0-NUNORX)*A*A) CSUBY = 20.0*REALI/(TSI*(1.0-NUNORY)*B*B) SFCTR1 = CSUBB4*CSUBX SFCTR2 = CSUBTX*CSUBX IF (.NOT.SHRFLX) GO TO 1220 SFCTR1 = SFCTR1/(1.0+SFCTR1) SFCTR2 = SFCTR2/(1.0+SFCTR2) 1220 CONTINUE SFCTX1 = SFCTR1 + SFCTR2 SFCTX2 = SFCTR1 - SFCTR2 SFCTR1 = CSUBB4*CSUBY SFCTR2 = CSUBTY*CSUBY IF (.NOT.SHRFLX) GO TO 1230 SFCTR1 = SFCTR1/(1.0+SFCTR1) SFCTR2 = SFCTR2/(1.0+SFCTR2) 1230 CONTINUE SFCTY1 = SFCTR1 + SFCTR2 SFCTY2 = SFCTR1 - SFCTR2 C C FILL IN THE EXPANDED MATERIAL PROPERTY MATRIX C IF (NORPTH) GO TO 1240 GFOUR( 7, 7) = 0.25*SFCTY1*TS*GI(19) GFOUR( 8, 8) = 0.25*SFCTY1*TS*GI(19) GFOUR( 8, 7) = 0.25*SFCTY2*TS*GI(19) GFOUR( 7, 8) = GFOUR(8,7) GFOUR( 9, 9) = 0.25*SFCTX1*TS*GI(22) GFOUR(10,10) = 0.25*SFCTX1*TS*GI(22) GFOUR(10, 9) = 0.25*SFCTX2*TS*GI(22) GFOUR( 9,10) = GFOUR(10,9) GFOUR( 7, 9) = SQRT(TSMFX*TSMFY)*TS*GI(20) GFOUR( 9, 7) = GFOUR(7,9) GO TO 1250 C 1240 DFOUR(4,4) = 0.25*SFCTY1*TS*GI(19) DFOUR(5,5) = 0.25*SFCTY1*TS*GI(19) DFOUR(5,4) = 0.25*SFCTY2*TS*GI(19) DFOUR(4,5) = DFOUR(5,4) DFOUR(6,6) = 0.25*SFCTX1*TS*GI(22) DFOUR(7,7) = 0.25*SFCTX1*TS*GI(22) DFOUR(7,6) = 0.25*SFCTX2*TS*GI(22) DFOUR(6,7) = DFOUR(7,6) DFOUR(4,6) = SQRT(TSMFX*TSMFY)*TS*GI(20) DFOUR(6,4) = DFOUR(4,6) 1250 CONTINUE C C DO 1300 IZTA = 1,JZTA DO 1300 IZTA = 1,2 ZTA = PTINT(IZTA) IBOT = (IZTA-1)*ND2 C HZTA = ZTA/2.0 C C TORSION-RELATED SHEAR CORRECTION FOR 4-NODE- C SET-UP OF POINTERS TO THE SAVED B-MATRIX C IPTX1 = ((IXSI-1)*2+IETA-1)*2*ND2 + IBOT IPTX2 = ((IXSI-1)*2+2-IETA)*2*ND2 + IBOT IPTY1 = ((IXSI-1)*2+IETA-1)*2*ND2 + IBOT IPTY2 = ((2-IXSI)*2+IETA-1)*2*ND2 + IBOT C IF (NORPTH) IBOT = IBOT/2 C C FILL IN THE 10X10 G-MATRIX IF MID4 IS PRESENT C IF (.NOT.MBCOUP) GO TO 1290 DO 1260 IG = 1,3 IG1 = (IG-1)*3 DO 1260 JG = 1,3 JG1 = JG + IG1 JG4 = JG1 + 27 1260 GFOUR(IG,JG) = GI(JG1) C DO 1270 IG = 4,6 IG2 = (IG-2)*3 DO 1270 JG = 4,6 JG2 = JG + IG2 JG4 = JG2 + 18 1270 GFOUR(IG,JG) = GI(JG2)*MOMINR C DO 1280 IG = 1,3 IG4 = (IG+8)*3 KG = IG + 3 DO 1280 JG = 1,3 JG4 = JG + IG4 JG1 = JG4 - 27 LG = JG + 3 GFOUR(IG,LG) =-GI(JG4)*ZTA*6.0+GI(JG1) 1280 GFOUR(KG,JG) =-GI(JG4)*ZTA*6.0+GI(JG1) 1290 CONTINUE C C COMPUTE THE JACOBIAN AT THIS GAUSS POINT, C ITS INVERSE AND ITS DETERMINANT. C CALL JACOBS (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 1710 C C COMPUTE PSI TRANSPOSE X JACOBIAN INVERSE. C HERE IS THE PLACE WHERE THE INVERSE JACOBIAN IS FLAGED TO BE C TRANSPOSED BECAUSE OF OPPOSITE MATRIX LOADING CONVENTION C BETWEEN INVER AND GMMAT. C CALL GMMATS (PSITRN,3,3,0,JACOB,3,3,1,PHI) C C CALL Q4BMGS TO GET B-MATRIX. SET THE ROW FLAG TO 3. C IT WILL RETURN THE FIRST 6 ROWS OF B-MATRIX. C ROWFLG = 3 CALL Q4BMGS (DSHP,DGPTH,EGPDT,EPNORM,PHI,BFOUR(1)) C C SET-UP OF B-MATRIX AND TRIPLE MULTIPLY C CALL TRPLMS (GFOUR,DFOUR,BFOUR,BMAT1,XYBMAT,MATTYP,JCORED,DETJ) 1300 CONTINUE 1310 CONTINUE C C EQUALIZE THE OFF-DIAGONAL TERMS TO GUARANTEE PERFECT SYMMETRIC C MATRIX IF NO DAMPING INVOLVED C IF (GSUBE .NE. 0.0) GO TO 1330 IJ = JCORED - 1 NDOFM1 = NDOF - 1 DO 1320 II = 1,NDOFM1 IP1 = II + 1 IM1 =(II-1)*NDOF + IJ DO 1320 JJ = IP1,NDOF I = IM1 + JJ J = (JJ-1)*NDOF + II + IJ TEMP = (AKGG(I) + AKGG(J))*.5 IF (ABS(TEMP) .LT. 1.0E-17) TEMP = 0.0 AKGG(I) = TEMP AKGG(J) = TEMP 1320 CONTINUE C C END OF STIFFNESS LOOP C C ADD NON-STRUCTURAL MASS C 1330 CONTINUE IF (MGG1 .EQ. 0) GO TO 1410 IF (RHO.EQ.0.0 .AND. NSM.EQ.0.0) GO TO 1410 C IF (CPMASS .GT. 0) GO TO 1410 IF (NSM .EQ. 0.0) GO TO 1410 IF (VOL.EQ.0. .OR. RHOX.EQ.0.) WRITE (NOUT,2060) SFM,ELID,AREA, 1 VOL,RHOX,MGG1,KGG1 FACTOR = (VOL*RHO+NSM*AREA)/(VOL*RHOX) DO 1400 I = 1,NODESQ 1400 XMASS(I) = XMASS(I)*FACTOR 1410 CONTINUE C C PICK UP THE GLOBAL TO BASIC TRANSFORMATIONS FROM THE CSTM. C DO 1412 I = 1,36 1412 TRANS(I) = 0.0 C DO 1414 I = 2,8 C1414 TRANS1(I) = 0.0 C TRANS1(1) = 1.0 C TRANS1(5) = 1.0 C TRANS1(9) = 1.0 C DO 1450 I = 1,NNODE NOTRAN(I) = 0 IPOINT = 9*(I-1) + 1 IF (IGPDT(1,I) .LE. 0) GO TO 1420 IGPTH(1) = IGPDT(1,I) GPTH(2) = BGPDT(2,I) GPTH(3) = BGPDT(3,I) GPTH(4) = BGPDT(4,I) C C NOTE THAT THE 6X6 TRANSFORMATION WHICH WILL BE USED LATER C IN THE TRIPLE MULTIPLICATION TO TRANSFORM THE ELEMENT C STIFFNESS MATRIX FROM BASIC TO GLOBAL COORDINATES, IS BUILT C UPON THE 3X3 TRANSFORMATION FROM GLOBAL TO BASIC TBG-MATRIX. C THIS IS DUE TO THE DIFFERENCE IN TRANSFORMATION OF ARRAYS C AND MATRICES. C CALL TRANSS (GPTH,TBG) CALL GMMATS (TEB,3,3,0,TBG,3,3,0,TRANS(IPOINT)) GO TO 1450 C 1420 IF (IDENTT.NE.1 .OR. OFFSET.NE.0.0) GO TO 1430 NOTRAN(I) = 1 GO TO 1450 C 1430 DO 1440 J = 1,9 1440 TRANS(IPOINT+J-1) = TEB(J) 1450 CONTINUE C C C HERE WE SHIP OUT THE STIFFNESS AND DAMPING MATRICES. C --------------------------------------------------- C IF (KGG1 .EQ. 0) GO TO 1600 C C SET UP I-LOOP TO DUMP OUT BASIC TO GLOBAL TRANSFORMED, NODAL C PARTITIONED (6 D.O.F. PER NODE) COLUMNS OF THE ELEMENT STIFFNESS. C C THIS MEANS WE ARE SENDING TO EMGOUT 6 COLUMNS OF THE ELEMENT C STIFFNESS MATRIX AT TIME. EACH BUNCH OF 6 COLUMNS CORRESPOND C TO ONE PARTICULAR NODE OF THE ELEMENT. FOR THE MASS MATRIX, WE C ONLY SEND 3 COLUMNS PER NODE TO EMGOUT SINCE THE OTHER 3 D.O.F. C ARE ZERO ANYWAY. THE CODE WORD (DICT(4)) TELLS EMGOUT WHICH C COLUMNS ARE THE NON ZERO ONES THAT WE ARE SENDING. (SEE SECTION C 6.8.3.5.1 OF THE PROGRAMMER MANUAL) C C DICT(1) = ESTID DICT(2) = 1 DICT(3) = NDOF DICT(4) = 63 NPART = NDOF*6 DO 1560 I = 1,NNODE IBEGIN = 6*(I-1) + JCORED - 1 C C DUMP AN UNTRANSFORMED NODAL COLUMN PARTITION. C DO 1500 J = 1,NDOF KPOINT = NDOF*(J-1) + IBEGIN LPOINT = 6*(J-1) DO 1500 K = 1,6 1500 COLSTF(LPOINT+K) = AKGG(KPOINT+K) IF (NOTRAN(I) .EQ. 1) GO TO 1515 C C THIS COLUMN PARTITION NEEDS TO BE TRANSFORMED TO GLOBAL C COORDINATES. (SEE PAGE 2.3-43 OF THE PROGRAMMER) C C LOAD THE 6X6 TRANSFORMATION C CALL TLDRS (OFFSET,I,TRANS,TRANS1) C C TRANSFORM THE NODAL COLUMN PARTITION. C CALL GMMATS (COLSTF,NDOF,6,0,TRANS1,6,6,0,COLTMP) DO 1510 II = 1,NPART 1510 COLSTF(II) = COLTMP(II) C C NOW TRANSFORM THE ROWS OF THIS PARTITION. C 1515 DO 1530 M = 1,NNODE IF (NOTRAN(M) .EQ. 1) GO TO 1530 MPOINT = 36*(M-1) + 1 C C LOAD THE 6X6 TRANSFORMATION C CALL TLDRS (OFFSET,M,TRANS,TRANS1) C C TRANSFORM THE 6 ROWS FOR THIS SUBPARTITION C CALL GMMATS (TRANS1,6,6,1,COLSTF(MPOINT),6,6,0,COLTMP) IIPNT = MPOINT - 1 DO 1520 II = 1,36 1520 COLSTF(IIPNT+II) = COLTMP(II) 1530 CONTINUE C C HERE WE MUST CHANGE FROM THE ROW LOADING CONVENTION C FOR GMMATS TO THE COLUMN LOADING CONVENTION FOR EMGOUT. C DO 1550 II = 1,6 IPOINT = NDOF*(II-1) DO 1550 JJ = 1,NDOF JPOINT = 6*(JJ-1) COLTMP(IPOINT+JJ) = COLSTF(JPOINT+II) 1550 CONTINUE C C DUMP THE TRANSFORMED NODAL COLUMN PARTITION C IEOE = 0 IF (I .EQ. NNODE) IEOE = 1 ADAMP = GSUBE C C INTEGER 1 IN THE NEXT TO LAST FORMAL PARAMETER OF C EMGOUT MEANS WE ARE SENDING STIFFNESS DATA. C CALL EMGOUT (COLTMP,COLTMP,NPART,IEOE,DICT,1,IPREC) 1560 CONTINUE C C C HERE WE SHIP OUT THE MASS MATRIX. C -------------------------------- C 1600 IF (MGG1 .EQ. 0) GO TO 1710 C NDOF = NNODE*3 NPART = NDOF*3 DICT(3) = NDOF DICT(4) = 7 ADAMP = 0.0 C C SET UP I-LOOP TO PROCESS AND DUMP THE NODAL COLUMN PARTITIONS. C DO 1690 I = 1,NNODE DO 1610 IJK = 1,NPART 1610 AMGG(JCORED-1+IJK) = 0.0 C C SET UP J-LOOP TO LOAD THE UNTRANSFORMED NODAL COLUMN PARTITION. C DO 1620 J = 1,NNODE IPOINT = 9*(J-1) + JCORED JPOINT = IPOINT + 4 KPOINT = IPOINT + 8 IFROM = NNODE*(J-1) + I XMASSO = XMASS(IFROM) AMGG(IPOINT) = XMASSO AMGG(JPOINT) = XMASSO AMGG(KPOINT) = XMASSO 1620 CONTINUE IF (NOTRAN(I) .EQ. 1) GO TO 1670 C C THIS COLUMN PARTITION NEEDS TO BE TRANSFORMED C TO GLOBAL COORDINATES. C DO 1640 M = 1,NNODE MPOINT = 9*(M-1) + JCORED CALL GMMATS (AMGG(MPOINT),3,3,0,TRANS(9*I-8),3,3,0,TMPMAS) IICORE = MPOINT - 1 DO 1630 K = 1,9 1630 AMGG(IICORE+K) = TMPMAS(K) 1640 CONTINUE C C SET UP M-LOOP TO TRANSFORM THE NODAL ROW PARTITIONS C OF THIS NODAL COLUMN PARTITION. C DO 1660 M = 1,NNODE MPOINT = 9*(M-1) + JCORED C C TRANSFORM THE 3 ROWS FOR THIS SUBPARTITION. THIS IS CORRECT C (3 ROWS). REMEMBER THAT FOR THE MASS MATIIX FOR THIS ELEMENT C THERE ARE NO MASS MOMENT OF INERTIA TERMS. THIS GIVES THREE C ROWS OF ZERO TERMS INTERSPERSED BETWEEN 3 ROWS OF NONZERO C TRANSLATIONAL MASS TERMS FOR EACH NODE. C CALL GMMATS (TRANS(9*M-8),3,3,1,AMGG(MPOINT),3,3,0,TMPMAS) IICORE = MPOINT - 1 DO 1650 K = 1,9 1650 AMGG(IICORE+K) = TMPMAS(K) 1660 CONTINUE C C HERE WE MUST CHANGE FROM THE ROW LOADING CONVENTION C FOR GMMATS TO THE COLUMN LOADING CONVENTION FOR EMGOUT. C 1670 DO 1680 II = 1,3 IPOINT = NDOF*(II-1) DO 1680 JJ = 1,NDOF JPOINT = 3*(JJ-1) + JCORED - 1 1680 COLTMP(IPOINT+JJ) = AMGG(JPOINT+II) C C DUMP THIS TRANSFORMED MASS NODAL COLUMN PARTITION. C IEOE = 0 IF (I .EQ. NNODE) IEOE = 1 C C INTEGER 2 IN THE NEXT TO LAST FORMAL PARAMETER OF C EMGOUT MEANS WE ARE SENDING MASS DATA. C CALL EMGOUT (COLTMP,COLTMP,NPART,IEOE,DICT,2,IPREC) 1690 CONTINUE GO TO 1710 C 1700 J = 230 GO TO 1720 C 1710 CONTINUE RETURN C 1720 CALL MESAGE (30,J,NEST) IF (L38 .EQ. 1) CALL MESAGE (-61,0,0) NOGO = .TRUE. GO TO 1710 1730 CALL MESAGE (-30,234,NAM) C C C HEAT FLOW OPTION STARTS HERE. C C WE NEED TO RESTORE THE ORIGIANL ORDER OF SILS AND BGPDT DATA C 1790 J = 1 DO 1800 I = 1,20 EST(I+J) = SAVE(I) IF (I .EQ. 4) J = 24 1800 CONTINUE C INFLAG = 2 COSMAT = 1.0 SINMAT = 0.0 MATID = NEST(13) CALL HMAT (ELID) GI(1) = KHEAT(1) GI(2) = KHEAT(2) GI(3) = GI(2) GI(4) = KHEAT(3) ANIS = TYPE.NE.4 .AND. TYPE.NE.-1 C OMMENT . ANIS = .FALSE. MEANS ISOTROPIC THERMAL CONDUCTIVITY. IF (ANIS) GO TO 400 GO TO 1820 1810 CONTINUE TEM(3) = TEM(4) TEM(4) = TEM(5) CALL GMMATS (TEM,2,2,0,GI,2,2,0,GT) CALL GMMATS (GT,2,2,0,TEM,2,2,1,GI) 1820 CONTINUE DO 1830 I = 1,16 HTCON(I) = 0.0 HTCAP(I) = 0.0 1830 CONTINUE DO 1840 I = 5,8 HSIL(I) = 0 1840 HORDER(I) = 0 C DO 1890 IXSI = 1,2 XI = PTINT(IXSI) DO 1890 IETA = 1,2 ETA = PTINT(IETA) C DO 1870 IZTA = 1,2 ZETA = PTINT(IZTA) C CALL TERMSS (NNODE,DGPTH,EPNORM,EGPDT,HORDER,HSIL,BTERMS) DVOL = DETERM C DO 1850 I = 1,4 1850 ECPT(I) = GI(I)*DVOL WEITC = DVOL*HTCP C IP = 1 DO 1860 I = 1,NNODE IDN = I + NNODE HTFLX(IP+1) = ECPT(3)*BTERMS(I) + ECPT(4)*BTERMS(IDN) HTFLX(IP ) = ECPT(1)*BTERMS(I) + ECPT(2)*BTERMS(IDN) 1860 IP = IP + 2 CALL GMMATS (BTERMS,2,NNODE,-1,HTFLX,NNODE,2,1,HTCON) C 1870 CONTINUE IF (HTCP .EQ. 0.0) GO TO 1890 IP = 0 DO 1880 I = 1,NNODE DHEAT = WEITC*SHP(I) DO 1880 J = 1,NNODE IP = IP + 1 HTCAP(IP) = HTCAP(IP) + DHEAT*SHP(J) 1880 CONTINUE 1890 CONTINUE DICT(1) = ESTID DICT(2) = 1 DICT(3) = NNODE DICT(4) = 1 IF (HTCP .EQ. 0.0) GO TO 1900 ADAMP = 1.0 CALL EMGOUT (HTCAP,HTCAP,NODESQ,1,DICT,3,IPREC) 1900 CONTINUE ADAMP = 0.0 CALL EMGOUT (HTCON,HTCON,NODESQ,1,DICT,1,IPREC) GO TO 1710 C 2010 FORMAT (A23,', THE ELEMENT THICKNESS FOR QUAD4 EID =',I9, 1 ' IS NOT COMPLETELY DEFINED.') 2030 FORMAT (A25,', RHO = ',1PD12.4,' IS ILLEGAL FROM MATERIAL ID =', 1 I9,' FOR QUAD4 EID =',I9) 2060 FORMAT (A25,', ZERO VOLUME OR DENSITY FOR QUAD4 ELEMENT ID =',I9, 1 ', AREA,VOL,RHO=',3E12.3, /70X,'MGG1,KGG1=',2I8) END ================================================ FILE: mis/qvol.f ================================================ SUBROUTINE QVOL C C CALCULATES THERMAL LOADS DUE TO QVOL CARDS C INTEGER IP(3),NSIL(8),MAP(4,14),SLT,REASON,TYPE,BG,OLD, 1 ORDER(8) REAL R(4,8),DATA4(4,9),P(8),D12(3),D13(3),D14(3), 1 CARD(12) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /CONDAS/ CONSTS(5) COMMON /LOADX / LC,SLT,BG,OLD,NX(12), IFM COMMON /ZZZZZZ/ CORE(1) COMMON /SYSTEM/ SYSBUF,IOUT EQUIVALENCE (CONSTS(2),TWOPI),(NPTS,CARD(1)),(ID,CARD(2)), 1 (NSIL(1),CARD(3)),(COEF,CARD(11)),(TYPE,CARD(12)), 2 (R(1,1),DATA4(2,1)),(I1,IP(1)),(I2,IP(2)), 3 (I3,IP(3)) DATA MAP / 1 ,2 ,3 ,4 , 1 1 ,2 ,3 ,6 , 2 1 ,2 ,6 ,5 , 3 1 ,4 ,5 ,6 , 4 1 ,2 ,3 ,6 , 5 1 ,3 ,4 ,8 , 6 1 ,3 ,8 ,6 , 7 1 ,5 ,6 ,8 , 8 3 ,6 ,7 ,8 , 9 2 ,3 ,4 ,7 , O 1 ,2 ,4 ,5 , 1 2 ,4 ,5 ,7 , 2 2 ,5 ,6 ,7 , 3 4 ,5 ,7 ,8 / C C READ AND PROCESS ONE ELEMENT OF ONE QVOL CARD PER CALL C THE LOAD COEFFICIENTS ARE GENERATED AND INSERTED HERE C C THE INPUT DATA ON FILE SLT IS C C FIELD DATA C 1 NO. OF POINTS C 2 EL. ID. C 3-10 1 TO 8 SILS C * A*Q FOR TYPE=1 (RODS,ETC) C 11 COEF = * T*Q FOR TYPE=2 (TRIANGLES ETC) C * Q FOR TYPE=3 (BELL) OR 4 (SOLID) C 12 TYPE C CALL FREAD (SLT,CARD,12,0) REASON = 1 IF (NPTS .LE. 1) GO TO 240 CALL PERMUT (NSIL(1),ORDER(1),NPTS,OLD) REASON = 2 DO 10 I = 1,NPTS L = ORDER(I) CALL FNDPNT (DATA4(1,L),NSIL(L)) N = NSIL(L) CALL FNDSIL (N) IF (N .NE. NSIL(L)) GO TO 240 P(I) = 0.0 10 CONTINUE REASON = 3 IF (TYPE.LT.1 .OR. TYPE.GT.4) GO TO 240 GO TO (20,40,40,120), TYPE C C RODS, CONRODS, TUBES, BARS C 20 EL = 0.0 DO 30 I = 1,3 30 EL = EL + (R(I,1) - R(I,2))**2 P(1) = COEF*SQRT(EL)*0.5 P(2) = P(1) GO TO 200 C C MEMBRANES, PLATES, AND AXISYMMETRIC SOLIDS C 40 IF (NPTS .EQ. 3) GO TO 50 IF (NPTS .EQ. 4) GO TO 60 REASON = 4 GO TO 240 50 NEL = 1 FACT = COEF/6.0 GO TO 70 60 NEL = 4 FACT = COEF/12.0 70 DO 110 IEL = 1,NEL DO 80 I = 1,3 IP(I) = I + IEL - 1 IF (IP(I) .GT. 4) IP(I) = IP(I) - 4 80 CONTINUE DO 90 I = 1,3 D12(I) = R(I,I2) - R(I,I1) 90 D13(I) = R(I,I3) - R(I,I1) CALL SAXB (D12(1),D13(1),D12(1)) EL = FACT*SQRT(D12(1)**2 + D12(2)**2 + D12(3)**2) IF (TYPE .EQ. 2) GO TO 100 C C SPECIAL FACTOR FOR AXISYMMETRIC ELEMENTS C EL = EL*TWOPI*(R(1,I1) + R(1,I2) + R(1,I3))/3.0 100 P(I1) = P(I1) + EL P(I2) = P(I2) + EL P(I3) = P(I3) + EL 110 CONTINUE GO TO 200 C C SOLID ELEMENTS C 120 IF (NPTS .EQ. 4) GO TO 130 IF (NPTS .EQ. 6) GO TO 140 IF (NPTS .EQ. 8) GO TO 150 REASON = 5 GO TO 240 130 NEL = 1 FACT = COEF/24.0 IMAP = 1 GO TO 160 140 NEL = 3 IMAP = 2 FACT = COEF/24.0 GO TO 160 150 IMAP = 5 NEL = 10 FACT = COEF/48.0 160 DO 190 IEL = 1,NEL IM = IMAP + IEL - 1 I1 = MAP(1,IM) I2 = MAP(2,IM) I3 = MAP(3,IM) I4 = MAP(4,IM) DO 170 I = 1,3 C D12(I) = R(I,I2) - R(I,I1) D13(I) = R(I,I3) - R(I,I1) 170 D14(I) = R(I,I4) - R(I,I1) C CALL SAXB (D12(1),D13(1),D12(1)) EL = FACT*ABS(D12(1)*D14(1) + D12(2)*D14(2) + D12(3)*D14(3)) DO 180 I = 1,4 L = MAP(I,IM) 180 P(L) = P(L) + EL 190 CONTINUE C C INSERT THE LOADS C 200 DO 210 I = 1,NPTS ISIL = NSIL(I) CORE(ISIL) = CORE(ISIL) + P(I) 210 CONTINUE RETURN C C ERROR MESSAGE C 240 WRITE (IOUT,250) SFM,ID,REASON 250 FORMAT (A25,' 3093, ELEMENT =',I9,'. REASON =',I7) CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/rand1.f ================================================ SUBROUTINE RAND1(FILE,MID,TYPE,ID,COMP,Q) C C PUTS ID RECORD ON RANDOM OUTPUT FILES C INTEGER FILE,TYPE,COMP,IDR(50) INTEGER Q(2) INTEGER MID1(2,7) COMMON /OUTPUT/ HEAD(1) DATA MID1/2001,4HDISP, 1 2010,4HVELO, 2 2011,4HACCE, 3 2002,4HLOAD, 4 2003,4HSPCF, 5 2004,4HELFO, 6 2005,4HSTRE/ DATA IDR /50*0/ IDR(1)= 50 IDR(3) = MID DO 10 I = 1,7 IF(TYPE .EQ. MID1(2,I)) GO TO 20 10 CONTINUE 20 ITYPE = MID1(1,I) IDR(2) = ITYPE IDR(5) = ID*10 IDR(6) = COMP IDR(8) = Q(1) IDR(9) = Q(2) IDR(10) = 2 CALL WRITE(FILE,IDR(1),50,0) CALL WRITE(FILE,HEAD(1),96,1) RETURN END ================================================ FILE: mis/rand2.f ================================================ SUBROUTINE RAND2 (FILE,ILIST,LOAD,IF,LEN,LLIST) C C READS FILE UNTIL IT FINDS DATA RECORD IN LIST - RETURNS LOAD, C IF, AND LEN C INTEGER FILE,IDR(10),NAME(2),ILIST(2),MID(2,10),ITEMP(5), 1 IDATA(50),IFMT(2,84),IFMTT(11),DATA1(100),DATA(1), 2 ITB(180),ITB1(137),ITB2(145),FILEX CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ IBUF,NOUT EQUIVALENCE (ITB1(1),ITB(1)), (ITB2(1),ITB(138)) DATA IFMTT / 1,11,41,55,61,99,121,155,181,199,237/ DATA IOLDLD/ 0 / DATA IFMT / 1 1, 1, -1,-1, 1, 1, 1, 1, 1, 1, 6, 2, 7 6, 2, 6, 2, 0, 3, 1, 1, 4, 4, 4, 4, 3 4, 4, 4, 0, 6, 2, 0, 3, 6, 2, 6, 2, 9 6, 2, -1,-1, -1,-1, -1,-1, -1,-1, -1,-1, 5 -1,-1, -1,-1, -1,-1, -1,-1, -1,-1, -1,-1, 1 -1,-1, -1,-1, -1,-1, 7, 5, -1,-1, -1,-1, 7 -1,-1, -1,-1, 0, 8, 0, 8, 0, 8, 0, 8, 3 -1,-1, -1,-1, -1,-1, -1,-1, 0, 9, 0,10, 9 0,11, 0, 6, 0, 8, -1,-1, -1,-1, -1,-1, 5 -1,-1, -1,-1, -1,-1, -1,-1, -1,-1, -1,-1, 1 -1,-1, 0, 3, 0, 3, 7, 2, -1,-1, -1,-1, 7 -1,-1, -1,-1, -1,-1, -1,-1, -1,-1, -1,-1, 3 -1,-1, -1,-1, -1,-1, -1,-1, -1,-1, -1,-1, 9 -1,-1, -1,-1, -1,-1, -1,-1, 7, 2, -1,-1/ C C IFMT TABLE (ELEM ID IN GPTABD ORDER) HAS 2 WORDS PER ENTRY C WORD1 FORCE FORMAT POINTER INTO IFMTT TABLE C WORD2 STRESS FORMAT POINTER INTO IFMTT TABLE C C IFMTT TABLE HAS ONE ENTRY PER FORMAT TYPE C THE ENTRY IS THE BEGINNING OF THE FORMAT IN THE ITB TABLE C DATA ITB1/ 1 6, 3, 5, 4, 6, 1 0, 1, 1, 2, 2, 2 16, 3, 4, 12, 5, 13, 6, 14, 7, 8, 16, 9, 17, * 10, 18, 2 0, 1, 2, 2, 3, 3, 4, 4, 5, 6, 6, 7, 7, * 8, 8, 3 8, 3, 6, 4, 7, 5, 8, 3 0, 1, 1, 2, 2, 3, 3, 4 4, 3, 4, 4 0, 1, 1, 5 20, 3, 4, 5, 6, 7, 12, 13, 14, 15, 16, 8, 9, * 10, 11, 17, 18, 19, 20, 5 0, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 6, 7, * 8, 9, 6, 7, 8, 9, 6 12, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 6 0, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 7 18, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, * 15, 16, 17, 18/ DATA ITB2/ 7 0, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, * 5, 6, 7, 8, 8 14, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 8 0, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6, 9 10, 3, 4, 5, 6, 7, 8, 9, 10, 9 0, 1, 2, 3, 4, 1, 2, 3, 4, O 20, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, * 15, 16, 17, 18, 19, 20, O 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, * 4, 5, 6, 7, 8, 9, A 24, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, * 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, A 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 1, * 2, 3, 4, 5, 6, 7, 8, 9, 10, 11/ DATA NAME/ 4HRAND,4H2 / DATA MID / 3001 ,4HDISP, 1 3010 ,4HVELO, 2 3011 ,4HACCE, 3 3002 ,4HLOAD, 4 3003 ,4HSPCF, 5 3004 ,4HELFO, 6 3005 ,4HSTRE, 7 3015 ,4HDISP, 8 3016 ,4HVELO, 9 3017 ,4HACCE/ C FILEX = FILE C C POSITION TO + READ ID RECORD C 5 CALL FWDREC (*950,FILE) CALL READ (*950,*920,FILE,IDR,10,1,I) IDR(5) = IDR(5)/10 C C IDR(5) = 10*ELEM.ID + DEV.CODE C IDR(2) = GINO FILE 3004, 3005 ETC. C CONVERT MAJOR ID TO MNEMONIC C DO 10 I = 1,10 IF (IDR(2) .EQ. MID(1,I)) GO TO 20 10 CONTINUE C C ILLEGAL FORMAT C GO TO 970 C C CHECK FOR MID C 20 IF (ILIST(1) .NE. MID(2,I)) GO TO 5 IELEM = I C C LOOK FOR ID IN LIST C DO 30 I = 1,LLIST,5 IF (IDR(5)-ILIST(I+1)) 5,50,30 30 CONTINUE GO TO 5 C C ID IS IN LIST C 50 I = I - 1 IF (I .EQ. 0) GO TO 100 C C FLIP LIST ORDER C M = 0 LL = I C C SAVE CURRENT STUFF AT END OF LIST C 54 DO 51 J = 1,5 L = I + J ITEMP(J) = ILIST(L) 51 CONTINUE C C PUSH DOWN LIST C DO 52 J = 1,LL K = I - J + 1 ILIST(K+5) = ILIST(K) 52 CONTINUE C C RESTORE CURRENT STUFF IN FRONT OF LIST, IN FLIPPED ORDER C DO 53 J = 1,5 K = M + J ILIST(K) = ITEMP(J) 53 CONTINUE C C AGAIN C IF (ILIST(I+7) .NE. ITEMP(2)) GO TO 100 M = M + 5 I = I + 5 GO TO 54 C C FOUND IT C C IDR( 3) = ELEMENT TYPE C IDR( 4) = SUBCASE NO. C IDR( 9) = FORMAT CODE, 1=REAL, 2=REAL/IMAG, 3=MAG/PHASE C IDR(10) = NO. OF WORDS PER ENTRY C IELEM = 6 OR 7 FOR ELFORCE (OEFC2) OR STRESS (OESC2) C 100 LOAD = IDR(4) IF = 0 IF (IDR(9) .EQ. 3) IF = 1 LEN1 = IDR(10) LEN = LEN1 IELTP= IDR(3) IF (IELEM.LT.6 .OR. IELEM.GT.7) GO TO 150 C C EXECUTE THIS PORTION FOR STRESSES AND FORCES C C FIND FORMAT TYPE C IF (IFMT(1,IELTP) .EQ. -1) GO TO 930 C C PICK UP FORMAT POINTER C IFMTP = IFMT(IELEM-5,IELTP) IF (IFMTP .EQ. 0) GO TO 970 J = IFMTT(IFMTP) C C SAVE EXTERNAL DATA LENGTH C LEN = ITB(J) C C SAVE MAP OF ITB C DO 130 I = 1,LEN1 K = J + I - 1 IDATA(I) = ITB(K) 130 CONTINUE C C CONVERT POINTERS TO NEW DATA VALUES C IF (IOLDLD .EQ. 0) GO TO 131 IF (IOLDLD .NE. LOAD) GO TO 150 131 IOLDLD = LOAD DO 140 I = 1,LLIST,5 IF (ILIST(I).NE.MID(2,IELEM) .OR. ILIST(I+1).NE.ILIST(2)) 1 GO TO 150 K = ILIST(I+2) IF (K .LE. LEN1) GO TO 141 C C POINTER OUT OF RANGE C CALL MESAGE (52,ILIST(I),ILIST(I+1)) K = LEN1 141 K = J + K - 1 + LEN1 ILIST(I+2) = ITB(K) 140 CONTINUE 150 ICHK = 1234321 LENX = LEN C C FILE AND LEN WERE SAVED LOCALLY IN FILEX AND LENX, SO THAT THEY C CAN BE USED IN RAND2A C RETURN C C ENTRY RAND2A (DATA) C =================== C C WILL OBTAIN DATA AND REFORMAT IF NECESSARY C C READ DATA C IF (ICHK .NE. 1234321) CALL MESAGE (-37,0,NAME) CALL READ (*910,*920,FILEX,DATA(1),LEN1,0,IFLAG) IF (IELEM .LT. 6) RETURN C C APPLY DATA MAP I.E. REARRANGE DATA ACCORDING TO DATA MAP C DO 170 I = 1,LENX DATA1(I) = 0 170 CONTINUE DATA1(1) = DATA(1) DO 180 I = 2,LEN1 J = IDATA(I) DATA1(J) = DATA(I) 180 CONTINUE CWKBR 9/93 DO 190 I = 1,LEN DO 190 I = 1,LENX DATA(I) = DATA1(I) 190 CONTINUE RETURN C C FILE ERRORS C 910 IP1 = -2 911 CALL MESAGE (IP1,FILEX,NAME) 920 IP1 = -3 GO TO 911 930 WRITE (NOUT,940) UWM,IELTP 940 FORMAT (A25,' 2185, CURRENTLY RAND2 ROUTINE DOES NOT PROCESS ', 1 'ELEMENT TYPE',I5) GO TO 5 C 950 LOAD = 0 950 CALL REWIND (FILEX) CWKBI 9/93 WRITE(NOUT,9901) 9901 FORMAT(' THE FOLLOWING I/O ERROR OCCURRED MOST LIKELY BECAUSE' &,/,' THERE WAS A PLOT REQUEST FOR A POINT THAT DOES NOT EXIST.') CALL MESAGE (-2,FILE,NAME) GO TO 150 970 IP1 = -7 GO TO 911 END ================================================ FILE: mis/rand3.f ================================================ SUBROUTINE RAND3 (F,S,Q,N) C C COMPUTES MEAN RESPONSE Q C INTEGER CHECK ,NAME(2) REAL Q(2) ,F(1) ,S(1) COMMON /CONDAS/ PHI ,TWOPI ,RADEG ,DEGRA , 1 S4PISQ DATA NAME / 4HRAND ,4H3 / C C F IS ARRAY OF FREQUENCIES C S IS ARRAY OF POWER SPECTRAL DENSITY FUNCTIONS C Q IS MEAN RESPONSE C N IS NUMBER OF FREQUENCIES C SUM1 = 0.0 NN = N - 1 SUM = 0.0 DO 10 I = 1,NN DF = F(I+1) - F(I) SUM = SUM + (S(I)+S(I+1))*DF FI = F(I )*F(I ) FI1 = F(I+1 )*F(I+1) FII1 = 2.*F(I)*F(I+1) ALP = (3.*FI+FII1+FI1)/6. BTA = (FI+FII1+3.*FI1)/6. SUM1 = SUM1 + (ALP*S(I)+BTA*S(I+1))*DF 10 CONTINUE SUM = SQRT(SUM*0.5) SUM1 = SQRT(SUM1*.5) Q(1) = SUM Q(2) = 0.0 Q1 = Q(1) IF (Q1 .NE. 0.0) Q(2) = SUM1/Q1 CHECK= 123456789 RETURN C C AUTOCORRALATION FUNCTION C ENTRY RAND4 (F,S,TAU,R,N) C ========================= C C COMPUTES AUTOCORRALATION FUNCTION R AT TIME TAU C WHERE F,S AS ABOVE. IF TAU = 0.0 R = Q*Q C IF (CHECK .NE. 123456789) CALL MESAGE (-37,0,NAME) IF (TAU .EQ. 0.0) GO TO 30 NN = N - 1 A = 2.0*PHI*TAU B = 1.0/A SUM = 0.0 DO 20 I = 1,NN SUM = SUM + B*(S(I+1)-S(I))/(F(I+1)-F(I))*(COS(A*F(I+1)) 1 - COS(A*F(I))) + S(I+1)*SIN(A*F(I+1))-S(I)*SIN(A*F(I)) 20 CONTINUE SUM = SUM*B R = SUM GO TO 40 30 R = Q1*Q1 40 RETURN END ================================================ FILE: mis/rand5.f ================================================ SUBROUTINE RAND5 (NFREQ,NPSDL,NTAU,XYCB,LTAB,IFILE,PSDF,AUTO, 1 NFILE) C C THIS ROUTINE COMPUTES RANDOM RESPONSE FOR UNCOUPLED POWER SPECTRAL C DENSITY COEFFICIENTS C INTEGER IZ(1),SYSBUF,FILE,XYCB,PSDF,AUTO,IFILE(1),NAME(2), 1 MCB1(7),MCB2(7),OLDLD REAL Q(2),DATA(100) C COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ Z(1) C EQUIVALENCE (Z(1),IZ(1)) C DATA NAME,MCB1,MCB2 /4HRAND,4H5 ,14*0/ DATA IPSDF,IAUTO / 4001,4002 / C ***** C DEFINITION OF VARIABLES C ***** C NFREQ NUMBER OF FREQUENCIES C NPSDL NUMBER OF SUBCASES ON PSDL CARDS C NTAU NUMBER OF TIMES C XYCB DATA BLOCK CONTAINING XY USER REQUESTS C LTAB LENGTH OF CORE USED FOR TABLES BY PRETAB C IFILE ARRY CONTAINING FILE NAMES FOR SORT 2 INPUT FILES C PSDF OUTPUT FILE FOR POWER SPECTRAL DENSITY FUNCTIONS C AUTO OUTPUT FILE FOR AUTOCORRELATION FUNCTIONS C NFILE LENGTH OF IFILE ARRAY C MCB1 TRAILER FOR PSDF C MCB2 TRAILER FOR AUTO C IPSDF OFP ID FOR PSDF C IAUTO OFP ID FOR AUTO C LCORE AVAIABLE CORE FOR ANY LIST C IBUF1 BUFFER POINTERS C IBUF2 C IBUF3 C ITAU POINTER TO FIRST TAU -1 C ISAA POINTER TO FIRST S(AA) -1 C TAU TIMES FOR AUTTOCORRELATION C SAA POWER SPECTRAL DENSITY FACTORS C ICORE POINTER TO FIRST REQUEST -1 C SYSBUF LENGTH OF ONE BUFFER C NPOINT NUMBER OF REQUESTS C NZ CORE AVAILABLE FOR STORING PSDF-S C IP POINTER TO FIRST POINT OF CURRENT CORE LOAD C NDONE NUMBER OF REQUESTS PROCESSED C OLDLD LOAD ID OF OLD LOAD SET C NDO NUMBER POSSIBLE TO DO IN CORE C ICS POINTER TO FIRST PSDF VECTOR C NLOAD NUMBER OF PSDL CARDS PROCESSED C ICDONE NUMBER CURRENTLY DONE-- SEVERAL COMP FROM EACH VALUE C LOAD SUBCASE ID FROM INPUT RECORD C IF FORMAT FLAG IF =0 DATA IS REA/IMAG IF.NE.0 MAG/PHASE C LEN LENGTH OF DATA RECORD C Q MEAN RESPONSE C R AUTO CORRALATION FUNCTION AT TIME TAU C IP1 LOCAL POINT POINTER C C C ***** C CORE LAYOUT DURING EXECUTION C ***** C FREQUENCIES NFREQ OF THEM C RANDPS DATA NPSDL OF THEM 5 WORDS PER CARD C LOAD ID LOAD ID X Y=0. TABLE C TAUS NTAU OF THEM C TABLE DATA LTAB OF IT C S(AA) NFREQ OF THEM THESE ARE REEVALUATED WHEN LOAD CHAG C REQUESTS NPOINT OF THEM 5 WORDS PER REQUEST C D.B. ID COMP O.P. P/P C S(J,A) NO DO OF THEM LENGTH = NFREQ C C C BUFFERS 3 NEEDED C C C INITALIZE GENERAL VARIABLES, ASSIGN BUFFERS ETC C MCB1(1) = PSDF MCB2(1) = AUTO LCORE = KORSZ(Z) IBUF1 = LCORE -SYSBUF+1 IBUF2 = IBUF1 -SYSBUF IBUF3 = IBUF2 -SYSBUF ITAU = NFREQ +5*NPSDL ISAA = NTAU +LTAB+ITAU ICORE = ISAA +NFREQ LCORE = LCORE -ICORE-3*SYSBUF ICRQ =-LCORE IF (LCORE .LE. 0) GO TO 980 C C OPEN OUTPUT FILES C CALL GOPEN (PSDF,Z(IBUF2),1) CALL GOPEN (AUTO,Z(IBUF3),1) C C BEGIN LOOP ON EACH FILE C DO 1000 I = 1,NFILE C C BUILD POINT LIST FOR FILE(I) C CALL RAND6 (XYCB,Z(IBUF1),NPOINT,IZ(ICORE+1),IFILE(I),LCORE) IF (NPOINT .EQ. 0) GO TO 1000 NZ = LCORE -5*NPOINT ICRQ =-NZ IF (NZ .LE. 0) GO TO 980 C C OPEN INPUT FILE C FILE = IFILE(I) CALL OPEN (*1000,FILE,Z(IBUF1),0) IP = ICORE +1 NDONE = 0 OLDLD = 0 ICS = ICORE +5*NPOINT +1 LLIST = 5*NPOINT IPS = IP LLISTS= LLIST 13 NDO = MIN0(NPOINT-NDONE,NZ/NFREQ) ICRQ = MAX0(NPOINT-NDONE,NFREQ) IF (NDO .EQ. 0) GO TO 980 NLOAD = 0 C C ZERO CORE C JJ = ICS + NDO*NFREQ-1 DO 16 K = ICS,JJ Z(K) = 0.0 16 CONTINUE ICDONE = 0 C C GET READY TO OBTAIN FIRST VALUE C 15 CALL RAND2 (IFILE(I),IZ(IP),LOAD,IF,LEN,LLIST) C C CHECK FOR NEW LOAD C IF (LOAD .EQ. 0) IF (NLOAD-NPSDL) 111,100,111 IF (LOAD .EQ. OLDLD) GO TO 50 C C NEW LOAD --EVALUATE S(AA) FUNCTIONS FOR THIS LOAD C J = NFREQ +1 JJ = ITAU DO 10 K = J,JJ,5 IF (IZ(K) .EQ. LOAD) GO TO 20 10 CONTINUE C C LOAD NOT NEEDED --REJECT C GO TO 15 C C GOOD LOAD --EVALUATE C 20 OLDLD = LOAD NLOAD = NLOAD +1 DO 30 J = 1,NFREQ JJ = ISAA +J C C TAB X F(X) CALL TAB (IZ(K+4),Z(J),Z(JJ)) IF (IZ(K+4) .EQ. 0) Z(JJ) = 1.0 Z(JJ) = Z(JJ)*Z(K+2) 30 CONTINUE C C BRING IN DATA C 50 IF (LEN .GT. 100) GO TO 970 DO 60 J = 1,NFREQ C C ACCESS DATA FROM FILE INTO DATA ARRAY C CALL RAND2A (DATA(1)) IP1 = IP II = ICDONE LL = ISAA +J C C COMPUTE MAGNITUDE OF CURRENT COMPONENT C 52 IF ((LEN-2)/2 .GE. IZ(IP1+2)) GO TO 53 C C REQUEST OUT OF RANGE C CALL MESAGE (52,IZ(IP1),IZ(IP1+1)) IZ(IP1+2) = (LEN-2)/2 53 JJ = IZ(IP1+2) +2 IF (IF .NE. 0) GO TO 51 C C REAL + IMAGINARY C K = JJ + LEN/2 -1 DATA(JJ) = SQRT(DATA(JJ)*DATA(JJ) + DATA(K)*DATA(K)) C C COMPUTE POWER SPECTRAL DENSITY FUNCTION C 51 K = ICS + II*NFREQ-1 +J Z(K) = Z(K) + DATA(JJ)*Z(LL)*DATA(JJ) IF (II .EQ. NDO-1) GO TO 60 C C IS NEXT REQUEST FROM SAME POINT C IF (IZ(IP1).NE.IZ(IP1+5) .OR. IZ(IP1+1).NE.IZ(IP1+6)) GO TO 60 II = II +1 IP1= IP1+ 5 GO TO 52 60 CONTINUE LLIST = LLIST - 5*(II-ICDONE+1) ICDONE = II +1 IP = IP1 +5 C HAVE I DONE ALL REQUEST(IN CURRENT CORE) C IF (ICDONE .NE. NDO) GO TO 15 C C HAVE I ADDED IN ALL LOADS C IP = IPS IF (NLOAD .EQ. NPSDL) GO TO 100 C C START AGAIN ON NEXT LOAD C LLIST = LLISTS ICDONE = 0 GO TO 15 C C ALL LOADS FOR CURRENT BUNCH DONE C 100 JJ = IP J = NDO* 5 +JJ-1 L = ICS - NFREQ DO 110 K = JJ,J,5 L = L+ NFREQ C C COMPUTE MEAN RESPONSE Q C CALL RAND3 (Z(1),Z(L),Q,NFREQ) IF (IZ(K+3) .EQ. 2) GO TO 105 C C PSDF REQUESTED C C PUT OUT ID RECORD C MCB1(7) = MCB1(7) +1 CALL RAND1 (PSDF,IPSDF,IZ(K),IZ(K+1),IZ(K+4),Q) C C PUT OUT DATA RECORD C DO 101 LL = 1,NFREQ KK = L +LL -1 CALL WRITE (PSDF,Z(LL),1,0) CALL WRITE (PSDF,Z(KK),1,0) 101 CONTINUE CALL WRITE (PSDF,0,0,1) 105 IF (IZ(K+3) .EQ. 1) GO TO 110 C C AUTOCORRELATION REQUESTED C IF (NTAU .EQ. 0) GO TO 110 CALL RAND1 (AUTO,IAUTO,IZ(K),IZ(K+1),IZ(K+4),Q) MCB2(7) = MCB2(7)+1 C C PUT OUT DATA RECORD C DO 106 LL = 1,NTAU KK = ITAU + LL CALL WRITE (AUTO,Z(KK),1,0) C C COMPUTE AUTO C CALL RAND4 (Z(1),Z(L),Z(KK),R,NFREQ) CALL WRITE (AUTO,R,1,0) 106 CONTINUE CALL WRITE (AUTO,0,0,1) 110 CONTINUE CALL REWIND (IFILE(I)) NDONE = NDONE +NDO IF (NDONE .NE. NPOINT) GO TO 200 111 CALL CLOSE (IFILE(I),1) GO TO 1000 C C SPILL ON POINT LISTS --GO AGAIN C 200 OLDLD = 0 IP = IP + 5*NDO IPS = IP LLISTS = LLISTS-5*NDO GO TO 13 1000 CONTINUE C C ALL STUFF DONE --GET OUT C CALL CLOSE (PSDF,1) CALL CLOSE (AUTO,1) CALL WRTTRL (MCB1) CALL WRTTRL (MCB2) RETURN C C FILE + MISC ERRORS C 901 CALL MESAGE (IP1,FILE,NAME) RETURN 970 IP1 = -7 GO TO 901 980 IP1 = -8 FILE= ICRQ GO TO 901 END ================================================ FILE: mis/rand6.f ================================================ SUBROUTINE RAND6(XYCB,BUFFER,NPOINT,IZ,INPUT,LCORE) C C ANALYSIS OF REQUESTS AND BUILDS LIST C INTEGER XYCB,BUFFER(1),IZ(1),FILE,NAME(2),ILIST(6),PSDF,AUTO, 1 ITYPE(13,5) DATA NAME,PSDF,AUTO/4HRAND,4H6 ,2,3/ DATA ITYPE / 1 13,4HDISP,1,4HVELO,2,4HACCE,3,4HDISP,8,4HVELO,9,4HACCE,10, 2 3,4HLOAD,5, 10*0, 3 3,4HSPCF,4, 10*0, 4 3,4HSTRE,6, 10*0, 5 3,4HELFO,7, 10*0 / C ***** C XYCB XY OUTPUT REQUESTS C BUFFER SYSTEM BUFFER C NPOINT NUMBER OF POINTS REQUESTED FOR THIS FILE C IZ LIST OF REQUESTS C INPUT CURRENT FILE C ILIST LIST OF REQUEST FROM XYCB 6 WORDS PER C SUBC,FILE,ID,COMP,OPER,DEST C PSDF KEY FOR POWER SPECTRAL DENSITY FUNCTION C AUTO KEY FOR AUTOCORRELATION FUNCTION C ITYPE LIST OF DATA TYPES ON EACH INPUT FILE C IREQ PSDF =1 , AUTO =2 BOTH = 3 C IP POINTER INTO IZ FOR LAST POINT(SAME POINT MAY OCCUR C MANY TIMES IN XYCB C C LIST FORMAT C FILE,ID,COMP,IREQ,DEST C C C C C C C FIND ACCEPTABLE MNEUMONICS C K = INPUT -103 NTYPE = ITYPE(1,K) IP =-4 NPOINT = 0 C C OPEN XYCB C FILE =XYCB CALL OPEN(*90,XYCB,BUFFER(1),0) CALL FWDREC(*910,XYCB) C C SKIP PROSE RECORD C CALL FWDREC(*40,XYCB) C C READ DATA RECORD 6 WORDS AT A TIME C 5 CALL READ(*40,*40,XYCB,ILIST(1),6,0,I) C C IS DATA BLOCK PROPER C DO 10 I=2, NTYPE,2 IF(ILIST(2) .EQ. ITYPE(I+1,K)) GO TO 20 10 CONTINUE C C GO TO NEXT REQUEST C GO TO 5 C C CHECK FOR RANDOM REQUEST C 20 IF(ILIST(5) .EQ. PSDF) GO TO 25 IF(ILIST(5) .EQ. AUTO) GO TO 30 GO TO 5 C PSDF REQUEST C 25 IREQ =1 GO TO 31 C C AUTOCORRELATION REQUEST C 30 IREQ =2 C C STORE IN LIST C 31 IF(NPOINT .EQ. 0) GO TO 35 C C IS THIS A NEW POINT C IF(IZ(IP) .NE. ITYPE(I,K)) GO TO 35 IF(IZ(IP+1) .NE. ILIST(3) .OR. IZ(IP+2) .NE. ILIST(4)) GO TO 35 C C ANOTHER REQUEST FOR SAME POINT C IF( IZ(IP+3) .EQ. 3 .OR. IZ(IP+3) .EQ. IREQ) GO TO 32 IZ(IP+3) = IZ(IP+3) + IREQ 32 IF(IZ(IP+4) .EQ. 3 .OR. IZ(IP+4).EQ. ILIST(6))GO TO 5 IZ(IP+4) = IZ(IP+4) + ILIST(6) GO TO 5 C C ADD POINT TO LIST C 35 NPOINT = NPOINT +1 IP = IP +5 IF (IP+5 .GT. LCORE) GO TO 905 IZ(IP) = ITYPE(I,K) IZ(IP+1) = ILIST(3) IZ(IP+2) = ILIST(4) IZ(IP+3) = IREQ IZ(IP+4) = ILIST(6) GO TO 5 C C GET OUT C 40 CALL CLOSE(XYCB,1) C C SAVE ORIGINAL COMPONENT IN THE FIFTH LIST LORD C IF(NPOINT .EQ. 0) GO TO 90 DO 45 I = 1,NPOINT L = (I-1)*5+1 IZ(L+4) = IZ(L+2) IF(K .LT. 4) IZ(L+2) = IZ(L+2) -2 45 CONTINUE 90 RETURN C C FILE ERRORS C 905 NPOINT = NPOINT+9 GO TO 90 910 IP1= -2 911 CALL MESAGE(IP1,FILE,NAME(1)) GO TO 911 END ================================================ FILE: mis/rand7.f ================================================ SUBROUTINE RAND7 (IFILE,NFILE,PSDL,DIT,ICOUP,NFREQ,NPSDL,NTAU, 1 LTAB,CASECC,XYCDB) C C STORES STUFF IN CORE FOR LATER RANDOM ANALSIS C INTEGER ITLIST(7),PSDL,FILE,SYSBUF,DIT,NAME(2),CASECC, 1 IFILE(1),XYCDB,IPSDL(6) REAL Z(1) C COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ IZ(1) C EQUIVALENCE (Z(1),IZ(1)) C DATA NAME /4HRAND,1H7/ DATA ITLIST/2, 55,25,1, 56,26,5 / C ***** C IDENTIFICATION OF VARIABLES C ***** C IFILE ARRAY OF INPUT FILES C NFILE LENGTH OF IFILE ARRAY C PSDL POWER SPECTRAL DENSITY LISTS FROM DPD C DIT DIRECT INPUT TABLES C ICOUP COUPLED,UNCOUPLED, OR NOGO FLAG C NFREQ NUMBER OF FRENQUICIES C NPSDL NUMBER OF PSDL SETS C NTAU NUMBER OF TAUS C LTAB LENGTH OF DATA FOR TAB ROUTINE C CASECC CASECONTROL FILE C SYSBUF LENGTH OF ONE GINO BUFFER C NTABL NUMBER OF UNIQUE TABLE ID-S C ITABL POINTER TO LIST OF TABLE ID-S C C C BUILD FREQUENCY LIST C ICOUP = 0 LCORE = KORSZ(IZ) IBUF1 = LCORE-SYSBUF C C XYCDB MUST BE PRESENT C FILE = XYCDB CALL OPEN (*700,XYCDB,IZ(IBUF1),0) CALL CLOSE (XYCDB,1) LCORE = IBUF1-1 C C EXTRACT SET NO FROM CASECC C CALL GOPEN (CASECC,IZ(IBUF1),0) CALL FREAD (CASECC,IZ,166,1) I163 = 163 IRAND = IZ(I163) CALL CLOSE (CASECC,1) IF (IRAND .EQ. 0) GO TO 700 C C FIND DATA FILE C DO 10 I = 1,NFILE FILE = IFILE(I) CALL OPEN (*10,FILE,IZ(IBUF1),0) CALL SKPREC (FILE,1) CALL FREAD (FILE,IZ,10,1) I10 = 10 LEN = IZ(I10)-1 NFREQ = 0 C C EXTRACT FREQUENCIES C 5 CALL READ (*910,*30,FILE,F,1,0,J) CALL FREAD (FILE,IZ,-LEN,0) NFREQ = NFREQ +1 Z(NFREQ) = F GO TO 5 30 CALL CLOSE (FILE,1) GO TO 40 10 CONTINUE C C NO DATA FILES--EXIT C 700 ICOUP = -1 GO TO 90 C C BRING IN PSDL CARDS C 40 LCORE = LCORE -NFREQ FILE = PSDL CALL OPEN (*700,PSDL,Z(IBUF1),0) L = NFREQ+1 NPSDL = 0 ITAU =-1 CALL READ (*910,*41,PSDL,IZ(NFREQ+1),LCORE,0,J) GO TO 980 41 K = NFREQ +3 IF (J .EQ. 2) GO TO 45 J = K+J-1 C C DETERMINE RECORD THAT RANDOM TAU-S ARE IN C DO 42 I = K,J IF (IZ(I) .EQ. IRAND) GO TO 43 42 CONTINUE ITAU = -1 GO TO 45 C C FOUND RANDT CARDS C 43 ITAU = I-K C C FIND SELECTED PSDL CARDS C 45 CALL READ (*910,*47,PSDL,IPSDL(1),6,0,J) IF (IPSDL(1) .NE. IRAND) GO TO 45 NPSDL = NPSDL+1 IZ(L ) = IPSDL(2) IZ(L+1) = IPSDL(3) IZ(L+2) = IPSDL(4) IZ(L+3) = IPSDL(5) IZ(L+4) = IPSDL(6) L = L+5 GO TO 45 47 IF (NPSDL .NE. 0) GO TO 48 C C UNABLE TO FIND SELECTED PSDL CARDS C CALL CLOSE (PSDL,1) GO TO 700 C C POSITION TAPE FOR TAUS C 48 IF (ITAU .LE. 0) GO TO 49 CALL SKPREC (PSDL,ITAU) 49 LCORE = LCORE-NPSDL*5 C C EXTRACT LIST OF TABLES AND CHECK FOR COUPLED SYSTEM C JJ = NFREQ +1 K = NFREQ +5*NPSDL NTABL = 0 ITABL = IBUF1-1 DO 60 I = JJ,K,5 IF (IZ(I) .EQ. IZ(I+1)) GO TO 61 C C COUPLED C ICOUP =1 61 IF (NTABL .EQ. 0) GO TO 62 DO 63 J=1,NTABL L = ITABL +J IF (IZ(L) .EQ. IZ(I+4)) GO TO 60 63 CONTINUE C C STORE TABLE ID C 62 NTABL = NTABL +1 IZ(ITABL) = IZ(I+4) ITABL = ITABL -1 60 CONTINUE IZ(ITABL) = NTABL C C BRING IN TAU-S C NTAU = 0 LCORE = LCORE- NTABL-1 IF(ITAU .EQ. -1) GO TO 70 CALL READ (*70,*70,PSDL,Z(K+1),LCORE,0,NTAU) GO TO 980 70 CALL CLOSE (PSDL,1) C C SETUP FOR TABLES C LCORE = LCORE -NTAU LTAB = 0 IF(NTABL .EQ. 0) GO TO 90 L = K +NTAU+1 CALL PRETAB (DIT,IZ(L),Z(L),IZ(IBUF1),LCORE,LTAB,IZ(ITABL),ITLIST 1 (1)) 90 RETURN C C FILE ERRORS C 901 CALL MESAGE (IP1,FILE,NAME) 910 IP1 =-2 GO TO 901 980 IP1= -8 GO TO 901 END ================================================ FILE: mis/rand8.f ================================================ SUBROUTINE RAND8(NFREQ,NPSDL,NTAU,XYCB,LTAB,IFILE,PSDF,AUTO,NFILE) C C THIS ROUTINE COMPUTES RANDOM RESPONSE FOR COUPLED POWER SPECTRAL C DENSITY COEFICIENTS C INTEGER IZ(1),SYSBUF,FILE,XYCB,PSDF,AUTO,IFILE(1),NAME(2), 1 MCB1(7),MCB2(7),OLDLD REAL Q(2) REAL DATA(100) C COMMON /CONDAS/ PI ,TWOPI ,RADEG ,DEGRAD , 1 S4PISQ COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ Z(1) C EQUIVALENCE (Z(1),IZ(1)) C DATA NAME,MCB1,MCB2/4HRAND,4H8 ,14*0/ DATA IPSDF,IAUTO /4001,4002/ C ***** C DEFINITION OF VARIABLES C ***** C NFREQ NUMBER OF FREQUENCIES C NPSDL NUMBER OF PSDL CARDS C NTAU NUMBER OF TIMES C XYCB DATA BLOCK CONTAINING XY USER REQUESTS C LTAB LENGTH OF CORE USED FOR TABLES BY PRETAB C IFILE ARRAY CONTAINING FILE NAMES FOR SORT 2 INPUT FILES C PSDF OUTPUT FILE FOR POWER SPECTRAL DENSITY FUNCTIONS C AUTO OUTPUT FILE FOR AUTOCORRELATION FUNCTIONS C NFILE LENGTH OF IFILE ARRAY C MCB1 TRAILER FOR PSDF C MCB2 TRAILER FOR AUTO C IPSDF OFP ID FOR PSDF C IAUTO OFP ID FOR AUTO C LCORE AVAILABLE CORE FOR LISTS C IBUF1 BUFFER POINTERS C IBUF2 C IBUF3 C ITAU POINTER TO FIRST TAU-1 C ISAA POINTER TO SAB TABLE -1 C TAU TIMES FOR AUTOCORRELATION C SAB POWER SPECTRAL DENSITY FACTORS C ICORE POINTER TO FIRST REQUEST-1 C SYSBUF LENGTH OF ONE BUFFER C NPOINT TOTAL NUMBER OF REQUESTS C NZ CORE AVAIABLE FOR STORING H VALUES C IP POINTER TO FIRST POINT OF CURRENT CORE LOAD C NDONE NUMBER OF REQUESTS PROCESSED C OLDLD LOAD ID OF OLD LOAD SET C NDO NUMBER POSSIBLE TO DO IN CORE C ICS POINTER TO FIRST H ARRAY C NLOAD NUMBER OF LOADS PROCESSED ON CURRENT CORE LOAD C ICDONE NUMBER CURRENTLY DONE -- SEVERAL COMP FROM EACH VALUE C LOAD SUBCASE ID FROM INPUT RECORD C IF FORMAT FLAG IF=0 DATA IS REAL/IMAG IF .NE. 0 MAG/PHASE C LEN LENGTH OF DATA RECORD C Q MEAN RESPONSE C R AUTOCORRALATION FUNCTION AT TIME TAU C IP1 LOCAL POINT POINTER C NUNQ NUMBER OF UNIQUE LOAD ID-S C ILOAD POINTER TO LOAD LIST-1 C ISJ POINTER TO SJ ADD AREA-1 C ICS H STORAGE -1 C C C C ***** C CORE LAYOUTDURING EXECUTION C ***** C FREQUENCIES NFREQ OF THEM C RANDPS DATA NPSDL OF THEM 5 WORDS PER CARD C LOAD ID LOAD ID X Y TABLE C TAUS NTAU OF THEM C TABLE DATA LTAB OF IT C S(AB) NFREQ OF THEM-- THESE ARE REEVALUATED WHEN LOAD CHAN C UNIQUE ID-S NUNQ OF THEM C REQUESTS NPOINT OF THEM 5 WORDS PER REQUEST C DB ID COMP O.P. P/P C H-S LENGTH = 2*NFREQ --REAL+IMAGINARY C NUNQ H-S PER SET-- NDO SETS C SJ COMPUTE NFREQ OF IT C C C BUFFERS 3 NEEDED C C C C C INITIALIZE GENERAL VARIABLES--ASSIGN BUFFERS,ETC C MCB1(1)=PSDF MCB2(1)=AUTO LCORE=KORSZ(Z) IBUF1=LCORE-SYSBUF+1 IBUF2=IBUF1-SYSBUF IBUF3=IBUF2-SYSBUF ITAU=NFREQ+5*NPSDL ISAA=NTAU+LTAB+ITAU LCORE=LCORE-(ISAA+NFREQ+3*SYSBUF) ICRQ = -LCORE IF(LCORE .LE. 0) GO TO 980 C C BUILD LIST OF UNIQUE LOAD ID-S C REPLACE LOAD ID OF PSDL WITH POINTER TO LIST C NUNQ=0 ILOAD=ISAA+NFREQ M=ILOAD+1 K=M-1 I=NFREQ+1 JJ=ITAU+1 J=1 GO TO 4 C C SEARCH LIST OF UNIQUE ID-S C 5 DO 3 L=M,K IF(IZ(I) .EQ. IZ(L)) GO TO 9 3 CONTINUE GO TO 4 C C NEXT PSDL CARD C 2 IF(J .EQ. 0) GO TO 7 I=I+1 J=0 GO TO 5 C C SAVE LOAD ID C 4 K=K+1 NUNQ=NUNQ+1 IZ(K)=IZ(I) L=K C C REPLACE ID WITH POINTER INTO LIST C 9 IZ(I)=L-M+1 GO TO 2 C C NEXT PSDL CARD C 7 I=I+4 J=1 IF(I .NE. JJ) GO TO 5 C C COMPUTE MINIMUM CORE C MINCR=NUNQ*NFREQ*2+NFREQ ICORE=ILOAD+NUNQ LCORE=LCORE-NUNQ ICRQ = MINCR - LCORE IF(LCORE-MINCR .LE. 0) GO TO 980 C C OPEN OUTPUT FILES C CALL GOPEN(PSDF,Z(IBUF2),1) CALL GOPEN(AUTO,Z(IBUF3),1) C C BEGIN LOOP ON EACH FILE C DO 1000 I=1,NFILE C C BUILD POINT LIST FOR FILE(I) C CALL RAND6 (XYCB,Z(IBUF1),NPOINT,IZ(ICORE+1),IFILE(I),LCORE) IF(NPOINT .EQ. 0) GO TO 1000 NZ=LCORE-5*NPOINT ICRQ = -NZ IF(NZ .LE. 0) GO TO 980 C C OPEN INPUT FILE C FILE=IFILE(I) CALL OPEN(*1000,FILE,Z(IBUF1),0) IP=ICORE+1 NDONE=0 OLDLD=0 ICS=ICORE+5*NPOINT LLIST=5*NPOINT C C COMPUTE NUMBER OF POINTS TO DO AT SAME TIME C 13 NDO = MIN0(NPOINT-NDONE,NZ/MINCR) ICRQ = MAX0(NPOINT-NDONE,MINCR) IF(NDO .EQ. 0) GO TO 980 LLISTS = LLIST ICDONE=0 IPSAVE=IP NLOAD =0 C GET READY TO OBTAIN FIRST VALUE C 15 CALL RAND2 (IFILE(I),IZ(IP),LOAD,IF,LEN,LLIST) IF(LOAD .EQ. 0) GO TO 159 C C CHECK FOR NEW LOAD C IF(LOAD .EQ. OLDLD) GO TO 50 C C NEW LOAD -- SEE IF WANTED C DO 10 KK=1,NUNQ L=ILOAD+KK IF(LOAD .EQ. IZ(L)) GO TO 20 10 CONTINUE C C REJECT LOAD -- NOT NEEDED C GO TO 15 C C GOOD LOAD -- SAVE DATA C 20 OLDLD=LOAD C C BRING DATA INTO KK-TH H SAVE AREA C KK = ICS +(KK-1)*NFREQ*2 50 IF(LEN .GT. 100) GO TO 970 DO 60 J=1,NFREQ C C ACCESS DATA FROM FILE INTO DATA ARRAY C CALL RAND2A( DATA(1)) IP1=IP II=ICDONE C C COMPUTE REAL/IMAG OF CURRENT COMPONENT C 52 IF( (LEN-2)/2 .GE. IZ(IP1+2)) GO TO 53 C C REQUEST OUT OF RANGE C CALL MESAGE(52,IZ(IP1),IZ(IP1+1)) IZ(IP1+2) = (LEN-2)/2 53 JJ = IZ(IP1+2) +2 K=JJ+LEN/2-1 IF ( IF .LE. 0) GO TO 51 X=DATA(JJ)*COS(DEGRAD*DATA(K)) DATA(K)=DATA(JJ)*SIN(DEGRAD*DATA(K)) DATA(JJ)=X 51 L=KK+J*2-1+II*MINCR Z(L)=DATA(JJ) Z(L+1)=DATA(K) C C TEST FOR CORE OVERFLOW C IF(II .EQ. NDO-1) GO TO 60 C C IS NEXT REQUEST FROM SAME POINT C IF(IZ(IP1) .NE. IZ(IP1+5) .OR. IZ(IP1+1) .NE. IZ(IP1+6)) GO TO 60 II=II+1 IP1=IP1+5 GO TO 52 60 CONTINUE ICDONE=II+1 IP=IP1+5 LLIST=LLIST-5*ICDONE C C HAVE I DONE ALL REQUESTS (IN CURRENT CORE) C IF(ICDONE .NE. NDO) GO TO 15 C C HAVE I ADDED IN ALL LOADS NLOAD = NLOAD +1 IP=IPSAVE IF(NLOAD .EQ. NUNQ ) GO TO 100 C C START AGAIN ON NEXT LOAD LLIST = NDO*5 ICDONE=0 GO TO 15 C C ALL LOADS FOR CURRENT BUNCH DONE C COMPUTE SJ-S C C ZERO ALL SJ-S C 100 DO 101 J=1,NDO K=ICS+J*MINCR-NFREQ DO 102 L=1,NFREQ JJ=K+L Z(JJ)=0.0 102 CONTINUE 101 CONTINUE C C FOR EACH PSDL CARD 1. EVALUATE SAB C FOR EACH POINT C IN CORE 2. COMPUTE 2*RE(HI*SIJ*HJBAR) C 3. ADD TO SJ AT EACH FREQ. C DO 120 J=1,NPSDL C C EVALUATE SAB C TWO=2.0 L=NFREQ+(J-1)*5 IF(IZ(L+1) .EQ. IZ(L+2)) TWO=1.0 Q(1) = Z(L+3) R=Z(L+4) DO 103 K=1,NFREQ JJ=ISAA+K C C C TAB X F(X) CALL TAB (IZ(L+5),Z(K),Z(JJ)) IF(IZ(L+5) .EQ.0) Z(JJ) =1.0 103 CONTINUE C C FOR EACH POINT IN CORE C DO 115 K=1,NDO L2=ICS+K*MINCR-NFREQ L1=ICS+(K-1)*MINCR-1-NFREQ*2 DO 110 M=1,NFREQ IH1=IZ(L+1)*NFREQ*2 +L1 +2*M IH2=IZ(L+2)*NFREQ*2 +L1 +2*M JJ=ISAA+M ISJ=L2+M Z(ISJ)=Z(ISJ)+Z(JJ)*TWO*((Z(IH1)*Q(1)-Z(IH1+1)*R)*Z(IH2) 1 +(Z(IH1+1)*Q(1)+Z(IH1)*R)*Z(IH2+1)) 110 CONTINUE 115 CONTINUE 120 CONTINUE C C OUTPUT STUFF IN CORE C JJ=IP J=NDO*5+JJ-1 L=ICS-NFREQ DO 150 K=JJ,J,5 L=L+MINCR C C CONVERT SJ TO ABSOLUTE VALUE C DO 151 LL=1,NFREQ KK=L+LL Z(KK)=ABS(Z(KK)) 151 CONTINUE C C COMPUTE MEAN RESPONSE C CALL RAND3 (Z(1),Z(L+1),Q,NFREQ) IF(IZ(K+3) .EQ. 2) GO TO 155 C C PSDF REQUESTED -- PUT OUT ID C MCB1(7)=MCB1(7)+1 CALL RAND1(PSDF,IPSDF,IZ(K),IZ(K+1),IZ(K+4),Q) C C PUT OUT DATA RECORDED C DO 152 LL=1,NFREQ KK=L+LL CALL WRITE (PSDF,Z(LL),1,0) CALL WRITE (PSDF,Z(KK),1,0) 152 CONTINUE CALL WRITE (PSDF,0,0,1) 155 IF(IZ(K+3) .EQ. 1) GO TO 150 C C AUTO CORRELATION REQUESTED C IF(NTAU .EQ. 0) GO TO 150 CALL RAND1(AUTO,IAUTO,IZ(K),IZ(K+1),IZ(K+4),Q) MCB2(7)=MCB2(7)+1 C C PUT OUT DATA RECORD C DO 156 LL=1,NTAU KK=ITAU+LL CALL WRITE (AUTO,Z(KK),1,0) C C COMPUTE AUTO C CALL RAND4 (Z(1),Z(L+1),Z(KK),R,NFREQ) CALL WRITE (AUTO,R,1,0) 156 CONTINUE CALL WRITE (AUTO,0,0,1) 150 CONTINUE C C END CORE LOAD C CALL REWIND (IFILE(I)) NDONE=NDONE+NDO IF(NDONE .NE. NPOINT) GO TO 200 C C FINISHED WITH FILE C 159 CALL CLOSE(IFILE(I),1) GO TO 1000 C C SPILL ON POINT LISTS -- GO AGAIN C 200 OLDLD=0 LLIST=LLISTS-5*NDO IP=IPSAVE+5*NDO GO TO 13 1000 CONTINUE C C ALL STUFF DONE -- GET OUT C CALL CLOSE (PSDF,1) CALL CLOSE (AUTO,1) CALL WRTTRL(MCB1) CALL WRTTRL(MCB2) RETURN C C FILE + MISC ERRORS C 901 CALL MESAGE (IP1,FILE,NAME) RETURN 970 IP1=-7 GO TO 901 980 IP1=-8 FILE = ICRQ GO TO 901 END ================================================ FILE: mis/random.f ================================================ SUBROUTINE RANDOM C C RANDOM ANALYSIS MODULE C C INPUTS CASECC,XYCB,DIT,DISP,SPCF,LOAD,STRESS,FORCE,PSDL (9) C C OUTPUTS PSDF,AUTO (2) C C SCRATCHES (0) C C PARAMETERS 1 INTEGER INTEGER CASECC,XYCB,DIT,IFILE(5),PSDL,PSDF,AUTO COMMON /BLANK/ ICOUP DATA XYCB,DIT,PSDL,IFILE,CASECC/101,102,103,104,105,106,107,108, 1 109/ DATA PSDF,AUTO /201,202/ DATA NFILE /5/ C C INITIALIZE + SET UP C CALL RAND7(IFILE,NFILE,PSDL,DIT,ICOUP,NFREQ,NPSDL,NTAU,LTAB, 1 CASECC,XYCB) IF( ICOUP) 10,20,30 10 RETURN C C UNCOUPLED C 20 CALL RAND5(NFREQ,NPSDL,NTAU,XYCB,LTAB,IFILE,PSDF,AUTO,NFILE) GO TO 10 C C COUPLED C 30 CALL RAND8(NFREQ,NPSDL,NTAU,XYCB,LTAB,IFILE,PSDF,AUTO,NFILE) GO TO 10 END ================================================ FILE: mis/rbmg1.f ================================================ SUBROUTINE RBMG1 C***** C RBMG1 PARTITIONS KAA INTO KLL, KLR AND KRR AND MAA SIMILARLY. C***** C INTEGER USET ,UA ,UL ,UR ,SCR1 COMMON/BITPOS/UM ,UO ,UR ,USG ,USB ,UL ,UA 1 ,UF ,US ,UN ,UG ,UE ,UP C***** C INPUT DATA FILES C***** DATA USET,KAA,MAA/101,102,103/ C***** C OUTPUT DATA FILES C***** DATA KLL,KLR,KRR,MLL,MLR,MRR/201,202,203,204,205,206/ C***** C SCRATCH DATA FILES C***** DATA SCR1/301/ C***** C PARTITION KAA INTO KLL,KLR, AND KRR C PARTITION MAA INTO MLL,MLR, AND MRR C***** CALL UPART(USET,SCR1,UA,UL,UR) CALL MPART(KAA,KLL,0,KLR,KRR) CALL MPART(MAA,MLL,0,MLR,MRR) RETURN END ================================================ FILE: mis/rbmg2.f ================================================ SUBROUTINE RBMG2 C INTEGER SCR1, SCR2, SCR3, SCR4 DOUBLE PRECISION DET(2) COMMON /BLANK / JPOWR, DETRM COMMON /SFACT / QQ(29) EQUIVALENCE (QQ(25), DET(1)), (QQ(29), IPWR) DATA KLL , LLL, SCR1, SCR2, SCR3, SCR4 / 1 101 , 201, 301, 302, 303, 304 / C C DECOMPOSE KLL INTO LLL C CALL FACTOR (KLL,LLL,SCR1,SCR2,SCR3,SCR4) JPOWR = IPWR DETRM = DET(1) RETURN END ================================================ FILE: mis/rbmg3.f ================================================ SUBROUTINE RBMG3 C***** C SOLVE KLL * DM = -KLR FOR DM (WHERE LLL IS THE TRI FACTOR) C THEN COMPUTE X = KRR + KLR(T) * DM C AND ESP = NORM(X) / NORM(KRR) C***** INTEGER DM ,SCR1 ,SCR2 C DATA LLL ,KLR ,KRR /101 ,102 ,103 / 1 ,DM /201/ 2 ,SCR1 ,SCR2 /301 ,302 / C***** CALL SOLVER(LLL,DM,KLR,KRR,SCR1,EPS,1,SCR2) CALL MESAGE(35,0,EPS) RETURN C END ================================================ FILE: mis/rbmg4.f ================================================ SUBROUTINE RBMG4 C***** C RBMG4 COMPUTES MR FROM THE MATRIX EQUATION C MR = MRR + DM(T) * MLR + MLR(T) * DM + DM(T) * MLL * DM C***** INTEGER SCR1,SCR2,DM INTEGER SCR3 C***** C INPUT DATA FILES C***** DATA DM,MLL,MLR,MRR/101,102,103,104/ C***** C OUTPUT DATA FILES C***** DATA MR/201/ C***** C SCRATCH DATA FILES C***** DATA SCR1,SCR2,SCR3/301,302,303/ C***** C COMPUTE MR C***** CALL ELIM(MRR,MLR,MLL,DM,MR,SCR1,SCR2,SCR3) RETURN END ================================================ FILE: mis/rcard.f ================================================ SUBROUTINE RCARD (OUT,FMT,NFLAG,IN) CDIR$ INTEGER=64 C C CDIR$ IS CRAY COMPILER DIRECTIVE. 64 BIT INTEGER IS USED LOCALLY C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,COMPLF LOGICAL PASS,SEQGP,DECIML,LMINUS,EXPONT,DOUBLE,BLKON,NOGO REAL FL1 DOUBLE PRECISION XDOUBL DIMENSION BCD(16),VAL(16),NUM(10),OUT(1),TYPE(16),FMT(1), 1 IN(1),NT(16),NDOUBL(2),LINE(20),CHARS(7) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /LHPWX / LOWPW,HIGHPW COMMON /SYSTEM/ IBUFSZ,F6,NOGO,DUM1(7),NPAGES,NLINES,DUM2(10), 1 LSYSTM EQUIVALENCE (FL1 ,INT1 ), (XDOUBL,NDOUBL(1)), 1 (NUM(10) ,ZERO ), (CHARS(1),BLANK ), 2 (CHARS(2),STAR ), (CHARS(3),PLUS ), 3 (CHARS(4),MINUS), (CHARS(5),PERIOD ), 4 (CHARS(6),E ), (CHARS(7),D ) DATA PASS /.FALSE. /, BLANKS/ 4H /, STARS / 4H**** /, 1 LINE / 20*4H / , BLANK / 1H /, 2 STAR / 1H* /, PLUS / 1H+ /, MINUS / 1H- /, 3 PERIOD/ 1H. /, E / 1HE /, D / 1HD /, 4 SEQ / 3HSEQ /, P / 4HP /, IZERO / 0 / DATA NUM / 1H1,1H2 ,1H3,1H4, 1H5,1H6,1H7,1H8,1H9,1H0 / C IF (PASS) GO TO 40 PASS = .TRUE. A67777 = COMPLF(0) A67777 = RSHIFT(LSHIFT(A67777,1),1) C DO 20 I = 1,10 NUM(I) = KHRFN1(IZERO,4,NUM(I),1) 20 CONTINUE C DO 38 I = 1,7 38 CHARS(I) = KHRFN1(IZERO,4,CHARS(I),1) SEQ = KHRFN3(IZERO,SEQ,1,0) P = KHRFN3(IZERO,P ,0,0) C 40 FIELD = 0 NWORDS= 2 N 8 OR 16 = 8 WORD = 0 IOUT = 0 IFMT = 0 SEQGP = .FALSE. 50 IF (WORD .EQ. 18) GO TO 680 C C OPERATE ON 1 FIELD (2 OR 4 WORDS), GET FIRST NON-BLANK CHARACTER. C FIELD = FIELD + 1 DECIML = .FALSE. LMINUS = .FALSE. EXPONT = .FALSE. DOUBLE = .FALSE. BLKON = .FALSE. PLACES = 0 IT = 0 SIGN = 0 POWER = 0 C C READ 8 OR 16 CHARACTERS OF ONE FIELD C C TYPE AS 0 = BLANK, -1 = BCD, +1 = INTEGER C N = 0 WORD1 = WORD + 1 WORD = WORD + NWORDS DO 110 I = WORD1,WORD DO 100 J = 1,4 N = N + 1 CHARAC = KHRFN1(IZERO,4,IN(I),J) IF (CHARAC .EQ. BLANK) GO TO 70 IF (CHARAC .EQ. ZERO ) GO TO 80 DO 60 K = 1,9 IF (CHARAC .EQ. NUM(K)) GO TO 90 60 CONTINUE TYPE(N)= -1 VAL(N) = CHARAC GO TO 100 70 TYPE(N)= 0 VAL(N) = BLANK GO TO 100 80 K = 0 90 TYPE(N)= 1 VAL(N) = K 100 BCD(N) = CHARAC 110 CONTINUE C C BCD, INTEGER TRANSFER ON FIRST NON-BLANK CHARACTER C IF (.NOT.SEQGP) GO TO 120 GO TO (120,120,690,120,690,120,690,120,690), FIELD C 120 DO 130 N = 1,N8OR16 IF (TYPE(N)) 150,130,320 130 CONTINUE C C ALL BLANK FIELD IF FALL HERE C IF (FIELD .EQ. 1) GO TO 160 140 IOUT = IOUT + 1 OUT(IOUT) = 0 IFMT = IFMT + 1 FMT(IFMT) = 0 GO TO 50 C C ********************************************** C C ALPHA HIT FOR FIRST CHARACTER C 150 IF (FIELD.EQ.1 .AND. VAL(N).EQ.STAR) GO TO 270 IF (VAL(N) .EQ. PLUS ) GO TO 290 IF (VAL(N) .EQ. PERIOD) GO TO 300 IF (VAL(N) .EQ. MINUS ) GO TO 310 C C PLAIN ALPHA BCD FIELD NOW ASSUMED. C CHECKING FOR DOULBE-FIELD * IF WE ARE IN FIELD 1 C IF (FIELD .NE. 1) GO TO 160 IF (BCD(8).NE.STAR .OR. TYPE(8).NE.-1) GO TO 160 NWORDS = 4 N8OR16 = 16 C C REMOVE STAR BEFORE PUTTING 2 BCD WORDS INTO OUT C BCD(8) = BLANK 160 IOUT = IOUT + 2 IF (TYPE(1)) 170,180,170 170 IF (NWORDS.EQ.4 .AND. FIELD.EQ.1) GO TO 180 N = WORD - NWORDS OUT(IOUT-1) = IN(N+1) OUT(IOUT ) = IN(N+2) GO TO 260 C C CHARACTER N WAS FIRST NON-BLANK CHARACTER C 180 MAX = N 8 OR 16 - N + 1 DO 190 I = 1,MAX BCD(I) = BCD(N) 190 N = N + 1 200 IF (MAX .GE. 8) GO TO 210 MAX = MAX + 1 BCD(MAX) = BLANK GO TO 200 210 WORD1 = 0 WORD2 = 0 DO 220 I = 1,4 WORD1 = KHRFN3(BCD(I ),WORD1,1,1) WORD2 = KHRFN3(BCD(I+4),WORD2,1,1) 220 CONTINUE OUT(IOUT-1) = WORD1 OUT(IOUT ) = WORD2 260 IFMT = IFMT + 1 FMT(IFMT) = 3 IF (FIELD .NE. 1) GO TO 50 IF (KHRFN3(IZERO,OUT(IOUT-1),1,0).EQ.SEQ .AND. 1 KHRFN3(IZERO,OUT(IOUT ),0,0).EQ.P) SEQGP = .TRUE. GO TO 50 C C ********************************************** C C FIRST CHARACTER ON CARD IS A STAR C 270 NWORDS = 4 N 8 OR 16 = 16 280 IOUT = IOUT + 2 OUT(IOUT-1) = 0 OUT(IOUT ) = 0 IFMT = IFMT + 1 FMT(IFMT) = 3 GO TO 50 C C ********************************************** C C FIRST CHARACTER IN FIELD IS A PLUS C 290 IF (FIELD .EQ. 1) GO TO 280 C C IGNORING PLUS SIGN AND NOW ASSUMING FIELD IS NUMBERIC C GO TO 340 C C ********************************************** C C FIRST CHARACTER IN FIELD IS A PERIOD C 300 DECIML = .TRUE. PLACES = 0 GO TO 340 C C ********************************************** C C FIRST CHARACTER IN FIELD IS A MINUS C 310 LMINUS = .TRUE. GO TO 340 C C ********************************************** C C 0 TO 9 NUMERIC HIT C 320 IF (VAL(N)) 330,340,330 C C NON-ZERO NUMBER. SAVING IT NOW IN TABLE NT C 330 NT(1) = VAL(N) IT = 1 340 IF (N .EQ. N 8 OR 16) GO TO 380 C C PROCESS REMAINING DIGITS C NNN = N + 1 DO 370 N = NNN,N8OR16 IF ((TYPE(N).EQ.0 .OR. VAL(N).EQ.ZERO) .AND. IT.EQ.0 .AND. 1 .NOT.DECIML) GO TO 370 IF (TYPE(N)) 350,350,360 C C FALL THRU IMPLIES NON 0 TO 9 CHARACTER C 350 IF (VAL(N) .NE. PERIOD) GO TO 430 IF (DECIML) GO TO 910 PLACES = 0 DECIML = .TRUE. GO TO 370 C C 0 TO 9 CHARACTER HIT. SAVE IT. C 360 IT = IT + 1 NT(IT) = VAL(N) IF (DECIML) PLACES = PLACES + 1 370 CONTINUE C C NUMERIC WORD COMPLETED C IF DECIML IS .FALSE. NUMERIC IS A SIMPLE INTEGER C 380 IF (DECIML) GO TO 570 C C ********************************************** C C SIMPLE INTEGER C 390 NUMBER = 0 IF (IT .EQ. 0) GO TO 410 DO 400 I = 1,IT IF (((A67777-NT(I))/10) .LT. NUMBER) GO TO 890 400 NUMBER = NUMBER*10 + NT(I) 410 IF (LMINUS) NUMBER = - NUMBER 420 IOUT = IOUT + 1 OUT(IOUT) = NUMBER IFMT = IFMT + 1 FMT(IFMT) = 1 GO TO 50 C C ********************************************** C C PROBABLE (E, D, +, -) EXPONENT HIT OR BLANK C 430 IF (TYPE(N)) 460,440,460 C C BLANK HIT THUS ONLY AN EXPONENT OR BLANKS PERMITTED FOR BALANCE C OF FIELD C 440 IF (N .EQ. N 8 OR 16) GO TO 450 N = N + 1 IF (TYPE(N)) 460,440,960 C C FALL THRU ABOVE LOOP IMPLIES BALANCE OF FIELD WAS BLANKS C 450 IF (DECIML) GO TO 570 GO TO 390 C C ********************************************** C C COMING HERE IMPLIES A NON-BLANK CHARACTER HAS BEEN HIT BEGINNING C AN EXPONENT. IT HAS TO BE A (+, -, D, OR E ) FOR NO ERROR C 460 IF (VAL(N) .NE. PLUS) GO TO 470 EXPONT= .TRUE. SIGN = PLUS GO TO 500 470 IF (VAL(N) .NE. E) GO TO 480 EXPONT= .TRUE. GO TO 500 480 IF (VAL(N) .NE. MINUS) GO TO 490 EXPONT= .TRUE. SIGN = MINUS GO TO 500 490 IF (VAL(N) .NE. D) GO TO 960 EXPONT= .TRUE. DOUBLE= .TRUE. C C READ INTEGER POWER, WITH OR WITHOUT SIGN C 500 IF (N .EQ. N 8 OR 16) GO TO 950 N = N + 1 C IF (TYPE(N)) 510,500,520 510 IF (VAL(N).NE.PLUS .AND. VAL(N).NE.MINUS) GO TO 520 IF (SIGN .NE. 0) GO TO 940 SIGN = VAL(N) GO TO 500 C C FIRST DIGIT OF INTEGER POWER AT HAND NOW C 520 POWER = 0 BLKON = .FALSE. C 530 IF (TYPE(N)) 930,930,540 540 POWER = POWER*10 + VAL(N) C C GET ANY MORE DIGITS IF PRESENT C 550 IF (N .EQ. N 8 OR 16) GO TO 570 N = N + 1 IF (BLKON) IF (TYPE(N)) 980,550,980 IF (TYPE(N)) 530,560,530 C C BLANK HIT, BALANCE OF FIELD MUST BE BLANKS C 560 BLKON = .TRUE. GO TO 550 C C ********************************************** C C SINGLE OR DOUBLE PRECISION FLOATING POINT NUMBER C COMPLETE AND OUTPUT IT. C C 15 SIGNIFICANT FIGURES POSSIBLE ON INPUT C CONSIDERED SINGLE PRECISION UNLESS D EXPONENT IS PRESENT C 570 IF (SIGN .EQ. MINUS) POWER = -POWER POWER = POWER - PLACES C NUMBER = 0 IF (IT) 580,620,580 580 IF (IT .LT. 7) GO TO 590 N = 7 GO TO 600 590 N = IT 600 DO 610 I = 1,N 610 NUMBER = NUMBER*10 + NT(I) 620 XDOUBL = DBLE(FLOAT(NUMBER)) IF (IT .LE. 7) GO TO 640 NUMBER = 0 DO 630 I = 8,IT 630 NUMBER = NUMBER*10 + NT(I) XDOUBL = XDOUBL*10.0D0**(IT-7) + DBLE(FLOAT(NUMBER)) 640 IF (LMINUS) XDOUBL = -XDOUBL C C CHECK FOR POWER IN RANGE OF MACHINE C ICHEK = POWER + IT IF (XDOUBL .EQ. 0.0D0) GO TO 660 IF (ICHEK.LT.LOWPW+1 .OR. ICHEK.GT.HIGHPW-1 .OR. 1 POWER.LT.LOWPW+1 .OR. POWER.GT.HIGHPW-1) GO TO 860 C XDOUBL = XDOUBL*10.0D0**POWER 660 IFMT = IFMT + 1 IF (DOUBLE) GO TO 670 FL1 = XDOUBL IOUT = IOUT + 1 OUT(IOUT) = INT1 FMT(IFMT) = 2 GO TO 50 670 IOUT = IOUT + 2 OUT(IOUT-1) = NDOUBL(1) OUT(IOUT ) = NDOUBL(2) FMT(IFMT) = 4 GO TO 50 680 NFLAG = IOUT FMT(IFMT+1) = -1 RETURN C C ********************************************** C C FIRST CHARACTER OF FIELD 3, 5, 7, OR 9 ON SEQGP CARD ENCOUNTERED. C C IT HAS TO BE A 1 TO 9 FOR NO ERROR C 690 DO 700 N = 1,N8OR16 IF (TYPE(N)) 1000,700,710 700 CONTINUE GO TO 140 C C STORE NUMBER IN NT C 710 NPOINT = 0 720 IT = IT + 1 NT(IT) = VAL(N) 730 IF (N .EQ. N 8 OR 16) GO TO 800 N = N + 1 C C GET NEXT CHARACTER C IF (NPOINT.GT.0 .AND. .NOT.DECIML .AND. .NOT.BLKON) GO TO 790 IF (DECIML) GO TO 770 IF (BLKON ) GO TO 750 IF (TYPE(N)) 740,740,720 740 IF (VAL(N) .EQ. PERIOD) GO TO 760 750 IF (TYPE(N) .NE. 0) GO TO 1020 BLKON = .TRUE. GO TO 730 C 760 DECIML = .TRUE. NPOINT = NPOINT + 1 GO TO 730 C 770 IF (TYPE(N)) 1020,1020,780 C 780 DECIML = .FALSE. GO TO 720 C 790 IF (VAL(N).EQ.PERIOD .AND. TYPE(N).LT.0) GO TO 760 GO TO 750 C C READY TO COMPUTE INTEGER VALUE OF SPECIAL SEQGP INTEGER C 800 NPOINT = 3 - NPOINT IF (NPOINT) 1010,830,810 810 DO 820 K = 1,NPOINT IT = IT + 1 820 NT(IT) = 0 C C COMPUTE NUMBER C 830 NUMBER = 0 IF (IT) 840,420,840 840 DO 850 K = 1,IT IF (((A67777-NT(K))/10) .LT. NUMBER) GO TO 1040 NUMBER = NUMBER*10 + NT(K) 850 CONTINUE GO TO 420 C C 860 WRITE (F6,870) UFM 870 FORMAT (A23,' 300, DATA ERROR IN FIELD UNDERLINED.') WRITE (F6,880) 880 FORMAT (10X,42HFLOATING POINT NUMBER OUT OF MACHINE RANGE) GO TO 1060 890 WRITE (F6,870) UFM WRITE (F6,900) 900 FORMAT (10X,38HINTEGER MAGNITUDE OUT OF MACHINE RANGE) GO TO 1060 910 WRITE (F6,870) UFM WRITE (F6,920) 920 FORMAT (10X,22HDATA NOT RECOGNIZEABLE) GO TO 1060 930 CONTINUE 940 CONTINUE 950 CONTINUE 960 WRITE (F6,870) UFM WRITE (F6,970) 970 FORMAT (10X,26HPOSSIBLE ERROR IN EXPONENT) GO TO 1060 980 WRITE (F6,870) UFM WRITE (F6,990) 990 FORMAT (10X,23HPOSSIBLE IMBEDDED BLANK) GO TO 1060 1000 CONTINUE 1010 CONTINUE 1020 WRITE (F6,870) UFM WRITE (F6,1030) 1030 FORMAT (10X,30HINCORRECT DEWEY DECIMAL NUMBER) GO TO 1060 1040 WRITE (F6,870) UFM WRITE (F6,1050) 1050 FORMAT (10X,49HINTERNAL CONVERSION OF DEWEY DECIMAL IS TOO LARGE) 1060 WORD = (FIELD-1)*NWORDS + 2 ASSIGN 1090 TO IRETRN WORD2 = STARS 1070 LINE(WORD ) = WORD2 LINE(WORD-1) = WORD2 IF (NWORDS .EQ. 2 .OR. FIELD .EQ. 1) GO TO 1080 LINE(WORD-2) = WORD2 LINE(WORD-3) = WORD2 1080 GO TO IRETRN,(1090,1150) 1090 IF (NWORDS .EQ. 4) GO TO 1110 WRITE (F6,1100) 1100 FORMAT (10X,80H. 1 .. 2 .. 3 .. 4 .. 5 .. 6 .. 1 7 .. 8 .. 9 .. 10 .) GO TO 1130 1110 WRITE (F6,1120) 1120 FORMAT (10X,80H. 1 .. 2 AND 3 .. 4 AND 5 .. 6 AND 1 7 .. 8 AND 9 .. 10 .) 1130 WRITE (F6,1140) (IN(I),I=1,20),LINE 1140 FORMAT (10X,20A4) ASSIGN 1150 TO IRETRN WORD2 = BLANKS GO TO 1070 1150 IOUT = IOUT + 1 NLINES = NLINES + 7 OUT(IOUT) = 0 IFMT = IFMT + 1 FMT(IFMT) = -1 NOGO = .TRUE. GO TO 50 END ================================================ FILE: mis/rcard2.f ================================================ SUBROUTINE RCARD2 (OUT,FMT,NFLAG,IN) CDIR$ INTEGER=64 C C CDIR$ IS CRAY COMPILE DIRECTIVE. 64-BIT INTEGER IS USED LOCALLY C C THIS ROUTINE IS MUCH MORE EFFICIENT THAN THE OLD ROUTINE RCARD C IT CAN SAFELY REPLACE THE OLD RCARD ROUTINE C WRITTEN BY G.CHAN/UNISYS 10/1987 C REVISED, 8/1989, IMPROVED EFFICIENCY BY REDUCING CHARACTER C OPERATIONS (VERY IMPORTANT FOR CDC MACHINE) C LAST REVISED, 8/1991, SETTING UP REAL NO. UPPER AND LOWER BOUNDS C FOR VARIOUS MACHINES C C RCARD2 ASSUMES ALL INPUT FIELDS IN 'IN' ARE LEFT-ADJUSTED. C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT ,RSHIFT ,COMPLF LOGICAL SEQGP ,DECIML ,MINUS ,NOGO , 1 EXPONT ,DOUBLE ,BLKON INTEGER IN(20) ,OUT(1) ,FMT(1) ,TYPE(16) , 1 NT(16) ,OUTX(100),IDOUBL(2),VALUE(16), 2 NUM1(9) ,CHR1(16) ,A1(80) REAL FPT DOUBLE PRECISION DDOUBL CHARACTER*1 BLANKC ,STARC ,DOTC ,PLUSC , 1 MINUSC ,DC ,EC ,ZEROC , 2 KHR1(16) ,K1(80) CHARACTER*4 IN4(40) ,C4(1) ,CHR4(4) ,OUT4(100) CHARACTER*5 D5 ,SEQGP5 ,SEQEP5 CHARACTER*100 TMP100 ,OUT100(4) CHARACTER NUM9*9 ,UFM*23 ,E80*80 COMMON /XMSSG / UFM COMMON /LHPWX / LOWPW ,HIGHPW COMMON /SYSTEM/ BUFSZ ,NOUT ,NOGO ,DUM1(8) , 1 NLINES COMMON /XECHOX/ DUM2(4) ,XSORT2 EQUIVALENCE (CHR11,CHR1(1)), (K1(1),IN4(1),D5,E80), 1 (FPT,INTGR), (KHR1(1),CHR4(1)), 2 (DDOUBL,IDOUBL(1)),(OUT4(1),OUT100(1)) DATA BLANKC, STARC, PLUSC, MINUSC, DOTC, EC, DC / 1 ' ', '*', '+', '-', '.', 'E', 'D' / DATA BLANK, STARS, SEQGP5, SEQEP5, ZEROC, NUM9 / 1 4H , 4H====, 'SEQGP','SEQEP', '0', '123456789' / DATA PLUS1 / 0 / C IF (PLUS1 .NE. 0) GO TO 10 CALL K2B (BLANKC,BLANK1,1) CALL K2B (STARC ,STAR1 ,1) CALL K2B (PLUSC ,PLUS1 ,1) CALL K2B (MINUSC,MINUS1,1) CALL K2B (DOTC ,DOT1 ,1) CALL K2B (EC ,E1 ,1) CALL K2B (DC ,D1 ,1) CALL K2B (ZEROC ,ZERO1 ,1) CALL K2B (NUM9 ,NUM1 ,9) 10 CONTINUE C CALL BCDKH8 (IN,E80) CALL K2B (E80,A1,80) GO TO 30 C C ENTRY RCARD3 (OUT,FMT,NFLAG,C4) C =============================== C C IN RCARD2, 'IN' IS 4-BYTE BCD AND 'OUT' IS 4-BYTE BCD C IN RCARD3, 'C4' IS CHARACTER*4 AND 'OUT' IS 4-BYTE BCD C 'IN' AND 'C4' ARE INPUT, AND 'OUT' IS OUTPUT C DO 20 I = 1,20 20 IN4(I) = C4(I) CALL K2B (C4,A1,80) C 30 FIELD = 0 IOUT = 0 IFMT = 0 WORD = 0 NWORDS = 2 SEQGP = .FALSE. A67777 = RSHIFT(LSHIFT(COMPLF(0),1),1)/10 - 10 N 8 OR 16 = 8 DO 40 I = 1,100 40 OUTX(I) = BLANK C C PROCESS ONE FIELD (2 OR 4 WORDS) AT A TIME, C GET FIRST NON-BLANK CHARATER C 50 IF (WORD .EQ. 18) GO TO 860 FIELD = FIELD + 1 DECIML =.FALSE. MINUS =.FALSE. EXPONT =.FALSE. DOUBLE =.FALSE. BLKON =.FALSE. SIGN1 = BLANK1 PLACES = 0 IT = 0 POWER = 0 C C READ 8 OR 16 CHARATERS OF ONE FIELD C FOR EACH CHARACTER, SET TYPE TO C 0 IF IT IS A BLANK C -1 IF IT IS BCD CHARACTER, AND C +1 IF IT IS NUMERIC C BASE = WORD*4 WORD = WORD + NWORDS DO 110 N = 1,N 8 OR 16 A1NB = A1(N+BASE) IF (A1NB .EQ. BLANK1) GO TO 70 IF (A1NB .EQ. ZERO1 ) GO TO 80 DO 60 K = 1,9 IF (A1NB .EQ. NUM1(K)) GO TO 90 60 CONTINUE TYPE(N) = -1 GO TO 100 70 TYPE(N) = 0 GO TO 100 80 K = 0 90 TYPE(N) = 1 VALUE(N)= K 100 CHR1(N) = A1NB KHR1(N) = K1(N+BASE) 110 CONTINUE C IF (SEQGP) GO TO (120,120,690,120,690,120,690,120,690), FIELD C C BRANCH ON BCD, BLANK, OR NUMERIC C 120 IF (TYPE(1)) 150, 130, 320 C BCD BLANK NUMERIC C C A BLANK FIELD - C =============== C 130 IF (FIELD .EQ. 1) GO TO 180 140 IOUT = IOUT + 1 OUTX(IOUT) = 0 IFMT = IFMT + 1 FMT(IFMT) = 0 GO TO 50 C C BCD FIELD - C =========== C C FIRST NON-BLANK CHARATER IS ALPHA, STAR, DOT, PLUS, OR MINUS C 150 IF (FIELD.EQ.1 .AND. CHR11.EQ.STAR1) GO TO 270 IF (CHR11 .EQ. PLUS1 ) GO TO 290 IF (CHR11 .EQ. DOT1 ) GO TO 300 IF (CHR11 .EQ. MINUS1) GO TO 310 C C TRUE ALPHA BCD-CHARACTER FIELD C C CHECKING FOR DOULBE-FIELD ASTERISK (*) IF WE ARE IN FIELD 1 C SET DOUBLE FLAGS N8OR16, NWORDS, AND REMOVE THE ASTERISK C IF (FIELD .NE. 1) GO TO 180 J = 8 DO 160 I = 2,8 IF (CHR1(J).EQ.STAR1 .AND. TYPE(J).EQ.-1) GO TO 170 160 J = J - 1 GO TO 180 170 NWORDS = 4 N 8 OR 16 = 16 CHR1(J) = BLANK1 KHR1(J) = BLANKC C 180 IOUT = IOUT + 2 IF (TYPE(1)) 190,200,190 190 IF (NWORDS.EQ.4 .AND. FIELD.EQ.1) GO TO 200 N = WORD - NWORDS OUT4(IOUT-1) = IN4(N+1) OUT4(IOUT ) = IN4(N+2) GO TO 260 C 200 OUT4(IOUT-1) = CHR4(1) OUT4(IOUT ) = CHR4(2) 260 IFMT = IFMT + 1 FMT(IFMT) = 3 C C IF FIRST FIELD IS SEQGP OR SEQEP, SET SEQGP FLAG TO TRUE C IF (FIELD.EQ.1 .AND. (D5.EQ.SEQGP5 .OR. D5.EQ.SEQEP5)) 1 SEQGP = .TRUE. GO TO 50 C C FIRST CHARATER ON CARD IS AN ASTERISK (*) C 270 NWORDS = 4 N 8 OR 16 = 16 280 IOUT = IOUT + 2 OUTX(IOUT-1) = 0 OUTX(IOUT ) = 0 IFMT = IFMT + 1 FMT(IFMT) = 3 GO TO 50 C C FIRST CHARATER IN FIELD IS A PLUS (+) C IGNOR IT AND ASSUMING REMAINING FIELD IS NUMBERIC C 290 IF (FIELD-1) 340,280,340 C C FIRST CHARATER IN FIELD IS A DOT (.) C 300 DECIML = .TRUE. PLACES = 0 GO TO 340 C C FIRST CHARATER IN FIELD IS A MINUS (-) C 310 MINUS = .TRUE. GO TO 340 C C NUMERIC - 0 TO 9 C ================= C 320 IF (VALUE(1) .EQ. 0) GO TO 340 NT(1) = VALUE(1) IT = 1 C C PROCESS REMAINING DIGITS C 340 DO 370 N = 2,N 8 OR 16 IF (TYPE(N) .GT. 0) GO TO 360 C C A NON-NUMERIC CHARACTER ENCOUNTERED C IF (CHR1(N) .NE. DOT1) GO TO 430 IF (DECIML) GO TO 950 PLACES = 0 DECIML = .TRUE. GO TO 370 C C A NUMERIC CHARACTER, 0 TO 9, SAVE IT IN NT C 360 IT = IT + 1 NT(IT) = VALUE(N) IF (DECIML) PLACES = PLACES + 1 370 CONTINUE C C IF DECIML IS .FALSE. NUMERIC IS AN INTEGER C IF (DECIML) GO TO 570 C C INTEGER FOUND. NASTRAN INTEGER LIMIT = 10*A67777 C 390 NUMBER = 0 IF (IT .EQ. 0) GO TO 410 DO 400 I = 1,IT IF (NUMBER .GT. A67777) GO TO 930 400 NUMBER = NUMBER*10 + NT(I) 410 IF (MINUS) NUMBER = - NUMBER 420 IOUT = IOUT + 1 OUTX(IOUT) = NUMBER IFMT = IFMT + 1 FMT(IFMT) = 1 GO TO 50 C C PROBABLY WE JUST ENCOUNTERED (E, D, +, -) EXPONENT, OR BLANK C 430 IF (TYPE(N)) 460,440,460 C C IT IS A BLANK C THUS ONLY AN EXPONENT OR BLANKS PERMITTED FOR BALANCE OF FIELD C 440 IF (N .EQ. N 8 OR 16) GO TO 450 N = N + 1 IF (TYPE(N)) 460,440,970 C C FALL THRU ABOVE LOOP IMPLIES BALANCE OF FIELD WAS BLANKS C 450 IF (DECIML) GO TO 570 GO TO 390 C C A NON-BLANK CHARACTER - C IT HAS TO BE A (+, -, D, OR E ) OF THE EXPONENT STRING C 460 EXPONT = .TRUE. IF (CHR1(N) .NE. PLUS1) GO TO 470 SIGN1 = PLUS1 GO TO 500 470 IF (CHR1(N) .NE. E1) GO TO 480 GO TO 500 480 IF (CHR1(N) .NE. MINUS1) GO TO 490 SIGN1 = MINUS1 GO TO 500 490 IF (CHR1(N) .NE. D1) GO TO 970 DOUBLE = .TRUE. C C READ INTEGER POWER, WITH OR WITHOUT SIGN C 500 IF (N .EQ. N 8 OR 16) GO TO 970 N = N + 1 C IF (TYPE(N)) 510,500,520 510 IF (CHR1(N).NE.PLUS1 .AND. CHR1(N).NE.MINUS1) GO TO 520 IF (SIGN1 .NE. BLANK1) GO TO 970 SIGN1 = CHR1(N) GO TO 500 C C FIRST DIGIT OF INTEGER POWER AT HAND NOW C 520 POWER = 0 BLKON = .FALSE. C 530 IF (TYPE(N)) 970,970,540 540 POWER = POWER*10 + VALUE(N) C C GET ANY MORE DIGITS IF PRESENT C 550 IF (N .EQ. N 8 OR 16) GO TO 570 N = N + 1 IF (BLKON) IF (TYPE(N)) 990,550,990 IF (TYPE(N)) 530,560,530 C C IS A BLANK. BALANCE OF FIELD MUST BE BLANKS C 560 BLKON = .TRUE. GO TO 550 C C SINGLE OR DOUBLE PRECISION FLOATING POINT NUMBER C COMPLETE AND OUTPUT IT C C 15 SIGNIFICANT FIGURES POSSIBLE ON INPUT C CONSIDERED SINGLE PRECISION UNLESS D EXPONENT IS PRESENT C 570 IF (SIGN1 .EQ. MINUS1) POWER = -POWER POWER = POWER - PLACES C NUMBER = 0 IF (IT) 580,620,580 580 IF (IT .LT. 7) GO TO 590 N = 7 GO TO 600 590 N = IT 600 DO 610 I = 1,N 610 NUMBER = NUMBER*10 + NT(I) 620 DDOUBL = DBLE(FLOAT(NUMBER)) IF (IT .LE. 7) GO TO 640 NUMBER = 0 DO 630 I = 8,IT 630 NUMBER = NUMBER*10 + NT(I) DDOUBL = DDOUBL*10.0D0**(IT-7) + DBLE(FLOAT(NUMBER)) 640 IF (MINUS) DDOUBL = -DDOUBL C C CHECK FOR POWER IN RANGE OF MACHINE C CHECK = POWER + IT IF (DDOUBL .EQ. 0.0D0) GO TO 660 IF (CHECK.LT.LOWPW+1 .OR. CHECK.GT.HIGHPW-1 .OR. 1 POWER.LT.LOWPW+1 .OR. POWER.GT.HIGHPW-1) GO TO 900 C DDOUBL = DDOUBL*10.0D0**POWER 660 IFMT = IFMT + 1 IF (DOUBLE) GO TO 670 FPT = DDOUBL IOUT = IOUT + 1 OUTX(IOUT)= INTGR FMT(IFMT) = 2 GO TO 50 670 IOUT = IOUT + 2 OUTX(IOUT-1) = IDOUBL(1) OUTX(IOUT ) = IDOUBL(2) FMT(IFMT) = 4 GO TO 50 C C FIRST CHARATER OF FIELD 3, 5, 7, OR 9 ON SEQGP/SEQEP CARD C ENCOUNTERED. IT HAS TO BE A 1 TO 9 FOR NO ERROR C 690 DO 700 N = 1,N 8 OR 16 IF (TYPE(N)) 1020,700,710 700 CONTINUE GO TO 140 C C STORE NUMBER IN NT C 710 NPOINT = 0 720 IT = IT + 1 NT(IT) = VALUE(N) 730 IF (N .EQ. N 8 OR 16) GO TO 800 N = N + 1 C C GET NEXT CHARATER C IF (NPOINT.GT.0 .AND. .NOT.DECIML .AND. .NOT.BLKON) GO TO 790 IF (DECIML) GO TO 770 IF (BLKON ) GO TO 750 IF (TYPE(N)) 740,740,720 740 IF (CHR1(N) .EQ. DOT1) GO TO 760 750 IF (TYPE(N) .NE. 0) GO TO 1020 BLKON = .TRUE. GO TO 730 C 760 DECIML = .TRUE. NPOINT = NPOINT + 1 GO TO 730 C 770 IF (TYPE(N)) 1020,1020,780 C 780 DECIML = .FALSE. GO TO 720 C 790 IF (CHR1(N).EQ.DOT1 .AND. TYPE(N).LT.0) GO TO 760 GO TO 750 C C READY TO COMPUTE INTEGER VALUE OF SPECIAL SEQGP/SEQEP INTEGER C 800 NPOINT = 3 - NPOINT IF (NPOINT) 1020,830,810 810 DO 820 K = 1,NPOINT IT = IT + 1 820 NT(IT) = 0 C C COMPUTE NUMBER. NASTRAN INTEGER LIMIT = 10*A67777 C 830 NUMBER = 0 IF (IT) 840,420,840 840 DO 850 K = 1,IT IF (NUMBER .GT. A67777) GO TO 1040 NUMBER = NUMBER*10 + NT(K) 850 CONTINUE GO TO 420 C C ALL FIELDS PROCESSED C 860 NFLAG = IOUT FMT(IFMT+1) = -1 C C CONVERT CHARACTERS TO BCD, AND INSERT NUMERIC VALUES IF C APPLICABLE C N = 1 DO 890 I = 1,NFLAG,25 K = I + 24 TMP100 = OUT100(N) CALL KHRBC1 (TMP100,OUT(I)) DO 880 J = I,K IF (OUTX(J) .NE. BLANK) OUT(J)=OUTX(J) 880 CONTINUE 890 N = N + 1 RETURN C C ERROR C 900 WRITE (NOUT,910) UFM 910 FORMAT (A23,' 300, DATA ERROR IN FIELD UNDERLINED.') WRITE (NOUT,920) 920 FORMAT (10X,'FLOATING POINT NUMBER OUT OF MACHINE RANGE') WRITE (NOUT,925) POWER,IT,CHECK,LOWPW,HIGHPW 925 FORMAT (10X,'POWER,IT,CHECK,LOWPW,HIGHPW =',5I5) GO TO 1060 930 WRITE (NOUT,910) UFM WRITE (NOUT,940) 940 FORMAT (10X,'INTEGER MAGNITUDE OUT OF MACHINE RANGE') GO TO 1060 950 IF (XSORT2 .EQ. 2) GO TO 50 WRITE (NOUT,910) UFM WRITE (NOUT,960) 960 FORMAT (10X,'DATA NOT RECOGNIZEABLE') GO TO 1060 970 EXPONT = .FALSE. IF (XSORT2 .EQ. 2) GO TO 50 WRITE (NOUT,910) UFM WRITE (NOUT,980) 980 FORMAT (10X,'POSSIBLE ERROR IN EXPONENT') GO TO 1060 990 IF (XSORT2 .EQ. 2) GO TO 50 WRITE (NOUT,910) UFM WRITE (NOUT,1000) 1000 FORMAT (10X,'POSSIBLE IMBEDDED BLANK') GO TO 1060 1020 IF (XSORT2 .EQ. 2) GO TO 50 WRITE (NOUT,910) UFM WRITE (NOUT,1030) 1030 FORMAT (10X,'INCORRECT DEWEY DECIMAL NUMBER') GO TO 1060 1040 IF (XSORT2 .EQ. 2) GO TO 50 WRITE (NOUT,910) UFM WRITE (NOUT,1050) 1050 FORMAT (10X,'INTERNAL CONVERSION OF DEWEY DECIMAL IS TOO LARGE') 1060 DO 1070 J = 1,20 IF (OUTX(J) .NE. STARS) OUTX(J) = BLANK 1070 CONTINUE WORD = (FIELD-1)*NWORDS + 2 K = STARS 1080 OUTX(WORD ) = K OUTX(WORD-1) = K IF (NWORDS.EQ.2 .OR. FIELD.EQ.1) GO TO 1090 OUTX(WORD-2) = K OUTX(WORD-3) = K 1090 IF (K .EQ. 0) GO TO 1150 IF (NWORDS .EQ. 4) GO TO 1110 WRITE (NOUT,1100) 1100 FORMAT (10X,'---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ', 1 '---7--- +++8+++ ---9--- +++10+++') GO TO 1130 1110 WRITE (NOUT,1120) 1120 FORMAT (10X,'---1--- +++++2+&+3+++++ -----4-&-5----- +++++6+&', 1 '+7+++++ -----8-&-9----- +++10+++') 1130 WRITE (NOUT,1140) (IN4(I),I=1,20),OUTX 1140 FORMAT (10X,20A4) NLINES = NLINES + 7 K = 0 GO TO 1080 1150 IOUT = IOUT + 1 OUTX(IOUT) = 0 IFMT = IFMT + 1 FMT(IFMT) = -1 NOGO =.TRUE. GO TO 50 C END ================================================ FILE: mis/rcova.f ================================================ SUBROUTINE RCOVA C C RCOVA CREATES THE SOLN ITEM FOR A FINAL SOLUTION STRUCTURE (FSS) C IN PHASE 2 OF SUBSTRUCTURING C LOGICAL MRECVR INTEGER IZ(1) ,NAME(2) ,SOLN ,DRY , 1 STEP ,FSS ,RFNO ,BUF1 , 2 BUF2 ,BUF3 ,SYSBUF ,RC , 3 SOF1 ,SOF2 ,SOF3 ,KM(5) , 4 KMU(5) ,SCHK ,UVEC ,PHIS , 5 SCR1 COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)) DATA SOLN , UVEC, PHIS / 4HSOLN,4HUVEC,4HPHIS / DATA KM / 4HKMTX,4HMMTX,4HUVEC,4HBMTX,4HK4MX / DATA KMU / 103,104,106,109,110 / DATA SCHK / 3 / DATA SCR1 / 301 / DATA NAME / 4HRCOV,4HA / C C INITIALIZE C SOF1 = KORSZ(Z) - LREQ - SYSBUF + 1 SOF2 = SOF1 - SYSBUF - 1 SOF3 = SOF2 - SYSBUF BUF1 = SOF3 - SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF ICORE= 1 LCORE= BUF3 - 1 IF (LCORE .LE. 0) CALL MESAGE (-8,0,NAME) CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) C C COPY KGG, MGG, UVEC, BGG AND K4GG TO THE SOF IF THEY ARNT THERE C DO 20 I = 1,5 IF (KM(I).EQ.UVEC .AND. MRECVR) GO TO 20 IF (DRY .LT. 0) GO TO 5 3 CALL MTRXO (KMU(I),FSS,KM(I),Z(BUF1),RC) GO TO (20,15,20,10,10,20), RC 5 RC = 2 CALL MTRXO (-1,FSS,KM(I),0,RC) GO TO 20 10 CALL SMSG (RC-2,KM(I),FSS) GO TO 20 15 CALL DELETE (FSS,KM(I),RC) GO TO 3 20 CONTINUE IF (DRY) 440,70,70 C C IF MODAL RECOVER, COPY PHIS ITEM TO UVEC C 70 IF (.NOT.MRECVR) GO TO 90 RFNO = 3 CALL MTRXI (SCR1,FSS,PHIS,0,RC) IF (RC .EQ. 1) GO TO 80 CALL SMSG (RC-2,PHIS,FSS) GO TO 9100 80 CALL MTRXO (SCR1,FSS,UVEC,0,RC) C C ATTEMPT TO FETCH SOLN ITEM FOR FSS. IF IT ALREADY EXISTS, RETURN C 90 CALL SFETCH (FSS,SOLN,SCHK,RC) IF (RC .EQ. 1) GO TO 440 IF (RC .EQ. 3) GO TO 100 CALL SMSG (RC-2,SOLN,FSS) GO TO 440 C C CREATE SOLN ITEM FOR PROPER RIGID FORMAT C 100 IF (RFNO.LT.0 .OR. RFNO.GT.9) GO TO 9007 GO TO (110,110,130,9007,9007,9007,9007,180,180) , RFNO C C STATIC SOLUTION - R.F. 1 AND 2 C 110 CALL RCOVSS GO TO 440 C C MODAL SOLUTION - R.F. 3 C 130 CALL RCOVMS GO TO 440 C C DYNAMIC SOLUTION - R.F. 8 AND 9 C 180 CALL RCOVDS GO TO 440 C C FINISHED C 440 CALL SOFCLS RETURN C C DIAGNOSTICS C 9007 CALL MESAGE (7,0,NAME) 9100 IOPT = -1 CALL SOFCLS RETURN END ================================================ FILE: mis/rcovb.f ================================================ SUBROUTINE RCOVB C C RCOVB PERFORMS THE BACK-SUBSTITUTIONS TO OBTAIN THE G-SET C DISPLACEMENTS OF A SUBSTRUCTURE WHOSE LEVEL IS LOWER THAN OR C EQUAL TO THAT OF THE FINAL SOLUTION STRUCTURE (FSS). C FOR EACH SUBSTRUCTURE WHOSE DISPLACEMENTS ARE RECOVERED, C AN SOLN ITEM IS CREATED BY EDITING THE SOLN ITEM OF THE FSS. C EXTERNAL ANDF LOGICAL MODAL INTEGER MCBTRL(7) ,DRY ,STEP ,FSS , 1 RFNO ,UINMS ,SCHK ,UA , 2 SSNM1 ,SYSBUF ,RSP ,RDP , 3 RECT ,UPPER ,LOWER ,SYM , 4 HMCB ,UBMCB ,UAOMCB ,UAMCB , 5 TFLAG ,SIGNAB ,SIGNC ,SCRM , 6 UGV ,UI(5) ,SCR2 ,SCR3 , 7 SCR5 ,NAME(2) ,BLANK ,UVEC , 8 POVE ,HORG ,SCR1 ,GMASK , 9 PAO ,UB ,IZ(1) ,SOFSIZ , O SOF1 ,SOF2 ,SOF3 ,BUF1 , 1 BUF2 ,RC ,SSNM(2) ,EQSS , 2 BUF(1) ,ANDF ,UIMPRO ,ENERGY , 3 RMASK ,FILE ,RD ,RDREW , 4 WRT ,WRTREW ,REW ,EOFNRW , 5 BUF3 ,BUF4 C INTEGER SCR6 ,SCR7 ,SRD ,SWRT DOUBLE PRECISION DZ(1) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 , 1 SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM , 1 SWM COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5), 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,SSNM1(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQUARE , 3 RECT ,DIAG ,UPPER ,LOWER , 4 SYM COMMON /MPYADX/ HMCB(7) ,UBMCB(7) ,UAOMCB(7) ,UAMCB(7) , 1 MPYZ ,TFLAG ,SIGNAB ,SIGNC , 2 MPREC ,SCRM COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (BUF(1) ,Z(1)) EQUIVALENCE (Z(1) ,IZ(1) ,DZ(1)) DATA NAME / 4HRCOV,4HB / DATA UGV , SCR1,SCR2,SCR3,SCR5 / 1 106 , 301, 302, 303, 305 / DATA UI / 204, 205, 206, 207, 208 / DATA UVEC , POVE,HORG,EQSS / 4HUVEC,4HPOVE,4HHORG,4HEQSS / DATA IB , SCHK / 1, 3 / DATA SCR6 , SCR7,SRD,SWRT / 306,307, 1,2 / DATA RMASK / 469762048 / DATA GMASK / 268435456 / DATA MMASK / 134217728 / DATA BLANK / 4H / C C INITIALIZE C LCOREZ= KORSZ(Z) - LREQ SOF1 = LCOREZ - SYSBUF + 1 SOF2 = SOF1 - SYSBUF - 1 SOF3 = SOF2 - SYSBUF BUF1 = SOF3 - SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF LCORE = BUF4 - 1 IF (LCORE .LE. 0) GO TO 9008 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) UA = 0 PAO = 0 TFLAG = 0 SIGNAB= 1 SIGNC = 1 MPREC = 0 SCRM = SCR5 C C FIND OUT HOW MANY UI FILES THERE ARE AND WHICH ONES C DO 10 I = 1,5 IZ(1) = UI(I) CALL RDTRL (IZ) IF (IZ(1) .LT. 0) UINMS(1,I) = 0 10 CONTINUE C C IF UINMS(1,I) = 0 THEN FILE UI(I) IS PURGED C IF UINMS(1,I) = BLANK THEN FILE UI(I) IS AVAILABLE AND NOT C IN USE C IF UINMS(1,I) = OTHER THEN FILE UI(I) CONTAINS UGV FOR C SUBSTRUCTURE -OTHER- C SSNM(1) = SSNM1(1) SSNM(2) = SSNM1(2) C C IF SSNM IS THE FINAL SOLUTION STRUCTURE (FSS), NO RECOVERY IS C NECESSARY. C IF (SSNM(1).NE.FSS(1) .OR. SSNM(2).NE.FSS(2)) GO TO 190 UA = UGV GO TO 508 C C SEARCH THE SOF FOR A DISPLACEMENT MATRIX OF SSNM OR A HIGHER C LEVEL SUBSTRUCTURE FROM WHICH THE REQUESTED DISPLACEMENTS CAN BE C RECOVERED C 190 JLVL = 1 200 CALL SOFTRL (SSNM,UVEC,MCBTRL) RC = MCBTRL(1) IF (RC .EQ. 1) GO TO 270 IF (RC.EQ.2 .AND. DRY.LT.0) GO TO 270 IF (RC .EQ. 3) GO TO 210 IF (RC .EQ. 5) CALL SMSG (3,UVEC,SSNM) IF (RC .EQ. 4) GO TO 500 WRITE (NOUT,63070) UWM,SSNM1,SSNM GO TO 9200 C C NO UVEC AT THIS LEVEL. SAVE SSNM IN A STACK AT TOP OF OPEN CORE C AND SEARCH FOR UVEC OF THE NEXT HIGHER LEVEL C 210 LASTSS = 2*JLVL - 1 IZ(LASTSS ) = SSNM(1) IZ(LASTSS+1) = SSNM(2) JLVL = JLVL + 1 CALL FNDNXL (Z(LASTSS),SSNM) IF (SSNM(1) .NE. BLANK) GO TO 230 WRITE (NOUT,63060) UWM,IZ(LASTSS),IZ(LASTSS+1) GO TO 9200 230 IF (SSNM(1).NE.IZ(LASTSS) .OR. SSNM(2).NE.IZ(LASTSS+1)) GO TO 240 WRITE (NOUT,63080) UWM,SSNM1,SSNM GO TO 9200 C C IF SSNM IS NOT THE FSS, LOOK FOR UVEC ON THE SOF. IF DRY RUN, C EXIT. IF IT IS THE FSS, SET UA=UGV. IF UGV IS NOT PURGED GO TO C BEGIN BACK-SUBSTITUTION. OTHERWISE, GIVE IT THE SAME TREATMENT C AS IF IT WERE NOT THE FSS. C 240 IF (SSNM(1).NE.FSS(1) .OR. SSNM(2).NE.FSS(2)) GO TO 200 IF (DRY .LT. 0) GO TO 500 UA = UGV MCBTRL(1) = UA CALL RDTRL (MCBTRL) IF (MCBTRL(1) .GT. 0) GO TO 340 GO TO 200 C C FOUND A UVEC ON SOF FOR THIS LEVEL. SEE IF IT HAS ALREADY BEEN C PUT ON A UI FILE. (IF DRY RUN, EXIT) C 270 IF (DRY.LT.0 .OR. JLVL.EQ.1) GO TO 500 DO 280 I = 1,5 UA = UI(I) IF (SSNM(1).EQ.UINMS(1,I) .AND. SSNM(2).EQ.UINMS(2,I)) GO TO 340 280 CONTINUE C C DATA BLANK /4H / C C IT DOES NOT RESIDE ON ANY UI FILE. FIND A UI FILE TO USE. C J = 0 DO 290 I = 1,5 IF (UINMS(1,I) .EQ. 0) GO TO 290 J = J + 1 IF (UINMS(1,I) .EQ. BLANK) GO TO 310 290 CONTINUE GO TO 297 C C ALL UI FILES SEEM TO BE IN USE. DO ANY REALLY EXIST C 297 IF (J .EQ. 0) GO TO 320 C C AT LEAST ONE EXISTS. RE-USE THE ONE WITH OLDEST DATA C I = LUI + 1 IF (I .GT. 5) I = 1 J = I 300 IF (UINMS(1,I) .NE. 0) GO TO 310 C C NO FILE THERE. TRY NEXT ONE. C I = I + 1 IF (I .GT. 5) I = 1 IF (I .EQ. J) GO TO 320 GO TO 300 C C FOUND A UI FILE TO USE C 310 LUI = I UA = UI(I) UINMS(1,I) = SSNM(1) UINMS(2,I) = SSNM(2) GO TO 330 C C ALL UI FILES ARE PURGED. USE SCR1 INSTEAD C 320 UA = SCR1 C C COPY UVEC FROM SOF TO UA C 330 CALL MTRXI (UA,SSNM,UVEC,0,RC) C C TOP OF BACK-SUBSTITUTION LOOP C 340 UB = UA UAOMCB(1) = 0 ICORE = LASTSS + 2 IDPCOR= ICORE/2 + 1 C C CHECK IF THE EQSS ITEM IS THERE FOR THIS SUBSTRUCTURE C CALL SFETCH (Z(LASTSS),EQSS,SCHK,RC) IF (RC .NE. 1) GO TO 6317 C C COMPUTE TIME TO RECOVER THIS LEVEL AND CHECK TIME-TO-GO C C (A DETAILED TIME CHECK SHOULD BE CODED LATER. FOR THE PRESENT, C JUST CHECK TO SEE IF TIME HAS RUN OUT NOW.) C CALL TMTOGO (I) IF (I .LE. 0) GO TO 6309 C C CHECK REMAINING SPACE ON SOF. FIRST CALCULATE HOW MUCH SPACE C THE RECOVERED DISPLACEMENT MATRIX WILL TAKE (ASSUMING IT IS FULL). C MCBTRL(1) = UB CALL RDTRL (MCBTRL) I = MCBTRL(2) C C NO. OF COLUMNS IN DISPLACEMENT MATRIX IN I C CALL SOFTRL (Z(LASTSS),HORG,MCBTRL) RC = MCBTRL(1) ITEM = HORG IF (RC .GT. 1) GO TO 6317 NROW = MCBTRL(3) J = I*NROW C C NOW CHECK SPACE C IF (SOFSIZ(I) .LT. J) GO TO 6310 C C CREATE THE SOLUTION ITEM FOR THE RECOVERED SUBSTRUCTURE. C CALL RCOVLS (Z(LASTSS)) IF (IOPT .LT. 0) GO TO 9000 C C FIND A UI FILE FOR DISPLACEMENTS C J = 0 DO 420 I = 1,5 IF (UINMS(1,I) .EQ. 0) GO TO 420 J = J + 1 IF (UINMS(1,I) .EQ. BLANK) GO TO 440 420 CONTINUE C C NO UNUSED UI FILES ARE AVAILABLE. IF TWO OR MORE UI FILES ARE C NOT PURGED, USE THE ONE WITH OLDEST DATA. OTHERWISE, USE SCR2. C MAKE SURE WE DON T ASSIGN THE SAME FILE AS THE HIGHER C LEVEL DISPLACEMENTS ARE ON (UB) C IF (J .LT. 2) GO TO 450 I = LUI + 1 IF (I .GT. 5) I = 1 J = I 430 IF (UINMS(1,I).NE.0 .AND. UI(I).NE.UB) GO TO 440 I = I + 1 IF (I .GT. 5) I = 1 IF (I .EQ. J) GO TO 450 GO TO 430 C C FOUND A UI FILE C 440 LUI = I UA = UI(I) UINMS(1,I) = IZ(LASTSS ) UINMS(2,I) = IZ(LASTSS+1) GO TO 455 450 UA = SCR2 C C IF THE RECOVERED SUBSTRUCTURE WAS NOT REDUCED GENERATE THE C DISPLACEMENTS DIRECTLY. C IF THE SUBSTRUCTURE WAS REDUCED AND THE UIMPROVED FLAG IS SET C AND THIS IS A NON-STATICS RUN GENERATE THE IMPROVED DISPLACEMENTS. C IF THE SUBSTRUCTURE WAS IN A GUYAN REDUCTION AND THIS IS A C STATICS RUN GENERATE THE LOADS ON THE OMMITED POINTS. C C INCLUDE THE CHECK ON THE POVE ITEM ALSO TO BE COMPATABLE WITH C PREVIOUS SOFS WITH NO TYPE BITS C 455 CALL SOFTRL (Z(LASTSS),POVE,MCBTRL) IPOVE = MCBTRL(1) CALL FDSUB (SSNM,IDIT) RC = 4 IF (IDIT .LT. 0) GO TO 6317 CALL FMDI (IDIT,IMDI) MODAL = .FALSE. IF (ANDF(BUF(IMDI+IB),MMASK) .NE. 0) MODAL = .TRUE. IF (ANDF(BUF(IMDI+IB),RMASK).NE.0 .AND. UIMPRO.NE.0 .AND. 1 RFNO.GT.2) GO TO 470 IF (ANDF(BUF(IMDI+IB),GMASK).NE.0 .AND. RFNO.LE.2) GO TO 480 IF (ANDF(BUF(IMDI+IB),RMASK).EQ.0 .AND. IPOVE.EQ.1 .AND. 1 RFNO.LE.2) GO TO 480 GO TO 490 C C IF THE USER REQUESTED AN IMPROVED VECTOR AND THIS IS A NONSTATICS C RUN THEN GENERATE IT. C 470 CALL RCOVUI (UB,Z(LASTSS),MODAL) IF (IOPT .LT. 0) GO TO 9000 GO TO 495 C C GENERATE THE LOADS ON THE OMITED POINTS FOR REDUCED SUBSTRUCTURES C IF THIS IS A STATICS RUN C 480 CALL RCOVUO (0,UAOMCB(1),Z(LASTSS)) IF (IOPT .LT. 0) GO TO 9000 C C MULIPLY AND ADD TO GET DISPLACEMENTS OF LOWER-LIVEL SUBSTRUCTURE. C C COPY H OR G TRANSFORMATION MATRIX TO SCR3 C CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) 490 ITEM = HORG CALL MTRXI (SCR3,Z(LASTSS),HORG,0,RC) IF (RC .NE. 1) GO TO 6317 C C SETUP FOR MPYAD C CALL SOFCLS HMCB(1) = SCR3 UBMCB(1)= UB CALL RDTRL (HMCB) CALL RDTRL (UBMCB) IF (UAOMCB(1) .NE. 0) CALL RDTRL (UAOMCB) CALL MAKMCB (UAMCB,UA,HMCB(3),RECT,UBMCB(5)) MPYZ = LCOREZ - ICORE - 7 CALL MPYAD (DZ(IDPCOR),DZ(IDPCOR),DZ(IDPCOR)) CALL WRTTRL (UAMCB) C C COPY RECOVERED DISPLACEMENTS TO SOF C 495 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) CALL MTRXO (UA,Z(LASTSS),UVEC,0,RC) C C END OF BACK-SUBSTITUTION LOOP C CLOSE AND REOPEN THE SOF TO GET ANY CONTROL BLOCKS WRITTEN TO C FILE C CALL SOFCLS CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) SSNM(1) = IZ(LASTSS) SSNM(2) = IZ(LASTSS+1) LASTSS = LASTSS - 2 JLVL = JLVL - 1 WRITE (NOUT,63120) UIM,JLVL,SSNM IF (JLVL .GT. 1) GO TO 340 C C NORMAL COMPLETION OF MODULE EXECUTION C 508 CONTINUE 500 DO 510 I = 1,5 IF (UINMS(1,I) .EQ. 0) UINMS(1,I) = BLANK 510 CONTINUE CALL SOFCLS RETURN C C ERROR PROCESSING C 6309 WRITE (NOUT,63090) SFM,IZ(LASTSS),IZ(LASTSS+1),SSNM,SSNM1 N = -37 GO TO 9100 6310 WRITE (NOUT,63100) SWM,IZ(LASTSS),IZ(LASTSS+1),SSNM,SSNM1 GO TO 9200 6317 IF (RC .EQ. 2) RC = 3 CALL SMSG (RC-2,ITEM,Z(LASTSS)) 9000 WRITE (NOUT,63170) SWM,SSNM1 GO TO 9200 9008 N = 8 9100 CALL SOFCLS CALL MESAGE (N,FILE,NAME) 9200 IOPT = -1 GO TO 500 C C FORMAT STATEMENTS C 63060 FORMAT (A25,' 6306, ATTEMPT TO RECOVER DISPLACEMENTS FOR NON-', 1 'EXISTANT SUBSTRUCTURE ',2A4) 63070 FORMAT (A25,' 6307, WHILE ATTEMPTING TO RECOVER DISPLACEMENTS ', 1 'FOR SUBSTRUCTURE ',2A4,1H,, /32X,'THE DISPLACEMENTS FOR ', 2 'SUBSTRUCTURE ',2A4,' WERE FOUND TO EXIST IN DRY RUN ', 3 'FORM ONLY.') 63080 FORMAT (A25,' 6308, NO SOLUTION AVAILABLE FROM WHICH DISPLACE', 1 'MENTS FOR SUBSTRUCTURE ',2A4, /32X,'CAN BE RECOVERED. ', 2 'HIGHEST LEVEL SUBSTRUCTURE FOUND WAS ',2A4) 63090 FORMAT (A25,' 6309, INSUFFICIENT TIME REMAINING TO RECOVER DIS', 1 'PLACEMENTS OF SUBSTRUCTURE ',2A4, /32X,'FROM THOSE OF ', 2 'SUBSTRUCTURE ',2A4,'. (PROCESSING USER RECOVER REQUEST', 3 /32X,'FOR SUBSTRUCTURE ',2A4,1H)) 63100 FORMAT (A27,' 6310, INSUFFICIENT SPACE ON SOF TO RECOVER DIS', 1 'PLACEMENTS OF SUBSTRUCTURE ',2A4, /32X,' FROM THOSE OF ', 2 'SUBSTRUCTURE ',2A4,' WHILE PROCESSING USER RECOVER ', 3 'REQUEST', /32X,'FOR SUBSTRUCTURE ',2A4) 63120 FORMAT (A29,' 6312, LEVEL',I4,' DISPLACEMENTS FOR SUBSTRUCTURE ', 1 2A4, /36X,'HAVE BEEN RECOVERED AND SAVED ON THE SOF.') 63170 FORMAT (A25,' 6317, RECOVER OF DISPLACEMENTS FOR SUBSTRUCTURE ', 1 2A4,' ABORTED.') END ================================================ FILE: mis/rcovc.f ================================================ SUBROUTINE RCOVC C C RCOVC COMPUTES REACTION FORCES AND GENERATES OUTPUT DATA BLOCKS C FOR DISPLACEMENTS, APPLIED LOADS, AND REACTION FORCES. C LOGICAL INCORE ,UFLAG ,PFLAG ,NON0 , 1 QFLAG ,END ,ONCE ,COMPLX , 2 SUPRES ,KEEP INTEGER DRY ,STEP ,FSS ,RFNO , 1 UINMS ,UA ,RSS ,SYSBUF , 2 UTYPO ,SOF2 ,SOF3 ,BUF1 , 3 BUF2 ,CASESS ,SOF1 ,OUGV1 , 4 OPG1 ,OQG1 ,SCR1 ,EQSS , 5 SOLN ,ENERGY ,PVEC ,UVEC , 6 NAME(2) ,CASECC(2) ,SRD ,PG , 7 SUBSTR(4) ,IZ(2) ,RC ,FILE , 8 QA ,PA ,NAMEF(2) ,IDBUF(146) , 9 DISP(3) ,OLOAD(3) ,SPCF(3) ,DOFS(32) , O BUF3 ,NFWD(3) ,COMPS(3) ,BUF(1) , 1 ACCE(3) ,VELO(3) ,BUF4 ,SCR2 , 2 SCR6 ,SCR7 ,SCR8 ,SCR3 DIMENSION MCBA(7) ,RBUF(1) ,RDBUF(7) ,DATA(12) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 , 1 SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM , 1 SWM COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW COMMON /UNPAKX/ UTYPO ,IRU ,NRU ,INCU COMMON /CONDAS/ PHI ,TWOPHI ,RADDEG COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (BUF(1) ,Z(1)) EQUIVALENCE (Z(1) ,IZ(1)), (BUF(1) ,RBUF(1)) , 1 (IDBUF(1) ,RDBUF(1)) DATA CASESS, OUGV1 ,OPG1 ,OQG1 ,SCR1 , 1 PG , SCR3 ,SCR6 ,SCR7 ,SCR8 , 2 SCR2 / 3 101 , 201 ,202 ,203 ,301 , 4 105 , 303 ,306 ,307 ,308 , 5 302 / DATA SRD / 1 / DATA EQSS , SOLN ,UVEC ,PVEC / 1 4HEQSS, 4HSOLN ,4HUVEC ,4HPVEC / DATA NAME ,CASECC ,SUBSTR / 2 4HRCOV, 4HC ,4HCASE ,4HCC ,4HSUBS , 3 4HTRUC, 4HTURE ,4H / DATA COMPS / 1 4HCOMP, 4HONEN ,4HT / C C INITIALIZE C IF (DRY .LT. 0) RETURN SOF1 = KORSZ(Z) - LREQ - SYSBUF + 1 SOF2 = SOF1 - SYSBUF - 1 SOF3 = SOF2 - SYSBUF BUF1 = SOF3 - SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF LCORE= BUF4 - 1 IF (LCORE .LE. 0) GO TO 6313 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) C C ================================================ C THIS CARD SHOULD BE ADDED WHEN SDR3 IS FIXED C C IF (RFNO .EQ. 9) NOSORT = 1 C C ================================================ PA = 0 QA = 0 UFLAG = .FALSE. PFLAG = .FALSE. QFLAG = .FALSE. C C CHECK OUTPUT REQUESTS ON CASESS C CALL GOPEN (CASESS,Z(BUF1),RDREW) NCCREC = 1 FILE = CASESS 110 CALL FREAD (CASESS,Z,2,1) NCCREC = NCCREC + 1 IF (IZ(1).NE.CASECC(1) .OR. IZ(2).NE.CASECC(2)) GO TO 110 120 CALL READ (*130,*9003,CASESS,IDBUF,35,1,I) IF (IDBUF(17) .NE. 0) PFLAG = .TRUE. IF (IDBUF(20) .NE. 0) UFLAG = .TRUE. IF (IDBUF(29).NE.0 .AND. RFNO.GE.8) UFLAG = .TRUE. IF (IDBUF(32).NE.0 .AND. RFNO.GE.8) UFLAG = .TRUE. IF (IDBUF(35) .NE. 0) QFLAG = .TRUE. IF (PFLAG .AND. UFLAG .AND. QFLAG) GO TO 130 GO TO 120 130 CALL CLOSE (CASESS,REW) C IF (BUF(IREQ ) .EQ. 1) UFLAG = .TRUE. IF (BUF(IREQ+1) .EQ. 1) PFLAG = .TRUE. IF (BUF(IREQ+2) .EQ. 1) QFLAG = .TRUE. IF (ENERGY .EQ. 0) GO TO 135 UFLAG = .TRUE. IF (RFNO.GE.3 .AND. RFNO.LE.8) PFLAG = .TRUE. IF (RFNO.GE.3 .AND. RFNO.LE.8) QFLAG = .TRUE. 135 CONTINUE C IF (.NOT.(UFLAG .OR. PFLAG .OR. QFLAG)) GO TO 900 C C COMPUTE THE APPLIED STATIC LOADS FOR THE REQUESTED SUBSTRUCTURE C IF WE ARE PRINTING THE SOLUTION SUBSTRUCTURE CHECK IF THE LOADS C ARE ON A GINO FILE. C IF (RFNO .EQ. 3) PFLAG = .FALSE. IF (.NOT.PFLAG .AND. (.NOT.QFLAG .OR. RFNO .EQ. 3)) GO TO 150 IF (RSS(1).NE.FSS(1) .OR. RSS(2).NE.FSS(2)) GO TO 140 PA = PG MCBA(1) = PG CALL RDTRL (MCBA) IF (MCBA(1) .GT. 0) GO TO 150 140 PA = SCR3 CALL RCOVSL (RSS,PVEC,0,SCR6,SCR7,SCR8,PA,Z(1),Z(1),SOF3-1, 1 .FALSE.,RFNO) IF (PA .LE. 0) PFLAG = .FALSE. C C GET THE DISPLACEMENT VECTOR AND IF RIGID FORMAT 8 THEN C CALCULATE THE VELOCITIES AND ACCELERATIONS. C 150 IF (.NOT.UFLAG .AND. .NOT.QFLAG) GO TO 170 MCBA(1) = UA CALL RDTRL (MCBA) IF (MCBA(1) .GT. 0) GO TO 160 UA = SCR2 CALL MTRXI (UA,RSS,UVEC,0,RC) IF (RC .EQ. 1) GO TO 160 155 UA = 0 WRITE (NOUT,63190) SWM,RSS UFLAG = .FALSE. QFLAG = .FALSE. ENERGY = 0 C 160 IF (RFNO.NE.8 .OR. .NOT.(UFLAG.OR.QFLAG)) GO TO 170 CALL RCOVVA (UA,0,SCR1,0,0,0,RSS,Z(1),Z(1),Z(1)) IF (UA .LE. 0) GO TO 155 UA = SCR1 C C COMPUTE THE SPCF REACTIONS IF OUTPUT REQUESTS WERE SPECIFIED C 170 IF (QFLAG) CALL RCOVQV IF (QA .LE. 0) QFLAG = .FALSE. C C OUTPUT PROCESSING C C C IF IOPT IS EQUAL TO ONE THEN THE OUTPUT WILL BE SORTED BY SUBCASE C IF EQUAL TO TWO IT WILL BE SORTED BY SUBSTRUCTURE C NP = BUF(IREQ+3) NS = BUF(IREQ+4) C C FIND THE LENGTH AND TYPE OF THE VECTORS TO BE OUTPUT C CALL SOFTRL (RSS,UVEC,MCBA) NMODES = MCBA(2) NSTEPS = MCBA(2) IF (RFNO .EQ. 9) NSTEPS = NSTEPS/3 COMPLX = .FALSE. IF (MCBA(5) .GE. 3) COMPLX = .TRUE. NWORD = 1 IF (COMPLX) NWORD = 2 C C PERFORM GENERAL INITIALIZATION OF OFP ID RECORD C IDBUF( 3) = 0 IDBUF( 6) = 0 IDBUF( 7) = 0 IDBUF( 8) = 0 IDBUF(10) = 8 IF (COMPLX) IDBUF(10) = 14 DO 370 I = 11,50 370 IDBUF(I) = 0 C C INITALIZE THE UNPACK COMMON BLOCK C UTYPO = 1 IF (COMPLX) UTYPO = 3 IRU = 1 NRU = MCBA(3) INCU = 1 C C ALLOCATE OPEN CORE C ISETS = 1 LSETS = 100 IVECT = ISETS + LSETS ISIL = IVECT + (NRU*NWORD) IEQSS = ISIL + NP IF (IEQSS+2 .GT. LCORE) GO TO 6313 C C C OPEN CORE DIAGRAM FOR /RCOVCX/ C C +----------------------------------+ C Z(ISETS) I I C I CASECC SET INFORMATION I C I I C +----------------------------------+ C Z(IVECT) I I C I VECTOR TO BE PRINTED I C I I C +----------------------------------+ C Z(ISIL ) I I C I SCALAR INDEX LIST FROM EQSS I C I I C +----------------------------------+ C Z(IEQSS) I I C I EQSS DATA IN TRIPLES OF I C I (1) EXTERNAL GRID ID I C I (2) INTERNAL POINT INDEX I C I (3) COMPONENT CODE I C I DATA FOR EACH BASIC SUB- I C I STRUCTURE TERMINATED BY I C I THREE (-1)S I C I I C I NOTE EQSS DATA MAY NOT BE I C I IN CORE IF SPILL LOGIC I C I INVOKED. I C I I C +----------------------------------+ C Z(ISEQ) I I C I SYMMETRY SEQUENCE I C I I C +----------------------------------+ C Z(ICOMB) I I C I VECTOR CONTRIBUTING TO THE I C I LINEAR COMBINATION FOR THE I C I SYMMETRY SEQUENCE I C I I C +----------------------------------+ C C READ SIL FROM EQSS INTO OPEN CORE AT ISIL C CALL SFETCH (RSS,EQSS,SRD,RC) N = NS + 1 CALL SJUMP (N) DO 470 I = 1,NP CALL SUREAD (Z(ISIL+I-1),1,NWDS,RC) 470 CALL SUREAD (J,1,NWDS,RC) C C READ EQSS DATA INTO OPEN CORE AT IEQSS IF IT WILL FIT. IF IOPT C EQUALS 2, READ ONLY ONE GROUP AND PRCESS ONE BASIC SUBSTRUCTURE C A TIME. C INCORE = .FALSE. NEQSS = IEQSS + 2 CALL SFETCH (RSS,EQSS,SRD,RC) N = 1 CALL SJUMP (N) NSS = NS IF (IOPT .EQ. 2) NSS = 1 ISS = 0 C C TOP OF LOOP OVER BASIC SUBSTRUCTURES WHEN PROCESSING ONE AT A TIME C 475 ISS = ISS + 1 K = LCORE - IEQSS + 1 J = IEQSS ITEM= EQSS DO 480 I = 1,NSS CALL SUREAD (Z(J),K,NWDS,RC) IF (RC .EQ. 3) GO TO 6107 IF (RC .NE. 2) GO TO 490 J = J + NWDS IF (J+3 .GT. LCORE) GO TO 490 IZ(J ) = -1 IZ(J+1) = -1 IZ(J+2) = -1 J = J + 3 NEQSS = J - 1 K = K - NWDS - 3 IF (K .LE. 0) GO TO 490 480 CONTINUE INCORE = .TRUE. GO TO 491 C C EQSS WILL NOT FIT IN CORE C 490 NEQSS = IEQSS + 2 491 ISEQ = NEQSS + 1 C C WRITE HEADER RECORDS ON OUTPUT DATA BLOCKS AND POSITION BOTH C INPUT AND OUTPUT DATA BLOCKS AFTER THE HEADER RECORD C DO 497 I = 1,3 GO TO (495,492,493), I C C CHECK DISPLACEMENT VECTOR C 495 IF (.NOT.UFLAG) GO TO 497 IN = UA IOUT = OUGV1 GO TO 494 C C CHECK LOAD VECTOR C 492 IF (.NOT.PFLAG) GO TO 497 IN = PA IOUT = OPG1 GO TO 494 C C CHECK READTIONS VECTOR C 493 IF (.NOT.QFLAG) GO TO 497 IN = QA IOUT = OQG1 C C POSITION FILES C 494 CALL GOPEN (IN,Z(BUF1),RDREW) CALL CLOSE (IN,NOREW) IF (ISS .GT. 1) GO TO 497 CALL OPEN (*496,IOUT,Z(BUF2),WRTREW) CALL FNAME (IOUT,NAMEF) CALL WRITE (IOUT,NAMEF,2,1) CALL CLOSE (IOUT,NOREW) GO TO 497 C C OUTPUT FILE PURGED - TURN OFF REQUEST FLAG C 496 WRITE (NOUT,63140) SWM,IOUT IF (IOUT .EQ. OUGV1) UFLAG = .FALSE. IF (IOUT .EQ. OPG1 ) PFLAG = .FALSE. IF (IOUT .EQ. OQG1 ) QFLAG = .FALSE. 497 CONTINUE C C SETUP FOR LOOP OVER SUBCASES C ISC = 0 DO 510 I = 1,3 510 NFWD(I) = 0 C C POSITION CASESS TO FIRST CASECC SUBCASE C FILE = CASESS CALL OPEN (*9001,CASESS,Z(BUF3),RDREW) DO 530 I = 1,NCCREC 530 CALL FWDREC (*9002,CASESS) END = .FALSE. C C TOP OF LOOP OVER SUBCASES C 540 ISC = ISC + 1 ITYPE = 1 IF (END) GO TO 596 C C READ OUTPUT REQUESTS FROM CASECC RECORD C CALL READ (*545,*9003,CASESS,0,-3,0,NWDS) CALL FREAD (CASESS,LID ,1 ,0) CALL FREAD (CASESS,0 ,-12,0) CALL FREAD (CASESS,OLOAD,3 ,0) CALL FREAD (CASESS,DISP ,3 ,0) CALL FREAD (CASESS,0 ,-6 ,0) CALL FREAD (CASESS,ACCE ,3 ,0) CALL FREAD (CASESS,VELO ,3 ,0) CALL FREAD (CASESS,SPCF ,3 ,0) CALL FREAD (CASESS,0 ,-1 ,0) C C SET OUTPUT TYPE AND MEDIA - IF NO REQUEST IN CASE CONTROL C THE DEFAULT VALUES ARE REAL AND PRINTER C IFORM = 1 IF (COMPLX) IFORM = 2 IF (DISP(2) .EQ. 0) DISP(2) = 1 IF (DISP(3) .EQ. 0) DISP(3) = IFORM IF (DISP(3) .LT. 0) NOSORT = 1 IF (OLOAD(2) .EQ. 0) OLOAD(2)= 1 IF (OLOAD(3) .EQ. 0) OLOAD(3)= IFORM IF (OLOAD(3) .LT. 0) NOSORT = 1 IF (SPCF(2) .EQ. 0) SPCF(2) = 1 IF (SPCF(3) .EQ. 0) SPCF(3) = IFORM IF (SPCF(3) .LT. 0) NOSORT = 1 IF (VELO(2) .EQ. 0) VELO(2) = 1 IF (VELO(3) .EQ. 0) VELO(3) = IFORM IF (VELO(3) .LT. 0) NOSORT = 1 IF (ACCE(2) .EQ. 0) ACCE(2) = 1 IF (ACCE(3) .EQ. 0) ACCE(3) = IFORM IF (ACCE(3) .LT. 0) NOSORT = 1 GO TO 548 C C END OF CASE CONTROL RECORDS - CHECK IF THIS IS REALLY THE END C 545 END = .TRUE. IF (RFNO .LE. 2) GO TO 860 IF (RFNO.EQ.3 .AND. ISC.GT.NMODES) GO TO 860 IF (RFNO.GE.8 .AND. ISC.GT.NSTEPS) GO TO 860 GO TO 596 C C READ TITLE, SUBTITLE, AND LABEL. WILL REPLACE RIGHTMOST WORDS OF C SUBTITLE WITH BASIC SUBSTRUCTURE NAME C 548 CALL FREAD (CASESS,IDBUF(51),96,0) DO 550 I = 1,3 IDBUF(I+101) = SUBSTR(I) 550 IDBUF(I+133) = COMPS(I) IDBUF( 105) = SUBSTR(4) IDBUF( 106) = RSS(1) IDBUF( 107) = RSS(2) C C READ SYMMETRY SEQUENCE AND SET INFORMATION C NWDS =-1 IZ(ISETS ) = 0 IZ(ISETS+1) = 0 CALL FREAD (CASESS,0,-31,0) CALL FREAD (CASESS,LCC,1,0) LSKIP = 167 - LCC CALL FREAD (CASESS,0,LSKIP,0) CALL READ (*9002,*590,CASESS,LSEQ,1,0,N) IF (NEQSS+LSEQ .GT. LCORE) GO TO 6313 IF (LSEQ .GT. 0)CALL READ (*9002,*590,CASESS,Z(ISEQ),LSEQ,0,N) ICOMB = ISEQ + LSEQ IF (ICOMB+NRU .GT. LCORE) GO TO 6313 CALL READ (*9002,*590,CASESS,Z(ISETS),LSETS,0,NWDS) K = LSETS C C MUST EXPAND SETS PORTION OF OPEN CORE C 560 N = LCORE - NEQSS IF (N .GT. 0) GO TO 570 IF (.NOT. INCORE) GO TO 6313 INCORE = .FALSE. NEQSS = IEQSS + 2 GO TO 560 570 DO 575 I = ISIL,NEQSS 575 IZ(LCORE-I+1) = IZ(NEQSS-I+1) IVECT = IVECT + N ISIL = ISIL + N IEQSS = IEQSS + N NEQSS = NEQSS + N CALL READ (*9002,*580,CASESS,Z(ISETS+LSETS),N,0,NWDS) K = K + N GO TO 560 580 NWDS = K + NWDS 590 NSETS = ISETS + NWDS C C PROCESS OUTPUT ITYPE C 596 ONCE = .FALSE. JEQSS = IEQSS - 3 ISKIP = 0 IF (ITYPE.EQ.1 .AND. .NOT.UFLAG) GO TO 855 IF (ITYPE.EQ.2 .AND. .NOT.PFLAG) GO TO 855 IF (ITYPE.EQ.3 .AND. .NOT.QFLAG) GO TO 855 IF (ITYPE.EQ.4 .AND. .NOT.UFLAG) GO TO 855 IF (ITYPE.EQ.5 .AND. .NOT.UFLAG) GO TO 855 C C FOR EACH BASIC SUBSTRUCTURE CURRENTLY BEING PROCESSED, CONSTRUCT C ONE OFP ID AND DATA RECORD PAIR. THE BASIC LOOP IS ABOVE THE C VECTOR PROCESSING BECAUSE OUTPUT REQUESTS CAN CHANGE FOR EACH C BASIC C DO 840 JS = 1,NSS JSS = ISS + JS - 1 NREQ = IREQ + (JSS-1)*LBASIC + 5 KPOINT = BUF(NREQ+12) C C STATICS C IF (RFNO .GT. 2) GO TO 603 IF (JS .GT. 1) GO TO 598 IAPPRO = 1 IDBUF(4) = ISC IDBUF(5) = LID GO TO 598 C C FOR NORMAL MODES GET MODE NUMBER, EIGENVALUE AND FREQUENCY C 603 IF (RFNO .NE. 3) GO TO 612 IF (JS .GT. 1) GO TO 598 CALL SFETCH (FSS,SOLN,SRD,RC) N = 1 CALL SJUMP (N) J = ISC - 1 IF (J .EQ. 0) GO TO 611 DO 597 I = 1,J 597 CALL SUREAD (MCBA(1),7,NWDS,RC) 611 CONTINUE CALL SUREAD (MODE,1,NWDS,RC) CALL SUREAD (I,1,NWDS,RC) CALL SUREAD (EIGEN ,1,NWDS,RC) CALL SUREAD (EIGENI,1,NWDS,RC) CALL SUREAD (VALUE,1,NWDS,RC) C IAPPRO = 2 IF (COMPLX) IAPPRO = 9 IDBUF(4) = ISC IDBUF(5) = MODE RDBUF(6) = EIGEN RDBUF(7) = 0.0 IF (COMPLX) RDBUF(7) = EIGENI GO TO 598 C C FOR DYNAMICS GET THE TIME OR FREQUENCY C 612 IF (RFNO.NE.8 .AND. RFNO.NE.9) GO TO 598 IF (JS .GT. 1) GO TO 598 CALL SFETCH (FSS,SOLN,SRD,RC) N = 1 CALL SJUMP (N) J = ISC - 1 IF (J .EQ. 0) GO TO 614 DO 613 I = 1,J 613 CALL SUREAD (MCBA(1),1,NWDS,RC) 614 CONTINUE CALL SUREAD (VALUE,1,NWDS,RC) C IAPPRO = 5 IF (RFNO .EQ. 9) IAPPRO = 6 IDBUF(4) = ISC RDBUF(5) = VALUE IDBUF(8) = LID C C GET SUBCASE OR MODE REQUEST C 598 IF (RFNO .GT. 2) GO TO 599 ISUB = ISC ILOC = 5 GO TO 600 599 IF (RFNO .NE. 3) GO TO 607 ISUB = MODE ILOC = 6 GO TO 600 607 ISUB = ISC ILOC = 11 600 ISET = BUF(NREQ+ILOC) IF (ISET .LT. 0) GO TO 608 IF (ISET .EQ. 0) GO TO 835 C C FIND THE REQUESTED SET C JSET = ISETS 601 CONTINUE IF (ISET .EQ. IZ(JSET)) GO TO 602 JSET = JSET + IZ(JSET+1) + 2 IF (JSET .LT. NSETS) GO TO 601 C C SET NOT FOUND, ISSUE WARNING AND PRINT ALL INSTEAD. C WRITE (NOUT,63650) UWM,ISET BUF(NREQ+ILOC) = -1 GO TO 608 C C FIND IF CURRENT SUBCASE OR MODE IS IN REQUESTED SET C 602 NEXT = 1 KSET = IZ(JSET+1) CALL SETFND (*835,IZ(JSET+2),KSET,ISUB,NEXT) C C SO FAR SO GOOD - IF NORMAL MODES OR DYNAMICS PROBLEM CHECK IF C EIGEN VALUE, TIME OR FREQUENCY IS IN REQUESTED RANGE C 608 CONTINUE IF (RFNO .LT. 3) GO TO 609 IF (VALUE .LT. RBUF(NREQ+7)) GO TO 835 IF (VALUE .GT. RBUF(NREQ+8)) GO TO 835 C 609 GO TO (615,640,650,652,654), ITYPE C C PROCESS DISPLACEMENT REQUESTS C 615 IOPST = DISP(1) IF (BUF(NREQ+2) .GT. -2) IOPST = BUF(NREQ+2) IF (IOPST.EQ.0 .AND. LSEQ.EQ.0) GO TO 835 IF (ONCE) GO TO 705 ONCE = .TRUE. C IDC = DISP(2) IFORM = IABS(DISP(3)) IDBUF(2) = 1 IF (RFNO .EQ. 3) IDBUF(2) = 7 THRESH = UTHRES SUPRES = .FALSE. IN = UA IOUT = OUGV1 GO TO 660 C C PROCESS OLOAD REQUESTS C 640 IOPST = OLOAD(1) IF (BUF(NREQ+3) .GT. -2) IOPST = BUF(NREQ+3) IF (IOPST.EQ.0 .AND. LSEQ.EQ.0) GO TO 835 IF (ONCE) GO TO 705 ONCE = .TRUE. C IDC = OLOAD(2) IFORM = IABS(OLOAD(3)) THRESH = PTHRES SUPRES = .TRUE. IDBUF(2) = 2 IN = PA IOUT = OPG1 GO TO 660 C C PROCESS SPCFORCE (ACTUALLY, ALL REACTIONS) REQUESTS C 650 IOPST = SPCF(1) IF (BUF(NREQ+4) .GT. -2 ) IOPST = BUF(NREQ+4) IF (IOPST.EQ.0 .AND. LSEQ.EQ.0) GO TO 835 IF (ONCE) GO TO 705 ONCE = .TRUE. C IDC = SPCF(2) IFORM = IABS(SPCF(3)) THRESH = QTHRES SUPRES = .TRUE. IDBUF(2) = 3 IN = QA IOUT = OQG1 GO TO 660 C C PROCESS VELOCITY REQUESTS C 652 IOPST = VELO(1) IF (BUF(NREQ+9) .GT. -2) IOPST = BUF(NREQ+9) IF (IOPST.EQ.0 .AND. LSEQ.EQ.0) GO TO 835 IF (ONCE) GO TO 705 ONCE = .TRUE. C IDC = VELO(2) IFORM = IABS(VELO(3)) IDBUF(2) = 10 THRESH = UTHRES SUPRES = .FALSE. IN = UA IOUT = OUGV1 GO TO 660 C C PROCESS ACCELERATION REQUESTS C 654 IOPST = ACCE(1) IF (BUF(NREQ+10) .GT. -2) IOPST = BUF(NREQ+10) IF (IOPST.EQ.0 .AND. LSEQ.EQ.0) GO TO 835 IF (ONCE) GO TO 705 ONCE = .TRUE. C IDC = ACCE(2) IFORM = IABS(ACCE(3)) IDBUF(2) = 11 THRESH = UTHRES SUPRES = .FALSE. IN = UA IOUT = OUGV1 C C OPEN FILES AND UNPACK VECTOR TO BE PRINTED C 660 FILE = IN CALL GOPEN (IN,Z(BUF1),RD) CALL GOPEN (IOUT,Z(BUF2),WRT) IT = ITYPE IF (ITYPE .GT. 3) IT = 1 IF (LSEQ .GT. 0) GO TO 664 N = NFWD(IT) IF (N .LE. 0) GO TO 663 DO 662 I = 1,N 662 CALL FWDREC (*9002,IN) NFWD(IT) = 0 663 CALL UNPACK (*673,IN,Z(IVECT)) GO TO 675 C C FORM LINEAR COMBINATION FOR SYMMETRY SEQUENCE C 664 N = NFWD(IT) - LSEQ IF (N) 665,669,667 665 N = -N DO 666 I = 1,N 666 CALL BCKREC(IN) GO TO 669 667 DO 668 I = 1,N 668 CALL FWDREC (*9002,IN) 669 DO 670 I = 1,NRU 670 Z(IVECT+I-1) = 0.0E0 DO 672 I = 1,LSEQ CALL UNPACK (*672,IN,Z(ICOMB)) DO 671 J = 1,NRU 671 Z(IVECT+J-1) = Z(IVECT+J-1) + Z(ISEQ+I-1)*Z(ICOMB+J-1) 672 CONTINUE NFWD(IT) = 0 GO TO 675 673 N = NRU*NWORD DO 674 I = 1,N 674 Z(IVECT+I-1) = 0.0 C C IF EQSS DATA NOT IN CORE, POSITION THE SOF C 675 IF (INCORE) GO TO 705 CALL SFETCH (RSS,EQSS,SRD,RC) NSKIP = ISS + ISKIP CALL SJUMP (NSKIP) JEQSS = IEQSS C C INSERT SUBSTRUCTURE NAME IN IDREC WRITE IT OUT C 705 IDBUF(1) = IDC + 10*IAPPRO IF (COMPLX .AND. JS.EQ.1) IDBUF(2) = IDBUF(2) + 1000 IDBUF( 9) = IFORM IDBUF(138) = BUF(NREQ) IDBUF(139) = BUF(NREQ+1) KEEP = .FALSE. C C FIND THE REQUESTED OUTPUT SET C NEXT = 1 JSET = ISETS NJSET = JSET + 1 IF (IOPST .LT. 0) GO TO 730 710 IF (IOPST .EQ. IZ(JSET)) GO TO 730 JSET = JSET + IZ(JSET+1) + 2 IF (JSET .LT. NSETS) GO TO 710 C C SET NOT FOUND. ISSUE A WARNING AND PRINT ALL INSTEAD C WRITE (NOUT,63650) UWM,IOPST I = ITYPE + 1 IF (ITYPE .GT. 3) I = I + 4 BUF(NREQ+I) = -1 IOPST = -1 C C FOR EACH GRID POINT ID IN EQSS FOR THE CURRENT SUBSTRUCTURE WHICH C IS A MEMBER OF THE REQUESTED OUTPUT SET, WRITE A LINE OF OUTPUT C 730 IF (INCORE) GO TO 780 CALL SUREAD (Z(JEQSS),3,NWDS,RC) IF (RC .NE. 1) GO TO 830 GO TO 790 780 JEQSS = JEQSS + 3 IF (IZ(JEQSS) .GT. 0) GO TO 790 GO TO 830 C 790 IF (IOPST .LT. 0) GO TO 800 IF (NEXT .GT. IZ(JSET+1)) GO TO 830 KSET = IZ(JSET+1) KID = IZ(JEQSS ) CALL SETFND (*730,IZ(JSET+2),KSET,KID,NEXT) C C WRITE A LINE OF OUTPUT C 800 ICODE = IZ(JEQSS+2) CALL DECODE (ICODE,DOFS(1),N) DOFS(N+1) = -1 JSIL = IZ(JEQSS+1) + ISIL - 1 K = 0 NON0 = .FALSE. DO 820 I = 1,6 IF (DOFS(K+1)+1 .NE. I) GO TO 815 J = IVECT + (IZ(JSIL)-1)*NWORD + K*NWORD K = K + 1 DATA(I) = Z(J) IF (COMPLX) GO TO 805 IF (SUPRES .AND. DATA(I).EQ.0.0) GO TO 815 IF (ABS(DATA(I)) .LT. THRESH) GO TO 815 NON0 = .TRUE. GO TO 820 805 DATA(6+I) = Z(J+1) IF (IFORM.NE.3 .OR. DATA(I)+DATA(6+I).EQ.0.0) GO TO 810 DATA(I) = SQRT(Z(J)**2 + Z(J+1)**2) DATA(6+I) = ATAN2(Z(J+1),Z(J))*RADDEG IF (DATA(6+I) .LT. -.000005) DATA(6+I) = DATA(6+I) + 360.0 810 IF (SUPRES .AND. DATA(I)+DATA(6+I).EQ.0.0) GO TO 815 IF (ABS(DATA(I)).LT.THRESH .AND. ABS(DATA(6+I)).LT.THRESH) 1 GO TO 815 NON0 = .TRUE. GO TO 820 815 DATA( I) = 0.0 DATA(6+I) = 0.0 820 CONTINUE IF (.NOT.NON0) GO TO 825 IF (.NOT. KEEP) CALL WRITE (IOUT,IDBUF,146,1) CALL WRITE (IOUT,10*IZ(JEQSS)+IDC,1,0) CALL WRITE (IOUT,KPOINT,1,0) CALL WRITE (IOUT,DATA,6*NWORD,0) KEEP = .TRUE. 825 CONTINUE IF (NEXT.LE.IZ(JSET+1) .OR. IOPST.LT.0) GO TO 730 C C IF NO DATA WAS WRITTEN FOR THIS BASIC BACKREC THE OFP FILE C OVER THE PREVIOUSLY WRITTEN ID RECORD C 830 IF (KEEP) CALL WRITE (IOUT,0,0,1) IF (IZ(JEQSS).LT.0 .OR. (.NOT.INCORE .AND. RC.NE.1)) GO TO 840 C C NO MORE OUTPUT FOR THIS BASIC - SKIP EQSS DATA C 835 CONTINUE IF (INCORE) GO TO 836 IF (ONCE ) GO TO 837 ISKIP = ISKIP + 1 GO TO 840 837 N = 1 CALL SJUMP (N) GO TO 840 836 JEQSS = JEQSS + 3 IF (IZ(JEQSS) .GT. 0) GO TO 836 840 CONTINUE C C GO BACK AND DO ANOTHER OUTPUT TYPE C CALL CLOSE (IN,NOREW) CALL CLOSE (IOUT,NOREW) 855 IF (ONCE) GO TO 856 IT = ITYPE IF (ITYPE .GT. 3) IT = 1 NFWD(IT) = NFWD(IT) + 1 856 ITYPE = ITYPE + 1 IF (ITYPE .LE. 3) GO TO 596 IF (ITYPE.LE.5 .AND. RFNO.GE.8) GO TO 596 IF (.NOT.END) GO TO 540 IF (RFNO.EQ.3 .AND. ISC.LT.NMODES) GO TO 540 IF (RFNO.GE.8 .AND. ISC.LT.NSTEPS) GO TO 540 C C ALL SUBCASES PROCESSED, IF IOPT EQ 2, GO BACK AND PROCESS C NEXT BASIC SUBSTRUCTURE C 860 CALL CLOSE (CASESS,REW) IF (IOPT.EQ.1 .OR. ISS.EQ.NS) GO TO 870 CALL SFETCH (RSS,EQSS,SRD,RC) N = ISS + 1 CALL SJUMP (N) GO TO 475 C C WRITE TRAILERS AND EOF ON OUTPUT DATA BLOCKS C 870 DO 880 I = 2,7 880 MCBA(I) = 1 IF (.NOT.UFLAG) GO TO 885 CALL GOPEN (OUGV1,Z(BUF1),WRT) CALL CLOSE (OUGV1,REW) MCBA(1) = OUGV1 CALL WRTTRL (MCBA) 885 IF (.NOT.PFLAG) GO TO 890 CALL GOPEN (OPG1,Z(BUF1),WRT) CALL CLOSE (OPG1,REW) MCBA(1) = OPG1 CALL WRTTRL (MCBA) 890 IF (.NOT.QFLAG) GO TO 900 CALL GOPEN (OQG1,Z(BUF1),WRT) CALL CLOSE (OQG1,REW) MCBA(1) = OQG1 CALL WRTTRL (MCBA) C C NORMAL MODULE TERMINATION C 900 CALL SOFCLS RETURN C C ERROR PROCESSING C 6107 N = 7 CALL SMSG (N,ITEM,RSS) GO TO 9200 6313 WRITE (NOUT,63130) SWM,RSS GO TO 9200 9001 N = 1 GO TO 9100 9002 N = 2 GO TO 9100 9003 N = 3 GO TO 9100 9100 CALL MESAGE (N,FILE,NAME) 9200 CALL SOFCLS DO 9201 I = 101,111 9201 CALL CLOSE (I,REW) DO 9202 I = 201,203 9202 CALL CLOSE (I,REW) DO 9203 I = 301,308 9203 CALL CLOSE(I,REW) RETURN C C DIAGNOSTICS FORMAT STATEMENTS C 63130 FORMAT (A27,' 6313, INSUFFICIENT CORE FOR RCOVR MODULE WHILE ', 1 'TRYING TO PROCESS', /34X,'PRINTOUT DATA BLOCKS FOR ', 2 'SUBSTRUCTURE',2A4) 63140 FORMAT (A27,' 6314, OUTPUT REQUEST CANNOT BE HONORED.', /34X, 1 'RCOVR MODULE OUTPUT DATA BLOCK',I4,' IS PURGED.') 63190 FORMAT (A27,' 6319, DISPLACEMENT MATRIX FOR SUBSTRUCTURE ',2A4, 1 ' MISSING.' /5X,'DISPLACEMENT OUTPUT REQUESTS CANNOT BE ', 2 'HONORED. SPCFORCE OUTPUT REQUESTS CANNOT BE HONORED UN', 3 'LESS THE', /5X,'REACTIONS HAVE BEEN PREVIOUSLY COMPUTED.') 63650 FORMAT (A25,' 6365, REQUESTED OUTPUT SET ID',I6,' IS NOT DECLARED' 1, ' IN CASE CONTROL, ALL OUTPUT WILL BE PRODUCED.') END ================================================ FILE: mis/rcovds.f ================================================ SUBROUTINE RCOVDS C C THIS ROUTINE GENERATES THE DYNAMIC SOLUTION ITEM FOR RIGID C FORMATS 8 AND 9 C INTEGER DRY ,STEP ,FSS ,RFNO , 1 RD ,RDREW ,WRT ,WRTREW , 2 REW ,SYSBUF ,RC ,EQSS , 3 SOLN ,SRD ,SWRT ,EOI , 4 EOG ,IZ(5) ,UPV ,TRL(7) , 5 BUF1 ,DLOAD ,DLT ,CASESS , 6 GEOM4 ,LOADC(2) ,TOLPPF ,NAME(2) , 7 FILE ,DIT ,TABLOC(13) ,CASECC(2) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /CONDAS/ PI ,TWOPI ,RADEG ,DEGRA EQUIVALENCE (Z(1),IZ(1)) , (ISCALE,SCALE) DATA NAME / 4HRCOV,4HDS / DATA EQSS , SOLN,LODS / 4HEQSS,4HSOLN,4HLODS / DATA SRD , SWRT,EOG,EOI / 1,2,2,3 / DATA UPV , DLT,CASESS,GEOM4,TOLPPF,DIT / 1 106 , 108,101 ,102 ,111 ,107 / DATA LOADC / 500, 5 / DATA TABLOC/ 4,1105,11,1,1205,12,2,1305,13,3,1405,14,4 / DATA CASECC/ 4HCASE,4HCC / C C CREATE SOLN FOR RIGID FORMAT 8 OR 9 C C GET NUMBER OF BASIC SUBSTRUCTURES (NS) FROM EQSS AND CREATE C GROUP 0 OF SOLN AT TOP OF OPEN CORE C LCORE = BUF1 - 1 CALL SFETCH (FSS,EQSS,SRD,RC) IF (RC .EQ. 1) GO TO 110 CALL SMSG (RC-2,EQSS,FSS) GO TO 810 110 CALL SUREAD (Z,2,NWDS,RC) CALL SUREAD (NS,1,NWDS,RC) IF (LCORE .LT. 2*NS+5) GO TO 9008 CALL SUREAD (Z,1,NWDS,RC) IZ(1) = FSS(1) IZ(2) = FSS(2) IZ(3) = RFNO IZ(4) = NS C C GET THE BASIC SUBSTRUCTURE NAMES FROM EQSS C DO 120 I = 1,NS CALL SUREAD (Z(3*I+3),2,NWDS,RC) 120 CONTINUE C C GET THE NUMBER OF LOAD VECTORS FOR EACH SUBSTRUCTURE FORM LODS C CALL SFETCH (FSS,LODS,SRD,RC) IF (RC .EQ. 1) GO TO 160 CALL SMSG (RC-2,LODS,FSS) GO TO 9200 160 J = 1 CALL SJUMP (J) DO 170 I = 1,NS CALL SUREAD (Z(3*I+5),1,NWDS,RC) 170 CALL SJUMP (J) C C GET THE NUMBER OF TIME OR FREQUENCY STEPS FROM UPV OR UPVC C TRL(1) = UPV CALL RDTRL (TRL) NSTEP = TRL(2) IF (RFNO .EQ. 9) NSTEP = NSTEP/3 IZ(5) = NSTEP C C GET THE REQUESTED DLOAD SET FROM CASE CONTROL C FILE = CASESS CALL GOPEN (CASESS,Z(BUF1),RDREW) 180 CALL FREAD (CASESS,TRL,2,1) IF (TRL(1).NE.CASECC(1) .OR. TRL(2).NE.CASECC(2)) GO TO 180 CALL FREAD (CASESS,0,-12,0) CALL FREAD (CASESS,DLOAD,1,0) CALL CLOSE (CASESS,REW) C C CHECK IF DLOAD SET POINTS TO A DLOAD COMBINATION CARD OR A C SIMPLE LOAD CARD BY LOOKING AT SET IDS IN HEADER RECORD OF DLT C I = 3*NS + 6 FILE = DLT CALL OPEN (*9001,DLT,Z(BUF1),RDREW) CALL READ (*9002,*200,DLT,Z(I),LCORE-I,1,NWDS) GO TO 9008 200 IDLSET = I + 3 LDLSET = IDLSET + IZ(I+2) - 1 ILDSET = LDLSET + 1 LLDSET = I + NWDS - 1 IDLOAD = LLDSET + 1 IF (IDLSET .GT. LDLSET) GO TO 215 DO 210 I = IDLSET,LDLSET IF (IZ(I) .EQ. DLOAD) GO TO 220 210 CONTINUE C C NO DLOAD MATCH - MUST BE SIMPLE RLOAD OR TLOAD C 215 Z(IDLOAD) = 1.0 IZ(IDLOAD+1) = DLOAD LDLOAD = IDLOAD + 1 GO TO 270 C C DLOAD MATCH FOUND - READ DLOAD DATA FORM DLT RECORD 1 C 220 CALL FREAD (DLT,TRL,2,0) IF (TRL(1) .EQ. DLOAD) GO TO 240 230 CALL FREAD (DLT,TRL,2,0) IF (TRL(1) .NE. -1) GO TO 230 GO TO 220 240 I = IDLOAD ISCALE = TRL(2) 250 CALL FREAD (DLT,Z(I),2,0) IF (IZ(I) .EQ. -1) GO TO 260 Z(I) = Z(I)*SCALE I = I + 2 IF (I .GT. LCORE) GO TO 9008 GO TO 250 260 LDLOAD = I - 1 C C READ THE RLOAD AND TLOAD DATA FORM DLT AND SAVE REQUESTED CARDS C 270 ILOAD = LDLOAD + 1 L = ILOAD IF (IDLSET .LE. LDLSET) CALL FWDREC (*9002,DLT) DO 310 I = ILDSET,LLDSET DO 280 J = IDLOAD,LDLOAD,2 IF (IZ(J+1) .EQ. IZ(I)) GO TO 290 280 CONTINUE CALL FWDREC (*9002,DLT) GO TO 310 C C SAVE RLOAD DATA IF RIGID FORMAT 8 C SAVE TLOAD DATA IF RIGID FORMAT 9 C 290 CALL FREAD (DLT,ITYPE,1,0) IF (ITYPE.LE.2 .AND. RFNO.EQ.8) GO TO 300 IF (ITYPE.GE.3 .AND. RFNO.EQ.9) GO TO 300 CALL FWDREC (*9002,DLT) GO TO 310 C 300 IZ(L) = ITYPE CALL FREAD (DLT,IZ(L+1),7,1) IZ(J+1) = -L L = L + 8 IF (L .GT. LCORE) GO TO 9008 310 CONTINUE C LLOAD = L - 1 CALL CLOSE (DLT,REW) C C READ THE LOADC DATA FROM GEOM4 AND SAVE ANY THAT WAS REQUESTED C ON TLOAD OR RLOAD CARDS C C NOTE - UNTIL A MODULE FRLG IS WRITTEN NO RLOAD CARD MAY REQUEST A C SCALAR LOAD C NSLOAD = 0 ILOADC = LLOAD + 1 LLOADC = ILOADC - 1 ISLOAD = ILOADC LSLOAD = ISLOAD - 1 C IF (RFNO .EQ. 8) GO TO 500 C CALL PRELOC (*500,Z(BUF1),GEOM4) CALL LOCATE (*500,Z(BUF1),LOADC,I) IOLD = 0 I1 = ILOADC I2 = I1 320 CALL READ (*9002,*370,GEOM4,TRL(1),2,0,NWDS) ISCALE = TRL(2) IF (IOLD .EQ. TRL(1)) GO TO 360 IHIT = 0 DO 330 I = ILOAD,LLOAD,8 IF (TRL(1) .NE. IZ(I+1)) GO TO 330 IZ(I+1) = -I1 IHIT = IHIT + 1 330 CONTINUE IF (IHIT .GT. 0) GO TO 350 340 CALL FREAD (GEOM4,TRL(1),4,0) IF (TRL(3) .NE. -1) GO TO 340 GO TO 320 C C THIS LOADC DATA WAS REQUESTED - SAVE THE DATA AND A POINTER TO IT C 350 IOLD = TRL(1) I1 = I2 IZ(I1) = 0 I2 = I1 + 1 360 CALL FREAD (GEOM4,Z(I2),4,0) IF (IZ(I2+2) .EQ. -1) GO TO 320 IZ(I1) = IZ(I1) + 1 Z(I2+3) = Z(I2+3)*SCALE I2 = I2 + 4 IF (I2 .GT. LCORE) GO TO 9008 GO TO 360 C C CONVERT LOADC LOAD SETS TO INTERNAL LOAD IDS BY USING THE LODS C ITEM C 370 LLOADC = I2 - 1 IF (ILOADC .GT. LLOADC) GO TO 500 CALL SFETCH (FSS,LODS,SRD,RC) I = 1 CALL SJUMP (I) ILOD = 1 IDAT0= LLOADC + 1 IDAT = IDAT0 + 1 NDAT = LCORE - LLOADC ISUB = 6 LSUB = 3*NS + 5 C C FOR EACH BASIC READ THE LODS DATA INTO CORE C DO 410 I = ISUB,LSUB,3 CALL SUREAD (Z(IDAT0),NDAT,NWDS,RC) IF (RC .NE. 2) GO TO 9008 J = ILOADC 380 I1 = J + 1 I2 = J + IZ(J)*4 DO 400 K = I1,I2,4 IF (IZ(K).NE.IZ(I) .OR. IZ(K+1).NE.IZ(I+1)) GO TO 400 C C FOUND LOADC DATA FOR THIS BASIC - CONVERT LOAD SET ID C IZ(K ) = 0 IZ(K+1) = 0 NWDS = IDAT0 + NWDS - 1 DO 390 L = IDAT,NWDS IF (IZ(L) .EQ. IZ(K+2)) GO TO 395 390 CONTINUE WRITE (NOUT,6316) UWM,IZ(K+2),Z(I),Z(I+1),FSS IZ(K+2) = -1 GO TO 400 C 395 IZ(K+2) = ILOD + L - IDAT C 400 CONTINUE J = I2 + 1 IF (J .LT. LLOADC) GO TO 380 C 410 ILOD = ILOD + IZ(IDAT0) C C CREATE A LIST OF INTERNAL LOAD VECTORS REQUESTED - ALSO CHECK IF C ANY BASIC NAMES WERE NOT FOUND C ISLOAD = LLOADC + 1 LSLOAD = ISLOAD - 1 NSLOAD = 0 J = ILOADC 420 I1 = J + 1 I2 = J + IZ(J)*4 DO 460 K = I1,I2,4 IF (IZ(K) .EQ. 0) GO TO 430 WRITE (NOUT,6315) UWM,Z(K),Z(K+1),FSS,IZ(K+2),FSS IZ(K+2) = -1 GO TO 460 430 IF (IZ(K+2) .LT. 0) GO TO 460 IF (NSLOAD .EQ. 0) GO TO 455 DO 450 I = ISLOAD,LSLOAD IF (IZ(I) .EQ. IZ(K+2)) GO TO 460 450 CONTINUE 455 NSLOAD = NSLOAD + 1 LSLOAD = LSLOAD + 1 IF (LSLOAD .GT. LCORE) GO TO 9008 IZ(LSLOAD) = IZ(K+2) 460 CONTINUE J = I2 + 1 IF (J .LT. LLOADC) GO TO 420 C C SORT LIST OF IDS C CALL SORT (0,0,1,1,Z(ISLOAD),NSLOAD) C C MAKE ONE MORE PASS THROUGH THE LOAC DATA CONVERTING THE C INTERNAL LOAD IDS TO A RELATIVE POSITION IN THE LOAD LIST C STARTING AT ISLOAD C J = ILOADC 470 I1 = J + 1 I2 = J + IZ(J)*4 DO 495 K = I1,I2,4 IF (IZ(K+2) .LT. 0) GO TO 495 DO 480 L = ISLOAD,LSLOAD IF (IZ(K+2) .EQ. IZ(L)) GO TO 490 480 CONTINUE GO TO 495 490 IZ(K+2) = L - ISLOAD 495 CONTINUE J = I2 + 1 IF (J .LT. LLOADC) GO TO 470 C C OK - NOW WE CAN WRITE OUT GROUP 0 OF THE SOLN ITEM C 500 CALL CLOSE (GEOM4,REW) RC = 3 CALL SFETCH (FSS,SOLN,SWRT,RC) CALL SUWRT (Z(1),3*NS+5,1) CALL SUWRT (NSLOAD,1,1) IF (NSLOAD .GT. 0) CALL SUWRT (Z(ISLOAD),NSLOAD,1) CALL SUWRT (0,0,EOG) C C COPY THE FREQUENCY STEPS FROM PPF OR THE TIME STEPS FROM TOL C FOR GROUP 1 OF THE SOLN ITEM C ISTEP = ISLOAD LSTEP = ISTEP + NSTEP - 1 IF (LSTEP .GT. LCORE) GO TO 9008 FILE = TOLPPF CALL OPEN (*9001,TOLPPF,Z(BUF1),RDREW) CALL FREAD (TOLPPF,TRL,2,0) CALL FREAD (TOLPPF,Z(ISTEP),NSTEP,0) CALL CLOSE (TOLPPF,REW) C CALL SUWRT (Z(ISTEP),NSTEP,EOG) C C IF ANY SCALAR LOADS EXIST CALCULATE THE SCALE FACTORS FOR EACH C LOAD AND WRITE THEM TO THE SOF - 1 GROUP PER TIME OR FREQUENCY C STEP C IF (NSLOAD .EQ. 0) GO TO 800 IVEC = LSTEP + 1 LVEC = IVEC + NSLOAD - 1 IF (LVEC .GT. LCORE) GO TO 9008 C C CALL PRETAB TO READ IN THE REQUIRED TABLE DATA - FIRST MAKE A C LIST OF REQUESTED TABLE IDS C ITAB0 = LVEC + 1 IZ(ITAB0) = 0 ITAB = ITAB0 + 1 LTAB = ITAB - 1 DO 570 J = ILOAD,LLOAD,8 IF (IZ(J+1) .GE. 0) GO TO 570 ITYPE = IZ(J) GO TO (510,510,520,570), ITYPE 510 I1 = J + 2 I2 = J + 3 GO TO 530 520 I1 = J + 2 I2 = J + 2 530 DO 560 K = I1,I2 IF (IZ(K) .EQ. 0) GO TO 560 IF (LTAB .LT. ITAB) GO TO 550 DO 540 L = ITAB,LTAB IF (IZ(L) .EQ. IZ(K)) GO TO 560 540 CONTINUE 550 LTAB = LTAB + 1 IF (LTAB .GT. LCORE) GO TO 9008 IZ(LTAB ) = IZ(K) IZ(ITAB0) = IZ(ITAB0) + 1 560 CONTINUE 570 CONTINUE C IF (IZ(ITAB0) .EQ. 0) GO TO 585 ITABD = LTAB + 1 CALL PRETAB (DIT,Z(ITABD),IZ(ITABD),Z(BUF1),LCORE-ITABD,LTABD, 1 Z(ITAB0),TABLOC) LTABD = ITABD + LTABD - 1 585 CONTINUE C C LOOP OVER EACH TIME OR FREQUENCY STEP C DO 790 I = ISTEP,LSTEP C C ZERO A VECTOR IN CORE FOR THE SCALE FACTORS C DO 590 J = IVEC,LVEC 590 IZ(J) = 0 C C PASS THROUGH THE DLOAD DATA C DO 780 J = IDLOAD,LDLOAD,2 IF (IZ(J+1) .GE. 0) GO TO 780 C C PROCESS THE TLOAD OR RLOAD DATA THIS DLOAD ENTRY POINTS TO C ILD = -IZ(J+1) IF (IZ(ILD+1) .GE. 0) GO TO 780 ITYPE = IZ(ILD ) ILDC =-IZ(ILD+1) C C CALCULATE THE SCALE FACTOR FOR THE CARD FOR THIS TIME OR FREQUENCY C STEP C GO TO (600,640,680,720), ITYPE C C RLOAD1 DATA C 600 SCALE = 0.0 GO TO 760 C C RLOAD2 DATA C 640 SCALE = 0.0 GO TO 760 C C TLOAD1 DATA C 680 CALL TAB (IZ(ILD+2),Z(I),SCALE) GO TO 760 C C TLOAD2 DATA C 720 SCALE = 0.0 TT = Z(I) - Z(ILD+2) IF (TT .EQ. 0.0) GO TO 730 IF (TT.LT.0.0 .OR. TT.GT.Z(ILD+3)) GO TO 760 SCALE = TT**Z(ILD+7)*EXP(Z(ILD+6)*TT)*COS(TWOPI*Z(ILD+4)*TT 1 + Z(ILD+5)*DEGRA) GO TO 760 730 IF (Z(ILD+7) .NE. 0.0) GO TO 760 SCALE = COS(Z(ILD+5)) C C NOW APPLY THIS SCALE FACTOR TO EACH LOADC ENTRY. C TOTAL SCALE FACTOR = T(R)LOAD FACTOR*DLOAD FACTOR*LOADC FACTOR C 760 CONTINUE IF (SCALE .EQ. 0.0) GO TO 780 I1 = ILDC + 1 I2 = ILDC + IZ(ILDC)*4 DO 770 K = I1,I2,4 IF (IZ(K+2) .LT. 0) GO TO 770 IFAC = IVEC + IZ(K+2) Z(IFAC) = Z(IFAC) + SCALE*Z(J)*Z(K+3) 770 CONTINUE C 780 CONTINUE C C WRITE OUT THESE FACTORS TO THE NEXT GROUP OF THE SOF C CALL SUWRT (Z(IVEC),NSLOAD,EOG) 790 CONTINUE C C FINISHED C 800 CALL SUWRT (0,0,EOI) 810 CALL SOFCLS RETURN C C DIAGNOSTICS C 6315 FORMAT (A25,' 6315, RCOVR MODULE - SUBSTRUCTURE ',2A4,' IS NOT A', 1 ' COMPONENT OF ',2A4, /32X,'LOAD SET',I9,' FOR THAT ', 2 'SUBSTRUCTURE WILL BE IGNORED IN CREATING', /32X, 3 'THE SOLN ITEM FOR FINAL SOLUTION STRUCTURE ',2A4) 6316 FORMAT (A25,' 6316, RCOVR MODULE IS UNABLE TO FIND LOAD SET ',I8, 1 ' FOR SUBSTRUCTURE ',2A4, /32X,'AMONG THOSE ON LODS. ', 2 'IT WILL BE IGNORED IN CREATING THE SOLN ITEM FOR FINAL', 3 /32X,'SOLUTION STRUCTURE ',2A4) 9001 N = 1 GO TO 9100 9002 N = 2 GO TO 9100 9008 N = 8 9100 CALL MESAGE (N,FILE,NAME) 9200 CALL SOFCLS IOPT = -1 CALL CLOSE (CASESS,REW) CALL CLOSE (DLT,REW) CALL CLOSE (GEOM4,REW) CALL CLOSE (TOLPPF,REW) CALL CLOSE (DIT,REW) RETURN END ================================================ FILE: mis/rcove.f ================================================ SUBROUTINE RCOVE C C THIS SUBROUTINE PRINTS THE ENERGIES ON THE MODAL COORDINATES C IN A SUBSTRUCTURE THAT WAS MODAL REDUCED. IT WILL ALSO PRINT C THE ENERGIES ON THOSE MODES EXCLUDED FROM THE REDUCTION C PROCESSING. C EXTERNAL ANDF LOGICAL MREDU ,CREDU ,NOEXCL INTEGER DRY ,FSS ,RSS ,UA , 1 RFNO ,Z(3) ,RC ,BUF(1) , 2 FILE ,SOF1 ,SOF2 ,SOF3 , 4 BUF1 ,BUF2 ,BUF3 ,SYSBUF , 5 NAME(2) ,SCR3 ,SCR4 ,SCR6 , 7 SCR7 ,EQSS ,RSP ,GRID , 8 SOLN ,TRIGID(2) ,TIMODE(2) ,TEMODE(2) , 9 TYPE(2) ,CASESS ,CASECC(2) ,MCB(7) , O CMASK ,ENERGY ,BUF4 ,BLANK , A HIGHER(2) ,ANDF ,NAMES(2) REAL KENG ,PENG CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5), 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /ZZZZZZ/ RZ(1) COMMON /SYSTEM/ SYSBUF ,NOUT ,DUM1(6) ,NLPP , 1 DUM2(2) ,NLINES COMMON /UNPAKX/ ITINU ,IRU ,NRU ,INCRU COMMON /OUTPUT/ ITITLE(96) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQUARE , 3 RECT ,DIAG EQUIVALENCE (BUF(1) ,RZ(1)) EQUIVALENCE (RZ(1) ,Z(1)) DATA CASECC/ 4HCASE,4HCC / DATA EQSS , LAMS, SOLN / 4HEQSS,4HLAMS,4HSOLN / DATA CASESS, SCR3, SCR4, SCR6, SCR7 / 1 101 , 303, 304, 306, 307 / DATA TRIGID/ 4HINER,4HTIAL / DATA TIMODE/ 4HIN-M,4HODE / DATA TEMODE/ 4HEX-M,4HODE / DATA IB / 1 / DATA MMASK / 201326592 / DATA CMASK / 67108864 / DATA BLANK / 4H / DATA NAME / 4HRCOV,4HE / C C IF THIS IS A STATICS SOLUTION NO ENERGY CALCULATIONS CAN BE MADE C IF (RFNO .LE. 2) RETURN C C INITIALIZE C SOF1 = KORSZ(Z) - SYSBUF + 1 SOF2 = SOF1 - SYSBUF - 1 SOF3 = SOF2 - SYSBUF BUF1 = SOF3 - SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF LCORE= BUF4 - 1 IF (LCORE .LE. 0) GO TO 9008 C C GET THE NAME OF THE HIGHER LEVEL SUBSTRUCTURE. IF NONE EXISTS C THEN RETURN. C CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) NAMES(1) = RSS(1) NAMES(2) = RSS(2) CALL FNDNXL (RSS,HIGHER) RC = 4 IF (HIGHER(1) .EQ. BLANK) GO TO 6000 IF (HIGHER(1).EQ.RSS(1) .AND. HIGHER(2).EQ.RSS(2)) GO TO 1000 C C CHECK IF THE HIGHER LEVEL SUBSTRUCTURE WAS MODAL REDUCED. C IF NOT THEN WE HAVE NOTHING TO DO C NAMES(1) = HIGHER(1) NAMES(2) = HIGHER(2) RC = 4 CALL FDSUB (HIGHER,IDIT) IF (IDIT .LT. 0) GO TO 6000 CALL FMDI (IDIT,IMDI) MREDU = .FALSE. CREDU = .FALSE. IF (ANDF(BUF(IMDI+IB),MMASK) .NE. 0) MREDU = .TRUE. IF (ANDF(BUF(IMDI+IB),CMASK) .NE. 0) CREDU = .TRUE. IF (.NOT.MREDU) GO TO 1000 C C READ THE MODAL GROUP OF THE EQSS TO DETERMINE IF THERE ARE ANY C RIGID BODY DOF PRESENT. ALSO GET THE SIL NUMBER OF THE FIRST C MODAL CORDINATE. C ITEM = EQSS CALL SFETCH (HIGHER,EQSS,1,RC) IF (RC .NE. 1) GO TO 6000 CALL SUREAD (Z(1),3,N,RC) IF (RC .NE. 1) GO TO 6100 N = Z(3) CALL SJUMP (N) IF (N .LT. 0) GO TO 6200 C NRIGID = 0 10 CALL SUREAD (Z(1),3,N,RC) IF (RC .NE. 1) GO TO 6100 IF (NRIGID .EQ. 0) IP = Z(2) IF (Z(1) .GE. 100) GO TO 20 NRIGID = NRIGID + 1 GO TO 10 C 20 IF (2*IP .GT. SOF3) GO TO 9008 N = 1 CALL SJUMP (N) IF (N .LT. 0) GO TO 6200 C CALL SUREAD (Z(1),2*IP,N,RC) IF (RC .NE. 1) GO TO 6100 I = 2*(IP-1) + 1 ISIL = Z(I) C C CALCULATE THE ENERGIES ON THE EXCLUDED MODES C NOEXCL = .TRUE. NROWE = 0 IF (CREDU .OR. RFNO.LT.3 .OR. RFNO.GT.8) GO TO 100 NOEXCL = .FALSE. CALL RCOVEM (NOEXCL,NROWE) C C CALCULATE THE ENERGIES ON THE INCLUDED MODE AND THE TOTAL C ENERGIES ON EACH VECTOR C 100 CALL RCOVIM (HIGHER) IF (IOPT .LT. 0) GO TO 9200 MCB(1) = SCR6 CALL RDTRL(MCB) NCOL = MCB(2) NROWI = MCB(3) NMODEI= NROWI - ISIL + 1 C C READ THE MODE DATA FROM LAMS AND SAVE THE MODE NUMBER AND C THE FREQUENCY FOR EACH MODE. C NAMES(1) = RSS(1) NAMES(2) = RSS(2) ITEM = LAMS CALL SFETCH (RSS,LAMS,1,RC) IF (RC .NE. 1) GO TO 6000 N = 1 CALL SJUMP (N) IF (N .LT. 0) GO TO 6200 IMODE = 1 IF (NRIGID .EQ. 0) GO TO 210 N = 3*NRIGID IMODE = IMODE + N DO 200 I = 1,N,3 Z(I ) = 0 Z(I+1) = 0 200 Z(I+2) = (I-1)/3 + 1 210 NMODE = 3*(NMODEI-1+NROWE) IF (NMODE .GT. LCORE) GO TO 9008 C DO 300 I = IMODE,NMODE,3 CALL SUREAD (Z(I),7,N,RC) IF (RC .NE. 1) GO TO 6100 Z(I+1) = Z(I+4) Z(I+2) = 0 300 CONTINUE C C READ THE LAST GROUP OF LAMS AND GENERATE GRID NUMBERS FOR THE C INCLUDED MODES. C N = 1 CALL SJUMP (N) IF (N .LT. 0) GO TO 6200 IINC = 100 DO 400 I = IMODE,NMODE,3 CALL SUREAD (ICODE,1,N,RC) IF (RC .NE. 1) GO TO 6100 IF (ICODE .GT. 1) GO TO 400 IINC = IINC + 1 Z(I+2) = IINC 400 CONTINUE C C POSITION THE SOLN ITEM TO THE FREQUENCY OR TIME DATA C ITEM = SOLN CALL SFETCH (RSS,SOLN,1,RC) IF (RC .NE. 1) GO TO 6000 N = 1 CALL SJUMP (N) IF (N .LT. 0) GO TO 6200 C C ALLOCATE INCORE ARRAYS FOR THE ENERGY VECTORS C IVEC1 = NMODE + 1 IVEC2 = IVEC1 + NMODEI IVEC3 = IVEC2 + NMODEI IVEC4 = IVEC3 + NROWE ISETS = IVEC4 + NROWE IF (ISETS .GT. LCORE) GO TO 9008 C C READ CASESS AND GET THE TITLE AND ANY SET INFORMATION C FILE = CASESS CALL GOPEN (CASESS,Z(BUF1),RDREW) 450 CALL FREAD (CASESS,Z(IVEC1),2,1) IF (Z(IVEC1).NE.CASECC(1) .OR. Z(IVEC1+1).NE.CASECC(2)) GO TO 450 C CALL FREAD (CASESS,0,-38,0) CALL FREAD (CASESS,ITITLE(1),96,0) C IF (ENERGY .LE. 0) GO TO 485 CALL FREAD (CASESS,0,-31,0) CALL FREAD (CASESS,LCC,1,0) LSKIP = 167 - LCC CALL FREAD (CASESS,0,LSKIP,0) CALL READ (*9002,*480,CASESS,LSEQ,1,0,I) IF (LSEQ .GT. 0) CALL FREAD (CASESS,0,LSEQ,0) C 460 CALL READ (*9002,*480,CASESS,ISET,1,0,I) CALL FREAD (CASESS,LSET,1,0) IF (ISET .EQ. ENERGY) GO TO 470 CALL FREAD (CASESS,0,-LSET,0) GO TO 460 470 IF (ISETS+LSET .GT. LCORE) GO TO 9008 CALL FREAD (CASESS,Z(ISETS),LSET,0) GO TO 485 C 480 WRITE (NOUT,63650) UWM,ENERGY ENERGY = -1 C 485 CALL CLOSE (CASESS,REW) C C LOOP OVER EACH COLUMN AND PRINT THE KINETIC AND POTENTIAL C ENERGIES FOR EACH MODAL COORDINATE IF REQUESTED C NEXT = 1 CALL GOPEN (SCR6,Z(BUF1),RDREW) CALL GOPEN (SCR7,Z(BUF2),RDREW) IF (NOEXCL) GO TO 490 CALL GOPEN (SCR3,Z(BUF3),RDREW) CALL GOPEN (SCR4,Z(BUF4),RDREW) C 490 ITINU = RSP INCRU = 1 C DO 800 ICOL = 1,NCOL C C SET FLAGS FOR NULL COLUMNS C IKFLAG = 0 IPFLAG = 0 C C GET THE FREQUENCY OR TIME FOR THIS VECTOR C IF (RFNO .GT. 3) GO TO 500 C C NORMAL MODES SOLUTION C CALL SUREAD (Z(IVEC1),7,N,RC) IF (RC .NE. 1) GO TO 6100 STEP = RZ(IVEC1+4) GO TO 505 C C DYNAMICS SOLUTION C 500 CALL SUREAD (STEP,1,N,RC) IF (RC .NE. 1) GO TO 6100 C C SEE IF THIS COLUMN IS REQUESTED C 505 IF (ENERGY .LE. 0) GO TO 510 CALL SETFND (*790,Z(ISETS),LSET,ICOL,NEXT) C 510 IF (STEP.LT.RANGE(1) .OR. STEP.GT.RANGE(2)) GO TO 790 C C UNPACK THE KINETIC AND POTENTIAL ENERGIES ON INCLUDED MODES C IRU = ISIL NRU = NROWI CALL UNPACK (*520,SCR6,RZ(IVEC1)) GO TO 540 520 DO 530 I = 1,NMODEI 530 RZ(IVEC1+I-1) = 0.0 RZ(IVEC1+NMODEI-1) = 1.0 IKFLAG = 1 C 540 CALL UNPACK (*550,SCR7,RZ(IVEC2)) GO TO 570 550 DO 560 I = 1,NMODEI 560 RZ(IVEC2+I-1) = 0.0 RZ(IVEC2+NMODEI-1) = 1.0 IPFLAG = 1 C C UNPACK THE KINETIC AND POTENTIAL ENERGIES ON EXLUDED MODES C 570 IF (NOEXCL) GO TO 580 IRU = 1 NRU = NROWE CALL UNPACK (*580,SCR3,RZ(IVEC3)) GO TO 600 580 DO 590 I = 1,NROWE 590 RZ(IVEC3+I-1) = 0.0 C 600 IF (NOEXCL) GO TO 610 CALL UNPACK (*610,SCR4,RZ(IVEC4)) GO TO 630 610 DO 620 I = 1,NROWE 620 RZ(IVEC4+I-1) = 0.0 C C INITILIZE FOR THE OUTPUT C 630 NLINES = NLPP C C GET TOTAL ENERGIES C TKENG = RZ(IVEC1+NMODEI-1) TPENG = RZ(IVEC2+NMODEI-1) PERKT = 1.0 PERPT = 1.0 C C LOOP OVER EACH MODAL COORDINATE C IINC = 0 IEXC = 0 C DO 700 I = 1,NMODE,3 C MODE = Z(I) FREQ = RZ(I+1) GRID = Z(I+2) C C GET ENERGIES FORM THE PROPER VECTOR C IF (NOEXCL) GO TO 650 IF (GRID .EQ. 0) GO TO 660 650 KENG = RZ(IVEC1+IINC) PENG = RZ(IVEC2+IINC) IINC = IINC + 1 TYPE(1) = TIMODE(1) TYPE(2) = TIMODE(2) C IF (MODE .NE. 0) GO TO 670 TYPE(1) = TRIGID(1) TYPE(2) = TRIGID(2) GO TO 670 C 660 KENG = RZ(IVEC3+IEXC) PENG = RZ(IVEC4+IEXC) IEXC = IEXC + 1 TYPE(1) = TEMODE(1) TYPE(2) = TEMODE(2) C C CALCULATE THE ENERGY PERCENTAGES C 670 PERK = KENG/TKENG IF (PERK .GE. 100.0) PERK = 99.9999 PERP = PENG/TPENG IF (PERP .GE. 100.0) PERP = 99.9999 IF (GRID .NE. 0) GO TO 680 PERKT = PERKT + PERK PERPT = PERPT + PERP C C PRINT A LINE OF OUTPUT C 680 NLINES = NLINES + 1 IF (NLINES .LE. NLPP) GO TO 690 CALL PAGE1 WRITE (NOUT,5000) RSS IF (RFNO .EQ. 9) WRITE (NOUT,5010) STEP IF (RFNO .NE. 9) WRITE (NOUT,5020) STEP WRITE (NOUT,5100) NLINES = 0 C 690 WRITE (NOUT,5200) GRID,TYPE,MODE,FREQ,KENG,PERK,PENG,PERP C 700 CONTINUE C C PRINT THE TOTAL KINETIC AND POTENTIAL ENERGIES FOR THIS COLUMN C IF (PERKT .GE. 100.0) PERKT = 99.9999 IF (PERPT .GE. 100.0) PERPT = 99.9999 IF (IKFLAG .EQ. 0) GO TO 710 TKENG = 0.0 PERKT = 0.0 710 IF (IPFLAG .EQ. 0) GO TO 720 TPENG = 0.0 PERPT = 0.0 720 WRITE (NOUT,5300) TKENG,PERKT,TPENG,PERPT GO TO 800 C C THIS VECTOR IS NOT TO BE PRINTED SO SKIP IT C 790 CALL FWDREC (*9002,SCR6) CALL FWDREC (*9002,SCR7) IF (NOEXCL) GO TO 800 CALL FWDREC (*9002,SCR3) CALL FWDREC (*9002,SCR4) C 800 CONTINUE C C CLOSE FILES C CALL CLOSE (SCR6,REW) CALL CLOSE (SCR7,REW) IF (NOEXCL) GO TO 1000 CALL CLOSE (SCR3,REW) CALL CLOSE (SCR4,REW) C C NORMAL RETURN C 1000 CALL SOFCLS RETURN C C ERRORS C 6000 CALL SMSG (RC-2,ITEM,NAMES) GO TO 9200 6100 CALL SMSG (RC+4,ITEM,NAMES) GO TO 9200 6200 CALL SMSG (7,ITEM,NAMES) GO TO 9200 9002 N = 2 GO TO 9100 9008 N = 8 9100 CALL MESAGE (N,FILE,NAME) 9200 CALL SOFCLS WRITE (NOUT,63710) UWM,RSS RETURN C C FORMAT STATEMENTS C 5000 FORMAT (//39X,43HMODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ,2A4) 5010 FORMAT (//12X,7HTIME = ,1P,E13.6) 5020 FORMAT (//12X,12HFREQUENCY = ,1P,E13.6) 5100 FORMAT (//12X,4HGRID,6X,4HTYPE,6X,4HMODE,7X,9HFREQUENCY,10X, 1 7HKINETIC,8X,8HKE/TOTAL,6X,9HPOTENTIAL,7X,8HPE/TOTAL ,/) 5200 FORMAT (1H ,8X,I8,5X,2A4,2X,I5,5X,1P,E13.6,2(5X,1P,E13.6,5X, 1 0P,F7.4)) 5300 FORMAT (1H ,55X,2(4X,14H--------------,4X,8H--------), /12X, 1 28HTOTAL ENERGY FOR THIS VECTOR,15X,2(5X,1P,E13.6,5X, 2 0P,F7.4)) 63710 FORMAT (A25,' 6371, MODAL REDUCTION ENERGY CALCULATIONS FOR ', 1 'SUBSTRUCTURE ',2A4,' ABORTED.') 63650 FORMAT (A25,' 6365, REQUESTED OUTPUT SET ID',I6,' IS NOT ', 1 'DECLARED IN CASE CONTROL. ALL OUTPUT WILL BE PRODUCED') END ================================================ FILE: mis/rcovem.f ================================================ SUBROUTINE RCOVEM (NOEXCL,NROWE) C C THIS SUBROUTINE CALCULATES THE ENERGIES ON THE MODAL COORDINATES C THAT WERE EXCLUDED FROM THE MODAL REDUCTION PROCESSING C LOGICAL NOEXCL INTEGER RSS ,RC ,RULE ,SOF1 , 1 SOF2 ,SOF3 ,BUF1 ,BUF2 , 2 Z ,QA ,PA ,SCR3 , 3 SCR4 ,SCR5 ,SCR6 ,SCR7 , 4 SCR8 ,PHIS ,SOLN ,TYPA , 5 TYPB ,TFLAG ,SIGNAB ,SIGNC , 6 BUF3 ,RSP ,CSP ,NAME(2) , 7 RFNO REAL RZ(5) COMPLEX SC ,CZ(2) ,SC2 ,DKDC , 1 DKSC CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /CONDAS/ PHI ,TWOPHI COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / ITINP ,ITOUTP ,IRP ,NRP , 1 INCRP COMMON /UNPAKX/ ITINU ,IRU ,NRU ,INCRU COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQUARE , 3 RECT COMMON /PARMEG/ MCBP(7) ,MCBP11(7) ,MCBP21(7) ,MCBP12(7) , 1 MCBP22(7) ,MRGZ ,RULE COMMON /SADDX / NOMAT ,LCOREZ ,MCBAA(7) ,TYPA , 1 ALPHA ,ALP(3) ,MCBBB(7) ,TYPB , 2 BETA ,BET(3) ,DUM(36) ,MCBXX(7) COMMON /MPYADX/ MCBA(7) ,MCBB(7) ,MCBC(7) ,MCBD(7) , 1 MPYZ ,TFLAG ,SIGNAB ,SIGNC , 2 MPREC ,MSCR EQUIVALENCE (Z(1),RZ(1),CZ(1)) ,(CZ(2),SC) DATA LAMS , PHIS,SOLN /4HLAMS,4HPHIS,4HSOLN / DATA SCR3 , SCR4,SCR5,SCR6,SCR7,SCR8 /303,304,305,306,307,308/ DATA NAME / 4HRCOV,4HEM / C C INITILIZE C LCOREZ = KORSZ(Z) C C FROM THE LAST GROUP ON LAMS CREATE A PARTITIONING VECTOR TO C DIFFERENTIATE THE INCLUDED AND EXCLUDED MODES C NROWE = 0 ITEM = LAMS CALL SFETCH (RSS,LAMS,1,RC) IF (RC .NE. 1) GO TO 6000 N = 2 CALL SJUMP (N) IF (N .LT. 0) GO TO 6200 I = 0 C 10 CALL SUREAD (ICODE,1,N,RC) IF (RC .NE. 1) GO TO 20 I = I + 1 IF (I .GT. BUF1) GO TO 9008 RZ(I) = 1.0 IF (ICODE .EQ. 1) GO TO 10 RZ(I) = 0.0 NROWE = NROWE + 1 GO TO 10 C 20 CONTINUE IF (NROWE .EQ. 0) GO TO 900 IF (QA+PA .EQ. 0) GO TO 9200 ITINP = RSP ITOUTP = RSP IRP = 1 NRP = I INCRP = 1 CALL MAKMCB (MCBA,SCR8,NRP,RECT,RSP) CALL GOPEN (SCR8,Z(BUF1),WRTREW) CALL PACK (RZ(1),SCR8,MCBA) CALL CLOSE (SCR8,REW) CALL WRTTRL (MCBA) C C PARTITION THE EIGENVECTOR TO GET THE EXCLUDED MODES OUT C ITEM = PHIS CALL MTRXI (SCR7,RSS,PHIS,0,RC) IF (RC .NE. 1) GO TO 6000 RULE = 0 MCBP(1) = SCR7 CALL RDTRL (MCBP) IF (MCBP(2) .NE. NRP) GO TO 6372 CALL MAKMCB (MCBP11,SCR6,MCBP(3),RECT,MCBP(5)) MCBP11(2) = NROWE MCBP21(1) = 0 MCBP12(1) = 0 MCBP22(1) = 0 C C SETUP NULL COLUMN PARTITONING VECTOR C CALL MAKMCB (MCBB,0,MCBP(3),RECT,RSP) MCBB(2) = 1 MRGZ = LCOREZ CALL SOFCLS C CALL PARTN (MCBA,MCBB,Z(1)) C CALL WRTTRL (MCBP11) C C IF BOTH LOADS AND SINGLE POINT CONSTRAINT FORCES EXIST, ADD C THEM TOGETHER C IRH = QA + PA IF (QA.EQ.0 .OR. PA.EQ.0) GO TO 100 NOMAT = 2 TYPA = 1 ALPHA = 1.0 MCBAA(1) = QA CALL RDTRL (MCBAA) TYPB = 1 BETA = 1.0 MCBBB(1) = PA CALL RDTRL (MCBBB) CALL MAKMCB (MCBXX,SCR7,MCBAA(3),RECT,MCBAA(5)) MCBXX(2) = MCBAA(2) C CALL SADD (Z(1),Z(1)) C CALL WRTTRL (MCBXX) IRH = SCR7 C C MULTIPLY PK = QK(T)*(PA + QA) C 100 DO 110 I = 1,7 110 MCBA(I) = MCBP11(I) MCBB(I) = IRH CALL RDTRL (MCBB) MCBC(1) = 0 MPYZ = LCOREZ TFLAG = 1 SIGNAB = 1 SIGNC = 1 MPREC = 0 MSCR = SCR8 CALL MAKMCB (MCBD,SCR5,NROWE,RECT,MCBA(5)) C CALL MPYAD (Z(1),Z(1),Z(1)) C C READ MODAL MASS AND TWOPHI*FREQUENCY FOR EACH OF THE EXCLUDED C MODES MODES FROM LAMS C IF MODE WAS EXCLUDED BECAUSE OF NON-PARTICIPATION, SET ITS C FREQUENCY TO ZERO C CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) ITEM = LAMS CALL SFETCH (RSS,LAMS,1,RC) IF (RC .NE. 1) GO TO 6000 N = 1 CALL SJUMP (N) IF (N .LE. 0) GO TO 6200 IMODE = 8 CALL SUREAD (Z(IMODE),-1,N,RC) IF (RC .NE. 2) GO TO 6100 NMODE = IMODE + N - 1 IF (NMODE .GT. BUF3) GO TO 9008 ICODE = NMODE + 1 CALL SUREAD (Z(ICODE),-1,N,RC) IF (RC.NE.2 .AND. RC.NE.3) GO TO 6100 NCODE = ICODE + N - 1 IF (NCODE .GT. BUF3) GO TO 9008 C I1 = IMODE - 7 I2 = IMODE - 2 DO 250 I = ICODE,NCODE I1 = I1 + 7 IF (Z(I) .EQ. 1) GO TO 250 I2 = I2 + 2 RZ(I2) = RZ(I1+3) IF (Z(I).EQ.2 .OR. RZ(I2).LE.0.001) RZ(I2) = 0.0 RZ(I2+1) = RZ(I1+5) 250 CONTINUE NMODE = I2 + 1 C C POSITION SOLN ITEM TO SOLUTION DATA C ITEM = SOLN CALL SFETCH (RSS,SOLN,1,RC) IF (RC .NE. 1) GO TO 6000 N = 1 CALL SJUMP (N) IF (N .LT. 0) GO TO 6200 C C SET UP TO LOOP OVER COLUMNS C NCOL = MCBD(2) NWORD = 1 IF (MCBD(5) .GE. 3) NWORD = 2 IVEC1 = (NMODE/2)*2 + 3 ICVEC1= IVEC1/2 + 1 IVEC2 = IVEC1 + (NROWE*NWORD/2) * 2 + 1 IF (IVEC2+NROWE .GT. BUF3) GO TO 9008 C CALL GOPEN (SCR5,Z(BUF1),RDREW) CALL GOPEN (SCR3,Z(BUF2),WRTREW) CALL GOPEN (SCR4,Z(BUF3),WRTREW) CALL MAKMCB (MCBA,SCR3,NROWE,RECT,RSP) CALL MAKMCB (MCBB,SCR4,NROWE,RECT,RSP) C ITINU = RSP IF (MCBD(5) .GE. 3) ITINU = CSP IRU = 1 NRU = NROWE INCRU = 1 NRP = NROWE C C LOOP OVER EACH SOLUTION STEP C DO 700 ICOL = 1,NCOL C C GET FREQUENCY OR POLE FROM SOLN ITEM FOR THIS STEP C IF (RFNO .GT. 3) GO TO 310 CALL SUREAD (RZ(1),7,N,RC) IF (RC .NE. 1) GO TO 6100 IF (MCBD(5) .GE. 3) GO TO 300 FREQ = RZ(5) S2 = -(TWOPHI*FREQ)**2 GO TO 320 C 300 SC = CZ(2) SC2 = SC*SC GO TO 320 C 310 CALL SUREAD (RZ(1),1,N,RC) IF (RC .NE. 1) GO TO 6100 SC = TWOPHI*RZ(1)*(0.0,1.0) SC2 = SC*SC C C UNPACK THE NEXT COLUMN C 320 CALL UNPACK (*330,SCR5,RZ(IVEC1)) GO TO 350 330 DO 340 I = 1,NROWE J = I - 1 RZ(IVEC1+J) = 0.0 340 RZ(IVEC2+J) = 0.0 GO TO 600 C 350 IF (MCBD(5) .GE. 3) GO TO 500 C C CALCULATE ENERGIES FOR REAL MATRICIES C IM = IMODE - 2 DO 410 I = 1,NROWE IM = IM + 2 J = I - 1 IF (RZ(IM).EQ.0.0 .OR. (TWOPHI*FREQ).GT.RZ(IM)) GO TO 400 WK2 = RZ(IM)**2 C DKD =-S2*RZ(IVEC1+J)/(RZ(IM+1)*WK2**2*(1.0 + S2/WK2)) DKS = RZ(IVEC1+J)/(RZ(IM+1)*WK2) C RZ(IVEC2+J) = .5*RZ(IM+1)*WK2*ABS((2.0*DKS+DKD)*DKD) RZ(IVEC1+J) = ABS(S2/WK2)*RZ(IVEC2+J) GO TO 410 C 400 RZ(IVEC1+J) = 0.0 RZ(IVEC2+J) = 0.0 C 410 CONTINUE GO TO 600 C C CALCULATE ENERGIES FOR COMPLEX VECTORS C 500 IM = IMODE - 2 DO 520 I = 1,NROWE IM = IM + 2 J = I - 1 IF (RZ(IM).EQ.0.0 .OR. AIMAG(SC).GT.RZ(IM)) GO TO 510 WK2 = RZ(IM)**2 C DKDC =-SC2*CZ(ICVEC1+J)/(RZ(IM+1)*WK2**2*(1.0+SC2/WK2)) DKSC = CZ(ICVEC1+J)/(RZ(IM+1)*WK2) C RZ(IVEC2+J) = .5*RZ(IM+1)*WK2*CABS((2.0*DKSC+DKDC)*DKDC) RZ(IVEC1+J) = CABS(SC**2/WK2)*RZ(IVEC2+J) GO TO 520 C 510 RZ(IVEC1+J) = 0.0 RZ(IVEC2+J) = 0.0 C 520 CONTINUE C C PACK OUT THE KENETIC AND POTENTIAL ENERGIES C 600 CALL PACK (RZ(IVEC1),SCR3,MCBA) CALL PACK (RZ(IVEC2),SCR4,MCBB) C 700 CONTINUE C CALL CLOSE (SCR5,REW) CALL CLOSE (SCR3,REW) CALL CLOSE (SCR4,REW) CALL WRTTRL (MCBA) CALL WRTTRL (MCBB) C C NORMAL RETURN C RETURN C C NO EXECLUDED MODES EXIST C 900 NOEXCL = .TRUE. RETURN C C ERRORS C 6000 CALL SMSG (RC-2,ITEM,RSS) GO TO 9200 6100 CALL SMSG (RC+4,ITEM,RSS) GO TO 9200 6200 CALL SMSG (7,ITEM,RSS) GO TO 9200 6372 WRITE (NOUT,6373) UWM,RSS GO TO 9200 9008 CALL MESAGE (8,0,NAME) 9200 WRITE (NOUT,6371) UWM,RSS NOEXCL = .TRUE. CALL CLOSE (SCR3,REW) CALL CLOSE (SCR4,REW) CALL CLOSE (SCR5,REW) RETURN C C FORMAT STATEMENTS C 6371 FORMAT (A25,' 6371, CALCULATIONS FOR EXCLUDED MODE ENERGIES FOR', 1 ' SUBSTRUCTURE ',2A4,' ABORTED.') 6373 FORMAT (A25,' 6372, THE PHIS AND LAMS ITEMS ARE INCONSISTANT FOR', 2 ' SUBSTRUCTURE ',2A4) END ================================================ FILE: mis/rcovim.f ================================================ SUBROUTINE RCOVIM (HIGHER) C C THIS SUBROUTINE CALCULATES THE ENERGIES ON THE MODAL COORDINATES C IN A SUBSTRUCTURE THAT WAS MODAL REDUCED. IT WILL ALSO C CALCULATE THE TOTAL ENERGY FOR EACH COLUMN. C INTEGER FSS ,RSS ,UA ,RFNO , 1 Z ,RC ,SOF1 ,SOF2 , 2 SOF3 ,BUF1 ,BUF2 ,BUF3 , 3 TFLAG ,SIGNAB ,SIGNC ,SCRM , 4 SCR5 ,SCR6 ,SCR7 ,SCR8 , 5 SCR9 ,NAME(2) ,BUF4 ,FILE , 6 RSP ,HIGHER(2) ,UVEC REAL RZ(1) COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /ZZZZZZ/ Z(1) COMMON /MPYADX/ MCBA(7) ,MCBB(7) ,MCBC(7) ,MCBD(7) , 1 MPYZ ,TFLAG ,SIGNAB ,SIGNC , 2 MPREC ,SCRM COMMON /UNPAKX/ ITINU ,IRU ,NRU ,INCRU COMMON /PACKX / ITINP ,ITOUTP ,IRP ,NRP , 1 INCRP COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQUARE , 3 RECT ,DIAG ,UPPER ,LOWER , 4 SYM EQUIVALENCE (Z(1),RZ(1)) DATA UVEC , KMTX,MMTX / 4HUVEC,4HKMTX,4HMMTX / DATA SCR5 , SCR6,SCR7,SCR8,SCR9 / 305,306,307,308,309 / DATA NAME / 4HRCOV,4HIM / C C INITIALIZE C LCOREZ = KORSZ(Z) MPYZ = LCOREZ TFLAG = 0 SIGNAB = 1 SIGNC = 1 MPREC = 0 C C GET THE DISPLACEMENT VECTOR FOR THE HIGHER LEVEL REDUCED C SUBSTRUCTURE. C ITEM = UVEC CALL MTRXI (SCR5,HIGHER,UVEC,0,RC) IF (RC .NE. 1) GO TO 6000 C C CALCULATE VELOCITIES IF NOT ALREADY DONE FOR THE OUTPUT PHASE. C INTYP = 1 IF (RFNO.EQ.3 .OR. RFNO.EQ.8) INTYP = 0 CALL RCOVVA (SCR5,INTYP,0,SCR8,SCR9,0,HIGHER,Z(1),Z(1),Z(1)) IF (UA .LE. 0) GO TO 9200 C C CALCULATE THE KENETIC ENERTY MULTIPLIER - M * V C ITEM = MMTX CALL MTRXI (SCR5,HIGHER,MMTX,0,RC) IF (RC .NE. 1) GO TO 6000 MCBA(1) = SCR5 CALL RDTRL (MCBA) MCBB(1) = SCR9 CALL RDTRL (MCBB) NCOL = MCBB(2) MCBC(1) = 0 CALL MAKMCB (MCBD,SCR7,MCBB(3),RECT,MCBB(5)) SCRM = SCR6 CALL SOFCLS CALL MPYAD (Z(1),Z(1),Z(1)) CALL WRTTRL (MCBD) C C CALCULATE THE KENETIC ENERGIES BY PERFORMING THE SCALAR C MULTIPLY IN SINGLE PERCISION. USE ONLY THE REAL PART IF COMPLEX C VECTORS. APPEND THE TOTAL KINETIC ENERGY TO THE END OF EACH C COLUMN. C ITINU = RSP IRU = 1 NRU = MCBD(3) INCRU = 1 ITINP = RSP ITOUTP= RSP IRP = 1 NRP = NRU + 1 INCRP = 1 IVEC1 = 1 IVEC2 = IVEC1 + NRU + 1 IF (IVEC2+NRU+1 .GT. SOF3) GO TO 9008 C FILE = SCR9 CALL GOPEN (SCR7,Z(SOF1),RDREW) CALL GOPEN (SCR9,Z(SOF2),RDREW) CALL GOPEN (SCR6,Z(SOF3),WRTREW) CALL MAKMCB (MCBA,SCR6,NRP,RECT,RSP) C DO 160 I = 1,NCOL ISK = 1 CALL UNPACK (*130,SCR7,RZ(IVEC1)) ISK = 0 CALL UNPACK (*130,SCR9,RZ(IVEC2)) C TOTAL = 0.0 DO 120 J = 1,NRU K = J - 1 RZ(IVEC1+K) = RZ(IVEC1+K)*RZ(IVEC2+K) TOTAL = TOTAL + RZ(IVEC1+K) 120 CONTINUE RZ(IVEC1+NRU) = TOTAL GO TO 150 C 130 DO 140 J = 1,NRP 140 RZ(IVEC1+J-1) = 0.0 IF (ISK .NE. 0)CALL FWDREC (*9002,SCR9) C 150 CALL PACK (RZ(IVEC1),SCR6,MCBA) C 160 CONTINUE C CALL CLOSE (SCR7,REW) CALL CLOSE (SCR9,REW) CALL CLOSE (SCR6,REW) CALL WRTTRL (MCBA) CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) C C CALCULATE THE POTENTIAL ENERTY MULTPLYIER - K*U C ITEM = KMTX CALL MTRXI (SCR5,HIGHER,KMTX,0,RC) IF (RC .NE. 1) GO TO 6000 MCBA(1) = SCR5 CALL RDTRL (MCBA) MCBB(1) = SCR8 CALL RDTRL (MCBB) CALL MAKMCB (MCBD,SCR9,MCBB(3),RECT,MCBB(5)) SCRM = SCR7 CALL SOFCLS CALL MPYAD (Z(1),Z(1),Z(1)) CALL WRTTRL (MCBD) C C CALCULATE THE POTENTIAL ENERGIES BY PERFORMING THE SCALAR C MULTIPLY IN SINGLE PERCISION. USE ONLY THE REAL PART IF COMPLEX C VECTORS. APPEND THE TOTAL POTENTIAL ENERGY TO THE END OF EACH C COLUMN. C ITINU = RSP IRU = 1 NRU = MCBD(3) INCRU = 1 ITINP = RSP ITOUTP= RSP IRP = 1 NRP = NRU + 1 INCRP = 1 C FILE = SCR8 CALL GOPEN (SCR9,Z(SOF1),RDREW) CALL GOPEN (SCR8,Z(SOF2),RDREW) CALL GOPEN (SCR7,Z(SOF3),WRTREW) CALL MAKMCB (MCBA,SCR7,NRP,RECT,RSP) C DO 260 I = 1,NCOL ISK = 1 CALL UNPACK (*230,SCR9,RZ(IVEC1)) ISK = 0 CALL UNPACK (*230,SCR8,RZ(IVEC2)) TOTAL = 0.0 DO 220 J = 1,NRU K = J - 1 RZ(IVEC1+K) = RZ(IVEC1+K)*RZ(IVEC2+K) TOTAL = TOTAL + RZ(IVEC1+K) 220 CONTINUE RZ(IVEC1+NRU) = TOTAL GO TO 250 C 230 DO 240 J = 1,NRP 240 RZ(IVEC1+J-1) = 0.0 IF (ISK .NE. 0)CALL FWDREC (*9002,SCR8) C 250 CALL PACK (RZ(IVEC1),SCR7,MCBA) C 260 CONTINUE C CALL CLOSE (SCR9,REW) CALL CLOSE (SCR8,REW) CALL CLOSE (SCR7,REW) CALL WRTTRL (MCBA) C C NORMAL RETURN C CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) RETURN C C ERRORS C 6000 CALL SMSG (RC-2,ITEM,HIGHER) GO TO 9200 9002 N = 2 GO TO 9100 9008 N = 8 9100 CALL MESAGE (N,FILE,NAME) 9200 IOPT = -1 RETURN END ================================================ FILE: mis/rcovls.f ================================================ SUBROUTINE RCOVLS (LASTSS) C C THIS ROUTINE CREATES THE SOLN ITEM FOR A LOWER LEVEL SUBSTRUCTURE, C LASTSS, BY EDITING THAT OF THE SOLUTION SUBSTRUCTURE FSS. C INTEGER DRY ,STEP ,FSS ,RFNO , 1 UINMS ,UA ,LASTSS(2) ,EQSS , 2 RC ,SOLN ,SRD ,SWRT , 3 IZ(3) ,EOI ,EOG ,NAME(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1)) DATA NAME / 4HRCOV, 4HLS / DATA EQSS , SOLN / 4HEQSS,4HSOLN / DATA SRD , SWRT / 1,2 / DATA EOG , EOI / 2,3 / C C CREATE SOLN ITEM FOR THE RECOVERED SUBSTRUCTURE C IF (RFNO .EQ. 3) GO TO 490 C C OBTAIN LIST OF CONTRIBUTING BASIC SUBSTRUCTURES FROM EQSS. C STORE IN OPEN CORE AT ICORE. C CALL SFETCH (LASTSS,EQSS,SRD,RC) CALL SUREAD (Z(ICORE),4,NWDS,RC) NSS = IZ(ICORE+2) IF (LCORE .LE. ICORE+2*NSS-1) GO TO 9008 CALL SUREAD (Z(ICORE),2*NSS,NWDS,RC) C C CONSTRUCT SOLN GROUP 0 IN OPEN CORE AT IG0. TWO SLOTS FOR THE C NUMBER OF LOADS ON EACH SUBSTRUCTURE. FIRST IS FOR OLD FSS C SOLN, SECOND FOR NEW ONE. C IG0 = ICORE + 2*NSS CALL SFETCH (FSS,SOLN,SRD,RC) IF (RC .EQ. 1) GO TO 462 CALL SMSG (RC-2,SOLN,FSS) GO TO 498 462 CALL SUREAD (Z(IG0),5,NWDS,RC) ISOL = IZ(IG0+2) IF (ISOL .NE. RFNO) GO TO 6369 NS = IZ(IG0+3) NC = IZ(IG0+4) IF (IG0+4+4*NS .GT. LCORE) GO TO 9008 DO 465 I = 1,NS CALL SUREAD (Z(IG0+1+4*I),3,NWDS,RC) IZ(IG0+4*I+4) = -65535 DO 463 J = 1,NSS IF (IZ(IG0+4*I+1) .NE. IZ(ICORE+2*J-2)) GO TO 463 IF (IZ(IG0+4*I+2) .NE. IZ(ICORE+2*J-1)) GO TO 463 IZ(IG0+4*I+4) = IZ(IG0+4*I+3) GO TO 465 463 CONTINUE 465 CONTINUE IF (RFNO.EQ.8 .OR. RFNO.EQ.9) GO TO 600 I = 1 CALL SJUMP (I) C C STATICS SOLUTION ITEM C C READ ALL GROUPS OF THE OLD FSS SOLN INTO OPEN CORE AT IGS. C AS EACH ONE IS READ, ELIMINATE LOAD VECTORS WHICH DO NOT C APPLY TO THE NEW SOLN BY SETTING THEIR LOAD VECTOR C NUMBERS TO -65535. C UPDATE THE NUMBER OF LOAD VECTORS WHICH DO APPLY. C IGS = IG0 + 4*NS + 5 JGS = IGS DO 478 I = 1,NC CALL SUREAD (Z(JGS),1,NWDS,RC) N = IABS(IZ(JGS)) IF (JGS+N*2 .GT. LCORE) GO TO 9008 CALL SUREAD (Z(JGS+1),-1,NWDS,RC) NL = 0 IF (N .EQ. 0) GO TO 477 DO 475 J = 1,N LVN = IZ(JGS+2*J-1) C C FIND SUBSTRUCTURE WHERE LVN IS APPLIED FOR FSS SOLN ITEM. C L1 = 0 L2 = 0 DO 470 K = 1,NS IF (LVN .GT. L2+IZ(IG0+4*K+3)) GO TO 468 IF (IZ(IG0+4*K+4) .LT. 0) GO TO 471 LVN = LVN - L1 NL = NL + 1 GO TO 472 468 IF (IZ(IG0+4*K+4) .LT. 0) L1 = L1 + IZ(IG0+4*K+3) L2 = L2 + IZ(IG0+4*K+3) 470 CONTINUE 471 LVN = -65535 472 IZ(JGS+2*J-1) = LVN 475 CONTINUE IF (IZ(JGS) .LT. 0) NL = -NL IZ(JGS) = NL 477 JGS = JGS + 2*N + 1 478 CONTINUE C C WRITE THE NEW SOLN FOR THE RECOVERED SUBSTRUCTURE ON THE SOF. C IN CASE USER FORGOT TO EDIT OUT THIS SOLN FROM A PREVIOUS C RUN, DELETE IT TO AVOID LOSING OR SCREWING UP THE RECOVERED C DISPLACEMENTS. C CALL DELETE (LASTSS,SOLN,RC) IZ(IG0+3) = NSS RC = 3 CALL SFETCH (LASTSS,SOLN,SWRT,RC) CALL SUWRT (Z(IG0),5,1) DO 480 I = 1,NS IF (IZ(IG0+4*I+4) .LT. 0) GO TO 480 CALL SUWRT (Z(IG0+4*I+1),2,1) CALL SUWRT (Z(IG0+4*I+4),1,1) 480 CONTINUE CALL SUWRT (0,0,EOG) JGS = IGS DO 488 I = 1,NC K = 0 NL = IZ(JGS) JGS= JGS + 1 CALL SUWRT (NL,1,1) IF (NL .EQ. 0) GO TO 485 NL = IABS(NL) 482 IF (IZ(JGS) .EQ. -65535) GO TO 484 CALL SUWRT (IZ(JGS),2,1) K = K + 1 484 JGS = JGS + 2 IF (K .LT. NL) GO TO 482 485 IF (IZ(JGS) .NE. -65535) GO TO 486 JGS = JGS + 2 GO TO 485 486 CALL SUWRT (0,0,EOG) 488 CONTINUE CALL SUWRT (0,0,EOI) GO TO 498 C C MODAL SOLUTION ITEM C C FOR MODAL COPY THE SOLN UNCHANGED. IN CASE THE USER FORGOT C TO EDIT OUT THIS SOLN FROM A PREVIOUS RUN, DELETE IT TO AVOID C LOSING OR SCREWING UP THE RECOVERED DISPLACEMENTS. C 490 CALL DELETE (LASTSS,SOLN,RC) CALL SFETCH (FSS,SOLN,SRD,RC) CALL SUREAD (IZ(ICORE),-1,NWDS,RC) ISOL = IZ(ICORE+2) IF (ISOL .NE. RFNO) GO TO 6369 IF (IZ(ICORE+3) .GT. 0) GO TO 492 RC = 3 CALL SFETCH (LASTSS,SOLN,SWRT,RC) CALL SUWRT (Z(ICORE),4,EOG) CALL SUWRT (0,0,EOI) GO TO 498 492 IF (LCORE .LT. ICORE+7*IZ(ICORE+3)+3) GO TO 9008 CALL SUREAD (IZ(ICORE+4),-1,NWDS,RC) RC = 3 CALL SFETCH (LASTSS,SOLN,SWRT,RC) CALL SUWRT (Z(ICORE),4,EOG) CALL SUWRT (Z(ICORE+4),7*IZ(ICORE+3),EOG) CALL SUWRT (0,0,EOI) GO TO 498 C C DYNAMIC SOLUTION ITEM C C READ IN STATIC LOAD SETS C 600 INCR = 1 IF (RFNO .EQ. 8) INCR = 2 IGS = IG0 + 4*NS + 5 CALL SUREAD (Z(IGS),1,NWDS,RC) NSL = IZ(IGS) LSL = NSL*INCR NSLL= 0 IF (NSL .EQ. 0) GO TO 660 IF (IGS+NSL .GT. LCORE) GO TO 9008 CALL SUREAD (Z(IGS+1),NSL,NWDS,RC) C C FLAG THOSE STATIC LOAD IDS THAT ARE NOT IN THE LOWER LEVEL C SUBSTRUCTURE AND RENUMBER THOSE THAT ARE LEFT C DO 650 J = 1,NSL LVN = IZ(IGS+J) L1 = 0 L2 = 0 DO 620 K = 1,NS IF (LVN .GT. L2+IZ(IG0+4*K+3)) GO TO 610 IF (IZ(IG0+4*K+4) .LT. 0) GO TO 630 LVN = LVN - L1 NSLL = NSLL + 1 GO TO 640 610 IF (IZ(IG0+4*K+4) .LT. 0) L1 = L1 + IZ(IG0+4*K+3) L2 = L2 + IZ(IG0+4*K+3) 620 CONTINUE 630 LVN = -65535 640 IZ(IGS+J) = LVN 650 CONTINUE C C COPY THE FREQUENCY OR TIME STEP RECORD INTO CORE C 660 I = 1 CALL SJUMP (I) ISTEP = IGS + NSL + 1 IF (ISTEP+NC .GT. LCORE) GO TO 9008 CALL SUREAD (IZ(ISTEP),-1,NWDS,RC) C C COPY IN ALL LOAD FACTOR DATA C IF (NSLL .EQ. 0) GO TO 675 JGS = ISTEP + NC DO 670 I = 1,NC IF (JGS+LSL .GT. LCORE) GO TO 9008 CALL SUREAD (Z(JGS),-1,NWDS,RC) 670 JGS = JGS + LSL C C WRITE THE NEW SOLN ITEM FOR THE RECOVERED SUBSTRUCTURE. IN CASE C THE USER FORGOT TO EDIT OUT THIS SOLN FROM A PREVIOUS RUN, C DELETE IT TO AVOID LOSING OR SCREWING UP THE RECOVERED C DISPLACEMENTS C 675 CALL DELETE (LASTSS,SOLN,RC) RC = 3 CALL SFETCH (LASTSS,SOLN,SWRT,RC) IZ(IG0+3) = NSS CALL SUWRT (Z(IG0),5,1) DO 680 I = 1,NS IF (IZ(IG0+4*I+4) .LT. 0) GO TO 680 CALL SUWRT (Z(IG0+4*I+1),2,1) CALL SUWRT (Z(IG0+4*I+4),1,1) 680 CONTINUE CALL SUWRT (NSLL,1,1) IF (NSLL .EQ. 0) GO TO 700 DO 690 I = 1,NSL IF (Z(IGS+I) .LT. 0) GO TO 690 CALL SUWRT (Z(IGS+I),1,1) 690 CONTINUE 700 CALL SUWRT (0,0,EOG) C C COPY THE TIME OR FREQUENCY STEP INFO TO SOF. C CALL SUWRT (Z(ISTEP),NC,EOG) C C COPY LOAD FACTORS FOR EACH STEP TO SOF EDITING OUT THOSE C THAT NO LONGER PARTICIAPTE C IF (NSLL .EQ. 0) GO TO 730 KGS = ISTEP + NC DO 720 I = 1,NC K = 1 DO 710 J = 1,NSL IF (Z(IGS+J) .LT. 0) GO TO 710 CALL SUWRT (Z(KGS+K-1),INCR,1) K = K + INCR 710 CONTINUE CALL SUWRT (0,0,EOG) KGS = KGS + LSL 720 CONTINUE C 730 CALL SUWRT (0,0,EOI) GO TO 498 C C NORMAL RETURN C 498 RETURN C C ERROR PROCESSING C 6369 WRITE (NOUT,63690) UFM,ISOL,RFNO GO TO 9100 9008 N = 8 CALL MESAGE (N,0,NAME) 9100 IOPT = -1 CALL SOFCLS RETURN C 63690 FORMAT (A23,' 6369. SOLN ITEM HAS INCORRECT RIGID FORMAT NUMBER', 1 /31X,'SOLUTION RIGID FORMAT WAS',I5, 2 ' AND CURRENT NASTRAN EXECUTION RIGID FORMAT IS',I5) END ================================================ FILE: mis/rcovms.f ================================================ SUBROUTINE RCOVMS C C THIS ROUTINE GENERATES THE MODAL SOLUTION ITEM FOR RIGID FORMAT 3 C LOGICAL MRECVR INTEGER DRY ,STEP ,FSS ,RFNO , 1 SOLN ,RC ,SWRT ,SRD , 2 EOG ,EOI ,BUF1 ,Z , 3 RD ,RDREW ,WRT ,WRTREW , 4 REW ,NAME(2) ,FILE ,SOF3 COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW COMMON /ZZZZZZ/ Z(1) DATA LAMS , SOLN / 4HLAMS,4HSOLN / DATA SRD , SWRT,EOG,EOI / 1,2,2,3 / DATA LAMA / 102 /, I7 / 7 / DATA NAME / 4HRCOV, 4HMS / C C C CREATE SOLN FOR RIGID FORMAT 3 C IF (MRECVR) GO TO 500 C C WRITE GROUP 0 C RC = 3 CALL SFETCH (FSS,SOLN,SWRT,RC) CALL SUWRT (FSS,2,1) CALL SUWRT (RFNO,1,1) CALL SUWRT (NEIGV,1,EOG) C C IF NO EIGENVALUES, GO HOME C IF (NEIGV .LE. 0) GO TO 430 C C COPY RECORD 2 OF LAMA OR CLAMA TO GROUP 1 OF SOLN C FILE = LAMA CALL OPEN (*9001,LAMA,Z(BUF1),RDREW) CALL FWDREC (*9002,LAMA) CALL FREAD (LAMA,ITYPE,1,1) NW = 7 IF (ITYPE .EQ. 90) NW = 6 Z(I7) = 0 I = 1 410 CALL READ (*9002,*420,LAMA,Z(1),NW,0,NWDS) CALL SUWRT (Z,7,I) GO TO 410 420 CALL SUWRT (0,0,EOG) CALL CLOSE (LAMA,REW) C C FINISH C 430 CALL SUWRT (0,0,EOI) RETURN C C FOR MODAL RECOVER COPY THE LAMS ITEM TO SOLN C 500 CALL SFETCH (FSS,LAMS,SRD,RC) IF (RC .NE. 1) GO TO 6000 CALL SUREAD (Z(1),-2,N,RC) IF (N .GT. SOF3) GO TO 9008 CALL SFETCH (FSS,SOLN,SWRT,RC) CALL SUWRT (Z(1),N,EOI) RETURN C C ERROR RETURNS C 6000 CALL SMSG (RC-2,LAMS,FSS) GO TO 9200 9001 N = 1 GO TO 9100 9002 N = 2 GO TO 9100 9008 N = 8 GO TO 9100 9100 CALL MESAGE (N,FILE,NAME) 9200 CALL SOFCLS IOPT = -1 CALL CLOSE (LAMA,REW) RETURN END ================================================ FILE: mis/rcovo.f ================================================ SUBROUTINE RCOVO C C RCOVO READS THE CASESS RECOVER RECORD AND PROCESSES ANY C OUTPUT REQUESTS FOR THE CURRENT SAVE OR PRINT REQUEST C C THE OUTPUT REQUESTS ARE STORED AT THE BOTTOM OF OPEN CORE IN C A TABLE WITH THE FOLLOWING FORM C C BUF(IREQ) - UVEC -I C PVEC I- NONZERO IF ANY REQUEST PRESENT C QVEC -I C NO. OF POINTS C NO. OF BASICS C BASIC NAME(2) -I C DISP SET I C OLOAD SET I C SPCF SET I - REPEATED FOR EACH BASIC C SUBCASES SET I SUBSTRUCTURE C MODES SET I C RANGE(2) I C VELO SET I C ACCE SET I C STEPS SET I C GRID OR MODAL -I C EXTERNAL LSHIFT ,ANDF LOGICAL BASIC ,MRECVR INTEGER RSS ,BUF(1) ,STEP ,CASESS , 1 EQSS ,Z ,BUF1 ,SYSBUF , 2 SOF1 ,SOF2 ,SOF3 ,RECOVR , 3 SAVE ,PRINT ,SRD ,FSS(2) , 4 RD ,SUBNAM(2) ,RDREW ,WRT , 5 WRTREW ,REW ,NOREW ,RC , 6 REC(3) ,SUBC ,SUBS ,MODE , 7 ALL ,NONE ,COMDS(13) ,ENERGY , 8 UIMPRO ,RFNO ,TIME ,FREQ , 9 ANDF ,MRECOV REAL RBUF(1) ,RREC(3) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 , 1 SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM , 1 SWM COMMON /BLANK / DRY ,LOOP ,STEP ,FSS , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANG(2) ,IREQ ,LREQ ,LBASIC COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW EQUIVALENCE (BUF(1) ,Z(1)) EQUIVALENCE (BUF(1) ,RBUF(1)) ,(REC(1) ,RREC(1)) , 1 (ISET ,RSET) DATA CASESS / 101 /, SUBNAM / 4HRCOV,4HO / DATA EQSS / 4HEQSS/ DATA RECOVR / 4HRECO/, MRECOV / 4HMREC / DATA PRINT / 4HPRIN/, SAVE / 4HSAVE / DATA SRD / 1 / DATA LL / 2 / DATA NCOMDS / 13 / DATA COMDS / 4HDISP,4HOLOA,4HSPCF,4HMODE,4HRANG,4HSUBC,4HSORT, 1 4HBASI,4HVELO,4HACCE,4HENER,4HUIMP,4HSTEP / DATA SUBC , SUBS, MODE, ALL, NONE, TIME, FREQ / 1 4HSUBC , 4HSUBS, 4HMODE, 4HALL , 4HNONE, 4HTIME, 4HFREQ / C C SET UP BUFFERS C SOF1 = 1 SOF2 = SOF1 + SYSBUF SOF3 = SOF2 + SYSBUF + 1 BUF1 = SOF3 + SYSBUF ICORE = BUF1 + SYSBUF LCORE = KORSZ(Z(1)) - ICORE + 1 IF (LCORE .LE. 0) GO TO 9008 C C FIND RECOVER RECORD IN CASESS C CALL GOPEN (CASESS,Z(BUF1),RDREW) IF (STEP .EQ. 1) GO TO 20 DO 10 I = 2,STEP 10 CALL FWDREC (*9002,CASESS) 20 CALL FREAD (CASESS,REC,2,0) IF (REC(1).NE.RECOVR .AND. REC(1).NE.MRECOV) GO TO 6305 MRECVR = .FALSE. IF (REC(1) .EQ. MRECOV) MRECVR = .TRUE. C C GET PRINT OR SAVE OPTION FOR THIS PASS C I = 0 30 CALL READ (*9002,*600,CASESS,REC,3,0,NWDS) IF (REC(1).NE.PRINT .AND. REC(1).NE.SAVE) GO TO 30 IF (LOOP .EQ. I) GO TO 40 I = I + 1 GO TO 30 C C GET NAME OF SUBSTRUCTURE TO BE OPERATED ON C 40 RSS(1) = REC(2) RSS(2) = REC(3) LOOP = LOOP + 1 IF (REC(1) .EQ. SAVE) GO TO 700 IOPT = 1 C C OPEN SOF AND FETCH EQSS FOR SUBSTRUCTURE TO BE PRINTED C C CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) CALL SFETCH (RSS,EQSS,SRD,RC) GO TO (60,50,50,6306,50), RC C C FETCH ON EQSS WAS UNSUCCESSFUL C 50 IF (RC .EQ. 2) RC = 3 CALL SMSG (RC-2,EQSS,RSS) GO TO 800 C C READ GROUP 0 OF EQSS INTO CORE C 60 CALL SUREAD (Z(ICORE),LCORE,NWDS,RC) GO TO (9008,65,62,800), RC 62 CALL SMSG (7,EQSS,RSS) GO TO 800 C C DETERMINE SIZE OF OUTPUT REQUEST BLOCK AND ALLOCATE SPACE C AT BOTTOM OF OPEN CORE C 65 NBS = Z(ICORE+2) NP = Z(ICORE+3) LBASIC = 13 LREQ = 5 + LBASIC*NBS + 2 IF (LREQ .GT. LCORE-NWDS) GO TO 9008 NREQ = KORSZ (BUF(1)) IREQ = NREQ - LREQ + 1 DO 70 I = IREQ,NREQ 70 BUF(I) = 0 C C MOVE NAMES OF BASICS INTO OUTPUT AREA C BUF(IREQ+3) = NP BUF(IREQ+4) = NBS DO 80 I = 1,NBS I1 = IREQ + (I-1)*LBASIC + 5 I2 = ICORE + (I-1)*2+4 BUF(I1 ) = Z(I2 ) 80 BUF(I1+1) = Z(I2+1) C C INSERT DEFAULTS INTO OUTPUT BLOCK C C MODES = ALL C SUBCASES = ALL C RANGE = -1.0E+35,1.0E+35 C STEPS = ALL C ENERGY = 0 UIMPRO = 0 RANG(1) = -1.0E+35 RANG(2) = 1.0E+35 BUF(IREQ ) = -2 BUF(IREQ+1) = -2 BUF(IREQ+2) = -2 DO 85 I = 1,NBS I1 = IREQ + (I-1)*LBASIC + 5 BUF(I1+ 2) = -2 BUF(I1+ 3) = -2 BUF(I1+ 4) = -2 BUF(I1+ 5) = -1 BUF(I1+ 6) = -1 RBUF(I1+7) = -1.0E+35 RBUF(I1+8) = 1.0E+35 BUF(I1+ 9) = -2 BUF(I1+10) = -2 85 BUF(I1+11) = -1 C C READ NEXT COMMAND AND PROCESS OUTPUT REQUEST C NSS1 = 1 NSS2 = NBS IRANGE = 0 BASIC = .FALSE. 90 CALL READ (*9002,*500,CASESS,REC,3,0,NWDS) IF (REC(1).EQ.PRINT .OR. REC(1).EQ.SAVE) GO TO 510 DO 100 I = 1,NCOMDS IF (REC(1) .EQ. COMDS(I)) GO TO 110 100 CONTINUE GO TO 90 110 CONTINUE GO TO (120,130,140,150,160,165,170,190,230,240,250,260,270), I C C DISP REQUEST C 120 IF (REC(2) .NE. NONE) BUF(IREQ) = 1 ILOC = 2 GO TO 400 C C OLOAD REQUEST C 130 IF (REC(2) .NE. NONE) BUF(IREQ+1) = 1 IF (REC(2).EQ.NONE .AND. .NOT.BASIC) BUF(IREQ+1) = 0 ILOC = 3 GO TO 400 C C SPCF REQUEST C 140 IF (REC(2) .NE. NONE) BUF(IREQ+2) = 1 IF (REC(2).EQ.NONE .AND. .NOT.BASIC) BUF(IREQ+2) = 0 ILOC = 4 GO TO 400 C C MODES REQUEST C 150 ILOC = 6 GO TO 400 C C RANGE REQUEST (IF BEFORE A BASIC COMMAND SAVE IT FOR ENERGY C PROCESSING ALSO) C 160 ILOC = 7 IF (MOD(IRANGE,2) .EQ. 1) ILOC = 8 IRANGE = IRANGE + 1 IF (REC(2).NE.-2 .AND. REC(3).NE.0) GO TO 450 IF (BASIC) GO TO 410 RANG(ILOC-6) = RREC(3) GO TO 410 C C SUBCASES REQUEST C 165 ILOC = 5 GO TO 400 C C SORT COMMAND - IGNORE COMMAND IF AFTER A BASIC DESIGNATOR C 170 IF (BASIC) GO TO 180 I = 0 IF (REC(2) .EQ. SUBC) I = 1 IF (REC(2) .EQ. SUBS) I = 2 IF (REC(2) .EQ. MODE) I = 1 IF (REC(2) .EQ. TIME) I = 1 IF (REC(2) .EQ. FREQ) I = 1 IF (I .EQ. 0) GO TO 450 IOPT = I GO TO 90 180 WRITE (NOUT,63660) UWM GO TO 90 C C BASIC COMMAND - VERIFY SUBSTRUCTURE NAME C 190 DO 200 I = 1,NBS I1 = IREQ + (I-1)*LBASIC + 5 IF (BUF(I1).EQ.REC(2) .AND. BUF(I1+1).EQ.REC(3)) GO TO 210 200 CONTINUE GO TO 220 210 NSS1 = I NSS2 = I BASIC = .TRUE. GO TO 90 C C NAME NOT A BASIC - SKIP TO NEXT BASIC, PRINT OR SAVE COMMAND C 220 WRITE (NOUT,63680) UWM,REC(2),REC(3),RSS 225 CALL READ (*9002,*500,CASESS,REC,3,0,NWDS) IF (REC(1).EQ.PRINT .OR. REC(1).EQ.SAVE) GO TO 510 IF (REC(1) .EQ. COMDS(8)) GO TO 190 GO TO 225 C C VELOCITY REQUEST C 230 IF (RFNO.NE.8 .AND. RFNO.NE.9) GO TO 90 IF (REC(2) .NE. NONE) BUF(IREQ) = 1 ILOC = 9 GO TO 400 C C ACCELERATION REQUEST C 240 IF (RFNO.NE.8 .AND. RFNO.NE.9) GO TO 90 IF (REC(2) .NE. NONE) BUF(IREQ) = 1 ILOC = 10 GO TO 400 C C ENERGY REQUEST C 250 ILOC = -1 GO TO 400 C C UIMPROVED REQUEST C 260 UIMPRO = 1 GO TO 90 C C STEPS REQUEST C 270 ILOC = 11 GO TO 400 C C CHECK VALIDITY OF SET REQUEST C 400 IF (REC(2) .EQ. -2) GO TO 450 410 ISET = 1 IF (REC(2) .EQ. ALL) ISET = -1 IF (REC(2) .EQ. NONE) ISET = 0 IF (ISET .LE. 0) GO TO 430 IF (REC(2) .EQ. -2) GO TO 420 IF (REC(2) .NE. -1) GO TO 450 C C INTEGER VALUE C ISET = REC(3) GO TO 430 C C REAL VALUE C 420 RSET = RREC(3) C C LOOP OVER APPROPRIATE BASIC AREA AND INSERT REQUEST C 430 IF (ILOC .LT. 0) GO TO 445 DO 440 I = NSS1,NSS2 I1 = IREQ + (I-1)*LBASIC + 5 + ILOC BUF(I1) = ISET 440 CONTINUE GO TO 90 C 445 ENERGY = ISET GO TO 90 C C ILLEGAL COMMAND FORMAT C 450 WRITE (NOUT,63670) UWM,REC(1) GO TO 90 C C C END OF RECORD READING CASESS - THIS IS THEREFORE THE LAST C SAVE OR PRINT COMMAND C 500 LOOP = -1 C C END OF PROCESSING FO THIS PRINT COMMAND C 510 CALL CLOSE (CASESS,REW) C C DETERMINE IF EACH BASIC IS REALLY A BASIC. IF NOT THEN THESE C WILL BE MODAL POINTS C C BASIC POINT TYPE = 1 C MODAL POINT TYPE = 4 C MASKLL = LSHIFT(1023,20) DO 550 I = 1,NBS I1 = IREQ + (I-1)*LBASIC + 5 BUF(I1+12) = 1 CALL FDSUB (BUF(I1),IDIT) IF (IDIT .LT. 0) GO TO 550 CALL FMDI (IDIT,IMDI) IF (ANDF(BUF(IMDI+LL),MASKLL) .NE. 0) BUF(I1+12) = 4 550 CONTINUE CALL SOFCLS RETURN C C C NO PRINT OR SAVE COMMAND SPECIFIED - GENERATE A SAVE ON C THE SOLUTION SUBSTRUCTURE C 600 RSS(1) = FSS(1) RSS(2) = FSS(2) LOOP = -1 GO TO 720 C C THIS LOOP IS A SAVE COMMAND - SEE IF ANY OTHER COMMANDS FOLLOW C 700 CALL READ (*9002,*710,CASESS,REC,3,0,NWDS) IF (REC(1).EQ.PRINT .OR. REC(1).EQ.SAVE) GO TO 720 GO TO 700 710 LOOP = -1 C C NO OUTPUT BLOCK IS REQUIRED FOR A SAVE COMMAND C 720 CALL CLOSE (CASESS,REW) IREQ = 0 LREQ = 0 IOPT = 0 ENERGY = 0 UIMPRO = 0 RETURN C C ERROR RETURNS C 800 CALL SOFCLS IOPT = -1 LOOP = -1 CALL CLOSE (CASESS,REW) RETURN C 6305 WRITE (NOUT,63050) SWM,STEP,REC(1) GO TO 800 6306 WRITE (NOUT,63060) UWM,RSS GO TO 800 9002 N = -2 GO TO 9100 9008 N = -8 GO TO 9100 9100 CALL SOFCLS CALL MESAGE (N,CASESS,SUBNAM) RETURN C C FORMATS C 63050 FORMAT (A27,' 6305, RECORD NUMBER',I5,' IS NOT A RECOVER RECORD.', 1 ' IT IS A ', A4,' RECORD.') 63060 FORMAT (A25,' 6306, ATTEMPT TO RECOVER DISPLACEMENTS FOR NON-', 1 'EXISTANT SUBSTRUCTURE ',2A4) 63660 FORMAT (A25,' 6366, THE RECOVER OUTPUT COMMAND SORT MUST APPEAR ', 1 'BEFORE THE FIRST BASIC SUBCOMMAND.', /32X, * 'ANY OTHER SORT COMMANDS ARE IGNORED.') 63670 FORMAT (A25,' 6367, ILLEGAL FORMAT ON THE RECOVER OUTPUT COMMAND', 1 1X,A4,', COMMAND IGNORED.') 63680 FORMAT (A25,' 6368, THE SUBSTRUCTURE ',2A4,' APPEARING ON A ', 1 'BASIC COMMAND IS NOT A COMPONENT OF ',2A4, /32X, 2 'ALL OUTPUT REQUESTS UNTIL THE NEXT BASIC, PRINT OR SAVE ', 3 'COMMAND ARE IGNORED.') END ================================================ FILE: mis/rcovqv.f ================================================ SUBROUTINE RCOVQV C C THIS SUBROUTINE CALCULATES THE REACTION FORCES FOR THE REQUESTED C SUBSTRUCTURE C LOGICAL REQF ,REIGEN INTEGER FSS ,RFNO ,UA ,RSS , 1 RC ,TFLAG ,SIGNAB ,SIGNC , 2 PREC ,SCRM ,NAME(2) ,SCR1 , 3 SCR2 ,SCR4 ,SCR5 ,SCR6 , 4 SCR7 ,SCR8 ,MGG ,KGG , 5 BGG ,BUF1 ,BUF2 ,BUF3 , 6 BUF4 ,SOF1 ,SOF2 ,SOF3 , 7 BMTX ,QVEC ,MMTX ,KMTX , 8 SYSBUF ,PA ,QA C 9, UVEC ,SRD CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 , 1 SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM , 1 SWM COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /MPYADX/ MCBA(7) ,MCBB(7) ,MCBC(7) ,MCBD(7) , 1 MPYZ ,TFLAG ,SIGNAB ,SIGNC , 2 PREC ,SCRM COMMON /ZZZZZZ/ Z(1) DATA QVEC , KMTX, MMTX, BMTX, K4MX / 1 4HQVEC, 4HKMTX, 4HMMTX, 4HBMTX, 4HK4MX / C DATA UVEC , SRD / 4HUVEC, 1 / DATA KGG , MGG, BGG, K4GG, NAME / 1 103 , 104, 109, 110, 4HRCOV, 4HQV / DATA SCR1 , SCR2, SCR4, SCR5, SCR6, SCR7, SCR8 / 1 301 , 302, 304, 305, 306, 307, 308 / C C C CHECK TO SEE IF QVEC HAS ALREADY BEEN CALCULATED C CALL MTRXI (SCR4,RSS,QVEC,0,RC) IF (RC .NE. 1) GO TO 10 QA = SCR4 RETURN C C INITILIZE FOR QVEC CALCULATIONS C 10 PREC = 0 TFLAG = 0 SCRM = SCR5 SIGNAB= 1 MPYZ = KORSZ(Z(1)) - LREQ REQF = .FALSE. IF (FSS(1).EQ.RSS(1) .AND. FSS(2).EQ.RSS(2)) REQF = .TRUE. REIGEN = .FALSE. MALCOM = 0 IF (UA .NE. SCR1) GO TO 30 SCR2 = 301 SCR1 = 302 C C CHECK THE DISPLACEMENT MATRIX C 30 MCBB(1) = UA CALL RDTRL (MCBB) IF (MCBB(1) .LE. 0) GO TO 9200 C C BRANCH ON RIGID FORMAT C IF (RFNO .GT. 9) GO TO 9007 GO TO (100,100,200,9007,9007,9007,9007,400,400), RFNO C C STATIC SOUTION C C Q = KU - P C C SET UP LOAD VECTOR FOR SUBSTRACTION C 100 SIGNC = -1 MCBC(1) = PA IF (PA .GT. 0) CALL RDTRL (MCBC) GO TO 500 C C NORMAL MODES C C CHECK IF THE EIGEN VECTORS ARE COMPLEX C 200 IF (MCBB(5) .GE. 3) GO TO 300 C C REAL NORMAL MODES C C Q = KU + MA WHERE A = -(2*PI*FREQ)**2 * U C REIGEN = .TRUE. C C MALCOM TAGG OF MDC, IN MSFC, RECOMMANDED THAT FOR RIGID FORMAT 3 C THE SPC REACTION FORCE SHOULD NOT CONTAIN THE MASS TERM. JULY/86 C I.E. Q = KU ONLY (DROP THE MA TERM) C THUS, GO TO 250 THEN TO 500 C C MARCH 1989 - MALCOM RECOMMENDATION REMOVED. IT CAUSES IMBALANCED C SPC FORCES C C MALCOM = 1 IF (MALCOM .EQ. 1) GO TO 250 C C CALCULATE THE ACCLERATION VECTOR FOR REAL NORMAL MODES C IN = UA CALL RCOVVA (IN,0,0,0,0,SCR8,RSS,Z(1),Z(1),Z(1)) IF (IN .LE. 0) GO TO 9200 C C C INDICATE A POSITIVE SIGN ON THE M * A MULTIPLY C 250 SIGNAB = 1 MCBC(1) = 0 IF (MALCOM .EQ. 1) GO TO 500 GO TO 420 C C COMPLEX NORMAL MODES C C Q = KU + BV + MA C C CALCULATE THE COMPLEX VELOCITIES AND ACCLERATION VECTORS FOR C THE EIGENVECTORS C 300 IN = UA C C SEE MALCOM TAGG RECOMMENDATION, 25 LINES ABOVE C CALL SOFCLS IF (MALCOM .EQ. 1) GO TO 445 C CALL RCOVVA (IN,0,0,SCR6,SCR7,SCR8,RSS,Z(1),Z(1),Z(1)) IF (IN .LE. 0) GO TO 9200 C C INDICATE ZERO LOAD VECTOR FOR NORMAL MODES C MCBC(1) = 0 GO TO 420 C C DYNAMIC ANALYSIS C C Q = KU + BV + MA - P C C C SPLIT DISPLACEMENT, VELOCITIES AND ACCELERATIONS ONTO SEPERATE C FILES C 400 IN = UA CALL RCOVVA (IN,1,0,SCR6,SCR7,SCR8,RSS,Z(1),Z(1),Z(1)) IF (IN .LE. 0) GO TO 9200 C C SETUP TO SUBTRACT LOAD VECTOR C SIGNC = -1 MCBC(1) = PA IF (PA .GT. 0) CALL RDTRL (MCBC) C C COMMON PROCESSING FOR DYNAMICS AND NORMAL MODES C C C MULTIPLY AND ADD SCR1 = MA - P C 420 CONTINUE IF (.NOT.REQF) GO TO 430 MCBA(1) = MGG CALL RDTRL (MCBA) IF (MCBA(1) .GT. 0) GO TO 440 430 CALL MTRXI (SCR4,RSS,MMTX,0,RC) IF (RC .NE. 1) GO TO 460 MCBA(1) = SCR4 CALL RDTRL (MCBA) 440 MCBB(1) = SCR8 CALL RDTRL (MCBB) CALL MAKMCB (MCBD,SCR1,MCBB(3),MCBB(4),MCBB(5)) CALL SOFCLS C CALL MPYAD (Z(1),Z(1),Z(1)) C 445 DO 450 I = 1,7 450 MCBC(I) = MCBD(I) SIGNC = 1 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) C C MULTIPLY AND ADD SCR8 = K4V + MCBC C 460 IF (REIGEN .OR. RFNO.EQ.9) GO TO 464 IF (.NOT.REQF) GO TO 461 MCBA(1) = K4GG CALL RDTRL (MCBA) IF (MCBA(1) .GT. 0) GO TO 462 461 CALL MTRXI (SCR4,RSS,K4MX,0,RC) IF (RC .NE. 1) GO TO 464 MCBA(1) = SCR4 CALL RDTRL (MCBA) 462 MCBB(1) = SCR7 CALL RDTRL (MCBB) CALL MAKMCB (MCBD,SCR8,MCBB(3),MCBB(4),MCBB(5)) SIGNAB = 1 CALL SOFCLS C CALL MPYAD (Z(1),Z(1),Z(1)) C DO 463 I = 1,7 463 MCBC(I) = MCBD(I) SIGNC = 1 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) 464 CONTINUE IF (REIGEN) GO TO 500 C C MULTIPLY AND ADD SCR1 = BV + MCBC C IF (.NOT.REQF) GO TO 470 MCBA(1) = BGG CALL RDTRL (MCBA) IF (MCBA(1) .GT. 0) GO TO 480 470 CALL MTRXI (SCR4,RSS,BMTX,0,RC) IF (RC .NE. 1) GO TO 500 MCBA(1) = SCR4 CALL RDTRL (MCBA) 480 MCBB(1) = SCR7 CALL RDTRL (MCBB) CALL MAKMCB (MCBD,SCR1,MCBB(3),MCBB(4),MCBB(5)) SIGNAB = 1 CALL SOFCLS C CALL MPYAD (Z(1),Z(1),Z(1)) C DO 490 I = 1,7 490 MCBC(I) = MCBD(I) SIGNC = 1 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) C C COMMON PROCESSING FOR ALL RIGID FORMATS C C C MULTIPLY AND ADD Q = KU + MCBC C 500 IF (.NOT.REQF) GO TO 520 MCBA(1) = KGG CALL RDTRL (MCBA) IF (MCBA(1) .GT. 0) GO TO 540 520 ITEM = KMTX FILE = SCR7 CALL MTRXI (SCR7,RSS,KMTX,0,RC) IF (RC .NE. 1) GO TO 6000 MCBA(1) = SCR7 CALL RDTRL (MCBA) 540 MCBB(1) = SCR6 IF (REIGEN .OR. RFNO.LE.2) MCBB(1) = UA CALL RDTRL (MCBB) CALL MAKMCB (MCBD,SCR4,MCBB(3),MCBB(4),MCBB(5)) SIGNAB = 1 CALL SOFCLS C CALL MPYAD (Z(1),Z(1),Z(1)) C CALL WRTTRL (MCBD) CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) C C COPY REACTIONS TO SOF C CALL MTRXO (SCR4,RSS,QVEC,0,RC) QA = SCR4 C RETURN C C ERRORS C 6000 IF (RC .EQ. 6) GO TO 9100 CALL SMSG (RC-2,ITEM,RSS) GO TO 9200 9007 N = 7 9100 CALL MESAGE (N,0,NAME) 9200 QA = 0 WRITE (NOUT,6318) SWM 6318 FORMAT (A27,' 6318, OUTPUT REQUEST FOR REACTIONS FORCES IGNORED.') RETURN C END ================================================ FILE: mis/rcovr.f ================================================ SUBROUTINE RCOVR C C MAIN DRIVER FOR PHASE 2 SUBSTRUCTURING RECOVER OPERATION C C THIS MODULE WILL CALCULATE THE DISPLACEMENT AND REACTION MATRICES C FOR ANY OF THE SUBSTRUCTURES COMPOSING THE FINAL SOLUTION STRUC- C TURE. OUTPUT DATA MAY BE PLACED ON OFP PRINT FILES OR SAVED ON C THE SOF FOR SUBSEQUENT PROCESSING. C C DMAP CALLING SEQUENCES C C RIGID FORMATS 1 AND 2 (STATIC ANALYSIS) C C RCOVR CASESS,GEOM4,KGG,MGG,PG,UGV,,,,,/OUGV1,OPG1,OQG1,U1, C U2,U3,U4,U5/DRY/ILOOP/STEP/FSS/RFNO/0/LUI/U1NM/U2NM/ C U3NM/U4NM/U5NM/S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/ C V,Y,QTHRESH $ C C RIGID FORMAT 3 (MODAL ANALYSIS) C C RCOVR CASESS,LAMA,KGG,MGG,,PHIG,,,,,/OPHIG,,OQG1,U1,U2,U3, C U4,U5/DRY/ILOOP/STEP/FSS/RFNO/NEIGV/LUI/U1NM/U2NM/ C U3NM/U4NM/U5NM/S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/ C V,Y,QTHRESH $ C C RIGID FORMAT 8 (FREQUENCY ANALYSIS) C C RCOVR CASESS,GEOM4,KGG,MGG,PPF,UPVC,DIT,DLT,BGG,K4GG,PPF/ C OUGV1,OPG1,OQG1,U1,U2,U3,U4,U5/DRY/ILOOP/STEP/FSS/ C RFNO/0/LUI/U1NM/U2NM/U3NM/U4UN/U5NM/S,N,NOSORT2/ C V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $ C C RIGID FORMAT 9 (TRANSIENT ANALYSIS) C C RCOVR CASESS,GEOM4,KGG,MGG,PPT,UPV,DIT,DLT,BGG,K4GG,TOL/ C OUGV1,OPG1,OQG1,U1,U2,U3,U4,U5/DRY/ILOOP/STEP/FSS/ C RFNO/0/LUI/U1NM/U2NM/U3NM/U4UN/U5NM/S,N,NOSORT2/ C V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $ C C MRECOVER (ANY RIGID FORMAT) C C RCOVR ,,,,,,,,,,/OPHIG,,OQG1,U1,U2,U3,U4,U5/DRY/ILOOP/ C STEP/FSS/3/NEIGV/LUI/U1NM/U2NM/U3NM/U4NM/U5NM/ C S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $ C C MAJOR SUBROUTINES FOR RCOVR ARE - C C RCOVA - COMPUTES THE SOLN ITEM FOR THE FINAL SOLUTION STRUCTURE C RCOVB - PERFORMS BACK-SUBSTITUTION TO RECOVER DISPLACEMENTS OF C LOWER LEVEL SUBSTRUCTURES FROM THOSE OF THE FINAL SOLUTION C STRUCTURE C RCOVC - COMPUTES REACTION MATRICES AND WRITES OUTPUT DATA BLOCKS C FOR THE OFP C RCOVO - PROCESS CASESS FOR THE RCOVER COMMAND AND ANY OUTPUT C REQUESTS SPECIFIED C RCOVE - COMPUTES MODAL ENERGIES AND ERRORS FOR A MODAL REDUCED C SUBSTRUCTURE C C JUNE 1977 C INTEGER ENERGY COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC C NOSORT = -1 CALL RCOVO CALL RCOVA IF (IOPT .LT. 0) GO TO 10 CALL RCOVB IF (IOPT .LE. 0) GO TO 10 CALL RCOVC IF (ENERGY .NE. 0) CALL RCOVE 10 RETURN END ================================================ FILE: mis/rcovr3.f ================================================ SUBROUTINE RCOVR3 C C THE RCOVR3 MODULE RECOVERS DATA FOR SUBSTRUCTURE PHASE 3. C C DISPLACEMENTS AND REACTIONS ARE COPIED FROM THE SOF TO GINO FILES. C FOR NORMAL MODES, LAMA IS CREATED FROM THE SOLN ITEM. C FOR STATICS, THE LOADS AND ENFORCED DISPLACEMENTS ARE FACTORED C AND COMBINED TO CORRESPOND WITH THE PHASE 2 SOLUTION SUBCASES. C C JANUARY 1974 C LOGICAL FIRST INTEGER RFNO ,TRL ,SYSBUF ,TITLES ,OTYPP , 1 OTYPUN ,IZ(10) ,PG ,PS ,PO , 2 YS ,UAS ,QAS ,PGS ,PSS , 3 POS ,YSS ,LAMA ,IVEC(4) ,OVEC(4) , 4 SOLN ,UVEC ,QVEC ,INITM(3) ,OUTDB(3) , 5 SUBR(2) ,SRD ,HERE ,BUF1 ,BUF2 , 6 BUF3 ,BUF4 ,RC ,FSS(2) ,FILE , 7 SCR1 ,SCR2 ,SCR3 DIMENSION MCBTRL(7) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /BLANK / RFNO ,NAME(2) ,NOUE ,TRL(7) ,HERE(6) , 1 IBUF(3) COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,REW , 1 NOREW COMMON /OUTPUT/ TITLES(1) COMMON /PACKX / ITYPP ,OTYPP ,IROWP ,NROWP ,INCP COMMON /UNPAKX/ OTYPUN ,IROWUN ,NROWUN ,INCUN COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (PG ,IVEC(1) ) ,(PGS ,OVEC(1) ) , 1 (PS ,IVEC(2) ) ,(PSS ,OVEC(2) ) , 2 (PO ,IVEC(3) ) ,(POS ,OVEC(3) ) , 3 (YS ,IVEC(4) ) ,(YSS ,OVEC(4) ) , 4 (SOLN,INITM(1)) ,(LAMA,OUTDB(1)) , 5 (UVEC,INITM(2)) ,(UAS ,OUTDB(2)) , 6 (QVEC,INITM(3)) ,(QAS ,OUTDB(3)) , 7 (Z(1),IZ(1)) DATA PG , PS ,PO ,YS ,UAS ,QAS ,PGS ,PSS ,POS ,YSS ,LAMA/ 1 101 , 102 ,103 ,104 ,201 ,202 ,203 ,204 ,205 ,206 ,207 / DATA SCR1 , SCR2,SCR3 / 1 301 , 302 ,303 / DATA SOLN , UVEC , QVEC ,IBLANK / 1 4HSOLN, 4HUVEC, 4HQVEC ,4H / DATA SUBR , SRD / 1 4HRCOV, 4HR3 , 1 / C C INITIALIZATION C LCORE = KORSZ(Z) BUF1 = LCORE - SYSBUF + 1 BUF2 = BUF1 - SYSBUF - 1 BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF LCORE = BUF4 - 1 IF (LCORE .LE. 0) CALL MESAGE (-8,0,SUBR) NOGO = 0 ITYPP = 1 OTYPP = 1 IROWP = 1 INCP = 1 OTYPUN= 1 IROWUN= 1 INCUN = 1 FIRST = .FALSE. CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3)) DO 10 I = 1,6 HERE(I) = 0 10 CONTINUE C C CHECK DATA C C NO EXTRA POINTS C IF (NOUE .NE. -1) GO TO 6372 C C SUBSTRUCTURE NAME C CALL FDSUB (NAME,RC) IF (RC .EQ. -1) CALL SMSG (-2,IBLANK,NAME) C C PAIRS OF INPUT ITEMS AND OUTPUT BLOCKS C CALL SFETCH (NAME,SOLN,SRD,RC) IF (RC .NE. 1) CALL SMSG (2-RC,SOLN,NAME) IF (RFNO.EQ.1 .OR. RFNO.EQ.2) GO TO 15 TRL(1) = OUTDB(1) CALL RDTRL (TRL) IF (TRL(1) .GT. 0) GO TO 15 CALL MESAGE (1,OUTDB(1),SUBR) NOGO = 1 15 DO 30 I = 2,3 IF (I.EQ.1 .AND. (RFNO.EQ.1 .OR. RFNO.EQ.2)) GO TO 30 CALL SOFTRL (NAME,INITM(I),MCBTRL) RC = MCBTRL(1) IF (RC .NE. 1) GO TO 30 TRL(1) = OUTDB(I) CALL RDTRL (TRL) IF (TRL(1) .GT. 0) GO TO 20 CALL MESAGE (1,OUTDB(I),SUBR) NOGO = 1 GO TO 30 20 HERE(I-1) = 1 30 CONTINUE C C PAIRS OF DATA BLOCKS C IF (RFNO.EQ.3 .OR. RFNO.EQ.8) GO TO 60 DO 50 I = 1,4 TRL(1) = IVEC(I) CALL RDTRL (TRL) IF (TRL(1) .LT. 0) GO TO 50 IF (I.EQ.4 .AND. TRL(6).EQ.0) GO TO 50 TRL(1) = OVEC(I) CALL RDTRL (TRL) IF (TRL(1) .GT. 0) GO TO 40 CALL MESAGE (1,OVEC(I),SUBR) NOGO = 1 GO TO 50 40 HERE(I+2) = 1 50 CONTINUE C C TERMINATE IF THERE WERE ERRORS C 60 IF (NOGO .NE. 0) GO TO 9037 C C COPY DISPLACEMENTS AND REACTIONS FROM SOF TO GINO FILES C IF (HERE(1) .EQ. 1) CALL MTRXI (UAS,NAME,UVEC,Z(BUF4),RC) IF (HERE(2) .EQ. 1) CALL MTRXI (QAS,NAME,QVEC,Z(BUF4),RC) C C BRANCH ON RIGID FORMAT NUMBER C IF (RFNO .EQ. 3) GO TO 140 C C RIGID FORMAT 1 -- STATIC C RIGID FORMAT 2 -- INERTIAL RELIEF C RIGID FORMAT 8 -- FREQUENCY RESPONSE C RIGID FORMAT 9 -- TRANSIENT RESPONSE C ************************************* C C FETCH SOLN ITEM AND PROCESS GROUP 0 DATA C CALL SFETCH (NAME,SOLN,SRD,RC) IF (RC .NE. 1) CALL SMSG (2-RC,SOLN,NAME) CALL SUREAD (FSS,2,N,RC) WRITE (NOUT,63210) UIM,FSS,NAME CALL SUREAD (IBUF,3,N,RC) IF (IBUF(1) .NE. RFNO) GO TO 6322 IF (IBUF(2) .NE. 1) GO TO 6324 NC = IBUF(3) C C WRITE NULL REACTIONS MATRIX TO PREVENT ERROR 3007 IN UMERGE C IF (HERE(2) .EQ. 1) GO TO 80 NROWP = 1 CALL MAKMCB (TRL,QAS,1,2,1) CALL GOPEN (QAS,Z(BUF4),WRTREW) DO 70 I = 1,NC CALL PACK (0,QAS,TRL) 70 CONTINUE CALL CLOSE (QAS,REW) CALL WRTTRL (TRL) C C COPY FREQUENCIES ONTO PPF OR TIME STEPS ONTO TOL C 80 IF (RFNO .LT. 8) GO TO 120 J = 1 CALL SJUMP (J) FILE = LAMA CALL OPEN (*9001,LAMA,Z(BUF4),WRTREW) CALL FNAME (LAMA,IBUF) CALL WRITE (LAMA,IBUF,2,0) 90 CALL SUREAD (Z,LCORE,N,RC) CALL WRITE (LAMA,Z,N,0) IF (RC .EQ. 1) GO TO 90 CALL WRITE (LAMA,0,0,1) C C WRITE NULL DYNAMIC LOADS MATRIX ONTO PPF C CALL MAKMCB (TRL,LAMA,1,2,1) IF (RFNO .EQ. 9) GO TO 110 DO 100 I = 1,NC CALL PACK (0,LAMA,TRL) 100 CONTINUE 110 CALL WRTTRL (TRL) CALL CLOSE (LAMA,REW) C C FOR EACH SUBCASE READ FROM THE SOLN, FORM A COMBINED VECTOR FROM C THE VECTORS OF THE APPLIED LOADS OR ENFORCED DISPLACEMENTS DATA C BLOCKS C 120 LCORE = BUF3 - 1 DO 130 I = 1,4 IF (HERE(I+2) .EQ. 0) GO TO 130 CALL RCOVSL (NAME,0,IVEC(I),SCR1,SCR2,SCR3,OVEC(I),Z,Z,LCORE, 1 FIRST,RFNO) IF (OVEC(I) .NE. 0) FIRST= .TRUE. 130 CONTINUE GO TO 5000 C C RIGID FORMAT 3 -- NORMAL MODES C ******************************* C C WRITE NULL REACTIONS MATRIX TO PREVENT ERROR 3007 IN UMERGE C 140 IF (HERE(2) .EQ. 1) GO TO 150 NROWP = 1 CALL MAKMCB (TRL,QAS,1,2,1) CALL GOPEN (QAS,Z(BUF4),WRTREW) CALL PACK (0,QAS,TRL) CALL CLOSE (QAS,REW) CALL WRTTRL (TRL) C C GENERATE OFP ID RECORD FOR LAMA C 150 IF (LCORE .LT. 146) GO TO 9008 CALL GOPEN (LAMA,Z(BUF4),WRTREW) DO 160 I = 3,50 IZ(I) = 0 160 CONTINUE IZ( 1) = 21 IZ( 2) = 6 IZ(10) = 7 DO 170 I = 1,96 IZ(I+50) = TITLES(I) 170 CONTINUE CALL WRITE (LAMA,Z,146,1) C C GET SOLN ITEM AND CHECK GROUP 0 DATA C CALL SFETCH (NAME,SOLN,SRD,RC) IF (RC .NE. 1) CALL SMSG (2-RC,SOLN,NAME) CALL SUREAD (FSS,2,N,RC) WRITE (NOUT,63210) UIM,FSS,NAME CALL SUREAD (IBUF,-1,N,RC) IF (IBUF(1) .NE. RFNO) GO TO 6322 NEIGV = IBUF(2) IF (NEIGV .GT. 0) GO TO 180 C C NO EIGENVALUES. WRITE ZERO TRAILER TO INDICATE LAMA IS PURGED C CALL CLOSE (LAMA,REW) CALL MAKMCB (TRL,LAMA,0,0,0) CALL WRTTRL (TRL) GO TO 6323 C C COPY SOLN GROUP 1 TO LAMA RECORD 2 AND WRITE NON-ZERO TRAILER C 180 CALL SUREAD (Z,LCORE,N,RC) CALL WRITE (LAMA,Z,N,0) IF (RC .EQ. 1) GO TO 180 CALL WRITE (LAMA,0,0,1) CALL CLOSE (LAMA,REW) CALL MAKMCB (TRL,LAMA,0,0,0) TRL(2) = 1 CALL WRTTRL (TRL) C C NORMAL MODULE EXITS C 5000 CALL SOFCLS RETURN C C ABNORMAL MODULE EXITS C 6372 WRITE (NOUT,63720) UFM GO TO 9061 9001 N = -1 GO TO 9200 6322 WRITE (NOUT,63220) SFM,IBUF(1),RFNO GO TO 9061 6323 WRITE (NOUT,63230) UWM GO TO 9300 6324 WRITE (NOUT,63240) UFM,NAME GO TO 9061 9008 N = -8 GO TO 9200 9037 N = -37 GO TO 9200 9061 N = -61 9200 CALL SOFCLS CALL MESAGE (N,FILE,SUBR) 9300 CALL SOFCLS RETURN C C FORMAT STATEMENTS FOR DIAGNOSTIC MESSAGES C 63210 FORMAT (A29,' 6321, SUBSTRUCTURE PHASE 3 RECOVER FOR FINAL SOLUT', 1 'ION STRUCTURE ',2A4, /35X,' AND BASIC SUBSTRUCTURE ',2A4) 63220 FORMAT (A25,' 6322, SOLN HAS INCORRECT RIGID FORMAT NUMBER.',/32X, 1 'PHASE 2 RIGID FORMAT WAS',I3,' AND PHASE 3 IS',I3) 63230 FORMAT (A25,' 6323, NO EIGENVALUES FOR THIS SOLUTION') 63240 FORMAT (A23,' 6324, PHASE 3 RECOVER ATTEMPTED FOR NON-BASIC ', 1 'SUBSTRUCTURE ',2A4) 63720 FORMAT (A23,' 6372, NO EXTRA POINTS ALLOWED IN PHASE 3 ', 1 'SUBSTRUCTURING.') END ================================================ FILE: mis/rcovsl.f ================================================ SUBROUTINE RCOVSL (NAME,ITEM,IN,AMAT,SCR2,SCR3,OUT,Z,IZ,LCORE, 1 FIRST,RFNO) C C RCOVSL CALCULATES THE STATIC LOAD VECTORS FOR THE SUBSTRUCTURING C PHASE 2 AND PHASE 3 OPERATIONS FROM THE SUBSTRUCTURE SOLN ITEM C LOGICAL FIRST INTEGER NAME(2),AMAT,SCR2,SCR3,OUT,PMX,FMX,CMX,SLMX,T, 1 SIGNPF,SIGNC,PREC,SCR,RD,RDREW,WRT,WRTREW,REW, 2 OTYPP,SYSBUF,SOLN,SRD,SUBR(2),BUF1,FSS(2),IBUF(3), 3 IZ(1),RC,RFNO,TYPE REAL Z(1) COMMON /MPYADX/ PMX(7),FMX(7),CMX(7),SLMX(7),MCORE,T,SIGNPF,SIGNC, 1 PREC,SCR COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW,NOREW COMMON /PACKX / ITYPP,OTYPP,IROWP,NROWP,INCP COMMON /SYSTEM/ SYSBUF,NOUT DATA SOLN / 4HSOLN /, SRD / 1 / DATA SUBR / 4HRCOV , 4HSL / C C INITIALIZE C BUF1 = LCORE - SYSBUF + 1 ITYPP = 1 IROWP = 1 INCP = 1 MCORE = LCORE T = 0 SIGNPF= 1 PREC = 0 C C READ LOAD MATRIX FROM SOF ONTO GINO FILE C PMX(1) = IN CALL RDTRL (PMX) IF (PMX(1) .GT. 0) GO TO 5 ITM = ITEM CALL MTRXI (SCR2,NAME,ITEM,Z(BUF1),RC) IF (RC .EQ. 3) GO TO 600 IF (RC .NE. 1) GO TO 1000 PMX(1) = SCR2 CALL RDTRL (PMX) 5 NROWP = PMX(2) TYPE = PMX(5) IF (RFNO .EQ. 8 .AND. TYPE .LE. 2) TYPE = TYPE + 2 OTYPP = TYPE IF (FIRST) GO TO 500 C C PROCESS INITIAL SOLN DATA C ITM = SOLN CALL SFETCH (NAME,SOLN,SRD,RC) IF (RC .NE. 1) GO TO 1000 CALL SUREAD (FSS,2,N,RC) IF (RC .NE. 1) GO TO 1100 CALL SUREAD (IBUF,3,N,RC) IF (RC .NE. 1) GO TO 1100 IF (RFNO .EQ. 3) GO TO 600 NB = IBUF(2) NST = IBUF(3) C C INTILIZE SCR1 FILE C CALL MAKMCB (FMX,AMAT,NROWP,2,TYPE) CALL GOPEN (AMAT,Z(BUF1),WRTREW) C C PACK FACTOR MATRIX FOR R. F. 1,2 C IF (RFNO.EQ.8 .OR. RFNO.EQ.9) GO TO 100 DO 40 I = 1,NST DO 10 J = 1,NROWP Z(J) = 0.0 10 CONTINUE N = 1 CALL SJUMP (N) IF (N .LT. 0) GO TO 1200 CALL SUREAD (NL,1,N,RC) IF (RC .NE. 1) GO TO 1100 IF (NL .LT. 0) GO TO 40 IF (NL .EQ. 0) GO TO 30 IF (NROWP+2*NL .GE. BUF1) CALL MESAGE (-8,0,SUBR) CALL SUREAD (Z(NROWP+1),2*NL,N,RC) IF (RC .NE. 1) GO TO 1100 NROW = NROWP - 1 DO 20 J = 1,NL NROW = NROW + 2 NR = IZ(NROW) Z(NR)= Z(NROW+1) 20 CONTINUE 30 CALL PACK (Z(1),AMAT,FMX) 40 CONTINUE CALL CLOSE (AMAT,REW) CALL WRTTRL(FMX) GO TO 500 C C PACK FACTOR MATRIX FOR R. F. 8,9 C 100 CALL SUREAD (IZ(1),3*NB,N,RC) IF (RC .NE. 1) GO TO 1100 CALL SUREAD (NL,1,N,RC) IF (RC .NE. 1) GO TO 1100 IF (NL .LE. 0) GO TO 600 IF (NL .GE. BUF1) CALL MESAGE (-8,0,SUBR) CALL SUREAD (IZ(1),NL,N,RC) IF (RC .NE. 1) GO TO 1100 N = 1 CALL SJUMP (N) IF (N .LT. 0) GO TO 1200 IP = 1 IF (RFNO .EQ. 8) IP = 2 IF (RFNO .EQ. 8) ITYPP = 3 IFACT = NL + 1 NFACT = NL + NL*IP ICOL = NFACT + 1 NCOL = NFACT + IP*NROWP IF (NCOL .GE. BUF1) CALL MESAGE (-8,0,SUBR) C DO 230 I = 1,NST DO 210 J = ICOL,NCOL Z(J) = 0.0 210 CONTINUE N = 1 CALL SJUMP (N) IF (N .LT. 0) GO TO 1200 CALL SUREAD (Z(IFACT),NL*IP,N,RC) IF (RC .NE. 1) GO TO 1100 NROW = IFACT - IP NRS = ICOL - IP DO 220 J = 1,NL NROW = NROW + IP NR = NRS + IZ(J)*IP Z(NR)= Z(NROW) IF (IP .EQ. 2) Z(NR+1) = Z(NROW+1) 220 CONTINUE CALL PACK (Z(ICOL),AMAT,FMX) 230 CONTINUE CALL CLOSE (AMAT,REW) CALL WRTTRL (FMX) C C OUT = LOADS*FACTORS C 500 FMX(1) = AMAT CALL RDTRL (FMX) CMX(1) = 0 CALL MAKMCB (SLMX,OUT,PMX(3),2,TYPE) SCR = SCR3 CALL MPYAD (Z,Z,Z) CALL WRTTRL (SLMX) GO TO 700 C C NO SCALAR LOADS C 600 OUT = 0 CALL CLOSE (AMAT,REW) 700 RETURN C C ERRORS C 1000 CALL SMSG (RC-2,ITM,NAME) GO TO 600 1100 CALL SMSG (RC+4,ITM,NAME) GO TO 600 1200 CALL SMSG (7,ITM,NAME) GO TO 600 END ================================================ FILE: mis/rcovss.f ================================================ SUBROUTINE RCOVSS C C THIS ROUTINE GENERATES THE STATIC SOLUTION ITEM FOR RIGID FORMATS C 1 AND 2 C INTEGER DRY ,STEP ,FSS ,RFNO , 1 SYSBUF ,IZ(5) ,RD ,RDREW , 2 WRT ,WRTREW ,REW ,EOFNRW , 3 LOD(4) ,SOLN ,EQSS ,LOADC(2) , 4 SRD ,SWRT ,EOG ,EOI , 5 CASESS ,GEOM4 ,SCR1 ,RC , 6 BUF1 ,BUF2 ,BUF3 ,CC(2) , 7 FILE ,NAME(2) ,CASECC(2) REAL CLOD(4) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /ZZZZZZ/ Z(1) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW EQUIVALENCE (Z(1),IZ(1)), (LOD(1),CLOD(1)) DATA NAME / 4HRCOV,4HSS / DATA SOLN , EQSS, LODS / 4HSOLN,4HEQSS,4HLODS / DATA CASESS, GEOM4,SCR1 / 101,102,301 / DATA LOADC / 500 ,5 / DATA SRD , SWRT, EOG,EOI / 1,2,2,3 / DATA CASECC/ 4HCASE,4HCC / C C CREATE SOLN FOR RIGID FORMAT 1 OR 2 C C GET NUMBER OF BASIC SUBSTRUCTURES (NS) FROM EQSS AND CREATE C GROUP 0 OF SOLN AT TOP OF OPEN CORE C CALL SFETCH (FSS,EQSS,SRD,RC) IF (RC .EQ. 1) GO TO 110 CALL SMSG (RC-2,EQSS,FSS) GO TO 440 110 CALL SUREAD (Z,2,NWDS,RC) CALL SUREAD (NS,1,NWDS,RC) IF (LCORE .LT. 3*NS+5) GO TO 9008 CALL SUREAD (Z,1,NWDS,RC) IZ(1) = FSS(1) IZ(2) = FSS(2) IZ(3) = RFNO IZ(4) = NS C C GET SUBSTRUCTURE NAMES FROM EQSS C DO 120 I = 1,NS CALL SUREAD (Z(3*I+3),2,NWDS,RC) 120 CONTINUE C C COUNT NUMBER OF SUBCASES (NC) ON CASECC C CALL GOPEN (CASESS,Z(BUF2),RDREW) NSKIP = 1 130 CALL FREAD (CASESS,CC,2,1) NSKIP = NSKIP + 1 IF (CC(1) .NE. CASECC(1)) GO TO 130 IF (CC(2) .NE. CASECC(2)) GO TO 130 NC = 0 140 CALL FWDREC (*150,CASESS) NC = NC + 1 GO TO 140 150 CALL REWIND (CASESS) IZ(5) = NC C C GET NUMBER OF LOAD VECTORS FOR EACH SUBSTRUCTURE FROM LODS C CALL SFETCH (FSS,LODS,SRD,RC) IF (RC .EQ. 1) GO TO 160 CALL SMSG (RC-2,LODS,FSS) GO TO 9200 160 J = 1 CALL SJUMP (J) DO 170 I = 1,NS CALL SUREAD (Z(3*I+5),1,NWDS,RC) 170 CALL SJUMP (J) C C SOLN GROUP 0 COMPLETE. WRITE IT ON SCR1 C J = 3 CALL GOPEN (SCR1,Z(BUF3),WRTREW) CALL WRITE (SCR1,Z,3*NS+5,1) C C COMPRESS SUBSTRUCTURE NAMES AT TOP OF OPEN CORE C DO 180 I = 1,NS IZ(2*I-1) = IZ(3*I+3) 180 IZ(2*I ) = IZ(3*I+4) C C PREPARE TO LOOP OVER ALL SUBCASES C ICASE = 2*NS + 1 ILODS = ICASE + 166 IF (ILODS .GT. LCORE) GO TO 9008 LODSIN= 0 NLODS = ILODS - 1 FILE = CASESS DO 190 I = 1,NSKIP 190 CALL FWDREC (*9002,CASESS) NOLDC = 1 CALL PRELOC (*195,Z(BUF1),GEOM4) CALL LOCATE (*195,Z(BUF1),LOADC,I) NOLDC = 0 C C BEGIN SUBCASE LOOP. FOR EACH SUBCASE, BUILD ONE GROUP OF SOLN C 195 DO 390 ISC = 1,NC CALL FREAD (CASESS,Z(ICASE),166,0) NLDS = 0 IF (IZ(ICASE+15) .NE. 0) GO TO 310 FILE = CASESS CALL FWDREC (*9002,CASESS) FILE = GEOM4 C C PROCESS REGULAR SUBCASE. IF LODS ITEM NOT IN CORE, GET IT. C IF (IZ(ICASE+3) .EQ. 0) GO TO 300 IF (NOLDC .EQ. 1) GO TO 300 IF (LODSIN .EQ. 1) GO TO 205 CALL SFETCH (FSS,LODS,SRD,RC) I = 1 CALL SJUMP (I) I = ILODS DO 200 J = 1,NS CALL SUREAD (Z(I),1,NWDS,RC) NLODS = I+IZ(I) IF (NLODS .GT. LCORE) GO TO 9008 CALL SUREAD (Z(I+1),-1,NWDS,RC) I = NLODS + 1 200 CONTINUE LODSIN = 1 C C LODS ITEM IN CORE. FIND MATCH ON LOADC CARD WITH LOAD SET ID C FROM CASECC C 205 JSOLN = NLODS + 2 210 CALL READ (*9002,*300,GEOM4,LOD,2,0,NWDS) IF (LOD(1) .EQ. IZ(ICASE+3)) GO TO 230 220 CALL FREAD (GEOM4,LOD,4,0) IF (LOD(4) .EQ. -1) GO TO 210 GO TO 220 C C FOUND MATCH ON LOADC CARD C 230 SFAC = CLOD(2) C C LOOP OVER BASIC SUBSTRUCTURES ON THE LOADC CARD C 240 CALL FREAD (GEOM4,LOD,4,0) IF (LOD(4) .EQ. -1) GO TO 290 IF (JSOLN+1 .GT. LCORE) GO TO 9008 C C FIND BASIC SUBSTRUCTURE NUMBER BY MATCHING ITS NAME WITH THOSE C FROM EQSS. THEN DETERMINE LOAD VECTOR NUMBER BY MATCHING THE C BASIC SUBSTRUCTURE LOAD SET ID WITH THOSE IN LODS DATA IN CORE. C DO 245 I = 1,NS IF (LOD(1) .NE. IZ(2*I-1)) GO TO 245 K = I IF (LOD(2) .EQ. IZ(2*I)) GO TO 250 245 CONTINUE WRITE (NOUT,6315) UWM,LOD(1),LOD(2),LOD(3),FSS 250 N = 0 I = ILODS J = 1 260 IF (J .EQ. K) GO TO 265 N = N + IZ(I) I = I + IZ(I) + 1 J = J + 1 GO TO 260 265 J = IZ(I) DO 270 K = 1,J N = N + 1 IF (IZ(I+K) .EQ. LOD(3)) GO TO 280 270 CONTINUE WRITE (NOUT,6316) UWM,LOD(3),LOD(1),LOD(2),FSS C C BUILD SOLN GROUP IN OPEN CORE FOLLOWING LODS DATA C 280 IZ(JSOLN ) = N Z(JSOLN+1) = SFAC*CLOD(4) JSOLN = JSOLN + 2 NLDS = NLDS + 1 GO TO 240 290 IZ(NLODS+1) = NLDS JSOLN = NLODS + 1 GO TO 385 C C NO LOADS FOR THIS SUBCASE C 300 NLDS = 0 GO TO 290 C C PROCESS SYMCOM OR SUBCOM SUBCASE C C READ SYMSEQ OR SUBSEQ INTO OPEN CORE AT ISEQ C 310 LCC = IZ(ICASE+165) LSKIP = 167 - LCC CALL FREAD (CASESS,0,LSKIP,0) CALL FREAD (CASESS,LSEM,1,0) 320 IF (LSEM+NLODS .LT. LCORE) GO TO 340 IF (LODSIN .EQ. 0) GO TO 9008 C C SHORT OF CORE. WIPE OUT LODS DATA AND RE-USE SPACE C 330 LODSIN = 0 NLODS = ILODS - 1 GO TO 320 340 ISEQ = NLODS + 1 CALL FREAD (CASESS,Z(ISEQ),LSEM,1) C C READ THE PREVIOUS LSEM GROUPS OF SOLN INTO OPEN CORE FOLLOWING SEQ C JSOLN = ISEQ + LSEM K = JSOLN + 1 CALL CLOSE (SCR1,EOFNRW) FILE = SCR1 CALL OPEN (*9001,SCR1,Z(BUF3),RD) NREC = 1 NLDS = 0 DO 380 I = 1,LSEM 342 DO 344 J = 1,NREC 344 CALL BCKREC (SCR1) CALL FREAD (SCR1,N,1,0) NREC = 2 IF (N .LT. 0) GO TO 342 IF (K+2*N-1 .LT. LCORE) GO TO 360 IF (LODSIN .EQ. 0) GO TO 9008 C C SHORT OF CORE. REPOSITION CASESS, WIPE OUT LODS DATA, AND TRY C AGAIN C CALL BCKREC (CASESS) CALL FREAD (CASESS,0,-166,0) GO TO 330 360 CALL FREAD (SCR1,Z(K),2*N,1) C C SCALE LOAD FACTORS BY SYMSEQ OR SUBSEQ FACTORS C DO 370 J = 1,N 370 Z(K+2*J-1) = Z(ISEQ+LSEM-I)*Z(K+2*J-1) K = K + 2*N NLDS = NLDS + N 380 CONTINUE IZ(JSOLN) = -NLDS C C COMBINATION GROUP COMPLETE. REPOSITION SCR1 C FILE = SCR1 381 CALL FWDREC (*382,SCR1) GO TO 381 382 CALL SKPFIL (SCR1,-1) CALL CLOSE (SCR1,NOREW) CALL OPEN (*9001,SCR1,Z(BUF3),WRT) C C GROUP COMPLETE IN CORE. SORT ON LOAD VECTOR NUMBERS C 385 CALL SORT (0,0,2,1,Z(JSOLN+1),2*NLDS) C C WRITE GROUP ON SCR1 AND POSITION GEOM4 TO BEGINNING OF LOADC CARDS C CALL WRITE (SCR1,Z(JSOLN),2*NLDS+1,1) IF (NOLDC .EQ. 1) GO TO 390 CALL BCKREC (GEOM4) CALL FREAD (GEOM4,0,-3,0) C C END OF LOOP OVER SUBCASES C 390 CONTINUE CALL CLOSE (CASESS,REW) CALL CLOSE (GEOM4,REW) CALL CLOSE (SCR1,REW) C C COPY SOLN FROM SCR1 TO SOF C CALL GOPEN (SCR1,Z(BUF1),RDREW) RC = 3 CALL SFETCH (FSS,SOLN,SWRT,RC) 392 CALL READ (*396,*394,SCR1,Z,LCORE,1,NWDS) GO TO 9008 394 CALL SUWRT (Z,NWDS,EOG) GO TO 392 396 CALL CLOSE (SCR1,REW) C C FINISH C CALL SUWRT (0,0,EOI) 440 CONTINUE RETURN C C DIAGNOSTICS C 6315 FORMAT (A25,' 6315, RCOVR MODULE IS UNABLE TO FIND SUBSTRUCTURE ', 1 2A4,' AMONG THOSE ON EQSS.' /32X,'LOAD SET',I9, 2 ' FOR THAT SUBSTRUCTURE WILL BE IGNORED IN CREATING', /32X, 3 'THE SOLN ITEM FOR FINAL SOLUTION STRUCTURE ',2A4) 6316 FORMAT (A25,' 6316, RCOVR MODULE IS UNABLE TO FIND LOAD SET',I9, 1 ' FOR SUBSTRUCTURE ',2A4, /32X,'AMONG THOSE ON LODS. ', 2 'IT WILL BE IGNORED IN CREATING THE SOLN ITEM FOR FINAL', 3 /32X,'SOLUTION STRUCTURE ',2A4) C 9001 N = 1 GO TO 9100 9002 N = 2 GO TO 9100 9008 N = 8 9100 CALL MESAGE (N,FILE,NAME) 9200 CALL SOFCLS IOPT = -1 CALL CLOSE (CASESS,REW) CALL CLOSE (GEOM4,REW) CALL CLOSE (SCR1,REW) C RETURN END ================================================ FILE: mis/rcovui.f ================================================ SUBROUTINE RCOVUI (UB,LASTSS,MODAL) C C THIS ROUTINE CALCULATES THE IMPROVED LOWER LEVEL DISPLACEMENTS C ON A REDUCED SUBSTRUCTURE WHICH INCLUDE INERTIA AND DAMPING C EFFECTS C LOGICAL REQF ,MODAL INTEGER UB ,SOF1 ,SOF2 ,SOF3 , 1 BUF1 ,BUF2 ,SCR2 ,SCR3 , 2 SCR4 ,SCR5 ,SCR6 ,SCR7 , 3 SCR8 ,SCR9 ,MPYZ ,TFLAG , 4 SIGNAB ,HORG ,BMTX ,UPRT , 5 SIGNC ,SCRM ,Z ,RC , 6 DRY ,FSS ,RFNO ,RSS , 7 UA ,BUF4 ,BGG ,PID , 8 UAO ,RULE ,TYPA ,TYPB , 9 BUF3 ,UPART ,LASTSS(2) ,GIMS , O DUA ,UAD ,TYPIN ,TYPOT , 1 TYPC ,NAME(2) REAL RZ(1) DOUBLE PRECISION DZ(1) COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5), 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /ZZZZZZ/ Z(1) COMMON /MPYADX/ MCBA(7) ,MCBB(7) ,MCBC(7) ,MCBD(7) , 1 MPYZ ,TFLAG ,SIGNAB ,SIGNC , 2 MPREC ,SCRM COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQUARE , 3 RECT ,DIAG ,UPPER ,LOWER , 4 SYM COMMON /PARMEG/ MCB(7) ,MCB11(7) ,MCB21(7) ,MCB12(7) , 1 MCB22(7) ,MRGZ ,RULE COMMON /SADDX / NOMAT ,LCOR ,MCBAA(7) ,TYPA , 1 ALPHA ,ALP(3) ,MCBBB(7) ,TYPB , 2 BETA ,BET(3) ,MCBCC(7) ,TYPC , 3 GAMA ,GAM(3) ,DUM(24) ,MCBXX(7) COMMON /PACKX / TYPIN ,TYPOT ,IRO ,NRO , 1 INCRP EQUIVALENCE (DZ(1),RZ(1),Z(1)) DATA SCR2 , SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,SCR9 / 1 302 , 303 ,304 ,305 ,306 ,307 ,308 ,309 / DATA HORG , MMTX,BMTX,UPRT / 4HHORG,4HMMTX,4HBMTX,4HUPRT / DATA K4MX / 4HK4MX/, K4GG / 110 / DATA GIMS , NHPDAT/ 4HGIMS,4HPDAT / DATA MGG , BGG / 104,109/ DATA NAME / 4 HRCOV, 4HUI / C C INITILIZE C LCOREZ = KORSZ(Z) - LREQ - ICORE - 1 IDPCOR = ICORE/2 + 1 TFLAG = 0 SIGNAB = 1 SIGNC = 1 MPREC = 0 SCRM = 309 REQF = .FALSE. IF (LASTSS(1).EQ.FSS(1) .AND. LASTSS(2).EQ.FSS(2)) REQF = .TRUE. C C GENERATE THE PARTIAL LOAD VECTOR USING THE NORMAL TRANSFORMATION C C UPARTIAL = HORG*UB C ITEM = HORG CALL MTRXI (SCR2,LASTSS,HORG,0,RC) IF (RC .NE. 1) GO TO 6317 C MCBA(1) = SCR2 CALL RDTRL (MCBA) MCBB(1) = UB CALL RDTRL (MCBB) MCBC(1) = 0 UPART = SCR5 CALL MAKMCB (MCBD,UPART,MCBA(3),RECT,MCBB(5)) MPYZ = LCOREZ CALL SOFCLS CALL MPYAD (DZ(IDPCOR),DZ(IDPCOR),DZ(IDPCOR)) CALL WRTTRL (MCBD) CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) C C DETERMINE THE NUMBER OF OMITTED POINTS C NROWO = MCBA(3) - MCBA(2) CALL SOFTRL (LASTSS,GIMS,MCBA) IF (MCBA(1) .EQ. 1) NROWO = MCBA(3) C C GENERATE THE VELOCITIES AND ACCELERATIONS C LCORE = BUF4 - ICORE - 1 CALL RCOVVA (UPART,0,0,0,SCR7,SCR8,LASTSS,DZ(IDPCOR),DZ(IDPCOR), 1 DZ(IDPCOR)) IF (UPART .LE. 0) GO TO 9000 C C CALCULATE THE INERTIAL AND DAMPING LOADS C C PID = -M*A - B*V C C CALCULATE THE INERTAIL LOADS C PID = 0 IF (.NOT.REQF) GO TO 100 MCBA(1) = MGG IF (MCBA(1) .GT. 0) GO TO 110 100 CALL MTRXI (SCR2,LASTSS,MMTX,0,RC) IF (RC .NE. 1) GO TO 200 MCBA(1) = SCR2 CALL RDTRL (MCBA) 110 MCBB(1) = SCR8 CALL RDTRL (MCBB) MCBC(1) = 0 CALL MAKMCB (MCBD,SCR6,MCBB(3),RECT,MCBB(5)) SIGNAB = -1 CALL SOFCLS C CALL MPYAD (DZ(IDPCOR),DZ(IDPCOR),DZ(IDPCOR)) C DO 120 I = 1,7 120 MCBC(I) = MCBD(I) PID = SCR6 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) C C CALCULATE THE DAMPING LOADS C 200 IF (RFNO .EQ. 3) GO TO 300 IF (.NOT.REQF ) GO TO 201 MCBA(1) = K4GG CALL RDTRL (MCBA) IF (MCBA(1) .GT. 0) GO TO 202 201 CALL MTRXI (SCR2,LASTSS,K4MX,0,RC) IF (RC .NE. 1) GO TO 209 MCBA(1) = SCR2 CALL RDTRL (MCBA) 202 MCBB(1) = SCR7 CALL RDTRL (MCBB) CALL MAKMCB (MCBD,SCR8,MCBB(3),RECT,MCBB(5)) SIGNAB = -1 CALL SOFCLS CALL MPYAD (DZ(IDPCOR),DZ(IDPCOR),DZ(IDPCOR)) PID = SCR8 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) DO 203 I = 1,7 203 MCBC(I) = MCBD(I) C 209 IF (.NOT.REQF) GO TO 210 MCBA(1) = BGG CALL RDTRL (MCBA) IF (MCBA(1) .GT. 0) GO TO 220 210 CALL MTRXI (SCR2,LASTSS,BMTX,0,RC) IF (RC .NE. 1) GO TO 300 MCBA(1) = SCR2 CALL RDTRL (MCBA) 220 MCBB(1) = SCR7 CALL RDTRL (MCBB) CALL MAKMCB (MCBD,SCR6,MCBB(3),RECT,MCBB(5)) SIGNAB = -1 CALL SOFCLS CALL MPYAD(DZ(IDPCOR),DZ(IDPCOR),DZ(IDPCOR)) PID = SCR6 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) C C PARTITION THE INERTIA AND DAMPING LOADS TO THE OMIT SET C C GET THE PARTITIONING VECTOR FROM THE SOF C 300 IF (PID .EQ. 0) GO TO 400 ITEM = UPRT CALL MTRXI (SCR2,LASTSS,UPRT,0,RC) IF (RC .NE. 1) GO TO 6317 RULE = 0 MRGZ = LCOREZ - 14 IDP = (ICORE+14)/2 + 1 DO 310 I = 1,7 310 MCB(I) = MCBD(I) PID = SCR4 CALL MAKMCB (MCB11,PID,NROWO,RECT,MCBD(5)) MCB11(2) = MCBD(2) MCB12(1) = 0 MCB21(1) = 0 MCB22(1) = 0 C C SET UP A NULL ROW PARTITION VECTOR C Z(ICORE) = SCR2 CALL RDTRL (Z(ICORE)) CALL MAKMCB (Z(ICORE+7),0,MCB(2),RECT,RSP) Z(ICORE+8) = 1 CALL SOFCLS CALL PARTN (Z(ICORE+7),Z(ICORE),DZ(IDP)) CALL WRTTRL (MCB11) CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) C C PERFORM THE FBS TO GET THE LOADS ON THE OMMITTED POINTS. WE C WILL ALSO ADD IN THE EFFECTS OF THE DAMPING AND INERTIAL LOADS C 400 CALL RCOVUO (PID,UAO,LASTSS) CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) IF (IOPT .LT. 0) GO TO 9000 C C IF RECOVERING A MODAL REDUCED SUBSTRUCTURE, CALCULATE C THE MODAL CORRECTION TO THE U PARTIAL C DUA = 0 IF (.NOT.MODAL) GO TO 900 C C IF RF-9, SPLIT THE DISPLACEMENTS FROM THE TOTAL VECTOR C UAD = UPART IF (RFNO .NE. 9) GO TO 500 UAD = SCR9 CALL RCOVVA (UPART,1,0,UAD,0,0,LASTSS,DZ(IDPCOR),DZ(IDPCOR), 1 DZ(IDPCOR)) C C PARTITION THE PARTIAL DISPLACEMENTS TO THE OMITTED AND C BOUNDARY SIZES C 500 ITEM = UPRT CALL MTRXI (SCR2,LASTSS,UPRT,0,RC) IF (RC .NE. 1) GO TO 6317 RULE = 0 MRGZ = LCOREZ - 14 IDP = (ICORE + 14)/2 + 1 MCB(1) = UAD CALL RDTRL (MCB) CALL MAKMCB (MCB11,SCR3,NROWO,RECT,MCB(5)) CALL MAKMCB (MCB21,SCR4,MCB(3)-NROWO,RECT,MCB(5)) MCB11(2) = MCB(2) MCB21(2) = MCB(2) MCB12(1) = 0 MCB22(1) = 0 C Z(ICORE) = SCR2 CALL RDTRL (Z(ICORE)) CALL MAKMCB (Z(ICORE+7),0,MCB(2),RECT,RSP) Z(ICORE+8) = 1 CALL SOFCLS C CALL BUG (NHPDAT,500,MCB(1),37) CALL PARTN (Z(ICORE+7),Z(ICORE),DZ(IDP)) CALL WRTTRL (MCB11) CALL WRTTRL (MCB21) C CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) C C CALCULATE THE CORRECTION TERMS C C DUO = GI*UB - UO C ITEM = GIMS CALL MTRXI (SCR6,LASTSS,GIMS,0,RC) IF (RC .NE. 1) GO TO 6317 MCBA(1) = SCR6 CALL RDTRL (MCBA) DO 520 I = 1,7 MCBB(I) = MCB21(I) MCBC(I) = MCB11(I) 520 CONTINUE CALL MAKMCB (MCBD,SCR9,MCBA(3),RECT,MCBB(5)) SIGNAB = 1 SIGNC =-1 TFLAG = 0 SCRM = 308 MPREC = 0 CALL SOFCLS MPYZ = MRGZ CALL MPYAD (DZ(IDP),DZ(IDP),DZ(IDP)) CALL WRTTRL (MCBD) C C MERGE DUO TO -A- SIZE C DO 540 I = 1,7 540 MCB11(I) = MCBD(I) MCB21(1) = 0 DUA = SCR4 CALL MAKMCB (MCB,DUA,Z(ICORE+2),RECT,MCB11(5)) MCB(2) = MCBD(2) IF (RFNO .EQ. 9) MCB(2) = 3*MCBD(2) C C SET UP A NULL ROW PARTITIONING VECTOR (OR FOR RF-9) C SET UP A VECTOR THAT WILL MERGE IN A NULL VELOCITY AND C ACCELERATION VECTOR FOR EACH DISPLACEMENT VECTOR C NRO = MCB(2) CALL MAKMCB (Z(ICORE+7),SCR3,NRO,RECT,RSP) IF (NRO+15 .GT. LCOREZ) GO TO 9008 DO 550 I = 1,NRO 550 RZ(ICORE+14+I) = 0.0 IF (RFNO .NE. 9) GO TO 570 DO 560 I = 1,NRO,3 RZ(ICORE+15+I) = 1.0 560 RZ(ICORE+16+I) = 1.0 570 CONTINUE CALL GOPEN (SCR3,Z(BUF1),WRTREW) TYPIN = 1 TYPOT = 1 IRO = 1 INCRP = 1 CALL PACK (Z(ICORE+15),SCR3,Z(ICORE+7)) CALL CLOSE (SCR3,REW) CALL WRTTRL (Z(ICORE+7)) CALL MERGE (Z(ICORE+7),Z(ICORE),DZ(IDP)) CALL WRTTRL (MCB) C C ADD THE PARTIAL DISPLACEMENT VECTOR TO THE DISPLACEMENTS FROM C THE OMITS, INERTIAL, DAMPING, AND MODAL CORRECTION EFFECTS C TO GET THE FINAL DISPLACEMENT VECTOR FOR THIS SUBSTRUCTURE C 900 NOMAT = 2 IF (DUA .NE. 0) NOMAT = 3 TYPA = 1 ALPHA = 1.0 MCBAA(1) = UPART CALL RDTRL (MCBAA) TYPB = 1 BETA = 1.0 MCBBB(1) = UAO CALL RDTRL (MCBBB) IF (DUA .EQ. 0) GO TO 910 TYPC = 1 GAMA = 1.0 MCBCC(1) = DUA CALL RDTRL (MCBCC) 910 CALL MAKMCB (MCBXX,UA,MCBAA(3),RECT,MCBAA(5)) MCBXX(2) = MCBAA(2) LCOR = LCOREZ CALL SOFCLS CALL SADD (DZ(IDPCOR),DZ(IDPCOR)) CALL WRTTRL (MCBXX) C C NORMAL RETURN C SIGNAB = 1 RETURN C C ERROR MESSAGES C 6317 IF (RC .EQ. 2) RC = 3 CALL SMSG (RC-2,ITEM,LASTSS) 9000 IOPT = -1 RETURN C 9008 CALL MESAGE (8,0,NAME) GO TO 9000 END ================================================ FILE: mis/rcovuo.f ================================================ SUBROUTINE RCOVUO (PID,UAO,LASTSS) C C THIS SUBROUTINE CALCULATES THE FULL SIZE DISPLACEMENT VECTOR ON C ANY OMITTED POINTS. THE OPTIONAL INERTIA AND DAMPING EFFECTS C WILL BE INCLUDED IF REQUESTED. C C FILE USAGE IS AS FOLLOWS C C SCR1 AND SCR5 ARE NOT USED C SCR4 CONTAINS PID ON INPUT AND IS DESTROYED C SCR7 CONTAINS UAO OUTPUT C ALL OTHER SCRATCH FILES ARE USED C INTEGER RULE ,PAO ,BUF1 ,PID , 1 RC ,UAO ,TYPIN ,TYPOT , 2 POVE ,DRY ,STEP ,FSS , 3 RFNO ,UINMS ,UA ,LASTSS(2) , C 4 SOLN ,SRD ,SWRT ,SCHK , 5 IZ(1) ,RD ,RDREW ,WRT , 6 WRTREW ,REW ,EOFNRW ,RSP , 7 RDP ,CSP ,CDP ,SQUARE , 8 RECT ,DIAG ,UPPER ,LOWER , 9 SYM ,SCRA ,SCRB ,SDCMPZ , O SCR4 ,NAME(2) ,POWER ,FILE , 1 MCBPAO(7) ,SCR3 ,UMCB ,BMCB , 2 SCRC ,CHLSKY ,XMCB ,FBSZ , 3 PREC ,SIGN ,SCR2 , 4 UPRT ,SCR7 ,SCR6 ,SCR8 , 5 SOF1 ,SOF2 ,SOF3 ,SCR9 , 6 TYPA ,TYPB DOUBLE PRECISION DZ(1) ,DET ,DETI ,MINDIA CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 , 1 SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM , 1 SWM COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /SADDX / NOMAT ,LCOR ,MCBAA(7) ,TYPA , 1 ALPHA ,ALP(3) ,MCBBB(7) ,TYPB , 2 BETA ,BET(3) ,DUM(36) ,MCBXX(7) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQUARE , 3 RECT ,DIAG ,UPPER ,LOWER , 4 SYM COMMON /PACKX / TYPIN ,TYPOT ,IRO ,NRO , 1 INCRP COMMON /PARMEG/ MCBK(7) ,MCBK11(7) ,MCBK21(7) ,MCBK12(7) , 1 MCBK22(7) ,MRGZ ,RULE COMMON /SFACT / MCBA(7) ,MCBL(7) ,MCBLT(7) ,SCRA , 1 SCRB ,SDCMPZ ,DET ,DETI , 2 POWER ,SCRC ,MINDIA ,CHLSKY COMMON /FBSX / LMCB(7) ,UMCB(7) ,BMCB(7) ,XMCB(7) , 1 FBSZ ,PREC ,SIGN COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1),IZ(1),DZ(1)) DATA NAME / 4HRCOV,4HUO / DATA POVE , LMTX / 4HPOVE,4HLMTX / DATA UPRT , KMTX / 4HUPRT,4HKMTX / DATA SCR2 , SCR3,SCR4,SCR6,SCR7,SCR8,SCR9 / 1 302 , 303 ,304 ,306 ,307 ,308 ,309 / C C SET UP COMMON BLOCKS C LCOREZ = KORSZ(Z) - LREQ - ICORE - 1 IDPCOR = ICORE/2 + 1 RULE = 0 MCBK21(1) = 0 MCBK12(1) = 0 MCBK22(1) = 0 SIGN = 1 C C CALCUATE THE LOADS ON THE OMMITED POINTS C PAO = 0 IF (RFNO .EQ. 3) GO TO 10 PAO = SCR3 CALL RCOVSL (LASTSS,POVE,0,SCR6,SCR7,SCR8,PAO,Z(ICORE),Z(ICORE), 1 SOF3-ICORE-1,.FALSE.,RFNO) MCBPAO(1) = PAO CALL RDTRL (MCBPAO) C C ADD IN OPTIONAL INERTIA AND DAMPING FORCES TO THE LOADS ON THE C OMMITED POINTS C 10 IF (PID .EQ. 0) GO TO 200 IF (PAO .EQ. 0) GO TO 120 NOMAT = 2 TYPA = 1 ALPHA = 1.0 MCBAA(1) = PID CALL RDTRL (MCBAA) TYPB = 1 BETA = 1.0 MCBBB(1) = PAO CALL RDTRL (MCBBB) CALL MAKMCB (MCBXX,SCR6,MCBAA(3),RECT,MCBAA(5)) MCBXX(2) = MCBAA(2) LCOR = LCOREZ CALL SOFCLS CALL SADD (DZ(IDPCOR),DZ(IDPCOR)) CALL WRTTRL (MCBXX) DO 110 I = 1,7 110 MCBPAO(I) = MCBXX(I) CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) GO TO 200 C C NO STATIC LOADS SO THE ADD IS UNECESSARY C 120 MCBPAO(1) = PID CALL RDTRL (MCBPAO) C 200 IF (MCBPAO(1) .LE. 0) GO TO 500 C C CHECK FOR EXISTENCE OF LMTX ON THE SOF. IF IT EXISTS C SKIP THE PARTN AND DECOMP C CALL SOFTRL (LASTSS,LMTX,LMCB(1)) IF (LMCB(1) .NE. 1) GO TO 395 C C BRING IN LMTX FROM SOF AND SET UP FOR FBS DIRECTLY C CALL MTRXI (SCR2,LASTSS,LMTX,0,RC) DO 390 I = 1,7 390 BMCB(I) = MCBPAO(I) LMCB(1) = SCR2 CALL SOFCLS GO TO 411 C C COMPUTE THE KOO PARTITION OF KMTX FOR LASTSS C C COPY THE PARTITIONING VECTOR TO SCR2 C 395 CALL MTRXI (SCR2,LASTSS,UPRT,0,RC) ITEM = UPRT IF (RC .NE. 1) GO TO 6317 C C COPY KMTX TO SCR5 C ITEM = KMTX CALL MTRXI (SCR8,LASTSS,KMTX,0,RC) IF (RC .NE. 1) GO TO 6317 MCBK(1) = SCR8 CALL RDTRL (MCBK) C C PARTITION KMTX INTO KOO. STORE KOO ON SCR4. C CALL SOFCLS IZ(ICORE) = SCR2 CALL RDTRL (IZ(ICORE)) CALL MAKMCB (MCBK11,SCR9,MCBPAO(3),SYM,MCBK(5)) MCBK11(2) = MCBPAO(3) MRGZ = LCOREZ - 7 I = (ICORE+7)/2 + 1 CALL PARTN (Z(ICORE),Z(ICORE),DZ(I)) CALL WRTTRL (MCBK11) C C DECOMPOSE KOO C DO 400 I = 1,7 400 MCBA(I) = MCBK11(I) CALL MAKMCB (MCBL,SCR2,MCBA(3),LOWER,MCBA(5)) MCBLT(1) = SCR8 SCRA = SCR3 IF (SCRA .EQ. MCBPAO(1)) SCRA = SCR6 SCRB = SCR4 IF (SCRB .EQ. MCBPAO(1)) SCRB = SCR6 SCRC = SCR7 SDCMPZ = MRGZ POWER = 1 CHLSKY = 0 CALL SDCOMP (*6311,DZ(IDPCOR),DZ(IDPCOR),DZ(IDPCOR)) CALL WRTTRL (MCBL) C C FORWARD AND BACKWARD SUBSTITUTION TO SOLVE FOR UAO C DO 410 I = 1,7 LMCB(I) = MCBL(I) 410 BMCB(I) = MCBPAO(I) 411 FBSZ = LCOREZ MATTYP = BMCB(5) CALL MAKMCB (XMCB,SCR8,BMCB(3),RECT,MATTYP) PREC = 2 - (MATTYP-2*(MATTYP/2)) CALL FBS (DZ(IDPCOR),DZ(IDPCOR)) CALL WRTTRL (XMCB) C C MERGE UAO INTO THE UA SET C C COPY UPRT BACK TO SCR2 C CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3)) ITEM = UPRT CALL MTRXI (SCR2,LASTSS,UPRT,0,RC) IF (RC .NE. 1) GO TO 6317 CALL SOFCLS IZ(ICORE) = SCR2 CALL RDTRL (IZ(ICORE)) C C SETUP MCB-S IN /PARMEG/ C DO 412 I = 1,7 412 MCBK11(I) = XMCB(I) UAO = SCR7 CALL MAKMCB (MCBK,UAO,IZ(ICORE+2),RECT,MCBK11(5)) MCBK(2) = XMCB(2) IF (RFNO .EQ. 9) MCBK(2) = 3*XMCB(2) C C SETUP A NULL ROW PARTITIONING VECTOR OR FOR RIGID FORMAT 9 A C VECTOR THAT WILL MERGE IN A NULL VELOCITY AND ACCELERATION C VECTOR FOR EACH DISPLACEMENT VECTOR C NRO = MCBK(2) CALL MAKMCB (Z(ICORE+7),SCR6,NRO,RECT,RSP) IF (NRO+15 .GT. LCOREZ) GO TO 9008 DO 420 I = 1,NRO 420 Z(ICORE+14+I) = 0.0 IF (RFNO .NE. 9) GO TO 440 DO 430 I = 1,NRO,3 Z(ICORE+15+I) = 1.0 430 Z(ICORE+16+I) = 1.0 440 CONTINUE CALL GOPEN (SCR6,Z(BUF1),WRTREW) TYPIN = 1 TYPOT = 1 IRO = 1 INCRP = 1 CALL PACK (Z(ICORE+15),SCR6,IZ(ICORE+7)) CALL CLOSE (SCR6,REW) CALL WRTTRL (IZ(ICORE+7)) C MRGZ = LCOREZ - 14 I = (ICORE+14)/2 + 1 CALL MERGE (Z(ICORE+7),Z(ICORE),DZ(I)) CALL WRTTRL (MCBK) C C NORMAL RETURN C RETURN C C NO LOADS SO THE DISPLACEMENTS ARE ZERO C 500 UAO = 0 CALL SOFCLS RETURN C C ERROR PROCESSING C 6311 WRITE (NOUT,6312) SWM,LASTSS 6312 FORMAT (A27,' 6311, SDCOMP DECOMPOSITION FAILED ON KOO MATRIX ', 1 'FOR SUBSTRUCTURE ',2A4) GO TO 9000 6317 IF (RC .EQ. 2) RC = 3 CALL SMSG (RC-2,ITEM,LASTSS) 9000 IOPT = -1 RETURN C 9008 N = 8 IOPT = -1 CALL SOFCLS CALL MESAGE (N,FILE,NAME) CALL CLOSE (PAO,REW) CALL CLOSE (SCR3,REW) RETURN END ================================================ FILE: mis/rcovva.f ================================================ SUBROUTINE RCOVVA (IN,INTYP,OUTT,OUTU,OUTV,OUTA,SSNM,RZ,DZ,CZ) C C THIS SUBROUTINE COMPUTES THE VELOCITIES AND ACCELERATIONS FOR C FOR A GIVEN DISPLACEMENT VECTOR C C INTYP = 0 IN CONTAINS U ONLY AND V AND A ARE CALCULATED C INTYP = 1 U CONTAINS U, V AND A SO THEY ARE SPLIT ONTO OUTU, C OUTV AND OUTA C INTYP =-1 OUTU, OUTV AND OUTA ARE MERGED ONTO OUTT C INTEGER DRY ,RSS ,UA ,NAME(2) , 1 RC ,RFNO ,MCBU(7) ,MCBV(7) , 2 SRD ,SOLN ,BUF1 ,BUF2 , 3 BUF3 ,BUF4 ,INBLK3(15) ,OUTBLK(15) , 4 SYSBUF ,OUTT ,OUTU ,OUTV , 5 OUTA ,MCB(7) ,MCBA(7) ,INBLK(15) , 6 OBLK1(15) ,OBLK2(15) ,OBLK3(15) ,TEMP(4) , 7 FILE ,SSNM(2) ,INBLK1(15) ,INBLK2(15) REAL RZ(4) ,FREQ ,RSCALE ,ISCALE DOUBLE PRECISION DZ(1) ,RVAL ,IVAL COMPLEX CZ(2) ,SCALE CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 , 1 SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM , 1 SWM COMMON /BLANK / DRY ,LOOP ,STEP ,FSS(2) , 1 RFNO ,NEIGV ,LUI ,UINMS(2,5) , 2 NOSORT ,UTHRES ,PTHRES ,QTHRES COMMON /RCOVCR/ ICORE ,LCORE ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,SOF1 ,SOF2 , 2 SOF3 COMMON /RCOVCM/ MRECVR ,UA ,PA ,QA , 1 IOPT ,RSS(2) ,ENERGY ,UIMPRO , 2 RANGE(2) ,IREQ ,LREQ ,LBASIC COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQUARE , 3 RECT ,DIAG ,UPPER ,LOWER , 4 SYM COMMON /CONDAS/ PHI ,TWOPHI COMMON /PACKX / ITINP ,ITOUTP ,IRP ,NRP , 1 INCRP COMMON /UNPAKX/ ITINU ,IRU ,NRU ,INCRU COMMON /TYPE / PR(2) ,NWORDS(4) EQUIVALENCE (TEMP(1),SCALE,RSCALE) ,(TEMP(2),ISCALE) , 1 (INBLK1(1),OBLK1(1)) ,(INBLK2(1),OBLK2(1)) , 2 (INBLK3(1),OBLK3(1)) ,(OUTBLK(1),INBLK(1)) DATA NAME / 4HRCOV,4HVA / DATA SRD / 1 / DATA SOLN / 4HSOLN / C C GET DISPLACEMENT TRAILER AND DETERMINE TYPE C IF (OUTT.NE.0 .AND. OUTU+OUTV+OUTA.NE.0 .AND. INTYP.GE.0) 1 GO TO 9007 C FILE = IN IF (INTYP .LT. 0) FILE = OUTU MCB(1) = FILE CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 9001 NCOL = MCB(2) NROW = MCB(3) IPREC = MCB(5) NWORD = NWORDS(IPREC) NWCOL = NROW*NWORD C C SET UP PACK UNPACK COMMONS C ITINU = IPREC IRU = 1 NRU = NROW INCRU = 1 ITINP = IPREC ITOUTP= IPREC IRP = 1 NRP = NROW INCRP = 1 C C BRANCH ON TYPE OF DISPLACEMENTS OR RIGID FORMAT C IF (INTYP .GT. 0) GO TO 400 IF (INTYP .LT. 0) GO TO 500 C IF (RFNO .GT. 9) GO TO 9007 GO TO (600,600,100,9007,9007,9007,9007,200,400), RFNO C C NORMAL MODES C C CHECK IF VECTORS ARE COMPLEX C 100 IF (IPREC .GE. 3) GO TO 200 C C REAL NORMAL MODES C C V = U*OMEGA C A = -V*OMEGA C IF (LCORE .LT. NWCOL) GO TO 6313 ITEM = SOLN CALL SFETCH (SSNM,SOLN,SRD,RC) IF (RC .NE. 1) GO TO 6000 N = 1 CALL SJUMP (N) IF (N .LT. 0) GO TO 6100 C CALL GOPEN (IN,RZ(BUF1),RDREW) IF (OUTT .NE. 0) CALL GOPEN (OUTT,RZ(BUF2),WRTREW) IF (OUTU .NE. 0) CALL GOPEN (OUTU,RZ(BUF2),WRTREW) IF (OUTV .NE. 0) CALL GOPEN (OUTV,RZ(BUF3),WRTREW) IF (OUTA .NE. 0) CALL GOPEN (OUTA,RZ(BUF4),WRTREW) CALL MAKMCB (MCB,OUTT,NROW,RECT,IPREC) CALL MAKMCB (MCBU,OUTU,NROW,RECT,IPREC) CALL MAKMCB (MCBV,OUTV,NROW,RECT,IPREC) CALL MAKMCB (MCBA,OUTA,NROW,RECT,IPREC) C C LOOP THROUGH EACH COLUMN C DO 180 I = 1,NCOL C C GET SCALE FACTOR FOR THIS COLUMN C CALL SUREAD (RZ,7,NWDS,RC) IF (RC .NE. 1) GO TO 6200 RSCALE = RZ(4) C CALL UNPACK (*110,IN,RZ) GO TO 120 110 DO 105 J = 1,NWCOL 105 RZ(J) = 0.0 120 IF (OUTT .NE. 0) CALL PACK (RZ(1),OUTT,MCB) IF (OUTU .NE. 0) CALL PACK (RZ(1),OUTU,MCBU) C DO 170 J = 1,2 IF (IPREC .EQ. 2) GO TO 140 C DO 130 K = 1,NROW 130 RZ(K) = RSCALE*RZ(K) GO TO 160 C 140 DO 150 K = 1,NROW 150 DZ(K) = RSCALE*DZ(K) C 160 IF (OUTT .NE. 0) CALL PACK (RZ(1),OUTT,MCB) IF (OUTV.NE.0 .AND. J.EQ.1) CALL PACK (RZ(1),OUTV,MCBV) IF (OUTA.NE.0 .AND. J.EQ.2) CALL PACK (RZ(1),OUTA,MCBA) C RSCALE = -RSCALE 170 CONTINUE 180 CONTINUE C C CALL CLOSE (IN,REW) IF (OUTT .NE. 0) CALL CLOSE (OUTT,REW) IF (OUTU .NE. 0) CALL CLOSE (OUTU,REW) IF (OUTV .NE. 0) CALL CLOSE (OUTV,REW) IF (OUTA .NE. 0) CALL CLOSE (OUTA,REW) IF (OUTT .NE. 0) CALL WRTTRL (MCB) IF (OUTU .NE. 0) CALL WRTTRL (MCBU) IF (OUTV .NE. 0) CALL WRTTRL (MCBV) IF (OUTA .NE. 0) CALL WRTTRL (MCBA) GO TO 600 C C COMPLEX NORMAL MODES C C V = U*POLE C A = V*POLE C C FREQUENCY RESPONSE C C V = U*TWOPHI*FREQ*I C A = V*TWOPHI*FREQ*I C 200 IF (LCORE .LT. NWCOL) GO TO 6313 ITEM = SOLN CALL SFETCH (SSNM,SOLN,SRD,RC) IF (RC .NE. 1) GO TO 6000 N = 1 CALL SJUMP (N) IF (N .LT. 0) GO TO 6100 C CALL GOPEN (IN,RZ(BUF1),RDREW) IF (OUTT .NE. 0) CALL GOPEN (OUTT,RZ(BUF2),WRTREW) IF (OUTU .NE. 0) CALL GOPEN (OUTU,RZ(BUF2),WRTREW) IF (OUTV .NE. 0) CALL GOPEN (OUTV,RZ(BUF3),WRTREW) IF (OUTA .NE. 0) CALL GOPEN (OUTA,RZ(BUF4),WRTREW) CALL MAKMCB (MCB ,OUTT,NROW,RECT,IPREC) CALL MAKMCB (MCBU,OUTU,NROW,RECT,IPREC) CALL MAKMCB (MCBV,OUTV,NROW,RECT,IPREC) CALL MAKMCB (MCBA,OUTA,NROW,RECT,IPREC) C C LOOP THROUGH EACH COLUMN C DO 290 I = 1,NCOL C C GET SCALE FACTOR FOR THIS COLUMN C IF (RFNO .EQ. 8) GO TO 204 CALL SUREAD (CZ(1),7,NWDS,RC) IF (RC .NE. 1) GO TO 6200 SCALE = CZ(2) GO TO 206 204 CALL SUREAD (FREQ,1,NWDS,RC) IF (RC .NE. 1) GO TO 6200 SCALE = TWOPHI*FREQ*(0.0,1.0) C 206 CALL UNPACK (*210,IN,CZ(1)) GO TO 230 210 DO 220 J = 1,NWCOL 220 RZ(J) = 0.0 230 IF (OUTT .NE. 0) CALL PACK (CZ(1),OUTT,MCB) IF (OUTU .NE. 0) CALL PACK (CZ(1),OUTU,MCBU) C DO 280 J = 1,2 IF (IPREC .GT. 3) GO TO 250 C DO 240 K = 1,NROW 240 CZ(K) = SCALE*CZ(K) GO TO 270 C 250 NT = NROW*2 DO 260 K = 1,NT,2 RVAL = DZ(K ) IVAL = DZ(K+1) DZ(K ) = RSCALE*RVAL - ISCALE*IVAL 260 DZ(K+1) = RSCALE*IVAL + ISCALE*RVAL C 270 IF (OUTT .NE. 0) CALL PACK (CZ(1),OUTT,MCB) IF (OUTV.NE.0 .AND. J.EQ.1) CALL PACK (CZ(1),OUTV,MCBV) IF (OUTA.NE.0 .AND. J.EQ.2) CALL PACK (CZ(1),OUTA,MCBA) C 280 CONTINUE C 290 CONTINUE C CALL CLOSE (IN,REW) IF (OUTT .NE. 0) CALL CLOSE (OUTT,REW) IF (OUTU .NE. 0) CALL CLOSE (OUTU,REW) IF (OUTV .NE. 0) CALL CLOSE (OUTV,REW) IF (OUTA .NE. 0) CALL CLOSE (OUTA,REW) IF (OUTT .NE. 0) CALL WRTTRL (MCB) IF (OUTU .NE. 0) CALL WRTTRL (MCBU) IF (OUTV .NE. 0) CALL WRTTRL (MCBV) IF (OUTA .NE. 0) CALL WRTTRL (MCBA) GO TO 600 C C THE DISPLACEMENT FILE ALREADY CONTAINS THE VELOCITIES AND C ACCELERATIONS SO WE JUST SANT TO SPLIT THEM UP C 400 IF (LCORE .LT. 0) GO TO 6313 CALL GOPEN (IN,RZ(BUF1),RDREW) IF (OUTU .NE. 0) CALL GOPEN (OUTU,RZ(BUF2),WRTREW) IF (OUTV .NE. 0) CALL GOPEN (OUTV,RZ(BUF3),WRTREW) IF (OUTA .NE. 0) CALL GOPEN (OUTA,RZ(BUF4),WRTREW) C INBLK(1) = IN OBLK1(1) = OUTU OBLK2(1) = OUTV OBLK3(1) = OUTA FILE = IN NCOL = NCOL/3 C DO 410 I = 1,NCOL IF (OUTU .NE. 0) CALL CPYSTR (INBLK,OBLK1,0,I) IF (OUTU .EQ. 0) CALL FWDREC (*9002,IN) IF (OUTV .NE. 0) CALL CPYSTR (INBLK,OBLK2,0,I) IF (OUTV .EQ. 0) CALL FWDREC (*9002,IN) IF (OUTA .NE. 0) CALL CPYSTR (INBLK,OBLK3,0,I) IF (OUTA .EQ. 0) CALL FWDREC (*9002,IN) 410 CONTINUE C CALL CLOSE (IN,REW) IF (OUTU .NE. 0) CALL CLOSE (OUTU,REW) IF (OUTV .NE. 0) CALL CLOSE (OUTV,REW) IF (OUTA .NE. 0) CALL CLOSE (OUTA,REW) MCB(2) = NCOL MCB(1) = OUTU IF (OUTU .NE. 0) CALL WRTTRL (MCB) MCB(1) = OUTV IF (OUTV .NE. 0) CALL WRTTRL (MCB) MCB(1) = OUTA IF (OUTA .NE. 0) CALL WRTTRL (MCB) GO TO 600 C C THE DISPLACEMENTS, VELOCITIES AND ACCLERATIONS ALREADY EXIST AND C ARE TO BE MERGED TOGETHER C 500 IF (LCORE .LT. 0) GO TO 6313 CALL GOPEN (OUTU,RZ(BUF1),RDREW) CALL GOPEN (OUTV,RZ(BUF2),RDREW) CALL GOPEN (OUTA,RZ(BUF3),RDREW) CALL GOPEN (OUTT,RZ(BUF4),WRTREW) C INBLK1(1) = OUTU INBLK2(1) = OUTV INBLK3(1) = OUTA OUTBLK(1) = OUTT C J = 1 DO 510 I = 1,NCOL CALL CPYSTR (INBLK1,OUTBLK,0,J) J = J + 1 CALL CPYSTR (INBLK2,OUTBLK,0,J) J = J + 1 CALL CPYSTR (INBLK3,OUTBLK,0,J) J = J + 1 510 CONTINUE C CALL CLOSE (OUTU,REW) CALL CLOSE (OUTV,REW) CALL CLOSE (OUTA,REW) CALL CLOSE (OUTT,REW) MCB(1) = OUTT MCB(2) = NCOL*3 CALL WRTTRL (MCB) C C NORMAL RETURN C 600 RETURN C C ERRORS C 6000 IF (RC .EQ. 6) GO TO 9100 CALL SMSG (RC-2,ITEM,SSNM) GO TO 9200 6100 CALL SMSG (7,ITEM,SSNM) GO TO 9200 6200 CALL SMSG (RC+4,ITEM,SSNM) GO TO 9200 6313 WRITE (NOUT,6314) SWM,RSS 6314 FORMAT (A25,' 6313, INSUFFICIENT CORE FOR RCOVR MODULE WHILE ', 1 'TRYING TO PROCESS', /34X,'PRINTOUT DATA BLOCKS FOR ', 2 'SUBSTRUCTURE ',2A4) GO TO 9200 9001 N = 1 GO TO 9100 9002 N = 2 GO TO 9100 9007 N = 7 9100 CALL MESAGE (N,FILE,NAME) 9200 IN = 0 CALL CLOSE (IN,REW) IF (OUTT .NE. 0) CALL CLOSE (OUTT,REW) IF (OUTU .NE. 0) CALL CLOSE (OUTU,REW) IF (OUTV .NE. 0) CALL CLOSE (OUTV,REW) IF (OUTA .NE. 0) CALL CLOSE (OUTA,REW) C RETURN END ================================================ FILE: mis/rdmodx.f ================================================ SUBROUTINE RDMODX (FILE,MODE,WORD) C C ENTRY POINTS - RDMODX (FILE ,MODE,WORD) C RDMODY (A ,MODE,WORD) C RDMODE (*,*,*,MODE,WORD) C RDWORD ( MODE,WORD) C RDMODX, RDMODE AND RDWORD CALLED BY PLOT, FIND, PARAM AND SETINP C RDMODY CALLED ONLY BY PLOT C C REVISED 10/10/92 BY G.CHAN/UNISYS C THE ORIGINAL WAY PASSING 'FILE' AND ARRAY 'A' FROM RDMODX AND C RDMODY ARE NOT ANSI FORTRAN77 STANDARD. THERE IS NO GUARANTY THAT C RDMODE AND RDWORD WILL PICK THEM UP CORRECTLY. MODIFICATIONS HERE C ARE (1) SAVE 'FILE' IN /XRDMOD/, AND (2) COMPUTE A REFERENCE C POINTER, REFPTR, SUCH THAT ARRAY A IS ACCESSIBLE VIA ARRAY Z C INTEGER FILEX,CHECK1,CHECK2,BITSON,ENTRY,COMPLF,EOR,BLANK, 1 FILE,REFPTR,Z,A(1),MODE(1),WORD(2),NAME(2),NEXT(2) COMMON /XRDMOD/ FILEX,REFPTR,CHECK1,CHECK2,BITSON,ENTRY COMMON /ZZZZZZ/ Z(1) DATA BLANK , EOR,NAME / 1H ,1000000, 4HRDMO,4HDX / C C -RDMODX- IS CALLED IF -MODE- IS TO BE READ FROM DATA SET -FILE- C ENTRY = 0 FILEX = FILE CHECK1 = 13579 GO TO 10 C C ENTRY RDMODY (A,MODE,WORD) C ========================== C C -RDMODY- IS CALLED IF -MODE- IS TO BE READ FROM THE -A- ARRAY C C COMPUTE THE REFERENCE POINTER FROM Z(1) TO A(1), AND NEXT TIME C WHEN A ARRAY IS USED, USE Z ARRAY WITH THE REFERENCE POINTER C ENTRY = 1 REFPTR = LOCFX(A(1)) - LOCFX(Z(1)) CHECK2 = 24680 10 BITSON = COMPLF(0) RETURN C C ENTRY RDMODE (*,*,*,MODE,WORD) C ============================== C C -RDMODE- IS CALLED TO READ -MODE- C IF MODE = -4, THE NEXT TWO WORDS ARE READ INTO -WORD- C IF MODE IS NEGATIVE AND NOT = -4, ONLY THE NEXT ONE WORD IS READ C INTO -WORD- C RETURN 1 - NUMERIC MODE (-MODE- NEGATIVE) C -MODE- = -1, -WORD- IS INTEGER C -MODE- = -2, -WORD- IS REAL NUMBER C -MODE- = -3, -WORD- IS ZERO ? C -MODE- = -4, -WORD- IS D.P.REAL C RETURN 2 - ALPHABETIC MODE (-MODE- POSITIVE) C RETURN 3 - END OF LOGICAL CARD (RECORD TERMINATED), C -MODE- = 1000000 C IF (ENTRY .NE. 0) GO TO 80 IF (CHECK1 .NE. 13579) CALL MESAGE (-37,0,NAME) C 20 CALL FREAD (FILEX,MODE,1,0) IF (MODE(1)) 70,30,40 30 CALL FREAD (FILEX,0,0,1) GO TO 20 40 IF (MODE(1) .GE. EOR) GO TO 60 50 CALL FREAD (FILEX,NEXT,2,0) IF (NEXT(1).NE.BITSON .AND. NEXT(1).NE.BLANK) RETURN 2 MODE(1) = MODE(1) - 1 IF (MODE(1)) 20,20,50 60 CALL FREAD (FILEX,0,0,1) RETURN 3 C 70 I = 1 IF (MODE(1) .EQ. -4) I = 2 CALL FREAD (FILEX,WORD,I,0) RETURN 1 C 80 IF (CHECK2 .NE. 24680) CALL MESAGE (-37,0,NAME) MODE(1) = Z(ENTRY+REFPTR) ENTRY = ENTRY + 1 IF (MODE(1)) 120,80,90 90 IF (MODE(1) .GE. EOR) GO TO 110 100 NEXT(1) = Z(ENTRY+0+REFPTR) NEXT(2) = Z(ENTRY+1+REFPTR) ENTRY = ENTRY + 2 IF (NEXT(1).NE.BITSON .AND. NEXT(1).NE.BLANK) RETURN 2 MODE(1) = MODE(1) - 1 IF (MODE(1)) 80,80,100 110 ENTRY = ENTRY + 1 RETURN 3 C 120 WORD(1) = Z(ENTRY+REFPTR) ENTRY = ENTRY + 1 IF (MODE(1) .NE. -4) RETURN 1 WORD(2) = Z(ENTRY+REFPTR) ENTRY = ENTRY + 1 RETURN 1 C C ENTRY RDWORD (MODE,WORD) C ======================== C C -RDWORD- IS CALLED TO READ TWO BCD WORDS INTO -WORD- C NOTE - ALL DATA FIELD DELIMITERS ARE SKIPPED C WORD(1) = NEXT(1) WORD(2) = NEXT(2) 130 MODE(1) = MODE(1) - 1 IF (MODE(1) .LE. 0) GO TO 160 IF (ENTRY .NE. 0) GO TO 140 IF (CHECK1 .NE. 13579) CALL MESAGE (-37,0,NAME) CALL FREAD (FILEX,NEXT,2,0) GO TO 150 C 140 IF (CHECK2 .NE. 24680) CALL MESAGE (-37,0,NAME) NEXT(1) = Z(ENTRY +REFPTR) NEXT(2) = Z(ENTRY+1+REFPTR) ENTRY = ENTRY + 2 150 IF (NEXT(1).EQ.BITSON .OR. NEXT(1).EQ.BLANK) GO TO 130 160 RETURN END ================================================ FILE: mis/re2al.f ================================================ SUBROUTINE RE2AL (RE,ALPH) C EXTERNAL LSHIFT INTEGER ALPH(2) COMMON /SYSTEM/ IBUF,NOUT,DUMMY(37),NBPW C CALL FP2A8 (*40,RE,ALPH) IF (NBPW-60) 30,10,20 C C FOR 60- OR 64- BIT MACHINES, SAVE THE SECOND HALF OF REAL NUMBER C IN THE SECOND ALPH WORD. THAT IS - C THE FULL REAL NUMBER IS IN ALPH(1), ALL 8 BYTES, OR C FIRST 4 BYTES IN ALPH(1), AND LAST 4 BYTES IN ALPH(2) C 10 ALPH(2) = LSHIFT(ALPH(1),24) GO TO 30 20 ALPH(2) = LSHIFT(ALPH(1),32) 30 RETURN C 40 WRITE (NOUT,50) 50 FORMAT (99X,'(IN FP2A8, CALLED FROM RE2AL)') CALL MESAGE (-61,0,0) GO TO 30 END ================================================ FILE: mis/read1.f ================================================ SUBROUTINE READ1 (DM,MR,SCR1,SCR2,SCR3,PHIA,USET,NR1,LAMA,SCR4) C INTEGER DM,MR,IMR(7),SYSBUF,SCR1,SCR2,ISCR1(7),PHIA, 1 SCR4,SCR3,NAM(2) DOUBLE PRECISION DCORE(1),SI,TERM CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,NOUT,KSYSTM(63) COMMON /ZZZZZZ/ CORE(1) COMMON /UNPAKX/ ITB,II,JJ,INCUR COMMON /PACKX / ITA1,ITB1,II1,JJ1,INCUR1 COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG EQUIVALENCE (DCORE(1),CORE(1)) DATA NAM / 4HREAD,4H1 / C C BRING MR INTO CORE C LC = KORSZ(CORE) - SYSBUF CALL GOPEN (MR,CORE(LC+1),0) IMR(1) = MR CALL RDTRL (IMR) NR = IMR(2) NR1 = NR II = 1 JJ = NR INCUR= 1 ITB = IMR(5) NR2 = ITB*NR IVI = NR*NR IPHI = IVI IVI2 = ITB*IVI IALPH= 2*IVI ILOOP= 0 K = 0 DO 20 I = 1,NR CALL UNPACK (*12,MR,CORE(K+1)) GO TO 16 C C NULL COLUMN C 12 DO 14 J = 1,NR2 CORE(J+K) = 0.0 14 CONTINUE 16 KKK = K + IVI2 DO 10 J = 1,NR2 CORE(J+KKK) = 0.0 10 CONTINUE IF (ITB .EQ. 1) GO TO 18 KKK = KKK/2 DCORE(KKK+I) = 1.0D0 GO TO 19 18 CORE(KKK+I) = 1.0 19 K = K + NR2 20 CONTINUE CALL CLOSE (MR,1) C C COMPUTE SI C IF (ITB .NE. 2) GO TO 35 30 SI = 0.0D0 DO 50 I = 1,NR TERM = 0.0D0 DO 40 J = 1,NR K = (J-1)*NR + I KK = IVI + J 40 TERM = TERM + DCORE(K)*DCORE(KK) K = IVI + I SI = SI + TERM*DCORE(K) 50 CONTINUE IF (SI .GT. 0.0D0) GO TO 51 53 WRITE (NOUT,52) UFM 52 FORMAT (A23,' 2200, INCONSISTENT RIGID BODY SYSTEM.') CALL MESAGE (-61,0,NAM) 51 CONTINUE SI = 1.0D0/DSQRT(SI) C C CONVERT VI INTO PHI C DO 60 I = 1,NR K = IVI + I 60 DCORE(K) = DCORE(K) *SI ILOOP = ILOOP + 1 IF (ILOOP .EQ. NR) GO TO 120 C C CALCULATE ALPHAJ C DO 90 J = 1,ILOOP K = IALPH + J DCORE(K) = 0.0D0 DO 80 I = 1,NR TERM = 0.0D0 DO 70 L = 1,NR KK = (L-1)*NR + I KKK = IVI + NR + L 70 TERM = TERM + DCORE(KK)*DCORE(KKK) KK = IPHI + (J-1)*NR + I 80 DCORE(K) = DCORE(K)+TERM*DCORE(KK) 90 CONTINUE C C COMPUTE NEXT V VECTOR C DO 110 I = 1,NR TERM = 0.0D0 DO 100 J = 1,ILOOP KK = IALPH + J K = IPHI + (J-1)*NR + I 100 TERM = TERM + DCORE(KK)*DCORE(K) K = IVI + NR + I 110 DCORE(K) = DCORE(K) - TERM IVI = IVI + NR GO TO 30 35 SSI = 0.0 DO 55 I = 1,NR STERM = 0.0 DO 45 J = 1,NR K = (J-1)*NR + I KK = IVI + J 45 STERM = STERM + CORE(K)*CORE(KK) K = IVI + I SSI = SSI + STERM*CORE(K) 55 CONTINUE IF (SSI .LE. 0.0) GO TO 53 SSI = 1.0/SQRT(SSI) C C CONVERT VI INTO PHI C DO 65 I = 1,NR K = IVI + I 65 CORE(K) = CORE(K)*SSI ILOOP = ILOOP + 1 IF (ILOOP .EQ. NR) GO TO 120 C C CALCULATE ALPHAJ C DO 95 J = 1,ILOOP K = IALPH + J CORE(K) = 0.0 DO 85 I = 1,NR STERM = 0.0 DO 75 L = 1,NR KK = (L-1)*NR + I KKK = IVI + NR + L 75 STERM = STERM + CORE(KK)*CORE(KKK) KK = IPHI + (J-1)*NR + I 85 CORE(K) = CORE(K) + STERM*CORE(KK) 95 CONTINUE C C COMPUTE NEXT V VECTOR C DO 115 I = 1,NR STERM = 0.0 DO 105 J = 1,ILOOP KK = IALPH + J K = IPHI + (J-1)*NR + I 105 STERM = STERM + CORE(KK)*CORE(K) K = IVI + NR + I 115 CORE(K) = CORE(K) - STERM IVI = IVI + NR GO TO 35 C C PACK PHIRO C 120 ITA1 = ITB ITB1 = ITB II1 = 1 JJ1 = NR INCUR1 = 1 CALL GOPEN (SCR1,CORE(LC+1),1) CALL MAKMCB (ISCR1,SCR1,NR,1,ITB) DO 130 I = 1,NR K = IVI2 + (I-1)*NR2 130 CALL PACK (CORE(K+1),SCR1,ISCR1) CALL CLOSE (SCR1,1) CALL WRTTRL (ISCR1(1)) C C COMPUTE PHILO = DM*PHIRO C CALL SSG2B (DM,SCR1,0,SCR2,0,ITB,1,SCR4) C C MERGE PHIRP AND PHILO TO FORM PHIA C CALL SDR1B (SCR3,SCR2,SCR1,SCR4,UA,UL,UR,USET,0,0) CALL GOPEN (SCR4,CORE(LC+1),0) LC = LC - SYSBUF CALL GOPEN (PHIA,CORE(LC+1),1) IMR(1) = SCR4 CALL RDTRL (IMR(1)) NPROB = IMR(3) DCORE(1) = 0.D0 JJ = NPROB INCUR = 1 I3 = 3 DO 170 J = 1,NR II = 0 CALL UNPACK (*150,SCR4,CORE(I3)) II1 = II JJ1 = JJ CALL PACK (CORE(I3),PHIA,ISCR1) GO TO 170 C C NULL COLUMN C 150 II1 = 1 JJ1 = 1 CALL PACK (CORE,PHIA,ISCR1) 170 CONTINUE CALL CLOSE (SCR4,1) CALL CLOSE (PHIA,1) LC = LC + SYSBUF C C PUT NR ZEROS ON LAMA C CALL GOPEN (LAMA,CORE(LC+1),1) DCORE(1) = 0.D0 DO 180 I = 1,NR 180 CALL WRITE (LAMA,CORE,ITB,1) CALL CLOSE (LAMA,2) RETURN END ================================================ FILE: mis/read2.f ================================================ SUBROUTINE READ2 (MAA,PHIA,SCR1,NORM,IA,USET,MI,LAMA,IPOUT,SCR2, 1 EPSI,SCR3) C C COMPUTE MODAL MASS AND NORMALIZES VECTORS ACCORDING TO POINT, C MASS, OR MAX. ALSO LOOKS FOR LARGE OFF DIAGONAL TERM C INTEGER POINT,SYSBUF,PHIA,SCR1,IX(7),IPHIA(7),SCR2, 1 IHEAD(50),SCR3,STURM,NAM(2) REAL LFREQ,CORE(13) DOUBLE PRECISION DCORE(1),DXMAX DIMENSION IM(7),IHEAD1(10) COMMON /CONDAS/ CONSTS(5) COMMON /ZZZZZZ/ ICORE(1) COMMON /SYSTEM/ SYSBUF COMMON /PACKX / ITA1,ITB1,II1,JJ1,INCUR1 COMMON /UNPAKX/ ITB,II,JJ,INCUR COMMON /OUTPUT/ HEAD(1) COMMON /STURMX/ STURM,SHFTPT,KEEP,PTSHFT,NR COMMON /GIVN / GIVENS,TITLE1(100),LFREQ,TITLE2(4),NNV EQUIVALENCE (CONSTS(2),TPHI), (IX(2),NCOL), (IX(3),NROW), 1 (CORE(1),ICORE(1),DCORE(1)), (DXMAX,XMAX) DATA IHEAD1/ 21,9,8*0 / DATA IHEAD / 21,6,7*0,7,40*0/ DATA MASS, POINT / 4HMASS,4HPOIN/ DATA MAX / 4HMAX / DATA NAM / 4HREAD,1H2/ C C READ2 SHOULD NORMALIZE PHIA ACCORDING TO NORM +METHOD C LCORE = KORSZ(CORE) C C DECIDE IF MI WANTED C IMI = 0 IX(1) = MI CALL RDTRL (IX) IF (IX(1) .GT. 0) GO TO 10 EPSI = 0.0 IMI = -1 IF (NORM .EQ. MASS) NORM = MAX 10 IX(1) = PHIA CALL RDTRL (IX) CALL MAKMCB (IPHIA,PHIA,IX(3),IX(4),IX(5)) C C SET UP TO HANDLE IDENTITY MATRIX C IDEN = 0 IM(1) = MAA CALL RDTRL (IM) IF (IM(4) .EQ. 8) IDEN = 1 C C FIND TYPE OF NORMALIZATION C IF (NORM .EQ. MASS) GO TO 310 IPONT = 1 IF (NORM .EQ. POINT) GO TO 30 IF (IA.LT.1 .OR. IA.GT.NROW) GO TO 20 C C TYPE IS MAX C 20 IPONT = 0 C C POINT C 30 ASSIGN 40 TO ICOPY GO TO 420 C 40 CONTINUE C C PROCESS PHIA - NORMALIZE - COPY TO PHIA C LCORE = LCORE - SYSBUF CALL GOPEN (SCR1,CORE(LCORE+1),0) LCORE = LCORE - SYSBUF CALL GOPEN (PHIA,CORE(LCORE+1),1) ITB = IX(5) JJ = NROW II = 1 INCUR = 1 ITA1 = ITB ITB1 = ITB INCUR1= 1 DO 130 I = 1,NCOL CALL UNPACK (*100,SCR1,CORE(3)) II1 = II JJ1 = JJ JJJ = 1 IF (ITB .EQ. 2) GO TO 66 DO 60 J = 1,NROW IF (ABS(CORE(J+2)) .GT. ABS(CORE(JJJ+2))) JJJ = J 60 CONTINUE JJJ = JJJ + 2 IF (IPONT .NE. 1) GO TO 62 JJJ = IA + 2 IF (ABS(CORE(JJJ)) .LE. 1.0E-15) GO TO 90 62 XMAX = CORE(JJJ) DO 64 J = 1,NROW CORE(J+2) = CORE(J+2)/XMAX 64 CONTINUE GO TO 90 66 DO 68 J = 1,NROW IF (DABS(DCORE(J+1)) .GT. DABS(DCORE(JJJ+1))) JJJ = J 68 CONTINUE JJJ = JJJ + 1 IF (IPONT .NE. 1) GO TO 70 JJJ = IA + 1 IF (DABS(DCORE(JJJ)) .LE. 1.0D-15) GO TO 90 70 DXMAX = DCORE(JJJ) DO 72 J = 1,NROW DCORE(J+1) = DCORE(J+1)/DXMAX 72 CONTINUE 90 CALL PACK (CORE(3),PHIA,IPHIA) GO TO 130 100 II1 = 1 JJ1 = 1 CALL PACK (CORE,PHIA,IPHIA) 130 CONTINUE CALL CLOSE (PHIA,1) CALL CLOSE (SCR1,1) C C COMPUTE MODAL MASS C 140 IF (IMI .LT. 0) GO TO 170 IF (IDEN .EQ. 0) GO TO 160 ASSIGN 150 TO ICOPY GO TO 420 150 CALL SSG2B (PHIA,SCR1,0,MI,1,ITB,1,SCR3) GO TO 170 C 160 CALL SSG2B (MAA,PHIA,0,SCR2,0,ITB,1,SCR3) CALL SSG2B (PHIA,SCR2,0,MI,1,ITB,1,SCR3) C C COMPUTE GENERALIZED STIFFNESS C C C COMPUTE FREQUENCY ETC C 170 ITB = 1 II = 1 JJ = NCOL INCUR= 1 IMSG = 0 CALL GOPEN (LAMA,CORE(LCORE+1),0) CALL READ (*500,*172,LAMA,CORE(1),LCORE,1,NLAMA) GO TO 520 C C NLAMA IS THE NUMBER OF EIGENVALUES FOUND NCOL IS TH NUMBER OF C VECTORS C C C BRING IN THE ORDER FOUND C 172 KK = NLAMA + 2*NCOL + 8 C C KK IS THE POINTER TO THE ORDER FOUND C L1 AND L2 ARE COUNTERS FOR MISSING LOW FREQ. BELOW SHIFT POINTS C STURM AND KEEP WERE SAVED IN SDCOMP, SHFTPT AND PTSHFT IN FEER C AND INVPWR (REAL SYMMETRIC EIGENVALUE PROBLEM ONLY) C CALL READ (*500,*171,LAMA,ICORE(KK+1),LCORE,1,IFLAG) GO TO 520 171 CALL CLOSE (LAMA,1) CALL GOPEN (LAMA,CORE(LCORE+1),1) CALL WRITE (LAMA,IHEAD(1),50,0) CALL WRITE (LAMA,HEAD(1),96,1) LCORE = LCORE + SYSBUF CORE(NLAMA+6) = 0.0 CORE(NLAMA+7) = 0.0 IF (IMI .LT. 0) GO TO 180 CALL GOPEN (MI,CORE(LCORE+1),0) L1 = STURM L2 = KEEP SHFTPT = SHFTPT + 1.E-10 PTSHFT = PTSHFT + 1.E-10 180 DO 210 I = 1,NLAMA ICORE(NLAMA+1) = I L = KK + I ICORE(NLAMA+2) = ICORE(L) CORE(NLAMA+3) = CORE(I) CORE(NLAMA+4) = SQRT(ABS(CORE(I))) CORE(NLAMA+5) = CORE(NLAMA+4)/TPHI IF (CORE(I).GT.1.E-10 .AND. CORE(I).LE.SHFTPT) L1 = L1 - 1 IF (CORE(I).GT.1.E-10 .AND. CORE(I).LE.PTSHFT) L2 = L2 - 1 IF (IMI .LT. 0) GO TO 200 IF (I .GT. NCOL) GO TO 195 L = NLAMA + I + 7 K = L - 1 + I CALL UNPACK (*195,MI,CORE(L)) CORE(NLAMA+6) = CORE(K) CORE(NLAMA+7) = CORE(K)*CORE(NLAMA+3) CORE(L) = CORE(K) C C ZERO OUT GENERALIZED MASS AND GENERALIZED STIFFNESS FOR THE RIGID C BODY MODE OF ZERO FREQUENCY C C (G.C. 3/92 C NEXT 4 NEW LINES CAUSED DEMO T03121A TO DIE. MORE STUDY IS NEEDED) C C IF (CORE(I) .GE. 0.0) GO TO 200 C CORE(NLAMA+3) = 0.0 C CORE(NLAMA+4) = 0.0 C CORE(NLAMA+5) = 0.0 GO TO 200 C C NO MORE VECTORS C REPLACE STURM BY SMALLER OF L1 OR L2, IF NOT ALL LOWER MODES FOUND C SET STRUM TO -1 IF THERE IS NOT ENOUGH INFORMATION, C SET STRUM TO -999 IF DIAG 37 IS REQUESTED (NOT TO PRINT MESSAGE). C 195 CORE(NLAMA+6) = 0.0 CORE(NLAMA+7) = 0.0 200 CALL WRITE (LAMA,CORE(NLAMA+1),7,0) 210 CONTINUE IF (L1 .LT. 0) L1 = 0 IF (L2 .LT. 0) L2 = 0 IF (L1 .GT. L2) L1 = L2 IF (STURM.NE.-1 .AND. L1.GE.0) STURM = L1 IF (STURM.GT.NR .AND. NR.GT.0) STURM = STURM - NR IF (KEEP.LE.0 .AND. PTSHFT.GT.0.) STURM = -1 CALL SSWTCH (37,J) IF (J .EQ. 1) STURM = -999 CALL CLOSE (LAMA,1) IF (IMI .LT. 0) GO TO 220 CALL CLOSE (MI,1) 220 IMSG = 0 XMAX = 0. XMAX1 = 0. ISTOR = 0 JSTOR = 0 C C EPSI = 0 IMPLIES TO NOT CHECK MODAL MASS TERMS C IF (EPSI .EQ. 0.0) GO TO 270 CALL GOPEN (MI,CORE(LCORE+1),0) DO 260 I = 1,NCOL M = NLAMA + I + 7 MCOL = M + NCOL CALL UNPACK (*540,MI,CORE(MCOL)) IF (CORE(M) .EQ. 0) GO TO 260 DO 250 J = 1,NCOL IF (I .EQ. J) GO TO 260 K = MCOL + J - 1 MM = NLAMA + J + 7 IF (CORE(MM) .EQ. 0.0) GO TO 250 GM = ABS(CORE(K))/SQRT(ABS(CORE(M)*CORE(MM))) IF (GM .GT. XMAX1) GO TO 240 230 CONTINUE IF (GM .LE. EPSI) GO TO 250 IMSG = IMSG + 1 XMAX = AMAX1(XMAX,GM) GO TO 250 240 XMAX1 = GM ISTOR = I JSTOR = J GO TO 230 250 CONTINUE 260 CONTINUE C CALL CLOSE (MI,1) IF (IMSG .NE. 0) CALL MESAGE (34,XMAX,EPSI) 270 IF (GIVENS .EQ. .0) GO TO 275 IF (NNV .NE. 0) GO TO 275 IF (LFREQ .GT. .0) GO TO 600 275 CALL GOPEN (IPOUT,CORE(LCORE+1),0) CALL READ (*510,*280,IPOUT,CORE(1),LCORE,1,IFLAG) GO TO 520 280 CALL CLOSE (IPOUT,1) CALL GOPEN (IPOUT,CORE(LCORE+1),1) IHEAD1(3) = ICORE(1) CALL WRITE (IPOUT,IHEAD1,10,0) I0 = 0 CORE (I0+ 9) = XMAX1 ICORE(I0+10) = ISTOR ICORE(I0+11) = JSTOR ICORE(I0+12) = IMSG ICORE(I0+13) = STURM CALL WRITE (IPOUT,CORE(2),40,0) CALL WRITE (IPOUT,HEAD,96,1) IF (ICORE(1) .NE. 1) GO TO 290 IFLAG = IFLAG - 12 IHEAD1( 3) = 3 IHEAD1(10) = 6 CALL WRITE (IPOUT,IHEAD1,50,0) CALL WRITE (IPOUT,HEAD,96,1) IF (IFLAG .EQ. 0) GO TO 290 CALL WRITE (IPOUT,CORE(13),IFLAG,0) 290 CALL CLOSE (IPOUT,1) IX(1) = IPOUT CALL WRTTRL (IX) RETURN C C COMPUTE UNNORMALIZED MODAL MASS C 310 ASSIGN 320 TO ICOPY GO TO 420 320 IF (IDEN .EQ. 0) GO TO 330 C C MASS MATRIX IS IDENTITY C CALL SSG2B (PHIA,SCR1,0,MI,1,IPHIA(5),1,SCR3) GO TO 340 C 330 CALL SSG2B (MAA,PHIA,0,SCR2,0,IPHIA(5),1,SCR3) CALL SSG2B (PHIA,SCR2,0,MI,1,IPHIA(5),1,SCR3) C C BRING IN DIAGONALS C 340 LCORE = LCORE - SYSBUF CALL GOPEN (MI,CORE(LCORE+1),0) ITB = IPHIA(5) II = 1 JJ = NCOL IF (ITB .NE. 2) GO TO 356 DO 350 J = 1,NCOL CALL UNPACK (*348,MI,DCORE(NCOL+1)) K = NCOL + J DCORE(J) = 1.0D0/DSQRT(DABS(DCORE(K))) GO TO 350 348 DCORE(J) = 0.0D0 350 CONTINUE GO TO 362 356 DO 360 J = 1,NCOL CALL UNPACK (*358,MI,CORE(NCOL+1)) K = NCOL + J CORE(J) = 1.0/SQRT(ABS(CORE(K))) GO TO 360 358 CORE(J) = 0.0 360 CONTINUE 362 CALL CLOSE (MI,1) C C DIVIDE EACH TERM BY SQRT (MI) C CALL GOPEN (SCR1,CORE(LCORE+1),0) LCORE = LCORE - SYSBUF CALL GOPEN (PHIA,CORE(LCORE+1),1) II = 1 JJ = NROW INCUR = 1 ITA1 = ITB ITB1 = ITB NCOL2 = ITB*NCOL NROW2 = ITB*NROW II1 = 1 JJ1 = NROW INCUR1= 1 DO 410 I = 1,NCOL CALL UNPACK (*390,SCR1,CORE(NCOL2+1)) IF (ITB .NE. 2) GO TO 368 DO 366 J = 1,NROW K = NCOL + J 366 DCORE(K) = DCORE(K)*DCORE(I) GO TO 380 368 DO 370 J = 1,NROW K = NCOL+J 370 CORE(K) = CORE(K)*CORE(I) 380 CALL PACK (CORE(NCOL2+1),PHIA,IPHIA) GO TO 410 390 DO 400 J = 1,NROW2 K = NCOL2 + J 400 CORE(K) = 0.0 GO TO 380 410 CONTINUE CALL CLOSE (PHIA,1) CALL CLOSE (SCR1,1) GO TO 140 C C COPY ROUTINE - PHIA TO SCR1 C 420 LCORE = LCORE - SYSBUF CALL GOPEN (PHIA,CORE(LCORE+1),0) LCORE = LCORE - SYSBUF CALL GOPEN (SCR1,CORE(LCORE+1),1) DCORE(1) = 0.0D+0 ITB = IX(5) ITA1 = ITB ITB1 = ITB INCUR = 1 INCUR1= 1 DO 440 JJJ = 1,NCOL II = 0 CALL UNPACK (*435,PHIA,CORE(3)) II1 = II JJ1 = JJ CALL PACK (CORE(3),SCR1,IPHIA) GO TO 440 435 II1 = 1 JJ1 = 1 CALL PACK (CORE,SCR1,IPHIA) 440 CONTINUE CALL CLOSE (PHIA,1) CALL CLOSE (SCR1,1) LCORE = LCORE + 2*SYSBUF GO TO ICOPY, (40,320,150) 490 CALL MESAGE (-2,IP1,NAM) 500 IP1 = LAMA GO TO 490 510 IP1 = IPOUT GO TO 490 520 CALL MESAGE (-8,0,NAM) 530 CALL MESAGE (-3,LAMA,NAM) 540 CALL MESAGE (-5,MI,NAM) C C ENTRY READ5 (IPOUT) C =================== C C PUT OUT EIGENVALUE SUMMARY IN CASE NO EIGENVALUES FOUND C LCORE = KORSZ(CORE) - SYSBUF ISTOR = 0 JSTOR = 0 IMSG = 0 XMAX1 = 0. IX(2) = 1 DO 560 I = 3,7 IX(I) = 0 560 CONTINUE GO TO 275 C C REARRANGE THE EIGENVALUE TABLE, IF NECESSARY, FOR GIVENS METHOD C 600 CALL GOPEN (LAMA,CORE(LCORE+1),0) CALL SKPREC (LAMA,1) NWORDS = 7*NLAMA CALL READ (*500,*530,LAMA,CORE(1),NWORDS,1,NWRDS) REFREQ = CORE(3) DO 640 I = 2,NLAMA J = 7*(I-1) + 3 IF (CORE(J) .GE. REFREQ) GO TO 640 REFREQ = CORE(J) GO TO 660 640 CONTINUE GO TO 740 660 CALL BCKREC (LAMA) CALL CLOSE (LAMA,2) CALL GOPEN (LAMA,CORE(LCORE+1),3) DO 700 I = 1,NLAMA IF (CORE(3) .EQ. REFREQ) GO TO 720 T2 = CORE(2) T3 = CORE(3) T4 = CORE(4) T5 = CORE(5) T6 = CORE(6) T7 = CORE(7) DO 680 J = 2,NLAMA K = 7*(J-2) CORE(K+2) = CORE(K+ 9) CORE(K+3) = CORE(K+10) CORE(K+4) = CORE(K+11) CORE(K+5) = CORE(K+12) CORE(K+6) = CORE(K+13) CORE(K+7) = CORE(K+14) 680 CONTINUE K = 7*(NLAMA-1) CORE(K+2) = T2 CORE(K+3) = T3 CORE(K+4) = T4 CORE(K+5) = T5 CORE(K+6) = T6 CORE(K+7) = T7 700 CONTINUE 720 CALL WRITE (LAMA,CORE(1),NWORDS,1) 740 CALL CLOSE (LAMA,1) GO TO 275 END ================================================ FILE: mis/read3.f ================================================ SUBROUTINE READ3 (NOVECT,NCOL,SR1FIL,SR2FIL,FILC,KDBLM) C C READ3 PACKS THE EIGENVECTORS AND EIGENVALUES AND PUTS THEM OUT IN C ASCENDING ORDER C C LAST REVISED 1/92, BY G.CHAN/UNISYS C ZERO OUT RIGID BODY FREQUENCIES IF METHOD IS 'FEER' (NOT 'FEER-X' C NOR 'FEER-Q') C INTEGER SYSBUF ,IZ(1) ,RSP ,RDP , 1 FILELM ,FILEVC ,SR1FIL ,SR2FIL , 2 FILC ,OPTION ,OPTN2 ,FEER , 3 DASHZ ,STURM INTEGER RDREW DOUBLE PRECISION DXX(2) DIMENSION NAM(2) ,FILEVC(7),FILELM(7) COMMON /ZZZZZZ/ Z(1) COMMON /STURMX/ STURM ,SHFTPT COMMON /REIGKR/ OPTION ,OPTN2 COMMON /SYSTEM/ SYSBUF ,NOUT ,SYSTM(52),IPREC COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP COMMON /PACKX / ITYPA ,ITYPB ,IPAK ,JPAK , 1 INCR COMMON /UNPAKX/ ITYPU ,IUNP ,JUNP ,INCRU EQUIVALENCE (IZ(1),Z(1)) DATA FEER , DASHZ /4HFEER, 4H-X / DATA NAM / 4HREAD,4H3 /, I2 / 2 / C C FILELM (=KDBLM=LAMA=201) WILL HOLD THE EIGENVALUES UPON RETURN C FILEVC (=FILC =PHIA=202) WILL HOLD THE EIGENVECTORS UPON RETURN C FILELM(1) = KDBLM FILEVC(1) = FILC ITYPA = RSP ITYPB = RSP INCR = 1 IPAK = 1 JPAK = NCOL NCOL2 = IPREC*NCOL ITYPU = RSP INCRU = 1 NOCL = 2*NCOL + 2 NZ = KORSZ(Z) IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF C C READ IN ALL EIGENVALUES C IFILE = SR1FIL CALL GOPEN (SR1FIL,Z(IBUF1),RDREW) I = 1 10 CALL FREAD (SR1FIL,DXX,IPREC,1) Z(I+1) = DXX(1) I = I + 1 IF (I .LE. NOVECT) GO TO 10 CALL CLOSE (SR1FIL,REW) C C SET UP AN INDEX VECTOR AND SORT THE EIGENVALUES C J = NCOL + 2 K = J + NCOL - 1 II = 1 DO 20 I = J,K IZ(I) = II 20 II = II + 1 Z(1) = Z(I2) J = 2 K = J + NOVECT - 1 DO 25 I = J,K IF (Z(I) .LT. Z(1)) Z(1) = Z(I) 25 CONTINUE DO 40 I = 1,NOVECT K = I 30 IF (Z(K+1) .GE. Z(K)) GO TO 40 ZZ = Z(K ) Z(K ) = Z(K+1) Z(K+1) = ZZ J = K + NCOL II = IZ(J) IZ(J ) = IZ(J+1) IZ(J+1) = II K = K - 1 GO TO 30 40 CONTINUE C C ZERO OUT RIGID BODY EIGENVALUES IF THEY ARE PRESENT AND METHOD IS C 'FEER-Z' C I.E. ZERO FREQUENCIES BELOW PTSHFT AND KEEP, AS CHECKED BY STURM C SEQUENCE C IF (STURM .LT. 0) GO TO 45 DO 43 I = 2,NOVECT IK = I + STURM IF (Z(IK).GE.SHFTPT .OR. IK.GT.NOVECT) GO TO 45 IF (Z(I).LT.0. .AND. OPTION.EQ.FEER .AND. OPTN2.EQ.DASHZ) Z(I)= 0. 43 CONTINUE C C READ THE EIGENVECTORS AND PACK THEM IN ASCENDING ORDER C 45 CALL GOPEN (FILEVC,Z(IBUF1),1) IFILE = SR2FIL CALL GOPEN (SR2FIL,Z(IBUF2),RDREW) IPOS = 1 CALL MAKMCB (FILEVC(1),FILC,NCOL,2,RSP) C DO 110 I = 1,NOVECT K = I + NCOL + 1 NO = IZ(K) IF (NO-IPOS) 50,80,70 50 CALL REWIND (SR2FIL) IPOS = NO IF (NO .LE. 0) GO TO 120 60 CALL SKPREC (SR2FIL,NO) GO TO 80 70 NO = NO - IPOS IPOS = IPOS + NO GO TO 60 80 IUNP = 0 CALL UNPACK (*90,SR2FIL,Z(NOCL)) IPOS = IPOS + 1 IPAK = IUNP JPAK = JUNP GO TO 100 90 IPAK = 1 JPAK = 1 Z(NOCL) = 0.0 100 CALL PACK (Z(NOCL),FILEVC,FILEVC) 110 CONTINUE C CALL CLOSE (FILEVC(1),REW) CALL CLOSE (SR2FIL,REW) CALL WRTTRL (FILEVC) C C OUTPUT THE EIGENVALUES, 1ST DATA RECORD C CALL GOPEN (FILELM,Z(IBUF1),1) CALL WRITE (FILELM,Z(I2),NOVECT,1) C C SAVE ORDER FOUND IN 2ND DATA RECORD C CALL WRITE (FILELM,IZ(NCOL+2),NOVECT,1) CALL CLOSE (FILELM(1),REW) FILELM(2) = NOVECT CALL WRTTRL (FILELM) RETURN C 120 CALL MESAGE (-7,FILE,NAM) RETURN C END ================================================ FILE: mis/read4.f ================================================ SUBROUTINE READ4 (LAMA,PHI,SCR1,EPS,MASS) C C READ4 WILL TEST FOR CLOSE AND EQUAL ROOTS AND MAKE SURE THE C CORRESPONDING VECTORS ARE ORTHOGONAL C INTEGER NAME(2) ,PHI(7) ,RSP ,PHI1(7) INTEGER RDREW ,WRTREW CWKBI ALPHA-OSF 9/94 INTEGER SCR1 DOUBLE PRECISION DZ(1) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ KSYSTM(65) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP COMMON /UNPAKX/ ITYPE ,IUNPAK ,JUNPAK ,INCR COMMON /PACKX / ITYPA ,ITYPB ,IPAK ,JPAK , 1 INCRX EQUIVALENCE (KSYSTM(1),ISYS) ,(KSYSTM(2),IOUT) , 1 (DZ(1),Z(1)) DATA NAME / 4HREAD,4H4 / C NCOL = PHI(2) NROW = PHI(3) NZ = KORSZ(Z) IBUF = NZ - ISYS IBUF1 = IBUF - ISYS IBUF2 = IBUF1 - ISYS ICLOS = 0 IDID = 0 IPR = PHI(5) RMULT = .01 ITYPE = RSP IUNPAK= 1 JUNPAK= NROW INCR = 1 ITYPA = RSP ITYPB = RSP IPAK = 1 JPAK = NROW INCRX = 1 EPSI = EPS IF (EPS .LE. 0.) EPSI = .0001 NZ = NZ - ISYS - ISYS - 1 - ISYS CALL MAKMCB (PHI1,SCR1,NROW,2,RSP) IFILE = LAMA CALL GOPEN (LAMA,Z(IBUF),0) CALL READ (*170,*10,LAMA,Z(1),NZ,1,N) GO TO 180 10 CALL CLOSE (LAMA,REW) C C REJECT ALL BUT VALUES FOR WHICH VECTORS EXIST C N = PHI(2) NZ = NZ -N IF (NZ .LT. NROW) GO TO 180 IFILE = PHI(1) CALL GOPEN (PHI,Z(IBUF),0) IPOS = 1 I = 1 EPS1 = RMULT 20 CONTINUE IF (ABS(Z(I))+ABS(Z(I+1)) .LT. EPS1) GO TO 1111 IF (Z(I+1) .EQ. 0.0) GO TO 110 IF (ABS(1.0-Z(I)/Z(I+1)) .GT. EPS1) GO TO 100 1111 IF (ICLOS .NE. 0) GO TO 110 ICLOS = I GO TO 110 30 NUM = I - ICLOS + 1 EPS1 = RMULT C C NUM = NUMBER OF CLOSE ROOTS IN THIS GROUP C ICLOS = THE INDEX OF THE FIRST CLOSE ROOT C IF (IDID .EQ. 1) GO TO 40 IDID = 1 IFILE = SCR1 CALL GOPEN (SCR1,Z(IBUF1),WRTREW) 40 II = N + 1 50 IF (IPOS .EQ. ICLOS) GO TO 70 IFILE = PHI(1) CALL UNPACK (*190,PHI,Z(II)) CALL PACK (Z(II),SCR1,PHI1) IPOS = IPOS + 1 GO TO 50 70 CONTINUE C C CHECK FOR CORE OVERFLOW C EIGENVALUES + EIGENVECTORS + GEN. MASS + ACCUM. C KORE = II + NUM*NROW + NUM*NUM + N + N + 3 IF (KORE .GT. NZ) GO TO 160 DO 80 J = 1,NUM CALL UNPACK (*190,PHI,Z(II)) IPOS = IPOS + 1 II = II + NROW IF (II+NROW .GE. NZ) GO TO 180 80 CONTINUE IJ = II + N + N + 3 II = II/2 + 1 CALL ORTCK (Z(N+1),MASS,Z(IBUF2),NUM,NROW,Z(IJ),DZ(II),EPSI) II = N + 1 DO 90 J = 1,NUM CALL PACK (Z(II),SCR1,PHI1) 90 II = II + NROW ICLOS = 0 100 IF (ICLOS .NE. 0) GO TO 30 110 I = I + 1 IF (I .LT. N) GO TO 20 IF (ICLOS .NE. 0) GO TO 30 IF (IDID .EQ. 0) GO TO 150 IF (IPOS .GT. NCOL) GO TO 121 DO 120 I = IPOS,NCOL CALL UNPACK (*190,PHI,Z) CALL PACK (Z(1),SCR1,PHI1) 120 CONTINUE 121 CALL WRTTRL (PHI1) C C COPY VECTORS FROM SCR1 TO PHI C CALL CLOSE (PHI,REW) CALL CLOSE (SCR1,REW) CALL GOPEN (PHI,Z(IBUF),1) CALL GOPEN (SCR1,Z(IBUF1),RDREW ) CALL MAKMCB (PHI,PHI,NROW,2,IPR) ITYPB = IPR DO 140 I = 1,N CALL UNPACK (*190,SCR1,Z) CALL PACK (Z,PHI,PHI) 140 CONTINUE CALL WRTTRL (PHI) CALL CLOSE (SCR1,REW) 150 CALL CLOSE (PHI,REW) RETURN C 160 EPS2 = EPS1/10. WRITE (IOUT,165) UWM,NUM,I,EPS1,EPS2 165 FORMAT (A25,' 3142, INSUFFICIENT CORE STORAGE FOR EIGENVECTORS ', 1 'ASSOCIATED WITH',I4,' MULTIPLE EIGENVALUES STARTING WITH', 2 /28X,'MODE NUMBER',I4,' USING CURRENT MULTIPLE ROOT ', 3 'CRITERIA. CRITERIA REDUCED FROM ',1P,E12.5,' TO ',E12.5) EPS1 = EPS2 I = ICLOS GO TO 20 170 NO = -2 GO TO 200 180 NO = -8 GO TO 200 190 NO = -7 200 CALL MESAGE (NO,IFILE,NAME) RETURN END ================================================ FILE: mis/read6.f ================================================ SUBROUTINE READ6 (IRIG,GPHIA,NR,PHIA) C C ADDS GIVENS EIGENVECTORS TO RIGID BODY MODES ON PHIA C INTEGER GPHIA,SYSBUF,PHIA,MCB(7),FILE REAL Z(3) COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ IZ(1) COMMON /UNPAKX/ IT2U,IIU,JJU,INCR1U COMMON /PACKX / IT1,IT2,II,JJ,INCR1 EQUIVALENCE (IZ(1),Z(1)) C C IBUF1 = KORSZ(Z) - SYSBUF + 1 IBUF2 = IBUF1 - SYSBUF MCB(1)= GPHIA CALL RDTRL (MCB) NCOL = MCB(2) - NR II = 1 JJ = MCB(3) IT1 = MCB(5) IT2 = MCB(5) IT2U = MCB(5) CALL MAKMCB (MCB,PHIA,JJ,MCB(4),IT1) INCR1 = 1 CALL GOPEN (PHIA,Z(IBUF1),1) IF (NR .EQ. 0) GO TO 21 FILE = IRIG CALL GOPEN (IRIG,Z(IBUF2),0) Z(1) = 0.0 Z(2) = 0.0 DO 20 I = 1,NR IIU = 0 CALL UNPACK (*11,IRIG,Z(3)) II = IIU JJ = JJU CALL PACK (Z(3),PHIA,MCB) GO TO 20 11 II = 1 JJ = 1 CALL PACK (Z,PHIA,MCB) 20 CONTINUE CALL CLOSE (IRIG,1) 21 CONTINUE IF (NCOL .LE. 0) GO TO 31 CALL GOPEN (GPHIA,Z(IBUF2),0) FILE = GPHIA INCR1U = 1 Z(1) = 0.0 Z(2) = 0.0 CALL SKPREC (GPHIA,NR) DO 30 I = 1,NCOL IIU = 0 CALL UNPACK (*35,GPHIA,Z(3)) II = IIU JJ = JJU CALL PACK (Z(3),PHIA,MCB) GO TO 30 35 II = 1 JJ = 1 CALL PACK (Z,PHIA,MCB) 30 CONTINUE CALL CLOSE (GPHIA,1) 31 CALL CLOSE (PHIA,1) CALL WRTTRL (MCB) RETURN END ================================================ FILE: mis/read7.f ================================================ SUBROUTINE READ7 (NR1,OLAMA,OPHIA,NLAMA,NPHIA) C C READ7 COPIES NR VECTORS FROM OPHIA TO NPHIA - C IT ALSO PLACES THE EIGENVALUES ON NLAMA C THIS ROUTINE HANDLES BOTH SINGLE AND DOUBLE PRECISION C INTEGER OLAMA,OPHIA,SYSBUF,IX(7),NAME(2),SGLDBL REAL X(7) DOUBLE PRECISION DCORE(2),DX COMMON /SYSTEM/ SYSBUF COMMON /UNPAKX/ ITB,II,JJ,INCUR COMMON /PACKX / IT1,IT2,IIP,JJP,INCRP COMMON /ZZZZZZ/ CORE(1) EQUIVALENCE (DCORE(1),CORE(1)) , (X(1),DX) DATA NAME / 4HREAD,4H7 / C C GET ORGANIZED C NR = NR1 LC = KORSZ(CORE) IBUF1 = LC - SYSBUF + 1 IBUF2 = IBUF1 -SYSBUF IBUF3 = IBUF2 -SYSBUF IBUF4 = IBUF3 -SYSBUF IX(1) = OPHIA CALL RDTRL (IX) NROW = IX(3) II = 1 JJ = NROW IT1 = IX(5) IT2 = IT1 ITB = IT1 DCORE(1) = 0.0D0 INCRP = 1 ASSIGN 12 TO SGLDBL IF (ITB .EQ. 2) ASSIGN 16 TO SGLDBL INCUR = 1 C C OPEN OLD FILES C CALL GOPEN (OLAMA,CORE(IBUF1),0) CALL FWDREC (*3010,OLAMA) CALL GOPEN (OPHIA,CORE(IBUF2),0) C C OPEN NEW FILES TO WRITE C CALL GOPEN (NLAMA,CORE(IBUF3),1) CALL GOPEN (NPHIA,CORE(IBUF4),1) C C START COPY LOOP C CALL MAKMCB (IX,NPHIA,NROW,IX(4),IT2) DO 10 I = 1,NR CALL READ (*3010,*3020,OLAMA,X,7,0,IFL) II = 0 CALL UNPACK (*150,OPHIA,DCORE(2)) GO TO SGLDBL, (12,16) 12 X(1) = SQRT(X(6)) DO 14 J = 1,NROW 14 CORE(J+2) = CORE(J+2)/X(1) GO TO 20 16 DX = SQRT(X(6)) DO 18 J = 1,NROW 18 DCORE(J+1) = DCORE(J+1)/DX 20 IIP = II JJP = JJ CALL PACK (DCORE(2),NPHIA,IX) 30 DX = X(3) CALL WRITE (NLAMA,DX,2,1) GO TO 10 C C NULL COLUMN C 150 IIP = 1 JJP = 1 CALL PACK (DCORE,NPHIA,IX) GO TO 30 10 CONTINUE CALL CLOSE (OLAMA,1) CALL CLOSE (OPHIA,1) CALL CLOSE (NLAMA,2) CALL CLOSE (NPHIA,1) RETURN C C ERRORS C 3010 NN = -2 3012 IFILE = OLAMA CALL MESAGE (NN,IFILE,NAME) RETURN 3020 NN = -3 GO TO 3012 END ================================================ FILE: mis/redu.f ================================================ SUBROUTINE REDU (CDATA,NX,IX,NAS,IAS,NVAR,VAR,IPRE,IER) C INTEGER CDATA(5),VAR(3,6),BLANK,EQS DIMENSION IX(3,1),IAS(2,1),KEYS(6) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ IBUF,IOUT DATA KEYS / 4HNAMA,4HNAMB,4HNONA,4HNONB,4HPREC,4HBOUN / DATA NAME / 4HNAME/, EQS /4H= /,BLANK/4H / C C INITIALLIZE C DO 10 I = 1,6 10 VAR(1,I) = KEYS(I) C NVAR = 18 DO 20 I = 1,2 VAR(2,I) = BLANK 20 VAR(3,I) = BLANK DO 30 I = 3,6 VAR(2,I) = -1 30 VAR(3,I) = 0 C C DECODE COMMAND C I2 = 4 IF (CDATA(5) .EQ. EQS) I2 = 6 IF (CDATA(1)*2 .LT. I2) GO TO 100 C VAR(2,1) = CDATA(I2 ) VAR(3,1) = CDATA(I2+1) C NVX = 6 C C FIND NAME C DO 40 I = 1,NX IF (IX(1,I) .NE. NAME) GO TO 35 VAR(2,2) = IX(2,I) VAR(3,2) = IX(3,I) GO TO 40 35 IF (IX(1,I) .NE. KEYS(6)) GO TO 37 VAR(2,6) = IX(2,I) VAR(3,6) = IX(3,I) GO TO 40 37 NVX = NVX + 1 DO 38 J = 1,3 38 VAR(J,NVX) = IX(J,I) 40 CONTINUE IF (VAR(2,2) .EQ. BLANK) GO TO 100 IF (VAR(3,6) .LE. 0) GO TO 120 IF (IPRE.LE.0 .OR. IPRE.GT.2) IPRE = 1 C VAR(3,5) = IPRE C C FIND STRUCTURE NUMBERS, B MAY NOT PRE-EXIST C IF (NAS .EQ. 0) GO TO 80 DO 70 I = 1,NAS IF (VAR(2,1).NE.IAS(1,I) .OR. VAR(3,1).NE.IAS(2,I)) GO TO 55 VAR(3,3) = I GO TO 70 55 IF (VAR(2,2).EQ.IAS(1,I) .AND. VAR(3,2).EQ.IAS(2,I)) GO TO 100 70 CONTINUE 80 NAS = NAS + 1 VAR(3,4) = NAS IAS(1,NAS) = VAR(2,2) IAS(2,NAS) = VAR(3,2) IF (VAR(3,3) .NE. 0) GO TO 90 NAS = NAS + 1 VAR(3,3) = NAS IAS(1,NAS) = VAR(2,1) IAS(2,NAS) = VAR(3,1) 90 IER = 0 NVAR = NVX*3 RETURN C 100 WRITE (IOUT,101) UFM 101 FORMAT (A23,' 6614, ILLEGAL OR NON-EXISTANT STRUCTURE NAME USED ', 1 'ABOVE') GO TO 130 120 WRITE (IOUT,121) UFM 121 FORMAT (A23,' 6615, ILLEGAL BOUNDARY SET IDENTIFICATION NUMBER') 130 IER = 1 RETURN END ================================================ FILE: mis/reduce.f ================================================ SUBROUTINE REDUCE C C REDUCE BUILDS THE FOLLOWING DATA BLOCKS C C 1. PVX - THE REDUCTION PARTITIONING VECTOR C 2. USX - THE USET EQUIVALENT VECTOR C 3. INX - THE REDUCTION TRANSFORMATION IDENTITY PARTITION C C THE FOLLOWING BULK DATA CARDS ARE READ C C 1. BDYC C 2. BDYS C 3. BDYS1 C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF LOGICAL INBSET,FSET,BAD,LONLY REAL RZ(1) DIMENSION MODNAM(2),IJK(6),IHD(96),BDYS(2),BDYS1(2), 1 BDYC(2),MNEM(4),NAMOLD(14),NAMNEW(2),ARAY(6), 2 ISID(100),CSET(6),IPSET(6),LISTO(32),LISTN(32), 3 MCB(7),IBITS(6) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR COMMON /SYSTEM/ SYSBUF,OUTT,X1(6),NLPP,X2(2),LINE,X3(2),IDATE(3) COMMON /OUTPUT/ ITITL(96),IHEAD(96) COMMON /CMBFND/ IINAM(2),IIIERR COMMON /TWO / TPOW(32) COMMON /BLANK / STEP,DRY,PORA EQUIVALENCE (RZ(1),Z(1) ) DATA IHD / 4H , 8*4H****, 1 4H S U, 4H B S, 4H T R, 4H U C, 4H T U, 4H R E, 4H , 2 4HM O , 4HD U , 4HL E , 4H R, 4H E D, 4H U C, 4H E *, 3 9*4H**** , 64*4H / DATA NHEQSS, NHBGSS,NHCSTM,NHPLTS/4HEQSS,4HBGSS,4HCSTM,4HPLTS/ DATA MODNAM/ 4HREDU,4HCE / DATA PAPP , LODS, LOAP /4HPAPP,4HLODS,4HLOAP/ C -------------------- C CODES TO LOCATE BULK DATA C -------------------- DATA BDYC/ 910,9 / , BDYS/ 1210,12 / , BDYS1/ 1310,13 / C -------------------- C CASE CONTROL MNEMONICS C -------------------- DATA MNEM/ 4HNAMA , 4HNAMB , 4HBOUN , 4HOUTP / C -------------------- C GINO FILES FOR DATA BLOCKS AND SCRATCH C -------------------- DATA CASECC/ 101 / , GEOM4/ 102 / DATA PVX / 201 / , USX / 202 / , INX/ 203 / DATA SCR1 / 301 / , SCR2 / 302 / , I3 / 3 / C C C I. COMPUTE OPEN CORE AND DEFINE GINO AND SOF BUFFERS C ***************************************************** C IF (DRY .EQ. -2) RETURN IBA = 128 IBO = 4 IBF = 64 NZWD= KORSZ(Z(1)) IF (NZWD .LE. 0 ) CALL MESAGE (-8,0,MODNAM) C LONLY= .FALSE. BUF1 = NZWD - SYSBUF - 2 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF IB1 = BUF3 - SYSBUF IB2 = IB1 - SYSBUF IB3 = IB2 - SYSBUF C C SCORE IS STARTING ADDRESS OF OPEN CORE AND NZ THE LENGTH C SCORE = 1 NZ = IB3 - 1 C C INITIALIZE ACTIVITY ON THE SOF C LITM = LODS IF (PORA .EQ. PAPP) LITM = LOAP CALL SOFOPN (Z(IB1),Z(IB2),Z(IB3)) DO 2111 I = 1,96 IHEAD(I) = IHD(I) 2111 CONTINUE C C II. PROCESS THE CASE CONTROL DATA BLOCK ( CASECC ) C *************************************************** C DO 260 I = 1,14 NAMOLD(I) = 0 260 CONTINUE IFILE = CASECC CALL OPEN (*2001,CASECC,Z(BUF2),0) PRTOPT = 0 NREC = STEP IF (NREC) 200,201,200 200 DO 202 I = 1,NREC CALL FWDREC (*2002,CASECC) 202 CONTINUE C C BEGIN READING CASECC C 201 INBSET = .FALSE. CALL READ (*2002,*2003,CASECC,Z(1),2,0,NNN) NWDSCC = Z(I3-1) DO 203 I = 1,NWDSCC,3 CALL READ (*2002,*2003,CASECC,Z(1),3,0,NNN) C C CHECK FOR CASE CONTROL MNEMONICS C DO 204 J = 1,4 IF (Z(1) .EQ. MNEM(J)) GO TO 205 204 CONTINUE GO TO 203 205 GO TO (206,207,208,209), J 206 NAMOLD(1) = Z(I3-1) NAMOLD(2) = Z(I3 ) GO TO 203 207 NAMNEW(1) = Z(I3-1) NAMNEW(2) = Z(I3 ) GO TO 203 208 INBSET = .TRUE. BSET = Z(I3) GO TO 203 209 PRTOPT = ORF(PRTOPT,Z(I3)) 203 CONTINUE IF (DRY .EQ. 0) PRTOPT = 0 IF (ANDF(PRTOPT,1) .NE. 1) GO TO 2199 CALL PAGE1 WRITE (OUTT,280) (NAMOLD(I),I=1,2),NAMNEW,BSET,(NAMOLD(I),I=1,2) 280 FORMAT (//41X,'S U M M A R Y O F C U R R E N T P R O ', 1 'B L E M', //43X, 2 'NAME OF PSEUDOSTRUCTURE TO BE REDUCED - ',2A4, //43X, 3 'NAME GIVEN TO RESULTANT PSEUDOSTRUCTURE - ',2A4, //43X, 4 'BOUNDARY SET IDENTIFICATION NUMBER - ',I8, //43X, 5 'NAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN ',2A4/) 2199 CONTINUE CALL CLOSE (CASECC,1) C C CHECK FOR ALLOWABILITY OF INPUT C BAD = .FALSE. CALL SFETCH (NAMOLD,NHEQSS,3,ITEST) IF (ITEST .EQ. 4) GO TO 290 261 CALL SFETCH (NAMNEW,NHEQSS,3,ITEST) IF (ITEST.NE.4 .AND. DRY.NE.0) GO TO 291 IF (ITEST.EQ.4 .AND. DRY.EQ.0) GO TO 297 262 IF (.NOT.INBSET) GO TO 292 263 IF (.NOT.BAD) GO TO 300 GO TO 2100 C C IF NO ERRORS, CONTINUE PROCESSING C C 290 WRITE (OUTT,293) UFM,(NAMOLD(I),I=1,2) BAD = .TRUE. GO TO 261 291 CALL SFETCH (NAMNEW,LITM,3,ITEST) IF (ITEST .NE. 3) GO TO 296 LONLY = .TRUE. GO TO 300 296 CONTINUE WRITE (OUTT,294) UFM,(NAMNEW(I),I=1,2) BAD = .TRUE. GO TO 262 292 WRITE (OUTT,295) UFM BAD = .TRUE. GO TO 263 297 WRITE (OUTT,298) UFM,NAMNEW 298 FORMAT (A23,' 6613, FOR RUN=GO, THE REDUCED SUBSTRUCTURE ',2A4, 1 ' MUST ALREADY EXIST.') BAD = .TRUE. GO TO 262 293 FORMAT (A23,' 6601, REQUEST TO REDUCE PSEUDOSTRUCTURE ',2A4, 1 ' INVALID. DOES NOT EXIST ON THE SOF.') 294 FORMAT (A23,' 6602, THE NAME ',2A4,' CAN NOT BE USED FOR THE ', 1 'REDUCED PSEUDOSTRUCTURE. IT ALREADY EXISTS ON THE SOF.') 295 FORMAT (A23,' 6603, A BOUNDARY SET MUST BE SPECIFIED FOR A ', 1 'REDUCE OPERATION.') C C READ FIRST GROUP OF EQSS FOR THE STRUCTURE BEING REDUCED, C PLACE THE NAMES OF THE COMPONENT SUBSTRUCTURES INTO THE C FIRST NWDS WORDS OF OPEN CORE. C 300 KS1 = SCORE CALL SFETCH (NAMOLD,NHEQSS,1,ITEST) CALL SUREAD (Z(KS1),-1,NOUT,ITEST ) C C NCSUB IS THE NUMBER OF COMPONENT SUBSTRUCTURES C NIPOLD IS THE NUMBER OF IP S IN THE STRUCTURE BEING REDUCED C NCSUB = Z(KS1+2) NOUT = NOUT - 4 DO 302 I = 1,NOUT II = I - 1 Z(KS1+II) = Z(KS1+4+II) 302 CONTINUE NWDS = NOUT SCORE= KS1 + NWDS KF1 = SCORE - 1 NZ = NZ - NWDS IF (ANDF(PRTOPT,1) .NE. 1) GO TO 282 WRITE (OUTT,281) (Z(JJ),JJ=KS1,KF1) 281 FORMAT (48X,2A4,4X,2A4,4X,2A4,4X,2A4) 282 CONTINUE C C III. READ BOUNDARY SET ( BDYC ) BULK DATA INTO OPEN CORE FOR C THE REQUESTED SET ( BSET ) FROM THE GEOM4 INPUT DATA BLOCK. C ************************************************************ C KS2 = SCORE IFILE = GEOM4 CALL PRELOC (*2001,Z(BUF1),GEOM4) CALL LOCATE (*490,Z(BUF1),BDYC,FLAG) 401 CALL READ (*2002,*490,GEOM4,ID,1,0,NNN) IF (ID .EQ. BSET) GO TO 402 403 CALL READ (*2002,*2003,GEOM4,ARAY,3,0,NNN) IF (ARAY(3) .EQ. -1) GO TO 401 GO TO 403 C C CORRECT BOUNDARY SET HAS BEEN FOUND, STORE DATA IN SECOND NWBS WOR C OF OPEN CORE. C 402 NWBS = 0 405 BAD = .FALSE. CALL READ (*2002,*2003,GEOM4,Z(KS2+NWBS),3,0,NNN) IF (Z(KS2+NWBS+2) .EQ. -1) GO TO 440 C C MUST CHECK THAT THE SUBSTRUCTURE IS A PHASE1 BASIC SUBSTRUCTURE C AND THAT IT IS A COMPONENT OF THE STRUCTURE BEING REDUCED. C C CHECK FOR COMPONENT C DO 410 I = 1,NWDS,2 II = I - 1 IF (Z(KS1+II).EQ.Z(KS2+NWBS) .AND. Z(KS1+II+1).EQ.Z(KS2+NWBS+1)) 1 GO TO 420 410 CONTINUE C C NOT A COMPONENT C WRITE (OUTT,491) UFM,Z(KS2+NWBS),Z(KS2+NWBS+1) BAD = .TRUE. 491 FORMAT (A23,' 6604, A BOUNDARY SET HAS BEEN SPECIFIED FOR ',2A4, 1 ', BUT IT IS NOT A COMPONENT OF THE', /31X,'PSEUDOSTRUC', 2 'TURE BEING REDUCED. THE BOUNDARY SET WILL BE IGNORED.') C 420 IF (BAD) GO TO 405 NWBS = NWBS + 3 GO TO 405 440 SCORE = KS2 + NWBS KF2 = SCORE - 1 NZ = NZ - NWBS C C SORT ON SET ID C CALL SORT (0,0,3,3,Z(KS2),NWBS) IF (ANDF(RSHIFT(PRTOPT,1),1) .NE. 1) GO TO 2299 II = 0 2203 CALL PAGE1 WRITE (OUTT,2202) BSET 2202 FORMAT (//44X,'SUMMARY OF COMBINED BOUNDARY SET NUMBER',I9, //55X, 1 'BASIC',11X,'BOUNDARY', /52X,'SUBSTRUCTURE',8X,'SET ID', 2 /56X,'NAME',12X,'NUMBER',/) LINE = LINE + 7 2206 LINE = LINE + 1 IF (LINE .GT. NLPP) GO TO 2203 WRITE (OUTT,2205) Z(KS2+II),Z(KS2+II+1),Z(KS2+II+2) 2205 FORMAT (54X,2A4,9X,I8) II = II + 3 IF (II .GT. NWBS - 3) GO TO 2299 GO TO 2206 2299 CONTINUE GO TO 500 CWKBR 8/94 ALPHA-VMS 490 WRITE (OUTT,493) IFM,BSET 490 WRITE (OUTT,493) UFM,BSET GO TO 2200 493 FORMAT (A23,' 6606, BOUNDARY SET ,I8,61H SPECIFIED IN CASE ', 1 'CONTROL HAS NOT BEEN DEFINED BY BULK DATA.') C C IV. READ BDYS BULK DATA PROCESSING ONLY THE SET ID S REFERENCED ON C THE BDYC CARD. IF DATA DOES NOT EXIST, GO TO BDYS1 PROCESSING SEC C ****************************************************************** C 500 J = 0 IERR = 0 CALL LOCATE (*580,Z(BUF1),BDYS,FLAG) 502 CALL READ (*2002,*600,GEOM4,IDHID,1,0,NNN) C C CHECK REQUESTED ID C DO 501 I = KS2,KF2,3 IF (IDHID .EQ. Z(I+2)) GO TO 503 501 CONTINUE 505 CALL READ (*2002,*2003,GEOM4,ARAY,2,0,NNN) IF (ARAY(1).NE.-1 .AND. ARAY(2).NE.-1) GO TO 505 GO TO 502 503 CALL READ (*2002,*2003,GEOM4,ARAY,2,0,NNN) IF (ARAY(1).EQ.-1 .AND. ARAY(2).EQ.-1) GO TO 502 Z(SCORE+J ) = IDHID Z(SCORE+J+1) = ARAY(1) Z(SCORE+J+2) = ARAY(2) J = J + 3 GO TO 503 580 IERR = IERR + 1 C C V. READ BDYS1 BULK DATA AND MERGE WITH BDYS IN OPEN CORE. C ********************************************************* C 600 CALL LOCATE (*620,Z(BUF1),BDYS1,FLAG) 606 CALL READ (*2002,*602,GEOM4,ARAY(1),2,0,NNN) C C CHECK ID C DO 603 I = KS2,KF2,3 IF (ARAY(1) .EQ. Z(I+2)) GO TO 604 603 CONTINUE 605 CALL READ (*2002,*2003,GEOM4,ARAY(3),1,0,NNN) IF (ARAY(3) .NE. -1) GO TO 605 GO TO 606 604 CALL READ (*2002,*2003,GEOM4,ARAY(3),1,0,NNN) IF (ARAY(3) .EQ. -1) GO TO 606 Z(SCORE+J ) = ARAY(1) Z(SCORE+J+1) = ARAY(3) Z(SCORE+J+2) = ARAY(2) J = J + 3 GO TO 604 620 IERR = IERR + 1 602 CALL CLOSE (GEOM4,1) IF (IERR .NE. 2) GO TO 650 WRITE (OUTT,691) UFM,BSET GO TO 2200 691 FORMAT (A23,' 6607, NO BDYS OR BDYS1 BULK DATA HAS BEEN INPUT TO', 1 ' DEFINE BOUNDARY SET',I8) C C SORT COMPLETE BOUNDARY SET DATA ON SET ID IN OPEN CORE C 650 CALL SORT (0,0,3,1,Z(SCORE),J) C C TRANSLATE COMPONENT NUMBER TO BIT PATTERN C IT = SCORE + J - 1 DO 651 I = SCORE,IT,3 CALL ENCODE (Z(I+2)) 651 CONTINUE IF (ANDF(RSHIFT(PRTOPT,2),1) .NE. 1) GO TO 2399 IINC = 0 2303 CALL PAGE1 WRITE (OUTT,2302) 2302 FORMAT (1H0,46X,44HTABLE OF GRID POINTS COMPOSING BOUNDARY SETS, / 1 /52X,8HBOUNDARY ,/52X , 34H SET ID GRID POINT DOF , 2 /52X,34H NUMBER ID NUMBER CODE ,/ ) LINE = LINE + 7 2305 LINE = LINE + 1 IF (LINE .GT. NLPP) GO TO 2303 ICODE = Z(SCORE+IINC+2) CALL BITPAT (ICODE, IBITS) WRITE (OUTT,2304) Z(SCORE+IINC),Z(SCORE+IINC+1), 1 IBITS(1),IBITS(2) 2304 FORMAT (52X,I8,6X,I8,7X,A4,A2) IINC = IINC + 3 IF (IINC .GT. J-3) GO TO 2399 GO TO 2305 2399 CONTINUE C C WRITE BOUNDARY SET DATA ON TO FILE SCR1, ONE LOGICAL RECORD FOR EA C SET ID. C CALL OPEN (*2001,SCR1,Z(BUF2),1) IST = SCORE + 3 IFIN = SCORE + J - 1 N = 1 NSID = 1 ISID(1) = Z(SCORE) CALL WRITE (SCR1,Z(SCORE+1),2,0) DO 660 I = IST,IFIN,3 IF (Z(I) .EQ. ISID(N)) GO TO 661 N = N + 1 NSID = NSID + 1 ISID(N) = Z(I) CALL WRITE (SCR1,ARAY,0,1) 661 CALL WRITE (SCR1,Z(I+1),2,0) 660 CONTINUE CALL WRITE (SCR1,ARAY,0,1) CALL CLOSE (SCR1,1) C C C SCR1 NOW CONTAINS BOUNDARY SET DATA FOR ALL GRID POINTS C C CHECK THAT ALL REQUESTED SID S HAVE BEEN FOUND C NRSID = NWBS/3 J = 0 DO 670 I = KS2,KF2,3 Z(SCORE+J) = Z(I+2) J = J + 1 670 CONTINUE DO 675 I = 1,NRSID II = I - 1 DO 676 J = 1,NSID IF (ISID(J) .EQ. Z(SCORE+II)) GO TO 677 676 CONTINUE GO TO 675 677 Z(SCORE+II) = 0 675 CONTINUE IBAD = 0 DO 678 I = 1,NRSID II = I - 1 IF (Z(SCORE+II) .EQ. 0) GO TO 678 INDEX = (I-1)*3 WRITE (OUTT,692) UFM,Z(KS2+INDEX+2),Z(KS2+INDEX),Z(KS2+INDEX+1) IBAD = 1 678 CONTINUE IF (IBAD .EQ. 1) GO TO 2300 692 FORMAT (A23,' 6608, THE REQUEST FOR BOUNDARY SET ',I8, 1 ' SUBSTRUCTURE ',2A4,' WAS NOT DEFINED.') C C VI. PROCESS THE EQSS FROM THE SOF FOR EACH COMPONENT SUBSTRUCTURE. C ****************************************************************** C CALL OPEN (*2001,SCR1,Z(BUF3),0) CALL OPEN (*2001,SCR2,Z(BUF2),1) CALL SFETCH (NAMOLD,NHEQSS,1,ITEST) NGRP = 1 CALL SJUMP (NGRP) C C READ AND PROCESS EQSS C BAD = .FALSE. DO 701 I = 1,NCSUB II = 2*(I-1) CALL SUREAD (Z(SCORE),-1,NOUT,ITEST) IF (ANDF(RSHIFT(PRTOPT,3),1) .NE. 1) GO TO 2499 CALL CMIWRT (1,NAMOLD,Z(KS1+II),SCORE,NOUT,Z,Z) 2499 CONTINUE C C FIND A BOUNDARY SET FOR THE COMPONENT C INXT = 1 FSET = .FALSE. 737 DO 702 J = INXT,NWBS,3 JJ = J - 1 IF (Z(KS2+JJ).EQ.Z(KS1+II) .AND. Z(KS2+JJ+1).EQ.Z(KS1+II+1)) 1 GO TO 704 702 CONTINUE IF (FSET) GO TO 735 C C NO BOUNDARY SET FOR COMPONENT - IMPLIES ENTIRE SUBSTRUCTURE WILL B C REDUCED - POSSSIBLE ERROR. C IF (NOUT .NE. 0) WRITE(OUTT,791) UIM,Z(KS1+II),Z(KS1+II+1), 1 (NAMOLD(J),J=1,2) 791 FORMAT (A29,' 6609, NO BOUNDARY SET HAS BEEN SPECIFIED FOR ', 1 'COMPONENT ',2A4,' OF PSEUDOSTRUCTURE ',2A4, /35X, 2 'ALL DEGREES OF FREEDOM WILL BE REDUCED.') CALL WRITE (SCR2,ARAY(1),0,1) GO TO 701 C C COMPONENT HAS A BOUNDARY SET, CALL EQSCOD TO ACCOUNT FOR POSSIBLE C MULTIPLE IP NUMBERS. C 704 IF (FSET) GO TO 736 CALL EQSCOD (SCORE,NOUT,Z) C C DEFINE ARRAY TO CB - DEGREES OF FREEDOM RETAINED AS BOUNDARY POINT C IST = SCORE + NOUT IFIN = IST + NOUT/3 - 1 DO 705 J = IST,IFIN Z(J) = 0 705 CONTINUE C C LOCATE BOUNDARY SET ON SCR1 C 736 INXT = JJ + 4 FSET = .TRUE. NSET = Z(KS2+JJ+2) DO 706 J = 1,NSID IF (NSET .EQ. ISID(J)) GO TO 766 706 CONTINUE 766 NREC = J - 1 IF (NREC .EQ. 0) GO TO 716 DO 707 JJ = 1,NREC CALL FWDREC (*2002,SCR1) 707 CONTINUE C C READ BOUNDARY DATA AND UPDATE CB C 716 CALL READ (*2002,*730,SCR1,ARAY,2,0,NNN) C C LOCATE GRID ID IN EQSS AND SETS OF VALUES IF THE GRID IS MULTIPLY C IF (NOUT .EQ. 0) GO TO 717 CALL GRIDIP (ARAY(1),SCORE,NOUT,IPSET,CSET,NO,Z,LOC) IF (IIIERR .NE. 1) GO TO 718 717 BAD = .TRUE. WRITE (OUTT,714) UFM,ARAY(1),NSET,Z(KS1+II),Z(KS1+II+1) 714 FORMAT (A23,' 6611, GRID POINT',I9,' SPECIFIED IN BOUNDARY SET', 1 I9,' FOR SUBSTRUCTURE ',2A4,' DOES NOT EXIST.') 718 IADD = LOC IF (NO .GT. 1) GO TO 710 ICOMP = Z(IADD+2) - LSHIFT(RSHIFT(Z(IADD+2),26),26) GO TO 711 710 ICOMP = 0 DO 712 J = 1,NO CSET(J) = CSET(J) - LSHIFT(RSHIFT(CSET(J),26),26) ICOMP = ORF(ICOMP,CSET(J)) 712 CONTINUE C C CHECK THAT THE RETAINED DOF ARE A SUBSET OF THE ORIGINAL. C 711 IF (ANDF( ARAY(2),ICOMP ).EQ.ARAY(2).OR.IIIERR.EQ.1) GO TO 715 WRITE (OUTT,792) UWM,ARAY(1),Z(KS1+II),Z(KS1+II+1) 792 FORMAT (A25,' 6610, DEGREES OF FREEDOM AT GRID POINT',I9, 1 ' COMPONENT SUBSTRUCTURE ',2A4, /31X,'INCLUDED IN A ', 2 'BOUNDARY SET DO NOT EXIST. REQUEST WILL BE IGNORED.') ARAY(2) = ARAY(2) - (ORF(ARAY(2),ICOMP)-ICOMP) C C UPDATE CB ARRAY C 715 IF (NO .GT. 1) GO TO 757 NENT = (IADD-SCORE)/3 Z(IST+NENT) = ORF(Z(IST+NENT),ARAY(2)) GO TO 716 757 NENT = (IADD-SCORE)/3 DO 758 J = 1,NO Z(IST+NENT+J-1) = ORF(Z(IST+NENT+J-1),ARAY(2)) 758 CONTINUE GO TO 716 C C BOUNDARY SET COMPLETE, IS THERE ANOTHER C 730 CALL REWIND (SCR1) GO TO 737 C C WRITE IP AND CB ON SCR2 C 735 I1 = SCORE I2 = I1 + NOUT - 1 II = -1 DO 740 J = I1,I2,3 II = II + 1 ARAY(1) = ANDF(Z(J+2),Z(IST+II)) IF (ARAY(1) .NE. 0) CALL WRITE (SCR2,Z(J+1),1,0) IF (ARAY(1) .NE. 0) CALL WRITE (SCR2,ARAY(1),1,0) 740 CONTINUE CALL WRITE (SCR2,ARAY(1),0,1) 701 CONTINUE CALL CLOSE (SCR1,1) CALL CLOSE (SCR2,1) IF (BAD) GO TO 2300 C C VII. PROCESS MASTER SIL LIST AND ALLOCATE SPACE FOR CNEW C ******************************************************** C J = 0 800 CALL SUREAD (Z(SCORE+J),2,NOUT,ITEST) IF (ITEST .EQ. 3) GO TO 810 J = J + 3 GO TO 800 810 NW = J - 3 DO 820 I = 1,NW,3 JJ = I - 1 Z(SCORE+JJ+2) = 0 820 CONTINUE CALL OPEN (*2001,SCR2,Z(BUF2),0) 840 CALL READ (*860,*850,SCR2,ARAY,2,0,NNN) ILOC = 3*ARAY(1) - 3 Z( SCORE+ILOC+2 ) = ORF(Z(SCORE+ILOC+2),ARAY(2)) GO TO 840 C C READ NEXT COMPONENT C 850 GO TO 840 C C PROCESSING COMPLETE C 860 CALL CLOSE (SCR2,1) KS3 = SCORE SCORE = SCORE + NW KF3 = SCORE - 1 C C VIII. DEFINE PARTITIONING VECTORS PVX AND USX C ********************************************* C CALL GOPEN (PVX,Z(BUF2),1) C C GENERATE PVX DATA BLOCK IN CORE C JJJ = 0 DO 900 I = 1,NW,3 ICODE = Z(KS3+I) CALL DECODE (ICODE,LISTO,NROW) DO 910 J = 1,NROW RZ(SCORE+JJJ+J-1) = 0.0 910 CONTINUE ICODE = Z(KS3+I+1) CALL DECODE (ICODE,LISTN,NNEW) DO 920 J = 1,NROW LISTO(J) = LISTO(J) + 1 920 CONTINUE IF (NNEW .EQ. 0) GO TO 960 DO 930 J = 1,NNEW LISTN(J) = LISTN(J) + 1 930 CONTINUE C C FIND DOF THAT REMAIN AT GIVEN IP C DO 941 J = 1,NNEW DO 942 JJ = 1,NROW IF (LISTN(J) .EQ. LISTO(JJ)) GO TO 943 942 CONTINUE GO TO 941 943 IJK(J) = JJ 941 CONTINUE DO 950 J = 1,NNEW IK = IJK(J) RZ(SCORE+JJJ+IK-1) = 1.0 950 CONTINUE 960 JJJ = JJJ + NROW 900 CONTINUE C C SET PARAMETERS AND CALL PACK C MCB(1) = PVX MCB(2) = 0 MCB(3) = JJJ MCB(4) = 2 MCB(5) = 1 MCB(6) = 0 MCB(7) = 0 TYPIN = 1 TYPOUT = 1 INCR = 1 IROW = 1 NROW = JJJ CALL PACK (RZ(SCORE),PVX,MCB) CALL WRTTRL (MCB) CALL CLOSE (PVX,1) IF (LONLY) GO TO 1070 C C PROCESS USX USET EQUIVALENT C CALL OPEN (*2001,USX,Z(BUF2),1) CALL FNAME (USX,ARAY ) CALL WRITE (USX,ARAY,2,0) CALL WRITE (USX,0.0 ,1,0) CALL WRITE (USX,0.0 ,1,1) MCB(1) = USX MCB(2) = 0 MCB(3) = JJJ MCB(4) = 0 MCB(5) = IBA + IBO + IBF MCB(6) = 0 MCB(7) = 0 DO 975 J = 1,JJJ JJ = J - 1 CWKBDB 8/94 ALPHA-VMS C IF (RZ(SCORE+JJ) .EQ. 0.0) Z(SCORE+JJ) = IBF + IBO C IF (RZ(SCORE+JJ) .EQ. 1.0) Z(SCORE+JJ) = IBF + IBA CWKBDE 8/94 ALPHA-VMS CWKBNB 8/94 ALPHA-VMS IF (RZ(SCORE+JJ) .NE. 0.0) GO TO 976 Z(SCORE+JJ) = IBF + IBO GO TO 977 976 IF (RZ(SCORE+JJ) .EQ. 1.0) Z(SCORE+JJ) = IBF + IBA 977 CONTINUE CWKBNE 8/94 ALPHA-VMS 975 CONTINUE CALL WRITE (USX,Z(SCORE),JJJ,1) CALL WRTTRL (MCB) CALL CLOSE (USX,1) C C IX. PROCESS THE SOF FOR THE REDUCED STRUCTURE C ********************************************* C C C PROCESS THE EQSS FOR EACH COMPONENT SUBSTRUCTURE C CALL OPEN (*2001,SCR1,Z(BUF1),1) CALL SFETCH (NAMOLD,NHEQSS,1,ITEST) C C UPDATE (SIL,C) REPLACING SIL WITH IPNEW C IPNEW = 1 DO 1002 I = KS3,KF3,3 IF (Z(I+2)) 1003,1004,1003 1004 Z(I) = 0 GO TO 1002 1003 Z(I) = IPNEW IPNEW = IPNEW + 1 1002 CONTINUE NIPNEW = IPNEW - 1 NGRP = 1 CALL SJUMP (NGRP) DO 1020 J = 1,NCSUB CALL SUREAD (Z(SCORE),-1,NOUT,ITEST) C C WRITE EQSS ENTRY ON SCR1 IF THE OLD IP NUMBER STILL EXISTS IN THE C REDUCED STRUCTURE, ALSO UPDATE DOF CODE. C IF (NOUT .EQ. 0) GO TO 1015 DO 1010 I = 1,NOUT,3 II = I - 1 IPO = Z(SCORE+II+1) IADD= KS3 + (IPO-1)*3 IF (Z(IADD) .EQ. 0) GO TO 1010 ARAY(1) = Z(SCORE+II) ARAY(2) = Z(IADD ) ARAY(3) = Z(IADD+2) CALL WRITE (SCR1,ARAY,3,0) 1010 CONTINUE 1015 CALL WRITE (SCR1,0,0,1) 1020 CONTINUE C C GENERATE NEW MASTER (SIL,C) LIST C ISIL = 1 DO 1030 I = KS3,KF3,3 IF (Z(I) .EQ. 0) GO TO 1030 ICODE = Z(I+2) CALL DECODE (ICODE,LISTN,NDOF) ARAY(1) = ISIL ARAY(2) = Z(I+2) CALL WRITE (SCR1,ARAY,2,0) ISIL = ISIL + NDOF 1030 CONTINUE CALL WRITE (SCR1,ARAY,0,1) CALL CLOSE (SCR1,1) IF (DRY .EQ. 0) GO TO 8612 C C WRITE FIRST GROUP OF EQSS C CALL OPEN (*2001,SCR1,Z(BUF1),0) CALL SETLVL (NAMNEW,1,NAMOLD,ITEST,28) IF (ITEST .EQ. 8) GO TO 6518 ITEST = 3 CALL SFETCH (NAMNEW,NHEQSS,2,ITEST) ITEST = 1 CALL SUWRT (NAMNEW,2,ITEST) ITEST = 1 CALL SUWRT (NCSUB,1,ITEST) ITEST = 1 CALL SUWRT (NIPNEW,1,ITEST) DO 1040 I = KS1,KF1,2 ITEST = 1 CALL SUWRT (Z(I),2,ITEST) 1040 CONTINUE ITEST = 2 CALL SUWRT (Z(I),0,ITEST) 1043 CALL READ (*1041,*1042,SCR1,Z(SCORE),NZ,0,NNN) GO TO 2004 1042 CALL SUWRT (Z(SCORE),NNN,2) GO TO 1043 1041 ITEST = 3 CALL SUWRT (ARAY,0,ITEST) CALL CLOSE (SCR1,1) C C WRITE BGSS FILE C CALL SFETCH (NAMOLD,NHBGSS,1,ITEST) NGRP = 1 CALL SJUMP (NGRP) CALL SUREAD (Z(SCORE),-1,NOUT,ITEST) J = 0 C C THE CID S THAT BELONG TO POINTS THAT ARE COMPLETELY REDUCED C WILL BE ACCUMULATED IN BUF3. C JJJ1 = 2 DO 1050 I = 1,NOUT,4 II = I - 1 IF (Z(KS3+JJJ1)) 1052,1051,1052 1052 IF (Z(SCORE+II) .EQ. 0) GO TO 1053 Z(BUF3+J) = Z(SCORE+II) J = J + 1 GO TO 1053 1051 Z(SCORE+II) = -1*TPOW(2) 1053 JJJ1 = JJJ1 + 3 1050 CONTINUE NCSRED = J ITEST = 3 CALL SFETCH (NAMNEW,NHBGSS,2,ITEST) ITEST = 1 CALL SUWRT (NAMNEW,2,ITEST) ITEST = 2 CALL SUWRT (NIPNEW,1,ITEST) DO 1055 I = 1,NOUT,4 II = I - 1 IF (Z(SCORE+II) .EQ. -TPOW(2)) GO TO 1055 ITEST = 1 CALL SUWRT (Z(SCORE+II),4,ITEST) 1055 CONTINUE ITEST = 2 CALL SUWRT (ARAY,0,ITEST) ITEST = 3 CALL SUWRT (ARAY,0,ITEST) C C PROCESS THE CSTM FILES C IF (NCSRED .NE. 0) GO TO 1063 CALL SFETCH (NAMOLD,NHCSTM,1,ITEST) IF (ITEST .EQ. 3) GO TO 1070 CALL SUREAD (Z(SCORE),-2,NOUT,ITEST) Z(SCORE ) = NAMNEW(1) Z(SCORE+1) = NAMNEW(2) ITEST = 3 CALL SFETCH (NAMNEW,NHCSTM,2,ITEST) ITEST = 3 CALL SUWRT (Z(SCORE),NOUT,ITEST) GO TO 1070 1063 CALL SFETCH (NAMOLD,NHCSTM,1,ITEST) IF (ITEST .EQ. 3) GO TO 1070 NGRP = 1 CALL SJUMP (NGRP) C C SORT THE DELETED CID S C CALL SORT (0,0,1,1,Z(BUF3),NCSRED) C C READ ALL RETAINED CSTM DATA INTO OPEN CORE C J = 0 1065 CALL SUREAD (Z(SCORE+J),14,NOUT,ITEST) IF (ITEST .EQ. 2) GO TO 1066 IF (Z(SCORE+J) .EQ. 0) GO TO 1065 KID = Z(SCORE+J) CALL BISLOC (*1065,KID,Z(BUF3),1,NCSRED,JP) J = J + 14 GO TO 1065 1066 ITEST = 3 CALL SFETCH (NAMNEW,NHCSTM,2,ITEST) ITEST = 2 CALL SUWRT (NAMNEW,2,ITEST) ITEST = 2 CALL SUWRT (Z(SCORE),J,ITEST) ITEST = 3 CALL SUWRT (ARAY,0,ITEST) 1070 CONTINUE C C PROCESS LODS ITEM C CALL SFETCH (NAMOLD,LITM,1,ITEST) IF (ITEST .EQ. 3) GO TO 1080 CALL SUREAD (Z(SCORE),-2,NOUT,ITEST) Z(SCORE ) = NAMNEW(1) Z(SCORE+1) = NAMNEW(2) ITEST = 3 CALL SFETCH (NAMNEW,LITM,2,ITEST) ITEST = 3 CALL SUWRT (Z(SCORE),NOUT,ITEST) 1080 CONTINUE IF (LONLY) GO TO 8511 C C PROCESS PLTS ITEM C CALL SFETCH (NAMOLD,NHPLTS,1,ITEST) IF (ITEST .EQ. 3) GO TO 1090 CALL SUREAD (Z(SCORE),-1,NOUT,ITEST) Z(SCORE ) = NAMNEW(1) Z(SCORE+1) = NAMNEW(2) ITEST = 3 CALL SFETCH (NAMNEW,NHPLTS,2,ITEST) ITEST = 2 CALL SUWRT (Z(SCORE),NOUT,ITEST) ITEST = 3 CALL SUWRT (Z(SCORE),0,ITEST) 1090 CONTINUE C C PROCESS OUTPUT REQUESTS C IF (ANDF(RSHIFT(PRTOPT,4),1) .NE. 1) GO TO 8211 C C WRITE EQSS FOR NEW STRUCTURE C CALL SFETCH (NAMNEW,NHEQSS,1,ITEST) CALL SUREAD (Z(SCORE),4,NOUT,ITEST) CALL SUREAD (Z(SCORE),-1,NOUT,ITEST) IST = SCORE + NOUT DO 8212 I = 1,NCSUB CALL SUREAD (Z(IST),-1,NOUT,ITEST) IADD = SCORE + 2*(I-1) CALL CMIWRT (1,NAMNEW,Z(IADD),IST,NOUT,Z,Z) 8212 CONTINUE CALL SUREAD (Z(IST),-1,NOUT,ITEST) CALL CMIWRT (8,NAMNEW,0,IST,NOUT,Z,Z) 8211 IF (ANDF(RSHIFT(PRTOPT,5),1) .NE. 1) GO TO 8311 C C WRITE NEW BGSS C CALL SFETCH (NAMNEW,NHBGSS,1,ITEST) NGRP = 1 CALL SJUMP (NGRP) IST = SCORE CALL SUREAD (Z(IST),-1,NOUT,ITEST) CALL CMIWRT (2,NAMNEW,NAMNEW,IST,NOUT,Z,Z) 8311 IF (ANDF(RSHIFT(PRTOPT,6),1) .NE. 1) GO TO 8411 C C WRITE CSTM ITEM C CALL SFETCH (NAMNEW,NHCSTM,1,ITEST) IF (ITEST .EQ. 3) GO TO 8411 NGRP = 1 CALL SJUMP (NGRP) IST = SCORE CALL SUREAD (Z(IST),-1,NOUT,ITEST) CALL CMIWRT (3,NAMNEW,NAMNEW,IST,NOUT,Z,Z) 8411 IF (ANDF(RSHIFT(PRTOPT,7),1) .NE. 1) GO TO 8511 C C WRITE PLTS ITEM C CALL SFETCH (NAMNEW,NHPLTS,1,ITEST) IF (ITEST .EQ. 3) GO TO 8511 IST = SCORE CALL SUREAD (Z(IST),3,NOUT,ITEST) CALL SUREAD (Z(IST),-1,NOUT,ITEST) CALL CMIWRT (4,NAMNEW,NAMNEW,IST,NOUT,Z,Z) 8511 IF (ANDF(RSHIFT(PRTOPT,8),1) .NE. 1) GO TO 8611 C C WRITE LODS ITEM C CALL SFETCH (NAMNEW,LODS,1,ITEST) IF (ITEST .EQ. 3) GO TO 8611 CALL SUREAD (Z(SCORE),4,NOUT,ITEST) CALL SUREAD (Z(SCORE),-1,NOUT,ITEST) IST = SCORE + NOUT ITYPE = 5 IF (LITM .EQ. LOAP) ITYPE = 7 DO 8512 I = 1,NCSUB IADD = SCORE+2*(I-1) CALL SUREAD (Z(IST),-1,NOUT,ITEST) CALL CMIWRT (ITYPE,NAMNEW,Z(IADD),IST,NOUT,Z,Z) ITYPE = 6 8512 CONTINUE 8611 CONTINUE IF (LONLY) GO TO 1105 C C X. GENERATE THE INX OUTPUT DATA BLOCK C ************************************* C 8612 CALL GOPEN (INX,Z(BUF2),1) MCB(1) = INX MCB(2) = 0 MCB(3) = ISIL - 1 MCB(4) = 1 MCB(5) = 1 MCB(6) = 0 MCB(7) = 0 TYPIN = 1 TYPOUT = 1 INCR = 1 ISILM1 = ISIL - 1 DO 1100 I = 1,ISILM1 IROW = I NROW = I CALL PACK (1.0,INX,MCB) 1100 CONTINUE CALL WRTTRL (MCB) CALL CLOSE (INX,1) 1105 CALL SOFCLS RETURN C 2100 WRITE (OUTT,2101) UFM 2101 FORMAT (A23,' 6535, MODULE REDUCE TERMINATING DUE TO ABOVE ', 1 'SUBSTRUCTURE CONTROL ERRORS.') GO TO 2400 C 2200 WRITE (OUTT,2201) UFM 2201 FORMAT (A23,' 6536, MODULE REDUCE TERMINATING DUE TO ABOVE ', 1 'ERRORS IN BULK DATA.') CALL CLOSE (GEOM4,1) GO TO 2400 C 2300 WRITE (OUTT,2301) UFM 2301 FORMAT (A23,' 6537, MODULE REDUCE TERMINATING DUE TO ABOVE ', 1 'ERRORS.') 2400 DRY = -2 CALL SOFCLS RETURN C 6518 WRITE (OUTT,6519) UFM 6519 FORMAT (A23,' 6518, ONE OF THE COMPONENT SUBSTRUCTURES HAS BEEN ', 1 'USED IN A PREVIOUS COMBINE OR REDUCE.') GO TO 2300 2001 IMSG = -1 GO TO 2998 2002 IMSG = -2 GO TO 2998 2003 IMSG = -3 GO TO 2998 2004 IMSG = -8 2998 CALL MESAGE (IMSG,IFILE,MODNAM) RETURN END ================================================ FILE: mis/reig.f ================================================ SUBROUTINE REIG C C READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/C,N,IPROB C /V,N,NUMMOD/C,N,ICASE/C,N,XLAMDA $ C INTEGER SYSBUF ,EIGR(4) ,ICORE(12),CASECC ,FILE , 1 ERROR(3) ,FEERX ,SDET ,UDET ,INV , 2 SINV ,UINV ,GIVI ,STURM ,GIVN(7) , 3 DM ,EED ,LAMA ,PHIA ,MI , 4 USET ,POUT ,SCR1 ,SCR2 ,SCR3 , 5 SCR4 ,SCR5 ,SCR6 ,SCR7 ,OPTION , 6 SUBNAM(2),IX(7) ,OPTN2 REAL LMIN ,LMAX ,LFREQ ,MB(1) DOUBLE PRECISION DCORE(1) CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /BLANK / IPROB(2) ,NUMMOD ,ICASE ,XLAMDA 1 /INVPWX/ IFILK(7) ,IFILM(7) ,IFILLM(7),IFILVC(7),ISCR1 , 2 ISCR2 ,ISCR3 ,ISCR4 ,ISCR5 ,ISCR6 , 3 ISCR7 ,ISCR8 ,IDUMP ,LMIN ,LMAX , 4 NOEST ,NDPLUS ,NDMNUS ,EPS ,NOVECT 5 /GIVN / DUM(100) ,N ,LFREQ ,ORDER ,D1 , 6 HFREQ ,D2 ,NV ,NPRT ,D4 , 7 NFR COMMON /FEERCX/ IFKAA(7) ,IFMAA(7) ,IFLELM(7),IFLVEC(7),SR1FLE , 1 SR2FLE ,SR3FLE ,SR4FLE ,SR5FLE ,SR6FLE , 2 SR7FLE ,SR8FLE ,DMPFLE ,NORD ,XLMBDA , 3 NEIG ,MORD ,IBK ,CRITF ,NORTHO , 4 IFLRVA ,IFLRVC ,IEPX 5 /NTIME / LNTIME ,TCONS(15) 6 /REGEAN/ IM(7) ,IK(7) ,IEV(7) ,SCR1 ,SCR2 , 7 SCR3 ,SCR4 ,SCR5 ,LCORE ,RMAX , 8 RMIN ,MZ ,NEV ,EPSI ,RMINR , 9 NE ,NIT ,NEVM ,SCR6 ,SCR7 , O NFOUND ,LAMDA ,IBUCK ,NSYM COMMON /STURMX/ STURM ,SHFTPT ,KEEP ,PTSHFT ,NR , 1 SHFTZO 2 /REIGKR/ OPTION ,OPTN2 3 /SYSTEM/ SYSBUF ,NOUT ,NOGO ,KSYS(51) ,JPREC COMMON /CONDAS/ PI ,TWOPI ,RADEG ,DEGRA , 1 FPS COMMON /PACKX / ITP1 ,ITP2 ,IIP ,JJP ,INCRP COMMON /UNPAKX/ ITU ,IIU ,JJU ,INCRU 1 /ZZZZZZ/ CORE(1) EQUIVALENCE (GIVN(1) ,CORE(1)) EQUIVALENCE (TCONS(4),APC ) ,(TCONS(5),APU ) , 1 (TCONS(8),MB(1) ) ,(ERROR(2),SUBNAM(1)) , 2 (DCORE(1) ,CORE(1) ,ICORE (1)) DATA EIGR ,CASECC/ 1 307 ,3 ,107 ,1 ,107 /, 2 SDET ,UDET ,INV ,SINV ,I0 / 3 4HSDET ,4HUDET ,4HINV ,4HSINV ,0 /, 4 UINV ,GIVI ,KAA ,MAA ,MR / 5 4HUINV ,4HGIV ,101 ,102 ,103 /, 6 DM ,EED ,USET ,LAMA ,PHIA / 7 104 ,105 ,106 ,201 ,202 /, 8 MI ,POUT ,ICR1 ,ICR2 ,MODE / 9 203 ,204 ,301 ,302 ,4HMODE/, O ERROR ,FEERX ,MGIV / 1 4HEED ,4HREIG ,4H ,4HFEER ,4HMGIV/ C C IBUCK = 1 LCORE = KORSZ(CORE) - SYSBUF - 3 LLCORE = LCORE - SYSBUF CALL GOPEN (LAMDA,CORE(LCORE+1),1) CALL CLOSE (LAMDA,2) IF (IPROB(1) .NE. MODE) IBUCK = 3 STURM = -1 KEEP = 0 SHFTPT = 0.0 PTSHFT = 0.0 NR = 0 SHFTZO = 0.0 CALL OPEN (*10,CASECC,CORE(LCORE+1),0) CALL SKPREC (CASECC,ICASE) CALL FREAD (CASECC,ICORE,166,1) CALL CLOSE (CASECC,1) METHOD = ICORE(5) GO TO 20 10 METHOD = -1 20 FILE = EED CALL PRELOC (*170,CORE(LCORE+1),EED) CALL LOCATE (*40,CORE(LCORE+1),EIGR(IBUCK),IFLAG) 30 CALL READ (*40,*40,EED,CORE(1),18,0,IFLAG) IF (METHOD.EQ.ICORE(1) .OR. METHOD.EQ.-1) GO TO 50 GO TO 30 C C NO SET NUMBER FOUND C 40 CALL MESAGE (-32,METHOD,ERROR) C C FOUND DATA CARD C 50 NORM = ICORE(10) CALL CLOSE (EED,1) C C TEST THE SIZE OF THE K AND M MATRICES VIA THEIR TRAILERS C CALL RDTRL (IK(1)) CALL RDTRL (IM(1)) IF (IM(2).EQ.IK(2) .AND. IM(3).EQ.IK(3)) GO TO 51 C C K AND M MATRICES ARE NOT OF THE SAME SIZE C WRITE (NOUT,200) UFM 200 FORMAT (A23,' 3131, INPUT STIFFNESS AND MASS MATRICES ARE NOT ', 1 'COMPATIBLE.') CALL MESAGE (-37,0,ERROR(2)) C C K AND M MATRICES ARE COMPATIBLE C 51 CONTINUE C C CHECK TO SEE IF THE INPUT STIFFNESS AND/OR MASS MATRIX IS NULL C IF (IK(6).EQ.0 .OR. IM(6).EQ.0) CALL MESAGE (-60,0,0) C C SET FLAG FOR THE METHOD OF ANALYSIS AND THE PROPER C TYPE OF DECOMPOSITION C OPTION = ICORE(2) OPTN2 = ICORE(3) IF (OPTION.EQ.GIVI .OR. OPTION.EQ.UDET .OR. OPTION.EQ.UINV) 1 GO TO 53 IF (OPTION.EQ.FEERX .OR. OPTION.EQ.MGIV) GO TO 53 IF (OPTION.EQ.SDET .OR. OPTION.EQ.SINV) GO TO 52 OPTION = UDET IF (ICORE(2) .EQ. INV) OPTION = UINV IF (IM(4).NE.6 .OR. IK(4).NE.6) GO TO 53 OPTION = SDET IF (ICORE(2) .EQ. INV) OPTION = SINV GO TO 53 52 IF (IM(4).EQ.6 .AND. IK(4).EQ.6) GO TO 53 WRITE (NOUT,2100) UWM OPTION = UDET IF (ICORE(2) .EQ. SINV) OPTION = UINV 53 ISIL = ICORE(12) I = 9 EPSII = CORE(I) IF (IBUCK .EQ. 3) GO TO 60 C C CONVERT FREQUENCY TO LAMDA C IF ((ICORE(2).EQ.GIVI .OR. ICORE(2).EQ.MGIV) .AND. ICORE(7).GT.0) 1 GO TO 55 IF (CORE(I0+4) .GE. 0.0) GO TO 55 WRITE (NOUT,2000) UWM CORE(I0+4) = 0.0 55 CORE(I0+4) = FPS*CORE(I0+4)*CORE(I0+4) IF (ICORE(2) .NE. FEERX) CORE(I0+5) = FPS*CORE(I0+5)*CORE(I0+5) 60 CONTINUE CORE4 = CORE(I0+4) CORE5 = CORE(I0+5) ICORE6 = ICORE(6) ICORE7 = ICORE(7) ICORE8 = ICORE(8) IF (ICORE(2).EQ.GIVI .OR. ICORE(2).EQ.MGIV) GO TO 70 IF (ICORE(2) .EQ. FEERX) GO TO 65 IF (ICORE(7) .EQ. 0) ICORE(7) = 3*ICORE(6) ICORE7 = ICORE(7) C C FEER, INVERSE POWER AND DETERMINANT METHODS C C CHECK IF IT IS A NORMAL MODES PROBLEM OR A BUCKLING PROBLEM C 65 IF (IBUCK .EQ. 3) GO TO 80 C C NORMAL MODES PROBLEM C C CHECK FOR APPEND C IF (NUMMOD .LE. 0) GO TO 70 IX(1) = PHIA CALL RDTRL (IX) IF (IX(1).LE.0 .OR. IX(2).LE.0) GO TO 70 C C NEW EIGENVALUES AND EIGENVECTORS WILL BE APPENDED TO THOSE C PREVIOUSLY CHECKPOINTED C NR = IX(2) IF (NUMMOD .LT. NR) NR = NUMMOD WRITE (NOUT,2200) UIM,NR C C RETRIEVE EIGENVALUES AND EIGENVECTORS PREVIOUSLY CHECKPOINTED. C C COPY OLD EIGENVALUES FROM LAMA FILE TO ICR1 FILE. C C COPY OLD EIGENVECTORS FROM PHIA FILE TO ICR2 FILE. C CALL READ7 (NR,LAMA,PHIA,ICR1,ICR2) GO TO 80 C C NO APPEND C C CHECK IF RIGID BODY MODES ARE TO BE COMPUTED SEPARATELY C 70 IX(1) = MR CALL RDTRL (IX) IF (IX(1) .LT. 0) GO TO 75 C C COMPUTE RIGID BODY MODES C CALL READ1 (DM,MR,SCR4,SCR5,SCR3,ICR2,USET,NR,ICR1,SCR6) C C RIGID BODY EIGENVALUES ARE ON ICR1 C C RIGID BODY EIGENVECTORS ARE ON ICR2 C 75 IF (OPTION.EQ.GIVI .OR. OPTION.EQ.MGIV) GO TO 100 80 IF (OPTION .EQ.FEERX) GO TO 95 IF (OPTION .EQ. SDET) GO TO 109 IF (OPTION .EQ. UDET) GO TO 110 C C C INVERSE POWER METHOD C ******************** C LMIN = CORE4 LMAX = CORE5 NOEST = ICORE6 NDPLUS = ICORE7 NDMNUS = 0 IF (IBUCK .EQ. 3) NDMNUS = ICORE8 EPS = EPSII IF (EPS .LE. 0.) EPS = .0001 IF (EPS .LT. .000001) EPS = .000001 CALL RDTRL (IFILK(1)) CALL RDTRL (IFILM(1)) NOVECT = NR CALL INVPWR METHOD = 2 NUMMOD = NOVECT GO TO 140 C C C FEER METHOD C *********** C 95 IFLRVA = ICR1 IFLRVC = ICR2 XLMBDA = CORE4 NEIG = ICORE7 IEPX = ICORE8 IF (IBUCK .EQ. 3) NEIG = ICORE6 NORTHO = NR CRITF = CORE5 IX(1) = KAA CALL RDTRL (IX) N = IX(2) IF (CRITF .EQ. 0.) CRITF = .001/N CALL FEER METHOD = 2 NUMMOD = MORD + NR CALL SSWTCH (26,L26) IF (NUMMOD.GT.NEIG .AND. L26.NE.0) NUMMOD = NEIG IFILK(2) = NORD GO TO 140 C C C GIVENS METHOD C ************* C 100 LFREQ = CORE4 HFREQ = CORE5 METHOD= 3 NFR = NR NPRT = ICORE6 NV = ICORE7 GIVN( 1) = KAA GIVN(I0+2) = MAA GIVN(I0+3) = PHIA DO 105 I = 1,4 105 GIVN(I+3) = EIGR(I) CALL GIVENS NNV = GIVN(1) NUMMOD = N GO TO 145 C C C DETERMINANT METHOD C ****************** C 109 NSYM = 1 110 METHOD= 4 RMIN = CORE4 RMAX = CORE5 IF (RMIN .EQ. 0.0 ) RMIN = RMAX*1.0E-4 RMINR = -.01*RMIN NEV = ICORE6 IF (IBUCK.EQ.3 .AND. EPSII.NE.0.0) EPSI = EPSII NEVM = ICORE7 CALL RDTRL (IM(1)) IEV(3) = IK(3) IF (NEVM .GT. IK(3)) NEVM = IK(3) MZ = NR C C PICK UP UNREMOVED FREE BODY MODES C IF (ICORE8 .GT. NR) MZ = -ICORE8 IEV(2) = NR CALL DETM NUMMOD = NFOUND + NR IFILK(2) = IEV(3) C C SORT EIGENVECTORS AND VALUES C 140 IF (NUMMOD .EQ. 0) GO TO 160 CALL READ3 (NUMMOD,IFILK(2),LAMDA,IEV,PHIA,LAMA) 145 IF (METHOD.EQ.2 .OR. NUMMOD.EQ.1) GO TO 150 C C CHECK ORTHOGONALITY C IFILVC(1) = PHIA CALL RDTRL (IFILVC(1)) CALL READ4 (LAMA,IFILVC(1),SCR1,EPSII,MAA) 150 CONTINUE C C SET FLAG FOR GIVENS METHOD FOR USE IN READ2 ROUTINE C DUM(1) = 0.0 IF (METHOD .EQ. 3) DUM(1) = 1.0 NV = NNV C C FORM MODAL MASS, NORMALIZE AND FORM SUMMARY FILE. C CALL READ2 (MAA,PHIA,SCR1,NORM,ISIL,XXX,MI,LAMA,POUT,ICR2, 1 EPSII,SCR6) GO TO 165 160 NUMMOD = -1 CALL READ5 (POUT) 165 IF (NOGO .EQ. 14) WRITE (NOUT,166) 166 FORMAT ('0*** THIS NASTRAN JOB WILL BE TERMINATED') RETURN C 170 IP1 = -1 180 CALL MESAGE (IP1,FILE,SUBNAM) GO TO 180 C C ERROR MESSAGES C 2000 FORMAT (A25,' 2367, FREQUENCY F1 (FIELD 4) ON THE EIGR BULK DATA', 1 ' CARD IS NEGATIVE', /5X, 2 'IT IS ASSUMED TO BE ZERO FOR CALCULATION PURPOSES.',/) 2100 FORMAT (A25,' 2368, SYMMETRIC DECOMPOSITION IS SPECIFIED ON THE ', 1 'EIGR BULK DATA CARD, BUT', /5X, 2 'UNSYMMETRIC DECOMPOSITION WILL BE USED AS THIS IS THE ', 3 'PROPER TYPE OF DECOMPOSITION FOR THIS PROBLEM.') 2200 FORMAT (A29,' 3143, THE EIGENVALUES AND EIGENVECTORS FOUND IN ', 1 'THIS ANALYSIS WILL BE APPENDED', /5X,'TO THE',I8, 2 ' EIGENVALUES AND EIGENVECTORS COMPUTED EARLIER.') C END ================================================ FILE: mis/relabl.f ================================================ SUBROUTINE RELABL (NS,NODES,IG,IC,IDEG,IDIS,IW,NEW,ICC,ILD,IAJ, 1 JG,IDIM) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C GENERATE A RELABELING SCHEME STARTING WITH NS NODES FOR WHICH C LABELS HAVE BEEN STORED IN ARRAY NODES. C SET UP ILD AND NEW. C ILD(OLD) = NEW C NEW(NEW) = OLD, THE INVERSE OF ILD C IAJ IS DIMENSIONED TO IDIM C INTEGER X DIMENSION IG(1), IC(1), IDEG(1), IDIS(1), IW(1), 1 NEW(1), ICC(1), ILD(1), NODES(1), IAJ(1), 2 JG(1) COMMON /BANDS / NN, DUMS(3), MAXGRD COMMON /SYSTEM/ IBUF, NOUT C I = NODES(1) ICN = IC(I) NT = ICC(ICN) - 1 DO 90 I = 1,NN IF (IC(I)-ICN) 90,80,90 80 IDIS(I) = 0 90 CONTINUE DO 100 J = 1,NS JJ = NODES(J) IDIS(JJ) =-1 JT = J + NT NEW(JT) = JJ 100 ILD(JJ) = JT KI = NT KO = NS + NT LL = KO L = 1 J = KO NNC= ICC(ICN+1) - 1 110 KI = KI + 1 IF (KI-LL) 130,120,130 120 L = L + 1 LL = KO + 1 130 II = NEW(KI) N = IDEG(II) IF (N) 140,270,140 140 IJ = 0 CALL BUNPAK (IG,II,N,JG) DO 170 I = 1,N IA = JG(I) IF (IDIS(IA)) 170,150,170 150 IJ = IJ + 1 IF (IJ .LE. IDIM) GO TO 160 C C DIMENSION EXCEEDED. STOP JOB. C NGRID = -2 RETURN C 160 IDIS(IA) = L KO = KO + 1 IAJ(IJ) = IA IW(IJ) = IDEG(IA) 170 CONTINUE IF (IJ-1) 260,180,190 180 J = KO IZ = IAJ(1) NEW(KO) = IZ ILD(IZ) = KO GO TO 260 190 X = 0 DO 230 I = 2,IJ IF (IW(I)-IW(I-1)) 210,230,230 210 CONTINUE X = IW(I) IW(I ) = IW(I-1) IW(I-1) = X X = IAJ(I) IAJ(I ) = IAJ(I-1) IAJ(I-1) = X 230 CONTINUE IF (X) 240,240,190 240 DO 250 I = 1,IJ J = J + 1 IZ = IAJ(I) NEW(J ) = IZ ILD(IZ) = J 250 CONTINUE 260 IF (KO-NNC) 110,270,270 270 CONTINUE C C REVERSE SEQUENCE FOR THIS COMPONENT (ICN). C C ICC IS AN ARRAY USED FOR IDENTIFYING COMPONENTS IN THE NEW ARRAY. C ICC(N1) CONTAINS THE INDEX FOR THE NEW ARRAY AT WHICH COMPONENT C N1 STARTS. C N1 = ICC(ICN) - 1 N2 = NN - ICC(ICN+1) + 1 IF (N2 .GT. NN) N2 = 0 C C REVERSE THE NODAL CM SEQUENCE, OMITTING THE FIRST N1 AND THE LAST C N2 POINTS. C C NEW(N1) = OLD LABEL FOR NODE NOW LABELLED N1. C ILD(N1) = NEW LABEL FOR NODE ORIGINALLY LABELED N1. C N1 = NUMBER OF POINTS AT BEGINNING OF SEQUENCE TO OMIT FROM C REVERSAL. C N2 = NUMBER OF POINTS AT END OF SEQUENCE TO OMIT FROM C REVERSAL. C NN = NUMBER OF NODES. C J = NUMBER OF INTERCHANGES TO MAKE. C J = (NN-N1-N2)/2 IF (J .LE. 0) RETURN LL = NN - N2 + 1 C C MAKE INTERCHANGES IN NEW ARRAY. C DO 290 I = 1,J L = LL - I K = NEW(L) M = N1 + I NEW(L) = NEW(M) 290 NEW(M) = K C C CORRECT ILD, THE INVERSE OF NEW. C L = 1 + N1 M = NN - N2 DO 300 I = L,M K = NEW(I) 300 ILD(K) = I C RETURN END ================================================ FILE: mis/remflx.f ================================================ SUBROUTINE REMFLX (NGRIDS) C C CHECK FOR REMFLUX IN MAGNETIC FIELD PROBLEMS WHEN COMPUTING C PROLATE SPHEROIDAL COEFFICIENTS C LOGICAL REMFL,HITONE INTEGER REMFLD,SCR1,BUF1,BUF3,BUF2,HEST,MCB(7),FILE, 1 POINTR(6,19),IPOINT(32),DIT,DITFIL,ELTYPE,ESTWDS DIMENSION NAM(2),REM(3),ECPT(200),NECPT(200),IZ(1),G(3,3), 1 IWORK(3,3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /HMTOUT/ XMAT(6) COMMON /HMATDD/ IIHMAT,NNHMAT,MPTFIL,DITFIL COMMON /UNPAKX/ JOUT,II,NN,JNCR COMMON /SYSTEM/ IBUF,IOUT COMMON /ZZZZZZ/ Z(1) COMMON /BIOT / DUM(10),BUF1,REMFL,LCORE EQUIVALENCE (Z(1),IZ(1)),(ECPT(1),NECPT(1)) DATA REMFLD, HEST,MPT,DIT, SCR1/ 1 107 , 108 ,109,110, 301 / DATA NAM / 4HREMF ,4HLX / C C TYPE ISIL MID ITH NGRIDS ITEMP C DATA POINTR/ 1, 2, 4, 0, 2, 17, 1 3, 2, 4, 0, 2, 16, 2 6, 2, 6, 5, 3, 27, 3 9, 2, 6, 5, 3, 21, 4 10, 2, 4, 0, 2, 17, 5 16, 2, 7, 6, 4, 26, 6 17, 2, 6, 5, 3, 21, 7 18, 2, 7, 6, 4, 26, 8 19, 2, 7, 6, 4, 32, 9 34, 2, 16, 0, 2, 42, O 36, 2, 6, 5, 3, 19, 1 37, 2, 7, 6, 4, 24, 2 39, 3, 2, 0, 4, 23, 3 40, 3, 2, 0, 6, 33, 4 41, 3, 2, 0, 8, 43, 5 42, 3, 2, 0, 8, 43, 6 65, 2, 10, 0, 8, 48, 7 66, 2, 22, 0, 20, 108, 8 67, 2, 34, 0, 32, 168 / C REMFL = .FALSE. MCB(1) = REMFLD CALL RDTRL (MCB) C C CHECK FOR ANY REMFLUX C IF (MCB(6) .EQ. 0) RETURN C C TOO BAD C REMFL = .TRUE. NCOL = MCB(2) NROW = MCB(3) NCOUNT = NROW/3 C C BRING IN MATERIALS SINCE H=B/MU C IIHMAT = NGRIDS NNHMAT = LCORE MPTFIL = MPT DITFIL = DIT CALL PREHMA (Z) NEXTZ = NNHMAT + 1 C BUF2 = BUF1 - IBUF BUF3 = BUF2 - IBUF C C SET UP POINTERS C IHC = START OF RESULTS HC = B/MU C IREM= REMFL COLUMN C ICT = COUNTER FOR NUMBER OF ELEMENTS AT EACH PROLATE GRID (FOR C AVERAGING C IHC = NEXTZ IREM = IHC + 3*NGRIDS ICT = IREM + NROW IF (BUF3 .LT. ICT+NGRIDS) GO TO 1008 C CALL GOPEN (SCR1,Z(BUF1),1) CALL GOPEN (REMFLD,Z(BUF2),0) CALL GOPEN (HEST,Z(BUF3),0) C II = 1 NN = NROW JNCR = 1 JOUT = 1 JCOUNT = 0 C 3 DO 5 I = 1,NGRIDS 5 IZ(ICT+I) = 0 N3 = 3*NGRIDS DO 6 I = 1,N3 6 Z(IHC+I) = 0. C C UNPACK A COULMN OF REMFLD C JCOUNT = JCOUNT + 1 CALL UNPACK (*20,REMFLD,Z(IREM+1)) GO TO 40 C C ZERO COLUMN C 20 DO 30 I = 1,N3 30 Z(IHC+I) = 0. GO TO 130 C C SINCE THE ELEMENT DATA DO NOT CHANGE WITH REMFLD COLIMN, THIS IS C NOT NECESSARILY THE BEST KIND OF LOOPING. BUT OTHER WAYS WOULD C NEED MORE CORE AND IF THERE IS MORE THAN ONE REMFLUX CASE, IT C WOULD BE A SURPRISE C 40 FILE = HEST KOUNT = 0 45 CALL READ (*100,*1003,HEST,ELTYPE,1,0,IFLAG) IDX = (ELTYPE-1)*INCR ESTWDS= NE(IDX+12) C C PICK UP ELEMENT TYPE INFO C DO 50 I = 1,19 JEL = I IF (ELTYPE-POINTR(1,I)) 500,60,50 50 CONTINUE GO TO 500 C 60 ISIL = POINTR(2,JEL) IMID = POINTR(3,JEL) ITH = POINTR(4,JEL) IGRIDS= POINTR(5,JEL) ITEMP = POINTR(6,JEL) C 65 CALL READ (*1002,*45,HEST,ECPT,ESTWDS,0,IFLAG) C C PICK UP REMFLUX FOR THIS ELEMENT C KOUNT = KOUNT + 1 NHIT = 0 HITONE= .FALSE. DO 650 I = 1,IGRIDS 650 IPOINT(I) = 0 DO 68 I = 1,NGRIDS DO 66 J = 1,IGRIDS IPT = NECPT(ISIL+J-1) IF (IPT .EQ. IZ(I)) GO TO 67 66 CONTINUE GO TO 68 C C MATCH C 67 HITONE = .TRUE. NHIT = NHIT + 1 IZ(ICT+I) = IZ(ICT+I) + 1 IPOINT(J) = I IF (NHIT .EQ. IGRIDS) GO TO 69 68 CONTINUE IF (.NOT.HITONE) GO TO 65 69 CONTINUE C ISUB = IREM + 3*(KOUNT-1) REM(1) = Z(ISUB+1) REM(2) = Z(ISUB+2) REM(3) = Z(ISUB+3) C C PICK UP MATERIALS C MATID = NECPT(IMID) ELTEMP = ECPT(ITEMP) INFLAG = 3 SINTH = 0. COSTH = 0. CALL HMAT (NECPT(1)) G(1,1) = XMAT(1) G(1,2) = XMAT(2) G(1,3) = XMAT(3) G(2,1) = XMAT(2) G(2,2) = XMAT(4) G(2,3) = XMAT(5) G(3,1) = XMAT(3) G(3,2) = XMAT(5) G(3,3) = XMAT(6) C C FOR COMMENTS ON MATERIALS SEE EM2D C IF (ITH .EQ. 0) GO TO 80 ANGLE = ECPT(ITH)*0.017453293 IF (XMAT(3).EQ.0. .AND. XMAT(5).EQ.0.) GO TO 70 GO TO 80 70 IF (ABS(ANGLE) .LE. .0001) GO TO 80 S = SIN(ANGLE) C = COS(ANGLE) CSQ = C*C SSQ = S*S CS = C*S X2 = 2.*CS*XMAT(2) G(1,1) = CSQ*XMAT(1) - X2 + SSQ*XMAT(4) G(1,2) = CS*(XMAT(1) - XMAT(4)) + (CSQ-SSQ)*XMAT(2) G(2,2) = SSQ*XMAT(1) + X2 + CSQ*XMAT(4) G(2,1) = G(1,2) G(3,3) = XMAT(6) G(1,3) = 0. G(2,3) = 0. G(3,1) = 0. G(3,2) = 0. C C SINCE MAT5 INFO FOR TRAPRG,TRIARG IS GIVEN IN X-Y ORDER, C INETRCHANGE YA AND Z C TEMP = G(2,2) G(2,2) = G(3,3) G(3,3) = TEMP TEMP = G(1,2) G(1,2) = G(1,3) G(1,3) = TEMP G(2,1) = G(1,2) G(3,1) = G(1,3) C C SOLVE MU*H = B C 80 CALL INVERS (3,G,3,REM,1,DET,ISING,IWORK) IF (ISING .EQ. 2) GO TO 510 C C REM NOW HAS HC- CHECK POINTER LIST TO SEE WHICH GRIDS ARE ON THE C SPHEROID AND ADD REMFLUX T THOSE ALREADY ACCUMULATED C DO 90 I = 1,IGRIDS IF (IPOINT(I) .EQ. 0) GO TO 90 ISUB = IHC + 3*(IPOINT(I)-1) DO 85 J = 1,3 Z(ISUB+J) = Z(ISUB+J) + REM(J) 85 CONTINUE 90 CONTINUE C C GO BACK FOR ANOTHER ELEMEENT C GO TO 65 C C DONE WITH ALL TYPES-AVERAGE THE RESULTS BY NUMBER OF ELEMENTS AT C EACH C 100 DO 120 I = 1,NGRIDS DEN = FLOAT(IZ(ICT+I)) IF (DEN .EQ. 0.) GO TO 120 ISUB = 3*(I-1) + IHC DO 110 J = 1,3 Z(ISUB+J) = Z(ISUB+J)/DEN 110 CONTINUE 120 CONTINUE C C WRITE RESULTS TO SCR1 C 130 CALL WRITE (SCR1,Z(IHC+1),3*NGRIDS,1) C C GO BACK FOR ANOTHER REMFLD RECORD C IF (JCOUNT .EQ. NCOL) GO TO 140 CALL REWIND (HEST) CALL FWDREC (*1002,HEST) GO TO 3 C C DONE C 140 CALL CLOSE (SCR1,1) MCB(1) = SCR1 MCB(2) = NCOL MCB(3) = 3*NGRIDS DO 150 I = 4,7 150 MCB(I) = 0 CALL WRTTRL (MCB) CALL CLOSE (HEST,1) CALL CLOSE (REMFLD,1) RETURN C 500 WRITE (IOUT,501) UFM 501 FORMAT (A23,', ILLEGAL ELEMENT TYPE IN REMFLX') GO TO 1061 510 WRITE (IOUT,511) UFM,MATID 511 FORMAT (A23,', MATERIAL',I9,' IS SINGULAR IN REMFLX') GO TO 1061 C 1002 N = -2 GO TO 1010 1003 N = -3 GO TO 1010 1008 N = -8 FILE = 0 1010 CALL MESAGE (N,FILE,NAM) 1061 CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/rename.f ================================================ SUBROUTINE RENAME (NAME1,NAME2,Z,NZ,ITEST) C C THIS ROUTINE RENAMES SUBSTRUCTURE NAME1 TO NAME2. SOF ITEMS EQSS, C BGSS, CSTM, LODS, LOAP AND PLTS ARE REWRITTEN TO REFLECT THE NEW C NAME. THESE ITEMS ARE CHANGED FOR NAME1 AND ANY HIGHER LEVEL C SUBSTRUCTURE FOR WHICH NAME1 IS A COMPONENT. NO CHANGES ARE MADE C TO SECONDARY SUBSTRUCTURES OF NAME1 WHICH RETAIN THEIR ORIGINAL C NAMES. ALSO NO CHANGES ARE MADE TO THE SOLUTION DATA (ITEM SOLN) C FOR SUBSTRUCTURE NAME1 OR ANY HIGHER LEVEL SUBSTRUCTURES. C C VALUES RETURNED IN ITEST ARE C 1 - NORMAL RETURN C 4 - SUBSTRUCTURE NAME1 DOES NOT EXIST C 10 - SUBSTRUCTURE NAME2 ALREADY EXISTS C EXTERNAL ANDF LOGICAL DITUP ,MDIUP ,HIGHER INTEGER NAME1(2) ,NAME2(2) ,NAME(2) ,NAMEH(2) ,Z(2) , 1 EOG ,BLANK ,PS ,ANDF , 2 NAMSUB(2) CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /ITEMDT/ NITEM ,ITEMS(7,1) COMMON /SOF / DITDUM(6),IODUM(8) ,MDIDUM(4),NXTDUM(15),DITUP , 1 MDIUP COMMON /SYSTEM/ SYSBUF, NOUT COMMON /ZZZZZZ/ BUF(1) DATA PS / 1 / DATA EOG / 4H$EOG/, BLANK /4H / DATA NAMSUB/ 4HRENA,4HME / C C C CHECK IF NAME2 ALREADY EXISTS C CALL FDSUB (NAME2,IND) IF (IND .NE. -1) GO TO 1000 C C CHANGE DIT ENTRY FOR SUBSTRUCTURE NAME1 C CALL FDSUB (NAME1,IND) IF (IND .LT. 0) GO TO 1100 CALL FDIT (IND,IDIT) IF (NAME1(1).NE.BUF(IDIT) .OR. NAME1(2).NE.BUF(IDIT+1)) GO TO 1200 BUF(IDIT ) = NAME2(1) BUF(IDIT+1) = NAME2(2) DITUP = .TRUE. C NAME(1) = NAME2(1) NAME(2) = NAME2(2) HIGHER = .FALSE. C C CHANGE TABLE ITEMS WHICH CONTAIN SUBSTRUCTRUE NAME C SUBSTRUCTURE NAME. C HIGHER = .FALSE. - WE ARE WORKING WITH SUBSTRUCTURE NAME1 C HIGHER = .TRUE. - WE ARE WORKING WITH A SUBSTRUCTURE FOR C WHICH NAME1 IS A COMPONENT C 10 CALL FDSUB (NAME,IND) CALL FMDI (IND,IMDI) IPS = ANDF(BUF(IMDI+PS),1023) DO 100 ITM = 1,NITEM IF (ITEMS(2,ITM) .GT. 0) GO TO 100 ITEM = ITEMS(1,ITM) INUM = ITEMS(3,ITM)/1000000 ILOC = (ITEMS(3,ITM) - INUM*1000000)/1000 INCR = ITEMS(3,ITM) - INUM*1000000 - ILOC*1000 C C PROCESS THE FOLLOWING ITEMS C C SUBSTRUCTRUE NAME1 C DONT PROCESS THE ITEM IF THIS IS A SECONDARY SUBSTRUCTURE C AND THE ACTUAL ITEM IS STORED FOR THE PRIMARY (I.E. BGSS,CSTM( C HIGHER LEVEL SUBSTRUCTURE C DONT PROCESS THE ITEM IF IT IS ACTUALLY STORED FOR THE C PRIMARY SUBSTRUCTURE (I.E. BGSS,CSTM) C IF (.NOT.HIGHER .AND. ILOC.EQ.0 .AND. IPS.NE.0) GO TO 100 IF (HIGHER .AND. ILOC.EQ.0) GO TO 100 C C READ ITEM INTO OPEN CORE C IRW = 1 CALL SFETCH (NAME,ITEM,IRW,ITEST) IF (ITEST .NE. 1) GO TO 100 NCORE = NZ ICORE = 1 20 CALL SUREAD (Z(ICORE),NCORE,NWDS,ITEST) IF (ITEST .EQ. 3) GO TO 30 IF (ITEST .EQ. 1) GO TO 1300 Z(ICORE+NWDS) = EOG ICORE = ICORE + NWDS + 1 NCORE = NCORE - NWDS - 1 GO TO 20 30 NWDS = ICORE + NWDS - 1 C C CHANGE ANY OCCURANCE OF NAME1 WITH NAME2 C IF (HIGHER) GO TO 40 C C SUBSTRUCTURE NAME1 - NAME SHOULD BE IN WORDS 1 AND 2 OF GROUP 0 C IF (Z(1).NE.NAME1(1) .OR. Z(2).NE.NAME1(2)) GO TO 100 Z(1) = NAME2(1) Z(2) = NAME2(2) C C SEARCH THE LIST OF COMPONENT SUBSTRUCTURES FOR NAME1 C 40 NCOMP = Z(INUM) ILOC2 = ILOC + INCR*NCOMP - 1 DO 50 I = ILOC,ILOC2,INCR IF (Z(I).NE.NAME1(1) .OR. Z(I+1).NE.NAME1(2)) GO TO 50 Z(I ) = NAME2(1) Z(I+1) = NAME2(2) GO TO 60 50 CONTINUE C C DELETE OLD ITEM C 60 CALL DELETE (NAME,ITEM,ITEST) C C WRITE NEW ITEM TO SOF C ITEST = 3 IRW = 2 CALL SFETCH (NAME,ITEM,IRW,ITEST) ITEST = 3 CALL SUWRT (Z(1),NWDS,ITEST) C 100 CONTINUE C C GET NEXT HIGHER LEVEL SUBSTRUCTURE FOR WHICH NAME1 IS A C COMPONENT AND PERFORM SAME PROCEDURE C CALL FNDNXL (NAME,NAMEH) IF (NAMEH(1).EQ.BLANK .OR. NAMEH(1).EQ.NAME(1) .AND. 1 NAMEH(2).EQ.NAME(2)) GO TO 110 NAME(1) = NAMEH(1) NAME(2) = NAMEH(2) HIGHER = .TRUE. GO TO 10 C C NO HIGHER LEVEL SUBSTRUCTURES LEFT - PRINT INFORMATION MESSAGE C AND RETURN C 110 WRITE (NOUT,120) UIM,NAME1,NAME2 120 FORMAT (A29,' 6229, SUBSTRUCTURE ',2A4,' HAS BEEN RENAMED TO ', 1 2A4) ITEST = 1 RETURN C C ERROR RETURNS C C C SUBSTRUCTURE NAME2 ALREADY EXIST ON THE SOF C 1000 WRITE (NOUT,1010) UWM,NAME1,NAME2 1010 FORMAT (A25,' 6230, SUBSTRUCTURE ',2A4,' HAS NOT BEEN RENAMED ', 1 'BECAUSE ',2A4,' ALREADY EXISTS ON THE SOF.') ITEST = 10 RETURN C C SUBSTRUCTURURE NAME1 DOES NOT EXIST C 1100 ITEST = 4 RETURN C C DIT FORMAT ERROR C 1200 CALL ERRMKN (21,5) C C INSUFFICIENT CORE TO HOLD ITEM C 1300 CALL SOFCLS CALL MESAGE (-8,0,NAMSUB) RETURN END ================================================ FILE: mis/retblk.f ================================================ SUBROUTINE RETBLK (IBL) C C RETURNS BLOCK I AND ALL BLOCKS LINKED TO IT TO THE LIST OF FREE C BLOCKS IN THE SUPERBLOCK TO WHICH BLOCK I BELONGS IF SOME OF C THE BLOCKS THAT ARE LINKED TO BLOCK I DO NOT BELONG TO THE SAME C SUPERBLOCK, THEY ARE RETURNED TO THE FREE LIST OF THEIR OWN C RESPECTIVE SUPERBLOCKS. C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF LOGICAL DITUP,NXTUP,REPEAT DIMENSION NMSBR(2) COMMON /MACHIN/ MACH,IHALF,JHALF COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL, 1 IODUM(8),MDIDUM(4), 2 NXT,NXTPBN,NXTLBN,NXTTSZ,NXTFSZ(10),NXTCUR, 3 DITUP,MDIUP,NXTUP COMMON /SYS / BLKSIZ,DIRSIZ,SUPSIZ,AVBLKS COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10) DATA IRD , IWRT/ 1,2 / DATA INDSBR/ 13 /, NMSBR /4HRETB,4HLK / C CALL CHKOPN (NMSBR(1)) I = IBL IF (I .LE. 0) GO TO 500 LMASK = LSHIFT(JHALF,IHALF) C C COMPUTE THE NUMBER OF THE FILE TO WHICH BLOCK I BELONGS, C THE INDEX OF BLOCK I WITHIN THAT FILE, THE NUMBER WITHIN THE C FILE OF THE SUPERBLOCK TO WHICH BLOCK I BELONGS, AND THE LOGICAL C BLOCK NUMBER OVER THE SYSTEM OF THAT SUPERBLOCK. C 5 LEFT = I DO 7 L = 1,NFILES IF (LEFT .GT. FILSIZ(L)) GO TO 6 FILNUM = L GO TO 10 6 LEFT = LEFT - FILSIZ(L) 7 CONTINUE GO TO 500 10 FILIND = LEFT FILSUP = (FILIND-1)/SUPSIZ IF (FILIND-1 .EQ. FILSUP*SUPSIZ) GO TO 20 FILSUP = FILSUP + 1 20 ILBN = 0 MAX = FILNUM - 1 IF (MAX .LT. 1) GO TO 28 DO 25 L = 1,MAX ILBN = ILBN + NXTFSZ(L) 25 CONTINUE 28 ILBN = ILBN + FILSUP IF (ILBN .EQ. NXTLBN) GO TO 60 C C THE DESIRED BLOCK OF THE ARRAY NXT IS NOT IN CORE. C IF (NXTLBN .EQ. 0) GO TO 30 C C THE IN CORE BUFFER SHARED BY THE DIT AND THE ARRAY NXT IS NOW C OCCUPIED BY A BLOCK OF NXT. IF THAT BLOCK HAS BEEN UPDATED, C MUST WRITE IT OUT BEFORE READING IN THE NEW BLOCK. C IF (.NOT.NXTUP) GO TO 50 CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2)) NXTUP = .FALSE. GO TO 50 C C THE IN CORE BUFFER SHARED BY THE DIT AND THE ARRAY NXT IS NOW C OCCUPIED BY A BLOCK OF THE DIT. IF THAT BLOCK HAS BEEN UPDATED, C MUST WRITE IT OUT BEFORE READING IN THE NEW BLOCK. C 30 IF (.NOT.DITUP) GO TO 40 CALL SOFIO (IWRT,DITPBN,BUF(DIT-2)) DITUP = .FALSE. 40 DITPBN = 0 DITLBN = 0 C C READ IN THE DESIRED BLOCK OF NXT. C 50 NXTLBN = ILBN NXTPBN = 0 MAX = FILNUM - 1 IF (MAX .LT. 1) GO TO 58 DO 55 L = 1,MAX NXTPBN = NXTPBN + FILSIZ(L) 55 CONTINUE 58 NXTPBN = NXTPBN + (FILSUP-1)*SUPSIZ + 2 CALL SOFIO (IRD,NXTPBN,BUF(NXT-2)) C C THE DESIRED BLOCK OF NXT IS IN CORE. C 60 BTFREE = ANDF(BUF(NXT+1),JHALF) TPFREE = RSHIFT(BUF(NXT+1),IHALF) IF (BTFREE .EQ. 0) GO TO 90 C C CHECK IF BLOCK I IS ALREADY IN THE LIST OF FREE BLOCKS. C J = TPFREE 70 IF (J .EQ. I) GO TO 220 IF (J .EQ. 0) GO TO 90 IND = (J-NXTPBN+2)/2 + 1 IF (MOD(J,2) .EQ. 1) GO TO 80 J = RSHIFT(BUF(NXT+IND),IHALF) GO TO 70 80 J = ANDF(BUF(NXT+IND),JHALF) GO TO 70 C C BLOCK I IS NOT IN THE LIST OF FREE BLOCKS. C SET TPFREE TO I C 90 BUF(NXT+1) = LSHIFT(I,IHALF) C C EXAMINE THE BLOCKS THAT ARE LINKED TO BLOCK I. C REPEAT = .FALSE. IF (FILSUP .NE. NXTFSZ(FILNUM)) GO TO 123 LSTBLK = NXTPBN + FILSIZ(FILNUM) - (FILSUP-1)*SUPSIZ - 2 GO TO 126 123 LSTBLK = NXTPBN + SUPSIZ - 1 126 AVBLKS = AVBLKS + 1 IND = (I-NXTPBN+2)/2 + 1 IF (MOD(I,2) .EQ. 1) GO TO 130 ISV = RSHIFT(BUF(NXT+IND),IHALF) GO TO 140 130 ISV = ANDF(BUF(NXT+IND),JHALF) 140 IF (ISV .EQ. 0) GO TO 160 IF (ISV.LT.NXTPBN .OR. ISV.GT.LSTBLK) GO TO 150 I = ISV GO TO 126 150 REPEAT = .TRUE. C C ALL THE BLOCKS IN THIS SUPERBLOCK HAVE BEEN FOUND. C SET POINTER OF I TO VALUE OF OLD TPFREE. C 160 IF (MOD(I,2) .EQ. 1) GO TO 170 BUF(NXT+IND) = ORF(ANDF(BUF(NXT+IND),JHALF),LSHIFT(TPFREE,IHALF)) GO TO 180 170 BUF(NXT+IND) = ORF(ANDF(BUF(NXT+IND),LMASK),TPFREE) 180 IF(BTFREE .EQ. 0) BTFREE = I C C SET BTFREE TO LAST BLOCK IN CHAIN. C BUF(NXT+1) = ORF(ANDF(BUF(NXT+1),LMASK),BTFREE) NXTUP = .TRUE. IF (.NOT. REPEAT) GO TO 220 C C ISV BELONGS TO A DIFFERENT SUPERBLOCK, REPEAT C SUBROUTINE FOR BLOCK ISV. C I = ISV GO TO 5 C C NO MORE BLOCKS LINKED TO BLOCK I, RETURN. C 220 CONTINUE RETURN C C ERROR MESSAGE. C 500 CALL ERRMKN (INDSBR,2) RETURN END ================================================ FILE: mis/rforce.f ================================================ SUBROUTINE RFORCE (LCORE) C C COMPUTES STATIC LOADS DUE TO ROTATING COORDINATE SYSTEMS C EXTERNAL RSHIFT,ANDF LOGICAL NONSHL,CUPMAS INTEGER FILE,SLT,BGPDT,OLD,ICARD(6),SYSBUF,NAME(2), 1 STRTMN,ANDF,RSHIFT REAL MT(3,3),MTR(3,3),MR(3,3) DIMENSION CARD(6),RA(4),WB(3),WG(3),RI(4),XM(6,6),IY(7) DIMENSION ISYSTM(175) COMMON /MACHIN/ MACH,IHALF,JHALF COMMON /CONDAS/ PI,TWOPHI,RADEG,DEGRA,S4PISQ COMMON /UNPAKX/ IT1,II,JJ,INCR COMMON /XCSTM / TI(3,3) COMMON /TRANX / IX(5),TO(3,3) COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,DUMY(25),MN COMMON /ZNTPKX/ A(4),IROW,IEOL,IEOR COMMON /LOADX / LC,SLT,BGPDT,OLD,NN(11),MGG EQUIVALENCE (ICARD(1),CARD(1)), (IR,RI(1)), (IRA,RA(1)) EQUIVALENCE (SYSBUF ,ISYSTM(1)) DATA NAME / 4HRFOR,4HCE / C C DEFINITION OF VARIABLES C C SLT STATIC LOAD TABLE C BGPDT BASIC GRID POINT DEFINITION TABLE C MGG MASS MATRIX C FILE FILE NAME FOR ERROR MESAGES C CARD CARD IMAGE OF RFORCE CARD C RA BGPDT ENTRY FOR AXIAL GRID POINT C WB OMEGA-S IN BASIC COORDINATES C II SIL OF CURRENT POINT C IT1 UNPACK TYPE(REAL) C INCR INCREMENT( TO ROW STORE COLUMNS) C RI BGPDT ENTRY FOR CURRENT GRID POINT C WG OMEGA-S IN GLOBAL COORDINANTS AT CURRENT GRID POINT C XM 6X6 DIAGONAL PARTION OF MGG C MT 3X3 PARTITION OF MGG C MR 3X3 PARTITION OF MGG C MTR 3X3 PARTITION OF MGG C OLD CURRENT POSITION OF BGPDT 0 IMPLIES BEGINNING C C C BRING IN CARD IMAGE C CALL FREAD (SLT,CARD,6,0) C C FIND LOCATION OF AXIAL GRID POINT C DO 10 I = 1,3 RA(I+1) = 0.0 10 CONTINUE IF (ICARD(1) .EQ. 0) GO TO 30 CALL FNDPNT (RA(1),ICARD(1)) C C CHECK FOR GRID POINT C IF (IRA .NE. -1) GO TO 30 DO 20 I = 1,3 RA(I+1) = 0.0 20 CONTINUE 30 CALL REWIND (BGPDT) CALL SKPREC (BGPDT,1) C C CONVERT WI'S TO BASIC COORDINANTS C DO 40 I = 4,6 WB(I-3) = CARD(I)*TWOPHI*CARD(3) 40 CONTINUE IF (ICARD(2) .EQ. 0) GO TO 60 CALL FDCSTM (ICARD(2)) CALL MPYL (TO,WB,3,3,1,WG) DO 50 I = 1,3 WB(I) = WG(I) 50 CONTINUE C C OPEN MASS MATRIX C 60 CONTINUE J = LCORE - SYSBUF IF (J .GT. 0) GO TO 65 ICRRQD = IABS(J) + 1 CALL MESAGE (-8, ICRRQD, NAME) 65 CALL GOPEN (MGG,Z(J),0) IT1 = 1 C C TEST FOR COUPLED MASS C IY(1) = MGG CALL RDTRL (IY) CUPMAS = .FALSE. IF (IY(6) .EQ. 1) GO TO 90 IF (IY(6) .GT. 6) CUPMAS = .TRUE. IF (CUPMAS) GO TO 90 INCR = 0 NCOL = IY(2) DO 70 I = 1,NCOL II = 0 CALL UNPACK (*70,MGG,A) IF (JJ-II .GT. 6) CUPMAS = .TRUE. IF (CUPMAS) GO TO 80 70 CONTINUE 80 CALL REWIND (MGG) CALL SKPREC (MGG,1) 90 II = 1 INCR = 6 C C TEST FOR CONICAL SHELL PROBLEM C NONSHL = .TRUE. IF (MN .EQ. 0) GO TO 100 NONSHL = .FALSE. NHARMS = MN NRINGS = ISYSTM(161) IY(1) = BGPDT CALL RDTRL (IY) STRTMN = IY(2) - NHARMS*NRINGS IPTAX = 0 KOUNTM = 0 C C BRING IN BGPDT C 100 FILE = BGPDT CALL READ (*410,*330,BGPDT,RI(1),4,0,IFLAG) C C TEST FOR CONICAL SHELL PROCESSING C IF (NONSHL) GO TO 120 IPTAX = IPTAX + 1 IF (IPTAX .LT. STRTMN) GO TO 110 KOUNTM = KOUNTM + 1 IF (KOUNTM .LE. NRINGS) GO TO 240 GO TO 330 C 110 IF (IR .NE. -1) CALL SKPREC (MGG,6) C C CHECK FOR SCALAR POINT C 120 CONTINUE IF (IR .NE. -1) GO TO 130 CALL SKPREC (MGG,1) II = II + 1 GO TO 100 C C TEST FOR COUPLED MASS PROCESSING C 130 IF (CUPMAS) GO TO 250 C C CONVERT WB'S TO GLOBAL COORDINATES AT RI C DO 140 I = 1, 3 140 WG(I) = WB(I) IF (IR .EQ. 0) GO TO 150 CALL BASGLB (WB(1),WG(1),RI(2),IR) C C BRING IN 6X6 ON DIAGONAL OF MASS MATRIX C 150 JJ = II + 5 DO 160 J = 1,6 DO 160 I = 1,6 XM(I,J) = 0.0 160 CONTINUE DO 170 I = 1,6 CALL UNPACK (*170,MGG,XM(I,1)) 170 CONTINUE C C MOVE 6X6 TO PARTITIONS C DO 180 I = 1,3 DO 180 J = 1,3 MT(J,I) = XM(J,I) MR(J,I) = XM(J+3,I+3) MTR(J,I)= XM(J+3,I) 180 CONTINUE C C COMPUTE WBX(RI-RA) C DO 190 I = 1,3 XM(I,1) = RI(I+1) - RA(I+1) 190 CONTINUE CALL CROSS (WB(1),XM(1,1),XM(1,3)) DO 200 I = 1,3 XM(I,1) = XM(I,3) 200 CONTINUE IF (IR .EQ. 0) GO TO 210 CALL MPYL (TI(1,1),XM(1,1),3,3,1,XM(1,3)) 210 CONTINUE C C COMPUTE MOMENTS C CALL MPYL (MR(1,1),WG(1),3,3,1,XM(1,1)) CALL CROSS (XM(1,1),WG(1),XM(1,2)) CALL MPYLT (MTR(1,1),XM(1,3),3,3,1,XM(1,1)) CALL CROSS (XM(1,1),WG,XM(1,4)) J = II + 2 DO 220 I = 1,3 J = J + 1 Z(J) = Z(J) + XM(I,2) + XM(I,4) 220 CONTINUE C C COMPUTE FORCES C CALL MPYL (MTR(1,1),WG(1),3,3,1,XM(1,1)) CALL CROSS (XM(1,1),WG(1),XM(1,2)) CALL MPYL (MT(1,1),XM(1,3),3,3,1,XM(1,1)) CALL CROSS (XM(1,1),WG,XM(1,4)) J = II - 1 DO 230 I = 1,3 J = J + 1 Z(J) = Z(J) + XM(I,4) + XM(I,2) 230 CONTINUE C C BUMP II C II = II + 6 GO TO 100 C C CONICAL SHELL PROCESSING C COMPUTE A = R*WB**2 C 240 XM(2,3) = 0.0 XM(3,3) = 0.0 XM(1,3) = RI(2)*WB(2)*WB(2) GO TO 290 C C COUPLED MASS PROCESSING C COMPUTE -WB*(WB*(RI - RA)) C 250 DO 260 I = 1, 3 260 XM(I,1) = RI(I+1) - RA(I+1) CALL CROSS (WB(1),XM(1,1),XM(1,3)) CALL CROSS (XM(1,3),WB(1),XM(1,1)) IF (IR .EQ. 0) GO TO 270 CALL BASGLB (XM(1,1),XM(1,3),RI(2),IR) GO TO 290 270 DO 280 I = 1, 3 280 XM(I,3) = XM(I,1) C C COMPUTE F = M*A C 290 I1 = 1 DO 320 I = 1, 3 CALL INTPK (*320,MGG,0,I1,0) IF (XM(I,3) .EQ. 0.0) GO TO 310 300 CALL ZNTPKI Z(IROW) = Z(IROW) + A(1)*XM(I,3) IF (IEOL .NE. 1) GO TO 300 GO TO 320 310 CALL SKPREC (MGG,1) 320 CONTINUE CALL SKPREC (MGG,3) GO TO 100 C C EOR IN BGPDT C 330 CALL CLOSE (MGG,1) CALL REWIND (BGPDT) OLD = 0 CALL SKPREC (BGPDT,1) RETURN C C FILE ERRORS C 400 CALL MESAGE (IP1,FILE,NAME(1)) 410 IP1 = -2 GO TO 400 END ================================================ FILE: mis/rmg.f ================================================ SUBROUTINE RMG C C RADIATION MATRIX GENERATOR MODULE. C C DMAP CALLING SEQUENCE C C RMG EST,MATPOOL,GPTT,KGGX/RGG,QGE,KGG/C,Y,TABS/C,Y,SIGMA/ C V,N,NLR/V,N,LUSET $ C C THIS MODULE COMPUTES AND OUTPUTS DATA IN SINGLE OR DOUBLE C PRECISION BASED ON -PRECIS-. C LOGICAL NOGO ,DOUBLE ,LRAD INTEGER BUF(10) ,SUBR(2) ,RADLST(2),RADMTX(2),HBDYTP , 1 EST ,GPTT ,RGG ,QGE ,SCRT1 , 2 SCRT2 ,SCRT3 ,SCRT4 ,SCRT5 ,SCRT6 , 3 SYSBUF ,OUTPT ,TSET ,PRECIS ,UNOUT , 4 UNIROW ,UNNROW ,UNINCR ,PKIN ,PKOUT , 5 PKIROW ,PKNROW ,PKINCR ,RD ,RDREW , 6 WRT ,WRTREW ,CLSREW ,CLS ,ELEM , 7 Z ,CORE ,BUF1 ,BUF2 ,BUF3 , 8 FLAG ,WORDS ,EOR ,MCB1(7) ,MCB2(7) , 9 MCB3(7) ,ELTYPE ,ESTWDS ,ECPT(100),RCOL , O DCOL ,RX ,DX ,SQR ,FILE , 1 DIRGG ,DNRGG ,IDATA(16),BLOCK(20),RADCHK , 2 MCB(7) ,NAME(2) ,RADTYP(2),BLOCK2(20) REAL RZ(2) ,RBUF(10) ,RDATA(16),AI(4) DOUBLE PRECISION DETT ,MINDIA ,DSUMFA ,DO(2) ,DI(2) , 1 DZ(1) ,DTEMP2 ,DVALUE CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 ,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM ,SWM COMMON /SYSTEM/ KSYSTM(65) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW , 1 CLS ,SKIP5(5) ,SQR COMMON /ZBLPKX/ AO(4) ,IROW COMMON /PACKX / PKIN ,PKOUT ,PKIROW ,PKNROW ,PKINCR COMMON /UNPAKX/ UNOUT ,UNIROW ,UNNROW ,UNINCR COMMON /GFBSX / JL(7) ,JU(7) ,JB(7) ,JX(7) ,NZZZ , 1 IPR ,ISGN COMMON /DCOMPX/ IA(7) ,IL(7) ,IU(7) ,ISR1 ,ISR2 , 1 ISR3 ,DETT ,IPOW ,NZZ ,MINDIA , 2 IB ,IBBAR COMMON /GPTA1 / NELEMS ,LAST ,INCR ,ELEM(1) COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / TABS ,SIGMA ,NLR ,LUSET EQUIVALENCE (Z(1),RZ(1),DZ(1) ),(BUF(1),RBUF(1) ), 1 (DO(1) ,AO(1) ),(DI(1) ,AI(1) ), 2 (IDATA(1),RDATA(1)),(DEFALT,IDEFLT ), 3 (KSYSTM( 1),SYSBUF),(KSYSTM( 2),OUTPT ), 4 (KSYSTM(10),TSET ),(KSYSTM(55),IPREC ), 5 (KSYSTM(57),MYRADM),(KSYSTM(58),RADCHK) C C MYRADM = 1 IMPLIES SYMMETRIC SCRIPT-AF INPUT C RADCHK NE 0 REQUESTS DIAGNOSTIC PRINTOUT OF AREAS AND VIEW FACTOR C MYRADM = 2 IMPLIES UNSYMMETRIC SCRIPT-AF INPUT C DATA SUBR / 4HRMG ,4H / DATA RADTYP/ 4H ,4H UN / DATA RADLST/ 2014, 20 / DATA RADMTX/ 3014, 30 / DATA HBDYTP/ 52 / DATA NOEOR / 0 /, EOR / 1 / DATA EST , MATPOL, GPTT, KGGX, RGG, QGE, KGG / 1 101 , 102 , 103 , 104 , 201, 202, 203 / DATA SCRT1 , SCRT2, SCRT3, SCRT4, SCRT5, SCRT6 / 1 301 , 302 , 303 , 304 , 305 , 306 / C C DEFINITION OF CORE AND BUFFER POINTERS C CALL DELSET SCRT1 = 301 PRECIS = 2 IF (IPREC .NE. 2) PRECIS = 1 CORE = KORSZ(Z) BUF1 = CORE - SYSBUF - 2 BUF2 = BUF1 - SYSBUF - 2 BUF3 = BUF2 - SYSBUF - 2 CORE = BUF3 - 1 IF (CORE .LT. 100) CALL MESAGE (-8,0,SUBR) NOGO = .FALSE. DOUBLE = .FALSE. IF (PRECIS .EQ. 2) DOUBLE = .TRUE. IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) WRITE (OUTPT,5) UWM, 1 RADTYP(MYRADM) 5 FORMAT (A25,' 2358, ',A4,'SYMMETRIC SCRIPT-AF MATRIX (HREE) ', 1 'ASSUMED IN RADMTX') C C OPEN MATPOOL DATA BLOCK. C FILE = MATPOL CALL PRELOC (*1100,Z(BUF1),MATPOL) C C LOCATE RADLST DATA C CALL LOCATE (*1090,Z(BUF1),RADLST,FLAG) C C BUILD ELEMENT DATA TABLE. -LENTRY- WORDS PER ELEMENT ID PRESENT C IN RADLST. C C EACH ENTRY CONTAINS THE FOLLOWING OR MORE C C WORD 1 = ELEMENT ID OF HBDY ELEMENT C WORD 2 = DIAGONAL MATRIX ELEMENT A-SUB-I C WORD 3 = DIAGONAL MATRIX ELEMENT E-SUB-I C WORD 4 = ELEMENT FA SUM (USED FOR RADMTX CHECK) C WORD 5 = SIL-1 C WORD 6 = SIL-2 C WORD 7 = SIL-3 C WORD 8 = SIL-4 C WORD 9 = GIJ-1 (GIJ TERMS MAY BE 2 WORDS EACH IF DOUBLE PREC) C WORD 10 = GIJ-2 C WORD 11 = GIJ-3 C WORD 12 = GIJ-4 C C LENTRY = 8 + 4*PRECIS IELTAB = 1 IDXM8 = IELTAB - LENTRY - 1 NELTAB = IELTAB - 1 10 IF (NELTAB+LENTRY .GT. CORE) CALL MESAGE (-8,0,SUBR) CALL READ (*1110,*1120,MATPOL,Z(NELTAB+1),1,NOEOR,WORDS) IF (Z(NELTAB+1)) 30,30,20 20 Z(NELTAB+2) = 0 Z(NELTAB+3) = 0 NELTAB = NELTAB + LENTRY GO TO 10 C C ALL RADLST DATA NOW IN CORE. C (POSITION TO END OF RECORD ON MATPOOL) C 30 CALL READ (*1110,*50,MATPOL,BUF,1,EOR,WORDS) WRITE (OUTPT,40) SWM 40 FORMAT (A27,' 3071, EXTRA DATA IN RADLST RECORD OF MATPOOL DATA ', 1 'BLOCK IGNORED.') C C LOCATE RADMTX DATA C 50 NE = (NELTAB-IELTAB+1)/LENTRY CALL LOCATE (*135,Z(BUF1),RADMTX,FLAG) LRAD = .TRUE. C C READ IN RADMTX DATA. FOR LOWER TRIANGLE COLUMNS PRESENT C ENTRY WORDS 2 AND 3 IN -ELTAB- WILL BE USED TO STORE FIRST C AND LAST LOCATIONS OF LOWER TRIANGLE COLUMN. ZEROS IMPLY COLUMN C IS NULL. C IRAD = NELTAB + 1 C C READ COLUMN INDEX C 60 CALL READ (*1110,*140,MATPOL,INDEX,1,NOEOR,WORDS) C C MAXIMUM NUMBER OF INPUT TERMS FOR THIS COLUMN. (LOWER TRIANGLE) C MAX = NE - INDEX + 1 IF (MYRADM .EQ. 2) MAX = NE C C SET -IDX- TO ELTAB ENTRY C IDX = IDXM8 + INDEX*LENTRY C C READ IN COLUMN ELEMENTS IF ANY C N = 0 70 CALL READ (*1110,*1120,MATPOL,Z(IRAD),1,NOEOR,WORDS) IF (Z(IRAD) .EQ. -1) GO TO 100 N = N + 1 IRAD = IRAD + 1 IF (IRAD .GT. CORE) CALL MESAGE (-8,0,SUBR) IF (N .LE. MAX) GO TO 70 C C TOO MANY COLUMN ELEMENTS INPUT C IRAD = IRAD - 1 C C SKIP TO END OF COLUMN C 80 CALL READ (*1110,*1120,MATPOL,IDUM,1,NOEOR,WORDS) IF (IDUM .NE. -1) GO TO 80 WRITE (OUTPT,90) UWM,INDEX,NE 90 FORMAT (A25,' 3072, TOO MANY MATRIX VALUES INPUT VIA RADMTX BULK', 1 ' DATA FOR COLUMN',I9,1H., /5X,'EXTRA VALUES IGNORED AS ', 2 'MATRIX SIZE IS DETERMINED TO BE OF SIZE',I9, 3 ' FROM RADLST COUNT OF ELEMENT ID-S.') C C ALL DATA FOR LOWER TRIANGLE PORTION OF COLUMN IS IN CORE. C (BACK UP OVER ANY ZEROS) C 100 IF (N) 60,60,110 110 IF (Z(IRAD-1)) 130,120,130 120 N = N - 1 IRAD = IRAD - 1 GO TO 100 C C SET FIRST AND LAST POINTERS C 130 Z(IDX+2) = IRAD - N Z(IDX+3) = IRAD - 1 C C GO READ NEXT COLUMN C GO TO 60 C C NULL RADMTX ASSUMED C 135 LRAD = .FALSE. C C RADMTX IS COMPLETELY IN CORE IN TEMPORARY SPECIAL PACKED FORM. C C NOW PACK OUT EACH COLUMN OF MATRIX F TO SCRATCH 1 C 140 CALL CLOSE (MATPOL,CLSREW) IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) SCRT1 = 303 CALL GOPEN (SCRT1,Z(BUF1),WRTREW) CALL MAKMCB (MCB1,SCRT1,NE,SQR,PRECIS) DO 210 JCOL = 1,NE C C INITIALIZE PACKING OF COLUMN -JCOL- C CALL BLDPK (1,PRECIS,SCRT1,0,0) C C PACK OUT ELEMENTS OF COLUMN -JCOL- C INXCOL = IDXM8 + JCOL*LENTRY C C SET FA SUM TO ZERO FOR CURRENT COLUMN. C SUMFA = 0.0 IF (.NOT.LRAD) GO TO 205 DO 200 IROW = 1,NE C C LOCATE ELEMENT ROW-IROWK, COL-JCOL. C IF (IROW.GE.JCOL .OR. MYRADM.EQ.2) GO TO 180 C C HERE IF ABOVE THE DIAGONAL C ELEMENT DESIRED IS IN COLUMN -IROW- IN CORE AND POSITION C (JCOL-IROW+1) OF THE LOWER TRIANGLE PORTION. C IDX = IDXM8 + IROW*LENTRY I1 = Z(IDX+2) IF (I1) 200,200,150 150 I2 = Z(IDX+3) IPOS= JCOL - IROW + I1 160 IF (IPOS .GT. I2) GO TO 200 IF (RZ(IPOS)) 162,200,170 162 WRITE (OUTPT,164) UWM,JCOL,IROW,RZ(IPOS) 164 FORMAT (A25,' 2359, COL',I6,', ROW',I6, 1 ' OF RADMTX IS NEGATIVE (',E14.6,').') 170 AO(1) = RZ(IPOS) IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) AO(1) = -SIGMA*RZ(IPOS) IF (JCOL.EQ.IROW .AND. (MYRADM.EQ.1 .OR. MYRADM.EQ.2)) GO TO 175 SUMFA = SUMFA + RZ(IPOS) 175 CALL ZBLPKI GO TO 200 C C HERE IF BELOW OR ON DIAGONAL. C ELEMENT DESIRED IS IN COLUMN -JCOL- IN POSITION (IROW-JCOL+I1) C 180 IDX= INXCOL I1 = Z(IDX+2) IF (I1) 200,200,190 190 I2 = Z(IDX+3) IPOS = IROW - JCOL + I1 IF (MYRADM .EQ. 2) IPOS = IROW + I1 - 1 GO TO 160 C 200 CONTINUE C C COMPLETE COLUMN C 205 CALL BLDPKN (SCRT1,0,MCB1) C C SAVE COLUMN FA SUM IN ELTAB FOR AWHILE. C RZ(INXCOL+4) = SUMFA C 210 CONTINUE C C PACKED MATRIX IS COMPLETE C CALL WRTTRL (MCB1) CALL CLOSE (SCRT1,CLSREW) C///// C CALL DMPFIL (-SCRT1,Z(NELTAB+1),CORE-NELTAB-2) C CALL BUG (10HF-MATRIX ,210,0,1) C///// C C OUTPUT OF ELEMENT-ID LIST TO QGE HEADER RECORD IS PERFORMED AT C THIS TIME. C FILE = QGE CALL OPEN (*1130,QGE,Z(BUF1),WRTREW) CALL FNAME (QGE,NAME) CALL WRITE (QGE,NAME,2,NOEOR) DO 215 I = IELTAB,NELTAB,LENTRY CALL WRITE (QGE,Z(I),1,NOEOR) 215 CONTINUE CALL WRITE (QGE,0,0,EOR) CALL CLOSE (QGE,CLS) C C OPEN EST AND PROCESS EST ELEMENT DATA OF ONLY THE HBDY ELEMENTS C WHOSE ELEMENT ID-S ARE IN THE RADLST. I.E. NOW IN THE RDLST TABLE C FILE = EST CALL GOPEN (EST,Z(BUF1),RDREW) GO TO 230 C C LOCATE HBDY ELEMENT TYPE RECORD C 220 CALL FWDREC (*1110,EST) C C READ ELEMENT TYPE C 230 CALL READ (*300,*1120,EST,ELTYPE,1,NOEOR,WORDS) IF (ELTYPE .NE. HBDYTP) GO TO 220 C C NOW POSITIONED TO READ EST DATA FOR HBDY ELEMENT. C J = (ELTYPE-1)*INCR ESTWDS = ELEM(J+12) LOST = 0 C C READ EST FOR ONE ELEMENT C 240 CALL READ (*1110,*300,EST,ECPT,ESTWDS,NOEOR,WORDS) C C FIND ID IN LIST C DO 250 I = IELTAB,NELTAB,LENTRY IF (ECPT(1) .EQ. Z(I)) GO TO 260 250 CONTINUE GO TO 240 C C ELEMENT ID IS IN LIST C 260 CALL HBDY (ECPT,ECPT,1,RDATA,IDATA) C C ON RETURN TAKE ELEMENT OUTPUTS AND PLANT THEM IN ALL ENTRIES C HAVING THIS SAME ID. C IADD = 4*PRECIS + 7 DO 290 J = IELTAB,NELTAB,LENTRY IF (ECPT(1) .NE. Z(J)) GO TO 290 C C CHECK TO SEE IF SUM FA/A EQUALS 1.0 FOR THIS ELEMENT. C IF (RDATA(2) .GT. 1.0E-10) GO TO 261 CHECK = 9999999. GO TO 263 261 CHECK = RZ(J+3)/RDATA(2) IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) CHECK = CHECK/RDATA(3) IF (CHECK .GT. 0.99) GO TO 262 LOST = LOST + 1 262 IF (CHECK .LT. 1.01) GO TO 266 263 WRITE (OUTPT,264) UFM,Z(J),CHECK,RDATA(2) 264 FORMAT (A23,' 2360, TOTAL VIEW FACTOR (FA/A), FOR ELEMENT',I9, 1 ' IS',1P,E14.6,', (ELEMENT AREA IS ',1P,E14.5,').') NOGO = .TRUE. 266 IF (CHECK.LT.1.01 .AND. RADCHK.NE.0) WRITE (OUTPT,267) UIM,Z(J), 1 CHECK,RDATA(2) 267 FORMAT (A29,' 2360, TOTAL VIEW FACTOR (FA/A), FOR ELEMENT',I9, 1 ' IS ',1P,E14.6,', (ELEMENT AREA IS ',1P,E14.5,')') Z(J ) = IDATA(1) Z(J+1) = IDATA(2) Z(J+2) = IDATA(3) Z(J+3) = IDATA(4) Z(J+4) = IDATA(5) Z(J+5) = IDATA(6) Z(J+6) = IDATA(7) Z(J+7) = IDATA(8) IF (DOUBLE) GO TO 270 RZ(J+ 8) = RDATA( 9) RZ(J+ 9) = RDATA(10) RZ(J+10) = RDATA(11) RZ(J+11) = RDATA(12) GO TO 280 270 DX = J/2 + 1 DZ(DX+4) = RDATA( 9) DZ(DX+5) = RDATA(10) DZ(DX+6) = RDATA(11) DZ(DX+7) = RDATA(12) 280 Z(J) = -Z(J) 290 CONTINUE GO TO 240 C C ALL ELEMENTS PROCESSED. C 300 CALL CLOSE (EST,CLSREW) IF (LOST .GT. 0) WRITE (OUTPT,302) UIM,LOST 302 FORMAT (A29,' 2361, ',I4,' ELEMENTS HAVE A TOTAL VIEW FACTOR (FA', 1 '/A) LESS THAN 0.99 , ENERGY MAY BE LOST TO SPACE.') C C CHECK TO SEE IF ALL ELEMENTS WERE PROCESSED. C C///// C CALL BUG (4HELTB ,270,Z(IELTAB),NELTAB-IELTAB+1) C///// DO 340 I = IELTAB,NELTAB,LENTRY IF (Z(I)) 310,310,320 310 Z(I) = -Z(I) GO TO 340 320 NOGO = .TRUE. WRITE (OUTPT,330) UFM,Z(I) 330 FORMAT (A23,' 3073, NO -HBDY- ELEMENT SUMMARY DATA IS PRESENT ', 1 'FOR ELEMENT ID =',I9, /5X, 2 'WHICH APPEARS ON A -RADLST- BULK DATA CARD.') 340 CONTINUE IF (NOGO) CALL MESAGE (-61,0,0) IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) GO TO 345 C C FORMATION OF THE Y MATRIX. MATRIX F IS STORED ON SCRATCH 1 C C Y = -F (1.0 - E ) + A C IJ IJ J I C C A IS ADDED IN ONLY TO THE DIAGONAL TERMS I.E. I = J C I C C MATRIX Y WILL BE STORED ON SCRATCH 2. C C C OPEN SCRATCH 1 FOR MATRIX F COLUMN UNPACKING. C CALL GOPEN (SCRT1,Z(BUF1),RDREW) C C OPEN SCRATCH 2 FOR MATRIX Y COLUMN PACKING C CALL GOPEN (SCRT2,Z(BUF2),WRTREW) CALL MAKMCB (MCB2,SCRT2,NE,SQR,PRECIS) C C SET UP VECTOR CORE (INSURE EVEN BOUNDARY) C 345 ICOL = MOD(NELTAB,2) + NELTAB + 1 RCOL = ICOL DCOL = ICOL/2 + 1 NCOL = ICOL + PRECIS*NE - 1 IF (NCOL .GT. CORE) CALL MESAGE (-8,0,SUBR) IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) GO TO 465 MELTAB = IELTAB - LENTRY - 1 C C SETUP /PACKX/ FOR PACKING COLUMNS OF Y (SCRATCH 2) C PKIN = PRECIS PKOUT = PRECIS PKIROW = 1 PKNROW = NE PKINCR = 1 C C SETUP /UNPAKX/ FOR UNPACKING COLUMNS OF F (SCRATCH 1) C UNOUT = PRECIS UNIROW = 1 UNNROW = NE UNINCR = 1 DO 430 I = 1,NE MELTAB = MELTAB + LENTRY RX = RCOL DX = DCOL C C UNPACK A COLUMN OF F INTO CORE. C CALL UNPACK (*350,SCRT1,Z(ICOL)) GO TO 370 350 DO 360 J = ICOL,NCOL Z(J) = 0 360 CONTINUE C C COMPUTE THE Y-COLUMN C 370 DO 390 IROW = 1,NE IF (DOUBLE) GO TO 380 C C REAL COMPUTATION C RZ(RX) = -RZ(RX)*(1.0E0 - RZ(MELTAB+3)) IF (IROW .EQ. I) RZ(RX) = RZ(RX) + RZ(MELTAB+2) RX = RX + 1 GO TO 390 C C DOUBLE PRECISION COMPUTATION C 380 DZ(DX) = -DZ(DX)*(1.0D0 - DBLE(RZ(MELTAB+3))) IF (IROW .EQ. I) DZ(DX) = DZ(DX) + DBLE(RZ(MELTAB+2)) DX = DX + 1 390 CONTINUE C C PACK COLUMN OUT C MCBSAV = MCB2(6) MCB2(6) = 0 CALL PACK (Z(ICOL),SCRT2,MCB2) IF (MCB2(6)) 400,400,420 400 NOGO = .TRUE. WRITE (OUTPT,410) UFM,I 410 FORMAT (A23,' 3074, COLUMN',I9,' OF THE Y MATRIX IS NULL.') 420 MCB2(6) = MAX0(MCB2(6),MCBSAV) C 430 CONTINUE IF (NOGO) CALL MESAGE (-61,0,SUBR) CALL CLOSE (SCRT1,CLSREW) CALL WRTTRL (MCB2) CALL CLOSE (SCRT2,CLSREW) C///// C CALL DMPFIL (-SCRT2,Z(ICOL),CORE-ICOL-1) C CALL BUG (10HY-MATRIX ,400,0,1) C///// C C NOW SOLVING FOR MATRIX X ON SCRATCH-3 C C (Y) (X) = (F) C C F IS ON SCRATCH 1 C Y IS ON SCRATCH 2 C C C SETUP /DCOMPX/ C IA(1) = SCRT2 IL(1) = 201 IU(1) = 203 IL(5) = PRECIS ISR1 = SCRT4 ISR2 = SCRT5 ISR3 = SCRT6 CALL RDTRL (IA) NZZ = KORSZ(Z(ICOL)) IB = 0 IBBAR = 0 CALL DECOMP (*440,Z(ICOL),Z(ICOL),Z(ICOL)) GO TO 460 440 WRITE (OUTPT,450) UFM 450 FORMAT (A23,' 3075, INTERMEDIATE MATRIX Y IS SINGULAR.') CALL MESAGE (-61,0,SUBR) C C SETUP /GFBSX/ C 460 JL(5) = IL(5) JU(7) = IU(7) JL(1) = 201 JU(1) = 203 JB(1) = SCRT1 JX(1) = SCRT3 IPR = PRECIS C//// WHAT ABOUT IDET ISGN = 1 NZZZ = NZZ JL(3) = NE JX(5) = PRECIS CALL RDTRL (JB(1)) CALL GFBS (Z(ICOL),Z(ICOL)) JX(3) = NE JX(4) = SQR CALL WRTTRL (JX) C///// C CALL DMPFIL (-SCRT3,Z(ICOL),CORE-ICOL-1) C CALL BUG (10HX-MATRIX ,438,0,1) C///// C C FORMATION OF THE R MATRIX (TO BE STORED ON SCRATCH 1) C C R =(-SIGMA*E *A *E *X ) + (SIGMA*E *A ) C IJ J I I IJ J I C C (TERM2 IS ADDED IN ONLY WHEN I = J) C C IF MYRADM = 1 OR 2 , RADMTX MULTIPLIED BY -SIGMA IS ON SCRT3 C MATRIX X IS ON SCRATCH 3 C C C OPEN SCRATCH 3 FOR MATRIX X COLUMN UNPACKING. C 465 CALL GOPEN (SCRT3,Z(BUF3),RDREW) C C THE FOLLOWING CARD IS NEEDED IF DIRECT SCRIPT-F INPUT IS USED C SCRT1 = 301 C C OPEN SCRATCH 1 FOR MATRIX R COLUMN PACKING. C FILE = SCRT1 CALL GOPEN (SCRT1,Z(BUF1),WRTREW) CALL MAKMCB (MCB1,SCRT1,NE,SQR,PRECIS) MELTAB = IELTAB - LENTRY - 1 C C SETUP /PACKX/ FOR PACKING COLUMNS OF R (SCRATCH 1) C PKIN = PRECIS PKOUT = PRECIS PKIROW = 1 PKNROW = NE PKINCR = 1 C C SETUP /UNPAKX/ FOR UNPACKING COLUMNS OF X (SCRATCH 3) C UNOUT = PRECIS UNIROW = 1 UNNROW = NE UNINCR = 1 C IDX1 = IELTAB - LENTRY DO 520 ICOLUM = 1,NE DSUMFA = 0. SUMFA = 0. MELTAB = MELTAB + LENTRY C C COMPUTE CONSTANT FOR COLUMN C C TEMP1 = SIGMA*E C J C TEMP1 = SIGMA*RZ(MELTAB+3) RX = RCOL DX = DCOL C C UNPACK A COLUMN OF X INTO CORE. C CALL UNPACK (*470,SCRT3,Z(ICOL)) GO TO 490 470 DO 480 J = ICOL,NCOL Z(J) = 0 480 CONTINUE C C COMPUTE THE R-COLUMN C 490 IDX2 = IDX1 DO 510 IROW = 1,NE IDX2 = IDX2 + LENTRY IF (DOUBLE) GO TO 500 C C REAL COMPUTATION. C IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) GO TO 495 TEMP2 = TEMP1*RZ(IDX2+1) RZ(RX) =-TEMP2*RZ(IDX2+2)*RZ(RX) IF (IROW .EQ. ICOLUM) RZ(RX) = RZ(RX) + TEMP2 495 IF (IROW .NE. ICOLUM) SUMFA = SUMFA + RZ(RX) RX = RX + 1 GO TO 510 C C DOUBLE PRECISON COMPUTATION C 500 IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) GO TO 505 DTEMP2 = DBLE(TEMP1)*DBLE(RZ(IDX2+1)) DZ(DX) =-DTEMP2*DBLE(RZ(IDX2+2))*DZ(DX) IF (IROW .EQ. ICOLUM) DZ(DX) = DZ(DX) + DTEMP2 505 IF (IROW .NE. ICOLUM) DSUMFA = DSUMFA + DZ(DX) DX = DX + 1 C 510 CONTINUE C C PACK COLUMN OF R OUT C IF (MYRADM.NE.1 .AND. MYRADM.NE.2) GO TO 515 IF (DOUBLE) DZ(DX-1-NE+ICOLUM) = -DSUMFA IF (.NOT.DOUBLE) RZ(ICOLUM+RX-1-NE) = -SUMFA 515 CALL PACK (Z(ICOL),SCRT1,MCB1) 520 CONTINUE CALL WRTTRL (MCB1) CALL CLOSE (SCRT1,CLSREW) CALL CLOSE (SCRT3,CLSREW) C///// C CALL DMPFIL (-SCRT1,Z(ICOL),CORE-ICOL-1) C CALL BUG (10HR-MATRIX ,490,0,1) C///// C C ALL OF THE HBDY ELEMENTS OF THE RADLST HAVE C HAD THEIR G TERMS COMPUTED, THESE G TERMS MAY BE INSERTED INTO C THE FULL MATRIX G. C C GOING THROUGH THE RADLST TABLE WE HAVE EACH ELEMENT ENTRY FORMING C A COLUMN OF G WITH THE G TERMS OF THE RESPECTIVE ENTRY BEING C ENTERED INTO THE COLUMN AT THE SIL LOCATIONS. (THE SILS WERE C PLACED IN THE RADLST ENTRY EARLIER) C C C AS THE X MATRIX STORED ON SCRATCH 3 IS NO LONGER NEEDED C WE WILL USE SCRATCH 3 FOR THE G MATRIX NOW. C CALL GOPEN (SCRT3,Z(BUF3),WRTREW) CALL MAKMCB (MCB3,SCRT3,LUSET,2,PRECIS) C C LOOP ON THE RADLST TABLE C DO 600 I = IELTAB,NELTAB,LENTRY C C BEGIN PACKING A COLUMN OUT C CALL BLDPK (PRECIS,PRECIS,SCRT3,0,0) C C PACK 1 TO 4 TERMS OUT. C I1 = I + 4 I2 = I + 7 DO 580 J = 1,4 C C PICKING THE SMALLEST SIL NOT ZERO FOR THE NEXT TERM OUT C ISIL = 0 DO 560 L = I1,I2 IF (Z(L)) 560,560,530 530 IF (ISIL) 550,550,540 540 IF (Z(L)-ISIL) 550,550,560 550 ISIL = Z(L) K = L 560 CONTINUE C C ZERO SIL IMPLYS OUT OF VALUES C IF (ISIL) 590,590,570 C C PACK OUT TERM (MAY BE SINGLE OR DOUBLE PRECISON) C 570 IROW = Z(K) Z(K) = 0 C C RESET K TO GIJ TERM PTR. C KK = K + 4 IF (DOUBLE) KK = KK + K - I1 AO(1) = RZ(KK ) AO(2) = RZ(KK+1) CALL ZBLPKI 580 CONTINUE C C COMPLETE THE COLUMN C 590 CALL BLDPKN (SCRT3,0,MCB3) 600 CONTINUE C C G MATRIX IS COMPLETE ON SCRATCH 3. C CALL WRTTRL (MCB3) CALL CLOSE (SCRT3,CLSREW) C///// C CALL DMPFIL (-SCRT3,Z(ICOL),CORE-ICOL-1) C CALL BUG (10HG-MATRIX ,570,0,1) C///// C C FORM OUTPUT MATRIX (Q ) = (G)(R ) C GE E C C C ALL CORE AT THIS POINT IS AVAILABLE THUS OPEN CORE FOR SSG2B C WHICH IS IN /SSGB2/ MAY BE AT THE SAME LEVEL AS C /RMGZZZ/. SSG2B IS THE DRIVER FOR MPYAD. C CALL SSG2B (SCRT3,SCRT1,0,SCRT5,0,PRECIS,1,SCRT2) C C T C FORM OUTPUT MATRIX (R ) = (Q )(G ) C GG GE C C C THE MATRIX G IS FIRST TRANSPOSED. C C MATRIX G IS ON SCRATCH-3. MATRIX G TRANSPOSE WILL BE ON SCRATCH-2 C C OPEN CORE /DTRANX/ FOR TRANP1 MAY BE AT SAME LEVEL AS /RMGZZZ/. C CALL TRANP1 (SCRT3,SCRT2,4,SCRT4,SCRT6,SCRT1,RGG,0,0,0,0) C///// C CALL DMPFIL (-SCRT2,Z(ICOL),CORE-ICOL-1) C CALL BUG (10HG-TRANSP ,570,0,1) C///// C C SSG2B MAY BE CALLED NOW TO COMPUTE (R ) C GG C CALL SSG2B (SCRT5,SCRT2,0,RGG,0,PRECIS,1,SCRT1) C C QGE WAS PLACED ON SCRT5. NOW COPY IT TO QGE (WHERE THE HEADER C RECORD HAS BEEN SPECIALLY PREPARED EARLIER) . C FILE = QGE CALL OPEN (*1130,QGE,Z(BUF1),WRT) FILE = SCRT5 CALL GOPEN (SCRT5,Z(BUF2),RDREW) CALL CPYFIL (SCRT5,QGE,Z,CORE,ICOUNT) MCB(1) = SCRT5 CALL RDTRL (MCB) MCB(1) = QGE CALL WRTTRL (MCB) CALL CLOSE (SCRT5,CLSREW) CALL CLOSE (QGE,CLSREW) C C 1 3 C FORM S = 4(U + T ) THIS IS ACTUALLY A DIAGONAL MATRIX. C GG G A C C NOW ALLOCATE S DIAGONAL MATRIX SPACE AND STORE -TABS- EVERYWHERE C GG C C ISGG = 1 NSGG = PRECIS*LUSET IF (NSGG .GT. CORE) CALL MESAGE (-8,0,SUBR) IF (DOUBLE) GO TO 620 C C REAL VECTOR C DO 610 I = ISGG,NSGG RZ(I) = TABS 610 CONTINUE GO TO 640 C C DOUBLE PRECISION VECTOR C 620 DX = ISGG/2 + 1 NDX = DX + LUSET - 1 DO 630 I = DX,NDX DZ(I) = TABS 630 CONTINUE C C IF -TSET- IS SPECIFIED THEN THAT SET OF TEMPERATURES IS ADDED TO C THE UG VECTOR IN CORE. C 640 IF (TSET) 900,900,650 C C TSET IS REQUESTED C 650 FILE = GPTT CALL OPEN (*1130,GPTT,Z(BUF1),RDREW) C C DETERMINE NUMBER OF RECORDS IN ELEMENT TEMPERATURE SECTION TO C SKIP OVER. (FIRST SKIP THE NAME IN HEADER) C CALL READ (*1110,*1120,GPTT,BUF,2,NOEOR,FLAG) C C LOOK FOR REQUESTED TSET POINTERS AND REPOSITION GPTT. C NUMBER = 0 NUMTST = -1 660 CALL READ (*1110,*670,GPTT,BUF,3,NOEOR,FLAG) IF (BUF(3) .GT. NUMBER) NUMBER = BUF(3) IF (TSET .NE. BUF(1)) GO TO 660 C C BUF(1)=SET-ID, BUF(2)=-1 OR DEFAULT TEMP, BUF(3)=GPTT DATA RECORD. C DEFALT = RBUF(2) NUMTST = BUF(3) GO TO 660 C C CHECK FOR TSET NOT FOUND. C 670 IF (NUMTST .EQ. -1) GO TO 1170 C C ADD SKIP COUNTS (EL. RECORDS + DUPE HEADER + TEMP SET -1) C NUMBER = NUMBER + NUMTST C C NO NEED TO DO FURTHER I/O IF TSET IS ALL DEFAULT TEMPS. C IF (NUMTST .EQ. 0) NUMBER = 0 IF (NUMBER) 740,740,720 720 DO 730 I = 1,NUMBER CALL FWDREC (*1110,GPTT) 730 CONTINUE C C TEMPERATURE DATA IS IN PAIRS OF INTERNAL ID AND TEMPERATURE. C C C AT THIS POINT THE GRID POINT TEMPERATUE DATA IS ADDED INTO THE SGG C DIAGONAL HELD IN CORE. C 740 NSIL = 1 RX = ISGG - 1 DX = ISGG/2 ASSIGN 750 TO IRETRN IF (NUMBER) 790,790,750 750 CALL READ (*1110,*870,GPTT,BUF,2,NOEOR,FLAG) 760 IF (BUF(1)-NSIL) 770,820,800 770 WRITE (OUTPT,780) SFM 780 FORMAT (A25,' 3076, GPTT DATA IS NOT IN SORT BY INTERNAL ID.') CALL MESAGE (-61,0,SUBR) C C ADD DEFAULT TEMPERATURE (IF ONE EXISTS) TO THOSE POINTS NOT HAVING C AN EXPLICIT TEMPERATURE DEFINED. C 790 BUF(1) = LUSET + 1 800 IF (IDEFLT .NE. -1) GO TO 830 WRITE (OUTPT,810) UFM,NSIL 810 FORMAT (A23,' 3077, THERE IS NO GRID POINT TEMPERATURE DATA OR ', 1 'DEFAULT TEMPERATURE DATA FOR SIL POINT',I9, /5X, 2 'AND POSSIBLY OTHER POINTS.') CALL MESAGE (-61,0,SUBR) 820 VALUE = RBUF(2) GO TO 840 830 VALUE = DEFALT ASSIGN 880 TO IRETRN ISIL = NSIL KSIL = BUF(1) - 1 NSIL = BUF(1) GO TO 845 840 ISIL = NSIL KSIL = BUF(1) NSIL = BUF(1) + 1 845 DO 860 I = ISIL,KSIL IF (I .GT. LUSET) GO TO 890 IF (DOUBLE) GO TO 850 RX = RX + 1 RZ(RX) = RZ(RX) + VALUE GO TO 860 850 DX = DX + 1 DZ(DX) = DZ(DX) + DBLE(VALUE) 860 CONTINUE GO TO IRETRN, (750,890,880) 870 ASSIGN 890 TO IRETRN BUF(1) = LUSET VALUE = DEFALT GO TO 840 880 ASSIGN 750 TO IRETRN GO TO 760 C C ALL TEMPERATURE DATA HAS BEEN ADDED IN. C 890 CALL CLOSE (GPTT,CLSREW) C///// C CALL BUG (4HTMPS,890,Z(ISGG),NSGG-ISGG+1) C///// C C NOW CUBE EACH TERM AND THEN MULTIPLY EACH TERM BY 4.0 C 900 IF (DOUBLE) GO TO 920 C C REAL COMPUTATION C DO 910 I = ISGG,NSGG RZ(I) = 4.0*(RZ(I)**3) 910 CONTINUE GO TO 940 C C DOUBLE PRECISION COMPUTATION C 920 DX = ISGG/2 + 1 NDX = DX + LUSET - 1 DO 930 I = DX,NDX DZ(I) = 4.0D0*(DZ(I)**3) 930 CONTINUE C C ALLOCATION OF CORE FOR A COLUMN OF MATRIX RGG. C 940 IRGG = NSGG + 1 NRGG = IRGG + PRECIS*LUSET - 1 DIRGG = IRGG/2 + 1 DNRGG = DIRGG + LUSET - 1 IF (NRGG .GT. CORE) CALL MESAGE (-8,0,SUBR) C C X C FORM OUTPUT MATRIX (K ) = (K ) + (R )(S ) C GG GG GG GG C C C THE DIAGONAL MATRIX (S ) RESIDES IN CORE FROM Z(ISGG) TO Z(NSGG) C GG C C Z(IRGG) TO Z(NRGG) WILL BE USED TO HOLD A COLUMN OF R. C C X C (K ) WILL BE UNPACKED INCREMENTALLY AND ADDED INTO THE COLUMN C GG C C OF R, AFTER THAT COLUMN OF R HAS BEEN MULTIPLIED BY THE RESPECTIVE C C DIAGONAL ELEMENT OF (S ). C GG C C///// C CALL BUG (4HSGG ,829,Z(ISGG),NSGG-ISGG+1) C///// CALL GOPEN (RGG,Z(BUF1),RDREW) CALL GOPEN (KGGX,Z(BUF2),RDREW) CALL GOPEN (KGG,Z(BUF3),WRTREW) CALL MAKMCB (MCB1,KGG,LUSET,SQR,PRECIS) C C SET UP /PACKX/ FOR PACKING COLUMN OF KGG OUT. C PKIN = PRECIS PKOUT = PRECIS PKIROW = 1 PKNROW = LUSET PKINCR = 1 RX = ISGG - 1 DX = ISGG/2 C C LOOP THROUGH -LUSET- COLUMNS TO BE OUTPUT. C DO 1080 I = 1,LUSET IF (DOUBLE) GO TO 950 RX = RX + 1 VALUE = RZ(RX) GO TO 960 950 DX = DX + 1 DVALUE = DZ(DX) C C UNPACK A COLUMN OF R C 960 DO 980 J = IRGG,NRGG Z(J) = 0 980 CONTINUE C C -UNPACK- CAN NOT BE USED HERE DUE TO UNPACKING OF KGGX BELOW. C CALL INTPK (*990,RGG,BLOCK2,PRECIS,1) 984 CALL INTPKI (AI,IIROW,RGG,BLOCK2,IEOL) IF (DOUBLE) GO TO 985 K = IRGG - 1 + IIROW RZ(K) = RZ(K) + AI(1) IF (IEOL) 984,984,990 985 K = DIRGG - 1 + IIROW DZ(K) = DZ(K) + DI(1) IF (IEOL) 984,984,990 C C MULTIPLY RGG COLUMN BY DIAGONAL ELEMENT OF SGG. C 990 IF (DOUBLE) GO TO 1010 C C REAL COMPUTATION C DO 1000 J = IRGG,NRGG RZ(J) = RZ(J)*VALUE 1000 CONTINUE GO TO 1030 C C DOUBLE PRECISION COMPUTATION C 1010 DO 1020 J = DIRGG,DNRGG DZ(J) = DZ(J)*DVALUE 1020 CONTINUE C C INCREMENTAL UNPACK OF A COLUMN OF KGGX. C ADD TO MODIFIED COLUMN OF RGG IN CORE, AND THEN C BLAST PACK OUT FURTHER MODIFIED COLUMN AS A COLUMN OF KGG. C C START UNPACKING COLUMN OF KGGX C 1030 CALL INTPK (*1070,KGGX,BLOCK,PRECIS,1) 1040 CALL INTPKI (AI,IIROW,KGGX,BLOCK,IEOL) C C ADD VALUE IN C IF (IIROW .GT. LUSET) GO TO 1050 IF (DOUBLE) GO TO 1060 C C REAL ADD IN C K = IRGG - 1 + IIROW RZ(K) = RZ(K) + AI(1) 1050 IF (IEOL) 1040,1040,1070 C C DOUBLE PRECISION ADD IN C 1060 K = DIRGG - 1 + IIROW DZ(K) = DZ(K) + DI(1) IF (IEOL) 1040,1040,1070 C C PACK OUT COMPLETED COLUMN. C 1070 CALL PACK (Z(IRGG),KGG,MCB1) 1080 CONTINUE CALL WRTTRL (MCB1) CALL CLOSE (KGG,CLSREW ) CALL CLOSE (KGGX,CLSREW) CALL CLOSE (RGG,CLSREW ) C C ALL PROCESSING COMPLETED. C NLR = +1 RETURN 1090 CALL CLOSE (MATPOL,CLSREW) 1100 NLR = -1 RETURN C C ERROR CONDITIONS C C C END OF FILE C 1110 J = -2 GO TO 1140 C C END OF RECORD C 1120 J = -3 GO TO 1140 C C UNDEFINED FILE C 1130 J = -1 1140 CALL MESAGE (J,FILE,SUBR) C C GPTT DATA MISSING FOR SET -TSET-. C 1170 WRITE (OUTPT,1180) UFM,TSET 1180 FORMAT (A23,' 3078, NO GPTT DATA IS PRESENT FOR TEMPERATURE SET ', 1 I8,1H.) CALL MESAGE (-61,0,SUBR) C C NO HBDY ELEMENTS C C RETURN END ================================================ FILE: mis/rod.f ================================================ SUBROUTINE ROD C C ELEMENT TEMPERATURE AND DEFORMATION LOADING FOR THE ROD, CONROD, C TUBE C INTEGER ELTYPE,EID,GPIDA,GPIDB REAL ARRY(3),GPIDA1(1),GPIDB1(1) COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ COMMON /ZZZZZZ/ CORE(1) COMMON /TRIMEX/ EID, GPIDA, GPIDB, IARRY(97) COMMON /MATIN / MATID,INFLAG,TEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E1,G,NU,RHO,ALPHA,TO1,GE,SIGMAT,SIGMAC,SIGMAS, 1 SPACE(10) COMMON /SSGWRK/ TI(16),VECT(3),FORCE(3),BGPDT(9),VMAG,IN,L,TBAR, 1 DELTA,XL COMMON /SSGETT/ ELTYPE,OLDEL,EORFLG,ENDID,BUFFLG,ITEMP,IDEFT,IDEFM EQUIVALENCE (IARRY(1),ARRY(1)), 1 (ICSTMA,BGPDT(1)),(ICSTMB,BGPDT(5)), 2 (GPIDA1(1),BGPDT(2)),(GPIDB1(1),BGPDT(6)) C NEPT = 5 IF (ELTYPE .EQ. 3) NEPT = 4 A = ARRY(2) C C RECOMPUTE AREA IF ELEMENT IS TUBE C IF (NEPT .EQ. 4) A = PI*(A-ARRY(3))*ARRY(3) C DO 100 I = 1,9 NEPT = NEPT + 1 100 BGPDT(I) = ARRY(NEPT) C C OBTAIN THE MATERIAL DATA C INFLAG = 1 MATID = IARRY(1) TEMP = BGPDT(9) CALL MAT (EID) IF (ITEMP) 240,250,240 240 CALL SSGETD (EID,TI,0) TBAR = TI(1) - TO1 GO TO 260 250 TBAR = 0.0 260 IF (IDEFT) 270,280,270 270 CALL FEDT (EID,DELTA,IDEFM) GO TO 290 280 DELTA = 0.0 290 DO 310 I = 1,3 310 VECT(I) = GPIDA1(I) - GPIDB1(I) CALL NORM (VECT(1),XL) VMAG = E1*A*(DELTA + ALPHA*XL*TBAR)/XL DO 320 I = 1,3 VECT(I) = -VECT(I)*VMAG 320 FORCE (I) = -VECT(I) IF (ICSTMB) 330,340,330 330 CALL BASGLB (VECT(1),VECT(1),GPIDB1,ICSTMB) 340 IN = GPIDB - 1 DO 350 I = 1,3 L = IN + I 350 CORE(L) = CORE(L) + VECT(I) IF (ICSTMA) 370,380,370 370 CALL BASGLB (FORCE(1),FORCE(1),GPIDA1,ICSTMA) 380 IN = GPIDA - 1 DO 390 I = 1,3 L = IN + I 390 CORE(L) = CORE(L) + FORCE(I) RETURN END ================================================ FILE: mis/rodd.f ================================================ SUBROUTINE RODD C C THIS ROUTINE PROCESSES ROD ELEMENT DATA TO PRODUCE STIFFNESS AND C MASS MATRICES. IF THE HEAT TRANSFER OPTION IS ON, CONDUCTIVITY AND C CAPACITY MATRICES ARE PRODUCED C C THIS ROUTINE CAN COMPUTE BOTH CONVENTIONAL AND CONSISTENT C MASS MATRICES C C DOUBLE PRECISION VERSION C C THIS VERSION WAS SPECIALLY CODED TO ILLUSTRATE A GENERAL C USE OF THE IMPROVED MATRIX GENERATOR. C C THE EST ENTRY FOR THIS ELEMENT CONTAINS C C POSITION NAME DESCRIPTION C ***** ***** ******************************* C 1 EID ELEMENT ID NO. C 2 SIL1 SCALAR INDEX OF POINT A C 3 SIL2 SCALAR INDEX OF POINT B C 4 MID MATERIAL DATA ID C 5 AFACT AREA OF CROSS SECTION C 6 JFACT TORSIONAL STIFFNESS COEFFICIENT C 7 CFACT TORSIONAL STRESS RECOVERY DISTANCE C 8 MU NON-STRUCTURAL MASS PER LENGTH C 9-16 BGPDT BASIC GRID POINT DATA. COORDINATE SYSTEM C NUMBER AND X,Y,Z LOCATION FOR 2 POINTS C 17 TBAR AVERAGE ELEMENT TEMPERATURE C C LOGICAL NOGO INTEGER SIL1 ,SIL2 ,IEST(13) ,EID ,GE , 1 DICT(7) ,ELID ,ESTID REAL JFACT ,MU ,KCON ,EST(200) DOUBLE PRECISION EVECT(3) ,EL ,KE ,ME , 1 TE ,HA(3) ,HB(3) ,KHA(3) ,KHB(3) , 2 TA(9) ,TB(9) ,SCALE ,K ,MJIDUM(9), 3 MASSII(9),MASSJJ(9),MASSIJ(9),MASSJI(9),MIJDUM(9) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /MATIN / MATID ,INFLAG ,ELTEMP ,DUM(3) COMMON /MATOUT/ E ,G ,NU ,RHO ,ALFA , 1 TSUB0 ,GE COMMON /HMTOUT/ KCON COMMON /EMGPRM/ IXTRA ,IZR ,NZR ,DUMY(12) ,KMBGG(3) , 1 IPREC ,NOGO ,HEAT ,ICMBAR COMMON /EMGDIC/ DUM2(2) ,NLOCS ,ELID ,ESTID COMMON /ZZZZZZ/ K(1) C C THE VARIABLE K IS OPEN CORE. OPEN SPACE EXISTS FROM Z(IZ) TO Z(NZ) C THIS IS INTENDED AS AN EXAMPLE. NORMALLY FOR SMALL ARRAYS C LOCAL VARIABLES MAY BE USED. C COMMON /EMGEST/ EID ,SIL1 ,SIL2 ,MID ,AFACT , 1 JFACT ,CFACT ,MU ,BGPDT(4,2),TBAR COMMON /SYSTEM/ KSYSTM(63) EQUIVALENCE (KSYSTM( 2),IOUTPT),(KSYSTM(56),IHEAT) , 1 (EID,EST(1),IEST(1)),(CP,KCON) C C FOR DOUBLE PRECISION THE POINTERS TO OPEN CORE MUST BE MODIFIED. C IZ = (IZR-2)/IPREC + 2 NZ = NZR/IPREC IF (NZ-IZ .LE. 144) GO TO 290 DICT(1) = ESTID C C SUBTRACT BASIC LOCATIONS TO OBTAIN LENGTH ETC. C DO 10 I = 1,3 10 EVECT(I) = BGPDT(I+1,2) - BGPDT(I+1,1) C EL = DSQRT(EVECT(1)**2 + EVECT(2)**2 + EVECT(3)**2) IF (EL .LE. 0.0D0) GO TO 270 C C IF HEAT TRANSFER PROBLEM TRANSFER. CALL MATERIAL SUBROUTINE C INFLAG = 1 MATID = MID ELTEMP = TBAR IF (IHEAT .EQ. 1) GO TO 240 CALL MAT (EID) KE = DBLE(E*AFACT)/EL ME = (DBLE(RHO*AFACT+MU))*EL/2.0D0 TE = DBLE(G*JFACT)/EL C C PROCESS STIFFNESS HERE C IF (KMBGG(1) .EQ. 0) GO TO 220 IF (KE.EQ.0.0D0 .AND. TE.EQ.0.0D0) GO TO 220 C C GENERATE HA = (E*TA)/EL AND HB = (E*TB)/EL C IF (IEST(9) .EQ. 0) GO TO 30 CALL TRANSD (BGPDT(1,1),TA) CALL GMMATD (EVECT,1,3,0, TA,3,3,0, HA) DO 20 I = 1,3 20 HA(I) = HA(I)/EL GO TO 50 30 DO 40 I = 1,3 40 HA(I) = EVECT(I)/EL 50 IF (IEST(13) .EQ. 0) GO TO 70 CALL TRANSD (BGPDT(1,2),TB) CALL GMMATD (EVECT,1,3,0, TB,3,3,0, HB) DO 60 I = 1,3 60 HB(I) = HB(I)/EL GO TO 90 70 DO 80 I = 1,3 80 HB(I) = EVECT(I)/EL C C THE GENERAL 12X12 MATRIX FOR THE ROD ELEMENT IS C - - C 1HA K HA1 0 1HA K HB1 1 C ** ** 1 ------1------1-------1-------1 C * K * = 1 0 1HA T A1 1HA T HB1 C ** ** 1 ------1------1-------1-------1 C 1HB K HA1 1HB K HB1 1 C 1 ------1------1-------1-------1 C 1 1HB T A1 1HB T HB1 C 1 1 1 1 1 C - - C EACH BLOCK ABOVE IS A 3 BY 3 MATRIX C C TEST AND SET COMPONENT CODE 111= 7 111000=56 C 90 ICODE = 0 NDOF = 0 IF (TE .NE. 0.D0) GO TO 100 ICODE = 7 NDOF = 6 GO TO 120 100 IF (KE .NE. 0.D0) GO TO 110 ICODE = 56 NDOF = 6 GO TO 120 110 ICODE = 63 NDOF = 12 120 NSQ = NDOF**2 NG = NDOF/2 NPART = NG*NDOF IZERO = IZ - 1 IPASS = 1 DO 130 I = 1,NSQ IZPI = IZ + I - 1 130 K(IZPI) = 0.0D0 C C EXTENSIONAL STIFFNESS TERMS ARE COMPUTED HERE. C IF (ICODE .EQ. 56) GO TO 200 SCALE = KE 140 DO 150 I = 1,3 KHA(I) = SCALE*HA(I) 150 KHB(I) = SCALE*HB(I) C C THE MATRIX COLUMNS AND ROWS MUST BE IN THE NUMERICAL ORDER C OF TH SIL VALUES. THE POINTERS INTO THE MATRIX ARE VARIABLES. C IF (SIL2-SIL1) 160,270,170 160 IBBZ = IZERO IABZ = IZERO + NG IBAZ = IZERO + NPART IAAZ = IBAZ + NG GO TO 180 170 IAAZ = IZERO IBAZ = IZERO + NG IABZ = IZERO + NPART IBBZ = IABZ + NG 180 CONTINUE DO 190 J = 1,3 DO 190 I = 1,3 IJ = NDOF*(J-1) + I IAA = IJ + IAAZ K(IAA) = KHA(I)*HA(J) IBA = IJ + IBAZ K(IBA) =-KHB(I)*HA(J) IAB = IJ + IABZ K(IAB) =-KHA(I)*HB(J) IBB = IJ + IBBZ K(IBB) = KHB(I)*HB(J) 190 CONTINUE C C THE TORSIONAL STIFFNESS TERMS ARE FORMED USING TE INSTEAD OF KE C THEY ARE INSERTED IN THE MATRIX WITH A CONSTANT OFFSET, 3*12+3. C 200 IF (IPASS .EQ. 2) GO TO 210 IF (NDOF .EQ. 12) IZERO = 38 + IZ IPASS = 2 SCALE = TE IF (ICODE .NE. 7) GO TO 140 210 IPART = IZ DICT(2) = 1 DICT(3) = NDOF DICT(4) = ICODE DICT(5) = GE CALL EMGOUT (K(IPART),K(IPART),NSQ,1,DICT,1,IPREC) C C THE MASS MATRIX TERMS ARE CALCULATED HERE. C 220 IF (KMBGG(2).EQ.0 .OR. ME.EQ.0.0D0) RETURN DICT(3) = 6 DICT(4) = 7 DICT(5) = 0 C C CHECK TO SEE IF CONVENTIONAL OR CONSISTENT MASS MATRIX IS REQUIRED C IF (ICMBAR .GT. 0) GO TO 400 C C CONVENTIONAL MASS MATRIX TERMS ARE COMPUTED HERE C DICT(2) = 2 LDATA = 6 IZP5 = IZ + 5 DO 230 I = IZ,IZP5 230 K(I) = ME GO TO 600 C C CONSISTENT MASS MATRIX TERMS ARE COMPUTED HERE C 400 DICT(2) = 1 LDATA = 36 DO 420 I = 1,9 MASSII(I) = 0.0D0 MASSJJ(I) = 0.0D0 MASSIJ(I) = 0.0D0 MASSJI(I) = 0.0D0 MIJDUM(I) = 0.0D0 MJIDUM(I) = 0.0D0 420 CONTINUE ME = 2.0D0*ME DO 440 I = 1,9,4 MASSII(I) = ME/3.0D0 MASSJJ(I) = ME/3.0D0 MASSIJ(I) = ME/6.0D0 MASSJI(I) = ME/6.0D0 MIJDUM(I) = ME/6.0D0 MJIDUM(I) = ME/6.0D0 440 CONTINUE IF (SIL2-SIL1) 480,270,460 460 ITI = 9 ITJ = 13 GO TO 500 480 ITI = 13 ITJ = 9 500 IF (IEST(ITI) .EQ. 0) GO TO 520 CALL TRANSD (IEST(ITI), TA) CALL GMMATD (TA,3,3,1, MASSII,3,3,0, K(IZ)) CALL GMMATD (K(IZ),3,3,0, TA,3,3,0, MASSII) CALL GMMATD (TA,3,3,1, MIJDUM,3,3,0, MASSIJ) CALL GMMATD (MJIDUM,3,3,0, TA,3,3,0, MASSJI) 520 IF (IEST(ITJ) .EQ. 0) GO TO 560 CALL TRANSD (IEST(ITJ), TA) CALL GMMATD (TA,3,3,1, MASSJJ,3,3,0, K(IZ)) CALL GMMATD (K(IZ),3,3,0, TA,3,3,0, MASSJJ) CALL GMMATD (MASSIJ,3,3,0, TA,3,3,0, MIJDUM) CALL GMMATD (TA,3,3,1, MASSJI,3,3,0, MJIDUM) DO 540 I = 1,9 MASSIJ(I) = MIJDUM(I) MASSJI(I) = MJIDUM(I) 540 CONTINUE 560 DO 580 I = 1,3 KZ = IZ + I - 1 K(KZ ) = MASSII(I ) K(KZ+ 6) = MASSII(I+3) K(KZ+12) = MASSII(I+6) K(KZ+ 3) = MASSIJ(I ) K(KZ+ 9) = MASSIJ(I+3) K(KZ+15) = MASSIJ(I+6) K(KZ+18) = MASSJI(I ) K(KZ+24) = MASSJI(I+3) K(KZ+30) = MASSJI(I+6) K(KZ+21) = MASSJJ(I ) K(KZ+27) = MASSJJ(I+3) K(KZ+33) = MASSJJ(I+6) 580 CONTINUE 600 CALL EMGOUT (K(IZ),K(IZ),LDATA,1,DICT,2,IPREC) RETURN C C HEAT TRANSFER CALCULATIONS ARE PERFORMED HERE C 240 INFLAG = 1 DICT(2) = 1 DICT(3) = 2 DICT(4) = 1 DICT(5) = 0 IF (KMBGG(1) .EQ. 0) GO TO 250 CALL HMAT (EID) K(IZ) = DBLE(AFACT*KCON)/EL IF (K(IZ) .EQ. 0.0D0) GO TO 250 K(IZ+1) = -K(IZ) K(IZ+2) = -K(IZ) K(IZ+3) = K(IZ) CALL EMGOUT (K(IZ),K(IZ),4,1,DICT,1,IPREC) 250 INFLAG = 4 IF (KMBGG(1) .EQ. 0) RETURN CALL HMAT (EID) K(IZ) = DBLE(AFACT*CP)*EL/2.0D0 IF (K(IZ) .EQ. 0.0D0) RETURN K(IZ+1) = K(IZ) DICT(2) = 2 CALL EMGOUT (K(IZ),K(IZ),2,1,DICT,3,IPREC) RETURN C 270 NOGO = .TRUE. WRITE (IOUTPT,280) UFM,EID 280 FORMAT (A23,' 3118, ROD ELEMENT NO.',I9, 1 ' HAS ILLEGAL GEOMETRY OR CONNECTIONS.') RETURN C 290 NOGO = .TRUE. WRITE (IOUTPT,300) UFM 300 FORMAT (A23,' 3119, INSUFFICIENT CORE TO PROCESS ROD ELEMENTS') RETURN END ================================================ FILE: mis/rods.f ================================================ SUBROUTINE RODS C C THIS ROUTINE PROCESSES ROD ELEMENT DATA TO PRODUCE STIFFNESS AND C MASS MATRICES. IF THE HEAT TRANSFER OPTION IS ON, CONDUCTIVITY AND C CAPACITY MATRICES ARE PRODUCED C C THIS ROUTINE CAN COMPUTE BOTH CONVENTIONAL AND CONSISTENT C MASS MATRICES C C SINGLE PRECISION VERSION C C THIS VERSION WAS SPECIALLY CODED TO ILLUSTRATE A GENERAL C USE OF THE IMPROVED MATRIX GENERATOR. C C THE EST ENTRY FOR THIS ELEMENT CONTAINS C C POSITION NAME DESCRIPTION C ***** ***** ******************************* C 1 EID ELEMENT ID NO. C 2 SIL1 SCALAR INDEX OF POINT A C 3 SIL2 SCALAR INDEX OF POINT B C 4 MID MATERIAL DATA ID C 5 AFACT AREA OF CROSS SECTION C 6 JFACT TORSIONAL STIFFNESS COEFFICIENT C 7 CFACT TORSIONAL STRESS RECOVERY DISTANCE C 8 MU NON-STRUCTURAL MASS PER LENGTH C 9-16 BGPDT BASIC GRID POINT DATA. COORDINATE SYSTEM C NUMBER AND X,Y,Z LOCATION FOR 2 POINTS C 17 TBAR AVERAGE ELEMENT TEMPERATURE C C LOGICAL NOGO INTEGER SIL1 ,SIL2 ,IEST(13) ,EID ,GE , 1 DICT(7) ,ELID ,ESTID REAL JFACT ,MU ,KCON ,EST(200) ,K , 1 EVECT(3) ,EL ,KE ,ME ,TE , 2 HA(3) ,HB(3) ,KHA(3) ,KHB(3) ,TA(9) , 3 TB(9) ,SCALE REAL MASSII(9),MASSJJ(9),MASSIJ(9),MASSJI(9),MIJDUM(9), 1 MJIDUM(9) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /MATIN / MATID ,INFLAG ,ELTEMP ,DUM(3) COMMON /MATOUT/ E ,G ,NU ,RHO ,ALFA , 1 TSUB0 ,GE COMMON /HMTOUT/ KCON COMMON /EMGPRM/ IXTRA ,IZR ,NZR ,DUMY(12) ,KMBGG(3) , 1 IPREC ,NOGO ,HEAT ,ICMBAR COMMON /EMGDIC/ DUM2(2) ,NLOCS ,ELID ,ESTID COMMON /ZZZZZZ/ K(1) C C THE VARIABLE K IS OPEN CORE. OPEN SPACE EXISTS FROM Z(IZ) TO Z(NZ) C THIS IS INTENDED AS AN EXAMPLE. NORMALLY FOR SMALL ARRAYS C LOCAL VARIABLES MAY BE USED. C COMMON /EMGEST/ EID ,SIL1 ,SIL2 ,MID ,AFACT , 1 JFACT ,CFACT ,MU ,BGPDT(4,2),TBAR COMMON /SYSTEM/ KSYSTM(63) EQUIVALENCE (KSYSTM( 2),IOUTPT),(KSYSTM(56),IHEAT) , 1 (EID,EST(1),IEST(1)),(CP,KCON) C C FOR DOUBLE PRECISION THE POINTERS TO OPEN CORE MUST BE MODIFIED. C IZ = (IZR-2)/IPREC + 2 NZ = NZR/IPREC IF (NZ -IZ .LE. 144) GO TO 290 DICT(1) = ESTID C C SUBTRACT BASIC LOCATIONS TO OBTAIN LENGTH ETC. C DO 10 I = 1,3 10 EVECT(I) = BGPDT(I+1,2) - BGPDT(I+1,1) C EL = SQRT(EVECT(1)**2 + EVECT(2)**2 + EVECT(3)**2) IF (EL .LE. 0.0) GO TO 270 C C IF HEAT TRANSFER PROBLEM TRANSFER. CALL MATERIAL SUBROUTINE C INFLAG = 1 MATID = MID ELTEMP = TBAR IF (IHEAT .EQ. 1) GO TO 240 CALL MAT (EID) KE = (E*AFACT)/EL ME = (RHO*AFACT+MU)*EL/2.0 TE = (G*JFACT)/EL C C PROCESS STIFFNESS HERE C IF (KMBGG(1) .EQ. 0) GO TO 220 IF (KE.EQ.0.0 .AND. TE.EQ.0.) GO TO 220 C C GENERATE HA = (E*TA)/EL AND HB = (E*TB)/EL C IF (IEST(9).EQ. 0) GO TO 30 CALL TRANSS (BGPDT(1,1),TA) CALL GMMATS (EVECT,1,3,0, TA,3,3,0, HA) DO 20 I = 1,3 20 HA(I) = HA(I)/EL GO TO 50 30 DO 40 I = 1,3 40 HA(I) = EVECT(I)/EL 50 IF (IEST(13).EQ. 0) GO TO 70 CALL TRANSS (BGPDT(1,2),TB) CALL GMMATS (EVECT,1,3,0, TB,3,3,0, HB) DO 60 I = 1,3 60 HB(I) = HB(I)/EL GO TO 90 70 DO 80 I = 1,3 80 HB(I) = EVECT(I)/EL C C THE GENERAL 12X12 MATRIX FOR THE ROD ELEMENT IS C - - C 1HA K HA1 0 1HA K HB1 1 C ** ** 1 ------1------1-------1-------1 C * K * = 1 0 1HA T A1 1HA T HB1 C ** ** 1 ------1------1-------1-------1 C 1HB K HA 1HB K HB1 1 C 1 ------1------1-------1-------1 C 1 1HB T A1 1HB T HB1 C 1 1 1 1 1 C - - C EACH BLOCK ABOVE IS A 3 BY 3 MATRIX C C TEST AND SET COMPONENT CODE 111= 7 111000=56 C 90 ICODE = 0 NDOF = 0 IF (TE .NE. 0.) GO TO 100 ICODE = 7 NDOF = 6 GO TO 120 100 IF (KE .NE. 0.) GO TO 110 ICODE = 56 NDOF = 6 GO TO 120 110 ICODE = 63 NDOF = 12 120 NSQ = NDOF**2 NG = NDOF/2 NPART = NG*NDOF IZERO = IZ -1 IPASS = 1 DO 130 I = 1,NSQ IZPI = IZ + I - 1 130 K(IZPI) = 0.0 C C EXTENSIONAL STIFFNESS TERMS ARE COMPUTED HERE. C IF (ICODE .EQ. 56) GO TO 200 SCALE = KE 140 DO 150 I = 1,3 KHA(I) = SCALE*HA(I) 150 KHB(I) = SCALE*HB(I) C C THE MATRIX COLUMNS AND ROWS MUST BE IN THE NUMERICAL ORDER C OF TH SIL VALUES. THE POINTERS INTO THE MATRIX ARE VARIABLES. C IF (SIL2-SIL1) 160,270,170 160 IBBZ = IZERO IABZ = IZERO + NG IBAZ = IZERO + NPART IAAZ = IBAZ + NG GO TO 180 170 IAAZ = IZERO IBAZ = IZERO + NG IABZ = IZERO + NPART IBBZ = IABZ + NG 180 CONTINUE DO 190 J = 1,3 DO 190 I = 1,3 IJ = NDOF*(J-1) + I IAA = IJ + IAAZ K(IAA) = KHA(I)*HA(J) IBA = IJ + IBAZ K(IBA) =-KHB(I)*HA(J) IAB = IJ + IABZ K(IAB) =-KHA(I)* HB(J) IBB = IJ + IBBZ K(IBB) = KHB(I)* HB(J) 190 CONTINUE C C THE TORSIONAL STIFFNESS TERMS ARE FORMED USING TE INSTEAD OF KE C THEY ARE INSERTED IN THE MATRIX WITH A CONSTANT OFFSET, 3*12+3. C 200 IF (IPASS .EQ. 2) GO TO 210 IF (NDOF .EQ. 12) IZERO = 38 + IZ IPASS = 2 SCALE = TE IF (ICODE .NE. 7) GO TO 140 210 IPART = IZ DICT(2) = 1 DICT(3) = NDOF DICT(4) = ICODE DICT(5) = GE CALL EMGOUT (K(IPART),K(IPART),NSQ,1,DICT,1,IPREC) C C THE MASS MATRIX TERMS ARE CALCULATED HERE. C 220 IF (KMBGG(2).EQ.0 .OR. ME.EQ.0.0) RETURN DICT(3) = 6 DICT(4) = 7 DICT(5) = 0 C C CHECK TO SEE IF CONVENTIONAL OR CONSISTENT MASS MATRIX IS REQUIRED C IF (ICMBAR .GT. 0) GO TO 400 C C CONVENTIONAL MASS MATRIX TERMS ARE COMPUTED HERE C DICT(2) = 2 LDATA = 6 IZP5 = IZ + 5 DO 230 I = IZ,IZP5 230 K(I) = ME GO TO 600 C C CONSISTENT MASS MATRIX TERMS ARE COMPUTED HERE C 400 DICT(2) = 1 LDATA = 36 DO 420 I = 1,9 MASSII(I) = 0.0 MASSJJ(I) = 0.0 MASSIJ(I) = 0.0 MASSJI(I) = 0.0 MIJDUM(I) = 0.0 MJIDUM(I) = 0.0 420 CONTINUE ME = 2.0*ME DO 440 I = 1,9,4 MASSII(I) = ME/3.0 MASSJJ(I) = ME/3.0 MASSIJ(I) = ME/6.0 MASSJI(I) = ME/6.0 MIJDUM(I) = ME/6.0 MJIDUM(I) = ME/6.0 440 CONTINUE IF (SIL2-SIL1) 480,270,460 460 ITI = 9 ITJ = 13 GO TO 500 480 ITI = 13 ITJ = 9 500 IF (IEST(ITI) .EQ. 0) GO TO 520 CALL TRANSS (IEST(ITI), TA) CALL GMMATS (TA,3,3,1, MASSII,3,3,0, K(IZ)) CALL GMMATS (K(IZ),3,3,0, TA,3,3,0, MASSII) CALL GMMATS (TA,3,3,1, MIJDUM,3,3,0, MASSIJ) CALL GMMATS (MJIDUM,3,3,0, TA,3,3,0, MASSJI) 520 IF (IEST(ITJ) .EQ. 0) GO TO 560 CALL TRANSS (IEST(ITJ), TA) CALL GMMATS (TA,3,3,1, MASSJJ,3,3,0, K(IZ)) CALL GMMATS (K(IZ),3,3,0, TA,3,3,0, MASSJJ) CALL GMMATS (MASSIJ,3,3,0, TA,3,3,0, MIJDUM) CALL GMMATS (TA,3,3,1, MASSJI,3,3,0, MJIDUM) DO 540 I = 1,9 MASSIJ(I) = MIJDUM(I) MASSJI(I) = MJIDUM(I) 540 CONTINUE 560 DO 580 I = 1,3 KZ = IZ + I - 1 K(KZ ) = MASSII(I ) K(KZ+ 6) = MASSII(I+3) K(KZ+12) = MASSII(I+6) K(KZ+ 3) = MASSIJ(I ) K(KZ+ 9) = MASSIJ(I+3) K(KZ+15) = MASSIJ(I+6) K(KZ+18) = MASSJI(I ) K(KZ+24) = MASSJI(I+3) K(KZ+30) = MASSJI(I+6) K(KZ+21) = MASSJJ(I ) K(KZ+27) = MASSJJ(I+3) K(KZ+33) = MASSJJ(I+6) 580 CONTINUE 600 CALL EMGOUT (K(IZ),K(IZ),LDATA,1,DICT,2,IPREC) RETURN C C HEAT TRANSFER CALCULATIONS ARE PERFORMED HERE C 240 INFLAG = 1 DICT(2) = 1 DICT(3) = 2 DICT(4) = 1 DICT(5) = 0 IF (KMBGG(1) .EQ. 0) GO TO 250 CALL HMAT (EID) K(IZ) = (AFACT*KCON)/EL IF (K(IZ) .EQ. 0.0) GO TO 250 K(IZ+1) = -K(IZ) K(IZ+2) = -K(IZ) K(IZ+3) = K(IZ) CALL EMGOUT (K(IZ),K(IZ),4,1,DICT,1,IPREC) 250 INFLAG = 4 IF (KMBGG(1) .EQ. 0) RETURN CALL HMAT (EID) K(IZ) = (AFACT*CP)*EL/2.0 IF (K(IZ) .EQ. 0.0) RETURN K(IZ+1) = K(IZ) DICT(2) = 2 CALL EMGOUT (K(IZ),K(IZ),2,1,DICT,3,IPREC) RETURN C 270 NOGO = .TRUE. WRITE (IOUTPT,280) UFM,EID 280 FORMAT (A23,' 3118, ROD ELEMENT NO.',I9, 1 ' HAS ILLEGAL GEOMETRY OR CONNECTIONS.') RETURN 290 NOGO = .TRUE. WRITE (IOUTPT,300) UFM 300 FORMAT (A23,' 3119, INSUFFICIENT CORE TO PROCESS ROD ELEMENTS') RETURN END ================================================ FILE: mis/rombdk.f ================================================ SUBROUTINE ROMBDK (B,PRECIS,ITDONE,FINTG,K,X) C C INTEGRATE F(X) FROM 0.0 TO X = B C C B = UPPER LIMIT C NOSIG = NUMBER OF CORRECT SIGNIFICANT DIGITS DESIRED C (NOT MORE THAN 7) = 5 C PRECIS = 0.0 UPON RETURN, PRECIS = ACTUAL NUMBER C OF SIGNIFICANT DIGITS ATTAINED C NUM = MAXIMUM NUMBER OF HALVINGS OF B-A TO BE MADE C (NOT MORE THAN 99) = 15 C UPON RETURN FROM ROMBER, THE VALUE OF THE INTEGRAL WILL BE FOUND C IN FINTG C C IT IS CUSTOMARY TO MEASURE THE PRECISION OF LARGE NUMBERS IN C TERMS OF NUMBER OF SIGNIFICANT DIGITS AND THE ACCURACY OF SMALL C NUMBERS IN TERMS OF NUMBER OF SIGNIFICANT DECIMALS. TO CONFORM C TO THIS PRACTICE, THE SUBROUTINE TERMINATES WHEN EITHER OF THESE C CONDITIONS IS MET. C DOUBLE PRECISION DEN,CONST,B,PRECIS,FINTG,X,FAAAA,FAAAB, 1 FAAAC,FAAAD,F,FAAAE,FAAAF,FAAAG,FAAAH,DIFF DIMENSION X(6),FAAAA(20),FAAAB(20) C FAAAC = 0.00001D0 IAAAA = 1 FAAAD = B X(1) = 0.0D0 ASSIGN 100 TO IRET GO TO (1000,2000,3000), K 100 CONTINUE FAAAE = F X(1) = B ASSIGN 200 TO IRET GO TO (1000,2000,3000), K 200 CONTINUE FAAAE = FAAAE+F FAAAA(1) = 0.5*FAAAD*FAAAE 9988 FAAAD = 0.5*FAAAD IAAAC = 2**(IAAAA-1) FAAAE = 0.0 C IAAAD = 0 9986 IAAAD = IAAAD+1 FAAAF = IAAAD X(1) = (2.0*FAAAF-1.0)*FAAAD ASSIGN 300 TO IRET GO TO (1000,2000,3000), K 300 CONTINUE FAAAE = FAAAE + F IF (IAAAD .LT. IAAAC) GO TO 9986 C FAAAB(1) = 0.5*FAAAA(1) + FAAAD*FAAAE IAAAA = IAAAA+1 DO 9985 IAAAD = 2,IAAAA FAAAG = 4.0**(IAAAD-1) FAAAH = FAAAG-1.0 IAAAF = IAAAD-1 9985 FAAAB(IAAAD) = (FAAAG*FAAAB(IAAAF) - FAAAA(IAAAF))/FAAAH IAAAC = 2*IAAAC+1 DIFF = FAAAB(IAAAA) - FAAAA(IAAAA-1) IF (DABS(DIFF)-DABS(FAAAC*FAAAB(IAAAA))) 9979,9981,9981 9981 DO 9980 IAAAD = 1,IAAAA 9980 FAAAA(IAAAD) = FAAAB(IAAAD) IF (IAAAA.LT.15) GO TO 9988 9979 PRECIS = DIFF ITDONE = IAAAA - 1 FINTG = FAAAB(IAAAA) RETURN C C THIS CODE REPLACES D4K C 1000 CONTINUE IF (X(1) .EQ.0.0D0) GO TO 1010 DEN = X(3) - X(2)*X(5)*(1.D0-DCOS(X(1))) + X(2)*X(4)*DSIN(X(1)) F = X(1)**(X(6)-1.D0)*DSIN(X(1))**2/DEN GO TO 1020 1010 F = 0.0D0 1020 GO TO IRET, (100,200,300) C C THIS CODE REPLACES D5K C 2000 CONTINUE IF (X(1) .EQ. 0.0D0) GO TO 2010 DEN = X(3) - X(2)*X(5)*(1.D0-DCOS(X(1))) + X(2)*X(4)*DSIN(X(1)) F = X(1)**(X(6)-1.D0)*2.*DSIN(X(1))*DCOS(X(1))/DEN GO TO 2020 2010 F=0.0D0 2020 GO TO IRET, (100,200,300) C C THIS CODE REPLACES D6K C 3000 CONTINUE DEN = X(3) - X(2)*X(5)*(1.D0-DCOS(X(1))) + X(2)*X(4)*DSIN(X(1)) IF (X(6) .EQ. 1.D0) CONST = 1.D0 IF (X(6) .NE. 1.D0) CONST = X(1)**(X(6)-1.D0) IF (DEN .EQ. 0.0D0) GO TO 3010 F = CONST*DCOS(X(1))**2/DEN GO TO 3020 3010 F = 0.0D0 3020 GO TO IRET, (100,200,300) END ================================================ FILE: mis/romber.f ================================================ SUBROUTINE ROMBER (B,PRECIS,ITDONE,FINTG,K,X) C C TO INTEGRATE F(X) FROM X = A TO X = B C C A = LOWER LIMIT = 0.0 C B = UPPER LIMIT C NOSIG = NUMBER OF CORRECT SIGNIFICANT DIGITS DESIRED C (NOT MORE THAN 7) = 5 C PRECIS = 0.0 UPON RETURN, PRECIS = ACTUAL NUMBER C OF SIGNIFICANT DIGITS ATTAINED C NUM = MAXIMUM NUMBER OF HALVINGS OF B-A TO BE MADE C (NOT MORE THAN 99) = 15 C PROGRAMMER MUST ALSO PROGRAM SUBROUTINE FUNCT(F,X) C GIVING F AS THE DESIRED FUNCTION OF X, UPON C DEMAND OF ROMBER C UPON RETURN FROM ROMBER, THE VALUE OF THE INTEGRAL C WILL BE FOUND IN FINTG C IT IS CUSTOMARY TO MEASURE THE PRECISION OF LARGE NUMBERS IN C TERMS OF NUMBER OF SIGNIFICANT DIGITS AND THE ACCURACY OF SMALL C NUMBERS IN TERMS OF NUMBER OF SIGNIFICANT DECIMALS. TO CONFORM C TO THIS PRACTICE, THE SUBROUTINE TERMINATES WHEN EITHER OF THESE C CONDITIONS IS MET. C DIMENSION X(6) DIMENSION FAAAA(20),FAAAB(20) C FAAAC = 0.00001 IAAAA = 1 FAAAD = B X(1) = 0.0 ASSIGN 100 TO IRET GO TO (1000,2000,3000), K 100 CONTINUE FAAAE = F X(1) = B ASSIGN 200 TO IRET GO TO (1000,2000,3000), K 200 CONTINUE FAAAE = FAAAE+F FAAAA(1) = 0.5*FAAAD*FAAAE 9988 FAAAD = 0.5*FAAAD IAAAC = 2**(IAAAA-1) FAAAE = 0.0 IAAAD = 0 9986 IAAAD = IAAAD + 1 FAAAF = IAAAD X(1) = (2.0*FAAAF-1.0)*FAAAD ASSIGN 300 TO IRET GO TO (1000,2000,3000), K 300 CONTINUE FAAAE = FAAAE+F IF (IAAAD .LT. IAAAC) GO TO 9986 FAAAB(1) = 0.5*FAAAA(1)+FAAAD*FAAAE IAAAA = IAAAA+1 DO 9985 IAAAD = 2,IAAAA FAAAG = 4.0**(IAAAD-1) FAAAH = FAAAG-1.0 IAAAF = IAAAD-1 9985 FAAAB(IAAAD) = (FAAAG*FAAAB(IAAAF)-FAAAA(IAAAF))/FAAAH IAAAC = 2*IAAAC+1 DIFF = FAAAB(IAAAA)- FAAAA(IAAAA-1) IF (ABS(DIFF) - ABS(FAAAC*FAAAB(IAAAA))) 9979,9981,9981 9981 DO 9980 IAAAD = 1,IAAAA 9980 FAAAA(IAAAD) = FAAAB(IAAAD) IF (IAAAA .LT. 15) GO TO 9988 9979 PRECIS = DIFF ITDONE = IAAAA - 1 FINTG = FAAAB(IAAAA) RETURN C C THIS CODE REPLACES F4 C 1000 CONTINUE IF (X(1) .EQ. 0.0) GO TO 1020 DEN = X(3) - X(2)*X(5) + X(2)*X(5)*COS(X(1))+X(2)*X(4)*SIN(X(1)) F = X(1)**(X(6)-1.0)* SIN(X(1))**2 / DEN 1010 GO TO IRET, (100,200,300) 1020 F = 0.0 GO TO 1010 C C THIS CODE REPLACES F5 C 2000 CONTINUE IF (X(1) .EQ. 0.0) GO TO 2020 DEN = X(3) - X(2)*X(5) + X(2)*X(5)*COS(X(1))+X(2)*X(4)*SIN(X(1)) F = X(1)**(X(6)-1.0)*2. *SIN(X(1))*COS(X(1))/DEN 2010 GO TO IRET, (100,200,300) 2020 F = 0.0 GO TO 2010 C C THIS CODE REPLACES F6 C 3000 CONTINUE DEN = X(3) - X(2)*X(5) + X(2)*X(5)*COS(X(1))+X(2)*X(4)*SIN(X(1)) IF (X(6) .EQ. 1.0) CONST = 1.0 IF (X(6) .NE. 1.0) CONST = X(1)**(X(6) - 1.0) IF (DEN .EQ. 0.0) GO TO 3020 F = CONST*COS(X(1))**2 / DEN 3010 GO TO IRET, (100,200,300) 3020 F = 0.0 GO TO 3010 END ================================================ FILE: mis/rombsk.f ================================================ SUBROUTINE ROMBSK (B,PRECIS,ITDONE,FINTG,K,X) C C THIS SUBROUTINE IS USED TO INTEGRATE A FUNCTION FROM X=0. TO X=B C C SINGLE PRECISION VERSION C C B = UPPER LIMIT C NOSIG = NUMBER OF CORRECT SIGNIFICANT DIGITS DESIRED C (NOT MORE THAN 7) = 5 C PRECIS = 0.0 UPON RETURN, PRECIS = ACTUAL NUMBER C OF SIGNIFICANT DIGITS ATTAINED C NUM = MAXIMUM NUMBER OF HALVINGS OF B-A TO BE MADE C (NOT MORE THAN 99) = 15 C C UPON RETURN FROM ROMBSK, THE VALUE OF THE INTEGRAL WILL BE FOUND C IN FINTG. C C IT IS CUSTOMARY TO MEASURE THE PRECISION OF LARGE NUMBERS IN C TERMS OF NUMBER OF SIGNIFICANT DIGITS AND THE ACCURACY OF SMALL C NUMBERS IN TERMS OF NUMBER OF SIGNIFICANT DECIMALS. TO CONFORM C TO THIS PRACTICE, THE SUBROUTINE TERMINATES WHEN EITHER OF THESE C CONDITIONS IS MET. C C DIMENSION X(6),FAAAA(20),FAAAB(20) C FAAAC =.00001 IAAAA = 1 FAAAD = B X(1) = 0. ASSIGN 100 TO IRET GO TO (1000,2000,3000), K 100 CONTINUE FAAAE = F X(1) = B ASSIGN 200 TO IRET GO TO (1000,2000,3000), K 200 CONTINUE FAAAE = FAAAE + F FAAAA(1) = 0.5*FAAAD*FAAAE 9988 FAAAD = 0.5*FAAAD IAAAC = 2**(IAAAA-1) FAAAE = 0.0 IAAAD = 0 9986 IAAAD = IAAAD + 1 FAAAF = IAAAD X(1) = (2.0*FAAAF-1.0)*FAAAD ASSIGN 300 TO IRET GO TO (1000,2000,3000), K 300 CONTINUE FAAAE = FAAAE + F IF (IAAAD .LT. IAAAC) GO TO 9986 FAAAB(1) = 0.5*FAAAA(1) + FAAAD*FAAAE IAAAA = IAAAA + 1 DO 9985 IAAAD = 2,IAAAA FAAAG = 4.0**(IAAAD-1) FAAAH = FAAAG - 1.0 IAAAF = IAAAD - 1 9985 FAAAB(IAAAD) = (FAAAG*FAAAB(IAAAF)-FAAAA(IAAAF))/FAAAH IAAAC = 2*IAAAC + 1 DIFF = FAAAB(IAAAA) - FAAAA(IAAAA-1) IF (ABS(DIFF)-ABS(FAAAC*FAAAB(IAAAA))) 9979,9981,9981 9981 DO 9980 IAAAD = 1,IAAAA 9980 FAAAA(IAAAD) = FAAAB(IAAAD) IF (IAAAA.LT.15) GO TO 9988 9979 PRECIS = DIFF ITDONE = IAAAA - 1 FINTG = FAAAB(IAAAA) RETURN C C THIS CODE REPLACES D4K C 1000 CONTINUE IF (X(1).EQ. 0.) GO TO 1010 DEN = X(3) - X(2)*X(5) + X(2)*X(5)*COS(X(1)) + X(2)*X(4)*SIN(X(1)) F = X(1)**(X(6)-1.)*SIN(X(1))**2/DEN GO TO 1020 1010 F = 0. 1020 GO TO IRET, (100,200,300) C C THIS CODE REPLACES D5K C 2000 CONTINUE IF (X(1) .EQ. 0.) GOTO 2010 DEN = X(3) - X(2)*X(5) + X(2)*X(5)*COS(X(1))+ X(2)*X(4)*SIN(X(1)) F = X(1)**(X(6)-1.)*2.*SIN(X(1))*COS(X(1))/DEN GO TO 2020 2010 F = 0. 2020 GO TO IRET, (100,200,300) C C THIS CODE REPLACES D6K C 3000 CONTINUE DEN = X(3) - X(2)*X(5) +X(2)*X(5)*COS(X(1))+ X(2)*X(4)*SIN(X(1)) IF (X(6) .EQ. 1.0) CONST = 1.0 IF (X(6) .NE. 1.0) CONST = X(1)**(X(6)-1.0) IF (DEN .EQ. 0.) GO TO 3010 F = CONST*COS(X(1))**2/DEN GO TO 3020 3010 F = 0. 3020 GO TO IRET, (100,200,300) END ================================================ FILE: mis/rotat.f ================================================ SUBROUTINE ROTAT (ECT2,B1,GPLST,X) C INTEGER GPLST(1),ECT2,B1,TYPES(13),ESYM,ELID,GPTS(12), 1 BAR,OFFSET REAL X(3,1),MAGTUD(2),NORMAL(3) DIMENSION REC1(146),REC2(17),A(3,3),T(2,2),V(2,3),CROSS(3), 1 SHEAR(3),ISYM(13) COMMON /BLANK / SKIP(23),OES1,SCR1,SCR2,NEWOES COMMON /XXPARM/ SKPPAR(211),ICASE,FLAG,DATA,SKPARM EQUIVALENCE (REC1(3),ITYPE),(REC1(4),ISUB),(REC1( 5),TIME), 1 (REC1(6),EIGEN),(REC1(10),NWDS) DATA TYPES / 6,7,8,9,15,16,17,18,19,62,63,64,83 / DATA ISYM / 2HT1,2HTB,2HTP,2HTM,2HQP,2HQM,2HT2,2HQ2,2HQ1,2HM1, 1 2HM2,2HQ4,2HT3/, ESYM/2H /, BAR /2HBR/ C TWOPI = 8.0*ATAN(1.0) IRDECT= 0 SUM = 0.0 CALL OPEN (*110,NEWOES,GPLST(B1),1) IREC = 0 ELID = 0 10 CALL READ (*110,*110,OES1,REC1,146,1,M) IF (ISUB .NE. ICASE) GO TO 13 IF (FLAG .EQ. 0.0) GO TO 14 IF (FLAG.EQ.1.0 .AND. TIME.EQ.DATA) GO TO 14 FIGEN = SQRT(ABS(EIGEN))/TWOPI IF (FLAG.EQ.2.0 .AND. ABS(FIGEN-DATA).GT.1.0E-5) GO TO 14 13 IF (IREC .EQ. 0) GO TO 18 GO TO 100 C C CHECK ELEMENT TYPE C 14 IREC = IREC + 2 DO 15 IT = 1,13 IF (ITYPE .EQ. TYPES(IT)) GO TO 20 15 CONTINUE C C SKIP SUBCASE C 18 CALL FWDREC (*110,OES1) GO TO 10 C C CHECK ELEMENT TYPE C 20 IF (ELID .NE. 0) GO TO 21 CALL READ (*22,*22,ECT2,ESYM,1,0,N) CALL FREAD (ECT2,NGPPE,1,0) IRDECT = 1 OFFSET = 0 IF (ESYM .EQ. BAR) OFFSET = 6 IF (ESYM.EQ.ISYM(12) .OR. ESYM.EQ.ISYM(13)) OFFSET = 1 IF (ESYM .EQ. ISYM(IT)) GO TO 23 21 CALL FREAD (ECT2,ELID,1,0) IF (ELID .EQ. 0) GO TO 20 J = 1 + NGPPE + OFFSET CALL FREAD (ECT2,0,-J,0) GO TO 21 22 CALL BCKREC (ECT2) IRDECT = 0 GO TO 18 C C PROCESS SUBCASE C 23 CALL WRITE (NEWOES,REC1,146,1) NWDS = NWDS - 1 25 CALL READ (*100,*56,OES1,IELMT,1,0,M) CALL FREAD (OES1,REC2,NWDS,0) 30 CALL FREAD (ECT2,ELID,1,0) IF (ELID .EQ. 0) GO TO 55 CALL FREAD (ECT2,0,-1,0) CALL FREAD (ECT2,GPTS,NGPPE,0) IF (OFFSET .NE. 0) CALL FREAD (ECT2,0,-OFFSET,0) 29 IF (ELID .EQ. IELMT/10) GO TO 31 IF (ELID .GT. IELMT/10) GO TO 60 GO TO 30 31 IG1 = GPTS(1) IG2 = GPTS(2) IG1 = IABS(GPLST(IG1)) IG2 = IABS(GPLST(IG2)) IG3 = GPTS(3) IG3 = IABS(GPLST(IG3)) DO 32 I = 1,3 V(1,I) = X(I,IG1) - X(I,IG2) V(2,I) = X(I,IG1) - X(I,IG3) 32 CONTINUE MAGTUD(1) = SQRT(V(1,1)**2 + V(1,2)**2 + V(1,3)**2) MAGTUD(2) = SQRT(V(2,1)**2 + V(2,2)**2 + V(2,3)**2) DO 33 I = 1,3 V(1,I) = V(1,I)/MAGTUD(1) V(2,I) = V(2,I)/MAGTUD(2) A(1,I) = V(1,I) 33 CONTINUE A(2,1) = A(1,2) A(3,1) = A(1,3) A(3,3) = V(1,1)*V(2,2) - V(2,1)*V(1,2) CROSS(1) = V(1,2)*V(2,3) - V(2,2)*V(1,3) CROSS(2) = V(2,1)*V(1,3) - V(1,1)*V(2,3) CROSS(3) = A(3,3) A(2,2) = CROSS(1)*V(1,3) - V(1,1)*CROSS(3) A(2,3) = V(1,1)*CROSS(2) - CROSS(1)*V(1,2) A(3,2) = A(2,3) IEL = 0 DO 40 MORE = 1,2 IF (ITYPE.EQ.9 .OR. ITYPE.EQ.16) GO TO 34 NORM = IEL + 2 ISHEAR = IEL + 4 GO TO 35 34 NORM = IEL + 1 ISHEAR = IEL + 3 35 T(1,1) = REC2(NORM ) T(2,2) = REC2(NORM+1) T(1,2) = REC2(ISHEAR) T(2,1) = T(1,2) DO 38 I = 1,3 SUM = 0.0 DO 37 J = 1,2 DO 37 K = 1,2 SUM = SUM + A(I,J)*A(I,K)*T(J,K) 37 CONTINUE NORMAL(I) = SUM 38 CONTINUE SHEAR(1) = A(2,1)*A(1,1)*T(1,1) + A(2,1)*A(1,2)*T(1,2) 1 + A(2,2)*A(1,2)*T(2,1) + A(2,2)*A(1,2)*T(2,2) SHEAR(2) = A(3,1)*A(1,1)*T(1,1) + A(3,1)*A(1,2)*T(1,2) 1 + A(3,2)*A(1,2)*T(2,1) + A(3,2)*A(1,2)*T(2,2) SHEAR(3) = A(3,1)*A(2,1)*T(1,1) + A(3,1)*A(2,2)*T(1,2) 1 + A(3,2)*A(2,1)*T(2,1) + A(3,2)*A(2,2)*T(2,2) DO 39 I = 1,3 ISHEAR = ISHEAR + 1 REC2(NORM ) = NORMAL(I) REC2(ISHEAR) = SHEAR(I) NORM = NORM + 1 39 CONTINUE IEL = IEL + 8 IF (ITYPE.EQ.9 .OR. ITYPE.EQ.16) GO TO 50 40 CONTINUE 50 CALL WRITE (NEWOES,IELMT,1,0) CALL WRITE (NEWOES,REC2,NWDS,0) GO TO 25 C C CLOSE RECORD C 55 CALL FREAD (OES1,0,0,1) 56 CALL WRITE (NEWOES,0,0,1) GO TO 10 C C SKIP ELEMENT C 60 CALL READ (*100,*56,OES1,IELMT,1,0,M) CALL FREAD (OES1,REC2,NWDS,0) GO TO 29 100 CONTINUE 110 IF (IRDECT .GT. 0) CALL BCKREC (ECT2) CALL BCKREC (OES1) CALL CLOSE (NEWOES,1) RETURN END ================================================ FILE: mis/rotate.f ================================================ SUBROUTINE ROTATE (DA,ROW,ROW1,ROW2, O,SIN,COS) C C THIS ROUTINE IS CALLED ONLY BY TRIDI SUBROUTINE, WHICH IS CALLED C ONLY BY VALVEC C INTEGER ROW,ROW1,ROW2 C 1, CHECK DOUBLE PRECISION O(1),SIN(1),COS(1),SINE,COSINE,X,Y,Z,DA(1) COMMON /GIVN / TITLE(100),N C C O = 2ND ROW OF THE COMPLETE MATRIX. C SIN = SINES. C COS = COSINES. C DA = MATRIX PARTITION (TRIANGULAR) - DOUBLE PRECISION C M = 0 200 DO 230 J = ROW1,ROW2 SINE = SIN(J) COSINE = COS(J) M = M + 1 IF (SINE .EQ. 0.0D0) GO TO 210 X = O(ROW+1)*COSINE + O(J)*SINE Y = DA(M) *SINE + O(J)*COSINE Z = X *COSINE + Y *SINE O(J) = Y *COSINE - X *SINE DA(M)= O(ROW+1)+ DA(M) - Z O(ROW+1) = Z 210 IF (J .EQ. N) GO TO 230 JP1 = J + 1 DO 220 I = JP1,N M = M + 1 X = DA(M)*COSINE - O(I)*SINE O(I) = O(I)*COSINE + DA(M)*SINE Y = COS(I)*O(J) + SIN(I)*X DA(M)= COS(I)*X - SIN(I)*O(J) O(J) = Y 220 CONTINUE 230 CONTINUE RETURN END ================================================ FILE: mis/rotate1.f ================================================ SUBROUTINE ROTATE1 (A,ROW,ROW1,ROW2, O,SIN,COS) C C ROTATION OF A MATRIX PARTITION. C THIS ROUTINE IS CALLED ONLY BY TRIDI SUBROUTINE, WHICH IS CALLED C ONLY BY VALVEC C INTEGER ROW,ROW1,ROW2 REAL A(1) REAL O(1),SIN(1),COS(1),SINE,COSINE,X,Y,Z COMMON /GIVN / TITLE(100),N C C O = 2ND ROW OF THE COMPLETE MATRIX. C SIN = SINES. C COS = COSINES. C A = MATRIX PARTITION (TRIANGULAR) - SINGLE PRECISION C M = 0 DO 105 J = ROW1,ROW2 SINE = SIN(J) COSINE = COS(J) M = M + 1 IF (SINE .EQ. 0.) GO TO 101 X = O(ROW+1)*COSINE + O(J)*SINE Y = A(M) * SINE + O(J)*COSINE Z = X *COSINE + Y *SINE O(J) = Y *COSINE - X *SINE A(M) = O(ROW+1) + A(M) - Z O(ROW+1) = Z 101 IF (J .EQ. N) GO TO 105 JP1 = J + 1 DO 103 I = JP1,N M = M + 1 X = A(M)*COSINE - O(I)*SINE O(I) = O(I)*COSINE + A(M)*SINE Y = COS(I)*O(J) + SIN(I)*X A(M) = COS(I)*X - SIN(I)*O(J) O(J) = Y 103 CONTINUE 105 CONTINUE RETURN END ================================================ FILE: mis/rowdyz.f ================================================ SUBROUTINE ROWDYZ (NFB,NLB,ROW,NTZYS,D,DX,DY,DZ,BETA,IDZDY,NTAPE, 1 SGR,CGR,IPRNT,YB,ZB,AR,NSBE,XIS1,XIS2,A0) C C CALCULATE A ROW OF DZ OR DY C C SLENDER BODY C C NFB FIRST BODY OF THE DESIRED ORIENTATION - Z OR Y - C NLB LAST BODY OF THE DESIRED ORIENTATION C ROW ROW OF DZ OR DY BEING CALCULATED C NTZYS NO. COLUMNS TO BE CALCULATED C D CALCULATED ROW C DX X - COORD. OF RECEIVING POINT C DY Y - COORD. OF RECEIVING POINT C DZ Z - COORD. OF RECEIVING POINT C BETA EQUALS SQRT(1-M**2) C MACH MACH NO., M C IDZDY FLAG REQUIRED FOR FLLD C INTEGER B1,T1,B,T,ROW REAL KR DIMENSION AR(1),NSBE(1),XIS1(1),XIS2(1),A0(1),YB(1),ZB(1) DIMENSION D(2,NTZYS) COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,KR COMMON /SYSTEM/ N,NPOT C DELTA = FLOAT(ND) EPSLON = FLOAT(NE) B1 = 0 T1 = 0 IT1 = 0 IF (NFB.EQ.1 .OR. IDZDY.EQ.0) GO TO 10 B = NFB - 1 DO 5 T = 1,B IT1 = IT1 + NSBE(T) 5 CONTINUE 10 CONTINUE DO 200 B = NFB,NLB B1 = B1 + 1 DAR = AR(B) NSBEB = NSBE(B) IF (IPRNT .NE. 0) WRITE (NPOT,15) B,DY,YB(B),DZ,ZB(B) 15 FORMAT (12H ROWDYZ B =,I10,4E20.8) C C LOOP FOR EACH ELEMENT IN BODY -B- C DO 140 T = 1,NSBEB T1 = T1 + 1 IT1 = IT1 + 1 D(1,T1) = 0.0 D(2,T1) = 0.0 XI1 = XIS1(IT1) XI2 = XIS2(IT1) AZRO = A0(IT1) ETA = YB(B) ZETA = ZB(B) C C CHECK TO SEE IF CALCULATIONS ARE TO BE MADE C IF (DY.EQ.ETA .AND. DZ.EQ.ZETA) GO TO 30 ASSIGN 20 TO JDZDY LHS = 0 GO TO 100 20 D(1,T1) = DZYR D(2,T1) = DZYI C C SKIP IF NO SYMMETRY C 30 CONTINUE IF (DELTA .EQ. 0.0) GO TO 70 ETA = -YB(B) C C CHECK TO SEE IF CALCULATIONS ARE TO BE MADE C IF (DY.EQ.ETA .AND. DZ.EQ.ZETA) GO TO 50 LHS = 1 ASSIGN 40 TO JDZDY GO TO 100 40 D(1,T1) = D(1,T1) + DELTA*DZYR D(2,T1) = D(2,T1) + DELTA*DZYI 50 CONTINUE IF (EPSLON .EQ. 0.0) GO TO 140 C C CALC. ONLY IF DELTA AND EPSLON NOT EQUAL ZERO C ETA = -YB(B) ZETA = -ZB(B) C C CHECK TO SEE IF CALCULATIONS ARE TO BE MADE C IF (DY.EQ.ETA .AND. DZ.EQ.ZETA) GO TO 70 ASSIGN 60 TO JDZDY GO TO 100 60 D(1,T1) = D(1,T1) + EPSLON*DELTA*DZYR D(2,T1) = D(2,T1) + EPSLON*DELTA*DZYI C C SKIP IF NO GROUND EFFECTS C 70 IF (EPSLON .EQ. 0.0) GO TO 140 ETA = YB(B) ZETA = -ZB(B) C C CHECK TO SEE IF CALCULATIONS ARE TO BE MADE C IF (DY.EQ.ETA .AND. DZ.EQ.ZETA) GO TO 140 LHS = 1 ASSIGN 80 TO JDZDY GO TO 100 80 D(1,T1) = D(1,T1) + EPSLON*DZYR D(2,T1) = D(2,T1) + EPSLON*DZYI GO TO 140 C C CALL SEQUENCE TO DZY C 100 CALL DZY (DX,DY,DZ,SGR,CGR,XI1,XI2,ETA,ZETA,DAR,AZRO,KR,REFC, 1 BETA,FMACH,LHS,IDZDY,DZYR,DZYI) LHS = 0 GO TO JDZDY, (20,40,60,80) C 140 CONTINUE C C END OF LOOP FOR ELEMENT C C 200 IS END OF LOOP ON SLENDER BODY C 200 CONTINUE C C WRITE ROW ON TAPE, ROW NUMBER, NO. ELEMENTS, DATA C CALL WRITE (NTAPE,D,2*T1,0) IF (IPRNT .NE. 0) WRITE (NPOT,210) ROW,T1,D 210 FORMAT (' ROWDYZ - ROW NO.',I5,1H,,I10,' ELEMENTS',/(1X,6E12.4)) RETURN END ================================================ FILE: mis/rsetup.f ================================================ SUBROUTINE RSETUP (LVL,LVLS1,LVLS2,NACUM,IDIM) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C SETUP COMPUTES THE REVERSE LEVELING INFO FROM LVLS2 AND STORES C IT INTO LVLS2. NACUM(I) IS INITIALIZED TO NODES/ITH LEVEL FOR C NODES ON THE PSEUDO-DIAMETER OF THE GRAPH. LVL IS INITIALIZED TO C NON-ZERO FOR NODES ON THE PSEUDO-DIAM AND NODES IN A DIFFERENT C COMPONENT OF THE GRAPH. C DIMENSION NACUM(1), LVL(1), LVLS1(1), LVLS2(1) COMMON /BANDB / DUM3B(3), NGRID COMMON /BANDG / N, IDPTH C C IDIM=NUMBER OF LEVELS IN A GIVEN COMPONENT. C NACUM IS DIMENSIONED TO IDIM IN SIZE C C DIMENSION EXCEEDED . . . STOP JOB. C IF (IDPTH.LE.IDIM) GO TO 20 NGRID=-3 RETURN C 20 DO 30 I=1,IDPTH 30 NACUM(I)=0 DO 140 I=1,N LVL(I)=1 LVLS2(I)=IDPTH+1-LVLS2(I) ITEMP=LVLS2(I) IF (ITEMP.GT.IDPTH) GO TO 140 IF (ITEMP.NE.LVLS1(I)) GO TO 100 NACUM(ITEMP)=NACUM(ITEMP)+1 GO TO 140 100 LVL(I)=0 140 CONTINUE RETURN END ================================================ FILE: mis/rsort.f ================================================ SUBROUTINE RSORT (NWDS,KEYWX,L,NX) C C RSORT SORTS REAL NUMBERS IN L(NWDS,NCOL) C WHERE NCOL = IABS(NX)/NWDS C C IF KEYWX .LT. 0 SORT BY ABSOLUTE VALUE C IF NX .LT. 0 SORT IN DECREASING SEQUENCE C C COMMENTS FROM G.C./UNISYS C THIS ROUTINE IS INEFFICIENT FOR LARGE ARRAY OF L C LOGICAL MAG,BCK REAL L(1),TEMP(50) INTEGER NAM(2) COMMON /SYSTEM/ IBUF,NOUT DATA NAM / 4HRSOR, 4HT / C IF (NWDS .LE. 50) GO TO 30 WRITE (NOUT,20) 20 FORMAT (' *** ARRAY TEMP OF 50 EXCEEDED') CALL MESAGE (-37,0,NAM) C 30 MAG = .FALSE. BCK = .FALSE. IF (KEYWX .LT. 0) MAG = .TRUE. IF (NX .LT. 0) BCK = .TRUE. KEYWD= IABS(KEYWX) NNN = IABS(NX) III = NWDS+KEYWD IA = NWDS-KEYWD IF (NNN-NWDS-NWDS .LT. 0) GO TO 150 DO 140 I = III,NNN,NWDS JJ = I-NWDS IF (BCK) GO TO 40 IF (MAG) IF (ABS(L(I))-ABS(L(JJ))) 50,140,140 IF (L(I)-L(JJ)) 50,140,140 40 IF (MAG) IF (ABS(L(JJ))-ABS(L(I))) 50,140,140 IF (L(JJ)-L(I)) 50,140,140 50 JJ = JJ-NWDS IF (JJ .LE. 0) GO TO 70 IF (BCK) GO TO 60 IF (MAG) IF (ABS(L(I))-ABS(L(JJ))) 50,80,80 IF (L(I) - L(JJ)) 50,80,80 60 IF (MAG) IF (ABS(L(JJ))-ABS(L(I))) 50,80,80 IF (L(JJ)-L(I)) 50,80,80 70 JJ = NWDS GO TO 90 80 JJ = JJ+IA+NWDS 90 II = I-KEYWD DO 100 J = 1,NWDS II = II+1 100 TEMP(J) = L(II) 110 IIA = II-NWDS L(II) = L(IIA) II = II-1 IF (II-JJ) 120,120,110 120 II = II-NWDS DO 130 J = 1,NWDS II = II+1 130 L(II) = TEMP(J) 140 CONTINUE C 150 RETURN END ================================================ FILE: mis/ruler.f ================================================ SUBROUTINE RULER (RULE,ICP,ZRCT,ONCT,LIST,N,BUFF,IOPT) C C DETERMINES STRING OF ZEROS AND ONES IN LIST BY APPLYING RULE TO C CP. C EXTERNAL ORF INTEGER ZRCT,ONCT,OCT,RULE,EOL,ORF,ZCT DIMENSION LIST(1),BUFF(1),ICP(1) COMMON /TWO / TWO1(32) COMMON /ZNTPKX/ A1(4),L,EOL C C PICK UP PARAMETERS C EOL = 0 R = RULE NAMCP = ICP(1) ZCT = 0 OCT = 0 ASSIGN 150 TO IS IF (R .GE. 0.0) ASSIGN 140 TO IS R = ABS(R) L = 0 J1 = 0 M = 0 N1 = N IF (NAMCP .EQ. 0) GO TO 50 CALL GOPEN (NAMCP,BUFF,0) CALL INTPK (*50,NAMCP,0,1,0) GO TO 60 50 M = N1 EOL = 1 60 DO 200 I = 1,N1 J = (I+31)/32 IF (M .GE. I) GO TO 90 IF (EOL .EQ. 0) GO TO 80 L = N1 A1(1) = 0.0 GO TO 90 80 CALL ZNTPKI 90 IF (L .EQ. I) GO TO 110 M = L A = 0.0 GO TO 120 110 A = A1(1) 120 IF (IOPT.EQ.1 .OR. J.LE.J1) GO TO 130 J1 = J LIST(J) = 0 130 GO TO IS, (140,150) 140 IF (A-R) 160,190,160 150 IF (A-R) 160,190,200 160 OCT = OCT + 1 IF (IOPT .EQ. 1) GO TO 180 K = I - ((I-1)/32)*32 LIST(J) = ORF(LIST(J),TWO1(K)) GO TO 200 180 LIST(I) = OCT GO TO 200 190 ZCT = ZCT + 1 IF (IOPT .NE. 0) LIST(I) = -ZCT 200 CONTINUE ZRCT = ZCT ONCT = OCT IF (NAMCP .NE. 0) CALL CLOSE (NAMCP,1) RETURN END ================================================ FILE: mis/rzintd.f ================================================ DOUBLE PRECISION FUNCTION RZINTD(IP,IQ,R,Z,NGRIDS) DOUBLE PRECISION R(4),Z(4),PT(3),H(3) DOUBLE PRECISION XINT,RRP,ZZQ,DRDXI,DZDXI,DRDETA,DZDETA,DETJ DOUBLE PRECISION RR,ZZ IF(NGRIDS.EQ.3)GO TO 200 NPT=3 PT(1)=-.7745966692D0 PT(2)=0.D0 PT(3)=-PT(1) H(1)=5.D0/9.D0 H(2)=8.D0/9.D0 H(3)=H(1) XINT=0.D0 DO 100 III=1,NPT DO 100 JJJ=1,NPT RR=.25D0*((1.D0-PT(III))*(1.D0-PT(JJJ))*R(1) 1 +(1.D0+PT(III))*(1.D0-PT(JJJ))*R(2) 1 +(1.D0+PT(III))*(1.D0+PT(JJJ))*R(3) 1 +(1.D0-PT(III))*(1.D0+PT(JJJ))*R(4)) ZZ=.25D0*((1.D0-PT(III))*(1.D0-PT(JJJ))*Z(1) 1 +(1.D0+PT(III))*(1.D0-PT(JJJ))*Z(2) 1 +(1.D0+PT(III))*(1.D0+PT(JJJ))*Z(3) 1 +(1.D0-PT(III))*(1.D0+PT(JJJ))*Z(4)) RRP=RR**IP ZZQ=ZZ**IQ DRDXI=.25D0*((1.D0-PT(JJJ))*(R(2)-R(1))+(1.D0+PT(JJJ))*(R(3)-R(4)) 1) DZDXI=.25D0*((1.D0-PT(JJJ))*(Z(2)-Z(1))+(1.D0+PT(JJJ))*(Z(3)-Z(4)) 1) DRDETA=.25D0*((1.D0-PT(III))*(R(4)-R(1))+(1.D0+PT(III))*(R(3)-R(2) 1)) DZDETA=.25D0*((1.D0-PT(III))*(Z(4)-Z(1))+(1.D0+PT(III))*(Z(3)-Z(2) 1)) DETJ=DRDXI*DZDETA-DZDXI*DRDETA DETJ=DABS(DETJ) XINT=XINT+RRP*ZZQ*H(III)*H(JJJ)*DETJ 100 CONTINUE RZINTD=XINT 200 RETURN END ================================================ FILE: mis/rzints.f ================================================ FUNCTION RZINTS(IP,IQ,R,Z,NGRIDS) DIMENSION R(4),Z(4),PT(3),H(3) IF(NGRIDS.EQ.3)GO TO 200 NPT=3 PT(1)=-.7745966692 PT(2)=0. PT(3)=-PT(1) H(1)=5./9. H(2)=8./9. H(3)=H(1) XINT=0. DO 100 III=1,NPT DO 100 JJJ=1,NPT RR=.25*((1.-PT(III))*(1.-PT(JJJ))*R(1) 1 +(1.+PT(III))*(1.-PT(JJJ))*R(2) 1 +(1.+PT(III))*(1.+PT(JJJ))*R(3) 1 +(1.-PT(III))*(1.+PT(JJJ))*R(4)) ZZ=.25*((1.-PT(III))*(1.-PT(JJJ))*Z(1) 1 +(1.+PT(III))*(1.-PT(JJJ))*Z(2) 1 +(1.+PT(III))*(1.+PT(JJJ))*Z(3) 1 +(1.-PT(III))*(1.+PT(JJJ))*Z(4)) RRP=RR**IP ZZQ=ZZ**IQ DRDXI=.25*((1.-PT(JJJ))*(R(2)-R(1))+(1.+PT(JJJ))*(R(3)-R(4))) DZDXI=.25*((1.-PT(JJJ))*(Z(2)-Z(1))+(1.+PT(JJJ))*(Z(3)-Z(4))) DRDETA=.25*((1.-PT(III))*(R(4)-R(1))+(1.+PT(III))*(R(3)-R(2))) DZDETA=.25*((1.-PT(III))*(Z(4)-Z(1))+(1.+PT(III))*(Z(3)-Z(2))) DETJ=DRDXI*DZDETA-DZDXI*DRDETA DETJ=ABS(DETJ) XINT=XINT+RRP*ZZQ*H(III)*H(JJJ)*DETJ 100 CONTINUE RZINTS=XINT 200 RETURN END ================================================ FILE: mis/sadd.f ================================================ SUBROUTINE SADD (Z,DZ) C C TO COMPUTE MATRIX SUM WITH MULTIPLIERS C ACCEPTS 1 TO 5 MATRIX BLOCKS PASSED ON VIA /SADDX/ C COMMON BLOCK /SADDX/ NOMAT,LCORE,MCBS(60),MC(7) C NOMAT - NUMBER OF MATRICES INPUT C LCORE - LENGTH OF Z ARRAY (OPEN CORE) C MCBS - MATRIX CONTROL BLOCKS AND MULTIPLIERS C (12 WORDS/MATRIX) C C 1 - FILE NAME 7 - NOT USED C 2 - NUMBER OF COLUMN 8 - TYPE OF MULTIPLIER C 3 - NUMBER OF ROW 9 - MULTIPLIER * LENGTH C 4 - FORM OF MATRIX 10 - MULTIPLIER * DEPENDS C 5 - TYPE OF MATRIX 11 - MULTIPLIER * ON THE C 6 - MAXIMUM NUMBER OF 12 - MULTIPLIER * TYPE C NON-ZERO ELEMENTS C C MC - MATRIX CONTROL BLOCK OF THE OUTPUT C INTEGER END ,EOL ,HOP ,NAME(2),ONE ,PRC , 1 PREC ,RC ,SYSBUF ,TYPE ,TYPIN ,TYPOUT REAL AMCB(1),ALPH(1),Z(1) DOUBLE PRECISION DA(2) ,DALPH(10) ,DMCB(1),DZ(1) COMMON /PACKX / TYPIN ,TYPOUT ,ONE ,N ,INCR COMMON /SADDX / NOMAT ,LCORE ,MCBS(60) ,MC(7) COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /TYPE / PRC(2) ,NWDS(4),RC(4) COMMON /ZNTPKX/ A(4) ,II ,EOL EQUIVALENCE (AMCB(1),MCBS(9)),(ALPH(1),DALPH(1)), 1 (DA(1) ,A(1)) ,(DMCB(1),MCBS(9)), 2 (NTYPE ,MC(5)) ,(NROW, MC(3)) DATA NAME / 4HSADD ,4H / C C END = (NOMAT-1)*12 + 1 PREC = -NOMAT*2 TYPE = -NOMAT*2 C C DETERMINE PRECISION TO BE USED FOR CALCULATIONS C C NOTE - PRC ARRAY IS DIMENSIONED ONLY TO 2 C PRC(1) = 1, PRC(2) = 2, AND C PRC(3) = NWDS(1) = 1, PRC(4) = NWDS(2) = 2 C WHERE 1 MEANS S.P., 2 D.P. C - RC ARRAY = 1,1,2,2, WHERE 1 MEANS REAL, 2 COMPLEX C DO 20 I = 1,END,12 IF (MCBS(I) .NE. 0) GO TO 10 PREC = PREC + 2 TYPE = TYPE + 2 GO TO 20 10 J = MCBS(I+4) PREC = PREC + PRC(J) TYPE = TYPE + RC(J) J = MCBS(I+7) PREC = PREC + PRC(J) TYPE = TYPE + RC(J) 20 CONTINUE TYPIN = 1 IF (TYPE .GT. 0) TYPIN = 3 IF (PREC .GT. 0) TYPIN = TYPIN + 1 NUM = NROW*NWDS(TYPIN) IF (LCORE .LT. (NOMAT+1)*SYSBUF+NUM+1) CALL MESAGE (-8,0,NAME) C C MOVE AND CONVERT MULTIPLIERS C IF (PREC .GT. 0) GO TO 60 C C SINGLE PRECISION C J = 1 DO 50 I = 1,END,12 K = MCBS(I+7) IF (PRC(K) .EQ. 2) GO TO 30 ALPH(J ) = AMCB(I ) ALPH(J+1) = AMCB(I+1) GO TO 40 30 K = I/2 + 1 ALPH(J ) = DMCB(K ) ALPH(J+1) = DMCB(K+1) 40 J = J + 1 IF (TYPE .GT. 0) J = J + 1 50 CONTINUE IF (TYPE .LE. 0) ALPH(J+1) = 0.0 GO TO 100 C C DOUBLE PRECISION C 60 J = 1 DO 90 I = 1,END,12 K = MCBS(I+7) IF (PRC(K) .EQ. 2) GO TO 70 DALPH(J ) = AMCB(I ) DALPH(J+1) = AMCB(I+1) GO TO 80 70 K = I/2 + 1 DALPH(J ) = DMCB(K ) DALPH(J+1) = DMCB(K+1) 80 J = J + 1 IF (TYPE .GT. 0) J = J + 1 90 CONTINUE IF (TYPE .LE. 0) DALPH(J+1) = 0.0D+0 C 100 GO TO (110,120,130,140), TYPIN 110 ASSIGN 300 TO HOP GO TO 150 120 ASSIGN 350 TO HOP GO TO 150 130 ASSIGN 400 TO HOP GO TO 150 140 ASSIGN 450 TO HOP C C OPEN AND ASSIGN FILES C 150 IBUF = LCORE DO 160 I = 1,END,12 IBUF = IBUF - SYSBUF IF (MCBS(I) .EQ. 0) GO TO 160 CALL GOPEN (MCBS(I),Z(IBUF),0) 160 CONTINUE IBUF = IBUF - SYSBUF CALL GOPEN (MC,Z(IBUF),1) C C SETUP PACK PARAMETERS C ONE = 1 N = NROW TYPOUT = NTYPE INCR = 1 NCOL1 = MC(2) MC(2) = 0 MC(6) = 0 MC(7) = 0 C C ADD MATRICES C DO 1000 I = 1,NCOL1 C C CLEAR CORE C DO 210 J = 1,NUM 210 Z(J) = 0.0 C ONE = N N = 1 DO 900 J = 1,NOMAT K = 12*(J-1) + 1 IF (MCBS(K ) .EQ. 0) GO TO 900 IF (MCBS(K+1) .LT. I) GO TO 900 CALL INTPK (*900,MCBS(K),0,TYPIN,0) C C READ IN NON ZERO ELEMENT C 220 CALL ZNTPKI IF (II .GT. NROW) GO TO 500 ONE = MIN0(ONE,II) N = MAX0(N ,II) GO TO HOP, (300,350,400,450) 300 Z(II) = Z(II) + ALPH(J)*A(1) GO TO 500 350 DZ(II) = DZ(II) + DALPH(J)*DA(1) GO TO 500 400 II = II + II - 1 JJ = J + J - 1 Z(II ) = Z(II) + ALPH(JJ)*A(1) - ALPH(JJ+1)*A(2) Z(II+1) = Z(II+1)+ ALPH(JJ)*A(2) + ALPH(JJ+1)*A(1) GO TO 500 450 II = II + II - 1 JJ = J + J - 1 DZ(II ) = DZ(II ) + DALPH(JJ)*DA(1) - DALPH(JJ+1)*DA(2) DZ(II+1) = DZ(II+1) + DALPH(JJ)*DA(2) + DALPH(JJ+1)*DA(1) 500 IF (EOL .EQ. 0) GO TO 220 900 CONTINUE C C END OF COLUMN C ONE = MIN0(ONE,N) LL = (ONE-1)*NWDS(TYPIN) + 1 CALL PACK (Z(LL),MC(1),MC) 1000 CONTINUE C C DONE - CLOSE FILES AND RETURN C DO 1010 I = 1,END,12 IF (MCBS(I) .NE. 0) CALL CLOSE (MCBS(I),1) 1010 CONTINUE CALL CLOSE (MC,1) RETURN END ================================================ FILE: mis/sadotb.f ================================================ FUNCTION SADOTB( A, B ) REAL A(3), B(3) C***** C SINGLE-PRECISION VERSION C C DOT PRODUCT A . B C***** SADOTB = A(1)*B(1) + A(2)*B(2) + A(3)*B(3) RETURN END ================================================ FILE: mis/sanorm.f ================================================ SUBROUTINE SANORM (*,A) DIMENSION A(3) C C VECTOR NORMALIZATION AND VECTOR LENGTH C XL=A(1)*A(1) + A(2)*A(2) + A(3)*A(3) IF (XL .LE. 0.0) RETURN 1 XL = SQRT(XL) A(1) = A(1)/XL A(2) = A(2)/XL A(3) = A(3)/XL RETURN END ================================================ FILE: mis/saxb.f ================================================ SUBROUTINE SAXB( A, B, C ) REAL A(3), B(3), C(3), D(3) C***** C SINGLE-PRECISION VERSION C C THIS ROUTINE PERFORMS A X B INTO C. (C MAY OVERLAP A OR B IN CORE.) C***** D(1) = A(2)*B(3) - A(3)*B(2) D(2) = A(3)*B(1) - A(1)*B(3) D(3) = A(1)*B(2) - A(2)*B(1) C(1) = D(1) C(2) = D(2) C(3) = D(3) RETURN C C***** ENTRY SAPB( A, B, C ) C C THIS ROUTINE PERFORMS A + B INTO C. C***** C(1) = A(1) + B(1) C(2) = A(2) + B(2) C(3) = A(3) + B(3) RETURN C C***** ENTRY SAMB( A, B, C ) C C THIS ROUTINE PERFORMS A - B INTO C. C***** C(1) = A(1) - B(1) C(2) = A(2) - B(2) C(3) = A(3) - B(3) RETURN END ================================================ FILE: mis/saxif1.f ================================================ SUBROUTINE SAXIF1 (IOPT) C C THIS ROUTINE GENERATES MATRICES WHICH RELATE PRESSURE TO VELOCITY C IN A FLUID. IOPT DETERMINES THE ELEMENT TYPE C C IOPT TYPE C 0 CAXIF2 C 1 CAXIF3 C 2 CAXIF4 C INTEGER NEST(100),SIL DIMENSION A(9) COMMON /SDR2X5/ EST(100),NID,SIL(4),SV(95) COMMON /SDR2X6/ HM(9),R(4),Z(4),AM(9),COEF,EN,EL,RBAR,ZBAR, 1 R1N,R2N,RBN1,DR,DZ,I1,I2,I3,IRET,IJ,IK,KJ EQUIVALENCE (EST(1),NEST(1)),(AM(1),A(1)) C DO 10 I = 1,44 10 SV(I) = 0.0 NID = NEST(1) IF (IOPT-1) 20,50,70 C C CAXIF2 ELEMENTS C 20 IF (NEST(6) .GE. 1) GO TO 30 COEF = EST(4)*(EST(13)-EST(9)) IF (COEF .EQ. 0.0) RETURN SV(3) = 1.0/COEF SV(4) = -SV(3) GO TO 40 30 IF (NEST(6) .GT. 1) GO TO 40 COEF = EST(4)*(EST(8)+EST(12)) IF (COEF .EQ. 0.0) RETURN SV(1) = -1.0/COEF SV(2) = SV(1) 40 CONTINUE EN = FLOAT(NEST(6)) RBAR = (EST(8)+EST(12))/2.0 ZBAR = (EST(9)+EST(13))/2.0 DR = EST(12) - EST(8) DZ = EST(13) - EST(9) R1N = EST( 8)**NEST(6) R2N = EST(12)**NEST(6) RBN1 = RBAR**(NEST(6)-1) HM(1) = EST(13)/(R1N*DZ) HM(2) =-EST( 9)/(R2N*DZ) HM(3) =-1.0/(R1N*DZ) HM(4) = 1.0/(R2N*DZ) EL = SQRT(DZ**2 +DR**2) COEF = RBN1/(EST(4)*EL) AM(1) = EN*DR*COEF AM(2) = (EN*DR*ZBAR + RBAR*DZ)*COEF AM(3) = EN*EL*COEF AM(4) = EN*ZBAR*EL*COEF SV(5) = AM(1)*HM(1) + AM(2)*HM(3) SV(6) = AM(1)*HM(2) + AM(2)*HM(4) SV(7) = AM(3)*HM(1) + AM(4)*HM(3) SV(8) = AM(3)*HM(2) + AM(4)*HM(4) SIL(1)= NEST(2) SIL(2)= NEST(3) RETURN C C CAXIF3 ELEMENT C 50 N = NEST(7) EN = FLOAT(N) RHO = EST(5) DO 60 I = 1,3 SIL(I) = NEST(I+1) IR = 4*(I-1) + 9 R(I) = EST(IR ) Z(I) = EST(IR+1) 60 CONTINUE I1 = 1 I2 = 2 I3 = 3 RBAR = (R(I1)+R(I2)+R(I3))/3.0 ZBAR = (Z(I1)+Z(I2)+Z(I3))/3.0 IRET = 4 GO TO 120 C C CAXIF4 ELEMENT C 70 N = NEST(8) EN = FLOAT(N) RHO = EST(6)*4.0 DO 80 I = 1,4 SIL(I) = NEST(I+1) IR = 4*(I-1) + 10 R(I) = EST(IR ) Z(I) = EST(IR+1) 80 CONTINUE RBAR = (R(1)+R(2)+R(3)+R(4))/4.0 ZBAR = (Z(1)+Z(2)+Z(3)+Z(4))/4.0 I1 = 1 I2 = 2 I3 = 3 IRET = 1 GO TO 120 90 I3 = 4 IRET = 2 GO TO 120 100 I2 = 3 IRET = 3 GO TO 120 110 I1 = 2 IRET = 4 C C ACTUAL SUBTRIANGLE CALCULATION C 120 IF (RHO .EQ. 0.0) RETURN A(1) = 0.0 A(2) =-1.0/RHO A(3) = 0.0 A(5) = A(2)*EN A(4) = A(5)/RBAR A(6) = A(4)*ZBAR A(7) = 0.0 A(8) = 0.0 A(9) = A(2) C COEF = (R(I2)-R(I1))*(Z(I3)-Z(I1)) - (R(I3)-R(I1))*(Z(I2)-Z(I1)) IF (COEF .EQ. 0.0) RETURN HM(1) = (R(I2)*Z(I3)-R(I3)*Z(I2))/COEF HM(2) = (R(I3)*Z(I1)-R(I1)*Z(I3))/COEF HM(3) = (R(I1)*Z(I2)-R(I2)*Z(I1))/COEF HM(4) = (Z(I2)-Z(I3)) /COEF HM(5) = (Z(I3)-Z(I1)) /COEF HM(6) = (Z(I1)-Z(I2)) /COEF HM(7) = (R(I3)-R(I2)) /COEF HM(8) = (R(I1)-R(I3)) /COEF HM(9) = (R(I2)-R(I1)) /COEF DO 150 J = 1,3 JCOL = I1 IF (J .EQ. 2) JCOL = I2 IF (J .EQ. 3) JCOL = I3 DO 150 I = 1,3 IJ = (2+IOPT)*(I-1) + JCOL DO 140 K = 1,3 IK = 3*(I-1) + K KJ = 3*(K-1) + J SV(IJ) = SV(IJ) + A(IK)*HM(KJ) 140 CONTINUE 150 CONTINUE GO TO (90,100,110,160 ), IRET C C THE CENTROID CALCULATIONS ARE COMPLETE. C 160 NSTA = 3*(IOPT+2) NCOL = IOPT + 2 IF (IOPT .EQ. 2) RHO = EST(6) DO 170 I = 1,NCOL J = I + 1 IF (J .GT.NCOL) J = J - NCOL EL = SQRT((R(J)-R(I))**2 + (Z(J)-Z(I))**2)*RHO C IK = NSTA + 2*NCOL*(I-1) + I IJ = IK + J - I SV(IK) = -1.0/EL SV(IJ) = -SV(IK) COEF = -EN/((R(I)+R(J))*RHO) IK = IK + NCOL IJ = IJ + NCOL SV(IK) = COEF SV(IJ) = COEF 170 CONTINUE RETURN END ================================================ FILE: mis/saxif2.f ================================================ SUBROUTINE SAXIF2 (IOPT,IPART,BRANCH,EIGEN) C C THIS ROUTINE CALCULATES FLUID VELOCITIES DUE TO HARMONIC C PRESSURES IN AN AXISYMMETRIC FLUID C C THE OPTIONS FOR IOPT ARE C IOPT ELEMENT C 0 CAXIF2 C 1 CAXIF3 C 2 CAXIF4 C IPART- FIRST = 1, SECOND = 2 C BRANCH- SDR2 PROCESS CODE WORD C INTEGER SIL ,BRANCH DIMENSION EIGEN(3) COMMON /CONDAS/ CONSTS(5) COMMON /ZZZZZZ/ ZZ(1) COMMON /SDR2X4/ DUMY(35) ,IVEC COMMON /SDR2X7/ IDE ,SIL(4) ,SV(95) ,ID1 , 1 VELR(11) ,ID2 ,VELI(11) EQUIVALENCE (CONSTS(2),TWOPI) C C IF (IPART .EQ. 2) GO TO 20 DO 10 I = 1,11 VELR(I) = 0.0 10 VELI(I) = 0.0 20 X = 1.0 Y = 0.0 IF (BRANCH .EQ. 2) X = SQRT(ABS(EIGEN(2))) IF (BRANCH .EQ. 5) X = TWOPI*EIGEN(1) IF (X .NE. 0.0) X = 1.0/X IF (BRANCH .NE. 9) GO TO 30 EM = EIGEN(2)**2 + EIGEN(3)**2 IF (EM .EQ. 0.0) GO TO 30 X = EIGEN(2)/EM Y =-EIGEN(3)/EM 30 IF (IPART .NE. 2) GO TO 40 EM = X X =-Y Y = EM 40 ID1= IDE ID2= IDE KC = IOPT + 2 KR = 3 + 2*KC IF (IOPT .EQ. 0) KR = 6 DO 80 I = 1,KC K = IVEC + SIL(I) - 1 IF (X .EQ. 0.0) GO TO 65 C DO 60 J = 1,KR IJ = KC*(J-1) + I VELR(J) = SV(IJ)*ZZ(K)*X + VELR(J) 60 CONTINUE 65 CONTINUE IF (Y .EQ. 0.0) GO TO 80 C DO 70 J = 1,KR IJ = KC*(J-1) + I VELI(J) = SV(IJ)*ZZ(K)*Y + VELI(J) 70 CONTINUE 80 CONTINUE RETURN END ================================================ FILE: mis/sbar1.f ================================================ SUBROUTINE SBAR1 C C THIS ROUTINE IS PHASE 1 OF STRESS DATA RECOVERY FOR THE BAR C ELEMENT. MUCH OF THE CODE WAS LIFTED FROM THE KBAR SUBROUTINE. C C ECPT FOR THE BAR C C ECPT( 1) - IELID ELEMENT ID. NUMBER C ECPT( 2) - ISILNO(2) * SCALAR INDEX NOS. OF THE GRID POINTS C ECPT( 3) - ... * C ECPT( 4) - SMALLV(3) $ REFERENCE VECTOR C ECPT( 5) - ... $ C ECPT( 6) - ... $ C ECPT( 7) - ICSSV COOR. SYS. ID FOR SMALLV VECTOR C ECPT( 8) - IPINFL(2) * PIN FLAGS C ECPT( 9) - ... * C ECPT(10) - ZA(3) $ OFFSET VECTOR FOR POINT A C ECPT(11) - ... $ C ECPT(12) - ... $ C ECPT(13) - ZB(3) * OFFSET VECTOR FOR POINT B C ECPT(14) - ... * C ECPT(15) - ... * C ECPT(16) - IMATID MATERIAL ID. C ECPT(17) - A CROSS-SECTIONAL AREA C ECPT(18) - I1 $ AREA MOMENTS OF INERTIA C ECPT(19) - I2 $ C ECPT(20) - FJ POLAR MOMENT OF INERTIA C ECPT(21) - NSM NON-STRUCTURAL MASS C ECPT(22) - FE FORCE ELEMENT DESCRIPTIONS (FORCE METHOD) C ECPT(23) - C1 * STRESS RECOVERY COEFFICIENTS C ECPT(24) - C2 * C ECPT(25) - D1 * C ECPT(26) - D2 * C ECPT(27) - F1 * C ECPT(28) - F2 * C ECPT(29) - G1 * C ECPT(30) - G2 * C ECPT(31) - K1 $ AREA FACTORS FOR SHEAR C ECPT(32) - K2 $ C ECPT(33) - I12 AREA MOMENT OF INERTIA C ECPT(34) - MCSIDA COOR. SYS. ID. FOR GRID POINT A C ECPT(35) - GPA(3) * BASIC COORDINATES FOR GRID POINT A C ECPT(36) - ... * C ECPT(37) - ... * C ECPT(38) - MCSIDB COOR. SYS. ID. FOR GRID POINT B C ECPT(39) - GPB(3) $ BASIC COORDINATES FOR GRID POINT B C ECPT(40) - ... $ C ECPT(41) - ... $ C ECPT(42) - ELTEMP AVG. ELEMENT TEMPERATURE C LOGICAL ABASIC,BBASIC,BASIC,AOFSET,BOFSET,OFFSET REAL L,LSQ,LCUBE,I1,I2,K1,K2,KE,KEP,I12,NSM,LR1,LR2,LB, 1 L2B3,L2B6,HUT(36) DIMENSION VECI(3),VECJ(3),VECK(3),ECPT(100),IECPT(100), 1 IPIN(10),TA(18),TB(9),SMALV0(6) C C SDR2 PHASE I INPUT AND OUTPUT COMMON BLOCK C COMMON /SDR2X5/ IELID,ISILNO(2),SMALLV(3),ICSSV,IPINFL(2),ZA(3), 1 ZB(3),IMATID,A,I1,I2,FJ,NSM,FE,C1,C2,D1,D2,F1,F2, 2 G1,G2,K1,K2,I12,MCSIDA,GPA(3),MCSIDB,GPB(3), 3 TEMPEL,DUM3(58) COMMON /SDR2X5/ JELID,JSILNO(2),SA(36),SB(36),OUT(19),THERM(30) C C SDR2 SCRATCH BLOCK C COMMON /SDR2X6/ KE(144),KEP(144),DELA(6),DELB(6) C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E,G,NU,RHO,ALPHA,T SUB 0,G SUB E,SIGT, SIGC,SIGS EQUIVALENCE (IELID,ECPT(1),IECPT(1)),(TA(10),TB(1)) C C C SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS. C ICSIDA AND ICSIDB ARE COOR. SYS. IDS. C JCSIDA = 34 JCSIDB = 38 JOFSTA = 10 JOFSTB = 13 JPINA = 8 JPINB = 9 ICSIDA = IECPT(34) ICSIDB = IECPT(38) C C NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL C AXIS PLANE (FMMS - 36 P. 4) C FL = 0.0 DO 50 I = 1,3 50 FL = FL + SMALLV(I)**2 FL = SQRT(FL) DO 60 I = 1,3 60 SMALLV(I) = SMALLV(I)/FL C C DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT. C ABASIC = .TRUE. BBASIC = .TRUE. IF (ICSIDA .NE. 0) ABASIC = .FALSE. IF (ICSIDB .NE. 0) BBASIC = .FALSE. C C COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY C IF (.NOT.ABASIC) CALL TRANSS (ECPT(JCSIDA),TA) IF (.NOT.BBASIC) CALL TRANSS (ECPT(JCSIDB),TB) C C DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS. C AOFSET = .TRUE. J = JOFSTA - 1 DO 70 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 80 70 CONTINUE AOFSET = .FALSE. 80 BOFSET = .TRUE. J = JOFSTB - 1 DO 90 I = 1,3 J = J + 1 IF (ECPT(J) .NE. 0.0) GO TO 100 90 CONTINUE BOFSET = .FALSE. C C FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS. C 100 VECI(1) = ECPT(JCSIDA+1) - ECPT(JCSIDB+1) VECI(2) = ECPT(JCSIDA+2) - ECPT(JCSIDB+2) VECI(3) = ECPT(JCSIDA+3) - ECPT(JCSIDB+3) C C TRANSFORM THE OFFSET VECTORS IF NECESSARY C IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150 C C TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY. C IDELA = 1 J = JOFSTA - 1 DO 110 I = 1,3 J = J + 1 110 DELA(I) = ECPT(J) IF (ABASIC) GO TO 120 IDELA = 4 CALL GMMATS (TA,3,3,0, DELA(1),3,1,0, DELA(4)) C C TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY C 120 IDELB = 1 J = JOFSTB - 1 DO 130 I = 1,3 J = J + 1 130 DELB(I) = ECPT(J) IF (BBASIC) GO TO 140 IDELB = 4 CALL GMMATS (TB,3,3,0, DELB(1),3,1,0, DELB(4)) C C SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI C 140 VECI(1) = VECI(1) + DELA(IDELA ) - DELB(IDELB ) VECI(2) = VECI(2) + DELA(IDELA+1) - DELB(IDELB+1) VECI(3) = VECI(3) + DELA(IDELA+2) - DELB(IDELB+2) C C COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE C 150 VECI(1) = -VECI(1) VECI(2) = -VECI(2) VECI(3) = -VECI(3) FL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) DO 160 I = 1,3 160 VECI(I) = VECI(I)/FL C C COMPUTE THE SMALL V SUB 0 VECTOR, SMALV0. ** CHECK THIS LOGIC ** C DO 165 I = 1,3 165 SMALV0(I) = SMALLV(I) ISV = 1 IF (ICSSV .EQ. 0) GO TO 180 ISV = 4 CALL GMMATS (TA,3,3,0, SMALV0(1),3,1,0, SMALV0(4)) C C COMPUTE THE K VECTOR, VECK = VECI X SMALV0, AND NORMALIZE C 180 VECK(1) = VECI(2)*SMALV0(ISV+2) - VECI(3)*SMALV0(ISV+1) VECK(2) = VECI(3)*SMALV0(ISV ) - VECI(1)*SMALV0(ISV+2) VECK(3) = VECI(1)*SMALV0(ISV+1) - VECI(2)*SMALV0(ISV ) FLL = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) VECK(1) = VECK(1)/FLL VECK(2) = VECK(2)/FLL VECK(3) = VECK(3)/FLL C C COMPUTE THE J VECTOR, VECJ = VECK X VECI, AND NORMALIZE C VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2) VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3) VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1) FLL = SQRT(VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2) VECJ(1) = VECJ(1)/FLL VECJ(2) = VECJ(2)/FLL VECJ(3) = VECJ(3)/FLL C C CALL MAT TO GET MATERIAL PROPERTIES. C MATIDC = IMATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) C C SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX C CALCULATION C L = FL LSQ = L**2 LCUBE= LSQ*L EI1 = E*I1 EI2 = E*I2 IF (K1.EQ.0.0 .OR. I12.NE.0.0) GO TO 210 GAK1 = G*A*K1 R1 = (12.0*EI1*GAK1)/(GAK1*LCUBE + 12.0*L*EI1) GO TO 220 210 R1 = 12.0*EI1/LCUBE 220 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 230 GAK2 = G*A*K2 R2 = (12.0*EI2*GAK2)/(GAK2*LCUBE + 12.0*L*EI2) GO TO 240 230 R2 = 12.0*EI2/LCUBE C C COMPUTE THE -SMALL- K-S, SK1, SK2, SK3 AND SK4 C 240 SK1 = 0.25*R1*LSQ + EI1/L SK2 = 0.25*R2*LSQ + EI2/L SK3 = 0.25*R1*LSQ - EI1/L SK4 = 0.25*R2*LSQ - EI2/L C C COMPUTE THE TERMS THAT WILL BE NEEDED FOR THE 12 X 12 MATRIX KE C AEL = A*E /L LR1 = L*R1/2.0 LR2 = L*R2/2.0 GJL = G*FJ/L C C CONSTRUCT THE 12 X 12 MATRIX KE C DO 250 I = 1,144 250 KE(I) = 0.0 KE( 1) = AEL KE( 7) = -AEL KE( 14) = R1 KE( 18) = LR1 KE( 20) = -R1 KE( 24) = LR1 KE( 27) = R2 KE( 29) = -LR2 KE( 33) = -R2 KE( 35) = -LR2 KE( 40) = GJL KE( 46) = -GJL KE( 51) = -LR2 KE( 53) = SK2 KE( 57) = LR2 KE( 59) = SK4 KE( 62) = LR1 KE( 66) = SK1 KE( 68) = -LR1 KE( 72) = SK3 KE( 73) = -AEL KE( 79) = AEL KE( 86) = -R1 KE( 90) = -LR1 KE( 92) = R1 KE( 96) = -LR1 KE( 99) = -R2 KE(101) = LR2 KE(105) = R2 KE(107) = LR2 KE(112) = -GJL KE(118) = GJL KE(123) = -LR2 KE(125) = SK4 KE(129) = LR2 KE(131) = SK2 KE(134) = LR1 KE(138) = SK3 KE(140) = -LR1 KE(144) = SK1 IF (I12 .EQ. 0.0) GO TO 255 BETA = 12.0*E*I12/LCUBE LB = L *BETA/2.0 L2B3 = LSQ*BETA/3.0 L2B6 = LSQ*BETA/6.0 KE( 15) = BETA KE( 17) = -LB KE( 21) = -BETA KE( 23) = -LB KE( 26) = BETA KE( 30) = LB KE( 32) = -BETA KE( 36) = LB KE( 50) = -LB KE( 54) = -L2B3 KE( 56) = LB KE( 60) = -L2B6 KE( 63) = LB KE( 65) = -L2B3 KE( 69) = -LB KE( 71) = -L2B6 KE( 87) = -BETA KE( 89) = LB KE( 93) = BETA KE( 95) = LB KE( 98) = -BETA KE(102) = -LB KE(104) = BETA KE(108) = -LB KE(122) = -LB KE(126) = -L2B6 KE(128) = LB KE(132) = -L2B3 KE(135) = LB KE(137) = -L2B6 KE(141) = -LB KE(143) = -L2B3 C C DETERMINE IF THERE ARE NON-ZERO PIN FLAGS. C 255 KA = IECPT(JPINA) KB = IECPT(JPINB) IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 325 C C SET UP THE IPIN ARRAY C DO 260 I = 1,5 IPIN(I ) = MOD(KA,10) IPIN(I+5) = MOD(KB,10) + 6 IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0 KA = KA/10 260 KB = KB/10 C C ALTER KE MATRIX DUE TO PIN FLAGS. C DO 320 I = 1,10 IF (IPIN(I) .EQ. 0) GO TO 320 II = 13*IPIN(I) - 12 IF (KE(II) .NE. 0.0) GO TO 280 IL = IPIN(I) II = II - IL DO 270 J = 1,12 II = II + 1 KE(II) = 0.0 KE(IL) = 0.0 IL = IL + 12 270 CONTINUE GO TO 320 280 DO 300 J = 1,12 JI = 12*(J-1) + IPIN(I) IJ = 12*(IPIN(I)-1) + J DO 290 LL = 1,12 JLL = 12*(J-1) + LL ILL = 12*(IPIN(I)-1) + LL KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI) 290 CONTINUE KEP(IJ) = 0.0 KEP(JI) = 0.0 300 CONTINUE DO 310 K = 1,144 310 KE(K) = KEP(K) 320 CONTINUE C C E C STORE K IN KEP(1),...,KEP(36) AND C AA C C E C STORE K IN KEP(37),...,KEP(72) C AB C 325 J = 0 DO 340 I = 1,72,12 LOW = I LIM = LOW + 5 DO 330 K = LOW,LIM J = J + 1 KEP(J ) = KE(K ) 330 KEP(J+36) = KE(K+6) 340 CONTINUE C C COMPUTE THERMAL MATRIX C DO 341 I = 1,30 341 HUT(I) = 0.0 ALPHAL = ALPHA*L ALPL6 = ALPHAL*L/6.0 ALPL3 = ALPL6*2.0 ALPL2 = ALPHAL/2.0 HUT( 1) = ALPHAL HUT( 7) = ALPL6 HUT( 8) = ALPL3 HUT(14) = ALPL6 HUT(15) = ALPL3 HUT(24) = ALPL2 HUT(25) = ALPL2 HUT(27) =-ALPL2 HUT(28) =-ALPL2 CALL GMMATS (KEP(1),6,6,0, HUT,6,5,0, THERM(1)) C C T C STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A MATRIX. C KE(1) = VECI(1) KE(2) = VECI(2) KE(3) = VECI(3) KE(4) = VECJ(1) KE(5) = VECJ(2) KE(6) = VECJ(3) KE(7) = VECK(1) KE(8) = VECK(2) KE(9) = VECK(3) C C SET POINTERS SO THAT WE WILL BE WORKING WITH POINT A. C BASIC = ABASIC JCSID = JCSIDA OFFSET = AOFSET JOFSET = JOFSTA IWBEG = 0 IKEL = 1 IAB = 1 INDEX = ISILNO(1) C C ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX AND THE W AND W 6 X 6 C MATRICES WILL RESIDE. A B C DO 350 I = 28,108 350 KE(I) = 0.0 C C SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX. C G = AT X TI C 360 IG = 1 IF (BASIC) GO TO 370 CALL TRANSS (ECPT(JCSID),KE(10)) CALL GMMATS (KE(1),3,3,0, KE(10),3,3,0, KE(19)) IG = 19 C C IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3 X 3 C MATRIX. C 370 IF (.NOT.OFFSET) GO TO 380 KE(10) = 0.0 KE(11) = ECPT(JOFSET+2) KE(12) = -ECPT(JOFSET+1) KE(13) = -KE(11) KE(14) = 0.0 KE(15) = ECPT(JOFSET) KE(16) = -KE(12) KE(17) = -KE(15) KE(18) = 0.0 C C FORM THE 3 X 3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10) C CALL GMMATS (KE(IG),3,3,0, KE(10),3,3,0, KE(28)) C C C FORM THE W MATRIX OR THE W MATRIX IN KE(37) OR KE(73) DEPENDING C A B C UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION. G WILL BE C STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS. H, IF NON-ZERO, C WILL BE STORED IN THE UPPER RIGHT CORNER. C C 380 KE(IWBEG+37) = KE(IG ) KE(IWBEG+38) = KE(IG+1) KE(IWBEG+39) = KE(IG+2) KE(IWBEG+43) = KE(IG+3) KE(IWBEG+44) = KE(IG+4) KE(IWBEG+45) = KE(IG+5) KE(IWBEG+49) = KE(IG+6) KE(IWBEG+50) = KE(IG+7) KE(IWBEG+51) = KE(IG+8) KE(IWBEG+58) = KE(IG ) KE(IWBEG+59) = KE(IG+1) KE(IWBEG+60) = KE(IG+2) KE(IWBEG+64) = KE(IG+3) KE(IWBEG+65) = KE(IG+4) KE(IWBEG+66) = KE(IG+5) KE(IWBEG+70) = KE(IG+6) KE(IWBEG+71) = KE(IG+7) KE(IWBEG+72) = KE(IG+8) IF (.NOT.OFFSET) GO TO 390 KE(IWBEG+40) = KE(28) KE(IWBEG+41) = KE(29) KE(IWBEG+42) = KE(30) KE(IWBEG+46) = KE(31) KE(IWBEG+47) = KE(32) KE(IWBEG+48) = KE(33) KE(IWBEG+52) = KE(34) KE(IWBEG+53) = KE(35) KE(IWBEG+54) = KE(36) C C E E C FORM THE PRODUCT S = K * W OR S = K * W , DEPENDING C A AA A B AB B C UPON WHICH POINT WE ARE WORKING WITH. C 390 CALL GMMATS (KEP(IKEL),6,6,0, KE(IWBEG+37),6,6,0, SA(IAB)) C C IF THE POINT UNDER CONSIDERATION IS POINT B WE ARE FINISHED. IF C NOT, SET UP POINTS AND INDICATORS FOR WORKING WITH POINT B. C IF (IWBEG .EQ. 36) GO TO 500 BASIC = BBASIC JCSID = JCSIDB OFFSET = BOFSET JOFSET = JOFSTB IWBEG = 36 IKEL = 37 IAB = 37 INDEX = ISILNO(2) DO 400 I = 28,36 400 KE(I) = 0.0 GO TO 360 C C FILL REMAINDER OF OUTPUT BLOCK. C 500 JELID = IELID JSILNO(1) = ISILNO(1) JSILNO(2) = ISILNO(2) OUT( 1) = A*E*ALPHA OUT( 2) = A*E/L OUT( 3) = A OUT( 4) = FJ OUT( 5) = I1 OUT( 6) = I2 OUT( 7) = I12 OUT( 8) = C1 OUT( 9) = C2 OUT(10) = D1 OUT(11) = D2 OUT(12) = F1 OUT(13) = F2 OUT(14) = G1 OUT(15) = G2 OUT(16) = T SUB 0 OUT(17) = SIGT OUT(18) = SIGC OUT(19) = L RETURN END ================================================ FILE: mis/sbar2.f ================================================ SUBROUTINE SBAR2( TI ) C****** C THIS ROUTINE IS THE PHASE II SUBROUTINE OF STRESS DATA RECOVERY FOR C THE BEAM ELEMENT. C****** C REAL I1 ,I2 ,L ,M1A ,M2A ,M1B 1, M2B ,I12 ,K1A ,K2A ,K1B ,K2B 2, TI(14) ,FRLAST(2) INTEGER TLOADS ,EJECT ,ISHED(7) C C COMMON /SYSTEM/ IBFSZ ,NOUT ,IDM(9) ,LINE C C SDR2 VARIABLE CORE C COMMON /ZZZZZZ/ ZZ(1) C C BLOCK FOR POINTERS, LOADING TEMPERATURE AND ELEMENT DEFORMATION. C COMMON /SDR2X4/ 1 XXXXXX(33) ,ICSTM 2, NCSTM ,IVEC 3, IVECN ,LDTEMP 4, ELDEFM ,DUM8(8),TLOADS C C THE FIRST 100 LOCATIONS OF THE SDR2X7 BLOCK ARE RESERVED FOR INPUT C PARAMETERS, THE SECOND 100 FOR STRESS OUTPUT PARAMETERS, AND FORCE C OUTPUT PARAMETERS BEGIN AT LOCATION 201. C COMMON /SDR2X7/ 1 JELID ,JSILNO(2) 2, SA(36) ,SB(36) 3, ST ,SDELTA 4, A ,FJ 5, I1 ,I2 6, I12 ,C1 7, C2 ,D1 8, D2 ,F1 9, F2 ,G1 T, G2 ,T SUB 0 1, SIGMAT ,SIGMAC 2, L ,THERM(6) C C THERM ACTUALLY HAS 30 VALUES C COMMON /SDR2X7/ 1 ISELID ,SIG1A 2, SIG2A ,SIG3A 3, SIG4A ,SIGAX 4, SIGAMX ,SIGAMN 5, MSTEN ,SIG1B 6, SIG2B ,SIG3B 7, SIG4B ,SIGBMX 8, SIGBMN ,MSCOM 9, YYYYYY(84) COMMON /SDR2X7/ 1 IFELID ,M1A 2, M2A ,M1B 3, M2B ,V1 4, V2 ,FX 5, T C C SDR2 SCRATCH BLOCK C COMMON /SDR2X8/ 1 FA(6) ,FB(6) 2, IDISP ,IUA 3, IUB ,P1 4, K1A ,K2A 5, K1B ,K2B 6, Q ,W 7, CFA(6) ,CFB(6) 8, CFRVEC(10) ,FRVEC(10) C C STRESS/FORCE PRECISION CHECK C COMMON /SDR2X9/ 1 NCHK ,ISUB 2, ILD ,FRTMEI(2) 3, TWOTOP ,FNCHK C EQUIVALENCE 1 (LDTEMP,TEMPLD) ,(MSTEN,SMTEN) 2, (MSCOM,SMCOM) ,(ISHED(6),FRLAST(1)) 3, (IEID,CFRVEC(1)) 4, (ISHED(1),LSUB) ,(ISHED(2),LLD) C DATA LLD, LSUB, FRLAST / 2*-100, -1.0E30, -1.0E30 / C IDISP = IVEC - 1 IUA = IDISP + JSILNO(1) CALL SMMATS (SA(1),6,6,0, ZZ(IUA),6,1,0, FA,CFA ) IUB = IDISP + JSILNO(2) CALL SMMATS (SB(1),6,6,0, ZZ(IUB),6,1,0, FB,CFB ) P1 = FA(1) + FB(1) V1 = -FA(2) - FB(2) V2 = -FA(3) - FB(3) T = -FA(4) - FB(4) M2A = FA(5) + FB(5) M1A = -FA(6) - FB(6) FX = -P1 - SDELTA * ELDEFM CFRVEC(2) = CFA(6) + CFB(6) CFRVEC(3) = CFA(5) + CFB(5) CFRVEC(9) = CFA(4) + CFB(4) CFRVEC(7) = CFA(3) + CFB(3) CFRVEC(6) = CFA(2) + CFB(2) CFRVEC(8) = CFA(1) + CFB(1) C C IF LDTEMP = -1, THE LOADING TEMPERATURE IS UNDEFINED C IF( TLOADS .EQ. 0 ) GO TO 10 TSAVE = TI(2) TI(2) = (TI(1) + TI(2))/2.0 - TSUB0 CALL GMMATS( THERM,6,5,0, TI(2),5,1,0, FA(1) ) TI(2) = TSAVE FX = FX - FA(1) V1 = V1 - FA(2) V2 = V2 - FA(3) T = T - FA(4) M2A = M2A + FA(5) M1A = M1A - FA(6) 10 M1B = M1A - V1*L M2B = M2A - V2*L CFRVEC(4) = CFRVEC(2) + CFRVEC(6) * L CFRVEC(5) = CFRVEC(3) + CFRVEC(7) * L FRVEC(2) = M1A FRVEC(3) = M2A FRVEC(4) = M1B FRVEC(5) = M2B FRVEC(6) = V1 FRVEC(7) = V2 FRVEC(8) = FX FRVEC(9) = T C***** C COMPUTE ELEMENT STRESSES AT 4 POINTS C***** C C COMPUTE K1A AND K2A C IF (I12 .NE. 0.0) GO TO 30 IF (I1 .NE. 0.0) GO TO 20 K1A = 0.0 GO TO 40 20 K1A = -M1A / I1 GO TO 40 30 K1A = (M2A * I12 - M1A * I2) / (I1 * I2 - I12**2) K2A = (M1A * I12 - M2A * I1) / (I1 * I2 - I12**2) GO TO 60 40 IF (I2 .NE. 0.0) GO TO 50 K2A = 0.0 GO TO 60 50 K2A = -M2A / I2 C C COMPUTE SIG1A, SIG2A, SIG3A AND SIG4A C 60 SIG1A = K1A * C1 + K2A * C2 SIG2A = K1A * D1 + K2A * D2 SIG3A = K1A * F1 + K2A * F2 SIG4A = K1A * G1 + K2A * G2 C C COMPUTE K1B AND K2B C IF (I12 .NE. 0.0) GO TO 80 IF (I1 .NE. 0.0) GO TO 70 K1B = 0.0 GO TO 90 70 K1B = -M1B / I1 GO TO 90 80 K1B = (M2B * I12 - M1B * I2) / (I1 * I2 - I12**2) K2B = (M1B * I12 - M2B * I1) / (I1 * I2 - I12**2) GO TO 110 90 IF (I2 .NE. 0.0) GO TO 100 K2B = 0.0 GO TO 110 100 K2B = -M2B / I2 C C COMPUTE SIG1B, SIG2B, SIG3B AND SIG4B C 110 SIG1B = K1B * C1 + K2B * C2 SIG2B = K1B * D1 + K2B * D2 SIG3B = K1B * F1 + K2B * F2 SIG4B = K1B * G1 + K2B * G2 IF( TLOADS .EQ. 0 ) GO TO 115 C C TEST IF AT LEAST ONE POINT TEMPERATURE IS GIVEN C DO 111 I = 7,14 IF( TI(I) .NE. 0.0 ) GO TO 112 111 CONTINUE GO TO 115 112 IF( A .EQ. 0.0 ) GO TO 115 EALF =-ST / A SIG1A = SIG1A + EALF*(TI(7) - TI(3)*C1 - TI(5)*C2 - TI(1)) SIG2A = SIG2A + EALF*(TI(8) - TI(3)*D1 - TI(5)*D2 - TI(1)) SIG3A = SIG3A + EALF*(TI(9) - TI(3)*F1 - TI(5)*F2 - TI(1)) SIG4A = SIG4A + EALF*(TI(10) - TI(3)*G1 - TI(5)*G2 - TI(1)) SIG1B = SIG1B + EALF*(TI(11) - TI(4)*C1 - TI(6)*C2 - TI(2)) SIG2B = SIG2B + EALF*(TI(12) - TI(4)*D1 - TI(6)*D2 - TI(2)) SIG3B = SIG3B + EALF*(TI(13) - TI(4)*F1 - TI(6)*F2 - TI(2)) SIG4B = SIG4B + EALF*(TI(14) - TI(4)*G1 - TI(6)*G2 - TI(2)) 115 CONTINUE C C COMPUTE AXIAL STRESS C CFRVEC(10) = 0.0 SIGAX = 0.0 IF (A .NE. 0.0) SIGAX = FX / A IF (A.NE.0.0) CFRVEC(10) = CFRVEC(8) / A FRVEC(10) = SIGAX C C COMPUTE MAXIMA AND MINIMA C SIGAMX = SIGAX + AMAX1(SIG1A,SIG2A,SIG3A,SIG4A) SIGBMX = SIGAX + AMAX1(SIG1B,SIG2B,SIG3B,SIG4B) SIGAMN = SIGAX + AMIN1(SIG1A,SIG2A,SIG3A,SIG4A) SIGBMN = SIGAX + AMIN1(SIG1B,SIG2B,SIG3B,SIG4B) C C COMPUTE MARGIN OF SAFETY IN TENSION C IF(SIGMAT.LE.0.0)GO TO 620 IF(AMAX1(SIGAMX,SIGBMX).LE.0.0) GO TO 620 Q=SIGMAT/AMAX1(SIGAMX,SIGBMX) SMTEN=Q-1.0 GO TO 630 620 MSTEN=1 C C COMPUTE MARGIN OF SAFETY IN COMPRESSION C 630 IF(SIGMAC .LE. 0.0) GO TO 640 IF(AMIN1(SIGAMN,SIGBMN).GE.0.0) GO TO 640 W = -SIGMAC/AMIN1(SIGAMN,SIGBMN) SMCOM=W-1.0 GO TO 150 640 MSCOM=1 150 ISELID = JELID IFELID = JELID C C . STRESS CHECK... C IF (NCHK.LE.0) GO TO 230 IEID = JELID K = 0 CALL SDRCHK (FRVEC(2),CFRVEC(2),9,K) C IF (K.EQ.0) GO TO 230 C C . LIMITS EXCEEDED... J = 0 IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND. 1 LLD .EQ.ILD .AND. FRLAST(2).EQ.FRTMEI(2) ) GO TO 200 LSUB = ISUB LLD = ILD FRLAST(1) = FRTMEI(1) FRLAST(2) = FRTMEI(2) J = 1 CALL PAGE1 180 CALL SD2RHD (ISHED,J) LINE = LINE + 1 WRITE(NOUT,190) 190 FORMAT(7X,47HTYPE EID M1A M2A M1B M2B V1,5X, 1 23HV2 FA T SA) GO TO 210 C 200 IF (EJECT(2).NE.0) GO TO 180 210 WRITE(NOUT,220) IEID,(CFRVEC(I),I=2,10) 220 FORMAT (1H0,7X,3HBAR,I8,9F7.1) C 230 CONTINUE RETURN END ================================================ FILE: mis/sbspl2.f ================================================ SUBROUTINE SBSPL2( NTYPE, TI ) C C PHASE TWO STRESS DATA RECOVERY BASIC BENDING TRIANGLE. C C NTYPE = 0 IMPLIES BASIC BENDING TRIANGLE C NTYPE = 3 IMPLIES TRI-PLATE IS CALLING C NTYPE = 4 IMPLIES QUAD-PLATE IS CALLING C DIMENSION NSIL(1), SI(1) REAL TI(6) ,SDELTA(3),FRLAST(2) INTEGER EJECT ,ISHED(7) ,TLOADS ,BSC ,PLT ,QD ,TR 1, ISTYP(2) LOGICAL FLAG C COMMON /SYSTEM/ IBFSZ ,NOUT ,IDM(9) ,LINE COMMON /ZZZZZZ/ Z(1) COMMON /SDR2X4/ DUMMY(35),IVEC,DUM11(11),TLOADS COMMON /SDR2X7/ EST(100),STRES(100),FORVEC(25) COMMON /SDR2X8/ EYE,I,J,NPOINT,VEC(5),ZOVERI,TEMP,DELTA 1, CVEC(5),CFRVEC(12) COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK COMMON /SDR2DE/ SKP(8),IELTYP C EQUIVALENCE (SI(1),EST(9)),(NSIL(1),EST(2)) EQUIVALENCE (NELID,EST(1)) EQUIVALENCE (F1,N1) , (ISHED(6),FRLAST(1) ) 1, (ISHED(1),LSUB) , (ISHED(2),LLD) C DATA TR,QD,BSC,PLT / 4H TR, 4H QD, 4HBSC , 4HPLT / DATA LLD,LSUB,FRLAST / 2*-100, -1.0E30, -1.0E30 / C C ****************************************************************** C . ZERO OUT FORCE AND PRECISION CHECK VECTOR... DO 5 I = 1,6 FORVEC(I) = 0.0E0 CFRVEC(I) = 0.0E0 5 CFRVEC(I+6) = 0.0E0 FORVEC(1) = EST(1) C NPTS = 3 IF( NTYPE .EQ. 4 ) NPTS = 4 C C NPTS C FORCE VECTOR = SUMMATION (S )(U ) C I=1 I I C DO 20 I = 1,NPTS C C POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE C NPOINT = IVEC + NSIL(I) - 1 C CALL SMMATS (SI(30*I-29),5,6,0, Z(NPOINT),6,1,0, VEC,CVEC ) C DO 30 J = 1,5 CFRVEC(J+1) = CFRVEC(J+1) + CVEC(J) 30 FORVEC(J + 1) = FORVEC(J + 1) + VEC(J) 20 CONTINUE IF( TLOADS .EQ. 0 ) GO TO 55 FLAG = .FALSE. JST = 98 IF( NTYPE .EQ. 4 ) JST = 128 F1 = TI(6) IF( N1 .EQ. 1 ) GO TO 50 FORVEC(2) = FORVEC(2) - TI(2) FORVEC(3) = FORVEC(3) - TI(3) FORVEC(4) = FORVEC(4) - TI(4) IF( TI(5).EQ.0.0 .AND. TI(6).EQ.0.0 ) FLAG = .TRUE. GO TO 55 50 FORVEC(2) = FORVEC(2) + TI(2)*EST(JST+1) FORVEC(3) = FORVEC(3) + TI(2)*EST(JST+2) FORVEC(4) = FORVEC(4) + TI(2)*EST(JST+3) IF( TI(3).EQ.0.0 .AND. TI(4).EQ.0.0 ) FLAG = .TRUE. 55 CONTINUE C C FORCE VECTOR COMPLETE AND CONTAINS M , M , M , V , V C X Y XY X Y C C AND ALSO INCLUDES THE ELEMENT ID AS THE FIRST ENTRY C ****************************************************************** C C STRESSES AT FIBER DISTANCES Z1 AND Z2 = - M * Z / I C STRES(2) = EST(7) STRES(11) = EST(8) EYE = EST(6) I = 2 K = 7 K1 = 0 200 ZOVERI = - STRES(I) / EYE ZOVI = ABS (ZOVERI) IF( TLOADS.EQ.0 .OR. FLAG ) GO TO 207 J = 98 IF( NTYPE .EQ. 4 ) J = 128 IF( N1 .EQ. 1 ) GO TO 205 C FF = TI(K1+5) - TI(1) SDELTA(1) = (EST(JST+1)*FF + TI(2)*STRES(I))/EYE SDELTA(2) = (EST(JST+2)*FF + TI(3)*STRES(I))/EYE SDELTA(3) = (EST(JST+3)*FF + TI(4)*STRES(I))/EYE GO TO 210 C 205 FF = (TI(K1+3) - STRES(I)*TI(2) - TI(1)) / EYE SDELTA(1) = EST(JST+1)*FF SDELTA(2) = EST(JST+2)*FF SDELTA(3) = EST(JST+3)*FF GO TO 210 C 207 SDELTA(1) = 0.0 SDELTA(2) = 0.0 SDELTA(3) = 0.0 210 CONTINUE STRES(I+1) = FORVEC(2) * ZOVERI - SDELTA(1) STRES(I+2) = FORVEC(3) * ZOVERI - SDELTA(2) STRES(I+3) = FORVEC(4) * ZOVERI - SDELTA(3) CFRVEC(K ) = CFRVEC(2) * ZOVI CFRVEC(K+1) = CFRVEC(3) * ZOVI CFRVEC(K+2) = CFRVEC(4) * ZOVI C C PRINCIPAL STRESSES AND ANGLE OF ACTION PHI TEMP = STRES(I+1) - STRES(I+2) STRES(I+7) = SQRT( (TEMP/2.0E0)**2 + STRES(I+3)**2 ) DELTA = (STRES(I + 1) + STRES(I + 2) ) / 2.0E0 STRES(I+5) = DELTA + STRES(I+7) STRES(I+6) = DELTA - STRES(I+7) DELTA = 2.0E0 * STRES(I+3) IF( ABS(DELTA) .LT. 1.0E-15 .AND. ABS(TEMP) .LT. 1.0E-15)GO TO 101 STRES(I+4) = ATAN2( DELTA,TEMP ) * 28.6478898E0 GO TO 100 101 STRES(I+4) = 0.0E0 100 IF( I .EQ. 11 ) GO TO 111 I = 11 K1 = 1 K = 10 GO TO 200 111 STRES( 1) = EST(1) C C ABOVE COMPLETES 2 VECTORS EACH WITH... C C ELEM ID, Z, SIGMA X, SIGMA Y, SIGMA XY, PHI, SIG 1, SIG 2, TAU-MAX C C STRESSES AND FORCES COMPLETE C C C ADDITON TO ELIMINATE 2ND ELEMENT ID IN OUTPUT C DO 5000 I = 10,17 5000 STRES(I) = STRES(I+1) C C . STRESS CHECK... C IF (NCHK.LE.0) GO TO 350 CFRVEC(1) = EST(1) K = 0 C C . FORCES... CALL SDRCHK (FORVEC(2),CFRVEC(2),5,K) C C . STRESSES... CALL SDRCHK (STRES(3),CFRVEC(7),3,K) CALL SDRCHK (STRES(11),CFRVEC(10),3,K) IF (K.EQ.0) GO TO 350 C C . LIMITS EXCEEDED... J = 0 ISTYP(1) = TR IF (IELTYP.EQ.15) ISTYP(1) = QD ISTYP(2) = PLT IF (IELTYP.EQ.7) ISTYP(2) = BSC C IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND. 1 LLD .EQ.ILD .AND. FRLAST(2).EQ.FRTMEI(2) ) GO TO 320 C LSUB = ISUB LLD = ILD FRLAST(1) = FRTMEI(1) FRLAST(2) = FRTMEI(2) J = 2 CALL PAGE1 300 CALL SD2RHD (ISHED,J) LINE = LINE + 1 WRITE(NOUT,310) 310 FORMAT (7X,4HTYPE,5X,3HEID,5X,2HMX,5X,2HMY,4X,3HMXY,5X,2HVX,5X, 1 2HVY,4X,3HSX1,4X,3HSY1,3X,4HSXY1,4X,3HSX2,4X,3HSY2,3X,4HSXY2) GO TO 330 C 320 IF (EJECT(2).NE.0) GO TO 300 330 WRITE(NOUT,340) ISTYP,NELID,(CFRVEC(I),I=2,12) 340 FORMAT (1H0,4X,A4,A3,I7,11F7.1) C 350 CONTINUE RETURN END ================================================ FILE: mis/scalar.f ================================================ SUBROUTINE SCALAR C C CONVERTS MATRIX ELEMENT TO PARAMETER C C SCALAR MTX//C,N,ROW/C,N,COL/V,N,RSP/V,N,RDP/V,N,SPLX/V,N,DPLX $ C C INPUT GINO FILE C MTX = ANY MATRIX, S.P. OR D.P.; REAL OR COMPLEX C OUTPUT GINO FILE C NONE C INPUT PARAMETERS C ROW, COL = ROW AND COLUMN OF MTX (DEFAULT ARE 1,1) C OUTPUT PARAMETERS C RSP = VALUE OF MTX(ROW,COL), REAL SINGLE PRECISION C RDP = VALUE OF MTX(ROW,COL), REAL DOUBLE PRECISION C SPLX = VALUE OF MTX(ROW,COL), S.P. COMPLEX C DPLX = VALUE OF MTX(ROW,COL), D.P. COMPLEX C C ORIGINALY WRITTEN BY R. MITCHELL, GSFC, NOV. 1972 C C COMPLETELY REWRITTEN BY G.CHAN/UNISYS IN JUNE 1988, SUCH THAT THE C OUTPUT PARAMETERS ARE SAVED CORRECTLY ACCORDING TO THEIR PRECISION C TYPES. (THE PRTPARM MODULE WILL BE ABLE TO PRINT THEM OUT C CORRECTLY.) PLUS IMPROVED MESSAGES (WHICH CAN BE SUPPRESSED BY C DIAG 37) C IMPLICIT INTEGER (A-Z) LOGICAL NOPRT INTEGER NAME(2),IA(7),FNM(2),PNM(2) REAL RSP,SPLX,A,VPS(1),SP(4) DOUBLE PRECISION DA(2),RDP,DPLX(2),DP(2) CHARACTER UFM*23,UWM*25,UIM*29,TYPE(4)*10 COMMON /XMSSG / UFM,UWM,UIM COMMON /XVPS / IVPS(1) COMMON /SYSTEM/ SYSBUF,NOUT COMMON /ZNTPKX/ A(4),II,EOL,EOR COMMON /ZZZZZZ/ CORE(1) COMMON /BLANK / BK(1),ROW,COL,RSP,R2(2),SPLX(2),D4(4) EQUIVALENCE (R2(1),RDP),(D4(1),DPLX(1)),(IA(2),NCOL), 1 (IA(3),NROW),(IA(4),FORM),(IA(5),PREC), 2 (DA(1),A(1)),(DP(1),SP(1)),(VPS(1),IVPS(1)) DATA IN1,NAME/ 101, 4HSCAL,4HAR / , FIRST / 12 / DATA TYPE / 'S.P. REAL ' , 'D.P. REAL ' , 1 'S.P. CMPLX' , 'D.P. CMPLX' / C C SUPPRESS ALL SCALAR MESSAGES IF DIAG 37 IS ON C CALL SSWTCH (37,I) NOPRT = I .EQ. 1 C C MOVE VARIALBES IN /BLANK/ BY ONE WORD TO GET BY WORD BOUNDARY C ALIGNMENT SITUATION C J = 12 DO 10 I = 1,11 BK(J) = BK(J-1) 10 J = J - 1 C C INITIALIZATION C LCORE = KORSZ(CORE) IBUF = LCORE - SYSBUF + 1 IF (IBUF .LT. 1) GO TO 400 RSP = 0. SPLX(1) = 0. SPLX(2) = 0. RDP = 0.D0 DPLX(1) = 0.D0 DPLX(2) = 0.D0 DP(1) = 0.D0 DP(2) = 0.D0 CALL FNAME (IN1,FNM) CALL PAGE2 (FIRST) FIRST = 3 C C GET STATUS OF INPUT MATRIX C CHECK FOR PURGED INPUT OR OUT OF RANGE INPUT PARAMETERS C IA(1) = IN1 CALL RDTRL (IA) IF (IA(1).LT. 0) GO TO 410 IF (ROW .GT. NROW) GO TO 420 C GO TO (20,20,40,60,70,20,50,30), FORM C SQUARE, RECTANGULAR OR SYMMETRIC MATRIX C 20 IF (COL .GT. NCOL) GO TO 420 GO TO 100 C C IDENTITY MATRIX C 30 IF (ROW .NE. COL) GO TO 200 RSP = 1.0 RDP = 1.D0 SPLX(1) = 1. DPLX(1) = 1.D0 GO TO 200 C C DIAGONAL MATRIX C 40 IF (ROW .NE. COL) GO TO 200 IF (COL .GT. NROW) GO TO 420 C SET COL TO 1 FOR SPECIAL DIAGONAL FORMAT COL = 1 GO TO 100 C C ROW VECTOR C SWITCH ROW AND COLUMN FOR PROPER INDEXING C 50 ROW = COL COL = 1 GO TO 100 C C LOWER TRIANGULAR MATRIX (UPPER HALF= 0) C 60 IF (COL-ROW) 100,100,200 C C UPPER TRIANGULAR MATRIX (LOWER HALF= 0) C 70 IF (ROW-COL) 100,100,200 C C OPEN INPUT FILE AND SKIP HEADER RECORD AND UNINTERSTING COLUMNS C 100 CALL OPEN (*410,IN1,CORE(IBUF),0) CALL SKPREC (IN1,COL) C C READ AND SEARCH COLUMN CONTAINING DESIRED ELEMENT. C RECALL THAT DEFAULT VALUE WAS SET TO ZERO C CALL INTPK (*200,IN1,0,PREC,0) C C FETCH ONE ELEMENT C CHECK FOR DESIRED ELEMENT C IF INDEX HIGHER, IT MEANS ELEMENT WAS 0. C 110 CALL ZNTPKI IF (II-ROW) 120,130,200 C C CHECK FOR LAST NON-ZERO ELEMENT IN COLUMN. C 120 IF (EOL) 110,110,200 C C MOVE VALUES TO OUTPUT PARAMETER AREA. C CHECK PRECISION OF INPUT VALUE. C 130 GO TO (140,150,170,180), PREC C 140 RSP = A(1) RDP = DBLE(RSP) GO TO 160 C 150 RDP = DA(1) RSP = SNGL(RDP) 160 SPLX(1) = RSP DPLX(1) = RDP GO TO 200 C 170 SPLX(1) = A(1) SPLX(2) = A(2) DPLX(1) = DBLE(SPLX(1)) DPLX(2) = DBLE(SPLX(2)) GO TO 190 C 180 DPLX(1) = DA(1) DPLX(2) = DA(2) SPLX(1) = SNGL(DPLX(1)) SPLX(2) = SNGL(DPLX(2)) 190 RSP = 0.0 RDP = 0.D0 C C MOVE VALUES TO OUTPUT PARAMETERS AS REQUESTED BY USER, AND C SAVE PARAMETERS C 200 IF (NOPRT) GO TO 215 CALL PAGE2 (3) WRITE (NOUT,210) UIM 210 FORMAT (A29,' FROM SCALAR MODULE -', /5X, 1 '(ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37)') 215 CALL FNDPAR (-3,J) IF (J .LE. 0) GO TO 260 PNM(1) = IVPS(J-3) PNM(2) = IVPS(J-2) IF (PREC .GE. 3) GO TO 240 VPS(J) = RSP IF (NOPRT) GO TO 260 WRITE (NOUT,220) RSP,PNM 220 FORMAT (73X,E15.8,4H = ,2A4) WRITE (NOUT,230) ROW,COL,TYPE(PREC),FNM 230 FORMAT (1H+,4X,'ELEMENT (',I5,'-ROW,',I5,'-COL) OF ',A10,' INPUT', 1 ' FILE ',2A4,2H =) GO TO 260 240 WRITE (NOUT,250) UWM,PNM 250 FORMAT (A25,' - INVALID OUTPUT REQUEST.', /5X,'ORIG. ELEM. IN ', 1 'COMPLEX FORM. OUTPUT PARAMETER ',2A4,' NOT SAVED)',/) 260 CALL FNDPAR (-4,J) IF (J .LE. 0) GO TO 290 PNM(1) = IVPS(J-3) PNM(2) = IVPS(J-2) IF (PREC .GE. 3) GO TO 280 DP(1) = RDP VPS(J ) = SP(1) VPS(J+1) = SP(2) IF (NOPRT) GO TO 290 WRITE (NOUT,270) RDP,PNM 270 FORMAT (73X,D15.8,4H = ,2A4) WRITE (NOUT,230) ROW,COL,TYPE(PREC),FNM GO TO 290 280 WRITE (NOUT,250) UWM,PNM 290 CALL FNDPAR (-5,J) IF (J .LE. 0) GO TO 310 VPS(J ) = SPLX(1) VPS(J+1) = SPLX(2) PNM(1) = IVPS(J-3) PNM(2) = IVPS(J-2) IF (NOPRT) GO TO 310 WRITE (NOUT,300) SPLX,PNM 300 FORMAT (73X,1H(,E15.8,1H,,E15.8,1H),4H = ,2A4) WRITE (NOUT,230) ROW,COL,TYPE(PREC),FNM 310 CALL FNDPAR (-6,J) IF (J .LE. 0) GO TO 330 DP(1) = DPLX(1) DP(2) = DPLX(2) VPS(J ) = SP(1) VPS(J+1) = SP(2) VPS(J+2) = SP(3) VPS(J+3) = SP(4) PNM(1) = IVPS(J-3) PNM(2) = IVPS(J-2) IF (NOPRT) GO TO 330 WRITE (NOUT,320) DPLX,PNM 320 FORMAT (73X,1H(,D15.8,1H,,D15.8,1H),4H = ,2A4) WRITE (NOUT,230) ROW,COL,TYPE(PREC),FNM C C CLOSE INPUT UNIT AND RETURN C 330 CALL CLOSE (IN1,1) RETURN C C ERROR MESSAGES, SET THEM ALL TO NON-FATAL C C NOT ENOUGH CORE FOR GINO BUFFER C 400 J = 8 GO TO 430 C C INPUT FILE ERROR C 410 J = 1 GO TO 430 C C INVALID ROW OR COLUMN NUMBER C 420 J = 7 C 430 CALL MESAGE (J,IN1,NAME) RETURN C END ================================================ FILE: mis/scaled.f ================================================ SUBROUTINE SCALED (TYPE,EMORD) C C THIS ROUTINE PROCESSES CELAS, CDAMP, AND CMASS ELEMENTS. C C TYPE - DENOTES FORM OF EST DATA. IE CELAS1,CELAS2,ETC. C EMORD - DENOTES MATRIX 1 = CELAS = STIFFNESS MATRIX, C 2 = CMASS = MASS MATRIX, C 3 = CDAMP = DAMPING MATRIX C C EST FOR ELAS ELEMENTS C C TYPE TYPE TYPE TYPE C CELAS1 CELAS2 CELAS3 CELAS4 C ------ ---- ------ ---- ------ ---- ------ ---- C ECPT(1) IELID I IELID I IELID I IELID I C ECPT(2) IGP1 I K R IS1 I K R C ECPT(3) IGP2 I IGP1 I IS2 I IS1 I C ECPT(4) IC1 I IGP2 I K R IS2 I C ECPT(5) IC2 I IC1 I GSUBE R C ECPT(6) K R IC2 I S R C ECPT(7) GSUBE R GSUBE R C ECPT(8) S R S R C LOGICAL NOGO INTEGER TYPE,EMORD,EID,ISIL(2),ICOMP(2),GPT(4),CPT(2), 1 KPT(4),GSPT(4),CODE,IEST(1),DICT(7),GSUBE,ELID, 2 ESTID DOUBLE PRECISION DZ(16) DIMENSION Z(16) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /EMGEST/ EST(100) COMMON /EMGPRM/ DUMY(15),IMAT(3),IPREC,NOGO COMMON /SYSTEM/ KSYSTM(65) COMMON /EMGDIC/ DUM2(2),NLOCS,ELID,ESTID EQUIVALENCE (KSYSTM(2),IOUTPT),(Z(1),DZ(1)),(IEST(1),EST(1)) DATA GPT / 2, 3, 2, 3 /, CPT / 4, 5 /, KPT /6, 2, 4, 2 / DATA GSPT / 7, 7, 5, 0 / C C TEST IF MATRIX TO BE PRODUCED IS REQUESTED C IF (IMAT(EMORD) .EQ. 0) RETURN C C MOVE EST DATA TO LOCAL ARRAYS. LOCATIONS ARE GIVEN BY DATA // C EID = IEST(1) IP = KPT(TYPE) Z(1) = EST(IP) GSUBE = 0 ICOMP(1)= 0 ICOMP(2)= 0 DICT(2) = 1 NGRIDS = 2 IP = GPT(TYPE) ISIL(1) = IEST(IP) ISIL(2) = IEST(IP+1) IF (TYPE .GE. 3) GO TO 10 IP = CPT(TYPE) IF (IEST(IP ) .NE. 0) ICOMP(1) = IEST(IP ) - 1 IF (IEST(IP+1) .NE. 0) ICOMP(2) = IEST(IP+1) - 1 C C IF ONE SIL IS ZERO INSURE THAT IT IS THE SECOND. C IF BOTH SILS ARE NON-ZERO MAKE SURE HIGHER OF TWO IS SECOND. C 10 IF (ISIL(2) .EQ. 0) GO TO 5 IF (ISIL(1) .EQ. 0) GO TO 4 IF (ISIL(1) .LE. ISIL(2)) GO TO 5 C C SWITCH SILS AND COMPS C 4 IP = ISIL(2) ISIL(2) = ISIL(1) ISIL(1) = IP IP = ICOMP(2) ICOMP(2)= ICOMP(1) ICOMP(1)= IP 5 IF (ISIL(2) .GT. 0) GO TO 20 C C IF THE SECOND SIL EQUALS ZERO THE ELEMENT IS GROUNDED C ONLY A SINGLE MATRIX TERM IS PRODUCED C NGRIDS = 1 DICT(2)= 1 NTERMS = 1 CODE = 2**ICOMP(1) NCOL = 1 GO TO 80 C 20 IF (ISIL(2) .NE. ISIL(1)) GO TO 30 C C IF THE ELEMENT CONNECTS TWO COMPONENTS OF THE SAME POINT IT C MUST HAVE SPECIAL TREATMENT C IF (ICOMP(2) .EQ. ICOMP(1)) GO TO 110 C C IN THE GENERAL CASE, THE CONNECTED COMPONENTS MAY BE THE SAME C AND THE MATRIX IS A 2 BY 2. IF THE COMPONENTS ARE DIFFERENT C THE MATRIX WILL BE A 4 BY 4 WITH ADDITIONAL ZEROS. C GO TO 40 30 IF (ICOMP(1) .EQ. ICOMP(2)) GO TO 70 C 40 NTERMS= 16 CODE = 2**ICOMP(1) + 2**ICOMP(2) NCOL = 4 DO 50 I = 2,16 Z( I) = 0.0 50 CONTINUE IF (ICOMP(2) .LT. ICOMP(1)) GO TO 60 Z( 4) =-Z(1) Z(13) =-Z(1) Z(16) = Z(1) IF (ISIL(1) .NE. ISIL(2)) GO TO 80 Z( 2) = Z( 4) Z( 5) = Z(13) Z( 6) = Z(16) Z( 4) = 0.0 Z(13) = 0.0 Z(16) = 0.0 GO TO 80 60 Z( 6) = Z(1) Z( 7) =-Z(1) Z(10) =-Z(1) Z(11) = Z(1) Z( 1) = 0.0 IF (ISIL(1) .NE. ISIL(2)) GO TO 80 Z( 1) = Z(11) Z( 2) = Z(10) Z( 5) = Z( 7) Z( 7) = 0.0 Z(10) = 0.0 Z(11) = 0.0 GO TO 80 C C COMPONENTS ARE THE SAME FOR BOTH POINTS C 70 NTERMS= 4 NCOL = 2 CODE = 2**ICOMP(1) Z(2) =-Z(1) Z(3) =-Z(1) Z(4) = Z(1) C C OUTPUT THE MATRIX HERE C 80 DICT(1) = ESTID DICT(3) = NCOL DICT(4) = CODE DICT(5) = 0 IPG = GSPT(TYPE) C C STRUCTURAL DAMPING FOR STIIFNESS MATRICES IS INSERTED IN DICT C IF (EMORD.EQ.1 .AND. TYPE.LE.3) DICT(5) = IEST(IPG) IF (IPREC .EQ. 1) GO TO 100 I = NTERMS 90 DZ(I) = Z(I) I = I - 1 IF (I .GT. 0) GO TO 90 100 CALL EMGOUT (Z,DZ,NTERMS,1,DICT,EMORD,IPREC) RETURN C 110 WRITE (IOUTPT,120) UWM,EID 120 FORMAT (A25,' 3120, IMPROPER CONNECTION ON CELAS ELEMENT',I9) RETURN END ================================================ FILE: mis/scalex.f ================================================ SUBROUTINE SCALEX(ILVAL,CODE,L) INTEGER L(1),CODE,EXPND(6) DO 101 I=1,6 101 L(I)=0 IF(CODE) 102,102,103 102 L(1) = ILVAL GO TO 110 103 ID=CODE DO 104 I=1,6 INV=7-I EXPND(INV)=MOD(ID,10) 104 ID=ID/10 J=0 DO 107 I=1,6 IF(EXPND(I).EQ.0) GO TO 107 IF(I.LT.2) GO TO 106 II=I-1 DO 105 K=1,II IF(EXPND(K).EQ.EXPND(I)) GO TO 107 105 CONTINUE 106 J=J+1 L(J)=EXPND(I) 107 CONTINUE I=0 108 I=I+1 L(I)=ILVAL+L(I)-1 IF(I-J) 108,110,110 110 RETURN END ================================================ FILE: mis/scan.f ================================================ SUBROUTINE SCAN C C THIS IS THE MAIN DRIVER FOR THE OUTPUT SCAN MODULE - SCAN C C THIS SCAN MODULE CAN BE CALLED DIRECTLY FROM ALL RIGID FORMATS, OR C BY USER DMAP ALTER. THE CALLING INSTRUCTIONS ARE C C (THREE INPUT FILES IF CALLED BY RIGID FORMAT VIA SCAN INPUT CARDS) C (1) FORCE AND STRESS SCAN - C SCAN CASECC,OESI,OEFI/OESFI/*RF* $ (WHERE I=1, OR 2) C OR C SCAN CASECC,OESI,OEFI/OESFI/*OLI* $ FOR ON-LINE SCAN C C . IF INPUT FILES ARE OES1, OEF1, SORT1 TYPE DATA ARE SCANNED C . IF INPUT FILES ARE OES2, OEF2, SORT2 TYPE DATA ARE SCANNED C C (ONE INPUT FILE ONLY IF CALLED BY USER VIA DMAP ALTER) C (2) STRESS SCAN - C SCAN, ,OESI, /OESFI/C,N,ELEMENT/C,N,ICOMP/C,N,NTOP/C,N,AMAX/ C C,N,AMIN/C,N,IBEG/C,N,IEND/C,N,ICOMPX $ C OR (3) FORCE SCAN - C SCAN, ,,OEFI /OESFI/C,N,ELEMENT/C,N,ICOMP/C,N,NTOP/C,N,AMAX/ C C,N,AMIN/C,N,IBEG/C,N,IEND/C,N,ICOMPX $ C C . FOR SORT1 TYPE DATA, OESI AND OEFI ARE OES1 AND OEF1, AND C IBEG AND IEND ARE RANGE OF ELEMENT IDS TO BE SCANNED C . FOR SORT2 TYPE DATA, OESI AND OEFI ARE OES2 AND OEF2, AND C IBEG AND IEND ARE RANGE OF SUBCASE IDS TO BE SCANNED C . IF IBEG AND IEND ARE NOT GIVEN, ALL IDS IMPLY C C . OESB1, OESC1, OEFB1, AND OEFC1 CAN BE USED IN LIEU OF OES1 C AND OEF1. SIMILARLY, OESC2 AND OEFC2 FOR OES2 AND OEF2 C C INPUT FILES - CASECC, OES1, OEF1, (OR OES2, OEF2) C (OESB1, OESC1, OEFB1, OEFC1, OESB2, OEFB2 CAN BE C USED INSTEAD) C OUTPUT FILE - OESF1 (OR OESF2) C SCRATCH FILE - SCR1 C C THIS SCAN MODULE SHOULD BE FOLLOWED BY OFP TO PRINT SCAN RESULTS C OFP OESFI,,,,, //S,N,CARDNO $ C C PARAMETERS - C C ELEMENT - ELEMENT NAME IN BCD. E.G. BAR, CBAR, QUAD2, ETC. C ICOMP - THE OUTPUT FIELD NO. (BY COLUMN, 1 THRU 31) OF C OUTPUT LISTING. C ICOMPX - OUTPUT FIELD NO. CONTINUATION (FROM 32 THRU 62) C NTOP - TOP N VALUES TO BE OUTPUT. DEFAULT=20 C AMAX-AMIN - SCAN VALUES OUTSIDE THIS MAX-MIN RANGE, DEFAULT=0. C IBEG,IEND - SEE EXPLANATION ABOVE C C DEFINITION OF SOME LOCAL VARIABLES C C DEBUG - USED FOR LOCAL DEBUG C S OR F - STRESS OR FORCE SCAN FLAG C NSCAN - NO. OF SCAN INPUT CARDS IN CASECC C SUBC - CURRENT SUBCASE ID C NZ - TOP OF OPEN CORE, JUST BELOW GINO BUFFERS C LCORE - AVAILABLE CORE FOR STRSCN ROUTINE C IOPEN - INPUT FILE STATUS FLAG, .T. FOR OPEN, .F. NOT C JOPEN - OUTPUT FILE STATUS FLAG, .T. FOR OPEN, .F. NOT C KOPEN - SCR1 FILE STATUS FLAG, .T. FOR OPEN, .F. NOT C LOPEN - CASECC FILE STATUS FLAG, .T. FOR OPEN, .F. NOT C ISET - SCAN ONLY BY THE SPECIFIED SET OF ELEM. IDS C - ALL IS IMPLIED IF ISET IS NOT GIVEN C - USED ONLY IF SCAN IS CALLED FROM RIGID FORMAT C IDUPL,INC - SET UP COMPONENT FIELDS TO BE REPEATEDLY SCANNED C IDUPL TIMES, WITH FIELD INCREMENT BY INC (RF ONLY) C LBEG,LEND - A LIST OF TO-BE-SCANNED ELEMENT IDS, STORED IN C Z(LBEG) THRU Z(LEND). C - NO SUCH LIST EXISTS IF LBEG.GT.LEND OR LBEG=LEND=0 C IOPT - DATA SCAN BY AMAX AND AMIN IF IOPT=1, BY NTOP IF 2 C ISORT - SET TO 1 (BY STRSCN) IF DATA TYPE IS IN SORT1 C FORMAT, AND SET TO 2 IF SORT2 C C WRITTEN BY G.CHAN/SPERRY OCTOBER 1984 C C THIS ROUTINE OPENS AND CLOSES ALL INPUT AND OUTPUT FILES. C IT SETS UP THE SCANNING PARAMETERS AND CALL STRSCN TO SCAN THE C OUTPUT STRESS OR FORCE DATA C C THE SCAN INPUT CARDS OPERATE VERY SIMILARY TO THE ELEMENT STRESS C OR FORCE CARDS. THEY CAN BE PLACED ABOVE ALL SUBCASES, OR INSIDE C ANY SUBCASE LEVEL, OR BOTH C HOWEVER, UNLIKE THE STRESS OR FORCE CARDS, MULTI-SCAN CARDS ARE C ALLOWED, AND THEY DO NOT EXCLUDE ONE ANOTHER. C C MODIFIED IN 10/1989, TO ALLOW SETS TO BE DEFINED BEFORE OR AFTER C SCAN CARDS IN CASE CONTROL SECTION C (CURRENTLY, THIS MODIFICATION IS OK, BUT IFP1/IFP1H DO NOT ALLOW C SET TO BE DEFINED AFTER SCAN. IN FACT, IFP1 DOES NOT ALLOW SET TO C BE DEFINED AFTER ANY GUY WHO USES THE SET) C LOGICAL DEBUG, IOPEN, JOPEN, KOPEN, LOPEN CWKBI 1/4/94 SPR93010 & 93011 LOGICAL STRESS, FORCE, LAYERD CWKBI 1/4/94 SPR93010 & 93011 INTEGER QUAD4, TRIA3 CRLBR 12/29/93 SPR 93010 & 93011 C INTEGER CASECC, OESI, OEFI, OESFI, SCR1, INTEGER CASECC, OESI(2), OEFI(2), OESFI(2), SCR1, 1 OUFILE, FILE, SORF, Z(166), NAM(2), 2 E, EOR, SUBC, OSUBC, OEL CRLBNB 12/29/93 SPR 93010 & 93011 INTEGER JELT(2) CRLBNE 12/29/93 SPR 93010 & 93011 CHARACTER UFM*23, UWM*25, UIM*29, SFM*25, SWM*27 COMMON /XMSSG / UFM, UWM, UIM, SFM, SWM COMMON /BLANK / IELT(2), ICOMP, NTOP, AMAX, AMIN, 1 IBEG, IEND, ICOMPX COMMON /SYSTEM/ IBUF, NOUT, SKP(83), INTRA COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW, 1 NOREW, EOFNRW COMMON /GPTA1 / NELEM, LAST, INCR, E(1) COMMON /XSCANX/ INFILE, OUFILE, LCORE, LBEG, LEND, 1 IOPEN, JOPEN, IEL, IOPT, ISET, 2 ISORT, ITRL3, SUBC, OSUBC, OEL, CWKBR 1/4/94 SPR93010 & 93011 3 DEBUG 3 DEBUG, LLOOP, QUAD4, TRIA3, STRESS, 4 FORCE, LAYERD COMMON /ZZZZZZ/ CORE(1) EQUIVALENCE (IMAX,AMAX), (IMIN,AMIN), 1 (IDUPL,IBEG), (INC,IEND), 2 (CORE(1),Z(1)) CRLBDB 12/29/93 SPR 93010 & 93011 C DATA CASECC, OESI, OEFI, OESFI, SCR1 / C 1 101, 102, 103, 201, 301 / CRLBDE 12/29/93 SPR 93010 & 93011 CRLBNB 12/29/93 SPR 93010 & 93011 DATA CASECC, OESI(1), OEFI(1), OESI(2), OEFI(2), 1 OESFI(1), OESFI(2), SCR1 / 2 101, 102, 103, 104, 105, 3 201, 202, 301 / CRLBNE 12/29/93 SPR 93010 & 93011 DATA NAM, LLC, EOR, IRF / 1 4HSCAN, 4H , 4HC , 1, 4HRF / DATA IOL1, IOL2 / 1 4HOL1 , 4HOL2 / C DEBUG = .FALSE. CWKBNB 1/4/94 SPR93011 & 93010 QUAD4 = 0 TRIA3 = 0 C C ALLOCATE OPEN CORE C CRLBNB 12/29/93 SPR 93010 & 93011 LLOOP = 1 JELT(1) = IELT(1) JELT(2) = IELT(2) 10 CONTINUE CRLBNB 12/29/93 SPR 93010 & 93011 NZ = KORSZ(Z) IBUF1 = NZ - IBUF + 1 IBUF2 = IBUF1 - IBUF IBUF3 = IBUF2 - IBUF NZ = IBUF3 - 1 LCORE = IBUF2 - 1 IOPEN =.FALSE. JOPEN =.FALSE. KOPEN =.FALSE. LOPEN =.FALSE. C C OPEN CASECC AND CHECK SCAN DATA C ISET = 0 IF (IELT(1) .NE. IRF) ISET = -2 IF (IELT(1).EQ.IOL1 .OR. IELT(1).EQ.IOL2) ISET = -3 IF (ISET .EQ. -2) GO TO 40 FILE = CASECC CALL OPEN (*310,CASECC,Z(IBUF1),RDREW) LOPEN = .TRUE. CALL FWDREC (*320,CASECC) IF (ISET .EQ. -3) GO TO 40 30 CALL READ (*80,*80,CASECC,Z(1),200,1,L) LENCC = Z(166) NSCAN = Z(LENCC-1) IF (NSCAN .EQ. 0) GO TO 30 C C CHECK THE PRESENCE OF STRESS AND/OR FORCE FILE. C QUIT IF BOTH ARE PURGED C 40 IOES = 1 IOEF = 1 CRLBDB 12/29/93 SPR 93010 & 93011 C Z( 1) = OESI C Z(11) = OEFI CRLBDE 12/29/93 SPR 93010 & 93011 CRLBNB 12/29/93 SPR 93010 & 93011 Z( 1) = OESI(LLOOP) Z(11) = OEFI(LLOOP) CRLBNE 12/29/93 SPR 93010 & 93011 CALL RDTRL (Z( 1)) CALL RDTRL (Z(11)) IF (Z( 1) .LT. 0) IOES = 0 IF (Z(11) .LT. 0) IOEF = 0 IF (IOES+IOEF.EQ.0 .AND. ISET.NE.-3) GO TO 300 C C OPEN OUTPUT FILE OESFI C CRLBDB 12/29/93 SPR 93010 & 93011 C FILE = OESFI C OUFILE = OESFI C CALL FNAME (OESFI,Z) C CALL OPEN (*310,OESFI,Z(IBUF2),WRTREW) C CALL WRITE (OESFI,Z,2,EOR) CRLBDE 12/29/93 SPR 93010 & 93011 CRLBNB 12/29/93 SPR 93010 & 93011 FILE = OESFI(LLOOP) OUFILE = OESFI(LLOOP) CALL FNAME (OUFILE,Z) CALL OPEN (*310,OUFILE,Z(IBUF2),WRTREW) CALL WRITE (OUFILE,Z,2,EOR) CRLBNE 12/29/93 SPR 93010 & 93011 JOPEN =.TRUE. ITRL3 = 0 LX =-1 IF (IELT(1) .EQ. IOL2) LX = -2 IF (ISET .EQ. -3) CALL ONLINS (*280,LX) IF (ISET .NE. -2) GO TO 90 C C SCAN CALLED BY USER VIA DMAP ALTER (ISET=-2) C ============================================ C LS = LCORE LBEG = 0 LEND = 0 C C CHECK USER DMAP ERROR, SET IOPT FLAG, AND INITIALIZE ISCAN ARRAY C FOR COMPONENT SPECIFIED. C IF (IOES+IOEF .GT. 1) GO TO 400 IF (AMIN .GT. AMAX) GO TO 410 IF (ICOMP .LE. 1) GO TO 420 IF ((AMAX.EQ.0. .AND. AMIN.EQ.0.) .AND. NTOP.EQ.0) GO TO 430 IF ((AMAX.NE.0. .OR. AMIN.NE.0.) .AND. NTOP.NE.0) GO TO 440 IF ((IBEG.EQ.0 .AND. IEND.NE.0) .OR. IBEG.GT.IEND .OR. 1 (IBEG.NE.0 .AND. IEND.EQ.0)) GO TO 460 IF ( IBEG.EQ.0 .AND. IEND.EQ.0 ) IBEG = -1 IOPT = 1 IF (NTOP .GT. 0) IOPT = 2 C C DETERMINE ELEMENT TYPE, DROP THE FIRST LETTER C IF NECESSARY C Z(1) = IRF Z(2) = IRF IF (KHRFN2(IELT(1),1,1) .NE. LLC) GO TO 50 Z(1) = KHRFN3(NAM(2),IELT(1),1,1) Z(1) = KHRFN1(Z(1),4,IELT(2),1 ) Z(2) = KHRFN3(NAM(2),IELT(2),1,1) 50 DO 60 I = 1,LAST,INCR IF (IELT(1).EQ.E(I) .AND. IELT(2).EQ.E(I+1)) GO TO 70 IF ( Z(1).EQ.E(I) .AND. Z(2).EQ.E(I+1)) GO TO 70 60 CONTINUE GO TO 450 70 IEL = E(I+2) C C SPECIAL HANDLING OF THE QUAD4 AND TRIA3 ELEMENT, STRESS ONLY C (THE 2ND, 3RD, 9TH, AND 13TH WORDS IN OES1/OES1L FILES ARE C NOT PRINTED. THE 9TH AND 13TH WORDS MAY BE BLANKS OR ASTERISKS) C IF ((IEL.NE.64 .AND. IEL.NE.83) .OR. IOES.EQ.0) GO TO 75 CWKBD 1/3/94 SPR93011 & 93011 ICOMP = ICOMP + 2 CWKBD 1/3/94 SPR93010 & 93011 IF (ICOMP .GT. 8) ICOMP = ICOMP + 1 C C OPEN INPUT FILE C CRLBDB 12/29/93 SPR 93010 & 93011 C75 INFILE = OESI C IF (IOES .EQ. 0) INFILE = OEFI CRLBDE 12/29/93 SPR 93010 & 93011 CRLBNB 12/29/93 SPR 93010 & 93011 75 INFILE = OESI(LLOOP) STRESS = .TRUE. FORCE = .FALSE. IF (IOES .NE. 0) GO TO 76 STRESS = .FALSE. FORCE = .TRUE. INFILE = OEFI(LLOOP) CRLBNE 12/29/93 SPR 93010 & 93011 76 FILE = INFILE CALL OPEN (*340,INFILE,Z(IBUF1),RDREW) IOPEN = .TRUE. C C ... NEXT I/O OPERATION ON INFILE WILL BE IN SUBROUTINE STRSCN C C ALL SET TO GO C J = 1 IF (IOES .EQ. 0) J = 2 CALL STRSCN (J) GO TO 280 C 80 CALL CLOSE (CASECC,REW) LOPEN = .FALSE. RETURN C C C SCAN IS CALLED BY RIGID FORMAT (ISET .GE. -1) C OR CALLED BY INTERACTIVE MODE (ISET .EQ. -3) C ============================================= C 90 LS = NZ C C OPEN SCR1 FILE, SEPERATE SCAN DATA FROM SET DATA IN CASECC, AND C SAVE THE COMPLETE SCAN DATA IN SCR1 FILE. C FILE = SCR1 CALL OPEN (*310,SCR1,Z(IBUF3),WRTREW) KOPEN =.TRUE. NSCAN = 0 NCASE = 0 NXX = NZ IF (INTRA .LE. 0) GO TO 95 NXX = 198 L = LX IF (LX .GT. 0) GO TO 110 95 FILE = CASECC CALL REWIND (CASECC) CALL FWDREC (*320,CASECC) C C READ CASECC AND PROCESS ALL SUBCASES C 100 CALL READ (*210,*110,CASECC,Z(1),NXX,1,L) IF (NXX .GE. 200) GO TO 380 110 NCASE = NCASE + 1 LENCC = Z(166) NSCAN = Z(LENCC-1) LSEM = Z(LENCC) SUBC = Z(1) C C PICK UP ALL THE SET ID'S AND THEIR LOCATIONS IN Z ARRAY, Z(L1) C THRU Z(LL). SORT, AND CHECK DUPLICATE C JMP = 0 II = LENCC + LSEM L1 = L + 1 LL = L 115 II = II + JMP IF (II .GE. L) GO TO 120 JMP = Z(II+2) + 2 IF (Z(II+1).GE.10000000 .AND. JMP.EQ.8) GO TO 115 Z(LL+1) = Z(II+1) Z(LL+2) = II LL = LL + 2 GO TO 115 120 LLL1 = LL - L1 + 1 LL2 = LLL1/2 IF (DEBUG) WRITE (NOUT,125) (Z(I),I=L1,LL) 125 FORMAT (' ...SET/@125',/,(10X,I8,' @',I6)) C JMP = 0 II = LENCC + LSEM KK = NZ IF (LL2 .LE. 1) GO TO 140 CALL SORT (0,0,2,1,Z(L1),LLL1) J = L1 + 2 DO 130 I = J,LL,2 IF (Z(I) .EQ. Z(I-2)) WRITE (NOUT,600) UWM,Z(I) 130 CONTINUE C C PROCESS THE SCAN CARDS C C PICK UP SCAN 8 WORD ARRAY, AND PICK UP SET DATA C WRITE TO SCR1 A RECORD (OF EACH SUBCASE) OF THE SCAN INPUT DATA C IN REVERSE ORDER (FIRST SCAN CARD LAST, AS SET UP BY CASECC) C 140 II = II + JMP IF (II .GE. L) GO TO 190 JMP = Z(II+2) + 2 IF (Z(II+1).LT.10000000 .OR. JMP.NE.8) GO TO 140 IE = 0 ISET= Z(II+4) IF (ISET .EQ. -1) GO TO 160 IF (LLL1 .LE. 0) GO TO 470 CALL BISLOC (*470,ISET,Z(L1),2,LL2,I) IB = Z(I+L1) + 2 IE = Z(IB) IF (DEBUG) WRITE (NOUT,145) ISET,I,IB,IE 145 FORMAT (' @145, SET',I8,' FOUND. I,IB,IE =',3I6) KK = KK - IE DO 150 I = 1,IE 150 Z(KK+I) = Z(IB+I) 160 KK = KK - 9 DO 170 I = 1,8 170 Z(KK+I) = Z(II+I) Z(KK+9) = 0 IDUPL = Z(KK+8) IF (IDUPL .EQ. 0) GO TO 180 CWKBD 1/3/94 SPR93010 & 93011 INC = IDUPL/100 CWKBD 1/3/94 SPR93010 & 93011 Z(KK+8) = MOD(IDUPL,100) CWKBNB 1/3/94 SPR93010 & 93011 INC = MOD ( IDUPL, 100 ) Z(KK+8) = IDUPL / 100 CWKBNE 1/3/94 SPR93010 & 93011 Z(KK+9) = INC 180 Z(KK+2) = Z(KK+2) + 1 + IE C C HERE AT THE TAIL END OF OPEN CORE, WE ACCUMULATE ANOTHER RECORD C OF A SCAN DATA SET C WORD 1, 10000000 FOR STRESS, OR 20000000 FOR FORCE C 2, NO. OF WORDS OF THIS DATA SET (SCAN + SET) C (FIRST 2 WORDS NOT INCLUDED) C 3, ELEMENT TYPE NUMERIC CODE C 4, SET-ID, OR -1 C 5, COMPONENT CODE, ICOMP C 6, NTOP, OR AMAX C 7, -1, OR AMIN C 8, COMPONENT - DUPLICATION, OR ZERO C 9, COMPONENT - INCREMENT, OR ZERO C 10-END, SET DATA C REPEAT FOR ANOTHER SCAN CARD C C C SPECIAL HANDLING OF THE QUAD4 AND TRIA3 ELEMENT, STRESS ONLY C (THE 2ND, 3RD, 9TH, AND 13TH WORDS IN OES1/OES1L FILES ARE C NOT PRINTED. THE 9TH AND 13TH WORDS MAY BE BLANKS OR ASTERISKS) CWKBI 12/93 SPR93010 & 93011 C ABOVE IS TRUE ONLY FOR LAMINATED QUAD4 AND TRIA3) C CWKBD 12/31/93 SPR93010 & 93011 C IF ((Z(KK+3).NE.64 .AND. Z(KK+3).NE.83) .OR. Z(KK+1).NE.10000000) IF ((Z(KK+3).NE.64 .AND. Z(KK+3).NE.83) .OR. Z(KK+8).EQ.0) 1 GO TO 140 CWKBDB 1/3/94 SPR93010 & 93011 C Z(KK+5) = Z(KK+5) + 2 C IF (Z(KK+5) .GT. 8) Z(KK+5) = Z(KK+5) + 1 C IF (Z(KK+9) .NE. 0) Z(KK+9) = Z(KK+9) + 2 CWKBDE 1/3/94 SPR93010 & 93011 GO TO 140 C C AT THE END OF EACH SUBCASE, WE COMPUTE THE TOTAL LENGTH OF THIS C SCAN DATA ARRAY, AND WRITE THE ARRAY OUT TO SCR1. ONE RECORD PER C SUBCASE C 190 KK = KK - 2 IF (KK .LT. LL) GO TO 610 IE = NZ - KK Z(KK+1) = SUBC Z(KK+2) = IE - 2 CALL WRITE (SCR1,Z(KK+1),IE,1) L = KK + 1 NN = 200 IF (DEBUG) WRITE (NOUT,200) NN,(Z(J),J=L,NZ) 200 FORMAT (/,11H SCAN/DEBUG,I3, (/2X,13I9)) IF (INTRA.LE.0 .OR. LX.LT.200) GO TO 100 C C THUS, END OF THE PREPARATION PHASE. CLOSE CASECC AND SCR1 C 210 CALL CLOSE (CASECC,REW) CALL CLOSE (SCR1 ,REW) KOPEN =.FALSE. LOPEN =.FALSE. C C NOW, SET UP 2 LOOPS FOR STRESS (10000000) AND FORCE (20000000) C OUTPUT SCAN C SORF = 30000000 220 SORF = SORF - 10000000 IF (DEBUG) WRITE (NOUT,225) SORF 225 FORMAT (///,18H PROCESSING SERIES,I15 /1X,8(4H====),/) IF (IOPEN) CALL CLOSE (INFILE,REW) IOPEN = .FALSE. IF (SORF.EQ.10000000 .AND. IOES.EQ.0) GO TO 220 IF (SORF.EQ.20000000 .AND. IOEF.EQ.0) GO TO 220 IF (SORF .LE. 0) GO TO 280 C C OPEN INPUT FILES C CRLBDB 12/29/93 SPR 93010 & 93011 C INFILE = OESI C IF (SORF .GE. 20000000) INFILE=OEFI CRLBDE 12/29/93 SPR 93010 & 93011 CRLBNB 12/29/93 SPR 93010 & 93011 INFILE = OESI(LLOOP) STRESS = .TRUE. FORCE = .FALSE. IF (SORF .LT. 20000000) GO TO 226 STRESS = .FALSE. FORCE = .TRUE. INFILE=OEFI(LLOOP) CRLBNE 12/29/93 SPR 93010 & 93011 226 FILE = INFILE CALL OPEN (*310,INFILE,Z(IBUF1),RDREW) IOPEN = .TRUE. C ... NEXT I/O OPERATION ON INFILE WILL BE IN SUBROUTINE STRSCN C C NOW, LOAD THE SCAN DATA PREVIOUSLY SAVED IN SCR1, TO THE TAIL END C OF THE OPEN CORE. C ONE OR MORE SCAN CARDS MAY BE PRESENT IN ONE SUBCASE C SET UP POINTERS IN FRONT OF THE SCAN DATA, SO THAT FIRST SCAN C INPUT CARD WILL BE PROCESS FIRST, SECOND CARD SECOND, ETC. C NOTE - USE SUBCASE 1 SCAN DATA IF OUTPUT IS SORT 2 TYPE C (IF SUBCASE 1 DOES NOT HAVE SCAN DATA, USE NEXT SUBCASE) C FILE = SCR1 IF (.NOT.KOPEN) CALL OPEN (*310,SCR1,Z(IBUF3),RDREW) IF ( KOPEN) CALL REWIND (SCR1) KOPEN =.TRUE. ISORT = 0 OSUBC = 0 OEL = 0 C DO 270 II = 1,NCASE IF (ISORT .EQ. 2) GO TO 220 CALL READ (*320,*330,SCR1,Z(1),2,0,L) J = Z(2) IF (J .EQ. 0) GO TO 260 SUBC = Z(1) LS = NZ - J CALL READ (*320,*330,SCR1,Z(LS+1),J,1,L) LE = LS I = LS 230 Z(LS) = I LS = LS - 1 I = I + Z(I+2) + 2 IF (I .LT. NZ) GO TO 230 LCORE = LS J = LS + 1 KK = 230 IF (DEBUG) WRITE (NOUT,200) KK,SUBC,(Z(I),I=J,NZ) C C NOW IS THE TIME TO SET THE SCAN PARAMETERS FOR EACH SCAN CARD C WITHIN A SUBCASE, AND CALL STRSCN TO SCAN THE OUTPUT DATA C I = LS 240 I = I + 1 IF (I .GT. LE) GO TO 270 IB = Z(I) IF (Z(IB+1) .NE. SORF) GO TO 240 JMP = Z(IB+2) IEL = Z(IB+3) C ONLY QUAD4 (=64) AND TRIA3 (=83) ARE VALID FOR LLOOP=2 IF ( LLOOP .EQ. 2 .AND. IEL .NE. 64 .AND. IEL .NE. 83 ) & GO TO 240 ISET = Z(IB+4) ICOMP = Z(IB+5) NTOP = Z(IB+6) IMAX = Z(IB+6) IMIN = Z(IB+7) IDUPL = Z(IB+8) INC = Z(IB+9) IOPT = 1 IF (IMIN .EQ. -1) IOPT = 2 IF (IOPT .NE. 2) NTOP = 0 LBEG = LCORE LEND = LCORE - 1 IF (ISET .EQ. -1) GO TO 250 LBEG = IB + 10 LEND = IB + JMP + 2 250 J = (IEL-1)*INCR IELT(1) = E(J+1) IELT(2) = E(J+2) IF (DEBUG) WRITE (NOUT,255) IELT,(Z(IB+J),J=3,9),IOPT,LBEG,LEND, 1 II,SUBC 255 FORMAT (/5X,16HDEBUG/SCAN255 - ,2A4,/5X,12I9) CALL STRSCN (SORF/10000000) IF (IOPT .LT. 0) GO TO 480 GO TO 240 260 CALL FWDREC (*320,SCR1) 270 CONTINUE C C GO BACK TO PROCESS NEXT INPUT FILE C GO TO 220 C C ALL SCAN DONE. WRITE OUTPUT FILE TRAILERS AND CLOSE ALL FILES C 280 IF (ITRL3 .LE. 0) GO TO 300 CRLBR 12/29/93 SPR 93010 & 93011 C Z(1) = OESFI Z(1) = OESFI(LLOOP) Z(2) = 1 Z(3) = ITRL3 DO 290 I = 4,7 290 Z(I) = 0 CALL WRTTRL (Z(1)) C 300 IF (IOPEN) CALL CLOSE (INFILE,REW) IF (JOPEN) CALL CLOSE (OUFILE,REW) IF (KOPEN) CALL CLOSE (SCR1 ,REW) IF (LOPEN) CALL CLOSE (CASECC,REW) CRLBNE 12/29/93 SPR 93010 & 93011 IF (LLOOP .EQ. 2) GO TO 305 LLOOP = 2 IELT(1) = JELT(1) IELT(2) = JELT(2) GO TO 10 305 CONTINUE IF ( QUAD4 .EQ. -1 ) WRITE ( NOUT, 605 ) 'QUAD4' IF ( TRIA3 .EQ. -1 ) WRITE ( NOUT, 605 ) 'TRIA3' 605 FORMAT(//' SCAN MODULE DID NOT FIND ELEMENT ',A5, & ' IN USER OUTPUT REQUESTS.',/ & ,' POSSIBLY WRONG COMPONENT SPECIFIED FOR LAYERED OR ' & ,'NON-LAYERED CASE',//) CRLBNE 12/29/93 SPR 93010 & 93011 RETURN C C FILE ERRORS C 310 J = -1 GO TO 350 320 J = -2 GO TO 350 330 J = -3 GO TO 350 340 CONTINUE GO TO 70 350 CALL MESAGE (J,FILE,NAM) 380 J = -8 GO TO 350 C C ERROR MESSAGES C 400 WRITE (NOUT,500) GO TO 490 410 WRITE (NOUT,510) GO TO 490 420 WRITE (NOUT,520) GO TO 490 430 WRITE (NOUT,530) GO TO 490 440 WRITE (NOUT,540) GO TO 490 450 WRITE (NOUT,550) IELT GO TO 490 460 WRITE (NOUT,560) SFM,IELT,IBEG,IEND GO TO 490 470 WRITE (NOUT,570) UWM,ISET GO TO 140 480 WRITE (NOUT,580) IOPT 490 WRITE (NOUT,590) SWM GO TO 280 C 500 FORMAT (//5X,48HONLY ONE INPUT FILE ALLOWED FROM SCAN DMAP ALTER) 510 FORMAT (//5X,21HAMAX-AMIN RANGE ERROR) 520 FORMAT (//5X,35HFIELD COMPONENT SPECIFICATION ERROR) 530 FORMAT (//5X,30HNO AMAX-AMIN OR NTOP SPECIFIED) 540 FORMAT (//5X,46HSPECIFY EITHER AMAX-AMIN OR NTOP, BUT NOT BOTH, 1 /5X,21H(NTOP=20 BY DEFAULT)) 550 FORMAT (//5X,22HELEMENT MIS-SPELLED - ,2A4) 560 FORMAT (A25,' - SCANNING ',2A4,' ELEMENT. IBEG-IEND OUT OF RANGE', 1 '. SCAN ABORTED') 570 FORMAT (A25,' FROM SCAN, SET',I9,' NOT FOUND') 580 FORMAT (//5X,44HUSER ERROR. ILLEGAL INPUT FILE SENT TO SCAN,I6) 590 FORMAT (A27,' FROM SCAN. CASE ABORTED ***') 600 FORMAT (A25,' FROM SCAN, DUPLICATE SET',I9) C 610 CALL MESAGE (8,0,NAM) RETURN END ================================================ FILE: mis/scat.f ================================================ SUBROUTINE SCAT (KG,NCON,INV,II3,NORIG) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C THIS ROUTINE USES SCATTER SORT TECHNIQUES FOR EACH GRID POINT C ENCOUNTERED TO DETERMINE WHETHER OR NOT THE POINT HAS BEEN SEEN C BEFORE. IF NOT, INV, NORIG, AND NN ARE UPDATED. C C INV(I,1) CONTAINS AN ORIGINAL GRID POINT NUMBER C INV(I,2) CONTAINS THE INTERNAL NUMBER ASSIGNED TO IT (BEFORE SORT) C DIMENSION KG(1), NORIG(1), INV(II3,2) COMMON /BANDB / DUM3B(3), NGRID COMMON /BANDS / NN, DUM3(3), MAXGRD, MAXDEG, KMOD COMMON /SYSTEM/ ISYS, NOUT C IF (NCON .LT. 1) RETURN DO 50 I = 1,NCON NOLD = KG(I) IF (NOLD .EQ. 0) GO TO 50 LOC = NOLD - 1 20 LOC = MOD(LOC,KMOD) + 1 IF (INV(LOC,1) .NE. 0) GO TO 30 INV(LOC,1) = NOLD NN = NN + 1 IF (NN .GT. MAXGRD) GO TO 60 NORIG(NN) = NOLD INV(LOC,2) = NN GO TO 40 30 IF (INV(LOC,1) .NE. NOLD) GO TO 20 40 KG(I) = INV(LOC,2) 50 CONTINUE RETURN C 60 NGRID = -1 RETURN END ================================================ FILE: mis/sce1.f ================================================ SUBROUTINE SCE1 C C MODULE 2.6 SCE PARTITIONS KNN,MNN,BNN,AND K4NN C C TO ELIMINATE THE EFFECTS OF SINGLE POINT CONSTRAINTS IF US IS NOT C NULL C INTEGER US,USET,BNN,BFF,UN,UF,PVECT COMMON /PATX / N(2),N3,NN(3) DATA UN,UF, US / 1 27,26, 31 / DATA USET , KNN,MNN,BNN,K4NN,KFF,KFS,KSS,MFF,BFF,K4FF,PVECT / 1 101 , 102,103,104,105 ,201,202,203,204,205,206 ,301 / C CALL UPART (USET,PVECT,UN,UF,US) CALL MPART (KNN,KFF,0,KFS,KSS) CALL MPART (MNN,MFF,0,0,0) CALL MPART (BNN,BFF,0,0,0) CALL MPART (K4NN,K4FF,0,0,0) RETURN END ================================================ FILE: mis/scheme.f ================================================ SUBROUTINE SCHEME (IG,INV,II3,INT,ICC,ILD,NORIG,IP,UN,Z) C INTEGER Z(1), SCR1, RD, RDREW, WRT, 1 WRTREW, REW , SUB(2) DIMENSION IG(1), INV(1), INT(1), ICC(1), ILD(1), 1 NORIG(1), IP(1), UN(1) COMMON /BANDA / IBUF1, DUM4A(4), METHOD, ICRIT COMMON /BANDB / NBITIN, KORE, IFL, NGRID, IPASS, 1 NW, KDIM COMMON /BANDD / DUM7D(7), NEQ, NEQR COMMON /BANDS / NN, MM, DUM2(2), MAXGRD, MAXDEG, 1 KMOD, MACH, MINDEG, NEDGE COMMON /GEOMX / GDUM(3), SCR1 COMMON /SYSTEM/ IBUF, NOUT COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW DATA SUB / 4HSCHE,4HME / C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C ZERO OUT CORE SPACE AND SET BANDWIDTH IMPROVEMENT FLAG, JUMP C JUMP = 1, NO IMPROVEMENT OF CRITERION SELECTED C = 0, IMPROVEMENT C DO 10 I = 1,KORE 10 Z(I) = 0 JUMP = 1 C C READ ELEMENT DATA FROM GEOM2 FILE AND SET UP CONNECTION TABLE IG. C ALSO, EXAMINE MPC EQUATIONS. C CALL BREAD (IG,INV,II3,NORIG,Z) IF (NGRID .LE. 0) RETURN C C NGRID = NO. OF GRID POINTS IN THE PROBLEM C = 0, ONE OR MORE SEQGP CARD IS PRESENT IN NASTRAN INPUT C DECK, AND/OR QDSEP ELEMENTS C = -1, INSUFFICIENT CORE SPACE (IG TABLE TOO SMALL) C = -2, INSUFFICIENT SCRATCH AREA WHILE USING CTHMCK C = -3, INSUFFICIENT SCRATCH AREA WHILE USING GIBSTK C C MODIFY IG TO ACCOUNT FOR MPC EQUATIONS AND RIGID ELEMENTS C IF (NEQ+NEQR .NE. 0) CALL TIGER (IG,ICC,INV,II3,NORIG,Z,UN) C C SORT ORIGINAL GRID NOS. AND OUTPUT THE LIST IN INT, WHERE INT(I) C IS THE I-TH ORIGINAL GRID NUMBER. C ALSO OUTPUT ILD, WHERE IDL(I) = SORTED INTERNAL NO. CORRESPONDING C TO THE UNSORTED BANDIT INTERNAL LABEL I. C C CALL BRIGIT (INV,II3,INT,ILD) C BRIGIT AND INTERN ARE NOW REPLACED BY 17 LINES BELOW /G.CHAN 1988 C K = 0 DO 15 I = 1,II3 IF (INV(I) .EQ. 0) GO TO 15 K = K + 1 INT(K) = INV(I) 15 CONTINUE CALL SORT (0,0,1,1,INT,NN) DO 17 I = 1,NN J = INT(I) IF (J .LE. 0) GO TO 120 LOC = J - 1 16 LOC = MOD(LOC,KMOD) + 1 IF (INV(LOC) .EQ. 0) GO TO 120 IF (INV(LOC) .NE. J) GO TO 16 J = INV(LOC+II3) ILD(J) = I 17 CONTINUE C C METHOD WAS SET IN BANDIT - C METHOD = -1, CM ONLY, = +1, GPS ONLY, = 0, BOTH METHODS. C IF (METHOD .NE. 0) GO TO 20 C C SAVE ORIGINAL GRID POINT ORDERING (ILD) IN SCR1 FILE C CALL OPEN (*70,SCR1,Z(IBUF1),WRTREW) CALL WRITE (SCR1,ILD,NN,1) CALL CLOSE (SCR1,REW) C C RE-SEQUENCE GRIDS WITH CUTHILL-MCKEE ALGORITHM C 20 I = MAXGRD + 2 J = I + MAXGRD IF (MAXDEG .GT. MAXGRD) J = J + MAXDEG - MAXGRD K = J + MAXGRD CALL CTHMCK (80,1,2,ICRIT,IG,INV,INV(I),INV(J),INV(K),INT,ICC, X ILD,IP,JUMP,UN,Z) NGRID1 = NGRID IF (METHOD) 60,25,30 C C READ ORIGINAL SEQUENCE BACK IF CTHMCK MAKES NO IMPROVEMENT C 25 IF (JUMP .EQ. 0) GO TO 30 CALL OPEN (*70,SCR1,Z(IBUF1),RDREW) CALL READ (*80,*80,SCR1,ILD,NN,1,M) CALL CLOSE (SCR1,REW) 30 DO 40 K1 = 1,NN 40 INT(K1) = ILD(K1) C C RESEQUENCE NODES WITH GPS ALGORITHM. C K1 = 1 K2 = K1 + KDIM K3 = K2 + KDIM K4 = K3 + KDIM K5 = K4 + KDIM/2 CALL GIBSTK (IG,INT,ILD,INV(I),INV,INV(J),INV(K),ICC,JUMP,ICRIT, 1 Z(K1),Z(K2),Z(K3),Z(K4),Z(K5),UN,KDIM) C C GENERATE SEQGP CARDS AND OUTPUT THEM TO GEOM1 FILE C 60 CALL BSEQGP (NORIG,ILD,JUMP) IF (NGRID1.EQ.-2 .OR. NGRID.EQ.-3) GO TO 100 RETURN C C SCRATCH FILE ERROR C 70 K = -1 GO TO 90 80 K = -2 90 CALL MESAGE (K,SCR1,SUB) C 100 WRITE (NOUT,110) KDIM 110 FORMAT (28H0*** BANDIT SCRATCH ARRAY OF,I5,20H WORDS IS TOO SMALL. 1,/5X,57HUSER COULD USE ONE OF THE FOLLOWING OPTIONS AND RESUBMIT , 2 27HJOB. (USERS MANUAL P.2.1-1), /5X, 2 53HINCREASE SCRATCH ARRAY BY NASTRAN BANDTDIM OPTION, OR, /5X, 3 53HSWITCH TO CUTHILL-MCKEE METHOD ONLY BY BANDTMTH=1 OR, /5X, 4 57HSKIP BANDIT COMPUTATION BY SETTING NASTRAN CARD BANDIT=-1,//) GO TO 140 C 120 WRITE (NOUT,130) K,NN,II3,KMOD,MAXGRD,MAXDEG 130 FORMAT ('0*** BANDIT FATAL ERROR - TRY TO RERUN JOB WITH ', 1 22H'NASTRAN BANDTDIM = N',' WHERE N = 3,4,...,OR 9', //5X, 2 '@17/ K,NN,II3,KMOD,MAXGRD,MAXDEG =',6I8) 140 CALL MESAGE (-37,SUB,SUB) RETURN END ================================================ FILE: mis/scone1.f ================================================ SUBROUTINE SCONE1 C ******* PHASE I OF STRESS DATA RECOVERY FOR CONICAL SHELL********* C OUTPUTS FROM THIS ROUTINE FOR USE IN PHASE II ARE... C 1) ELEMENT ID C 2 AND 3) SILS A AND B C 4) S SUB T C 5) N C 6) I C 7) Z1 C 8) Z2 C 9 THRU 22) PHI-S C 23 THRU 118) TWO 8X6 S MATRICES C TOTAL OF 118 WORDS C*********************************************************************** C ECPT( 1) = ELEMENT ID INTEGER ECT C ECPT( 2) = SIL PT A INTEGER ECT C ECPT( 3) = SIL PT B B INTEGER ECT C ECPT( 4) = MATID 1 INTEGER EPT C ECPT( 5) = T (MEMBRANE THICK) REAL EPT C ECPT( 6) = MATID 2 INTEGER EPT C ECPT( 7) = I (MOM.OF INERTIA) REAL EPT C ECPT( 8) = MATID 3 INTEGER EPT C ECPT( 9) = TS (SHEAR THICKNESS) REAL EPT C ECPT(10) = NON-STRUCTURAL-MASS REAL EPT C ECPT(11) = Z1 REAL EPT C ECPT(12) = Z2 REAL EPT C ECPT(13) = PHI 1 REAL EPT C ECPT(14) = PHI 2 REAL EPT C ECPT(15) = PHI 3 REAL EPT C ECPT(16) = PHI 4 REAL EPT C ECPT(17) = PHI 5 REAL EPT C ECPT(18) = PHI 6 REAL EPT C ECPT(19) = PHI 7 REAL EPT C ECPT(20) = PHI 8 REAL EPT C ECPT(21) = PHI 9 REAL EPT C ECPT(22) = PHI 10 REAL EPT C ECPT(23) = PHI 11 REAL EPT C ECPT(24) = PHI 12 REAL EPT C ECPT(25) = PHI 13 REAL EPT C ECPT(26) = PHI 14 REAL EPT C ECPT(27) = COORD. SYS. ID PT.1 INTEGER BGPDT C ECPT(28) = RADIUS PT. 1 REAL BGPDT C ECPT(29) = DISTANCE TO PT.1 REAL BGPDT C ECPT(30) = NULL REAL BGPDT C ECPT(31) = COORD. SYS. ID PT.2 INTEGER BGPDT C ECPT(32) = RADIUS PT 2 REAL BGPDT C ECPT(33) = DISTANCE TO PT. 2 REAL BGPDT C ECPT(34) = NULL REAL BGPDT C ECPT(35) = ELEMENT TEMPERATURE REAL GEOM3 C*********************************************************************** REAL III REAL NSPRSQ REAL NCPRSQ REAL N2RSQ REAL T30(30) REAL G(9) REAL NSPOPI REAL INTEG(28) REAL FAC(7) REAL N REAL L2 REAL NSP REAL NCP REAL N2 REAL KS REAL NOVR REAL N2D33 REAL HYQ(20) C REAL I00 ,I01 ,I02 ,I03 ,I04 REAL I10 ,I11 ,I12 ,I13 ,I14 REAL I20 ,I21 ,I22 ,I23 ,I24 REAL I31 ,I32 ,I33 ,I34 REAL I42 ,I43 ,I44 REAL I52 ,I53 ,I54 REAL I62 ,I63 ,I64 C INTEGER NECPT(100) INTEGER NERROR(2) INTEGER NA(7) C COMMON /CONDAS/ PI ,TWOPI ,RADEG ,DEGRA , 1 S4PISQ C COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, COSTH C COMMON /MATOUT/ G11, G12, G13, G22, G23, G33, ALPHA C COMMON /SDR2X5/ ECPT(100) ,PH1OUT(118) C COMMON /SDR2X6/ HUQ(100) ,H(120) ,KS(80) C EQUIVALENCE ( ECPT(1), NECPT(1)) EQUIVALENCE ( ECPT(4), MATID1 ) EQUIVALENCE ( G(1) ,HUQ(1) ) EQUIVALENCE ( ECPT(5) ,T ) EQUIVALENCE ( ECPT(6), MATID2 ) EQUIVALENCE ( ECPT(7) ,III ) EQUIVALENCE ( ECPT(8), MATID3 ) EQUIVALENCE ( ECPT(9) ,TS ) EQUIVALENCE ( ECPT(11),Z1 ) EQUIVALENCE ( ECPT(12),Z2 ) EQUIVALENCE ( ECPT(28),RA ) EQUIVALENCE ( ECPT(29),ZA ) EQUIVALENCE ( ECPT(32),RB ) EQUIVALENCE ( ECPT(33),ZB ) EQUIVALENCE ( D11 ,G(1) ) EQUIVALENCE ( D12 ,G(2) ) EQUIVALENCE ( D22 ,G(5) ) EQUIVALENCE ( D33 ,G(9) ) EQUIVALENCE ( INTEG(1),HUQ(1) ) EQUIVALENCE ( T30(1) ,H(1) ) EQUIVALENCE ( HYQ(1) ,H(31) ) EQUIVALENCE ( HYQ( 1), H11 ) EQUIVALENCE ( HYQ( 2), H12 ) EQUIVALENCE ( HYQ( 3), H13 ) EQUIVALENCE ( HYQ( 4), H14 ) EQUIVALENCE ( HYQ( 5), H15 ) EQUIVALENCE ( HYQ( 6), H16 ) EQUIVALENCE ( HYQ( 7), H17 ) EQUIVALENCE ( HYQ( 8), H18 ) EQUIVALENCE ( HYQ( 9), H19 ) EQUIVALENCE ( HYQ(10), H1TEN ) EQUIVALENCE 1 (I00 , INTEG( 1)) ,(I20 , INTEG(11)) 2 ,(I01 , INTEG( 2)) ,(I21 , INTEG(12)) 3 ,(I02 , INTEG( 3)) ,(I22 , INTEG(13)) 4 ,(I03 , INTEG( 4)) ,(I23 , INTEG(14)) 5 ,(I04 , INTEG( 5)) ,(I24 , INTEG(15)) 6 ,(I10 , INTEG( 6)) ,(I31 , INTEG(16)) 7 ,(I11 , INTEG( 7)) ,(I32 , INTEG(17)) 8 ,(I12 , INTEG( 8)) ,(I33 , INTEG(18)) 9 ,(I13 , INTEG( 9)) ,(I34 , INTEG(19)) T ,(I14 , INTEG(10)) ,(I52 , INTEG(23)) 1 ,(I42 , INTEG(20)) ,(I53 , INTEG(24)) 2 ,(I43 , INTEG(21)) ,(I54 , INTEG(25)) 3 ,(I44 , INTEG(22)) ,(I62 , INTEG(26)) 4 ,(I63 , INTEG(27)) 5 ,(I64 , INTEG(28)) C DATA FAC/1.0E0,1.0E0,2.0E0,6.0E0,24.0E0,120.0E0,720.0E0/ DATA NA /1,1,1,2,3,3,3/ DATA ONE/1.0E0/ C COSTH=1.0 SINTH=0.0 N = NECPT(1) - ( (NECPT(1)/1000)*1000 ) - 1 TEMP1 = RB-RA TEMP2 = ZB-ZA SL = SQRT(TEMP1**2 + TEMP2**2) L2 = SL * SL IF(SL) 30,20,30 20 NERROR(1) = NECPT(1) / 1000 NERROR(2) = N + .3E0 CALL MESAGE(-30, 39, NERROR(1) ) 30 SP = TEMP1 / SL CP = TEMP2 / SL NSP = N * SP NCP = N * CP N2 = N * N SP2 = SP * SP A=RA B=SP IF( B ) 60,40,60 C C GO TO 302 FOR B = 0 C C 1-N C PI RA M+1 C FOR B = 0 I = --------- SL (FOR ALL M,N .GE. 0) C M,N M + 1 C 40 ISUB = 0 DO 50 I=1,7 NBEGIN = NA(I) C C DO 50 J=NBEGIN,5 C C M = I - 1 C N = J - 1 C MPLUS1 THUS EQUALS I ISUB = ISUB + 1 50 INTEG(ISUB) = (PI * SL**I) / ( FLOAT(I) * RA**(J-2)) C C ABOVE COMPLETES ALL INTEGRALS FOR B = 0... C C IF AN OVERFLOW RESULTS BELOW POSSIBLY B IS NOT ZERO, BUT SMALL.. C GO TO 100 C C OK BELOW IS FOR B NOT EQUAL TO ZERO C C FIRST M = 0 CASE... C C 2-N 2-N C PI ( RB - RA ) C I =-------------------- (N NOT EQUAL TO 2) C 0,N (2-N) B C C C FOR N=2 I = PI * (LOG RB - LOG RA) / B C 0,2 E E C C 60 RASQ = RA * RA RBSQ = RB * RB PIOVB = PI / B C INTEG(1) = 0.5E0 * PIOVB * (RBSQ - RASQ) INTEG(2) = PIOVB * (RB - RA) INTEG(3) = PIOVB * ALOG(RB/RA) INTEG(4) = -PIOVB * (ONE/RB - ONE/RA) INTEG(5) = -0.5E0 * PIOVB * (ONE/RBSQ - ONE/RASQ) C ISUB = 5 DO 90 I=1,6 MPLUS1 = I + 1 NBEGIN = NA(MPLUS1) DO 90 J=NBEGIN,5 ISUB = ISUB + 1 C C M = I C N = J - 1 C C WE ARE GETTING INTEGRAL(M,N) C M = POWER OF S C N = POWER OF R C C C EVALUATING AT R = RB THEN AT R = RA... C C K NPOW C M FAC. M (-A) (R) C I = (PI)(-----------)( SUM ------------------------) + (TERM-X) C MN (M+1) K=0 (M-K)FAC.(K)FAC.(NPOW) C B (K.NE.M-N+2) (K.EQ.M-N+2) C C C WHERE NPOW = M - N - K + 2 C C C M-N+2 C (-A) LOG(R) C TERM-X = -------------------- C (M-N+2)FAC.(N-2)FAC. C C NOTE IN DATA STATEMENT THAT 0 FACTORIAL = FAC(1) C 1 FACTORIAL = FAC(2) C 2 FACTORIAL = FAC(3) ETC... C SUM = 0.0E0 SIGN = -1.0E0 DO 80 KK=1,MPLUS1 SIGN = -SIGN K = KK - 1 NPOW = I - J + 3 IF(K .EQ. NPOW ) GO TO 70 NPOW = NPOW - K IFAC = MPLUS1 - K TEMP = NPOW SUM=SUM+SIGN*A**K*(RB**NPOW - RA**NPOW)/(FAC(IFAC)*FAC(K+1)*TEMP) GO TO 80 70 SUM = SUM+SIGN*A**NPOW*ALOG(RB/RA) / (FAC(NPOW+1)*FAC(J-2)) 80 CONTINUE C INTEG(ISUB) = SUM * PI * FAC(MPLUS1) / B**MPLUS1 90 CONTINUE 100 CONTINUE C C DO 120 I = 1,80 120 KS(I) = 0.0E0 C R = 0.50E0 * ( RA + RB ) S = 0.50E0 * SL C IF( T ) 130,170,130 130 VAR=1.0 MATID = MATID1 ASSIGN 150 TO ICONT C 140 ELTEMP = ECPT(35) INFLAG = 2 CALL MAT( ECPT(1) ) G(1) = G11 * VAR G(2) = G12 * VAR G(3) = G13 * VAR G(4) = G12 * VAR G(5) = G22 * VAR G(6) = G23 * VAR G(7) = G13 * VAR G(8) = G23 * VAR G(9) = G33 * VAR C GO TO ICONT,(150,195) C 150 DO 160 I = 1,30 160 T30(I) = 0.0E0 C T30( 4) = 1.0E0 T30(11) = N / R T30(12) = T30(11) * S T30(13) = SP / R T30(14) = S * T30(13) T30(15) = CP / R T30(16) = S * T30(15) T30(17) = S * T30(16) T30(18) = S * T30(17) T30(21) = - T30(13) T30(22) = 1.0E0 - T30(14) T30(23) = - T30(11) T30(24) = - T30(12) C CALL GMMATS( G(1),3,3,0, T30(1),3,10,0, KS(1) ) C 170 IF( III ) 190,180,190 180 DO 181 I = 1,9 181 G(I) = 0.0E0 GO TO 195 C C GET G MATERIAL MATRIX FOR MATERIAL ID 2 AND MULTIPLY BY I... C THIS THEN IS THE D 3X3 MATRIX BY EQUIVALENCE... C 190 VAR = III MATID = MATID2 ASSIGN 195 TO ICONT GO TO 140 C C FORMING 1.0/Q DIRECTLY C 195 OPI = ONE / PI DO 299 I = 1,20 299 HYQ(I) = 0.0E0 IF( TS ) 351,352,351 C 351 ELTEMP = ECPT(35) INFLAG = 1 MATID = MATID3 CALL MAT( NECPT(1) ) C IF(G12.EQ.0.0) GO TO 354 N2D33 = N2 * D33 SP2D22 = SP2 * D22 OQ = SL * TS * G12 * (RA+RB)*0.5E0 + I02 * (N2D33+SP2D22)*OPI OQ = ONE / OQ NSPOPI = NSP * OPI TWOD33 = 2.0E0 * D33 TEMP1 = D12 * (ONE/RB - ONE/RA) TEMP2 = NSPOPI * (D22 + D33) TEMP3 = N * NSPOPI * (TWOD33 + D22) TEMP4 = OQ * 0.5E0 * NCP * N * D33 * OPI TEMP5 = OPI * (N2 * TWOD33 + SP2 * D22) TEMP6 = D12 * N2 * L2 / RB TEMP7 = NSPOPI * CP * 0.50E0 C HYQ( 1) = OQ*(TEMP1*NCP - TEMP7*I03*(D33+2.0E0*D22)) HYQ( 2) = OQ*(NCP*SL/RB*D12-TEMP7*I13*(3.0E0*D33+D22)+ 1 1.0E0*NCP*OPI*I02*D33) HYQ( 3) = TEMP4 * I03 HYQ( 4) = TEMP4 * I13 HYQ( 5) = OQ * (TEMP1*N2 - TEMP3*I03) HYQ( 6) = OQ * (D12*N2*SL/RB - TEMP3*I13 + TEMP5*I02) HYQ( 7) = OQ*(2.0E0*D11*(RA-RB)+TEMP6+2.0E0*I12*TEMP5-TEMP3*I23) HYQ( 8) =OQ*(-D11*6.E0*SL*RB+TEMP6*SL+3.E0*I22*TEMP5-TEMP3*I33) HYQ( 9) = -OQ * TEMP2 * I02 HYQ(10) = OQ * (N*SL*(D12 + D33) - TEMP2*I12) HYQ(19) = 1.0E0 HYQ(20) = S C TSG3 = TS * G12 DO 359 I = 1,20 359 KS(I+60) = HYQ(I) * TSG3 C FILL HXQ MATIX C GO TO 352 354 TS=0.0 352 IF( III ) 500,400,500 500 S2 = S * S S3 = S * S2 RSQ = R * R SPOVR = SP / R NCPRSQ = NCP/RSQ NSPRSQ = NSP/RSQ N2RSQ = N2 / RSQ SPCPR2 = SP * CP / RSQ NOVR = N / R T30( 7) = 2.0E0 T30( 8) = 6.0E0 * S T30(11) = - NCPRSQ - SPOVR * H11 T30(12) = - S * NCPRSQ - SPOVR * H12 T30(13) = - SPOVR * H13 T30(14) = - SPOVR * H14 T30(15) = - N2RSQ - SPOVR * H15 T30(16) = SPOVR - N2RSQ * S - SPOVR * H16 T30(17) = 2.0E0 * S * SPOVR - N2RSQ * S2 - SPOVR * H17 T30(18) = 3.0E0 * S2 * SPOVR - N2RSQ * S3 - SPOVR * H18 T30(19) = - NOVR - SPOVR * H19 T30(20) = - NOVR * S - SPOVR * H1TEN T30(21) = 0.5E0 * SPCPR2 + NOVR * H11 T30(22) = 0.5E0 * ( S * SPCPR2 - 3.0E0 * CP / R ) + NOVR * H12 T30(23) = -0.50E0 * NCPRSQ + NOVR * H13 T30(24) = -NCPRSQ * S * 0.50E0 * NOVR * H14 T30(25) = NSPRSQ + NOVR * H15 T30(26) = NSPRSQ * S - NOVR * ( 2.0E0 - H16 ) T30(27) = NSPRSQ * S2 - NOVR * ( 4.0E0 * S - H17 ) T30(28) = NSPRSQ * S3 - NOVR * ( 6.0E0 * S2 - H18 ) T30(29) = SPOVR + NOVR * H19 T30(30) = -1.0E0 + SPOVR * S + NOVR * H1TEN C CALL GMMATS( G(1),3,3,0, T30(1),3,10,0, KS(31) ) C C C C FILL HUQ PER PAGE 15 MS-28 C 400 DO 290 I=1,100 290 HUQ(I) = 0.0E0 HUQ( 1) = ONE HUQ( 13) = ONE HUQ( 25) = ONE HUQ( 36) = ONE HUQ( 49) = ONE HUQ( 51) = ONE HUQ( 52) = SL HUQ( 63) = ONE HUQ( 64) = SL HUQ( 75) = ONE HUQ( 76) = SL HUQ( 77) = L2 HUQ( 78) = HUQ(77) * SL HUQ( 86) = ONE HUQ( 87) = 2.0E0 * SL HUQ( 88) = 3.0E0 * HUQ(77) HUQ(100) = SL C IF( TS ) 300,320,300 C 300 HUQ( 41)=CP/RA HUQ( 45)=N/RA HUQ( 91) = CP / RB HUQ( 92) = HUQ(91) * SL HUQ( 95) = N / RB HUQ( 96) = HUQ(95) * SL HUQ( 97) = HUQ(95) * L2 HUQ( 98) = HUQ(96)*L2 HUQ( 99) = ONE HUQ(100) = SL C C SUBTRACT FROM ROWS 4 AND 9 OF THE ABOVE MATRIX, THE HYQ MATRIX... C DO 310 I=1,10 HUQ(I+30) = HUQ(I+30) - HYQ(I) 310 HUQ(I+80) = HUQ(I+80) - HYQ(I) C 320 CONTINUE C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERS( 10, HUQ(1), 10, DUM, 0, DETERM, ISING, T30(1) ) C C CHECK SINGULARITY GO TO(340,330),ISING 330 CALL MESAGE( -30, 40, NECPT(1) ) C C C NOT SINGULAR, CONTINUE ON.. 340 CONTINUE IF(TS.NE.0.0) GO TO 345 HUQ(85)=0.0 HUQ(100)=0.0 345 CONTINUE C T T C GET EHAT = (E)(H ), AND EHBT = (E)(H ) C A B C EHAT WILL BE STORED AT H(1)...H(60) AND EHBT AT H(61)...H(120) C C C 0 SP CP 0 0 C C 1 0 0 0 0 C C 0 CP -SP 0 0 C MATRIX E = C 0 0 0 0 SP C C 0 0 0 1 0 C C 0 0 0 0 CP INC1 = 0 INC2 = 0 350 DO 360 I=1,10 ISUB = I + INC1 ITEN = 10*I - 9 + INC2 H(ISUB ) = HUQ(ITEN+1) * SP + HUQ(ITEN+2) * CP H(ISUB+10) = HUQ(ITEN ) H(ISUB+20) = HUQ(ITEN+1) * CP - HUQ(ITEN+2) * SP H(ISUB+30) = HUQ(ITEN+4) * SP H(ISUB+40) = HUQ(ITEN+3) 360 H(ISUB+50) = HUQ(ITEN+4) * CP IF( INC1 ) 380,370,380 370 INC1 = 60 INC2 = 5 GO TO 350 380 CONTINUE C DO 700 I = 1,2 CALL GMMATS( KS(1),8,10,0, H(60*I-59),6,10,1, PH1OUT(48*I-25) ) 700 CONTINUE SSUBT = 0.0E0 IF( MATID1 ) 800,850,800 C COMPUTE S SUB T C 800 INFLAG = 1 MATID = MATID1 ELTEMP = ECPT(35) CALL MAT( ECPT(1) ) SSUBT = G11 * PI * ALPHA / (1.0E0 - G13) IF( N .EQ. 0.0E0 ) SSUBT = 2.0E0 * SSUBT C 850 PH1OUT(1) = ECPT(1) PH1OUT(2) = ECPT(2) PH1OUT(3) = ECPT(3) PH1OUT(4) = SSUBT PH1OUT(5) = N PH1OUT(6) = III PH1OUT(7) = Z1 PH1OUT(8) = Z2 DO 900 I = 9,22 900 PH1OUT(I) = ECPT(I+4) C RETURN END ================================================ FILE: mis/scone2.f ================================================ SUBROUTINE SCONE2 (SORC) C C PHASE II OF STRESS DATA RECOVERY C C OUTPUTS FROM PHASE I ARE THE FOLLOWING (TOTAL OF 118 WORDS) - C 1) ELEMENT ID C 2 AND 3) SILS A AND B C 4) S SUB T C 5) N C 6) I C 7) Z1 C 8) Z2 C 9 THRU 22) PHI-S C 23 THRU 118) TWO 8X6 S MATRICES C LOGICAL ZERO INTEGER SIL(2),IFORCE(8),ISTRES(100),ELEMID,SORC, 1 IBLOCK(9,14) REAL NPHI,PHI(14),FORCE(7),S(96),STRESS(18),ZOFF(2),III COMMON /CONDAS/ CONSTS(5) COMMON /ZZZZZZ/ Z(1) COMMON /SDR2X4/ DUMMY(35),IVEC,DUM11(3) COMMON /SDR2X7/ COMMUN(225) COMMON /SDR2X8/ VEC(8),SUM(8),SIG(3),SIG1,SIG2,SIG12,TEMP, 1 DELTA,THETA,NPOINT,ZOVERI,IPT,BLOCK(9,14), 2 NELHAR,ELEMID,HARM,N,SINPHI,CONPHI,NPHI,NANGLE EQUIVALENCE (CONSTS(4),DEGRA),(NELEM,COMMUN(1)), 1 (SIL(1),COMMUN(2)),(III,COMMUN(6)), 2 (ZOFF(1),COMMUN(7)),(PHI(1),COMMUN(9)), 3 (S(1),COMMUN(23)),(IBLOCK(1,1),BLOCK(1,1)), 4 (STRESS(1),COMMUN(101),ISTRES(1)), 5 (FORCE (1),COMMUN(201),IFORCE(1)) DATA NELOLD/ -1 / C DO 10 I = 1,8 10 SUM(I) = 0.0 C ELEMID = NELEM/1000 NELHAR = NELEM - ELEMID*1000 C C ZERO OUT BLOCK IF THIS IS FIRST CALL WITH HARMONIC = 0 FOR THIS C ELEMENT C N = NELHAR - 1 IF (N .NE. 0) GO TO 21 IF (ELEMID .EQ. NELOLD) GO TO 21 NELOLD = ELEMID DO 12 I = 2,9 DO 12 J = 1,14 BLOCK(I,J) = 0.0 12 CONTINUE C C INSERT ANGLES FOR OUTPUT INTO FIRST ROW OF BLOCK C ZERO = .FALSE. J = 0 DO 19 I = 1,14 IF (PHI(I)) 17,15,17 15 IF (ZERO) GO TO 19 ZERO = .TRUE. 17 J = J + 1 BLOCK(1,J) = PHI(I) 19 CONTINUE J = J + 1 IF (J .LE. 14) IBLOCK(1,J) = 1 21 HARM = N C DO 30 I = 1,2 C C DISPLACEMENT VECTOR POINTER C NPOINT = IVEC + SIL(I) - 1 C CALL GMMATS (S(48*I-47),8,6,0, Z(NPOINT),6,1,0, VEC(1)) C DO 25 J = 1,8 25 SUM(J) = SUM(J) + VEC(J) 30 CONTINUE C C INSERT HARMONIC STRESSES AND FORCES INTO BLOCK FOR THIS HARMONIC C DO 40 I = 1,14 IF (IBLOCK(1,I) .EQ. 1) GO TO 50 NPHI = HARM*BLOCK(1,I)*DEGRA SINPHI = SIN(NPHI) CONPHI = COS(NPHI) GO TO (35,36), SORC 35 BLOCK(2,I) = BLOCK(2,I) + SINPHI*SUM(1) BLOCK(3,I) = BLOCK(3,I) + SINPHI*SUM(2) BLOCK(4,I) = BLOCK(4,I) - CONPHI*SUM(3) BLOCK(5,I) = BLOCK(5,I) + SINPHI*SUM(4) BLOCK(6,I) = BLOCK(6,I) + SINPHI*SUM(5) BLOCK(7,I) = BLOCK(7,I) - CONPHI*SUM(6) BLOCK(8,I) = BLOCK(8,I) + SINPHI*SUM(7) BLOCK(9,I) = BLOCK(9,I) - CONPHI*SUM(8) GO TO 40 36 BLOCK(2,I) = BLOCK(2,I) + CONPHI*SUM(1) BLOCK(3,I) = BLOCK(3,I) + CONPHI*SUM(2) BLOCK(4,I) = BLOCK(4,I) + SINPHI*SUM(3) BLOCK(5,I) = BLOCK(5,I) + CONPHI*SUM(4) BLOCK(6,I) = BLOCK(6,I) + CONPHI*SUM(5) BLOCK(7,I) = BLOCK(7,I) + SINPHI*SUM(6) BLOCK(8,I) = BLOCK(8,I) + CONPHI*SUM(7) BLOCK(9,I) = BLOCK(9,I) + SINPHI*SUM(8) 40 CONTINUE C C COPY FORCES INTO FORCE OUTPUT BLOCK C 50 IFORCE(1) = ELEMID IFORCE(2) = NELHAR FORCE (3) = SUM(4) FORCE (4) = SUM(5) FORCE (5) = SUM(6) FORCE (6) = SUM(7) FORCE (7) = SUM(8) C C COMPUTE STRESSES AT Z1 AND Z2 C ISTRES(1) = ELEMID ISTRES(2) = NELHAR C DO 70 I = 1,2 ZOVERI = 0.0 IF (III .NE. 0.0) ZOVERI = ZOFF(I)/III C DO 60 J = 1,3 60 SIG(J) = SUM(J) + SUM(J+3)*ZOVERI C IPT = 8*I - 6 STRESS(IPT+1) = ZOFF(I) STRESS(IPT+2) = SIG(1) STRESS(IPT+3) = SIG(2) STRESS(IPT+4) = SIG(3) ISTRES(IPT+5) = 1 ISTRES(IPT+6) = 1 ISTRES(IPT+7) = 1 ISTRES(IPT+8) = 1 70 CONTINUE C RETURN END ================================================ FILE: mis/scone3.f ================================================ SUBROUTINE SCONE3( AGAIN ) C REAL III C INTEGER IFORCE(25), ISTRES(100), ELEMID, IBLOCK(9,14) C LOGICAL AGAIN C COMMON /SDR2X7/ DUM(5),III,ZOFF(2),DUM2(92),STRESS(100),FORCE(25) C COMMON /SDR2X8/ VEC(8), SUM(8), SIG(3), SIG1, SIG2, SIG12, TEMP, 1 DELTA, THETA, NPOINT, ZOVERI, IPT, BLOCK(9,14), ELHAR, ELEMID, 2 HARM, N, SINPHI, CONPHI, NPHI, NANGLE C EQUIVALENCE( ISTRES(1), STRESS(1) ) EQUIVALENCE( IFORCE(1), FORCE (1) ) EQUIVALENCE( IBLOCK(1,1),BLOCK(1,1) ) C IF( AGAIN ) GO TO 10 AGAIN = .TRUE. NANGLE = 0 10 NANGLE = NANGLE + 1 C***** C OUTPUT FORCES FOR THIS ANGLE C***** IFORCE(1) = ELEMID FORCE(2) = BLOCK(1,NANGLE) FORCE(3) = BLOCK(5,NANGLE) FORCE(4) = BLOCK(6,NANGLE) FORCE(5) = BLOCK(7,NANGLE) FORCE(6) = BLOCK(8,NANGLE) FORCE(7) = BLOCK(9,NANGLE) C***** C COMPUTE AND OUTPUT STRESSES AND PRINCIPAL STRESSES C***** ISTRES(1) = ELEMID STRESS(2) = BLOCK(1,NANGLE) DO 70 I = 1,2 ZOVERI=0.0 IF (III .NE. 0.0) ZOVERI=ZOFF(I)/III DO 40 J = 1,3 40 SIG(J) = BLOCK(J+1,NANGLE) + BLOCK(J+4,NANGLE) * ZOVERI TEMP = SIG(1) - SIG(2) SIG12 = SQRT( (TEMP*0.50E0)**2 + SIG(3)**2 ) DELTA = ( SIG(1) + SIG(2) ) * 0.50E0 SIG1 = DELTA + SIG12 SIG2 = DELTA - SIG12 DELTA = 2.0E0 * SIG(3) IF( ABS(DELTA) .LT. 1.0E-15 .AND. ABS(TEMP) .LT. 1.0E-15 )GO TO 50 THETA = ATAN2( DELTA, TEMP ) * 28.6478898E0 GO TO 60 50 THETA = 0.0E0 60 IPT = 8*I-6 STRESS(IPT+1) = ZOFF(I) STRESS(IPT+2) = SIG(1) STRESS(IPT+3) = SIG(2) STRESS(IPT+4) = SIG(3) STRESS(IPT+5) = THETA STRESS(IPT+6) = SIG1 STRESS(IPT+7) = SIG2 STRESS(IPT+8) = SIG12 70 CONTINUE C***** C SET AGAIN .FALSE. IF SDR2E IS NOT TO CALL THIS ROUTINE AGAIN FOR THIS C ELEMENT.. E.G. ALL THE ANGLES DESIRED HAVE BEEN PROCESSED... C***** IF( NANGLE .EQ. 14 ) GO TO 100 IF( IBLOCK(1,NANGLE+1) .EQ. 1 ) GO TO 100 RETURN 100 AGAIN = .FALSE. RETURN END ================================================ FILE: mis/scrlm.f ================================================ SUBROUTINE SCRLM (SCURL, XXI, E, H, CONT, RP, ALF1, R1, LAM1,HF) C C THIS SUBROUTINE COMPUTES THE STRESS MATRIX IN FIELD COORDINATES C FOR THE TOROIDAL RING ELEMENT C C C NOTE THE DOUBLE SUBSCRIPTING USED IN THE SCRLM SUBROUTINE IS C COMPATIBLE WITH THE CALLING PROGRAM. THE SEL ARRAY WILL RETURN WITH C THE STRESS MATRIX TRANSPOSED (10X15, STORED ROWWISE) BUT IN THE SCRLM C SUBROUTINE THE STRESS MATRIX IS COMPUTED AS A DOUBLY SUBSCRIPTED C 15X10 ARRAY (STORED COLUMNWISE). C DIMENSION SCURL (15,10), E (2,2), XXI (3) REAL LAM1 , LAM2 , LAM3 ,LAM4 C ------------------------------------------------------------------ C SC1 = H SC2 =HF**3 / 12.0 JJ = 1 KK = 3 LL = 5 C DO 195 I = 1,3 XX1 = XXI(I) XX2 = XX1 * XX1 XX3 = XX2 * XX1 XX4 = XX3 * XX1 XX5 = XX4 * XX1 CALL SOLVE1(ALF1,R1,RP,XX1,LAM2,LAM3,LAM4,CONT) DO 185 J = 1,2 SCURL(JJ, 1) = LAM2 * E(J,2) SCURL(JJ, 2) = SCURL(JJ,1) * XX1 + E(1,J) SCURL(JJ, 3) = SCURL(JJ,1) * XX2 + E(1,J) * 2.0 * XX1 SCURL(JJ, 4) = SCURL(JJ,1) * XX3 + E(1,J) * 3.0 * XX2 SCURL(JJ, 5) = LAM1 * E(1,J) + LAM3 * E(J,2) SCURL(JJ, 6) = SCURL(JJ,5) * XX1 SCURL(JJ, 7) = SCURL(JJ,5) * XX2 SCURL(JJ, 8) = SCURL(JJ,5) * XX3 SCURL(JJ, 9) = SCURL(JJ,5) * XX4 SCURL(JJ,10) = SCURL(JJ,5) * XX5 JJ = JJ + 1 185 CONTINUE JJ = JJ + 3 DO 190 K = 1,2 SCURL (KK,1) = 0.0 SCURL (KK,2) = 0.0 SCURL (KK,3) = 0.0 SCURL (KK,4) = 0.0 SCURL(KK, 5) = 0.0 SCURL(KK, 6) = -LAM2 * E(K,2) SCURL(KK, 7) = SCURL(KK,6) * 2.0 * XX1 - E(1,K) * 2.0 SCURL(KK, 8) = SCURL(KK,6) * 3.0 * XX2 - E(1,K) * 6.0 * XX1 SCURL(KK, 9) = SCURL(KK,6) * 4.0 * XX3 - E(1,K) * 12.0 * XX2 SCURL(KK,10) = SCURL(KK,6) * 5.0 * XX4 - E(1,K) * 20.0 * XX3 KK = KK + 1 190 CONTINUE KK = KK + 3 EL = E(1,1) * LAM2 ELL = EL * LAM1 EEL = E(1,1) * LAM1 SCURL (LL,1) = 0.0 SCURL (LL,2) = 0.0 SCURL (LL,3) = 0.0 SCURL (LL,4) = 0.0 SCURL (LL,5) = 0.0 SCURL(LL, 6) = LAM2**2 * E(2,2) - LAM4 * E(1,2) SCURL(LL, 7) = SCURL(LL,6) * 2.0 * XX1 - 2.0 * EL SCURL(LL, 8) = SCURL(LL,6) * 3.0 * XX2 - 6.0 * (EL * XX1 + E(1,1)) SCURL(LL, 9) = SCURL(LL,6) * 4.0 * XX3 - 12.0 * EL * XX2 - 24.0 * 1 E(1,1) * XX1 SCURL(LL,10) = SCURL(LL,6) * 5.0 * XX4 - 20.0 * EL * XX3 - 60.0 * 1 E(1,1) * XX2 LL = LL + 5 195 CONTINUE C C ADJUSTMENT FOR SHELL CAP CASE IF ( ALF1 .NE. 0.0 ) GO TO 198 SCURL (1,2) = E(1,2) + E(1,1) SCURL (2,2) = E(2,2) + E(1,2) SCURL (3,7) = -2. * (E(1,2) + E(1,1) ) SCURL (4,7) = 2. * (E(2,2) + E(1,2) ) SCURL (5,8) = 3. * (E(2,2) - 4.*E(1,1) ) 198 DO 200 J = 1,15,5 DO 200 I = 1,10 SCURL(J ,I) = SCURL(J ,I) * SC1 SCURL(J+1,I) = SCURL(J+1,I) * SC1 SCURL(J+2,I) = SCURL(J+2,I) * SC2 SCURL(J+3,I) = SCURL(J+3,I) * SC2 SCURL(J+4,I) = SCURL(J+4,I) * SC2 200 CONTINUE RETURN END ================================================ FILE: mis/sd2rhd.f ================================================ SUBROUTINE SD2RHD (ISTYP,ISETUP) C C THIS ROUTINE WRITES HEADING FOR PRECISION CHECK IN SDR2E. C WORDS 1,2,6 AND 7 PRESET BY CALLING ROUTINE. C ISETUP.NE.0 FIRST CALL. C INTEGER BRANCH, LDMD(8) ,ISTYP(7) COMMON /SDR2X4/ DUMMY(50),BRANCH COMMON /SYSTEM/ ISYSB ,NOUT EQUIVALENCE (ISTYP6,RSTYP6), (ISTYP7,RSTYP7) DATA LDMD / 4HLOAD, 4HMODE, 4H, FR, 4HEQ.=, 4H, EI, 4HGEN=, 1 4H, TI, 4HME = / C IF (ISETUP .EQ. 0) GO TO 1510 GO TO (1501,1503,1501,1501,1503,1505,1501,1507,1507,1501), BRANCH C C STATICS C 1501 N1 = 3 ISTYP(3) = LDMD(1) GO TO 1510 C C EIGR,FREQ C 1503 N1 = 6 ISTYP(3) = LDMD(2) ISTYP(4) = LDMD(3) ISTYP(5) = LDMD(4) GO TO 1510 C C TRANSIENT C 1505 N1 = 6 ISTYP(3) = LDMD(1) ISTYP(4) = LDMD(7) ISTYP(5) = LDMD(8) GO TO 1510 C C BUCKLING, COMPLEX EIGENVALUE C 1507 N1 = 6 ISTYP(3) = LDMD(2) ISTYP(4) = LDMD(5) ISTYP(5) = LDMD(6) IF (BRANCH.EQ.9) N1 = 7 C 1510 CALL PAGE2 (3) ISTYP6 = ISTYP(6) ISTYP7 = ISTYP(7) IF (N1 .EQ. 3) WRITE(NOUT,1512) (ISTYP(I),I=1,N1) IF (N1 .EQ. 6) WRITE(NOUT,1512) (ISTYP(I),I=1,5),RSTYP6 IF (N1 .EQ. 7) WRITE(NOUT,1512) (ISTYP(I),I=1,5),RSTYP6,RSTYP7 1512 FORMAT (1H0,5X,45HE L E M E N T P R E C I S I O N C H E C K, 1 /4X,32HSIGNIFICANT DIGITS FOR SUBCASE =,I7,1H,,I7,3H = ,3A4, 2 1P,2E15.6) RETURN END ================================================ FILE: mis/sdcin.f ================================================ SUBROUTINE SDCIN (BLOCK,AC,N,VECS,VECD) C C SDCIN USES GETSTR/ENDGET TO READ A ROW OF A MATRIX AND ADD THE C TERMS OF THE ROW INTO A VECTOR C C BLOCK = A 15-WORD ARRAY IN WHICH BLOCK (1) = GINO NAME C AC = A VECTOR OF N COLUMN POSITIONS (COL NBRS MAY BE .LT. 0) C N = NUMBER OF WORDS IN AC AND NUMBER OF TERMS IN VECS C VECS = A VECTOR OF N TERMS. THE POS OF EACH TERM IS DEFINED BY C THE NUMBER STORED IN THE CORRESPONDING POSITION IN AC C VECD = SAME VECTOR AS VECS C INTEGER AC(1) ,PRC ,WORDS ,RLCMPX ,TYPE , 1 RC ,PREC ,BLOCK(15) REAL VECS(1) ,XNS(1) DOUBLE PRECISION XND ,VECD(1) COMMON /TYPE / PRC(2) ,WORDS(4) ,RLCMPX(4) COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /ZZZZZZ/ XND(1) EQUIVALENCE (XND(1),XNS(1)) C C PERFORM GENERAL INITIALIZATION C TYPE = BLOCK(2) PREC = PRC(TYPE) RC = RLCMPX(TYPE) I = 1 C C LOCATE POSITION IN VECTOR CORRESPONDING TO STRING C 10 IF (I .GT. N) GO TO 92 DO 11 J = I,N IF (IABS(AC(J)) .EQ. BLOCK(4)) GO TO 12 11 CONTINUE GO TO 90 12 I = J + BLOCK(6) NN = BLOCK(4) + BLOCK(6) - 1 IF (IABS(AC(I-1)) .NE. NN) GO TO 91 C C ADD TERMS FROM STRING INTO VECTOR C II = RC*(J-1) JSTR = BLOCK(5) NSTR = JSTR + RC*BLOCK(6) - 1 IF (PREC .EQ. 2) GO TO 24 C DO 22 JJ = JSTR,NSTR II = II + 1 VECS(II) = VECS(II) + XNS(JJ) 22 CONTINUE GO TO 30 C 24 DO 26 JJ = JSTR,NSTR II = II + 1 VECD(II) = VECD(II) + XND(JJ) 26 CONTINUE C C CLOSE CURRENT STRING AND GET NEXT STRING C 30 CALL ENDGET (BLOCK) CALL GETSTR (*99,BLOCK) GO TO 10 C C LOGIC ERRORS C 90 KERR = 1 GO TO 97 91 KERR = 2 GO TO 97 92 KERR = 3 GO TO 97 97 WRITE (NOUT,98) KERR 98 FORMAT (22H0*** SDCIN FATAL ERROR ,I2) CALL MESAGE (-61,0,0) 99 RETURN END ================================================ FILE: mis/sdcins.f ================================================ SUBROUTINE SDCINS (*,BLOCK,AC,N,VECS,VECD) C C SDCIN USES GETSTR/ENDGET TO READ A ROW OF A MATRIX AND ADD THE C TERMS OF THE ROW INTO A VECTOR. USED BY REAL SYM. DECOMP WITH C EXTENDED ERROR MESSAGES QUEUED (SDCMPS). C C BLOCK = A 15-WORD ARRAY IN WHICH BLOCK (1) = GINO NAME C AC = A VECTOR OF N COLUMN POSITIONS (COL NBRS MAY BE .LT. 0) C N = NUMBER OF WORDS IN AC AND NUMBER OF TERMS IN VECS C VECS = A VECTOR OF N TERMS. THE POS OF EACH TERM IS DEFINED BY C THE NUMBER STORED IN THE CORRESPONDING POSITION IN AC C VECD = SAME VECTOR AS VECS C NONSTANDARD RETURN TO SET FATAL MESSAGE -61. C INTEGER AC(1) ,BLOCK(15),PRC ,PREC ,RLCMPX , 1 TYPE ,WORDS REAL VECS(1) ,XNS(1) DOUBLE PRECISION XND(1) ,VECD(1) COMMON /SYSTEM/ SYSBUF ,NOUT COMMON /TYPE / PRC(2) ,WORDS(4) ,RLCMPX(4) COMMON /ZZZZZZ/ XND EQUIVALENCE (XND(1),XNS(1)) C C PERFORM GENERAL INITIALIZATION C TYPE = BLOCK(2) PREC = PRC(TYPE) I = 1 C C LOCATE POSITION IN VECTOR CORRESPONDING TO STRING C 10 IF (I .GT. N) GO TO 92 DO 11 J = I,N IF (IABS( AC(J)) .EQ. BLOCK(4)) GO TO 12 11 CONTINUE GO TO 90 12 I = J + BLOCK(6) NN = BLOCK(4) + BLOCK(6) - 1 IF (IABS(AC(I-1)) .NE. NN) GO TO 91 C C ADD TERMS FROM STRING INTO VECTOR C II = J - 1 JSTR = BLOCK(5) NSTR = JSTR + BLOCK(6) - 1 IF (PREC .EQ. 2) GO TO 24 C DO 22 JJ = JSTR,NSTR II = II + 1 VECS(II) = VECS(II) + XNS(JJ) 22 CONTINUE GO TO 30 C 24 DO 26 JJ = JSTR,NSTR II = II + 1 VECD(II) = VECD(II) + XND(JJ) 26 CONTINUE C C CLOSE CURRENT STRING AND GET NEXT STRING C 30 CALL ENDGET (BLOCK) CALL GETSTR (*99,BLOCK) GO TO 10 C C LOGIC ERRORS C 90 KERR = 1 GO TO 97 91 KERR = 2 GO TO 97 92 KERR = 3 GO TO 97 97 CALL PAGE2 (2) WRITE (NOUT,98) KERR 98 FORMAT (22H0*** SDCIN FATAL ERROR ,I2) RETURN 1 99 RETURN END ================================================ FILE: mis/sdcmm.f ================================================ SUBROUTINE SDCMM (Z,MSET,MSZE,MATRIX,USET,GPL,SIL,SUBNAM) C C THIS ROUTINE WRITES THE EXTERNAL ID AND COMPONENT ID FOR VARIOUS C MATRIX ERROR CONDITIONS. C SCRATCH1 CONTAINS 3 WORDS/ERROR, EACH MESSAGE BEING 1 RECORD C WORD 1 = COLUMN * 10 + ERROR CODE C WORD 2 = INPUT DIAGONAL C WORD 3 = OUTPUT DIAGONAL C SUBROUTINE -MXCID- (NON-SUBSTRUCTURING) IS CALLED TO SUPPLY IDENT. C DATA FOR EACH COLUMN. FOR SUBSTRUCTURING -MXCIDS- IS CALLED - IT C RETURNS TWO WORDS/COLUMN PLUS THE BCD NAME OF THE SUBSTRUCTURES AT C THE START OF CORE. IN EITHER CASE, THE 1ST WORD IS 10*ID + C COMPONENT. C THE SCRATCH FILE IS READ AND THE EXTERNAL ID INDEXED DIRECTLY.E C NOTE - THAT EACH COLUMN MAY GENERATE MORE THAN 1 MESSAGE. C OPEN CORE IS Z(1) TO Z(BUF-1). TWO BUFFERS FOLLOW Z(BUF) C INTEGER BUF,BUF2,SIL,EXIT(8),ERR(14),FILMSG,GPID(4),GPL, 1 IN(3),INER(4),N(7),NAME(2),SUBNAM(2),TYP(6),USET, 2 Z(1) CHARACTER UFM*23,UWM*25 CWKBNB 8/94 CHARACTER*4 CTYP(6) REAL XGPID(4), XIN(3) CWKBNE 8/94 CWKBI 8/94 EQUIVALENCE (CTYP,TYP), (XGPID,GPID), (XIN,IN) COMMON /XMSSG / UFM,UWM COMMON /SDCQ / NERR(2),NOGLEV,BUF,FILMSG COMMON /NAMES / KRD2,KRR0,SKPN(3), KCL2 COMMON /SYSTEM/ KSYSTM(69) EQUIVALENCE (KSYSTM(1),NBUFSZ),(KSYSTM(2),IOUT), 1 (KSYSTM(69),ISUBST) DATA ERR / 4HNULL, 4HCOL., 4HZERO, 4HDIAG, 4HNEG., 4HDIAG, 1 4HSING, 4HTEST, 4HBAD , 4HCOL., 4HNON-, 4HCONS, 2 4HZERO, 4HDIAG/ DATA INER / 4HINPU, 2HT , 4HDECM, 2HP / DATA EXIT / 4HCONT, 4HINUE, 4HAT E, 4HND , 4HAT S, 4HTART, 1 4HIN D, 4HECMP/ DATA NAME / 4HSDCM, 2HM / DATA IBLK / 4H / C BUF2 = BUF + NBUFSZ N(1) = 0 N(2) = 0 N(3) = 0 N(4) = 0 N(5) = 0 N(6) = 0 N(7) = 0 IF (BUF .LE. 0) GO TO 50 C C GENERATE EXTERNAL ID C IF (ISUBST .EQ. 0) GO TO 5 C C SUBSTRUCTURING - READ EQSS FILE ON THE SOF C C 4 BUFFERS NEEDED C I = BUF - 2*NBUFSZ IF (I .LE. 3*MSZE) GO TO 50 NWDS = 2 CALL MXCIDS (*50,Z,MSET,MSZE,NWDS,USET,I,SUBNAM) NSTART = I - 1 GO TO 7 C 5 NSTART = 0 NWDS = 1 C C 2 BUFFERS NEEDED C CALL MXCID (*50,Z,MSET,MSZE,NWDS,USET,GPL,SIL,BUF) C 7 CALL OPEN (*110,FILMSG,Z(BUF2),KRR0) CALL PAGE2 (3) WRITE (IOUT,10) UWM 10 FORMAT (A25,' 2377A, MATRIX CONDITIONING ERRORS GIVEN WITH ', 1 'EXTERNAL ID', /5X,'GID - C INPUT-DIAG. DECOMP-DIAG.', 2 6X,'TYPE',17X,'SUBSTRUCTURE') C ASSIGN 30 TO IRET TYP(5) = IBLK TYP(6) = IBLK IF (ISUBST.NE.0) ASSIGN 27 TO IRET C C LOOP ON MESSAGES - 0 COLUMN IS FLAG TO QUIT C 20 CALL FREAD (FILMSG,IN,3,1) IF (IN(1) .EQ. 0) GO TO 200 I = IN(1)/10 J = IN(1) - I*10 L = NSTART + I*NWDS GPID(1) = Z(L)/10 GPID(2) = Z(L) - GPID(1)*10 GPID(3) = IN(2) GPID(4) = IN(3) C C INTERNAL FUNCTION C 25 CONTINUE IF (J.LE.0 .OR. J.GT.7) GO TO 100 K = 2*J - 1 TYP(1) = ERR(K) TYP(2) = ERR(K+1) K = 1 IF (J.GT.1 .AND. J.LT.7) K = 3 TYP(3) = INER(K ) TYP(4) = INER(K+1) N(J) = N(J) + 1 CALL PAGE2 (2) GO TO IRET, (27,30,80) C 27 TYP(5) = Z(2*L-1) TYP(6) = Z(2*L ) 30 CONTINUE CWKBR 8/94 WRITE (IOUT,40) GPID,TYP WRITE ( IOUT, 40 ) GPID(1), GPID(2), XGPID(3), XGPID(4), CTYP 40 FORMAT (1H0,I9,2H -,I2,1P,2E14.6,3X,2A5,2H/ ,A4,A2,6HMATRIX,2X, 1 2A4) GO TO 20 C C INSUFFICIENT CORE IN -MATCID- C 50 CALL PAGE2 (3) WRITE (IOUT,60) UWM 60 FORMAT (A25,' 2377B, MATRIX CONDITIONING ERRORS GIVEN WITH ', 1 'INTERNAL ID', /,5X,'COLUMN INPUT DIAG. DECOMP-DIAG.', 2 6X,'TYPE') C CALL OPEN (*110,FILMSG,Z(BUF2),KRR0) ASSIGN 80 TO IRET C C LOOP C 70 CONTINUE CALL FREAD (FILMSG,IN,3,1) IF (IN(1) .EQ. 0) GO TO 200 I = IN(1)/10 J = IN(1) - I*10 IN(1) = I GO TO 25 C 80 CONTINUE CWKBR 8/94 WRITE (IOUT,90) IN,TYP WRITE (IOUT,90) IN(1), XIN(2), XIN(3), CTYP 90 FORMAT (1H0,I8,1P,2E14.6,3X,2A5,2H/ ,A4,A2,6HMATRIX,2X,2A4) GO TO 70 C C ILLEGAL DATA C 100 CALL MESAGE (7,FILMSG,NAME) GO TO 200 C C SCRATCH FILE NOT AVAILABLE C 110 CALL MESAGE (1,FILMSG,NAME) C C ALL DONE, SUMMARIZE C 200 CALL PAGE2 (11) WRITE (IOUT,210) MATRIX,MSZE,N 210 FORMAT (1H0,3X,10HFOR MATRIX,I4,6H, SIZE,I8,/I9,13H NULL COLUMNS, 1 /I9,15H ZERO DIAGONALS, /I9,19H NEGATIVE DIAGONALS, /I9, 2 31H SINGULARITY TOLERANCE EXCEEDED, /I9,12H BAD COLUMNS, /I9, 3 24H NONCONSERVATIVE COLUMNS, /I9,23H ZERO DIAGONALS (INPUT)) C C CHECK FOR EXIT CONDITIONS C I = 2*NOGLEV + 1 C C NOTE - NOGLEV OF 4 ALSO HAS NEGATIVE PARM(1) C IF (NOGLEV .EQ. 4) I = 7 J = I + 1 WRITE (IOUT,220) EXIT(I),EXIT(J) 220 FORMAT (1H0,3X,13HABORT CODE = ,2A4) CALL CLOSE (FILMSG,KCL2) RETURN END ================================================ FILE: mis/sdcmps.f ================================================ SUBROUTINE SDCMPS (ZI,ZR,ZD) C C SDCMPS PERFORMS THE TRIANGULAR DECOMPOSITION OF A SYMMETRIC C MATRIX. THE REAL MATRIX INPUT MAY BE SINGLE OR DOUBLE PRECISION. C THE OUTPUT MATRICES HAVE POSITIVE DEFINATE CHECKS AND DIAGONAL C SINGULARITY CHECKS C C IF SYSTEM(57) IS .GT.1 - USED FOR -CLOS-, C .LT.0 - STOP AFTER PREPASS C EXTERNAL LSHIFT ,ANDF ,ORF LOGICAL SPILL ,SPLOUT ,SPLIN ,ROWONE ,OPNSCR ,FIRST INTEGER ABLK ,ANDF ,ANY ,BEGN ,BBLK ,BLK , 1 BUF1 ,BUF2 ,BUF3 ,BUF4 ,BUF5 ,BUF6 , 2 C ,CAVG ,CHLSKY ,CI ,CLOS ,CMAX , 3 COL ,C5MAX ,DBA ,DBC ,DBL ,END , 4 DIAGCK ,DIAGET ,SYS60 ,HICORE ,DBNAME(2) , 5 EOR ,FRSTPC ,GROUPS ,KEY(1) ,ORF ,ROW , 6 PARM ,PCAVG ,PCGROU ,PCMAX ,PCROW , 7 PCSQR ,PDEFCK ,POWER ,PRC ,PREC ,PREVC , 8 RC ,RLCMPX INTEGER S ,SAVG ,SC ,SCRA ,SCRB ,SCRC , 1 SCRD ,SCRDIA ,SCRMSG ,SCR1 ,SCR2 ,SCR3 , 2 SPFLG ,SPROW ,START ,STATFL ,STSCR ,ZI(1) , 3 SX ,SYSBUF ,SUBNAM(3),TYPEA ,TWO24 ,TWO25 , 5 WA ,WB ,WORDS REAL MINDS ,SAVE(4) ,ZR(1) ,DDRR(2) DOUBLE PRECISION DDIA ,DDC ,DDR ,DMANT ,DV , 1 MINDD ,PDEFD ,ZD(1) CHARACTER*10 UNUSE ,ADDI ,UNADD CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /MACHIN/ MACHX COMMON /LHPWX / LHPW(6) ,MTISA COMMON /SFACT / DBA(7) ,DBL(7) ,DBC(7) ,SCR1 ,SCR2 , 1 LCORE ,DDR ,DDC ,POWER ,SCR3 , 2 MINDD ,CHLSKY COMMON /NTIME / NITEMS ,TMIO ,TMBPAK ,TMIPAK ,TMPAK , 1 TMUPAK ,TMGSTR ,TMPSTR ,TMT(4) ,TML(4) COMMON /SYSTEM/ KSYSTM(100) COMMON /NAMES / RDNRW ,RDREW ,WRT ,WRTREW ,REW COMMON /TYPE / PRC(2) ,WORDS(4) ,RLCMPX(4) COMMON /ZZZZZZ/ XNS(1) COMMON /SDCOMX/ ROW ,C ,SPFLG ,START ,FRSTPC , 1 LASTPL ,LASTI ,SC ,IAC ,NZZADR , 2 WA ,WB ,PREVC ,NZZZ ,SPROW , 3 S ,BLK(15) ,ABLK(15) ,BBLK(20) COMMON /SDCQ / NERR(2) ,NOGLEV ,BUF6 ,SCRMSG ,SCRDIA , 1 STSCR ,PDEFCK ,DIAGCK ,DIAGET ,PREC , 2 PARM(4) ,OPNSCR ,FIRST COMMON /PACKX / ITYPE1 ,ITYPE2 ,I1 ,J1 ,INCR1 COMMON /UNPAKX/ ITYPE3 ,I2 ,J2 ,INCR2 EQUIVALENCE (NROW,DBA(3)) ,(TYPEA,DBA(5)) , 1 (JSTR,BLK(5)) ,(COL ,BLK(4)) ,(NTERMS,BLK(6)), 2 (ROW ,KEY(1)) ,(DSR ,DDR ) , 3 (DSC,DDC) ,(MINDS,MINDD ) ,(DDRR(1),RDIA ), 4 (DV,RV) ,(DMANT,RMANT),(DDIA,RDIA),(PDEFD,PDEFR) EQUIVALENCE (KSYSTM( 1),SYSBUF) ,(KSYSTM( 2),NOUT) , 1 (KSYSTM(31),HICORE) ,(KSYSTM(40),NBPW) , 2 (KSYSTM(60),SYS60 ) DATA UNUSE , ADDI /' UNUSED', 'ADDITIONAL' / DATA SUBNAM / 4HSDCM,2HPS, 1H /, 1 NKEY / 6 / ,BEGN/ 4HBEGN /, END/ 4HEND /, 2 TWO24 / 16777216 /, TWO25 / 33554432 / C C STATEMENT FUNCTIONS C NBRWDS(I) = I + NWDS*(I*(I+1))/2 SX(X) = X - SQRT(AMAX1(X*(X+4.0)-CONS,0.0)) - 1.0 MAXC(J) = (SQRT(2.*FNWDS*FLOAT(J))-3.0)/FNWDS C C VAX, UNIVAC, AND ALL WORKSTATIONS - OPEN CORE CAN BE INCREASED C LOCALLY FOR SDCOMP BY SYS60 C X = 1.0 KORCHG = 0 IF (SYS60.EQ.0 .OR. MACHX.EQ.2 .OR. NBPW.GT.36) GO TO 20 KORCHG = SYS60 - HICORE IF (KORCHG .LE. 0) GO TO 20 LCORE = LCORE + KORCHG WRITE (NOUT,10) UIM,SYS60 10 FORMAT (A29,' - OPEN CORE FOR SDCOMP IS INCREASED TO',I8, 1 ' WORDS BY SYSTEM(60)',/) 20 IF (LCORE .LE. 0) CALL MESAGE (-8,0,SUBNAM) C C BUFFER ALLOCATION C BUF1 = LCORE- SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF BUF5 = BUF4 - SYSBUF BUF6 = BUF5 - SYSBUF C C INITIALIZATION AS A FUNCTION OF TYPE OF A MATRIX C RC = 1 IF A IS REAL (2 IF A IS COMPLEX - ILLEGAL) C PREC = 1 IF A IS SINGLE, 2 IF A IS DOUBLE C RC = RLCMPX(TYPEA) IF (RC .NE. 1) GO TO 1600 STATFL= IABS(KSYSTM(57)) PREC = PRC(TYPEA) NWDS = WORDS(TYPEA) FNWDS = NWDS C C CHECK INPUT PARAMETERS C IF (DBA(2) .NE. DBA(3)) GO TO 1600 ICRQ = NROW + 200 - BUF6 IF (ICRQ .GT. 0) GO TO 1850 C C INITIALIZE POSITIVE DEFINATE CHECKS. FILES SET IN DRIVER C PARM(1) = 0 PARM(3) = SUBNAM(1) PARM(4) = SUBNAM(2) NERR(1) = 0 NERR(2) = 0 IF (PDEFCK .LT. 0) GO TO 50 I = -DIAGET J = 1 - MTISA IF (PREC .EQ. 2) GO TO 30 PDEFR = 2.0E0**I RMANT = 2.0E0**J GO TO 50 30 PDEFD = 2.0D0**I DMANT = 2.0D0**J GO TO 50 50 CONTINUE C C STSCR IS STATUS OF -SCRDIA- FILE AT BUF6 C 0 = NOT OPEN C 1 = READ C 2 = WRITE C STSCR = 2 CALL GOPEN (SCRDIA,ZI(BUF6),WRTREW) SCRA = SCR3 SCRB = IABS(DBC(1)) NOGLEV = 0 IF (NROW .EQ. 1) GO TO 1510 C C GENERAL INITIALIZATION C LOOP = 1 ISPILL= BUF6 - MAX0(100,NROW/100) FCMAX = 0. 60 ISPILL= ISPILL - (LOOP-1)*NROW/100 NSPILL= ISPILL KROW = NROW + 1 ICRQ = (3-LOOP)*NROW/100 - ISPILL IF (ISPILL .LE. 0) GO TO 1850 ZI(ISPILL) = 0 PCGROU= 0 PCAVG = 0 PCSQR = 0 PCMAX = 0 CSQR = 0.0 SAVG = 0 CLOS = ALOG(FLOAT(NROW)) + 5.0 IF (STATFL .GT. 1) CLOS = STATFL PCROW = -CLOS ZI(1) = -NROW DO 70 I = 2,NROW 70 ZI(I) = 0 CALL FNAME (DBA,DBNAME) POWER = 0 SPILL = .FALSE. GROUPS= 0 CONS = 2*ISPILL/NWDS C5MAX = MAXC(ISPILL) DSR = 1.0 DSC = 0. MINDS = 1.E+25 IF (PREC .EQ. 1) GO TO 80 DDR = 1.0D0 DDC = 0.D0 MINDD = 1.D+25 80 CONTINUE CAVG = 0 CMAX = 0 CSPILL= 0.0 C C THE FOLLOWING CODE GENERATES THE ACTIVE COLUMN VECTOR FOR EACH C ROW, SPILL GROUPS AND TIMING AND USER INFORMATION ABOUT THE C DECOMPOSITION C BLK(1) = DBA(1) ABLK(1) = SCRA ABLK(2) = TYPEA ABLK(3) = 0 CALL GOPEN (DBA ,ZI(BUF1),RDREW ) CALL GOPEN (SCRA,ZI(BUF2),WRTREW) ROW = 1 JJ = 0 EOR = 1 C C LSTDIA DETERMINES THE LAST DIAGONAL WRITTEN TO SCRATCH FILE C LSTDIA = 0 C C BEGIN A ROW BY LOCATING THE DIAGONAL ELEMENT C 90 BLK(8) = -1 C C ANY DETERMINES IF ANY STRINGS SKIPPED PRIOR TO DIAGONAL C AND -KK- ALLOWS STRING BEYOND ZERO DIAGONAL TO BE SAVED C ANY = 0 KR = KROW 100 CALL GETSTR (*110,BLK) IF (PREC .EQ. 2) JSTR = 2*(JSTR-1) + 1 KK = NTERMS ANY = COL IF (COL.GT.ROW) GO TO 130 KK = 0 IF (COL+NTERMS-1 .GE. ROW) GO TO 140 CALL ENDGET (BLK) GO TO 100 C C NULL COLUMN FOUND. SAVE COLUMN ID AND SET NOGLEV C 110 KK = -1 IF (ANY .NE. 0) GO TO 130 IF (LSTDIA .LT. ROW) CALL SDCMQ (*710,1,0.,0.,0.D0,0.D0,ROW,ZI) 120 IF (BLK(8) .NE. 1) CALL FWDREC (*1680,BLK) ROW = ROW + 1 IF (ROW .LE. NROW) GO TO 90 GO TO 710 C C ZERO DIAGONAL FOUND. FILL CORE AND POINTERS C 130 COL = ROW ZI(KR ) = COL ZI(KR+1) = 1 ZI(KR+2) = 0 IF (NWDS .EQ. 2) ZI(KR+3) = 0 KR = KR + 2 + NWDS NTERMS = NWDS IF (LSTDIA .GE. ROW) GO TO 140 DDIA = 0.0D0 CALL SDCMQ (*710,7,0.,0.,0.D0,0.D0,ROW,ZI) IF (NOGLEV .GT. 1) GO TO 120 CALL WRITE (SCRDIA,RDIA,NWDS,EOR) LSTDIA = ROW GO TO 180 C C DIAGONAL TERM IS LOCATED -- COMPLETE ENTRIES IN THE FULL COLUMN C VECTOR AND SAVE THE TERMS FROM EACH STRING IN CORE C 140 CONTINUE JSTR = JSTR + (ROW-COL)*NWDS IF (LSTDIA .GE. ROW) GO TO 150 RDIA = XNS(JSTR) IF (PREC .EQ. 2) DDRR(2) = XNS(JSTR+1) IF (NOGLEV .LE. 1) CALL WRITE (SCRDIA,RDIA,NWDS,EOR) LSTDIA = ROW 150 CONTINUE NTERMS = NTERMS - (ROW-COL) COL = ROW 160 ZI(KR ) = COL ZI(KR+1) = NTERMS KR = KR + 2 NSTR = JSTR + NTERMS*NWDS - 1 DO 170 JJ = JSTR,NSTR ZR(KR) = XNS(JJ) KR = KR + 1 170 CONTINUE 180 CONTINUE N = COL + NTERMS - 1 DO 240 J = COL,N IF (ZI(J)) 190,200,230 190 M = IABS(ZI(J)) ZI(J) = ROW IF (M .NE. 1) ZI(J+1) = -(M-1) GO TO 240 200 I = J 210 I = I - 1 IF (I .LE. 0) GO TO 1610 IF (ZI(I)) 220,210,1620 220 M = IABS(ZI(I)) ZI(I) = -(J-I) ZI(J) = ROW LEFT = M - (J-I+1) IF (LEFT .GT. 0) ZI(J+1) = -LEFT GO TO 240 230 IF (ZI(J).GT.ROW .AND. ZI(J).LT.TWO24) ZI(J) = ZI(J) +TWO24 +TWO25 240 CONTINUE ICRQ = KR - ISPILL IF (KR .GE. ISPILL) GO TO 700 C C CHECK IF ZERO DIAGONAL WAS JUST PROCESSED C IF (KK) 270,250,260 250 CALL ENDGET (BLK) CALL GETSTR (*280,BLK) IF (PREC .EQ. 2) JSTR = 2*JSTR - 1 GO TO 160 260 COL = ANY NTERMS = KK KK = 0 GO TO 140 C C EXTRACT ACTIVE COLUMN VECTOR FROM THE FULL COLUMN VECTOR C 270 IF (BLK(8) .NE. 1) CALL FWDREC (*1680,BLK) 280 IAC = KR I = IAC J = ROW LASTPL = -1 290 IF (ZI(J)) 360,1630,300 300 IF (ZI(J)-ROW) 310,320,350 310 ZI(I) = J GO TO 330 320 ZI(I) = -J IF (LASTPL .LT. 0) LASTPL = I - IAC 330 I = I + 1 340 J = J + 1 GO TO 370 350 IF (ZI(J) .LT. TWO24) GO TO 340 IF (ZI(J) .LT. TWO25) GO TO 310 ZI(J) = ZI(J) - TWO25 GO TO 320 360 J = J - ZI(J) 370 IF (J .LE. NROW) GO TO 290 ICRQ = I - ISPILL IF (I .GT. ISPILL) GO TO 700 C = I - IAC CMAX = MAX0(CMAX,C) NAC = IAC + C - 1 IF (LASTPL .LT. 0) LASTPL = C C C MAKE SPILL CALCULATIONS C SPFLG = 0 FC = C START = 2 IF (C .EQ. 1) START = 0 FRSTPC = 0 IF (.NOT. SPILL) GO TO 490 IF (ROW .LT. LSTROW) GO TO 410 C C *3* CURRENT ROW IS LAST ROW OF A SPILL GROUP. DETERMINE IF ANOTHER C SPILL GROUP FOLLOWS AND, IF SO, ITS RANGE C 400 CONTINUE START = 0 IF (C .GT. C5MAX) GO TO 500 SPILL = .FALSE. GO TO 540 C C *2* CURRENT ROW IS NEITHER FIRST NOR LAST IN CURRENT SPILL GROUP. C TEST FOR PASSIVE COL CONDITION. IF SO, TERMINATE SPILL GROUP. C TEST FOR POSSIBLE REDEFINITION OF SPILL GROUP. IF SO, TEST FOR C OVERFLOW OF REDEFINITION TABLE, IF SO, TRY A DIFFERENT STRATEGY C FOR DEFINING S AND REDO PREFACE UP TO A LIMIT OF 3 TIMES. C 410 CONTINUE IF (IABS(ZI(IAC+1))-ROW .LT. CLOS) GO TO 420 ASSIGN 550 TO ISWTCH LSTROW= ROW SPILL = .FALSE. START = 0 IF (NSPILL+2 .LT. BUF6) GO TO 470 GO TO 450 420 ASSIGN 580 TO ISWTCH IF (C .LE. ZI(SPROW)) GO TO 580 JJ = NAC 430 IF (IABS(ZI(JJ)) .LE. LSTROW) GO TO 440 JJ = JJ - 1 GO TO 430 440 SC = JJ - IAC M = SX(FC) IF (SC .LE. M) GO TO 580 IF (NSPILL+2 .LT. BUF6) GO TO 460 450 CONTINUE FCMAX = AMAX1(FCMAX,FLOAT(CMAX)) CALL CLOSE (SCRA,REW) CALL CLOSE (DBA ,REW) LOOP = LOOP + 1 IF (LOOP .LE. 3) GO TO 60 ICRQ = BUF6 - NSPILL - 3 GO TO 1850 460 S = M IJKL = MAX0(IAC,JJ - (SC-M)) LSTROW = IABS(ZI(IJKL)) 470 IF (ZI(NSPILL).NE.0 .AND. ZI(NSPILL).NE.SPROW) NSPILL = NSPILL + 3 ZI(NSPILL ) = SPROW ZI(NSPILL+1) = S ZI(NSPILL+2) = LSTROW IF (ROW-LSTROW) 480,400,1670 480 CONTINUE GO TO ISWTCH, (550,580) C C *1* CURRENT ROW IS NOT PART OF A SPILL GROUP. TEST FOR C CREATION OF A NEW SPILL GROUP C 490 CONTINUE IF (C .LE. C5MAX) GO TO 540 500 SPILL = .TRUE. SPROW = ROW GROUPS= GROUPS + 1 S = MIN0(SX(FC),NROW-SPROW) IF (LOOP .EQ. 1) GO TO 530 JJ = IAC + S - 1 510 IF (IABS(ZI(JJ)) .LE. SPROW+S) GO TO 520 JJ = JJ - 1 GO TO 510 520 S = JJ - IAC + 1 IF (LOOP .EQ. 3) S = MIN0(S,SX(FCMAX)) 530 S = MIN0(S,NROW-SPROW) LSTROW = IABS(ZI(IAC+S-1)) SPFLG = S FRSTPC = LSTROW SAVG = SAVG + S GO TO 580 C C TEST FOR CONDITION IN WHICH PASSIVE COLUMNS ARE CREATED C 540 COL = IABS(ZI(IAC+1)) IF (ROW-PCROW.LT.CLOS .OR. C.LT.CLOS/2 .OR. COL-ROW.LT.CLOS) 1 GO TO 580 C C CREATE PASSIVE COLUMNS BY CHANGING THEIR FIRST C APPEARANCE IN THE FULL COLUMN VECTOR C 550 FRSTPC= 2 PCROW = ROW PCAVG = PCAVG + C - 1 PCSQR = PCSQR + (C-1)**2 PCMAX = MAX0(PCMAX,C-1) PCGROU= PCGROU + 1 NAC = IAC + C - 1 IJKL = IAC + 1 DO 570 I = IJKL,NAC JJ = IABS(ZI(I)) IF (ZI(JJ) .LE. ROW) GO TO 560 ZI(JJ) = MIN0(ANDF(ZI(JJ),TWO24-1),COL) GO TO 570 560 ZI(JJ) = COL 570 CONTINUE C C WRITE ACTIVE COLUMN VECTOR C 580 IF (NOGLEV .GT. 1) GO TO 630 CALL WRITE (SCRA,KEY,NKEY,0) CALL WRITE (SCRA,ZI(IAC),C,1) C C WRITE ROW OF INPUT MATRIX. -IAC- POINTS TO END OF OUTPUT C ABLK(8) = -1 ABLK(12) = ROW KR = KROW 590 ABLK(4)= ZI(KR) NBRSTR = ZI(KR+1) KR = KR + 2 600 CALL PUTSTR (ABLK) ABLK(7) = MIN0(ABLK(6),NBRSTR) JSTR = ABLK(5) IF (PREC .EQ. 2) JSTR = 2*JSTR - 1 NSTR = JSTR + ABLK(7)*NWDS - 1 DO 610 JJ = JSTR,NSTR XNS(JJ) = ZR(KR) KR = KR + 1 610 CONTINUE IF (KR .GE. IAC) GO TO 620 CALL ENDPUT (ABLK) IF (ABLK(7) .EQ. NBRSTR) GO TO 590 ABLK(4) = ABLK(4) + ABLK(7) NBRSTR = NBRSTR - ABLK(7) GO TO 600 620 ABLK(8) = 1 CALL ENDPUT (ABLK) C C ACCUMULATE TIMING AND STATISTICS INFORMATION C 630 CAVG = CAVG + C CSQR = CSQR + C**2 IF (SPILL) CSPILL = CSPILL + C**2 ZI(ROW) = C IF (ROW .EQ. NROW) GO TO 710 ROW = ROW + 1 GO TO 90 C C HERE WHEN ALL ROWS PROCESSED -- CLOSE FILES AND, IF SINGULAR C MATRIX, PRINT SINGULAR COLUMNS AND GIVE ALTERNATE RETURN C 700 PARM(1) = -8 PARM(2) = ICRQ NOGLEV = 2 710 CALL CLOSE (SCRA,REW) CALL CLOSE (DBA ,REW) CALL CLOSE (SCRDIA,REW) C C CALCULATE TIME ESTIMATE, PRINT USER INFORMATION AND C CHECK FOR SUFFICIENT TIME TO COMPLETE DECOMPOSITION C IF (GROUPS .NE. 0) SAVG = SAVG/GROUPS SAVG = MAX0(SAVG,1) SAVE(1) = 0.5*TMT(TYPEA)*CSQR*1.0E-6 SAVE(2) = 0.5*(TMPSTR+TMGSTR)*FLOAT(PCSQR)*1.E-6 SAVE(3) = TMPSTR*FLOAT(CAVG)*1.E-6 SAVE(4) = TMIO*(FNWDS+1.0)*CSPILL/FLOAT(SAVG)*1.0E-6 MORCOR = NBRWDS(CMAX) - ISPILL + 1 C CAVG = CAVG/NROW IF (PCGROU .NE. 0) PCAVG = PCAVG/PCGROU CALL TMTOGO (IJKL) JKLM = SAVE(1) + SAVE(2) + SAVE(3) + SAVE(4) + 1.0 C IF (DBC(1) .GT. 0) CALL PAGE2 (9) UNADD = UNUSE IF (MORCOR .GT. 0) UNADD = ADDI IF (DBC(1) .GT. 0) WRITE (NOUT,720) UIM, DBNAME, NROW, 1 JKLM, CAVG, PCAVG, GROUPS, SAVG, 2 UNADD, MORCOR, CMAX, PCMAX, PCGROU, LOOP 720 FORMAT (A29,' 3023 - PARAMETERS FOR SYMMETRIC DECOMPOSITION OF ', 1 'DATA BLOCK ',2A4,6H ( N = , I5, 2H ) , / 2 14X, 17H TIME ESTIMATE = , I7, 17H C AVG = , I6, 3 17H PC AVG = , I6,18H SPILL GROUPS = , I6, 4 17H S AVG = , I6, / 5 14X, A10 , 7H CORE = , I7, 17H WORDS C MAX = , I6, 6 17H PCMAX = , I6,18H PC GROUPS = , I6, 7 17H PREFACE LOOPS = , I6 ) IF (MORCOR .GT. 0) WRITE (NOUT,730) 730 FORMAT (15X,'(FOR OPTIMIZED OPERATION)') IF (DBC(1) .GT. 0) WRITE (NOUT,740) UIM,SUBNAM(1),SUBNAM(2),SAVE 740 FORMAT (A29,' 2378,',A4,A3,' ESTIMATE OF CPU TIME FOR MT =', 1 1P,E10.3,/18X,'PASSIVE COL. = ',E10.3,14X,'ACTIVE COL. =', 2 E10.3, /25X,'SPILL = ',E10.3) C C ESTIMATE FBS TIME AT ONE PASS, 1 LOAD C SAVE(1) = 2.0*FLOAT(NROW)*CAVG*(TMT(TYPEA)+TMPSTR)*1.E-6 IF (DBC(1) .GT. 0) WRITE (NOUT,750) SAVE(1) 750 FORMAT (10X,41HESTIMATE FOR FBS, ONE PASS AND ONE LOAD =,1P,E10.3) C IF (JKLM .GE. IJKL) GO TO 1840 IF (NOGLEV .GT. 1) GO TO 1880 IF (KSYSTM(57) .LT. 0) GO TO 1880 C C WRITE A END-OF-MATRIX STRING ON THE PASSIVE COLUMN FILE C CALL GOPEN (SCRB,ZI(BUF2),WRTREW) BBLK(1) = SCRB BBLK(2) = TYPEA BBLK(3) = 0 BBLK(8) = -1 CALL PUTSTR (BBLK) BBLK(4) = NROW + 1 BBLK(7) = 1 BBLK(8) = 1 CALL ENDPUT (BBLK) CALL CLOSE (SCRB,REW) SUBNAM(3) = BEGN CALL CONMSG (SUBNAM,3,0) C C THE STAGE IS SET AT LAST TO PERFORM THE DECOMPOSITION - C SO LETS GET THE SHOW UNDERWAY C CALL GOPEN (SCRA,ZI(BUF1),RDREW ) CALL GOPEN (SCRB,ZI(BUF2),RDREW ) CALL GOPEN (DBL ,ZI(BUF3),WRTREW) CALL GOPEN (SCRDIA,ZI(BUF6),RDREW) STSCR = 1 SCRC = SCR1 SCRD = SCR2 IF (ZI(NSPILL) .NE. 0) NSPILL = NSPILL + 3 ZI(NSPILL) = NROW + 1 SPLIN = .FALSE. SPLOUT = .FALSE. SPILL = .FALSE. IF (GROUPS .NE. 0) SPILL = .TRUE. NZZZ = ORF(ISPILL-1,1) ROWONE = .FALSE. DBL(2) = 0 DBL(6) = 0 DBL(7) = LSHIFT(1,NBPW-2 - (NBPW-32)) C C THIS 'NEXT TO SIGN' BIT WILL BE PICKED UP BY WRTTRL. ADD (NBPW-32) C SO THAT CRAY, WITH 48-BIT INTEGER, WILL NOT GET INTO TROUBLE C BLK(1) = DBL(1) BLK(2) = TYPEA BLK(3) = 1 WA = NZZZ WB = WA PREVC = 0 BBLK(8)= -1 CALL GETSTR (*1690,BBLK) KSPILL = ISPILL C C READ KEY WORDS AND ACTIVE COLUMN VECTOR FOR CURRENT ROW C 800 NAME = SCRA IF (SPLIN) NAME = SCRD CALL FREAD (NAME,KEY,NKEY,0) IAC = C*NWDS + 1 CALL FREAD (NAME,ZI(IAC),C,1) NAC = IAC + C - 1 IF (ZI(IAC) .LT. 0) PREVC = 0 IF (SPLIN) GO TO 840 C C READ TERMS FROM THE INPUT MATRIX C CALL FREAD (SCRDIA,RDIA,NWDS,EOR) ABLK(8) = -1 CALL GETSTR (*1860,ABLK) N = IAC - 1 DO 810 I = 1,N ZR(I) = 0. 810 CONTINUE CALL SDCINS (*1830,ABLK,ZI(IAC),C,ZR,ZD) C C IF DEFINED, MERGE ROW FROM PASSIVE COLUMN FILE C 820 IF (ROW-BBLK(4)) 850,830,1700 830 CALL SDCINS (*1830,BBLK,ZI(IAC),C,ZR,ZD) BBLK(8) = -1 CALL GETSTR (*1710,BBLK) GO TO 820 C C READ CURRENT PIVOT ROW FROM SPILL FILE. IF LAST ROW, CLOSE FILE C 840 PREVC = 0 CALL FREAD (SCRD,ZR,C*NWDS,1) IF (ROW .LT. LSTSPL) GO TO 850 CALL CLOSE (SCRD,REW) C C IF 1ST ROW OF A NEW SPILL GROUP, OPEN SCRATCH FILE TO WRITE C 850 IF (ROWONE) GO TO 880 IF (SPLOUT) GO TO 950 IF (SPFLG .EQ. 0) GO TO 950 SPLOUT = .TRUE. CALL GOPEN (SCRC,ZI(BUF4),WRTREW) SPROW = ROW S = SPFLG LSTROW = FRSTPC FRSTPC = 0 C C IF S WAS REDEFINED, GET NEW DEFINITION C DO 860 I = KSPILL,NSPILL,3 IF (ROW-ZI(I)) 860,870,880 860 CONTINUE GO TO 880 870 S = ZI(I+1) LSTROW = ZI(I+2) KSPILL = I + 3 C C WRITE ANY TERMS ALREADY CALCULATED WHICH ARE C BEYOND THE RANGE OF THE CURRENT SPILL GROUP C 880 IF (.NOT. SPLOUT) GO TO 950 N = 0 IJKL = NAC 890 IF (IABS(ZI(IJKL)) .LE. LSTROW) GO TO 900 IJKL = IJKL - 1 GO TO 890 900 IJKL = IJKL + 1 IF (IJKL .GT. NAC) GO TO 920 DO 910 I = IJKL,NAC IF (ZI(I) .GT. 0.) N = N + 1 910 CONTINUE N = NWDS*N*(N+1)/2 920 CALL WRITE (SCRC,N,1,0) CALL WRITE (SCRC,ZR(NZZZ-N),N,1) C C MOVE WA TO ACCOUNT FOR ANY TERMS JUST WRITTEN C IF (N .EQ. 0) GO TO 950 J = NZZZ I = NZZZ - N IF ((NZZZ-WA) .EQ. N) GO TO 940 930 J = J - 1 I = I - 1 ZR(J) = ZR(I) IF (I .GT. WA) GO TO 930 940 WA = J C C IF THE PIVOTAL ROW DID NOT COME FROM THE SPILL FILE, IT IS CREATED C 950 IF (SPLIN) GO TO 1180 I = IAC L = WA IF (PREC .EQ. 2) L = (WA-1)/2 + 1 IF (TYPEA .EQ. 2) GO TO 1060 C C CREATE PIVOT ROW IN RSP, ACCUMULATE DETERMINANT AND MIN DIAGONAL C IF (ZI(IAC) .LT. 0) GO TO 980 DO 970 J = 1,C IF (ZI(I) .LT. 0) GO TO 960 ZR(J) = ZR(J) + ZR(L) L = L + 1 960 I = I + 1 970 CONTINUE 980 CONTINUE C C CHECK DIAGONAL AND CORRECT C IF (ZR(1) .EQ. 0.0) CALL SDCMQ (*1870,2,RDIA,ZR(1),0,0,ROW,ZI) 990 IF (ABS(DSR) .LT. 10.) GO TO 1000 DSR = DSR/10. POWER = POWER + 1 GO TO 990 1000 IF (ABS(DSR) .GT. 0.1) GO TO 1010 DSR = DSR*10. POWER = POWER - 1 GO TO 1000 1010 DSR = DSR*ZR(1) MINDS = AMIN1(ZR(1),MINDS) C C PERFORM MATRIX COND. CHECKS - S.P. REAL C IF (ZR(1)) 1020,1030,1050 1020 I = 3 GO TO 1040 1030 I = 2 1040 CALL SDCMQ (*1870,I,RDIA,ZR(1),0,0,ROW,ZI) C 1050 IF (DIAGCK .LT. 0) GO TO 1170 IF (RDIA .EQ. 0.0) RDIA = ZR(1) IF (RDIA .EQ. ZR(1)) GO TO 1170 RV = ABS(ZR(1)/RDIA ) IF (RV .GT. 1.001E0) CALL SDCMQ (*1870,6,RDIA,ZR(1),0,0,ROW,ZI) RV = RMANT/RV IF (RV .GT. PDEFR) CALL SDCMQ (*1870,4,RDIA,ZR(1),0,0,ROW,ZI) GO TO 1170 C C CREATE PIVOT ROW IN RDP, ACCUMULATE DETERMINANT AND MIN DIAGONAL C 1060 CONTINUE IF (ZI(IAC) .LT. 0) GO TO 1090 DO 1080 J = 1,C IF (ZI(I) .LT. 0) GO TO 1070 ZD(J) = ZD(J) + ZD(L) L = L + 1 1070 I = I + 1 1080 CONTINUE 1090 CONTINUE C C CHECK DIAGONAL AND CORRECT C IF (ZD(1) .EQ. 0.0D0) CALL SDCMQ (*1870,2,0,0,DDIA,ZD(1),ROW,ZI) 1100 IF (DABS(DDR) .LT. 10.0D0) GO TO 1110 DDR = DDR/10.D0 POWER = POWER + 1 GO TO 1100 1110 IF (DABS(DDR) .GT. 0.1D0) GO TO 1120 DDR = DDR*10.D0 POWER = POWER - 1 GO TO 1110 1120 DDR = DDR*ZD(1) MINDD = DMIN1(ZD(1),MINDD) C C PERFORM MATRIX COND. CHECKS - D.P. REAL C IF (ZD(1)) 1130,1140,1160 1130 I = 3 GO TO 1150 1140 I = 2 1150 CALL SDCMQ (*1870,I,0,0,DDIA,ZD(1),ROW,ZI) C 1160 IF (DIAGCK .LT. 0) GO TO 1170 IF (DDIA .EQ. 0.0D0) DDIA = ZD(1) IF (DDIA .EQ. 0.0D0) GO TO 1170 DV = DABS(ZD(1)/DDIA) IF (DV .GT. 1.001D0) CALL SDCMQ (*1870,6,0,0,DDIA,ZD(1),ROW,ZI) DV = DMANT/DV IF (DV .GT. PDEFD) CALL SDCMQ (*1870,4,0,0,DDIA,ZD(1),ROW,ZI) C C CALCULATE WB C 1170 CONTINUE 1180 LASTI = 1 IF (START .EQ. 0) GO TO 1260 IF (SPLIN ) GO TO 1190 IF (SPLOUT) GO TO 1200 CI = C SC = C GO TO 1230 1190 CI = C - (START-2) SC = CI JJ = NAC IF (SPLOUT) GO TO 1210 IF (CI .GT. C5MAX) GO TO 1720 GO TO 1230 1200 CI = C SC = LSTROW - SPROW JJ = MIN0(NAC,IAC+START+SC-2) 1210 IF (IABS(ZI(JJ)) .LE. LSTROW) GO TO 1220 JJ = JJ - 1 GO TO 1210 1220 SC = JJ - IAC - START + 2 IF (SC .GT. 0) GO TO 1230 SC = 0 WB = WA GO TO 1240 1230 NTERMS = SC*(CI-1) - (SC*(SC-1))/2 NWORDS = NTERMS*NWDS WB = NZZZ - NWORDS IF (PREC .EQ. 2) WB = ORF(WB-1,1) IF (WB .LT. IAC+C) GO TO 1660 IF (WB .GT. WA+NWDS*PREVC) GO TO 1730 1240 CONTINUE IF (SPLIN .AND. ROW.EQ.LSTSPL) SPLIN = .FALSE. LASTI = MIN0(START+SC-1,C) IF (SC .EQ. 0) GO TO 1260 C C NOW CALCULATE CONTIBUTIONS FROM CURRENT PIVOT ROW TO C SECOND TERM IN EQUATION (4) IN MEMO CWM-19. NOTE-TERMS ARE C CALCULATED ONLY FOR ROW/COL COMBINATIONS IN THE CURRENT SPILL C GROUP C IF (TYPEA .EQ. 2) GO TO 1250 CALL SDCOM1 (ZI,ZI(IAC),ZR(WA+PREVC),ZR(WB)) GO TO 1260 1250 CALL SDCOM2 (ZI,ZI(IAC),ZR(WA+2*PREVC),ZR(WB)) C C SHIP PIVOT ROW OUT TO EITHER MATRIX OR SPILL FILE C 1260 IF (LASTI .EQ. C) GO TO 1300 IF (.NOT. SPLOUT) GO TO 1640 C C PIVOT ROW GOES TO SPILL FILE - SET INDEX WHERE TO BEGIN NEXT AND C WRITE ROW AND ACTIVE COLUMN VECTOR C IJKL = SPFLG II = FRSTPC SPFLG = 0 FRSTPC= 0 START = LASTI + 1 CALL WRITE (SCRC,KEY,NKEY, 0) CALL WRITE (SCRC,ZI(IAC),C,1) CALL WRITE (SCRC,ZR,C*NWDS,1) IF (ROW .LT. LSTROW) GO TO 1410 C C LAST ROW OF CURRENT SPILL GROUP - REWIND FILE AND OPEN IT TO READ. C IF ANOTHER SPILL GROUP, SET IT UP C CALL CLOSE (SCRC,REW) JKLM = SCRC SCRC = SCRD SCRD = JKLM CALL GOPEN (SCRD,ZI(BUF5),RDREW) LSTSPL = ROW SPLIN = .TRUE. SPLOUT = .FALSE. IF (IJKL .EQ. 0) GO TO 1290 SPLOUT = .TRUE. SPROW = ROW S = IJKL LSTROW = II CALL GOPEN (SCRC,ZI(BUF4),WRTREW) C C IF S WAS REDEFINED, GET NEW DEFINITION C DO 1270 I = KSPILL,NSPILL,3 IF (ROW-ZI(I)) 1270,1280,1290 1270 CONTINUE GO TO 1290 1280 S = ZI(I+1) LSTROW = ZI(I+2) KSPILL = I + 3 C C READ ANY TERMS SAVED FROM PREVIOUS SPILL GROUP C 1290 IF (ROW .EQ. NROW) GO TO 1500 CALL FREAD (SCRD,N,1,0) WA = NZZZ - N CALL FREAD (SCRD,ZR(WA),N,1) ROWONE = .TRUE. GO TO 800 C C PIVOT ROW GOES TO OUTPUT FILE - IF REQUIRED, CONVERT TO CHOLESKY C 1300 IF (ROW .NE. DBL(2)+1) GO TO 1650 IF (CHLSKY .EQ. 0) GO TO 1340 IF (PREC .EQ. 2) GO TO 1320 IF (ZR(1) .LT. 0.) CALL SDCMQ (*1870,3,RDIA,ZR(1),0,0,ROW,ZI) ZR(1) = SQRT(ZR(1)) IF (C .EQ. 1) GO TO 1340 DO 1310 I = 2,C ZR(I) = ZR(I)*ZR(1) 1310 CONTINUE GO TO 1340 1320 IF (ZD(1) .LT. 0.0D0) CALL SDCMQ (*1870,3,0,0,DDIA,ZD(1),ROW,ZI) ZD(1) = DSQRT(ZD(1)) IF (C .EQ. 1) GO TO 1340 DO 1330 I = 2,C ZD(I) = ZD(I)*ZD(1) 1330 CONTINUE C C WRITE THE ROW WITH PUTSTR/ENDPUT C 1340 CALL SDCOUT (BLK,0,ZI(IAC),C,ZR,ZR) C C IF ACTIVE COLUMNS ARE NOW GOING PASSIVE, MERGE ROWS IN CORE C WITH THOSE NOW ON THE PC FILE THUS CREATING A NEW PC FILE C IF (FRSTPC .EQ. 0) GO TO 1400 IF (SPLIN .OR. SPLOUT) GO TO 1740 CALL GOPEN (SCRC,ZI(BUF4),WRTREW) BLK(1) = SCRC BLK(3) = 0 IJKL = IAC + 1 DO 1370 I = IJKL,NAC 1350 IF (IABS(ZI(I)) .LE. BBLK(4)) GO TO 1360 CALL CPYSTR (BBLK,BLK,1,0) BBLK(8) = -1 CALL GETSTR (*1750,BBLK) GO TO 1350 1360 CI = NAC - I + 1 CALL SDCOUT (BLK,0,ZI(I),CI,ZR(WB),ZR(WB)) WB = WB + CI*NWDS 1370 CONTINUE ICRQ = WB - ISPILL IF (WB .GT. ISPILL) GO TO 1850 1380 CALL CPYSTR (BBLK,BLK,1,0) IF (BBLK(4) .EQ. NROW+1) GO TO 1390 BBLK(8) = -1 CALL GETSTR (*1760,BBLK) GO TO 1380 1390 CALL CLOSE (SCRB,REW) CALL CLOSE (SCRC,REW) I = SCRB SCRB = SCRC SCRC = I CALL GOPEN (SCRB,ZI(BUF2),RDREW) BBLK(1) = SCRB BBLK(8) = -1 CALL GETSTR (*1770,BBLK) BLK(1) = DBL(1) BLK(3) = 1 C C ACCUMULATE MCB INFORMATION FOR PIVOT ROW C 1400 CONTINUE NWORDS = C*NWDS DBL(2) = DBL(2) + 1 DBL(6) = MAX0(DBL(6),NWORDS) DBL(7) = DBL(7) + NWORDS C C PREPARE TO PROCESS NEXT ROW. C 1410 IF (ROW .EQ. NROW) GO TO 1500 PREVC = C - 1 ROWONE= .FALSE. WA = WB GO TO 800 C C CLOSE FILES AND PUT END MESSAGE IN RUN LOG. C 1500 SUBNAM(3) = END CALL CONMSG (SUBNAM,3,0) GO TO 1870 C C DECOMPOSE A 1X1 MATRIX C 1510 ITYPE1= TYPEA ITYPE2= TYPEA ITYPE3= TYPEA POWER = 0 I1 = 1 J1 = 1 I2 = 1 J2 = 1 INCR1 = 1 INCR2 = 1 CALL GOPEN (DBA,ZI(BUF1),RDREW) PARM(2) = DBA(1) CALL UNPACK (*1570,DBA,ZR) CALL CLOSE (DBA,REW) CALL GOPEN (DBL,ZI(BUF1),WRTREW) DBL(2) = 0 DBL(6) = 0 IF (TYPEA.EQ.2) GO TO 1520 MINDS = ZR(1) DSR = ZR(1) IF (ZR(1)) 1530,1540,1560 1520 MINDD = ZD(1) DDR = ZD(1) IF (ZD(1)) 1530,1540,1560 C 1530 I = 3 GO TO 1550 1540 I = 2 1550 CALL SDCMQ (*1870,I,ZR,ZR,ZD,ZD,1,ZI) 1560 CALL PACK (ZR,DBL,DBL) CALL CLOSE (DBL,REW) GO TO 1880 C C 1X1 NULL COLUMN C 1570 CALL SDCMQ (*1870,1,0.,0.,0.D0,0.D0,1,ZI) GO TO 1870 C C VARIOUS ERRORS LAND HERE C 1600 CALL MESAGE (-7,DBA(2),SUBNAM) 1610 KERR = 1045 GO TO 1800 1620 KERR = 1046 GO TO 1800 1630 KERR = 1051 GO TO 1800 1640 KERR = 1311 GO TO 1800 1650 KERR = 1320 GO TO 1800 1660 KERR = 1288 GO TO 1800 1670 KERR = 1065 GO TO 1800 1680 KERR = 1034 GO TO 1800 1690 KERR = 1204 GO TO 1800 1700 KERR = 1215 GO TO 1800 1710 KERR = 1216 GO TO 1800 1720 KERR = 1288 GO TO 1800 1730 KERR = 1289 GO TO 1800 1740 KERR = 1330 GO TO 1800 1750 KERR = 1333 GO TO 1800 1760 KERR = 1340 GO TO 1800 1770 KERR = 1344 GO TO 1800 1800 WRITE (NOUT,1810) SFM,KERR 1810 FORMAT (A25,' 2379, LOGIC ERROR',I6,' IN SDCMPS.') J = 66 WRITE (NOUT,1820) (KEY(I),I=1,J) 1820 FORMAT (36H0 CONTENTS OF / SDCOMX / FOLLOW --, /,(1X,10I12)) 1830 PARM(1) = -37 PARM(2) = 0 PARM(3) = SUBNAM(1) PARM(4) = SUBNAM(2) GO TO 1870 C C INSUFFICIENT TIME C 1840 PARM(1) = -50 PARM(2) = IJKL GO TO 1870 C C INSUFFICIENT CORE C 1850 PARM(1) = -8 PARM(2) = ICRQ GO TO 1870 C C UNEXPECTED NULL COLUMN C 1860 DV = 0.0 CALL SDCMQ (*1870,5,RV,RV,DV,DV,ROW,ZI) C 1870 CALL CLOSE (DBA, REW) CALL CLOSE (SCRA,REW) CALL CLOSE (SCRB,REW) CALL CLOSE (DBL ,REW) 1880 CALL CLOSE (SCRDIA,REW) IF (NERR(1)+NERR(2) .LE. 0) GO TO 1890 CALL GOPEN (SCRMSG,ZI(BUF6),WRT) BBLK(2) = 0 BBLK(3) = 0 BBLK(4) = 0 CALL WRITE (SCRMSG,BBLK(2),3,1) CALL CLOSE (SCRMSG,REW) 1890 CONTINUE IF (KORCHG .GT. 0) LCORE = LCORE - KORCHG RETURN END ================================================ FILE: mis/sdcmq.f ================================================ SUBROUTINE SDCMQ (*,KEY,V1,V,DV1,DV,IC,Z) C C THIS SUBROUTINE CREATES A SCRATCH FILE OF QUEUED SINGULARITY C MESSAGES. EACH MESSAGE IS A GINO RECORD DUE TO POSSIBLE CLOSE C WITHOUT REWIND. C THE -KEY- IS AS FOLLOWS, C 1 - NULL COLUMN - INPUT MATRIX C 2 - ZERO DIAGONAL - DECOMPOSED MATRIX. C 3 - NEGATIVE DIAGONAL - DECOMPOSED MATRIX C 4 - SINGULARITY TOLERANCE FAILURE - DECOMPOSED MATRIX. C 5 - UNEXPECTED NULL COLUMN OR END OF COLUMN - ABORT IMMIDIATELY. C 6 - NONCONSERVATIVE COLUMN D/A.GT.1.001 C 7 - ZERO DIAGONAL - INPUT MATRIX. C OTHER ARGUMENTS ARE C $ - NONSTANDARD RETURN IF DECOMPOSITION IS TO BE ABORTED. C Z - OPEN CORE. BUFFER LOCATIONS RELATIVE TO Z(1). C V - RSP VALUE OF ENTRY IN ERROR (DV IS DOUBLE PRECISION). C V1 - INPUT VALUE OF DIAGONAL (DV1 IS DOUBLE PRECISION VERSION). C IC - COLUMN NUMBER IN ERROR. C THE ARGUMENTS ARE NOT CHANGED. C /SDCQ/ CONTAINS CONSTANT DATA. C FILCUR - CURRENT FILE USING BUFFER FOR SCRATCH FILE. NEGATIVE IF C NONE, ZERO IF FILSCR IS TO REMAIN OPEN C STSCR - GINO FILE STATUS FOR REOPENING FILCUR (1=READ,2=WRITE) C FILSCR - SCRATCH FILE NAME. C BUF - BUFFER LOCATION RELATIVE TO Z(1). C NERR(2)- COUNT OF NUMBER OF ERROR CALLS ( (1)=ES, (2)=PD CHECK) C DIAGCK - EXIT FLAG FOR KEY=4 -- 0=NONFATAL, +N = MAX.-MESSAGES C WITHOUT ABORTING, -N = IMMEDIATE ABORT C IPREC - 1=RSP, USE V. 2=RDP, USE DV. C PDEFCK - EXIT FLAG FOR KEY=3. 0 = NONFATAL IF -V, FATAL AT END C OF DECOMP FOR V=0. +N = MAX-MESSAGES WITHOUT ABORTING. C -N = IMMEDIATE ABORT C NOGLEV - NOGO CODE. C = 0, NO FATAL ERRORS, C = 1, ABORT AT END OF DECOMP, C = 2, ABORT AT END OF PREPASS C = 3, ABORT,NONSTD RET. C = 4, INTERNAL ERRORS. ABORT AT MAJOR CHECK-POINTS. C----- LOGICAL OPNSCR,FIRST INTEGER BUF,DIAGCK,FILCUR,FILERR,FILSCR,IV(3),NAME(2), 1 PARM,PDEFCK,STSCR,Z(1) DOUBLE PRECISION DV,DV1 CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /SDCQ / NERR(2),NOGLEV,BUF,FILSCR,FILCUR,STSCR,PDEFCK, 1 DIAGCK,DIAGET,IPREC,PARM(4),OPNSCR,FIRST COMMON /SFACT / SKPSF(32),ICHLY COMMON /NAMES / KRD2,KRR0,KWT3,KWR1, SKPN,KCL2 COMMON /SYSTEM/ ISB,IOUT EQUIVALENCE (RV1,IV(2)),(RV,IV(3)) DATA NAME / 4HSDCM,2HQ / C IF (FILCUR .GT. 0) CALL CLOSE (FILCUR,KCL2) FILERR = FILSCR IF (OPNSCR) GO TO 10 IF (.NOT.FIRST) CALL OPEN (*200,FILSCR,Z(BUF),KWT3) IF (FIRST) CALL OPEN (*200,FILSCR,Z(BUF),KWR1) FIRST = .FALSE. OPNSCR = .TRUE. C 10 IV(1) = IC*10 + KEY IF (IPREC .EQ. 1) GO TO 14 RV = DV RV1 = DV1 GO TO 17 14 RV = V RV1 = V1 17 CONTINUE CALL WRITE (FILSCR,IV,3,1) C C CONVERT FILES TO ORIGINAL STATUS C IF (FILCUR .EQ. 0) GO TO 20 CALL CLOSE (FILSCR,KCL2) OPNSCR = .FALSE. IF (FILCUR .LE. 0) GO TO 20 FILERR = FILCUR C C READ MODE ON CURRENT FILE C IF (STSCR .EQ. 1) I = KRD2 C C WRITE MODE ON CURRENT FILE C IF (STSCR .EQ. 2) I = KWT3 CALL OPEN (*200,FILCUR,Z(BUF),I) C C DETERMINE ABORT FLAG C 20 CONTINUE GO TO (65,30,40,50,60,50,50), KEY C C ZERO DIAGONAL - DECOMPOSED MATRIX C 30 NOGLEV = MAX0(NOGLEV,1) IF (IPREC .EQ. 1) V = 1.0 IF (IPREC .EQ. 2) DV = 1.D0 GO TO 70 C C NEGATIVE DIAGONAL C 40 CONTINUE IF (ICHLY .NE. 1) GO TO 45 IF (IPREC .EQ. 1) V =-V IF (IPREC .EQ. 2) DV =-DV 45 IF (PDEFCK .EQ. 0) GO TO 70 NOGLEV = MAX0(NOGLEV,1) GO TO 70 C C ES SINGULARITY CHECK, DIAG-IN=0.0, NON-CONSERVATIVE MATRIX C 50 CONTINUE NERR(1) = NERR(1) + 1 IF (DIAGCK .EQ. 0) GO TO 100 NOGLEV = MAX0(NOGLEV,1) IF (NERR(1) .GE. DIAGCK) NOGLEV = 3 GO TO 100 C C UNEXPECTED NULL COLUMN C 60 NOGLEV = 3 GO TO 70 C 65 NOGLEV = 2 70 NERR(2) = NERR(2) + 1 IF (NERR(2).GT.IABS(PDEFCK) .AND. PDEFCK.NE.0) NOGLEV = 3 C 100 CONTINUE IF (NOGLEV .EQ. 3) RETURN 1 RETURN C C UNABLE TO USE FILES - WRITE GINO NUMBER. ABORT AT MAJOR DECOMP C CHCK C 200 CALL PAGE2 (2) WRITE (IOUT,210) SWM,FILERR,NAME,IC,KEY 210 FORMAT (A27,' 2379, FILE',I8,' COULD NOT BE OPENED IN',A4,A1, 1 '. COLUMN',I8,' SINGULAR, REASON',I3) PARM(1) = -37 PARM(2) = FILSCR PARM(3) = NAME(1) PARM(4) = NAME(2) NOGLEV = 4 GO TO 100 END ================================================ FILE: mis/sdcom1.f ================================================ SUBROUTINE SDCOM1 (P,AC,WA,WB) C INTEGER AC(1),ROW,C,START REAL P(1),WA(1),WB(1) COMMON /SDCOMX/ ROW,C,SPFLG,START,FRSTPC,LASTPL,LASTI C J = 1 L = 1 K1 = LASTPL + 1 IEND = MIN0(LASTPL,LASTI) ISTART = MAX0(K1,START) IF (C .EQ. LASTPL) GO TO 200 IF (START .GT. LASTPL) GO TO 100 DO 48 I = START,IEND PI =-P(I)/P(1) IJMK = J - I ILMK = L - I DO 10 K = I,LASTPL WB(K+IJMK) = PI*P(K) + WA(K+ILMK) 10 CONTINUE L = ILMK + K1 DO 18 K = K1,C IF (AC(K) .GT. 0) GO TO 12 WB(K+IJMK) = PI*P(K) GO TO 18 12 WB(K+IJMK) = PI*P(K) + WA(L) L = L + 1 18 CONTINUE J = IJMK + C + 1 P(I) = PI 48 CONTINUE IF (LASTPL .GE. LASTI) RETURN 100 DO 148 I = ISTART,LASTI PI = -P(I)/P(1) IJMK = J - I IF (AC(I) .LT. 0) GO TO 120 DO 118 K = I,C IF (AC(K) .GT. 0) GO TO 112 WB(K+IJMK) = PI*P(K) GO TO 118 112 WB(K+IJMK) = PI*P(K) + WA(L) L = L + 1 118 CONTINUE GO TO 140 120 DO 128 K = I,C WB(K+IJMK) = PI*P(K) 128 CONTINUE 140 J = IJMK + C + 1 P(I) = PI 148 CONTINUE RETURN C 200 IF (START .GT. LASTPL) GO TO 300 DO 248 I = START,IEND PI = -P(I)/P(1) IJMK = J - I ILMK = L - I DO 238 K = I,LASTPL WB(K+IJMK) = PI*P(K) + WA(K+ILMK) 238 CONTINUE J = IJMK + K1 L = ILMK + K1 P(I) = PI 248 CONTINUE IF (LASTPL .GE. LASTI) RETURN 300 DO 348 I = ISTART,LASTI PI = -P(I)/P(1) IJMK = J - I IF (AC(I) .LT. 0) GO TO 320 DO 318 K = I,C IF (AC(K) .GT. 0) GO TO 312 WB(K+IJMK) = PI*P(K) GO TO 318 312 WB(K+IJMK) = PI*P(K) + WA(L) L = L + 1 318 CONTINUE GO TO 340 320 DO 328 K = I,C WB(K+IJMK) = PI*P(K) 328 CONTINUE 340 J = IJMK + C + 1 P(I) = PI 348 CONTINUE RETURN END ================================================ FILE: mis/sdcom2.f ================================================ SUBROUTINE SDCOM2 (P,AC,WA,WB) C INTEGER AC(1),ROW,C,START DOUBLE PRECISION P(1),WA(1),WB(1),PI,EPSI COMMON /SDCOMX/ ROW,C,SPFLG,START,FRSTPC,LASTPL,LASTI DATA EPSI / 1.D-36/ C J = 1 L = 1 K1 = LASTPL + 1 IEND = MIN0(LASTPL,LASTI) ISTART = MAX0(K1,START) IF (C .EQ. LASTPL) GO TO 200 IF (START .GT. LASTPL) GO TO 100 DO 48 I = START,IEND PI = -P(I)/P(1) IF (DABS(PI) .LT. EPSI) PI = 0.D0 IJMK = J - I ILMK = L - I DO 10 K = I,LASTPL WB(K+IJMK) = PI*P(K) + WA(K+ILMK) 10 CONTINUE L = ILMK + K1 DO 18 K = K1,C IF (AC(K) .GT. 0) GO TO 12 WB(K+IJMK) = PI*P(K) GO TO 18 12 WB(K+IJMK) = PI*P(K) + WA(L) L = L + 1 18 CONTINUE J = IJMK + C + 1 P(I) = PI 48 CONTINUE IF (LASTPL .GE. LASTI) RETURN 100 DO 148 I = ISTART,LASTI PI = -P(I)/P(1) IF (DABS(PI) .LT. EPSI) PI = 0.D0 IJMK = J - I IF (AC(I) .LT. 0) GO TO 120 DO 118 K = I,C IF (AC(K) .GT. 0) GO TO 112 WB(K+IJMK) = PI*P(K) GO TO 118 112 WB(K+IJMK) = PI*P(K) + WA(L) L = L + 1 118 CONTINUE GO TO 140 120 DO 128 K = I,C WB(K+IJMK) = PI*P(K) 128 CONTINUE 140 J = IJMK + C + 1 P(I) = PI 148 CONTINUE RETURN C 200 IF (START .GT. LASTPL) GO TO 300 DO 248 I = START,IEND PI = -P(I)/P(1) IF (DABS(PI) .LT. EPSI) PI = 0.D0 IJMK = J - I ILMK = L - I DO 238 K = I,LASTPL WB(K+IJMK) = PI*P(K) + WA(K+ILMK) 238 CONTINUE J = IJMK + K1 L = ILMK + K1 P(I) = PI 248 CONTINUE IF (LASTPL .GE. LASTI) RETURN 300 DO 348 I = ISTART,LASTI PI = -P(I)/P(1) IF (DABS(PI) .LT. EPSI) PI = 0.D0 IJMK = J - I IF (AC(I) .LT. 0) GO TO 320 DO 318 K = I,C IF (AC(K) .GT. 0) GO TO 312 WB(K+IJMK) = PI*P(K) GO TO 318 312 WB(K+IJMK) = PI*P(K) + WA(L) L = L + 1 318 CONTINUE GO TO 340 320 DO 328 K = I,C WB(K+IJMK) = PI*P(K) 328 CONTINUE 340 J = IJMK + C + 1 P(I) = PI 348 CONTINUE RETURN END ================================================ FILE: mis/sdcom3.f ================================================ SUBROUTINE SDCOM3( P, AC, WA, WB ) C****** C C SDCOM3 COMPUTES THE CONTRIBUTIONS OF THE PIVOT ROW FOR SDCOMP IN CSP C C****** INTEGER AC(1), ROW, C, START, SC C REAL P(2), WA(1), WB(1) C COMMON/ SDCOMX / ROW, C, SPFLG, START, FRSTPC, LASTPL, LASTI, SC C J = 1 L = 1 C C FOR THE OUTER LOOP I RUNS FROM START TO LASTI. C BEGIN BY FORMING -P(I)/P(1). THEN DECIDE WHICH INNER LOOP TO EXECUTE C P2 = P(1)**2 + P(2)**2 P1 = P(1) / P2 P2 = P(2) / P2 DO 48 I=START,LASTI PIR = -P(2*I-1) * P1 - P(2*I) * P2 PII = P(2*I-1) * P2 - P(2*I) * P1 IF( I .LE. LASTPL ) GO TO 30 IF( AC(I) .LT. 0 ) GO TO 20 K1 = I C C LOOP 1 -- L IS INCREMENTED WHENEVER AC(K) .GT. 0 C 10 DO 18 K=K1,C IF( AC(K) .GT. 0 ) GO TO 12 WB(J ) = PIR*P(2*K-1) - PII*P(2*K ) WB(J+1) = PIR*P(2*K ) + PII*P(2*K-1) GO TO 14 12 WB(J ) = PIR*P(2*K-1) - PII*P(2*K ) + WA(L ) WB(J+1) = PIR*P(2*K ) + PII*P(2*K-1) + WA(L+1) L = L + 2 14 J = J + 2 18 CONTINUE GO TO 40 C C LOOP 2 -- L IS NEVER INCREMENTED C 20 DO 28 K=I,C WB(J ) = PIR*P(2*K-1) - PII*P(2*K ) WB(J+1) = PIR*P(2*K ) + PII*P(2*K-1) J = J + 2 28 CONTINUE GO TO 40 C C LOOP 3 -- K RUNS FROM I TO LASTPL AND L IS INCREMENTED EVERY TIME C THEN, IF LASTPL .LT. C, LOOP 1 IS EXECUTED TO FINISH IT UP C 30 DO 38 K=I,LASTPL WB(J ) = PIR*P(2*K-1) - PII*P(2*K ) + WA(L ) WB(J+1) = PIR*P(2*K ) + PII*P(2*K-1) + WA(L+1) L = L + 2 J = J + 2 38 CONTINUE IF( LASTPL .EQ. C ) GO TO 40 K1 = LASTPL + 1 GO TO 10 C C END OUTER LOOP BY STORING -P(I)/P(1) AT P(1). C 40 P(2*I-1 ) = PIR P(2*I ) = PII 48 CONTINUE RETURN END ================================================ FILE: mis/sdcom4.f ================================================ SUBROUTINE SDCOM4( P, AC, WA, WB ) C****** C C SDCOM4 COMPUTES THE CONTRIBUTIONS OF THE PIVOT ROW FOR SDCOMP IN CDP C C****** INTEGER AC(1), ROW, C, START, SC C DOUBLE PRECISION P(2), WA(1), WB(1), PIR, PII DOUBLE PRECISION P1, P2 C COMMON/ SDCOMX / ROW, C, SPFLG, START, FRSTPC, LASTPL, LASTI, SC C J = 1 L = 1 C C FOR THE OUTER LOOP I RUNS FROM START TO LASTI. C BEGIN BY FORMING -P(I)/P(1). THEN DECIDE WHICH INNER LOOP TO EXECUTE C P2 = P(1)**2 + P(2)**2 P1 = P(1) / P2 P2 = P(2) / P2 DO 48 I=START,LASTI PIR = -P(2*I-1) * P1 - P(2*I) * P2 PII = P(2*I-1) * P2 - P(2*I) * P1 IF( I .LE. LASTPL ) GO TO 30 IF( AC(I) .LT. 0 ) GO TO 20 K1 = I C C LOOP 1 -- L IS INCREMENTED WHENEVER AC(K) .GT. 0 C 10 DO 18 K=K1,C IF( AC(K) .GT. 0 ) GO TO 12 WB(J ) = PIR*P(2*K-1) - PII*P(2*K ) WB(J+1) = PIR*P(2*K ) + PII*P(2*K-1) GO TO 14 12 WB(J ) = PIR*P(2*K-1) - PII*P(2*K ) + WA(L ) WB(J+1) = PIR*P(2*K ) + PII*P(2*K-1) + WA(L+1) L = L + 2 14 J = J + 2 18 CONTINUE GO TO 40 C C LOOP 2 -- L IS NEVER INCREMENTED C 20 DO 28 K=I,C WB(J ) = PIR*P(2*K-1) - PII*P(2*K ) WB(J+1) = PIR*P(2*K ) + PII*P(2*K-1) J = J + 2 28 CONTINUE GO TO 40 C C LOOP 3 -- K RUNS FROM I TO LASTPL AND L IS INCREMENTED EVERY TIME C THEN, IF LASTPL .LT. C, LOOP 1 IS EXECUTED TO FINISH IT UP C 30 DO 38 K=I,LASTPL WB(J ) = PIR*P(2*K-1) - PII*P(2*K ) + WA(L ) WB(J+1) = PIR*P(2*K ) + PII*P(2*K-1) + WA(L+1) L = L + 2 J = J + 2 38 CONTINUE IF( LASTPL .EQ. C ) GO TO 40 K1 = LASTPL + 1 GO TO 10 C C END OUTER LOOP BY STORING -P(I)/P(1) AT P(1). C 40 P(2*I-1 ) = PIR P(2*I ) = PII 48 CONTINUE RETURN END ================================================ FILE: mis/sdcomp.f ================================================ SUBROUTINE SDCOMP ( *, ZI, ZR, ZD ) INCLUDE 'SMCOMX.COM' COMMON / LOGOUT / LOUT CALL SSWTCH ( 44, I44 ) IF ( I44 .NE. 0 ) GO TO 100 C C CALL NEW SYMMETRIC DECOMPOSITION ROUTINE 12/95 C CALL SMCOMP ( *710, ZI, ZR, ZD ) IF ( IERROR .NE. 1 ) GO TO 700 WRITE ( LOUT, 901 ) 901 FORMAT(8X,'INSUFFICIENT OPEN CORE FOR NEW SYMMETRIC DECOMPOSITION' &,/,8X,'WILL SWITCH AND USE OLD METHOD.') C C OTHERWISE, CALL SYMMETRIC DECOMPOSITION OF RELEASE 94 AND EARLIER C 100 CALL SDCOMPX( *710, ZI, ZR, ZD ) 700 CONTINUE RETURN 710 CONTINUE RETURN 1 END ================================================ FILE: mis/sdcompx.f ================================================ SUBROUTINE SDCOMPX (*,ZI,ZR,ZD) C C SDCOMP PERFORMS THE TRIANGULAR DECOMPOSITION OF A SYMMETRIC C MATRIX. THE MATRIX MAY BE REAL OR COMPLEX AND ITS PRECISION MAY C BE SNGL OR DBL C EXTERNAL LSHIFT ,ANDF ,ORF LOGICAL GO ,SPILL ,SPLOUT ,SPLIN ,ROWONE INTEGER PRC ,WORDS ,RLCMPX ,CLOS ,BUF1 ,BUF2 , 1 BUF3 ,BUF4 ,BUF5 ,RC ,PREC ,TYPEA , 2 ZI(1) ,CONFIG ,POWER ,DBA ,DBL ,DBC , 3 SCR1 ,SCR2 ,SYSBUF ,FORMA ,SYM ,SQR , 4 SCRA ,SCRB ,C5MAX ,BLK ,PCMAX ,SAVG , 5 NULL(20),COL ,C ,S ,SPROW ,STURM , 6 GROUPS ,CAVG ,CMAX ,SC ,PREVC ,ROW , 7 FRSTPC ,PCAVG ,PCROW ,PCSQR ,SX ,CI , 8 SCR3 ,WB ,SCRC ,SCRD ,SPFLG ,START , 9 WA ,CHLSKY ,BEGN ,END ,DBNAME(2) , O PCGROU ,ABLK ,BBLK ,SUBNAM(5) , 1 KEY(1) ,ORF ,STATFL ,ANDF ,TWO24 ,TWO25 , 2 MTYPE(2),IREAL(2),ICMPLX(2) REAL ZR(2) ,SAVE(6) ,MINDS DOUBLE PRECISION ZD(2) ,MINDD ,XDNS(1) ,DDR ,DDC , 1 RD ,DSAVE3 CHARACTER*10 UNUSE ,ADDI ,UNADD CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /SFACT / DBA(7) ,DBL(7) ,DBC(7) ,SCR1 ,SCR2 , 1 LCORE ,DDR ,DDC ,POWER ,SCR3 , 2 MINDD ,CHLSKY COMMON /NTIME / NITEMS ,TMIO ,TMBPAK ,TMIPAK ,TMPAK , 1 TMUPAK ,TMGSTR ,TMPSTR ,TMT(4) ,TML(4) COMMON /STURMX/ STURM ,SHFTPT ,KEEP ,PTSHFT ,NR COMMON /SYSTEM/ KSYSTM(63) COMMON /NAMES / RDNRW ,RDREW ,WRT ,WRTREW ,REW , 1 NOREW ,EOFNRW ,RSP ,RDP ,CSP , 2 CDP ,SQR ,RECT ,DIAG ,LOWTRI , 3 UPRTRI ,SYM COMMON /TYPE / PRC(2) ,WORDS(4),RLCMPX(4) COMMON /ZZZZZZ/ XNS(1) COMMON /SDCOMX/ ROW ,C ,SPFLG ,START ,FRSTPC , 1 LASTPL ,LASTI ,SC ,IAC ,NZZADR , 2 WA ,WB ,PREVC ,NZZZ ,SPROW , 3 S ,BLK(15) ,ABLK(15),BBLK(20) COMMON /PACKX / ITYPE1 ,ITYPE2 ,I1 ,J1 ,INCR1 COMMON /UNPAKX/ ITYPE3 ,I2 ,J2 ,INCR2 EQUIVALENCE (NROW,DBA(3)) ,(FORMA,DBA(4)) ,(TYPEA,DBA(5) ) , 1 (JSTR,BLK(5)) ,(COL ,BLK(4)) ,(NTERMS,BLK(6)) , 2 (XDNS(1),XNS(1)),(ROW,KEY(1)) ,(DSR ,DDR ) , 3 (RS ,RD ) ,(DSC ,DDC ) ,(MINDS,MINDD ) EQUIVALENCE (KSYSTM( 1),SYSBUF) ,(KSYSTM( 2),NOUT ) , 1 (KSYSTM(28),CONFIG) ,(KSYSTM(40),NBPW ) , 2 (KSYSTM(57),STATFL) ,(DBNAME( 1),SUBNAM(4) ) DATA SUBNAM/ 4HSDCO,2HMP,3*1H / , 1 NKEY / 6 / , BEGN/ 4HBEGN/ , END / 4HEND / , 2 TWO24 / 16777216 /, TWO25 / 33554432 / DATA IREAL , ICMPLX / 4HREAL, 4H , 4HCOMP, 4HLEX / DATA UNUSE , ADDI / ' UNUSED', 'ADDITIONAL' / C C STATEMENT FUNCTIONS C NBRWDS(I) = I + NWDS*(I*(I+1))/2 SX(X) = X - SQRT(AMAX1(X*(X+2.) + CMAX*4. - CONS, 1.)) - 1.0 MAXC(J) = SQRT(FLOAT(2*J)/FNWDS - FLOAT(4*CMAX)) - 1.0 C C BUFFER ALLOCATION C SUBNAM(3) = BEGN CALL CONMSG (SUBNAM,5,0) BUF1 = LCORE- SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF BUF5 = BUF4 - SYSBUF X = 1.0 RKHR = 1.0E-10 C C INITIALIZATION AS A FUNCTION OF TYPE OF A MATRIX C RC = 1 IF A IS REAL, 2 IF A IS COMPLEX C PREC = 1 IF A IS SINGLE, 2 IF A IS DOUBLE C NOTE - PRC(1) = 1, PRC(2) = 2, AND C PRC(3) = WORDS(1) = 1, PRC(4) = WORDS(2) = 2 C RC = RLCMPX(TYPEA) MTYPE(1) = IREAL(1) MTYPE(2) = IREAL(2) IF (RC .EQ. 1) GO TO 10 MTYPE(1) = ICMPLX(1) MTYPE(2) = ICMPLX(2) 10 PREC = PRC(TYPEA) NWDS = WORDS(TYPEA) FNWDS = NWDS STURM = 0 C C CHECK INPUT PARAMETERS C IF (DBA(2) .NE. DBA(3)) GO TO 2300 ICRQ = 100 - BUF5 IF (BUF5 .LT. 100) GO TO 2310 IF (NROW .EQ. 1) GO TO 1900 C C GENERAL INITIALIZATION C LOOP = 1 ISPILL = BUF5 - MAX0(100,NROW/100) FCMAX = 0. 20 ISPILL = ISPILL - (LOOP-1)*NROW/100 NSPILL = ISPILL KROW = NROW + 1 ICRQ =-ISPILL IF (ISPILL .LE. 0) GO TO 2310 ZI(ISPILL) = 0 PCGROU = 0 PCAVG = 0 PCSQR = 0 PCMAX = 0 CSQR = 0.0 SAVG = 0 CLOS = ALOG(FLOAT(NROW)) + 5.0 CLOS = 999999 PCROW = -CLOS ZI(1) = -NROW ICRQ = NROW - BUF5 IF (NROW .GE. BUF5) GO TO 2310 DO 30 I = 2,NROW 30 ZI(I) = 0 CALL FNAME (DBA,DBNAME) POWER = 0 SCRA = SCR3 SCRB = IABS(DBC(1)) GO =.TRUE. SPILL =.FALSE. TIME = 0. GROUPS = 0 CMAX = 0 CONS = 2*ISPILL/NWDS C5MAX = MAXC(ISPILL) DSR = 1.0 DSC = 0. MINDS = 1.E+25 IF (PREC .EQ. 1) GO TO 40 DDR = 1.0 DDC = 0.D0 MINDD = 1.D+25 40 CONTINUE CAVG = 0 CSPILL = 0. C C THE FOLLOWING CODE GENERATES THE ACTIVE COLUMN VECTOR FOR EACH C ROW, SPILL GROUPS AND TIMING AND USER INFORMATION ABOUT THE C DECOMPOSITION C BLK(1) = DBA(1) ABLK(1) = SCRA ABLK(2) = TYPEA ABLK(3) = 0 CALL GOPEN ( DBA,ZI(BUF1),RDREW) CALL GOPEN (SCRA,ZI(BUF2),WRTREW) JLIST = 1 ROW = 1 JJ = 0 KK = 0 NLIST = 0 C C BEGIN A ROW BY LOCATING THE DIAGONAL ELEMENT C 50 BLK(8) = -1 KR = KROW 60 CALL GETSTR (*70,BLK) IF (PREC .EQ. 2) JSTR = 2*(JSTR-1) + 1 IF (COL .GT. ROW) GO TO 70 IF (COL+NTERMS-1 .GE. ROW) GO TO 90 CALL ENDGET (BLK) GO TO 60 70 KK = KK + 1 ZI(KK) = ROW GO = .FALSE. 80 IF (BLK(8) .NE. 1) CALL SKPREC (BLK,1) ROW = ROW + 1 IF (ROW .LE. NROW) GO TO 50 GO TO 600 C C DIAGONAL TERM IS LOCATED - COMPLETE ENTRIES IN THE FULL COLUMN C VECTOR AND SAVE THE TERMS FROM EACH STRING IN CORE C 90 IF (.NOT. GO) GO TO 80 JSTR = JSTR + (ROW-COL)*NWDS NTERMS = NTERMS - (ROW-COL) COL = ROW 100 ZI(KR ) = COL ZI(KR+1) = NTERMS KR = KR + 2 NSTR = JSTR + NTERMS*NWDS - 1 DO 110 JJ = JSTR,NSTR ZR(KR) = XNS(JJ) KR = KR + 1 110 CONTINUE N = COL + NTERMS - 1 DO 170 J = COL,N IF (ZI(J)) 120,130,160 120 M = IABS(ZI(J)) ZI(J) = ROW IF (M .NE. 1) ZI(J+1) = -(M-1) GO TO 170 130 I = J 140 I = I - 1 IF (I .LE. 0) GO TO 2000 IF (ZI(I)) 150,140,2010 150 M = IABS(ZI(I)) ZI(I) = -(J-I) ZI(J) = ROW LEFT = M - (J-I+1) IF (LEFT .GT. 0) ZI(J+1) = -LEFT GO TO 170 160 IF (ZI(J).GT.ROW .AND. ZI(J).LT.TWO24) ZI(J) = ZI(J) +TWO24 +TWO25 170 CONTINUE ICRQ = KR - ISPILL IF (KR .GE. ISPILL) GO TO 2310 CALL ENDGET (BLK) CALL GETSTR (*180,BLK) IF (PREC .EQ. 2) JSTR = 2*JSTR - 1 GO TO 100 C C EXTRACT ACTIVE COLUMN VECTOR FROM THE FULL COLUMN VECTOR C 180 IAC = KR I = IAC J = ROW LASTPL = -1 190 IF (ZI(J) ) 260,2020,200 200 IF (ZI(J)-ROW) 210,220,250 210 ZI(I) = J GO TO 230 220 ZI(I) = -J IF (LASTPL .LT. 0) LASTPL = I - IAC 230 I = I + 1 240 J = J + 1 GO TO 270 250 IF (ZI(J) .LT. TWO24) GO TO 240 IF (ZI(J) .LT. TWO25) GO TO 210 ZI(J) = ZI(J) - TWO25 GO TO 220 260 J = J - ZI(J) 270 IF (J .LE. NROW) GO TO 190 ICRQ = I - ISPILL IF (I .GT. ISPILL) GO TO 2310 C = I - IAC CMAX = MAX0(CMAX,C) C5MAX = MAXC(ISPILL) NAC = IAC + C - 1 IF (LASTPL .LT. 0) LASTPL = C C C MAKE SPILL CALCULATIONS C SPFLG = 0 FC = C START = 2 IF (C .EQ. 1) START = 0 FRSTPC = 0 IF (.NOT.SPILL) GO TO 370 IF (ROW .LT. LSTROW) GO TO 290 C C *3* CURRENT ROW IS LAST ROW OF A SPILL GROUP. DETERMINE IF ANOTHER C SPILL GROUP FOLLOWS AND, IF SO, ITS RANGE C 280 CONTINUE START = 0 IF (C .GT. C5MAX) GO TO 380 SPILL = .FALSE. GO TO 420 C C *2* CURRENT ROW IS NEITHER FIRST NOR LAST IN CURRENT SPILL GROUP. C TEST FOR PASSIVE COL CONDITION. IF SO, TERMINATE SPILL GROUP. C TEST FOR POSSIBLE REDEFINITION OF SPILL GROUP. IF SO, TEST FOR C OVERFLOW OF REDEFINITION TABLE, IF SO, TRY A DIFFERENT C STRATEGY FOR DEFINING S AND REDO PREFACE UP TO A LIMIT OF 3 C TIMES. C 290 CONTINUE IF (IABS(ZI(IAC+1))-ROW .LT. CLOS) GO TO 300 ASSIGN 430 TO ISWTCH LSTROW = ROW SPILL = .FALSE. START = 0 IF (NSPILL+2 .LT. BUF5) GO TO 350 GO TO 330 300 ASSIGN 460 TO ISWTCH IF (C .LE. ZI(SPROW)) GO TO 460 JJ = NAC 310 IF (IABS(ZI(JJ)) .LE. LSTROW) GO TO 320 JJ = JJ - 1 GO TO 310 320 SC = JJ - IAC M = SX(FC) IF (SC .LE. M) GO TO 460 IF (NSPILL+2 .LT. BUF5) GO TO 340 330 CONTINUE FCMAX = AMAX1(FCMAX,FLOAT(CMAX)) CALL CLOSE (SCRA,REW) CALL CLOSE ( DBA,REW) LOOP = LOOP + 1 IF (LOOP .LE. 3) GO TO 20 ICRQ = BUF5 - NSPILL - 2 GO TO 2310 340 S = M IJKL = MAX0(IAC,JJ-(SC-M)) LSTROW = IABS(ZI(IJKL)) 350 IF (ZI(NSPILL).NE.0 .AND. ZI(NSPILL).NE.SPROW) NSPILL = NSPILL + 3 ZI(NSPILL ) = SPROW ZI(NSPILL+1) = S ZI(NSPILL+2) = LSTROW IF (ROW- LSTROW) 360,280,2070 360 CONTINUE GO TO ISWTCH, (430,460) C C *1* CURRENT ROW IS NOT PART OF A SPILL GROUP. TEST FOR CREATION OF C A NEW SPILL GROUP C 370 CONTINUE IF (C .LE. C5MAX) GO TO 420 380 SPILL = .TRUE. SPROW = ROW GROUPS = GROUPS + 1 S = MIN0(SX(FC),NROW-SPROW) IF (LOOP .EQ. 1) GO TO 410 JJ = IAC + S - 1 390 IF (IABS(ZI(JJ)) .LE. SPROW+S) GO TO 400 JJ = JJ - 1 GO TO 390 400 S = JJ - IAC + 1 IF (LOOP .EQ. 3) S = MIN0(S,SX(FCMAX)) 410 S = MIN0(S,NROW-SPROW) LSTROW = IABS(ZI(IAC+S-1)) SPFLG = S FRSTPC = LSTROW SAVG = SAVG + S GO TO 460 C C TEST FOR CONDITION IN WHICH PASSIVE COLUMNS ARE CREATED C 420 COL = IABS(ZI(IAC+1)) IF (ROW-PCROW.LT.CLOS .OR. C.LT.CLOS/2 .OR. COL-ROW.LT.CLOS) 1 GO TO 460 C C CREATE PASSIVE COLUMNS BY CHANGING THEIR FIRST C APPEARANCE IN THE FULL COLUMN VECTOR C 430 FRSTPC = 2 PCROW = ROW PCAVG = PCAVG + C - 1 PCSQR = PCSQR + (C-1)**2 PCMAX = MAX0(PCMAX,C-1) PCGROU = PCGROU + 1 NAC = IAC + C - 1 IJKL = IAC + 1 DO 450 I = IJKL,NAC JJ = IABS(ZI(I)) IF (ZI(JJ) .LE. ROW) GO TO 440 ZI(JJ) = MIN0(ANDF(ZI(JJ),TWO24-1),COL) GO TO 450 440 ZI(JJ) = COL 450 CONTINUE C C WRITE ACTIVE COLUMN VECTOR C 460 CONTINUE CALL WRITE (SCRA,KEY,NKEY,0) CALL WRITE (SCRA,ZI(IAC),C,1) C C WRITE ROW OF INPUT MATRIX C ABLK( 8) = -1 ABLK(12) = ROW KR = KROW 470 ABLK(4) = ZI(KR ) NBRSTR = ZI(KR+1) KR = KR + 2 480 CALL PUTSTR (ABLK) ABLK(7) = MIN0(ABLK(6),NBRSTR) JSTR = ABLK(5) IF (PREC .EQ. 2) JSTR = 2*JSTR - 1 NSTR = JSTR + ABLK(7)*NWDS - 1 DO 490 JJ = JSTR,NSTR XNS(JJ) = ZR(KR) KR = KR + 1 490 CONTINUE IF (KR .GE. IAC) GO TO 500 CALL ENDPUT (ABLK) IF (ABLK(7) .EQ. NBRSTR) GO TO 470 ABLK(4) = ABLK(4) + ABLK(7) NBRSTR = NBRSTR - ABLK(7) GO TO 480 500 ABLK(8) = 1 CALL ENDPUT (ABLK) C C ACCUMULATE TIMING AND STATISTICS INFORMATION C CAVG = CAVG + C CSQR = CSQR + C**2 IF (SPILL) CSPILL = CSPILL + C**2 ZI(ROW) = C IF (ROW .EQ. NROW) GO TO 600 ROW = ROW + 1 GO TO 50 C C HERE WHEN ALL ROWS PROCESSED - CLOSE FILES AND, IF SINGULAR C MATRIX, PRINT SINGULAR COLUMNS AND GIVE ALTERNATE RETURN C 600 CALL CLOSE (SCRA,REW) CALL CLOSE ( DBA,REW) IF (GO) GO TO 620 CALL CLOSE (DBL,REW) CALL PAGE2 (3) WRITE (NOUT,610) UFM,DBNAME,(ZI(I),I=1,KK) 610 FORMAT (A23,' 3097. SYMMETRIC DECOMPOSITION OF DATA BLOCK ',2A4, 1 ' ABORTED BECAUSE THE FOLLOWING COLUMNS ARE SINGULAR -', 2 /,(5X,20I6,/)) RETURN 1 C C CALCULATE TIME ESTIMATE, PRINT USER INFORMATION AND C CHECK FOR SUFFICIENT TIME TO COMPLETE DECOMPOSITION C 620 DENS = FLOAT(DBA(7))/10000. IF (DENS .LT. 0.01) DENS = 0.01 IF (DENS .GT. 99.99) DENS = 99.99 IF (GROUPS .NE. 0) SAVG = SAVG/GROUPS SAVG = MAX0(SAVG,1) TIME = 0.5*TMT(TYPEA)*CSQR + 0.5*(TMPSTR+TMGSTR)*FLOAT(PCSQR) + 1 TMPSTR*FLOAT(CAVG) + TMIO*(FNWDS+1.0)*CSPILL/FLOAT(SAVG) MORCOR= NBRWDS(CMAX) - ISPILL + 1 C CAVG = CAVG/NROW IF (PCGROU .NE. 0) PCAVG = PCAVG/PCGROU CALL TMTOGO (IJKL) JKLM = 1.E-6*TIME + 1.0 ICORE = IABS(MORCOR) IF (DBC(1) .LE. 0) GO TO 645 UNADD = UNUSE IF (MORCOR .GT. 0) UNADD = ADDI CALL PAGE2 (4) WRITE (NOUT,630,ERR=645) UIM, MTYPE, DBNAME, NROW, DENS, 1 JKLM, CAVG, PCAVG, GROUPS, SAVG, 2 UNADD, ICORE, CMAX, PCMAX, PCGROU, LOOP 630 FORMAT (A29,' 3023 - PARAMETERS FOR ',2A4, 1 ' SYMMETRIC DECOMPOSITION OF DATA BLOCK ',2A4, 2 5H (N =,I6, 5H, D =,F6.2,2H%), /14X, 3 17H TIME ESTIMATE = , I7, 17H C AVG = , I6, 4 17H PC AVG = , I6,18H SPILL GROUPS = , I6, 5 17H S AVG = , I6, /14X, 6 A10 , 7H CORE = , I9, 15H WORDS C MAX = , I6, 7 17H PCMAX = , I6,18H PC GROUPS = , I6, 8 17H PREFACE LOOPS = , I6 ) IF (MORCOR .GT. 0) WRITE (NOUT,640) 640 FORMAT (14X,'(FOR OPTIMAL OPERATION)') 645 IF (JKLM .GE. IJKL) GO TO 2320 C C WRITE A END-OF-MATRIX STRING ON THE PASSIVE COLUMN FILE C CALL GOPEN (SCRB,ZI(BUF2),WRTREW) BBLK(1) = SCRB BBLK(2) = TYPEA BBLK(3) = 0 BBLK(8) =-1 BBLK(12)= 1 CALL PUTSTR(BBLK) BBLK(4) = NROW + 1 BBLK(7) = 1 BBLK(8) = 1 CALL ENDPUT (BBLK) CALL CLOSE (SCRB,REW) C C THE STAGE IS SET AT LAST TO PERFORM THE DECOMPOSITION - C SO LETS GET THE SHOW UNDERWAY C CALL GOPEN (SCRA,ZI(BUF1),RDREW ) CALL GOPEN (SCRB,ZI(BUF2),RDREW ) CALL GOPEN (DBL ,ZI(BUF3),WRTREW) SCRC = SCR1 SCRD = SCR2 IF (ZI(NSPILL) .NE. 0) NSPILL = NSPILL + 3 ZI(NSPILL) = NROW + 1 SPLIN = .FALSE. SPLOUT = .FALSE. SPILL = .FALSE. IF (GROUPS .NE. 0) SPILL = .TRUE. NZZZ = ORF(ISPILL-1,1) ROWONE = .FALSE. DBL(2) = 0 DBL(6) = 0 DBL(7) = LSHIFT(1,NBPW-2 - (NBPW-32)) C C THIS 'NEXT TO SIGN' BIT WILL BE PICKED UP BY WRTTRL. ADD (NBPW-32) C SO THAT CRAY, WITH 48-BIT INTEGER, WILL NOT GET INTO TROUBLE C BLK(1) = DBL(1) BLK(2) = TYPEA BLK(3) = 1 WA = NZZZ WB = WA PREVC = 0 BBLK(8)= -1 CALL GETSTR (*2080,BBLK) KSPILL = ISPILL C C READ KEY WORDS AND ACTIVE COLUMN VECTOR FOR CURRENT ROW C 650 NAME = SCRA IF (SPLIN) NAME = SCRD CALL FREAD (NAME,KEY,NKEY,0) IAC = C*NWDS + 1 CALL FREAD (NAME,ZI(IAC),C,1) NAC = IAC + C - 1 IF (ZI(IAC) .LT. 0) PREVC = 0 IF (SPLIN) GO TO 700 C C READ TERMS FROM THE INPUT MATRIX C ABLK(8) = -1 CALL GETSTR (*2090,ABLK) N = IAC - 1 DO 670 I = 1,N ZR(I) = 0. 670 CONTINUE CALL SDCIN (ABLK,ZI(IAC),C,ZR,ZR) C C IF DEFINED, MERGE ROW FROM PASSIVE COLUMN FILE C 680 IF (ROW-BBLK(4)) 710,690,2100 690 CALL SDCIN (BBLK,ZI(IAC),C,ZR,ZR) BBLK(8) = -1 CALL GETSTR (*2110,BBLK) GO TO 680 C C READ CURRENT PIVOT ROW FROM SPILL FILE. IF LAST ROW, CLOSE FILE C 700 PREVC = 0 CALL FREAD (SCRD,ZR,C*NWDS,1) IF (ROW .LT. LSTSPL) GO TO 710 CALL CLOSE (SCRD,REW) C C IF 1ST ROW OF A NEW SPILL GROUP, OPEN SCRATCH FILE TO WRITE C 710 IF (ROWONE) GO TO 740 IF (SPLOUT) GO TO 810 IF (SPFLG .EQ. 0) GO TO 810 SPLOUT = .TRUE. CALL GOPEN (SCRC,ZI(BUF4),WRTREW) SPROW = ROW S = SPFLG LSTROW = FRSTPC FRSTPC = 0 C C IF S WAS REDEFINED, GET NEW DEFINITION C DO 720 I = KSPILL,NSPILL,3 IF (ROW-ZI(I)) 740,730,720 720 CONTINUE GO TO 740 730 S = ZI(I+1) LSTROW = ZI(I+2) KSPILL = I + 3 C C WRITE ANY TERMS ALREADY CALCULATED WHICH ARE C BEYOND THE RANGE OF THE CURRENT SPILL GROUP C 740 IF (.NOT.SPLOUT) GO TO 810 N = 0 IJKL = NAC 750 IF (IABS(ZI(IJKL)) .LE. LSTROW) GO TO 760 IJKL = IJKL - 1 GO TO 750 760 IJKL = IJKL + 1 IF (IJKL .GT. NAC) GO TO 780 DO 770 I = IJKL,NAC IF (ZI(I) .GT. 0.) N = N + 1 770 CONTINUE N = NWDS*N*(N+1)/2 780 CALL WRITE (SCRC,N,1,0) CALL WRITE (SCRC,ZR(NZZZ-N),N,1) C C MOVE WA TO ACCOUNT FOR ANY TERMS JUST WRITTEN C IF (N .EQ. 0) GO TO 810 J = NZZZ I = NZZZ - N IF (NZZZ-WA .EQ. N) GO TO 800 790 J = J - 1 I = I - 1 ZR(J) = ZR(I) IF (I .GT. WA) GO TO 790 800 WA = J C C IF THE PIVOTAL ROW DID NOT COME FROM THE SPILL FILE, IT IS CREATED C 810 IF (SPLIN) GO TO 1110 I = IAC L = WA IF (PREC .EQ. 2) L = (WA-1)/2 + 1 GO TO (820,890,960,1030), TYPEA C C CREATE PIVOT ROW IN RSP, ACCUMULATE DETERMINANT AND MIN DIAGONAL C 820 CONTINUE IF (ZI(IAC) .LT. 0) GO TO 850 DO 840 J = 1,C IF (ZI(I) .LT. 0) GO TO 830 ZR(J) = ZR(J) + ZR(L) L = L + 1 830 I = I + 1 840 CONTINUE 850 CONTINUE ASSIGN 860 TO KHR IF (ZR(1)) 860,1820,860 860 IF (ABS(DSR) .LT. 10.) GO TO 870 DSR = DSR/10. POWER = POWER + 1 GO TO 860 870 IF (ABS(DSR) .GT. 0.1) GO TO 880 DSR = DSR*10. POWER = POWER - 1 GO TO 870 880 DSR = DSR*ZR(1) MINDS = AMIN1(ABS(ZR(1)),MINDS) C C COUNTING SIGN CHANGES OF THE LEADING PRINCIPLE MINORS IN STURM C SEQ. C IF (ZR(1) .LT. 0.) STURM = STURM + 1 GO TO 1100 C C CREATE PIVOT ROW IN RDP, ACCUMULATE DETERMINANT AND MIN DIAGONAL C 890 CONTINUE IF (ZI(IAC) .LT. 0) GO TO 920 DO 910 J = 1,C IF (ZI(I) .LT. 0) GO TO 900 ZD(J) = ZD(J) + ZD(L) L = L + 1 900 I = I + 1 910 CONTINUE 920 CONTINUE ASSIGN 930 TO KHR IF (ZD(1)) 930,1820,930 930 IF (DABS(DDR) .LT. 10.0D0) GO TO 940 DDR = DDR/10.D0 POWER = POWER + 1 GO TO 930 940 IF (DABS(DDR) .GT. 0.1D0) GO TO 950 DDR = DDR*10.D0 POWER = POWER - 1 GO TO 940 950 DDR = DDR*ZD(1) MINDD = DMIN1(DABS(ZD(1)),MINDD) C C COUNTING SIGN CHANGES (STURM SEQUENCE PROPERTY) C IF (ZD(1) .LT. 0.D0) STURM = STURM + 1 GO TO 1100 C C CREATE PIVOT ROW IN CSP, ACCUMULATE DETERMINANT AND MIN DIAGONAL C 960 CONTINUE IF (ZI(IAC) .LT. 0) GO TO 990 CI = 2*C - 1 DO 980 J = 1,CI,2 IF (ZI(I) .LT. 0) GO TO 970 ZR(J ) = ZR(J ) + ZR(L ) ZR(J+1) = ZR(J+1) + ZR(L+1) L = L + 2 970 I = I + 1 980 CONTINUE 990 CONTINUE SAVE(3) = SQRT(ZR(1)**2 + ZR(2)**2) IF (SAVE(3)) 1000,1840,1000 1000 IF (SQRT(DSR**2+DSC**2) .LT. 10.) GO TO 1010 DSR = DSR/10. DSC = DSC/10. POWER = POWER + 1 GO TO 1000 1010 IF (SQRT(DSR**2+DSC**2) .GT. 0.1) GO TO 1020 DSR = DSR*10. DSC = DSC*10. POWER = POWER - 1 GO TO 1010 1020 RS = DSR*ZR(1) - DSC*ZR(2) DSC = DSR*ZR(2) + DSC*ZR(1) DRR = RS MINDS = AMIN1(SAVE(3),MINDS) GO TO 1100 C C CREATE PIVOT ROW IN CDP, ACCUMULATE DETERMINANT AND MIN DIAGONAL C 1030 CONTINUE IF (ZI(IAC) .LT. 0) GO TO 1060 CI = 2*C - 1 DO 1050 J = 1,CI,2 IF (ZI(I) .LT. 0) GO TO 1040 ZD(J ) = ZD(J ) + ZD(L ) ZD(J+1) = ZD(J+1) + ZD(L+1) L = L + 2 1040 I = I + 1 1050 CONTINUE 1060 CONTINUE C C IN COMPARING THE SOURCE CODES HERE FOR CSP AND CDP COMPUTATION, C IT IS DECIDED TO CHANGE THE ORIGINAL LINES (COMMENTED OUT) TO THE C NEW LINES USING DSAVE3 INSTEAD OF RD BY G.CHAN/UNISYS, 8/84 C DSAVE3 = DSQRT(ZD(1)**2 + ZD(2)**2) IF (DSAVE3) 1070,1840,1070 1070 IF (DSQRT(DDR**2+DDC**2) .LT. 10.D0) GO TO 1080 DDR = DDR/10.D0 DDC = DDC/10.D0 POWER = POWER + 1 GO TO 1070 1080 IF (DSQRT(DDR**2+DDC**2) .GT. 0.1D0) GO TO 1090 DDR = DDR*10.D0 DDC = DDC*10.D0 POWER = POWER - 1 GO TO 1080 1090 RD = DDR*ZD(1) - DDC*ZD(2) DDC = DDR*ZD(2) + DDC*ZD(1) DDR = RD MINDD = DMIN1(DSAVE3,MINDD) C C CALCULATE WB C 1100 CONTINUE 1110 LASTI = 1 IF (START .EQ. 0) GO TO 1250 IF (SPLIN ) GO TO 1120 IF (SPLOUT) GO TO 1130 CI = C SC = C GO TO 1160 1120 CI = C - (START-2) SC = CI JJ = NAC IF (SPLOUT) GO TO 1140 IF ((CI*(CI+1)+2*C)*NWDS/2+C .GT. NZZZ) GO TO 2120 GO TO 1160 1130 CI = C SC = LSTROW - SPROW JJ = MIN0(NAC,IAC+START+SC-2) 1140 IF (IABS(ZI(JJ)) .LE. LSTROW) GO TO 1150 JJ = JJ - 1 GO TO 1140 1150 SC = JJ - IAC - START + 2 IF (SC .GT. 0) GO TO 1160 SC = 0 WB = WA GO TO 1180 1160 NTERMS = SC*(CI-1) - (SC*(SC-1))/2 NWORDS = NTERMS*NWDS WB = NZZZ - NWORDS IF (PREC .EQ. 2) WB = ORF(WB-1,1) IF (WB .LT. IAC+C) GO TO 2060 IF (WB .GT. WA+NWDS*PREVC) GO TO 2130 1180 CONTINUE IF (SPLIN .AND. ROW.EQ.LSTSPL) SPLIN = .FALSE. LASTI = MIN0(START+SC-1,C) IF (SC .EQ. 0) GO TO 1250 C C NOW CALCULATE CONTRIBUTIONS FROM CURRENT PIVOT ROW TO SECOND TERM C IN EQUATION (4) IN MEMO CWM-19. NOTE-TERMS ARE CALCULATED ONLY C FOR ROW/COL COMBINATIONS IN THE CURRENT SPILL GROUP C GO TO (1210,1220,1230,1240), TYPEA 1210 CALL SDCOM1 (ZI,ZI(IAC),ZR(WA+ PREVC),ZR(WB)) GO TO 1250 1220 CALL SDCOM2 (ZI,ZI(IAC),ZR(WA+2*PREVC),ZR(WB)) GO TO 1250 1230 CALL SDCOM3 (ZI,ZI(IAC),ZR(WA+2*PREVC),ZR(WB)) GO TO 1250 1240 CALL SDCOM4 (ZI,ZI(IAC),ZR(WA+4*PREVC),ZR(WB)) C C SHIP PIVOT ROW OUT TO EITHER MATRIX OR SPILL FILE C 1250 IF (LASTI .EQ. C) GO TO 1290 IF (.NOT. SPLOUT) GO TO 2030 C C PIVOT ROW GOES TO SPILL FILE - SET INDEX WHERE TO BEGIN NEXT AND C WRITE ROW AND ACTIVE COLUMNN VECTOR C IJKL = SPFLG II = FRSTPC SPFLG = 0 FRSTPC = 0 START = LASTI + 1 CALL WRITE (SCRC,KEY,NKEY, 0) CALL WRITE (SCRC,ZI(IAC),C,1) CALL WRITE (SCRC,ZR,C*NWDS,1) IF (ROW .LT. LSTROW) GO TO 1440 C C LAST ROW OF CURRENT SPILL GROUP - REWIND FILE AND OPEN IT TO READ. C IF ANOTHER SPILL GROUP, SET IT UP C CALL CLOSE (SCRC,REW) JKLM = SCRC SCRC = SCRD SCRD = JKLM CALL GOPEN (SCRD,ZI(BUF5),RDREW) LSTSPL = ROW SPLIN =.TRUE. SPLOUT =.FALSE. IF (IJKL .EQ. 0) GO TO 1280 SPLOUT =.TRUE. SPROW = ROW S = IJKL LSTROW = II CALL GOPEN (SCRC,ZI(BUF4),WRTREW) C C IF S WAS REDEFINED, GET NEW DEFINITION C DO 1260 I = KSPILL,NSPILL,3 IF (ROW-ZI(I)) 1280,1270,1260 1260 CONTINUE GO TO 1280 1270 S = ZI(I+1) LSTROW = ZI(I+2) KSPILL = I + 3 C C READ ANY TERMS SAVED FROM PREVIOUS SPILL GROUP C 1280 IF (ROW .EQ. NROW) GO TO 1500 CALL FREAD (SCRD,N,1,0) WA = NZZZ - N CALL FREAD (SCRD,ZR(WA),N,1) ROWONE = .TRUE. GO TO 650 C C PIVOT ROW GOES TO OUTPUT FILE - IF REQUIRED, CONVERT TO CHOLESKY C 1290 IF (ROW .NE. DBL(2)+1) GO TO 2040 IF (CHLSKY .EQ. 0) GO TO 1340 IF (RC .EQ. 2) GO TO 2050 IF (PREC .EQ. 2) GO TO 1320 IF (ZR(1) .LT. 0.) GO TO 1800 ZR(1) = SQRT(ZR(1)) IF (C .EQ. 1) GO TO 1340 DO 1310 I = 2,C ZR(I) = ZR(I)*ZR(1) 1310 CONTINUE GO TO 1340 1320 IF (ZD(1) .LT. 0.0D+0) GO TO 1800 ZD(1) = DSQRT(ZD(1)) IF (C .EQ. 1) GO TO 1340 DO 1330 I = 2,C ZD(I) = ZD(I)*ZD(1) 1330 CONTINUE C C WRITE THE ROW WITH PUTSTR/ENDPUT C 1340 CALL SDCOUT (BLK,0,ZI(IAC),C,ZR,ZR) C C IF ACTIVE COLUMNS ARE NOW GOING PASSIVE, MERGE ROWS IN CORE C WITH THOSE NOW ON THE PC FILE THUS CREATING A NEW PC FILE C IF (FRSTPC .EQ. 0) GO TO 1430 IF (SPLIN .OR. SPLOUT) GO TO 2140 CALL GOPEN (SCRC,ZI(BUF4),WRTREW) BLK(1) = SCRC BLK(3) = 0 IJKL = IAC + 1 DO 1390 I = IJKL,NAC 1360 IF (IABS(ZI(I)) .LE. BBLK(4)) GO TO 1380 CALL CPYSTR (BBLK,BLK,1,0) BBLK(8) = -1 CALL GETSTR (*2150,BBLK) GO TO 1360 1380 CI = NAC - I + 1 CALL SDCOUT (BLK,0,ZI(I),CI,ZR(WB),ZR(WB)) WB = WB + CI*NWDS 1390 CONTINUE ICRQ = WB - ISPILL IF (WB .GT. ISPILL) GO TO 2310 1400 CALL CPYSTR (BBLK,BLK,1,0) IF (BBLK(4) .EQ. NROW+1) GO TO 1410 BBLK(8) = -1 CALL GETSTR (*2160,BBLK) GO TO 1400 1410 CALL CLOSE (SCRB,REW) CALL CLOSE (SCRC,REW) I = SCRB SCRB = SCRC SCRC = I CALL GOPEN (SCRB,ZI(BUF2),RDREW) BBLK(1) = SCRB BBLK(8) = -1 CALL GETSTR (*2170,BBLK) BLK(1) = DBL(1) BLK(3) = 1 C C ACCUMULATE MCB INFORMATION FOR PIVOT ROW C 1430 CONTINUE NWORDS = C*NWDS DBL(2) = DBL(2) + 1 DBL(6) = MAX0(DBL(6),NWORDS) DBL(7) = DBL(7) + NWORDS C C PREPARE TO PROCESS NEXT ROW. C 1440 IF (ROW .EQ. NROW) GO TO 1500 PREVC = C - 1 ROWONE = .FALSE. WA = WB GO TO 650 C C CLOSE FILES AND PUT END MESSAGE IN RUN LOG. C 1500 SUBNAM(3) = END CALL CONMSG (SUBNAM,5,0) CALL CLOSE (SCRA,REW) CALL CLOSE (SCRB,REW) CALL CLOSE ( DBL,REW) C C PRINT ROOTS INFORMATION IF THIS IS EIGENVALUE PROBLEM, AND KEEP C TWO LARGEST SHIFT POINT DATA IF SEVERAL SHIFT POINT MOVINGS ARE C INVOLVED. C IF (SHFTPT .GT. 0.) WRITE (NOUT,1510) STURM,SHFTPT 1510 FORMAT (20X,I5,13H ROOTS BELOW ,1P,E14.6) IF (STURM .NE. 0) GO TO 1520 IF (KEEP .LE. 0) GO TO 1530 STURM = KEEP SHFTPT = PTSHFT GO TO 1530 1520 IF (KEEP .GT. STURM) GO TO 1530 JJ = KEEP RS = PTSHFT KEEP = STURM PTSHFT = SHFTPT STURM = JJ SHFTPT = RS 1530 IF (STATFL .NE. 1) RETURN C C PREPARE AND PRINT STATISTICS REGARDING DECOMPOSITION C IF (2*NROW .LT. BUF2) GO TO 1600 CALL PAGE2 (2) WRITE (NOUT,1540) UIM 1540 FORMAT (A29,' 2316. INSUFFICIENT CORE TO PREPARE DECOMPOSITION ', 1 'STATISTICS.') RETURN C 1600 CALL GOPEN (SCRA,ZI(BUF1),RDREW) CALL GOPEN ( DBL,ZI(BUF2),RDREW) ABLK(1) = SCRA BBLK(1) = DBL(1) ROW = 1 DO 1610 I = 1,6 NULL(I) = 0 1610 CONTINUE NN = 2*NROW - 1 EPSMAX = 0. N = 0 DO 1710 J = 1,NN,2 ABLK(8) = -1 BBLK(8) = -1 CALL FWDREC (*2220,ABLK) CALL GETSTR (*2180,ABLK) CALL GETSTR (*2190,BBLK) IF (ABLK(4) .NE. ROW) GO TO 2200 IF (BBLK(4) .NE. ROW) GO TO 2210 II = ABLK(5) JJ = BBLK(5) GO TO (1660,1670,1680,1690), TYPEA 1660 SAVE(2) = XNS(II) SAVE(3) = XNS(JJ) GO TO 1700 1670 SAVE(2) = XDNS(II) SAVE(3) = XDNS(JJ) GO TO 1700 1680 SAVE(2) = SQRT(XNS(II)**2 + XNS(II+1)**2) SAVE(3) = SQRT(XNS(JJ)**2 + XNS(JJ+1)**2) GO TO 1700 1690 SAVE(2) = DSQRT(XDNS(II)**2 + XDNS(II+1)**2) SAVE(3) = DSQRT(XDNS(JJ)**2 + XDNS(JJ+1)**2) 1700 CALL FWDREC (*2220,ABLK) CALL FWDREC (*2220,BBLK) EPS = ABS(SAVE(2)/SAVE(3)) ZI(J ) = ROW ZI(J+1) = EPS IF (SAVE(3) .LT. 0.) N = N + 1 EPSMAX = AMAX1(EPSMAX,EPS) ROW = ROW + 1 1710 CONTINUE CALL SORT (0,0,2,2,ZI,2*NROW) CALL CLOSE (ABLK,REW) CALL CLOSE (BBLK,REW) SAVE(1) = 0.1*EPSMAX DO 1720 I = 2,6 SAVE(I) = 0.1*SAVE(I-1) 1720 CONTINUE DO 1780 J = 1,NN,2 IF (ZR(J+1) .GT. SAVE(1)) GO TO 1730 IF (ZR(J+1) .GT. SAVE(2)) GO TO 1740 IF (ZR(J+1) .GT. SAVE(3)) GO TO 1750 IF (ZR(J+1) .GT. SAVE(4)) GO TO 1760 IF (ZR(J+1) .GT. SAVE(5)) GO TO 1770 NULL(6) = NULL(6) + 1 GO TO 1780 1730 NULL(1) = NULL(1) + 1 GO TO 1780 1740 NULL(2) = NULL(2) + 1 GO TO 1780 1750 NULL(3) = NULL(3) + 1 GO TO 1780 1760 NULL(4) = NULL(4) + 1 GO TO 1780 1770 NULL(5) = NULL(5) + 1 1780 CONTINUE I = MAX0(1,NN-8) CALL PAGE2 (6) WRITE (NOUT,1790) UIM,DBNAME,N,EPSMAX,(NULL(J),J=1,6), 1 (ZI(J),J=I,NN,2) 1790 FORMAT (A29,' 2314. STATISTICS FOR SYMMETRIC DECOMPOSITION OF ', 1 'DATA BLOCK ',2A4,7H FOLLOW, 2 /10X,23HNUMBER OF UII .LT. 0 = ,I5, 3 /10X,36HMAXIMUM ABSOLUTE VALUE OF AII/UII = ,1P,E12.5, 4 /10X,13HN1 THRU N6 = ,6I6, 5 /10X,36HROW NUMBERS OF 5 LARGEST AII/UII = ,6I6 ) RETURN C C DIAGONAL ELEMENT .LT. 0.0 IN CHOLESKY DECOMPOSITION C 1800 WRITE (NOUT,1810) UFM 1810 FORMAT (A23,' 3181, ATTEMPT TO PERFORM CHOLESKY DECOMPOSITION ON', 1 ' A NEGATIVE DEFINITE MATRIX IN SUBROUTINE SDCOMP.') GO TO 2330 C C DIAGONAL ELEMENT .EQ. 0.0 C 1820 ZR(1) = RKHR IF (TYPEA .EQ. 2) ZD(1) = RKHR CALL PAGE2 (3) WRITE (NOUT,1830) UWM,ROW,RKHR 1830 FORMAT (A25,' 2396, SDCOMP COMPUTED A ZERO ON THE DIAGONAL DURING' 1, ' DECOMPOSITION AT ROW NUMBER',I6,1H., /5X, 2 'USE OF DIAG 22 OUTPUT SHOULD PERMIT YOU TO CORRELATE THE', 3 ' ROW WITH A MODEL D.O.F.', /5X,'A VALUE OF ',E13.6, 4 ' WILL BE USED IN PLACE OF THE ZERO, HOWEVER', /5X, 5 ' THE ACCURACY OF THE DECOMPOSITION MAY BE IN DOUBT.') GO TO KHR, (860,930) 1840 CALL CLOSE (SCRA,REW) CALL CLOSE (SCRB,REW) CALL CLOSE ( DBL,REW) CALL CLOSE (SCRC,REW) CALL CLOSE (SCRD,REW) RETURN 1 C C DECOMPOSE A 1X1 MATRIX C 1900 ITYPE1 = TYPEA ITYPE2 = TYPEA ITYPE3 = TYPEA POWER = 0 I1 = 1 J1 = 1 I2 = 1 J2 = 1 INCR1 = 1 INCR2 = 1 KK = 1 NULL(1)= 1 GO =.FALSE. CALL GOPEN (DBA,ZI(BUF1),RDREW) CALL UNPACK (*600,DBA,ZR) CALL CLOSE (DBA,REW) CALL GOPEN (DBL,ZI(BUF1),WRTREW) DBL(2) = 0 DBL(6) = 0 GO TO (1910,1920,1930,1940), TYPEA 1910 MINDS = ZR(1) DSR = ZR(1) IF (ZR(1)) 1950,600,1950 1920 MINDD = ZD(1) DDR = ZD(1) IF (ZD(1)) 1950,600,1950 1930 MINDS = SQRT(ZR(1)**2 + ZR(2)**2) DSR = ZR(1) DSC = ZR(2) IF (MINDS) 1950,600,1950 1940 MINDD = DSQRT(ZD(1)**2 + ZD(2)**2) DDR = ZD(1) DDC = ZD(2) IF (MINDD) 1950,600,1950 1950 CALL PACK (ZR,DBL,DBL) CALL CLOSE (DBL,REW) RETURN C C VARIOUS ERRORS LAND HERE C 2000 KERR = 1045 GO TO 2230 2010 KERR = 1046 GO TO 2230 2020 KERR = 1051 GO TO 2230 2030 KERR = 1310 GO TO 2230 2040 KERR = 1320 GO TO 2230 2050 KERR = 1300 GO TO 2230 2060 KERR = 1288 GO TO 2230 2070 KERR = 1065 GO TO 2230 2080 KERR = 1204 GO TO 2230 2090 KERR = 660 GO TO 2230 2100 KERR = 1215 GO TO 2230 2110 KERR = 1216 GO TO 2230 2120 KERR = 1288 GO TO 2230 2130 KERR = 1170 GO TO 2230 2140 KERR = 1350 GO TO 2230 2150 KERR = 1370 GO TO 2230 2160 KERR = 1340 GO TO 2230 2170 KERR = 1420 GO TO 2230 2180 KERR = 1620 GO TO 2230 2190 KERR = 1630 GO TO 2230 2200 KERR = 1640 GO TO 2230 2210 KERR = 1650 GO TO 2230 2220 KERR = 1407 GO TO 2230 2230 WRITE (NOUT,2240) SFM,KERR 2240 FORMAT (A25,' 3130, LOGIC ERROR',I6,' OCCURRED IN SDCOMP.') J = 66 WRITE (NOUT,2250) (KEY(I),I=1,J) 2250 FORMAT (36H0 CONTENTS OF / SDCOMX / FOLLOW -- ,/(1X,10I12)) GO TO 2330 C C ERROR EXITS C 2300 IER = -7 IFL = 0 GO TO 2340 2310 IER = -8 IFL = ICRQ GO TO 2340 2320 IER = -50 IFL = JKLM GO TO 2340 2330 IER = -37 IFL = 0 2340 CALL MESAGE (IER,IFL,SUBNAM) RETURN END ================================================ FILE: mis/sdcout.f ================================================ SUBROUTINE SDCOUT (BLOCK,IRW,AC,N,VECS,VECD) C C SDCOUT WRITES A ROW OF A MATRIX IN STRING FORMAT USING C PUTSTR/ENDPUT. C C BLOCK = A 15-WORD ARRAY IN WHICH BLOCK(1),(2),(3) HAVE ALREADY C BEEN COMPLETED WITH GINO NAME, TYPE AND FORMAT C IRW = ZERO -- ROW NBR OF VECTOR = AC(1) C = N.Z. -- ROW NBR OF VECTOR IS IRW C AC = A VECTOR OF N COLUMN POSITIONS (COL NBRS MAY BE .LT. 0) C N = NUMBER OF WORDS IN AC AND NUMBER OF TERMS IN VECS C VECS = A VECTOR OF N TERMS. THE POS OF EACH TERM IS DEFINED C BY THE NUMBER STORED IN THE CORRESPONDING POSITION IN AC C VECD = SAME VECTOR AS VECS C INTEGER AC(1) ,PRC ,WORDS ,RLCMPX ,TYPE , 1 RC ,PREC ,BLOCK(15) REAL VECS(1) ,XNS(1) DOUBLE PRECISION XND ,VECD(1) COMMON /TYPE / PRC(2) ,WORDS(4) ,RLCMPX(4) COMMON /ZZZZZZ/ XND(1) EQUIVALENCE (XND(1),XNS(1)) C BLOCK(8) = -1 BLOCK(12) = IRW IF (IRW .EQ. 0) BLOCK(12) = IABS(AC(1)) II = 0 TYPE = BLOCK(2) RC = RLCMPX(TYPE) PREC = PRC(TYPE) I = 1 C C DETERMINE LENGTH OF A STRING BY SCANNING AC C 10 BLOCK(4) = IABS(AC(I)) J = BLOCK(4) - I K = I + 1 12 IF (K .GT. N) GO TO 14 IF (IABS(AC(K)) .NE. J+K) GO TO 14 K = K + 1 GO TO 12 14 NBRSTR = K - I C C WRITE STRING WITH PUTSTR/ENDPUT C 15 CALL PUTSTR (BLOCK) BLOCK(7) = MIN0(BLOCK(6),NBRSTR) JSTR = BLOCK(5) NSTR = JSTR + RC*BLOCK(7) - 1 IF (PREC .EQ. 2) GO TO 18 C DO 16 JJ = JSTR,NSTR II = II + 1 XNS(JJ) = VECS(II) 16 CONTINUE GO TO 22 C 18 DO 20 JJ = JSTR,NSTR II = II + 1 XND(JJ) = VECD(II) 20 CONTINUE C C TEST FOR COMPLETION C 22 I = I + BLOCK(7) IF (I .GT. N) GO TO 30 CALL ENDPUT (BLOCK) IF (NBRSTR .EQ. BLOCK(7)) GO TO 10 NBRSTR = NBRSTR - BLOCK(7) BLOCK(4) = IABS( AC(I) ) GO TO 15 C C END LAST STRING C 30 BLOCK(8) = 1 CALL ENDPUT (BLOCK) RETURN END ================================================ FILE: mis/sdhtf1.f ================================================ SUBROUTINE SDHTF1 (TYPE,REJECT) C C THIS ROUTINE CONVERTS THE EST DATA FOR ALL THERMAL ELEMENTS TO A C COMMON FORMAT. SDHT1B IS CALLED TO PRODUCE THE OUTPUT C LOGICAL REJECT INTEGER ELID,SUB,SIL,NESTO(100),ELEM,NEST(2),TYPE, 1 POINTR(8,23),TYPOLD,STRSPT,ESTWDS,NESTSC(200), 2 POINT1(8,20),POINT2(8, 3),TUBE,FTUBE,CHBDY DIMENSION SHP(32),DSHP(3,32),XJACOB(3,3),BXYZ(3,32),GPT(32) COMMON /CONDAS/ CONSTS(5) COMMON /SDR2X4/ DUMX(109),STRSPT,DDRMM,ISOPL8 COMMON /SDR2X5/ EST(100),ELID,SIL(32),NQ,NP,NAME(2),DOMX(105), 1 DSHPB(3,32) COMMON /SDR2X6/ SUB,IMAT,AF,THETA,R(3,32),ESTSCR(200) COMMON /GPTA1 / NELS,LAST,INCR,ELEM(1) COMMON /MATIN / MATID,INFLAG,ELTEMP,DUM(1),SINTH,COSTH EQUIVALENCE (CONSTS(1),PI),(NESTSC(1),ESTSCR(1)), 1 (NESTO(1),SUB),(NEST(1),EST(1)), 2 (POINT1(1,1),POINTR(1,1)), 3 (POINT2(1,1),POINTR(1,21)) DATA TYPOLD, NUMELT, TUBE, FTUBE, CHBDY / 1 0, 23, 3, 82, 52 / C DATA HEX / 16 / C C THE POINTERS TO THE EST DATA ARE C C IM MAT ID C ITH THETA C IA AREA C IG GRID POINT DATA C IS SIL MINUS 1 C NP NO. OF POINTS C SUB SUBROUTINE TYPE C NO. IS ITH IM IA IG NP SUB C ---- -- --- -- -- -- -- ---- DATA POINT1 / 1 ,0 ,0 ,4 ,5 ,9 ,2 ,1 2 ,3 ,0 ,0 ,4 ,5 ,8 ,2 ,1 3 ,6 ,0 ,5 ,6 ,7 ,15 ,3 ,2 4 ,9 ,0 ,5 ,6 ,7 ,9 ,3 ,2 5 ,10 ,0 ,0 ,4 ,5 ,9 ,2 ,1 6 ,16 ,0 ,6 ,7 ,8 ,10 ,4 ,3 7 ,17 ,0 ,5 ,6 ,7 ,9 ,3 ,2 8 ,18 ,0 ,6 ,7 ,8 ,10 ,4 ,3 9 ,19 ,0 ,6 ,7 ,8 ,16 ,4 ,3 T ,34 ,0 ,0 ,16 ,17 ,34 ,2 ,1 1 ,36 ,0 ,5 ,6 ,0 ,7 ,3 ,4 2 ,37 ,0 ,6 ,7 ,0 ,8 ,4 ,5 3 ,39 ,1 ,0 ,2 ,0 ,7 ,4 ,6 4 ,40 ,1 ,0 ,2 ,0 ,9 ,6 ,7 5 ,41 ,1 ,0 ,2 ,0 ,11 ,8 ,8 6 ,42 ,1 ,0 ,2 ,0 ,11 ,8 ,9 7 ,52 ,1 ,0 ,15 ,16 ,21 ,8 ,10 8 ,62 ,0 ,6 ,7 ,8 ,10 ,4 ,3 9 ,63 ,0 ,6 ,7 ,8 ,10 ,4 ,3 T ,65 ,0 ,0 ,10 ,0 ,16 ,8 ,16 / DATA POINT2 / 66 ,0 ,0 ,22 ,0 ,28 ,20 ,16 2 ,67 ,0 ,0 ,34 ,0 ,40 ,32 ,16 3 ,76 ,0 ,11 ,12 ,13 ,14 ,8 ,17 / C IF (TYPE .EQ. FTUBE) GO TO 115 IF (TYPE .EQ. TYPOLD) GO TO 50 TYPOLD = TYPE REJECT = .TRUE. DO 20 I = 1,NUMELT IEL = I IF (TYPE-POINTR(1,I)) 30,40,20 20 CONTINUE 30 RETURN C 40 REJECT = .FALSE. 50 IF ((TYPE.GE.65.AND.TYPE.LE.67) .AND. STRSPT.EQ.0) 1 STRSPT = STRSPT + 1 IP = (TYPE-1)*INCR ESTWDS = ELEM(IP+12) C C THE LOCATIONS OF DATA FOR EACH PARTICULAR ELEMENT ARE ZEROED OUT C NQ = 0 DO 55 I = 1,100 55 NESTO(I) = 0 NAME(1) = ELEM(IP+1) NAME(2) = ELEM(IP+2) ELID = NEST(1) DO 56 I = 1,32 56 NEST(I+101) = 0 DO 57 I = 1,201 57 NEST(I+137) = 0 IF (TYPE .EQ. TUBE) EST(5) = PI*ESTSCR(6)*(ESTSCR(5)-ESTSCR(6)) IF (TYPE.EQ.CHBDY .AND. NESTSC(2).EQ.7) 1 EST(16) = PI*(ESTSCR(19)+ESTSCR(20)) IS = POINTR(2,IEL) ITH = POINTR(3,IEL) IM = POINTR(4,IEL) IA = POINTR(5,IEL) IG = POINTR(6,IEL) SUB = POINTR(8,IEL) NP = POINTR(7,IEL) C IF (SUB .EQ. 10) SUB = SUB + NESTSC(2) - 1 INFLAG = 1 IF (SUB.GE.16) INFLAG = 3 IF (SUB.LT.2 .OR. SUB.GT.5) GO TO 60 INFLAG = 2 GO TO 70 60 IF (SUB.LT.6 .OR. SUB.GT.9) GO TO 70 INFLAG = 3 70 CONTINUE IF (SUB .NE. 16) GO TO 79 C C GET SHAPE FUNCTIONS ETC. FOR STRESS POINT(ALSO DETERMINE THE C STRESS POINT, WHICH WILL BE THE GRID POINTS PLUS CENTROID IN C ELEMENT COORDINATES C ITYPE = TYPE - 64 DO 71 I = 1,NP GPT(I) = ESTSCR(5*NP+7+I) DO 71 J = 1,3 BXYZ(J,I) = ESTSCR(NP+4+4*I+J) 71 CONTINUE C C GET STRESS POINT C Y =-1. Z =-1. IF (ITYPE .GT. 1) GO TO 502 D = 2. X = 1. GO TO 505 502 D = 1. X = 0. 505 IF (ITYPE .GT. 1) GO TO 560 GO TO (510,520,530,510,540,520,530,510,550), STRSPT 510 X = X - D GO TO 590 520 X = X + D GO TO 590 530 Y = Y + D GO TO 590 540 Z = Z + D Y = -1. GO TO 590 550 X = 0. Y = 0. Z = 0. GO TO 590 560 GO TO (510,520,520,530,530,510,510,570,580,520, 1 530,510,580,520,520,530,530,510,510,570, 2 550), STRSPT 570 Y = Y - D GO TO 590 580 Z = Z + 1. Y = -1. D = 3. - D 590 CALL IHEXSS (ITYPE,SHP,DSHP,XJACOB,DETJ,ELID,X,Y,Z,BXYZ) C C GET DERIVATIVES W.R.T.X,Y,Z(REVERSE CALLING SEQUENCE BECAUSE C COLUMN-STORED C CALL GMMATS (DSHP,NP,3,0,XJACOB,3,3,0,DSHPB) C 79 CONTINUE C IF (IA .GT. 0) AF = ESTSCR(IA) MATID = NESTSC(IM) IF (MATID .LE. 0) RETURN SINTH = 0.0 COSTH = 1.0 IF (INFLAG .NE. 2) GO TO 80 THETA = ESTSCR(ITH)*PI/180. IF (THETA .EQ. 0.0) GO TO 80 SINTH = SIN(THETA) COSTH = COS(THETA) 80 ITEMP = IG + 4*NP ELTEMP= ESTSCR(ITEMP) IF (SUB .NE. 16) GO TO 85 ISOPL8= 8 ELTEMP= 0. DO 82 I = 1,NP 82 ELTEMP= ELTEMP + GPT(I)*SHP(I) 85 CONTINUE IMAT = MATID CALL HMAT (ELID) C DO 110 I = 1,NP IP = 4*(I-1) + IG DO 100 J = 1,3 ILOC = IP + J 100 R(J,I) = ESTSCR(ILOC) ISIL = IS + I + 1 SIL(I) = NESTSC(ISIL) 110 CONTINUE C CALL SDHTFF GO TO 120 C C FTUBE CONVECTION ELEMENT C 115 REJECT =.FALSE. I = 0 NEST(I+101) = NESTSC(1) NEST(I+102) = NESTSC(2) NEST(I+103) = NESTSC(3) EST (I+104) = ESTSCR(4)*ESTSCR(5) EST (I+105) = 0.0 C 120 RETURN END ================================================ FILE: mis/sdhtf2.f ================================================ SUBROUTINE SDHTF2(IEQEX,NEQEX) C***** C THIS ROUTINE CALCULATES TEMPERATURE GRADIENTS AND HEAT FLOWS C FOR ALL ELEMENTS IN A HEAT TRANSFER PROBLEM. C DATA IS OUTPUT FOR ELEMENT FORCE REQUEST ONLY. C****** INTEGER IGRAD(3), IQOUT(3), FTUBE REAL ESTA(202) DIMENSION IZ(1),IPT(21) COMMON /ZZZZZZ/ ZZ(1) COMMON /SDR2X4/ DUMMY(35),IVEC COMMON/SDR2X7/IDE,ISIL(32),NQ,NSIL,NAME(2),RK(9),CE(96), 1 DUM(58),IDO,NAMO(2),TGRAD(3),QOUT(3) COMMON/SDR2X8/TVEC(32) EQUIVALENCE (TGRAD(1),IGRAD(1)) ,(QOUT(1),IQOUT(1)) EQUIVALENCE (ZZ(1),IZ(1)), (ESTA(1),IDE) DATA IHEX/4HIHEX/,IONE,ITWO,ITHR/4H1 ,4H2 ,4H3 / DATA IHEX1,IHEX2,IHEX3/4HHEX1,4HHEX2,4HHEX3/ DATA FTUBE/4HFTUB/ DATA IOLD/0/ DATA IPT/4H 1,4H E1,4H 4,4H E2,4H 7,4H E3,4H 10, 1 4H E4,4H E5,4H E6,4H E7,4H E8,4H 21,4H E9, 2 4H 24,4H E10,4H 27,4H E11,4H 30,4H E12,4H 0/ C IF (NAME(1) .EQ. FTUBE) GO TO 70 DO 10 I=1,3 IGRAD(I)= 1 10 IQOUT(I)= 1 IDO= IDE NAMO(1)= NAME(1) NAMO(2)= NAME(2) C C FOR ISOPARAMETRIC SOLIDS, GET SIL NUMBER AND CONVERT TO EXTERNAL. C STORE IT IN NAMO(2) C IF(NAMO(1).NE.IHEX) GO TO 29 IF(IOLD.EQ.IDE) GO TO 11 IOLD=IDE ISTRPT=0 11 IF(NAMO(2).EQ.IONE) NAMO(1)=IHEX1 IF(NAMO(2).EQ.ITWO) NAMO(1)=IHEX2 IF(NAMO(2).EQ.ITHR) NAMO(1)=IHEX3 ISTRPT=ISTRPT+1 IF(ISTRPT.EQ.NSIL+1.OR.ISTRPT.EQ.21) IOLD=0 IF(NAMO(1).EQ.IHEX3) GO TO 12 IF(NAMO(1).EQ.IHEX1.AND.ISTRPT.EQ.9) GO TO 15 IF(NAMO(1).EQ.IHEX2.AND.ISTRPT.EQ.21) GO TO 15 GO TO 13 12 NAMO(2)=IPT(ISTRPT) GO TO 29 13 ISUB1=IEQEX+1 ISUB2=IEQEX+NEQEX-1 DO 14 JJJ=ISUB1,ISUB2,2 NS=IZ(JJJ)/10 IF(NS.NE.ISIL(ISTRPT)) GO TO 14 NAMO(2)=IZ(JJJ-1) GO TO 29 14 CONTINUE CALL MESAGE(-30,164,IZ(JJJ)) 15 NAMO(2)=0 29 CONTINUE IF(NQ .LE. 0) GO TO 60 DO 30 I=1,NSIL TVEC(I)= 0.0 IP= ISIL(I) IF( IP .EQ. 0) GO TO 30 ITEMP = IVEC + IP -1 TVEC(I) = ZZ(ITEMP) 30 CONTINUE C*** CALL GMMATS( CE(1),NQ,NSIL,0, TVEC(1),NSIL,1,0, TGRAD(1) ) C CALL GMMATS( RK(1),NQ,NQ,0, TGRAD(1),NQ,1,0, QOUT(1) ) C DO 40 I=1,NQ 40 QOUT(I) =-QOUT(I) RETURN 60 TGRAD(1) = 0.0 QOUT(1) = 0.0 GO TO 80 C 70 IDO=IDE ITEMP=IVEC + ISIL(1) - 1 TVEC(1)=ZZ(ITEMP) ESTA(202)=TVEC(1)*ESTA(4) C 80 RETURN END ================================================ FILE: mis/sdhtff.f ================================================ SUBROUTINE SDHTFF C C THIS ROUTINE CALCULATES THE PHASE 1 FLUX-TEMPERATURE RELATIONSHIPS C INTEGER SUB,NELS(18),IP(32),SMAP(52),STRSPT,SIG REAL C(12),K,KQ(9),DR(3,4),MATO,EL,ZI(3),VEC(3),VVEC(3) COMMON /CONDAS/ CONSTS(5) COMMON /SDR2X4/ DUMX(109),STRSPT COMMON /SDR2X5/ EST(100),IDE,SIG(32),NQ,NSIL,NAME(2),K(9),CE(96), 1 DSHPB(3,32) COMMON /SDR2X6/ SUB,IMAT,AF,THETA,R(3,32) COMMON /HMTOUT/ MATO(6) EQUIVALENCE (CONSTS(1),PI) DATA NELS / 1,1,4,1,4,1,3,5,10,1,1,1,1,4,1,1,1,1 / DATA SMAP / 1 ,2 ,3 ,6 , 1 1 ,2 ,6 ,5 , 2 1 ,4 ,5 ,6 , 3 1 ,2 ,3 ,6 , 4 1 ,3 ,4 ,8 , 5 1 ,3 ,8 ,6 , 6 1 ,5 ,6 ,8 , 7 3 ,6 ,7 ,8 , 8 2 ,3 ,4 ,7 , 9 1 ,2 ,4 ,5 , O 2 ,4 ,5 ,7 , 1 2 ,5 ,6 ,7 , 2 4 ,5 ,7 ,8 / C GO TO (30,40,40,40,40,50,50,50,50,30,30,30,30,30,30,50,50,30), SUB 30 K(1) = MATO(1) NQ = 1 GO TO 60 40 K(1) = MATO(1) K(2) = MATO(2) K(3) = K(2) K(4) = MATO(3) NQ = 2 GO TO 60 50 K(1) = MATO(1) K(2) = MATO(2) K(3) = MATO(3) K(4) = K(2) K(5) = MATO(4) K(6) = MATO(5) K(7) = K(3) K(8) = K(6) K(9) = MATO(6) NQ = 3 60 CONTINUE IP(1)= 1 IP(2)= 2 IP(3)= 3 IF (SUB .EQ. 17) GO TO 111 IF (SUB.NE.3 .AND. SUB.NE.5) GO TO 100 C C MOVE QUADS TO ELEMENT COORDINATES C (CQUAD4? APPEARENTLY UP TO ELEMENT TYPE 52 ONLY) C DO 70 I = 1,3 DR(I,1) = R(I,2) - R(I,1) DR(I,3) = R(I,3) - R(I,1) 70 DR(I,2) = R(I,4) - R(I,2) CALL SAXB (DR(1,3),DR(1,2),DR(1,4)) C EL = SQRT(DR(1,1)**2 + DR(2,1)**2 + DR(3,1)**2) AREA = SQRT(DR(1,4)**2 + DR(2,4)**2 + DR(3,4)**2) C DO 80 I = 1,3 DR(I,1) = DR(I,1)/EL 80 DR(I,4) = DR(I,4)/AREA C CALL SAXB (DR(1,4),DR(1,1),DR(1,2)) DO 90 I = 1,3 90 DR(I,4) = R(I,4) - R(I,1) CALL GMMATS (DR(1,1),2,3,0,DR(1,3),2,3,1,KQ) DR(1,3) = KQ(1) DR(1,4) = KQ(2) DR(2,3) = KQ(3) DR(2,4) = KQ(4) DR(1,2) = EL DR(1,1) = 0.0 DR(2,1) = 0.0 DR(2,2) = 0.0 GO TO 120 100 IF (SUB.NE.2 .AND. SUB.NE.4) GO TO 120 C C MOVE TRIANGLES TO ELEMENT COORDINATES C (CTRIA3?) C DO 110 I = 1,3 DR(I,1) = R(I,2) - R(I,1) 110 DR(I,2) = R(I,3) - R(I,1) C EL = DR(1,1)**2 + DR(2,1)**2 + DR(3,1)**2 EL = SQRT(EL) AREA = SADOTB(DR(1,1),DR(1,2))/EL CALL SAXB (DR(1,1),DR(1,2),DR(1,3)) DR(2,3) = SQRT(DR(1,3)**2 + DR(2,3)**2 + DR(3,3)**2)/EL DR(1,3) = AREA DR(1,1) = 0.0 DR(1,2) = EL DR(2,1) = 0.0 DR(2,2) = 0.0 GO TO 120 C C IS2D8-CENTROID ONLY-WE NEED TO CONVERT ONLY GRIDS 5-8 TO LOCAL C COORDS C 111 DO 112 I = 1,3 112 ZI(I) = R(I,2) - R(I,1) ZLEN = SQRT(ZI(1)**2 + ZI(2)**2 + ZI(3)**2) DO 113 I = 1,3 113 ZI(I) = ZI(I)/ZLEN DO 115 I = 5,8 DO 114 J = 1,3 114 VEC(J) = R(J,I) - R(J,1) DR(1,I-4) = SADOTB(VEC,ZI) CALL SAXB (ZI,VEC,VVEC) DR(2,I-4) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2) 115 CONTINUE 120 CONTINUE C C LOOP ON SUBELEMENTS (ONE FOR MOST) C FACT = 0.0 NEL = NELS(SUB) XELS = FLOAT(NEL) DO 460 IEL = 1,NEL C GO TO (130,160,160,140,140,200,220,240,240,330,330,330, 1 330,330,330,285,291,330), SUB C C RODS,BARS, ETC. C 130 EL = 0.0 DO 135 I = 1, 3 EL = EL + (R(I,1)-R(I,2))**2 135 CONTINUE EL = SQRT(EL) C(1) = -1.0/EL C(2) = 1.0/EL NP = 2 GO TO 300 C C RING ELEMENTS, TRIANGLES AND QUADRILATERALS C 140 AF = 1.0 160 DO 170 I = 1,3 IG = I + IEL - 1 IF (IG .GT. 4) IG = IG - 4 170 IP(I) = IG I1 = IP(1) I2 = IP(2) I3 = IP(3) AREA = DR(1,I1)*(DR(2,I2)-DR(2,I3)) + DR(1,I2)*(DR(2,I3)-DR(2,I1)) 2 + DR(1,I3)*(DR(2,I1)-DR(2,I2)) C(1) = (DR(2,I2) - DR(2,I3))/AREA C(2) = (DR(2,I3) - DR(2,I1))/AREA C(3) = (DR(2,I1) - DR(2,I2))/AREA C(4) = (DR(1,I3) - DR(1,I2))/AREA C(5) = (DR(1,I1) - DR(1,I3))/AREA C(6) = (DR(1,I2) - DR(1,I1))/AREA C NP = 3 GO TO 300 C C SOLID ELEMENTS C 200 DO 210 I = 1,4 210 IP(I) = I GO TO 260 C C WEDGE C 220 LROW = 4*IEL - 4 DO 230 I = 1,4 I1 = LROW + I 230 IP(I) = SMAP(I1) GO TO 260 C C HEXA1 AND HEXA2 ELEMENTS C 240 LROW = 4*IEL + 8 DO 250 I = 1,4 I1 = LROW + I 250 IP(I) = SMAP(I1) 260 I1 = IP(1) DO 270 I = 1,3 IG = IP(I+1) DO 270 J = 1,3 DR(J,I) = R(J,IG) - R(J,I1) 270 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (3,DR,3,C,0,DETERM,ISING,C(4)) DO 280 I = 1,3 IG = 4*I - 4 C(IG+1) = 0.0 DO 280 J = 2,4 I1 = IG + J C(I1 ) = DR(J-1,I) C(IG+1) = C(IG+1) - C(I1) 280 CONTINUE NP = 4 GO TO 300 C C ISOPARAMETRIC SOLIDS C 285 IG = 0 DO 290 I = 1,3 DO 290 J = 1,NSIL IG = IG + 1 290 CE(IG) = DSHPB(I,J) GO TO 460 C C IS2D8- SINCE CENTROID ONLY, WE CAN EASILY COMPUTE SHAPE FUNCTIONS C DERIVATIVES, JACOBIAN,ETC.. THE FINAL RESULT OF DNDX,DNDY=DNL IS C GIVEN C 291 X68 = DR(1,2) - DR(1,4) X57 = DR(1,1) - DR(1,3) Y68 = DR(2,2) - DR(2,4) Y57 = DR(2,1) - DR(2,3) DENOM = -X68*Y57 + X57*Y68 DO 292 I = 1,24 292 CE(I) = 0. CE( 5) = Y68/DENOM CE( 6) =-Y57/DENOM CE( 7) =-Y68/DENOM CE( 8) = Y57/DENOM CE(13) =-X68/DENOM CE(14) = X57/DENOM CE(15) = X68/DENOM CE(16) =-X57/DENOM GO TO 460 C C SUPERIMPOSE C MATRICES ONTO CE MATRICES OF THE WHOLE ELEMENT C 300 DO 310 I = 1,NP DO 310 J = 1,NQ I1 = NP*(J-1) + I IG = NSIL*(J-1) + IP(I) CE(IG) = CE(IG) + C(I1)/XELS 310 CONTINUE GO TO 460 C C BOUNDARY HEAT CONVECTION ELEMENTS C 330 ITYPE = SUB - 9 IF (ITYPE .GT. 7) RETURN GO TO (340,350,370,380,380,350,350), ITYPE 340 NP = 1 C(1) = 1.0 FACT = AF*K(1) GO TO 410 350 NP = 2 C(1) = 0.5 C(2) = 0.5 EL = SQRT((R(1,1)-R(1,2))**2 + (R(2,1)-R(2,2))**2 + 1 (R(3,1)-R(3,2))**2) FACT = AF*EL*K(1) GO TO 410 C C RING SURFACE C 370 EL = ((R(1,2)-R(1,1))**2 + (R(3,2)-R(3,1))**2) FACT = 3.0*(R(1,1) + R(1,2)) C(1) = (2.0*R(1,1) + R(1,2))/FACT C(2) = (R(1,1) + 2.0*R(1,2))/FACT FACT = (R(1,1) + R(1,2))*PI*SQRT(EL)*K(1) NP = 2 GO TO 410 C C TRIANGLES (ALSO FOR SUBELEMENT OF QUAD) C 380 DO 390 I = 1,3 IG = I + IEL - 1 IF (IG .GT. 4) IG = IG - 4 IP(I) = IG 390 CONTINUE I1 = IP(1) I2 = IP(2) I3 = IP(3) DO 400 I = 1,3 DR(I,1) = R(I,I2) - R(I,I1) 400 DR(I,2) = R(I,I3) - R(I,I1) CALL SAXB (DR(1,1),DR(1,2),DR(1,3)) AREA = (SQRT(DR(1,3)**2 + DR(2,3)**2 +DR(3,3)**2))/2.0 IF (ITYPE .EQ. 5) AREA = AREA/2.0 FACT = FACT + AREA*MATO(1) C(1) = 1.0/3.0 C(2) = C(1) C(3) = C(1) NP = 3 C C SUPERIMPOSE C MATRIX INTO CE MATRIX C 410 DO 420 I = 1,NP IG = IP(I) CE(IG) = CE(IG) + C(I)/XELS IG = IP(I) + 4 420 CE(IG) = CE(IG) - C(I)/XELS K(1) = FACT 460 CONTINUE RETURN END ================================================ FILE: mis/sdr1.f ================================================ SUBROUTINE SDR1 C EXTERNAL ANDF INTEGER ANDF,UE,REIG,USET,PG,ULV,UOOV,YS,GO,GM,PS,QR, 1 UGVX,PGX,QSX,UM,UO,UR,US,IA(7), 2 UA1,UF1,UN1,UG1,UP,UNE,UFE,UD,UA,UF,UN,UG,DYNA COMMON /TWO / TWO1(32) COMMON /BLANK / APPEND,ITYPE(2) COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA1,UF1,US,UN1,UG1,UE,UP,UNE, 1 UFE,UD COMMON /SYSTEM/ ISYS(54),IPREC,IHEAT EQUIVALENCE (ISYS(25),IRFNO) DATA DYNA , REIG / 4HDYNA, 4HREIG / C IUM = 304 ISCR6 = 306 IUR = 0 IUO = 304 IPVECT= 301 IUS = 304 USET = 101 PG = 102 ULV = 103 UOOV = 104 YS = 105 GO = 106 GM = 107 PS = 108 KSS = 110 QR = 111 UGVX = 201 PGX = 202 QSX = 203 KFS = 109 IUA = 302 IUF = 303 IUN = 302 IUG = 306 ISCR5 = 0 C C COPY PG ONTO PGX C CALL SDR1A (PG,PGX) C C SET FLAGS TO CONTROL LOGIC C IA(1) = USET CALL RDTRL (IA(1)) IF (IA(1) .LE. 0) RETURN IOMT = ANDF(IA(5),TWO1(UO)) NOUE = ANDF(IA(5),TWO1(UE)) ISNG = ANDF(IA(5),TWO1(US)) IREACT = ANDF(IA(5),TWO1(UR)) IMULTI = ANDF(IA(5),TWO1(UM)) ITRAN = 1 C C TEST FOR DYNAMICS OR STATICS C IF (NOUE.NE.0 .OR. ITYPE(1).EQ.DYNA) GO TO 10 C C STATICS C UA = UA1 UF = UF1 UN = UN1 UG = UG1 GO TO 20 C C DYNAMICS C 10 UG = UP UN = UNE UF = UFE UA = UD IF (IHEAT .NE. 0) ITRAN = 0 IF (IRFNO .EQ. 9) ITRAN = 0 20 CONTINUE C C IF REAL EIGENVALUE,BUCKLING,OR DYNAMICS PROBLEM UR = 0 C IF (ITYPE(1).EQ.DYNA .OR. ITYPE(1).EQ.REIG) GO TO 70 IF (IREACT) 40,70,40 C C REACTIONS C 40 CALL SDR1B (IPVECT,ULV,IUR,IUA,UA,UL,UR,USET,0,0) ISCR5 = 305 IF (ISNG) 50,60,50 50 CONTINUE CALL SDR1B (IPVECT,QR,0,ISCR5,UF,UR,UL,USET,0,0) IUG = IUA GO TO 80 C C REACTS BUT NO SINGLES - MAKE QG C 60 CALL SDR1B (IPVECT,QR,0,ISCR5,UG,UR,UL,USET,0,0) CALL SDR1A (ISCR5,QSX) GO TO 80 C C NO REACT C C C NON STATICS APPROACH C 70 IUA = ULV 80 IF (IOMT) 90,100,90 C C OMITTED POINTS C 90 CALL SSG2B (GO,IUA,UOOV,IUO,0,IPREC,1,ISCR6) CALL SDR1B (IPVECT,IUA,IUO,IUF,UF,UA,UO,USET,0,0) IUG = IUF GO TO 110 C C NO OMITTED POINTS C 100 ISAV = IUF IUF = IUA IUN = ISAV 110 IF (ISNG) 120,180,120 C C SINGLE POINT CONSTRAINTS C C C TEST FOR PRESENCE OF YS VECTOR C 120 IA(1) = YS CALL RDTRL (IA(1)) IF (IA(1).LT.0 .OR. IA(6).EQ.0) GO TO 130 CALL SDR1B (IPVECT,IUF,YS,IUN,UN,UF,US,USET,1,IUS) C C IUS CONTAINS EXPANDED YS FROM SPC C C C IS QS REWUESTED C IA(1) = QSX CALL RDTRL (IA(1)) IF (IA(1) .LE. 0) GO TO 190 C C COMPUTE QS C CALL SSG2B (KSS,IUS,PS,IPVECT,0,IPREC,2,ISCR6) CALL SSG2B (KFS,IUF,IPVECT,IUS,1,IPREC,1,ISCR6) IF (IMULTI.NE.0 .AND. IREACT.NE.0) GO TO 160 CALL SDR1B (IPVECT,IUS,ISCR5,ISCR6,UG,US,UF,USET,0,0) CALL SDR1A (ISCR6,QSX) GO TO 190 C C NO YS VECTOR C 130 CALL SDR1B (IPVECT,IUF,0,IUN,UN,UF,US,USET,0,0) IA(1) = QSX CALL RDTRL (IA(1)) IF (IA(1) .LE. 0) GO TO 190 C C COMPUTE QS = KFS T*UF C IUF1 = IUF IF (ITYPE(1) .NE. DYNA) GO TO 140 C C EXPAND KFS TO D SET C IF (NOUE .EQ. 0) GO TO 140 CALL SDR1B (IPVECT,KFS,0,IUS,UF,UF1,UE,USET,0,0) KFS = IUS C C IF TRANSIENT STRIP VELOCITY AND ACCERERATION FROM IUF C 140 CALL SDR1D (PS,IUF,QSX,ITRAN) IF (ITRAN .EQ. 1) GO TO 150 IUF1 = QSX 150 CALL SSG2B (KFS,IUF1,PS,IPVECT,1,IPREC,2,ISCR6) IF (IMULTI.NE.0 .AND. IREACT.NE.0 .AND. ITYPE(1).NE.DYNA .AND. 1 ITYPE(1).NE.REIG) GO TO 170 CALL SDR1B (IUS,IPVECT,ISCR5,ISCR6,UG,US,UF,USET,0,0) CALL SDR1A (ISCR6,QSX) GO TO 190 160 CALL SDR1B (IPVECT,IUS,ISCR5,ISCR6,UN,US,UF,USET,0,0) CALL SDR1B (IPVECT,ISCR6,0,IUS,UG,UN,UM,USET,0,0) CALL SDR1A (IUS,QSX) GO TO 190 170 CALL SDR1B (IUS,IPVECT,ISCR5,IUF,UN,US,UF,USET,0,0) CALL SDR1B (IUS,IUF,0,IPVECT,UG,UN,UM,USET,0,0) CALL SDR1A (IPVECT,QSX) GO TO 190 C C NO SINGLE POINT CONSTRAINTS C 180 IUG = IUN IUN = IUF C 190 IF (IMULTI) 210,200,210 C C NO MULTI POINT CONSTRAINTS C 200 IUG = IUN GO TO 220 C C MULTI POINT CONSTRAINTS C 210 IUG = ISCR6 CALL SSG2B (GM,IUN,0,IUM,0,IPREC,1,ISCR6) CALL SDR1B (IPVECT,IUN,IUM,IUG,UG,UN,UM,USET,0,0) 220 CALL SDR1A (IUG,UGVX) RETURN END ================================================ FILE: mis/sdr1a.f ================================================ SUBROUTINE SDR1A (INPUT,IOUT) C C THIS ROUTINE MAKES PS AND IUF COMPATABLE TO COMPUTE QS IN C CASE OF TRANSIENT ANALYSIS C INTEGER SYSBUF,BCD1(2),MCB(7),PS,IA(7),CORE(1100) C COMMON /ZZZZZZ/ COREX(1) COMMON /SYSTEM/ SYSBUF,KSYSTM(65) COMMON /BLANK / LOADNN COMMON /UNPAKX/ IT1,II,JJ,INCR COMMON /PACKX / IT2,IT3,II1,JJ1,INCR1 EQUIVALENCE (CORE(1),COREX(1)) C DATA BCD1 / 4HSDR1,4HA / C NZ = KORSZ(CORE) - SYSBUF CALL OPEN (*40,INPUT,CORE(NZ+1),0) CALL SKPREC (INPUT,1) NZ = NZ - SYSBUF LOADNN = MAX0(LOADNN,1) IF (LOADNN .EQ. 1) GO TO 50 IA(1) = IOUT CALL RDTRL (IA) IF (IA(2) .EQ. 0) GO TO 50 IA(1) = INPUT CALL RDTRL(IA) IF(IA(2) .EQ. 0) CALL MESAGE (-7,0,BCD1) C C POSITION TO END C CALL GOPEN (IOUT,CORE(NZ+1),0) CALL SKPFIL (IOUT,+1) CALL SKPFIL (IOUT,-1) CALL CLOSE (IOUT,+2) IA(1) = IOUT CALL RDTRL (IA) IA(7) = 0 CALL GOPEN (IOUT,CORE(NZ+1),3) 10 MCB(1) = INPUT CALL RDTRL (MCB) K = MCB(2) IT1 = MCB(5) IT2 = IT1 IT3 = IT2 INCR = 1 INCR1 = 1 DO 30 I = 1,K II = 0 CALL UNPACK (*20,INPUT,CORE) II1 = II JJ1 = JJ CALL PACK (CORE,IOUT,IA) GO TO 30 20 II1 = 1 JJ1 = 1 CORE(1) = 0 CORE(2) = 0 CORE(3) = 0 CORE(4) = 0 CALL PACK (CORE,IOUT,IA) 30 CONTINUE CALL CLOSE (INPUT,1) CALL CLOSE (IOUT,1) CALL WRTTRL (IA) 40 RETURN C C FIRST TIME C 50 CALL GOPEN (IOUT,CORE(NZ+1),1) IA(1) = INPUT CALL RDTRL (IA) IA(2) = 0 IA(6) = 0 IA(7) = 0 IA(1) = IOUT GO TO 10 C C SDR1D - C ENTRY SDR1D (PS,IUF,IUF1,ITRAN) C =============================== C IF (ITRAN .EQ. 0) GO TO 60 ITRAN = 1 MCB(1) = PS CALL RDTRL (MCB) IF (MCB(1) .LE. 0) GO TO 100 NCOLPS = MCB(2) MCB(1) = IUF CALL RDTRL (MCB) IF (NCOLPS .EQ. MCB(2)) RETURN C C THIS IS A TRANSIENT PROBLEM ITRAN = 0 C 60 MCB(1) = IUF CALL RDTRL (MCB) NCOLPS = MCB(2)/3 IBF = KORSZ(CORE) - SYSBUF CALL GOPEN (IUF,CORE(IBF),0) IBF1 = IBF - SYSBUF CALL GOPEN (IUF1,CORE(IBF1),1) IT1 = MCB(5) IT2 = IT1 IT3 = IT2 INCR = 1 INCR1 = 1 MCB(1) = IUF1 MCB(2) = 0 MCB(6) = 0 MCB(7) = 0 DO 90 I = 1,NCOLPS II = 0 CALL UNPACK (*70,IUF,CORE) II1 = II JJ1 = JJ GO TO 80 70 CORE(1) = 0 CORE(2) = 0 CORE(3) = 0 CORE(4) = 0 II1 = 1 JJ1 = 1 80 CALL SKPREC (IUF,2) CALL PACK (CORE,IUF1,MCB) 90 CONTINUE CALL CLOSE (IUF1,1) CALL CLOSE (IUF,1) CALL WRTTRL (MCB) 100 RETURN END ================================================ FILE: mis/sdr1b.f ================================================ SUBROUTINE SDR1B (IPVECT,IM1,IM2,IOUT,MAJOR,SUB1,SUB2,IUSET, 1 IOPT,IOUT1) C INTEGER NAME(2),CORE(7),SYSBUF,IPV1(7) COMMON /SYSTEM/ SYSBUF COMMON /ZZZZZZ/ KORE(1) COMMON /PATX / NZ,NSUB1,NSUB2,NSUB3,IUSET1 COMMON /PARMEG/ IA(7),IA11(7),IA12(7),IB11(7),IB12(7),NZ1,IRULE COMMON /UNPAKX/ ITU1,IIU1,JJU1,INCR1 COMMON /PACKX / ITP1,ITP2,IIP1,JJP1,INCR EQUIVALENCE (CORE(1),KORE(1)) DATA NAME / 4HSDR1,4HB / C C NZ = KORSZ(CORE) NZ1 = NZ IUSET1 = IUSET DO 10 I = 2,7 IA11(I) = 0 IA12(I) = 0 IA(I) = 0 10 CONTINUE IA11(1) = IM1 IF (IM1 .EQ. 0) GO TO 20 CALL RDTRL (IA11) 20 IA12(1) = IM2 CALL RDTRL (IA12) IF (IA11(1).LT.0 .AND. IA12(1).LT.0) RETURN CALL CALCV (IPVECT,MAJOR,SUB1,SUB2,CORE) IF (IOPT .NE. 0) GO TO 60 IF (IA12(1) .LE. 0) IA12(1) = 0 30 IB11(1) = 0 IB12(1) = 0 IA(3) = NSUB1 + NSUB2 + NSUB3 IA(2) = MAX0(IA11(2),IA12(2)) IA(4) = 2 IF (IM2 .EQ. 0) IA12(5) = IA11(5) IPREC = MIN0(1-MOD(IA11(5),2),1-MOD(IA12(5),2)) ITYPE = 1 IF (IA11(5).GT.2 .OR. IA12(5).GT.2) ITYPE = 3 IA(5) = IPREC + ITYPE 40 IRULE = 0 IA(1) = IOUT IPV1(1) = IPVECT CALL RDTRL (IPV1) CORE(1) = 0 CORE(2) = 1 CORE(3) = IA(2) CORE(4) = 2 CORE(5) = 1 CORE(6) = 0 CORE(7) = 0 CALL MERGE (CORE,IPV1,CORE) CALL WRTTRL (IA) RETURN C C EXPAND YS C 60 NZ = NZ - SYSBUF CALL OPEN (*130,IM2,CORE(NZ+1),0) NZ = NZ - SYSBUF CALL OPEN (*150,IOUT1,CORE(NZ+1),1) CALL FNAME (IM2,CORE) CALL WRITE (IOUT1,CORE,2,1) IA(1) = IM2 CALL RDTRL (IA) NOYS = IA(2) IA(2) = 0 IA(1) = IOUT1 IA(6) = 0 IA(7) = 0 CALL FWDREC (*130,IM2) NLOAD = IA11(2) ITU1 = IA(5) INCR = 1 ITP1 = ITU1 ITP2 = ITP1 INCR1 = 1 DO 100 I = 1,NLOAD IF (I .GT. NOYS) GO TO 81 IIU1 = 0 CALL UNPACK (*80,IM2,CORE) IIP1 = IIU1 JJP1 = JJU1 81 CALL PACK( CORE,IOUT1,IA) GO TO 100 80 CORE(1) = 0 CORE(2) = 0 CORE(3) = 0 CORE(4) = 0 IIP1 = 1 JJP1 = 1 GO TO 81 100 CONTINUE CALL CLOSE (IOUT1,1) CALL CLOSE (IM2,1) CALL WRTTRL (IA) IA12(1) = IOUT1 CALL RDTRL (IA12) GO TO 30 C C ENTRY SDR1C (IPVECT,IM1,IOUT) C ============================= C C EXPAND ROWS OF IM1 TO D SET SIZE C DO 120 I = 1,7 IA12(I) = 0 IB11(I) = 0 IB12(I) = 0 120 CONTINUE IA11(1) = IM1 CALL RDTRL (IA11) IA(1) = IM1 CALL RDTRL (IA) IA(3) = NSUB1 + NSUB2 + NSUB3 GO TO 40 C C ERROR MESAGES C 130 IP1 = -1 IP2 = IM2 140 CALL MESAGE (IP1,IP2,NAME) 150 IP1 = -1 IP2 = IOUT1 GO TO 140 END ================================================ FILE: mis/sdr2.f ================================================ SUBROUTINE SDR2 C C SDR2 IS THE EXECUTIVE CONTROL PROGRAM FOR THE SDR2 MODULE. C INTEGER ANY ,LOADS ,DISPL ,VEL ,ACC ,SPCF ,PLOTS , 1 CASECC COMMON /SDR2X4/ NAM(2),END ,MSET ,ICB(7),OCB(7),MCB(7),DTYPE(8) 1, ICSTM ,NCSTM ,IVEC ,IVECN ,TEMP ,DEFORM,FILE , 2 BUF1 ,BUF2 ,BUF3 ,BUF4 ,BUF5 ,ANY ,ALL , 3 TLOADS,ELDEF ,SYMFLG,BRANCH,KTYPE ,LOADS ,SPCF , 4 DISPL ,VEL ,ACC ,STRESS,FORCE ,KWDEST,KWDEDT, 5 KWDGPT,KWDCC ,NRIGDS,STA(2),REI(2),DS0(2),DS1(2), 6 FRQ(2),TRN(2),BK0(2),BK1(2),CEI(2),PLA(22) , 7 NRINGS,NHARMS,AXIC ,KNSET ,ISOPL ,STRSPT,DDRMM COMMON /SDR2X2/ CASECC COMMON /SYSTEM/ SYSBUF,OPTE ,NOGO ,INTAP ,MPCN ,SPCN ,METHOD, 1 LOADNN,SYMM ,STFTMP,PAGE ,LINE ,TLINE ,MAXLIN, 2 DATE(3),TIME ,ECHO ,PLOTS C C EXECUTE THE PHASES OF SDR2. C CASECC = 101 CALL SDR2AA CALL SDR2A IF (ANY .NE. 0) CALL SDR2B K = LOADS + SPCF + DISPL + VEL + ACC + PLOTS IF (K .NE. 0) CALL SDR2C IF (ANY .NE. 0) CALL SDR2D RETURN END ================================================ FILE: mis/sdr2a.f ================================================ SUBROUTINE SDR2A C C SDR2A PROCESSES THE CASE CONTROL DATA BLOCK. DEPENDING ON THE C RIGID FORMAT AND THE VARIOUS OUTPUT REQUESTS, SDR2A SETS FLAGS C AND PARAMETERS TO CONTROL OPERATION OF THE REMAINDER OF THE PHASES C OF SDR2 C EXTERNAL LSHIFT,RSHIFT LOGICAL AXIC ,DDRMM ,STRAIN INTEGER Z ,CASECC,CSTM ,FILE ,BUF1 ,BUF2 ,BUF3 , 1 BUF4 ,BUF5 ,ALL ,ANY ,DISPL ,SPCF ,STRESS, 2 ELDEF ,ANY1 ,SETNO ,ZI ,RSHIFT,STRNFL,FORCE , 3 PREVS ,PREVF ,TWO ,PLOTS ,RET ,PASS ,SYSBUF, 4 APP ,STA ,REI ,DS0 ,DS1 ,FRQ ,TRN , 5 BK0 ,BK1 ,CEI ,PLA ,BRANCH,SORT2 ,VEL , 6 ACC ,TLOADS DIMENSION ISYSTM(175) COMMON /MACHIN/ MACH ,IHALF ,JHALF COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / APP(2),SORT2,ISTRN ,STRNFL,IDUMMY(5) ,STRAIN COMMON /SDR2X1/ IEIGEN,IELDEF,ITLOAD,ISYMFL,ILOADS,IDISPL,ISTR , 1 IELF ,IACC ,IVEL ,ISPCF ,ITTL ,ILSYM COMMON /SDR2X2/ CASECC,CSTM ,MPT ,DIT ,EQEXIN,SIL ,GPTT , 1 EDT ,BGPDT ,PG ,QG ,UGV ,EST ,PHIG , 2 EIGR ,OPG1 ,OQG1 ,OUGV1 ,OES1 ,OEF1 ,PUGV1 , 3 OEIGR ,OPHIG ,PPHIG ,ESTA ,GPTTA ,HARMS COMMON /SDR2X4/ NAM(2),END ,MSET ,ICB(7),OCB(7),MCB(7),DTYPE(8) 1, ICSTM ,NCSTM ,IVEC ,IVECN ,TEMP ,DEFORM,FILE , 2 BUF1 ,BUF2 ,BUF3 ,BUF4 ,BUF5 ,ANY ,ALL , 3 TLOADS,ELDEF ,SYMFLG,BRANCH,KTYPE ,LOADS ,SPCF , 4 DISPL ,VEL ,ACC ,STRESS,FORCE ,KWDEST,KWDEDT, 5 KWDGPT,KWDCC ,NRIGDS,STA(2),REI(2),DS0(2),DS1(2), 6 FRQ(2),TRN(2),BK0(2),BK1(2),CEI(2),PLA(22) , 7 NRINGS,NHARMS,AXIC ,KNSET ,ISOPL ,STRSPT,DDRMM COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /SYSTEM/ SYSBUF,OPTE ,NOGO ,INTAP ,MPCN ,SPCN ,METHOD, 1 LOADNN,SYMM ,STFTMP,PAGE ,LINE ,TLINE ,MAXLIN, 2 DATE(3) ,TIME ,ECHO ,PLOTS ,DDD(6),MN COMMON /TWO / TWO(32) EQUIVALENCE (SYSBUF, ISYSTM) DATA MMREIG/ 4HMMRE / C C C CHECK FOR STRAIN OPTION C STRAIN = .FALSE. IF (ISTRN .GE. 0) STRAIN = .TRUE. C C PERFORM BUFFER ALLOCATION. C BUF1 = KORSZ(Z) - SYSBUF - 2 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF BUF5 = BUF4 - SYSBUF C C SET PARAMETER FOR APPROACH. C N = 2*NRIGDS - 1 C C FIRST CHECK FOR SPECIAL APPROACH FOR DYNAMIC-DATA-RECOVERY-MATRIX- C METHOD. IF APPROACH IS -MMREIG- THEN DDRMM FLAG IS SET TO INSURE C ENOUGH OUTPUTS UNDER CERTAIN CONDITIONS. C DDRMM = .FALSE. IF (APP(1) .NE. MMREIG) GO TO 7 DDRMM = .TRUE. I = 3 GO TO 20 C 7 DO 10 I = 1,N,2 IF (STA(I) .EQ. APP(1)) GO TO 20 10 CONTINUE CALL MESAGE (-30,75,APP) 20 BRANCH = (I+1)/2 C C OPEN CASE CONTROL. SKIP HEADER RECORD. C IF DIFF. STIFF. PHASE 1 OR BUCKLING PHASE 1, SKIP 1ST CASECC RECORD C CALL GOPEN (CASECC,Z(BUF1),RDREW) IF (APP(1).EQ.DS1(1) .OR. APP(1).EQ.BK1(1)) CALL SKPREC (CASECC,1) KWDCC = 0 C C INITIALIZE VARIOUS OUTPUT REQUEST FLAGS. C ALL = 0 ANY = 0 DISPL = 0 VEL = 0 ACC = 0 SPCF = 0 LOADS = 0 STRESS= 0 FORCE = 0 TLOADS= 0 ELDEF = 0 II = 0 PREVS = 0 PREVF = 0 C C READ A RECORD IN CASE CONTROL. C IF REQUEST FOR STRESSES IS PRESENT, TURN ON STRESS FLAG. C IF REQUEST FOR FORCES IS PRESENT, TURN ON FORCE FLAG. C -ANY- FLAG = STRESS .OR. FORCE. C -ALL- FLAG = ANY REQUEST FOR ALL STRESSES OR FORCES. C IF ANY.NE.0 .AND ALL.EQ.0, BUILD LIST OF UNIQUE ELEMENT IDS. C 40 CALL READ (*220,*50,CASECC,Z,BUF5-1,1,NCC) CALL MESAGE (+8,0,NAM) ALL = 1 50 ANY1 = 0 KWDCC= MAX0(KWDCC,NCC) MSET = MAX0(MSET,KWDCC+1) C C SET DMAP FLAG FOR USE IN DISP R.F. 1 C IF (ISTRN.GE.0 .OR. STRNFL.GE.0) GO TO 55 J = 180 IF (Z(J) .NE. 0) STRNFL = 1 55 ISTR = 23 IF (STRAIN) ISTR = 180 IF (Z(ISTR)) 60,80,70 60 ALL = 1 70 STRESS = 1 ANY1 = 1 80 IF (Z(IELF)) 90,110,100 90 ALL = 1 100 FORCE = 1 ANY1 = 1 110 IF (ALL.NE.0 .OR. ANY1.EQ.0) GO TO 200 C C INITIALIZE TO PROCESS STRESS OUTPUT REQUEST. C BUILD MASTER SET LIST ONLY IF CURRENT SET ID IS NEW C ASSIGN 190 TO PASS SETNO = Z(ISTR) IF (SETNO .EQ. PREVS) GO TO 190 PREVS = SETNO C C IF REQUEST PRESENT, LOCATE SET DEFINITION IN CASE CONTROL DATA. C 120 IF (SETNO .EQ. 0) GO TO PASS, (190,200) ISETNO = ILSYM + Z(ILSYM) + 1 130 ISET = ISETNO + 2 NSET = Z(ISETNO+1) + ISET - 1 IF (Z(ISETNO) .EQ. SETNO) GO TO 140 ISETNO = NSET + 1 IF (ISETNO .LT. NCC) GO TO 130 ALL = 1 GO TO 200 C C PICK UP ELEMENT IDS IN SET. SAVE IN UNIQUE LIST. C 140 I = ISET 150 IF (I .EQ. NSET) GO TO 170 IF (Z(I+1) .GT. 0) GO TO 170 ZI= Z(I ) N =-Z(I+1) I = I + 1 ASSIGN 160 TO RET GO TO 260 160 ZI = ZI + 1 IF (ZI .GT. N) GO TO 180 II =II + 1 IF (II .GT. BUF2) GO TO 280 Z(II) = ZI GO TO 160 170 ZI = Z(I) ASSIGN 180 TO RET GO TO 260 180 I = I + 1 IF (I .LE. NSET) GO TO 150 GO TO PASS, (190,200) C C INITIALIZE TO PROCESS FORCE OUTPUT REQUEST. C BUILD MASTER SET LIST ONLY IF CURRENT SET ID IS NEW C 190 SETNO = Z(IELF) IF (SETNO .EQ. PREVF) GO TO 200 PREVF = SETNO ASSIGN 200 TO PASS GO TO 120 C C TURN ON FLAGS FOR OTHER OUTPUT REQUESTS. C 200 IF (Z(ILOADS) .NE. 0) LOADS = 1 IF (Z(ISPCF ) .NE. 0) SPCF = 1 IF (Z(IDISPL) .NE. 0) DISPL = 1 IF (Z(IVEL ) .NE. 0) VEL = 1 IF (Z(IACC ) .NE. 0) ACC = 1 IF (Z(IELDEF) .NE. 0) ELDEF = 1 IF (Z(ITLOAD) .NE. 0) TLOADS= 1 IF (Z(ILOADS+2).LT.0 .OR. Z(ISPCF +2).LT.0 .OR. 1 Z(IDISPL+2).LT.0 .OR. Z(IVEL +2).LT.0 .OR. 2 Z(IACC +2).LT.0 .OR. Z(ISTR +2).LT.0 .OR. 3 Z(IELF +2).LT.0 .OR. APP( 1).EQ.TRN(1)) SORT2 = 1 ANY = STRESS + FORCE C C CONICAL SHELL PROBLEM C AXIC = .FALSE. IF (MN .EQ. 0) GO TO 210 NRINGS = ISYSTM(161) NHARMS = MN AXIC = .TRUE. 210 CONTINUE C C RETURN TO READ ANOTHER RECORD IN CASE CONTROL (UNLESS DIFF STIFF C PHASE 0 OR BUCKLING PHASE 0) C IF (APP(1).NE.DS0(1) .AND. APP(1).NE.BK0(1)) GO TO 40 C C IF ALL .EQ. 0, SORT LIST OF ELEMENT IDS AND MOVE LIST TO END OF C CORE. AND THROW AWAY ANY DUPLICATE. C 220 IF (ALL.NE.0 .OR. ANY.EQ.0) GO TO 240 KN = II - MSET + 1 CALL SORT (0,0,1,-1,Z(MSET),KN) JJ = BUF2 - 1 230 Z(JJ) = Z(II) 235 II = II - 1 IF (Z(II) .EQ. Z(JJ)) GO TO 235 JJ = JJ - 1 IF (II .GE. MSET) GO TO 230 MSET = JJ + 1 KNSET = BUF2 - MSET GO TO 250 240 MSET = BUF2 - 1 C C CLOSE CASE CONTROL AND RETURN C 250 CALL CLOSE (CASECC,CLSREW) IF (APP(1) .NE. BK1(1)) RETURN ELDEF = 0 TLOADS= 0 RETURN C C C SEARCH LIST OF ELEM ID. IF CURRENT ID IS IN LIST RETURN C OTHERWISE ADD ID TO LIST C C C ADD ELEM ID TO LIST. NO NEED TO CHECK DUPLICATE ID HERE C 260 IF (II .EQ. 0) II = MSET - 1 II = II + 1 IF (II .LT. BUF2) GO TO 290 280 ALL = 1 GO TO 200 290 Z(II) = ZI GO TO RET, (160,180) C END ================================================ FILE: mis/sdr2aa.f ================================================ SUBROUTINE SDR2AA C C SDR2AA PROCESSES THE CASE CONTROL AND XYCDB DATA BLOCKS. IF XYCDB C IS PURGED, NO ACTION IS TAKEN. OTHERWISE, OUTPUT REQUESTS IN C CASE CONTROL ARE COMPARED WITH XY REQUESTS IN XYCDB. FOR EACH C SUBCASE AND EACH REQUEST TYPE, CASE CONTROL IS MODIFIED TO C REFLECT THE UNION OF THE REQUESTS. THE NEW CASE CONTROL IS C WRITTEN ON A SCRATCH FILE AND THE POINTER TO CASE CONTROL SWITCHED C INTEGER TAB ,SDR2X1,BUF ,CASECC,XYCDB ,SCR3 ,Z , 1 APP ,RD ,RDREW ,WRT ,WRTREW,CLSREW,SYSBUF, 2 XSETNO,BUF1 ,BUF2 ,BUF3 ,SUBCSE,ANYNEW,FILE , 3 DBNAME,SETNO ,ARG ,ESTA ,XYCDBF,TRN ,FRQ , 4 CEI ,FORMT ,SORT2 DIMENSION SDR2X1(1) ,TAB(14) ,BUF(10) ,NAM(2) COMMON /SDR2X1/ SDR2X1,IELDEF,ITLOAD,ISYMFL,ILOADS,IDISPL,ISTR , 1 IELF ,IACC ,IVEL ,ISPCF ,ITTL ,ILSYM ,IFROUT, 2 ISLOAD,IDLOAD COMMON /SDR2X2/ CASECC,CSTM ,MPT ,DIT ,EQEXIN,SIL ,GPTT , 1 EDT ,BGPDT ,PG ,QG ,UGV ,EST ,PHIG , 2 EIGR ,OPG1 ,OQG1 ,OUGV1 ,OES1 ,OEF1 ,PUGV1 , 3 OEIGR ,OPHIG ,PPHIG ,ESTA ,GPTTA ,HARMS ,XYCDB , 4 SCR3 COMMON /SDR2X4/ X4(72),FRQ(2),TRN(2),BKL(4),CEI(2) COMMON /BLANK / APP(2),SORT2 COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW DATA TAB / 1, 6, 1 2, 10, 2 3, 9, 3 4, 11, 4 5, 5, 5 6, 7, 6 7, 8 /, 7 XSETNO/ 100000000 /, 8 NAM / 4HSDR2,4HAA / C C SET BUFFER POINTERS AND PERFORM GENERAL INITIALIZATION. C BUF1 = KORSZ(Z) - SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF IMSTR = 1 MASTER= 1 LASTXY= 0 ANYNEW= 0 SORT2 =-1 C C OPEN XYCDB. IF PURGED, RETURN. C CALL OPEN (*1034,XYCDB,Z(BUF1),RDREW) FILE = XYCDB CALL FWDREC (*1035,XYCDB) CALL FWDREC (*1035,XYCDB) C C READ FIRST LINE OF XYCDB. IF SUBCASE = 0 (MEANING DATA APPLIES C TO ALL SUBCASES), READ IN DATA FOR ZERO SUBCASE. C LAST = 0 XYCDBF = XYCDB CALL READ (*1035,*1035,XYCDB,BUF,6,0,FLAG) SORT2 = 0 SUBCSE = BUF(1) IF (SUBCSE .NE. 0) GO TO 1013 I = IMSTR 1011 Z(I ) = BUF(2) Z(I+1) = BUF(3) I = I + 2 CALL READ (*2002,*1012,XYCDB,BUF,6,0,FLAG) IF (BUF(1) .EQ. 0) GO TO 1011 NMSTR = I - 2 IXYSC = I GO TO 1019 C C HERE IF MASTER SUBCASE IS THE ONLY SUBCASE IN XYCDB. C 1012 NMSTR = I - 2 NXYSC = NMSTR MASTER = 0 LASTXY = 1 C C REDUCE LIST TO UNIQUE PAIRS C IF (IMSTR .EQ. NMSTR) GO TO 1019 NMSTR = NMSTR - 2 J = IMSTR DO 1014 I = IMSTR,NMSTR,2 IF (Z(I+2).EQ.Z(J) .AND. Z(I+3).EQ.Z(J+1)) GO TO 1014 Z(J+2) = Z(I+2) Z(J+3) = Z(I+3) J = J + 2 1014 CONTINUE NMSTR = J NXYSC = NMSTR GO TO 1019 C C HERE IF NO MASTER SUBCASE -- CREATE A DUMMY MASTER. C 1013 NMSTR = IMSTR IXYSC = IMSTR + 2 Z(IMSTR ) = 9999 Z(IMSTR+1) = 0 MASTER = -1 GO TO 1019 C C OPEN CASE CONTROL AND SCRATCH FILE FOR MODIFIED CASE CONTROL C 1019 CALL GOPEN (CASECC,Z(BUF2),RDREW) FILE = SCR3 CALL OPEN (*2001,SCR3,Z(BUF3),WRTREW) CALL FNAME (CASECC,BUF(9)) CALL WRITE (SCR3,BUF(9),2,1) C C READ DATA FOR ONE SUBCASE. STORE DATA BLOCK AND ID IN OPEN CORE. C 1020 IF (MASTER.EQ.0 .OR. LASTXY.NE.0) GO TO 1030 SUBCSE = BUF(1) I = IXYSC 1021 Z(I ) = BUF(2) Z(I+1) = BUF(3) I = I + 2 CALL READ (*1035,*1023,XYCDBF,BUF,6,0,FLAG) IF (BUF(1) .EQ. SUBCSE) GO TO 1021 GO TO 1025 1023 LASTXY = 1 C C COPY DATA FROM MASTER SUBCASE AFTER CURRENT SUBCASE. C THEN SORT DATA TOGETHER TO FORM SORTED UNION. C 1025 DO 1026 J = IMSTR,NMSTR,2 Z(I ) = Z(J ) Z(I+1) = Z(J+1) I = I + 2 1026 CONTINUE N = I - IXYSC CALL SORT (0,0,2,-2,Z(IXYSC),N) CALL SORT (0,0,2,-1,Z(IXYSC),N) C C REDUCE LIST TO UNIQUE PAIRS. C NXYSC = I - 4 J = IXYSC DO 1027 I = IXYSC,NXYSC,2 IF (Z(I+2).EQ.Z(J) .AND. Z(I+3).EQ.Z(J+1)) GO TO 1027 Z(J+2) = Z(I+2) Z(J+3) = Z(I+3) J = J + 2 1027 CONTINUE NXYSC = J C C READ A RECORD IN CASE CONTROL. SET POINTERS FOR XYCDB DATA TO C EITHER MASTER SUBCASE OR CURRENT SUBCASE IN CORE. C 1030 ICC = NXYSC + 1 CALL READ (*1035,*1031,CASECC,Z(ICC+1),BUF3-ICC,1,NCC) CALL MESAGE (-8,0,NAM) 1031 IF (SUBCSE .EQ. Z(ICC+1)) GO TO 10311 IF (MASTER .NE. -1) GO TO 1032 IF (SUBCSE .GT. Z(ICC+1)) GO TO 1030 IF (LASTXY .EQ. 0) GO TO 1020 IF (ANYNEW .EQ. 0) GO TO 1035 CALL WRITE (SCR3,Z(ICC+1),NCC,1) GO TO 1030 10311 IXY = IXYSC NXY = NXYSC GO TO 1040 1032 IXY = IMSTR NXY = NMSTR GO TO 1040 C C TERMINATE PROCESSING. C 1035 CALL CLOSE (CASECC,CLSREW) CALL CLOSE (XYCDBF,CLSREW) CALL CLOSE (SCR3 ,CLSREW) IF (ANYNEW .NE. 0) CASECC = SCR3 1034 RETURN C C PICK UP POINTER TO CURRENT OUTPUT REQUEST. C DETERMINE IF XYCDB REQUEST EXISTS. C 1040 LOOP = 1 1041 DBNAME = TAB(LOOP ) IX = TAB(LOOP+1) IREQ = ICC + SDR2X1(IX) SETNO = Z(IREQ) DO 1042 J = IXY,NXY,2 IF (Z(J) .EQ. DBNAME) GO TO 1043 1042 CONTINUE GO TO 1100 1043 IXYSET = J DO 1044 J = IXYSET,NXY,2 IF (Z(J) .NE. DBNAME) GO TO 1045 1044 CONTINUE NXYSET = NXY GO TO 1050 1045 NXYSET = J - 2 C C BRANCH ON CASECC REQUEST - NOTE, NO ACTION IF REQUEST = ALL. C 1050 IF (SETNO) 1098,1060,1070 C C HERE IF NO CASECC REQUEST. C BUILD XYCDB SET IN CASECC SET FORMAT. ADD SET TO C CASECC RECORD AND TURN ON CASECC REQUEST FOR SET. C 1060 XSETNO = XSETNO + 1 Z(IREQ ) = XSETNO Z(IREQ+1) = 0 FORMT = -2 IF (APP(1) .EQ. TRN(1)) FORMT = -1 Z(IREQ+2) = FORMT SORT2 = 0 IX = ICC + NCC + 1 Z(IX) = XSETNO JX = IX + 2 Z(JX) = Z(IXYSET+1) IF (IXYSET .EQ. NXYSET) GO TO 1066 IXYSET = IXYSET + 2 N = 1 DO 1065 J = IXYSET,NXYSET,2 IF (Z(J+1)-Z(JX) .EQ. N) GO TO 1064 IF (N .NE. 1) GO TO 1062 JX = JX + 1 Z(JX) = Z(J+1) GO TO 1065 1062 Z(JX+1)=-Z(J-1) JX = JX + 2 Z(JX) = Z(J+1) N = 1 GO TO 1065 1064 N = N + 1 1065 CONTINUE IF (N .EQ. 1) GO TO 1066 JX = JX + 1 Z(JX )= -Z(NXYSET+1) 1066 Z(IX+1)= JX - IX - 1 NCC = NCC + Z(IX+1) + 2 ANYNEW = 1 GO TO 1100 C C HERE IF CASECC SET AND XYCDB SET EXIST. C FIRST, LOCATE CASECC SET. C 1070 ILIST = ICC + NCC + 3 IX = ICC + ILSYM ISETNO = IX + Z(IX) + 1 1071 ISET = ISETNO + 2 NSET = Z(ISETNO+1) + ISET - 1 IF (Z(ISETNO) .EQ. SETNO) GO TO 1080 ISETNO = NSET + 1 IF (ISETNO .LT. ILIST) GO TO 1071 GO TO 1100 C C COMPARE EACH POINT IN XYCDB REQUEST WITH CASECC SET. C ADD ANY POINTS IN XYCDB NOT IN CASECC TO CASECC SET. C 1080 I = ISET J = IXYSET K = ILIST L = ISET 1081 ARG = Z(J+1) 1082 IF (I-NSET) 1083,1085,1088 1083 IF (Z(I+1) .GT. 0) GO TO 1085 N = 2 IF (ARG-Z(I )) 1088,1091,1084 1084 IF (ARG+Z(I+1)) 1091,1087,1086 1085 N = 1 IF (ARG-Z(I)) 1088,1087,1086 1086 I = I + N GO TO 1082 1087 I = I + N GO TO 1091 1088 IF (L .EQ. I) GO TO 1090 LN = I - 1 LL = L DO 1089 L = LL,LN Z(K) = Z(L) K = K + 1 1089 CONTINUE L = I 1090 Z(K) = ARG K = K + 1 1091 J = J + 2 IF (J .LE. NXYSET) GO TO 1081 N = K - ILIST IF (N .EQ. 0) GO TO 1100 IF (L .GT. NSET) GO TO 1094 DO 1092 LL = L,NSET Z(K) = Z(LL) K = K + 1 1092 CONTINUE N = K - ILIST C C IF NO NEW POINTS IN SET, CURRENT CASECC SET IS UNION. C OTHERWISE, NEW SET IS UNION. TURN ON REQUEST FOR IT AND C EXTEND END OF CASECC RECORD. C 1094 XSETNO = XSETNO + 1 Z(IREQ) = XSETNO Z(IREQ+1) = 10*SETNO + Z(IREQ+1) Z(IREQ+2) = -IABS(Z(IREQ+2)) SORT2 = 0 Z(ILIST-2)= XSETNO Z(ILIST-1)= N NCC = NCC + N + 2 ANYNEW = 1 GO TO 1100 C C HERE IF CASECC SET = ALL AND XY REQUEST EXISTS - TURN SORT2 ON. C 1098 Z(IREQ+2) = -IABS(Z(IREQ+2)) SORT2 = 0 C C TEST FOR COMPLETION OF ALL CASECC REQUESTS FOR CURRENT SUBCASE. C WHEN COMPLETE, WRITE CURRENT SUBCASE ON SCRATCH FILE. C 1100 LOOP = LOOP + 2 IF (LOOP .LE. 13) GO TO 1041 CALL WRITE (SCR3,Z(ICC+1),NCC,1) C C RETURN TO READ ANOTHER RECORD IN CASE CONTROL OR ANOTHER XYCDB C SUBCASE C IF (MASTER .EQ. 0) GO TO 1030 IF (SUBCSE .LE. Z(ICC+1)) GO TO 1020 GO TO 1030 C C FATAL FILE ERRORS C 2000 CALL MESAGE (N,FILE,NAM) 2001 N = -1 GO TO 2000 2002 N = -2 GO TO 2000 END ================================================ FILE: mis/sdr2b.f ================================================ SUBROUTINE SDR2B C C SDR2B PROCESSES THE EST. FOR EACH ELEMENT IN THE MASTER SET, C PRELIMINARY COMPUTATIONS ARE MADE. IF THE PROBLEM CONTAINS EXTRA C POINTS, SIL NOS. ARE CONVERTED TO SILD NOS. THE DATA IS WRITTEN C ON ESTA FOR INPUT TO SDR2D WHERE FINAL STRESS AND FORCE RECOVERY C COMPUTATIONS ARE MADE. C C IMPLICIT INTEGER (A-Z) LOGICAL ANYOUT,AXIC ,HEAT ,REJECT,STRAIN INTEGER NAME(2) CWKBI 7/94 SPR 94007 INTEGER MMRE(2) REAL SCRTCH,ZZ(1) ,BUFR(1) DIMENSION KDEFRM(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM ,SWM COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ KSYSTM(63) COMMON /BLANK / APP(2),SORT2 ,IDUMMY(7) ,STRAIN COMMON /SDR2X1/ IEIGEN,IELDEF,ITLOAD,ISYMFL,ILOADS,IDISPL,ISTR , 1 IELF ,IACC ,IVEL ,ISPCF ,ITTL ,ILSYM COMMON /SDR2X2/ CASECC,CSTM ,MPT ,DIT ,EQEXIN,SIL ,GPTT , 1 EDT ,BGPDT ,PG ,QG ,UGV ,EST ,PHIG , 2 EIGR ,OPG1 ,OQG1 ,OUGV1 ,OES1 ,OEF1 ,PUGV1 , 3 OEIGR ,OPHIG ,PPHIG ,ESTA ,GPTTA ,HARMS COMMON /HMATDD/ IHMAT ,NHMAT ,MPTMPT,IDIT COMMON /GPTA1 / NELEM ,LAST ,INCR ,ELEM(1) COMMON /SDR2X4/ NAM(2),END ,MSET ,ICB(7),OCB(7),MCB(7),DTYPE(8) 1, ICSTM ,NCSTM ,IVEC ,IVECN ,TEMP ,DEFORM,FILE , 2 BUF1 ,BUF2 ,BUF3 ,BUF4 ,BUF5 ,ANY ,ALL , 3 TLOADS,ELDEF ,SYMFLG,BRANCH,KTYPE ,LOADS ,SPCF , 4 DISPL ,VEL ,ACC ,STRESS,FORCE ,KWDEST,KWDEDT, 5 KWDGPT,KWDCC ,NRIGDS,STA(2),REI(2),DS0(2),DS1(2), 6 FRQ(2),TRN(2),BK0(2),BK1(2),CEI(2),PLA(22) , 7 NRINGS,NHARMS,AXIC ,KNSET ,ISOPL ,STRSPT,DDRMM , 8 ISOPL8 COMMON /SDR2X5/ BUF(100),BUFA(100) ,BUFB(4176) COMMON /SDR2X6/ SCRTCH(300) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW EQUIVALENCE (KSYSTM( 1),SYSBUF) ,(KSYSTM( 2),IOUTPT), 1 (KSYSTM(55),IPREC ) ,(KSYSTM(56),ITHERM), 2 (Z(1) ,ZZ( 1)) ,(BUFR(1) ,BUF(1)) DATA NAME / 4HSDR2,4HB / ,STAR / 4H* * / DATA KDEFRM / 104,1/ DATA IZ1ST / 1 / CWKBI 7/94 SPR 94007 DATA MMRE / 4HMMRE,4HIGEN / C IZ1ST IS THE START OF OPEN CORE AVAILABLE C C C IF APPROACH IS COMPLEX EIGENVALUES, FREQUENCY OR TRANSIENT C RESPONSE, TEST FOR EXTRA POINTS. IF PRESENT, READ EQUIVALENCE C TABLE (SIL,SILD) INTO CORE. C CALL DELSET HEAT = .FALSE. IF (ITHERM .NE. 0) HEAT = .TRUE. ISOPL = 0 ICSTM = IZ1ST M8 =-8 NOEP = 0 CWKBR 7/94 SPR 94007 C IF (APP(1).EQ.CEI(1) .OR. APP(1).EQ.FRQ(1) .OR. APP(1).EQ.TRN(1)) C 1 GO TO 20 IF (APP(1).EQ.CEI(1) .OR. APP(1).EQ.FRQ(1) .OR. APP(1).EQ.TRN(1) 1 .OR. APP(1).EQ.MMRE(1) )GO TO 20 GO TO 40 20 ICB(1) = SIL CALL RDTRL (ICB) NOEP = ICB(3) IF (NOEP .EQ. 0) GO TO 40 FILE = SIL CALL OPEN (*560,SIL,Z(BUF1),RDREW) CALL FWDREC (*570,SIL) CALL FWDREC (*570,SIL) CALL READ (*570,*30,SIL,Z,BUF2,1,NSIL) CALL MESAGE (M8,0,NAM) 30 CALL CLOSE (SIL,CLSREW) KNSIL = NSIL/2 ICSTM = NSIL + 1 IF (NSIL .LT. MSET) GO TO 40 MSET = BUF2 - 1 ALL = 1 C C READ THE CSTM INTO CORE (IF PRESENT). C 40 NCSTM = 0 FILE = CSTM CALL OPEN (*60,CSTM,Z(BUF1),RDREW) CALL FWDREC (*570,CSTM) CALL READ (*570,*50,CSTM,Z(ICSTM),BUF2-ICSTM,1,NCSTM) CALL MESAGE (M8,0,NAM) 50 CALL CLOSE (CSTM,CLSREW) CALL PRETRS (Z(ICSTM),NCSTM) 60 IMAT = ICSTM + NCSTM IF (IMAT .LT. MSET) GO TO 70 MSET = BUF2 - 1 ALL = 1 C C READ MATERIAL PROPERTY DATA INTO CORE. C 70 N1MAT = BUF2 - IMAT IF (.NOT.HEAT) GO TO 77 C C FOR HEAT PROBLEMS ONLY, -HMAT- ROUTINE IS USED. C IHMAT = IMAT NHMAT = BUF1 + SYSBUF MPTMPT= MPT IDIT = DIT CALL PREHMA (Z) N2MAT = NHMAT - IHMAT+1 - 2*(SYSBUF+1) GO TO 78 C 77 CALL PREMAT (Z(IMAT),Z(IMAT),Z(BUF1),N1MAT,N2MAT,MPT,DIT) 78 IF (IMAT+N2MAT .LT. MSET) GO TO 80 MSET = BUF2 - 1 ALL = 1 C C OPEN EST AND ESTA. C 80 FILE = EST CALL OPEN (*620,EST,Z(BUF1),RDREW) CALL FWDREC (*570,EST) FILE = ESTA CALL OPEN (*560,ESTA,Z(BUF2),WRTREW) FILE = EST KWDEST = 0 KWDEDT = 0 KWDGPT = 0 C C READ ELEMENT TYPE. SET PARAMETERS AS A FUNCTION OF ELEM TYPE. C 90 CALL READ (*430,*580,EST,ELTYPE,1,0,FLAG) IF (ELTYPE.LT.1 .OR. ELTYPE.GT.NELEM) GO TO 3800 ANYOUT = .FALSE. IPR = IPREC IF (IPR .NE. 1) IPR = 0 JLTYPE = 2*ELTYPE - IPR IELEM = (ELTYPE-1)*INCR NWDS = ELEM(IELEM+12) NWDSA = ELEM(IELEM+17) IF (HEAT) NWDSA = 142 NGPS = ELEM(IELEM+10) C C READ DATA FOR AN ELEMENT. C DETERMINE IF ELEMENT BELONGS TO MASTER SET. C 100 CALL READ (*570,*420,EST,BUF,NWDS,0,FLAG) DO 105 I = 1,NWDS 105 SCRTCH(100+I) = BUFR(I) STRSPT = 0 ISOPL =-1 IDSAVE = BUF(1) IF (ALL .NE. 0) GO TO 110 ITABL = MSET KN = KNSET L = 1 N12 = 1 ASSIGN 100 TO RET1 IF (.NOT. AXIC) GO TO 630 C C DECODE ELEMENT ID SINCE THIS IS A CONICAL SHELL PROBLEM C BUF(1) = BUF(1)/1000 GO TO 630 C C CALL APPROPRIATE ELEMENT SUBROUTINE. C 110 CONTINUE BUF(1) = IDSAVE C IF (.NOT.STRAIN) GO TO 112 C C IF THE STRAIN FLAG IS TURNED ON, IGNORE ALL ELEMENTS CWKBR NCL93012 3/94 EXCEPT CTRIA1, CTRIA2, CQUAD1 AND CQUAD2 ELEMENTS C EXCEPT CTRIA1, CTRIA2, CTRIA3, CQUAD1, CQUAD2 AND CQUAD4 ELEMENTS C IF (ELTYPE.EQ. 6 .OR. ELTYPE.EQ.17 .OR. ELTYPE.EQ.18 .OR. CWKBR NCL93012 3/94 1 ELTYPE.EQ.19) GO TO 112 1 ELTYPE.EQ.19 .OR. ELTYPE .EQ.64 .OR. ELTYPE.EQ.83) GO TO 112 WRITE (IOUTPT,111) SWM,ELEM(IELEM+1),ELEM(IELEM+2) 111 FORMAT (A27,', STRAIN REQUEST FOR ',2A4,' ELEMENTS WILL', /5X, 1 'NOT BE HONORED AS THIS OUTPUT IS NOT DEFINED FOR THIS ', 2 'ELEMENT TYPE.') CALL FWDREC (*570,EST) GO TO 420 C 112 IF (HEAT) GO TO 389 LOCAL = JLTYPE - 100 IF (LOCAL) 114,114,115 C C PAIRED -GO TO- ENTRIES PER ELEMENT SINGLE/DOUBLE PRECISION C C 1 CROD 2 C..... 3 CTUBE 4 CSHEAR 5 CTWIST 114 GO TO (120, 120, 380, 380, 140, 140, 150, 150, 160, 160 C C 6 CTRIA1 7 CTRBSC 8 CTRPLT 9 CTRMEM 10 CONROD 1, 180, 180, 190, 190, 200, 200, 210, 210, 120, 120 C C 11 ELAS1 12 ELAS2 13 ELAS3 14 ELAS4 15 CQDPLT 2, 220, 220, 230, 230, 240, 240, 250, 250, 270, 270 C C 16 CQDMEM 17 CTRIA2 18 CQUAD2 19 CQUAD1 20 CDAMP1 3, 280, 280, 290, 290, 300, 300, 310, 310, 380, 380 C C 21 CDAMP2 22 CDAMP3 23 CDAMP4 24 CVISC 25 CMASS1 4, 380, 380, 380, 380, 380, 380, 380, 380, 380, 380 C C 26 CMASS2 27 CMASS3 28 CMASS4 29 CONM1 30 CONM2 5, 380, 380, 380, 380, 380, 380, 380, 380, 380, 380 C C 31 PLOTEL 32 C..... 33 C..... 34 CBAR 35 CCONE 6, 380, 380, 380, 380, 380, 380, 330, 330, 340, 340 C C 36 CTRIARG 37 CTRAPRG 38 CTORDRG 39 CTETRA 40 CWEDGE 7, 350, 350, 360, 360, 370, 370, 371, 371, 372, 372 C C 41 CHEXA1 42 CHEXA2 43 CFLUID2 44 CFLUID3 45 CFLUID4 8, 373, 373, 374, 374, 380, 380, 380, 380, 380, 380 C C 46 CFLMASS 47 CAXIF2 48 CAXIF3 49 CAXIF4 50 CSLOT3 9, 380, 380, 375, 375, 376, 376, 377, 377, 378, 378 C *), JLTYPE C C C 51 CSLOT4 52 CHBDY 53 CDUM1 54 CDUM2 55 CDUM3 115 GO TO (379, 379, 380, 380, 451, 451, 452, 452, 453, 453 C C 56 CDUM4 57 CDUM5 58 CDUM6 59 CDUM7 60 CDUM8 B, 454, 454, 455, 455, 456, 456, 457, 457, 458, 458 C C 61 CDUM9 62 CQDMEM1 63 CQDMEM2 64 CQUAD4 65 CIHEX1 C, 459, 459, 460, 460, 461, 461, 462, 462, 383, 383 C C 66 CIHEX2 67 CIHEX3 68 CQUADTS 69 CTRIATS 70 CTRIAAX D, 383, 383, 383, 383, 465, 465, 466, 466, 467, 467 C C 71 CTRAPAX 72 CAERO1 73 CTRIM6 74 CTRPLT1 75 CTRSHL E, 468, 468, 380, 380, 469, 469, 470, 470, 471, 471 C C 76 CFHEX1 77 CFHEX2 78 CFTETRA 79 CFWEDGE 80 CIS2D8 F, 380, 380, 380, 380, 380, 380, 380, 380, 472, 472 C C 81 CELBOW 82 CFTUBE 83 CTRIA3 G, 473, 473, 380, 380, 463, 463 C *), LOCAL C 120 CALL SROD1 GO TO 390 140 CALL STUBE1 GO TO 390 150 K = 4 GO TO 170 160 K = 5 170 CALL SPANL1 (K) GO TO 390 180 K = 1 GO TO 320 190 CALL STRBS1 (0) GO TO 390 200 CALL STRPL1 GO TO 390 210 CALL STRME1 (0) GO TO 390 220 K = 1 GO TO 260 230 K = 2 GO TO 260 240 K = 3 GO TO 260 250 K = 4 260 CALL SELAS1 (K) GO TO 390 270 CALL SQDPL1 GO TO 390 280 CALL SQDME1 GO TO 390 290 K = 2 GO TO 320 300 K = 4 GO TO 320 310 K = 3 320 CALL STRQD1 (K) GO TO 390 330 CALL SBAR1 GO TO 390 340 CALL SCONE1 GO TO 390 350 CALL STRIR1 GO TO 390 360 CALL STRAP1 GO TO 390 370 CALL STORD1 GO TO 390 371 CALL SSOLD1 (1) GO TO 390 372 CALL SSOLD1 (2) GO TO 390 373 CALL SSOLD1 (3) GO TO 390 374 CALL SSOLD1 (4) GO TO 390 375 K = 0 GO TO 381 376 K = 1 GO TO 381 377 K = 2 381 CALL SAXIF1 (K) GO TO 390 378 K = 0 GO TO 382 379 K = 1 382 CALL SSLOT1 (K) GO TO 390 383 CONTINUE CALL SIHEX1 (ELTYPE-64,STRSPT,NIP) IF (STRSPT .GE. NIP**3+1) STRSPT = 0 GO TO 390 451 CALL SDUM11 GO TO 391 452 CALL SDUM21 GO TO 391 453 CALL SDUM31 GO TO 391 454 CALL SDUM41 GO TO 391 455 CALL SDUM51 GO TO 391 456 CALL SDUM61 GO TO 391 457 CALL SDUM71 GO TO 391 458 CALL SDUM81 GO TO 391 459 CALL SDUM91 GO TO 391 460 CALL SQDM11 GO TO 390 461 CALL SQDM21 GO TO 390 462 CALL SQUD41 GO TO 390 463 CALL STRI31 GO TO 390 465 CONTINUE GO TO 390 466 CONTINUE GO TO 390 467 CALL STRAX1 GO TO 390 468 CALL STPAX1 GO TO 390 469 CALL STRM61 GO TO 390 470 CALL STRP11 GO TO 390 471 CALL STRSL1 GO TO 390 472 CALL SS2D81 ISOPL8 = 8 GO TO 390 473 CALL SELBO1 GO TO 390 C C ELEMENT UNDEFINE TO SDR2BD C 3800 WRITE (IOUTPT,385) STAR,STAR,ELTYPE GO TO 388 380 WRITE (IOUTPT,385) SWM,ELEM(IELEM+1),ELEM(IELEM+2),ELTYPE 385 FORMAT (A27,' 2184, STRESS OR FORCE REQUEST FOR ELEMENT ',2A4, 1 ' (NASTRAN ELEM. TYPE =',I4,1H), /5X,'WILL NOT BE HONORED' 2, ' AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT.') 388 CALL FWDREC (*570,EST) GO TO 420 C C HEAT PROBLEMS (ALL ELEMENTS). C 389 CALL SDHTF1 (ELTYPE,REJECT) IF (ELTYPE.LT.65 .OR. ELTYPE.GT.67) GO TO 3890 IF (ELTYPE.EQ.65 .AND. STRSPT.GE. 9) STRSPT = 0 IF (STRSPT .GE. 21) STRSPT = 0 3890 CONTINUE IF (.NOT.REJECT) GO TO 390 CALL FWDREC (*570,EST) GO TO 420 C C IF EXTRA POINTS PRESENT, CONVERT SIL NOS. TO SILD NOS. C 391 NWDSA = ELEM(IELEM+17) 390 IF (NOEP .EQ. 0) GO TO 410 N = NGPS + 101 ITABL = 1 KN = KNSIL N12 = 2 ASSIGN 740 TO RET1 L = 102 CWKBNB 7/94 SPR 94006 C REMOVE COMPONENT FROM SIL AND THEN ADD AFTER SILD NUMBER FOUND FOR C CELAS1 AND CELAS2 ELEMENTS-SEE SUBROUTINE SELAS1 IF ( ELTYPE .EQ. 11 ) GO TO 392 IF ( ELTYPE .EQ. 12 ) GO TO 393 GO TO 394 C SET SIL NUMBER TO SIL OF GRID POINT WITHOUT COMPONENT CODE INCLUDED FOR C CELAS1 SO SIL NUMBER CAN BE FOUND IN SILD 392 BUF(L) = BUF(2) BUF(L+1) = BUF(3) GO TO 394 C SET SIL NUMBER TO SIL OF GRID POINT WITHOUT COMPONENT CODE INCLUDED FOR C CELAS2 SO SIL NUMBER CAN BE FOUND IN SILD 393 BUF(L) = BUF(3) BUF(L+1) = BUF(4) GO TO 394 394 CONTINUE CWKBNE 7/94 SPR 94006 IF (BUF(L) .EQ. 0) GO TO 400 GO TO 630 400 L = L + 1 CWKBR 7/94 SPR 94006 IF (L .GT. N) GO TO 410 IF (L .GT. N) GO TO 401 IF (BUF(L) .EQ. 0) GO TO 400 GO TO 630 CWKBNB 7/94 SPR94006 401 CONTINUE IF ( ELTYPE .EQ. 11 ) GO TO 402 IF ( ELTYPE .EQ. 12 ) GO TO 403 GO TO 404 C ADD COMPONENT CODES FOR SILD NUMBERS FOR CELAS1 402 IF ( BUF(4) .NE. 0 ) BUF(102) = BUF(102) + BUF(4) - 1 IF ( BUF(5) .NE. 0 ) BUF(103) = BUF(103) + BUF(5) - 1 GO TO 404 C ADD COMPONENT CODES FOR SILD NUMBERS FOR CELAS2 403 IF ( BUF(5) .NE. 0 ) BUF(102) = BUF(102) + BUF(5) - 1 IF ( BUF(6) .NE. 0 ) BUF(103) = BUF(103) + BUF(6) - 1 404 CONTINUE CWKBNE 7/94 SPR 94006 C C WRITE ELEMENT COMPUTATIONS ON ESTA. GO TO READ ANOTHER ELEMENT. C 410 IF (ANYOUT) GO TO 411 CALL WRITE (ESTA,ELTYPE,1,0) KWDEST = KWDEST + 2 ANYOUT = .TRUE. 411 CALL WRITE (ESTA,BUFA,NWDSA,0) C C DIAG 20 OUTPUT ONLY C C CALL BUG (4HESTA,0,BUFA,NWDSA) C KWDEST = KWDEST + NWDSA IF (STRSPT .EQ. 0) GO TO 100 STRSPT = STRSPT + 1 GO TO 112 C C CLOSE RECORD FOR CURRENT ELEMENT TYPE. C GO TO READ ANOTHER ELEM TYPE. C 420 IF (ANYOUT) CALL WRITE (ESTA,0,0,1) GO TO 90 C C CLOSE FILES. C 430 CALL CLOSE (EST ,CLSREW) CALL CLOSE (ESTA,CLSREW) C C IF ELEMENT DEFORMATIONS, DETERMINE MAXIMUM NO. OF C WORDS IN ANY ONE DEFORMATION SET. C IF (ELDEF .EQ. 0) RETURN CALL PRELOC (*620,Z(BUF1),EDT) CALL LOCATE (*600,Z(BUF1),KDEFRM,FLAG) ID = 0 K = 0 530 CALL READ (*600,*550,EDT,BUF,3,0,FLAG) IF (BUF(1) .EQ. ID) GO TO 540 KWDEDT = MAX0(KWDEDT,K) K = 3 ID = BUF(1) GO TO 530 540 K = K + 3 GO TO 530 550 KWDEDT = MAX0(KWDEDT,K) CALL CLOSE (EDT,CLSREW) RETURN C C C FATAL FILE ERRORS. C 560 N = -1 GO TO 590 570 N = -2 GO TO 590 580 N = -3 GO TO 590 590 CALL MESAGE (N,FILE,NAM) C C ABNORMAL RETURN FROM SDR2B. C 600 CALL CLOSE (EDT,CLSREW) ELDEF = 0 GO TO 620 620 CALL MESAGE (30,79,0) STRESS = 0 FORCE = 0 ANY = 0 RETURN C C C BINARY SEARCH ROUTINE C 630 KLO = 1 KHI = KN 640 K = (KLO+KHI+1)/2 650 KX = ITABL + N12*(K-1) IF (BUF(L)-Z(KX)) 660,720,670 660 KHI = K GO TO 680 670 KLO = K 680 IF (KHI-KLO-1 ) 730,690,640 690 IF (K .EQ. KLO) GO TO 700 K = KLO GO TO 710 700 K = KHI 710 KLO = KHI GO TO 650 720 IF (N12 .EQ. 1) GO TO 110 BUF(L) = Z(KX+1) GO TO 400 730 GO TO RET1, (100,740) 740 CALL MESAGE (-61,0,NAME) GO TO 740 END ================================================ FILE: mis/sdr2c.f ================================================ SUBROUTINE SDR2C C C SDR2C PROCESSES OUTPUT REQUESTS FOR SINGLE-POINT FORCES OF C CONSTRAINT, LOADS, DISPLACEMENTS, VELOCITIES, ACCELERATIONS AND C EIGENVECTORS. C LOGICAL ANYOUT,AXIC ,DDRMM ,AXSINE,AXCOSI INTEGER APP ,SORT2 ,SPCF ,DISPL ,VEL ,ACC ,STRESS, 1 FORCE ,CSTM ,CASECC,EQEXIN,SIL ,BGPDT ,PG , 2 QG ,UGV ,PHIG ,EIGR ,OPG1 ,OQG1 ,OUGV1 , 3 PUGV1 ,OCB ,SORC ,DTYPE ,FILE ,BUF1 ,BUF2 , 4 BUF3 ,BUF4 ,BUF5 ,SYMFLG,OUTFL ,STA ,REI , 5 DS0 ,DS1 ,FRQ ,TRN ,BK0 ,DATE ,SYSBUF, 6 BRANCH,PLOTS ,QTYPE2,EOL ,BK1 ,TIME ,SETNO , 7 FSETNO,Z ,RETX ,FORMT ,FLAG ,EOF ,CEI , 8 PLA ,OHARMS,BLANKS,HARMS ,XSETNO,XSET0 ,DEST , 9 PBUFF(4) ,EXTRA ,AXIF ,EDT ,PLATIT(12) , O BUF(50) REAL ZZ(1) ,BUFR(11) ,PBUFR(4) DIMENSION DATE(3) COMMON /BLANK / APP(2),SORT2 COMMON /SDR2X1/ IEIGEN,IELDEF,ITLOAD,ISYMFL,ILOADS,IDISPL,ISTR , 1 IELF ,IACC ,IVEL ,ISPCF ,ITTL ,ILSYM ,IFROUT, 2 ISLOAD,IDLOAD,ISORC COMMON /SDR2X2/ CASECC,CSTM ,MPT ,DIT ,EQEXIN,SIL ,GPTT , 1 EDT ,BGPDT ,PG ,QG ,UGV ,EST ,PHIG , 2 EIGR ,OPG1 ,OQG1 ,OUGV1 ,OES1 ,OEF1 ,PUGV1 , 3 OEIGR ,OPHIG ,PPHIG ,ESTA ,GPTTA ,HARMS COMMON /SDR2X4/ NAM(2),END ,MSET ,ICB(7),OCB(7),MCB(7),DTYPE(8) 1, ICSTM ,NCSTM ,IVEC ,IVECN ,TEMP ,DEFORM,FILE , 2 BUF1 ,BUF2 ,BUF3 ,BUF4 ,BUF5 ,ANY ,ALL , 3 TLOADS,ELDEF ,SYMFLG,BRANCH,KTYPE ,LOADS ,SPCF , 4 DISPL ,VEL ,ACC ,STRESS,FORCE ,KWDEST,KWDEDT, 5 KWDGPT,KWDCC ,NRIGDS,STA(2),REI(2),DS0(2),DS1(2), 6 FRQ(2),TRN(2),BK0(2),BK1(2),CEI(2),PLA(22) , 7 NRINGS,NHARMS,AXIC ,KNSET ,ISOPL ,STRSPT,DDRMM COMMON /ZZZZZZ/ Z(1) COMMON /CONDAS/ PI ,TWOPI ,RADDEG,DEGRA ,S4PISQ COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /SYSTEM/ KSYSTM(65) COMMON /UNPAKX/ QTYPE2,I2 ,J2 ,INCR2 COMMON /ZNTPKX/ XX(4),IXX ,EOL ,EOR COMMON /ZBLPKX/ Y(4) ,IY EQUIVALENCE (KSYSTM( 1),SYSBUF) ,(KSYSTM(15),DATE(1)) , 1 (KSYSTM(18),TIME ) ,(KSYSTM(20),PLOTS ) , 2 (KSYSTM(38),AXIF ) ,(KSYSTM(56),IHEAT ) , 3 (BUF(1),BUFR(1)),(Z(1),ZZ(1)),(PBUFF(1),PBUFR(1)) DATA BUF / 50*0 / DATA BLANKS/ 4H / DATA XSET0 / 100000000/ DATA PLATIT/ 4HLOAD,4H FAC,4HTOR ,9*0/ DATA MMREIG/ 4HMMRE / C C IF THIS IS A DYNAMIC-DATA-RECOVERY-MATRIX-METHOD REIG PROBLEM C THEN ALL EIGENVECTORS ARE TO BE OUTPUT FOR THE DDRMM MODULE. C SETNO = 0 IF (DDRMM .AND. IREQ.EQ.IDISPL) SETNO = -1 C C PERFORM GENERAL INITIALIZATION C BUF1 = KORSZ(Z) - SYSBUF + 1 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF BUF5 = BUF4 - SYSBUF ISEQ = 1 M8 =-8 I2 = 1 INCR2 = 1 KPLOT = 0 EXTRA = 0 AXSINE = .FALSE. AXCOSI = .FALSE. C C READ SECOND RECORD OF EQEXIN OR EQDYN INTO CORE. C FILE = EQEXIN CALL GOPEN (EQEXIN,Z(BUF1),0) CALL SKPREC (EQEXIN,1) CALL READ (*1320,*30,EQEXIN,Z,BUF5,1,NEQEX) CALL MESAGE (M8,0,NAM) 30 CALL CLOSE (EQEXIN,CLSREW) ITABL= 1 KN = NEQEX/2 ICC = NEQEX ILIST= NEQEX + 1 C C INITIALIZE FOR PROCESSING SPECIFIC REQUEST. C 40 IF (ISEQ-2) 50,60,70 C C LOAD VECTOR. C 50 IF (LOADS.EQ.0 .OR. APP(1).EQ.REI(1) .OR. APP(1).EQ.CEI(1) .OR. 1 APP(1).EQ.BK1(1)) GO TO 1180 INFIL = 115 OUTFL = OPG1 IREQ = ILOADS GO TO 90 C C SINGLE-POINT FORCES OF CONSTRAINT. C 60 IF (SPCF .EQ. 0) GO TO 1180 INFIL = QG OUTFL = OQG1 IREQ = ISPCF GO TO 90 C C DISPLACEMENT VECTOR OR EIGENVECTOR C 70 IF (DISPL.NE.0 .OR. VEL.NE.0 .OR. ACC.NE.0 .OR. PLOTS.NE.0) 1 GO TO 80 GO TO 1180 80 INFIL = UGV OUTFL = OUGV1 JTJ = VEL + ACC IF (.NOT.(APP(1).EQ.MMREIG .AND. DISPL.EQ.0 .AND. JTJ.NE.0)) 1 GO TO 88 IF (VEL .EQ. 0) GO TO 84 IREQ = IVEL GO TO 90 84 IREQ = IACC GO TO 90 88 IREQ = IDISPL C C READ TRAILER ON INPUT FILE. SET PARAMETERS. C 90 ICB(1) = INFIL CALL RDTRL (ICB) IF (ICB(1) .NE. INFIL) GO TO 1200 NVECTS = ICB(2) IF (ICB(5) .GT. 2) GO TO 100 C C REAL VECTOR. C KTYPE = 1 QTYPE2 = 1 KTYPE1 = 2 NWDS = 8 KTYPEX = 0 GO TO 110 C C COMPLEX VECTOR. C 100 KTYPE = 2 QTYPE2 = 3 KTYPE1 = 3 NWDS = 14 KTYPEX = 1000 C C OPEN CASE CONTROL AND SKIP HEADER. THEN BRANCH ON APPROACH. C 110 CALL GOPEN (CASECC,Z(BUF1),0) PBUFF(2) = 1 GO TO (190,120,190,150,160,160,190,150,120,190), BRANCH C C EIGENVALUES - READ LIST OF MODE NOS. AND EIGENVALUES INTO CORE. C 120 FILE = EIGR CALL GOPEN (EIGR,Z(BUF2),0) CALL SKPREC (EIGR,1) IF (APP(1) .EQ. CEI(1)) PBUFF(2) = 5 IF (APP(1) .EQ. REI(1)) PBUFF(2) = 4 I = ILIST M = 8 - KTYPE ISKIP = 0 INDEX = 2 IF (APP(1) .NE. REI(1)) GO TO 130 C C CHECK TO SEE IF ALL GENERALIZED MASS VALUES ARE ZERO C 125 CALL READ (*1320,*127,EIGR,BUF,M,0,FLAG) IF (BUF(6) .EQ. 0.0) GO TO 125 INDEX = 0 127 CALL SKPREC (EIGR,-1) 130 CALL READ (*1320,*140,EIGR,BUF,M,0,FLAG) IF (APP(1) .NE. REI(1)) GO TO 135 IF (INDEX .EQ. 2) GO TO 135 C C MATCH CORRECT MODE NOS. AND EIGENVALUES WITH PROPER C EIGENVECTORS WHEN USING GIVENS METHOD WITH F1.GT.0.0 C IF (INDEX .EQ. 1) GO TO 135 IF (BUF(6) .NE. 0.) GO TO 133 ISKIP = ISKIP + 1 GO TO 130 133 INDEX = 1 135 Z(I ) = BUF(1) - ISKIP Z(I+1) = BUF(3) Z(I+2) = BUF(4) I = I + KTYPE1 GO TO 130 140 CALL CLOSE (EIGR,CLSREW) NLIST = I - KTYPE1 ICC = I GO TO 190 C C DIFF. STIFF. PHASE 1 OR BUCKLING PHASE 1 - SKIP 1ST DATA RECORD ON C CC. C 150 CALL SKPREC (CASECC,1) PBUFF(2) = 4 IF (APP(1) .EQ. BK1(1)) GO TO 120 PBUFF(2) = 1 GO TO 190 C C FREQUENCY OR TRANSIENT RESPONSE - READ LIST INTO CORE. C 160 FILE = PG CALL OPEN (*1310,FILE,Z(BUF2),RDREW) I = ILIST M = 3 IX = 1 PBUFF(2) = 3 IF (APP(1) .EQ. FRQ(1)) PBUFF(2) = 2 IF (APP(1).EQ.FRQ(1) .OR. APP(1).EQ.TRN(1)) IX = 2 170 CALL READ (*1320,*180,FILE,BUF,M,0,FLAG) Z(I ) = BUF(M) Z(I+1) = 0 I = I + IX M = 1 GO TO 170 180 CALL CLOSE (FILE,CLSREW) NLIST = I - IX ICC = I C C OPEN OUTPUT FILE. WRITE HEADER RECORD. C 190 FILE = OUTFL ANYOUT = .FALSE. CALL OPEN (*1200,OUTFL,Z(BUF2),WRTREW) OCB(1) = OUTFL CALL FNAME (OUTFL,BUF) DO 200 I = 1,3 200 BUF(I+2) = DATE(I) BUF(6) = TIME BUF(7) = 1 CALL WRITE (OUTFL,BUF,7,1) C C OPEN INPUT FILE. SKIP HEADER RECORD. C FILE = INFIL CALL OPEN (*1190,INFIL,Z(BUF3),RDREW) CALL FWDREC (*1320,INFIL) C C SET PARAMETERS TO KEEP CASE CONTROL AND VECTORS IN SYNCH. C EOF = 0 JCOUNT = 0 KCOUNT = 1 JLIST = ILIST KFRQ = 0 INCORE = 0 KWDS = 0 C C READ A RECORD IN CASE CONTROL. SET SYMMETRY FLAG. C 230 CALL READ (*1160,*240,CASECC,Z(ICC+1),BUF5-ICC,1,NCC) CALL MESAGE (M8,0,NAM) 240 IX = ICC + ISYMFL ITEMP = ICC + HARMS C C OHARMS WILL BE 1 GREATER THAN THE MAXIMUM OUTPUT HARMONIC C OHARMS = Z(ITEMP) IF (OHARMS.LT.0 .AND. AXIF.NE.0) OHARMS = AXIF IF (OHARMS .LT. 0) OHARMS = NHARMS C C IF A FLUID PROBLEM CONVERT USER HARMONIC TO INTERNAL HARMONIC MAX. C IF (OHARMS .EQ. 0) GO TO 243 IF (AXIF .EQ. 0) GO TO 243 OHARMS = OHARMS - 1 OHARMS = 2*OHARMS + 3 243 SYMFLG = Z(IX) IF (SYMFLG .EQ. 0) SORC = Z(ICC+ISORC) IF (SORC .EQ. 1) AXSINE = .TRUE. IF (SORC .EQ. 2) AXCOSI = .TRUE. IFLAG = 0 IF (AXIC .AND. AXSINE .AND. AXCOSI .AND. JCOUNT.EQ.2) IFLAG = 1 IVEC = ICC + NCC + 1 C C DETERMINE IF OUTPUT REQUEST IS PRESENT. C IF NOT, TEST FOR RECORD SKIP ON INFIL THEN GO TO END OF THIS C REQUEST. C IF SO, SET POINTERS TO SET DEFINING REQUEST. C 250 IREQX = ICC + IREQ SETNO = Z(IREQX ) DEST = Z(IREQX+1) FORMT = IABS(Z(IREQX+2)) XSETNO = -1 IF (SETNO) 300,260,280 260 IF (SYMFLG .NE. 0) GO TO 1000 IF (APP(1) .NE. FRQ(1)) GO TO 270 IF (ISEQ .EQ. 3) GO TO 300 270 IF (PLOTS .NE. 0) GO TO 300 CALL FWDREC (*1320,INFIL) JCOUNT = JCOUNT + 1 GO TO 1000 280 IX = ICC + ILSYM ISETNO = IX + Z(IX) + 1 290 ISET = ISETNO + 2 NSET = Z(ISETNO+1) + ISET - 1 IF (Z(ISETNO) .EQ. SETNO) GO TO 295 ISETNO = NSET + 1 IF (ISETNO .LT. IVEC) GO TO 290 SETNO = -1 GO TO 300 C C IF REQUIRED, LOCATE PRINT/PUNCH SUBSET. C 295 IF (SETNO .LT. XSET0) GO TO 300 XSETNO = DEST/10 DEST = DEST - 10*XSETNO IF (XSETNO .EQ. 0) GO TO 300 IXSETN = IX + Z(IX) + 1 296 IXSET = IXSETN + 2 NXSET = Z(IXSETN+1) + IXSET - 1 IF (Z(IXSETN) .EQ. XSETNO) GO TO 300 IXSETN = NXSET + 1 IF (IXSETN .LT. IVEC) GO TO 296 XSETNO = -1 C C UNPACK VECTOR INTO CORE (UNLESS VECTOR IS ALREADY IN CORE). C 300 IF (INCORE .NE. 0) GO TO 400 IVECN = IVEC + KTYPE*ICB(3) - 1 IF (IVECN .GE. BUF5) CALL MESAGE (M8,0,NAM) IF (SYMFLG .EQ. 0) GO TO 360 C C SYMMETRY SEQUENCE - BUILD VECTOR IN CORE. C IX = ICC + ILSYM LSYM = Z(IX) C C IF SYMFLG IS NEGATIVE THIS IS A REPEAT SUBCASE. BCKREC VECTOR C AND READ IT INTO CORE. C IF (SYMFLG.LT.0 .AND. APP(1).EQ.STA(1)) GO TO 358 IF (SYMFLG .LT. 0) GO TO 230 DO 310 I = IVEC,IVECN 310 ZZ(I) = 0. DO 320 I = 1,LSYM 320 CALL BCKREC (INFIL) ISYMN = IX + LSYM I = IX + 1 330 COEF = ZZ(I) CALL INTPK (*350,INFIL,0,QTYPE2,0) 340 CALL ZNTPKI IX = IVEC + IXX - 1 ZZ(IX) = ZZ(IX) + COEF*XX(1) IF (KTYPE .EQ. 2) ZZ(IX+1) = ZZ(IX+1) + COEF*XX(2) IF (EOL .EQ. 0) GO TO 340 350 I = I + 1 IF (I .LE. ISYMN) GO TO 330 GO TO 400 C C REPEAT SUBCASE C 358 JCOUNT = JCOUNT - 1 CALL BCKREC (INFIL) C C NOT SYMMETRY - UNPACK VECTOR. C 360 J2= ICB(3) IF (JCOUNT .GE. NVECTS) GO TO 1170 CALL UNPACK (*370,INFIL,Z(IVEC)) GO TO 390 370 DO 380 I = IVEC,IVECN 380 ZZ(I) = 0. 390 JCOUNT = JCOUNT + 1 C C TEST FOR CONTINUATION FROM HERE. C 400 IF (SETNO .NE. 0) GO TO 410 IF (APP(1) .EQ. FRQ(1)) GO TO 1040 C C PREPARE TO WRITE ID RECORD ON OUTPUT FILE. C 410 GO TO (420,430,420,420,440,560,420,430,430,420), BRANCH C C NORMAL STATICS OR DIFF.STIFF. PHASE O OR 1 OR BUCKLING PHASE 0. C 420 BUF(2) = DTYPE(ISEQ) IX = ICC + ISLOAD BUF(5) = Z(ICC+1) BUF(6) = 0 BUF(7) = 0 BUF(8) = Z(IX) PBUFF(2) = 1 PBUFF(3) = Z(IX) PBUFF(4) = 0 IF (BRANCH .NE. 10) GO TO 610 IX = ICC + ITTL + 84 Z(IX ) = PLATIT(1) Z(IX+1) = PLATIT(2) Z(IX+2) = PLATIT(3) CALL INT2AL (JCOUNT,Z(IX+3),PLATIT(4)) GO TO 610 C C EIGENVALUES OR BUCKLING PHASE 1. C 430 IF (ISEQ .EQ. 2) BUF(2) = KTYPEX + 3 IF (ISEQ .EQ. 3) BUF(2) = KTYPEX + 7 BUF(5) = Z(JLIST ) BUF(6) = Z(JLIST+1) BUF(7) = Z(JLIST+2) BUF(8) = 0 C PBUFF(2) = 2 THIS CARD WAS REMOVED SINCE LEVEL 16. NO LONGER NEED PBUFF(3) = BUF(5) IF (APP(1) .EQ. BK1(1)) PBUFF(3) = -BUF(5) PBUFF(4) = BUF(6) IF (APP(1).NE.BK1(1) .AND. APP(1).NE.CEI(1)) 1 PBUFR(4) = SQRT(ABS(BUFR(6)))/TWOPI IF (APP(1) .EQ. CEI(1)) PBUFR(4) = ABS(BUFR(7))/TWOPI GO TO 610 C C FREQUENCY RESPONSE. C 440 IX = ICC + IDLOAD BUF(8) = Z(IX) BUF(6) = 0 BUF(7) = 0 PBUFF(2) = 2 PBUFF(3) = BUF(8) IF (ISEQ .EQ. 3) GO TO 520 BUF(2) = DTYPE(ISEQ) + KTYPEX GO TO 441 520 IF (KCOUNT-2) 530,540,550 530 BUF(2) = 1001 GO TO 441 540 BUF(2) = 1010 GO TO 441 550 BUF(2) = 1011 GO TO 441 441 CONTINUE IF (KFRQ .NE. 0) GO TO 510 C C FIRST TIME FOR THIS LOAD VECTOR ONLY - MATCH LIST OF USER C REQUESTED FREQS WITH ACTUAL FREQS. MARK FOR OUTPUT EACH ACTUAL C FREQ WHICH IS CLOSEST TO USER REQUEST. C KFRQ = 1 IX = ICC + IFROUT FSETNO = Z(IX) IF (FSETNO .LE. 0) GO TO 460 IX = ICC + ILSYM ISETNF = IX + Z(IX) + 1 450 ISETF = ISETNF + 2 NSETF = Z(ISETNF+1) + ISETF - 1 IF(Z(ISETNF) .EQ. FSETNO) GO TO 480 ISETNF = NSETF + 1 IF (ISETNF .LT. IVEC) GO TO 450 FSETNO = -1 460 DO 470 J = ILIST,NLIST,2 470 Z(J+1) = 1 GO TO 510 480 DO 500 I = ISETF,NSETF K = 0 DIFF = 1.E25 BUFR(1) = ZZ(I) DO 490 J = ILIST,NLIST,2 IF (Z(J+1) .NE. 0) GO TO 490 DIFF1 = ABS(ZZ(J)-BUFR(1)) IF (DIFF1 .GE. DIFF) GO TO 490 DIFF = DIFF1 K = J 490 CONTINUE IF (K .NE. 0) Z(K+1) = 1 500 CONTINUE C C DETERMINE IF CURRENT FREQ IS MARKED FOR OUTPUT. C 510 IF (Z(JLIST+1) .EQ. 0) GO TO 1000 BUF(5) = Z(JLIST) PBUFF(4) = BUF(5) GO TO 610 C C TRANSIENT RESPONSE. C 560 BUF(5) = Z(JLIST) IF (KCOUNT - 2) 570,580,590 570 BUF(2) = 1 GO TO 600 580 BUF(2) = 10 GO TO 600 590 BUF(2) = 11 600 IF (IREQ .EQ. ILOADS) BUF(2) = 2 IF (IREQ .EQ. ISPCF ) BUF(2) = 3 IX = ICC + IDLOAD BUF(8) = Z(IX) BUF(6) = 0 BUF(7) = 0 PBUFF(2) = 3 + 10*(KCOUNT-1) PBUFF(3) = BUF(8) PBUFF(4) = BUF(5) GO TO 441 C C WRITE ID RECORD ON OUTPUT FILE. C 610 IF (SETNO.EQ.0 .AND. PLOTS.NE.0) GO TO 880 BUF(1) = DEST + 10*BRANCH BUF(3) = 0 C C IF CONICAL SHELL PROBLEM, SET MINOR ID = 1000 FOR USE BY OFP C IF (AXIC) BUF(3) = 1000 BUF(4) = Z(ICC+1) IF (DDRMM) BUF(4) = 9999 BUF(9) = IABS(Z(IREQX+2)) IF (BUF(9).EQ.1 .AND. KTYPE.EQ.2) BUF(9) = 2 FORMT = BUF(9) BUF(10)= NWDS CALL WRITE (OUTFL,BUF,50,0) IX = ICC + ITTL CALL WRITE (OUTFL,Z(IX),96,1) C C BUILD DATA RECORD ON OUTPUT FILE. C IF (SETNO .NE. -1) GO TO 650 C C SET .EQ. ALL - OUTPUT ALL POINTS DEFINED IN EQEXIN. C KX = 1 N = NEQEX - 1 ASSIGN 640 TO RETX GO TO 700 640 KX = KX + 2 IF (KX .LE. N) GO TO 700 GO TO 880 C C SET .NE. ALL - OUTPUT ONLY POINTS DEFINED IN SET. C 650 JHARM = 0 651 I = ISET 660 IF (I .EQ. NSET) GO TO 680 IF (Z(I+1) .GT. 0) GO TO 680 N = -Z(I+1) BUF(1) = Z(I) IBUFSV = BUF(1) I = I + 1 ASSIGN 670 TO RETX GO TO 1210 670 BUF(1) = IBUFSV + 1 IBUFSV = BUF(1) IF (BUF(1) .LE. N) GO TO 1210 GO TO 690 680 BUF(1) = Z(I) ASSIGN 690 TO RETX GO TO 1210 690 I = I + 1 IF (I .LE. NSET) GO TO 660 JHARM = JHARM + 1 IF (.NOT.AXIC .AND. AXIF.EQ.0) GO TO 880 IF (JHARM .LE. OHARMS) GO TO 651 GO TO 880 C C PICK UP POINTER TO GRID POINT DATA AND GRID POINT TYPE. C 700 BUF(1) = Z(KX) IF (IFLAG.EQ.1 .AND. BUF(1).GE.1000000) GO TO RETX, (640,670,690) J = Z(KX+1)/10 BUF(2) = Z(KX+1) - 10*J J = IVEC + KTYPE*(J-1) IF (BUF(2) .EQ. 1) GO TO 770 C C SCALAR OR EXTRA POINT. C BUF(3) = Z(J) IF (KTYPE .EQ. 2) GO TO 720 IF (ISEQ.LE.2 .AND. BUFR(3).EQ.0.0 .AND. SORT2.LT.0) 1 GO TO RETX, (640,670,690) DO 710 K = 4,8 710 BUF(K) = 0 GO TO 840 C C COMPLEX SCALAR OR EXTRA POINT. C 720 BUF(4) = Z(J+1) IF (ISEQ.LE.2 .AND. BUFR(3).EQ.0.0 .AND. BUFR(4).EQ.0.0 .AND. 1 SORT2.LT.0) GO TO RETX, (640,670,690) DO 730 K = 5,14 730 BUF(K) = 0 IF (FORMT .NE. 3) GO TO 840 REDNER = SQRT(BUFR(3)**2 + BUFR(4)**2) IF (REDNER) 750,740,750 740 BUFR(4) = 0.0 GO TO 760 750 BUFR(4) = ATAN2(BUFR(4),BUFR(3))*RADDEG IF (BUFR(4) .LT. -0.00005) BUFR(4) = BUFR(4) + 360.0 760 BUFR(3) = REDNER GO TO 840 C C GRID POINT. C 770 FLAG = 0 IF (KTYPE .EQ. 2) GO TO 790 DO 780 K = 1,6 BUFR(K+2) = ZZ(J) IF (BUFR(K+2).NE.0.0 .OR. SORT2.GE.0) FLAG = 1 780 J = J + 1 IF (ISEQ.LE.2 .AND. FLAG.EQ.0) GO TO RETX, (640,670,690) GO TO 840 C C COMPLEX GRID POINT. C 790 DO 830 K = 1,11,2 BUFR(K+2) = ZZ(J ) BUFR(K+3) = ZZ(J+1) IF (BUFR(K+2).NE.0. .OR. BUFR(K+3).NE.0. .OR. SORT2.GE.0) FLAG = 1 IF (FORMT .NE. 3) GO TO 830 REDNER = SQRT(BUFR(K+2)**2 + BUFR(K+3)**2) IF (REDNER) 810,800,810 800 BUFR(K+3) = 0.0 GO TO 820 810 BUFR(K+3) = ATAN2( BUFR(K+3),BUFR(K+2) )*RADDEG IF (BUFR(K+3) .LT. -0.00005) BUFR(K+3) = BUFR(K+3) + 360.0 820 BUFR(K+2) = REDNER 830 J = J + 2 IF (ISEQ.LE.2 .AND. FLAG.EQ.0) GO TO RETX, (640,670,690) C C WRITE ENTRY ON OUTPUT FILE. C C IF COMPLEX TRANSPOSE DATA FOR OFP (REAL TOP, IMAG BOTTOM) C 840 IF (NWDS .NE. 14) GO TO 850 ITEMP = BUF( 4) BUF( 4) = BUF( 5) BUF( 5) = BUF( 7) BUF( 7) = BUF(11) BUF(11) = BUF( 8) BUF( 8) = BUF(13) BUF(13) = BUF(12) BUF(12) = BUF(10) BUF(10) = BUF( 6) BUF( 6) = BUF( 9) BUF( 9) = ITEMP C 850 ANYOUT = .TRUE. C C IF CONICAL SHELL DECODE GRID POINT NUMBER IF GREATER THAN 1000000. C IF (.NOT.AXIC) GO TO 870 IF (BUF(1) .GE. 1000000) GO TO 860 BUF(2) = BLANKS GO TO 870 860 ITEMP = BUF(1)/1000000 C C STOP OUTPUT WHEN PRESENT HARMONIC EXCEEDS OUTPUT HARMONIC SIZE REQ C IF (ITEMP .GT. OHARMS) GO TO 880 BUF(1) = BUF(1) - ITEMP*1000000 BUF(2) = ITEMP - 1 GO TO 876 C C IF A FLUID PROBLEM THEN A CHECK IS MADE ON THE HARMONIC ID C 870 IF (AXIF) 876,876,861 861 IF (BUF(1) .LT. 500000) GO TO 876 ITEMP = BUF(1) - MOD(BUF(1),500000) ITEMP = ITEMP/500000 C C STOP THE OUTPUT IF THE HARMONIC IS GREATER THAN THE OUTPUT C REQUEST FOR HARMONICS C IF (ITEMP .GE. OHARMS) GO TO 880 C C DETERMINE DESTINATION FOR ENTRY. C 876 ID = BUF(1) BUF(1) = 10*ID + DEST IF (XSETNO) 878,871,872 871 BUF(1) = 10*ID GO TO 878 872 IX = IXSET 873 IF (IX .EQ. NXSET) GO TO 874 IF (Z(IX+1) .GT. 0) GO TO 874 IF (ID.GE.Z(IX) .AND. ID.LE.-Z(IX+1)) GO TO 878 IX = IX + 2 GO TO 875 874 IF (ID .EQ. Z(IX)) GO TO 878 IX = IX + 1 875 IF (IX .LE. NXSET) GO TO 873 GO TO 871 C C NOW WRITE ENTRY. C 878 CALL WRITE (OUTFL,BUF(1),NWDS,0) BUF(1) = ID KWDS = KWDS + NWDS GO TO RETX, (640,670,690) C C IF PLOTS ARE REQUESTED, READ THE CSTM INTO CORE. C IF FIRST VECTOR, OPEN PUGV1 AND WRITE HEADER RECORD. C 880 CONTINUE EXTRA = 0 IF (ISEQ.NE.3 .OR. PLOTS.EQ.0 .OR. (KCOUNT.NE.1 .AND. 1 APP(1).NE.TRN(1))) GO TO 990 IF (SYMFLG .LT. 0) GO TO 990 FILE = CSTM CALL OPEN (*900,CSTM,Z(BUF5),RDREW) CALL FWDREC (*1320,CSTM) ICSTM = IVECN + 1 CALL READ (*1320,*890,CSTM,Z(ICSTM),BUF5-ICSTM,1,NCSTM) CALL MESAGE (M8,0,NAM) 890 CALL CLOSE (CSTM,CLSREW) CALL PRETRS (Z(ICSTM),NCSTM) 900 IF (JCOUNT .NE. 1) GO TO 902 CALL MAKMCB (MCB,PUGV1,J2,2,QTYPE2) FILE = PUGV1 CALL OPEN (*902,PUGV1,Z(BUF4),WRTREW) KPLOT = 1 CALL FNAME (PUGV1,BUF) CALL WRITE (PUGV1,BUF,2,1) C C IF PLOT FILE IS PURGED, NO PLOT FILE CAN BE PREPARED. C IF TRANSIENT PROBLEM, REMOVE EXTRA POINTS FROM VECTOR C NOW IN CORE THUS CREATING A G-SET VECTOR. C 902 EXTRA = 0 IF (KPLOT .EQ. 0) GO TO 990 IF (APP(1).NE.TRN(1) .AND. APP(1).NE.FRQ(1) .AND. APP(1).NE.CEI(1) 1 ) GO TO 910 DO 903 I = 1,NEQEX,2 J = Z(I+1)/10 K = Z(I+1) - 10*J IF (K .NE. 3) GO TO 903 EXTRA = 1 J = KTYPE*J + IVEC - KTYPE Z(J) = 1 IF (KTYPE .EQ. 2) Z(J+1) = 1 903 CONTINUE IF (EXTRA .EQ. 0) GO TO 910 J = IVEC DO 905 I = IVEC,IVECN IF (Z(I) .EQ. 1) GO TO 905 Z(J) = Z(I) J = J + 1 905 CONTINUE IVECN = J - 1 C C PASS THE BGPDT. FOR EACH ENTRY, ROTATE THE TRANSLATION COMPONENTS C OF UGV TO BASIC (IF REQUIRED). WRITE THESE COMPONENTS ON PUGV1. C 910 FILE = BGPDT CALL OPEN (*990,BGPDT,Z(BUF5),RDREW) CALL FWDREC (*1320,BGPDT) K = 0 I = IVEC PBUFF(1) = Z(ICC+1) CALL WRITE (PUGV1,PBUFF,4,1) L = 3*KTYPE CALL BLDPK (QTYPE2,QTYPE2,PUGV1,0,0) 920 CALL READ (*1320,*980,BGPDT,BUF(7),4,0,FLAG) ITEMP = 0 DO 925 J = 1,L LL = I + J - 1 925 BUFR(J) = ZZ(LL) IF (BUF(7)) 950,940,930 C C TRANSFORM TO BASIC C 930 IF (QTYPE2 .EQ. 1) GO TO 935 J = BUF(2) BUF(2) = BUF(3) BUF(3) = BUF(5) BUF(5) = BUF(4) BUF(4) = J 935 ITEMP = 19 CALL TRANSS (BUFR(7),BUFR(11)) CALL GMMATS (BUFR(11),3,3,0,BUFR(1),3,1,0,BUF(ITEMP+1)) IF (QTYPE2 .EQ. 1) GO TO 940 CALL GMMATS (BUFR(11),3,3,0,BUFR(4),3,1,0,BUF(ITEMP+4)) J = BUF(21) BUF(21) = BUF(23) BUF(23) = BUF(24) BUF(24) = BUF(22) BUF(22) = J 940 IY = (I-IVEC+K)/KTYPE DO 945 J = 1,L,KTYPE IY = IY + 1 LL = ITEMP + J Y(1) = BUFR(LL) IF (KTYPE .EQ. 2) Y(2) = BUFR(LL+1) CALL ZBLPKI 945 CONTINUE I = I + 6*KTYPE GO TO 920 C C CHECK FOR FLUID POINTS C 950 I = I + KTYPE IF (BUF(7) .NE. -2) GO TO 920 IY = (I-IVEC+K)/KTYPE + 2 Y(1) = BUFR(1) IF (QTYPE2 .EQ. 3) Y(2) = BUFR(2) CALL ZBLPKI K = K + 5*KTYPE GO TO 920 980 CALL BLDPKN (PUGV1,0,MCB) CALL CLOSE (BGPDT,CLSREW) C C CONCLUDE PROCESSING OF THIS VECTOR. C 990 IF (SETNO .NE. 0) CALL WRITE (OUTFL,0,0,1) 1000 GO TO (1010,1020,1170,1020,1040,1110,1170,1020,1020,1020), BRANCH C C NORMAL STATICS. C 1010 IF (JCOUNT .LT. NVECTS) GO TO 230 IF (EOF .EQ. 0) GO TO 230 GO TO 1170 C C EIGENVALUES OR DIFF. STIFF PHASE1 OR BUCKLING PHASE 1. C 1020 JLIST = JLIST + KTYPE1 1030 IF (JCOUNT .GE. NVECTS) GO TO 1170 IF (EOF .EQ. 0) GO TO 230 GO TO 250 C C FREQUENCY RESPONSE. C 1040 IF (ISEQ .LE. 2) GO TO 1090 IF (KCOUNT .EQ. 3) GO TO 1080 N = IVECN - 1 IF (EXTRA .EQ. 0) GO TO 1045 CALL BCKREC (INFIL) CALL UNPACK (*1041,INFIL,Z(IVEC)) GO TO 1045 1041 DO 1042 I = IVEC,N 1042 ZZ(I) = 0.0 GO TO 1055 1045 CONTINUE OMEGA = TWOPI*ZZ(JLIST) DO 1050 I = IVEC,N,2 BUFR(1) = -OMEGA*ZZ(I+1) ZZ(I+1) = OMEGA*ZZ(I ) 1050 ZZ(I ) = BUFR(1) 1055 IF (KCOUNT .EQ. 2) GO TO 1060 IREQ = IVEL GO TO 1070 1060 IREQ = IACC 1070 KCOUNT = KCOUNT + 1 INCORE = 1 GO TO 250 1080 KCOUNT = 1 IREQ = IDISPL 1090 INCORE = 0 JLIST = JLIST + 2 IF (JLIST.LE.NLIST .AND. JCOUNT.LT.NVECTS) GO TO 250 KFRQ = 0 JLIST = ILIST DO 1100 I = ILIST,NLIST,2 1100 Z(I+1) = 0 IF (JCOUNT .LT. NVECTS) GO TO 230 GO TO 1170 C C TRANSIENT RESPONSE. C 1110 IF (ISEQ .LE. 2) GO TO 1150 IF (KCOUNT - 2) 1120,1130,1140 1120 IREQ = IVEL KCOUNT = 2 GO TO 250 1130 IREQ = IACC KCOUNT = 3 GO TO 250 1140 IREQ = IDISPL KCOUNT = 1 1150 JLIST = JLIST + 2 IF (JLIST.LE.NLIST .AND. JCOUNT.LT.NVECTS) GO TO 250 GO TO 1170 C C HERE WHEN END-OF-FILE ENCOUNTERED ON CASE CONTROL. C 1160 EOF = 1 GO TO (1170,1030,1170,1030,1170,1170,1170,1030,1030,1030), BRANCH C C CONCLUDE PROCESSING OF CURRENT INPUT FILE. C 1170 CALL CLOSE (CASECC,CLSREW) CALL CLOSE (INFIL ,CLSREW) CALL CLOSE (OUTFL ,CLSREW) IF (KPLOT .NE. 0) CALL CLOSE (PUGV1,CLSREW) IF (KPLOT .NE. 0) CALL WRTTRL (MCB) OCB(2) = KWDS/65536 OCB(3) = KWDS - 65536*OCB(2) IF (.NOT.ANYOUT) GO TO 1180 CALL WRTTRL (OCB) C C TEST FOR ALL INPUT FILES PROCESSED. C 1180 ISEQ = ISEQ + 1 IF (ISEQ .LE. 3) GO TO 40 CALL CLOSE (CASECC,CLSREW) RETURN C C HERE IF ABNORMAL CONDITION. C CLOSE ALL FILES, JUST TO BE SURE C 1190 CALL CLOSE (OUTFL ,CLSREW) 1200 CALL CLOSE (INFIL ,CLSREW) CALL CLOSE (CASECC,CLSREW) IX = ISEQ + 75 CALL MESAGE (30,IX,0) GO TO 1180 C C BINARY SEARCH ROUTINE. C ===================== C 1210 KLO = 1 KHI = KN IF (AXIC) BUF(1) = JHARM*1000000 + BUF(1) IF (AXIF) 1220,1220,1213 1213 BUF(1) = JHARM*500000 + BUF(1) 1220 K = (KLO+KHI+1)/2 1230 KX = 2*K - 1 IF (BUF(1)-Z(KX)) 1240,700,1250 1240 KHI = K GO TO 1260 1250 KLO = K 1260 IF (KHI-KLO-1) 1300,1270,1220 1270 IF (K .EQ. KLO) GO TO 1280 K = KLO GO TO 1290 1280 K = KHI 1290 KLO = KHI GO TO 1230 1300 GO TO RETX, (640,670,690) C C FATAL FILE ERRORS C 1310 N = -1 GO TO 1330 1320 N = -2 GO TO 1330 1330 CALL MESAGE (N,FILE,NAM) GO TO 1330 END ================================================ FILE: mis/sdr2d.f ================================================ SUBROUTINE SDR2D C C SDR2D PERFORMS THE FINAL STRESS AND FORCE RECOVERY COMPUTATIONS. C CASE CONTROL AND THE DISPLACEMENT VECTOR FILE ARE PROCESSED IN C PARALLEL. THE ESTA IS PASSED ONCE FOR EACH VECTOR IN UGV FOR C WHICH A STRESS OR FORCE OUTPUT REQUEST EXISTS. THE ESTA IS HELD C COMPLETELY IN CORE IF POSSIBLE. STRESS OUTPUT IS WRITTEN ON OES1. C FORCE OUTPUT IS WRITTEN ON OEF1. C LOGICAL AXIC ,AXSINE ,AXCOSI ,EOFCC C 1, IDSTRS ,IDFORC ,ILOGIC(2) INTEGER STRESX ,FORCEX ,UGVVEC ,ESTAWD ,ELTYPE , 1 TLOAD ,ELDEF ,ELEMID ,GPTT ,OES1 , 2 OEF1 ,OEIGR ,ESTA ,EDT ,ELESTA , 3 KDEFRM(2),APP ,SORT2 ,SPCF ,DISPL , 4 VEL ,ACC ,STRESS ,FORCE ,CSTM , 5 CASECC ,EQEXIN ,SIL ,BGPDT ,PG , 6 QG ,UGV ,PHIG ,EIGR ,OPG1 , 7 OQG1 ,OUGV1 ,OCB ,BUF(50) ,DTYPE , 8 FILE ,BUF1 ,BUF2 ,BUF3 ,BUF4 , 9 BUF5 ,BUF6 ,BUF7 ,SYMFLG ,OUTFL , O STA ,REI ,DS0 ,DS1 ,FRQ , 1 TRN ,BK0 ,BRANCH ,SYSBUF , 2 DATE ,PLOTS ,QTYPE2 ,EOL ,BK1 , 3 TIME ,SETNO ,FSETNO ,Z ,RETX , 4 FORMT ,FLAG ,EOF ,CEI ,PLA , 5 BUFA ,BUFB ,OFILE ,DEVICE ,OEF1L , 6 PUGV1 ,XSETNS ,SDEST ,BUF8 ,OES1L , 7 OPTE ,XSET0 ,XSETNF ,FDEST ,PCOMPS , 8 SORC ,TLOADS ,TMPREC ,ITR(7) ,COMPS INTEGER PCOMP(2) ,PCOMP1(2),PCOMP2(2),BUF0 ,BUFM1 , 1 NMES1L(2),NMEF1L(2) REAL ZZ(1) ,BUFR(2) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /BLANK / APP(2) ,SORT2 ,IDUM(2) ,COMPS COMMON /SDR2C1/ IPCMP ,NPCMP ,IPCMP1 ,NPCMP1 ,IPCMP2 , 1 NPCMP2 ,NSTROP COMMON /SDR2X1/ IEIGEN ,IELDEF ,ITLOAD ,ISYMFL ,ILOADS , 1 IDISPL ,ISTR ,IELF ,IACC ,IVEL , 2 ISPCF ,ITTL ,ILSYM ,IFROUT ,ISLOAD , 3 IDLOAD ,ISORC COMMON /SDR2X2/ CASECC ,CSTM ,MPT ,DIT ,EQEXIN , 1 SIL ,GPTT ,EDT ,BGPDT ,PG , 2 QG ,UGV ,EST ,PHIG ,EIGR , 3 OPG1 ,OQG1 ,OUGV1 ,OES1 ,OEF1 , 4 PUGV1 ,OEIGR ,OPHIG ,PPHIG ,ESTA , 5 GPTTA ,HARMS ,XYCDB ,SCR3 ,PCOMPS , 6 OES1L ,OEF1L COMMON /SDR2X4/ NAM(2) ,END ,MSET ,ICB(7) ,OCB(7) , 1 MCB(7) ,DTYPE(8) ,ICSTM ,NCSTM ,IVEC , 2 IVECN ,TEMP ,DEFORM ,FILE ,BUF1 , 3 BUF2 ,BUF3 ,BUF4 ,BUF5 ,ANY , 4 ALL ,TLOADS ,ELDEF ,SYMFLG ,BRANCH , 5 KTYPE ,LOADS ,SPCF ,DISPL ,VEL , 6 ACC ,STRESS ,FORCE ,KWDEST ,KWDEDT , 7 KWDGPT ,KWDCC ,NRIGDS ,STA(2) ,REI(2) , 8 DS0(2) ,DS1(2) ,FRQ(2) ,TRN(2) ,BK0(2) , 9 BK1(2) ,CEI(2) ,PLA(22) ,NRINGS ,NHARMS , O AXIC ,KNSET ,ISOPL ,STRSPT ,DDRMM , 1 ISOPL8 COMMON /SDR2X7/ ELESTA(100) ,BUFA(100),BUFB(4076) COMMON /SDR2X8/ ELWORK(300) COMMON /ZZZZZZ/ Z(1) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW ,CLSREW COMMON /SYSTEM/ SYSBUF ,OPTE ,NOGO ,INTAP ,MPCN , 1 SPCN ,METHOD ,LOADNN ,SYMM ,STFTMP , 2 PAGE ,LINE ,TLINE ,MAXLIN ,DATE(3) , 3 TIME ,ECHO ,PLOTS ,DUM23(35),IHEAT COMMON /UNPAKX/ QTYPE2 ,I2 ,J2 ,INCR2 COMMON /ZNTPKX/ XX(4) ,IXX ,EOL ,EOR COMMON /ZBLPKX/ Y(4) ,IY COMMON /SDR2DE/ BUF6 ,COEF ,DEFTMP ,DIFF ,DIFF1 , 1 DEVICE ,ESTAWD ,ELEMID ,ELTYPE ,EOF , 2 EOFCC ,IREQX ,FLAG ,FN ,FORCEX , 3 FSETNO ,FORMT ,ICC ,I ,IEDT , 4 ISETNO ,ISETF ,ISETS ,IDEF ,ISYMN , 5 SDEST ,IX ,ISETNF ,ISEQ ,IRETRN , 6 IRECX ,ISAVE ,FDEST ,IPART ,ILIST , 7 IGPTTA ,ICORE ,IELEM ,IESTA ,BUF8 , 8 JFORC ,JSTRS ,JANY ,JLIST ,J , 9 KTYPE1 ,KHI ,KX ,K ,KLO , O KN ,KTYPEX ,KFRQ ,KCOUNT ,LSYM , 1 M ,MIDVEC ,NWDSA ,NWDSTR ,NLOGIC , 2 NWDS ,NDEF ,N ,N1 ,N2 , 3 NOTSET ,NSETS ,NSETF ,NWORDS ,NX , 4 TGRID(4) ,NWDFOR ,NGPTT ,NESTA ,NVECTS , 5 NLIST ,OFILE ,OUTFL ,RETX ,SETNO , 6 STRESX ,SAVE ,TLOAD ,UGVVEC ,IXSETS , 7 NXSETS ,IXSETF ,NXSETF ,XSETNS ,XSETNF , 8 SORC ,TMPREC ,BUF7 ,TGRD(33) EQUIVALENCE (BUF(1),BUFR(1)) ,(Z(1),ZZ(1)) C 1, (IDSTRS,ILOGIC(1)) ,(IDFORC,ILOGIC(2)) DATA BUF / 50*0/, KDEFRM/104,1/, XSET0/100000000/ DATA NMES1L/ 4HOES1, 4HL / ,NMEF1L / 4HOEF1, 4HL / DATA PCOMP / 5502, 55 /, 1 PCOMP1/ 5602, 56 /, 2 PCOMP2/ 5702, 57 / C C PERFORM GENERAL INITIALIZATION C BUFM1 = KORSZ(Z) - SYSBUF + 1 BUF0 = BUFM1 - SYSBUF - 1 BUF1 = BUF0 - SYSBUF - 1 IF (COMPS .NE. -1) BUF1 = BUFM1 BUF2 = BUF1 - SYSBUF - 1 I2 = 1 INCR2 = 1 ICC = 0 ILIST = 1 NLIST = 0 JLIST = 1 KFRQ = 0 AXSINE = .FALSE. AXCOSI = .FALSE. SORC = 0 C C READ TRAILER ON INPUT FILE. SET PARAMETERS. C ICB(1) = UGV CALL RDTRL (ICB) IF (ICB(1) .NE. UGV) GO TO 770 NVECTS = ICB(2) IF (ICB(5) .GT. 2) GO TO 10 C C REAL VECTOR. C KTYPE = 1 QTYPE2 = 1 KTYPE1 = 2 NWDS = 8 KTYPEX = 0 GO TO 20 C C COMPLEX VECTOR. C 10 KTYPE = 2 QTYPE2 = 3 KTYPE1 = 3 NWDS = 14 KTYPEX = 1000 C C OPEN CASE CONTROL AND SKIP HEADER. THEN BRANCH ON APPROACH. C 20 FILE = CASECC CALL OPEN (*740,CASECC,Z(BUF1),RDREW) CALL FWDREC (*750,CASECC) EOFCC = .FALSE. C GO TO (100, 30,100, 60, 70, 70,100, 60, 30,100), BRANCH C STA,REI,DS0,DS1,FRQ,TRN,BK0,BK1,CEI,PLA C C EIGENVALUES - READ LIST OF MODE NOS. AND EIGENVALUES INTO CORE. C BUCKLING POSSIBLE HERE TOO C 30 FILE = EIGR CALL OPEN (*740,EIGR,Z(BUF2),RDREW) CALL FWDREC (*750,EIGR) CALL FWDREC (*750,EIGR) I = ILIST M = 8 - KTYPE ISKIP = 0 INDEX = 2 IF (APP(1) .NE. REI(1)) GO TO 40 C C CHECK TO SEE IF ALL GENERALIZED MASS VALUES ARE ZERO C 35 CALL READ (*750,*37,EIGR,BUF,M,0,FLAG) IF (BUF(6) .EQ. 0.0) GO TO 35 INDEX = 0 37 CALL SKPREC (EIGR,-1) 40 CALL READ (*750,*50,EIGR,BUF(1),M,0,FLAG) IF (APP(1) .NE. REI(1)) GO TO 45 IF (INDEX .EQ. 2) GO TO 45 C C MATCH CORRECT MODE NOS. AND EIGENVALUES WITH PROPER C FORCES AND STRESSES WHEN USING GIVENS METHOD WITH F1.GT.0.0 C IF (INDEX .EQ. 1) GO TO 45 IF (BUF(6) .NE. 0.0) GO TO 43 ISKIP = ISKIP + 1 GO TO 40 43 INDEX = 1 45 Z(I ) = BUF(1) - ISKIP Z(I+1) = BUF(3) Z(I+2) = BUF(4) I = I + KTYPE1 GO TO 40 50 CALL CLOSE (EIGR,CLSREW) NLIST = I - KTYPE1 ICC = I GO TO 100 C C DIFF. STIFF. PHASE 1 OR BUCKLING PHASE 1 - SKIP 1ST DATA RECORD ON C CC. C 60 CALL FWDREC (*750,CASECC) IF (APP(1) .EQ. BK1(1)) GO TO 30 GO TO 100 C C FREQUENCY OR TRANSIENT RESPONSE - READ LIST INTO CORE. C 70 FILE = PG CALL OPEN (*740,FILE,Z(BUF2),RDREW) I = ILIST M = 3 IX = 1 IF (APP(1).EQ.FRQ(1) .OR. APP(1).EQ.TRN(1)) IX = 2 80 CALL READ (*750,*90,FILE,BUF(1),M,0,FLAG) Z(I ) = BUF(M) Z(I+1) = 0 I = I + IX M = 1 GO TO 80 90 CALL CLOSE (FILE,CLSREW) NLIST = I - IX ICC = I C C ALLOCATE CORE FOR CASE CONTROL, EDT, GPTT, ESTA, VECTOR C BALANCE OF REQUIRED BUFFERS C BUF1 = CASECC BUF5 = GPTT C BUF2 = VECTOR BUF6 = EDT C BUF3 = OES1 BUF7 = EQEXIN C BUF4 = OEF1 BUF8 = ESTA C SOME OF THE ABOVE MAY NOT BE REQUIRED AND THUS WILL NOT BE C ALLOCATED.. C 100 BUF3 = BUF2 - SYSBUF - 1 IF (STRESS .EQ. 0) BUF3 = BUF2 BUF4 = BUF3 - SYSBUF - 1 IF (FORCE .EQ. 0) BUF4 = BUF3 BUF5 = BUF4 - SYSBUF - 1 IF (TLOADS .EQ. 0) BUF5 = BUF4 BUF6 = BUF5 - SYSBUF - 3 IF (KWDEDT .EQ. 0) BUF6 = BUF5 BUF7 = BUF6 - SYSBUF - 1 IF (ISOPL .EQ. 0) BUF7 = BUF6 BUF8 = BUF7 - SYSBUF - 1 C C IF COMPOSITE ELEMENTS ARE PRESENT, READ PCOMPS INTO CORE C IF (COMPS .NE. -1) GO TO 109 FILE = PCOMPS N = -1 CALL PRELOC (*760,Z(BUF2),PCOMPS) IPCMP = ICC + 1 IPCMP1 = IPCMP IPCMP2 = IPCMP NPCMP = 0 NPCMP1 = 0 NPCMP2 = 0 N = -2 C CALL LOCATE (*106,Z(BUF2),PCOMP,IDX) CALL READ (*760,*106,PCOMPS,Z(IPCMP),BUF2-IPCMP,1,NPCMP) CALL MESAGE (-8,0,NAM) 106 IPCMP1 = IPCMP1 + NPCMP IPCMP2 = IPCMP1 C CALL LOCATE (*107,Z(BUF2),PCOMP1,IDX) CALL READ (*760,*107,PCOMPS,Z(IPCMP1),BUF2-IPCMP1,1,NPCMP1) CALL MESAGE (-8,0,NAM) 107 IPCMP2 = IPCMP2 + NPCMP1 C CALL LOCATE (*108,Z(BUF2),PCOMP2,IDX) CALL READ (*760,*108,PCOMPS,Z(IPCMP2),BUF2-IPCMP2,1,NPCMP2) CALL MESAGE (-8,0,NAM) 108 ICC = IPCMP2 + NPCMP2 - 1 C CALL CLOSE (PCOMPS,CLSREW) C C IF ESTA FITS IN CORE BUF8 MAY BE BUF7 SINCE IT WILL ONLY BE USED C TO READ ESTA IN ONCE.. C 109 IEDT = ICC + KWDCC + 1 IGPTTA = IEDT + KWDEDT ITR(1) = EQEXIN CALL RDTRL (ITR) NEQEX = 2*ITR(2) IF (ISOPL8 .NE. 8) NEQEX = 0 IEQEX = IGPTTA + KWDGPT IVEC = IEQEX + NEQEX IVECN = IVEC + KTYPE*ICB(3) - 1 C C IF CONICAL SHELL DOUBLE VECTOR SPACE C IF (AXIC .AND. KTYPE.EQ.1) IVECN = IVECN + ICB(3)*KTYPE IESTA = IVECN + 1 MIDVEC = (IVEC+IVECN)/2 + 1 IF (AXIC .AND. KTYPE.EQ.1) MIDVEC = 0 IF (AXIC .AND. KTYPE.EQ.1) IVECN = IVECN - ICB(3)*KTYPE IF (KWDEST .LE. (BUF7-IESTA)) BUF8 = BUF7 C C OPEN ESTA C FILE = ESTA CALL OPEN (*740,ESTA,Z(BUF8),RDREW) C C REMAINING CORE C ICORE = BUF8 - IESTA NESTA = 0 C C WILL ESTA FIT IN CORE C IF (ICORE .LE. 0) CALL MESAGE (-8,0,NAM) IF (KWDEST .GT. ICORE) GO TO 140 C C ESTA WILL FIT. READ IT IN PLACING A ZERO WORD AT END OF EACH C RECORD. C I = IESTA 110 CALL READ (*130,*120,ESTA,Z(I),ICORE,1,NWORDS) CALL REWIND (ESTA) ICORE = BUF8 - IESTA GO TO 140 120 I = I + NWORDS + 1 Z(I-1) = 0 ICORE = ICORE - NWORDS - 1 GO TO 110 C C ALL ESTA NOW IN CORE C 130 NESTA = I - 1 CALL CLOSE (ESTA,CLSREW) IF (NESTA .GT. IESTA) GO TO 140 WRITE (OPTE,135) UWM 135 FORMAT (A25,' 3303, STRESSES OR FORCES REQUESTED FOR SET(S) ', 1 'WHICH CONTAIN NO VALID ELEMENTS.') GO TO 640 C C OPEN INPUT FILE. SKIP HEADER RECORD. C 140 FILE = UGV CALL OPEN (*740,UGV,Z(BUF2),RDREW) CALL FWDREC (*750,UGV) C C IF ANY ISOPARAMETRIC ELEMENTS PRESENT, GET SECOND RECORD OF EQEXIN C IF (ISOPL .EQ. 0) GO TO 148 FILE = EQEXIN CALL OPEN (*740,EQEXIN,Z(BUF7),RDREW) CALL FWDREC (*750,EQEXIN) CALL FWDREC (*750,EQEXIN) ISOPL = EQEXIN IF (ISOPL8 .NE. 8) GO TO 145 CALL FREAD (EQEXIN,Z(IEQEX),NEQEX,0) CALL BCKREC (EQEXIN) 145 CONTINUE C C IF ANY STRESS OUTPUT IS REQUESTED, C OPEN OES1 AND WRITE HEADER RECORD C 148 IF (STRESS .EQ. 0) GO TO 155 FILE = OES1 CALL OPEN (*151,OES1,Z(BUF3),WRTREW) CALL FNAME (OES1,OCB) DO 150 I = 1,3 150 OCB(I+2) = DATE(I) OCB(6) = TIME OCB(7) = 1 CALL WRITE (OES1,OCB,7,1) GO TO 155 151 CALL MESAGE (1,OES1,NAM) STRESS = 0 C C IF ANY STRESS OR FORCE OUTPUT IS REQUESTED AND COMPOSITE ELEMENTS C ARE PRESENT, OPEN OES1L AND OEF1L AND WRITE HEADER RECORDS C 155 IF (COMPS.NE.-1 .OR. (STRESS.EQ.0 .AND. FORCE.EQ.0)) GO TO 160 ILAYER = 0 FILE = OES1L CALL OPEN (*158,OES1L,Z(BUFM1),WRTREW) CALL WRITE (OES1L,NMES1L,2,1) FILE = OEF1L CALL OPEN (*158,OEF1L,Z(BUF0),WRTREW) CALL WRITE (OEF1L,NMEF1L,2,1) GO TO 160 158 CALL MESAGE (1,FILE,NAM) STRESS = 0 FORCE = 0 C C IF ANY FORCE OUTPUT IS REQUESTED, C OPEN OEF1 AND WRITE HEADER RECORD C 160 IF (FORCE .EQ. 0) GO TO 180 FILE = OEF1 CALL OPEN (*171,OEF1,Z(BUF4),WRTREW) CALL FNAME (OEF1,OCB) DO 170 I = 1,3 170 OCB(I+2) = DATE(I) OCB(6) = TIME OCB(7) = 1 CALL WRITE (OEF1,OCB,7,1) GO TO 180 171 CALL MESAGE (1,OEF1,NAM) FORCE = 0 180 IF (STRESS.EQ.0 .AND. FORCE.EQ.0) GO TO 640 C C INITIALIZE UGV VEC, WHICH WILL BE THE NUMBER OF THE VECTOR WE C ARE NOW POSITIONED TO READ. C UGVVEC = 1 ISVVEC = IVEC ISVVCN = IVECN IFLAG = 0 C C READ A RECORD IN CASE CONTROL. SET SYMMETRY FLAG. C 190 CALL READ (*610,*200,CASECC,Z(ICC+1),KWDCC+1,1,FLAG) CALL MESAGE (8,0,NAM) GO TO 640 200 IX = ICC + ISYMFL SYMFLG = Z(IX) NCC = ICC + FLAG C C FOR CONICAL SHELL SET SORC FLAG C IX = ICC + ISORC IF (IFLAG .EQ. 1) SORC = ISVSRC IF (SYMFLG .EQ. 0) SORC = Z(IX) IF (SORC .EQ. 1) AXSINE = .TRUE. IF (SORC .EQ. 2) AXCOSI = .TRUE. IF (AXIC .AND. SYMFLG.EQ.0) ISVSRC = SORC IVEC = ISVVEC IVECN = ISVVCN IFLAG = 0 IF (AXIC .AND. AXSINE .AND. AXCOSI .AND. UGVVEC.EQ.3) IFLAG = 1 IF (AXIC .AND. SORC.EQ.0) GO TO 620 C C DETERMINE IF OUTPUT REQUEST IS PRESENT. C IF NOT, TEST FOR RECORD SKIP ON UGV THEN GO TO END OF THIS C REQUEST. IF SO, SET POINTERS TO SET DEFINING REQUEST. C 210 IX = ICC + ISTR STRESX = Z(IX ) SDEST = Z(IX+1) XSETNS = -1 IX = ICC + IELF FORCEX = Z(IX ) FDEST = Z(IX+1) XSETNF = -1 NSTROP = Z(ICC+183) C C DEBUG PRINTOUT C C IF (COMPS.EQ.-1 .AND. NSTROP.GT.1) ILAYER = ILAYER + 1 IF (STRESX) 240,240,220 220 IX = ICC + ILSYM ISETNO = IX + Z(IX) + 1 230 ISETS = ISETNO + 2 NSETS = Z(ISETNO+1) + ISETS - 1 IF (Z(ISETNO) .EQ. STRESX) GO TO 235 ISETNO = NSETS + 1 IF (ISETNO .LE. NCC) GO TO 230 STRESX = -1 GO TO 240 C C IF REQUIRED, LOCATE PRINT/PUNCH SUBSET FOR STRESSES C 235 IF (STRESX .LT. XSET0) GO TO 240 XSETNS = SDEST/10 SDEST = SDEST - 10*XSETNS IF (XSETNS .EQ. 0) GO TO 240 IXSTNS = IX + Z(IX) + 1 236 IXSETS = IXSTNS + 2 NXSETS = Z(IXSTNS+1) + IXSETS - 1 IF (Z(IXSTNS) .EQ. STRESX) GO TO 240 IXSTNS = NXSETS + 1 IF (IXSTNS .LT. NCC) GO TO 236 STRESX = -1 240 IF (FORCEX) 270,270,250 250 IX = ICC + ILSYM ISETNO = IX + Z(IX) + 1 260 ISETF = ISETNO + 2 NSETF = Z(ISETNO+1) + ISETF - 1 IF (Z(ISETNO) .EQ. FORCEX) GO TO 265 ISETNO = NSETF + 1 IF (ISETNO .LE. NCC) GO TO 260 FORCEX = -1 GO TO 290 C C IF REQUIRED, LOCATE PRINT/PUNCH SUBSET FOR FORCES C 265 IF (FORCEX .LT. XSET0) GO TO 290 XSETNF = FDEST/10 FDEST = FDEST - 10*XSETNF IF (XSETNF .EQ. 0) GO TO 290 IXSTNF = IX + Z(IX) + 1 266 IXSETF = IXSTNF + 2 NXSETF = Z(IXSTNF+1) + IXSETF - 1 IF (Z(IXSTNF) .EQ. FORCEX) GO TO 290 IXSTNF = NXSETF + 1 IF (IXSTNF .LT. NCC) GO TO 266 FORCEX = -1 270 IF (STRESX.NE.0 .OR. FORCEX.NE.0 .OR. AXIC) GO TO 290 C C NO REQUESTS THIS CC RECORD FOR STRESSES OR FORCES. C THUS SKIP CORRESPONDING UGV RECORD UNLESS SYMFLG IS ON, IN WHICH C CASE WE SKIP NO UGV RECORD SINCE THE SYMMETRY CASE HAS NO UGV C VECTOR, BUT IN FACT WOULD HAVE USED A SUMMATION OF THE IMMEDIATELY C PRECEEDING LSYM VECTORS. C C IF END OF CC AND NO STRESS OR FORCE OUTPUT REQUEST WE ARE DONE C IF (EOFCC ) GO TO 620 IF (SYMFLG) 190,280,190 280 CALL FWDREC (*750,UGV) UGV VEC = UGV VEC + 1 GO TO 570 C C THERE IS A REQUEST FOR STRESSES AND OR FORCES C FIRST DETERMINE APPROPRIATE GPTT AND EDT RECORDS IF REQUIRED C 290 IX = ICC + ITLOAD TLOADS = Z(IX) NGPTT = 0 IF (TLOADS .EQ. 0) GO TO 370 FILE = GPTT CALL CLOSE (GPTT,CLSREW) CALL OPEN (*740,GPTT,Z(BUF5),RDREW) C C SKIP NAME C CALL READ (*750,*751,GPTT,BUF,2,0,N) C C PICK UP 3 WORDS OF SET INFORMATION C 295 CALL READ (*750,*751,GPTT,BUF,3,0,N) IF (BUF(1) .NE. TLOADS) GO TO 295 DEFTMP = BUFR(2) TMPREC = BUF(3) C 370 IX = ICC + IELDEF ELDEF = Z(IX) IF (ELDEF.EQ.0 .OR. KWDEDT.EQ.0) GO TO 430 FILE = EDT CALL PRELOC (*740,Z(BUF6),EDT) CALL LOCATE (*390,Z(BUF6),KDEFRM,FLAG) IDEF = IEDT I = IDEF 380 CALL READ (*750,*390,EDT,BUF(1),3,0,FLAG) IF (BUF(1) .EQ. ELDEF) GO TO 410 GO TO 380 390 BUF(1) = ELDEF BUF(2) = 0 CALL MESAGE (-30,46,BUF) 400 CALL READ (*750,*420,EDT,BUF(1),3,0,FLAG) IF (BUF(1) .NE. ELDEF) GO TO 420 410 Z(I ) = BUF(2) Z(I+1) = BUF(3) I = I + 2 IF (I .LT. IGPTTA) GO TO 400 CALL MESAGE (-8,0,NAM) 420 NDEF = I - 2 CALL CLOSE (EDT,CLSREW) C C UNPACK VECTOR INTO CORE C 430 COEF1 = 1.0 IF (SYMFLG .EQ. 0) GO TO 490 C C SYMMETRY SEQUENCE-- BUILD VECTOR IN CORE. C IX = ICC + ILSYM LSYM = Z(IX) C C IF SYMFLG IS NEGATIVE, THIS IS A REPEAT SUBCASE. USE PRESENT C VECTOR IN CORE. C IF (SYMFLG.LT.0 .AND. APP(1).EQ.STA(1)) GO TO 530 IF (SYMFLG .LT. 0) GO TO 190 DO 440 I = IVEC,IVECN 440 ZZ(I) = 0.0 IF (LSYM .GT. UGV VEC-1) GO TO 780 LIMIT = LSYM IF (IFLAG .EQ. 1) LIMIT = 1 DO 450 I = 1,LIMIT 450 CALL BCKREC (UGV) ISYMN = IX + LSYM I = IX + 1 IF (IFLAG .EQ. 1) I = I + 1 J2 = ICB(3) 460 COEF = ZZ(I) CALL INTPK (*480,UGV,0,QTYPE2,0) 470 CALL ZNTPKI IX = IVEC + IXX - 1 IF (KTYPE .EQ. 1) GO TO 471 ZZ(IX+J2) = ZZ(IX+J2) + COEF*XX(1) ZZ(IX ) = ZZ(IX) + COEF*XX(2) GO TO 472 471 CONTINUE ZZ(IX)= ZZ(IX) + COEF*XX(1) 472 CONTINUE IF (EOL .EQ. 0) GO TO 470 480 IF (IFLAG .EQ. 1) GO TO 485 I = I + 1 IF (I .LE. ISYMN) GO TO 460 GO TO 530 C C CONICAL SHELL BOTH CASE C 2 VECTORS IN CORE - C 2-ND VECTOR IS NOW IN CORE AT Z(IVEC) THRU Z(IVECN)... C GET 1-ST VECTOR AND PUT IT AT Z(IVECN+1) THRU Z(2*IVECN-MIDVEC+1) C C 485 MIDVEC = IVEC IVEC = IVECN + 1 IVECN = IVECN + (IVECN-MIDVEC+1) COEF1 = ZZ(ICC + ILSYM+1) C C IF FALL HERE AND SORC=1 THE VECTOR IN CORE IS THE SINE VECTOR AND C IF SORC=2 THE VECTOR IN CORE IS THE COSINE VECTOR. THUS THE FIRST C VECTOR WAS THE OTHER VECTOR RESPECTIVELY C BY THE WAY THE VECTOR IN CORE IS THE SECOND VECTOR. C CALL BCKREC (UGV) CALL BCKREC (UGV) C C NOT SYMMETRY-- UNPACK VECTOR. C 490 J2 = ICB(3) IF (IFLAG .EQ. 1) GO TO 515 IF (UGVVEC .GT. NVECTS) GO TO 620 515 DO 510 I = IVEC,IVECN 510 ZZ(I) = 0.0 CALL INTPK (*500,UGV,0,QTYPE2,0) 491 CALL ZNTPKI IX = IVEC + IXX-1 IF (KTYPE .EQ. 1) GO TO 492 ZZ(IX ) = COEF1*XX(2) ZZ(IX+J2) = COEF1*XX(1) GO TO 493 492 CONTINUE ZZ(IX) = COEF1*XX(1) 493 CONTINUE IF (EOL .EQ. 0) GO TO 491 495 IF (APP(1) .NE. TRN(1)) GO TO 520 CALL FWDREC (*520,UGV) UGVVEC = UGVVEC + 1 CALL FWDREC (*520,UGV) UGVVEC = UGVVEC + 1 GO TO 520 500 CONTINUE GO TO 495 520 IF (IFLAG .NE. 1) UGVVEC = UGVVEC + 1 IF (IFLAG .EQ. 1) CALL SKPREC (UGV,1) C C READY NOW TO SWEEP THROUGH THE ESTA ONCE. C SDR2E DOES ALL THE PROCESSING OF PHASE II ELEMENT COMPUTATIONS. C THE ESTA FILE, BE IT IN CORE OR NOT, IS SWEPT THRU ONCE FOR THE C FOLLOWING CALL. C 530 IF (IFLAG .EQ. 1) SORC = SORC + 1 IF (SORC .EQ. 3) SORC = 1 CALL SDR2E (*640,IEQEX,NEQEX) C C CONCLUDE PROCESSING OF THIS VECTOR C INITIALIZE FOR NEXT VECTOR C CANCEL THIS INITIALIZATION IN SOME CASES IF A REPEAT CASE. C 570 GO TO (580,581,620,581,590,582,620,581,581,580), BRANCH C 580 IF (.NOT.EOFCC) GO TO 190 GO TO 589 581 JLIST = JLIST + KTYPE1 IF (.NOT.EOFCC) GO TO 190 GO TO 589 C C TRANSIENT RESPONSE C 582 JLIST = JLIST + 2 IF (JLIST.LE.NLIST .AND. .NOT.EOFCC) GO TO 190 IF (JLIST.GT.NLIST .OR. UGVVEC.GT.NVECTS) GO TO 620 GO TO 490 C C PROCESS ANY REMAINING VECTORS WITH LAST CC RECORD C 589 IF (UGV VEC.LE.NVECTS .AND. SYMFLG.EQ.0) GO TO 210 GO TO 620 C C FREQUENCY RESPONSE, PICK UP NEXT VECTOR UNLESS ALL FREQUENCIES C COMPLETED C 590 JLIST = JLIST + 2 IF (JLIST.LE.NLIST .AND. UGV VEC.LE.NVECTS) GO TO 210 KFRQ = 0 JLIST = ILIST DO 600 I = ILIST,NLIST,2 600 Z(I+1) = 0 IF (UGV VEC .LE. NVECTS) GO TO 190 GO TO 620 C C EOF HIT ON CASECC FILE C PROCESS ANY MORE VECTORS USING LAST CASECC RECORD C 610 EOFCC = .TRUE. IF (NVECTS .GE. UGV VEC) GO TO 210 C C WRITE TRAILERS AND CLOSE ANY OPEN FILES C 620 OCB(2) = 63 IF (STRESS .EQ. 0) GO TO 630 OCB(1) = OES1 CALL WRTTRL (OCB(1)) IF (COMPS.NE.-1 .OR. ILAYER.EQ.0) GO TO 630 OCB(1) = OES1L CALL WRTTRL (OCB(1)) 630 IF (FORCE .EQ. 0) GO TO 640 OCB(1) = OEF1 CALL WRTTRL (OCB(1)) IF (COMPS.NE.-1 .OR. ILAYER.EQ.0) GO TO 640 OCB(1) = OEF1L CALL WRTTRL (OCB(1)) 640 DO 730 I = 1,12 GO TO (650,660,670,680,690,700,710,720,721,725,726,728), I 650 FILE = OES1 GO TO 730 660 FILE = OEF1 GO TO 730 670 FILE = UGV GO TO 730 680 FILE = CASECC GO TO 730 690 FILE = EDT GO TO 730 700 FILE = GPTT GO TO 730 710 FILE = PG GO TO 730 720 FILE = EIGR GO TO 730 721 FILE = ESTA GO TO 730 725 FILE=EQEXIN GO TO 730 726 FILE = OES1L GO TO 730 728 FILE = OEF1L 730 CALL CLOSE (FILE,CLSREW) RETURN C 740 N = 1 GO TO 760 750 N = 2 GO TO 760 751 N = 3 GO TO 760 760 CALL MESAGE (N,FILE,NAM) GO TO 640 C C UGV FILE PURGED, CAN NOT PROCESS STRESSES OR FORCES C 770 CALL MESAGE (30,76,0) GO TO 640 780 OCB(1) = LSYM OCB(2) = UGV VEC - 1 CALL MESAGE (30,92,OCB(1)) GO TO 620 END ================================================ FILE: mis/sdr2e.f ================================================ SUBROUTINE SDR2E (*,IEQEX,NEQEX) C C THIS ROUTINE WHICH IS CALLED ONLY FROM SDR2D WILL PROCESS THE ESTA C FILE ONCE AND OUTPUT FORCE AND OR STRESS RESULTS ON OEF1 AND OR C OES1 WHICH ARE OPENED IN SDR2D. C IMPLICIT INTEGER (A-Z) EXTERNAL ANDF LOGICAL EORFLG,ENDID ,RECORD,ACSTIC,AXIC ,AGAIN ,IDSTRS, 1 IDFORC,EOFCC ,IDLYST,IDLYFR,OK2WRT,HEAT ,DDRMM , 2 STRAIN,ILOGIC(4) INTEGER BUF(50) ,PLATIT(12) ,COMPLX(478) , 1 ISAVEF(75) ,ISAVES(75) REAL ZZ(1) ,BUFR(1) ,TGRID(33) ,DIFF1 ,DIFF , 1 DEFORM,FRTMEI,TEMP ,TWOTOP,FNCHK CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /LHPWX / LH(6) ,MTISA COMMON /BLANK / APP(2),SORT2 ,ISTRN ,IDUM1 ,COMPS ,IDUM4(4) , 1 STRAIN COMMON /SDR2C1/ IPCMP ,NPCMP ,IPCMP1,NPCMP1,IPCMP2,NPCMP2,NSTROP COMMON /SDR2X1/ IEIGEN,IELDEF,ITLOAD,ISYMFL,ILOADS,IDISPL,ISTR , 1 IELF ,IACC ,IVEL ,ISPCF ,ITTL ,ILSYM ,IFROUT, 2 ISLOAD,IDLOAD,ISORC COMMON /SDR2X2/ CASECC,CSTM ,MPT ,DIT ,EQEXIN,SIL ,GPTT , 1 EDT ,BGPDT ,PG ,QG ,UGV ,EST ,PHIG , 2 EIGR ,OPG1 ,OQG1 ,OUGV1 ,OES1 ,OEF1 ,PUGV1 , 3 OEIGR ,OPHIG ,PPHIG ,ESTA ,GPTTA ,HARMS ,IDUM3(3) 4, OES1L ,OEF1L COMMON /GPTA1 / NELEM ,LAST ,INCR ,ELEM(1) COMMON /SDR2X4/ NAM(2),END ,MSET ,ICB(7),OCB(7),MCB(7),DTYPE(8) 1, ICSTM ,NCSTM ,IVEC ,IVECN ,TEMP ,DEFORM,FILE , 2 BUF1 ,BUF2 ,BUF3 ,BUF4 ,BUF5 ,ANY ,ALL , 3 TLOADS,ELDEF ,SYMFLG,BRANCH,KTYPE ,LOADS ,SPCF , 4 DISPL ,VEL ,ACC ,STRESS,FORCE ,KWDEST,KWDEDT, 5 KWDGPT,KWDCC ,NRIGDS,STA(2),REI(2),DS0(2),DS1(2), 6 FRQ(2),TRN(2),BK0(2),BK1(2),CEI(2),PLA(22) , 7 NRINGS,NHARMS,AXIC ,KNSET ,ISOPL ,STRSPT,DDRMM COMMON /SDR2X7/ ELESTA(100) ,BUFA(100) ,BUFB(4076) COMMON /SDR2X8/ ELWORK(300) COMMON /SDR2X9/ NCHK ,ISUB ,ILD ,FRTMEI(2) ,TWOTOP,FNCHK COMMON /ZZZZZZ/ Z(1) COMMON /ISAVE / ISAVEF,ISAVES COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /CLSTRS/ COMPLX COMMON /SYSTEM /KSYSTM(100) COMMON /SDR2DE/ BUF6 ,COEF ,DEFTMP,DIFF ,DIFF1 ,DEVICE,ESTAWD, 1 ELEMID,ELTYPE,EOF ,EOFCC ,IREQX ,FLAG ,FN , 2 FORCEX,FSETNO,FORMT ,ICC ,I ,IEDT ,ISETNO, 3 ISETF ,ISETS ,IDEF ,ISYMN ,SDEST ,IX ,ISETNF, 4 ISEQ ,IRETRN,IRECX ,ISAVE ,FDEST ,IPART ,ILIST , 5 IGPTTA,ICORE ,IELEM ,IESTA ,BUF8 ,JFORC ,JSTRS , 6 JANY ,JLIST ,J ,KTYPE1,KHI ,KX ,K , 7 KLO ,KN ,KTYPEX,KFRQ ,KCOUNT,LSYM ,M , 8 MIDVEC,NWDSA ,NWDSTR,NLOGIC,NWDS ,NDEF ,N , 9 N1 ,N2 ,NOTSET,NSETS ,NSETF ,NWORDS,NX , O TDUMM(4) ,NWDFOR,NGPTT ,NESTA ,NVECTS,NLIST , A OFILE ,OUTFL ,RETX ,SETNO ,STRESX,SAVE ,TLOAD , B UGVVEC,IXSETS,NXSETS,IXSETF,NXSETF,XSETNS,XSETNF, C SORC ,TMPREC,BUF7 ,TGRID COMMON /SDRETT/ IELTYP,OLDEL ,EORFLG,ENDID ,BUFFLG,ITEMP ,XX2(2), 1 RECORD,OLDEID EQUIVALENCE (KSYSTM( 2),OPTE ) ,(KSYSTM(55),IPREC ), 1 (KSYSTM(56),ITHERM) EQUIVALENCE (BUF(1),BUFR(1) ) ,(Z(1) ,ZZ(1) ), 1 (IDSTRS,ILOGIC(1) ) ,(IDFORC,ILOGIC(2) ), 2 (IDLYST,ILOGIC(3) ) ,(IDLYFR,ILOGIC(4) ), 3 (TEMP ,JTEMP ) ,(NELHAR,ELWORK(155)) DATA PLATIT / 4HLOAD,4H FAC,4HTOR , 9*0 / DATA BUF / 50*0 /, IELOLD / 0 /, IELCHK / 0 / C C INITIALIZE ESTA POINTERS. C IF (STRESX.EQ.0 .AND. FORCEX.EQ.0) RETURN HEAT = .FALSE. IF (ITHERM .NE. 0) HEAT = .TRUE. ESTAWD = IESTA ISTORE = 0 IX = ICC + HARMS AGAIN =.FALSE. OHARMS = Z(IX) IF (OHARMS .LT. 0) OHARMS = NHARMS ISAVE = IVEC ISVSRC = SORC ELTYPE = Z(ESTAWD) FILE = ESTA IX = ICC + ISTR + 2 SPHASE = IABS(Z(IX)) IX = ICC + IELF + 2 FPHASE = IABS(Z(IX)) TWO TO P = ALOG10(2.0**MTISA) C C POSITION TO THE PROPER THERMAL RECORD IF NECESSARY. C RECORD = .FALSE. IF (TLOADS .EQ. 0) GO TO 18 IF (TMPREC .EQ. 0) GO TO 18 CALL REWIND (GPTT) FILE = GPTT DO 15 I = 1,TMPREC CALL FWDREC (*980,GPTT) 15 CONTINUE C C READ AND VERIFY SET-ID (FAILSAFE) C CALL READ (*980,*990,GPTT,ISETID,1,0,FLAG) IF (TLOADS .EQ. ISETID) GO TO 17 WRITE (OPTE,16) SFM,TLOADS,ISETID 16 FORMAT (A25,' 4019, SDR2E DETECTS INVALID TEMPERATURE DATA FOR ', 1 'TEMPERATURE LOAD SET',2I10) CALL MESAGE (-61,0,0) 17 RECORD = .TRUE. C C INITIALIZE /SDRETT/ VARIABLES C OLDEID = 0 OLDEL = 0 EORFLG = .FALSE. ENDID = .TRUE. 18 ITEMP = TLOADS IF (NESTA .NE. 0) GO TO 25 CALL REWIND (ESTA) 20 CALL READ (*950,*990,ESTA,ELTYPE,1,0,FLAG) C C ELEMENT PARAMETERS FOR NEW ELEMENT TYPE C 25 IELEM = (ELTYPE-1)*INCR IELTYP = ELTYPE IPR = IPREC IF (IPR .NE. 1) IPR = 0 JLTYPE = 2*ELTYPE - IPR JCORE = ICORE IF (HEAT .AND. ELTYPE.NE.82) GO TO 27 C FTUBE NWDSA = ELEM(IELEM+17) NPTSTR = ELEM(IELEM+20) NPTFOR = ELEM(IELEM+21) NWDSTR = ELEM(IELEM+18) NWDFOR = ELEM(IELEM+19) GO TO 28 C 27 NWDFOR = 9 NWDSTR = 0 NPTFOR = 0 NPTSTR = 0 NWDSA = 142 C C CHOP OFF 483 WORDS FROM OPEN CORE SPACE FOR CIHEX ELEMENTS C IF (ELTYPE.LT.65 .OR. ELTYPE.GT.67) GO TO 28 ICORE = ICORE - 483 C 28 CONTINUE C C SETUP STRESS PRECISION CHECK. C NCHK = Z(ICC+146) FNCHK = NCHK C C SUBCASE ID C ISUB = Z(ICC+1) C C DETERMINE LOAD/MODE, EIGENVALUE/FREQ/TIME HEADER C FRTMEI(1) = 0. FRTMEI(2) = 0. IF (BRANCH.EQ.5 .OR. BRANCH.EQ.6) GO TO 31 IF (BRANCH.EQ.2 .OR. BRANCH.EQ.8 .OR. BRANCH.EQ.9) GO TO 32 C C STATICS C I = ICC + ISLOAD ILD = Z(I) GO TO 35 C C FREQUENCY/TRANSIENT C 31 I = ICC + IDLOAD ILD = Z(I) FRTMEI(1) = ZZ(JLIST) GO TO 35 C C EIGENVALUES C 32 ILD = Z(JLIST ) FRTMEI(1) = ZZ(JLIST+1) FRTMEI(2) = ZZ(JLIST+2) IF (BRANCH .NE. 2) GO TO 35 IF (ZZ(JLIST+1) .GT. 0.) FRTMEI(1) = SQRT(ZZ(JLIST+1))/6.2831852 35 CONTINUE LSTRES = NWDSTR LFORCE = NWDFOR IDSTRS = .FALSE. IDFORC = .FALSE. IDLYST = .FALSE. IDLYFR = .FALSE. OK2WRT = .TRUE. IF (KTYPE.NE.1 .AND. NPTSTR.EQ.0 .AND. NPTFOR.EQ.0) GO TO 40 IF (NWDSTR+NWDFOR .GT. 0) GO TO 70 C C NO STRESS OR FORCE WORDS POSSIBLE FOR THIS ELEMENT TYPE IF FALL C HERE C 40 IF (NESTA) 60,50,60 C C FORWARD REC ON FILE TO NEXT ELEMENT TYPE C 50 CALL FWDREC (*980,ESTA) GO TO 20 C C FIND END OF CURRENT ELEMEMT TYPE LIST IN CORE C 60 ESTAWD = ESTAWD + NWDSA IF (Z(ESTAWD+1)) 60,940,60 C C OK SOME STRESS AND OR FORCE REQUESTS EXIST FOR THIS ELEMENT TYPE. C PROCESS INDIVIDUAL ELEMENTS REQUESTED C 70 IF (NESTA .NE. 0) GO TO 90 IF (NWDSA .LE. ICORE) GO TO 80 CALL MESAGE (8,0,NAM(1)) C C C INSUFFICIENT CORE TO HOLD ESTA FOR 1 ELEMENT OF CURRENT ELEMENT C TYPE TRY PROCESSING THE OTHER ELEMENT TYPES IN AVAILABLE CORE. C GO TO 50 C 80 CALL READ (*980,*910,ESTA,Z(IESTA),NWDSA,0,FLAG) ESTAWD = IESTA - 1 C C DETERMINE IF THIS PARTICULAR ELEMENT OF THE CURRENT ELEMENT TYPE C HAS A STRESS OR FORCE REQUEST IN THE CURRENT CASE CONTROL RECORD. C 90 ELEMID = Z(ESTAWD+1) C C THE FOLLOWING CODE (THRU 93) IS FOR THE COMPLEX ANALYSIS OF IHEX C ELEMENTS ONLY (ELEM. TYPES 65,66,67) C IF (KTYPE.NE.2 .OR. ELTYPE.LT.65 .OR. ELTYPE.GT.67) GO TO 93 IF (IPART.NE.2 .OR. ISTRPT.NE.(NIP3+NGP1+1)) GO TO 91 C C DONE FOR THIS IHEX ELEMENT, RESET CHECKING VARIABLES C IPART = 0 IELOLD = 0 IELCHK = 0 GO TO 93 C C FIRST INTEGRATION POINT FOR IMAGINARY RETULS FOR THIS IHEX ELEMENT C SAVE ELEMENT ID AND CURRENT ESTAWD C 91 IF (IPART.NE.1 .OR. ISTRPT.NE.1) GO TO 92 IELOLD = ELEMID OLDAWD = ESTAWD - NWDSA GO TO 93 C C FIRST INTEGRATION POINT FOR REAL RESULTS FOR THIS IHEX ELEMENT, C SAVE ELEMENT ID TO CHECK WITH EARLIER ELEMENT ID SAVED ABOVE C 92 IF (IPART.EQ.2 .AND. ISTRPT.EQ.1) IELCHK = ELEMID C C END OF SPECIAL TREATMENT FOR IHEX ELEMENT C 93 IDELEM = ELEMID C C DECODE ELEMID TO FIND IT IN SET C IF (.NOT. AXIC) GO TO 95 NELHAR = ELEMID - (ELEMID/1000)*1000 ELEMID = ELEMID/1000 95 JSTRS = 0 JFORC = 0 I = ISETS IF (NWDSTR .EQ. 0) GO TO 140 IF (STRESX) 110,140,100 100 IF (I .EQ. NSETS) GO TO 120 IF (Z(I+1) .GT.0) GO TO 120 I = I + 1 IF (ELEMID.LT.Z(I-1) .OR. ELEMID.GT.-Z(I)) GO TO 130 110 JSTRS = 1 GO TO 140 120 IF (ELEMID .EQ. Z(I)) GO TO 110 130 I = I + 1 IF (I .LE. NSETS) GO TO 100 140 I = ISETF IF (NWDFOR .EQ. 0) GO TO 190 IF (FORCEX) 160,190,150 150 IF (I .EQ. NSETF) GO TO 170 IF (Z(I+1) .GT.0) GO TO 170 I = I + 1 IF (ELEMID.LT.Z(I-1) .OR. ELEMID.GT.-Z(I)) GO TO 180 160 JFORC = 1 GO TO 190 170 IF (ELEMID .EQ. Z(I)) GO TO 160 180 I = I + 1 IF (I .LE. NSETF) GO TO 150 190 JANY= JSTRS + JFORC IF (JANY .EQ. 0) IF (NESTA) 890,80,890 C C OK FALL HERE AND A STRESS OR FORCE REQUEST EXISTS C IF THERMAL LOADING, GET THE ELEMENT THERMAL DATA. C IF ELEMENT DEFORMATIONS, LOOK UP THE DEFORMATION C C C ELEMENT TEMPERATURE C IF (TLOADS .EQ. 0) GO TO 330 N = ELEM(IELEM+10) C C IF NEW ELEMENTS ARE ADDED THAT HAVE SPECIAL BENDING THERMAL DATA C POSSIBLE THEN THE FOLLOWING TEST SHOULD BE EXPANDED TO INCLUDE C THEIR ELEMENT TYPE SO AS TO RECEIVE ZEROS AND ONLY THE AVERAGE C TEMPERATURE RATHER THAN SIMULATED GRID POINT TEMPERATURES IN THE C ABSENCE OF ANY USER SPECIFIED DATA. C IF (IELTYP.EQ.34 .OR. IELTYP.EQ. 6 .OR. IELTYP.EQ.7 .OR. 1 IELTYP.EQ. 8 .OR. IELTYP.EQ.15 .OR. IELTYP.EQ.17 .OR. 2 IELTYP.EQ.18 .OR. IELTYP.EQ.19) N = 0 IF (IELTYP.EQ.74 .OR. IELTYP.EQ.75) N = 0 IF (IELTYP.EQ.64 .OR. IELTYP.EQ.83) N = 0 C C CALL SDRETD (IDELEM,TGRID,N) C C SET THE AVERAGE ELEMENT TEMPERATURE CELL. C TEMP = TGRID(1) GO TO 340 C C NORMALLY TGRID(1) WILL CONTAIN THE AVERAGE ELEMENT TEMPERATUE C AND IF GRID POINT TEMPERATURES ARE RETURNED THEY WILL BEGIN C IN TGRID(2). C 330 JTEMP = -1 C C ELEMENT DEFORMATION C 340 DEFORM = 0.0 IF (ELDEF .EQ. 0) GO TO 360 DO 350 I = IDEF,NDEF,2 IF (Z(I) .EQ. ELEMID) GO TO 355 350 CONTINUE GO TO 360 355 DEFORM = ZZ(I+1) C C WRITE ID FOR STRESSES IF NOT YET WRITTEN FOR THIS ELEMENT TYPE. C 360 IF (STRESS.EQ.0 .OR. NWDSTR.EQ.0 .OR. JSTRS.EQ.0) GO TO 365 IF (COMPS.EQ.-1 .AND. NSTROP.GT.1) GO TO 362 IF (IDSTRS) GO TO 365 NLOGIC = 1 OFILE = OES1 DEVICE = SDEST ISEQ = 4 IFLTYP = DTYPE(ISEQ) IRECX = ICC + ISTR NWDS = NWDSTR JCMPLX = NPTSTR ASSIGN 365 TO IRETRN GO TO 630 C 362 IF (IDLYST) GO TO 365 NLOGIC = 3 OFILE = OES1L DEVICE = SDEST IFLTYP = 22 IRECX = ICC + ISTR NWDS = 10 JCMPLX = 0 OK2WRT = .FALSE. ASSIGN 365 TO IRETRN GO TO 630 C C WRITE ID FOR FORCES IF NOT YET WRITTEN FOR THIS ELEMENT TYPE. C 365 IF (FORCE.EQ. 0 .OR. NWDFOR.EQ.0 .OR. JFORC .EQ.0) GO TO 375 IF (COMPS.EQ.-1 .AND. NSTROP.GT.1 .AND. STRESS.NE.0) GO TO 367 IF (IDFORC) GO TO 375 NLOGIC = 2 OFILE = OEF1 DEVICE = FDEST ISEQ = 5 IFLTYP = DTYPE(ISEQ) IRECX = ICC + IELF NWDS = NWDFOR JCMPLX = NPTFOR ASSIGN 375 TO IRETRN GO TO 630 C 367 IF (IDLYFR) GO TO 375 NLOGIC = 4 OFILE = OEF1L DEVICE = FDEST IFLTYP = 23 IRECX = ICC + IELF NWDS = 9 JCMPLX = 0 OK2WRT = .FALSE. ASSIGN 375 TO IRETRN GO TO 630 C C MOVE ESTA DATA INTO /SDR2X7/ C 375 NSESTA = ESTAWD IF (IELCHK.EQ.0 .OR. IPART.LT.2 .OR. IELCHK.NE.IELOLD) GO TO 377 IPART = 1 GO TO 380 377 IPART = 0 380 IPART = IPART + 1 DO 390 I = 1,NWDSA ESTAWD = ESTAWD + 1 390 ELESTA(I) = Z(ESTAWD) ACSTIC = .FALSE. C C CALL APPROPRIATE ELEMENT ROUTINE FOR STRESS AND FORCE COMPUTATIONS C IF (HEAT) GO TO 1680 LOCAL = JLTYPE - 100 IF (LOCAL) 394,394,395 C C PAIRED -GO TO- ENTRIES PER ELEMENT SINGLE/DOUBLE PRECISION C C 1 CROD 2 C..... 3 CTUBE 4 CSHEAR 5 CTWIST 394 GO TO( 400, 400, 610, 610, 400, 400, 420, 420, 430, 430 C C 6 CTRIA1 7 CTRBSC 8 CTRPLT 9 CTRMEM 10 CONROD 1, 450, 450, 460, 460, 470, 470, 480, 480, 400, 400 C C 11 ELAS1 12 ELAS2 13 ELAS3 14 ELAS4 15 CQDPLT 2, 490, 490, 490, 490, 490, 490, 490, 490, 500, 500 C C 16 CQDMEM 17 CTRIA2 18 CQUAD2 19 CQUAD1 20 CDAMP1 3, 520, 520, 450, 450, 540, 540, 540, 540, 610, 610 C C 21 CDAMP2 22 CDAMP3 23 CDAMP4 24 CVISC 25 CMASS1 4, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610 C C 26 CMASS2 27 CMASS3 28 CMASS4 29 CONM1 30 CONM2 5, 610, 610, 610, 610, 610, 610, 610, 610, 610, 610 C C 31 PLOTEL 32 C..... 33 C..... 34 CBAR 35 CCONE 6, 610, 610, 610, 610, 610, 610, 560, 560, 570, 570 C C 36 CTRIARG 37 CTRAPRG 38 CTORDRG 39 CTETRA 40 CWEDGE 7, 580, 580, 590, 590, 600, 600, 601, 601, 602, 602 C C 41 CHEXA1 42 CHEXA2 43 CFLUID2 44 CFLUID3 45 CFLUID4 8, 603, 603, 604, 604, 610, 610, 610, 610, 610, 610 C C 46 CFLMASS 47 CAXIF2 48 CAXIF3 49 CAXIF4 50 CSLOT3 9, 610, 610, 605, 605, 606, 606, 607, 607, 608, 608 C *), JLTYPE C C 51 CSLOT4 52 CHBDY 53 CDUM1 54 CDUM2 55 CDUM3 395 GO TO( 609, 609, 610, 610, 1614, 1614, 1615, 1615, 1616, 1616 C C 56 CDUM4 57 CDUM5 58 CDUM6 59 CDUM7 60 CDUM8 B, 1617, 1617, 1618, 1618, 1619, 1619, 1620, 1620, 1621, 1621 C C 61 CDUM9 62 CQDMEM1 63 CQDMEM2 64 CQUAD4 65 CIHEX1 C, 1622, 1622, 1623, 1623, 1624, 1624, 1625, 1625, 1626, 1626 C C 66 CIHEX2 67 CIHEX3 68 CQUADTS 69 CTRIATS 70 CTRIAAX D, 1626, 1626, 1626, 1626, 1632, 1632, 1633, 1633, 1634, 1634 C C 71 CTRAPAX 72 CAERO1 73 CTRIM6 74 CTRPLT1 75 CTRSHL E, 1635, 1635, 610, 610, 1640, 1640, 1645, 1645, 1650, 1650 C C 76 CFHEX1 77 CFHEX2 78 CFTETRA 79 CFWEDGE 80 CIS2D8 F, 610, 610, 610, 610, 610, 610, 610, 610, 1660, 1660 C C 81 CELBOW 82 CFTUBE 83 CTRIA3 G, 1670, 1670, 610, 610, 1630, 1630 C *), LOCAL C 400 CALL SROD2 GO TO 620 420 K = 4 GO TO 440 430 K = 5 440 CALL SPANL2 (K) GO TO 620 450 K = 3 GO TO 550 460 K = 0 GO TO 510 470 K = 3 GO TO 510 480 K = 1 GO TO 530 490 CALL SELAS2 GO TO 620 500 K = 4 510 CALL SBSPL2 (K,TGRID(1)) GO TO 620 520 K = 2 530 CALL STQME2 (K) GO TO 620 540 K = 4 550 CALL STRQD2 (K,TGRID(1)) GO TO 620 560 CALL SBAR2 (TGRID(1)) GO TO 620 570 AGAIN = .FALSE. CALL SCONE2 (SORC) GO TO 620 580 CALL STRIR2 (TGRID(2)) GO TO 620 590 CALL STRAP2 (TGRID(2)) GO TO 620 600 CALL STORD2 (TGRID(2)) GO TO 620 601 CALL SSOLD2 (1,TGRID(2)) GO TO 620 602 CALL SSOLD2 (2,TGRID(2)) GO TO 620 603 CALL SSOLD2 (3,TGRID(2)) GO TO 620 604 CALL SSOLD2 (4,TGRID(2)) GO TO 620 605 KK = 0 GO TO 611 606 KK = 1 GO TO 611 607 KK = 2 611 CALL SAXIF2 (KK,IPART,BRANCH,Z(JLIST)) ACSTIC = .TRUE. GO TO 620 608 KK = 0 GO TO 612 609 KK = 1 612 CALL SSLOT2 (KK,IPART,BRANCH,Z(JLIST)) ACSTIC = .TRUE. GO TO 620 1614 CALL SDUM12 GO TO 620 1615 CALL SDUM22 GO TO 620 1616 CALL SDUM32 GO TO 620 1617 CALL SDUM42 GO TO 620 1618 CALL SDUM52 GO TO 620 1619 CALL SDUM62 GO TO 620 1620 CALL SDUM72 GO TO 620 1621 CALL SDUM82 GO TO 620 1622 CALL SDUM92 GO TO 620 1623 CALL SQDM12 GO TO 620 1624 CALL SQDM22 GO TO 620 1625 CALL SQUD42 GO TO 620 1626 CALL SIHEX2 (ELTYPE-64,TGRID(1),NIP,ISTRPT,ISTORE) NGP = 12*(ELTYPE-64) - 4 NGP1 = NGP + 1 IF (ELTYPE .EQ. 67) NGP1 = 21 NIP3 = NIP**3 IF (ISTRPT .LT. NIP3+1) GO TO 905 IF (ISTRPT .EQ. NIP3+1) GO TO 1626 IF (ISTRPT .EQ. NIP3+1+NGP1) ISTORE = 0 IF (KTYPE .EQ. 1) GO TO 620 NGPX = ISTRPT - (NIP3+1) NW = 22 IF (ELTYPE .EQ. 67) NW = 23 IST = NW*(NGPX-1) IF (IPART .GE. KTYPE) GO TO 1628 C C STORE IMARINARY PARTS FOR THIS GRID (IHEX ELEMENTS) C IJK = IST + ICORE DO 1627 J = 1,NW 1627 Z(J+IJK) = BUFA(J) IF (ISTORE .NE. 0) GO TO 1626 IVEC = MIDVEC ESTAWD = OLDAWD GO TO 380 C C RETRIEVE IMAGINARY PARTS FOR THIS GRID (IHEX ELEMENTS) C 1628 IJK = IST + ICORE DO 1629 J = 1,NW 1629 ISAVES(J) = Z(J+IJK) GO TO 620 C 1630 CALL STRI32 GO TO 620 1632 CONTINUE GO TO 620 1633 CONTINUE GO TO 620 1634 AGAIN = .FALSE. CALL STRAX2 (SORC,TGRID(2)) GO TO 620 1635 AGAIN = .FALSE. CALL STPAX2 (SORC,TGRID(2)) GO TO 620 1640 CALL STRM62 (TGRID(1)) GO TO 620 1645 CALL STRP12 (TGRID(1)) GO TO 620 1650 CALL STRSL2 (TGRID(1)) GO TO 620 1660 CALL SS2D82 (IEQEX,NEQEX,TGRID(1)) GO TO 620 1670 CALL SELBO2 (TGRID(1)) GO TO 620 C C PHASE TWO HEAT ONLY (ALL ELEMENTS) C 1680 CALL SDHTF2 (IEQEX,NEQEX) GO TO 620 610 GO TO 900 C C CALL ELEMENT TWO TIMES FOR COMPLEX VECTOR. IMAGINARY FIRST, REAL C SECOND. CALL ELEMENT ROUTINE TWICE IF AXIC PROBLEM C ONCE FOR EACH OF THE 2 VECTORS IN CORE C 620 IF (AXIC .AND. MIDVEC.NE.0 .AND. IPART.EQ.1) GO TO 625 IF (IPART .GE. KTYPE) GO TO 615 625 IVEC = MIDVEC C C FOR CONICAL SHELL ONLY C IF (AXIC .AND. KTYPE.NE.1) GO TO 626 ITEMP = 1 IF (SORC .EQ. 1) ITEMP = 2 SORC = ITEMP 626 CONTINUE ESTAWD = NSESTA IF (AXIC .AND. KTYPE.EQ.1) GO TO 380 C C SAVE IMAGINARY OUTPUTS (NOT MORE THAN 75 STRESS OR FORCE WORDS) C DO 622 I = 1,75 ISAVES(I) = BUFA(I) 622 ISAVEF(I) = BUFB(I) GO TO 380 C C SPLIT OUTPUT FROM SECOND CALL FOR ACOUSTIC ELEMENTS C AXIF2, AXIF3, AXIF4, SLOT3, OR SLOT4. C 615 IF (.NOT. ACSTIC) GO TO 617 IF (IPART .LT. 2) GO TO 617 DO 613 I = 1,12 ISAVES(I) = BUFA(I ) BUFA(I) = BUFA(I+12) 613 CONTINUE C C C OUTPUT ONLY FIRST N HARMONICS REQUESTED C 617 IF (.NOT. AXIC) GO TO 616 IF (NELHAR.LT.0 .OR. NELHAR.GT.OHARMS) GO TO 880 IF (IPART.EQ.2 .AND. KTYPE.EQ.1) GO TO 880 C C OUTPUT STRESS RESULTS ON OES1 (IF REQUESTED) C 616 IF (JSTRS.EQ.0 .OR. NWDSTR.EQ.0) GO TO 860 IF (KTYPE .EQ. 1) GO TO 850 C C COMBINE COMPLEX OUTPUT DESIRED PER FORMAT IN COMPLX ARRAY. C REAL PARTS ARE IN BUFA BUFB C IMAG PARTS ARE IN ISAVES ISAVEF C C C COMPLEX STRESSES C IOUT = 0 I = NPTSTR 651 NPT = COMPLX(I) IF (NPT) 652,653,654 652 NPT = -NPT IF (SPHASE .NE. 3) GO TO 654 C C COMPUTE MAGNITUDE/PHASE C CALL MAGPHA (BUFA(NPT),ISAVES(NPT)) 655 IOUT = IOUT + 1 ELWORK(IOUT) = BUFA(NPT) I = I + 1 GO TO 651 654 IF (NPT .LE. LSTRES) GO TO 655 NPT = NPT - LSTRES IOUT = IOUT + 1 ELWORK(IOUT) = ISAVES(NPT) I = I + 1 GO TO 651 C C TRANSFER RESULTS TO BUFA C 653 DO 659 I = 1,IOUT 659 BUFA(I) = ELWORK(I) NWDSTR = IOUT C C WRITE STRESSES C C C DETERMINE DESTINATION FOR STRESS ENTRY C 850 IF (STRESS .EQ. 0) GO TO 860 IF (.NOT. OK2WRT) GO TO 860 ID = BUFA(1) BUFA(1) = 10*ID + SDEST IF (XSETNS) 858,851,852 851 BUFA(1) = 10*ID GO TO 858 852 IX = IXSETS 853 IF (IX .EQ. NXSETS) GO TO 854 IF (Z(IX+1) .GT. 0) GO TO 854 IF (ID.GE.Z(IX) .AND. ID.LE.(-Z(IX+1))) GO TO 858 IX = IX + 2 GO TO 855 854 IF (ID .EQ. Z(IX)) GO TO 858 IX = IX + 1 855 IF (IX .LE. NXSETS) GO TO 853 GO TO 851 C C NOW WRITE STRESS ENTRY C 858 CALL WRITE (OES1,BUFA(1),NWDSTR,0) BUFA(1) = ID C C OUTPUT FORCE RESULTS ON OEF1 (IF REQUESTED) C 860 IF (JFORC .EQ. 0 .OR. NWDFOR .EQ. 0) GO TO 880 IF (KTYPE .EQ. 1) GO TO 870 C C COMPLEX FORCES C IOUT = 0 I = NPTFOR 951 NPT = COMPLX(I) IF (NPT) 952,953,954 952 NPT = -NPT IF (FPHASE .NE. 3) GO TO 954 C C COMPUTE MAGNITUDE/PHASE FOR FORCES C CALL MAGPHA (BUFB(NPT),ISAVEF(NPT)) 955 IOUT = IOUT + 1 ELWORK(IOUT) = BUFB(NPT) I = I + 1 GO TO 951 954 IF (NPT .LE. LFORCE) GO TO 955 NPT = NPT - LFORCE IOUT = IOUT + 1 ELWORK(IOUT) = ISAVEF(NPT) I = I + 1 GO TO 951 C C TRANSFER RESULTS TO BUFB C 953 DO 959 I = 1,IOUT 959 BUFB(I) = ELWORK(I) NWDFOR = IOUT C C WRITE FORCES C C C DETERMINE DESTINATION FOR FORCE ENTRY C 870 IF (FORCE .EQ. 0) GO TO 880 IF (.NOT. OK2WRT) GO TO 880 ID = BUFB(1) BUFB(1) = 10*ID + FDEST IF (XSETNF) 878,871,872 871 BUFB(1) = 10*ID GO TO 878 872 IX = IXSETF 873 IF (IX .EQ. NXSETF) GO TO 874 IF (Z(IX+1) .GT. 0) GO TO 874 IF (ID.GE.Z(IX) .AND. ID.LE.(-Z(IX+1))) GO TO 878 IX = IX + 2 GO TO 875 874 IF (ID .EQ. Z(IX)) GO TO 878 IX = IX + 1 875 IF (IX .LE. NXSETF) GO TO 873 GO TO 871 C C NOW WRITE FORCE ENTRY C 878 CALL WRITE (OEF1,BUFB(1),NWDFOR,0) BUFB(1) = ID 880 GO TO 900 890 ESTAWD = ESTAWD + NWDSA 900 IF (AGAIN) GO TO 903 IF (ISTORE .EQ. 1) GO TO 1626 IF (KTYPE.NE.1 .OR. (AXIC .AND. MIDVEC.NE.0)) IVEC = ISAVE IF (AXIC .AND. MIDVEC.NE.0) SORC = ISVSRC IF (.NOT. AXIC) GO TO 905 IF (NELHAR .NE. NHARMS) GO TO 905 903 IF (ELTYPE .EQ. 35) CALL SCONE3 (AGAIN) IF (ELTYPE .EQ. 70) CALL STRAX3 (AGAIN) IF (ELTYPE .EQ. 71) CALL STPAX3 (AGAIN) NELHAR = -1 GO TO 616 905 IF (NESTA .EQ. 0) GO TO 80 IF (Z(ESTAWD+1) .NE. 0) GO TO 90 C C END OF ESTA FOR CURRENT ELEMENT TYPE C 910 IF (.NOT. IDSTRS) GO TO 915 CALL WRITE (OES1,0,0,1) 915 IF (.NOT. IDFORC) GO TO 920 CALL WRITE (OEF1,0,0,1) 920 IF (.NOT. IDLYST) GO TO 925 CALL WRITE (OES1L,0,0,1) 925 IF (.NOT. IDLYFR) GO TO 930 CALL WRITE (OEF1L,0,0,1) 930 IF (NESTA .EQ. 0) GO TO 20 940 ESTAWD = ESTAWD + 2 IF (ESTAWD .GE. NESTA) GO TO 950 ELTYPE = Z(ESTAWD) GO TO 25 C C END OF ESTA FILE HIT C 950 CONTINUE 960 CONTINUE IVEC = ISAVE ICORE = JCORE RETURN C C INTERNAL SUBROUTINE FOR WRITING ID RECORDS TO OUTPUT FILES C 630 DO 635 I = 1,50 635 BUF(I) = 0 C C IF THE ID IS BEING WRITTEN TO A FILE WITH COMPLEX DATA, C CHANGE THE NUMBER OF WORDS TO REFLECT THE ACTUAL COUNT C OF WORDS BEING PUT TOGETHER USING THE STRING OF NUMBERS C IN THE 'COMPLX' ARRAY. (SEE FORTRAN LABELS 651 THRU 654 C AND 951 THRU 954) C IF (KTYPE .EQ. 1) GO TO 645 IF (JCMPLX .EQ. 0) RETURN 1 JOUT = 0 I = JCMPLX 638 NCMPLX = COMPLX(I) IF (NCMPLX) 640,642,640 640 JOUT = JOUT + 1 I = I + 1 GO TO 638 642 NWDS = JOUT C C CHECK FOR VON MISES STRESS REQUEST. SET WORD 11 IF C REQUEST IS FOUND. C 645 IF (ANDF(NSTROP,1) .NE. 0) BUF(11) = 1 C GO TO (650,660,650,650,670,790,650,660,660,650), BRANCH C C NORMAL STATICS OR DIFF.STIFF. PHASE 0 OR 1 OR BUCKLING PHASE 0. C 650 BUF(2) = IFLTYP IX = ICC + ISLOAD BUF(5) = Z(ICC+1) BUF(6) = 0 BUF(7) = 0 BUF(8) = Z(IX) IF (BRANCH .NE. 10) GO TO 840 IX = ICC + ITTL + 84 Z(IX) = PLATIT(1) Z(IX+1)= PLATIT(2) Z(IX+2)= PLATIT(3) CALL INT2AL (UGVVEC-1,Z(IX+3),PLATIT(4)) GO TO 840 C C EIGENVALUES OR BUCKLING PHASE 1. C 660 BUF(2) = IFLTYP + KTYPEX BUF(5) = Z(JLIST) BUF(6) = Z(JLIST+1) BUF(7) = Z(JLIST+2) BUF(8) = 0 GO TO 840 C C FREQUENCY RESPONSE. C 670 IX = ICC + IDLOAD BUF(8) = Z(IX) BUF(6) = 0 BUF(7) = 0 BUF(2) = IFLTYP + KTYPEX 671 CONTINUE C C FIRST TIME FOR THIS LOAD VECTOR ONLY - MATCH LIST OF C IF (KFRQ .NE. 0) GO TO 740 C C USER REQUESTED FREQS WITH ACTUAL FREQS. MARK FOR C OUTPUT EACH ACTUAL FREQ WHICH IS CLOSEST TO USER REQUEST. C KFRQ = 1 IX = ICC + IFROUT FSETNO = Z(IX) IF (FSETNO .LE. 0) GO TO 690 IX = ICC + ILSYM ISETNF = IX+Z(IX) + 1 680 ISETFR = ISETNF + 2 NSETFR = Z(ISETNF+1) + ISETFR - 1 IF (Z(ISETNF) .EQ. FSETNO) GO TO 710 ISETNF = NSETFR + 1 IF (ISETNF .LT. IVEC) GO TO 680 FSETNO = -1 690 DO 700 J = ILIST,NLIST,2 700 Z(J+1) = 1 GO TO 740 710 DO 730 I = ISETFR,NSETFR K = 0 DIFF = 1.E25 BUFR(1)= ZZ(I) DO 720 J = ILIST,NLIST,2 IF (Z(J+1) .NE. 0) GO TO 720 DIFF1 = ABS(ZZ(J) - BUFR(1)) IF (DIFF1 .GE. DIFF) GO TO 720 DIFF = DIFF1 K = J 720 CONTINUE IF (K .NE. 0) Z(K+1) = 1 730 CONTINUE C C DETERMINE IF CURRENT FREQ IS MARKED FOR OUTPUT. C 740 IF (Z(JLIST+1) .EQ. 0) GO TO 960 BUF(5) = Z(JLIST) GO TO 840 C C TRANSIENT RESPONSE. C 790 BUF(5) = Z(JLIST) BUF(2) = IFLTYP IX = ICC + IDLOAD BUF(8) = Z(IX) BUF(6) = 0 BUF(7) = 0 GO TO 671 C C WRITE ID RECORD ON OUTPUT FILE. C (FOR MORE DETAIL, SEE OES1 FILE IN PROGRAMMER MANUAL P.2.3-130) C 840 BUF(1) = DEVICE + 10*BRANCH BUF(3) = ELTYPE C C CHECK FOR TRIA1, TRIA2, TRIA3, QUAD1, QUAD2, QUAD4 ELEMENTS C IF (ELTYPE.NE. 6 .AND. ELTYPE.NE.17 .AND. ELTYPE.NE.18 .AND. 1 ELTYPE.NE.19 .AND. ELTYPE.NE.64 .AND. ELTYPE.NE.83) 2 GO TO 845 C C CHECK FOR STRAIN OPTION C IF (BUF(2).EQ.5 .AND. STRAIN) BUF(2) = 21 845 BUF(4) = Z(ICC+1) IF (DDRMM) BUF(4) = 9999 BUF(9) = IABS(Z(IRECX+2)) IF (BUF(9).EQ.1 .AND. KTYPE.EQ.2) BUF(9) = 2 BUF(10) = NWDS CALL WRITE (OFILE,BUF(1),50,0) IX = ICC + ITTL CALL WRITE (OFILE,Z(IX),96,1) ILOGIC(NLOGIC) = .TRUE. GO TO IRETRN, (365,375) C C ERRORS C 980 N = 2 GO TO 1000 990 N = 3 GO TO 1000 1000 CALL MESAGE (N,FILE,NAM) RETURN 1 C END ================================================ FILE: mis/sdr3.f ================================================ SUBROUTINE SDR3 INTEGER OFPFIL(6) C COMMON /SYSTEM/ SYSBUF, L C***** C MAIN DRIVER FOR THE SDR3 MODULE... C***** CALL SDR3A( OFPFIL(1) ) C***** C IF ANY OF THE SIX DATA-BLOCKS DID NOT COMPLETE SORT2 CALL OFPDMP C***** DO 10 I = 1,6 IF( OFPFIL(I) .EQ. 0 ) GO TO 10 WRITE(L,15)I,OFPFIL(I) 15 FORMAT(1H1,20(131(1H*)/),95H0DUE TO ERRORS MENTIONED PREVIOUSLY, S 1DR3 IS CALLING THE -OFP- TO OUTPUT SDR3-INPUT-DATA-BLOCK-,I2,17H I 2N SORT-I FORMAT/ 28H THE SDR3 TRACEBACK NUMBER =,I3//20(131(1H*)/ 3)) IFILE = I + 100 CALL OFPDMP( IFILE ) 10 CONTINUE RETURN END ================================================ FILE: mis/sdr3a.f ================================================ SUBROUTINE SDR3A (OFPFIL) C C SORT-2 MODULE C INTEGER INAME(2),TRAIL(7),ID(146),IDTEMP(146),VECTOR(50), 1 SCRTCH(8),OFILE(6),IFILE(6),BUFF(10),OFPFIL(6),Z, 2 WORDS,EOF,CORE,BUFF9,BUFF10,GROUP,OUFILE,FILE,RECS 3, RECPT,EOR,OUTRWD,RWD,FULL,OVRLAP,V IN BK,W PER BK, 4 V PER BK,TOTAL1,TOTAL2,AHEAD,ENTRYS(85) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ IBUFSZ, L COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (NWDS,ID(10)) C C IF THE NUMBER OF SCRATCH FILES CHANGE, ONE SHOULD SET NSCRAT EQUAL C TO THE NEW NUMBER AND INCREASE THE DATA BELOW C C NFILES BELOW EQUALS THE NUMBER OF INPUT FILES AND ALSO EQUALS C THE NUMBER OF OUTPUT FILES. IF NFILES CHANGES, CHANGE THE DATA C BELOW TO CONFORM... C ALSO CHANGE DIMENSIONS OF BUFF,IFILE,OFILE,SCRTCH, AS REQUIRED... C DATA IFILE / 101,102,103,104,105,106 / DATA OFILE / 201,202,203,204,205,206 / DATA SCRTCH/ 301,302,303,304,305,306,307,308 / DATA TRAIL / 0,1,2,3,4,5,6 / DATA EOR , NOEOR,RWD,INPRWD,OUTRWD / 1,0,1,0,1 / C NFILES = 6 NSCRAT = 8 DO 4 I = 1,6 4 OFPFIL(I) = 0 DO 5 I = 1,146 IDTEMP(I) = 0 5 CONTINUE C C BUFFERS AND OPEN CORE C CORE = KORSZ(Z) C BUFF(1) = CORE - IBUFSZ + 1 DO 10 I = 2,10 BUFF(I) = BUFF(I-1) - IBUFSZ 10 CONTINUE BUFF9 = BUFF( 9) BUFF10 = BUFF(10) CORE = BUFF(10) - 1 IF (CORE .LT. 1) GO TO 700 C C OPEN SCRATCH FILES FOR OUTPUT C IERROR = 0 DO 30 I = 1,NSCRAT IBUFF = BUFF(I) CALL OPEN (*20,SCRTCH(I),Z(IBUFF),OUTRWD) GO TO 30 20 IERROR = 1 WRITE (L,21) UWM,I 21 FORMAT (A25,' 985, SDR3 FINDS SCRATCH',I1,' PURGED.') 30 CONTINUE C C EXECUTE FOR NFILES FILES C DO 460 FILE = 1,NFILES EOF = 0 INFILE = IFILE(FILE) OUFILE = OFILE(FILE) C CALL OPEN (*460,INFILE,Z(BUFF9),INPRWD) CALL OPEN (*480,OUFILE,Z(BUFF10),OUTRWD) CALL FWDREC (*520,INFILE) C C HEADER RECORD FOR OUFILE C CALL FNAME (OUFILE,INAME(1)) CALL WRITE (OUFILE,INAME(1),2,EOR) C C WRITE SOME JUNK IN TRAILER FOR NOW C TRAIL(1) = OUFILE CALL WRTTRL (TRAIL(1)) NO FRQ = 0 C C PROCEED WITH TRANSPOSE OF DATA = SORT-2 C C GROUP WILL BE THE NUMBER OF THE FIRST REC IN THE PRESENT GROUP OF C DATA BLOCKS BEING OPERATED ON, LESS 1 C NRECS = 1 C 50 ASSIGN 120 TO IRETRN C 60 CALL READ (*80,*620,INFILE,ID(1),146,EOR,IAMT) IF (ID(1)/10 .EQ. 1) NOFRQ = 1 IDATA = 1 C 70 ICORE = CORE RECS = 0 GROUP = NRECS C C READ FIRST DATA BLOCK INTO CORE C CALL READ (*530,*90,INFILE,Z(1),ICORE,NOEOR,IAMT) C C INSUFFICIENT CORE, IF FALL HERE, TO DO SORT II ON THIS FILE.. C GO TO 670 80 CALL CLOSE (INFILE,RWD) CALL CLOSE (OUFILE,RWD) GO TO 460 C 90 IF (IAMT .EQ. 0) GO TO 441 ENTRYS(1) = IAMT/NWDS C C SET UP IN-CORE ENTRY BLOCKS C SPOT FOR TRANSPOSE HEADING DATA IS AT Z(ICORE-ENTRYS(1)+1) C IHD2 = ICORE + 1 ICORE = ICORE - ENTRYS(1) IHEAD = ICORE IF (ICORE .LT. IAMT) GO TO 680 C C NOTATION - W PER BK = WORDS PER ENTRY BLOCK C V PER BK = VECTORS PER ENTRY BLOCK C V IN BK = VECTORS NOW IN ENTRY BLOCKS C W PER BK = ICORE/ENTRYS(1) V PER BK = W PER BK/NWDS W PER BK = V PER BK*NWDS IF (V PER BK .LT. 1) GO TO 690 C C DISTRIBUTE FIRST DATA BLOCK TO INCORE ENTRY BLOCKS (BOTTOM TO TOP) C NENTRY = ENTRYS(1) TOTAL1 = W PER BK*ENTRYS(1) + 1 TOTAL2 = NWDS*ENTRYS(1) + 1 DO 110 I = 1,NENTRY N1 = TOTAL1 - W PER BK*I N2 = TOTAL2 - NWDS *I IHD = IHD2 - I Z(IHD) = Z(N2) Z(N1 ) = ID(5) C C SAVE TRANSPOSE HEADING C DO 100 J = 2,NWDS N1 = N1 + 1 N2 = N2 + 1 Z(N1) = Z(N2) 100 CONTINUE 110 CONTINUE C V IN BK = 1 GO TO IRETRN, (120,150) C 120 NTYPES = 1 130 CALL READ (*159,*630,INFILE,IDTEMP(1),146,EOR,IAMT) IF ((ID(2).EQ.IDTEMP(2) .AND. ID(3).EQ.IDTEMP(3) .AND. 1 ID(5).NE.IDTEMP(5)) .OR. (ID(5).NE.IDTEMP(5)) .OR. 2 (ID(4).NE.IDTEMP(4))) GO TO 160 C NTYPES = NTYPES + 1 NWORDS = IDTEMP(10) C C WILL READ DATA AND COUNT ENTRYS C IF (NTYPES .GT. 30) GO TO 472 ENTRYS(NTYPES) = 0 140 CALL READ (*540,*130,INFILE,IDTEMP(1),NWORDS,NOEOR,IAMT) ENTRYS(NTYPES) = ENTRYS(NTYPES) + 1 GO TO 140 C 150 AHEAD = 2*NTYPES - 2 IF (NDATA .EQ. 1) GO TO 260 GO TO 170 C C AT THIS POINT IT IS KNOWN HOW MANY TYPES ARE IN THE PRESENT GROUP C OF DATA BLOCKS AND ALSO HOW MANY ENTRYS IN EACH TYPE C 159 IF (NTYPES .EQ. 1) EOF = 1 160 ITYPE = 1 NDATA = 1 IDATA = 1 C C POSITION TO READ 2-ND ID OF TYPE(ITYPE) IF NOT JUST READ C IF (NTYPES .EQ. 1) GO TO 200 CALL REWIND (INFILE) AHEAD = GROUP + 2*NTYPES 170 DO 180 I = 1,AHEAD CALL FWDREC (*550,INFILE) 180 CONTINUE C 190 CALL READ (*260,*640,INFILE,IDTEMP(1),146,EOR,IAMT) C C CHECK FOR BREAK POINT C 200 IF (NOFRQ .EQ. 1) GO TO 201 IF (ID(4) .NE. IDTEMP(4)) GO TO 270 201 CONTINUE IF (EOF .EQ. 1) GO TO 270 IF (ITYPE .EQ. 1) NDATA = NDATA + 1 IDATA = IDATA + 1 NENTRY = ENTRYS(ITYPE) C C CHECK TO SEE IF THERE IS ENOUGH ROOM IN EACH OF THE INCORE C ENTRY BLOCKS FOR ANOTHER VECTOR C IF NOT DO SCRATCH FILE OPERATIONS C IF (V IN BK .LT. V PER BK) GO TO 220 C C NOT ENOUGH ROOM THUS DUMP CORE ENTRY BLOCKS ONTO SCRATCH FILES C IF (IERROR .EQ. 1) GO TO 451 NPOINT = 1 NFILE = NSCRAT DO 210 I = 1,NENTRY NFILE = NFILE + 1 IF (NFILE .GT. NSCRAT) NFILE = 1 CALL WRITE (SCRTCH(NFILE),Z(NPOINT),W PER BK,EOR) NPOINT = NPOINT + W PER BK 210 CONTINUE RECS = RECS + NENTRY C C IN CORE ENTRY BLOCKS ARE NOW EMPTY C V IN BK = 0 C C DISTRIBUTE DATA TO INCORE ENTRY BLOCKS C 220 NPOINT = V IN BK*NWDS + 1 DO 230 I = 1,NENTRY IEOR = I/NENTRY CALL READ (*560,*650,INFILE,Z(NPOINT),NWDS,IEOR,IAMT) Z(NPOINT) = IDTEMP(5) NPOINT = NPOINT + W PER BK 230 CONTINUE V IN BK = V IN BK + 1 C IF (NTYPES .EQ. 1) GO TO 190 IF (ITYPE .EQ. 1) GO TO 240 IF (IDATA .EQ. NDATA) GO TO 270 C C NOW POSITION AHEAD TO READ NEXT ID FOR TYPE(ITYPE) C 240 AHEAD = 2*NTYPES - 2 DO 250 I = 1,AHEAD CALL FWDREC (*570,INFILE) 250 CONTINUE GO TO 190 C C ONE DATA TYPE IN THIS GROUP IS COMPLETE C C OUTPUT IS IN CORE, AND ON SCRATCH FILES IF RECS IS NOT 0 C C NOW DUMP SCRATCHES AND (OR JUST) CORE ONTO FINAL OUTPUT TAPE C C ID WILL BE WRITTEN BEFORE EACH ENTRY INSERTING INTO IT THE NEW C HEADER VALUE REPLACING FREQUENCY OR TIME ETC C 260 EOF = 1 270 IF (RECS .EQ. 0) GO TO 290 C LAYERS = RECS/NENTRY C C CLOSE SCRATCH FILES AND OPEN AS INPUT FILES C DO 280 I = 1,NSCRAT CALL CLOSE (SCRTCH(I),RWD) IBUFF = BUFF(I) CALL OPEN (*500,SCRTCH(I),Z(IBUFF),INPRWD) 280 CONTINUE C C COMPUTE OVERLAPS PER LAYER C OVRLAP = (NENTRY-1)/NSCRAT C C COMPUTE HOW MANY TAPES HAVE ALL THE OVERLAPS C FULL = NENTRY - OVRLAP*NSCRAT C C C WRITE FINAL FILE THEN C 290 NFILE = 0 ID(2) = ID(2) + 2000 DO 400 I = 1,NENTRY NFILE = NFILE + 1 IF (NFILE .GT. NSCRAT) NFILE = 1 C NPOINT = IHEAD + I ID(5) = Z(NPOINT) CALL WRITE (OUFILE,ID(1),146,EOR) C C ANYTHING ON SCRATCH FILES IS NOW WRITTEN C IF (RECS .EQ. 0) GO TO 390 C DO 380 J = 1,LAYERS C C FORWARD REC IF NECESSARY C IF (J .GT. 1) GO TO 320 C C AHEAD TO FIRST PART IF NECESSARY C IF (LAYERS .EQ. 1) GO TO 350 AHEAD = (I-1)/NSCRAT C IF (AHEAD) 300,350,300 300 DO 310 K = 1,AHEAD CALL FWDREC (*590,SCRTCH(NFILE)) 310 CONTINUE GO TO 350 C 320 RECPT = OVRLAP IF (NFILE .GT. FULL) RECPT = RECPT - 1 IF (RECPT) 350,350,330 330 DO 340 K = 1,RECPT CALL FWDREC (*600,SCRTCH(NFILE)) 340 CONTINUE C C COPY RECORD FROM SCRTCH TO OUTFILE C 350 DO 370 K = 1,VPERBK IEOR = K/V PER BK CALL READ (*610,*660,SCRTCH(NFILE),VECTOR(1),NWDS,IEOR,IAMT) CALL WRITE (OUFILE,VECTOR(1),NWDS,NOEOR) 370 CONTINUE 380 CONTINUE IF (LAYERS .GT. 1) CALL REWIND (SCRTCH(NFILE)) C C COPY INCORE VECTORS TO OUTFILE C 390 WORDS = V IN BK*NWDS NPOINT = W PER BK*I - W PER BK + 1 CALL WRITE (OUFILE,Z(NPOINT),WORDS,EOR) 400 CONTINUE IF (RECS .EQ. 0) GO TO 420 C C CLOSE SCRTCH FILES AND OPEN AS OUTPUT FILES C DO 410 I = 1,NSCRAT CALL CLOSE (SCRTCH(I),RWD) IBUFF = BUFF(I) CALL OPEN (*490,SCRTCH(I),Z(IBUFF),OUTRWD) 410 CONTINUE C 420 IF (ITYPE .EQ. NTYPES) GO TO 440 C ITYPE = ITYPE + 1 CALL REWIND (INFILE) AHEAD = GROUP + ITYPE*2 - 2 DO 430 I = 1,AHEAD CALL FWDREC (*580,INFILE) 430 CONTINUE ASSIGN 150 TO IRETRN EOF = 0 GO TO 60 C C THIS GROUP IS ABSOLUTELY COMPLETE AND WE ARE AT BREAK POINT C 440 IF (EOF .EQ. 1) GO TO 80 NRECS = NRECS + 2*NDATA*NTYPES IF (NTYPES .GT. 1) GO TO 50 441 CONTINUE DO 450 I = 1,146 450 ID(I) = IDTEMP(I) GO TO 70 C C C ERROR CONDITIONS FOR THIS DATA BLOCK C C FORMAT OF INPUT DATA BLOCK MAY BE INCORRECT (N=TRACEBACK CODE) C 490 N = 23 GO TO 452 500 N = 3 GO TO 452 520 N = 4 GO TO 452 530 N = 5 GO TO 452 540 N = 6 GO TO 452 550 N = 7 GO TO 452 560 N = 8 GO TO 452 570 N = 9 GO TO 452 580 N = 10 GO TO 452 590 N = 11 GO TO 452 600 N = 12 GO TO 452 610 N = 13 GO TO 452 620 N = 14 GO TO 452 630 N = 15 GO TO 452 640 N = 16 GO TO 452 650 N = 17 GO TO 452 660 N = 18 GO TO 452 452 OFPFIL(FILE) = N WRITE (L,453) UWM,FILE 453 FORMAT (A25,' 982, FORMAT OF SDR3 INPUT DATA BLOCK ',I3, 1 ' DOES NOT PERMIT SUCCESSFUL SORT-2 PROCESSING.') GO TO 80 472 WRITE (L,475) UFM,NTYPES 475 FORMAT (A23,' 3129, SDR3 CAN ONLY PROCESS 30 ELEMENT TYPES, ', 1 'PROBLEM HAS',I5) CALL MESAGE (-61,0,0) C C CORRESPONDING OUTPUT FILE IS PURGED. C 480 OFPFIL(FILE) = 2 WRITE (L,481) UWM,FILE 481 FORMAT (A25,' 984, SDR3 FINDS OUTPUT DATA-BLOCK',I4,' PURGED.') GO TO 80 C C ATTEMPT TO USE SCRATCH FILES 1 OR MORE OF WHICH ARE PURGED. C 451 OFPFIL(FILE) = 1 GO TO 80 C C INSUFFICIENT CORE C 670 N = 19 GO TO 701 680 N = 20 GO TO 701 690 N = 21 GO TO 701 701 WRITE (L,702) UWM,FILE 702 FORMAT (A25,' 983, SDR3 HAS INSUFFICIENT CORE TO PERFORM SORT-2', 1 ' ON INPUT DATA BLOCK',I4, /5X, 2 'OR DATA-BLOCK IS NOT IN CORRECT FORMAT.') OFPFIL(FILE) = N GO TO 80 C 460 CONTINUE C C CLOSE SCRATCH FILES C DO 470 I = 1,NSCRAT CALL CLOSE (SCRTCH(I),RWD) 470 CONTINUE C GO TO 801 700 DO 704 I = 1,5 704 OFPFIL(I) = 22 WRITE (L,703) UWM 703 FORMAT (A25,' 986, INSUFFICIENT CORE FOR SDR3.') 801 RETURN END ================================================ FILE: mis/sdrchk.f ================================================ SUBROUTINE SDRCHK (FORVEC,CFRVEC,LVEC,KONT) C THIS ROUTINE IS USED BY ELEMENT SUBROUTINES THAT DETERMINE IF THE C REQUESTED STRESS/FORCE PRECISION IS AVAILABLE... C----- REAL FORVEC(LVEC) ,CFRVEC(LVEC) COMMON /SDR2X9/ NCHK(5),TWOTOP,FNCHK C DO 20 I = 1,LVEC IF (CFRVEC(I).EQ.0.0) R = 1.0E0 IF (CFRVEC(I).NE.0.0) R = ABS (FORVEC(I)/CFRVEC(I) ) IF (R.GT.1.001) R = 1.0E0 IF (R.EQ.0.0) RJ = TWOTOP IF (R.NE.0.0) RJ = TWOTOP + ALOG10 (R) IF (RJ.LT.0.0) RJ = 0.0 CFRVEC(I) = RJ IF (RJ.LT.FNCHK) KONT = KONT + 1 20 CONTINUE C----- RETURN END ================================================ FILE: mis/sdretd.f ================================================ SUBROUTINE SDRETD (ELID,TI,GRIDS) C C THIS ROUTINE (CALLED BY -SDR2E-) READS ELEMENT TEMPERATURE C DATA FROM A PRE-POSITIONED RECORD C C ELID = ID OF ELEMENT FOR WHICH DATA IS DESIRED C TI = BUFFER DATA IS TO BE RETURNED IN C GRIDS = 0 IF EL-TEMP FORMAT DATA IS TO BE RETURNED C = NO. OF GRID POINTS IF GRID POINT DATA IS TO BE RETURNED. C ELTYPE = ELEMENT TYPE TO WHICH -ELID- BELONGS C OLDEL = ELEMENT TYPE CURRENTLY BEING WORKED ON (INITIALLY 0) C OLDEID = ELEMENT ID FROM LAST CALL C EORFLG = .TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED IN RECORD C ENDID = .TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED WITHIN AN ELEMENT C TYPE. C BUFFLG = NOT USED C ITEMP = TEMPERATURE LOAD SET ID C IDEFT = NOT USED C IDEFM = NOT USED C RECORD = .TRUE. IF A RECORD OF DATA IS INITIALLY AVAILABLE C DEFALT = THE DEFALT TEMPERATURE VALUE OR -1 IF IT DOES NOT EXIST C AVRAGE = THE AVERAGE ELEMENT TEMPERATURE C LOGICAL EORFLG ,ENDID ,BUFFLG ,RECORD INTEGER TI(33) ,OLDEID ,GRIDS ,ELID ,ELTYPE , 1 OLDEL ,NAME(2) ,GPTT ,DEFALT CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ DUM ,IOUT COMMON /SDRETT/ ELTYPE ,OLDEL ,EORFLG ,ENDID ,BUFFLG , 1 ITEMP ,IDEFT ,IDEFM ,RECORD ,OLDEID COMMON /SDR2X2/ DUMMY(6) ,GPTT ,DUM20(20) COMMON /SDR2DE/ DUM2(2) ,DEFALT DATA NAME / 4HSDRE ,4HTD / ,MAXWDS / 33 / C IF (OLDEID .EQ. ELID) RETURN OLDEID = ELID IF (ITEMP .NE. 0) GO TO 20 DO 10 I = 1,MAXWDS 10 TI(I) = 0 RETURN C 20 IF (.NOT.RECORD .OR. EORFLG) GO TO 80 IF (ELTYPE .NE. OLDEL) GO TO 160 IF (ENDID) GO TO 80 C C HERE WHEN ELTYPE IS AT HAND AND END OF THIS TYPE DATA C HAS NOT YET BEEN REACHED. READ AN ELEMENT ID C 40 CALL READ (*300,*310,GPTT,ID,1,0,FLAG) IF (ID) 50,80,50 50 IF (IABS(ID) .EQ. ELID) IF (ID) 90,90,70 IF (ID) 40,40,60 60 CALL READ (*300,*310,GPTT,TI,NWORDS,0,FLAG) GO TO 40 C C MATCH ON ELEMNT ID MADE AND IT WAS WITH DATA C 70 CALL READ (*300,*310,GPTT,TI,NWORDS,0,FLAG) C C IF QUAD4 (ELTYPE 64) OR TRIA3 (ELTYPE 83) ELEMENT, SET FLAG FOR C SQUD42 OR STRI32 C IF (ELTYPE.NE.64 .OR. ELTYPE.NE.83) RETURN TI(7) = 13 IF (TI(6) .NE. 1) TI(7) = 2 RETURN C C NO MORE DATA FOR THIS ELEMENT TYPE C 80 ENDID = .TRUE. C C NO DATA FOR ELEMENT ID DESIRED, THUS USE DEFALT C 90 IF (DEFALT .EQ. -1) GO TO 140 IF (GRIDS .GT. 0) GO TO 110 DO 100 I = 2,MAXWDS 100 TI(I) = 0 TI(1) = DEFALT IF (ELTYPE .EQ. 34) TI(2) = DEFALT RETURN C 110 IF (ELTYPE.NE.64 .OR. ELTYPE.NE.83) GO TO 120 C QUAD4 TRIA3 TI(4) = 0 TI(5) = 0 TI(6) = 0 TI(7) = 0 120 DO 130 I = 1,GRIDS 130 TI(I) = DEFALT TI(GRIDS+1) = DEFALT RETURN C C NO TEMP DATA OR DEFALT C 140 WRITE (IOUT,150) UFM,ELID,ITEMP 150 FORMAT (A23,' 4016, THERE IS NO TEMPERATURE DATA FOR ELEMENT',I9, 1 ' IN SET',I9) CALL MESAGE (-61,0,0) C C LOOK FOR MATCH ON ELTYPE (FIRST SKIP ANY UNUSED ELEMENT DATA) C 160 IF (ENDID) GO TO 190 170 CALL READ (*300,*310,GPTT,ID,1,0,FLAG) IF (ID) 170,190,180 180 CALL READ (*300,*310,GPTT,TI,NWORDS,0,FLAG) GO TO 170 C C READ ELTYPE AND COUNT C 190 CALL READ (*300,*200,GPTT,TI,2,0,FLAG) OLDEL = TI(1) NWORDS = TI(2) ENDID = .FALSE. GO TO 40 C END OF RECORD HIT C 200 EORFLG = .TRUE. GO TO 80 C 300 CALL MESAGE (-2,GPTT,NAME) 310 CALL MESAGE (-3,GPTT,NAME) RETURN END ================================================ FILE: mis/sdrht.f ================================================ SUBROUTINE SDRHT C C SPECIAL FLUX-DATA-RECOVERY MODULE FOR HBDY ELEMENTS IN HEAT C TRANSFER. C C DMAP CALLING SEQUENCE. C C SDRHT SIL,USET,UGV,OEF1,SLT,EST,DIT,QGE,DLT,/OEF1X/V,N,TABS $ C LOGICAL HAVIDS,CARDIN,LHBDY,TRANST,FOUND,MCH521 INTEGER TABLST(13),Z,BUF(50),SYSBUF,RD,RDREW,WRT,WRTREW, 1 CLSREW,CLS,SUBR(2),NAME(2),EOR,IDPOS(3),OUTPT, 2 SLTYPS,LDWORD(16),UG,OEF1,SLT,EST,DIT,QGE,DLT, 3 OEF1X,BUF1,BUF2,BUF3,CORE,PASS,HBDYTP,MCBUGV(7), 4 FILE,ELTYPE,ESTWDS,ECPT(100),SLTAT,SLTREC,MCB(7), 5 EOL,GSIZE REAL RZ(1),RBUF(50),GRIDS(6) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /CONDAS/ CONSTS(5) COMMON /SYSTEM/ KSYSTM(65) COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS COMMON /ZNTPKX/ AI(4),IROW,EOL COMMON /ZZZZZZ/ Z(1) COMMON /MACHIN/ MACH COMMON /BLANK / TABS EQUIVALENCE (KSYSTM(1),SYSBUF),(KSYSTM(2),OUTPT), 1 (CONSTS(2),TWOPI ),(CONSTS(3),RADDEG), 2 (Z(1),RZ(1)), (BUF(1),RBUF(1)) DATA TABLST / 4, 1105,11,1, 1205,12,2, 1305,13,3, 1405,14,4 / DATA LENTRY / 14 /, EOR,NOEOR / 1, 0 /, SUBR/ 4HSDRH,2HT / DATA IDPOS / 2,1,5/, HBDYTP/ 52 /, SLTYPS / 16 / DATA LDWORD / 6,6,4,4,6,6,2,5,5,6,6,7,2,2,5,5 / DATA UG,OEF1, SLT,EST,DIT,QGE,DLT,OEF1X / 1 103,104, 105,106,107,108,109, 201 / DATA GRIDS / 1.0, 2.0, 2.0, 3.0, 4.0, 2.0 / C C SET UP CORE AND BUFFERS C BUF1 = KORSZ(Z) - SYSBUF - 2 BUF2 = BUF1 - SYSBUF - 2 BUF3 = BUF2 - SYSBUF - 2 CORE = BUF3 - 1 IDREC = 1 IELTAB = 1 PASS = 0 HAVIDS = .FALSE. CARDIN = .FALSE. MCH521 = MACH.EQ.5 .OR. MACH.EQ.21 C C OPEN INPUT FORCES -OEF1- AND OUTPUT FORCES -OEF1X-. C CALL OPEN (*1190,OEF1,Z(BUF1),RDREW) CALL OPEN (*1200,OEF1X,Z(BUF2),WRTREW) CALL FNAME (OEF1X,NAME) CALL WRITE (OEF1X,NAME,2,EOR) CALL FWDREC (*1220,OEF1) C C COPY RECORD PAIRS OF DATA FROM OEF1 TO OEF1X UNTIL HBDY DATA IS C DETECTED. C 10 LCORE = CORE - IDREC IF (LCORE .LT. 300) CALL MESAGE (-8,0,SUBR) FILE = OEF1 CALL READ (*1180,*30,OEF1,Z(IDREC),LCORE,NOEOR,IFLAG) WRITE (OUTPT,20) SWM 20 FORMAT (A27,' 3063, INPUT FORCES DATA BLOCK HAS INCORRECT DATA.') GO TO 1220 C C MODIFY ID-RECORD IF THIS IS FOR HBDY ELEMENTS. C 30 IF (Z(IDREC+2) .NE. HBDYTP) GO TO 40 LHBDY = .TRUE. GO TO 50 40 LHBDY = .FALSE. GO TO 90 C C SET CONSTANTS FROM OEF1 ID RECORD. C 50 IF (Z(IDREC)/10 .EQ. 6) GO TO 70 LOADID = Z(IDREC+7) TRANST = .FALSE. GO TO 80 70 LOADID = Z(IDREC+7) TIME = RZ(IDREC+4) TRANST = .TRUE. 80 LWORDS = Z(IDREC+9) Z(IDREC+9) = 5 C///// C CALL BUG (4HTRAN ,90,TRANST,1) C///// 90 CALL WRITE (OEF1X,Z(IDREC),IFLAG,EOR) IF (LHBDY) GO TO 120 C C NOT AN HBDY ELEMENT TYPE THUS COPY DATA ACROSS. C 100 CALL READ (*1260,*110,OEF1,Z(IDREC),LCORE,NOEOR,IFLAG) CALL WRITE (OEF1X,Z(IDREC),LCORE,NOEOR) GO TO 100 110 CALL WRITE (OEF1X,Z(IDREC),IFLAG,EOR) GO TO 10 C C HBDY ELEMENT DATA ENCOUNTERED. C 120 PASS = PASS + 1 C C ON FIRST PASS ELEMENT-DATA-TABLE IS FORMED. C C EACH ENTRY WILL CONTAIN, C C 1) ELEMENT-ID (HBDY). C 2) FLUX-RADIATION TERM FOR THIS ELEMENT. C 3) FLUX-X FROM OEF1 DATA. C 4) APPLIED LOAD (USING SLT DATA). C 5) HBDY ELEMENT TYPE (1 TO 6). C 6) HBDY AREA FACTOR. C 7) ALPHA VALUE. C 8) V1(1) * C 9) V1(2) * VECTOR-V1 C 10) V1(3) * C 11) V2(1) * C 12) V2(2) * VECTOR-V2 C 13) V2(3) * C 14) OUTPUT ID*10 + DEVICE CODE (FROM OEF1). C C ON PASSES OTHER THAN THE FIRST ONLY THE FLUX-X VALUE IS EXTRACTED C FROM OEF1-HBDY-ENTRIES. C JELTAB = IELTAB - 1 C C INPUT = ID*10+CODE, NAME1,NAME2,GRD-X,GRD-Y,GRD-Z,FLUX-X,FLUX-Y, C FLUX-Z (TOTAL OF 9 WORDS) C 130 CALL READ (*1260,*150,OEF1,BUF,LWORDS,NOEOR,IFLAG) IF (PASS .GT. 1) GO TO 140 Z(JELTAB+1) = BUF(1)/10 C C STORE (FLUX-X) AND (OUTPUT ID*10 + DEVICE CODE). C 140 Z(JELTAB+ 3) = BUF(7) RZ(JELTAB+2) = 0.0 Z(JELTAB+14) = BUF(1) JELTAB = JELTAB + LENTRY IF (JELTAB .GT. CORE) CALL MESAGE (-8,0,SUBR) GO TO 130 C C END OF DATA. C 150 IF (PASS .GT. 1) GO TO 160 NELTAB = JELTAB NUMBER = (NELTAB - IELTAB + 1)/LENTRY C C OPEN UG FILE FOR INPUT OF UG VECTORS. C CALL OPEN (*1220,UG,Z(BUF3),RDREW) CALL FWDREC (*1220,UG) MCBUGV(1) = UG CALL RDTRL (MCBUGV) GSIZE = MCBUGV(3) GO TO 180 160 IF (JELTAB .EQ. NELTAB) GO TO 180 WRITE (OUTPT,170) SWM,JELTAB,NELTAB 170 FORMAT (A27,' 3064, INCONSISTANT HBDY DATA RECORDS. ',2I20) GO TO 1220 C C ALL DATA FROM OEF1 IS AT HAND NOW. C FILES ARE CLOSED WITHOUT REWIND. C 180 CALL CLOSE (OEF1,CLS) CALL CLOSE (OEF1X,CLS) C C ALLOCATE UG VECTOR SPACE ON FIRST PASS. C IF (PASS .NE. 1) GO TO 190 IUG = NELTAB + 1 NUG = NELTAB + GSIZE IUGZ = IUG - 1 IF (NUG + 5 .GT. CORE) CALL MESAGE (-8,0,SUBR) C C BRING NEXT DISPLACEMENT VECTOR INTO CORE. C 190 DO 200 I = IUG,NUG RZ(I) = TABS 200 CONTINUE C CALL INTPK (*220,UG,0,1,0) 210 CALL ZNTPKI KK = IUGZ + IROW RZ(KK) = RZ(KK) + AI(1) IF (EOL) 210,210,220 C C RAISE VECTOR RESULT TO 4TH POWER C 220 DO 230 I = IUG,NUG RZ(I) = RZ(I)**4 230 CONTINUE C C IF TRANSIENT PROBLEM SKIP ACCELERATION AND VELOCITY VECTORS C IF (.NOT. TRANST) GO TO 250 DO 240 I = 1,2 CALL FWDREC (*250,UG) 240 CONTINUE 250 CONTINUE C///// C CALL BUG (4HUG4 ,200,Z(IUG),NUG-IUG+1) C///// C C IF NONLINEAR PROBLEM, COMPUTE FLUX RADIATION TERMS. C C T 4 C (FLUX-RADIATION ) = (Q )(U +TABS) C EL-SUBSET G,EL-SUBSET G C FILE = QGE CALL OPEN (*261,QGE,Z(BUF1),RDREW) IF (PASS .EQ. 1) GO TO 260 CALL FWDREC (*1260,QGE) GO TO 280 261 IQGID = NUG + 1 NQGID = NUG IDREC = NQGID GO TO 311 260 CALL READ (*1260,*1270,QGE,BUF,-2,NOEOR,IFLAG) C C ON FIRST PASS PICK UP ELEMENT ID LIST. C IQGID = NUG + 1 CALL READ (*1260,*270,QGE,Z(IQGID),CORE-IQGID,NOEOR,IFLAG) CALL MESAGE (-7,0,SUBR) 270 NQGID = NUG + IFLAG IDREC = NQGID + 1 C///// C CALL BUG (4HQGID,410,Z(IQGID),NQGID-IQGID+1) C///// C C EACH FLUX-RADIATION TERM IN THE ELEMENT TABLE IS CREATED BY C FORMING THE DOT-PRODUCT OF THE COLUMN OF -QGE- HAVING THE C SAME ELEMENT-ID WITH THE -UG- VECTOR IN CORE. C 280 DO 310 I = IQGID,NQGID,1 CALL INTPK (*310,QGE,0,1,0) C C FIND OUT IF ID OF THIS VECTOR IS IN ELEMENT TABLE. C KID = Z(I) CALL BISLOC (*300,KID,Z(IELTAB),LENTRY,NUMBER,JPOINT) JWORD = IELTAB + JPOINT Z(JWORD) = 0 C C FORM DOT PRODUCT C 290 CALL ZNTPKI K = IUGZ + IROW RZ(JWORD) = RZ(JWORD) - AI(1)*RZ(K) IF (EOL) 290,290,310 C C ID OF THIS COLUMN NOT IN ELEMENT TABLE C 300 CALL ZNTPKI IF (EOL) 300,300,310 310 CONTINUE C///// C CALL BUG (4HELTB ,440,Z(IELTAB),NELTAB-IELTAB+1) C///// CALL CLOSE (QGE,CLSREW) C C ON FIRST PASS, EST IS PASSED AND HBDY ELEMENTS CALLED. C 311 CONTINUE IF (PASS .GT. 1) GO TO 380 FILE = EST CALL GOPEN (EST,Z(BUF1),RDREW) NEXT = IELTAB C C READ THE ELEMENT TYPE C 320 CALL READ (*350,*1270,EST,ELTYPE,1,NOEOR,IFLAG) IF (ELTYPE .EQ. HBDYTP) GO TO 330 CALL FWDREC (*1260,EST) GO TO 320 C C HBDY ELEMENT-SUMMARY-TABLE DATA FOUND. C 330 ESTWDS = 53 340 CALL READ (*1260,*1270,EST,ECPT,ESTWDS,NOEOR,IFLAG) C C CHECK TO SEE IF THIS ELEMENT IS IN OUTPUT SET. C IF (Z(NEXT) - ECPT(1)) 350,370,340 350 WRITE (OUTPT,360) SWM,Z(NEXT) 360 FORMAT (A27,' 3065, THERE IS NO EST DATA FOR HBDY ELEMENT ID =', 1 I10) GO TO 1220 C C THIS ELEMENT IS IN TABLE. C 370 CALL HBDY (ECPT,ECPT,2,RBUF,BUF) C C PLANT HBDY OUTPUTS INTO TABLE. C Z(NEXT+ 4) = ECPT(2) Z(NEXT+ 5) = BUF(2) Z(NEXT+ 6) = ECPT(17) Z(NEXT+ 7) = BUF(11) Z(NEXT+ 8) = BUF(12) Z(NEXT+ 9) = BUF(13) Z(NEXT+10) = BUF(14) Z(NEXT+11) = BUF(15) Z(NEXT+12) = BUF(16) NEXT = NEXT + LENTRY IF (NEXT .LT. NELTAB) GO TO 340 CALL CLOSE (EST,CLSREW) C C LOAD SET PROCESSING IF LOAD-SET-ID IS NON-ZERO. C 380 IF (LOADID) 944,944,390 C C OPEN SLT FOR LOAD DATA. C C 390 FILE = SLT CALL OPEN (*1250,SLT,Z(BUF1),RDREW) IF (HAVIDS) CALL FWDREC (*1260,SLT) IF (HAVIDS) GO TO 810 HAVIDS = .TRUE. ILDID = NQGID + 1 NLDID = ILDID - 1 C C IDS OF LOAD SETS NOT IN CORE THUS BRING IN IDS FROM HEADER RECORD. C IMAST = ILDID NSETS = 0 NLDSET = 3 CALL READ (*1260,*1270,SLT,BUF,-2,NOEOR,IFLAG) 400 IF (NLDID+5 .GT. CORE) CALL MESAGE (-8,0,SUBR) CALL READ (*1260,*410,SLT,Z(NLDID+1),1,NOEOR,IFLAG) NSETS = NSETS + 1 Z(NLDID +2) = 1 Z(NLDID +3) = Z(NLDID+1) RZ(NLDID+4) = 1.0 Z(NLDID +5) = NSETS NLDID = NLDID + 5 GO TO 400 C C IF TRANSIENT PROBLEM THEN DLT OPERATIONS BEGIN C 410 IF (.NOT.TRANST) GO TO 800 FILE = DLT CALL OPEN (*1250,DLT,Z(BUF2),RDREW) CALL READ (*1260,*1270,DLT,BUF,3,NOEOR,IFLAG) M = BUF(3) FOUND = .FALSE. IF (M .LE. 0) GO TO 430 DO 420 I = 1,M CALL READ (*1260,*1270,DLT,BUF,1,NOEOR,IFLAG) IF (BUF(1) .EQ. LOADID) FOUND = .TRUE. 420 CONTINUE C C NOW READ RLOAD1, RLOAD2, TLOAD1, AND TLOAD2 IDS. C 430 IRTIDS = NLDID + 1 CALL READ (*1260,*440,DLT,Z(IRTIDS),CORE-IRTIDS,NOEOR,IFLAG) CALL MESAGE (-7,0,SUBR) GO TO 1220 440 NRTIDS = NLDID + IFLAG C C IF LOADID WAS FOUND AMONG THE DLOAD IDS, SEARCH IS NOW MADE IN C RECORD 1 OF THE DLT FOR THAT ID, AND ITS SUB-IDS. C JJ1 = ILDID JJ2 = NLDID ILDID = NRTIDS + 1 NLDID = NRTIDS + 2 Z(ILDID ) = LOADID Z(ILDID+1) = 0 IF (.NOT. FOUND) GO TO 520 C C READ A MASTER DLOAD SET-ID. C 450 CALL READ (*1260,*1270,DLT,BUF,2,NOEOR,IFLAG) IF (BUF(1) .EQ. LOADID) GO TO 470 C C SKIP SUB-ID DATA OF THIS MASTER C 460 CALL READ (*1260,*1270,DLT,BUF,2,NOEOR,IFLAG) IF (BUF(2)) 450,460,460 C C MASTER-ID FOUND. BUILD LOAD-SET-ID TABLE. C 470 FACTOR = RBUF(2) 472 IF (NLDID+11 .LE. CORE) GO TO 480 CALL MESAGE (8,0,SUBR) GO TO 1220 480 CALL READ (*1260,*1270,DLT,BUF,2,NOEOR,IFLAG) IF (BUF(2)) 540,540,490 490 Z(ILDID +1) = Z(ILDID+1) + 1 Z(NLDID +1) = BUF(2) RZ(NLDID+2) = 0.0 Z(NLDID +3) = 0 RZ(NLDID+4) = RBUF(1)*FACTOR Z(NLDID +5) = 0 NLDID = NLDID + 11 GO TO 472 C C LOADID NOT AMONG DLOADS FOR THIS TRANSIENT PROBLEM C 520 Z(ILDID+1) = 1 IF (NLDID+13 .LE. CORE) GO TO 530 CALL MESAGE (8,0,SUBR) GO TO 1220 530 Z(NLDID +1) = Z(ILDID) RZ(NLDID+2) = 0.0 Z(NLDID +3) = 0 RZ(NLDID+4) = 1.0 Z(NLDID +5) = 0 NLDID = NLDID + 11 C C IF THERE ARE ANY DLOAD CARDS AT ALL THEN BALANCE OF (OR ALL OF) C RECORD 1 IS NOW SKIPPED. C 540 IF (M .GT. 0) CALL FWDREC (*1260,DLT) C C NOW PICKING UP DATA NEEDED OF DYNAMIC LOAD SET RECORDS. C K1 = ILDID + 2 K2 = NLDID DO 580 I = IRTIDS,NRTIDS C C READ THE LOAD TYPE C CALL READ (*1260,*1270,DLT,BUF,2,NOEOR,IFLAG) IF (BUF(1).NE.3 .AND. BUF(1).NE.4) GO TO 570 C C CHECK AND SEE IF THIS TLOAD ID IS AMONG THE SUB-IDS C DO 550 J = K1,K2,11 IF (Z(J) .EQ. Z(I)) GO TO 560 550 CONTINUE GO TO 570 C C YES THIS RECORD IS NEEDED. THUS PUT ITS DATA IN TABLE. C 560 Z(J+4) = BUF(1) C C SLT ID INTO TABLE C Z(J) = -BUF(2) C C SET SLT RECORD NUMBER C K = 0 DO 565 L = JJ1,JJ2,5 K = K + 1 IF (Z(L) .EQ. BUF(2)) GO TO 566 565 CONTINUE K = 0 566 Z(J+2) = K CALL READ (*1260,*1270,DLT,Z(J+5),6,EOR,IFLAG) IF (BUF(1) .EQ. 3) Z(J+6) = 0 GO TO 580 570 CALL FWDREC (*1260,DLT) 580 CONTINUE C C CHECK IS NOW MADE TO INSURE ALL SUB-IDS RECEIVED DLT DATA. C C C SET SLT IDS POSITIVE C DO 581 I = K1,K2,11 Z(I) = IABS(Z(I)) 581 CONTINUE DO 610 I = K1,K2,11 IF (Z(I+4)) 590,590,610 C C ERROR C 590 WRITE (OUTPT,600) UWM,Z(I) 600 FORMAT (A25,' 3066, THERE IS NO TLOAD1 OR TLOAD2 DATA FOR LOAD-', 1 'ID =',I9) 610 CONTINUE C CALL CLOSE (DLT,CLSREW) NLDSET = 11 C C SORT SUB-ID TABLE ON SLT RECORD NUMBERS. C CALL SORT (0,0,11,3,Z(K1),K2-K1+1) C///// C CALL BUG (4HTABL,640,Z(K1),K2-K1+1) C C CONSTRUCTION OF TABLE-ID LIST. C ITABID = NLDID + 1 NTABID = NLDID + 1 C C FIRST GET TABLE ID-S PRESENT IN THE SUB-ID TABLE. C DO 680 I = K1,K2,11 C C CHECK FOR OTHER THAN TLOAD1 TYPE CARD C IF (Z(I+4) .NE. 3) GO TO 680 C C CHECK FOR ID IN TABLE. C IF (NTABID .LE. ITABID) GO TO 660 DO 650 J = ITABID,NTABID IF (Z(I+5) .EQ. Z(J)) GO TO 680 650 CONTINUE 660 NTABID = NTABID + 1 IF (NTABID .GT. CORE) CALL MESAGE (-8,0,SUBR) Z(NTABID) = Z(I+5) 680 CONTINUE C C NOW PASS SLT AND GET ANY TABLE IDS PRESENT IN QVECT PORTION OF C RECORDS WE WILL BE USING. (SLT IS CURRENTLY POSITIONED AT FIRST C RECORD.) C SLTAT = 1 FILE = SLT DO 780 I = K1,K2,11 NGO = Z(I+2) - SLTAT IF (NGO) 780,710,690 690 DO 700 J = 1,NGO CALL FWDREC (*1260,SLT) 700 CONTINUE SLTAT = SLTAT + NGO C C LOOK FOR QVECT CARDS. C 710 CALL READ (*1260,*770,SLT,BUF,2,NOEOR,IFLAG) ITYPE = BUF(1) NCARDS = BUF(2) NWORDS = LDWORD(ITYPE) IF (ITYPE .NE. 16) GO TO 760 C C QVECT CARDS FOUND C IF (NCARDS .LE. 0) GO TO 710 DO 750 J = 1,NCARDS CALL READ (*1260,*1270,SLT,BUF,NWORDS,NOEOR,IFLAG) DO 740 K = 2,4 L = NUMTYP(BUF(K)) IF (MCH521 .AND. BUF(K).GT.16000 .AND. BUF(K).LE.99999999) L= 1 IF (BUF(K).LE.0 .OR. L.NE.1) GO TO 740 C C TABLE ID FOUND. ADD TO LIST IF NOT YET IN. C IF (NTABID .LE. ITABID) GO TO 730 DO 720 L = ITABID,NTABID IF (BUF(K) .EQ. Z(L)) GO TO 740 720 CONTINUE 730 NTABID = NTABID + 1 IF (NTABID .GT. CORE) CALL MESAGE (-8,0,SUBR) Z(NTABID) = BUF(K) 740 CONTINUE 750 CONTINUE GO TO 710 760 IF (ITYPE .GT. 16) GO TO 1170 NWDCRD = -NWORDS*NCARDS CALL READ (*1260,*1270,SLT,BUF,NWDCRD,NOEOR,IFLAG) GO TO 710 770 SLTAT = SLTAT + 1 780 CONTINUE NUMTAB = NTABID - ITABID Z(ITABID)= NUMTAB NUMTAB = Z(ITABID) C C TABLE-ID LIST COMPLETE. NOW SORT IT AND PRIME TAB ROUTINE. C CALL REWIND (SLT) CALL FWDREC (*1260,SLT) C///// C CALL BUG (4HTBID,555,Z(ITABID),NTABID-ITABID+1) C///// IDIT = NTABID + 1 NDIT = IDIT LZ = CORE - IDIT IF (LZ .GT. 10) GO TO 790 CALL MESAGE (8,0,SUBR) GO TO 1220 790 CONTINUE IF (NUMTAB .EQ. 0) GO TO 792 CALL SORT (0,0,1,1,Z(ITABID+1),NUMTAB) CALL PRETAB(DIT,Z(IDIT),Z(IDIT),Z(BUF2),LZ,LUSED,Z(ITABID),TABLST) NDIT = IDIT + LUSED C///// C CALL BUG (4HDITS,557,Z(IDIT),NDIT-IDIT+1) C///// 792 CONTINUE IDREC = NDIT + 1 GO TO 810 C C DETERMINE IF -LOADID- IS IN LIST OF LOAD SET IDS. C 800 IDREC = NLDID + 1 C///// C CALL BUG (4HLD1 ,360,Z(ILDID),NLDID-ILDID+1) C///// 810 CONTINUE NMAST = NLDID J = ILDID 820 IF (J .LE. NLDID) GO TO 910 C C LOAD SET ID LIST EXHAUSTED. C BRING IN ANY LOAD CARDS IF NOT YET IN. C IF (CARDIN) GO TO 920 C C THE LOAD-SET-ID TABLE HAS THE FOLLOWING FORMAT. C C MASTER ID ****** Z(ILDID) C NUMBER OF SUB-IDS FOR THIS MASTER * C SUB-ID ** 3-WORDS *** * C SCALE FACTOR = F(T) * ONLY IF * * C SLT RECORD NUMBER ** STATICS * 11 WORDS * REPEATS FOR C CONSTANT SCALE FACTOR * REPEATS * EACH MASTER C TYPE OF TLOAD =(3 OR 4) * FOR EACH * ID PRESENT C TYPE3 TABLE ID (OR) TYPE4 T1 * SUB-ID * C 0 T2 * OF THIS * C 0 OMEGA * MASTER * C 0 PHI * ID * C 0 N * * C 0 ALPHA *** * C . * C . * C . * C ****** C ... ... C ... ... C ... ... Z(NLDID) C C CARDIN = .TRUE. C C FORWARD SLT TO LOAD CARD RECORD. C IF (NSETS) 850,850,830 830 DO 840 I = 1,NSETS CALL FWDREC (*1250,SLT) 840 CONTINUE C C READ AND ENTER MASTER ID INTO TABLE C 850 IF (NLDID+2 .GT. CORE) CALL MESAGE (-8,0,SUBR) CALL READ (*1260,*900,SLT,Z(NLDID+1),2,NOEOR,IFLAG) SCALE = RZ(NLDID+2) NLDID = NLDID + 2 JCOUNT = NLDID Z(JCOUNT) = 0 C C READ THE (SID, SCALE-FACTOR) PAIRS FOR THIS ID. C 860 IF (NLDID+3 .GT. CORE) CALL MESAGE (-8,0,SUBR) CALL READ (*1260,*1270,SLT,Z(NLDID+1),2,NOEOR,IFLAG) IF (Z(NLDID+1) .EQ. -1) GO TO 890 C C MULTIPLY SUBID SCALE FACTOR BY MASTER SCALE FACTOR. C RZ(NLDID+2) = RZ(NLDID+2)*SCALE C C DETERMIND SLT RECORD NUMBER OF THIS SUB ID. C KREC = 1 DO 870 I = IMAST,NMAST,NLDSET IF (Z(NLDID+1) .EQ. Z(I)) GO TO 880 KREC = KREC + 1 870 CONTINUE KREC = 0 880 Z(NLDID+3) = KREC NLDID = NLDID + 3 Z(JCOUNT) = Z(JCOUNT) + 1 GO TO 860 C C SORT ALL SUB-ID 3 WORD GROUPS ON SLT RECORD NUMBER. C 890 CALL SORT (0,0,3,3,Z(JCOUNT+1),NLDID-JCOUNT) GO TO 850 C C REPOSITION SLT TO BEGINNING OF FIRST SLT RECORD C 900 IDREC = NLDID + 1 C///// C CALL BUG (4HLDID,460,Z(ILDID),NLDID - ILDID+1) C///// CALL REWIND (SLT) CALL FWDREC (*1260,SLT) GO TO 820 C C CONTINUE SEARCH FOR LOADID C 910 IF (LOADID .EQ. Z(J)) GO TO 940 C C POSITION -J- TO NEXT LOAD-SET-ID IN TABLE C J = J + NLDSET*Z(J+1) + 2 GO TO 820 C C -LOADID- NOT FOUND ANYWHERE. C 920 WRITE (OUTPT,930) UWM,LOADID 930 FORMAT (A25,' 3067, LOAD SET ID =',I9,' IS NOT PRESENT.') GO TO 1220 C C MATCH ON MASTER ID HAS BEEN FOUND. C 940 NLOADS = Z(J+1) ILOAD = J + 2 NLOAD = ILOAD + NLDSET*NLOADS - 1 C C PROCESS ALL THE LOAD RECORDS FOR THIS MASTER-ID C SLTAT = 1 C///// C CALL BUG (4HLOAD ,500,Z(ILOAD),NLOAD-ILOAD+1) C///// C C INITIALIZE APPLIED LOAD TO 0.0 FOR ALL ELEMENTS IN TABLE C 944 CONTINUE DO 945 I = IELTAB,NELTAB,LENTRY RZ(I+3) = 0.0 945 CONTINUE IF (LOADID .LE. 0) GO TO 1140 DO 1130 I = ILOAD,NLOAD,NLDSET FACTOR = RZ(I+1) IF (.NOT.TRANST) GO TO 960 C C FACTOR HAS TO BE FOUND AS F(TIME) C IF (Z(I+4) .EQ. 4) GO TO 950 CALL TAB (Z(I+5),TIME,YVALUE) FACTOR = RZ(I+3)*YVALUE GO TO 960 950 TT = TIME - RZ(I+5) IF (TT .EQ. 0.0) GO TO 951 IF (TT.LE.0.0 .OR. TIME.GE.RZ(I+6)) GO TO 955 FACTOR = RZ(I+3)*EXP(RZ(I+10)*TT)*(TT**RZ(I+9))*COS(TWOPI* 1 RZ(I+7)*TT + RZ(I+8)/RADDEG) GO TO 960 951 IF (RZ(I+9) .NE. 0.0) GO TO 955 FACTOR = COS(TWOPI*RZ(I+7)) GO TO 960 955 FACTOR = 0.0 960 SLTREC = Z(I+2) IF (SLTREC.LE.0 .OR. FACTOR.EQ.0.0) GO TO 1130 C C POSITION SLT TO RECORD DESIRED. C 980 NGO = SLTREC - SLTAT IF (NGO) 990,1020,1000 C C NEED TO BACK UP ON SLT. C 990 CALL BCKREC (SLT) SLTAT = SLTAT - 1 GO TO 980 C C NEED TO GO FORWARD ON SLT C 1000 DO 1010 J = 1,NGO CALL FWDREC (*1260,SLT) 1010 CONTINUE SLTAT = SLTAT + NGO C C SLT IS NOW POSITIONED TO LOAD RECORD DESIRED. C C C GENERATE LOADS FOR THOSE ELEMENTS IN THE TABLE USING ONLY QBDY1, C QBDY2, AND QVECT CARDS. C 1020 CALL READ (*1260,*1130,SLT,BUF,2,NOEOR,IFLAG) ITYPE = BUF(1) IF (ITYPE .LE. SLTYPS) GO TO 1040 WRITE (OUTPT,1030) SWM,ITYPE 1030 FORMAT (A27,' 3068, UNRECOGNIZED CARD TYPE =',I9, 1 ' FOUND IN -SLT- DATA BLOCK.') GO TO 1220 1040 NCARDS = BUF(2) IF (NCARDS) 1020,1020,1050 1050 NWORDS = LDWORD(ITYPE) IF (ITYPE.GE.14 .AND. ITYPE.LE.16) GO TO 1060 NWDCRD = -NWORDS*NCARDS CALL READ (*1260,*1270,SLT,BUF,NWDCRD,NOEOR,IFLAG) GO TO 1020 1060 ITYPE = ITYPE - 13 JID = IDPOS(ITYPE) DO 1120 K = 1,NCARDS C C READ A QBDY1, QBDY2, OR QVECT ENTRY. C CALL READ (*1260,*1270,SLT,BUF,NWORDS,NOEOR,IFLAG) C C CHECK FOR ID IN THE TABLE (OTHERWISE SKIP). C CALL BISLOC (*1120,BUF(JID),Z(IELTAB),LENTRY,NUMBER,JPOINT) KK = IELTAB + JPOINT C C THIS ELEMENT IS IN TABLE, THUS COMPUTE AND SUM IN THE LOAD. C GO TO (1070,1080,1090), ITYPE 1070 RZ(KK+2) = RZ(KK+2) + RZ(KK+4)*RBUF(1)*FACTOR GO TO 1120 C 1080 KTYPE = Z(KK+3) RZ(KK+2) = RZ(KK+2) + FACTOR*RZ(KK+4)*(RBUF(2)+RBUF(3) + RBUF(4) + 1 RBUF(5))/GRIDS(KTYPE) GO TO 1120 C C C CALL TAB IF E1,E2,E3 OF QVECT DATA ARE TABLE ID-S IMPLYING C TIME DEPENDENCE C 1090 IF (.NOT.TRANST) GO TO 1099 DO 1094 KKK = 2,4 L = NUMTYP(BUF(KKK)) IF (MCH521 .AND. BUF(KKK).GT.16000 .AND. BUF(KKK).LE.99999999) 1 L = 1 IF (BUF(KKK).LE.0 .OR. L.NE.1) GO TO 1094 CALL TAB (BUF(KKK),TIME,YVALUE) RBUF(KKK) = YVALUE 1094 CONTINUE 1099 KTYPE = Z(KK+3) C = RBUF(2)*RZ(KK+6) + RBUF(3)*RZ(KK+7) + RBUF(4)*RZ(KK+8) IF (KTYPE .EQ. 6) GO TO 1110 IF (C) 1100,1100,1120 1100 RZ(KK+2) = RZ(KK+2) - C*RZ(KK+4)*RZ(KK+5)*RBUF(1)*FACTOR GO TO 1120 1110 RZ(KK+2) = RZ(KK+2) + FACTOR*RZ(KK+4)*RBUF(1)*RZ(KK+5)*SQRT(C*C + 1 (RBUF(2)*RZ(KK+9) + RBUF(3)*RZ(KK+10) + RBUF(4)*RZ(KK+11))**2) C 1120 CONTINUE C 1130 CONTINUE CALL CLOSE (SLT,CLSREW) C///// C CALL BUG (4HTELT,670,Z(IELTAB),NELTAB-IELTAB+1) C///// C C ELEMENT TABLE IS NOW COMPLETE FOR OUTPUT. C 1140 FILE = OEF1X CALL OPEN (*1250,OEF1X,Z(BUF1),WRT) DO 1160 I = IELTAB,NELTAB,LENTRY BUF( 1) = Z(I+13) RBUF(2) = RZ(I+3) RBUF(3) = RZ(I+2) RBUF(4) = RZ(I+1) RBUF(5) = RBUF(2) + RBUF(3) + RBUF(4) CALL WRITE (OEF1X,BUF(1),5,NOEOR) 1160 CONTINUE CALL WRITE (OEF1X,0,0,EOR) FILE = OEF1 CALL OPEN (*1250,OEF1,Z(BUF2),RD) GO TO 10 1170 WRITE (OUTPT,1030)ITYPE GO TO 1220 C C ALL PROCESSING COMPLETE. C 1180 MCB(1) = OEF1 CALL RDTRL (MCB) MCB(1) = OEF1X CALL WRTTRL (MCB) GO TO 1220 C C ERROR CONDITIONS. C 1190 RETURN C 1200 WRITE (OUTPT,1210) UWM 1210 FORMAT (A25,' 3069, OUTPUT DATA BLOCK FOR FORCES IS PURGED.') 1220 CALL CLOSE (OEF1,CLSREW) CALL CLOSE (OEF1X,CLSREW) CALL CLOSE (UG,CLSREW) CALL CLOSE (EST,CLSREW) CALL CLOSE (SLT,CLSREW) CALL CLOSE (DLT,CLSREW) GO TO 1190 1250 N = 1 GO TO 1280 1260 N = 2 GO TO 1280 1270 N = 3 1280 CALL MESAGE (N,FILE,SUBR) GO TO 1220 END ================================================ FILE: mis/sdumx1.f ================================================ SUBROUTINE SDUMX1 C C DELETE ANY OF THE FOLLOW ENTRY POINT IF A SUBROUTINE OF THE SAME C NAME ALREADY EXISTS C INTEGER II(9),KK(9) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ IBUF,NOUT DATA II / 9*0/, JJ /4HSDUM/, KK / 1 2H11,2H21,2H31,2H41,2H51,2H61,2H71,2H81,2H91 / C GO TO 30 C C ENTRY SDUM91 C ============ C J = 9 GO TO 10 C C ENTRY SDUM81 C ============ C J = 8 GO TO 10 C C ENTRY SDUM71 C ============ C J = 7 GO TO 10 C C ENTRY SDUM61 C ============ C J = 6 GO TO 10 C C ENTRY SDUM51 C ============ C J = 5 GO TO 10 C C ENTRY SDUM41 C ============ C J = 4 GO TO 10 C C ENTRY SDUM31 C ============ C J = 3 GO TO 10 C C ENTRY SDUM21 C ============ C J = 2 GO TO 10 C C ENTRY SDUM11 C ============ C J = 1 C GO TO 10 C 10 IF (II(J) .NE. 0) GO TO 30 II(J) = 1 WRITE (NOUT,20) UWM,JJ,KK(J) 20 FORMAT (A25,' 2182, SUBROUTINE ',2A4,' IS DUMMY. ONLY ONE OF ', 1 'THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK.') 30 RETURN END ================================================ FILE: mis/sdumx2.f ================================================ SUBROUTINE SDUMX2 C C DELETE ANY OF THE FOLLOW ENTRY POINT IF A SUBROUTINE OF THE SAME C NAME ALREADY EXISTS C INTEGER II(9),KK(9) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ IBUF,NOUT DATA II / 9*0/, JJ /4HSDUM/, KK / 1 2H12,2H22,2H32,2H42,2H52,2H62,2H72,2H82,2H92 / C GO TO 30 C C ENTRY SDUM92 C ============ C J = 9 GO TO 10 C C ENTRY SDUM82 C ============ C J = 8 GO TO 10 C C ENTRY SDUM72 C ============ C J = 7 GO TO 10 C C ENTRY SDUM62 C ============ C J = 6 GO TO 10 C C ENTRY SDUM52 C ============ C J = 5 GO TO 10 C C ENTRY SDUM42 C ============ C J = 4 GO TO 10 C C ENTRY SDUM32 C ============ C J = 3 GO TO 10 C C ENTRY SDUM22 C ============ C J = 2 GO TO 10 C C ENTRY SDUM12 C ============ C J = 1 C GO TO 10 C 10 IF (II(J) .NE. 0) GO TO 30 II(J) = 1 WRITE (NOUT,20) UWM,JJ,KK(J) 20 FORMAT (A25,' 2182, SUBROUTINE ',2A4,' IS DUMMY. ONLY ONE OF ', 1 'THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK.') 30 RETURN END ================================================ FILE: mis/seemat.f ================================================ SUBROUTINE SEEMAT C C SUBROUTINE SEEMAT IS THE DMAP DRIVER FOR UTILITY MODULE SEEMAT C WHOSE DMAP CALL FOLLOWS C C SEEMAT A,B,C,D,E//C,N,PRINT(PLOT)/V,N,PFILE/C,N,FSIZE/ C C,N,MODIDA/C,N,MODELA/C,N,PAPERX/C,N,PAPERY C C INPUT DATA BLOCKS - A,B,C,D,E ARE MATRICES, ANY OF WHICH MAY BE C PURGED. C C OUTPUT DATA BLOCKS - NONE C C PARAMETERS C 1. BCD, -PRINT- MEANS USE SYSTEM PRINTER (DEFAULT). C -PLOT- MEANS USE SPECIFIED PLOTTER. C 2. INTEGER, PLOT COUNTER (INPUT + OUTPUT). C 3. INTEGER, FRAME SIZE = NUMBER OF CHARACTERS TO BE TYPED C IN AN ASSUMED SQUARE FRAME (DEFAULT=100). C 4. BCD, MODEL ID (DEFAULT=M). C 5. INTEGER, MODEL NUMBER (DEFAULT=1). C 6. REAL, X DIMENSION OF PLOT FRAME (DEFAULT=0.0). C 7. REAL, Y DIMENSION OF PLOT FRAME (DEFAULT=0.0). C NOTE - PARAMETERS 2-7 ARE USED ONLY IF PARAMETER 1 = -PLOT-. C EXTERNAL ANDF,ORF LOGICAL TABLE,SQ,PLOTIT,PRNTIT,TAPBIT,NOBITS INTEGER NAME(5),GOBAC,BLANK,XSTAR,XDOLR,XDDDD,SEEMT(2), 1 A,B,C,IT(7),SYSBUF,EOL,EOR,IRO(10),IX(1),LBL(2), 2 ANDF,ORF,KPP(2),PLUS,BCOR,SYMBL(2),MODID(2), 3 TTL1(9),TTL2(4),TTL3(4),TTL4(3),LIN(25), 4 PP,PFILE,FSIZE,PLTTER,PLTYPE,PLOTER,PLTBUF,TWO CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27,SIM*31 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM,SIM COMMON /SYSTEM/ SYSBUF,NOUT,JAZZ1(6),NLINES,JAZZ2(2),LNCT, 1 JAZZ3(26),NBPC,NBPW,NCPW COMMON /BLANK / PP(2),PFILE,FSIZE,MODIDA(2),MODELA,PAPERX,PAPERY COMMON /ZZZZZZ/ X(1) COMMON /ZNTPKX/ Z(4),IZ,EOL,EOR COMMON /PLTDAT/ MODEL,PLTTER,REGION(4),AXMAX,AYMAX,EDGE(12), 1 SKPA(9),PLTYPE,PLOTER COMMON /XXPARM/ PLTBUF,KAMRAN,NBLFM,SKPARM(4),PAPSIZ(2) COMMON /TWO / TWO(32) EQUIVALENCE (X(1),IX(1)),(IRO(1),ICOL1),(IRO(2),IBLCU1), 1 (IRO(3),IBLCU2),(IRO(4),JBLCU1),(IRO(5),JBLCU2), 2 (IRO(6),A,IPIJ1),(IRO(7),B,IPIJ2),(IRO(8),C), 3 (IT(1),NAM ),(IT(2),NCOLS),(IT(3),NROWS), 4 (IT(5),ITYP) DATA NAME , SEEMT /101,102,103,104,105,4HSEEM,4HAT / DATA BLANK , NCC,XSTAR,XDOLR,XDDDD/1H ,100,1H*,1H$,1HD/ DATA KPP / 4HPLOT,4H / DATA PLUS / 4H+ / DATA TTL1 / 4HSEEM,4HAT D,4HISPL,4HAY O,4HF MA,4HTRIX, 1 4H DAT,4HA BL,4HOCK / DATA TTL2 / 4HNO. ,4HCOLU,4HMNS ,4H= / DATA TTL3 / 4HNO. ,4H RO,4HWS ,4H= / DATA TTL4 / 4H(TRA,4HNSPO,4HSED)/ C NCC = 100 PLOTIT =.FALSE. PRNTIT =.TRUE. NLNXX = NLINES IF (PP(1).NE.KPP(1) .OR. PP(2).NE.KPP(2)) GO TO 20 PLOTIT =.TRUE. PRNTIT =.FALSE. TABLE =.FALSE. NCC = FSIZE FNCC = NCC NLNXX = NCC 20 LCOR = KORSZ(X) - SYSBUF C NCC1 = NCC/4 NCC5 = NCC - 5 LBLK = (NCC*NLNXX-1)/32 + 3 IF (PRNTIT) GO TO 90 C C INITIALIZE PLOTTER C MODID(1) = MODIDA(1) MODID(2) = MODELA CALL FNDPLT (PLTTER,MODEL,MODID) PAPSIZ(1) = PAPERX PAPSIZ(2) = PAPERY KAMRAN = 3 NBLKFM = 0 CALL PLTSET LCOR = LCOR - PLTBUF KCOR = LCOR + SYSBUF + 1 IF (LCOR .LE. 0) CALL MESAGE (-8,SQ,SEEMT) BCOR = LCOR - NCC1 IF (TAPBIT(PLOTER)) GO TO 70 WRITE (NOUT,65) UWM,PLOTER 65 FORMAT (A25,' 1704, PLOT FILE -',A4,'- NOT SET UP') GO TO 9999 70 IF (IABS(PLTYPE).NE.1) TABLE = .TRUE. REGION(3) = AMIN1(AXMAX,AYMAX) REGION(4) = REGION(3) AXMAX = REGION(3) AYMAX = REGION(4) CALL MAPSET (0,0,1.01*FNCC,1.01*FNCC,0,0,AXMAX,AYMAX,2) CALL MAP (0.005*FNCC,0.005*FNCC,BLLX,BLLY) CALL MAP (1.005*FNCC,0.005*FNCC,BLRX,BLRY) CALL MAP (1.005*FNCC,1.005*FNCC,BURX,BURY) CALL MAP (0.005*FNCC,1.005*FNCC,BULX,BULY) GO TO 90 85 CALL MESAGE (-1,PLOTER,SEEMT) 90 CONTINUE C DO 9998 III = 1,5 C NAM = NAME(III) CALL RDTRL (IT) IF (NAM .LE. 0) GO TO 9998 CALL GOPEN (NAM,X(LCOR+1),0) CALL FNAME (NAM,LBL) SQ = .TRUE. IF (NCOLS .NE. NROWS) SQ = .FALSE. NBLKS = 0 NCOL1 = 0 IJMAX = MAX0(NCOLS,NROWS) NROWS1= NROWS + 1 IF (PRNTIT) GO TO 95 IF (TABLE ) GO TO 92 PFILE = PFILE + 1 CALL SOPEN (*85,PLOTER,X(KCOR),PLTBUF) CALL STPLOT (PFILE) CALL MAP (0.23*FNCC,0.50*FNCC,XXXX,YYYY) CALL PRINT (XXXX,YYYY,1,TTL1,9,-1) CALL PRINT (XXXX,YYYY,1,TTL1,9, 0) CALL MAP (0.60*FNCC,0.50*FNCC,XXXX,YYYY) CALL PRINT (XXXX,YYYY,1,LBL,2,0) CALL MAP (0.75*FNCC,0.50*FNCC,XXXX,YYYY) CALL PRINT (XXXX,YYYY,1,TTL4,3,0) CALL MAP (0.40*FNCC,0.40*FNCC,XXXX,YYYY) CALL PRINT (XXXX,YYYY,1,TTL3,4,0) CALL MAP (0.40*FNCC,0.30*FNCC,XXXX,YYYY) CALL PRINT (XXXX,YYYY,1,TTL2,4,0) CALL MAP (0.55*FNCC,0.40*FNCC,XXXX,YYYY) CALL TYPINT (XXXX,YYYY,1,NROWS,0, 0) CALL MAP (0.55*FNCC,0.30*FNCC,XXXX,YYYY) CALL TYPINT (XXXX,YYYY,1,NCOLS,0, 0) CALL LINE (BLLX,BLLY,BULX,BULY,1,-1) CALL LINE (BLLX,BLLY,BULX,BULY,1, 0) CALL LINE (BULX,BULY,BURX,BURY,1, 0) CALL LINE (BURX,BURY,BLRX,BLRY,1, 0) CALL LINE (BLRX,BLRY,BLLX,BLLY,1, 0) CALL STPLOT (-1) 92 CALL PAGE1 LNCT = LNCT + 5 WRITE (NOUT,93) LBL(1),LBL(2),NCOLS,NROWS 93 FORMAT (//5X,'SEEMAT PLOT FOR TRANSPOSE OF', /22X,'MATRIX DATA ', 1 'BLOCK ',2A4,11X,'PLOT FILE ',' R',' C', /10X, 2 'SIZE =',I6,' ROWS BY',I6,' COLUMNS') IF (TABLE) GO TO 95 WRITE (NOUT,94) PFILE 94 FORMAT (1H0,62X,I5,2X,12HHEADER FRAME) 95 CONTINUE C C C LOOP ON COLUMNS OF MATRIX C NCOL = 1 100 CONTINUE CALL INTPK (*2100,NAM,0,ITYP,0) C C IF COLUMN IS NULL, RETURN FROM INTPK IS TO STATEMENT 2100 C ITY IS TYPE OF ELEMENT STORED IN Z, NOT USED IN THIS PROGRAM C BLOCK IS DUMMY ENTRY NOT USED BY INTPK C C LOOP ON ROWS OF MATRIX C NROW = 1 200 CONTINUE IF (EOL .NE. 0) GO TO 2100 C C READ ELEMENT OF MATRIX INTO /ZNTPKX/ C CALL ZNTPKI C C COMPUTE BLOCK ID IN WHICH ELEMENT BELONGS C C LOOK AT CURRENT BLOCK FIRST C IF (NBLKS .LE. 0) GO TO 1045 IF (NCOL.LE.JBLCU1 .OR. NCOL.GT.JBLCU2 .OR. IZ.LE.IBLCU1 .OR. 1 IZ.GT.IBLCU2) GO TO 1020 NBLK = NBLCUR GO TO 1050 C C SEARCH ALL BLOCKS TO FIND OLD ONE IN WHICH ELEMENT LIES C 1020 DO 1040 I2 = 1,NBLKS IP = LBLK*(I2-1) + 1 IP1 = IP + 2 IBLCU1 = IX(IP) IBLCU2 = IBLCU1 + NCC JBLCU1 = IX(IP+1) JBLCU2 = JBLCU1 + NLNXX IF (NCOL.LE.JBLCU1 .OR. NCOL.GT.JBLCU2 .OR. IZ.LE.IBLCU1 .OR. 1 IZ.GT.IBLCU2) GO TO 1040 NBLK = I2 GO TO 1050 1040 CONTINUE 1045 NBLK = -1 1050 IF (NBLK .GT. 0) GO TO 1100 C C SET UP NEW BLOCK IF THERE IS ROOM FOR IT IN CORE C NBLKS1 = NBLKS + 1 IF (LBLK*NBLKS1 .LE. LCOR) GO TO 1070 WRITE (NOUT,1060) SWM,NBLKS1 1060 FORMAT (A27,' 1701, AVAILABLE CORE EXCEEDED BY',I10,' LINE IMAGE', 1 ' BLOCKS.') NBLKS = -1 GO TO 9960 C C SET BLOCK POINTERS AND BLANK OUT LINE IMAGE C 1070 IP = LBLK*NBLKS + 1 IP1 = IP + 2 IP2 = IP + LBLK - 1 DO 1071 I = IP1,IP2 1071 IX(I) = 0 DO 1074 IJM = 1,IJMAX IF (IJM*NCC .LT. IZ) GO TO 1074 IX(IP) = NCC*(IJM-1) GO TO 1075 1074 CONTINUE KERROR = 1074 GO TO 9950 1075 DO 1079 IJM = 1,IJMAX IF (IJM*NLNXX .LT. NCOL) GO TO 1079 IX(IP+1) = NLNXX*(IJM-1) GO TO 1080 1079 CONTINUE KERROR = 1079 GO TO 9950 1080 IBLCU1 = IX(IP) IBLCU2 = IBLCU1 + NCC JBLCU1 = IX(IP+1) JBLCU2 = JBLCU1 + NLNXX NBLKS = NBLKS1 NBLCUR = NBLKS IF (NBLKS .LE. 0) GO TO 9997 C C INSERT BIT INTO PACKED LINE IMAGE BLOCK C 1100 A = NCC*(NCOL-IX(IP+1)-1) + (IZ-IX(IP)) B = (A-1)/32 C = IP1 + B B = A - 32*B IX(C) = ORF(IX(C),TWO(B)) C C END OF LOOP ON ROWS C NROW = NROW + 1 IF (NROW .LE. NROWS1) GO TO 200 KERROR = 2000 GO TO 9950 2100 IF (NCOL-NCOL1 .LT. NLNXX) GO TO 3000 C C OUTPUT GROUP OF LINE IMAGE BLOCKS C ASSIGN 2200 TO GOBAC GO TO 9500 2200 NBLKS = 0 NCOL1 = NCOL1 + NLNXX C C END OF LOOP ON COLUMNS C 3000 NCOL = NCOL + 1 IF (NCOL .LE. NCOLS) GO TO 100 C C OUTPUT RESIDUAL LINE IMAGE BLOCKS C ASSIGN 3050 TO GOBAC GO TO 9500 3050 NBLKS = 0 GO TO 9997 C C OUTPUT GROUP OF LINE IMAGE BLOCKS C 9500 CONTINUE IF (NBLKS .LE. 0) GO TO 9699 DO 9650 I = 1,NBLKS IP = LBLK*(I-1) + 1 IF (PRNTIT) CALL PAGE1 I1 = IX(IP) J100 = I1 + NCC DO 9510 IJ = 1,10 9510 IRO(IJ) = I1 + 10*IJ IF (PRNTIT) WRITE (NOUT,9520) (IRO(IJ),IJ=1,10) 9520 FORMAT (13H0TRANSPOSE OF,9X,8HCOLUMN..,10I10) IF (PRNTIT) WRITE (NOUT,9530) LBL(1),LBL(2) 9530 FORMAT (8H MATRIX ,2A4,7X,3HROW,4X,10(9X,1H.), 1 /23X,3H...,4X,100(1H.)/24X,1H.) ICOL1 = IX(IP+1) I100 = ICOL1 + NLNXX IP1 = IP - NCC1 + 1 IF (PRNTIT) GO TO 9535 PFILE = PFILE + 1 CALL SOPEN (*85,PLOTER,X(KCOR),PLTBUF) CALL STPLOT (PFILE) CALL TIPE (XXXX,YYYY,1,PLUS,1,-1) IPAK = (NCC+99)/100 IJA = 5*IPAK IJB = NCC - IJA FNCCY = 1.005*FNCC DO 9531 IJ = IJA,IJB,IJA FIJ = FLOAT(IJ) CALL MAP (FIJ,FNCCY,XXXX,YYYY) 9531 CALL TIPE (XXXX,YYYY,1,PLUS,1,0) FNCCX = 1.005*FNCC DO 9532 IJ = IJA,IJB,IJA FIJ = FNCC - FLOAT(IJ) CALL MAP (FNCCX,FIJ,XXXX,YYYY) 9532 CALL TIPE (XXXX,YYYY,1,PLUS,1,0) FNCCY = 0.005*FNCC DO 9533 IJ = IJA,IJB,IJA FIJ = FNCC - FLOAT(IJ) CALL MAP (FIJ,FNCCY,XXXX,YYYY) 9533 CALL TIPE (XXXX,YYYY,1,PLUS,1,0) FNCCX = 0.005*FNCC DO 9534 IJ = IJA,IJB,IJA FIJ = FLOAT(IJ) CALL MAP (FNCCX,FIJ,XXXX,YYYY) 9534 CALL TIPE (XXXX,YYYY,1,PLUS,1,0) 9535 DO 9600 IJ = 1,NLNXX IP1 = IP1 + NCC1 IPIJ1 = IP1 + 1 IPIJ2 = IP1 + NCC1 IB = NCC*(IJ-1) IW = IB/32 IB = IB - 32*IW IW = IW + IP + 2 NOBITS= .TRUE. IF (PLOTIT) GO TO 9570 DO 9536 JJ = 1,NCC1 9536 LIN(JJ) = BLANK DO 9540 JJ = 1,NCC IB = IB + 1 IF (IB .LE. 32) GO TO 9537 IB = 1 IW = IW + 1 9537 IF (ANDF(IX(IW),TWO(IB)).EQ.0) GO TO 9540 NOBITS = .FALSE. B = (JJ-1)/4 + 1 C = JJ - 4*(B-1) IXX = XSTAR IF (IX(IP+1)+IJ.EQ.NCOLS .OR. IX(IP)+JJ.EQ.NROWS) IXX = XDOLR IF (SQ .AND. IX(IP+1)+IJ.EQ.IX(IP)+JJ) IXX = XDDDD LIN(B) = KHRFN1(LIN(B),C,IXX,1) 9540 CONTINUE IF (NOBITS) GO TO 9560 IF (MOD(IJ,5) .EQ. 0) GO TO 9550 WRITE (NOUT,9545) (LIN(JJ),JJ=1,NCC1) 9545 FORMAT (28X,2H. ,25A4) GO TO 9600 9550 ICOL1 = ICOL1 + 5 WRITE (NOUT,9555) ICOL1,(LIN(JJ),JJ=1,NCC1) 9555 FORMAT (16X,I10,4H .. ,25A4) GO TO 9600 9560 IF (MOD(IJ,5) .EQ. 0) GO TO 9565 WRITE (NOUT,9545) GO TO 9600 9565 ICOL1 = ICOL1 + 5 WRITE (NOUT,9555) ICOL1 GO TO 9600 9570 FIJ = 101.0 - FLOAT(IJ) DO 9580 JJ = 1,NCC IB = IB + 1 IF (IB .LE. 32) GO TO 9577 IB = 1 IW = IW + 1 9577 IF (ANDF(IX(IW),TWO(IB)) .EQ. 0) GO TO 9580 NOBITS = .FALSE. FJJ = FLOAT(JJ) CALL MAP (FJJ,FIJ,XXXX,YYYY) IF (SQ .AND. IX(IP+1)+IJ.EQ.IX(IP)+JJ) GO TO 9579 IF (IX(IP+1)+IJ.EQ.NCOLS .OR. IX(IP)+JJ.EQ.NROWS) GO TO 9578 CALL TIPE (XXXX,YYYY,1,XSTAR,1,0) GO TO 9580 9578 CALL TIPE (XXXX,YYYY,1,XDOLR,1,0) GO TO 9580 9579 CALL TIPE (XXXX,YYYY,1,XDDDD,1,0) 9580 CONTINUE 9600 CONTINUE IF (PRNTIT) WRITE (NOUT,9640) 9640 FORMAT (1H0,29X,100(1H.)/30X,10(9X,1H.)) IF (PRNTIT) GO TO 9650 CALL STPLOT (-1) LNCT = LNCT + 1 IF (LNCT .GT. NLINES) CALL PAGE1 WRITE (NOUT,9645) PFILE,I100,J100 9645 FORMAT (1H ,62X,I5,2I6) 9650 CONTINUE C 9699 GO TO GOBAC, (2200,3050) C 9950 WRITE (NOUT,9952) SWM,KERROR 9952 FORMAT (A27,' 1705, LOGIC ERROR AT STATEMENT',I5, 1 ' IN SUBROUTINE SEEMAT.') 9960 WRITE (NOUT,9962) SIM,LBL 9962 FORMAT (A31,' 1702, UTILITY MODULE SEEMAT WILL ABANDON ', 1 'PROCESSING DATA BLOCK ',2A4 ) 9997 CALL CLOSE (NAM,1) IF (PRNTIT) GO TO 9998 IF (TABLE ) GO TO 9998 PFILE = PFILE + 1 CALL SOPEN (*85,PLOTER,X(KCOR),PLTBUF) CALL STPLOT (PFILE) CALL LINE (BLLX,BLLY,BURX,BURY,1,-1) CALL LINE (BLLX,BLLY,BURX,BURY,1, 0) CALL LINE (BULX,BULY,BURX,BURY,1, 0) CALL LINE (BULX,BULY,BLRX,BLRY,1, 0) CALL LINE (BLRX,BLRY,BLLX,BLLY,1, 0) CALL LINE (BLLX,BLLY,BULX,BULY,1, 0) CALL LINE (BURX,BURY,BLRX,BLRY,1, 0) SYMBL(1) = 3 SYMBL(2) = 6 CALL MAP (0.505*FNCC,0.505*FNCC,XXXX,YYYY) CALL SYMBOL (XXXX,YYYY,SYMBL,-1) CALL SYMBOL (XXXX,YYYY,SYMBL, 0) CALL STPLOT (-1) LNCT = LNCT + 1 WRITE (NOUT,9996) PFILE 9996 FORMAT (63X,I5,2X,13HTRAILER FRAME) 9998 CONTINUE 9999 RETURN C END ================================================ FILE: mis/selas1.f ================================================ SUBROUTINE SELAS1(IARG) C***** C THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR THE ELAS ELEMENTS. C C C C***** C C C C E C P T - S F O R E L A S E L E M E N T S C C C C TYPE TYPE TYPE TYPE C CELAS1 CELAS2 CELAS3 CELAS4 C ECPT(1) IELID I IELID I IELID I IELID I C ECPT(2) IGP1 I K R IS1 I K R C ECPT(3) IGP2 I IGP1 I IS2 I IS1 I C ECPT(4) IC1 I IGP2 I K R IS2 I C ECPT(5) IC2 I IC1 I GSUBE R C ECPT(6) K R IC2 I S R C ECPT(7) GSUBE R GSUBE R C ECPT(8) S R S R C C C DIMENSION 1 IECPT(6) C C SDR2 PHASE I INPUT AND OUTPUT BLOCK C COMMON /SDR2X5/ A ECPT(100), 1 JELID ,ISILNO(2) 2, STIFF ,SCOEFF 3, DUMMY(120) C C C EQUIVALENCE 1 (IECPT(1),ECPT(1)) ,(SCOEFF,ICOEFF) C C BUILD UP OUTPUT BLOCK DEPENDING UPON WHICH ELEMENT TYPE, ELAS1, ELAS2, C ELAS3 OR ELAS4, IS BEING WORKED ON. C GO TO (10,20,30,40),IARG C C ELAS1 C 10 ISILNO(1) = IECPT(2) + IECPT(4) ISILNO(2) = IECPT(3) + IECPT(5) IF (IECPT(4) .GT. 0) ISILNO(1) = ISILNO(1) - 1 IF (IECPT(5) .GT. 0) ISILNO(2) = ISILNO(2) - 1 STIFF = ECPT(6) SCOEFF = ECPT(8) GO TO 50 C C ELAS2 C 20 ISILNO(1) = IECPT(3) + IECPT(5) ISILNO(2) = IECPT(4) + IECPT(6) IF (IECPT(5) .GT. 0) ISILNO(1) = ISILNO(1) - 1 IF (IECPT(6) .GT. 0) ISILNO(2) = ISILNO(2) - 1 STIFF = ECPT(2) SCOEFF = ECPT(8) GO TO 50 C C ELAS3 C 30 ISILNO(1) = IECPT(2) ISILNO(2) = IECPT(3) STIFF = ECPT(4) SCOEFF = ECPT(6) GO TO 50 C C ELAS4 C 40 ISILNO(1) = IECPT(3) ISILNO(2) = IECPT(4) STIFF = ECPT(2) ICOEFF = -1 C C STORE ELEMENT ID. C 50 JELID = IECPT(1) RETURN END ================================================ FILE: mis/selas2.f ================================================ SUBROUTINE SELAS2 C***** C THIS ROUTINE IS PHASE II OF STRESS DATA RECOVERY FOR THE SCALAR SPRING C ELEMENTS ELAS1, ELAS2, ELAS3 AND ELAS4. C***** C C C C C SDR2 VARIABLE CORE C COMMON /ZZZZZZ/ ZZ(1) C C BLOCK FOR POINTERS, LOADING TEMPERATURE AND ELEMENT DEFORMATION. C COMMON /SDR2X4/ 1 DUMMY(33) ,ICSTM 2, NCSTM ,IVEC 3, IVECN ,TEMPLD 4, ELDEFM C C SDR2 INPUT AND OUTPUT BLOCK C COMMON /SDR2X7/ 1 JELID ,ISILNO(2) 2, STIFF ,SCOEFF 3, XXXXXX(95) 4, JSELID ,STRESS 5, YYYYYY(98) 6, JFELID ,FORCE 7, ZZZZZZ(23) EQUIVALENCE 1 (SCOEFF,ICOEFF) C C C IDISP = IVEC - 1 DISP1 = 0.0 DISP2 = 0.0 IF (ISILNO(1) .LE. 0) GO TO 10 IU = IDISP + ISILNO(1) DISP1 = ZZ(IU) 10 IF (ISILNO(2) .LE. 0) GO TO 20 IU = IDISP + ISILNO(2) DISP2 = ZZ(IU) 20 JFELID = JELID FORCE = STIFF * (DISP1 - DISP2) IF (ICOEFF .EQ. (-1)) RETURN STRESS = SCOEFF * FORCE JSELID = JELID RETURN END ================================================ FILE: mis/selbo1.f ================================================ SUBROUTINE SELBO1 C C THIS ROUTINE IS PHASE 1 OF STRESS DATA RECOVERY FOR THE ELBOW C ELEMENT MUCH OF THE CODE WAS LIFTED FROM THE KELBOW SUBROUTINE C C ECPT FOR THE ELBOW C C ECPT( 1) - IELID ELEMENT ID. NUMBER C ECPT( 2) - ISILNO(2) * SCALAR INDEX NOS. OF THE GRID POINTS C ECPT( 3) - ... * C ECPT( 4) - SMALLV(3) $ REFERENCE VECTOR C ECPT( 5) - ... $ C ECPT( 6) - ... $ C ECPT( 7) - ICSSV COOR. SYS. ID FOR SMALLV VECTOR C ECPT( 8) - IMATID MATERIAL ID. C ECPT( 9) - A CROSS-SECTIONAL AREA C ECPT(10) - I1 $ AREA MOMENTS OF INERTIA C ECPT(11) - I2 $ C ECPT(12) - FJ TORSIONAL CONSTANT C ECPT(13) - NSM NON-STRUCTURAL MASS C ECPT(14) - FE FORCE ELEM. DESCRIPTIONS, FORCE METHOD C ECPT(15) - R1 *STRESS RECOVERY COEFFICIENTS C ECPT(16) - T1 * RI=RADIAL LOCATION C ECPT(17) - R2 * TI=ANGULAR LOCATION C ECPT(18) - T2 * OF STRESS RECOVERY POINTS C ECPT(19) - R3 * C ECPT(20) - T3 * C ECPT(21) - R4 * C ECPT(22) - T4 * C ECPT(23) - K1 $ AREA FACTOR FOR SHEAR C ECPT(24) - K2 $ C ECPT(25) - C STRESS INTENSIFICATION FACTOR C ECPT(26) - KX * FLEXIBILITY CORRECTION FACTORS C ECPT(27) - KY * C ECPT(28) - KZ * C ECPT(29) - R RADIUS OF CURVATURE C ECPT(30) - BETAR ANGLE FROM GA TO GB C ECPT(31) - MCSIDA COORD. SYS. ID. FOR GRID POINT A C ECPT(32) - GPA(3) *BASIC COORD. FOR GRID POINT A C ECPT(33) - ... * C ECPT(34) - ... * C ECPT(35) - MCSIDB COORD. SYS. ID. FOR GRID POINT B C ECPT(36) - GPB(3) *BASIC COORD. FOR GRID POINT B C ECPT(37) - ... * C ECPT(38) - ... * C ECPT(39) - ELTEMP AVG. ELEMENT TEMPERATURE C C LOGICAL ABASIC,BBASIC,BASIC REAL L,I1,I2,K1,K2,KE,KEP,NSM,HUT( 6),KEE(12,12), 1 KX,KY,KZ DIMENSION VECI(3),VECJ(3),VECK(3),ECPT(100),IECPT(100), 1 TA(18),TB(9),SMALV0(6),DP(20),F(6,6),S(12,12), 2 H(6,6),DF(6,6) COMMON /SDR2X5/ IELID,ISILNO(2),SMALLV(3),ICSSV,IMATID,A,I1,I2, 1 FJ,NSM,FE,C1,C2,D1,D2,F1,F2,G1,G2,K1,K2,C, 2 KX,KY,KZ,R,BETAR,MCSIDA,GPA(3),MCSIDB,GPB(3), 3 TEMPEL,DUM3(61) COMMON /SDR2X5/ JELID,JSILNO(2),SA(36),SB(36),OUT(21),THERM(30) COMMON /SDR2X6/ KE(144),KEP(144),DELA(6),DELB(6) COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E,G,NU,RHO,ALPHA,T SUB 0,GSUBE,SIGT,SIGC,SIGS EQUIVALENCE (IELID,ECPT(1),IECPT(1)), (TA(10),TB(1)), 1 (KEE(1,1),KE(1),S(1,1)) DATA DCR / .017453292 / C SID(X) = SIN(X*DCR) COD(X) = COS(X*DCR) DTR(X) = X*DCR C X = 1.0 ISOP = -1 C C SET UP POINTERS TO COORD. SYSTEM IDS C JCSIDA = 31 JCSIDB = 35 ICSIDA = IECPT(31) ICSIDB = IECPT(35) C C DEFINE LOCATION OF END A, END B IN TERMS OF DP(1) THRU DP(6) C DP(1) = ECPT(JCSIDA+1) DP(2) = ECPT(JCSIDA+2) DP(3) = ECPT(JCSIDA+3) DP(4) = ECPT(JCSIDB+1) DP(5) = ECPT(JCSIDB+2) DP(6) = ECPT(JCSIDB+3) C C DEFINE COMPONENTS OF VECTOR FROM END A TO CENTER OF CURVATURE,C C DP(7) = ECPT(4) DP(8) = ECPT(5) DP(9) = ECPT(6) FLD = SQRT(DP(7)**2 + DP(8)**2 + DP(9)**2) DP(7) = DP(7)/FLD DP(8) = DP(8)/FLD DP(9) = DP(9)/FLD C C DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES C ABASIC =.TRUE. BBASIC =.TRUE. IF (ICSIDA .NE. 0) ABASIC =.FALSE. IF (ICSIDB .NE. 0) BBASIC =.FALSE. C C COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY C IF (ABASIC) GO TO 60 CALL TRANSS (ECPT(JCSIDA),TA) CALL GMMATS (TA,3,3,0, DP(7),3,1,0, VECJ) CALL GMMATS (TA,3,3,0, DP(1),3,1,0, DP(14)) DP(1) = DP(14) DP(2) = DP(15) DP(3) = DP(16) GO TO 61 60 CONTINUE VECJ(1) = DP(7) VECJ(2) = DP(8) VECJ(3) = DP(9) 61 IF (BBASIC) GO TO 62 CALL TRANSS (ECPT(JCSIDB),TB) CALL GMMATS (TB,3,3,0, DP(4),3,1,0, DP(14)) DP(4) = DP(14) DP(5) = DP(15) DP(6) = DP(16) 62 CONTINUE C C CONSTRUCT VECTOR FROM A TO B C SMALV0(1) = DP(4) - DP(1) SMALV0(2) = DP(5) - DP(2) SMALV0(3) = DP(6) - DP(3) FLL = SQRT(SMALV0(1)**2 + SMALV0(2)**2 + SMALV0(3)**2) SMALV0(1) = SMALV0(1)/FLL SMALV0(2) = SMALV0(2)/FLL SMALV0(3) = SMALV0(3)/FLL C C COMPUTE THE K VECTOR VECK = SMALV0 X VECJ C VECK(1) = SMALV0(2)*VECJ(3) - SMALV0(3)*VECJ(2) VECK(2) = SMALV0(3)*VECJ(1) - SMALV0(1)*VECJ(3) VECK(3) = SMALV0(1)*VECJ(2) - SMALV0(2)*VECJ(1) FLL = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) VECK(1) = VECK(1)/FLL VECK(2) = VECK(2)/FLL VECK(3) = VECK(3)/FLL C C COMPUTE THE I VECTOR VECI = VECJ X VECK C VECI(1) = VECJ(2)*VECK(3) - VECJ(3)*VECK(2) VECI(2) = VECJ(3)*VECK(1) - VECJ(1)*VECK(3) VECI(3) = VECJ(1)*VECK(2) - VECJ(2)*VECK(1) FLL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) VECI(1) = VECI(1)/FLL VECI(2) = VECI(2)/FLL VECI(3) = VECI(3)/FLL C C SEARCH THE MATERIAL PROPERTIES TABLE FOR E,G AND THE DAMPING C CONSTANT. C MATIDC = IMATID MATFLG = 1 IF (ISOP .EQ. 3) MATFLG = 12 ELTEMP = TEMPEL CALL MAT (IECPT(1)) DAMPC = G SUB E C C SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX C CALCULATION C IF (KX .LT. 1.0E-8) KX = 1.0 IF (KY .LT. 1.0E-8) KY = 1.0 IF (KZ .LT. 1.0E-8) KZ = 1.0 FI1 = I1/KZ FI2 = I2/KY FJK = FJ/KX C C C THE FOLLOWING CODE WAS TAKEN FROM SAP4 BENDKS ROUTINE FOR A CURVED C PIPE ELEMENT C C C COMPUTE SECTION PROPERTY CONSTANTS C T = DTR(BETAR) RA = R/(A*E) RV1= K1*R/(2.*G*A) RV2= K2/K1*RV1 RT = R/(G*FJK*2.) RB0= R/(E*FI2*2.) RB1= R/(E*FI1) R2 = R**2 C C COMPUTE COMMON TRIGONOMETRIC CONSTANTS C ST = SID(BETAR) CT = COD(BETAR) S2T = SID(2.0*BETAR) C2T = COD(2.0*BETAR) C C FORM THE NODE FLEXIBILITY MATRIX AT NODE J REFERENCED TO THE C LOCAL (X,Y,Z) COORDINATE SYSTEM AT NODE I. C C X - DIRECTION IN-PLANE TANGENT TO THE BEND AT NODE I AND C DIRECTED TOWARD NODE J C Y - DIRECTION IN-PLANE AND DIRECTED RADIALLY INWARD TO THE C CENTER OF CURVATURE C Z - DIRECTION OUT OF PLANE AND ORTHOGONAL TO X AND Y C DO 50 I = 1,6 DO 50 K = I,6 F(I,K) = 0.0 50 CONTINUE C C A X I A L C F(1,1) = F(1,1) + 0.25*RA*(2.0*T + S2T) F(2,2) = F(2,2) + 0.25*RA*(2.0*T - S2T) C C N O T E (COEFFICIENT CHANGE) C F(1,2) = F(1,2) + 0.50*RA*ST**2 C C S H E A R C F(1,1) = F(1,1) + 0.5*RV1*(2.0*T - S2T) F(2,2) = F(2,2) + 0.5*RV1*(2.0*T + S2T) F(3,3) = F(3,3) + 2.0*RV2*T C C N O T E (SIGN CHANGE) C F(1,2) = F(1,2) - RV1*ST**2 C C T O R S I O N C F(3,3) = F(3,3) + 0.5*RT*R2*(6.0*T+S2T-8.0*ST) F(4,4) = F(4,4) + 0.5*RT* (2.0*T+S2T) F(5,5) = F(5,5) + 0.5*RT* (2.0*T-S2T) F(3,4) = F(3,4) + RT*R *(ST-T*CT) F(3,5) = F(3,5) + RT*R *(2.0-2.0*CT-T*ST) F(4,5) = F(4,5) + 0.5*RT* (1.0-C2T) C C B E N D I N G C F(1,1) = F(1,1) + 0.25*RB1*R2*(2.0*T*(2.0+C2T)-3.0*S2T) F(2,2) = F(2,2) + 0.25*RB1*R2*(2.0*T*(2.0-C2T)+3.0*S2T-8.0*ST) F(3,3) = F(3,3) + 0.50*RB0*R2*(2.0*T-S2T) F(4,4) = F(4,4) + 0.50*RB0* (2.0*T-S2T) F(5,5) = F(5,5) + 0.50*RB0* (2.0*T+S2T) F(6,6) = F(6,6) + RB1*T F(1,2) = F(1,2) + 0.25*RB1*R2*(1.0+3.0*C2T+2.0*T*S2T-4.0*CT) F(1,6) = F(1,6) - RB1*R *(ST-T*CT) F(2,6) = F(2,6) + RB1*R *(T*ST+CT-1.0) F(3,4) = F(3,4) + RB0*R *(ST-T*CT) F(3,5) = F(3,5) - RB0*R *T*ST F(4,5) = F(4,5) - 0.50*RB0* (1.0-C2T) C C C FORM SYMMETRICAL UPPER PART OF FLEX MATRIX C DO 65 I = 1,6 DO 65 K = I,6 DF(K,I) = F(I,K) DF(I,K) = DF(K,I) 65 CONTINUE C C C INVERT FLEX TO FORM STIFFNESS C CALL INVERS (6,DF,6,DUM,0,DETERM,ISING,H) IF (ISING .EQ. 2) WRITE (6,4002) F IF (ISING .EQ. 2) CALL MESAGE (-30,38,ECPT(1)) 4002 FORMAT (35H ELBOW STIFFNESS MATRIX IS SINGULAR, /,(5X,6E13.5)) C C C SET UP THE FORCE TRANSFORMATION RELATING REACTIONS AT NODE I C ACTING ON THE MEMBER END DUE TO UNIT LOADS APPLIED TO THE MEMBER C END AT NODE J. C DO 100 I = 1,6 DO 100 K = 1,6 H(I,K) = 0.0 100 CONTINUE C DO 105 K = 1,6 H(K,K) =-1.0 105 CONTINUE C H(4,3) =-(R*(1.0 - CT)) H(5,3) = (R*ST) H(6,1) =-H(4,3) H(6,2) =-H(5,3) C C FORM THE UPPER TRIANGULAR PORTION OF THE LOCAL ELEMENT STIFFNESS C MATRIX FOR THE BEND C DO 110 K = 1,6 DO 110 I = K,6 S(K+6,I+6) = DF(K,I) 110 CONTINUE C DO 130 IR = 1,6 DO 130 IC = 1,6 S(IR,IC+6) = 0.0 DO 120 IN = 1,6 S(IR,IC+6) = S(IR,IC+6) + H(IR,IN)*DF(IN,IC) 120 CONTINUE 130 CONTINUE C DO 150 IR = 1,6 DO 150 IC = IR,6 S(IR,IC) = 0.0 DO 140 IN = 1,6 S(IR,IC) = S(IR,IC) + S(IR,IN+6)*H(IC,IN) 140 CONTINUE 150 CONTINUE C C REFLECT FOR SYMMETRY C DO 165 I = 1,12 DO 165 K = I,12 S(K,I) = S(I,K) 165 CONTINUE C C E C STORE K IN KEP(1) THRU KEP(36) AND C AA C C E C STORE K IN KEP(37) THRU KEP(72) C AB C J = 0 DO 340 I = 1,72,12 LOW = I LIM = LOW + 5 DO 330 K = LOW,LIM J = J + 1 KEP(J) = KE(K) 330 KEP(J+36) = KE(K+6) 340 CONTINUE C C COMPUTE THERMAL MATRIX C L = DCR*ECPT(29)*ECPT(30) DO 341 I = 1,6 341 HUT(I) = 0.0 ALPHAR = ALPHA*R HUT(1) =-ALPHAR*SID(BETAR) HUT(2) =-ALPHAR*(1.-COD(BETAR)) HUT(6) = 0.0 CALL GMMATS (KEP(1),6,6,0, HUT,6,1,0, THERM(1)) C C T C STORE VECI, VECJ, VECK IN KE(1) THRU KE(9) FORMING THE A MATRIX. C KE(1) = VECI(1) KE(2) = VECI(2) KE(3) = VECI(3) KE(4) = VECJ(1) KE(5) = VECJ(2) KE(6) = VECJ(3) KE(7) = VECK(1) KE(8) = VECK(2) KE(9) = VECK(3) C C SET POINTERS SO THAT WE WILL BE WORKING WITH POINT A. C BASIC = ABASIC JCSID = JCSIDA IWBEG = 0 IKEL = 1 IAB = 1 INDEX = ISILNO(1) C C ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX AND THE W AND W 6 X 6 C MATRICES WILL RESIDE. A B C DO 350 I = 28,108 350 KE(I) = 0.0 C C SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX. C G = AT X TI C 360 IG = 1 IF (BASIC) GO TO 380 CALL TRANSS (ECPT(JCSID),KE(10)) CALL GMMATS (KE(1),3,3,0, KE(10),3,3,0, KE(19)) IG = 19 C C FORM THE W MATRIX OR THE W MATRIX IN KE(37) OR KE(73) DEPENDING C A B C UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION. G WILL BE C STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS. H, IF NON-ZERO, C WILL BE STORED IN THE UPPER RIGHT CORNER. C C 380 KE(IWBEG+37) = KE(IG ) KE(IWBEG+38) = KE(IG+1) KE(IWBEG+39) = KE(IG+2) KE(IWBEG+43) = KE(IG+3) KE(IWBEG+44) = KE(IG+4) KE(IWBEG+45) = KE(IG+5) KE(IWBEG+49) = KE(IG+6) KE(IWBEG+50) = KE(IG+7) KE(IWBEG+51) = KE(IG+8) KE(IWBEG+58) = KE(IG ) KE(IWBEG+59) = KE(IG+1) KE(IWBEG+60) = KE(IG+2) KE(IWBEG+64) = KE(IG+3) KE(IWBEG+65) = KE(IG+4) KE(IWBEG+66) = KE(IG+5) KE(IWBEG+70) = KE(IG+6) KE(IWBEG+71) = KE(IG+7) KE(IWBEG+72) = KE(IG+8) C C E E C FORM THE PRODUCT S = K X W OR S = K X W, DEPENDING C A AA A B AB B C UPON WHICH POINT WE ARE WORKING WITH. C CALL GMMATS (KEP(IKEL),6,6,0, KE(IWBEG+37),6,6,0, SA(IAB)) C C IF THE POINT UNDER CONSIDERATION IS POINT B WE ARE FINISHED. IF C NOT, SET UP POINTS AND INDICATORS FOR WORKING WITH POINT B. C IF (IWBEG .EQ. 36) GO TO 500 BASIC = BBASIC JCSID = JCSIDB IWBEG = 36 IKEL = 37 IAB = 37 INDEX = ISILNO(2) DO 400 I = 28,36 400 KE(I) = 0.0 GO TO 360 C C FILL REMAINDER OF OUTPUT BLOCK. C 500 JELID = IELID JSILNO(1) = ISILNO(1) JSILNO(2) = ISILNO(2) I12 = 0. OUT( 1) = A*E*ALPHA OUT( 2) = A*E/L OUT( 3) = A OUT( 4) = FJ OUT( 5) = I1 OUT( 6) = I2 OUT( 7) = C OUT( 8) = C1 OUT( 9) = C2 OUT(10) = D1 OUT(11) = D2 OUT(12) = F1 OUT(13) = F2 OUT(14) = G1 OUT(15) = G2 OUT(16) = T SUB 0 OUT(17) = SIGT OUT(18) = SIGC OUT(19) = L OUT(20) = R OUT(21) = BETAR RETURN END ================================================ FILE: mis/selbo2.f ================================================ SUBROUTINE SELBO2 (TI) C C THIS ROUTINE IS THE PHASE II SUBROUTINE OF STRESS DATA RECOVERY C FOR THE BEAM ELEMENT. C INTEGER TLOADS REAL I1,I2,L,M1A,M2A,M1B,M2B,I12,K1A,K2A,K1B,K2B, 1 TI(14),M2BT EQUIVALENCE (LDTEMP,TEMPLD),(MSTEN,SMTEN),(MSCOM,SMCOM) COMMON /ZZZZZZ/ ZZ(1) COMMON /SDR2X4/ XXXXXX(33),ICSTM,NCSTM,IVEC,IVECN,LDTEMP,ELDEFM, 1 DUM8(8),TLOADS C C THE FIRST 100 LOCATIONS OF THE SDR2X7 BLOCK ARE RESERVED FOR INPUT C PARAMETERS, THE SECOND 100 FOR STRESS OUTPUT PARAMETERS, AND FORCE C OUTPUT PARAMETERS BEGIN AT LOCATION 201. C COMMON /SDR2X7/ JELID,JSILNO(2),SA(36),SB(36),ST,SDELTA,A,FJ,I1, 1 I2,C,R1,T1,R2,T2,R3,T3,R4,T4,T SUB 0,SIGMAT, 2 SIGMAC,L,R,BETAR,THERM(4) COMMON /SDR2X7/ ISELID,SIG1A,SIG2A,SIG3A,SIG4A,SIGAX,SIGAMX, 3 SIGAMN,MSTEN,SIG1B,SIG2B,SIG3B,SIG4B,SIGBX, 4 SIGBMX,SIGBMN,MSCOM,YYYYYY(83) COMMON /SDR2X7/ IFELID,M1A,M2A,V1,V2,FX,T,M1B,M2BT,V1BT,FXBT,TBT C COMMON /SDR2X8/ FA(6),FB(6),IDISP,IUA,IUB,P1,K1A,K2A,K1B,K2B,Q,W DATA DCR / .017453292 / C SID(X) = SIN(X*DCR) COD(X) = COS(X*DCR) C X = 1.0 YL = R*(1.-COD(BETAR)) XL = R*SID(BETAR) I12 = 0. IDISP = IVEC - 1 IUA = IDISP + JSILNO(1) CALL GMMATS (SA(1),6,6,0, ZZ(IUA),6,1,0, FA(1)) IUB = IDISP + JSILNO(2) CALL GMMATS (SB(1),6,6,0, ZZ(IUB),6,1,0, FB(1)) FX = -FA(1) - FB(1) V1 = -FA(2) - FB(2) V2 = -FA(3) - FB(3) T = -FA(4) - FB(4) M2A = FA(5) + FB(5) M1A = -FA(6) - FB(6) C C IF LDTEMP = -1, THE LOADING TEMPERATURE IS UNDEFINED C IF (TLOADS .EQ. 0) GO TO 10 TBAR = TI(1) DT = TBAR - TSUB0 DO 5 I = 1,6 FA(I) = DT*THERM(I) 5 CONTINUE FX = FX + FA(1) V1 = V1 + FA(2) M1A = M1A + FA(6) 10 M1B = M1A - V1*XL + FX*YL M2B = M2A - V2*XL TB = T - V2*YL C C TRANSFORM FORCES AT B-END TO A COORD. SYS TANGENT TO B-END C FXBT = V1*SID(BETAR) + FX*ABS(COD(BETAR)) V1BT = V1*ABS(COD(BETAR)) - FX*SID(BETAR) M2BT = M2B*ABS(COD(BETAR)) + TB*SID(BETAR) TBT =-M2B*SID(BETAR) + TB*ABS(COD(BETAR)) C C COMPUTE ELEMENT STRESSES AT 4 POINTS C C C COMPUTE K1A AND K2A C IF (I12 .NE. 0.0) GO TO 30 IF (I1 .NE. 0.0) GO TO 20 K1A = 0.0 GO TO 40 20 K1A = -M1A/I1 GO TO 40 30 K1A = (M2A*I12 - M1A*I2)/(I1*I2 - I12**2) K2A = (M1A*I12 - M2A*I1)/(I1*I2 - I12**2) GO TO 60 40 IF (I2 .NE. 0.0) GO TO 50 K2A = 0.0 GO TO 60 50 K2A = -M2A/I2 C C CHANGE STRESS RECOVERY CONSTANTS FROM CYL. TO RECT. COORD. C C1 = R1*SID(T1) C2 = R1*COD(T1) D1 = R2*SID(T2) D2 = R2*COD(T2) F1 = R3*SID(T3) F2 = R3*COD(T3) G1 = R4*SID(T4) G2 = R4*COD(T4) C C COMPUTE SIG1A, SIG2A, SIG3A AND SIG4A C 60 SIG1A = K1A*C1*C + K2A*C2 SIG2A = K1A*D1*C + K2A*D2 SIG3A = K1A*F1*C + K2A*F2 SIG4A = K1A*G1*C + K2A*G2 C C COMPUTE K1B AND K2B C IF (I12 .NE. 0.0) GO TO 80 IF (I1 .NE. 0.0) GO TO 70 K1B = 0.0 GO TO 90 70 K1B = -M1B/I1 GO TO 90 80 K1B = (M2BT*I12 - M1B *I2)/(I1*I2 - I12**2) K2B = (M1B *I12 - M2BT*I1)/(I1*I2 - I12**2) GO TO 110 90 IF (I2 .NE. 0.0) GO TO 100 K2B = 0.0 GO TO 110 100 K2B = -M2BT/I2 C C COMPUTE SIG1B, SIG2B, SIG3B AND SIG4B C 110 SIG1B = K1B*C1*C + K2B*C2 SIG2B = K1B*D1*C + K2B*D2 SIG3B = K1B*F1*C + K2B*F2 SIG4B = K1B*G1*C + K2B*G2 IF (TLOADS .EQ. 0) GO TO 115 C C TEST IF AT LEAST ONE POINT TEMPERATURE IS GIVEN C DO 111 I = 7,14 IF (TI(I) .NE. 0.0) GO TO 112 111 CONTINUE GO TO 115 112 IF (A .EQ. 0.0) GO TO 115 EALF =-ST/A SIG1A = SIG1A + EALF*(TI( 7) - TI(3)*C1*C - TI(5)*C2 - TI(1)) SIG2A = SIG2A + EALF*(TI( 8) - TI(3)*D1*C - TI(5)*D2 - TI(1)) SIG3A = SIG3A + EALF*(TI( 9) - TI(3)*F1*C - TI(5)*F2 - TI(1)) SIG4A = SIG4A + EALF*(TI(10) - TI(3)*G1*C - TI(5)*G2 - TI(1)) SIG1B = SIG1B + EALF*(TI(11) - TI(4)*C1*C - TI(6)*C2 - TI(2)) SIG2B = SIG2B + EALF*(TI(12) - TI(4)*D1*C - TI(6)*D2 - TI(2)) SIG3B = SIG3B + EALF*(TI(13) - TI(4)*F1*C - TI(6)*F2 - TI(2)) SIG4B = SIG4B + EALF*(TI(14) - TI(4)*G1*C - TI(6)*G2 - TI(2)) 115 CONTINUE C C COMPUTE AXIAL STRESS C SIGAX = 0.0 SIGBX = 0.0 IF (A .NE. 0.0) SIGAX = FX/A IF (A .NE. 0.0) SIGBX = FXBT/A C C COMPUTE MAXIMA AND MINIMA C SIGAMX = SIGAX + AMAX1(SIG1A,SIG2A,SIG3A,SIG4A) SIGBMX = SIGBX + AMAX1(SIG1B,SIG2B,SIG3B,SIG4B) SIGAMN = SIGAX + AMIN1(SIG1A,SIG2A,SIG3A,SIG4A) SIGBMN = SIGBX + AMIN1(SIG1B,SIG2B,SIG3B,SIG4B) C C COMPUTE MARGIN OF SAFETY IN TENSION C IF (SIGMAT .LE. 0.0) GO TO 620 IF (AMAX1(SIGAMX,SIGBMX) .LE. 0.0) GO TO 620 Q = SIGMAT/AMAX1(SIGAMX,SIGBMX) SMTEN = Q - 1.0 GO TO 630 620 MSTEN = 1 C C COMPUTE MARGIN OF SAFETY IN COMPRESSION C 630 IF (SIGMAC .LE. 0.0) GO TO 640 IF (AMIN1(SIGAMN,SIGBMN) .GE. 0.0) GO TO 640 W = -SIGMAC/AMIN1(SIGAMN,SIGBMN) SMCOM = W - 1.0 GO TO 150 640 MSCOM = 1 150 ISELID = JELID IFELID = JELID RETURN END ================================================ FILE: mis/selcam.f ================================================ SUBROUTINE SELCAM (CAMERA,PLTNUM,OPT) C REAL EDGE(2) ,ORIGIN(2),XYMAX(2) ,SAVE(2,3) INTEGER A(17) ,CAMERA ,CAMNUM ,OPT ,PLOTER ,PLTNUM 2, CON10(2) ,CAM10(3) C COMMON /PLTDAT/ PD(20,2) C EQUIVALENCE ( MODEL,PD( 1,1)) , ( PLOTER,PD( 2,1)) 1, (XYMAX(1),PD( 7,1)) , ( EDGE(1),PD( 9,1)) 2, ( CAMNUM,PD(11,1)) ,(ORIGIN(1),PD( 8,2)) DATA CON10,CAM10 / 1,2, 1,2,3 / C DO 101 I = 1,2 SAVE(I,1) = EDGE(I) EDGE(I) = 0. SAVE(I,2) = ORIGIN(I) ORIGIN(I) = 0. SAVE(I,3) = XYMAX(I) XYMAX(I) = 0. A(I) = IABS(PLTNUM) 101 CONTINUE CAMNUM = MIN0(MAX0(CAMERA,1),3) IF(OPT) 165,160,165 C C PLOTTER 1, 2 C 160 A(3) = A(1) A(1) = CON10(1) A(2) = 0 A(4) = SAVE(1,3) + 2.*SAVE(1,1) + .1 A(5) = SAVE(2,3) + 2.*SAVE(2,1) + .1 A(6) = 0 CALL WPLT10 (A,0) 165 A(1) = CON10(2) A(2) = CAM10(CAMNUM) DO 166 I = 3,6 A(I) = 0 166 CONTINUE CALL WPLT10 (A,0) C DO 301 I=1,2 EDGE(I) = SAVE(I,1) ORIGIN(I) = SAVE(I,2) XYMAX(I) = SAVE(I,3) 301 CONTINUE RETURN END ================================================ FILE: mis/semint.f ================================================ SUBROUTINE SEMINT (DEBUG1) C C SEMINT IS THE EXECUTION MONITOR FOR THE PREFACE. C UMF IS NO LONGER SUPPORTED. C C FOR DEBUG PURPOSE, PRINT OUT GOES TO UNIT 6, NOT OUTTAP C INTEGER AXIC,AXIF,OUTTAP,PLOTF,HICORE,DEBUG1 CHARACTER UFM*23,UWM*25,UIM*29,SUBR(13)*6 COMMON /XMSSG / UFM,UWM,UIM COMMON /IFPX1 / NCDS,T1(2,370) COMMON /MACHIN/ MACH,DUMMY4(4) COMMON /SYSTEM/ SYSTEM,OUTTAP,NOGO,INTAP,DUMM15(15),PLOTF, 1 DUMM6(6),AXIC,DUMMY3(3),HICORE,DUMMY6(6), 2 AXIF,DUMM30(30),ISUBS,ISY70(7),ISY77 COMMON /XECHOX/ ECHO(4) COMMON /XXREAD/ INFLAG,INSAVE DATA BCD1 , BCD2, BCD3, BCD4 ,BCD5 ,BCD6, BCD7 / 1 4HXCSA,4HIFP1,4HXSOR,4HXGPI,4HGNFI,4HTTIO,4HTTLP / DATA BCD8 , BCD9, BCD10 ,BCD11 / 1 4HTTOT,4HSOLI,4HFLUI,1HD / DATA SUBR / 'NASCAR','GNFIAT','TMTSIO','TMTSLP','XCSA ', 1 'TMTSOT','ASDMAP','IFP1 ','XSORT2','IFP ', 2 'IFP3 ','XGPI ','BANDIT'/ C C INSAVE = INTAP C C READ AND PROCESS THE NASTRAN CARD (IF PRESENT). C IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(1) 10 FORMAT (/,' -LINK1 DEBUG- SEMINT CALLING ',A6,' NEXT',/) CALL NASCAR C C DEFINE OPEN CORE FOR UNIVAC, VAX, AND UNIX C IF (MACH.EQ.3 .OR. MACH.GE.5) CALL DEFCOR C C GENERATE INITIAL FILE TABLES. C COMPUTE NASTRAN TIMING CONSTANTS. C READ EXECUTIVE CONTROL DECK AND SAVE NOGO FLAG. C READ CASE CONTROL DECK, SORT BULK DATA AND EXECUTE C INPUT FILE PROCESSOR UNLESS BULK DATA IS MISSING. C IF CONICAL SHELL PROBLEM, EXECUTE IFP3. C CALL CONMSG (BCD5,1,1) IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(2) CALL GNFIAT C C CALL THE TIME TEST ROUTINES TO COMPUTE THE NASTRAN C TIMING CONSTANTS AND INITIALIZE COMMON /NTIME/ C C GENERATE THE I/O TIMES AND C CPU TIMES FOR VARIOUS TYPES OF LOOPS C CALL CONMSG (BCD6,1,0) IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(3) CALL TMTSIO (*2000,DEBUG1) CALL CONMSG (BCD7,1,0) IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(4) CALL TMTSLP C C PROCESS EXECUTIVE CONTROL CARDS C 2000 CALL CONMSG (BCD1,1,1) IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(5) CALL XCSA C C OUTPUT THE COMMON /NTIME/ ENTRIES IF DIAG 35 IS TURNED ON C CALL SSWTCH (35,L35) IF (L35 .EQ. 0) GO TO 3000 CALL CONMSG (BCD8,1,0) IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(6) CALL TMTSOT C C PROCESS SUBSTRUCTURING DMAP C 3000 NOGOX = NOGO NOGO = 0 IF (DEBUG1.GT.0 .AND. ISUBS.NE.0) WRITE (6,10) SUBR(7) IF (ISUBS .NE. 0) CALL ASDMAP C C PROCESS CASE CONTROL CARDS C CALL CONMSG (BCD2,1,1) IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(8) CALL IFP1 NOGO1 = NOGO IF (NOGO .EQ. -9) NOGO = 1 IF (NOGO .LT. 0) NOGO = 0 KAXIF = 0 C C REVERT TO OLD XSORT TO PROCESS BULKDATA CARDS IF DIAG 42 IS C TURNED ON, OTHERWISE, USE XSORT2 FOR SPEED AND EFFICIENCY C CALL CONMSG (BCD3,1,0) CALL SSWTCH (42,L42) IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(9) IF (L42 .EQ. 1) CALL XSORT IF (L42 .EQ. 0) CALL XSORT2 IF (NOGO .EQ. -2) GO TO 4000 C C INPUT FILE PROCESSOR(S) TO CHECK EACH BULKDATA CARD C IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(10) CALL IFP IF (DEBUG1.GT.0 .AND. AXIC.NE.0) WRITE (6,10) SUBR(11) IF (AXIC .NE. 0) CALL IFP3 C C SET KAXIF AS IFP4 WILL MODIFY AXIF C KAXIF = AXIF IF (KAXIF.EQ.1 .OR. KAXIF.EQ.3) CALL IFP4 IF (KAXIF.EQ.2 .OR. KAXIF.EQ.3) CALL IFP5 C C SUPPRESS NOGO FLAG IF USER REQUESTS UNDEFORMED STRUCTURE PLOT VIA C NASTRAN PLOTOPT CARD C 4000 IF (NOGO .EQ. -2) NOGO = 0 IF (NOGO.EQ.0 .AND. NOGO1.LT.0) NOGO = NOGO1 IF (NOGO.GE.1 .AND. NOGO1.LT.0) NOGO = -9 IF (NOGO1 .EQ. 0) NOGO1 = NOGO C C NOGO FLAG CONDITIONS C NOGOX.NE. 0, FATAL ERROR IN EXECUTIVE CONTROL C NOGO .EQ.-9, FATAL ERROR IN BULKDATA AND IN PLOT COMMANDS C NOGO .EQ. 0, NO FATAL ERROR DETECTED IN ENTIRE INPOUT DECK C NOGO .GT. 0, FATAL ERROR IN BULKDATA, NO ERROR IN PLOT COMMANDS C NOGO .LT. 0, NO ERROR IN BULKDATA, FATAL ERROR IN PLOT COMMANDS C IF (NOGOX .NE. 0) GO TO 5500 IF (NOGO) 4100,4300,4200 4100 IF (NOGO.EQ.-9 .AND. PLOTF.NE.3) GO TO 5500 IF (PLOTF .LE. 1) GO TO 4200 NOGO = 0 GO TO 4300 4200 NOGO = 1 C C EXECUTE GENERAL PROBLEM INITIALIZATION IF DATA PERMITS. C 4300 IF (NOGO .NE. 0) CALL MESAGE (-61,0,0) CALL CONMSG (BCD4,1,0) IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(12) CALL XGPI C C CALL BANDIT TO GENERATE GRID-POINT RE-SEQUENCE CARDS IF DATA C PERMITS C IF (NOGO.NE.0 .AND. NOGO1.LT.0) NOGO = -9 IF (NOGO.EQ.0 .AND. NOGO1.NE.0) NOGO = NOGO1 IF (ISY77.LT.0 .OR. NOGO .NE.0) GO TO 5100 IF (AXIC.NE.0 .OR. KAXIF.EQ.1 .OR. KAXIF.EQ.3) GO TO 5000 IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(13) CALL BANDIT GO TO 5100 5000 WRITE (OUTTAP,6100) UIM BCDX = BCD10 IF (AXIC .NE. 0) BCDX = BCD9 WRITE (OUTTAP,6200) BCDX,BCD11 WRITE (OUTTAP,6300) C C TERMINATE NASTRAN IF LINK 1 ONLY IS REQUESTED BY USER C 5100 IF (ISY77 .EQ. -2) CALL PEXIT C C EXIT ACCORDING TO PLOT OPTION REQUEST C SET PLOTF TO NEGATIVE ONLY IF JOB IS TO BE TERMINATED AFTER PLOTS C IN LINK2 C J = PLOTF + 1 IF (NOGO .EQ. 0) GO TO (5800,5800,5700,5700,5800,5800), J IF (NOGO .GT. 0) GO TO (5300,5300,5600,5600,5600,5600), J IF (NOGO .LT. 0) GO TO (5500,5500,5500,5600,5600,5200), J C PLOTF = 0, 1, 2, 3, 4, 5 C 5200 IF (NOGO+9) 5800,5500,5800 5300 IF (PLOTF .GT. 1) WRITE (OUTTAP,5400) 5400 FORMAT ('0*** ATTEMPT TO PLOT UNDEFORMED MODEL IS ABANDONED DUE', 1 ' TO FATAL ERROR IN BULK DATA') 5500 CALL MESAGE (-61,0,0) 5600 WRITE (OUTTAP,5650) UWM 5650 FORMAT (A25,' - FATAL ERRORS ENCOUNTERED IN USER INPUT DECK,', 1 /5X,'HOWEVER, NASTRAN WILL ATTEMPT TO PLOT THE UNDEFORMED', 2 ' STRUCTURE AS REQUESTED BY USER') 5700 PLOTF = -PLOTF 5800 RETURN C 6100 FORMAT (A29,' - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT', 1 ' USED DUE TO') 6200 FORMAT (5X,'THE PRESENCE OF AXISYMMETRIC ',A4,A1,' DATA') 6300 FORMAT (1H0,10X,'**NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**') C END ================================================ FILE: mis/seteq.f ================================================ SUBROUTINE SETEQ (NAME1,NAME2,PREFX,DRY2,ITEST,IMORE,LIM) C C SETS THE SUBSTRUCTURE NAME2 EQUIVALENT TO THE SUBSTRUCTURE NAME1. C THE OUTPUT VARIABLE ITEST TAKES ON ONE OF THE FOLLOWING VALUES C C 4 IF NAME1 DOES NOT EXIST C 8 IF DRY DOES NOT EQUAL ZERO AND NAME2 OR ONE OF THE NEW C NAMES ALREADY EXISTS C 9 IF DRY IS EQUAL TO ZERO AND NAME2 OR ONE OF THE NEW NAMES C DOES NOT EXIST C 1 OTHERWISE C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF LOGICAL DITUP,MDIUP,MORE DIMENSION NAME1(2),NAME2(2),ISAVE(50),NAMNEW(2), 1 IMORE(1),NMSBR(2) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /MACHIN/ MACH,IHALF,JHALF COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL, 1 IO ,IODUM(7),MDI,MDIPBN,MDILBN,MDIBL, 2 NXTDUM(15),DITUP,MDIUP COMMON /SYS / BLKSIZ,DIRSIZ,SYS(3),IFRST COMMON /OUTPUT/ TITLE(96),SUBTIT(96) COMMON /SYSTEM/ NBUFF,NOUT,DUM(36),NBPC,NBPW,NCPW COMMON /ITEMDT/ NITEM,ITEM(7,1) DATA PS, SS, IB, LL, CS, HL, BB, IRD, IWRT, INDSBR / 1 1 , 1 , 1 , 2, 2, 2, 1, 1, 2, 15 / DATA IEMPTY, MASK, NMSBR / 2 4H , 4HMASK, 4HSETE,4HQ / C CALL CHKOPN (NMSBR(1)) IF (NITEM+IFRST-1 .GT. 50) GO TO 970 DRY = DRY2 ITEST = 1 CALL FDSUB (NAME1(1),IND1) IF (IND1 .EQ. -1) GO TO 900 MASK = ANDF(MASK,2**(NBPW-4*NBPC)-1) MASKSS = COMPLF(LSHIFT(1023,10)) MASKLL = COMPLF(LSHIFT(1023,20)) MASKBB = LSHIFT(1023,20) C C IF NAME2 EXISTS - VERIFY THAT IT IS MARKED EQUIVALENT TO NAME1. C NAME2 MAY ALREADY EXIST FOR RUN=GO OR OPTIONS=PA C CALL FDSUB (NAME2(1),IND2) IF (IND2 .EQ. -1) GO TO 10 DRY = 0 C CALL FMDI (IND2,IMDI) IPS = ANDF(BUF(IMDI+PS),1023) IF (IPS .EQ. 0) GO TO 920 IF (IPS .EQ. IND1) GO TO 10 CALL FMDI (IND1,IMDI) IPP = ANDF(BUF(IMDI+PS),1023) IF (IPS .NE. IPP) GO TO 920 C C STEP 1. MAKE A LIST OF ALL THE SUBSTRUCTURES CONTRIBUTING TO THE C SUBSTRUCTURE NAME1, AND STORE IT IN THE ARRAY IMORE C 10 ITOP = 1 IMORE(ITOP) = IND1 IPTR = 1 20 CALL FMDI (IND1,IMDI) I = BUF(IMDI+LL) INDLL = RSHIFT(ANDF(I,1073741823),20) INDCS = RSHIFT(ANDF(I,1048575) ,10) IF (INDLL .EQ. 0) GO TO 40 DO 30 J = 1,ITOP IF (IMORE(J) .EQ. INDLL) GO TO 40 30 CONTINUE ITOP = ITOP + 1 IF (ITOP .GT. LIM) GO TO 960 IMORE(ITOP) = INDLL 40 IF (INDCS.EQ.0 .OR. IPTR.EQ.1) GO TO 60 DO 50 J = 1,ITOP IF (IMORE(J) .EQ. INDCS) GO TO 60 50 CONTINUE ITOP = ITOP + 1 IF (ITOP .GT. LIM) GO TO 960 IMORE(ITOP) = INDCS 60 IF (IPTR .EQ. ITOP) GO TO 100 IPTR = IPTR + 1 IND1 = IMORE(IPTR) GO TO 20 C C STEP 2. CREATE AN IMAGE SUBSTRUCTURE FOR EACH SUBSTRUCTURE IN THE C ARRAY IMORE, AND STORE ITS INDEX IN THE ARRAY IMAGE. NOTE THAT C SINCE IMORE(1) CONTAINS THE INDEX OF NAME1, IMAGE(1) WILL CONTAIN C THE INDEX OF NAME2 C FOR EACH NEW NAME CHECK THAT MAKING ROOM FOR THE PREFIX DOES NOT C TRUNCATE THE NAME C 100 IF (IPTR .NE. 1) GO TO 110 CALL FDSUB (NAME2(1),I) GO TO 120 110 CALL FDIT (IND1,IDIT) FIRST = KLSHFT(KRSHFT(PREFX,NCPW-1),NCPW-1) REST = KLSHFT(KRSHFT(BUF(IDIT),NCPW-3),NCPW-4) NAMNEW(1) = ORF(ORF(FIRST,REST),MASK) FIRST = KLSHFT(KRSHFT(BUF(IDIT),NCPW-4),NCPW-1) REST = KLSHFT(KRSHFT(BUF(IDIT+1),NCPW-3),NCPW-4) NAMNEW(2)= ORF(ORF(FIRST,REST),MASK) IF (KHRFN1(IEMPTY,4,BUF(IDIT+1),4) .NE. IEMPTY) 1 WRITE (NOUT,850) UWM,NAMNEW,BUF(IDIT),BUF(IDIT+1) CALL FDSUB (NAMNEW(1),I) 120 IF (DRY .NE. 0) GO TO 130 IF (I .NE.-1) GO TO 170 GO TO 910 130 IF (I .EQ. -1) GO TO 150 IPTR = IPTR + 1 IF (IPTR .GT. ITOP) GO TO 920 DO 140 I = IPTR,ITOP IMAGE = IMORE(LIM+I) CALL FDIT (IMAGE,IDIT) BUF(IDIT ) = IEMPTY BUF(IDIT+1) = IEMPTY DITUP = .TRUE. 140 CONTINUE GO TO 920 150 IF (IPTR .NE. 1) GO TO 160 CALL CRSUB (NAME2(1),I) GO TO 170 160 CALL CRSUB (NAMNEW(1),I) 170 IMORE(IPTR+LIM) = I IF (IPTR .EQ. 1) GO TO 200 IPTR = IPTR - 1 IND1 = IMORE(IPTR) GO TO 100 C C STEP 3. BUILD THE MDI OF NAME2, AND OF ALL IMAGE SUBSTRUCTURES C 200 IND2 = I 210 CALL FMDI (IND1,IMDI) DO 220 J = 1,DIRSIZ ISAVE(J) = BUF(IMDI+J) 220 CONTINUE C C SET THE SS ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND1 C IF (DRY .EQ. 0) GO TO 230 BUF(IMDI+SS) = ORF(ANDF(BUF(IMDI+SS),MASKSS),LSHIFT(IND2,10)) MDIUP = .TRUE. 230 CALL FMDI (IND2,IMDI) IF (DRY .EQ. 0) GO TO 420 I = ISAVE(PS) C C SET THE PS ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND2 C IPS = ANDF(I,1023) IF (IPS .EQ. 0) GO TO 240 BUF(IMDI+PS) = IPS GO TO 250 240 BUF(IMDI+PS) = IND1 C C SET THE SS ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND2 C 250 ISS = RSHIFT(ANDF(I,1048575),10) IF (ISS .EQ. 0) GO TO 260 BUF(IMDI+SS) = ORF(ANDF(BUF(IMDI+SS),MASKSS),LSHIFT(ISS,10)) C C SET THE BB ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND2 C 260 IBS = ANDF(I,MASKBB) BUF(IMDI+BB) = ORF(ANDF(BUF(IMDI+BB),MASKLL),IBS) I = ISAVE(LL) C C SET THE HL ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND2 C IF (IPTR .EQ. 1) GO TO 300 IHL = ANDF(I,1023) IF (IHL.EQ.0) GO TO 280 ASSIGN 270 TO IRET IWANT = IHL GO TO 320 270 BUF(IMDI+HL) = IFND C C SET THE CS ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND2 C 280 ICS = RSHIFT(ANDF(I,1048575),10) IF (ICS .EQ. 0) GO TO 300 ASSIGN 290 TO IRET IWANT = ICS GO TO 320 290 BUF(IMDI+CS) = ORF(ANDF(BUF(IMDI+CS),MASKSS),LSHIFT(IFND,10)) C C SET THE LL ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND2 C 300 ILL = RSHIFT(ANDF(I,1073741823),20) IF (ILL .EQ. 0) GO TO 400 ASSIGN 310 TO IRET IWANT = ILL GO TO 320 310 BUF(IMDI+LL) = ORF(ANDF(BUF(IMDI+LL),MASKLL),LSHIFT(IFND,20)) GO TO 400 C C FIND THE INDEX OF THE IMAGE SUBSTRUCTURE TO THE SUBSTRUCTURE WITH C INDEX IWANT. STORE THE FOUND INDEX IN IFND C 320 DO 330 K = 1,ITOP IF (IMORE(K) .NE. IWANT) GO TO 330 IFND = IMORE(LIM+K) GO TO IRET, (270,290,310) 330 CONTINUE GO TO 930 C C SET THE POINTERS OF THE ITEMS BELONGING TO THE SUBSTRUCTURE WITH C INDEX IND2 C 400 DO 410 J = IFRST,DIRSIZ 410 BUF(IMDI+J) = 0 420 IF (IPTR .EQ. 1) GO TO 440 C C IMAGE SUBSTRUCTURE - SET POINTERS TO SHARED ITEMS AND SET IB BIT C DO 430 J = 1,NITEM IF (ITEM(4,J) .NE. 0) GO TO 430 ITM = J + IFRST - 1 IF (BUF(IMDI+ITM) .EQ. 0) BUF(IMDI+ITM) = ISAVE(ITM) 430 CONTINUE BUF(IMDI+IB) = ORF(BUF(IMDI+IB),LSHIFT(1,30)) GO TO 500 C C SECONDARY SUBSTRUCTURE - SET POINTERS TO SHARED ITEMS C 440 DO 450 J = 1,NITEM IF (ITEM(5,J) .NE. 0) GO TO 450 ITM = J + IFRST - 1 IF (BUF(IMDI+ITM) .EQ. 0) BUF(IMDI+ITM) = ISAVE(ITM) 450 CONTINUE C C COPY APPROPRIATE ITEMS OF NAME1 AND WRITE THEM FOR C NAME2 AFTER CHANGING NAME1 TO NAME2 AND INSERTING THE NEW PREFIX C TO THE NAMES OF ALL CONTRIBUTING SUBSTRUCTURES C 500 DO 700 J = 1,NITEM IF (ITEM(3,J) .EQ. 0) GO TO 700 KK = J + IFRST - 1 IF (BUF(IMDI+KK) .NE. 0) GO TO 700 IRDBL = ANDF(ISAVE(KK),JHALF) IF (IRDBL.NE.0 .AND. IRDBL.NE.JHALF) GO TO 510 BUF(IMDI+KK) = ISAVE(KK) GO TO 700 510 CALL SOFIO (IRD,IRDBL,BUF(IO-2)) CALL FDIT (IND2,IDIT) BUF(IO+1) = BUF(IDIT ) BUF(IO+2) = BUF(IDIT+1) CALL GETBLK (0,IWRTBL) IF (IWRTBL .EQ. -1) GO TO 940 NEWBLK = IWRTBL NUMB = ITEM(3,J)/1000000 MIN = (ITEM(3,J) - NUMB*1000000)/1000 INC = ITEM(3,J) - NUMB*1000000 - MIN*1000 NUMB = BUF(IO+NUMB) IF (NUMB.GT.1 .OR. ILL.NE.0 .OR. IPTR.NE.1) GO TO 530 C C BASIC SUBSTRUCTURE C BUF(IO+MIN ) = NAME2(1) BUF(IO+MIN+1) = NAME2(2) MORE = .FALSE. GO TO 580 C C NOT A BASIC SUBSTRUCTURE C 530 IF (NUMB .LE. (BLKSIZ-MIN+1)/INC) GO TO 540 NUMB = NUMB - (BLKSIZ-MIN+1)/INC MAX = BLKSIZ MORE = .TRUE. GO TO 550 540 MAX = MIN + INC*NUMB - 1 MORE = .FALSE. C C INSERT THE NEW PREFIX TO THE NAMES OF ALL CONTRIBUTING SUBSTRUC- C TURES C IF THE COMPONENT IS FOR MODAL DOF ON THE SECONDARY SUBSTRUCTURE, C USE THE ACTUAL NAME INSTEAD OF ADDING A PREFIX C 550 DO 570 K = MIN,MAX,INC IF (BUF(IO+K).EQ.NAME1(1) .AND. BUF(IO+K+1).EQ.NAME1(2)) 1 GO TO 560 FIRST = KLSHFT(KRSHFT(PREFX,NCPW-1),NCPW-1) REST = KLSHFT(KRSHFT(BUF(IO+K ),NCPW-3),NCPW-4) FIRST2= KLSHFT(KRSHFT(BUF(IO+K ),NCPW-4),NCPW-1) REST2 = KLSHFT(KRSHFT(BUF(IO+K+1),NCPW-3),NCPW-4) BUF(IO+K ) = ORF(ORF(FIRST ,REST ),MASK) BUF(IO+K+1) = ORF(ORF(FIRST2,REST2),MASK) GO TO 570 C 560 BUF(IO+K ) = NAME2(1) BUF(IO+K+1) = NAME2(2) 570 CONTINUE C C WRITE OUT UPDATED DATA BLOCK C 580 CALL SOFIO (IWRT,IWRTBL,BUF(IO-2)) CALL FNXT (IRDBL,INXT) IF (MOD(IRDBL,2) .EQ. 1) GO TO 590 NEXT = ANDF(RSHIFT(BUF(INXT),IHALF),JHALF) GO TO 600 590 NEXT = ANDF(BUF(INXT),JHALF) 600 IF (NEXT .EQ. 0) GO TO 620 C C MORE BLOCKS TO COPY C IRDBL = NEXT CALL GETBLK (IWRTBL,NEXT) IF (NEXT.NE.-1) GO TO 610 CALL RETBLK (NEWBLK) GO TO 940 610 IWRTBL = NEXT CALL SOFIO (IRD,IRDBL,BUF(IO-2)) MIN = 1 IF (MORE) GO TO 530 GO TO 580 C C NO MORE BLOCKS TO COPY. UPDATE MDI OF NAME2 C 620 BUF(IMDI+KK) = ORF(LSHIFT(RSHIFT(ISAVE(KK),IHALF),IHALF),NEWBLK) 700 CONTINUE C MDIUP = .TRUE. IF (IPTR .EQ. ITOP) GO TO 720 IPTR = IPTR + 1 IND1 = IMORE(IPTR ) IND2 = IMORE(IPTR+LIM) GO TO 210 C C WRITE USER MESSAGES C 720 IF(DRY .EQ. 0) GO TO 780 DO 730 I = 1,96 730 SUBTIT(I) = IEMPTY CALL PAGE CALL PAGE2 (-4) WRITE (NOUT,800) NAME2,NAME1 IMAGE = IMORE(LIM+1) CALL FMDI (IMAGE,IMDI) IPS = ANDF(BUF(IMDI+1),1023) CALL FDIT (IPS,I) CALL PAGE2 (-2) WRITE (NOUT,810) NAME2,BUF(I),BUF(I+1) IPTR = 2 IF (IPTR .GT. ITOP) GO TO 990 CALL PAGE2 (-2) WRITE (NOUT,820) 740 DO 750 I = 1,16 750 IMORE(I) = IEMPTY J = 1 760 IMAGE = IMORE(IPTR+LIM) CALL FDIT (IMAGE,I) IMORE(J ) = BUF(I ) IMORE(J+1) = BUF(I+1) IPTR = IPTR + 1 IF (IPTR .GT. ITOP) GO TO 770 J = J + 2 IF (J .LT. 16) GO TO 760 770 CALL PAGE2 (-2) WRITE (NOUT,830) (IMORE(J),J=1,16) IF (IPTR .LE. ITOP) GO TO 740 GO TO 990 C C DRY RUN - PRINT MESSAGE INDICATING ONLY ADDITIONS MADE C 780 CALL PAGE2 (-3) WRITE (NOUT,840) UIM,NAME2,NAME1,NAME2 GO TO 990 C 800 FORMAT (32X,67HS U B S T R U C T U R E E Q U I V A L E N C E O 1 P E R A T I O N ,///23X,13HSUBSTRUCTURE ,2A4,56H HAS BEEN CREATED 2 AND MARKED EQUIVALENT TO SUBSTRUCTURE ,2A4) 810 FORMAT (1H0,22X,28HTHE PRIMARY SUBSTRUCTURE OF ,2A4,4H IS ,2A4) 820 FORMAT (1H0,22X, 56HTHE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GE 1NERATED --) 830 FORMAT (1H0,22X,10(2A4,2X)) 840 FORMAT (A29,' 6228, SUBSTRUCTURE ',2A4,' IS ALREADY AN EQUIVALENT' 1, ' SUBSTRUCTURE TO ',2A4, /36X,'ONLY ITEMS NOT PREVIOUSLY ', 2 'EXISTING FOR ',2A4,' HAVE BEEN MADE EQUIVALENT.') 850 FORMAT (A25,' 6236, DURING THE CREATION OF A NEW IMAGE SUBSTRUC', 1 'TURE NAMED ',2A4,' THE LAST CHARACTER ', /5X, 2 'OF SUBSTRUCTURE NAMED ',2A4,' WAS TRUNCATED TO MAKE ROOM', 3 ' FOR THE PREFIX.') C C ERROR CONDITIONS C 900 ITEST = 4 GO TO 990 910 ITEST = 9 GO TO 990 920 ITEST = 8 GO TO 990 930 CALL ERRMKN (INDSBR,3) 940 WRITE (NOUT,950) UFM 950 FORMAT (A23,' 6223, SUBROUTINE SETEQ - THERE ARE NO MORE FREE ', 1 'BLOCKS AVAILABLE ON THE SOF.') K = -37 GO TO 980 960 K = -8 GO TO 980 970 CALL ERRMKN (INDSBR,10) 980 CALL SOFCLS CALL MESAGE (K,0,NMSBR) C 990 RETURN END ================================================ FILE: mis/setfnd.f ================================================ SUBROUTINE SETFND(*,SET,LSET,ID,NEXT) C***** C FINDS AN ID IN A SORTED SET LIST WHICH MAY HAVE THE NASTRAN THROUGH C NOTATION. IE. 6,-18 IMPLIES 6 THRU 18. C C -SET- IS THE LIST OF IDS. C -LSET- IS THE LENGTH OF THE LIST IN -SET-. C -ID- IS THE ID BEING LOOKED FOR IN THE LIST -SET-. C -NEXT- IS A RELATIVE INDEX INTO THE LIST -SET-. IT SHOULD BE SET C TO 1 ON THE FIRST CALL TO THIS ROUTINE FOR A GIVEN LIST AND THEN C RETURNED ON FUTURE CALLS. C C THIS ROUTINE MOVES FORWARD ONLY UNTIL AN ID IN THE LIST IS GREATER C THAN THE ID BEING ASKED FOR. -NEXT- IF NOT RESET TO 1 WILL ALLOW C THE ROUTINE TO SEARCH ONLY FROM WHERE LAST SEARCH LEFT OFF. C C THE NON-STANDARD RETURN IS TAKEN IN THE EVENT THE ID IS NOT IN THE C LIST. A NORMAL RETURN IS TAKEN IF THE ID IS IN THE LIST. C C -NEXT- SHOULD BE SET TO 1 ON THE FIRST CALL TO THIS ROUTINE OR WHEN C AN ID TO BE LOOKED FOR IS SMALLER THAN AN ID PREVIOUSLY LOOKED FOR. C C IF IDS TO BE LOOKED FOR ARE NOT IN SORT AND THE SET LIST IS IN SORT C WITHOUT THE NASTRAN THROUGH NOTATION, THEN THE NASTRAN BINARY SEARCH C ROUTINE -BISRCH- SHOULD BE USED. C C IT IS OK TO CALL THIS ROUTINE WITH MORE THAN ONE OF THE SAME IDS C WITHOUT RESETTING -NEXT-. C***** INTEGER SET(LSET) C 10 ID1 = SET(NEXT) 20 IF( NEXT - LSET ) 30,80,100 C C STILL POSITIONED WITHIN THE SET LIST. C 30 IF( ID - ID1 ) 100,110,40 C C CHECK FOR THRU CASE C 40 ID1 = SET(NEXT+1) IF( ID1 ) 50,70,70 C C YES POSITIONED IN A THRU CASE C 50 IF( ID + ID1 ) 110,110,60 C C ID BEING LOOKED FOR IS BEYOND THIS THRU CASE. C 60 NEXT = NEXT + 2 GO TO 10 C C NOT IN A THRU CASE C 70 NEXT = NEXT + 1 GO TO 20 C C AT THE LAST ID IN THE LIST C 80 IF( ID - ID1 ) 100,110,90 90 NEXT = NEXT + 1 100 RETURN 1 110 RETURN END ================================================ FILE: mis/setig.f ================================================ SUBROUTINE SETIG (KG1,KG2,IG,NORIG) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C THIS ROUTINE SETS IG(KG1,-)=KG2 AND IG(KG2,-)=KG1 IF THIS C CONNECTION HAS NOT ALREADY BEEN SET. C NEDGE = NUMBER OF UNIQUE EDGES. C INTEGER BUNPK DIMENSION IG(1), NORIG(1), SUB(2) COMMON /BANDS / NN, MM, DUM2(2), MAXGRD, MAXDEG, 1 DUM3(3), NEDGE COMMON /SYSTEM/ IBUF, NOUT DATA SUB / 4HSETI, 4HG / C IF (KG1.EQ.0 .OR. KG2.EQ.0 .OR. KG1.EQ.KG2) GO TO 80 L=KG1 K=KG2 DO 50 LOOP=1,2 IF (LOOP.EQ.1) GO TO 20 L=KG2 K=KG1 20 M=0 30 M=M+1 IF (M.GT.MAXDEG) GO TO 60 IS=BUNPK(IG,L,M) IF (IS.EQ.0) GO TO 40 IF (IS.NE.K) GO TO 30 GO TO 80 40 CALL BPACK (IG,L,M,K) MM=MAX0(MM,M) IF (LOOP.EQ.1) NEDGE = NEDGE + 1 50 CONTINUE GO TO 80 C 60 WRITE (NOUT,70) NORIG(L),MAXDEG 70 FORMAT (34H0*** FATAL ERROR - - - GRID POINT,I10, 1 48H HAS DEGREE EXCEEDING THE NODAL DEGREE LIMIT OF,I8) CALL MESAGE (-8,0,SUB) 80 RETURN END ================================================ FILE: mis/setinp.f ================================================ SUBROUTINE SETINP C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,COMPLF REAL FWRD DOUBLE PRECISION DWRD DIMENSION NAME(2),EL(1),GP(1),CARD(65),TYP(100),AWRD(2), 1 PCARD(20),POCARD(200) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / SKP11,NSETS,SKP12(8),PCDB,SKP2(9), 1 MERR,PLOT,MSETID,SKP3(7),MSET,IPCDB COMMON /SYSTEM/ BUFSIZ,NOUT,NOGO,NIN,NSK(81),INTR COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1) COMMON /ZZZZZZ/ X(1) EQUIVALENCE (X(1),EL(1),GP(1)) EQUIVALENCE (WORD,AWRD(1),IWRD,FWRD,DWRD) DATA INPREW, OUTREW,REW,NOREW,EOR / 0, 1, 1, 3, 1000000 / DATA BLNK , STOP,GO,NAME /4H ,4HSTOP,4HGO ,4H SET,3HINP / DATA SET , INCL, EXCL, ELEM, GRID, POIN, EXCE, TO / 1 3HSET , 4HINCL,4HEXCL,4HELEM,4HGRID,4HPOIN,4HEXCE,2HTO / DATA THRU , ALL, ILXX /4HTHRU,3HALL, 2HXX / C CALL DELSET B1 = KORSZ(X) - 5*BUFSIZ + 1 B2 = B1 + BUFSIZ B3 = B2 + BUFSIZ B4 = B3 + BUFSIZ NOGO = 0 ORG = 0 PORG = -1 ALLON = COMPLF(0) POCARD(200) = RSHIFT(ALLON,1) ENCARD = POCARD(200) C C OPEN ALL NECESSARY FILES C IOREW = INPREW IF (INTR .LE. 0) GO TO 10 PCDB = IPCDB IOREW = OUTREW 10 CALL OPEN (*210,PCDB,X(B1),IOREW) IF (INTR .LE. 0) GO TO 50 C WRITE (NOUT,270) 20 DO 25 J = 1,20 25 PCARD(J) = BLNK DO 26 J = 1,199 26 POCARD(J) = BLNK CALL XREAD (*28,PCARD) IF (PCARD(1) .EQ. STOP) GO TO 220 IF (PCARD(1) .EQ. GO) GO TO 40 CALL XRCARD (POCARD,199,PCARD) CALL IFP1PC (1,ICONT,POCARD,ORG,PORG) IF (NOGO .EQ. 0) GO TO 30 NOGO = 0 28 WRITE (NOUT,300) GO TO 20 30 WRITE (1,290) PCARD IE = 1 DO 33 J = 1,199 IF (POCARD(J) .NE. 0) GO TO 32 DO 31 JC = 1,5 31 IF (POCARD(J+JC) .NE. BLNK) GO TO 32 NW = J GO TO 34 32 IF (POCARD(J) .NE. ENCARD) GO TO 33 NW = J GO TO 34 33 CONTINUE NW = 80 34 CALL WRITE (PCDB,POCARD,NW,IE) GO TO 20 40 CALL CLOSE (PCDB,REW) IF (INTR .GT. 10) NOUT = 1 CALL OPEN (*210,PCDB,X(B1),INPREW) 50 IF (INTR .LE. 0) CALL FREAD (PCDB,0,-2,1) CALL GOPEN (PLOT,X(B2),OUTREW) CALL GOPEN (MSET,X(B3),OUTREW) CALL GOPEN (MSETID,X(B4),OUTREW) CALL RDMODX (PCDB,MODE,WORD) C C READ MODE FLAG. SHOULD BE ALPHABETIC C 100 CALL READ (*200,*200,PCDB,MODE,1,0,I) IF (MODE) 101,100,102 101 I = 1 IF (MODE .EQ. -4) I = 2 CALL FREAD (PCDB,0,-I,0) GO TO 100 102 IF (MODE .LT. EOR) GO TO 103 CALL FREAD (PCDB,0,0,1) GO TO 100 103 MODE = MODE + 1 CALL RDWORD (MODE,WORD) CALL RDWORD (MODE,WORD) IF (WORD.EQ.SET .AND. MODE.EQ.0) GO TO 115 C C THIS CARD IS A PLOT CONTROL CARD C 105 CALL BCKREC (PCDB) 106 CALL READ (*200,*110,PCDB,CARD,65,1,I) WRITE (NOUT,108) 108 FORMAT (' ARRAY CARD OF 65 TOO SAMLL') CALL MESAGE (-37,0,NAME) 110 CALL WRITE (PLOT,CARD,I,1) IF (CARD(I)) 100,106,100 C C THIS CARD DEFINES A NEW SET C 115 ASSIGN 116 TO TRA CALL RDMODE (*250,*105,*100,MODE,WORD) 116 SETID = IWRD NELX = 0 NGPX = B1 NT = 0 XX = 1 ELGP = 0 C IF (MODE .LE. 0) CALL RDMODE (*136,*121,*175,MODE,WORD) 121 CALL RDWORD (MODE,WORD) C C CHECK FOR AN -INCLUDE- OR -EXCLUDE- CARD C 125 IF (WORD.NE.INCL .AND. WORD.NE.EXCL .AND. WORD.NE.EXCE) GO TO 128 126 IF (WORD .EQ. INCL) XX = 1 IF (WORD .EQ. EXCL) XX =-1 IF (WORD .EQ. EXCE) XX =-XX IF (MODE.EQ.0) CALL RDMODE (*136,*127,*175,MODE,WORD) 127 CALL RDWORD (MODE,WORD) 128 IF (WORD .EQ. GRID) GO TO 131 IF (WORD .NE. ELEM) GO TO 147 C C ELEMENTS ARE TO BE INCLUDED OR EXCLUDED (BY ID OR TYPE) C ELGP = 0 IF (MODE) 136,135,121 C C A LIST OF GRID POINTS IS TO BE INCLUDED OR EXCLUDED (PERTAIN ONLY C TO DEFORMED PLOTS) C 131 IF (MODE .LE. 0) CALL RDMODE (*131,*132,*175,MODE,WORD) 132 CALL RDWORD (MODE,WORD) IF (WORD.NE.POIN .OR. MODE.NE.0) GO TO 125 ELGP = 1 C C A LIST OF ELEMENT OR GRID POINT ID-S CAN BE EXPLICITLY LISTED, OR C PREFERABLY A RANGE CAN BE SPECIFIED (SEPARATED BY THE WORD -TO- C OR -THRU-) C 135 CALL RDMODE (*136,*121,*175,MODE,WORD) 136 ASSIGN 137 TO TRA GO TO 250 137 IF (NELX+1 .GE. NGPX) CALL MESAGE (-8,0,NAME) IF (ELGP .NE. 0) GO TO 138 NELX = NELX + 1 EL(NELX) = ISIGN(IWRD,XX) GO TO 140 138 NGPX = NGPX - 1 GP(NGPX) = ISIGN(IWRD,XX) C 140 CALL RDMODE (*250,*141,*175,MODE,WORD) 141 CALL RDWORD (MODE,WORD) IF (WORD.NE.TO .AND. WORD.NE.THRU) GO TO 125 IF (MODE .NE. 0) GO TO 125 ASSIGN 142 TO TRA CALL RDMODE (*250,*125,*175,MODE,WORD) 142 IF (NELX+2 .GE. NGPX) CALL MESAGE (-8,0,NAME) IF (ELGP .NE. 0) GO TO 143 EL(NELX+1) = TO EL(NELX+2) = IWRD NELX = NELX + 2 GO TO 135 143 GP(NGPX-1) = TO GP(NGPX-2) = ISIGN(IWRD,XX) NGPX = NGPX - 2 GO TO 135 C C AN ELEMENT TYPE CAN BE INCLUDED OR EXCLUDED C 145 IF (MODE .LE. 0) CALL RDMODE (*136,*146,*175,MODE,WORD) 146 CALL RDWORD (MODE,WORD) 147 IF (WORD.EQ.INCL .OR. WORD.EQ.EXCL .OR. WORD.EQ.EXCE) GO TO 126 IF (WORD.EQ.GRID .OR. WORD.EQ.ELEM) GO TO 128 IF (WORD .NE. ALL) GO TO 150 I = NTYPES + 1 149 NT = NT + 2 C C SECOND WORD FOR EACH TYP LOCATES ELEMENT INCLUDE/EXCLUDE SEARCH C POINTER. ELEMENT ID-S GIVEN PRIOR TO NELX ARE SKIPPED C TYP(NT-1) = ISIGN(I,XX) TYP(NT ) = NELX + 1 ELGP = 0 GO TO 145 C 150 DO 151 I = 1,NTYPES IDX = (I-1)*INCR C C SKIP ELEMENTS WITH C 1 GRID C SCALAR CONNECTIONS POSSIBLE C SPECIAL PLOTTER MNEMONIC OF -XX- C IF (NE(IDX+10).LE.1 .OR. NE(IDX+11).NE.0) GO TO 151 IF (NE(IDX+16) .EQ. ILXX) GO TO 151 IF (AWRD(1).EQ.NE(IDX+1) .AND. AWRD(2).EQ.NE(IDX+2)) GO TO 149 151 CONTINUE WRITE (NOUT,155) UFM,AWRD 155 FORMAT (A23,' 699,',2A4,' ELEMENT IS INVALID') NOGO = 1 ELGP = 0 GO TO 145 C C A SET HAS BEEN COMPLETELY DEFINED. FIRST, WRITE THE SET ID C 175 IF (NELX.EQ.0 .AND. NT.EQ.0) GO TO 100 CALL WRITE (MSETID,SETID,1,0) CALL WRITE (MSET,SETID,1,0) C C WRITE THE SET OF EXPICIT ELEMENT ID-S C CALL WRITE (MSET,NELX,1,0) CALL WRITE (MSET,EL,NELX,0) C C DELETE ALL ELEMENT TYPE DUPLICATES + WRITE REMAINING ONES C N = 0 IF (NT .EQ. 0) GO TO 178 DO 177 J = 1,NT,2 XX = TYP(J) IF (XX .EQ. 0) GO TO 177 DO 176 I = J,NT,2 IF (I.EQ.J .OR. IABS(XX).NE.IABS(TYP(I))) GO TO 176 C C DELETE BOTH IF NEGATIVE OF OTHER C IF (XX .EQ. -TYP(I)) TYP(J) = 0 TYP(I) = 0 176 CONTINUE IF (TYP(J) .EQ. 0) GO TO 177 N = N + 2 TYP(N-1) = XX TYP(N ) = TYP(J+1) 177 CONTINUE 178 CALL WRITE (MSET,N,1,0) CALL WRITE (MSET,TYP,N,0) C C WRITE THE SET OF EXPLICIT GRID POINT ID-S C N = B1 - NGPX CALL WRITE (MSET,N,1,0) CALL WRITE (MSET,GP(NGPX),N,1) NSETS = NSETS + 1 GO TO 100 C C END OF -PCDB- C 200 CALL CLSTAB (MSET,REW) CALL CLSTAB (PLOT,REW) CALL CLSTAB (MSETID,NOREW) CALL CLOSE (PCDB,REW) IF (NSETS .EQ. 0) WRITE (NOUT,205) UIM 205 FORMAT (A29,', NO SETS EXIST IN PLOT PACKAGE') IF (NOGO .NE. 0) CALL MESAGE (-61,0,0) 210 RETURN 220 NOGO = 1 RETURN C C READ AN INTEGER C 250 IF (MODE .EQ. -1) GO TO 260 IF (MODE .EQ. -4) IWRD = DWRD IF (MODE .NE. -4) IWRD = FWRD 260 GO TO TRA, (116,137,142) C 270 FORMAT (' ENTER PLOT DEFINITION OR ''GO'' IF DONE.') 290 FORMAT (20A4) 300 FORMAT (' BAD CARD TRY AGIAN') END ================================================ FILE: mis/setlvl.f ================================================ SUBROUTINE SETLVL (NEWNM,NUMB,OLDNMS,ITEST,IBIT) C C CREATES A NEW SUBSTRUCTURE NEWNM WHERE C - NEWNM IS AN INDEPENDENT SUBSTRUCTURE IF NUMB = 0 C - NEWNM IS REDUCED FROM THE FIRST SUBSTRUCTURE IN THE ARRAY OLDNMS C - NEWNM RESULTS FROM COMBINING THE FIRST I SUBSTRUCTURES IN THE C ARRAY OLDNMS IF NUMB = I C C THE OUTPUT VARIABLE ITEST TAKES ON ONE OF THE FOLLOWING VALUES C 4 IF ONE OR MORE SUBSTRUCTURES IN OLDNMS DO NOT EXIST C 7 IF NEWNM ALREADY EXISTS C 8 IF ONE OF THE SUBSTRUCTURES IN OLDNMS HAS ALREADY C BEEN USED IN A REDUCTION OR COMBINATION C 1 OTHERWISE C C IF ITEST IS SET TO 4, NUMB WILL BE SET TO THE NUMBER OF C SUBSTRUCTURES IN OLDNMS THAT DO NOT EXIST AND THE FIRST NUMB NAMES C IN OLDNMS WILL BE SET TO THE NAMES OF THOSE SUBSTRUCTURES THAT DO C NOT EXIST. BIT IBIT OF THE FIRST MDI WORD IS SET TO INDICATE THE C APPROPRIATE TYPE OF SUBSTRUCTURE. IF IBIT IS ZERO NO CHANGE IS C MADE TO THE MDI C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,ANDF,ORF,COMPLF LOGICAL DITUP,MDIUP DIMENSION NEWNM(2),OLDNMS(14),IOLD(7),NMSBR(2) COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL, 1 IODUM(8),MDI,MDIPBN,MDILBN,MDIBL, 2 NXTDUM(15),DITUP,MDIUP DATA IEMPTY/ 4H /, NMSBR / 4HSETL,4HVL / DATA LL,CS , HL / 2,2,2 / DATA IB / 1 / C CALL CHKOPN (NMSBR(1)) ITEST = 1 CALL FDSUB (NEWNM(1),I) IF (I .NE. -1) GO TO 500 IF (NUMB .EQ. 0) GO TO 20 C C MAKE SURE THAT ALL THE SUBSTRUCTURES IN OLDNMS DO EXIST. C ICOUNT = 0 DO 10 I = 1,NUMB K = 2*(I-1) + 1 CALL FDSUB (OLDNMS(K),IOLD(I)) IF (IOLD(I) .GT. 0) GO TO 10 ICOUNT = ICOUNT + 1 KK = 2*(ICOUNT-1) + 1 OLDNMS(KK ) = OLDNMS(K ) OLDNMS(KK+1) = OLDNMS(K+1) 10 CONTINUE IF (ICOUNT .EQ. 0) GO TO 20 NUMB = ICOUNT GO TO 510 20 CALL CRSUB (NEWNM(1),INEW) IF (NUMB .EQ. 0) RETURN C C NEWNM IS NOT A BASIC SUBSTRUCTURE (LEVEL 0). C UPDATE NEWNM S DIRECTORY IN THE MDI. C CALL FMDI (INEW,IMDI) LLMASK = COMPLF(LSHIFT(1023,20)) BUF(IMDI+LL) = ORF(ANDF(BUF(IMDI+LL),LLMASK),LSHIFT(IOLD(1),20)) IF (IBIT .NE. 0) BUF(IMDI+IB) = ORF(BUF(IMDI+IB),LSHIFT(1,IBIT)) MDIUP = .TRUE. C C UPDATE IN THE MDI THE DIRECTORIES OF THE SUBSTRUCTURES IN OLDNMS. C IF (NUMB .GT. 7) NUMB = 7 MASKCS = COMPLF(LSHIFT(1023,10)) DO 50 I = 1,NUMB CALL FMDI (IOLD(I),IMDI) IF (ANDF(BUF(IMDI+HL),1023) .EQ. 0) GO TO 40 ICOUNT = I GO TO 520 40 BUF(IMDI+HL) = ORF(BUF(IMDI+HL),INEW) MDIUP = .TRUE. IF (NUMB .EQ. 1) RETURN IF (I .EQ. NUMB) GO TO 130 BUF(IMDI+CS) = ORF(ANDF(BUF(IMDI+CS),MASKCS),LSHIFT(IOLD(I+1),10)) 50 CONTINUE 130 BUF(IMDI+CS) = ORF(ANDF(BUF(IMDI+CS),MASKCS),LSHIFT(IOLD(1),10)) RETURN C C NEWNM ALREADY EXISTS. C 500 ITEST = 7 RETURN C C ONE OR MORE OF THE SUBSTRUCTURES IN OLDNMS DO NOT EXIST. C 510 ITEST = 4 RETURN C C ONE OF THE SUBSTRUCTURES IN OLDNMS HAS ALREADY BEEN USED IN A C REDUCTION OR COMBINATION. REMOVE ALL CHANGES THAT HAVE BEEN MADE. C 520 ITEST = 8 CALL FDIT (INEW,IDIT) BUF(IDIT ) = IEMPTY BUF(IDIT+1) = IEMPTY DITUP = .TRUE. IF (2*INEW .NE. DITSIZ) GO TO 525 DITSIZ = DITSIZ - 2 525 DITNSB = DITNSB - 1 CALL FMDI (INEW,IMDI) BUF(IMDI+LL) = ANDF(BUF(IMDI+LL),LLMASK) MDIUP = .TRUE. ICOUNT = ICOUNT - 1 IF (ICOUNT .LT. 1) RETURN DO 530 I = 1,ICOUNT CALL FMDI (IOLD(I),IMDI) BUF(IMDI+HL) = ANDF(BUF(IMDI+HL),COMPLF(1023)) BUF(IMDI+CS) = ANDF(BUF(IMDI+CS),MASKCS) MDIUP = .TRUE. 530 CONTINUE RETURN END ================================================ FILE: mis/setval.f ================================================ SUBROUTINE SETVAL C EXTERNAL ANDF,RSHIFT INTEGER ANDF,RSHIFT,P,OSCAR,VPS,SUBNAM(2) COMMON /BLANK / P(2,5) COMMON /SYSTEM/ KSYSTM(65) COMMON /XVPS / VPS(1) COMMON /OSCENT/ OSCAR(1) EQUIVALENCE (KSYSTM(40),NBPW) DATA SUBNAM/ 4HSETV,4HAL / C J = 12 DO 100 I = 1,5 C C CHECK ODD PARAMETERS TO FIND VARIABLE ONES C IF (ANDF(RSHIFT(OSCAR(J+1),NBPW-1),1) .EQ. 0) GO TO 200 C C PARAMETER IS VARIABLE C K = ANDF(OSCAR(J+1),65535) P(1,I) = P(2,I) VPS(K) = P(1,I) J = J + 2 IF (ANDF(RSHIFT(OSCAR(J),NBPW-1),1) .EQ. 0) J = J + 1 100 CONTINUE GO TO 500 C 200 CONTINUE IF (I .GT. 1) GO TO 500 CALL MESAGE (-7,0,SUBNAM) C 500 CONTINUE RETURN END ================================================ FILE: mis/sfarea.f ================================================ SUBROUTINE SFAREA (NGPT,V,G) C C THIS SUBROUTINE IS CALLED ONLY BY EMGFIN TO COMPUTE THE SURFACE C AREAS OF THE SOLID AND PLATE ELEMENTS C NOTE - THE INPUT VALUE OF NGPT (NO. OF GRID POINTS) WILL BE C CHANGED TO NO. OF SURFACE AREAS (OUTPUT) BY THIS ROUTINE C C DEFINITION OF SURFACES ( 1 THRU 6) C C LET CORNER POINTS 1, 2, 3, 4 ON THE BOTTOM SURFACE OF A CUBE, C AND 5, 6, 7, AND 8 ARE ON TOP SURFACE. CORNER POINT 5 IS ON TOP C OF POINT 1, THEN FOR SOLID (BRICK) ELEMENTS - C C FACE CORNER POINTS C ------- --------------- C 1 1 2 3 4 C 2 1 2 6 5 C 3 2 3 7 6 C 4 3 4 8 7 C 5 4 1 5 8 C 6 5 6 7 8 C C IN WEDGE AND TETRA, FACE 1 CONTAINS CORNER POINTS 1, 2, AND 3, C FACE 2 IS MADE UP OF 1, 2, AND M, WHERE M IS A CORNER POINT NOT C ON FACE 1, AND SIMILARLY, FACE 3 HOLDS CONNER POINTS 2, 3, AND N, C AND SO ON. C C PLATE (TRIANG AND QUAD) ELEMENTS HAVE ONE SURFACE. MASS AND VOLUME C ARE COMPUTED HERE FOR THESE ELEMENTS. C INTEGER SUB(2), JX(6), KX(12), TYPE(6) REAL V(1), G(1), A(6) COMMON /BLANK/ DUMMY(16),VOLUME, SURFAC DATA TETRA, S2D8, TRIM6, TRPL1, TRSHL / 1 4HCTET, 4HCIS2, 4HCTRI, 4HCTRP, 4HCTRS / DATA JX / 129, 133, 137, 141, 145, 149 / DATA TYPE / 4, 3, 8, 6, 20, 32 / DATA KX / 9, 33, 5, 89, 17, 101, 29, 113, 41, 125, 89, 113 / DATA SUB / 4HSFAR, 4HEA / C C AREA(I,J,K)=.5*SQRT( C 1 ((G(J+2)-G(I+2))*(G(K+3)-G(I+3))-(G(J+3)-G(I+3))*(G(K+2)-G(I+2))) C 2 **2 C 3+((G(J+3)-G(I+3))*(G(K+1)-G(I+1))-(G(J+1)-G(I+1))*(G(K+3)-G(I+3))) C 4 **2 C 5+((G(J+1)-G(I+1))*(G(K+2)-G(I+2))-(G(J+2)-G(I+2))*(G(K+1)-G(I+1))) C 6 **2) C C (THE ABOVE FUNCTION MAY BE TOO LONG FOR SOME MACHINE THAT C WOULD CREATE PROBLEM IN COMPILING. SO MOVE IT OUT AND MAKE C IT AN EXTERNAL FUNCTION. AND ADD A 'G,' INSIDE ARG. LIST) C C C 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 - GRID PT C 1 5 9 13 17 21 25 29 33 37 41 45 49 53 57 61 65 69 73 77 - POINTER C C 21 22 23 24 25 26 27 28 29 30 31 32 C1 C2 C3 C4 C5 C6 C 81 85 89 93 97 101 105 109 113 117 121 125 129 133 137 141 145 149 C (WHERE C1, C2, ..., C6 ARE CENTER POINTS ON FACES 1, 2, ..., 6) C DO 10 L=1,6 IF (NGPT .EQ. TYPE(L)) GO TO (120,130,40,30,50,60), L C NO. OF GRID PT = 4, 3, 8, 6,20,32 10 CONTINUE CALL MESAGE (-37,0,SUB) C C 4-GRID ELEMENT (TETRA) C 20 A(1) = AREA(G,1,5,9 ) A(2) = AREA(G,1,5,13) A(3) = AREA(G,5,9,13) A(4) = AREA(G,1,9,13) NAREA = 4 GO TO 200 C C 6-GRID ELEMENT (WEDGE) C 30 IF (V(1).EQ.TRIM6 .OR. V(1).EQ.TRPL1 .OR. V(1).EQ.TRSHL) GO TO 150 A(1) = AREA(G,1,5,9) A(2) = AREA(G,1,5,13) + AREA(G,13,17,5) A(3) = AREA(G,5,9,17) + AREA(G,17,21,9) A(4) = AREA(G,1,9,13) + AREA(G,9,13,21) A(5) = AREA(G,13,17,21) NAREA = 5 GO TO 200 C C 8-GIRD ELEMENT C 40 IF (V(1) .EQ. S2D8) GO TO 140 A(1) = AREA(G,1,5,9) + AREA(G,1,9,13) A(2) = AREA(G,1,5,17) + AREA(G,5,17,21) A(3) = AREA(G,5,21,25) + AREA(G,5,25,9) A(4) = AREA(G,9,25,29) + AREA(G,9,29,13) A(5) = AREA(G,13,1,29) + AREA(G,1,29,17) A(6) = AREA(G,17,21,25)+ AREA(G,17,25,29) GO TO 110 C C 20-GRID ELEMENT C 50 A(1) = AREA(G, 1, 5,29) + AREA(G,29, 5,13) + AREA(G,13, 5, 9) + 1 AREA(G,13,17,21) + AREA(G,13,21,29) + AREA(G,29,25,21) A(2) = AREA(G, 1, 5,33) + AREA(G,33, 5,53) + AREA(G,53,33,49) + 1 AREA(G,37,57,53) + AREA(G,53,37, 5) + AREA(G, 5, 9,37) A(3) = AREA(G, 9,37,13) + AREA(G,13,37,61) + AREA(G,61,37,57) + 1 AREA(G,61,65,41) + AREA(G,41,61,13) + AREA(G,13,41,17) A(4) = AREA(G,17,41,21) + AREA(G,21,69,41) + AREA(G,41,65,69) + 1 AREA(G,69,73,45) + AREA(G,45,69,21) + AREA(G,21,45,25) A(5) = AREA(G, 1,33,29) + AREA(G,29,77,33) + AREA(G,33,49,77) + 1 AREA(G,77,73,45) + AREA(G,45,77,29) + AREA(G,29,45,25) A(6) = AREA(G,49,53,77) + AREA(G,77,53,61) + AREA(G,61,53,57) + 1 AREA(G,61,65,69) + AREA(G,69,61,77) + AREA(G,77,69,73) GO TO 110 C C 32-GRID ELEMENT C 60 DO 70 L=1,6 70 A(L) = 0.0 KK = 1 DO 90 L=129,152,4 M = KX(KK ) N = KX(KK+1) DO 80 JJ=1,3 80 G(L+JJ) = 0.5*(G(M+JJ)+G(N+JJ)) 90 KK = KK+2 JJ= 2 DO 100 L=1,12 M = L*4-3 N = M+4 IF (N .GT. 48) N=1 A( 1) = A( 1) + AREA(G,M,N,JX( 1)) A(JJ) = A(JJ) + AREA(G,M,N,JX(JJ)) M = (L+20)*4-3 N = M+4 IF (N .GT. 128) N=81 A( 6) = A( 6) + AREA(G,M,N,JX( 6)) A(JJ) = A(JJ) + AREA(G,M,N,JX(JJ)) IF (MOD(L,3) .EQ. 0) JJ = JJ+1 100 CONTINUE A(2)=A(2)+AREA(G, 1, 49,133)+AREA(G,49, 65,133)+AREA(G,65, 81,133) 1 +AREA(G,13, 53,133)+AREA(G,53, 69,133)+AREA(G,69, 93,133) A(3)=A(3)+AREA(G,13, 53,137)+AREA(G,53, 69,137)+AREA(G,69, 93,137) 1 +AREA(G,25, 57,137)+AREA(G,57, 73,137)+AREA(G,73,105,137) A(4)=A(4)+AREA(G,25, 57,141)+AREA(G,57, 73,141)+AREA(G,73,105,141) 1 +AREA(G,37, 61,141)+AREA(G,61, 77,141)+AREA(G,77,117,141) A(5)=A(5)+AREA(G,37, 61,145)+AREA(G,61, 77,145)+AREA(G,77,117,145) 1 +AREA(G, 1, 49,145)+AREA(G,49, 65,145)+AREA(G,65, 81,145) 110 NAREA = 6 GO TO 200 C C 4-GRID ELEMENT (QUAD) C 120 IF (V(1) .EQ. TETRA) GO TO 20 A(1)=AREA(G,1,5,9) + AREA(G,1,5,13) GO TO 160 C C 3-GRID ELEMENT C 130 A(1)=AREA(G,1,5,9) GO TO 160 C C 8-GRID ELEMENT (IS2D8) C 140 J=33 A(1) = G(J) GO TO 160 C C 6-GRID TRIANGULAR ELEMENTS (TRIM6, TRPLT1, TRSHL) C 150 I=129 J=21 K=9 DO 155 L=1,3 155 G(L+I)=G(L+J) + (G(L+K)-G(L+J))*.33333 A(1) = AREA(G, 1, 5,129) + AREA(G, 5, 9,129) + AREA(G, 9,13,129) + 1 AREA(G,13,17,129) + AREA(G,17,21,129) + AREA(G,21, 1,129) 160 NAREA=1 C C AT THIS POINT, V(4) AND V(5) ARE THICKNESS AND DENSITY OF THE C PLATE. COMPUTE VOLUME AND MASS AND PUT THEM BACK IN V(4) AND V(5) C IF (VOLUME .LE. 0.0) GO TO 200 J=4 V(J+1) = A(1)*V(J)*V(J+1) V(J) = A(1)*V(J)*VOLUME C 200 NGPT = NAREA DO 210 L=1,NAREA 210 V(L+5) = A(L)*SURFAC RETURN END ================================================ FILE: mis/sfetch.f ================================================ SUBROUTINE SFETCH (NAME,ITEM,IRW,ITEST) C C POSITIONS THE SOF TO READ OR WRITE DATA ASSOCIATED WITH ITEM OF C SUBSTRUCTURE NAME. C EXTERNAL ANDF LOGICAL MDIUP INTEGER ANDF,BUF,MDI,MDIPBN,MDILBN,MDIBL,BLKSIZ,DIRSIZ DIMENSION NAME(2),NMSBR(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DITDUM(6),IO,IOPBN,IOLBN,IOMODE,IOPTR,IOSIND, 1 IOITCD,IOBLK,MDI,MDIPBN,MDILBN,MDIBL,NXTDUM(15), 2 DITUP,MDIUP COMMON /SYS / BLKSIZ,DIRSIZ COMMON /SYSTEM/ NBUFF,NOUT DATA IDLE , IRD,IWRT /0,1,2/, NMSBR /4HSFET,4HCH / C CALL CHKOPN (NMSBR(1)) CALL FDSUB (NAME(1),IOSIND) IF (IOSIND .EQ. -1) GO TO 500 IOITCD = ITCODE(ITEM) IF (IOITCD .EQ. -1) GO TO 510 C C CHECK IF ITEM IS A TABLE ITEM UNLESS SPECIAL CALL FROM MTRXO OR C MTRXI C IF (IRW .LT. 0) GO TO 10 ITM = ITTYPE(ITEM) IF (ITM .NE. 0) GO TO 530 10 CALL FMDI (IOSIND,IMDI) IOLBN = 1 IOPTR = IO + 1 IBL = ANDF(BUF(IMDI+IOITCD),65535) IRDWRT= IABS(IRW) GO TO (30,80,30), IRDWRT C C READ OPERATION. C 30 IF (IBL .EQ. 0) GO TO 50 IF (IBL .NE. 65535) GO TO 60 C C ITEM WAS PSEUDO-WRITTEN. C ITEST = 2 GO TO 520 C C ITEM HAS NOT BEEN WRITTEN. C 50 ITEST = 3 GO TO 520 C C UPDATE THE COMMON BLOCK SOF, AND BRING INTO CORE THE DESIRED BLOCK C 60 ITEST = 1 IF (IRDWRT .EQ. 3) GO TO 520 IOPBN = IBL IOMODE = IRD CALL SOFIO (IRD,IOPBN,BUF(IO-2)) RETURN C C WRITE OPERATION. C 80 IF (IBL.EQ.0 .OR. IBL.EQ.65535) GO TO 90 C C ITEM HAS ALREADY BEEN WRITTEN. C ITEST = 1 GO TO 520 90 ITEST1 = ITEST - 1 GO TO (100,110), ITEST1 C C ITEM IS TO BE PSEUDO-WRITTEN. C 100 BUF(IMDI+IOITCD) = 65535 MDIUP = .TRUE. RETURN C C ITEM IS TO BE WRITTEN. GET A FREE BLOCK AND UPDATE THE COMMON C BLOCK SOF. C 110 CALL GETBLK (0,IOBLK) IF (IOBLK .EQ. -1) GO TO 1000 IOPBN = IOBLK IOMODE = IWRT RETURN C C NAME DOES NOT EXIST. C 500 ITEST = 4 GO TO 520 C C ITEM IS AN ILLEGAL ITEM NAME. C 510 ITEST = 5 520 IOMODE = IDLE RETURN C C ATTEMPT TO OPERATE ON A MATRIX ITEM C 530 WRITE (NOUT,540) SFM,ITEM,NAME 540 FORMAT (A25,' 6227, AN ATTEMPT HAS BEEN MADE TO OPERATE ON THE ', 1 'MATRIX ITEM ',A4,' OF SUBSTRUCTURE ',2A4,' USING SFETCH.') GO TO 1010 C C NO MORE BLOCKS ON SOF C 1000 WRITE (NOUT,1001) UFM 1001 FORMAT (A23,' 6223, SUBROUTINE SFETCH - THERE ARE NO MORE FREE ', 1 'BLOCKS AVAILABLE ON THE SOF.') 1010 CALL SOFCLS CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/sgen.f ================================================ SUBROUTINE SGEN C C THIS MODULE PREPARES THE INPUT FILES TO NASTRAN FROM A SUBSTRUCTUR C FORMULATION IN ORDER TO RUN THE SOLUTION PHASE OF NASTRAN. C 3 MAJOR STEPS ARE- C C 1. READ CONSTRAINT AND DYNAMICS DATA, CONVERT TO PSEUDO-STRUCTURE C DATA, AND OUTPUT ON GP4S AND DYNS. C C 2. READ LOAD COMBO. DATA AND ASSEMBLE SCALAR LOAD SETS ON OUTPUT C FILE GP3S. C C 3. BUILD DUMMY FILES FOR EXECUTION- CASEI, GPL, EQEXIN, GPDT, C BGPDT, CSTM, AND SIL. C C IMPLICIT INTEGER (A-Z) EXTERNAL ANDF,ORF,COMPLF LOGICAL NOLC,NOLS,PSUEDO,STEST INTEGER TEMP(10),TEMP2(10),TYPE(2),SPCS1(2),SPCSD(2), 1 MPCS(2),SPCS(2),LOADC(2),CTYPES(2,8),CTYPEO(2,8), 2 DAREAS(2),DELAYS(2),DPHSES(2),TICS(2),NLIMIT(3), 3 MINUS(3),ICODE(4,9),ICOMP(32),LTAB(4,9),MCB(7), 4 LSLOAD(3),LLOAD(3),NSGEN(2),NCASEC(2),Z(4) REAL RZ,FACT,RTEMP(10),RTEMP2(10) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / DRY,NAME(2),LUSET,NOGPDT COMMON /SGENCM/ NONO,NSS,IPTR,BUF1,BUF2,BUF3,NZ COMMON /ZZZZZZ/ RZ(1) COMMON /SYSTEM/ IBUF,OUTT COMMON /TWO / TWO(2) COMMON /UNPAKX/ ITY,IROW,NROW,INCR EQUIVALENCE (RZ(1),Z(1)), (TEMP(1),RTEMP(1)), 1 (TEMP2(1),RTEMP2(1)), 2 (CTYPES(1,1),MPCS(1)), (CTYPES(1,2),SPCS(1)), 3 (CTYPES(1,3),SPCS1(1)), (CTYPES(1,4),SPCSD(1)), 4 (CTYPES(1,5),DAREAS(1)), (CTYPES(1,6),DELAYS(1)), 5 (CTYPES(1,7),DPHSES(1)), (CTYPES(1,8),TICS(1)) DATA MINUS , NLIMIT /3*-1, 3*2147483647 /, 1 EQSS / 4HEQSS /, LODS /4HLODS / DATA CASEC , GEOM3 ,GEOM4 ,DYNAM / 1 101 , 102 ,103 ,104 /, 2 CASES , CASEI ,GPL ,EQEX ,GPDT / 3 201 , 202 ,203 ,204 ,205 /, 4 BGPDT , SIL ,GP3S ,GP4S ,DYNS / 5 206 , 207 ,208 ,209 ,210 /, 6 SCRT , SCRT2 / 7 201 , 202 / DATA PVEC / 4HPVEC/ ,NSGEN / 4HSGEN,4H / C C BULK DATA CARD CODES C DATA ICODE / C MPCS 1 1110 ,11 ,0 ,0 , C SPCS 2 810 ,8 ,0 ,0 , C SPCS1 3 710 ,7 ,0 ,0 , C SPCSD 4 610 ,6 ,0 ,0 , C LOADC 5 500 ,5 ,0 ,0 , C DAREAS 6 9027 ,90 ,0 ,0 , C DELAYS 7 9137 ,91 ,0 ,0 , C DPHASES 8 9277 ,92 ,0 ,0 , C TICS 9 9307 ,93 ,0 ,0 / C DATA NTYPEC / 4 / DATA NTYPED / 4 / DATA LTAB / C MPC 1 4901 ,49 ,17 ,1 , C SPC 2 5501 ,55 ,16 ,2 , C SPC1 3 5481 ,58 ,12 ,3 , C SPCD 4 5110 ,51 ,256 ,4 , C LOADC 5 500 ,5 ,264 ,0 , C DAREA 6 27 ,17 ,182 ,5 , C DELAY 7 37 ,18 ,183 ,6 , C DPHASE 8 77 ,19 ,184 ,7 , C TIC 9 6607 ,66 ,137 ,8 / DATA LLOAD / 4551 ,61 ,84 / , 1 LSLOAD/ 5401 ,54 ,25 / DATA MPCS / 4HMPCS,4H /, SPCS / 4HSPCS,4H /, 1 SPCS1 / 4HSPCS,4H1 /, SPCSD / 4HSPCS,4HD /, 2 LOADC / 4HLOAD,4HC /, DAREAS / 4HDARE,4HAS /, 3 DELAYS/ 4HDELA,4HYS /, DPHSES / 4HDPHA,4HSES /, 4 TICS / 4HTICS,4H / DATA NCASEC/ 4HCASE,4HCC / DATA CTYPEO/ 4HMPC ,4H , 1 4HSPC ,4H , 2 4HSPC1,4H , 3 4HSPCD,4H , 4 4HDARE,4HA , 5 4HDELA,4HY , 6 4HDPHA,4HSE , 7 4HTIC ,4H / DATA XXXX / 4HXXXX / C C INITIALIZE C ITY = 1 INCR = 1 NONO = 0 LARGE= TWO(2) NZ = KORSZ(Z(1)) IBS1 = NZ - IBUF + 1 IBS2 = IBS1 - IBUF - 1 IBS3 = IBS2 - IBUF BUF1 = IBS3 - IBUF BUF2 = BUF1 - IBUF BUF3 = BUF2 - IBUF BUF4 = BUF3 - IBUF NZ = BUF4 - 1 IF (NZ .LE. 0) GO TO 5011 IF (NAME(1).EQ.XXXX .AND. NAME(2).EQ.XXXX) GO TO 3000 C C INITIALIZE LUSET AND NOGPDT FLAGS C LUSET = 0 NOGPDT = -1 C C FORM TABLES OF REFERENCED SID-S FOR LOAD, MPC, AND SPC C CASE CONTROL CARDS. C C C OPEN SOF , GET EQSS ITEM , READ SIL DATA INTO CORE C CALL SOFOPN (Z(IBS1),Z(IBS2),Z(IBS3)) CALL SFETCH (NAME,EQSS,1,FLAG) ITEM = EQSS IF (FLAG .NE. 1) GO TO 5001 CALL SUREAD (Z(1),NZ,NWDS,FLAG) IF (FLAG .NE. 2) GO TO 5011 NSS = Z(3) IZ = NWDS + 1 C C READ SIL GROUP INTO CORE C CALL SJUMP (NSS) CALL SUREAD (Z(IZ),NZ-IZ+1,NSIL,FLAG) IF (FLAG .NE. 2) GO TO 5011 IPT = IZ + NSIL - 2 C C FIND LENGTH OF VECTOR = LUSET C IC = Z(IPT+1) CALL DECODE (IC,ICOMP,NC) LUSET = Z(IPT) + NC - 1 NOGPDT= LUSET C C READ EQSS ( G ,IP, AND C AT A TIME) AND CONVERT IP TO SIL . C WRITE ON SCRT C IS = 0 FILE = SCRT CALL GOPEN (SCRT,Z(BUF2),1) CALL SFETCH (NAME,EQSS,1,FLAG) NJ = 1 CALL SJUMP (NJ) C 50 CALL SUREAD (TEMP,3,NWDS,FLAG) IF (FLAG .NE. 1) GO TO 100 IPT = IZ + 2*TEMP(2) - 2 TEMP(2) = Z(IPT) CALL WRITE (SCRT,TEMP,3,0) GO TO 50 100 IS = IS + 1 CALL WRITE (SCRT,TEMP,0,1) IF (IS .LT. NSS) GO TO 50 CALL CLOSE (SCRT,1) C C READ CONVERTED EQSS INTO CORE, STORE POINTERS TO THE BASIC SUBS C IN Z(IPTR) TO Z(NPTR) C CORE WILL CONTAIN- C 1. 4 WORD HEADER C 2. 2*NSS NAMES C 3. NSS+1 POINTERS TO EACH BASIC SUBST.BLOCK C 4. NSS BLOCKS OF G, IP, C DATA C 5. NZB LEFT OVER C C IPTR = IZ NPTR = IPTR ISUB = IPTR + NSS + 1 NZB = NZ - ISUB + 1 FILE = SCRT CALL GOPEN (SCRT,Z(BUF2),0) DO 200 I = 1,NSS Z(NPTR) = ISUB NPTR = NPTR + 1 CALL READ (*9002,*110,SCRT,Z(ISUB),NZB,1,NWDS) GO TO 5011 110 ISUB = ISUB + NWDS NZB = NZB - NWDS IF (NZB .LE. 0) GO TO 5011 200 CONTINUE Z(NPTR) = ISUB CALL CLOSE (SCRT,1) C C *** GEOM4 DATA CONVERSION *** C C IN - MPCS,SPCS,SPCS1,SPCSD CARDS C OUT - MPC ,SPC ,SPC1 ,SCPD ON SCRT C FILE = GEOM4 NOG4 = 0 CALL PRELOC (*400,Z(BUF1),GEOM4) MCB(1) = GEOM4 CALL RDTRL (MCB) CALL GOPEN (SCRT,Z(BUF2),1) STEST = .FALSE. C C *** MPCS CARDS *** C C IN - NAME(2), G, C, F C OUT - SIL, 0, F C CALL LOCATE (*350,Z(BUF1),ICODE(1,1),IDX) CALL WRITE (SCRT,ICODE(1,1),3,0) STEST = .TRUE. ICODE(4,1) = 1 TYPE(1) = MPCS(1) TYPE(2) = MPCS(2) IFL = 0 LID = 0 305 CALL READ (*9002,*346,GEOM4,J,1,0,NWDS) IF (J .NE. LID) NSILD = 0 LID = J CALL WRITE (SCRT,J,1,0) 310 CALL READ (*9002,*346,GEOM4,TEMP,5,0,NWDS) IF (TEMP(3) .EQ.-1) GO TO 345 IF (TEMP(3) .EQ. 0) GO TO 310 C C FIND REQUESTED SUBSTRUCTURE C DO 320 I = 1,NSS INAM = 2*I + 3 IF (Z(INAM).EQ.TEMP(1) .AND. Z(INAM+1).EQ.TEMP(2)) GO TO 330 320 CONTINUE C C SUBSTRUCTURE NOT FOUND C WRITE (OUTT,63290) UWM,TEMP(1),TEMP(2),TYPE,NAME GO TO 310 C C FOUND SUBSTRUCTURE NAME C 330 IPT = IPTR + I - 1 IGRD = Z(IPT) NGRD = (Z(IPT+1) - Z(IPT))/3 C C SEARCH FOR GRID POINT C CALL BISLOC (*334,TEMP(3),Z(IGRD),3,NGRD,IGR) IG = IGR + IGRD - 1 325 IF (Z(IG-3) .NE. Z(IG)) GO TO 331 IF (IG .LE. IGRD) GO TO 331 IG = IG - 3 GO TO 325 331 CODE = Z(IG+2) C C FIND THE COMPONENT C CALL DECODE (CODE,ICOMP,NC) IF (TEMP(4) .EQ. 0) TEMP(4) = 1 DO 332 I = 1,NC IF (TEMP(4) .NE. ICOMP(I)+1) GO TO 332 IC = I GO TO 340 332 CONTINUE IF (Z(IG+3) .NE. Z(IG)) GO TO 334 IF (IG+3 .GE. IGRD+3*NGRD) GO TO 334 IG = IG + 3 GO TO 331 C C BAD COMPONENT C 334 NONO = 1 WRITE (OUTT,60220) UFM,(TEMP(I),I=1,4),TYPE,NAME GO TO 310 C C WRITE CONVERTED DATA ON SCRT C 340 TEMP(6) = Z(IG+1) + IC - 1 TEMP(7) = 0 TEMP(8) = TEMP(5) CALL WRITE (SCRT,TEMP(6),3,0) C C CHECK FOR DUPLICATE DEPENDENT SIL-S C IF (IFL .NE. 0) GO TO 310 IF (NSILD .EQ. 0) GO TO 343 DO 342 I = 1,NSILD IF (Z(ISUB+I-1) .NE. TEMP(6)) GO TO 342 NONO = 1 WRITE (OUTT,63620) UFM,J,TEMP(1),TEMP(2),TEMP(3),TEMP(4) 342 CONTINUE IF (NSILD .GT. NZB) GO TO 5011 343 Z(ISUB+NSILD) = TEMP(6) NSILD = NSILD + 1 IFL = 1 GO TO 310 C C FINISHED ONE LOGICAL CARD, WRITE -1 FLAGS C 345 CALL WRITE (SCRT,MINUS,3,0) IFL = 0 GO TO 305 C C FINISHED ALL MPCS CARDS, WRITE EOR AND UPDATE TRAILER C 346 CALL WRITE (SCRT,TEMP,0,1) C C TURN OFF MPCS BIT C J = (ICODE(2,1)-1)/16 I = ICODE(2,1)- 16*J MCB(J+2) = ANDF(COMPLF(TWO(I+16)),MCB(J+2)) C C TURN ON MPC BIT C J = (LTAB(2,1)-1)/16 I = LTAB(2,1)- 16*J MCB(J+2) = ORF(TWO(I+16),MCB(J+2)) C C *** SPCS CARDS *** C C IN - SID, NAME(2), G, C, G, C, G, C, ..., -1, -1 C OUT - SID, SIL, 0, 0 - REPEATED FOR EACH GRID C 350 CALL SGENA (SPCS,Z(BUF1),MCB,GEOM4,ICODE(1,2),0,SCRT,LTAB(1,2),1) C C *** SPCS1 CARDS *** C C IN - SID, NAME(2), C, G, G, G, ..., -1 C OUT - SID, 0, SIL, -1 - REPEATED FOR EACH GRID C CALL SGENB (SPCS1,Z(BUF1),MCB,GEOM4,ICODE(1,3),0,SCRT,LTAB(1,3),1) C C *** SPCSD CARDS *** C C IN - SID, NAME(2), G, C, Y, ..., -1, -1, -1 C OUT - SID, SIL, 0, Y - REPEATED FOR EACH GRID C CALL SGENA (SPCSD,Z(BUF1),MCB,GEOM4,ICODE(1,4),1,SCRT,LTAB(1,4),1) C C END OF CONSTRAINT CARD CONVERSION C CALL CLOSE (GEOM4,1) CALL CLOSE (SCRT,1) MCB(1) = GP4S CALL WRTTRL (MCB) GO TO 700 400 NOG4 = 1 C C *** DYNAMICS DATA CONVERSION *** C C IN - DAREAS,DELAYS,DPHASES,TICS CARDS C OUT - DAREA ,DELAY ,DPHASE ,TIC ON SCRT C 700 FILE = DYNAM NODYN = 0 CALL PRELOC (*750,Z(BUF1),DYNAM) MCB(1) = DYNAM CALL RDTRL (MCB) CALL GOPEN (SCRT2,Z(BUF2),1) C C *** DAREAS CARDS *** C C IN - SID, NAME(2), G, C, A, ..., -1, -1, -1 C OUT - SID, SIL, 0, A - REPEATED FOR EACH GRID C CALL SGENA (DAREAS,Z(BUF1),MCB,DYNAM,ICODE(1,6),1,SCRT2,LTAB(1,6), 1 1) C C *** DELAYS CARDS *** C C IN - SID, NAME(2), G, C, T, ..., -1, -1, -1 C OUT - SID, SIL, 0, T - REPEATED FOR EACH GRID C CALL SGENA (DELAYS,Z(BUF1),MCB,DYNAM,ICODE(1,7),1,SCRT2,LTAB(1,7), 1 1) C C *** DPHASES CARDS *** C C IN - SID, NAME(2), G, C, TH, ..., -1, -1, -1 C OUT - SID, SIL, 0, TH - REPEATED FOR EACH GRID C CALL SGENA (DPHSES,Z(BUF1),MCB,DYNAM,ICODE(1,8),1,SCRT2,LTAB(1,8), 1 1) C C *** TICS CARDS *** C C IN - SID, NAME(2), G, C, U, V, ..., -1, -1, -1, -1 C OUT - SID, SIL, 0, U, V - REPEATED FOR EACH GRID C CALL SGENA (TICS,Z(BUF1),MCB,DYNAM,ICODE(1,9),2,SCRT2,LTAB(1,9),2) C C END OF DYNAMICS CONVERSION C CALL CLOSE (DYNAM,1) CALL CLOSE (SCRT2,1) MCB(1) = DYNS CALL WRTTRL (MCB) GO TO 1000 750 NODYN = 1 C C MERGE CONVERTED DATA WITH EXISTING DATA - GEOM4 C 1000 IF (NOG4 .EQ. 1) GO TO 1500 CALL SGENM (NTYPEC,GEOM4,SCRT,GP4S,ICODE(1,1),LTAB(1,1), 1 CTYPES(1,1),CTYPEO(1,1)) C C MERGE CONVERTED DATA WITH EXISTING DATA - DYNAMICS C 1500 IF (NODYN .EQ. 1) GO TO 2005 CALL SGENM (NTYPED,DYNAM,SCRT2,DYNS,ICODE(1,6),LTAB(1,6), 1 CTYPES(1,1),CTYPEO(1,1)) C C C *** GEOM3 PROCESSING *** C C THE LOAD VECTORS ARE COMBINED BY THE FACTORS C GIVEN ON THE LOADC CARDS AND MERGED WITH SLOAD CARDS C 2005 CONTINUE NOLC = .TRUE. NOLS = .TRUE. CALL PRELOC (*2350,Z(BUF1),GEOM4) CALL LOCATE (*2350,Z(BUF1),ICODE(1,5),IDX) C C READ FIRST GROUP OF LODS ITEM FOR SOLUTION STRUCTURE C ITEM = LODS CALL SFETCH (NAME,LODS,1,FLAG) GO TO (2045,5001,2042,5001,5001), FLAG C C LODS ITEM DOES NOT EXIST C 2042 NOLC = .TRUE. GO TO 2350 2045 CALL SUREAD (Z(1),NZ,NWDS,ITEST) GO TO (5011,2047,5002), ITEST 2047 NSS = Z(4) ISS1= 5 NL = Z(3) IPT = 2*NSS + 5 IZL = 2*NSS + IPT + 2 Z(IPT ) = IZL Z(IPT+1) = 0 IF (IZL+NSS+NL .LE. NZ) GO TO 2050 C C INSUFFICIENT CORE C CALL CLOSE (GEOM4,1) GO TO 5011 C C READ REMAINDER OF LODS INTO OPEN CORE AT Z(IZL) C 2050 DO 2100 I = 1,NSS CALL SUREAD (Z(IZL),NZ-IZL+1,NWDS,ITEST) GO TO (5011,2060,5002), ITEST 2060 IZL= IZL + NWDS JG = IPT + 2*I Z(JG ) = IZL Z(JG+1) = Z(JG-1) + NWDS - 1 2100 CONTINUE C C CORE NOW CONTAINS C C WORDS CONTENTS C ------------------ ----------------------------------- C 1--(IPT-1) HEADER GROUP C IPT--IPT+2*(NSS+1) LOAD DATA POINTER, NO. OF PRIOR LOAD C VECTORS (2 WORDS PER STRUCTURE) C IPT+2*(NSS+1)+1 --= NO OF LOADS + LOAD SET IDS C GROUPED BY BASIC STRUCTURE C C READ LOADC DATA CARDS AND CONVERT C C IN - SET ID, FACTOR, (NAME(2),SET,FACTOR) (REPEATED) C OUT - SET ID, FACTOR, (VECTOR NO.,FACTOR) C TYPE(1) = LOADC(1) TYPE(2) = LOADC(2) CALL OPEN (*9001,SCRT,Z(BUF2),1) 2150 CALL READ (*9002,*2300,GEOM4,TEMP,2,0,NWDS) CALL WRITE (SCRT,TEMP,2,0) LID = TEMP(1) NOLC=.FALSE. C C READ AN ENTRY C 2160 CALL FREAD (GEOM4,TEMP,4,0) IF( TEMP(3) .EQ. -1) GO TO 2280 C C FIND SUBSTRUCTURE AND SET C DO 2210 I = 1,NSS INAM = ISS1 + 2*(I-1) IF (Z(INAM).EQ.TEMP(1) .AND. Z(INAM+1).EQ.TEMP(2)) GO TO 2220 2210 CONTINUE C C SUBSTRUCTURE NOT FOUND C WRITE (OUTT,63290) UWM,TEMP(1),TEMP(2),TYPE,NAME GO TO 2160 C C FOUND SUBSTRUCTURE NAME C 2220 JPT = IPT + 2*I - 2 C C POINTER TO LODS DATA FOR THIS SUBSTRUCTURE C ILD = Z(JPT) C C NUMBER OF SETS IN LODS DATA FOR THIS SUBSTRUCTURE C NSET = Z(ILD) C C FIND LOADC SET IN LODS DATA C IF (NSET .EQ. 0) GO TO 2240 DO 2230 I = 1,NSET IP = ILD + I IF (Z(IP) .NE. TEMP(3)) GO TO 2230 LVEC = Z(JPT+1) + I GO TO 2250 2230 CONTINUE C C SET NOT FOUND C 2240 NONO = 1 WRITE (OUTT,63310) UFM,NAME,LID,TEMP(3),TEMP(1),TEMP(2) GO TO 2160 2250 TEMP(1) = LVEC TEMP(2) = TEMP(4) CALL WRITE (SCRT,TEMP,2,0) GO TO 2160 C C END OF LOGICAL LOADC CARD C 2280 CALL WRITE (SCRT,TEMP,0,1) GO TO 2150 C C END OF LOADC RECORD C 2300 CALL CLOSE (SCRT,1) 2350 CALL CLOSE (GEOM4,1) C C MERGE CONVERTED LOAD DATA WITH SLOAD DATA. C C C IF ANY ERRORS WERE DETECTED, SKIP LOAD COMPUTATION C IF (NONO .NE. 0) GO TO 3000 CALL GOPEN (GP3S,Z(BUF4),1) C C COPY LOAD CARDS TO GP3S C CALL PRELOC (*2430,Z(BUF1),GEOM3) LDCD = 0 CALL LOCATE (*2420,Z(BUF1),LLOAD,IDX) LDCD = 1 CALL WRITE (GP3S,LLOAD,3,0) 2405 CALL READ (*9002,*2410,GEOM3,Z(1),NZ,0,NWDS) CALL WRITE (GP3S,Z(1),NZ,0) GO TO 2405 2410 CALL WRITE (GP3S,Z(1),NWDS,1) C C POSITION TO SLOAD CARDS C 2420 CALL LOCATE (*2430,Z(BUF1),LSLOAD,IDX) NOLS = .FALSE. 2430 IF (NOLS) CALL CLOSE (GEOM3,1) IF (.NOT.(NOLS .AND. NOLC)) CALL WRITE (GP3S,LSLOAD,3,0) IF (NOLC) GO TO 2530 C C COPY LOAD VECTORS TO SCRATCH FILE C FILE = SCRT2 ITEM = PVEC IF (DRY .LT. 0) GO TO 2510 CALL MTRXI (SCRT2,NAME,PVEC,Z(BUF3),FLAG) GO TO (2520,2431,5001,5001,5001,9001), FLAG 2431 FLAG = 3 GO TO 5001 C C IN DRY RUN MODE, LOADS PSEUDO-EXIST C 2510 PSUEDO =.TRUE. GO TO 2530 C C LOADS EXIST C 2520 PSUEDO = .FALSE. CALL GOPEN (SCRT2,Z(BUF3),0) IREC = 1 MCB(1) = SCRT2 CALL RDTRL (MCB) NVEC = MCB(2) LUSET = MCB(3) IF (2*LUSET .LT. NZ) GO TO 2530 C C INSUFFICIENT CORE C CALL CLOSE (SCRT2,1) CALL CLOSE (GP3S ,1) CALL CLOSE (GEOM3,1) GO TO 5011 C C MERGE REAL AND ARTIFICIAL SLOAD CARDS C 2530 SIDC = 0 IROW = 1 NROW = LUSET IF (.NOT.NOLC) CALL OPEN (*9001,SCRT,Z(BUF2),0) 2550 IF (NOLS) GO TO 2560 FILE = GEOM3 CALL READ (*9002,*2560,GEOM3,TEMP2,3,0,NWDS) GO TO 2570 2560 IF (NOLC) GO TO 2900 TEMP2(1) = LARGE 2570 SIDS = TEMP2(1) IF (NOLC) GO TO 2635 IF (SIDC .GT. SIDS) GO TO 2600 C C READ THE SID AND FACTOR OF THE LOADC CARD ITSELF C FILE = SCRT CALL READ (*2580,*9003,SCRT,TEMP,2,0,NWDS) GO TO 2600 2580 TEMP(1) = LARGE NOLC = .TRUE. CALL CLOSE (SCRT,1) IF (NOLS) GO TO 2900 2600 CONTINUE DO 2620 I = 1,LUSET 2620 RZ(I) = 0.0 SIDC = TEMP(1) FACT = RTEMP(2) IF (.NOT.NOLC) GO TO 2670 2635 IF (NOLS) GO TO 2900 C C NO MORE LOADC CARDS, WRITE ENTIRE SLOAD RECORD C CALL WRITE (GP3S,TEMP2,3,0) FILE = GEOM3 2640 CALL READ (*9002,*2650,GEOM3,Z(1),NZ,0,NWDS) CALL WRITE (GP3S,Z(1),NZ,0) GO TO 2640 2650 CALL WRITE (GP3S,Z(1),NWDS,1) GO TO 2900 2670 IF (.NOT.NOLS) GO TO 2680 C C NO MORE SLOAD CARDS ARE PRESENT C SIDS = LARGE GO TO 2700 C C BOTH LOADC AND SLOAD CARDS ARE PRESENT C 2680 IF (SIDS .LT. SIDC) GO TO 2810 C C READ LOADC DATA, FIND VECTOR, UNPACK, MULT BY FACTOR, AND ADD C TO FIND A MATRIX COLUMN,USING FWDREC, CHANGE ON 16 C 2700 FILE = SCRT CALL READ (*9002,*2790,SCRT,TEMP,2,0,NWDS) IF (TEMP(1).EQ.0 .OR. PSUEDO .OR. TEMP(2).EQ.0) GO TO 2700 N = TEMP(1) - IREC IF (N) 2710,2750,2720 2710 N = -N DO 2715 I = 1,N CALL BCKREC (SCRT2) 2715 CONTINUE GO TO 2750 2720 DO 2725 I = 1,N CALL FWDREC (*2730,SCRT2) 2725 CONTINUE GO TO 2750 C C CANT FIND LOAD VECTOR C 2730 WRITE (OUTT,63320) SFM,TEMP(1),NVEC,LUSET,NAME NONO = 1 GO TO 2900 C C NOW SCRT2 IS POSITIONED TO THE DESIRED LOAD VECTOR. UNPACK IT AND C FACTOR AND ADD IT TO VECTOR AT TOP OF OPEN CORE C 2750 IREC = TEMP(1) + 1 CALL UNPACK (*2700,SCRT2,RZ(LUSET+1)) DO 2755 I = 1,LUSET RZ(I) = RTEMP(2)*FACT*RZ(LUSET+I)+RZ(I) 2755 CONTINUE GO TO 2700 C C HERE WHEN FINISHED COMBINING VECTORS FOR ONE LOADC CARD C 2790 CONTINUE IF (SIDC .LT. SIDS) GO TO 2850 2810 IZ = TEMP2(2) RZ(IZ) = RZ(IZ) +RTEMP2(3) FILE = GEOM3 CALL READ (*9002,*2840,GEOM3,TEMP2,3,0,NWDS) IF (TEMP2(1) .EQ. SIDS) GO TO 2810 SIDS = TEMP2(1) GO TO 2850 2840 NOLS =.TRUE. C C WRITE OUT LOAD VECTOR IN SLOAD FORMAT C 2850 TEMP(1) = MIN0(SIDS,SIDC) DO 2860 I = 1,LUSET IF (RZ(I) .EQ. 0.0) GO TO 2860 TEMP(2) = I RTEMP(3) = RZ(I) CALL WRITE (GP3S,TEMP,3,0) 2860 CONTINUE IF (SIDS .NE. SIDC) GO TO 2570 GO TO 2550 C C ALL LOADS PROCESSED C 2900 CALL WRITE (GP3S,0,0,1) CALL WRITE (GP3S,NLIMIT,3,1) CALL CLOSE (SCRT,1) CALL CLOSE (GP3S,1) CALL CLOSE (SCRT2,1) CALL CLOSE (GEOM3,1) MCB(1) = GP3S C C TURN ON SLOAD BIT IN GP3S TRAILER C ALSO LOAD CARD BIT IF LOAD CARDS EXIST C DO 2910 I = 2,7 2910 MCB(I) = 0 J = (LSLOAD(2)-1)/16 I = LSLOAD(2)-16*J MCB(J+2) = TWO(I+16) IF (LDCD .EQ. 0) GO TO 2920 J = (LLOAD(2)-1)/16 I = LLOAD(2)-16*J MCB(J+2) = ORF(MCB(J+2),TWO(I+16)) 2920 CALL WRTTRL (MCB) C C SPLIT CASE CONTROL INTO SUBSTRUCTURE AND NORMAL NASTRAN C 3000 CALL OPEN (*9001,CASEC,Z(BUF1),0) CALL OPEN (*9001,CASES,Z(BUF2),1) CALL OPEN (*9001,CASEI,Z(BUF3),1) FILE = CASES 3250 CALL READ (*3800,*3350,CASEC,Z(1),NZ,0,NWDS) 3350 IF (Z(1).EQ.NCASEC(1) .AND. Z(2).EQ.NCASEC(2)) FILE = CASEI CALL WRITE (CASES,Z,NWDS,1) IF (FILE .EQ. CASEI) CALL WRITE (CASEI,Z(1),NWDS,1) GO TO 3250 3800 CONTINUE MCB(1) = CASEC CALL RDTRL (MCB) MCB(1) = CASES CALL WRTTRL (MCB) MCB(1) = CASEI CALL WRTTRL (MCB) CALL CLOSE (CASEC,1) CALL CLOSE (CASEI,1) CALL CLOSE (CASES,1) IF (NAME(1).EQ.XXXX .AND. NAME(2).EQ.XXXX) RETURN IF (NONO .NE. 0) GO TO 4050 C C GENERATE FICTITIOUS GP1 DATA BLOCKS C C C *** GPL FILE *** C C GPL HEADER RECORD HAS 3 WORD, (SEE GP1) C SET THE 3RD WORD, MULTIPLIER MULT, TO 1000 C DO 4005 I = 2,7 4005 MCB(I) = 0 MCB(1) = GPL FILE = GPL N = -1 CALL OPEN (*9200,GPL,Z(BUF1),1) CALL FNAME (GPL,TEMP(1)) TEMP(3) = 1000 CALL WRITE (GPL,TEMP(1),3,1) DO 4010 I = 1,LUSET 4010 CALL WRITE (GPL,I,1,0) CALL WRITE (GPL,I,0,1) DO 4020 I = 1,LUSET TEMP(1) = I TEMP(2) = 1000*I CALL WRITE (GPL,TEMP,2,0) 4020 CONTINUE CALL WRITE (GPL,I,0,1) CALL CLOSE (GPL,1) MCB(2) = LUSET CALL WRTTRL (MCB) C C *** EQEXIN FILE *** C 4050 MCB(1) = EQEX CALL GOPEN (EQEX,Z(BUF1),1) DO 4060 I = 1,LUSET TEMP(1) = I TEMP(2) = I CALL WRITE (EQEX,TEMP,2,0) 4060 CONTINUE CALL WRITE (EQEX,TEMP,0,1) DO 4070 I = 1,LUSET TEMP(1) = I TEMP(2) = 10*I + 2 CALL WRITE (EQEX,TEMP,2,0) 4070 CONTINUE CALL WRITE (EQEX,TEMP,0,1) CALL CLOSE (EQEX,1) MCB(2) = LUSET CALL WRTTRL (MCB) C C *** GPDT FILE *** C MCB(1) = GPDT DO 4105 I = 3,7 4105 TEMP(I) = 0 TEMP(2) = -1 CALL GOPEN (GPDT,Z(BUF1),1) DO 4120 I = 1,LUSET TEMP(1) = I CALL WRITE (GPDT,TEMP,7,0) 4120 CONTINUE CALL WRITE (GPDT,TEMP,0,1) CALL CLOSE (GPDT,1) MCB(2) = LUSET CALL WRTTRL (MCB) IF (NONO .NE. 0) GO TO 4200 C C *** BGPDT FILE *** C MCB(1) = BGPDT DO 4160 I = 2,4 4160 TEMP(I) = 0 TEMP(1) =-1 CALL GOPEN (BGPDT,Z(BUF1),1) DO 4170 I = 1,LUSET CALL WRITE (BGPDT,TEMP,4,0) 4170 CONTINUE CALL WRITE (BGPDT,TEMP,0,1) CALL CLOSE (BGPDT,1) MCB(2) = LUSET CALL WRTTRL (MCB) C C *** SIL FILE *** C 4200 MCB(1) = SIL CALL GOPEN (SIL,Z(BUF1),1) DO 4220 I = 1,LUSET CALL WRITE (SIL,I,1,0) 4220 CONTINUE CALL WRITE (SIL,I,0,1) CALL CLOSE (SIL,1) C C MCB(2) = LUSET MCB(3) = LUSET CALL WRTTRL (MCB) IF (NONO .NE. 0) DRY=-2 CALL SOFCLS RETURN C C ERRORS C 5001 N = 2 - FLAG GO TO 5010 5002 N = -ITEST - 4 5010 IF (DRY .LT. 0) N = IABS(N) DRY = -2 CALL SMSG (N,ITEM,NAME) RETURN 5011 N = -8 GO TO 9100 9001 N = -1 GO TO 9100 9002 N = -2 GO TO 9100 9003 N = -3 9100 CALL SOFCLS IF (DRY .LT. 0) N = IABS(N) DRY = -2 9200 CALL MESAGE (N,FILE,NSGEN) RETURN C C MESSAGE FORMATS C 60220 FORMAT (A23,' 6022, SUBSTRUCTURE ',2A4,', GRID POINT',I9, 1 ', COMPONENTS',I9,1H,, /30X,'REFERENCED ON ',2A4, 2 ' CARD, DO NOT EXIST ON SOLUTION STRUCTURE ',2A4) 63290 FORMAT (A25,' 6329, SUBSTRUCTURE ',2A4,' REFERENCED ON ',2A4, 1 ' CARD', /30X,'IS NOT A COMPONENT BASIC SUBSTRUCTURE OF ', 2 'SOLUTION STRUCTURE ',2A4,/30X,'THIS CARD WILL BE IGNORED') 63310 FORMAT (A23,' 6331, SOLUTION SUBSTRUCTURE ',2A4,' - LOADC SET',I9, 1 ' REFERENCES UNDEFINED LOAD', /30X,'SET',I9, 2 ' OF BASIC SUBSTRUCTURE ',2A4) 63320 FORMAT (A25,' 6332, CANT FIND LOAD VECTOR NUMBER',I9,' IN LOAD ', 1 'MATRIX OF',I9,' COLUMNS', /32X,'BY',I9, 2 ' ROWS FOR SOLUTION STRUCTURE ',2A4) 63620 FORMAT (A23,' 6362, MPCS SET',I9,' IS ILLEGAL.', //5X, 1 'SUBSTRUCTURE ',2A4,' GRID POINT',I9,' COMPONENT',I5, 2 ' SPECIFIES A NON-UNIQUE DEPENDENT DEGREE OF FREEDOM') END ================================================ FILE: mis/sgena.f ================================================ SUBROUTINE SGENA (TYPE,BUF,MCB,IFILE,ICODE,IEXTRA,OFILE,OCODE, 1 OEXTRA) C C THIS ROUTINE READS SUBSTRUCTURING CONSTRAINT AND DYNAMIC PROPERTY C CARDS AND CONVERTS THEM TO NASTRAN FORMAT C C INPUTS - C C TYPE - BCD CARD NAME C BUF - GINO BUFFER FOR INPUT FILE C MCB - MATRIX CONTROL BLOCK FOR INPUT FILE C IFILE - INPUT FILE NAME C ICODE - LOCATE CODE FOR INPUT CARD TYPE C IEXTRA - NUMBER OF EXTRA WORDS (AFTER GRID) TO BE READ C OFILE - OUTPUT FILE NAME C OCODE - LOCATE CODE FOR OUTPUT CARD TYPE C OEXTRA - NUMBER OF EXTRA WORDS (AFTER GRID) TO BE WRITTEN C EXTERNAL ANDF,COMPLF,ORF INTEGER TYPE(2),BUF(1),MCB(7),ICODE(4),OFILE,OCODE(4), 1 OEXTRA,Z,SYSBUF,OUTT,TWO,SUBNAM(2),CARD(20),COMP, 2 CIN(6),CODE,CEXIST(6),ANDF,COMPLF,ORF CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / IDRY,NAME(2) COMMON /SGENCM/ NONO,NSS,IPTR COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,OUTT COMMON /TWO / TWO(32) DATA SUBNAM/ 4HSGEN,4HA / C C LOCATE CARDS ON FILE C CALL LOCATE (*200,BUF(1),ICODE(1),ICD) ICODE(4) = 1 C C WRITE HEADER RECORD ON OUTPUT FILE C CALL WRITE (OFILE,ICODE(1),3,0) C C READ SID AND SUBSTRUCTURING NAME FROM CARD C 10 CALL READ (*1002,*150,IFILE,CARD,3,0,NWDS) CARD(4) = CARD(1) N = 6 + OEXTRA DO 20 I = 5,N 20 CARD(I) = 0 C C FIND SUBSTRUCTURE C DO 30 I = 1,NSS INAM = 2*I + 3 IF (Z(INAM).EQ.CARD(2) .AND. Z(INAM+1).EQ.CARD(3)) GO TO 50 30 CONTINUE C C SUBSTRUCTURE NOT FOUND - SKIP OVER DATA C CALL PAGE2 (-4) WRITE (OUTT,63290) UWM,(CARD(J),J=2,3),TYPE,NAME 40 CALL FREAD (IFILE,CARD,2+IEXTRA,0) IF (CARD(1)) 10,40,40 C C FOUND SUBSTRUCTURE NAME C 50 IPT = IPTR + I - 1 IGRD = Z(IPT) NGRD = (Z(IPT+1) - Z(IPT))/3 C C PROCESS GRID-COMPONENT PAIRS C 60 CALL FREAD (IFILE,CARD(5),2+IEXTRA,0) IGRID = CARD(5) IF (IGRID .EQ. -1) GO TO 10 IF (IGRID .EQ. 0) GO TO 60 COMP = CARD(6) IF (COMP .EQ. 0) COMP = 1 CARD(6) = 0 CALL BISLOC (*80,IGRID,Z(IGRD),3,NGRD,IGR) IG = IGR + IGRD - 1 NPRO = 0 70 IF (Z(IG-3) .NE. Z(IG)) GO TO 90 IF (IG .LE. IGRD) GO TO 90 IG = IG - 3 GO TO 70 C C BAD GRID C 80 NONO = 1 CALL PAGE2 (-3) WRITE (OUTT,60220) UFM,(CARD(J),J=2,3),IGRID,COMP,TYPE,NAME GO TO 60 C C SPLIT COMPONENTS C 90 CALL SPLT10 (COMP,CIN,NCIN) 100 CODE = Z(IG+2) IF (CODE .EQ. 0) CODE = 1 ISIL = Z(IG+1) CALL DECODE (CODE,CEXIST,NC) C C FIND ACTUAL REMAINING COMPONENTS AND WRITE CONVERTED DATA TO C OUTPUT FILE C DO 120 J = 1,NC DO 120 JG = 1,NCIN IF (CIN(JG)-CEXIST(J)-1) 120,110,120 110 NPRO = NPRO + 1 CARD(5) = ISIL + J - 1 CALL WRITE (OFILE,CARD(4),3+OEXTRA,0) 120 CONTINUE IF (NPRO .GE. NCIN) GO TO 60 IF (Z(IG+3) .NE. Z(IG)) GO TO 80 IF ((IG+3) .GE. (IGRD+3*NGRD)) GO TO 80 IG = IG + 3 GO TO 100 C C FINISH PROCESSING CARDS BY CLOSING OUTPUT FILE RECORD C 150 CALL WRITE (OFILE,0,0,1) C C TURN OFF TRAILER FOR INPUT CARD TYPE C J = (ICODE(2) - 1)/16 I = ICODE(2) - 16*J MCB(J+2) = ANDF(COMPLF(TWO(I+16)),MCB(J+2)) C C TURN ON TRAILER FOR OUTPUT CARD TYPE C J = (OCODE(2) - 1)/16 I = OCODE(2) - 16*J MCB(J+2) = ORF(TWO(I+16),MCB(J+2)) C C RETURN C 200 RETURN C C ERRORS C 1002 CALL MESAGE (-2,IFILE,SUBNAM) RETURN 60220 FORMAT (A23,' 6022, SUBSTRUCTURE ',2A4,', GRID POINT',I9, 1 ', COMPONENTS',I9,1H, /30X,'REFERENCED ON ',2A4, 2 ' CARD, DO NOT EXIST ON SOLUTION STRUCTURE ',2A4) 63290 FORMAT (A25,' 6329, SUBSTRUCTURE ',2A4,' REFERENCED ON ',2A4, 1 ' CARD', /30X,'IS NOT A COMPONENT BASIC SUBSTRUCTURE OF ', 2 'SOLUTION STRUCTURE ',2A4,/30X,'THIS CARD WILL BE IGNORED') END ================================================ FILE: mis/sgenb.f ================================================ SUBROUTINE SGENB (TYPE,BUF,MCB,IFILE,ICODE,IEXTRA,OFILE,OCODE, 1 OEXTRA) C C THIS ROUTINE READS SUBSTRUCTURING CONSTRAINT CARDS AND CONVERTS C THEM TO NASTRAN FORMAT C C INPUTS - C C TYPE - BCD CARD NAME C BUF - GINO BUFFER FOR INPUT FILE C MCB - MATRIX CONTROL BLOCK FOR INPUT FILE C IFILE - INPUT FILE NAME C ICODE - LOCATE CODE FOR INPUT CARD TYPE C IEXTRA - NUMBER OF EXTRA WORDS (AFTER GRID) TO BE READ C OFILE - OUTPUT FILE NAME C OCODE - LOCATE CODE FOR OUTPUT CARD TYPE C OEXTRA - NUMBER OF EXTRA WORDS (AFTER GRID) TO BE WRITTEN C EXTERNAL ANDF,COMPLF,ORF INTEGER TYPE(2),BUF(1),MCB(7),ICODE(4),OFILE,OCODE(4), 1 OEXTRA,Z,SYSBUF,OUTT,TWO,SUBNAM(2),CARD(20),COMP, 2 CIN(6),CODE,CEXIST(6),ANDF,COMPLF,ORF CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / IDRY,NAME(2) COMMON /SGENCM/ NONO,NSS,IPTR COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,OUTT COMMON /TWO / TWO(32) DATA SUBNAM/ 4HSGEN,4HB / C C LOCATE CARDS ON FILE C CALL LOCATE (*200,BUF(1),ICODE(1),ICD) ICODE(4) = 1 C C WRITE HEADER RECORD ON OUTPUT FILE C CALL WRITE (OFILE,ICODE(1),3,0) C C READ SID, SUBSTRUCTURING NAME, AND COMPONENT CODE FORM CARD C 10 CALL READ (*1002,*150,IFILE,CARD,4,0,NWDS) CARD(5) = CARD(1) N = 6 + OEXTRA DO 20 I = 6,N 20 CARD(I) = 0 CARD(7+OEXTRA) = -1 C C FIND SUBSTRUCTURE C DO 30 I = 1,NSS INAM = 2*I + 3 IF (Z(INAM).EQ.CARD(2) .AND. Z(INAM+1).EQ.CARD(3)) GO TO 50 30 CONTINUE C C SUBSTRUCTURE NOT FOUND - SKIP OVER DATA C CALL PAGE2 (-4) WRITE (OUTT,63290) UWM,(CARD(J),J=2,3),TYPE,NAME 40 CALL FREAD (IFILE,CARD,1+IEXTRA,0) IF (CARD(1)) 10,40,40 C C FOUND SUBSTRUCTURE NAME C 50 IPT = IPTR + I - 1 IGRD = Z(IPT) NGRD = (Z(IPT+1) - Z(IPT))/3 C C SPLIT COMPONENTS C COMP = CARD(4) IF (COMP .EQ. 0) COMP = 1 CALL SPLT10 (COMP,CIN,NCIN) C C PROCESS GRID POINTS C 60 CALL FREAD (IFILE,CARD(7),1+IEXTRA,0) IGRID = CARD(7) IF (IGRID .EQ. -1) GO TO 10 IF (IGRID .EQ. 0) GO TO 60 CALL BISLOC (*80,IGRID,Z(IGRD),3,NGRD,IGR) IG = IGR + IGRD - 1 NPRO = 0 70 IF (Z(IG-3) .NE. Z(IG)) GO TO 90 IF (IG .LE. IGRD) GO TO 90 IG = IG - 3 GO TO 70 C C BAD GRID C 80 NONO = 1 CALL PAGE2 (-3) WRITE (OUTT,60220) UFM,(CARD(J),J=2,3),IGRID,COMP,TYPE,NAME GO TO 60 C C DECODE 32-BIT WORD C 90 ISIL = Z(IG+1) CODE = Z(IG+2) IF (CODE .EQ. 0) CODE = 1 CALL DECODE (CODE,CEXIST,NC) C C FIND ACTUAL REMAINING COMPONENTS AND WRITE CONVERTED DATA TO C OUTPUT FILE C DO 110 J = 1,NC DO 110 JG = 1,NCIN IF (CIN(JG)-CEXIST(J)-1) 110,100,110 100 NPRO = NPRO + 1 CARD(7) = ISIL + J - 1 CALL WRITE (OFILE,CARD(5),3+OEXTRA,0) 110 CONTINUE IF (NPRO .GE. NCIN) GO TO 60 IF (Z(IG+3) .NE. Z(IG)) GO TO 80 IF ((IG+3) .GE. (IGRD+3*NGRD)) GO TO 80 IG = IG + 3 GO TO 90 C C FINISH PROCESSING CARDS BY CLOSING OUTPUT FILE RECORD C 150 CALL WRITE (OFILE,0,0,1) C C TURN OFF TRAILER FOR INPUT CARD TYPE C J = (ICODE(2)-1)/16 I = ICODE(2) - 16*J MCB(J+2) = ANDF(COMPLF(TWO(I+16)),MCB(J+2)) C C TURN ON TRAILER FOR OUTPUT CARD TYPE C J = (OCODE(2)-1)/16 I = OCODE(2) - 16*J MCB(J+2) = ORF(TWO(I+16),MCB(J+2)) C C RETURN C 200 RETURN C C ERRORS C 1002 CALL MESAGE (-2,IFILE,SUBNAM) RETURN 60220 FORMAT (A23,', SUBSTRUCTURE ',2A4,', GRID POINT',I9, 1 ', COMPONENTS',I9,1H, /30X,'REFERENCED ON ',2A4, 2 ' CARD, DO NOT EXIST ON SOLUTION STRUCTURE ',2A4) 63290 FORMAT (A25,' 6329, SUBSTRUCTURE ',2A4,' REFERENCED ON ',2A4, 1 ' CARD', /30X,'IS NOT A COMPONENT BASIC SUBSTRUCTURE OF ', 2 'SOLUTION STRUCTURE ',2A4,/30X,'THIS CARD WILL BE IGNORED') END ================================================ FILE: mis/sgenm.f ================================================ SUBROUTINE SGENM (NTYPE,IFILE,SFILE,OFILE,ICODE,OCODE,CTYPES, 1 CTYPEO) C C THIS SUBROUTINE MERGES CONVERTED SUBSTRUCTURING DATA WITH EXISTING C NASTRAN DATA C C INPUTS C NTYPE - NUMBER OF DIFFERENT SUBSTRUCTURING CARDS C IFILE - INPUT FILE NAME C SFILE - SCRATCH FILE NAME C OFILE - OUTPUT FILE NAME C ICODE - LOCATE CODES FOR INPUT CARD TYPES C OCODE - LOCATE CODES FOR OUTPUT CARD TYPES C CTYPES - BCD NAMES OF SUBSTRUCTURING CARDS C CTYPEO - BCD NAMES OF CORRESPONDING NASTRAN CARDS C INTEGER SFILE,OFILE,ICODE(4,1),OCODE(4,1),CTYPES(2,8), 1 CTYPEO(2,8),BUF1,BUF2,BUF3,Z,SYSBUF,OUTT,CARD(3), 2 NLIMIT(3),SUBNAM(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / IDRY,NAME(2) COMMON /SGENCM/ NONO,NSS,IPTR,BUF1,BUF2,BUF3,NZ COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,OUTT DATA NLIMIT/ 3*2147483647 / DATA SUBNAM/ 4HSGEN,4HM / C C OPEN FILES C CALL GOPEN (IFILE,Z(BUF1),0) CALL GOPEN (SFILE,Z(BUF2),0) CALL GOPEN (OFILE,Z(BUF3),1) C C READ HEADER FROM IFILE - DETERMINE IF SUBSTRUCTURING OR NASTRAN C CARD C FILE = IFILE 10 CALL READ (*1002,*1003,IFILE,CARD,3,0,IDX) IF (CARD(1) .EQ. NLIMIT(1)) GO TO 70 DO 20 I = 1,NTYPE IF (ICODE(1,I).NE.CARD(1) .OR. ICODE(2,I).NE.CARD(2)) GO TO 20 C C SKIP RECORD IF SUBSTRUCTURING CARD C CALL FWDREC (*70,IFILE) GO TO 10 20 CONTINUE DO 30 I = 1,NTYPE IF (OCODE(1,I).NE.CARD(1) .OR. OCODE(2,I).NE.CARD(2)) GO TO 30 C C FATAL ERROR IF BOTH SUBSTRUCTURING AND NASTRAN CARDS C IF (ICODE(4,I) .EQ. 0) GO TO 40 NONO = 1 J = OCODE(4,I) WRITE (OUTT,6330) UFM,NAME,(CTYPES(K,J),K=1,2),(CTYPEO(K,J),K=1,2) CALL FWDREC (*70,IFILE) GO TO 10 30 CONTINUE C C COPY RECORD FROM IFILE TO OUTPUT C 40 CALL WRITE (OFILE,CARD,3,0) 50 CALL READ (*1002,*60,IFILE,Z,NZ,0,NWDS) CALL WRITE (OFILE,Z,NZ,0) GO TO 50 60 CALL WRITE (OFILE,Z,NWDS,1) GO TO 10 C C COPY RECORD FROM SFILE TO OUTPUT C 70 I1 = 1 80 DO 90 I = I1,NTYPE IF (ICODE(4,I) .EQ. 1) GO TO 100 90 CONTINUE GO TO 150 100 CALL FREAD (SFILE,CARD,3,0) CALL WRITE (OFILE,OCODE(1,I),3,0) FILE = SFILE 110 CALL READ (*1002,*120,SFILE,Z,NZ,0,NWDS) CALL WRITE (OFILE,Z,NZ,0) GO TO 110 120 CALL WRITE (OFILE,Z,NWDS,1) I1 = I + 1 GO TO 80 C C CLOSE FILES C 150 CALL WRITE (OFILE,NLIMIT,3,1) CALL CLOSE (IFILE,1) CALL CLOSE (SFILE,1) CALL CLOSE (OFILE,1) RETURN C C ERRORS C 1002 M = -2 GO TO 2000 1003 M = -3 2000 CALL MESAGE (M,FILE,SUBNAM) RETURN C 6330 FORMAT (A23,' 6330, SOLUTION SUBSTRUCTURE ',2A4,3H - ,2A4,' AND ', 1 2A4,' CARDS CANNOT BE USED TOGETHER.', /30X, 2 'USE EITHER ONE, BUT NOT BOTH.') END ================================================ FILE: mis/shape.f ================================================ SUBROUTINE SHAPE (*,GPLST,X,U,PEN,DEFORM,IOPT,IPTL,LIPLT,OPCOR) C C IOPT CONTROLS THIS ROUTINE C IOPT .LT. 0 C THE LINEL ARRAY WAS NOT CREATED. UNIQUE LINES ARE NOT DRAWN. C IOPT .GE. 0 C THE LIPLT ARRAY HAS CONNECTION DATA TO MAKE UNIQUE LINES. SUPLT C WILL CREATE THE LINES. IPTR IS ONE OF THE PARAMETERS. C C REVISED 10/1990 BY G.CHAN/UNISYS, TO INCLUDE BAR, TRIA3 AND QUAE4 C OFFSET (PEDGE = 3) C INTEGER GPLST(1),PEN,DEFORM,LIPLT(1),ETYP,ECT,NAME(2),GP, 1 ELID,OPCOR,TE,BR,T3,Q4,OFFSET,PEDGE REAL X(3,1),U(2,1),OFF(6) COMMON /BLANK / NGP,SKP1(9),SKP2(2),ECT,SKP21(7),MERR COMMON /DRWDAT/ SKP15(15),PEDGE DATA TE,BR , T3,Q4 / 2HTE, 2HBR, 2HT3, 2HQ4 / DATA NAME / 4HSHAP,1HE/ C CALL LINE (0,0,0,0,0,-1) IF (IOPT .GE. 0) GO TO 120 10 CALL READ (*140,*130,ECT,ETYP,1,0,I) OFFSET = 0 IF (ETYP .EQ. BR) OFFSET = 6 IF (ETYP.EQ.T3 .OR. ETYP.EQ.Q4) OFFSET = 1 CALL FREAD (ECT,I,1,0) NGPEL = IABS(I) IF (ETYP.NE.TE .AND. NGPEL.LT.5) GO TO 30 C C NOT A SIMPLE ELEMENT C 20 LGPEL = NGPEL LTYP = ETYP CALL LINEL (LIPLT,LTYP,OPCOR,LGPEL,X,PEN,DEFORM,GPLST) L = IABS(LTYP) IF (L-1) 10,115,70 C 30 L = NGPEL + 1 IF (NGPEL.LE.2 .OR. I.LT.0) L = NGPEL LTYP = 10000 M = 1 40 CALL FREAD (ECT,ELID,1,0) IF (ELID .LE. 0) GO TO 10 CALL FREAD (ECT,LID,1,0) CALL FREAD (ECT,LIPLT,NGPEL,0) IF (L .NE. NGPEL) LIPLT(L) = LIPLT(1) C IF (OFFSET .NE. 0) CALL FREAD (ECT,OFF,OFFSET,0) IF (OFFSET.EQ.0 .OR. DEFORM.NE.0) GO TO 70 C C IF THIS IS A BAR, TRIA3 OR QUAD4 ELEMENTS READ IN THE OFFSET C NO SCALE FACTOR APPLIES TO OFFSET HERE C IF (OFFSET .NE. 6) GO TO 50 C C BAR OFFSET C OFF(1) = 0.707*SQRT(OFF(1)**2 + OFF(2)**2 + OFF(3)**2) OFF(2) = 0.707*SQRT(OFF(4)**2 + OFF(5)**2 + OFF(6)**2) OFF(3) = OFF(1) GO TO 70 C C TRIA3 AND QUAD4 OFFSET C 50 OFF(1) = 0.707*OFF(1) DO 60 I = 2,5 60 OFF(I) = OFF(1) C C WRITE THE LINES. 0 FOR SIL MEANS NO LINES DRAWN C 70 J = 0 DO 110 I = 1,L IF (J .EQ. 0) GO TO 80 X1 = X2 Y1 = Y2 80 GP = LIPLT(I) IF (GP .EQ. 0) GO TO 110 GP = IABS(GPLST(GP)) IF (DEFORM .NE. 0) GO TO 90 X2 = X(2,GP) Y2 = X(3,GP) IF (OFFSET .EQ. 0) GO TO 100 C C IF OFFSET IS PRESENT, ADD ARBITRARY AN OFFSET LENGTH TO X2 AND Y2. C SINCE THE OFFSET LENGTH IS SO TINY, ITS TRUE DIRECTION IS NOT OF C VITAL CONCERNS. THE IDEA HERE IS THAT BIG OFFSET WILL SHOW IN THE C PLOT IF ORIGINAL DATA CONTAINS ERRONEOUS AND BIG OFFSET VALUE(S). C C IF OFFSET IS ADDED IN SAME DIRECTION AS THE PLOTTED LINE, ROTATE C THE OFFSET LENGTH BY 90 DEGREE C X2 = X2 + OFF(I) XY = XY + OFF(I) IF (ABS((X2-X1)-(Y2-Y1)) .LT. 0.01) X2 = X2 - 2.*OFF(I) GO TO 100 90 X2 = U(1,GP) Y2 = U(2,GP) 100 IF (J.EQ.0 .OR. J.EQ.GP) GO TO 110 CALL LINE (X1,Y1,X2,Y2,PEN,0) 110 J = GP C 115 IF (L-LTYP) 40,10,20 C C 120 IF (PEDGE .EQ. 3) GO TO 130 CALL SUPLT (LIPLT(1),LIPLT(IPTL+1),X,U,GPLST,PEN,DEFORM) 130 CALL LINE (0,0,0,0,0,1) IF (IOPT .LT. 0) CALL BCKREC (ECT) GO TO 150 C C ILLEGAL EOF C 140 CALL MESAGE (-2,ECT,NAME) 150 IF (PEDGE .EQ. 3) RETURN 1 RETURN END ================================================ FILE: mis/shcsgd.f ================================================ SUBROUTINE SHCSGD (*,CFLAG,CCSID,CTHETA,PFLAG,PCSID,PTHETA, 1 NECPT,TUBD,CSID,THETAD,TUMSD) C C WITH ENTRY SHCSGS (*,CFLAG,CCSID,CTHETA,PFLAG,PCSID,PTHETA, C 1 NECPT,TUBS,CSID,THETAS,TUMSS) C C C 'COORDINATE SYSTEM GENERATOR' ROUTINE FOR SHELL ELEMENTS. C C THIS ROUTINE USES THE VALUES IN THE EST TABLE TO CREATE C APPROPRIATE MATERIAL/STRESS COORDINATE SYSTEM TRANSFORMATIONS. C C INPUT: C CFLAG - INDICATOR FLAG FROM CONNECTION C CCSID - CSID FROM CONNECTION C CTHETA - ANGLE FROM CONNECTION C PFLAG - INDICATOR FLAG FROM PROPERTY C PCSID - CSID FROM PROPERTY C PTHETA - ANGLE FROM PROPERTY C NECPT - ARRAY OF LENGTH 4, WORDS 2-4 ARE THE LOCATION C WHERE THE TRANSFORMATION NEEDS TO BE CALCULATED C TUBD/S - USER TO BASIC TRANSFORMATION C OUTPUT: C TUMSD/S - USER TO MATERIAL/STRESS TRANSFORMATION C CSID - CSID USED FOR CALCULATIONS C THETAD/S - THETA USED FOR CALCULATIONS C C NOTES: C 1- IF CSID HAS BEEN SPECIFIED, SUBROUTINE TRANSD IS CALLED TO C CALCULATE [TBMS] (MATERIAL/STRESS TO BASIC TRANSFORMATION). C [TBMS] IS THEN PREMULTIPLIED BY [TUB] TO OBTAIN [TUMS]. C THEN USING THE PROJECTION OF X-AXIS, AN ANGLE IS CALCULATED C UPON WHICH STEP 2 IS TAKEN. C 2- IF THETA HAS BEEN SPECIFIED, INPLANE TRANSFORMATION IS USED TO C CALCULATE [TUMS] (MATERIAL/STRESS TO USER TRANSFORMATION). C 3- IF THE CONNECTION VALUE IS LEFT BLANK, THE PROPERTY VALUE IS C USED. C 4- NON-STANDARD RETURN IS TAKEN WHEN THE X-AXIS OF THE SPECIFIED C COORDINATE SYSTEM DOES NOT HAVE A PROJECTION ON THE X-Y PLANE C OF THE ELEMENT COORD. SYSTEM C C INTEGER CSID,CCSID,PCSID,CFLAG,PFLAG,NECPT(4) REAL TUBS(9),TUMSS(9),TBMSS(9),XMS,YMS,THETAS,EPS1S, 1 PIS,TWOPIS,RADDGS,DEGRDS,FLIPS DOUBLE PRECISION TUBD(9),TUMSD(9),TBMSD(9),XMD,YMD,THETAD,EPS1D, 1 PID,TWOPID,RADDGD,DEGRDD,FLIPD COMMON /CONDAS/ PIS,TWOPIS,RADDGS,DEGRDS COMMON /CONDAD/ PID,TWOPID,RADDGD,DEGRDD EQUIVALENCE (TBMSS(1),TBMSD(1)) DATA EPS1D , EPS1S /1.0D-7, 1.0E-7 / C C C DOUBLE PRECISION VERSION C FLIPD = 1.0D0 IF (CFLAG .EQ. 0) GO TO 130 C C DETERMINE THETA FROM THE PROJECTION OF THE X-AXIS OF THE MATERIAL/ C STRESS COORD. SYSTEM, DETERMINED BASED ON CCSID, ONTO THE XY-PLANE C OF THE ELEMENT COORD. SYSTEM. C CSID = CCSID IF (CCSID .GT. 0) GO TO 110 C C [TUMS] = [TUB] C DO 100 I = 1,9 TUMSD(I) = TUBD(I) 100 CONTINUE GO TO 120 C C [TUMS] = [TUB] [TBMS] C 110 NECPT(1) = CCSID CALL TRANSD (NECPT,TBMSD) CALL GMMATD (TUBD,3,3,0, TBMSD,3,3,0, TUMSD) C 120 XMD = TUMSD(1) YMD = TUMSD(4) IF (DABS(XMD).LE.EPS1D .AND. DABS(YMD).LE.EPS1D) RETURN 1 THETAD = DATAN2(YMD,XMD) IF (TUMSD(9) .LT. 0.0D0) FLIPD = -1.0D0 GO TO 190 C 130 IF (CTHETA .EQ. 0.0) GO TO 140 C C DETERMINE THETA FROM CTHETA C THETAD = DBLE(CTHETA)*DEGRDD GO TO 190 C C DEFAULT IS CHOSEN, LOOK FOR VALUES OF PCSID AND/OR PTHETA ON THE C PSHELL CARD. C 140 IF (PFLAG .EQ. 0) GO TO 180 C C DETERMINE THETA FROM THE PROJECTION OF THE X-AXIS OF THE MATERIAL/ C STRESS COORD. SYSTEM, DETERMINED BASED ON PCSID, ONTO THE XY-PLANE C OF THE ELEMENT COORD. SYSTEM. C CSID = PCSID IF (PCSID .GT. 0) GO TO 160 C C [TUMS] = [TUB] C DO 150 I = 1,9 TUMSD(I) = TUBD(I) 150 CONTINUE GO TO 170 C C [TUMS] = [TUB] [TBMS] C 160 NECPT(1) = PCSID CALL TRANSD (NECPT,TBMSD) CALL GMMATD (TUBD,3,3,0, TBMSD,3,3,0, TUMSD) C 170 XMD = TUMSD(1) YMD = TUMSD(4) IF (DABS(XMD).LE.EPS1D .AND. DABS(YMD).LE.EPS1D) RETURN 1 THETAD = DATAN2(YMD,XMD) IF (TUMSD(9) .LT. 0.0D0) FLIPD = -1.0D0 GO TO 190 C C DETERMINE THETA FROM PTHETA C 180 THETAD = DBLE(PTHETA)*DEGRDD C C IF THE Z-AXIS OF THE TARGET MATERIAL/STRESS COORD. SYSTEM WAS NOT C POINTING IN THE SAME GENERAL DIRECTION AS THE Z-AXIS OF THE USER C COORD. SYSTEM, FLIP THE Y- AND Z-AXES OF THE FINAL COORDINATE C SYSTEM TO ACCOUNT FOR IT. C 190 TUMSD(1) = DCOS(THETAD) TUMSD(2) =-FLIPD*DSIN(THETAD) TUMSD(3) = 0.0D0 TUMSD(4) = DSIN(THETAD) TUMSD(5) = FLIPD*DCOS(THETAD) TUMSD(6) = 0.0D0 TUMSD(7) = 0.0D0 TUMSD(8) = 0.0D0 TUMSD(9) = FLIPD C RETURN C C ENTRY SHCSGS (*,CFLAG,CCSID,CTHETA,PFLAG,PCSID,PTHETA, 1 NECPT,TUBS,CSID,THETAS,TUMSS) C ====================================================== C C SINGLE PRECISION VERSION C FLIPS = 1.0 IF (CFLAG .EQ. 0) GO TO 230 C C DETERMINE THETA FROM THE PROJECTION OF THE X-AXIS OF THE MATERIAL/ C STRESS COORD. SYSTEM, DETERMINED BASED ON CCSID, ONTO THE XY-PLANE C OF THE ELEMENT COORD. SYSTEM. C CSID = CCSID IF (CCSID .GT. 0) GO TO 210 C C [TUMS] = [TUB] C DO 200 I = 1,9 TUMSS(I) = TUBS(I) 200 CONTINUE GO TO 220 C C [TUMS] = [TUB] [TBMS] C 210 NECPT(1) = CCSID CALL TRANSS (NECPT,TBMSS) CALL GMMATS (TUBS,3,3,0, TBMSS,3,3,0, TUMSS) C 220 XMS = TUMSS(1) YMS = TUMSS(4) IF (ABS(XMS).LE.EPS1S .AND. ABS(YMS).LE.EPS1S) RETURN 1 THETAS = ATAN2(YMS,XMS) IF (TUMSS(9) .LT. 0.0) FLIPS = -1.0 GO TO 290 C 230 IF (CTHETA .EQ. 0.0) GO TO 240 C C DETERMINE THETA FROM CTHETA C THETAS = CTHETA*DEGRDS GO TO 290 C C DEFAULT IS CHOSEN, LOOK FOR VALUES OF PCSID AND/OR PTHETA ON THE C PSHELL CARD. C 240 IF (PFLAG .EQ. 0) GO TO 280 C C DETERMINE THETA FROM THE PROJECTION OF THE X-AXIS OF THE MATERIAL/ C STRESS COORD. SYSTEM, DETERMINED BASED ON PCSID, ONTO THE XY-PLANE C OF THE ELEMENT COORD. SYSTEM. C CSID = PCSID IF (PCSID .GT. 0) GO TO 260 C C [TUMS] = [TUB] C DO 250 I = 1,9 TUMSS(I) = TUBS(I) 250 CONTINUE GO TO 270 C C [TUMS] = [TUB] [TBMS] C 260 NECPT(1) = PCSID CALL TRANSS (NECPT,TBMSS) CALL GMMATS (TUBS,3,3,0, TBMSS,3,3,0, TUMSS) C 270 XMS = TUMSS(1) YMS = TUMSS(4) IF (ABS(XMS).LE.EPS1S .AND. ABS(YMS).LE.EPS1S) RETURN 1 THETAS = ATAN2(YMS,XMS) IF (TUMSS(9) .LT. 0.0) FLIPS = -1.0 GO TO 290 C C DETERMINE THETA FROM PTHETA C 280 THETAS = PTHETA*DEGRDS C C IF THE Z-AXIS OF THE TARGET MATERIAL/STRESS COORD. SYSTEM WAS NOT C POINTING IN THE SAME GENERAL DIRECTION AS THE Z-AXIS OF THE USER C COORD. SYSTEM, FLIP THE Y- AND Z-AXES OF THE FINAL COORDINATE C SYSTEM TO ACCOUNT FOR IT. C 290 TUMSS(1) = COS(THETAS) TUMSS(2) =-FLIPS*SIN(THETAS) TUMSS(3) = 0.0 TUMSS(4) = SIN(THETAS) TUMSS(5) = FLIPS*COS(THETAS) TUMSS(6) = 0.0 TUMSS(7) = 0.0 TUMSS(8) = 0.0 TUMSS(9) = FLIPS C RETURN END ================================================ FILE: mis/shctsd.f ================================================ SUBROUTINE SHCTSD (IERR,ELID,PID,MID,TLAM,TMEAN,TGRAD,THETAE, 1 FTHERM,EPSLNT,ICORE,CORE) C C DOUBLE PRECISION ROUTINE TO EVALUATE THERMAL STRAINS FOR COMPOSITE C SHELL ELEMENTS. C C INPUT : C ELID - ELEMENT ID C PID - PROPERTY ID C MID - ARRAY OF LAMINATE MATERIAL ID'S C TLAM - LAMINATE THICKNESS C TMEAN - ELEMENT MEAN TEMPERATURE C TGRAD - THERMAL GRADIENT C THETAE - ANGLE FROM ELEMENT X-AXIS TO MATERIAL X-AXIS C FTHERM - ARRAY OF THERMAL FORCES CONTAINING THE USER- C DEFINED THERMAL MOMENTS, IF SUPPLIED C IPCMPI AND NPCMPI ARE THE STARTING POINT AND THE NUMBER C OF WORDS OF PCOMPI DATA IN CORE, AS INPUT BY /SDR2C1/. C OUTPUT: C EPSLNT - ARRAY OF THERMAL STRAINS FOR THE LAMINATE C C LOGICAL NONMEM,PCMP,PCMP1,PCMP2 INTEGER ELID,PID,MID(4),ICORE(1),PCOMP,PCOMP1,PCOMP2, 1 PIDLOC,SYM,SYMMEM,INDX(6,3) REAL CORE(1) DOUBLE PRECISION TLAM,TMEAN,TGRAD,THETAE,FTHERM(6),EPSLNT(6), 1 MINRT,ABBD(6,6),STIFF(36),GLAY(9),GLAYT(9), 2 GBAR(9),GPROP(25),ALPHAL(3),ALPHAE(3),GALPHA(3), 3 THETA,TRANSL(9),TSUBO,DELTA,DELTAT,ZK,ZK1,ZREF, 4 ZSUBI,C,C2,S,S2,PI,TWOPI,RADDEG,DEGRAD,DETERM, 5 DUM(6) COMMON /CONDAD/ PI,TWOPI,RADDEG,DEGRAD COMMON /MATIN / MATID,INFLAG,ELTEMP COMMON /SDR2C1/ IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2 C C DATA PCOMP , PCOMP1,PCOMP2 / 0,1,2 / DATA SYM , MEM ,SYMMEM / 1,2,3 / C C INITIALIZE C IERR = 0 DO 20 LL = 1,6 DO 10 MM = 1,6 ABBD(LL,MM) = 0.0D0 10 CONTINUE 20 CONTINUE C MINRT = TLAM*TLAM*TLAM/12.0D0 ZREF =-TLAM/2.0D0 C INFLAG = 12 ELTEMP = TMEAN C ITYPE = -1 LPCOMP= IPCMP + NPCMP + NPCMP1 + NPCMP2 PCMP = NPCMP .GT. 0 PCMP1 = NPCMP1 .GT. 0 PCMP2 = NPCMP2 .GT. 0 C C ISSUE ERROR IF PCOMPI DATA HAS NOT BEEN READ INTO CORE C IF (LPCOMP .EQ. IPCMP) GO TO 600 C C LOCATE PID BY PERFORMING A SEQUENTIAL SEARCH OF THE PCOMPI DATA C BLOCK WHICH IS IN CORE. C C SEARCH FOR PID IN PCOMP DATA C IF (.NOT.PCMP) GO TO 110 IP = IPCMP IF (ICORE(IP) .EQ. PID) GO TO 210 IPC11 = IPCMP1 - 1 DO 100 IP = IPCMP,IPC11 IF (ICORE(IP).NE.-1 .OR. IP.GE.IPC11) GO TO 100 IF (ICORE(IP+1) .EQ. PID) GO TO 200 100 CONTINUE C C SEARCH FOR PID IN PCOMP1 DATA C 110 IF (.NOT.PCMP1) GO TO 130 IP = IPCMP1 IF (ICORE(IP) .EQ. PID) GO TO 230 IPC21 = IPCMP2 - 1 DO 120 IP = IPCMP1,IPC21 IF (ICORE(IP).NE.-1 .OR. IP.GE.IPC21) GO TO 120 IF (ICORE(IP+1) .EQ. PID) GO TO 220 120 CONTINUE C C SEARCH FOR PID IN PCOMP2 DATA C 130 IF (.NOT.PCMP2) GO TO 150 IP = IPCMP2 IF (ICORE(IP) .EQ. PID) GO TO 250 LPC11 = LPCOMP - 1 DO 140 IP = IPCMP2,LPC11 IF (ICORE(IP).NE.-1 .OR. IP.GE.LPC11) GO TO 140 IF (ICORE(IP+1) .EQ. PID) GO TO 240 140 CONTINUE C C PID WAS NOT LOCATED; ISSUE ERROR C 150 GO TO 600 C C PID WAS LOCATED; DETERMINE TYPE C 200 IP = IP + 1 210 ITYPE = PCOMP PIDLOC = IP NLAY = ICORE(PIDLOC+1) IPOINT = PIDLOC + 8 + 4*NLAY GO TO 300 C 220 IP = IP + 1 230 ITYPE = PCOMP1 PIDLOC = IP NLAY = ICORE(PIDLOC+1) IPOINT = PIDLOC + 8 + NLAY GO TO 300 C 240 IP = IP + 1 250 ITYPE = PCOMP2 PIDLOC = IP NLAY = ICORE(PIDLOC+1) IPOINT = PIDLOC + 8 + 2*NLAY C 300 TSUBO = CORE(IPOINT+24) DELTA = TMEAN - TSUBO LAMOPT = ICORE(PIDLOC+8) NONMEM = LAMOPT.NE.MEM .AND. LAMOPT.NE.SYMMEM C C LAMOPT - LAMINATION GENERATION OPTION C = ALL (ALL PLYS, DEFAULT) C = SYM (SYMMETRIC) C = MEM (MEMBRANE ONLY) C = SYMMEM (SYMMETRIC-MEMBRANE) C C CONSTRUCT THE LAMINATE FORCE-STRAIN MATRIX C C EXTENSIONAL C MATID = MID(1) CALL MAT (ELID) CALL LPROPD (GPROP) C DO 320 LL = 1,3 II = 3*(LL-1) DO 310 MM = 1,3 ABBD(LL,MM) = GPROP(MM+II)*TLAM 310 CONTINUE 320 CONTINUE C C BENDING C IF (.NOT.NONMEM) GO TO 400 C MATID = MID(2) CALL MAT (ELID) CALL LPROPD (GPROP) C DO 340 LL = 1,3 II = 3*(LL-1) DO 330 MM = 1,3 ABBD(LL+3,MM+3) = GPROP(MM+II)*MINRT 330 CONTINUE 340 CONTINUE C C MEMBRANE-BENDING C IF (LAMOPT .EQ. SYM) GO TO 400 C MATID = MID(4) CALL MAT (ELID) CALL LPROPD (GPROP) C DO 360 LL = 1,3 II = 3*(LL-1) DO 350 MM = 1,3 ABBD(LL,MM+3) = GPROP(MM+II)*TLAM*TLAM ABBD(LL+3,MM) = GPROP(MM+II)*TLAM*TLAM 350 CONTINUE 360 CONTINUE C C C BEGIN THE LOOP OVER LAYERS C 400 ZK = ZREF DO 500 K = 1,NLAY C C SET THE LAYER-DEPENDENT VARIABLES C ZK1 = ZK IF (ITYPE .NE. PCOMP) GO TO 410 ZK = ZK1 + CORE(PIDLOC+6+4*K) THETA = CORE(PIDLOC +7+4*K) GO TO 430 C 410 IF (ITYPE .NE. PCOMP1) GO TO 420 ZK = ZK1 + CORE(PIDLOC+7 ) THETA = CORE(PIDLOC +8+K) GO TO 430 C 420 IF (ITYPE .NE. PCOMP2) GO TO 430 ZK = ZK1 + CORE(PIDLOC+7+2*K) THETA = CORE(PIDLOC +8+2*K) C C LAYER MATERIAL PROPERTIES C 430 DO 440 IR = 1,9 GLAY(IR) = CORE(IPOINT+IR) 440 CONTINUE C DO 450 IR = 1,3 ALPHAL(IR) = CORE(IPOINT+13+IR) 450 CONTINUE C TI = ZK - ZK1 ZSUBI = (ZK+ZK1)/2.0D0 DELTAT = DELTA + ZSUBI*TGRAD C C TRANSFORM THE LAYER MATERIAL PROPERTIES FROM THE FIBER SYSTEM TO C THE ELEMENT SYSTEM C THETA = THETA*DEGRAD + THETAE C = DCOS(THETA) C2 = C*C S = DSIN(THETA) S2 = S*S C TRANSL(1) = C2 TRANSL(2) = S2 TRANSL(3) = C*S TRANSL(4) = S2 TRANSL(5) = C2 TRANSL(6) =-C*S TRANSL(7) =-2.0D0*C*S TRANSL(8) = 2.0D0*C*S TRANSL(9) = C2 - S2 C C _ T C CALCULATE [G] = [TRANSL] [GLAY][TRANSL] C CALL GMMATD (GLAY(1),3,3,0, TRANSL(1),3,3,0, GLAYT(1)) CALL GMMATD (TRANSL(1),3,3,1, GLAYT(1),3,3,0, GBAR(1)) C C CALCULATE [ALPHAE] = [TRANSL]X[ALPHA] C MODIFY [TRANSL] FOR TRANSFORMATIONS OF ALPHAS C TRANSL(3) = -TRANSL(3) TRANSL(6) = -TRANSL(6) TRANSL(7) = -TRANSL(7) TRANSL(8) = -TRANSL(8) C CALL GMMATD (TRANSL(1),3,3,0, ALPHAL(1),3,1,0, ALPHAE(1)) C C C CALCULATE THERMAL FORCES AND MOMENTS C CALL GMMATD (GBAR(1),3,3,0, ALPHAE(1),3,1,0, GALPHA(1)) C DO 460 IR = 1,3 FTHERM(IR) = FTHERM(IR ) + GALPHA(IR)*DELTAT*(ZK-ZK1) IF (NONMEM) FTHERM(IR+3) = FTHERM(IR+3) - GALPHA(IR)* 1 DELTAT*(ZK*ZK-ZK1*ZK1)/2.0D0 460 CONTINUE C C CALCULATE CONTRIBUTION FROM SYMMETRIC LAYERS C IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 480 DELTAT = DELTA - ZSUBI*TGRAD C DO 470 IR = 1,3 FTHERM(IR) = FTHERM(IR ) + GALPHA(IR)*DELTAT*(ZK-ZK1) IF (NONMEM) FTHERM(IR+3) = FTHERM(IR+3) - GALPHA(IR)* 1 DELTAT*(ZK1*ZK1-ZK*ZK)/2.0D0 470 CONTINUE 480 IF (ITYPE .EQ. PCOMP) IPOINT = IPOINT + 27 C 500 CONTINUE C C C END OF LOOP OVER THE LAYERS C C COMPUTE THERMAL STRAIN VECTOR C C -1 C {EPSLNT} = [ABBD] {FTHERM} C ISING = -1 CALL INVERD (6,ABBD,6,DUM,0,DETERM,ISING,INDX) C DO 520 LL = 1,6 NN = 6*(LL-1) DO 510 MM = 1,6 STIFF(NN+MM) = ABBD(LL,MM) 510 CONTINUE 520 CONTINUE C CALL GMMATD (STIFF(1),6,6,0, FTHERM(1),6,1,0, EPSLNT(1)) GO TO 700 C 600 IERR = 1 700 RETURN END ================================================ FILE: mis/shctss.f ================================================ SUBROUTINE SHCTSS (IERR,ELID,PID,MID,TLAM,TMEAN,TGRAD,THETAE, 1 FTHERM,EPSLNT,ICORE,CORE) C C SINGLE PRECISION ROUTINE TO EVALUATE THERMAL STRAINS FOR COMPOSITE C SHELL ELEMENTS. C C INPUT : C ELID - ELEMENT ID C PID - PROPERTY ID C MID - ARRAY OF LAMINATE MATERIAL ID'S C TLAM - LAMINATE THICKNESS C TMEAN - ELEMENT MEAN TEMPERATURE C TGRAD - THERMAL GRADIENT C THETAE - ANGLE FROM ELEMENT X-AXIS TO MATERIAL X-AXIS C FTHERM - ARRAY OF THERMAL FORCES CONTAINING THE USER- C DEFINED THERMAL MOMENTS, IF SUPPLIED C IPCMPI AND NPCMPI ARE THE STARTING POINT AND THE NUMBER C OF WORDS OF PCOMPI DATA IN CORE, AS INPUT BY /SDR2C1/. C OUTPUT: C EPSLNT - ARRAY OF THERMAL STRAINS FOR THE LAMINATE C C LOGICAL NONMEM,PCMP,PCMP1,PCMP2 INTEGER ELID,PID,MID(4),ICORE(1),PCOMP,PCOMP1,PCOMP2, 1 PIDLOC,SYM,SYMMEM,INDX(6,3) REAL CORE(1) REAL TLAM,TMEAN,TGRAD,THETAE,FTHERM(6),EPSLNT(6), 1 MINRT,ABBD(6,6),STIFF(36),GLAY(9),GLAYT(9), 2 GBAR(9),GPROP(25),ALPHAL(3),ALPHAE(3),GALPHA(3), 3 THETA,TRANSL(9),TSUBO,DELTA,DELTAT,ZK,ZK1,ZREF, 4 ZSUBI,C,C2,S,S2,PI,TWOPI,RADDEG,DEGRAD,DETERM, 5 DUM(6) COMMON /CONDAS/ PI,TWOPI,RADDEG,DEGRAD COMMON /MATIN / MATID,INFLAG,ELTEMP COMMON /SDR2C1/ IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2 C C DATA PCOMP , PCOMP1,PCOMP2 / 0,1,2 / DATA SYM , MEM ,SYMMEM / 1,2,3 / C C INITIALIZE C IERR = 0 DO 20 LL = 1,6 DO 10 MM = 1,6 ABBD(LL,MM) = 0.0 10 CONTINUE 20 CONTINUE C MINRT = TLAM*TLAM*TLAM/12.0 ZREF =-TLAM/2.0 C INFLAG = 12 ELTEMP = TMEAN C ITYPE = -1 LPCOMP= IPCMP + NPCMP + NPCMP1 + NPCMP2 PCMP = NPCMP .GT. 0 PCMP1 = NPCMP1 .GT. 0 PCMP2 = NPCMP2 .GT. 0 C C ISSUE ERROR IF PCOMPI DATA HAS NOT BEEN READ INTO CORE C IF (LPCOMP .EQ. IPCMP) GO TO 600 C C LOCATE PID BY PERFORMING A SEQUENTIAL SEARCH OF THE PCOMPI DATA C BLOCK WHICH IS IN CORE. C C SEARCH FOR PID IN PCOMP DATA C IF (.NOT.PCMP) GO TO 110 IP = IPCMP IF (ICORE(IP) .EQ. PID) GO TO 210 IPC11 = IPCMP1 - 1 DO 100 IP = IPCMP,IPC11 IF (ICORE(IP).NE.-1 .OR. IP.GE.IPC11) GO TO 100 IF (ICORE(IP+1) .EQ. PID) GO TO 200 100 CONTINUE C C SEARCH FOR PID IN PCOMP1 DATA C 110 IF (.NOT.PCMP1) GO TO 130 IP = IPCMP1 IF (ICORE(IP) .EQ. PID) GO TO 230 IPC21 = IPCMP2 - 1 DO 120 IP = IPCMP1,IPC21 IF (ICORE(IP).NE.-1 .OR. IP.GE.IPC21) GO TO 120 IF (ICORE(IP+1) .EQ. PID) GO TO 220 120 CONTINUE C C SEARCH FOR PID IN PCOMP2 DATA C 130 IF (.NOT.PCMP2) GO TO 150 IP = IPCMP2 IF (ICORE(IP) .EQ. PID) GO TO 250 LPC11 = LPCOMP - 1 DO 140 IP = IPCMP2,LPC11 IF (ICORE(IP).NE.-1 .OR. IP.GE.LPC11) GO TO 140 IF (ICORE(IP+1) .EQ. PID) GO TO 240 140 CONTINUE C C PID WAS NOT LOCATED; ISSUE ERROR C 150 GO TO 600 C C PID WAS LOCATED; DETERMINE TYPE C 200 IP = IP + 1 210 ITYPE = PCOMP PIDLOC = IP NLAY = ICORE(PIDLOC+1) IPOINT = PIDLOC + 8 + 4*NLAY GO TO 300 C 220 IP = IP + 1 230 ITYPE = PCOMP1 PIDLOC = IP NLAY = ICORE(PIDLOC+1) IPOINT = PIDLOC + 8 + NLAY GO TO 300 C 240 IP = IP + 1 250 ITYPE = PCOMP2 PIDLOC = IP NLAY = ICORE(PIDLOC+1) IPOINT = PIDLOC + 8 + 2*NLAY C 300 TSUBO = CORE(IPOINT+24) DELTA = TMEAN - TSUBO LAMOPT = ICORE(PIDLOC+8) NONMEM = LAMOPT.NE.MEM .AND. LAMOPT.NE.SYMMEM C C LAMOPT - LAMINATION GENERATION OPTION C = ALL (ALL PLYS, DEFAULT) C = SYM (SYMMETRIC) C = MEM (MEMBRANE ONLY) C = SYMMEM (SYMMETRIC-MEMBRANE) C C CONSTRUCT THE LAMINATE FORCE-STRAIN MATRIX C C EXTENSIONAL C MATID = MID(1) CALL MAT (ELID) CALL LPROPS (GPROP) C DO 320 LL = 1,3 II = 3*(LL-1) DO 310 MM = 1,3 ABBD(LL,MM) = GPROP(MM+II)*TLAM 310 CONTINUE 320 CONTINUE C C BENDING C IF (.NOT.NONMEM) GO TO 400 C MATID = MID(2) CALL MAT (ELID) CALL LPROPS (GPROP) C DO 340 LL = 1,3 II = 3*(LL-1) DO 330 MM = 1,3 ABBD(LL+3,MM+3) = GPROP(MM+II)*MINRT 330 CONTINUE 340 CONTINUE C C MEMBRANE-BENDING C IF (LAMOPT .EQ. SYM) GO TO 400 C MATID = MID(4) CALL MAT (ELID) CALL LPROPS (GPROP) C DO 360 LL = 1,3 II = 3*(LL-1) DO 350 MM = 1,3 ABBD(LL,MM+3) = GPROP(MM+II)*TLAM*TLAM ABBD(LL+3,MM) = GPROP(MM+II)*TLAM*TLAM 350 CONTINUE 360 CONTINUE C C C BEGIN THE LOOP OVER LAYERS C 400 ZK = ZREF DO 500 K = 1,NLAY C C SET THE LAYER-DEPENDENT VARIABLES C ZK1 = ZK IF (ITYPE .NE. PCOMP) GO TO 410 ZK = ZK1 + CORE(PIDLOC+6+4*K) THETA = CORE(PIDLOC +7+4*K) GO TO 430 C 410 IF (ITYPE .NE. PCOMP1) GO TO 420 ZK = ZK1 + CORE(PIDLOC+8 ) THETA = CORE(PIDLOC +8+K) GO TO 430 C 420 IF (ITYPE .NE. PCOMP2) GO TO 430 ZK = ZK1 + CORE(PIDLOC+7+2*K) THETA = CORE(PIDLOC +8+2*K) C C LAYER MATERIAL PROPERTIES C 430 DO 440 IR = 1,9 GLAY(IR) = CORE(IPOINT+IR) 440 CONTINUE C DO 450 IR = 1,3 ALPHAL(IR) = CORE(IPOINT+13+IR) 450 CONTINUE C TI = ZK - ZK1 ZSUBI = (ZK+ZK1)/2.0 DELTAT = DELTA + ZSUBI*TGRAD C C TRANSFORM THE LAYER MATERIAL PROPERTIES FROM THE FIBER SYSTEM TO C THE ELEMENT SYSTEM C THETA = THETA*DEGRAD + THETAE C = COS(THETA) C2 = C*C S = SIN(THETA) S2 = S*S C TRANSL(1) = C2 TRANSL(2) = S2 TRANSL(3) = C*S TRANSL(4) = S2 TRANSL(5) = C2 TRANSL(6) =-C*S TRANSL(7) =-2.0*C*S TRANSL(8) = 2.0*C*S TRANSL(9) = C2 - S2 C C _ T C CALCULATE [G] = [TRANSL] [GLAY][TRANSL] C CALL GMMATS (GLAY(1),3,3,0, TRANSL(1),3,3,0, GLAYT(1)) CALL GMMATS (TRANSL(1),3,3,1, GLAYT(1),3,3,0, GBAR(1)) C C CALCULATE [ALPHAE] = [TRANSL]X[ALPHA] C MODIFY [TRANSL] FOR TRANSFORMATIONS OF ALPHAS C TRANSL(3) = -TRANSL(3) TRANSL(6) = -TRANSL(6) TRANSL(7) = -TRANSL(7) TRANSL(8) = -TRANSL(8) C CALL GMMATS (TRANSL(1),3,3,0, ALPHAL(1),3,1,0, ALPHAE(1)) C C C CALCULATE THERMAL FORCES AND MOMENTS C CALL GMMATS (GBAR(1),3,3,0, ALPHAE(1),3,1,0, GALPHA(1)) C DO 460 IR = 1,3 FTHERM(IR) = FTHERM(IR ) + GALPHA(IR)*DELTAT*(ZK-ZK1) IF (NONMEM) FTHERM(IR+3) = FTHERM(IR+3) - GALPHA(IR)* 1 DELTAT*(ZK*ZK-ZK1*ZK1)/2.0 460 CONTINUE C C CALCULATE CONTRIBUTION FROM SYMMETRIC LAYERS C IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 480 DELTAT = DELTA - ZSUBI*TGRAD C DO 470 IR = 1,3 FTHERM(IR) = FTHERM(IR ) + GALPHA(IR)*DELTAT*(ZK-ZK1) IF (NONMEM) FTHERM(IR+3) = FTHERM(IR+3) - GALPHA(IR)* 1 DELTAT*(ZK1*ZK1-ZK*ZK)/2.0 470 CONTINUE 480 IF (ITYPE .EQ. PCOMP) IPOINT = IPOINT + 27 C 500 CONTINUE C C C END OF LOOP OVER THE LAYERS C C COMPUTE THERMAL STRAIN VECTOR C C -1 C {EPSLNT} = [ABBD] {FTHERM} C ISING = -1 CALL INVERS (6,ABBD,6,DUM,0,DETERM,ISING,INDX) C DO 520 LL = 1,6 NN = 6*(LL-1) DO 510 MM = 1,6 STIFF(NN+MM) = ABBD(LL,MM) 510 CONTINUE 520 CONTINUE C CALL GMMATS (STIFF(1),6,6,0, FTHERM(1),6,1,0, EPSLNT(1)) GO TO 700 C 600 IERR = 1 700 RETURN END ================================================ FILE: mis/sheard.f ================================================ SUBROUTINE SHEARD C C THIS SUBROUTINE COMPUTES THE 12 X 12 STIFFNESS MATRIX FOR THE C SHEAR PANEL ELEMENT, AS WELL AS ITS DIAGONALIZED MASS MATRIX. C C DOUBLE PRECISION VERSION C C ECPT FOR THE SHEAR PANEL ELEMENT C C ECPT( 1) - IELID ELEMENT ID. NO. C ECPT( 2) - ISILNO(4) SCALAR INDEX NUMBERS C ECPT( 3) - ... ... C ECPT( 4) - ... ... C ECPT( 5) - ... ... C ECPT( 6) - MATID MATERIAL ID. C ECPT( 7) - T THICKNESS C ECPT( 8) - FMU NON-STRUCTURAL MASS C ECPT( 9) - ICSID1 COOR. SYS. ID. FOR GRID POINT 1 C ECPT(10) - GP1(3) BASIC COORDINATES FOR GRID POINT 1 C ECPT(11) - ... ... C ECPT(12) - ... ... C ECPT(13) - ICSID2 COOR. SYS. ID. FOR GRID POINT 2 C ECPT(14) - GP2(3) BASIC COORDINATES FOR GRID POINT 2 C ECPT(15) - ... ... C ECPT(16) - ... ... C ECPT(17) - ICSID3 COOR. SYS. ID. FOR GRID POINT 3 C ECPT(18) - GP3(3) BASIC COORDINATES FOR GRID POINT 3 C ECPT(19) - ... ... C ECPT(20) - ... ... C ECPT(21) - ICSID4 COOR. SYS. ID. FOR GRID POINT 4 C ECPT(22) - GP4(3) BASIC COORDINATES FOR GRID POINT 4 C ECPT(23) - ... ... C ECPT(24) - ... ... C ECPT(25) - TEMPEL ELEMENT TEMPERATURE C LOGICAL IHEAT,NOGO INTEGER IPART(4),DICT(11),ESTID REAL NU DOUBLE PRECISION CEPX,CEPY,EP,ME(144),KOUT(144),MOUT(144),KE(144), 1 T,NUC,G,E,C23,VLEFT(6),VRIGHT(6),TI(9),P(4),X1, 2 Y1,X2,Y2,X3,Y3,X4,Y4,CEP1,CEP2,TEMP,YP,XP,SA,A,B, 3 C,D,TERM,TERM1,TERM2,TERM3,TERM4,TERM5,F,XL13, 4 XL24,CON,Z,XL,VD1(3),VD2(3),VKN(3),VK(3),V12(3), 5 V41(3),VP12(3),VI(3),VJ(3),AVEC(4),SMALLU(4), 6 SMALLV(4),A2,A3,A4,A5,B2,B3,B4,B5,C2,C3,C4,C5, 7 D2,D3,D4,D5 DIMENSION IECPT(100),ECPT(100) COMMON /SYSTEM/ KSYSTM(55),IHEAT COMMON /EMGPRM/ IXR,JCORE,NCORE,DUM(12),ISMB(3),IPREC,NOGO,HEAT COMMON /EMGDIC/ IDM, LDICT,NGRIDS,ELID,ESTID COMMON /EMGEST/ IELID,ISILNO(4),MATID,TSP,FMU,ICSID1,GP1(3), 1 ICSID2,GP2(3),ICSID3,GP3(3),ICSID4,GP4(3),TEMPEL C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATOUT/ ESP,GSP,NU,RHO,ALPHA,TSUB0,GSUBE,SIGT,SIGC,SIGS COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH EQUIVALENCE (ME(1),KE(1)),(KOUT(1),MOUT(1)), 1 (IECPT(1),ECPT(1),IELID),(DICT(5),DICT5) DATA IPART / 1,2,3,4 / C NGRIDS = 4 LDICT = 5 + NGRIDS C C IF STIFFNESS MATRIX NOT NEEDED GO TO PERFORM MASS CALCULATIONS C IF (ISMB(1) .EQ. 0) GO TO 400 C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 7 IP = IPREC ISORT = 0 C C CALL MAT TO GET MATERIAL PROPERTIES. C MATIDC = MATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) DICT5 = GSUBE C T = TSP G = GSP E = ESP IF (T*G .EQ. 0.0) GO TO 7770 C23 = 2.D0/3.D0 NUC = 1.D0/(1.D0+NU) C C COMPUTE DIAGONAL VECTORS. C DO 10 I = 1,3 VD1(I) = GP3(I) - GP1(I) 10 VD2(I) = GP4(I) - GP2(I) C C COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE C PROJECTED AREA, PA C VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2) VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3) VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1) VKL = DSQRT(VKN(1)**2 + VKN(2)**2 + VKN(3)**2) IF (VKL .EQ. 0.) GO TO 7770 VK(1) = VKN(1)/VKL VK(2) = VKN(2)/VKL VK(3) = VKN(3)/VKL PA = VKL/2. C C COMPUTE SIDES -12- AND -41- C DO 20 I = 1,3 V12(I) = GP2(I) - GP1(I) 20 V41(I) = GP1(I) - GP4(I) C C COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12, VI, C VJ C V12DK = V12(1)*VK(1) + V12(2)*VK(2) + V12(3)*VK(3) VP12(1) = V12(1) - V12DK*VK(1) VP12(2) = V12(2) - V12DK*VK(2) VP12(3) = V12(3) - V12DK*VK(3) VP12L = DSQRT(VP12(1)**2 + VP12(2)**2 + VP12(3)**2) IF (VP12L .EQ. 0.) GO TO 7770 VI(1) = VP12(1)/VP12L VI(2) = VP12(2)/VP12L VI(3) = VP12(3)/VP12L VJ(1) = VK(2)*VI(3) - VK(3)*VI(2) VJ(2) = VK(3)*VI(1) - VK(1)*VI(3) VJ(3) = VK(1)*VI(2) - VK(2)*VI(1) C C NORMALIZE J FOR GOOD MEASURE C VJL = DSQRT(VJ(1)**2 + VJ(2)**2 + VJ(3)**2) IF (VJL .EQ. 0.) GO TO 7770 VJ(1) = VJ(1)/VJL VJ(2) = VJ(2)/VJL VJ(3) = VJ(3)/VJL X1 = 0. Y1 = 0. X2 = VP12L Y2 = 0. X3 = VI(1)*VD1(1) + VI(2)*VD1(2) + VI(3)*VD1(3) Y3 = VJ(1)*VD1(1) + VJ(2)*VD1(2) + VJ(3)*VD1(3) X4 =-VI(1)*V41(1) - VI(2)*V41(2) - VI(3)*V41(3) Y4 =-VJ(1)*V41(1) - VJ(2)*V41(2) - VJ(3)*V41(3) C C CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES. IF NOT, C CALL FATAL ERROR MESSAGE. C IF (Y3 .LE. 0.) GO TO 7780 IF (Y4 .LE. 0.) GO TO 7800 IF (X3 .LE. Y3*X4/Y4) GO TO 7790 IF (X4 .GE. X2-(X2-X3)*Y4/Y3) GO TO 7810 C C TEST FOR PARALLEL EFFECTS. C CEP1 = DABS(Y3-Y4) CEPX = DABS(X3-X4) TEMP = X3 - X2 CEP2 = DABS(Y4*TEMP-Y3*X4) CEPY = DABS(X4*TEMP+Y4*Y3) EP = 0.01D0 IF (CEP1 .LT. EP*CEPX) GO TO 30 IF (CEP2 .LT. EP*CEPY) GO TO 40 GO TO 70 30 IF (CEP2 .LT. EP*CEPY) GO TO 50 C C AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO C THE LINE CONNECTING POINTS 1 AND 2. C TEMP = Y3*X4 - Y4*(X3-X2) YP = X2*Y3*Y4/TEMP P(1) = YP - Y1 P(2) = YP - Y2 P(3) = YP - Y3 P(4) = YP - Y4 XP = X2*Y3*X4/TEMP SA = (X2 - XP)/YP C = (X1 - XP)/YP Z = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))*(1.+C23*NUC* X (SA**2+SA*C+C**2)) GO TO 80 C C AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO C THE LINE CONNECTING POINTS 2 AND 3. C 40 D = -.5*(X4/Y4 + (X3-X2)/Y3) XQ = X4 - Y4*(X3-X4)/(Y3-Y4) TEMP = 1.D0/DSQRT(1.D0+D**2) P(1) = (XQ-X1-D*Y1)*TEMP P(2) = (XQ-X2-D*Y2)*TEMP P(3) = (XQ-X3-D*Y3)*TEMP P(4) = (XQ-X4-D*Y4)*TEMP TEMP = XQ - X4 B = (TEMP*D+Y4)/(TEMP-Y4*D) Z = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))*(1.+C23*NUC*(B**2+B*D 1 + D**2)) GO TO 80 C C IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM. C 50 DO 60 I = 1,4 60 P(I) = 1. D = -.5D0*(X4/Y4+(X3-X2)/Y3+(Y3-Y4)/(X3-X4)) Z = PA/(2.*G*T)*(1.+2.*D**2*NUC) GO TO 80 C C IN THIS CASE NO PARALLEL EFFECTS EXIST. C 70 XQ = X4 - (X3-X4)/(Y3-Y4)*Y4 TEMP = Y3*X4 - Y4*(X3-X2) XP = X2*Y3*X4/TEMP YP = X2*Y3*Y4/TEMP XL = DSQRT((XQ-XP)**2 + YP**2) D = (XQ-XP)/YP TEMP = YP/XL P(1) = TEMP*(XQ-X1-D*Y1) P(2) = TEMP*(XQ-X2-D*Y2) P(3) = TEMP*(XQ-X3-D*Y3) P(4) = TEMP*(XQ-X4-D*Y4) C = XL/P(1) - D B = XL/P(4) - C A = XL/P(2) - D A2 = A**2 B2 = B**2 C2 = C**2 D2 = D**2 A3 = A2*A B3 = B2*B C3 = C2*C D3 = D2*D A4 = A3*A B4 = B3*B C4 = C3*C D4 = D3*D A5 = A4*A B5 = B4*B C5 = C4*C D5 = D4*D TEMP = .5D0*P(1)*P(2)*P(3)*P(4)/XL**2 TERM = (A + B + C23*(A3+B3) + .2D0*(A5+B5))*DLOG(DABS(A+B)) TERM1= (C + D + C23*(C3+D3) + .2D0*(C5+D5))*DLOG(DABS(C+D)) TERM2= (B + C + C23*(B3+C3) + .2D0*(B5+C5))*DLOG(DABS(B+C)) TERM3= (D + A + C23*(D3+A3) + .2D0*(D5+A5))*DLOG(DABS(D+A)) TERM4= .1D0*((A2-C2)*(B3-D3)+ (B2-D2)*(A3-C3)) TERM5= .2D0*((A-C)*(B4-D4) + (B-D)*(A4-C4)) F = TEMP*(TERM+TERM1-TERM2-TERM3+TERM4-TERM5) Z = P(1)*P(2)/(P(3)*P(4)*2.*G*T)*(PA+4.*NUC*(F-C23*PA)) 80 XL13 = DSQRT(X3**2 + Y3**2) XL24 = DSQRT((X4-X2)**2 + Y4**2) SMALLU(1) = X3/XL13 SMALLU(2) = (X4-X2)/XL24 SMALLU(3) = SMALLU(1) SMALLU(4) = SMALLU(2) SMALLV(1) = Y3/XL13 SMALLV(2) = Y4/XL24 SMALLV(3) = SMALLV(1) SMALLV(4) = SMALLV(2) TEMP = X4*Y3 - X3*Y4 AVEC(1) = -.5*X2*Y4*XL13/TEMP AVEC(2) = .5*X2*Y3 *XL24/(TEMP -X2*(Y3-Y4)) AVEC(3) = -AVEC(1) AVEC(4) = -AVEC(2) C DO 90 I = 1,144 90 KE(I) = 0. DO 230 IPVT = 1,4 CON = AVEC(IPVT)/(2.*Z) C C COMPUTE THE -VLEFT- VECTOR C IVLBEG = 1 VLEFT(1) = VI(1)*SMALLU(IPVT) + VJ(1)*SMALLV(IPVT) VLEFT(2) = VI(2)*SMALLU(IPVT) + VJ(2)*SMALLV(IPVT) VLEFT(3) = VI(3)*SMALLU(IPVT) + VJ(3)*SMALLV(IPVT) IF (IECPT(4*IPVT+5) .EQ. 0) GO TO 150 CALL TRANSD (IECPT(4*IPVT+5),TI) IVLBEG = 4 CALL GMMATD (TI,3,3,1, VLEFT(1),3,1,0, VLEFT(4)) C C COMPUTE THE 6 X 6 -S C 150 DO 220 J = 1,4 IVRBEG = 1 VRIGHT(1) = SMALLU(J)*VI(1) + SMALLV(J)*VJ(1) VRIGHT(2) = SMALLU(J)*VI(2) + SMALLV(J)*VJ(2) VRIGHT(3) = SMALLU(J)*VI(3) + SMALLV(J)*VJ(3) IF (IECPT(4*J+5) .EQ. 0) GO TO 170 CALL TRANSD (IECPT(4*J+5),TI) CALL GMMATD (VRIGHT(1),1,3,0, TI,3,3,0, VRIGHT(4)) IVRBEG = 4 170 JT = (IPVT-1)*36 + (J-1)*9 + 1 CALL GMMATD (VLEFT(IVLBEG),3,1,0, VRIGHT(IVRBEG),1,3,0, KE(JT)) JT8 = JT + 8 DO 180 K = JT,JT8 180 KE(K) = CON*KE(K)*AVEC(J) 220 CONTINUE 230 CONTINUE C C NOW REARRANGE KE BY INCREASING SIL THEN OUTPUT IT VIA EMGOUT C FIRST DETERMINE WHAT INCREASING SIL ORDER WILL BE C ASSIGN 290 TO K OR M 275 CONTINUE DO 280 I = 1,3 IP1 = I + 1 IT = IPART(I) DO 270 J = IP1,4 JT = IPART(J) IF (ISILNO(IT) .LE. ISILNO(JT)) GO TO 270 IPART(I) = JT IPART(J) = IT IT = JT GO TO 275 270 CONTINUE 280 CONTINUE ISORT = 1 GO TO KORM, (290,420) C C NOW REARRANGE TERMS IN THE STIFFNESS MATRIX KE AND STORE IN KOUT C C KE = (K ,K ,K ,K ,K ,...,K ,K ,...,K ) C 11 12 13 14 21 24 31 44 C C WHERE K IS A 3X3 SUBMATRIX AND SILS ARE IN GRID POINT ORDER C IJ C C AND ***** **** C * K K K K * C * L1L1 L1L2 L1L3 L1L4 * C * * C * K K K K * C KOUT = * L2L1 L2L2 L2L3 L2L4 * C * * C * K K K K * C * L3L1 L3L2 L3L3 L3L4 * C * * C * K K K K * C * L4L1 L4L2 L4L3 L4L4 * C **** **** C C WHERE KOUT IS A 3X3 MATRIX AND SILS ARE IN INCREASING C LILJ C ORDER C 290 CONTINUE DO 300 I = 1,4 IS = IPART(I) DO 300 J = 1,4 JS = IPART(J) DO 300 K = 1,3 DO 300 L = 1,3 IOUT = (I -1)*36 + (J -1)*3 + (K-1)*12 + L IKE = (IS-1)*36 + (JS-1)*9 + (K-1)* 3 + L 300 KOUT(IOUT) = KE(IKE) C C OUTPUT THE STIFFNESS MATRIX C CALL EMGOUT (KOUT,KOUT,144,1,DICT,1,IP) C C HERE WE CALCULATE THE MASS MATRIX VIA SUBROUTINE EMASTQ C C 400 IF (ISMB(2) .EQ. 0) RETURN C CALL EMADTQ (6,ME) IF (ISORT .EQ. 1) GO TO 420 ASSIGN 420 TO KORM GO TO 275 C C RETURN WITH A GRID POINT SORT ARRAY IN IPART C 420 DO 440 I = 1,4 IT = 1 + (IPART(I)-1)*3 IJ = (I-1)*3 + 1 MOUT(IJ ) = ME(IT ) MOUT(IJ+1) = ME(IT+1) 440 MOUT(IJ+2) = ME(IT+2) C DICT(1) = ESTID DICT(2) = 2 DICT(3) = 12 DICT(4) = 7 DICT5 = 0. C CALL EMGOUT (KOUT,KOUT,12,1,DICT,2,IP) RETURN C C ERROR EXITS C 7770 CALL MESAGE (30,26,IECPT(1)) 7777 NOGO = .TRUE. RETURN C 7780 IECPT(2) = 2 GO TO 7820 7790 IECPT(2) = 4 GO TO 7820 7800 IECPT(2) = 1 GO TO 7820 7810 IECPT(2) = 3 7820 CALL MESAGE (30,27,IECPT(1)) GO TO 7777 END ================================================ FILE: mis/shears.f ================================================ SUBROUTINE SHEARS C C THIS SUBROUTINE COMPUTES THE 12 X 12 STIFFNESS MATRIX FOR THE C SHEAR PANEL ELEMENT, AS WELL AS ITS DIAGONALIZED MASS MATRIX. C C SINGLE PRECISION VERSION C C ECPT FOR THE SHEAR PANEL ELEMENT C C ECPT( 1) - IELID ELEMENT ID. NO. C ECPT( 2) - ISILNO(4) SCALAR INDEX NUMBERS C ECPT( 3) - ... ... C ECPT( 4) - ... ... C ECPT( 5) - ... ... C ECPT( 6) - MATID MATERIAL ID. C ECPT( 7) - T THICKNESS C ECPT( 8) - FMU NON-STRUCTURAL MASS C ECPT( 9) - ICSID1 COOR. SYS. ID. FOR GRID POINT 1 C ECPT(10) - GP1(3) BASIC COORDINATES FOR GRID POINT 1 C ECPT(11) - ... ... C ECPT(12) - ... ... C ECPT(13) - ICSID2 COOR. SYS. ID. FOR GRID POINT 2 C ECPT(14) - GP2(3) BASIC COORDINATES FOR GRID POINT 2 C ECPT(15) - ... ... C ECPT(16) - ... ... C ECPT(17) - ICSID3 COOR. SYS. ID. FOR GRID POINT 3 C ECPT(18) - GP3(3) BASIC COORDINATES FOR GRID POINT 3 C ECPT(19) - ... ... C ECPT(20) - ... ... C ECPT(21) - ICSID4 COOR. SYS. ID. FOR GRID POINT 4 C ECPT(22) - GP4(3) BASIC COORDINATES FOR GRID POINT 4 C ECPT(23) - ... ... C ECPT(24) - ... ... C ECPT(25) - TEMPEL ELEMENT TEMPERATURE C LOGICAL IHEAT,NOGO INTEGER IPART(4),DICT(11),ESTID REAL NU,NUC,ME(144),KOUT(144),MOUT(144) REAL KE(144),VLEFT(6),VRIGHT(6),TI(9),P(4),VD1(3), 1 VD2(3),VKN(3),VK(3),V12(3),V41(3),VP12(3),VI(3), 2 VJ(3),AVEC(4),SMALLU(4),SMALLV(4) DIMENSION IECPT(100),ECPT(100) COMMON /SYSTEM/ KSYSTM(55),IHEAT COMMON /EMGPRM/ IXR,JCORE,NCORE,DUM(12),ISMB(3),IPREC,NOGO,HEAT COMMON /EMGDIC/ IDM, LDICT,NGRIDS,ELID,ESTID COMMON /EMGEST/ IELID,ISILNO(4),MATID,TSP,FMU,ICSID1,GP1(3), 1 ICSID2,GP2(3),ICSID3,GP3(3),ICSID4,GP4(3),TEMPEL C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATOUT/ ESP,GSP,NU,RHO,ALPHA,TSUB0,GSUBE,SIGT,SIGC,SIGS COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH EQUIVALENCE (ME(1),KE(1)),(KOUT(1),MOUT(1)), 1 (IECPT(1),ECPT(1),IELID),(DICT(5),DICT5) DATA IPART / 1,2,3,4 / C NGRIDS = 4 LDICT = 5 + NGRIDS C C IF STIFFNESS MATRIX NOT NEEDED GO TO PERFORM MASS CALCULATIONS C IF (ISMB(1) .EQ. 0) GO TO 400 C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 7 IP = IPREC ISORT = 0 C C CALL MAT TO GET MATERIAL PROPERTIES. C MATIDC = MATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) DICT5 = GSUBE C T = TSP G = GSP E = ESP IF (T*G .EQ. 0.0) GO TO 7770 C23 = 2.0/3.0 NUC = 1.0/(1.0+NU) C C COMPUTE DIAGONAL VECTORS. C DO 10 I = 1,3 VD1(I) = GP3(I) - GP1(I) 10 VD2(I) = GP4(I) - GP2(I) C C COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE C PROJECTED AREA, PA C VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2) VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3) VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1) VKL = SQRT(VKN(1)**2 + VKN(2)**2 + VKN(3)**2) IF (VKL .EQ. 0.) GO TO 7770 VK(1) = VKN(1)/VKL VK(2) = VKN(2)/VKL VK(3) = VKN(3)/VKL PA = VKL/2. C C COMPUTE SIDES -12- AND -41- C DO 20 I = 1,3 V12(I) = GP2(I) - GP1(I) 20 V41(I) = GP1(I) - GP4(I) C C COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12, VI, C VJ C V12DK = V12(1)*VK(1) + V12(2)*VK(2) + V12(3)*VK(3) VP12(1) = V12(1) - V12DK*VK(1) VP12(2) = V12(2) - V12DK*VK(2) VP12(3) = V12(3) - V12DK*VK(3) VP12L = SQRT(VP12(1)**2 + VP12(2)**2 + VP12(3)**2) IF (VP12L .EQ. 0.) GO TO 7770 VI(1) = VP12(1)/VP12L VI(2) = VP12(2)/VP12L VI(3) = VP12(3)/VP12L VJ(1) = VK(2)*VI(3) - VK(3)*VI(2) VJ(2) = VK(3)*VI(1) - VK(1)*VI(3) VJ(3) = VK(1)*VI(2) - VK(2)*VI(1) C C NORMALIZE J FOR GOOD MEASURE C VJL = SQRT(VJ(1)**2 + VJ(2)**2 + VJ(3)**2) IF (VJL .EQ. 0.) GO TO 7770 VJ(1) = VJ(1)/VJL VJ(2) = VJ(2)/VJL VJ(3) = VJ(3)/VJL X1 = 0. Y1 = 0. X2 = VP12L Y2 = 0. X3 = VI(1)*VD1(1) + VI(2)*VD1(2) + VI(3)*VD1(3) Y3 = VJ(1)*VD1(1) + VJ(2)*VD1(2) + VJ(3)*VD1(3) X4 =-VI(1)*V41(1) - VI(2)*V41(2) - VI(3)*V41(3) Y4 =-VJ(1)*V41(1) - VJ(2)*V41(2) - VJ(3)*V41(3) C C CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES. IF NOT, C CALL FATAL ERROR MESSAGE. C IF (Y3 .LE. 0.) GO TO 7780 IF (Y4 .LE. 0.) GO TO 7800 IF (X3 .LE. Y3*X4/Y4) GO TO 7790 IF (X4 .GE. X2-(X2-X3)*Y4/Y3) GO TO 7810 C C TEST FOR PARALLEL EFFECTS. C CEP1 = ABS(Y3-Y4) CEPX = ABS(X3-X4) TEMP = X3 - X2 CEP2 = ABS(Y4*TEMP-Y3*X4) CEPY = ABS(X4*TEMP+Y4*Y3) EP = 0.010 IF (CEP1 .LT. EP*CEPX) GO TO 30 IF (CEP2 .LT. EP*CEPY) GO TO 40 GO TO 70 30 IF (CEP2 .LT. EP*CEPY) GO TO 50 C C AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO C THE LINE CONNECTING POINTS 1 AND 2. C TEMP = Y3*X4 - Y4*(X3-X2) YP = X2*Y3*Y4/TEMP P(1) = YP - Y1 P(2) = YP - Y2 P(3) = YP - Y3 P(4) = YP - Y4 XP = X2*Y3*X4/TEMP SA = (X2 - XP)/YP C = (X1 - XP)/YP Z = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))*(1.+C23*NUC* X (SA**2+SA*C+C**2)) GO TO 80 C C AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO C THE LINE CONNECTING POINTS 2 AND 3. C 40 D = -.5*(X4/Y4 + (X3-X2)/Y3) XQ = X4 - Y4*(X3-X4)/(Y3-Y4) TEMP = 1.0/SQRT(1.0+D**2) P(1) = (XQ-X1-D*Y1)*TEMP P(2) = (XQ-X2-D*Y2)*TEMP P(3) = (XQ-X3-D*Y3)*TEMP P(4) = (XQ-X4-D*Y4)*TEMP TEMP = XQ - X4 B = (TEMP*D+Y4)/(TEMP-Y4*D) Z = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))*(1.+C23*NUC*(B**2+B*D 1 + D**2)) GO TO 80 C C IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM. C 50 DO 60 I = 1,4 60 P(I) = 1. D = -.50*(X4/Y4+(X3-X2)/Y3+(Y3-Y4)/(X3-X4)) Z = PA/(2.*G*T)*(1.+2.*D**2*NUC) GO TO 80 C C IN THIS CASE NO PARALLEL EFFECTS EXIST. C 70 XQ = X4 - (X3-X4)/(Y3-Y4)*Y4 TEMP = Y3*X4 - Y4*(X3-X2) XP = X2*Y3*X4/TEMP YP = X2*Y3*Y4/TEMP XL = SQRT((XQ-XP)**2 + YP**2) D = (XQ-XP)/YP TEMP = YP/XL P(1) = TEMP*(XQ-X1-D*Y1) P(2) = TEMP*(XQ-X2-D*Y2) P(3) = TEMP*(XQ-X3-D*Y3) P(4) = TEMP*(XQ-X4-D*Y4) C = XL/P(1) - D B = XL/P(4) - C A = XL/P(2) - D A2 = A**2 B2 = B**2 C2 = C**2 D2 = D**2 A3 = A2*A B3 = B2*B C3 = C2*C D3 = D2*D A4 = A3*A B4 = B3*B C4 = C3*C D4 = D3*D A5 = A4*A B5 = B4*B C5 = C4*C D5 = D4*D TEMP = .50*P(1)*P(2)*P(3)*P(4)/XL**2 TERM = (A + B + C23*(A3+B3) + .20*(A5+B5))*ALOG(ABS(A+B)) TERM1= (C + D + C23*(C3+D3) + .20*(C5+D5))*ALOG(ABS(C+D)) TERM2= (B + C + C23*(B3+C3) + .20*(B5+C5))*ALOG(ABS(B+C)) TERM3= (D + A + C23*(D3+A3) + .20*(D5+A5))*ALOG(ABS(D+A)) TERM4= .10*((A2-C2)*(B3-D3)+ (B2-D2)*(A3-C3)) TERM5= .20*((A-C)*(B4-D4) + (B-D)*(A4-C4)) F = TEMP*(TERM+TERM1-TERM2-TERM3+TERM4-TERM5) Z = P(1)*P(2)/(P(3)*P(4)*2.*G*T)*(PA+4.*NUC*(F-C23*PA)) 80 XL13 = SQRT(X3**2 + Y3**2) XL24 = SQRT((X4-X2)**2 + Y4**2) SMALLU(1) = X3/XL13 SMALLU(2) = (X4-X2)/XL24 SMALLU(3) = SMALLU(1) SMALLU(4) = SMALLU(2) SMALLV(1) = Y3/XL13 SMALLV(2) = Y4/XL24 SMALLV(3) = SMALLV(1) SMALLV(4) = SMALLV(2) TEMP = X4*Y3 - X3*Y4 AVEC(1) = -.5*X2*Y4*XL13/TEMP AVEC(2) = .5*X2*Y3 *XL24/(TEMP -X2*(Y3-Y4)) AVEC(3) = -AVEC(1) AVEC(4) = -AVEC(2) C DO 90 I = 1,144 90 KE(I) = 0. DO 230 IPVT = 1,4 CON = AVEC(IPVT)/(2.*Z) C C COMPUTE THE -VLEFT- VECTOR C IVLBEG = 1 VLEFT(1) = VI(1)*SMALLU(IPVT) + VJ(1)*SMALLV(IPVT) VLEFT(2) = VI(2)*SMALLU(IPVT) + VJ(2)*SMALLV(IPVT) VLEFT(3) = VI(3)*SMALLU(IPVT) + VJ(3)*SMALLV(IPVT) IF (IECPT(4*IPVT+5) .EQ. 0) GO TO 150 CALL TRANSS (IECPT(4*IPVT+5),TI) IVLBEG = 4 CALL GMMATS (TI,3,3,1, VLEFT(1),3,1,0, VLEFT(4)) C C COMPUTE THE 6 X 6 -S C 150 DO 220 J = 1,4 IVRBEG = 1 VRIGHT(1) = SMALLU(J)*VI(1) + SMALLV(J)*VJ(1) VRIGHT(2) = SMALLU(J)*VI(2) + SMALLV(J)*VJ(2) VRIGHT(3) = SMALLU(J)*VI(3) + SMALLV(J)*VJ(3) IF (IECPT(4*J+5) .EQ. 0) GO TO 170 CALL TRANSS (IECPT(4*J+5),TI) CALL GMMATS (VRIGHT(1),1,3,0, TI,3,3,0, VRIGHT(4)) IVRBEG = 4 170 JT = (IPVT-1)*36 + (J-1)*9 + 1 CALL GMMATS (VLEFT(IVLBEG),3,1,0, VRIGHT(IVRBEG),1,3,0, KE(JT)) JT8 = JT + 8 DO 180 K = JT,JT8 180 KE(K) = CON*KE(K)*AVEC(J) 220 CONTINUE 230 CONTINUE C C NOW REARRANGE KE BY INCREASING SIL THEN OUTPUT IT VIA EMGOUT C FIRST DETERMINE WHAT INCREASING SIL ORDER WILL BE C ASSIGN 290 TO K OR M 275 CONTINUE DO 280 I = 1,3 IP1 = I + 1 IT = IPART(I) DO 270 J = IP1,4 JT = IPART(J) IF (ISILNO(IT) .LE. ISILNO(JT)) GO TO 270 IPART(I) = JT IPART(J) = IT IT = JT GO TO 275 270 CONTINUE 280 CONTINUE ISORT = 1 GO TO KORM, (290,420) C C NOW REARRANGE TERMS IN THE STIFFNESS MATRIX KE AND STORE IN KOUT C C KE = (K ,K ,K ,K ,K ,...,K ,K ,...,K ) C 11 12 13 14 21 24 31 44 C C WHERE K IS A 3X3 SUBMATRIX AND SILS ARE IN GRID POINT ORDER C IJ C C AND ***** **** C * K K K K * C * L1L1 L1L2 L1L3 L1L4 * C * * C * K K K K * C KOUT = * L2L1 L2L2 L2L3 L2L4 * C * * C * K K K K * C * L3L1 L3L2 L3L3 L3L4 * C * * C * K K K K * C * L4L1 L4L2 L4L3 L4L4 * C **** **** C C WHERE KOUT IS A 3X3 MATRIX AND SILS ARE IN INCREASING C LILJ C ORDER C 290 CONTINUE DO 300 I = 1,4 IS = IPART(I) DO 300 J = 1,4 JS = IPART(J) DO 300 K = 1,3 DO 300 L = 1,3 IOUT = (I -1)*36 + (J -1)*3 + (K-1)*12 + L IKE = (IS-1)*36 + (JS-1)*9 + (K-1)* 3 + L 300 KOUT(IOUT) = KE(IKE) C C OUTPUT THE STIFFNESS MATRIX C CALL EMGOUT (KOUT,KOUT,144,1,DICT,1,IP) C C HERE WE CALCULATE THE MASS MATRIX VIA SUBROUTINE EMASTQ C 400 IF (ISMB(2) .EQ. 0) RETURN C CWKBR 3/94 CALL EMADTQ (6,ME) CALL EMASTQ (6,ME) IF (ISORT .EQ. 1) GO TO 420 ASSIGN 420 TO KORM GO TO 275 C C RETURN WITH A GRID POINT SORT ARRAY IN IPART C 420 DO 440 I = 1,4 IT = 1 + (IPART(I)-1)*3 IJ = (I-1)*3 + 1 MOUT(IJ ) = ME(IT ) MOUT(IJ+1) = ME(IT+1) 440 MOUT(IJ+2) = ME(IT+2) C DICT(1) = ESTID DICT(2) = 2 DICT(3) = 12 DICT(4) = 7 DICT5 = 0. C CALL EMGOUT (KOUT,KOUT,12,1,DICT,2,IP) RETURN C C ERROR EXITS C 7770 CALL MESAGE (30,26,IECPT(1)) 7777 NOGO = .TRUE. RETURN C 7780 IECPT(2) = 2 GO TO 7820 7790 IECPT(2) = 4 GO TO 7820 7800 IECPT(2) = 1 GO TO 7820 7810 IECPT(2) = 3 7820 CALL MESAGE (30,27,IECPT(1)) GO TO 7777 END ================================================ FILE: mis/shfors.f ================================================ SUBROUTINE SHFORS (NUMPX,ELID,IGRID,THIKNS,G,EPSCSI,QVECI,IDR) C C TO CALCULATE SHELL ELEMENT FORCES FOR A 2-DL FORMULATION BASE. C C C INPUT : C NUMPX - NUMBER OF EVALUATION POINTS C ELID - ELEMENT ID C IGRID - ARRAY IF EXTERNAL GRID IDS C THIKNS - EVALUATION POINT THICKNESSES C G - 6X6 STRESS-STRAIN MATRIX C EPSCSI - CORRECTED STRAINS AT EVALUATION POINTS C QVECI - CALCULATED SHEAR FORCES READY FOR OUTPUT C IDR - REORDERING ARRAY BASED ON EXTERNAL GRID POINT ID'S C /OUTREQ/- OUTPUT REQUEST LOGICAL FLAGS C C OUTPUT: C FORCES ARE PLACED AT THE PROPER LOCATION IN /SDR2X7/. C C C THE FORCE RESULTANT OUTPUT DATA BLOCK, UAI CODE C C ADDRESS DESCRIPTIONS C C 1 ELID C ------------------------------------------------ C 2 GRID POINT NUMBER OR 'CNTR' C 3 - 10 FORCES AT ELEMENT CENTER POINT C ---------- ABOVE DATA REPEATED 3 TIMES C FOR GRID POINTS C C C THE FORCE RESULTANT OUTPUT DATA BLOCK AT ELEMETN CENTER, COSMIC C C ADDRESS DESCRIPTIONS C C 1 ELID C ------------------------------------------------ C 2 - 9 FORCES AT ELEMENT CENTER POINT C C LOGICAL GRIDS,VONMS,LAYER,STRCUR,STSREQ,STNREQ,FORREQ 1, GRIDSS,VONMSS,LAYERS,COSMIC INTEGER IGRID(1),NFORS(1),IDR(1),ELID REAL THIKNS(1),G(6,6),EPSCSI(6,1),QVECI(2,1), 1 THICK,THICK2,T3OV12,DFORCE(8),GT(6,6) COMMON /SDR2X7/ DUM71(100),STRES(100),FORSUL(200),STRIN(100) COMMON /OUTREQ/ STSREQ,STNREQ,FORREQ,STRCUR,GRIDS,VONMS,LAYER 1, GRIDSS,VONMSS,LAYERS EQUIVALENCE (NFORS(1),FORSUL(1)) DATA COSMIC/ .TRUE. / C C C ELEMENT CENTER POINT COMPUTAION ONLY FOR COSMIC C IE. CALLER SHOULD PASS 1 IN NUMPX FOR COSMIC, 4 FOR UAI C NUMP = NUMPX IF (COSMIC) NUMP = 1 C NFORS(1) = ELID C C START THE LOOP ON EVALUATION POINTS C NUMP1 = NUMP - 1 DO 280 INPLAN = 1,NUMP THICK = THIKNS(INPLAN) THICK2 = THICK*THICK T3OV12 = THICK2*THICK/12.0 C IFORCE = 1 IF (COSMIC) GO TO 250 C IFORCE = (INPLAN-1)*9 + 2 IF (.NOT.(GRIDS .AND. GRIDSS) .OR. INPLAN.LE.1) GO TO 230 DO 200 INPTMP = 1,NUMP1 IF (IDR(INPTMP) .EQ. IGRID(INPLAN)) GO TO 220 200 CONTINUE 220 CONTINUE IFORCE = INPTMP*9 + 2 NFORS(IFORCE) = IGRID(INPLAN) GO TO 240 230 NFORS(IFORCE) = INPLAN - 1 240 IF (INPLAN .EQ. 1) NFORS(IFORCE) = IGRID(INPLAN) C C MODIFY [G], THEN CALCULATE FORCES AND MOMENTS C 250 DO 260 IG = 1,3 DO 260 JG = 1,3 GT(IG ,JG ) = THICK *G(IG ,JG ) GT(IG+3,JG ) = THICK2*G(IG+3,JG ) GT(IG ,JG+3) = THICK2*G(IG ,JG+3) GT(IG+3,JG+3) = T3OV12*G(IG+3,JG+3) 260 CONTINUE CALL GMMATS (GT,6,6,0, EPSCSI(1,INPLAN),6,1,0, DFORCE(1)) C C OUTPUT QX AND QY (WE HAVE CALCULATED QY AND QX) C DFORCE(7) = QVECI(2,INPLAN) DFORCE(8) = QVECI(1,INPLAN) C C SHIP OUT C DO 270 IFOR = 1,8 FORSUL(IFORCE+IFOR) = DFORCE(IFOR) 270 CONTINUE 280 CONTINUE C RETURN END ================================================ FILE: mis/shgmgd.f ================================================ SUBROUTINE SHGMGD (*,ELID,TEM,MID,TS,NOALFA,G,RHO,GSUBE,TSUB0, 1 EGNOR,ALPHA) C C MATERIAL PROPERTY G-MATRICES GENERATOR FOR SHELL ELEMENTS C C DOUBLE PRECISION VERSION C C INPUT : C ELID - ELEMENT ID C TEM - 3X3 TRANSFORMATION BETWEEN ELEMENT AND MATERIAL C COORDINATE SYSTEMS C MID - ARRAY OF LENGTH 4, CONTAINS MATERIAL ID'S C TS - EQUIVALENT SHEAR THICKNESS C NOALFA - LOGICAL TO REQUEST OR NOT REQUEST THERMAL EXPANSION C COEFFICIENTS C C OUTPUT: C G - ARRAY OF LENGTH 36 (FOUR 3X3), CONATINS MATERIAL C PROPERTIES IN ELEMENT COORD. SYSTEM C RHO - MASS DENSITY FROM MEMBRANE MATERIAL C GSUBE - DAMPING COEFFICIENT FROM MEMBRANE OR BENDING C MATERIALS C TSUB0 - REFERENCE TEMPERATURE C EGNOR - ARRAY OF PSEUDO E'S AND G'S FOR SHEAR FACTOR C CALCULATIONS IN BENDING C ALPHA - ARRAY OF THERMAL EXPANSION COEFFICIENTS C C NOTES: C 1- THIS ROUTINE BUILDS THE MATERIAL PROPERTY MATRIX USING C THE OUTPUT OF SUBROUTINE 'MAT' (/MATOUT/). C /MATOUT/ IS IN MAT2 FORMAT IF MAT1 AND/OR MAT2 ARE USED C /MATOUT/ IS IN MAT8 FORMAT IF MAT8 CARD IS REQUESTED. C 2- ISOTROPIC, ORTHOTROPIC, AND ANISOTROPIC PROPERTY TYPES C ARE SUPPORTED. C 3- PROPERTIES FOR MEMBRANE, BENDING, SHEAR FLEXIBILITY, AND C MEMBRANE/BENDING COUPLING ARE PROCESSED. C 4- NON-STANDARD RETURN IS TAKEN WHEN THE MATERIAL FOR SHEAR C FLEXIBILITY IS NOT PROPERLY DEFINED. C 5- SOME OF THE CONTENTS OF /MATIN/ MUST BE DEFINED PRIOR TO C A CALL TO THIS ROUTINE. C 6- CONTENTS OF /TERMS/, MID, AND TS MAY BE CHANGED IN THIS C ROUTINE. C C C LOGICAL MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,NOALFA INTEGER MID(4),INDEX(3,3),ELID,NAME(2) REAL NU12,NU21,MATSET DOUBLE PRECISION G(36),TEM(9),U(9),GT(9),EGNOR(4),DN12,DN21,PS1, 1 PS2,RHO,TS,CONST,ALPHA(6),TALPHA(6),DETU,BDUM COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /MATIN / MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHOX,ALPH1,ALPH2,ALPH12, 1 TREF,GE,ST,SC,SS,E,DUM(8),MATSET C MAT8 FORMAT... EQUIVALENCE (E1 ,G11),(NU12,G12),(E2,G13),(G2Z,G23), 1 (G1Z,G33),(G12X,G22) C 2, (GE ,E ),(T0,ALPH12) C EQUIV (MATOUT(1),G11)) DATA NAME / 4HSHGM, 4HGD / C C C INITIALIZE C C SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR: C ISOTROPIC MATERIAL PROPERTIES AMONG THE MAT1 CARDS, C ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND C ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS. C DO 10 IG = 1,36 10 G(IG) = 0.0D0 DO 20 IG = 1,4 20 EGNOR(IG) = 0.0D0 IF (NOALFA) GO TO 40 DO 30 IG = 1,6 ALPHA(IG) = 0.0D0 30 CONTINUE C 40 RHO = 0.0D0 GSUBE = 0.0 TSUB0 = 0.0 INFLAG= 12 IGOBK = 0 IT0 = 0 C C BEGIN THE LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID. FOR SHEAR C FLEXIBILITY MATERIAL, DEFAULT TO THE BENDING MATERIAL IF BENDING C IS PRESENT. C IF SHEAR MATERIAL IS PRESENT, BUT YIELDS ZEROES, GO BACK AND RESET C IT TO BENDING MATERIAL. C M = 0 100 LPOINT = M*9 M = M + 1 IF (M .GT. 4) GO TO 600 IF (M.EQ.4 .AND. IGOBK.EQ.1) GO TO 610 MATID = MID(M) IF (MATID.EQ.0 .AND. M.NE.3) GO TO 100 IF (MATID.EQ.0 .AND. M.EQ.3 .AND. .NOT.BENDNG) GO TO 100 IF (MATID.EQ.0 .AND. M.EQ.3 .AND. BENDNG) MATID = MID(2) C IF (M-1) 130,120,110 110 IF (MATID.EQ.MID(M-1) .AND. IGOBK.EQ.0) GO TO 130 120 CALL MAT (ELID) TMTSET = MATSET IF (MATSET .EQ. 8.0) TMTSET = 3.0 MTYPE = IFIX(TMTSET+0.05) - 2 C C SET THE MISC ITEMS C 130 IF (MEMBRN .AND. M.EQ.1) RHO = DBLE(RHOX) IF (MEMBRN .AND. M.NE.1 .OR. .NOT.MEMBRN .AND. M.NE.2) GO TO 140 GSUBE = GE IF (MTYPE .GT. 0) GSUBE = E 140 IF (IT0 .GT. 0) GO TO 150 IT0 = 1 TSUB0 = TREF IF (MTYPE .GT. 0) TSUB0 = ALPH12 C C BRANCH ON MATERIAL TYPE C 150 IF (MTYPE) 200, 210, 250 C MAT1,MAT2,MAT8 C C C ISOTROPIC MATERIALS (MAT1) C --------------------------- C C 200 IF (M .NE. 3) GO TO 205 200 IF (M .NE. 3) GO TO 220 C C G(LPOINT+1) = MATOUT(3) <== G13, SHOULD BE MATOUT(6) <== G33 C G(LPOINT+4) = G(LPOINT+1) C IF (G(LPOINT+1).EQ.0.0 .AND. SHRFLX) GO TO 300 C G(LPOINT+1) = G33 G(LPOINT+4) = G33 IF (G33.EQ.0.0 .AND. SHRFLX) GO TO 300 GO TO 400 C C ACCORDING TO Q4GMGD, SHOULD GO TO 220 NEXT C C 205 G(LPOINT+1) = G22 C G(LPOINT+2) = G12*G22 C G(LPOINT+4) = G12*G22 C G(LPOINT+5) = G22 C G(LPOINT+0) = G13 <== G13, SHOULD IT BE G33 ?? C GO TO 400 C C ANISOTROPIC MATERIALS (MAT2) C ----------------------------- C 210 IF (M .EQ. 3) GO TO 230 220 G(LPOINT+1) = G11 G(LPOINT+2) = G12 G(LPOINT+3) = G13 G(LPOINT+4) = G12 G(LPOINT+5) = G22 G(LPOINT+6) = G23 G(LPOINT+7) = G13 G(LPOINT+8) = G23 G(LPOINT+9) = G33 GO TO 400 C 230 IF (SHRFLX) GO TO 240 IF (G11.EQ.0.0 .OR. G22.EQ.0.0) GO TO 400 DN21 = G12/G11 DN12 = G12/G22 CONST = DN21*DN12 IF (CONST .LT. 0.0D0) GO TO 400 PS1 = DBLE(G11)*(1.0D0-CONST) PS2 = DBLE(G22)*(1.0D0-CONST) IF (CONST .GT. 0.0D0) CONST = DSQRT(CONST) CONST = 2.0D0*(1.0D0+CONST) G(LPOINT+1) = PS1/CONST G(LPOINT+4) = PS2/CONST GO TO 400 C 240 G(LPOINT+1) = G11 G(LPOINT+2) = G12 G(LPOINT+3) = G12 G(LPOINT+4) = G22 IF (G33 .NE. 0.0) GO TO 300 GO TO 400 C C ORTHOTROPIC MATERIALS (MAT8) C ---------------------------- C 250 IF (M .EQ. 3) GO TO 260 IF (E1 .EQ. 0.0) GO TO 400 NU21 = NU12*E2/E1 CONST= 1.0D0 - DBLE(NU21*NU12) IF (CONST .LE. 0.0D0) GO TO 400 G(LPOINT+1) = E1/CONST G(LPOINT+2) = NU12*E2/CONST G(LPOINT+4) = G(LPOINT+2) G(LPOINT+5) = E2/CONST G(LPOINT+9) = G12X GO TO 400 C 260 IF (SHRFLX) GO TO 270 IF (E1 .EQ. 0.0) GO TO 400 NU21 = NU12*E2/E1 CONST = NU21*NU12 IF (CONST .LE. 0.0D0) GO TO 400 CONST = DSQRT(CONST) CONST = 2.0D0*(1.0D0+CONST) G(LPOINT+1) = DBLE(E1)/CONST G(LPOINT+4) = DBLE(E2)/CONST GO TO 400 C C 270 G(LPOINT+1) = MATOUT(5) <== COSMIC (5) & (6) INTERCHANGED C G(LPOINT+4) = MATOUT(6) 270 G(LPOINT+1) = G1Z G(LPOINT+4) = G2Z IF (G1Z.EQ.0.0 .AND. G2Z.EQ.0.0) GO TO 300 GO TO 400 C C BAD SHEAR MATERIAL C 300 IF (.NOT.SHRFLX .AND. BENDNG) GO TO 400 RETURN 1 C C TRANSFORM NON-ISOTROPIC MATERIALS C 400 IF (MTYPE .LT. 0) GO TO 430 IF (M .EQ. 3) GO TO 410 U(1) = TEM(1)*TEM(1) U(2) = TEM(4)*TEM(4) U(3) = TEM(1)*TEM(4) U(4) = TEM(2)*TEM(2) U(5) = TEM(5)*TEM(5) U(6) = TEM(2)*TEM(5) U(7) = TEM(1)*TEM(2)*2.0D0 U(8) = TEM(4)*TEM(5)*2.0D0 U(9) = TEM(1)*TEM(5) + TEM(2)*TEM(4) L = 3 GO TO 420 C 410 U(1) = TEM(5)*TEM(9) + TEM(6)*TEM(8) U(2) = TEM(2)*TEM(9) + TEM(8)*TEM(3) U(3) = TEM(4)*TEM(9) + TEM(7)*TEM(6) U(4) = TEM(1)*TEM(9) + TEM(3)*TEM(7) L = 2 C 420 CALL GMMATD ( U(1),L,L,1, G(LPOINT+1),L,L,0, GT(1)) CALL GMMATD (GT(1),L,L,0, U(1),L,L,0, G(LPOINT+1)) C C GET THE THERMAL EXPANSION COEFFICIENTS, IF NEEDED C 430 IF (NOALFA .OR. M.GT.2) GO TO 100 MORB = (M-1)*3 IF (MTYPE) 500, 510, 520 C MAT1,MAT2,MAT8 C C MAT1 C 500 ALPHA(MORB+1) = ALPH1 ALPHA(MORB+2) = ALPH1 ALPHA(MORB+3) = 0.0D0 GO TO 100 C C MAT2 C 510 ALPHA(MORB+1) = ALPH1 ALPHA(MORB+2) = ALPH2 ALPHA(MORB+3) = ALPH12 GO TO 530 C C MAT8 C 520 ALPHA(MORB+1) = ALPH1 ALPHA(MORB+2) = ALPH2 ALPHA(MORB+3) = 0.0D0 C C TRANSFORM THERMAL EXPANSION COEFFICIENTS AND STORE THEM IN ALPHA. C THE ALPHAS NEED TO BE PREMULTIPLIED BY [U] INVERSE. C 530 DO 540 IG = 1,3 540 TALPHA(IG+MORB) = ALPHA(IG+MORB) MORB = MORB + 1 CALL INVERD (3,U,3,BDUM,0,DETU,ISNGU,INDEX) CALL GMMATD (U,3,3,0, TALPHA(MORB),3,1,0, ALPHA(MORB)) GO TO 100 C C C LOOP IS DONE, CHECK FOR ALL ZEROES FOR SHEAR MATERIAL C 600 IF (G(19).NE.0.0D0 .OR. G(20).NE.0.0D0 .OR. G(21).NE.0.0D0 .OR. 1 G(22).NE.0.0D0) GO TO 610 IGOBK = 1 M = 2 MID(3) = 0 SHRFLX = .FALSE. TS = 0.833333333D0 C 0.833333333D0 = 5.0D0/6.0D0 GO TO 100 C C SAVE PSEUDO E'S AND G'S FOR SHEAR FACTOR CALCULATIONS C 610 IF (.NOT.BENDNG) GO TO 620 EGNOR(1) = G(10) EGNOR(2) = G(14) EGNOR(3) = G(19) EGNOR(4) = G(22) C 620 RETURN END ================================================ FILE: mis/shgmgs.f ================================================ SUBROUTINE SHGMGS (*,ELID,TEM,MID,TS,NOALFA,G,RHO,GSUBE,TSUB0, 1 EGNOR,ALPHA) C C MATERIAL PROPERTY G-MATRICES GENERATOR FOR SHELL ELEMENTS C C SINGLE PRECISION VERSION C C INPUT : C ELID - ELEMENT ID C TEM - 3X3 TRANSFORMATION BETWEEN ELEMENT AND MATERIAL C COORDINATE SYSTEMS C MID - ARRAY OF LENGTH 4, CONTAINS MATERIAL ID'S C TS - EQUIVALENT SHEAR THICKNESS C NOALFA - LOGICAL TO REQUEST OR NOT REQUEST THERMAL EXPANSION C COEFFICIENTS C C OUTPUT: C G - ARRAY OF LENGTH 36 (FOUR 3X3), CONATINS MATERIAL C PROPERTIES IN ELEMENT COORD. SYSTEM C RHO - MASS DENSITY FROM MEMBRANE MATERIAL C GSUBE - DAMPING COEFFICIENT FROM MEMBRANE OR BENDING C MATERIALS C TSUB0 - REFERENCE TEMPERATURE C EGNOR - ARRAY OF PSEUDO E'S AND G'S FOR SHEAR FACTOR C CALCULATIONS IN BENDING C ALPHA - ARRAY OF THERMAL EXPANSION COEFFICIENTS C C NOTES: C 1- THIS ROUTINE BUILDS THE MATERIAL PROPERTY MATRIX USING C THE OUTPUT OF SUBROUTINE 'MAT' (/MATOUT/). C /MATOUT/ IS IN MAT2 FORMAT IF MAT1 AND/OR MAT2 ARE USED C /MATOUT/ IS IN MAT8 FORMAT IF MAT8 CARD IS REQUESTED. C 2- ISOTROPIC, ORTHOTROPIC, AND ANISOTROPIC PROPERTY TYPES C ARE SUPPORTED. C 3- PROPERTIES FOR MEMBRANE, BENDING, SHEAR FLEXIBILITY, AND C MEMBRANE/BENDING COUPLING ARE PROCESSED. C 4- NON-STANDARD RETURN IS TAKEN WHEN THE MATERIAL FOR SHEAR C FLEXIBILITY IS NOT PROPERLY DEFINED. C 5- SOME OF THE CONTENTS OF /MATIN/ MUST BE DEFINED PRIOR TO C A CALL TO THIS ROUTINE. C 6- CONTENTS OF /TERMS/, MID, AND TS MAY BE CHANGED IN THIS C ROUTINE. C C C LOGICAL MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,NOALFA INTEGER MID(4),INDEX(3,3),ELID,NAME(2) REAL NU12,NU21,MATSET REAL G(36),TEM(9),U(9),GT(9),EGNOR(4),DN12,DN21,PS1, 1 PS2,RHO,TS,CONST,ALPHA(6),TALPHA(6),DETU,BDUM COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /MATIN / MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHOX,ALPH1,ALPH2,ALPH12, 1 TREF,GE,ST,SC,SS,E,DUM(8),MATSET C MAT8 FORMAT... EQUIVALENCE (E1 ,G11),(NU12,G12),(E2,G13),(G2Z,G23), 1 (G1Z,G33),(G12X,G22) C 2, (GE ,E ),(T0,ALPH12) C EQUIV (MATOUT(1),G11)) DATA NAME / 4HSHGM,4HGS / C C C INITIALIZE C C SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR: C ISOTROPIC MATERIAL PROPERTIES AMONG THE MAT1 CARDS, C ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND C ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS. C DO 10 IG = 1,36 10 G(IG) = 0.0 DO 20 IG = 1,4 20 EGNOR(IG) = 0.0 IF (NOALFA) GO TO 40 DO 30 IG = 1,6 ALPHA(IG) = 0.0 30 CONTINUE C 40 RHO = 0.0 GSUBE = 0.0 TSUB0 = 0.0 INFLAG= 12 IGOBK = 0 IT0 = 0 C C BEGIN THE LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID. FOR SHEAR C FLEXIBILITY MATERIAL, DEFAULT TO THE BENDING MATERIAL IF BENDING C IS PRESENT. C IF SHEAR MATERIAL IS PRESENT, BUT YIELDS ZEROES, GO BACK AND RESET C IT TO BENDING MATERIAL. C M = 0 100 LPOINT = M*9 M = M + 1 IF (M .GT. 4) GO TO 600 IF (M.EQ.4 .AND. IGOBK.EQ.1) GO TO 610 MATID = MID(M) IF (MATID.EQ.0 .AND. M.NE.3) GO TO 100 IF (MATID.EQ.0 .AND. M.EQ.3. AND. .NOT.BENDNG) GO TO 100 IF (MATID.EQ.0 .AND. M.EQ.3. AND. BENDNG) MATID = MID(2) C IF (M-1) 130,120,110 110 IF (MATID.EQ.MID(M-1) .AND. IGOBK.EQ.0) GO TO 130 120 CALL MAT (ELID) TMTSET = MATSET IF (MATSET .EQ. 8.0) TMTSET = 3.0 MTYPE = IFIX(TMTSET+0.05) - 2 C C SET THE MISC ITEMS C 130 IF (MEMBRN .AND. M.EQ.1) RHO = RHOX IF (MEMBRN .AND. M.NE.1 .OR. .NOT.MEMBRN .AND. M.NE.2) GO TO 140 GSUBE = GE IF (MTYPE .GT. 0) GSUBE = E 140 IF (IT0 .GT. 0) GO TO 150 IT0 = 1 TSUB0 = TREF IF (MTYPE .GT. 0) TSUB0 = ALPH12 C C BRANCH ON MATERIAL TYPE C 150 IF (MTYPE) 200, 210, 250 C MAT1,MAT2,MAT8 C C C ISOTROPIC MATERIALS (MAT1) C --------------------------- C C 200 IF (M .NE. 3) GO TO 205 200 IF (M .NE. 3) GO TO 220 C C G(LPOINT+1) = MATOUT(3) <== G13, SHOULD BE MATOUT(6) <== G33 C G(LPOINT+4) = G(LPOINT+1) C IF (G(LPOINT+1).EQ.0.0 .AND. SHRFLX) GO TO 300 C G(LPOINT+1) = G33 G(LPOINT+4) = G33 IF (G33.EQ.0.0 .AND. SHRFLX) GO TO 300 GO TO 400 C C ACCORDING TO Q4GMGS, SHOULD TO TO 220 NEXT C C 205 G(LPOINT+1) = G22 C G(LPOINT+2) = G12*G22 C G(LPOINT+4) = G12*G22 C G(LPOINT+5) = G22 C G(LPOINT+9) = G13 <== G13, SHOULD IT BE G33 ?? C GO TO 400 C C ANISOTROPIC MATERIALS (MAT2) C ----------------------------- C 210 IF (M .EQ. 3) GO TO 230 220 G(LPOINT+1) = G11 G(LPOINT+2) = G12 G(LPOINT+3) = G13 G(LPOINT+4) = G12 G(LPOINT+5) = G22 G(LPOINT+6) = G23 G(LPOINT+7) = G13 G(LPOINT+8) = G23 G(LPOINT+9) = G33 GO TO 400 C 230 IF (SHRFLX) GO TO 240 IF (G11.EQ.0.0 .OR. G22.EQ.0.0) GO TO 400 DN21 = G12/G11 DN12 = G12/G22 CONST = DN21*DN12 IF (CONST .LT. 0.0) GO TO 400 PS1 = G11*(1.0-CONST) PS2 = G22*(1.0-CONST) IF (CONST .GT. 0.0) CONST = SQRT(CONST) CONST = 2.0*(1.0+CONST) G(LPOINT+1) = PS1/CONST G(LPOINT+4) = PS2/CONST GO TO 400 C 240 G(LPOINT+1) = G11 G(LPOINT+2) = G12 G(LPOINT+3) = G12 G(LPOINT+4) = G22 IF (G33 .NE. 0.0) GO TO 300 GO TO 400 C C ORTHOTROPIC MATERIALS (MAT8) C ---------------------------- C 250 IF (M .EQ. 3) GO TO 260 IF (E1 .EQ. 0.0) GO TO 400 NU21 = NU12*E2/E1 CONST= 1.0 - NU21*NU12 IF (CONST .LE. 0.0) GO TO 400 G(LPOINT+1) = E1/CONST G(LPOINT+2) = NU12*E2/CONST G(LPOINT+4) = G(LPOINT+2) G(LPOINT+5) = E2/CONST G(LPOINT+9) = G12X GO TO 400 C 260 IF (SHRFLX) GO TO 270 IF (E1 .EQ. 0.0) GO TO 400 NU21 = NU12*E2/E1 CONST = NU21*NU12 IF (CONST .LE. 0.0) GO TO 400 CONST = SQRT(CONST) CONST = 2.0*(1.0+CONST) G(LPOINT+1) = E1/CONST G(LPOINT+4) = E2/CONST GO TO 400 C C 270 G(LPOINT+1) = MATOUT(5) <== COSMIC (5) & (6) INTERCHANGED C G(LPOINT+4) = MATOUT(6) 270 G(LPOINT+1) = G1Z G(LPOINT+4) = G2Z IF (G1Z.EQ.0.0 .AND. G2Z.EQ.0.0) GO TO 300 GO TO 400 C C BAD SHEAR MATERIAL C 300 IF (.NOT.SHRFLX .AND. BENDNG) GO TO 400 RETURN 1 C C TRANSFORM NON-ISOTROPIC MATERIALS C 400 IF (MTYPE .LT. 0) GO TO 430 IF (M .EQ. 3) GO TO 410 U(1) = TEM(1)*TEM(1) U(2) = TEM(4)*TEM(4) U(3) = TEM(1)*TEM(4) U(4) = TEM(2)*TEM(2) U(5) = TEM(5)*TEM(5) U(6) = TEM(2)*TEM(5) U(7) = TEM(1)*TEM(2)*2.0 U(8) = TEM(4)*TEM(5)*2.0 U(9) = TEM(1)*TEM(5) + TEM(2)*TEM(4) L = 3 GO TO 420 C 410 U(1) = TEM(5)*TEM(9) + TEM(6)*TEM(8) U(2) = TEM(2)*TEM(9) + TEM(8)*TEM(3) U(3) = TEM(4)*TEM(9) + TEM(7)*TEM(6) U(4) = TEM(1)*TEM(9) + TEM(3)*TEM(7) L = 2 C 420 CALL GMMATS ( U(1),L,L,1, G(LPOINT+1),L,L,0, GT(1)) CALL GMMATS (GT(1),L,L,0, U(1),L,L,0, G(LPOINT+1)) C C GET THE THERMAL EXPANSION COEFFICIENTS, IF NEEDED C 430 IF (NOALFA .OR. M.GT.2) GO TO 100 MORB = (M-1)*3 IF (MTYPE) 500 ,510 ,520 C MAT1,MAT2,MAT8 C C MAT1 C 500 ALPHA(MORB+1) = ALPH1 ALPHA(MORB+2) = ALPH1 ALPHA(MORB+3) = 0.0 GO TO 100 C C MAT2 C 510 ALPHA(MORB+1) = ALPH1 ALPHA(MORB+2) = ALPH2 ALPHA(MORB+3) = ALPH12 GO TO 530 C C MAT8 C 520 ALPHA(MORB+1) = ALPH1 ALPHA(MORB+2) = ALPH2 ALPHA(MORB+3) = 0.0 C C TRANSFORM THERMAL EXPANSION COEFFICIENTS AND STORE THEM IN ALPHA. C THE ALPHAS NEED TO BE PREMULTIPLIED BY [U] INVERSE. C 530 DO 540 IG = 1,3 540 TALPHA(IG+MORB) = ALPHA(IG+MORB) MORB = MORB + 1 CALL INVERS (3,U,3,BDUM,0,DETU,ISNGU,INDEX) CALL GMMATS (U,3,3,0, TALPHA(MORB),3,1,0, ALPHA(MORB)) GO TO 100 C C C LOOP IS DONE, CHECK FOR ALL ZEROES FOR SHEAR MATERIAL C 600 IF (G(19).NE.0.0 .OR. G(20).NE.0.0 .OR. G(21).NE.0.0 .OR. 1 G(22).NE.0.0) GO TO 610 IGOBK = 1 M = 2 MID(3) = 0 SHRFLX = .FALSE. TS = 0.833333333 C 0.833333333 = 5.0/6.0 GO TO 100 C C SAVE PSEUDO E'S AND G'S FOR SHEAR FACTOR CALCULATIONS C 610 IF (.NOT.BENDNG) GO TO 620 EGNOR(1) = G(10) EGNOR(2) = G(14) EGNOR(3) = G(19) EGNOR(4) = G(22) C 620 RETURN END ================================================ FILE: mis/shhmgd.f ================================================ SUBROUTINE SHHMGD (*,ELID,MM,SIL,BGPDT,GPTH,ELTH,GPTEMP,FLAG,MID, 1 MFLAG,MCID,THETA,TEMP,NNODE,NSIL,DELTAP,HTCON, 2 HTCAP) C C SHELL ELEMENT HEAT MATRIX GENERATOR FOR QUAD8 AND TRIA6 ELEMENTS C C ******************************************************** C * * C * PRESENTLY COSMIC/NASTRAN DOES NOT USE THIS ROUTINE * C * * C ******************************************************** C C PERFORMS ONE OF THE FOLLOWING FOR THE ISOPARAMETRIC SHELL ELEMENTS C C FLAG =1 CALCULATE THE CONDUCTIVITY AND CAPACITY MATRICES. C FLAG =2 CALCULATE THE DELTA-LOAD VECTOR FOR NONLINEAR HEAT. C C INPUT : C ELID - ELEMENT ID C MM - MAXIMUM NO. OF NODES FOR THE ELEMENT C SIL - SIL ARRAY FROM CONNECTION C BGPDT - BGPDT ARRAY FROM BGPDT C GPTH - GRID POINT THICKNESSES FROM CONNECTION C ELTH - ELEMENT THICKNESS FROM PROPERTY C GPTEMP- GRID TEMPERATURES FROM GPTT C FLAG - OPTION INDICATOR C MID - MATERIAL ID C MFLAG - MATERIAL FLAG C MCID - MATERIAL CID, IF MFLAG IS 1 C THETA - MATERIAL ANGLE, IF MFLAG IS 0 C TEMP - TEMPERATURE VALUES (FOR NONLINEAR) C OUTPUT: C NSI L - REORDERED SIL ARRAY C DELTAP- DELTA-LOAD VECTOR C HTCON - CONDUCTIVITY MATRIX C HTCAP - CAPACITY MATRIX C INTEGER SIL(8),NSIL(8),ELID,FLAG,IORDER(8),IORDRN(8), 1 MMN(8),NECPT(4) REAL TEMP(1),GPTEMP(1),BGPDT(4,8),GPTH(8),BGPDM(3,8), 1 ECPT(4),KHEAT DOUBLE PRECISION XI,ETA,WX,WE,THK,POINTX(6),POINTE(2),WEITX(6), 1 WEITE(2),WEITC,DETJ,SHP(10),VOLI,HTCON(1), 2 HTCAP(1),TMPR(8),HTFLX(24),BTERMS(32),TEB(9), 3 TUB(9),TBM(9),TEM(9),GT(4),GI(4),CENTE(3),AVGTHK, 4 EPS1,XM,YM,THETAM,PI,TWOPI,RADDEG,DEGRAD, 5 EGPDT(4,8),GPNORM(4,8),EPNORM(4,8),DGPTH(8), 6 TIE(9),DELTAP(1),TCE(63) COMMON /MATIN / MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT COMMON /HMTOUT/ KHEAT(6), HTCP COMMON /CONDAD/ PI,TWOPI,RADDEG,DEGRAD EQUIVALENCE (ECPT(1),NECPT(1)) DATA EPS1 / 1.0D-11 / C C C DOUBLE PRECISON VERSION C C C BRANCH ON ELEMENT TYPE C IF (MM .EQ. 6) GO TO 100 IF (MM .EQ. 8) GO TO 200 GO TO 3000 C C TRIA6 C 1.0D0/6.0D0 = 0.166666667D0 C 2.0D0/3.0D0 = 0.666666667D0 C 100 INDX = 1 NXI = 3 NETA = 1 POINTX(1) = 0.166666667D0 POINTX(2) = 0.166666667D0 POINTX(3) = 0.666666667D0 POINTX(4) = 0.166666667D0 POINTX(5) = 0.666666667D0 POINTX(6) = 0.166666667D0 C WEITX(1) = 0.166666667D0 WEITX(2) = 0.166666667D0 WEITX(3) = 0.166666667D0 WEITX(4) = 0.166666667D0 WEITX(5) = 0.166666667D0 WEITX(6) = 0.166666667D0 GO TO 300 C C QUAD8 C -DSQRT(1.0D0/3.0D0) = -0.577350269D0 C 200 INDX = 2 NXI = 2 NETA = 2 POINTX(1) =-0.577350269D0 POINTX(2) =-POINTX(1) DO 210 I = 1,2 POINTE(I) = POINTX(I) WEITX(I) = 1.0D0 210 WEITE(I) = 1.0D0 C C SET UP THE ELEMENT VARIABLES C 300 CALL SHSETD (*3000,MM,SIL,BGPDT,BGPDT,GPTH,ELTH,GPTEMP,BGPDM, 1 EGPDT,DGPTH,GPNORM,EPNORM,NNODE,MMN,NSIL,IORDER, 2 IORDRN,TEB,TUB,CENTE,AVGTHK,TCE,ELID) C C GET THE TEMPERATURE VECTOR FROM CORE C DO 320 I = 1,MM TMPR(I) = 0.0D0 II = NSIL(I) IF (II .EQ. 0) GO TO 320 TMPR(I) = TEMP(II) 320 CONTINUE C NNODE2 = NNODE*NNODE DO 330 I = 1,NNODE2 HTCON(I) = 0.0D0 330 HTCAP(I) = 0.0D0 C C GET THE PROPERTIES C MATID = MID INFLAG = 12 ELTEMP = 0.0 ECPT(2) = 0.0 ECPT(3) = 0.0 ECPT(4) = 0.0 DO 400 I = 1,NNODE ECPT(2) = ECPT(2) + BGPDT(2,I) ECPT(3) = ECPT(3) + BGPDT(3,I) ECPT(4) = ECPT(4) + BGPDT(4,I) 400 ELTEMP = ELTEMP + GPTEMP(I) ELTEMP = ELTEMP/NNODE ECPT(2) = ECPT(2)/NNODE ECPT(3) = ECPT(3)/NNODE ECPT(4) = ECPT(4)/NNODE C IF (MFLAG .EQ. 0) GO TO 500 C C CALCULATE [TEM] USING MCID C IF (MCID .GT. 0) GO TO 420 DO 410 I = 1,9 410 TEM(I) = TEB(I) GO TO 430 420 NECPT(1) = MCID CALL TRANSD (ECPT,TBM) CALL GMMATD (TEB,3,3,0, TBM,3,3,0, TEM) C C CALCULATE THETAM FROM THE PROJECTION OF THE X-AXIS OF THE MATERIAL C COORD. SYSTEM ON TO THE XY PLANE OF THE ELEMENT COORD. SYSTEM C 430 XM = TEM(1) YM = TEM(4) IF (DABS(XM).GT.EPS1 .OR. DABS(YM).GT.EPS1) GO TO 440 GO TO 3000 440 THETAM = DATAN2(YM,XM) GO TO 510 500 THETAM = THETA*DEGRAD 510 SINMAT = DSIN(THETAM) COSMAT = DCOS(THETAM) C CALL HMAT (ELID) C GI(1) = DBLE(KHEAT(1)) GI(2) = DBLE(KHEAT(2)) GI(3) = GI(2) GI(4) = DBLE(KHEAT(3)) C C IF NONLINEAR, GET THE UPDATED MATERIAL PROPERTIES C IF (FLAG .EQ. 1) GO TO 1000 ELTEMP = 0.0 DO 900 I = 1,NNODE 900 ELTEMP = ELTEMP + SNGL(TMPR(I)) ELTEMP = ELTEMP/NNODE C CALL HMAT (ELID) C GI(1) = DBLE(KHEAT(1)) - GI(1) GI(2) = DBLE(KHEAT(2)) - GI(2) GI(3) = GI(2) GI(4) = DBLE(KHEAT(3)) - GI(4) C C START THE TRIPLE LOOP C 1000 CONTINUE DO 2000 IXI = 1,NXI XI = POINTX(IXI) WX = WEITX(IXI) C DO 1200 IETA = 1,NETA IF (NETA .EQ. 1) GO TO 1010 ETA = POINTE(IETA) WE = WEITE(IETA) GO TO 1020 1010 ETA = POINTX(IXI+NXI) WE = 1.0D0 1020 CONTINUE C C CALCULATE THE B TERMS C IF (MM .EQ. 8) CALL SHTRMD (*3000,ELID,MM,NNODE,XI,ETA,DGPTH, 1 EPNORM,EGPDT,IORDER,MMN,DETJ,THK,SHP,TIE,BTERMS) IF (MM .EQ. 6) CALL SHTRMD (*3000,ELID,MM,NNODE,XI,ETA,DGPTH, 1 EPNORM,EGPDT,IORDRN,MMN,DETJ,THK,SHP,TIE,BTERMS) C VOLI = DETJ*WX*WE*THK*2.0D0 WEITC = VOLI*HTCP DO 1030 I = 1,4 1030 GT(I) = GI(I)*VOLI C CALL GMMATD (GT,2,2,0, BTERMS,2,NNODE,0, HTFLX) CALL GMMATD (BTERMS,2,NNODE,-1, HTFLX,2,NNODE,0, HTCON) C IF (WEITC .EQ. 0.0) GO TO 1200 IP = 1 DO 1060 I = 1,NNODE DO 1060 J = 1,NNODE HTCAP(IP) = HTCAP(IP) + SHP(I)*SHP(J)*WEITC 1060 IP = IP + 1 C 1200 CONTINUE 2000 CONTINUE C C RECOVER NONLINEAR DELTA-LOAD C IF (FLAG .NE. 1) 1 CALL GMMATD (HTCON,NNODE,NNODE,0, TMPR,NNODE,1,0, DELTAP(1)) RETURN C C ENTRY SHHMGS (*,ELID,MM,SIL,BGPDT,GPTH,ELTH,GPTEMP,FLAG,MID, 1 MFLAG,MCID,THETA,TEMP,NNODE,NSIL,DELTAP,HTCON, 2 HTCAP) C ============================================================= C C SINGLE PRECISION VERSION C RETURN C 3000 CONTINUE RETURN 1 END ================================================ FILE: mis/shlsts.f ================================================ SUBROUTINE SHLSTS (ELID,PID,TLAM,EPSUMI,EPSCMI) C C TO PERFORM LAYER STRAIN, STRESS AND FORCE CALCULATIONS FOR THE C 2-D SHELL ELEMENTS. C ONLY THE ELEMENT CENTER VALUES ARE CONSIDERED C C INPUT : C ELID - ELEMENT ID C PID - COMPOSITE PROPERTY ID C TLAM - AVERAGE ELEMENT THICKNESS C EPSUMI - UNCORRECTED STRAINS IN MATERIAL COORD. SYSTEM C EPSCMI - CORRECTED STRAINS IN MATERIAL COORD. SYSTEM C /CONDAS/- TRIGONOMETRIC CONSTATNTS C /OUTREQ/- OUTPUT REQUEST LOGICAL FLAGS C C OUTPUT: C OUTPUT DATA ARE WRITTEN DIRECTLY TO EACH APPROPRIATE OUTPUT C FILE - OEF1L, OES1L/OES1AL C C C LAYER STRESS/STRAIN OUTPUT BLOCK FOR EACH CTRIA3 ELEMENT C C 1. 10*ELEMENT ID + DEVICE CODE C 2. NLAYER - NUMBER OF OUTPUT LAYERS C 3. TYPE OF FAILURE THEORY SELECTED C C 4. LAYER ID C 5-7. LAYER STRESSES/STRAINS C 8. LAYER FAILURE INDEX, FI C 9. IFLAG1 = 1 IF FI.GE.0.999 C = 0 OTHERWISE C 10-11. INTERLAMINAR SHEAR STRESSES/STRAINS C 12. SHEAR BONDING INDEX, FB C 13. IFLAG2 = 1 IF FB.GE.0.999 C = 0 OTHERWISE C : C : REPEAT 4-13 NLAYER TIMES FOR EACH LAYER C C LAST-1. MAXIMUM FAILURE INDEX OF LAMINATE, FIMAX C LAST. IFLAG3 = 1 IF FIMAX.GE.0.999 C = 0 OTHERWISE C C C FORCE OUTPUT BLOCK C C 1. 10*ELEMENT ID + DEVICE CODE C 2-9. FORCE RESULTANTS: C MEMBRANE BENDING TRANSVERSE C -- FORCES -- - MOMENTS - SHEAR FROCES C FX, FY, FXY, MX, MY, MXY, VX, VY C C LOGICAL STRESS,STRAIN,FORCE,STSREQ,STNREQ,FORREQ,STRCUR, 1 GRIDS,VONMS,LAYER,GRIDSS,VONMSS,LAYERS, 2 TRNFLX,NONMEM,SYMLAY,PCMP,PCMP1,PCMP2 INTEGER ELID,ELEMID,OES1L,OES1AL,OEF1L,PCOMP,PCOMP1, 1 PCOMP2,PID,PIDLOC,SYM,SYMMEM,SOUTI,HALF,FTHR, 2 STRINF,SDEST,EDEST,FDEST,IZ(1) REAL STRSLR(3),TRNSRR(2),EPSLR(3),ERNSRR(2),FINDXR, 1 FBONDR,FIMAXR,Z REAL TLAM,EPSUMI(6,1),EPSCMI(6,1),PI,TWOPI,RADDEG, 1 DEGRAD,GG(9),ULTSTN(6),TRANS(9),STRESL(3), 2 EPSLCM(3),EPSLUM(3),EPSLCF(3),EPSLUF(3),TRNAR(2), 3 ERNAR(2),TRNSHR(2),ERNSHR(2),FINDEX,FPMAX,FBOND, 4 FBMAX,FIMAX,FB(2),SB,V(2),EI(2),ZBAR(2), 5 ZK,ZK1,ZSUBI,ZREF,THETA,C,C2,S,S2,TI COMMON /CONDAS/ PI,TWOPI,RADDEG,DEGRAD COMMON /OUTREQ/ STSREQ,STNREQ,FORREQ,STRCUR,GRIDS,VONMS,LAYER 1, GRIDSS,VONMSS,LAYERS COMMON /SDR2DE/ KSDRDE(200) COMMON /SDR2X2/ DUM1(30),OES1L,OEF1L COMMON /SDR2X7/ DUM2(100),STRES(69),DUM3(31),FORSUL(37), 1 DUM4(163),STRIN(69) COMMON /SDR2C1/ IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2 COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z(1) ,IZ(1) ),(SDEST,KSDRDE( 26)), 1 (FDEST,KSDRDE(33)),(EDEST,KSDRDE(148)), 2 (OES1L,OES1AL ) DATA SYMMEM, MEM, SYM, PCOMP, PCOMP1, PCOMP2, STRINF / 1 3 , 2 , 1 , 0 , 1 , 2 , 5 / C C INITIALIZE C ZREF =-TLAM/2.0 FINDEX= 0.0 FBOND = 0.0 FPMAX = 0.0 FBMAX = 0.0 FIMAX = 0.0 C DO 10 LL = 1,2 ERNAR(LL) = 0.0 TRNAR(LL) = 0.0 ERNSHR(LL)= 0.0 TRNSHR(LL)= 0.0 10 CONTINUE C FORCE = FORREQ .AND. LAYER STRESS = STSREQ .AND. LAYER STRAIN = STNREQ .AND. LAYERS C ITYPE = -1 LPCOMP = IPCMP + NPCMP + NPCMP1 + NPCMP2 PCMP = NPCMP .GT. 0 PCMP1 = NPCMP1 .GT. 0 PCMP2 = NPCMP2 .GT. 0 C IF (.NOT.FORCE) GO TO 20 C C WRITE FORCE RESULTANTS TO OEF1L IF REQUESTED C ELEMID = 10*ELID + FDEST CALL WRITE (OEF1L,ELEMID,1,0) CALL WRITE (OEF1L,FORSUL(3),8,0) C C FORCE REQUEST HAS BEEN PROCESSED. IF NO MORE REQUESTS WE ARE DONE. C IF NOT, PREPARE FOR OTHER REQUESTS. C ISSUE ERROR IF PCOMPI DATA HAS NOT BEEN READ INTO CORE. C 20 IF (.NOT.(STRESS .OR. STRAIN)) GO TO 650 C C START WRITING STRESS/STRAIN OUTPUT TO OES1L/OES1AL C (NOTE - OES1L AND OES1AL ARE SAME FILE IN COSMIC/NASTRAN) C C 1. 10*ELEMENT ID + DEVICE CODE C IF (LPCOMP .EQ. IPCMP) GO TO 600 ELEMID = 10*ELID + SDEST IF (STRAIN) ELEMID = 10*ELID + EDEST CALL WRITE (OES1L,ELEMID,1,0) C C DETERMINE IF INTERLAMINAR SHEAR STRESS CALCULATIONS ARE REQUIRED C BY CHECKING THE TRANSVERSE SHEAR STRESS RESULTANTS QX AND QY C V(1) = FORSUL( 9) V(2) = FORSUL(10) TRNFLX = V(1).NE.0.0 .OR. V(2).NE.0.0 C C LOCATE PID BY PERFORMING A SEQUENTIAL SEARCH OF THE PCOMPI DATA C BLOCK WHICH IS IN CORE. C C SEARCH FOR PID IN PCOMP DATA C IF (.NOT.PCMP) GO TO 40 IP = IPCMP IF (IZ(IP) .EQ. PID) GO TO 110 IPC11 = IPCMP1 - 1 DO 30 IP = IPCMP,IPC11 IF (IZ(IP).EQ.-1 .AND. IP.LT.IPC11) IF (IZ(IP+1)-PID) 30,100,30 30 CONTINUE C C SEARCH FOR PID IN PCOMP1 DATA C 40 IF (.NOT.PCMP1) GO TO 60 IP = IPCMP1 IF (IZ(IP) .EQ. PID) GO TO 140 IPC21 = IPCMP2 - 1 DO 50 IP = IPCMP1,IPC21 IF (IZ(IP).EQ.-1 .AND. IP.LT.IPC21) IF (IZ(IP+1)-PID) 50,130,50 50 CONTINUE C C SEARCH FOR PID IN PCOMP2 DATA C 60 IF (.NOT.PCMP2) GO TO 600 IP = IPCMP2 IF (IZ(IP) .EQ. PID) GO TO 160 LPC11 = LPCOMP - 1 DO 70 IP = IPCMP2,LPC11 IF (IZ(IP).EQ.-1 .AND. IP.LT.LPC11) IF (IZ(IP+1)-PID) 70,150,70 70 CONTINUE C C PID WAS NOT LOCATED; ISSUE ERROR C GO TO 600 C C PID WAS LOCATED; DETERMINE TYPE C C FOR PCOMP BULK DATA DETERMINE HOW MANY LAYERS HAVE THE STRESS/ C STRAIN OUTPUT REQUEST (SOUTI). C FOR PCOMP1 OR PCOMP2 BULK DATA ENTRIES LAYER STRESSES/STRAINS ARE C OUTPUT FOR ALL LAYERS. C 100 IP = IP + 1 110 ITYPE = PCOMP PIDLOC = IP NLAY = IZ(PIDLOC+1) NLAYER = NLAY NSTRQT = 0 DO 120 K = 1,NLAY IF (IZ(PIDLOC+8+4*K) .EQ. 1) NSTRQT = NSTRQT + 1 120 CONTINUE NLAYER = NSTRQT IPOINT = PIDLOC + 8 + 4*NLAY ICONTR = IPOINT + 27*NLAY GO TO 200 C 130 IP = IP + 1 140 ITYPE = PCOMP1 PIDLOC = IP NLAY = IZ(PIDLOC+1) NLAYER = NLAY IPOINT = PIDLOC + 8 + NLAY ICONTR = IPOINT + 25 + 2*NLAY GO TO 200 C 150 IP = IP + 1 160 ITYPE = PCOMP2 PIDLOC = IP NLAY = IZ(PIDLOC+1) NLAYER = NLAY IPOINT = PIDLOC + 8 + 2*NLAY ICONTR = IPOINT + 25 + 2*NLAY C C DETERMINE GENERAL COMPOSITE PROPERTY VALUES C C LAMOPT - LAMINATION GENERATION OPTION C = ALL = 0 (ALL PLYS SPECIFIED, DEFAULT) C = SYM = 1 (SYMMETRIC) C = MEM = 2 (MEMBRANE ONLY) C = SYMMEM = 3 (SYMMETRIC-MEMBRANE) C C FTHR - FAILURE THEORY C = 1 HILL C = 2 HOFFMAN C = 3 TSAI-WU C = 4 MAX-STRESS C = 5 MAX-STRAIN C C SB - SHEAR BONDING STRENGTH C 200 LAMOPT = IZ(PIDLOC+8) FTHR = IZ(PIDLOC+5) SB = Z(PIDLOC+4) EI(1) = Z(ICONTR+1) EI(2) = Z(ICONTR+2) ZBAR(1)= Z(ICONTR+3) ZBAR(2)= Z(ICONTR+4) C NONMEM = LAMOPT.NE.MEM .AND. LAMOPT.NE.SYMMEM SYMLAY = LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM IF (SYMLAY) NLAYER = 2*NLAYER IF (NLAYER .EQ. 0) GO TO 650 C C CONTINUE TO WRITE LAYER-INDEPENDENT DATA TO OES1L/OES1AL C C 2. NLAYER - NUMBER OF LAYERS FOR LAMINATE C 3. TYPE OF FAILURE THEORY SELECTED C CALL WRITE (OES1L,NLAYER,1,0) CALL WRITE (OES1L,FTHR,1,0) C C START THE LOOP OVER LAYERS C ZK = ZREF HALF = 1 IF (SYMLAY) HALF = 2 C DO 450 IHALF = 1,HALF DO 440 KK = 1,NLAY K = KK IF (IHALF .EQ. 2) K = NLAY + 1 - KK C C OBTAIN LAYER K INFORMATION C - THE BOUNDARIES C - THE DISTANCE FROM THE REFERENCE SURFACE TO THE MIDDLE OF LAYER C - LAYER THICKNESS C - STRESS OUTPUT REQUEST (SOUTI) FOR PCOMP BULK DATA C (NOT SUPPORTED FOR PCOMP1 OR PCOMP2 BULK DATA) C ZK1 = ZK IF (ITYPE .EQ. PCOMP ) ZK = ZK1 + Z(PIDLOC + 6 + 4*K) IF (ITYPE .EQ. PCOMP1) ZK = ZK1 + Z(PIDLOC + 7 ) IF (ITYPE .EQ. PCOMP2) ZK = ZK1 + Z(PIDLOC + 7 + 2*K) ZSUBI = (ZK+ZK1)/2.0 TI = ZK - ZK1 SOUTI = 1 IF (ITYPE .EQ. PCOMP) SOUTI = IZ(PIDLOC+8+4*K) C C LAYER MATERIAL PROPERTIES C DO 210 IGI = 1,9 GG(IGI) = Z(IPOINT+IGI) 210 CONTINUE C C LAYER ULTIMATE STRENGTHS C DO 220 IR = 1,6 ULTSTN(IR) = Z(IPOINT+16+IR) 220 CONTINUE C C LAYER ORIENTATION C IF (ITYPE .EQ. PCOMP ) THETA = Z(PIDLOC + 7 + 4*K) IF (ITYPE .EQ. PCOMP1) THETA = Z(PIDLOC + 8 + K) IF (ITYPE .EQ. PCOMP2) THETA = Z(PIDLOC + 8 + 2*K) THETA = THETA*DEGRAD C C BUILD THE STRAIN TENSOR TRANSFORMATION TO TRANSFORM C LAYER STRAINS FROM MATERIAL TO FIBER DIRECTION. C C = COS(THETA) C2 = C*C S = SIN(THETA) S2 = S*S C TRANS(1) = C2 TRANS(2) = S2 TRANS(3) = C*S TRANS(4) = S2 TRANS(5) = C2 TRANS(6) =-C*S TRANS(7) =-2.0*C*S TRANS(8) = 2.0*C*S TRANS(9) = C2 - S2 C C CALCULATE THE CORRECTED AND UNCORRECTED STRAIN VECTORS AT ZSUBI C IN THE MATERIAL COORD. SYSTEM, THENTRANSFORM STRAINS FROM MATERIAL C TO FIBER COORD. SYSTEM AND CALCULATE THE LAYER STRESS VECTOR IN C THE FIBER COORD. SYSTEM C DO 300 IR = 1,3 EPSLCM(IR) = EPSCMI(IR,1) - ZSUBI*EPSCMI(IR+3,1) EPSLUM(IR) = EPSUMI(IR,1) - ZSUBI*EPSUMI(IR+3,1) 300 CONTINUE C CALL GMMATS (TRANS(1),3,3,0, EPSLCM(1),3,1,0, EPSLCF(1)) CALL GMMATS (TRANS(1),3,3,0, EPSLUM(1),3,1,0, EPSLUF(1)) CALL GMMATS (GG(1),3,3,0, EPSLCF,3,1,0, STRESL(1)) C IF (FTHR .LE. 0) GO TO 310 C C COMPUTE FAILURE INDEX FOR THIS LAYER AND THE MAXIMUM FAILURE INDEX C IF (FTHR .EQ. STRINF) CALL FAILRS (FTHR,ULTSTN,EPSLUF,FINDEX) IF (FTHR .NE. STRINF) CALL FAILRS (FTHR,ULTSTN,STRESL,FINDEX) IF (ABS(FINDEX) .GE. ABS(FPMAX)) FPMAX = FINDEX C 310 IF (.NOT.TRNFLX .OR. .NOT.NONMEM) GO TO 350 C C CALCULATE INTERLAMINAR SHEAR STRESSES AND STRAINS C IF (ITYPE .EQ. PCOMP ) ICONTR = IPOINT + 25 IF (ITYPE .EQ. PCOMP1) ICONTR = IPOINT + 23 + 2*K IF (ITYPE .EQ. PCOMP2) ICONTR = IPOINT + 23 + 2*K DO 320 IR = 1,2 ERNAR(IR) = ERNAR(IR) + TI*(ZBAR(IR)-ZSUBI) TRNAR(IR) = TRNAR(IR) + TI*(ZBAR(IR)-ZSUBI)*Z(ICONTR+IR) 320 CONTINUE C DO 330 IR = 1,2 TRNSHR(IR) = V(IR)*TRNAR(IR)/EI(IR) ERNSHR(IR) = V(IR)*ERNAR(IR)/EI(IR) 330 CONTINUE C IF (SB .LE. 0.0) GO TO 350 C C CALCULATE SHEAR BONDING FAILURE INDEX, FB, AND THE MAX SHEAR C BONDING INDEX, FBMAX. C DO 340 IR = 1,2 FB(IR) = ABS(TRNSHR(IR))/SB 340 CONTINUE C FBOND = FB(1) IF (FB(2) .GT. FB(1)) FBOND = FB(2) IF (FBOND .GE. FBMAX) FBMAX = FBOND C 350 IF (SOUTI .EQ. 0) GO TO 430 C C CONTINUE TO WRITE LAYER-DEPENDENT DATA TO OES1L AND OES1AL C C 4. LAYER ID, LYRID C 5,6,7. LAYER STRESSES/STRAINS C 8. LAYER FAILURE INDEX, FINDXR C 9. IFLAG1 (=1 IF FINDXR.GE.0.999, DEFAULT=0) C 10,11. INTERLAMINAR SHEAR STRESSES/STRAINS C 12. SHEAR BONDING FAILURE INDEX, FBONDR C 13. IFLAG2 (=1 IF FBONDR.GE.0.999, DEFAULT=0) C : REPEAT 4-13 FOR NUMBER OF LAYER WITH LAYER STRESS/STRAIN C : REQUEST C C LYRID = K IF (IHALF .EQ. 2) LYRID = NLAY + KK C FINDXR = FINDEX IFLAG1 = 0 IF (ABS(FINDEX) .GE. 0.999) IFLAG1 = 1 C FBONDR = FBOND IFLAG2 = 0 IF (ABS(FBOND ) .GE. 0.999) IFLAG2 = 1 C IF (.NOT.STRESS) GO TO 410 DO 400 ISTR = 1,3 STRSLR(ISTR) = STRESL(ISTR) 400 CONTINUE TRNSRR(1) = TRNSHR(1) TRNSRR(2) = TRNSHR(2) CALL WRITE (OES1L,LYRID,1,0) CALL WRITE (OES1L,STRSLR(1),3,0) CALL WRITE (OES1L,FINDXR,1,0) CALL WRITE (OES1L,IFLAG1,1,0) CALL WRITE (OES1L,TRNSRR(1),2,0) CALL WRITE (OES1L,FBONDR,1,0) CALL WRITE (OES1L,IFLAG2,1,0) C 410 IF (.NOT.STRAIN) GO TO 430 DO 420 ISTR = 1,3 EPSLR(ISTR) = EPSLUF(ISTR) 420 CONTINUE ERNSRR(1) = ERNSHR(1) ERNSRR(2) = ERNSHR(2) CALL WRITE (OES1AL,LYRID,1,0) CALL WRITE (OES1AL,EPSLR(1),3,0) CALL WRITE (OES1AL,FINDXR,1,0) CALL WRITE (OES1AL,IFLAG1,1,0) CALL WRITE (OES1AL,ERNSRR(1),2,0) CALL WRITE (OES1AL,FBONDR,1,0) CALL WRITE (OES1AL,IFLAG2,1,0) C C UPDATE IPOINT FOR PCOMP BULK DATA ENTRY C 430 IF (ITYPE .NE. PCOMP) GO TO 440 IF (IHALF.EQ.1 .AND. K.NE.NLAY) IPOINT = IPOINT + 27 IF (IHALF .EQ. 2) IPOINT = IPOINT - 27 440 CONTINUE 450 CONTINUE C C END OF LOOP OVER LAYERS C IF (FTHR .LE. 0) GO TO 500 C C DETERMINE THE MAXIMUM FAILURE INDEX C FIMAX = FPMAX IF (FBMAX .GT. ABS(FPMAX)) FIMAX = FBMAX C C CONTINUE TO OUTPUT THE MAXIMUM FAILURE INDEX TO OES1L/OES1AL C C LAST-1. MAXIMUM FAILURE INDEX OF LIMIATE, FIMAXR C LAST. IFLAG3 (=1 IF FIMAXR.GE.0.999, DEFAULT=0) C 500 FIMAXR = FIMAX IFLAG3 = 0 IF (ABS(FIMAX) .GE. 0.999) IFLAG3 = 1 C CALL WRITE (OES1L,FIMAXR,1,0) CALL WRITE (OES1L,IFLAG3,1,0) GO TO 650 C C C ERROR MESSAGE C C NO PCOMP, PCOMP1, PCOMP2 FOUND C 600 CALL MESAGE (-30,223,ELID) C 650 RETURN END ================================================ FILE: mis/shpsts.f ================================================ SUBROUTINE SHPSTS (SIGMA,VONMS,SIGP) C C TO CALCULATE PRINCIPAL STRESSES AND THEIR ANGLES FOR THE C ISOPARAMETRIC SHELL ELEMENTS C C C INPUT : C SIGMA - ARRAY OF 3 STRESS COMPONENTS C VONMS - LOGICAL FLAG INDICATING THE PRESENCE OF VON-MISES C STRESS REQUEST C OUTPUT: C SIGP - ARRAY OF PRINCIPAL STRESSES C C LOGICAL VONMS CWKBNB 7/94 SPR94004 LOGICAL OSTRAI COMMON / BLANK / APP(2), SORT2, IDUM(2), COMPS, SKP(4), OSTRAI &, SK2(39), MIDVE CWKBNE 7/94 SPR94004 REAL SIGMA(3),SIGP(4),SIG,PROJ,TAUMAX,EPS,TXY2 DATA EPS / 1.0E-11 / C C C CALCULATE PRINCIPAL STRESSES C SIG = 0.5*(SIGMA(1)+SIGMA(2)) PROJ = 0.5*(SIGMA(1)-SIGMA(2)) TAUMAX = PROJ*PROJ + SIGMA(3)*SIGMA(3) CWKBI 7/94 SPR94004 IF ( OSTRAI ) TAUMAX = PROJ*PROJ + SIGMA(3)*SIGMA(3)/4. IF (TAUMAX .NE. 0.0) TAUMAX = SQRT(TAUMAX) IF (TAUMAX .LE. EPS) TAUMAX = 0.0 C C CALCULATE THE PRINCIPAL ANGLE C TXY2 = SIGMA(3)*2.0 PROJ = PROJ*2.0 SIGP(1) = 0.0 IF (ABS(TXY2).GT.EPS .OR. ABS(PROJ).GT.EPS) 1 SIGP(1) = 28.64788976*ATAN2(TXY2,PROJ) C 28.64788976 = 90./PI C SIGP(2) = SIG + TAUMAX SIGP(3) = SIG - TAUMAX SIGP(4) = TAUMAX C C OUTPUT VON MISES YIELD STRESS IF REQUESTED C IF (.NOT.VONMS) RETURN SIG = SIGP(2)*SIGP(2) + SIGP(3)*SIGP(3) - SIGP(2)*SIGP(3) IF (SIG .NE. 0.0) SIG = SQRT(SIG) IF (SIG .LE. EPS) SIG = 0.0 SIGP(4) = SIG C RETURN END ================================================ FILE: mis/shsetd.f ================================================ SUBROUTINE SHSETD (*,MM,SIL,BGPDT,IGPDT,GPTH,ELTH,GPTEMP,BGPDM, 1 EGPDT,DGPTH,GPNORM,EPNORM,NNODE,MMN,NSIL, 2 IORDER,IORDRN,TEB,TUB,CENTE,AVGTHK,TCE,ELID) C C TO SET UP FOR ISOPARAMETRIC SHELL ELEMENTS, CALLED ONLY BY SHHMGD C C DOUBLE PRECISION VERSION C C INPUT : C MM - MAXIMUM NO. OF NODES PER THIS TYPE ELEMENT C SIL - ARRAY OF SIL NUMBERS C BGPDT - BGPDT DATA FROM EST (REAL ARRAY) C IGPDT - BGPDT DATA FROM EST (INTEGER ARRAY) C GPTH - GRID POINT THICKNESS DATA C ELTH - ELEMENT THICKNESS FROM EPT C GPTEMP - GRID POINT TEMPERATURE DATA C ELID - ELEMENT ID C OUTPUT: C SIL - ARRAY OF SIL NUMBERS (REARRANGED) C BGPDT - BGPDT DATA (REAL ARRAY) (REARRANGED) C IGPDT - BGPDT DATA (INTEGER ARRAY) (REARRANGED) C GPTH - GRID POINT THICKNESS DATA (REARRANGED) C GPTEMP - GRID POINT TEMPERATURE DATA (REARRANGED) C BGPDM - BGPDT DATA SAVED IN ORIGINAL FORMAT C EGPDT - BGPDT DATA IN ELEMENT COORD. SYSTEM C DGPTH - GRID POINT THICKNESS DATA C GPNORM - GRID POINT NORMALS C EPNORM - GRID POINT NORMALS IN ELEMENT COORD. SYSTEM C NNODE - THE NO. OF NODES PRESENT IN THE ELEMENT C MMN - ARRAY OF MISSING MIDSIDE NODES C NSIL - INTERNALLY ORDERED SIL ARRAY C IORDER - ARRAY OF ORDER INDICATORS FOR REARRANGED DATA C IORDRN - ARRAY OF ORDER INDICATORS FOR TRIA C TEB - TRANSFORMATION FROM ELEMENT TO BASIC COORD.SYSTEM C TUB - TRANSFORMATION FROM USER TO BASIC COORD. SYSTEM C CENTE - LOCATION OF THE CENTER OF THE ELEMENT C AVGTHK - AVERAGE THICKNESS OF THE ELEMENT C LOGICAL QUAD INTEGER SIL(8),IORDER(8),KSIL(8),KCID(8),MMN(8),NSIL(8), 1 IORDRN(8),IGPDT(4,8),ELID REAL GPTEMP(8),TEMTEM(8),BGPDT(4,8),TGRID(4,8), 1 GPTH(8),TMPTHK(8),BGPDM(3,8) DOUBLE PRECISION CENT(3),CENTE(3),EGPDT(4,8),GGU(9),GGN(9),TEB(9), 1 TEU(9),SMAX,SMIN,SL(3),GGE(9),TUB(9),CC,DGPTH(8), 2 GPNORM(4,8),EPNORM(4,8),X31,Y31,X42,Y42,EXI,EXJ, 3 AA,BB,UGPDM(3,8),TCE(63),AVGTHK C C IF (MM.NE.3 .AND. MM.NE.4 .AND. MM.NE.6 .AND. MM.NE.8) GO TO 700 C TRIA3 QUAD4 TRIA6 QUAD8 C QUAD = MM.EQ.8 .OR. MM.EQ.4 MMX = 3 IF (QUAD) MMX = 4 NNODE = MM DO 10 I = 1,MM MMN(I) = SIL(I) KSIL(I)= SIL(I) IF (SIL(I) .GT. 0) GO TO 10 NNODE = NNODE - 1 10 CONTINUE C C FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS 1,2 AND 4 C (3 FOR TRIA). THIS ARRAY WILL BE USED LATER TO DEFINE THE USER C COORDINATE SYSTEM WHILE CALCULATING TRANSFORMATIONS INVOLVING C THIS COORDINATE SYSTEM. C DO 20 I = 1,3 II = (I-1)*3 IJ = I IF (QUAD .AND. IJ.EQ.3) IJ = 4 DO 20 J = 1,3 JJ = J + 1 20 GGU(II+J) = DBLE(BGPDT(JJ,IJ)) CALL BETRND (TUB,GGU,0,ELID) C C STORE INCOMING BGPDT FOR LUMPED MASS AND ELEMENT COORD. SYSTEM C DO 30 I = 1,3 I1 = I + 1 DO 30 J = 1,MM 30 BGPDM(I,J) = BGPDT(I1,J) C C TRANSFORM BGPDM FROM BASIC TO USER COORD. SYSTEM C DO 40 I = 1,3 IP = (I-1)*3 DO 40 J = 1,MM UGPDM(I,J) = 0.0D0 DO 40 K = 1,3 KK = IP + K 40 UGPDM(I,J) = UGPDM(I,J) + TUB(KK)*(DBLE(BGPDM(K,J))-GGU(K)) C IF (QUAD) GO TO 200 C C FOR TRIA C CALCULATE THE CENTER COORDINATES C CENTE(1) = (GGU(1)+GGU(4)+GGU(7))/3.0D0 CENTE(2) = (GGU(2)+GGU(5)+GGU(8))/3.0D0 CENTE(3) = (GGU(3)+GGU(6)+GGU(9))/3.0D0 C C ESTABLISH THE INTERNAL COORDINATES: C X-AXIS IS ALONG THE MIDDLE-SIZED SIDE AND THE XY-PLANE IS C DETERMINED BY IT TOGETHER WITH THE SHORTEST SIDE C CC = (GGU(7)-GGU(4))*(GGU(7)-GGU(4)) 1 + (GGU(8)-GGU(5))*(GGU(8)-GGU(5)) 2 + (GGU(9)-GGU(6))*(GGU(9)-GGU(6)) IF (CC .LE. 0.0D0) GO TO 700 SL(1) = DSQRT(CC) CC = (GGU(7)-GGU(1))*(GGU(7)-GGU(1)) 1 + (GGU(8)-GGU(2))*(GGU(8)-GGU(2)) 2 + (GGU(9)-GGU(3))*(GGU(9)-GGU(3)) IF (CC .LE. 0.0D0) GO TO 700 SL(2) = DSQRT(CC) CC = (GGU(4)-GGU(1))*(GGU(4)-GGU(1)) 1 + (GGU(5)-GGU(2))*(GGU(5)-GGU(2)) 2 + (GGU(6)-GGU(3))*(GGU(6)-GGU(3)) IF (CC .LE. 0.0D0) GO TO 700 SL(3) = DSQRT(CC) SMAX = SL(1) ISMAX = 1 DO 100 I = 2,3 IF (SL(I) .LE. SMAX) GO TO 100 SMAX = SL(I) ISMAX = I 100 CONTINUE SMIN = SL(1) ISMIN = 1 DO 110 I = 2,3 IF (SL(I) .GE. SMIN) GO TO 110 SMIN = SL(I) ISMIN = I 110 CONTINUE IF (ISMAX .EQ. ISMIN) ISMIN = 3 MIDDL = IABS(ISMAX-ISMIN) IF (ISMAX+ISMIN .EQ. 3) MIDDL = 3 C C DETECT THE POSSIBLE REVERSAL OF THE INTERNAL Z-AXIS WITH RESPECT C TO THE USER Z-AXIS. IF THAT IS THE CASE, SWITCH ISMAX AND ISMIN C TO AVOID THE PROBLEM. THE SIDE WITH MEDIUM LENGTH WILL STILL BE C THE X-AXIS. C IF (ISMAX .NE. MOD(ISMIN,3)+1) GO TO 120 III = ISMIN ISMIN = ISMAX ISMAX = III C 120 IS3 = 3*(ISMAX-1) GGN(1) = GGU(IS3+1) GGN(2) = GGU(IS3+2) GGN(3) = GGU(IS3+3) C IS3 = 3*(ISMIN-1) GGN(4) = GGU(IS3+1) GGN(5) = GGU(IS3+2) GGN(6) = GGU(IS3+3) C IS3 = 3*(MIDDL-1) GGN(7) = GGU(IS3+1) GGN(8) = GGU(IS3+2) GGN(9) = GGU(IS3+3) C CALL BETRND (TEB,GGN,0,ELID) GO TO 300 C C FOR QUAD C THE ORIGIN OF THE ELEMENT COORD.SYSTEM IS IN THE MIDDLE OF THE C ELEMENT C 200 DO 210 J = 1,3 CENT(J) = 0.0D0 DO 210 I = 1,MM 210 CENT(J) = CENT(J) + UGPDM(J,I)/NNODE C C STORE THE CORNER NODE DIFF. IN THE USER COORD. SYSTEM C X31 = UGPDM(1,3) - UGPDM(1,1) Y31 = UGPDM(2,3) - UGPDM(2,1) X42 = UGPDM(1,4) - UGPDM(1,2) Y42 = UGPDM(2,4) - UGPDM(2,2) AA = X31*X31 + Y31*Y31 IF (AA .LE. 0.0D0) GO TO 700 AA = DSQRT(AA) BB = X42*X42 + Y42*Y42 IF (BB .LE. 0.0D0) GO TO 700 BB = DSQRT(BB) C C NORMALIZE XIJ'S C X31 = X31/AA Y31 = Y31/AA X42 = X42/BB Y42 = Y42/BB EXI = X31 - X42 EXJ = Y31 - Y42 C C STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT COORD. SYSTEM AND USER C COORD. SYSTEM C GGE(1) = CENT(1) GGE(2) = CENT(2) GGE(3) = CENT(3) C GGE(4) = GGE(1) + EXI GGE(5) = GGE(2) + EXJ GGE(6) = GGE(3) C GGE(7) = GGE(1) - EXJ GGE(8) = GGE(2) + EXI GGE(9) = GGE(3) C CALL BETRND (TEU,GGE,0,ELID) CALL GMMATD (TEU,3,3,0, TUB,3,3,0, TEB) CALL GMMATD (TUB,3,3,1, CENT,3,1,0, CENTE) C C THE ARRAY IORDER STORES THE ELEMENT NODE ID IN INCREASING SIL C ORDER. C C IORDER(1) = NODE WITH LOWEST SIL NUMBER C IORDER(MM) = NODE WITH HIGHEST SIL NUMBER C C ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST C G1,G2,G3,G4,G5,G6,G7,G8 . THAT IS, THE "I" PART OF THE "GI" AS C THEY ARE LISTED ON THE CONNECTIVITY BULK DATA CARD DESCRIPTION. C 300 KSILD = 99999995 DO 310 I = 1,MM IORDER(I) = 0 IORDRN(I) = 0 KSIL(I) = SIL(I) IF (SIL(I) .NE. 0) GO TO 310 KSIL(I) = KSILD KSILD = KSILD + 1 310 CONTINUE DO 330 I = 1,MM ITEMP = 1 ISIL = KSIL(1) DO 320 J = 2,MM IF (ISIL .LE. KSIL(J)) GO TO 320 ITEMP = J ISIL = KSIL(J) 320 CONTINUE IORDER(I) = ITEMP IORDRN(I) = ITEMP KSIL(ITEMP) = 99999999 330 CONTINUE C C ADJUST EST DATA C C USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE GEOMETRY DATA C INTO INCREASING SIL ORDER. C DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE FUNCTIONS GO C WITH WHICH GEOMETRIC PARAMETERS! C DO 350 I = 1,MM KSIL(I) = SIL(I) TMPTHK(I)= GPTH(I) IF (MM .NE. 4) TEMTEM(I) = GPTEMP(I) KCID(I) = IGPDT(1,I) DO 340 J = 2,4 TGRID(J,I) = BGPDT(J,I) 340 CONTINUE 350 CONTINUE DO 370 I = 1,MM IPOINT = IORDER(I) SIL(I) = KSIL(IPOINT) NSIL(I) = KSIL(IPOINT) GPTH(I) = TMPTHK(IPOINT) IF (MM .NE. 4) GPTEMP(I) = TEMTEM(IPOINT) IGPDT(1,I) = KCID(IPOINT) DO 360 J = 2,4 BGPDT(J,I) = TGRID(J,IPOINT) 360 CONTINUE 370 CONTINUE C IF (QUAD) GO TO 500 C C FOR TRIA C CREATE THE INTERNAL ORDER OF THE NODES OF ELEMENT IN CONNECTION C WITH THE INTERNAL COORDINATE SYSTEM THEN CALCULATE NORMALS C DO 400 I = 1,MM IF (IORDER(I) .EQ. ISMAX) IORDRN(I) = 1 IF (IORDER(I) .EQ. ISMIN) IORDRN(I) = 2 IF (IORDER(I) .EQ. MIDDL) IORDRN(I) = 3 IF (IORDER(I) .EQ. 4) IND4=I IF (IORDER(I) .EQ. 5) IND5=I IF (IORDER(I) .EQ. 6) IND6=I 400 CONTINUE IF (MM .NE. 6) GO TO 410 IF (ISMAX+ISMIN .EQ. 3) IORDRN(IND4) = 4 IF (ISMAX+ISMIN .EQ. 4) IORDRN(IND6) = 4 IF (ISMAX+ISMIN .EQ. 5) IORDRN(IND5) = 4 IF (ISMIN+MIDDL .EQ. 3) IORDRN(IND4) = 5 IF (ISMIN+MIDDL .EQ. 4) IORDRN(IND6) = 5 IF (ISMIN+MIDDL .EQ. 5) IORDRN(IND5) = 5 IF (MIDDL+ISMAX .EQ. 3) IORDRN(IND4) = 6 IF (MIDDL+ISMAX .EQ. 4) IORDRN(IND6) = 6 IF (MIDDL+ISMAX .EQ. 5) IORDRN(IND5) = 6 C 410 DO 420 I = 1,3 II = I + 1 IP = (I-1)*3 DO 420 J = 1,NNODE EGPDT(II,J) = 0.0D0 DO 420 K = 1,3 KK = IP + K EGPDT(II,J) = EGPDT(II,J) + TEB(KK)*(DBLE(BGPDT(K+1,J))-GGN(K)) 420 CONTINUE C C USE THE POINTERS IN IORDER AND IORDRN TO REORDER MMN C DO 430 I = 1,MM IPOINT = IORDRN(I) JPOINT = IORDER(I) MMN(IPOINT) = KSIL(JPOINT) 430 CONTINUE C IF (MM .NE. 3) GO TO 520 DO 440 II=1,3 EPNORM(1,II) = 0.0D0 EPNORM(2,II) = 0.0D0 EPNORM(3,II) = 0.0D0 EPNORM(4,II) = 1.0D0 GPNORM(1,II) = 0.0D0 GPNORM(2,II) = TEB(7) GPNORM(3,II) = TEB(8) GPNORM(4,II) = TEB(9) 440 CONTINUE GO TO 520 C C FOR QUAD - COMPUTE NODAL NORMALS C THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE TRANSFORMED C FROM THE BASIC COORD. SYSTEM TO THE ELEMENT COORD. SYSTEM C 500 IFLAG = 0 IF (MM .EQ. 4) CALL Q4NRMD (BGPDT,GPNORM,IORDER,IFLAG) IF (IFLAG .NE. 0) GO TO 700 C DO 510 I = 1,3 II = I + 1 IP = (I-1)*3 DO 510 J = 1,NNODE EPNORM(II,J) = 0.0D0 EGPDT (II,J) = 0.0D0 DO 510 K = 1,3 KK = IP + K K1 = K + 1 CC = DBLE(BGPDT(K1,J)) - GGU(K) - CENTE(K) EPNORM(II,J) = EPNORM(II,J) + TEB(KK)*GPNORM(K1,J) EGPDT (II,J) = EGPDT (II,J) + TEB(KK)*CC 510 CONTINUE C C SET AVGTHK TO ZERO C 520 AVGTHK = 0.0D0 DO 550 I = 1,NNODE IO = IORDER(I) IF (IO .GT. MMX) GO TO 550 C IF (GPTH(I)) 700,530,540 530 IF (ELTH .LE. 0.0) GO TO 700 GPTH(I) = ELTH 540 DGPTH(I) = DBLE(GPTH(I)) AVGTHK = AVGTHK + DGPTH(I)/NNODE 550 CONTINUE C DO 620 I = 1,NNODE IO = IORDER(I) IF (IO .LE. MMX) GO TO 620 IF (GPTH(I) .GT. 0.0) GO TO 610 IO1 = IO - MMX IO2 = IO1 + 1 IF (IO2 .EQ. MMX+1) IO2 = 1 DO 600 J = 1,MM JO = IORDER(J) IF (JO .EQ. IO1) IC1 = J IF (JO .EQ. IO2) IC2 = J 600 CONTINUE GPTH (I) = (GPTH(IC1)+GPTH(IC2))/2.0 610 DGPTH(I) = DBLE(GPTH(I)) AVGTHK = AVGTHK + DGPTH(I)/NNODE 620 CONTINUE RETURN C 700 RETURN 1 END ================================================ FILE: mis/shsets.f ================================================ SUBROUTINE SHSETS (*,MM,SIL,BGPDT,IGPDT,GPTH,ELTH,GPTEMP,BGPDM, 1 EGPDT,DGPTH,GPNORM,EPNORM,NNODE,MMN,NSIL, 2 IORDER,IORDRN,TEB,TUB,CENTE,AVGTHK,TCE,ELID) C C TO SET UP FOR ISOPARAMETRIC SHELL ELEMENTS, CALLED ONLY BY SHHMGS C C SINGLE PRECISION VERSION C C INPUT : C MM - MAXIMUM NO. OF NODES PER THIS TYPE ELEMENT C SIL - ARRAY OF SIL NUMBERS C BGPDT - BGPDT DATA FROM EST (REAL ARRAY) C IGPDT - BGPDT DATA FROM EST (INTEGER ARRAY) C GPTH - GRID POINT THICKNESS DATA C ELTH - ELEMENT THICKNESS FROM EPT C GPTEMP - GRID POINT TEMPERATURE DATA C ELID - ELEMENT ID C OUTPUT: C SIL - ARRAY OF SIL NUMBERS (REARRANGED) C BGPDT - BGPDT DATA (REAL ARRAY) (REARRANGED) C IGPDT - BGPDT DATA (INTEGER ARRAY) (REARRANGED) C GPTH - GRID POINT THICKNESS DATA (REARRANGED) C GPTEMP - GRID POINT TEMPERATURE DATA (REARRANGED) C BGPDM - BGPDT DATA SAVED IN ORIGINAL FORMAT C EGPDT - BGPDT DATA IN ELEMENT COORD. SYSTEM C DGPTH - GRID POINT THICKNESS DATA C GPNORM - GRID POINT NORMALS C EPNORM - GRID POINT NORMALS IN ELEMENT COORD. SYSTEM C NNODE - THE NO. OF NODES PRESENT IN THE ELEMENT C MMN - ARRAY OF MISSING MIDSIDE NODES C NSIL - INTERNALLY ORDERED SIL ARRAY C IORDER - ARRAY OF ORDER INDICATORS FOR REARRANGED DATA C IORDRN - ARRAY OF ORDER INDICATORS FOR TRIA C TEB - TRANSFORMATION FROM ELEMENT TO BASIC COORD.SYSTEM C TUB - TRANSFORMATION FROM USER TO BASIC COORD. SYSTEM C CENTE - LOCATION OF THE CENTER OF THE ELEMENT C AVGTHK - AVERAGE THICKNESS OF THE ELEMENT C LOGICAL QUAD INTEGER SIL(8),IORDER(8),KSIL(8),KCID(8),MMN(8),NSIL(8), 1 IORDRN(8),IGPDT(4,8),ELID REAL GPTEMP(8),TEMTEM(8),BGPDT(4,8),TGRID(4,8), 1 GPTH(8),TMPTHK(8),BGPDM(3,8) REAL CENT(3),CENTE(3),EGPDT(4,8),GGU(9),GGN(9),TEB(9), 1 TEU(9),SMAX,SMIN,SL(3),GGE(9),TUB(9),CC,DGPTH(8), 2 GPNORM(4,8),EPNORM(4,8),X31,Y31,X42,Y42,EXI,EXJ, 3 AA,BB,UGPDM(3,8),TCE(63),AVGTHK C C IF (MM.NE.3 .AND. MM.NE.4 .AND. MM.NE.6 .AND. MM.NE.8) GO TO 700 C TRIA3 QUAD4 TRIA6 QUAD8 C QUAD = MM.EQ.8 .OR. MM.EQ.4 MMX = 3 IF (QUAD) MMX = 4 NNODE = MM DO 10 I = 1,MM MMN(I) = SIL(I) KSIL(I)= SIL(I) IF (SIL(I) .GT. 0) GO TO 10 NNODE = NNODE - 1 10 CONTINUE C C FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS 1,2 AND 4 C (3 FOR TRIA). THIS ARRAY WILL BE USED LATER TO DEFINE THE USER C COORDINATE SYSTEM WHILE CALCULATING TRANSFORMATIONS INVOLVING C THIS COORDINATE SYSTEM. C DO 20 I = 1,3 II = (I-1)*3 IJ = I IF (QUAD .AND. IJ.EQ.3) IJ = 4 DO 20 J = 1,3 JJ = J + 1 20 GGU(II+J) = BGPDT(JJ,IJ) CALL BETRNS (TUB,GGU,0,ELID) C C STORE INCOMING BGPDT FOR LUMPED MASS AND ELEMENT COORD. SYSTEM C DO 30 I = 1,3 I1 = I + 1 DO 30 J = 1,MM 30 BGPDM(I,J) = BGPDT(I1,J) C C TRANSFORM BGPDM FROM BASIC TO USER COORD. SYSTEM C DO 40 I = 1,3 IP = (I-1)*3 DO 40 J = 1,MM UGPDM(I,J) = 0.0 DO 40 K = 1,3 KK = IP + K 40 UGPDM(I,J) = UGPDM(I,J) + TUB(KK)*(BGPDM(K,J)-GGU(K)) C IF (QUAD) GO TO 200 C C FOR TRIA C CALCULATE THE CENTER COORDINATES C CENTE(1) = (GGU(1)+GGU(4)+GGU(7))/3.0 CENTE(2) = (GGU(2)+GGU(5)+GGU(8))/3.0 CENTE(3) = (GGU(3)+GGU(6)+GGU(9))/3.0 C C ESTABLISH THE INTERNAL COORDINATES: C X-AXIS IS ALONG THE MIDDLE-SIZED SIDE AND THE XY-PLANE IS C DETERMINED BY IT TOGETHER WITH THE SHORTEST SIDE C CC = (GGU(7)-GGU(4))*(GGU(7)-GGU(4)) 1 + (GGU(8)-GGU(5))*(GGU(8)-GGU(5)) 2 + (GGU(9)-GGU(6))*(GGU(9)-GGU(6)) IF (CC .LE. 0.0) GO TO 700 SL(1) = SQRT(CC) CC = (GGU(7)-GGU(1))*(GGU(7)-GGU(1)) 1 + (GGU(8)-GGU(2))*(GGU(8)-GGU(2)) 2 + (GGU(9)-GGU(3))*(GGU(9)-GGU(3)) IF (CC .LE. 0.0) GO TO 700 SL(2) = SQRT(CC) CC = (GGU(4)-GGU(1))*(GGU(4)-GGU(1)) 1 + (GGU(5)-GGU(2))*(GGU(5)-GGU(2)) 2 + (GGU(6)-GGU(3))*(GGU(6)-GGU(3)) IF (CC .LE. 0.0) GO TO 700 SL(3) = SQRT(CC) SMAX = SL(1) ISMAX = 1 DO 100 I = 2,3 IF (SL(I) .LE. SMAX) GO TO 100 SMAX = SL(I) ISMAX = I 100 CONTINUE SMIN = SL(1) ISMIN = 1 DO 110 I = 2,3 IF (SL(I) .GE. SMIN) GO TO 110 SMIN = SL(I) ISMIN = I 110 CONTINUE IF (ISMAX .EQ. ISMIN) ISMIN = 3 MIDDL = IABS(ISMAX-ISMIN) IF (ISMAX+ISMIN .EQ. 3) MIDDL = 3 C C DETECT THE POSSIBLE REVERSAL OF THE INTERNAL Z-AXIS WITH RESPECT C TO THE USER Z-AXIS. IF THAT IS THE CASE, SWITCH ISMAX AND ISMIN C TO AVOID THE PROBLEM. THE SIDE WITH MEDIUM LENGTH WILL STILL BE C THE X-AXIS. C IF (ISMAX .NE. MOD(ISMIN,3)+1) GO TO 120 III = ISMIN ISMIN = ISMAX ISMAX = III C 120 IS3 = 3*(ISMAX-1) GGN(1) = GGU(IS3+1) GGN(2) = GGU(IS3+2) GGN(3) = GGU(IS3+3) C IS3 = 3*(ISMIN-1) GGN(4) = GGU(IS3+1) GGN(5) = GGU(IS3+2) GGN(6) = GGU(IS3+3) C IS3 = 3*(MIDDL-1) GGN(7) = GGU(IS3+1) GGN(8) = GGU(IS3+2) GGN(9) = GGU(IS3+3) C CALL BETRNS (TEB,GGN,0,ELID) GO TO 300 C C FOR QUAD C THE ORIGIN OF THE ELEMENT COORD.SYSTEM IS IN THE MIDDLE OF THE C ELEMENT C 200 DO 210 J = 1,3 CENT(J) = 0.0 DO 210 I = 1,MM 210 CENT(J) = CENT(J) + UGPDM(J,I)/NNODE C C STORE THE CORNER NODE DIFF. IN THE USER COORD. SYSTEM C X31 = UGPDM(1,3) - UGPDM(1,1) Y31 = UGPDM(2,3) - UGPDM(2,1) X42 = UGPDM(1,4) - UGPDM(1,2) Y42 = UGPDM(2,4) - UGPDM(2,2) AA = X31*X31 + Y31*Y31 IF (AA .LE. 0.0) GO TO 700 AA = SQRT(AA) BB = X42*X42 + Y42*Y42 IF (BB .LE. 0.0) GO TO 700 BB = SQRT(BB) C C NORMALIZE XIJ'S C X31 = X31/AA Y31 = Y31/AA X42 = X42/BB Y42 = Y42/BB EXI = X31 - X42 EXJ = Y31 - Y42 C C STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT COORD. SYSTEM AND USER C COORD. SYSTEM C GGE(1) = CENT(1) GGE(2) = CENT(2) GGE(3) = CENT(3) C GGE(4) = GGE(1) + EXI GGE(5) = GGE(2) + EXJ GGE(6) = GGE(3) C GGE(7) = GGE(1) - EXJ GGE(8) = GGE(2) + EXI GGE(9) = GGE(3) C CALL BETRNS (TEU,GGE,0,ELID) CALL GMMATS (TEU,3,3,0, TUB,3,3,0, TEB) CALL GMMATS (TUB,3,3,1, CENT,3,1,0, CENTE) C C THE ARRAY IORDER STORES THE ELEMENT NODE ID IN INCREASING SIL C ORDER. C C IORDER(1) = NODE WITH LOWEST SIL NUMBER C IORDER(MM) = NODE WITH HIGHEST SIL NUMBER C C ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST C G1,G2,G3,G4,G5,G6,G7,G8 . THAT IS, THE "I" PART OF THE "GI" AS C THEY ARE LISTED ON THE CONNECTIVITY BULK DATA CARD DESCRIPTION. C 300 KSILD = 99999995 DO 310 I = 1,MM IORDER(I) = 0 IORDRN(I) = 0 KSIL(I) = SIL(I) IF (SIL(I) .NE. 0) GO TO 310 KSIL(I) = KSILD KSILD = KSILD + 1 310 CONTINUE DO 330 I = 1,MM ITEMP = 1 ISIL = KSIL(1) DO 320 J = 2,MM IF (ISIL .LE. KSIL(J)) GO TO 320 ITEMP = J ISIL = KSIL(J) 320 CONTINUE IORDER(I) = ITEMP IORDRN(I) = ITEMP KSIL(ITEMP) = 99999999 330 CONTINUE C C ADJUST EST DATA C C USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE GEOMETRY DATA C INTO INCREASING SIL ORDER. C DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE FUNCTIONS GO C WITH WHICH GEOMETRIC PARAMETERS! C DO 350 I = 1,MM KSIL(I) = SIL(I) TMPTHK(I)= GPTH(I) IF (MM .NE. 4) TEMTEM(I) = GPTEMP(I) KCID(I) = IGPDT(1,I) DO 340 J = 2,4 TGRID(J,I) = BGPDT(J,I) 340 CONTINUE 350 CONTINUE DO 370 I = 1,MM IPOINT = IORDER(I) SIL(I) = KSIL(IPOINT) NSIL(I) = KSIL(IPOINT) GPTH(I) = TMPTHK(IPOINT) IF (MM .NE. 4) GPTEMP(I) = TEMTEM(IPOINT) IGPDT(1,I) = KCID(IPOINT) DO 360 J = 2,4 BGPDT(J,I) = TGRID(J,IPOINT) 360 CONTINUE 370 CONTINUE C IF (QUAD) GO TO 500 C C FOR TRIA C CREATE THE INTERNAL ORDER OF THE NODES OF ELEMENT IN CONNECTION C WITH THE INTERNAL COORDINATE SYSTEM THEN CALCULATE NORMALS C DO 400 I = 1,MM IF (IORDER(I) .EQ. ISMAX) IORDRN(I) = 1 IF (IORDER(I) .EQ. ISMIN) IORDRN(I) = 2 IF (IORDER(I) .EQ. MIDDL) IORDRN(I) = 3 IF (IORDER(I) .EQ. 4) IND4=I IF (IORDER(I) .EQ. 5) IND5=I IF (IORDER(I) .EQ. 6) IND6=I 400 CONTINUE IF (MM .NE. 6) GO TO 410 IF (ISMAX+ISMIN .EQ. 3) IORDRN(IND4) = 4 IF (ISMAX+ISMIN .EQ. 4) IORDRN(IND6) = 4 IF (ISMAX+ISMIN .EQ. 5) IORDRN(IND5) = 4 IF (ISMIN+MIDDL .EQ. 3) IORDRN(IND4) = 5 IF (ISMIN+MIDDL .EQ. 4) IORDRN(IND6) = 5 IF (ISMIN+MIDDL .EQ. 5) IORDRN(IND5) = 5 IF (MIDDL+ISMAX .EQ. 3) IORDRN(IND4) = 6 IF (MIDDL+ISMAX .EQ. 4) IORDRN(IND6) = 6 IF (MIDDL+ISMAX .EQ. 5) IORDRN(IND5) = 6 C 410 DO 420 I = 1,3 II = I + 1 IP = (I-1)*3 DO 420 J = 1,NNODE EGPDT(II,J) = 0.0 DO 420 K = 1,3 KK = IP + K EGPDT(II,J) = EGPDT(II,J) + TEB(KK)*(BGPDT(K+1,J)-GGN(K)) 420 CONTINUE C C USE THE POINTERS IN IORDER AND IORDRN TO REORDER MMN C DO 430 I = 1,MM IPOINT = IORDRN(I) JPOINT = IORDER(I) MMN(IPOINT) = KSIL(JPOINT) 430 CONTINUE C IF (MM .NE. 3) GO TO 520 DO 440 II=1,3 EPNORM(1,II) = 0.0 EPNORM(2,II) = 0.0 EPNORM(3,II) = 0.0 EPNORM(4,II) = 1.0 GPNORM(1,II) = 0.0 GPNORM(2,II) = TEB(7) GPNORM(3,II) = TEB(8) GPNORM(4,II) = TEB(9) 440 CONTINUE GO TO 520 C C FOR QUAD - COMPUTE NODAL NORMALS C THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE TRANSFORMED C FROM THE BASIC COORD. SYSTEM TO THE ELEMENT COORD. SYSTEM C 500 IFLAG = 0 IF (MM .EQ. 4) CALL Q4NRMS (BGPDT,GPNORM,IORDER,IFLAG) IF (IFLAG .NE. 0) GO TO 700 C DO 510 I = 1,3 II = I + 1 IP = (I-1)*3 DO 510 J = 1,NNODE EPNORM(II,J) = 0.0 EGPDT (II,J) = 0.0 DO 510 K = 1,3 KK = IP + K K1 = K + 1 CC = BGPDT(K1,J) - GGU(K) - CENTE(K) EPNORM(II,J) = EPNORM(II,J) + TEB(KK)*GPNORM(K1,J) EGPDT (II,J) = EGPDT (II,J) + TEB(KK)*CC 510 CONTINUE C C SET AVGTHK TO ZERO C 520 AVGTHK = 0.0 DO 550 I = 1,NNODE IO = IORDER(I) IF (IO .GT. MMX) GO TO 550 C IF (GPTH(I)) 700,530,540 530 IF (ELTH .LE. 0.0) GO TO 700 GPTH(I) = ELTH 540 DGPTH(I) = GPTH(I) AVGTHK = AVGTHK + DGPTH(I)/NNODE 550 CONTINUE C DO 620 I = 1,NNODE IO = IORDER(I) IF (IO .LE. MMX) GO TO 620 IF (GPTH(I) .GT. 0.0) GO TO 610 IO1 = IO - MMX IO2 = IO1 + 1 IF (IO2 .EQ. MMX+1) IO2 = 1 DO 600 J = 1,MM JO = IORDER(J) IF (JO .EQ. IO1) IC1 = J IF (JO .EQ. IO2) IC2 = J 600 CONTINUE GPTH (I) = (GPTH(IC1)+GPTH(IC2))/2.0 610 DGPTH(I) = GPTH(I) AVGTHK = AVGTHK + DGPTH(I)/NNODE 620 CONTINUE RETURN C 700 RETURN 1 END ================================================ FILE: mis/shstns.f ================================================ SUBROUTINE SHSTNS (NUMPX,ELID,IGRID,Z12,EPSLNI,BENDNG,IDR) C C TO CALCULATE SHELL ELEMENT STRAINS FOR A 2-D FORMULATION BASE. C COMPOSITE LAYER STRAINS ARE NOT CALCULATED IN THIS ROUTINE. C C C INPUT : C NUMPX - NUMBER OF EVALUATION POINTS C ELID - ELEMENT ID C IGRID - ARRAY IF EXTERNAL GRID IDS C Z12 - EVALUATION POINT FIBER DISTANCES C EPSLNI - CORRECTED STRAINS AT EVALUATION POINTS C BENDNG - INDICATES THE PRESENCE OF BENDING BEHAVIOR C IDR - REORDERING ARRAY BASED ON EXTERNAL GRID POINT ID'S C /OUTREQ/- OUTPUT REQUEST LOGICAL FLAGS C C OUTPUT: C STRAINS ARE PLACED AT THE PROPER LOCATION IN /SDR2X7/. C C C THE STRAIN OUTPUT DATA BLOCK, UAI CODE C C ADDRESS DESCRIPTIONS C C 1 ELID C -------------------------------------------------------------- C 2 GRID POINT NUMBER OR 'CNTR' C 3 - 10 STRAINS FOR LOWER POINTS OR MEMBRANE STRAINS C 11 - 18 STRAINS FOR UPPER POINTS OR BENDING CURVATURES C ---------- ABOVE DATA REPEATED 3 TIMES C FOR GRID POINTS C C C THE STRAIN OUTPUT DATA BLOCK, AT ELEMENT CENTER ONLY, COSMIC C C ADDRESS DESCRIPTIONS C C 1 ELID C -------------------------------------------------------------- C 2 LOWER FIBER DISTANCE C 3 - 9 STRAINS FOR LOWER POINTS OR MEMBRANE STRAINS C 10 UPPER FIBER DISTANCE C 11 - 17 STRAINS FOR UPPER POINTS OR BENDING CURVATURES C ---------- ABOVE DATA REPEATED 3 TIMES C FOR GRID POINTS C C LOGICAL BENDNG,STSREQ,STNREQ,FORREQ,STRCUR, 1 GRIDS,VONMS,LAYER,GRIDSS,VONMSS,LAYERS,COSMIC INTEGER IGRID(1),NSTRIN(1),IDR(1),ELID CWKBI NCL93012 3/94 INTEGER NSTRES(1) REAL Z12(2,1),EPSLNI(6,1),EPSIL(3),EPSS,FIBER,EPSILP(4) COMMON /SDR2X7/ DUM71(100),STRES(100),FORSUL(200),STRIN(100) COMMON /OUTREQ/ STSREQ,STNREQ,FORREQ,STRCUR,GRIDS,VONMS,LAYER 1, GRIDSS,VONMSS,LAYERS EQUIVALENCE (NSTRIN(1),STRIN(1)) CWKBI NCL93012 3/94 EQUIVALENCE (NSTRES(1), STRES(1)) CWKBNB 7/94 SPR94004 LOGICAL OSTRAI COMMON / BLANK/ APP(2), SORT2, IDUM(2), COMPS, SKP(4), OSTRAI &, SK2(39), MIDVE CWKBNE 7/94 SPR94004 DATA COSMIC, EPSS / .TRUE., 1.0E-17 / C C C ELEMENT ENTER COMPUATION ONLY FOR COSMIC C I.E. CALLER SHOULD PASS 1 IN NUMPX FOR COSMIC, 4 FOR UAI C NUMP = NUMPX IF (COSMIC) NUMP = 1 C NSTRIN(1) = ELID C C START THE LOOP ON EVALUATION POINTS C NUMP1 = NUMP - 1 DO 250 INPLAN = 1,NUMP C ISTRIN = 1 IF (COSMIC) GO TO 140 C ISTRIN = (INPLAN-1)*17 + 2 NSTRIN(ISTRIN) = INPLAN - 1 IF (.NOT.GRIDSS .OR. INPLAN.LE.1) GO TO 130 DO 100 INPTMP = 1,NUMP1 IF (IDR(INPTMP) .EQ. IGRID(INPLAN)) GO TO 120 100 CONTINUE CALL ERRTRC ('SHSTNS ',100) 120 ISTRIN = INPTMP*17 + 2 NSTRIN(ISTRIN) = IGRID(INPLAN) 130 IF (INPLAN .EQ. 1) NSTRIN(ISTRIN) = IGRID(INPLAN) C C START THE LOOP ON FIBERS C 140 DO 240 IZ = 1,2 IF (.NOT.STRCUR) GO TO 190 C C IF STRAIN/CURVATURE IS REQUESTED, SIMPLY OUTPUT THE AVAILABLE C STRAINS. C STRIN(ISTRIN+1) = 0.0 DO 150 I = 1,3 EPSIL(I) = 0.0 150 CONTINUE CWKBI 7/94 SPR94004 IF ( OSTRAI .AND. IZ .EQ. 2 ) GO TO 171 IF (IZ .NE. 1) GO TO 170 DO 160 I = 1,3 EPSIL(I) = EPSLNI(I,INPLAN) 160 CONTINUE CWKBI 7/94 SPR94004 IF ( OSTRAI .AND. IZ .EQ. 1 ) GO TO 220 170 IF (.NOT.BENDNG .OR. IZ.NE.2) GO TO 190 CWKBI 7/94 SPR94004 171 CONTINUE DO 180 I = 1,3 EPSIL(I) = EPSLNI(I+3,INPLAN) 180 CONTINUE GO TO 220 C C IF FIBER STRAINS ARE REQUESTED, EVALUATE STRAINS AT THIS FIBER C DISTANCE C 190 FIBER = Z12(IZ,INPLAN) STRIN(ISTRIN+1) = FIBER DO 200 I = 1,3 EPSIL(I) = EPSLNI(I,INPLAN) - EPSLNI(I+3,INPLAN)*FIBER 200 CONTINUE C C CLEANUP AND SHIP CALCULATED STRAINS C 220 DO 230 ITS = 1,3 IF (ABS(EPSIL(ITS)) .LE. EPSS) EPSIL(ITS) = 0.0 CWKBR NCL93012 3/94 STRIN(ISTRIN+1+ITS) = EPSIL(ITS) STRES(ISTRIN+1+ITS) = EPSIL(ITS) 230 CONTINUE C C CALCULATE PRINCIPAL STRAINS C CALL SHPSTS (EPSIL(1),VONMSS,EPSILP) CWKBDB NCL93012 3/94 C STRIN(ISTRIN+5) = EPSILP(1) C STRIN(ISTRIN+6) = EPSILP(2) C STRIN(ISTRIN+7) = EPSILP(3) C STRIN(ISTRIN+8) = EPSILP(4) CWKBDE NCL93012 3/94 CWKBNB NCL93012 3/94 NSTRES( ISTRIN+1 ) = 0 IF ( IZ .EQ. 2 ) NSTRES( ISTRIN+1) = -1 STRES(ISTRIN+5) = EPSILP(1) STRES(ISTRIN+6) = EPSILP(2) STRES(ISTRIN+7) = EPSILP(3) STRES(ISTRIN+8) = EPSILP(4) * 2. CWKBNE NCL93012 3/94 C ISTRIN = ISTRIN + 8 240 CONTINUE 250 CONTINUE C RETURN END ================================================ FILE: mis/shstss.f ================================================ SUBROUTINE SHSTSS (NUMPX,ELID,IGRID,THIKNS,Z12,G,EPSCSI,STEMP, 1 TBAR,G2ALFB,BENDNG,IDR) C C TO CALCULATE SHELL ELEMENT STRESSES FOR A 2-D FORMULATION BASE. C COMPOSITE LAYER STRESSES ARE NOT CALCULATED IN THIS ROUTINE. C C C INPUT : C NUMPX - NUMBER OF EVALUATION POINTS C ELID - ELEMENT ID C IGRID - ARRAY IF EXTERNAL GRID IDS C THIKNS - EVALUATION POINT THICKNESSES C Z12 - EVALUATION POINT FIBER DISTANCES C G - 6X6 STRESS-STRAIN MATRIX C EPSCSI - CORRECTED STRAINS AT EVALUATION POINTS C STEMP - TEMPERATURE DATA FOR STRESS RECOVERY C TBAR - AVERAGE ELEMENT TEMPERATURE C G2ALFB - MATRIX USED IN RECORRECTING OF STRESSES C BENDNG - INDICATES THE PRESENCE OF BENDING BEHAVIOR C IDR - REORDERING ARRAY BASED ON EXTERNAL GRID POINT ID'S C /TMPDAT/- TEMPERATURE-RELATED LOGICAL FLAGS C /OUTREQ/- OUTPUT REQUEST LOGICAL FLAGS C C OUTPUT: C STRESSES ARE PLACED AT THE PROPER LOCATION IN /SDR2X7/. C C C THE STRESS OUTPUT DATA BLOCK (UAI CODE) C C ADDRESS DESCRIPTIONS C C 1 ELID C ------------------------------------------------------- C 2 'CNTR' C 3 LOWER FIBER DISTANCE C 4 - 10 STRESSES FOR LOWER POINTS AT ELEMENT CENTER POINT C 11 UPER FIBER DISTANCE C 12 - 18 STRESSES FOR UPPER POINTS AT ELEMENT CENTER POINT C 19 FIRST GRID POINT NUMBER C 20 - 35 REPEAT 3 TO 18 ABOVE FOR FIRST GRID POINT C 36 - 52 REPAET 19 TO 36 ABOVE FOR SECOND GRID POINT C 53 - 69 REPAET 19 TO 36 ABOVE FOR THIRD GRID POINT C C C THE STRESS OUTPUT DATA BLOCK AT ELEMENT CENTER ONLY, COSMIC C C ADDRESS DESCRIPTIONS C C 1 ELID C ------------------------------------------------------- C 2 LOWER FIBER DISTANCE C 3 - 9 STRESSES FOR LOWER POINTS AT ELEMENT CENTER POINT C 10 UPER FIBER DISTANCE C 11 - 17 STRESSES FOR UPPER POINTS AT ELEMENT CENTER POINT C C LOGICAL GRIDS, VONMS, LAYER, STRCUR,BENDNG,STSREQ,STNREQ, 1 GRIDSS,VONMSS,LAYERS,FORREQ,TEMPER,TEMPP1,TEMPP2, 2 COSMIC INTEGER IGRID(1),NSTRES(1),IDR(1),ELID REAL STEMP(2) REAL THIKNS(1),Z12(2,1),G(6,6),EPSCSI(6,1),G2ALFB(3,1), 1 S1MAT(3,3),S2MAT(3,3),SIGMA(3),EPSS,SIGMAP(4), 2 THICK,T3OV12,FIBER,CONST,TBAR,TPRIME,TSUBI COMMON /SDR2X7/ DUM71(100),STRES(100),FORSUL(200),STRIN(100) COMMON /TMPDAT/ TEMPER,TEMPP1,TEMPP2 COMMON /OUTREQ/ STSREQ,STNREQ,FORREQ,STRCUR,GRIDS,VONMS,LAYER 1, GRIDSS,VONMSS,LAYERS EQUIVALENCE (NSTRES(1),STRES(1)) DATA COSMIC, EPSS / .TRUE., 1.0E-11 / C C C ELEMENT CENTER POINT COMPUTAION ONLY FOR COSMIC, C I.E. THE CALLER SHOULD PASS 1 IN NUMPX FOR COSMIC, 4 FOR UAI C NUMP = NUMPX IF (COSMIC) NUMP = 1 C NSTRES(1) = ELID C C START THE LOOP ON EVALUATION POINTS C NUMP1 = NUMP - 1 DO 300 INPLAN = 1,NUMP THICK = THIKNS(INPLAN) T3OV12 = THICK*THICK*THICK/12.0 C ISTRES = 1 IF (COSMIC) GO TO 140 C ISTRES = (INPLAN-1)*17 + 2 NSTRES(ISTRES) = INPLAN - 1 IF (.NOT.GRIDS .OR. INPLAN.LE.1) GO TO 130 DO 100 INPTMP = 1,NUMP1 IF (IDR(INPTMP) .EQ. IGRID(INPLAN)) GO TO 120 100 CONTINUE CALL ERRTRC ('SHSTSS ',100) 120 ISTRES = INPTMP*17 + 2 NSTRES(ISTRES) = IGRID(INPLAN) 130 IF (INPLAN .EQ. 1) NSTRES(ISTRES) = IGRID(INPLAN) C C C START THE LOOP ON FIBERS C 140 DO 280 IZ = 1,2 FIBER = Z12(IZ,INPLAN) STRES(ISTRES+1) = FIBER CONST = 12.0*FIBER/THICK C C CREATE [S1] AND [S2] C DO 150 I = 1,3 DO 150 J = 1,3 S1MAT(I,J) = G(I ,J ) - CONST*G(I,J+3) S2MAT(I,J) = G(I+3,J+3) - CONST*G(I,J+3) 150 CONTINUE C C EVALUATE STRESSES AT THIS FIBER DISTANCE C DO 170 I = 1,3 SIGMA(I) = 0.0 DO 160 J = 1,3 SIGMA(I) = SIGMA(I) + S1MAT(I,J)*EPSCSI(J ,INPLAN) 1 - FIBER * S2MAT(I,J)*EPSCSI(J+3,INPLAN) 160 CONTINUE 170 CONTINUE C C IF TEMPERATURES ARE PRESENT, RECORRECT STRESSES FOR THERMAL C STRESSES RESULTING FROM TEMPERATURE VALUES AT FIBER DISTANCES. C IF (.NOT.TEMPER .OR. .NOT.BENDNG) GO TO 250 IF (.NOT.TEMPP1) GO TO 180 TPRIME = STEMP(2 ) TSUBI = STEMP(2+IZ) IF (ABS(TSUBI) .LT. EPSS) GO TO 250 TSUBI = TSUBI - TPRIME*FIBER GO TO 220 C 180 IF (.NOT.TEMPP2) GO TO 250 TSUBI = STEMP(4+IZ) IF (ABS(TSUBI) .LT. EPSS) GO TO 250 DO 200 IST = 1,3 SIGMA(IST) = SIGMA(IST) - STEMP(IST+1)*FIBER/T3OV12 200 CONTINUE C 220 TSUBI = TSUBI - TBAR DO 230 ITS = 1,3 SIGMA(ITS) = SIGMA(ITS) - TSUBI*G2ALFB(ITS,INPLAN) 230 CONTINUE C C CLEANUP AND SHIP CORRECTED STRESSES C 250 DO 260 ITS = 1,3 IF (ABS(SIGMA(ITS)) .LE. EPSS) SIGMA(ITS) = 0.0 STRES(ISTRES+1+ITS) = SIGMA(ITS) 260 CONTINUE C C CALCULATE PRINCIPAL STRESSES C CALL SHPSTS (SIGMA,VONMS,SIGMAP) STRES(ISTRES+5) = SIGMAP(1) STRES(ISTRES+6) = SIGMAP(2) STRES(ISTRES+7) = SIGMAP(3) STRES(ISTRES+8) = SIGMAP(4) C ISTRES = ISTRES + 8 280 CONTINUE 300 CONTINUE C RETURN END ================================================ FILE: mis/shstts.f ================================================ SUBROUTINE SHSTTS (TAB,UAB,VAB) C C TO CREATE STRESS TENSOR TRANSFORMATION MATRICES FROM AN ORTHOGONAL C TRANSFORMATION FOR SHELL ELEMENTS. C C INPUT : C TAB - ORTHOGONAL INPLANE ROTATION TRANSFORMATION C OUTPUT: C UAB - TENSOR TRANSFORMATION FOR NORMAL AND INPLANE SHEAR C COMPONENTS C VAB - TENSOR TRANSFORMATION FOR OUT-OF-PLANE SHEAR C C USAGE: C THE INPUT IS ASSUMED TO BE ROW-LOADED. C OUTPUTS ARE CREATED ROW-LOADED. C DEFINING: C [S] AS A 2-D STRESS VECTOR; C [E] AS A 2-D STRAIN VECTOR; C [Q] AS A 2-D SHEAR FORCE VECTOR; C [G] AS A 2-D STRESS/FORCE-STRAIN RELATION; AND C [ALPHA] AS A VECTOR OF THERMAL EXPANSION COEFFICIENTS, C C THEN THE FOLLOWING RELATIONSHIPS ARE TRUE: C C T T C [S] = [UAB] [S] [G] = [UAB] [G] [UAB] C A B A B C C T C [Q] = [VAB] [Q] C A B C C IF [TBA] IS INPUT, THE OUTPUT WILL BE: C C -1 -1 T C [UAB] = [UBA], AND [VAB] = [VAB] = [VBA] C C WHICH MAY BE USED IN THE FOLLOWING: C C [E] = [UBA] [E] [ALPHA] = [UBA] [ALPHA] C A B A B C C [Q] = [VBA][Q] C A B C C REAL TAB(9),UAB(9),VAB(4) C UAB(1) = TAB(1)*TAB(1) UAB(2) = TAB(4)*TAB(4) UAB(3) = TAB(1)*TAB(4) UAB(4) = TAB(2)*TAB(2) UAB(5) = TAB(5)*TAB(5) UAB(6) = TAB(2)*TAB(5) UAB(7) = TAB(1)*TAB(2)*2.0 UAB(8) = TAB(4)*TAB(5)*2.0 UAB(9) = TAB(1)*TAB(5) + TAB(2)*TAB(4) C VAB(1) = TAB(5)*TAB(9) VAB(2) = TAB(2)*TAB(9) VAB(3) = TAB(4)*TAB(9) VAB(4) = TAB(1)*TAB(9) C RETURN END ================================================ FILE: mis/shtrmd.f ================================================ SUBROUTINE SHTRMD (*,ELID,MM,NNODE,XI,ETA,GPTH,EPNORM,EGPDT, 1 IORDER,MMN,DETERM,TH,SHP,TIE,BTERMS) C C TO CONSTRUCT THE JACOBIAN, SET UP INTEGRATION POINT COORD. C SYSTEM, AND CALCULATE [B] TERMS FOR THE ISOPARAMETRIC QUADRATIC C QUAD8 AND TRIA6 SHELL ELEMENTS C ===== ===== C C ********************************************************* C * * C * PRESENTLY COSMIC/NASTRAN DOES NOT USE THIS ROUTINE * C * * C ********************************************************* C C INPUT : C ELID - ELEMENT ID C MM - MAXIMUM NO. OF NODES FOR THIS TYPE ELEMENT C NNODE - THE NO. OF PRESENT NODES C XI C ETA - INTEGERATION POINT COORDINATES C GPTH - GRID POINT THICKNESSES C EPNORM - GRID POINT NORMALS IN ELEMENT COORD. SYSTEM C EGPDT - GRID POINT DATA IN ELEMENT COORD. SYSTEM C IORDER - REORDERING ARRAY C MMN - MISSING MIDSIDE NODE INDICATOR C OUTPUT: C DETERM - DETERMINANT OF JACOBIAN C TH - THICKNESS AT THIS INTEGRATION POINT C SHP - ARRAY OF SHAPE FUNCTIONS C TIE - TRANSFORMATION BETWEEN INTEG. PT. AND ELEMENT C COORD. SYSTEMS C BTERMS - TERMS OF [B] (DERIVATIVES OF SHAPE FUNCTIONS C WITH RESPECT TO XYZ OF ELEMENT COORD. SYSTEM) C LOGICAL BADJAC INTEGER IORDER(1),MMN(1),ELID DOUBLE PRECISION EGPDT(4,1),EPNORM(4,1),DETERM,XI,ETA,HZTA,DETJ, 1 SHP(10),JACOB(3,3),DSHPX(10),DSHPE(10),DSHP(16), 2 TSHP(8),TDSHP(16),BTERMS(1),PSITRN(9),TIE(9), 3 GPTH(1),TH COMMON /Q8T6DT/ DETJ,HZTA,PSITRN,NN1,BADJAC,NN2 C C C DOUBLE PRECISION VERSION C IF (MM .EQ. 8) GO TO 10 IF (MM .EQ. 6) GO TO 20 GO TO 80 C C QUAD8 VERSION C 10 CALL Q8SHPD (MMN,XI,ETA,SHP,DSHP) GO TO 30 C C TRIA6 VERSION C 20 CALL T6SHPD (XI,ETA,MMN,SHP,DSHPX,DSHPE) DO 25 I = 1,MM DSHP(I ) = DSHPX(I) 25 DSHP(I+MM) = DSHPE(I) C 30 DO 40 I = 1,MM TSHP (I) = SHP (I) TDSHP(I) = DSHP(I) 40 TDSHP(I+MM) = DSHP(I+MM) DO 45 I = 1,MM IO = IORDER(I) SHP (I) = TSHP(IO) DSHP(I) = TDSHP(IO) 45 DSHP(I+MM) = TDSHP(IO+MM) C TH = 0.0D0 DO 50 I = 1,NNODE 50 TH = TH + GPTH(I)*SHP(I) C NN1 = NNODE NN2 = MM HZTA = 0.0D0 CALL JACOBD (ELID,SHP,DSHP,GPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 80 C DETERM = DETJ DO 60 I = 1,9 60 TIE(I) = PSITRN(I) C IJ = 1 DO 70 I = 1,2 DO 70 J = 1,NNODE BTERMS(IJ) = JACOB(I,1)*DSHP(J) + JACOB(I,2)*DSHP(J+MM) 70 IJ = IJ + 1 RETURN C 80 RETURN 1 C C ENTRY SHTRMS (*,ELID,MM,NNODE,XI,ETA,GPTH,EPNORM,EGPDT, 1 IORDER,MMN,DETERM,TH,SHP,TIE,BTERMS) C ======================================================= C C SINGLE PRELCISION VERSION C GO TO 80 END ================================================ FILE: mis/shxtrs.f ================================================ SUBROUTINE SHXTRS (NROW,NCOL,ARRAY) C C TO EXTRAPOLATE VALUES IN ARRAY FROM A SET OF EVALUATION POINTS TO C THE GRID POINTS OF SPECIFIC SHELL ELEMENTS. C THE EXTRAPOLATION IS IN TWO DIMENSIONS. C C INPUT : C NROW - SIZE OF THE SET OF VALUES C NCOL - NUMBER OF EVALUATION POINTS C ARRAY - ARRAY OF DATA TO BE EXTRAPOLATED C C OUTPUT: C ARRAY - ARRAY OF EXTRAPOLATED DATA C C LOGICAL TRIA REAL ARRAY(NROW,1),TEMP(4,4),SHP(4),TPOINT(2,3),QPOINT(2,4), 1 XSI,ETA C C C DATA TPOINT / 0.0, 0.0, 1.0, 0.0, 0.0, 1.0 / DATA QPOINT /-1.0, -1.0, 1.0, -1.0, 1.0, 1.0, -1.0, 1.0 / C C INITIALIZE C TRIA = NCOL .EQ. 3 C DO 10 I = 1,NROW DO 10 J = 1,NCOL TEMP(I,J) = 0.0 10 CONTINUE C C BEGIN LOOP ON DESTINATION POINTS C DO 70 I = 1,NCOL C C EVALUATE PSEUDO-SHAPE FUNCTIONS C IF (.NOT.TRIA) GO TO 30 C XSI = TPOINT(1,I) ETA = TPOINT(2,I) SHP(1) = 1.66666667 - 2.0*XSI - 2.0*ETA SHP(2) = 2.0*XSI - 0.33333333 SHP(3) = 2.0*ETA - 0.33333333 GO TO 40 C 30 XSI = QPOINT(1,I) ETA = QPOINT(2,I) CONST = 0.577350269 SHP(1) = 0.75*(CONST-XSI)*(CONST-ETA) SHP(2) = 0.75*(CONST-XSI)*(CONST+ETA) SHP(3) = 0.75*(CONST+XSI)*(CONST-ETA) SHP(4) = 0.75*(CONST+XSI)*(CONST+ETA) C C EXTRAPOLATE C 40 DO 50 J = 1,NROW DO 50 K = 1,NCOL TEMP(J,I) = TEMP(J,I) + SHP(K)*ARRAY(J,K) 50 CONTINUE C 70 CONTINUE C C COPY THE EXTRAPOLATED DATA BACK INTO ARRAY C DO 90 J = 1,NCOL DO 90 I = 1,NROW ARRAY(I,J) = TEMP(I,J) 90 CONTINUE C RETURN END ================================================ FILE: mis/sihex1.f ================================================ SUBROUTINE SIHEX1 (TYPE,STRSPT,NIP) C C PHASE 1 STRESS ROUTINE FOR IHEX1, IHEX2, AND IHEX3 ELEMENTS C C TYPE = 1 IHEX1 C TYPE = 2 IHEX2 C TYPE = 3 IHEX3 C C THE EST ENTRIES ARE C C NAME ---------INDEX--------- DESCRIPTION C IHEX1 IHEX2 IHEX3 C C EID 1 1 1 ELEMENT ID NO. C SIL 2-9 2-21 2-33 SCALAR INDEX LIST C MID 10 22 34 MATERIAL ID NO. C CID 11 23 35 MATERIAL COORD. SYSTEM ID NO. C NIP 12 24 36 NO. INTEGRATION POINTS PER EDGE C MAXAR 13 25 37 MAX ASPECT RATIO C ALFA 14 26 38 MAX ANGLE FOR NORMALS C BETA 15 27 39 MAX ANGLE FOR MIDSIDE POINTS C BGPDT 16-47 28-107 40-167 BASIC GRID POINT DATA C GPT 48-55 108-127 168-199 GRID POINT TEMPERATURES C C PHIOUT (ESTA) CONTAINS THE FOLLOWING WHERE NGP IS THE NUMBER C OF GRID POINTS C C ELEMENT ID C NGP SIL NUMBERS C NGP VALUES OF THE SHAPE FUNCTIONS AT THIS STRESS POINT C REFERENCE TEMPERATURE C 6 THERMAL STRESS COEFFICIENTS C NGP, 6 BY 3 MATRICES, RELATING STRESS TO DISPLACEMENTS AT THIS C STRESS POINT (STORED ROW-WISE) C LOGICAL TDEP ,ANIS ,RECT ,MTDEP INTEGER CID ,BGPID ,TYPE ,IEST(1) , 1 EID ,IPHIO(1) ,STRSPT ,ITAB(3,64) , 2 IB(46) REAL NU ,JACOB ,DSHPB(3,32),BXYZ(3) , 1 GAUSS(8) ,S(4) ,GMAT(36) ,STORE(18) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /SYSTEM/ SYSBUF ,IPRNT ,JUNK(7) ,MTEMP COMMON /MATIN / MID ,INFLAG ,TEMP COMMON /MATOUT/ E ,G ,NU ,RHO , 1 ALPHA ,TREF ,SPACE(19) ,MTDEP COMMON /MATISO/ BUFM6(46) COMMON /SDR2X5/ EST(100) ,PHIOUT(649) COMMON /SDR2X6/ CID ,BGPID(32) ,EID ,BGPDT(3,32), 1 GPT(32) ,JACOB(3,3) ,DSHP(3,32) ,DETJ , 2 D ,E1 ,E2 ,E3 , 3 T(3,3) ,NGP ,SGLOB(18) EQUIVALENCE (EST(1),IEST(1),DSHPB(1,1)), 1 (PHIOUT(1),IPHIO(1)),(EST(97),IDXYZ), 2 (EST(98),BXYZ(1)) ,(IB(1),BUFM6(1)) DATA GAUSS/ .57735027, .55555556, .77459667, .88888889 , 1 .34785485, .86113631, .65214515, .33998104 / C IF (STRSPT .EQ. 0) STRSPT = STRSPT + 1 IF (STRSPT .GT. 1) GO TO 505 C C MOVE EST DATA INTO /SDR2X6/, /MATIN/, AND PHIOUT C EID = IEST(1) NGP = 12*TYPE - 4 MID = IEST(NGP+2) CID = IEST(NGP+3) NIP = IEST(NGP+4) IF (NIP .EQ. 0) NIP = TYPE/2 + 2 C C FOR STRESS COMPUTATION, SET NUMBER OF STRESS POINTS TO 2 C NUMBER OF GAUSS POINTS) TO CUT DOWN ON AMOUNT OF INFO ON ESTA C NIP = 2 L = 0 DO 5 I = 1,NIP DO 5 J = 1,NIP DO 5 K = 1,NIP L = L + 1 ITAB(1,L) = I ITAB(2,L) = J ITAB(3,L) = K 5 CONTINUE DO 10 I = 1,NGP GPT( I) = EST (5*NGP+7+I) BGPID(I) = IEST(NGP+4+4*I) DO 10 J = 1,3 BGPDT(J,I) = EST(NGP+4+4*I+J) 10 CONTINUE PHIOUT(1) = EST(1) DO 20 I = 1,NGP 20 PHIOUT(I+1) = EST(I+1) C C FETCH MATERIAL PROPERTIES C C CHANGE FOR GENERAL ANISOTROPIC MATERIAL C C TEST FOR ANISOTROPIC MATERIAL C ANIS = .FALSE. INFLAG = 10 C C TEST FOR RECTANGULAR COORDINATE SYSTEM IN WHICH ANISOTROPIC C MATERIAL IS DEFINED C RECT = .TRUE. TDEP = .TRUE. C DO 60 I = 2,NGP IF (GPT(I) .NE. GPT(1)) GO TO 70 60 CONTINUE TDEP = .FALSE. 70 TEMP = GPT(1) CALL MAT (EID) IF (IB(46) .EQ. 6) ANIS = .TRUE. TREF = BUFM6(44) IF (.NOT.MTDEP) TDEP = .FALSE. C C IF ISOTROPIC, TEMPERATURE INDEPENDENT MATERIAL, COMPUTE CONSTANTS C IF (TDEP) GO TO 500 IF (ANIS) GO TO 490 IF (IB(46) .NE. 0) GO TO 480 WRITE (IPRNT,470) UWM,MID,EID 470 FORMAT (A25,' 4005. AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED', 1 ' UNDER MATERIAL ID =',I10,' FOR ELEMENT ID =',I10, /32X, 2 'NU = 0.333 ASSUMED FOR STRESS COMPUTATION') E1 = 1.5*E E2 = 0.75*E E3 = 0.375*E GO TO 490 480 E1 = BUFM6(1) E2 = BUFM6(2) E3 = BUFM6(22) ALPHA = BUFM6(38) GO TO 500 C C IF MATERIAL IS ANISOTROPIC, DEFINED IN A RECTANGULAR C COORDINATE SYSTEM, AND NOT TEMPERATURE DEPENDENT, TRANSFORM C IT TO THE BASIC SYSTEM. C 490 IF (.NOT.RECT) GO TO 500 C C ADD CODE TO TRANSFORM GENERAL ANISOTROPIC MATERIAL C TO BASIC COORDINATE SYSTEM HERE. C DO 491 IJK = 1,36 491 GMAT(IJK) = BUFM6(IJK) C C INITIALIZATION TO FIND GAUSS POINT COORDINATES C 505 CONTINUE 500 NIPM1 = NIP - 1 GO TO (510,520,530), NIPM1 510 S(1) = GAUSS(1) S(2) =-GAUSS(1) GO TO 540 520 S(1) = GAUSS(3) S(2) = 0. S(3) =-GAUSS(3) GO TO 540 530 S(1) = GAUSS(6) S(2) = GAUSS(8) S(3) =-GAUSS(8) S(4) =-GAUSS(6) 540 IF (STRSPT .EQ. NIP**3+1) GO TO 541 L = ITAB(1,STRSPT) X = S(L) L = ITAB(2,STRSPT) Y = S(L) L = ITAB(3,STRSPT) Z = S(L) GO TO 542 541 X = 0. Y = 0. Z = 0. 542 CONTINUE C C GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE C CALL IHEXSS (TYPE,PHIOUT(NGP+2),DSHP,JACOB,DETJ,EID,X,Y,Z,BGPDT) IF (DETJ .NE. 0.0) GO TO 605 C C FALL HERE IF JACOBIAN MATRIX SINGULAR (BAD ELEMENT) C J = NGP*19 + 7 DO 600 I = 1,J 600 PHIOUT(NGP+1+I) = 0.0 RETURN C C COMPUTE STRAIN-DISPLACEMENT RELATIONS C C REVERSE CALLING SEQUENCE SINCE MATRICES ARE COLUMN STORED C 605 CALL GMMATS (DSHP,NGP,3,0,JACOB,3,3,0,DSHPB) C C IF MATERIAL IS TEMPERATURE DEPENDENT, MUST COMPUTE TEMPERATURE C AT THIS STRESS POINT AND FETCH MATERIAL PROPERTIES AGAIN C IF (.NOT.TDEP) GO TO 620 TEMP = 0.0 DO 610 J = 1,NGP 610 TEMP = TEMP + GPT(J)*PHIOUT(NGP+1+J) CALL MAT (EID) IF (ANIS) GO TO 630 IF (IB(46) .NE. 0) GO TO 615 WRITE (IPRNT,470) UWM,MID,EID E1 = 1.5*E E2 = 0.75*E E3 = 0.375*E GO TO 640 615 E1 = BUFM6(1) E2 = BUFM6(2) E3 = BUFM6(22) ALPHA = BUFM6(38) GO TO 640 C C IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN RECTANGJLAR C COORDINATE SYSTEM, TRANSFORM IT TO BASIC COORDINATE SYSTEM AT C THIS STRESS POINT. C C C IN THIS VERSION, ANISOTROPIC PROPERTIES MUST BE RECTANGULAR C JUST STORE G MATRIX C =========================================================== C C THIS CODE MUST BE COMPLETED WHEN GENERAL ANISOTROPIC MATERIAL IS C ADDED. C 620 IF (.NOT.ANIS) GO TO 640 630 CONTINUE DO 635 IJK = 1,36 635 GMAT(IJK) = BUFM6(IJK) C C INSERT GLOBAL TO BASIC TRANSFORMATION OPERATIONS HERE FOR C ANISOTROPIC MATERIAL. C C MATERIAL HAS BEEN EVALUATED AT THIS STRESS POINT WHEN GET TO HERE C C TEMPERATURE TO STRESS VECTOR C 640 PHIOUT(2*NGP+2) = TREF IF (ANIS) GO TO 660 C C ISOTROPIC CASE C DO 650 J = 1,3 PHIOUT(2*NGP+2+J) = -ALPHA*(E1+2.0*E2) PHIOUT(2*NGP+5+J) = 0.0 650 CONTINUE GO TO 670 C C ANISOTROPIC CASE C C ADD CODE WHEN ANISOTROPIC MATERIAL BECOMES AVAILABLE C 660 CONTINUE CALL GMMATS (GMAT,6,6,0,BUFM6(38),6,1,0,PHIOUT(2*NGP+3)) DO 661 IJK = 1,6 IS = 2*NGP + 2 + IJK PHIOUT(IS) = -PHIOUT(IS) 661 CONTINUE C C DISPLACEMENT TO STRESS MATRICES C 670 DO 840 I = 1,NGP IS = 2*NGP + 8 + 18*(I-1) C C ROW-STORED C IF (ANIS) GO TO 680 C C ISOTROPIC CASE C PHIOUT(IS+ 1) = E1*DSHPB(1,I) PHIOUT(IS+ 2) = E2*DSHPB(2,I) PHIOUT(IS+ 3) = E2*DSHPB(3,I) PHIOUT(IS+ 4) = E2*DSHPB(1,I) PHIOUT(IS+ 5) = E1*DSHPB(2,I) PHIOUT(IS+ 6) = E2*DSHPB(3,I) PHIOUT(IS+ 7) = E2*DSHPB(1,I) PHIOUT(IS+ 8) = E2*DSHPB(2,I) PHIOUT(IS+ 9) = E1*DSHPB(3,I) PHIOUT(IS+10) = E3*DSHPB(2,I) PHIOUT(IS+11) = E3*DSHPB(1,I) PHIOUT(IS+14) = E3*DSHPB(3,I) PHIOUT(IS+15) = E3*DSHPB(2,I) PHIOUT(IS+16) = E3*DSHPB(3,I) PHIOUT(IS+18) = E3*DSHPB(1,I) PHIOUT(IS+12) = 0.0 PHIOUT(IS+13) = 0.0 PHIOUT(IS+17) = 0.0 GO TO 690 C C ANISOTROPIC CASE C C ADD CODE WHEN GENERAL ANISOTROPIC MATERIAL BECOMES AVAILABLE C 680 CONTINUE DO 681 IJK = 1,18 681 STORE(IJK) = 0. STORE( 1) = DSHPB(1,I) STORE( 5) = DSHPB(2,I) STORE( 9) = DSHPB(3,I) STORE(10) = DSHPB(2,I) STORE(11) = DSHPB(1,I) STORE(14) = DSHPB(3,I) STORE(15) = DSHPB(2,I) STORE(16) = DSHPB(3,I) STORE(18) = DSHPB(1,I) C CALL GMMATS (GMAT(1),6,6,0,STORE(1),6,3,0,PHIOUT(IS+1)) C C POST-MULTIPLY BY GLOBAL TO BASIC TRANSFORMATION MATRIX, C IF NECESSARY C 690 IF (BGPID(I) .EQ. 0) GO TO 840 IDXYZ = BGPID(I) DO 820 K = 1,3 820 BXYZ(K) = BGPDT(K,I) C C FETCH TRANSFORMATION AND USE IT C CALL TRANSS (IDXYZ,T) CALL GMMATS (PHIOUT(IS+1),6,3,0,T,3,3,0,SGLOB) DO 830 J = 1,18 830 PHIOUT(IS+J) = SGLOB(J) 840 CONTINUE IPHIO(20*NGP+9) = NIP NWDNOW = 20*NGP + 9 NWDISO = 649 - NWDNOW IF (NWDISO .EQ. 0) RETURN DO 850 I = 1,NWDISO ISUB = NWDNOW + I 850 PHIOUT(ISUB) = 0. RETURN END ================================================ FILE: mis/sihex2.f ================================================ SUBROUTINE SIHEX2 (TYPE,GPT,NIP,STRSPT,ISTORE) C C PHASE 2 STRESS DATA RECOVERY FOR IHEX1, IHEX2, AND IHEX3 ELEMENTS C C TYPE = 1 IHEX1 C TYPE = 2 IHEX2 C TYPE = 3 IHEX3 C C*********************************************************************** C C ARRAY ESTA CONTAINS THE FOLLOWING WHERE NGP IS THE NUMBER OF C GRID POINTS C C ELEMENT ID C NGP SIL NUMBERS C NGP VALUES OF THE SHAPE FUNCTIONS AT THIS STRESS POINT C REFERENCE TEMPERATURE C 6 THERMAL STRESS COEFFICIENTS C NGP 6 BY 3 MATRICES RELATING STRESS TO DISPLACEMENTS C AT THIS STRESS POINT (STORED ROW-WISE) C C PHIOUT STARTS AT ESTA(101) C C*********************************************************************** C C INTEGER TYPE ,IESTA(1) ,ISTRS(11) ,STRSPT , 1 SIL ,OLDEID ,EQEXIN ,EXTRNL(32) , 2 EQU ,IFRVEC(11) ,EJECT ,ISHD(7) , 3 TYP(4) ,DUMMY C REAL GPT(1) ,STRESS(10) ,SIGP(3) ,SMAT(3,3) , 1 CSIG(6) ,FRLAST(2) REAL STORE(384) ,SIGS(126) ,CSIGS(126) DIMENSION EX20G3(567) ,EX2031(132),EX2032(127),EX2033(127), 1 EX2034(127) ,EX2035(54) DIMENSION EX8G3(243) ,EX8G31(132),EX8G32(111) DIMENSION EX20G2(168) ,EX2021(152),EX2022(16) DIMENSION EX8G2(72) DIMENSION EX8G4(576) ,EX8G41(152),EX8G42(152),EX8G43(152), 1 EX8G44(120) DIMENSION EX20G4(1344),EX2041(152),EX2042(152),EX2043(152), 1 EX2044(152) ,EX2045(152),EX2046(152),EX2047(152), 2 EX2048(152) ,EX2049(128) C COMMON /SYSTEM/ IBFSZ ,NOUT ,IDM(9) ,LINE C COMMON /ZZZZZZ/ Z(1) C COMMON /SDR2X2/ BBB(4) ,EQEXIN C COMMON /SDR2X4/ CCC(35),IVEC ,IVECN , 1 JTEMP ,DDD(13) ,KTYPE ,SKIP(56) , 2 ISOPL C COMMON /SDR2X7/ ESTA(649) C COMMON /SDR2X8/ IEND ,DUMMY(32) ,SIG(6) , 2 STRSPX ,NGP ,LEQX , 3 NEQX ,IPTS ,MXLEQ , 4 L ,I ,J , 5 SIL ,KLO ,KHI , 6 K ,KX ,TEMP , 7 SA ,SB ,SC , 8 SN ,SO ,P , 9 Q ,R ,A , A B ,PHI ,X , B COSPHI ,S ,T , C V ,DCOS(3,3) ,RM , D RX ,RY ,RZ , E RXY ,RYZ ,RZX , F ITRL(7),EQU(200) COMMON /SDR2X9/ NCHK ,ISUB ,ILD , 1 FRTMEI(2) ,TWOTOP , 2 FNCHK C COMMON /SDRETT/ DUM(9) ,OLDEID C C EQUIVALENCE (IESTA(1),ESTA(1)) ,(STRESS(1),ISTRS(1),ESTA(101)) C EQUIVALENCE (SIGP(1), SA) ,(SIG(1) , SX), 1 (SIG(2) , SY) ,(SIG(3) , SZ), 2 (SIG(4) ,SXY) ,(SIG(5) ,SYZ), 3 (SIG(6) ,SZX) ,(CSIG(1),IFRVEC(6)) C EQUIVALENCE (LSUB,ISHD(1)) ,(LLD ,ISHD(2)), 3 (FRLAST(1),ISHD(6)) EQUIVALENCE (EX20G3( 1),EX2031(1)),(EX20G3(133),EX2032(1)), 1 (EX20G3(260),EX2033(1)),(EX20G3(387),EX2034(1)), 2 (EX20G3(514),EX2035(1)) EQUIVALENCE (EX8G3( 1),EX8G31(1)),(EX8G3( 133),EX8G32(1)) EQUIVALENCE (EX20G2( 1),EX2021(1)),(EX20G2(153),EX2022(1)) EQUIVALENCE (EX8G4( 1),EX8G41(1)),(EX8G4( 153),EX8G42(1)), 1 (EX8G4( 305),EX8G43(1)),(EX8G4( 457),EX8G44(1)) EQUIVALENCE (EX20G4( 1),EX2041(1)),(EX20G4(153),EX2042(1)), 1 (EX20G4(305),EX2043(1)),(EX20G4(457),EX2044(1)), 2 (EX20G4(609),EX2045(1)),(EX20G4(761),EX2046(1)), 3 (EX20G4(913),EX2047(1)),(EX20G4(1065),EX2048(1)), 4 (EX20G4(1217),EX2049(1)) DATA EX8G2/ * -.0490, .1830, .1830, -.6830, .1830, -.6830, -.6830, 2.5490, * .1830, -.6830, -.6830, 2.5490, -.0490, .1830, .1830, -.6830, * -.6830, 2.5490, .1830, -.6830, .1830, -.6830, -.0490, .1830, * .1830, -.6830, -.0490, .1830, -.6830, 2.5490, .1830, -.6830, * .1830, -.0490, -.6830, .1830, -.6830, .1830, 2.5490, -.6830, * -.6830, .1830, 2.5490, -.6830, .1830, -.0490, -.6830, .1830, * 2.5490, -.6830, -.6830, .1830, -.6830, .1830, .1830, -.0490, * -.6830, .1830, .1830, -.0490, 2.5490, -.6830, -.6830, .1830, * .1250, .1250, .1250, .1250, .1250, .1250, .1250, .1250/ DATA EX8G31/ * .0066, -.0235, .0522, -.0235, .0835, -.1852, .0522, -.1852, * .4108, -.0235, .0835, -.1852, .0835, -.2963, .6573, -.1852, * .6573,-1.4580, .0522, -.1852, .4108, -.1852, .6573,-1.4580, * .4108,-1.4580, 3.2341, * .0522, -.1852, .4108, -.1852, .6573,-1.4580, .4108,-1.4580, * 3.2341, -.0235, .0835, -.1852, .0835, -.2963, .6573, -.1852, * .6573,-1.4580, .0066, -.0235, .0522, -.0235, .0835, -.1852, * .0522, -.1852, .4108, * .4108,-1.4580, 3.2341, -.1852, .6573,-1.4580, .0522, -.1852, * .4108, -.1852, .6573,-1.4580, .0835, -.2963, .6573, -.0235, * .0835, -.1852, .0522, -.1852, .4108, -.0235, .0835, -.1852, * .0066, -.0235, .0522, * .0522, -.1852, .4108, -.0235, .0835, -.1852, .0066, -.0235, * .0522, -.1852, .6573,-1.4580, .0835, -.2963, .6573, -.0235, * .0835, -.1852, .4108,-1.4580, 3.2341, -.1852, .6573,-1.4580, * .0522, -.1852, .4108, * .0522, -.0235, .0066, -.1852, .0835, -.0235, .4108, -.1852, * .0522, -.1852, .0835, -.0235, .6573, -.2963, .0835,-1.4580, * .6573, -.1852, .4108, -.1852, .0522,-1.4580, .6573, -.1852/ DATA EX8G32/ * 3.2341,-1.4580, .4108, * .4108, -.1852, .0522,-1.4580, .6573, -.1852, 3.2341,-1.4580, * .4108, -.1852, .0835, -.0235, .6573, -.2963, .0835,-1.4580, * .6573, -.1852, .0522, -.0235, .0066, -.1852, .0835, -.0235, * .4108, -.1852, .0522, * 3.2341,-1.4580, .4108,-1.4580, .6573, -.1852, .4108, -.1852, * .0522,-1.4580, .6573, -.1852, .6573, -.2963, .0835, -.1852, * .0835, -.0235, .4108, -.1852, .0522, -.1852, .0835, -.0235, * .0522, -.0235, .0066, * .4108, -.1852, .0522, -.1852, .0835, -.0235, .0522, -.0235, * .0066,-1.4580, .6573, -.1852, .6573, -.2963, .0835, -.1852, * .0835, -.0235, 3.2341,-1.4580, .4108,-1.4580, .6573, -.1852, * .4108, -.1852, .0522, * -.0000, .0000, .0000, .0000, .0000, .0000, .0000, -.0000, * -.0000, 0.0000, .0000, .0000, .0000, 1.0000, .0000, -.0000, * -.0000, -.0000, .0000, .0000, -.0000, -.0000, .0000, .0000, * -.0000, .0000, .0000/ DATA EX8G41/ * -.0015, .0052, -.0106, .0198, .0052, -.0183, .0371, -.0697, * -.0106, .0371, -.0754, .1415, .0198, -.0697, .1415, -.2656, * .0052, -.0183, .0371, -.0697, -.0183, .0644, -.1307, .2452, * .0371, -.1307, .2653, -.4978, -.0697, .2452, -.4978, .9342, * -.0106, .0371, -.0754, .1415, .0371, -.1307, .2653, -.4978, * -.0754, .2653, -.5386, 1.0107, .1415, -.4978, 1.0107,-1.8966, * .0198, -.0697, .1415, -.2656, -.0697, .2452, -.4978, .9342, * .1415, -.4978, 1.0107,-1.8966, -.2656, .9342,-1.8966, 3.5591, * .0198, -.0697, .1415, -.2656, -.0697, .2452, -.4978, .9342, * .1415, -.4978, 1.0107,-1.8966, -.2656, .9342,-1.8966, 3.5591, * -.0106, .0371, -.0754, .1415, .0371, -.1307, .2653, -.4978, * -.0754, .2653, -.5386, 1.0107, .1415, -.4978, 1.0107,-1.8966, * .0052, -.0183, .0371, -.0697, -.0183, .0644, -.1307, .2452, * .0371, -.1307, .2653, -.4978, -.0697, .2452, -.4978, .9342, * -.0015, .0052, -.0106, .0198, .0052, -.0183, .0371, -.0697, * -.0106, .0371, -.0754, .1415, .0198, -.0697, .1415, -.2656, * -.2656, .9342,-1.8966, 3.5591, .1415, -.4978, 1.0107,-1.8966, * -.0697, .2452, -.4978, .9342, .0198, -.0697, .1415, -.2656, * .1415, -.4978, 1.0107,-1.8966, -.0754, .2653, -.5386, 1.0107/ DATA EX8G42/ * .0371, -.1307, .2653, -.4978, -.0106, .0371, -.0754, .1415, * -.0697, .2452, -.4978, .9342, .0371, -.1307, .2653, -.4978, * -.0183, .0644, -.1307, .2452, .0052, -.0183, .0371, -.0697, * .0198, -.0697, .1415, -.2656, -.0106, .0371, -.0754, .1415, * .0052, -.0183, .0371, -.0697, -.0015, .0052, -.0106, .0198, * .0198, -.0697, .1415, -.2656, -.0106, .0371, -.0754, .1415, * .0052, -.0183, .0371, -.0697, -.0015, .0052, -.0106, .0198, * -.0697, .2452, -.4978, .9342, .0371, -.1307, .2653, -.4978, * -.0183, .0644, -.1307, .2452, .0052, -.0183, .0371, -.0697, * .1415, -.4978, 1.0107,-1.8966, -.0754, .2653, -.5386, 1.0107, * .0371, -.1307, .2653, -.4978, -.0106, .0371, -.0754, .1415, * -.2656, .9342,-1.8966, 3.5591, .1415, -.4978, 1.0107,-1.8966, * -.0697, .2452, -.4978, .9342, .0198, -.0697, .1415, -.2656, * .0198, -.0106, .0052, -.0015, -.0697, .0371, -.0183, .0052, * .1415, -.0754, .0371, -.0106, -.2656, .1415, -.0697, .0198, * -.0697, .0371, -.0183, .0052, .2452, -.1307, .0644, -.0183, * -.4978, .2653, -.1307, .0371, .9342, -.4978, .2452, -.0697, * .1415, -.0754, .0371, -.0106, -.4978, .2653, -.1307, .0371, * 1.0107, -.5386, .2653, -.0754,-1.8966, 1.0107, -.4978, .1415/ DATA EX8G43/ * -.2656, .1415, -.0697, .0198, .9342, -.4978, .2452, -.0697, *-1.8966, 1.0107, -.4978, .1415, 3.5591,-1.8966, .9342, -.2656, * -.2656, .1415, -.0697, .0198, .9342, -.4978, .2452, -.0697, *-1.8966, 1.0107, -.4978, .1415, 3.5591,-1.8966, .9342, -.2656, * .1415, -.0754, .0371, -.0106, -.4978, .2653, -.1307, .0371, * 1.0107, -.5386, .2653, -.0754,-1.8966, 1.0107, -.4978, .1415, * -.0697, .0371, -.0183, .0052, .2452, -.1307, .0644, -.0183, * -.4978, .2653, -.1307, .0371, .9342, -.4978, .2452, -.0697, * .0198, -.0106, .0052, -.0015, -.0697, .0371, -.0183, .0052, * .1415, -.0754, .0371, -.0106, -.2656, .1415, -.0697, .0198, * 3.5591,-1.8966, .9342, -.2656,-1.8966, 1.0107, -.4978, .1415, * .9342, -.4978, .2452, -.0697, -.2656, .1415, -.0697, .0198, *-1.8966, 1.0107, -.4978, .1415, 1.0107, -.5386, .2653, -.0754, * -.4978, .2653, -.1307, .0371, .1415, -.0754, .0371, -.0106, * .9342, -.4978, .2452, -.0697, -.4978, .2653, -.1307, .0371, * .2452, -.1307, .0644, -.0183, -.0697, .0371, -.0183, .0052, * -.2656, .1415, -.0697, .0198, .1415, -.0754, .0371, -.0106, * -.0697, .0371, -.0183, .0052, .0198, -.0106, .0052, -.0015, * -.2656, .1415, -.0697, .0198, .1415, -.0754, .0371, -.0106/ DATA EX8G44/ * -.0697, .0371, -.0183, .0052, .0198, -.0106, .0052, -.0015, * .9342, -.4978, .2452, -.0697, -.4978, .2653, -.1307, .0371, * .2452, -.1307, .0644, -.0183, -.0697, .0371, -.0183, .0052, *-1.8966, 1.0107, -.4978, .1415, 1.0107, -.5386, .2653, -.0754, * -.4978, .2653, -.1307, .0371, .1415, -.0754, .0371, -.0106, * 3.5591,-1.8966, .9342, -.2656,-1.8966, 1.0107, -.4978, .1415, * .9342, -.4978, .2452, -.0697, -.2656, .1415, -.0697, .0198, * -.0008, .0050, .0050, -.0008, .0050, -.0324, -.0324, .0050, * .0050, -.0324, -.0324, .0050, -.0008, .0050, .0050, -.0008, * .0050, -.0324, -.0324, .0050, -.0324, .2078, .2078, -.0324, * -.0324, .2078, .2078, -.0324, .0050, -.0324, -.0324, .0050, * .0050, -.0324, -.0324, .0050, -.0324, .2078, .2078, -.0324, * -.0324, .2078, .2078, -.0324, .0050, -.0324, -.0324, .0050, * -.0008, .0050, .0050, -.0008, .0050, -.0324, -.0324, .0050, * .0050, -.0324, -.0324, .0050, -.0008, .0050, .0050, -.0008/ DATA EX2021/ * -.0490, .1830, .1830, -.6830, .1830, -.6830, -.6830, 2.5490, * .0670, -.2500, -.2500, .9330, .0670, -.2500, -.2500, .9330, * .1830, -.6830, -.6830, 2.5490, -.0490, .1830, .1830, -.6830, * -.2500, .9330, -.2500, .9330, .0670, -.2500, .0670, -.2500, * -.6830, 2.5490, .1830, -.6830, .1830, -.6830, -.0490, .1830, * -.2500, .9330, .0670, -.2500, -.2500, .9330, .0670, -.2500, * .1830, -.6830, -.0490, .1830, -.6830, 2.5490, .1830, -.6830, * .0670, -.2500, .0670, -.2500, -.2500, .9330, -.2500, .9330, * .0670, .0670, -.2500, -.2500, -.2500, -.2500, .9330, .9330, * -.2500, -.2500, .9330, .9330, .0670, .0670, -.2500, -.2500, * .9330, .9330, -.2500, -.2500, -.2500, -.2500, .0670, .0670, * -.2500, -.2500, .0670, .0670, .9330, .9330, -.2500, -.2500, * .1830, -.0490, -.6830, .1830, -.6830, .1830, 2.5490, -.6830, * -.2500, .0670, .9330, -.2500, -.2500, .0670, .9330, -.2500, * -.6830, .1830, 2.5490, -.6830, .1830, -.0490, -.6830, .1830, * .9330, -.2500, .9330, -.2500, -.2500, .0670, -.2500, .0670, * 2.5490, -.6830, -.6830, .1830, -.6830, .1830, .1830, -.0490, * .9330, -.2500, -.2500, .0670, .9330, -.2500, -.2500, .0670, * -.6830, .1830, .1830, -.0490, 2.5490, -.6830, -.6830, .1830/ DATA EX2022/ * -.2500, .0670, -.2500, .0670, .9330, -.2500, .9330, -.2500, * .1250, .1250, .1250, .1250, .1250, .1250, .1250, .1250/ DATA EX2031/ * .0066, -.0235, .0522, -.0235, .0835, -.1852, .0522, -.1852, * .4108, -.0235, .0835, -.1852, .0835, -.2963, .6573, -.1852, * .6573,-1.4580, .0522, -.1852, .4108, -.1852, .6573,-1.4580, * .4108,-1.4580, 3.2341, * -.0000, .0000, -.0000, .0000, -.0000, .0000, -.0000, .0000, * -.0000, .0353, -.1252, .2778, -.1252, .4444, -.9859, .2778, * -.9859, 2.1869, .0000, .0000, -.0000, -.0000, .0000, .0000, * -.0000, .0000, .0000, * .0522, -.1852, .4108, -.1852, .6573,-1.4580, .4108,-1.4580, * 3.2341, -.0235, .0835, -.1852, .0835, -.2963, .6573, -.1852, * .6573,-1.4580, .0066, -.0235, .0522, -.0235, .0835, -.1852, * .0522, -.1852, .4108, * -.0000, .0000, .0000, .2778, -.9859, 2.1869, .0000, .0000, * -.0000, .0000, .0000, .0000, -.1252, .4444, -.9859, -.0000, * .0000, -.0000, -.0000, -.0000, .0000, .0353, -.1252, .2778, * -.0000, .0000, -.0000, * .4108,-1.4580, 3.2341, -.1852, .6573,-1.4580, .0522, -.1852, * .4108, -.1852, .6573,-1.4580, .0835, -.2963, .6573, -.0235, * .0835, -.1852, .0522, -.1852, .4108, -.0235, .0835, -.1852/ DATA EX2032/ * .0066, -.0235, .0522, * -.0000, .0000, -.0000, .0000, -.0000, .0000, .0000, .0000, * -.0000, .2778, -.9859, 2.1869, -.1252, .4444, -.9859, .0353, * -.1252, .2778, .0000, .0000, .0000, -.0000, .0000, .0000, * -.0000, .0000, -.0000, * .0522, -.1852, .4108, -.0235, .0835, -.1852, .0066, -.0235, * .0522, -.1852, .6573,-1.4580, .0835, -.2963, .6573, -.0235, * .0835, -.1852, .4108,-1.4580, 3.2341, -.1852, .6573,-1.4580, * .0522, -.1852, .4108, * -.0000, .0000, -.0000, .0353, -.1252, .2778, .0000, .0000, * -.0000, .0000, .0000, .0000, -.1252, .4444, -.9859, -.0000, * .0000, -.0000, -.0000, .0000, .0000, .2778, -.9859, 2.1869, * -.0000, -.0000, -.0000, * -.0000, .0353, .0000, .0000, -.1252, .0000, -.0000, .2778, * -.0000, .0000, -.1252, .0000, .0000, .4444, .0000, .0000, * -.9859, -.0000, .0000, .2778, -.0000, -.0000, -.9859, -.0000, * .0000, 2.1869, .0000, * -.0000, .2778, -.0000, .0000, -.9859, .0000, -.0000, 2.1869, * .0000, .0000, -.1252, .0000, .0000, .4444, .0000, .0000/ DATA EX2033/ * -.9859, -.0000, -.0000, .0353, .0000, -.0000, -.1252, -.0000, * -.0000, .2778, -.0000, * -.0000, 2.1869, -.0000, .0000, -.9859, .0000, -.0000, .2778, * -.0000, .0000, -.9859, .0000, .0000, .4444, .0000, -.0000, * -.1252, -.0000, -.0000, .2778, .0000, -.0000, -.1252, -.0000, * -.0000, .0353, .0000, * -.0000, .2778, -.0000, .0000, -.1252, .0000, -.0000, .0353, * .0000, .0000, -.9859, .0000, .0000, .4444, .0000, -.0000, * -.1252, -.0000, .0000, 2.1869, .0000, -.0000, -.9859, -.0000, * -.0000, .2778, .0000, * .0522, -.0235, .0066, -.1852, .0835, -.0235, .4108, -.1852, * .0522, -.1852, .0835, -.0235, .6573, -.2963, .0835,-1.4580, * .6573, -.1852, .4108, -.1852, .0522,-1.4580, .6573, -.1852, * 3.2341,-1.4580, .4108, * -.0000, .0000, -.0000, .0000, -.0000, .0000, -.0000, .0000, * -.0000, .2778, -.1252, .0353, -.9859, .4444, -.1252, 2.1869, * -.9859, .2778, .0000, .0000, .0000, -.0000, .0000, .0000, * -.0000, .0000, .0000, * .4108, -.1852, .0522,-1.4580, .6573, -.1852, 3.2341,-1.4580/ DATA EX2034/ * .4108, -.1852, .0835, -.0235, .6573, -.2963, .0835,-1.4580, * .6573, -.1852, .0522, -.0235, .0066, -.1852, .0835, -.0235, * .4108, -.1852, .0522, * -.0000, .0000, -.0000, 2.1869, -.9859, .2778, -.0000, .0000, * -.0000, .0000, .0000, .0000, -.9859, .4444, -.1252, -.0000, * .0000, -.0000, -.0000, -.0000, -.0000, .2778, -.1252, .0353, * -.0000, .0000, -.0000, * 3.2341,-1.4580, .4108,-1.4580, .6573, -.1852, .4108, -.1852, * .0522,-1.4580, .6573, -.1852, .6573, -.2963, .0835, -.1852, * .0835, -.0235, .4108, -.1852, .0522, -.1852, .0835, -.0235, * .0522, -.0235, .0066, * -.0000, .0000, -.0000, .0000, -.0000, .0000, -.0000, .0000, * -.0000, 2.1869, -.9859, .2778, -.9859, .4444, -.1252, .2778, * -.1252, .0353, .0000, .0000, .0000, -.0000, .0000, .0000, * -.0000, .0000, -.0000, * .4108, -.1852, .0522, -.1852, .0835, -.0235, .0522, -.0235, * .0066,-1.4580, .6573, -.1852, .6573, -.2963, .0835, -.1852, * .0835, -.0235, 3.2341,-1.4580, .4108,-1.4580, .6573, -.1852, * .4108, -.1852, .0522/ DATA EX2035/ * -.0000, .0000, -.0000, .2778, -.1252, .0353, -.0000, .0000, * .0000, .0000, .0000, .0000, -.9859, .4444, -.1252, -.0000, * .0000, -.0000, .0000, .0000, .0000, 2.1869, -.9859, .2778, * -.0000, -.0000, -.0000, * -.0000, .0000, .0000, .0000, .0000, .0000, .0000, -.0000, * -.0000, 0.0000, .0000, .0000, .0000, 1.0000, .0000, -.0000, * -.0000, -.0000, .0000, .0000, -.0000, -.0000, .0000, .0000, * -.0000, .0000, .0000/ DATA EX2041/ * -.0015, .0052, -.0106, .0198, .0052, -.0183, .0371, -.0697, * -.0106, .0371, -.0754, .1415, .0198, -.0697, .1415, -.2656, * .0052, -.0183, .0371, -.0697, -.0183, .0644, -.1307, .2452, * .0371, -.1307, .2653, -.4978, -.0697, .2452, -.4978, .9342, * -.0106, .0371, -.0754, .1415, .0371, -.1307, .2653, -.4978, * -.0754, .2653, -.5386, 1.0107, .1415, -.4978, 1.0107,-1.8966, * .0198, -.0697, .1415, -.2656, -.0697, .2452, -.4978, .9342, * .1415, -.4978, 1.0107,-1.8966, -.2656, .9342,-1.8966, 3.5591, * -.0012, .0042, -.0086, .0161, .0042, -.0148, .0301, -.0565, * -.0086, .0301, -.0611, .1147, .0161, -.0565, .1147, -.2152, * .0077, -.0270, .0549, -.1030, -.0270, .0951, -.1931, .3624, * .0549, -.1931, .3921, -.7358, -.1030, .3624, -.7358, 1.3808, * .0077, -.0270, .0549, -.1030, -.0270, .0951, -.1931, .3624, * .0549, -.1931, .3921, -.7358, -.1030, .3624, -.7358, 1.3808, * -.0012, .0042, -.0086, .0161, .0042, -.0148, .0301, -.0565, * -.0086, .0301, -.0611, .1147, .0161, -.0565, .1147, -.2152, * .0198, -.0697, .1415, -.2656, -.0697, .2452, -.4978, .9342, * .1415, -.4978, 1.0107,-1.8966, -.2656, .9342,-1.8966, 3.5591, * -.0106, .0371, -.0754, .1415, .0371, -.1307, .2653, -.4978/ DATA EX2042/ * -.0754, .2653, -.5386, 1.0107, .1415, -.4978, 1.0107,-1.8966, * .0052, -.0183, .0371, -.0697, -.0183, .0644, -.1307, .2452, * .0371, -.1307, .2653, -.4978, -.0697, .2452, -.4978, .9342, * -.0015, .0052, -.0106, .0198, .0052, -.0183, .0371, -.0697, * -.0106, .0371, -.0754, .1415, .0198, -.0697, .1415, -.2656, * .0161, -.0565, .1147, -.2152, -.1030, .3624, -.7358, 1.3808, * -.1030, .3624, -.7358, 1.3808, .0161, -.0565, .1147, -.2152, * -.0086, .0301, -.0611, .1147, .0549, -.1931, .3921, -.7358, * .0549, -.1931, .3921, -.7358, -.0086, .0301, -.0611, .1147, * .0042, -.0148, .0301, -.0565, -.0270, .0951, -.1931, .3624, * -.0270, .0951, -.1931, .3624, .0042, -.0148, .0301, -.0565, * -.0012, .0042, -.0086, .0161, .0077, -.0270, .0549, -.1030, * .0077, -.0270, .0549, -.1030, -.0012, .0042, -.0086, .0161, * -.2656, .9342,-1.8966, 3.5591, .1415, -.4978, 1.0107,-1.8966, * -.0697, .2452, -.4978, .9342, .0198, -.0697, .1415, -.2656, * .1415, -.4978, 1.0107,-1.8966, -.0754, .2653, -.5386, 1.0107, * .0371, -.1307, .2653, -.4978, -.0106, .0371, -.0754, .1415, * -.0697, .2452, -.4978, .9342, .0371, -.1307, .2653, -.4978, * -.0183, .0644, -.1307, .2452, .0052, -.0183, .0371, -.0697/ DATA EX2043/ * .0198, -.0697, .1415, -.2656, -.0106, .0371, -.0754, .1415, * .0052, -.0183, .0371, -.0697, -.0015, .0052, -.0106, .0198, * .0161, -.0565, .1147, -.2152, -.0086, .0301, -.0611, .1147, * .0042, -.0148, .0301, -.0565, -.0012, .0042, -.0086, .0161, * -.1030, .3624, -.7358, 1.3808, .0549, -.1931, .3921, -.7358, * -.0270, .0951, -.1931, .3624, .0077, -.0270, .0549, -.1030, * -.1030, .3624, -.7358, 1.3808, .0549, -.1931, .3921, -.7358, * -.0270, .0951, -.1931, .3624, .0077, -.0270, .0549, -.1030, * .0161, -.0565, .1147, -.2152, -.0086, .0301, -.0611, .1147, * .0042, -.0148, .0301, -.0565, -.0012, .0042, -.0086, .0161, * .0198, -.0697, .1415, -.2656, -.0106, .0371, -.0754, .1415, * .0052, -.0183, .0371, -.0697, -.0015, .0052, -.0106, .0198, * -.0697, .2452, -.4978, .9342, .0371, -.1307, .2653, -.4978, * -.0183, .0644, -.1307, .2452, .0052, -.0183, .0371, -.0697, * .1415, -.4978, 1.0107,-1.8966, -.0754, .2653, -.5386, 1.0107, * .0371, -.1307, .2653, -.4978, -.0106, .0371, -.0754, .1415, * -.2656, .9342,-1.8966, 3.5591, .1415, -.4978, 1.0107,-1.8966, * -.0697, .2452, -.4978, .9342, .0198, -.0697, .1415, -.2656, * -.0012, .0042, -.0086, .0161, .0077, -.0270, .0549, -.1030/ DATA EX2044/ * .0077, -.0270, .0549, -.1030, -.0012, .0042, -.0086, .0161, * .0042, -.0148, .0301, -.0565, -.0270, .0951, -.1931, .3624, * -.0270, .0951, -.1931, .3624, .0042, -.0148, .0301, -.0565, * -.0086, .0301, -.0611, .1147, .0549, -.1931, .3921, -.7358, * .0549, -.1931, .3921, -.7358, -.0086, .0301, -.0611, .1147, * .0161, -.0565, .1147, -.2152, -.1030, .3624, -.7358, 1.3808, * -.1030, .3624, -.7358, 1.3808, .0161, -.0565, .1147, -.2152, * -.0012, .0077, .0077, -.0012, .0042, -.0270, -.0270, .0042, * -.0086, .0549, .0549, -.0086, .0161, -.1030, -.1030, .0161, * .0042, -.0270, -.0270, .0042, -.0148, .0951, .0951, -.0148, * .0301, -.1931, -.1931, .0301, -.0565, .3624, .3624, -.0565, * -.0086, .0549, .0549, -.0086, .0301, -.1931, -.1931, .0301, * -.0611, .3921, .3921, -.0611, .1147, -.7358, -.7358, .1147, * .0161, -.1030, -.1030, .0161, -.0565, .3624, .3624, -.0565, * .1147, -.7358, -.7358, .1147, -.2152, 1.3808, 1.3808, -.2152, * .0161, -.1030, -.1030, .0161, -.0565, .3624, .3624, -.0565, * .1147, -.7358, -.7358, .1147, -.2152, 1.3808, 1.3808, -.2152, * -.0086, .0549, .0549, -.0086, .0301, -.1931, -.1931, .0301, * -.0611, .3921, .3921, -.0611, .1147, -.7358, -.7358, .1147/ DATA EX2045/ * .0042, -.0270, -.0270, .0042, -.0148, .0951, .0951, -.0148, * .0301, -.1931, -.1931, .0301, -.0565, .3624, .3624, -.0565, * -.0012, .0077, .0077, -.0012, .0042, -.0270, -.0270, .0042, * -.0086, .0549, .0549, -.0086, .0161, -.1030, -.1030, .0161, * -.2152, 1.3808, 1.3808, -.2152, .1147, -.7358, -.7358, .1147, * -.0565, .3624, .3624, -.0565, .0161, -.1030, -.1030, .0161, * .1147, -.7358, -.7358, .1147, -.0611, .3921, .3921, -.0611, * .0301, -.1931, -.1931, .0301, -.0086, .0549, .0549, -.0086, * -.0565, .3624, .3624, -.0565, .0301, -.1931, -.1931, .0301, * -.0148, .0951, .0951, -.0148, .0042, -.0270, -.0270, .0042, * .0161, -.1030, -.1030, .0161, -.0086, .0549, .0549, -.0086, * .0042, -.0270, -.0270, .0042, -.0012, .0077, .0077, -.0012, * .0161, -.1030, -.1030, .0161, -.0086, .0549, .0549, -.0086, * .0042, -.0270, -.0270, .0042, -.0012, .0077, .0077, -.0012, * -.0565, .3624, .3624, -.0565, .0301, -.1931, -.1931, .0301, * -.0148, .0951, .0951, -.0148, .0042, -.0270, -.0270, .0042, * .1147, -.7358, -.7358, .1147, -.0611, .3921, .3921, -.0611, * .0301, -.1931, -.1931, .0301, -.0086, .0549, .0549, -.0086, * -.2152, 1.3808, 1.3808, -.2152, .1147, -.7358, -.7358, .1147/ DATA EX2046/ * -.0565, .3624, .3624, -.0565, .0161, -.1030, -.1030, .0161, * .0198, -.0106, .0052, -.0015, -.0697, .0371, -.0183, .0052, * .1415, -.0754, .0371, -.0106, -.2656, .1415, -.0697, .0198, * -.0697, .0371, -.0183, .0052, .2452, -.1307, .0644, -.0183, * -.4978, .2653, -.1307, .0371, .9342, -.4978, .2452, -.0697, * .1415, -.0754, .0371, -.0106, -.4978, .2653, -.1307, .0371, * 1.0107, -.5386, .2653, -.0754,-1.8966, 1.0107, -.4978, .1415, * -.2656, .1415, -.0697, .0198, .9342, -.4978, .2452, -.0697, *-1.8966, 1.0107, -.4978, .1415, 3.5591,-1.8966, .9342, -.2656, * .0161, -.0086, .0042, -.0012, -.0565, .0301, -.0148, .0042, * .1147, -.0611, .0301, -.0086, -.2152, .1147, -.0565, .0161, * -.1030, .0549, -.0270, .0077, .3624, -.1931, .0951, -.0270, * -.7358, .3921, -.1931, .0549, 1.3808, -.7358, .3624, -.1030, * -.1030, .0549, -.0270, .0077, .3624, -.1931, .0951, -.0270, * -.7358, .3921, -.1931, .0549, 1.3808, -.7358, .3624, -.1030, * .0161, -.0086, .0042, -.0012, -.0565, .0301, -.0148, .0042, * .1147, -.0611, .0301, -.0086, -.2152, .1147, -.0565, .0161, * -.2656, .1415, -.0697, .0198, .9342, -.4978, .2452, -.0697, *-1.8966, 1.0107, -.4978, .1415, 3.5591,-1.8966, .9342, -.2656/ DATA EX2047/ * .1415, -.0754, .0371, -.0106, -.4978, .2653, -.1307, .0371, * 1.0107, -.5386, .2653, -.0754,-1.8966, 1.0107, -.4978, .1415, * -.0697, .0371, -.0183, .0052, .2452, -.1307, .0644, -.0183, * -.4978, .2653, -.1307, .0371, .9342, -.4978, .2452, -.0697, * .0198, -.0106, .0052, -.0015, -.0697, .0371, -.0183, .0052, * .1415, -.0754, .0371, -.0106, -.2656, .1415, -.0697, .0198, * -.2152, .1147, -.0565, .0161, 1.3808, -.7358, .3624, -.1030, * 1.3808, -.7358, .3624, -.1030, -.2152, .1147, -.0565, .0161, * .1147, -.0611, .0301, -.0086, -.7358, .3921, -.1931, .0549, * -.7358, .3921, -.1931, .0549, .1147, -.0611, .0301, -.0086, * -.0565, .0301, -.0148, .0042, .3624, -.1931, .0951, -.0270, * .3624, -.1931, .0951, -.0270, -.0565, .0301, -.0148, .0042, * .0161, -.0086, .0042, -.0012, -.1030, .0549, -.0270, .0077, * -.1030, .0549, -.0270, .0077, .0161, -.0086, .0042, -.0012, * 3.5591,-1.8966, .9342, -.2656,-1.8966, 1.0107, -.4978, .1415, * .9342, -.4978, .2452, -.0697, -.2656, .1415, -.0697, .0198, *-1.8966, 1.0107, -.4978, .1415, 1.0107, -.5386, .2653, -.0754, * -.4978, .2653, -.1307, .0371, .1415, -.0754, .0371, -.0106, * .9342, -.4978, .2452, -.0697, -.4978, .2653, -.1307, .0371/ DATA EX2048/ * .2452, -.1307, .0644, -.0183, -.0697, .0371, -.0183, .0052, * -.2656, .1415, -.0697, .0198, .1415, -.0754, .0371, -.0106, * -.0697, .0371, -.0183, .0052, .0198, -.0106, .0052, -.0015, * -.2152, .1147, -.0565, .0161, .1147, -.0611, .0301, -.0086, * -.0565, .0301, -.0148, .0042, .0161, -.0086, .0042, -.0012, * 1.3808, -.7358, .3624, -.1030, -.7358, .3921, -.1931, .0549, * .3624, -.1931, .0951, -.0270, -.1030, .0549, -.0270, .0077, * 1.3808, -.7358, .3624, -.1030, -.7358, .3921, -.1931, .0549, * .3624, -.1931, .0951, -.0270, -.1030, .0549, -.0270, .0077, * -.2152, .1147, -.0565, .0161, .1147, -.0611, .0301, -.0086, * -.0565, .0301, -.0148, .0042, .0161, -.0086, .0042, -.0012, * -.2656, .1415, -.0697, .0198, .1415, -.0754, .0371, -.0106, * -.0697, .0371, -.0183, .0052, .0198, -.0106, .0052, -.0015, * .9342, -.4978, .2452, -.0697, -.4978, .2653, -.1307, .0371, * .2452, -.1307, .0644, -.0183, -.0697, .0371, -.0183, .0052, *-1.8966, 1.0107, -.4978, .1415, 1.0107, -.5386, .2653, -.0754, * -.4978, .2653, -.1307, .0371, .1415, -.0754, .0371, -.0106, * 3.5591,-1.8966, .9342, -.2656,-1.8966, 1.0107, -.4978, .1415, * .9342, -.4978, .2452, -.0697, -.2656, .1415, -.0697, .0198/ DATA EX2049/ * .0161, -.0086, .0042, -.0012, -.1030, .0549, -.0270, .0077, * -.1030, .0549, -.0270, .0077, .0161, -.0086, .0042, -.0012, * -.0565, .0301, -.0148, .0042, .3624, -.1931, .0951, -.0270, * .3624, -.1931, .0951, -.0270, -.0565, .0301, -.0148, .0042, * .1147, -.0611, .0301, -.0086, -.7358, .3921, -.1931, .0549, * -.7358, .3921, -.1931, .0549, .1147, -.0611, .0301, -.0086, * -.2152, .1147, -.0565, .0161, 1.3808, -.7358, .3624, -.1030, * 1.3808, -.7358, .3624, -.1030, -.2152, .1147, -.0565, .0161, * -.0008, .0050, .0050, -.0008, .0050, -.0324, -.0324, .0050, * .0050, -.0324, -.0324, .0050, -.0008, .0050, .0050, -.0008, * .0050, -.0324, -.0324, .0050, -.0324, .2078, .2078, -.0324, * -.0324, .2078, .2078, -.0324, .0050, -.0324, -.0324, .0050, * .0050, -.0324, -.0324, .0050, -.0324, .2078, .2078, -.0324, * -.0324, .2078, .2078, -.0324, .0050, -.0324, -.0324, .0050, * -.0008, .0050, .0050, -.0008, .0050, -.0324, -.0324, .0050, * .0050, -.0324, -.0324, .0050, -.0008, .0050, .0050, -.0008/ C DATA DTOR /0.0174532925E0/ DATA NEQU /200/ DATA OLDEID / 0 / DATA LLD,LSUB,FRLAST / 2*-1,2*-1.0E30 / DATA TYP / 4HIHEX,1H1,1H2,1H3 / C C***** C IF THIS IS THE FIRST STRESS POINT IN AN ELEMENT, INITIALIZE C COUNTER AND GET EXTERNAL GRID POINT NUMBERS C***** IF (ISTORE .EQ. 1) GO TO 2633 IF (OLDEID .EQ. IESTA(1)) GO TO 200 STRSPT=0 IPTS=(TYPE-1)/2 NGP =12*TYPE-4 NGP1=NGP+1 IF (TYPE .EQ. 3) NGP1=21 NIP=IESTA(20*NGP+9) C C IF EQEXIN NOT YET READ IN, READ IT. C IF (ISOPL.NE.EQEXIN .AND. OLDEID.NE.0) GO TO 10 ISOPL=-1 ITRL(1)=EQEXIN CALL RDTRL (ITRL) LEQX =ITRL(2)*2 MXLEQ=(NEQU/2)*2 NEQX =(LEQX-1)/MXLEQ+1 L=LEQX IF (NEQX .GT. 1) L=MXLEQ IEND = 0 CALL READ (*140,*140,EQEXIN,EQU,L,0,I) DO 5 I=2,L,2 5 EQU(I)=IABS(EQU(I)) CALL SORT (0,0,2,2,EQU,L) L=L/2 C C CONVERT SIL NUMBERS TO EXTERNAL GRID POINT NUMBERS C 10 OLDEID = IESTA(1) DO 15 I = 1,NGP 15 EXTRNL(I)=-IESTA(I+1) DO 130 J=1,NEQX 16 DO 120 I=1,NGP IF (EXTRNL(I) .GT. 0) GO TO 120 SIL=IESTA(I+1)*10+1 C C BINARY SEARCH FOR MATCH ON SIL NUMBER C KLO=1 KHI=L 20 K=(KHI+KLO+1)/2 30 KX=2*K IF (SIL-EQU(KX)) 40,110,50 40 KHI=K GO TO 60 50 KLO=K 60 IF (KHI-KLO-1) 120,70,20 70 IF (K .EQ. KLO) GO TO 80 K=KLO GO TO 90 80 K=KHI 90 KLO=KHI GO TO 30 110 EXTRNL(I)=EQU(KX-1) 120 CONTINUE IF (NEQX .EQ. 1) GO TO 130 DO 121 I=1,NGP IF (EXTRNL(I) .LT. 0) GO TO 123 121 CONTINUE GO TO 135 123 L=MXLEQ IEND = 0 CALL READ (*140,*125,EQEXIN,EQU,L,0,I) 124 DO 122 I=2,L,2 122 EQU(I)=IABS(EQU(I)) CALL SORT (0,0,2,2,EQU,L) L=L/2 IF (IEND .EQ. 1) GO TO 16 GO TO 130 125 CALL BCKREC (EQEXIN) L=I IEND = 1 IF (L .EQ. 0) GO TO 123 GO TO 124 130 CONTINUE 135 IF (TYPE .NE. 3) EXTRNL(NGP+1)=0 IF (IEND .EQ. 0) CALL BCKREC (EQEXIN) IEND = 1 GO TO 200 140 CALL MESAGE (-61,0,0) C***** C BEGIN STRESS COMPUTATION C***** 200 STRSPT=STRSPT+1 IF (STRSPT .EQ. NIP**3+1) OLDEID=0 ISTORE=0 IF (OLDEID .EQ. 0) ISTORE=1 C***** C THERMAL EFFECTS C***** IF (JTEMP .EQ. -1) GO TO 230 C C COMPUTE TEMPERATURE AT THIS POINT C TEMP=0.0 DO 210 I=1,NGP 210 TEMP=TEMP+ESTA(NGP+1+I)*GPT(I) TEMP=TEMP-ESTA(2*NGP+2) DO 220 I=1,6 SIG(I) =TEMP*ESTA(2*NGP+2+I) 220 CSIG(I)=ABS(SIG(I)) GO TO 250 230 DO 240 I=1,6 SIG(I) =0.0 240 CSIG(I)=0.0 C***** C DISPLACEMENT EFFECTS. LOOP OVER GRID POINTS. C***** 250 DO 260 I=1,NGP J=IVEC+IESTA(I+1)-1 K=NGP*2+18*(I-1)+9 CALL SMMATS (ESTA(K),6,3,-2,Z(J),3,1,0,SIG,CSIG) 260 CONTINUE C C STORE THE GAUSS POINT STRESSES UNTIL WE HAVE THEM ALL C NO NEED TO STORE NIP3 + 1ST SINCE CENTROIDAL VALUES WILL BE C EXTRAPOLATED. ACTUALLY, NIP3 + 1ST TIMES THRU SIHEX1 AND 2 ARE C NOW SUPERFLUOUS C NIP3=NIP**3 IF (STRSPT .EQ. NIP3+1) GO TO 2611 IPOINT=6*(STRSPT-1) DO 261 I=1,6 ISUB=IPOINT+I 261 STORE(ISUB)=SIG(I) 2611 CONTINUE C C IF ALL GAUSS POINT ARE DONE, EXTRAPOLATE TO GRIDS C IF (OLDEID .NE. 0) RETURN C IF (NGP-20) 2620,2624,2624 C C 8 GRIDS C 2620 IF (NIP-3) 2621,2622,2623 2621 CALL SMMATS (EX8G2, 9,8,0,STORE,8,6,0,SIGS,CSIGS) GO TO 2632 2622 CALL SMMATS (EX8G3, 9,27,0,STORE,27,6,0,SIGS,CSIGS) GO TO 2632 2623 CALL SMMATS (EX8G4, 9,64,0,STORE,64,6,0,SIGS,CSIGS) GO TO 2632 C C 20 OR 32 GRIDS C 2624 IF (NIP-3) 2625,2626,2627 2625 CALL SMMATS (EX20G2,21,8,0,STORE,8,6,0,SIGS,CSIGS) GO TO 2632 2626 CALL SMMATS (EX20G3,21,27,0,STORE,27,6,0,SIGS,CSIGS) GO TO 2632 2627 CALL SMMATS (EX20G4,21,64,0,STORE,64,6,0,SIGS,CSIGS) 2632 RETURN C C JUST FETCH APPROPRIATE SIGS AND LET ROUTINE COMPUTE PRINCIPAL C STRESSES AND WRITE( OUT RESULTS C 2633 STRSPT=STRSPT+1 IPOINT=6*(STRSPT-NIP3-2) DO 2634 I=1,6 ISUB=IPOINT+I SIG(I) =SIGS(ISUB) CSIG(I)=CSIGS(ISUB) 2634 CONTINUE C ISAVE=STRSPT STRSPT=STRSPT-NIP3-1 C C SKIP PRINCIPAL STRESS COMPUTATIONS IF FINAL STRESS VECTOR C WILL BE COMPLEX. C IF (KTYPE .EQ. 2) GO TO 300 C***** C SOLVE CUBIC EQUATION FOR PRINCIPAL STRESSES C***** C C S**3+P*S**2+Q*S+R=0.0 C C REF. -- CRC STANDARD MATH TABLES 14TH ED., PP. 392,3 C RM=0.0 DO 262 I=1,6 IF (ABS(SIG(I)) .GT. RM) RM=ABS(SIG(I)) 262 CONTINUE IF (RM .LE. 0.0) GO TO 267 THRESH=1.0E-5 264 DO 263 I=1,6 IF (ABS(SIG(I)/RM) .LT. THRESH) SIG(I)=0.0 263 CONTINUE RX = SX/RM RY = SY/RM RZ = SZ/RM RXY= SXY/RM RYZ= SYZ/RM RZX= SZX/RM P =-RX-RY-RZ Q = RX*RY+RY*RZ+RZ*RX-RXY**2-RYZ**2-RZX**2 R =-(RX*RY*RZ+2.0*RXY*RYZ*RZX-RX*RYZ**2-RY*RZX**2-RZ*RXY**2) A = (3.0*Q-P**2)/3.0 B = (2.0*P**3-9.0*P*Q+27.0*R)/27.0 X =-A**3/27.0 IF (X .GT. 1.0E-16) GO TO 270 C C CHECK FOR IMAGINARY ROOTS C IF (ABS(X) .GT. RM*1.0E-6) GO TO 265 C C CHECK FOR 3 EQUAL ROOTS C IF (ABS(B) .GT. 1.0E-6) GO TO 265 X =0.0 PHI=0.0 GO TO 275 265 THRESH=10.0*THRESH IF (THRESH .LT. 1.1E-3) GO TO 264 267 SA = 0.0 SB = 0.0 SC = 0.0 GO TO 280 270 COSPHI=-(B/2.0)/SQRT(X) AX = ABS(COSPHI) IF (AX.GT.0.9999 .AND. AX.LT.1.0001) COSPHI=SIGN(1.0,COSPHI) IF (ABS(COSPHI) .GT. 1.0) GO TO 265 PHI=ACOS(COSPHI) X =2.0*SQRT(-A/3.0) 275 SA=(X*COS(PHI/3.0)-P/3.0)*RM SB=(X*COS(PHI/3.0+120.0*DTOR)-P/3.0)*RM SC=(X*COS(PHI/3.0+240.0*DTOR)-P/3.0)*RM RM=0.0 DO 276 I=1,3 IF (ABS(SIGP(I)) .GT. RM) RM=ABS(SIGP(I)) 276 CONTINUE DO 277 I=1,3 IF (ABS(SIGP(I)/RM) .LT. 1.0E-5) SIGP(I)=0.0 277 CONTINUE C***** C COMPUTE MEAN STRESS OR PRESSURE C***** 280 SN=-(SA+SB+SC)/3.0 C***** C COMPUTE OCTAHEDRAL SHEAR STRESS C***** SO=SQRT(((SA+SN)**2+(SB+SN)**2+(SC+SN)**2)/3.0) C***** C COMPUTE DIRECTION COSINES OF THE PRINCIPAL PLANES C***** RM=1.0E-6 DO 600 I=1,3 IF (SIGP(I) .EQ. 0.0) GO TO 580 SMAT(1,1)= 1.0-SX/SIGP(I) SMAT(2,1)=-SXY/SIGP(I) SMAT(3,1)=-SZX/SIGP(I) SMAT(1,2)= SMAT(2,1) SMAT(2,2)= 1.0-SY/SIGP(I) SMAT(3,2)=-SYZ/SIGP(I) SMAT(1,3)= SMAT(3,1) SMAT(2,3)= SMAT(3,2) SMAT(3,3)= 1.0-SZ/SIGP(I) CALL SAXB (SMAT(1,1),SMAT(1,2),DCOS(1,I)) RX=SADOTB(DCOS(1,I),DCOS(1,I)) J =1 CALL SAXB (SMAT(1,2),SMAT(1,3),DCOS(1,I)) RY=SADOTB(DCOS(1,I),DCOS(1,I)) IF (RY .GT. RX) J=2 CALL SAXB (SMAT(1,3),SMAT(1,1),DCOS(1,I)) RZ=SADOTB(DCOS(1,I),DCOS(1,I)) IF (RZ.GT.RY .AND. RZ.GT.RX) J=3 P=SMAT(1,J) Q=SMAT(2,J) R=SMAT(3,J) IF (J-2) 450,460,470 450 J=2 GO TO 480 460 J=3 GO TO 480 470 J=1 480 S=SMAT(1,J) T=SMAT(2,J) V=SMAT(3,J) IF (ABS(Q) .LE. RM) GO TO 500 RX=V-T*R/Q IF (ABS(RX) .LE. RM) GO TO 490 RZ=-(S-T*P/Q)/RX RY=-(P+R*RZ)/Q 485 X=1.0+RZ*RZ+RY*RY DCOS(1,I)=1.0/SQRT(X) DCOS(2,I)=RY*DCOS(1,I) DCOS(3,I)=RZ*DCOS(1,I) GO TO 600 490 RX=S-T*P/Q IF (ABS(RX) .LE. RM) GO TO 580 RY=-R/Q X =1.0+RY*RY DCOS(1,I)=0.0 DCOS(3,I)=1.0/SQRT(X) DCOS(2,I)=RY*DCOS(3,I) GO TO 600 500 IF (ABS(R) .LE. RM) GO TO 520 RZ=-P/R IF (ABS(T) .LE. RM) GO TO 510 RY=-(S-V*P/R)/T GO TO 485 510 IF (ABS(S-V*P/R) .LE. RM) GO TO 580 DCOS(1,I)=0.0 DCOS(2,I)=1.0 DCOS(3,I)=0.0 GO TO 600 520 IF (ABS(P) .LE. RM) GO TO 580 IF (ABS(V) .LE. RM) GO TO 530 RZ=-T/V X =1.0+RZ*RZ DCOS(1,I)=0.0 DCOS(2,I)=1.0/SQRT(X) DCOS(3,I)=RZ*DCOS(2,I) GO TO 600 530 IF (ABS(T) .LE. RM) GO TO 580 DCOS(1,I)=0.0 DCOS(2,I)=0.0 DCOS(3,I)=1.0 GO TO 600 580 DCOS(1,I)=0.0 DCOS(2,I)=0.0 DCOS(3,I)=0.0 600 CONTINUE C***** C PUT IT AWAY IN THE STRESS ARRAY C***** 300 ISTRS(1)=IESTA(1) IF (TYPE .EQ. 3) GO TO 310 ISTRS(2)=EXTRNL(STRSPT) GO TO 420 310 ISTRS(11)=0 C 1 2 3 4 5 6 7 8 9 10 GO TO (320,330,320,330,320,330,320,340,350,350, 2 350,350,360,370,360,370,360,370,360,380, 3 390),STRSPT 320 J=STRSPT/2+STRSPT GO TO 410 330 J=(STRSPT-1)/2+STRSPT-1 K=J+3 GO TO 400 340 J=(STRSPT-1)/2+STRSPT-1 K=J-9 GO TO 400 350 J=(STRSPT-9)*3+1 K=J+20 GO TO 400 360 J=STRSPT/2+STRSPT+2 GO TO 410 370 J=(STRSPT-1)/2+STRSPT+1 K=J+3 GO TO 400 380 J=(STRSPT-1)/2+STRSPT+1 K=J-9 GO TO 400 390 ISTRS(2)=0 GO TO 420 400 ISTRS(11)=EXTRNL(K) 410 ISTRS(2)=EXTRNL(J) 420 STRESS( 3)=SX STRESS( 4)=SXY STRESS( 5)=SA STRESS( 9)=SN STRESS( 10)=SO STRESS(IPTS+11)=SY STRESS(IPTS+12)=SYZ STRESS(IPTS+13)=SB STRESS(IPTS+17)=SZ STRESS(IPTS+18)=SZX STRESS(IPTS+19)=SC DO 430 I=1,3 STRESS( 5+I)=DCOS(1,I) STRESS(IPTS+13+I)=DCOS(2,I) STRESS(IPTS+19+I)=DCOS(3,I) 430 CONTINUE STRSPT=ISAVE IF (NCHK .LE. 0) GO TO 960 C C . CHECK PRECISION... C KK = 0 CALL SDRCHK (SIG,CSIG,6,KK) C IF (KK .EQ. 0) GO TO 960 C C . LIMITS EXCEEDED... C JJ = 0 IFRVEC(1) = TYP(1) IF (TYPE .EQ. 1) IFRVEC(2) = TYP(2) IF (TYPE .EQ. 2) IFRVEC(2) = TYP(3) IF (TYPE .EQ. 3) IFRVEC(2) = TYP(4) IFRVEC(3) = IESTA(1) IFRVEC(4) = ISTRS(2) IFRVEC(5) = ISTRS(11) IF (TYPE .NE. 3) IFRVEC(5) = -1 C IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND. 1 LLD .EQ.ILD .AND. FRLAST(2).EQ.FRTMEI(2)) GO TO 930 C LSUB = ISUB LLD = ILD FRLAST(1) = FRTMEI(1) FRLAST(2) = FRTMEI(2) JJ = 1 CALL PAGE1 C 910 CALL SD2RHD (ISHD,JJ) LINE = LINE + 1 WRITE (NOUT,920) 920 FORMAT (7X,4HTYPE,5X,3HEID,4X,4HGRD1,4X,4HGRD2,5X,2HSX,5X, 1 2HSY,5X,2HSZ,4X,3HSXY,4X,3HSYZ,4X,3HSZX) GO TO 940 C 930 IF (EJECT(2) .NE. 0) GO TO 910 940 WRITE (NOUT,950) IFRVEC 950 FORMAT (1H0,3X,2A4,I7,2I8,6F7.1) 960 CONTINUE RETURN END ================================================ FILE: mis/sinc0s.f ================================================ SUBROUTINE SINC0S (ROW,SICK, D,O,COS) C = C SUBROUTINE SICOX (D,O,COS) C C THIS ROUTINE WAS CALLED SICOX BEFORE, WITH ENTRY POINT SINCAS C = C THIS ROUTINE IS CALLED ONLY BY TRIDI SUBROUTINE, WHICH IS CALLED C ONLY BY VALVEC C C IT CALCULATES SINES AND COSINES FOR GIVENS TRIDIAGONALIZATION C INTEGER ROWP2,ROW,SICK DOUBLE PRECISION D(1),O(1),COS(1),Z COMMON /GIVN / TITLE(100),N C C D = DIAGONAL AND SINES. C O = OFF-DIAGONAL. C COS = COSINES. C C RETURN C C C ENTRY SINCAS (ROW,SICK) C ======================= C C CALCULATE THE SINES AND COSINES OF ROW -ROW-. C SICK = 0 ROWP2 = ROW + 2 DO 105 I = ROWP2,N IF (D(I) .EQ. 0.0D0) GO TO 101 C C CALCULATE THE ROTATION. C SICK = 1 Z = DSQRT(D(I)**2 + D(ROW+1)**2) D(I) = D(I)/Z COS(I) = D(ROW+1)/Z D(ROW+1) = Z IF (COS(I) .GE. 0.0D0) GO TO 105 COS(I) = DABS(COS(I)) D(I) = -D(I) D(ROW+1) = -D(ROW+1) GO TO 105 C C NO ROTATION. C 101 COS(I) = 1.0D0 105 CONTINUE O(ROW) = D(ROW+1) RETURN END ================================================ FILE: mis/sinc0s1.f ================================================ SUBROUTINE SINC0S1 (ROW,SICK, D,O,COS) C = C SUBROUTINE SICOX (D,O,COS) C C THIS ROUTINE WAS CALLED SICOX BEFORE, WITH ENTRY POINT SINCAS C = C THIS ROUTINE IS CALLED ONLY BY TRIDI SUBROUTINE, WHICH IS CALLED C ONLY BY VALVEC C C IT CALCULATES SINES AND COSINES FOR GIVENS TRIDIAGONALIZATION C INTEGER ROWP2,ROW,SICK REAL D(1),O(1),COS(1),Z COMMON /GIVN / TITLE(100),N C C D = DIAGONAL AND SINES. C O = OFF-DIAGONAL. C COS = COSINES. C C RETURN C C C ENTRY SINCAS (ROW,SICK) C ======================= C C CALCULATE THE SINES AND COSINES OF ROW -ROW-. C SICK = 0 ROWP2 = ROW + 2 DO 105 I = ROWP2,N IF (D(I) .EQ. 0.0) GO TO 101 C C CALCULATE THE ROTATION. C SICK = 1 Z = SQRT(D(I)**2 + D(ROW+1)**2) D(I) = D(I)/Z COS(I) = D(ROW+1)/Z D(ROW+1) = Z IF (COS(I) .GE. 0.0) GO TO 105 COS(I) = ABS(COS(I)) D(I) = -D(I) D(ROW+1) = -D(ROW+1) GO TO 105 C C NO ROTATION. C 101 COS(I) = 1.0 105 CONTINUE O(ROW) = D(ROW+1) RETURN END ================================================ FILE: mis/sjump.f ================================================ SUBROUTINE SJUMP (N) C C JUMP OVER N GROUPS WITHIN AN ITEM WHEN IN READ MODE. N WILL BE C RETURNED AS -1 IF THE END OF ITEM IS REACHED BEFORE JUMPING OVER C N GROUPS. C EXTERNAL ANDF,RSHIFT INTEGER ANDF,RSHIFT,BUF,EOG,EOI,BLKSIZ,DIRSIZ,NMSBR(2) COMMON /MACHIN/ MACH,IHALF,JHALF COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DITDUM(6),IO,IOPBN,IOLBN,IOMODE,IOPTR,IOSIND, 1 IOITCD,IOBLK COMMON /SYS / BLKSIZ,DIRSIZ DATA IRD / 1 / DATA EOG , EOI / 4H$EOG ,4H$EOI / DATA INDSBR/ 17 /, NMSBR /4HSJUM,4HP / C CALL CHKOPN (NMSBR(1)) IF (N .LE. 0) RETURN ICOUNT = 0 IF (IOMODE .EQ. IRD) GO TO 20 N = -2 RETURN C C SEARCH THROUGH SOF FOR END OF ITEM AND END OF GROUP. C 10 IOPTR = IOPTR + 1 20 IF (IOPTR .GT. BLKSIZ+IO) GO TO 50 30 IF (BUF(IOPTR) .NE. EOI) GO TO 40 N = -1 RETURN C 40 IF (BUF(IOPTR) .NE. EOG) GO TO 10 ICOUNT = ICOUNT + 1 IF (ICOUNT .NE. N) GO TO 10 IOPTR = IOPTR + 1 RETURN C C REACHED END OF BLOCK. REPLACE THE BLOCK CURRENTLY IN CORE BY ITS C LINK BLOCK. C 50 CALL FNXT (IOPBN,INXT) IF (MOD(IOPBN,2) .EQ. 1) GO TO 60 NEXT = ANDF(RSHIFT(BUF(INXT),IHALF),JHALF) GO TO 70 60 NEXT = ANDF(BUF(INXT),JHALF) 70 IF (NEXT .EQ. 0) GO TO 510 IOPBN = NEXT IOLBN = IOLBN + 1 CALL SOFIO (IRD,IOPBN,BUF(IO-2)) IOPTR = IO + 1 GO TO 30 510 CALL ERRMKN (INDSBR,9) RETURN END ================================================ FILE: mis/skpfrm.f ================================================ SUBROUTINE SKPFRM (BFRAMS) C INTEGER BFRAMS,BFRMS,PLOTER,CAMERA,A(10),ADV10(3),CON10 REAL SAVE(2,4),XYMAX(2) COMMON /PLTDAT/ MODEL,PLOTER,REG(2,2),AXYMAX(2),EDGE(2),CAMERA, 1 SKPPLT(9),PXYMAX(7),ORIGIN(2) DATA ADV10 , CON10 / 1,2,3, 3 / C DO 101 I = 1,2 SAVE(I,1) = REG(I,1) REG(I,1) = 0. SAVE(I,2) = REG(I,2) REG(I,2) = AXYMAX(I)+2.*EDGE(I) SAVE(I,3) = ORIGIN(I) ORIGIN(I) = 0. SAVE(I,4) = EDGE(I) EDGE(I) = 0. 101 CONTINUE XYMAX(1) = AMAX1(REG(1,2),REG(2,2)) XYMAX(2) = AMIN1(REG(1,2),REG(2,2)) REG(1,2) = XYMAX(1) REG(2,2) = XYMAX(2) BFRMS = MIN0(MAX0(BFRAMS,1),5) C C PLOTTER 1, 2 C A(1) = CON10 A(2) = ADV10(CAMERA) DO 141 I = 3,6 A(I) = 0 141 CONTINUE DO 142 I = 1,BFRMS CALL WPLT10 (A,0) 142 CONTINUE GO TO 300 C 300 DO 301 I = 1,2 REG(I,1) = SAVE(I,1) REG(I,2) = SAVE(I,2) ORIGIN(I)= SAVE(I,3) EDGE(I) = SAVE(I,4) 301 CONTINUE C RETURN END ================================================ FILE: mis/skprec.f ================================================ SUBROUTINE SKPREC(IFILE,K) C INTEGER NAME(2) C DATA NAME /4HSKPR,2HEC / C C ---------------------------------------------------------------------- C IF( K ) 10,30,20 C 10 M=IABS(K) DO 15 I=1,M CALL BCKREC(IFILE) 15 CONTINUE GO TO 30 C 20 DO 25 I=1,K CALL FWDREC(*40,IFILE) 25 CONTINUE C 30 RETURN C 40 CALL MESAGE(-2,IFILE,NAME) GO TO 30 C END ================================================ FILE: mis/sma1.f ================================================ SUBROUTINE SMA1 C***** C THIS ROUTINE IS A DRIVER AND INITIALIZATION PROGRAM FOR MODULE C 2.4.1 OF THE NASTRAN SYSTEM. IT GENERATES THE STIFFNESS MATRIX, KGG, C THE STRUCTURAL DAMPING MATRIX, K4GG, AND THE GRID POINT SINGULARITY C TABLE, GPST. C***** DOUBLE PRECISION 1 DZ ,DPDUM C INTEGER 1 IZ(1) ,EOR 2, CLSRW ,CLSNRW 3, FROWIC 4, TNROWS ,OUTRW 5, OPTION C LOGICAL ANYTAB ,LINEAR LOGICAL DODET ,HEAT C DIMENSION 1 NMSMA1(2) DIMENSION IBUF(7) C COMMON /BLANK/ NOGENL ,NOK4GG ,OPTION(2) COMMON /SYSTEM/ ISYS,SKIP(53),IPREC,ITHERM C C SMA1 I/O PARAMETERS C COMMON /SMA1IO/ 1 IFCSTM ,IFMPT 2, IFDIT ,IDUM1 3, IFECPT ,IGECPT 4, IFGPCT ,IGGPCT 5, IFGEI ,IGGEI 6, IFKGG ,IGKGG 7, IF4GG ,IG4GG 8, IFGPST ,IGGPST 9, INRW ,OUTRW T, CLSNRW ,CLSRW 1, NEOR ,EOR 2, MCBKGG(7) ,MCB4GG(7) C C SMA1 VARIABLE CORE C COMMON /ZZZZZZ / Z(1) C C SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS C COMMON /SMA1BK/ 1 ICSTM ,NCSTM 2, IGPCT ,NGPCT 3, IPOINT ,NPOINT 4, I6X6K ,N6X6K 5, I6X64 ,N6X64 C C SMA1 PROGRAM CONTROL PARAMETERS C COMMON /SMA1CL/ 1 IOPT4 ,K4GGSW 2, NPVT ,LEFT 3, FROWIC ,LROWIC 4, NROWSC ,TNROWS 5, JMAX ,NLINKS 6, LINK(10) ,IDETCK 7, DODET ,NOGO C C ELEMENT DATA C COMMON /GPTA1/ NELEMS, LAST, INCR, NE(1) C C ECPT COMMON BLOCK C COMMON /SMA1ET/ 1 ECPT(100) C C SCRATCH COMMON BLOCK USED BY ELEMENT ROUTINES. C COMMON /SMA1DP/ 1 DPDUM(300) C C COMMON INTERFACE FOR HMAT -HEAT- MATERIAL ROUTINE. C COMMON /HMATDD/ IHMAT,NHMAT,MPTMPT,IDIT,LINEAR,ANYTAB C COMMON /SMA1HT/ HEAT C EQUIVALENCE 1 (Z(1),IZ(1),DZ) C DATA 1 NMSMA1(1) /4HSMA1/ ,NMSMA1(2) /4H / C***** C SET THE LOGICAL HEAT FLAG IF THIS IS A -HEAT- FORMULATION C***** CALL DELSET LINEAR =.TRUE. OPTION(1) = -1 HEAT = .FALSE. IF( ITHERM .NE. 0 ) HEAT = .TRUE. C IZMAX = KORSZ(Z) C C IF NOGENL .GT. 0, GENERAL ELEMENTS EXIST AND HENCE THE GPST IS NOT C CREATED AND SO DETCK WILL NOT BE CALLED. C DODET = .TRUE. IF (NOGENL .GT. 0) DODET = .FALSE. IBUF(1) = IFECPT CALL RDTRL(IBUF(1)) IF (IBUF(3).EQ.1) DODET = .FALSE. C C SET K4GG PURGE FLAGS C NOK4GG = -1 K4GGSW = -1 C C ATTEMPT TO OPEN THE OUTPUT FILE FOR THE KGG MATRIX. IF IT IS NOT C IN THE OSCAR, EXECUTION WILL BE TERMINATED SINCE WE DO NOT ALLOW C THE USER TO GENERATE ONLY A K4GG. C IGKGG = IZMAX - ISYS CALL OPEN(*100,IFKGG,Z(IGKGG),OUTRW) C C WRITE A TWO WORD BCD HEADER AND CLOSE THE KGG FILE WITHOUT REWIND. C CALL FNAME (IFKGG,Z(1)) CALL WRITE (IFKGG,Z(1),2,EOR) CALL CLOSE (IFKGG,CLSNRW) C C ATTEMPT TO OPEN THE K4GG FILE. C IG4GG = IGKGG IOPT4 = 0 CALL OPEN(*10,IF4GG,Z(IG4GG),OUTRW) IOPT4 = 1 IG4GG = IG4GG - ISYS CALL FNAME (IF4GG,Z(1)) CALL WRITE (IF4GG,Z(1),2,EOR) CALL CLOSE(IF4GG,CLSNRW) C C SET UP POINTERS TO GINO BUFFERS AND SET UP MATRIX CONTROL BLOCKS. C 10 IGECPT = IG4GG - ISYS IGGPCT = IGECPT - ISYS IGGPST = IGGPCT - ISYS IF (.NOT. DODET) IGGPST = IGGPST + ISYS MCBKGG(1) = IFKGG MCBKGG(2) = 0 MCBKGG(3) = 0 MCBKGG(4) = 6 MCBKGG(5) = IPREC MCBKGG(6) = 0 MCBKGG(7) = 0 IF (IOPT4 .EQ. 0) GO TO 30 MCB4GG(1) = IF4GG DO 20 I = 2,7 20 MCB4GG(I) = MCBKGG(I) C C ATTEMPT TO READ THE CSTM INTO CORE. C 30 NCSTM = 0 ICSTM = 0 LEFT = IGGPST - 1 CALL OPEN(*50,IFCSTM,Z(IGKGG),INRW) CALL FWDREC(*9020,IFCSTM) CALL READ(*9030,*40,IFCSTM,Z(1),LEFT,EOR,NCSTM) C C IF CORE WAS FILLED WITHOUT HITTING AN EOR CALL MESAGE C CALL MESAGE (-8,IFCSTM,IFCSTM) 40 LEFT = LEFT - NCSTM C C PRETRD SETS UP FUTURE CALLS TO TRANSD. C CALL PRETRD (Z(ICSTM+1),NCSTM) CALL PRETRS(Z(ICSTM+1),NCSTM) CALL CLOSE (IFCSTM,CLSRW) 50 IMAT1 = NCSTM NMAT1 = 0 NMAT2 = 0 NMAT3 = 0 NMAT4 = 0 C C CALL PREMAT TO READ MPT AND THE DIT INTO CORE C IMAT11 = IMAT1 + 1 C***** C IF THIS IS A -HEAT- PROBLEM THE HMAT ROUTINE IS USED TO READ MAT4 AND C MAT5 CARDS INTO CORE. C***** IF( .NOT. HEAT ) GO TO 56 IHMAT = IMAT11 + 1 NHMAT = IMAT11 + LEFT - 2 MPTMPT = IFMPT IDIT = IFDIT CALL HMAT( 0 ) LEFT = LEFT - NHMAT + IHMAT IGPCT = NHMAT + 1 GO TO 58 C***** C NORMAL PREMAT PROCESSING. C***** 56 CALL PREMAT (IZ(IMAT11),Z(IMAT11),Z(IGKGG),LEFT,MATCR,IFMPT,IFDIT) LEFT = LEFT - MATCR IGPCT = NCSTM + MATCR C C OPEN THE ECPT AND GPCT INPUT FILES AND THE GPST OUTPUT FILE. C 58 CALL OPEN(*9070,IFECPT,Z(IGECPT),INRW) CALL FWDREC(*9080,IFECPT) CALL OPEN(*9090,IFGPCT,Z(IGGPCT),INRW) CALL FWDREC(*9100,IFGPCT) IF (.NOT. DODET) GO TO 60 CALL OPEN(*9110,IFGPST,Z(IGGPST),OUTRW) CALL FNAME(IFGPST,ECPT(1)) CALL WRITE(IFGPST,ECPT(1),2,EOR) C C REOPEN THE KGG OUTPUT FILE WITHOUT REWIND, AND THE K4GG, IF CALLED FOR C 60 CALL OPEN(*9120,IFKGG,Z(IGKGG),3) IF(IOPT4.NE.0)CALL OPEN(*9130,IF4GG,Z(IG4GG),3) C C CALL SUBROUTINE SMA1A WHICH WILL PERFORM ALL THE COMPUTATIONS. C CALL SMA1A IF(.NOT. LINEAR) OPTION(1)= 1 C C CLOSE FILES AND WRITE TRAILERS. C CALL CLOSE(IFECPT,CLSRW) CALL CLOSE(IFGPCT,CLSRW) IF (.NOT. DODET) GO TO 70 CALL CLOSE (IFGPST,CLSRW) CALL WRTTRL (IFGPST) 70 CALL CLOSE (IFKGG,CLSRW) MCBKGG(3) = MCBKGG(2) CALL WRTTRL (MCBKGG(1)) IF (IOPT4 .EQ. 0) GO TO 100 CALL CLOSE(IF4GG,CLSRW) IF (MCB4GG(6) .EQ. 0) GO TO 80 MCB4GG(3) = MCB4GG(2) CALL WRTTRL (MCB4GG(1)) NOK4GG = 1 GO TO 100 80 DO 90 I = 2,7 90 MCB4GG(I) = 0 NOK4GG = -1 100 RETURN C C SUBROUTINE SMA1 ERROR EXITS. C 9020 IFILE = IFCSTM GO TO 10002 9030 IFILE = - IFCSTM GO TO 10002 9070 IFILE = IFECPT GO TO 10001 9080 IFILE = IFECPT GO TO 10002 9090 IFILE = IFGPCT GO TO 10001 9100 IFILE = IFGPCT GO TO 10002 9110 IFILE = IFGPST GO TO 10001 9120 IFILE = IFKGG GO TO 10001 9130 IFILE = IF4GG 10001 IPARM = -1 GO TO 10010 10002 IPARM = -2 10010 CALL MESAGE (IPARM,IFILE,NMSMA1(1)) RETURN END ================================================ FILE: mis/sma1a.f ================================================ SUBROUTINE SMA1A C C THIS SUBROUTINE FORMERLY GENERATED THE KGG AND K4GG MATRICES FOR C THE SMA1 MODULE. THESE OPERATIONS ARE NOW PERFORMED IN THE EMG C AND EMA MODULES AND SMA1A IS RETAINED IN SKELETAL FORM TO PROVIDE C A VEHICLE FOR USER-PROVIDED ELEMENTS. C LOGICAL DODET,NOGO,HEAT,NOHEAT INTEGER IZ(1),EOR,CLSRW,CLSNRW,FROWIC,SYSPRT,TNROWS, 1 OUTRW,OPTION DOUBLE PRECISION DZ,DPWORD DIMENSION INPVT(2),DZ(1),NAME(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /BLANK / NOGENL,NOK4GG,OPTION(2) COMMON /SYSTEM/ KSYSTM(65) COMMON /SMA1HT/ HEAT COMMON /SMA1IO/ IFCSTM,IFMPT,IFDIT,IDUM1,IFECPT,IGECPT,IFGPCT, 1 IGGPCT,IFGEI,IGGEI,IFKGG,IGKGG,IF4GG,IG4GG, 2 IFGPST,IGGPST,INRW,OUTRW,CLSNRW,CLSRW,NEOR,EOR, 3 MCBKGG(7),MCB4GG(7) COMMON /ZZZZZZ/ Z(1) COMMON /SMA1BK/ ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT,I6X6K, 1 N6X6K,I6X64,N6X64 COMMON /SMA1CL/ IOPT4,K4GGSW,NPVT,LLEFT,FROWIC,LROWIC,NROWSC, 1 TNROWS,JMAX,NLINKS,LINK(10),IDETCK,DODET,NOGOO COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1) COMMON /SMA1ET/ ECPT(200) COMMON /ZBLPKX/ DPWORD,DUM(2),INDEX EQUIVALENCE (KSYSTM(2),SYSPRT),(KSYSTM(3),NOGO), 1 (KSYSTM(55),IPREC),(Z(1),IZ(1),DZ(1)) DATA NAME / 4HSMA1, 4HA / C C FLAG FOR ERROR CHECK IF A NON-HEAT ELEMENT IS REFERENCED C IN A -HEAT- FORMULATION. C NOHEAT = .FALSE. IPR = IPREC C C READ THE FIRST TWO WORDS OF NEXT GPCT RECORD INTO INPVT(1). C INPVT(1) IS THE PIVOT POINT. INPVT(1) .GT. 0 IMPLIES THE PIVOT C POINT IS A GRID POINT. INPVT(1) .LT. 0 IMPLIES THE PIVOT POINT IS C A SCALAR POINT. INPVT(2) IS THE NUMBER OF WORDS IN THE REMAINDER C OF THIS RECORD OF THE GPCT. C IF (NOGO) WRITE (SYSPRT,5) SWM 5 FORMAT (A27,' 2055, NOGO FLAG IS ON AT ENTRY TO SMA1A AND IS ', 1 'BEING TURNED OFF.') NOGO = .FALSE. 10 IDETCK = 0 CALL READ (*1000,*700,IFGPCT,INPVT(1),2,NEOR,IFLAG) NGPCT = INPVT(2) CALL READ (*1000,*3000,IFGPCT,IZ(IGPCT+1),NGPCT,EOR,IFLAG) C C FROWIC IS THE FIRST ROW IN CORE. (1 .LE. FROWIC .LE. 6) C FROWIC = 1 C C DECREMENT THE AMOUNT OF CORE REMAINING. C LEFT = LLEFT - 2*NGPCT IF (LEFT .LE. 0) GO TO 3003 IPOINT = IGPCT + NGPCT NPOINT = NGPCT I6X6K = IPOINT + NPOINT I6X6K = (I6X6K-1)/2 + 2 C C CONSTRUCT THE POINTER TABLE, WHICH WILL ENABLE SUBROUTINE SMA1B C TO ADD THE ELEMENT STRUCTURAL AND/OR DAMPING MATRICES TO KGG AND C K4GG. C IZ(IPOINT+1) = 1 I1 = 1 I = IGPCT J = IPOINT + 1 30 I1 = I1 + 1 IF (I1 .GT. NGPCT) GO TO 40 I = I + 1 J = J + 1 INC = 6 IF (IZ(I) .LT. 0) INC = 1 IZ(J) = IZ(J-1) + INC GO TO 30 C C JMAX = THE NUMBER OF COLUMNS OF KGG THAT WILL BE GENERATED WITH C THE CURRENT GRID POINT. C 40 INC = 5 ILAST = IGPCT + NGPCT JLAST = IPOINT + NPOINT IF (IZ(ILAST) .LT. 0) INC = 0 JMAX = IZ(JLAST) + INC C C TNROWS = THE TOTAL NUMBER OF ROWS OF THE MATRIX TO BE GENERATED C FOR THE CURRENT PIVOT POINT. C TNROWS = 6 IF THE CURRENT PIVOT POINT IS A GRID POINT. C TNROWS = 1 IF THE CURRENT PIVOT POINT IS A SCALAR POINT. C TNROWS = 6 IF (INPVT(1) .LT. 0) TNROWS = 1 C C IF 2*TNROWS*JMAX .LT. LEFT THERE ARE NO SPILL LOGIC PROBLEMS FOR C THE KGG SINCE THE WHOLE DOUBLE PRECISION SUBMATRIX OF ORDER TNROWS C X JMAX CAN FIT IN CORE. C ITEMP = TNROWS*JMAX IF (2*ITEMP .LT. LEFT) GO TO 80 NAME(2) = INPVT(1) CALL MESAGE (30,85,NAME) C C THE WHOLE MATRIX CANNOT FIT IN CORE, DETERMINE HOW MANY ROWS CAN C FIT. IF TNROWS = 1, WE CAN DO NOTHING FURTHER. C IF (TNROWS .EQ. 1) GO TO 3003 NROWSC = 3 70 IF (2*NROWSC*JMAX .LT. LEFT) GO TO 90 NROWSC = NROWSC - 1 IF (NROWSC .EQ. 0) CALL MESAGE (-8,0,NAME) GO TO 70 80 NROWSC = TNROWS 90 FROWIC = 1 C C LROWIC IS THE LAST ROW IN CORE. (1 .LE. LROWIC .LE. 6) C LROWIC = FROWIC + NROWSC - 1 C C ZERO OUT THE KGG SUBMATRIX IN CORE C 100 LOW = I6X6K + 1 LIM = I6X6K + JMAX*NROWSC DO 115 I = LOW,LIM 115 DZ(I) = 0.0D0 C C CHECK TO SEE IF THE K4GG MATRIX IS DESIRED. C IF (IOPT4 .EQ. 0) GO TO 137 C C SINCE THE K4GG MATRIX IS TO BE COMPUTED, DETERMINE IF IT TOO CAN C FIT INTO CORE C IF (NROWSC .NE. TNROWS) GO TO 120 IF (4*TNROWS*JMAX .LT. LEFT) GO TO 130 C C OPEN A SCRATCH FILE FOR K4GG. C 120 CALL MESAGE (-8,0,NAME) C C THIS CODE TO BE FILLED IN LATER C =============================== C 130 I6X64 = I6X6K + JMAX*TNROWS LOW = I6X64 + 1 LIM = I6X64 + JMAX*TNROWS DO 135 I = LOW,LIM 135 DZ(I) = 0.0D0 C C INITIALIZE THE LINK VECTOR TO -1. C 137 DO 140 I = 1,NLINKS 140 LINK(I) = -1 C C TURN FIRST PASS INDICATOR ON. C 150 IFIRST = 1 C C READ THE 1ST WORD OF THE ECPT RECORD, THE PIVOT POINT, INTO NPVT. C CALL FREAD (IFECPT,NPVT,1,0) C C READ THE NEXT ELEMENT TYPE INTO THE CELL ITYPE. C 160 CALL READ (*3025,*500,IFECPT,ITYPE,1,NEOR,IFLAG) IF (ITYPE.GE.53 .OR. ITYPE.LE.61) GO TO 165 CALL PAGE2 (-3) WRITE (SYSPRT,161) UFM,ITYPE 161 FORMAT (A23,' 2201, ELEMENT TYPE',I4,' NO LONGER SUPPORTED BY ', 1 'SMA1 MODULE.', /5X, 2 'USE EMG AND EMA MODULES FOR ELEMENT MATRIX GENERATION') NOGO = .TRUE. GO TO 1000 165 CONTINUE C C READ THE ECPT ENTRY FOR THE CURRENT TYPE INTO THE ECPT ARRAY. THE C NUMBER OF WORDS TO BE READ WILL BE NWORDS(ITYPE). C IDX = (ITYPE-1)*INCR CALL FREAD (IFECPT,ECPT,NE(IDX+12),0) ITEMP = NE(IDX+22) C C IF THIS IS THE 1ST ELEMENT READ ON THE CURRENT PASS OF THE ECPT C CHECK TO SEE IF THIS ELEMENT IS IN A LINK THAT HAS ALREADY BEEN C PROCESSED. C IF (IFIRST .EQ. 1) GO TO 170 C C THIS IS NOT THE FIRST PASS. IF ITYPE(TH) ELEMENT ROUTINE IS IN C CORE, PROCESS IT. C IF (ITEMP .EQ. LINCOR) GO TO 180 C C THE ITYPE(TH) ELEMENT ROUTINE IS NOT IN CORE. IF THIS ELEMENT C ROUTINE IS IN A LINK THAT ALREADY HAS BEEN PROCESSED READ THE NEXT C ELEMENT. C IF (LINK(ITEMP) .EQ. 1) GO TO 160 C C SET A TO BE PROCESSED LATER FLAG FOR THE LINK IN WHICH THE ELEMENT C RESIDES C LINK(ITEMP) = 0 GO TO 160 C C SINCE THIS IS THE FIRST ELEMENT TYPE TO BE PROCESSED ON THIS PASS C OF THE ECPT RECORD, A CHECK MUST BE MADE TO SEE IF THIS ELEMENT C IS IN A LINK THAT HAS ALREADY BEEN PROCESSED. IF IT IS SUCH AN C ELEMENT, WE KEEP IFIRST = 1 AND READ THE NEXT ELEMENT. C 170 IF (LINK(ITEMP) .EQ. 1) GO TO 160 C C SET THE CURRENT LINK IN CORE = ITEMP AND IFIRST = 0 C LINCOR = ITEMP IFIRST = 0 ITYPX = ITYPE - 52 C C CALL THE PROPER ELEMENT ROUTINE. C 180 GO TO ( C CDUM1 CDUM2 CDUM3 CDUM4 C 53 54 55 56 7 467, 468, 469, 470, C CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 C 57 58 59 60 61 8 471, 472, 473, 474, 475 ) , ITYPX C C 467 CALL KDUM1 GO TO 160 468 CALL KDUM2 GO TO 160 469 CALL KDUM3 GO TO 160 470 CALL KDUM4 GO TO 160 471 CALL KDUM5 GO TO 160 472 CALL KDUM6 GO TO 160 473 CALL KDUM7 GO TO 160 474 CALL KDUM8 GO TO 160 475 CALL KDUM9 GO TO 160 C C AT STATEMENT NO. 500 WE HAVE HIT AN EOR ON THE ECPT FILE. SEARCH C THE LINK VECTOR TO DETERMINE IF THERE ARE LINKS TO BE PROCESSED. C 500 LINK(LINCOR) = 1 DO 510 I = 1,NLINKS IF (LINK(I) .EQ. 0) GO TO 520 510 CONTINUE GO TO 525 C C SINCE AT LEAST ONE LINK HAS NOT BEEN PROCESSED THE ECPT FILE MUST C BE BACKSPACED. C 520 CALL BCKREC (IFECPT) GO TO 150 C C CHECK NOGOO FLAG. IF 1 SKIP BKDPK AND PROCESS ANOTHER GRID POINT C FROM GPCT C 525 IF (NOGOO .EQ. 1) GO TO 10 C C IF NO GENERAL ELEMENTS EXIST, CHECK FOR GRID POINT SINGULARITIES. C CWKBR IF (DODET) CALL DETCK (0) IF (DODET) CALL DETCK (0,NPVT,IFGPST) C C AT THIS POINT BLDPK THE NUMBER OF ROWS IN CORE UNTO THE KGG FILE. C ASSIGN 580 TO IRETRN IFILE= IFKGG IMCB = 1 530 I1 = 0 540 I2 = 0 IBEG = I6X6K + I1*JMAX CALL BLDPK (2,IPR,IFILE,0,0) 550 I2 = I2 + 1 IF (I2 .GT. NGPCT) GO TO 570 JJ = IGPCT + I2 INDEX = IABS(IZ(JJ)) - 1 LIM = 6 IF (IZ(JJ) .LT. 0) LIM = 1 JJJ = IPOINT + I2 KKK = IBEG + IZ(JJJ) - 1 I3 = 0 560 I3 = I3 + 1 IF (I3 .GT. LIM) GO TO 550 INDEX = INDEX + 1 KKK = KKK + 1 DPWORD = DZ(KKK) IF (DPWORD .NE. 0.0D0) CALL ZBLPKI GO TO 560 570 CALL BLDPKN (IFILE,0,MCBKGG(IMCB)) I1 = I1 + 1 IF (I1 .LT. NROWSC) GO TO 540 GO TO IRETRN, (580,600) C C IF THE K4GG IS CALLED FOR, BLDPK IT. C 580 IF (IOPT4 .EQ. 0) GO TO 600 IF (IOPT4 .EQ. -1) GO TO 590 C C THE K4GG MATRIX IS IN CORE. C ASSIGN 600 TO IRETRN I6X6K = I6X64 IFILE = IF4GG IMCB = 8 GO TO 530 C C HERE WE NEED LOGIC TO READ K4GG FROM A SCRATCH FILE AND INSERT. C 590 CONTINUE C C TEST TO SEE IF THE LAST ROW IN CORE, LROWIC, = THE TOTAL NO. OF C ROWS TO BE COMPUTED, TNROWS. IF IT IS, WE ARE DONE. IF NOT, THE C ECPT MUST BE BACKSPACED. C 600 IF (LROWIC .EQ. TNROWS) GO TO 10 CALL BCKREC (IFECPT) FROWIC = FROWIC + NROWSC LROWIC = LROWIC + NROWSC GO TO 100 C C CHECK NOGOO = 1 SKIP BLDPK AND PROCESS ANOTHER RECORD C 700 IF (NOGOO .EQ. 1) GO TO 10 C C HERE WE HAVE A PIVOT POINT WITH NO ELEMENTS CONNECTED, SO THAT C NULL COLUMNS MUST BE OUTPUT ON THE KGG AND K4GG FILES. IF DODET C IS TRUE, CALL THE DETERMINANT CHECK ROUTINE TO WRITE SINGULARITY C INFORMATION. C NPVT = IABS(INPVT(1)) IF (INPVT(1) .GT. 0) GO TO 703 LIM = 1 IXX = -1 GO TO 706 703 LIM = 6 IXX = 1 CWKBR 706 IF (DODET) CALL DETCK (IXX) 706 IF (DODET) CALL DETCK (IXX,NPVT,IFGPST) DO 710 I = 1,LIM CALL BLDPK (2,IPR,IFKGG,0,0) CALL BLDPKN (IFKGG,0,MCBKGG) IF (IOPT4 .NE. 1) GO TO 710 CALL BLDPK (2,IPR,IF4GG,0,0) CALL BLDPKN (IF4GG,0,MCB4GG) 710 CONTINUE CALL SKPREC (IFECPT,1) GO TO 10 C C RETURN SINCE AN EOF HAS BEEN HIT ON THE GPCT FILE C 1000 IF (.NOT.NOGO .AND. NOGOO.EQ.0) RETURN IPARM = -61 GO TO 4010 C C ERROR RETURNS C 3000 IFILE = IFGPCT GO TO 4003 3003 IPARM = -8 GO TO 4010 3025 IFILE = IFECPT IPARM = -2 GO TO 4010 4003 IPARM = -3 4010 CALL MESAGE (IPARM,IFILE,NAME) CALL MESAGE (-30,87,ITYPE) RETURN END ================================================ FILE: mis/sma1b.f ================================================ SUBROUTINE SMA1B (KE,J,II,IFILE,DAMPC) C C SUBROUTINE SMA1B ADDS A N X N DOUBLE PRECISION MATRIX, KE, TO THE C SUBMATRIX OF ORDER NROWSC X JMAX, WHICH IS IN CORE. N IS 1 IF C EITHER NPVT, THE PIVOT POINT, IS A SCALAR POINT, OR J,THE SECOND C SUBSCRIPT OF KE CORRESPONDS TO A SCALAR POINT, OR J .NE. TO ANY C ENTRY IN THE GPCT. OTHERWISE N IS 6. C INTEGER IZ(1),EOR,CLSRW,CLSNRW,FROWIC,TNROWS,OUTRW DOUBLE PRECISION DZ(1),KE(36),DAMPC COMMON /BLANK / ICOM COMMON /SYSTEM/ ISYS(21),LINKNO COMMON /SEM / MASK(3),LNKNOS(15) C C SMA1 I/O PARAMETERS C COMMON /SMA1IO/ IFCSTM,IFMPT,IFDIT,IDUM1,IFECPT,IGECPT, 1 IFGPCT,IGGPCT,IFGEI,IGGEI,IFKGG,IGKGG, 2 IF4GG,IG4GG,IFGPST,IGGPST,INRW,OUTRW, 3 CLSNRW,CLSRW,NEOR,EOR,MCBKGG(7),MCB4GG(7) C C SMA1 VARIABLE CORE C COMMON /ZZZZZZ/ Z(1) C C SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS C COMMON /SMA1BK/ ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT, 1 I6X6K,N6X6K,I6X64,N6X64 C C SMA1 PROGRAM CONTROL PARAMETERS C COMMON /SMA1CL/ IOPT4,K4GGSW,NPVT,LEFT,FROWIC,LROWIC, 1 NROWSC,TNROWS,JMAX,NLINKS,LINK(10),IDETCK, 2 DODET,NOGO C C ECPT COMMON BLOCK C COMMON /SMA1ET/ ECPT(100) C EQUIVALENCE (Z(1),IZ(1),DZ(1)) C C C CALL EMG1B AND THEN RETURN IF THIS IS LINK 8. C PROCEED NORMALLY FOR OTHER LINKS. C IF (LINKNO .NE. LNKNOS(8)) GO TO 2 CALL EMG1B (KE,J,II,IFILE,DAMPC) RETURN C C DETERMINE WHICH MATRIX IS BEING COMPUTED. C 2 IBASE = I6X6K IF (IFILE .EQ. IFKGG) GO TO 5 IF (IOPT4 .LT. 0) RETURN IBASE = I6X64 C C SEARCH THE GPCT AND FIND AN INDEX M SUCH THAT C IABS(GPCT(M)) .LE. J .LT. IABS(GPCT(M+1)) C 5 LOW = IGPCT + 1 LIM = NGPCT + LOW - 2 IF (LOW .GT. LIM) GO TO 15 DO 10 I = LOW,LIM ISAVE = I IF (J .GE. IABS(IZ(I+1))) GO TO 10 IF (J .GE. IABS(IZ(I)) ) GO TO 20 10 CONTINUE IF (J .GE. IABS(IZ(ISAVE+1))) ISAVE = ISAVE + 1 GO TO 20 C C IF II .GT. 0, WE ARE DEALING WITH A SCALAR POINT. C 15 ISAVE = LOW 20 IF (II .GT. 0) GO TO 60 C C AT THIS POINT IT HAS BEEN DETERMINED THAT J IS A SCALAR INDEX C NUMBER WHICH CORRESPONDS TO A GRID POINT. HENCE THE DOUBLE C PRECISION 6 X 6 MATRIX, KE, WILL BE ADDED TO THE MATRIX. C L1 = FROWIC - 1 JJ = IPOINT + ISAVE - IGPCT J2 = IZ(JJ) - 1 I1 = 0 LIM= NROWSC - 1 30 IF (I1 .GT. LIM) RETURN K1 = IBASE + I1*JMAX + J2 J1 = 0 L = 6*L1 K = K1 40 J1 = J1 + 1 IF (J1 .GT. 6) GO TO 50 K = K + 1 L = L + 1 IF (IFILE - IFKGG) 47,43,47 43 DZ(K) = DZ(K) + KE(L) GO TO 40 47 DZ(K) = DZ(K) + DAMPC*KE(L) GO TO 40 50 I1 = I1 + 1 L1 = L1 + 1 GO TO 30 C C AT THIS POINT WE ARE DEALING WITH A 1 X 1. C FIRST COMPUTE THE ROW NUMBER, NROW C 60 NROW = II - NPVT + 1 C C THE FOLLOWING 2 FORTRAN STATEMENTS ARE MERELY TO CHECK THE PROGRAM C LOGIC. EVENTUALLY THEY CAN BE DELETED. C IF (NROW.GE.1 .AND. NROW.LE.TNROWS) GO TO 70 CALL MESAGE (-30,22,NROW) 70 LROWIC = FROWIC + NROWSC - 1 C C IF NROW, THE ROW INTO WHICH THE NUMBER KE(1) IS TO BE ADDED IS NOT C IN CORE IT CANNOT BE ADDED AT THIS TIME. C IF (NROW.LT.FROWIC .OR. NROW.GT.LROWIC) RETURN J2 = ISAVE J3 = IPOINT + ISAVE - IGPCT INDEX = IBASE + (NROW-1)*JMAX + IZ(J3) - IABS(IZ(J2)) + J DZ(INDEX) = DZ(INDEX) + KE(1) RETURN END ================================================ FILE: mis/sma2.f ================================================ SUBROUTINE SMA2 C ****** C THIS ROUTINE IS A DRIVER AND INITIALIZATION PROGRAM FOR MODULE C 2.4.2 OF THE NASTRAN SYSTEM. IT GENERATES THE MASS MATRIX, MGG, AND C THE DAMPING MATRIX, BGG. C ****** C C C C LOGICAL HEAT C C DOUBLE PRECISION 1 DZ ,ZZZZZZ C C C INTEGER 1 IZ(1) ,EOR 2, CLSRW ,CLSNRW 3, FROWIC 4, TNROWS ,OUTRW 5, BGGIND C C C DIMENSION 1 NMSMA2(2) COMMON /BLANK/ WTMASS ,NOMGG 1, NOBGG C C C COMMON /SYSTEM/ ISYS,ISEW1(53),IPREC,ITHERM C C SMA2 I/O PARAMETERS C COMMON /SMA2IO/ 1 IFCSTM ,IFMPT 2, IFDIT ,IDUM1 3, IFECPT ,IGECPT 4, IFGPCT ,IGGPCT 5, IDUM2 ,IDUM3 6, IFMGG ,IGMGG 7, IFBGG ,IGBGG 8, IDUM4 ,IDUM5 9, INRW ,OUTRW T, CLSNRW ,CLSRW 1, NEOR ,EOR 2, MCBMGG(7) ,MCBBGG(7) C C SMA2 VARIABLE CORE C COMMON /ZZZZZZ / Z(1) C C SMA2 VARIABLE CORE BOOKKEEPING PARAMETERS. C COMMON /SMA2BK/ 1 ICSTM ,NCSTM 2, IGPCT ,NGPCT 3, IPOINT ,NPOINT 4, I6X6M ,N6X6M 5, I6X6B ,N6X6B C C SMA2 PROGRAM CONTROL PARAMETERS C COMMON /SMA2CL/ 1 IOPTB ,BGGIND 2, NPVT ,LEFT 3, FROWIC ,LROWIC 4, NROWSC ,TNROWS 5, JMAX ,NLINKS 6, LINK(10) ,NOGO C C ELEMENT DATA C COMMON /GPTA1/ NELEMS, LAST, INCR, NE(1) C C ECPT COMMON BLOCK C COMMON /SMA2ET/ 1 ECPT(100) C C SCRATCH BLOCK FOR ELEMENT ROUTINES C COMMON /SMA2DP/ 1 ZZZZZZ(300) C COMMON /SMA2HT/ HEAT C COMMON /HMATDD/ IHMAT, NHMAT, MPTMPT, IDIT C C EQUIVALENCE 1 (Z(1),IZ(1),DZ) C C C DATA 1 NMSMA2(1) /4HSMA2/ ,NMSMA2(2) /4H / C C***** C SET HEAT FLAG C***** HEAT = .FALSE. IF( ITHERM .NE. 0 ) HEAT = .TRUE. C C CALL DELSET IZMAX = KORSZ (Z) C C SET PURGE FLAGS FOR BGG AND NO PURGE FLAG FOR MGG. C BGGIND = -1 NOBGG = -1 NOMGG = 1 C C ATTEMPT TO OPEN THE OUTPUT FILE FOR THE MASS MATRIX. IF IT IS NOT C IN THE OSCAR, EXECUTION WILL BE TERMINATED SINCE WE DO NOT ALLOW C THE USER TO GENERATE ONLY A BGG. (EXCEPT IN A HEAT TRANSER PROBLEM) C IGMGG = IZMAX - ISYS IF( HEAT ) GO TO 5 CALL OPEN(*100,IFMGG,Z(IGMGG),OUTRW) C C WRITE A TWO WORD BCD HEADER AND CLOSE THE MGG FILE WITHOUT REWIND. C CALL FNAME (IFMGG,Z(1)) CALL WRITE (IFMGG,Z(1),2,EOR) CALL CLOSE (IFMGG,CLSNRW) C C ATTEMPT TO OPEN THE BGG FILE. C 5 IGBGG = IGMGG IOPTB = 0 CALL OPEN(*10,IFBGG,Z(IGBGG),OUTRW) IOPTB = 1 IGBGG = IGBGG - ISYS CALL FNAME (IFBGG,Z(1)) CALL WRITE (IFBGG,Z(1),2,EOR) CALL CLOSE(IFBGG,CLSNRW) C C SET UP POINTERS TO GINO BUFFERS AND SET UP MATRIX CONTROL BLOCKS. C 10 IGECPT = IGBGG - ISYS IGGPCT = IGECPT - ISYS MCBMGG(1) = IFMGG MCBMGG(2) = 0 MCBMGG(3) = 0 MCBMGG(4) = 6 MCBMGG(5) = IPREC MCBMGG(6) = 0 MCBMGG(7) = 0 IF (IOPTB .EQ. 0) GO TO 30 MCBBGG(1) = IFBGG DO 20 I = 2,7 20 MCBBGG(I) = MCBMGG(I) C C ATTEMPT TO READ THE CSTM INTO CORE. C 30 NCSTM = 0 ICSTM = 0 LEFT = IGGPCT - 1 CALL OPEN(*50,IFCSTM,Z(IGMGG),INRW) CALL FWDREC(*9020,IFCSTM) CALL READ(*9030,*40,IFCSTM,Z(1),LEFT,EOR,NCSTM) C C IF CORE WAS FILLED WITHOUT HITTING AN EOR CALL MESAGE C CALL MESAGE (-8,IFCSTM,IFCSTM) 40 LEFT = LEFT - NCSTM C C PRETRD SETS UP FUTURE CALLS TO TRANSD. C CALL PRETRD (Z(ICSTM+1),NCSTM) CALL PRETRS(Z(ICSTM+1),NCSTM) CALL CLOSE (IFCSTM,CLSRW) 50 IMAT1 = NCSTM NMAT1 = 0 NMAT2 = 0 NMAT3 = 0 NMAT4 = 0 IMAT11 = IMAT1 + 1 C***** C IF -HEAT- PROBLEM THEN HMAT IS USED FOR MAT4 AND MAT5 CARDS. C***** IF( .NOT. HEAT ) GO TO 56 IHMAT = IMAT11 + 1 NHMAT = IMAT11 + LEFT - 2 MPTMPT = IFMPT IDIT = IFDIT CALL HMAT( 0 ) LEFT = LEFT - NHMAT + IHMAT IGPCT = NHMAT +1 GO TO 58 56 CALL PREMAT(IZ(IMAT11),Z(IMAT11),Z(IGMGG),LEFT,MATCR,IFMPT,IFDIT) LEFT = LEFT - MATCR IGPCT = NCSTM + MATCR C C OPEN THE ECPT INPUT FILE AND THE GPCT INPUT FILE. C 58 CALL OPEN(*9070,IFECPT,Z(IGECPT),INRW) CALL FWDREC(*9080,IFECPT) CALL OPEN(*9090,IFGPCT,Z(IGGPCT),INRW) CALL FWDREC(*9100,IFGPCT) C C REOPEN THE MGG OUTPUT FILE WITHOUT REWIND, AND THE BGG, IF CALLED FOR. C IF(.NOT.HEAT)CALL OPEN(*9110,IFMGG,Z(IGMGG),3) IF(IOPTB.NE.0)CALL OPEN(*9120,IFBGG,Z(IGBGG),3) C C CALL SUBROUTINE SMA2A WHICH WILL PERFORM ALL THE COMPUTATIONS. C CALL SMA2A C C CLOSE FILES AND WRITE TRAILERS. C CALL CLOSE (IFGPCT,CLSRW) CALL CLOSE (IFECPT,CLSRW) CALL CLOSE (IFMGG ,CLSRW) MCBMGG(3) = MCBMGG(2) IF (MCBMGG(6) .NE. 0) GO TO 70 DO 60 I = 2,7 60 MCBMGG(I) = 0 NOMGG = -1 70 IF( .NOT. HEAT ) CALL WRTTRL( MCBMGG ) IF (IOPTB .EQ. 0) GO TO 100 CALL CLOSE (IFBGG ,CLSRW) IF (MCBBGG(6) .EQ. 0) GO TO 80 MCBBGG(3) = MCBBGG(2) CALL WRTTRL (MCBBGG(1)) NOBGG = 1 GO TO 100 80 DO 90 I = 2,7 90 MCBBGG(I) = 0 NOBGG = -1 100 RETURN C C SUBROUTINE SMA2 ERROR EXITS. C 9020 IFILE = IFCSTM GO TO 10002 9030 IFILE = - IFCSTM GO TO 10002 9070 IFILE = IFECPT GO TO 10001 9080 IFILE = IFECPT GO TO 10002 9090 IFILE = IFGPCT GO TO 10001 9100 IFILE = IFGPCT GO TO 10002 9110 IFILE = IFMGG GO TO 10002 9120 IFILE = IFBGG GO TO 10002 10001 IPARM = -1 GO TO 10010 10002 IPARM = -2 10010 CALL MESAGE (IPARM,IFILE,NMSMA2(1)) RETURN END ================================================ FILE: mis/sma2a.f ================================================ SUBROUTINE SMA2A C C THIS SUBROUTINE FORMERLY GENERATED THE MGG AND BGG MATRICES FOR C THE SMA2 MODULE. THESE OPERATIONS ARE NOW PERFORMED IN THE EMG C AND EMA MODULES AND SMA2A IS RETAINED IN SKELETAL FORM TO PROVIDE C A VEHICLE FOR USER-SUPPLIED ELEMENTS. C LOGICAL HEAT INTEGER IZ(1),EOR,CLSRW,CLSNRW,FROWIC,SYSPRT,TNROWS, 1 OUTRW DOUBLE PRECISION DZ,DPWORD DIMENSION INPVT(2),DZ(1),NAME(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /BLANK / WTMASS,NOMGG,NOBGG,ICMAS,ICMBAR,ICMROD,ICMQD1, 1 ICMQD2,ICMTR1,ICMTR2,ICMTUB,ICMQDP,ICMTRP,ICMTRB COMMON /SMA2HT/ HEAT COMMON /SYSTEM/ ISYS,ISEW1(53),IPREC COMMON /SMA2IO/ IFCSTM,IFMPT,IFDIT,IDUM1,IFECPT,IGECPT,IFGPCT, 1 IGGPCT,IDUM2,IDUM3,IFMGG,IGMGG,IFBGG,IGBGG,IDUM4, 2 IDUM5,INRW,OUTRW,CLSNRW,CLSRW,NEOR,EOR,MCBMGG(7), 3 MCBBGG(7) COMMON /ZZZZZZ/ Z(1) COMMON /SMA2BK/ ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT,I6X6M, 1 N6X6M,I6X6B,N6X6B COMMON /SMA2CL/ IOPTB,BGGIND,NPVT,LLEFT,FROWIC,LROWIC,NROWSC, 1 TNROWS,JMAX,NLINKS,LINK(10),NOGO COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1) COMMON /SMA2ET/ ECPT(200) COMMON /ZBLPKX/ DPWORD,DUM(2),INDEX EQUIVALENCE (Z(1),IZ(1),DZ(1)) DATA NAME / 4HSMA2,4HA / C IPR = IPREC C C READ THE FIRST TWO WORDS OF NEXT GPCT RECORD INTO INPVT(1). C INPVT(1) IS THE PIVOT POINT. INPVT(1) .GT. 0 IMPLIES THE PIVOT C POINT IS A GRID POINT. INPVT(1) .LT. 0 IMPLIES THE PIVOT POINT C IS A SCALAR POINT. INPVT(2) IS THE NUMBER OF WORDS IN THE C REMAINDER OF THIS RECORD OF THE GPCT. C 10 CALL READ (*1000,*700,IFGPCT,INPVT(1),2,NEOR,IFLAG) NGPCT = INPVT(2) CALL READ (*1000,*3000,IFGPCT,IZ(IGPCT+1),NGPCT,EOR,IFLAG) C C FROWIC IS THE FIRST ROW IN CORE. (1 .LE. FROWIC .LE. 6) C FROWIC = 1 C C DECREMENT THE AMOUNT OF CORE REMAINING. C LEFT = LLEFT - 2*NGPCT IF (LEFT .LE. 0) GO TO 3003 IPOINT = IGPCT + NGPCT NPOINT = NGPCT I6X6M = IPOINT + NPOINT I6X6M = (I6X6M-1)/2 + 2 C C CONSTRUCT THE POINTER TABLE, WHICH WILL ENABLE SUBROUTINE INSERT C TO ADD THE ELEMENT MASS AND/OR DAMPING MATRICES TO MGG AND/OR BGG. C IZ(IPOINT+1) = 1 I1 = 1 I = IGPCT J = IPOINT + 1 30 I1 = I1 + 1 IF (I1 .GT. NGPCT) GO TO 40 I = I + 1 J = J + 1 INC = 6 IF (IZ(I) .LT. 0) INC = 1 IZ(J) = IZ(J-1) + INC GO TO 30 C C JMAX = THE NUMBER OF COLUMNS OF MGG THAT WILL BE GENERATED WITH C THE CURRENT GRID POINT. C 40 INC = 5 ILAST = IGPCT + NGPCT JLAST = IPOINT + NPOINT IF (IZ(ILAST) .LT. 0) INC = 0 JMAX = IZ(JLAST) + INC C C TNROWS = THE TOTAL NUMBER OF ROWS OF THE MATRIX TO BE GENERATED C FOR THE CURRENT PIVOT POINT. C TNROWS = 6 IF THE CURRENT PIVOT POINT IS A GRID POINT. C TNROWS = 1 IF THE CURRENT PIVOT POINT IS A SCALAR POINT. C TNROWS = 6 IF (INPVT(1) .LT. 0) TNROWS = 1 C C IF 2*TNROWS*JMAX .LT. LEFT THERE ARE NO SPILL LOGIC PROBLEMS FOR C THE MGG SINCE THE WHOLE DOUBLE PRECISION SUBMATRIX OF ORDER C TNROWS*JMAX CAN FIT IN CORE. C ITEMP = TNROWS*JMAX IF (2*ITEMP .LT. LEFT) GO TO 80 CALL MESAGE (30,86,INPVT) C C THE WHOLE MATRIX CANNOT FIT IN CORE, DETERMINE HOW MANY ROWS CAN C FIT. IF TNROWS = 1, WE CAN DO NOTHING FURTHER. C IF (TNROWS .EQ. 1) GO TO 3003 NROWSC = 3 70 IF (2*NROWSC*JMAX .LT. LEFT) GO TO 90 NROWSC = NROWSC - 1 IF (NROWSC .EQ. 0) CALL MESAGE (-8,0,NAME) GO TO 70 80 NROWSC = TNROWS 90 FROWIC = 1 C C LROWIC IS THE LAST ROW IN CORE. (1 .LE. LROWIC .LE. 6) C LROWIC = FROWIC + NROWSC - 1 C C ZERO OUT THE MGG SUBMATRIX IN CORE C 100 LOW = I6X6M + 1 LIM = I6X6M + JMAX*NROWSC DO 115 I = LOW,LIM 115 DZ(I) = 0.0D0 C C CHECK TO SEE IF BGG MATRIX IS DESIRED. C IF (IOPTB .EQ. 0) GO TO 137 C C SINCE THE BGG MATRIX IS TO BE COMPUTED,DETERMINE WHETHER OR NOT IT C TOO CAN FIT IN CORE. C IF (NROWSC .NE. TNROWS) GO TO 120 IF (4*TNROWS*JMAX .LT. LEFT) GO TO 130 C C OPEN A SCRATCH FILE FOR BGG C 120 CALL MESAGE (-8,0,NAME) C C THIS CODE TO BE FILLED IN LATER C =============================== C 130 I6X6B = I6X6M + JMAX*TNROWS LOW = I6X6B + 1 LIM = I6X6B + JMAX*TNROWS DO 135 I = LOW,LIM 135 DZ(I) = 0.0D0 C C INITIALIZE THE LINK VECTOR TO -1. C 137 DO 140 I = 1,NLINKS 140 LINK(I) = -1 C C TURN FIRST PASS INDICATOR ON. C 150 IFIRST = 1 C C READ THE 1ST WORD OF THE ECPT RECORD, THE PIVOT POINT, INTO NPVT. C CALL FREAD (IFECPT,NPVT,1,0) C C READ THE NEXT ELEMENT TYPE INTO THE CELL ITYPE. C 160 CALL READ (*3025,*500,IFECPT,ITYPE,1,NEOR,IFLAG) IF (ITYPE.GE.53 .AND. ITYPE.LE.61) GO TO 165 CALL PAGE2 (-3) SYSPRT = ISEW1(1) WRITE (SYSPRT,161) UFM,ITYPE 161 FORMAT (A23,' 2202, ELEMENT TYPE',I4,' NO LONGER SUPPORTED BY ', 1 'SMA2 MODULE.', /5X, 2 'USE EMG AND EMA MODULES FOR ELEMENT MATRIX GENERATION') NOGO = 1 GO TO 1000 165 CONTINUE C C READ THE ECPT ENTRY FOR THE CURRENT TYPE INTO THE ECPT ARRAY. THE C NUMBER OF WORDS TO BE READ WILL BE NWORDS(ITYPE). C IDX = (ITYPE-1)*INCR CALL FREAD (IFECPT,ECPT,NE(IDX+12),0) ITEMP = NE(IDX+23) C C IF THIS IS THE 1ST ELEMENT READ ON THE CURRENT PASS OF THE ECPT C CHECK TO SEE IF THIS ELEMENT IS IN A LINK THAT HAS ALREADY BEEN C PROCESSED. C IF (IFIRST .EQ. 1) GO TO 170 C C THIS IS NOT THE FIRST PASS. IF ITYPE(TH) ELEMENT ROUTINE IS IN C CORE, PROCESS IT. C IF (ITEMP .EQ. LINCOR) GO TO 180 C C THE ITYPE(TH) ELEMENT ROUTINE IS NOT IN CORE. IF THIS ELEMENT C ROUTINE IS IN A LINK THAT ALREADY HAS BEEN PROCESSED READ THE NEXT C ELEMENT. C IF (LINK(ITEMP) .EQ. 1) GO TO 160 C C SET A TO BE PROCESSED LATER FLAG FOR THE LINK IN WHICH THE ELEMENT C RESIDES C LINK(ITEMP) = 0 GO TO 160 C C SINCE THIS IS THE FIRST ELEMENT TYPE TO BE PROCESSED ON THIS PASS C OF THE ECPT RECORD, A CHECK MUST BE MADE TO SEE IF THIS ELEMENT C IS IN A LINK THAT HAS ALREADY BEEN PROCESSED. IF IT IS SUCH AN C ELEMENT, WE KEEP IFIRST = 1 AND READ THE NEXT ELEMENT. C 170 IF (LINK(ITEMP) .EQ. 1) GO TO 160 C C SET THE CURRENT LINK IN CORE = ITEMP AND IFIRST = 0 C LINCOR = ITEMP IFIRST = 0 ITYPX = ITYPE - 52 C C CALL THE PROPER ELEMENT ROUTINE. C 180 GO TO ( C CDUM1 CDUM2 CDUM3 CDUM4 C 53 54 55 56 7 4983, 4984, 4985, 4986, C CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 C 57 58 59 60 61 8 4987, 4988, 4989, 4990, 4991 ) , ITYPX C C 4983 CALL MDUM1 GO TO 160 4984 CALL MDUM2 GO TO 160 4985 CALL MDUM3 GO TO 160 4986 CALL MDUM4 GO TO 160 4987 CALL MDUM5 GO TO 160 4988 CALL MDUM6 GO TO 160 4989 CALL MDUM7 GO TO 160 4990 CALL MDUM8 GO TO 160 4991 CALL MDUM9 GO TO 160 C C AT STATEMENT NO. 500 WE HAVE HIT AN EOR ON THE ECPT FILE. SEARCH C THE LINK VECTOR TO DETERMINE IF THERE ARE LINKS TO BE PROCESSED. C 500 LINK(LINCOR) = 1 DO 510 I = 1,NLINKS IF (LINK(I) .EQ. 0) GO TO 520 510 CONTINUE GO TO 525 C C SINCE AT LEAST ONE LINK HAS NOT BEEN PROCESSED THE ECPT FILE MUST C BE BACKSPACED. C 520 CALL BCKREC (IFECPT) GO TO 150 C C CHECK NOGO = 1 SKIP BLDPK C 525 IF (NOGO .EQ. 1) GO TO 10 C C AT THIS POINT BLDPK THE NUMBER OF ROWS IN CORE UNTO THE MGG FILE. C ASSIGN 580 TO IRETRN C C HEAT TRANSFER PROBLEM, SKIP MGG C IF (HEAT) GO TO 580 C IFILE = IFMGG IMCB = 1 C C MULTIPLY THE MASS MATRIX BY THE PARAMETER WTMASS IF IT IS NOT C UNITY C IF (WTMASS .EQ. 1.0) GO TO 530 LOW = I6X6M + 1 LIM = I6X6M + JMAX*NROWSC DO 527 I = LOW,LIM 527 DZ(I) = DZ(I)*WTMASS 530 I1 = 0 540 I2 = 0 IBEG = I6X6M + I1*JMAX CALL BLDPK (2,IPR,IFILE,0,0) 550 I2 = I2 + 1 IF (I2 .GT. NGPCT) GO TO 570 JJ = IGPCT + I2 INDEX = IABS(IZ(JJ)) - 1 LIM = 6 IF (IZ(JJ) .LT. 0) LIM = 1 JJJ = IPOINT + I2 KKK = IBEG + IZ(JJJ) - 1 I3 = 0 560 I3 = I3 + 1 IF (I3 .GT. LIM) GO TO 550 INDEX = INDEX + 1 KKK = KKK + 1 DPWORD = DZ(KKK) IF (DPWORD .NE. 0.0D0) CALL ZBLPKI GO TO 560 570 CALL BLDPKN (IFILE,0,MCBMGG(IMCB)) I1 = I1 + 1 IF (I1 .LT. NROWSC) GO TO 540 GO TO IRETRN, (580,600) C C IF THE BGG IS CALLED FOR BLDPK IT. C 580 IF (IOPTB .EQ. 0) GO TO 600 IF (IOPTB .EQ. -1) GO TO 590 C C THE BGG MATRIX IS IN CORE C ASSIGN 600 TO IRETRN I6X6M = I6X6B IFILE = IFBGG IMCB = 8 GO TO 530 C C HERE WE NEED LOGIC TO READ BGG FROM A SCRATCH FILE AND INSERT C 590 CONTINUE C C TEST TO SEE IF THE LAST ROW IN CORE, LROWIC, = THE TOTAL NO. OF C ROWS TO BE COMPUTED, TNROWS. IF IT IS, WE ARE DONE. IF NOT, THE C ECPT MUST BE BACKSPACED. C 600 IF (LROWIC .EQ. TNROWS) GO TO 10 CALL BCKREC (IFECPT) FROWIC = FROWIC + NROWSC LROWIC = LROWIC + NROWSC GO TO 100 C C CHECK NOGO = 1 SKIP BLDPK C 700 IF (NOGO .EQ. 1) GO TO 10 C C HERE WE HAVE A PIVOT POINT WITH NO ELEMENTS CONNECTED, SO THAT C NULL COLUMNS MUST BE OUTPUT ON THE MGG AND BGG FILES. C LIM = 6 IF (INPVT(1) .LT. 0) LIM = 1 DO 710 I = 1,LIM IF (HEAT) GO TO 705 CALL BLDPK (2,IPR,IFMGG,0,0) CALL BLDPKN (IFMGG,0,MCBMGG) 705 IF (IOPTB .NE. 1) GO TO 710 CALL BLDPK (2,IPR,IFBGG,0,0) CALL BLDPKN (IFBGG,0,MCBBGG) 710 CONTINUE CALL SKPREC (IFECPT,1) GO TO 10 C C RETURN SINCE AN EOF HAS BEEN HIT ON THE GPCT FILE C 1000 IF (NOGO .EQ.1) CALL MESAGE (-61,0,NAME) RETURN C C ERROR RETURNS C 3000 IFILE = IFGPCT IPARM = 3 GO TO 4010 3003 CALL MESAGE (-8,IFILE,NAME) 3025 IFILE = IFECPT IPARM = 2 4010 CALL MESAGE (-IPARM,IFILE,NAME) CALL MESAGE (-30,87,ITYPE) RETURN C END ================================================ FILE: mis/sma2b.f ================================================ SUBROUTINE SMA2B (KE,J,II,IFILE,DUMDP) C ****** C SUBROUTINE SMA2B ADDS A N X N DOUBLE PRECISION MATRIX, KE, TO THE C SUBMATRIX OF ORDER NROWSC X JMAX, WHICH IS IN CORE. N IS 1 IF EITHER C NPVT, THE PIVOT POINT, IS A SCALAR POINT, OR J, THE SECOND SUBSCRIPT C OF KE CORRESPONDS TO A SCALAR POINT, OR J .NE. TO ANY ENTRY IN THE C GPCT. OTHERWISE N IS 6. C ****** C C C C DOUBLE PRECISION 1 DZ(1) ,KE(36) 2, DUMDP C C C INTEGER 1 IZ(1) ,EOR 2, CLSRW ,CLSNRW 3, FROWIC 4, TNROWS ,OUTRW INTEGER ECPT C COMMON /BLANK/ NOBGG C C C COMMON /SYSTEM/ 1 ISYS(21), LINKNO COMMON /SEM / MASK(3) , LNKNOS(15) C C SMA2 I/O PARAMETERS C COMMON /SMA2IO/ 1 IFCSTM ,IFMPT 2, IFDIT ,IDUM1 3, IFECPT ,IGECPT 4, IFGPCT ,IGGPCT 5, IDUM2 ,IDUM3 6, IFMGG ,IGMGG 7, IFBGG ,IGBGG 8, IDUM4 ,IDUM5 9, INRW ,OUTRW T, CLSNRW ,CLSRW 1, NEOR ,EOR 2, MCBMGG(7) ,MCBBGG(7) C C SMA2 VARIABLE CORE C COMMON /ZZZZZZ / Z(1) C C SMA2 VARIABLE CORE BOOKKEEPING PARAMETERS C COMMON /SMA2BK/ 1 ICSTM ,NCSTM 2, IGPCT ,NGPCT 3, IPOINT ,NPOINT 4, I6X6M ,N6X6M 5, I6X6B ,N6X6B C C SMA2 PROGRAM CONTROL PARAMETERS C COMMON /SMA2CL/ 1 IOPTB ,BGGIND 2, NPVT ,LEFT 3, FROWIC ,LROWIC 4, NROWSC ,TNROWS 5, JMAX ,NLINKS 6, LINK(10) ,NOGO C C ECPT COMMON BLOCK C COMMON /SMA2ET/ 1 ECPT(100) C C C EQUIVALENCE 1 (Z(1),IZ(1),DZ(1)) C C C CALL EMG1B AND THEN RETURN IF THIS IS LINK 8. C PROCEED NORMALLY FOR OTHER LINKS. C IF (LINKNO.NE.LNKNOS(8)) GO TO 100 CALL EMG1B (KE, J, II, IFILE, DUMDP) RETURN C C DETERMINE WHICH MATRIX IS BEING COMPUTED. C 100 IBASE = I6X6M IF (IFILE .EQ. IFMGG) GO TO 5 IF (IOPTB .LT. 0) RETURN IBASE = I6X6B C C SEARCH THE GPCT AND FIND AN INDEX M SUCH THAT C IABS(GPCT(M)) .LE. J .LT. IABS(GPCT(M+1)) C 5 LOW = IGPCT + 1 LIM = NGPCT + LOW - 2 IF (LOW .GT. LIM) GO TO 15 DO 10 I = LOW,LIM ISAVE = I IF (J .GE. IABS(IZ(I+1)) ) GO TO 10 IF (J .GE. IABS(IZ(I)) ) GO TO 20 10 CONTINUE IF ( J .GE. IABS(IZ(ISAVE+1)) ) ISAVE = ISAVE + 1 GO TO 20 C C IF II .GT. 0, WE ARE DEALING WITH A SCALAR POINT. C 15 ISAVE = LOW 20 IF (II .GT. 0) GO TO 60 C C AT THIS POINT IT HAS BEEN DETERMINED THAT J IS A SCALAR INDEX NUMBER C WHICH CORRESPONDS TO A GRID POINT. HENCE THE DOUBLE PRECISION 6 X 6 C MATRIX, KE, WILL BE ADDED TO THE MATRIX. C L1 = FROWIC - 1 JJ = IPOINT + ISAVE - IGPCT J2 = IZ(JJ) - 1 I1 = 0 LIM = NROWSC - 1 30 IF (I1 .GT. LIM) RETURN K1 = IBASE + I1*JMAX + J2 J1 = 0 L = 6*L1 K = K1 40 J1 = J1 + 1 IF (J1 .GT. 6) GO TO 50 L = L + 1 K = K + 1 DZ(K) = DZ(K) + KE(L) GO TO 40 50 I1 = I1 + 1 L1 = L1 + 1 GO TO 30 C C AT THIS POINT WE ARE DEALING WITH A 1 X 1. C FIRST COMPUTE THE ROW NUMBER, NROW C 60 NROW = II - NPVT + 1 C C THE FOLLOWING 2 FORTRAN STATEMENTS ARE MERELY TO CHECK THE PROGRAM C LOGIC. EVENTUALLY THEY CAN BE DELETED. C IF (NROW .GE. 1 .AND. NROW .LE. TNROWS) GO TO 70 CALL MESAGE (-30,22,ECPT(1)) 70 LROWIC = FROWIC + NROWSC - 1 C C IF NROW, THE ROW INTO WHICH THE NUMBER KE(1) IS TO BE ADDED IS NOT C IN CORE IT CANNOT BE ADDED AT THIS TIME. C IF (NROW .LT. FROWIC .OR. NROW .GT. LROWIC) RETURN J2 = ISAVE J3 = IPOINT + ISAVE - IGPCT INDEX = IBASE + (NROW-1)*JMAX + IZ(J3) + J - IABS(IZ(J2)) DZ(INDEX) = DZ(INDEX) + KE(1) RETURN C END ================================================ FILE: mis/sma3.f ================================================ SUBROUTINE SMA3 C C THIS ROUTINE, FOR EACH GENERAL ELEMENT, READS THE GENERAL ELEMENT C INPUT FILE, GEI, CALLS SMA3A OR SMA3B, DEPENDING UPON WHETHER OR C NOT THE ORDERS OF THE K OR Z AND S MATRICES WILL ALLOW THE IN CORE C MATRIX ROUTINES (CALLED BY SMA3A) TO BE USED, AND THEN CALLS THE C MATRIX ADD ROUTINE TO ADD THE KGGX MATRIX TO THE GENERAL ELEMENT C MATRIX. C LOGICAL EVEN,ONLYGE INTEGER IQ(1),EOR,OUTRW,CLSRW,CLSNRW DOUBLE PRECISION DQ(1) DIMENSION IBUFF3(3),NAME(2),MCBID(7),BLOCK(11),IBLOCK(11) COMMON /BLANK / LUSET,NGENEL,NOECPT COMMON /SYSTEM/ KSYSTM(65) COMMON /ZZZZZZ/ Q(1) COMMON /GENELY/ IFGEI,IFKGGX,IFOUT,IFA,IFB,IFC,IFD,IFE,IFF,INRW, 1 OUTRW,CLSRW,CLSNRW,EOR,NEOR,MCBA(7),MCBB(7), 2 MCBC(7),MCBD(7),MCBE(7),MCBF(7),MCBKGG(7), 3 IUI,IUD,IZI,IS,IZIS,ISTZIS,IBUFF3,LEFT EQUIVALENCE (KSYSTM(1),ISYS),(KSYSTM(55),IPREC), 1 (IQ(1),DQ(1),Q(1)),(IBUFF3(2),M),(IBUFF3(3),N), 2 (MCBID(1),MCBC(1)),(BLOCK(1),IBLOCK(1)) DATA NAME / 4HSMA3,4H / C C GENERAL INITIALIZATION C IFGEI = 101 IFKGGX = 102 IF201 = 201 IF301 = 301 IF302 = 302 IF303 = 303 IF304 = 304 IF305 = 305 IF306 = 306 IFOUT = IF201 IFA = IF301 IFB = IF302 IFC = IF303 IFD = IF304 IFE = IF305 IFF = IF306 IFG = 307 INRW = 0 OUTRW = 1 CLSRW = 1 CLSNRW = 2 EOR = 1 NEOR = 0 C C DETERMINE THE SIZE OF VARIABLE CORE AVAILABLE AND SET IUI TO THE C ZEROTH LOCATION OF VARIABLE CORE. C IQMAX = KORSZ (Q) IUI = 0 C C OPEN THE GENERAL ELEMENT INPUT FILE AND SKIP OVER THE HEADER C RECORD. C IGGEI = IQMAX - ISYS + 1 CALL GOPEN (IFGEI,Q(IGGEI),0) IGA = IGGEI - ISYS C C DETERMINE IF THE NUMBER OF GENERAL ELEMENTS IS EVEN OR ODD. C EVEN = .TRUE. IF ((NGENEL/2)*2 .NE. NGENEL) EVEN = .FALSE. IPASS = 0 C C COMPUTE LENGTH OF OPEN CORE C LEFT = IGA - 1 NZ = LEFT C C READ THE TRAILER FOR KGGX TO SEE IF IT EXISTS. C ONLYGE = .FALSE. MCBKGG(1) = IFKGGX CALL RDTRL (MCBKGG(1)) IF (MCBKGG(1) .LT. 0) GO TO 12 IFB = MCBKGG(1) DO 10 I = 1,7 MCBB(I) = MCBKGG(I) 10 MCBKGG(I) = 0 GO TO 14 12 ONLYGE = .TRUE. C C INITIALIZATION PRIOR TO LOOP C 14 IF (ONLYGE) GO TO 21 IFOUT = IF201 IF (EVEN) IFOUT = IF302 GO TO 30 21 IFA = IFOUT IF (EVEN) IFA = IF302 C C BEGIN MAIN LOOP OF THE PROGRAM C 30 IPASS = IPASS + 1 C C READ THE ELEMENT ID, THE LENGTH OF THE UI SET, M, AND THE LENGTH C OF THE UD SET, N C CALL READ (*200,*210,IFGEI,IBUFF3(1),3,NEOR,IDUMMY) NEEDED = 2*(M+N+M**2 + N**2 + 2*M*N) ITEMP1 = 2*(M+N+ M**2) + 3*M IF (ITEMP1 .GT. NEEDED) NEEDED = ITEMP1 C C DETERMINE IF THERE IS ENOUGH CORE STORAGE AVAILABLE TO USE THE IN C CORE MATRIX ROUTINES. C IF (NEEDED .GT. LEFT) GO TO 140 C C C ********** IN CORE VERSION **************** C C USE THE IN CORE MATRIX ROUTINES. CALL SMA3A. C CALL MAKMCB (MCBA,IFA,0,6,IPREC) C C OPEN THE FILE ON WHICH THE CURRENT GENERAL ELEMENT WILL BE OUTPUT. C CALL GOPEN (IFA,Q(IGA),1) CALL SMA3A (MCBA) C C STORE THE CORRECT NUMBER OF ROWS IN THE 3RD WORD OF THE MATRIX C CONTROL BLOCK AND CLOSE THE FILE WITH REWIND. C MCBA(3) = MCBA(2) CALL WRTTRL (MCBA) CALL CLOSE (IFA,CLSRW) C C SUMATION C C JUMP TO 100 ONLY IF THIS IS THE FIRST PASS AND KGGX DOES NOT EXIST C 60 IF (IPASS.EQ.1 .AND. ONLYGE) GO TO 100 CALL MAKMCB (MCBKGG,IFOUT,0,6,IPREC) IBLOCK(1) = 1 BLOCK (2) = 1.0 BLOCK (3) = 0.0 BLOCK (4) = 0.0 BLOCK (5) = 0.0 BLOCK (6) = 0.0 IBLOCK(7) = 1 BLOCK (8) = 1.0 BLOCK (9) = 0.0 BLOCK(10) = 0.0 BLOCK(11) = 0.0 C C CLOSE GEI WITH NO REWIND SO SUBROUTINE ADD CAN HAVE THE BUFFER C CALL CLOSE (IFGEI,2) C C CALL SSG2C TO PERFORM SUMMATION - OUTPUT ON IFOUT C CALL SSG2C (IFA,IFB,IFOUT,0,BLOCK) IF (IPASS .EQ. NGENEL) GO TO 160 CALL RDTRL (MCBKGG) C C RESTORE GEI AFTER SUMATION C CALL GOPEN (IFGEI,Q(IGGEI),2) IF (IPASS .GT. 1) GO TO 130 100 IF (NGENEL .EQ. 1) GO TO 160 IFA = IF301 IFB = IF302 IFOUT = IF201 IF (.NOT.EVEN) GO TO 130 IFB = IF201 IFOUT = IF302 C C SWITCH FILES IFB AND IFOUT FOR NEXT GENEL PROCESSING C 130 DO 135 I = 1,7 II = MCBKGG(I) MCBKGG(I) = MCBB(I) 135 MCBB(I) = II II = IFOUT IFOUT = IFB IFB = II C C RETURN TO BEGIN LOOP C GO TO 30 C C *********** OUT OF CORE VERSION ************* C C IFOUT MUST CONTAIN THE RESULTS OF THE LAST GENEL PROCESSED C SWITCH FILES IFB AND IFOUT FOR OUT OF CORE VERSION C 140 IF (IPASS.EQ.1 .AND. ONLYGE .AND. .NOT.EVEN) GO TO 142 DO 141 I = 1,7 II = MCBKGG(I) MCBKGG(I) = MCBB(I) 141 MCBB(I) = II II = IFOUT IFOUT = IFB IFB = II C C THE IN CORE MATRIX ROUTINES CANNOT BE USED.SUBROUTINE SMA3B BUILDS C THE ZE IF Z IS INPUT OR THE ZINYS IF K IS INPUT AND IF PRESENT THE C SE MATRICES. IF THE SE MATRIX IS PRESENT ISE IS POSITIVE. C NOTE - SE(T) IS ON THE SE FILE. C 142 CALL SMA3B (ISE,IZK) IF (IZK .EQ. 2) GO TO 145 C C FACTOR DECOMPOSES THE ZE MATRIX INTO ITS UPPER AND LOWER C TRIANGULAR FACTORS. TWO SCRATCH FILES ARE NEEDED. C CALL FACTOR (IFA,IFE,IFF,IFD,IFC,IFG) C C CONVERT IFB INTO THE IDENTITY MATRIX. (MCBID HAS BEEN SET UP BY C SMA3B) C CALL WRTTRL (MCBID) C C COMPUTE Z INVERSE C CALL SSG3A (IFA,IFE,IFC,IFD,0,0,-1,0) 145 CONTINUE C C GO TO 150 IF NO SE MATRIX IS PRESENT. C IF (ISE .LT. 0) GO TO 150 C C T T -1 C COMPUTE -S XK OR -S XZ AND STORE ON IFF C E E E E C CALL SSG2B (IFB,IFD,0,IFF,0,IPREC,1,IFC) C C TRANSPOSE THE SE FILE ONTO IFA. HENCE IFA CONTAINS THE -SE MATRIX C CALL TRANP1 (IFB,IFA,1,IFC,0,0,0,0,0,0,0) C C -1 C COMPUTE K X-S OR Z X-S AND STORE ON IFE C E E E E C CALL SSG2B (IFD,IFA,0,IFE,0,IPREC,1,IFC) C C T T -1 C COMPUTE S XK XS OR S XZ XS AND STORE ON IFC C E E E E E E C CALL SSG2B (IFB,IFE,0,IFC,0,IPREC,1,IFA) C C SMA3C BUILDS THE FINAL MATRIX OF G (LUSET) SIZE. C MCBA(1) = IFA 150 CALL SMA3C (ISE,MCBA) C C RETURN FILES IFB AND IFOUT TO ORIGIONAL FILES AFTER OUT OF CORE C IF (IPASS.EQ.1 .AND. ONLYGE .AND. .NOT.EVEN) GO TO 60 DO 155 I = 1,7 II = MCBKGG(I) MCBKGG(I) = MCBB(I) 155 MCBB(I) = II II = IFOUT IFOUT = IFB IFB = II C C RETURN TO SUMATION C GO TO 60 C C WRAP-UP C 160 CALL CLOSE (IFGEI, CLSRW) IF (IFOUT .NE. IF201) CALL MESAGE (-30,28,5) RETURN C C FATAL ERROR MESSAGES C 200 CALL MESAGE (-2,IFGEI,NAME) 210 CALL MESAGE (-3,IFGEI,NAME) RETURN END ================================================ FILE: mis/sma3a.f ================================================ SUBROUTINE SMA3A (MCBCUR) C***** C THIS ROUTINE BUILDS A GENERAL ELEMENT MATRIX (DOUBLE PRECISION AND C SYMMETRIC) OF SIZE LUSET X LUSET. MCBCUR IS THE MATRIX CONTROL BLOCK C FOR THIS MATRIX. C***** DOUBLE PRECISION 1 DQ(1) ,DPWORD 2, DET INTEGER 1 IQ(1) ,EOR 2, OUTRW ,CLSRW 3, CLSNRW ,SMALL LOGICAL 1 ZONLY C DIMENSION 1 MCBCUR(7) ,MCB(7) 2, Q(1) ,IBUFF3(3) 3, NAME(2) C COMMON /BLANK/ 1 LUSET ,NGENEL 2, NOECPT COMMON /SYSTEM/ 1 ISYS ,DUMMY(53) 2, IPREC COMMON /ZZZZZZ/ 1 Q COMMON /GENELY/ 1 IFGEI ,IFKGGX 2, IFOUT ,IFA 3, IFB ,IFC 4, IFD ,IFE 5, IFF 8, INRW ,OUTRW 9, CLSRW ,CLSNRW T, EOR ,NEOR 1, MCBA(7) ,MCBB(7) 2, MCBC(7) ,MCBD(7) 3, MCBE(7) ,MCBF(7) 4, MCBKGG(7) 1, IUI ,IUD 2, IZI ,IS 3, IZIS ,ISTZIS 4, IBUFF3 ,LEFT COMMON /ZBLPKX/ 1 DPWORD ,DUM2(2) 2, INDEX C EQUIVALENCE 1 (IQ(1),DQ(1),Q(1)) 2, (IBUFF3(2),M) ,(IBUFF3(3),N) C DATA NAME(1)/4HSMA3/ ,NAME(2)/4HA / C C MAKE THE ARGUMENT A LOCAL VARIABLE C DO 10 I=1,7 10 MCB(I) = MCBCUR(I) C C READ THE UI SET OF SCALAR INDEX NUMBERS INTO OPEN CORE. C CALL FREAD(IFGEI,IQ(IUI+1),M,0) C C IUD POINTS TO THE ZEROTH LOCATION OF THE UD ARRAY. C IUD = IUI + M LEFT = LEFT - M C C SET UP ARITHMETIC CONSTANTS. C MPN = M + N MSQ = M**2 NSQ = N**2 ZONLY = .FALSE. IF (N .EQ. 0) ZONLY = .TRUE. IF (ZONLY) GO TO 20 C C SINCE N .NE. 0, THE UD SET EXISTS. READ IT INTO CORE. C CALL FREAD(IFGEI,IQ(IUD+1),N,0) LEFT = LEFT - N C C BUILD THE ARRAY IQ(IP+1),IQ(IP+2),...,IQ(IP+MPN) SUCH THAT C IQ(IP+K) = L IMPLIES IQ(IUI+L) IS THE K TH SMALLEST NUMBER OF THE C SET OF NUMBERS IQ(IUI+1),...,IQ(IUD+N) C 20 IP = IUI + MPN K = IP LIMK = IP + MPN LOW = IUI + 2 LIM = IUI + MPN 30 SMALL = IQ(IUI+1) ISMALL = IUI + 1 DO 40 J=LOW,LIM IF (IQ(J) .GE. SMALL) GO TO 40 SMALL = IQ(J) ISMALL = J 40 CONTINUE K = K + 1 IDIFF = ISMALL - IUI IQ(K) = IDIFF IQ(IDIFF) = IQ(IDIFF) + LUSET IF (K .LT. LIMK) GO TO 30 LOW = IUI + 1 DO 50 I=LOW,LIM IF (IQ(I) .LE. LUSET) CALL MESAGE (-30,28,5) 50 IQ(I) = IQ(I) - LUSET C C READ INDICATOR OF Z OR K MATRIX C CALL FREAD(IFGEI,IZK,1,0) C C SET UP POINTERS TO THE ZEROTH LOCATION OF THE DOUBLE PRECISION ARRAYS C -1 C K ORZ AND S C E E E C IZI = (IUI + 2*MPN - 1) / 2 + 2 IS = IZI + MSQ C C READ IN THE M**2 SINGLE PRECISION ELEMENTS OF THE SYMMETRIC Z OR K C INTO A TEMPORARY BUFFER BEGINNING AT Q(IBUFF) C IBUFF = IUI + 2 * (MPN + MSQ) C C IF ALL OF Z OR K CANNOT FIT INTO THIS BUFFER, READ BLOCKS OF M WORDS C IF (IBUFF + MSQ .GT. LEFT) GO TO 70 IND = NEOR IF (ZONLY) IND = EOR CALL FREAD(IFGEI,IQ(IBUFF+1),MSQ,IND) C C STORE THE SINGLE PRECISION MATRIX IN ITS DOUBLE PRECISION LOCATION. C LIM = IZI + MSQ I = IZI J = IBUFF 60 I = I + 1 IF (I .GT. LIM) GO TO 100 J = J + 1 DQ(I) = Q(J) GO TO 60 C C READ Z OR K INTO THE BUFFER M WORDS AT A TIME AND STORE M WORDS C AT A TIME C 70 IND = NEOR DO 90 K=1,M IF (K .EQ. M .AND. ZONLY) IND = EOR CALL FREAD(IFGEI,Q(IBUFF+1),M,IND) I = IZI + (K - 1) * M J = IBUFF LIM = I + M 80 I = I + 1 IF (I .GT. LIM) GO TO 90 J = J + 1 DQ(I) = Q(J) GO TO 80 90 CONTINUE C C IF K IS INPUT DO NOT COMPUTE INVERSE C 100 IF (IZK.EQ.2) GO TO 105 C***** C COMPUTE THE INVERSE OF Z C E C***** C C THE 4TH ARGUMENT OF INVERD IS A DUMMY D.P. ARGUMENT WHILE 3 * M C WORDS OF WORKING STORAGE ARE NEEDED FOR THE 8TH ARGUMENT OF SUBROUTINE C INVERD. SUBROUTINE INVERD WILL RETURN Z INVERSE AT DQ(IZI+1) C E C IBUFF = IUI + 2 * (MPN + MSQ) + 5 II = IBUFF + 2 * M C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERD (M,DQ(IZI+1),M,IQ(IBUFF+1),0,DET,ISING,IQ(II+1)) C C ISING = 2 IMPLIES A SINGULAR Z C E C IF (ISING .EQ. 2) CALL MESAGE (-5,IDUMMY,NAME) 105 CONTINUE C C READ IN THE M*N ELEMENTS OF THE M X N S MATRIX IF N .GT. 0. C THIS MATRIX IS SINGLE PRECISION AND ROW STORED. C IF (ZONLY) GO TO 130 IBUFF = MPN + 2*MSQ + 2*M*N +5 CALL FREAD(IFGEI,Q(IBUFF+1),M*N,1) C C STORE THE S MATRIX AT DQ(IS+1) MAKING S DOUBLE PRECISION C E E C LOW = IS + 1 LIM = IS + M*N J = IBUFF DO 110 I=LOW,LIM J = J + 1 110 DQ(I) = Q(J) C -1 C COMPUTE K S OR Z S AND STORE AT DQ(IZIS+1) C E E E E C IZIS = IS + M*N CALL GMMATD (DQ(IZI+1),M,M,0, DQ(IS+1),M,N,0, DQ(IZIS+1) ) C C T T -1 C COMPUTE S K S OR S Z S AND STORE AT DQ(ISTZIS+1) C E E E E E E C ISTZIS = IZIS + M*N CALL GMMATD (DQ(IS+1),M,N,1, DQ(IZIS+1),M,N,0, DQ(ISTZIS+1) ) C C -1 C SET K S OR Z S NEGATIVE C E E E E C LOW = IZIS + 1 LIM = IZIS + M*N DO 120 I=LOW,LIM 120 DQ(I) = -DQ(I) C***** C AT THIS POINT ALL MATRICES HAVE BEEN COMPUTED C***** C C INITIALIZE FOR OUTPUT ONTO THE FILE C 130 IZROW = 1 IZSCOL = 1 ICOL = 1 LIMJUI = IUI + M LIMJUD = IUI + MPN JUI = IUI + 1 JUD = IUD + 1 C****** C BEGIN OUTPUT LOOP C****** 140 ILOOP = 0 IF (ZONLY) GO TO 150 IF (IQ(JUI) - IQ(JUD)) 150,470,240 C C AT THIS POINT, WRITE OUT COLUMN(S) CORRESPONDING TO THE UI SET. C 150 IF (IQ(JUI) - ICOL) 160,190,170 C C A TRANSFER TO STATEMENT NO. 1115 WILL BE MADE IF THE MAXIMUM OF THE C UD SET IS LESS THAN THE MINIMUM OF THE UI SET AND THE COLUMNS C CORRESPONDING TO THE UD SET HAVE BEEN OUTPUT. C 160 IF (ILOOP .EQ. 1 .OR. ZONLY) GO TO 480 ILOOP = 1 GO TO 240 C C SINCE IQ(JUI) .GT. ICOL, IQ(JUI) - ICOL COLUMNS OF ZERO VECTORS MUST C BE OUTPUT. C 170 LIM = IQ(JUI) - ICOL DO 180 I=1,LIM CALL BLDPK (2, IPREC, MCB(1), 0, 0) 180 CALL BLDPKN(MCB(1),0,MCB) C C INITIALIZE FOR THE OUTPUT OF THE CURRENT COLUMN BY CALLING BLDPK C 190 CALL BLDPK (2, IPREC, MCB(1), 0, 0) DO 220 I=1,MPN IPPI = IP + I IF (IQ(IPPI) .GT. M) GO TO 200 C C SINCE IQ(IPPI).LE.M,OUTPUT AN ELEMENT OF K OR Z INVERSE C JROW = IZROW JCOL = IQ(IPPI) K = (JROW - 1) * M + JCOL + IZI GO TO 210 C C HERE WE ARE DEALING WITH A MEMBER OF THE UD SET. HENCE AN ELEMENT OF C -1 C THE -K S OR -Z S MATRIX MUST BE OUTPUT C E E E E C 200 JROW = IZROW JCOL = IQ(IPPI) - M K = (JROW - 1) * N + JCOL + IZIS C C FILL ZBLPKI COMMON BLOCK C 210 KK = IQ(IPPI) INDEX = IQ(KK) DPWORD = DQ(K) IF (DPWORD .NE. 0.0D0) CALL ZBLPKI 220 CONTINUE C C THE CURRENT COLUMN IS COMPLETE. CALL BLDPKN TO WRAP UP. C CALL BLDPKN(MCB(1),0,MCB) IZROW = IZROW + 1 ICOL = IQ(JUI) + 1 JUI = JUI + 1 IF (JUI .GT. LIMJUI) JUI = LIMJUI 230 IF (IZROW .GT. M .AND. IZSCOL .GT. N) GO TO 320 GO TO 140 C C AT THIS POINT WRITE OUT A COLUMN(S) USING THE UD SET. C 240 IF (IQ(JUD) - ICOL) 250,280,260 C C A TRANSFER TO STATEMENT NO. 1185 WILL BE MADE IF THE MAXIMUM OF THE C UI SET IS LESS THAN THE MINIMUM OF THE UD SET AND THE COLUMNS C CORRESPONDING TO THE UI SET HAVE BEEN OUTPUT. C 250 IF (ILOOP .EQ. 1) GO TO 490 ILOOP = 1 GO TO 150 C C WRITE ZERO COLUMN(S). C 260 LIM = IQ(JUD) - ICOL DO 270 I=1,LIM CALL BLDPK (2, IPREC, MCB(1), 0, 0) 270 CALL BLDPKN(MCB(1),0,MCB) 280 CALL BLDPK (2, IPREC, MCB(1), 0, 0) C C OUTPUT A COLUMN WHOSE SIL NO. IS A MEMBER OF THE UD SET. C DO 310 I=1,MPN IPPI = IP + I IF (IQ(IPPI) .GT. M) GO TO 290 C C -1 C SINCE IQ(IPPI).LE.M,AN ELEMENT OF -KS OR -Z S MUST BE OUTPUT C JROW = IQ(IPPI) JCOL = IZSCOL K = (JROW - 1) * N + JCOL + IZIS GO TO 300 C C T T -1 C OUTPUT AN ELEMENT OF S K S OR S Z S C E E E E E E C 290 JROW = IQ(IPPI) - M JCOL = IZSCOL K = (JROW - 1) * N + JCOL + ISTZIS C C SET UP PARAMETERS IN ZBLPKI COMMON BLOCK C 300 KK = IQ(IPPI) INDEX = IQ(KK) DPWORD = DQ(K) IF (DPWORD .NE. 0.0D0) CALL ZBLPKI 310 CONTINUE C C WRAP UP THIS COLUMN. C CALL BLDPKN(MCB(1),0,MCB) IZSCOL = IZSCOL + 1 ICOL = IQ(JUD)+ 1 JUD = JUD + 1 IF (JUD .GT. LIMJUD) JUD = LIMJUD GO TO 230 C C DETERMINE IF ZERO COLUMNS ARE TO BE OUTPUT. C 320 K = IUI + M L = IUD + N MAX = IQ(K) IF (IQ(L) .GT. MAX) MAX = IQ(L) LIM = MAX - LUSET IF (LIM) 330,350,500 C C OUTPUT LIM ZERO COLUMNS C 330 LIM = IABS(LIM) DO 340 I = 1,LIM CALL BLDPK (2, IPREC, MCB(1), 0, 0) 340 CALL BLDPKN(MCB(1),0,MCB) 350 DO 360 I=1,7 360 MCBCUR(I) = MCB(I) RETURN C C FATAL ERROR MESSAGES C 470 CALL MESAGE (-30,28,1) 480 CALL MESAGE (-30,28,2) 490 CALL MESAGE (-30,28,3) 500 CALL MESAGE (-30,28,4) RETURN END ================================================ FILE: mis/sma3b.f ================================================ SUBROUTINE SMA3B(IFLAG,IZK) C C THIS ROUTINE PROCESSES A GENERAL ELEMENT FROM GEI C C IT PRODUCES A ZE MATRIX OR A ZINVS MATRIX AND A SE MATRIX C C ASSUMES GEI SITS AT BEGINNING OF UI SET AND IS OPEN TO READ C DOUBLE PRECISION D11 INTEGER SYSBUF,ZE,SE,GEI,SE1,ZE1,ZINVS DIMENSION ZE(7),SE(7) C COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF COMMON /ZBLPKX/D11(2),IDX COMMON/GENELY/GEI,DUM1(2),ZE1,SE1,ID1,ZINVS,DUM2(22),ID(7), 1 DUM4(35),M,N C C COMPUTE LENGTH OF VARIABLE CORE C NZ = KORSZ(Z)-SYSBUF IFLAG=-1 NZ =NZ -SYSBUF C C SKIP M+N WORDS ON GEI FILE C CALL FREAD(GEI,Z,M+N,0) C C READ FLAG VARIABLE FOR Z OR K MATRIX C CALL FREAD(GEI,IZK,1,0) C C IF Z MATRIX INPUT,WRITE ON ZE1 FILE C IF K MATRIX INPUT,WRITE ON ZINVS FILE C CALL MAKMCB(ZE,ZE1,M,6,2) IF (IZK.EQ.2) ZE(1)=ZINVS CALL MAKMCB(SE,SE1,N,2,2) C C READY FOR PACKING MATRICES C C C OPEN ZE MATRIX C CALL GOPEN(ZE,Z(NZ+1),1) C C LOOP ON M COLUMNS OF ZE C DO 20 I=1,M CALL BLDPK(2,2,ZE(1),0,0) DO 10 J=1,M CALL FREAD(GEI,Z,1,0) D11(1) = Z(1) IDX = J 10 CALL ZBLPKI CALL BLDPKN(ZE(1),0,ZE) 20 CONTINUE CALL CLOSE( ZE(1),1) CALL WRTTRL( ZE ) IF(N .EQ. 0) GO TO 50 IFLAG =1 C C NOW BUILD SE TRANSPOSE C C C OPEN AND WRITE HEADER C CALL GOPEN(SE,Z(NZ+1),1) C C LOOP ON N COLUMNS OF SE C LOOP ON M COLUMNS OF SE TRANSPOSE C DO 40 I=1,M CALL BLDPK(2,2,SE(1),0,0) DO 30 J=1,N CALL FREAD(GEI,Z,1,0) D11(1) = -Z(1) IDX = J 30 CALL ZBLPKI CALL BLDPKN(SE(1),0,SE) 40 CONTINUE CALL CLOSE(SE(1),1) CALL WRTTRL(SE) C C BACKSPACE GEI SO UD AND UI AVAILABLE LATER C 50 CALL BCKREC(GEI) CALL CLOSE(GEI,2) ID(1) = ID1 ID(2)=M ID(3)=M ID(4)=8 ID(5)=2 ID(6)=1 ID(7)=0 RETURN END ================================================ FILE: mis/sma3c.f ================================================ SUBROUTINE SMA3C(IFLAG,K) C C THIS ROUTINE WILL MERGE ZINVS,ZS,STZ,AND STZS INTO KE AND C BUILD KE UP TO G SIZE. IF INFLAG .LT. 0 THERE ARE NO C UD-S C DOUBLE PRECISION A11,B11,D11 INTEGER ZINVS,ZS,STZ,STZS,GEI,SYSBUF,NAME(2),IZ(1) DIMENSION BLOCK1(20),BLOCK2(20),K(7) C COMMON /BLANK/LUSET COMMON /ZZZZZZ/ Z(1) COMMON /ZBLPKX/ D11(2),ID COMMON /SYSTEM/ SYSBUF, DUMMY(53), IPREC COMMON /GENELY/GEI,DUM(4),STZS(1),ZINVS(1),ZS(1),STZ(1),DUM1(62), 1 M,N C EQUIVALENCE (Z(1),IZ(1)) DATA NAME / 4HSMA3,4HC / C C IUI IS POINTER TO UI SET, IUD IS POINTER TO UD SET C IUI =1 IUD =M+1 NZ = KORSZ(Z) C C OPEN GEI(WITHOUT REWIND) C NZ = NZ -SYSBUF CALL GOPEN(GEI,Z(NZ+1),2) C C READ IN UI SET C CALL FREAD(GEI,Z,-3,0) CALL FREAD(GEI,Z, M,0) C C READ IN UD C IF (IFLAG .LT. 0) GO TO 10 CALL FREAD(GEI,Z(IUD),N,1) C C OPEN BUFFERS FOR MATRICES C 10 LLEN = M+N+2*SYSBUF IF(IFLAG .GE. 0) LLEN = LLEN+3*SYSBUF IF (LLEN .GT. NZ) GO TO 220 NZ = NZ-SYSBUF CALL GOPEN(K,Z(NZ+1),1) NZ = NZ -SYSBUF CALL GOPEN(ZINVS,Z(NZ+1),0) IF (IFLAG .LT. 0) GO TO 20 NZ =NZ -SYSBUF CALL GOPEN(ZS,Z(NZ+1),0) NZ =NZ -SYSBUF CALL GOPEN(STZ,Z(NZ+1),0) NZ =NZ -SYSBUF CALL GOPEN(STZS,Z(NZ+1),0) C C LOOP ON LUSET MAKING COLUMNS OF KGG C 20 K(2) = 0 K(3) = LUSET K(4) = 6 K(5) = 2 K(6) = 0 K(7) = 0 IIP = 0 IDP = 0 DO 170 I=1,LUSET CALL BLDPK (2, IPREC, K(1), 0, 0) IF( IIP.GE.M ) GO TO 25 L = IUI + IIP IF (I .EQ. IZ(L)) GO TO 30 25 CONTINUE IF (IFLAG .LT. 0) GO TO 160 IF( IDP.GE.N ) GO TO 160 L = IUD + IDP IF (I .EQ. IZ(L)) GO TO 40 GO TO 160 C C USING UI -- ZINVS AND STZ C 30 IIP = IIP +1 NAM1 = ZINVS(1) NAM2 = STZ(1) GO TO 50 C C USING UD ZS AND STZS C 40 IDP = IDP +1 NAM1 = ZS(1) NAM2 = STZS(1) C C MERGE ROUTINE FOR COLUMN C 50 IAD = 0 IBD = 0 IHOP = 0 CALL INTPK(*140,NAM1,BLOCK1(1),2,1) 60 IF(IFLAG .LT. 0) GO TO 150 CALL INTPK(*150,NAM2,BLOCK2(1),2,1) 70 CALL INTPKI(A11,IA,NAM1,BLOCK1(1),IAEOL) L= IUI +IA -1 II = IZ(L) IF (IHOP .EQ. 1) GO TO 90 IHOP = 1 80 CALL INTPKI(B11,IB,NAM2,BLOCK2(1),IBEOL) L = IUD +IB -1 JJ = IZ(L) 90 IF (II-JJ) 100,320,120 C C PUT IN A11 C 100 D11(1) =A11 ID = II CALL ZBLPKI IF (IAEOL) 110,70,110 110 IAD = 1 II = 99999 IF(IBD) 160,120,160 C C PUT IN BUU C 120 D11(1) = B11 ID = JJ CALL ZBLPKI IF (IBEOL) 130,80,130 130 IBD = 1 JJ = 99999 IF(IAD) 160,100,160 C C NULL NAM1 C 140 IAD =1 II = 99999 GO TO 60 C C NO NAM2 C 150 IBD =1 JJ = 99999 IHOP =1 GO TO 70 C C END OF COLUMN C 160 CALL BLDPKN(K(1),0,K) C C END LOOP C 170 CONTINUE CALL WRTTRL (K) CALL CLOSE (K(1),1) CALL CLOSE (ZINVS(1),1) IF (IFLAG .LT. 0) GO TO 180 CALL CLOSE (STZ(1),1) CALL CLOSE (STZS(1),1) CALL CLOSE (ZS(1),1) 180 RETURN C C ERROR MESAGES C 220 CALL MESAGE(-8,GEI,NAME) 320 CALL MESAGE(-7,0,NAME) RETURN END ================================================ FILE: mis/smc2cd.f ================================================ SUBROUTINE SMC2CD ( ZI, ZD, ZIL, ZOL, NAR, LASROW, DTEMP & , I1, I2, I3 ) C C ZIL = INNER LOOP TERMS (SIZE = MAXNAC * (MAXNCOL+NEXTRA) C ZOL = OUTER LOOP TERMS (SIZE = (MAXNCOL+NEXTRA) * 2) C NAR = SAVE AREA FOR ACTIVE ROWS OF PREVIOUS COLUMN C I1 = MAXIMUM NUMBER OF ACTIVE ROWS FOR THIS COLUMN C I2 = NUMBER OF COLUMNS ALLOCATED FOR STORAGE OF INNER AND C NUMBER OF ROWS ALLOCATED FOR OUTER LOOP C I3 = MAXIMUM NUMBER OF WORDS FOR DEFINING THE ACTIVE ROWS FOR C ANY COLUMN C LASROW = LAST NON-ZERO ROW INDEX FOR A GIVEN COLUMN (SIZE = MAXNCOL C +NEXTRA) C DOUBLE COMPLEX DTEMP(I3) DOUBLE COMPLEX ZIL( I1, I2 ), ZOL( I2, 2 ), ZOLTMP DOUBLE PRECISION ZD(10) INTEGER ZI(10), NAR( I3 ) INTEGER LASROW(I2) INCLUDE 'SMCOMX.COM' C C GET ROW VALUES CORRESPONDING TO THE ACTIVE ROWS OF COLUMN K FOR C EACH COLUMN KFRCOL THROUGH KLSCOL IN ORDER TO FILL INNER LOOP AND C OUTER LOOP AREAS. C C BEGIN TO PROCESS EACH COLUMN C FOR COLUMN K, GET OUTER LOOP TERMS C A(K,J) / A(J,J) C K = CURRENT PIVOTAL COLUMN C J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1 C (E.G., C A(5,1)/A(1,1) C A(5,2)/A(2,2) C A(5,3)/A(3,3) C A(5,4)/A(4,4) C ALSO, GET INNER LOOP TERMS C A(I,J) C K = CURRENT PIVOTAL COLUMN C I = RANGES FROM K TO LAST ACTIVE ROW OF COLUMN K C J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1 C (E.G., C A(5,1) A(6,1) . A(N,1) C A(5,2) A(6,2) . A(N,2) C A(5,3) A(6,3) . A(N,3) C A(5,4) A(6,4) . A(N,4) C C LOOP 7000 WILL BE ON K C LOOP 6000 WILL BE ON J C IC1 = 1 IC2 = 2 IILROW1 = 1 C print *,' i1,i2,i3,maxncol,maxnac=',i1,i2,i3,maxncol,maxnac DO 7000 K = 1, NCOL KK = MOD( K, I2 ) IF ( KK .EQ. 0 ) KK = I2 LASROW( KK ) = 0 C PRINT *,' SMC2CD PROCESSING COLUMN K=',K KCOL = K KDIR = K*4 - 3 KMIDX = ZI( KDIR ) C C SEE IF DATA IS ON IN MEMORY OR ON THE SPILL FILE C IF ( KMIDX .NE. 0 ) GO TO 500 C C DATA IS ON THE SPILL FILE C CALL SMCSPL ( KCOL, ZI ) KMIDX = ZI( KDIR ) 500 CONTINUE KFRCOLP= KFRCOL KLSCOLP= KLSCOL KFRCOL = ZI( KDIR+1 ) KM2 = ZI( KMIDX+1) KRIDXN = KMIDX + 4 + KM2 KLSCOL = K - 1 KRIDX = KMIDX+4 KRIDXS = KRIDX KROW1 = ZI( KRIDX ) KROWN = KROW1 + ZI( KRIDX+1 ) - 1 KAROWS = 0 DO 510 KK = 1, KM2, 2 KAROWS = KAROWS + ZI( KRIDX+KK ) 510 CONTINUE C C IF THE PREVIOUS COLUMN DID NOT NEED DATA FROM A COLUMN PRECEEDING IT, C THEN MUST RELOAD THE INNER AND OUTER LOOP ARRAYS C IF ( KLSCOLP .LT. KFRCOLP ) GO TO 1350 C C NOW MUST FIND THE ROW AND COLUMN NUMBER FOR THIS PIVOT COLUMN C THAT IS NOT ALREADY IN THE INNER LOOP AND OUTER LOOP ARRAYS. C FIRST CHECK THAT THE FIRST REQUIRED ROW IS STORED, IF NOT THEN WE MUST C BEGIN AS IF NOTHING STORED. IF SOME OF THE REQUIRED ROWS ARE PRESENT, C THEN FIND THE NEXT POSITION AND ROW NUMBER TO BE STORED IN THE INNER C LOOP ARRAY AND THE NEXT POSITION AND COLUMN NUMBER TO BE STORED IN THE C OUTER LOOP ARRAY. C C IF THE FIRST COLUMN IS LESS THAN FIRST COLUMN OF LAST PIVOT COLUMN C THEN WE MUST LOAD THE INNER AND OUTER LOOPS FROM THE BEGINNING C IF ( KFRCOL .LT. KFRCOLP ) GO TO 1350 KR = 1 LROW1 = NAR( 1 ) LROWN = NAR( 1 ) + NAR( 2 ) - 1 C C LROW1 = FIRST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT C COLUMN PROCESSED C LROWN = LAST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT COLUMN C PROCESSED C C FIND FIRST ROW IN INNER LOOP THAT MATCHES THE FIRST ROW REQUIRED C FOR THIS COLUMN C C IF THERE IS NO MATCH FOR THE FIRST COLUMN, THEN GO TO 1350 C 1105 CONTINUE IF ( LROW1 .GT. KROW1 ) GO TO 1350 IF ( KROW1 .LT. LROWN ) GO TO 1100 C C NO OVERLAP WITH THIS STRING, GO AND GET NEXT STRING C ADJUST 'ILLROW1' WHICH IS THE POINTER TO THE FIRST ROW IN THE INNER C LOOP THAT CONTAINS THE VALUE OF ROW "KROW1" OF EACH COLUMN. C INCR = LROWN - LROW1 + 1 IILROW1 = IILROW1 + INCR IF ( IILROW1 .GT. I1 ) IILROW1 = IILROW1 - I1 KR = KR + 2 LROW1 = NAR( KR ) IF ( LROW1 .EQ. 0 ) GO TO 1350 LROWN = LROW1 + NAR( KR+1 ) - 1 GO TO 1105 1100 CONTINUE C C THERE IS AN OVERLAP, SET KROWB, KROWSB, AND IILROW1 TO REFLECT C THE PROPER ROW NUMBER IN THE INNER LOOP C INCR = KROW1 - LROW1 KROWB = KROW1 KROWSB = KROWN - KROWB + 1 KRIDXS = KRIDX IILROW1 = IILROW1 + INCR IF ( IILROW1 .GT. I1 ) IILROW1 = IILROW1 - I1 LROW1 = KROW1 IILROW = IILROW1 1120 IF ( LROW1 .NE. KROW1 ) GO TO 1180 IF ( LROWN .EQ. KROWN ) GO TO 1130 IF ( LROWN .LT. KROWN ) GO TO 1140 IF ( LROWN .GT. KROWN ) GO TO 1150 C C THIS SET OF ROWS MATCHES, GO AND CHECK THE NEXT SET OF ROW NUMBERS C 1130 CONTINUE INCR = KROWN - KROWB + 1 IILROW = IILROW + INCR IF ( IILROW .GT. I1 ) IILROW = IILROW - I1 KRIDX = KRIDX + 2 IF ( KRIDX .EQ. KRIDXN ) GO TO 1170 KR = KR + 2 KROW1 = ZI( KRIDX ) KROWB = KROW1 KROWSB = ZI( KRIDX+1 ) KROWN = KROW1 + KROWSB -1 KRIDXS = KRIDX LROW1 = NAR( KR ) LROWN = LROW1 + NAR( KR+1 ) - 1 IF ( LROW1 .EQ. 0 ) GO TO 1180 GO TO 1120 C C LAST ROW NUMBERS DO NOT MATCH, KROWN GT LROWN C 1140 CONTINUE INCR = LROWN - KROWB + 1 1145 KROWB = KROWB + INCR KROWSB = KROWSB - INCR KRIDXS = KRIDX IILROW = IILROW + INCR IF ( IILROW .GT. I1 ) IILROW = IILROW - I1 GO TO 1180 C C LAST ROW NUMBERS DO NOT MATCH, KROWN LT LROWN C 1150 CONTINUE INCR = LROWN - LROW1 + 1 GO TO 1145 C C ROWS MATCH FOR INNER LOOP COLUMN VALUES, NOW DETERMINE THE COLUMN INDEX C FOR THE NEXT COLUMN TO ADD TO THE INNER AND OUTER LOOP ARRAYS. 1170 CONTINUE KFRCOLG = KLSCOLP+1 IILROW = IILROW1 GO TO 1400 C C NOT ALL NEEDED ROW VALUES ARE PRESENT, MUST GET NEEDED ROWS C FOR ALL COLUMNS REQUIRED FOR THIS PIVOT COLUMN C 1180 CONTINUE KFRCOLG = KFRCOL GO TO 1400 C C NO MATCH FOUND, WILL START LOADING THE INNER AND OUTER LOOP ARRAYS C FROM THE BEGINNING C 1350 IILROW1 = 1 IILROW = 1 KROWB = KROW1 KROWSB = KROWN - KROW1 + 1 KFRCOLG = KFRCOL 1400 CONTINUE KRIDX = KMIDX+4 DO 1450 J = 1, KM2 NAR( J ) = ZI( KRIDX+J-1 ) 1450 CONTINUE NAR( KM2+1 ) = 0 IILROWB = IILROW C C KFRCOL = FIRST COLUMN NEEDED FOR PIVOT COLUMN "K" C KLSCOL = LAST COLUMN NEEDED FOR PIVOT COLUMN "K" C KFRCOLG = FIRST COLUMN TO BE PLACED IN INNER/OUTER LOOP ARRAYS C KFRCOLP = FIRST COLUMN OF LAST PIVOT COLUMN PROCESSED C KLSCOLP = LAST COLUMN OF LAST PIVOT COLUMN PROCESSED C C PRINT *,' KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS=' C PRINT *, KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS C PRINT *,' KROWB,KROWSB,IILROW1,IILROW,kridx=' C PRINT *, KROWB,KROWSB,IILROW1,IILROW,kridx C C KLSCOL WILL BE LESS THAN KFRCOLG FOR THE FIRST COLUMN AND FOR ANY C COLUMN THAT DOES NOT NEED A PRECEEDING COLUMN OF DATA C IF ( KLSCOL .LT. KFRCOLG ) GO TO 6000 DO 3000 J = KFRCOLG, KLSCOL IILCOL = MOD ( J, I2 ) IF ( IILCOL .EQ. 0 ) IILCOL = I2 JCOL = J JDIR = J*4 - 3 JMIDX = ZI( JDIR ) C C SEE IF COLUMN DATA IS IN MEMORY OR ON THE SPILL FILE C IF ( JMIDX .NE. 0 ) GO TO 1500 C C DATA IS ON THE SPILL FILE C CALL SMCSPL ( JCOL, ZI ) IF ( ZI( JDIR ) .EQ. 0 ) JMIDX = ISPILL IF ( ZI( JDIR ) .NE. 0 ) JMIDX = ZI( JDIR ) 1500 CONTINUE JRIDX = JMIDX + 4 JM2 = ZI( JMIDX + 1 ) JRIDXN = JRIDX + JM2 JROWL = ZI( JRIDX+JM2-2 ) + ZI( JRIDX+JM2-1 ) - 1 JVIDX = JRIDXN C C SAVE DIAGONAL TERM FOR COLUMN J ; (ALWAYS, THE FIRST TERM) C JVIDX = JVIDX / 2 + 1 ZOL( IILCOL, IC2 ) = (1.0D0,0.0D0) / & CMPLX( ZD(JVIDX), ZD(JVIDX+1) ) C C FOR EACH COLUMN J, GET REQUIRED ROWS; I.E, ACTIVE ROWS OF COLUMN K C IF ( J .GT. KLSCOLP ) GO TO 1530 C C SET VARIABLES FOR ADDING ROW TERMS TO AN EXISTING COLUMN IN THE INNER LOOP C KRIDX = KRIDXS KROW = KROWB KROWS = KROWSB IILROW = IILROWB C C SET LASROW TO ZERO IF THIS COLUMN IS BEING RELOADED INTO ZIL AND NOT C BEING ADDED TO FROM SOME PREVIOUS COLUMN PROCESSING. C IF ( IILROWB .EQ. IILROW1 ) LASROW( J ) = 0 GO TO 1540 1530 CONTINUE C C MUST RESET KRIDX, KROW AND KROWS FOR INSERTION OF NEW COLUMN IN INNER LOOP C KRIDX = KMIDX+4 KROW = ZI( KRIDX ) KROWS = ZI( KRIDX+1 ) IILROW = IILROW1 1540 CONTINUE KROWN = KROW + KROWS - 1 C C JROWL IS LAST ROW TERM IN COLUMN "J". IF THIS IS BEFORE THE FIRST ROW C "KROW" TERM NEEDED, THEN NO MORE TERMS ARE NEEDED FROM COLUMN "J" AND C "LASROW" WILL INDICATE THE LAST VALUE STORED FOR COLUMN "J". C IF ( JROWL .LT. KROW ) GO TO 3000 2000 JROW = ZI( JRIDX ) JROWS = ZI( JRIDX+1 ) JROWN = JROW + JROWS - 1 2010 CONTINUE IF ( JROWN .LT. KROW ) GO TO 2895 IF ( JROW .GT. KROWN ) GO TO 2400 MISSIN = KROW - JROW C C CHECK TO SEE IF THERE ARE MISSING TERMS, I.E., TERMS CREATED DURING C THE DECOMPOSITION. IF THERE ARE MISSING TERMS, THEN SET THEIR VALUES C TO BE INITIALLY ZERO. C IF ( MISSIN .GE. 0 ) GO TO 2050 NZEROS = IABS( MISSIN ) C C STORE "NZEROS" NUMBER OF ZEROS FOR INNER LOOP TERMS C IAVAIL = I1 - ( IILROW+NZEROS-1 ) IF ( IAVAIL .LT. 0 ) GO TO 2022 DO 2020 I = 1, NZEROS ZIL( IILROW+I-1, IILCOL ) = (0.0D0,0.0D0) 2020 CONTINUE IILROW = IILROW + NZEROS GO TO 2028 2022 ILIM1 = I1 - IILROW + 1 ILIM2 = NZEROS - ILIM1 DO 2024 I = 1, ILIM1 ZIL( IILROW+I-1, IILCOL ) = (0.0D0,0.0D0) 2024 CONTINUE DO 2026 I = 1, ILIM2 ZIL( I, IILCOL ) = (0.0D0,0.0D0) 2026 CONTINUE IILROW = ILIM2 + 1 2028 CONTINUE KROW = KROW + NZEROS KROWS = KROWS - NZEROS 2050 CONTINUE IF ( MISSIN .LE. 0 ) GO TO 2070 ISKIP = KROW - JROW JVIDX = JVIDX + ISKIP*2 JROW = JROW + ISKIP 2070 CONTINUE IROWN = MIN0 ( KROWN, JROWN ) NUM = IROWN - KROW + 1 C C MOVE INNER LOOP VALUES FROM IN-MEMORY LOCATION TO C THE INNER LOOP AREA C NROWS = IROWN - KROW + 1 IF ( NROWS .GT. ( I1 - IILROW + 1 ) ) GO TO 2120 DO 2100 I = 1, NROWS IX2 = I*2 ZIL( IILROW+I-1,IILCOL ) = CMPLX(ZD(JVIDX+IX2-2 ),ZD(JVIDX+IX2-1)) 2100 CONTINUE IILROW = IILROW + NROWS GO TO 2180 2120 ILIM1 = I1 - IILROW + 1 ILIM2 = NROWS - ILIM1 DO 2122 I = 1, ILIM1 IX2 = I*2 ZIL( IILROW+I-1, IILCOL ) = CMPLX(ZD(JVIDX+IX2-2),ZD(JVIDX+IX2-1)) 2122 CONTINUE JVTMP = JVIDX + ILIM1*2 DO 2124 I = 1, ILIM2 IX2 = I*2 ZIL( I, IILCOL ) = CMPLX( ZD(JVTMP+IX2-2), ZD(JVTMP+IX2-1) ) 2124 CONTINUE IILROW = ILIM2 + 1 2180 CONTINUE LASROW( IILCOL ) = IILROW C C IF ALL OF THE ROWS ARE NON-ZERO, SET LASROW COUNTER TO IILROW1 C IF ( IILROW .EQ. IILROW1 ) LASROW( IILCOL ) = IILROW1 JVIDX = JVIDX + NROWS*2 JROW = JROW + NROWS KROW = IROWN + 1 KROWS = KROWN - IROWN C C INCREMENT EITHER KROW OR JROW DEPENDING UPON WHETHER IROWN = JROWN C OR IROWN = KROWN C IF ( IROWN .EQ. JROWN ) GO TO 2900 GO TO 2530 2400 CONTINUE C C STORE ZEROS FOR CREATED TERMS AND INCREMENT TO THE NEXT SET OF C OF ROWS FOR THIS PIVOTAL COLUMN. C IAVAIL = I1 - ( IILROW+KROWS-1 ) IF ( IAVAIL .LT. 0 ) GO TO 2522 DO 2510 I = 1, KROWS ZIL( IILROW+I-1, IILCOL ) = (0.0D0,0.0D0) 2510 CONTINUE IILROW = IILROW + KROWS GO TO 2528 2522 CONTINUE ILIM2 = KROWS - ( I1 - IILROW + 1 ) DO 2524 I = IILROW1, I1 ZIL( I, IILCOL ) = (0.0D0,0.0D0) 2524 CONTINUE DO 2526 I = 1, ILIM2 ZIL( I, IILCOL ) = (0.0D0,0.0D0) 2526 CONTINUE IILROW = ILIM2 + 1 2528 CONTINUE C C INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN "K" C 2530 KRIDX = KRIDX + 2 C C IF THERE ARE NO MORE ROWS FOR THIS COLUMN, THEN COLUMN IS COMPLETE C IF ( KRIDX .GE. KRIDXN ) GO TO 3000 KROW = ZI( KRIDX ) KROWS = ZI( KRIDX+1) KROWN = KROW + KROWS - 1 GO TO 2010 2895 CONTINUE C C INCREMENT "JVIDX" TO POINT TO THE CORRESPONDING VALUE TERM FOR THE C NEXT ROW OF COLUMN "J" C JVIDX = JVIDX + ( JROWN - JROW + 1 )*2 C C INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN "J" C 2900 JRIDX = JRIDX + 2 IF ( JRIDX .GE. JRIDXN ) GO TO 3000 GO TO 2000 3000 CONTINUE IF ( K .EQ. 1 ) GO TO 6000 C C COMPUTE THE TERMS FOR THE CURRENT COLUMN OF DATA C C do 100 k = 1,n C do 10 i = k,n C temp = 0. C do 5 l = 1,k-1 C temp = temp + a(i,l)*a(k,l) / a(l,l) C 5 continue C a(i,k) = a(i,k) - temp C 10 continue C C THE FOLLOWING LAST COMPUTATION TAKES PLACE IN SUBROUTINE SMCOUT. C THE RESULTS OF THE DIVISION ARE WRITTEN TO THE OUTPUT FILE BUT C THE RESULTS OF THE ABOVE (WITHOUT THE DIVISION BELOW) IS C MAINTAINED IN MEMORY FOR REMAINING COLUMN COMPUTATIONS. C C do 11 j = k+1,n C a(k,j) = a(j,k) / a( k,k ) C 11 continue C 100 continue C C NROWS = NUMBER OF ROWS STORED IN INNER LOOP C KCOL = LAST COLUMN NUMBER STORED IN INNER LOOP C KFRCOL = FIRST COLUMN NUMBER STORED IN INNER LOOP C NROWS = KAROWS KDIR = ( KCOL-1 ) * 4 + 1 KMIDX = ZI( KDIR ) KRIDX = KMIDX + 4 KM2 = ZI( KMIDX+1 ) KVIDX = KRIDX + KM2 KVIDX = ( KVIDX / 2 ) + 1 ILIM1 = IILROW1 + NROWS - 1 ILIM2 = 0 IAVAIL = I1 - ILIM1 IF ( IAVAIL .GE. 0 ) GO TO 4010 ILIM1 = I1 ILIM2 = NROWS - ( I1 - IILROW1 + 1 ) 4010 CONTINUE JLIM1 = MOD( KFRCOL, I2 ) JLIM2 = MOD( KLSCOL, I2 ) IF ( JLIM1 .EQ. 0 ) JLIM1 = I2 IF ( JLIM2 .EQ. 0 ) JLIM2 = I2 JLIM4 = 0 IF ( KFRCOL .EQ. K ) GO TO 6000 IF ( JLIM2 .GE. JLIM1 ) GO TO 4015 JLIM4 = JLIM2 JLIM2 = I2 4015 CONTINUE C PRINT *,' JLIM1,JLIM2,JLIM4,IILROW1=',JLIM1,JLIM2,JLIM4,IILROW1 C PRINT *,' ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS' C PRINT *, ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS IF ( K .EQ. 1 ) GO TO 4007 C C COMPUTE THE OUTER LOOP TERM FOR THIS COLUMN J C I.E., -A(K,J) / A(J,J) C where K = current pivot column number; J = column being processed C C KAROWS = NUMBER OF ACTIVE ROWS FOR THE CURRENT PIVOTAL COLUMN C JCOL = COLUMN NUMBER OF CURRENT PIVOTAL COLUMN C ZOL(KBC,IC1) = FIRST ACTIVE ROW ("IILROW1") TERM OF COLUMN "KBC" C ZOL(KBC,IC2) = DIAGONAL TERM FOR COLUMN "KBC" C DO 4005 KBC = JLIM1, JLIM2 ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 ) 4005 CONTINUE IF ( JLIM4 .EQ. 0 ) GO TO 4007 DO 4006 KBC = 1, JLIM4 ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 ) 4006 CONTINUE 4007 CONTINUE C CALL KBHELPCD( KFRCOL, KLSCOL, ZOL, ZIL, I1, I2, LASROW ) DO 4008 I = IILROW1, ILIM1 DTEMP(I) = (0.0D0,0.0D0) 4008 CONTINUE C C PROCESS COLUMNS JLIM1 THROUGH JLIM2 C DO 4022 J = JLIM1, JLIM2 LIMIT = ILIM1 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 ) GO TO 4022 IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1 C C PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2 C ZOLTMP = ZOL( J, IC1 ) CALL SMCCCD ( DTEMP( IILROW1 ), ZIL( IILROW1,J ), LIMIT-IILROW1+1 & ,ZOLTMP ) C DO 4020 I = IILROW1, LIMIT C DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP C4020 CONTINUE 4022 CONTINUE IF ( JLIM4 .EQ. 0 ) GO TO 4030 C C PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4 C DO 4024 J = 1, JLIM4 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 ) GO TO 4024 LIMIT = ILIM1 IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1 ZOLTMP = ZOL( J, IC1 ) CALL SMCCCD ( DTEMP( IILROW1 ), ZIL( IILROW1,J ), LIMIT-IILROW1+1 & ,ZOLTMP ) C DO 4023 I = IILROW1, LIMIT C DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP C4023 CONTINUE 4024 CONTINUE 4030 CONTINUE IF ( ILIM2 .EQ. 0 ) GO TO 4060 DO 4032 I = 1, ILIM2 DTEMP(I) = (0.0D0,0.0D0) 4032 CONTINUE C C PROCESS COLUMNS JLIM1 THROUGH JLIM2 C DO 4042 J = JLIM1, JLIM2 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4042 LIMIT = ILIM2 IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1 C C PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2 C ZOLTMP = ZOL( J, IC1 ) CALL SMCCCD ( DTEMP( 1 ), ZIL( 1,J ), LIMIT, ZOLTMP ) C DO 4040 I = 1, LIMIT C DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP C4040 CONTINUE 4042 CONTINUE IF ( JLIM4 .EQ. 0 ) GO TO 4046 C C PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4 C DO 4044 J = 1, JLIM4 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4044 LIMIT = ILIM2 IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1 ZOLTMP = ZOL( J, IC1 ) CALL SMCCCD ( DTEMP( 1 ), ZIL( 1,J ), LIMIT, ZOLTMP ) C DO 4043 I = 1, LIMIT C DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP C4043 CONTINUE 4044 CONTINUE 4046 CONTINUE 4060 CONTINUE C C UPDATE EACH ACTIVE ROW TERM FOR COLUMN "K" BY SUBTRACTING "DTEMP" C DO 4047 I = IILROW1, ILIM1 ZD( KVIDX ) = ZD( KVIDX ) - DREAL( DTEMP(I) ) ZD( KVIDX+1 ) = ZD( KVIDX+1 ) - DIMAG( DTEMP(I) ) KVIDX = KVIDX + 2 4047 CONTINUE IF ( ILIM2 .EQ. 0 ) GO TO 4070 DO 4048 I = 1, ILIM2 ZD( KVIDX ) = ZD( KVIDX ) - DREAL( DTEMP(I) ) ZD( KVIDX+1 ) = ZD( KVIDX+1 ) - DIMAG( DTEMP(I) ) KVIDX = KVIDX + 2 4048 CONTINUE 4070 CONTINUE C C CALL SMCOUT TO WRITE OUT THE COLUMN TO THE OUTPUT LOWER TRIANGULAR C MATRIX FILE C 6000 CONTINUE CALL SMCOUT ( ZI, ZI, ZD, ZOL( 1,IC1 ), ZOL( 1,IC1 ) ) 7000 CONTINUE RETURN END  ================================================ FILE: mis/smc2cs.f ================================================ SUBROUTINE SMC2CS ( ZI, ZCS, ZIL, ZOL, NAR, LASROW, RTEMP & , I1, I2, I3 ) C C ZIL = INNER LOOP TERMS (SIZE = MAXNAC * (MAXNCOL+NEXTRA) C ZOL = OUTER LOOP TERMS (SIZE = (MAXNCOL+NEXTRA) * 2) C NAR = SAVE AREA FOR ACTIVE ROWS OF PREVIOUS COLUMN C I1 = MAXIMUM NUMBER OF ACTIVE ROWS FOR THIS COLUMN C I2 = NUMBER OF COLUMNS ALLOCATED FOR STORAGE OF INNER AND C NUMBER OF ROWS ALLOCATED FOR OUTER LOOP C I3 = MAXIMUM NUMBER OF WORDS FOR DEFINING THE ACTIVE ROWS FOR C ANY COLUMN C LASROW = LAST NON-ZERO ROW INDEX FOR A GIVEN COLUMN (SIZE = MAXNCOL C +NEXTRA) C COMPLEX ZCS(10) , RTEMP(I3) COMPLEX ZIL( I1, I2 ), ZOL( I2, 2 ), ZOLTMP INTEGER ZI(10), NAR( I3 ) INTEGER LASROW(I2) INCLUDE 'SMCOMX.COM' C C GET ROW VALUES CORRESPONDING TO THE ACTIVE ROWS OF COLUMN K FOR C EACH COLUMN KFRCOL THROUGH KLSCOL IN ORDER TO FILL INNER LOOP AND C OUTER LOOP AREAS. C C C BEGIN TO PROCESS EACH COLUMN C FOR COLUMN K, GET OUTER LOOP TERMS C A(K,J) / A(J,J) C K = CURRENT PIVOTAL COLUMN C J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1 C (E.G., C A(5,1)/A(1,1) C A(5,2)/A(2,2) C A(5,3)/A(3,3) C A(5,4)/A(4,4) C ALSO, GET INNER LOOP TERMS C A(I,J) C K = CURRENT PIVOTAL COLUMN C I = RANGES FROM K TO LAST ACTIVE ROW OF COLUMN K C J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1 C (E.G., C A(5,1) A(6,1) . A(N,1) C A(5,2) A(6,2) . A(N,2) C A(5,3) A(6,3) . A(N,3) C A(5,4) A(6,4) . A(N,4) C C LOOP 7000 WILL BE ON K C LOOP 6000 WILL BE ON J C IC1 = 1 IC2 = 2 IILROW1 = 1 c print *,' i1,i2,i3,maxncol,maxnac=',i1,i2,i3,maxncol,maxnac DO 7000 K = 1, NCOL KK = MOD( K, I2 ) IF ( KK .EQ. 0 ) KK = I2 LASROW( KK ) = 0 c PRINT *,' SMC2RD PROCESSING COLUMN K=',K KCOL = K KDIR = K*4 - 3 KMIDX = ZI( KDIR ) C C SEE IF DATA IS ON IN MEMORY OR ON THE SPILL FILE C IF ( KMIDX .NE. 0 ) GO TO 500 C C DATA IS ON THE SPILL FILE C CALL SMCSPL ( KCOL, ZI ) KMIDX = ZI( KDIR ) 500 CONTINUE KFRCOLP= KFRCOL KLSCOLP= KLSCOL KFRCOL = ZI( KDIR+1 ) KM2 = ZI( KMIDX+1) KRIDXN = KMIDX + 4 + KM2 KLSCOL = K - 1 KRIDX = KMIDX+4 KRIDXS = KRIDX KROW1 = ZI( KRIDX ) KROWN = KROW1 + ZI( KRIDX+1 ) - 1 KAROWS = 0 DO 510 KK = 1, KM2, 2 KAROWS = KAROWS + ZI( KRIDX+KK ) 510 CONTINUE C C IF THE PREVIOUS COLUMN DID NOT NEED DATA FROM A COLUMN PRECEEDING IT, C THEN MUST RELOAD THE INNER AND OUTER LOOP ARRAYS C IF ( KLSCOLP .LT. KFRCOLP ) GO TO 1350 C C NOW MUST FIND THE ROW AND COLUMN NUMBER FOR THIS PIVOT COLUMN C THAT IS NOT ALREADY IN THE INNER LOOP AND OUTER LOOP ARRAYS. C FIRST CHECK THAT THE FIRST REQUIRED ROW IS STORED, IF NOT THEN WE MUST C BEGIN AS IF NOTHING STORED. IF SOME OF THE REQUIRED ROWS ARE PRESENT, C THEN FIND THE NEXT POSITION AND ROW NUMBER TO BE STORED IN THE INNER C LOOP ARRAY AND THE NEXT POSITION AND COLUMN NUMBER TO BE STORED IN THE C OUTER LOOP ARRAY. C C IF THE FIRST COLUMN IS LESS THAN FIRST COLUMN OF LAST PIVOT COLUMN C THEN WE MUST LOAD THE INNER AND OUTER LOOPS FROM THE BEGINNING C IF ( KFRCOL .LT. KFRCOLP ) GO TO 1350 KR = 1 LROW1 = NAR( 1 ) LROWN = NAR( 1 ) + NAR( 2 ) - 1 C C LROW1 = FIRST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT C COLUMN PROCESSED C LROWN = LAST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT COLUMN C PROCESSED C C FIND FIRST ROW IN INNER LOOP THAT MATCHES THE FIRST ROW REQUIRED C FOR THIS COLUMN C C IF THERE IS NO MATCH FOR THE FIRST COLUMN, THEN GO TO 1350 C 1105 CONTINUE IF ( LROW1 .GT. KROW1 ) GO TO 1350 IF ( KROW1 .LT. LROWN ) GO TO 1100 C C NO OVERLAP WITH THIS STRING, GO AND GET NEXT STRING C ADJUST 'ILLROW1' WHICH IS THE POINTER TO THE FIRST ROW IN THE INNER C LOOP THAT CONTAINS THE VALUE OF ROW "KROW1" OF EACH COLUMN. C INCR = LROWN - LROW1 + 1 IILROW1 = IILROW1 + INCR IF ( IILROW1 .GT. I1 ) IILROW1 = IILROW1 - I1 KR = KR + 2 LROW1 = NAR( KR ) IF ( LROW1 .EQ. 0 ) GO TO 1350 LROWN = LROW1 + NAR( KR+1 ) - 1 GO TO 1105 1100 CONTINUE C C THERE IS AN OVERLAP, SET KROWB, KROWSB, AND IILROW1 TO REFLECT C THE PROPER ROW NUMBER IN THE INNER LOOP C INCR = KROW1 - LROW1 KROWB = KROW1 KROWSB = KROWN - KROWB + 1 KRIDXS = KRIDX IILROW1 = IILROW1 + INCR IF ( IILROW1 .GT. I1 ) IILROW1 = IILROW1 - I1 LROW1 = KROW1 IILROW = IILROW1 1120 IF ( LROW1 .NE. KROW1 ) GO TO 1180 IF ( LROWN .EQ. KROWN ) GO TO 1130 IF ( LROWN .LT. KROWN ) GO TO 1140 IF ( LROWN .GT. KROWN ) GO TO 1150 C C THIS SET OF ROWS MATCHES, GO AND CHECK THE NEXT SET OF ROW NUMBERS C 1130 CONTINUE INCR = KROWN - KROWB + 1 IILROW = IILROW + INCR IF ( IILROW .GT. I1 ) IILROW = IILROW - I1 KRIDX = KRIDX + 2 IF ( KRIDX .EQ. KRIDXN ) GO TO 1170 KR = KR + 2 KROW1 = ZI( KRIDX ) KROWB = KROW1 KROWSB = ZI( KRIDX+1 ) KROWN = KROW1 + KROWSB -1 KRIDXS = KRIDX LROW1 = NAR( KR ) LROWN = LROW1 + NAR( KR+1 ) - 1 IF ( LROW1 .EQ. 0 ) GO TO 1180 GO TO 1120 C C LAST ROW NUMBERS DO NOT MATCH, KROWN GT LROWN C 1140 CONTINUE INCR = LROWN - KROWB + 1 1145 KROWB = KROWB + INCR KROWSB = KROWSB - INCR KRIDXS = KRIDX IILROW = IILROW + INCR IF ( IILROW .GT. I1 ) IILROW = IILROW - I1 GO TO 1180 C C LAST ROW NUMBERS DO NOT MATCH, KROWN LT LROWN C 1150 CONTINUE INCR = LROWN - LROW1 + 1 GO TO 1145 C C ROWS MATCH FOR INNER LOOP COLUMN VALUES, NOW DETERMINE THE COLUMN INDEX C FOR THE NEXT COLUMN TO ADD TO THE INNER AND OUTER LOOP ARRAYS. 1170 CONTINUE KFRCOLG = KLSCOLP+1 IILROW = IILROW1 GO TO 1400 C C NOT ALL NEEDED ROW VALUES ARE PRESENT, MUST GET NEEDED ROWS C FOR ALL COLUMNS REQUIRED FOR THIS PIVOT COLUMN C 1180 CONTINUE KFRCOLG = KFRCOL GO TO 1400 C C NO MATCH FOUND, WILL START LOADING THE INNER AND OUTER LOOP ARRAYS C FROM THE BEGINNING C 1350 IILROW1 = 1 IILROW = 1 KROWB = KROW1 KROWSB = KROWN - KROW1 + 1 KFRCOLG = KFRCOL 1400 CONTINUE KRIDX = KMIDX+4 DO 1450 J = 1, KM2 NAR( J ) = ZI( KRIDX+J-1 ) 1450 CONTINUE NAR( KM2+1 ) = 0 IILROWB = IILROW C C KFRCOL = FIRST COLUMN NEEDED FOR PIVOT COLUMN "K" C KLSCOL = LAST COLUMN NEEDED FOR PIVOT COLUMN "K" C KFRCOLG = FIRST COLUMN TO BE PLACED IN INNER/OUTER LOOP ARRAYS C KFRCOLP = FIRST COLUMN OF LAST PIVOT COLUMN PROCESSED C KLSCOLP = LAST COLUMN OF LAST PIVOT COLUMN PROCESSED C c PRINT *,' KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS=' c PRINT *, KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS c PRINT *,' KROWB,KROWSB,IILROW1,IILROW,kridx=' c PRINT *, KROWB,KROWSB,IILROW1,IILROW,kridx C C KLSCOL WILL BE LESS THAN KFRCOLG FOR THE FIRST COLUMN AND FOR ANY C COLUMN THAT DOES NOT NEED A PRECEEDING COLUMN OF DATA C IF ( KLSCOL .LT. KFRCOLG ) GO TO 6000 DO 3000 J = KFRCOLG, KLSCOL IILCOL = MOD ( J, I2 ) IF ( IILCOL .EQ. 0 ) IILCOL = I2 JCOL = J JDIR = J*4 - 3 JMIDX = ZI( JDIR ) C C SEE IF COLUMN DATA IS IN MEMORY OR ON THE SPILL FILE C IF ( JMIDX .NE. 0 ) GO TO 1500 C C DATA IS ON THE SPILL FILE C CALL SMCSPL ( JCOL, ZI ) IF ( ZI( JDIR ) .EQ. 0 ) JMIDX = ISPILL IF ( ZI( JDIR ) .NE. 0 ) JMIDX = ZI( JDIR ) 1500 CONTINUE JRIDX = JMIDX + 4 JM2 = ZI( JMIDX + 1 ) JRIDXN = JRIDX + JM2 JROWL = ZI( JRIDX+JM2-2 ) + ZI( JRIDX+JM2-1 ) - 1 JVIDX = JRIDXN C C SAVE DIAGONAL TERM FOR COLUMN J ; (ALWAYS, THE FIRST TERM) C JVIDX = JVIDX / 2 + 1 ZOL( IILCOL, IC2 ) = (1.0,0.0) / ZCS( JVIDX ) C C FOR EACH COLUMN J, GET REQUIRED ROWS; I.E, ACTIVE ROWS OF COLUMN K C IF ( J .GT. KLSCOLP ) GO TO 1530 C C SET VARIABLES FOR ADDING ROW TERMS TO AN EXISTING COLUMN IN THE INNER LOOP C KRIDX = KRIDXS KROW = KROWB KROWS = KROWSB IILROW = IILROWB C C SET LASROW TO ZERO IF THIS COLUMN IS BEING RELOADED INTO ZIL AND NOT C BEING ADDED TO FROM SOME PREVIOUS COLUMN PROCESSING. C IF ( IILROWB .EQ. IILROW1 ) LASROW( J ) = 0 GO TO 1540 1530 CONTINUE C C MUST RESET KRIDX, KROW AND KROWS FOR INSERTION OF NEW COLUMN IN INNER LOOP C KRIDX = KMIDX+4 KROW = ZI( KRIDX ) KROWS = ZI( KRIDX+1 ) IILROW = IILROW1 1540 CONTINUE KROWN = KROW + KROWS - 1 C C JROWL IS LAST ROW TERM IN COLUMN "J". IF THIS IS BEFORE THE FIRST ROW C "KROW" TERM NEEDED, THEN NO MORE TERMS ARE NEEDED FROM COLUMN "J" AND C "LASROW" WILL INDICATE THE LAST VALUE STORED FOR COLUMN "J". C IF ( JROWL .LT. KROW ) GO TO 3000 2000 JROW = ZI( JRIDX ) JROWS = ZI( JRIDX+1 ) JROWN = JROW + JROWS - 1 2010 CONTINUE IF ( JROWN .LT. KROW ) GO TO 2895 IF ( JROW .GT. KROWN ) GO TO 2400 MISSIN = KROW - JROW C C CHECK TO SEE IF THERE ARE MISSING TERMS, I.E., TERMS CREATED DURING C THE DECOMPOSITION. IF THERE ARE MISSING TERMS, THEN SET THEIR VALUES C TO BE INITIALLY ZERO. C IF ( MISSIN .GE. 0 ) GO TO 2050 NZEROS = IABS( MISSIN ) C C STORE "NZEROS" NUMBER OF ZEROS FOR INNER LOOP TERMS C IAVAIL = I1 - ( IILROW+NZEROS-1 ) IF ( IAVAIL .LT. 0 ) GO TO 2022 DO 2020 I = 1, NZEROS ZIL( IILROW+I-1, IILCOL ) = (0.0,0.0) 2020 CONTINUE IILROW = IILROW + NZEROS GO TO 2028 2022 ILIM1 = I1 - IILROW + 1 ILIM2 = NZEROS - ILIM1 DO 2024 I = 1, ILIM1 ZIL( IILROW+I-1, IILCOL ) = (0.0,0.0) 2024 CONTINUE DO 2026 I = 1, ILIM2 ZIL( I, IILCOL ) = (0.0,0.0) 2026 CONTINUE IILROW = ILIM2 + 1 2028 CONTINUE KROW = KROW + NZEROS KROWS = KROWS - NZEROS 2050 CONTINUE IF ( MISSIN .LE. 0 ) GO TO 2070 ISKIP = KROW - JROW JVIDX = JVIDX + ISKIP JROW = JROW + ISKIP 2070 CONTINUE IROWN = MIN0 ( KROWN, JROWN ) NUM = IROWN - KROW + 1 C C MOVE INNER LOOP VALUES FROM IN-MEMORY LOCATION TO C THE INNER LOOP AREA C NROWS = IROWN - KROW + 1 IF ( NROWS .GT. ( I1 - IILROW + 1 ) ) GO TO 2120 DO 2100 I = 1, NROWS ZIL( IILROW+I-1, IILCOL ) = ZCS(JVIDX+I-1 ) 2100 CONTINUE IILROW = IILROW + NROWS GO TO 2180 2120 ILIM1 = I1 - IILROW + 1 ILIM2 = NROWS - ILIM1 DO 2122 I = 1, ILIM1 ZIL( IILROW+I-1, IILCOL ) = ZCS( JVIDX+I-1 ) 2122 CONTINUE JVTMP = JVIDX + ILIM1 DO 2124 I = 1, ILIM2 ZIL( I, IILCOL ) = ZCS( JVTMP+I-1 ) 2124 CONTINUE IILROW = ILIM2 + 1 2180 CONTINUE LASROW( IILCOL ) = IILROW C C IF ALL OF THE ROWS ARE NON-ZERO, SET LASROW COUNTER TO IILROW1 C IF ( IILROW .EQ. IILROW1 ) LASROW( IILCOL ) = IILROW1 JVIDX = JVIDX + NROWS JROW = JROW + NROWS KROW = IROWN + 1 KROWS = KROWN - IROWN C C INCREMENT EITHER KROW OR JROW DEPENDING UPON WHETHER IROWN = JROWN C OR IROWN = KROWN C IF ( IROWN .EQ. JROWN ) GO TO 2900 GO TO 2530 2400 CONTINUE C C STORE ZEROS FOR CREATED TERMS AND INCREMENT TO THE NEXT SET OF C OF ROWS FOR THIS PIVOTAL COLUMN. C IAVAIL = I1 - ( IILROW+KROWS-1 ) IF ( IAVAIL .LT. 0 ) GO TO 2522 DO 2510 I = 1, KROWS ZIL( IILROW+I-1, IILCOL ) = (0.0,0.0) 2510 CONTINUE IILROW = IILROW + KROWS GO TO 2528 2522 CONTINUE ILIM2 = KROWS - ( I1 - IILROW + 1 ) DO 2524 I = IILROW1, I1 ZIL( I, IILCOL ) = (0.0,0.0) 2524 CONTINUE DO 2526 I = 1, ILIM2 ZIL( I, IILCOL ) = (0.0,0.0) 2526 CONTINUE IILROW = ILIM2 + 1 2528 CONTINUE C C INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN "K" C 2530 KRIDX = KRIDX + 2 C C IF THERE ARE NO MORE ROWS FOR THIS COLUMN, THEN COLUMN IS COMPLETE C IF ( KRIDX .GE. KRIDXN ) GO TO 3000 KROW = ZI( KRIDX ) KROWS = ZI( KRIDX+1) KROWN = KROW + KROWS - 1 GO TO 2010 2895 CONTINUE C C INCREMENT "JVIDX" TO POINT TO THE CORRESPONDING VALUE TERM FOR THE C NEXT ROW OF COLUMN "J" C JVIDX = JVIDX + ( JROWN - JROW + 1 ) C C INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN "J" C 2900 JRIDX = JRIDX + 2 IF ( JRIDX .GE. JRIDXN ) GO TO 3000 GO TO 2000 3000 CONTINUE IF ( K .EQ. 1 ) GO TO 6000 C C COMPUTE THE TERMS FOR THE CURRENT COLUMN OF DATA C C do 100 k = 1,n C do 10 i = k,n C temp = 0. C do 5 l = 1,k-1 C temp = temp + a(i,l)*a(k,l) / a(l,l) C 5 continue C a(i,k) = a(i,k) - temp C 10 continue C C THE FOLLOWING LAST COMPUTATION TAKES PLACE IN SUBROUTINE SMCOUT. C THE RESULTS OF THE DIVISION ARE WRITTEN TO THE OUTPUT FILE BUT C THE RESULTS OF THE ABOVE (WITHOUT THE DIVISION BELOW) IS C MAINTAINED IN MEMORY FOR REMAINING COLUMN COMPUTATIONS. C C do 11 j = k+1,n C a(k,j) = a(j,k) / a( k,k ) C 11 continue C 100 continue C C NROWS = NUMBER OF ROWS STORED IN INNER LOOP C KCOL = LAST COLUMN NUMBER STORED IN INNER LOOP C KFRCOL = FIRST COLUMN NUMBER STORED IN INNER LOOP C NROWS = KAROWS KDIR = ( KCOL-1 ) * 4 + 1 KMIDX = ZI( KDIR ) KRIDX = KMIDX + 4 KM2 = ZI( KMIDX+1 ) KVIDX = KRIDX + KM2 KVIDX = ( KVIDX / 2 ) + 1 ILIM1 = IILROW1 + NROWS - 1 ILIM2 = 0 IAVAIL = I1 - ILIM1 IF ( IAVAIL .GE. 0 ) GO TO 4010 ILIM1 = I1 ILIM2 = NROWS - ( I1 - IILROW1 + 1 ) 4010 CONTINUE JLIM1 = MOD( KFRCOL, I2 ) JLIM2 = MOD( KLSCOL, I2 ) IF ( JLIM1 .EQ. 0 ) JLIM1 = I2 IF ( JLIM2 .EQ. 0 ) JLIM2 = I2 JLIM4 = 0 IF ( KFRCOL .EQ. K ) GO TO 6000 IF ( JLIM2 .GE. JLIM1 ) GO TO 4015 JLIM4 = JLIM2 JLIM2 = I2 4015 CONTINUE C PRINT *,' JLIM1,JLIM2,JLIM4,IILROW1=',JLIM1,JLIM2,JLIM4,IILROW1 C PRINT *,' ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS' C PRINT *, ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS IF ( K .EQ. 1 ) GO TO 4007 C C COMPUTE THE OUTER LOOP TERM FOR THIS COLUMN J C I.E., -A(K,J) / A(J,J) C where K = current pivot column number; J = column being processed C C KAROWS = NUMBER OF ACTIVE ROWS FOR THE CURRENT PIVOTAL COLUMN C JCOL = COLUMN NUMBER OF CURRENT PIVOTAL COLUMN C ZOL(KBC,IC1) = FIRST ACTIVE ROW ("IILROW1") TERM OF COLUMN "KBC" C ZOL(KBC,IC2) = DIAGONAL TERM FOR COLUMN "KBC" C DO 4005 KBC = JLIM1, JLIM2 ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 ) 4005 CONTINUE IF ( JLIM4 .EQ. 0 ) GO TO 4007 DO 4006 KBC = 1, JLIM4 ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 ) 4006 CONTINUE 4007 CONTINUE C CALL KBHELPCS( KFRCOL, KLSCOL, ZOL, ZIL, I1, I2, LASROW ) DO 4008 I = IILROW1, ILIM1 RTEMP(I) = (0.0,0.0) 4008 CONTINUE C C PROCESS COLUMNS JLIM1 THROUGH JLIM2 C DO 4022 J = JLIM1, JLIM2 LIMIT = ILIM1 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 ) GO TO 4022 IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1 C C PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2 C ZOLTMP = ZOL( J, IC1 ) CALL SMCCCS ( RTEMP( IILROW1 ), ZIL( IILROW1,J ), LIMIT-IILROW1+1 & ,ZOLTMP ) C DO 4020 I = IILROW1, LIMIT C RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP C4020 CONTINUE 4022 CONTINUE IF ( JLIM4 .EQ. 0 ) GO TO 4030 C C PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4 C DO 4024 J = 1, JLIM4 ITEST = LASROW(J) IF ( ITEST .EQ. 0 ) GO TO 4024 LIMIT = ILIM1 IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1 ZOLTMP = ZOL( J, IC1 ) CALL SMCCCS ( RTEMP( IILROW1 ), ZIL( IILROW1,J ), LIMIT-IILROW1+1 & ,ZOLTMP ) C DO 4023 I = IILROW1, LIMIT C RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP C4023 CONTINUE 4024 CONTINUE 4030 CONTINUE IF ( ILIM2 .EQ. 0 ) GO TO 4060 DO 4032 I = 1, ILIM2 RTEMP(I) = (0.0,0.0) 4032 CONTINUE C C PROCESS COLUMNS JLIM1 THROUGH JLIM2 C DO 4042 J = JLIM1, JLIM2 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4042 LIMIT = ILIM2 IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1 C C PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2 C ZOLTMP = ZOL( J, IC1 ) CALL SMCCCS ( RTEMP( 1 ), ZIL( 1,J ), LIMIT, ZOLTMP ) C DO 4040 I = 1, LIMIT C RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP C4040 CONTINUE 4042 CONTINUE IF ( JLIM4 .EQ. 0 ) GO TO 4046 C C PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4 C DO 4044 J = 1, JLIM4 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4044 LIMIT = ILIM2 IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1 ZOLTMP = ZOL( J, IC1 ) CALL SMCCCS ( RTEMP( 1 ), ZIL( 1,J ), LIMIT, ZOLTMP ) C DO 4043 I = 1, LIMIT C RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP C4043 CONTINUE 4044 CONTINUE 4046 CONTINUE 4060 CONTINUE C C UPDATE EACH ACTIVE ROW TERM FOR COLUMN "K" BY SUBTRACTING "RTEMP" C DO 4047 I = IILROW1, ILIM1 ZCS( KVIDX ) = ZCS( KVIDX ) - RTEMP(I) KVIDX = KVIDX + 1 4047 CONTINUE IF ( ILIM2 .EQ. 0 ) GO TO 4070 DO 4048 I = 1, ILIM2 ZCS( KVIDX ) = ZCS( KVIDX ) - RTEMP(I) KVIDX = KVIDX + 1 4048 CONTINUE 4070 CONTINUE C C CALL SMCOUT TO WRITE OUT THE COLUMN TO THE OUTPUT LOWER TRIANGULAR C MATRIX FILE C 6000 CONTINUE CALL SMCOUT ( ZI, ZI, ZCS, ZOL( 1,IC1 ), ZOL( 1,IC1 ) ) 7000 CONTINUE RETURN END  ================================================ FILE: mis/smc2rd.f ================================================ SUBROUTINE SMC2RD ( ZI, ZD, ZIL, ZOL, NAR, LASROW, DTEMP & , I1, I2, I3 ) C C ZIL = INNER LOOP TERMS (SIZE = MAXNAC * (MAXNCOL+NEXTRA) C ZOL = OUTER LOOP TERMS (SIZE = (MAXNCOL+NEXTRA) * 2) C NAR = SAVE AREA FOR ACTIVE ROWS OF PREVIOUS COLUMN C I1 = MAXIMUM NUMBER OF ACTIVE ROWS FOR THIS COLUMN C I2 = NUMBER OF COLUMNS ALLOCATED FOR STORAGE OF INNER AND C NUMBER OF ROWS ALLOCATED FOR OUTER LOOP C I3 = MAXIMUM NUMBER OF WORDS FOR DEFINING THE ACTIVE ROWS FOR C ANY COLUMN C LASROW = LAST NON-ZERO ROW INDEX FOR A GIVEN COLUMN (SIZE = MAXNCOL C +NEXTRA) C DOUBLE PRECISION ZD(10) ,DTEMP(I3) DOUBLE PRECISION ZIL( I1, I2 ), ZOL( I2, 2 ), ZOLTMP INTEGER ZI(10), NAR( I3 ) INTEGER LASROW(I2) INCLUDE 'SMCOMX.COM' C C GET ROW VALUES CORRESPONDING TO THE ACTIVE ROWS OF COLUMN K FOR C EACH COLUMN KFRCOL THROUGH KLSCOL IN ORDER TO FILL INNER LOOP AND C OUTER LOOP AREAS. C C C BEGIN TO PROCESS EACH COLUMN C FOR COLUMN K, GET OUTER LOOP TERMS C A(K,J) / A(J,J) C K = CURRENT PIVOTAL COLUMN C J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1 C (E.G., C A(5,1)/A(1,1) C A(5,2)/A(2,2) C A(5,3)/A(3,3) C A(5,4)/A(4,4) C ALSO, GET INNER LOOP TERMS C A(I,J) C K = CURRENT PIVOTAL COLUMN C I = RANGES FROM K TO LAST ACTIVE ROW OF COLUMN K C J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1 C (E.G., C A(5,1) A(6,1) . A(N,1) C A(5,2) A(6,2) . A(N,2) C A(5,3) A(6,3) . A(N,3) C A(5,4) A(6,4) . A(N,4) C C LOOP 7000 WILL BE ON K C LOOP 6000 WILL BE ON J C C CALL AUDIT ( 'BEGIN ', 1 ) IC1 = 1 IC2 = 2 IILROW1 = 1 C print *,' i1,i2,i3,maxncol,maxnac=',i1,i2,i3,maxncol,maxnac C CALL AUDIT ( 'DO7000 ', 1 ) DO 7000 K = 1, NCOL KK = MOD( K, I2 ) IF ( KK .EQ. 0 ) KK = I2 LASROW( KK ) = 0 C PRINT *,' SMC2RD PROCESSING COLUMN K=',K KCOL = K KDIR = K*4 - 3 KMIDX = ZI( KDIR ) C C SEE IF DATA IS ON IN MEMORY OR ON THE SPILL FILE C IF ( KMIDX .NE. 0 ) GO TO 500 C C DATA IS ON THE SPILL FILE C C PRINT *,' CALLING SMCSPL FOR K=',K CALL SMCSPL ( KCOL, ZI ) KMIDX = ZI( KDIR ) 500 CONTINUE KFRCOLP= KFRCOL KLSCOLP= KLSCOL KFRCOL = ZI( KDIR+1 ) KM2 = ZI( KMIDX+1) KRIDXN = KMIDX + 4 + KM2 KLSCOL = K - 1 KRIDX = KMIDX+4 KRIDXS = KRIDX KROW1 = ZI( KRIDX ) KROWN = KROW1 + ZI( KRIDX+1 ) - 1 KAROWS = 0 DO 510 KK = 1, KM2, 2 KAROWS = KAROWS + ZI( KRIDX+KK ) 510 CONTINUE C PRINT *,' SMC2RD,K,KFRCOL,KLSCOL,KROW1,KROWN,KAROWS=' C PRINT *, K,KFRCOL,KLSCOL,KROW1,KROWN,KAROWS C C IF THE PREVIOUS COLUMN DID NOT NEED DATA FROM A COLUMN PRECEEDING IT, C THEN MUST RELOAD THE INNER AND OUTER LOOP ARRAYS C IF ( KLSCOLP .LT. KFRCOLP ) GO TO 1350 C C NOW MUST FIND THE ROW AND COLUMN NUMBER FOR THIS PIVOT COLUMN C THAT IS NOT ALREADY IN THE INNER LOOP AND OUTER LOOP ARRAYS. C FIRST CHECK THAT THE FIRST REQUIRED ROW IS STORED, IF NOT THEN WE MUST C BEGIN AS IF NOTHING STORED. IF SOME OF THE REQUIRED ROWS ARE PRESENT, C THEN FIND THE NEXT POSITION AND ROW NUMBER TO BE STORED IN THE INNER C LOOP ARRAY AND THE NEXT POSITION AND COLUMN NUMBER TO BE STORED IN THE C OUTER LOOP ARRAY. C C IF THE FIRST COLUMN IS LESS THAN FIRST COLUMN OF LAST PIVOT COLUMN C THEN WE MUST LOAD THE INNER AND OUTER LOOPS FROM THE BEGINNING C IF ( KFRCOL .LT. KFRCOLP ) GO TO 1350 KR = 1 LROW1 = NAR( 1 ) LROWN = NAR( 1 ) + NAR( 2 ) - 1 C C LROW1 = FIRST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT C COLUMN PROCESSED C LROWN = LAST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT COLUMN C PROCESSED C C FIND FIRST ROW IN INNER LOOP THAT MATCHES THE FIRST ROW REQUIRED C FOR THIS COLUMN C C IF THERE IS NO MATCH FOR THE FIRST COLUMN, THEN GO TO 1350 C 1105 CONTINUE IF ( LROW1 .GT. KROW1 ) GO TO 1350 IF ( KROW1 .LT. LROWN ) GO TO 1100 C C NO OVERLAP WITH THIS STRING, GO AND GET NEXT STRING C ADJUST 'ILLROW1' WHICH IS THE POINTER TO THE FIRST ROW IN THE INNER C LOOP THAT CONTAINS THE VALUE OF ROW "KROW1" OF EACH COLUMN. C INCR = LROWN - LROW1 + 1 IILROW1 = IILROW1 + INCR IF ( IILROW1 .GT. I1 ) IILROW1 = IILROW1 - I1 KR = KR + 2 LROW1 = NAR( KR ) IF ( LROW1 .EQ. 0 ) GO TO 1350 LROWN = LROW1 + NAR( KR+1 ) - 1 GO TO 1105 1100 CONTINUE C C THERE IS AN OVERLAP, SET KROWB, KROWSB, AND IILROW1 TO REFLECT C THE PROPER ROW NUMBER IN THE INNER LOOP C INCR = KROW1 - LROW1 KROWB = KROW1 KROWSB = KROWN - KROWB + 1 KRIDXS = KRIDX IILROW1 = IILROW1 + INCR IF ( IILROW1 .GT. I1 ) IILROW1 = IILROW1 - I1 LROW1 = KROW1 IILROW = IILROW1 1120 IF ( LROW1 .NE. KROW1 ) GO TO 1180 IF ( LROWN .EQ. KROWN ) GO TO 1130 IF ( LROWN .LT. KROWN ) GO TO 1140 IF ( LROWN .GT. KROWN ) GO TO 1150 C C THIS SET OF ROWS MATCHES, GO AND CHECK THE NEXT SET OF ROW NUMBERS C 1130 CONTINUE INCR = KROWN - KROWB + 1 IILROW = IILROW + INCR IF ( IILROW .GT. I1 ) IILROW = IILROW - I1 KRIDX = KRIDX + 2 IF ( KRIDX .EQ. KRIDXN ) GO TO 1170 KR = KR + 2 KROW1 = ZI( KRIDX ) KROWB = KROW1 KROWSB = ZI( KRIDX+1 ) KROWN = KROW1 + KROWSB -1 KRIDXS = KRIDX LROW1 = NAR( KR ) LROWN = LROW1 + NAR( KR+1 ) - 1 IF ( LROW1 .EQ. 0 ) GO TO 1180 GO TO 1120 C C LAST ROW NUMBERS DO NOT MATCH, KROWN GT LROWN C 1140 CONTINUE INCR = LROWN - KROWB + 1 1145 KROWB = KROWB + INCR KROWSB = KROWSB - INCR KRIDXS = KRIDX IILROW = IILROW + INCR IF ( IILROW .GT. I1 ) IILROW = IILROW - I1 GO TO 1180 C C LAST ROW NUMBERS DO NOT MATCH, KROWN LT LROWN C 1150 CONTINUE INCR = LROWN - LROW1 + 1 GO TO 1145 C C ROWS MATCH FOR INNER LOOP COLUMN VALUES, NOW DETERMINE THE COLUMN INDEX C FOR THE NEXT COLUMN TO ADD TO THE INNER AND OUTER LOOP ARRAYS. C SET IILROW TO FIRST ROW POSITION FOR NEW COLUMN DATA. C 1170 CONTINUE KFRCOLG = KLSCOLP+1 IILROW = IILROW1 GO TO 1400 C C NOT ALL NEEDED ROW VALUES ARE PRESENT, MUST GET NEEDED ROWS C FOR ALL COLUMNS REQUIRED FOR THIS PIVOT COLUMN C 1180 CONTINUE KFRCOLG = KFRCOL GO TO 1400 C C NO MATCH FOUND, WILL START LOADING THE INNER AND OUTER LOOP ARRAYS C FROM THE BEGINNING C 1350 IILROW1 = 1 IILROW = 1 KROWB = KROW1 KROWSB = KROWN - KROW1 + 1 KFRCOLG = KFRCOL 1400 CONTINUE KRIDX = KMIDX+4 DO 1450 J = 1, KM2 NAR( J ) = ZI( KRIDX+J-1 ) 1450 CONTINUE NAR( KM2+1 ) = 0 IILROWB = IILROW C C KFRCOL = FIRST COLUMN NEEDED FOR PIVOT COLUMN "K" C KLSCOL = LAST COLUMN NEEDED FOR PIVOT COLUMN "K" C KFRCOLG = FIRST COLUMN TO BE PLACED IN INNER/OUTER LOOP ARRAYS C KFRCOLP = FIRST COLUMN OF LAST PIVOT COLUMN PROCESSED C KLSCOLP = LAST COLUMN OF LAST PIVOT COLUMN PROCESSED C C PRINT *,' KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS=' C PRINT *, KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS C PRINT *,' KROWB,KROWSB,IILROW1,IILROW,kridx=' C PRINT *, KROWB,KROWSB,IILROW1,IILROW,kridx C C KLSCOL WILL BE LESS THAN KFRCOLG FOR THE FIRST COLUMN AND FOR ANY C COLUMN THAT DOES NOT NEED A PRECEEDING COLUMN OF DATA C IF ( KLSCOL .LT. KFRCOLG ) GO TO 6000 C CALL AUDIT ( 'DO3000 ', 1 ) DO 3000 J = KFRCOLG, KLSCOL C PRINT *,' 3000,J,IILROW=',J,IILROW IILCOL = MOD ( J, I2 ) IF ( IILCOL .EQ. 0 ) IILCOL = I2 JCOL = J JDIR = J*4 - 3 JMIDX = ZI( JDIR ) C C SEE IF COLUMN DATA IS IN MEMORY OR ON THE SPILL FILE C IF ( JMIDX .NE. 0 ) GO TO 1500 C C DATA IS ON THE SPILL FILE C CALL SMCSPL ( JCOL, ZI ) IF ( ZI( JDIR ) .EQ. 0 ) JMIDX = ISPILL IF ( ZI( JDIR ) .NE. 0 ) JMIDX = ZI( JDIR ) 1500 CONTINUE JRIDX = JMIDX + 4 JM2 = ZI( JMIDX + 1 ) JRIDXN = JRIDX + JM2 JROWL = ZI( JRIDX+JM2-2 ) + ZI( JRIDX+JM2-1 ) - 1 JVIDX = JRIDXN C C SAVE DIAGONAL TERM FOR COLUMN J ; (ALWAYS, THE FIRST TERM) C JVIDX = JVIDX / 2 + 1 C PRINT *,' DIAGONAL TERM,JCOL=',JCOL,ZD(JVIDX) ZOL( IILCOL, IC2 ) = 1.0D0 / ZD( JVIDX ) C C FOR EACH COLUMN J, GET REQUIRED ROWS; I.E, ACTIVE ROWS OF COLUMN K C IF ( J .GT. KLSCOLP ) GO TO 1530 C C SET VARIABLES FOR ADDING ROW TERMS TO AN EXISTING COLUMN IN THE INNER LOOP C KRIDX = KRIDXS KROW = KROWB KROWS = KROWSB IILROW = IILROWB C C SET LASROW TO ZERO IF THIS COLUMN IS BEING RELOADED INTO ZIL AND NOT C BEING ADDED TO FROM SOME PREVIOUS COLUMN PROCESSING. C IF ( IILROWB .EQ. IILROW1 ) LASROW( J ) = 0 GO TO 1540 1530 CONTINUE C C MUST RESET KRIDX, KROW AND KROWS FOR INSERTION OF NEW COLUMN IN INNER LOOP C KRIDX = KMIDX+4 KROW = ZI( KRIDX ) KROWS = ZI( KRIDX+1 ) IILROW = IILROW1 1540 CONTINUE KROWN = KROW + KROWS - 1 C C JROWL IS LAST ROW TERM IN COLUMN "J". IF THIS IS BEFORE THE FIRST ROW C "KROW" TERM NEEDED, THEN NO MORE TERMS ARE NEEDED FROM COLUMN "J" AND C "LASROW" WILL INDICATE THE LAST VALUE STORED FOR COLUMN "J". C IF ( JROWL .LT. KROW ) GO TO 3000 2000 JROW = ZI( JRIDX ) JROWS = ZI( JRIDX+1 ) JROWN = JROW + JROWS - 1 2010 CONTINUE IF ( JROWN .LT. KROW ) GO TO 2895 IF ( JROW .GT. KROWN ) GO TO 2400 MISSIN = KROW - JROW C C CHECK TO SEE IF THERE ARE MISSING TERMS, I.E., TERMS CREATED DURING C THE DECOMPOSITION. IF THERE ARE MISSING TERMS, THEN SET THEIR VALUES C TO BE INITIALLY ZERO. C IF ( MISSIN .GE. 0 ) GO TO 2050 NZEROS = IABS( MISSIN ) C C STORE "NZEROS" NUMBER OF ZEROS FOR INNER LOOP TERMS C IAVAIL = I1 - ( IILROW+NZEROS-1 ) IF ( IAVAIL .LT. 0 ) GO TO 2022 DO 2020 I = 1, NZEROS ZIL( IILROW+I-1, IILCOL ) = 0.0D0 2020 CONTINUE IILROW = IILROW + NZEROS GO TO 2028 2022 ILIM1 = I1 - IILROW + 1 ILIM2 = NZEROS - ILIM1 DO 2024 I = 1, ILIM1 ZIL( IILROW+I-1, IILCOL ) = 0.0D0 2024 CONTINUE DO 2026 I = 1, ILIM2 ZIL( I, IILCOL ) = 0.0D0 2026 CONTINUE IILROW = ILIM2 + 1 2028 CONTINUE KROW = KROW + NZEROS KROWS = KROWS - NZEROS 2050 CONTINUE IF ( MISSIN .LE. 0 ) GO TO 2070 ISKIP = KROW - JROW JVIDX = JVIDX + ISKIP*NVTERM JROW = JROW + ISKIP 2070 CONTINUE IROWN = MIN0 ( KROWN, JROWN ) NUM = IROWN - KROW + 1 C C MOVE INNER LOOP VALUES FROM IN-MEMORY LOCATION TO C THE INNER LOOP AREA C NROWS = IROWN - KROW + 1 IF ( NROWS .GT. ( I1 - IILROW + 1 ) ) GO TO 2120 DO 2100 I = 1, NROWS ZIL( IILROW+I-1, IILCOL ) = ZD(JVIDX+I-1 ) 2100 CONTINUE IILROW = IILROW + NROWS GO TO 2180 2120 ILIM1 = I1 - IILROW + 1 ILIM2 = NROWS - ILIM1 DO 2122 I = 1, ILIM1 ZIL( IILROW+I-1, IILCOL ) = ZD( JVIDX+I-1 ) 2122 CONTINUE JVTMP = JVIDX + ILIM1 DO 2124 I = 1, ILIM2 ZIL( I, IILCOL ) = ZD( JVTMP+I-1 ) 2124 CONTINUE IILROW = ILIM2 + 1 2180 CONTINUE LASROW( IILCOL ) = IILROW C C IF ALL OF THE ROWS ARE NON-ZERO, SET LASROW COUNTER TO IILROW1 C IF ( IILROW .EQ. IILROW1 ) LASROW( IILCOL ) = IILROW1 JVIDX = JVIDX + NROWS JROW = JROW + NROWS KROW = IROWN + 1 KROWS = KROWN - IROWN C C INCREMENT EITHER KROW OR JROW DEPENDING UPON WHETHER IROWN = JROWN C OR IROWN = KROWN C IF ( IROWN .EQ. JROWN ) GO TO 2900 GO TO 2530 2400 CONTINUE C C STORE ZEROS FOR CREATED TERMS AND INCREMENT TO THE NEXT SET OF C OF ROWS FOR THIS PIVOTAL COLUMN. C IAVAIL = I1 - ( IILROW+KROWS-1 ) IF ( IAVAIL .LT. 0 ) GO TO 2522 DO 2510 I = 1, KROWS ZIL( IILROW+I-1, IILCOL ) = 0.0D0 2510 CONTINUE IILROW = IILROW + KROWS GO TO 2528 2522 CONTINUE ILIM2 = KROWS - ( I1 - IILROW + 1 ) DO 2524 I = IILROW, I1 ZIL( I, IILCOL ) = 0.0D0 2524 CONTINUE DO 2526 I = 1, ILIM2 ZIL( I, IILCOL ) = 0.0D0 2526 CONTINUE IILROW = ILIM2 + 1 2528 CONTINUE C C INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN "K" C 2530 KRIDX = KRIDX + 2 C C IF THERE ARE NO MORE ROWS FOR THIS COLUMN, THEN COLUMN IS COMPLETE C IF ( KRIDX .GE. KRIDXN ) GO TO 3000 KROW = ZI( KRIDX ) KROWS = ZI( KRIDX+1) KROWN = KROW + KROWS - 1 GO TO 2010 2895 CONTINUE C C INCREMENT "JVIDX" TO POINT TO THE CORRESPONDING VALUE TERM FOR THE C NEXT ROW OF COLUMN "J" C JVIDX = JVIDX + ( JROWN - JROW + 1 )*NVTERM C C INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN "J" C 2900 JRIDX = JRIDX + 2 IF ( JRIDX .GE. JRIDXN ) GO TO 3000 GO TO 2000 3000 CONTINUE C CALL AUDIT ( 'DO3000 ', 2 ) IF ( K .EQ. 1 ) GO TO 6000 C C COMPUTE THE TERMS FOR THE CURRENT COLUMN OF DATA C C do 100 k = 1,n C do 10 i = k,n C temp = 0. C do 5 l = 1,k-1 C temp = temp + a(i,l)*a(k,l) / a(l,l) C 5 continue C a(i,k) = a(i,k) - temp C 10 continue C C THE FOLLOWING LAST COMPUTATION TAKES PLACE IN SUBROUTINE SMCOUT. C THE RESULTS OF THE DIVISION ARE WRITTEN TO THE OUTPUT FILE BUT C THE RESULTS OF THE ABOVE (WITHOUT THE DIVISION BELOW) IS C MAINTAINED IN MEMORY FOR REMAINING COLUMN COMPUTATIONS. C C do 11 j = k+1,n C a(k,j) = a(j,k) / a( k,k ) C 11 continue C 100 continue C C NROWS = NUMBER OF ROWS STORED IN INNER LOOP C KCOL = LAST COLUMN NUMBER STORED IN INNER LOOP C KFRCOL = FIRST COLUMN NUMBER STORED IN INNER LOOP C NROWS = KAROWS KDIR = ( KCOL-1 ) * 4 + 1 KMIDX = ZI( KDIR ) KRIDX = KMIDX + 4 KM2 = ZI( KMIDX+1 ) KVIDX = KRIDX + KM2 KVIDX = ( KVIDX / 2 ) + 1 ILIM1 = IILROW1 + NROWS - 1 ILIM2 = 0 IAVAIL = I1 - ILIM1 IF ( IAVAIL .GE. 0 ) GO TO 4010 ILIM1 = I1 ILIM2 = NROWS - ( I1 - IILROW1 + 1 ) 4010 CONTINUE JLIM1 = MOD( KFRCOL, I2 ) JLIM2 = MOD( KLSCOL, I2 ) IF ( JLIM1 .EQ. 0 ) JLIM1 = I2 IF ( JLIM2 .EQ. 0 ) JLIM2 = I2 JLIM4 = 0 IF ( KFRCOL .EQ. K ) GO TO 6000 IF ( JLIM2 .GE. JLIM1 ) GO TO 4015 JLIM4 = JLIM2 JLIM2 = I2 4015 CONTINUE C PRINT *,' K,ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS' C PRINT *, K,ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS IF ( K .EQ. 1 ) GO TO 4007 C C COMPUTE THE OUTER LOOP TERM FOR THIS COLUMN J C I.E., -A(K,J) / A(J,J) C where K = current pivot column number; J = column being processed C C KAROWS = NUMBER OF ACTIVE ROWS FOR THE CURRENT PIVOTAL COLUMN C JCOL = COLUMN NUMBER OF CURRENT PIVOTAL COLUMN C ZOL(KBC,IC1) = FIRST ACTIVE ROW ("IILROW1") TERM OF COLUMN "KBC" C ZOL(KBC,IC2) = DIAGONAL TERM FOR COLUMN "KBC" C C CALL AUDIT ( 'COMP-ZOL', 1 ) DO 4005 KBC = JLIM1, JLIM2 ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 ) C IF ( K.EQ.16) PRINT *,' KBC,IC1,ZOL-1=',KBC,IC1,ZOL(KBC,IC1) C IF ( K.EQ.16) PRINT *,' ZIL,ZOL=',ZIL(IILROW1,KBC),ZOL(KBC,IC2) C IF ( K.EQ.16) PRINT *,' KBC,IC1,IILROW1,IC2=',KBC,IC1,IILROW1,IC2 4005 CONTINUE IF ( JLIM4 .EQ. 0 ) GO TO 4007 DO 4006 KBC = 1, JLIM4 ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 ) C IF ( K.EQ.16 ) PRINT *,' KBC,IC1,ZOL-2=',KBC,IC1,ZOL(KBC,IC1) C IF ( K.EQ.16) PRINT *,' ZIL,ZOL=',ZIL(IILROW1,KBC),ZOL(KBC,IC2) C IF ( K.EQ.16) PRINT *,' KBC,IC1,IILROW1,IC2=',KBC,IC1,IILROW1,IC2 4006 CONTINUE 4007 CONTINUE C CALL AUDIT ( 'COMP-ZOL', 2 ) C IF ( K .EQ.16 ) C & CALL KBHELPRD( KFRCOL, KLSCOL, ZOL, ZIL, I1, I2, LASROW ) C CALL AUDIT ( 'COMP-ZIL', 1 ) DO 4008 I = IILROW1, ILIM1 DTEMP(I) = 0.0D0 4008 CONTINUE C C PROCESS COLUMNS JLIM1 THROUGH JLIM2 C DO 4022 J = JLIM1, JLIM2 LIMIT = ILIM1 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 ) GO TO 4022 IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1 C C PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2 C ZOLTMP = ZOL( J, IC1 ) CALL SMCCRD ( DTEMP(IILROW1), ZIL( IILROW1,J ), LIMIT-IILROW1+1 & , ZOLTMP ) C DO 4020 I = IILROW1, LIMIT C DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP C IF ( K .EQ. 16 ) PRINT *,' 1-I,J,DTEMP,ZIL,ZOLTMP=' C IF ( K .EQ. 16 ) PRINT *, I,J,DTEMP(I),ZIL(I,J),ZOLTMP C4020 CONTINUE 4022 CONTINUE IF ( JLIM4 .EQ. 0 ) GO TO 4030 C C PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4 C DO 4024 J = 1, JLIM4 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 ) GO TO 4024 LIMIT = ILIM1 IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1 ZOLTMP = ZOL( J, IC1 ) CALL SMCCRD ( DTEMP(IILROW1), ZIL( IILROW1,J ), LIMIT-IILROW1+1 & , ZOLTMP ) C DO 4023 I = IILROW1, LIMIT C DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP C IF ( K .EQ.16 ) PRINT *,' 2-I,J,DTEMP,ZIL,ZOLTMP=' C IF ( K .EQ.16 ) PRINT *, I,J,DTEMP(I),ZIL(I,J),ZOLTMP C4023 CONTINUE 4024 CONTINUE 4030 CONTINUE IF ( ILIM2 .EQ. 0 ) GO TO 4060 DO 4032 I = 1, ILIM2 DTEMP(I) = 0.0D0 4032 CONTINUE C C PROCESS COLUMNS JLIM1 THROUGH JLIM2 C DO 4042 J = JLIM1, JLIM2 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4042 LIMIT = ILIM2 IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1 C C PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2 C ZOLTMP = ZOL( J, IC1 ) CALL SMCCRD ( DTEMP(1), ZIL( 1,J ), LIMIT, ZOLTMP ) C DO 4040 I = 1, LIMIT C DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP C IF ( K .EQ.16 ) PRINT *,' 3-I,J,DTEMP,ZIL,ZOLTMP=' C IF ( K .EQ.16 ) PRINT *, I,J,DTEMP(I),ZIL(I,J),ZOLTMP C4040 CONTINUE 4042 CONTINUE IF ( JLIM4 .EQ. 0 ) GO TO 4046 C C PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4 C DO 4044 J = 1, JLIM4 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4044 LIMIT = ILIM2 IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1 ZOLTMP = ZOL( J, IC1 ) CALL SMCCRD ( DTEMP(1), ZIL( 1,J ), LIMIT, ZOLTMP ) C DO 4043 I = 1, LIMIT C DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP C IF ( K .EQ.16 ) PRINT *,' 4-I,J,DTEMP,ZIL,ZOLTMP=' C IF ( K .EQ.16 ) PRINT *, I,J,DTEMP(I),ZIL(I,J),ZOLTMP C4043 CONTINUE 4044 CONTINUE 4046 CONTINUE 4060 CONTINUE C CALL AUDIT ( 'COMP-ZIL', 2 ) C C UPDATE EACH ACTIVE ROW TERM FOR COLUMN "K" BY SUBTRACTING "DTEMP" C C CALL AUDIT ( 'UPDATECO', 1 ) DO 4047 I = IILROW1, ILIM1 ZD( KVIDX ) = ZD( KVIDX ) - DTEMP(I) KVIDX = KVIDX + 1 4047 CONTINUE IF ( ILIM2 .EQ. 0 ) GO TO 4070 DO 4048 I = 1, ILIM2 ZD( KVIDX ) = ZD( KVIDX ) - DTEMP(I) KVIDX = KVIDX + 1 4048 CONTINUE 4070 CONTINUE C CALL AUDIT ( 'UPDATECO', 2 ) C C CALL SMCOUT TO WRITE OUT THE COLUMN TO THE OUTPUT LOWER TRIANGULAR C MATRIX FILE C 6000 CONTINUE C CALL AUDIT ( 'SMCOUT ',1 ) CALL SMCOUT ( ZI, ZI, ZD, ZOL( 1,IC1 ), ZOL( 1,IC1 ) ) C CALL AUDIT ( 'SMCOUT ',2 ) 7000 CONTINUE C CALL AUDIT ( 'DO7000 ', 2 ) C CALL AUDIT ( 'END ', 2 ) RETURN END  ================================================ FILE: mis/smc2rs.f ================================================ SUBROUTINE SMC2RS ( ZI, ZS, ZIL, ZOL, NAR, LASROW, RTEMP & , I1, I2, I3 ) C C ZIL = INNER LOOP TERMS (SIZE = MAXNAC * (MAXNCOL+NEXTRA) C ZOL = OUTER LOOP TERMS (SIZE = (MAXNCOL+NEXTRA) * 2) C NAR = SAVE AREA FOR ACTIVE ROWS OF PREVIOUS COLUMN C I1 = MAXIMUM NUMBER OF ACTIVE ROWS FOR THIS COLUMN C I2 = NUMBER OF COLUMNS ALLOCATED FOR STORAGE OF INNER AND C NUMBER OF ROWS ALLOCATED FOR OUTER LOOP C I3 = MAXIMUM NUMBER OF WORDS FOR DEFINING THE ACTIVE ROWS FOR C ANY COLUMN C LASROW = LAST NON-ZERO ROW INDEX FOR A GIVEN COLUMN (SIZE = MAXNCOL C +NEXTRA) C REAL ZS(10) , RTEMP(I3) REAL ZIL( I1, I2 ), ZOL( I2, 2 ), ZOLTMP INTEGER ZI(10), NAR( I3 ) INTEGER LASROW(I2) INCLUDE 'SMCOMX.COM' C C GET ROW VALUES CORRESPONDING TO THE ACTIVE ROWS OF COLUMN K FOR C EACH COLUMN KFRCOL THROUGH KLSCOL IN ORDER TO FILL INNER LOOP AND C OUTER LOOP AREAS. C C C BEGIN TO PROCESS EACH COLUMN C FOR COLUMN K, GET OUTER LOOP TERMS C A(K,J) / A(J,J) C K = CURRENT PIVOTAL COLUMN C J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1 C (E.G., C A(5,1)/A(1,1) C A(5,2)/A(2,2) C A(5,3)/A(3,3) C A(5,4)/A(4,4) C ALSO, GET INNER LOOP TERMS C A(I,J) C K = CURRENT PIVOTAL COLUMN C I = RANGES FROM K TO LAST ACTIVE ROW OF COLUMN K C J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1 C (E.G., C A(5,1) A(6,1) . A(N,1) C A(5,2) A(6,2) . A(N,2) C A(5,3) A(6,3) . A(N,3) C A(5,4) A(6,4) . A(N,4) C C LOOP 7000 WILL BE ON K C LOOP 6000 WILL BE ON J C IC1 = 1 IC2 = 2 IILROW1 = 1 c print *,' i1,i2,i3,maxncol,maxnac=',i1,i2,i3,maxncol,maxnac DO 7000 K = 1, NCOL KK = MOD( K, I2 ) IF ( KK .EQ. 0 ) KK = I2 LASROW( KK ) = 0 c PRINT *,' SMC2RS PROCESSING COLUMN K=',K KCOL = K KDIR = K*4 - 3 KMIDX = ZI( KDIR ) C C SEE IF DATA IS ON IN MEMORY OR ON THE SPILL FILE C IF ( KMIDX .NE. 0 ) GO TO 500 C C DATA IS ON THE SPILL FILE C CALL SMCSPL ( KCOL, ZI ) KMIDX = ZI( KDIR ) 500 CONTINUE KFRCOLP= KFRCOL KLSCOLP= KLSCOL KFRCOL = ZI( KDIR+1 ) KM2 = ZI( KMIDX+1) KRIDXN = KMIDX + 4 + KM2 KLSCOL = K - 1 KRIDX = KMIDX+4 KRIDXS = KRIDX KROW1 = ZI( KRIDX ) KROWN = KROW1 + ZI( KRIDX+1 ) - 1 KAROWS = 0 DO 510 KK = 1, KM2, 2 KAROWS = KAROWS + ZI( KRIDX+KK ) 510 CONTINUE C C IF THE PREVIOUS COLUMN DID NOT NEED DATA FROM A COLUMN PRECEEDING IT, C THEN MUST RELOAD THE INNER AND OUTER LOOP ARRAYS C IF ( KLSCOLP .LT. KFRCOLP ) GO TO 1350 C C NOW MUST FIND THE ROW AND COLUMN NUMBER FOR THIS PIVOT COLUMN C THAT IS NOT ALREADY IN THE INNER LOOP AND OUTER LOOP ARRAYS. C FIRST CHECK THAT THE FIRST REQUIRED ROW IS STORED, IF NOT THEN WE MUST C BEGIN AS IF NOTHING STORED. IF SOME OF THE REQUIRED ROWS ARE PRESENT, C THEN FIND THE NEXT POSITION AND ROW NUMBER TO BE STORED IN THE INNER C LOOP ARRAY AND THE NEXT POSITION AND COLUMN NUMBER TO BE STORED IN THE C OUTER LOOP ARRAY. C C IF THE FIRST COLUMN IS LESS THAN FIRST COLUMN OF LAST PIVOT COLUMN C THEN WE MUST LOAD THE INNER AND OUTER LOOPS FROM THE BEGINNING C IF ( KFRCOL .LT. KFRCOLP ) GO TO 1350 KR = 1 LROW1 = NAR( 1 ) LROWN = NAR( 1 ) + NAR( 2 ) - 1 C C LROW1 = FIRST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT C COLUMN PROCESSED C LROWN = LAST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT COLUMN C PROCESSED C C FIND FIRST ROW IN INNER LOOP THAT MATCHES THE FIRST ROW REQUIRED C FOR THIS COLUMN C C IF THERE IS NO MATCH FOR THE FIRST COLUMN, THEN GO TO 1350 C 1105 CONTINUE IF ( LROW1 .GT. KROW1 ) GO TO 1350 IF ( KROW1 .LT. LROWN ) GO TO 1100 C C NO OVERLAP WITH THIS STRING, GO AND GET NEXT STRING C ADJUST 'ILLROW1' WHICH IS THE POINTER TO THE FIRST ROW IN THE INNER C LOOP THAT CONTAINS THE VALUE OF ROW "KROW1" OF EACH COLUMN. C INCR = LROWN - LROW1 + 1 IILROW1 = IILROW1 + INCR IF ( IILROW1 .GT. I1 ) IILROW1 = IILROW1 - I1 KR = KR + 2 LROW1 = NAR( KR ) IF ( LROW1 .EQ. 0 ) GO TO 1350 LROWN = LROW1 + NAR( KR+1 ) - 1 GO TO 1105 1100 CONTINUE C C THERE IS AN OVERLAP, SET KROWB, KROWSB, AND IILROW1 TO REFLECT C THE PROPER ROW NUMBER IN THE INNER LOOP C INCR = KROW1 - LROW1 KROWB = KROW1 KROWSB = KROWN - KROWB + 1 KRIDXS = KRIDX IILROW1 = IILROW1 + INCR IF ( IILROW1 .GT. I1 ) IILROW1 = IILROW1 - I1 LROW1 = KROW1 IILROW = IILROW1 1120 IF ( LROW1 .NE. KROW1 ) GO TO 1180 IF ( LROWN .EQ. KROWN ) GO TO 1130 IF ( LROWN .LT. KROWN ) GO TO 1140 IF ( LROWN .GT. KROWN ) GO TO 1150 C C THIS SET OF ROWS MATCHES, GO AND CHECK THE NEXT SET OF ROW NUMBERS C 1130 CONTINUE INCR = KROWN - KROWB + 1 IILROW = IILROW + INCR IF ( IILROW .GT. I1 ) IILROW = IILROW - I1 KRIDX = KRIDX + 2 IF ( KRIDX .EQ. KRIDXN ) GO TO 1170 KR = KR + 2 KROW1 = ZI( KRIDX ) KROWB = KROW1 KROWSB = ZI( KRIDX+1 ) KROWN = KROW1 + KROWSB -1 KRIDXS = KRIDX LROW1 = NAR( KR ) LROWN = LROW1 + NAR( KR+1 ) - 1 IF ( LROW1 .EQ. 0 ) GO TO 1180 GO TO 1120 C C LAST ROW NUMBERS DO NOT MATCH, KROWN GT LROWN C 1140 CONTINUE INCR = LROWN - KROWB + 1 1145 KROWB = KROWB + INCR KROWSB = KROWSB - INCR KRIDXS = KRIDX IILROW = IILROW + INCR IF ( IILROW .GT. I1 ) IILROW = IILROW - I1 GO TO 1180 C C LAST ROW NUMBERS DO NOT MATCH, KROWN LT LROWN C 1150 CONTINUE INCR = LROWN - LROW1 + 1 GO TO 1145 C C ROWS MATCH FOR INNER LOOP COLUMN VALUES, NOW DETERMINE THE COLUMN INDEX C FOR THE NEXT COLUMN TO ADD TO THE INNER AND OUTER LOOP ARRAYS. 1170 CONTINUE KFRCOLG = KLSCOLP+1 IILROW = IILROW1 GO TO 1400 C C NOT ALL NEEDED ROW VALUES ARE PRESENT, MUST GET NEEDED ROWS C FOR ALL COLUMNS REQUIRED FOR THIS PIVOT COLUMN C 1180 CONTINUE KFRCOLG = KFRCOL GO TO 1400 C C NO MATCH FOUND, WILL START LOADING THE INNER AND OUTER LOOP ARRAYS C FROM THE BEGINNING C 1350 IILROW1 = 1 IILROW = 1 KROWB = KROW1 KROWSB = KROWN - KROW1 + 1 KFRCOLG = KFRCOL 1400 CONTINUE KRIDX = KMIDX+4 DO 1450 J = 1, KM2 NAR( J ) = ZI( KRIDX+J-1 ) 1450 CONTINUE NAR( KM2+1 ) = 0 IILROWB = IILROW C C KFRCOL = FIRST COLUMN NEEDED FOR PIVOT COLUMN "K" C KLSCOL = LAST COLUMN NEEDED FOR PIVOT COLUMN "K" C KFRCOLG = FIRST COLUMN TO BE PLACED IN INNER/OUTER LOOP ARRAYS C KFRCOLP = FIRST COLUMN OF LAST PIVOT COLUMN PROCESSED C KLSCOLP = LAST COLUMN OF LAST PIVOT COLUMN PROCESSED C c PRINT *,' KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS=' c PRINT *, KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS c PRINT *,' KROWB,KROWSB,IILROW1,IILROW,kridx=' c PRINT *, KROWB,KROWSB,IILROW1,IILROW,kridx C C KLSCOL WILL BE LESS THAN KFRCOLG FOR THE FIRST COLUMN AND FOR ANY C COLUMN THAT DOES NOT NEED A PRECEEDING COLUMN OF DATA C IF ( KLSCOL .LT. KFRCOLG ) GO TO 6000 DO 3000 J = KFRCOLG, KLSCOL IILCOL = MOD ( J, I2 ) IF ( IILCOL .EQ. 0 ) IILCOL = I2 JCOL = J JDIR = J*4 - 3 JMIDX = ZI( JDIR ) C C SEE IF COLUMN DATA IS IN MEMORY OR ON THE SPILL FILE C IF ( JMIDX .NE. 0 ) GO TO 1500 C C DATA IS ON THE SPILL FILE C CALL SMCSPL ( JCOL, ZI ) IF ( ZI( JDIR ) .EQ. 0 ) JMIDX = ISPILL IF ( ZI( JDIR ) .NE. 0 ) JMIDX = ZI( JDIR ) 1500 CONTINUE JRIDX = JMIDX + 4 JM2 = ZI( JMIDX + 1 ) JRIDXN = JRIDX + JM2 JROWL = ZI( JRIDX+JM2-2 ) + ZI( JRIDX+JM2-1 ) - 1 JVIDX = JRIDXN C C SAVE DIAGONAL TERM FOR COLUMN J ; (ALWAYS, THE FIRST TERM) C ZOL( IILCOL, IC2 ) = 1.0 / ZS( JVIDX ) C C FOR EACH COLUMN J, GET REQUIRED ROWS; I.E, ACTIVE ROWS OF COLUMN K C IF ( J .GT. KLSCOLP ) GO TO 1530 C C SET VARIABLES FOR ADDING ROW TERMS TO AN EXISTING COLUMN IN THE INNER LOOP C KRIDX = KRIDXS KROW = KROWB KROWS = KROWSB IILROW = IILROWB C C SET LASROW TO ZERO IF THIS COLUMN IS BEING RELOADED INTO ZIL AND NOT C BEING ADDED TO FROM SOME PREVIOUS COLUMN PROCESSING. C IF ( IILROWB .EQ. IILROW1 ) LASROW( J ) = 0 GO TO 1540 1530 CONTINUE C C MUST RESET KRIDX, KROW AND KROWS FOR INSERTION OF NEW COLUMN IN INNER LOOP C KRIDX = KMIDX+4 KROW = ZI( KRIDX ) KROWS = ZI( KRIDX+1 ) IILROW = IILROW1 1540 CONTINUE KROWN = KROW + KROWS - 1 C C JROWL IS LAST ROW TERM IN COLUMN "J". IF THIS IS BEFORE THE FIRST ROW C "KROW" TERM NEEDED, THEN NO MORE TERMS ARE NEEDED FROM COLUMN "J" AND C "LASROW" WILL INDICATE THE LAST VALUE STORED FOR COLUMN "J". C IF ( JROWL .LT. KROW ) GO TO 3000 2000 JROW = ZI( JRIDX ) JROWS = ZI( JRIDX+1 ) JROWN = JROW + JROWS - 1 2010 CONTINUE IF ( JROWN .LT. KROW ) GO TO 2895 IF ( JROW .GT. KROWN ) GO TO 2400 MISSIN = KROW - JROW C C CHECK TO SEE IF THERE ARE MISSING TERMS, I.E., TERMS CREATED DURING C THE DECOMPOSITION. IF THERE ARE MISSING TERMS, THEN SET THEIR VALUES C TO BE INITIALLY ZERO. C IF ( MISSIN .GE. 0 ) GO TO 2050 NZEROS = IABS( MISSIN ) C C STORE "NZEROS" NUMBER OF ZEROS FOR INNER LOOP TERMS C IAVAIL = I1 - ( IILROW+NZEROS-1 ) IF ( IAVAIL .LT. 0 ) GO TO 2022 DO 2020 I = 1, NZEROS ZIL( IILROW+I-1, IILCOL ) = 0.0 2020 CONTINUE IILROW = IILROW + NZEROS GO TO 2028 2022 ILIM1 = I1 - IILROW + 1 ILIM2 = NZEROS - ILIM1 DO 2024 I = 1, ILIM1 ZIL( IILROW+I-1, IILCOL ) = 0.0 2024 CONTINUE DO 2026 I = 1, ILIM2 ZIL( I, IILCOL ) = 0.0 2026 CONTINUE IILROW = ILIM2 + 1 2028 CONTINUE KROW = KROW + NZEROS KROWS = KROWS - NZEROS 2050 CONTINUE IF ( MISSIN .LE. 0 ) GO TO 2070 ISKIP = KROW - JROW JVIDX = JVIDX + ISKIP*NVTERM JROW = JROW + ISKIP 2070 CONTINUE IROWN = MIN0 ( KROWN, JROWN ) NUM = IROWN - KROW + 1 C C MOVE INNER LOOP VALUES FROM IN-MEMORY LOCATION TO C THE INNER LOOP AREA C NROWS = IROWN - KROW + 1 IF ( NROWS .GT. ( I1 - IILROW + 1 ) ) GO TO 2120 DO 2100 I = 1, NROWS ZIL( IILROW+I-1, IILCOL ) = ZS(JVIDX+I-1 ) 2100 CONTINUE IILROW = IILROW + NROWS GO TO 2180 2120 ILIM1 = I1 - IILROW + 1 ILIM2 = NROWS - ILIM1 DO 2122 I = 1, ILIM1 ZIL( IILROW+I-1, IILCOL ) = ZS( JVIDX+I-1 ) 2122 CONTINUE JVTMP = JVIDX + ILIM1 DO 2124 I = 1, ILIM2 ZIL( I, IILCOL ) = ZS( JVTMP+I-1 ) 2124 CONTINUE IILROW = ILIM2 + 1 2180 CONTINUE LASROW( IILCOL ) = IILROW C C IF ALL OF THE ROWS ARE NON-ZERO, SET LASROW COUNTER TO IILROW1 C IF ( IILROW .EQ. IILROW1 ) LASROW( IILCOL ) = IILROW1 JVIDX = JVIDX + NROWS JROW = JROW + NROWS KROW = IROWN + 1 KROWS = KROWN - IROWN C C INCREMENT EITHER KROW OR JROW DEPENDING UPON WHETHER IROWN = JROWN C OR IROWN = KROWN C IF ( IROWN .EQ. JROWN ) GO TO 2900 GO TO 2530 2400 CONTINUE C C STORE ZEROS FOR CREATED TERMS AND INCREMENT TO THE NEXT SET OF C OF ROWS FOR THIS PIVOTAL COLUMN. C IAVAIL = I1 - ( IILROW+KROWS-1 ) IF ( IAVAIL .LT. 0 ) GO TO 2522 DO 2510 I = 1, KROWS ZIL( IILROW+I-1, IILCOL ) = 0.0 2510 CONTINUE IILROW = IILROW + KROWS GO TO 2528 2522 CONTINUE ILIM2 = KROWS - ( I1 - IILROW + 1 ) DO 2524 I = IILROW1, I1 ZIL( I, IILCOL ) = 0.0 2524 CONTINUE DO 2526 I = 1, ILIM2 ZIL( I, IILCOL ) = 0.0 2526 CONTINUE IILROW = ILIM2 + 1 2528 CONTINUE C C INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN "K" C 2530 KRIDX = KRIDX + 2 C C IF THERE ARE NO MORE ROWS FOR THIS COLUMN, THEN COLUMN IS COMPLETE C IF ( KRIDX .GE. KRIDXN ) GO TO 3000 KROW = ZI( KRIDX ) KROWS = ZI( KRIDX+1) KROWN = KROW + KROWS - 1 GO TO 2010 2895 CONTINUE C C INCREMENT "JVIDX" TO POINT TO THE CORRESPONDING VALUE TERM FOR THE C NEXT ROW OF COLUMN "J" C JVIDX = JVIDX + ( JROWN - JROW + 1 )*NVTERM C C INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN "J" C 2900 JRIDX = JRIDX + 2 IF ( JRIDX .GE. JRIDXN ) GO TO 3000 GO TO 2000 3000 CONTINUE IF ( K .EQ. 1 ) GO TO 6000 C C COMPUTE THE TERMS FOR THE CURRENT COLUMN OF DATA C C do 100 k = 1,n C do 10 i = k,n C temp = 0. C do 5 l = 1,k-1 C temp = temp + a(i,l)*a(k,l) / a(l,l) C 5 continue C a(i,k) = a(i,k) - temp C 10 continue C C THE FOLLOWING LAST COMPUTATION TAKES PLACE IN SUBROUTINE SMCOUT. C THE RESULTS OF THE DIVISION ARE WRITTEN TO THE OUTPUT FILE BUT C THE RESULTS OF THE ABOVE (WITHOUT THE DIVISION BELOW) IS C MAINTAINED IN MEMORY FOR REMAINING COLUMN COMPUTATIONS. C C do 11 j = k+1,n C a(k,j) = a(j,k) / a( k,k ) C 11 continue C 100 continue C C NROWS = NUMBER OF ROWS STORED IN INNER LOOP C KCOL = LAST COLUMN NUMBER STORED IN INNER LOOP C KFRCOL = FIRST COLUMN NUMBER STORED IN INNER LOOP C NROWS = KAROWS KDIR = ( KCOL-1 ) * 4 + 1 KMIDX = ZI( KDIR ) KRIDX = KMIDX + 4 KM2 = ZI( KMIDX+1 ) KVIDX = KRIDX + KM2 ILIM1 = IILROW1 + NROWS - 1 ILIM2 = 0 IAVAIL = I1 - ILIM1 IF ( IAVAIL .GE. 0 ) GO TO 4010 ILIM1 = I1 ILIM2 = NROWS - ( I1 - IILROW1 + 1 ) 4010 CONTINUE JLIM1 = MOD( KFRCOL, I2 ) JLIM2 = MOD( KLSCOL, I2 ) IF ( JLIM1 .EQ. 0 ) JLIM1 = I2 IF ( JLIM2 .EQ. 0 ) JLIM2 = I2 JLIM4 = 0 IF ( KFRCOL .EQ. K ) GO TO 6000 IF ( JLIM2 .GE. JLIM1 ) GO TO 4015 JLIM4 = JLIM2 JLIM2 = I2 4015 CONTINUE C PRINT *,' JLIM1,JLIM2,JLIM4,IILROW1=',JLIM1,JLIM2,JLIM4,IILROW1 C PRINT *,' ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS' C PRINT *, ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS IF ( K .EQ. 1 ) GO TO 4007 C C COMPUTE THE OUTER LOOP TERM FOR THIS COLUMN J C I.E., -A(K,J) / A(J,J) C where K = current pivot column number; J = column being processed C C KAROWS = NUMBER OF ACTIVE ROWS FOR THE CURRENT PIVOTAL COLUMN C JCOL = COLUMN NUMBER OF CURRENT PIVOTAL COLUMN C ZOL(KBC,IC1) = FIRST ACTIVE ROW ("IILROW1") TERM OF COLUMN "KBC" C ZOL(KBC,IC2) = DIAGONAL TERM FOR COLUMN "KBC" C DO 4005 KBC = JLIM1, JLIM2 ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 ) 4005 CONTINUE IF ( JLIM4 .EQ. 0 ) GO TO 4007 DO 4006 KBC = 1, JLIM4 ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 ) 4006 CONTINUE 4007 CONTINUE C CALL KBHELPRS( KFRCOL, KLSCOL, ZOL, ZIL, I1, I2, LASROW ) DO 4008 I = IILROW1, ILIM1 RTEMP(I) = 0.0 4008 CONTINUE C C PROCESS COLUMNS JLIM1 THROUGH JLIM2 C DO 4022 J = JLIM1, JLIM2 LIMIT = ILIM1 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 ) GO TO 4022 IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1 C C PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2 C ZOLTMP = ZOL( J,IC1 ) CALL SMCCRS ( RTEMP(IILROW1), ZIL( IILROW1,J ), LIMIT-IILROW1+1 & , ZOLTMP ) C DO 4020 I = IILROW1, LIMIT C RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP C4020 CONTINUE 4022 CONTINUE IF ( JLIM4 .EQ. 0 ) GO TO 4030 C C PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4 C DO 4024 J = 1, JLIM4 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 ) GO TO 4024 LIMIT = ILIM1 IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1 ZOLTMP = ZOL( J,IC1 ) CALL SMCCRS ( RTEMP(IILROW1), ZIL( IILROW1,J ), LIMIT-IILROW1+1 & , ZOLTMP ) C DO 4023 I = IILROW1, LIMIT C RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP C4023 CONTINUE 4024 CONTINUE 4030 CONTINUE IF ( ILIM2 .EQ. 0 ) GO TO 4060 DO 4032 I = 1, ILIM2 RTEMP(I) = 0.0 4032 CONTINUE C C PROCESS COLUMNS JLIM1 THROUGH JLIM2 C DO 4042 J = JLIM1, JLIM2 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4042 LIMIT = ILIM2 IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1 C C PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2 C ZOLTMP = ZOL( J,IC1 ) CALL SMCCRS ( RTEMP(1), ZIL( 1,J ), LIMIT, ZOLTMP ) C DO 4040 I = 1, LIMIT C RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP C4040 CONTINUE 4042 CONTINUE IF ( JLIM4 .EQ. 0 ) GO TO 4046 C C PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4 C DO 4044 J = 1, JLIM4 ITEST = LASROW( J ) IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4044 LIMIT = ILIM2 IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1 ZOLTMP = ZOL( J,IC1 ) CALL SMCCRS ( RTEMP(1), ZIL( 1,J ), LIMIT, ZOLTMP ) C DO 4043 I = 1, LIMIT C RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP C4043 CONTINUE 4044 CONTINUE 4046 CONTINUE 4060 CONTINUE C C UPDATE EACH ACTIVE ROW TERM FOR COLUMN "K" BY SUBTRACTING "RTEMP" C DO 4047 I = IILROW1, ILIM1 ZS( KVIDX ) = ZS( KVIDX ) - RTEMP(I) KVIDX = KVIDX + 1 4047 CONTINUE IF ( ILIM2 .EQ. 0 ) GO TO 4070 DO 4048 I = 1, ILIM2 ZS( KVIDX ) = ZS( KVIDX ) - RTEMP(I) KVIDX = KVIDX + 1 4048 CONTINUE 4070 CONTINUE C C CALL SMCOUT TO WRITE OUT THE COLUMN TO THE OUTPUT LOWER TRIANGULAR C MATRIX FILE C 6000 CONTINUE CALL SMCOUT ( ZI, ZI, ZS, ZOL( 1,IC1 ), ZOL( 1,IC1 ) ) 7000 CONTINUE RETURN END  ================================================ FILE: mis/smcccd.f ================================================ SUBROUTINE SMCCCD ( DTEMP, ZIL, ILIM, ZOL ) DOUBLE COMPLEX DTEMP( ILIM ), ZIL( ILIM ), ZOL DO 10 I = 1, ILIM DTEMP( I ) = DTEMP( I ) + ZIL( I ) * ZOL 10 CONTINUE RETURN END ================================================ FILE: mis/smcccs.f ================================================ SUBROUTINE SMCCCS ( CTEMP, ZIL, ILIM, ZOL ) COMPLEX CTEMP( ILIM ), ZIL( ILIM ), ZOL DO 10 I = 1, ILIM CTEMP( I ) = CTEMP( I ) + ZIL( I ) * ZOL 10 CONTINUE RETURN END ================================================ FILE: mis/smccrd.f ================================================ SUBROUTINE SMCCRD ( DTEMP, ZIL, ILIM, ZOL ) DOUBLE PRECISION DTEMP( ILIM ), ZIL( ILIM ), ZOL DO 10 I = 1, ILIM DTEMP( I ) = DTEMP( I ) + ZIL( I ) * ZOL 10 CONTINUE RETURN END ================================================ FILE: mis/smccrs.f ================================================ SUBROUTINE SMCCRS ( TEMP, ZIL, ILIM, ZOL ) REAL TEMP( ILIM ), ZIL( ILIM ), ZOL DO 10 I = 1, ILIM TEMP( I ) = TEMP( I ) + ZIL( I ) * ZOL 10 CONTINUE RETURN END ================================================ FILE: mis/smcdmp.f ================================================ SUBROUTINE SMCDMP ( ZI, ZR, ZD ) C C SMCDMP DUMPS THE CONTENTS OF THE COLUMN DATA AS STORED IN MEMORY C AND POINTED TO BY THE DIRECTORY CREATED BY SUBROUTINE SMCPH1 C INTEGER ZI(10) REAL ZR(10) DOUBLE PRECISION ZD(10) INCLUDE 'SMCOMX.COM' DO 1000 ICOL = 1, NCOL IND = ( ICOL-1 ) * 4 + 1 INDEXR = ZI( IND ) IF ( INDEXR .EQ. 0 ) GO TO 700 ICOLUM = ZI( INDEXR ) LENROWS = ZI( INDEXR+1 ) NWORDS = ZI( INDEXR+2 ) LENVALS = ZI( INDEXR+3 ) WRITE( NOUT,901) ICOLUM 901 FORMAT(/,' -----------------------------COLUMN NUMBER =',I10) WRITE ( NOUT, 900 ) ZI(IND), ZI(IND+1), ZI(IND+2), ZI(IND+3) &, LENROWS, LENVALS, NWORDS 900 FORMAT(20X,' COLUMN DIRECTORY: INDEX =',I10 &,/ ,20X,' FIRST COLUMN DATA NEEDED FOR THIS PIVOT =',I10 &,/ ,20X,' LAST PIVOT COLUMN TO USE THIS COLUMN =',I10 &,/ ,20X,' SAVPOS =',2X,Z8 &,/ ,20X,' NUMBER OF WORDS DEFINING ROW NUMBERS =',I10 &,/ ,20X,' NUMBER OF NON-ZERO TERMS IN THIS COLUMN =',I10 &,/ ,20X,' TOTAL NUMBER OF WORDS ALLOCATED FOR COLUMN =',I10 & ) INDEXR = INDEXR + 4 INDEXV = INDEXR+LENROWS INDEXVD= INDEXV / 2 + 1 IEND = INDEXV 50 IROW = ZI( INDEXR ) NTERMS = ZI( INDEXR+1 ) WRITE( NOUT,905) IROW, NTERMS, KTYPE 905 FORMAT(' ROW, TERMS, TYPE=',3I10) GO TO ( 100, 200, 300, 400 ), KTYPE 100 WRITE( NOUT,906) (ZR(INDEXV+K-1),K=1,NTERMS) 906 FORMAT( 5E16.8 ) INDEXV = INDEXV + NTERMS INDEXR = INDEXR + 2 GO TO 500 200 WRITE( NOUT,907) (ZD(INDEXVD+K-1),K=1,NTERMS) 907 FORMAT( 5D16.8 ) INDEXV = INDEXV + 2*NTERMS INDEXVD= INDEXVD + NTERMS INDEXR = INDEXR + 2 GO TO 500 300 WRITE( NOUT,906) (ZR(INDEXV+K-1),K=1,2*NTERMS) INDEXV = INDEXV + 2*NTERMS INDEXR = INDEXR + 2 GO TO 500 400 WRITE( NOUT,907) (ZD(INDEXVD+K-1),K=1,2*NTERMS) INDEXV = INDEXV + 4*NTERMS INDEXVD= INDEXVD + 2*NTERMS INDEXR = INDEXR + 2 GO TO 500 500 IF ( INDEXR .GE. IEND ) GO TO 1000 GO TO 50 700 CONTINUE WRITE( NOUT,901) ICOL WRITE ( NOUT, 902 ) ZI(IND), ZI(IND+1), ZI(IND+2), ZI(IND+3) 902 FORMAT(20X,' COLUMN DIRECTORY: INDEX =',I10 &,/ ,20X,' FIRST COLUMN DATA NEEDED FOR THIS PIVOT =',I10 &,/ ,20X,' LAST PIVOT COLUMN TO USE THIS COLUMN =',I10 &,/ ,20X,' SAVPOS =',2X,Z8 &,/ ,20X,' NUMBER OF WORDS DEFINING ROW NUMBERS = N/A' &,/ ,20X,' NUMBER OF NON-ZERO TERMS IN THIS COLUMN = N/A' &,/ ,20X,' TOTAL NUMBER OF WORDS ALLOCATED FOR COLUMN = N/A' & ) WRITE( NOUT,908) 908 FORMAT(20X,' ------COLUMN HAS BEEN PUT TO SPILL FILE-----') 1000 CONTINUE 7777 RETURN END ================================================ FILE: mis/smcdmp1.f ================================================ SUBROUTINE SMCDMP1 ( ZI, ZR, ZD ) INTEGER ZI(10) REAL ZR(10) DOUBLE PRECISION ZD(10) INCLUDE 'SMCOMX.COM' DO 1000 ICOL = 1, NCOL IND = ( ICOL-1 ) * 4 + 1 INDEXR = ZI( IND ) IF ( ZI( INDEXR ) .EQ. 0 ) GO TO 700 ICOLUM = ZI( INDEXR ) LENROWS = ZI( INDEXR+1 ) NWORDS = ZI( INDEXR+2 ) LENVALS = ZI( INDEXR+3 ) WRITE( NOUT,901) ICOLUM 901 FORMAT(/,' -----------------------------COLUMN NUMBER =',I10) WRITE ( NOUT, 900 ) ZI(IND), ZI(IND+1), ZI(IND+2), ZI(IND+3) &, LENROWS, LENVALS, NWORDS 900 FORMAT(20X,' COLUMN DIRECTORY: INDEX =',I10 &,/ ,20X,' FIRST COLUMN DATA NEEDED FOR THIS PIVOT =',I10 &,/ ,20X,' LAST PIVOT COLUMN TO USE THIS COLUMN =',I10 &,/ ,20X,' SAVPOS =',2X,Z8 &,/ ,20X,' NUMBER OF WORDS DEFINING ROW NUMBERS =',I10 &,/ ,20X,' NUMBER OF NON-ZERO TERMS IN THIS COLUMN =',I10 &,/ ,20X,' TOTAL NUMBER OF WORDS ALLOCATED FOR COLUMN =',I10 & ) INDEXR = INDEXR + 4 INDEXV = INDEXR+LENROWS INDEXVD= INDEXV / 2 + 1 IEND = INDEXV 50 IROW = ZI( INDEXR ) NTERMS = ZI( INDEXR+1 ) WRITE( NOUT,905) IROW, NTERMS, KTYPE 905 FORMAT(' ROW, TERMS, TYPE=',3I10) GO TO ( 100, 200, 300, 400 ), KTYPE 100 WRITE( NOUT,906) (ZR(INDEXV+K-1),K=1,NTERMS) 906 FORMAT( 5E16.8 ) INDEXV = INDEXV + NTERMS INDEXR = INDEXR + 2 GO TO 500 200 WRITE( NOUT,907) (ZD(INDEXVD+K-1),K=1,NTERMS) 907 FORMAT( 5D16.8 ) INDEXV = INDEXV + 2*NTERMS INDEXVD= INDEXVD + NTERMS INDEXR = INDEXR + 2 GO TO 500 300 WRITE( NOUT,906) (ZR(INDEXV+K-1),K=1,2*NTERMS) INDEXV = INDEXV + 2*NTERMS INDEXR = INDEXR + 2 GO TO 500 400 WRITE( NOUT,907) (ZD(INDEXVD+K-1),K=1,2*NTERMS) INDEXV = INDEXV + 4*NTERMS INDEXVD= INDEXVD + 2*NTERMS INDEXR = INDEXR + 2 GO TO 500 500 IF ( INDEXR .GE. IEND ) GO TO 1000 GO TO 50 700 WRITE( NOUT,908) 908 FORMAT( ' COLUMN HAS BEEN PUT TO SPILL FILE') 1000 CONTINUE 7777 RETURN END ================================================ FILE: mis/smchlp.f ================================================ SUBROUTINE SMCHLP C C SMCHLP WRITES THE CONTENTS OF THE KEY PARAMETERS IN THE SYMMETRIC C DECOMPOSITION COMMON BLOCKS C INCLUDE 'SMCOMX.COM' WRITE ( NOUT, 9001 ) & NCOL , IERROR , IVWRDS , MAXNAC &, NSPILL , MAXINLOP, IDBASE , IDBMAX &, IBUF1 , IBUF2 , OPNSCR , IOLOOP &, LASCOL , KROW , KROWS , KROWN &, KRIDX , KRIDXN , JRIDXN , JROW &, JROWS , JROWN , JRIDX , JVIDX &, IROW1 , IROWN , KFRCOL , KLSCOL &, KLSROW , IOL , IIL , KTYPE &, ISKIP , INDEXV , KCOL , MAXNCOL &, MEMFRE , MEMCOL1 , MEMLCK , MEMLAS &, MEMCOLN, ISPILL , NBANDW , NVTERM 9001 FORMAT(// &, ' NCOL =',I9,' IERROR =',I9,' IVWRDS =',I9,' MAXNAC =',I9 &,/,' NSPILL =',I9,' MAXINLOP=',I9,' IDBASE =',I9,' IDBMAX =',I9 &,/,' IBUF1 =',I9,' IBUF2 =',I9,' OPNSCR =',L9,' IOLOOP =',I9 &,/,' LASCOL =',I9,' KROW =',I9,' KROWS =',I9,' KROWN =',I9 &,/,' KRIDX =',I9,' KRIDXN =',I9,' JRIDXN =',I9,' JROW =',I9 &,/,' JROWS =',I9,' JROWN =',I9,' JRIDX =',I9,' JVIDX =',I9 &,/,' IROW1 =',I9,' IROWN =',I9,' KFRCOL =',I9,' KLSCOL =',I9 &,/,' KLSROW =',I9,' IOL =',I9,' IIL =',I9,' KTYPE =',I9 &,/,' ISKIP =',I9,' INDEXV =',I9,' KCOL =',I9,' MAXNCOL=',I9 &,/,' MEMFRE =',I9,' MEMCOL1 =',I9,' MEMLCK =',I9,' MEMLAS =',I9 &,/,' MEMCOLN=',I9,' ISPILL =',I9,' NBANDW =',I9,' NVTERM =',I9 & ) WRITE ( NOUT, 9002 ) ISYSBF, ISPREC 9002 FORMAT( & /,' ISYSBF =',I9,' ISPREC =',I9 ) WRITE ( NOUT, 9003 ) MBLK, MOBLK 9003 FORMAT(/,' MBLK (INPUT MATRIX STRING BLOCK)=',/,3(5I10,/) & ,/,' MOBLK (OUTPUT MATRIX STRING BLOCK)=',/,3(5I10,/)) WRITE ( NOUT, 9004 ) LCORE, POWER, MINDD, CHLSKY, ISCR1 9004 FORMAT( & /,' LCORE =',I9,' POWER =',I9,' MINDD =',E16.8 &,/,' CHLSKY =',I9,' ISCR1 =',I9 ) WRITE ( NOUT, 9005 ) MCB, LLL 9005 FORMAT(' INPUT MATRIX MCB=',/,7I8, & /, ' OUTPUT MATRIX MCB=',/,7I8 ) RETURN END ================================================ FILE: mis/smcomp.f ================================================ SUBROUTINE SMCOMP (*,ZI,ZR,ZD) C C DRIVER PROGRAM FOR SYMMETRIC DECOMPOSITION. SUBROUTINE SMCPH1 READS C THE INPUT MATRIX AND STORES THE DATA EITHER IN MEMORY OR ON THE C SPILL FILE. SUBROUTINE SMCPH2 IS THEN CALLED TO PERFORM THE C MATRIX DECOMPOSITION. C REAL ZR(4) INTEGER ZI(4) INTEGER MODULE(5), BEGN, END DOUBLE PRECISION ZD(4) INCLUDE 'SMCOMX.COM' C mcb - matrix control block for input matrix C lll - matrix control block for lower triangular matrix C dbc - dbc(1) = available scratch file, dbc(2-7) are not used C scr1, scr2, scr3 - three available scratch files C lcore - amount of open core available for use C ddr - d.p. values of (real, imaginary) for scaled value of determinant C power - scale factor to apply to determinant, determinant=det * 10**power C mindd - d.p. value for minimum value of diagonal elements C chlsky - cholesky option when =1, i.e., form c matrix C DATA MODULE / 4HSMCO, 4HMP , 3*4H / DATA BEGN / 4HBEGN / DATA END / 4HEND / IERROR = 0 NCOL = MCB(2) MODULE( 3 ) = BEGN STURM = 0 CALL CONMSG ( MODULE, 5, 0 ) CALL SMCPH1 ( ZI, ZR, ZD ) IF ( IERROR .EQ. 1 ) GO TO 701 IF ( IERROR .NE. 0 ) GO TO 700 CALL SMCPH2 ( ZI, ZR, ZD ) IF ( IERROR .EQ. 1 ) GO TO 701 C C print roots information if this is an eigenvalue problem, and keep C two largest shift point data if several shift point movings are involved. C IF ( SHFTPT .GT. 0. ) WRITE ( NOUT, 901 ) STURM, SHFTPT 901 FORMAT( 20X, I5, ' ROOTS BELOW ', 1P,E14.6 ) IF ( STURM .NE. 0 ) GO TO 100 IF ( KEEP .LE. 0 ) GO TO 700 STURM = KEEP SHFTPT = PTSHFT GO TO 700 100 IF ( KEEP .GT. STURM ) GO TO 700 JJ = KEEP RS = PTSHFT KEEP = STURM PTSHFT = JJ SHFTPT = RS 700 MODULE( 3 ) = END CALL CONMSG ( MODULE, 5, 0 ) IF ( IERROR .NE. 0 ) RETURN 1 GO TO 777 701 CONTINUE MODULE( 3 ) = END CALL CONMSG ( MODULE, 5, 0 ) 777 CONTINUE RETURN END ================================================ FILE: mis/smcout.f ================================================ SUBROUTINE SMCOUT ( ZI, ZR, ZD, ZRS, ZRD ) C C SMCOUT DOES THE FINAL DIVISION OF THE TERMS OF THE PIVOTAL COLUMN C AND WRITES THE COLUMN DATA TO THE LOWER TRIANGULAR MATRIX. C C THE FOLLOWING CALCULATIONS ARE DONE IN SUBROUTINE SMC2-RS,RD,CS,CD C C do 100 k = 1,n C do 10 i = k,n C temp = 0. C do 5 l = 1,k-1 C temp = temp + a(i,l)*a(k,l) / a(l,l) C 5 continue C a(i,k) = a(i,k) - temp C 10 continue C C THE FOLLOWING LAST COMPUTATION TAKES PLACE IN THIS SUBROUTINE. C THE RESULTS OF THE DIVISION ARE WRITTEN TO THE OUTPUT FILE BUT C THE RESULTS OF THE ABOVE (WITHOUT THE DIVISION BELOW) IS C MAINTAINED IN MEMORY FOR REMAINING COLUMN COMPUTATIONS. C C do 11 j = k+1,n C a(k,j) = a(j,k) / a( k,k ) C 11 continue C 100 continue C C THE FINAL COMPUTATIONS ARE WRITTEN TO THE LLL MATRIX USING PUTSTR/ENDPUT. C INTEGER ZI(10) REAL ZR(10), MINDS, ZRS(10) DOUBLE PRECISION ZD(10), DAKK2, DAKKR, DAKKI, DAKK, XND(10) DOUBLE PRECISION DR , ZRD(10) INCLUDE 'SMCOMX.COM' CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON / XMSSG / UFM , UWM , UIM , SFM COMMON / ZZZZZZ / XNS(10) EQUIVALENCE ( XNS, XND ) EQUIVALENCE ( MINDS, MINDD ), (DSR, DDR ), (DSC, DDC ) DATA RZERO / 1.0E-10 / C PRINT *,' SMCOUT-ENTER,KCOL=',KCOL KDIR = ( KCOL-1 ) * 4 + 1 KMIDX = ZI( KDIR ) KRIDX = KMIDX + 4 KM2 = ZI( KMIDX+1 ) KRIDN = KRIDX + KM2 NROWS = 0 DO 10 I = 1, KM2, 2 NROWS = NROWS + ZI( KRIDX + I ) 10 CONTINUE KVIDX = KRIDX + KM2 GO TO (1000, 2000, 3000, 4000 ), KTYPE C C DO DIVISION IN REAL SINGLE PRECISION AND COMPUTE THE DETERMINANT DDS. C CHECK FOR THE SMALLEST VALUE OF ANY DIAGONAL ELEMENT ("MINDS") C 1000 CONTINUE AKK = ZR( KVIDX ) CWKBI 7/95 SPR95005 IF ( AKK .EQ. 0.0 ) GO TO 7002 1010 IF ( ABS( DSR ) .LT. 10. ) GO TO 1020 DSR = DSR / 10. POWER = POWER + 1 GO TO 1010 1020 IF ( ABS( DSR ) .GT. 0.1 ) GO TO 1030 DSR = DSR * 10. POWER = POWER - 1 GO TO 1020 1030 DSR = DSR * AKK MINDS = AMIN1 ( ABS(AKK), MINDS ) IF ( CHLSKY .EQ. 0 ) GO TO 1040 IF ( AKK .LE. 0 ) GO TO 7001 AKK = SQRT( AKK ) 1040 IF ( AKK .LT. 0. ) STURM = STURM + 1 CWKBD 7/95 SPR95005 C IF ( AKK .EQ. 0. ) GO TO 7002 1050 ZRS( 1 ) = AKK CWKBR 7/95 SPR95005 C AKK = 1. / AKK AKK = -1. / AKK DO 1150 I = 2, NROWS CWKBR 7/95 SPR95005 C ZRS( I ) = -1.0 * ZR( KVIDX + I - 1 ) * AKK ZRS( I ) = ZR( KVIDX + I - 1 ) * AKK 1150 CONTINUE GO TO 5000 C C DO DIVISION IN REAL DOUBLE PRECISION AND COMPUTE THE DETERMINANT DDR. C CHECK FOR THE SMALLEST VALUE OF ANY DIAGONAL ELEMENT ("MINDD") C 2000 CONTINUE KVIDX = ( KVIDX/2 ) + 1 DAKK = ZD( KVIDX ) CWKBI 7/95 SPR95005 IF ( DAKK .EQ. 0.D0 ) GO TO 7002 2010 IF ( DABS( DDR ) .LT. 10.D0 ) GO TO 2020 DDR = DDR / 10.D0 POWER = POWER + 1 GO TO 2010 2020 IF ( DABS( DDR ) .GT. 0.1 ) GO TO 2030 DDR = DDR * 10.D0 POWER = POWER - 1 GO TO 2020 2030 DDR = DDR * DAKK MINDD = DMIN1 ( DABS(DAKK), MINDD ) IF ( CHLSKY .EQ. 0 ) GO TO 2040 IF ( DAKK .LE. 0 ) GO TO 7001 DAKK = DSQRT( DAKK ) 2040 IF ( DAKK .LT. 0.D0 ) STURM = STURM + 1 CWKBD 7/95 SPR95005 C IF ( DAKK .EQ. 0.D0 ) GO TO 7002 2050 ZRD( 1 ) = DAKK CWKBR 7/95 SPR95005 C DAKK = 1.D0 / DAKK DAKK = -1.D0 / DAKK DO 2150 I = 2, NROWS CWKBR 7/95 SPR95005 C ZRD( I ) = -1.0D0 * ZD( KVIDX + I - 1 ) * DAKK ZRD( I ) = ZD( KVIDX + I - 1 ) * DAKK 2150 CONTINUE GO TO 5000 C C DO DIVISION IN COMPLEX SINGLE PRECISION AND COMPUTE THE DETERMINANT C DSR AND DSC. C CHECK FOR THE SMALLEST VALUE OF ANY DIAGONAL ELEMENT ("MINDS") C 3000 CONTINUE C (A+Bi) / (C+Di) = (AC + DB + ( CB-AD )i ) / (C**2 + D**2) AKKR = ZR( KVIDX ) AKKI = ZR( KVIDX+1 ) AKK2 = AKKR*AKKR + AKKI*AKKI CWKBI 7/95 SPR95005 IF ( AKK2 .EQ. 0. ) GO TO 7002 3010 IF ( ABS( DSR**2 + DSC**2 ) .LT. 10. ) GO TO 3020 DSR = DSR / 10. DSC = DSC / 10. POWER = POWER + 1 GO TO 3010 3020 IF ( ABS( DSR**2 + DSC**2 ) .GT. 0.1 ) GO TO 3030 DSR = DSR * 10. DSC = DSC * 10. POWER = POWER - 1 GO TO 3020 3030 RS = DSR*AKKR - DSC*AKKI DSC = DSR*AKKI + DSC*AKKR DSR = RS MINDS = AMIN1 ( ABS(AKK2), MINDS ) IF ( CHLSKY .EQ. 0 ) GO TO 3040 IF ( AKK2 .LE. 0 ) GO TO 7001 AKK2 = SQRT( AKK2 ) 3040 IF ( AKKR .LT. 0. ) STURM = STURM + 1 CWKBD 7/95 SPR95005 C IF ( AKK2 .EQ. 0. ) GO TO 7002 3050 ZRS( 1 ) = AKKR ZRS( 2 ) = AKKI NROWM = NROWS * 2 - 1 CWKBR 7/95 SPR95005 C AKK2 = 1. / AKK2 AKK2 = -1. / AKK2 KVIDX = KVIDX + 1 DO 3150 I = 2, NROWM, 2 CWKBDB 7/95 SPR95005 C ZRS( I+1 ) = -1.0 * ( ZR( KVIDX+I-1 ) * AKKR + C & ZR( KVIDX+I ) * AKKI ) * AKK2 C ZRS( I+2 ) = -1.0 * ( ZR( KVIDX+I ) * AKKR - C & ZR( KVIDX+I-1 ) * AKKI ) * AKK2 CWKBDE 7/95 SPR95005 CWKBIB 7/95 SPR95005 ZRS( I+1 ) = ( ZR( KVIDX+I-1 ) * AKKR + & ZR( KVIDX+I ) * AKKI ) * AKK2 ZRS( I+2 ) = ( ZR( KVIDX+I ) * AKKR - & ZR( KVIDX+I-1 ) * AKKI ) * AKK2 CWKBIE 7/95 SPR95005 3150 CONTINUE GO TO 5000 C C DO DIVISION IN COMPLEX DOUBLE PRECISION AND COMPUTE THE DETERMINANT C DDR AND DDC. C CHECK FOR THE SMALLEST VALUE OF ANY DIAGONAL ELEMENT ("MINDD") C 4000 CONTINUE KVIDX = ( KVIDX/2 ) + 1 DAKKR = ZD( KVIDX ) DAKKI = ZD( KVIDX+1 ) DAKK2 = DAKKR*DAKKR + DAKKI*DAKKI CWKBI 7/95 SPR95005 IF ( DAKK2 .EQ. 0. ) GO TO 7002 4010 IF ( DABS( DDR**2 + DDC**2 ) .LT. 10.D0 ) GO TO 4020 DDR = DDR / 10. DDC = DDC / 10. POWER = POWER + 1 GO TO 4010 4020 IF ( DABS( DDR**2 + DDC**2 ) .GT. 0.1D0 ) GO TO 4030 DDR = DDR * 10. DDC = DDC * 10. POWER = POWER - 1 GO TO 4020 4030 DR = DDR*DAKKR - DDC*DAKKI DDC = DDR*DAKKI + DDC*DAKKR DDR = DR MINDD = DMIN1 ( DABS(DAKK2), MINDD ) IF ( CHLSKY .EQ. 0 ) GO TO 4040 IF ( DAKK2 .LE. 0 ) GO TO 7001 DAKK2 = DSQRT( DAKK2 ) 4040 IF ( DAKKR .LT. 0. ) STURM = STURM + 1 CWKBD 7/95 SPR95005 C IF ( DAKK2 .EQ. 0. ) GO TO 7002 4050 ZRD( 1 ) = DAKKR ZRD( 2 ) = DAKKI NROWM1 = NROWS * 2 - 1 CWKBR 7/95 SPR95005 C DAKK2 = 1.D0 / (DAKK2 ) DAKK2 = -1.D0 / (DAKK2 ) KVIDX = KVIDX + 1 DO 4150 I = 2, NROWM1, 2 CWKBDB 7/95 SPR95005 C ZRD( I+1 ) = -1.0D0 * ( ZD( KVIDX+I-1 ) * DAKKR + C & ZD( KVIDX+I ) * DAKKI ) * DAKK2 C ZRD( I+2 ) = -1.0D0 * ( ZD( KVIDX+I ) * DAKKR - C & ZD( KVIDX+I-1 ) * DAKKI ) * DAKK2 CWKBDE 7/95 SPR95005 CWKBIB 7/95 SPR95005 ZRD( I+1 ) = ( ZD( KVIDX+I-1 ) * DAKKR + & ZD( KVIDX+I ) * DAKKI ) * DAKK2 ZRD( I+2 ) = ( ZD( KVIDX+I ) * DAKKR - & ZD( KVIDX+I-1 ) * DAKKI ) * DAKK2 CWKBIE 7/95 SPR95005 4150 CONTINUE GO TO 5000 C C NOW WRITE THE COLUMN OUT TO THE OUTPUT MATRIX C 5000 CONTINUE ITWRDS = 0 MOBLK( 8 ) = -1 MOBLK( 12 ) = KCOL KROW = ZI( KRIDX ) KROWS = ZI( KRIDX+ 1) IF ( KTYPE .LE. 2 ) NWDS = 1 IF ( KTYPE .GT. 2 ) NWDS = 2 IOL = 1 5050 CALL PUTSTR ( MOBLK ) MOBLK( 4 ) = KROW MOBLK( 7 ) = MIN0 ( KROWS, MOBLK(6) ) JSTR = MOBLK( 5 ) NSTR = JSTR + (MOBLK( 7 ) - 1 ) * NWDS IF ( KTYPE .GE. 3 ) NSTR = NSTR + 1 IF ( KPREC .EQ. 2 ) GO TO 5200 C C MOVE REAL SINGLE AND SINGLE COMPLEX VALUES INTO BUFFER C 5100 DO 5150 JJ = JSTR, NSTR XNS( JJ ) = ZRS( IOL ) IOL = IOL + 1 5150 CONTINUE ITWRDS = NSTR - JSTR + 1 GO TO 5500 C C MOVE REAL DOUBLE AND DOUBLE COMPLEX VALUES INTO BUFFER C 5200 DO 5250 JJ = JSTR, NSTR XND( JJ ) = ZRD( IOL ) C PRINT *,' SMCOUT,ROW,NUM,TERM=',MOBLK(4),MOBLK(7),XND(JJ) IOL = IOL + 1 5250 CONTINUE ITWRDS = ( NSTR-JSTR+1 ) * 2 5500 CONTINUE C C CHECK TO SEE IF ALL CONSECUTIVE ROWS CAN BE STORED IN THE BUFFER C I.E., ARE THERE ENOUGH WORDS IN THE AVAILABLE STRING C IF ( MOBLK( 7 ) .EQ. KROWS ) GO TO 5600 ISTORE = MOBLK( 7 ) KROWS = KROWS - ISTORE KROW = KROW + ISTORE CALL ENDPUT ( MOBLK ) GO TO 5050 C C ALL OF THE CURRENT CONSECUTIVE ROWS WERE STORED IN THE BUFFER. C GO AND GET THE NEXT SET OF CONSECUTIVE ROWS, IF ANY EXIST. C 5600 KRIDX = KRIDX + 2 IF ( KRIDX .GE. KRIDN ) GO TO 7000 CALL ENDPUT ( MOBLK ) KROW = ZI( KRIDX ) KROWS = ZI( KRIDX+1 ) GO TO 5050 C C ALL ROWS OF THIS COLUMN HAVE BEEN STORED, CLOSE OUT THE COLUMN C 7000 MOBLK( 8 ) = 1 CALL ENDPUT ( MOBLK ) GO TO 7777 7001 WRITE ( NOUT, 9001 ) UFM, KCOL 9001 FORMAT(A23,' 3181, ATTEMPT TO PERFORM CHOLESKY DECOMPOSITION' &,' ON A NEGATIVE DEFINITE MATRIX IN SUBROUTINE SMCOMP.' &,/,' NEGATIVE DIAGONAL TERM FOUND ON COLUMN ',I6) IERROR = 4 CALL MESAGE ( -61, 0, 0 ) 7002 WRITE ( NOUT, 9002 ) UWM, KCOL, RZERO 9002 FORMAT(A25,' 2396, SMCOMP COMPUTED A ZERO ON THE DIAGONAL ' &,'DURING DECOMPOSITION OF ROW NUMBER ',I6,'.',/ &,' USE OF DIAG 22 OUTPUT SHOULD PERMIT YOU TO CORRELATE THE' &,' ROW WITH A MODEL D.O.F.',/,' A VALUE OF ',E13.6 &,' WILL BE USED IN PLACE OF THE ZERO, HOWEVER',/ &,' THE ACCURACY OF THE DECOMPOSITION MAY BE IN DOUBT.') AKK = RZERO DAKK = RZERO AKKR = RZERO AKKI = RZERO DAKKR = RZERO DAKKI = RZERO AKK2 = AKKR*AKKR + AKKI*AKKI DAKK2 = DAKKR*DAKKR + DAKKI*DAKKI CWKBIB 7/95 SPR95005 GO TO ( 7010, 7020, 7030, 7040 ), KTYPE 7010 CONTINUE ZR( KVIDX ) = AKK GO TO 1010 7020 CONTINUE ZD( KVIDX ) = DAKK GO TO 2010 7030 CONTINUE ZR( KVIDX ) = AKKR ZR( KVIDX+1 ) = AKKI GO TO 3010 7040 CONTINUE ZD( KVIDX ) = DAKKR ZD( KVIDX+1 ) = DAKKI GO TO 4010 CWKBIE 7/95 SPR95005 CWKBD 7/95 SPR95005 C GO TO ( 1050, 2050, 3050, 4050 ), KTYPE 7777 LLL( 6 ) = MAX0( LLL(6), ITWRDS ) LLL( 7 ) = LLL( 7 ) + ITWRDS RETURN END ================================================ FILE: mis/smcph1.f ================================================ SUBROUTINE SMCPH1 ( ZI, ZR, ZD ) REAL ZR(4) ,MINDS LOGICAL FRSTVAL INTEGER ZI(4) ,ITEMP(4) INTEGER PRC ,WORDS ,RLCMPX ,NAME(2), REW DOUBLE PRECISION ZD(4) ,XND(10) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 CHARACTER*4 CNAME(2) CHARACTER*14 CTYPE(4) C C KTYPE = TYPE (1-RS,2-RD,3-CS,4-CD) OF LOWER TRIANGULAR MATRIX C KPREC = PRECISION (1-SINGL, 2-DOUBL) OF LOWER TRIANGULAR MATRIX C MAXROW = HIGHEST ROW NUMBER REFERENCED THUS FAR IN PROCESSING C A GIVEN COLUMN - NEEDED TO DETERMINE CREATED TERMS DURING C DECOMPOSITION C MAXINLOP= MAXIMUM TERMS FOR ANY GIVEN INNER LOOP C MAXNCOL = MAXIMUM NUMBER OF COLUMNS REFERENCED BY ANY GIVEN COLUMN C LASCOL = LAST COLUMN NUMBER OF MATRIX TO BE DECOMPOSED C NEXCOL = FIRST NON-ZERO TERM IN CURRENT PIVOT COLUMN BELOW DIAGONAL C USED TO DETERMINE THE NEXT PIVOT COLUMN WHERE THE ROW C WILL BE NEEDED. C ICURCOL = CURRENT COLUMN BEING PROCESSED C MXRECL = MAXIMUM SIZE IN WORDS OF ANY ONE RECORD WRITTEN TO THE C SPILL FILE C NSPILL = NUMBER OF COLUMNS WRITTEN TO THE SPILL FILE C INCLUDE 'SMCOMX.COM' COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /NTIME / NITEMS ,TMIO ,TMBPAK ,TMIPAK ,TMPAK 1, TMUPAK ,TMGSTR ,TMPSTR ,TMT(4) ,TML(4) COMMON /NAMES / RDNRW ,RDREW ,WRT ,WRTREW ,REW 1, NOREW ,EOFNRW ,RSP ,RDP ,CSP 2, CDP ,SQR ,RECT ,DIAG ,LOWTRI 3, UPRTRI ,SYM COMMON /ZZZZZZ/ XNS(10) COMMON /TYPE / PRC(2) , WORDS(4), RLCMPX(4) COMMON /LOGOUT/ LOUT EQUIVALENCE ( DDR , DSR ), (DDC , DSC ) EQUIVALENCE ( MINDD , MINDS ), (XNS , XND ) EQUIVALENCE ( MBLK(6) , MTERMS ), (MBLK(5), MSTR ) EQUIVALENCE ( MBLK(4) , MROW ), (MBLK(2), MTYPE) EQUIVALENCE ( CNAME , NAME ) DATA CTYPE / 'REAL SINGLE ', 'REAL DOUBLE ' &, 'COMPLEX SINGLE', 'COMPLEX DOUBLE' / C C open core is allocated as follows for phase1 of the decomposition C C ------------------------------- C zi(1) - Beginning of directory for in-memory column data C Directory (4,n) , n=number of columns of matrix C (1,i) = index to active rows and terms within memory C (2,i) = first column data needed for this pivot C (3,i) = last pivot column to use this data C (4,i) = savpos position pointer for data spilled to a C scratch file C ------------------------------- C zi(iacrow) - Beginning of active row vector. C Vector for determining active rows for each column, n words C Each row value will define the next column where the row value C is next needed for calculation of the lll matrix. C ------------------------------- C zi(IRVAL) - Stagging area for storing data C Defines the values in the next section of open core, 2*n C (1,i) = row number C (2,i) = number of consecutive terms beginning at row C This section and the next section are staging areas for storing C of rows and row values of columns to be pointed to by the directory C in the first part of open core. C ------------------------------- C zi(IVVAL) C Row values of column as defined by previous section, n*iprec words C ------------------------------- C zi(idbase) C Memory for rows and terms of columns as pointed to by directory C in the first part of open core. This data is loaded from the C bottom up to allow for better management of open core in C subroutine smcph2 which is called after this subroutine. C The format for the storage of this data is as follows: C (index from directory above points to the first word of the C data that follows) C 1. Column number C 2. Length of active row section (m*2), m=number of C repeats of contents of words 5 and 6 below. C 3. Total number of words in this block of allocation C 4. Length of values section C 5. row number C 6. number of consecutive values beginning at this row C (words 5 and 6 repeat m times) C 5+2*m. row value for first row C 5+2*m+iprec. next row value (iprec=1,2,4) C 5+2*m+iprec*l. last row value for column (l=total values) C ------------------------------- C zi(ibuf2) C Buffer for spill file if all column values can not be kept in memory C ------------------------------- C zi(ibuf1) C Buffer for input matrix file to be decomposed C ------------------------------- C c CALL AUDIT ( 'BEGIN ', 1 ) c CALL AUDIT ( 'SMCPH1 ', 1 ) CALL FNAME ( MCB, NAME ) NCOL = MCB( 2 ) MEMCOLN= 0 MXRECL = 0 MAXNAC = 0 MAXNAR = 0 IPREC = PRC ( MCB( 5 ) ) KTYPE = MCB( 5 ) IF ( ISPREC .EQ. 2 .AND. KTYPE .EQ. 1 ) KTYPE = 2 IF ( ISPREC .EQ. 2 .AND. KTYPE .EQ. 3 ) KTYPE = 4 IF ( ISPREC .EQ. 1 .AND. KTYPE .EQ. 2 ) KTYPE = 1 IF ( ISPREC .EQ. 1 .AND. KTYPE .EQ. 4 ) KTYPE = 3 IF ( KTYPE .EQ. 1 .OR. KTYPE .EQ. 3 ) KPREC = 1 IF ( KTYPE .EQ. 2 .OR. KTYPE .EQ. 4 ) KPREC = 2 IVWRDS = WORDS( KTYPE ) IACROW = 4*NCOL + 1 IRVAL = IACROW + NCOL IVVAL = IRVAL + 2*NCOL C C ENSURE THAT IVVAL IS ON A DOUBLE WORD BOUNDARY C IF ( MOD( IVVAL,2 ) .EQ. 0 ) IVVAL = IVVAL + 1 IDBASE = IVVAL + IVWRDS*NCOL C C ENSURE THAT IDBASE IS ON A DOUBLE WORD BOUNDARY C IF ( MOD( IDBASE,2 ) .EQ. 0 ) IDBASE = IDBASE + 1 IF ( LCORE .LT. (IDBASE + 2*ISYSBF) ) GO TO 7001 IBUF1 = LCORE - ISYSBF IBUF2 = IBUF1 - ISYSBF IDBMAX = IBUF2 - 1 C C ENSURE THAT IDBMAX IS ON A DOUBLE WORD BOUNDARY C IF ( MOD( IDBMAX,2 ) .EQ. 0 ) IDBMAX = IDBMAX - 1 IDBIND = IDBMAX CALL OPEN ( *7002, MCB, ZI(IBUF1), RDREW ) CALL SKPREC ( MCB, 1 ) MBLK(1) = MCB( 1 ) LLL(2) = MCB( 2 ) LLL(3) = MCB( 2 ) LLL(4) = 4 LLL(5) = KTYPE LLL(6) = 0 LLL(7) = LSHIFT( 1, NBPW-2 - (NBPW-32) ) ICURCOL = 1 OPNSCR = .FALSE. NSPILL = 0 MAXROW = 0 MAXINLOP= 0 MAXNCOL = 0 LASCOL = 0 POWER = 0 IF ( KPREC .NE. 2 ) GO TO 5 DDR = 1.0D0 DDC = 0.0D0 MINDD = 1.0D+25 GO TO 8 5 DSR = 1.0 DCR = 0.0 MINDS = 1.0E+25 8 CONTINUE MOBLK( 1 ) = LLL( 1 ) MOBLK( 2 ) = KTYPE MOBLK( 3 ) = 1 C C ZERO OUT THE ACTIVE COLUMN VECTOR C DO 10 I = 1, NCOL ZI( IACROW + I - 1 ) = 0 10 CONTINUE LEN = NCOL*4 C C ZERO OUT THE DIRECTORY C DO 20 I = 1, LEN ZI( I ) = 0 20 CONTINUE 50 CONTINUE NTERMS = 0 FRSTVAL = .TRUE. INDEXR = IRVAL INDEXV = IVVAL INDEXVD = ( INDEXV / 2 ) + 1 MBLK(8) = -1 NEXCOL = 0 INDDIR = (ICURCOL-1)*4 + 1 100 CALL GETSTR ( *1000, MBLK ) IF ( ICURCOL .LE. ( MROW+MTERMS-1) ) GO TO 120 C C ALL ROW TERMS ARE BEFORE CURRENT PIVOT COLUMN; SKIP THESE TERMS C AND GET NEXT STRING. C CHECK TO SEE IF THIS IS THE FIRST TERM OF THE PIVOT COLUMN C IF ( ZI( INDDIR + 1 ) .EQ. 0 ) ZI( INDDIR + 1 ) = MROW CALL ENDGET ( MBLK ) GO TO 100 C C SAVE SOME OR ALL OF THE TERMS IN THIS STRING C IF THIS IS NOT THE FIRST STRING TO PROCESS, THEN SAVE ALL VALUES C 120 ISKIP = 0 IF ( .NOT. FRSTVAL ) GO TO 140 C C CHECK IF THIS IS THE FIRST TERM OF THE PIVOT COLUMN C IF ( ZI( INDDIR + 1 ) .EQ. 0 ) ZI( INDDIR + 1 ) = MROW C C OTHERWISE, CHECK IF ALL TERMS OR ONLY SOME ARE TO BE SAVED C FRSTVAL = .FALSE. IF ( ICURCOL .EQ. MROW ) GO TO 130 C C CHECK FOR ZERO ON THE DIAGONAL C IF ( ICURCOL .LT. MROW ) GO TO 7004 C C SKIP ALL TERMS BEFORE THE CURRENT PIVOT COLUMN C ISKIP = ICURCOL - MROW ZI( INDEXR ) = ICURCOL NTERMS = MTERMS - ISKIP ZI( INDEXR+1 ) = NTERMS IF ( ( MTERMS-ISKIP ) .GT. 1 ) NEXCOL = ICURCOL + 1 GO TO 200 130 CONTINUE IF ( MTERMS .GT. 1 ) NEXCOL = MROW + 1 ZI(INDEXR ) = MROW ZI(INDEXR+1 ) = MTERMS NTERMS = MTERMS GO TO 200 140 CONTINUE C C CHECK TO SEE IF CURRENT STRING IS AN EXTENSION OF PREVIOUS STRING C IF ( (ZI( INDEXR )+ZI( INDEXR+1 ) ) .EQ. MROW ) GO TO 170 C C NO, MUST CREATE NEW POINTER FOR VALUES C BUT FIRST, CHECK FOR PROVIDING FOR COMPUTED TERMS OF C PREVIOUS PIVOT COLUMNS C IROW1 = ZI( INDEXR ) + ZI( INDEXR+1 ) IROWN = MROW - 1 IRFLAG = 1 GO TO 6000 C C NOW CHECK IF THE ADDED TERMS ARE PART OF SAME STRING AS THAT JUST C GOTTEN FROM GETSTR CALL C 150 IF ( ( ZI(INDEXR) + ZI(INDEXR+1) ) .EQ. MROW ) GO TO 170 C C NEW STRING TO BE DEFINED FOR THE CURRENT TERMS FROM GETSTR C 160 INDEXR = INDEXR + 2 ZI(INDEXR ) = MROW ZI(INDEXR+1 ) = MTERMS NTERMS = NTERMS + MTERMS IF ( NEXCOL .EQ. 0 ) NEXCOL = MROW GO TO 200 170 CONTINUE C C TERMS ARE AN EXTENSION OF EXISTING DATA, CHANGE THE NUMBER OF TERMS C ZI( INDEXR+1 ) = ZI( INDEXR+1 ) + MTERMS NTERMS = NTERMS + MTERMS IF ( NEXCOL .EQ. 0 ) NEXCOL = MROW 200 CALL SMCRTR ( ZR, ZD ) C C SET ACTIVE COLUMN ROW NUMBERS FOR POSSIBLE EXPANDED TERMS C IROW1 = MROW + ISKIP IROWN = IROW1 + MTERMS - 1 - ISKIP DO 400 K = IROW1, IROWN ZI( IACROW + K - 1 ) = NEXCOL 400 CONTINUE C C GO AND GET ADDITIONAL STRINGS IF ANY C CALL ENDGET ( MBLK ) GO TO 100 1000 CONTINUE C C END OF READING CURRENT COLUMN, CHECK IF DIAGONAL TERM FOUND C C PRINT *,' SMCPH1,ICURCOL,NEXCOL,MAXROW=',ICURCOL,NEXCOL,MAXROW IF ( FRSTVAL ) GO TO 7004 C C SEE IF ANY COMPUTED TERMS FROM PREVIOUS PIVOT COLUMNS ARE TO BE C ADDED ONTO THE END OF THE CURRENT ACTIVE ROWS FOR THIS COLUMN C LROW = ZI( INDEXR ) + ZI( INDEXR+1 ) - 1 IF ( LROW .GT. MAXROW ) MAXROW = LROW IROW1 = LROW + 1 IROWN = MAXROW IRFLAG = 2 C PRINT *,' B1050,ICURCOL,IROWN,IROW1=',ICURCOL,IROWN,IROW1 IF ( IROWN .GE. IROW1 ) GO TO 6000 C C SET UP DIRECTORY AND SAVE DATA EITHER C IN MEMORY OR ON SPILL FILE C 1050 CONTINUE C C RECOMPUTE LROW IN CASE NEW TERMS WERE ADDED FROM PREVIOUS PIVOT COLUMNS C LROW = ZI( INDEXR ) + ZI( INDEXR+1 ) - 1 C C INDEXR POINTS TO CURRENT DIRECTORY ENTRY BUT INDEXV POINTS TO NEXT C AVAILABLE POSITION FOR STORING TERMS C NRVALS = INDEXR - IRVAL + 2 NVVALS = INDEXV - IVVAL NWORDS = NRVALS + NVVALS + 4 C C SAVE DATA IN MEMORY AND SET DIRECTORY ACCORDINGLY C ITEST = IDBIND - NWORDS + 1 C C MAKE SURE ITEST IS ON DOUBLE WORD BOUNDARY C IF ( MOD( ITEST,2 ) .EQ. 0 ) ITEST = ITEST - 1 C C CHECK TO SEE IF THERE IS SUFFICIENT MEMORY C MAXNAR = MAX0( NRVALS, MAXNAR ) IF ( ITEST .LT. IDBASE ) GO TO 1800 IDBIND = ITEST ZI( INDDIR ) = IDBIND ZI( INDDIR + 3 ) = 0 ZI( IDBIND ) = ICURCOL ZI( IDBIND + 1 ) = NRVALS ZI( IDBIND + 2 ) = NWORDS ZI( IDBIND + 3 ) = NTERMS IDBIND = IDBIND + 3 DO 1100 K = 1, NRVALS ZI( IDBIND + K ) = ZI( IRVAL + K - 1 ) 1100 CONTINUE IDBIND = IDBIND + NRVALS IF ( KPREC .EQ. 2 ) GO TO 1300 DO 1200 K = 1, NVVALS ZI( IDBIND + K ) = ZI( IVVAL + K - 1 ) 1200 CONTINUE GO TO 1400 1300 INDXV = IDBIND / 2 NV = NVVALS / 2 IVD = IVVAL / 2 DO 1350 K = 1, NV ZD( INDXV+K ) = ZD( IVD+K ) 1350 CONTINUE 1400 CONTINUE IDBIND = IDBIND + NVVALS - NWORDS LASCOL = ICURCOL MEMCOLN= ICURCOL ITEST = NRVALS + NVVALS + 4 IF ( ITEST .GT. MXRECL ) MXRECL = ITEST GO TO 2000 1800 CONTINUE IF ( OPNSCR ) GO TO 1810 OPNSCR = .TRUE. CALL OPEN ( *7003, ISCR1, ZI(IBUF2), WRTREW ) C C NO MORE MEMORY, SAVE COLUMN DATA TO SPILL FILE, KEEP RECORD POSITION C 1810 ITEMP( 1 ) = ICURCOL ITEMP( 2 ) = NRVALS ITEMP( 3 ) = 0 ITEMP( 4 ) = NTERMS CALL WRITE ( ISCR1, ITEMP, 4, 0 ) CALL SAVPOS( ISCR1, KPOS ) CALL WRITE ( ISCR1, ZI( IRVAL ), INDEXR-IRVAL+2, 0 ) CALL WRITE ( ISCR1, ZI( IVVAL ), INDEXV-IVVAL+2, 1 ) ZI( INDDIR ) = 0 ZI( INDDIR+3 ) = KPOS NSPILL = NSPILL + 1 ITEST = NRVALS + NVVALS + 4 IF ( ITEST .GT. MXRECL ) MXRECL = ITEST 2000 CONTINUE LROW = ZI( INDEXR ) + ZI( INDEXR+1 ) - 1 C C SAVE LAST PIVOT COLUMN FOR WHICH DATA IN THIS COLUMN IS USED C IF ( NTERMS .GT. MAXNAC ) MAXNAC = NTERMS ZI( INDDIR+2 ) = LROW IFIRSTC = ZI( INDDIR+1 ) MAXTES = ( ICURCOL - IFIRSTC + 1 ) IF ( MAXTES .GT. MAXNCOL ) MAXNCOL = MAXTES MAXTES = NTERMS * ( ICURCOL - IFIRSTC ) IF ( MAXTES .GT. MAXINLOP ) MAXINLOP = MAXTES C C CHECK TO DETERMINE IF ALL COLUMNS HAVE BEEN PROCESSED C IF ( ICURCOL .GE. NCOL ) GO TO 7777 C C CHECK IF ONLY ONE TERM IN THIS COLUMN C IF ( NEXCOL .NE. 0 ) GO TO 2005 C C MUST FIND FIRST NON-ZERO TERM FOLLOWING THE CURRENT PIVOT C DO 2002 K = ICURCOL+1, NCOL IF ( ZI( IACROW+K ) .NE. ICURCOL ) GO TO 2002 NEXCOL = K GO TO 2005 2002 CONTINUE WRITE ( NOUT, 9901 ) ICURCOL GO TO 2030 9901 FORMAT(' SYMMETRIC DECOMPOSITION FOUND NO TERMS BEING ' &,' CONNECTED TO DIAGONAL ON COLUMN ',I6) 2005 CONTINUE C PRINT *,' AFTER 2005,ICURCOL,NEXCOL=',ICURCOL,NEXCOL C C UPDATE ACTIVE ROWS IN COLUMN VECTOR FOR ALL TERMS OF THIS COLUMN C LEN = IRVAL + NRVALS - 1 DO 2010 K = IRVAL, LEN, 2 IROW = ZI( K ) NROW = IROW + ZI( K+1 ) - 1 DO 2010 L = IROW, NROW ZI( IACROW + L - 1 ) = NEXCOL 2010 CONTINUE DO 2020 L = ICURCOL+1, MAXROW IF ( ZI( IACROW+L-1 ) .EQ. ICURCOL ) ZI( IACROW+L-1) = NEXCOL 2020 CONTINUE 2030 CONTINUE C C END OF CURRENT COLUMN, PREPARE FOR NEXT COLUMN C C write ( nout, 901 ) icurcol C901 format(20x,' Active rows after processing column ',i10) C do 2040 l = 1, ncol C write ( nout, 902 ) l, zi(iacrow+l-1) C902 format(' Row, next reference =',2i7) C2040 continue C write ( nout, 903 ) C903 format(20x, ' Directory',/, C &' Column Memory Index First Used Last Used Savpos') C do 2050 l = 1, ncol C ind = ( l-1 ) * 4 + 1 C write ( nout, 904 ) l, zi(ind), zi(ind+1), zi(ind+2), zi(ind+3) C904 format( i7, i14, i13, i13, i9) C2050 continue ICURCOL = ICURCOL + 1 INDDIR = (ICURCOL-1)*4 + 1 GO TO 50 C C THE FOLLOWING IS AN INTERNAL ROUTINE TO ADD COMPUTED TERMS RESULTING C FROM THE PROCESSING OF PREVIOUS PIVOT COLUMNS INTO THE CURRENT ACTIVE C ROWS FOR THE CURRENT COLUMN C 6000 CONTINUE DO 6100 K = IROW1, IROWN IF ( ZI(IACROW + K - 1 ) .LT. ICURCOL ) GO TO 6100 IF ( NEXCOL .EQ. 0 ) NEXCOL = K C C NEED TO ADD THIS TERM TO THE ACTIVE ROWS C CHECK TO SEE IF THIS TERM IS AN EXTENSION OF CURRENT TERMS C IF ( (ZI( INDEXR ) + ZI( INDEXR+1 ) ) .EQ. K ) & GO TO 6010 C C NO, NEED TO CREATE ANOTHER POINTER C INDEXR = INDEXR + 2 ZI( INDEXR ) = K ZI( INDEXR+1 ) = 1 NTERMS = NTERMS +1 GO TO 6020 6010 CONTINUE C C JUST ADD TO THE NUMBER OF CONSECUTIVE VALUES FOR CURRENT ROW C ZI( INDEXR+1 ) = ZI( INDEXR+1 ) + 1 NTERMS = NTERMS + 1 6020 CONTINUE C C NOW, ZERO OUT ROW VALUE C GO TO ( 6030, 6040, 6050, 6060), KTYPE C C TYPE IS REAL SP C 6030 ZR( INDEXV ) = 0. INDEXV = INDEXV + 1 GO TO 6100 C C TYPE IS REAL DP C 6040 ZD( INDEXVD ) = 0.D0 INDEXVD = INDEXVD + 1 INDEXV = INDEXV + 2 GO TO 6100 C C TYPE IS COMPLEX SP C 6050 ZR( INDEXV ) = 0. ZR( INDEXV+1 ) = 0. INDEXV = INDEXV + 2 GO TO 6100 C C TYPE IS COMPLEX DP C 6060 ZD( INDEXVD ) = 0.D0 ZD( INDEXVD+1 ) = 0.D0 INDEXVD = INDEXVD + 2 INDEXV = INDEXV + 4 GO TO 6100 6100 CONTINUE GO TO ( 150, 1050 ), IRFLAG C C INSUFFICIENT MEMORY C 7001 MINMUM = NCOL*7 + 2*NCOL*IVWRDS + 2*ISYSBF WRITE ( NOUT, 9001 ) UFM, MCB(1), CNAME, NCOL, KTYPE &, LCORE, MINMUM 9001 FORMAT(1X,A23,/,' INSUFFICIENT MEMORY TO DECOMPOSE MATRIX IN ' &,I4,' FILE NAME=',2A4 &,/,' NUMBER OF COLUMNS=',I7,' TYPE=',I2,' MEMORY AVAILABLE =',I10 &,/,' MINIMUM REQUIRED IS =',I10) C CALL MESAGE ( -8, 0, 0 ) IERROR = 1 GO TO 7777 7002 CALL FNAME ( MCB, NAME ) WRITE ( NOUT, 9002 ) UFM, MCB(1), CNAME 9002 FORMAT(1X, A23, /,' SMCPH1 UNABLE TO OPEN FILE ',I4,' NAME= ',2A4) IERROR = 2 CALL MESAGE ( -61, 0, 0 ) 7003 CALL FNAME ( ISCR1, NAME ) WRITE ( NOUT, 9003 ) UFM, ISCR1, CNAME 9003 FORMAT(1X, A23, /,' SMCPH1 UNABLE TO OPEN FILE ',I4,' NAME= ',2A4) IERROR = 2 CALL MESAGE ( -61, 0, 0 ) C C ZERO ON DIAGONAL, TERMINATE DECOMPOSITION BUT FIRST SCAN REST OF C MATRIX TO DETERMINE OTHER COLUMNS WITH ZERO DIAGONALS. C 7004 CONTINUE IERROR = 7 IZEROS = 1 INDEXZ = 0 IF ( FRSTVAL ) GO TO 7020 CALL ENDGET ( MBLK ) 7010 CALL SKPREC ( MBLK, 1 ) 7020 INDEXZ = INDEXZ + 1 ZI ( INDEXZ ) = ICURCOL 7025 ICURCOL = ICURCOL + 1 IF ( ICURCOL .GT. NCOL ) GO TO 7050 MBLK( 8 ) = -1 7030 CALL GETSTR ( *7020, MBLK ) CALL ENDGET ( MBLK ) IF ( ICURCOL .GE. MROW .AND. ICURCOL .LE. MROW+MTERMS-1)GO TO 7040 IF ( MROW .GT. ICURCOL ) GO TO 7010 GO TO 7030 7040 CALL SKPREC ( MBLK, 1 ) GO TO 7025 7050 CALL CLOSE ( MCB , REW ) CALL CLOSE ( ISCR1, REW ) WRITE ( NOUT, 9050 ) UFM, CNAME, (ZI(K),K=1,INDEXZ) 9050 FORMAT(A23,' 3097, SYMMETRIC DECOMPOSITION OF DATA BLOCK ',2A4 &, ' ABORTED BECAUSE THE FOLLOWING COLUMNS ARE SINGULAR -' &,/,(5X,20I6,/)) RETURN 7777 CONTINUE C CALL SMCHLP C CALL SMCDMP ( ZI, ZR, ZD ) 7778 CONTINUE CALL CLOSE ( MCB, REW ) ITWRDS = IDBMAX - IDBIND ITCOLS = NCOL - NSPILL CALL SSWTCH ( 45, L45 ) IF ( L45 .EQ. 0 ) GO TO 7779 WRITE ( LOUT, 9004 ) ITCOLS , NSPILL , MAXNAC, MAXNCOL &, MAXINLOP, ITWRDS 9004 FORMAT(/ & ,14X,' STATISTICS FOR SYMMETRIC DECOMPOSITION OF FILE ',/ &,/, 7X,' COLUMNS CONTAINED IN MEMORY =',I8 &,/, 7X,' COLUMNS WRITTEN TO SPILL FILE =',I8 &,/, 7X,' MAX. NO. OF ACTIVE ROWS FOR ANY ACTIVE COLUMN =',I8 &,/, 7X,' MAX. NUMBER OF COLUMNS REFERENCED BY A PIVOT COLUMN =',I8 &,/, 7X,' MAX. TERMS FOR ANY GIVEN INNER LOOP =',I8 &,/, 7X,' TOTAL WORDS IN OPEN CORE USED FOR COLUMN DATA =',I8 & ) WRITE ( LOUT, 9005 ) 'INPUT ', CNAME, CTYPE( MCB( 5 ) ) CALL FNAME ( LLL, NAME ) WRITE ( LOUT, 9005 ) 'OUTPUT', CNAME, CTYPE( KTYPE ) 9005 FORMAT( & 8X, A6,' FILE: ',2A4 ,' DATA TYPE= ',A14 ) c CALL AUDIT( 'SMCPH1 ', 2 ) 7779 CONTINUE RETURN END ================================================ FILE: mis/smcph2.f ================================================ SUBROUTINE SMCPH2 ( ZI, ZR, ZD ) C C SMCPH2 PERFORMS THE ACTUAL DECOMPOSITION OF THE MATRIX THAT WAS C SETUP IN MEMORY AND/OR THE SPILL BY SMCPH1. C SEE SMCPH1 FOR THE DEFINITION OF SOME OF THE VARIABLES IN /SMCOMX/ C REAL ZR(10) DOUBLE PRECISION ZD(10) ,XND(10) INTEGER ZI(10) ,ITEMP(4) INTEGER PRC ,WORDS ,RLCMPX ,NAME(2) CHARACTER*4 CNAME(2) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 INCLUDE 'SMCOMX.COM' COMMON /LOGOUT/ LOUT COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /NAMES / RDNRW ,RDREW ,WRT ,WRTREW ,REW 1, NOREW ,EOFNRW ,RSP ,RDP ,CSP 2, CDP ,SQR ,RECT ,DIAG ,LOWTRI 3, UPRTRI ,SYM COMMON /ZZZZZZ/ XNS(10) COMMON /TYPE / PRC(2) , WORDS(4), RLCMPX(4) EQUIVALENCE ( XNS, XND ) EQUIVALENCE ( MBLK(6), MTERMS ), (MBLK(5), MSTR ) EQUIVALENCE ( MBLK(4), MROW ), (MBLK(2), MTYPE) EQUIVALENCE ( NAME , CNAME ) c c open core is allocated as follows for the decomposition c C ------------------------------- C zi(1) C Directory (4,n) , n=number of columns of matrix C (1,i) = index to active rows and terms within memory C (2,i) = first column data needed for this pivot C (3,i) = last pivot column to use this data C (also, the last active row of this column) C (4,i) = savpos position pointer for data spilled to a C scratch file C ------------------------------- C zi(nar) C Area for storage of row numbers used for previous column of C decomposition (length=MAXNAR+2) C ------------------------------- C zi(ispill) C Area to read data from spill file (length =MXRECL+4) C This area is not needed if no columns written to spill file C ------------------------------- C zi(ILSROW) C Area for storage of last non-zero row term for a given column C (length=MAXNCOL) C ------------------------------- C zi(ioloop) C Values for outer loop terms in all row computations in the C current pivotal column. C C temp = temp + a(i,j) * a(k,j) / a(j,j) C =============== C i = row of column C k = pivotal column being processed C j = 1, k-1 C a(i,k) = a(i,k) - temp C (Note, length is 2*MAXNCOL) C MAXNCOL = maximum number of columns referenced by any C pivotal column C ------------------------------- C zi(iiloop) C Values for inner loop terms in each row computation C temp = temp + a(i,j) * a(k,j) / a(j,j) C ====== C i = row of column C k = pivotal column being processed C j = 1, k-1 C a(i,k) = a(i,k) - temp C (Note, length is MAXNCOL*MAXNAC) C MAXNAC = MAXIMUM NUMBER OF ACTIVE ROWS FOR ANY GIVEN COLUMN C ------------------------------- C zi(iwork) C Temporary storage for storing "temp" values for each row (see C "temp" in above equation for zi(iiloop) ) C ------------------------------- C zi(idbase) C Memory for rows and terms of columns as pointed to by directory C in the first part of open core. This data is loaded from the C bottom up to allow for better management of open core. C The format for the storage of this data is as follows: C (index from directory above points to the first word of the C data that follows) C 1. Column number C 2. Length of active row section (m*2), m=number of C repeats of contents of words 5 and 6 below. C 3. Total number of words in this block of allocation C 4. Length of values section C 5. row number C 6. number of consecutive values beginning at this row C (words 5 and 6 repeat m times) C 5+2*m. value for first row C 5+2*m+iprec. next row value (iprec=1,2,4) C 5+2*m+iprec*l. last row value for column (l=total values) C ------------------------------- C zi(ibuf2) C Buffer for spill file if all column values can not be kept in memory C ------------------------------- C zi(ibuf1) C Buffer for input matrix file to be decomposed C ------------------------------- C c CALL AUDIT ('SMCPH2 ',1 ) NAR = NCOL*4 + 1 ILSROW = NAR + MAXNAR + 2 MSPILL = 0 ISPILL = 0 IF ( NSPILL .EQ. 0 ) GO TO 5 ISPILL = NAR + MAXNAR + 1 IF ( MOD( ISPILL,2 ) .EQ. 0 ) ISPILL = ISPILL + 1 ILSROW = ISPILL + MXRECL + 4 5 CONTINUE IOLOOP = ILSROW + MAXNCOL + 2 IF ( MOD( IOLOOP,2 ) .EQ. 0 ) IOLOOP = IOLOOP + 1 IILOOP = IOLOOP + 2*MAXNCOL*IVWRDS IWORK = IILOOP + MAXNCOL*MAXNAC*IVWRDS ITOTAL = IWORK + MAXNAC*IVWRDS INDDIR = LASCOL * 4 - 3 IDBASE = ZI( INDDIR ) MEMFRE = 0 MEMLAS = 0 MEMLCK = 0 MEMCOL1= 1 XNCOL = NCOL XSPILL = NSPILL XFACT = XNCOL / ( XNCOL-NSPILL ) C C MORE = ESTIMATED NUMBER OF WORDS NEEDED FOR STORING ALL OF MATRIX C IADJ = WORDS OF COLUMN DATA THAT WILL NEED TO BE WRITTEN TO THE SPILL C FILE TO ALLOW FOR "ITOTAL" WORDS FOR THE PHASE II ARRAYS. C MORE = XFACT * ( LCORE - IDBASE ) IADJ = 0 IF ( ITOTAL .GT. IDBASE ) IADJ = ITOTAL - IDBASE MAXMEM = ITOTAL + MORE + IADJ CALL SSWTCH ( 45, L45 ) IF ( NSPILL .EQ. 0 .AND. L45 .EQ. 0 ) GO TO 10 WRITE ( LOUT, 8002 ) MAXMEM, LCORE 8002 FORMAT( & 7X,' ESTIMATED OPEN CORE NEEDED TO ELIMINATE USE OF SPILL=',I8 &,/, 7X,' OPEN CORE AVAILABLE FOR THIS DECOMPOSITION =',I8 & ) C C TEST TO BE SURE THAT AT LEAST HALF OF THE MEMORY IS AVAILABLE. C IF NOT, USE OLD METHOD INSTEAD OF THIS ONE. C XMAXMEM = MAXMEM XCORE = LCORE PERCNT = XCORE / XMAXMEM IF ( PERCNT .LT. .5 ) GO TO 7008 C C CHECK TO SEE IF ENOUGH OPEN CORE FOR INNER AND OUTER LOOP VALUES C 10 IF ( ITOTAL .LT. IDBASE ) GO TO 500 C C NEED MORE OPEN CORE FOR LOOP AREAS. WRITE COLUMN DATA TO SPILL FILE. C IF COLUMNS WERE WRITTEN TO SPILL FILE FROM SMCPH1, THEN FILE WILL C STILL BE OPEN. IF NOT, MUST ALLOW FOR SPILL AREA IN OPEN CORE AND C RE-ADJUST THE OPEN CORE POINTERS. C NEXTRA = 0 IF ( OPNSCR ) GO TO 20 OPNSCR = .TRUE. CALL OPEN ( *7003, ISCR1, ZI( IBUF2 ), WRTREW ) ISPILL = NAR + MAXNAR + 1 IF ( MOD( ISPILL,2 ) .EQ. 0 ) ISPILL = ISPILL + 1 ILSROW = ISPILL + MXRECL + 4 IOLOOP = ILSROW + MAXNCOL + 2 IF ( MOD( IOLOOP,2 ) .EQ. 0 ) IOLOOP = IOLOOP + 1 IILOOP = IOLOOP + 2*MAXNCOL*IVWRDS IWORK = IILOOP + MAXNCOL*MAXNAC*IVWRDS ITOTAL = IWORK + MAXNAC*IVWRDS 20 CONTINUE C C WRITE THE LAST COLUMN OF DATA CURRENTLY IN MEMORY TO THE SPILL FILE C INDEX = ZI( INDDIR ) IRVAL = INDEX + 4 NRVALS = ZI( INDEX+1 ) NTERMS = ZI( INDEX+3 ) IVVAL = IRVAL + NRVALS ITEMP( 1 ) = ZI( INDEX ) ITEMP( 2 ) = NRVALS ITEMP( 3 ) = 0 ITEMP( 4 ) = NTERMS C PRINT *,' SMCPH2 CALLING WRITE FOR ITEMP,NRVALS,NTERMS,IVWRDS' C PRINT *, ITEMP,NRVALS,NTERMS,IVWRDS CALL WRITE ( ISCR1, ITEMP, 4, 0 ) CALL SAVPOS( ISCR1, KPOS ) CALL WRITE ( ISCR1, ZR( IRVAL ), NRVALS, 0 ) CALL WRITE ( ISCR1, ZR( IVVAL ), NTERMS*IVWRDS, 1 ) ZI( INDDIR ) = 0 ZI( INDDIR+3 ) = KPOS 50 INDDIR = INDDIR - 4 IF ( INDDIR .LE. 0 ) GO TO 7008 IF ( ZI ( INDDIR ) .EQ. 0 ) GO TO 50 C C RESET IDBASE TO INDICATE THE LAST COLUMN OF DATA IN MEMORY C IDBASE = ZI( INDDIR ) MSPILL = MSPILL + 1 GO TO 10 C C OPEN THE OUTPUT FILE C 500 CONTINUE LEFT = IDBASE - ITOTAL C C DETERMINE HOW MANY MORE COLUMNS OF THE INNER LOOP AREA AND C EXTRA TERMS OF THE OUTER LOOP AREA ARE AVAILABLE C NEXTRA = NUMBER OF EXTRA COLUMNS AVAILABLE IN THE INNER LOOP AREA C = NUMBER OF EXTRA COLUMNS AVAILABLE IN THE OUTER LOOP AREA C (INNER LOOP AREA SIZE = MAXNAC * ( MAXNCOL + NEXTRA ) ) C (OUTER LOOP AREA SIZE = 2 * ( MAXNCOL + NEXTRA ) ) C = NUMBER OF EXTRA ROWS IN THE "ILSROW" ARRAY (MAXNCOL+NEXTRA) C (Note: for each column added, we need the following: C for array ILSROW: 1 C to insure double word boundary: 1 C for outer loop: 2*IVWRDS C for inner loop: MAXNAC*IVWRDS C ( must allow for temp array size: MAXNAC*IVWRDS NEED = 2 + 2*IVWRDS + MAXNAC*IVWRDS NEXTRA = ( LEFT - 2 - (MAXNAC*IVWRDS) ) / NEED C PRINT *,' LEFT,NEED,NEXTRA=',LEFT,NEED,NEXTRA IF ( NEXTRA .EQ. 0 ) GO TO 505 IOLOOP = ILSROW + ( MAXNCOL+NEXTRA ) + 2 IF ( MOD( IOLOOP,2 ) .EQ. 0 ) IOLOOP = IOLOOP + 1 IILOOP = IOLOOP + ( 2 * ( MAXNCOL+NEXTRA ) ) * IVWRDS IWORK = IILOOP + ( MAXNAC * ( MAXNCOL+NEXTRA ) ) * IVWRDS ITOTAL = IWORK + ( MAXNAC ) * IVWRDS 505 IF ( KPREC .EQ. 2 ) IOLOOP = IOLOOP / 2 + 1 IF ( KPREC .EQ. 2 ) IILOOP = IILOOP / 2 + 1 IF ( KPREC .EQ. 2 ) IWORK = IWORK / 2 + 1 NVTERM = 1 IF ( KTYPE .GE. 3 ) NVTERM = 2 IF ( MSPILL .NE. 0 ) WRITE ( LOUT, 8001 ) MSPILL 8001 FORMAT(8X,'ADDITIONAL COLUMNS WRITTEN TO SPILL ' &,'FOR PHASE II PROCESSING =',I6) IF ( .NOT. OPNSCR ) GO TO 510 CALL CLOSE ( ISCR1, 1 ) CALL OPEN ( *7002, ISCR1, ZI( IBUF2 ), RDREW ) 510 CONTINUE CALL OPEN ( *7001, LLL, ZI( IBUF1 ), WRTREW ) CALL FNAME ( LLL, NAME ) CALL WRITE ( LLL, NAME, 2, 1 ) C C DO THE DECOMPOSITION NOW C c CALL AUDIT ( 'SMC2RD ', 1 ) C PRINT *,' IILOOP,IOLOOP,NAR,ILSROW,NEXTRA,IDBASE,IWORK,ISPILL' C PRINT *, IILOOP,IOLOOP,NAR,ILSROW,NEXTRA,IDBASE,IWORK,ISPILL GO TO ( 1000, 2000, 3000, 4000 ), KTYPE 1000 CONTINUE CALL SMC2RS ( ZI, ZR, ZR( IILOOP ), ZR( IOLOOP ), ZI( NAR ) &, ZI( ILSROW ), ZR( IWORK ), MAXNAC, MAXNCOL+NEXTRA, MAXNAR ) GO TO 5000 2000 CONTINUE CALL SMC2RD ( ZI, ZD, ZD( IILOOP ), ZD( IOLOOP ), ZI( NAR ) &, ZI( ILSROW ), ZD( IWORK ), MAXNAC, MAXNCOL+NEXTRA, MAXNAR ) GO TO 5000 3000 CONTINUE C PRINT *,' CALLING SMC2CS' CALL SMC2CS ( ZI, ZR, ZD( IILOOP ), ZD( IOLOOP ), ZI( NAR ) &, ZI( ILSROW ), ZD( IWORK ), MAXNAC, MAXNCOL+NEXTRA, MAXNAR ) GO TO 5000 4000 CONTINUE C PRINT *,' CALLING SMC2CD' CALL SMC2CD ( ZI, ZD, ZD( IILOOP ), ZD( IOLOOP ), ZI( NAR ) &, ZI( ILSROW ), ZD( IWORK ), MAXNAC, MAXNCOL+NEXTRA, MAXNAR ) GO TO 5000 5000 CONTINUE c CALL AUDIT ( 'SMC2RD ', 2 ) CALL CLOSE ( LLL , 1 ) CALL CLOSE ( ISCR1, 1 ) GO TO 7777 7001 CONTINUE CALL FNAME ( LLL, NAME ) IERROR = 2 WRITE ( NOUT, 9001 ) UFM, LLL(1), CNAME 9001 FORMAT(1X,A23,/,' SMCPH2 UNABLE TO OPEN FILE ',I4,' ;FILE NAME =' &, 2A4 ) GO TO 7100 7002 CALL FNAME ( ISCR1, NAME ) WRITE ( NOUT, 9001 ) UFM, ISCR1, CNAME IERROR = 3 GO TO 7100 7003 CONTINUE IERROR = 2 CALL FNAME ( ISCR1, NAME ) WRITE ( NOUT, 9001 ) UFM, ISCR1, CNAME GO TO 7100 7008 CONTINUE CALL FNAME ( LLL, NAME ) MINUM = (.5 * XMAXMEM ) - LCORE WRITE ( LOUT, 9008 ) NCOL, MINUM 9008 FORMAT(8X,'INSUFFICIENT OPEN CORE FOR DECOMPOSITION WITH NEW' &,' METHOD' &,/, 8X,'TOTAL NUMBER OF COLUMNS IN MATRIX =',I8 &,/, 8X,'SUGGESTED ADDITIONAL OPEN CORE IS =',I8) CALL CLOSE ( ISCR1, 1 ) C CALL MESAGE ( -8, 0, 0 ) IERROR = 1 GO TO 7777 7100 CALL MESAGE ( -61, 0, 0 ) 7777 CONTINUE c CALL AUDIT ( 'SMCPH2 ',2) c CALL AUDIT ( 'END ',1) c IF ( NCOL .NE. 0 ) STOP RETURN END ================================================ FILE: mis/smcrtr.f ================================================ SUBROUTINE SMCRTR ( ZR, ZD ) C C THIS SUBROUTINE MOVES DATA FROM STRINGS TO OPEN CORE AND PERFORMS C ANY TYPE CONVERSIONS REQUIRED. KTYPE IS THE TYPE THAT THE C DECOMPOSITION IS TO BE DONE. MTYPE IS THE TYPE OF INPUT DATA ON C THE MATRIX TO BE DECOMPOSED. ISKIP IS THE NUMBER OF TERMS AT THE C BEGINNING OF THE STRING TO SKIP OVER. C REAL ZR(10) DOUBLE PRECISION XND(10), ZD(10) INCLUDE 'SMCOMX.COM' COMMON /ZZZZZZ/ XNS(10) EQUIVALENCE ( XNS, XND ) EQUIVALENCE ( MBLK(6), MTERMS ), (MBLK(5), MSTR ) EQUIVALENCE ( MBLK(4), MROW ), (MBLK(2), MTYPE) GO TO ( 1000, 2000, 3000, 4000 ), KTYPE 1000 GO TO ( 1010, 1020, 1030, 1040 ), MTYPE C C INPUT IS RS AND DECOMPOSITION TO BE DONE IN RS C 1010 CONTINUE ISTR = MSTR + ISKIP NUM = MTERMS - ISKIP DO 1015 K = 1, NUM ZR( INDEXV + K - 1 ) = XNS( ISTR + K - 1 ) 1015 CONTINUE INDEXV = INDEXV + NUM GO TO 7000 C C INPUT IS RD AND DECOMPOSITION TO BE DONE IN RS C 1020 CONTINUE ISTR = MSTR + ISKIP NUM = MTERMS - ISKIP DO 1025 K = 1, NUM ZR( INDEXV + K - 1 ) = XND( ISTR + K - 1 ) 1025 CONTINUE INDEXV = INDEXV + NUM GO TO 7000 C C INPUT IS CS AND DECOMPOSITION TO BE DONE IN RS C 1030 CONTINUE ISTR = MSTR + ISKIP*2 NUM = MTERMS - ISKIP DO 1035 K = 1, NUM ZR( INDEXV + K - 1 ) = XNS( ISTR + (K-1)*2 ) 1035 CONTINUE INDEXV = INDEXV + NUM GO TO 7000 C C INPUT IS CD AND DECOMPOSITION TO BE DONE IN RS C 1040 CONTINUE ISTR = MSTR + ISKIP*2 NUM = MTERMS - ISKIP DO 1045 K = 1, NUM ZR( INDEXV + K - 1 ) = XND( ISTR + (K-1)*2 ) 1045 CONTINUE INDEXV = INDEXV + NUM GO TO 7000 2000 GO TO ( 2010, 2020, 2030, 2040 ), MTYPE C C INPUT IS RS AND DECOMPOSITION TO BE DONE IN RD C 2010 CONTINUE ISTR = MSTR + ISKIP NUM = MTERMS - ISKIP DO 2015 K = 1, NUM ZD( INDEXVD + K - 1 ) = XNS( ISTR + K - 1 ) 2015 CONTINUE INDEXV = INDEXV + 2*NUM INDEXVD = INDEXVD + NUM GO TO 7000 C C INPUT IS RD AND DECOMPOSITION TO BE DONE IN RD C 2020 CONTINUE ISTR = MSTR + ISKIP NUM = MTERMS - ISKIP DO 2025 K = 1, NUM ZD( INDEXVD + K - 1 ) = XND( ISTR + K - 1 ) 2025 CONTINUE INDEXVD = INDEXVD + NUM INDEXV = INDEXV + 2*NUM GO TO 7000 C C INPUT IS CS AND DECOMPOSITION TO BE DONE IN RD C 2030 CONTINUE ISTR = MSTR + ISKIP*2 NUM = MTERMS - ISKIP DO 2035 K = 1, NUM ZD( INDEXVD + K - 1 ) = XNS( ISTR + (K-1)*2 ) 2035 CONTINUE INDEXV = INDEXV + 2*NUM INDEXVD = INDEXVD + NUM GO TO 7000 C C INPUT IS CD AND DECOMPOSITION TO BE DONE IN RD C 2040 CONTINUE ISTR = MSTR + ISKIP*2 NUM = MTERMS - ISKIP DO 2045 K = 1, NUM ZD( INDEXVD + K - 1 ) = XND( ISTR + (K-1)*2 ) 2045 CONTINUE INDEXVD = INDEXVD + NUM INDEXV = INDEXV + 2*NUM GO TO 7000 3000 GO TO ( 3010, 3020, 3030, 3040 ), MTYPE C C INPUT IS RS AND DECOMPOSITION TO BE DONE IN CS C 3010 CONTINUE ISTR = MSTR + ISKIP NUM = MTERMS - ISKIP DO 3015 K = 1, NUM ZR( INDEXV + (K-1)*2 ) = XNS( ISTR + K - 1 ) ZR( INDEXV + (K-1)*2+1 ) = 0.0 3015 CONTINUE INDEXV = INDEXV + 2*NUM GO TO 7000 C C INPUT IS RD AND DECOMPOSITION TO BE DONE IN CS C 3020 CONTINUE ISTR = MSTR + ISKIP NUM = MTERMS - ISKIP DO 3025 K = 1, NUM ZR( INDEXV + (K-1)*2 ) = XND( ISTR + K - 1 ) ZR( INDEXV + (K-1)*2 + 1 ) = 0.0D0 3025 CONTINUE INDEXV = INDEXV + 2*NUM GO TO 7000 C C INPUT IS CS AND DECOMPOSITION TO BE DONE IN CS C 3030 CONTINUE ISTR = MSTR + ISKIP*2 NUM = ( MTERMS - ISKIP ) * 2 DO 3035 K = 1, NUM ZR( INDEXV + K - 1 ) = XNS( ISTR + K - 1 ) 3035 CONTINUE INDEXV = INDEXV + NUM GO TO 7000 C C INPUT IS CD AND DECOMPOSITION TO BE DONE IN CS C 3040 CONTINUE ISTR = MSTR + ISKIP*2 NUM = ( MTERMS - ISKIP ) * 2 DO 3045 K = 1, NUM ZR( INDEXV + K - 1 ) = XND( ISTR + K - 1 ) 3045 CONTINUE INDEXV = INDEXV + NUM GO TO 7000 4000 GO TO ( 4010, 4020, 4030, 4040 ), MTYPE C C INPUT IS RS AND DECOMPOSITION TO BE DONE IN CD C 4010 CONTINUE ISTR = MSTR + ISKIP NUM = MTERMS - ISKIP DO 4015 K = 1, NUM ZD( INDEXVD + (K-1)*2 ) = XNS( ISTR + K - 1 ) ZD( INDEXVD + (K-1)*2+1 ) = 0.0 4015 CONTINUE INDEXV = INDEXV + 4*NUM INDEXVD = INDEXVD + 2*NUM GO TO 7000 C C INPUT IS RD AND DECOMPOSITION TO BE DONE IN CD C 4020 CONTINUE ISTR = MSTR + ISKIP NUM = MTERMS - ISKIP DO 4025 K = 1, NUM ZD( INDEXVD + (K-1)*2 ) = XND( ISTR + K - 1 ) ZD( INDEXVD + (K-1)*2 + 1 ) = 0.0D0 4025 CONTINUE INDEXV = INDEXV + 4*NUM INDEXVD = INDEXVD + 2*NUM GO TO 7000 C C INPUT IS CS AND DECOMPOSITION TO BE DONE IN CD C 4030 CONTINUE ISTR = MSTR + ISKIP*2 NUM = ( MTERMS - ISKIP ) * 2 DO 4035 K = 1, NUM ZD( INDEXVD + K - 1 ) = XNS( ISTR + K - 1 ) 4035 CONTINUE INDEXV = INDEXV + 2*NUM INDEXVD = INDEXVD + NUM GO TO 7000 C C INPUT IS CD AND DECOMPOSITION TO BE DONE IN CD C 4040 CONTINUE ISTR = MSTR + ISKIP*2 NUM = ( MTERMS - ISKIP ) * 2 DO 4045 K = 1, NUM ZD( INDEXVD + K - 1 ) = XND( ISTR + K - 1 ) 4045 CONTINUE INDEXV = INDEXV + 2*NUM INDEXVD = INDEXVD + NUM GO TO 7000 7000 RETURN END ================================================ FILE: mis/smcspl.f ================================================ SUBROUTINE SMCSPL ( MCOL, ZI ) C C SMCSPL RETRIEVES COLUMN "MCOL" FROM THE SPILL FILE. C IF THIS COLUMN IS THE PIVOT COLUMN AND NO SPACE IS AVAILABLE, THEN C IN-MEMORY DATA WILL BE WRITTEN TO THE SPILL FILE TO MAKE SPACE C AVAILABLE FOR THE COLUMN DATA. IF THE COLUMN IS NOT THE PIVOT C COLUMN, THEN THE DATA IS READ INTO THE SPILL ARRAY IN OPEN CORE. C WHEN A NEW PIVOT COLUMN IS DETERMINED, AN ANALYSIS IS DONE TO C FREE UP MEMORY OF COLUMN DATA NO LONGER NEEDED. C INTEGER ZI(10), ITEMP(4) INCLUDE 'SMCOMX.COM' CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON / XMSSG / UFM, UWM, UIM, SFM MDIR = (MCOL-1)*4 + 1 C C POSITION SPILL FILE TO CORRECT RECORD FOR THIS COLUMN AND READ DATA C CALL FILPOS ( ISCR1, ZI( MDIR+3 ) ) CALL READ ( *7001, *7002, ISCR1, ZI( ISPILL ), 4, 0, 4 ) MM2 = ZI( ISPILL+1 ) MTERMS = ZI( ISPILL+3 ) MWORDS = MM2 + MTERMS * IVWRDS C PRINT *,' SMCSPL,MM2,MTERMS,MWORDS=',MM2,MTERMS,MWORDS CALL READ ( *7001, *7002, ISCR1, ZI( ISPILL+4 ),MWORDS,1,MWORDS ) C C CHECK IF WE HAVE ALREADY SCANNED FOR UNNEEDED COLUMNS FOR THIS PIVOT C C PRINT *,' SMCSPL,MEMLCK,KCOL=',MEMLCK,KCOL IF ( MEMLCK .EQ. KCOL ) GO TO 300 MEMLCK = KCOL C C SCAN FOR COLUMNS NO LONGER NEEDED AND ADD THEM TO THE FREE CHAIN C IFIRST = 0 DO 200 I = MEMCOL1, KCOL IDIR = (I-1)*4 + 1 C C CHECK TO SEE IF THIS COLUMN NEEDED BY ANY SUBSEQUENT COLUMNS TO FOLLOW C IF ( ZI( IDIR + 2 ) .GE. KCOL ) GO TO 199 C C DATA NO LONGER NEEDED, IS DATA IN MEMORY IF SO FREE THE SPACE TO THE C FREE CHAIN C IF ( ZI( IDIR ) .EQ. 0 ) GO TO 200 C C DATA IS IN MEMORY, RETURN SPACE TO FREE CHAIN C FIRST, CHECK IF A FREE CHAIN EXISTS C IF ( MEMFRE .NE. 0 ) GO TO 100 C C FREE CHAIN DOES NOT EXISTS, MAKE THIS SPACE THE FREE CHAIN C IIDX = ZI( IDIR ) MEMFRE = IIDX MEMLAS = IIDX ZI( IIDX ) = 0 ZI( IIDX+1 ) = 0 ZI( IDIR ) = 0 GO TO 200 C C FREE CHAIN EXISTS, ADD THIS SPACE TO IT C 100 LIDX = MEMLAS IIDX = ZI( IDIR ) MEMLAS = IIDX ZI( LIDX+1 ) = MEMLAS ZI( IIDX ) = LIDX ZI( IIDX+1 ) = 0 ZI( IDIR ) = 0 GO TO 200 199 IF ( IFIRST .EQ. 0 ) IFIRST = I 200 CONTINUE MEMCOL1 = IFIRST C C CHECK IF THE FREE CHAIN IS EMPTY C 300 IF ( MEMFRE .EQ. 0 ) GO TO 1000 C C LOOP THROUGH FREE CHAIN TO FIND BLOCK LARGE ENOUGH FOR DATA C IIDX = MEMFRE 400 CONTINUE IF ( ZI( IIDX+2 ) .GE. (MWORDS+4) ) GO TO 500 IIDX = ZI( IIDX+1 ) IF ( IIDX .NE. 0 ) GO TO 400 C C FREE CHAIN EXHAUSTED WITHOUT LARGE ENOUGH BLOCK, MUST CREATE SPACE C C PRINT *,' SMCSPL GOING TO 1000 FROM 400' GO TO 1000 C C SPACE FOUND, USE THIS FOR THE COLUMN DATA READ FROM THE SPILL FILE. C RECONNECT FREE CHAIN WITHOUT THIS SPACE C 500 ZI ( MDIR ) = IIDX IPREV = ZI( IIDX ) INEXT = ZI( IIDX+1 ) C PRINT *,' SMCSPL,AFTER 500,IPREV,INEXT=',IPREV,INEXT IF ( IPREV .NE. 0 ) GO TO 510 IF ( INEXT .EQ. 0 ) GO TO 505 ZI( INEXT ) = 0 MEMFRE = INEXT GO TO 530 505 MEMFRE = 0 GO TO 530 510 IF ( INEXT .EQ. 0 ) GO TO 520 C PRINT *,' SMCSPL,AFTER 510,INEXT,IPREV=',INEXT,IPREV ZI( IPREV+1 ) = INEXT ZI( INEXT ) = IPREV GO TO 530 520 ZI( IPREV+1 ) = 0 MEMLAS = IPREV C C MOVE DATA TO IN MEMORY LOCATION C 530 CONTINUE ZI( MDIR ) = IIDX ZI( MDIR+3 ) = 0 ZI( IIDX ) = MCOL ZI( IIDX+1 ) = MM2 ZI( IIDX+3 ) = MTERMS DO 540 J = 1, MWORDS ZI( IIDX+J+3 ) = ZI (ISPILL+J+3 ) 540 CONTINUE MEMCOLN = MCOL C PRINT *,' SMCSPL,A540,IIDX,ZI(1-5=',IIDX,(ZI(IIDX+KB),KB=0,4) GO TO 7777 C C NO SPACE FOUND IN MEMORY FOR THIS DATA. C CHECK IF COLUMN BEING REQUESTED IS THE PIVOT COLUMN C 1000 CONTINUE C PRINT *,' SMCSPL,MCOL,KCOL=',MCOL,KCOL IF ( MCOL .NE. KCOL ) GO TO 2000 C C COLUMN REQUESTED IS THE PIVOT COLUMN, FIRST DETERMINE IF THERE C ARE CONTIGUOUS BLOCKS IN THE FREE CHAIN THAT CAN BE MERGED TOGETHER C IF ( MEMFRE .EQ. 0 ) GO TO 1400 INDEX1 = MEMFRE INDEXT = MEMFRE 1100 CONTINUE INDEX2 = ZI( INDEXT + 1 ) IF ( INDEX2 .EQ. 0 ) GO TO 1300 C C COMPUTE THE LAST ADDRESS (PLUS 1) OF THIS FREE BLOCK AND COMPARE C IT WITH THE BEGINNING OF BLOCK REFERENCED BY VARIABLE "INDEX1" C IEND = INDEX2 + ZI( INDEX2 + 2 ) IF ( IEND .EQ. INDEX1 ) GO TO 1200 C C BLOCK IS NOT CONTIGUOUS, GO AND TEST NEXT BLOCK IN CHAIN C INDEXT = INDEX2 GO TO 1100 C C BLOCK IS CONTIGUOUS, MERGE THIS BLOCK AND THEN GO BACK TO C TEST THE FREE CHAIN FOR SPACE FOR THE CURRENT PIVOT COLUMN. C EACH FREE CHAIN BLOCK HAS THE FOLLOWING FORMAT FOR THE FIRST 3 C WORDS: C (1) = Pointer to previous block in chain C (2) = Pointer to next block in chain C (3) = Number of words in this block C (Note: Blocks are allocated from high memory to low:) C Memory Address N C Block k C Block k-1 C . C Block 1 C Memory Address N+M C 1200 CONTINUE C PRINT *,' SMCSPL,A1200,INDEX1,INDEX2=',INDEX1,INDEX2 ZI( INDEX2+2 ) = ZI( INDEX1+2 ) + ZI( INDEX2+2 ) C C RESET NEXT AND PREVIOUS POINTERS OF CHAIN BLOCKS C INDEXP = ZI( INDEX1 ) ZI( INDEX2 ) = INDEXP IF ( INDEXP .EQ. 0 ) MEMFRE = INDEX2 IF ( INDEXP .NE. 0 ) ZI( INDEXP+1 ) = INDEX2 C PRINT *,' SMCSPL,A1200,MWORDS,ZI(INDEX1+2=',MWORDS,ZI(INDEX1+2) IF ( ZI( INDEX2+2 ) .LT. (MWORDS+4) ) GO TO 1000 IIDX = INDEX2 GO TO 500 C C NO BLOCKS CONTIGUOUS WITH THIS BLOCK, GET NEXT BLOCK IN CHAIN C AND CHECK FOR CONTIGUOUS BLOCKS WITH IT. C 1300 CONTINUE INDEX1 = ZI( INDEX1 + 1 ) C C FIRST CHECK THAT THERE IS ANOTHER BLOCK IN THE FREE CHAIN C IF ( INDEX1 .EQ. 0 ) GO TO 1400 INDEXT = MEMFRE GO TO 1100 1400 CONTINUE C C COLUMN REQUESTED IS THE PIVOT COLUMN, MUST FIND MEMORY TO READ C THIS DATA INTO. SEARCH FOR LAST COLUMN IN MEMORY WITH SUFFICIENT C SPACE AND WRITE THAT COLUMN TO SPILL AND READ THE PIVOT COLUMN DATA C INTO THE MEMORY THAT BECAME AVAILABLE. C IDIR = (MEMCOLN-1) * 4 + 1 KCOLP1 = KCOL + 1 DO 1500 I = MEMCOLN, 1, -1 IF ( I .EQ. KCOL ) GO TO 1500 IDIR = (I-1)*4 + 1 C C CHECK TO SEE IF DATA ALREADY ON SPILL FILE C IF ( ZI( IDIR ) .EQ. 0 ) GO TO 1500 C C DATA IS IN MEMORY, CHECK TO SEE IF ENOUGH SPACE C IMIDX = ZI( IDIR ) IF ( ZI( IMIDX+2 ) .LT. (MWORDS+4) ) GO TO 1500 C C SUFFICIENT SPACE, WRITE THIS COLUMN DATA TO THE SPILL FILE C TO MAKE ROOM FOR THE PIVOTAL COLUMN DATA TO BE KEPT IN MEMORY. C SKIP TO END OF FILE, BACKSPACE OVER EOF, CLOSE AND REOPEN FILE C FOR WRITE WITH APPEND. C CALL DSSEND( ISCR1 ) CALL SKPREC( ISCR1, -1 ) CALL CLOSE ( ISCR1, 2 ) CALL GOPEN ( ISCR1, ZI( IBUF2 ), 3 ) IM2 = ZI( IMIDX+1 ) ITERMS = ZI( IMIDX+3 ) LENGTH = IM2 + ITERMS*IVWRDS ITEMP( 1 ) = I ITEMP( 2 ) = IM2 ITEMP( 3 ) = 0 ITEMP( 4 ) = ITERMS CALL WRITE ( ISCR1, ITEMP , 4, 0 ) CALL SAVPOS( ISCR1, KPOS ) CALL WRITE ( ISCR1, ZI( IMIDX+4 ), LENGTH, 1 ) CALL CLOSE ( ISCR1, 3 ) CALL GOPEN ( ISCR1, ZI( IBUF2 ), 0 ) C C SET DIRECTORY AND MOVE DATA INTO MEMORY LOCATION C C PRINT *,' SMCSPL B1450,IMIDX,ISPILL=',IMIDX,ISPILL ZI( IDIR ) = 0 ZI( IDIR+3 ) = KPOS ZI( MDIR ) = IMIDX ZI( MDIR+3 ) = 0 ZI( IMIDX ) = MCOL ZI( IMIDX+1 ) = MM2 ZI( IMIDX+3 ) = MTERMS C PRINT *,' SMCSPL,B1450,MCOL,MM2,MTERMS=',MCOL,MM2,MTERMS DO 1450 J = 1, MWORDS ZI( IMIDX+J+3 ) = ZI (ISPILL+J+3 ) 1450 CONTINUE MEMCOLN = MCOL C PRINT *,' SMCSPL,A1450,ZI(1-5=',(ZI(IMIDX+KB),KB=0,4) GO TO 7777 1500 CONTINUE C C NONE OF THE EXISTING IN-MEMORY ALLOCATIONS ARE LARGE ENOUGH. C THEREFORE, MUST MERGE TWO TOGETHER TO TRY AND MAKE ENOUGH SPACE. C DO 1900 I = MEMCOLN, 1, -1 IF ( I .EQ. KCOL ) GO TO 1900 IDIR = ( I-1)*4 + 1 IF ( ZI( IDIR ) .EQ. 0 ) GO TO 1900 IMIDX1 = ZI( IDIR ) ISPACE1 = ZI( IMIDX1+2 ) C PRINT *,' SMCSPL,B1800,IMIDX1,ISPACE1=',IMIDX1,ISPACE1 IEND1 = IMIDX1 + ISPACE1 DO 1800 J = MEMCOLN, 1, -1 IF ( J .EQ. KCOL ) GO TO 1800 IF ( J .EQ. I ) GO TO 1800 JDIR = ( J-1 ) * 4 + 1 IF ( ZI( JDIR ) .EQ. 0 ) GO TO 1800 JMIDX1 = ZI( JDIR ) ISPACE2 = ZI( JMIDX1+2 ) C PRINT *,' SMCSPL,I1800,JMIDX1,ISPACE2=',JMIDX1,ISPACE2 IEND2 = JMIDX1 + ISPACE2 IF ( IABS( IMIDX1-IEND2 ) .LE. 4 ) GO TO 1700 IF ( IABS( JMIDX1-IEND1 ) .LE. 4 ) GO TO 1700 GO TO 1800 C C COLUMNS J AND I HAVE CONTIGUOUS MEMORY, CHECK IF COMBINED SPACE IS C LARGE ENOUGH FOR THIS COLUMN C 1700 ITOTAL = ISPACE1 + ISPACE2 C PRINT *,' SMCSPL,A1700,ISPACE1,ISPACE2,ITOTAL,MWORDS=' C &, ISPACE1,ISPACE2,ITOTAL,MWORDS IF ( ITOTAL .LT. (MWORDS+4) ) GO TO 1900 C C SPACE IS LARGE ENOUGH, SO WRITE COLUMNS I AND J TO SPILL AND MERGE C THE TWO AREAS TOGETHER. C SKIP TO END OF FILE, BACKSPACE OVER EOF, CLOSE AND REOPEN FILE C FOR WRITE WITH APPEND. C CALL DSSEND ( ISCR1 ) CALL SKPREC ( ISCR1, -1 ) CALL CLOSE ( ISCR1, 2 ) CALL GOPEN ( ISCR1, ZI( IBUF2 ), 3 ) C C WRITE COLUMN I TO SPILL FILE C IM2 = ZI( IMIDX1+1 ) ITERMS = ZI( IMIDX1+3 ) ILEN = IM2 + ITERMS*IVWRDS ITEMP( 1 ) = I ITEMP( 2 ) = IM2 ITEMP( 3 ) = 0 ITEMP( 4 ) = ITERMS C PRINT *,' SMCSPL WRITING COLUMN I=',I CALL WRITE ( ISCR1, ITEMP, 4, 0 ) CALL SAVPOS( ISCR1, KPOS ) CALL WRITE ( ISCR1, ZI( IMIDX1+4 ), ILEN, 1 ) C C RESET DIRECTORY FOR COLUMN I C ZI( IDIR ) = 0 ZI( IDIR+3 ) = KPOS C C WRITE COLUMN J TO THE SPILL FILE C JM2 = ZI( JMIDX1+1 ) JTERMS = ZI( JMIDX1+3 ) JLEN = 4 + JM2 + JTERMS*IVWRDS ITEMP( 1 ) = J ITEMP( 2 ) = JM2 ITEMP( 3 ) = 0 ITEMP( 4 ) = JTERMS C PRINT *,' SMCSPL,WRITING COLUMN J=',J CALL WRITE ( ISCR1, ITEMP, 4, 0 ) CALL SAVPOS( ISCR1, KPOS ) CALL WRITE ( ISCR1, ZI( JMIDX1+4 ), JLEN, 1 ) C C RESET DIRECTORY FOR COLUMN J C ZI( JDIR ) = 0 ZI( JDIR+3 ) = KPOS CALL CLOSE ( ISCR1, 3 ) CALL GOPEN ( ISCR1, ZI( IBUF2 ), 0 ) INDEX = JMIDX1 IF ( IMIDX1 .LT. JMIDX1 ) INDEX = IMIDX1 C C MOVE DATA INTO MEMORY LOCATION C PRIN T*,' B1750,INDEX,ISPILL=',INDEX,ISPILL ZI( INDEX ) = MCOL ZI( INDEX+1 ) = MM2 ZI( INDEX+2 ) = ITOTAL ZI( INDEX+3 ) = MTERMS ZI( MDIR ) = INDEX ZI( MDIR+3 ) = 0 DO 1750 K = 1, MWORDS ZI( INDEX+K+3 ) = ZI( ISPILL+K+3 ) 1750 CONTINUE MEMCOLN = MCOL GO TO 7777 1800 CONTINUE 1900 CONTINUE GO TO 7003 C C NO SPACE FOUND AND COLUMN IS NOT THE PIVOTAL COLUMN, USE DATA C FROM SPILL AREA C 2000 CONTINUE 7777 CONTINUE C print *,' smcspl is returning, memfre=',memfre C ikb = memfre C do 9777 kk = 1, 100 C if ( ikb .eq. 0 ) go to 9778 C print *,' free block i,1-3=',kk,(zi(ikb+kb),kb=0,2) C ikb = zi( ikb+1 ) C9777 continue C9778 continue RETURN 7001 WRITE ( NOUT, 9001 ) UFM, KCOL 9001 FORMAT(1X, A23,/,' UNEXPECTED END OF FILE FOR COLUMN ',I4 &,' IN SUBROUTINE SMCSPL') IERROR = 3 GO TO 7070 7002 WRITE ( NOUT, 9002 ) UFM, KCOL 9002 FORMAT(1X, A23,/,' UNEXPECTED END OF RECORD FOR COLUMN ',I4 &,' IN SUBROUTINE SMCSPL') IERROR = 3 GO TO 7070 7003 WRITE ( NOUT, 9003 ) UFM, KCOL 9003 FORMAT(1X,A23,/,' INSUFFICIENT CORE IN SUBROUTINE SMCSPL FOR' &,' SYMMETRIC DECOMPOSITION, COLUMN=',I6) IERROR = 1 GO TO 7070 7070 CALL SMCHLP CALL MESAGE( -61, 0, 0 ) RETURN END ================================================ FILE: mis/smleig.f ================================================ SUBROUTINE SMLEIG(D,O,VAL) C C COMPUTES EIGENVALUES AND VECTORS FOR 1X1 AND 2X2 C DOUBLE PRECISION D(2),O(2),VAL(2),P,Q INTEGER ENTRY,XENTRY,SYSBUF,PHIA,MCB(7) DIMENSION VCOM(30) C COMMON/SYSTEM/SYSBUF COMMON /GIVN / TITLE(150) COMMON /PACKX/IT1,IT2,II,JJ,INCR COMMON /UNPAKX/IT3,III,JJJ,INCR1 C EQUIVALENCE 1 (MO,TITLE(2)),(MD,TITLE(3)),(ENTRY,TITLE(11)),(XENTRY,TITLE(20)), 2 (VCOM(1),TITLE(101)),(N,VCOM(1)),(LAMA,VCOM(6)),(PHIA,VCOM(12)), 3 (NFOUND,VCOM(10)) C DATA MCB/7*0/ C C D ARRAY OF DIAGONALS C O ARRAY OF OFF DIAGONALS C VAL ARRAY OF EIGENVALUES C LAMA FILE OF EIGENVALUES--HEADER,VALUES,ORDER FOUND C PHIA FILE OF VECTORS --......,VECTORS-D.P. C MO RESTART TAPE FOR MORE EIGENVALUES C MD INPUT MATRIX C N ORDER OF PROBLEM C NFOUND NUMBER OF EIGENVALUES/VECTOR PREVIOUSLY FOUND C IBUF1 =(KORSZ(O) - SYSBUF +1 )/2 -1 C C OPEN INPUT MATRIX C CALL GOPEN(MD,O(IBUF1),0) C C SETUP FOR UNPACK C IT3 = 2 III = 1 JJJ = N INCR1= 1 ASSIGN 101 TO ITRA CALL UNPACK(*1000,MD,D) 101 IF(N .EQ. 2) GO TO 110 C C THE MATRIX IS A 1X1 C O(1) = 0.0D0 VAL(1) = D(1) LOC = 1 GO TO 120 C C THE MATRIX IS A 2X2 C 110 O(1) = D(2) O(2) = 0.0D0 ASSIGN 111 TO ITRA III = 2 CALL UNPACK(*1000,MD,D(2)) 111 P = D(1) + D(2) Q = DSQRT( P*P -4.0D0*(D(1)*D(2)- O(1)**2)) VAL(1) =(P+Q)/2.0D0 VAL(2) = (P-Q)/2.0D0 LOC = 0 C C WRAP UP ROUTINE C 120 CALL CLOSE(MD,1) C C COPY D,O,LOC ONTO MO FOR RESTART C CALL GOPEN(MO,O(IBUF1),1) C C SETUP FOR PACK C IM1=1 IT1=2 IT2=2 II =1 JJ = N INCR =1 CALL PACK(D,MO,MCB) CALL PACK(O,MO,MCB) CALL WRITE(MO,LOC,1,1) CALL CLOSE(MO,1) IF(N .NE. 1) GO TO 125 C C 1X1 WRITE OUT VECTORS AND VALUES C MCB(1) = PHIA MCB(2) = 0 MCB(3) = 1 MCB(4) = 2 MCB(5) = 2 MCB(6) = 0 CALL GOPEN(PHIA,O(IBUF1), 1) JJ = 1 CALL PACK(1.0D0,PHIA,MCB) CALL CLOSE(PHIA,1) CALL WRTTRL(MCB(1)) CALL GOPEN(LAMA,O(IBUF1),1 ) IF (NFOUND .EQ. 0) GO TO 128 DO 126 I= 1,NFOUND CALL WRITE(LAMA,0.0,1,0) 126 CONTINUE 128 VALX = VAL(1) CALL WRITE(LAMA,VALX,1,1) IF (NFOUND .EQ. 0) GO TO 129 DO 127 I= 1,NFOUND CALL WRITE(LAMA,I,1,0) 127 CONTINUE 129 CALL WRITE(LAMA,NFOUND+1,1,1) CALL CLOSE(LAMA,1) MCB(1) = LAMA CALL WRTTRL(MCB) 125 XENTRY = -ENTRY RETURN 1000 DO 1001 I =III,JJJ D(I) = 0.0D0 1001 CONTINUE GO TO ITRA,(111,101) END ================================================ FILE: mis/smleig1.f ================================================ SUBROUTINE SMLEIG1(D,O,VAL) C C COMPUTES EIGENVALUES AND VECTORS FOR 1X1 AND 2X2 C REAL D(2),O(2),VAL(2),P,Q INTEGER ENTRY,XENTRY,SYSBUF,PHIA,MCB(7) DIMENSION VCOM(30) C COMMON/SYSTEM/SYSBUF COMMON /GIVN / TITLE(150) COMMON /PACKX/IT1,IT2,II,JJ,INCR COMMON /UNPAKX/IT3,III,JJJ,INCR1 C EQUIVALENCE 1 (MO,TITLE(2)),(MD,TITLE(3)),(ENTRY,TITLE(11)),(XENTRY,TITLE(20)), 2 (VCOM(1),TITLE(101)),(N,VCOM(1)),(LAMA,VCOM(6)),(PHIA,VCOM(12)), 3 (NFOUND,VCOM(10)) C DATA MCB/7*0/ C C D ARRAY OF DIAGONALS C O ARRAY OF OFF DIAGONALS C VAL ARRAY OF EIGENVALUES C LAMA FILE OF EIGENVALUES--HEADER,VALUES,ORDER FOUND C PHIA FILE OF VECTORS --......,VECTORS-D.P. C MO RESTART TAPE FOR MORE EIGENVALUES C MD INPUT MATRIX C N ORDER OF PROBLEM C NFOUND NUMBER OF EIGENVALUES/VECTOR PREVIOUSLY FOUND C CWKBR 2/94 IBUF1 =(KORSZ(O) - SYSBUF +1 )/2 -1 IBUF1 =(KORSZ(O) - SYSBUF +1 ) -1 C C OPEN INPUT MATRIX C CALL GOPEN(MD,O(IBUF1),0) C C SETUP FOR UNPACK C IT3 = 1 III = 1 JJJ = N INCR1= 1 ASSIGN 101 TO ITRA CALL UNPACK(*1000,MD,D) 101 IF(N .EQ. 2) GO TO 110 C C THE MATRIX IS A 1X1 C O(1) = 0.0 VAL(1) = D(1) LOC = 1 GO TO 120 C C THE MATRIX IS A 2X2 C 110 O(1) = D(2) O(2) = 0.0 ASSIGN 111 TO ITRA III = 2 CALL UNPACK(*1000,MD,D(2)) 111 P = D(1) + D(2) Q = SQRT( P*P -4.0*(D(1)*D(2)- O(1)**2)) VAL(1) =(P+Q)/2.0 VAL(2) = (P-Q)/2.0 LOC = 0 C C WRAP UP ROUTINE C 120 CALL CLOSE(MD,1) C C COPY D,O,LOC ONTO MO FOR RESTART C CALL GOPEN(MO,O(IBUF1),1) C C SETUP FOR PACK C IM1=1 IT1=1 IT2=1 II =1 JJ = N INCR =1 CALL PACK(D,MO,MCB) CALL PACK(O,MO,MCB) CALL WRITE(MO,LOC,1,1) CALL CLOSE(MO,1) IF(N .NE. 1) GO TO 125 C C 1X1 WRITE OUT VECTORS AND VALUES C MCB(1) = PHIA MCB(2) = 0 MCB(3) = 1 MCB(4) = 2 MCB(5) = 2 MCB(6) = 0 CALL GOPEN(PHIA,O(IBUF1), 1) JJ = 1 CALL PACK(1.0,PHIA,MCB) CALL CLOSE(PHIA,1) CALL WRTTRL(MCB(1)) CALL GOPEN(LAMA,O(IBUF1),1 ) IF (NFOUND .EQ. 0) GO TO 128 DO 126 I= 1,NFOUND CALL WRITE(LAMA,0.0,1,0) 126 CONTINUE 128 VALX = VAL(1) CALL WRITE(LAMA,VALX,1,1) IF (NFOUND .EQ. 0) GO TO 129 DO 127 I= 1,NFOUND CALL WRITE(LAMA,I,1,0) 127 CONTINUE 129 CALL WRITE(LAMA,NFOUND+1,1,1) CALL CLOSE(LAMA,1) MCB(1) = LAMA CALL WRTTRL(MCB) 125 XENTRY = -ENTRY RETURN 1000 DO 1001 I =III,JJJ D(I) = 0.0 1001 CONTINUE GO TO ITRA,(111,101) END ================================================ FILE: mis/smmats.f ================================================ SUBROUTINE SMMATS (A,IROWA,ICOLA,MTA, B,IROWB,ICOLB,NTB, C,E) C***** C SMMATS - S P E C I A L M A T R I X M U L T I P L Y C A N D C T R A N S P O S E C S I N G L E P R E C I S I O N V E R S I O N C C PERFORMS WHEN C A * B = C MTA=0 NTB= 0 C A * B TRANSPOSE = C 0 1 C A TRANSPOSE * B = C 1 0 C A TRANSPOSE * B TRANSPOSE = C 1 1 C THE CORRESPONDING OPERATIONS ARE DONE ON -E- USING ABSOLUTE VALUES. C***** C A - IS A MATRIX (ROWA) ROWS BY (COLA) COLUMNS C B - IS A MATRIX (ROWB) ROWS BY (COLB) COLUMNS C A,B AND C ARE STORED BY ROWS (EXAMPLE) C MATRIX STORED C A= 1 2 A= 1 C 3 4 2 C 5 6 3 C 4 C 5 C 6 C***** C***** C IF MTA .LT. 0, C AND E ARE NOT ZEROED OUT. HENCE THE ROUTINE, IN THIS C CASE, COMPUTES A * B + D = C WHERE THE MATRIX D HAS BEEN C STORED ROW-WISE AT C BY THE CALLING PROGRAM. IF MTA = -1, A C IS TRANSPOSED. IF MTA = -2, A IS NOT TRANSPOSED. NTB IS C DEFINED AS ABOVE AND IS INDEPENDENT OF MTA. C INTEGER ROWA,COLA, ROWB,COLB DOUBLE PRECISION AIA,BJB,CIJ,EIJ DIMENSION A(1),B(1),C(1),IPARM(2) 1, E(1) C ROWA = IROWA COLA = ICOLA ROWB = IROWB COLB = ICOLB NTA = IABS(MTA) IF (MTA .EQ. (-2)) NTA = 0 IF (NTA .EQ. 0 .AND. NTB .EQ. 0) IF (COLA - ROWB) 80,5,80 IF (NTA .EQ. 1 .AND. NTB .EQ. 0) IF (ROWA - ROWB) 80,5,80 IF (NTA .EQ. 0 .AND. NTB .EQ. 1) IF (COLA - COLB) 80,5,80 IF (NTA .EQ. 1 .AND. NTB .EQ. 1) IF (ROWA - COLB) 80,5,80 5 IF (NTA .EQ. 1) GO TO 10 ILIM= ROWA KLIM= COLA INCI= COLA INCKA= 1 GO TO 20 10 ILIM= COLA KLIM= ROWA INCI= 1 INCKA= COLA 20 IF(NTB.EQ.1) GO TO 30 JLIM= COLB INCJ= 1 INCKB= COLB GO TO 40 30 JLIM= ROWB INCJ= COLB INCKB= 1 40 IF (MTA .LT. 0) GO TO 47 LIM = ILIM * JLIM DO 45 I = 1,LIM E(I) = 0.0 45 C(I) = 0.0 47 IJ = 0 I = 0 50 I = I + 1 IFIX=I*INCI-COLA J = 0 60 J = J + 1 IJ=IJ+1 IA=IFIX JB=J*INCJ-COLB CIJ=DBLE(C(IJ)) EIJ=DBLE(E(IJ)) K = 0 70 K = K + 1 IA=IA+INCKA JB=JB+INCKB AIA=DBLE(A(IA)) BJB=DBLE(B(JB)) CIJ=CIJ+ AIA * BJB EIJ=EIJ+ DABS(AIA) * DABS(BJB) IF (K .LT. KLIM) GO TO 70 C(IJ)=SNGL(CIJ) E(IJ)=SNGL(EIJ) IF (J .LT. JLIM) GO TO 60 IF (I .LT. ILIM) GO TO 50 RETURN 80 IPARM(1) = NTA IPARM(2) = NTB CALL MESAGE (-30,21,IPARM(1)) RETURN END ================================================ FILE: mis/smp1.f ================================================ SUBROUTINE SMP1 C C SMP1 PARTITIONS KFF INTO KAAB,KOAB AND KOOB C GO IS SOLVED FROM THE EQUATION KOOB*GO = -KOAB C KAA IS THEN COMPUTED FROM THE EQUATION KAA = KAAB + KOAB(T)*GO C IF ANY OF THE MATRICES MFF, BFF OR K4FF IS PRESENT, THEN C PARTITIONS ARE MADE AND THE EQUATION C XAA = XAAB + GO(T)*XOAB + XOAB(T)*GO + GO(T)*XOOB*GO C IS EVALUATED WHERE X = M OR B OR K4 C INTEGER MCB(7), USET, SCR1, SCR2, SCR3, 1 SCR4, SCR5, SCR6, SCR7, UF, 2 UA, GO, FF(3), AAB, OAB, 3 OOB, AA(3), BAA, IOAB(3), IOOB(3), 4 UO, BFF COMMON /BITPOS/ UM, UO, UR, USG, USB, UL, 1 UA, UF, US, UN, UG, UE, 2 UP EQUIVALENCE (FF(3),MFF), (FF(2),BFF), (FF(1),K4FF), 1 (AA(3),MAA), (AA(2),BAA), (AA(1),K4AA), 2 (IOOB(3),OOB), (IOAB(3),OAB), (AAB,SCR5), 3 (IOOB(1),SCR6), (IOAB(1),SCR7) DATA USET, KFF, MFF, BFF, K4FF / 1 101, 102, 103, 104, 105 / DATA GO, KAA, KOOB, LOO, MAA / 1 201, 202, 203, 204, 205 / DATA OOB, OAB, BAA, K4AA / 1 206, 207, 208, 209 / DATA SCR1, SCR2, SCR3, SCR4, SCR5 / 1 301, 302, 303, 304, 305 / DATA SCR6, SCR7, IOOB(2),IOAB(2) / 1 306, 307, 306, 307 / C C MATRIX NAME EQUIVALENCES NOT REFERENCED C C EQUIVALENCED (AAB, MAAB, BAAB, K4AAB, SCR5) C (OOB, MOOB, BOOB, K4OOB, SCR6) C (OAB, MOAB, BOAB, K4OAB, SCR7) C C PARTITION KFF INTO KAAB,KOAB, AND KOOB C CALL UPART (USET,SCR1,UF,UA,UO) CALL MPART (KFF,AAB,IOAB,0,KOOB) C C DECOMPOSE KOOB INTO LOO C CALL FACTOR (KOOB,LOO,SCR2,SCR3,SCR4,SCR6) C C SOLVE KOOB*GO = -KOAB FOR GO C THEN COMPUTE KAA = KAAB + KOAB(T)*GO C CALL SOLVER (LOO,GO,IOAB,AAB,KAA,0,0,SCR4) C DO 40 I = 1,3 C C K4FF C TEST TO SEE IF BFF IS PRESENT C MFF C MCB(1) = FF(I) CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 40 C C K4FF K4AAB, K4OAB, K4OOB C IF BFF IS PRESENT, PARTITION INTO BAAB, BOAB, BOOB C MFF MAAB, MOAB, MOOB C C THEN COMPUTE K4AA, BAA, MAA RESPECTIVELY C CALL MPART (FF(I),AAB,IOAB(I),0,IOOB(I)) CALL ELIM (AAB,IOAB(I),IOOB(I),GO,AA(I),SCR2,SCR3,SCR4) 40 CONTINUE C RETURN END ================================================ FILE: mis/smp2.f ================================================ SUBROUTINE SMP2 C***** C THIS MODULE, WHICH IS CALLED ONLY FOR DIFFERENTIAL STIFFNESS, PARTI- C TIONS KDFF AND THEN COMPUTES KDAA AS FOLLOWS .... C I C -D I D C K I K C D AA I AO C K = ---------------------- C FF I C D T I D C (K ) I K C AO I OO C I C C D -D D D T D C K = K + K X G + (K X G ) + G X K X G C AA AA AO O AO O O OO O C C***** C C DMAP CALL ... C C SMP2 USET,GO,KDFF/KDAA/ C INTEGER 1 USET ,GO 2, SCR1 ,SCR2 3, UF ,UA 4, UO ,MCB(7) C C C COMMON /BLANK/ ICOM C C INPUT FILES C DATA USET,GO,KDFF /101,102,103/ C C OUTPUT FILE C DATA KDAA /201/ C C SCRATCH FILES C DATA SCR1,SCR2,KDAAB,KDAO,KDOO /301,302,303,304,305/ C C USET BIT POSITIONS C DATA UF,UA,UO/26,25,30/ C C TEST FOR PRESENCE OF KDFF C MCB(1)=KDFF CALL RDTRL(MCB) IF(MCB(1).LT.0) RETURN C C PARTITION KFF C CALL UPART (USET,SCR1,UF,UA,UO) CALL MPART (KDFF,KDAAB,KDAO,O,KDOO) C C COMPUTE KDAA C CALL ELIM(KDAAB,KDAO,KDOO,GO,KDAA,SCR1,SCR2,306) RETURN END ================================================ FILE: mis/smpyad.f ================================================ SUBROUTINE SMPYAD C INTEGER SRESLT ,SADD ,TMAT ,TRLRA ,TRLRB , 1 TRLRC ,TRLRD ,TRNSP ,SIGNAB ,SIGNC , 1 SCRTCH ,TRLR(7,5),MAT(5) ,ADDMAT ,RESMAT , 1 RECMAT ,DOSI(3) ,REFUS(3) ,OUTPT ,NAME(2) CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 ,SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM ,SWM COMMON /MPYADX/ TRLRA(7) ,TRLRB(7) ,TRLRC(7) ,TRLRD(7) ,NA , 1 TRNSP ,SIGNAB ,SIGNC ,IPREC1 ,SCRTCH 2 /ZZZZZZ/ A(1) 3 /BLANK / N ,SRESLT ,SADD ,IPREC ,TMAT(4) 4 /SYSTEM/ KSYSTM(65) EQUIVALENCE (KSYSTM(55),KPREC) ,(KSYSTM(2),OUTPT) DATA MAT / 101 ,102 ,103 ,104 ,105 / DATA ADDMAT, RESMAT ,INTRES ,MPYADS ,RECMAT / 1 106 , 201 ,301 ,302 ,2 / DATA DOSI / 4HSING ,4HDOUB ,4HMLTP / DATA REFUS / 2*3H ,3HREF / DATA NAME / 4HSMPY ,4HAD / 1 C IF (N .LE. 1) GO TO 200 IF (N .GT. 5) N = 5 IPREC1 = 1 ITYPE = 0 C C IF ONE OF THE -N- MATRICES IN THE PRODUCT DOES NOT EXIST, C SKIP THE ENTIRE CALCULATION. C DO 101 I = 1,N TRLR(1,I) = MAT(I) CALL RDTRL (TRLR(1,I)) IF (TRLR(1,I).LE.0 .OR. TRLR(2,I).LE.0 .OR. TRLR(3,I).LE.0) 1 GO TO 200 IF (TRLR(5,I).EQ.2 .OR. TRLR(5,I).EQ.4) IPREC1 = 2 IF (TRLR(5,I).EQ.3 .OR. TRLR(5,I).EQ.4) ITYPE = 2 101 CONTINUE C C CHECK TO SEE IF THE INPUT MATRICES ARE CONFORMABLE C NM1 = N - 1 NOGO = 0 DO 170 I = 1,NM1 ICOL = TRLR(2,I) IF (TMAT(I) .NE. 0) ICOL = TRLR(3,I) IROW = TRLR(3,I+1) IF (I .EQ. NM1) GO TO 160 IF (TMAT(I+1) .NE. 0) IROW = TRLR(2,I+1) 160 IF (ICOL .NE. IROW) NOGO = 1 170 CONTINUE TRLRC(1) = ADDMAT CALL RDTRL (TRLRC) IF (TRLRC(1) .LE. 0) GO TO 180 IROW = TRLR(3,1) IF (TMAT(1) .NE. 0) IROW = TRLR(2,1) ICOL = TRLR(2,N) IF (IROW.NE.TRLRC(3) .OR. ICOL.NE.TRLRC(2)) NOGO = 1 180 IF (NOGO .EQ. 1) CALL MESAGE (-55,0,NAME) C IF (IPREC1.LT.1 .OR. IPREC1.GT.2) IPREC1 = KPREC IF (IPREC.EQ.IPREC1 .OR. IPREC.EQ.0) GO TO 222 IF (IPREC.LT.1 .OR. IPREC.GT.2) IPREC = 3 WRITE (OUTPT,221) SWM,DOSI(IPREC),REFUS(IPREC),NAME,DOSI(IPREC1) 221 FORMAT (A27,' 2163, REQUESTED ',A4,'LE PRECISION ',A3,'USED BY ', 1 2A4,2H. ,A4,'LE PRECISION IS LOGICAL CHOICE') IF (IPREC .NE. 3) IPREC1 = IPREC 222 IPREC = IPREC1 ITYPE = ITYPE + IPREC1 C C SETUP THE MPYADX COMMON BLOCK. C IF ((N+1)/2 .EQ. N/2) GO TO 105 TRLRB(1) = INTRES M = RESMAT GO TO 106 105 TRLRB(1) = RESMAT M = INTRES 106 TRLRC(1) = 0 DO 107 I = 1,7 TRLRD(I) = TRLR(I,N) 107 CONTINUE TRLRD(4) = RECMAT NA = KORSZ(A) SIGNAB = 1 SIGNC = SADD SCRTCH = MPYADS C C DO THE N-1 MULTIPLICATIONS. C DO 125 K = 2,N J = N - K + 1 TRLRA(1) = TRLR(1,J) IF (K .NE. 3) L = TRLRB(1) IF (K .EQ. 3) L = M TRLRB(1) = TRLRD(1) TRLRD(1) = L DO 110 I = 2,7 TRLRA(I) = TRLR(I,J) TRLRB(I) = TRLRD(I) 110 CONTINUE IF (K .NE. N) GO TO 111 TRLRC(1) = ADDMAT CALL RDTRL (TRLRC) IF (TRLRC(1). LT. 0) TRLRC(1) = 0 TRLRD(5) = ITYPE SIGNAB = SRESLT GO TO 115 111 TRLRD(5) = IPREC1 IF (TRLRA(5).GT.2 .OR. TRLRB(5).GT.2) TRLRD(5) = IPREC1 + 2 115 TRNSP = TMAT(J) TRLRD(3) = TRLRA(3) IF (TRNSP .NE. 0) TRLRD(3) = TRLRA(2) TRLRD(2) = TRLRB(2) CALL MPYAD (A,A,A) 125 CONTINUE IF (TRLRD(2) .EQ. TRLRD(3)) TRLRD(4) = 1 CALL WRTTRL (TRLRD) 200 RETURN END ================================================ FILE: mis/smsg.f ================================================ SUBROUTINE SMSG (NO,P1,P2) C C MESSAGE WRITER FOR SUBSTRUCTURE DIAGNOSTICS, 61XX SERIES C INTEGER P1,P2(2),P3(2),POS(2),NEG(2),PNG(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,K DATA POS , NEG/4HWARN,4HING ,4HFATA,4HL / DATA NMSG / 8 /, NMSG1 / 11 / C L = IABS(NO) MSGNO = L + 6100 IF (L.LT.1 .OR. L.GT.NMSG) GO TO 99 IF (NO) 30,30,40 30 PNG(1) = NEG(1) PNG(2) = NEG(2) GO TO 50 40 PNG(1) = POS(1) PNG(2) = POS(2) GO TO 50 C C ENTRY SMSG1 (NO,P1,P2,P3) C ======================== C L = IABS(NO) IF (L.LE.NMSG .OR. L.GT.NMSG1) GO TO 99 C 50 GO TO (1,2,3,4,5,6,7,8,9,10,11,12), L 1 WRITE (K,201) PNG,MSGNO WRITE (K,101) P1,P2 GO TO 100 2 WRITE (K,201) PNG,MSGNO WRITE (K,102) P1,P2 GO TO 100 3 WRITE (K,201) PNG,MSGNO WRITE (K,103) P1,P2 GO TO 100 4 WRITE (K,201) PNG,MSGNO WRITE (K,104) P2 GO TO 100 5 WRITE (K,201) PNG,MSGNO WRITE (K,105) P2 GO TO 100 6 WRITE (K,200) PNG,MSGNO WRITE (K,106) P1,P2 GO TO 100 7 WRITE (K,200) PNG,MSGNO WRITE (K,107) P1,P2 GO TO 100 8 WRITE (K,200) PNG,MSGNO WRITE (K,108) P1,P2 GO TO 100 9 WRITE (K,109) P3,P1,P2 GO TO 100 10 WRITE (K,110) P3,P1,P2 GO TO 100 11 WRITE (K,111) P3,P1,P2 GO TO 100 12 WRITE (K,112) GO TO 100 99 WRITE (K,120) NO,P1,P2 100 IF (NO .GT. 0) RETURN IF (L .LE. NMSG) CALL SOFCLS WRITE (K,130) CALL ERRTRC ('SMSG ',130) RETURN C 101 FORMAT (' REQUESTED SOF ITEM DOES NOT EXIST. ITEM ',A4, 1 ', SUBSTRUCTURE ',2A4) 102 FORMAT (' REQUESTED SUBSTRUCTURE DOES NOT EXIST. ITEM ',A4, 1 ', SUBSTRUCTURE ',2A4) 103 FORMAT (' REQUESTED SOF ITEM HAS INVALID NAME. ITEM ',A4, 1 ', SUBSTRUCTURE ',2A4) 104 FORMAT (' ATTEMPT TO CREATE DUPLICATE SUBSTRUCTURE NAME ',2A4) 105 FORMAT (' ATTEMPT TO RE-USE SUBSTRUCTURE ',2A4,' IN A REDUCE ', 1 ' OR COMBINE OPERATION. USE EQUIV SUBSTRUCTURE COMMAND') 106 FORMAT (' UNEXPECTED END OF GROUP ENCOUNTERED WHILE READING ITEM ' 1, A4,', SUBSTRUCTURE ',2A4) 107 FORMAT (' UNEXPECTED END OF ITEM ENCOUNTERED WHILE READING ITEM ', 1 A4,', SUBSTRUCTURE ',2A4) 108 FORMAT (' INSUFFICIENT SPACE ON SOF FOR ITEM ',A4,', SUBSTRUCTURE' 1, 1X,2A4) 109 FORMAT (A23,' 6211, MODULE ',2A4,' - ITEM ',A4, 1 ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.') 110 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR I/O', 1 ' OF SOF ITEM ',A4,', SUBSTRUCTURE ',2A4,', IS PURGED.') 111 FORMAT (A23,' 6215, MODULE ',2A4,' - ITEM ',A4, 1 ' OF SUBSTRUCTURE ',2A4,' PSEUDO-EXISTS ONLY.') 112 FORMAT (' ') 120 FORMAT (' NO MESSAGE FOR MESSAGE NO.',I5,' PARAMETERS = ',2I10, 1 10X,2A10) 130 FORMAT (//,' FATAL ERROR') 200 FORMAT (' *** SYSTEM ',2A4,' MESSAGE',I5) 201 FORMAT (' *** USER ',2A4,' MESSAGE',I5) END ================================================ FILE: mis/snpdf.f ================================================ SUBROUTINE SNPDF (SL,CL,TL,SGS,CGS,SGR,CGR,X0,Y0,Z0,EE,DIJ,BETA, 1 CV) C C SNPDF CALCULATES THE STEADY PART OF THE INFLUENCE COEFFICIENT C MATRIX ELEMENTS C TEST1 = 0.9999 TEST2 = 0.0001*EE C C *** TEST1 AND TEST2 SERVE AS A MEASURE OF 'NEARNESS' WITH C RESPECT TO THE BOUND- AND TRAILING VORTICES RESPECTIVELY - SEE C TESTS BELOW C NOTE THAT THE MACH NUMBER EFFECT IS ACCOUNTED FOR BY STRETCHING C THE X-COORDINATES AND THE SWEEP ANGLE OF THE BOUND VORTEX LINE C TLB = TL/BETA SQTLB = SQRT(1.0+TLB**2) SLB = TLB/SQTLB CLB = 1.0/SQTLB CAVE = CV CLSGS = CLB*SGS CLCGS = CLB*CGS EX = EE*TLB EY = EE*CGS EZ = EE*SGS X0B = X0/BETA RIX = X0B+ EX RIY = Y0 + EY RIZ = Z0 + EZ RIMAG = SQRT(RIX**2 + RIY**2 + RIZ**2) ROX = X0B- EX ROY = Y0 - EY ROZ = Z0 - EZ ROMAG = SQRT(ROX**2 + ROY**2 + ROZ**2) CAB = (RIX*SLB+ RIY*CLCGS + RIZ*CLSGS)/RIMAG CBB = (ROX*SLB+ ROY*CLCGS + ROZ*CLSGS)/ROMAG CBI =-RIX/RIMAG CAO = ROX/ROMAG RICAB = RIMAG*CAB DBX = RIX - RICAB*SLB DBY = RIY - RICAB*CLCGS DBZ = RIZ - RICAB*CLSGS DB2 = DBX**2 + DBY**2 + DBZ**2 DI2 = RIY**2 + RIZ**2 DO2 = ROY**2 + ROZ**2 ACAB = ABS(CAB) ACBB = ABS(CBB) C C *** THE FOLLOWING IS A TEST TO SEE IF THE RECEIVING POINT LIES ON C OR NEAR THE BOUND VORTEX -- IF SO, THE CONTRIBUTION OF THE BOUND C VORTEX IS SET TO ZERO C IF (ACAB .GT. TEST1) GO TO 30 IF (ACBB .GT. TEST1) GO TO 30 CACB = (CAB-CBB)/DB2 GO TO 60 30 IF (CAB*CBB) 40,50,50 40 CACB = 0. GO TO 60 50 CACB = 0.5*ABS((1./RIMAG**2)-(1./ROMAG**2)) 60 CONTINUE VBY = CACB*(DBX*CLSGS - DBZ*SLB) VBZ = CACB*(DBY*SLB - DBX*CLCGS) C C *** TEST TO SEE IF THE RECEIVING POINT LIES ON OR NEAR THE C INBOARD TRAILING VORTEX -- IF SO, THE CONTRIBUTION OF THE C INBOARD TRAILING VORTEX IS SET TO ZERO C IF (DI2 .GT. TEST2) GO TO 62 VIY = 0.0 VIZ = 0.0 GO TO 64 62 CONTINUE ONECBI = (1.0-CBI)/DI2 VIY = ONECBI*RIZ VIZ = -ONECBI*RIY 64 CONTINUE C C *** TEST TO SEE IF THE RECEIVING POINT LIES ON OR NEAR THE C OUTBOARD TRAILING VORTEX -- IF SO, THE CONTRIBUTION OF THE C OUTBOARD TRAILING VORTEX IS SET TO ZERO C IF (DO2 .GT. TEST2) GO TO 66 VOY = 0.0 VOZ = 0.0 GO TO 68 66 CONTINUE CAOONE = (1.0+CAO)/DO2 VOY = -CAOONE*ROZ VOZ = CAOONE*ROY 68 CONTINUE VY = VBY + VIY + VOY VZ = VBZ + VIZ + VOZ WW = VY*SGR - VZ*CGR DIJ = WW*CAVE/25.132741 RETURN END ================================================ FILE: mis/sofcls.f ================================================ SUBROUTINE SOFCLS C C WRITES OUT AT THE TERMINATION OF A MODULE ALL THE IN CORE BUFFERS C AND COMMON BLOCKS. C LOGICAL DITUP,MDIUP,NXTUP,OPNSOF,NXTRST INTEGER BUF,A,B,FILNAM,FILSIZ,PSSWRD,DIT,DITPBN,DITLBN, 1 MDI,MDIPBN,MDILBN COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / A(37) COMMON /SYS / B(6) COMMON /ITEMDT/ NITEM,ITEM(7,1) COMMON /SYSTEM/ NBUFF COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10),STATUS,PSSWRD(2), 1 FIRST,OPNSOF EQUIVALENCE (DIT ,A(1) ),(DITPBN,A(2) ),(DITLBN,A(3) ), 1 (MDI ,A(15)),(MDIPBN,A(16)),(MDILBN,A(17)), 2 (NXT ,A(19)),(NXTPBN,A(20)),(NXTLBN,A(21)), 3 (DITUP ,A(34)),(MDIUP ,A(35)),(NXTUP ,A(36)), 4 (NXTRST,A(37)) DATA IWRT / 2 / C IF (.NOT.OPNSOF) RETURN IF (DITPBN .EQ. 0) GO TO 20 IF (.NOT.DITUP) GO TO 20 CALL SOFIO (IWRT,DITPBN,BUF(DIT-2)) DITUP = .FALSE. GO TO 40 20 IF (NXTPBN .EQ. 0) GO TO 40 IF (.NOT.NXTUP) GO TO 40 CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2)) NXTUP = .FALSE. 40 IF (MDIPBN .EQ. 0) GO TO 60 IF (.NOT.MDIUP) GO TO 60 CALL SOFIO (IWRT,MDIPBN,BUF(MDI-2)) MDIUP = .FALSE. C C WRITE OUT COMMON BLOCKS. C 60 LAST = NBUFF - 4 DO 62 I = 1,LAST 62 BUF(DIT+I) = 0 BUF(DIT+1) = PSSWRD(1) BUF(DIT+2) = PSSWRD(2) BUF(DIT+4) = NFILES DO 70 I = 1,NFILES BUF(DIT+ 4+I) = FILNAM(I) BUF(DIT+14+I) = FILSIZ(I) BUF(DIT+33+I) = A(22+I) 70 CONTINUE DO 80 I = 1,4 BUF(DIT+24+I) = B(I) 80 CONTINUE BUF(DIT+29) = A(4) BUF(DIT+30) = A(5) BUF(DIT+31) = A(6) BUF(DIT+32) = A(18) BUF(DIT+33) = A(22) BUF(DIT+44) = A(33) NXTRST = .FALSE. BUF(DIT+45) = A(37) BUF(DIT+46) = B(5) BUF(DIT+47) = B(6) C BUF(DIT+100) = NITEM K = 100 DO 92 I = 1,NITEM DO 90 J = 1,7 90 BUF(DIT+K+J) = ITEM(J,I) 92 K = K + 7 IBL = 1 DO 100 I = 1,NFILES BUF(DIT+3) = I CALL SOFIO (IWRT,IBL,BUF(DIT-2)) IBL = IBL + FILSIZ(I) 100 CONTINUE CALL SOFIO (7, 0, 0) OPNSOF = .FALSE. RETURN END ================================================ FILE: mis/sofi.f ================================================ SUBROUTINE SOFI C C MODULE USED TO COPY SELECTED ITEMS FROM SELECTED SUBSTRUCTURES C ONTO NASTRAN MATRIX FILES. THE CALLING SEQUENCE TO THE MODULE C IS C SOFI /A,B,C,D,E/V,N,DRY/C,N,NAME/C,N,IA/C,N,IB/C,N,IC/C,N,ID/ C C,N,IE $ C INTEGER DRY,FILE,SYSBUF,XXXX DIMENSION FILE(5),MODNAM(2),MCB(7) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / DRY,NAME(2), ITEMS(2,5) COMMON /ZZZZZZ/ IZ(1) COMMON /SYSTEM/ SYSBUF,NOUT DATA FILE / 201,202,203,204,205 / DATA IBLNK , XXXX/4H ,4HXXXX / DATA MODNAM/ 4HSOFI,4H / C DO 5 I = 1,5 IF (ITEMS(1,I).EQ.XXXX .OR. ITEMS(1,I).EQ.0) ITEMS(1,I) = IBLNK 5 CONTINUE C NZ = KORSZ(IZ) IF (3*SYSBUF .GT. NZ) CALL MESAGE (-8,0,MODNAM(1)) IB1 = NZ - SYSBUF + 1 IB2 = IB1 - SYSBUF - 1 IB3 = IB2 - SYSBUF CALL SOFOPN (IZ(IB1),IZ(IB2),IZ(IB3)) IF (DRY .GE. 0) GO TO 60 C C CHECK THE EXISTENCE OF THE SOF FILE. C DO 50 I = 1,5 IF (ITEMS(1,I) .EQ. IBLNK) GO TO 50 MCB(1) = FILE(I) CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 50 CALL SOFTRL (NAME(1),ITEMS(1,I),MCB) ITEST = MCB(1) GO TO (50,50,20,30,40), ITEST 20 WRITE (NOUT,1020) UWM,ITEMS(1,I),NAME(1),NAME(2) GO TO 45 30 WRITE (NOUT,1030) UWM,NAME(1),NAME(2) DRY = -2 GO TO 130 40 WRITE (NOUT,1040) UWM,ITEMS(1,I) 45 DRY = -2 50 CONTINUE GO TO 130 C C COPY SOF DATA INTO NASTRAN DATA BLOCKS C 60 DO 120 I = 1,5 IF (ITEMS(1,I) .EQ. IBLNK) GO TO 120 MCB(1) = FILE(I) CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 120 CALL MTRXI (FILE(I),NAME(1),ITEMS(1,I),0,ITEST) GO TO (120,70,80,90,100,120), ITEST 70 WRITE (NOUT,1050) UWM,ITEMS(1,I),NAME(1),NAME(2) GO TO 110 80 WRITE (NOUT,1020) UWM,ITEMS(1,I),NAME(1),NAME(2) GO TO 120 90 WRITE (NOUT,1030) UWM,NAME(1),NAME(2) DRY = -2 GO TO 130 100 WRITE (NOUT,1040) UWM,ITEMS(1,I) 110 DRY = -2 120 CONTINUE 130 CALL SOFCLS RETURN C C ERROR MESSAGES. C 1020 FORMAT (A25,' 6216, MODULE SOFI - ITEM ',A4,' OF SUBSTRUCTURE ', 1 2A4,' DOES NOT EXIST.') 1030 FORMAT (A25,' 6212, MODULE SOFI - THE SUBSTRUCTURE ',2A4, 1 ' DOES NOT EXIST.') 1040 FORMAT (A25,' 6213, MODULE SOFI - ',A4,' IS AN ILLEGAL ITEM NAME') 1050 FORMAT (A25,' 6215, MODULE SOFI - ITEM ',A4,' OF SUBSTRUCTURE ', 1 2A4,' PSEUDO-EXISTS ONLY.') END ================================================ FILE: mis/sofint.f ================================================ SUBROUTINE SOFINT (IB1,IB2,NUMB,IBL1) C C CALLED ONCE BY EVERY RUN USING THE SOF UTILITY SUBROUTINES. C SHOULD BE CALLED BEFORE ANY OF THEM IS CALLED. IF THE SOF IS C NOT EMPTY, SOME SECURITY CHECKS WILL BE TAKEN CARE OF, AND THE C SOF COMMON BLOCKS WILL BE UPDATED AND WRITTEN OUT ON THE FIRST C BLOCK OF EACH OF THE SOF FILES. IF THE SOF IS EMPTY, THE DIT C MDI, AND ARRAY NXT WILL BE INITIALIZED AND WRITTEN OUT ON THE C THIRD, FOURTH, AND SECOND BLOCKS OF THE FIRST FILE OF THE SOF, C AND THE SOF COMMON BLOCKS WILL BE INITIALIZED AND WRITTEN OUT C ON THE FIRST BLOCK OF EACH OF THE SOF FILES. C C THE FIRST BLOCK OF EACH OF THE SOF FILES CONTAINS THE FOLLOWING C INFORMATION C WORD WORD WORD C NUMBER CONTENTS NUMBER CONTENTS NUMBER CONTENTS C ------ -------- ------ -------- ------ -------- C 1- 2 PASSWORD 26 DIRSIZ 32 MDIBL C 3 FILE NUMBER 27 SUPSIZ 33 NXTTSZ C 4 NFILES 28 AVBLKS 34-43 NXTFSZ C 5-14 FILNAM 29 DITSIZ 44 NXTCUR C 15-24 FILSIZ 30 DITNSB 45 NXTRST C 25 BLKSIZ 31 DITBL 46 HIBLK C 47 IFRST C C STARTING AT LOCATION 100 THE CONTENTS OF THE ITEMDT COMMON BLOCK C ARE STORED C C EXTERNAL LSHIFT,RSHIFT,ORF LOGICAL FIRST INTEGER FILNAM,FILSIZ,STATUS,FILE,PSSWRD,ORF,HIBLK, 1 BUF,RSHIFT,NAME(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27,SIM*31 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM,SIM COMMON /MACHIN/ MAC,IHALF COMMON /ZZZZZZ/ BUF(1) COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10),STATUS,PSSWRD(2), 1 FIRST COMMON /SYSTEM/ NBUFF,NOUT,X1(36),NBPC,NBPW,NCPW COMMON /SYS / NSBUFF,X4(3),HIBLK,IFRST COMMON /ITEMDT/ NITEM,ITEM(7,1) DATA IRD,IWRT /1, 2 / DATA IEMPTY,NAME /4H ,4HSOFI,4HNT / C IF (NCPW .LE. 4) GO TO 5 N = NBPW - NBPC*4 DO 3 I = 1,10 FILNAM(I) = LSHIFT(RSHIFT(FILNAM(I),N),N) 3 CONTINUE 5 IF (NFILES .LE. 0) GO TO 1000 IF (STATUS .EQ. 0) GO TO 250 C C THE SOF IS NOT EMPTY. READ THE FIRST BLOCK OF THE FIRST SOF FILE C AND VERIFY THE SECURITY VARIABLES. C FILE = FILNAM(1) CALL SOFIO (IRD,1,BUF(IB1-2)) IF ((BUF(IB1+1).NE.PSSWRD(1)) .OR. (BUF(IB1+2).NE.PSSWRD(2))) 1 GO TO 1050 IF (BUF(IB1+3) .NE. 1) GO TO 1060 IF (BUF(IB1+25) .NE. NSBUFF) GO TO 1040 C C CHECK IF THE SPECIFIED NUMBER OF FILES AND THEIR SIZES IS ADEQUATE C IF (BUF(IB1+4) .GE. NFILES) GO TO 10 MAX = BUF(IB1+4) - 1 GO TO 20 10 MAX = NFILES - 1 20 IF (MAX .LT. 1) GO TO 50 DO 30 I = 1,MAX IF (BUF(IB1+14+I) .EQ. FILSIZ(I)) GO TO 30 FILE = FILNAM(I) GO TO 1070 30 CONTINUE C C CHECK IF ALL SOF FILES HAVE THE CORRECT PASSWORD AND SEQUENCE C NUMBER C MAX = MAX + 1 IBL = 1 DO 40 I = 2,MAX FILE = FILNAM(I) IBL = IBL + FILSIZ(I-1) CALL SOFIO (IRD,IBL,BUF(IB1-2)) IF ((BUF(IB1+1).NE.PSSWRD(1)) .OR. (BUF(IB1+2).NE.PSSWRD(2))) 1 GO TO 1050 IF (BUF(IB1+3) .NE. I) GO TO 1060 40 CONTINUE CALL SOFIO (IRD,1,BUF(IB1-2)) MAX = MAX - 1 50 IF (BUF(IB1+14+MAX+1) .EQ. FILSIZ(MAX+1)) GO TO 130 MAXNXT = 0 IF (MAX .LT. 1) GO TO 70 DO 60 I = 1,MAX MAXNXT = MAXNXT+BUF(IB1+33+I) 60 CONTINUE 70 LASTSZ = (FILSIZ(MAX+1)-1)/BUF(IB1+27) IF (FILSIZ(MAX+1)-1 .EQ. LASTSZ*BUF(IB1+27)) GO TO 80 LASTSZ = LASTSZ + 1 80 MAXNXT = MAXNXT + LASTSZ IF (BUF(IB1+33) .GT. MAXNXT) GO TO 1080 MAXOLD = MAXNXT - LASTSZ + BUF(IB1+33+MAX+1) IF (BUF(IB1+33) .NE. MAXOLD) GO TO 130 IF (BUF(IB1+14+MAX+1) .GT. FILSIZ(MAX+1)) GO TO 1080 LSTSIZ = MOD(BUF(IB1+14+MAX+1)-2,BUF(IB1+27)) + 1 IF (LSTSIZ .EQ. BUF(IB1+27)) GO TO 130 C C THE SIZE OF THE LAST SUPERBLOCK THAT WAS USED ON FILE (MAX+1) C SHOULD BE INCREASED. C IF (FILSIZ(MAX+1)-BUF(IB1+14+MAX+1) .GE. BUF(IB1+27)-LSTSIZ) 1 GO TO 90 NUMB = FILSIZ(MAX+1) - BUF(IB1+14+MAX+1) GO TO 100 90 NUMB = BUF(IB1+27) - LSTSIZ 100 IBL1 = 0 IF (MAX .LT. 1) GO TO 120 DO 110 I = 1,MAX IBL1 = IBL1 + FILSIZ(I) 110 CONTINUE 120 IBL1 = IBL1 + BUF(IB1+14+MAX+1) + 1 GO TO 135 130 NUMB = 0 C C UPDATE THE VARIABLE WHICH INDICATES THE NUMBER OF FREE BLOCKS ON C THE SOF. C 135 IF (NFILES-BUF(IB1+4)) 140,160,170 140 IDIFF = BUF(IB1+14+NFILES) - FILSIZ(NFILES) MIN = NFILES + 1 LAST = BUF(IB1+4) DO 150 I = MIN,LAST IDIFF = IDIFF + BUF(IB1+14+I) 150 CONTINUE GO TO 190 160 IDIFF = BUF(IB1+14+NFILES) - FILSIZ(NFILES) GO TO 190 170 IHERE1 = BUF(IB1+4) IDIFF = BUF(IB1+14+IHERE1) - FILSIZ(IHERE1) MIN = BUF(IB1+4) + 1 DO 180 I = MIN,NFILES IDIFF = IDIFF - FILSIZ(I) 180 CONTINUE 190 BUF(IB1+28) = BUF(IB1+28) - IDIFF C C IF NO ITEM STRUCTURE IS ON THE SOF (THE SOF WAS CREATED BEFORE C LEVEL 17.0) THEN USE THE LEVEL 16.0 ITEM STRUCTURE. C IF (BUF(IB1+100).GT.0 .AND. BUF(IB1+100).LE.100) GO TO 198 WRITE (NOUT,6235) UWM BUF(IB1+ 47) = 3 BUF(IB1+100) = 18 K = 100 DO 194 I = 1,18 DO 192 J = 1,7 192 BUF(IB1+K+J) = ITEM(J,I) 194 K = K + 7 GO TO 200 C C CHECK IF THE DIRECTORY SIZE HAS BEEN CHANGED C 198 IF (NITEM .EQ. BUF(IB1+100)) GO TO 200 WRITE (NOUT,6233) UWM C C UPDATE THE COMMON BLOCKS USED BY THE SOF UTILITY SUBROUTINES. C 200 BUF(IB1+4) = NFILES DO 210 I = 1,NFILES BUF(IB1+4 +I) = FILNAM(I) BUF(IB1+14+I) = FILSIZ(I) BUF(IB1+33+I) = (FILSIZ(I)-1)/BUF(IB1+27) IF (FILSIZ(I)-1 .EQ. BUF(IB1+33+I)*BUF(IB1+27)) GO TO 210 BUF(IB1+33+I) = BUF(IB1+33+I) + 1 210 CONTINUE C C WRITE THE UPDATED ARRAY A ON THE FIRST BLOCK OF EACH OF THE SOF C FILES. C IBL = 1 DO 220 I = 1,NFILES BUF(IB1+3) = I CALL SOFIO (IWRT,IBL,BUF(IB1-2)) IBL = IBL + FILSIZ(I) 220 CONTINUE GO TO 340 C C THE SOF IS EMPTY. INITIALIZE THE SOF COMMON BLOCKS WHICH ARE C STORED IN THE ARRAY A. C CHECK IF THE NASTRAN BUFFER SIZE IS LARGE ENOUGH C 250 MIN = 100 + 7*NITEM + (NBUFF-NSBUFF) IF (NBUFF .LT. MIN) GO TO 1090 LAST = NBUFF - 4 HIBLK = 0 IFRST = 3 DO 255 I = 1,LAST 255 BUF(IB1+ I) = 0 BUF(IB1+ 1) = PSSWRD(1) BUF(IB1+ 2) = PSSWRD(2) BUF(IB1+25) = NSBUFF BUF(IB1+26) = NITEM + IFRST - 1 BUF(IB1+27) = 2*(BUF(IB1+25)-1) BUF(IB1+28) = -4 DO 260 I = 1,NFILES BUF(IB1+28) = BUF(IB1+28) + FILSIZ(I) 260 CONTINUE BUF(IB1+29) = 0 BUF(IB1+30) = 0 BUF(IB1+31) = 3 BUF(IB1+32) = 4 BUF(IB1+33) = 1 BUF(IB1+44) = 1 BUF(IB1+45) = 0 BUF(IB1+46) = 4 BUF(IB1+47) = IFRST C BUF(IB1+100) = NITEM K = 100 DO 280 I = 1,NITEM DO 270 J = 1,7 270 BUF(IB1+K+J) = ITEM(J,I) 280 K = K + 7 C C INITIALIZE THE ARRAY NXT AND WRITE IT ON THE SECOND BLOCK OF THE C FIRST SOF FILE. C DO 300 I = 1,LAST BUF(IB2+I) = 0 300 CONTINUE IF (BUF(IB1+27)+1 .GT. FILSIZ(1)) GO TO 302 MAX = BUF(IB1+25) - 1 BUF(IB2+MAX+1) = LSHIFT(BUF(IB1+27)+1,IHALF) BUF(IB2+1) = BUF(IB1+27) + 1 GO TO 308 302 IF (MOD(FILSIZ(1),2) .EQ. 1) GO TO 304 MAX = FILSIZ(1)/2 GO TO 306 304 MAX = (FILSIZ(1)-1)/2 BUF(IB2+MAX+1) = LSHIFT(FILSIZ(1),IHALF) 306 BUF(IB2+1) = FILSIZ(1) 308 BUF(IB2+1) = ORF(BUF(IB2+1),LSHIFT(5,IHALF)) BUF(IB2+2) = 0 BUF(IB2+3) = 6 DO 310 I = 4,MAX BUF(IB2+I) = 2*I BUF(IB2+I) = ORF(BUF(IB2+I),LSHIFT(2*I-1,IHALF)) 310 CONTINUE CALL SOFIO (IWRT,1,BUF(IB2-2)) CALL SOFIO (IWRT,2,BUF(IB2-2)) C C INITIALIZE THE DIT AND WRITE IT ON THE THIRD BLOCK OF THE FIRST C SOF FILE. C DO 320 I = 1,LAST BUF(IB2+I) = IEMPTY 320 CONTINUE CALL SOFIO (IWRT,3,BUF(IB2-2)) C C INITIALIZE THE MDI AND WRITE IT ON THE FOURTH BLOCK OF THE FIRST C SOF FILE. C DO 330 I = 1,LAST BUF(IB2+I) = 0 330 CONTINUE CALL SOFIO (IWRT,4,BUF(IB2-2)) NUMB = 0 GO TO 200 C C PRINT MESSAGE INDICATING THE STATUS OF THE CURRENT SOF FILES. C 340 WRITE (NOUT,360) SIM,NFILES DO 350 I = 1,NFILES WRITE (NOUT,370) I,FILSIZ(I) 350 CONTINUE WRITE (NOUT,380) BUF(IB1+25) 360 FORMAT (A31,' 6201,',I3,' FILES HAVE BEEN ALLOCATED TO THE SOF ', 1 'WHERE --') 370 FORMAT (18H SIZE OF FILE ,I2,3H = ,I10,7H BLOCKS) 380 FORMAT (32H AND WHERE A BLOCK CONTAINS ,I4,6H WORDS) RETURN C C ERROR MESSAGES. C 1000 WRITE (NOUT,1001) SFM 1001 FORMAT (A25,' 6202. THE REQUESTED NO. OF FILES IS NON POSITIVE.') CALL MESAGE (-37,0,NAME(1)) RETURN C 1040 I = (NBUFF-NSBUFF) + BUF(IB1+25) WRITE (NOUT,1041) UFM,I 1041 FORMAT (A23,' 6205, SUBROUTINE SOFINT - THE BUFFER SIZE HAS BEEN', 1 ' MODIFIED.', /30X, 2 'THE CORRECT NASTRAN PARAMETER IS BUFFSIZE = ',I6) GO TO 1082 C 1050 WRITE (NOUT,1051) UFM,FILE 1051 FORMAT (A23,' 6206, SUBROUTINE SOFINT - WRONG PASSWORD ON SOF ', 1 'FILE ',A4,1H.) GO TO 1082 C 1060 WRITE (NOUT,1061) UFM,FILE 1061 FORMAT (A23,' 6207, SUBROUTINE SOFINT - THE SOF FILE ',A4, 1 ' IS OUT OF SEQUENCE.') GO TO 1082 C 1070 WRITE (NOUT,1071) UFM,FILE 1071 FORMAT (A23,' 6208, SUBROUTINE SOFINT - THE SIZE OF THE SOF FILE ' 1, A4,' HAS BEEN MODIFIED.') GO TO 1082 C 1080 WRITE (NOUT,1081) UFM,FILE 1081 FORMAT (A23,' 6209, SUBROUTINE SOFINT - THE NEW SIZE OF FILE ',A4, 1 ' IS TOO SMALL.') 1082 CALL MESAGE (-61,0,0) C 1090 WRITE (NOUT,1091) UFM,MIN 1091 FORMAT (A23,' 6234, THE NASTRAN BUFFER SIZE IS TO SMALL FOR THE', 1 ' SOF FILE.', /30X,'MINIMUM BUFFER SIZE IS ',I10) GO TO 1082 C 6233 FORMAT (A25,' 6233, THE ITEM STRUCTURE HAS BEEN CHANGED FOR THE ', 1 'SOF.', /32X,'NEW CAPABILITIES USING THESE ITEMS MAY NOT ', 2 'BE USED WITH THIS SOF.') C 6235 FORMAT (A25,'6235, THE OLD SOF CONTAINS NO ITEM STRUCTURE ', 1 'INFORMATION.', /27X,'THE LEVEL 16.0 ITEM STRUCTURE WILL ', 2 'BE USED.') C END ================================================ FILE: mis/sofo.f ================================================ SUBROUTINE SOFO C C MODULE USED TO TRANSFER NASTRAN DATA BLOCKS TO THE SOF FILE FOR C PURPOSES OF SAVING THE DATA FOR SUBSEQUENT RUNS OR SUBSEQUENT C EXECUTION STEPS. THE CALLING SEQUENCE TO THE MODULE IS C C SOFO A,B,C,D,E//V,N,DRY/C,N,NAME/C,N,IA/C,N,IB/C,N,IC/ C C,N,ID/C,N,IE $ C INTEGER SYSBUF,DRY,FILE,XXXX DIMENSION FILE(5),MODNAM(2),MCB(7) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / DRY,NAME(2),ITEMS(2,5) COMMON /ZZZZZZ/ IZ(1) COMMON /SYSTEM/ SYSBUF,NOUT DATA FILE / 101,102,103,104,105/ DATA MODNAM/ 4HSOFO,4H / DATA IBLNK , XXXX / 4H ,4HXXXX/ C DO 5 I = 1,5 IF (ITEMS(1,I).EQ.XXXX .OR. ITEMS(1,I).EQ.0) ITEMS(1,I) = IBLNK 5 CONTINUE C IF (DRY .LT. 0) RETURN NZ = KORSZ(IZ) IF (3*SYSBUF .GT. NZ) CALL MESAGE (-8,0,MODNAM(1)) IB1 = NZ - SYSBUF + 1 IB2 = IB1 - SYSBUF - 1 IB3 = IB2 - SYSBUF CALL SOFOPN (IZ(IB1),IZ(IB2),IZ(IB3)) C C COPY MATRICES FROM NASTRAN DATA BLOCKS TO SOF. C DO 50 I = 1,5 IF (ITEMS(1,I) .EQ. IBLNK) GO TO 50 MCB(1) = FILE(I) CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 50 CALL MTRXO (FILE(I),NAME(1),ITEMS(1,I),0,ITEST) GO TO (10,50,50,20,30,50), ITEST 10 WRITE (NOUT,1010) UWM,ITEMS(1,I),NAME(1),NAME(2) DRY = -2 GO TO 50 20 WRITE (NOUT,1020) UWM,NAME(1),NAME(2) DRY = -2 GO TO 60 30 WRITE (NOUT,1030) UWM,ITEMS(1,I) DRY = -2 50 CONTINUE 60 CALL SOFCLS RETURN C C ERROR MESSAGES. C 1010 FORMAT (A25,' 6211, MODULE SOFO - ITEM ',A4,' OF SUBSTRUCTURE ', 1 2A4,' HAS ALREADY BEEN WRITTEN.') 1020 FORMAT (A25,' 6212, MODULE SOFO - THE SUBSTRUCTURE ',2A4, 1 ' DOES NOT EXIST.') 1030 FORMAT (A25,' 6213, MODULE SOFO - ',A4,' IS AN ILLEGAL ITEM NAME') END ================================================ FILE: mis/sofopn.f ================================================ SUBROUTINE SOFOPN (B1,B2,B3) C C READS THE SOF AND SYS COMMON BLOCKS FROM THE DIRECT ACCESS STORAGE C DEVICE, AND INITIALIZES THE POINTERS TO THE THREE BUFFERS NEEDED C BY THE SOF UTILITY SUBROUTINES C LOGICAL FIRST,OPNSOF INTEGER B1(1),B2(1),B3(1),BUF,DIT,A,B,CORWDS,GINOBL DIMENSION NAME(2),IPTR(3) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /MACHIN/ MACH COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / A(37) COMMON /SYS / B(6) COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10),STATUS,PSSWRD(2), 1 FIRST,OPNSOF COMMON /ITEMDT/ NITEM,ITEM(7,1) COMMON /SYSTEM/ NBUFF,NOUT COMMON /GINOX / C(161),GINOBL DATA NAME / 4HSOFO,4HPN / DATA IRD / 1 / C IF (OPNSOF) GO TO 1000 C C CHECK IF THE OPEN CORE BUFFERS ARE LARGE ENOUGH AND DO NOT OVERLAP C IPTR(1) = CORWDS(BUF,B1) + 2 IPTR(2) = CORWDS(BUF,B2) + 2 IPTR(3) = CORWDS(BUF,B3) + 2 ISIZ = KORSZ(BUF) DO 2 I = 1,3 IF (ISIZ-IPTR(I) .LT. NBUFF-3) CALL MESAGE (-8,0,NAME) 2 CONTINUE DO 4 I = 1,2 K = I + 1 DO 3 J = K,3 ISIZ = IPTR(I) - IPTR(J) IF (ISIZ .LT. 0) ISIZ = -ISIZ IF (ISIZ .LT. NBUFF) CALL MESAGE (-8,0,NAME) 3 CONTINUE 4 CONTINUE A( 1) = IPTR(1) A( 7) = IPTR(2) A(15) = IPTR(3) A(19) = IPTR(1) C C SET SOF BUFFER SIZE FROM /GINOX/ C ON IBM USE /SYSTEM/ BECAUSE /GINOX/ IS IN SUPER LINK C B(1) = GINOBL IF (MACH.EQ.2 .OR. MACH.GE.5) B(1) = NBUFF - 4 CWKBD 3/94 IF (MACH .EQ. 12) B(1) =NBUFF -28 IF (FIRST) CALL SOFINT (IPTR(1),IPTR(2),NUMB,IBL1) C C READ AND INITIALIZE THE COMMON BLOCKS SYS AND SOF C DIT = IPTR(1) CALL SOFIO (IRD,1,BUF(DIT-2)) DO 20 I = 1,4 B(I) = BUF(DIT+24+I) 20 CONTINUE B(5) = BUF(DIT+46) B(6) = BUF(DIT+47) A(1) = IPTR(1) A(2) = 0 A(3) = 0 A(4) = BUF(DIT+29) A(5) = BUF(DIT+30) A(6) = BUF(DIT+31) A(7) = IPTR(2) DO 30 I = 8,14 A(I) = 0 30 CONTINUE A(15) = IPTR(3) A(16) = 0 A(17) = 0 A(18) = BUF(DIT+32) A(19) = IPTR(1) A(20) = 0 A(21) = 0 A(22) = BUF(DIT+33) DO 35 I = 1,NFILES A(22+I) = BUF(DIT+33+I) 35 CONTINUE A(33) = BUF(DIT+44) A(34) = 0 A(35) = 0 A(36) = 0 A(37) = BUF(DIT+45) C C INITILIZE COMMON BLOCK ITEMDT C NITEM = BUF(DIT+100) K = 100 DO 38 I = 1,NITEM DO 37 J = 1,7 37 ITEM(J,I) = BUF(DIT+K+J) 38 K = K + 7 OPNSOF = .TRUE. IF (.NOT. FIRST) RETURN FIRST = .FALSE. IF (NUMB .EQ. 0) RETURN C C ADD THE NUMBER NUMB OF BLOCKS TO THE SUPERBLOCK WHOSE SIZE C NEEDED TO BE INCREASED C DO 40 I = 1,NUMB CALL RETBLK (IBL1+I-1) 40 CONTINUE B(4) = B(4) - NUMB RETURN C C ERROR MESSAGE C 1000 WRITE (NOUT,1001) UFM 1001 FORMAT (A23,' 6222 - ATTEMPT TO CALL SOFOPN MORE THAN ONCE ', 1 'WITHOUT CALLING SOFCLS.') CALL SOFCLS CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/sofsiz.f ================================================ INTEGER FUNCTION SOFSIZ (DUM) C***** C RETURNS THE REMAINING NUMBER OF AVAILABLE WORDS ON THE SOF. C***** INTEGER BLKSIZ,AVBLKS DIMENSION NMSBR(2) COMMON /SYS/ BLKSIZ,DIRSIZ,SUPSIZ,AVBLKS DATA NMSBR/ 4HSOFS,4HIZ / C***** CALL CHKOPN (NMSBR(1)) SOFSIZ = BLKSIZ*AVBLKS RETURN END ================================================ FILE: mis/softoc.f ================================================ SUBROUTINE SOFTOC C C SOF TABLE OF CONTENTS ROUTINE C C C THE CURRENT SUBSTRUCTURE TYPE BIT POSITIONS ARE - C C NO BIT - BASIC SUBSTRUCTURE (EXCEPT IMAGE BIT) C BIT 30 - IMAGE SUBSTRUCTURE C 29 - COMBINED SUBSTRUCTURE C 28 - GUYAN REDUCTUION SUBSTRUCTURE C 27 - MODAL REDUCTION SUBSTRUCTURE C 26 - COMPLEX MODAL REDUCTION SUBSTRUCTURE C C TO ADD A NEW SUBSTRUCTURE TYPE BIT THE FOLLOWING UPDATES ARE C REQUIRED. C C 1) INCREASE THE DEMENSION OF TYPE. C 2) INCREASE THE VALUE OF NTYPE IN THE DATA STATEMENT. C 3) ADD A NEW BCD TYPE VALUE TO THE DATA STATEMENT. C C C THIS ROUTINE IS CURRENTLY CODED TO HANDLE UP TO 27 SOF ITEMS C AUTOMATICALLY. C TO INCREASE THIS TO 40 ITEMS PERFORM THE FOLLOWING UPDATES. C C 1) CHANGE THE DIMENSION OF HDR TO (40,4) C 2) CHANGE THE DIMENSION OF ITM TO (40) C 3) CHANGE THE VALUE OF MAXITM IN THE DATA STATEMENT TO 40 C 4) CHANGE THE INNER GROUPS ON FORMAT 80 TO 39(A1,1X),A1 C 5) CHANGE THE INNER GROUP ON FORMAT 100 TO 39(A1,1X),A1 C EXTERNAL LSHIFT,RSHIFT,ANDF INTEGER AVBLKS,BLANK,DITNSB,BUF,SSNAME(2),ANDF,SS,PS,CS, 1 HL,RSHIFT,DIRSIZ,SOFSIZ,DITSIZ,NUM(10),BLKSIZ, 2 HIBLK,FILSIZ,TYPE(5),ITM(27),HDR(27,4) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /MACHIN/ MACH,IHALF COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL COMMON /SYS / BLKSIZ,DIRSIZ,SUPSIZ,AVBLKS,HIBLK,IFRST COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10) COMMON /SYSTEM/ SYSBUF,NOUT,Z1(6),NLPP,Y(2),LINE,Z2(26),NBPC,NBPW COMMON /ITEMDT/ NITEM,ITEM(7,1) DATA TYPE / 2HB , 2HC , 2HR , 2HM , 2HCM / DATA NUM / 1H1, 1H2, 1H3, 1H4, 1H5, 1H6 ,1H7, 1H8, 1H9, 1H0 / DATA BLANK / 4H / DATA IMAGE / 4HI / DATA NTYPE / 6 / DATA MAXITM/ 27 / C NITM = NITEM IF (NITM .LE. MAXITM) GO TO 10 NITM = MAXITM WRITE (NOUT,6237) SWM,MAXITM 6237 FORMAT (A27,' 6237, THE SOFTOC ROUTINE CAN HANDLE ONLY',I4, 1 ' ITEMS.', /34X,'ADDITIONAL ITEMS WILL NOT BE SHOWN') C C SET UP HEADINGS AND MASKS C 10 NSHFT = 0 DO 30 I = 1,4 DO 20 J = 1,NITM 20 HDR(J,I) = KLSHFT(ITEM(1,J),NSHFT/NBPC) K = NITM + 1 IF (K .GT. MAXITM) GO TO 30 DO 22 J = K,MAXITM 22 HDR(J,I) = BLANK 30 NSHFT = NSHFT + NBPC C LINE = NLPP + 1 M0009 = 1023 M1019 = LSHIFT(1023,10) M2029 = LSHIFT(1023,20) IMASK = LSHIFT(1,30) C C LOOP THROUGH DIT C DO 110 JMKN = 1,DITSIZ,2 I = (JMKN-1)/2 + 1 CALL FDIT (I,K) SSNAME(1) = BUF(K ) SSNAME(2) = BUF(K+1) IF (SSNAME(1).EQ.BLANK .AND. SSNAME(2).EQ.BLANK) GO TO 110 CALL FMDI (I,K) C C TEST TYPE BITS IN MDI C DO 40 IT = 2,NTYPE IBIT = ANDF(BUF(K+1),LSHIFT(1,31-IT)) IF (IBIT .NE. 0) GO TO 50 40 CONTINUE IT = 1 50 IS = ANDF(BUF(K+1),IMASK) IM = BLANK IF (IS .NE. 0) IM = IMAGE SS = RSHIFT(ANDF(BUF(K+1),M1019),10) PS = ANDF(BUF(K+1),M0009) LL = RSHIFT(ANDF(BUF(K+2),M2029),20) CS = RSHIFT(ANDF(BUF(K+2),M1019),10) HL = ANDF(BUF(K+2),M0009) C C LOOP THROUGH MDI ENTRY FOR THIS SUBSTRUCTURE DETERMINING THE C SIZE OF EACH EXISTING ITEM. C DO 70 J = 1,NITM JJ = J + IFRST - 1 IF (BUF(K+JJ) .EQ. 0) GO TO 60 INUM = RSHIFT(BUF(K+JJ),IHALF)*BLKSIZ INUM = ALOG10(FLOAT(INUM)) + .3 ITM(J) = NUM(INUM) IF (IS.NE.0 .AND. ITEM(4,J).EQ.0) ITM(J) = NUM(10) IF (PS.NE.0 .AND. IS.EQ.0 .AND. ITEM(5,J).EQ.0) ITM(J) = NUM(10) GO TO 70 60 ITM(J) = BLANK 70 CONTINUE C LINE = LINE + 1 IF (LINE .LE. NLPP) GO TO 90 CALL PAGE1 LINE = LINE + 9 - 4 WRITE (NOUT,80) HDR 80 FORMAT (//,26X,90HS U B S T R U C T U R E O P E R A T I N G F 1I L E T A B L E O F C O N T E N T S , //, 1 1H ,51X,26(A1,2X),A1,/1H ,51X,26(A1,2X),A1,/1H ,51X,26(A1,2X),A1, 2 /,1H ,4X,12HSUBSTRUCTURE,35X,26(A1,2X),A1, /1H ,4X,3HNO.,3X,4HNAM 3E,4X,4HTYPE,3X,2HSS,3X,2HPS,3X,2HLL,3X,2HCS,3X,2HHL,4X,80(1H-)/) C 90 WRITE (NOUT,100) I,SSNAME,IM,TYPE(IT),SS,PS,LL,CS,HL, 1 (ITM(L),L=1,NITM) 100 FORMAT (2X,I6,2X,2A4,2X,A1,A2,5(1X,I4),4X,26(A1,2X),A1) 110 CONTINUE C C PRINT SOF SPACE UTILIZATION MESSAGE C LINE = LINE + 8 IF (LINE .GT. NLPP) CALL PAGE1 K = SOFSIZ(K) NBLK = 0 DO 115 I = 1,NFILES 115 NBLK = NBLK + FILSIZ(I) IPER = (AVBLKS*100)/NBLK WRITE (NOUT,120) K,AVBLKS,IPER,HIBLK 120 FORMAT (//,51X,80HSIZE OF ITEM IS GIVEN IN POWERS OF TEN (0 INDI 1CATES DATA IS STORED IN PRIMARY) ,/, 2 26H0*** UNUSED SPACE ON SOF = ,I9,7H WORDS. ,/, 3 22X, 4HOR = ,I9,8H BLOCKS. ,/, 4 22X, 4HOR = ,I9,9H PERCENT.,/, 5 26H0*** HIGHEST BLOCK USED = ,I9) LINE = NLPP RETURN END ================================================ FILE: mis/softrl.f ================================================ SUBROUTINE SOFTRL (NAME,ITEM,MCB) C C UTILITY SUBROUTINE TO OBTAIN THE MATRIX TRAILER FOR A MATRIX C STORED ON THE SOF C STATUS OF THE SOF ITEM IS RETURNED IN WORD ONE OF THE MATRIX C CONTROL BLOCK C C 1 NORMAL RETURN - THE TRAILER IS STORED IN WORDS 2 THRU 7 C 2 ITEM WAS PESUDO WRITTEN C 3 ITEM DOES NOT EXIST C 4 SUBSTRUCTURE NAME DOES NOT EXIST C 5 ILLEGAL ITEM NAME C EXTERNAL ANDF,RSHIFT INTEGER ANDF,RSHIFT,BUF,BLKSIZ,NMSBR(2),MCB(7),NAME(2) COMMON /MACHIN/ MACH,IHALF,JHALF COMMON /SOF / DITDUM(6),IO,IOPBN,IOLBN,IOMODE,IOPTR,IOSIND, 1 IOITCD,IOBLK COMMON /SYS / BLKSIZ COMMON /ZZZZZZ/ BUF(1) DATA IRD / 1/ DATA NMSBR / 4HSOFT,4HRL / C C C CHECK IF ITEM IS ONE OF THE FOLLOWING ALLOWABLE NAMES. C KMTX,MMTX,PVEC,POVE,UPRT,HORG,UVEC,QVEC,PAPP,POAP,LMTX C CALL CHKOPN (NMSBR(1)) IOITCD = ITCODE(ITEM) ITM = ITTYPE(ITEM) IF (ITM .NE. 1) GO TO 1000 C C FIND SUBSTRUCTURE NAME AND MDI BLOCK C CALL FDSUB (NAME,IOSIND) IF (IOSIND .LT. 0) GO TO 1010 CALL FMDI (IOSIND,IMDI) C C GET BLOCK NUMBER OF FIRST BLOCK C IOPBN = ANDF(BUF(IMDI+IOITCD),JHALF) IF (IOPBN .EQ. 0) GO TO 1020 IF (IOPBN .EQ. JHALF) GO TO 1030 IOLBN = 1 C C GET NEXT BLOCK IN CHAIN C 20 CALL FNXT (IOPBN,INXT) IF (MOD(IOPBN,2) .EQ. 1) GO TO 30 NEXT = ANDF(RSHIFT(BUF(INXT),IHALF),JHALF) GO TO 40 30 NEXT = ANDF(BUF(INXT),JHALF) 40 CONTINUE IF (NEXT .EQ. 0) GO TO 50 IOPBN = NEXT IOLBN = IOLBN + 1 GO TO 20 C C WE HAVE HIT END OF CHAIN - READ THE LAST BLOCK C 50 CALL SOFIO (IRD,IOPBN,BUF(IO-2)) I1 = IO - 2 I2 = I1 + BLKSIZ + 4 C C EXTRACT TRAILER FROM BLOCK C DO 60 I = 1,6 60 MCB(I+1) = BUF(IO+BLKSIZ-6+I) MCB(1 ) = 1 RETURN C C C ERRORS C C ILLEGAL ITEM C 1000 MCB(1) = 5 RETURN C C SUBSTRUCTURE DOES NOT EXIST C 1010 MCB(1) = 4 RETURN C C ITEM DOES NOT EXIST C 1020 MCB(1) = 3 RETURN C C ITEM IS PESUDO WRITTEN C 1030 MCB(1) = 2 RETURN END ================================================ FILE: mis/sofut.f ================================================ SUBROUTINE SOFUT C C THE PURPOSE OF THE MODULE IS TO PERFORM THE TASKS OF ALTERING THE C SOF FILE IN ORDER TO EDIT, PURGE, AND EQUIVALENCE THE DATA ITEMS C OF SELECTED SUBSTRUCTURES. THE CALLING SEQUENCE TO THE MODULE IS C C SOFUT //V,N,DRY/C,N,NAME1/C,N,OPER/C,N,OPT/C,N,NAME2/ C C,N,PREFX/C,N,IA/C,N,IB/C,N,IC/C,N,ID/C,N,IE $ C LOGICAL DITUP INTEGER DRY,OPER,OPT,PREFX,SYSBUF,DELE,RENAM,NAME(2) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / DRY,NAME1(2),OPER(2),OPT,NAME2(2),PREFX(2), 1 ITEMS(10) COMMON /SOF / SSS(33),DITUP COMMON /ZZZZZZ/ IZ(1) COMMON /SYSTEM/ SYSBUF,NOUT DATA IEDIT , IDEST,IEQUIV / 4HEDIT ,4HDEST ,4HEQUI / DATA IPRNT / 4HSOFP/ DATA DELE / 4HDELE/ DATA RENAM / 4HRENA/ DATA NAME / 4HSOFU,4HT / DATA ISCR1 / 301 / C ITASK = 0 IF (OPER(1) .EQ. IEDIT) ITASK = 1 IF (OPER(1) .EQ. IDEST) ITASK = 2 IF (OPER(1) .EQ. IEQUIV) ITASK = 3 IF (OPER(1) .EQ. IPRNT) ITASK = 4 IF (OPER(1) .EQ. DELE) ITASK = 5 IF (OPER(1) .EQ. RENAM) ITASK = 6 IF (ITASK .EQ. 0) GO TO 1000 C C ALLOCATE BUFFERS FOR THE SOF UTILITY SUBROUTINES C NZ = KORSZ(IZ) IF (3*SYSBUF .GT. NZ) CALL MESAGE (-8,0,NAME(1)) IB1 = NZ - SYSBUF + 1 IB2 = IB1 - SYSBUF - 1 IB3 = IB2 - SYSBUF CALL SOFOPN (IZ(IB1),IZ(IB2),IZ(IB3)) NZ = IB3 - 1 GO TO (20,30,40,130,180,200), ITASK C C EDIT OPERATION C 20 CALL EDIT (NAME1(1),OPT,ITEST) GO TO 50 C C DESTROY OPERATION C 30 I = NZ/2 + 1 CALL DSTROY (NAME1(1),ITEST,IZ,IZ(I),I-1) GO TO 50 C C EQUIVALENCE OPERATION C 40 I = NZ/2 + 1 CALL SETEQ (NAME1,NAME2,PREFX,DRY,ITEST,IZ,I-1) C C TEST RETURN CODE C 50 GO TO (110,110,110,60,110,70,110,80,90,100), ITEST 60 WRITE (NOUT,1010) UWM,NAME1 GO TO 100 70 WRITE (NOUT,1020) UWM,NAME1 GO TO 100 80 WRITE (NOUT,1030) UWM,NAME2 GO TO 100 90 WRITE (NOUT,1040) UWM,NAME2 100 DRY = -2 110 CALL SOFCLS GO TO 1100 C C PRINT OPERATIONS C 130 IF (OPT) 140,140,150 C C PRINT SOF TABLE OF CONTENTS (DIT MDI) C 140 CALL SOFTOC IF (OPT .EQ. 0) GO TO 170 C C PRINT SOF DATA ITEMS C 150 DO 160 I = 1,5 II = ITTYPE(ITEMS(2*I-1)) IF (II) 160,152,154 C C TABLE ITEM C 152 CALL ITMPRT (NAME1,ITEMS(2*I-1),NZ,OPT) GO TO 160 C C MATRIX ITEM C 154 CALL MATWRT (ISCR1,NAME1,ITEMS(2*I-1),NZ) C 160 CONTINUE 170 CALL SOFCLS GO TO 1100 C C DELETE OPERATION C 180 DO 190 I = 1,10 190 CALL DELETE (NAME1,ITEMS(I),ITEST) GO TO 50 C C RENAME OPERATION C 200 CALL RENAME (NAME1,NAME2,IZ(1),NZ,ITEST) GO TO 50 C C ERROR MESSAGES C 1000 WRITE (NOUT,1001) UWM,OPER(1),OPER(2) 1001 FORMAT (A25,' 6217, MODULE SOFUT - ',2A4,' IS AN ILLEGAL ', 1 'PARAMETER NAME.') GO TO 1100 C 1010 FORMAT (A25,' 6212, MODULE SOFUT - THE SUBSTRUCTURE ',2A4, 1 ' DOES NOT EXIST.') C 1020 FORMAT (A25,' 6218, MODULE SOFUT - THE SUBSTRUCTURE ',2A4,1X, 1 'CANNOT BE DESTROYED BECAUSE IT IS AN IMAGE SUBSTRUCTURE.') C 1030 FORMAT (A25,' 6219, MODULE SOFUT - RUN EQUALS DRY OR STEP AND ', 1 'SUBSTRUCTURE ',2A4, /33X, 2 'OR ONE OF THE NEW NAMES ALREADY EXISTS.') C 1040 FORMAT (A25,' 6220, MODULE SOFUT - RUN = GO AND SUBSTRUCTURE ', 1 2A4,' OR ONE OF THE NEW NAMES DOES NOT EXIST') C 1100 RETURN END ================================================ FILE: mis/solid.f ================================================ SUBROUTINE SOLID( TEMPS, PG, ITYPE ) C***** C ELEMENT THERMAL LOAD GENERATOR FOR THE WEDGE, HEXA1, AND HEXA2 C C ITYPE = 1 IMPLIES WEDGE - 3 TETRAHEDRONS C C ITYPE = 2 IMPLIES HEXA(6-SIDED-SOLID) 5 TETRAHEDRONS C C ITYPE = 3 IMPLIES HEXA(6-SIDED-SOLID) 10 TETRAHEDRONS C C***** INTEGER NECPT(52) ,M(13,4) C REAL TEMPS(8) ,PG(6) ,TMPS(4) C COMMON/TRIMEX/ECPT(100) C EQUIVALENCE( NECPT(1), ECPT(1) ) C***** C C E C P T TETRA WEDGE HEXA C ----------------------------------------------- C ECPT( 1) = EL ID EL ID EL ID C ECPT( 2) = MAT-ID MAT-ID MAT-ID C ECPT( 3) = GRID-1 GRID-1 GRID-1 C ECPT( 4) = GRID-2 GRID-2 GRID-2 C ECPT( 5) = GRID-3 GRID-3 GRID-3 C ECPT( 6) = GRID-4 GRID-4 GRID-4 C ECPT( 7) = CSID-1 GRID-5 GRID-5 C ECPT( 8) = X1 GRID-6 GRID-6 C ECPT( 9) = Y1 CSID-1 GRID-7 C ECPT(10) = Z1 X1 GRID-8 C ECPT(11) = CSID-2 Y1 CSID-1 C ECPT(12) = X2 Z1 X1 C ECPT(13) = Y2 CSID-2 Y1 C ECPT(14) = Z2 X2 Z1 C ECPT(15) = CSID-3 Y2 CSID-2 C ECPT(16) = X3 Z2 X2 C ECPT(17) = Y3 CSID-3 Y2 C ECPT(18) = Z3 X3 Z2 C ECPT(19) = CSID-4 Y3 CSID-3 C ECPT(20) = X4 Z3 X3 C ECPT(21) = Y4 CSID-4 Y3 C ECPT(22) = Z4 X4 Z3 C ECPT(23) = EL-TEM Y4 CSID-4 C ECPT(24) Z4 X4 C ECPT(25) CSID-5 Y4 C ECPT(26) X5 Z4 C ECPT(27) Y5 CSID-5 C ECPT(28) Z5 X5 C ECPT(29) CSID-6 Y5 C ECPT(30) X6 Z5 C ECPT(31) Y6 CSID-6 C ECPT(32) Z6 X6 C ECPT(33) ELTEMP Y6 C ECPT(34) Z6 C ECPT(35) CSID-7 C ECPT(36) X7 C ECPT(37) Y7 C ECPT(38) C ECPT(39) CSID-8 C ECPT(40) X8 C ECPT(41) Y8 C ECPT(42) Z8 C ECPT(43) EL-TEMP C***** C C***** C MAP FOR WEDGE M(I,J) I=TETRAHEDRON, J=GRID POINT C***** DATA M( 1,1),M( 1,2),M( 1,3),M( 1,4) / 1 ,2 ,3 ,6 / DATA M( 2,1),M( 2,2),M( 2,3),M( 2,4) / 1 ,2 ,6 ,5 / DATA M( 3,1),M( 3,2),M( 3,3),M( 3,4) / 1 ,4 ,5 ,6 / C***** C MAP FOR HEXA-SOLID (5 OR 10 TETRAHEDRONS) C***** DATA M( 4,1),M( 4,2),M( 4,3),M( 4,4) / 1 ,2 ,3 ,6 / DATA M( 5,1),M( 5,2),M( 5,3),M( 5,4) / 1 ,3 ,4 ,8 / DATA M( 6,1),M( 6,2),M( 6,3),M( 6,4) / 1 ,3 ,8 ,6 / DATA M( 7,1),M( 7,2),M( 7,3),M( 7,4) / 1 ,5 ,6 ,8 / DATA M( 8,1),M( 8,2),M( 8,3),M( 8,4) / 3 ,6 ,7 ,8 / DATA M( 9,1),M( 9,2),M( 9,3),M( 9,4) / 2 ,3 ,4 ,7 / DATA M(10,1),M(10,2),M(10,3),M(10,4) / 1 ,2 ,4 ,5 / DATA M(11,1),M(11,2),M(11,3),M(11,4) / 2 ,4 ,5 ,7 / DATA M(12,1),M(12,2),M(12,3),M(12,4) / 2 ,5 ,6 ,7 / DATA M(13,1),M(13,2),M(13,3),M(13,4) / 4 ,5 ,7 ,8 / C***** C BRANCH ON ELEMENT TYPE C***** GO TO(1000,2000,3000), ITYPE C***** C COME HERE FOR WEDGE COMPUTATIONS. C KTETRA IS CALLED 3 TIMES BASED ON WEDGE MAPPING MATRIX. C***** 1000 ITET = 1 NTET = 3 ITEMP= 33 NGRIDS = 6 IOPT = 0 GO TO 6000 C***** C COME HERE FOR 5-TETRAHEDRON 6-SIDED SOLID C***** 2000 ITET = 4 NTET = 8 ITEMP= 43 NGRIDS = 8 IOPT = 0 GO TO 6000 C***** C COME HERE FOR 10-TETRAHEDRON 6-SIDED SOLID C***** 3000 ITET = 4 NTET =13 ITEMP= 43 NGRIDS = 8 IOPT = 1 GO TO 6000 6000 DO 6010 J = 1,50 ECPT(J+50) = ECPT(J) 6010 CONTINUE C C FILL MAT ID AND EL TEMP C NECPT(2) = NECPT(52) NECPT(23) = NECPT (ITEMP+50) DO 8000 I = ITET,NTET C C FILL IN GRID SIL-S AND COORDINATE SETS C DO 7030 J = 1,4 KPOINT = M(I,J) TMPS(J) = TEMPS(KPOINT) NECPT(J+2) = NECPT(KPOINT+52) KPOINT = 4*KPOINT + NGRIDS - 3 JPOINT = 4*J + 2 NECPT(JPOINT+1) = NECPT(KPOINT+52) NECPT(JPOINT+2) = NECPT(KPOINT+53) NECPT(JPOINT+3) = NECPT(KPOINT+54) NECPT(JPOINT+4) = NECPT(KPOINT+55) 7030 CONTINUE CALL TETRA( TMPS(1), PG(1), IOPT ) 8000 CONTINUE C***** C ALL THROUGH C***** RETURN END ================================================ FILE: mis/solve.f ================================================ SUBROUTINE SOLVE C C SOLVE IS A DMAP DRIVER TO SOLVE THE MATRIX EQUATION AX=B C C SOLVE A,B/X/SYM/SIGN/PREC/TYPE $ C C SYM = 1 - USE SYMETRIC DECOMPOSITION C 0 - CHOOSE WHICH DECOMPOSITION BASED ON INPUT MATRIX C -1 - USE UNSYMETRIC DECOMPOSITION C ISIGN = 1 SOLVE AX = B C -1 SOLVE AX =-B C IPREC = PRECISION USED IN THE FBS PASS C ITYPE = DESIRED TYPE OF THE OUTPUT MATRIX X C C INTEGER NAME(2) ,RECT ,A ,B , 1 CDP ,RDP ,SYM ,SQR , 2 DOSI(3) ,REFUS(3) ,OUTPT ,X REAL ZZ(1) ,ZZZ(1) ,ZZZZ(1) ,ZZZZZ(1) DOUBLE PRECISION DET ,DETT ,MINDIA ,CDET , 1 CMNDIA ,DETC ,MINDS CHARACTER UFM*23 ,UWM*25 ,UIM*29 ,SFM*25 , 1 SWM*27 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM , 1 SWM COMMON /BLANK / ISYM ,KSIGN ,IPREC ,ITYPE COMMON /SYSTEM/ KSYSTM(65) COMMON /SFACT / IFILA(7) ,IFILL1(7),IFILC(7) ,ISCR11 , 1 ISCR22 ,NZ ,DET ,DETC , 2 IPOWER ,ISCR33 ,MINDS ,ICHOL COMMON /FBSX / IFILL(7) ,IFILLT(7),IFILB(7) ,IFILX(7) , 1 NX ,IPREC1 ,ISIGN1 ,ISCR COMMON /DCOMPX/ IA(7) ,IL(7) ,IU(7) ,ISR1 , 1 ISR2 ,ISR3 ,DETT ,IPOW , 2 NZZ ,MINDIA ,IB ,IBBAR COMMON /CDCMPX/ JA(7) ,KL(7) ,KU(7) ,JSCR1 , 1 JSCR2 ,JSCR3 ,CDET(2) ,JPOW , 2 NZZZZ ,CMNDIA ,JBB ,JBBAR COMMON /GFBSX / JL(7) ,JU(7) ,JB(7) ,JX(7) , 1 NZZZ ,IPR ,ISGN COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP ,CSP ,CDP ,SQR , 3 RECT ,DIAG ,LOWER ,UPPER , 4 SYM ,ROW ,IDENTY COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (ZZ(1),Z(1)) EQUIVALENCE (ZZZ(1),Z(1)) EQUIVALENCE (ZZZZ(1),Z(1)) EQUIVALENCE (ZZZZZ(1),Z(1)) EQUIVALENCE (KSYSTM(55),KPREC) ,(KSYSTM(2),OUTPT) DATA A,B,X / 101,102,201/, NAME / 4HSOLV,4HE / DATA ISCR1 , ISCR2,ISCR3,ISCR4,ISCR5 / 1 301 , 302 ,303 ,304 ,305 / DATA DOSI / 4HSING , 4HDOUB , 4HMLTP/, 1 REFUS / 2*3H , 3HREF / C C JA(1) = A CALL RDTRL (JA) C IFORM = JA(4) IF (ISYM) 1,5,3 1 IF (IFORM .EQ. SYM) WRITE (OUTPT,2) UWM,NAME 2 FORMAT (A25,' 2340, MODULE ',2A4,' HAS BEEN REQUESTED TO DO ', 1 'UNSYMETRIC DECOMPOSITION OF A SYMETRIC MATRIX.') IFORM = RECT IF (JA(2) .EQ. JA(3)) IFORM = SQR GO TO 5 3 IF (JA(2).EQ.JA(3) .AND. IFORM.NE.SYM) WRITE (OUTPT,4) SWM,NAME 4 FORMAT (A27,' 2341, MODULE ',2A4,' HAS BEEN FURNISHED A SQUARE ', 1 'MATRIX MARKED UNSYMETRIC FOR SYMETRIC DECOMPOSITION.') IFORM = SYM 5 ISYM = -1 IF (IFORM .EQ. SYM) ISYM = 1 JA(4) = IFORM IF (ISYM .LT. 0) GO TO 30 C C SET UP CALL TO SDCOMP AND FBS C INDEX = 1 ICHOL = 0 DO 9 I = 1,7 9 IFILA(I) = JA(I) N = IFILA(2) IFILL1(1) = ISCR1 IFILC(1) = ISCR2 ISCR11 = ISCR3 ISCR22 = ISCR4 ISCR33 = ISCR5 NZ = KORSZ(Z) IFILL1(5) = IFILA(5) CALL SDCOMP (*20,Z,Z,Z) IFILL1(3) = IFILL1(2) IFILL1(4) = LOWER CALL WRTTRL (IFILL1) IFILL(1) = ISCR1 CALL RDTRL (IFILL) IFILB(1) = B CALL RDTRL (IFILB) C C IF THE B MATRIX IS PURGED, ASSUME AN IDENTITY MATRIX IN ITS PLACE C IF (IFILB(1) .LE. 0) CALL MAKMCB (IFILB,B,N,IDENTY,JA(5)) ISIGN1 = KSIGN IA5 = IFILA(5) IB5 = IFILB(5) C C DETERMINE THE PRECISION FOR THE CALCULATIONS C AND THE TYPE OF THE OUTPUT MATRIX C 200 IPREC1 = KPREC IF ((IA5.GT.0 .AND. IA5.LE.4) .OR. (IB5.GT.0 .AND. IB5.LE.4)) 1 IPREC1 = 1 IF (IA5.EQ.2 .OR. IA5.EQ.4 .OR. IB5.EQ.2 .OR. IB5.EQ.4) IPREC1 = 2 IF (IPREC.EQ.IPREC1 .OR. IPREC.EQ.0) GO TO 222 IF (IPREC.LT.1 .OR. IPREC.GT.2) IPREC = 3 WRITE (OUTPT,221) SWM,DOSI(IPREC),REFUS(IPREC),NAME,DOSI(IPREC1) 221 FORMAT (A27,' 2163, REQUESTED ',A4,'LE PRECISION ',A3,'USED BY ', 1 2A4,2H. ,A4,'LE PRECISION IS LOGICAL CHOICE') IF (IPREC .NE. 3 ) IPREC1 = IPREC 222 IPREC = IPREC1 LTYPE = IPREC1 IF (IA5.EQ.3 .OR. IA5.EQ.4 .OR. IB5.EQ.3 .OR. IB5.EQ.4) 1 LTYPE = IPREC1 + 2 IF (ITYPE.EQ.0 .OR. ITYPE.EQ.LTYPE) GO TO 224 JJ = 1 IF (ITYPE.LT.1 .OR. ITYPE.GT.4 ) JJ = 3 WRITE (OUTPT,223) SFM,ITYPE,REFUS(JJ),NAME,LTYPE 223 FORMAT (A27,' 2164, REQUESTED TYPE ',I4,2H, ,A3,'USED BY ',2A4, 1 '. TYPE ',I4,' IS LOGICAL CHOICE.') IF (JJ .NE. 3 ) LTYPE = ITYPE 224 ITYPE = LTYPE IF (INDEX .EQ. 2) GO TO 45 C C DEFINE THE MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX C CALL MAKMCB (IFILX,X,N,RECT,ITYPE) NX = KORSZ(ZZ) IF (IFILB(4) .EQ. IDENTY) IFILB(5) = IPREC ISCR = ISCR1 CALL FBS (ZZ,ZZ) IF (IFILX(2) .EQ. N) IFILX(4) = SQR CALL WRTTRL (IFILX) RETURN C 20 NO = ISIGN(5,ISYM) ISYM = -1 CALL MESAGE (NO,A,NAME) C C SET UP THE CALL TO DECOMP AND GFBS C 30 CONTINUE INDEX = 2 IF (JA(5) .GT. 2) GO TO 80 IA(1) = A IL(1) = ISCR1 IU(1) = ISCR2 ISR1 = ISCR3 ISR3 = ISCR5 ISR2 = ISCR4 NZZ = KORSZ(ZZZ) CALL RDTRL (IA) IA(4) = SQR N = IA(2) IL(5) = JA(5) IB = 0 IBBAR = 0 CALL DECOMP (*20,ZZZ,ZZZ,ZZZ) DO 35 I = 1,7 JL(I) = IL(I) JU(I) = IU(I) 35 CONTINUE 40 JB(1) = B CALL RDTRL (JB) C C IF THE B MATRIX IS PURGED, ASSUME AN IDENTITY MATRIX IN ITS PLACE C IF (JB(1) .LE. 0) CALL MAKMCB (JB,B,N,IDENTY,JA(5)) IA5 = JA(5) IB5 = JB(5) ISGN = KSIGN C C DETERMINE THE PRECISION FOR THE CALCULATIONS C AND THE TYPE OF THE OUTPUT MATRIX C GO TO 200 45 IPR = IPREC C C DEFINE THE MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX C CALL MAKMCB (JX,X,N,RECT,ITYPE) NZZZ = KORSZ(ZZZZ) IF (JB(4) .EQ. IDENTY) JB(5) = IPREC CALL GFBS (ZZZZ,ZZZZ) IF (JX(2) .EQ. N) JX(4) = SQR CALL WRTTRL (JX) RETURN C C SET UP CALL TO CDCOMP AND GFBS C 80 CONTINUE KL(1) = ISCR1 KU(1) = ISCR2 JSCR1 = ISCR3 JSCR2 = ISCR4 JSCR3 = ISCR5 NZZZZ = KORSZ(ZZZZZ) JA(4) = SQR N = JA(2) KL(5) = JA(5) JBB = 0 JBBAR = 0 CALL CDCOMP (*20,ZZZZZ,ZZZZZ,ZZZZZ) DO 90 I = 1, 7 JL(I) = KL(I) JU(I) = KU(I) 90 CONTINUE GO TO 40 END ================================================ FILE: mis/solve1.f ================================================ SUBROUTINE SOLVE1(A1,R1,RP,XI,LAM2,LAM3,LAM4,CONT) C C ROUTINE TO SOLVE FOR LAMBDAS AS FNCTS. OF XI C C REAL LAM2,LAM3,LAM4 C IF (RP.EQ.0.0) GO TO 20 C SUM = A1 + XI / RP SINSUM = SIN(SUM) BB = R1 - RP * (SIN(A1) - SINSUM) RT = 0.0E0 IF( SINSUM .NE. 0.0E0 ) RT = BB / SINSUM PSI1 = COS(SUM) PSI2 = -SINSUM / RP C C CHECK FOR SHELL CAP CASE IF ( A1 .NE. 0.0 ) GO TO 40 LAM2 = 0.0E0 IF( BB .NE. 0.0E0 ) LAM2 = PSI1 / BB LAM3 = 1.0 / RP LAM4 = -1.0 / RP**2 GO TO 50 C C ALF1 = ALF2 C 20 SINA = SIN(A1) COSA = COS(A1) BB = R1 + XI * COSA RT = 0.0E0 IF( SINA .NE. 0.0E0 ) RT = BB / SINA PSI1 = COSA PSI2 = 0.0 C 40 LAM2 = 0.0E0 IF( BB .NE. 0.0E0 ) LAM2 = PSI1 / BB LAM3 = 0.0E0 IF( RT .NE. 0.0E0 ) LAM3 = 1.0E0 / RT LAM4 = 0.0E0 IF( BB .NE. 0.0E0 ) LAM4 = PSI2 / BB C 50 CONTINUE RETURN END ================================================ FILE: mis/solver.f ================================================ SUBROUTINE SOLVER (LOWER,X,B,IN,OUT,EPS,IFL,SCR) C C SOLVER PERFORMS THREE OPERATIONS-- C 1. SOLVES FOR B BY FORWARD-BACKWARD SUBSTITUTION C 2. COMPUTES OUT = IN + B(T)*X C 3. IF REQUESTED, COMPUTES EPSILON = NORM(OUT)/NORM(IN) C INTEGER X ,OUT ,FILEL ,FILEU ,FILEB ,FILEX ,SCR , 1 PREC ,SIGN ,FILEE ,FILEF ,FILEG ,FILEH ,T , 2 SIGNC ,SIGNAB,PRECX ,EOL ,EOR ,SYSBUF,SCRTCH , 3 B ,SCR1 ,NAME(2) DOUBLE PRECISION AD ,NUM ,DENOM DIMENSION FILEL(7) ,FILEU(7) ,FILEB(7) , 1 FILEX(7) ,FILEE(7) ,FILEF(7) , 2 FILEG(7) ,FILEH(7) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /ZZZZZZ/ Z(1) COMMON /FBSX / FILEL ,FILEU ,FILEB ,FILEX ,NZ ,PREC ,SIGN , 1 SCR1 COMMON /MPYADX/ FILEE ,FILEF ,FILEG ,FILEH ,NZZ ,T ,SIGNAB , 1 SIGNC ,PRECX ,SCRTCH COMMON /ZNTPKX/ AD(2) ,I ,EOL ,EOR COMMON /SYSTEM/ KSYSTM(65) EQUIVALENCE (KSYSTM(1),SYSBUF) ,(KSYSTM(55),IPREC) , 1 (KSYSTM(2),IOUTPT) C C INITIALIZE MATRIX CONTROL BLOCKS FOR FORWARD-BACKWARD SOLUTION C NZ = KORSZ(Z) FILEL(1) = LOWER CALL RDTRL (FILEL) FILEB(1) = B CALL RDTRL (FILEB) CALL MAKMCB (FILEX,X,FILEB(3),FILEB(4),IPREC) PREC = IPREC SIGN = -1 C C SOLVE A*X = -B FOR X WHERE A HAS BEEN FACTORED C SCR1 = SCR CALL FBS (Z,Z) CALL WRTTRL (FILEX) C C INITIALIZE MATRIX CONTROL BLOCKS FOR MPYAD OPERATION C DO 50 K = 1,7 FILEE(K) = FILEB(K) 50 FILEF(K) = FILEX(K) FILEG(1) = IN CALL RDTRL (FILEG) CALL MAKMCB (FILEH,OUT,FILEG(3),FILEG(4),IPREC) NZZ = NZ T = 1 SIGNAB = 1 SIGNC = 1 PRECX = IPREC SCRTCH = SCR C C COMPUTE OUT = IN + B(T)*X C CALL MPYAD (Z,Z,Z) CALL WRTTRL (FILEH) C C IF REQUESTED,COMPUTE EPS = NORM(OUT) / NORM(IN) C IF (IFL .EQ. 0) RETURN N1 = NZ - SYSBUF N2 = N1 - SYSBUF CALL GOPEN (OUT,Z(N1+1),0) CALL GOPEN ( IN,Z(N2+1),0) NUM = 0.0D0 DENOM = 0.0D0 NCOL = FILEG(2) DO 130 K = 1,NCOL CALL INTPK (*110,OUT,0,2,0) 100 CALL ZNTPKI NUM = NUM + DABS(AD(1))*DABS(AD(1)) IF (EOL .EQ. 0) GO TO 100 110 CALL INTPK (*130,IN,0,2,0) 120 CALL ZNTPKI DENOM = DENOM + DABS(AD(1))*DABS(AD(1)) IF (EOL .EQ. 0) GO TO 120 130 CONTINUE IF (DENOM .EQ. 0.0D0) GO TO 160 EPS = DSQRT(NUM/DENOM) GO TO 180 160 CALL FNAME (IN,NAME) WRITE (IOUTPT,170) UWM,NAME 170 FORMAT (A25,' 2401, ',2A4,' MATRIX IS NULL. AN ARBITRARY VALUE ', 1 'OF 1.0 IS THEREFORE ASSIGNED TO', /5X, 2 'THE RIGID BODY ERROR RATIO (EPSILON SUB E).') EPS = 1.0 180 CALL CLOSE (IN, 1) CALL CLOSE (OUT,1) RETURN END ================================================ FILE: mis/sort.f ================================================ SUBROUTINE SORT (IDUM,JDUM,NR,KEYWD,Z,NWDS) C C THE ORIGINAL NASTRAN SORT ROUTINE FOR IN-CORE SORTING AND FILE C SORT IS NOW RENAMED SORTI C (ONLY 5 PERCENT OF NASTRAN ROUTINES ACTUALLY CALL SORTI, WITH NON- C ZERO IDUM AND JDUM) C C THIS NEW SORT ROUTINE WITH IDUM=JDUM=0, PERFORMS ONLY IN-CORE SORT C FOR INTEGERS, FLOATING POINT NUMBERS, AND BCD WORDS, BY THE C MODIFIED SHELL METHOD C IT USES MUCH LESS CORE SPACE C C ARRAY Z IS NR-ROWS BY (NWDS/NR)-COLUMNS IN SIZE C DATA STORED ROW-WISE IN Z, AND TO BE SORTED BY KEYWD-TH ROW C C USE A NEGATIVE KEYWD IF THE ORIGINAL ORDER OF THE TABLE ENTRIES C ARE TO BE PRESERVED AND THE COLUMN OF KEYWORDS CONTAINS DUPLICATES C (INTEGER SORT ONLY) E.G. C C ORIGINAL TABLE SORTED(KEYWD=+1) SORTED(KEYWD=-1) C --------------- ---------------- ---------------- C 1 4 1 4 1 4 C 2 2 1 10 1 3 C 1 3 1 3 1 10 C 1 10 2 2 2 2 C C C THIS ROUTINE WOULD SWITCH BACK TO THE OLD SHUTTLE EXCHANGE METHOD C NUMBERS OVERFLOW DUE TO THE REQUIREMENT THAT ORIGINAL ORDER MUST B C MAINTAINED C C ENTRY POINTS C C SORT - TABLE SORT BY INTEGER C SORTF - TABLE SORT BY F.P. NUMBER C SORTA - TABLE SORT BY ALPHABETS, 4-BCD CHARACTERS C SORTA8 - TABLE SORT BY ALPHABETS, 8-BCD CHAR. (KEYWD AND KEYWD+1) C SORTA7 - SAME AS SORTA8, EXCEPT LEADING CHAR. IS IGNORED C SORT2K - 2-KEYWORD SORT, SORT BY KEYWD AND KEYWD+1, INTEGER OR C REAL NUMBER KEYS. NEGATIVE KEYWD IS IGNORED C C THE TWO SORT CALLS OF THE FOLLOWING FORM CAN BE REPLACED BY ONE CA C TO SORT2K, WHICH IS FASTER, NO DANGER OF NUMBER OVERFLOW, AND THE C ORIGINAL SEQUENCE WILL NOT CHANGE WHEN THERE ARE DUPLICATES. C C CALL SORT (0,0,N1,-(N2+1),TABLE,N3) C CALL SORT (0,0,N1,-N2, TABLE,N3) C CAN BE REPLACED BY C CALL SORT2K (0,0,N1,N2,TABLE,N3) C C C WRITTEN BY G.CHAN/SPERRY, 3/1987 C LOGICAL RVSBCD INTEGER ZI, ZN, TEMP, Z(NR,1), TWO31, TWO, 1 SUBR(6) REAL RI, RN COMMON /SYSTEM/ IBUF, NOUT, DM37(37),NBPW COMMON /MACHIN/ MACH, IJHLF(2),LQRO COMMON /TWO / TWO(16) EQUIVALENCE (ZI,RI), (ZN,RN) DATA SUBR / 2H , 2HF , 2HA , 2HA8, 2HA7, 2H2K/ C C CHECK ERROR, CHECK DATA TYPE, AND PREPARE FOR SORT C ISORT = 1 GO TO 10 C ENTRY SORTF (IDUM,JDUM,NR,KEYWD,Z,NWDS) C ======================================= ISORT = 2 GO TO 10 C ENTRY SORTA (IDUM,JDUM,NR,KEYWD,Z,NWDS) C ======================================= ISORT = 3 GO TO 10 C ENTRY SORTA8 (IDUM,JDUM,NR,KEYWD,Z,NWDS) C ======================================== ISORT = 4 GO TO 10 C ENTRY SORTA7 (IDUM,JDUM,NR,KEYWD,Z,NWDS) C ======================================== ISORT = 5 GO TO 10 C ENTRY SORT2K (IDUM,JDUM,NR,KEYWD,Z,NWDS) C ======================================== ISORT = 6 C 10 IF (NWDS .EQ. 0) GO TO 330 IF (IDUM.NE.0 .OR. JDUM.NE.0) GO TO 300 RVSBCD = MOD(LQRO,10) .EQ. 1 KEY = IABS(KEYWD) IF (KEY .GT. NR) GO TO 280 NC = NWDS/NR IF (NC*NR .NE. NWDS) GO TO 280 M = NC IF (ISORT.NE.1 .OR. KEYWD.GE.0) GO TO 30 C C - INTEGER SORT ONLY - C IF ORIGINAL ORDER IS TO BE MAINTAINED WHERE DUPLICATE KEYWORDS MAY C OCCUR, ADD INDICES TO THE KEYWORDS (GOOD FOR BOTH POSITIVE AND C NEGATIVE RANGES, AND BE SURE THAT KEYWORDS ARE NOT OVERFLOWED), C SORT THE DATA, AND REMOVE THE INDICES LATER C C IF KEYWORD OVERFLOWS, SWITCH TO SHUTTLE EXCHANGE METHOD C IF (NC.GE.TWO(16) .AND. NBPW.LE.32) GO TO 200 J = 30 IF (NBPW .GE. 60) J = 62 TWO31 = 2**J LIMIT = (TWO31-NC)/NC DO 20 I = 1,NC J = Z(KEY,I) IF (IABS(J) .GT. LIMIT) GO TO 200 J = J*NC + I K =-1 IF (J .LT. 0) K =-NC 20 Z(KEY,I) = J + K C C SORT BY C MODIFIED SHELL METHOD, A SUPER FAST SORTER C 30 M = M/2 IF (M .EQ. 0) GO TO 180 J = 1 K = NC - M 40 I = J 50 N = I + M ZI= Z(KEY,I) ZN= Z(KEY,N) GO TO (60,80,90,90,90,60), ISORT C INT FP A4 A8 A7 2K C 60 IF (ZI-ZN) 170,70,150 70 IF (ISORT .EQ. 1) GO TO 170 IF (Z(KEY+1,I)-Z(KEY+1,N)) 170,170,150 80 IF (RI-RN) 170,170,150 90 KK = 1 IF (ISORT .EQ. 5) GO TO 110 C C COMPARE 1ST BYTE, THEN COMPARE 2ND, 3RD, AND 4TH BYTES TOGETHER C IF MACHINE DOES NOT USE REVERSED BCD ORDER. THOSE MACHINES WITH C REVERSED BCD ORDER (VAX, ULTRIX, S/G) MUST COMPARE EACH BYTE C SEPERATELY BECAUSE OF THE SIGN BIT C 100 IF (KHRFN1(ZERO,4,ZI,1) - KHRFN1(ZERO,4,ZN,1)) 170,110,150 110 IF (.NOT.RVSBCD) IF (KHRFN1(ZI,1,ZERO,4)-KHRFN1(ZN,1,ZERO,4)) 1 170,140,150 IF (KHRFN1(ZERO,4,ZI,2) - KHRFN1(ZERO,4,ZN,2)) 170,120,150 120 IF (KHRFN1(ZERO,4,ZI,3) - KHRFN1(ZERO,4,ZN,3)) 170,130,150 130 IF (KHRFN1(ZERO,4,ZI,4) - KHRFN1(ZERO,4,ZN,4)) 170,140,150 140 IF (ISORT.LE.3 .OR. KK.EQ.2) GO TO 170 ZI = Z(KEY+1,I) ZN = Z(KEY+1,N) KK = 2 GO TO 100 150 DO 160 L = 1,NR TEMP = Z(L,I) Z(L,I) = Z(L,N) 160 Z(L,N) = TEMP I = I - M IF (I .GE. 1) GO TO 50 170 J = J + 1 IF (J-K) 40,40,30 180 IF (ISORT.NE.1 .OR. KEYWD.GE.0) GO TO 330 DO 190 I = 1,NC 190 Z(KEY,I) = Z(KEY,I)/NC GO TO 330 C C SORT BY C SHUTTLE EXCHANGE THETHOD, A SLOW SORTER C (THIS WAS NASTRAN ORIGINAL SORTER, MODIFIED FOR 2-D ARRAY OPERATIO C WITH 20-COLUMN LIMITATION REMOVED) C 200 IF (I .LE. 1) GO TO 220 J = I - 1 DO 210 I = 1,J 210 Z(KEY,I) = Z(KEY,I)/NC C 220 DO 270 II = 2,NC ZI = Z(KEY,II) JJ = II - 1 IF (ZI .GE. Z(KEY,JJ)) GO TO 270 230 JJ = JJ - 1 IF (JJ .GT. 0) IF (ZI-Z(KEY,JJ)) 230,240,240 240 JJ = JJ + 2 DO 260 I = 1,NR TEMP = Z(I,II) M = II DO 250 J = JJ,II Z(I,M) = Z(I,M-1) 250 M = M - 1 260 Z(I,JJ-1) = TEMP 270 CONTINUE GO TO 330 C C ERROR. FORCING A WALK BACK C 280 WRITE (NOUT,290) SUBR(ISORT),NR,KEY,NWDS,NC 290 FORMAT ('0*** ERROR IN SORT',A2,4I8) GO TO 320 300 WRITE (NOUT,310) 310 FORMAT ('0*** CALLING ROUTINE SHOULD CALL SORTI') CWKBR 320 CALL ERRTRC ('SORT ',320) 320 CONTINUE 330 RETURN END ================================================ FILE: mis/sortdg.f ================================================ SUBROUTINE SORTDG (STK1,STK2,X1,X2,NDEG) C C SORTDG SORTS STK2 BY DEGREE OF THE NODE AND ADDS IT TO THE END C OF STK1 IN ORDER OF LOWEST TO HIGHEST DEGREE. X1 AND X2 ARE THE C NUMBER OF NODES IN STK1 AND STK2 RESPECTIVELY. C INTEGER X1, X2, STK1, STK2, TEMP DIMENSION NDEG(1), STK1(1), STK2(1) COMMON /BANDG / N, IDPTH C IND=X2 10 ITEST=0 IND=IND-1 IF (IND.LT.1) GO TO 40 DO 30 I=1,IND J=I+1 ISTK2=STK2(I) JSTK2=STK2(J) IF (NDEG(ISTK2).LE.NDEG(JSTK2)) GO TO 30 ITEST=1 TEMP=STK2(I) STK2(I)=STK2(J) STK2(J)=TEMP 30 CONTINUE IF (ITEST.EQ.1) GO TO 10 40 DO 50 I=1,X2 X1=X1+1 STK1(X1)=STK2(I) 50 CONTINUE RETURN END ================================================ FILE: mis/sorti.f ================================================ SUBROUTINE SORTI (INPFL,OUTFL,NWDS,KEYWRD,L,NX) C C WITH ENTRY POINT SORTI2 TO SORT TABLE BY 2 KEY WORDS C C THIS SORTING ROUTINE WAS CALLED SORT BEFORE, AND IS NOW RENAMED C SORTI. IT IS CAPABLE FOR IN-CORE SORTING AND FILE SORT. C C THE NEW SUBROUTINE SORT IS A TRUNCATED VERSION OF THIS ROUTINE C ONLY FOR IN-CORE SORTING. IT CAN HANDLE INTEGER, REAL, BCD(A4), C BCD(A8), BCD(A7), AND 2-KEY SORTINGS. C C (95 PERCENT OF NASTRAN ROUTINES ACTUALLY CALL SORT. THE REMAINING C 5 PERCENT CALL SORTI) C C IF INPFL AND OUTFL ARE ZERO, CALLING ROUTINE SHOULD CALL SORT C FOR EFFICIENCY C C THE OLD SHUTTLE EXCHANGE, WHICH WAS VERY SLOW, IS NOW REPLACED BY C A SUPER FAST SORTER, A MODIFIED SHELL SORT. C C THIS MODIFIED VERSION ALSO SORTS TABLE OF ANY LENGTH (PREVIOUSLY N C OF WORDS PER ENTRY, NWDS, WAS LIMITED TO 20) C INTEGER OUTFL,SCRA,SCRB,SCRC,DIST1,DIST2,DUMMY,TOTAL,OUT, 1 SUBR(2),L(NWDS,2),TEMP,FILE,R,BUFA,BUFB,BUFC, 2 SYSBUF,BUFIN,TWO,TWO31 COMMON /SETUP / NFILE(6),BUFIN COMMON /SYSTEM/ SYSBUF,DUM38(38),NBPW COMMON /TWO / TWO(16) EQUIVALENCE (NFILE(1),SCRB),(NFILE(2),SCRC),(NFILE(3),SCRA) DATA SUBR / 4HSORT, 4HI / C KEY2 = 1 GO TO 10 C C ENTRY SORTI2 (INPFL,OUTFL,NWDS,KEYWRD,L,NX) C ========================================== C KEY2 = 2 C C IF INPFL EQ 0, CORE BLOCK L OF LENGTH NX IS TO BE SORTED C IF INPFL NE 0, INPFL IS TO BE SORTED USING BLOCK L C 10 KEYWD = IABS(KEYWRD) NNN = NX IF (NNN .LT. NWDS) GO TO 350 J = 30 IF (NBPW .GE. 60) J = 62 TWO31 = 2**J IF (INPFL .EQ. 0) GO TO 30 BUFA = NX - SYSBUF + 1 C C MINIMUM CORE REQUIREMENT = 2 X NUMBER OF WORDS PER ENTRY C NZ = BUFA - 1 IF (NZ .LT. NWDS+NWDS) GO TO 360 CALL OPEN (*370,SCRA,L(BUFA,1),1) NN = (NZ/NWDS)*NWDS NNN = NN OUT = SCRA NREC= 0 20 CALL READ (*430,*170,INPFL,L,NN,0,NNN) C C SORT PHASE -- C 30 LEN = NNN/NWDS IF (LEN*NWDS .NE. NNN) GO TO 365 M = LEN IF (KEYWRD .GE. 0) GO TO 40 C C - INTEGER SORT ONLY - C IF ORIGINAL ORDER IS TO BE MAINTAINED WHERE DUPLICATE KEYWORDS MAY C OCCUR, ADD INDICES TO THE KEYWORDS (GOOD FOR BOTH POSITIVE AND C NEGATIVE RANGES, AND BE SURE THAT KEYWORDS ARE NOT OVERFLOWED), C SORT THE DATA, AND REMOVE THE INDICES LATER C C IF ANY KEYWORD OVERFLOWS, SWITCH TO SHUTTLE EXCHANGE METHOD C LIMIT IS THE MAX VALUE BEFORE INTEGER OVERFLOW C IF (LEN.GE.TWO(16) .AND. NBPW.LE.32) GO TO 130 LIMIT = (TWO31-LEN)/LEN DO 35 I = 1,LEN J = L(KEYWD,I) IF (IABS(J) .GT. LIMIT) GO TO 124 J = J*LEN + I K = -1 IF (J .LT. 0) K = -LEN 35 L(KEYWD,I) = J + K IF (KEY2 .EQ. 1) GO TO 40 DO 37 I = 1,LEN J = L(KEYWD+1,I) IF (IABS(J) .GT. LIMIT) GO TO 120 J = J*LEN + I K = -1 IF (J .LT. 0) K = -LEN 37 L(KEYWD+1,I) = J + K C C SORT BY C MODIFIED SHELL METHOD, A SUPER FAST SORTER C 40 M = M/2 IF (M .EQ. 0) GO TO 110 J = 1 K = LEN - M 45 I = J 50 N = I + M IF (L(KEYWD,I)-L(KEYWD,N)) 105, 60,95 60 IF (KEY2 .EQ. 1) GO TO 105 IF (L(KEYWD+1,I)-L(KEYWD+1,N)) 105,105,95 95 DO 100 R = 1,NWDS TEMP = L(R,I) L(R,I) = L(R,N) 100 L(R,N) = TEMP I = I - M IF (I .GE. 1) GO TO 50 105 J = J + 1 IF (J-K) 45,45,40 110 IF (KEYWRD .GE. 0) GO TO 160 DO 115 I = 1,LEN L(KEYWD,I) = L(KEYWD,I)/LEN IF (KEY2 .EQ. 2) L(KEYWD+1,I) = L(KEYWD+1,I)/LEN 115 CONTINUE GO TO 160 C C SORT BY C SHUTTLE EXCHANGE METHOD, A SLOW SORTER C (THIS WAS NASTRAN ORIGINAL SORTER, MODIFIED FOR 2-D ARRAY C OPERATION WITH 20-COLUMN LIMITATION REMOVED) C 120 IF (I .LE. 1) GO TO 123 J = I - 1 DO 121 I = 1,J 121 L(KEYWD+1,I) = L(KEYWD+1,I)/LEN 123 I = LEN 124 IF (I .LE. 1) GO TO 130 J = I - 1 DO 125 I = 1,J 125 L(KEYWD,I) = L(KEYWD,I)/LEN C 130 DO 155 II = 2,LEN JJ = II - 1 IF (L(KEYWD,II)-L(KEYWD,JJ)) 135,133,155 133 IF (KEY2 .EQ. 1) GO TO 155 IF (L(KEYWD+1,II) .GE. L(KEYWD+1,JJ)) GO TO 155 135 JJ = JJ - 1 IF (JJ .LE. 0) GO TO 140 IF (L(KEYWD,II)-L(KEYWD,JJ)) 135,137,140 137 IF (KEY2 .EQ. 2) IF (L(KEYWD+1,II)-L(KEYWD+1,JJ)) 135,140,140 140 JJ = JJ + 2 DO 150 I = 1,NWDS TEMP = L(I,II) M = II DO 145 J = JJ,II L(I,M) = L(I,M-1) 145 M = M - 1 150 L(I,JJ-1) = TEMP 155 CONTINUE C C IF CORE SORT, SORT IS COMPLETED. IF FILE SORT, WRITE BLOCK ON C SCRATCH FILE TO BE MERGED LATER. C 160 IF (INPFL .EQ. 0) GO TO 350 165 CALL WRITE (SCRA,L,NNN,1) NREC = NREC + 1 IF (NNN-NN) 180,20,180 170 IF (NNN) 180,180,175 175 IF (NNN-NWDS-NWDS) 165,30,30 180 CALL CLOSE (SCRA,1) C C IF ONLY ONE RECORD, BYPASS MERGE C IF (NREC .EQ. 1) GO TO 320 C C COMPUTE OPTIMUM DISTRIBUTION OF SORTED RECORDS ON TWO SCRATCH C FILES FOR MERGE PHASE USING FIBONACCI SEQUENCE C LEVEL = 0 DIST1 = 1 DIST2 = 0 TOTAL = 1 190 DUMMY = TOTAL - NREC IF (DUMMY .GE. 0) GO TO 195 DIST1 = DIST1 + DIST2 DIST2 = DIST1 - DIST2 TOTAL = DIST1 + DIST2 LEVEL = LEVEL + 1 GO TO 190 195 BUFB = BUFA - SYSBUF BUFC = BUFB - SYSBUF IF (BUFC .LT. 1) GO TO 360 NN = BUFB - 1 C C COPY N SORTED RECORDS ONTO SECOND SCRATCH FILE C CALL OPEN (*370,SCRA,L(BUFA,1),0) CALL OPEN (*380,SCRB,L(BUFB,1),1) N = DIST2 - DUMMY DO 205 I = 1,N 200 CALL READ (*440,*205,SCRA,L,NN,0,NFLAG) CALL WRITE (SCRB,L,NN,0) GO TO 200 205 CALL WRITE (SCRB,L,NFLAG,1) CALL CLOSE (SCRB,1) CALL CLOSE (SCRA,2) NFILE(4) = SCRB NFILE(5) = SCRC K = 4 C C MERGE PHASE --- C INPUT FILE WITH GREATER NUMBER IF RECORDS = IN1 C INPUT FILE WITH LESSER NUMBER OF RECORDS = IN2 C EACH PASS MERGES ALL RECORDS FROM IN2 WITH LIKE NUMBER OF RECORDS C (INCLUDING DUMMY RECORDS) FROM IN1 ONTO OUT. FOR NEXT PASS IN1 C BECOMES IN2, IN2 BECOMES OUT, AND OUT BECOMES IN1. C DO 310 I = 1,LEVEL K = K - 1 IF (K .EQ. 0) K = 3 IN1 = NFILE(K) IN2 = NFILE(K+1) OUT = NFILE(K+2) LAST= 2 CALL OPEN (*390,IN1,L(BUFA,1),2) CALL OPEN (*400,IN2,L(BUFB,1),2) CALL OPEN (*410,OUT,L(BUFC,1),1) DO 300 J = 1,DIST2 IF1 = NWDS IF2 = NWDS CALL READ (*450,*275,IN1,L,NWDS,0,IF1) IF (DUMMY) 210,210,280 210 CALL READ (*460,*290,IN2,L(1,2),NWDS,0,IF2) 220 IF (L(KEYWD,1)-L(KEYWD,2)) 260,230,270 230 IF (KEY2 .EQ. 2) IF (L(KEYWD+1,1)-L(KEYWD+1,2)) 260,260,270 260 CALL WRITE (OUT,L,NWDS,0) CALL READ (*450,*275,IN1,L,NWDS,0,IF1) IF (IF2) 260,260,220 270 CALL WRITE (OUT,L(1,2),NWDS,0) CALL READ (*460,*290,IN2,L(1,2),NWDS,0,IF2) IF (IF1) 270,270,220 275 IF (IF2) 300,300,270 280 DUMMY = DUMMY - 1 IF2 = 0 290 IF (IF1) 300,300,260 300 CALL WRITE (OUT,0,0,1) DIST2 = DIST1 - DIST2 DIST1 = DIST1 - DIST2 IF (DIST2 .EQ. 0) LAST = 1 CALL CLOSE (IN1,LAST) CALL CLOSE (IN2,1) 310 CALL CLOSE (OUT,1) C C COPY PHASE --- C IF OUTPUT FILE IS NOT SPECIFIED, NFILE(6) WILL CONTAIN NAME OF C SCRATCH FILE CONTAINING OUTPUT C 320 NFILE(6) = OUT IF (OUTFL .EQ. 0) GO TO 350 CALL OPEN (*410,OUT,L(BUFA,1),0) IF (INPFL .NE. OUTFL) GO TO 330 CALL CLOSE (INPFL,1) CALL OPEN (*420,INPFL,L(BUFIN,1),1) 330 CALL READ (*470,*340,OUT,L,NZ,0,NFLAG) CALL WRITE (OUTFL,L,NZ,0) GO TO 330 340 CALL WRITE (OUTFL,L,NFLAG,1) CALL CLOSE (OUT,1) 350 RETURN C C ERRORS C 360 J = -8 FILE = 0 GO TO 500 365 J = -37 GO TO 500 370 FILE = SCRA GO TO 480 380 FILE = SCRB GO TO 480 390 FILE = IN1 GO TO 480 400 FILE = IN2 GO TO 480 410 FILE = OUT GO TO 480 420 FILE = INPFL GO TO 480 430 FILE = INPFL GO TO 490 440 FILE = SCRA GO TO 490 450 FILE = IN1 GO TO 490 460 FILE = IN2 GO TO 490 470 FILE = OUT GO TO 490 480 J = -1 GO TO 500 490 J = -2 500 CALL MESAGE (J,FILE,SUBR) RETURN END ================================================ FILE: mis/spanl1.f ================================================ SUBROUTINE SPANL1(IARG) C***** C THIS ROUTINE COMPUTES PHASE I PARAMETERS FOR STRESS DATA RECOVERY FOR C THE SHEAR PANEL (IF IARG = 4) AND THE TWIST PANEL (IF IARG = 5). C MUCH OF THE CODE WAS LIFTED FROM SUBROUTIVE KPANEL C***** C C E C P T F O R B O T H P A N E L S C ECPT( 1) - IELID ELEMENT ID. NO. C ECPT( 2) - ISILNO(4) SCALAR INDEX NUMBERS C ECPT( 3) - ... ... C ECPT( 4) - ... ... C ECPT( 5) - ... ... C ECPT( 6) - MATID MATERIAL ID. C ECPT( 7) - T THICKNESS C ECPT( 8) - FMU NON-STRUCTURAL MASS C ECPT( 9) - ICSID1 COOR. SYS. ID. FOR GRID POINT 1 C ECPT(10) - GP1(3) BASIC COORDINATES FOR GRID POINT 1 C ECPT(11) - ... ... C ECPT(12) - ... ... C ECPT(13) - ICSID2 COOR. SYS. ID. FOR GRID POINT 2 C ECPT(14) - GP2(3) BASIC COORDINATES FOR GRID POINT 2 C ECPT(15) - ... ... C ECPT(16) - ... ... C ECPT(17) - ICSID3 COOR. SYS. ID. FOR GRID POINT 3 C ECPT(18) - GP3(3) BASIC COORDINATES FOR GRID POINT 3 C ECPT(19) - ... ... C ECPT(20) - ... ... C ECPT(21) - ICSID4 COOR. SYS. ID. FOR GRID POINT 4 C ECPT(22) - GP4(3) BASIC COORDINATES FOR GRID POINT 4 C ECPT(23) - ... ... C ECPT(24) - ... ... C ECPT(25) - TEMPEL ELEMENT TEMPERATURE C C C REAL 1 NU C C C C C C DIMENSION 1 VD1(3) ,VD2(3) 2, VKN(3) ,VK(3) 3, V12(3) ,V41(3) 4, VP12(3) ,VI(3) 5, VJ(3) ,AVEC(4) 6, SMALLU(4) ,SMALLV(4) 7, P(4) ,IECPT(100) 8, ECPT(100) 9, VLEFT(6) ,TI(9) C C SDR2 PHASE I INPUT AND OUTPUT BLOCK C COMMON /SDR2X5/ 1 IELID ,ISILNO(4) 2, MATID ,T 3, FMU ,ICSID1 4, GP1(3) ,ICSID2 5, GP2(3) ,ICSID3 6, GP3(3) ,ICSID4 7, GP4(3) ,TEMPEL 8, XXXXXX(75) COMMON /SDR2X5/ 1 JELID ,JSILNO(4) 2, S(3,4) ,OUT(15) 3, YYYYYY(93) C C SDR2 SCRATCH BLOCK C COMMON /SDR2X6/ 1 VLEFT ,TI 2, SPCON 4, VD1 ,VD2 5, VKN ,VK 6, V12 ,V41 7, VP12 ,VI 8, VJ ,AVEC 9, SMALLU ,SMALLV T, P ,X1 1, X2 ,X3 2, X4 ,Y1 3, Y2 ,Y3 4, Y4 ,VKL 5, PA ,V12DK 6, CEP1 ,CEP2 7, EP ,TEMP COMMON /SDR2X6/ 1 YP ,XP 2, SA ,XQ 4, B ,XL 5, A ,A2 6, A3 ,A4 7, A5 ,B2 8, B3 ,B4 9, B5 ,C T, C2 ,C3 1, C4 ,C5 2, D ,D2 3, D3 ,D4 4, D5 ,TERM1 5, TERM2 ,TERM3 6, TERM4 ,TERM5 7, XL13 ,XL24 C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH C C C COMMON /MATOUT/ 1 E ,G 2, NU ,RHO 3, ALPHA ,TSUBO 4, GSUBE ,SIGT 5, SIGC ,SIGS C C C EQUIVALENCE 1 (IELID,IECPT(1),ECPT(1)) C C CALL MAT TO GET MATERIAL PROPERTIES. C MATIDC = MATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) C C COMPUTE DIAGONAL VECTORS. C DO 10 I=1,3 VD1(I) = GP3(I) - GP1(I) 10 VD2(I) = GP4(I) - GP2(I) C C COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED C AREA, PA C VKN(1) = VD1(2)*VD2(3)-VD1(3)*VD2(2) VKN(2) = VD1(3)*VD2(1)-VD1(1)*VD2(3) VKN(3) = VD1(1)*VD2(2)-VD1(2)*VD2(1) VKL = SQRT(VKN(1)**2+VKN(2)**2+VKN(3)**2) IF (VKL .EQ. 0.0) GO TO 160 VK(1) = VKN(1)/VKL VK(2) = VKN(2)/VKL VK(3) = VKN(3)/VKL PA = .5 * VKL C C COMPUTE SIDES -12- AND -41- C DO 20 I=1,3 V12(I) = GP2(I) - GP1(I) 20 V41(I) = GP1(I) - GP4(I) C C COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12, VI, VJ C V12DK = V12(1)*VK(1)+V12(2)*VK(2)+V12(3)*VK(3) VP12(1) = V12(1)-V12DK*VK(1) VP12(2) = V12(2)-V12DK*VK(2) VP12(3) = V12(3)-V12DK*VK(3) VP12L = SQRT(VP12(1)**2+VP12(2)**2+VP12(3)**2) IF (VP12L .EQ. 0.0) GO TO 170 VI(1) = VP12(1)/VP12L VI(2) = VP12(2)/VP12L VI(3) = VP12(3)/VP12L VJ(1) = VK(2)*VI(3)-VK(3)*VI(2) VJ(2) = VK(3)*VI(1)-VK(1)*VI(3) VJ(3) = VK(1)*VI(2)-VK(2)*VI(1) C C NORMALIZE J FOR GOOD MEASURE C VJL = SQRT (VJ(1)**2 + VJ(2)**2 + VJ(3)**2) IF (VJL .EQ. 0.0) GO TO 180 VJ(1) = VJ(1) / VJL VJ(2) = VJ(2) / VJL VJ(3) = VJ(3) / VJL X1 = 0.0 Y1 = 0.0 X2 = VP12L Y2 = 0.0 X3 = VI(1) * VD1(1) + VI(2) * VD1(2) + VI(3) * VD1(3) Y3 = VJ(1) * VD1(1) + VJ(2) * VD1(2) + VJ(3) * VD1(3) X4 =-VI(1) * V41(1) - VI(2) * V41(2) - VI(3) * V41(3) Y4 =-VJ(1) * V41(1) - VJ(2) * V41(2) - VJ(3) * V41(3) C C CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES. IF NOT, C CALL FATAL ERROR MESSAGE. C IF (Y3 .LE. 0.0) GO TO 190 IF (X3 .LE. Y3*X4/Y4) GO TO 200 IF (Y4 .LE. 0.0) GO TO 210 IF (X4 .GE. X2 - (X2-X3)*Y4/Y3) GO TO 220 C C TEST FOR PARALLEL EFFECTS. C TEMP = X3 - X2 EP = 0.01 IF (ABS(Y3-Y4).LT.ABS(X3-X4)*EP) GO TO 30 IF (ABS(Y4*TEMP-Y3*X4).LT.ABS(X4*TEMP+Y4*Y3)*EP) GO TO 40 GO TO 70 30 IF (ABS(Y4*TEMP-Y3*X4).LT.ABS(X4*TEMP+Y4*Y3)*EP) GO TO 50 C C AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO THE C LINE CONNECTING POINTS 1 AND 2. C TEMP = Y3*X4 - Y4 * (X3-X2) YP = X2*Y3*Y4 / TEMP P(1) = YP - Y1 P(2) = YP - Y2 P(3) = YP - Y3 P(4) = YP - Y4 XP = X2*Y3*X4 / TEMP SA =(X2 - XP) / YP C =(X1 - XP) / YP Z =( (P(1)*P(2)*PA) / (P(3)*P(4)*2.0*G*T) ) * 1 ( 1.0 + 2.0/(3.0 + 3.0*NU) * (SA**2 + SA*C + C**2) ) GO TO 80 C C AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO THE C LINE CONNECTING POINTS 2 AND 3. C 40 D = -.5 * ( X4/Y4 + (X3-X2)/Y3 ) XQ = X4 - Y4 * (X3-X4)/(Y3-Y4) TEMP = 1.0 / SQRT (1.0 + D**2) P(1) = ( XQ - X1 - D*Y1) * TEMP P(2) = ( XQ - X2 - D*Y2) * TEMP P(3) = ( XQ - X3 - D*Y3) * TEMP P(4) = ( XQ - X4 - D*Y4) * TEMP TEMP = XQ - X4 B = (TEMP * D + Y4) / (TEMP - Y4*D) Z =( (P(1)*P(2)*PA) / (P(3)*P(4)*2.0*G*T) ) * 1 ( 1.0 + 2.0/(3.0 + 3.0*NU) * (B**2 + B*D + D**2) ) GO TO 80 C C IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM. C 50 DO 60 I=1,4 60 P(I) = 1.0 D = -.5 * ( X4/Y4 + (X3-X2)/Y3 + (Y3-Y4)/(X3-X4) ) Z = PA / (2.0*G*T) * (1.0 + 2.0*D**2/(1.0+NU)) GO TO 80 C C IN THIS CASE NO PARALLEL EFFECTS EXIST. C 70 XQ = X4 - (X3-X4)/(Y3-Y4) * Y4 TEMP = Y3*X4 - Y4*(X3-X2) XP = X2*Y3*X4 / TEMP YP = X2*Y3*Y4 / TEMP XL = SQRT ( (XQ-XP)**2 + YP**2 ) D = (XQ-XP)/YP TEMP = YP/XL P(1) = TEMP * (XQ - X1 - D*Y1) P(2) = TEMP * (XQ - X2 - D*Y2) P(3) = TEMP * (XQ - X3 - D*Y3) P(4) = TEMP * (XQ - X4 - D*Y4) C = XL/P(1) - D B = XL/P(4) - C A = XL/P(2) - D A2 = A**2 B2 = B**2 C2 = C**2 D2 = D**2 A3 = A2*A B3 = B2*B C3 = C2*C D3 = D2*D A4 = A3*A B4 = B3*B C4 = C3*C D4 = D3*D A5 = A4*A B5 = B4*B C5 = C4*C D5 = D4*D TEMP = .5 * P(1) * P(2) * P(3) * P(4) / XL**2 TERM = A + B + 2.0*(A3+B3)/3.0 + .2*(A5+B5) TERM1= C + D + 2.0*(C3+D3)/3.0 + .2*(C5+D5) TERM2= B + C + 2.0*(B3+C3)/3.0 + .2*(B5+C5) TERM3= D + A + 2.0*(D3+A3)/3.0 + .2*(D5+A5) TERM = TERM * ALOG(ABS(A+B)) TERM1= TERM1 * ALOG(ABS(C+D)) TERM2= TERM2 * ALOG(ABS(B+C)) TERM3= TERM3 * ALOG(ABS(D+A)) TERM4= .1*( (A2-C2)*(B3-D3) + (B2-D2)*(A3-C3) ) TERM5= .2*( (A -C )*(B4-D4) + (B -D )*(A4-C4) ) F = TEMP * (TERM + TERM1 - TERM2 - TERM3 + TERM4 - TERM5) Z = P(1)*P(2) / (P(3)*P(4)*2.0*G*T) * (PA + 4.0/(1.0+NU) * 1 (F - 2.0*PA/3.0)) 80 XL13 = SQRT (X3**2 + Y3**2) XL24 = SQRT ( (X4-X2)**2 + Y4**2 ) SMALLU(1) = X3/XL13 SMALLU(2) = (X4-X2)/XL24 SMALLU(3) = SMALLU(1) SMALLU(4) = SMALLU(2) SMALLV(1) = Y3/XL13 SMALLV(2) = Y4/XL24 SMALLV(3) = SMALLV(1) SMALLV(4) = SMALLV(2) TEMP = X4 * Y3 - X3 * Y4 AVEC(1) = -.5 * X2 * Y4 * XL13 / TEMP AVEC(2) = .5 * X2 * Y3 * XL24 / (TEMP - X2 * (Y3-Y4) ) AVEC(3) = - AVEC(1) AVEC(4) = - AVEC(2) C C IF IARG = 4, WE HAVE A SHEAR PANEL, AND IF IARG = 5, A TWIST PANEL. C IF (IARG .EQ. 4) GO TO 100 C C SINCE WE ARE DEALING WITH A TWIST PANEL STORE -SMALLV IN SMALLU AND C SMALLU IN SMALLV. C DO 90 I=1,4 TEMP = SMALLU(I) SMALLU(I) = -SMALLV(I) 90 SMALLV(I) = TEMP C C COMPUTE THE SINGLE PRECISION CONSTANT SPCON C 100 IF (IARG .EQ. 5) GO TO 110 SPCON = -1.0/ (2.0 * Z * T) GO TO 120 110 SPCON = -1.0/ (4.0 * Z) C C COMPUTE THE FOUR 1 X 3 MATRICES S C 120 DO 140 I=1,4 IVLBEG = 1 VLEFT(1) = SMALLU(I) * VI(1) + SMALLV(I) * VJ(1) VLEFT(2) = SMALLU(I) * VI(2) + SMALLV(I) * VJ(2) VLEFT(3) = SMALLU(I) * VI(3) + SMALLV(I) * VJ(3) IF (IECPT(4*I+5) .EQ. 0) GO TO 130 IVLBEG = 4 CALL TRANSS (IECPT(4*I+5),TI) CALL GMMATS (VLEFT(1),3,1,1, TI,3,3,0, VLEFT(4) ) 130 CONTINUE S(1,I) = SPCON * VLEFT(IVLBEG ) * AVEC(I) S(2,I) = SPCON * VLEFT(IVLBEG+1) * AVEC(I) S(3,I) = SPCON * VLEFT(IVLBEG+2) * AVEC(I) 140 CONTINUE OUT(1) = AVEC(1) OUT(2) = AVEC(2) OUT(3) = T OUT(4) = P(2) / P(1) OUT(5) = P(1) * P(2) / P(3)**2 OUT(6) = P(1) * P(2) / P(4)**2 OUT(7) = SIGS JELID = IELID DO 150 I=1,4 150 JSILNO(I) = ISILNO(I) IF( IARG .NE. 4 ) RETURN C***** C ADDITIONAL PHASE-1 OUTPUTS FOR SHEAR PANEL FORCES IN PHASE 2 C***** OUT(8) = P(1) / P(3) *T OUT(9) = ( P(1)*P(2) ) / ( P(3)*P(4) ) * T OUT(10) = P(2) / P(4) * T OUT(11)= -V12DK / 2.0 OUT(12)= X2 / 2.0 OUT(13)= SQRT( (X3-X2)**2 + Y3**2 ) / 2.0 OUT(14)= SQRT( (X4-X3)**2 + (Y4-Y3)**2 ) / 2.0 OUT(15)= SQRT( X4**2 + Y4**2 ) / 2.0 RETURN 160 CONTINUE 170 CONTINUE 180 CALL MESAGE (-30,26,IECPT(1)) 190 IECPT(2) = 2 GO TO 230 200 IECPT(2) = 4 GO TO 230 210 IECPT(2) = 1 GO TO 230 220 IECPT(2) = 3 230 CALL MESAGE (-30,27,IECPT(1)) RETURN END ================================================ FILE: mis/spanl2.f ================================================ SUBROUTINE SPANL2(IARG) C***** C THIS ROUTINE IS PHASE II OF STRESS DATA RECOVERY FOR THE SHEAR AND C TWIST PANEL ELEMENTS. C***** C C REAL FRLAST(2) INTEGER EJECT ,ISHD(7) ,ISTYP(2) ,TYP(4) ,IFOR(1) C C C SDR2 VARIABLE CORE C COMMON /ZZZZZZ/ ZZ(1) C C BLOCK FOR POINTERS, LOADING TEMPERATURE AND ELEMENT DEFORMATION. C COMMON /SDR2X4/ 1 DUMMY(33) ,ICSTM 2, NCSTM ,IVEC 3, IVECN ,TEMPLD 4, ELDEFM C C SDR2 PHASE II INPUT AND OUTPUT BLOCK. C COMMON /SDR2X7/ 1 IELID ,ISILNO(4) 2, S(3,4) ,A(2) 3, T ,RATIO(3) 4, SIGS ,RQ(4) 5, RK(4) ,XXXXXX(68) COMMON /SDR2X7/ 1 JSELID ,STRES(3) 2, YYYYYY(96) COMMON /SDR2X7/ 1 JFELID ,FORCES(16) 2, ZZZZZZ(8) C C SDR2 SCRATCH BLOCK C COMMON /SDR2X8/ 1 S1BAR ,TERM 2, TAU(4) ,IDISP 3, IU ,CTU(4) 4, CFRVEC(19) C C OUTPUT PRECISION CHECK BLOCK C COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK C COMMON /SYSTEM/ IBFSZ ,NOUT ,IDM(9) ,LINE C EQUIVALENCE(STRES(1),TAUMAX) EQUIVALENCE(STRES(2),TAUAVG) EQUIVALENCE(STRES(3),MARSAF,SAFMAR) EQUIVALENCE(FORCES(1),IFOR(1),P13) EQUIVALENCE(FORCES(2),P24) C//////// FOLLOWING 8 FORCES MAY NOT BE EQUIVALENCED CORRECTLY YET///// EQUIVALENCE(FORCES(1),F1 ) EQUIVALENCE(FORCES(2),F2 ) EQUIVALENCE(FORCES(3),F3 ) EQUIVALENCE(FORCES(4),F4 ) EQUIVALENCE(FORCES(5),F5 ) EQUIVALENCE(FORCES(6),F6 ) EQUIVALENCE(FORCES(7),F7 ) EQUIVALENCE(FORCES(8),F8 ) EQUIVALENCE(FORCES( 9),RK1) EQUIVALENCE(FORCES(10),Q1) EQUIVALENCE(FORCES(11),RK2) EQUIVALENCE(FORCES(12),Q2) EQUIVALENCE(FORCES(13),RK3) EQUIVALENCE(FORCES(14),Q3) EQUIVALENCE(FORCES(15),RK4) EQUIVALENCE(FORCES(16),Q4) EQUIVALENCE(ISHD(1),LSUB) EQUIVALENCE(ISHD(2),LLD) EQUIVALENCE(ISHD(6),FRLAST(1)) EQUIVALENCE(CFRVEC(1),IFRVEC) C DATA LSUB,LLD,FRLAST / 2*-1, -1.0E30, -1.0E30 / DATA TYP / 4HSHEA,1HR, 4HTWIS,1HT / DATA LARG / 0 / C IDISP = IVEC - 1 C C COMPUTE AVERAGE STRESS ALONG SIDE 1 IF WE ARE DEALING WITH A SHEAR C PANEL OR MEAN FIBRE SHEAR STRESS IF WE HAVE A TWIST PANEL. C CS1BR = 0.0 S1BAR = 0.0 DO 10 I = 1,4 IU = IDISP + ISILNO(I) IF (IARG .EQ. 5) IU = IU + 3 CALL SMMATS(S(1,I),3,1,1,ZZ(IU),3,1,0,TERM,CTRM) CS1BR = CS1BR + CTRM 10 S1BAR = S1BAR + TERM C C COMPUTE STRESSES AT THE CORNERS C TAU(1) = RATIO(1) * S1BAR TAU(2) = S1BAR / RATIO(1) TAU(3) = RATIO(2) * S1BAR TAU(4) = RATIO(3) * S1BAR CTU(1) = ABS (RATIO(1)) * CS1BR CTU(2) = CS1BR / ABS (RATIO(1)) CTU(3) = ABS (RATIO(2)) * CS1BR CTU(4) = ABS (RATIO(3)) * CS1BR C C COMPUTE AVERAGE STRESS C TAUAVG = 0.25 * (TAU(1) + TAU(2) + TAU(3) + TAU(4)) CFRVEC(3) = 0.25E0 * (CTU(1) + CTU(2) + CTU(3) + CTU(4) ) C C COMPUTE MAXIMUM STRESS C TAUMAX = ABS(TAU(1)) CFRVEC(2) = TAUMAX DO 50 I = 2,4 IF (ABS(TAU(I)) .GT. TAUMAX) TAUMAX = ABS(TAU(I)) IF (CTU(I).GT.CFRVEC(2)) CFRVEC(2) = CTU(I) 50 CONTINUE C C COMPUTE MARGIN OF SAFETY C IF(SIGS.LE.0.0)GO TO 100 IF(TAUMAX.EQ.0.0)GO TO 100 SAFMAR=SIGS/TAUMAX-1.0 GO TO 101 100 MARSAF=1 101 CONTINUE C C FOR A SHEAR PANEL COMPUTE LOADS, FOR A TWIST PANEL COMPUTE STRESSES. C IF( IARG .NE. 4 ) GO TO 70 C C SHEAR PANEL FORCES C Q1 = S1BAR*T / SQRT( 1.0 + ( RQ(4)/RK(1) )**2) Q2 = S1BAR * RQ(1) / SQRT( 1.0 + ( RQ(4)/RK(2) )**2) Q3 = S1BAR * RQ(2) / SQRT( 1.0 + ( RQ(4)/RK(3) )**2) Q4 = S1BAR * RQ(3) / SQRT( 1.0 + ( RQ(4)/RK(4) )**2) CFRVEC(13) = CS1BR * ABS(T) / SQRT (1.0E0 + (RQ(4)/RK(1) ) **2 ) DO 60 I = 1,3 F = SQRT (1.0E0 + ( RQ(4)/RK(I+1) ) **2 ) FORCES(2*I+10) = S1BAR * RQ(I) / F 60 CFRVEC(2*I+13) = CS1BR * ABS(RQ(I)) / F C F = ABS (RQ(4)) RK1 = -( Q1 + Q4 ) * RQ(4) RK2 = -( Q1 + Q2 ) * RQ(4) RK3 = -( Q2 + Q3 ) * RQ(4) RK4 = -( Q3 + Q4 ) * RQ(4) CFRVEC(12) = (CFRVEC(13) + CFRVEC(19)) * F CFRVEC(14) = (CFRVEC(13) + CFRVEC(15)) * F CFRVEC(16) = (CFRVEC(15) + CFRVEC(17)) * F CFRVEC(18) = (CFRVEC(17) + CFRVEC(19)) * F F1 = Q4 * RK(4) F2 = Q1 * RK(1) F5 = Q2 * RK(2) F6 = Q3 * RK(3) CFRVEC(4) = CFRVEC(19) * ABS (RK(4) ) CFRVEC(5) = CFRVEC(13) * ABS (RK(1) ) CFRVEC(8) = CFRVEC(15) * ABS (RK(2) ) CFRVEC(9) = CFRVEC(17) * ABS (RK(3) ) F3 = -F2 F4 = -F5 F7 = -F6 F8 = -F1 CFRVEC( 6) = CFRVEC(5) CFRVEC( 7) = CFRVEC(8) CFRVEC(10) = CFRVEC(9) CFRVEC(11) = CFRVEC(4) GO TO 80 C C TWIST STRESSES C 70 P13 = A(1) * S1BAR * T P24 = A(2) * S1BAR * T TERM = T / 6.0 CFRVEC(4) = A(1) * CS1BR * T CFRVEC(5) = A(2) * CS1BR * T P13 = P13 * TERM P24 = P24 * TERM CFRVEC(4) = ABS (CFRVEC(4) * TERM) CFRVEC(5) = ABS (CFRVEC(5) *TERM) C C STORE ELEMENT ID IN OUTPUT SLOTS. C 80 JSELID = IELID JFELID = IELID IF (NCHK.LE.0) GO TO 260 C C . CHECK PRECISION... C K = 0 C C . STRESSES... CALL SDRCHK (STRES(1),CFRVEC(2),2,K) C C . FORCES... I = 16 IF (IARG.NE.4) I = 2 CALL SDRCHK (FORCES(1),CFRVEC(4),I,K) IF (K.EQ.0) GO TO 260 C C . LIMITS EXCEEDED... IFRVEC = IELID I = 1 IF (IARG.NE.4) I = 3 ISTYP(1) = TYP(I) ISTYP(2) = TYP(I+1) J = 0 C IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND. LARG.EQ.IARG 1.AND. LLD .EQ.ILD .AND. FRLAST(2).EQ.FRTMEI(2) ) GO TO 230 LSUB = ISUB LARG = IARG LLD = ILD FRLAST(1) = FRTMEI(1) FRLAST(2) = FRTMEI(2) J = 2 CALL PAGE1 200 CALL SD2RHD (ISHD,J) LINE = LINE + 1 IF (IARG.EQ.4) WRITE(NOUT,210) IF (IARG.NE.4) WRITE(NOUT,220) 210 FORMAT (7X,4HTYPE,5X,42HEID SMAX SAVE F1-4 F1-2 F2-1 F2-3 F 1,60H3-2 F3-4 F4-3 F4-1 K-1 SH12 K-2 SH23 K-3 SH34 2, 9HK-4 SH41) 220 FORMAT (7X,4HTYPE,5X,27HEID SMAX SAVE M1-3 M2-4) GO TO 240 230 IF (EJECT(2).NE.0) GO TO 200 240 I = 19 IF (IARG.NE.4) I = 5 WRITE(NOUT,250) ISTYP,(CFRVEC(J),J=1,I) 250 FORMAT (1H0,6X,A4,A1,I7,18F6.1) C 260 CONTINUE RETURN END ================================================ FILE: mis/splt10.f ================================================ SUBROUTINE SPLT10( ICOMP, COMPS, NC) INTEGER COMPS(9) IF( ICOMP .EQ. 0) ICOMP= 1 IC = ICOMP NC = 0 DO 10 I=1,9 IX = IC/10 JX = IC - 10*IX IC = IX IF ( JX .EQ. 0) GO TO 5 NC =NC+1 COMPS(NC)= JX 5 IF( IC .EQ. 0) GO TO 15 10 CONTINUE 15 IF (NC .EQ. 1) RETURN CALL SORT (0,0,1,1, COMPS,NC ) C C REMOVE DUPLICATES IX= 1 DO 20 I=2,NC IF ( COMPS(I) .EQ. COMPS(I-1)) GO TO 20 IX = IX+1 COMPS(IX) = COMPS(I) 20 CONTINUE NC = IX RETURN END ================================================ FILE: mis/sptchk.f ================================================ SUBROUTINE SPTCHK C C THIS ROUTINE IS CALLED ONLY BY BANDIT TO CHECK THE PRESENCE OF ANY C UNDEFINED SPOINT. RESET NGRID AND RETURN FOR ONE MORE COMPUTATION C IF THAT IS THE CASE C INTEGER GEOM1, GEOM2, RD, RDREW, REW, 1 Z, SPOINT(2),NAME(2), KG(200) COMMON /SYSTEM/ IBUF, NOUT COMMON /BANDA / IBUF1, DUM6(6), NPT(2) COMMON /BANDB / DUM3(3), NGRID, DUM4(4), IREPT COMMON /BANDD / NDD(9) COMMON /BANDS / SKIP(4), MAXGRD COMMON /GEOMX / GEOM1, GEOM2 COMMON /NAMES / RD, RDREW, DUM2(2), REW COMMON /GPTA1 / NE, LAST, INCR, KE(1) COMMON /ZZZZZZ/ Z(1) DATA SPOINT, NAME / 5551,49, 4HBMIS, 4HS / C C LIST ALL SPOINTS IN Z(1) THRU Z(NS) C IF (IREPT .EQ. 3) GO TO 160 NS=1 CALL PRELOC (*160,Z(IBUF1),GEOM2) CALL LOCATE (*40,Z(IBUF1),SPOINT,K) 30 CALL READ (*180,*40,GEOM2,Z(NS),1,0,K) NS=NS+1 GO TO 30 40 NS=NS-1 CALL REWIND (GEOM2) C C CHECK THE PRESENCE OF ELAST, DAMP AND MASS CARDS (ELEMENT TYPES C 201 THRU 1301). THEY MAY SPECIFY SCALAR POINTS WITHOUT USING C SPOINT CARDS. C NSS=NS DO 100 IELEM=26,350,INCR CALL LOCATE (*100,Z(IBUF1),KE(IELEM+3),J) NWDS =KE(IELEM+5) NGPT1=KE(IELEM+12) NGPTS=KE(IELEM+9)+NGPT1-1 50 CALL READ (*180,*100,GEOM2,KG(1),NWDS,0,J) DO 90 I=NGPT1,NGPTS IF (NS .EQ. 0) GO TO 70 CALL BISLOC (*70,KG(I),Z(1),1,NS,K) GO TO 90 70 NSS=NSS+1 IF (NSS .GE. IBUF1) GO TO 110 Z(NSS)=KG(I) 90 CONTINUE GO TO 50 100 CONTINUE 110 CALL CLOSE (GEOM2,REW) K=NSS-NS-1 IF (K) 160,140,120 C C SOME SCALAR POINTS ARE USED, BUT NOT SPECIFIED BY SPOINT CARDS. C SORT THEM, AND THROW OUT DUPLICATES C 120 NS1=NS+1 CALL SORT (0,0,1,1,Z(NS1),NSS-NS) K =NSS NSS=NS1 J =NS+2 DO 130 I=J,K IF (Z(I) .EQ. Z(I-1)) GO TO 130 NSS=NSS+1 Z(NSS)=Z(I) 130 CONTINUE C C RE-COMPUTE THE TOTAL NO. OF GRID POINTS, NGRID, AND RETURN FOR C ONE MORE BANDIT COMPUTATION C 140 NPT(2)=NSS-NS NGRID =NPT(1)+NPT(2) DO 150 I=1,9 150 NDD(I)=0 IREPT =2 RETURN C 160 WRITE (NOUT,170) MAXGRD 170 FORMAT (120H1*** USER FATAL ERROR 2007, THIS STRUCTURE MODEL USES 1 MORE GRID POINTS THAN THE TOTAL NO. OF GRID CARDS IN BULK DATA (= 2,I6,1H),/) NGRID=0 GO TO 190 C 180 CALL MESAGE (-3,GEOM2,NAME) 190 RETURN END ================================================ FILE: mis/sqdm11.f ================================================ SUBROUTINE SQDM11 C C PHASE I OF STRESS DATA RECOVERY FOR THE QUADRILATERAL MEMBRANE C ELEMENT C C CALLS FROM THIS ROUTINE ARE MADE TO C C MAT - MATERIAL DATA ROUTINE C MESAGE - ERROR MESSAGE WRITER C GMMATS - SINGLE MATRIX MULTIPLY AND TRANSPOSE C TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER C C REAL LA,LB,LC,LD,LDD2,LBD1,LCD1,LCD2,MAGI,MAGJ,MAGK DIMENSION ECPT(26),EE(144) COMMON /SYSTEM/ DUMMY(39),NBPW COMMON /CONDAS/ CONSTS(5) COMMON /SDR2X5/ NECPT(1),NGRID(4),ANGLE,MATID1,T,FMU, 2 DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2, 4 DUMMY3,X3,Y3,Z3,DUMMY4,X4,Y4,Z4,DUMB(75), 6 PH1OUT(100),FORVEC(25) COMMON /SDR2X6/ E(9),TI(9),THETA,TEMPAR(150),A(24),G(9),B(96) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHAS(3),TSUB0,GSUBE, 1 SIGTEN,SIGCOM,SIGSHE,G2X211,G2X212,G2X222 EQUIVALENCE (CONSTS(4),DEGRA),(ECPT(1),NECPT(1)) C C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ******* ********************************* ******** ****** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) GRID POINT A NGRID(1) INTEGER C ECPT( 3) GRID POINT B NGRID(2) INTEGER C ECPT( 4) GRID POINT C NGRID(3) INTEGER C ECPT( 5) GRID POINT D NGRID(4) INTEGER C ECPT( 6) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 7) MATERIAL ID MATID INTEGER C ECPT( 8) = THICKNESS T REAL C ECPT( 9) = NON-STRUCTURAL MASS FMU REAL C ECPT(10) COORD. SYSTEM ID 1 NECPT(10) INTEGER C ECPT(11) = X1 X1 REAL C ECPT(12) = Y1 Y1 REAL C ECPT(13) = Z1 Z1 REAL C ECPT(14) COORD. SYSTEM ID 2 NECPT(14) INTEGER C ECPT(15) = X2 X2 REAL C ECPT(16) = Y2 Y2 REAL C ECPT(17) = Z2 Z2 REAL C ECPT(18) COORD. SYSTEM ID 3 NECPT(18) INTEGER C ECPT(19) = X3 X3 REAL C ECPT(20) = Y3 Y3 REAL C ECPT(21) = Z3 Z3 REAL C ECPT(22) COORD. SYSTEM ID 4 NECPT(22) INTEGER C ECPT(23) = X4 X4 REAL C ECPT(24) = Y4 Y4 REAL C ECPT(25) Z4 Z4 REAL C ECPT(26) = ELEMENT TEMPERATURE ECPT(26) REAL C C C SET UP THE E MATRIX WHICH IS (12X12) FOR THE QUAD-MEMBRANE PROJECT C ONTO THE MEAN PLANE C DO 2 I = 1,144 EE(I) = 0. 2 CONTINUE C C E(1), E(4), E(7) WILL BE THE I-VECTOR C E(2), E(5), E(8) WILL BE THE J-VECTOR C E(3), E(6), E(9) WILL BE THE K-VECTOR C C COMPUTE DIFFERENCES OF COORDINATES OF ACTUAL GRID POINTS C X21 = X2 - X1 Y21 = Y2 - Y1 Z21 = Z2 - Z1 X31 = X3 - X1 Y31 = Y3 - Y1 Z31 = Z3 - Z1 X41 = X4 - X1 Y41 = Y4 - Y1 Z41 = Z4 - Z1 X42 = X4 - X2 Y42 = Y4 - Y2 Z42 = Z4 - Z2 C C COMPUTE ELEMENTS OF THE E MATRIX (3X3) C PK1 = Y31*Z42 - Z31*Y42 PK2 = Z31*X42 - X31*Z42 PK3 = X31*Y42 - Y31*X42 MAGK= SQRT(PK1**2 + PK2**2 + PK3**2) IF (MAGK .GT. 1.0E-06) GO TO 40 CALL MESAGE (-30,32,ECPT(1)) 40 PK1 = PK1/MAGK PK2 = PK2/MAGK PK3 = PK3/MAGK C C HH IS THE MEASURE OF NON-PLANARITY OF THE ELEMENT C HH = X21*PK1 + Y21*PK2 + Z21*PK3 PI1 = X21 - HH*PK1 PI2 = Y21 - HH*PK2 PI3 = Z21 - HH*PK3 MAGI= SQRT(PI1**2 + PI2**2 + PI3**2) IF (MAGI .GT. 1.0E-06) GO TO 41 CALL MESAGE (-30,31,ECPT(1)) 41 PI1 = PI1/MAGI PI2 = PI2/MAGI PI3 = PI3/MAGI HH =-HH/2. C C THIS SIGN CHANGE MADE BECAUSE SIGN OF H AS DEFINED ON C PAGE 4.87-105 OF PROGRAMMERS MANUAL IS WRONG C PJ1 = PK2*PI3 - PK3*PI2 PJ2 = PK3*PI1 - PK1*PI3 PJ3 = PK1*PI2 - PK2*PI1 MAGJ= SQRT(PJ1**2 + PJ2**2 + PJ3**2) PJ1 = PJ1/MAGJ PJ2 = PJ2/MAGJ PJ3 = PJ3/MAGJ E(1)= PI1 E(2)= PJ1 E(3)= PK1 E(4)= PI2 E(5)= PJ2 E(6)= PK2 E(7)= PI3 E(8)= PJ3 E(9)= PK3 C C STORE FOUR (3X3) E MATRICES INTO (12X12) E MATRIX C LLCT = -39 DO 5 IICT = 1,12,3 LLCT = LLCT + 39 NNCT = 0 MMCT =-12 DO 4 JJCT = 1,3 MMCT = MMCT + 12 DO 3 KKCT = 1,3 NNCT = NNCT + 1 KTOT = KKCT + LLCT + MMCT EE(KTOT) = E(NNCT) 3 CONTINUE 4 CONTINUE 5 CONTINUE C C COMPUTE DIFFERENCES OF COORDINATES OF GRID POINTS IN THE MEAN PLAN C X12 =-(X21*E(1) + Y21*E(4) + Z21*E(7)) X13 =-(X31*E(1) + Y31*E(4) + Z31*E(7)) X14 =-(X41*E(1) + Y41*E(4) + Z41*E(7)) Y3A = (X31*E(2) + Y31*E(5) + Z31*E(8)) Y4A = (X42*E(2) + Y42*E(5) + Z42*E(8)) X24 = X14 - X12 X23 = X13 - X12 X34 = X14 - X13 Y34 = Y3A - Y4A C C C COMPUTE LENGTHS OF SIDES OF ELEMENT IN THE MEAN PLANE C LA = ABS(X12) LB = SQRT(X23**2 + Y3A**2) LC = SQRT(X34**2 + Y34**2) LD = SQRT(X14**2 + Y4A**2) C C COMPUTE THE CHARACTERISTIC ANGLES OF ELEMENT IN THE MEAN PLANE C CTH1 =-X14/LD STH1 = Y4A/LD CTH2 = X23/LB STH2 = Y3A/LB CTH31 = X34/LC STH31 =-Y34/LC CTH41 = CTH1 STH41 = STH1 CTH32 = STH2 STH32 = CTH2 CTH42 = STH31 STH42 = CTH31 C DLT1 = CTH31*CTH32 - STH31*STH32 DLT2 = CTH42*CTH41 + STH41*STH42 LDD2 = LD*DLT2 LBD1 = LB*DLT1 LCD1 = LC*DLT1 LCD2 = LC*DLT2 C C * * C COMPUTE THE INTERSECTION OF THE DIAGONALS(ETA AND XI ) OF C THE ELEMENTS IN THE MEAN PLANE C TOL = 1.0E-3*(-X12) IF (NBPW .GE. 60) TOL = 1.0E-5*(-X12) TOL2 = 1.0E-3*X12*X12 IF (NBPW .GE. 60) TOL2 = 1.0E-5*X12*X12 IF (ABS(X34+X12).GT.TOL .OR. ABS(Y34).GT.TOL) GO TO 6 ETAS =.5 XIS =.5 GO TO 16 6 IF (ABS(X24).LT.TOL .OR. ABS(X13).LT.TOL) GO TO 7 XSTAR = (Y4A*X13*X12)/((Y3A*X24)-(Y4A*X13)) YSTAR = (-Y4A/X24)*(XSTAR+X12) GO TO 9 7 IF (ABS(X13) .GT. TOL) GO TO 8 XSTAR = -X13 YSTAR = (-Y4A/X24)*X12 GO TO 9 8 XSTAR = -X12 YSTAR = (Y3A/X13)*X12 9 IF (ABS(X34+X12) .LT. TOL) GO TO 13 C1 = Y34*XSTAR - YSTAR*(X34+X12) A2 =-Y4A*X23 + Y3A*X14 B2 =-Y4A*X12 + C1 IF (ABS(A2) .LE. TOL2) GO TO 10 TEMP2 = SQRT(B2**2-(4.*A2*X12*YSTAR))/(2.*A2) TEMP1 =-B2/(2.*A2) ETAS = TEMP1 - TEMP2 IF (ETAS.LE.0. .OR. ETAS.GE.1.) ETAS = TEMP1 + TEMP2 GO TO 11 10 ETAS = (-X12*YSTAR)/B2 11 IF (ABS(Y34) .LT. TOL) GO TO 12 XIS = (-C1 + ((Y4A*X23) - (Y3A*X14))*ETAS)/(Y34*X12) GO TO 16 12 XIS = (XSTAR + (X14*ETAS))/((ETAS*(X34+X12)) - X12) GO TO 16 13 A3 = -X14*Y34 B3 = X12*Y4A - Y34*XSTAR IF (ABS(A3) .LE. TOL2) GO TO 14 TEMP2 = SQRT(B3**2 + (4.*A3*X12*YSTAR))/(2.*A3) TEMP1 = -B3/(2.*A3) ETAS = TEMP1 - TEMP2 IF (ETAS.LE.0. .OR. ETAS.GE.1.) ETAS = TEMP1 + TEMP2 GO TO 15 14 ETAS = (X12*YSTAR)/B3 15 XIS = (YSTAR - (Y4A*ETAS))/(Y34*ETAS) C C SET UP THE (12X12) TRANSFORMATION MATRIX B BETWEEN THE MEAN PLANE C AND ACTUAL GRID POINTS C 16 DO 17 I = 2,92 B(I) = 0. 17 CONTINUE B(1) = 1. B(10) = 1. B(17) =-HH/LA B(18) =-HH/(LD*STH1) + ((HH*CTH1)/(LA*STH1)) B(19) = HH/LA B(20) = (HH*CTH2)/(LA*STH2) B(23) = (HH*CTH42)/LDD2 B(24) = (HH*STH42)/LDD2 B(27) = 1. B(36) = 1. B(41) =-B(17) B(42) = (-HH*CTH1)/(LA*STH1) B(43) = B(17) B(44) = ((-HH*CTH2)/(LA*STH2)) + (HH/(LB*STH2)) B(45) = (-HH*STH31)/LBD1 B(46) = (-HH*CTH31)/LBD1 B(53) = 1. B(62) = 1. B(68) =-HH/(LB*STH2) B(69) = HH*((STH31/LBD1) + (CTH32/LCD1)) B(70) = HH*((CTH31/LBD1) + (STH32/LCD1)) B(71) = (-HH*STH41)/LCD2 B(72) = (HH*CTH41)/LCD2 B(79) = 1. B(88) = 1. B(90) = HH/(LD*STH1) B(93) = (-HH*CTH32)/LCD1 B(94) = (-HH*STH32)/LCD1 B(95) = HH*((-CTH42/LDD2) + (STH41/LCD2)) B(96) = HH*((-STH42/LDD2) - (CTH41/LCD2)) DO 18 I = 1,24 A(I) = 0. 18 CONTINUE C T C COMPUTE TRANSFORMED MATRIX OF STIFFNESSES G = P * G * P C THETA = ANGLE*DEGRA SINTH = SIN(THETA) COSTH = COS(THETA) IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 MATID = MATID1 INFLAG = 2 ELTEMP = ECPT(26) CALL MAT (ECPT(1)) C C STORE INTO G MATRIX C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C COMPUTE MATRIX A TO RELATE DISPLACEMENTS TO STRAINS C AJ = (-Y4A*X12) + (-Y34*X12*XIS) + ETAS*((-Y4A*X23)+(Y3A*X14)) A(1) = (-Y4A + (Y3A*ETAS) - (Y34*XIS))/AJ A(3) = ( Y4A - (Y4A*ETAS) + (Y34*XIS))/AJ A(5) = ( Y4A*ETAS)/AJ A(7) = (-Y3A*ETAS)/AJ A(10) = (-X24 + (X23*ETAS) + (X34*XIS))/AJ A(12) = ( X14 - (X14*ETAS) - (X34*XIS))/AJ A(14) = ((X14*ETAS) - (X12*XIS))/AJ A(16) = (-X12 - (X23*ETAS) + (X12*XIS))/AJ A(17) = (-X24 + (X23*ETAS) + (X34*XIS))/AJ A(18) = (-Y4A + (Y3A*ETAS) - (Y34*XIS))/AJ A(19) = ( X14 - (X14*ETAS) - (X34*XIS))/AJ A(20) = ( Y4A - (Y4A*ETAS) + (Y34*XIS))/AJ A(21) = ((X14*ETAS) - (X12*XIS))/AJ A(22) = (Y4A*ETAS)/AJ A(23) = (-X12 - (X23*ETAS) + (X12*XIS))/AJ A(24) = (-Y3A*ETAS)/AJ C C T T C COMPUTE S = G * A * B * E C CALL GMMATS (B(1),12,8,1,EE(1),12,12,1,TEMPAR(1)) CALL GMMATS (A(1),3,8,0,TEMPAR(1),8,12,0,TEMPAR(100)) CALL GMMATS (G(1),3,3,0,TEMPAR(100),3,12,0,TEMPAR(1)) DO 27 L = 1,4 DO 19 N = 2,5 IF (NECPT(N) .NE. NGRID(L)) GO TO 19 KA = 4*N + 2 GO TO 20 19 CONTINUE CALL MESAGE (-30,34,ECPT(1)) 20 IF (NECPT(KA) .EQ. 0) GO TO 21 CALL TRANSS (NECPT(KA),TI) GO TO 23 21 DO 22 II = 1,9 TI(II) = 0. 22 CONTINUE TI(1) = 1. TI(5) = 1. TI(9) = 1. 23 LCNT = 3*(L-1) IROWCT= -12 NN = 0 DO 25 JJ = 1,3 IROWCT= IROWCT + 12 DO 24 KK = 1,3 NN = NN + 1 KTOT = KK + IROWCT + LCNT NN49 = NN + 49 TEMPAR(NN49) = TEMPAR(KTOT) 24 CONTINUE 25 CONTINUE CALL GMMATS (TEMPAR(50),3,3,0,TI,3,3,0,TEMPAR(60)) C C TH C MATRICES S RELATE DISPLACEMENTS TO STRESSES AT THE I GRIDPOINT C I C DO 26 IL = 1,9 KTOT = IL + 9*L IL59 = IL + 59 PH1OUT(KTOT) = TEMPAR(IL59) 26 CONTINUE 27 CONTINUE CALL GMMATS (G(1),3,3,0,ALPHAS(1),3,1,0,PH1OUT(7)) PH1OUT(1) = ECPT(1) PH1OUT(2) = ECPT(2) PH1OUT(3) = ECPT(3) PH1OUT(4) = ECPT(4) PH1OUT(5) = ECPT(5) PH1OUT(6) = TSUB0 RETURN END ================================================ FILE: mis/sqdm12.f ================================================ SUBROUTINE SQDM12 C C PHASE TWO STRESS DATA RECOVERY QUADRILATERAL MEMBRANE C C ELEMENT ID C 4 SILS C T SUB 0 C S SUB T 3X1 C 4 S ARRAYS EACH 3X3 C C C STRES(1) - PH1OUT(1) C STRES(2) - SIGMA X C STRES(3) - SIGMA Y C STRES(4) - SIGMA XY C STRES(5) - PHI 1 ANGLE OF PRINCIPAL DIRECTION OF STRESS C STRES(6) - SIGMA 1 C STRES(7) - SIGMA 2 C STRES(8) - TAU MAXIMUM SHEAR STRESS C DIMENSION NSIL(4),S(36),ST(3),FRLAST(2),PH1OUT(45) INTEGER EJECT,ISHED(7),ISTYP(2) C COMMON /SYSTEM/ IBFSZ ,NOUT ,IDM(9) ,LINE COMMON /ZZZZZZ/ Z(1) COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM COMMON /SDR2X7/ EST(100),STRES(100),FORVEC(25) COMMON /SDR2X8/ STRESS(3),VEC(3),TEM,TEMP,NPOINT,DELTA,NSIZE, 1 CSTRS(4),CVC(3) COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK C EQUIVALENCE (PH1OUT(1),EST(1)) , (NSIL(1),PH1OUT(2)) , 1 (TSUB0,PH1OUT(6)) , (ST(1),PH1OUT(7)) , (S(1),PH1OUT(10)) 2, (FTEMP,LDTEMP) , (ISHED(1),LSUB) , (ISHED(2),LLD) 3, (ISHED(6),FRLAST(1)) DATA ISTYP / 4HQDME, 2HM1 / DATA LSUB,LLD,FRLAST / 2*-1, -1.0E30, -1.0E30 / C C ZERO OUT THE STRESS VECTOR C STRESS(1)=0. STRESS(2)=0. STRESS(3)=0. CSTRS(2) = 0.0E0 CSTRS(3) = 0.0E0 CSTRS(4) = 0.0E0 C C I=4 - C STRESS VECTOR =(SUMMATION (S )(U )) - (S )(T - T) C I=1 I I T 0 DO 3 I=1,4 NPOINT=IVEC+NSIL(I)-1 CALL SMMATS (S(9*I-8),3,3,0, Z(NPOINT),3,1,0, VEC(1),CVC(1)) DO 2 J=1,3 IF (NCHK.LE.0)GO TO 1 CSTRS(J+1) = CSTRS(J+1) + CVC(J) 1 STRESS(J) = STRESS(J) + VEC(J) 2 CONTINUE 3 CONTINUE STRES(1) = PH1OUT(1) STRES(2) = STRESS(1) STRES(3) = STRESS(2) STRES(4) = STRESS(3) CSTRS(1) = STRES(1) C C ADD IN TEMPERATURE EFFECTS C IF(LDTEMP.EQ.(-1)) GO TO 200 TEM = FTEMP-TSUB0 DO 4 I=2,4 STRES(I)=STRES(I)-ST(I-1)*TEM 4 CONTINUE C C STRESS VECTOR COMPLETE AND CONTAINS SIGMA X , SIGMA Y , SIGMA X C C PRINCIPAL STRESSES AND ANGLE OF ACTION PHI C 200 TEMP=STRES(2)-STRES(3) C C COMPUTE TAU C STRES(8)=SQRT((TEMP/2.0E0)**2+STRES(4)**2) DELTA=(STRES(2)+STRES(3))/2.0E0 C C COMPUTE SIGMA 1 AND SIGMA 2 C STRES(6)=DELTA+STRES(8) STRES(7)=DELTA-STRES(8) DELTA=2.0E0*STRES(4) IF (ABS(DELTA).LT.1.0E-15.AND.ABS(TEMP).LT.1.0E-15) GO TO 5 IF(ABS(TEMP) .LT. 1.0E-15) GO TO 6 C C COMPUTE PHI 1 DEPENDING ON WHETHER OR NOT SIGMA XY AND/OR C (SIGMA 1 - SIGMA 2) ARE ZERO C STRES(5)=ATAN2(DELTA,TEMP)*28.6478898E00 GO TO 7 5 STRES(5)=0.0E0 GO TO 7 6 STRES(5)=45. 7 IF (NCHK.LE.0) GO TO 150 C C . STRESS PRECISION CHECK... C K = 0 CALL SDRCHK (STRES(2),CSTRS(2),3,K) IF (K.EQ.0) GO TO 150 C C . LIMITS EXCEEDED... J = 0 IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND. 1 LLD .EQ.ILD .AND. FRLAST(2).EQ.FRTMEI(2)) GO TO 120 C LSUB = ISUB FRLAST(1) = FRTMEI(1) FRLAST(2) = FRTMEI(2) LLD = ILD J = 1 CALL PAGE1 100 CALL SD2RHD (ISHED,J) WRITE(NOUT,110) LINE = LINE + 1 110 FORMAT (7X,4HTYPE,5X,3HEID,5X,2HSX,5X,2HSY,4X,3HSXY) GO TO 130 120 IF (EJECT (2) .NE. 0) GO TO 100 C 130 WRITE(NOUT,140) ISTYP,CSTRS 140 FORMAT (1H0,5X,A4,A2,I7,4F7.1) C 150 CONTINUE RETURN END ================================================ FILE: mis/sqdm21.f ================================================ SUBROUTINE SQDM21 C C PHASE-I STRESS-DATA-RECOVERY ROUTINE FOR THE -QDMEM2- ELEMENT. C C THIS ROUTINE WILL PREPARE FOR USE BY -SQDM22-, THE PHASE-II C ROUTINE, A TABLE CONTAINING THE FOLLOWING. C C TABLE WORDS DISCRIPTION C ------------------------------------------------------ C 1 THRU 1 ELEMENT-ID C 2 THRU 5 4 SILS C 6 THRU 6 ELEMENT-THICKNESS C 7 THRU 7 REFERENCE TEMP -TSUB0- C 8 THRU 151 16 (3X3) KIJ-G MATRICES C 152 THRU 187 4 (3X3) STRESS MATRICES C 188 THRU 199 4 (3X1) TEMP VECTORS C 200 THRU 202 ST (3X1) STRESS-TEMPERATURE VECTOR C 203 THRU 206 4 SIDE LENGTHS C C ELEMENT EST ENTRY CONTENTS C + + + + + + + + + + + + + + + + + + + + + + + + + + C + 1 = ID + C + 2 = SIL-PT-A (ELEMENT CONNECTS + C + 3 = SIL-PT-B GRID POINTS A,B, + C + 4 = SIL-PT-C C,D IN THAT ORDER) + C + 5 = SIL-PT-D + C + 6 = MATERIAL-ANGLE + C + 7 = MATERIAL-ID + C + 8 = THICKNESS OF ELEMENT + C + 9 = NON-STRUCTURAL-MASS + C + 10 = COORD-SYS-ID PT-A OR 0 + C + 11 = XA + C + 12 = YA + C + 13 = ZA + C + 14 = COORD-SYS-ID PT-B OR 0 + C + 15 = XB + C + 16 = YB + C + 17 = ZB + C + 18 = COORD-SYS-ID PT-C OR 0 + C + 19 = XC + C + 20 = YC + C + 21 = ZC + C + 22 = COORD-SYS-ID PT-D OR 0 + C + 23 = XD + C + 24 = YD + C + 25 = ZD + C + 26 = AVERAGE OF CONNECTED GRID TEMPERATURES + C + + + + + + + + + + + + + + + + + + + + + + + + + + C LOGICAL PLANAR INTEGER NEST(7), MAP(4,3) REAL K1SUM, K5SUM, ISINTH, ICOSTH, KMAT(63), SMAT(27), 1 PMAT(9), JTEMP9, K5MOD, KTEMP9(9), ZMAT(9), 2 ITEMP9(9), Q(3,3,4), IMAT12, RMAT(3,5), ETI(36), 3 DVEC(3,4), KVEC(3) CHARACTER UFM*23, UWM*25 COMMON /XMSSG / UFM, UWM C C FOLLOWING COMMON BLOCK MUST BE DIMENSIONED AT LEAST 350 IN SDR2B C COMMON /SDR2X5/ EST(100), ID, ISILS(4), ELTHIK, REFTMP, 1 K1SUM(9,16), SG(36),PT(3,4), ST(3),RG(4) C C WORKING STORAGE BLOCK (KEEP .LE. 300 WORDS) C COMMON /SDR2X6/ K5SUM(9,5), SISUM(9,5), PISUM(3,5), R(3,4,5), 1 K5MOD(9,5), G(36), T(9), E(9), IMAT12(12), 2 JTEMP9(9), GSUBE(9) COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, COSTH COMMON /MATOUT/ G11, G12, G13, G22, G23, G33, RHO, ALPS(3), TSUB0 COMMON /SYSTEM/ KSYSTM(65) COMMON /CONDAS/ PI, TWOPI, RADEG, DEGRA, S4PISQ EQUIVALENCE (KSYSTM(2),IOUTPT), (NEST(1),EST(1)) DATA MAP / 1, 2, 3, 4, 1 2, 3, 4, 1, 2 5, 5, 5, 5 / C C COMPUTE BASIC SIN AND COSINE OF ELEMENT MATERIAL ANGLE. C ANGL = EST(6)*DEGRA ISINTH = SIN(ANGL) ICOSTH = COS(ANGL) C C COMPUTE GSUBE MATRIX C INFLAG = 2 MATID = NEST(7) ELTEMP = EST(26) SINTH = 0.0 COSTH = 1.0 CALL MAT (NEST(1)) GSUBE(1) = G11 GSUBE(2) = G12 GSUBE(3) = G13 GSUBE(4) = G12 GSUBE(5) = G22 GSUBE(6) = G23 GSUBE(7) = G13 GSUBE(8) = G23 GSUBE(9) = G33 C C BASIC WHOLE-ELEMENT CALCULATIONS C CALL Q2BCS (EST,PLANAR,RMAT,E,IERROR) IF (IERROR) 10,10,400 C C ZERO SUMMATION ARRAYS C 10 DO 40 I = 1,9 DO 20 J = 1,16 K1SUM(I,J) = 0.0 20 CONTINUE DO 30 J = 1,5 K5SUM(I,J) = 0.0 SISUM(I,J) = 0.0 30 CONTINUE 40 CONTINUE C DO 60 I = 1,5 PISUM(1,I) = 0.0 PISUM(2,I) = 0.0 PISUM(3,I) = 0.0 60 CONTINUE C C SUB-TRIANGLES ARE COMPUTED AND RESULTS SUMMED. C DO 100 I = 1,4 C C CALL TRIANGLE CALCULATION ROUTINE TO GET (3X3) SUB-PARTITIONS C IA = MAP(I,1) IB = MAP(I,2) IC = MAP(I,3) C CALL Q2TRMS (RMAT(1,IA),RMAT(1,IB),RMAT(1,IC),ALPS ,ISINTH,ICOSTH, 1 GSUBE,EST(8),IERROR,3,KMAT,PMAT,SMAT,ZMAT) IF (IERROR) 70,70,400 C C SUM IN KCA,KCB,KCC 3-(3X3)-S STORED FIRST IN KMAT C C ALSO SUM IN KAA,KAB,KBA,KBB = LAST 4-(3X3)-S STORED IN KMAT. C THESE GO INTO 4 OF THE 16 POSSIBLE (3X3) SUM MATRICES = , C C K11,K12,K13,K14,K21,K22,K23,K24,K31,K32,K33,K34,K41,K42,K43,K44 C C J1,J2,J3,J4 WILL EACH POINT TO 1 OF THE 16 (3X3)-S. C 70 J1 = 5*IA - 4 J2 = 4*IA - 4 + IB J3 = 4*IB - 4 + IA J4 = 5*IB - 4 C DO 80 K = 1,9 K5SUM(K,IA) = K5SUM(K,IA) + KMAT(K ) K5SUM(K,IB) = K5SUM(K,IB) + KMAT(K+ 9) K5SUM(K,IC) = K5SUM(K,IC) + KMAT(K+18) K1SUM(K,J1) = K1SUM(K,J1) + KMAT(K+27) K1SUM(K,J2) = K1SUM(K,J2) + KMAT(K+36) K1SUM(K,J3) = K1SUM(K,J3) + KMAT(K+45) K1SUM(K,J4) = K1SUM(K,J4) + KMAT(K+54) SISUM(K,IA) = SISUM(K,IA) + SMAT(K ) SISUM(K,IB) = SISUM(K,IB) + SMAT(K+ 9) SISUM(K,IC) = SISUM(K,IC) + SMAT(K+18) 80 CONTINUE C DO 90 K = 1,3 PISUM(K,IA) = PISUM(K,IA) + PMAT(K ) PISUM(K,IB) = PISUM(K,IB) + PMAT(K+3) PISUM(K,IC) = PISUM(K,IC) + PMAT(K+6) 90 CONTINUE C 100 CONTINUE C C FORMATION OF THE FOUR (3X3) G MATRICES. C -1 C (G ) = -(K5SUM ) (K ) NOTE. IF -PLANAR- THEN MODIFIED C I 55 5I K5SUM MATRICES ARE USED. C IF (PLANAR) GO TO 120 DO 110 I = 1,5 DO 110 J = 1,9 K5MOD(J,I) = K5SUM(J,I) 110 CONTINUE GO TO 140 C 120 DO 130 I = 1,5 K5MOD(1,I) = K5SUM(1,I) K5MOD(2,I) = K5SUM(2,I) K5MOD(3,I) = K5SUM(3,I) K5MOD(4,I) = K5SUM(4,I) K5MOD(5,I) = K5SUM(5,I) K5MOD(6,I) = K5SUM(6,I) K5MOD(7,I) = 0.0 K5MOD(8,I) = 0.0 K5MOD(9,I) =-0.25 130 CONTINUE K5MOD(9,5) = 1.0 C C INVERT K5MOD AND NEGATE RESULT. C 55 C 140 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (3,K5MOD(1,5),3,DUMMY,0,DETERM,ISING,ITEMP9) IF (ISING .EQ. 2) GO TO 400 C DO 150 I = 1,9 K5MOD(I,5) = -K5MOD(I,5) 150 CONTINUE C C FORM G MATRICES C DO 160 I = 1,4 CALL GMMATS (K5MOD(1,5),3,3,0, K5MOD(1,I),3,3,0, G(9*I-8)) 160 CONTINUE C C FORM STIFFNESS MATRIX BY ROW-PARTIONS. C DO 210 I = 1,4 C T C IF -PLANAR- FORM (G ) (K ) FOR USE IN COLUMN-PARTITIONS LOOP. C I 55 C IF (.NOT.PLANAR) GO TO 170 CALL GMMATS (G(9*I-8),3,3,1, K5SUM(1,5),3,3,0, ITEMP9) C C COLUMN-PARTITIONS-LOOP C 170 DO 200 J = 1,4 C T C FORM (K ) = (K1SUM ) + (K ) (G ) C IJ IJ 5I J C CALL GMMATS (K5SUM(1,I),3,3,1, G(9*J-8),3,3,0, JTEMP9) LPART = 4*I - 4 + J DO 180 K = 1,9 K1SUM(K,LPART) = K1SUM(K,LPART) + JTEMP9(K) 180 CONTINUE C C BALANCE OF TERMS IF -PLANAR- C C T T C ADD IN (G ) (K ) + (G ) (K )(G ) C I 5J I 55 J C IF (.NOT.PLANAR) GO TO 200 CALL GMMATS (ITEMP9,3,3,0, G(9*J-8),3,3,0, JTEMP9) CALL GMMATS (G(9*I-8),3,3,1, K5SUM(1,J),3,3,0, KTEMP9) DO 190 K = 1,9 K1SUM(K,LPART) = K1SUM(K,LPART) + KTEMP9(K) + JTEMP9(K) 190 CONTINUE 200 CONTINUE 210 CONTINUE C C CALCULATION OF 4 (Q ) MATRICES, EACH 3X3. C I C DO 260 I = 1,4 IA = MAP(I,1) IB = MAP(I,2) DO 230 J = 1,3 DVEC(J,I) = RMAT(J,IB) - RMAT(J,IA) 230 CONTINUE FMAG = SQRT(SADOTB(DVEC(1,I),DVEC(1,I))) RG(I) = FMAG IF (FMAG) 400,400,240 240 DO 250 J = 1,3 DVEC(J,I) = DVEC(J,I)/FMAG 250 CONTINUE 260 CONTINUE C DO 280 I = 1,4 J = I - 1 IF (J .EQ. 0) J = 4 I1 = MAP(J,1) I2 = MAP(J,2) CALL SAXB (DVEC(1,I2),DVEC(1,I1),KVEC) C C NORMALIZE, NEGATE, AND STORE AS DELTA-VEC IN (Q ) C I FMAG = SQRT(SADOTB(KVEC,KVEC)) IF (FMAG) 400,400,270 270 Q(1,3,I) = -KVEC(1)/FMAG Q(2,3,I) = -KVEC(2)/FMAG Q(3,3,I) = -KVEC(3)/FMAG C C STORE D VECTORS AS ALPHA- VECTORS IN (Q ) C I Q(1,1,I) = -DVEC(1,I) Q(2,1,I) = -DVEC(2,I) Q(3,1,I) = -DVEC(3,I) C Q(1,2,I) = DVEC(1,J) Q(2,2,I) = DVEC(2,J) Q(3,2,I) = DVEC(3,J) C C INVERT 3X3 C C AGAIN NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED . C SUBSEQUENTLY. C ISING = -1 CALL INVERS (3,Q(1,1,I),3,DUMMY,0,DETERM,ISING,JTEMP9) IF (ISING .EQ. 2) GO TO 400 280 CONTINUE C C FORM FINAL OUTPUTS C DO 370 I = 1,4 II = 9*I - 8 C C TRANSFORMATION ETI = (E)(T ) C I C KK = 4*I IF (NEST(KK+6)) 290,300,290 290 CALL TRANSS (NEST(KK+6),T) CALL GMMATS (E,3,3,0, T,3,3,0, ETI(II)) GO TO 320 C 300 KK = II DO 310 J = 1,9 ETI(KK) = E(J) KK = KK + 1 310 CONTINUE C C G E E C (S ) = 0.25( (S ) + (S )(G ) )(E)(T ) C I I 5 I I C 320 CALL GMMATS (SISUM(1,5),3,3,0, G(II),3,3,0, JTEMP9) DO 330 J = 1,9 JTEMP9(J) = 0.25*(JTEMP9(J)+SISUM(J,I)) 330 CONTINUE CALL GMMATS (JTEMP9,3,3,0, ETI(II),3,3,0, SG(II)) C C T - T - C (P ) = (P ) + (G ) (P ) C I I I 5 C CALL GMMATS (G(II),3,3,1, PISUM(1,5),3,1,0, PT(1,I)) DO 360 J = 1,3 PISUM(J,I) = PT(J,I) + PISUM(J,I) 360 CONTINUE CALL GMMATS (Q(1,1,I),3,3,1, PISUM(1,I),3,1,0, PT(1,I)) 370 CONTINUE C C TRANSFORM STIFFNESS MATRIX TO GLOBAL C C G E C (K ) = (Q )(K )(E)(T ) C IJ I IJ J C JPART = 0 DO 390 I = 1,4 DO 380 J = 1,4 JPART = JPART + 1 CALL GMMATS (Q(1,1,I),3,3,1, K1SUM(1,JPART),3,3,0, JTEMP9) CALL GMMATS (JTEMP9,3,3,0, ETI(9*J-8),3,3,0, K1SUM(1,JPART)) 380 CONTINUE 390 CONTINUE C C (S ) = (GSUBE)(ALPHAS) C T C CALL GMMATS (GSUBE,3,3,0, ALPS,3,1,0, ST) C C MISC. DATA FOR PHASE-II C ID = NEST(1) ISILS(1) = NEST(2) ISILS(2) = NEST(3) ISILS(3) = NEST(4) ISILS(4) = NEST(5) ELTHIK = EST(8) REFTMP = TSUB0 RETURN C C ERROR CONDITION C 400 WRITE (IOUTPT,410) UWM,NEST(1) 410 FORMAT (A25,' 3101, SINGULARITY OR BAD GEOMETRY FOR QDMEM2 ELEM.', 1 ' ID =',I9, /5X,'STRESS OR FORCES WILL BE INCORRECT.') RETURN END ================================================ FILE: mis/sqdm22.f ================================================ SUBROUTINE SQDM22 C C PHASE-II STRESS-DATA-RECOVERY ROUTINE FOR THE -QDMEM2- ELEMENT. C C THIS ROUTINE USES DATA PREPARED BY -SQDM21-, THE PHASE-I ROUTINE, C TOGETHER WITH THE DISPLACEMENT VECTOR AND TEMPERATURE DATA C TO ARRIVE AT STRESS AND FORCE OUTPUTS. C INTEGER IFORCE(1),ISTR(1),ISILS(4),EJECT,ISHED(7),ISTYP(2) REAL STRESS(8),FORCE(17),KIJ(9,16),SG(36),PT(3,4), 1 ST(3),RG(4),FRLAST(2) COMMON /ZZZZZZ/ Z(1) COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM,DUM8(8),TLOADS COMMON /SDR2X7/ ID(217) COMMON /SDR2X8/ VEC(4),SIGXYZ(3),F(4,3),SHEARS(4),CVC(4),FF(4,3), 1 CFRVEC(20),CSHARS(4) COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK COMMON /SYSTEM/ IBFSZ,NOUT,IDM(9),LINE EQUIVALENCE (TEMP,LDTEMP) EQUIVALENCE (ID(2),ISILS(1)),(ID(7),TSUB0),(ID(8),KIJ(1,1)), 1 (ID(101),STRESS(1),ISTR(1)), 2 (ID(152),SG(1)),(ID(188),PT(1,1)), 3 (ID(200),ST(1)),(ID(201),FORCE(1),IFORCE(1)), 4 (ID(203),RG(1)) EQUIVALENCE (F2,FORCE( 2)),(F1,FORCE( 3)),(F3,FORCE( 4)), 1 (F4,FORCE( 5)),(F6,FORCE( 6)),(F5,FORCE( 7)), 2 (F7,FORCE( 8)),(F8,FORCE( 9)),(FK1,FORCE(10)), 3 (Q1,FORCE(11)),(FK2,FORCE(12)),(Q2,FORCE(13)), 4 (FK3,FORCE(14)),(Q3,FORCE(15)),(FK4,FORCE(16)), 5 (Q4,FORCE(17)) EQUIVALENCE (ISHED(1),LSUB),(ISHED(2),LLD), 1 (ISHED(6),FRLAST(1)) DATA ISTYP / 4HQDME, 2HM2 / DATA LSUB , LLD,FRLAST / 2*-1, -1.0E30,-1.0E30 / C C SIG , SIG , TAU = SUMMATION((S )(U )) - (S )(TEMP-T ) C X Y XY I I T 0 C SIGXYZ(1) = 0.0 SIGXYZ(2) = 0.0 SIGXYZ(3) = 0.0 CFRVEC(2) = 0.0 CFRVEC(3) = 0.0 CFRVEC(4) = 0.0 C DO 20 I = 1,4 J = IVEC + ISILS(I) CALL SMMATS (SG(9*I-8),3,3,0, Z(J-1),3,1,0, VEC,CVC) DO 10 J = 1,3 SIGXYZ(J ) = SIGXYZ(J ) + VEC(J) CFRVEC(J+1) = CFRVEC(J+1) + CVC(J) 10 CONTINUE 20 CONTINUE C IF (LDTEMP .EQ. -1) GO TO 40 TBAR = TEMP - TSUB0 DO 30 J = 1,3 SIGXYZ(J) = SIGXYZ(J) - ST(J)*TBAR 30 CONTINUE C C FORCES C I T C (F ) = SUMMATION((K )(U )) - (P )(TEMP-T ) C IJ I I 0 C 40 IPART = 0 DO 60 I = 1,4 F(I,1) = 0.0 F(I,2) = 0.0 F(I,3) = 0.0 FF(I,1) = 0.0 FF(I,2) = 0.0 FF(I,3) = 0.0 DO 50 J = 1,4 K = IVEC + ISILS(J) IPART = IPART + 1 CALL SMMATS (KIJ(1,IPART),3,3,0, Z(K-1),3,1,0, VEC,CVC) F(I,1) = F(I,1) + VEC(1) F(I,2) = F(I,2) + VEC(2) F(I,3) = F(I,3) + VEC(3) FF(I,1) = FF(I,1) + CVC(1) FF(I,2) = FF(I,2) + CVC(2) FF(I,3) = FF(I,3) + CVC(3) 50 CONTINUE IF (LDTEMP .EQ. -1) GO TO 60 TBAR = TEMP - TSUB0 F(I,1) = F(I,1) - PT(1,I)*TBAR F(I,2) = F(I,2) - PT(2,I)*TBAR F(I,3) = F(I,3) - PT(3,I)*TBAR 60 CONTINUE C C SHEARS = SUMMATION (R )(U ) C I I DO 80 I = 1,4 IP1 = I + 1 IF (IP1 .EQ. 5) IP1 = 1 SHEARS(I) = (F(IP1,2)-F(I,1))/RG(I) CSHARS(I) = (FF(IP1,2)-FF(I,1))/ABS(RG(I)) 80 CONTINUE C C ALL COMPUTATIONS COMPLETE. C Q1 = -SHEARS(1) Q2 = SHEARS(2) Q3 = -SHEARS(3) Q4 = SHEARS(4) CFRVEC(14) = -CSHARS(1) CFRVEC(16) = +CSHARS(2) CFRVEC(18) = -CSHARS(3) CFRVEC(20) = +CSHARS(4) C ISTR(1) = ID(1) CFRVEC(1) = STRESS(1) STRESS(2) = SIGXYZ(1) STRESS(3) = SIGXYZ(2) STRESS(4) = SIGXYZ(3) C IFORCE(1) = ID(1) F1 = F(1,1) F2 = F(1,2) F3 = F(2,2) F4 = F(2,1) F5 = F(3,1) F6 = F(3,2) F7 = F(4,2) F8 = F(4,1) CFRVEC( 6) = FF(1,1) CFRVEC( 5) = FF(1,2) CFRVEC( 7) = FF(2,2) CFRVEC( 8) = FF(2,1) CFRVEC(10) = FF(3,1) CFRVEC( 9) = FF(3,2) CFRVEC(11) = FF(4,2) CFRVEC(12) = FF(4,1) C FK1 = F(1,3) FK2 = F(2,3) FK3 = F(3,3) FK4 = F(4,3) CFRVEC(13) = FF(1,3) CFRVEC(15) = FF(2,3) CFRVEC(17) = FF(3,3) CFRVEC(19) = FF(4,3) C TEMP = STRESS(2) - STRESS(3) C C COMPUTE TAU C STRESS(8) = SQRT((TEMP/2.0)**2+STRESS(4)**2) DELTA = (STRESS(2)+STRESS(3))/2.0 C C COMPUTE SIGMA 1 AND SIGMA 2 C STRESS(6) = DELTA + STRESS(8) STRESS(7) = DELTA - STRESS(8) DELTA = 2.0*STRESS(4) C C COMPUTE PHI 1 DEPENDING ON WHETHER OR NOT SIGMA XY AND/OR C (SIGMA 1 - SIGMA 2) ARE ZERO C IF (ABS(TEMP) .LT. 1.0E-15) GO TO 5 STRESS(5) = ATAN2(DELTA,TEMP)*28.64788980 GO TO 7 5 IF (ABS(DELTA) .LT. 1.0E-15) GO TO 6 STRESS(5) = 0.0 GO TO 7 6 STRESS(5) = 45.0 7 IF (NCHK .LE. 0) GO TO 150 C C STRESS/FORCE PRECISION CHECK C K = 0 C C STRESSES C CALL SDRCHK (STRESS(2),CFRVEC(2),3,K) C C FORCES C CALL SDRCHK (FORCE(2),CFRVEC(5),16,K) IF (K .EQ. 0) GO TO 150 C C LIMITS EXCEEDED C J = 0 IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND. 1 LLD .EQ.ILD .AND. FRLAST(2).EQ.FRTMEI(2)) GO TO 120 C LSUB = ISUB LLD = ILD FRLAST(1) = FRTMEI(1) FRLAST(2) = FRTMEI(2) J = 1 CALL PAGE1 100 CALL SD2RHD (ISHED,J) LINE = LINE + 1 WRITE (NOUT,110) 110 FORMAT (3X,4HTYPE,5X,3HEID,4X,2HSX,4X,2HSY,3X,3HSXY,11H F1-4 F1- 1,60H2 F2-1 F2-3 F3-2 F3-4 F4-3 F4-1 K-1 SH12 K-2 SH2 2,25H3 K-3 SH34 K-4 SH41) GO TO 130 120 IF (EJECT(2) .NE. 0) GO TO 100 C 130 WRITE (NOUT,140) ISTYP,CFRVEC 140 FORMAT (2H0 ,A4,A2,I7,19F6.1) C 150 RETURN END ================================================ FILE: mis/sqdme1.f ================================================ SUBROUTINE SQDME1 C C ECPT ECPT C RECEIVED BY REQUIRED BY C SQDME1 STRME1 C ----------------------- -------------------------- C ECPT( 1) = EL. ID ECPT( 1) = EL. ID C ECPT( 2) = GRD. PT. A ECPT( 2) = GRD. PT. A C ECPT( 3) = GRD. PT. B ECPT( 3) = GRD. PT. B C ECPT( 4) = GRD. PT. C ECPT( 4) = GRD. PT. C C ECPT( 5) = GRD. PT. D ECPT( 5) = THETA C ECPT( 6) = THETA ECPT( 6) = MATERIAL ID C ECPT( 7) = MATERIAL ID ECPT( 7) = T C ECPT( 8) = T ECPT( 8) = NON-STRUCT. MASS C ECPT( 9) = NON-STRUCT. MASS ECPT( 9) = COORD. SYS. ID 1 C ECPT(10) = COORD. SYS. ID 1 ECPT(10) = X1 C ECPT(11) = X1 ECPT(11) = Y1 C ECPT(12) = Y1 ECPT(12) = Z1 C ECPT(13) = Z1 ECPT(13) = COORD. SYS. ID 2 C ECPT(14) = COORD. SYS. ID 2 ECPT(14) = X2 C ECPT(15) = X2 ECPT(15) = Y2 C ECPT(16) = Y2 ECPT(16) = Z2 C ECPT(17) = Z2 ECPT(17) = COORD. SYS. ID 3 C ECPT(18) = COORD. SYS. ID 3 ECPT(18) = X3 C ECPT(19) = X3 ECPT(19) = Y3 C ECPT(20) = Y3 ECPT(20) = Z3 C ECPT(21) = Z3 ECPT(21) = ELEMENT TEMPERATURE C ECPT(22) = COORD. SYS. ID 4 C ECPT(23) = X4 C ECPT(24) = Y4 C ECPT(25) = Z4 C ECPT(26) = ELEMENT TEMPERATURE C C NOTE. THE FOLLOWING ARE INTEGERS - GRID POINTS, MAT ID, EL.ID, C COORD. SYS. IDS. C ALL OTHERS ARE REAL IN THE ECPT. C INTEGER NECPT(100) REAL IVEC,JVEC,KVEC DIMENSION M(12),R(6),NGRID(4),COORD(16),SSUBT(3),S(27) COMMON /CONDAS/ CONSTS(5) COMMON /SDR2X6/ DUMMY(100),SUM(36),STEMP(9),D1(3),D2(3),A1(3), 1 A2(3),A3(3),A4(3),IVEC(3),JVEC(3),KVEC(3),VECL,H, 2 V(8),ECPTSA(36),ST(3),NCOORD,NPOINT,NSUB1,NSUB2, 3 NSUB3,T(9),COSANG,SINANG,U1,U2,DUMY(61) COMMON /SDR2X5/ ECPT(100),PH1OUT(100),FORVEC(25) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH EQUIVALENCE (CONSTS(4),DEGRA),(NECPT(1),ECPT(1)), 1 (R(1),IVEC(1)),(NGRID(1),ECPTSA(2)), 2 (COORD(1),ECPTSA(10)),(S(1),PH1OUT(10)), 3 (SSUBT(1),PH1OUT(7)) DATA M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 / C C ANGL = ECPT(6)*DEGRA COSANG = COS(ANGL) SINANG = SIN(ANGL) C C VECTORS D1 AND D2 FMMS-46 PAGE 6 C A1 A2 A3 A4 C DO 10 I = 1,3 D1(I) = ECPT(I+18) - ECPT(I+10) D2(I) = ECPT(I+22) - ECPT(I+14) A1(I) = ECPT(I+14) - ECPT(I+10) A2(I) = ECPT(I+18) - ECPT(I+14) A3(I) = ECPT(I+22) - ECPT(I+18) 10 A4(I) = ECPT(I+10) - ECPT(I+22) C C K-VECTOR = NORMALIZED D1 CROSS D2 C KVEC(1) = D1(2)*D2(3) - D1(3)*D2(2) KVEC(2) = D1(3)*D2(1) - D1(1)*D2(3) KVEC(3) = D1(1)*D2(2) - D1(2)*D2(1) VECL = SQRT(KVEC(1)**2 + KVEC(2)**2 + KVEC(3)**2) IF (VECL .LT. 1.0E-06) CALL MESAGE (-30,26,ECPT(1)) KVEC(1) = KVEC(1)/VECL KVEC(2) = KVEC(2)/VECL KVEC(3) = KVEC(3)/VECL C C I-VECTOR = NORMALIZED A SUB 12 - H * KVECTOR C GET H FIRST = (A SUB 12 DOT KVECTOR)/2 C H = (A1(1)*KVEC(1) + A1(2)*KVEC(2) + A1(3)*KVEC(3))/2.0 C IVEC(1) = A1(1) - H*KVEC(1) IVEC(2) = A1(2) - H*KVEC(2) IVEC(3) = A1(3) - H*KVEC(3) VECL = SQRT(IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2) IF (VECL .LT. 1.0E-06) CALL MESAGE (-30,26,ECPT(1)) IVEC(1) = IVEC(1)/VECL IVEC(2) = IVEC(2)/VECL IVEC(3) = IVEC(3)/VECL C C J-VECTOR = K CROSS I C JVEC(1) = KVEC(2)*IVEC(3) - KVEC(3)*IVEC(2) JVEC(2) = KVEC(3)*IVEC(1) - KVEC(1)*IVEC(3) JVEC(3) = KVEC(1)*IVEC(2) - KVEC(2)*IVEC(1) C VECL = SQRT(JVEC(1)**2 + JVEC(2)**2 + JVEC(3)**2) JVEC(1) = JVEC(1)/VECL JVEC(2) = JVEC(2)/VECL JVEC(3) = JVEC(3)/VECL C C V(1) = 1.0 V(2) = 0.0 C C R ARRAY IS EQUIVALENCED TO IVECTOR AND JVECTOR C CALL GMMATS (R,2,3,0, A2,3,1,0, V(3)) CALL GMMATS (R,2,3,0, A3,3,1,0, V(5)) CALL GMMATS (R,2,3,0, A4,3,1,0, V(7)) C C NORMALIZE THE 4 2X1 V ARRAYS C DO 20 I = 1,4 VECL = SQRT(V(2*I-1)**2 + V(2*I)**2) IF (VECL .LT. 1.0E-10) CALL MESAGE (-30,26,ECPT(1)) V(2*I-1) = V(2*I-1)/VECL 20 V(2*I ) = V(2*I )/VECL C C MAPPING MATRIX M IS IN DATA STATEMENT. C C NOW MAKE 4 CALLS TO STRME1 WHICH WILL RETURN C S , S , S , S , T SUB 0 C A B C T C C SAVE GRID SILS AND COORDINATE SYSTEMS. C DO 30 I = 1,36 30 ECPTSA(I) = ECPT(I) C ECPT(6) = ECPT(7) ECPT(7) = ECPT(8) ECPT(8) = ECPT(9) C C ZERO OUT SUM MATRICES C DO 40 I = 1,36 40 SUM(I) = 0.0 ST(1) = 0.0 ST(2) = 0.0 ST(3) = 0.0 C ECPT(21) = ECPT(26) C DO 90 I = 1,4 C C POINTER TO THE SILS IN THE MAPPING MATRIX C NCOORD = 8 NPOINT = 3*I - 3 DO 60 J = 2,4 NPOINT = NPOINT + 1 NSUB1 = M(NPOINT) DO 50 K = 1,4 NSUB3 = 4*NSUB1 - 4 + K NCOORD = NCOORD + 1 50 ECPT(NCOORD) = COORD(NSUB3) 60 NECPT(J) = NGRID(NSUB1) C C SET UP T MATRIX FOR THIS TRIANGLE. T IS 3X3 C U1 = V(2*I-1) U2 = V(2*I ) C T(1) = U1**2 T(2) = U2**2 T(7) = U1*U2 T(3) =-2.0*T(7) T(4) = T(2) T(5) = T(1) T(6) =-T(3) T(8) =-T(7) T(9) = T(1) - T(2) C C COMPUTE NET SINTH AND COSTH FOR ANISOTROPIC POSSIBILITY C SINTH = SINANG*U1 - COSANG*U2 COSTH = COSANG*U1 + SINANG*U2 C CALL STRME1 (1) C C C NOW TRANSFORM AND ADD THE S MATRICES INTO THE RESPECTIVE SUM C MATRICES. C DO 80 J = 1,3 C C POINTER TO TRIANGLE I ROW IN THE MAPPING MATRIX C NPOINT = 3*I - 3 C C TRANSFORM S C CALL GMMATS (T,3,3,0, S(9*J-8),3,3,0, STEMP) C C ADD STEMP INTO RESPECTIVE KSUM POSITIONS C C ZERO POINTER INTO KSUM MATRICES C NSUB1 = NPOINT + J NSUB1 = M(NSUB1)*9 - 9 DO 70 K = 1,9 NSUB1 = NSUB1 + 1 70 SUM(NSUB1) = SUM(NSUB1) + STEMP(K) 80 CONTINUE C C TRANSFORM AND ADD IN S SUB T C CALL GMMATS (T,3,3,0, S SUB T, 3,1,0, STEMP) ST(1) = ST(1) + STEMP(1) ST(2) = ST(2) + STEMP(2) ST(3) = ST(3) + STEMP(3) 90 CONTINUE C C ALL MATRICES COMPLETE C C FILL OUTPUT BLOCK C DO 100 I = 1,5 100 PH1OUT(I) = ECPTSA(I) PH1OUT(7) = ST(1)*0.25 PH1OUT(8) = ST(2)*0.25 PH1OUT(9) = ST(3)*0.25 DO 110 I = 1,36 110 PH1OUT(I+9) = 0.25*SUM(I) C C PHASE 1 COMPLETE OUTPUT BLOCK CONTAINS 45 WORDS C RETURN END ================================================ FILE: mis/sqdpl1.f ================================================ SUBROUTINE SQDPL1 C C PHASE I OF STRESS DATA RECOVERY FOR TRI OR QUAD PLATE. C C OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING. C C 1) ELEMENT ID C 2) 4 SILS C 3) I C 4) Z1 AND Z2 C 5) 4 5X6 S-SUB-I ARRAYS C 6) 3X1 S SUB T MATRIX C THUS, 131 WORDS FOR QUAD-PLATE C C ECPT LISTS AS OF AUGUST 4, 1967 C C DEFINITION DEFINITION C ECPT BSC.BEND.TRI.-----TYPE QUAD.PLT.---------TYPE C -------- -------------------------- ------------------------- C ECPT( 1) = ELEMENT ID INTEGER ** ELEMENT INTEGER C ECPT( 2) = GRID PT. A INTEGER ** GRID PT.A INTEGER C ECPT( 3) = GRID PT. B INTEGER ** GRID PT.B INTEGER C ECPT( 4) = GRID PT. C INTEGER ** GRID PT.C INTEGER C ECPT( 5) = THETA REAL ** GRID PT.D INTEGER C ECPT( 6) = MAT ID 1 INTEGER ** THETA REAL C ECPT( 7) = I MOM. OF INERT. REAL ** MAT ID 1 INTEGER C ECPT( 8) = MAT ID 2 INTEGER ** I MOM. OF INERT. REAL C ECPT( 9) = T2 REAL ** MAT ID 2 INTEGER C ECPT(10) = NON-STRUCT. MASS REAL ** T2 REAL C ECPT(11) = Z1 REAL ** NON-STRUCT. MASS REAL C ECPT(12) = Z2 REAL ** Z1 REAL C ECPT(13) = COORD. SYS. ID 1 INTEGER ** Z2 REAL C ECPT(14) = X1 REAL ** COORD. SYS. ID 1 INTEGER C ECPT(15) = Y1 REAL ** X1 REAL C ECPT(16) = Z1 REAL ** Y1 REAL C ECPT(17) = COORD. SYS. ID 2 INTEGER ** Z1 REAL C ECPT(18) = X2 REAL ** COORD. SYS. ID 2 INTEGER C ECPT(19) = Y2 REAL ** X2 REAL C ECPT(20) = Z2 REAL ** Y2 REAL C ECPT(21) = COORD. SYS. ID 3 INTEGER ** Z2 REAL C ECPT(22) = X3 REAL ** COORD. SYS. ID 3 INTEGER C ECPT(23) = Y3 REAL ** X3 REAL C ECPT(24) = Z3 REAL ** Y3 REAL C ECPT(25) = ELEMENT TEMP REAL ** Z3 REAL C ECPT(26) = ** COORD. SYS. ID 4 INTEGER C ECPT(27) = ** X4 REAL C ECPT(28) = ** Y4 REAL C ECPT(29) = ** Z4 REAL C ECPT(30) = ** ELEMENT TEMP REAL C INTEGER SUBSCA,SUBSCB,SUBSCC REAL IVECT,JVECT,KVECT,D(9) DIMENSION NECPT(100),M(12),VQ1(3),VQ2(3),VQ3(3),VQ4(3), 1 REQUIV(10) COMMON /CONDAS/ CONSTS(5) COMMON /SDR2X5/ ECPT(100),PH1OUT(128),ST(3) COMMON /SDR2X6/ A(45),TEMP15(15),PROD15(15),T(9),TITE(18),V(25), 1 D1(3),D2(3),SPDUM1(18),U1,U2,SINANG,COSANG, 2 SSUM(60),R(2,5),XSUBB,XSUBC,YSUBC,E(18),TEMP, 3 VV1(2),VV2(2),H,A1(3),NPOINT,SPDUM2(5),IVECT(3), 4 JVECT(3),KVECT(3),SPDUM3(15),THETA,NSUBC, 5 SPDUM4(1),SUBSCA,SUBSCB,SUBSCC,SPDUM5(2),XC,YC, 6 SPDUM6(5) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA(3) EQUIVALENCE (CONSTS(4),DEGRA),(ECPT(1),NECPT(1)), 1 (VQ1(1),ECPT(15)),(VQ2(1),ECPT(19)), 2 (VQ3(1),ECPT(23)),(VQ4(1),ECPT(27)), 3 (REQUIV(1),R(1,1)) DATA M / 2,4,1, 3,1,2, 4,2,3, 1,3,4 / C IDSAVE = NECPT(7) EYE = ECPT(8) THETA = ECPT(6)*DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) C C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X5) FOR QUADRILATERAL PLATE. C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX C DO 10 I = 1,10 10 REQUIV(I) = 0.0 C C SHIFT ECPT UP TO MATCH STRBS1 FOR CERTAIN VARIABLES. C DO 30 I = 6,12 30 ECPT(I) = ECPT(I+1) C DO 40 I = 1,3 D1(I) = VQ3(I) - VQ1(I) D2(I) = VQ4(I) - VQ2(I) 40 A1(I) = VQ2(I) - VQ1(I) C C NON-NORMALIZED K-VECTOR = D1 CROSS D2 C KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3) KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1) KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2) C C NORMALIZE K-VECTOR C TEMP = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2) DO 50 I = 1,3 50 KVECT(I) = KVECT(I)/TEMP C C COMPUTE H = (A1 DOT KVECT)/2 C TEMP = (A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3))/2.0 C C I-VECTOR =(A1) - H*(KVECT) NON-NORMALIZED C DO 60 I = 1,3 60 IVECT(I) = A1(I) - TEMP*KVECT(I) C C NORMALIZE I-VECTOR C TEMP = SQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2) DO 70 I = 1,3 70 IVECT(I) = IVECT(I)/TEMP C C J-VECTOR = K X I VECTORS C JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3) JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1) JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2) C C NORMALIZE J VECTOR TO MAKE SURE C TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2) DO 80 I = 1,3 80 JVECT(I) = JVECT(I)/TEMP C C X3 GOES INTO R(1,3) = D1 DOT IVECT C R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3) C C X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3) C R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3) R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3) C C X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4) C R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2) R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3) C C STRESS CALCULATION POINT WHICH IS THE DIAGONALS INTERSECTION. C FTEMP = R(1,3)*R(2,4) + R(2,3)*(R(1,2)-R(1,4)) IF (FTEMP .EQ. 0.0) CALL MESAGE (-30,26,ECPT(1)) R(1,5) = R(1,2)*R(1,3)*R(2,4)/FTEMP R(2,5) = R(1,2)*R(2,3)*R(2,4)/FTEMP C C CHECK OF 4 POINTS FOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES. C IF (R(2,3).LE.0.0 .OR. R(2,4).LE.0.0) GO TO 90 TEMP = R(1,2) - (R(1,2)-R(1,3))*R(2,4)/R(2,3) IF (R(1,4) .GE. TEMP) GO TO 90 TEMP = R(2,3)*R(1,4)/R(2,4) IF (R(1,3) .GT. TEMP) GO TO 100 90 CALL MESAGE (-30,35,ECPT(1)) C C SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT C C COMPUTE SUB-TRIANGLE COORDINATES C CALL BASIC BENDING ROUTINE FOR ALL SUB-TRIANGLES. C 100 ELTEMP = ECPT(30) DO 110 I = 1,60 110 SSUM(I) = 0.0 C DO 160 J = 1,4 KM = 3*J - 3 SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 120 I = 1,2 VV1(I) = R(I,SUBSCB) - R(I,SUBSCA) 120 VV2(I) = R(I,SUBSCC) - R(I,SUBSCA) XSUBB = SQRT(VV1(1)**2 + VV1(2)**2) U1 = VV1(1)/XSUBB U2 = VV1(2)/XSUBB XSUBC = U1*VV2(1) + VV2(2)*U2 YSUBC = U1*VV2(2) - VV2(1)*U2 C XC = SQRT((R(1,SUBSCA)-R(1,5))**2 + (R(2,SUBSCA)-R(2,5))**2) YC = 0.0 C SINTH = SINANG*U1 - COSANG*U2 COSTH = COSANG*U1 + SINANG*U2 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR C TRIANGLE -J- C CALL STRBS1 (1) C C RETURNING FROM STRBS1 THE FOLLOWING QUANTITIES ARE AT HAND. C C S , S , S , EACH 5X3. 45 WORDS STORED IN A( 1)...A(45) C A B C C C C SET UP OF T-MATRIX C T(1) = 1.0 T(2) = 0.0 T(3) = 0.0 T(4) = 0.0 T(5) = U1 T(6) = U2 T(7) = 0.0 T(8) =-U2 T(9) = U1 C C SET UP V-MATRIX PER FMMS 51-A C V( 1) = U1*U1*0.25 V( 2) = U2*U2*0.25 V(11) = U1*U2*0.25 V( 3) =-V(11)*2.0 V( 4) = 0.0 V( 5) = 0.0 V( 6) = V(2) V( 7) = V(1) V( 8) =-V(3) V( 9) = 0.0 V(10) = 0.0 V(12) =-V(11) V(13) = V(1) - V(2) V(14) = 0.0 V(15) = 0.0 V(16) = 0.0 V(17) = 0.0 V(18) = 0.0 V(19) = U1*0.25 V(20) =-U2*0.25 V(21) = 0.0 V(22) = 0.0 V(23) = 0.0 V(24) =-V(20) V(25) = V(19) C C ADD IN S , S , S TO THE 4 5X3 SSUM MATRICES C A B C C DO 150 I = 1,3 CALL GMMATS (V,5,5,0, A(15*I-14),5,3,0, TEMP15) CALL GMMATS (TEMP15,5,3,0, T,3,3,0, PROD15) C C POINTER TO SSUM MATRIX C NPOINT = KM + I NPOINT = 15*M(NPOINT) - 15 DO 140 K = 1,15 NSUBC = NPOINT + K 140 SSUM(NSUBC) = SSUM(NSUBC) + PROD15(K) 150 CONTINUE C 160 CONTINUE C C FILL E-MATRIX C DO 170 I = 1,18 170 E( I) = 0.0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C DO 210 I = 1,4 C C DO WE NEED TRANSFORMATION T C I NSUBC = 4*I + 10 IF (NECPT(NSUBC) .EQ. 0) GO TO 180 CALL TRANSS (NECPT(NSUBC),T) CALL GMMATS (T,3,3,1, E( 1),3,3,0, TITE( 1)) CALL GMMATS (T,3,3,1, E(10),3,3,0, TITE(10)) GO TO 200 C 180 DO 190 K = 1,18 190 TITE(K) = E(K) C 200 CALL GMMATS (SSUM(15*I-14),5,3,0, TITE,6,3,1, PH1OUT(30*I-21)) C 210 CONTINUE C C I,Z1,Z2,ELEM ID, 4 SILS FOR PHASE 2 C PH1OUT(1) = ECPT( 1) PH1OUT(2) = ECPT( 2) PH1OUT(3) = ECPT( 3) PH1OUT(4) = ECPT( 4) PH1OUT(5) = ECPT( 5) PH1OUT(6) = ECPT( 7) PH1OUT(7) = ECPT(11) PH1OUT(8) = ECPT(12) C C GET S SUB T MATRIX C MATID = IDSAVE ECPT(8) = EYE STRESS = 0 SINTH = SINANG COSTH = COSANG INFLAG = 2 CALL MAT (ECPT(1)) D(1) = G11*ECPT(8) D(2) = G12*ECPT(8) D(3) = G13*ECPT(8) D(4) = D(2) D(5) = G22*ECPT(8) D(6) = G23*ECPT(8) D(7) = D(3) D(8) = D(6) D(9) = G33*ECPT(8) CALL GMMATS (D(1),3,3,0, ALPHA(1),3,1,0, ST(1)) C C ALL PHASE ONE COMPLETE C RETURN END ================================================ FILE: mis/sqrtm.f ================================================ SUBROUTINE SQRTM(A,IA,B,IB) C C SCALED ARITHMETIC ROUTINES--SQUARE ROOT C DIMENSION IPSW(1) DOUBLE PRECISION A,B DOUBLE PRECISION DETSW(1) A = B IA = IB IF(MOD(IA,2) .EQ. 0) GO TO 10 IA = IA-1 A = A*10.0 10 IA=IA/2 A = DSQRT(DMAX1(A,0.D0)) 20 RETURN C C DCALE OF DETERMINANT BY FACTORS OF 10 C ENTRY DETM6(DETSW,IPSW) IF(DETSW(1) .EQ. 0.0D0) GO TO 20 30 IF(DABS(DETSW(1)) .GT. 10.0D0) GO TO 50 40 IF(DABS(DETSW(1)) .LT. 0.1D0) GO TO 60 GO TO 20 50 DETSW(1) = DETSW(1)*0.1D0 IPSW(1) = IPSW(1)+1 GO TO 30 60 DETSW(1) = DETSW(1)*10.0D0 IPSW(1) = IPSW(1)-1 GO TO 40 END ================================================ FILE: mis/squd41.f ================================================ SUBROUTINE SQUD41 C C PHASE 1 STRESS DATA RECOVERY FOR CQUAD4 ELEMENT C C EST LISTING C C WORD TYPE DESCRIPTION C -------------------------------------------------------------- C 1 I ELEMENT ID, EID C 2 THRU 5 I SILS, GRIDS 1 THRU 4 C 6 THRU 9 R MEMBRANE THICKNESSES T AT GRIDS 1 THRU 4 C 10 R MATERIAL PROPERTY ORIENTATION ANGLE, THETA C OR I COORD. SYSTEM ID (SEE TM ON CQUAD4 CARD) C 11 I TYPE FLAG FOR WORD 10 C 12 R GRID ZOFF (OFFSET) C 13 I MATERIAL ID FOR MEMBRANE, MID1 C 14 R ELEMENT THICKNESS, T (MEMBRANE, UNIFORMED) C 15 I MATERIAL ID FOR BENDING, MID2 C 16 R BENDING INERTIA FACTOR, I C 17 I MATERIAL ID FOR TRANSVERSE SHEAR, MID3 C 18 R TRANSV. SHEAR CORRECTION FACTOR TS/T C 19 R NON-STRUCTURAL MASS, NSM C 20 THRU 21 R Z1, Z2 (STRESS FIBRE DISTANCES) C 22 I MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4 C 23 R MATERIAL ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD) C 24 I TYPE FLAG FOR WORD 23 C 25 I INTEGRATION ORDER C 26 R STRESS ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD) C 27 I TYPE FLAG FOR WORD 26 C 28 R ZOFF1 (OFFSET) OVERRIDDEN BY EST(12) C 29 THRU 44 I/R CID,X,Y,Z - GRIDS 1 THRU 4 C 45 R ELEMENT TEMPERATURE C C LOGICAL BADJAC,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,NOCSUB INTEGER NEST(45),NPHI(2395),SIL(4),KSIL(4),KCID(8), 1 IGPDT(4,4),ELID,SCSID,FLAGS,FLAGM,NECPT(4), 2 INDEX(3,3),MID(4),Q4STRS,IPN(4),HUNMEG,ROWFLG, 3 TYPE,NAME(2) REAL BGPDM(3,4),CENT(3),GPTH(4),GPNORM(4,4),BGPDT(4,4), 1 MATSET,MOMINR,TMPTHK(4),TGRID(4,4),EPNORM(4,4), 2 EGPDT(4,4),G(6,6),GI(36),SHP(4),DSHP(8),GGE(9), 3 GGU(9),PTINT(2),PTINTP(3),TBS(9),TEU(9),TSE(9), 4 TEB(9),TBG(9),TUB(9),TUM(9),TSU(9),U(9),GT(9), 5 TBM(9),TEM(9),TMI(9),ECPT(4),GPC(3),XA(4),YB(4), 6 ALFA(3),GPTH2(4),RELOUT(300),NUNORX,NUNORY, 7 UGPDM(3,4),CENTE(3),BMATRX(192),XYBMAT(96), 8 JACOB(3,3),PHI(9),PSITRN(9),TMPSHP(4),DSHPTP(8), 9 KHEAT,TMS(9),DQ(24),JACOBU(9),JACBS(9),JACOBE(9), O ZC(4),VNT(3,4) CWKBNB 11/93 SPR 93020 REAL VD1(3), VD2(3), VKN(3), VKS(3) 1, V12(3), V41(3), VP12(3),VIS(3), VJS(3) CWKBNE 11/93 SPR 93020 CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SDR2X5/ EST(100),PHIOUT(2395) COMMON /SDR2X6/ IELOUT(300) COMMON /CONDAS/ PI,TWOPI,RADDEG,DEGRAD COMMON /SYSTEM/ SYSTM(100) COMMON /MATIN / MATID,INFLAG,ELTEMP COMMON /MATOUT/ RMTOUT(25) COMMON /Q4DT / DETJ,HZTA,PSITRN,NNODE,BADJAC,NODE COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /HMTOUT/ KHEAT(7),TYPE COMMON /Q4COMS/ ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4), 1 UEV(3,4),ROWFLG,IORDER(4) EQUIVALENCE (IGPDT(1,1),BGPDT(1,1)),(EST(1) ,NEST(1) ), 1 (BGPDT(1,1),EST(29) ),(GPTH(1) ,EST(6) ), 2 (ELTH ,EST(14) ),(SIL(1) ,NEST(2) ), 3 (NPHI(1) ,PHIOUT(1) ),(INT ,NEST(25) ), 4 (ZOFF ,NEST(12) ),(ZOFF1 ,EST(28) ), 5 (IELOUT(1) ,RELOUT(1) ),(MATSET ,RMTOUT(25)), 6 (NECPT(1) ,ECPT(1) ),(SYSTM(2),NOUT ), 7 (PHIOUT(65),GPTH2(1) ),(SYSTM(3),NOGO ), 8 (HTCP ,KHEAT(4) ),(ITHERM ,SYSTM(56) ) DATA EPS1 / 1.0E-16/ ,IPN / 1,4,2,3 / DATA NAME / 4HQUAD,4H4 / DATA HUNMEG/ 100000000 / DATA CONST / 0.57735026918962/ C C PHIOUT DATA BLOCK C -------------------------------------------------------------- C PHIOUT(1) = ELID (ELEMENT ID) C PHIOUT(2-9) = SIL NUMBERS C PHIOUT(10-17) = ARRAY IORDER C PHIOUT(18) = TSUB0 (REFERENCE TEMP.) C PHIOUT(19-20) = Z1 & Z2 (FIBER DISTANCES) C PHIOUT(21) = AVGTHK (AVERAGE THICKNESS) C PHIOUT(22) = MOMINR (MOMENT OF INER. FACTOR) C PHIOUT(23-58) = GBAR (BASIC MAT. PROP. MATRIX) C (W/O SHEAR) C PHIOUT(59-61) = THERMAL EXPANSION COEFFICIENTS C FOR MEMBRANE MATERIAL C PHIOUT(62-64) = THERMAL EXPANSION COEFFICIENTS C FOR BENDING MATERIAL C PHIOUT(65-68) = CORNER NODE THICKNESSES C PHIOUT(69-77) = 3X3 TRANSFORMATION FROM USER TO C MATERIAL COORD. SYSTEM C PHIOUT(78) = OFFSET OF ELEMENT FROM GP PLANE C PHIOUT(79) = ID OF THE ORIGINAL PCOMP(I) C PROPERTY ENTRY FOR COMPOSITES C PHIOUT(80-(79+9*NNODE)) = 3X3 TRANSFORMATIONS FROM GLOBAL C TO ELEMENT COORDINATE SYSTEM C FOR EACH EXISTING NODE C C THE FOLLOWING IS REPEATED FOR EACH EVALUATION POINT AND THE C CENTER POINT (10 TIMES). THE EVALUATION POINTS ARE AT THE C STANDARD 2X2X2 GAUSSIAN POINTS. THE CHOICE OF THE C FINAL STRESS AND FORCE OUTPUT POINTS IS MADE AT THE SUBCASE C LEVEL (PHASE 2.) C C 1 THICKNESS OF THE ELEMENT AT THIS C EVALUATION POINT C 2 - 10 3X3 TRANSFORMATION FROM TANGENT C TO STRESS C.S. AT THIS EVAL. PT. C 11 - 19 CORRECTION TO GBAR-MATRIX FOR C MEMBRANE-BENDING COUPLING AT THIS C EVALUATION POINT C 20 - 28 3X3 TRANSFORMATION FROM MATERIAL C TO INTEGRATION PT. COORDINATE C SYSTEM C 29 - 32 2X2 PROPERTY MATRIX FOR OUT-OF- C PLANE SHEAR (G3) C 32+1 - 32+NNODE ELEMENT SHAPE FUNCTIONS C 32+NNODE+1 - 32+NNODE+8*NDOF STRAIN RECOVERY MATRIX C C C IELOUT DATA BLOCK (TOTAL OF NWORDS = 102) C -------------------------------------------------------------- C 1 ELEMENT ID C 2 AVERAGE THICKNESS C C THE FOLLOWING IS REPEATED FOR EACH CORNER POINT. C C WORD 1 SIL NUMBER C WORD 2-10 TBS TRANSFORMATION FOR Z1 C WORD 11-19 TBS TRANSFORMATION FOR Z2 C WORD 20-22 NORMAL VECTOR IN BASIC C.S. C WORD 23-25 GRID COORDS IN BASIC C.S. C C Q4STRS = 0 ELID = NEST(1) NPHI(1)= ELID NORPTH =.FALSE. NODE = 4 NNODE = 4 NDOF = NNODE*6 ND2 = NDOF*2 ND3 = NDOF*3 ND4 = NDOF*4 ND5 = NDOF*5 ND6 = NDOF*6 ND7 = NDOF*7 ND8 = NDOF*8 C C FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS 1, 2 AND 4. C THIS ARRAY WILL BE USED LATER TO DEFINE THE USER COORD. SYSTEM C WHILE CALCULATING TRANSFORMATIONS INVOLVING THIS COORD. SYSTEM. C DO 10 I = 1,3 II = (I-1)*3 IJ = I IF (IJ .EQ. 3) IJ = 4 DO 10 J = 1,3 JJ = J + 1 10 GGU(II+J) = BGPDT(JJ,IJ) CWKBD 11/93 SPR93020 CALL BETRNS (TUB,GGU,0,ELID) CWKBNB 11/93 SPR93020 C ADD FROM SHEAR ELEMENT C C COMPUTE DIAGONAL VECTORS C DO 21 I = 1,3 II=I+1 VD1(I) = BGPDT(II,3) - BGPDT(II,1) 21 VD2(I) = BGPDT(II,4) - BGPDT(II,2) C C COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED C AREA, PA C VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2) VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3) VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1) VKL = SQRT( VKN(1)**2 + VKN(2)**2 + VKN(3)**2 ) IF ( VKL .EQ. 0. ) WRITE( NOUT, 2070 ) EST(1) 2070 FORMAT(//,' ILLEGAL GEOMETRY FOR QUAD4 ELEMENT, ID=',I10 ) VKS(1) = VKN(1)/VKL VKS(2) = VKN(2)/VKL VKS(3) = VKN(3)/VKL PA = VKL/2. C C COMPUTE SIDES -12- AND -41- DO 25 I = 1,3 II = I + 1 V12(I) = BGPDT(II,2) - BGPDT(II,1) V41(I) = BGPDT(II,1) - BGPDT(II,4) 25 CONTINUE C C COMPUTE DOT PRODUCT, V12DK, OR V12 AND VK, THE VECTORS VP12, VI, VJ C V12DK = V12(1)*VKS(1) + V12(2)*VKS(2) + V12(3)*VKS(3) VP12(1) = V12(1) - V12DK*VKS(1) VP12(2) = V12(2) - V12DK*VKS(2) VP12(3) = V12(3) - V12DK*VKS(3) VP12L = SQRT( VP12(1)**2 + VP12(2)**2 + VP12(3)**2 ) IF ( VP12L .EQ. 0. ) WRITE( NOUT, 2070 ) EST(1) VIS(1) = VP12(1) / VP12L VIS(2) = VP12(2) / VP12L VIS(3) = VP12(3) / VP12L VJS(1) = VKS(2)*VIS(3) - VKS(3)*VIS(2) VJS(2) = VKS(3)*VIS(1) - VKS(1)*VIS(3) VJS(3) = VKS(1)*VIS(2) - VKS(2)*VIS(1) C C NORMALIZE J FOR GOOD MEASURE C VJL = SQRT( VJS(1)**2 + VJS(2)**2 + VJS(3)**2 ) IF ( VJL .EQ. 0. ) WRITE ( NOUT, 2070 ) EST(1) VJS(1) = VJS(1) / VJL VJS(2) = VJS(2) / VJL VJS(3) = VJS(3) / VJL DO 29 I = 1,3 TUB(I) = VIS(I) TUB(I+3) = VJS(I) TUB(I+6) = VKS(I) 29 CONTINUE CWKBNE 11/93 SPR93020 C C STORE INCOMING BGPDT FOR ELEMENT C.S. C DO 20 I = 1,3 I1 = I + 1 DO 20 J = 1,4 20 BGPDM(I,J) = BGPDT(I1,J) C C TRANSFORM BGPDM FROM BASIC TO USER C.S. C DO 30 I = 1,3 IP = (I-1)*3 DO 30 J = 1,4 UGPDM(I,J) = 0.0 DO 30 K = 1,3 KK = IP + K 30 UGPDM(I,J) = UGPDM(I,J) + TUB(KK)*((BGPDM(K,J))-GGU(K)) C C THE ORIGIN OF THE ELEMENT C.S. IS IN THE MIDDLE OF THE ELEMENT C DO 40 J = 1,3 CENT(J) = 0.0 DO 40 I = 1,4 40 CENT(J) = CENT(J) + UGPDM(J,I)/NNODE C C STORE THE CORNER NODE DIFF. IN THE USER C.S. C X31 = UGPDM(1,3) - UGPDM(1,1) Y31 = UGPDM(2,3) - UGPDM(2,1) X42 = UGPDM(1,4) - UGPDM(1,2) Y42 = UGPDM(2,4) - UGPDM(2,2) AA = SQRT(X31*X31 + Y31*Y31) BB = SQRT(X42*X42 + Y42*Y42) C C NORMALIZE XIJ'S C X31 = X31/AA Y31 = Y31/AA X42 = X42/BB Y42 = Y42/BB EXI = X31 - X42 EXJ = Y31 - Y42 C C STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT C.S. AND USER C.S. C GGE(1) = CENT(1) GGE(2) = CENT(2) GGE(3) = CENT(3) C GGE(4) = GGE(1) + EXI GGE(5) = GGE(2) + EXJ GGE(6) = GGE(3) C GGE(7) = GGE(1) - EXJ GGE(8) = GGE(2) + EXI GGE(9) = GGE(3) C C START FILLING IN IELOUT ARRAY WITH DATA TO BE STORED IN GPSRN C IELOUT(1) = ELID DO 50 I = 1,4 IELOUT(3+(I-1)*25) = SIL(I) DO 50 J = 1,3 RELOUT(25*I+J-1) = BGPDT(J+1,I) 50 CONTINUE C C THE ARRAY IORDER STORES THE ELEMENT NODE ID IN C INCREASING SIL ORDER. C C IORDER(1) = NODE WITH LOWEST SIL NUMBER C IORDER(4) = NODE WITH HIGHEST SIL NUMBER C C ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST G1,G2,G3,G4. C THAT IS, THE 'I' PART OF THE 'GI' AS THEY ARE LISTED ON THE C CONNECTIVITY BULK DATA CARD DESCRIPTION. C C DO 60 I = 1,4 IORDER(I) = 0 60 KSIL(I) = SIL(I) C DO 80 I = 1,4 ITEMP = 1 ISIL = KSIL(1) DO 70 J = 2,4 IF (ISIL .LE. KSIL(J)) GO TO 70 ITEMP = J ISIL = KSIL(J) 70 CONTINUE IORDER(I) = ITEMP KSIL(ITEMP) = 99999999 80 CONTINUE C C ADJUST EST DATA C C USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE C GEOMETRY DATA INTO INCREASING SIL ORDER. C DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE C FUNCTIONS GO WITH WHICH GEOMETRIC PARAMETERS! C DO 100 I = 1,4 KSIL(I) = SIL(I) TMPTHK(I) = GPTH(I) KCID(I) = IGPDT(1,I) DO 90 J = 2,4 TGRID(J,I) = BGPDT(J,I) 90 CONTINUE 100 CONTINUE DO 120 I = 1,4 IPOINT = IORDER(I) GPTH(I) = TMPTHK(IPOINT) IGPDT(1,I) = KCID(IPOINT) SIL(I) = KSIL(IPOINT) NPHI(I+1 ) = KSIL(IPOINT) NPHI(I+5 ) = 0 NPHI(I+9 ) = IPOINT NPHI(I+13) = 0 DO 110 J = 2,4 BGPDT(J,I) = TGRID(J,IPOINT) 110 CONTINUE 120 CONTINUE C NPHI(19) = NEST(20) NPHI(20) = NEST(21) PHIOUT(18) = 0.0 OFFSET = ZOFF IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1 PHIOUT(78) = OFFSET C C COMPUTE NODE NORMALS C CALL Q4NRMS (BGPDT,GPNORM,IORDER,IFLAG) IF (IFLAG .EQ. 0) GO TO 130 WRITE (NOUT,1710) UFM,ELID GO TO 1430 130 CONTINUE C C PUT NORMALS IN IELOUT C DO 140 I = 1,NNODE IO = IORDER(I) IOP = (IO-1)*25 + 21 RELOUT(IOP+1) = GPNORM(2,I) RELOUT(IOP+2) = GPNORM(3,I) RELOUT(IOP+3) = GPNORM(4,I) 140 CONTINUE C C COMPUTE NODE NORMALS C AVGTHK = 0.0 DO 160 I = 1,NNODE IO = IORDER(I) IF (GPTH(I) .EQ. 0.0) GPTH(I) = ELTH IF (GPTH(I) .GT. 0.0) GO TO 150 WRITE (NOUT,1700) UFM,ELID,SIL(I) GO TO 1430 150 AVGTHK = AVGTHK + GPTH(I)/NNODE GPTH2(IO) = GPTH(I) 160 CONTINUE C MOMINR = 0.0 TSFACT = 5.0/6.0 NOCSUB = .FALSE. IF (NEST(15) .NE. 0) MOMINR = EST(16) IF (NEST(17) .NE. 0) TS = EST(18) IF ( EST(18) .EQ. .0) TS = 5.0/6.0 PHIOUT(21) = AVGTHK PHIOUT(22) = MOMINR C C SET LOGICAL NOCSUB IF EITHER MOMINR OR TS ARE NOT DEFAULT C VALUES. THIS WILL BE USED TO OVERRIDE ALL CSUBB COMPUTATIONS. C I.E. DEFAULT VALUES OF UNITY ARE USED. C EPSI = ABS(MOMINR - 1.0) EPST = ABS(TS - TSFACT) EPS = .05 C NOCSUB = EPSI.GT.EPS .OR. EPST.GT.EPS C C PUT THE AVERAGE THICKNESS IN RELOUT C RELOUT(2) = AVGTHK C C THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE C TRANSFORMED FROM THE BASIC C.S. TO THE ELEMENT C.S. C CALL BETRNS (TEU,GGE,0,ELID) CALL GMMATS (TEU,3,3,0, TUB,3,3,0, TEB) CALL GMMATS (TUB,3,3,1, CENT,3,1,0, CENTE) C DO 170 I = 1,3 II = I + 1 IP = (I-1)*3 DO 170 J = 1,NNODE EPNORM(II,J) = 0.0 EGPDT (II,J) = 0.0 DO 170 K = 1,3 KK = IP + K K1 = K + 1 CC = BGPDT(K1,J) - GGU(K) - CENTE(K) EPNORM(II,J) = EPNORM(II,J) + TEB(KK)*GPNORM(K1,J) 170 EGPDT (II,J) = EGPDT (II,J) + TEB(KK)*CC C C INITIALIZE MATERIAL VARIABLES C C SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR- C ISOTROPIC MATERIAL PROPERTIES AMONG THE MAT1 CARDS, C ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND C ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS. C INFLAG = 12 RHO = 0.0 ELTEMP = EST(45) MID(1) = NEST(13) MID(2) = NEST(15) MID(3) = NEST(17) MID(4) = NEST(22) MEMBRN = MID(1).GT.0 BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0 SHRFLX = MID(3).GT.0 MBCOUP = MID(4).GT.0 C C CHECK FOR COMPOSITE MATERIAL C NPHI(79) = 0 DO 180 IMG = 1,4 IF (MID(IMG) .GT. HUNMEG) GO TO 190 180 CONTINUE GO TO 200 190 NPHI(79) = MID(IMG) - IMG*HUNMEG 200 CONTINUE C C DETERMINE FACTORS TO BE USED IN CSUBB CALCULATIONS C IF (.NOT.BENDNG) GO TO 250 DO 220 I = 1,4 DO 210 J = 1,NNODE JO = IORDER(J) IF (I .NE. JO) GO TO 210 XA(I) = EGPDT(2,J) YB(I) = EGPDT(3,J) ZC(I) = EGPDT(4,J) VNT(1,I) = EPNORM(2,J) VNT(2,I) = EPNORM(3,J) VNT(3,I) = EPNORM(4,J) 210 CONTINUE 220 CONTINUE C A = 0.5*(XA(2) + XA(3) - XA(1) - XA(4)) B = 0.5*(YB(4) + YB(3) - YB(1) - YB(2)) IF (A .GT. B) ASPECT = B/A IF (A .LE. B) ASPECT = A/B C C IRREGULAR 4-NODE CODE- GEOMETRIC VARIABLES C C CALCULATE AND NORMALIZE- UNIT EDGE VECTORS,UNIT NORMAL VECTORS C DO 230 I = 1,4 J = I + 1 IF (J .EQ. 5) J = 1 UEV(1,I) = XA(J) - XA(I) UEV(2,I) = YB(J) - YB(I) UEV(3,I) = ZC(J) - ZC(I) UNV(1,I) = (VNT(1,J)+VNT(1,I))*0.50 UNV(2,I) = (VNT(2,J)+VNT(2,I))*0.50 UNV(3,I) = (VNT(3,J)+VNT(3,I))*0.50 CC = UEV(1,I)**2 + UEV(2,I)**2 + UEV(3,I)**2 IF (CC .GE. 1.0E-8) CC = SQRT(CC) EDGEL(I) = CC UEV(1,I) = UEV(1,I)/CC UEV(2,I) = UEV(2,I)/CC UEV(3,I) = UEV(3,I)/CC CC = SQRT(UNV(1,I)**2 + UNV(2,I)**2 + UNV(3,I)**2) UNV(1,I) = UNV(1,I)/CC UNV(2,I) = UNV(2,I)/CC UNV(3,I) = UNV(3,I)/CC 230 CONTINUE C C CALCULATE INTERNAL NODAL ANGLES C DO 240 I = 1,4 J = I - 1 IF (J .EQ. 0) J = 4 ANGLEI(I) =-UEV(1,I)*UEV(1,J)-UEV(2,I)*UEV(2,J)-UEV(3,I)*UEV(3,J) IF (ABS(ANGLEI(I)) .LT. 1.0E-8) ANGLEI(I) = 0.0 240 CONTINUE 250 CONTINUE C C SET THE INTEGRATION POINTS C PTINT(1) = -CONST PTINT(2) = CONST C IF (ITHERM .NE. 0) GO TO 1500 C C IN PLANE SHEAR REDUCTION C XI = 0.0 ETA = 0.0 KPT = 1 C CALL Q4SHPS (XI,ETA,SHP,DSHP) C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 260 I = 1,4 TMPSHP(I ) = SHP (I ) DSHPTP(I ) = DSHP(I ) 260 DSHPTP(I+4) = DSHP(I+4) DO 270 I = 1,4 KK = IORDER(I) SHP( I ) = TMPSHP(KK ) DSHP(I ) = DSHPTP(KK ) 270 DSHP(I+4) = DSHPTP(KK+4) C DO 280 IZTA = 1,2 ZETA = PTINT(IZTA) C C COMPUTE THE JACOBIAN AT THIS GAUSS POINT, C ITS INVERSE AND ITS DETERMINANT. C HZTA = ZETA/2.0 C CALL JACOBS (ELID,SHP,DSHP,GPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 1430 C C COMPUTE PSI TRANSPOSE X JACOBIAN INVERSE. C HERE IS THE PLACE WHERE THE INVERSE JACOBIAN IS FLAGED TO BE C TRANSPOSED BECAUSE OF OPPOSITE MATRIX LOADING CONVENTION BETWEEN C INVER AND GMMAT. C CALL GMMATS (PSITRN,3,3,0, JACOB,3,3,1, PHI) C C CALL Q4BMGS TO GET B MATRIX C SET THE ROW FLAG TO 2. IT WILL SAVE THE 3RD ROW OF B-MATRIX AT C THE TWO INTEGRATION POINTS. C ROWFLG = 2 CALL Q4BMGS (DSHP,GPTH,EGPDT,EPNORM,PHI,XYBMAT(KPT)) KPT = KPT + ND2 280 CONTINUE C C FETCH MATERIAL PROPERTIES C C SET THE ARRAY OF LENGTH 4 TO BE USED IN CALLING TRANSS. C NOTE THAT THE FIRST WORD IS THE COORDINATE SYSTEM ID WHICH C WILL BE SET IN POSITION LATER. C 290 DO 300 IEC = 2,4 300 ECPT(IEC) = 0.0 C C C EACH MATERIAL PROPERTY MATRIX G HAS TO BE TRANSFORMED FROM C THE MATERIAL COORDINATE SYSTEM TO THE ELEMENT COORDINATE C SYSTEM. THESE STEPS ARE TO BE FOLLOWED- C C 1- IF MCSID HAS BEEN SPECIFIED, SUBROUTINE TRANSS IS CALLED C TO CALCULATE TBM-MATRIX (MATERIAL TO BASIC TRANSFORMATION). C THIS WILL BE FOLLOWED BY A CALL TO SUBROUTINE BETRNS C TO CALCULATE TEB-MATRIX (BASIC TO ELEMENT TRANSFORMATION). C TBM-MATRIX IS THEN PREMULTIPLIED BY TEB-MATRIX TO OBTAIN C TEM-MATRIX. THEN STEP 3 WILL BE TAKEN. C C 2- IF THETAM HAS BEEN SPECIFIED, SUBROUTINE ANGTRS IS CALLED C TO CALCULATE TEM-MATRIX (MATERIAL TO ELEMENT TRANSFORMATION). C C T C 3- G = U G U C E M C C FLAGM = NEST(11) IF (FLAGM .EQ. 0) GO TO 360 MCSID = NEST(10) C C CALCULATE TUM-MATRIX USING MCSID C 310 IF (MCSID .GT. 0) GO TO 330 DO 320 I = 1,9 320 TEM(I) = TEB(I) GO TO 340 330 NECPT(1) = MCSID CALL TRANSS (ECPT,TBM) C C MULTIPLY TEB AND TBM MATRICES C CALL GMMATS (TEB,3,3,0, TBM,3,3,0, TEM) C C CALCULATE THETAM FROM THE PROJECTION OF THE X-AXIS OF THE C MATERIAL C.S. ON TO THE XY PLANE OF THE ELEMENT C.S. C 340 CONTINUE XM = TEM(1) YM = TEM(4) IF (ABS(XM).GT.EPS1 .OR. ABS(YM).GT.EPS1) GO TO 350 NEST(2) = MCSID J = 231 GO TO 1440 350 THETAM = ATAN2(YM,XM) GO TO 370 C C CALCULATE TEM-MATRIX USING THETAM C 360 THETAM = EST(10)*DEGRAD IF (THETAM .EQ. 0.0) GO TO 380 370 CALL ANGTRS (THETAM,1,TUM) CALL GMMATS (TEU,3,3,0, TUM,3,3,0, TEM) GO TO 400 C C DEFAULT IS CHOSEN, LOOK FOR VALUES OF MCSID AND/OR THETAM C ON THE PSHELL CARD. C 380 FLAGM = NEST(24) IF (FLAGM .EQ. 0) GO TO 390 MCSID = NEST(23) GO TO 310 C 390 THETAM = EST(23)*DEGRAD GO TO 370 C 400 CONTINUE C C STORE TUM IN PHIOUT C DO 410 IEM = 1,9 410 PHIOUT(68+IEM) = TUM(IEM) C IF (ITHERM .NE. 0) GO TO 1600 C C BEGIN THE LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID C DO 420 LL = 1,36 420 GI(LL) = 0.0 C M = 0 IT0 = 0 IGOBK= 0 430 M = M + 1 IF (M .GT. 4) GO TO 680 IF (M.EQ.4 .AND. IGOBK.EQ.1) GO TO 690 MATID = MID(M) IF (MATID.EQ.0 .AND. M.NE.3) GO TO 430 IF (MATID.EQ.0 .AND. M.EQ.3 .AND. .NOT.BENDNG) GO TO 430 IF (MATID.EQ.0 .AND. M.EQ.3 .AND. BENDNG) MATID = MID(2) C IF (M-1) 460,450,440 440 IF (MATID.EQ.MID(M-1) .AND. IGOBK.EQ.0) GO TO 460 450 CALL MAT (ELID) 460 CONTINUE C IF (IT0 .GT. 0) GO TO 470 TSUB0 = RMTOUT(11) IF (MATSET .EQ. 8.0) TSUB0 = RMTOUT(10) PHIOUT(18) = TSUB0 IT0 = 1 470 CONTINUE C COEFF = 1.0 C IF (M .EQ. 2) COEFF = MOMINR IF (M .EQ. 3) COEFF = TS LPOINT = (M-1)*9 + 1 C CALL Q4GMGS (M,COEFF,GI(LPOINT)) C CWKBDB 11/93 SPR93020 C IF (M .GT. 0) GO TO 490 C IF (.NOT.SHRFLX .AND. BENDNG) GO TO 480 C NEST(2) = MATID C J = 231 C GO TO 1440 C C 480 M = -M C 490 CONTINUE C MTYPE = IFIX(MATSET+.05) - 2 C IF (NOCSUB) GO TO 580 C GO TO (580,500,540,580), M CC C 500 IF (MTYPE) 510,520,530 C 510 ENORX = RMTOUT(16) C ENORY = RMTOUT(16) C GO TO 580 C 520 ENORX = RMTOUT(1) C ENORY = RMTOUT(4) C GO TO 580 C 530 ENORX = RMTOUT(1) C ENORY = RMTOUT(3) C GO TO 580 C C 540 IF (MTYPE) 550,560,570 C 550 GNORX = RMTOUT(6) C GNORY = RMTOUT(6) C GO TO 580 C 560 GNORX = RMTOUT(1) C GNORY = RMTOUT(4) C GO TO 580 C 570 GNORX = RMTOUT(6) C GNORY = RMTOUT(5) C IF (GNORX .EQ. 0.0) GNORX = RMTOUT(4) C IF (GNORY .EQ. 0.0) GNORY = RMTOUT(4) C 580 CONTINUE CWKBDE 11/93 SPR93020 CWKBNB 11/93 SPR93020 IF (M .GT. 0) GO TO 490 IF (.NOT.SHRFLX .AND. BENDNG) GO TO 480 NEST(2) = MATID J = 231 GO TO 1440 480 M = -M 490 CONTINUE MTYPE = IFIX(MATSET+.05) - 2 IF (NOCSUB) GO TO 580 GO TO (580,500,540,580), M CWKBNE 11/93 SPR93020 CWKBNB 2/94 SPR93020 500 IF ( MTYPE ) 510, 520, 530 510 ENORX = RMTOUT(16) ENORY = RMTOUT(16) DNUX = GI( LPOINT+1 ) / GI( LPOINT ) DNUY = GI( LPOINT+3 ) / GI( LPOINT+4 ) GO TO 580 520 ENORX = RMTOUT(1) ENORY = RMTOUT(4) DNUX = GI( LPOINT+1 ) / GI( LPOINT ) DNUY = GI( LPOINT+3 ) / GI( LPOINT+4 ) GO TO 580 530 ENORX = RMTOUT(1) ENORY = RMTOUT(3) DNUX = GI( LPOINT+1 ) / GI( LPOINT ) DNUY = GI( LPOINT+3 ) / GI( LPOINT+4 ) GO TO 580 540 IF ( MTYPE ) 550, 560, 570 550 GNORX = RMTOUT(6) GNORY = RMTOUT(6) GO TO 580 560 GNORX = RMTOUT(1) GNORY = RMTOUT(4) GO TO 580 570 GNORX = RMTOUT(6) GNORY = RMTOUT(5) IF ( GNORX .EQ. 0.0D0 ) GNORX = RMTOUT(4) IF ( GNORY .EQ. 0.0D0 ) GNORY = RMTOUT(4) 580 CONTINUE CWKBNE 2/94 SPR93020 IF (MATSET .EQ. 1.0) GO TO 610 IF (M .EQ. 3) GO TO 590 U(1) = TEM(1)*TEM(1) U(2) = TEM(2)*TEM(2) U(3) = TEM(1)*TEM(2) U(4) = TEM(4)*TEM(4) U(5) = TEM(5)*TEM(5) U(6) = TEM(4)*TEM(5) U(7) = TEM(1)*TEM(4)*2.0 U(8) = TEM(2)*TEM(5)*2.0 U(9) = TEM(1)*TEM(5) + TEM(2)*TEM(4) L = 3 GO TO 600 C 590 U(1) = TEM(5)*TEM(9) + TEM(6)*TEM(8) U(2) = TEM(4)*TEM(9) + TEM(6)*TEM(7) U(3) = TEM(2)*TEM(9) + TEM(3)*TEM(8) U(4) = TEM(1)*TEM(9) + TEM(3)*TEM(7) L = 2 C 600 CALL GMMATS (U(1),L,L,1, GI(LPOINT),L,L,0, GT(1)) CALL GMMATS (GT(1),L,L,0, U(1),L,L,0, GI(LPOINT)) C C TRANSFORM THERMAL EXPANSION COEFF'S AND STORE THEM IN PHIOUT C 610 CONTINUE IF (M .GT. 2 ) GO TO 430 IF (MATSET .EQ. 2.) GO TO 620 IF (MATSET .EQ. 8.) GO TO 640 C C MAT1 C ALFA(1) = RMTOUT(8) ALFA(2) = RMTOUT(8) ALFA(3) = 0.0 GO TO 650 C C MAT2 C 620 DO 630 IMAT = 1,3 630 ALFA(IMAT) = RMTOUT(7+IMAT) GO TO 650 C C MAT8 C 640 ALFA(1) = RMTOUT(8) ALFA(2) = RMTOUT(9) ALFA(3) = 0.0 C 650 MPOINT = (M-1)*3 + 59 IF (MATSET .EQ. 1.0) GO TO 660 CALL INVERS (3,U,3,BDUM,0,DETU,ISNGU,INDEX) CALL GMMATS (U,3,3,0, ALFA,3,1,0, PHIOUT(MPOINT)) GO TO 430 660 DO 670 IALF = 1,3 MP = MPOINT - 1 + IALF 670 PHIOUT(MP) = ALFA(IALF) GO TO 430 680 CONTINUE IF (MID(3) .LT. HUNMEG) GO TO 690 IF (GI(19).NE.0. .OR. GI(20).NE.0. .OR. GI(21).NE.0. .OR. 1 GI(22).NE.0.) GO TO 690 IGOBK = 1 M = 2 MID(3) = MID(2) GO TO 430 690 CONTINUE C NOCSUB = ENORX.EQ.0.0 .OR. ENORY.EQ.0.0 .OR. 1 GNORX.EQ.0.0 .OR. GNORY.EQ.0.0 .OR. 2 MOMINR.EQ.0.0 C C C FILL IN THE BASIC 6X6 MATERIAL PROPERTY MATRIX G C DO 700 IG = 1,6 DO 700 JG = 1,6 700 G(IG,JG) = 0.0 C IF (.NOT.MEMBRN) GO TO 720 DO 710 IG = 1,3 IG1 = (IG-1)*3 DO 710 JG = 1,3 JG1 = JG + IG1 G(IG,JG) = GI(JG1) 710 CONTINUE C 720 IF (.NOT.BENDNG) GO TO 750 DO 730 IG = 4,6 IG2 = (IG-2)*3 DO 730 JG = 4,6 JG2 = JG + IG2 G(IG,JG) = GI(JG2) 730 CONTINUE C IF (.NOT.MEMBRN) GO TO 750 DO 740 IG = 1,3 KG = IG + 3 IG1 = (IG-1)*3 DO 740 JG = 1,3 LG = JG + 3 JG1 = JG + IG1 G(IG,LG) = GI(JG1) G(KG,JG) = GI(JG1) 740 CONTINUE C C STORE 6X6 GBAR-MATRIX IN PHIOUT C 750 IG1 = 22 DO 760 IG = 1,6 DO 760 JG = 1,6 IG1 = IG1 + 1 760 PHIOUT(IG1) = G(IG,JG) C C C STRESS TRANSFORMATIONS C ---------------------- C C THE NECESSARY TRANSFORMATIONS ARE PERFORMED IN THE FOLLOWING C MANNER- C C 1- ALL THE TRANSFORMATIONS ARE CALCULATED IN PHASE I AND THEN C TRANSFERED THRU DATA BLOCK 'PHIOUT' TO PHASE II WHERE THE C ACTUAL MULTIPLICATIONS ARE PERFORMED. C C 2- THE STRAIN RECOVERY MATRIX B C IS EVALUATED IN THE ELEMENT COORDINATE SYSTEM IN PHASE I C AND TRANSFERED TO PHASE II. THE DISPLACEMENTS, HOWEVER, C ENTER PHASE II IN GLOBAL COORDINATES. THEREFORE, C 2A) 3X3 TRANSFORMATIONS FROM GLOBAL TO ELEMENT COORDINATE C SYSTEM (TEG) FOR EACH GRID POINT ARE CALCULATED AND C STORED IN PHIOUT (80 - (79+9*NNODE)). C USING THESE TRANSFORMATIONS THE DISPLACEMENTS AT C EACH GRID POINT WILL BE EVALUATED IN THE ELEMENT C COORDINATE SYSTEM AFTER ENTERING PHASE II. C C 2B) A 3X3 TRANSFORMATION FROM THE TANGENT TO THE USER- C DEFINED STRESS COORDINATE SYSTEM (TSI) IS CALCULATED C FOR EACH INTEGRATION POINT AND STORED ALONG WITH OTHER C DATA FOR THAT INTEGRATION POINT AT POSITIONS 2-10 OF C THE REPEATED DATA FOR EACH EVALUATION POINT. C IT WILL BE USED TO TRANSFORM THE STRESS OUTPUT TO C ANY DESIRED COORDINATE SYSTEM. C NOTE THAT THESE CALCULATIONS WILL BE PERFORMED INSIDE C THE DOUBLE LOOP. C C CALCULATIONS FOR TEG-MATRIX C C CALCULATE TBG-MATRIX (GLOBAL TO BASIC), THEN C MULTIPLY TEB AND TBG MATRICES TO GET TEG-MATRIX C FOR THIS GRID POINT AND STORE IT IN PHIOUT. C DO 820 I = 1,NNODE IP = 80 + (I-1)*9 IF (IGPDT(1,I) .LE. 0) GO TO 800 CALL TRANSS (IGPDT(1,I),TBG) CALL GMMATS (TEB,3,3,0, TBG,3,3,0, PHIOUT(IP)) GO TO 820 C 800 DO 810 J = 1,9 810 PHIOUT(IP+J-1) = TEB(J) 820 CONTINUE C C INITIALIZE THE ARRAYS USED IN THE DOUBLE LOOP CALCULATION. C EVALUATION OF STRESSES IS DONE AT 2X2 POINTS AND AT THE C CENTER OF THE ELEMENT, AT THE MID-SURFACE. C IF (BENDNG) GO TO 840 J = ND3 + 1 DO 830 IBMX = J,ND8 830 BMATRX(IBMX) = 0.0 840 CONTINUE C ICOUNT = -(8*NDOF+NNODE+32) + 79 + 9*NNODE C PTINTP(1) =-CONST PTINTP(2) = CONST PTINTP(3) = 0.0 C C C HERE BEGINS THE TRIPLE LOOP ON STATEMENTS 835 AND 840 C ----------------------------------------------------- C DO 1420 IXSI = 1,3 XI = PTINTP(IXSI) C DO 1420 IETA = 1,3 ETA = PTINTP(IETA) IF (IXSI.EQ.3 .AND. IETA.NE.3) GO TO 1420 IF (IXSI.NE.3 .AND. IETA.EQ.3) GO TO 1420 C CALL Q4SHPS (XI,ETA,SHP,DSHP) C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 900 I = 1,4 TMPSHP(I ) = SHP (I ) DSHPTP(I ) = DSHP(I ) 900 DSHPTP(I+4) = DSHP(I+4) DO 910 I = 1,4 KK = IORDER(I) SHP (I ) = TMPSHP(KK ) DSHP(I ) = DSHPTP(KK ) 910 DSHP(I+4) = DSHPTP(KK+4) C TH = 0.0 DO 920 ITH = 1,NNODE 920 TH = TH + SHP(ITH)*GPTH(ITH) REALI = MOMINR*TH*TH*TH/12.0 TSI = TS*TH C IF (NOCSUB) GO TO 970 IF (.NOT.BENDNG) GO TO 970 C NUNORX = MOMINR*ENORX/(2.0*GNORX) - 1.0 C NUNORY = MOMINR*ENORY/(2.0*GNORY) - 1.0 CWKBNB 2/94 SPR93020 NUNORX = MOMINR*ENORX/(2.0*GNORX) - 1.0 NUNORY = MOMINR*ENORY/(2.0*GNORY) - 1.0 IF ( NUNORX .LT. 0. ) NUNORX = DNUX IF ( NUNORY .LT. 0. ) NUNORY = DNUY CWKBNE 2/94 SPR93020 CWKBDB 2/94 SPR93020 C EIX = MOMINR*ENORX C EIY = MOMINR*ENORY C TGX = 2.0*GNORX C TGY = 2.0*GNORY C NUNORX = EIX/TGX - 1.0 C IF (EIX .GT. TGX) NUNORX = 1.0 - TGX/EIX C NUNORY = EIY/TGY - 1.0 C IF (EIY .GT. TGY) NUNORY = 1.0 - TGY/EIY C IF (NUNORX .GT. 0.999999) NUNORX = 0.999999 C IF (NUNORY .GT. 0.999999) NUNORY = 0.999999 CWKBDE 2/94 SPR93020 C IF (NUNORX .GT. .49) NUNORX = 0.49 C IF (NUNORY .GT. .49) NUNORY = 0.49 CC = ASPECT AX = A IF (ETA .LT. 0.0) AX = A + CONST*(XA(2)-XA(1)-A) IF (ETA .GT. 0.0) AX = A + CONST*(XA(3)-XA(4)-A) PSIINX = 32.0*REALI/((1.0-NUNORX)*TSI*AX*AX) BY = B IF (XI .LT. 0.0) BY = B + CONST*(YB(4)-YB(1)-B) IF (XI .GT. 0.0) BY = B + CONST*(YB(3)-YB(2)-B) PSIINY = 32.0*REALI/((1.0-NUNORY)*TSI*BY*BY) IF (.NOT.SHRFLX) GO TO 930 TSMFX = PSIINX TSMFY = PSIINY IF (TSMFX .GT. 1.0) TSMFX = 1.0 IF (TSMFY .GT. 1.0) TSMFY = 1.0 GO TO 980 930 IF (PSIINX .GE. 1.0) GO TO 940 TSMFX = PSIINX/(1.0-PSIINX) IF (TSMFX .LE. 1.0) GO TO 950 940 TSMFX = 1.0 950 IF (PSIINY .GE. 1.0) GO TO 960 TSMFY = PSIINY/(1.0-PSIINY) IF (TSMFY .LE. 1.0) GO TO 980 960 TSMFY = 1.0 GO TO 980 C 970 TSMFX = 1.0 TSMFY = 1.0 980 CONTINUE C C IRREGULAR 4-NODE CODE- CALCULATION OF NODAL EDGE SHEARS C AT THIS INTEGRATION POINT C C DO 1050 IJ = 1,4 II = IJ - 1 IF (II .EQ. 0) II = 4 IK = IJ + 1 IF (IK .EQ. 5) IK = 1 C DO 1000 IR = 1,4 IF (IJ .NE. IORDER(IR)) GO TO 1000 IOJ = IR GO TO 1010 1000 CONTINUE 1010 DO 1020 IR = 1,4 IF (IK .NE. IORDER(IR)) GO TO 1020 IOK = IR GO TO 1030 1020 CONTINUE 1030 AA = SHP(IOJ) BB = SHP(IOK) C DO 1040 IS = 1,3 EDGSHR(IS,IJ) = (UEV(IS,IJ)+ANGLEI(IJ)*UEV(IS,II))*AA/ 1 (1.0-ANGLEI(IJ)*ANGLEI(IJ)) 2 + (UEV(IS,IJ)+ANGLEI(IK)*UEV(IS,IK))*BB/ 3 (1.0-ANGLEI(IK)*ANGLEI(IK)) 1040 CONTINUE 1050 CONTINUE C DO 1410 IZTA = 1,2 ZETA = PTINT(IZTA) HZTA = ZETA/2.0 IBOT = (IZTA-1)*ND2 C C SET THE PHIOUT POINTER C ICOUNT = ICOUNT + 32 + NNODE + 8*NDOF C PHIOUT(ICOUNT+1) = TH C C STORE SHAPE FUNCTION VALUES IN PHIOUT C DO 1060 I = 1,NNODE PHIOUT(ICOUNT+32+I) = SHP(I) 1060 CONTINUE C C STORE THE CORRECTION TO GBAR-MATRIX IN PHIOUT C IG1 = ICOUNT + 10 IG4 = 28 DO 1070 IG = 1,9 IG1 = IG1 + 1 PHIOUT(IG1) = -GI(IG4)*ZETA*6.0 1070 IG4 = IG4 + 1 C C STORE G3-MATRIX IN PHIOUT C IPH = ICOUNT + 28 PHIOUT(IPH+1) = TSMFY*GI(19) PHIOUT(IPH+2) = SQRT(TSMFX*TSMFY)*GI(20) PHIOUT(IPH+3) = SQRT(TSMFX*TSMFY)*GI(21) PHIOUT(IPH+4) = TSMFX*GI(22) C C COMPUTE THE JACOBIAN AT THIS GAUSS POINT, C ITS INVERSE AND ITS DETERMINANT. C CALL JACOBS (ELID,SHP,DSHP,GPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 1430 C C COMPUTE PSI TRANSPOSE X JACOBIAN INVERSE. C HERE IS THE PLACE WHERE THE INVERSE JACOBIAN IS FLAGED TO BE C TRANSPOSED BECAUSE OF OPPOSITE MATRIX LOADING CONVENTION BETWEEN C INVER AND GMMAT. C CALL GMMATS (PSITRN,3,3,0, JACOB,3,3,1, PHI) C CALL GMMATS (TEM,3,3,1, PSITRN,3,3,1, TMI) C C STORE TMI-MATRIX IN PHIOUT C IPH = ICOUNT + 20 DO 1080 I = 1,9 PHIOUT(IPH) = TMI(I) 1080 IPH = IPH + 1 C C ARRAY ECPT(4) WHICH IS USED IN TRANSS CONSISTS OF THE C.S. ID C AND THE COORDINATES (IN BASIC C.S.) OF THE POINT FROM (OR TO) C WHICH THE TRANSFORMATION IS BEING PERFORMED. THE COORDINATES C ARE NOT USED IF THE DESIGNATED COORDINATE SYSTEM IS RECTANGULAR. C DO 1100 I = 1,3 GPC(I) = 0.0 II = I + 1 DO 1090 J = 1,NNODE 1090 GPC(I) = GPC(I) + SHP(J)*(BGPDT(II,J) + HZTA*GPTH(J)*GPNORM(II,J)) 1100 ECPT(II) = GPC(I) C C CALCULATIONS FOR TSE-MATRIX C FLAGS = NEST(27) IF (FLAGS .EQ. 0) GO TO 1300 C C FLAGS IS 1, I.E. SCSID HAS BEEN SPECIFIED. C CALCULATE TBS-MATRIX (STRESS TO BASIC) C SCSID = NEST(26) IF (SCSID .LE. 0) GO TO 1200 NECPT(1) = SCSID CALL TRANSS (ECPT,TBS) GO TO 1220 1200 DO 1210 I = 1,3 II = (I-1)*3 DO 1210 J = 1,3 JJ = (J-1)*3 1210 TSU(II+J) = TUB(I+JJ) GO TO 1230 C C MULTIPLY C T T C TBS AND TUB TO GET TSU-MATRIX (USER TO STRESS) C 1220 CALL GMMATS (TBS,3,3,1, TUB,3,3,1, TSU) C C CALCULATE THETAS FROM THE PROJECTION OF THE X-AXIS OF THE C STRESS C.S. ON TO THE XY PLANE OF THE ELEMENT C.S. C 1230 CONTINUE XS = TSU(1) YS = TSU(2) IF (ABS(XS).GT.EPS1 .OR. ABS(YS).GT.EPS1) GO TO 1240 NEST(2) = SCSID J = 233 GO TO 1440 1240 THETAS = ATAN2(YS,XS) GO TO 1310 C C FLAGS IS 0, I.E. THETAS HAS BEEN SPECIFIED. C SUBROUTINE ANGTRS RETURNS THE 3X3 TRANSFORMATION USING THETAS. C NOTE THAT IF THETAS IS LEFT BLANK (DEFAULT), THE TRANSFORMATION C WILL BE IDENTITY, I.E. THE STRESSES WILL BE OUTPUT IN THE C ELEMENT COORDINATE SYSTEM. C IF Q4STRS IS SET EQUAL TO 1, STRESSES WILL BE OUTPUT IN THE E C.S. C WHICH COOINCIDES WITH MSC'S VERSION OF ELEMENT COORDINATE SYSTEM. C 1300 THETAS = EST(26)*DEGRAD 1310 IF (Q4STRS .EQ. 1) GO TO 1320 CALL ANGTRS (THETAS,0,TSU) CALL GMMATS (TSU,3,3,0, TEU,3,3,1, TSE) GO TO 1330 1320 CALL ANGTRS (THETAS,0,TSE) C T C CALCULATE TSI = TSE X PSITRN AND STORE IT IN PHIOUT C 1330 CALL GMMATS (TSE,3,3,0, PSITRN,3,3,1, PHIOUT(ICOUNT+2)) C C FOR CORNER POINTS (THE STRESS EVALUATION POINTS EXCEPT FOR THE C ONES AT THE CENTER), CALCULATE TSB-MATRIX AND STORE IT IN IELOUT. C IF (IXSI+IETA .GT. 4) GO TO 1340 IP = (IXSI-1)*2 + IETA IP1 = IPN(IP) IP2 = (IP1-1)*25 + 4 + (IZTA-1)*9 CALL GMMATS (TSE,3,3,0, TEB,3,3,0, RELOUT(IP2)) 1340 CONTINUE C C CALL Q4BMGS TO GET B MATRIX C SET THE ROW FLAG TO 3 TO CREATE THE FIRST 6 ROWS. THEN SET IT C TO 1 FOR THE LAST 2 ROWS. C ROWFLG = 3 CALL Q4BMGS (DSHP,GPTH,EGPDT,EPNORM,PHI,BMATRX(1)) DO 1350 IX = 1,NDOF 1350 BMATRX(IX+ND2) = XYBMAT(IBOT+IX) C IF (.NOT.BENDNG) GO TO 1370 ROWFLG = 1 CALL Q4BMGS (DSHP,GPTH,EGPDT,EPNORM,PHI,BMATRX(1+ND6)) DO 1360 IX = 1,NDOF 1360 BMATRX(IX+ND5) = XYBMAT(IBOT+IX+NDOF) 1370 CONTINUE C C C HERE WE SHIP OUT THE STRAIN RECOVERY MATRIX. C -------------------------------------------- C KCOUNT = ICOUNT + 32 + NNODE DO 1400 IPH = 1,ND8 1400 PHIOUT(KCOUNT+IPH) = BMATRX(IPH) 1410 CONTINUE 1420 CONTINUE RETURN C 1430 NOGO = 1 RETURN C 1440 CALL MESAGE (30,J,NAME) GO TO 1430 C C BEGINNING OF HEAT RECOVERY. C 1500 CONTINUE MATID = NEST(13) INFLAG = 2 NPHI(22) = 2 NPHI(23) = NNODE NPHI(24) = NAME(1) NPHI(25) = NAME(2) XI = 0.0 ETA = 0.0 CALL Q4SHPS (XI,ETA,SHP,DSHP) C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 1510 I = 1,4 TMPSHP(I ) = SHP (I ) DSHPTP(I ) = DSHP(I ) 1510 DSHPTP(I+4) = DSHP(I+4) DO 1520 I = 1,4 KK = IORDER(I) SHP (I ) = TMPSHP(KK ) DSHP(I ) = DSHPTP(KK ) 1520 DSHP(I+4) = DSHPTP(KK+4) C HZTA = 0.0 CALL JACOBS (ELID,SHP,DSHP,GPTH,EGPDT,EPNORM,JACOBE) IF (BADJAC) GO TO 1430 C DO 1530 I = 2,4 ECPT(I) = 0.0 DO 1530 J = 1,NNODE 1530 ECPT(I) = ECPT(I) + SHP(J)*BGPDT(I,J) C FLAGS = NEST(27) IF (FLAGS .EQ. 0) GO TO 1580 SCSID = NEST(26) IF (SCSID .LE. 0) GO TO 1540 NECPT(1) = SCSID CALL TRANSS (ECPT,TBS) CALL GMMATS (TBS,3,3,1, TUB,3,3,1, TSU) GO TO 1560 1540 DO 1550 I = 1,3 II = (I-1)*3 DO 1550 J = 1,3 JJ = (J-1)*3 1550 TSU(II+J) = TUB(I+JJ) 1560 CONTINUE XS = TSU(1) YS = TSU(2) IF (ABS(XS).GT.EPS1 .OR. ABS(YS).GT.EPS1) GO TO 1570 NEST(2) = SCSID J = 233 GO TO 1440 1570 THETAS = ATAN2(YS,XS) GO TO 1590 1580 THETAS = EST(26)*DEGRAD 1590 CALL ANGTRS (THETAS,0,TSU) SINMAT = 0.0 COSMAT = 1.0 CALL HMAT (ELID) PHIOUT(26) = KHEAT(1) PHIOUT(27) = KHEAT(2) PHIOUT(28) = KHEAT(2) PHIOUT(29) = KHEAT(3) C C BRANCH IF THERMAL CONDUCTIVITY KHEAT IS ISOTROPIC. C OTHERWISE, FIND TBM, TBS AND TMS AND COMPUTE THE KHEAT C TENSOR IN 2-DIMENSIONAL STRESS COORDINATE SYSTEM. C C COMMENTS FROM G.CHAN/UNISYS 10/88 C HMAT ROUTINE DOES NOT RETURN 'TYPE' IN COSMIC NASTRAN C SO WE CAN ONLY ASSUME THERMAL CONDUCTIVITY IS ISOTROPIC AND C BRANCH TO 1610 UNCONDITIOANLLY BY SETTING TYPE =-1 C TYPE =-1 C IF (TYPE.EQ.4 .OR. TYPE.EQ.-1) GO TO 1610 GO TO 290 1600 CONTINUE CALL GMMATS (TUM,3,3,1, TSU,3,3,1, TMS) TMS(3) = TMS(4) TMS(4) = TMS(5) CALL GMMATS (TMS,2,2,1, PHIOUT(26),2,2,0, TUM) CALL GMMATS (TUM,2,2,0, TMS,2,2,0, PHIOUT(26)) 1610 CONTINUE CALL GMMATS (TEU,3,3,1, JACOBE,3,3,0, JACOBU) CALL GMMATS (TSU,3,3,0, JACOBU,3,3,0, JACBS) DO 1620 J = 1,NNODE DQ(J) = DSHP(J) JN = J + NNODE DQ(JN) = DSHP(J+4) JN = JN + NNODE 1620 DQ(JN) = 0.0 CALL GMMATS (JACBS,3,3,0, DQ,3,NNODE,0, PHIOUT(35)) RETURN C 1700 FORMAT (A23,', QUAD4 ELEMENT HAS UNDEFINED THICKNESS. ELEMENT', 1 ' ID =',I8,', SIL ID =',I8) 1710 FORMAT (A23,', MODULE SDR2 DETECTS BAD OR REVERSE GEOMETRY FOR ', 1 'ELEMENT ID =',I8) END ================================================ FILE: mis/squd42.f ================================================ SUBROUTINE SQUD42 C C PHASE 2 STRESS RECOVERY FOR 4-NODE ISOPARAMETRIC QUADRILATERAL C SHELL ELEMENT (QUAD4) C C NOTE - FOR LAMINATED COMPOSITE ELEMENTS THE FOLLOWING ARE C NOT SUPPORTED C C 1. VARIABLE GRID POINT THICKNESS C 3. TEMPERATURE AT 'FIBRE' DISTANCE C C ALSO STRESSES ARE ONLY EVALUATED AT THE ELEMENT CENTRE C AND SIMILARILY FOR STRESS RESULTANTS C C C ALGORITHM - C C 1- STRAIN RECOVERY DATA IS SENT BY PHASE 1 THRU 'PHIOUT', C WHICH INCLUDES ALL THE NECESSARY TRANSFORMATIONS AND C STRAIN RECOVERY MATRICES. THE DATA IS REPEATED FOR EACH C STRESS EVALUATION POINT. C 2- GLOBAL DISPLACEMENT VECTOR ENTERS THE ROUTINE IN CORE. C 3- BASED ON THE DATA IN /SDR2X4/, LOCATION OF THE GLOBAL C DISPLACEMENT VECTOR FOR THE CURRENT SUBCASE IS DETERMINED. C 4- WORD 132 OF /SDR2DE/ CONTAINS THE STRESS OUTPUT REQUEST C OPTION FOR THE CURRENT SUBCASE. C 5- ELEMENT/GRID POINT TEMPERATURE DATA ENTERS THE ROUTINE C THRU /SDR2DE/ (POSITIONS 97-103, 104-129 NOT USED.) C 6- ELEMENT STRAINS ARE CALCULATED, CORRECTED FOR THERMAL C STRAINS, AND PREMULTIPLIED BY G-MATRIX. C EXTERNAL ANDF LOGICAL EXTRM,LAYER,COMPOS,GRIDS,INTGS,MAXSH,VONMS,BENDNG, 1 TRNFLX,TEMPP1,TEMPP2,SNRVRX,SNRVRY,FOUR,PCMP, 2 PCMP1,PCMP2,DEBUG CWKBNB NCL93012 3/94 LOGICAL OSTRAI REAL EPSAVG(6) CWKBNE NCL93012 3/94 INTEGER INTZ(1),IGRID(5),NPHI(2395),NSTRES(86),ELID, 1 KSIL(8),IORDER(8),CENTER,NFORS(46),EXTRNL, CWKBR 3/95 SPR94017 2 INDXG2(3,3),INDX(6,3),OPRQST,FLAG,IPN(5),COMPS, 2 INDXG2(3,3),INDX(6,3),FLAG,IPN(5),COMPS, 3 OES1L,OEF1L,PCOMP,PCOMP1,PCOMP2,PIDLOC,SYM,SYMMEM, 4 SOUTI,FTHR,STRAIN,ELEMID,PLYID,ANDF,SDEST,FDEST C 5, GPSTRS,INDEXU(3,3),INDEXV(2,3) REAL MOMINR,KHIT,MINTR,TDELTA(6),DELTA(48),TSTB(5,5), 1 TSTT(5,5),TSTN(50),DELTAT(8),U(36),G(36),G2(9), 2 ALFAM(3),ALFAB(3),Z1(5),Z2(5),GPTH(4),STRES(86), 3 G3(4),TMI(9),TRANS(9),STRNT(3),STRNB(3),STRNTC(3), 4 STRNBC(3),EPST(3),EPSB(3),EPSE(3),EPSTOT(3),FB(2), 5 EPSLNE(3),STRESL(3),STRESE(3),EZEROT(6),ALPHA(3), 6 V(2),EI(2),ZBAR(2),TRNAR(2),TRNSHR(2),ULTSTN(6), 7 ABBD(6,6),STIFF(36),MTHER(6),DUMC(6),STEMP(8) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ KSYSTM(60) COMMON /SDR2C1/ IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2, 1 NSTROP COMMON /SDR2X2/ DUMM(30),OES1L,OEF1L COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP COMMON /SDR2X7/ PHIOUT(2395) COMMON /SDR2X8/ SIGMA(3),ICOUNT,NSTOT,THIKNS(5),ISTRES,KPOINT, 1 EXTRNL(8),TSTR(50),XPOINT(2),SHPFNC(4),EPSLN(8), 2 KHIT(3),G2ALFB(30),TST(20),TES(9),TESU(9),TESV(4), 3 REALI(5),GT(36),EPSLNT(6),TSIGMA(8),SIGNX(4), 4 SIGNY(4),VXCNTR,VYCNTR,FXCNTR,FYCNTR,FXYCNT, 5 STRX(2),STRY(2),STRS(2),FORSUL(46) COMMON /SDR2DE/ KSDRDE(141) CWKBR NCL93012 3/94 COMMON /BLANK / APP(2),SORT2,IDUM(2),COMPS COMMON /BLANK / APP(2),SORT2,IDUM(2),COMPS,SKP(4),OSTRAI COMMON /CONDAS/ PI,TWOPI,RADDEG,DEGRAD EQUIVALENCE (Z(1) ,INTZ(1) ), (NFORS(1) ,FORSUL(1) ), 1 (NPHI(1),PHIOUT(1) ), (NSTRES(1),STRES(1) ), 2 (ELID ,NPHI(1) ), (KSIL(1) ,NPHI(2) ), 3 (TSUB0 ,PHIOUT(18)), (IORDER(1),NPHI(10) ), 4 (AVGTHK ,PHIOUT(21)), (MOMINR ,PHIOUT(22)), 5 (G(1) ,PHIOUT(23)), (ALFAM(1) ,PHIOUT(59)), 6 (GPTH(1),PHIOUT(65)), (ALFAB(1) ,PHIOUT(62)), 7 (IPID ,NPHI(79) ), (KSTRS ,KSDRDE(42)), 8 (KFORCE ,KSDRDE(41)), (STEMP(1) ,KSDRDE(97)), 9 (SDEST ,KSDRDE(26)), (FDEST ,KSDRDE(33)), O (NOUT ,KSYSTM(2) ), (STEMP(7) ,FLAG ) C 1, (INDEXU(1,1),INDEXV(1,1)) DATA DEBUG / .FALSE. / DATA CENTER/ 4HCNTR / DATA CONST / 0.57735026918962/ DATA EPSS / 1.0E-11 / DATA EPSA / 1.0E-7 / DATA IPN / 1,4,2,3,5/ DATA PCOMP / 0 / DATA PCOMP1/ 1 / DATA PCOMP2/ 2 / DATA SYM / 1 / DATA MEM / 2 / DATA SYMMEM/ 3 / DATA STRAIN/ 5 / C C DEFINE PHIOUT(2395), THE TRANSMITTED DATA BLOCK C C ADDRESS DESCRIPTIONS C C 1 ELID C 2 - 9 SIL NUMBERS C 10 - 17 IORDER C 18 TREF C 19 - 20 FIBRE DISTANCES Z1, Z2 AS SPECIFIED ON PSHELL CARD C 21 AVGTHK- AVERAGE THICKNESS OF THE ELEMENT C 22 MOMINR- MOMENT OF INERTIA FACTOR C 23 - 58 GBAR-MATRIX, 6X6 MATRIX OF MATERIAL PROPERTY (W/O G3) C 59 - 61 THERMAL EXPANSION COEFFICIENTS FOR MEMBRANE C 62 - 64 THERMAL EXPANSION COEFFICIENTS FOR BENDING C 65 - 68 CORNER NODE THICKNESSES C 69 - 77 TUM-MATRIX, 3X3 TRANSFORMATION FROM MATERIAL TO USER C DEFINED COORDINATE SYSTEM C 78 OFFSET OF ELEMENT FROM GP PLANE C 79 ORIGINAL PROPERTY ID FOR COMPOSITES C 80 - 79+9*NNODE C TEG-MATRIX, A 3X3 MATRIX FOR THE TRANSFORMATION C MATRIX FROM GLOBAL COORD TO ELMT COORD FOR C EACH NODE. C TEG-MATRIX, 3X3 DATA ARE REPEATED FOR NNODES C -------- C START FROM PHIOUT(79+9*NNODE+1) AS A REFERENCE ADDRESS C 79+9*4 +1= 116 C C ADDRESS DESCRIPTIONS C C 1 T, MEMBRANE THICKNESS AT THIS EVALUATION POINT C 2 - 10 TES-MATRIX, A 3X3 TRANSFORMATION MATRIX FROM ELEM. C C.S. TO USER DEFINED STRESS C.S. AT THIS C EVALUATION POINT C 11 - 19 CORRECTION TO GBAR-MATRIX FOR MEMBRANE-BENDING C COUPLING AT THIS EVALUATION POINT C 20 - 28 TMI-MATRIX, 3X3 TRANSFORMATION FROM TANGENT TO MATERIA C 29 - 32 G3-MATRIX C 33 - 32+NNODE C ELEMENT SHAPE FUNCTION VALUES AT THIS EVAL. POINT C 32+NNODE+1 - C 32+NNODE+8*NDOF C B-MATRIX, 8 X NDOF C C -------- ABOVE DATA BATCH REPEATED 10 TIMES C C TOTAL PHIOUT WORDS = (116-1) + (32+4+8*(6*4))*10 C = 115 + (32+4+192)*10 = 115 + 2280 = 2395 C C C DEFINE STRES (TOTAL OF 86 WORDS), THE STRESS OUTPUT DATA BLOCK C C ADDRESS DESCRIPTIONS C C 1 ELID C ------------------------------------------------------- C 2 INTEGRATION POINT NUMBER C 3 - 10 STRESSES FOR LOWER POINTS C 11 - 18 STRESSES FOR UPPER POINTS C --------- ABOVE DATA REPEATED 4 TIMES C 70 - 86 STRESSES FOR CENTER POINT C C DEFINE FORSUL (TOTAL OF 46 WORDS), THE FORCE RESULTANT OUTPUT C DATA BLOCK. C C ADDRESS DESCRIPTIONS C C 1 ELID C ------------------------------------------------ C 2 GRID POINT NUMBER C 3 - 10 FORCES C -------- ABOVE DATA REPEATED 4 TIMES C 38 - 46 FORCES FOR CENTER POINT C C NSTOT = NUMBER OF DATA OUTPUT THRU 'STRES' C NFORCE = NUMBER OF DATA OUTPUT THRU 'FORSUL' C NNODE = TOTAL NUMBER OF NODES C NDOF = TOTAL NUMBER OF DEGREES OF FREEDOM C LDTEMP = SWITCH TO DETERMINE IF THERMAL EFFECTS ARE PRESENT C ICOUNT = POINTER FOR PHIOUT DATA C C STAGE 1 - INITIALIZATION C ========================= C CWKBNB 3/95 SPR94017 DO 5 I = 1,6 EPSAVG( I ) = 0. 5 CONTINUE CWKBNE 3/95 SPR94017 NSTOT = 1 + 5 + 5*2*8 NFORCE= 1 + 5*9 NNODE = 0 DO 10 ICHK = 1,8 IF (KSIL(ICHK) .GT. 0) NNODE = NNODE + 1 10 EXTRNL(ICHK) = 0 NDOF = 6*NNODE FOUR = NNODE .EQ. 4 C C COMMENTS FROM G.C. 2/1990 C EXTRNL ARE SET TO ZEROS ABOVE AND NEVER SET TO ANY VALUE LATER. C IT IS THEN USED TO SET IGRID. WHAT'S EXTRNL FOR? C THE ANSWER IS THAT EXTRNL AND IGRID ARE USED ONLY WHEN GRIDS FLAG C IS TRUE. GRIDS IS FALSE IN COSMIC VERSION. C C ALSO, A MISSING ROUTINE, FNDGID, SUPPOSELY RETURNS EXTERNAL GRID C NUMBER FROM SIL INDEX. FNDGID IS LOCATED A FEW LINES BELOW 80 C C CHECK THE OUTPUT AND STRESS REQUEST C GRIDS = .FALSE. INTGS = .TRUE. MAXSH = ANDF(NSTROP,1) .EQ. 0 VONMS = ANDF(NSTROP,1) .NE. 0 EXTRM = ANDF(NSTROP,2) .EQ. 0 LAYER = ANDF(NSTROP,2) .NE. 0 BENDNG= MOMINR .GT. 0.0 C C NOTE - MAXSH AND EXTRM ARE NO LONGER USED C C IF LAYERED STRESS/STARIN OUTPUT IS REQUESTED, AND THERE ARE NO C LAYERED COMPOSITE DATA, SET LAYER FLAG TO FALSE C IF (LAYER .AND. NPCMP+NPCMP1+NPCMP2.LE.0) LAYER = .FALSE. C C IF LAYERED OUTPUT IS REQUESTED BUT THE CURRENT ELEMENT IS NOT A C LAYERED COMPOSITE, SET LAYER FLAG TO FALSE C IF (LAYER .AND. IPID.LT.0) LAYER = .FALSE. C CWKBDB 3/95 SPR94017 C OPRQST = -2 C IF (KSTRS .EQ. 1) OPRQST = OPRQST + 1 C IF (KFORCE .EQ. 1) OPRQST = OPRQST + 2 CWKBI NCL93012 3/94 C IF ( OSTRAI ) OPRQST = OPRQST + 1 C IF (OPRQST .EQ.-2) RETURN CWKBDE 3/95 SPR94017 CWKBI 3/95 SPR94017 IF ( ( KSTRS .NE. 1 ) .AND. & ( KFORCE .NE. 1 ) .AND. & (.NOT.OSTRAI) )RETURN C C CHECK FOR FIBRE DISTANCES Z1 AND Z2 BEING BLANK C LOGZ12 = -4 IF (NPHI(19) .EQ. 0) LOGZ12 = LOGZ12 + 2 IF (NPHI(20) .EQ. 0) LOGZ12 = LOGZ12 + 4 C C CHECK FOR THE TYPE OF TEMPERATURE DATA C NOTES 1- TYPE TEMPP1 ALSO INCLUDES TYPE TEMPP3 C 2- IF NIETHER TYPE IS TRUE, GRID POINT TEMPERATURES C ARE PRESENT. C TEMPP1 = FLAG .EQ. 13 TEMPP2 = FLAG .EQ. 2 C C CHECK FOR OFFSET AND COMPOSITES C OFFSET = PHIOUT(78) COMPOS = COMPS.EQ.-1 .AND. IPID.GT.0 C C ZERO OUT STRESS AND FORCE RESULTANT ARRAYS C DO 20 K = 1,NSTOT 20 STRES(K) = 0.0 DO 30 I = 1,NFORCE 30 FORSUL(I)= 0.0 NSTRES(1)= ELID NFORS(1) = ELID C C ZERO OUT THE COPY OF GBAR-MATRIX TO BE USED BY THIS ROUTINE C DO 40 K = 1,36 40 GT(K) = 0.0 C C STAGE 2 - ARRANGEMENT OF INCOMING DATA C ====================================== C C SORT THE GRID TEMPERATURE CHANGES INTO SIL ORDER (IF PRESENT) C IF (LDTEMP .EQ. -1) GO TO 60 IF (TEMPP1 .OR. TEMPP2) GO TO 60 C C DO 50 K = 1,NNODE C KPOINT = IORDER(K) C 50 DELTAT(K) = STEMP(KPOINT) C C COMMENTS FORM G.CHAN/UNISYS 2/93 C THE ABOVE DO 50 LOOP DOES NOT WORK SINCE STEMP(2 THRU NNODE) = 0.0 C DO 50 K = 1,NNODE 50 DELTAT(K) = STEMP(1) C C PICK UP THE GLOBAL DISPLACEMENT VECTOR AND TRANSFORM IT C INTO THE ELEMENT C.S. C 60 DO 80 IDELT = 1,NNODE JDELT = IVEC + KSIL(IDELT) - 2 KDELT = 6*(IDELT-1) DO 70 LDELT = 1,6 TDELTA(LDELT) = Z(JDELT+LDELT) 70 CONTINUE C C FETCH TEG-MATRIX 3X3 FOR EACH NODE AND LOAD IT IN A 6X6 MATRIX C INCLUDE THE EFFECTS OF OFFSET C CALL TLDRS (OFFSET,IDELT,PHIOUT(80),U) CALL GMMATS (U,6,6,0, TDELTA,6,1,0, DELTA(KDELT+1)) 80 CONTINUE C C GET THE EXTERNAL GRID POINT ID NUMBERS FOR CORRESPONDING SIL C NUMBERS. C C CALL FNDGID (ELID,8,KSIL,EXTRNL) C C STAGE 3 - CALCULATION OF STRAINS C ================================ C C INTEGRATION DATA IN PHIOUT IS ARRANGED IN ETA, XI INCREASING C SEQUENCE. C ISIG = 1 ICOUNT= -(8*NDOF+NNODE+32) + 79 + 9*NNODE C DO 350 INPLAN = 1,5 INPLN1 = IPN(INPLAN) C C MATCH GRID ID NUMBER WHICH IS IN SIL ORDER C IF (INPLAN .EQ. 5) GO TO 100 DO 90 I = 1,NNODE IF (IORDER(I) .NE. INPLN1) GO TO 90 IGRID(INPLAN) = EXTRNL(I) GO TO 110 90 CONTINUE GO TO 110 C 100 IGRID(INPLAN) = CENTER 110 CONTINUE C DO 340 IZTA = 1,2 ZETA = (IZTA*2-3)*CONST C ICOUNT = ICOUNT + 8*NDOF + NNODE + 32 IF (IZTA .EQ. 2) GO TO 160 C C THICKNESS AND MOMENT OF INERTIA AT THIS POINT C THIKNS(INPLAN) = PHIOUT(ICOUNT+1) IF (GRIDS .AND. INPLAN.NE.5) THIKNS(INPLAN) = GPTH(INPLN1) REALI(INPLAN) = MOMINR*THIKNS(INPLAN)**3/12.0 C C DETERMINE FIBER DISTANCE VALUES C IF (LOGZ12 .EQ. -4) GO TO 150 IF (LOGZ12) 120,130,140 C 120 Z1(INPLAN) = -0.5*THIKNS(INPLAN) Z2(INPLAN) = PHIOUT(20) GO TO 160 C 130 Z1(INPLAN) = PHIOUT(19) Z2(INPLAN) = 0.5*THIKNS(INPLAN) GO TO 160 C 140 Z1(INPLAN) = -0.5*THIKNS(INPLAN) Z2(INPLAN) = -Z1(INPLAN) GO TO 160 C 150 Z1(INPLAN) = PHIOUT(19) Z2(INPLAN) = PHIOUT(20) 160 CONTINUE C C FIRST COMPUTE LOCAL STRAINS UNCORRECTED FOR THERMAL STRAINS C AT THIS EVALUATION POINT. C C EPSLN = PHIOUT(KSIG) * DELTA C EPS = B * U C 8X1 8XNDOF NDOFX1 C KSIG = ICOUNT+NNODE+33 CALL GMMATS (PHIOUT(KSIG),8,NDOF,0, DELTA(1),NDOF,1,0, EPSLN) C C CALCULATE THERMAL STRAINS IF TEMPERATURES ARE PRESENT C IF (LDTEMP .EQ. -1) GO TO 260 DO 170 IET = 1,6 170 EPSLNT(IET) = 0.0 C C A) MEMBRANE STRAINS C IF (TEMPP1 .OR. TEMPP2) GO TO 190 C C GRID TEMPERATURES C KSHP = ICOUNT + 32 TBAR = 0.0 DO 180 ISH = 1,NNODE KSH = KSHP + ISH 180 TBAR = TBAR + PHIOUT(KSH)*DELTAT(ISH) TMEAN= TBAR GO TO 200 C C ELEMENT TEMPERATURES C 190 TBAR = STEMP(1) 200 TBAR = TBAR - TSUB0 DO 210 IEPS = 1,3 210 EPSLNT(IEPS) = -TBAR*ALFAM(IEPS) C C B) BENDING STRAINS (ELEMENT TEMPERATURES ONLY) C IF (.NOT.BENDNG) GO TO 260 IF (.NOT.(TEMPP1 .OR. TEMPP2)) GO TO 260 C C EXTRACT G2-MATRIX FROM GBAR-MATRIX AND CORRECT IT FOR COUPLING C IG21 = 0 DO 220 IG2 = 1,3 IG22 = (IG2-1)*6 + 21 DO 220 JG2 = 1,3 IG21 = IG21 + 1 JG22 = JG2 + IG22 220 G2(IG21) = G(JG22) + PHIOUT(ICOUNT+10+IG21) C IG2AB = (ISIG*3)/5 + 1 CALL GMMATS (G2,3,3,0, ALFAB,3,1,0, G2ALFB(IG2AB)) C IF (TEMPP1) GO TO 240 CALL INVERS (3,G2,3,GDUM,0,DETG2,ISNGG2,INDXG2) CALL GMMATS (G2,3,3,0, STEMP(2),3,1,0, KHIT) DO 230 IEPS = 4,6 230 EPSLNT(IEPS) = KHIT(IEPS-3)*ZETA*THIKNS(INPLAN)/(2.*REALI(INPLAN)) GO TO 260 C 240 TPRIME = STEMP(2) DO 250 IEPS = 4,6 250 EPSLNT(IEPS) = -TPRIME*ALFAB(IEPS-3)*ZETA*THIKNS(INPLAN)/2. C C MODIFY GBAR-MATRIX C 260 I1 = -6 I2 = 12 I3 = 11 + ICOUNT DO 270 I = 1,3 I1 = I1 + 6 I2 = I2 + 6 DO 270 J = 1,3 J1 = J + I1 J3 = J1 + 3 J4 = J + I2 J2 = J4 + 3 GT(J1) = G(J1) GT(J2) = G(J2) GT(J3) = G(J3) + PHIOUT(I3) GT(J4) = G(J4) + PHIOUT(I3) 270 I3 = I3 + 1 C C DETERMINE G MATRIX FOR THIS EVALUATION POINT C DO 280 I = 1,4 280 G3(I) = PHIOUT(ICOUNT+28+I) C IF (LDTEMP .EQ. -1) GO TO 300 C C CORRECT STRAINS FOR THERMAL EFFECTS C DO 290 I = 1,6 290 EPSLN(I) = EPSLN(I) + EPSLNT(I) C C CALCULATE STRESS VECTOR C 300 CALL GMMATS (GT(1),6,6,0, EPSLN(1),6,1,0, TSIGMA(1)) CALL GMMATS (G3(1),2,2,0, EPSLN(7),2,1,0, TSIGMA(7)) CWKBNB NCL93012 3/94 IF ( IZTA .NE. 1 ) GO TO 303 DO 301 IAV = 1, 3 EPSAVG(IAV) = EPSAVG(IAV) + EPSLN(IAV) 301 CONTINUE DO 302 IAV = 4, 6 EPSAVG(IAV) = EPSAVG(IAV) + EPSLN(IAV) / CONST 302 CONTINUE 303 CONTINUE CWKBNE NCL93012 3/94 IF (.NOT.BENDNG) GO TO 320 C C COMBINE STRESSES ONLY IF 'BENDING' C DO 310 I = 1,3 310 TSIGMA(I) = TSIGMA(I+3) C 320 CONTINUE C C TRANSFORM STRESSES FROM ELEMENT TO STRESS C.S. C DO 330 I = 1,9 330 TES(I) = PHIOUT(ICOUNT+1+I) C TESU(1) = TES(1)*TES(1) TESU(2) = TES(4)*TES(4) TESU(3) = TES(1)*TES(4) TESU(4) = TES(2)*TES(2) TESU(5) = TES(5)*TES(5) TESU(6) = TES(2)*TES(5) TESU(7) = TES(1)*TES(2)*2.0 TESU(8) = TES(4)*TES(5)*2.0 TESU(9) = TES(1)*TES(5) + TES(2)*TES(4) C CALL GMMATS (TESU(1),3,3,1, TSIGMA(1),3,1,0, TSTR(ISIG)) C TESV(1) = TES(5)*TES(9) + TES(6)*TES(8) TESV(2) = TES(2)*TES(9) + TES(8)*TES(3) TESV(3) = TES(4)*TES(9) + TES(7)*TES(6) TESV(4) = TES(1)*TES(9) + TES(3)*TES(7) C ISIG = ISIG + 3 CALL GMMATS (TESV(1),2,2,1, TSIGMA(7),2,1,0, TSTR(ISIG)) C 340 ISIG = ISIG + 2 350 CONTINUE C C IF REQUIRED, EXTRAPOLATE STRESSES FROM INTEGRATION POINTS C TO CORNER POINTS. C C FIRST EXTRAPOLATE ACROSS ZETA, REGARDLESS OF INPLANE REQUEST C DO 370 IKK = 1,5 ITB = (IKK-1)*10 DO 360 IJJ = 1,5 TSTB(IKK,IJJ) = TSTR(ITB+ IJJ) TSTT(IKK,IJJ) = TSTR(ITB+5+IJJ) 360 CONTINUE 370 CONTINUE C X1 = -CONST X2 = -X1 C DO 380 K = 1,2 IK = 0 XX = -1.0 IF (K .EQ. 2) XX =-XX IF (K .EQ. 2) IK = 5 C XN22 = (XX-X1)/(X2-X1) XN11 = 1.0 - XN22 C DO 380 I = 1,5 IKKN = (I-1)*10 + IK DO 380 J = 1,5 380 TSTN(IKKN+J) = TSTB(I,J)*XN11 + TSTT(I,J)*XN22 C DO 390 II = 1,50 390 TSTR(II) = TSTN(II) C IF (INTGS .OR. COMPOS) GO TO 540 C IXTR = 5 JXTR = IXTR*4 C IZ1 = 0 DO 530 IZ = 1,2 C DO 400 I = 1,JXTR 400 TST(I) = 0.0 C C FOR THE SAKE OF COMPATIBILITY BETWEEN THE CONVENTION FOR C SHEAR FORCES, AND THE CONVENTION FOR EXTRAPOLATION, WE MAY C HAVE TO CHANGE THE SIGNS AROUND FOR SPECIFIC POINTS. THEY C WILL BE RETURNED TO THE ORIGINAL SIGNS AFTER EXTRAPOLATION IS C COMPLETE. C CWKBR 3/95 SPR94017 IF (OPRQST .LT. 0) GO TO 460 IF ( KFORCE .NE. 1 ) GO TO 460 DO 440 I = 1,4 J = (I-1)*2*IXTR + IZ1 + 4 IF (TSTR(J) .EQ. 0.0) GO TO 410 SIGNY(I) = TSTR(J)/ABS(TSTR(J)) GO TO 420 410 SIGNY(I) = 0.0 420 IF (TSTR(J+1) .EQ. 0.0) GO TO 430 SIGNX(I) = TSTR(J+1)/ABS(TSTR(J+1)) GO TO 440 430 SIGNX(I) = 0.0 440 CONTINUE C SNRVRY = .FALSE. IF (SIGNY(1)*SIGNY(2).LE.0.0 .OR. SIGNY(3)*SIGNY(4).LE.0.0 .OR. 1 SIGNY(3)*SIGNY(1).LE.0.0) SNRVRY = .TRUE. SNRVRX = .FALSE. IF (SIGNX(1)*SIGNX(2).LE.0.0 .OR. SIGNX(3)*SIGNX(4).LE.0.0 .OR. 1 SIGNX(3)*SIGNX(1).LE.0.0) SNRVRX = .TRUE. C IF (.NOT.SNRVRY) GO TO 450 TSTR(IZ1+4) = -TSTR(IZ1+4) TSTR(IZ1+4+4*IXTR) = -TSTR(IZ1+4+4*IXTR) 450 IF (.NOT.SNRVRX) GO TO 460 TSTR(IZ1+5) = -TSTR(IZ1+5) TSTR(IZ1+5+2*IXTR) = -TSTR(IZ1+5+2*IXTR) 460 CONTINUE C XPOINT(1) = -1.0 XPOINT(2) = +1.0 IR = 0 C DO 490 IX = 1,2 XI = XPOINT(IX) C DO 490 IE = 1,2 ETA = XPOINT(IE) C SHPFNC(1) = 0.75*(CONST-XI)*(CONST-ETA) SHPFNC(2) = 0.75*(CONST-XI)*(CONST+ETA) SHPFNC(3) = 0.75*(CONST+XI)*(CONST-ETA) SHPFNC(4) = 0.75*(CONST+XI)*(CONST+ETA) C LI = IR*IXTR IR = IR + 1 C DO 480 IS = 1,4 LK = (IS-1)*2*IXTR + IZ1 C DO 470 IT = 1,IXTR TST(LI+IT) = TST(LI+IT) + SHPFNC(IS)*TSTR(LK+IT) 470 CONTINUE 480 CONTINUE 490 CONTINUE C J1 = 0 DO 500 IS = 1,4 J2 = (IS-1)*2*IXTR + IZ1 DO 500 JS = 1,IXTR J1 = J1 + 1 J2 = J2 + 1 500 TSTR(J2) = TST(J1) C C CHANGE THE SIGNS BACK, IF NECESSARY C CWKBR 3/95 SPR94017 IF (OPRQST .LT. 0) GO TO 520 IF ( KFORCE .NE. 1 ) GO TO 520 IF (.NOT.SNRVRY) GO TO 510 TSTR(IZ1+4) = -TSTR(IZ1+4) TSTR(IZ1+4+4*IXTR) = -TSTR(IZ1+4+4*IXTR) 510 IF (.NOT.SNRVRX) GO TO 520 TSTR(IZ1+5) = -TSTR(IZ1+5) TSTR(IZ1+5+2*IXTR) = -TSTR(IZ1+5+2*IXTR) 520 CONTINUE 530 IZ1 = IZ1 + IXTR 540 CONTINUE C C STAGE 4 - CALCULATION OF OUTPUT STRESSES C ======================================== C CWKBR 3/95 SPR94017 IF (OPRQST .EQ. 0) GO TO 740 IF ( (KSTRS .NE. 1) .AND. (.NOT. OSTRAI) ) GO TO 740 C CWKBNB NCL93012 3/94 DO 731 IAV = 1, 3 EPSAVG(IAV) = EPSAVG(IAV) / 5. 731 CONTINUE DO 732 IAV = 4, 6 EPSAVG(IAV) = EPSAVG(IAV) / ( 5. * PHIOUT(21)/2. ) 732 CONTINUE CWKBNE NCL93012 3/94 ISIG = 0 IG2A = 0 STRX(1) = 0.0 STRX(2) = 0.0 STRY(1) = 0.0 STRY(2) = 0.0 STRS(1) = 0.0 STRS(2) = 0.0 DO 730 INPLAN = 1,5 INPLN1 = INPLAN IF (INPLAN .EQ. 2) INPLN1 = 4 IF (INPLAN .EQ. 3) INPLN1 = 2 IF (INPLAN .EQ. 4) INPLN1 = 3 C ISTRES = (INPLN1-1)*17 + 2 C IDPONT = IGRID(INPLAN) IF (INTGS) IDPONT = INPLN1 IF (INTGS .AND. INPLAN.EQ.5) IDPONT = CENTER NSTRES(ISTRES) = IDPONT THICK = THIKNS(INPLAN) C DO 720 IZ = 1,2 IF (IZ .EQ. 2) ISTRES = ISTRES + 8 FIBRE = Z1(INPLAN) IF (IZ .EQ. 2) FIBRE = Z2(INPLAN) CWKBNB NCL93012 3/94 IF ( .NOT. OSTRAI ) GO TO 545 IF ( IZ .NE. 1 ) GO TO 542 NSTRES( ISTRES+1 ) = 0 SIGMA( 1 ) = EPSAVG( 1 ) SIGMA( 2 ) = EPSAVG( 2 ) SIGMA( 3 ) = EPSAVG( 3 ) GO TO 630 542 CONTINUE NSTRES( ISTRES+1 ) = -1 SIGMA( 1 ) = EPSAVG( 4 ) SIGMA( 2 ) = EPSAVG( 5 ) SIGMA( 3 ) = EPSAVG( 6 ) GO TO 630 545 CONTINUE CWKBNE NCL93012 3/94 STRES(ISTRES+1) = FIBRE C C EVALUATE STRESSES AT THIS FIBRE DISTANCE C DO 550 I = 1,3 SIGMA(I) = (0.5-FIBRE/THICK)*TSTR(ISIG+I) + (0.5+FIBRE/THICK) 1 *TSTR(ISIG+I+5) 550 CONTINUE C C IF TEMPERATURES ARE PRESENT, CORRECT STRESSES FOR THERMAL C STRESSES ASSOCIATED WITH THE DATA RELATED TO FIBRE DISTANCES. C IF (LDTEMP .EQ. -1) GO TO 610 C C IF NO BENDING, TREAT IT LIKE GRID POINT TEMPERATURES C IF (.NOT.BENDNG) GO TO 610 IF (TEMPP1) GO TO 560 IF (TEMPP2) GO TO 570 GO TO 610 C 560 TSUBI = STEMP(2+IZ) IF (ABS(TSUBI) .LT. EPSS) GO TO 610 TSUBI = TSUBI - TPRIME*FIBRE GO TO 590 C 570 TSUBI = STEMP(4+IZ) IF (ABS(TSUBI) .LT. EPSS) GO TO 610 DO 580 IST = 1,3 580 SIGMA(IST) = SIGMA(IST) - STEMP(IST+1)*FIBRE/REALI(INPLAN) 590 TSUBI = TSUBI - TBAR DO 600 ITS = 1,3 SIGMA(ITS) = SIGMA(ITS) - TSUBI*G2ALFB(IG2A+ITS) 600 CONTINUE C C AVERAGE THE VALUES FROM OTHER 4 POINTS FOR THE CENTER POINT C 610 IF (INPLAN .EQ. 5) GO TO 620 STRX(IZ) = STRX(IZ) + 0.25*SIGMA(1) STRY(IZ) = STRY(IZ) + 0.25*SIGMA(2) STRS(IZ) = STRS(IZ) + 0.25*SIGMA(3) GO TO 630 620 SIGMA(1) = STRX(IZ) SIGMA(2) = STRY(IZ) SIGMA(3) = STRS(IZ) 630 DO 640 IS = 1,3 640 STRES(ISTRES+1+IS) = SIGMA(IS) C C CALCULATE PRINCIPAL STRESSES C SIGAVG = 0.5*(SIGMA(1) + SIGMA(2)) PROJ = 0.5*(SIGMA(1) - SIGMA(2)) TAUMAX = PROJ*PROJ + SIGMA(3)*SIGMA(3) CWKBNB 7/94 SPR94004 IF ( .NOT. OSTRAI ) GO TO 645 TAUMAX = PROJ*PROJ + SIGMA(3)*SIGMA(3)/4. GO TO 649 645 CONTINUE CWKBNE 7/94 SPR94004 IF (ABS(TAUMAX) .LE. EPSS) GO TO 650 CWKBI 7/94 SPR94004 649 CONTINUE TAUMAX = SQRT(TAUMAX) GO TO 660 650 TAUMAX = 0.0 C C PRINCIPAL ANGLE C 660 TXY2 = SIGMA(3)*2.0 PROJ = PROJ*2.0 IF (ABS(TXY2).LE.EPSA .AND. ABS(PROJ).LE.EPSA) GO TO 670 STRES(ISTRES+5) = 28.647890*ATAN2(TXY2,PROJ) GO TO 680 670 STRES(ISTRES+5) = 0.0 680 SIGMA1 = SIGAVG + TAUMAX SIGMA2 = SIGAVG - TAUMAX STRES(ISTRES+6) = SIGMA1 STRES(ISTRES+7) = SIGMA2 C C OUTPUT VON MISES YIELD STRESS IF ASKED FOR BY THE USER C IF (VONMS) GO TO 690 STRES(ISTRES+8) = TAUMAX CWKBI NCL93012 3/94 IF ( OSTRAI ) STRES(ISTRES+8) = 2.*TAUMAX GO TO 720 C 690 SIGYP = SIGMA1*SIGMA1 + SIGMA2*SIGMA2 - SIGMA1*SIGMA2 IF (ABS(SIGYP) .LE. EPSS) GO TO 700 SIGYP = SQRT(SIGYP) GO TO 710 700 SIGYP = 0.0 710 STRES(ISTRES+8) = SIGYP C 720 IG2A = IG2A + 3 730 ISIG = ISIG + 10 CWKBNB NCL93012 3/94 DO 733 IAV = 1, 6 EPSAVG( IAV ) = 0. 733 CONTINUE CWKBNE NCL93012 3/94 C C STAGE 5 - ELEMENT FORCE OUTPUT C ============================== C 740 IF (LAYER) GO TO 750 CWKBR 3/95 SPR94017 IF (OPRQST .LT. 0) GO TO 790 IF ( KFORCE .NE. 1 ) GO TO 790 C 750 CONTINUE ISIG = 0 VXCNTR = 0.0 VYCNTR = 0.0 FXCNTR = 0.0 FYCNTR = 0.0 FXYCNT = 0.0 DO 780 INPLAN = 1,5 INPLN1 = INPLAN IF (INPLAN .EQ. 2) INPLN1 = 4 IF (INPLAN .EQ. 3) INPLN1 = 2 IF (INPLAN .EQ. 4) INPLN1 = 3 THICK = THIKNS(INPLAN) C IFORCE = (INPLN1-1)*9 + 2 C IDPONT = IGRID(INPLAN) IF (INTGS) IDPONT = INPLN1 IF (INTGS .AND. INPLAN.EQ.5) IDPONT = CENTER NFORS(IFORCE) = IDPONT C C CALCULATE FORCES AT MID-SURFACE LEVEL C DO 760 IFOR = 1,3 FORSUL(IFORCE+IFOR )=(TSTR(ISIG+IFOR)+TSTR(ISIG+IFOR+5))*THICK/2. FORSUL(IFORCE+IFOR+3)=(TSTR(ISIG+IFOR)-TSTR(ISIG+IFOR+5))* 1 REALI(INPLAN)/THICK 760 CONTINUE C C INTERCHANGE 7 AND 8 POSITIONS TO BE COMPATIBLE WITH THE C OUTPUT FORMAT OF VX AND VY (WE HAVE CALCULATED VY AND VX) C IF (INPLAN .EQ. 5) GO TO 770 FORSUL(IFORCE+7) = (TSTR(ISIG+5) + TSTR(ISIG+10))*THICK*0.5 FORSUL(IFORCE+8) = (TSTR(ISIG+4) + TSTR(ISIG+ 9))*THICK*0.5 C C SUBSTITUTE THE AVERAGE OF CORNER (OR INTEGRATION) POINT C MEMBRANE AND SHEAR FORCES FOR THE CENTER POINT C FXCNTR = FXCNTR + FORSUL(IFORCE+1)*0.25 FYCNTR = FYCNTR + FORSUL(IFORCE+2)*0.25 FXYCNT = FXYCNT + FORSUL(IFORCE+3)*0.25 VXCNTR = VXCNTR + FORSUL(IFORCE+7)*0.25 VYCNTR = VYCNTR + FORSUL(IFORCE+8)*0.25 GO TO 780 770 CONTINUE FORSUL(IFORCE+1) = FXCNTR FORSUL(IFORCE+2) = FYCNTR FORSUL(IFORCE+3) = FXYCNT FORSUL(IFORCE+7) = VXCNTR FORSUL(IFORCE+8) = VYCNTR C 780 ISIG = ISIG + 10 C C DO NOT WRITE TO PHIOUT IF LAYER STRESSES ARE REQUESTED C BECAUSE PHIOUT NEEDS TO BE INTACT IF (LAYER) GO TO 900 C C STAGE 7 - SHIPPING OF NORMAL STRESSES C ===================================== C C STORE THE STRESSES WHERE THE HIGHER LEVEL ROUTINES EXPECT C TO FIND THEM. C BUT FIRST, MOVE THE CENTER POINT STRESSES TO THE TOP. C CWKBR 3/95 SPR94017 IF (OPRQST .EQ. 0) GO TO 840 IF ( (KSTRS .NE. 1) .AND. (.NOT.OSTRAI) ) GO TO 840 790 NPHI(101) = NSTRES(1) DO 800 I = 3,18 I99 = I + 99 800 NPHI(I99) = NSTRES(I+68) C C DEBUG PRINTOUT C IF (DEBUG) WRITE (NOUT,810) (STRES(I),I=71,86) 810 FORMAT (' SQUD42 - STRESSES', (/1X,8E13.5)) C DO 830 I = 19,86 I99 = I + 99 830 NPHI(I99) = NSTRES(I-17) C C STORE FORCES IN THEIR APPROPRIATE LOCATION C CWKBR 3/95 SPR94017 IF (OPRQST .LT. 0) RETURN IF ( KFORCE .NE. 1 ) RETURN 840 NPHI(201) = NFORS(1) DO 850 I = 3,10 I199 = I + 199 850 NPHI(I199) = NFORS(I+36) C C DEBUG PRINTOUT C IF (DEBUG) WRITE (NOUT,860) (FORSUL(I),I=39,46) 860 FORMAT (' SQUD42 - FORCES', (/1X,8E13.5)) C DO 870 I = 11,46 I199 = I + 199 870 NPHI(I199) = NFORS(I-9) C C PROCESSING FOR NORMAL STRESS REQUEST COMPLETED C GO TO 2100 C C ELEMENT LAYER STRESS CALCULATION C C CHECK STRESS AND FORCE OUTPUT REQUEST C 900 IF ((KFORCE.NE.0 .OR. KSTRS.NE.0) .AND. .NOT.COMPOS) GO TO 2220 C C WRITE FORCE RESULTANTS TO OEF1L IF REQUESTED C 1. 10*ELEMENT ID + DEVICE CODE (FDEST) C 2-9. FORCE RESULTANTS C FX, FY, FXY, MX, MY, MXY, VX, VY C IF (KFORCE .EQ. 0) GO TO 910 ELEMID = 10*ELID + FDEST IF (LDTEMP .NE. -1) GO TO 910 CALL WRITE (OEF1L,ELEMID,1,0) CALL WRITE (OEF1L,FORSUL(39),8,0) C 910 IF (KSTRS.EQ.0 .AND. LDTEMP.EQ.-1) RETURN ELEMID = 10*ELID + SDEST C C LOCATE PID BY CARRYING OUT A SEQUENTIAL SEARCH C OF THE PCOMPS DATA BLOCK, AND ALSO DETERMINE C THE TYPE OF 'PCOMP' BULK DATA ENTRY. C C SET POINTER LPCOMP C LPCOMP = IPCMP + NPCMP + NPCMP1 + NPCMP2 C C C POINTER DESCRIPITION C -------------------- C IPCMP - LOCATION OF START OF PCOMP DATA IN CORE C NPCMP - NUMBER OF WORDS OF PCOMP DATA C IPCMP1 - LOCATION OF START OF PCOMP1 DATA IN CORE C NPCMP1 - NUMBER OF WORDS OF PCOMP1 DATA C IPCMP2 - LOCATION OF START OF PCOMP2 DATA IN CORE C NPCMP2 - NUMBER OF WORDS OF PCOMP2 DATA C C ITYPE - TYPE OF PCOMP BULK DATA ENTRY C C LAMOPT - LAMINATION GENERATION OPTION C = SYM (SYMMETRIC) C = MEM (MEMBRANE ) C = SYMMEM (SYMMETRIC-MEMBRANE) C C FTHR - FAILURE THEORY C = 1 HILL C = 2 HOFFMAN C = 3 TSAI-WU C = 4 MAX-STRESS C = 5 MAX-STRAIN C C ULTSTN - ULTIMATE STRENGTH VALUES C C SET POINTERS C ITYPE = -1 C PCMP = .FALSE. PCMP1 = .FALSE. PCMP2 = .FALSE. C PCMP = NPCMP .GT. 0 PCMP1 = NPCMP1 .GT. 0 PCMP2 = NPCMP2 .GT. 0 C C CHECK IF NO 'PCOMP' DATA HAS BEEN READ INTO CORE C IF (.NOT.PCMP .AND. .NOT.PCMP1 .AND. .NOT.PCMP2) GO TO 2200 C C SEARCH FOR PID IN PCOMP DATA C IF (.NOT.PCMP) GO TO 960 C IP = IPCMP IF (INTZ(IP) .EQ. IPID) GO TO 950 IPC11 = IPCMP1 - 1 DO 930 IP = IPCMP,IPC11 IF (INTZ(IP).EQ.-1 .AND. IP.LT.(IPCMP1-1)) GO TO 920 GO TO 930 920 IF (INTZ(IP+1) .EQ. IPID) GO TO 940 930 CONTINUE GO TO 960 C 940 IP = IP + 1 950 ITYPE = PCOMP GO TO 1070 C C SEARCH FOR PID IN PCOMP1 DATA C 960 IF (.NOT.PCMP1) GO TO 1010 IP = IPCMP1 IF (INTZ(IP) .EQ. IPID) GO TO 1000 IPC21 = IPCMP2 - 1 DO 980 IP = IPCMP1,IPC21 IF (INTZ(IP).EQ.-1 .AND. IP.LT.(IPCMP2-1)) GO TO 970 GO TO 980 970 IF (INTZ(IP+1) .EQ. IPID) GO TO 990 980 CONTINUE GO TO 1010 C 990 IP = IP + 1 1000 ITYPE = PCOMP1 GO TO 1070 C C SEARCH FOR PID IN PCOMP2 DATA C 1010 IF (.NOT.PCMP2) GO TO 1060 C IP = IPCMP2 IF (INTZ(IP) .EQ. IPID) GO TO 1050 LPC11 = LPCOMP - 1 DO 1030 IP = IPCMP2,LPC11 IF (INTZ(IP).EQ.-1 .AND. IP.LT.(LPCOMP-1)) GO TO 1020 GO TO 1030 1020 IF (INTZ(IP+1) .EQ. IPID) GO TO 1040 1030 CONTINUE GO TO 1060 C 1040 IP = IP + 1 1050 ITYPE = PCOMP2 GO TO 1070 C C CHECK IF PID HAS NOT BEEN LOCATED C 1060 IF (ITYPE .EQ. -1) GO TO 2200 C C LOCATION OF PID C 1070 PIDLOC = IP LAMOPT = INTZ(PIDLOC+8) C C INTILIZE C DO 1080 IR = 1,3 STRNT(IR) = 0.0 STRNB(IR) = 0.0 1080 CONTINUE C C CALCULATION OF STRAINS C C INTEGRATION DATA IN PHIOUT IS ARRANGED IN ETA,XI INCREASING C SEQUENCE. C ISIG = 1 ICOUNT = -(8*NDOF+NNODE+32) + 79 + 9*NNODE C DO 1200 INPLAN = 1,5 INPLN1 = IPN(INPLAN) C C MATCH GRID ID NUMBER WHICH IS IN SIL ORDER C IF (INPLAN .EQ. 5) GO TO 1100 DO 1090 I = 1,NNODE IF (IORDER(I) .NE. INPLN1) GO TO 1090 IGRID(INPLAN) = EXTRNL(I) GO TO 1110 1090 CONTINUE GO TO 1110 C 1100 IGRID(INPLAN) = CENTER 1110 CONTINUE C DO 1190 IZTA = 1,2 ZETA = (IZTA*2-3)*CONST C ICOUNT = ICOUNT + 8*NDOF + NNODE + 32 C C FIRST COMPUTE LOCAL STRAINS AT THIS EVALUATION POINT C C EPSLN = PHIOUT(KSIG) * DELTA C EPS = B * U C 8X1 8XNDOF NDOFX1 C KSIG = ICOUNT + NNODE + 33 CALL GMMATS (PHIOUT(KSIG),8,NDOF,0, DELTA(1),NDOF,1,0, EPSLN) C C TRANSFORM THE STRAINS AT THIS EVALUATION POINT TO THE C MATERIAL COORDINATE SYSTEM C DO 1120 IR = 1,9 1120 TMI(IR) = PHIOUT(ICOUNT+19+IR) C C TOTAL STRAIN AT EVALUATION POINT = MEMBRANE + BENDING C DO 1130 IR = 1,3 1130 EPSTOT(IR) = EPSLN(IR) + EPSLN(IR+3) C C GENERATE TRANS-MATRIX TO TRANSFORM STRAINS FROM I TO M SYSTEM C TRANS(1) = TMI(1)*TMI(1) TRANS(2) = TMI(2)*TMI(2) TRANS(3) = TMI(1)*TMI(2) TRANS(4) = TMI(4)*TMI(4) TRANS(5) = TMI(5)*TMI(5) TRANS(6) = TMI(4)*TMI(5) TRANS(7) = 2.0*TMI(1)*TMI(4) TRANS(8) = 2.0*TMI(2)*TMI(5) TRANS(9) = TMI(1)*TMI(5) + TMI(2)*TMI(4) C C TRANSFORM TOTAL STRAINS C CALL GMMATS (TRANS(1),3,3,0, EPSTOT(1),3,1,0, EPSE(1)) C IF (INPLAN .EQ. 5) GO TO 1160 C C AVERAGE THE STRAIN VECTORS OF THE FOUR INTGS POINTS AT EACH C LEVEL TO CALCULATE THE ELEMENT CENTRE STRAIN VECTOR FOR THE C UPPER AND BOTTOM LEVELS. C DO 1150 IR = 1,3 IF (IZTA .EQ. 2) GO TO 1140 STRNB(IR) = STRNB(IR) + 0.25*EPSE(IR) GO TO 1150 1140 STRNT(IR) = STRNT(IR) + 0.25*EPSE(IR) 1150 CONTINUE GO TO 1190 C C TOTAL STRAIN VECTORS AT ELEMENT CENTRE C 1160 DO 1180 IR = 1,3 IF (IZTA .EQ. 2) GO TO 1170 STRNBC(IR) = EPSE(IR) GO TO 1180 1170 STRNTC(IR) = EPSE(IR) 1180 CONTINUE C 1190 CONTINUE 1200 CONTINUE C C EXTRAPOLATE STRAINS ACROSS ZETA C DO 1210 IR = 1,3 EPST(IR) = (STRNT(IR)-STRNB(IR))*(+1.0+CONST)/(2.0*CONST) 1 + STRNB(IR) EPSB(IR) = (STRNT(IR)-STRNB(IR))*(-1.0+CONST)/(2.0*CONST) 1 + STRNB(IR) 1210 CONTINUE C C CALCULATE LAYER STRESSES AND FAILURE INDICES (IF REQUESTED) C AND WRITE TO THE OUTPUT FILE OES1L C 1. 10*ELEMENT ID + DEVICE CODE (SDEST) C 2. NLAYER - NUMBER OF LAYERS FOR LAMINATE C 3. TYPE OF FAILURE THEORY SELECTED C C 4. PLY ID C 5,6,7. LAYER STRESSES C 8. PLY FAILURE INDEX (FP) C 9. IFLAG (= 1 IF FP.GE.0.999, DEFAULT = 0) C 10,11. INTERLAMINAR SHEAR STRESSES C 12. SHEAR BONDING INDEX (SB) C 13. IFLAG (= 1 IF SB.GE.0.999, DEFAULT = 0) C : 4 - 13 REPEATED FOR THE NUMBER OF LAYERS WITH C : LAYER STRESS REQUEST C LAST-1. MAXIMUM FAILURE INDEX OF LAMINATE (FIMAX) C LAST. IFLAG (= 1 IF FIMAX.GE.0.999, DEFAULT = 0) C C 1-LAST. REPEAT FOR NUMBER OF ELEMENTS C C (NOTE - ONLY THE ELEMENT CENTRE VALUES ARE CALCULATED) C C == 1. C IF (KSTRS .EQ. 1) CALL WRITE (OES1L,ELEMID,1,0) C C DETERMINE INTRINSIC LAMINATE PROPERTIES C C LAMINATE THICKNESS C TLAM = PHIOUT(21) C C REFERENCE SURFACE C ZREF = -TLAM/2.0 C C NUMBER OF LAYERS C NLAY = INTZ(PIDLOC+1) C C FOR PCOMP BULK DATA DETERMINE HOW MANY LAYERS HAVE THE STRESS C OUTPUT REQUEST (SOUTI) C NOTE - FOR PCOMP1 OR PCOMP2 BULK DATA ENTRIES LAYER C STRESSES ARE OUTPUT FOR ALL LAYERS. C NLAYER = NLAY C IF (ITYPE .NE. PCOMP) GO TO 1230 C NSTRQT = 0 DO 1220 K = 1,NLAY IF (INTZ(PIDLOC+8+4*K) .EQ. 1) NSTRQT = NSTRQT + 1 1220 CONTINUE NLAYER = NSTRQT C C WRITE TOTAL NUMBER OF LAYERS WITH STRESS REQ TO OES1L C 1230 IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) NLAYER = 2*NLAYER C C == 2. C IF (KSTRS .EQ. 1) CALL WRITE (OES1L,NLAYER,1,0) C C SET POINTER C IF (ITYPE .EQ. PCOMP ) IPOINT = PIDLOC + 8 + 4*NLAY IF (ITYPE .EQ. PCOMP1) IPOINT = PIDLOC + 8 + NLAY IF (ITYPE .EQ. PCOMP2) IPOINT = PIDLOC + 8 + 2*NLAY C C FAILURE THEORY TO BE USED IN COMPUTING FAILURE INDICES C FTHR = INTZ(PIDLOC+5) C C WRITE TO OUTPUT FILE TYPE OF FAILURE THEORY SELECTED C C == 3. C IF (KSTRS .EQ. 1) CALL WRITE (OES1L,FTHR,1,0) C C SHEAR BONDING STRENGTH C SB = Z(PIDLOC+4) FINDEX = 0.0 FBOND = 0.0 FPMAX = 0.0 FBMAX = 0.0 FIMAX = 0.0 C C SET TRNFLX IF INTERLAMINAR SHEAR STRESS CALCULATIONS C IS REQUIRED C TRNFLX = .FALSE. C C TRANSVERSE SHEAR STRESS RESULTANTS QX AND QY C V(1) = FORSUL(45) V(2) = FORSUL(46) TRNFLX = V(1).NE.0.0 .AND. V(2).NE.0.0 IF (.NOT.TRNFLX) GO TO 1240 IF (ITYPE .EQ. PCOMP) ICONTR = IPOINT + 27*NLAY IF (ITYPE.EQ.PCOMP1 .OR. ITYPE.EQ.PCOMP2) 1 ICONTR = IPOINT + 25 + 2*NLAY C C LAMINATE BENDING INERTIA C EI(1) = Z(ICONTR+1) EI(2) = Z(ICONTR+2) C C LOCATION OF NEUTRAL SURFACE C ZBAR(1) = Z(ICONTR+3) ZBAR(2) = Z(ICONTR+4) C C INTILIZISE C 1240 DO 1250 LL = 1,2 TRNAR(LL) = 0.0 TRNSHR(LL) = 0.0 1250 CONTINUE C C ALLOW FOR THE ORIENTATION OF THE MATERIAL AXIS FROM C THE USER DEFINED COORDINATE SYSTEM C THETAE = ACOS(PHIOUT(69)) THETAE = THETAE*DEGRAD C C SWITCH FOR THEMAL EFFECTS C IF (LDTEMP .EQ. -1) GO TO 1290 C C LAMINATE REFERENCE (OR LAMINATION) TEMPERATURE C TSUBO = Z(IPOINT+24) C C MEAN ELEMENT TEMPERATURE C TBAR = TMEAN IF (TEMPP1 .OR. TEMPP2) TBAR = STEMP(1) IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1290 IF (.NOT.(TEMPP1 .OR. TEMPP2)) GO TO 1290 IF (.NOT.TEMPP1) GO TO 1260 C C TEMPERATURE GRADIENT TPRIME C TPRIME = STEMP(2) C 1260 IF (.NOT.TEMPP2) GO TO 1290 C C COMPUTE REFERENCE SURFACE STRAINS AND CURVATURES C DUE TO THERMAL MOMENTS C C MOMENT OF INERTIA OF LAMINATE C MINTR = (TLAM**3)/12.0 C C DETERMINE ABBD-MATRIX FROM PHIOUT(23-58) C ICOUNT = 89 + 9*NNODE DO 1270 LL = 1,3 DO 1270 MM = 1,3 NN = MM + 6*(LL-1) II = MM + 3*(LL-1) ABBD(LL ,MM ) = PHIOUT(NN+22)*TLAM ABBD(LL ,MM+3) = PHIOUT(ICOUNT+II)*(TLAM*TLAM)/(-6.0*CONST) ABBD(LL+3,MM ) = PHIOUT(ICOUNT+II)*(TLAM*TLAM)/(-6.0*CONST) ABBD(LL+3,MM+3) = PHIOUT(NN+43)*MINTR 1270 CONTINUE C C COMPUTE THERMAL REF STRAINS AND CURVATURES C -1 C EZEROT-VECTOR = ABBD-MATRIX X MTHR-VECTOR C MTHER( 1) = 0.0 MTHER( 2) = 0.0 MTHER( 3) = 0.0 MTHER( 4) = STEMP(2) MTHER( 5) = STEMP(3) MTHER( 6) = STEMP(4) C CALL INVERS (6,ABBD,6,DUMC,0,DETRM,ISING,INDX) C DO 1280 LL = 1,6 DO 1280 MM = 1,6 NN = MM + 6*(LL-1) STIFF(NN) = ABBD(LL,MM) 1280 CONTINUE C CALL GMMATS (STIFF(1),6,6,0, MTHER(1),6,1,0, EZEROT(1)) C 1290 CONTINUE C DO 1300 LL = 1,6 1300 FORSUL(LL) = 0.0 C C LOOP OVER NLAY C DO 1600 K = 1,NLAY C C ZSUBI -DISTANCE FROM REFERENCE SURFACE TO MID OF LAYER K C ZK1 = ZK IF (K .EQ. 1) ZK1 = ZREF IF (ITYPE .EQ. PCOMP ) ZK = ZK1 + Z(PIDLOC+6+4*K) IF (ITYPE .EQ. PCOMP1) ZK = ZK1 + Z(PIDLOC+7 ) IF (ITYPE .EQ. PCOMP2) ZK = ZK1 + Z(PIDLOC+7+2*K) C ZSUBI = (ZK+ZK1)/2.0 C C LAYER THICKNESS C TI = ZK - ZK1 C C CALCULATE STRAIN VECTOR AT STN ZSUBI C DO 1400 IR = 1,3 EPSLNE(IR) = (.5-ZSUBI/TLAM)*EPSB(IR) + (.5+ZSUBI/TLAM)*EPST(IR) 1400 CONTINUE C C LAYER ORIENTATION C IF (ITYPE .EQ. PCOMP ) THETA = Z(PIDLOC+7+4*K) IF (ITYPE .EQ. PCOMP1) THETA = Z(PIDLOC+8+ K) IF (ITYPE .EQ. PCOMP2) THETA = Z(PIDLOC+8+2*K) C C BUILD TRANS-MATRIX TO TRANSFORM LAYER STRAINS FROM MATERIAL C TO FIBRE DIRECTION. C THETA = THETA*DEGRAD C C = COS(THETA) C2 = C*C S = SIN(THETA) S2 = S*S C TRANS(1) = C2 TRANS(2) = S2 TRANS(3) = C*S TRANS(4) = S2 TRANS(5) = C2 TRANS(6) =-C*S TRANS(7) =-2.0*C*S TRANS(8) = 2.0*C*S TRANS(9) = C2-S2 C C TRANSFORM STRAINS FROM ELEMENT TO FIBRE COORD SYSTEM C CALL GMMATS (TRANS(1),3,3,0, EPSLNE(1),3,1,0, EPSLN(1)) C C SWITCH FOR TEMPERATURE EFFECTS C IF (LDTEMP .EQ. -1) GO TO 1470 C C CORRECT LAYER STRAIN VECTOR FOR THERMAL EFFECTS C C LAYER THERMAL COEFFICIENTS OF EXPANSION ALPHA-VECTOR C DO 1410 LL = 1,3 ALPHA(LL) = Z(IPOINT+13+LL) 1410 CONTINUE C C ELEMENT TEMPERATURE C DELT = TBAR - TSUBO C IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1420 IF (.NOT.TEMPP1) GO TO 1420 C C TEMPERATURE GRADIENT TPRIME C DELT = DELT + ZSUBI*TPRIME C 1420 DO 1430 LL = 1,3 EPSLNT(LL) = -ALPHA(LL)*DELT 1430 CONTINUE C IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1450 IF (.NOT.TEMPP2) GO TO 1450 C C COMPUTE STRAIN DUE TO THERMAL MOMENTS C DO 1440 LL = 1,3 EPSLNT(LL) = EPSLNT(LL) + (EZEROT(LL) + ZSUBI*EZEROT(LL+3)) 1440 CONTINUE C C COMBINE MECHANICAL AND THERMAL STRAINS C 1450 DO 1460 LL = 1,3 EPSLN(LL) = EPSLN(LL) + EPSLNT(LL) 1460 CONTINUE C 1470 CONTINUE C C CALCULATE STRESS VECTOR STRESL IN FIBRE COORD SYS C C STRESL-VECTOR = G-MATRIX X EPSLN-VECTOR C CALL GMMATS (Z(IPOINT+1),3,3,0, EPSLN,3,1,0, STRESL(1)) C C USE FORCE RESTULANTS CALCULATED PREVIOUSLY C I.E. AT EXTREME FIBER STATIONS EXCEPT FOR THERMAL LOADING CASES C IF (LDTEMP .EQ. -1) GO TO 1490 IF (KFORCE .EQ. 0) GO TO 1490 C C TRANSFORM LAYER STRESSES TO ELEMENT AXIS C IF (THETAE .GT. 0.0) THETA = THETA + THETAE C C BUILD STRESS TRANSFORMATION MATRIX C C = COS(THETA) C2 = C*C S = SIN(THETA) S2 = S*S C TRANS(1) = C2 TRANS(2) = S2 TRANS(3) =-2.0*C*S TRANS(4) = S2 TRANS(5) = C2 TRANS(6) = 2.0*C*S TRANS(7) = C*S TRANS(8) =-C*S TRANS(9) = C2-S2 C CALL GMMATS (TRANS(1),3,3,0, STRESL(1),3,1,0, STRESE(1)) C DO 1480 IR = 1,3 FORSUL(IR) = FORSUL(IR) + STRESE(IR)*TI IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1480 FORSUL(IR+3) = FORSUL(IR+3) - STRESE(IR)*TI*ZSUBI 1480 CONTINUE C 1490 IF (FTHR .LE. 0) GO TO 1530 C C WRITE ULTIMATE STRENGTH VALUES TO ULTSTN C DO 1500 IR = 1,6 1500 ULTSTN(IR) = Z(IPOINT+16+IR) C C CALL FTHR TO COMPUTE FAILURE INDEX FOR PLY C IF (FTHR .EQ. STRAIN) GO TO 1510 CALL FAILUR (FTHR,ULTSTN,STRESL,FINDEX) GO TO 1520 C 1510 CALL FAILUR (FTHR,ULTSTN,EPSLN,FINDEX) C C DETERMINE THE MAX FAILURE INDEX C 1520 IF (ABS(FINDEX) .GE. ABS(FPMAX)) FPMAX = FINDEX C 1530 CONTINUE C C SET POINTERS C IF (ITYPE .EQ. PCOMP) ICONTR = IPOINT + 25 IF (ITYPE.EQ.PCOMP1 .OR. ITYPE.EQ.PCOMP2) 1 ICONTR = IPOINT + 23 + 2*K C IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1570 IF (.NOT.TRNFLX) GO TO 1570 C C CALCULATE INTERLAMINAR SHEAR STRESSES C DO 1540 IR = 1,2 TRNAR(IR) = TRNAR(IR) + (Z(ICONTR+IR))*TI*(ZBAR(IR)-ZSUBI) 1540 CONTINUE C C THE INTERLAMINAR SHEAR STRESSES AT STN ZSUBI C DO 1550 IR = 1,2 TRNSHR(IR) = V(IR)*TRNAR(IR)/EI(IR) 1550 CONTINUE C C CALCULATE SHEAR BONDING FAILURE INDEX FB C NOTE- SB IS ALWAYS POSITIVE C IF (SB .EQ. 0.0) GO TO 1570 C DO 1560 IR = 1,2 FB(IR) = ABS(TRNSHR(IR))/SB 1560 CONTINUE C FBOND = FB(1) IF (FB(2) .GT. FB(1)) FBOND = FB(2) C C CALCULATE MAX SHEAR BONDING INDEX C IF (FBOND .GE. FBMAX) FBMAX = FBOND C 1570 CONTINUE C IF (KSTRS .EQ. 0) GO TO 1590 C C WRITE TO OUTPUT FILE THE FOLLOWING C 4. PLY (OR LAYER) ID C 5,6,7. LAYER STRESSES C 8. LAYER FAILURE INDEX C 9. IFLAG (= 1 IF FP.GE.0.999, DEFAULT = 0) C 10,11. INTERLAMINAR SHEAR STRESSES C 12. SHEAR BONDING FAILURE INDEX C 13. IFLAG (= 1 IF SB.GE.0.999, DEFAULT = 0) C C CHECK LAYER STRESS OUTPUT REQUEST (SOUTI) FOR PCOMP BULK DATA C (NOT SUPPORTED FOR PCOMP1 OR PCOMP2 BULK DATA) C IF (ITYPE .NE. PCOMP) GO TO 1580 SOUTI = INTZ(PIDLOC+8+4*K) IF (SOUTI .EQ. 0) GO TO 1590 1580 PLYID = K C C == 4. C CALL WRITE (OES1L,PLYID,1,0) C C == 5,6,7. C CALL WRITE (OES1L,STRESL(1),3,0) C C == 8. C CALL WRITE (OES1L,FINDEX,1,0) C C SET IFLAG C IFLAG = 0 IF (ABS(FINDEX) .GE. 0.999) IFLAG = 1 C C == 9. C CALL WRITE (OES1L,IFLAG,1,0) C C == 10,11. C CALL WRITE (OES1L,TRNSHR(1),2,0) C C == 12. C CALL WRITE (OES1L,FBOND,1,0) C C SET IFLAG C IFLAG = 0 IF (ABS(FBOND) .GE. 0.999) IFLAG = 1 C C == 13. C CALL WRITE (OES1L,IFLAG,1,0) C C C UPDATE IPOINT FOR PCOMP BULK DATA ENTRY C 1590 IF (ITYPE.EQ.PCOMP .AND. K.NE.NLAY) IPOINT = IPOINT + 27 C 1600 CONTINUE C C FALL HERE IF SYMMETRIC OPTION HAS BEEN EXERCISED C IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 2000 C C LOOP OVER SYMMETRIC LAYERS C DO 1900 KK = 1,NLAY K = NLAY + 1 - KK C C ZSUBI -DISTANCE FROM REFERENCE SURFACE TO MID OF LAYER K C ZK1 = ZK IF (ITYPE .EQ. PCOMP ) ZK = ZK1 + Z(PIDLOC+6+4*K) IF (ITYPE .EQ. PCOMP1) ZK = ZK1 + Z(PIDLOC+7 ) IF (ITYPE .EQ. PCOMP2) ZK = ZK1 + Z(PIDLOC+7+2*K) C ZSUBI = (ZK+ZK1)/2.0 C C LAYER THICKNESS C TI = ZK - ZK1 C C CALCULATE STRAIN VECTOR AT STN ZSUBI C DO 1700 IR = 1,3 EPSLNE(IR) = (.5-ZSUBI/TLAM)*EPSB(IR) + (.5+ZSUBI/TLAM)*EPST(IR) 1700 CONTINUE C C LAYER ORIENTATION C IF (ITYPE .EQ. PCOMP ) THETA = Z(PIDLOC+7+4*K) IF (ITYPE .EQ. PCOMP1) THETA = Z(PIDLOC+8+ K) IF (ITYPE .EQ. PCOMP2) THETA = Z(PIDLOC+8+2*K) C C BUILD TRANS-MATRIX TO TRANSFORM LAYER STRAINS FROM MATERIAL C TO FIBRE DIRECTION. C THETA = THETA*DEGRAD C = COS(THETA) C2 = C*C S = SIN(THETA) S2 = S*S C TRANS(1) = C2 TRANS(2) = S2 TRANS(3) = C*S TRANS(4) = S2 TRANS(5) = C2 TRANS(6) =-C*S TRANS(7) =-2.0*C*S TRANS(8) = 2.0*C*S TRANS(9) = C2 - S2 C C TRANSFORM STRAINS FROM MATERIAL TO FIBRE COORD SYSTEM C CALL GMMATS (TRANS(1),3,3,0, EPSLNE(1),3,1,0, EPSLN(1)) C C SWITCH FOR TEMPERATURE EFFECTS C IF (LDTEMP .EQ. -1) GO TO 1770 C C CORRECT LAYER STRAIN VECTOR FOR THERMAL EFFECTS C C LAYER THERMAL COEFFICIENTS OF EXPANSION ALPHA-VECTOR C DO 1710 LL = 1,3 ALPHA(LL) = Z(IPOINT+13+LL) 1710 CONTINUE C C ELEMENT TEMPERATURE C DELT = TBAR - TSUBO IF (LAMOPT .EQ. SYMMEM) GO TO 1720 IF (.NOT.TEMPP1) GO TO 1720 C C TEMPERATURE GRADIENT TPRIME C DELT = DELT + ZSUBI*TPRIME C 1720 DO 1730 LL = 1,3 EPSLNT(LL) = -ALPHA(LL)*DELT 1730 CONTINUE C IF (LAMOPT .EQ. SYMMEM) GO TO 1750 IF (.NOT.TEMPP2) GO TO 1750 C C COMPUTE STRAIN DUE TO THERMAL MOMENTS C DO 1740 LL = 1,3 EPSLNT(LL) = EPSLNT(LL) + (EZEROT(LL) + ZSUBI*EZEROT(LL+3)) 1740 CONTINUE C C COMBINE MECHANICAL AND THERMAL STRAINS C 1750 DO 1760 LL = 1,3 EPSLN(LL) = EPSLN(LL) + EPSLNT(LL) 1760 CONTINUE C 1770 CONTINUE C C CALCULATE STRESS VECTOR STRESL IN FIBRE COORD SYS C C STRESL-VECTOR = G-MATRIX X EPSLN-VECTOR C CALL GMMATS (Z(IPOINT+1),3,3,0, EPSLN,3,1,0, STRESL(1)) C C COMPUTE FORCE RESULTANTS IF REQUESTED C IF (LDTEMP .EQ. -1) GO TO 1790 IF (KFORCE .EQ. 0) GO TO 1790 C C TRANSFORM LAYER STRESSES TO ELEMENT AXIS C IF (THETAE .GT. 0.0) THETA = THETA + THETAE C C BUILD STRESS TRANSFORMATION MATRIX C C = COS(THETA) C2 = C*C S = SIN(THETA) S2 = S*S C TRANS(1) = C2 TRANS(2) = S2 TRANS(3) =-2.0*C*S TRANS(4) = S2 TRANS(5) = C2 TRANS(6) = 2.0*C*S TRANS(7) = C*S TRANS(8) =-C*S TRANS(9) = C2 - S2 C CALL GMMATS (TRANS(1),3,3,0, STRESL(1),3,1,0, STRESE(1)) C DO 1780 IR = 1,3 FORSUL(IR) = FORSUL(IR) + STRESE(IR)*TI IF (LAMOPT .EQ. SYMMEM) GO TO 1780 FORSUL(IR+3) = FORSUL(IR+3) - STRESE(IR)*TI*ZSUBI 1780 CONTINUE C 1790 IF (FTHR .LE. 0) GO TO 1830 C C WRITE ULTIMATE STRENGTH VALUES TO ULTSTN C DO 1800 IR = 1,6 1800 ULTSTN(IR) = Z(IPOINT+16+IR) C C CALL FTHR TO COMPUTE FAILURE INDEX FOR PLY C IF (FTHR .EQ. STRAIN) GO TO 1810 CALL FAILUR (FTHR,ULTSTN,STRESL,FINDEX) GO TO 1820 C 1810 CALL FAILUR (FTHR,ULTSTN,EPSLN,FINDEX) C C DETERMINE THE MAX FAILURE INDEX C 1820 IF (ABS(FINDEX) .GE. ABS(FPMAX)) FPMAX = FINDEX C 1830 CONTINUE C C SET POINTERS C IF (ITYPE .EQ. PCOMP) ICONTR = IPOINT + 25 IF (ITYPE.EQ.PCOMP1 .OR. ITYPE.EQ.PCOMP2) 1 ICONTR = IPOINT + 23 + 2*K C IF (LAMOPT .EQ. SYMMEM) GO TO 1870 IF (.NOT.TRNFLX) GO TO 1870 C C CALCULATE INTERLAMINAR SHEAR STRESSES C DO 1840 IR = 1,2 TRNAR(IR) = TRNAR(IR) + (Z(ICONTR+IR))*TI*(ZBAR(IR)-ZSUBI) 1840 CONTINUE C C THE INTERLAMINAR SHEAR STRESSES AT STN ZSUBI C DO 1850 IR = 1,2 TRNSHR(IR) = V(IR)*TRNAR(IR)/EI(IR) 1850 CONTINUE C C CALCULATE SHEAR BONDING FAILURE INDEX FB C NOTE- SB IS ALWAYS POSITIVE C IF (SB .EQ. 0.0) GO TO 1870 C DO 1860 IR = 1,2 FB(IR) = ABS(TRNSHR(IR))/SB 1860 CONTINUE C FBOND = FB(1) IF (FB(2) .GT. FB(1)) FBOND = FB(2) C C CALCULATE MAX SHEAR BONDING INDEX C IF (FBOND .GE. FBMAX) FBMAX = FBOND C 1870 CONTINUE C IF (KSTRS .EQ. 0) GO TO 1890 C C WRITE TO OUTPUT FILE THE FOLLOWING C 4. PLY (OR LAYER) ID C 5,6,7. LAYER STRESSES C 8. LAYER FAILURE INDEX C 9. IFLAG (= 1 IF FP.GE.0.999, DEFAULT = 0) C 10,11. INTERLAMINAR SHEAR STRESSES C 12. SHEAR BONDING FAILURE INDEX C 13. IFLAG (= 1 IF SB.GE.0.999, DEFAULT = 0) C C CHECK LAYER STRESS OUTPUT REQUEST (SOUTI) FOR PCOMP BULK DATA C (NOT SUPPORTED FOR PCOMP1 OR PCOMP2 BULK DATA) C IF (ITYPE .NE. PCOMP) GO TO 1880 SOUTI = INTZ(PIDLOC+8+4*K) IF (SOUTI .EQ. 0) GO TO 1890 1880 PLYID = NLAY + KK C C == 4. C CALL WRITE (OES1L,PLYID,1,0) C C == 5,6,7 C CALL WRITE (OES1L,STRESL(1),3,0) C C == 8. C CALL WRITE (OES1L,FINDEX,1,0) C C SET IFLAG C IFLAG = 0 IF (ABS(FINDEX) .GE. 0.999) IFLAG = 1 C C == 9. C CALL WRITE (OES1L,IFLAG,1,0) C C == 10,11. C CALL WRITE (OES1L,TRNSHR(1),2,0) C C == 12. C CALL WRITE (OES1L,FBOND,1,0) C C SET IFLAG C IFLAG = 0 IF (ABS(FBOND) .GE. 0.999) IFLAG = 1 C C == 13. C CALL WRITE (OES1L,IFLAG,1,0) C C UPDATE IPOINT FOR PCOMP BULK DATA ENTRY C 1890 IF (ITYPE .EQ. PCOMP) IPOINT = IPOINT - 27 1900 CONTINUE C 2000 IF (FTHR .LE. 0) GO TO 2010 C C DETERMINE 'FIMAX' THE MAX FAILURE INDEX FOR THE LAMINATE C FIMAX = FPMAX IF (FBMAX .GT. ABS(FPMAX)) FIMAX = FBMAX C C == LAST-1. C 2010 IF (KSTRS .EQ. 1) CALL WRITE (OES1L,FIMAX,1,0) C IFLAG = 0 IF (ABS(FIMAX) .GE. 0.999) IFLAG = 1 C C == LAST. C IF (KSTRS .EQ. 1) CALL WRITE (OES1L,IFLAG,1,0) C IF (KFORCE .EQ. 0) GO TO 2100 IF (LDTEMP .EQ. -1) GO TO 2100 CALL WRITE (OEF1L,ELEMID,1,0) CALL WRITE (OEF1L,FORSUL(1),6,0) CALL WRITE (OEF1L,FORSUL(45),2,0) C 2100 RETURN C C ERROR MESSAGES C 2200 WRITE (NOUT,2210) UWM 2210 FORMAT (A25,' - NO PCOMP, PCOMP1 OR PCOMP2 DATA AVAILABLE FOR ', 1 'LAYER STRESS RECOVERY BY SUBROUTINE SQUD42.') GO TO 2100 2220 WRITE (NOUT,2230) UFM 2230 FORMAT (A23,', LAYER STRESS OR FORCE RECOVERY WAS REQUESTED WHILE' 1, ' PROBLEM WAS NOT SET UP FOR', /5X,'LAYER COMPUTATION') CALL MESAGE (-61,0,0) END ================================================ FILE: mis/srod1.f ================================================ SUBROUTINE SROD1 C***** C THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR THE ROD. C***** C C C DIMENSION IECPT(13) C C C C C INPUT AND OUTPUT BLOCK C COMMON /SDR2X5/ A ECPT(17) ,DUMMY1(83), 1 IELID ,ISILNO(2) 2, SAT(3) ,SBT(3) 3, SAR(3) ,SBR(3) 4, ST ,SDELTA 5, AREA ,FJOVRC 6, T SUBC 0 ,SIGMAT 7, SIGMAC ,SIGMAS 8, SIGVEC(77) ,FORVEC(25) C C SCRATCH BLOCK C COMMON /SDR2X6/ 1 XN(6) ,TI(9) 2, XL ,EOVERL 3, IBASE C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH C C C COMMON /MATOUT/ 1 E ,G 2, NU ,RHO 3, ALPHA ,T SUB 0 4, GSUBE ,SIGT 5, SIGC ,SIGS C C C EQUIVALENCE (IECPT(1),ECPT(1)) C C CALL MAT TO GET MATERIAL PROPERTIES C MATIDC = IECPT(4) MATFLG = 1 ELTEMP = ECPT(17) CALL MAT (IECPT(1)) C C SET UP VECTOR ALONG THE ROD, COMPUTE LENGTH AND NORMALIZE C XN(1) = ECPT(10) - ECPT(14) XN(2) = ECPT(11) - ECPT(15) XN(3) = ECPT(12) - ECPT(16) XL = XN(1)**2 + XN(2)**2 + XN(3)**2 XL = SQRT(XL) XN(1) = XN(1) / XL XN(2) = XN(2) / XL XN(3) = XN(3) / XL EOVERL = E / XL GCOVRL = G * ECPT(6) / XL IBASE = 0 C C TRANSFORM XN VECTOR IF POINT A IS NOT IN BASIC COORDINATES. C IF (IECPT(9) .EQ. 0) GO TO 10 IBASE = 3 CALL TRANSS (IECPT(9),TI) CALL GMMATS (XN(1),3,1,1, TI(1),3,3,0, XN(4) ) 10 SAT(1) = XN(IBASE +1) * EOVERL SAT(2) = XN(IBASE +2) * EOVERL SAT(3) = XN(IBASE +3) * EOVERL SAR(1) = XN(IBASE +1) * GCOVRL SAR(2) = XN(IBASE +2) * GCOVRL SAR(3) = XN(IBASE +3) * GCOVRL C C TRANSFORM XN VECTOR IF POINT B IS NOT IN BASIC COORDINATES. C IBASE = 0 IF (IECPT(13) .EQ. 0) GO TO 20 IBASE = 3 CALL TRANSS (IECPT(13),TI) CALL GMMATS (XN(1),3,1,1, TI(1),3,3,0, XN(4) ) 20 SBT(1) = - XN(IBASE+1) * EOVERL SBT(2) = - XN(IBASE+2) * EOVERL SBT(3) = - XN(IBASE+3) * EOVERL SBR(1) = - XN(IBASE+1) * GCOVRL SBR(2) = - XN(IBASE+2) * GCOVRL SBR(3) = - XN(IBASE+3) * GCOVRL C C FILL REMAINDER OF OUTPUT BLOCK C ST = - ALPHA * E SDELTA = - EOVERL AREA = ECPT(5) IF(ECPT(6)) 30,40,30 30 FJOVRC = ECPT(7) / ECPT(6) GO TO 50 40 FJOVRC = 0.0 50 TSUBC0 = TSUB0 SIGMAT = SIGT SIGMAC = SIGC SIGMAS = SIGS IELID = IECPT(1) ISILNO(1) = IECPT(2) ISILNO(2) = IECPT(3) RETURN END ================================================ FILE: mis/srod2.f ================================================ SUBROUTINE SROD2 C***** C THIS ROUTINE IS PHASE II OF STRESS DATA RECOVERY FOR THE ROD. C***** REAL CFRVEC(4),FRLAST(2) INTEGER EJECT ,ISHD(7) ,TYP(4) C COMMON /SYSTEM/ IBFSZ ,NOUT ,IDM(9) ,LINE COMMON /SDR2DE/ SKP2DE(8),IELTYP C C SDR2 VARIABLE CORE C COMMON /ZZZZZZ/ ZZ(1) C C BLOCK FOR POINTERS, LOADING TEMPERATURE AND ELEMENT DEFORMATION. C COMMON /SDR2X4/ 1 DUMMY(33) ,ICSTM 2, NCSTM ,IVEC 3, IVECN ,TEMPLD 4, ELDEFM C C SDR2 INPUT AND OUTPUT BLOCK C COMMON /SDR2X7/ 1 IELID ,ISILNO(2) 2, SAT(3) ,SBT(3) 3, SAR(3) ,SBR(3) 4, ST ,SDELTA 5, AREA ,FJOVRC 6, T SUBC 0 ,SIGMAT 7, SIGMAC ,SIGMAS 8, DUMMY2(77) 9, JSELID ,SIGMA T, SMSIG ,TAU 1, SMTAU ,DUMMY3(95) 2, JFELID ,P 3, TORQUE ,DUMMY4(22) C C SCRATCH BLOCK C COMMON /SDR2X8/ 1 TRANA ,TRANB 2, ROTA ,ROTB 3, IUTA ,IUTB 4, IURA ,IURB 5, IFRVEC(7) ,CHKVEC(4) C COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK C EQUIVALENCE 1 (TEMPLD,LDTEMP) ,(SMSIG,MSSIG) 2, (SMTAU,MSTAU) 3, (CFRVEC(1),CSIGA) , (CFRVEC(2),CTAU) , (CFRVEC(3),CP) 4, (CFRVEC(4),CTRQUE), (IFRVEC(4),CFRVEC(1)) 5, (ISHD(1),LSUB), (ISHD(2),LLD), (ISHD(6),FRLAST(1)) C DATA LLD,LSUB,FRLAST / 2*-1, -1.0E30, -1.0E30 / DATA TYP / 4H CON , 4HROD , 4HTUBE, 1H / C IDISP = IVEC - 1 IUTA = IDISP + ISILNO(1) CALL SMMATS (SAT(1),3,1,1, ZZ(IUTA),3,1,0, TRANA,CTRNA) IUTB = IDISP + ISILNO(2) CALL SMMATS (SBT(1),3,1,1, ZZ(IUTB),3,1,0, TRANB,CTRNB) SIGMA = TRANA + TRANB + SDELTA * ELDEFM CSIGA = CTRNA + CTRNB IF (LDTEMP .EQ. (-1) ) GO TO 10 SIGMA = SIGMA + ST * (TEMPLD - T SUBC 0) 10 IURA = IUTA + 3 CHKVEC(1) = SIGMA CALL SMMATS (SAR(1),3,1,1, ZZ(IURA),3,1,0, ROTA,CRTA) IURB = IUTB + 3 CALL SMMATS (SBR(1),3,1,1, ZZ(IURB),3,1,0, ROTB,CRTB) TORQUE = ROTA + ROTB CP = AREA * CSIGA CHKVEC(3) = P CTAU = ABS (FJOVRC) * CTRQUE CHKVEC(2) = TAU CTRQUE = CRTA + CRTB CHKVEC(4) = TORQUE C C COMPUTE AXIAL FORCE, P, AND TORQUE C P = AREA * SIGMA TAU = FJOVRC * TORQUE C C COMPUTE MARGIN OF SAFETY IN EXTENSION C IF(SIGMA.LE.0.0)GO TO 101 IF(SIGMAT.LE.0.0)GO TO 102 SMSIG=SIGMAT/SIGMA-1.0 GO TO 180 101 IF(SIGMA.NE.0.0) GO TO 103 GO TO 102 103 IF(SIGMAC .LE. 0.0) GO TO 102 SMSIG = -SIGMAC/SIGMA - 1.0 GO TO 180 102 MSSIG=1 C C COMPUTE MARGIN OF SAFETY IN TORSION C 180 IF(SIGMAS.LE.0.0) GO TO 190 IF(TAU.EQ.0.0)GO TO 190 SMTAU= SIGMAS/ABS(TAU) - 1.0 GO TO 110 190 MSTAU=1 110 JSELID = IELID JFELID = IELID IF (NCHK .LE. 0 ) GO TO 260 C C . CHECK PRECISION... C IFRVEC(3) = IELID K = 0 CALL SDRCHK (CHKVEC,CFRVEC,4,K) C IF (K.EQ.0) GO TO 260 C C . LIMITS EXCEEDED... C J = 0 IFRVEC(1) = TYP(4) IF (IELTYP.EQ.10) IFRVEC(1) = TYP(1) IFRVEC(2) = TYP(2) IF (IELTYP.EQ.3) IFRVEC(2) = TYP(3) C IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND. 1 LLD .EQ.ILD .AND. FRLAST(2).EQ.FRTMEI(2) ) GO TO 240 C LSUB = ISUB LLD = ILD FRLAST(1) = FRTMEI(1) FRLAST(2) = FRTMEI(2) J = 1 CALL PAGE1 C 220 CALL SD2RHD (ISHD,J) LINE = LINE + 1 WRITE(NOUT,230) 230 FORMAT(7X,4HTYPE,5X,3HEID,5X,2HSA,5X,2HST,5X,9HAF TORQUE ) GO TO 245 C 240 IF (EJECT(2).NE.0) GO TO 220 245 WRITE(NOUT,250) IFRVEC 250 FORMAT (1H0,3X,2A4,I7,4F7.1) 260 CONTINUE RETURN END ================================================ FILE: mis/ss2d81.f ================================================ SUBROUTINE SS2D81 C C PHASE 1 OF STRESS DATA RECOVERY FOR 2-D, 8 GRID POINT C ISOPARAMETRIC STRUCTURAL ELEMENT C REAL KX,KY DIMENSION G(9),QQ(15),XI(8),ETA(8),NPH1(62),TB(9),XX(16), 1 XY1(3),XY2(3),DNXI(8),DNETA(8),ECPT(1), 2 VEC(3),VVEC(3),VECI(3),VECJ(3),VECK(3),E1T(6), 3 PT(3),IWS(2,3) COMMON /SDR2X4/ IDUM(33),ICSTM,NCSTM COMMON /SDR2X5/ NECPT(1),NGRID(8),ID1,TH,MATID1,T,ISYS1,X1,Y1,Z1, 1 ISYS2,X2,Y2,Z2,ISYS3,X3,Y3,Z3,ISYS4,X4,Y4,Z4, 2 ISYS5,X5,Y5,Z5,ISYS6,X6,Y6,Z6,ISYS7,X7,Y7,Z7, 3 ISYS8,X8,Y8,Z8,TTEMP,DUMB(54),PH1OUT(400) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 TREF,GE,KX,KY,C COMMON /SDR2X6/ DNC(16),DNL(16),XXJB(2,2),XJB(4),TB,DETERM,DUMARG, 1 XY,ALPHAS(3),TSAVE(6) EQUIVALENCE (ECPT(1),NECPT(1)),(NPH1(1),PH1OUT(1)), 1 (XY1(1),X1),(XY2(1),X2), 2 (DNC(1),DNXI(1)),(DNC(9),DNETA(1)),(QQ(1),G11) DATA XI / -1., 1., 1., -1., 0., 1., 0., -1./ DATA ETA / -1.,-1., 1., 1.,-1., 0., 1., 0./ C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C -------- -------------------- ---------- ----------- C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT 1 NGRID(1) INTEGER C ECPT( 3) = GRID POINT 2 NGRID(2) INTEGER C ECPT( 4) = GRID POINT 3 NGRID(3) INTEGER C ECPT( 5) = GRID POINT 4 NGRID(4) INTEGER C ECPT( 6) = GRID POINT 5 NGRID(5) INTEGER C ECPT( 7) = GRID POINT 6 NGRID(6) INTEGER C ECPT( 8) = GRID POINT 7 NGRID(7) INTEGER C ECPT( 9) = GRID POINT 8 NGRID(8) INTEGER C ECPT(10) = COORD SYS ID-STRESS ID1 INTEGER C ECPT(11) = ANIS. MATERIAL ANGLE TH REAL C ECPT(12) = MATERIAL ID MATID1 INTEGER C ECPT(13) = THICKNESS T REAL C ECPT(14) = COORD SYS ID 1 ISYS1 INTEGER C ECPT(15) = X1 X1 REAL C ECPT(16) = Y1 Y1 REAL C ECPT(17) = Z1 Z1 REAL C ECPT(18) = COORD SYS ID 2 ISYS2 INTEGER C ECPT(19) = X2 X2 REAL C ECPT(20) = Y2 Y2 REAL C ECPT(21) = Z2 Z2 REAL C ECPT(22) = COORD SYS ID 3 ISYS3 INTEGER C ECPT(23) = X3 X3 REAL C ECPT(24) = Y3 Y3 REAL C ECPT(25) = Z3 Z3 REAL C ECPT(26) = COORD SYS ID 4 ISYS4 INTEGER C ECPT(27) = X4 X4 REAL C ECPT(28) = Y4 Y4 REAL C ECPT(29) = Z4 Z4 REAL C ECPT(30) = COORD SYS ID 5 ISYS5 INTEGER C ECPT(31) = X5 X5 REAL C ECPT(32) = Y5 Y5 REAL C ECPT(33) = Z5 Z5 REAL C ECPT(34) = COORD SYS ID 6 ISYS6 INTEGER C ECPT(35) = X6 XL REAL C ECPT(36) = Y6 Y6 REAL C ECPT(37) = Z6 Z6 REAL C ECPT(38) = COORD SYS ID 7 ISYS7 INTEGER C ECPT(39) = X7 X7 REAL C ECPT(40) = Y7 Y7 REAL C ECPT(41) = Z7 Z7 REAL C ECPT(42) = COORD SYS ID 8 ISYS8 INTEGER C ECPT(43) = X8 X8 REAL C ECPT(44) = Y8 Y8 REAL C ECPT(45) = Z8 Z8 REAL C ECPT(46) = ELEMENT TEMP TTEMP REAL C C C UNIT I VECTOR IS FROM GRID POINT 1 TO GRID POINT 2 C DO 20 I = 1,3 VECI(I) = XY2(I) - XY1(I) 20 CONTINUE VECIL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) IF (VECIL .EQ. 0.0)GO TO 40 VECI(1) = VECI(1)/VECIL VECI(2) = VECI(2)/VECIL VECI(3) = VECI(3)/VECIL C C K VECTOR IS OBTAINED BY CROSSING I INTO VECTOR FROM GRID PT. 1 TO C GRID C VECK(1) = VECI(2)*(Z4-Z1) - VECI(3)*(Y4-Y1) VECK(2) = VECI(3)*(X4-X1) - VECI(1)*(Z4-Z1) VECK(3) = VECI(1)*(Y4-Y1) - VECI(2)*(X4-X1) VECKL = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) IF (VECKL .EQ. 0.0) GO TO 40 VECK(1) = VECK(1)/VECKL VECK(2) = VECK(2)/VECKL VECK(3) = VECK(3)/VECKL C C J VECTOR IS OBTAINED BY CROSSING K INTO I C VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2) VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3) VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1) C E1T(1) = VECI(1) E1T(2) = VECI(2) E1T(3) = VECI(3) E1T(4) = VECJ(1) E1T(5) = VECJ(2) E1T(6) = VECJ(3) C C STORE ELEMENT COORDS FOR GRIDS 1 AND 2 C XX(1) = 0. XX(2) = 0. XX(3) = VECIL XX(4) = 0. C C FOR GRIDS 3-8, THE X COORDINATE IS THE DOT PRODUCT OF HTE VECTOR C FROM GRID POINT 1 TO THE GRID POINT AND THE I VECTOR. THE Y COORD. C IS THE L OF THE I VECTOR CROSSED INTO THE VECTOR FROM GRID 1 TO C THE GRID POINT. C DO 30 I = 3,8 IXX = 2*I - 1 ISUB = 4*I + 11 VEC(1) = ECPT(ISUB ) - X1 VEC(2) = ECPT(ISUB+1) - Y1 VEC(3) = ECPT(ISUB+2) - Z1 XX(IXX)= VEC(1)*VECI(1) + VEC(2)*VECI(2) + VEC(3)*VECI(3) VVEC(1)= VECI(2)*VEC(3) - VECI(3)*VEC(2) VVEC(2)= VECI(3)*VEC(1) - VECI(1)*VEC(3) VVEC(3)= VECI(1)*VEC(2) - VECI(2)*VEC(1) XX(IXX+1) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2) 30 CONTINUE GO TO 150 C C INAPPROPRIATE GEOMETRY C 40 CALL MESAGE (-30,31,ECPT(1)) C C C COMPUTE MATERIAL PROPERTIES C 150 TTH = TH*3.1415927/180. SINTH = SIN(TTH) COSTH = COS(TTH) ELTEMP = TTEMP INFLAG = 2 MATID = MATID1 CALL MAT (ECPT(1)) DO 160 I = 1,3 160 G(I) = QQ(I) G(4) = QQ(2) G(5) = QQ(4) G(6) = QQ(5) G(7) = QQ(3) G(8) = QQ(5) G(9) = QQ(6) C C STORE G MATRIX IN PH1OUT C DO 200 I = 1,9 200 PH1OUT(I+62) = G(I) C C COMPUTE AND STORE TRANSFORMATION MATRICES IF NECESSARY C DO 220 I = 1,8 ISUB = 4*I + 10 IF (NECPT(ISUB) .EQ. 0)GO TO 205 CALL TRANSS (NECPT(ISUB),TB) CALL GMMATS (E1T,2,3,0,TB,3,3,0,TSAVE) GO TO 211 205 DO 210 J = 1,6 TSAVE(J) = E1T(J) 210 CONTINUE 211 K = 6*I + 7 DO 215 J = 1,6 KK = K + J PH1OUT(KK) = TSAVE(J) 215 CONTINUE 220 CONTINUE C C START MAJOR LOOP C PT(1) = -0.57735027 PT(2) = -PT(1) IF (ID1 .EQ. 2) GO TO 221 PT(1) = -0.77459667 PT(2) = 0. PT(3) = -PT(1) 221 L = 0 DO 380 III = 1,ID1 DO 380 JJJ = 1,ID1 L = L + 1 C C COMPUTE DERIVATIVES WITH RESPECT TO X AND Y EACH GRID POINT C DO 230 N = 1,4 DNXI(N) = .25*XI(N)*(1.+PT(JJJ)*ETA(N))* 1 (2.*PT(III)*XI(N)+PT(JJJ)*ETA(N)) DNETA(N) = .25*ETA(N)*(1.+PT(III)*XI(N))* 1 (PT(III)*XI(N)+2.*PT(JJJ)*ETA(N)) 230 CONTINUE C DO 231 N = 5,7,2 DNXI(N) = -PT(III)*(1.+PT(JJJ)*ETA(N)) DNETA(N)= .5*(1.-PT(III)*PT(III))*ETA(N) 231 CONTINUE C DO 232 N = 6,8,2 DNXI(N) =.5*XI(N)*(1.-PT(JJJ)*PT(JJJ)) DNETA(N)= -PT(JJJ)*(1.+PT(III)*XI(N)) 232 CONTINUE C C COMPUTE JACOBEAN C C N1XI N2XI N3XI N4XI N5XI N6XI N7XI N8XI C DNC = N1ETA N2ETA N3ETA N4ETA N5ETA N6ETA N7ETA N8ETA C C X1 Y1 C X2 Y2 C X3 Y3 C XX = X4 Y4 C X5 Y5 C X6 Y6 C X7 Y7 C X8 Y8 C CALL GMMATS (DNC,2,8,0,XX,8,2,0,XJB) C C XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED C FOR INVERSION C K = 0 DO 240 I = 1,2 DO 240 J = 1,2 K = K + 1 240 XXJB(I,J) = XJB(K) C C COMPUTE INVERSE AND DETERMINANT OF JACOBEAN C CALL INVERS (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS) IF (ISING .EQ. 2) CALL MESAGE (-30,143,ECPT(1)) C C COMPUTE DERIVATIVES WITH RESPECT TO X,Y,AND Z C K = 0 DO 250 I = 1,2 DO 250 J = 1,2 K = K + 1 250 XJB(K) = XXJB(I,J) CALL GMMATS (XJB,2,2,0,DNC,2,8,0,DNL) C C N1X N2X N3X N4X N5X N6X N7X N8X C DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y C C C STORE DERIVATIVES IN PH1OUT C K = 16*L + 55 DO 370 I = 1,16 KK = K + I PH1OUT(KK) = DNL(I) 370 CONTINUE C C LOOP FOR OTHER GRID POINTS C 380 CONTINUE PH1OUT(1) = ECPT(1) DO 390 I = 1,8 390 PH1OUT(I+1) = ECPT(I+1) PH1OUT(10 ) = TREF C C COMPUTE VECTOR FOR THERMAL EXPANSION C ALPHAS(1) = ALPHA1 ALPHAS(2) = ALPHA2 ALPHAS(3) = ALP12 C CALL GMMATS (G,3,3,0,ALPHAS,3,1,0,PH1OUT(11)) C NPH1(62) = ID1 C RETURN END ================================================ FILE: mis/ss2d82.f ================================================ SUBROUTINE SS2D82 (IEQEX,NEQEX,TGRID) C C PHASE 2 OF STRESS DATA RECOVERY FOR 2-D, 8 GRID POINT C ISOPARAMETRIC STRUCTURAL ELEMENT C C PH1OUT CONTAINS THE FOLLOWING C ELEMENT ID C 8 SILS C TREF C ST ARRAY C TRANSFORMATION MATRIX FROM GLOBAL TO ELEMENT COORDINATES C COORD SYSTEM ID FOR STRESS OUTPUT C G MATRIX C DNX,DNY AT EACH GRID POINT -EVALUATED 8 TIMES C C DIMENSION TGRID(8),ST(3),TA(48),G(9),B(9),DB(72),DISP(24), 1 SIG(3),BB(72),DNX(8),DNY(8),TB(6),TEMP(9), 2 ISTRES(3),NSIL(1),NPH1(1),DN(8),XI(8),ETA(8), 3 PT(3),EX2D82(32),EX2D83(72),SIGS(27),SIGT(24), 4 IZ(1),STRESS(43) COMMON /ZZZZZZ/ Z(1) COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM COMMON /SDR2X7/ PH1OUT(100),STR(250),FORVEC(250) COMMON /SDR2X8/ DISP,DNX,DNY,DNZ,B,TB,BB,DB,SIG,IBASE,NSTRT,NPT, 1 IS,IDTEMP EQUIVALENCE (PH1OUT(1),NPH1(1)),(PH1OUT(1),ID), 1 (NSIL(1),PH1OUT(2)),(TREF,PH1OUT(10)), 2 (ST(1),PH1OUT(11)),(TA(1),PH1OUT(14)), 3 (G(1),PH1OUT(63)),(PH1OUT(62),ID1), 4 (ISTRES(1),STRESS(1)),(LDTEMP,ELTEMP), 5 (Z(1),IZ(1)) DATA EX2D82/ 1 1.86603,-.50000,-.50000, .13397,-.50000, .13397,1.86603,-.50000, 2 .13397,-.50000,-.50000,1.86603,-.50000,1.86603, .13397,-.50000, 3 .68301,-.18301, .68301,-.18301,-.18301,-.18301, .68301, .68301, 4 -.18301, .68301,-.18301, .68301, .68301, .68301,-.18301,-.18301/ DATA EX2D83/ 1 2.18694,-.98589, .27778,-.98589, .44444,-.12522, .27778,-.12522, 2 .03528, .27778,-.12522, .03528,-.98589, .44444,-.12522,2.18694, 3 -.98589, .27778, .03528,-.12522, .27778,-.12522, .44444,-.98589, 4 .27778,-.98589,2.18694, .27778,-.98589,2.18694,-.12522, .44444, 5 -.98589, .03528,-.12522, .27778,-.00000,0.00000,-.00000,1.47883, 6 -.66667, .18784, .00000,-.00000,-.00000,-.00000, .18784, .00000, 7 -.00000,-.66667,-.00000, .00000,1.47883, .00000,-.00000,0.00000, 8 .00000, .18784,-.66667,1.47883, .00000,-.00000, .00000,-.00000, 9 1.47883, .00000,-.00000,-.66667,-.00000,-.00000, .18784,0.00000/ DATA XI / -1., 1., 1.,-1., 0., 1., 0.,-1./ DATA ETA / -1.,-1., 1., 1.,-1., 0., 1., 0./ C C SET UP DISPLACEMENTS FOR THIS ELEMENT C IS = 0 DO 10 I = 1,8 NSTRT = IVEC + NSIL(I) - 1 DO 10 J = 1,3 IS = IS + 1 NPT = NSTRT + J - 1 DISP(IS) = Z(NPT) 10 CONTINUE C C INITIALIZE SOME MATRICES C DO 30 I = 1,72 30 BB(I) = 0. C C SET UP INDICATOR FOR GRID POINT TEMPERATURES C IDTEMP = 0 DO 40 I = 1,8 IF (TGRID(I) .NE. 0.) GO TO 50 40 CONTINUE GO TO 60 50 IDTEMP = 1 C C START LOOPING FOR STRESSES C 60 IDN = 4 IF (ID1 .EQ. 3) IDN = 9 III = 0 PT(1) = -0.57735027 PT(2) = -PT(1) IF (ID1 .EQ. 2) GO TO 133 PT(1) = -0.77459667 PT(2) = 0. PT(3) = -PT(1) 133 DO 135 JII = 1,ID1 DO 135 JJJ = 1,ID1 III = III + 1 C C COMPUTE BASE POINTER FOR PICKING UP DERIVATIVES C IBASE = 71 + 16*(III-1) C DO 70 N = 1,8 NX = N + IBASE NY = N + IBASE + 8 DNX(N) = PH1OUT(NX) DNY(N) = PH1OUT(NY) 70 CONTINUE C DO 130 N = 1,8 C C SET UP THE B MATRIX C DO 75 I = 1,9 TEMP(I) = 0. 75 B(I) = 0. B(1) = DNX(N) B(4) = DNY(N) B(5) = DNY(N) B(6) = DNX(N) C C TRANSFORM TO ELEMENT COORDINATES C KK = 6*N - 6 DO 80 I = 1,6 K = KK + I TB(I) = TA(K) 80 CONTINUE CALL GMMATS (B,3,2,0,TB,2,3,0,TEMP(1)) N3 = 3*N BB(N3- 2) = TEMP(1) BB(N3- 1) = TEMP(2) BB(N3 ) = TEMP(3) BB(N3+22) = TEMP(4) BB(N3+23) = TEMP(5) BB(N3+24) = TEMP(6) BB(N3+46) = TEMP(7) BB(N3+47) = TEMP(8) BB(N3+48) = TEMP(9) 130 CONTINUE C C BRING IN G MATRIX C CALL GMMATS (G,3,3,0,BB,3,24,0,DB) C C COMPUTE STRESSES C CALL GMMATS (DB,3,24,0,DISP,24,1,0,SIG) C C STORE GAUSS POINT STRESSES INTO SIGT C I3 = 3*(III-1) DO 131 I = 1,3 ISUB = I3 + I SIGS(ISUB) = SIG(I) 131 CONTINUE C C COMPUTE GAUSS POINT TEMPERATURES C IF (LDTEMP .EQ. -1) GO TO 135 IF (IDTEMP .EQ. 1) GO TO 229 RGTEMP = ELTEMP - TREF GO TO 250 C C ALL TEMPERATURES ARE DEFAULT VALUE C 229 DO 230 N = 1,4 DN(N) = .25*(1.+PT(JII)*XI(N))*(1.+PT(JJJ)*ETA(N)) 1 *(PT(JII)*XI(N)+PT(JJJ)*ETA(N)-1.) 230 CONTINUE DO 231 N = 5,7,2 DN(N) = .5*(1.-PT(JII)*PT(JII))*(1.+PT(JJJ)*ETA(N)) 231 CONTINUE DO 232 N = 6,8,2 DN(N) = .5*(1.+PT(JII)*XI(N))*(1.-PT(JJJ)*PT(JJJ)) 232 CONTINUE GSTEMP = 0. DO 240 N = 1,8 GSTEMP = GSTEMP + DN(N)*TGRID(N) 240 CONTINUE RGTEMP = GSTEMP - TREF 250 CONTINUE DO 260 I = 1,3 ISUB = I3 + I SIGS(ISUB) = SIGS(ISUB) - ST(I)*RGTEMP 260 CONTINUE C 135 CONTINUE C C MULTIPLY BY TRANSFORMATION FROM GAUSS POINTS TO GRID POINTS C IF (ID1 .EQ. 2) CALL GMMATS (EX2D82,8,4,0,SIGS,4,3,0,SIGT) IF (ID1 .EQ. 3) CALL GMMATS (EX2D83,8,9,0,SIGS,9,3,0,SIGT) C C FINISH UP C DO 500 III = 1,8 C C MOVE A ROW OF SIGT INTO SIG C I3 = 3*(III-1) DO 132 I = 1,3 ISUB = I3 + I SIG(I) = SIGT(ISUB) 132 CONTINUE C C STORE STRESSES C JSUB = 5*(III-1) + 4 ISUB1 = IEQEX + 1 ISUB2 = IEQEX + NEQEX - 1 DO 161 JJJ = ISUB1,ISUB2,2 NS = IZ(JJJ)/10 IF (NS .NE. NSIL(III)) GO TO 161 ISTRES(JSUB) = IZ(JJJ-1) GO TO 162 161 CONTINUE CALL MESAGE (-30,164,IZ(JJJ)) 162 CONTINUE ISTRES(JSUB+1) = 0 DO 170 I = 1,3 JJSUB = JSUB + 1 + I STRESS(JJSUB) = SIG(I) 170 CONTINUE C C LOOP FOR OTHER GRID POINTS C 500 CONTINUE C C FINISH UP C C ELEMENT ID C ISTRES(1) = ID C C NUMBER OF GRID POINTS PER ELEMENT C ISTRES(2) = 8 C C NUMBER OF STRESSES OUTPUT PER ELEMENT C ISTRES(3) = 3 C DO 600 I = 1,43 600 STR(I) = STRESS(I) C RETURN END ================================================ FILE: mis/ssg1.f ================================================ SUBROUTINE SSG1 C INTEGER PG,SLT,BGPDT,CSTM,SIL,ECPT,MPT,GPTT,EDT,CASECC, 1 CORE(166),SYSBUF,IWORD(4),MCB(7),SUBNAM(2) DIMENSION PG(7),ILIST(360),ARY(1),DEFML(2),IDEFML(2), 1 IARY(1),GVECT(1080) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /LOADX / LC,SLT,BGPDT,OLD,CSTM,SIL,ISIL,ECPT,MPT,GPTT,EDT, 1 N(3),LODC,MASS,NOBLD,IDIT,DUM6(6) COMMON /BLANK / NROWSP,LOADNN COMMON /SYSTEM/ SYSBUF,IOTPE,DUM53(53),ITHERM COMMON /LOADS / NLOAD,IPTR COMMON /ZZZZZZ/ ICORE(1) EQUIVALENCE (CORE(1),ICORE(1),IARY(1),ARY(1)), 1 (DEFML(1),IDEFML(1)) DATA IWORD / 4,6,7,162/ DATA SUBNAM/ 4HSSG1,4H / C C MODIFY OPEN CORE POINTER IPTR FOR MAGNETICS PROBLEM C IPTR = MAX0(NROWSP,166) MCB(1)= 105 CALL RDTRL (MCB(1)) IF (MCB(1) .GT. 0) IPTR = MAX0(3*NROWSP,3*MCB(2),166) C C INITIALIZE. C LC = KORSZ(ICORE(1)) NLLST = LC - 2*SYSBUF SLT = 101 BGPDT = 102 CSTM = 103 SIL = 104 ECPT = 105 MPT = 106 GPTT = 107 EDT = 108 MASS = 109 CASECC= 110 IDIT = 111 LODC = 201 C 205 = NEWSLT (THERMAL) PG(1) = 301 ICR2 = 302 ICR3 = 303 DO 10 I = 2,7 10 PG(I) = 0 PG(3) = NROWSP PG(4) = 2 PG(5) = 1 C C AVOID CALCULATING UNUSED LOADS C C NEDT = NUMBER OF ELEMENT DEFORMATIONS C NTEMP = NUMBER OF THERMAL LOADS C NCENT = NUMBER OF CENTRIFUGAL LOADS C CALL SSG1A (N1,ILIST(1),NEDT,NTEMP,NCENT,CASECC,IHARM) N1A = N1 + 1 LC = LC - SYSBUF CALL OPEN (*310,PG(1),ICORE(LC+1),1) CALL WRITE (PG(1),PG(1),2,1) NGRAV = 0 NEX = N1 + NTEMP + NEDT + NCENT IF (N1 .EQ. 0) GO TO 21 C C MODIFY SLT -QVOL-, -QBDY1-, -QBDY2-, AND -QVECT- CARDS. C NEWSLT = ICR3 IF (ITHERM .NE. 0) NEWSLT = 205 ISLT = SLT CALL SSGSLT (SLT,NEWSLT,ECPT) SLT = NEWSLT CALL EXTERN (NEX,NGRAV,GVECT(1),ILIST(1),PG(1),N1,IHARM) C C RESET -SLT- TO ORIGINAL SLT DATA BLOCK C SLT = ISLT N1 = N1 - NGRAV 21 IF (NTEMP) 30,40,30 30 CALL TEMPL (NTEMP,ILIST(N1+1),PG(1)) N1 = N1 + NTEMP 40 IF (NEDT) 50,60,50 50 CALL EDTL (NEDT,ILIST(N1+1),PG(1)) N1 = N1 + NEDT 60 CALL CLOSE (PG,1) CALL WRTTRL (PG(1)) IF (NGRAV) 90,100,90 90 CONTINUE C C CHECK TO SEE IF THE MASS MATRIX IS PURGED C MCB(1) = MASS CALL RDTRL (MCB(1)) IF (MCB(1) .LE. 0) CALL MESAGE (-56,0,IWORD) CALL GRAVL1 (NGRAV,GVECT(1),ICR2,IHARM) C C USE LOAD FILE AS SCRATCH NOTHING ON IT NOW C CALL SSG2B (MASS,ICR2,0,ICR3,0,1,1,LODC) CALL GRAVL2 (NGRAV,ICR3,PG(1)) N1 = N1 + NGRAV 100 IPONT1 = IPTR + 2 IPONT = IPTR + 1 NLOAD = 0 DO 110 I = 1,NLLST 110 IARY(I) = 0 CALL OPEN (*320,CASECC,ICORE(LC+1),0) LC1 = LC - SYSBUF ISLT = 0 CALL OPEN (*130,SLT,ICORE(LC1+1),0) ISLT = 1 DO 120 I = 1,N1A CALL FWDREC (*270,SLT) 120 CONTINUE 130 DO 140 I = 1,LOADNN CALL FWDREC (*320,CASECC) 140 CONTINUE IFRST = 0 150 CALL READ (*250,*250,CASECC,CORE(1),166,1,FLAG) IF (IFRST .NE. 0) GO TO 151 IFRST = 1 ISPCN = CORE(3) MPCN = CORE(2) 151 CONTINUE C C TEST FOR SYMMETRY, BUCKLING OR DIFFERENTIAL STIFFNESS. C IF (CORE(16).NE.0 .OR. CORE(5).NE.0 .OR. CORE(138).NE.0) GO TO 150 IF (CORE(3).NE.ISPCN .OR. CORE(2).NE.MPCN) GO TO 250 INULL = 0 DO 230 K = 1,4 I = IWORD(K) IF (ITHERM.NE.0 .AND. I.EQ.7) GO TO 230 IF (CORE(I) .EQ. 0) GO TO 230 DO 160 J = 1,N1 IF (CORE(I) .EQ. ILIST(J)) GO TO 220 160 CONTINUE C C COMBINATION CARD C INULL = 1 170 CALL READ (*270,*330,SLT,IDEFML(1),2,0,IFLAG) IF (CORE(I) .EQ. IDEFML(1)) GO TO 190 180 CALL READ (*270,*330,SLT,IDEFML(1),2,0,IFLAG) IF (IDEFML(2) .EQ. -1) GO TO 170 GO TO 180 190 A = DEFML(2) 200 CALL READ (*270,*330,SLT,IDEFML(1),2,0,IFLAG) IF (IDEFML(2) .EQ. -1) GO TO 210 IF (IPONT+1 .GT. NLLST) GO TO 340 IARY(IPONT ) = IARY(IPONT) + 1 IARY(IPONT1 ) = IDEFML(2) ARY(IPONT1+1) = A*DEFML(1) IPONT1 = IPONT1 + 2 GO TO 200 210 CALL BCKREC (SLT) GO TO 230 220 IARY(IPONT) = IARY(IPONT) + 1 IF (IPONT+1 .GT. NLLST) GO TO 340 IARY(IPONT1 ) = CORE(I) ARY(IPONT1+1) = 1.0 IPONT1 = IPONT1 + 2 INULL = 1 230 CONTINUE IF (INULL .EQ. 0) GO TO 260 240 IPONT = IPONT + IARY(IPONT)*2 + 1 NLOAD = NLOAD + 1 IPONT1= IPONT1+ 1 GO TO 150 250 CALL CLOSE (CASECC,1) IF (ISLT .EQ. 1) CALL CLOSE (SLT,1) CALL COMBIN (PG(1),ILIST(1),N1) RETURN C 260 IARY(IPONT) = 1 IF (IPONT+1 .GT. NLLST) GO TO 340 IARY(IPONT1 ) =-1 ARY(IPONT1+1) = 1.0 IPONT1 = IPONT1 + 2 GO TO 240 C 270 IP1 = SLT 280 IP2 =-1 290 CALL MESAGE (IP2,IP1,SUBNAM) IP1 = CASECC GO TO 280 310 IP1 = PG(1) GO TO 280 320 IP1 = CASECC GO TO 280 330 IP2 =-2 IP1 = SLT GO TO 290 C 340 I = ICORE(I) NWDS = 0 350 CALL READ (*330,*360,SLT,CORE(1),LC,0,IFLAG) NWDS = NWDS + LC GO TO 350 360 NWDS = NWDS + IFLAG WRITE (IOTPE,370) UFM,I,NLLST,NWDS 370 FORMAT (A23,' 3176, INSUFFICIENT OPEN CORE AVAILABLE TO PROCESS ', 1 'ALL LOAD CARD COMBINATIONS IN MODULE SSG1.', 2 /32X,'CURRENT LOAD ID BEING PROCESSED IS',I9,1H., 3 /32X,'OPEN CORE AVAILABLE IS',I9,' WORDS.', 4 /32X,'ADDITIONAL OPEN CORE REQUIRED IS',I9,' WORDS.') IP1 = 0 IP2 =-61 GO TO 290 END ================================================ FILE: mis/ssg1a.f ================================================ SUBROUTINE SSG1A (N1,ILIST,NEDT,NTEMP,NCENT,CASECC,IHARM) C C ROUTINE ANALIZES CASECC AND SLT TO BUILD LISTS OF SELECTED C LOADS C INTEGER SYSTEM,SLT,BGPDT,CSTM,SIL,ECPT,MPT,GPTT,EDT, 1 CASECC,CORE(138),NAME(2),NAME1(2),ILIST(1), 2 IDEFML(1080),ITEMPL(1080),ICOMB(1080) COMMON /LOADX / LC,SLT,BGPDT,OLD,CSTM,SIL,ISIL,ECPT,MPT,GPTT,EDT, 1 N(3),LODC,MASS,NOBLD COMMON /BLANK / NROWSP,LOADNN COMMON /SYSTEM/ SYSTEM,NOUT,DUM53(53),ITHERM COMMON /ZZZZZZ/ ICORE(1) EQUIVALENCE (ICORE(1),CORE(1)) DATA NAME / 4HSSG1,4HA / DATA NAME1 / 4HSLT ,4HSSG1/ C C C INITIALIZE. C NEDT = 0 NTEMP = 0 NCENT = 0 IFOUND= 0 N1 = 0 LC1 = LC - SYSTEM ISLT = 0 CALL OPEN (*20,SLT,CORE(LC1+1),0) ISLT = 1 CALL READ (*320,*10,SLT,ILIST(1), -2,0,N1) CALL READ (*320,*10,SLT,ILIST(1),LC1,1,N1) C C ALLOW FOR 360 LOADS C 10 IF (N1 .LE. 360) GO TO 12 NAME(2) = N1 CALL MESAGE (-30,137,NAME) 12 LC1 = LC1 - SYSTEM LLIST = N1 20 CALL OPEN (*350,CASECC,CORE(LC1+1),0) IONE = 0 DO 30 I = 1,LOADNN 30 CALL FWDREC (*350,CASECC) IFRST = 0 40 CALL READ (*110,*350,CASECC,CORE(1),166,1,FLAG) IF (IFRST .NE. 0) GO TO 41 IFRST = 1 ISPCN = CORE(3) MPCN = CORE(2) C C TEST FOR SYMMETRY BUCKLING, OR DIFFERENTIAL STIFFNESS C 41 IF (CORE(16).NE.0 .OR. CORE(5).NE.0 .OR. CORE(138).NE.0) GO TO 40 IF (CORE(2).NE.MPCN .OR. CORE(3).NE.ISPCN) GO TO 110 IHARM = CORE(136) IONE = 1 IF (CORE(6) .EQ. 0) GO TO 50 C C SEE IF EL DEFORM LOAD ALREADY APPLIED C IF (NEDT .EQ. 0) GO TO 52 DO 51 I = 1,NEDT IF (IDEFML(I) .EQ. CORE(6)) GO TO 50 51 CONTINUE C C ADD TO LIST C 52 CONTINUE NEDT = NEDT + 1 IDEFML(NEDT) = CORE(6) 50 IF (CORE(7) .EQ. 0) GO TO 60 C C SEE IF TEMP LOAD ALREADY APPLIED C IF (ITHERM .NE. 0) GO TO 60 IF (NTEMP .EQ. 0) GO TO 54 DO 53 I = 1,NTEMP IF (ITEMPL(I) .EQ. CORE(7)) GO TO 60 53 CONTINUE 54 CONTINUE NTEMP = NTEMP + 1 ITEMPL(NTEMP) = CORE(7) 60 IF (CORE(4) .EQ. 0) GO TO 40 IF (ISLT .EQ. 0) CALL MESAGE (-31,CORE(4),NAME1) IF (N1 .EQ. 0) GO TO 90 DO 80 I = 1,N1 IF (CORE(4) .EQ. IABS(ILIST(I))) GO TO 100 80 CONTINUE C C MUST LOOK AT LOAD CARDS C 90 IFOUND = IFOUND + 1 ICOMB(IFOUND) = CORE(4) GO TO 40 100 ILIST (I) = -IABS(ILIST(I)) GO TO 40 110 CALL CLOSE (CASECC,1) IF (IONE .EQ. 0) GO TO 360 IF (NTEMP .EQ. 0) GO TO 130 DO 120 I = 1,NTEMP J = N1 + I 120 ILIST(J) = ITEMPL (I) 130 IF(NEDT .EQ. 0) GO TO 150 DO 140 I = 1,NEDT J = N1 + NTEMP + I 140 ILIST(J) = IDEFML(I) 150 IF (IFOUND .EQ. 0) GO TO 270 C C LOOK AT LOAD CARDS C DO 180 I = 1,N1 CALL FWDREC (*320,SLT) 180 CONTINUE I = 1 NOGO = 0 CALL READ (*370,*190,SLT,CORE(1),LC1,1,IFLAG) 190 LLIST = N1 + NEDT + NTEMP IF (LLIST .EQ. 0) GO TO 370 DO 260 I = 1,IFOUND J = 1 200 IF (ICOMB(I) .EQ. CORE(J)) GO TO 220 J = J + 6 210 IF (J-1 .GT. IFLAG) GO TO 255 IF (CORE(J-1) .EQ. -1) GO TO 200 J = J + 2 GO TO 210 220 J = J + 3 230 IF (CORE(J) .EQ. -1) GO TO 260 DO 250 K = 1,LLIST IF (CORE(J) .NE. IABS(ILIST(K))) GO TO 250 ILIST(K) = -IABS(ILIST(K)) J = J + 2 GO TO 230 250 CONTINUE 255 CALL MESAGE (31,ICOMB(I),NAME1) NOGO = 1 260 CONTINUE IF (NOGO .NE. 0) GO TO 390 270 IF (ISLT .NE. 0) CALL CLOSE (SLT,1) IF (N1 .EQ. 0) GO TO 310 DO 300 I = 1,N1 IF (ILIST (I)) 290,300,280 280 ILIST (I) = 0 GO TO 300 290 ILIST (I) = -ILIST(I) 300 CONTINUE 310 RETURN C C ERROR MESSAGES. C 320 IP1 = SLT 330 IP2 = -1 CALL MESAGE (IP2,IP1,NAME) 350 IP1 = CASECC GO TO 330 360 WRITE (NOUT,365) 365 FORMAT ('0*** MISSING LOAD CARD IN CASE CONTROL') CALL MESAGE (-7,0,NAME) 370 IP2 = 31 DO 380 I = 1,IFOUND IP1 = ICOMB(I) CALL MESAGE (IP2,IP1,NAME1) 380 CONTINUE 390 CALL MESAGE (-61,0,NAME) RETURN C END ================================================ FILE: mis/ssg2.f ================================================ SUBROUTINE SSG2 C C MULTI = 0 IMPLIES NO MULTI-POINT CONSTRAINTS PN = PG C C SINGLE = 0 IMPLIES NO SINGLE POINT CONSTRAINTS PF = PN C C OMIT = 0 IMPLIES NO OMITTED POINTS PA = PF C C REACT = 0 IMPLIES NO FREE BODY PROBLEM PL = PA C C EXTERNAL ANDF INTEGER USET,GM,KFS,GO,PNBAR,PG,PM,PO,PA,SINGLE,OMIT, 1 PVECT,PS,D,PL,PR,QR,REACT,UM,UN,UG,US,UF,UO,UA, 2 UL,UR,PF,PABAR,PN,PFBAR,ANDF,YS,IA(7),USET1,SR4 DIMENSION CORE(1) COMMON /SYSTEM/ DUM54(54),IPREC COMMON /PATX / LC,N,NO,N4,USET1,IBC COMMON /BLANK / SINGLE COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG COMMON /TWO / TWO1(32) COMMON /ZZZZZZ/ CORE C DATA USET , GM ,KFS ,GO ,PNBAR ,PM ,PO ,PN / 1 101 , 102 ,104 ,105 ,302 ,303 ,202 ,204 / DATA PFBAR , PF ,PABAR ,PA ,PS ,D ,PL ,PR / 1 302 , 204 ,302 ,204 ,203 ,106 ,204 ,302 / DATA QR , PVECT ,YS ,PG ,SR4 / 1 201 , 301 ,103 ,107 ,304 / C C PNBAR = 302 PN = 204 PR = 302 PF = 204 PA = 204 LC = KORSZ(CORE) C C DECIDE IF MULTI,SINGLE,OMIT,REACT ARE 1 OR ZERO C IA(1) = USET USET1 = USET CALL RDTRL (IA) MULTI = ANDF(IA(5),TWO1(UM)) SINGLE= ANDF(IA(5),TWO1(US)) OMIT = ANDF(IA(5),TWO1(UO)) REACT = ANDF(IA(5),TWO1(UR)) IF (REACT .LE. 0) GO TO 10 IF (.NOT.(MULTI.GT.0 .AND. SINGLE.EQ.0 .AND. OMIT.EQ.0)) GO TO 5 PNBAR = 204 PN = 302 PR = 303 GO TO 20 5 CONTINUE PF = 201 PA = 303 10 IF (MULTI) 20,30,20 C 20 CALL CALCV (PVECT,UG,UN,UM,CORE(1)) CALL SSG2A (PG,PNBAR,PM,PVECT) CALL SSG2B (GM,PM,PNBAR,PN,1,IPREC,1,SR4) GO TO 40 C 30 PN = PG 40 IF (SINGLE) 50,70,50 50 CALL CALCV (PVECT,UN,UF,US,CORE(1)) CALL SSG2A (PN,PFBAR,PS,PVECT) CALL SSG2B (KFS,YS,PFBAR,PF,0,IPREC,0,SR4) GO TO 80 70 PF = PN 80 IF (OMIT) 90,100,90 C 90 CALL CALCV (PVECT,UF,UA,UO,CORE(1)) CALL SSG2A (PF,PABAR,PO,PVECT) CALL SSG2B (GO,PO,PABAR,PA,1,IPREC,1,SR4) GO TO 110 100 PA = PF 110 IF (REACT) 120,130,120 C 120 CALL CALCV (PVECT,UA,UL,UR,CORE(1)) CALL SSG2A (PA,PL,PR,PVECT) CALL SSG2B (D,PL,PR,QR,1,IPREC,-1,SR4) 130 RETURN END ================================================ FILE: mis/ssg2a.f ================================================ SUBROUTINE SSG2A (PG,PNBAR,PM,PVACT) C INTEGER PG,PNBAR,PM,PVACT,RULE,PVECT(7),CORE(6) COMMON /PARMEG/ IA1(7),IA11(7),IA12(7),IA21(7),IA22(7),LCR,RULE COMMON /PATX / LCORE,N,NO(4) COMMON /ZZZZZZ/ ICORE(1) EQUIVALENCE (ICORE(1),CORE(1)) C C PVECT(1)= PVACT CALL RDTRL (PVECT) IA1(1) = PG CALL RDTRL (IA1) IA11(1) = PNBAR IA12(1) = PM DO 10 I = 2,5 IA11(I) = IA1(I) 10 IA12(I) = IA1(I) IA11(3) = N IA12(3) = NO(1) IA21(1) = 0 IA22(1) = 0 RULE = 0 LCR = KORSZ(CORE) CORE(1) = 0 CORE(2) = 1 CORE(3) = IA1(2) CORE(4) = 2 CORE(5) = 1 CORE(6) = 0 CALL PARTN (CORE,PVECT,CORE) IF (IA11(1) .NE. 0) CALL WRTTRL (IA11) IF (IA12(1) .NE. 0) CALL WRTTRL (IA12) RETURN END ================================================ FILE: mis/ssg2b.f ================================================ SUBROUTINE SSG2B (KFS,CDT,PABAR,SR1,T1,IPREC1,IA1,SR2) C IMPLICIT INTEGER (A-Z) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /ZZZZZZ/ CORE(1) COMMON /SYSTEM/ KSYSTM(55) COMMON /MPYADX/ FILEA(7),FILEB(7),FILEC(7),FILED(7),NZ,T,I1,I2, 1 PREC,SCR2 EQUIVALENCE (KSYSTM(55),KPREC1), (KSYSTM(1),SYSBUF), 1 (KSYSTM( 2),IOUTPT) DATA SQUARE, RECT,DIAG,SYMM,IDENT / 1,2,3,6,8 / C PREC1 = MIN0(KPREC1,IPREC1) IF (PREC1 .LE. 0) PREC1 = KPREC1 NZ = KORSZ(CORE) DO 10 I = 1,21 10 FILEA(I) = 0 FILEA(1) = KFS SCR2 = SR2 IF (IABS(IA1)-1) 40,20,30 20 I2 = IA1 I1 = IA1 GO TO 50 30 I2 =-1 I1 = 1 GO TO 50 40 I1 =-1 I2 = 1 50 CALL RDTRL (FILEA) FILEB(1) = CDT CALL RDTRL (FILEB) IF (FILEB(1) .LE. 0) FILEB(4) = SYMM FILEC(1) = PABAR CALL RDTRL (FILEC) IF (FILEC(1) .LE. 0) GO TO 70 IF (FILEC(2).EQ.FILEB(2) .OR. FILEB(1).LE.0) GO TO 80 WRITE (IOUTPT,60) SWM,FILEB(1),FILEB(3),FILEB(2),FILEB(3),FILEC(2) 60 FORMAT (A27,' 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON' 1, I5,8H, FROM (,I5,1H,,I5,7H), TO (,I5,1H,,I5,1H)) FILEB(2) = FILEC(2) GO TO 80 70 FILEC(1) = 0 FILEC(4) = DIAG 80 FILED(4) = RECT FILED(1) = SR1 C C COMPUTE TYPE OF OUTPUT C IRC = 0 IF (FILEA(5).GT.2 .OR. FILEB(5).GT.2 .OR. (FILEC(5).GT.2 .AND. 1 FILEC(1).NE.0)) IRC = 2 FILED(5) = PREC1 + IRC T = T1 PREC = PREC1 FILED(3) = FILEA(3) IF (T .NE. 0) FILED(3) = FILEA(2) IF (FILEA(1).LE.0 .OR. FILEB(1).LE.0) FILED(3) = FILEC(3) CALL MPYAD (CORE,CORE,CORE) IF (FILED(2).EQ.FILED(3) .AND. FILED(4).NE.SYMM) FILED(4) = SQUARE IF (FILED(4).EQ.SYMM .OR. FILED(4).NE.SQUARE) GO TO 100 C C IF END RESULT IS A SYMMETRIC MATRIX, MAKE SURE THE FORM IS SET TO C 6 (SYMM). IT COULD SAVE CPU TIME LATER AND WORTH ONE FINAL CHECK. C K = 0 DO 90 I = 1,21,7 IF (FILEA(I) .LE. 0) GO TO 90 J = FILEA(I+3) IF (J.EQ.DIAG .AND. I.EQ.15 ) GO TO 90 IF (J.NE.SYMM .AND. J.NE.IDENT) GO TO 100 IF (J .EQ. SYMM) K = K + 10 IF (J .EQ. IDENT) K = K + 1 90 CONTINUE IF (K .GT. 0) FILED(4) = IDENT IF (K .GE. 10) FILED(4) = SYMM 100 CALL WRTTRL (FILED) RETURN END ================================================ FILE: mis/ssg2c.f ================================================ SUBROUTINE SSG2C (A,B,C,OP,BLOCK) C INTEGER A,B,C ,OP ,BLOCK(11),NA(2) ,NB(2) DIMENSION IA(5) ,IB(5) ,IC(5) ,IT(1) ,IT1(1) DOUBLE PRECISION DIT1 INTEGER DT1(2) CHARACTER UFM*23 ,UWM*25 COMMON /XMSSG / UFM ,UWM COMMON /ZZZZZZ/ CORE(1) COMMON /SADDX / NOMAT ,LCORE ,MCBS(67) COMMON /SYSTEM/ KSYSTM(65) EQUIVALENCE (DT1,DIT1) EQUIVALENCE (KSYSTM(55),IPR1) ,(MCBS(1),IA(1)) , 1 (MCBS(8),IT(1),DIT),(MCBS(13),IB(1)) , 2 (MCBS(20),IT1(1)),(MCBS(61),IC(1)) , 3 (KSYSTM(2),NOUT) ,(IA5,IA(5)) ,(IB5,IB(5)) C C BLOCK(6) WAS NOT USED IN ORIGINAL NASTRAN. IT IS NOW USED TO FLAG C THE CHECKING OF THE INPUT MATRICES COMPATABILITY IF THE CALLER C PRESETS BLOCK(6) TO -1 C IA(1) = A CALL RDTRL (IA) IF (IA(1) .LT. 0) IA(1) = 0 IB(1) = B CALL RDTRL (IB) IF (IB(1) .GT. 0) GO TO 10 IB(1) = 0 IF (IA(1)) 150,150,30 10 DO 20 I = 2,4 20 IC(I) = IB(I) GO TO 50 30 DO 40 I = 2,4 40 IC(I) = IA(I) C 50 NOMIX = 0 IF (BLOCK(6) .NE. -1) GO TO 70 IF (IA5.EQ.0 .OR. IB5.EQ.0) GO TO 70 IF ((IA5.LE.2 .AND. IB5.LE.2) .OR. (IA5.GE.3 .AND. IB5.GE.3)) 1 GO TO 70 IF (MAX0(IA5,BLOCK(1)) .EQ. MAX0(IB5,BLOCK(7))) GO TO 70 NOMIX = 1 CALL FNAME (A,NA) CALL FNAME (B,NB) WRITE (NOUT,60) UWM,NA,IA(2),IA(3),IA5,IA(4),NB,IB(2),IB(3), 1 IB5,IB(4) 60 FORMAT (A25,', SSG2C RECEIVES TWO MIXED FILE TYPES FOR ADDING.', 1 /,2(5X,'FILE ',2A4,'(',I6,' X',I6,') TYPE =',I3, 2 ', FORM =',I3)) C C UNSY + SYM = UNSY C 70 IF (IC(4) .NE. 6) GO TO 80 IF (IA(1).NE.0 .AND. IA(4).NE.6) IC(4) = 1 IF (IB(1).NE.0 .AND. IB(4).NE.6) IC(4) = 1 80 IF (OP .LT. 0) IA(2) = -IC(2) DO 90 I = 1,5 IT(I) = BLOCK(I ) 90 IT1(I) = BLOCK(I+6) DT1(1) = MCBS(20) DT1(2) = MCBS(21) IF (NOMIX .NE. 0) WRITE (NOUT,92,ERR=95) IT(1),DIT,IT1(1),DIT1 92 FORMAT (' MULTIPLIERS =',I3,D12.3,I8,D12.3) 95 IC(1) = C LCORE = KORSZ(CORE) C C DETERMINE TYPE OF OUTPUT C IRC = 0 IF (IA(1) .EQ. 0) GO TO 100 IF (IA5.GT.2 .OR. IT(1).GT.2) IRC = 2 100 IF (IB(1) .EQ. 0) GO TO 110 IF (IB5.GT.2 .OR. IT1(1).GT.2) IRC = 2 110 CONTINUE IPREC = IPR1 IC(5) = IRC + IPREC NOMAT = 2 IF (NOMIX .EQ. 0) GO TO 130 CALL FNAME (IC(1),NA) WRITE (NOUT,120) NA,IC(2),IC(3),IC(5),IC(4) 120 FORMAT (5X,'FILE ',2A4,'(',I6,' X',I6,') TYPE =',I3,', FORM =',I3, 1 5X,'(RESULTANT)') 130 CALL SADD (CORE,CORE) CALL WRTTRL (IC) 150 RETURN END ================================================ FILE: mis/ssg3.f ================================================ SUBROUTINE SSG3 C C DMAP FOR STATIC SOLUTION GENERATOR 3 C C SSG3 LLL,KLL,PL,LOO,KOOB,PO /ULV,UOV,RULV,RUOV/ V,N,OMIT/ C V,Y,IRES/V,N,SKIP/V,N,EPSI $ C INTEGER LLL,KLL,PL,LOO,PO,ULV,UOV,SR1,SR2,OMIT,RULV,RUOV COMMON /BLANK/ OMIT,IRES,NSKIP,EPSI DATA LLL , KLL, PL, LOO, KOOB, PO, ULV, UOV, RULV, RUOV / 1 101 , 102, 103, 104, 105, 106, 201, 202, 203 , 204 / DATA SR1 , SR2 / 1 301 , 302 / C CALL SSG3A (KLL,LLL,PL,ULV,SR1,SR2,0,RULV) IF (OMIT .GE. 0) CALL SSG3A (KOOB,LOO,PO,UOV,SR1,SR2,0,RUOV) RETURN END ================================================ FILE: mis/ssg3a.f ================================================ SUBROUTINE SSG3A (A,LLL,B,X,SR1,SR2,ITR1,RES) C C SSG3A SOLVES AX = B USING A = L*LT C C ON OPTION COMPUTES RESIDUAL VECTOR RES = A*X - B C AND EPSI= X(T)*RES/B(T)*X C INTEGER A, B, X, SR1, 1 FILL, FILLT, FILB, SR2, 2 FILX, PREC, RES, SYSBUF, 3 NAME(2) DOUBLE PRECISION DCORE(1), DNUM, DNOM, DX COMMON /BLANK / N, IRES, NSKIP, IEPSI COMMON /FBSX / FILL(7), FILLT(7), FILB(7), FILX(7), 1 NZ, PREC, ISIGN COMMON /ZZZZZZ/ CORE(1) COMMON /SYSTEM/ KSYSTM(55) COMMON /UNPAKX/ ITB, I, J, INCUR COMMON /ZNTPKX/ DX(2), IK, IEOL, IEOR EQUIVALENCE (CORE(1),DCORE(1)), (KSYSTM(1),SYSBUF), 1 (KSYSTM(55),IPREC) DATA NAME / 4HSSG3, 4HA / C FILL(1) = LLL CALL RDTRL (FILL) IF (FILL(1) .LE. 0) CALL MESAGE (-1,LLL,NAME) FILB(1) = B CALL RDTRL (FILB) NLOAD = FILB(2) NLEN = FILB(3) ISIGN = 1 PREC = 2 NZ = KORSZ(CORE) DO 10 I = 2,7 10 FILX(I) = FILB(I) FILX(1) = X C C SAVE DISPLACEMENT VECTOR IN DOUBLE PRECISION C FILX(5) = 1 IF (FILB(5) .GT. 2) FILX(5) = 3 FILX(5) = FILX(5) + IPREC - 1 CALL FBS (CORE,CORE) CALL WRTTRL (FILX) IF (ITR1 .LT. 0) GO TO 130 FILL(1) = RES CALL RDTRL (FILL) IF (FILL(1) .LE. 0) GO TO 130 C C COMPUTE RESIDUAL VECTOR C CALL SSG2B (A,X,B,RES,0,2,-2,SR1) C C COMPUTE EPSI C NZ = NZ - SYSBUF CALL GOPEN (X,CORE(NZ+1),0) NZ = NZ - SYSBUF CALL GOPEN (RES,CORE(NZ+1),0) NZ = NZ - SYSBUF CALL GOPEN (B,CORE(NZ+1),0) IF (NZ .LT. 2*NLEN) GO TO 180 ITB = 2 INCUR = 1 I = 1 J = NLEN DO 120 L = 1,NLOAD CALL UNPACK (*80,X,CORE) DNUM = 0.0D0 DNOM = 0.0D0 CALL INTPK (*90,RES,0,2,0) 20 IF (IEOL) 40,30,40 30 CALL ZNTPKI DNUM = DNUM + DX(1)*DCORE(IK) GO TO 20 40 CALL INTPK (*100,B,0,2,0) 50 IF (IEOL) 70,60,70 60 CALL ZNTPKI DNOM = DNOM + DX(1)*DCORE(IK) GO TO 50 70 EPSI = DNUM/DNOM GO TO 110 80 CALL FWDREC (*160,RES) 90 CALL FWDREC (*170,B) 100 EPSI = 0.0 110 CALL MESAGE (35,NSKIP+L-1,EPSI) IF (ABS(EPSI) .LT. 1.0E-3) GO TO 120 IEPSI = -1 CALL MESAGE (58,1.0E-3,NSKIP+L-1) 120 CONTINUE CALL CLOSE (X,1) CALL CLOSE (RES,1) CALL CLOSE (B,1) 130 RETURN C 150 CALL MESAGE (-1,IPM,NAME) 160 IPM = RES GO TO 150 170 IPM = B GO TO 150 180 CALL MESAGE (-8,0,NAME) RETURN C END ================================================ FILE: mis/ssg4.f ================================================ SUBROUTINE SSG4 C C DRIVER TO DO INERTIAL RELIEF PORTION OF SSG C C DMAP SEQUENCE C C SSG4 PL,QR,PO,MR,MLR,D,MLL,MOOB,MOAB,GO,USET/PLI,POI/V,N,IOMT $ C INTEGER GO,USET INTEGER PL,QR,PO,D,PLI,POI,SCR1,SCR2,SCR3,SCR4,SCR5 COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG COMMON /BLANK/ IOMT DATA PL,QR,PO,MR,MLR,D,MLL,MOOB,MOAB,PLI,POI,SCR1,SCR2,SCR3,SCR4 1 ,SCR5,GO,USET 2 / 101,102,103,104,105,106,107,108,109,201,202,301,302,303,304, 3 305,110,111/ C C COMPUTE MR-1*QR=TEMP2 C CALL FACTOR(MR,SCR1,SCR2,SCR3,SCR4,SCR5) CALL SSG3A( MR, SCR1, QR, SCR3, SCR4, SCR5, -1, XXX ) C C COMPUTE MLL*D+MLR=TEMP1 C CALL SSG2B(MLL,D,MLR,SCR4,0,2,1,SCR1) C C COMPUTE TEMP1*TEMP2+PL=PLI C CALL SSG2B(SCR4,SCR3,PL,PLI,0,2,1,SCR1) IF(IOMT) 20,20,10 C C COMPUTE MOOB*GO+MOAB=SCR4 C 10 CALL SSG2B(MOOB,GO,MOAB,SCR4,0,2,1,SCR1) C C COMPUTE DI*TEMP2 =SCR2 C CALL SSG2B(D,SCR3,0,SCR2,0,2,1,SCR1) CALL SDR1B(SCR5,SCR2,SCR3,SCR1,UA,UL,UO,USET,0,0) C C COMPUTE SCR4*SCR1+PO=POI C CALL SSG2B(SCR4,SCR1,PO,POI,0,2,1,SCR3) 20 RETURN END ================================================ FILE: mis/ssgetd.f ================================================ SUBROUTINE SSGETD (ELID,TI,GRIDS) C C THIS ROUTINE (CALLED BY -EDTL-) READS ELEMENT TEMPERATURE C DATA FROM A PRE-POSITIONED RECORD C C ELID = ID OF ELEMENT FOR WHICH DATA IS DESIRED C TI = BUFFER DATA IS TO BE RETURNED IN C GRIDS = 0 IF EL-TEMP FORMAT DATA IS TO BE RETURNED C = NO. OF GRID POINTS IF GRID POINT DATA IS TO BE RETURNED. C ELTYPE = ELEMENT TYPE TO WHICH -ELID- BELONGS C OLDEL = ELEMENT TYPE CURRENTLY BEING WORKED ON (INITIALLY 0) C EORFLG = .TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED IN RECORD C ENDID = .TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED WITHIN AN ELEMENT C TYPE. C BUFFLG = NOT USED C ITEMP = TEMPERATURE LOAD SET ID C IDEFT = NOT USED C IDEFM = NOT USED C RECORD = .TRUE. IF A RECORD OF DATA IS INITIALLY AVAILABLE C DEFALT = THE DEFALT TEMPERATURE VALUE OR -1 IF IT DOES NOT EXIST C AVRAGE = THE AVERAGE ELEMENT TEMPERATURE C LOGICAL EORFLG ,ENDID ,BUFFLG ,RECORD INTEGER TI(7) ,GRIDS ,ELID ,ELTYPE ,OLDEL , 1 NAME(2) ,GPTT ,DEFALT CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ DUM ,IOUT COMMON /SSGETT/ ELTYPE ,OLDEL ,EORFLG ,ENDID ,BUFFLG , 1 ITEMP ,IDEFT ,IDEFM ,RECORD COMMON /LOADX / DUMMY(9) ,GPTT COMMON /FPT / DEFALT DATA NAME / 4HSSGE,4HTD / ,MAXWDS / 15 / C IF (ITEMP .NE. 0) GO TO 20 DO 10 I = 1,MAXWDS 10 TI(I) = 0 RETURN C 20 IF (.NOT.RECORD .OR. EORFLG) GO TO 80 30 IF (ELTYPE .NE. OLDEL) GO TO 150 IF (ENDID) GO TO 80 C C HERE WHEN ELTYPE IS AT HAND AND END OF THIS TYPE DATA C HAS NOT YET BEEN REACHED. READ AN ELEMENT ID C 40 CALL READ (*200,*210,GPTT,ID,1,0,FLAG) IF (ID) 50,80,50 50 IF (IABS(ID) .EQ. ELID) IF (ID) 90,90,70 IF (ID) 40,40,60 60 CALL READ (*200,*210,GPTT,TI,NWORDS,0,FLAG) GO TO 40 C C MATCH ON ELEMNT ID MADE, AND IT WAS WITH DATA. C IF QUAD4 OR TRIA3 ELEMENT, SET THE TI(7) FLAG FOR TLQD4D/S (QAUD4) C OR TLTR3D/S (TRIA3) C 70 CALL READ (*200,*210,GPTT,TI,NWORDS,0,FLAG) IF (ELTYPE.NE.64 .AND. ELTYPE.NE.83) RETURN TI(7) = 13 IF (TI(6) .NE. 1) TI(7) = 2 RETURN C C NO MORE DATA FOR THIS ELEMENT TYPE C 80 ENDID = .TRUE. C C NO DATA FOR ELEMENT ID DESIRED, THUS USE DEFALT C 90 IF (DEFALT .EQ. -1) GO TO 130 IF (GRIDS .GT. 0) GO TO 110 DO 100 I = 2,MAXWDS 100 TI(I) = 0 TI(1) = DEFALT IF (ELTYPE .EQ. 34) TI(2) = DEFALT RETURN 110 DO 120 I = 1,GRIDS 120 TI(I) = DEFALT TI(GRIDS+1) = DEFALT RETURN C C NO TEMP DATA OR DEFALT C 130 WRITE (IOUT,140) UFM,ELID,ITEMP 140 FORMAT (A23,' 4017. THERE IS NO TEMPERATURE DATA FOR ELEMENT',I9, 1 ' IN SET',I9) CALL MESAGE (-61,0,0) C C LOOK FOR MATCH ON ELTYPE (FIRST SKIP ANY UNUSED ELEMENT DATA) C 150 IF (ENDID) GO TO 180 160 CALL READ (*200,*210,GPTT,ID,1,0,FLAG) IF (ID) 160,180,170 170 CALL READ (*200,*210,GPTT,TI,NWORDS,0,FLAG) GO TO 160 C C READ ELTYPE AND COUNT C 180 CALL READ (*200,*190,GPTT,TI,2,0,FLAG) OLDEL = TI(1) NWORDS = TI(2) ENDID = .FALSE. GO TO 30 C C END OF RECORD HIT C 190 EORFLG = .TRUE. GO TO 80 C 200 CALL MESAGE (-2,GPTT,NAME) 210 CALL MESAGE (-3,GPTT,NAME) RETURN END ================================================ FILE: mis/ssght.f ================================================ SUBROUTINE SSGHT C C THIS IS THE STATIC-SOLUTION-GENERATOR FOR HEAT TRANSFER. C C DMAP CALLING SEQUENCE. C C SSGHT USET,SIL,GPTT,GM,EST,MPT,DIT,PF,PS,KFF,KFS,KSF,KSS,RFN,RSN, C LFILE,UFILE/UGV,QG,RULV/V,N,NLK/V,N,NLR/C,Y,EPS0/C,Y,TABS/ C C,Y,MAXITR/C,Y,IRES/V,N,MPCF1/V,N,SINGLE $ C LOGICAL NOGO,NOQG,RULVEC,DIAGON,LINEAR,LOOP1,NLRAD INTEGER BUF(10),SYSBUF,OUTPT,TSET,RD,RDREW,WRT,WRTREW, 1 CLSREW,CLS,PRECIS,CORE,SINGLE,EOR,UMCB,BMCB,XMCB, 2 PKIN,PKOUT,PKIROW,PKNROW,PKINCR,EOL,BUF1,BUF2, 3 MCB(7),RULMCB(7),GSIZE,FILE,FSIZE,SSIZE,FLAG,WORD, 4 MCB2(7),NAME(2),USET,GPTT,GM,EST,DIT,UFILE,PF,PS, 5 RFN,RSN,UGV,QG,RULV,SUBR(2),DITX,Z,SCRT1,SCRT2, 6 SCRT3,TREQST,TSTART,TEND,TLOOP,SCRT4,TELAPS, 7 ALIBI(5,5) REAL RBUF(10),RZ(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /FBSX / JLMCB(7),JUMCB(7),JBMCB(7),JXMCB(7),JZZZ,JPREC, 1 JSIGN COMMON /GFBSX / LMCB(7),UMCB(7),BMCB(7),XMCB(7),LZ,IPREC,ISIGN COMMON /PACKX / PKIN,PKOUT,PKIROW,PKNROW,PKINCR COMMON /ZNTPKX/ AI(4),IROW,EOL COMMON /ZBLPKX/ AO(4),JROW COMMON /SYSTEM/ KSYSTM(65) COMMON /STIME / TREQST COMMON /HMATDD/ IHMAT,NHMAT,MPTX,DITX COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / NLK,NLR,EPS0,TABS,MAXITR,IRES,MPCF1,SINGLE EQUIVALENCE (KSYSTM(1),SYSBUF),(KSYSTM(2),OUTPT), 1 (KSYSTM(10),TSET),(KSYSTM(55),IPREC1), 2 (BUF(1),RBUF(1)),(Z(1),RZ(1)),(IDFALT,DEFALT) DATA DIAGON/ .FALSE. / DATA SUBR / 4HSSGH,4HT /, EOR,NOEOR /1,0/ DATA USET , GPTT,GM,EST,MPTFIL / 101,103,104,105,106/ C DATA SIL / 102 / DATA DIT , PF,PS,KFF,KFS,KSF,KSS/107,108,109,110,111,112,113/ DATA RFN , RSN,LFILE,UFILE / 114,115,116,117/ DATA UGV , QG,RULV / 201,202,203 / DATA SCRT1 , SCRT2,SCRT3,SCRT4/ 301,302,303,304/ DATA ALIBI / 4H NOR,4HMAL ,4HCONV,4HERGE,4HNCE , 1 4H MAX,4HIMUM,4H ITE,4HRATI,4HONS , 2 4H DIV,4HERGI,4HNG S,4HOLUT,4HION , 3 4H INS,4HUFFI,4HCIEN,4HT TI,4HME , 4 4H MAX,4HIMUM,4H CON,4HVERG,4HENCE/ C C OPEN CORE C C PRE-ITERATIONS DURING-ITERATIONS C +--------------+ C I I Z(IUNI) C I I I C I (U ) VECTOR I C I N I C I I Z(NUNI) C +--------------+ C I I Z(IHMAT) C I HMAT CORE I C I BLOCK IF I C I REQUIRED I C I I Z(NHMAT) C +--------------+ C I I Z(IUN) C I (U ) PARTIT. I C I N VECTOR I C I FOR F+S I C I I Z(NUN) C +--------------+ - - - - - - - - - - - - - C I I Z(IEQIV) MSIZE C I I - - - * - - EQUIV TABLE C I E I *I* WILL BE PLACED C I(UN )EQIV.TBL I * I * ON SCRATCH FILE C I G I I DURING ITERATIONS C I I Z(NEQIV) I C +--------------+ - - - +----------------+ C I I Z(IUM) I I Z(ISN) C I (U )PARTIT. I I (S ) DIAGONAL I C I M VECTOR I I N I C I I Z(NUM) I I C +--------------+ I I Z(NSN) C I I Z(IUME) +----------------+ C I E I I I Z(IDELU) C I (U ) TABLE I I (DELTA U ) VEC.I C I M I Z(NUME) I N I C +--------------+ I I Z(NDELU) C +----------------+ C I I Z(IDELP) C I (DELTA P ) VEC.I C I N I C I I Z(NDELP) C +----------------+ C . C CORE . UNUSED C Z(CORE) . Z(CORE) C - - - - - - - - - - - - - - +----------------+ C I BUFFER 2 I Z(BUF2) C I I C +----------------+ C I BUFFER 1 I Z(BUF1) C I I C +----------------+ C C CORE SIZE AND BUFFERS C LCORE = KORSZ(Z) BUF1 = LCORE - SYSBUF - 2 BUF2 = BUF1 - SYSBUF - 2 CORE = BUF2 - 1 IF (CORE .LT. 100) CALL MESAGE (-8,0,SUBR) PRECIS = 1 C C SET MISC. FLAGS. C EPS010 = 10.0*EPS0 EPSOLD = EPS0 + 1.0 NLRAD = .TRUE. IF (NLR .EQ. -1) NLRAD = .FALSE. CALL SSWTCH (18,K) IF (K .EQ. 1) DIAGON = .TRUE. LINEAR = .TRUE. IF (NLK .EQ. +1) LINEAR = .FALSE. C C READ TRAILER OF USET TO GET GSIZE. C MCB(1) = USET CALL RDTRL (MCB) FILE = USET IF (MCB(1) .LE. 0) GO TO 1290 GSIZE = MCB(3) C C READ GM TRAILER TO DETERMINE COUNT OF UM POINTS C MCB(1) = GM CALL RDTRL (MCB) IF (MCB(1) .LE. 0) GO TO 30 MSIZE = MCB(3) GO TO 40 30 MSIZE = 0 40 NSIZE = GSIZE - MSIZE C C CORE ALLOCATION. C IUNI = 1 NUNI = NSIZE IUNIZ = IUNI - 1 IHMAT = NUNI + 1 NHMAT = NUNI IF (.NOT.LINEAR) NHMAT = CORE MPTX = MPTFIL DITX = DIT IF (.NOT.LINEAR) CALL PREHMA (Z) IUN = NHMAT + 1 NUN = NHMAT + NSIZE IEQIV = NUN + 1 NEQIV = NUN + GSIZE C C EQUIVALENCE TABLE WILL BE PUT ON SCRATCH DURING ITERATIONS. C ISN = NUN + MSIZE + 1 NSN = ISN + NSIZE - 1 IF (.NOT.NLRAD) NSN = ISN - 1 ISNZ = ISN - 1 IDELU = NSN + 1 NDELU = NSN + NSIZE IDELUZ= IDELU - 1 IDELP = NDELU + 1 NDELP = NDELU + NSIZE IF (NDELP .GT. CORE) CALL MESAGE (-8,0,SUBR) IDELPZ= IDELP - 1 IUM = NEQIV + 1 NUM = NEQIV + MSIZE IUMZ = IUM - 1 IUME = NUM + 1 NUME = NUM + MSIZE IUMEZ = IUME - 1 IF (NUME .GT. CORE) CALL MESAGE (-8,0,SUBR) C C CONSTRUCTION OF (U ) AND (U ) TABLES. C M N C FILE = USET CALL GOPEN (USET,Z(BUF1),RDREW) MPOINT = IUMZ NPOINT = IUN - 1 ISIL = 0 FSIZE = 0 CALL FREAD (USET,Z(IEQIV),GSIZE,0) CALL CLOSE (USET,CLSREW) DO 120 I = IEQIV,NEQIV WORD = Z(I) ISIL = ISIL + 1 C C CHECK FOR M-POINT C IF (MOD(WORD,2) .LE. 0) GO TO 90 MPOINT = MPOINT + 1 Z(MPOINT) = ISIL GO TO 120 C C ASSUME N-POINT C 90 NPOINT = NPOINT + 1 C C CHECK FOR F OR S POINT C IF (MOD(WORD/2,2)) 100,100,110 C C OK N-POINT IS AN F-POINT. C 100 Z(NPOINT) = -ISIL FSIZE = FSIZE + 1 GO TO 120 C C OK N-POINT IS ASSUMED AN S-POINT C 110 Z(NPOINT) = +ISIL 120 CONTINUE SSIZE = NSIZE - FSIZE C C U AND U ARE COMPLETE. C M N C IF (ISIL.EQ.GSIZE .AND. NPOINT.EQ.NUN .AND. MPOINT.EQ.NUM) 1 GO TO 140 WRITE (OUTPT,130) SFM 130 FORMAT (A25,' 3081, INCONSISTENT USET DATA DETECTED.') CALL MESAGE (-61,0,SUBR) C C E C BUILD (U ) EQUIVALENCE (U ) POINTS FOR (U ). C M N M C 140 IF (NUME .LT. IUME) GO TO 250 DO 150 I = IUME,NUME Z(I) = 0 150 CONTINUE CALL GOPEN (GM,Z(BUF1),RDREW) DO 210 I = 1,NSIZE C C OPERATE ON A COLUMN OF GM. C CALL INTPK (*210,GM,0,PRECIS,0) 160 CALL ZNTPKI C C E C ROW POSITION -IROW- IN U GETS COLUMN NUMBER. C M C IPOS = IUMEZ + IROW IF (Z(IPOS)) 170,170,190 170 Z(IPOS) = I 180 IF (EOL) 160,160,210 C C ERROR C 190 WRITE (OUTPT,200) UWM,IROW,I 200 FORMAT (A25,' 3082, M =',I10,' N =',I10) GO TO 180 210 CONTINUE CALL CLOSE (GM,CLSREW) C C INSURE ALL UME SLOTS FILLED C NOGO = .FALSE. DO 240 I = IUME,NUME IF (Z(I)) 220,220,240 220 M = I - IUMEZ ISIL = IUMZ + M WRITE (OUTPT,230) UFM,M,Z(ISIL) 230 FORMAT (A23,' 3083, UM POSITION =',I10,', SIL =',I10) NOGO = .TRUE. 240 CONTINUE IF (NOGO) CALL MESAGE (-61,0,SUBR) C C E C CONSTRUCTION OF (UN ) EQUIVALENCE TABLE. C G C 250 MPOINT = IUM MPT = Z(MPOINT) IF (MPOINT .GT. NUM ) MPT = 1000000 MPTE = IUME MVAL = Z(MPTE) NVAL = 1 K = IEQIV - 1 DO 270 I = 1,GSIZE K = K + 1 IF (I .NE. MPT) GO TO 260 C C M-POINT NEXT C Z(K) = MVAL MPTE = MPTE + 1 MVAL = Z(MPTE) MPOINT = MPOINT + 1 MPT = Z(MPOINT) IF (MPOINT .GT. NUM ) MPT = 1000000 GO TO 270 C C N-POINT NEXT C 260 Z(K) = NVAL NVAL = NVAL + 1 270 CONTINUE C C SET UP RULV IF RESIDUAL LOAD MATRIX IS TO BE FORMED. C RULVEC = .FALSE. IF (IRES .LE. 0) GO TO 290 CALL MAKMCB (RULMCB,RULV,FSIZE,2,PRECIS) CALL GOPEN (RULV,Z(BUF1),WRTREW) CALL CLOSE (RULV,CLS) RULVEC = .TRUE. C C GRID POINT TEMPERATURE DATA IS EXPANDED INTO CORE NOW. ONLY C C 1 C U IS FORMED. C N C C 290 IF (TSET) 300,300,310 300 K = 0 GO TO 320 310 K = 1 320 DO 330 I = IUNI,NUNI Z(I) = K 330 CONTINUE IF (TSET) 510,510,340 C C POSITION GPTT TO GRID TEMPERATURE DATA SECTION. C 340 FILE = GPTT CALL OPEN (*1290,GPTT,Z(BUF1),RDREW) CALL FREAD (GPTT,BUF,-2,0) NUMBER = 0 350 CALL READ (*1300,*360,GPTT,BUF,3,NOEOR,FLAG) NUMBER = MAX0(NUMBER,BUF(3)) GO TO 350 360 CALL SKPREC (GPTT,NUMBER) C C NOW AT GRID TEMP SECTION HEADER. C CALL FREAD (GPTT,BUF,-2,0) 400 CALL READ (*1300,*1330,GPTT,BUF,3,NOEOR,FLAG) IF (TSET .NE. BUF(1)) GO TO 400 C C BUF(1)=SET-ID, BUF(2)=-1 OR DEFAULT TEMP, BUF(3)=GPTT RECORD. C DEFALT = RBUF(2) IF (BUF(3) .LE. 0) GO TO 470 CALL SKPREC (GPTT,BUF(3)) C C TEMP PAIRS IN INTERNAL-ID AND TEMPERATURE. C IUNAT = IUN ISIL = IABS(Z(IUNAT)) IUNIAT= IUNI C C READ A TEMPERATURE PAIR. C 430 CALL READ (*1300,*470,GPTT,BUF,2,NOEOR,FLAG) 440 IF (BUF(1)-ISIL) 430,450,460 450 Z(IUNIAT) = BUF(2) 460 IUNAT = IUNAT + 1 ISIL = IABS(Z(IUNAT)) IUNIAT= IUNIAT + 1 IF (IUNIAT .LE. NUNI) GO TO 440 470 CALL CLOSE (GPTT,CLSREW) C C CHECK FOR INTEGER 1-S WHICH GET THE DEFAULT TEMP. C NOGO = .FALSE. DO 500 I = IUNI,NUNI IF (Z(I) .NE. 1) GO TO 500 IF (IDFALT .NE. -1) GO TO 490 NOGO = .TRUE. K = IUN + I - IUNI ISIL = IABS(Z(K)) WRITE (OUTPT,480) UFM,ISIL 480 FORMAT (A23,' 3084, THERE IS NO TEMPERATURE DATA FOR SIL NUMBER', 1 I10) GO TO 500 490 RZ(I) = DEFALT 500 CONTINUE IF (NOGO) CALL MESAGE (-61,0,SUBR) 510 CONTINUE C C 1 1 C COMPUTE (P ) = (P ) - (K )(U ) AND SAVE ON SCRATCH-4. C F F FS S C K = IDELPZ + FSIZE DO 520 I = IDELP,K Z(I) = 0 520 CONTINUE CALL OPEN (*540,PF,Z(BUF1),RDREW) CALL FWDREC (*540,PF) CALL INTPK (*540,PF,0,PRECIS,0) 530 CALL ZNTPKI K = IDELPZ + IROW RZ(K) = AI(1) IF (EOL) 530,530,540 540 CALL CLOSE (PF,CLSREW) C C 1 C SUBTRACT OFF (K )(U ) C FS S C IAT = IUN - 1 CALL OPEN (*590,KFS,Z(BUF1),RDREW) CALL FWDREC (*590,KFS) DO 580 I = 1,SSIZE C C FIND NEXT US POINT TEMPERATURE DATA. C 550 IAT = IAT + 1 IF (Z(IAT)) 550,550,560 560 K = IUNIZ + IAT - IUN + 1 CALL INTPK (*580,KFS,0,PRECIS,0) VALUE = RZ(K) 570 CALL ZNTPKI K = IDELPZ + IROW RZ(K) = RZ(K) - AI(1)*VALUE IF (EOL) 570,570,580 580 CONTINUE 590 CALL CLOSE (KFS,CLSREW) C C 1 C PACK OUT (P ) ON SCRATCH-4 C F C CALL GOPEN (SCRT4,Z(BUF1),WRTREW) CALL MAKMCB (MCB,SCRT4,FSIZE,2,PRECIS) PKIN = PRECIS PKOUT = PRECIS PKIROW = 1 PKNROW = FSIZE PKINCR = 1 CALL PACK (Z(IDELP),SCRT4,MCB) CALL CLOSE (SCRT4,CLSREW) CALL WRTTRL (MCB) C C ELEMENT INITIAL PROCESSING PHASE. C CALL GOPEN (SCRT1,Z(BUF2),WRTREW) IF (LINEAR) GO TO 600 CALL GOPEN (EST,Z(BUF1),RDREW) CALL SSGHT1 (EST,SCRT1,Z(IEQIV)) CALL CLOSE (EST,CLSREW) C C E C (UN ) EQUIVALENCE TABLE IS NOW APPENDED TO -SCRT1-. C G C 600 CALL WRITE (SCRT1,0,0,1) CALL WRITE (SCRT1,Z(IEQIV),GSIZE,1) CALL CLOSE (SCRT1,CLSREW) C C 1 3 C FORM (S ) = 4( (U ) + (TABS) ) DIAGONAL MATRIX. C N N C IF (.NOT.NLRAD) GO TO 630 J = IUNIZ DO 620 I = ISN,NSN J = J + 1 RZ(I) = 4.0*(RZ(J) + TABS)**3 620 CONTINUE C C SET PARTITIONING TABLE IN TERMS OF WHERE ELEMENTS ARE TO MOVE TO C WHEN GOING FROM N-SET TO F+S SETS. C 630 IS = FSIZE IF = 0 DO 660 I = IUN,NUN IF (Z(I)) 640,640,650 C C F-POINTER C 640 IF = IF + 1 Z(I) = IF GO TO 660 C C S-POINTER C 650 IS = IS + 1 Z(I) = IS 660 CONTINUE LOOP = 0 LOOP1 = .TRUE. PFMAG = 0.0 C C == ITERATION SECTION == C C ITERATIVE LOOPING C 670 LOOP = LOOP + 1 C C TIME LEFT AT START OF LOOP C CALL TMTOGO (TSTART) DO 680 I = IDELP,NDELP Z(I) = 0 680 CONTINUE IF (LOOP1 .OR. LINEAR) GO TO 690 CALL GOPEN (SCRT1,Z(BUF1),RDREW) CALL SSGHT2 (SCRT1,Z(IDELP),Z(IUNI)) CALL CLOSE (SCRT1,CLSREW) C C PARTITION DELTA-P VECTOR INTO DELTA-F AND DELTA-S VECTORS. C CALL SSGHTP (Z(IUN),Z(IDELP),NSIZE) C C I C GENERATION OF (N ) WILL BE PERFORMED IN CORE SPACE OF (DELTA-P) C F C I I 4 I C (N ) = (DELTA-P ) + (R )( (U + TABS) - (S )(U ) ) C F F FN N N N C 690 IF (.NOT.NLRAD) GO TO 730 CALL OPEN (*720,RFN,Z(BUF2),RDREW) CALL FWDREC (*720,RFN) DO 710 I = 1,NSIZE C C OPERATE ON A COLUMN OF RFN C CALL INTPK (*710,RFN,0,PRECIS,0) C C COMPUTE CONSTANT FOR COLUMN C K = IUNIZ + I UN = RZ(K) K = ISNZ + I SN = RZ(K) VALUE = (UN + TABS)**4 - SN*UN C C UNPACK NON-ZERO TERMS OF COLUMN. C 700 CALL ZNTPKI K = IDELPZ + IROW RZ(K) = RZ(K) + AI(1)*VALUE IF (EOL) 700,700,710 710 CONTINUE 720 CALL CLOSE (RFN,CLSREW) C C I 1 I C (PBAR ) = (P ) - (N ) C F F F C I C FIRST NEGATE (N ) SITTING IN DELTA-P CORE SPACE, C F C 1 C THEN ADD IN NON-ZERO TERMS OF (P ) C F C 730 K = IDELPZ + FSIZE DO 740 I = IDELP,K RZ(I) = -RZ(I) 740 CONTINUE C C 1 C OPEN (P ) FOR UNPACKING OF ONE COLUMN. C F C CALL OPEN (*760,SCRT4,Z(BUF2),RDREW) CALL FWDREC (*760,SCRT4) CALL INTPK (*760,SCRT4,0,PRECIS,0) 750 CALL ZNTPKI K = IDELPZ + IROW RZ(K) = RZ(K) + AI(1) IF (LOOP1) PFMAG = PFMAG + AI(1)*AI(1) IF (EOL) 750,750,760 760 CALL CLOSE (SCRT4,CLSREW) C C I C (PBAR ) IS NOW PACKED OUT TO SCRATCH-2. C F C IF (.NOT.LOOP1) GO TO 790 PFMAG = SQRT(PFMAG) IF (PFMAG) 770,770,790 770 WRITE (OUTPT,780) UFM 780 FORMAT (A23,' 3085, THE PF LOAD VECTOR IS EITHER PURGED OR NULL.') CALL MESAGE (-61,0,SUBR) 790 CALL MAKMCB (MCB2,SCRT2,FSIZE,2,2) CALL GOPEN (SCRT2,Z(BUF2),WRTREW) PKIN = PRECIS PKOUT = IPREC1 PKIROW = 1 PKNROW = FSIZE PKINCR = 1 CALL PACK (Z(IDELP),SCRT2,MCB2) CALL CLOSE (SCRT2,CLSREW) CALL WRTTRL (MCB2) C C I I C (DELTA-P ) = (PBAR ) - (K )(U ) C F F FF F C I C (PBAR ) IS SITING IN CORE CURRENTLY. (IT WILL BE GONE TOMORROW.) C F C I I I C FIRST PARTITION (U ) TO (U ) AND (U ) C N F S C CALL SSGHTP (Z(IUN),Z(IUNI),NSIZE) CALL OPEN (*820,KFF,Z(BUF1),RDREW) CALL FWDREC (*820,KFF) DO 810 I = 1,FSIZE C C OPERATE ON ONE COLUMN OF KFF C CALL INTPK (*810,KFF,0,PRECIS,0) C C I C LOCATE COLUMN MULTIPLIER = U C FI C K = IUNIZ + I VALUE = RZ(K) 800 CALL ZNTPKI C I C SUBTRACT THIS ELEMENT*VALUE FROM IROW POSITION OF (PBAR ) C F K = IDELPZ + IROW RZ(K) = RZ(K) - AI(1)*VALUE IF (EOL) 800,800,810 810 CONTINUE 820 CALL CLOSE (KFF,CLSREW) C C COMPUTE EPSILON C P C K = IDELPZ + FSIZE SUM = 0.0 DO 830 I = IDELP,K SUM = SUM + RZ(I)**2 830 CONTINUE SUM = SQRT(SUM) EPSUBP = SUM/PFMAG IF (LOOP1 .AND. DIAGON) WRITE (OUTPT,840) EPSUBP 840 FORMAT ('1D I A G 1 8 O U T P U T F R O M S S G H T', //, 1 ' ITERATION EPSILON-P',9X,'LAMBDA-1',10X,'EPSILON-T', 2 /1X,60(1H=), /,6H 1,1P,E19.6) C C I C IF -RULV- IS BEING FORMED, THEN WRITE (DELTA-P ) OUT ON -RULV-. C F C IF (.NOT. RULVEC) GO TO 850 CALL OPEN (*850,RULV,Z(BUF1),WRT) PKIN = PRECIS PKOUT = PRECIS PKIROW = 1 PKNROW = FSIZE PKINCR = 1 CALL PACK (Z(IDELP),RULV,RULMCB) CALL CLOSE (RULV,CLS) C C I+1 C NOW SOLVE FOR (U ) IN, C F C I+1 I C (L)(U)(U ) = (PBAR ) C F F C C 850 ISIGN =+1 IPREC = 2 LMCB(1) = LFILE CALL RDTRL (LMCB) UMCB(1) = UFILE CALL RDTRL (UMCB) BMCB(1) = SCRT2 CALL RDTRL (BMCB) CALL MAKMCB (XMCB,SCRT3,FSIZE,2,2) C C INSURE EVEN BOUNDARY (ARRAY WILL BE USED AS DOUBLE PRECISION) C JDELP = NDELP + 1 + MOD(NDELP+1,2) + 1 LZ = LCORE - JDELP CWKBI 3/94 JZZZ = LZ DO 855 IJK = 1,31 JLMCB(IJK) = LMCB(IJK) 855 CONTINUE IF (UMCB(1) .GT. 0) CALL GFBS (Z(JDELP),Z(JDELP)) IF (UMCB(1) .LE. 0) CALL FBS (Z(JDELP),Z(JDELP)) IF (UMCB(1) .GT. 0) CALL WRTTRL( XMCB) IF (UMCB(1) .LE. 0) CALL WRTTRL(JXMCB) C C I+1 C (U ) IS NOW MOVED FROM SCRATCH-3 INTO CORE IN (DELTA-P ) SPACE. C F N C CALL GOPEN (SCRT3,Z(BUF1),RDREW) K = IDELPZ + FSIZE DO 860 I = IDELP,K Z(I) = 0 860 CONTINUE CALL INTPK (*880,SCRT3,0,PRECIS,0) 870 CALL ZNTPKI K = IDELPZ + IROW RZ(K) = AI(1) IF (EOL) 870,870,880 880 CALL CLOSE (SCRT3,CLSREW) IF (LOOP1) GO TO 985 C C I+1 I C ALPHA = SUM OF (U ) (PBAR ) IROW = 1,FSIZE C F F C IROW IROW C C I+1 I C BETA = SUM OF (DELTA-U )(PBAR ) IROW = 1,FSIZE C F F C IROW IROW C C I+1 I I C GAMMA = SUM OF (U - U )(PBAR ) IROW = 1,FSIZE C F F F C IROW IROW IROW C C WHERE I = ITERATION GREATER THAN 1. C CALL GOPEN (SCRT2,Z(BUF1),RDREW) ALPHA = 0.0 BETA = 0.0 GAMMA = 0.0 CALL INTPK (*900,SCRT2,0,PRECIS,0) C C ONLY NON-ZERO TERMS OF (PBAR ) NEED BE CONSIDERED. C F 890 CALL ZNTPKI KUFIP1 = IDELPZ + IROW KDELU = IDELUZ + IROW KUFI = IUNIZ + IROW ALPHA = ALPHA + RZ(KUFIP1)*AI(1) BETA = BETA + RZ(KDELU) *AI(1) GAMMA = GAMMA + (RZ(KUFIP1) - RZ(KUFI))*AI(1) IF (EOL) 890,890,900 900 CALL CLOSE (SCRT2,CLSREW) C C CONVERGENCE TESTS ARE MADE HERE. C C WHEN ENTERING EXIT MODE, C -IEXIT- -REASON- C 1 NORMAL CONVERGENCE C 2 NO CONVERGENCE AT MAXIMUM ITERATIONS C 3 NO CONVERGENCE UNSTABLE ITERATION C 4 NO CONVERGENCE INSUFFICIENT TIME C 5 MAXIMUM CONVERGENCE, BUT EPSHT NOT SATISFIED C IF (GAMMA) 910,920,910 910 FLAMDA = ABS(BETA/GAMMA) GO TO 930 920 FLAMDA = 100.0 EPST = 0.0 GO TO 970 930 IF (ALPHA) 940,960,940 940 IF (FLAMDA-1.0) 950,960,950 950 EPST = ABS(GAMMA/((FLAMDA - 1.0)*ALPHA)) GO TO 970 960 EPST = 100.0 970 CALL TMTOGO (KLEFT) TELAPS = TREQST - KLEFT TAU = 1.0 - FLOAT(TLOOP+TELAPS)/(.8*FLOAT(TREQST)) IF (DIAGON) WRITE (OUTPT,980) LOOP,EPSUBP,FLAMDA,EPST 980 FORMAT (I6,1P,E19.6,1P,E18.6,1P,E18.6) IEXIT = 1 IF (EPST.LT.EPS0 .AND. FLAMDA.GT.1.0 .AND. EPSUBP.LT.EPS010) 1 GO TO 1060 C C TEST FOR TWO SUCCESSIVE CASES PASSING TEST C IF (EPST.LT.EPS0 .AND. EPSOLD.LT.EPS0) GO TO 1060 EPSOLD = EPST IEXIT = 2 IF (LOOP .GE. MAXITR) GO TO 1060 IEXIT = 3 IF (FLAMDA.LE.1.0 .AND. LOOP.GE.4) GO TO 1060 IEXIT = 5 IF (GAMMA .EQ. 0.) GO TO 1060 IEXIT = 4 IF (TAU) 1060,990,990 C C I C COMPUTE (DELTA ) TO BE USED ON NEXT LOOP C U C 985 IEXIT = 2 IF (LOOP .GE. MAXITR) GO TO 1051 990 K = IDELPZ + FSIZE KDELU = IDELUZ KI = IUNIZ KIP1 = IDELPZ DO 1000 I = IDELP,K KDELU = KDELU + 1 KI = KI + 1 KIP1 = KIP1 + 1 RZ(KDELU) = RZ(KIP1) - RZ(KI) 1000 CONTINUE C C I+1 C MOVE (U ) UNDER (U ) BOTH TO BE IN (DELTA-P ) CORE. C S F N C ASSIGN 1050 TO IRETRN 1010 K1 = IUNI + FSIZE K2 = IDELPZ + FSIZE IF (SSIZE .LE. 0) GO TO 1030 DO 1020 I = K1,NUNI K2 = K2 + 1 RZ(K2) = RZ(I) 1020 CONTINUE C C I+1 I+1 C MERGE (U ) AND (U ) BACK INTO (U ) FORM. C F S N C 1030 KUNI = IUNIZ DO 1040 I = IUN,NUN KUNI = KUNI + 1 JPOS = IDELPZ + Z(I) Z(KUNI) = Z(JPOS) 1040 CONTINUE GO TO IRETRN, (1050,1180) C C READY NOW FOR ANOTHER LOOP. C 1050 CALL TMTOGO (TEND) TLOOP = TSTART - TEND LOOP1 = .FALSE. GO TO 670 C C == END ITERATION SECTION == C C ITERATION HALTED, NOW IN EXIT MODE. C IF QG FILE IS PRESENT, FORCES OF CONSTRAINT ARE PARTIALLY COMPUTED C QS WILL BE FORMED IN THE CORE SPACE USED UP TO NOW FOR (DELTA-U). C C I C (Q ) = -(P ) + (K )(U ) + (K )(U ) + (DELTA-P ) + (PRODUCT ) C S S SF F SS S S S C C I 4 I C WHERE (PRODUCT ) = (R )( (U + TABS) - (S U ) ) C S SN NJ NJ N C C J = 1,NSIZE C C LOAD (DELTA-P ) INTO QS FORMATION CORE SPACE. C S C 1051 WRITE (OUTPT,1052) UWM 1052 FORMAT (A25,' 3132, SSGHT RECOVERING FROM SEVERE USER CONVERGENCE' 1, ' CRITERIA.') 1060 WRITE (OUTPT,1070) UIM,IEXIT,(ALIBI(J,IEXIT),J=1,5) 1070 FORMAT (A29,' 3086, ENTERING SSGHT EXIT MODE BY REASON NUMBER ', 1 I2,2H (,5A4,1H) ) NOQG = .TRUE. CALL OPEN (*1170,QG,Z(BUF2),WRTREW) NOQG = .FALSE. CALL FNAME (QG,NAME) CALL WRITE (QG,NAME,2,EOR) IQS = IDELU NQS = IDELUZ + SSIZE IQSZ = IDELUZ K = IDELPZ + FSIZE DO 1080 I = IQS,NQS K = K + 1 Z(I) = Z(K) 1080 CONTINUE C C SUBTRACT OFF NON-ZERO TERMS OF PS VECTOR. C CALL OPEN (*1100,PS,Z(BUF1),RDREW) CALL FWDREC (*1100,PS) CALL INTPK (*1100,PS,0,PRECIS,0) 1090 CALL ZNTPKI K = IQSZ + IROW RZ(K) = RZ(K) - AI(1) IF (EOL) 1090,1090,1100 1100 CALL CLOSE (PS,CLSREW) C C I C ADD IN (K )(U ) C SF F C CALL OPEN (*1130,KSF,Z(BUF1),RDREW) CALL FWDREC (*1130,KSF) DO 1120 I = 1,FSIZE CALL INTPK (*1120,KSF,0,PRECIS,0) K = IDELPZ + I VALUE = RZ(K) 1110 CALL ZNTPKI K = IQSZ + IROW RZ(K) = RZ(K) + AI(1)*VALUE IF (EOL) 1110,1110,1120 1120 CONTINUE 1130 CALL CLOSE (KSF,CLSREW) C C ADD IN (K )(U ) C SS S C IF (SSIZE .EQ. 0) GO TO 1160 CALL OPEN (*1160,KSS,Z(BUF1),RDREW) CALL FWDREC (*1160,KSS) IUSZ = IUNIZ + FSIZE DO 1150 I = 1,SSIZE CALL INTPK (*1150,KSS,0,PRECIS,0) K = IUSZ + I VALUE = RZ(K) 1140 CALL ZNTPKI K = IQSZ + IROW RZ(K) = RZ(K) + AI(1)*VALUE IF (EOL) 1140,1140,1150 1150 CONTINUE 1160 CALL CLOSE (KSS,CLSREW) C C I C TO COMPUTE ADDITIONAL PRODUCT (U ) IS NOW FORMED. C N C I C THUS MERGE (U ) AND (U ) C S F C I C FIRST MOVE (U ) DOWN UNDER (U ), THEN DO MERGE. C S F C 1170 ASSIGN 1180 TO IRETRN GO TO 1010 C C OK FORM AND ADD (PRODUCT) IN. C 1180 IF (.NOT.NLRAD) GO TO 1220 IF (NOQG) GO TO 1250 CALL OPEN (*1210,RSN,Z(BUF1),RDREW) CALL FWDREC (*1210,RSN) DO 1200 I = 1,NSIZE CALL INTPK (*1200,RSN,0,PRECIS,0) KU = IUNIZ + I KS = ISNZ + I VALUE = (RZ(KU) + TABS)**4 - RZ(KU)*RZ(KS) 1190 CALL ZNTPKI K = IQSZ + IROW RZ(K) = RZ(K) + AI(1)*VALUE IF (EOL) 1190,1190,1200 1200 CONTINUE 1210 CALL CLOSE (RSN,CLSREW) C C (QS) IS COMPLETE AND READY FOR EXPANSION TO GSIZE AND OUTPUT. C 1220 CALL MAKMCB (MCB,QG,GSIZE,2,PRECIS) JROW = 0 FILE = USET IF (SSIZE .EQ. 0) GO TO 1250 CALL GOPEN (USET,Z(BUF1),RDREW) IQ = IQS CALL BLDPK (PRECIS,PRECIS,QG,0,0) 1230 CALL FREAD (USET,WORD,1,0) JROW = JROW + 1 IF (MOD(WORD/2,2)) 1230,1230,1240 1240 AO(1) = RZ(IQ) CALL ZBLPKI IQ = IQ + 1 IF (IQ .LE. NQS) GO TO 1230 C C QS HAS NOW BEEN EXPANDED TO GSIZE AND OUTPUT ON QG DATA BLOCK. C CALL BLDPKN (QG,0,MCB) CALL CLOSE (QG,CLSREW) CALL WRTTRL (MCB) CALL CLOSE (USET,CLSREW) C C PACK OUT (U ) USING THE EQUIVALENCE TABLE TO ORDER C G C C THE U POINTS. C N C C C READ EQUIVALENCE TABLE BACK INTO CORE AT THIS TIME. C 1250 FILE = SCRT1 CALL GOPEN (SCRT1,Z(BUF1),RDREW) CALL SKPREC (SCRT1,1) CALL FREAD (SCRT1,Z(IEQIV),GSIZE,0) C CALL CLOSE (SCRT1,CLSREW) C C REPLACE POINTERS WITH THE VALUES. C DO 1270 I = IEQIV,NEQIV K = IUNIZ + Z(I) RZ(I) = RZ(K) 1270 CONTINUE C C PACK OUT (U ) C G C CALL MAKMCB (MCB,UGV,GSIZE,2,PRECIS) CALL GOPEN (UGV,Z(BUF1),1) PKIN = PRECIS PKOUT = PRECIS PKIROW = 1 PKNROW = GSIZE PKINCR = 1 CALL PACK (Z(IEQIV),UGV,MCB) CALL CLOSE (UGV,CLSREW) CALL WRTTRL (MCB) C C COMPLETE RULV IF NECESSARY. C IF (.NOT.RULVEC) GO TO 1280 CALL GOPEN (RULV,Z(BUF1),3) CALL CLOSE (RULV,CLSREW) CALL WRTTRL (RULMCB) 1280 RETURN C C ERROR CONDITIONS C 1290 N = -1 GO TO 1320 1300 N = -2 GO TO 1320 1320 CALL MESAGE (N,FILE,SUBR) 1330 WRITE (OUTPT,1340) UFM,TSET 1340 FORMAT (A23,' 3087, TEMPERATURE SET',I10,' IS NOT PRESENT IN ', 1 'GPTT DATA BLOCK.') CALL MESAGE (-61,0,SUBR) RETURN END ================================================ FILE: mis/ssght1.f ================================================ SUBROUTINE SSGHT1 (IEST,FILE,NEQUIV ) C***** C THIS ROUTINE CONVERTS THE EST DATA FOR ALL THERMAL ELEMENTS TO A C COMMON FORMAT. OPTIONAL TASKS INCLUDE CALCULATING MATOUT DATA AND C CONVERTING SIL VALUES TO UN VALUES. C***** INTEGER ELID, SUB, SIL, NESTO(45), ELEM, NEST(2),ZP, BUFM INTEGER TYPE,FILE, POINTR(8,23), NEQUIV(1) ,SUBR(2),FLAG INTEGER POINT1(8,20),POINT2(8, 3) REAL EST(100) LOGICAL LINEAR C COMMON/ CONDAS/ CONSTS(5) COMMON/ ESTOUT/ ELID,SUB,NAME(2),SIL(8),IMAT,AF,THETA,R(3,8), 1 MATO(6) COMMON/ MATIN/ MATID,INFLAG,ELTEMP,DUM(1),SINTH,COSTH COMMON/ HMTOUT/ BUFM(7) COMMON/ GPTA1 / NELEMS, LAST, INCR, ELEM(1) COMMON/ HMATDD/ XXX(4), LINEAR C EQUIVALENCE (CONSTS(1) , PI ) EQUIVALENCE (NESTO(1),ELID) ,( NEST(1), EST(1) ) EQUIVALENCE (POINT1(1,1),POINTR(1,1)), (POINT2(1,1),POINTR(1,21)) C DATA SUBR / 4HSSGH ,4HT1 / DATA NUMELT / 23 / C***** C THE POINTERS TO THE EST DATA ARE C C IM MAT ID C ITH THETA C IA AREA C IG GRID POINT DATA C IS SIL MINUS 1 C NP NO. OF POINTS C SUB SUBROUTINE TYPE C NO. IS ITH IM IA IG NP SUB C ---- -- --- -- -- -- -- ---- DATA POINT1 / 1 ,0 ,0 ,4 ,5 ,9 ,2 ,1 2 ,3 ,0 ,0 ,4 ,5 ,8 ,2 ,1 3 ,6 ,0 ,5 ,6 ,7 ,15 ,3 ,2 4 ,9 ,0 ,5 ,6 ,7 ,9 ,3 ,2 5 ,10 ,0 ,0 ,4 ,5 ,9 ,2 ,1 6 ,16 ,0 ,6 ,7 ,8 ,10 ,4 ,3 7 ,17 ,0 ,5 ,6 ,7 ,9 ,3 ,2 8 ,18 ,0 ,6 ,7 ,8 ,10 ,4 ,3 9 ,19 ,0 ,6 ,7 ,8 ,16 ,4 ,3 T ,34 ,0 ,0 ,16 ,17 ,34 ,2 ,1 1 ,36 ,0 ,5 ,6 ,0 ,7 ,3 ,4 2 ,37 ,0 ,6 ,7 ,0 ,8 ,4 ,5 3 ,39 ,1 ,0 ,2 ,0 ,7 ,4 ,6 4 ,40 ,1 ,0 ,2 ,0 ,9 ,6 ,7 5 ,41 ,1 ,0 ,2 ,0 ,11 ,8 ,8 6 ,42 ,1 ,0 ,2 ,0 ,11 ,8 ,9 7 ,52 ,1 ,0 ,15 ,16 ,21 ,8 ,10 8 ,62 ,0 ,6 ,7 ,8 ,10 ,4 ,3 9 ,63 ,0 ,6 ,7 ,8 ,10 ,4 ,3 T ,65 ,0 ,0 ,10 ,0 ,16 ,8 ,16 / DATA POINT2 / 66 ,0 ,0 ,22 ,0 ,28 ,20 ,16 2 ,67 ,0 ,0 ,34 ,0 ,40 ,32 ,1 3 ,76 ,0 ,11 ,12 ,13 ,14 ,8 ,17 / C***** CALL DELSET 10 CALL READ(*120,*140,IEST,TYPE,1,0,FLAG) DO 20 I =1,NUMELT IEL = I IF (TYPE - POINTR(1,I)) 30,40,20 20 CONTINUE 30 CALL FWDREC(*150,IEST) GO TO 10 C 40 CONTINUE ZP = (TYPE-1)*INCR NAME(1)= ELEM(ZP+1) NAME(2)= ELEM(ZP+2) NWORDS = ELEM(ZP+12) 50 CONTINUE CALL READ(*150,*130,IEST,EST,NWORDS,0,FLAG) ELID = NEST(1) DO 55 I = 5,45 NESTO(I) = 0 55 CONTINUE IF( TYPE .EQ. 3) EST(5) = PI*EST(6)*(EST(5)-EST(6)) IF( TYPE.EQ.52 .AND. NEST(2).EQ.7) EST(16)=PI*(EST(19)+EST(20)) IS = POINTR(2,IEL) ITH= POINTR(3,IEL) IM = POINTR(4,IEL) IA = POINTR(5,IEL) IG = POINTR(6,IEL) SUB= POINTR(8,IEL) NP = POINTR(7,IEL) C IF(SUB .EQ. 10) SUB = SUB + NEST(2)-1 INFLAG =1 IF( SUB .GE. 16) INFLAG=3 IF( SUB .LT. 2 .OR. SUB .GT. 5) GO TO 60 INFLAG =2 GO TO 70 60 IF(SUB .LT. 6 .OR. SUB .GT. 9) GO TO 70 INFLAG =3 70 CONTINUE IF( IA.GT. 0) AF = EST(IA) MATID = NEST(IM) IF(MATID .LE. 0) GO TO 50 SINTH=0.0 COSTH=1.0 IF( INFLAG .NE. 2) GO TO 80 THETA= EST(ITH)*PI/180.0 IF( THETA .EQ.0.0)GO TO 80 SINTH= SIN(THETA) COSTH= COS(THETA) 80 ITEMP = IG + 4*NP ELTEMP = EST(ITEMP) IMAT = MATID LINEAR=.FALSE. CALL HMAT( ELID ) C***** C TEST IF NONLINEAR C***** IF( LINEAR ) GO TO 50 DO 90 I=1,6 90 MATO(I)= BUFM(I) DO 110 I=1,NP JPOINT = 4*(I-1) + IG DO 100 J=1,3 ILOC = JPOINT + J 100 R(J,I) = EST(ILOC) ISIL= IS+I + 1 IPT =NEST(ISIL) IF( IPT.EQ. 0) GO TO 110 SIL(I) = NEQUIV(IPT) 110 CONTINUE C***** C WRITE A UNIFORM EST GROUP OF CONVERTED DATA HERE C***** CALL WRITE(FILE,NESTO(1), 45, 0 ) C***** C RETURN FOR ANOTHER ELEMENT C****** GO TO 50 120 RETURN C***** C DONE WITH THIS ELEMENT TYPE C***** 130 IF( FLAG .EQ. 0) GO TO 10 C****** 140 J=-3 GO TO 160 150 J = -2 160 CALL MESAGE(J,IEST,SUBR) RETURN END ================================================ FILE: mis/ssght2.f ================================================ SUBROUTINE SSGHT2 (FILE,DELTA,UNI) C C THIS ROUTINE USES THE TEMPERATURE VECTOR DATA TO CALCULATE C LOAD VECTER TERMS WITH THE EQUATION- C C DELTAP = (K(TI) - K(TO))*T1 C WHERE TO IS THE INITIAL TEMPERATURE C TI IS THE NEW TEMPERATURE VECTOR C K IS THE TEMPERATURE DEPENDENT CONDUCTIVITY C MATRIX C DELTAP IS THE NONLINEAR LOAD C INTEGER ELID,SUB,SIL,NPTS(15),NELS(15),IP(4),SMAP(52), 1 FILE,FLAG,SINDX(4),SUBR(2) REAL MATO,MATOUT,TEMP,UNI(1),DELTA(1) DOUBLE PRECISION CONSTD,DRTEMP(3,4),DRT(4,4),C(12),K(9),KQ(9), 1 DR(3,4),T1(8),EL,AREA,RBAR,PI,FACT,DETERM,DADOTB COMMON/ CONDAD/ CONSTD(5) COMMON/ MATIN / MATID,INFLAG,TEMP,DUM,SINTH,COSTH COMMON/ HMTOUT/ MATOUT(6) COMMON/ ESTOUT/ ELID,SUB,NAME(2),SIL(8),IMAT,AF,THETA,R(3,8), 1 MATO(6) EQUIVALENCE (CONSTD(1),PI) DATA NPTS / 2,3,4,3,4,4,6,8, 8,1,2,2,3,4,2 / DATA NELS / 1,1,4,1,4,1,3,5,10,1,1,1,1,4,1 / DATA SUBR / 4HSSGH ,4HT2 / DATA SMAP / 1 ,2 ,3 ,6 , 1 1 ,2 ,6 ,5 , 2 1 ,4 ,5 ,6 , 3 1 ,2 ,3 ,6 , 4 1 ,3 ,4 ,8 , 5 1 ,3 ,8 ,6 , 6 1 ,5 ,6 ,8 , 7 3 ,6 ,7 ,8 , 8 2 ,3 ,4 ,7 , 9 1 ,2 ,4 ,5 , O 2 ,4 ,5 ,7 , 1 2 ,5 ,6 ,7 , 2 4 ,5 ,7 ,8 / C C READ DATA, 45 WORDS PER ELEMENT. C 10 CALL READ (*480,*470,FILE,ELID,45,0,FLAG) C C CALCULATE AVERAGE ELEMENT TEMPERATURE C NP = NPTS(SUB) XPTS = FLOAT(NP) IF (SUB .GT. 9) XPTS = XPTS*2.0 C TEMP = 0.0 DO 20 I = 1,NP LTEMP = SIL(I) TEMP = TEMP + UNI(LTEMP) IF (SUB .LE. 9) GO TO 20 IF (SIL(I+4) .EQ. 0) GO TO 20 LTEMP = SIL(I+4) TEMP = TEMP + UNI(LTEMP) 20 CONTINUE TEMP = TEMP/XPTS C C SET UP CALL TO MATERIAL SUBROUTINE C INFLAG = 1 IF (SUB.GE.2 .AND. SUB.LE.5) INFLAG = 2 IF (SUB.GE.6 .AND. SUB.LE.9) INFLAG = 3 SINTH = 0.0 COSTH = 1.0 IF (THETA.EQ.0.0 .OR. INFLAG.NE.2) GO TO 30 SINTH = SIN(THETA) COSTH = COS(THETA) 30 MATID = IMAT CALL HMAT (ELID) C C SUBTRACT CONDUCTIVITY AT INITIAL TEMPERATURE AND PLACE IN MATRIX C IF (INFLAG .EQ. 2) GO TO 40 IF (INFLAG .EQ. 3) GO TO 50 K(1) = MATOUT(1) - MATO(1) GO TO 60 40 K(1) = MATOUT(1) - MATO(1) K(2) = MATOUT(2) - MATO(2) K(3) = K(2) K(4) = MATOUT(3) - MATO(3) GO TO 60 50 K(1) = MATOUT(1) - MATO(1) K(2) = MATOUT(2) - MATO(2) K(3) = MATOUT(3) - MATO(3) K(4) = K(2) K(5) = MATOUT(4) - MATO(4) K(6) = MATOUT(5) - MATO(5) K(7) = K(3) K(8) = K(6) K(9) = MATOUT(6) - MATO(6) 60 CONTINUE IP(1) = 1 IP(2) = 2 IP(3) = 3 IF (SUB.NE.3 .AND. SUB.NE.5) GO TO 100 C C MOVE QUADS TO ELEMENT COORDINATES C DO 95 J = 1,2 L = 1 M = 2 I1 = 1 I2 = 2 I3 = 3 I4 = 4 IF (J .EQ. 1) GO TO 65 L = 3 M = 4 I1 = 3 I2 = 4 I3 = 1 I4 = 2 65 CONTINUE DO 70 I = 1,3 DR(I,1) = R(I,I2) - R(I,I1) DR(I,3) = R(I,I3) - R(I,I1) DR(I,2) = R(I,I4) - R(I,I2) 70 CONTINUE CALL DAXB (DR(1,3),DR(1,2),DR(1,4)) C AREA = DSQRT(DR(1,4)**2 + DR(2,4)**2 + DR(3,4)**2) C DO 80 I = 1,3 80 DR(I,4) = DR(I,4)/AREA EL = DR(1,4)*DR(1,1) + DR(2,4)*DR(2,1) + DR(3,4)*DR(3,1) DO 81 I = 1,3 81 DR(I,1) = DR(I,1) - EL*DR(I,4) EL = DSQRT(DR(1,1)**2 + DR(2,1)**2 + DR(3,1)**2) DO 82 I = 1,3 82 DR(I,1) = DR(I,1)/EL C CALL DAXB (DR(1,4),DR(1,1),DR(1,2)) DO 90 I = 1,3 90 DR(I,4) = R(I,I4) - R(I,I1) CALL GMMATD (DR(1,1),2,3,0, DR(1,3),2,3,1, KQ) DRT(L,3) = KQ(1) DRT(L,4) = KQ(2) DRT(M,3) = KQ(3) DRT(M,4) = KQ(4) DRT(L,1) = 0.0D0 DRT(L,2) = EL DRT(M,1) = 0.0D0 DRT(M,2) = 0.0D0 95 CONTINUE GO TO 120 100 IF (SUB.NE.2 .AND .SUB.NE.4) GO TO 120 C C MOVE TRIANGLES TO ELEMENT COORDINATES C DO 110 I = 1,3 DR(I,1) = R(I,2) - R(I,1) 110 DR(I,2) = R(I,3) - R(I,1) C EL = DR(1,1)**2 + DR(2,1)**2 + DR(3,1)**2 EL = DSQRT(EL) AREA = DADOTB( DR(1,1),DR(1,2))/EL CALL DAXB (DR(1,1), DR(1,2), DR(1,3)) DR(2,3) = DSQRT(DR(1,3)**2 + DR(2,3)**2 + DR(3,3)**2)/EL DR(1,3) = AREA DR(1,1) = 0.0D0 DR(1,2) = EL DR(2,1) = 0.0D0 DR(2,2) = 0.0D0 120 CONTINUE C C LOOP ON SUBELEMENTS (ONE FOR MOST) C NEL = NELS(SUB) DO 460 IEL = 1,NEL C GO TO (130,160,160,140,140, 200,220,240,240,330,330,330, 1 330,330,330), SUB C C RODS,BARS, ETC. C 130 C(1) = 1.0D0 C(2) =-1.0D0 EL = (R(1,2)-R(1,1))**2 + (R(2,2)-R(2,1))**2 + (R(3,2)-R(3,1))**2 EL = DSQRT(EL) KQ(1) = AF*K(1)/EL IP(1) = 1 IP(2) = 2 NP = 2 NQ = 1 GO TO 300 C C RING ELEMENTS, TRIANGLES AND QUADRILATERALS C 140 RBAR = 0.0 DO 150 I = 1,3 IG = I + IEL - 1 IF (IG .GT. 4) IG = IG - 4 RBAR = RBAR + R(1,IG) 150 IP(I) = IG AF = RBAR/3.0*PI IF (SUB .EQ. 5) GO TO 160 I1 = IP(1) I2 = IP(2) I3 = IP(3) GO TO 180 160 J = 1 I1 = 1 I2 = 2 I3 = 3 IF (IEL.EQ.2 .OR. IEL.EQ.4) I3 = 4 IP(1) = 1 IP(2) = 2 IP(3) = 3 IF (IEL .EQ. 1) GO TO 165 IP(3) = 4 IF (IEL .EQ. 2) GO TO 165 J = 3 IP(1) = 3 IP(2) = 4 IP(3) = 1 IF (IEL .EQ. 3) GO TO 165 IP(3) = 2 165 DO 170 I = 1,4 DR(1,I) = DRT(J,I) DR(2,I) = DRT(J+1,I) 170 CONTINUE 180 CONTINUE AREA = DR(1,I1)*(DR(2,I2) - DR(2,I3)) 1 + DR(1,I2)*(DR(2,I3) - DR(2,I1)) 2 + DR(1,I3)*(DR(2,I1) - DR(2,I2)) C C(1) = (DR(2,I2) - DR(2,I3))/AREA C(2) = (DR(2,I3) - DR(2,I1))/AREA C(3) = (DR(2,I1) - DR(2,I2))/AREA C C(4) = (DR(1,I3) - DR(1,I2))/AREA C(5) = (DR(1,I1) - DR(1,I3))/AREA C(6) = (DR(1,I2) - DR(1,I1))/AREA C IF (SUB.EQ.3 .OR. SUB.EQ.5) AREA = AREA/2.0D0 DO 190 I = 1,4 190 KQ(I) = K(I)*AREA*AF/2.0D0 C NP = 3 NQ = 2 GO TO 300 C C SOLID ELEMENTS C 200 DO 210 I = 1,4 210 IP(I) = I GO TO 260 C C WEDGE C 220 LROW = 4*IEL - 4 DO 230 I = 1,4 I1 = LROW + I 230 IP(I) = SMAP(I1) GO TO 260 C C HEXA1 AND HEXA2 ELEMENTS C 240 LROW = 4*IEL + 8 DO 250 I = 1,4 I1 = LROW +I 250 IP(I) = SMAP(I1) I1 = IP(1) 260 DO 270 I = 1,3 IG = IP(I+1) DO 270 J = 1,3 DR(J,I) = R(J,IG) - R(J,I1) 270 CONTINUE C C COMPUTE INVERSE AND BRING ALONG THE DETERMINANT FROM INVERD. C ISING = 0 CALL INVERD (3, DR(1,1),3,C(1), 0, DETERM,ISING,C(5)) DO 280 I = 1,3 IG = 4*I - 4 C(IG+1) = 0.0D0 DO 280 J = 2,4 I1 = IG + J C(I1 ) = DR(J-1,I) C(IG+1) = C(IG+1) - C(I1) 280 CONTINUE FACT = DETERM/6.0D0 IF (SUB .EQ. 9) FACT = FACT/2.0D0 DO 290 I = 1,9 290 KQ(I) = K(I)*FACT NP = 4 NQ = 3 C C PERFORM MATRIX MULTPLIES FOR EACH SUBELEMENT C T C DP = C K C * T1 C 300 DO 310 I = 1,NP IG = IP(I) LTEMP = SIL(IG) T1(I) = UNI(LTEMP) SINDX(I) = SIL(IG) 310 CONTINUE CALL GMMATD (C,NQ,NP,0, T1,NP,1,0, DRTEMP) CALL GMMATD (KQ,NQ,NQ,0, DRTEMP,NQ,1,0, DRTEMP(1,3)) CALL GMMATD (C,NQ,NP,1, DRTEMP(1,3),NQ,1,0, KQ(1)) DO 320 I = 1,NP IG = SINDX(I) DELTA(IG) = DELTA(IG) + KQ(I) 320 CONTINUE GO TO 460 C C BOUNDARY HEAT CONVECTION ELEMENTS C 330 ITYPE = SUB - 9 IF (ITYPE .GT. 7) GO TO 10 GO TO (340,350,370,380,380,350,350), ITYPE 340 NP = 1 KQ(1) = AF*K(1) GO TO 410 350 NP = 2 EL = (R(1,2)-R(1,1))**2 + (R(2,2)-R(2,1))**2 + (R(3,2)-R(3,1))**2 KQ(1) = AF*K(1)*DSQRT(EL)/3.0D0 KQ(2) = KQ(1)/2.0D0 KQ(3) = KQ(2) KQ(4) = KQ(1) GO TO 410 C C RING SURFACE C 370 EL = ((R(1,2)-R(1,1))**2 + (R(3,2)-R(3,1))**2) C(1) = PI*K(1)*DSQRT(EL)/6.0D0 KQ(1) = C(1)*(3.0D0*R(1,1) + R(1,2)) KQ(2) = C(1)*( R(1,1) + R(1,2)) KQ(3) = KQ(2) KQ(4) = C(1)*( R(1,1) + 3.0D0*R(1,2)) NP= 2 GO TO 410 C C TRIANGLES (ALSO FOR SUBELEMENT OF QUAD) C 380 DO 390 I = 1,3 IG = I + IEL - 1 IF (IG .GT. 4) IG = IG - 4 IP(I) = IG 390 CONTINUE I1 = IP(1) I2 = IP(2) I3 = IP(3) DO 400 I = 1,3 DR(I,1) = R(I,I2) - R(I,I1) 400 DR(I,2) = R(I,I3) - R(I,I1) CALL DAXB (DR(I,1),DR(I,2),DR(I,3)) AREA = DSQRT(DR(1,3)**2 + DR(2,3)**2 + DR(3,3)**2)/12.0D0 IF (ITYPE .EQ. 5) AREA = AREA/2.0D0 KQ(1) = AREA*K(1) KQ(2) = KQ(1)/2.0D0 KQ(3) = KQ(2) KQ(4) = KQ(2) KQ(5) = KQ(1) KQ(6) = KQ(2) KQ(7) = KQ(2) KQ(8) = KQ(2) KQ(9) = KQ(1) NP = 3 C C PERFORM MATRIX MULTIPLY, FIRST GET TEMPERATURE VECTOR C 410 DO 430 I = 1,NP IG = IP(I) LTEMP = SIL(IG) T1(I) = UNI(LTEMP) IF (SIL(IG+4) .NE. 0) GO TO 420 T1(I+4) = 0.0D0 GO TO 430 420 LTEMP = SIL(IG+4) T1(I+4) = UNI(LTEMP) 430 CONTINUE CALL GMMATD (KQ(1),NP,NP,0, T1(1),NP,1,0, C) CALL GMMATD (KQ(1),NP,NP,0, T1(5),NP,1,0, C(5)) DO 450 I = 1,NP IG = IP(I) IPG = SIL(IG) DELTA(IPG) = DELTA(IPG) + C(I) - C(I+4) IG = IG + 4 IF (SIL(IG)) 450,450,440 440 IPG = SIL(IG) DELTA(IPG) = DELTA(IPG) + C(I+4) - C(I) 450 CONTINUE C 460 CONTINUE GO TO 10 470 RETURN C 480 J = -2 CALL MESAGE (FILE,J,SUBR) RETURN END ================================================ FILE: mis/ssghtp.f ================================================ SUBROUTINE SSGHTP(ORDER,Z,LZ) C***** C SPECIAL IN-PLACE PARTITIONING ROUTINE USED ONLY BY SSGHT MODULE. C***** INTEGER ORDER(LZ), Z(LZ), SAVE1, SAVE2, PTR I = 1 ISAVE = 1 C C CHECK TO SEE THAT POINTER TO NEXT SLOT HAS NOT BEEN USED YET. C 10 PTR = ORDER(I) IF( PTR .GT. 1000000 ) GO TO 40 ORDER(I) = PTR + 1000000 C C IF THE MOVE-TO LOCATION IS THE SAME, THEN DO NOTHING. C IF( PTR .EQ. I ) GO TO 40 C C SAVE VALUE CURRENTLY IN SLOT WE ARE MOVING TO. C SAVE1 = Z(PTR) C C MOVE ITEM INTO SLOT C Z(PTR) = Z(I) C C SET POINTER TO WHERE -SAVE1- IS TO BE MOVED. C 20 JPTR = ORDER(PTR) IF( JPTR .GT. 1000000 ) GO TO 30 ORDER(PTR) = JPTR + 1000000 SAVE2 = Z(JPTR) Z(JPTR) = SAVE1 SAVE1 = SAVE2 PTR = JPTR GO TO 20 C C END OF CHAIN. GO BACK AND LOOK FOR ANOTHER. C 30 I = ISAVE + 1 GO TO 50 40 I = I + 1 50 ISAVE = I IF( I .LE. LZ ) GO TO 10 C C CLEAR OUT FLAGS AND RETURN. C DO 60 I = 1,LZ ORDER(I) = ORDER(I) - 1000000 60 CONTINUE RETURN END ================================================ FILE: mis/ssgkhi.f ================================================ SUBROUTINE SSGKHI (TREAL,TINT,FN) C C THIS SUBROUTINE COMPUTES THE (5X1) KHI VECTOR FOR USE BY TRBSC, C E C TRPLT, AND QDPLT. C C WHEN PROCESSING THE TRPLT OR QDPLT THIS ROUTINE SHOULD BE CALLED C AFTER THE FIRST SUBTRIANGLE ONLY DUE TO THE D MATRIX ORIENTATION. C INTEGER TINT(6),INDEX(9) REAL TREAL(6),KHI CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SSGTRI/ D(9),KHI(5),KS(30),P(6) COMMON /MATOUT/ DUM(7),ALPHA1,ALPHA2,ALPH12 COMMON /TRIMEX/ EID COMMON /SYSTEM/ SYSBUF,IOUT C C DETERMINE TYPE OF TEMPERATURE DATA C IF (TINT(6) .NE. 1) GO TO 100 C C TEMPERATURE DATA IS TEMPP1 OR TEMPP3 TYPE. C KHI(1) = -ALPHA1*TREAL(2)*FN KHI(2) = -ALPHA2*TREAL(2)*FN KHI(3) = -ALPH12*TREAL(2)*FN GO TO 120 C C TEMPERATURE DATA IS TEMPP2 TYPE. C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C 100 ISING = -1 CALL INVERS (3,D(1),3,0,0,DETERM,ISING,INDEX) IF (ISING .NE. 2) GO TO 110 WRITE (IOUT,105) UFM,EID 105 FORMAT (A23,' 4018, A SINGULAR MATERIAL MATRIX -D- FOR ELEMENT', 1 I9,' HAS BEEN DETECTED BY ROUTINE SSGKHI', /26X,'WHILE ', 2 'TRYING TO COMPUTE THERMAL LOADS WITH TEMPP2 CARD DATA.') CALL MESAGE (-61,0,0) 110 CALL GMMATS (D(1),3,3,0, TREAL(2),3,1,0, KHI(1)) KHI(1) = KHI(1)*FN KHI(2) = KHI(2)*FN KHI(3) = KHI(3)*FN 120 KHI(4) = 0.0 KHI(5) = 0.0 RETURN END ================================================ FILE: mis/ssgslt.f ================================================ SUBROUTINE SSGSLT (SLT,NEWSLT,EST) C C THIS SUBROUTINE OF THE SSG1 MODULE COPIES THE SLT TO ANOTHER C FILE. IN THE COPYING PROCESS ANY -QVOL-, -QBDY1-, -QBDY2-, OR C -QVECT- EXTERNAL LOAD TYPE DATA FOUND WILL BE ALTERED SO AS TO C REPLACE THEIR ELEMENT ID REFERENCES WITH THE APPROPRIATE SILS, AND C MISC. CONSTANTS. THE EXTERNAL LOADS WILL BE PREPARED AS USUAL FOR C THESE AND OTHER LOAD CARD TYPES VIA SUBROUTINE EXTERN. C IMPLICIT INTEGER (A-Z) LOGICAL ANY,NOGO,BGCORE,BGOPEN REAL AREA,HC1,HC2,HC3,Q0,PIOVR4,XX,YY,ZZ, 1 RBUF(50),RZ(1),RECPT(100) INTEGER MCB(7),ECPT(100),BUF(50),SUBR(2),TYPE(25,4) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / NROWSP COMMON /GPTA1 / NELEM,LAST,INCR,NE(1) COMMON /SYSTEM/ KSYSTM(65) COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (KSYSTM(1),SYSBUF ), (KSYSTM(2),OUTPT ), 1 (ECPT(1) ,RECPT(1)), (BUF(1) ,RBUF(1)), 2 (Z(1) ,RZ(1) ) DATA SUBR / 4HSSGS,4HLT / , NOEOR,EOR/ 0, 1 / DATA BGPDT / 102/ DATA PIOVR4/ 0.7853981634E0 / DATA CBAR / 34 / DATA CROD / 1 / DATA CONROD/ 10 / DATA CTUBE / 3 / DATA CTRMEM/ 9 / DATA CTRIA1/ 6 / DATA CTRIA2/ 17 / DATA CQDMEM/ 16 / DATA CQDMM1/ 62 / DATA CQDMM2/ 63 / DATA CQUAD4/ 64 / DATA CTRIA3/ 83 / DATA CQUAD1/ 19 / DATA CQUAD2/ 18 / DATA CTRIRG/ 36 / DATA CTRPRG/ 37 / DATA CTETRA/ 39 / DATA CWEDGE/ 40 / DATA CHEXA1/ 41 / DATA CHEXA2/ 42 / DATA CHBDY / 52 / DATA CIHEX1/ 65 / DATA CIHEX2/ 66 / DATA CIHEX3/ 67 / C DATA NTYPES/ 25 / C C SLT NEWSLT FLAG FOR DATA C WORDS-IN WORDS-OUT SPEC-PROC CORE-LOCAT C ========== ========== ========== ========== C FORCE DATA TYPE( 1,1)/ 6/,TYPE( 1,2)/ 6/,TYPE( 1,3)/ 0/,TYPE( 1,4)/ 0/ C MOMENT DATA TYPE( 2,1)/ 6/,TYPE( 2,2)/ 6/,TYPE( 2,3)/ 0/,TYPE( 2,4)/ 0/ C FORCE1 DATA TYPE( 3,1)/ 4/,TYPE( 3,2)/ 4/,TYPE( 3,3)/ 0/,TYPE( 3,4)/ 0/ C MOMNT1 DATA TYPE( 4,1)/ 4/,TYPE( 4,2)/ 4/,TYPE( 4,3)/ 0/,TYPE( 4,4)/ 0/ C FORCE2 DATA TYPE( 5,1)/ 6/,TYPE( 5,2)/ 6/,TYPE( 5,3)/ 0/,TYPE( 5,4)/ 0/ C MOMNT2 DATA TYPE( 6,1)/ 6/,TYPE( 6,2)/ 6/,TYPE( 6,3)/ 0/,TYPE( 6,4)/ 0/ C SLOAD DATA TYPE( 7,1)/ 2/,TYPE( 7,2)/ 2/,TYPE( 7,3)/ 0/,TYPE( 7,4)/ 0/ C GRAV DATA TYPE( 8,1)/ 5/,TYPE( 8,2)/ 5/,TYPE( 8,3)/ 0/,TYPE( 8,4)/ 0/ C PLOAD DATA TYPE( 9,1)/ 5/,TYPE( 9,2)/ 5/,TYPE( 9,3)/ 0/,TYPE( 9,4)/ 0/ C RFORCE DATA TYPE(10,1)/ 6/,TYPE(10,2)/ 6/,TYPE(10,3)/ 0/,TYPE(10,4)/ 0/ C PRESAX DATA TYPE(11,1)/ 6/,TYPE(11,2)/ 6/,TYPE(11,3)/ 0/,TYPE(11,4)/ 0/ C QHBDY DATA TYPE(12,1)/ 7/,TYPE(12,2)/ 7/,TYPE(12,3)/ 0/,TYPE(12,4)/ 0/ C QVOL DATA TYPE(13,1)/ 2/,TYPE(13,2)/12/,TYPE(13,3)/ 1/,TYPE(13,4)/ 0/ C QBDY1 DATA TYPE(14,1)/ 2/,TYPE(14,2)/10/,TYPE(14,3)/ 1/,TYPE(14,4)/ 0/ C QBDY2 DATA TYPE(15,1)/ 5/,TYPE(15,2)/10/,TYPE(15,3)/ 1/,TYPE(15,4)/ 0/ C QVECT DATA TYPE(16,1)/ 5/,TYPE(16,2)/19/,TYPE(16,3)/ 1/,TYPE(16,4)/ 0/ C PLOAD3 DATA TYPE(17,1)/38/,TYPE(17,2)/38/,TYPE(17,3)/ 0/,TYPE(17,4)/ 0/ C PLOAD1 DATA TYPE(18,1)/ 7/,TYPE(18,2)/ 7/,TYPE(18,3)/ 0/,TYPE(18,4)/ 0/ C PLOADX DATA TYPE(19,1)/ 5/,TYPE(19,2)/ 5/,TYPE(19,3)/ 0/,TYPE(19,4)/ 0/ C SPCFLD (WORDS OUT IS A DUMMY VALUE-IT WILL REALLY BE 3*NROWSP) DATA TYPE(20,1)/ 5/,TYPE(20,2)/ 4/,TYPE(20,3)/ 0/,TYPE(20,4)/ 0/ C CEMLOOP DATA TYPE(21,1)/12/,TYPE(21,2)/12/,TYPE(21,3)/ 0/,TYPE(21,4)/ 0/ C GEMLOOP ,BOTH INPUT AND OUTPUT ARE DUMMY. DATA TYPE(22,1)/ 5/,TYPE(22,2)/ 4/,TYPE(22,3)/ 0/,TYPE(22,4)/ 0/ C MDIPOLE (OUTPUT VALUE IS A DUMMY) DATA TYPE(23,1)/ 9/,TYPE(23,2)/ 5/,TYPE(23,3)/ 0/,TYPE(23,4)/ 0/ C REMFLUX (OUTPUT VALUE IS A DUMMY) DATA TYPE(24,1)/ 5/,TYPE(24,2)/ 5/,TYPE(24,3)/ 0/,TYPE(24,4)/ 0/ C PLOAD4 DATA TYPE(25,1)/11/,TYPE(25,2)/11/,TYPE(25,3)/ 0/,TYPE(25,4)/ 0/ C C SLT NEWSLT C CARD=TYPE WORDS IN WORDS OUT C ========= ======== ========= C C QVOL=13 1 = QV 1 = NUM-POINTS(1 TO 8) C 2 = ELEMENT ID 2 = ELEMENT ID C 3 THRU 10 = 8 SILS C 11 = COEFICIENT C 12 = TYPE 1 = 1 DIMEN C 2 = 2 DIMEN C 3 = BELL-EL C 4 = SOLID C C QBDY1=14 1 = Q0 1 = TYPE (1 TO 5) C 2 = ELEMENT ID 2 = ELEMENT ID C 3 THRU 6 = 4 SILS C 7 THRU 10 = 4 COEFS. C C QBDY2=15 1 = ELEMENT ID 1 = ELEMENT ID C 2 = Q01 2 = TYPE (1 TO 5) C 3 = Q02 3 THRU 6 = 4 SILS C 4 = Q03 7 THRU 10 = 4 COEFS. C 5 = Q04 C C QVECT=16 1 = Q0 1 THRU 4 = 4 SILS C 2 = E1 5 = ELEMENT ID C 3 = E2 6 = TYPE (1 TO 5) C 4 = E3 7 THRU 10 = 4 COEFS. C 5 = ELEMENT ID 11 = E1 C 12 = E2 C 13 = E3 C 14 THRU 16 = V1 VECTOR C 17 THRU 19 = V2 VECTOR C C C C SPCFLD=20 1 = CID 1 THRU 3*NROWSP= C 2 = HCX TOTAL HC VALUES AT C 3 = HCY THE GRID POINTS C 4 = HCZ C 5 = GRID ID OR -1 C C C CEMLOOP=21 SAME AS FOR C GEMLOOP=22 SPCFLD C C C C MDIPOLE=23 1 =CID SAME AS C 2-4=LOCATION OF DIPOLE SPCFLD C 5-7=DIPOLE MOMENT C 8 =MIN. DISTANCE C 9 =MAX. DISTANCE C C REMFLUX=24 SAME INPUT AS 1 THRU 3*(NO. OF C SPCFLD EXCEPT ELEMENTS)= TOTAL C WORD 5 IS ELEMENT ID REMANENT FLUX DENSITY C FOR EACH ELEMNT IN C ORDER ON EST C C THE ELEMENT ID MUST REMAIN IN THE SAME LOCATION ON OUTPUT. C C C SET UP CORE AND BUFFERS. (PG BUFFER IS OPEN IN SSG1) C BGCORE=.FALSE. BGOPEN=.FALSE. NOGO = .FALSE. BUF1 = KORSZ(Z) - 2*SYSBUF - 2 BUF2 = BUF1 - SYSBUF - 2 BUF3 = BUF2 - SYSBUF - 2 CORE = BUF3 - 1 IF (CORE .LT. 100) CALL MESAGE (-8,0,SUBR) C C OPEN SLT, AND NEWSLT. COPY HEADER RECORD ACROSS. C CALL OPEN (*650,SLT,Z(BUF1),RDREW) CALL OPEN (*660,NEWSLT,Z(BUF2),WRTREW) CALL READ (*670,*10,SLT,Z,CORE,EOR,IWORDS) CALL MESAGE (-8,0,SUBR) 10 CALL FNAME (NEWSLT,Z) CALL WRITE (NEWSLT,Z,IWORDS,EOR) C C READ TRAILER OF SLT AND GET COUNT OF LOAD SET RECORDS. C MCB(1) = SLT CALL RDTRL (MCB) NRECS = MCB(2) MCB(1) = NEWSLT CALL WRTTRL (MCB) C C PROCESSING OF LOAD SET RECORDS IF ANY. C IF (NRECS) 620,620,20 20 I = 1 21 CONTINUE ANY = .FALSE. NCORE= NRECS+2 IFIRST = 0 C C ZERO OUT EXISTANCE FLAGS C DO 25 K = 1,NTYPES TYPE(K,4) = 0 25 CONTINUE C C READ CARD TYPE AND COUNT OF CARDS C 30 CALL READ (*670,*110,SLT,BUF,2,NOEOR,IWORDS) 35 CONTINUE ITYPE = BUF(1) ENTRYS = BUF(2) C C CHECK FOR KNOWN TYPE C IF (ITYPE.LE.NTYPES .AND. ITYPE.GT.0) GO TO 50 WRITE (OUTPT,40) SFM,ITYPE 40 FORMAT (A25,' 3094, SLT LOAD TYPE',I9,' IS NOT RECOGNIZED.') CALL MESAGE (-61,0,SUBR) C C CHECK FOR SPECIAL PROCESSING. C 50 INCNT = TYPE(ITYPE,1) C C IF TYPE IS CEMLOOP,SPCFLD,MDIPOLE, OR GEMLOOP,GO TO 800 FOR C SPECIAL PROCESSING. GO TO 1000 FOR REMFLUX PROCESSING C IF (ITYPE.GE.20 .AND. ITYPE.LE.23) GO TO 800 IF (ITYPE .EQ. 24) GO TO 1000 OUTCNT = TYPE(ITYPE,2) IFLAG = TYPE(ITYPE,3) C IF (IFLAG) 90,90,60 C C OK BRING DATA INTO CORE. C 60 JCORE = NCORE + 1 TYPE(ITYPE,4) = JCORE Z(JCORE ) = ITYPE Z(JCORE+1) = ENTRYS JCORE = JCORE + 2 NCORE = JCORE + ENTRYS*OUTCNT - 1 IF (NCORE .GT. CORE) CALL MESAGE (-8,0,SUBR) DO 70 J = JCORE,NCORE Z(J) = 1 70 CONTINUE KCORE = JCORE C C READ IN THE LOAD ENTRIES. C DO 80 J = JCORE,NCORE,OUTCNT CALL FREAD (SLT,Z(J),INCNT,0) 80 CONTINUE ID = 2 IF (ITYPE .EQ. 15) ID = 1 IF (ITYPE .EQ. 16) ID = 5 CALL SORT (0,0,OUTCNT,ID,Z(KCORE),NCORE-KCORE+1) ANY = .TRUE. GO TO 30 C C NO SPECIAL PROCESSING OF THIS LOAD TYPE THUS JUST COPY IT ACROSS. C 90 CALL WRITE (NEWSLT,BUF,2,NOEOR) DO 100 J = 1,ENTRYS CALL FREAD (SLT,BUF,INCNT,0) CALL WRITE (NEWSLT,BUF,OUTCNT,NOEOR) 100 CONTINUE GO TO 30 C C ALL DATA NOW IN CORE FOR THIS LOAD SET. C 110 IF (.NOT. ANY) GO TO 600 C C THE EST IS NOW PROCESSED FOR ELEMENT TYPES CHECKED BELOW. C CALL GOPEN (EST,Z(BUF3),RDREW) C C READ ELEMENT TYPE C 120 CALL READ (*500,*690,EST,ELTYPE,1,NOEOR,IWORDS) IF (ELTYPE .EQ. CBAR ) GO TO 140 IF (ELTYPE .EQ. CROD ) GO TO 150 IF (ELTYPE .EQ. CONROD) GO TO 150 IF (ELTYPE .EQ. CTUBE ) GO TO 160 IF (ELTYPE .EQ. CTRMEM) GO TO 170 IF (ELTYPE .EQ. CTRIA1) GO TO 180 IF (ELTYPE .EQ. CTRIA2) GO TO 170 IF (ELTYPE .EQ. CTRIA3) GO TO 175 IF (ELTYPE .EQ. CQDMEM) GO TO 190 IF (ELTYPE .EQ. CQDMM1) GO TO 190 IF (ELTYPE .EQ. CQDMM2) GO TO 190 IF (ELTYPE .EQ. CQUAD1) GO TO 200 IF (ELTYPE .EQ. CQUAD2) GO TO 190 IF (ELTYPE .EQ. CQUAD4) GO TO 195 IF (ELTYPE .EQ. CTRIRG) GO TO 210 IF (ELTYPE .EQ. CTRPRG) GO TO 220 IF (ELTYPE .EQ. CTETRA) GO TO 230 IF (ELTYPE .EQ. CWEDGE) GO TO 240 IF (ELTYPE .EQ. CHEXA1) GO TO 250 IF (ELTYPE .EQ. CHEXA2) GO TO 250 IF (ELTYPE .EQ. CIHEX1) GO TO 252 IF (ELTYPE .EQ. CIHEX2) GO TO 254 IF (ELTYPE .EQ. CIHEX3) GO TO 256 IF (ELTYPE .EQ. CHBDY ) GO TO 360 130 CALL FWDREC (*700,EST) GO TO 120 C C BAR C 140 ESTWDS = 42 GRID1 = 2 POINTS = 2 IAREA = 17 ITYPE = 1 GO TO 260 C C ROD AND CONROD C 150 ESTWDS = 17 GRID1 = 2 POINTS = 2 IAREA = 5 ITYPE = 1 GO TO 260 C C TUBE C 160 ESTWDS = 16 GRID1 = 2 POINTS = 2 IAREA = 5 ITYPE = 1 GO TO 260 C C TRMEM AND TRIA2 C 170 ESTWDS = 21 GRID1 = 2 POINTS = 3 IAREA = 7 ITYPE = 2 GO TO 260 C C TRIA3 C 175 ESTWDS = 39 GRID1 = 2 POINTS = 3 IAREA = 7 ITYPE = 2 GO TO 260 C C TRIA1 C 180 ESTWDS = 27 GRID1 = 2 POINTS = 3 IAREA = 7 ITYPE = 2 GO TO 260 C C QDMEM AND QUAD2 C 190 ESTWDS = 26 GRID1 = 2 POINTS = 4 IAREA = 8 ITYPE = 2 GO TO 260 C C QUAD4 C 195 ESTWDS = 45 GRID1 = 2 POINTS = 4 IAREA = 8 ITYPE = 2 GO TO 260 C C QUAD1 C 200 ESTWDS = 32 GRID1 = 2 POINTS = 4 IAREA = 8 ITYPE = 2 GO TO 260 C C TRIRG C 210 ESTWDS = 19 GRID1 = 2 POINTS = 3 IAREA = 0 ITYPE = 3 GO TO 260 C C TRAPRG C 220 ESTWDS = 24 GRID1 = 2 POINTS = 4 IAREA = 0 ITYPE = 3 GO TO 260 C C TETRA C 230 ESTWDS = 23 GRID1 = 3 POINTS = 4 IAREA = 0 ITYPE = 4 GO TO 260 C C WEDGE C 240 ESTWDS = 33 GRID1 = 3 POINTS = 6 IAREA = 0 ITYPE = 4 GO TO 260 C C HEXA1 AND HEXA2 C 250 ESTWDS = 43 GRID1 = 3 POINTS = 8 IAREA = 0 ITYPE = 4 GO TO 260 C C IHEX1 C 252 ESTWDS = 55 GRID1 = 3 POINTS = 8 IAREA = 0 ITYPE = 4 GO TO 260 C C IHEX2 AND IHEX3 ARE NOT IMPLEMENTED DUE TO C 1. ECPT ARRAY TOO SMALL IN THIS ROUTINE C 2. QVOL ROUTINE CAN NOT HANDLE SOLID ELEMENTS HAVING MORE THAN C 8 GRID POINTS C C IHEX2 C 254 ESTWDS = 127 GRID1 = 3 POINTS = 20 IAREA = 0 ITYPE = 4 GO TO 130 C C IHEX3 C 256 ESTWDS = 199 GRID1 = 3 POINTS = 32 IAREA = 0 ITYPE = 4 GO TO 130 C C MISC. ELEMENTS OF EST FILE. DO QVOL REFERENCES. C 260 IF (TYPE(13,4) .EQ. 0) GO TO 130 IDQVOL = TYPE(13,4) + 3 ENTRYS = Z(IDQVOL-2) IWORDS = 12 J1 = IDQVOL J2 = J1 + ENTRYS*IWORDS IDPTR = 2 ASSIGN 280 TO IRETRN 270 CALL READ (*700,*120,EST,ECPT,ESTWDS,NOEOR,IFLAG) C C LOOK FOR THIS ELEMENT ID AMONG QVOL DATA. C CALL BISLOC (*270,ECPT(1),Z(IDQVOL),12,ENTRYS,JPOINT) C C MATCH FOUND ON ID. COMPUTE ZERO POINTER TO ZERO WORD OF QVOL ENTRY C INDEX = IDQVOL + JPOINT - 3 GO TO 710 C C IF COEFICIENT IS NOT AN INTEGER 1 ENTRY HAS BEEN ALTERED BEFORE. C 280 DO 350 INDEX = K1,K2,IWORDS IF (Z(INDEX+11) .EQ. 1) GO TO 300 WRITE (OUTPT,290) UWM,ELTYPE,ECPT(1),Z(I+2) 290 FORMAT (A25,' 3095, ELEMENT TYPE',I9,' WITH ID =',I9, 1 ', REFERENCED BY A QVOL CARD IN LOAD SET',I9,1H,, /5X, 2 'IS NOT BEING USED FOR INTERNAL HEAT GENERATION IN THIS ', 3 'LOAD SET BECAUSE ANOTHER ELEMENT TYPE WITH THE SAME ID', 4 /5X,'HAS ALREADY BEEN USED.') GO TO 350 C C ALTER ENTRY IN PLACE (NOTE THE CONVERSION TABLE ABOVE) C C GET AREA FACTOR FROM ECPT AND REVISE ENTRY. C 300 IF (IAREA .EQ. 0) GO TO 310 AREA = RECPT(IAREA) IF (ELTYPE.EQ.CTUBE) AREA = PIOVR4*(AREA**2-(AREA-2.*RECPT(6))**2) GO TO 320 310 AREA = 1.0 320 I1 = INDEX + 3 I2 = INDEX + 10 DO 330 J = I1,I2 Z(J) = 0 330 CONTINUE I2 = I1 + POINTS - 1 IGRID = GRID1 DO 340 J = I1,I2 Z(J) = ECPT(IGRID) IGRID = IGRID+1 340 CONTINUE RZ(INDEX+11) = RZ(INDEX+1)*AREA Z(INDEX + 1) = POINTS Z(INDEX +12) = ITYPE 350 CONTINUE GO TO 270 C C HBDY ELEMENTS OF EST FILE. DO QBDY1, QBDY2, AND QVECT REFERENCES. C C C BUF(3) IS SET TO 0 AS A FLAG TO TELL IF HBDY HAS BEEN CALLED FOR C THIS ELEMENT. C 360 IF (TYPE(14,4)+TYPE(15,4)+TYPE(16,4) .EQ. 0) GO TO 130 IDBDY1 = TYPE(14,4) + 3 IDBDY2 = TYPE(15,4) + 2 IDQVEC = TYPE(16,4) + 6 QBDY1S = Z(IDBDY1-2) QBDY2S = Z(IDBDY2-1) QVECTS = Z(IDQVEC-5) ESTWDS = 53 C C READ AN HBDY ELEMENT ECPT FROM THE EST. C 370 CALL READ (*700,*120,EST,ECPT,ESTWDS,NOEOR,IFLAG) C C LOOK FOR ID AMONG QBDY1 DATA C IF (TYPE(14,4) .EQ. 0) GO TO 410 IWORDS = 10 J1 = IDBDY1 J2 = J1 + QBDY1S*IWORDS IDPTR = 2 ASSIGN 380 TO IRETRN CALL BISLOC (*410,ECPT(1),Z(IDBDY1),10,QBDY1S,JPOINT) C C MATCH FOUND. CHECK FOR PREVIOUS REFERENCE. C INDEX = IDBDY1 + JPOINT - 3 GO TO 710 380 DO 400 INDEX = K1,K2,IWORDS IF (Z(INDEX+10) .EQ. 1) GO TO 390 WRITE (OUTPT,382) UFM,ECPT(1) 382 FORMAT (A23,' 2362, CHBDY CARDS WITH DUPLICATE IDS FOUND IN EST,', 1 ' CHBDY ID NUMBER =',I9) NOGO = .TRUE. GO TO 650 C C ALTER ENTRY FOR OUTPUT. GET AREA FACTORS FOR HBDY ELEMENT. C 390 CALL HBDY (ECPT,ECPT,2,RBUF,BUF) Z(INDEX +3) = BUF(3) Z(INDEX +4) = BUF(4) Z(INDEX +5) = BUF(5) Z(INDEX +6) = BUF(6) RZ(INDEX+7) = RBUF(7)*RZ(INDEX+1) RZ(INDEX+8) = RBUF(8)*RZ(INDEX+1) RZ(INDEX+9) = RBUF(9)*RZ(INDEX+1) RZ(INDEX+10)= RBUF(10)*RZ(INDEX+1) Z(INDEX +1) = ECPT(2) 400 CONTINUE C C LOOK FOR ID AMONG QBDY2 DATA. C 410 IF (TYPE(15,4) .EQ. 0) GO TO 450 IWORDS = 10 J1 = IDBDY2 J2 = J1 + QBDY2S*IWORDS IDPTR = 1 ASSIGN 420 TO IRETRN CALL BISLOC (*450,ECPT(1),Z(IDBDY2),10,QBDY2S,JPOINT) C C MATCH FOUND. CHECK FOR PREVIOUS REFERENCE. C INDEX = IDBDY2 + JPOINT - 2 GO TO 710 420 DO 440 INDEX = K1,K2,IWORDS IF (Z(INDEX+10) .EQ. 1) GO TO 430 WRITE (OUTPT,382) UFM,ECPT(1) NOGO = .TRUE. GO TO 650 C C ALTER ENTRY FOR OUTPUT. GET AREA FACTORS FOR HBDY ELEMENT. C 430 CALL HBDY (ECPT,ECPT,2,RBUF,BUF) RZ(INDEX+7) = RBUF(7)*RZ(INDEX+2) RZ(INDEX+8) = RBUF(8)*RZ(INDEX+3) RZ(INDEX+9) = RBUF(9)*RZ(INDEX+4) RZ(INDEX+10)= RBUF(10)*RZ(INDEX+5) Z(INDEX +3) = BUF(3) Z(INDEX +4) = BUF(4) Z(INDEX +5) = BUF(5) Z(INDEX +6) = BUF(6) Z(INDEX +2) = ECPT(2) 440 CONTINUE C C LOOK FOR ID AMONG QVECT DATA C 450 IF (TYPE(16,4) .EQ. 0) GO TO 490 IWORDS = 19 J1 = IDQVEC J2 = J1 + QVECTS*IWORDS IDPTR = 5 ASSIGN 460 TO IRETRN CALL BISLOC (*490,ECPT(1),Z(IDQVEC),19,QVECTS,JPOINT) C C MATCH FOUND. CHECK FOR PREVIOUS REFERENCE. C INDEX = IDQVEC + JPOINT - 6 GO TO 710 460 DO 480 INDEX = K1,K2,IWORDS IF (Z(INDEX+19) .EQ. 1) GO TO 470 WRITE (OUTPT,382) UFM,ECPT(1) NOGO = .TRUE. GO TO 650 C C ALTER ENTRY FOR OUTPUT. GET AREA FACTORS FOR HBDY ELEMENT. C 470 CALL HBDY (ECPT,ECPT,3,RBUF,BUF) RZ(INDEX+11) = RZ(INDEX+2) RZ(INDEX+12) = RZ(INDEX+3) RZ(INDEX+13) = RZ(INDEX+4) RZ(INDEX+14) = RBUF(11) RZ(INDEX+15) = RBUF(12) RZ(INDEX+16) = RBUF(13) RZ(INDEX+17) = RBUF(14) RZ(INDEX+18) = RBUF(15) RZ(INDEX+19) = RBUF(16) Q0 = RZ(INDEX+1) Z(INDEX + 1) = BUF(3) Z(INDEX + 2) = BUF(4) Z(INDEX + 3) = BUF(5) Z(INDEX + 4) = BUF(6) Z(INDEX + 6) = ECPT(2) RZ(INDEX+ 7) = RBUF(7)*Q0 RZ(INDEX+ 8) = RBUF(8)*Q0 RZ(INDEX+ 9) = RBUF(9)*Q0 RZ(INDEX+10) = RBUF(10)*Q0 480 CONTINUE 490 GO TO 370 C C EST HAS BEEN PASSED FOR ALL ELEMENTS. NOW OUTPUT DATA TO NEWSLT. C 500 CALL CLOSE (EST,CLSREW) DO 590 J = 13,16 JCORE = TYPE(J,4) IF (JCORE) 590,590,510 510 NWORDS = Z(JCORE+1)*TYPE(J,2) + 2 C C INSURE THAT ALL ENTRYS WERE MODIFIED. C CHECK WORD 7 FOR NO INTEGER 1 IN TYPES 14,15, AND 16. C CHECK WORD 11 FOR NO INTEGER 1 IN TYPE 13. C K = 8 IF (J .EQ. 13) K = 12 I1 = JCORE + K I2 = I1 + NWORDS - 3 OUTCNT = TYPE(J,2) DO 580 L = I1,I2,OUTCNT IF (Z(L) .NE. 1) GO TO 580 K = J - 12 GO TO (520,530,540,550), K 520 ID = L - 9 GO TO 560 530 ID = L - 5 GO TO 560 540 ID = L - 6 GO TO 560 550 ID = L - 2 GO TO 560 560 WRITE (OUTPT,570) UFM,Z(ID) 570 FORMAT (A23,' 3096, ELEMENT ID =',I9,' AS REFERENCED ON A QVOL, ', 1 'QBDY1, QBDY2, OR QVECT LOAD CARD,', /5X,'COULD NOT BE ', 2 'FOUND AMONG ACCEPTABLE ELEMENTS FOR THAT LOAD TYPE.') NOGO = .TRUE. 580 CONTINUE CALL WRITE (NEWSLT,Z(JCORE),NWORDS,NOEOR) 590 CONTINUE C C COMPLETE THIS LOAD SET RECORD ON -NEWSLT-. C 600 CALL WRITE (NEWSLT,0,0,EOR) I = I+1 IF (I .LE. NRECS) GO TO 21 C C COPY BALANCE OF DATA ON -SLT- TO -NEWSLT- WHATEVER IT BE. C 620 CALL READ (*640,*630,SLT,Z,CORE,NOEOR,IWORDS) CALL WRITE (NEWSLT,Z,CORE,NOEOR) GO TO 620 630 CALL WRITE (NEWSLT,Z,IWORDS,EOR) GO TO 620 C C NEWSLT IS COMPLETE. C 640 CALL CLOSE (SLT,CLSREW) CALL CLOSE (NEWSLT,CLSREW) 650 IF (NOGO) CALL MESAGE (-61,0,SUBR) RETURN C C FATAL FILE ERRORS C 660 CALL MESAGE (-1,NEWSLT,SUBR) 670 CALL MESAGE (-2,SLT ,SUBR) 690 CALL MESAGE (-3,EST ,SUBR) 700 CALL MESAGE (-2,EST ,SUBR) 701 CALL MESAGE (-2,BGPDT ,SUBR) RETURN C C INTERNAL ROUTINE TO FIND THE START AND END OF ENTRYS HAVING THE C SAME ID IN A GIVEN CARD-TYPE SET. C C C BACK UP TO FIRST ENTRY OF THIS ID. C 710 JINDEX = INDEX + IDPTR - IWORDS 720 IF (JINDEX .LT. J1) GO TO 730 IF (Z(JINDEX) .NE. ECPT(1)) GO TO 730 JINDEX = JINDEX - IWORDS GO TO 720 730 K1 = JINDEX + IWORDS - IDPTR C C FIND LAST ENTRY OF THIS ID. C JINDEX = K1 + IWORDS + IDPTR 740 IF (JINDEX .GE. J2) GO TO 750 IF (Z(JINDEX) .NE. ECPT(1)) GO TO 750 JINDEX = JINDEX + IWORDS GO TO 740 750 K2 = JINDEX - IWORDS - IDPTR GO TO IRETRN, (280,380,420,460) C C SPECIAL PROCESSING FOR SPCFLD,CEMLOOP,MDIPOLE, AND GEMLOOP. SET UP C A VECTOR FOR ALL BUT SPCFLD CARDS, COMPUTE FIELD AT EACH POINT C IN BGPDT. WHEN FINISHED, ALL THE E AND M CARD TYPES WILL BE C ACCUMULATED INTO ONE SPCFLD-LIKE CARD WITH FIELD VALUSS AT EACH C POINT C 800 IF (IFIRST .EQ. 1) GO TO 811 IFIRST = 1 JCORE1 = NCORE+1 JCOREN = NCORE+3*NROWSP IF (JCOREN.GT.CORE) CALL MESAGE (-8,0,SUBR) C DO 810 J1 = JCORE1,JCOREN 810 RZ(J1) = 0. C C ALL E AND M CARDS WILL BE COMBINED INTO ONE LOGICAL CARD OF C TYPE=20, 3*NROWSP VALUES HCX,HCY,HCZ AT EACH POINT IN THE MODEL. C FOR CEMLOOP AND GEMLOOP, WE MUST PICK UP BGPDT FOREACH POINT AND C COMPUTE FIELD FOR EACH LOOP C *** 10/1/80 WE MUST ALSO FIND HC AT INTEGRATION POINTS AND CENTROIDS. C SO ALSO COPY SLT INFO TO NEWSLT FOR USE IN EANDM C C C 1ST OCCURRENCE OF A CARD TYPE. CHECK ON TYPE C 811 JTYPE = ITYPE-19 GO TO (812,840,840,840), JTYPE C C SPCFLD C 812 BUF(1) = 20 BUF(2) = 1 CALL WRITE (NEWSLT,BUF,2,0) DO 830 J1 = 1,ENTRYS C C READ ONE SPCFLD CARD C CALL FREAD (SLT,BUF,5,0) IF (BUF(5).NE.-1) GO TO 825 C C BUF(1)=CID WHICH IS ASSUMED TO BE 0 FOR NOW C C ALL GRIDS GET HC C DO 820 J2 = JCORE1,JCOREN,3 RZ(J2 ) = RZ(J2 )+RBUF(2) RZ(J2+1) = RZ(J2+1)+RBUF(3) RZ(J2+2) = RZ(J2+2)+RBUF(4) 820 CONTINUE GO TO 830 C 825 ISUB = NCORE+3*BUF(5)-2 RZ(ISUB ) = RZ(ISUB )+RBUF(2) RZ(ISUB+1) = RZ(ISUB+1)+RBUF(3) RZ(ISUB+2) = RZ(ISUB+2)+RBUF(4) 830 CONTINUE C C DONE WITH ALL SPCFLD CARDS IN THIS LOAD SET. CHECK FOR OTHER CARD C TYPES IN THIS LOAD SET C CALL WRITE (NEWSLT,RZ(JCORE1),3*NROWSP,0) GO TO 910 C C CEMLOOP,GEMLOOP, OR MDIPOLE C CHECK FOR ENOUGH CORE TO READ IN BGPDT. IF NOT, READ ONE POINT AT C A TIME C 840 IF (BGOPEN) GO TO 850 C C IF MODCOM(9) IS NOT SET TO NONZERO, THEN WE WILL NOT COMPUTE HCFLD C AT GRID POINTS FOR COILS, ETC.(ONLY SPCFLD) SINCE IT TAKES TIME C AND IS NOT NEEDED IN ANY SUBSEQUENT COMPUTATION. (ONLY SPCFLD INFO C IS NEEDED LATER. ALL OTHER HC INFO IS COMPUTED LATER) IF MODCOM(9) C IS SET TO NONZERO, HCFLD IS COMPUTED AT THE POINTS FOR ALL LOAD C TYPES AND CAN BE PRINTED FOR INFORMATIONAL PURPOSES IF DESIRED. C IF (KSYSTM(65) .EQ. 0) GO TO 850 CALL GOPEN (BGPDT,Z(BUF3),0) MCB(1) = BGPDT CALL RDTRL (MCB) NPTS = MCB(2) BGCORE = .TRUE. BGOPEN = .TRUE. IF (JCOREN+4*NPTS.GT.CORE) BGCORE=.FALSE. NEXT = JCOREN+4*NPTS IF (.NOT.BGCORE) NEXT=JCOREN IF (BGCORE) CALL FREAD (BGPDT,Z(JCOREN+1),4*NPTS,0) 850 CONTINUE CALL WRITE (NEWSLT,BUF,2,0) C DO 900 J1 = 1,ENTRYS C C READ CEMLOOP, GEMLOOP, OR MDIPOLE ENTRY C IWORDS = 12 IF (ITYPE .EQ. 22) IWORDS = 48 IF (ITYPE .EQ. 23) IWORDS = 9 CALL FREAD (SLT,BUF,IWORDS,0) CALL WRITE (NEWSLT,BUF,IWORDS,0) IF (KSYSTM(65) .EQ. 0) GO TO 900 C C C DO THIS LOOP FOR ALL POINTS C DO 890 KK = 1,NPTS IF (BGCORE) GO TO 880 CALL FREAD (BGPDT,BUF,4,0) IF (BUF(1) .EQ. -1) GO TO 890 XX = RBUF(2) YY = RBUF(3) ZZ = RBUF(4) GO TO 885 880 JCOR = JCOREN+4*KK IF (Z(JCOR-3) .EQ. -1) GO TO 890 XX = RZ(JCOR-2) YY = RZ(JCOR-1) ZZ = RZ(JCOR ) 885 IF (ITYPE .EQ. 21) GO TO 886 IF (ITYPE .EQ. 23) GO TO 888 CALL GELOOP (RBUF,BUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 887 886 CALL AXLOOP (RBUF,BUF,XX,YY,ZZ,HC1,HC2,HC3) GO TO 887 888 CALL DIPOLE (RBUF,BUF,XX,YY,ZZ,HC1,HC2,HC3) 887 ISUB = NCORE+3*KK-2 RZ(ISUB ) = RZ(ISUB )+HC1 RZ(ISUB+1) = RZ(ISUB+1)+HC2 RZ(ISUB+2) = RZ(ISUB+2)+HC3 C C GO BACK FOR ANOTHER POINT C 890 CONTINUE IF (BGCORE) GO TO 900 CALL REWIND (BGPDT) CALL FWDREC (*701,BGPDT) C C GET ANOTHER LOOP OR DIPOLE C 900 CONTINUE C C CHECK IF NEXT CARD TYPE IS 21 ,22, OR 23. CARD TYPES ON SLT ARE C IN INCREASING CARD TYPE). IF SO, STAY HERE. OTHERWISE, WRITE OUT C ALL CARD TYPES GENERATING AN SPCFLD-TYPE CARD AND GOING ONTO C HCFLDS MUST HAVE CONSECUTIVE TYPE NUMBERS FOR THIS SPECIAL C PROCESSING THE GENERATED SPCFLD AND GO BACK TO NORMAL PROCESSING C 910 CALL READ (*670,*920,SLT,BUF,2,NOEOR,IWORDS) ITYPE = BUF(1) ENTRYS = BUF(2) IF (BUF(1).GE.20 .AND. BUF(1).LE.23) GO TO 811 IEOR = 0 GO TO 930 920 IEOR = 1 930 BUF(1) =-20 BUF(2) = 1 CALL WRITE (NEWSLT,BUF,2,0) CALL WRITE (NEWSLT,RZ(JCORE1),3*NROWSP,0) IF (BGOPEN) CALL CLOSE (BGPDT,1) IF (IEOR .EQ. 1) GO TO 110 GO TO 35 C C REMFLUX PROCESSING. CREATE A VECTOR OF ORDER 3N,N=NUMBER OF C ELEMENTS IN MODEL,N IS 1ST TRAILER WORD OF EST. THE VECTOR C CONTAINS TOTAL BX,BY,BZ FROM ALL REMFLUX CARDS FOR EACH ELEMENT C IN THE ORDER OF ELEMENTS ON EST C 1000 CALL GOPEN (EST,Z(BUF3),0) MCB(1) = EST CALL RDTRL (MCB) NEL = MCB(2) JCORE1 = NCORE+1 JCOREN = NCORE+3*NEL JCOREX = JCOREN+5*ENTRYS IF (JCOREX .GT. CORE) CALL MESAGE (-8,0,SUBR) C NELS = 0 DO 1010 J1 = JCORE1,JCOREN 1010 RZ(J1) = 0. C C READ ALL REMFLUX CARDS C CALL FREAD (SLT,RZ(JCOREN+1),5*ENTRYS,0) C 1020 CALL READ (*1050,*690,EST,ELTYPE,1,0,IWORDS) IDX = (ELTYPE-1)*INCR ESTWDS = NE(IDX+12) 1025 CALL READ (*700,*1020,EST,ELID,1,0,IWORDS) NELS = NELS+1 ISUB = NCORE+3*NELS-2 CALL FREAD (EST,DUM,-ESTWDS+1,0) C C CHECK FOR THIS ELID AMONG THE REMFLUX CARDS C DO 1040 J1 = 1,ENTRYS ISUB1 = JCOREN+5*J1 IF (Z(ISUB1) .EQ. -1) GO TO 1030 IF (ELID .NE. Z(ISUB1)) GO TO 1040 C C MATCH-STORE THIS PERM MAG C 1030 RZ(ISUB ) = RZ(ISUB )+RZ(ISUB1-3) RZ(ISUB+1) = RZ(ISUB+1)+RZ(ISUB1-2) RZ(ISUB+2) = RZ(ISUB+2)+RZ(ISUB1-1) 1040 CONTINUE C C READ ANOTHER ELEMENT ID C GO TO 1025 C C EST EXHAUSTED C 1050 CALL CLOSE (EST,1) BUF(1) = 24 BUF(2) = 1 CALL WRITE (NEWSLT,BUF,2,0) CALL WRITE (NEWSLT,RZ(JCORE1),3*NEL,0) GO TO 30 END ================================================ FILE: mis/sslot1.f ================================================ SUBROUTINE SSLOT1(IOPT) C IOPT- CSLOT3 = 0, CSLOT4 = 1 C THE ECPT DATA FOR THESE ELEMENTS ARE C C FIELD CSLOT3 CSLOT4 C 1 ID ID C 2 SIL1 SIL1 C 3 SIL2 SIL2 C 4 SIL3 SIL3 C 5 RHO SIL4 C 6 BULK RHO C 7 M BULK C 8 N M C 9 CID1 N C 10 R1 CID1 C 11 Z1 R1 C 12 W1 Z1 C 13 CID2 W1 C 14 R2 CID2 C 15 Z2 R2 C 16 W2 Z2 C 17 CID3 W2 C 18 R3 CID3 C 19 Z3 R3 C 20 W3 Z3 C 21 TEMP W3 C 22 CID4 C 23 R4 C 24 Z4 C***** 25 W4 C***** 26 TEMP INTEGER NECPT(100),NOUT(100) DIMENSION SV(24) COMMON/SDR2X5/ ECPT(100),OUT(100) COMMON/SDR2X6/ R(4),Z(4),RHO,FACT,A,NC1,NC2,NC3,IRET,NR, 1 COL,NR1,NR2,NR3,II,IJ EQUIVALENCE (ECPT(1),NECPT(1)),(OUT(1),NOUT(1)),(OUT(6),SV(1)) IOT = 6 DO 10 I=1,30 10 NOUT(I) = 0 NC1 =1 NC2 =2 NC3 =3 IF(IOPT.NE.0) GO TO 30 C SET UP FOR THE SLOT3 ELEMENT C**** RHO = ECPT(5) IRET=4 DO 20 I=1,3 NR= 4*(I-1)+10 R(I)=ECPT(NR) Z(I)=ECPT(NR+1) 20 CONTINUE GO TO 80 C**** C THE CSLOT4 ELEMENT IS CALCULATED AS FOLLOWS 30 CONTINUE RHO = ECPT(6)*4.0 DO 40 I =1,4 NR = 4*(I-1) +11 R(I) = ECPT(NR) Z(I) = ECPT(NR+1) 40 CONTINUE NCOL=6 IRET =1 GO TO 80 50 NC3 =4 IRET=2 GO TO 80 60 NC2 =3 IRET=3 GO TO 80 70 NC1= 2 IRET=4 80 A = (R(NC1)*(Z(NC2)-Z(NC3)) +R(NC2)*(Z(NC3)-Z(NC1)) 1 + R(NC3)*(Z(NC1)-Z(NC2)) ) FACT = - RHO *A SV(NC1)=(Z(NC2) -Z(NC3))/FACT+SV(NC1) SV(NC2)=(Z(NC3) -Z(NC1))/FACT+SV(NC2) SV(NC3)=(Z(NC1) -Z(NC2))/FACT+SV(NC3) C NR1= 3+IOPT +NC1 NR2= 3+IOPT +NC2 NR3= 3+IOPT +NC3 C SV(NR1)=(R(NC3)-R(NC2))/FACT +SV(NR1) SV(NR2)=(R(NC1)-R(NC3))/FACT +SV(NR2) SV(NR3)=(R(NC2)-R(NC1))/FACT +SV(NR3) C GO TO (50,60,70,90),IRET C 90 CONTINUE NR = IOPT+3 IF(IOPT .EQ. 1) RHO =RHO/4.0 DO 100 I =1,NR J=I+1 IF(J .GT. IOPT+3) J =J-IOPT-3 FACT = 1.0/(SQRT((R(J)-R(I))**2+(Z(J)-Z(I))**2)*RHO) II= IOPT*(I+1) +4*I+3 FACT = 1.0/(SQRT((R(J)-R(I))**2+(Z(J)-Z(I))**2)*RHO) II= IOPT*(I+1) +4*I+3 IJ = II +J -I SV(II) = FACT SV(IJ) =-FACT 100 CONTINUE C C***** C WRAP UP OUTPUT C***** NOUT(1)= NECPT(1) NOUT(2)= NECPT(2) NOUT(3)= NECPT(3) NOUT(4)= NECPT(4) IF(IOPT.GT.0) NOUT(5)= NECPT(5) RETURN END ================================================ FILE: mis/sslot2.f ================================================ SUBROUTINE SSLOT2 (IOPT,IPART,BRANCH,EIGEN) C C THE OPTIONS ARE C IOPT - CSLOT3 = 0, CSLOT4 = 1 C IPART - FIRST = 1, SECOND = 2 C BRANCH - SDR2 PROCESS CODE WORD C INTEGER SIL ,ELID ,BRANCH DIMENSION EIGEN(3) COMMON /SDR2X4/ DUMY(35) ,IVEC COMMON /SDR2X7/ ELID ,SIL(4) ,SV(95) ,ID1 ,VELR(11), 1 ID2 ,VELI(11) COMMON /ZZZZZZ/ ZZ(1) COMMON /CONDAS/ CONSTS(5) EQUIVALENCE (CONSTS(2),TWOPI) C KL = IOPT + 3 KL2 = KL + 2 IF (IPART .EQ. 2) GO TO 20 DO 10 I = 1,11 VELR(I) = 0.0 10 VELI(I) = 0.0 20 X = 1.0 Y = 0.0 IF (BRANCH .EQ. 2) X = SQRT(ABS(EIGEN(2))) IF (BRANCH .EQ. 5) X = TWOPI*EIGEN(1) IF (X .NE. 0.0) X = 1.0/X IF (BRANCH .NE. 9) GO TO 30 EM = EIGEN(2)**2 + EIGEN(3)**2 IF (EM .EQ. 0.0) GO TO 30 X = EIGEN(2)/EM Y =-EIGEN(3)/EM 30 IF (IPART .NE. 2) GO TO 40 EM = X X =-Y Y = EM 40 ID1 = ELID ID2 = ELID C DO 80 I = 1,KL K = IVEC + SIL(I) - 1 IF (X .EQ. 0.0) GO TO 60 DO 50 J = 1,KL2 IJ = KL*(J-1) + I C VELR(J) = SV(IJ)*ZZ(K)*X + VELR(J) 50 CONTINUE 60 IF (Y .EQ. 0.0) GO TO 80 DO 70 J = 1,KL2 IJ = KL*(J-1) + I VELI(J) = SV(IJ)*ZZ(K)*Y + VELI(J) 70 CONTINUE 80 CONTINUE RETURN END ================================================ FILE: mis/ssold1.f ================================================ SUBROUTINE SSOLD1(ITYPE) C***** C C E C P T TETRA WEDGE HEXA C ----------------------------------------------- C ECPT( 1) = EL ID EL ID EL ID C ECPT( 2) = MAT-ID MAT-ID MAT-ID C ECPT( 3) = GRID-1 GRID-1 GRID-1 C ECPT( 4) = GRID-2 GRID-2 GRID-2 C ECPT( 5) = GRID-3 GRID-3 GRID-3 C ECPT( 6) = GRID-4 GRID-4 GRID-4 C ECPT( 7) = CSID-1 GRID-5 GRID-5 C ECPT( 8) = X1 GRID-6 GRID-6 C ECPT( 9) = Y1 CSID-1 GRID-7 C ECPT(10) = Z1 X1 GRID-8 C ECPT(11) = CSID-2 Y1 CSID-1 C ECPT(12) = X2 Z1 X1 C ECPT(13) = Y2 CSID-2 Y1 C ECPT(14) = Z2 X2 Z1 C ECPT(15) = CSID-3 Y2 CSID-2 C ECPT(16) = X3 Z2 X2 C ECPT(17) = Y3 CSID-3 Y2 C ECPT(18) = Z3 X3 Z2 C ECPT(19) = CSID-4 Y3 CSID-3 C ECPT(20) = X4 Z3 X3 C ECPT(21) = Y4 CSID-4 Y3 C ECPT(22) = Z4 X4 Z3 C ECPT(23) = EL-TEM Y4 CSID-4 C ECPT(24) Z4 X4 C ECPT(25) CSID-5 Y4 C ECPT(26) X5 Z4 C ECPT(27) Y5 CSID-5 C ECPT(28) Z5 X5 C ECPT(29) CSID-6 Y5 C ECPT(30) X6 Z5 C ECPT(31) Y6 CSID-6 C ECPT(32) Z6 X6 C ECPT(33) ELTEMP Y6 C ECPT(34) Z6 C ECPT(35) CSID-7 C ECPT(36) X7 C ECPT(37) Y7 C ECPT(38) C ECPT(39) CSID-8 C ECPT(40) X8 C ECPT(41) Y8 C ECPT(42) Z8 C ECPT(43) EL-TEMP C***** REAL NU INTEGER NECPT(100),NPHI(170), M(14,4) C COMMON / SDR2X5/ ECPT(100),PHIOUT(170) COMMON / SDR2X6 / CMAT(18,8) ,BETA(8) 1 ,TEMP(18) ,ELVOL 2 ,VOL ,FACT 3 ,NPTS ,NEL 4 ,MFIRST ,NROW 5 ,ITEST ,FLOC 6 ,J1 ,JLOC 7 ,KPT ,NTEMP 8 ,GE(36) ,H(4,4) 9 ,R(3,3) ,TI(9) COMMON / MATIN / NMAT,MATFLG,ELTEMP COMMON / MATOUT/ E,G,NU,RHO,ALFA,TEMPO C EQUIVALENCE (NPHI(1),PHIOUT(1)) EQUIVALENCE (NECPT(1),ECPT(1)) C DATA M( 1,1),M( 1,2),M( 1,3),M( 1,4)/ 1 ,2 ,3 ,4 / C DATA M( 2,1),M( 2,2),M( 2,3),M( 2,4)/ 1 ,2 ,3 ,6 / DATA M( 3,1),M( 3,2),M( 3,3),M( 3,4)/ 1 ,2 ,6 ,5 / DATA M( 4,1),M( 4,2),M( 4,3),M( 4,4)/ 1 ,4 ,5 ,6 / C DATA M( 5,1),M( 5,2),M( 5,3),M( 5,4)/ 1 ,2 ,3 ,6 / DATA M( 6,1),M( 6,2),M( 6,3),M( 6,4)/ 1 ,3 ,4 ,8 / DATA M( 7,1),M( 7,2),M( 7,3),M( 7,4)/ 1 ,3 ,8 ,6 / DATA M( 8,1),M( 8,2),M( 8,3),M( 8,4)/ 1 ,5 ,6 ,8 / DATA M( 9,1),M( 9,2),M( 9,3),M( 9,4)/ 3 ,6 ,7 ,8 / DATA M(10,1),M(10,2),M(10,3),M(10,4)/ 2 ,3 ,4 ,7 / DATA M(11,1),M(11,2),M(11,3),M(11,4)/ 1 ,2 ,4 ,5 / DATA M(12,1),M(12,2),M(12,3),M(12,4)/ 2 ,4 ,5 ,7 / DATA M(13,1),M(13,2),M(13,3),M(13,4)/ 2 ,5 ,6 ,7 / DATA M(14,1),M(14,2),M(14,3),M(14,4)/ 4 ,5 ,7 ,8 / C GO TO (100,110,120,130),ITYPE C***** C THE TYPE OF THE ELEMENT DETERMINES THE FOLLOWING PARAMETERS C***** 100 NPTS =4 NEL =1 MFIRST=1 GO TO 140 110 NPTS =6 NEL =3 MFIRST=2 GO TO 140 120 NPTS =8 NEL =5 MFIRST=5 GO TO 140 130 NPTS =8 NEL =10 MFIRST=5 140 CONTINUE C***** C ZERO OUT ARRAYS C***** ELVOL =0.0 DO 200 J =1,NPTS BETA(J) =0.0 DO 200 I =1,18 CMAT(I,J) = 0.0 200 CONTINUE C***** C LOOP ON SUBELEMENTS C***** DO 1000 ME =1,NEL NROW = MFIRST +ME -1 C***** C J CORRESPONDS TO THE X,Y,AND Z LOCATIONS OF EACH CONNECTED POINT C***** DO 400 J =1,3 J1 = M(NROW,1)*4 +NPTS +J -1 C***** C I CORRESPONDS TO POINTS 2,3,AND 4 C***** DO 400 I= 1,3 JLOC = M(NROW,I+1)*4 + NPTS + J - 1 C***** C ECPT(JLOC) IS THE JTH COMPONENT OF POINT I+1 C***** 400 R(I,J) = ECPT(JLOC) -ECPT(J1) C***** C INVERT THE GEOMETRY MATRIX EXPLICITLY USING VECTOR OPERATORS C***** CALL SAXB( R(1,3),R(1,2),TEMP) H(2,1) = TEMP(1) + TEMP(2) + TEMP(3) H(2,2) = R(2,2)*R(3,3) -R(3,2)*R(2,3) H(2,3) = R(3,2)*R(1,3) -R(1,2)*R(3,3) H(2,4) = R(1,2)*R(2,3) -R(2,2)*R(1,3) CALL SAXB( R(1,1),R(1,3),TEMP) H(3,1) = TEMP(1)+ TEMP(2) +TEMP(3) H(3,2) = R(2,3)*R(3,1) -R(3,3)*R(2,1) H(3,3) = R(3,3)*R(1,1) -R(1,3)*R(3,1) H(3,4) = R(1,3)*R(2,1) -R(2,3)*R(1,1) CALL SAXB( R(1,1),R(1,2),TEMP) H(4,1) =-TEMP(1) -TEMP(2)-TEMP(3) H(4,2) = R(2,1)*R(3,2) -R(3,1)*R(2,2) H(4,3) = R(3,1)*R(1,2) -R(1,1)*R(3,2) H(4,4) = R(1,1)*R(2,2) -R(2,1)*R(1,2) VOL = (R(1,3)*TEMP(1) + R(2,3)*TEMP(2) +R(3,3)*TEMP(3))/6.0 ELVOL = ELVOL +VOL DO 500 I = 1,4 KPT = M(NROW,I) BETA(KPT) = BETA(KPT) + VOL CMAT(1, KPT) = H(2,I)/6.0 + CMAT(1 ,KPT) CMAT(5, KPT) = H(3,I)/6.0 + CMAT(5 ,KPT) CMAT(9, KPT) = H(4,I)/6.0 + CMAT(9 ,KPT) CMAT(11,KPT) = H(4,I)/6.0 + CMAT(11,KPT) CMAT(12,KPT) = H(3,I)/6.0 + CMAT(12,KPT) CMAT(13,KPT) = H(4,I)/6.0 + CMAT(13,KPT) CMAT(15,KPT) = H(2,I)/6.0 + CMAT(15,KPT) CMAT(16,KPT) = H(3,I)/6.0 + CMAT(16,KPT) CMAT(17,KPT) = H(2,I)/6.0 + CMAT(17,KPT) 500 CONTINUE 1000 CONTINUE C***** C END OF ELEMENT LOOP C***** C***** C CMAT CONTAINS THE SUM OF THE STRAIN -DISPLACEMENT MATRICES C TIMES THE VOLUME OF THE CONNECTED TETRAHEDRON C C CALL THE MATERIAL ROUTINE TO OBTAIN PARAMETERS C***** NMAT = NECPT(2) MATFLG =1 ELTEMP = ECPT(5*NPTS+3) CALL MAT (ECPT(1)) FACT = E /((1.0+NU)*(1.0-2.0*NU) ) DO 1010 I = 1,36 1010 GE(I) = 0.0 GE(1) = FACT*(1.0-NU) GE(2) = FACT* NU GE(3) = GE(2) GE(7) = GE(2) GE(8) = GE(1) GE(9) = GE(2) GE(13)= GE(2) GE(14)= GE(2) GE(15)= GE(1) GE(22)= G GE(29)= G GE(36)= G C***** C EACH CMAT MATRIX IS PREEMULTIPLIED BY THE STRESS-STRAIN GE MATRIX C AND DIVIDED BY THE SUM OF THE VOLUMES. C IF NECESSARY THE MATRIX IS POST-MULTIPLIED BY A GLOBAL TRANSFORM T C C LOOP ON GRID POINTS C***** DO 2000 I =1,NPTS NPHI(I+1) = NECPT(I+2) K= NPTS+I +8 PHIOUT(K) = BETA(I)/(4.0*ELVOL) ICORD = NPTS +4*I -1 DO 1100 J =1,18 1100 CMAT(J,I) = CMAT(J,I)/ELVOL K= NPTS*2 +18*I -9 IF(NECPT(ICORD).NE.0) GO TO 1200 CALL GMMATS( GE,6,6,0,CMAT(1,I),6,3,0,PHIOUT(K) ) GO TO 2000 1200 CALL TRANSS(NECPT(ICORD), TI ) CALL GMMATS( CMAT(1,I),6,3,0,TI,3,3,0,TEMP) CALL GMMATS( GE,6,6,0,TEMP,6,3,0, PHIOUT(K) ) 2000 CONTINUE C NPHI(1) = NECPT(1) PHIOUT(NPTS+2) = TEMPO TEMP(1)= ALFA TEMP(2)= ALFA TEMP(3)= ALFA TEMP(4)= 0.0 TEMP(5)= 0.0 TEMP(6)= 0.0 C***** C THE THERMAL EXPANSION VECTOR IS MULTIPLIED BY THE STRESS-STRAIN C MATRIX,GE C***** CALL GMMATS( GE,6,6,0,TEMP(1),6,1,0,PHIOUT(NPTS+3) ) C***** C THE OUTPUT ARRAY IS NOW COMPLETE C***** RETURN C***** C PHIOUT CONTAINS THE FOLLOWING WHERE N IS THE NUMBER OF CORNERS C C ELEMENT ID C N SILS C T SUB 0 C 6 THERMAL STRESS COEFFICIENTS C N VOLUME RATIO COEFFICIENTS C N 6 BY 3 MATRICES RELATING STRESS TO DISPLACEMENTS C C***** END ================================================ FILE: mis/ssold2.f ================================================ SUBROUTINE SSOLD2 (ITYPE,FTEMP) C C PHASE TWO STRESS DATA RECOVERY FOR THE SOLID ELEMENTS C C ITYPE = 1,2,3,OR4 CORRESPONDING TO THE TETRA,WEDGE,HEXA1,ORHEXA2 C ELEMENTS C C PHIOUT CONTAINS THE FOLLOWING WHERE N IS THE NUMBER OF CORNERS C C ELEMENT ID C N SILS C T SUB 0 C 6 THERMAL STRESS COEFFICIENTS C N VOLUME RATIO COEFFICIENTS C N 6 BY 3 MATRICES RELATING STRESS TO DISPLACEMENTS C C $MIXED_FORMATS C INTEGER NPHI(1),EJECT,ISHD(7),TYP(8),ISTYP(2) REAL FTEMP(8),FRLAST(2) COMMON /SYSTEM/ IBFSZ,NOUT,IDM(9),LINE COMMON /ZZZZZZ/ Z(1) COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM COMMON /SDR2X7/ PHIOUT(100),STRES(100),FORVEC(25) COMMON /SDR2X8/ TEMP(6),FACTOR,NPTS,NPOINT,KS,KBETA,SIGMA(9), 1 CTMP(6),CSIG(7) COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK EQUIVALENCE (NPHI(1),PHIOUT(1)),(ISHD(1),LSUB), 1 (ISHD(2),LLD),(ISHD(6),FRLAST(1)) DATA TYP / 4HTETR,1HA, 4HWEDG,1HE, 4HHEXA,1H1, 4HHEXA,1H2 / DATA LLD , LSUB,FRLAST / 2*-1, -1.0E30, -1.0E30 / C GO TO (100,110,120,120), ITYPE 100 NPTS = 4 GO TO 130 110 NPTS = 6 GO TO 130 120 NPTS = 8 C C 130 DO 140 I = 1,9 CSIG(I) = 0.0 140 SIGMA(I) = 0.0 C C LOOP ON GRID POINTS, DISPLACEMENT EFFECTS C DO 1000 N = 1,NPTS NPOINT = IVEC + NPHI(N+1) - 1 KS = 18*N + 2*NPTS - 9 CALL SMMATS (PHIOUT(KS),6,3,0, Z(NPOINT),3,1,0, TEMP,CTMP) DO 200 I = 1,6 CSIG (I+1) = CSIG(I+1) + CTMP(I) 200 SIGMA(I+1) = SIGMA(I+1) + TEMP(I) C C TEMPERATURE EFFECTS C IF (LDTEMP .EQ. -1) GO TO 1000 KBETA = NPTS + N + 8 FACTOR = (FTEMP(N) - PHIOUT(NPTS+2))*PHIOUT(KBETA) C DO 300 I = 1,6 KBETA = NPTS + I + 2 300 SIGMA(I+1) = SIGMA(I+1) - PHIOUT(KBETA)*FACTOR 1000 CONTINUE SIGMA(1) = PHIOUT(1) DO 1100 I = 1,7 1100 STRES(I) = SIGMA(I) C C OCTAHEDRAL STRESS AND HYDROSTATIC PRESSURE C STRES(8) = SQRT(SIGMA(2)*(SIGMA(2) - SIGMA(3) - SIGMA(4))*2.0 + 1 2.0*SIGMA(3)*(SIGMA(3) - SIGMA(4)) + 2.0* SIGMA(4)**2 + 2 6.0*(SIGMA(5)**2 + SIGMA(6)**2 + SIGMA(7)**2))/3.0 STRES(9) = -(SIGMA(2) + SIGMA(3) + SIGMA(4))/3.0 IF (NCHK .LE. 0) GO TO 450 C C . CHECK PRECISION C CSIG(1) = PHIOUT(1) K = 0 C C . STRESSES C CALL SDRCHK (SIGMA(2),CSIG(2),6,K) IF (K .EQ. 0) GO TO 450 C C . LIMITS EXCEEDED C J = 2*ITYPE ISTYP(1) = TYP(J-1) ISTYP(2) = TYP(J ) J = 0 C IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND. 1 LLD .EQ.ILD .AND. FRLAST(2).EQ.FRTMEI(2)) GO TO 420 LSUB = ISUB LLD = ILD FRLAST(1) = FRTMEI(1) FRLAST(2) = FRTMEI(2) J = 2 CALL PAGE1 400 CALL SD2RHD (ISHD,J) LINE = LINE + 1 WRITE (NOUT,410) 410 FORMAT (7X,4HTYPE,5X,3HEID,5X,2HSX,5X,2HSY,5X,2HSZ,4X,3HTYZ,4X, 1 3HTXZ,4X,3HTXY) GO TO 430 420 IF (EJECT(2) .NE. 0) GO TO 400 430 WRITE (NOUT,440,ERR=450) ISTYP,CSIG 440 FORMAT (1H0,6X,A4,A1,I7,6F7.1) C 450 CONTINUE RETURN END ================================================ FILE: mis/ssplin.f ================================================ SUBROUTINE SSPLIN(NI,XYI,ND,XYD,KX,KY,KD,KT,DZ,G,NCORE,ISNG) LOGICAL LX,LY,LONE,IKD,IKT DIMENSION G(1),XYI(1),XYD(1),NAME(2) REAL DET DATA NAME/4HSSPL,4HIN / LONE = .TRUE. LX = .TRUE. LY = .TRUE. IKT = .FALSE. IKD = .FALSE. IF(KY.LT.0.OR.KX.LT.0) LONE = .FALSE. IF(KY.LT.0.OR.KX.GT.0) LX = .FALSE. IF(KY.GT.0.OR.KX.LT.0) LY = .FALSE. N = NI IF(LONE) N=N+1 IF(LX ) N=N+1 IF(LY ) N=N+1 EX = FLOAT(KX) EY = FLOAT(KY) IF(KT.EQ.1) IKT = .TRUE. IF(KD.EQ.1) IKD = .TRUE. NB = ND*(1+KD) C C CORE NEEDED C C A G INVERS NEEDED = NB*NI + 3*N C B C IF(IKT) NEEDED = NEEDED + NB*N + NI*N C C A OR B IF(.NOT.IKT) NEEDED = NEEDED + NI*N + MAX0(N*N,NB*N) IF(NEEDED.GT.NCORE) CALL MESAGE(-8,0,NAME) IS = NCORE - 3*N -1 IG = 1 C C IF KT = 1 COMPUTE B THEN A THEN C IN A SPACE C C IF KT = 0 COMPUTE C THEN A THEN B IN A SPACE C NT = 2*NI IF(.NOT.IKT) GO TO 65 GO TO 95 C C COMPUTE TO A MATRIX C 1 K = IA C C ZERO A C II = K+1 IK = II + N*N DO 5 I = II,IK 5 G(I) = 0.0 II = 1 IK = 0 DO 60 I = 1,NT,2 K = K+IK JJ = I/2 DO 20 J = I,NT,2 K = K+1 JJ = JJ +1 SUM = 0.0 XM = (XYI(I) - XYI(J)) **2 XP = (XYI(I) + XYI(J)) **2 YM = (XYI(I+1) - XYI(J+1)) **2 YP = (XYI(I+1) + XYI(J+1)) **2 T1 = XM+YM T2 = XP+YM T3 = XM+YP T4 = XP+YP IF(T1.NE.0.0) SUM = T1 * ALOG(T1) IF(T2.NE.0.0.AND.KX.NE.0)SUM = SUM + (T2*ALOG(T2)*EX) IF(T3.NE.0.0.AND.KY.NE.0) SUM = SUM + (T3 * ALOG(T3) * EY) IF(T4.NE.0.0.AND.KY.NE.0.AND.KX.NE.0)SUM=SUM+(T4*ALOG(T4)*EX*EY) IF(J.EQ.I) GO TO 10 G(K) = SUM C C SYMETRY TERM C KK = K + (N-1)*(JJ-II) G(KK) = SUM GO TO 20 10 G(K) = SUM + DZ KK = K 20 CONTINUE INR = 0 IF(.NOT.LONE) GO TO 30 INR = INR +1 G(K+INR) = 1.0 G(KK+INR*N) = 1.0 30 IF(.NOT.LX) GO TO 40 INR = INR +1 G(K+INR) = XYI(I) G(KK+INR*N) = XYI(I) 40 IF(.NOT.LY) GO TO 50 INR = INR +1 G(K+INR) = XYI(I+1) G(KK+INR*N) = XYI(I+1) 50 IK = II + INR II = II +1 60 CONTINUE C C CALL INVERS FOR A-1 C OR A-1 B C C REPLACE CALLS TO INVAER WITH CALLS TO INVERS C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISNG = -1 CALL INVERS(N,G(IA+1),N,G(MP),NC,DET,ISNG,G(IS)) IF(ISNG.EQ.2) GO TO 1000 IF(.NOT.IKT) GO TO 100 IC = IA K = IC+1 GO TO 70 C C C MATRIX COLUMN STORED C 65 IC = NB*NI MP = IC+1 70 DO 90 I = 1,NI DO 80 J = 1,N IC = IC+1 G(IC) = 0.0 IF(I.EQ.J) G(IC) = 1.0 80 CONTINUE 90 CONTINUE IF(IKT) GO TO 170 NC = NI IA = IC GO TO 1 C C B MATRIX COLUMN STORED C 95 IB = NB*NI MP = IB +1 GO TO 110 100 IB = IA 110 NR = 2*ND K = IB +1 DO 160 J = 1,NR,2 DO 120 I = 1,NT,2 IB = IB+1 ALT1 = 0.0 ALT2 = 0.0 ALT3 = 0.0 ALT4 = 0.0 XM = XYD(J)- XYI(I) XP = XYI(I) + XYD(J) YM = XYD(J+1) - XYI(I+1) YP = XYI(I+1) + XYD(J+1) T1 = XM*XM + YM*YM T2 = XP*XP + YM*YM T3 = XM*XM + YP*YP T4 = XP*XP +YP*YP IF(T1.NE.0.0) ALT1 = ALOG(T1) IF(T2.NE.0.0.AND.KX.NE.0)ALT2 = ALOG(T2) IF(T3.NE.0.0.AND.KY.NE.0)ALT3 = ALOG(T3) IF(T4.NE.0.0.AND.KX.NE.0.AND.KY.NE.0) ALT4 = ALOG(T4) G(IB) = T1*ALT1 + T2*ALT2*EX + T3*ALT3*EY + T4*ALT4*EX*EY IF(.NOT.IKD) GO TO 120 IK = IB + N G(IK) = 2.0*( XM*(1.0+ALT1) + XP*(1.0+ALT2)*EX + * XM*(1.0+ALT3)*EY + XP*(1.0+ALT4)*EX*EY) 120 CONTINUE INR = 0 IF(.NOT.LONE) GO TO 130 INR = INR +1 G(IB+INR) = 1.0 IF(IKD) G(IB+INR+N) = 0.0 130 IF(.NOT.LX) GO TO 140 INR = INR +1 G(IB+INR) = XYD(J) IF(IKD) G(IB+INR+N) = 1.0 140 IF(.NOT.LY) GO TO 150 INR = INR +1 G(IB+INR) = XYD(J+1) IF(IKD) G(IB+INR+N) = 0.0 150 IB = IB+INR + N*KD 160 CONTINUE IF(.NOT.IKT) GO TO 180 IA = IB NC = NB GO TO 1 170 CONTINUE C C GMMATS WANTS ROW STORED SO INVERT ROWS AND COLUMNS AND INVERT C MULTIPLICATION ORDER C CALL GMMATS(G(MP),NB,N,0,G(K),NI,N,1,G(IG)) GO TO 1000 180 CONTINUE CALL GMMATS(G(MP),NI,N,0,G(K),NB,N,1,G(IG)) 1000 RETURN END ================================================ FILE: mis/sswtch.f ================================================ SUBROUTINE SSWTCH (NBIT,L) C C PURPOSE OF THIS ROUTINE IS TO SET L = 1 IF SENSE SWITCH BIT IS C ON, OTHERWISE L = 0. C C SENSE SWITCH DEFINITION C 1 = DUMP CORE WHEN SUBROUTINE DUMP OR PDUMP(NO ARGUMENTS) IS C CALLED C 2 = DUMP FIAT TABLE AFTER ALLOCATION C 3 = DUMP DATA POOL DICTIONARY AFTER ALLOCATION C 4 = DUMP OSCAR FILE AT END OF XGPI C 5 = CONSOLE MESSAGE DESIRED (BEGIN) C 6 = CONSOLE MESSAGE DESIRED (END) C 7 = EIGENVALUE EXTRACTION DIAGNOSTICS C (DETERMINANT AND INVERSE POWER) C 8 = TRACES NPTP ON 1108 C 9 = TURNS ON PRINTER PLOTTER FOR ANY XYPLOT REQUESTS C 10 = USES ALTERNATE ALGORITHUM FOR NON LINEAR LOADS SEE SPR 153 C 11 = ACTIVE ROW AND COLUMN TIME PRINTS C 12 = CONPLEX EIGENVALUE EXTRACTION DIAGNOSTICS C (INVERSE POWER) C 28 = PUNCHES OUT LINK SPECIFICATION TABLE - DECK XBSBD C 29 = PROCESS LINK SPECIFICATION UPDATE DECK C 30 = PUNCHES OUT ALTERS TO XSEM-S FOR SWITCHES 1-15 C 31 = PRINT LINK SPECIFICATION TABLE C EXTERNAL LSHIFT,RSHIFT,ANDF INTEGER SWITCH,ANDF,RSHIFT,RENTER COMMON /SYSTEM/ XSYS(78),SWITCH(3) COMMON /XLINK / LXLINK,MAXLNK COMMON /SEM / DUMMY(3),NS(1) DATA RENTER/ 4HREEN / C L = 0 IF (IRET .EQ. 1) RETURN IF (NBIT .GT. 31) GO TO 10 IF (ANDF(LSHIFT(1,NBIT-1),SWITCH(1)) .NE. 0) L = 1 RETURN C 10 NBIT2 = NBIT - 31 IF (ANDF(LSHIFT(1,NBIT2-1),SWITCH(2)) .NE. 0) L = 1 RETURN C C ENTRY PRESSW (NBIT,L) C ===================== C C PRESSW IS CALLED ONLY BY BGNSYS AND XCSA TO SETUP DIAGNOSTIC BITS C FOR A PARTICULAR LINK. C BITS 0 THRU 47 ARE USED FOR 48 DIAGNOSTICS C BITS 49 THRU 63 ARE RESERVED FOR 15 LINK NOS. C NBIT HERE (INPUT) CONTAINS BCD WORD NSXX WHERE XX IS LINK NO. C IRET = 0 IF (NBIT .EQ. RENTER) RETURN IF (SWITCH(3)+SWITCH(2) .EQ. 0) IRET = 1 I = 32 - MAXLNK IF (RSHIFT(SWITCH(2),I) .EQ. 0) GO TO 40 DO 20 I = 1,MAXLNK IF (NBIT .EQ. NS(I)) GO TO 30 20 CONTINUE I = 0 IF (NBIT .EQ. NS (16)) I = 5 IF (NBIT .EQ. NS (17)) I = 8 IF (NBIT .EQ. NS (18)) I = 13 IF (NBIT .EQ. NS (19)) I = 6 IF (NBIT .EQ. NS (20)) I = 2 IF (NBIT .EQ. NS (21)) I = 9 IF (NBIT .EQ. NS (22)) I = 11 IF (NBIT .EQ. NS (23)) I = 15 IF (I .NE. 0) GO TO 30 GO TO 40 30 NBIT2 = I + 31 - MAXLNK IF (ANDF(LSHIFT(1,NBIT2),SWITCH(2)) .EQ. 0) IRET = 1 40 IF (IRET .EQ. 0) SWITCH(1) = SWITCH(3) RETURN END ================================================ FILE: mis/stack.f ================================================ SUBROUTINE STACK (IDEG,NEW,ILD,IW) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C STACK POINTS OF ZERO DEGREE AT END OF THE NUMBERING. C IW IS SCRATCH STORAGE. C DIMENSION IDEG(1), NEW(1), ILD(1), IW(1) COMMON /BANDS / NN COMMON /BANDD / DUM(5), KT C KT = 0 NN1 = NN - 1 C C LIST POINTS OF ZERO DEGREE AND INCREMENT COUNTER KT. C DO 10 I = 1,NN IF (IDEG(I) .GT. 0) GO TO 10 KT = KT + 1 IW(KT) = ILD(I) 10 CONTINUE IF (KT .LE. 0) GO TO 80 C C SORT LIST OF RENUMBERED NUMBERS TO BE STACKED. C IF (KT .LE. 1) GO TO 40 KT1 = KT-1 DO 30 I = 1,KT1 K = KT - I KFLAG = 0 DO 20 J = 1,K J1 = J + 1 IF (IW(J) .LE. IW(J1)) GO TO 20 KFLAG = 1 L = IW(J) IW(J ) = IW(J1) IW(J1) = L 20 CONTINUE IF (KFLAG .EQ. 0) GO TO 40 30 CONTINUE 40 CONTINUE C C STACK POINTS OF ZERO DEGREE AT END OF NEW. C DO 70 L = 1,KT I = IW(L) - L + 1 K = NEW(I) IF (I .GE. NN) GO TO 60 DO 50 J = I,NN1 50 NEW(J) = NEW(J+1) 60 NEW(NN) = K 70 CONTINUE C C CORRECT ILD, THE INVERSE OF NEW. C 80 DO 90 I = 1,NN K = NEW(I) 90 ILD(K) = I RETURN END ================================================ FILE: mis/step.f ================================================ SUBROUTINE STEP (U2,U1,U0,P,IBUF) C C STEP WILL INTEGRATE FORWARD ONE TIME STEP C C THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION C INTEGER FILE(7) ,SQR ,RSP ,DUM ,IBUF(1) DIMENSION U2(1) ,U1(1) ,U0(1) ,P(1) COMMON /TRDXX / DUM(21) ,ISCR1 ,ISCR2 ,ISCR3 ,ISCR4 , 1 ISCR5 ,ISCR6 ,IOPEN ,ISYM COMMON /NAMES / DUMM(7) ,RSP ,DUMN(3) ,SQR COMMON /INFBSX/ IFIL(7) ,IFILU(7) C FILE(1) = ISCR1 FILE(2) = DUM(2) FILE(4) = SQR C C TELL MATVEC/INTFBS FILES ARE OPEN C IOPEN = 1 C C FORM R.H.S. OF THE INTEGRATION EQUATION C CALL MATVEC (U1(1),P(1),FILE,IBUF) FILE(1) = ISCR4 CALL MATVEC (U0(1),P(1),FILE,IBUF) C C CALL INTFBS/FBSINT TO DO THE FORWARD/BACKWARD PASS C IFIL(1) = ISCR2 IFILU(1) = ISCR3 CALL RDTRL (IFIL) CALL RDTRL (IFILU) IFIL(5) = RSP IFIL(3) = DUM(2) IF (ISYM .EQ. 1) CALL INTFBS (P(1),U2(1),IBUF) IF (ISYM .EQ. 0) CALL FBSINT (P(1),U2(1)) IOPEN = 0 RETURN END ================================================ FILE: mis/step2.f ================================================ SUBROUTINE STEP2 (U2,U1,U0,P,IBUF) C C STEP2 WILL INTEGRATE FORWARD ONE TIME STEP C C THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION C INTEGER FILE(7) ,SQR ,RDP ,DUM ,IBUF(1) DOUBLE PRECISION U2(1) ,U1(1) ,U0(1) ,P(1) COMMON /TRDXX / DUM(21) ,ISCR1 ,ISCR2 ,ISCR3 ,ISCR4 , 1 ISCR5 ,ISCR6 ,IOPEN ,ISYM COMMON /NAMES / DUMM(8) ,RDP ,DUMN(2) ,SQR COMMON /INFBSX/ IFIL(7) ,IFILU(7) C FILE(1) = ISCR1 FILE(2) = DUM(2) FILE(4) = SQR C C TELL MATVC2/INVFBS FILES ARE OPEN C IOPEN = 1 C C FORM R.H.S. OF THE INTEGRATION EQUATION C CALL MATVC2 (U1(1),P(1),FILE,IBUF) FILE(1) = ISCR4 CALL MATVC2 (U0(1),P(1),FILE,IBUF) C C CALL INVFBS/FBSINT TO DO THE FORWARD/BACKWARD PASS C IFIL(1) = ISCR2 IFILU(1) = ISCR3 CALL RDTRL (IFIL) CALL RDTRL (IFILU) IFIL(5) = RDP IFIL(3) = DUM(3) IF (ISYM .EQ. 1) IOPEN = - 20 IF (ISYM .EQ. 1) CALL INVFBS (P(1),U2(1),IBUF) IF (ISYM .EQ. 0) CALL FBSINT (P(1),U2(1)) IOPEN = 0 RETURN END ================================================ FILE: mis/stord1.f ================================================ SUBROUTINE STORD1 C C C***** C THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR AN AXI-SYMMETRIC C TOROIDAL THIN SHELL RING C***** C C C C ECPT FOR THE TOROIDAL RING C C TYPE C ECPT( 1) ELEMENT IDENTIFICATION I C ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A I C ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B I C ECPT( 4) ANGLE OF CURVATURE AT GRID POINT A R C ECPT( 5) ANGLE OF CURVATURE AT GRID POINT B(NOT USED) R C ECPT( 6) MATERIAL ORIENTATION (NOT USED) R C ECPT( 7) MATERIAL IDENTIFICATION I C ECPT( 8) MEMBRANE THICKNESS R C ECPT( 9) FLEXURE THICKNESS R C ECPT(10) COOR. SYS. ID. FOR GRID POINT A I C ECPT(11) X-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(12) Y-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(13) Z-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(14) COOR. SYS. ID. FOR GRID POINT B I C ECPT(15) X-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(16) Y-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(17) Z-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(18) EL. TEMPERATURE FOR MATERIAL PROPERTIES R C C DIMENSION IECPT(18) DIMENSION GAMBQF(72), GAMBQM(48) DIMENSION EE(4), GAMBQ(144), GAMRS(144) DIMENSION AKI(36), DELINT(66) DIMENSION ICS(2) DIMENSION GAMBL(144) C COMMON /CONDAS/ CONSTS(5) COMMON /SDR2X5/ 1 ECPT(18) 2, DUM5(82) 3, IDEL, IGP(2), TZ 4, SEL(180), TS(30), AK(144) COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH COMMON /MATOUT/ 1 E(3) ,ANU(3) 2, RHO ,G(3) 3, ALF(3) ,TZERO, GSUBE COMMON /SDR2X6/ 1 D(180), R(2), Z(2), ALPH(2) C EQUIVALENCE ( CONSTS(2) , TWOPI ) EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (IECPT(1) , ECPT(1)) EQUIVALENCE (A1, ALPH(1)), (A2, ALPH(2)) EQUIVALENCE (R1, R(1)), (R2, R(2)) EQUIVALENCE (Z1, Z(1)), (Z2, Z(2)) EQUIVALENCE (GAMBQF(1), GAMBQ(1)) EQUIVALENCE (GAMBQM(1), GAMBQ(73)) EQUIVALENCE (DELINT(1), GAMBQ(1)) EQUIVALENCE (GAMRS(1), GAMBQ(1)) EQUIVALENCE (AKI(1), GAMBQ(1)) EQUIVALENCE (GAMBL(1), GAMBQ(1)) C C ---------------------------------------------------------------------- C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT(1) IGP(1) = IECPT(2) IGP(2) = IECPT(3) MATID = IECPT(7) ICS(1) = IECPT(10) ICS(2) = IECPT(14) ALPH(1)= ECPT(4) ALPH(2)= ECPT(5) TM = ECPT(8) TF = ECPT(9) R(1) = ECPT(11) D(1) = ECPT(12) Z(1) = ECPT(13) R(2) = ECPT(15) D(2) = ECPT(16) Z(2) = ECPT(17) TEMPE = ECPT(18) C C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C DO 200 I = 1,2 IF (R(I) .LT. 0.0E0) CALL MESAGE(-30,37,IDEL) IF (D(I) .NE. 0.0E0) CALL MESAGE(-30,37,IDEL) 200 CONTINUE C C C DETERMINE IF ELEMENT IS A TOROIDAL, CONICAL OR CYLINDRICAL RING C ITORD = 0 IF (ABS(A1-A2) .LE. .000001) ITORD = 1 IF (ITORD .EQ. 1 .AND. ABS(A1-90.0E0) .LE. .00001) ITORD = -1 C C C COMPUTE THE ELEMENT COORDINATES C A1 = A1 * DEGRA A2 = A2 * DEGRA PHIB = A2 - A1 SINA1 = SIN(A1) COSA1 = COS(A1) SINA2 = SIN(A2) COSA2 = COS(A2) C IF (ITORD .NE. 0) GO TO 300 C C FOR THE TOROIDAL RING C RP = SQRT( (R2-R1)**2 + (Z2-Z1)**2 ) 1 / (2.0E0 * SIN(PHIB/2.0E0)) S = PHIB * RP GO TO 350 C C FOR THE CONICAL OR CYLINDRICAL RING C 300 CONTINUE RP = 0.0D0 S = SQRT( (R2-R1)**2 + (Z2-Z1)**2 ) C 350 CONTINUE C C C COMPUTE THE BASIC AND REQUIRED INTEGRALS C C C SET UP ARRAY OF CONSTANTS FOR ROMBER INTEGRATION ROUTINE C D(21) = 0.0E0 D(22) = RP D(23) = R1 D(24) = COSA1 D(25) = SINA1 C C COMPUTE CONSTANTS NEEDED FOR INTEGRAL CALCULATIONS C D(30) = R1 - RP * SINA1 D(31) = RP * COSA1 D(32) = RP * SINA1 D(33) = COSA1 ** 2 D(34) = SINA1 * COSA1 D(35) = SINA1 ** 2 D(36) = 0.5 - D(35) C C START LOOP FOR CALCULATIONS OF INTEGRALS C DO 500 JP1 = 1,11 J = JP1 - 1 K = (J * 6) + 1 DJP1 = JP1 C C TEST FOR ELEMENT SHAPE C IF (ITORD) 470,400,430 C C THE TOROIDAL RING BASIC INTEGRALS WILL BE COMPUTED IN C LOCATIONS D(1),...,D(6) C 400 CONTINUE D(20) = (RP ** JP1) C C COMPUTE I(J,1) C D(1) = D(20) * (PHIB ** JP1) / DJP1 C C COMPUTE I(J,2) C D(2) = (PHIB ** (JP1+1)) / (DJP1 + 1.0E0) D(10) = 1.0E0 DO 410 I = 1,20 IP = JP1 + 2 * I + 1 D(11) = 2 * I + 1 D(10) = D(10) * D(11) * (D(11)-1.0E0) D(12) = (-1.0E0)** I * PHIB ** IP 1 / ((DJP1 + D(11)) * D(10)) D(13) = ABS( D(12) / D(2) ) D(2) = D(2) + D(12) IF (D(13) .LE. 1.0E-10) GO TO 415 410 CONTINUE CALL MESAGE(-30,26,IDEL) 415 CONTINUE D(2) = D(20) * D(2) C C COMPUTE I(J,3) C D(3) = (PHIB ** JP1) / DJP1 D(10) = 1.0E0 DO 420 I = 1,20 IP = JP1 + 2 * I D(11) = 2 * I D(10) = D(10) * D(11) * (D(11) - 1.0E0) D(12) = (-1.0E0)** I * PHIB ** IP 1 / ((DJP1 + D(11)) * D(10)) D(13) = ABS( D(12) / D(3) ) D(3) = D(3) + D(12) IF (D(13) .LE. 1.0E-10) GO TO 425 420 CONTINUE CALL MESAGE(-30,26,IDEL) 425 CONTINUE D(3) = D(20) * D(3) D(26) = DJP1 C C COMPUTE I(J,4) C CALL ROMBER (PHIB, D(10), IP, D(4), 1, D(21) ) IF (IP .GE. 15) CALL MESAGE (30,26,IDEL) D(4) = D(20) * D(4) C C COMPUTE I(J,5) C CALL ROMBER (PHIB, D(10), IP, D(5), 2, D(21) ) IF (IP .GE. 15) CALL MESAGE (30,26,IDEL) D(5) = D(20) * D(5) C C COMPUTE I(J,6) C CALL ROMBER (PHIB, D(10), IP, D(6), 3, D(21) ) IF (IP .GE. 15) CALL MESAGE (30,26,IDEL) D(6) = D(20) * D(6) C C THE TOROIDAL RING REQUIRED INTEGRALS C DELINT(K ) = D(30) * D(1) + D(31) * D(2) + D(32) * D(3) DELINT(K+1) = COSA1 * D(2) + SINA1 * D(3) DELINT(K+2) = D(33) * D(4) + D(34) * D(5) + D(35) * D(6) DELINT(K+3) = COSA1 * D(3) - SINA1 * D(2) DELINT(K+4) = D(34) * (D(6)-D(4)) + D(36) * D(5) DELINT(K+5) = D(33) * D(6) - D(34) * D(5) + D(35) * D(4) GO TO 490 C C THE CONICAL RING BASIC INTEGRALS WILL BE COMPUTED IN C LOCATIONS D(1) AND D(2) C 430 CONTINUE C C COMPUTE I(J,1) C D(1) = (S ** JP1) / DJP1 C IF (J - 1) 435,440,445 C C COMPUTE I(0,2) C 435 CONTINUE D(2) = ALOG( (R1 + S*COSA1) / R1 ) / COSA1 GO TO 460 C C COMPUTE I(1,2) C 440 CONTINUE D(2) = (S - (R1/COSA1) * ALOG( (R1 + S*COSA1) / R1 )) / COSA1 GO TO 460 C C COMPUTE I(J,2) WHERE J .GT. 1 C 445 CONTINUE D(2) = 1.0E0 / DJP1 D(10) =-S * COSA1 / R1 DO 450 I = 1,1000 D(11) = JP1 + I D(12) = (D(10) ** I) / D(11) D(2) = D(2) + D(12) IF (D(12) .LT. 1.0E-4 ) GO TO 455 450 CONTINUE CALL MESAGE(-30,26,IDEL) 455 CONTINUE D(2) = ( (S ** JP1) / R1 ) * D(2) 460 CONTINUE C C THE CONICAL RING REQUIRED INTEGRALS C DELINT(K ) = R1 * D(1) + COSA1 * ((S**(JP1+1)) / (DJP1+1.0E0)) DELINT(K+1) = SINA1 * D(1) DELINT(K+2) = D(35) * D(2) DELINT(K+3) = COSA1 * D(1) DELINT(K+4) = D(34) * D(2) DELINT(K+5) = D(33) * D(2) GO TO 490 C C THE CYLINDRICAL RING BASIC INTEGRALS WILL BE COMPUTED IN C LOCATIONS D(1) AND D(2) C 470 CONTINUE C C COMPUTE I(J,1) C D(1) = (S ** JP1) / DJP1 C C COMPUTE I(J,2) C D(2) = D(1) / R1 C C THE CYLINDRICAL RING REQUIRED INTEGRALS C DELINT(K ) = R1 * D(1) + COSA1 * ((S**(JP1+1)) / (DJP1+1.0E0)) DELINT(K+1) = SINA1 * D(1) DELINT(K+2) = D(35) * D(2) DELINT(K+3) = 0.0E0 DELINT(K+4) = 0.0E0 DELINT(K+5) = 0.0E0 C 490 CONTINUE 500 CONTINUE C C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT(IDEL) C C C SET MATERIAL PROPERTIES IN LOCAL VARIABLES C EP = E(1) ET = E(2) VPT= ANU(1) TZ = TZERO VTP= VPT * ET / EP DEL = 1.0E0 - VPT * VTP C C C GENERATE THE ELASTIC CONSTANTS MATRIX(2X2) C EE(1) = EP / DEL EE(2) = ET * VPT / DEL EE(3) = EE(2) EE(4) = ET / DEL C C C FORM THE STIFFNESS MATRIX IN FIELD COORDINATES C C COMPUTE CONSTANTS NEEDED IN DMATRX SUBROUTINE C D(1) = EP / ET D(7) = 0.0E0 IF (ITORD .EQ. 0) D(7) = 1.0E0 / RP D(2) = D(1) * D(7) D(3) = D(2) * D(7) D(4) = VPT * D(7) D(5) =(EP * TM / (D(1) - VPT**2)) * TWOPI D(6) =(EP * (TF**3) / (12.0E0 * (D(1) - VPT**2))) * TWOPI C C CALL THE AMATRIX SUBROUTINE TO COMPUTE THE STIFFNESS MATRIX (10X10) C C NOTE THE DOUBLE SUBSCRIPTING USED IN AMATRIX SUBROUTINE IS C COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS C IS A (11X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING C PROGRAM AND IT IS A (6X11) DOUBLY SUBSCRIPTED ARRAY (STORED C COLUMNWISE) IN AMATRX ROUTINE. C C CALL AMATRX(AK(1), VPT, D(1), D(2), D(3), D(4), D(5), D(6) 1, DELINT(1) ) C C C FORM THE STRESS MATRIX IN FIELD COORDINATES C C COMPUTE THE CONSTANTS NEEDED IN THE SCRLM SUBROUTINE C D(1) = 0.0E0 IF (ITORD .EQ. 0) D(1) = 1.0E0 / RP D(2) = 0.0E0 D(3) = S / 2.0E0 D(4) = S C C CALL THE SCRLM SUBROUTINE TO COMPUTE THE STRESS MATRIX TRANSPOSED C C NOTE THE DOUBLE SUBSCRIPTING USED IN THE SCRLM SUBROUTINE IS C COMPATIBLE WITH THE CALLING PROGRAM. THE SEL ARRAY WILL RETURN WITH C THE STRESS MATRIX TRANSPOSED (10X15, STORED ROWWISE) BUT IN THE SCRLM C SUBROUTINE THE STRESS MATRIX IS COMPUTED AS A DOUBLY SUBSCRIPTED C 15X10 ARRAY (STORED COLUMNWISE). C C CALL SCRLM (SEL(1), D(2), EE(1), TM, 0.0E0, RP, A1, R1, D(1), TF) C C C FORM THE TRANSFORMATION MATRIX(10X12) FROM FIELD COORDINATES TO GRID C POINT DEGREES OF FREEDOM C DO 600 I = 1,72 GAMBQF(I) = 0.0E0 600 CONTINUE D(1) = S D(2) = S ** 2 D(3) = S ** 3 D(4) = S ** 4 D(5) = S ** 5 GAMBQF( 3) = 1.0E0 GAMBQF(16) = 1.0E0 GAMBQF(30) = 0.5E0 GAMBQF(39) = -10.0E0 / D(3) GAMBQF(40) = - 6.0E0 / D(2) GAMBQF(42) = - 1.5E0 / D(1) GAMBQF(45) = -GAMBQF(39) GAMBQF(46) = - 4.0E0 / D(2) GAMBQF(48) = 0.5E0 / D(1) GAMBQF(51) = 15.0E0 / D(4) GAMBQF(52) = 8.0E0 / D(3) GAMBQF(54) = 1.5E0 / D(2) GAMBQF(57) = -GAMBQF(51) GAMBQF(58) = 7.0E0 / D(3) GAMBQF(60) = - 1.0E0 / D(2) GAMBQF(63) = - 6.0E0 / D(5) GAMBQF(64) = - 3.0E0 / D(4) GAMBQF(66) = - 0.5E0 / D(3) GAMBQF(69) = -GAMBQF(63) GAMBQF(70) = GAMBQF(64) GAMBQF(72) = -GAMBQF(66) DO 650 I = 1,48 GAMBQM(I) = 0.0E0 650 CONTINUE GAMBQM( 1) = 1.0E0 GAMBQM(17) = 1.0E0 GAMBQM(25) = - 3.0E0 / D(2) GAMBQM(29) = - 2.0E0 / D(1) GAMBQM(31) = -GAMBQM(25) GAMBQM(35) = - 1.0E0 / D(1) GAMBQM(37) = 2.0E0 / D(3) GAMBQM(41) = 1.0E0 / D(2) GAMBQM(43) = -GAMBQM(37) GAMBQM(47) = GAMBQM(41) C C C TRANSFORM THE STIFFNESS MATRIX TO GRID POINT DEGREES OF FREEDOM C CALL GMMATS(GAMBQ(1), 10, 12, 1, AK(1), 10, 10, 0, D(1) ) CALL GMMATS(D(1), 12, 10, 0, GAMBQ(1), 10, 12, 0, AK(1) ) C C C RE-ARRANGE THE TRANSFORMATION MATRIX (GAMBQ) SUCH THAT THE MEMBRANE C AND FLEXURE TERMS ARE REVERSED C DO 660 I = 1,72 D(I) = GAMBQF(I) 660 CONTINUE DO 670 I = 1,48 GAMBQ(I) = GAMBQM(I) 670 CONTINUE DO 680 I = 1,72 GAMBQ(I+48) = D(I) 680 CONTINUE C C C TRANSFORM THE STRESS MATRIX TO GRID POINT DEGREES OF FREEDOM C CALL GMMATS (SEL(1), 10, 15, 1, GAMBQ(1), 10, 12, 0, D(1) ) C C C FORM THE TRANSFORMATION MATRIX (12X12) FROM ELEMENT TO BASIC C COORDINATES C DO 700 I = 1,144 GAMRS(I) = 0.0E0 700 CONTINUE GAMRS( 1) = COSA1 GAMRS( 3) = -SINA1 GAMRS(25) = SINA1 GAMRS(27) = COSA1 GAMRS(40) = -1.0E0 GAMRS(53) = 1.0E0 GAMRS(66) = 1.0E0 GAMRS(79) = COSA2 GAMRS(81) = -SINA2 GAMRS(103)= SINA2 GAMRS(105)= COSA2 GAMRS(118)= -1.0E0 GAMRS(131)= 1.0E0 GAMRS(144)= 1.0E0 C C C TRANSFORM THE STRESS MATRIX FROM ELEMENT TO BASIC COORDINATES C CALL GMMATS ( D(1), 15, 12, 0, GAMRS(1), 12, 12, 0, SEL(1) ) C C C TRANSFORM THE STIFFNESS MATRIX FROM ELEMENT TO BASIC COORDINATES C CALL GMMATS(GAMRS(1), 12, 12, 1, AK(1), 12, 12, 0, D(1) ) CALL GMMATS(D(1), 12, 12, 0, GAMRS(1), 12, 12, 0, AK(1) ) C C C LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL COORDINATES C FOR THE TWO GRID POINTS AND EXPAND TO (6X6) C DO 730 I = 1,144 GAMBL(I) = 0.0E0 730 CONTINUE DO 800 I = 1,2 CALL TRANSS (ICS(I) , D(1)) K = 78 * (I - 1) DO 750 J = 1,3 KK = K + 12* (J-1) + 1 KL = 3 * (J-1) + 1 KJ = K + 12* (J+2) + J + 3 GAMBL(KK ) = D(KL ) GAMBL(KK+1) = D(KL+1) GAMBL(KK+2) = D(KL+2) GAMBL(KJ) = 1.0E0 750 CONTINUE 800 CONTINUE C C C C TRANSFORM THE STIFFNESS MATRIX FROM BASIC TO LOCAL COORDINATES C CALL GMMATS (GAMBL(1), 12, 12, 1, AK(1), 12, 12, 0, D(1) ) CALL GMMATS (D(1), 12, 12, 0, GAMBL(1), 12, 12, 0, AK(1) ) C C C TRANSFORM THE STRESS MATRIX FROM BASIC TO LOCAL COORDINATES C CALL GMMATS (SEL(1), 15, 12, 0, GAMBL(1), 12, 12, 0, D(1) ) C DO 820 I = 1,180 SEL(I) = D(I) 820 CONTINUE C C C FORM THE THERMAL STRESS VECTOR (30X1) C C THE MEMBRANE TEMPERATURE TERMS WILL BE STORED IN TS(1),...,TS(15) AND C THE FLEXURE GRADIENT TEMP. TERMS WILL BE STORED IN TS(16),...,TS(30) C C C COMPUTE CONSTANTS NEEDED IN THE THERMAL STRESS CALCULATIONS C D(1) = 0.0E0 D(2) = S / 2.0E0 D(3) = S D(4) = EE(1) * ALF(1) + EE(2) * ALF(2) D(5) = EE(3) * ALF(1) + EE(4) * ALF(2) D(6) = (EE(1)-EE(2)) * ALF(1) + (EE(3)-EE(4)) * ALF(2) D(7) = TF ** 3 / 12.0E0 D(8) = TM / S D(9) = D(7) / S C C START THE LOOP TO FORM THE THERMAL STRESS VECTORS AT EACH OF THE C THREE STRESS POINTS C DO 850 I = 1,3 CALL SOLVE1(A1, R1, RP, D(I), D(12), D(13), D(14), 0.0E0) K = 5 * (I - 1) KK = K + 15 TS(K +1) = TM * D(4) TS(K +2) = TM * D(5) TS(K +3) = D(7) * D(4) TS(K +4) =-D(7) * D(5) TS(K +5) = D(7) * D(12) * D(6) TS(KK+1) = D(8) * D(I) * D(4) TS(KK+2) = D(8) * D(I) * D(5) TS(KK+3) = D(9) * D(I) * D(4) TS(KK+4) =-D(9) * D(I) * D(5) TS(KK+5) = D(9) * (D(4) + D(I) * D(12) * D(6)) 850 CONTINUE C C RETURN END ================================================ FILE: mis/stord2.f ================================================ SUBROUTINE STORD2 (TI) C C***** C THIS ROUTINE IS PHASE II OF STRESS DATA RECOVERY FOR AN AXI-SYMMETRIC C TOROIDAL THIN SHELL RING C***** C C C DIMENSION TI(2) DIMENSION DUM3(225) DIMENSION STRES(100), FORCE(25) DIMENSION ISTRES(100), IFORCE(25) C C C SDR2 VARIABLE CORE C COMMON /ZZZZZZ/ ZZ(1) C C C SDR2 BLOCK FOR POINTERS AND LOADING TEMPERATURES C COMMON /SDR2X4/ 1 DUM1(33) 2, ICSTM, NCSTM, IVEC, IVECN 3, TEMPLD, ELDEFM C C C SDR2 INPUT AND OUTPUT BLOCK C COMMON /SDR2X7/ 1 IDEL, IGP(2), TZ 2, SEL(180), TS(30), AK(144) C C C SCRATCH BLOCK C COMMON /SDR2X8/ 1 DISP(12), EFORC(12),ESTRES(15) C C EQUIVALENCE (DUM3(1) , IDEL) EQUIVALENCE (DUM3(101) , STRES(1) , ISTRES(1)) EQUIVALENCE (DUM3(201) , FORCE(1) , IFORCE(1)) EQUIVALENCE (LDTEMP, TEMPLD) C C C C INITIALIZE COUNTERS C NDOF = 6 NUMPT = 2 N = NDOF * NUMPT NSP = 3 NCOMP = 5 NS = NSP * NCOMP C C C LOCATE THE DISPLACEMENTS C K = 0 DO 100 I = 1,NUMPT ILOC = IVEC + IGP(I) - 2 DO 100 J = 1,NDOF ILOC = ILOC + 1 K = K + 1 DISP(K) = ZZ(ILOC) 100 CONTINUE C C C COMPUTE THE GRID POINT FORCES C CALL GMMATS ( AK(1) , N, N, 0, DISP(1) , N, 1, 0, EFORC(1) ) C C C COMPUTE THE STRESSES C CALL GMMATS ( SEL(1), NS, N, 0, DISP(1) , N, 1, 0, ESTRES(1) ) C C C COMPUTE THERMAL STRESS IF THERMAL LOAD EXISTS C AND SUBTRACT FROM APPARENT STRESS C IF (LDTEMP .EQ. (-1)) GO TO 300 C DTM1 = TI(1) - TZ DTM2 = TI(2) - TI(1) DTF1 = 0.0E0 DTF2 = 0.0E0 C C THE TERMS DTF1 AND DTF2 ARE FUNCTIONS OF THE FLEXURAL GRADIENT C TEMPERATURE BUT SINCE THESE TEMPERATURES ARE NOT AVAILABLE C THE TERMS WILL BE SET TO ZERO. THEY ARE USUALLY DEFINED AS FOLLOWS, C DTF1 = TF(1) - TZ C DTF2 = TF(2) - TF(1) C WHERE TF(1) AND TF(2) ARE THE FLEXURAL GRADIENT TEMPERATURES AT C GRID POINTS 1 AND 2 RESPECTIVELY. C K = 0 DO 250 I = 1,NSP DO 225 J = 1,NCOMP K = K + 1 IF (J.GT.2) GO TO 200 ESTRES(K) = ESTRES(K) - DTM1 * TS(K) - DTM2 * TS(K+15) GO TO 225 200 CONTINUE ESTRES(K) = ESTRES(K) - DTF1 * TS(K) - DTF2 * TS(K+15) 225 CONTINUE 250 CONTINUE C 300 CONTINUE C C C STORE RESULTS FOR OUTPUT PRINT C K = 0 J = 1 ISTRES(1) = IDEL DO 400 KK = 1,NSP DO 400 I = 1,NCOMP J = J + 1 K = K + 1 STRES(J) = ESTRES(K) 400 CONTINUE C C K = 0 J = 1 IFORCE(1) = IDEL DO 500 I = 1,NUMPT DO 500 KK= 1,NDOF J = J + 1 K = K + 1 FORCE(J) = EFORC(K) 500 CONTINUE C RETURN END ================================================ FILE: mis/stpaic.f ================================================ SUBROUTINE STPAIC(BLOC,DY,NSIZE,GAP,BM,GM,PM,NS,CLA,AJJL) COMPLEX CH,CDUM,EKM DIMENSION BLOC(1),DY(1),NSIZE(1),GAP(1) DIMENSION BM(4,4,NS),GM(4,3,NS),PM(37,NS) DIMENSION CLA(1) DIMENSION CH(3,3),CDUM(4,4) COMMON /STRIPC/NNS,BREF,CLAM,FM,NCIRC,NNCIRC,EKR(1), * DUM, BB(4),BETA(4),EKM(4,4) COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK COMMON /PACKX / ITI,ITO,II,NN,INCR K = 1 II = NROW +1 NN = NROW IF(EKR(1).LE..00001) EKR(1) = 0.0 NSTED=0 IF(EKR(K).EQ.0.0) NSTED=1 DO 190 N=1,NS BOB=BLOC(N)/BREF EKL=EKR(K)*BOB CONST= CLA(N)*DY(N)*CLAM CR = FM IF ( NCIRC.NE.0 ) CR = BB(1) CI = 0. NOPEN = 0 IF(NSIZE(N).EQ.3.AND.GAP(N).EQ.0.0) NOPEN = 1 TSR= 0.5*GAP(N)/BLOC(N) IM=NSIZE(N) IF(IM-3) 31,32,32 31 JM=2 J1=2 GO TO 33 32 JM=4 J1=3 33 CONTINUE CALL STPK(EKL,N,NSIZE(N),NOPEN,NSTED,TSR,PM(1,N),CR,CI,IM,J1) DO 50 I=1,IM DO 50 J=1,JM CDUM(I,J)=CMPLX(0.0,0.0) DO 50 M=1,JM 50 CDUM(I,J) = CDUM(I,J) + BM(I,M,N)*EKM(M,J) DO 70 I=1,IM DO 70 J=1,J1 CH(I,J) =CMPLX(0.0,0.0) DO 60 M=1,JM 60 CH(I,J) = CH(I,J) + CDUM(I,M)*GM(M,J,N) 70 CH(I,J) = CONST * CH(I,J) NN = NN + IM DO 80 I=1,IM CALL PACK(CH(1,I),AJJL,MCB) 80 CONTINUE II = II + IM 190 CONTINUE RETURN END ================================================ FILE: mis/stpax1.f ================================================ SUBROUTINE STPAX1 C C THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR THE AXI- C SYMMETRIC WITH A TRAPEZOIDAL CROSS SECTION C C C ECPT (01) = ELEMENT ID I C ECPT (02) = SIL A I C ECPT (03) = SIL B I C ECPT (04) = SIL C I C ECPT (05) = SIL D C ECPT (06) = MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT (08) = MATERIAL ID I C ECPT (09) TO ECPT (22) FOR PHI C ECPT (23) = COOR. SYS. FOR GRID POINT A I C ECPT (24) = X-COOR. OF GRID POINT A (IN BASIC COOR) R C ECPT (25) = Z-COOR. OF GRID POINT A (IN BASIC COOR) R C ECPT (26) = 0.0 C ECPT (27) = COOR. SYS. FOR GRID POINT B C ECPT (28) = X-COOR. OF GRID POINT B (IN BASIC COOR) R C ECPT (29) = Z-COOR. OF GRID POINT B (IN BASIC COOR) R C ECPT (30) = 0.0 C ECPT (31) = COOR. SYS. FOR GRID POINT C I C ECPT (32) = X-COOR. FOR GRID POINT C R C ECPT (33) = Z-COOR. FOR GRID POINT C R C ECPT (34) = 0.0 C ECPT (35) = COOR. SYS. FOR GRID POINT D I C ECPT (36) = X-COOR FOR GRID POINT D R C ECPT (37) = Z-COOR FOR GRID POINT D R C ECPT (38) = 0.0 C ECPT (39) = EL. TEMPERATURE FOR MATERIAL PROP R C C ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING C ...KSYS78 OR LSYS78 ... INDICATES CODING NECESSARY FOR THIS C ELEMENT*S PIEZOELECTRIC CAPABILITY C C KSYS78 = 0 ELASTIC, NON-PIEZOELECTRIC MATERIAL C KSYS78 = 1 ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL C KSYS78 = 2 ELASTIC ONLY, PIEZOELECTRIC MATERIAL C LSYS78 = .TRUE. IF KSYS78 = 0, OR 2 C LOGICAL PZMAT,LSYS78 INTEGER SP(50) DIMENSION IECPT(40),DELINT(12),TEO(45),ACURL(208), 1 ICS(4),D1(48),D2(16),ACURP1(48),ACURP2(16), 2 GABABQ(12,12),GBP(4,4),ALFB(6),EE(63),WJP(3,4) CHARACTER UFM*23 COMMON /XMSSG / UFM C C ECPT COMMON BLOCK C COMMON /SDR2X5/ ECPT(39),DUM5(61),IDEL,IGP(4),TZ,SEL(360),TS(06), 1 AK(144),PHI(14),AKPH2(16),AKUPH(48),SELP1(120), 2 SELP2(180),SELP3(60) COMMON /SDR2X6/ D(144),E1(36),WJ(6,12),R(5),Z(5) 1 C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO,GSUBE,MOSKP(9), 1 SETMAT COMMON /MATPZ / PZOUT(51) C COMMON /MATPZ / CE11,CE12,CE13,CE14,CE15,CE16,CE22,CE23,CE24,CE25, C CE26,CE33,CE34,CE35,CE36,CE44,CE45,CE46,CE55,CE56, C CE66,E11,E12,E13,E14,E15,E16,E21,E22,E23,E24,E25, C E26,E31,E32,E33,E34,E35,E36,EPS11,EPS12,EPS13, C EPS22,EPS23,EPS33,RHO,A1,A2,A12,TREF,GE COMMON /SYSTEM/ IBUF,IOUT,DUM75(75),KSYS78 COMMON /CONDAS/ CONSTS(5) EQUIVALENCE (CONSTS(1),PI),(CONSTS(2),TWOPI), 1 (CONSTS(4),DEGRAD),(ACURL(1),AK(1)), 2 (IECPT(1),ECPT(1)),(R(1),R1),(R(2),R2), 3 (R(3),R3),(R(4),R4),(Z(1),Z1), 4 (Z(2),Z2),(Z(3),Z3),(Z(4),Z4), 5 (ACURP1(1),ACURL(145)),(ACURP2(1),ACURL(193)) C LSYS78 = .FALSE. IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE. C C START EXECUTION C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT( 1) IGP(1) = IECPT( 2) IGP(2) = IECPT( 3) IGP(3) = IECPT( 4) IGP(4) = IECPT( 5) MATID = IECPT( 8) ICS(1) = IECPT(23) ICS(2) = IECPT(27) ICS(3) = IECPT(31) R(1) = ECPT(24) D(1) = ECPT(26) Z(1) = ECPT(25) R(2) = ECPT(28) Z(2) = ECPT(29) D(2) = ECPT(30) R(3) = ECPT(32) Z(3) = ECPT(33) D(3) = ECPT(34) ICS(4) = IECPT(35) Z(4) = ECPT(37) D(4) = ECPT(38) R(4) = ECPT(36) TEMPE = ECPT(39) DGAMA = ECPT( 6) C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C DO 200 I = 1,4 IF (R(I) .LE. 0.0) GO TO 910 IF (D(I) .NE. 0.0) GO TO 910 200 CONTINUE C C COMPUTE THE ELEMENT COORDINATES C ZMIN = AMIN1(Z1,Z2,Z3,Z4) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN Z4 = Z4 - ZMIN RMIN = AMIN1(R1,R2,R3,R4) RMAX = AMAX1(R1,R2,R3,R4) IF (RMAX/RMIN .LE. 10.) GO TO 206 C C RATIO OF RADII IS TOO LARGE FOR GAUSS QUADRATURE FOR IP=-1 C IDEL1 = IDEL/1000 WRITE (IOUT,205) UFM,IDEL1 205 FORMAT (A23,', TRAPAX ELEMENT',I9,' HAS A MAXIMUM TO MINIMUM ', 1 'RADIUS RATIO EXCEEDING 10.', /5X,'ACCURACY OF NUMERICAL', 2 ' INTEGRATION WOULD BE IN DOUBT.') GO TO 910 206 CONTINUE C C FORM THE TRANSFORMMATION MATRIX(12X12) FROM FIELD COOR, TO GRID C POINT DEGREES OF FREEDOM C DO 300 I = 1,144 300 GABABQ( I, 1) = 0.0 GABABQ( 1, 1) = 1.0 GABABQ( 2, 1) = R1 GABABQ( 3, 1) = Z1 GABABQ( 4, 1) = R1*Z1 GABABQ( 5, 2) = 1.0 GABABQ( 6, 2) = R1 GABABQ( 7, 2) = Z1 GABABQ( 8, 2) = GABABQ(4,1) GABABQ( 9, 3) = 1.0 GABABQ(10, 3) = R1 GABABQ(11, 3) = Z1 GABABQ(12, 3) = GABABQ(4,1) GABABQ( 1, 4) = 1.0 GABABQ( 2, 4) = R2 GABABQ( 3, 4) = Z2 GABABQ( 4, 4) = R2*Z2 GABABQ( 5, 5) = 1.0 GABABQ( 6, 5) = R2 GABABQ( 7, 5) = Z2 GABABQ( 8, 5) = GABABQ(4,4) GABABQ( 9, 6) = 1.0 GABABQ(10, 6) = R2 GABABQ(11, 6) = Z2 GABABQ(12, 6) = GABABQ(4,4) GABABQ( 1, 7) = 1.0 GABABQ( 2, 7) = R3 GABABQ( 3, 7) = Z3 GABABQ( 4, 7) = R3*Z3 GABABQ( 5, 8) = 1.0 GABABQ( 6, 8) = R3 GABABQ( 7, 8) = Z3 GABABQ( 8, 8) = GABABQ(4,7) GABABQ( 9, 9) = 1.0 GABABQ(10, 9) = R3 GABABQ(11, 9) = Z3 GABABQ(12, 9) = GABABQ(4,7) GABABQ( 1,10) = 1.0 GABABQ( 2,10) = R4 GABABQ( 3,10) = Z4 GABABQ( 4,10) = R4*Z4 GABABQ( 5,11) = 1.0 GABABQ( 6,11) = R4 GABABQ( 7,11) = Z4 GABABQ( 8,11) = GABABQ(4,10) GABABQ( 9,12) = 1.0 GABABQ(10,12) = R4 GABABQ(11,12) = Z4 GABABQ(12,12) = GABABQ(4,10) C IF (LSYS78) GO TO 305 GBP(1,1) = 1.0 GBP(2,1) = R(1) GBP(3,1) = Z(1) GBP(4,1) = R(1)*Z(1) GBP(1,2) = 1.0 GBP(2,2) = R(2) GBP(3,2) = Z(2) GBP(4,2) = R(2)*Z(2) GBP(1,3) = 1.0 GBP(2,3) = R(3) GBP(3,3) = Z(3) GBP(4,3) = R(3)*Z(3) GBP(1,4) = 1.0 GBP(2,4) = R(4) GBP(3,4) = Z(4) GBP(4,4) = R(4)*Z(4) 305 CONTINUE C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (12,GABABQ,12,D(10),0,D(11),ISING,SP) IF (ISING .EQ. 2) GO TO 920 C IF (KSYS78 .EQ. 1) CALL INVERS (4,GBP,4,D(10),0,D(11),ISING,SP) IF (ISING .EQ. 2) GO TO 920 C C MODIFY THE TRANSFORMATION MATRIX IF ELEMENT IS A CORE ELEMENT C C CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT C C DELINT(1) = (-1,0) C DELINT(02)= (-1,1) C DELINT(03)= (-1,2) C DELINT(04)= ( 0,0) C DELINT(05)= ( 0,1) C DELINT(06)= ( 0,2) C DELINT(07)= ( 1,0) C DELINT(08)= ( 1,1) C DELINT(09)= ( 1,2) C DELINT(10)= ( 2,0) C DELINT(11)= ( 2,1) C DELINT(12)= ( 3,0) C I1 = 0 DO 400 I = 1,4 IP = I - 2 DO 350 J = 1,3 IQ = J - 1 I1 = I1 + 1 IF (I1 .NE. 12) GO TO 340 IP = 3 IQ = 0 340 CONTINUE DELINT(I1) = RZINTS(IP,IQ,R,Z,4) 350 CONTINUE 400 CONTINUE C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 C MATIDC = MATID MATFLG = 7 IF (KSYS78 .GT. 0) MATFLG = 9 ELTEMP = TEMPE DGAMR = DGAMA*DEGRAD SINTH = SIN(DGAMR) COSTH = COS(DGAMR) COSG = COSTH SING = SINTH CALL MAT (IDEL) PZMAT = .FALSE. IF (SETMAT.EQ.4. .OR. SETMAT.EQ.5.) PZMAT = .TRUE. IF (PZMAT) GO TO 410 KSAVE = KSYS78 KSYS78 = 0 LSYS78 = .TRUE. GO TO 420 410 RHO = PZOUT(46) ALF(1) = PZOUT(47) ALF(2) = PZOUT(48) ALF(3) = PZOUT(49) TZERO = PZOUT(50) GSUBE = PZOUT(51) 420 CONTINUE IF (SETMAT .EQ. 2.0) GO TO 915 TZ = TZERO IF (KSYS78 .GT. 0) GO TO 500 C C SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES C ER = E(1) ET = E(2) EZ = E(3) VRO = ANU(1) VOZ = ANU(2) VZR = ANU(3) GOR = G(1) GZO = G(2) GRZ = G(3) VOR = VRO*ET/ER VZO = VOZ*EZ/ET VRZ = VZR*ER/EZ DEL = 1.0/(1.0 - VRO*VOR - VOZ*VZO - VZR*VRZ - VRO*VOZ*VZR - 1 VRZ*VOR*VZO) C C COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS C 500 CONTINUE DO 510 I = 1,45 510 TEO (I) = 0.0 C IF (KSYS78 .GT. 0) GO TO 520 TEO ( 1) = ER*(1.0 - VOZ*VZO)*DEL TEO ( 2) = ER*(VZR + VZO*VOR)*DEL TEO ( 3) = EZ*(1.0 - VRO*VOR)*DEL TEO ( 4) = ER*(VOR + VZR*VOZ)*DEL TEO ( 5) = ET*(VZO + VRO*VZR)*DEL TEO ( 6) = ET*(1.0 - VRZ*VZR)*DEL TEO (10) = GRZ TEO (15) = GOR TEO (21) = GZO GO TO 530 520 CONTINUE C C PIEZOELECTRIC MATERIAL PROPERTIES STORED IN TEO(22-39) C DIELECTRIC MATERIAL PROPERTIES STORED IN TEO(40-45) C TEO(22-39) CONTAINS E-TRANSPOSE C TEO( 1) = PZOUT( 1) TEO( 2) = PZOUT( 2) TEO( 3) = PZOUT( 7) TEO( 4) = PZOUT( 3) TEO( 5) = PZOUT( 8) TEO( 6) = PZOUT(12) TEO( 7) = PZOUT( 4) TEO( 8) = PZOUT( 9) TEO( 9) = PZOUT(13) TEO(10) = PZOUT(16) TEO(11) = PZOUT( 5) TEO(12) = PZOUT(10) TEO(13) = PZOUT(14) TEO(14) = PZOUT(17) TEO(15) = PZOUT(19) TEO(16) = PZOUT( 6) TEO(17) = PZOUT(11) TEO(18) = PZOUT(15) TEO(19) = PZOUT(18) TEO(20) = PZOUT(20) TEO(21) = PZOUT(21) C IF (KSYS78 .EQ. 2) GO TO 530 TEO(22) = PZOUT(22) TEO(23) = PZOUT(28) TEO(24) = PZOUT(34) TEO(25) = PZOUT(23) TEO(26) = PZOUT(29) TEO(27) = PZOUT(35) TEO(28) = PZOUT(24) TEO(29) = PZOUT(30) TEO(30) = PZOUT(36) TEO(31) = PZOUT(25) TEO(32) = PZOUT(31) TEO(33) = PZOUT(37) TEO(34) = PZOUT(26) TEO(35) = PZOUT(32) TEO(36) = PZOUT(38) TEO(37) = PZOUT(27) TEO(38) = PZOUT(33) TEO(39) = PZOUT(39) TEO(40) =-PZOUT(40) TEO(41) =-PZOUT(41) TEO(42) =-PZOUT(42) TEO(43) =-PZOUT(43) TEO(44) =-PZOUT(44) TEO(45) =-PZOUT(45) 530 CONTINUE C C2 = COSG*COSG C4 = C2*C2 S2 = SING*SING S4 = S2*S2 C2S2 = C2*S2 C3 = COSG*C2 S3 = SING*S2 CS2 = COSG*S2 SC2 = SING*C2 CS = COSG*SING C EE( 1) = TEO(1)*C4 + TEO(3)*S4 + 2.0*C2S2 * (TEO(2) + 2.0 1 * TEO(10)) EE( 2) = TEO(2)*(C4+S4) + C2S2 * (TEO(1)+TEO(3)-4.0*TEO(10)) EE( 3) = TEO(1)*S4 + 2.0*C2S2 * (TEO(2)+2.0*TEO(10)) 3 + TEO(3)*C4 EE( 4) = TEO(4)*C2 + TEO(5)*S2 EE( 5) = TEO(4)*S2 + TEO(5)*C2 EE( 6) = TEO(6) EE( 7) = COSG*SING*S2 * (TEO(2)-TEO(3)+2.0*TEO(10)) 7 + SING*COSG*C2 * (TEO(1)-TEO(2)-2.0*TEO(10)) EE( 8) = SING*COSG*C2 * (TEO(2)-TEO(3)+2.0*TEO(10)) 8 + COSG*SING*S2 * (TEO(1)-TEO(2)-2.0*TEO(10)) EE( 9) = SING*COSG * (TEO(4) - TEO(5)) EE(10) = C2S2 * (TEO(1)-2.0*TEO(2)+TEO(3)) + TEO(10)*(C2-S2)**2 EE(12) = 0.0 EE(13) = 0.0 EE(15) = TEO(15)*C2 + TEO(21)*S2 EE(20) = COSG*SING * (TEO(15) - TEO(21)) EE(21) = TEO(15)*S2 + TEO(21)*C2 C IF (LSYS78) GO TO 540 C C PIEZOELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINATES C EE(37) = C3*TEO(22) - S3*TEO(26) + CS2*(TEO(25)+2.0*TEO(32)) - 7 SC2*(TEO(23)+2.0*TEO(31)) EE(38) = C3*TEO(23) + S3*TEO(25) + CS2*(TEO(26)-2.0*TEO(31)) + 8 SC2*(TEO(22)-2.0*TEO(32)) EE(39) = S2*TEO(27) + C2*TEO(24) - 2.0*CS*TEO(33) EE(40) = C3*TEO(25) - S3*TEO(23) + CS2*(TEO(22)-2.0*TEO(32)) - O SC2*(TEO(26)-2.0*TEO(31)) EE(41) = C3*TEO(26) + S3*TEO(22) + CS2*(TEO(23)+2.0*TEO(31)) + 1 SC2*( TEO(25)+2.0*TEO(32)) EE(42) = S2*TEO(24) + C2*TEO(27) + 2.0*CS*TEO(33) EE(43) = COSG*TEO(28) - SING*TEO(29) EE(44) = COSG*TEO(29) + SING*TEO(28) EE(45) = TEO(30) EE(46) = C3*TEO(31) + S3*TEO(32) - CS2*(TEO(23)-TEO(26)+TEO(31)) + 6 SC2*(-TEO(32)-TEO(25)+TEO(22)) EE(47) = C3*TEO(32) - S3*TEO(31) - CS2*(TEO(25)-TEO(22)+TEO(32)) + 7 SC2*(TEO(23)+TEO(31)-TEO(26)) EE(48) = (C2-S2)*TEO(33) + CS*(TEO(24)-TEO(27)) EE(49) = C2*TEO(34) + S2*TEO(38) - CS*(TEO(35)+TEO(37)) EE(50) = C2*TEO(35) - S2*TEO(37) + CS*(TEO(34)-TEO(38)) EE(51) = COSG*TEO(36) - SING*TEO(39) EE(52) = C2*TEO(37) - S2*TEO(35) - CS*(TEO(38)-TEO(34)) EE(53) = C2*TEO(38) + S2*TEO(34) + CS*(TEO(35)+TEO(37)) EE(54) = COSG*TEO(39) + SING*TEO(36) C C DIELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINTES C EE(55) = S2*TEO(43) - 2.0*CS*TEO(41) + C2*TEO(40) EE(56) = (C2-S2)*TEO(41) - CS*(TEO(43)-TEO(40)) EE(57) =-SING*TEO(44) + COSG*TEO(42) EE(59) = C2*TEO(43) + 2.0*CS*TEO(41) + S2*TEO(40) EE(60) = COSG*TEO(44) + SING*TEO(42) EE(63) = TEO(45) 540 CONTINUE C C COMPUTE HARMONIC COEFFICIENT C IECPT(1) = IECPT(1) - (IECPT(1)/1000)*1000 - 1 AJHO = IECPT(1) AJJHO = AJHO*AJHO C C FORM THE ELEMENT STIFFNESS MATRIX IN FIELD SYSTEM C ACURL ( 1) = (EE(6) + AJJHO * EE(15)) * DELINT(1) ACURL ( 2) = (EE(4) + EE(6) + AJJHO * EE(15)) * DELINT(4) ACURL ( 3) = (EE(6) + AJJHO * EE(15)) * DELINT(2) 1 + EE(9) * DELINT (4) ACURL ( 4) = (EE(4) + EE(6) + AJJHO * EE(15))* DELINT(5) 1 + EE(9) * DELINT(7) ACURL ( 5) = AJHO * (EE(6) + EE(15)) * DELINT(1) ACURL ( 6) = AJHO * EE(6) * DELINT(4) ACURL ( 7) = AJHO * (EE(6) + EE(15))* DELINT(2) - AJHO * EE(20) 1 * DELINT(4) ACURL ( 8) = AJHO * EE(6) * DELINT(5) - AJHO * EE(20) * DELINT(7) ACURL ( 9) = AJJHO * EE(20) * DELINT(1) ACURL (10) = DELINT(4) * (EE(9) + AJJHO*EE(20)) ACURL (11) = DELINT(4) * EE(5) + AJJHO * DELINT(2) * EE(20) ACURL (12) = DELINT(7) * EE(5) + DELINT(5)*(EE(9)+AJJHO*EE(20)) ACURL (14) = (EE(1) + 2.0 * EE(4) + EE(6) + AJJHO * EE(15)) 1 * DELINT(7) ACURL (15) = (EE(4) + EE(6) + AJJHO * EE(15)) * DELINT(5) 1 + (EE(7) + EE(9)) * DELINT(7) ACURL (16) = (EE(1) + 2.0 * EE(4) + AJJHO * EE(15) + EE(6)) 1 * DELINT(8) + (EE(7) + EE(9)) * DELINT(10) ACURL (17) = AJHO * (EE(4) + EE(6) + EE(15)) * DELINT(4) ACURL (18) = AJHO * (EE(4) + EE(6)) * DELINT(7) ACURL (19) = AJHO * (EE(4) + EE(6) + EE(15)) * DELINT(5) - AJHO 1 * EE(20) * DELINT(7) ACURL (20) = AJHO * (EE(4) + EE(6)) * DELINT(8) - AJHO * EE(20) 1 * DELINT(10) ACURL (21) = AJJHO * EE(20) * DELINT(4) ACURL (22) = DELINT(7) * (EE(7) + EE(9) + AJJHO*EE(20)) ACURL (23) = DELINT(7)*(EE(2)+EE(5))+AJJHO*DELINT(5)*EE(20) ACURL (24) = DELINT(10)*(EE(2)+EE(5))+DELINT(8)*(EE(7)+EE(9)) + 1 DELINT(8)*AJJHO*EE(20) ACURL (27) = (EE(6) + AJJHO * EE(15)) * DELINT(3) + 2.0 1 * EE(9) * DELINT(5) + EE(10) * DELINT (7) ACURL (28) = (EE(4) + EE(6) + AJJHO * EE(15)) * DELINT(6) 1 + EE(10) * DELINT(10) + (EE(7) + 2.0 * EE(9)) 2 * DELINT (8) ACURL (29) = AJHO * (EE(6) + EE(15)) * DELINT(2) + AJHO 1 * EE(9) * DELINT(4) ACURL (30) = AJHO * EE(6) * DELINT(5) + AJHO * EE(9) * DELINT(7) ACURL (31) = AJHO * (EE(6) + EE(15)) * DELINT(3) + AJHO * (EE(9) 1 - EE(20)) * DELINT(5) ACURL (32) = AJHO * (EE(9) - EE(20))* DELINT(8) + AJHO 1 * EE(6) * DELINT(6) ACURL (33) = AJJHO * EE(20) * DELINT(2) ACURL (34) = DELINT(7)*EE(10) + DELINT(5)*(EE(9) + AJJHO*EE(20)) ACURL (35) = DELINT(7)*EE(8) + DELINT(5)*EE(5) + AJJHO*DELINT(3) 1 * EE(20) ACURL (36) = DELINT(10)*EE(8)+DELINT(8)*(EE(5)+EE(10)) + 1 DELINT(6)*(EE(9)+AJJHO*EE(20)) ACURL (40) = (EE(1) + 2.0 * EE(4) + EE(6) + AJJHO * EE(15)) 1 * DELINT(9) + (2.0 * EE(7) + 2.0 * EE(9)) 2 * DELINT(11)+ EE(10) * DELINT(12) ACURL (41) = AJHO * (EE(4) + EE(6) + EE(15)) * DELINT(5) 1 + AJHO * EE(9) * DELINT(7) ACURL (42) = AJHO * (EE(4) + EE(6)) * DELINT(8) + AJHO * EE(9) 1 * DELINT(10) ACURL (43) = AJHO * (EE(4) + EE(6) + EE(15))* DELINT(6) 1 + AJHO * (EE(9) - EE(20)) * DELINT(8) ACURL (44) = AJHO * (EE(4) + EE(6)) * DELINT(9) + AJHO 1 * (EE(9) - EE(20)) * DELINT(11) ACURL (45) = AJJHO * EE(20) * DELINT(5) ACURL (46) = DELINT(8)*(EE(7) + EE(9) + AJJHO*EE(20)) + DELINT(10) 1 * EE(10) ACURL (47) = DELINT(8)*(EE(2) + EE(5)) + DELINT(10)*EE(8) + 1 AJJHO*DELINT(6)*EE(20) ACURL (48) = DELINT(11)*(EE(2)+EE(5)+EE(10)) + DELINT(12)*EE(8) + 1 DELINT(9)*(EE(7)+EE(9)+AJJHO*EE(20)) ACURL (53) = (EE(15) + AJJHO * EE(6)) * DELINT(1) ACURL (54) = AJJHO * EE(6) * DELINT(4) ACURL (55) = (EE(15) + AJJHO * EE(6)) * DELINT(2) - EE(20) 1 * DELINT(4) ACURL (56) = AJJHO * EE(6) * DELINT(5) - EE(20) * DELINT(7) ACURL (57) = AJHO * EE(20) * DELINT(1) ACURL (58) = AJHO*DELINT(4)*(EE(9)+EE(20)) ACURL (59) = AJHO*(DELINT(4)*EE(5) + DELINT(2)*EE(20)) ACURL (60) = AJHO*(DELINT(7)*EE(5)+DELINT(5)*(EE(9)+EE(20))) ACURL (66) = AJJHO * EE(6) * DELINT(7) ACURL (67) = AJJHO * EE(6) * DELINT(5) ACURL (68) = AJJHO * EE(6) * DELINT(8) ACURL (69) = 0.0 ACURL (70) = AJHO*DELINT(7)*EE(9) ACURL (71) = AJHO*DELINT(7)*EE(5) ACURL (72) = AJHO*(DELINT(10)*EE(5)+DELINT(8)*EE(9)) ACURL (79) = (EE(15) + AJJHO * EE(6)) * DELINT(3) - 2.0 1 * EE(20) * DELINT(5) + EE(21) * DELINT(7) ACURL (80) = AJJHO * EE(6) * DELINT(6) - EE(20) * DELINT(8) 1 + EE(21) * DELINT(10) ACURL (81) = AJHO * (EE(20) * DELINT(2) - EE(21) * DELINT(4)) ACURL (82) = AJHO*(DELINT(5)*(EE(9)+EE(20))-DELINT(7)*EE(21)) ACURL (83) = AJHO*(DELINT(5)*(EE(5)-EE(21))+DELINT(3)*EE(20)) ACURL (84) = AJHO*(DELINT(8)*(EE(5)-EE(21))+DELINT(6)*(EE(9) + 1 EE(20))) ACURL (92) = EE(21) * DELINT(12) + AJJHO * EE(6) * DELINT(9) ACURL (93) =-AJHO * EE(21) * DELINT(7) ACURL (94) = AJHO*(DELINT(8)*EE(9)-DELINT(10)*EE(21)) ACURL (95) = AJHO* DELINT(8) * (EE(5)-EE(21)) ACURL (96) = AJHO*(DELINT(11)*(EE(5)-EE(21))+DELINT(9)*EE(9)) ACURL (105) = AJJHO * EE(21) * DELINT(1) ACURL (106) = AJJHO*DELINT(4)*EE(21) ACURL (107) = AJJHO*DELINT(2)*EE(21) ACURL (108) = AJJHO*DELINT(5)*EE(21) ACURL (118) = DELINT(7)*(EE(10)+AJJHO*EE(21)) ACURL (119) = DELINT(7)*EE(8)+AJJHO*DELINT(5)*EE(21) ACURL (120) = DELINT(10)*EE(8)+DELINT(8)*(EE(10)+AJJHO*EE(21)) ACURL (131) = DELINT(7)*EE(3)+AJJHO*DELINT(3)*EE(21) ACURL (132) = DELINT(10)*EE(3)+DELINT(8)*EE(8)+AJJHO*DELINT(6)* 1 EE(21) ACURL (144) = DELINT(12)*EE(3) + 2.0*DELINT(11)*EE(8) + 1 DELINT(9)*(EE(10)+AJJHO*EE(21)) C IF (LSYS78) GO TO 550 ACURL(145) = DELINT(1)*AJHO*(AJHO*EE(51)-EE(45)) ACURL(146) = DELINT(4)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45))) ACURL(147) = DELINT(2)*AJHO*(AJHO*EE(51)-EE(45))+DELINT(4)* 7 (EE(44)-AJHO*EE(50)) ACURL(148) = DELINT(5)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45))) 8 + DELINT(7)*(EE(44)-AJHO*EE(50)) ACURL(149) = DELINT(4)*AJHO*(AJHO*EE(51)-EE(45)-EE(39)) ACURL(150) = DELINT(7)*(EE(43)+EE(37)+AJHO*(AJHO*EE(51)-EE(49) O - EE(45)-EE(39))) ACURL(151) = DELINT(5)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))+DELINT(7) 1 * (EE(44)+EE(38)-AJHO*EE(50)) ACURL(152) = DELINT(8)*(EE(43)+EE(37)+AJHO*(AJHO*EE(51)-EE(49)- 2 EE(45)-EE(39)))+DELINT(10)*(EE(44)+EE(38)-AJHO* 2 EE(50)) ACURL(153) = DELINT(2)*AJHO*(AJHO*EE(51)-EE(45))-DELINT(4)*AJHO 3 * EE(48) ACURL(154) = DELINT(5)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45))) 4 + DELINT(7)*(EE(46)-AJHO*EE(48)) ACURL(155) = DELINT(3)*AJHO*(AJHO*EE(51)-EE(45))+DELINT(5)* 5 (EE(44)-AJHO*(EE(50)+EE(48)))+DELINT(7)*EE(47) ACURL(156) = DELINT(6)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45))) 6 + DELINT(8)*(EE(46)+EE(44)-AJHO*(EE(50)+EE(48)))+ 6 DELINT(10)*EE(47) ACURL(157) = DELINT(5)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))-DELINT(7) 7 * AJHO*EE(48) ACURL(158) = DELINT(8)*(EE(43)+EE(47)+AJHO*(AJHO*EE(51)-EE(49)- 8 EE(45)-EE(39)))-DELINT(10)*(EE(46)-AJHO*EE(48)) ACURL(159) = DELINT(6)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))+DELINT(8) 9 * (EE(44)+EE(38)-AJHO*(EE(50)+EE(48)))+DELINT(10)* 9 EE(47) ACURL(160) = DELINT(9)*(EE(43)+EE(37)+AJHO*(AJHO*EE(51)-EE(49)- O EE(45)-EE(39)))+DELINT(11)*(EE(46)+EE(44)+EE(38)- O AJHO*(EE(50)+EE(48)))+DELINT(12)*EE(47) ACURL(161) = DELINT(1)*AJHO*(EE(51)-AJHO*EE(45)) ACURL(162) = DELINT(4)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(45))) ACURL(163) = DELINT(2)*AJHO*(EE(51)-AJHO*EE(45))+DELINT(4)* 3 (AJHO*EE(44)-EE(50)) ACURL(164) = DELINT(5)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(51))) 4 + DELINT(7)*(AJHO*EE(44)-EE(50)) ACURL(165) =-DELINT(4)*AJJHO*EE(45) ACURL(166) = DELINT(7)*AJHO*(EE(43)-AJHO*EE(45)) ACURL(167) = DELINT(7)*AJHO*EE(44)-DELINT(5)*AJJHO*EE(45) ACURL(168) = DELINT(8)*AJHO*(EE(43)-AJHO*EE(45))+DELINT(10)* 8 AJHO*EE(44) ACURL(169) = DELINT(2)*AJHO*(EE(51)-AJHO*EE(45))-DELINT(4)*AJHO* 9 EE(54) ACURL(170) = DELINT(5)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(45))) O + DELINT(7)*(EE(52)-AJHO*EE(54)) ACURL(171) = DELINT(3)*AJHO*(EE(51)-AJHO*EE(45))+DELINT(5)* 1 (AJHO*(EE(44)-EE(54))-EE(50))+DELINT(7)*EE(53) ACURL(172) = DELINT(6)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(45))) 2 + DELINT(8)*(EE(52)-EE(50)+AJHO*(EE(44)-EE(54))) 2 + DELINT(10)*EE(53) ACURL(173) =-DELINT(5)*AJJHO*EE(45)-DELINT(7)*AJHO*EE(54) ACURL(174) = DELINT(8)*AJHO*(EE(43)-AJHO*EE(45))+DELINT(10)* 4 (EE(54)-AJHO*EE(54)) ACURL(175) =-DELINT(6)*AJJHO*EE(45)+DELINT(8)*AJHO*(EE(44)- 5 EE(54))+DELINT(10)*EE(53) ACURL(176) = DELINT(9)*AJHO*(EE(43)-AJHO*EE(45))+DELINT(11)* 6 (EE(52)+AJHO*(EE(44)-EE(54)))+DELINT(12)*EE(53) ACURL(177) = DELINT(1)*AJJHO*EE(54) ACURL(178) = DELINT(4)*AJHO*(AJHO*EE(54)-EE(52)) ACURL(179) = DELINT(2)*AJJHO*EE(54)-DELINT(4)*AJHO*EE(53) ACURL(180) = DELINT(5)*AJHO*(AJHO*EE(54)-EE(52))-DELINT(7)*AJHO O * EE(53) ACURL(181) = DELINT(4)*AJHO*(AJHO*EE(54)-EE(48)) ACURL(182) = DELINT(7)*(EE(46)+AJHO*(AJHO*EE(54)-EE(52)-EE(48))) ACURL(183) = DELINT(5)*AJHO*(AJHO*EE(54)-EE(48))+DELINT(7)* 3 (EE(47)-AJHO*EE(53)) ACURL(184) = DELINT(8)*(EE(46)+AJHO*(AJHO*EE(54)-EE(52)-EE(48))) 4 + DELINT(10)*(EE(47)-AJHO*EE(53)) ACURL(185) = DELINT(2)*AJJHO*EE(54)-DELINT(4)*AJHO*EE(42) ACURL(186) = DELINT(5)*AJHO*(AJHO*EE(54)-EE(52))+DELINT(7)*(EE(40) 6 - AJHO*EE(42)) ACURL(187) = DELINT(3)*AJJHO*EE(54)-DELINT(5)*AJHO*(EE(53)+EE(42)) 7 + DELINT(7)*EE(41) ACURL(188) = DELINT(6)*AJHO*(AJHO*EE(54)-EE(52))+DELINT(8)* 8 (EE(40)-AJHO*(EE(53)+EE(42)))+DELINT(10)*EE(41) ACURL(189) =-DELINT(5)*AJHO*EE(48)+DELINT(4)*AJJHO*EE(54) 9 - DELINT(7)*AJHO*EE(42) ACURL(190) = DELINT(8)*(EE(46)-AJHO*EE(48))+DELINT(7)*AJHO* O (AJHO*EE(54)-EE(52))+DELINT(10)*(EE(40)-AJHO*EE(42)) ACURL(191) =-DELINT(6)*AJHO*EE(48)+DELINT(5)*AJJHO*EE(54)+ 1 DELINT(8)*(EE(47)-AJHO*EE(42))-DELINT(7)*AJHO*EE(53) 1 + DELINT(10)*EE(41) ACURL(192) = DELINT(9)*(EE(46)-AJHO*EE(48))+DELINT(8)*AJHO* 2 (AJHO*EE(54)-EE(52))+DELINT(11)*(EE(47)+EE(40)- 2 AJHO*EE(42))-DELINT(10)*AJHO*EE(53)+DELINT(12)*EE(41) C ACURL(193) = DELINT(1)*AJJHO*EE(63) ACURL(194) = DELINT(4)*AJHO*(AJHO*EE(63)-EE(57)) ACURL(195) = DELINT(2)*AJJHO*EE(63)-DELINT(4)*AJHO*EE(60) ACURL(196) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))-DELINT(7)* 6 AJHO*EE(60) ACURL(197) = DELINT(4)*AJHO*(AJHO*EE(63)-EE(57)) ACURL(198) = DELINT(7)*(AJJHO*EE(63)-2.0*AJHO*EE(57)+EE(55)) ACURL(199) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(7)*(EE(56) 9 - AJHO*EE(60)) ACURL(200) = DELINT(8)*(AJJHO*EE(63)-2.0*AJHO*EE(57)+EE(55)) O + DELINT(10)*(EE(56)-AJHO*EE(60)) ACURL(201) = DELINT(2)*AJJHO*EE(63)-DELINT(4)*AJHO*EE(60) ACURL(202) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(7)* 2 (EE(56)-AJHO*EE(60)) ACURL(203) = DELINT(3)*AJJHO*EE(63)-DELINT(5)*2.0*AJHO*EE(60) 3 + DELINT(7)*EE(59) ACURL(204) = DELINT(6)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(8)* 4 (EE(56)-2.0*AJHO*EE(60))+DELINT(10)*EE(59) ACURL(205) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))-DELINT(7)* 5 AJHO*EE(60) ACURL(206) = DELINT(8)*(AJJHO*EE(63)-2.0*EE(57)+EE(55))+DELINT(10) 6 * (EE(56)-AJHO*EE(60)) ACURL(207) = DELINT(6)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(8)*(EE(56) 7 - 2.0*AJHO*EE(60))+DELINT(10)*EE(59) ACURL(208) = DELINT(9)*(AJJHO*EE(63)-2.0*AJHO*EE(57)+EE(55))+ 8 2.0*DELINT(11)*(EE(56)-AJHO*EE(60))+DELINT(12)*EE(59) 550 CONTINUE C C TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD SYSTEM C TO GRID POINT DEGREES OF FREEDOM C C EXPAND ACURL INTO (12X12) C DO 610 IB = 2,12 IC = 13*IB - 25 I = IC DO 605 J = IB,12 IC = IC + 12 I = I + 1 605 ACURL(IC) = ACURL(I) 610 CONTINUE C DGAMA = PI IF (AJHO .EQ. 0.0) DGAMA = TWOPI DO 630 I = 1,144 630 ACURL(I) = ACURL(I)*DGAMA C IF (LSYS78) GO TO 638 DO 632 I = 145,208 632 ACURL(I) = ACURL(I)*DGAMA 638 CONTINUE C CALL GMMATS (GABABQ,12,12,1, ACURL, 12,12,0, D ) CALL GMMATS ( D,12,12,0, GABABQ,12,12,0, AK) C IF (LSYS78) GO TO 639 CALL GMMATS (GABABQ,12,12,1, ACURP1,12,4,0, D1) CALL GMMATS (D1,12,4,0, GBP,4,4,0, AKUPH) CALL GMMATS (GBP,4,4,1, ACURP2,4,4,0, D2) CALL GMMATS (D2,4,4,0, GBP,4,4,0, AKPH2) 639 CONTINUE C C ********** COORDINATE SYSTEM NOT POSSIBLE *********************** C *** WITH RINGAX. THE FOLLOWING CODE WILL IMPLEMENT IT ********* C IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR PIEZO- C ELECTRIC C C ZERO OUT THE AKI MATRIX C C. DO 700 I = 1,144 C. AKI(I) = 0.0 C.700 CONTINUE C. DO 800 I = 1,4 C. CALL TRANSS (ICS(I),D(1)) C. K = 39 * (I-1) + 1 C. DO 800 J = 1, 3 C. KK = K + 12*(J-1) C. JJ = 3*(J-1) + 1 C. AKI (KK ) = D (JJ ) C. AKI (KK+1) = D (JJ+1) C. AKI (KK+2) = D (JJ+2) C.800 CONTINUE C C TRANSFORM THE STIFFNESS MATRIX FROM BASIC TO LOCAL COORDINATES C C. CALL GMMATS (AKI(1),12,12,1, AK(1),12,12,0, D(1)) C. CALL GMMATS (D(1),12,12,0, AKI(1),12,12,0, AK(1)) C C COMPUTE THE FIFTH GRID POINT C R(5) = (R1 + R2 + R3 + R4)/4.0 Z(5) = (Z1 + Z2 + Z3 + Z4)/4.0 C C FORM WJ MATRIX C DO 9001 IKI = 1,5 DO 1000 I = 1,72 1000 WJ(I, 1) = 0.0 RSUM = R(IKI) ZSUM = Z(IKI) ZDR = ZSUM/RSUM WJ(1, 2) = 1.0 WJ(1, 4) = ZSUM WJ(2,11) = 1.0 WJ(2,12) = RSUM WJ(3, 1) = 1.0/RSUM WJ(3, 2) = 1.0 WJ(3, 3) = ZDR WJ(3, 4) = ZSUM WJ(3, 5) = AJHO/RSUM WJ(3, 6) = AJHO WJ(3, 7) = AJHO*ZDR WJ(3, 8) = AJHO*ZSUM WJ(4, 3) = 1.0 WJ(4, 4) = RSUM WJ(4,10) = 1.0 WJ(4,12) = ZSUM WJ(5, 1) =-AJHO/RSUM WJ(5, 2) =-AJHO WJ(5, 3) =-AJHO*ZDR WJ(5, 4) =-AJHO*ZSUM WJ(5, 5) =-1.0/RSUM WJ(5, 7) =-ZDR WJ(6, 7) = 1.0 WJ(6, 8) = RSUM WJ(6, 9) =-AJHO/RSUM WJ(6,10) =-AJHO WJ(6,11) =-AJHO*ZDR WJ(6,12) =-AJHO*ZSUM C IF (LSYS78) GO TO 1060 C C FORM WJP MATRIX C DO 1050 I = 1,3 DO 1050 J = 1,4 1050 WJP(I,J) = 0.0 C WJP(1,2) = 1.0 WJP(1,4) = ZSUM WJP(2,3) = 1.0 WJP(2,4) = RSUM WJP(3,1) =-AJHO/RSUM WJP(3,2) =-AJHO WJP(3,3) =-AJHO*ZDR WJP(3,4) =-AJHO*ZSUM 1060 CONTINUE C C EXPAND EE(21) INTO E1(36) C DO 1065 I = 1,36 1065 E1( I) = 0.0 E1( 1) = EE( 1) E1( 2) = EE( 2) E1( 3) = EE( 4) E1( 4) = EE( 7) E1( 7) = EE( 2) E1( 8) = EE( 3) E1( 9) = EE( 5) E1(10) = EE( 8) E1(13) = EE( 4) E1(14) = EE( 5) E1(15) = EE( 6) E1(16) = EE( 9) E1(19) = EE( 7) E1(20) = EE( 8) E1(21) = EE( 9) E1(22) = EE(10) E1(29) = EE(15) E1(36) = EE(21) C C COMPUTE THE STRESS MATRICES C K = 72*(IKI-1) + 1 CALL GMMATS (WJ,12,6,1, GABABQ,12,12,0, D(1)) CALL GMMATS (E1(1),6,6,0, D(1),6,12,0, SEL(K)) C IF (LSYS78) GO TO 1070 KP1 = 24*(IKI-1) + 1 CALL GMMATS (WJP,4,3,1, GBP,4,4,0, D2(1)) CALL GMMATS (EE(37),6,3,0, D2(1),3,4,0, SELP1(KP1)) KP2 = 36*(IKI-1) + 1 CALL GMMATS (EE(37),6,3,1, D(1),6,12,0, SELP2(KP2)) KP3 = 12*(IKI-1) + 1 CALL GMMATS (EE(55),3,3,0, D2(1),3,4,0, SELP3(KP3)) 1070 CONTINUE C C ** COORDINATE SYSTEMS NOT POSSIBLE WITH RINGAX ******************* C ** THE FOLLOWING CODE WILL IMPLEMENT IT ************************** C ** NOTE THAT WJ IS SEL(K) IN FOLLOWING GMMATS ******************** C C ** IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR PIEZO- C ELECTRIC TRANSFORM THE STRESS MATRIX FROM BASIC TO LOCAL C COORDINATES C.. CALL GMMATS (WJ,6,12,0, AKI(1),12,12,0, SEL(K) ) C C 9001 CONTINUE C C COMPUTE THE THERMAL STRAIN C ALFB(1) = ALF(1) ALFB(2) = ALF(3) ALFB(3) = ALF(2) ALFB(4) = 0.0 ALFB(5) = 0.0 ALFB(6) = 0.0 C C COMPUTE THE THERMAL STRESS C TS(1) = EE(1)*ALFB(1) + EE(2)*ALFB(2) + EE(4)*ALFB(3) TS(2) = EE(2)*ALFB(1) + EE(3)*ALFB(2) + EE(5)*ALFB(3) TS(3) = EE(4)*ALFB(1) + EE(5)*ALFB(2) + EE(6)*ALFB(3) TS(4) = EE(7)*ALFB(1) + EE(8)*ALFB(2) + EE(9)*ALFB(3) TS(5) = 0.0 TS(6) = 0.0 C C SAVE ECPT(9) TO ECP(22) C DO 9006 IKI = 1,14 PHI (IKI) = ECPT(8+IKI) 9006 CONTINUE GO TO 940 C C SET FATAL ERROR FLAG AND ALLOWING ERROR MESSAGES TO ACCUMLATE C 910 I = 37 GO TO 930 915 I = 126 GO TO 930 920 I = 26 930 CALL MESAGE (-30,I,IDEL) 940 IF (.NOT.PZMAT) KSYS78 = KSAVE RETURN END ================================================ FILE: mis/stpax2.f ================================================ SUBROUTINE STPAX2 (SORC,TI) C C THIS ROUTINE IS PHASE II OF STRESS RECOVERY FOR THE TRAPEZOIDAL C CROSS SECTION RING C C OUTPUTS FROM PHASE I ARE THE FOLLOWING.. C IDEL, IGP(4), TZ, SEL(360), TS(06), AK(144), PHI(14) C AKUPH(48), AKPH2(16), SELP1(120), SELP2(180), SELP3(60) C C ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING C ...KSYS78 OR LSYS78 ... INDICATES CODING NECESSARY FOR THIS C ELEMENT*S PIEZOELECTRIC CAPABILITY C C KSYS78 = 0 ELASTIC, NON-PIEZOELECTRIC MATERIAL C KSYS78 = 1 ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL C KSYS78 = 2 ELASTIC ONLY, PIEZOELECTRIC MATERIAL C LSYS78 = .TRUE. IF KSYS78 = 0, OR 2 C LOGICAL ZERO,ZERON,LSYS78 INTEGER SORC,IBLOCK(62,14),ISTRES(100),IFORCE(25),ELEMID, 1 ICLOCK(62,14) REAL NPHI DIMENSION TI(4),DUM3(225),STRES(100),FORCE(25),AKUPH(48), 1 AKPH2(16),SELP1(120),SELP2(180),SELP3(60),D4(4), 2 D15(15),D30(30),DISPP(4),ECHRG(4),EFLUX(15) C C SDR2 VARIABLE CORE C COMMON /ZZZZZZ/ ZZ(1) C C SDR2 BLOCK FOR POINTERS AND LOADING TEMPERATURES C COMMON /SDR2X4/ DUM1(33),ICSTM,NCSTM,IVEC,IVECN,TEMPLD,ELDEFM, 1 DUM4(12),KTYPE C C SCRATCH BLOCK C COMMON /SDR2X8/ DISP(12),EFORC(12),ESTRES(30),HARM,N,SINPHI, 1 CONPHI,NPHI,NANGLE,ELEMID,UNU(93),NELHAR,KANGLE, 2 KLEMID C C SDR2 INPUT AND OUTPUT BLOCK C COMMON /SDR2X7/ IDEL,IGP(4),TZ,SEL(360),TS(6),AK(144),PHI(14), 1 DUM2(424),BLOCK(62,14),CLOCK(62,14) C COMMON /SYSTEM/ KSYSTM(77),KSYS78 COMMON /SDR2DE/ DUM5(33), IPART COMMON /CONDAS/ CONSTS(5) EQUIVALENCE (IBLOCK(1,1),BLOCK(1,1)),(ICLOCK(1,1),CLOCK(1,1)), 1 (DUM3(1),IDEL),(DUM3(101),STRES(1),ISTRES(1)), 2 (DUM3(201),FORCE(1),IFORCE(1)),(CONSTS(4),DEGRAD), 3 (LDTEMP,TEMPLD),(DUM2(1),AKUPH(1)), 4 (DUM2(49),AKPH2(1)),(DUM2(65),SELP1(1)), 5 (DUM2(185),SELP2(1)),(DUM2(365),SELP3(1)), 6 (UNU(1),D4(1)),(UNU(5),D15(1)),(UNU(20),D30(1)) DATA ZERON / .FALSE. / DATA IOSORC/ 0 / C ELEMID = IDEL / 1000 NELHAR = IDEL - ELEMID*1000 KLEMID = ELEMID LSYS78 =.FALSE. IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE. C C SET BLOCK = 0 IF HARMONIC = 0 C N = NELHAR - 1 IF (N .NE. 0) GO TO 21 IF (N.EQ.0 .AND. ZERON .AND. IOSORC .NE. SORC) GO TO 14 ZERON = .TRUE. IOSORC = SORC DO 15 I = 2,62 DO 15 J = 1,14 IF (KTYPE.NE.2 .OR. IPART.NE.2) BLOCK(I,J) = 0.0 CLOCK(I,J) = 0.0 15 CONTINUE C C SET ANGLES CONTROL FOR SUMMATION C ZERO = .FALSE. J = 0 DO 16 I = 1,14 IF (PHI(I)) 17,18,17 18 IF (ZERO) GO TO 16 ZERO = .TRUE. 17 J = J + 1 BLOCK(1,J) = PHI(I) CLOCK(1,J) = PHI(I) 16 CONTINUE J = J + 1 IF (J .GT. 14) GO TO 21 IBLOCK(1,J) = 1 ICLOCK(1,J) = 1 GO TO 21 14 ZERON = .FALSE. 21 HARM = N C C INITIALIZE LOCAL VARIABLES C NDOF = 3 NUMPT = 4 N = NDOF*NUMPT NSP = 5 NCOMP = 6 NS = NSP*NCOMP C C FIND GRID POINTS DISPLACEMENTS C K = 0 DO 100 I = 1,NUMPT ILOC = IVEC + IGP(I) - 2 C IF (LSYS78) GO TO 90 ILOCP = ILOC + 4 DISPP(I) = ZZ(ILOCP) 90 CONTINUE C DO 100 J = 1,NDOF ILOC = ILOC + 1 K = K + 1 DISP(K) = ZZ(ILOC) 100 CONTINUE C C COMPUTE THE GRID POINT FORCES C CALL GMMATS (AK(1),N,N,0, DISP(1),N,1,0, EFORC(1)) C DO 109 I = 1,4 109 ECHRG(I) = 0.0 C IF (LSYS78) GO TO 125 CALL GMMATS (AKUPH(1),N,NUMPT,0, DISPP(1),NUMPT,1,0, D15(1)) DO 110 I = 1,12 110 EFORC(I) = EFORC(I) + D15(I) C CALL GMMATS (AKUPH(1),N,NUMPT,1, DISP(1),N,1,0, D4(1)) CALL GMMATS (AKPH2(1),NUMPT,NUMPT,0, DISPP(1),NUMPT,1,0, ECHRG(1)) DO 120 I = 1,4 120 ECHRG(I) = ECHRG(I) + D4(I) 125 CONTINUE C C COMPUTE THE STRESSES C CALL GMMATS (SEL(1),NS,N,0, DISP(1),N,1,0, ESTRES(1)) C DO 129 I = 1,15 129 EFLUX(I) = 0.0 C IF (LSYS78) GO TO 145 CALL GMMATS (SELP1(1),NS,NUMPT,0, DISPP(1),NUMPT,1,0, D30(1)) DO 130 I = 1,30 130 ESTRES(I) = ESTRES(I) + D30(I) C CALL GMMATS (SELP2(1),15,N,0, DISP(1),N,1,0, EFLUX(1)) CALL GMMATS (SELP3(1),15,NUMPT,0, DISPP(1),NUMPT,1,0, D15(1)) DO 140 I = 1,15 140 EFLUX(I) = EFLUX(I) + D15(I) 145 CONTINUE C C COMPUTE THERMAL STRESS IF IT IS EXISTS C IF (LDTEMP .EQ. -1) GO TO 300 K = 0 T = TZ IF (HARM .GT. 0.0) T = 0.0 DO 200 I = 1,NSP DT = TI(I) - T IF (I .EQ. 5) DT = (TI(1)+TI(2)+TI(3)+TI(4))/4.0 - T DO 200 J = 1,NCOMP K = K + 1 ESTRES(K) = ESTRES(K) - DT*TS(J) 200 CONTINUE 300 CONTINUE C C BRANCH TO INSERT HARMONIC STRESSES AND FORCES INTO BLOCK OR CLOCK C C KTYPE = 1 - REAL OUTPUT, STORED IN BLOCK, NOTHING IN CLOCK C KTYPE = 2 - COMPLEX OUTPUT C IPART = 1 - IMAGINARY PART OF COMPLEX OUTPUT, STORED IN BLOCK C IPART = 2 - REAL PART OF COMPLEX OUTPUT, STORED IN CLOCK C IF (KTYPE.EQ.2 .AND. IPART.EQ.2) GO TO 550 C C INSERT HARMONIC STRESSES AND FORCES INTO BLOCK C DO 370 I = 1,14 IF (IBLOCK(1,I) .EQ. 1) GO TO 380 IF (HARM .EQ. 0.0) GO TO 350 NPHI = HARM*BLOCK(1,I)*DEGRAD SINPHI = SIN(NPHI) CONPHI = COS(NPHI) GO TO (330,310), SORC C 310 CONTINUE DO 315 IE = 1,5 KE = 9*(IE-1) KEPZ = 6*(IE-1) BLOCK(2+KE,I) = BLOCK(2+KE,I) + CONPHI*ESTRES(1+KEPZ) BLOCK(3+KE,I) = BLOCK(3+KE,I) + CONPHI*ESTRES(2+KEPZ) BLOCK(4+KE,I) = BLOCK(4+KE,I) + CONPHI*ESTRES(3+KEPZ) BLOCK(5+KE,I) = BLOCK(5+KE,I) + CONPHI*ESTRES(4+KEPZ) BLOCK(6+KE,I) = BLOCK(6+KE,I) + SINPHI*ESTRES(5+KEPZ) BLOCK(7+KE,I) = BLOCK(7+KE,I) + SINPHI*ESTRES(6+KEPZ) C IF (LSYS78) GO TO 315 KEPZ2 = KEPZ/2 BLOCK( 8+KE,I) = BLOCK( 8+KE,I) + CONPHI*EFLUX (1+KEPZ2) BLOCK( 9+KE,I) = BLOCK( 9+KE,I) + CONPHI*EFLUX (2+KEPZ2) BLOCK(10+KE,I) = BLOCK(10+KE,I) + SINPHI*EFLUX (3+KEPZ2) 315 CONTINUE C DO 320 IR = 1,4 KR = 4*(IR-1) KRPZ = 3*(IR-1) BLOCK(47+KR,I) = BLOCK(47+KR,I) + CONPHI*EFORC(1+KRPZ) BLOCK(48+KR,I) = BLOCK(48+KR,I) + SINPHI*EFORC(2+KRPZ) BLOCK(49+KR,I) = BLOCK(49+KR,I) + CONPHI*EFORC(3+KRPZ) KR3 = 1 + KRPZ/3 IF(.NOT.LSYS78) BLOCK(50+KR,I) = BLOCK(50+KR,I) +CONPHI*ECHRG(KR3) 320 CONTINUE GO TO 370 C 330 CONTINUE DO 335 IE = 1,5 KE = 9*(IE-1) KEPZ = 6*(IE-1) BLOCK(2+KE,I) = BLOCK(2+KE,I) + SINPHI*ESTRES(1+KEPZ) BLOCK(3+KE,I) = BLOCK(3+KE,I) + SINPHI*ESTRES(2+KEPZ) BLOCK(4+KE,I) = BLOCK(4+KE,I) + SINPHI*ESTRES(3+KEPZ) BLOCK(5+KE,I) = BLOCK(5+KE,I) + SINPHI*ESTRES(4+KEPZ) BLOCK(6+KE,I) = BLOCK(6+KE,I) - CONPHI*ESTRES(5+KEPZ) BLOCK(7+KE,I) = BLOCK(7+KE,I) - CONPHI*ESTRES(6+KEPZ) C IF (LSYS78) GO TO 335 KEPZ2 = KEPZ/2 BLOCK( 8+KE,I) = BLOCK( 8+KE,I) + SINPHI*EFLUX(1+KEPZ2) BLOCK( 9+KE,I) = BLOCK( 9+KE,I) + SINPHI*EFLUX(2+KEPZ2) BLOCK(10+KE,I) = BLOCK(10+KE,I) - CONPHI*EFLUX(3+KEPZ2) 335 CONTINUE C DO 340 IR = 1,4 KR = 4*(IR-1) KRPZ = 3*(IR-1) BLOCK(47+KR,I) = BLOCK(47+KR,I) + SINPHI*EFORC(1+KRPZ) BLOCK(48+KR,I) = BLOCK(48+KR,I) - CONPHI*EFORC(2+KRPZ) BLOCK(49+KR,I) = BLOCK(49+KR,I) + SINPHI*EFORC(3+KRPZ) KR3 = 1 + KRPZ/3 IF(.NOT.LSYS78) BLOCK(50+KR,I) = BLOCK(50+KR,I) +SINPHI*ECHRG(KR3) 340 CONTINUE GO TO 370 C 350 DO 355 IE = 1,5 KE = 9*(IE-1) KEPZ = 6*(IE-1) BLOCK(2+KE,I) = ESTRES(1+KEPZ) BLOCK(3+KE,I) = ESTRES(2+KEPZ) BLOCK(4+KE,I) = ESTRES(3+KEPZ) BLOCK(5+KE,I) = ESTRES(4+KEPZ) BLOCK(6+KE,I) = ESTRES(5+KEPZ) BLOCK(7+KE,I) = ESTRES(6+KEPZ) C IF (LSYS78) GO TO 355 KEPZ2 = KEPZ/2 BLOCK( 8+KE,I) = EFLUX(1+KEPZ2) BLOCK( 9+KE,I) = EFLUX(2+KEPZ2) BLOCK(10+KE,I) = EFLUX(3+KEPZ2) 355 CONTINUE C DO 360 IR = 1,4 KR = 4*(IR-1) KRPZ = 3*(IR-1) BLOCK(47+KR,I) = EFORC(1+KRPZ) BLOCK(48+KR,I) = EFORC(2+KRPZ) BLOCK(49+KR,I) = EFORC(3+KRPZ) KR3 = 1 + KRPZ/3 IF(.NOT.LSYS78) BLOCK(50+KR,I) = ECHRG(KR3) 360 CONTINUE C 370 CONTINUE C C COPY STRESSES AND FORCES INTO OUTPUT BLOCKS C 380 CONTINUE J = 2 K = 1 L = 0 ISTRES (1) = ELEMID ISTRES (2) = NELHAR DO 400 I = 1,NS J = J + 1 STRES(J) = ESTRES(I) C IF (I/6 .NE. K) GO TO 400 K = K + 1 DO 390 II = 1,3 J = J + 1 L = L + 1 STRES(J) = EFLUX(L) 390 CONTINUE C 400 CONTINUE K = 0 J = 2 L = 1 IFORCE(1) = ELEMID IFORCE(2) = NELHAR DO 500 I = 1,NUMPT DO 500 KK = 1,NDOF J = J + 1 K = K + 1 FORCE(J) = EFORC(K) C IF (K/3 .NE. L) GO TO 500 J = J + 1 FORCE(J) = ECHRG(L) L = L + 1 C 500 CONTINUE C IF (KTYPE.EQ.1 .OR. (KTYPE.EQ.2 .AND. IPART.EQ.1)) GO TO 1001 550 CONTINUE C C INSERT HARMONIC STRESSES AND FORCES INTO CLOCK C DO 690 I = 1,14 IF (ICLOCK(1,I) .EQ. 1) GO TO 700 IF (HARM .EQ. 0.0) GO TO 660 NPHI = HARM*CLOCK(1,I)*DEGRAD SINPHI = SIN(NPHI) CONPHI = COS(NPHI) GO TO (630,600), SORC 600 CONTINUE C DO 610 IE = 1,5 KE = 9*(IE-1) KEPZ = 6*(IE-1) CLOCK(2+KE,I) = CLOCK(2+KE,I) + CONPHI*ESTRES(1+KEPZ) CLOCK(3+KE,I) = CLOCK(3+KE,I) + CONPHI*ESTRES(2+KEPZ) CLOCK(4+KE,I) = CLOCK(4+KE,I) + CONPHI*ESTRES(3+KEPZ) CLOCK(5+KE,I) = CLOCK(5+KE,I) + CONPHI*ESTRES(4+KEPZ) CLOCK(6+KE,I) = CLOCK(6+KE,I) + SINPHI*ESTRES(5+KEPZ) CLOCK(7+KE,I) = CLOCK(7+KE,I) + SINPHI*ESTRES(6+KEPZ) C IF (LSYS78) GO TO 610 KEPZ2 = KEPZ/2 CLOCK( 8+KE,I) = CLOCK( 8+KE,I) + CONPHI*EFLUX (1+KEPZ2) CLOCK( 9+KE,I) = CLOCK( 9+KE,I) + CONPHI*EFLUX (2+KEPZ2) CLOCK(10+KE,I) = CLOCK(10+KE,I) + SINPHI*EFLUX (3+KEPZ2) 610 CONTINUE C DO 620 IR = 1,4 KR = 4*(IR-1) KRPZ = 3*(IR-1) CLOCK(47+KR,I) = CLOCK(47+KR,I) + CONPHI*EFORC(1+KRPZ) CLOCK(48+KR,I) = CLOCK(48+KR,I) + SINPHI*EFORC(2+KRPZ) CLOCK(49+KR,I) = CLOCK(49+KR,I) + CONPHI*EFORC(3+KRPZ) KR3 = 1 + KRPZ/3 IF(.NOT.LSYS78) CLOCK(50+KR,I) = CLOCK(50+KR,I) +CONPHI*ECHRG(KR3) 620 CONTINUE GO TO 690 C 630 CONTINUE DO 640 IE = 1,5 KE = 9*(IE-1) KEPZ = 6*(IE-1) CLOCK(2+KE,I) = CLOCK(2+KE,I) + SINPHI*ESTRES(1+KEPZ) CLOCK(3+KE,I) = CLOCK(3+KE,I) + SINPHI*ESTRES(2+KEPZ) CLOCK(4+KE,I) = CLOCK(4+KE,I) + SINPHI*ESTRES(3+KEPZ) CLOCK(5+KE,I) = CLOCK(5+KE,I) + SINPHI*ESTRES(4+KEPZ) CLOCK(6+KE,I) = CLOCK(6+KE,I) - CONPHI*ESTRES(5+KEPZ) CLOCK(7+KE,I) = CLOCK(7+KE,I) - CONPHI*ESTRES(6+KEPZ) C IF (LSYS78) GO TO 640 KEPZ2 = KEPZ/2 CLOCK( 8+KE,I) = CLOCK( 8+KE,I) + SINPHI*EFLUX(1+KEPZ2) CLOCK( 9+KE,I) = CLOCK( 9+KE,I) + SINPHI*EFLUX(2+KEPZ2) CLOCK(10+KE,I) = CLOCK(10+KE,I) - CONPHI*EFLUX(3+KEPZ2) 640 CONTINUE C DO 650 IR = 1,4 KR = 4*(IR-1) KRPZ = 3*(IR-1) CLOCK(47+KR,I) = CLOCK(47+KR,I) + SINPHI*EFORC(1+KRPZ) CLOCK(48+KR,I) = CLOCK(48+KR,I) - CONPHI*EFORC(2+KRPZ) CLOCK(49+KR,I) = CLOCK(49+KR,I) + SINPHI*EFORC(3+KRPZ) KR3 = 1 + KRPZ/3 IF(.NOT.LSYS78) CLOCK(50+KR,I) = CLOCK(50+KR,I) +SINPHI*ECHRG(KR3) 650 CONTINUE GO TO 690 C 660 DO 670 IE = 1,5 KE = 9*(IE-1) KEPZ = 6*(IE-1) CLOCK(2+KE,I) = ESTRES(1+KEPZ) CLOCK(3+KE,I) = ESTRES(2+KEPZ) CLOCK(4+KE,I) = ESTRES(3+KEPZ) CLOCK(5+KE,I) = ESTRES(4+KEPZ) CLOCK(6+KE,I) = ESTRES(5+KEPZ) CLOCK(7+KE,I) = ESTRES(6+KEPZ) C IF (LSYS78) GO TO 670 KEPZ2 = KEPZ/2 CLOCK( 8+KE,I) = EFLUX(1+KEPZ2) CLOCK( 9+KE,I) = EFLUX(2+KEPZ2) CLOCK(10+KE,I) = EFLUX(3+KEPZ2) 670 CONTINUE C DO 680 IR = 1,4 KR = 4*(IR-1) KRPZ = 3*(IR-1) CLOCK(47+KR,I) = EFORC(1+KRPZ) CLOCK(48+KR,I) = EFORC(2+KRPZ) CLOCK(49+KR,I) = EFORC(3+KRPZ) KR3 = 1 + KRPZ/3 IF(.NOT.LSYS78) CLOCK(50+KR,I) = ECHRG(KR3) 680 CONTINUE C 690 CONTINUE C C COPY STRESSES AND FORCES INTO OUTPUT BLOCKS C 700 CONTINUE J = 2 K = 1 L = 0 ISTRES (1) = ELEMID ISTRES (2) = NELHAR DO 720 I = 1,NS J = J + 1 STRES(J) = ESTRES(I) C IF (I/6 .NE. K) GO TO 720 K = K + 1 DO 710 II = 1,3 J = J + 1 L = L + 1 STRES(J) = EFLUX(L) 710 CONTINUE 720 CONTINUE C K = 0 J = 2 L = 1 IFORCE(1) = ELEMID IFORCE(2) = NELHAR DO 800 I = 1,NUMPT DO 800 KK = 1,NDOF J = J + 1 K = K + 1 FORCE(J) = EFORC(K) C IF (K/3 .NE. L) GO TO 800 J = J + 1 FORCE(J) = ECHRG(L) L = L + 1 800 CONTINUE C 1001 CONTINUE C RETURN END ================================================ FILE: mis/stpax3.f ================================================ SUBROUTINE STPAX3 ( AGAIN) INTEGER IFORCE(25), ISTRES(100), ELEMID, IBLOCK(62,14) 1, ICLOCK(62,14),CANGLE C REAL SAVEF(75), SAVES(75) C LOGICAL AGAIN C COMMON /SDR2X7/ DUM(100),STRESS(100),FORCE(25) 1, SKIP(729),BLOCK(62,14),CLOCK(62,14) C C SCRATCH BLOCK COMMON /SDR2X8/ DISP(59),NANGLE,ELEMID,UNU(94),KANGLE,KLEMID COMMON /ISAVE / ISAVEF(75),ISAVES(75) C COMMON /SDR2DE/ DUM5(33), IPART C COMMON /SDR2X4/ DUM4(51),KTYPE C C EQUIVALENCE ( ISTRES(1), STRESS(1)), ( IFORCE(1), FORCE(1)) 1, (IBLOCK(1,1), BLOCK(1,1)) 2, (ICLOCK(1,1),CLOCK(1,1)),(ISAVEF(1),SAVEF(1)) 3, (ISAVES(1),SAVES(1)),(NANGLE,CANGLE) C IF ( AGAIN ) GO TO 10 AGAIN = .TRUE. KANGLE = 0 10 NANGLE = KANGLE ELEMID = KLEMID NANGLE = NANGLE + 1 KANGLE = NANGLE C C C BRANCH TO INSERT STRESSES AND FORCES INTO FORCE AND STRESS OR C SAVEF AND SAVES C C KTYPE=1 - REAL OUTPUT FROM BLOCK IS TRANSFERED TO CLOCK, THEN C STORED IN FORCE AND STRESS, NOTHING IN SAVEF AND SAVES C KTYPE=2 - COMPLEX OUTPUT C IPART=1 - IMAGINARY PART OF COMPLEX OUTPUT FROM BLOCK, STORED C IN SAVEF AND SAVES C IPART=2 - REAL PART OF COMPLEX OUTPUT FROM CLOCK STORED IN C FORCE AND STRESS C IF(KTYPE.EQ.2) GO TO 19 DO 15 I=1,62 DO 15 J=1,14 15 CLOCK(I,J) = BLOCK(I,J) 19 CONTINUE C C OUTPUT FORCES FOR THIS ANGLE IFORCE(1)=ELEMID FORCE(2) = CLOCK(1,CANGLE) DO 20 I=1,16 FORCE(2+I) = CLOCK(46+I,CANGLE) 20 CONTINUE C C OUTPUT STRESSES ISTRES (1) = ELEMID STRESS(2) = CLOCK(1,CANGLE) DO 30 I=1,45 STRESS(2+I) = CLOCK(I+1,CANGLE) 30 CONTINUE C IF(KTYPE.EQ.2) GO TO 40 IF(CANGLE .EQ. 14) GO TO 100 IF(ICLOCK(1,CANGLE+1) .EQ. 1) GO TO 100 GO TO 70 C 40 CONTINUE C C OUTPUT FORCES FOR THIS ANGLE ISAVEF(1)=ELEMID SAVEF(2) = BLOCK (1,NANGLE) DO 50 I=1,16 SAVEF (2+I) = BLOCK (46+I, NANGLE) 50 CONTINUE C C OUTPUT STRESSES ISAVES(1) = ELEMID SAVES(2) = BLOCK(1,NANGLE) DO 60 I=1,45 SAVES(2+I) = BLOCK(I+1,NANGLE) 60 CONTINUE C IF (NANGLE .EQ. 14) GO TO 100 IF (IBLOCK(1,NANGLE+1) .EQ. 1) GO TO 100 70 CONTINUE C RETURN 100 AGAIN = .FALSE. RETURN END ================================================ FILE: mis/stpbg.f ================================================ SUBROUTINE STPBG(BM,GM,NS,BLOC,D,CA,NSIZE) C MAKES MATRICES BM AND GM FOR EACH STRIP DIMENSION NSIZE(1),CA(1),D(1),BLOC(1),BM(4,4,NS),GM(4,3,NS) DO 100 N=1,NS DO 10 I=1,4 DO 10 J=1,4 10 BM(I,J,N)=0.0 DO 15 I=1,4 DO 15 J=1,3 15 GM(I,J,N)=0.0 BM(1,1,N)= BLOC(N) BM(2,2,N)= -BLOC(N)*BLOC(N) GM(1,1,N)=-1.0/BLOC(N) GM(2,2,N)= 1.0 IF(NSIZE(N).EQ.2) GO TO 50 C CONTROL SURFACE CASE E= CA(N) + D(N) - 1.5*BLOC(N) BM(3,3,N)=E*BLOC(N) BM(3,4,N)= BM(2,2,N) GM(3,3,N)= 1.0 GM(4,3,N)= -E/BLOC(N) 50 CONTINUE 100 CONTINUE RETURN END ================================================ FILE: mis/stpbs0.f ================================================ SUBROUTINE STPBS0(X,NCODE,BJ0,BY0) C SUBROUTINE BES0. J AND Y BESSEL FUNCTIONS OF ORDER ZERO C E. ALBANO, ORGN 3721, EXT 1022, OCT. 1967 C COMPUTES J0(X) IF X IS GREATER THAN -3. C COMPUTES Y0(X) IF (X IS GREATER THAN E AND NCODE = 1 ), C WHERE INTEGER NAME(2) DATA NAME /4HSTPB,4HS0 / E=0.00001 C REF. US DEPT OF COMMERCE HANDBOOK (AMS 55) PG. 369 A=ABS(X) IF(A-3.) 10,10,100 10 Z=X*X/9. BJ0=1.+Z*(-2.2499997+Z*(1.2656208+Z*(-0.3163866+Z*(0.0444479 1 +Z*(-0.0039444+Z* 0.00021))))) IF(NCODE-1) 15,20,15 15 RETURN 20 IF(X-E) 200,25,25 25 BY0=0.63661977*BJ0*(ALOG(X)-.69314718)+.36746691+Z*(0.60559366+Z* 1 (-0.74350384+Z*(0.25300117+Z*(-0.04261214+Z*(0.00427916 2 -0.00024846*Z))))) RETURN 100 IF(X ) 250,250,110 110 U=1./SQRT(X) Z=3./X W=0.79788456+Z*(-0.00000077+Z*(-0.0055274+Z*(-0.00009512+Z* 1 (0.00137237+Z*(-0.00072805+0.00014476*Z))))) T=X-0.78539816+Z*(-0.04166397+Z*(-0.00003954+Z*(0.00262573+Z* 1 (-0.00054125+Z*(-0.00029333+0.00013558*Z))))) UW=U*W BJ0=UW*COS(T) IF(NCODE-1) 15,120,15 120 BY0=UW*SIN(T) 1000 RETURN 200 CONTINUE 250 CONTINUE CALL MESAGE(-7,0,NAME) GO TO 1000 END ================================================ FILE: mis/stpbs1.f ================================================ SUBROUTINE STPBS1(X,NCODE,BJ1,BY1) C SUBROUTINE BES1 J AND Y BESSEL FUNCTIONS OF FIRST ORDER C E. ALBANO, ORGN 3721, EXT 1022, OCT 1967 C COMPUTES J1(X) IF X IS GREATER THAN -3. C COMPUTES Y1(X) IF (X IS GREATER THAN E AND NCODE = 1 ), C WHERE INTEGER NAME(2) DATA NAME /4HSTPB,4HS1 / E=0.00001 C REF. US DEPT OF COMMERCE HANBOOK (AMS 58) PG. 370 A=ABS(X) IF(A-3.) 10,10,100 10 Z=X*X/9. BJ1=X*(0.5+Z*(-0.56249985+Z*(0.21093573+Z*(-0.03954289+Z* 1 (0.00443319+Z*(-0.00031761+0.00001109*Z)))))) IF(NCODE-1) 15,20,15 15 RETURN 20 IF(X-E) 200,25,25 25 BY1=0.63661977*BJ1*(ALOG(X)-.69314718)+(-0.6366198 +Z* 1 (0.2212091+Z*(2.1682709 +Z*(-1.3164827+Z*(0.3123951+Z* 2 (-0.0400976+0.0027873*Z))))))/X RETURN 100 IF(X) 250,250,110 110 U=1./SQRT(X) Z=3./X W=0.79788456+Z*(0.00000156+Z*(0.01659667+Z*(0.00017105+Z* 1 (-0.00249511+Z*(0.00113653-0.00020033*Z))))) T=X-2.35619449+Z*(0.12499612+Z*(0.00005650+Z*(-0.00637879+Z* 1 (0.00074348+Z*(0.00079824-0.00029166*Z))))) UW=U*W BJ1=UW*COS(T) IF(NCODE-1) 15,120,15 120 BY1=UW*SIN(T) 1000 RETURN 200 CONTINUE 250 CONTINUE CALL MESAGE(-7,0,NAME) GO TO 1000 END ================================================ FILE: mis/stpda.f ================================================ SUBROUTINE STPDA (INPUT,AJJL,SKJ) C C DRIVER FOR STRIP THEORY C INTEGER SYSBUF,IZ(8),AJJL,SKJ,NAME(2),CLAF,LCLAF,LCIRC COMPLEX EKM CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /STRIPC/ NS,BREF,CLAM,FM,NCIRC,NNCIRC,EKR(1), 1 DUM,BB(4),BETA(4),EKM(4,4) COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,NOUT COMMON /CONDAS/ PI,TWOPI COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK COMMON /BLANK / NK,NJ COMMON /PACKX / ITI,IT0,II,NN,INCR EQUIVALENCE (IZ(1),Z(1)) DATA NAME / 4HSTPD,4HA / C ICORE = KORSZ(IZ) - 4*SYSBUF C C BRING IN DATA AND ALLOCATE CORE C CALL FREAD (INPUT,Z,8,0) NNJ = IZ(1) CLAF = IZ(2) LCLAF = IZ(3) NCIRC = IZ(4) LCIRC = IZ(5) NNCIRC= NCIRC + 1 NMACH = IZ(6) NS = IZ(7) I8 = 8 CLAM = Z(I8) FM = 1.0 BREF = REFC / 2.0 EKR(1)= RFK IDY = 1 IBLOC = IDY + NS ID = IBLOC+ NS ICA = ID + NS IGAP = ICA + NS INSIZE= IGAP + NS ICLA = INSIZE + NS IBM = ICLA + NS IGM = IBM + 16 * NS IPM = IGM + 12 * NS IOC = IPM + 37 * NS IF (IOC.GT.ICORE) CALL MESAGE (-8,0,NAME) C C READ IN ARRAYS WHICH ARE FIXED C NW = 6*NS CALL FREAD (INPUT,Z,NW,0) C C SET CLA ARRAY OR BB AND BETA C IF (CLAF .EQ. 0) GO TO 40 IF (CLAF .LT. 0) GO TO 30 C C FIND MACH NUMBER FOR CLA C DO 10 I = 1,NMACH CALL FREAD (INPUT,RM,1,0) IF (RM .EQ. FMACH) GO TO 20 CALL FREAD (INPUT,Z,-NS,0) 10 CONTINUE GO TO 999 C C MACH NUMBER NOT INPUT ON AEFACT CARD CLCAF C 20 CALL FREAD (INPUT,Z(ICLA),NS,1) GO TO 90 30 CALL FREAD (INPUT,RM,1,0) CALL FREAD (INPUT,Z(ICLA),NS,1) DO 35 I = 1,NS Z(ICLA+I-1) = Z(ICLA+I-1) * SQRT((1.0-(RM*RM*CLAM*CLAM)) / 1 (1.0-(FMACH*FMACH*CLAM*CLAM))) 35 CONTINUE GO TO 90 40 DO 50 I = 1,NS 50 Z(ICLA+I-1) = TWOPI IF (NCIRC .EQ. 0) GO TO 80 DO 60 I = 1,NMACH CALL FREAD (INPUT,RM,1,0) IF (RM .EQ. FMACH) GO TO 70 CALL FREAD (INPUT,Z,-(2*NCIRC+1),0) 60 CONTINUE GO TO 998 70 CALL FREAD (INPUT,BB(1),1,0) DO 75 I = 2,NNCIRC CALL FREAD (INPUT,BB(I),1,0) CALL FREAD (INPUT,BETA(I),1,0) 75 CONTINUE 80 CALL FREAD (INPUT,Z,0,1) C C OUTPUT SKJ C 90 ITI = 1 IT0 = 3 II = ISK NSK = NSK+1 NN = NSK RM = 1.0 DO 100 I = 1,NNJ CALL PACK (RM,SKJ,TSKJ) II = II+1 IF (I .EQ. NNJ) GO TO 100 NN = NN+1 100 CONTINUE ISK = II NSK = NN ITI = 3 IT0 = 3 CALL STPBG (Z(IBM),Z(IGM),NS,Z(IBLOC),Z(ID),Z(ICA),Z(INSIZE)) CALL STPPHI (Z(ICA),Z(IBLOC),Z(IPM),NS) CALL STPAIC (Z(IBLOC),Z(IDY),Z(INSIZE),Z(IGAP),Z(IBM),Z(IGM), 1 Z(IPM),NS,Z(ICLA),AJJL) NROW = NROW + NNJ RETURN C C ERROR MESSAGES C 998 N = LCIRC GO TO 1000 999 N = LCLAF 1000 WRITE (NOUT,9999) UFM,FMACH,N 9999 FORMAT (A23,' 2426, MACH NUMBER ',F10.5,' WAS NOT FOUND ON ', 1 'AEFACT CARD',I9) CALL MESAGE (-61,0,NAME) RETURN END ================================================ FILE: mis/stpk.f ================================================ SUBROUTINE STPK(EK,N,NSTOP,NOPEN,NSTED,TSR,PM,CR,CI,IM,J1) C COMPUTES K MATRIX FOR STRIP NUMBER N C EK= LOCAL REDUCED FREQUENCY C NSTOP =2 FOR NO CONTROL SURFACE C NOPEN =1 FOR OPEN GAP C TSR = GAP/SEMICHORD RATIO (FOR CLOSED STAGE ONLY) C NSTED =1 FOR STEADY CASE DIMENSION P(37) , PM(1) COMPLEX EKM,W,T,R,V1,V2,UNIT,CMP0 COMPLEX W2 COMMON /STRIPC/NNS,BREF,CLAM,FM,NCIRC,NNCIRC,EKR(1), * DUM, BB(4),BETA(4),EKM(4,4) DATA NHEK,NHTR,NHTI,NHSIZE /4HEK ,4HTR ,4HTI ,4HSIZE/ UNIT=CMPLX(1.0,0.0) CMP0=CMPLX(0.0,0.0) T=2.0*UNIT DO 10 I=1,37 10 P(I)=PM(I) DO 15 I=1,4 DO 15 J=1,4 15 EKM(I,J)= CMP0 A1=0.318310 A2=0.101321 IF(NSTED.NE.1) GO TO 50 C STEADY CASE E1K = 1.E20 EKM(1,2)=2.0 IF(NSTOP.EQ.2) GO TO 100 EKM(1,3)=A1*2.0*P(1) EKM(2,3)=A1*P(5) EKM(3,2)=A1*2.0*P(31) EKM(3,3)=A2*(2.0*P(1)*P(31) + P(35) ) EKM(4,2)=A1*P(8) EKM(4,3)=A2*(P(1)*P(8) + P(10) ) IF(NOPEN.EQ.1) GO TO 100 C CLOSED STAGE EKM(1,4)=A1*2.0*P(13) EKM(2,4)=A1*P(15) TST=AMAX1(0.01 ,TSR) EKM(3,4)=A2*(2.0*P(13)*P(31) +2.0*ALOG(TST) +P(21)) EKM(4,4)=A2*(P(13)*P(8) + P(18)) 50 IF(NSTED.EQ.1) GO TO 100 C C UNSTEADY CASE, EM(1,1)=(K SUB A)/EK**2, ETC. E1K = 1./EK T=CMP0 V1=CMP0 V2=CMP0 IF(EK.GT.1000.0) GO TO 71 IF ( NCIRC.GT.0 ) GO TO 73 CALL STPBS0(EK,1,BJ0,BY0) CALL STPBS1(EK,1,BJ1,BY1) DENOM=(BJ1+BY0)**2 + (BY1-BJ0)**2 CR= (BJ1*(BJ1+BY0) + BY1*(BY1-BJ0) )/DENOM CI=-(BY1*BY0 + BJ1*BJ0)/DENOM C (CR + I*CI = THEODORSEN FUNCTION) GO TO 72 C NEXT 8 STATEMENTS ARE FOR GENERATION OF WAGNER FUNCTIONS 73 CR = BB(1) CI = 0.0 DO 40 NN = 2,NNCIRC BEOEK = BETA(NN)/EK FCR = BB(NN)/(1.0 + BEOEK*BEOEK) CR = CR + FCR CI = CI + FCR*BEOEK 40 CONTINUE 72 T=2.0*CMPLX(CR,CI) - UNIT W=CMPLX(0.0,EK) V1=UNIT/W V2=V1*V1 60 R=T+UNIT W2 = -W*W EKM(1,1)=-( R*V1 +1. ) EKM(1,1) = EKM(1,1) * W2 EKM(1,2)=-( R*(V2+V1) + V1 + 0.5 ) EKM(1,2) = EKM(1,2) * W2 EKM(2,1)=-( 0.5 ) EKM(2,1) = EKM(2,1) * W2 EKM(2,2)=-( V1 + 0.375 ) EKM(2,2) = EKM(2,2) * W2 IF(NSTOP.EQ.2) GO TO 100 EKM(1,3)=-A1*( R*(V2*P(1)+0.5*V1*P(2)) + V1*P(3) + 0.5 *P(4) ) EKM(1,3) = EKM(1,3) * W2 EKM(2,3)=-A1*( V2*P(5) + 0.5*V1*P(6) + 0.25*P(7) ) EKM(2,3) = EKM(2,3) * W2 EKM(3,1)=-A1*( R*V1*P(31) + P(3) ) EKM(3,1) = EKM(3,1) * W2 EKM(3,2)=-A1*( R*(V2+V1)*P(31) + V1*P(32) + 0.25*P(6) ) EKM(3,2) = EKM(3,2) * W2 EKM(3,3)=-A2*( R*(V2*P(1)+0.5*V1*P(2))*P(31) + 1 V2*P(35) + V1*P(36) + 0.5*P(37) ) EKM(3,3) = EKM(3,3) * W2 EKM(4,1)=-A1*0.5*( R*V1*P(8) + P(4) ) EKM(4,1) = EKM(4,1) * W2 EKM(4,2)=-A1*0.5*( R*(V2+V1)*P(8) + V1*P(9) + 0.5*P(7) ) EKM(4,2) = EKM(4,2) * W2 EKM(4,3)=-A2*( R*(V2*P(1)+0.5*V1*P(2))*0.5*P(8) + 1 V2*P(10) + 0.5*V1*P(11) + 0.25*P(12) ) EKM(4,3) = EKM(4,3) * W2 IF(NOPEN.NE.1) GO TO 70 C OPEN STAGE EKM(1,4)=-A1*( R*V1*P(1) + P(3) ) EKM(1,4) = EKM(1,4) * W2 EKM(2,4)=-A1*( V1*P(5) + 0.25*P(6) ) EKM(2,4) = EKM(2,4) * W2 EKM(3,4)=-A2*( R*V1*P(1)*P(31) + V1*P(35) + P(17) ) EKM(3,4) = EKM(3,4) * W2 EKM(4,4)=-A2*( R*0.5*V1*P(1)*P(8) + V1*P(10) + 0.5*P(37) ) EKM(4,4) = EKM(4,4) * W2 GO TO 100 70 CONTINUE C CLOSED STAGE EKM(1,4)=-A1*( R*(V2*P(13)+ V1*P(1) ) + V1*P(14) + P(3) ) EKM(1,4) = EKM(1,4) * W2 EKM(2,4)=-A1*( V2*P(15) + 2.0*V1*P(5) + 0.25*P(6) ) EKM(2,4) = EKM(2,4) * W2 TST=AMAX1(0.01 ,TSR) EKM(3,4)=-A2*( R*(V2*P(13)+V1*P(1))*P(31) + 1 V2*(2.0*ALOG(TST) + P(21)) + V1*P(16) + P(17) ) EKM(3,4) = EKM(3,4) * W2 EKM(4,4)=-A2*( R*(V2*P(13)+V1*P(1))*0.5*P(8) + 1 V2*P(18) + V1*P(19) + 0.5*P(37) ) EKM(4,4) = EKM(4,4) * W2 100 CONTINUE CALL BUG(NHEK ,100,EK,1) CALL BUG(NHTR ,100,CR,1) CALL BUG(NHTI ,100,CI,1) CALL BUG(NHSIZE,100,N,1) RETURN 71 CR = .5 CI = 0. W = CMPLX(0.0,EK) GO TO 60 END ================================================ FILE: mis/stplot.f ================================================ SUBROUTINE STPLOT (PLTNUM) C INTEGER PLTNUM,DATE(3),IDTE(8),CHAR,PLOTER,PLTYPE,PLTAPE, 1 EOF,CAMERA,BFRAMS REAL SAVE(2,2) COMMON /XXPARM/ PBUFSZ,CAMERA,BFRAMS COMMON /SYSTEM/ KSYSTM(65) COMMON /CHAR94/ CHAR(60) COMMON /PLTDAT/ MODEL,PLOTER,REG(2,2),XYMAX(13),CHRSCL,SKPA1(3), 1 CNTX,SKPA2(5),PLTYPE,PLTAPE,SKPA3,EOF EQUIVALENCE (KSYSTM(15),DATE(1)) DATA IDTE / 2*1H ,1H/, 2*1H , 1H/, 2*1H /, LSTPLT, M / 0,0 / C IF (PLTNUM .LT. 0) GO TO 150 C C SELECT THE PROPER CAMERA C CALL SELCAM (CAMERA,PLTNUM,0) C C GENERATE THE ID PLOT C IF (PLOTER .NE. LSTPLT) CALL SKPFRM (1) LSTPLT = PLOTER CALL IDPLOT (ID) IF (ID .EQ. 0) GO TO 120 CALL SELCAM (CAMERA,PLTNUM,0) CALL SKPFRM (1) C C INSERT THE BLANK FRAMES ON FILM ONLY C 120 IF (CAMERA.EQ.2 .OR. IABS(PLTYPE).NE.1) GO TO 130 IF (BFRAMS .EQ. 0) GO TO 130 CALL SELCAM (1,0,1) CALL SKPFRM (MAX0(BFRAMS,1)) 130 CALL SELCAM (CAMERA,0,1) C C TYPE THE PLOT NUMBER IN UPPER LEFT AND RIGHT CORNERS OF THE PLOT C IF (PLTNUM .EQ. 0) GO TO 135 DO 131 I = 1,2 SAVE(I,1) = REG(I,1) REG (I,1) = 0. SAVE(I,2) = REG(I,2) REG (I,2) = XYMAX(I) 131 CONTINUE CALL TYPINT (0,0,0,0,0,-1) CALL TYPINT (REG(1,1)+CHRSCL,REG(2,2)-CHRSCL,+1,PLTNUM,0,0) C C PRINT THE DATE C IF (M .NE. 0) GO TO 1312 DO 1311 N = 1,7,3 M = M + 1 I = DATE(M)/10 + 1 J = DATE(M) - (I-1)*10 + 1 IF (I .EQ. 1) I = 48 IDTE(N ) = CHAR(I) 1311 IDTE(N+1) = CHAR(J) C 1312 CALL TIPE (8.*CNTX,REG(2,2)-CHRSCL,1,IDTE(1),8,0) C CALL TYPINT (REG(1,2)-CHRSCL,REG(2,2)-CHRSCL,-1,PLTNUM,0,0) DO 132 I = 1,2 REG(I,1) = SAVE(I,1) REG(I,2) = SAVE(I,2) 132 CONTINUE 135 CALL TYPINT (0,0,0,0,0,1) GO TO 200 C C TERMINATE A PLOT C 150 CALL SKPFRM (1) CALL TYPINT (0,0,0,0,0,1) IF (EOF .EQ. 0) CALL SEOF (PLTAPE) CALL SCLOSE (PLTAPE) C 200 RETURN END ================================================ FILE: mis/stpphi.f ================================================ SUBROUTINE STPPHI(CA,BLOC,PM,NS) C PHI-FUNCTIONS FOR EACH STRIP (NACA TM 991, PG 19). C THE FOLLOWING FUNCTIONS ARE NOT COMPUTED, THEY ARE LEFT ZEROED C - NUMBERS 20, 22-30, 33, 34 DIMENSION CA(1),BLOC(1),PM(37,NS) DIMENSION P(37) PI=3.141593 DO 100 N=1,NS DO 10 I=1,37 10 P(I)=0.0 CT=CA(N)/BLOC(N) IF(CT.LE.1.0E-03) GO TO 50 C=CT-1.0 C2=C*C S2=1.0-C2 S =SQRT(S2) X=ATAN2(S,C) C WATCH THIS TRIG PMX=PI-X P(1) = PMX + S P(2) = PMX*(1.+2.*C) + S*(2.+C) P(3) = PMX + S*C P(4) = PMX*2.*C + S*2.*(2.+C2)/3. P(5) = S*(1.-C) P(6) = 2.*PMX + S*2.*(2.-C)*(1.+2.*C)/3. P(7) = PMX*(0.5+2.*C) + S*(8.+5.*C+4.*C2-2.*C2*C)/6. P(8) = PMX*(-1.+2.*C) + S*(2.-C) P(9) = PMX*(1.+2.*C) + S*(2.+3.*C+4.*C2)/3. P(11) = P(2)*P(3) P(12) = PMX*PMX*(0.5+4.*C2) + PMX*S*C*(7.+2.*C2) + S2*(2.+2.5*C2) P(13) = SIN(0.5*X)/COS(0.5*X) P(14) = 2.*S P(15) = P(13)-P(14) P(16) = P(1)*P(14) P(17) = P(3)**2 +S2*S2 P(18) = -P(13)*(PMX*(1.+2.*C)-S*C) P(19) = P(3)*S P(21) = -2.*(C + ALOG(S2) ) P(31) = PMX - S P(32) = PMX + S*(1.+2.*C) P(35) = 2.*S2 P(36) = P(32)*P(3) + 2.*S2*S2 P(37) = P(3)*( P(2) - P(3) ) P(10) = P(31)*P(5) 50 DO 60 I=1,37 60 PM(I,N)= P(I) 100 CONTINUE RETURN END ================================================ FILE: mis/stppt2.f ================================================ SUBROUTINE STPPT2(INPUT,W1JK,W2JK) INTEGER W1JK,W2JK COMPLEX ONE,ZERO COMMON /PACKX/ ITI,IT0,II,NN,INCR COMMON /AMGP2/ TW1JK(7),TW2JK(7) ONE = (1.0,0.0) ZERO = (0.0,0.0) CALL FREAD(INPUT,NJ,1,1) DO 10 I=1,NJ NN = II CALL PACK(ONE,W1JK,TW1JK) CALL PACK(ZERO,W2JK,TW2JK) II = II+1 10 CONTINUE RETURN END ================================================ FILE: mis/stqme2.f ================================================ SUBROUTINE STQME2( NTYPE ) C C PHASE TWO STRESS DATA RECOVERY TRIANGULAR MEMBRANE C C NTYPE = 1 TRI-MEMBRANE C NTYPE = 2 QUAD-MEMBRANE C C PH1OUT CONTAINS THE FOLLOWING C *** NTYPE = 1 *** C ELEMENT ID C 3 SILS C 1 DUMMY C T SUB 0 C S SUB T 3X1 C 3 S ARRAYS EACH 3X3 C C *** NTYPE = 2 *** C ELEMENT ID C 4 SILS C T SUB 0 C S SUB T 3X1 C 4 S ARRAYS EACH 3X3 C REAL FRLAST(2) INTEGER EJECT ,ISHD(7) ,ISTYP(2) ,TYP(3) DIMENSION NSIL(4), SI(36), PH1OUT(45), ST(3) COMMON /ZZZZZZ/ Z(1) COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM COMMON /SDR2X7/ EST(100),STRES(100),FORVEC(25) COMMON /SDR2X8/ STRESS(3),VEC(3),TEM,TEMP,NPOINT,DELTA,NSIZE, 1 CVEC(3),CSTR(4) COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK COMMON /SYSTEM/ IBFSZ ,NOUT ,IDM(9) ,LINE C EQUIVALENCE 1 (PH1OUT(1),EST(1)) 2 ,(NSIL(1),PH1OUT(2)) 3 ,(TSUB0,PH1OUT(6)) 4 ,(ST(1),PH1OUT(7)) 5 ,(SI(1),PH1OUT(10)) 6 ,(FTEMP,LDTEMP) 7 , (ISHD(1),LSUB) , (ISHD(2),LLD) , (ISHD(6),FRLAST(1) ) C DATA LSUB,LLD,FRLAST / 2*-1 , -1.0E30, -1.0E30 / DATA TYP / 2HTR, 2HQD, 3HMEM / C ****************************************************************** C ZERO OUT THE STRESS VECTOR DO 5 I = 1,3 STRESS(I) = 0.0E0 5 CSTR(I+1) = 0.0E0 C C I=NSIZE C STRESS VECTOR =(SUMMATION (S )(U )) - (S )(LDTEMP - T SUB 0) C I=1 I I T NSIZE = NTYPE + 2 DO 20 I = 1,NSIZE C C POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE C NPOINT = IVEC + NSIL(I) - 1 C CALL SMMATS (SI(9*I-8),3,3,0, Z(NPOINT),3,1,0, VEC,CVEC) DO 30 J = 1,3 CSTR(J+1) = CSTR(J+1) + CVEC(J) 30 STRESS(J) = STRESS(J) + VEC(J) C 20 CONTINUE C STRES(1) = PH1OUT(1) STRES(2) = STRESS(1) STRES(3) = STRESS(2) STRES(4) = STRESS(3) C C ADD IN TEMPERATURE EFFECTS C IF( LDTEMP .EQ. (-1) ) GO TO 200 TEM = FTEMP - T SUB 0 DO 90 I = 2,4 90 STRES(I) = STRES(I) - ST(I-1) * TEM C STRESS VECTOR COMPLETE AND CONTAINS SIGMA X , SIGMA Y , SIGMA XY C C ****************************************************************** C C PRINCIPAL STRESSES AND ANGLE OF ACTION PHI 200 TEMP = STRES(2) - STRES(3) STRES(8) = SQRT( (TEMP/2.0E0)**2 + STRES(4)**2 ) DELTA = (STRES(2) + STRES(3))/2.0E0 STRES(6) = DELTA + STRES(8) STRES(7) = DELTA - STRES(8) DELTA = 2.0E0 * STRES(4) IF( ABS(DELTA) .LT. 1.0E-15 .AND. ABS(TEMP) .LT. 1.0E-15)GO TO 101 STRES(5) = ATAN2( DELTA,TEMP ) * 28.6478898 E00 RETURN 101 STRES(5) = 0.0E0 IF (NCHK.LE.0) GO TO 250 C C . CHECK PRECISION... C CSTR(1) = PH1OUT(1) K = 0 C CALL SDRCHK (STRES(2),CSTR(2),3,K) IF (K.EQ.0) GO TO 250 C C . LIMITS EXCEEDED... ISTYP(1) = TYP(NTYPE) ISTYP(2) = TYP(3) J = 0 IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND. 1 LLD .EQ.ILD .AND. FRLAST(2).EQ.FRTMEI(2) ) GO TO 220 LSUB = ISUB LLD = ILD FRLAST(1) = FRTMEI(1) FRLAST(2) = FRTMEI(2) J = 2 CALL PAGE1 205 CALL SD2RHD (ISHD,J) LINE = LINE + 1 WRITE(NOUT,210) 210 FORMAT (7X,4HTYPE,5X,3HEID,5X,2HSX,5X,2HSY,4X,3HSXY) GO TO 230 220 IF (EJECT(2).NE.0) GO TO 205 230 WRITE(NOUT,240) ISTYP,CSTR 240 FORMAT (1H0,6X,A2,A3,I7,3F7.1) C 250 CONTINUE RETURN END ================================================ FILE: mis/strap1.f ================================================ SUBROUTINE STRAP1 C C THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR THE C TRAPEZOIDAL CROSS SECTION RING C C ECPT FOR THE TRAPEZOIDAL RING C TYPE C ECPT( 1) ELEMENT IDENTIFICATION I C ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A I C ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B I C ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C I C ECPT( 5) SCALAR INDEX NO. FOR GRID POINT D I C ECPT( 6) MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT( 7) MATERIAL IDENTIFICATION I C ECPT( 8) COOR. SYS. ID. FOR GRID POINT A I C ECPT( 9) X-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(10) Y-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(11) Z-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(12) COOR. SYS. ID. FOR GRID POINT B I C ECPT(13) X-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(14) Y-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(15) Z-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(16) COOR. SYS. ID. FOR GRID POINT C I C ECPT(17) X-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(18) Y-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(19) Z-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(20) COOR. SYS. ID. FOR GRID POINT D I C ECPT(21) X-COOR. OF GRID POINT D (IN BASIC COOR.) R C ECPT(22) Y-COOR. OF GRID POINT D (IN BASIC COOR.) R C ECPT(23) Z-COOR. OF GRID POINT D (IN BASIC COOR.) R C ECPT(24) EL. TEMPERATURE FOR MATERIAL PROPERTIES R C DIMENSION IECPT(24),ICS(4),GAMBQ(64),DZERO(32),SP(24), 1 ALFB(4),TEO(16),EE(16),DELINT(12),GAMQS(96),JRZ(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CONDAS/ CONSTS(5) COMMON /SDR2X5/ ECPT(24),DUM5(76),IDEL,IGP(4),TZ,SEL(240),TS(4), 1 AK(144) COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO COMMON /SDR2X6/ D(144),GAMBL(144),R(5),Z(5) COMMON /SYSTEM/ IBUF,IOUT EQUIVALENCE (CONSTS(2),TWOPI),(CONSTS(4),DEGRA), 1 (IECPT(1),ECPT(1)),(R(1),R1),(R(2),R2),(R(3),R3), 2 (R(4),R4),(Z(1),Z1),(Z(2),Z2),(Z(3),Z3),(Z(4),Z4), 3 (GAMBL(1),SP(1)),(GAMBL(1),TEO(1)), 4 (GAMBL(17),DELINT(1)) C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT(1) IGP(1) = IECPT(2) IGP(2) = IECPT(3) IGP(3) = IECPT(4) IGP(4) = IECPT(5) MATID = IECPT(7) ICS(1) = IECPT(8) ICS(2) = IECPT(12) ICS(3) = IECPT(16) ICS(4) = IECPT(20) R(1) = ECPT(9) D(1) = ECPT(10) Z(1) = ECPT(11) R(2) = ECPT(13) D(2) = ECPT(14) Z(2) = ECPT(15) R(3) = ECPT(17) D(3) = ECPT(18) Z(3) = ECPT(19) R(4) = ECPT(21) D(4) = ECPT(22) Z(4) = ECPT(23) TEMPE = ECPT(24) DGAMA = ECPT(6) C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C DO 200 I = 1,4 IF (R(I) .LT. 0.0) CALL MESAGE (-30,37,IDEL) IF (D(I) .NE. 0.0) CALL MESAGE (-30,37,IDEL) 200 CONTINUE C C COMPUTE THE ELEMENT COORDINATES C ZMIN = AMIN1(Z1,Z2,Z3,Z4) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN Z4 = Z4 - ZMIN RMIN = AMIN1(R1,R2,R3,R4) RMAX = AMAX1(R1,R2,R3,R4) IF (RMIN .EQ. 0.) GO TO 206 IF (RMAX/RMIN .LE. 10.) GO TO 206 C C RATIO OF RADII IS TOO LARGE FOR GAUSS QUADRATURE FOR IP=-1 C WRITE (IOUT,205) UFM,IDEL 205 FORMAT (A23,', TRAPRG ELEMENT',I9,' HAS A MAXIMUM TO MINIMUM ', 1 'RADIUS RATIO EXCEEDING 10.', /5X, 2 'ACCURACY OF NUMERICAL INTEGRATION WOULD BE IN DOUBT.') CALL MESAGE (-30,37,IDEL) 206 CONTINUE ICORE = 0 J = 1 DO 210 I = 1,4 IF (R(I) .NE. 0.) GO TO 210 ICORE = ICORE + 1 JRZ(J) = I J = 2 210 CONTINUE IF (ICORE.NE.0 .AND. ICORE.NE.2) CALL MESAGE (-30,37,IDEL) C C FORM THE TRANSFORMATION MATRIX (8X8) FROM FIELD COORDINATES TO C GRID POINT DEGREES OF FREEDOM C DO 300 I = 1,64 GAMBQ(I) = 0.0 300 CONTINUE GAMBQ( 1) = 1.0 GAMBQ( 2) = R1 GAMBQ( 3) = Z1 GAMBQ( 4) = R1*Z1 GAMBQ(13) = 1.0 GAMBQ(14) = R1 GAMBQ(15) = Z1 GAMBQ(16) = GAMBQ(4) GAMBQ(17) = 1.0 GAMBQ(18) = R2 GAMBQ(19) = Z2 GAMBQ(20) = R2*Z2 GAMBQ(29) = 1.0 GAMBQ(30) = R2 GAMBQ(31) = Z2 GAMBQ(32) = GAMBQ(20) GAMBQ(33) = 1.0 GAMBQ(34) = R3 GAMBQ(35) = Z3 GAMBQ(36) = R3*Z3 GAMBQ(45) = 1.0 GAMBQ(46) = R3 GAMBQ(47) = Z3 GAMBQ(48) = GAMBQ(36) GAMBQ(49) = 1.0 GAMBQ(50) = R4 GAMBQ(51) = Z4 GAMBQ(52) = R4*Z4 GAMBQ(61) = 1.0 GAMBQ(62) = R4 GAMBQ(63) = Z4 GAMBQ(64) = GAMBQ(52) C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (8,GAMBQ(1),8,D(10),0,D(11),ISING,SP) C IF (ISING .EQ. 2) CALL MESAGE (-30,26,IDEL) C C MODIFY THE TRANSFORMATION MATRIX IF ELEMENT IS A CORE ELEMENT C IF (ICORE .EQ. 0) GO TO 305 JJ1 = 2*JRZ(1) - 1 JJ2 = 2*JRZ(2) - 1 C DO 303 I = 1,8 J = 8*(I-1) GAMBQ(I ) = 0.0 GAMBQ(I+ 16) = 0.0 GAMBQ(J+JJ1) = 0. GAMBQ(J+JJ2) = 0. 303 CONTINUE 305 CONTINUE C C CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS C INDICATED BY THE FOLLOWING TABLE C C DELINT( 1) - (-1,0) C DELINT( 2) - (-1,1) C DELINT( 3) - (-1,2) C DELINT( 4) - ( 0,0) C DELINT( 5) - ( 0,1) C DELINT( 6) - ( 0,2) C DELINT( 7) - ( 1,0) C DELINT( 8) - ( 1,1) C DELINT( 9) - ( 1,2) C DELINT(10) - ( 2,0) C DELINT(11) - ( 2,1) C DELINT(12) - ( 3,0) C I1 = 0 DO 400 I = 1,4 IP = I - 2 DO 350 J = 1,3 IQ = J - 1 I1 = I1 + 1 IF (I1 .NE. 12) GO TO 340 IP = 3 IQ = 0 340 CONTINUE IF (ICORE .EQ. 0) GO TO 345 IF (I1 .GT. 3) GO TO 345 DELINT(I1) = 0.0 GO TO 350 345 CONTINUE DELINT(I1) = RZINTS(IP,IQ,R,Z,4) 350 CONTINUE 400 CONTINUE C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT (IDEL) C C SET MATERIAL PROPERTIES IN LOCAL VARIABLES C ER = E(1) ET = E(2) EZ = E(3) VRT = ANU(1) VTZ = ANU(2) VZR = ANU(3) GRZ = G(3) TZ = TZERO VTR = VRT*ET/ER VZT = VTZ*EZ/ET VRZ = VZR*ER/EZ DEL = 1.0 - VRT*VTR - VTZ*VZT - VZR*VRZ - VRT*VTZ*VZR 1 - VRZ*VTR*VZT C C GENERATE ELASTIC CONSTANTS MATRIX (4X4) C EE( 1) = ER*(1.0 - VTZ*VZT)/DEL EE( 2) = ER*(VTR + VZR*VTZ)/DEL EE( 3) = ER*(VZR + VTR*VZT)/DEL EE( 4) = 0.0 EE( 5) = EE(2) EE( 6) = ET*(1.0 - VRZ*VZR)/DEL EE( 7) = ET*(VZT + VRT*VZR)/DEL EE( 8) = 0.0 EE( 9) = EE(3) EE(10) = EE(7) EE(11) = EZ*(1.0 - VRT*VTR)/DEL EE(12) = 0.0 EE(13) = 0.0 EE(14) = 0.0 EE(15) = 0.0 EE(16) = GRZ C C FORM TRANSFORMATION MATRIX (4X4) FROM MATERIAL AXIS TO ELEMENT C GEOMETRIC AXIS C DGAMR = DGAMA*DEGRA COSG = COS(DGAMR) SING = SIN(DGAMR) TEO( 1) = COSG**2 TEO( 2) = 0.0 TEO( 3) = SING**2 TEO( 4) = SING*COSG TEO( 5) = 0.0 TEO( 6) = 1.0 TEO( 7) = 0.0 TEO( 8) = 0.0 TEO( 9) = TEO(3) TEO(10) = 0.0 TEO(11) = TEO(1) TEO(12) =-TEO(4) TEO(13) =-2.0*TEO(4) TEO(14) = 0.0 TEO(15) =-TEO(13) TEO(16) = TEO(1) - TEO(3) C C TRANSFORM THE ELASTIC CONSTANTS MATRIX FROM MATERIAL C TO ELEMENT GEOMETRIC AXIS C CALL GMMATS (TEO,4,4,1, EE ,4,4,0, D ) CALL GMMATS (D ,4,4,0, TEO,4,4,0, EE) C C FORM THE ELEMENT STIFFNESS MATRIX IN FIELD COORDINATES C EE48 = EE(4) + EE(8) D ( 1) = EE(1) + 2.0 * EE(2) + EE(6) AK( 1) = EE(6) * DELINT(1) AK( 2) = (EE(2) + EE(6)) * DELINT(4) AK( 3) = EE(6) * DELINT(2) + EE(8) * DELINT(4) AK( 4) = (EE(2) + EE(6)) * DELINT(5) + EE(8) * DELINT(7) AK( 5) = 0.0 AK( 6) = EE(8) * DELINT(4) AK( 7) = EE(7) * DELINT(4) AK( 8) = EE(7) * DELINT(7) + EE(8) * DELINT(5) AK( 9) = AK(2) AK(10) = D(1) * DELINT(7) AK(11) = (EE(2) + EE(6)) * DELINT(5) + EE48 * DELINT(7) AK(12) = D(1) * DELINT(8) + EE48 * DELINT(10) AK(13) = 0.0 AK(14) = EE48 * DELINT(7) AK(15) = (EE(3) + EE(7)) * DELINT(7) AK(16) = (EE(3) + EE(7)) * DELINT(10) + EE48 * DELINT(8) AK(17) = AK( 3) AK(18) = AK(11) AK(19) = EE(6) * DELINT(3) + EE(16)* DELINT(7) 1 + (EE(8) + EE(14)) * DELINT(5) AK(20) = (EE(2) + EE(6)) * DELINT(6) + EE(16) * DELINT(10) 1 + (EE(8) + EE(13) + EE(14)) * DELINT(8) AK(21) = 0.0 AK(22) = EE(16) * DELINT(7) + EE(8) * DELINT(5) AK(23) = EE(7) * DELINT(5) + EE(15) * DELINT(7) AK(24) = (EE(7) + EE(16)) * DELINT(8) 1 + EE(8) *DELINT(6) + EE(15) * DELINT(10) AK(25) = AK(4) AK(26) = AK(12) AK(27) = AK(20) AK(28) = D(1) * DELINT(9) + EE(16) * DELINT(12) 1 + (EE48 + EE(13) + EE(14)) * DELINT(11) AK(29) = 0.0 AK(30) = EE(16) * DELINT(10) + EE48 * DELINT(8) AK(31) = (EE(3) + EE(7)) * DELINT(8) + EE(15) * DELINT(10) AK(32) = (EE(3) + EE(7) + EE(16)) * DELINT(11) 1 + EE(15) * DELINT(12) + EE48 * DELINT(9) AK(33) = 0.0 AK(34) = 0.0 AK(35) = 0.0 AK(36) = 0.0 AK(37) = 0.0 AK(38) = 0.0 AK(39) = 0.0 AK(40) = 0.0 AK(41) = AK( 6) AK(42) = AK(14) AK(43) = AK(22) AK(44) = AK(30) AK(45) = 0.0 AK(46) = EE(16)*DELINT(7) AK(47) = EE(15)*DELINT(7) AK(48) = EE(16)*DELINT(8) + EE(15) * DELINT(10) AK(49) = AK( 7) AK(50) = AK(15) AK(51) = AK(23) AK(52) = AK(31) AK(53) = 0.0 AK(54) = AK(47) AK(55) = EE(11)*DELINT( 7) AK(56) = EE(11)*DELINT(10) + EE(12) * DELINT(8) AK(57) = AK( 8) AK(58) = AK(16) AK(59) = AK(24) AK(60) = AK(32) AK(61) = 0.0 AK(62) = AK(48) AK(63) = AK(56) AK(64) = EE(11) * DELINT(12) + EE(16) * DELINT(9) 1 + (EE(12) + EE(13)) * DELINT(11) C DO 600 I = 1,64 AK(I) = TWOPI*AK(I) 600 CONTINUE C C TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD COORDINATES C TO GRID POINT DEGREES OF FREEDOM C CALL GMMATS (GAMBQ,8,8,1, AK ,8,8,0, D ) CALL GMMATS (D ,8,8,0, GAMBQ,8,8,0, AK) C C GENERATE THE TRANSFORMATION MATRIX FROM TWO TO THREE DEGREES OF C FREEDOM PER POINT C DO 700 I = 1,96 GAMQS( I) = 0.0 700 CONTINUE GAMQS( 1) = 1.0 GAMQS(15) = 1.0 GAMQS(28) = 1.0 GAMQS(42) = 1.0 GAMQS(55) = 1.0 GAMQS(69) = 1.0 GAMQS(82) = 1.0 GAMQS(96) = 1.0 C C TRANSFORM THE STIFFNESS MATRIX FROM TWO TO THREE DEGREES OF C FREEDOM PER POINT C CALL GMMATS (GAMQS(1),8,12,1, AK(1) ,8, 8,0, D(1) ) CALL GMMATS (D(1) ,12,8,0, GAMQS(1),8,12,0, AK(1)) C C LOCATE THE TRANSFORMATION MATRICES FOR THE FOUR GRID POINTS C DO 750 I = 1,144 GAMBL(I) = 0.0 750 CONTINUE DO 800 I = 1,4 CALL TRANSS (ICS(I),D(1)) K = 39*(I-1) + 1 DO 800 J = 1,3 KK = K + 12*(J-1) JJ = 3 *(J-1) + 1 GAMBL(KK ) = D(JJ ) GAMBL(KK+1) = D(JJ+1) GAMBL(KK+2) = D(JJ+2) 800 CONTINUE C C TRANSFORM THE STIFFNESS MATRIX FROM BASIC TO LOCAL COORDINATES C CALL GMMATS (GAMBL(1),12,12,1, AK(1) ,12,12,0, D(1) ) CALL GMMATS (D(1) ,12,12,0, GAMBL(1),12,12,0, AK(1)) C C COMPUTE THE FIFTH GRID POINT TO BE THE AVERAGE OF THE FOUR C CORNER POINTS C R(5) = (R1 + R2 + R3 + R4)/4.0 Z(5) = (Z1 + Z2 + Z3 + Z4)/4.0 C C INITIALIZE THE CONSTANT PORTION OF THE D SUB 0 MATRIX C DO 850 I = 1,32 DZERO(I) = 0.0 850 CONTINUE DZERO( 2) = 1.0 DZERO(10) = 1.0 DZERO(23) = 1.0 DZERO(27) = 1.0 DZERO(30) = 1.0 C C START THE LOOP TO COMPUTE THE STRESS MATRIX FOR EACH GRID POINT C DO 950 J = 1,5 C C COMPUTE THE VARIABLE PORTION OF THE D SUB 0 MATRIX C DZERO( 4) = Z(J) IF (ICORE .NE. 0) GO TO 875 DZERO( 9) = 1.00/R(J) DZERO(11) = Z(J)/R(J) 875 CONTINUE DZERO(12) = Z(J) DZERO(24) = R(J) DZERO(28) = R(J) DZERO(32) = Z(J) C C COMPUTE THE STRESS MATRIX IN FIELD COORDINATES C CALL GMMATS (EE(1),4,4,0, DZERO(1),4,8,0, D(1)) C C TRANSFORM THE STRESS MATRIX TO GRID POINT DEGREES OF FREEDOM C CALL GMMATS (D(1),4,8,0, GAMBQ(1),8,8,0, D(37)) C C TRANSFORM THE STRESS MATRIX FROM TWO TO THREE DEGREES OF FREEDOM C PER POINT C CALL GMMATS (D(37),4,8,0, GAMQS(1),8,12,0, D(73)) C C TRANSFORM THE STRESS MATRIX FROM BASIC TO LOCAL COORDINATES C K = 48*(J-1) + 1 CALL GMMATS (D(73),4,12,0, GAMBL(1),12,12,0, SEL(K)) C 950 CONTINUE C C COMPUTE THE THERMAL STRAIN VECTOR C DO 900 I = 1,3 ALFB(I) = ALF(I) 900 CONTINUE ALFB(4) = 0.0 C C COMPUTE THE THERMAL STRESS VECTOR C CALL GMMATS (EE(1),4,4,0, ALFB(1),4,1,0, TS(1)) RETURN END ================================================ FILE: mis/strap2.f ================================================ SUBROUTINE STRAP2 (TI) C C C***** C THIS ROUTINE IS PHASE II OF STRESS DATA RECOVERY FOR THE TRAPEZOIDAL C CROSS SECTION RING C***** C C C DIMENSION TI(4) DIMENSION DUM3(225) DIMENSION STRES(100), FORCE(25) DIMENSION ISTRES(100), IFORCE(25) C C C SDR2 VARIABLE CORE C COMMON /ZZZZZZ/ ZZ(1) C C C SDR2 BLOCK FOR POINTERS AND LOADING TEMPERATURES C COMMON /SDR2X4/ 1 DUM1(33) 2, ICSTM, NCSTM, IVEC, IVECN 3, TEMPLD, ELDEFM C C C SDR2 INPUT AND OUTPUT BLOCK C COMMON /SDR2X7/ 1 IDEL, IGP(4), TZ 2, SEL(240), TS(4), AK(144) C C C SCRATCH BLOCK C COMMON /SDR2X8/ 1 DISP(12), EFORC(12),ESTRES(20) C C EQUIVALENCE (DUM3(1) , IDEL) EQUIVALENCE (DUM3(101) , STRES(1) , ISTRES(1)) EQUIVALENCE (DUM3(201) , FORCE(1) , IFORCE(1)) EQUIVALENCE (LDTEMP, TEMPLD) C C C INITIALIZE COUNTERS C NDOF = 3 NUMPT = 4 N = NDOF * NUMPT NSP = 5 NCOMP = 4 NS = NSP * NCOMP C C C LOCATE THE DISPLACEMENTS C K = 0 DO 100 I = 1,NUMPT ILOC = IVEC + IGP(I) - 2 DO 100 J = 1,NDOF ILOC = ILOC + 1 K = K + 1 DISP(K) = ZZ(ILOC) 100 CONTINUE C C C COMPUTE THE GRID POINT FORCES C CALL GMMATS ( AK(1) , N, N, 0, DISP(1) , N, 1, 0, EFORC(1) ) C C C COMPUTE THE STRESSES C CALL GMMATS ( SEL(1), NS, N, 0, DISP(1) , N, 1, 0, ESTRES(1) ) C C C COMPUTE THERMAL STRESS IF THERMAL LOAD EXISTS C AND SUBTRACT FROM APPARENT STRESS C IF (LDTEMP .EQ. (-1)) GO TO 300 C K = 0 DO 200 I = 1,NSP DT = TI(I) - TZ IF (I.EQ.5) DT = (TI(1)+TI(2)+TI(3)+TI(4)) / 4.0E0 - TZ DO 200 J = 1,NCOMP K = K + 1 ESTRES(K) = ESTRES(K) - DT * TS(J) 200 CONTINUE C 300 CONTINUE C C C STORE RESULTS FOR OUTPUT PRINT C K = 0 J = 1 ISTRES(1) = IDEL DO 400 KK = 1,NSP DO 400 I = 1,NCOMP J = J + 1 K = K + 1 STRES(J) = ESTRES(K) 400 CONTINUE C C K = 0 J = 1 IFORCE(1) = IDEL DO 500 I = 1,NUMPT DO 500 KK= 1,NDOF J = J + 1 K = K + 1 FORCE(J) = EFORC(K) 500 CONTINUE C RETURN END ================================================ FILE: mis/strax1.f ================================================ SUBROUTINE STRAX1 C C THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR THE AXI- C SYMMETRIC RING WITH TRIANGULAR CROSS SECTION RING C C ECPT ( 1) = ELEMENT ID C ECPT ( 2) = SIL A I C ECPT ( 3) = SIL B I C ECPT ( 4) = SIL C I C ECPT ( 5) = MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT ( 7) = MATERIAL ID I C ECPT ( 8) TO ECPT(21) = STRESS PHASE ANG. R C ECPT (22) = CORD. SYS. GRID POINT A (NOT USED) I C ECPT (23) = R-CORD OF GRID A R C ECPT (24) = Z-CORD OF GRID A R C ECPT (25) = 0.0 R C ECPT (26) = CORD. SYS. GRID POINT B (NOT USED) I C ECPT (27) = R-CORD OF GRID B R C ECPT (28) = Z-CORD OF GRID B R C ECPT (29) = 0.0 R C ECPT (30) = CORD. SYS. GRID POINT C (NOT USED) I C ECPT (31) = R-CORD OF GRID C R C ECPT (32) = Z-CORD OF GRID C R C ECPT (33) = 0.0 R C ECPT (34) = EL. TEMPERATURE FOR MATERIAL PROP R C C ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING C ...KSYS78 OR LSYS78 ... INDICATES CODING NECESSARY FOR THIS C ELEMENT*S PIEZOELECTRIC CAPABILITY C C KSYS78 = 0 ELASTIC, NON-PIEZOELECTRIC MATERIAL C KSYS78 = 1 ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL C KSYS78 = 2 ELASTIC ONLY, PIEZOELECTRIC MATERIAL C LSYS78 = .TRUE. IF KSYS78 = 0, OR 2 C LOGICAL PZMAT,LSYS78 DIMENSION IECPT(35),DELINT(12),TEO(45),ACURL(117),R(3), 1 Z(3),ICS(3),D1(27),D2(9),ACURP1(27),ACURP2(9), 2 GABABP(3,3),EE(63),WJP(3,3) C ECPT COMMON BLOCK COMMON /SDR2X5/ ECPT(34),DUM5(66),IDEL,IGP(3),TZ,SEL(54),TS(6), 1 AK(81),PHI(14),SELP1(18),AKPH2(9),AKUPH(27), 2 SELP2(27),SELP3(9) COMMON /SDR2X6/ GABABQ(9,9), D(81), WJ(6,9) COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO,GSUBE,MOSKP(9), 1 SETMAT COMMON /MATPZ / PZOUT(51) C COMMON /MATPZ / CE11,CE12,CE13,CE14,CE15,CE16,CE22,CE23,CE24,CE25, C CE26,CE33,CE34,CE35,CE36,CE44,CE45,CE46,CE55,CE56, C CE66,E11,E12,E13,E14,E15,E16,E21,E22,E23,E24,E25, C E26,E31,E32,E33,E34,E35,E36,EPS11,EPS12,EPS13,EPS2 C EPS23,EPS33,RHO,A1,A2,A12,TREF,GE C COMMON /CONDAS/ CONSTS(5) COMMON /SYSTEM/ KSYSTM(77),KSYS78 EQUIVALENCE (IECPT(1),ECPT(1)), (Z(1),Z1), (Z(2),Z2), 1 (R(1),R1), (R(2),R2), (R(3),R3), (Z(3),Z3), 2 (CONSTS(1),PI), (CONSTS(4),DEGRAD), 3 (ACURP1(1),ACURL(82)), (ACURP2(1),ACURL(109)) C LSYS78 = .FALSE. IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE. C C START EXECUTION C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT( 1) IGP(1) = IECPT( 2) IGP(2) = IECPT( 3) IGP(3) = IECPT( 4) MATID = IECPT( 7) ICS(1) = IECPT(22) R(1) = ECPT( 23) Z(1) = ECPT( 24) D(1) = ECPT( 25) ICS(2) = IECPT(26) R(2) = ECPT( 27) Z(2) = ECPT( 28) D(2) = ECPT( 29) ICS(3) = IECPT(30) R(3) = ECPT( 31) Z(3) = ECPT( 32) D(3) = ECPT( 33) DGAMA = ECPT( 5) TEMPE = ECPT( 34) C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C DO 200 I = 1,3 IF (R(I) .LE. 0.0) GO TO 910 IF (D(I) .NE. 0.0) GO TO 910 200 CONTINUE C C COMPUTE THE ELEMENT COORDINATES C ZMIN = AMIN1(Z1,Z2,Z3) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN C C FORM THE TRANSFORMATION MATRIX GABABQ (9X9) FROM FIELD COORDINATES C TO GRID POINT DEGREES OF FREEDOM C DO 300 I = 1,81 300 GABABQ(I,1) = 0.0 AA = R2*Z3 + R1*Z2 + Z1*R3 - Z2*R3 - R1*Z3 - R2*Z1 AA = 1.0/AA C1 = AA*(R2*Z3 - Z2*R3) C2 =-AA*(Z3 - Z2) C3 = AA*(R3 - R2) GABABQ(1,1) = C1 GABABQ(1,2) = C2 GABABQ(1,3) = C3 GABABQ(2,4) = C1 GABABQ(2,5) = C2 GABABQ(2,6) = C3 GABABQ(3,7) = C1 GABABQ(3,8) = C2 GABABQ(3,9) = C3 IF (LSYS78) GO TO 302 GABABP(1,1) = C1 GABABP(1,2) = C2 GABABP(1,3) = C3 302 CONTINUE C1 =-AA*(R1*Z3 - Z1*R3) C2 = AA*(Z3 - Z1) C3 =-AA*(R3 - R1) GABABQ(4,1) = C1 GABABQ(4,2) = C2 GABABQ(4,3) = C3 GABABQ(5,4) = C1 GABABQ(5,5) = C2 GABABQ(5,6) = C3 GABABQ(6,7) = C1 GABABQ(6,8) = C2 GABABQ(6,9) = C3 IF (LSYS78) GO TO 304 GABABP(2,1) = C1 GABABP(2,2) = C2 GABABP(2,3) = C3 304 CONTINUE C1 = AA*(R1*Z2 - Z1*R2) C2 =-AA*(Z2 - Z1) C3 = AA*(R2 - R1) GABABQ(7,1) = C1 GABABQ(7,2) = C2 GABABQ(7,3) = C3 GABABQ(8,4) = C1 GABABQ(8,5) = C2 GABABQ(8,6) = C3 GABABQ(9,7) = C1 GABABQ(9,8) = C2 GABABQ(9,9) = C3 IF (LSYS78) GO TO 306 GABABP(3,1) = C1 GABABP(3,2) = C2 GABABP(3,3) = C3 306 CONTINUE C C COMPUTE THE INTEGRAL VALUES IN ARRAY DELINT THE ORDER IS INDICATED C BY THE FOLLOWING TABLE C C DELINT(01) = (-1,0) C DELINT(02) = (-1,1) C DELINT(03) = (-1,2) C DELINT(04) = (0, 0) C DELINT(05) = (0, 1) C DELINT(06) = (1, 0) C RA = (R1 + R2 + R3)/3.0 ZA = (Z1 + Z2 + Z3)/3.0 RH = AMIN1(R1,R2,R3)/10.0 DR = AMAX1(ABS(R1-R2),ABS(R2-R3),ABS(R3-R1)) AREA= (R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2))/2.0 I1 = 0 DO 400 I = 1,2 IP = I - 2 DO 350 J = 1,3 IQ = J - 1 I1 = I1 + 1 IF (I1 .NE. 6) GO TO 310 IP = 1 IQ = 0 310 IF (DR .GT. RH) GO TO 320 DELINT(I1) = ((RA**IP)*(ZA**IQ))*AREA GO TO 330 320 DELINT(I1) = AIS(3,IP,IQ,R,Z) 330 DELINT(I1) = ABS(DELINT(I1)) 350 CONTINUE 400 CONTINUE C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 C DGAMR = DGAMA*DEGRAD COSG = COS(DGAMR) SING = SIN(DGAMR) SINTH = SING COSTH = COSG MATIDC = MATID MATFLG = 7 IF (KSYS78 .GT. 0) MATFLG = 9 ELTEMP = TEMPE CALL MAT (IDEL) PZMAT = .FALSE. IF (SETMAT.EQ.4. .OR. SETMAT.EQ.5.) PZMAT = .TRUE. IF (PZMAT) GO TO 410 KSAVE = KSYS78 KSYS78 = 0 LSYS78 = .TRUE. GO TO 420 410 RHO = PZOUT(46) ALF(1) = PZOUT(47) ALF(2) = PZOUT(48) ALF(3) = PZOUT(49) TZERO = PZOUT(50) GSUBE = PZOUT(51) 420 CONTINUE IF (SETMAT .EQ. 2.0) GO TO 920 TZ = TZERO IF (KSYS78 .GT. 0) GO TO 500 C C SET MATERIAL PROPERTIES IN LOCAL VARIABLES (AGAIN) C ER = E(1) ET = E(2) EZ = E(3) VRO = ANU(1) VOZ = ANU(2) VZR = ANU(3) GOR = G(1) GZO = G(2) GRZ = G(3) VOR = VRO*ET/ER VZO = VOZ*EZ/ET VRZ = VZR*ER/EZ DEL = 1.0/(1.0-VRO*VOR-VOZ*VZO-VZR*VRZ-VRO*VOZ*VZR-VRZ*VOR*VZO) C C COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS C 500 CONTINUE DO 510 I = 1,45 510 TEO (I) = 0.0 IF (KSYS78 .GT. 0) GO TO 512 TEO ( 1) = ER*(1.0 - VOZ*VZO)*DEL TEO ( 2) = ER*(VZR + VZO*VOR)*DEL TEO ( 3) = EZ*(1.0 - VRO*VOR)*DEL TEO ( 4) = ER*(VOR + VZR*VOZ)*DEL TEO ( 5) = ET*(VZO + VRO*VZR)*DEL TEO ( 6) = ET*(1.0 - VRZ*VZR)*DEL TEO (10) = GRZ TEO (15) = GOR TEO (21) = GZO GO TO 514 512 CONTINUE C C PIEZOELECTRIC MATERIAL PROPERTIES STORED IN TEO(22-39) C DIELECTRIC MATERIAL PROPERTIES STORED IN TEO(40-45) C TEO(22-39) CONTAINS E-TRANSPOSE C TEO( 1) = PZOUT( 1) TEO( 2) = PZOUT( 2) TEO( 3) = PZOUT( 7) TEO( 4) = PZOUT( 3) TEO( 5) = PZOUT( 8) TEO( 6) = PZOUT(12) TEO( 7) = PZOUT( 4) TEO( 8) = PZOUT( 9) TEO( 9) = PZOUT(13) TEO(10) = PZOUT(16) TEO(11) = PZOUT( 5) TEO(12) = PZOUT(10) TEO(13) = PZOUT(14) TEO(14) = PZOUT(17) TEO(15) = PZOUT(19) TEO(16) = PZOUT( 6) TEO(17) = PZOUT(11) TEO(18) = PZOUT(15) TEO(19) = PZOUT(18) TEO(20) = PZOUT(20) TEO(21) = PZOUT(21) C IF (KSYS78 .EQ. 2) GO TO 514 TEO(22) = PZOUT(22) TEO(23) = PZOUT(28) TEO(24) = PZOUT(34) TEO(25) = PZOUT(23) TEO(26) = PZOUT(29) TEO(27) = PZOUT(35) TEO(28) = PZOUT(24) TEO(29) = PZOUT(30) TEO(30) = PZOUT(36) TEO(31) = PZOUT(25) TEO(32) = PZOUT(31) TEO(33) = PZOUT(37) TEO(34) = PZOUT(26) TEO(35) = PZOUT(32) TEO(36) = PZOUT(38) TEO(37) = PZOUT(27) TEO(38) = PZOUT(33) TEO(39) = PZOUT(39) TEO(40) =-PZOUT(40) TEO(41) =-PZOUT(41) TEO(42) =-PZOUT(42) TEO(43) =-PZOUT(43) TEO(44) =-PZOUT(44) TEO(45) =-PZOUT(45) 514 CONTINUE C DO 520 I = 5,63 520 EE(I) = 0.0 C2 = COSG*COSG C4 = C2 *C2 S2 = SING*SING S4 = S2 *S2 C2S2= C2 *S2 C3 = COSG*C2 S3 = SING*S2 CS2 = COSG*S2 SC2 = SING*C2 CS = COSG*SING C EE( 1) = TEO(1)*C4 + TEO(3)*S4 + 2.0*C2S2*(TEO(2) + 2.0*TEO(10)) EE( 2) = TEO(2)*(C4+S4) + C2S2*(TEO(1) + TEO(3)-4.0*TEO(10)) EE( 3) = TEO(4)*C2 + TEO(5)*S2 EE( 4) = COSG*SING*S2*(TEO(2)-TEO(3) + 2.0*TEO(10)) 4 + SING*COSG*C2*(TEO(1)-TEO(2) - 2.0*TEO(10)) EE( 7) = EE(2) EE( 8) = TEO(1)*S4 + 2.0*C2S2*(TEO(2) + 2.0*TEO(10)) + TEO(3)*C4 EE( 9) = TEO(4)*S2 + TEO(5)*C2 EE(10) = SING*COSG*C2 * (TEO(2)-TEO(3) + 2.0*TEO(10)) O + COSG*SING*S2 * (TEO(1)-TEO(2) - 2.0*TEO(10)) EE(13) = EE(3) EE(14) = EE(9) EE(15) = TEO(6) EE(16) = SING*COSG*(TEO(4)-TEO(5)) EE(19) = EE(4) EE(20) = EE(10) EE(21) = EE(16) EE(22) = C2S2*(TEO(1) - 2.0*TEO(2) + TEO(3)) + TEO(10)*(C2-S2)**2 EE(29) = TEO(15)*C2 + TEO(21)*S2 EE(30) = SING*COSG*(TEO(15)-TEO(21)) EE(35) = EE(30) EE(36) = TEO(15)*S2 + TEO(21)*C2 IF (LSYS78) GO TO 530 C C PIEZOELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINATES C EE(37) = C3*TEO(22) - S3*TEO(26) + CS2*(TEO(25)+2.0*TEO(32)) 7 - SC2*(TEO(23)+2.0*TEO(31)) EE(38) = C3*TEO(23) + S3*TEO(25) + CS2*(TEO(26)-2.0*TEO(31)) 8 + SC2*(TEO(22)-2.0*TEO(32)) EE(39) = S2*TEO(27) + C2*TEO(24) - 2.0*CS*TEO(33) EE(40) = C3*TEO(25) - S3*TEO(23) + CS2*(TEO(22)-2.0*TEO(32)) O - SC2*(TEO(26)-2.0*TEO(31)) EE(41) = C3*TEO(26) + S3*TEO(22) + CS2*(TEO(23)+2.0*TEO(31)) 1 + SC2*( TEO(25)+2.0*TEO(32)) EE(42) = S2*TEO(24) + C2*TEO(27) + 2.0*CS*TEO(33) EE(43) = COSG*TEO(28) - SING*TEO(29) EE(44) = COSG*TEO(29) + SING*TEO(28) EE(45) = TEO(30) EE(46) = C3*TEO(31) + S3*TEO(32) - CS2*(TEO(23)-TEO(26)+TEO(31)) 6 + SC2*(-TEO(32)-TEO(25)+TEO(22)) EE(47) = C3*TEO(32) - S3*TEO(31) - CS2*(TEO(25)-TEO(22)+TEO(32)) 7 + SC2*(TEO(23)+TEO(31)-TEO(26)) EE(48) = (C2-S2)*TEO(33) + CS*(TEO(24)-TEO(27)) EE(49) = C2*TEO(34) + S2*TEO(38) - CS*(TEO(35)+TEO(37)) EE(50) = C2*TEO(35) - S2*TEO(37) + CS*(TEO(34)-TEO(38)) EE(51) = COSG*TEO(36) - SING*TEO(39) EE(52) = C2*TEO(37) - S2*TEO(35) - CS*(TEO(38)-TEO(34)) EE(53) = C2*TEO(38) + S2*TEO(34) + CS*(TEO(35)+TEO(37)) EE(54) = COSG*TEO(39) + SING*TEO(36) C C DIELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINTES C EE(55) = S2*TEO(43) - 2.0*CS*TEO(41) + C2*TEO(40) EE(56) = (C2-S2)*TEO(41) - CS*(TEO(43)-TEO(40)) EE(57) =-SING*TEO(44) + COSG*TEO(42) EE(59) = C2*TEO(43) + 2.0*CS*TEO(41) + S2*TEO(40) EE(60) = COSG*TEO(44) + SING*TEO(42) EE(63) = TEO(45) 530 CONTINUE C IECPT(1) = IECPT(1) - (IECPT(1)/1000)*1000 - 1 AJHO = IECPT(1) AJJHO = AJHO*AJHO C C FORM THE ELEMENT STIFFNESS MATRIX IN FIELD SYSTEM C ACURL( 1) = (EE(15) + AJJHO*EE(29))*DELINT(1) ACURL( 2) = (EE( 3) + EE(15) + AJJHO*EE(29))*DELINT(4) ACURL( 3) = (EE(15) + AJJHO*EE(29))*DELINT(2) + EE(16)*DELINT(4) ACURL( 4) = (EE(15) + EE(29))*AJHO*DELINT(1) ACURL( 5) = EE(15)*AJHO*DELINT(4) ACURL( 6) = (EE(15)+EE(29))*AJHO*DELINT(2) - EE(30)*AJHO*DELINT(4) ACURL( 7) = AJJHO*DELINT(1)*EE(35) ACURL( 8) = (EE(16) + AJJHO*EE(35))*DELINT(4) ACURL( 9) = EE(9)*DELINT(4) + AJJHO*DELINT(2)*EE(35) ACURL(11) = (EE(1) + 2.0*EE(3) + EE(15) + AJJHO*EE(29))*DELINT(6) ACURL(12) = (EE(3) + EE(15) + AJJHO*EE(29))*DELINT(5) 1 + (EE(4) + EE (16))*DELINT(6) ACURL(13) = (EE(3) + EE(15) + EE(29))*AJHO*DELINT(4) ACURL(14) = (EE(3) + EE(15))*DELINT(6)*AJHO ACURL(15) = (EE(3) + EE(15) + EE(29))*AJHO*DELINT(5) 1 - AJHO*EE(30)*DELINT(6) ACURL(16) = AJJHO*DELINT(4)*EE(35) ACURL(17) = (EE(4) + EE(16) + AJJHO*EE(35))*DELINT(6) ACURL(18) = (EE(2) + EE(9))*DELINT(6) + AJJHO*DELINT(5)*EE(35) ACURL(21) = (EE(15) + AJJHO*EE(29))*DELINT(3) + EE(22)*DELINT(6) 1 + 2.0*EE(16)*DELINT(5) ACURL(22) = (EE(15) + EE(29))*AJHO*DELINT(2) 1 + AJHO*DELINT(4)*EE(16) ACURL(23) = EE(15)*AJHO*DELINT(5) + AJHO*DELINT(6)*EE(16) ACURL(24) = (EE(15) + EE(29))*AJHO*DELINT(3) 1 + (EE(16) - EE(30))*AJHO*DELINT(5) ACURL(25) = AJJHO*DELINT(2)*EE(35) ACURL(26) = EE(22)*DELINT(6) + (EE(21) + AJJHO*EE(35))*DELINT(5) ACURL(27) = EE(9)*DELINT(5) + EE(10)*DELINT(6) 1 + AJJHO*DELINT(3)*EE(35) ACURL(31) = (EE(29) + AJJHO*EE(15))*DELINT(1) ACURL(32) = EE(15)*AJJHO*DELINT(4) ACURL(33) = (EE(29) + AJJHO*EE(15))*DELINT(2) - EE(30)*DELINT(4) ACURL(34) = AJHO*DELINT(1)*EE(35) ACURL(35) = AJHO*(EE(16) + EE(35))*DELINT(4) ACURL(36) = EE(9)*AJHO*DELINT(4) + AJHO*DELINT(2)*EE(35) ACURL(41) = AJJHO*DELINT(6)*EE(15) ACURL(42) = EE(15)*AJJHO*DELINT(5) ACURL(43) = 0.0 ACURL(44) = AJHO*DELINT(6)*EE(16) ACURL(45) = EE(9)*AJHO*DELINT(6) ACURL(51) = (EE(29) + AJJHO*EE(15))*DELINT(3) + EE(36)*DELINT(6) 1 - 2.0*DELINT(5)*EE(35) ACURL(52) = AJHO*(DELINT(2)*EE(30) - DELINT(4)*EE(36)) ACURL(53) = -EE(36)*AJHO*DELINT(6) + AJHO*(EE(16) 1 + EE(35))*DELINT(5) ACURL(54) = (EE(9) - EE(36))*AJHO*DELINT(5) 1 + AJHO*DELINT(3)*EE(35) ACURL(61) = EE(36)*AJJHO*DELINT(1) ACURL(62) = EE(36)*AJJHO*DELINT(4) ACURL(63) = (EE(36))*AJJHO*DELINT(2) ACURL(71) = (EE(22) + AJJHO*EE(36))*DELINT(6) ACURL(72) = EE(36)*AJJHO*DELINT(5) + EE(20)*DELINT(6) ACURL(81) = EE(36)*AJJHO*DELINT(3) + EE(8)*DELINT(6) C IF (LSYS78) GO TO 540 ACURL(82) =-(EE(45)-AJHO*EE(51))*AJHO*DELINT(1) ACURL(83) = (EE(43)-AJHO*EE(45)-AJHO*EE(49) 3 + AJJHO*EE(51))*DELINT(4) ACURL(84) = (EE(44)-AJHO*EE(50))*DELINT(4)-(EE(45) 4 - AJHO*EE(51))*AJHO*DELINT(2) ACURL(85) =-(EE(39)+EE(45)-AJHO*EE(51))*AJHO*DELINT(4) ACURL(86) = (EE(37)+EE(43)-(EE(39)+EE(45)+EE(49) 6 - AJHO*EE(51))*AJHO)*DELINT(6) ACURL(87) = (EE(38)+EE(44)-AJHO*EE(50))*DELINT(6)-(EE(39)+EE(45) 7 - AJHO*EE(51))*AJHO*DELINT(5) ACURL(88) =-(EE(45)-AJHO*EE(51))*AJHO*DELINT(2)-EE(48)*AJHO* 8 DELINT(4) ACURL(89) = (EE(43)-AJHO*EE(45)-AJHO*EE(49)+AJJHO*EE(51))* 9 DELINT(5) +(EE(46)-EE(48)*AJHO)*DELINT(6) ACURL(90) = (EE(44)-AJHO*EE(48)-AJHO*EE(50))*DELINT(5)+EE(47)* O DELINT(6) - (EE(45)-AJHO*EE(51))*AJHO*DELINT(3) ACURL(91) =-(EE(45)*AJHO-EE(51))*AJHO*DELINT(1) ACURL(92) = (AJHO*EE(43)-AJJHO*EE(45)-EE(49)+AJHO*EE(51))* 2 DELINT(4) ACURL(93) = (EE(44)*AJHO-EE(50))*DELINT(4)-(EE(45)*AJHO-EE(51))* 3 AJHO*DELINT(2) ACURL(94) =-EE(45)*AJJHO*DELINT(4) ACURL(95) = (EE(43)-AJHO*EE(45))*AJHO*DELINT(6) ACURL(96) = EE(44)*AJHO*DELINT(6)-EE(45)*AJJHO*DELINT(5) ACURL(97) =-(EE(45)*AJHO-EE(51))*AJHO*DELINT(2)-EE(54)*AJHO* 7 DELINT(4) ACURL(98) = (EE(43)*AJHO-AJJHO*EE(45)-EE(49)+EE(51)*AJHO)* 8 DELINT(5)+(EE(52)-AJHO*EE(54))*DELINT(6) ACURL(99) = (EE(44)*AJHO-EE(50)-EE(54)*AJHO)*DELINT(5)+EE(53)* 9 DELINT(6)-(EE(45)*AJHO-EE(51))*AJHO*DELINT(3) ACURL(100) = EE(54)*AJJHO*DELINT(1) ACURL(101) =-(EE(52)-EE(54)*AJHO)*AJHO*DELINT(4) ACURL(102) =-(EE(53)*DELINT(4)-EE(54)*AJHO*DELINT(2))*AJHO ACURL(103) =-(EE(48)-EE(54)*AJHO)*AJHO*DELINT(4) ACURL(104) = (EE(46)-EE(48)*AJHO-EE(52)*AJHO+EE(54)*AJJHO)* 4 DELINT(6) ACURL(105) = (EE(47)-EE(53)*AJHO)*DELINT(6)-(EE(48)-EE(54)*AJHO)* 5 AJHO*DELINT(5) ACURL(106) = EE(54)*AJJHO*DELINT(2)-EE(42)*AJHO*DELINT(4) ACURL(107) = (EE(40)-EE(42)*AJHO)*DELINT(6)-(EE(52)-EE(54)*AJHO)* 7 AJHO*DELINT(5) ACURL(108) = EE(41)*DELINT(6)+(-EE(42)-EE(53))*AJHO*DELINT(5)+ 8 EE(54)*AJJHO*DELINT(3) ACURL(109) = EE(63)*AJJHO*DELINT(1) ACURL(110) = (-EE(57)+EE(63)*AJHO)*AJHO*DELINT(4) ACURL(111) =-EE(60)*AJHO*DELINT(4)+EE(63)*AJJHO*DELINT(2) ACURL(112) = ACURL(110) ACURL(113) = (EE(55)-2.0*EE(57)*AJHO+EE(63)*AJJHO)*DELINT(6) ACURL(114) = (EE(56)-EE(60)*AJHO)*DELINT(6)+(-EE(57)+EE(63)*AJHO)* 4 AJHO*DELINT(5) ACURL(115) = ACURL(111) ACURL(116) = ACURL(114) ACURL(117) = EE(59)*DELINT(6)-2.0*EE(60)*AJHO*DELINT(5)+EE(63)* 7 AJJHO*DELINT(3) 540 CONTINUE C C EXPAND ACURL INTO (9X9) C DO 610 IB = 2,9 IC = 10*IB - 19 I = IC DO 605 J = IB,9 IC = IC + 9 I = I + 1 605 ACURL(IC) = ACURL(I) 610 CONTINUE DGAMR = PI IF (AJHO .EQ. 0) DGAMR = 2.0*PI DO 630 I = 1,81 630 ACURL(I) = DGAMR*ACURL(I) C IF (LSYS78) GO TO 640 DO 635 I = 82,117 635 ACURL(I) = ACURL(I)*DGAMR 640 CONTINUE C C TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD SYSTEM C TO GRID POINT DEGREES OF FREEDOM C CALL GMMATS (GABABQ,9,9,1, ACURL,9,9,0,D ) CALL GMMATS ( D,9,9,0,GABABQ,9,9,0,AK) C IF (LSYS78) GO TO 650 CALL GMMATS (GABABQ,9,9,1,ACURP1,9,3,0,D1 ) CALL GMMATS ( D1,9,3,0,GABABP,3,3,0,AKUPH) CALL GMMATS (GABABP,3,3,1,ACURP2,3,3,0,D2 ) CALL GMMATS ( D2,3,3,0,GABABP,3,3,0,AKPH2) 650 CONTINUE C C C LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS C **** COORDINATE SYS NOT POSSIBLE WITH RINGAX ******** C **** THE FOLLOWING CODE COULD IMPLEMENT IT ******** C ** IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR C PIEZOELECTRIC C. DO 750 I = 1,81 C.750 AKI(I) = 0.00 C. DO 800 I = 1,3 C. CALL TRANSS (ICS(I),D(1)) C. K = 30*(I-1) + 1 C. DO 800 J = 1,3 C. KK = K + 9*(J-1) C. JJ = 3*(J-1) + 1 C. AKI(KK ) = D(JJ ) C. AKI(KK+1) = D(JJ+1) C. AKI(KK+2) = D(JJ+2) C.800 CONTINUE C C TRANSFORM THE STIFFNESS MATRIX FROM BASIC TO LOCAL COORDINATES C C. CALL GMMATS (AKI,9,9,1, AK,9,9,0,D ) C. CALL GMMATS ( D,9,9,0,AKI,9,9,0,AK) C C FORM WJ MATRIX C DO 1000 I = 1,6 DO 1000 J = 1,9 1000 WJ (I,J) = 0.0 RSUM = 0.0 ZSUM = 0.0 DO 1040 I = 1,3 RSUM = RSUM + R(I) 1040 ZSUM = ZSUM + Z(I) RSUM = RSUM/3.0 ZSUM = ZSUM/3.0 ZDR = ZSUM/RSUM WJ (1,2) = 1.0 WJ (2,9) = 1.0 WJ (3,1) = 1.0/RSUM WJ (3,2) = 1.0 WJ (3,3) = ZDR WJ (3,4) = AJHO/RSUM WJ (3,5) = AJHO WJ (3,6) = AJHO*ZDR WJ (4,3) = 1.0 WJ (4,8) = 1.0 WJ (5,1) =-AJHO/RSUM WJ (5,2) =-AJHO WJ (5,3) =-AJHO*ZDR WJ (5,4) =-1.0/RSUM WJ (5,6) =-ZDR WJ (6,6) = 1.0 WJ (6,7) =-AJHO/RSUM WJ (6,8) =-AJHO WJ (6,9) =-AJHO*ZDR C IF (LSYS78) GO TO 1060 C C FORM WJP MATRIX C DO 1050 I = 1,3 DO 1050 J = 1,3 1050 WJP(I,J) = 0.0 C WJP(1,2) = 1.0 WJP(2,3) = 1.0 WJP(3,1) = -AJHO/RSUM WJP(3,2) = -AJHO WJP(3,3) = -AJHO*ZDR 1060 CONTINUE C C COMPUTE THE STRESS MATRIX C CALL GMMATS ( WJ,9,6,1,GABABQ,9,9,0,D(1)) CALL GMMATS (EE(1),6,6,0, D(1),6,9,0,SEL ) IF (LSYS78) GO TO 1070 CALL GMMATS ( WJP,3,3,1,GABABP,3,3,0,D2(1)) CALL GMMATS (EE(37),6,3,0, D2(1),3,3,0,SELP1) CALL GMMATS (EE(37),6,3,1, D(1),6,9,0,SELP2) CALL GMMATS (EE(55),3,3,0, D2(1),3,3,0,SELP3) 1070 CONTINUE C C *** MORE CORD SYS REMOVAL. FEL ABOVE IS WJ ********** C ** IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR C PIEZOELECTRIC C C. CALL GMMATS (WJ,6,9,0, AK,9,9,0, SEL) C C C TRANSFORM THE STRESS MATRIX FROM BASIC TO LOCAL COORDINATES C C COMPUTE THE THE THERMAL STRESS C TS(1) = EE( 1)*ALF(1) + EE( 2)*ALF(3) + EE( 3)*ALF(2) TS(2) = EE( 7)*ALF(1) + EE( 8)*ALF(3) + EE( 9)*ALF(2) TS(3) = EE(13)*ALF(1) + EE(14)*ALF(3) + EE(15)*ALF(2) TS(4) = EE(19)*ALF(1) + EE(20)*ALF(3) + EE(21)*ALF(2) TS(5) = 0.0 TS(6) = 0.0 DO 1100 IKI = 1,14 PHI(IKI) = ECPT(7+IKI) 1100 CONTINUE GO TO 940 C C SET FATAL ERROR FLAG AND ALLOWING ERROR MESSAGES TO ACCUMULATE C 910 I = 37 GO TO 930 920 I = 126 930 CALL MESAGE (30,I,IDEL) NOGO = 1 940 IF (.NOT.PZMAT) KSYS78 = KSAVE RETURN END ================================================ FILE: mis/strax2.f ================================================ SUBROUTINE STRAX2 (SORC,TI) C C THIS ROUTINE IS PHASE II OF STRESS DATA FOR THE TRIANGULAR C CROSS SECTION RING C C OUTPUTS FROM PHASE I ARE THE FOLLOWING - C IDEL IGP(3) TZ SEL(54) TS(4) AK(81) PHI(14) C AKUPH(27) AKPH2(9) SELP1(18) SELP2(27) SELP3(9) C C ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING C ...KSYS78 OR LSYS78 ... INDICATES CODING NECESSARY FOR THIS C ELEMENT*S PIEZOELECTRIC CAPABILITY C C KSYS78 = 0 ELASTIC, NON-PIEZOELECTRIC MATERIAL C KSYS78 = 1 ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL C KSYS78 = 2 ELASTIC ONLY, PIEZOELECTRIC MATERIAL C LSYS78 = .TRUE. IF KSYS78 = 0, OR 2 C LOGICAL ZERO,ZERON,LSYS78 INTEGER SORC,IBLOCK(22,14),ISTRES(100),IFORCE(25),ELEMID, 1 ICLOCK(22,14) REAL NPHI DIMENSION TI(3),DUM3(225),STRES(100),FORCE(25),AKUPH(27), 1 AKPH2(9),SELP1(18),SELP2(27),SELP3(9),D3(3),D6(6), 2 D9(9),DISPP(3),ECHRG(3),EFLUX(3) C C SDR2 VARIABLE CORE C COMMON /ZZZZZZ/ ZZ(1) C C SDR2 BLOCK FOR POINTERS AND LOADING TEMPERATURES C COMMON /SDR2X4/ DUM1(33),ICSTM,NCSTM,IVEC,IVECN,TEMPLD,ELDEFM, 1 DUM4(12),KTYPE C C SCRATCH BLOCK C COMMON /SDR2X8/ DISP(9),EFORC(9),ESTRES(9),HARM,N,SINPHI,CONPHI, 1 NPHI,NANGLE,ELEMID,UNU(123),NELHAR C C SDR2 INPUT AND OUTPUT BLOCK C COMMON /SDR2X7/ IDEL,IGP(3),TZ,SEL(54),TS(6),AK(81),PHI(14), 1 DUM2(90),BLOCK(22,14),CLOCK(22,14) C COMMON /SDR2DE/ DUM5(33), IPART COMMON /CONDAS/ CONSTS(5) COMMON /SYSTEM/ KSYSTM(77),KSYS78 EQUIVALENCE (IBLOCK(1,1),BLOCK(1,1)),(ICLOCK(1,1),CLOCK(1,1)), 1 (DUM3(1),IDEL),(LDTEMP,TEMPLD), 2 (DUM3(109),STRES(9),ISTRES(9),EFLUX(1)), 3 (DUM3(201),FORCE(1),IFORCE(1)), 4 (DUM2(1),SELP1(1)),(DUM2(19),AKPH2(1)), 5 (DUM2(28),AKUPH(1)),(DUM2(55),SELP2(1)), 6 (DUM2(82),SELP3(1)),(CONSTS(4),DEGRAD), 7 (UNU(1),D3(1)),(UNU(4),D6(1)),(UNU(10),D9(1)) DATA ZERON / .FALSE. / DATA IOSORC/ 0 / C LSYS78 = .FALSE. IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE. C ELEMID = IDEL/1000 NELHAR = IDEL - ELEMID*1000 C C SET BLOCK = 0 IF HARMONIC = 0 C N = NELHAR - 1 IF (N .NE. 0) GO TO 21 IF (N.EQ.0 .AND. ZERON .AND. IOSORC .NE. SORC) GO TO 14 ZERON = .TRUE. IOSORC = SORC DO 15 I = 2,22 DO 15 J = 1,14 IF (KTYPE.NE.2 .OR. IPART.NE.2) BLOCK(I,J) = 0.0 CLOCK(I,J) = 0.0 15 CONTINUE C C SET ANGLES CONTROL FOR SUMMATION C ZERO = .FALSE. J = 0 DO 16 I = 1,14 IF (PHI(I)) 17,18,17 18 IF (ZERO) GO TO 16 ZERO = .TRUE. 17 J = J + 1 BLOCK(1,J) = PHI(I) CLOCK(1,J) = PHI(I) 16 CONTINUE J = J + 1 IF (J .GT. 14) GO TO 21 IBLOCK(1,J) = 1 ICLOCK(1,J) = 1 GO TO 21 14 ZERON = .FALSE. 21 HARM = N C C INITIALIZE LOCAT VARIABLES C NDOF = 3 NUMPT = 3 N = NDOF*NUMPT NSP = 1 NCOMP = 6 NS = NSP*NCOMP C C FIND GRID POINTS DISPLACEMENTS C K = 0 DO 100 I = 1,NUMPT ILOC = IVEC + IGP(I) - 2 C IF (LSYS78) GO TO 90 ILOCP = ILOC + 4 DISPP(I) = ZZ(ILOCP) 90 CONTINUE DO 100 J = 1,NDOF ILOC = ILOC + 1 K = K + 1 DISP(K) = ZZ(ILOC) 100 CONTINUE C C COMPUTE THE GRID POINT FORCES C CALL GMMATS (AK(1),N,N,0, DISP(1),N,1,0, EFORC(1)) C DO 109 I = 1,3 109 ECHRG(I) = 0.0 C IF (LSYS78) GO TO 125 CALL GMMATS (AKUPH(1),N,NUMPT,0, DISPP(1),NUMPT,1,0, D9(1)) DO 110 I = 1,9 110 EFORC(I) = EFORC(I) + D9(I) C CALL GMMATS (AKUPH(1),N,NUMPT,1, DISP(1),N,1,0, D3(1)) CALL GMMATS (AKPH2(1),NUMPT,NUMPT,0, DISPP(1),NUMPT,1,0, ECHRG(1)) DO 120 I = 1,3 120 ECHRG(I) = ECHRG(I) + D3(I) C C COMPUTE THE STRESSES C 125 CALL GMMATS (SEL(1),NS,N,0, DISP(1),N,1,0, ESTRES(1)) C DO 129 I = 1,3 129 EFLUX(I) = 0.0 C IF (LSYS78) GO TO 145 CALL GMMATS (SELP1(1),NS,NUMPT,0, DISPP(1),NUMPT,1,0, D6(1)) DO 130 I = 1,6 130 ESTRES(I) = ESTRES(I) + D6(I) C CALL GMMATS (SELP2(1),NUMPT,N,0, DISP(1),N,1,0, EFLUX(1)) CALL GMMATS (SELP3(1),NUMPT,NUMPT,0, DISPP(1),NUMPT,1,0, D3(1)) C DO 140 I = 1,3 140 EFLUX(I) = EFLUX(I) + D3(I) C C COMPUTE THERMAL STRESS IF IT IS EXISTS C 145 IF (LDTEMP .EQ. -1) GO TO 300 DT = TZ IF (HARM .GT. 0.0) DT = 0.0 DT = (TI(1)+TI(2)+TI(3))/3.0 - DT DO 200 I = 1,NS ESTRES(I) = ESTRES(I) - DT*TS(I) 200 CONTINUE C C BRANCH TO INSERT HARMONIC STRESSES AND FORCES INTO BLOCK OR CLOCK C C KTYPE = 1 - REAL OUTPUT, STORED IN BLOCK, NOTHING IN CLOCK C KTYPE = 2 - COMPLEX OUTPUT C IPART = 1 - IMAGINARY PART OF COMPLEX OUTPUT, STORED IN BLOCK C IPART = 2 - REAL PART OF COMPLEX OUTPUT, STORED IN CLOCK C 300 IF (KTYPE.EQ.2 .AND. IPART.EQ.2) GO TO 505 C C INSERT HARMONIC STRESSES AND FORCES INTO BLOCK C DO 380 I = 1,14 IF (IBLOCK(1,I) .EQ. 1) GO TO 390 IF (HARM .NE. 0.0) GO TO 330 DO 310 IWA = 1,6 BLOCK(IWA+1,I) = ESTRES(IWA) BLOCK(IWA+7,I) = EFORC (IWA) 310 CONTINUE BLOCK(14,I) = EFORC(7) BLOCK(15,I) = EFORC(8) BLOCK(16,I) = EFORC(9) C IF (LSYS78) GO TO 320 BLOCK(17,I) = EFLUX(1) BLOCK(18,I) = EFLUX(2) BLOCK(19,I) = EFLUX(3) BLOCK(20,I) = ECHRG(1) BLOCK(21,I) = ECHRG(2) BLOCK(22,I) = ECHRG(3) 320 CONTINUE GO TO 380 330 CONTINUE NPHI = HARM*BLOCK(1,I)*DEGRAD SINPHI = SIN(NPHI) CONPHI = COS(NPHI) C GO TO (360,340), SORC C 340 BLOCK( 2,I) = BLOCK( 2,I) + CONPHI*ESTRES(1) BLOCK( 3,I) = BLOCK( 3,I) + CONPHI*ESTRES(2) BLOCK( 4,I) = BLOCK( 4,I) + CONPHI*ESTRES(3) BLOCK( 5,I) = BLOCK( 5,I) + CONPHI*ESTRES(4) BLOCK( 6,I) = BLOCK( 6,I) + SINPHI*ESTRES(5) BLOCK( 7,I) = BLOCK( 7,I) + SINPHI*ESTRES(6) BLOCK( 8,I) = BLOCK( 8,I) + CONPHI*EFORC(1) BLOCK( 9,I) = BLOCK( 9,I) + SINPHI*EFORC(2) BLOCK(10,I) = BLOCK(10,I) + CONPHI*EFORC(3) BLOCK(11,I) = BLOCK(11,I) + CONPHI*EFORC(4) BLOCK(12,I) = BLOCK(12,I) + SINPHI*EFORC(5) BLOCK(13,I) = BLOCK(13,I) + CONPHI*EFORC(6) BLOCK(14,I) = BLOCK(14,I) + CONPHI*EFORC(7) BLOCK(15,I) = BLOCK(15,I) + SINPHI*EFORC(8) BLOCK(16,I) = BLOCK(16,I) + CONPHI*EFORC(9) IF (LSYS78) GO TO 350 BLOCK(17,I) = BLOCK(17,I) + CONPHI*EFLUX(1) BLOCK(18,I) = BLOCK(18,I) + CONPHI*EFLUX(2) BLOCK(19,I) = BLOCK(19,I) + SINPHI*EFLUX(3) BLOCK(20,I) = BLOCK(20,I) + CONPHI*ECHRG(1) BLOCK(21,I) = BLOCK(21,I) + CONPHI*ECHRG(2) BLOCK(22,I) = BLOCK(22,I) + CONPHI*ECHRG(3) 350 CONTINUE GO TO 380 360 BLOCK( 2,I) = BLOCK( 2,I) + SINPHI*ESTRES(1) BLOCK( 3,I) = BLOCK( 3,I) + SINPHI*ESTRES(2) BLOCK( 4,I) = BLOCK( 4,I) + SINPHI*ESTRES(3) BLOCK( 5,I) = BLOCK( 5,I) + SINPHI*ESTRES(4) BLOCK( 6,I) = BLOCK( 6,I) - CONPHI*ESTRES(5) BLOCK( 7,I) = BLOCK( 7,I) - CONPHI*ESTRES(6) BLOCK( 8,I) = BLOCK( 8,I) + SINPHI*EFORC(1) BLOCK( 9,I) = BLOCK( 9,I) - CONPHI*EFORC(2) BLOCK(10,I) = BLOCK(10,I) + SINPHI*EFORC(3) BLOCK(11,I) = BLOCK(11,I) + SINPHI*EFORC(4) BLOCK(12,I) = BLOCK(12,I) - CONPHI*EFORC(5) BLOCK(13,I) = BLOCK(13,I) + SINPHI*EFORC(6) BLOCK(14,I) = BLOCK(14,I) + SINPHI*EFORC(7) BLOCK(15,I) = BLOCK(15,I) - CONPHI*EFORC(8) BLOCK(16,I) = BLOCK(16,I) - SINPHI*EFORC(9) IF (LSYS78) GO TO 370 BLOCK(17,I) = BLOCK(17,I) + SINPHI*EFLUX(1) BLOCK(18,I) = BLOCK(18,I) + SINPHI*EFLUX(2) BLOCK(19,I) = BLOCK(19,I) - CONPHI*EFLUX(3) BLOCK(20,I) = BLOCK(20,I) + SINPHI*ECHRG(1) BLOCK(21,I) = BLOCK(21,I) + SINPHI*ECHRG(2) BLOCK(22,I) = BLOCK(22,I) + SINPHI*ECHRG(3) 370 CONTINUE 380 CONTINUE C C COPY STRESSES AND FORCES INTO OUTPUT BLOCKS C FLUXES ARE EQUIVALENCED INTO STRES(J) C CHARGES ARE WRITTEN INTO FORCE(J) C 390 J = 2 ISTRES (1) = ELEMID ISTRES (2) = NELHAR DO 400 I = 1,NCOMP J = J + 1 STRES(J) = ESTRES(I) 400 CONTINUE K = 0 J = 2 IFORCE(1) = ELEMID IFORCE(2) = NELHAR DO 500 I = 1,NUMPT DO 500 KK = 1,NDOF J = J + 1 K = K + 1 FORCE(J) = EFORC(K) C IF (K.NE.3 .AND. K.NE.6 .AND. K.NE.9) GO TO 500 J = J + 1 K3 = K/3 FORCE(J) = ECHRG(K3) 500 CONTINUE C IF (KTYPE.EQ.1 .OR. (KTYPE.EQ.2 .AND. IPART.EQ.1)) GO TO 1000 C C INSERT HARMONIC STRESSES AND FORCES INTO CLOCK C 505 DO 580 I = 1,14 IF (ICLOCK(1,I) .EQ. 1) GO TO 600 IF (HARM .NE. 0.0) GO TO 530 DO 510 IWA = 1,6 CLOCK(IWA+1,I) = ESTRES(IWA) CLOCK(IWA+7,I) = EFORC (IWA) 510 CONTINUE CLOCK(14,I) = EFORC(7) CLOCK(15,I) = EFORC(8) CLOCK(16,I) = EFORC(9) C IF (LSYS78) GO TO 520 CLOCK(17,I) = EFLUX(1) CLOCK(18,I) = EFLUX(2) CLOCK(19,I) = EFLUX(3) CLOCK(20,I) = ECHRG(1) CLOCK(21,I) = ECHRG(2) CLOCK(22,I) = ECHRG(3) 520 CONTINUE GO TO 580 530 CONTINUE NPHI = HARM*CLOCK(1,I)*DEGRAD SINPHI = SIN(NPHI) CONPHI = COS(NPHI) C GO TO (560,540), SORC C 540 CLOCK( 2,I) = CLOCK( 2,I) + CONPHI*ESTRES(1) CLOCK( 3,I) = CLOCK( 3,I) + CONPHI*ESTRES(2) CLOCK( 4,I) = CLOCK( 4,I) + CONPHI*ESTRES(3) CLOCK( 5,I) = CLOCK( 5,I) + CONPHI*ESTRES(4) CLOCK( 6,I) = CLOCK( 6,I) + SINPHI*ESTRES(5) CLOCK( 7,I) = CLOCK( 7,I) + SINPHI*ESTRES(6) CLOCK( 8,I) = CLOCK( 8,I) + CONPHI*EFORC(1) CLOCK( 9,I) = CLOCK( 9,I) + SINPHI*EFORC(2) CLOCK(10,I) = CLOCK(10,I) + CONPHI*EFORC(3) CLOCK(11,I) = CLOCK(11,I) + CONPHI*EFORC(4) CLOCK(12,I) = CLOCK(12,I) + SINPHI*EFORC(5) CLOCK(13,I) = CLOCK(13,I) + CONPHI*EFORC(6) CLOCK(14,I) = CLOCK(14,I) + CONPHI*EFORC(7) CLOCK(15,I) = CLOCK(15,I) + SINPHI*EFORC(8) CLOCK(16,I) = CLOCK(16,I) + CONPHI*EFORC(9) C IF (LSYS78) GO TO 550 CLOCK(17,I) = CLOCK(17,I) + CONPHI*EFLUX(1) CLOCK(18,I) = CLOCK(18,I) + CONPHI*EFLUX(2) CLOCK(19,I) = CLOCK(19,I) + SINPHI*EFLUX(3) CLOCK(20,I) = CLOCK(20,I) + CONPHI*ECHRG(1) CLOCK(21,I) = CLOCK(21,I) + CONPHI*ECHRG(2) CLOCK(22,I) = CLOCK(22,I) + CONPHI*ECHRG(3) 550 CONTINUE GO TO 580 C 560 CLOCK( 2,I) = CLOCK( 2,I) + SINPHI*ESTRES(1) CLOCK( 3,I) = CLOCK( 3,I) + SINPHI*ESTRES(2) CLOCK( 4,I) = CLOCK( 4,I) + SINPHI*ESTRES(3) CLOCK( 5,I) = CLOCK( 5,I) + SINPHI*ESTRES(4) CLOCK( 6,I) = CLOCK( 6,I) - CONPHI*ESTRES(5) CLOCK( 7,I) = CLOCK( 7,I) - CONPHI*ESTRES(6) CLOCK( 8,I) = CLOCK( 8,I) + SINPHI*EFORC(1) CLOCK( 9,I) = CLOCK( 9,I) - CONPHI*EFORC(2) CLOCK(10,I) = CLOCK(10,I) + SINPHI*EFORC(3) CLOCK(11,I) = CLOCK(11,I) + SINPHI*EFORC(4) CLOCK(12,I) = CLOCK(12,I) - CONPHI*EFORC(5) CLOCK(13,I) = CLOCK(13,I) + SINPHI*EFORC(6) CLOCK(14,I) = CLOCK(14,I) + SINPHI*EFORC(7) CLOCK(15,I) = CLOCK(15,I) - CONPHI*EFORC(8) CLOCK(16,I) = CLOCK(16,I) + SINPHI*EFORC(9) IF (LSYS78) GO TO 570 CLOCK(17,I) = CLOCK(17,I) + SINPHI*EFLUX(1) CLOCK(18,I) = CLOCK(18,I) + SINPHI*EFLUX(2) CLOCK(19,I) = CLOCK(19,I) - CONPHI*EFLUX(3) CLOCK(20,I) = CLOCK(20,I) + SINPHI*ECHRG(1) CLOCK(21,I) = CLOCK(21,I) + SINPHI*ECHRG(2) CLOCK(22,I) = CLOCK(22,I) + SINPHI*ECHRG(3) 570 CONTINUE 580 CONTINUE C C COPY STRESSES AND FORCES INTO OUTPUT BLOCKS C FLUXES ARE EQUIVALENCED INTO STRES(J) C CHARGES ARE WRITTEN INTO FORCE(J) C 600 J = 2 ISTRES (1) = ELEMID ISTRES (2) = NELHAR DO 700 I = 1,NCOMP J = J + 1 STRES(J) = ESTRES(I) 700 CONTINUE K = 0 J = 2 IFORCE(1) = ELEMID IFORCE(2) = NELHAR DO 800 I = 1,NUMPT DO 800 KK = 1,NDOF J = J + 1 K = K + 1 FORCE(J) = EFORC(K) C IF (K.NE.3 .AND. K.NE.6 .AND. K.NE.9) GO TO 800 J = J + 1 K3 = K/3 FORCE(J) = ECHRG(K3) 800 CONTINUE C 1000 RETURN END ================================================ FILE: mis/strax3.f ================================================ SUBROUTINE STRAX3 ( AGAIN) C INTEGER IFORCE(25), ISTRES(100), ELEMID, IBLOCK(22,14) 1, ICLOCK(22,14),CANGLE REAL SAVEF(75), SAVES(75) C LOGICAL AGAIN C COMMON /SDR2X7/ DUM(100),STRESS(100),FORCE(25) 1, SKIP(25),BLOCK(22,14),CLOCK(22,14) C C SCRATCH BLOCK COMMON /SDR2X8/ U DISP(9), EFORC(9), ESTRES(9) 3, HARM, N, SINPHI, CONPHI, NPHI, NANGLE 3, ELEMID, UNU(123), NELHAR C COMMON /ISAVE / ISAVEF(75),ISAVES(75) C COMMON /SDR2DE/ DUM5(33), IPART C COMMON /SDR2X4/ DUM4(51),KTYPE C EQUIVALENCE ( ISTRES(1), STRESS(1)), ( IFORCE(1), FORCE(1)) 1, (IBLOCK(1,1), BLOCK(1,1)), (ICLOCK(1,1),CLOCK(1,1)) 2, (ISAVEF(1),SAVEF(1)),(ISAVES(1),SAVES(1)) 3, (NANGLE,CANGLE) C IF ( AGAIN ) GO TO 10 AGAIN = .TRUE. NANGLE = 0 10 NANGLE = NANGLE + 1 C C C BRANCH TO INSERT STRESSES AND FORCES INTO FORCE AND STRESS OR C SAVEF AND SAVES C C KTYPE=1 - REAL OUTPUT FROM BLOCK IS TRANSFERED TO CLOCK, THEN C STORED IN FORCE AND STRESS, NOTHING IN SAVEF AND SAVES C KTYPE=2 - COMPLEX OUTPUT C IPART=1 - IMAGINARY PART OF COMPLEX OUTPUT FROM BLOCK, STORED C IN SAVEF AND SAVES C IPART=2 - REAL PART OF COMPLEX OUTPUT FROM CLOCK STORED IN C FORCE AND STRESS C IF (KTYPE.EQ.2) GO TO 19 DO 15 I=1,22 DO 15 J=1,14 15 CLOCK(I,J) = BLOCK(I,J) 19 CONTINUE C C OUTPUT FORCES FOR THIS ANGLE C IFORCE(1)=ELEMID FORCE(2) = CLOCK(1,CANGLE) J = 2 DO 20 I=1,9 J = J + 1 FORCE(J) = CLOCK(I+7,CANGLE) C C OUTPUT CHARGES IF((I.NE.3).AND.(I.NE.6).AND.(I.NE.9)) GO TO 20 J = J + 1 K=19+I/3 FORCE(J) = CLOCK(K,CANGLE) 20 CONTINUE C C OUTPUT STRESSES ISTRES (1) = ELEMID STRESS(2) = CLOCK(1,CANGLE) DO 30 I = 1, 6 STRESS(2+I) = CLOCK(I+1,CANGLE) 30 CONTINUE C C OUTPUT FLUXES DO 32 I=1,3 32 STRESS(I+8) = CLOCK(I+16,CANGLE) C IF(KTYPE.EQ.2) GO TO 40 IF(CANGLE .EQ. 14) GO TO 100 IF(ICLOCK(1,CANGLE+1) .EQ. 1) GO TO 100 GO TO 90 C 40 CONTINUE C C OUTPUT FORCES FOR THIS ANGLE C ISAVEF(1)=ELEMID SAVEF(2) = BLOCK (1,NANGLE) J = 2 DO 50 I=1,9 J = J + 1 SAVEF(J) = BLOCK(I+7,NANGLE) C C OUTPUT CHARGES IF((I.NE.3).AND.(I.NE.6).AND.(I.NE.9)) GO TO 50 J = J + 1 K=19+I/3 SAVEF(J) = BLOCK(K,NANGLE) 50 CONTINUE C C OUTPUT STRESSES ISAVES(1) = ELEMID SAVES(2) = BLOCK (1, NANGLE) DO 60 I=1,6 SAVES(2+I) = BLOCK ( I+1,NANGLE) 60 CONTINUE C C OUTPUT FLUXES DO 70 I=1,3 70 SAVES(I+8) = BLOCK(I+16,NANGLE) C IF (NANGLE .EQ. 14) GO TO 100 IF (IBLOCK (1,NANGLE+1) .EQ. 1) GO TO 100 90 CONTINUE C RETURN 100 AGAIN = .FALSE. RETURN END ================================================ FILE: mis/strbs1.f ================================================ SUBROUTINE STRBS1 (IOPT) C C PHASE ONE FOR STRESS RECOVERY C C IOPT = 0 (BASIC BENDING TRIANGLE) C IOPT = 1 (SUB-CALCULATIONS FOR SQDPL1) C IOPT = 2 (SUB-CALCULATIONS FOR STRPL1) C C CALLS FROM THIS ROUTINE ARE MADE TO C C MAT - MATERIAL DATA ROUTINE C TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER C INVERS - SINGLE PRECISION INVERSE ROUTINE C GMMATS - SINGLE PRECISION MATRIX MULTIPLY AND TRANSPOSE C MESAGE - ERROR MESSAGE WRITER C LOGICAL STRAIN INTEGER SUBSCA,SUBSCB REAL KS,J2X2,ST(3) DIMENSION D(9),G2X2(4),J2X2(4),S(258),ECPT(25),G(9),HIC(18), 1 HIB(18),TITE(18),T(9),KS(30),HINV(36) C C COMMON /SDR2X3/ ESTWDS(32),ESTAWD(32),NGPS(32),STRSWD(32), C 1 FORCWD(32) C THE ABOVE COMMON BLOCK IS NOT USED IN THIS ROUTINE DIRECTLY. C C ESTWDS(I) = THE NUMBER OF WORDS IN THE EST INPUT BLOCK FOR C THE I-TH ELEMENT TYPE. C ESTAWD(I) = THE NUMBER OF WORDS COMPUTED IN PHASE-I FOR THE C I-TH ELEMENT TYPE, AND INSERTED INTO THE ESTA ARRAY C OF THE LABELED BLOCK SDR2X5 C NGPS (I) = THE NUMBER OF GRID POINTS ASSOCIATED WITH THE I-TH C ELEMENT TYPE. C STRSWD(I) = THE NUMBER OF WORDS COMPUTED IN PHASE-II FOR C THE I-TH ELEMENT TYPE, AND INSERTED INTO THE ESTA C ARRAY OF THE LABELED BLOCK SDR2X5. C FORCWD(I) = THE NUMBER OF WORDS COMPUTED IN PHASE-II FOR C THE I-TH ELEMENT TYPE, AND INSERTED INTO THE FORCES C ARRAY OF THE LABELED BLOCK SDR2X5. C COMMON /BLANK / IDUMMY(10), STRAIN COMMON /CONDAS/ CONSTS(5) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE,G2X211, 2 G2X212,G2X222 COMMON /SDR2X6/ A(225),XSUBB,XSUBC,YSUBC,E(18),TEMP,XBAR,AREA, 1 XCSQ,YBAR2,YCSQ,YBAR,XBSQ,PX2,XCYC,PY2,PXY2,XBAR3, 2 YBAR3,DETERM,PROD9(9),TEMP9(9),NSIZED,DUMDUM(4), 3 NPIVOT,THETA ,NSUBC,ISING,SUBSCA,SUBSCB,NERROR, 4 NBEGIN,NTYPED,XC,YC,YC2,YC3,ISUB,XC3,DUM55(1) COMMON /SDR2X5/ NECPT(1),NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU, 1 Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3, 2 X3,Y3,Z3,DUMB(76),PH1OUT(100),FORVEC(25) EQUIVALENCE (CONSTS(4),DEGRA),(D(1),G(1),A(79)), 1 (ECPT(1),NECPT(1)),(KS(1),PH1OUT(1)), 2 (G2X2(1),A(88)),(S(1),A(55)),(TITE(1),A(127)), 3 (J2X2(1),A(92)),(T(1),A(118)),(HIB(1),A(109)), 4 (HIC(1),A(127)),(HINV(1),A(73)),(ST(1),PH1OUT(99)) C C ECPT LIST FOR BASIC BENDING TRIANGLE NAME IN C THIS C ECPT ROUTINE TYPE C -------- ----------------------------------- -------- ------- C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID 1 MATID1 INTEGER C ECPT( 7) = I = MOMENT OF INERTIA EYE REAL C ECPT( 8) = MATERIAL ID 2 MATID2 INTEGER C ECPT( 9) = T2 T2 REAL C ECPT(10) = NON-STRUCTURAL-MASS FMU REAL C ECPT(11) = Z1 Z11 REAL C ECPT(12) = Z2 Z22 REAL C ECPT(13) = COORD. SYSTEM ID 1 NECPT(13) INTEGER C ECPT(14) = X1 X1 REAL C ECPT(15) = Y1 Y1 REAL C ECPT(16) = Z1 Z1 REAL C ECPT(17) = COORD. SYSTEM ID 2 NECPT(17) INTEGER C ECPT(18) = X2 X2 REAL C ECPT(19) = Y2 Y2 REAL C ECPT(20) = Z2 Z2 REAL C ECPT(21) = COORD. SYSTEM ID 3 NECPT(21) INTEGER C ECPT(22) = X3 X3 REAL C ECPT(23) = Y3 Y3 REAL C ECPT(24) = Z3 Z3 REAL C ECPT(25) = ELEMENT TEMPERATURE ELTEMP REAL C IF (IOPT .GT. 0) GO TO 30 ELTEMP = ECPT(25) C C SET UP I, J, K VECTORS STORING AS FOLLOWS AND ALSO CALCULATE C X-SUB-B, X-SUB-C, AND Y-SUB-C. C C E(11), E(14), E(17) WILL BE THE I-VECTOR. C E(12), E(15), E(18) WILL BE THE J-VECTOR. C E( 1), E( 4), E( 7) WILL BE THE K-VECTOR. C C FIND I-VECTOR = RSUBB - RUBA (NON-NORMALIZED) C E(11) = X2 - X1 E(14) = Y2 - Y1 E(17) = Z2 - Z1 C C FIND LENGTH = X-SUB-B COOR. IN ELEMENT SYSTEM C XSUBB = SQRT(E(11)**2 + E(14)**2 + E(17)**2) IF (XSUBB .GT. 1.0E-06) GO TO 10 CALL MESAGE (-30,37,ECPT(1)) C C NORMALIZE I-VECTOR WITH X-SUB-B C 10 E(11) = E(11)/XSUBB E(14) = E(14)/XSUBB E(17) = E(17)/XSUBB C C TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN E(2), E(5), E(8) C E(2) = X3 - X1 E(5) = Y3 - Y1 E(8) = Z3 - Z1 C C X-SUB-C = I . (RSUBC - RSUBA), THUS C XSUBC = E(11)*E(2) + E(14)*E(5) + E(17)*E(8) C C CROSSING I-VECTOR TO (RSUBC - RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(1) = E(14)*E( 8) - E( 5)*E(17) E(4) = E( 2)*E(17) - E(11)*E( 8) E(7) = E(11)*E( 5) - E( 2)*E(14) C C FIND LENGTH = Y-SUB-C COOR. IN ELEMENT SYSTEM C YSUBC = SQRT(E(1)**2 + E(4)**2 + E(7)**2) IF (YSUBC .GT. 1.0E-06) GO TO 20 CALL MESAGE (-30,37,ECPT(1)) C C NORMALIZE K-VECTOR WITH Y-SUB-C C 20 E(1) = E(1)/YSUBC E(4) = E(4)/YSUBC E(7) = E(7)/YSUBC C C NOW HAVING I AND K VECTORS GET -- J = K CROSS I C E(12) = E( 4)*E(17) - E(14)*E( 7) E(15) = E(11)*E( 7) - E( 1)*E(17) E(18) = E( 1)*E(14) - E(11)*E( 4) C C NORMALIZE J-VECTOR FOR COMPUTER EXACTNESS JUST TO MAKE SURE C TEMP = SQRT(E(12)**2 + E(15)**2 + E(18)**2) E(12) = E(12)/TEMP E(15) = E(15)/TEMP E(18) = E(18)/TEMP E( 2) = 0.0 E( 3) = 0.0 E( 5) = 0.0 E( 6) = 0.0 E( 8) = 0.0 E( 9) = 0.0 E(10) = 0.0 E(13) = 0.0 E(16) = 0.0 C C CONVERT ANGLE FROM DEGREES TO RADIANS STORING IN THETA. C THETA = ANGLE*DEGRA SINTH = SIN(THETA) COSTH = COS(THETA) IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 C C SETTING UP G MATRIX C 30 MATID = MATID1 INFLAG = 2 CALL MAT (ECPT(1)) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT) C DO 50 I = 1,9 50 D(I) = G(I)*EYE IF (IOPT .EQ. 0) CALL GMMATS (D,3,3,0, ALPHA1,3,1,0, ST(1)) C XBAR =(XSUBB + XSUBC)/3.0 YBAR = YSUBC/3.0 IF (IOPT .GT. 0) GO TO 60 XC = XBAR YC = YBAR C C FORMING K 5X6 AND STORING TEMPORARILY IN PH1OUT OUTPUT SPACE. C S (EQUIVALENCED) C 60 XC3 = 3.0*XC YC3 = 3.0*YC YC2 = 2.0*YC IF (STRAIN) GO TO 63 KS( 1) = D(1) KS( 2) = D(3) KS( 3) = D(2) KS( 4) = D(1)*XC3 KS( 5) = D(2)*XC + D(3)*YC2 KS( 6) = D(2)*YC3 KS( 7) = D(2) KS( 8) = D(6) KS( 9) = D(5) KS(10) = D(2)*XC3 KS(11) = D(5)*XC + D(6)*YC2 KS(12) = D(5)*YC3 KS(13) = D(3) KS(14) = D(9) KS(15) = D(6) KS(16) = D(3)*XC3 KS(17) = D(6)*XC + D(9)*YC2 KS(18) = D(6)*YC3 C C ROWS 4 AND 5 C KS(19) = 0.0 KS(20) = 0.0 KS(21) = 0.0 KS(22) =-D(1)*6.0 KS(23) =-D(2)*2.0 - D(9)*4.0 KS(24) =-D(6)*6.0 KS(25) = 0.0 KS(26) = 0.0 KS(27) = 0.0 KS(28) =-D(3)*6.0 KS(29) =-D(6)*6.0 KS(30) =-D(5)*6.0 GO TO 67 63 CONTINUE DO 65 I = 1,30 KS(I) = 0.0 65 CONTINUE KS( 1) = 1.0 KS( 4) = XC3 KS( 9) = 1.0 KS(11) = XC KS(12) = YC3 KS(14) = 0.5 KS(17) = YC 67 CONTINUE C C MULTIPLY FIRST 3 ROWS BY 2.0 C DO 70 I = 1,18 70 KS(I) = KS(I)*2.0 C XCSQ = XSUBC**2 YCSQ = YSUBC**2 XBSQ = XSUBB**2 XCYC = XSUBC*YSUBC C C F1LL (HBAR) MATRIX STORING AT A(37) TRHU A(72) C DO 90 I = 37,72 90 A(I) = 0.0 C A(37) = XBSQ A(40) = XBSQ*XSUBB A(44) = XSUBB A(49) =-2.0*XSUBB A(52) =-3.0*XBSQ A(55) = XCSQ A(56) = XCYC A(57) = YCSQ A(58) = XCSQ*XSUBC A(59) = YCSQ*XSUBC A(60) = YCSQ*YSUBC A(62) = XSUBC A(63) = YSUBC*2. A(65) = XCYC*2.0 A(66) = YCSQ*3.0 A(67) =-2.0*XSUBC A(68) =-YSUBC A(70) =-3.0*XCSQ A(71) =-YCSQ C IF (T2 .EQ. 0.0) GO TO 110 C C ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 500 C ARE NECESSARY IF T2 IS NON-ZERO. C C GET THE G2X2 MATRIX C MATID = MATID2 INFLAG = 3 CALL MAT (ECPT(1)) IF (G2X211.EQ.0.0 .AND. G2X212.EQ.0.0 .AND. G2X222.EQ.0.0) 1 GO TO 110 G2X2(1) = G2X211*T2 G2X2(2) = G2X212*T2 G2X2(3) = G2X212*T2 G2X2(4) = G2X222*T2 C DETERM = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2) J2X2(1) = G2X2(4)/DETERM J2X2(2) =-G2X2(2)/DETERM J2X2(3) =-G2X2(3)/DETERM J2X2(4) = G2X2(1)/DETERM C C (H ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE C YQ RIGHT PORTION IS COMPUTED AND USED AS A (2X3). THE LEFT C 2X3 PORTION IS NULL. THE RIGHT PORTION WILL BE STORED AT C A(73)...A(78) UNTIL NOT NEEDED ANY FURTHER. C TEMP = 2.0*D(2) + 4.0*D(9) A(73) = -6.0*(J2X2(1)*D(1) + J2X2(2)*D(3)) A(74) = -J2X2(1)*TEMP + 6.0*J2X2(2)*D(6) A(75) = -6.0*(J2X2(1)*D(6) + J2X2(2)*D(5)) A(76) = -6.0*(J2X2(2)*D(1) + J2X2(4)*D(3)) A(77) = -J2X2(2)*TEMP + 6.0*J2X2(4)*D(6) A(78) = -6.0*(J2X2(2)*D(6) + J2X2(4)*D(5)) C C THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H ) MATRIX (2X3) C YQ C C ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF(H )(H ) C UY YQ C THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW. C NO (H ) MATRIX IS ACTUALLY COMPUTED DIRECTLY. C UY C C THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17. C DO 100 I = 1,3 A(I+39) = A(I+39) + XSUBB*A(I+72) 100 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75) C C THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO C 110 CONTINUE C C AT THIS POINT INVERT (H) WHICH IS STORED AT A(37) THRU A(72) C STORE INVERSE BACK IN A(37) THRU A(72) C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (6,A(37),6,A(73),0,DETERM,ISING,A(79)) C C CHECK TO SEE IF H WAS SINGULAR C IF (ISING .NE. 2) GO TO 120 C C C ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION. C CALL MESAGE (-30,38,ECPT(1)) C C SAVE H-INVERSE IF TRI-PLATE IS CALLING C 120 DO 130 I = 1,36 130 HINV(I) = A(I+36) C C FILL S-MATRIX, EQUIVALENCED TO A(55). (6X3) C S( 1) = 1.0 S( 2) = 0.0 S( 3) =-XSUBB S( 4) = 0.0 S( 5) = 1.0 S( 6) = 0.0 S( 7) = 0.0 S( 8) = 0.0 S( 9) = 1.0 S(10) = 1.0 S(11) = YSUBC S(12) =-XSUBC S(13) = 0.0 S(14) = 1.0 S(15) = 0.0 S(16) = 0.0 S(17) = 0.0 S(18) = 1.0 C C COMPUTE S , S , AND S NO TRANSFORMATIONS C A B C C C -1 C S = - K H S , S = K H , S = K H C A S B S IB C S IC C C S COMPUTATION. C A C CALL GMMATS (HINV(1),6,6,0, S(1),6,3,0, A(16)) C C DIVIDE H-INVERSE INTO A LEFT 6X3 AND RIGHT 6X3 PARTITION. C I = 0 J =-6 150 J = J + 6 K = 0 160 K = K + 1 I = I + 1 ISUB = J + K HIB(I) = HINV(ISUB ) HIC(I) = HINV(ISUB + 3) IF (K .LT. 3 ) GO TO 160 IF (J .LT. 30) GO TO 150 C CALL GMMATS (KS(1),5,6,0, A(16),6,3,0, A(1)) C C MULTIPLY S SUB A BY (-1) C DO 170 I = 1,15 170 A(I) = -A(I) C C S COMPUTATION C B C CALL GMMATS (KS,5,6,0, HIB,6,3,0, A(16)) C C S COMPUTATION C C C CALL GMMATS (KS,5,6,0, HIC,6,3,0, A(31)) C C RETURN IF TRI OR QUAD PLATE ROUTINE IS CALLING. C IF (IOPT .GT. 0) RETURN C T C TRANSFORM S , S , S WITH E T , I = A,B,C C A B C I C T T C COMPUTING TRANSPOSE OF E T = T E C I I DO 200 I = 1,3 C C POINTER TO S MATRIX = 15*I - 14 C I C POINTER TO OUTPUT POSITION = 30*I - 21 C C CHECK TO SEE IF T IS NEEDED. C IF (NECPT(4*I+9)) 180,190,180 180 CALL TRANSS (NECPT(4*I+9),T) CALL GMMATS (T,3,3,1, E( 1),3,3,0, TITE( 1)) CALL GMMATS (T,3,3,1, E(10),3,3,0, TITE(10)) CALL GMMATS (A(15*I-14),5,3,0, TITE,6,3,1, PH1OUT(30*I-21)) GO TO 200 190 CALL GMMATS (A(15*I-14),5,3,0, E,6,3,1, PH1OUT(30*I-21)) 200 CONTINUE PH1OUT(1) = ECPT(1) PH1OUT(2) = ECPT(2) PH1OUT(3) = ECPT(3) PH1OUT(4) = ECPT(4) C C PH1OUT(5) IS A DUMMY C PH1OUT(6) = ECPT( 7) PH1OUT(7) = ECPT(11) PH1OUT(8) = ECPT(12) C C PHASE I BASIC BENDING TRIANGLE SDR2 COMPLETE C RETURN END ================================================ FILE: mis/stri31.f ================================================ SUBROUTINE STRI31 C C ROUTINE TO RECOVER CTRIA3 ELEMENT FORCES, STRAINS, AND STRESSES. C PHASE 1. C C WAS NAMED T3ST1D/S IN UAI CODE C C EST LISTING C C WORD TYP DESCRIPTION C ---------------------------------------------------------------- C ECT: C 1 I ELEMENT ID, EID C 2-4 I SIL LIST, GRIDS 1,2,3 C 5-7 R MEMBRANE THICKNESSES T, AT GRIDS 1,2,3 C 8 R MATERIAL PROPERTY ORIENTAION ANGLE, THETA C OR I COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD) C 9 I TYPE FLAG FOR WORD 8 C 10 R GRID OFFSET, ZOFF C EPT: C 11 I MATERIAL ID FOR MEMBRANE, MID1 C 12 R ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED) C 13 I MATERIAL ID FOR BENDING, MID2 C 14 R MOMENT OF INERTIA FACTOR, I (BENDING) C 15 I MATERIAL ID FOR TRANSVERSE SHEAR, MID3 C 16 R TRANSV. SHEAR CORRECTION FACTOR, TS/T C 17 R NON-STRUCTURAL MASS, NSM C 18-19 R STRESS FIBER DISTANCES, Z1,Z2 C 20 I MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4 C 21 R MATERIAL ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD) C (DEFAULT FOR WORD 8) C 22 I TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9) C 23 I INTEGRATION ORDER FLAG C 24 R STRESS ANGLE OF RATATION, THETA C OR I COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD) C 25 I TYPE FLAG FOR WORD 24 C 26 R OFFSET, ZOFF1 (DEFAULT FOR WORD 10) C BGPDT: C 27-38 I/R CID,X,Y,Z FOR GRIDS 1,2,3 C ETT: C 39 I ELEMENT TEMPERATURE C C C **************** RESIDES IN COMMON BLOCK SDR2X5 (AFTER EST) C PH1OUT DATA BLOCK TOTAL NO. OF WORDS = 713 C **************** C C PH1OUT( 1) = ELID, ELEMENT ID C PH1OUT( 2- 4) = SIL NUMBERS C PH1OUT( 5- 7) = ARRAY IORDER C PH1OUT( 8) = TSUB0, REFERENCE TEMP. C PH1OUT( 9-10) = Z1 & Z2, FIBER DISTANCES C PH1OUT(11) = ID OF THE ORIGINAL PCOMPI PROPERTY ENTRY C PH1OUT(12) = DUMMY WORD (FOR ALLIGNMENT) C C PH1RST( 1) = AVGTHK, AVERAGE THICKNESS C PH1RST( 2) = MOMINR, MOMENT OF INER. FACTOR C PH1RST( 3-38) = 6X6 MATERIAL PROPERTY MATRIX (NO SHEAR) C PH1RST(39-41) = THERMAL EXPANSION COEFFICIENTS FOR MEMBRANE C PH1RST(42-44) = THERMAL EXPANSION COEFFICIENTS FOR BENDING C PH1RST(45-47) = CORNER NODE THICKNESSES C PH1RST(48) = OFFSET OF ELEMENT FROM GP PLANE C PH1RST(49-57) = 3X3 USER-TO-MATERIAL COORD. TRNASF. MATRIX UEM C PH1RST(58-66) = 3X3 ELEM-TO-STRESS/STRAIN TRANSF. TENSOR TES C PH1RST(67-93) = THREE 3X3 GLOBAL-TO-ELEM COORD. TRANSFORMATION C NODAL MATRICES TEG, ONE FOR EACH NODE C C THE FOLLOWING IS REPEATED FOR EACH EVALUATION POINT (4 TIMES, AT C THE CENTER OF THE ELEMENT AND AT 3 STANDARD TRIANGULAR POINTS). C THE CHOICE OF THE FINAL STRESS/FORCE OUTPUT POINTS IS MADE AT THE C SUBCASE LEVEL (PHASE 2). C C 1 ELEMENT THICKNESS AT THIS POINT C 2 - 5 OUT-OF-PLANE-SHEAR-FORCE/STRAIN MATRIX C 6 - 8 ELEMENT SHAPE FUNCTION VALUES C 8+1 - 8+8*NDOF STRAIN RECOVERY MATRIX C C C ***************** RESIDES IN COMMON BLOCK SDR2X6 C IELOUT DATA BLOCK CONTAINS DATA FOR GPSRN C ***************** (TOTAL NO OF WORDS = 77) C C 1 ELEMENT ID C 2 AVERAGE THICKNESS C C THE FOLLOWING IS REPEATED FOR EACH NODE. C C WORD 1 SIL NUMBER C WORD 2-10 [TSB] FOR Z1 C WORD 11-19 [TSB] FOR Z2 C WORD 20-22 NORMAL VECTOR IN BASIC COORD. SYSTEM C WORD 23-25 GRID COORDS IN BASIC COORD. SYSTEM C C LOGICAL MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH, 1 SHEART,NOALFA,USERST INTEGER NPHI(100),NEST(39),SIL(3),SILO,IGPDT(4,3),ELID, 1 NECPT(4),MID(4),PIDO,SCSID,FLAGS,HUNMEG,ITHERM, 2 NAME(2),INDEX(2,3),SYSBUF,NOUT,NOGO,PREC REAL RELOUT(300),GPTH(3),BGPDT(4,3),ECPT(4), 1 KHEAT,HTCP,TSUB0,GSUBE,ELTEMP,Z1O,Z2O REAL PH1RST,DGPTH(3),TH,AVGTHK,GPNORM(4,3), 1 EPNORM(4,3),EGPDT(4,3),CENTE(3),OFFSET,ALPHA(6), 2 GI(36),RHO,JOG,JOK,K11,K22,ZZ(4),AIC(18), 3 EGNOR(4),TSS,LX,LY,EDGLEN(3),MOMINR,TS,REALI,TSI, 4 TEU(9),TES(9),TEB(9),TBG(9),TUS(9),TEM(9),TSB(9), 5 TSM(9),TUB(9),TUM(9),THETAM,THETAS,UEM(9),VEM(4), 6 DETERM,BDUM(3),SHPT(3),BTERMS(6),BMAT1(486), 7 BMATRX(162),BMTRX(36),DRKCE(33) COMMON /SYSTEM/ SYSBUF,NOUT,NOGO,IDUM(51),PREC,ITHERM COMMON /SDR2X5/ EST(100), 1 ELID,SILO(3),IORDER(3),TSUB0,Z1O,Z2O,PIDO,IDUMAL, 1 PH1RST(701) COMMON /SDR2X6/ IELOUT(300) COMMON /MATIN / MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT COMMON /HMTOUT/ KHEAT(7),TYPE COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH EQUIVALENCE (EST( 1),NEST(1) ), (EST( 2),SIL(1)), 1 (EST( 5),GPTH(1) ), (EST(10),ZOFF ), 2 (EST(12),ELTH ), (EST(23),INT ), 3 (EST(26),ZOFF1 ), (EST(39),TEMPEL), 4 (EST(27),BGPDT(1,1), IGPDT(1,1)) EQUIVALENCE (NPHI( 1),ELID ), (NPHI (27),DRKCE(1) ), 1 (NECPT(1),ECPT(1)), (IELOUT(1),RELOUT(1)), 2 (HTCP,KHEAT(4)) DATA HUNMEG, ISTART / 100000000, 93 /, EPS / 1.0E-17 / DATA NAME / 4HTRIA , 4H3 / C C INITIALIZE C NNODE = 3 MOMINR = 0.0 TS = 0.0 ELTEMP = TEMPEL ELID = NEST(1) Z1O = EST(18) Z2O = EST(19) PIDO = NEST(11) - HUNMEG MCSID = NEST(21) SCSID = NEST(24) FLAGS = NEST(25) USERST = SCSID.LT.0 .AND. FLAGS.EQ.1 NOALFA = .FALSE. SHEART = .TRUE. OFFSET = ZOFF IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1 C C START FILLING IN THE DATA BLOCKS C IELOUT(1) = ELID DO 20 I = 1,3 IELOUT(3+(I-1)*25) = SIL(I) DO 10 J = 1,3 RELOUT(25*I+J-1) = BGPDT(J+1,I) 10 CONTINUE 20 CONTINUE C C SET UP THE ELEMENT FORMULATION C CALL T3SETS (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM, 1 IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID) IF (IERR .NE. 0) GO TO 600 CALL GMMATS (TEB,3,3,0, TUB,3,3,1, TEU) DO 30 I = 1,3 SILO(I) = SIL(I) 30 CONTINUE C C SET THE NUMBER OF DOF'S C NNOD2 = NNODE*NNODE NDOF = NNODE*6 NPART = NDOF*NDOF ND2 = NDOF*2 ND6 = NDOF*6 ND7 = NDOF*7 ND8 = NDOF*8 ND9 = NDOF*9 C C PASS THE LOCATION OF THE ELEMENT CENTER FOR TRANSFORMATIONS. C DO 40 IEC = 2,4 ECPT(IEC) = CENTE(IEC-1) 40 CONTINUE C C STRESS TRANSFORMATIONS C IF (.NOT.USERST) GO TO 50 EST (24) = 0.0 NEST(25) = 0 50 CALL SHCSGS (*620,NEST(25),NEST(24),EST(24),NEST(25),NEST(24), 1 EST(24),NECPT,TUB,SCSID,THETAS,TUS) CALL GMMATS (TEU,3,3,0, TUS,3,3,0, TES) C C OBTAIN MATERIAL INFORMATION C C SET MATERIAL FLAGS C 0.83333333 = 5.0/6.0 C IF (NEST(13) .NE. 0) MOMINR = EST(14) IF (NEST(13) .NE. 0) TS = EST(16) IF ( EST(16) .EQ. 0.0) TS = 0.83333333 IF (NEST(13).EQ.0 .AND. NEST(11).GT.HUNMEG) TS = 0.83333333 C MID(1) = NEST(11) MID(2) = NEST(13) MID(3) = NEST(15) MID(4) = NEST(20) C MEMBRN = MID(1).GT.0 BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0 SHRFLX = MID(3).GT.0 MBCOUP = MID(4).GT.0 NORPTH = .FALSE. C C SET UP TRANSFORMATION MATRIX FROM MATERIAL TO ELEMENT COORD. SYSTM C CALL SHCSGS (*610,NEST(9),NEST(8),NEST(8),NEST(21),NEST(20), 1 NEST(20),NECPT,TUB,MCSID,THETAM,TUM) C C BRANCH ON FORMULATION TYPE, HEAT C IF (ITHERM .NE. 0) GO TO 500 C C FETCH MATERIAL PROPERTIES C CALL GMMATS (TEU,3,3,0, TUM,3,3,0, TEM) CALL GMMATS (TES,3,3,1, TEM,3,3,0, TSM) CALL SHGMGS (*630,ELID,TSM,MID,TS,NOALFA,GI,RHO,GSUBE,TSUB0, 1 EGNOR,ALPHA) C C TURN OFF THE COUPLING FLAG WHEN MID4 IS PRESENT WITH ALL C CALCULATED ZERO TERMS. C IF (.NOT.MBCOUP) GO TO 70 DO 60 I = 28,36 IF (ABS(GI(I)) .GT. EPS) GO TO 70 60 CONTINUE MBCOUP = .FALSE. 70 CONTINUE C C CONTINUE FILLING IN THE DATA BLOCKS C PH1RST( 1) = AVGTHK PH1RST( 2) = MOMINR PH1RST(48) = OFFSET RELOUT( 2) = AVGTHK C C PUT NORMALS IN IELOUT, GRID THICKNESS IN PH1OUT C DO 80 I = 1,NNODE IO = IORDER(I) IOP = (IO-1)*25 + 21 RELOUT(IOP+1) = GPNORM(2,I) RELOUT(IOP+2) = GPNORM(3,I) RELOUT(IOP+3) = GPNORM(4,I) PH1RST(44+IO) = DGPTH(I) 80 CONTINUE C C CALCULATE [TSB] AND STORE IT IN IELOUT. C CALL GMMATS (TES,3,3,1, TEB,3,3,0, TSB) ND25 = NNODE*25 DO 100 IP2 = 3,ND25,25 DO 90 IX = 1,9 RELOUT(IP2+IX ) = TSB(IX) RELOUT(IP2+IX+9) = TSB(IX) 90 CONTINUE 100 CONTINUE C C STORE ALPHA IN PH1RST(39-44) C DO 110 IALF = 1,6 PH1RST(38+IALF) = ALPHA(IALF) 110 CONTINUE C C STORE UEM IN PH1RST(49-57) C STORE TES IN PH1RST(58-66) C CALL SHSTTS (TEM,UEM,VEM) DO 120 LL = 1,9 PH1RST(48+LL) = UEM(LL) PH1RST(57+LL) = TES(LL) 120 CONTINUE C C STORE THE 6X6 [G] IN PH1RST C DO 130 IG = 3,38 PH1RST(IG) = 0.0 130 CONTINUE C IF (.NOT.MEMBRN) GO TO 160 DO 150 IG = 1,3 IG1 = (IG-1)*6 + 2 IG2 = (IG-1)*3 DO 140 JG = 1,3 PH1RST(IG1+JG) = GI(IG2+JG) 140 CONTINUE 150 CONTINUE C 160 IF (.NOT.BENDNG) GO TO 210 DO 180 IG = 1,3 IG1 = (IG-1)*6 + 23 IG2 = (IG-1)*3 + 9 DO 170 JG = 1,3 PH1RST(IG1+JG) = GI(IG2+JG)*MOMINR 170 CONTINUE 180 CONTINUE C IF (.NOT.MBCOUP) GO TO 210 DO 200 IG = 1,3 IG3 = (IG-1)*3 IG1 = IG3 + 5 IG2 = IG3 + 27 IG3 = IG3 + 20 DO 190 JG = 1,3 PH1RST(IG1+JG) = GI(IG2+JG) PH1RST(IG3+JG) = GI(IG2+JG) 190 CONTINUE 200 CONTINUE 210 CONTINUE C C CALCULATE [TEG] FOR EACH NODE AND STORE IT IN PH1RST C DO 220 I = 1,NNODE IP = 67 + (I-1)*9 CALL TRANSS (IGPDT(1,I),TBG) CALL GMMATS (TEB,3,3,0, TBG,3,3,0, PH1RST(IP)) 220 CONTINUE C C GET THE GEOMETRY CORRECTION TERMS C IF (.NOT.BENDNG) GO TO 230 CALL T3GEMS (IERR,EGPDT,IORDER,GI(10),GI(19),LX,LY,EDGLEN,SHRFLX, 1 AIC,JOG,JOK,K11,K22) IF (IERR .NE. 0) GO TO 600 C C REDUCED INTEGRATION C 230 IF (INT .NE. 0) GO TO 260 C C DETERMINE THE AVERAGE [B] FOR OUT-OF-PLANE SHEAR C DO 240 IPT = 1,3 KPT = (IPT-1)*ND9 + 1 CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC, 1 SHPT,BTERMS,BMAT1(KPT)) IF (IERR .NE. 0) GO TO 600 240 CONTINUE C DO 250 I = 1,NDOF BMTRX(I ) = BMAT1(I+ND6) +BMAT1(I+ND6+ND9) +BMAT1(I+ND6+2*ND9) BMTRX(I+NDOF) = BMAT1(I+ND7) +BMAT1(I+ND7+ND9) +BMAT1(I+ND7+2*ND9) 250 CONTINUE C C STRAIN/STRESS EVALUATION LOOP C C PRESET THE PH1RST COUNTER TO THE START OF THE REPEATED SECTION C WHICH WILL NOW BE FILLED. C 260 ICOUNT = ISTART C DO 400 IPT = 4,7 C CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC, 1 SHPT,BTERMS,BMATRX) IF (IERR .NE. 0) GO TO 600 C IF (INT .NE. 0) GO TO 310 DO 300 IX = 1,NDOF BMATRX(IX+ND6) = BMTRX(IX ) BMATRX(IX+ND7) = BMTRX(IX+NDOF) 300 CONTINUE C C FINISH FILLING IN THE DATA BLOCKS C C STORE THICKNESS C 310 PH1RST(ICOUNT+1) = TH C C STORE [G3] C IF (.NOT.BENDNG) GO TO 330 REALI = MOMINR*TH*TH*TH/12.0 TSI = TS*TH TSS = 1.0/(2.0*12.0*REALI) C ZZ(1) = (JOG/TSI)* GI(22) + TSS*JOK*K22 ZZ(2) =-(JOG/TSI)*(GI(20) + GI(21))/2.0 ZZ(3) = ZZ(2) ZZ(4) = (JOG/TSI)* GI(19) + TSS*JOK*K11 C CALL INVERS (2,ZZ,2,BDUM,0,DETERM,ISING,INDEX) IF (ISING .NE. 1) GO TO 600 C DO 320 IG = 1,4 PH1RST(ICOUNT+1+IG) = ZZ(IG) 320 CONTINUE GO TO 350 C 330 DO 340 IG = 1,4 PH1RST(ICOUNT+1+IG) = 0.0 340 CONTINUE C C STORE SHAPE FUNCTION VALUES C 350 DO 360 I = 1,NNODE PH1RST(ICOUNT+5+I) = SHPT(I) 360 CONTINUE C C STORE THE STRAIN RECOVERY MATRIX C DO 370 IPH = 1,ND8 PH1RST(ICOUNT+8+IPH) = BMATRX(IPH) 370 CONTINUE C C END OF THE EVALUATION LOOP C C INCREMENT THE PH1RST COUNTER C ICOUNT = ICOUNT + 8 + 8*NDOF C 400 CONTINUE GO TO 700 C C C BEGINNING OF HEAT FORCE RECOVERY C 500 CONTINUE C C SET UP FOR THE UNIVERSAL PHASE 2 HEAT RECOVERY C NPHI(22) = 2 NPHI(23) = NNODE NPHI(24) = NAME(1) NPHI(25) = NAME(2) C SHEART = .FALSE. IPT = 4 CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC, 1 SHPT,BTERMS,BMATRX) IF (IERR .NE. 0) GO TO 600 C MATID = NEST(11) INFLAG = 2 THETAS = THETAS - THETAM SINMAT = SIN(THETAS) COSMAT = COS(THETAS) CALL HMAT (ELID) C DRKCE(1) = KHEAT(1) DRKCE(2) = KHEAT(2) DRKCE(3) = KHEAT(2) DRKCE(4) = KHEAT(3) C TES(3) = TES(4) TES(4) = TES(5) CALL GMMATS (TES,2,2,1, BTERMS,2,NNODE,0, DRKCE(10)) C GO TO 700 C C C FATAL ERRORS C C CTRIA3 ELEMENT HAS ILLEGAL GEOMETRY OR CONNECTIONS C 600 J = 224 GO TO 640 C C THE X-AXIS OF THE MATERIAL COORDINATE SYSTEM HAS NO PROJECTION C ON THE PLANE OF THE CTRIA3 ELEMENT C 610 J = 225 NEST(2) = MCSID GO TO 640 C C THE X-AXIS OF THE STRESS COORDINATE SYSTEM ID HAS NO PROJECTION C ON THE PLANE OF THE CTRIA3 ELEMENT C 620 J = 227 NEST(2) = SCSID GO TO 640 C C ILLEGAL DATA DETECTED ON MATERIAL ID REFERENCED BY CTRIA3 ELEMENT C FOR MID3 APPLICATION C 630 J = 226 NEST(2) = MID(3) C 640 CALL MESAGE (30,J,NEST(1)) NOGO = 1 C 700 CONTINUE RETURN END ================================================ FILE: mis/stri32.f ================================================ SUBROUTINE STRI32 C C ROUTINE TO RECOVER CTRIA3 ELEMENT FORCES, STRAINS, AND STRESSES. C PHASE 2. C C WAS NAMED T3ST2D/S (DISP) IN UAI CODE C C ALGORITHM: C C 1- STRAIN RECOVERY DATA IS SENT BY PHASE 1 THRU PH1OUT IN /SDR2X7/ C WHICH INCLUDES ALL THE NECESSARY TRANSFORMATIONS AND STRAIN C RECOVERY MATRICES. A MAJOR PORTION OF THE DATA IS REPEATED FOR C EACH STRESS EVALUATION POINT. C 2- GLOBAL DISPLACEMENT VECTOR, WHICH RESIDES IN CORE, IS PASSED TO C THE ROUTINE THRU THE CALLING SEQUENCE. C 3- NSTROP IN /SDR2C1/ CONTAINS THE STRESS OUTPUT REQUEST OPTION C FOR THE CURRENT SUBCASE. C 4- WORD 151 OF /SDR2DE/ CONTAINS THE STRAIN OUTPUT REQUEST OPTION C FOR THE CURRENT SUBCASE (NEPSOP). C 5- ELEMENT/GRID POINT TEMPERATURE DATA ENTERS THE ROUTINE THRU C /SDR2DE/ (POSITIONS 97-129.) C 6- ELEMENT STRAINS ARE CALCULATED, CORRECTED FOR THERMAL STRAINS, C AND PREMULTIPLIED BY [G]. C C C ***************** RESIDES IN COMMON BLOCK /SDR2X7/ C PH1OUT DATA BLOCK TOTAL NO. OF WORDS = 713 C ***************** C C PH1OUT( 1) = ELID, ELEMENT ID C PH1OUT( 2- 4) = SIL NUMBERS C PH1OUT( 5- 7) = ARRAY IORDER C PH1OUT( 8) = TSUB0, REFERENCE TEMP. C PH1OUT( 9-10) = Z1 AND Z2, FIBER DISTANCES C PH1OUT(11) = ID OF THE ORIGINAL PCOMPI PROPERTY ENTRY C PH1OUT(12) = DUMMY WORD (FOR ALLIGNMENT) C C PH1RST( 1) = AVGTHK, AVERAGE THICKNESS C PH1RST( 2) = MOMINR, MOMENT OF INER. FACTOR C PH1RST( 3-38) = 6X6 MATERIAL PROPERTY (NO SHEAR) C PH1RST(39-41) = THERMAL EXPANSION COEFFICIENTS FOR MEMBRANE C PH1RST(42-44) = THERMAL EXPANSION COEFFICIENTS FOR BENDING C PH1RST(45-47) = NODAL THICKNESSES C PH1RST(48) = OFFSET OF ELEMENT FROM GP PLANE C PH1RST(49-57) = 3X3 USER-TO-MATERIAL COORD. TRANSF. MATRIX, UEM C PH1RST(58-66) = 3X3 ELEM-TO-STRSS/STRAIN TRANSF. TENSOR, TES C PH1RST(67-93) = 3X3 GLOBAL-TO-ELEM COORD. TRANSF. MATRICES, TEG, C ONE FOR EACH NODE C C THE FOLLOWING IS REPEATED FOR EACH EVALUATION POINT (4 TIMES). C THE EVALUATION POINTS ARE AT THE CENTER OF THE ELEMENT AND C STANDARD TRIANGULAR POINTS. THE CHOICE OF THE FINAL STRESS/ C FORCE OUTPUT POINTS IS MADE AT THE SUBCASE LEVEL (PHASE 2). C C 1 ELEMENT THICKNESS AT THIS POINT C 2 - 5 OUT-OF-PLANE-SHEAR-FORCE/STRAIN MATRIX C 6 - 8 ELEMENT SHAPE FUNCTION VALUES C 8+1 - 8+8*NDOF STRAIN RECOVERY MATRIX C C EXTERNAL ANDF LOGICAL COMPOS,STSREQ,STNREQ,FORREQ,TEMPER,TEMPP1,TEMPP2, 1 GRIDS ,VONMS ,LAYER ,BENDNG,STRCUR, 2 GRIDSS,VONMSS,LAYERS CWKBI NCL93012 3/94 LOGICAL OSTRAI INTEGER ELID,CENTER,EXTRNL, 1 FLAG,COMPS,ANDF,LDTEMP,DEVICE,OES1L,OEF1L,OES1AL REAL G(6,6),ALFAM(3),ALFAB(3),GPTH(3),STEMP(8) CWKBR NCL93012 3/94 COMMON /BLANK / APP(2),SORT2,IDUM(2),COMPS COMMON /BLANK / APP(2),SORT2,IDUM(2),COMPS, SKP(4), OSTRAI COMMON /ZZZZZZ/ DISP(1) COMMON /SDR2X2/ DUMM(30),OES1L,OEF1L COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP C 1, DUM(13),KTYPE COMMON /SDR2C1/ IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2,NSTROP COMMON /SDR2DE/ KSDRDE(200) COMMON /SDR2X7/ ELID,KSIL(3),IORDER(3),TSUB0,Z1O,Z2O,IPID, 1 IDUMAL,PH1RST(701) COMMON /SDR2X8/ EXTRNL(6),IGRID(4),IDR(3),INDXG2(3,3),THIKNS(4), 1 Z12(2,4),DELTA(39),DELTAT(6),TDELTA(6),G2(3,3), 2 U(36),STEMPD(3),EPSLN(8),EPSLNM(6),EPSLNT(6), 3 VXVY(2),EPSCSI(6,4),EPSUSI(6,4),QVECI(2,4), 4 EPSCMI(6,4),EPSUMI(6,4),TES(9),UES(9),VES(4), 5 UEM(9),G2ALFB(3,4), 6 GDUM,DETG2,T3OV12,OFFSET,TBAR COMMON /OUTREQ/ STSREQ,STNREQ,FORREQ,STRCUR,GRIDS,VONMS,LAYER, 1 GRIDSS,VONMSS,LAYERS COMMON /TMPDAT/ TEMPER,TEMPP1,TEMPP2 EQUIVALENCE (IZ1O,Z1O),(IZ2O,Z2O), 1 (AVGTHK,PH1RST(1)),(MOMINR,PH1RST(2)), 2 (G(1,1),PH1RST(3)),(ALFAM(1),PH1RST(39)), 3 (ALFAB(1),PH1RST(42)),(GPTH(1),PH1RST(45)), 4 (DEVICE,KSDRDE(2)),(NEPSOP,KSDRDE(151)), 5 (KSTRS,KSDRDE(42)),(KSTRN ,KSDRDE(142)), 6 (KFORC,KSDRDE(41)),(STEMP(1),KSDRDE(97)), 7 (STEMP(7),FLAG) ,(OES1AL,OES1L) DATA ISTART/ 93 / DATA CENTER/ 4HCNTR/ DATA NBLNK / 4HBLNK/ C C INITIALIZE C C NNODE = TOTAL NUMBER OF NODES C NDOF = TOTAL NUMBER OF DEGREES OF FREEDOM C LDTEMP = FLAG INDICATING THE PRESENCE OF TEMPERATURE LOADS C ICOUNT = POINTER FOR PH1RST DATA C C STRCUR = STRAIN/CURVATURE OUTPUT REQUEST FLAG C NNODE = 3 NDOF = 6*NNODE NDOF8 = 8*NDOF TEMPER = LDTEMP .NE. -1 BENDNG = MOMINR .GT. 0.0 C C CHECK FOR OFFSET AND COMPOSITES C OFFSET = PH1RST(48) COMPOS = COMPS.EQ.-1 .AND. IPID.GT.0 C C CHECK THE OUTPUT STRESS FORCE AND STRAIN REQUESTS C STSREQ = KSTRS .EQ. 1 FORREQ = KFORC .EQ. 1 STNREQ = KSTRN .EQ. 1 C C STRESS OUTPUT REQUEST FLAGS C C GRIDS = ANDF(NSTROP, 1).NE.0 C VONMS = ANDF(NSTROP, 8).NE.0 C LAYER = ANDF(NSTROP,32).NE.0 .AND. COMPOS .AND. KTYPE.EQ.1 C GRIDS = .FALSE. VONMS = ANDF(NSTROP,1) .NE. 0 LAYER = ANDF(NSTROP,2) .NE. 0 C C STRAIN OUTPUT REQUEST FLAGS C C GRIDSS = ANDF(NEPSOP, 1).NE.0 .AND. STNREQ C VONMSS = ANDF(NEPSOP, 8).NE.0 .AND. STNREQ C LAYERS = ANDF(NEPSOP, 32).NE.0 .AND. COMPOS .AND. KTYPE.EQ.1 C STRCUR = ANDF(NEPSOP,128).NE.0 .AND. STNREQ C GRIDSS = .FALSE. VONMSS = .FALSE. LAYERS = .FALSE. STRCUR = .FALSE. CWKBNB NCL93012 3/94 STNREQ = OSTRAI STRCUR = OSTRAI CWKBNE NCL93012 3/94 C C IF USER ERRONEOUSLY REQESTS LAYERED OUTPUT AND THERE ARE NO LAYER- C COMPOSITE DATA, SET LAYER FLAGS TO FALSE C IF (NPCMP+NPCMP1+NPCMP2 .GT. 0) GO TO 10 LAYER = .FALSE. LAYERS = .FALSE. GO TO 20 C C USER CORRECTLY REQUESTS LAYERED OUTPUT, BUT CURRENT ELEMENT IS NOT C A LAYER-COMPOSITE; SET LAYER FLAGS TO FALSE C 10 IF (IPID .GT. 0) GO TO 20 LAYER = .FALSE. LAYERS = .FALSE. C C SET DEFAULTS FOR FORCE IF STRESS ABSENT C 20 IF (.NOT.FORREQ .OR. NSTROP.NE.0) GO TO 30 LAYER = .FALSE. C C CHECK FOR THE TYPE OF TEMPERATURE DATA (SET BY SDRETD) C - TYPE TEMPP1 ALSO INCLUDES TYPE TEMPP3. C - IF TEMPPI ARE NOT SUPPLIED, GRID POINT TEMPERATURES ARE PRESENT. C 30 TEMPP1 = FLAG .EQ. 13 TEMPP2 = FLAG .EQ. 2 C C GET THE EXTERNAL GRID POINT ID NUMBERS FOR CORRESPONDING SIL NOS. C C CALL FNDGID (ELID,3,KSIL,EXTRNL) C DO 40 I = 1,NNODE 40 EXTRNL(I) = 0 C C COMMENTS FROM G.C. 2/1990 C EXTRNL ARE SET TO ZEROS HERE. IT IS USED LATER FOR SETTING IDR C ARRAY. BOTH EXTRNL AND IDR ARE USED ONLY WHEN GRIDS IS TRUE. C IN COSMIC VERSION, GRIDS IS FALSE. C C C PREPARE TO REARRANGE STRESSES, STRAINS, AND FORCES ACCORDING TO C EXTERNAL ORDER C IF (.NOT.GRIDS .AND. .NOT.GRIDSS) GO TO 70 DO 60 INPL = 1,3 DO 50 I = 1,NNODE IF (IORDER(I) .NE. INPL) GO TO 50 IDR(INPL) = EXTRNL(I) GO TO 60 50 CONTINUE 60 CONTINUE GO TO 80 70 IDR(1) = 1 IDR(2) = 2 IDR(3) = 3 C C ARRANGE THE INCOMING DATA C C SORT THE GRID TEMPERATURE CHANGES INTO SIL ORDER C 80 IF (.NOT.TEMPER .OR. (TEMPP1 .AND. TEMPP2)) GO TO 100 DO 90 K = 1,NNODE KPOINT = IORDER(K) DELTAT(K) = STEMP(KPOINT) 90 CONTINUE C C PICK UP THE GLOBAL DISPLACEMENT VECTOR AND TRANSFORM IT INTO THE C ELEMENT COORD. SYSTEM C 100 DO 120 IDELT = 1,NNODE JDELT = IVEC + KSIL(IDELT) - 2 KDELT = 6*(IDELT-1) + 1 DO 110 LDELT = 1,6 TDELTA(LDELT) = DISP(JDELT+LDELT) 110 CONTINUE C C FETCH [TEG] 3X3 FOR EACH NODE, LOAD IT INTO A 6X6 MATRIX AND C INCLUDE THE EFFECTS OF OFFSET C CALL TLDRS (OFFSET,IDELT,PH1RST(67),U) CALL GMMATS (U,6,6,0, TDELTA,6,1,0, DELTA(KDELT)) 120 CONTINUE C C RECOVER THE STRESS-TO-ELEMENT ORTHOGONAL TRANSFORMATION AND BUILD C THE ELEMENT-TO-STRESS 'STRAIN' TENSOR TRANSFORMATION. C IF LAYER OUTPUT IS REQUESTED, STRAINS MUST BE TRANSFORMED TO THE C MATERIAL COORDINATE SYSTEM. C DO 130 I = 1,9 UEM(I) = PH1RST(48+I) TES(I) = PH1RST(57+I) 130 CONTINUE CALL SHSTTS (TES,UES,VES) C C RECOVER STRAINS AT EVALUATION POINTS C C THE ARRANGEMENT OF EVALUATION POINTS ON THE MID-SURFACE FOLLOWS C THE SEQUENCE OF GRID POINTS AS INPUT BY THE USER. THEREFORE, C SHUFFLING OF DATA IS ONLY REQUIRED TO MATCH THE USER-DEFINED ORDER C OF INPUT. C C PRESET THE PH1RST COUNTER TO THE START OF THE REPEATED SECTION C WHICH WILL NOW BE FILLED. C ICOUNT = ISTART C DO 500 INPLAN = 1,4 C C MATCH GRID ID NUMBER WHICH IS IN SIL ORDER C IGRID(INPLAN) = CENTER IF (INPLAN .LE. 1) GO TO 210 DO 200 I = 1,NNODE IF (IORDER(I) .NE. INPLAN-1) GO TO 200 IGRID(INPLAN) = EXTRNL(I) 200 CONTINUE C C THICKNESS AND MOMENT OF INERTIA AT THIS POINT C 210 THIKNS(INPLAN) = PH1RST(ICOUNT+1) IF ((GRIDS .OR. GRIDSS) .AND. INPLAN.NE.1) 1 THIKNS(INPLAN) = GPTH(INPLAN-1) T3OV12 = THIKNS(INPLAN)**3/12.0 C C DETERMINE FIBER DISTANCE VALUES C Z12(1,INPLAN) = Z1O IF (IZ1O .EQ. NBLNK) Z12(1,INPLAN) =-0.5*THIKNS(INPLAN) C Z12(2,INPLAN) = Z2O IF (IZ2O .EQ. NBLNK) Z12(2,INPLAN) = 0.5*THIKNS(INPLAN) C C C FIRST COMPUTE LOCAL STRAINS UNCORRECTED FOR THERMAL STRAINS AT C THIS EVALUATION POINT. C C EPSLN = PH1RST(KSIG) * DELTA C EPS = B * U C 8X1 8XNDOF NDOFX1 C CALL GMMATS (PH1RST(ICOUNT+9),8,NDOF,0, DELTA(1),NDOF,1,0, EPSLN) C IF (.NOT.LAYER .AND. .NOT.LAYERS) GO TO 230 C C TRANSFORM UNCORRECTED STRAINS FROM ELEMENT TO MATERIAL COORD. C SYSTEM TO BE USED FOR ELEMENT LAYER STRAINS C CALL GMMATS (UEM(1),3,3,0, EPSLN(1),3,1,0, EPSUMI(1,INPLAN)) CALL GMMATS (UEM(1),3,3,0, EPSLN(4),3,1,0, EPSUMI(4,INPLAN)) C DO 220 I = 1,6 EPSCMI(I,INPLAN) = EPSUMI(I,INPLAN) 220 CONTINUE C 230 IF (.NOT.FORREQ .AND. LAYER .AND. LAYERS) GO TO 250 C C TRANSFORM UNCORRECTED STRAINS FROM ELEMENT TO STRESS COORD. SYSTEM C TO BE USED FOR ELEMENT STRAINS C CALL GMMATS (UES(1),3,3,0, EPSLN(1),3,1,0, EPSUSI(1,INPLAN)) CALL GMMATS (UES(1),3,3,0, EPSLN(4),3,1,0, EPSUSI(4,INPLAN)) C DO 240 I = 1,6 EPSCSI(I,INPLAN) = EPSUSI(I,INPLAN) 240 CONTINUE C C IF REQUIRED, COMPUTE SHEAR FORCES AT THIS EVALUATION POINT IN THE C ELEMENT COORD. SYSTEM, THEN TRANSFORM AND STORE THEM. CONSULT C SHSTTS DOCUMENTATION ON WHY [VES] MAY BE USED TO TRANSFORM FORCES C DESPITE THE FACT THAT IT IS MEANT FOR STRAINS. C SHEAR STRAINS MAY NOT BE TRANSFORMED BEFORE MULTIPLICATION BECAUSE C [G3] IS DIRECTION-DEPENDENT. C 250 IF (.NOT.(FORREQ .OR. LAYER .OR. LAYERS)) GO TO 260 CALL GMMATS (PH1RST(ICOUNT+2),2,2,0, EPSLN(7),2,1,0, VXVY) CALL GMMATS (VES(1),2,2,0, VXVY,2,1,0, QVECI(1,INPLAN)) C C CALCULATE THERMAL STRAINS IF TEMPERATURES ARE PRESENT C 260 IF (.NOT.TEMPER) GO TO 420 DO 270 IET = 1,6 EPSLNT(IET) = 0.0 270 CONTINUE C C MEMBRANE STRAINS C IF (.NOT.TEMPP1 .AND. .NOT.TEMPP2) GO TO 280 TBAR = STEMP(1) GO TO 300 280 TBAR = 0.0 DO 290 ISH = 1,NNODE TBAR = TBAR + PH1RST(ICOUNT+5+ISH)*DELTAT(ISH) 290 CONTINUE C 300 DO 310 IEPS = 1,3 EPSLNT(IEPS) = (TBAR-TSUB0)*ALFAM(IEPS) 310 CONTINUE C C BENDING STRAINS (ELEMENT TEMPERATURES ONLY) C IF (.NOT.BENDNG .OR. .NOT.(TEMPP1 .AND. TEMPP2)) GO TO 390 C C EXTRACT [G2] FROM [G] C DO 330 IG2 = 1,3 DO 320 JG2 = 1,3 G2(IG2,JG2) = G(IG2+3,JG2+3) 320 CONTINUE 330 CONTINUE CALL GMMATS (G2,3,3,0, ALFAB,3,1,0, G2ALFB(1,INPLAN)) C IF (.NOT.TEMPP2) GO TO 370 DO 350 IG2 = 1,3 DO 340 JG2 = 1,3 G2(IG2,JG2) = G2(IG2,JG2)*T3OV12 340 CONTINUE 350 CONTINUE C DO 360 ITMP = 1,3 STEMPD(ITMP) = STEMP(ITMP+1) 360 CONTINUE C CALL INVERS (3,G2,3,GDUM,0,DETG2,ISNGG2,INDXG2) CALL GMMATS (G2,3,3,0, STEMPD,3,1,0, EPSLNT(4)) GO TO 390 C 370 IF (.NOT.TEMPP1) GO TO 390 TPRIME = STEMP(2) DO 380 IEPS = 4,6 EPSLNT(IEPS) = -TPRIME*ALFAB(IEPS-3) 380 CONTINUE 390 CONTINUE C C CORRECT STRAINS FOR THERMAL EFFECTS C DO 400 I = 1,6 EPSLNM(I) = EPSLN(I) - EPSLNT(I) 400 CONTINUE C IF (.NOT.LAYER) GO TO 410 C C TRANSFORM CORRECTED STRAINS FROM ELEMENT TO MATERIAL COOR. SYSTEM C TO BE USED FOR ELEMENT LAYER STRESSES C CALL GMMATS (UEM(1),3,3,0, EPSLNM(1),3,1,0, EPSCMI(1,INPLAN)) CALL GMMATS (UEM(1),3,3,0, EPSLNM(4),3,1,0, EPSCMI(4,INPLAN)) C 410 IF (LAYER .AND. .NOT.FORREQ) GO TO 420 C C TRANSFORM CORRECTED STRAINS FROM ELEMENT TO STRESS COORD. SYSTEM C TO BE USED FOR ELEMENT STRESSES AND ELEMENT (LAYER) FORCES C CALL GMMATS (UES(1),3,3,0, EPSLNM(1),3,1,0, EPSCSI(1,INPLAN)) CALL GMMATS (UES(1),3,3,0, EPSLNM(4),3,1,0, EPSCSI(4,INPLAN)) C C CORRECT THE CURVATURE SIGNS WHEN THE Z-AXIS OF THE TARGET STRESS C COORD. SYSTEM IS FLIPPED WITH RESPECT TO THE USER COORD. SYSTEM. C THIS DOES NOT AFFECT THE MEMBRANE STRAINS, AND TRANSVERSE SHEAR C STRAIN TRANSFORMATION TAKES CARE OF THOSE COMPONENTS. C 420 IF (PH1RST(66) .GE. 0.0) GO TO 440 DO 430 I = 4,6 EPSCMI(I,INPLAN) = -EPSCMI(I,INPLAN) EPSCSI(I,INPLAN) = -EPSCSI(I,INPLAN) EPSUMI(I,INPLAN) = -EPSUMI(I,INPLAN) EPSUSI(I,INPLAN) = -EPSUSI(I,INPLAN) 430 CONTINUE C C END OF THE STRAIN RECOVERY LOOP C C INCREMENT THE PH1RST POINTER C 440 ICOUNT = ICOUNT + 8 + NDOF8 500 CONTINUE C C C IF REQUIRED, EXTRAPOLATE NON-CENTER VALUES FROM EVALUATION POINTS C TO GRID POINTS. C IF (GRIDSS) CALL SHXTRS (6,NNODE,EPSUSI(1,2)) IF (GRIDS ) CALL SHXTRS (6,NNODE,EPSCSI(1,2)) IF (GRIDS .AND. FORREQ) CALL SHXTRS (2,NNODE,QVECI(1,2)) C C CALCULATE AND OUTPUT STRESSES C IF (STSREQ .AND. .NOT.LAYER) 1 CALL SHSTSS (4,ELID,IGRID,THIKNS,Z12,G,EPSCSI,STEMP,TBAR, 2 G2ALFB,BENDNG,IDR) C C CALCULATE AND OUTPUT STRAINS C IF (STNREQ .AND. .NOT.LAYERS) 1 CALL SHSTNS (4,ELID,IGRID,Z12,EPSUSI,BENDNG,IDR) C C CALCULATE AND OUTPUT FORCES C IF (FORREQ .OR. LAYER .OR. LAYERS) 1 CALL SHFORS (4,ELID,IGRID,THIKNS,G,EPSCSI,QVECI,IDR) C C CALCULATE AND OUTPUT LAYER-RELATED INFORMATION C IF (LAYER .OR. LAYERS) 1 CALL SHLSTS (ELID,IPID,AVGTHK,EPSUMI,EPSCMI) C RETURN END ================================================ FILE: mis/strir1.f ================================================ SUBROUTINE STRIR1 C C C***** C THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR THE TRIANGULAR C CROSS SECTION RING C***** C C C ECPT FOR THE TRIANGULAR RING C C C TYPE C ECPT( 1) ELEMENT IDENTIFICATION I C ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A I C ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B I C ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C I C ECPT( 5) MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT( 6) MATERIAL IDENTIFICATION I C ECPT( 7) COOR. SYS. ID. FOR GRID POINT A I C ECPT( 8) X-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT( 9) Y-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(10) Z-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(11) COOR. SYS. ID. FOR GRID POINT B I C ECPT(12) X-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(13) Y-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(14) Z-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(15) COOR. SYS. ID. FOR GRID POINT C I C ECPT(16) X-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(17) Y-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(18) Z-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(19) EL. TEMPERATURE FOR MATERIAL PROPERTIES R C C DIMENSION IECPT(19) DIMENSION R(3), Z(3), ICS(3) DIMENSION SP(18), TEO(16), DELINT(8) C COMMON /CONDAS/ CONSTS(5) COMMON /SDR2X5/ 1 ECPT(19) 2, DUM5(81) 3, IDEL, IGP(3), TZ 4, SEL(36), TS(4), AK(81) COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH COMMON /MATOUT/ 1 E(3) ,ANU(3) 2, RHO ,G(3) 3, ALF(3) ,TZERO COMMON /SDR2X6/ 1 D(81) , GAMBQ(36), EE(16), GAMQS(54) 3, DZERO(24), GAMBL(81), ALFB(4) C EQUIVALENCE ( CONSTS(2) , TWOPI ) EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (IECPT(1) , ECPT(1)) EQUIVALENCE (R(1),R1), (R(2),R2), (R(3),R3) 1, (Z(1),Z1), (Z(2),Z2), (Z(3),Z3) EQUIVALENCE (GAMBL( 1), SP(1)) EQUIVALENCE (GAMBL( 1), TEO(1)) EQUIVALENCE (GAMBL(17), DELINT(1)) C C ---------------------------------------------------------------------- C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT(1) IGP(1)= IECPT(2) IGP(2)= IECPT(3) IGP(3)= IECPT(4) MATID = IECPT(6) ICS(1)= IECPT(7) ICS(2)= IECPT(11) ICS(3)= IECPT(15) R(1) = ECPT(8) D(1) = ECPT(9) Z(1) = ECPT(10) R(2) = ECPT(12) D(2) = ECPT(13) Z(2) = ECPT(14) R(3) = ECPT(16) D(3) = ECPT(17) Z(3) = ECPT(18) TEMPE = ECPT(19) DGAMA = ECPT(5) C C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C DO 200 I = 1,3 IF (R(I) .LT. 0.0E0) CALL MESAGE (-30, 37, IDEL) IF (D(I) .NE. 0.0E0) CALL MESAGE (-30, 37, IDEL) 200 CONTINUE C C C COMPUTE THE ELEMENT COORDINATES C ZMIN = AMIN1(Z1, Z2, Z3) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN C C C C FORM THE TRANSFORMATION MATRIX (6X6) FROM FIELD COORDINATES TO GRID C POINT DEGREES OF FREEDOM C DO 300 I = 1,36 GAMBQ(I) = 0.0E0 300 CONTINUE GAMBQ( 1) = 1.0E0 GAMBQ( 2) = R1 GAMBQ( 3) = Z1 GAMBQ(10) = 1.0E0 GAMBQ(11) = R1 GAMBQ(12) = Z1 GAMBQ(13) = 1.0E0 GAMBQ(14) = R2 GAMBQ(15) = Z2 GAMBQ(22) = 1.0E0 GAMBQ(23) = R2 GAMBQ(24) = Z2 GAMBQ(25) = 1.0E0 GAMBQ(26) = R3 GAMBQ(27) = Z3 GAMBQ(34) = 1.0E0 GAMBQ(35) = R3 GAMBQ(36) = Z3 C C C NO NEED TO COMPUTR DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERS (6, GAMBQ(1),6 , D(10), 0, D(11) , ISING , SP) C IF (ISING .EQ. 2) CALL MESAGE(-30,26,IDEL) C C C C CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS C INDICATED BY THE FOLLOWING TABLE C C DELINT( 1) - (-1,0) C DELINT( 2) - (-1,1) C DELINT( 3) - (-1,2) C DELINT( 4) - ( 0,0) C DELINT( 5) - ( 0,1) C DELINT( 6) - ( 1,0) C DELINT( 7) - ( 0,2) C DELINT( 8) - ( 1,2) C C C TEST FOR RELATIVE SMALL AREA OF INTEGRATION C AND IF AREA IS SMALL THEN APPROXIMATE INTEGRALS C DR = AMAX1 ( ABS(R1-R2) , ABS(R2-R3) , ABS(R3-R1) ) RH = AMIN1 ( R1 , R2 , R3 ) / 10.0E0 DZ = AMAX1 ( ABS(Z1-Z2) , ABS(Z2-Z3) , ABS(Z3-Z1) ) ZH = AMIN1 ( Z1 , Z2 , Z3 ) / 10.0E0 RA = (R1 + R2 + R3) / 3.0E0 ZA = (Z1 + Z2 + Z3) / 3.0E0 AREA =(R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2)) / 2.0E0 KODE = 0 IF ( ABS( (R2-R1)/R2 ) .LT. 1.0E-5) KODE = 1 IF ( DR .LE. RH .OR. DZ .LE. ZH ) KODE = -1 C C 310 CONTINUE I1 = 0 DO 400 I = 1,3 IP = I - 2 DO 350 J = 1,3 IQ = J - 1 IF (IP.EQ.1 .AND. IQ.EQ.1) GO TO 350 I1 = I1 + 1 IF (KODE) 320,330,340 320 DELINT(I1) =((RA) ** IP)*((ZA) ** IQ) * AREA GO TO 350 330 DELINT(I1) = AI (1,3,1,2,1,3,IP,IQ,R,Z) 1 + AI (3,2,1,2,3,2,IP,IQ,R,Z) GO TO 350 340 CONTINUE DELINT(I1) = AI (1,3,3,2,1,3,IP,IQ,R,Z) 350 CONTINUE 400 CONTINUE D(1) = DELINT(6) DELINT(6) = DELINT(7) DELINT(7) = D(1) C C C TEST FOR EXCESSIVE ROUND-OFF ERROR IN INTEGRAL CALCULATIONS C AND IF IT EXIST APPROXIMATE INTEGRALS C IF (KODE .LT. 0) GO TO 500 DO 450 I = 1,8 IF (DELINT(I) .LT. 0.0E0) GO TO 475 450 CONTINUE IF (DELINT(8) .LE. DELINT(7)) GO TO 475 IF (DELINT(3) .GE. DELINT(8)) GO TO 475 IF (DELINT(3) .GT. DELINT(7)) GO TO 475 GO TO 500 475 CONTINUE KODE = -1 GO TO 310 500 CONTINUE C C C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT (IDEL) C C C SET MATERIAL PROPERTIES IN LOCAL VARIABLES C ER = E(1) ET = E(2) EZ = E(3) VRT = ANU(1) VTZ = ANU(2) VZR = ANU(3) GRZ = G(3) TZ = TZERO VTR = VRT * ET / ER VZT = VTZ * EZ / ET VRZ = VZR * ER / EZ DEL = 1.0E0 - VRT*VTR - VTZ*VZT - VZR*VRZ - VRT*VTZ*VZR 1 - VRZ*VTR*VZT C C C GENERATE ELASTIC CONSTANTS MATRIX (4X4) C EE(1) = ER * (1.0E0 - VTZ*VZT) / DEL EE(2) = ER * (VTR + VZR*VTZ) / DEL EE(3) = ER * (VZR + VTR*VZT) / DEL EE(4) = 0.0E0 EE(5) = EE(2) EE(6) = ET * (1.0E0 - VRZ*VZR) / DEL EE(7) = ET * (VZT + VRT*VZR) / DEL EE(8) = 0.0E0 EE(9) = EE(3) EE(10)= EE(7) EE(11)= EZ * (1.0E0 - VRT*VTR) / DEL EE(12)= 0.0E0 EE(13)= 0.0E0 EE(14)= 0.0E0 EE(15)= 0.0E0 EE(16)= GRZ C C C FORM TRANSFORMATION MATRIX (4X4) FROM MATERIAL AXIS TO ELEMENT C GEOMETRIC AXIS C DGAMR = DGAMA * DEGRA COSG = COS(DGAMR) SING = SIN(DGAMR) TEO( 1) = COSG ** 2 TEO( 2) = 0.0E0 TEO( 3) = SING ** 2 TEO( 4) = SING * COSG TEO( 5) = 0.0E0 TEO( 6) = 1.0E0 TEO( 7) = 0.0E0 TEO( 8) = 0.0E0 TEO( 9) = TEO(3) TEO(10) = 0.0E0 TEO(11) = TEO(1) TEO(12) = -TEO(4) TEO(13) = -2.0E0 * TEO(4) TEO(14) = 0.0E0 TEO(15) = -TEO(13) TEO(16) = TEO(1) - TEO(3) C C C TRANSFORM THE ELASTIC CONSTANTS MATRIX FROM MATERIAL C TO ELEMENT GEOMETRIC AXIS C CALL GMMATS (TEO , 4, 4, 1, EE , 4, 4, 0, D ) CALL GMMATS (D , 4, 4, 0, TEO, 4, 4, 0, EE) C C C C FORM THE ELEMENT STIFFNESS MATRIX IN FIELD COORDINATES C AK( 1) = EE(6) * DELINT(1) AK( 2) = (EE(2) + EE(6)) * DELINT(4) AK( 3) = EE(6) * DELINT(2) + EE(8) * DELINT(4) AK( 4) = 0.0E0 AK( 5) = EE(8) * DELINT(4) AK( 6) = EE(7) * DELINT(4) AK( 7) = AK(2) AK( 8) = (EE(1) + 2.0E0*EE(2) + EE(6)) * DELINT(6) AK( 9) = (EE(2) + EE(6)) * DELINT(5) + (EE(4) + EE(8)) *DELINT(6) AK(10) = 0.0E0 AK(11) = (EE(4) + EE(8)) * DELINT(6) AK(12) = (EE(3) + EE(7)) * DELINT(6) AK(13) = AK(3) AK(14) = AK(9) AK(15) = EE(6) * DELINT(3) + 2.0E0*EE(8) * DELINT(5) 1 + EE(16) * DELINT(6) AK(16) = 0.0E0 AK(17) = EE(8) * DELINT(5) + EE(16) * DELINT(6) AK(18) = EE(7) * DELINT(5) + EE(12) * DELINT(6) AK(19) = 0.0E0 AK(20) = 0.0E0 AK(21) = 0.0E0 AK(22) = 0.0E0 AK(23) = 0.0E0 AK(24) = 0.0E0 AK(25) = AK(5) AK(26) = AK(11) AK(27) = AK(17) AK(28) = 0.0E0 AK(29) = EE(16) * DELINT(6) AK(30) = EE(12) * DELINT(6) AK(31) = AK(6) AK(32) = AK(12) AK(33) = AK(18) AK(34) = 0.0E0 AK(35) = AK(30) AK(36) = EE(11) * DELINT(6) C DO 600 I = 1,36 AK(I) = TWOPI * AK(I) 600 CONTINUE C C TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD COORDINATES C TO GRID POINT DEGREES OF FREEDOM C CALL GMMATS (GAMBQ , 6, 6, 1, AK , 6, 6, 0, D ) CALL GMMATS (D , 6, 6, 0, GAMBQ , 6, 6, 0, AK) C C C C GENERATE THE TRANSFORMATION MATRIX FROM TWO TO THREE DEGREES OF C FREEDOM PER POINT C DO 700 I = 1,54 GAMQS( I) = 0.0E0 700 CONTINUE GAMQS( 1) = 1.0E0 GAMQS(12) = 1.0E0 GAMQS(22) = 1.0E0 GAMQS(33) = 1.0E0 GAMQS(43) = 1.0E0 GAMQS(54) = 1.0E0 C C C TRANSFORM THE STIFFNESS MATRIX FROM TWO TO THREE DEGREES OF C FREEDOM PER POINT C CALL GMMATS (GAMQS(1) , 6, 9, 1, AK(1) , 6, 6, 0, D(1) ) CALL GMMATS (D(1) , 9, 6, 0, GAMQS(1) , 6, 9, 0, AK(1) ) C C C LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS C DO 750 I = 1,81 GAMBL(I) = 0.0E0 750 CONTINUE DO 800 I = 1,3 CALL TRANSS (ICS(I) , D(1)) K = 30* (I-1) + 1 DO 800 J = 1,3 KK = K + 9 * (J-1) JJ = 3 * (J-1) + 1 GAMBL(KK ) = D(JJ ) GAMBL(KK+1) = D(JJ+1) GAMBL(KK+2) = D(JJ+2) 800 CONTINUE C C C TRANSFORM THE STIFFNESS MATRIX FROM BASIC TO LOCAL COORDINATES C CALL GMMATS (GAMBL(1) , 9, 9, 1, AK(1) , 9, 9, 0, D(1) ) CALL GMMATS (D(1) , 9, 9, 0, GAMBL(1) , 9, 9, 0, AK(1) ) C C C FORM THE D SUB 0 MATRIX C DO 850 I = 1,24 DZERO(I) = 0.0E0 850 CONTINUE DZERO( 2) = 1.0E0 DZERO( 7) = 1.0E0 / RA DZERO( 8) = 1.0E0 DZERO( 9) = ZA / RA DZERO(18) = 1.0E0 DZERO(21) = 1.0E0 DZERO(23) = 1.0E0 C C C COMPUTE THE STRESS MATRIX IN FIELD COORDINATES C CALL GMMATS (EE(1) , 4, 4, 0, DZERO(1) , 4, 6, 0, D(1) ) C C C TRANSFORM THE STRESS MATRIX TO GRID POINT DEGREES OF FREEDOM C CALL GMMATS (D(1) , 4, 6, 0, GAMBQ(1) , 6, 6, 0, SEL(1) ) C C C TRANSFORM THE STRESS MATRIX FROM TWO TO THREE DEGREES OF FREEDOM C PER POINT C CALL GMMATS (SEL(1) , 4, 6, 0, GAMQS(1) , 6, 9, 0, D(1) ) C C C TRANSFORM THE STRESS MATRIX FROM BASIC TO LOCAL COORDINATES C CALL GMMATS (D(1) , 4, 9, 0, GAMBL(1) , 9, 9, 0, SEL(1) ) C C C COMPUTE THE THERMAL STRAIN VECTOR C DO 900 I = 1,3 ALFB(I) = ALF(I) 900 CONTINUE ALFB(4) = 0.0E0 C C C COMPUTE THE THERMAL STRESS VECTOR C CALL GMMATS (EE(1) , 4, 4, 0, ALFB(1) , 4, 1, 0, TS(1) ) C C RETURN END ================================================ FILE: mis/strir2.f ================================================ SUBROUTINE STRIR2 (TI) C C***** C THIS ROUTINE IS PHASE II OF STRESS DATA RECOVERY FOR THE TRIANGULAR C C CROSS SECTION RING C***** C C C DIMENSION TI(3) DIMENSION DUM3(225) DIMENSION STRES(100), FORCE(25) DIMENSION ISTRES(100), IFORCE(25) C C C SDR2 VARIABLE CORE C COMMON /ZZZZZZ/ ZZ(1) C C C SDR2 BLOCK FOR POINTERS AND LOADING TEMPERATURES C COMMON /SDR2X4/ 1 DUM1(33) 2, ICSTM, NCSTM, IVEC, IVECN 3, TEMPLD, ELDEFM C C C SDR2 INPUT AND OUTPUT BLOCK C COMMON /SDR2X7/ 1 IDEL, IGP(3), TZ 2, SEL(36), TS(4), AK(81), DUM2(99) C C C SCRATCH BLOCK C COMMON /SDR2X8/ 1 DISP(9), EFORC(9), ESTRES(4) C C EQUIVALENCE (DUM3(1) , IDEL) EQUIVALENCE (DUM3(101) , STRES(1) , ISTRES(1)) EQUIVALENCE (DUM3(201) , FORCE(1) , IFORCE(1)) EQUIVALENCE (LDTEMP, TEMPLD) C C C INITIALIZE COUNTERS C NDOF = 3 NUMPT = 3 N = NDOF * NUMPT NSP = 1 NCOMP = 4 NS = NSP * NCOMP C C C LOCATE THE DISPLACEMENTS C K = 0 DO 100 I = 1,NUMPT ILOC = IVEC + IGP(I) - 2 DO 100 J = 1,NDOF ILOC = ILOC + 1 K = K + 1 DISP(K) = ZZ(ILOC) 100 CONTINUE C C C COMPUTE THE GRID POINT FORCES C CALL GMMATS ( AK(1) , N, N, 0, DISP(1) , N, 1, 0, EFORC(1) ) C C C COMPUTE THE STRESSES C CALL GMMATS ( SEL(1), NS, N, 0, DISP(1) , N, 1, 0, ESTRES(1) ) C C C COMPUTE THERMAL STRESS IF THERMAL LOAD EXISTS C AND SUBTRACT FROM APPARENT STRESS C IF (LDTEMP .EQ. (-1)) GO TO 300 C DT = (TI(1) + TI(2) +TI(3)) / 3.0E0 - TZ DO 200 I = 1,NS ESTRES(I) = ESTRES(I) - DT * TS(I) 200 CONTINUE C 300 CONTINUE C C C STORE RESULTS FOR OUTPUT PRINT C J = 1 ISTRES( 1) = IDEL DO 400 I = 1,NCOMP J = J + 1 STRES(J) = ESTRES(I) 400 CONTINUE C C K = 0 J = 1 IFORCE(1) = IDEL DO 500 I = 1,NUMPT DO 500 KK= 1,NDOF J = J + 1 K = K + 1 FORCE(J) = EFORC(K) 500 CONTINUE C RETURN END ================================================ FILE: mis/strm61.f ================================================ SUBROUTINE STRM61 C C C PHASE I OF STRESS DATA RECOVERY FOR TRIANGULAR MEMBRANE ELEMENT TRI C C OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING C C 1) ELEMENT ID WORDS 1 STORAGE IN PH1OUT 1 C 2) SIX SILS WORDS 6 2-7 C 3) THICKNESS T1 WORDS 1 8 C 4) THICKNESS T2 WORDS 1 9 C 5) THICKNESS T3 WORDS 1 10 C 6) REFERENCE TEMP T0 WORDS 1 11 C 7) S SUB I MATRICES WORDS 216 12-227 C 8) THERMAL VECTOR G ALF WORDS 3 228-230 C C EST ENTRIES SAME AS IN SUBROUTINE KTRM6S C C REAL NSM,IVECT,JVECT,KVECT C DIMENSION IEST(45),IND(6,3),EE1(6),NPH1OU(990),XC(6),YC(6),ZC(6) 1, Q(6,6),QQ(36),IVECT(3),JVECT(3),KVECT(3),E( 6 ),EPH1(6) 2, NAME(2),ICS(6),NL(6),TRANS(9),BALOTR(9),EMOD(9),TM(3,12) 3, TMM(36) C COMMON /SDR2X5/ EST(100),PH1OUT(250) COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY C EQUIVALENCE (NPH1OU(1),PH1OUT(1)),(IEST(1),EST(1)) EQUIVALENCE (TM(1,1),TMM(1)) C DATA NAME /4HSTRM,4H61 / , BLANK /4H / DATA DEGRA /0.0174532925/ C IDELE=IEST(1) DO 109 I=1,6 NL(I)=IEST(I+1) 109 CONTINUE THETAM=EST(8) MATID1=IEST(9) TMEM1 =EST(10) TMEM3 =EST(11) TMEM5 =EST(12) C C IF TMEM3 OR TMEM5 IS 0.0 OR BLANK , IT WILL BE SET EQUAL TO TMEM1 C IF (TMEM3.EQ.0.0. OR .TMEM3.EQ.BLANK) TMEM3 = TMEM1 C IF (TMEM5.EQ.0.0. OR .TMEM5.EQ.BLANK) TMEM5 = TMEM1 C NSM = EST(13) C J=0 DO 120 I=14,34,4 J=J+1 ICS(J)=IEST(I) XC(J) = EST(I+1) YC(J) = EST(I+2) ZC(J)=EST(I+3) 120 CONTINUE ELTEMP=(EST(38)+EST(39)+EST(40)+EST(41)+EST(42)+EST(43))/6.0 THETA1=THETAM*DEGRA SINTH=SIN(THETA1) COSTH=COS(THETA1) IF (ABS(SINTH).LE.1.0E-06) SINTH=0.0 C C C EVALUATE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 CALL MAT (IDELE) TO=TREF C C CALCULATIONS FOR THE TRIANGLE C CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,DISTA,DISTB,DISTC,IEST(1), 1 NAME) C C TRANSFORMATION MATRIX BETWEEN ELEMENT AND BASIC CO-ORDINATES C E(1)=IVECT(1) E(2)=JVECT(1) E(3)=IVECT(2) E(4)=JVECT(2) E(5)=IVECT(3) E(6)=JVECT(3) C C CALCULATIONS FOR Q MATRIX AND ITS INVERSE C DO 110 I=1,6 DO 110 J=1,6 Q(I,J)=0.0 110 CONTINUE DO 115 I=1,6 Q(I,1)=1.0 Q(I,2)=XC(I) Q(I,3)=YC(I) Q(I,4)=XC(I)*XC(I) Q(I,5)=XC(I)*YC(I) Q(I,6)=YC(I)*YC(I) 115 CONTINUE C C FIND INVERSE OF Q MATRIX C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERS (6,Q,6,QQ(1),0,DETERM,ISING,IND) C C ISING EQUAL TO 2 IMPLIES THAT Q MATRIX IS SINGULAR C DO 152 I=1,6 DO 152 J=1,6 IJ=(I-1)*6+J QQ(IJ)=Q(I,J) 152 CONTINUE DO 154 I=1,9 BALOTR(I)=0.0 154 CONTINUE C DO 102 I=1,7 PH1OUT(I)=EST(I) 102 CONTINUE PH1OUT(8)=EST(10) PH1OUT(9)=EST(11) PH1OUT(10)=EST(12) PH1OUT(11)=TO EMOD(1)=EM(1) EMOD(2)=EM(2) EMOD(3)=EM(3) EMOD(4)=EM(2) EMOD(5)=EM(4) EMOD(6)=EM(5) EMOD(7)=EM(3) EMOD(8)=EM(5) EMOD(9)=EM(6) C C STRESSES AND STRAINS ARE EVALUATED AT FOUR POINTS ,VIZ., THE THREE C CORNER GRID POINTS AND THE CENTROID C DO 700 JJ=1,4 J=2*(JJ-1)+1 IF (J.EQ.7) GO TO 103 X=XC(J) Y=YC(J) GO TO 104 103 X=(XC(1)+XC(3)+XC(5))/3.0 Y=(YC(1)+YC(3)+YC(5))/3.0 104 CONTINUE DO 105 I=1,36 TMM(I)=0.0E0 105 CONTINUE C C TM MATRIX IS THE PRODUCT OF B AND QINVERSE MATRICES C DO 258 J=1,6 J1=(J-1)*2+1 J2=J1+1 TM(1,J1)=Q(2,J)+2.0*X*Q(4,J)+Y*Q(5,J) TM(2,J2)=Q(3,J)+X*Q(5,J)+2.0*Y*Q(6,J) TM(3,J1)=TM(2,J2) TM(3,J2)=TM(1,J1) 258 CONTINUE DO 600 II=1,6 IF (ICS(II).EQ.0) GO TO 130 CALL TRANSS (IEST(4*II+10),TRANS) CALL GMMATS (E,3,2,+1,TRANS,3,3,0,EE1) GO TO 133 130 CONTINUE DO 132 I=1,3 DO 132 J=1,2 I1=(I-1)*2+J J1=(J-1)*3+I EE1(J1)=E(I1) 132 CONTINUE 133 CONTINUE IJ1=(JJ-1)*54+(II-1)*9+12 MZ=(II-1)*6+1 CALL GMMATS (EMOD,3,3,0,TMM(MZ),2,3,+1,EPH1) CALL GMMATS (EPH1,3,2,0,EE1,2,3,0,PH1OUT(IJ1)) 600 CONTINUE 700 CONTINUE CALL GMMATS (EMOD,3,3,0,ALF,3,1,0,PH1OUT(228)) RETURN END ================================================ FILE: mis/strm62.f ================================================ SUBROUTINE STRM62 (TI) C C C PHASE II OF STRESS DATA RECOVERY FOR TRIANGULAR MEMBRANE ELEMENT C TRIM6 C C PHASE I OUTPUT IS THE FOLLOWING C C PH1OUT(1) ELEMENT ID C PH1OUT(2, THRU 7) 6 S1L5 C PH1OUT(8 THRU 10) THICKNESSES AT CORNER GRID POINT C PH1OUT(11) REFERENCE TEMPERATURE C PH1OUT(12)-(227) S SUB I MATRICES FOR 4 POINTS C PH1OUT(228)-(230) THERMAL VECTOR - G TIMES ALPHA C C INTEGER TLOADS DIMENSION TI(6),NS1L(6),NPH1OU(990),STR(18),SI(36), 1 STOUT(99),STRESS(3) COMMON /ZZZZZZ/ Z(1) COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM,DUM8(8),TLOADS COMMON /SDR2X7/ PH1OUT(250) COMMON /SDR2X8/ TEMP,DELTA,NPOINT,IJ1,IJ2,NPT1,VEC(5),TEM EQUIVALENCE (NS1L(1),PH1OUT(2)),(NPH1OU(1),PH1OUT(1)), 1 (SI(1),PH1OUT(11)),(LDTEMP,FTEMP) C DO 155 II=1,4 C C ZERO OUT LOCAL STRESSES C SIG X 1 =0.0 SIG Y 1 =0.0 SIG XY 1 =0.0 SIG X 2 =0.0 SIG Y 2 =0.0 SIG XY 2 =0.0 IF (NS1L(1).EQ.0) GO TO 90 C C ZERO STRESS VECTOR STORAGE C DO 42 I=1,3 STRESS(I)=0.0 42 CONTINUE C C I=6 C STRESS VECTOR =(SUMMATION (5 )(U ) ) - (S )(TEMP - TEMP ) C I=1 I I T POINT REF C DO 60 I=1,6 C C POINTER TO I-TH SIL IN PH1OUT C NPOINT = IVEC + NPH1OU(I+1) - 1 C C POINTER TO 3X3 S SUB I MATRIX C NPT1=12+(I-1)*9+(II-1)*54 C CALL GMMATS (PH1OUT(NPT1),3,3,0,Z(NPOINT),3,1,0,VEC(1)) DO 50 J=1,3 STRESS(J)=STRESS(J)+VEC(J) STR(J)=STRESS(J) 50 CONTINUE 60 CONTINUE IF (LDTEMP.EQ.(-1)) GO TO 80 II12=II*2-1 IF (II.NE.4) TEM=TI(II12)-PH1OUT(11) IF( II.EQ.4) TEM=(TI(1)+TI(2)+TI(3)+TI(4)+TI(5)+TI(6))/6.0- 1 PH1OUT(11) DO 70 I=1,3 STRESS(I)=STRESS(I)-PH1OUT(227+I)*TEM STR(I)=STRESS(I) 70 CONTINUE 80 CONTINUE 90 IF (NPH1OU(2).EQ.0) GO TO 120 C C COMPUTE PRINCIPAL STRESSES C C C 8 LOCATIONS FOR STRESS AT A POINT AS FOLLOWS C C 1. ELEMENT ID C 2. SIGMA X1 C 3. SIGMA Y1 C 4. SIGMA XY1 C 5. ANGLE OF ZERO SHEAR C 6. SIGMA PRINCIPAL STRESS 1 C 7. SIGMA PRINCIPAL STRESS 2 C 8. TAU MAX C C FOR EACH POINT, THESE VALUES ARE STORED IN STOUT(1-8,9-16, C 17-24,25-32) ALSO IN LOCATIONS STR(1-7) EXCEPT THE ELEMENT ID C FINALLY, THESE VALUES ARE STORED IN PH1OUT(101-108,109-115, C 116-122,123-129) C TEMP = STRESS(1)-STRESS(2) TEMP1= SQRT ((TEMP/2.0E0)**2 + STRESS(3)**2) STR(7)= TEMP1 DELTA= (STRESS(1)+STRESS(2))/2.0 STR(5)=DELTA+TEMP1 STR(6)=DELTA-TEMP1 DELTA= 2.0E0 * STRESS(3) IF (ABS(DELTA).LT.1.0E-15.AND.ABS(TEMP).LT.1.0E-15) GO TO 100 STR(4)=ATAN2(DELTA,TEMP)*28.6478898E0 GO TO 110 100 STR(4)=0.0 110 CONTINUE GO TO 140 120 DO 130 I=1,9 STR(I)=0.0E0 130 CONTINUE 140 CONTINUE IJK=(II-1)*8 STOUT(IJK+1)=PH1OUT(1) DO 149 I=2,8 149 STOUT(IJK+I)=STR(I-1) 155 CONTINUE DO 156 I=1,8 156 PH1OUT(100+I)=STOUT(I) DO 159 J=1,3 DO 159 I=1,7 J1=108+(J-1)*7+I J2=J*8+I+1 PH1OUT(J1)=STOUT(J2) 159 CONTINUE RETURN END ================================================ FILE: mis/strme1.f ================================================ SUBROUTINE STRME1 ( NTYPE ) C C ******** PHASE I OF STRESS DATA RECOVERY ************************* C ******** TRIANGULAR MEMBRANE ELEMENT ***************************** C C CALLS FROM THIS ROUTINE ARE MADE TO. . . C C MAT - MATERIAL DATA ROUTINE C TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER C GMMATS - SINGLE PRECISION MATRIX MULTIPLY AND TRANSPOSE C MESAGE - ERROR MESSAGE WRITER C C IF NTYPE = 0 COMPLETE MEMBRANE COMPUTATION IS PERFORMED C C IF NTYPE = 1 RETURN 3 TRANSFORMED 3X3 MATRICES ONLY C C C DIMENSION G(9), ECPT(21) C LOGICAL STRAIN C COMMON /BLANK / IDUMMY(10), STRAIN COMMON /CONDAS/ CONSTS(5) COMMON /SDR2X5/ 1 NECPT(1) ,NGRID(3) 2 ,ANGLE ,MATID1 3 ,T ,FMU 4 ,DUMMY1 ,X1 5 ,Y1 ,Z1 6 ,DUMMY2 ,X2 7 ,Y2 ,Z2 8 ,DUMMY3 ,X3 9 ,Y3 ,Z3 ,DUMB(80) T ,PH1OUT(100) ,FORVEC(25) COMMON /SDR2X6/ C(18),E(18),TI(9),TEMPAR(27),TEMP 2 ,XSUBB,XSUBC,YSUBC,VOL,REELMU,DELTA,FLAMDA,THETA ,DUMMY(219) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHAS(3), 1 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE, 2 G2X211, G2X212, G2X222 C EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (G(1),TEMPAR(19)) ,(ECPT(1),NECPT(1)) C C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID MATID INTEGER C ECPT( 7) = T T REAL C ECPT( 8) = NON-STRUCTURAL MASS FMU REAL C ECPT( 9) = COORD. SYSTEM ID 1 NECPT(9) INTEGER C ECPT(10) = X1 X1 REAL C ECPT(11) = Y1 Y1 REAL C ECPT(12) = Z1 Z1 REAL C ECPT(13) = COORD. SYSTEM ID 2 NECPT(13) INTEGER C ECPT(14) = X2 X2 REAL C ECPT(15) = Y2 Y2 REAL C ECPT(16) = Z2 Z2 REAL C ECPT(17) = COORD. SYSTEM ID 3 NECPT(17) INTEGER C ECPT(18) = X3 X3 REAL C ECPT(19) = Y3 Y3 REAL C ECPT(20) = Z3 Z3 REAL C ECPT(21) = ELEMENT TEMPERATURE ELTEMP REAL C C ****************************************************************** ELTEMP = ECPT(21) C C SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE C C E(1), E(3), E(5) WILL BE THE I-VECTOR C E(2), E(4), E(6) WILL BE THE J-VECTOR C E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE C C FIRST FIND I-VECTOR = RSUBB - RSUBA (NON-NORMALIZED) E(1) = X2 - X1 E(3) = Y2 - Y1 E(5) = Z2 - Z1 C C NOW FIND LENGTH = X-SUB-B COORD. IN ELEMENT SYSTEM XSUBB = SQRT( E(1)**2 + E(3)**2 + E(5)**2 ) IF(XSUBB .GT. 1.0E-06) GO TO 20 CALL MESAGE(-30,31,ECPT(1)) C C 20 NOW NORMALIZE I-VECTOR WITH X-SUB-B 20 E(1) = E(1) / XSUBB E(3) = E(3) / XSUBB E(5) = E(5) / XSUBB C C HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN C E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER C E(2) = X3 - X1 E(4) = Y3 - Y1 E(6) = Z3 - Z1 C C X-SUB-C = I . (RSUBC - RSUBA) , THUS XSUBC = E(1) * E(2) + E(3) * E(4) + E(5) * E(6) C C AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(7) = E(3) * E(6) - E(5) * E(4) E(8) = E(5) * E(2) - E(1) * E(6) E(9) = E(1) * E(4) - E(3) * E(2) C C C THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C C COORD. IN ELEMENT SYSTEM YSUBC = SQRT( E(7)**2 + E(8)**2 + E(9)**2 ) IF(YSUBC .GT. 1.0E-06) GO TO 25 CALL MESAGE(-30,32,ECPT(1)) C C 25 NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND C 25 E(7) = E(7) / YSUBC E(8) = E(8) / YSUBC E(9) = E(9) / YSUBC C C NOW HAVING I AND K VECTORS.GET J = I CROSS K AND C STORE IN THE SPOT FOR J C E(2) = E(5) * E(8) - E(3) * E(9) E(4) = E(1) * E(9) - E(5) * E(7) E(6) = E(3) * E(7) - E(1) * E(8) C C AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE. TEMP = SQRT( E(2)**2 + E(4)**2 + E(6)**2 ) E(2) = E(2)/TEMP E(4) = E(4)/TEMP E(6) = E(6)/TEMP C C VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA C REELMU = 1.0D0 / XSUBB FLAMDA = 1.0D0 / YSUBC DELTA = XSUBC / XSUBB - 1.0E0 C C ****************************************************************** C C NOW FORM THE C MATRIX (3X6) PARTITIONED AS FOLLOWS HERE. C CSUBA = (3X2) STORED IN C(1) . . .C(6) BY ROWS C CSUBB = (3X2) STORED IN C(7) . . .C(12) BY ROWS C CSUBC = (3X2) STORED IN C(13). . .C(18) BY ROWS C C(1) = -REELMU C(2) = 0.0E0 C(3) = 0.0E0 C(4) = FLAMDA * DELTA C(5) = C(4) C(6) = -REELMU C(7) = REELMU C(8) = 0.0E0 C(9) = 0.0E0 C(10) = -FLAMDA * REELMU * XSUBC C(11) = C(10) C(12) = REELMU C(13) = 0.0E0 C(14) = 0.0E0 C(15) = 0.0E0 C(16) = FLAMDA C(17) = FLAMDA C(18) = 0.0E0 C IF( NTYPE .EQ. 1 ) GO TO 30 THETA = ANGLE * DEGRA SINTH = SIN( THETA ) COSTH = COS( THETA ) 30 IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 ELTEMP = ECPT(21) MATID = MATID1 INFLAG = 2 CALL MAT( ECPT(1) ) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C IF (STRAIN) GO TO 40 G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 GO TO 50 40 G(1) = 1.0 G(2) = 0.0 G(3) = 0.0 G(4) = 0.0 G(5) = 1.0 G(6) = 0.0 G(7) = 0.0 G(8) = 0.0 G(9) = 0.5 50 CONTINUE C C ****************************************************************** C C G, E, AND C MATRICES ARE COMPLETE C C C C T C COMPUTE S = G C E T , I = 1,2,3. C I I I C DO 100 I = 1,3 C C POINTER TO C = 6*I - 5 C I C CALL GMMATS ( G,3,3,0, C(6*I-5),3,2,0, TEMPAR(1)) CALL GMMATS ( TEMPAR(1),3,2,0, E,3,2,1, TEMPAR(10) ) C C DO WE NEED TRANSFORMATION TI C IF( NECPT(4*I + 5) .EQ. 0 ) GO TO 60 CALL TRANSS( NECPT(4*I + 5), TI ) CALL GMMATS( TEMPAR(10),3,3,0, TI,3,3,0, PH1OUT(9*I+1) ) GO TO 100 60 NPT1 = 9 * I DO 80 J = 10,18 NPT1 = NPT1 + 1 80 PH1OUT(NPT1) = TEMPAR(J) 100 CONTINUE C C COMPUTE S = G ALPHAS C T CALL GMMATS( G,3,3,0, ALPHAS,3,1,0, PH1OUT(7) ) C C SAVE T SUB 0 FOR PHASE II C PH1OUT(6) = T SUB 0 PH1OUT(1) = ECPT(1) PH1OUT(2) = ECPT(2) PH1OUT(3) = ECPT(3) PH1OUT(4) = ECPT(4) C C THIS CONCLUDES PHASE 1 FOR TRIANGULAR MEMBRANE OR SUB CALCULATION C TO ANOTHER ROUTINE... RETURN C END ================================================ FILE: mis/strnam.f ================================================ SUBROUTINE STRNAM ( IELT, ISCAN, NAME ) CHARACTER*12 NAME LOGICAL LAYERD COMMON / XSCANX / DUM(21), LAYERD COMMON / SYSTEM / ISYSBF, NOUT C PRINT *,' ENTERRING STRNAM,IELT,ISCAN=',IELT,ISCAN NAME= ' ' IF ( IELT .NE. 1 .AND. IELT .NE. 3 .AND. IELT .NE. 10 ) GO TO 10 C ROD, TUBE, CONROD IF ( ISCAN .EQ. 2 ) NAME='AXIAL' IF ( ISCAN .EQ. 4 ) NAME='TORSIONAL' IF ( ISCAN .EQ. 3 ) NAME='MARGIN' IF ( ISCAN .EQ. 5 ) NAME='MARGIN' GO TO 7000 10 IF ( IELT .NE. 4 .AND. IELT .NE. 5 ) GO TO 20 C SHEAR, TWIST IF ( ISCAN .EQ. 2 ) NAME='MAX-SHR' IF ( ISCAN .EQ. 4 ) NAME='MARGIN' IF ( ISCAN .EQ. 3 ) NAME='AVG' GO TO 7000 20 IF ( IELT .NE. 6 .AND. IELT .NE. 17 .AND. IELT .NE. 19 .AND. & IELT .NE. 18 .AND. IELT .NE. 7 .AND. IELT .NE. 8 .AND. & IELT .NE. 15 ) GO TO 30 C TRIA1, TRIA2, QUAD1, QUAD2, TRBSC, TRPLT, QDPLT IF ( ISCAN .EQ. 3 .OR. ISCAN .EQ. 11 ) NAME='NORM-X' IF ( ISCAN .EQ. 4 .OR. ISCAN .EQ. 12 ) NAME='NORM-Y' IF ( ISCAN .EQ. 5 .OR. ISCAN .EQ. 13 ) NAME='SHEAR-XY' IF ( ISCAN .EQ. 7 .OR. ISCAN .EQ. 15 ) NAME='MAJOR' IF ( ISCAN .EQ. 8 .OR. ISCAN .EQ. 16 ) NAME='MINOR' IF ( ISCAN .EQ. 9 .OR. ISCAN .EQ. 17 ) NAME='MAX-SHR' GO TO 7000 30 IF ( IELT .NE. 9 .AND. IELT .NE. 16 .AND. IELT .NE. 62 .AND. & IELT .NE. 63 ) GO TO 40 C TRMEM, QDMEM, QDMEM1, QDMEM2 IF ( ISCAN .EQ. 2 ) NAME='NORM-X' IF ( ISCAN .EQ. 3 ) NAME='NORM-Y' IF ( ISCAN .EQ. 4 ) NAME='SHEAR-XY' IF ( ISCAN .EQ. 6 ) NAME='MAJOR' IF ( ISCAN .EQ. 7 ) NAME='MINOR' IF ( ISCAN .EQ. 8 ) NAME='MAX-SHR' GO TO 7000 40 IF ( IELT .NE. 11 .AND. IELT .NE. 12 .AND. IELT .NE. 13 .AND. & IELT .NE. 80 ) GO TO 50 C ELAS1, ELAS2, ELAS3, IS2D8 IF ( ISCAN .EQ. 2 ) NAME='OCT-SHR' GO TO 7000 50 IF ( IELT .NE. 34 .AND. IELT .NE. 81 ) GO TO 60 C BAR, ELBOW IF ( ISCAN .EQ. 7 .OR. ISCAN .EQ. 8 ) NAME='SB-MAX' IF ( ISCAN .EQ. 14.OR. ISCAN .EQ.15 ) NAME='SB-MAX' IF ( ISCAN .EQ. 9 .OR. ISCAN .EQ.16 ) NAME='MARGIN' IF ( ISCAN .EQ. 6 ) NAME='AXIAL' GO TO 7000 60 IF ( IELT .NE. 35 ) GO TO 70 C CONEAX IF ( ISCAN .EQ. 4 .OR. ISCAN .EQ. 22 ) NAME='NORM-U' IF ( ISCAN .EQ. 5 .OR. ISCAN .EQ. 23 ) NAME='NORM-V' IF ( ISCAN .EQ. 6 .OR. ISCAN .EQ. 24 ) NAME='SHEAR-UV' IF ( ISCAN .EQ. 8 .OR. ISCAN .EQ. 26 ) NAME='MAJOR' IF ( ISCAN .EQ. 9 .OR. ISCAN .EQ. 27 ) NAME='MINOR' IF ( ISCAN .EQ. 10.OR. ISCAN .EQ. 28 ) NAME='MAX-SHR' GO TO 7000 70 IF ( IELT .NE. 36 ) GO TO 80 C TRIARG IF ( ISCAN .EQ. 2 ) NAME='RADIAL' IF ( ISCAN .EQ. 3 ) NAME='CIRCUM' IF ( ISCAN .EQ. 4 ) NAME='AXIAL' IF ( ISCAN .EQ. 5 ) NAME='SHEAR' GO TO 7000 80 IF ( IELT .NE. 37 ) GO TO 90 C TRAPRG KSCAN = MOD( ISCAN, 4 ) IF ( KSCAN .EQ. 2 .AND. ISCAN .NE. 18 ) NAME='RADIAL' IF ( KSCAN .EQ. 3 ) NAME='CIRCUM' IF ( KSCAN .EQ. 0 ) NAME='AXIAL' IF ( KSCAN .EQ. 1 ) NAME='SHEAR' IF ( KSCAN .EQ. 2 .AND. ISCAN .NE. 2 ) NAME='SHR-FORC' GO TO 7000 90 IF ( IELT .NE. 38 ) GO TO 100 C TORDRG KSCAN = MOD( ISCAN, 5 ) IF ( KSCAN .EQ. 2 ) NAME='MEM-T' IF ( KSCAN .EQ. 3 ) NAME='MEM-C' IF ( KSCAN .EQ. 4 ) NAME='FLEX-T' IF ( KSCAN .EQ. 0 ) NAME='FLEX-C' IF ( KSCAN .EQ. 1 ) NAME='SHR-FORC' GO TO 7000 100 IF ( IELT .NE. 65 .AND. IELT .NE. 66 ) GO TO 110 C IHEX1, IHEX2 KSCAN = MOD( ISCAN, 22 ) IF ( KSCAN .EQ. 3 ) NAME='NORM-X' IF ( KSCAN .EQ. 4 ) NAME='SHEAR-XY' IF ( KSCAN .EQ. 5 ) NAME='PRINC-A' IF ( KSCAN .EQ. 9 ) NAME='MEAN' IF ( KSCAN .EQ.11 ) NAME='NORM-Y' IF ( KSCAN .EQ.12 ) NAME='SHEAR-YZ' IF ( KSCAN .EQ.13 ) NAME='PRINC-B' IF ( KSCAN .EQ.17 ) NAME='NORM-Z' IF ( KSCAN .EQ.18 ) NAME='SHEAR-ZX' IF ( KSCAN .EQ.19 ) NAME='PRINC-C' IF ( KSCAN .EQ.10 ) NAME='MAX-SHR' GO TO 7000 110 IF ( IELT .NE. 67 ) GO TO 120 C IHEX3 KSCAN = MOD( ISCAN, 23 ) IF ( KSCAN .EQ. 3 ) NAME='NORM-X' IF ( KSCAN .EQ. 4 ) NAME='SHEAR-XY' IF ( KSCAN .EQ. 5 ) NAME='PRINC-A' IF ( KSCAN .EQ. 9 ) NAME='MEAN' IF ( KSCAN .EQ.12 ) NAME='NORM-Y' IF ( KSCAN .EQ.13 ) NAME='SHEAR-YZ' IF ( KSCAN .EQ.14 ) NAME='PRINC-B' IF ( KSCAN .EQ.18 ) NAME='NORM-Z' IF ( KSCAN .EQ.19 ) NAME='SHEAR-ZX' IF ( KSCAN .EQ.20 ) NAME='PRINC-C' IF ( KSCAN .EQ.10 ) NAME='MAX-SHR' GO TO 7000 120 IF ( IELT .NE. 70 .AND. IELT .NE. 71 ) GO TO 130 C TRIAAX, TRAPAX KSCAN = MOD ( ISCAN, 8 ) IF ( KSCAN .EQ. 3 ) NAME='RADIAL' IF ( KSCAN .EQ. 4 ) NAME='AXIAL' IF ( KSCAN .EQ. 5 ) NAME='CIRCUM' IF ( KSCAN .EQ. 6 ) NAME='MEM-C' IF ( KSCAN .EQ. 7 ) NAME='FLEX-T' IF ( KSCAN .EQ. 0 ) NAME='FLEX-C' GO TO 7000 130 IF ( IELT .NE. 64 .AND. IELT .NE. 83 ) GO TO 150 C QUAD4, TRIA3 WITHOUT LAMINATION IF ( LAYERD ) GO TO 140 IF ( ISCAN .EQ. 3 .OR. ISCAN .EQ. 11 ) NAME='NORMAL-X' IF ( ISCAN .EQ. 4 .OR. ISCAN .EQ. 12 ) NAME='NORMAL-Y' IF ( ISCAN .EQ. 5 .OR. ISCAN .EQ. 13 ) NAME='SHEAR-XY' IF ( ISCAN .EQ. 7 .OR. ISCAN .EQ. 15 ) NAME='MAJOR' IF ( ISCAN .EQ. 18.OR. ISCAN .EQ. 16 ) NAME='MINOR' IF ( ISCAN .EQ. 9 .OR. ISCAN .EQ. 17 ) NAME='MAX-SHR' GO TO 7000 140 CONTINUE C QUAD4 AND TRIA3 WITH LAMINATION KSCAN = MOD( ISCAN, 10 ) IF ( ISCAN .EQ. 5 ) NAME='NORMAL-1' IF ( ISCAN .EQ. 6 ) NAME='NORMAL-2' IF ( ISCAN .EQ. 7 ) NAME='SHEAR-12' IF ( ISCAN .EQ. 0 ) NAME='SHEAR-1Z' IF ( ISCAN .EQ. 1 ) NAME='SHEAR-2Z' GO TO 7000 150 WRITE ( NOUT, 901 ) IELT 901 FORMAT(//,' SCAN MODULE PROCESSING UNKNOWN ELEMENT NUMBER ' & ,I8,//) CALL MESAGE( -61,0,0) 7000 CONTINUE C PRINT *,' RETURNING FROM STRNAM,FIELD=',NAME RETURN END ================================================ FILE: mis/strp11.f ================================================ SUBROUTINE STRP11 C C PHASE 1 STRESS DATA RECOVERY FOR CTRPLT1 - HIGHER ORDER PLATE C ELEMENT C C OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING C C 1) ELEMENT ID WORDS 1 STORAGE IN PH1OUT 1 C 2) SIX SILS WORDS 6 2-7 C 3) BENDING THICKNESSES WORDS 3 8-10 C 4) STRESS POINTS WORDS 8 11-18 C 5) 4 NOS. 6 5X6 S MATRICES WORDS 720 19-738 C 6) 3X1 S SUB T MATRIX WORDS 3 739-741 C C ECPT ENTRIES C AS IN STIFFNESS ROUTINE KTRPL1 C LOGICAL NOTS REAL J11,J12,J22,NSM,IVECT,JVECT,KVECT DOUBLE PRECISION DETERM DIMENSION NAME(2),INDEX(20,3),ICS(6),NL(6),Q(6,6),IND(6,3), 1 EMOD(9),XC(6),YC(6),ZC(6),QQQ(20,20),QQQINV(360), 2 TS6(40),TS7(59),IEST(42),IVECT(3),JVECT(3), 3 KVECT(3),E(18),V1(3),V2(3),V3(3),E1(18), 4 PH1BEN(9),PH1SHR(6),PH2(18),PH3(12),PH4(90), 5 TRANS(9),BALOTR(36),D(9),DPH1(9),G(4),GPH1(6), 6 NPH1OU(990) COMMON /SDR2X5/ EST(100),PH1OUT(990),FORVEC(24), 1 X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,B1,B2,B3, 2 QQQINV,TS6,TS7,PH2,PH3,PH4,Q,E,E1,TRANS,BALOTR C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 C C C EQUIVALENCE IECPT WITH ECPT IN COMMON BLOCK /SMA1ET/ SINCE ECPT IS C A MIXED INTEGER AND REAL ARRAY C EQUIVALENCE (A,DISTA), (B,DISTB), (C,DISTC), 1 (V1(1),EST(19)),(V2(1),EST(23)),(V3(1),EST(27)), 2 (IEST(1),EST(1)), 3 (D11,EM(1)),(D12,EM(2)), (D13,EM(3)), 4 (D22,EM(4)),(D23,EM(5)), (D33,EM(6)) EQUIVALENCE (NPH1OU(1),PH1OUT(1)) EQUIVALENCE (PH1OUT(401),INDEX(1,1),IND(1,1)) EQUIVALENCE (PH1OUT(1),QQQ(1,1)) DATA DEGRA / 0.0174532925 / DATA BLANK , NAME / 4H , 4HCTRP, 4HLT1 / C NOTS =.FALSE. IDELE = IEST(1) DO 109 I = 1,6 NL(I) = IEST(I+1) 109 CONTINUE THETAM = EST(8) MATID1 = IEST(9) TMEM1 = (EST(10)*12.0)**0.333333333333 TMEM3 = (EST(11)*12.0)**0.333333333333 TMEM5 = (EST(12)*12.0)**0.333333333333 MATID2 = IEST(13) TSHR1 = EST(14) TSHR3 = EST(15) TSHR5 = EST(16) NSM = EST(17) J = 0 DO 120 I = 24,44,4 J = J + 1 ICS(J) = IEST(I) XC(J) = EST(I+1) YC(J) = EST(I+2) ZC(J) = EST(I+3) 120 CONTINUE C C IF TMEM3 OR TMEM5 IS ZERO OR BLANK, THEY WILL BE SET EQUAL TO C TMEM1 C SO ALSO FOR TEMP3 OR TEMP5 C IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1 IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1 IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1 IF (TSHR1 .EQ. 0.0) NOTS = .TRUE. ELTEMP = EST(48) THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C EVALUATE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 CALL MAT (IDELE) C EMOD(1) = D11 EMOD(2) = D12 EMOD(3) = D13 EMOD(4) = D12 EMOD(5) = D22 EMOD(6) = D23 EMOD(7) = D13 EMOD(8) = D23 EMOD(9) = D33 MATID = MATID2 MATFLG = 3 J11 = 0.0 J12 = 0.0 J22 = 0.0 IF (NOTS) GO TO 146 CALL MAT (IDELE) 146 CONTINUE C C CALCULATIONS FOR THE TRIANGLE C CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME) CALL AF (F,1,A,B,C,A1,A2,A3,TMEM1,TMEM3,TMEM5,1) CALL AF (F,1,A,B,C,B1,B2,B3,TSHR1,TSHR3,TSHR5,1) C C FILL E-MATRIX C DO 177 I = 1,18 177 E( I) = 0.0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 C C CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE C DO 110 I = 1,20 DO 110 J = 1,20 110 QQQ(I,J) = 0.0 DO 115 I = 1,6 I1 = (I-1)*3 + 1 I2 = (I-1)*3 + 2 I3 = (I-1)*3 + 3 QQQ(I1, 1) = 1.0 QQQ(I1, 2) = XC(I) QQQ(I1, 3) = YC(I) QQQ(I1, 4) = XC(I)*XC(I) QQQ(I1, 5) = XC(I)*YC(I) QQQ(I1, 6) = YC(I)*YC(I) QQQ(I1, 7) = QQQ(I1, 4)*XC(I) QQQ(I1, 8) = QQQ(I1, 4)*YC(I) QQQ(I1, 9) = QQQ(I1, 5)*YC(I) QQQ(I1,10) = QQQ(I1, 6)*YC(I) QQQ(I1,11) = QQQ(I1, 7)*XC(I) QQQ(I1,12) = QQQ(I1, 7)*YC(I) QQQ(I1,13) = QQQ(I1, 8)*YC(I) QQQ(I1,14) = QQQ(I1, 9)*YC(I) QQQ(I1,15) = QQQ(I1,10)*YC(I) QQQ(I1,16) = QQQ(I1,11)*XC(I) QQQ(I1,17) = QQQ(I1,12)*YC(I) QQQ(I1,18) = QQQ(I1,13)*YC(I) QQQ(I1,19) = QQQ(I1,14)*YC(I) QQQ(I1,20) = QQQ(I1,15)*YC(I) QQQ(I2, 3) = 1.0 QQQ(I2, 5) = XC(I) QQQ(I2, 6) = YC(I)*2.0 QQQ(I2, 8) = QQQ(I1, 4) QQQ(I2, 9) = QQQ(I1, 5)*2.0 QQQ(I2,10) = QQQ(I1, 6)*3.0 QQQ(I2,12) = QQQ(I1, 7) QQQ(I2,13) = QQQ(I1, 8)*2.0 QQQ(I2,14) = QQQ(I1, 9)*3.0 QQQ(I2,15) = QQQ(I1,10)*4.0 QQQ(I2,17) = QQQ(I1,12)*2.0 QQQ(I2,18) = QQQ(I1,13)*3.0 QQQ(I2,19) = QQQ(I1,14)*4.0 QQQ(I2,20) = QQQ(I1,15)*5.0 QQQ(I3, 2) =-1.0 QQQ(I3, 4) =-2.0*XC(I) QQQ(I3, 5) =-YC(I) QQQ(I3, 7) =-QQQ(I1, 4)*3.0 QQQ(I3, 8) =-QQQ(I1, 5)*2.0 QQQ(I3, 9) =-QQQ(I1, 6) QQQ(I3,11) =-QQQ(I1, 7)*4.0 QQQ(I3,12) =-QQQ(I1, 8)*3.0 QQQ(I3,13) =-QQQ(I1, 9)*2.0 QQQ(I3,14) =-QQQ(I1,10) QQQ(I3,16) =-QQQ(I1,11)*5.0 QQQ(I3,17) =-QQQ(I1,13)*3.0 QQQ(I3,18) =-QQQ(I1,14)*2.0 QQQ(I3,19) =-QQQ(I1,15) C C IF NO TRANSVERSE SHEAR GO TO 113 C IF (NOTS) GO TO 1137 X = XC(I) Y = YC(I) CALL STRPTS (TS6,NOTS) DO 113 JJ = 1,20 QQQ(I2,JJ) = QQQ(I2,JJ) - TS6(20+JJ) QQQ(I3,JJ) = QQQ(I3,JJ) + TS6( JJ) 113 CONTINUE 1137 CONTINUE 115 CONTINUE QQQ(19,16) = 5.0*A**4*C QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2 QQQ(19,19) = C**5 - 4.0*A**2*C**3 QQQ(19,20) = 5.0*A*C**4 QQQ(20,16) = 5.0*B**4*C QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2 QQQ(20,19) = C**5 - 4.0*B**2*C**3 QQQ(20,20) =-5.0*B*C**4 C C FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1) C IS U C CALL INVERS (20,QQQ,20,TS6(1),0,DETERM,ISING,INDEX) C C ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR C C FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS C MATRIX CALCULATIONS C DO 152 I = 1,20 DO 152 J = 1,18 IJ = (I-1)*18 + J QQQINV(IJ) = QQQ(I,J) 152 CONTINUE DO 154 I = 1,36 154 BALOTR(I) = 0.0 C DO 102 I = 1,7 PH1OUT(I) = EST(I) 102 CONTINUE PH1OUT( 8) = TMEM1 PH1OUT( 9) = TMEM3 PH1OUT(10) = TMEM5 PH1OUT(11) = EST(18) PH1OUT(12) = EST(19) PH1OUT(13) = EST(20) PH1OUT(14) = EST(21) PH1OUT(15) = EST(22) PH1OUT(16) = EST(23) DO 700 JJ = 1,4 JJ1 = JJ*2 - 1 IF (JJ .NE. 4) X = XC(JJ1) IF (JJ .NE. 4) Y = YC(JJ1) IF (JJ .EQ. 4) X = (XC(1)+XC(3)+XC(5))/3.0 IF (JJ .EQ. 4) Y = (YC(1)+YC(3)+YC(5))/3.0 IF (JJ .EQ. 4) PH1OUT(17) = (A1+A2*X+A3*Y)/2.0 IF( JJ .EQ. 4) PH1OUT(18) = -PH1OUT(17) DO 105 I = 1,60 TS7(I) = 0.0 105 CONTINUE AI = PH1OUT(7+JJ)**3/12.0 IF (JJ .EQ. 4) AI = PH1OUT(17)**3/1.5 DO 107 I = 1,9 107 D(I) = EMOD(I)*AI X2 = X*X XY = X*Y Y2 = Y*Y X3 = X2*X X2Y = X2*Y XY2 = X*Y2 Y3 = Y2*Y TS7( 4) = 2.0 TS7( 7) = 6.0*X TS7( 8) = 2.0*Y TS7(11) = 12.0*X2 TS7(12) = 6.0*XY TS7(13) = 2.0*Y2 TS7(16) = 20.0*X3 TS7(17) = 6.0*XY2 TS7(18) = 2.0*Y3 TS7(26) = 2.0 TS7(29) = 2.0*X TS7(30) = 6.0*Y TS7(33) = 2.0*X2 TS7(34) = TS7(12) TS7(35) = 12.0*Y2 TS7(37) = 2.0*X3 TS7(38) = 6.0*X2Y TS7(39) = 12.0*XY2 TS7(40) = 20.0*Y3 TS7(45) = 2.0 TS7(48) = 4.0*X TS7(49) = 4.0*Y TS7(52) = 6.0*X2 TS7(53) = 8.0*XY TS7(54) = 6.0*Y2 TS7(57) = 12.0*X2Y TS7(58) = TS7(39) TS7(59) = 8.0*Y3 CALL GMMATS (TS7,3,20,0, QQQINV,20,18,0, PH4(1)) CALL STRPTS (TS6,NOTS) CALL GMMATS (TS6,2,20,0, QQQINV,20,18,0, PH4(55)) DO 600 II = 1,6 IF (ICS(II) .EQ. 0) GO TO 130 J = 4*II + 20 CALL TRANSS (IEST(J),TRANS) DO 124 J = 1,3 L = 6*(J-1) + 1 M = 3*(J-1) + 1 BALOTR(L ) = TRANS(M ) BALOTR(L+ 1) = TRANS(M+1) BALOTR(L+ 2) = TRANS(M+2) BALOTR(L+21) = TRANS(M ) BALOTR(L+22) = TRANS(M+1) BALOTR(L+23) = TRANS(M+2) 124 CONTINUE CALL GMMATS (E,6,3,+1, BALOTR,6,6,0, E1) GO TO 133 130 CONTINUE DO 132 I = 1,3 DO 132 J = 1,6 I1 = (I-1)*6 + J J1 = (J-1)*3 + I E1(I1) = E(J1) 132 CONTINUE 133 CONTINUE KZ = (II-1)*3 + 1 PH1BEN(1) = PH4(KZ ) PH1BEN(2) = PH4(KZ+ 1) PH1BEN(3) = PH4(KZ+ 2) PH1BEN(4) = PH4(KZ+18) PH1BEN(5) = PH4(KZ+19) PH1BEN(6) = PH4(KZ+20) PH1BEN(7) = PH4(KZ+36) PH1BEN(8) = PH4(KZ+37) PH1BEN(9) = PH4(KZ+38) CALL GMMATS (D,3,3,0, PH1BEN,3,3,0, DPH1) CALL GMMATS (DPH1,3,3,0, E1,3,6,0, PH2) MZ = (II-1)*3 + 55 PH1SHR(1) = PH4(MZ ) PH1SHR(2) = PH4(MZ+ 1) PH1SHR(3) = PH4(MZ+ 2) PH1SHR(4) = PH4(MZ+18) PH1SHR(5) = PH4(MZ+19) PH1SHR(6) = PH4(MZ+20) IF (NOTS) GO TO 166 THK = B1 + B2*X + B3*Y G(1) = EM(6)*THK G(2) = 0.0 G(3) = 0.0 G(4) = G(1) CALL GMMATS (G,2,2,0, PH1SHR,2,3,0, GPH1) GO TO 168 166 CONTINUE GPH1(1) = PH1SHR(1) GPH1(2) = PH1SHR(2) GPH1(3) = PH1SHR(3) GPH1(4) = PH1SHR(4) GPH1(5) = PH1SHR(5) GPH1(6) = PH1SHR(6) 168 CONTINUE CALL GMMATS (GPH1,2,3,0, E1,3,6,0, PH3) DO 148 I = 1,3 DO 148 J = 1,6 I1 = (I-1)*6 + J I2 = I1 + 18 J1 = (II-1)*30 + (JJ-1)*180 + I1 + 18 J2 = J1 + 18 PH1OUT(J1) = PH2(I1) IF (I .NE. 3) PH1OUT(J2) = PH3(I1) 148 CONTINUE 600 CONTINUE JJ1 = (JJ-1)*3 + 1 CALL GMMATS (D,3,3,0, ALF,3,1,0, PH1OUT(738+JJ1)) 700 CONTINUE RETURN END ================================================ FILE: mis/strp12.f ================================================ SUBROUTINE STRP12 (TI) C C PHASE II OF STRESS DATA RECOVERY C LOGICAL FLAG INTEGER TLOADS REAL TI(6),SDELTA(3) DIMENSION NSIL(6),STR(18),NPH1OU(990),SI(36),STOUT(68), 1 REALI(4) COMMON /ZZZZZZ/ Z(1) COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM,DUM8(8), 1 TLOADS,MAXSIZ COMMON /SDR2X7/ PH1OUT(990),FORVEC(24) COMMON /SDR2X8/ TEMP,DELTA,NPOINT,IJ1,IJ2,NPT1,VEC(5),TEM, 1 Z1 OVR I,Z2 OVR I,STRESS(18) EQUIVALENCE (NSIL(1),PH1OUT(2)),(NPH1OU(1),PH1OUT(1)), 1 (SI(1),PH1OUT(19)),(LDTEMP,FTEMP),(F1,N1) C C FIRST GET FORCE VECTOR FOR THE PLATE CONSIDERATION C C M , M , M , V , V FOR ALL SIX GRID POINTS C X Y XY X Y C C NPTS C THE 5X1 FORCE VECTOR = SUMMATION (S )(U ) FOR EACH POINT C I=1 I I C NPTS = 6 DO 15 I = 1,24 15 FORVEC( I) = 0.0 FORVEC( 1) = PH1OUT(1) FORVEC( 7) = PH1OUT(1) FORVEC(13) = PH1OUT(1) FORVEC(19) = PH1OUT(1) C C DO 155 II = 1,4 C II = 0 17 II = II + 1 IF (II .GT. 4) GO TO 155 C C ZERO OUT LOCAL STRESSES C SIG X 1 = 0.0 SIG Y 1 = 0.0 SIG XY 1 = 0.0 SIG X 2 = 0.0 SIG Y 2 = 0.0 SIG XY 2 = 0.0 C IF (NSIL(1) .EQ. 0) GO TO 30 C C FORM SUMMATION C DO 20 I = 1,6 C C POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE C NPOINT = IVEC + NSIL(I) - 1 C II1 = (II-1)*180 + 30*I - 29 CALL GMMATS (SI(II1),5,6,0, Z(NPOINT),6,1,0, VEC(1)) C DO 10 J = 2,6 IJ = (II-1)*6 + J 10 FORVEC(IJ) = FORVEC(IJ) + VEC(J-1) 20 CONTINUE C IF (TLOADS .EQ. 0) GO TO 23 JST = (II-1)*3 + 738 I1 = (II-1)*6 FLAG = .FALSE. F1 = TI(6) IF (N1 .EQ. 1) GO TO 22 FORVEC(I1+2) = FORVEC(I1+2) - TI(2) FORVEC(I1+3) = FORVEC(I1+3) - TI(3) FORVEC(I1+4) = FORVEC(I1+4) - TI(4) IF (TI(5).EQ.0.0 .AND. TI(6).EQ.0.0) FLAG = .TRUE. GO TO 23 22 FORVEC(I1+2) = FORVEC(I1+2) + TI(2)*PH1OUT(JST+1) FORVEC(I1+3) = FORVEC(I1+3) + TI(2)*PH1OUT(JST+2) FORVEC(I1+4) = FORVEC(I1+4) + TI(2)*PH1OUT(JST+3) IF (TI(3).EQ.0.0 .AND. TI(4).EQ.0.0) FLAG = .TRUE. 23 CONTINUE C C FORCE VECTOR IS NOW COMPLETE C IF (II .EQ. 4) GO TO 24 I1 = II*2 + 9 I2 = I1 + 1 Z1 OVR I = -12.0*PH1OUT(I1)/PH1OUT(7+II)**3 Z2 OVR I = -12.0*PH1OUT(I2)/PH1OUT(7+II)**3 GO TO 25 24 ZI OVR I = -1.5/PH1OUT(17)**2 Z2 OVR I = -Z1 OVR I 25 CONTINUE II1 = (II-1)*6 C K1 = 0 ASSIGN 26 TO IRETRN GO TO 170 C 26 SIG X 1 = FORVEC(II1+2)*Z1 OVR I - SDELTA(1) SIG Y 1 = FORVEC(II1+3)*Z1 OVR I - SDELTA(2) SIG XY 1 = FORVEC(II1+4)*Z1 OVR I - SDELTA(3) C K1 = 1 ASSIGN 27 TO IRETRN GO TO 170 C 27 SIG X 2 = FORVEC(II1+2)*Z2 OVR I - SDELTA(1) SIG Y 2 = FORVEC(II1+3)*Z2 OVR I - SDELTA(2) SIG XY 2 = FORVEC(II1+4)*Z2 OVR I - SDELTA(3) C GO TO 40 30 Z1 = 0.0 Z2 = 0.0 C 40 CONTINUE C C STRESS OUTPUT VECTOR IS THE FOLLOWING C C 1) ELEMENT ID C 2) Z1 = FIBER DISTANCE 1 C 3) SIG X 1 C 4) SIG Y 1 C 5) SIG XY 1 C 6) ANGLE OF ZERO SHEAR AT Z1 C 7) SIG P1 AT Z1 C 8) SIG P2 AT Z1 C 9) TAU MAX = MAXIMUM SHEAR STRESS AT Z1 C 10) ELEMENT ID C 11) Z2 = FIBER DISTANCE 2 C 12) SIG X 2 C 13) SIG Y 2 C 14) SIG XY 2 C 15) ANGLE OF ZERO SHEAR AT Z2 C 16) SIG P1 AT Z2 C 17) SIG P2 AT Z2 C S7) SIG P2 AT Z2 C 18) TAU MAX = MAXIMUM SHEAR STRESS AT Z2 C IF (NPH1OU(2) .EQ. 0) GO TO 120 C C COMPUTE PRINCIPAL STRESSES C STR( 1) = PH1OUT(1) STR( 2) = PH1OUT(II*2+9) STR( 3) = SIG X 1 STR( 4) = SIG Y 1 STR( 5) = SIG XY 1 STR(10) = PH1OUT(1) STR(11) = PH1OUT(II*2+10) STR(12) = SIG X 2 STR(13) = SIG Y 2 STR(14) = SIG XY 2 C DO 110 I = 3,12,9 TEMP = STR(I)-STR(I+1) STR(I+6) = SQRT((TEMP/2.0)**2+STR(I+2)**2) DELTA = (STR(I)+STR(I+1))/2.0 STR(I+4) = DELTA+STR(I+6) STR(I+5) = DELTA-STR(I+6) DELTA = 2.0*STR(I+2) IF (ABS(DELTA).LT.1.0E-15 .AND. ABS(TEMP).LT.1.0E-15) GO TO 100 STR(I+3) = ATAN2(DELTA,TEMP)*28.6478898E0 GO TO 110 100 STR(I+3) = 0.0 110 CONTINUE GO TO 140 120 DO 130 I = 2,18 130 STR( I) = 0.0 140 STR( 1) = PH1OUT(1) STR(10) = PH1OUT(1) C C ADDITION TO ELIMINATE 2ND ELEMENT ID IN OUTPUT C IJK = (II-1)*17 STOUT(IJK+1) = PH1OUT(1) DO 149 I = 2,9 149 STOUT(IJK+I) = STR(I) DO 150 I = 10,17 150 STOUT (IJK+I) = STR(I+1) C GO TO 17 155 CONTINUE DO 156 I = 1,17 156 PH1OUT(100+I) = STOUT(I) DO 159 J = 1,3 DO 159 I = 1,16 J1 = 117 + (J-1)*16 + I J2 = (J-1)*17 + I + 18 PH1OUT(J1) = STOUT(J2) 159 CONTINUE DO 157 I = 1,6 157 PH1OUT(200+I) = FORVEC(I) DO 158 I = 1,5 PH1OUT(206+I) = FORVEC(I+ 7) 158 PH1OUT(211+I) = FORVEC(I+13) RETURN C C INTERNAL SUBROUTINE C 170 IF (TLOADS.EQ.0 .OR. FLAG) GO TO 200 JST = 738 + (II-1)*3 REALI(1) = PH1OUT(8)**3/12.0 REALI(2) = PH1OUT(9)**3/12.0 REALI(3) = PH1OUT(10)**3/12.0 CENTHK = PH1OUT(17)*2.0 REALI(4) = CENTHK**3/12.0 IF (N1 .EQ. 1) GO TO 190 FF = TI(K1+5) - TI(1) IF (ABS(PH1OUT(K1+9+2*II)) .LE.1.0E-07) GO TO 200 SDELTA(1) = (PH1OUT(JST+1)*FF + TI(2)*PH1OUT(K1+9+2*II))/REALI(II) SDELTA(2) = (PH1OUT(JST+2)*FF + TI(3)*PH1OUT(K1+9+2*II))/REALI(II) SDELTA(3) = (PH1OUT(JST+3)*FF + TI(4)*PH1OUT(K1+9+2*II))/REALI(II) GO TO 210 190 CONTINUE IF (ABS(PH1OUT(K1+9+2*II)) .LE. 1.0E-07) GO TO 200 FF1 = (TI(K1+3) - PH1OUT(K1+9+2*II)*TI(2)-TI(1))/REALI(II) FF2 = (TI(K1+3) - PH1OUT(K1+9+2*II)*TI(2)-TI(1))/REALI(II) FF3 = (TI(K1+3) - PH1OUT(K1+9+2*II)*TI(2)-TI(1))/REALI(II) SDELTA(1) = PH1OUT(JST+1)*FF1 SDELTA(2) = PH1OUT(JST+2)*FF2 SDELTA(3) = PH1OUT(JST+3)*FF3 GO TO 210 200 SDELTA(1) = 0.0 SDELTA(2) = 0.0 SDELTA(3) = 0.0 210 GO TO IRETRN, (26,27) END ================================================ FILE: mis/strpl1.f ================================================ SUBROUTINE STRPL1 C C PHASE I OF STRESS DATA RECOVERY FOR TRI-PLATE C C OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING. C C 1) ELEMENT ID C 2) 3 SILS AND A DUMMY C 3) I C 4) Z1 AND Z2 C 5) 3 5X6 S-SUB-I ARRAYS C 6) 3 X 1 S SUB T MATRIX C THUS, 101 WORDS FOR THE TRI-PLATE C C C ECPT LISTS AS OF AUGUST 4, 1967 C C DEFINITION C ECPT BSC.BEND.TRI. AND THE TRI-PLATE C ======== ================================ C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = GRID PT. A INTEGER C ECPT( 3) = GRID PT. B INTEGER C ECPT( 4) = GRID PT. C INTEGER C ECPT( 5) = THETA REAL C ECPT( 6) = MAT ID 1 INTEGER C ECPT( 7) = I MOM. OF INERT. REAL C ECPT( 8) = MAT ID 2 INTEGER C ECPT( 9) = T2 REAL C ECPT(10) = NON-STRUCT. MASS REAL C ECPT(11) = Z1 REAL C ECPT(12) = Z2 REAL C ECPT(13) = COORD. SYS. ID 1 INTEGER C ECPT(14) = X1 REAL C ECPT(15) = Y1 REAL C ECPT(16) = Z1 REAL C ECPT(17) = COORD. SYS. ID 2 INTEGER C ECPT(18) = X2 REAL C ECPT(19) = Y2 REAL C ECPT(20) = Z2 REAL C ECPT(21) = COORD. SYS. ID 3 INTEGER C ECPT(22) = X3 REAL C ECPT(23) = Y3 REAL C ECPT(24) = Z3 REAL C ECPT(25) = ELEMENT TEMP REAL C INTEGER SUBSCA,SUBSCB,SUBSCC REAL L1,L2,IVECT,JVECT,KVECT,D(9) DIMENSION M(9),REQUIV(9),G(36),TITE(10),V(25),HQ(12), 1 TEMP15(15),PROD15(15),NECPT(25),V1(3),V2(3),V3(3) COMMON /CONDAS/ CONSTS(5) COMMON /SDR2X5/ ECPT(100),PH1OUT(98),ST(3) COMMON /SDR2X6/ A(45),T(9),S(18),HINV(36),PROD12(12),D1(3),D2(3), 1 HABC(18),SSUM(60),R(2,4),IVECT(3),JVECT(3), 2 KVECT(3),VV1(2),VV2(2),XSUBB,XSUBC,YSUBC,E(18), 3 TEMP,L1,L2,C1,C2,S1,S2,X1,X2,Y1,Y2,NPOINT,DUM9, 4 TEMP1,TEMP2,PROD9(9),TEMP9(9),DUM8,KM,SUBSCA, 5 SUBSCB,SUBSCC,DUM11,THETA,NSUBC,ISING,U1,U2, 6 SINANG,COSANG,DUM10,XC,YC,DETERM,DUM12(4) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA(3) EQUIVALENCE (CONSTS(4),DEGRA),(PROD15(1),PROD9(1)), 1 (REQUIV(1),R(1,1)),(NECPT(1),ECPT(1)), 2 (V1(1),ECPT(14)),(V2(1),ECPT(18)), 3 (V3(1),ECPT(22)),(TITE(1),A(1)), 4 (V(1),PROD12(1)),(HQ(1),A(1)) DATA M / 1,2,4, 2,3,4, 3,1,4 / C ELTEMP = ECPT(25) THETA = ECPT(5)*DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) C C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X4) FOR THE TRIANGULAR PLATE. C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX C DO 10 I = 1,8 10 REQUIV(I) = 0.0 C DO 20 I = 1,3 D2(I) = V2(I) - V1(I) 20 D1(I) = V3(I) - V1(I) C C X2 GOES IN R(1,2) C R(1,2) = SQRT(D2(1)**2 + D2(2)**2 + D2(3)**2) DO 30 I = 1,3 30 IVECT(I) = D2(I)/R(1,2) C C NON-NORMALIZED K-VECTOR C KVECT(1) = IVECT(2)*D1(3) - D1(2)*IVECT(3) KVECT(2) = IVECT(3)*D1(1) - D1(3)*IVECT(1) KVECT(3) = IVECT(1)*D1(2) - D1(1)*IVECT(2) C C Y3 GOES INTO R(2,3) C R(2,3) = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2) DO 40 I = 1,3 40 KVECT(I) = KVECT(I)/R(2,3) C C J-VECTOR = K X I VECTORS C JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3) JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1) JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2) C C NORMALIZE J VECTOR TO MAKE SURE C TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2) DO 60 I = 1,3 60 JVECT(I) = JVECT(I)/TEMP C C X3 GOES INTO R(1,3) = D1 DOT IVECT C R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3) C C CENTROID POINT GOES INTO R(1,4) AND R(2,4) C R(1,4) = (R(1,2) + R(1,3))/3.0 R(2,4) = R(2,3)/3.0 C C COMPUTE SUB-TRIANGLE COORDINATES C CALL BASIC BENDING ROUTINE FOR ALL SUB-TRIANGLES. C DO 80 I = 1,60 80 SSUM(I) = 0.0 DO 90 I = 1,36 90 G(I) = 0.0 C DO 180 J = 1,3 KM = 3*J - 3 C SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 100 I = 1,2 VV1(I) = R(I,SUBSCB) - R(I,SUBSCA) 100 VV2(I) = R(I,SUBSCC) - R(I,SUBSCA) XSUBB = SQRT(VV1(1)**2 + VV1(2)**2) U1 = VV1(1)/XSUBB U2 = VV1(2)/XSUBB XSUBC = U1*VV2(1) + VV2(2)*U2 YSUBC = U1*VV2(2) - VV2(1)*U2 C XC = XSUBC YC = YSUBC C SINTH = SINANG*U1 - COSANG*U2 COSTH = COSANG*U1 + SINANG*U2 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR TRIANGLE -J- C CALL STRBS1 (2) C C RETURNING FROM STRBS1 THE FOLLOWING QUANTITIES ARE AT HAND. C C S , S , S , EACH 5X3. 45 WORDS STORED IN A( 1) THRU A(45) C A B C C C AND ALSO H-INVERSE IS AT A(73) THRU A(108) AND S IS AT A(55) THRU C A(72) C C SET UP OF T-MATRIX C T(1) = 1.0 T(2) = 0.0 T(3) = 0.0 T(4) = 0.0 T(5) = U1 T(6) = U2 T(7) = 0.0 T(8) =-U2 T(9) = U1 C C SET UP V-MATRIX PER FMMS 51-A C V( 1) = U1*U1/3.0 V( 2) = U2*U2/3.0 V(11) = U1*U2/3.0 V( 3) =-V(11)*2.0 V( 4) = 0.0 V( 5) = 0.0 V( 6) = V(2) V( 7) = V(1) V( 8) =-V(3) V( 9) = 0.0 V(10) = 0.0 V(12) =-V(11) V(13) = V(1) - V(2) V(14) = 0.0 V(15) = 0.0 V(16) = 0.0 V(17) = 0.0 V(18) = 0.0 V(19) = U1/3.0 V(20) =-U2/3.0 V(21) = 0.0 V(22) = 0.0 V(23) = 0.0 V(24) =-V(20) V(25) = V(19) C C ADD IN S , S , S TO THE 4 5X3 SSUM MATRICES C A B C C DO 120 I = 1,3 CALL GMMATS (V(1),5,5,0, A(15*I-14),5,3,0, TEMP15(1)) CALL GMMATS (TEMP15(1),5,3,0, T(1),3,3,0, PROD15(1)) C C POINTER TO SSUM MATRIX C NPOINT = KM + I NPOINT = 15*M(NPOINT) - 15 DO 110 K = 1,15 NSUBC = NPOINT + K 110 SSUM(NSUBC) = SSUM(NSUBC) + PROD15(K) 120 CONTINUE C C FORM HQ (2X6) C TEMP1 = XSUBB - XSUBC TEMP2 = YSUBC**2 L1 = SQRT(XSUBC**2 + TEMP2) L2 = SQRT(TEMP1**2 + TEMP2) S1 = XSUBC/L1 S2 = TEMP1/L2 C1 = YSUBC/L1 C2 = YSUBC/L2 X1 = XSUBC/2.0 Y1 = YSUBC/2.0 X2 = (XSUBB + XSUBC)/2.0 Y2 = Y1 HQ( 1) =-XSUBC*C1 HQ( 2) = X1*S1 - Y1*C1 HQ( 3) = 2.0*Y1*S1 HQ( 4) =-3.0*X1*X1*C1 HQ( 5) = Y1*(2.0*X1*S1 - Y1*C1) HQ( 6) = 3.0*Y1*Y1*S1 HQ( 7) = 2.0*X2*C2 HQ( 8) = X2*S2 + Y2*C2 HQ( 9) = 2.0*Y2*S2 HQ(10) = 3.0*X2*X2*C2 HQ(11) = Y2*(2.0*X2*S2 + Y2*C2) HQ(12) = 3.0*Y2*Y2*S2 C C I -1 C COMPUTE (H I H ) = (HQ)(H) STORE IN PROD12 C PSI,B I PSI,C C I C CALL GMMATS (HQ(1),2,6,0, HINV(1),6,6,0, PROD12(1)) C C COMPUTE (H ) = -(PROD12)(S) C PSI,A C CALL GMMATS (PROD12(1),2,6,0, S(1),6,3,0, HABC(1)) HABC(1) = -HABC(1) HABC(2) = -HABC(2) + S1 HABC(3) = -HABC(3) + C1 HABC(4) = -HABC(4) HABC(5) = -HABC(5) + S2 HABC(6) = -HABC(6) - C2 C C SPLIT(H ) AND (H ) PARTITION C PSI,B PSI,C C HABC( 7) = PROD12( 1) HABC( 8) = PROD12( 2) HABC( 9) = PROD12( 3) HABC(10) = PROD12( 7) HABC(11) = PROD12( 8) HABC(12) = PROD12( 9) HABC(13) = PROD12( 4) HABC(14) = PROD12( 5) HABC(15) = PROD12( 6) HABC(16) = PROD12(10) HABC(17) = PROD12(11) HABC(18) = PROD12(12) C C MAP H , H , AND H INTO THE G-MATRICES. C A B C C C TRIANGLE NUMBER = J, THE THREE POINTS ARE SUBSCA,SUBSCB,SUBSCC. C DO 170 I = 1,3 C C POINTER TO H = 6*I - 6 C I C C TRANSFORM H SUB I C CALL GMMATS (HABC(6*I-5),2,3,0, T(1),3,3,0, TEMP9(1)) C NPOINT = KM + I NPOINT = 9*M(NPOINT) - 9 C C J = 1 ROW 1 OF H INTO ROW 1 OF G. C ROW 2 OF H INTO ROW 2 OF G. C J = 2 ROW 1 OF H INTO ROW 2 OF G. C ROW 2 OF H INTO ROW 3 OF G. C J = 3 ROW 1 OF H INTO ROW 3 OF G. C ROW 2 OF H INTO ROW 1 OF G. C IF (J-2) 140,130,160 C 130 NPOINT = NPOINT + 3 140 DO 150 K = 1,6 NPOINT = NPOINT + 1 150 G(NPOINT) = G(NPOINT) + TEMP9(K) GO TO 170 160 G(NPOINT+7) = G(NPOINT+7) + TEMP9(1) G(NPOINT+8) = G(NPOINT+8) + TEMP9(2) G(NPOINT+9) = G(NPOINT+9) + TEMP9(3) G(NPOINT+1) = G(NPOINT+1) + TEMP9(4) G(NPOINT+2) = G(NPOINT+2) + TEMP9(5) G(NPOINT+3) = G(NPOINT+3) + TEMP9(6) C 170 CONTINUE 180 CONTINUE C C FILL E-MATRIX C DO 190 I = 1,18 190 E( I) = 0.0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C C * * -1 C (S ) = (S ) - (S )(G ) (G ) I = A,B,C C I I 4 4 I C C E T T C (S ) = (S ) (E) (C ) = (S ) (TITE) I = A,B,C C I I I I C C * -1 C FIRST GET COMMON PRODUCT (S )(G ) C 4 4 C C INVERT (G ) STORE INVERSE BACK INTO (G ) C 4 4 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (3,G(28),3,PROD9(1),0,DETERM,ISING,TEMP9(1)) C C CHECK FOR SINGULARITY. ISING = 2 IMPLIES SINGULARITY C GO TO (210,200), ISING 200 CALL MESAGE (-30,36,ECPT(1)) C 210 CALL GMMATS (SSUM(46),5,3,0, G(28),3,3,0, PROD15(1)) C DO 260 I = 1,3 C C (PROD15) (G ) C I C CALL GMMATS (PROD15(1),5,3,0, G(9*I-8),3,3,0, TEMP15(1)) C C SUBTRACT TEMP15 FROM S C I C NPOINT = 15*I - 15 DO 220 K = 1,15 NPOINT = NPOINT + 1 220 SSUM(NPOINT) = SSUM(NPOINT) - TEMP15(K) C C DO WE NEED TRANSFORMATION T C I NSUBC = 4*I + 9 IF (NECPT(NSUBC) .EQ. 0) GO TO 230 CALL TRANSS (NECPT(NSUBC),T(1)) CALL GMMATS (T(1),3,3,1, E( 1),3,3,0, TITE( 1)) CALL GMMATS (T(1),3,3,1, E(10),3,3,0, TITE(10)) GO TO 250 C 230 DO 240 K = 1,18 240 TITE(K) = E(K) C 250 CALL GMMATS (SSUM(15*I -14),5,3,0, TITE(1),6,3,1, PH1OUT(30*I-21)) C 260 CONTINUE C C I,Z1,Z2,ELEM ID, 3 SILS FOR PHASE 2... PH1OUT(5) IS A DUMMY C PH1OUT(1) = ECPT( 1) PH1OUT(2) = ECPT( 2) PH1OUT(3) = ECPT( 3) PH1OUT(4) = ECPT( 4) PH1OUT(6) = ECPT( 7) PH1OUT(7) = ECPT(11) PH1OUT(8) = ECPT(12) C C FORM S SUB T MATRIX C MATID = NECPT(6) STRESS = 0 SINTH = SINANG COSTH = COSANG INFLAG = 2 CALL MAT (ECPT(1)) D(1) = G11*ECPT(7) D(2) = G12*ECPT(7) D(3) = G13*ECPT(7) D(4) = D(2) D(5) = G22*ECPT(7) D(6) = G23*ECPT(7) D(7) = D(3) D(8) = D(6) D(9) = G33*ECPT(7) CALL GMMATS (D(1),3,3,0, ALPHA(1),3,1,0, ST(1)) C C ALL PHASE ONE COMPLETE C RETURN END ================================================ FILE: mis/strpts.f ================================================ SUBROUTINE STRPTS (TS6,NOTS) C C STRESS ROUTINE ,CALLED FROM STRP11, FOR HIGHER ORDER PLATE ELEMENT C REAL J11,J12,J22 LOGICAL NOTS DIMENSION TS6(40) COMMON /MATOUT/ EM(6) COMMON /SDR2X5/ DUMSD(1114) 1, X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,B1,B2,B3 DO 105 I=1,40 TS6(I)=0.0 105 CONTINUE THK=A1+A2*X+A3*Y THK1=THK**3/12.0 D11=EM(1)*THK1 D12=EM(2)*THK1 D13=EM(3)*THK1 D22=EM(4)*THK1 D23=EM(5)*THK1 D33=EM(6)*THK1 D21=D12 D31=D13 D32=D23 IF (NOTS) GO TO 146 THK=B1+B2*X+B3*Y J11=1.0/(EM(6)*THK) J12=0.0 J22=J11 GO TO 148 146 CONTINUE J11=1.0 J12=0.0 J22=1.0 148 CONTINUE C A11=-(J11*D11+J12*D13) A12=-(J11*D12+J12*D23) A13=-(J11*D13+J12*D33) A14=-(J11*D31+J12*D21) A15=-(J11*D32+J12*D22) A16=-(J11*D33+J12*D23) A21=-(J12*D11+J22*D13) A22=-(J12*D12+J22*D23) A23=-(J12*D13+J22*D33) A24=-(J12*D13+J22*D12) A25=-(J12*D23+J22*D22) A26=-(J12*D33+J22*D32) A31=A14+2.0*A13 A32=A12+2.0*A16 A33=A24+2.0*A23 A34=A22+2.0*A26 A35=A33+A11 A36=A34+A31 A37=A25+A32 C X2=X*X XY=X*Y Y2=Y*Y A38=A13+A14 A39=A12+A16 A40=A23+A24 A41=A22+A26 TS6( 7)=6.0*A11 TS6( 8)=2.0*A31 TS6( 9)=2.0*A32 TS6(10)=6.0*A15 TS6(11)=24.0*A11*X TS6(12)=6.0*(A31*X+A11*Y) TS6(13)=4.0*(A32*X+A31*Y) TS6(14)=6.0*(A15*X+A32*Y) TS6(15)=24.0*A15*Y IF (NOTS) GO TO 156 TS6(16)=120.0*(-A11*A11-A13*A21+0.5*A11*X2) TS6(17)=12.0*(-A11*A32-A13*A34-A38*A31-A39*A33-A16*A11-A15*A21) 1 +6.0*(A32*X2+2.0*A31*XY+A11*Y2) TS6(18)=12.0*(-A11*A15-A13*A25-A38*A32-A39*A34-A16*A31-A15*A33) 1 +6.0*(A15*X2+2.0*A32*XY+A31*Y2) TS6(19)=24.0*(-A39*A25-A16*A32-A15*A34+A15*XY+0.5*A32*Y2-A38*A15) TS6(20)=-120.0*(A16*A15+A15*A25-0.5*A15*Y2) GO TO 158 156 CONTINUE TS6(16)=60.0*A11*X2 TS6(17)=6.0*(A32*X2+2.0*A31*XY+A11*Y2) TS6(18)=6.0*(A15*X2+2.0*A32*XY+A31*Y2) TS6(19)=12.0*(2.0*A15*XY+A32*Y2) TS6(20)=60.0*A15*Y2 158 CONTINUE TS6(27)=6.0*A21 TS6(28)=2.0*A33 TS6(29)=2.0*A34 TS6(30)=6.0*A25 TS6(31)=24.0*A21*X TS6(32)=6.0*(A33*X+A21*Y) TS6(33)=4.0*(A34*X+A33*Y) TS6(34)=6.0*(A25*X+A34*Y) TS6(35)=24.0*A25*Y IF (NOTS) GO TO 166 TS6(36)=120.0*(-A21*A11-A23*A21+0.5*A21*X2) TS6(37)=12.0*(-A21*A32-A23*A34-A40*A31-A41*A33-A26*A11-A25*A21) 1 +6.0*(A34*X2+2.0*A33*XY+A21*Y2) TS6(38)=12.0*(-A21*A15-A23*A25-A40*A32-A41*A34-A26*A31-A25*A33) 1 +6.0*(A25*X2+2.0*A34*XY+A33*Y2) TS6(39)=24.0*(-A41*A25-A26*A32-A25*A34+A25*XY+0.5*A34*Y2-A40*A15) TS6(40)=-120.0*(A26*A15+A25*A25-0.5*A25*Y2) GO TO 168 166 CONTINUE TS6(36)=60.0*A21*X2 TS6(37)=6.0*(A34*X2+2.0*A33*XY+A21*Y2) TS6(38)=6.0*(A25*X2+2.0*A34*XY+A33*Y2) TS6(39)=12.0*(2.0*A25*XY+A34*Y2) TS6(40)=60.0*A25*Y2 168 CONTINUE RETURN END ================================================ FILE: mis/strqd1.f ================================================ SUBROUTINE STRQD1 ( NTYPE ) C C**************** PHASE I STRESS DATA RECOVERY ************************ C ********************************************************************** C C 9/12/67 E C P T L I S T I N G C *************************** C ECPT TRMEM QDMEM TRPLT QDPLT TRIA1 QUAD1 TRIA2 QUAD2 C ********************************************************************** C 1 EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID C 2 GRID A GRID A GRID A GRID A GRID A GRID A GRID A GRID A C 3 GRID B GRID B GRID B GRID B GRID B GRID B GRID B GRID B C 4 GRID C GRID C GRID C GRID C GRID C GRID C GRID C GRID C C 5 THETA GRID D THETA GRID D THETA GRID D THETA GRID D C 6 MATID THETA MATID1 THETA MATID1 THETA MAT ID THETA C 7 T MAT ID I MATID1 T1 MATID1 T MAT ID C 8 NS MASS T MATID2 I MATID2 T1 NS MASS T C 9 CSID 1 NS MASS T2 MATID2 I MATID2 CSID 1 NS MASS C 10 X1 CSID 1 NS MASS T2 MATID3 I X1 CSID 1 C 11 Y1 X1 Z1 NS MASS T2 MATID3 Y1 X1 C 12 Z1 Y1 Z2 Z1 NS MASS T2 Z1 Y1 C 13 CSID 2 Z1 CSID 1 Z2 Z1 NS MASS CSID 2 Z1 C 14 X2 CSID 2 X1 CSID 1 Z2 Z1 X2 CSID 2 C 15 Y2 X2 Y1 X1 CSID 1 Z2 Y2 X2 C 16 Z2 Y2 Z1 Y1 X1 CSID 1 Z2 Y2 C 17 CSID 3 Z2 CSID 2 Z1 Y1 X1 CSID 3 Z2 C 18 X3 CSID 3 X2 CSID 2 Z1 Y1 X3 CSID 3 C 19 Y3 X3 Y2 X2 CSID 2 Z1 Y3 X3 C 20 Z3 Y3 Z2 Y2 X2 CSID 2 Z3 Y3 C 21 TEMP Z3 CSID 3 Z2 Y2 X2 TEMP Z3 C 22 CSID 4 X3 CSID 3 Z2 Y2 CSID 4 C 23 X4 Y3 X3 CSID 3 Z2 X4 C 24 Y4 Z3 Y3 X3 CSID 3 Y4 C 25 Z4 TEMP Z3 Y3 X3 Z4 C 26 TEMP CSID 4 Z3 Y3 TEMP C 27 X4 TEMP Z3 C 28 Y4 CSID 4 C 29 Z4 X4 C 30 TEMP Y4 C 31 Z4 C 32 TEMP C ********************************************************************** C DIMENSION SAVE(32) C C ********FOLLOWING BLOCK IS SET AT MINIMUM LENGTH REQUIRED BY C ********THIS ROUTINE..... C COMMON /SDR2X5/ ECPT(100) , PH1OUT(176) C C C THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2 C C NTYPE = 1 IMPLIES STRIA1 C NTYPE = 2 IMPLIES STRIA2 C NTYPE = 3 IMPLIES SQUAD1 C NTYPE = 4 IMPLIES SQUAD2 C C SAVE THE INCOMING ECPT C DO 10 I=1,32 10 SAVE(I) = ECPT(I) C C TRANSFER TO OPERATIONS DESIRED C C STRIA1 STRIA2 SQUAD1 SQUAD2 GO TO(20,100,150,230),NTYPE C C ************** C 100 *** STRIA1 *** C ************** C C SET UP ECPT FOR CALL TO STRME1(0), FIRST CHECK T1 FOR ZERO. 20 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 50 DO 30 I=9,21 30 ECPT(I) = SAVE(I + 6) C CALL STRME1(0) C C MOVE OUTPUT FROM STRME1 DOWN TO NEAR BOTTOM OF PH1OUT C WORDS (1 THRU 36) DOWN TO (102 THRU 137) C DO 40 I=1,36 40 PH1OUT(I+101) = PH1OUT(I) GO TO 60 C 50 PH1OUT(102) = ECPT(1) PH1OUT(103) = 0.0E0 C C 150 SET UP ECPT FOR CALL TO STQPL1(3), FIRST CHECK I AND T2 EQUAL ZERO 60 IF( SAVE(9) .EQ. 0.0E0 ) GO TO 90 DO 70 I=1,5 70 ECPT(I) = SAVE(I) DO 80 I=6,25 80 ECPT(I) = SAVE(I + 2) C CALL STRPL1 RETURN C 90 PH1OUT(1) = ECPT(1) PH1OUT(2) = 0.0E0 RETURN C C ************** C 200 *** STRIA2 *** C ************** 100 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 140 C SET UP ECPT FOR CALL TO STRME1(0) C C ECPT IS OK AS DELIVERED TO THIS ROUTINE C CALL STRME1( 0 ) C C MOVE OUTPUT FROM STRME1 DOWN TO NEAR BOTTOM OF PH1OUT C WORDS (1 THRU 36) DOWN TO (102 THRU 137) C DO 110 I=1,36 110 PH1OUT(I+101) = PH1OUT(I) C C SET UP ECPT FOR CALL TO STQPL1(3) C DO 120 I=1,6 120 ECPT(I) = SAVE(I) ECPT(7) = SAVE(7) ** 3 / 12.0E0 ECPT(8) = SAVE(6) ECPT(9) = SAVE(7) ECPT(10)= SAVE(8) ECPT(11) =-SAVE(7)/2.0E0 ECPT(12) = -ECPT(11) DO 130 I=13,25 130 ECPT(I) = SAVE(I - 4) C CALL STRPL1 RETURN C 140 PH1OUT( 1) = ECPT(1) PH1OUT( 2) = 0.0E0 PH1OUT(102) = ECPT(1) PH1OUT(103) = 0.0E0 RETURN C C ************** C 300 *** SQUAD1 *** C ************** C 150 IF(SAVE(8).EQ.0.0E0)GO TO 180 C C SET UP ECPT FOR CALL TO SQDME1 C ECPT(9) = SAVE(13) DO 160 I=10,26 160 ECPT(I) = SAVE(I+6) C CALL SQDME1 C C MOVE OUTPUT FROM SQDME1 DOWN TO BOTTOM OF PH1OUT C WORDS (1 THRU 45) DOWN TO (132 THRU 176) C DO 170 I=1,45 170 PH1OUT(I+131) = PH1OUT(I) C GO TO 190 180 PH1OUT(132) = ECPT(1) PH1OUT(133) = 0.0E0 C 190 IF( SAVE(10) .EQ. 0.0E0 ) GO TO 220 C C SET UP ECPT FOR CALL TO STQPL1(4) C DO 200 I=1,6 200 ECPT(I) = SAVE(I) DO 210 I=7,30 210 ECPT(I) = SAVE(I + 2) C CALL SQDPL1 RETURN C 220 PH1OUT(1) = ECPT(1) PH1OUT(2) = 0.0E0 RETURN C C ************** C 400 *** SQUAD2 *** C ************** C 230 IF( SAVE(8) .EQ. 0.0E0 ) GO TO 270 C C SET UP ECPT FOR CALL TO SQDME1 C C ECPT IS OK AS DELIVERED TO THIS ROUTINE C CALL SQDME1 C MOVE OUTPUT FROM SQDME1 DOWN TO BOTTOM OF PH1OUT C WORDS (1 THRU 45) DOWN TO (132 THRU 176) C DO 240 I=1,45 240 PH1OUT(I+131) = PH1OUT(I) C C C SET UP ECPT FOR CALL TO STQPL1(4) C DO 250 I=1,7 250 ECPT(I) = SAVE(I) ECPT(8) = SAVE(8) **3 / 12.0E0 ECPT(9) = SAVE(7) ECPT(10)= SAVE(8) ECPT(11)= SAVE(9) ECPT(12) =-SAVE(8)/2.0E0 ECPT(13) =-ECPT(12) DO 260 I=14,30 260 ECPT(I) = SAVE(I - 4) C CALL SQDPL1 C RETURN C 270 PH1OUT(1) = ECPT(1) PH1OUT(2) = 0.0E0 PH1OUT(132) = ECPT(1) PH1OUT(133) = 0.0E0 RETURN END ================================================ FILE: mis/strqd2.f ================================================ SUBROUTINE STRQD2( NPTS, TI ) C C ****PHASE II OF STRESS DATA RECOVERY********* C C NPTS = 3 IMPLIES STRIA1 OR STRIA2 (PHASE II) C NPTS = 4 IMPLIES SQUAD1 OR SQUAD2 (PHASE II) C LOGICAL FLAG LOGICAL STRAIN C REAL TI(6) ,SDELTA(3),SSTRSS(3),FRLAST(2) C INTEGER IST(10) INTEGER TLOADS ,EJECT ,IFRVEC(12),ISHED(7),TR ,QU 1, ONTW(2) ,ISTYP(2) C DIMENSION NSIL(4), STR(18), NPH1OU(2), SI(36) C COMMON /BLANK / IDUMMY(10), STRAIN COMMON /SYSTEM/ IBFSZ ,NOUT ,IDM(9) ,LINE COMMON /ZZZZZZ/ Z(1) COMMON /SDR2X4/ DUMMY(35), IVEC, IVECN, LDTEMP, DEFORM,DUM8(8), 1 TLOADS COMMON /SDR2X7/ PH1OUT(200),FORVEC(6) COMMON /SDR2X8/ TEMP,DELTA,NPOINT,I,J,NPT1,VEC(5),TEM 1, Z1 OVR I, Z2 OVR I,STRESS(3),CHPOUT(30),CVEC(5) 1, CFRVEC(12) COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK COMMON /SDR2DE/ SKP2DE(8),IELTYP C EQUIVALENCE 1 (NSIL(1),PH1OUT(2)) 2 ,(NPH1OU(1),PH1OUT(1)) 3 ,(SI(1),PH1OUT(9)) 6 ,(STR(1),PH1OUT(101)) 7 ,(LDTEMP,FTEMP) 8 ,(F1,N1) 9, (CFRVEC(1),IFRVEC(1)) , (ISHED(6),FRLAST(1)) *, (ISHED(1),LSUB) , (ISHED(2),LLD) EQUIVALENCE (STR(1), IST(1)) C DATA TR,QU,ONTW / 4HTRIA , 4HQUAD , 1H1 , 1H2 / , LLD / -100 / DATA LSUB,FRLAST / -100 , -1.0E30 , -1.0E30 / DATA IBLANK /4H / C ********************************************************************** C ********************************************************************** C C PHASE I OUTPUT FROM THE PLATE IS THE FOLLWOING C C PH1OUT(1) ELEMENT ID C PH1OUT(2 THRU 5) 3 SILS AND DUMMY OR 4 SILS C PH1OUT(6) I C PH1OUT(7 THRU 8) Z1 AND Z2 C PH1OUT(9 THRU 30*NPTS+8) 3 OR 4 S SUB I 5X6 ARRAYS C PH1OUT(30*NPTS+9 THRU 30*NPTS+11) S SUB T MATRIX C C ********************************************************************** C C PHASE I OUTPUT FROM THE MEMBRANE IS THE FOLLOWING C NOTE..BEGIN = 30*NPTS+11 C C PH1OUT(BEGIN + 1) ELEMENT ID C PH1OUT(BEGIN + 2 THRU BEGIN + 5) 3 SILS AND DUMMY OR 4 SILS C PH1OUT(BEGIN + 6) T SUB 0 C PH1OUT(BEGIN + 7 THRU BEGIN + 9) S SUB T 3X1 ARRAY C PH1OUT(BEGIN + 10 THRU BEGIN + 9*NPTS+9) 3 OR 4 S SUB I 3X3 ARRAYS C C ********************************************************************** C ********************************************************************** C C THE ABOVE ELEMENTS ARE COMPOSED OF PLATES AND MEMBRANES... C SOME MAY ONLY CONTAIN PLATES WHILE OTHERS MAY ONLY CONTAIN C MEMBRANES. C C A CHECK FOR A ZERO FIRST SIL IN THE PHASE I OUTPUT, WHICH C INDICATES WHETHER ONE OR THE OTHER HAS BEEN OMITTED, IS MADE BELOW C C C C FIRST GET FORCE VECTOR FOR THE PLATE CONSIDERATION C C M , M , M , V , V C X Y XY X Y C C NPTS C THE 5X1 FORCE VECTOR = SUMMATION (S )(U ) C I=1 I I C C ********************************************************************* C C . ZERO FORVEC AND PRECISION CHECK STORAGE... C DO 5 I = 1,6 FORVEC(I) = 0.0E0 CFRVEC(I) = 0.0E0 5 CFRVEC(I+6) = 0.0E0 FORVEC(1) = PH1OUT(1) C C ZERO OUT LOCAL STRESSES C SIG X 1 = 0.0E0 SIG Y 1 = 0.0E0 SIG XY 1 = 0.0E0 SIG X 2 = 0.0E0 SIG Y 2 = 0.0E0 SIG XY 2 = 0.0E0 C IF( NSIL(1) .EQ. 0 ) GO TO 30 C C FORM SUMMATION C DO 20 I=1,NPTS C C POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE C NPOINT = IVEC + NSIL(I) - 1 C CALL SMMATS (SI(30*I-29),5,6,0, Z(NPOINT),6,1,0, VEC(1),CVEC(1) ) DO 10 J=2,6 CFRVEC(J) = CFRVEC(J) + CVEC(J-1) 10 FORVEC(J) = FORVEC(J) + VEC(J-1) C 20 CONTINUE IF (STRAIN) GO TO 220 IF( TLOADS .EQ. 0 ) GO TO 25 JST = 30*NPTS+8 FLAG = .FALSE. F1 = TI(6) IF( N1 .EQ. 1 ) GO TO 22 FORVEC(2) = FORVEC(2) - TI(2) FORVEC(3) = FORVEC(3) - TI(3) FORVEC(4) = FORVEC(4) - TI(4) IF( TI(5).EQ.0.0 .AND. TI(6).EQ.0.0 ) FLAG = .TRUE. GO TO 25 22 FORVEC(2) = FORVEC(2) + TI(2)*PH1OUT(JST+1) FORVEC(3) = FORVEC(3) + TI(2)*PH1OUT(JST+2) FORVEC(4) = FORVEC(4) + TI(2)*PH1OUT(JST+3) IF( TI(3).EQ.0.0 .AND. TI(4).EQ.0.0 ) FLAG = .TRUE. 25 CONTINUE C C FORCE VECTOR IS NOW COMPLETE C Z1 = PH1OUT(7) Z2 = PH1OUT(8) C Z1 OVR I = - PH1OUT(7) / PH1OUT(6) Z2 OVR I = - PH1OUT(8) / PH1OUT(6) Z1I = ABS (Z1OVRI) Z2I = ABS (Z2OVRI) C K1 = 0 ASSIGN 26 TO IRETRN GO TO 170 C 26 SIG X 1 = FORVEC(2) * Z1 OVR I - SDELTA(1) SIG Y 1 = FORVEC(3) * Z1 OVR I - SDELTA(2) SIG XY 1 = FORVEC(4) * Z1 OVR I - SDELTA(3) CFRVEC(7) = CFRVEC(2) * Z1I CFRVEC(8) = CFRVEC(3) * Z1I CFRVEC(9) = CFRVEC(4) * Z1I C K1 = 1 ASSIGN 27 TO IRETRN GO TO 170 C 27 SIG X 2 = FORVEC(2) * Z2 OVR I - SDELTA(1) SIG Y 2 = FORVEC(3) * Z2 OVR I - SDELTA(2) SIG XY 2 = FORVEC(4) * Z2 OVR I - SDELTA(3) CFRVEC(10) = CFRVEC(2) * Z2I CFRVEC(11) = CFRVEC(3) * Z2I CFRVEC(12) = CFRVEC(4) * Z2I C ******************************* C GO TO 40 30 Z1 = 0.0E0 Z2 = 0.0E0 C C FIND SIG X, SIG Y, SIG XY, FOR MEMBRANE CONSIDERATION 40 IF( NPH1OU(30*NPTS+13) .EQ. 0 ) GO TO 90 C C ZERO STRESS VECTOR STORAGE C STRESS(1) = 0.0E0 STRESS(2) = 0.0E0 STRESS(3) = 0.0E0 SSTRSS(1) = 0.0E0 SSTRSS(2) = 0.0E0 SSTRSS(3) = 0.0E0 C C I=NPTS C STRESS VECTOR = ( SUMMATION(S )(U ) ) - (S )(LDTEMP - T ) C I=1 I I T 0 C DO 60 I=1,NPTS C C POINTER TO I-TH SIL IN PH1OUT NPOINT = 30*NPTS + 12 + I C POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE NPOINT = IVEC + NPH1OU (NPOINT) - 1 C C POINTER TO S SUB I 3X3 NPT1 = 30*NPTS + 12 + 9*I C CALL SMMATS (PH1OUT(NPT1),3,3,0, Z(NPOINT),3,1,0, VEC(1),CVEC(1)) DO 50 J=1,3 SSTRSS(J) = SSTRSS(J) + CVEC(J) 50 STRESS(J) = STRESS(J) + VEC(J) C 60 CONTINUE C IF (STRAIN) GO TO 230 IF(LDTEMP .EQ. (-1) ) GO TO 80 C C POINTER TO T SUB 0 = 30*NPTS + 17 C TEM = FTEMP - PH1OUT(30*NPTS + 17) DO 70 I=1,3 NPOINT = 30*NPTS + 17 + I 70 STRESS(I) = STRESS(I) -PH1OUT(NPOINT) *TEM C C ADD MEMBRANE STRESSES TO PLATE STRESSES C 80 SIG X 1 = SIG X 1 + STRESS(1) SIG Y 1 = SIG Y 1 + STRESS(2) SIG XY 1 = SIG XY 1 + STRESS(3) SIG X 2 = SIG X 2 + STRESS(1) SIG Y 2 = SIG Y 2 + STRESS(2) SIG XY 2 = SIG XY 2 + STRESS(3) CFRVEC( 7) = CFRVEC( 7) + SSTRSS(1) CFRVEC( 8) = CFRVEC( 8) + SSTRSS(2) CFRVEC( 9) = CFRVEC( 9) + SSTRSS(3) CFRVEC(10) = CFRVEC(10) + SSTRSS(1) CFRVEC(11) = CFRVEC(11) + SSTRSS(2) CFRVEC(12) = CFRVEC(12) + SSTRSS(3) C C STRESS OUTPUT VECTOR IS THE FOLLOWING C C 1) ELEMENT ID C 2) Z1 = FIBER DISTANCE 1 C 3) SIG X 1 C 4) SIG Y 1 C 5) SIG XY 1 C 6) ANGLE OF ZERO SHEAR AT Z1 C 7) SIG P1 AT Z1 C 8) SIG P2 AT Z1 C 9) TAU MAX = MAXIMUM SHEAR STRESS AT Z1 C C 10) ELEMENT ID C 11) Z2 = FIBER DISTANCE 2 C 12) SIG X 2 C 13) SIG Y 2 C 14) SIG XY 2 C 15) ANGLE OF ZERO SHEAR AT Z2 C 16) SIG P1 AT Z2 C 17) SIG P2 AT Z2 C S7) SIG P2 AT Z2 C 18) TAU MAX = MAXIMUM SHEAR STRESS AT Z2 C C 90 IF( NPH1OU(2) .EQ. 0 .AND. NPH1OU(30*NPTS+13) .EQ. 0 ) GO TO 120 C C COMPUTE PRINCIPAL STRESSES C STR( 1) = PH1OUT(1) STR( 2) = Z1 STR( 3) = SIG X 1 STR( 4) = SIG Y 1 STR( 5) = SIG XY 1 STR(10) = PH1OUT(1) STR(11) = Z2 STR(12) = SIG X 2 STR(13) = SIG Y 2 STR(14) = SIG XY 2 C DO 110 I=3,12,9 TEMP = STR(I) - STR(I+1) STR(I+6) = SQRT( (TEMP/2.0E0)**2 + STR(I+2)**2 ) DELTA = ( STR(I) + STR(I+1) ) / 2.0E0 STR(I+4) = DELTA + STR(I+6) STR(I+5) = DELTA - STR(I+6) DELTA = 2.0E0 * STR(I+2) IF( ABS(DELTA) .LT. 1.0E-15 .AND. ABS(TEMP) .LT. 1.0E-15)GO TO 100 STR(I+3) = ATAN2( DELTA,TEMP ) * 28.6478898E0 GO TO 110 100 STR(I+3) = 0.0E0 110 CONTINUE C GO TO 140 120 DO 130 I=2,18 130 STR(I) = 0.0E0 140 STR(1) = PH1OUT(1) STR(10) = PH1OUT(1) C C C ADDITION TO ELIMINATE 2ND ELEMENT ID IN OUTPUT C DO 150 I=10,17 150 STR(I) = STR(I+1) IF (.NOT.STRAIN) GO TO 152 IST( 2) = IBLANK STR( 5) = 2.0*STR(5) STR( 9) = 2.0*STR(9) IST(10) = IBLANK STR(13) = 2.0*STR(13) STR(17) = 2.0*STR(17) 152 CONTINUE C C . STRESS CHECK... C IF (NCHK .LE. 0 ) GO TO 999 CFRVEC(1) = PH1OUT(1) K = 0 C . FORCES... CALL SDRCHK (FORVEC(2),CFRVEC(2),5,K) C . STRESSES... CALL SDRCHK (STR(3),CFRVEC( 7),3,K) CALL SDRCHK (STR(11),CFRVEC(10),3,K) C IF (K.EQ.0) GO TO 999 C C . LIMITS EXCEEDED... J = 0 ISTYP(1) = TR ISTYP(2) = ONTW(1) IF (IELTYP.GT.17) ISTYP(1) = QU IF (IABS (IELTYP-17).LT.2) ISTYP(2) = ONTW(2) C IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND. 1 LLD .EQ.ILD .AND. FRLAST(2).EQ.FRTMEI(2) ) GO TO 156 C LSUB = ISUB LLD = ILD FRLAST(1) = FRTMEI(1) FRLAST(2) = FRTMEI(2) J = 1 CALL PAGE1 154 CALL SD2RHD (ISHED,J) LINE = LINE + 1 WRITE(NOUT,155) 155 FORMAT (7X,51HTYPE EID MX MY MXY VX VY , *38HSX1 SY1 SXY1 SX2 SY2 SXY2) GO TO 157 C 156 IF (EJECT(2).NE.0) GO TO 154 C 157 WRITE(NOUT,158) ISTYP,IFRVEC(1),(CFRVEC(II),II=2,12) 158 FORMAT (1H0,5X,A4,A2,I7,11F7.1) C GO TO 999 C C INTERNAL SUBROUTINE C 170 IF( TLOADS.EQ.0 .OR. FLAG ) GO TO 200 JST = 30*NPTS + 8 IF( N1 .EQ. 1 ) GO TO 190 FF = TI(K1+5) - TI(1) SDELTA(1) = (PH1OUT(JST+1)*FF + TI(2)*PH1OUT(K1+7)) / PH1OUT(6) SDELTA(2) = (PH1OUT(JST+2)*FF + TI(3)*PH1OUT(K1+7)) / PH1OUT(6) SDELTA(3) = (PH1OUT(JST+3)*FF + TI(4)*PH1OUT(K1+7)) / PH1OUT(6) GO TO 210 190 FF = (TI(K1+3) - PH1OUT(K1+7)*TI(2) - TI(1))/PH1OUT(6) SDELTA(1) = PH1OUT(JST+1)*FF SDELTA(2) = PH1OUT(JST+2)*FF SDELTA(3) = PH1OUT(JST+3)*FF GO TO 210 200 SDELTA(1) = 0.0 SDELTA(2) = 0.0 SDELTA(3) = 0.0 210 GO TO IRETRN,(26,27) C C SPECIAL CALCULATIONS FOR STRAINS. C 220 SIGX2 = FORVEC(2) SIGY2 = FORVEC(3) SIGXY2= FORVEC(4) GO TO 40 C 230 SIGX1 = STRESS(1) SIGY1 = STRESS(2) SIGXY1= STRESS(3) GO TO 90 999 RETURN END ================================================ FILE: mis/strscn.f ================================================ SUBROUTINE STRSCN (S OR F) C C THIS ROUTINE PERFORMS STRESS AND FORCE OUTPUT SCAN. C C ACKNOWLEDGEMENT - C C THIS ROUTINE WAS WRITTEN ORIGINALLY BY LOCKHEED/GEORGIA FOR USER C DMAP-ALTER APPLICATION. IT WAS GREATLY MODIFIED BY G.CHAN/SPERRY C SO THAT USERS CAN SPECIFY THE OUTPUT SCAN PARAMETERS FROM THE C CASE CONTROL SECTION VIA THE SCAN INPUT CARD(S). ONLY A VERY C SMALL PORTION OF THE ORIGINAL PROGRAM REMAINS. THE DMAP-ALTER C APPLICATION IS STILL AVAILABLE TO THE USER C C THIS ROUTINE IS CALLED ONLY BY SCAN C IT DOES NOT OPEN NOR CLOSE ANY FILE C C SCAN PARAMETER - C C S OR F - STRESS (1) OR FORCE (2) SCAN FLAG C INFILE - INPUT FILE, EITHER STRESS OR FORCE OUTPUT FILE C OUFILE - OUTPUT FILE FROM SCAN OPERATION, TO BE PRINTED C AGAIN BY OFP C IOPT - OPTION 1, SCAN BY AMAX-AMIN (.GT.AMAX AND .LT.AMIN) C OPTION 2, SCAN BY NTOP- C . TOP N LARGEST (TENSION) AND SMALLEST (COMPRESSION) C IN STRESS SCAN. C . TOP N LARGEST ONLY IF NO COMPRESSION STRESS PRESENT C . TOP N SMALLEST ONLY IF NO TENSION STRESS PRESENT C . TOP N VALUES SCAN FOR FORCES IF TOP N IS POSITIVE C . LEAST N VALUES SCAN FOR FORCES OR MARGIN (STRESS) C IF TOP N IS NEGATIVE C - IOPT IS INITIALIZED IN SCAN C - STRSCN WILL SET IOPT TO A NEGATIVE NUMBER IF INPUT C FILE IS NOT A STRESS OR FORCE FILE C ISET - A LIST OF ELEMENT IDS TO BE SCANNED C IEL - ELEMENT TYPE (CODE) TO BE SCANNED C IELT - ELEMENT NAME IN 2 BCD WORDS C ICASE - USED LOCALLY FOR SUBCASE NUMBER. C SUBC - CURRENT SUBCASE NO. USED IN SCAN AND STRSCN C OSUBC - SUBCASE NO. PROCESSED PREVIOUSLY C ISORT - SET LOCALLY TO 1 IF INPUT FILE DATA IS IN SORT1 C TYPE FORMAT, TO 2 IF IN SORT2 C DEBUG - LOCAL DEBUG FLAG, SET BY SCAN C OEL - ELEMENT TYPE PROCESSED PREVIOUSLY C C SEE SUBROUTINE SCAN FOR MORE PARAMETER DEFINITIONS C C *** IF SCAN IS CALLED BY USER VIA DMAP ALTER, WE HAVE C C ISET =-2 C LBEG=LEND = 0, NOT USED C LCSE1 AND = BEGINNING AND ENDING POINTERS TO AN ELEM. LIST C LCSE2 (SORT1, ALL SUBCASES), OR A SUBCASE LIST (SORT2, C ALL ELEMS) IF THEY ARE GIVEN. OTHERWISE, LCSE1=-1 C AND LCSE2=0 C C *** IF SCAN IS CALLED BY RIGID FORMAT, WE HAVE C C ISET =-1 IMPLIES THAT ALL ELEMENTS ARE TE BE SCANNED, C AND LBEG .GT. LEND C ISET = N IMPLIES THAT ELEM. ID SET N IS REQUESTED. THE C SET DATA IS STORED IN IZ(LBEG) THRU IZ(LEND) C ISET = 0 NOT DEFINED C LCSE1 AND = ARE COMPONENT DUPLICATION FLAG (IDUPL) AND C LCSE2 INCREMENT FLAG (INC) C = 0 IMPLIES NO DUPLICATION/INCR SET BY COMPONENT C LCSE1 =-2 SET AND USE LOCALLY IF SORT2 AND ELEM. SET ARE C INVOLVED. C LBEG AND = ARE BEGINNING AND ENDING POINTERS TO THE ELEM. C LEND ID SET, ALL ELEMS. (LBEG .GT. LEND IF ISET=-1) C LOGICAL IOPEN, JOPEN, ANY, DEBUG LOGICAL LAYERD, STRESS, FORCE CHARACTER*100 CHEAD CHARACTER*12 FIELD, SCNFLD(6) INTEGER OUFILE, HEAD, IHEAD(25),ID(50), IZ(2), 1 EOR, OEL, NAM(2), SORTX(3), ISCAN(10), 2 SUBC, OSUBC, QUAD4, TRIA3, TOPN, 3 S OR F, IBLANK COMMON /OUTPUT/ HEAD(96) COMMON /XSCANX/ INFILE, OUFILE, LCORE, LBEG, LEND, 1 IOPEN, JOPEN, IEL, IOPT, ISET, 2 ISORT, ITRL3, SUBC, OSUBC, OEL, 3 DEBUG, LLOOP, QUAD4, TRIA3, STRESS, 4 FORCE, LAYERD COMMON /BLANK / IELT(2), ICOMP, TOPN, AMAX, AMIN, 1 LCSE1, LCSE2, ICOMPX COMMON /SYSTEM/ IBUF, NOUT, SPACE(6), NLPP, DUM, 1 NPAGE, LINE COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW, 1 NOREW, EOFNRW COMMON /ZZZZZZ/ Z(2) EQUIVALENCE (IZ(1),Z(1)) EQUIVALENCE (CHEAD, IHEAD(1)) DATA NAM, SORTX / 1 4HSTRS, 4HCN , 4HSORT, 4H1 , 4H2 / DATA T24, EOR, NOEOR, IBLANK / / 1 1.E+24, 1, 0 , 1H / C C *** SET ISCAN ARRAY FROM COMPONENT SPECIFICATION C CHEAD = ' ' NSCAN=0 NTOP =IABS(TOPN) C PRINT *,' ENTERRING STRSCN,NTOP,ICOMP=',NTOP,ICOMP DO 20 I=1,30 J=2**(I-1) IF (MOD(ICOMP,2*J) .LT. J) GO TO 10 NSCAN=NSCAN+1 IF (I .EQ. 1) GO TO 670 ISCAN(NSCAN)=I 10 IF (ICOMPX .EQ. 0) GO TO 20 IF (MOD(ICOMPX,2*J) .LT. J) GO TO 20 NSCAN=NSCAN+1 ISCAN(NSCAN)=I+31 20 CONTINUE C PRINT *,' AFTER 20, ICOMP=',ICOMP J=2*J IF (ICOMP .LT. J) GO TO 24 NSCAN=NSCAN+1 ISCAN(NSCAN)=31 24 IF (ICOMPX .LT. J) GO TO 26 NSCAN=NSCAN+1 ISCAN(NSCAN)=62 26 IF (ICOMPX .NE. 0) CALL SORT (0,0,1,1,ISCAN,NSCAN) C DEBUG = .TRUE. C PRINT *,' AFTER 26,NSCAN=',NSCAN C PRINT *,' AFTER 26,ISCAN=',(ISCAN(KB),KB=1,NSCAN) IF (.NOT.DEBUG) GO TO 40 WRITE (NOUT,30) IOPEN,JOPEN,IELT,IEL,ISET,ICOMP,ICOMPX,LCSE1, 1 LCSE2,ISORT,SUBC,ITRL3,LBEG,LEND,NSCAN 30 FORMAT (//2X,12HDEBUG/STRSCN,/,2(2X,L1),2X,2A4,13I8) IF (IOPT .EQ. 2) WRITE (NOUT,33) NTOP,(ISCAN(J),J=1,NSCAN) IF (IOPT .EQ. 1) WRITE (NOUT,35) AMAX,AMIN,(ISCAN(J),J=1,NSCAN) 33 FORMAT (5X,I9,31I3) 35 FORMAT (5X,2E10.3,31I3) IF (LEND .GT. LBEG) WRITE (NOUT,38) ISET,(IZ(J),J=LBEG,LEND) 38 FORMAT (/5X,3HSET,I8, (/5X,15I7)) IF (NSCAN .GT. 10) GO TO 590 IF (NSCAN .EQ. 0) GO TO 670 C C *** INITIALIZATION C 40 IDUPL=LCSE1 INC =LCSE2 JNC =0 IF (ISET+1) 70,50,60 50 LCSE1=0 LCSE2=0 GO TO 70 60 LCSE1=IZ(LBEG) LCSE2=IABS(IZ(LEND)) 70 NS =-1 IF (LCSE1 .GT. LCSE2) GO TO 640 IF (.NOT.IOPEN .OR. .NOT.JOPEN) GO TO 600 C LBUF1=1 LBUF3=0 LBUF0=LBUF1-1 IL2 =0 NREW =0 ICASE=-1 ANY =.FALSE. IF (OSUBC .EQ. 0) CALL FWDREC (*610,INFILE) IF (ISET.EQ.-2 .OR. ISORT.EQ.2 .OR. SUBC.NE.OSUBC) GO TO 100 DO 80 I=1,3 CALL BCKREC (INFILE) 80 CONTINUE GO TO 90 C C *** READ INPUT FILE ID RECORD AND SET ISORT FLAG FOR SORT1 OR SORT2 C DATA TYPE C AT THIS TIME, ISORT MAY BE ALREADY SET BY PREVIOUS SCAN, OR ZERO C 85 IF (ISORT.EQ.2 .OR. NREW.GE.2) GO TO 490 NREW=NREW+1 CALL REWIND (INFILE) 90 CALL FWDREC (*610,INFILE) 100 CALL READ (*85,*110,INFILE,ID,50,0,IWDS) CALL READ (*610,*620,INFILE,HEAD,96,1,IWDS) ISORT=1 IF (ID(2) .GE. 2000) ISORT=2 IF (ID(2) .GE. 3000) GO TO 500 C C *** SYNCHRONIZE SUBCASE ID (WHICH MAY NOT BE IN ASCENDING ORDER) C IF (ISET.EQ.-2 .OR. ISORT.EQ.2 .OR. ID(4).EQ.SUBC) GO TO 130 110 CALL REWIND (INFILE) NREW=NREW+1 IF (NREW .GT. 2) GO TO 490 120 CALL FWDREC (*610,INFILE) CALL READ (*610,*110,INFILE,ID,10,1,IWDS) IF (ID(4) .NE. SUBC) GO TO 120 CALL BCKREC (INFILE) GO TO 100 C C *** SYNCHRONIZE ELEMENT TYPE (WHICH MAY NOT BE IN ASCENDING ORDER) C 130 IF (ID(3)-IEL) 90,140,90 140 OEL =IEL NREW=0 C C *** POSITION DATA BLOCK FOR FIRST CASE AND BEGIN SCAN C I=140 IF (DEBUG) WRITE (NOUT,145) I,ISET,ISORT,ICASE,LCSE1,LCSE2,SUBC 145 FORMAT (/9X,12HDEBUG/STRSCN,I4,1H-,/2X,I9,11I7,3X,L1) NWDS =ID(10) CWKBNB 1/3/94 SPR93010 & 93011 LAYERD = .FALSE. C FOR LAYERED QUAD4 AND TRIA3 IEL WILL BE EITHER 64 OR 83 RESPECTIVELY C AND ID(10) WILL BE 10 (10 IS THE NUMBER OF WORDS PER LINE TO BE PRINTED). IF ( (IEL .EQ. 64 .OR. IEL .EQ. 83) .AND. ID(10) .EQ. 10 ) & LAYERD = .TRUE. IF ( .NOT. LAYERD ) GO TO 144 C TO DETERMINE THE NUMBER OF WORDS PER EACH ELEMENT, WILL NEED TO DETERMINE C HOW MANY LAYERS ARE PRESENT (Z(LBUF1+1)) AND ALLOW 10 WORDS PER LAYER C PLUS A THREE WORD HEADER AND TWO EXTRA WORDS ON THE END. CALL READ (*610,*340,INFILE,IZ(LBUF1),3,0,IWDS) NWDS = 3 + 10*IZ(LBUF1+1) + 2 C PRINT *,' COMPUTED NWDS=',NWDS CALL BCKREC ( INFILE ) CWKBNE 1/3/94 SPR93010 & 93011 144 NWDS1=NWDS+1 LBUF2=LBUF1+NWDS1 LBUF3=LBUF2 IH1 =LBUF2 146 IH2 =LBUF2+NWDS1*NTOP-1 IL1 =IH2+1 IL2 =IH2+NWDS1*NTOP IF (IL2 .GT. LCORE) GO TO 660 II =0 JJ =0 KK =0 MM =IH1 NN =IL1 IDELM=-1 ICASE=0 ANY =.FALSE. IF (LCSE1 .EQ. -2) LCSE1=0 IF (LCSE1 .GT. -2) NS=LBEG 150 NS=NS-1 NS=MIN0(NS,LBEG-1) IF (ISORT.EQ.2 .AND. IDELM.NE.-1) GO TO 90 160 CALL READ (*610,*340,INFILE,IZ(LBUF1),NWDS,0,IWDS) C C *** CHECK WHETHER THIS ELEMENT IS NEEDED FOR SCAN C WALK THROUGH SET ARRAY IF IT IS NECESSARY TO DO SO (R.F. ONLY) C CHECK SUBCASE NO. INSTEAD OF ELEM. ID IF THIS IS A USER DAMP ALTER C RUN WITH SORT2 TYPE DATA C IF (ISET .NE. -2) GO TO 170 IF (LCSE1 .LE. -1) GO TO 200 ICASE=IZ(LBUF1) IF (ISORT .EQ. 1) ICASE=ICASE/10 IF (ICASE .GE. LCSE1) IF (ICASE-LCSE2) 200,200,330 GO TO 160 170 IF (ISET.EQ.-1 .OR. LCSE1.EQ.-2) GO TO 200 IDELM=IZ(LBUF1)/10 IF (ISORT .EQ. 2) IDELM=ID(5)/10 180 NS=NS+1 IF (NS .GT. LEND) GO TO 330 IZN=IZ(NS) IF (IZN .GE. 0) IF (IDELM-IZN) 150,190,180 IZN =IABS(IZN) IF (IDELM .EQ. IZN) GO TO 190 IZN1=IZ(NS-1) IF (IZN1.LE.0 .OR. IZN1.GT.IZN) GO TO 640 IF (IDELM .GT. IZN ) GO TO 180 IF (IDELM .LT. IZN1) GO TO 640 NS=NS-1 190 IF (ISORT .EQ. 2) LCSE1=-2 C C *** MAKE SURE DEVICE CODE IS SET TO PRINT (SORT1 ONLY) C SET UP COMPONENT DUPLICATION/INC LOOP IF THEY ARE VALID C 200 IF (ISORT .EQ. 1) IZ(LBUF1)=(IZ(LBUF1)/10)*10 + 1 I=200 IF (DEBUG) WRITE (NOUT,145) I,IZ(LBUF1),ICASE,LCSE1,LCSE2,IDUPL, 1 INC,NS,ISORT,NWDS,ISET,SUBC,IOPT,ANY JDUPL=1 JNC =0 IF (ISET.EQ.-2 .OR. IDUPL.LE.0) GO TO 210 JDUPL=IDUPL JNC =INC C C *** PICKUP MAX AND MIN OF CURRENT ELEMENT DATA C SAVE THESE MAX, MIN AS KEYS FOR SORTING LATER C 210 BMAX=-T24 BMIN= T24 C QUAD4 (=64) AND TRIA3 (=83) WILL HAVE JDUPL NE 0 FOR LAMINATED C CASE (I.E., WHEN LAYERD IS TRUE) FOR STRESS CASES IF ( ( IEL .EQ. 64 .OR. IEL .EQ. 83 ) .AND. JDUPL .EQ. 49 & .AND. .NOT. LAYERD .AND. STRESS ) GO TO 492 IF ( ( IEL .EQ. 64 .OR. IEL .EQ. 83 ) .AND. JDUPL .NE. 49 & .AND. LAYERD .AND. STRESS ) GO TO 492 CWKBNB 1/3/94 SPR93010 & 93011 C SET QUAD4 OR TRIA3 TO FALSE TO INDICATE TO SUBROUTINE SCAN THAT C DATA FOR THESE ELEMENTS HAS BEEN FOUND IN EITHER OES1 OR OES1L FILES. IF ( IEL .EQ. 64 ) QUAD4 = 1 IF ( IEL .EQ. 83 ) TRIA3 = 1 C IF JDUPL IS 49 THAN THIS IS A QUAD4 OR TRIA3 LAYERED ELEMENT, GET C VALUE AFTER ELEMENT ID IN RECORD TO DETERMINE THE NUMBER OF LAYERS IN C IN THE ELEMENT. IF ( JDUPL .EQ. 49 ) JDUPL = IZ(LBUF0+2) CWKBNE 1/3/94 SPR93010 & 93011 C PRINT *,' BEFORE 230,JDUPL,JNC,NSCAN=',JDUPL,JNC,NSCAN C PRINT *,' BEFORE 230,ISCAN=',(ISCAN(KB),KB=1,NSCAN) DO 230 J=1,NSCAN I=ISCAN(J) IF (I .GT. NWDS) GO TO 230 KK=0 DO 220 K=1,JDUPL C WRITE(6,77777)Z(LBUF0+I+KK) C77777 FORMAT(' HEX OF Z=',Z8) ZK=Z(LBUF0+I+KK) IF (ZK .GT. BMAX) BMAX=ZK IF (ZK .LT. BMIN) BMIN=ZK 220 KK=KK+JNC 230 CONTINUE C IF (IOPT .EQ. 2) GO TO 250 C C *** OPTION ONE (IOPT=1, BY MAX-MIN) C =============================== C C LBUF2 AND LBUF3 ARE BEGINNING AND ENDING POINTERS TO THE SCANNED C DATA ARRAY C IF (BMAX.LT.AMAX .AND. BMIN.GT.AMIN) GO TO 160 IF (LBUF3+NWDS1 .GT. LCORE) GO TO 630 ANY=.TRUE. DO 240 I=1,NWDS Z(LBUF3+I)=Z(LBUF0+I) 240 CONTINUE Z(LBUF3)=BMAX IF (BMIN .LE. AMIN) Z(LBUF3)=BMIN LBUF3=LBUF3+NWDS1 GO TO 160 C C *** OPTION TWO (IOPT=2) C =================== C C TOP AND BOTTOM N VALUES FOR STRESSES C TOP VALUE SCAN FOR FORCES IF TOPN IS POSITIVE C BOTTEM VALUE SCAN FOR FORCES AND MARGIN ETC. IF TOPN IS NEGATIVE C C II AND JJ ARE TOP AND BOTTOM ARRAY COUNTERS C MM IS POINTER TO THE SMALLEST OF THE TOP VALUSES C NN IS POINTER TO THE BIGGEST OF THE BOTTOM VALUSES C C WHEN TOP AND BOTTOM ARRAYS ARE FILLED UP COMPLETELY WITH SCANNED C DATA (II=JJ=NTOP), IH1 AND IH2 ARE BEGINNING AND ENDING POINTERS C TO THE TOP VALUES, SIMILARY, IL1 AND IL2 ARE FOR THE BOTTOM VALUES C C REMEMBER, SORF=1 FOR STRESS SCAN, SORF=2 FOR FORCE SCAN C NTOP=IABS(TOPN) C 250 ANY=.TRUE. IF ( SORF.EQ.2 .AND. TOPN.LE.0) GO TO 290 IF ((SORF.EQ.1 .AND. BMAX.LT.0.0) .OR. 1 (II.GE.NTOP .AND. BMAX.LT.Z(MM))) GO TO 290 DO 260 I=1,NWDS 260 Z(MM+I)=Z(LBUF0+I) Z(MM)=BMAX IF (II .GE. NTOP) GO TO 270 II=II+1 MM=MM+NWDS1 IF (II .LT. NTOP) GO TO 290 270 MM =IH1 BMAX=+T24 DO 280 I=IH1,IH2,NWDS1 IF (Z(I) .GT. BMAX) GO TO 280 BMAX=Z(I) MM =I 280 CONTINUE C 290 IF ( SORF.EQ.2 .AND. TOPN.GE.0) GO TO 160 IF ((SORF.EQ.1 .AND. BMIN.GT.0 .AND. TOPN.GT.0) .OR. 1 (JJ.GE.NTOP .AND. BMIN.GT.Z(NN))) GO TO 160 DO 300 I=1,NWDS 300 Z(NN+I)=Z(LBUF0+I) Z(NN)=BMIN IF (JJ .GE. NTOP) GO TO 310 JJ=JJ+1 NN=NN+NWDS1 IF (JJ .LT. NTOP) GO TO 160 310 NN =IL1 BMIN=-T24 DO 320 I=IL1,IL2,NWDS1 IF (Z(I) .LT. BMIN) GO TO 320 BMIN=Z(I) NN =I 320 CONTINUE GO TO 160 C C *** ELEM. ID LIST, OR SUBCASE LIST, HAS BEEN EXHAULSTED C (NOTE - SHOULD RETURN WITHOUT FWDREC HERE. IF STRSCN IS CALLED C AGAIN, FWDREC WILL BE DONE AT 90) C 330 I=330 IF (DEBUG) WRITE (NOUT,145) I,IDELM,ICASE,ISORT,NS,LBEG,LEND, 1 LCSE1,LCSE2 IF (ANY) GO TO 350 GO TO 510 C C *** EOR READ (FROM 160) C 340 ID(11)=0 IF (ANY) GO TO 350 ID(11)=1 ID(10)=1 NWDS =1 IL2 =IH1+1 IZ(IL2)=01 IF (ISORT .EQ. 2) IZ(IL2)=0 IZ( 2)=1 C C *** THIS ELEMENT TYPE IS DONE. BEGIN OUTPUT PROCEDURE C MAKE SURE DEVICE CODE IS SET TO PRINT, ALWAYS C ADD SCAN HEADER TO LABEL LINE C 350 ID(1)=(ID(1)/10)*10 + 1 IF (ISORT .EQ. 2) ID(5)=(ID(5)/10)*10 + 1 CALL WRITE (OUFILE,ID(1),50,NOEOR) GO TO 530 360 IF (IOPT .EQ. 1) GO TO 370 WRITE(CHEAD(69:100), 8004 ) NTOP 8004 FORMAT('TOP AND BOTTOM ',I4,' VALUES') GO TO 380 370 WRITE(CHEAD(69:100), 8005 ) AMIN, AMAX 8005 FORMAT('EXCLUDING TO ',2(F8.1)) 380 CONTINUE HEAD(73)=IBLANK DO 400 I = 1, 25 400 HEAD(I+64) = IHEAD(I) HEAD(95)=SORTX(1) HEAD(96)=SORTX(2) IF (ISORT .EQ. 2) HEAD(96)=SORTX(3) CALL WRITE (OUFILE,HEAD,96,EOR) C KK=1 J =2 IF (.NOT.ANY) GO TO 460 C C *** (IOPT=2 ONLY) IF TOP AND BOTTOM ARRAYS ARE NOT FULL (I.E. II AND/ C OR JJ ARE .LT. NTOP), WE NEED TO SQUEEZE OUT SOME EMPTY CELLS IN C THE SPACE FROM Z(IH1) THRU Z(IL2) BEFORE SORTING THE SCANNED DATA C IF (IOPT .EQ. 2) GO TO 410 IL2=LBUF3 GO TO 430 410 IF (II+JJ .EQ. 2*NTOP) GO TO 430 KK =(NTOP-II)*NWDS1 IL2=IH2+JJ*NWDS1 DO 420 I=IL1,IL2 420 Z(I-KK)=Z(I) IL2=IH1+(II+JJ)*NWDS1-1 C C *** MOVE MAX-MIN KEYS BEHIND IL2 SPACE AND BEGIN A 2-COLUMN SORT C THUS AVOID MASSIVE DATA TRANSFER DURING SORTING IF THE ORIGINAL C MULTI-COLUMNS SCANNED DATA WERE USED. C 430 KK=(IL2-IH1+1)/NWDS1 IF (IL2+2*KK .GT. LCORE) IF (IOPT-1) 630,630,660 I =IH1 J =IL2-2 K =0 440 J =J+2 K =K+1 Z (J+1)=Z(I) IZ(J+2)=K I =I+NWDS1 IF (I .LT. IL2) GO TO 440 K =2*KK CALL SORTF (0,0,2,1,Z(IL2+1),K) C C *** BEGIN OUTPUT SCANNED DATA C J =J+2 IF (DEBUG) WRITE (NOUT,450) J,KK,(Z(IL2+I),IZ(IL2+I+1),I=1,K,2) 450 FORMAT (/9X,17HDEBUG/STRSCN 450-,2I7,(/15X,E11.3,I5)) 460 DO 470 K=1,KK I =IH1+(IZ(J)-1)*NWDS1 CALL WRITE (OUFILE,IZ(I+1),NWDS,NOEOR) 470 J =J-2 CALL WRITE (OUFILE,0,0,EOR) ITRL3=ITRL3+2 J =KK*NWDS IF (DEBUG) WRITE (NOUT,750) J,ITRL3,II,JJ IF (.NOT.ANY) GO TO 680 C C*** EOF ON INPUT FILE (FROM 100) C NEXT ACTION WILL BE LOOP-BACK FOR MORE OR RETURN TO SCAN C C R.F. (ISET.NE.-2) I USER DMAP ALTER (ISET=-2) C -------------------------------+---------------------------------- C SORT1 - RETURN TO SCAN FOR I SORT1 - LOOP BACK FOR NEXT SUB- C NEXT SUBCASE I CASE, DISREGARDING THE C I ELEM ID LIST C SORT2 - LOOP BACK FOR NEXT I SORT2 - LOOP BACK FOR NEXT ELEM, C ELEM. IF NO ELEM. LIST I DISREGARDING THE SUBCASE C - IF ELEM. LIST EXISTS, I LIST C LOOP BACK ONLY IF MORE I C ELEM. TO BE PROCESSED I C OTHERWISE, RETURN I C 480 IF (IL2 .LE. 0) GO TO 510 IL2 =-1 NREW=0 IF (ISET .EQ. -2) GO TO 100 IF (ISORT .EQ. 1) GO TO 510 IF (LEND .GT. LBEG) IF (NS-LEND) 100,510,510 GO TO 100 C C *** COULD NOT FIND ELEMENT OR SUBCASE C 490 IF (IL2 .NE. 0) GO TO 510 CWKBNB 1/4/94 SPR93010 & 93011 492 IF ( IEL .EQ. 64 .AND. QUAD4 .EQ. 0 ) QUAD4 = -1 IF ( IEL .EQ. 83 .AND. TRIA3 .EQ. 0 ) TRIA3 = -1 IF ( IEL .EQ. 64 .OR. IEL .EQ. 83 ) GO TO 510 CWKBNE 1/4/94 SPR93010 & 93011 CALL FNAME (INFILE,Z(1)) WRITE (NOUT,710) IELT,Z(1),Z(2),NREW GO TO 510 C C *** JOB DONE C 500 IOPT=-ID(2) 510 DO 520 I=1,16 520 HEAD(I+73)=IBLANK HEAD( 95)=IBLANK HEAD( 96)=IBLANK OSUBC=SUBC RETURN C C *** INTERNAL ROUTINE TO SYNTHESIZE THE COMPONENTS FOR HEADING C 530 IF (JNC .LE. 0) GO TO 550 550 NUMFLD = 0 C PRINT *,' STRSCN,INC,IDUPL,NSCAN=',INC,IDUPL,NSCAN C PRINT *,' ISCAN=',(ISCAN(KB),KB=1,NSCAN) DO 580 I = 1, NSCAN C PRINT *,' STRSCN CALLING STRNAM,I,ISCAN=',I,ISCAN(I) IF ( STRESS ) CALL STRNAM ( IEL, ISCAN(I), FIELD ) IF ( FORCE ) CALL FORNAM ( IEL, ISCAN(I), FIELD ) IF ( FIELD .EQ. ' ' ) GO TO 580 IF ( NUMFLD .EQ. 0 ) GO TO 570 DO 560 K = 1, NUMFLD IF ( FIELD .EQ. SCNFLD( K ) ) GO TO 580 560 CONTINUE 570 IF ( NUMFLD .GE. 6 ) GO TO 585 NUMFLD = NUMFLD + 1 SCNFLD( NUMFLD ) = FIELD 580 CONTINUE 585 IF ( NUMFLD .EQ. 1 ) CHEAD(1:19) = 'SCANNED BY FIELD: ' IF ( NUMFLD .NE. 1 ) CHEAD(1:19) = 'SCANNED BY FIELDS: ' ISTR = 20 DO 588 I = 1, NUMFLD LEN = INDEX( SCNFLD(I), ' ' ) IEND = ISTR + LEN - 1 IF ( IEND .GT. 51 ) GO TO 587 IF ( I .EQ. 1 ) CHEAD( ISTR:IEND ) = SCNFLD(I)(1:LEN) IF ( I .GT. 1 ) CHEAD( ISTR:IEND+2 ) = ', '//SCNFLD(NUMFLD)(1:LEN) ISTR = IEND IF ( I .GT. 1 ) ISTR = IEND + 2 GO TO 588 587 CHEAD( ISTR:51) = ',...' GO TO 589 588 CONTINUE 589 CONTINUE IF ( ISET .LE. 0 ) GO TO 360 WRITE ( CHEAD(52:68), 8001 ) ISET 8001 FORMAT(' SET:',I8 ) GO TO 360 C C *** FILE ERRORS C 590 WRITE (NOUT,720) IELT GO TO 670 600 WRITE (NOUT,700) IOPEN,JOPEN GO TO 510 610 IF (.NOT.ANY) GO TO 680 J=-2 GO TO 650 620 J=-3 GO TO 650 630 WRITE (NOUT,730) IELT GO TO 510 640 WRITE (NOUT,740) ISET,LCSE1,LCSE2,LBEG,LEND,NS,(IZ(J),J=LBEG,LEND) GO TO 510 650 CALL MESAGE (J,INFILE,NAM) GO TO 510 660 J=(LCORE-LBUF2+1)/(2*NWDS1) WRITE (NOUT,760) IELT,NTOP,J NTOP=J GO TO 146 670 WRITE (NOUT,770) ICOMP,ICOMPX,IELT GO TO 510 680 IF (DEBUG) WRITE (NOUT,780) IELT,SUBC CALL MESAGE (30,220,IELT) GO TO 480 C 700 FORMAT (//5X,52HSYSTEM ERROR/STRSCN. INPUT OR OUTPUT FILE NOT REA 1DY, 2(2X,L1)) 710 FORMAT (//5X, 8HELEMENT ,2A4,32H, OR SUBCASE, NOT IN DATA BLOCK , 1 2A4,I7,8H REWINDS) 720 FORMAT (//5X,34HTOO MANY COMPONENTS SPECIFIED FOR ,2A4) 730 FORMAT (//5X,40HINSUFFICIENT CORE TO PROCESS OUTPUT SCAN, 1 /5X,56HSMALL VALUES OF AMAX-AMIN REQUIRE LARGE CORE REQUIREMENT) 740 FORMAT (//5X,23HSYSTEM ERROR/STRSCN 740,7X,6I7, /,(5X,12I10)) 750 FORMAT (/,I9,37H WORDS WRITTEN TO OUTPUT FILE, RECORD,I5,9X,2I5) 760 FORMAT (//5X,45HINSUFFICIENT CORE TO PROCESS OUTPUT SCAN FOR ,2A4, 1 /5X,89HLARGE TOPN VALUE REQUIRES EXCESSIVE CORE REQUIREMENT. TOP 2N IS AUTOMATICALLY REDUCED FROM,I5,3H TO,I5) 770 FORMAT (//5X,40HFIELD COMPONENT ERROR, CASE ABORT/STRSCN,5X,2I9, 1 1X,2A4) 780 FORMAT (//5X,37HNO APPLICABLE ELEMT OR SUBCASE/STRSCN,3X,2A4,I8) END ================================================ FILE: mis/strsl1.f ================================================ SUBROUTINE STRSL1 C C OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING C C 1) ELEMENT ID WORDS 1 STORAGE IN PH1OUT 1 C 2) SIX SILS WORDS 6 2-7 C 3) 3 MEMBRANE THICKNESES WORDS 3 8-10 C 4) 3 BENDING THICKNESES WORDS 3 11-13 C 5) 8 STRESS DATA POINTS WORDS 8 14-21 C 6) 4 NOS. STRESS MATRICES (6-5X6 EACH) WORDS 720 22-741 C 7) S SUB T MATRIX WORDS 4X3 742-753 C 8) ELEMENT ID WORD 1 754 C 9) SIX SILS WORDS 6 755-760 C 10) ELEMENT TEMPERATURE WORD 1 761 C 11) 4 NOS. MEMBRANE STRESS MATRICES 4(6-3X3) 762-1193 C C ECPT LISTS C C ECPT ( 1) = ELEMENT ID INTEGER C ECPT ( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1 INTEGER C ECPT ( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2 INTEGER C ECPT ( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3 INTEGER C ECPT ( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4 INTEGER C ECPT ( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5 INTEGER C ECPT ( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6 INTEGER C ECPT ( 8) = THETA REAL C ECPT ( 9) = MATERIAL ID 1 INTEGER C ECPT (10) = THICKNESS T1 AT GRID POINT G1 C ECPT (11) = THICKNESS T3 AT GRID POINT G3 C ECPT (12) = THICKNESS T5 AT GRID POINT G5 C ECPT (13) = MATERIAL ID 2 INTEGER C ECPT (14) = THICKNESS TBEND1 FOR BENDING AT GRID POINT G1 C ECPT (15) = THICKNESS TBEND3 FOR BENDING AT GRID POINT G3 C ECPT (16) = THICKNESS TBEND5 FOR BENDING AT GRID POINT G5 C ECPT (17) = MATERIAL ID 3 INTEGER C ECPT (18) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID POINT G1 C ECPT (19) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID POINT G3 C ECPT (20) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID POINT G5 C ECPT (21) = NON-STRUCTURAL MASS REAL C ECPT (22) = DISTANCE Z11 FOR STRESS CALCULATION AT GRID POINT G1 C ECPT (23) = DISTANCE Z21 FOR STRESS CALCULATION AT GRID POINT G1 C ECPT (24) = DISTANCE Z13 FOR STRESS CALCULATION AT GRID POINT G3 C ECPT (25) = DISTANCE Z23 FOR STRESS CALCULATION AT GRID POINT G3 C ECPT (26) = DISTANCE 015 FOR STRESS CALCULATION AT GRID POINT G5 C ECPT (27) = DISTANCE Z25 FOR STRESS CALCULATION AT GRID POINT G5 C C X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM C C ECPT (28) = CO-ORDINATE SYSTEM ID FOR GRID A INTEGER C ECPT (29) = CO-ORDINATE X1 REAL C ECPT (30) = CO-ORDINATE Y1 REAL C ECPT (31) = CO-ORDINATE Z1 REAL C ECPT (32) = CO-ORDINATE SYSTEM ID FOR GRID B INTEGER C ECPT (33) = CO-ORDINATE X1 REAL C ECPT (34) = CO-ORDINATE Y1 REAL C ECPT (35) = CO-ORDINATE Z1 REAL C ECPT (36) = CO-ORDINATE SYSTEM ID FOR GRID C INTEGE9 C ECPT (37) = CO-ORDINATE X1 REAL C ECPT (38) = CO-ORDINATE Y1 REAL C ECPT (39) = CO-ORDINATE Z1 REAL C ECPT (40) = CO-ORDINATE SYSTEM ID FOR GRID D INTEGER C ECPT (41) = CO-ORDINATE X1 REAL C ECPT (42) = CO-ORDINATE Y1 REAL C ECPT (43) = CO-ORDINATE Z1 REAL C ECPT (44) = CO-ORDINATE SYSTEM ID FOR GRID E INTEGER C ECPT (45) = CO-ORDINATE X1 REAL C ECPT (46) = CO-ORDINATE Y1 REAL C ECPT (47) = CO-ORDINATE Z1 REAL C ECPT (48) = CO-ORDINATE SYSTEM ID FOR GRID F INTEGER C ECPT (49) = CO-ORDINATE X1 REAL C ECPT (50) = CO-ORDINATE Y1 REAL C ECPT (51) = CO-ORDINATE Z1 REAL C ECPT (52) = ELEMENT TEMPERATURE AT GRID POINTS G1 REAL C ECPT (53) = ELEMENT TEMPERATURE AT GRID POINTS G2 REAL C ECPT (54) = ELEMENT TEMPERATURE AT GRID POINTS G3 REAL C ECPT (55) = ELEMENT TEMPERATURE AT GRID POINTS G4 REAL C ECPT (56) = ELEMENT TEMPERATURE AT GRID POINTS G5 REAL C ECPT (57) = ELEMENT TEMPERATURE AT GRID POINTS G6 REAL C LOGICAL NOTS REAL J11,J12,J22,NSM,IVECT(3),JVECT(3),KVECT(3) DIMENSION NAME(2),INDEX(20,3),ICS(6),NL(6),XC(6),YC(6), 1 ZC(6),QQQ(20,20),QQQINV(360),TS6(40),TS7(60), 2 E(18),V1(3),V2(3),V3(3),IEST(42),E1(18),PH1BEN(9), 3 PH1SHR(6),PH2(18),PH3(12),PH4(90),TMMM(36), 4 Q(6,6),IND(6,3),CAB(3),EE( 30),PH1MEM(6),EPH1(15), 5 SI(9),EMOD(9),D(9),DPH1(9),G(4),GPH1(6), 6 NPH1OU(990),TM(96),TMQQ(90),EE1(5,6),TMM(3,12), 7 TMB(60),TMBQ(54),TRANS(9),BALOTR(36) COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 COMMON /SDR2X5/ EST(100),PH1OUT(1200),FORVEC(24),X,Y,Z,DISTA, 1 DISTB,DISTC,A1,A2,A3,AA1,AA2,AA3,QQQINV,QQ,TM, 2 TMQQ,TS6,TS7,Q,EE,EE1,PH2,PH3,PH4,E,E1,XC,YC,ZC, 3 PH1MEM,PH1BEN,PH1SHR,DPH1,EPH1,GPH1,G,D,ICS,NL, 4 CAB,TRANS,BALOTR,EMOD,SI EQUIVALENCE (A,DISTA),(B,DISTB),(C,DISTC),(V1(1),EST(29)), 1 (V2(1),EST(37)),(V3(1),EST(45)),(IEST(1),EST(1)), 2 (TMMM(1),TMM(1,1)),(PH1OUT(1),QQQ(1,1)), 3 (PH1OUT(401),INDEX(1,1),IND(1,1)), 4 (NPH1OU(1),PH1OUT(1)) DATA DEGRA / 0.0174532925 / DATA BLANK , NAME / 4H , 4HTRSH, 4HL / C NOTS = .TRUE. IDELE = IEST(1) DO 10 I = 1,6 NL(I) = IEST(I+1) 10 CONTINUE THETAM = EST(8) MATID1 = IEST(9) TMEM1 = EST(10) TMEM3 = EST(11) TMEM5 = EST(12) MATID2 = IEST(13) TBEND1 = (EST(14)*12.0)**0.3333333333 TBEND3 = (EST(15)*12.0)**0.3333333333 TBEND5 = (EST(16)*12.0)**0.3333333333 MATID3 = IEST(17) TSHR1 = EST(18) TSHR3 = EST(19) TSHR5 = EST(20) NSM = EST(21) J = 0 IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1 IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1 IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1 IF (TSHR1 .EQ. 0.0) NOTS =.TRUE. IF (TBEND3.EQ.0.0 .OR. TBEND3.EQ.BLANK) TBEND3 = TBEND1 IF (TBEND5.EQ.0.0 .OR. TBEND5.EQ.BLANK) TBEND5 = TBEND1 DO 20 I = 28,48,4 J = J + 1 ICS(J) = IEST(I ) XC(J) = EST(I+1) YC(J) = EST(I+2) ZC(J) = EST(I+3) 20 CONTINUE ELTEMP = EST(52) THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C EVALUATE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 IF (MATID1 .EQ. 0) GO TO 30 CALL MAT (IDELE) G11 = EM(1) G12 = EM(2) G13 = EM(3) G22 = EM(4) G23 = EM(5) G33 = EM(6) C 30 MATID = MATID2 IF (MATID2 .EQ. 0) GO TO 40 MATFLG = 2 CALL MAT (IDELE) D11 = EM(1) D12 = EM(2) D13 = EM(3) D21 = D12 D22 = EM(4) D23 = EM(5) D31 = D13 D32 = D23 D33 = EM(6) D(1) = D11 D(2) = D12 D(3) = D13 D(4) = D21 D(5) = D22 D(6) = D23 D(7) = D13 D(8) = D23 D(9) = D33 D334 = D33*4.0 D132 = D13*2.0 D232 = D23*2.0 J11 = 0.0 J12 = 0.0 J22 = 0.0 IF (NOTS) GO TO 40 CALL MAT (IDELE) C C CALCULATIONS FOR THE TRIANGLE C 40 CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME) C C EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR C THICKNESS VARIATION - MEMBRANE C CALL AF (F,1,A,B,C,C1,C2,C3,TMEM1,TMEM2,TMEM3,1) CAB(1) = C1 CAB(2) = C2 CAB(3) = C3 C C A1,A2,A3 ARE THE COEFFICIENTS OF LINEAR EQUATION FOR VARIATION C OF BENDING THICKNESSES C CALL AF (F,1,A,B,C,A1,A2,A3,TBEND1,TBEND3,TBEND5,1) A1SQ = A1*A1 A2SQ = A2*A2 A3SQ = A3*A3 C1 = A1SQ*A1 C2 = 3.0*A1SQ*A2 C3 = 3.0*A1SQ*A3 C4 = 3.0*A1*A2SQ C5 = 6.0*A1*A2*A3 C6 = 3.0*A3SQ*A1 C7 = A2SQ*A2 C8 = 3.0*A2SQ*A3 C9 = 3.0*A2*A3SQ C10 = A3*A3SQ C C AA1, AA2, AA3 ARE COEFFICIENTS IN THICKNESS VARIATION FOR C TRANSVERSE SHEAR C CALL AF (F,1,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,1) C C C FILL E-MATRIX C DO 50 I = 1,18 50 E(I) = 0.0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C C CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE C DO 60 I = 1,400 60 QQQ(I,1) = 0.0 DO 70 I = 1,6 I1 = (I-1)*3 + 1 I2 = (I-1)*3 + 2 I3 = (I-1)*3 + 3 QQQ(I1, 1) = 1.0 QQQ(I1, 2) = XC(I) QQQ(I1, 3) = YC(I) QQQ(I1, 4) = XC(I)*XC(I) QQQ(I1, 5) = XC(I)*YC(I) QQQ(I1, 6) = YC(I)*YC(I) QQQ(I1, 7) = QQQ(I1, 4)*XC(I) QQQ(I1, 8) = QQQ(I1, 4)*YC(I) QQQ(I1, 9) = QQQ(I1, 5)*YC(I) QQQ(I1,10) = QQQ(I1, 6)*YC(I) QQQ(I1,11) = QQQ(I1, 7)*XC(I) QQQ(I1,12) = QQQ(I1, 7)*YC(I) QQQ(I1,13) = QQQ(I1, 8)*YC(I) QQQ(I1,14) = QQQ(I1, 9)*YC(I) QQQ(I1,15) = QQQ(I1,10)*YC(I) QQQ(I1,16) = QQQ(I1,11)*XC(I) QQQ(I1,17) = QQQ(I1,12)*YC(I) QQQ(I1,18) = QQQ(I1,13)*YC(I) QQQ(I1,19) = QQQ(I1,14)*YC(I) QQQ(I1,20) = QQQ(I1,15)*YC(I) QQQ(I2, 3) = 1.0 QQQ(I2, 5) = XC(I) QQQ(I2, 6) = YC(I)*2.0 QQQ(I2, 8) = QQQ(I1, 4) QQQ(I2, 9) = QQQ(I1, 5)*2.0 QQQ(I2,10) = QQQ(I1, 6)*3.0 QQQ(I2,12) = QQQ(I1, 7) QQQ(I2,13) = QQQ(I1, 8)*2.0 QQQ(I2,14) = QQQ(I1, 9)*3.0 QQQ(I2,15) = QQQ(I1,10)*4.0 QQQ(I2,17) = QQQ(I1,12)*2.0 QQQ(I2,18) = QQQ(I1,13)*3.0 QQQ(I2,19) = QQQ(I1,14)*4.0 QQQ(I2,20) = QQQ(I1,15)*5.0 QQQ(I3, 2) =-1.0 QQQ(I3, 4) =-2.0*XC(I) QQQ(I3, 5) =-YC(I) QQQ(I3, 7) =-QQQ(I1, 4)*3.0 QQQ(I3, 8) =-QQQ(I1, 5)*2.0 QQQ(I3, 9) =-QQQ(I1, 6) QQQ(I3,11) =-QQQ(I1, 7)*4.0 QQQ(I3,12) =-QQQ(I1, 8)*3.0 QQQ(I3,13) =-QQQ(I1, 9)*2.0 QQQ(I3,14) =-QQQ(I1,10) QQQ(I3,16) =-QQQ(I1,11)*5.0 QQQ(I3,17) =-QQQ(I1,13)*3.0 QQQ(I3,18) =-QQQ(I1,14)*2.0 QQQ(I3,19) =-QQQ(I1,15) 70 CONTINUE C QQQ(19,16) = 5.0*A**4*C QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2 QQQ(19,19) = C**5 - 4.0*A**2*C**3 QQQ(19,20) = 5.0*A*C**4 QQQ(20,16) = 5.0*B**4*C QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2 QQQ(20,19) = C**5 - 4.0*B**2*C**3 QQQ(20,20) =-5.0*B*C**4 DO 80 I = 1,6 DO 80 J = 1,6 I1 = 3*(I-1) + 1 80 Q(I,J) = QQQ(I1,J) C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (6,Q,6,TS6(1),0,DET,ISING,IND) C C FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1) C IS U C C SET ISING = -1 AGAIN. ISING = -1 CALL INVERS (20,QQQ,20,TS6(1),0,DETERM,ISING,INDEX) C C ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR C C C FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS C MATRIX CALCULATIONS C H4 = Q(4,1)*ZC(1) + Q(4,2)*ZC(2) + Q(4,3)*ZC(3) + Q(4,4)*ZC(4) + 1 Q(4,5)*ZC(5) + Q(4,6)*ZC(6) H5 = Q(5,1)*ZC(1) + Q(5,2)*ZC(2) + Q(5,3)*ZC(3) + Q(5,4)*ZC(4) + 1 Q(5,5)*ZC(5) + Q(5,6)*ZC(6) H6 = Q(6,1)*ZC(1) + Q(6,2)*ZC(2) + Q(6,3)*ZC(3) + Q(6,4)*ZC(4) + 1 Q(6,5)*ZC(5) + Q(6,6)*ZC(6) H4 = H4*2.0 H6 = H6*2.0 C C H5 IS MULTIPLIED BY 2.0, SO THAT EXY=DU/DY + DV/DX - ZXY * W C H5 = H5*2.0 DO 90 I = 1,20 DO 90 J = 1,18 IJ = (I-1)*18 + J QQQINV(IJ) = QQQ(I,J) 90 CONTINUE DO 100 I = 1,36 100 BALOTR(I) = 0.0 C DO 110 I = 1,7 NPH1OU (I) = IEST(I) 110 CONTINUE IF (MATID2.EQ.0) GO TO 120 GO TO 140 120 DO 130 I = 2,7 NPH1OU (I) = 0 130 CONTINUE 140 PH1OUT( 8) = TMEM1 PH1OUT( 9) = TMEM3 PH1OUT(10) = TMEM5 PH1OUT(11) = TBEND1 PH1OUT(12) = TBEND3 PH1OUT(13) = TBEND5 PH1OUT(14) = EST(22) PH1OUT(15) = EST(23) PH1OUT(16) = EST(24) PH1OUT(17) = EST(25) PH1OUT(18) = EST(26) PH1OUT(19) = EST(27) EMOD(1) = G11 EMOD(2) = G12 EMOD(3) = G13 EMOD(4) = G12 EMOD(5) = G22 EMOD(6) = G23 EMOD(7) = G13 EMOD(8) = G23 EMOD(9) = G33 DO 150 I = 1,30 150 EE(I) = 0.0 EE( 1) = IVECT(1) EE( 2) = JVECT(1) EE( 3) = KVECT(1) EE( 6) = IVECT(2) EE( 7) = JVECT(2) EE( 8) = KVECT(2) EE(11) = IVECT(3) EE(12) = JVECT(3) EE(13) = KVECT(3) EE(19) = IVECT(1) EE(20) = JVECT(1) EE(24) = IVECT(2) EE(25) = JVECT(2) EE(29) = IVECT(3) EE(30) = JVECT(3) DO 340 JJ = 1,4 J = 2*JJ - 1 IF (JJ .EQ. 4) GO TO 160 X = XC(J) Y = YC(J) GO TO 170 160 X = (XC(1) + XC(3) + XC(5))/3.0 Y = (YC(1) + YC(3) + YC(5))/3.0 PH1OUT(20) = (A1 + A2*X + A3*Y)/2.0 PH1OUT(21) =-PH1OUT(20) 170 IF (MATID2 .EQ. 0) GO TO 190 DO 180 I = 1,60 TS7(I) = 0.0 180 CONTINUE THK = A1 + A2*X + A3*Y THK1 = THK**3/12.0 D(1) = D11*THK1 D(2) = D12*THK1 D(3) = D13*THK1 D(4) = D(2) D(5) = D22*THK1 D(6) = D23*THK1 D(7) = D(3) D(8) = D(6) D(9) = D33*THK1 X2 = X*X XY = X*Y Y2 = Y*Y X3 = X2*X X2Y = X2*Y XY2 = X*Y2 Y3 = Y2*Y TS7( 4) = 2.0 TS7( 7) = 6.0*X TS7( 8) = 2.0*Y TS7(11) = 12.0*X2 TS7(12) = 6.0*XY TS7(13) = 2.0*Y2 TS7(16) = 20.0*X3 TS7(17) = 6.0*XY2 TS7(18) = 2.0*Y3 TS7(26) = 2.0 TS7(29) = 2.0*X TS7(30) = 6.0*Y TS7(33) = 2.0*X2 TS7(34) = TS7(12) TS7(35) = 12.0*Y2 TS7(37) = 2.0*X3 TS7(38) = 6.0*X2Y TS7(39) = 12.0*XY2 TS7(40) = 20.0*Y3 TS7(45) = 2.0 TS7(48) = 4.0*X TS7(49) = 4.0*Y TS7(52) = 6.0*X2 TS7(53) = 8.0*XY TS7(54) = 6.0*Y2 TS7(57) = 12.0*X2Y TS7(58) = TS7(39) TS7(59) = 8.0*Y3 CALL GMMATS (TS7,3,20,0,QQQINV,20,18,0,PH4(1)) CALL STRSLV (TS6,NOTS) CALL GMMATS (TS6,2,20,0,QQQINV,20,18,0,PH4(55)) C 190 IF (MATID1 .EQ. 0) GO TO 220 DO 200 I = 1,36 TMMM(I) = 0.0 200 CONTINUE DO 210 J = 1,6 J1 = (J-1)*2 + 1 J2 = J1 + 1 TMM(1,J1) = Q(2,J) + 2.0*X*Q(4,J) + Y*Q(5,J) TMM(2,J2) = Q(3,J) + X*Q(5,J) + 2.0*Y*Q(6,J) TMM(3,J1) = TMM(2,J2) TMM(3,J2) = TMM(1,J1) 210 CONTINUE X4 = X3*X X3Y = X3*Y X2Y2 = X2*Y2 XY3 = X*Y3 Y4 = Y*Y3 X5 = X4*X X3Y2 = X3*Y2 X2Y3 = X2*Y3 XY4 = X*Y4 Y5 = Y*Y4 TMB( 1) = -H4 TMB( 2) = -H4*X TMB( 3) = -H4*Y TMB( 4) = -H4*X2 TMB( 5) = -H4*XY TMB( 6) = -H4*Y2 TMB( 7) = -H4*X3 TMB( 8) = -H4*X2Y TMB( 9) = -H4*XY2 TMB(10) = -H4*Y3 TMB(11) = -H4*X4 TMB(12) = -H4*X3Y TMB(13) = -H4*X2Y2 TMB(14) = -H4*XY3 TMB(15) = -H4*Y4 TMB(16) = -H4*X5 TMB(17) = -H4*X3Y2 TMB(18) = -H4*X2Y3 TMB(19) = -H4*XY4 TMB(20) = -H4*Y5 TMB(21) = -H6 TMB(22) = -H6*X TMB(23) = -H6*Y TMB(24) = -H6*X2 TMB(25) = -H6*XY TMB(26) = -H6*Y2 TMB(27) = -H6*X3 TMB(28) = -H6*X2Y TMB(29) = -H6*XY2 TMB(30) = -H6*Y3 TMB(31) = -H6*X4 TMB(32) = -H6*X3Y TMB(33) = -H6*X2Y2 TMB(34) = -H6*XY3 TMB(35) = -H6*Y4 TMB(36) = -H6*X5 TMB(37) = -H6*X3Y2 TMB(38) = -H6*X2Y3 TMB(39) = -H6*XY4 TMB(40) = -H6*Y5 TMB(41) = -H5 TMB(42) = -H5*X TMB(43) = -H5*Y TMB(44) = -H5*X2 TMB(45) = -H5*XY TMB(46) = -H5*Y2 TMB(47) = -H5*X3 TMB(48) = -H5*X2Y TMB(49) = -H5*XY2 TMB(50) = -H5*Y3 TMB(51) = -H5*X4 TMB(52) = -H5*X3Y TMB(53) = -H5*X2Y2 TMB(54) = -H5*XY3 TMB(55) = -H5*Y4 TMB(56) = -H5*X5 TMB(57) = -H5*X3Y2 TMB(58) = -H5*X2Y3 TMB(59) = -H5*XY4 TMB(60) = -H5*Y5 CALL GMMATS (TMB,3,20,0, QQQINV,20,18,0, TMBQ) C 220 DO 330 II = 1,6 IF (ICS(II) .EQ. 0) GO TO 240 CALL TRANSS (IEST(4*II+24),TRANS) DO 230 J = 1,3 L = 6*(J-1) + 1 M = 3*(J-1) + 1 BALOTR(L ) = TRANS(M ) BALOTR(L+1 ) = TRANS(M+1) BALOTR(L+2 ) = TRANS(M+2) BALOTR(L+21) = TRANS(M ) BALOTR(L+22) = TRANS(M+1) BALOTR(L+23) = TRANS(M+2) 230 CONTINUE CALL GMMATS (E,6,3,+1, BALOTR,6,6,0, E1) GO TO 260 240 DO 250 I = 1,3 DO 250 J = 1,6 I1 = (I-1)*6 + J J1 = (J-1)*3 + I E1(I1) = E(J1) 250 CONTINUE 260 IF (MATID2 .EQ. 0) GO TO 300 KZ = (II-1)*3 + 1 PH1BEN(1) = PH4(KZ ) PH1BEN(2) = PH4(KZ+ 1) PH1BEN(3) = PH4(KZ+ 2) PH1BEN(4) = PH4(KZ+18) PH1BEN(5) = PH4(KZ+19) PH1BEN(6) = PH4(KZ+20) PH1BEN(7) = PH4(KZ+36) PH1BEN(8) = PH4(KZ+37) PH1BEN(9) = PH4(KZ+38) CALL GMMATS (D,3,3,0, PH1BEN,3,3,0, DPH1) CALL GMMATS (DPH1,3,3,0, E1,3,6,0, PH2) MZ = (II-1)*3 + 55 PH1SHR(1) = PH4(MZ ) PH1SHR(2) = PH4(MZ+ 1) PH1SHR(3) = PH4(MZ+ 2) PH1SHR(4) = PH4(MZ+18) PH1SHR(5) = PH4(MZ+19) PH1SHR(6) = PH4(MZ+20) IF (NOTS) GO TO 270 THK = AA1 + AA2*X + AA3*Y G(1) = EM(6)*THK G(2) = 0.0 G(3) = 0.0 G(4) = G(1) CALL GMMATS (G,2,2,0, PH1SHR,2,3,0, GPH1) GO TO 280 270 GPH1(1) = PH1SHR(1) GPH1(2) = PH1SHR(2) GPH1(3) = PH1SHR(3) GPH1(4) = PH1SHR(4) GPH1(5) = PH1SHR(5) GPH1(6) = PH1SHR(6) 280 CALL GMMATS (GPH1,2,3,0, E1,3,6,0, PH3) DO 290 I = 1,3 DO 290 J = 1,6 I1 = (I-1)*6 + J I2 = I1 + 18 J1 = (II-1)*30 + (JJ-1)*180 + I1 + 21 J2 = J1 + 18 PH1OUT(J1) = PH2(I1) IF (I .NE. 3) PH1OUT(J2) = PH3(I1) 290 CONTINUE C 300 IF (MATID1 .EQ. 0) GO TO 330 DO 310 I = 1,3 DO 310 J = 1,2 JI = (I-1)*5 + J IJ = (J-1)*3 + I + (II-1)*6 TM(JI) = TMMM(IJ) 310 CONTINUE DO 320 I = 1,3 DO 320 J = 1,3 JI = (I-1)*5 + J + 2 IJ = (I-1)*18 + J + (II-1)*3 TM(JI) = TMBQ(IJ) 320 CONTINUE IF (ICS(II) .NE. 0) CALL GMMATS (EE,6,5,+1, BALOTR,6,6,0, EE1) IJ1 = (JJ-1)*108 + (II-1)*18 + 762 CALL GMMATS (EMOD,3,3,0, TM(1),3,5,0, EPH1) IF (ICS(II) .EQ. 0) CALL GMMATS (EPH1,3,5,0,EE,6,5,+1,PH1OUT(IJ1)) IF (ICS(II) .NE. 0) CALL GMMATS (EPH1,3,5,0,EE1,5,6,0,PH1OUT(IJ1)) 330 CONTINUE 340 CONTINUE C JST = 742 + (JJ-1)*3 IF (MATID2 .NE. 0) CALL GMMATS (D,3,3,0,ALF(1),3,1,0,PH1OUT(JST)) IF (MATID1 .NE. 0) CALL GMMATS (EMOD,3,3,0,ALF(1),3,1,0, 1 PH1OUT(1194)) IF (MATID1 .EQ. 0) GO TO 360 DO 350 I = 1,7 350 NPH1OU(753+I) = IEST(I) GO TO 380 360 DO 370 I = 1,7 NPH1OU(753+I) = 0 370 CONTINUE 380 PH1OUT(761) = TREF RETURN END ================================================ FILE: mis/strsl2.f ================================================ SUBROUTINE STRSL2 (TI) C C PHASE II OF STRESS DATA RECOVERY C LOGICAL FLAG INTEGER TLOADS REAL TI(6),SDELTA(3) DIMENSION REALI(4),NSIL(6),STR(18),NPH1OU(990),SI(36), 1 STOUT(68) COMMON /ZZZZZZ/ Z(1) COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM,DUM8(8), 1 TLOADS,MAXSIZ COMMON /SDR2X7/ PH1OUT(1200),FORVEC(24) COMMON /SDR2X8/ TEMP,DELTA,NPOINT,IJ1,IJ2,NPT1,VEC(5),TEM, 1 Z1 OVR I,Z2 OVR I,STRESS(18) EQUIVALENCE (NSIL(1),PH1OUT(2)),(NPH1OU(1),PH1OUT(1)), 1 (SI(1),PH1OUT(22)),(LDTEMP,FTEMP),(F1,N1) C C PHASE I OUTPUT FROM THE PLATE IS THE FOLLOWING C C PH1OUT(1) ELEMENT ID C PH1OUT(2 THRU 7) 6 SILS C PH1OUT(8 THRU 10) TMEM1,TMEM3,TMEM5 C PH1OUT(11 THRU 13) (14)-(21) Z1 AND Z2 TBEND1,TBEND3,TBEND5 C PH1OUT (22 THRU 741) 4 S SUB I MATRICES,EACH 6X5X6 ARR C PH1OUT (742-753) 4 - 3X3 S SUB T MATRICES C C PHASE 1 OUTPUT FROM THE MEMBRANE IS THE FOLLOWING C C PH1OUT(754) ELEMENT ID C PH1OUT(755-760) 6 SILS C PH1OUT(761) T SUB 0 C PH1OUT(762-1193) 4 SETS OF 6 NOS. 3 X 6 S SUB I C PH1OUT(1194-1196) S SUB T MATRIX C C THE ABOVE ELEMENTS ARE COMPOSED OF PLATES AND MEMBRANES... C SOME MAY ONLY CONTAIN PLATES WHILE OTHERS MAY ONLY CONTAIN C MEMBRANES. C A CHECK FOR A ZERO FIRST SIL IN THE PHASE I OUTPUT, WHICH C INDICATES WHETHER ONE OR THE OTHER HAS BEEN OMITTED, IS MADE BELOW C C FIRST GET FORCE VECTOR FOR THE PLATE CONSIDERATION C C M , M , M , V , V FOR ALL SIX GRID POINTS C X Y XY X Y C NPTS C THE 5X1 FORCE VECTOR = SUMMATION (S )(U ) FOR EACH POINT C I=1 I I C C ZERO FORVEC STORAGE C NPTS = 6 DO 15 I = 1,24 15 FORVEC( I) = 0.0 FORVEC( 1) = PH1OUT(1) FORVEC( 7) = PH1OUT(1) FORVEC(13) = PH1OUT(1) FORVEC(19) = PH1OUT(1) II = 0 17 II = II+1 IF (II .GT. 4) GO TO 155 C C ZERO OUT LOCAL STRESSES C SIG X 1 = 0.0 SIG Y 1 = 0.0 SIG XY 1 = 0.0 SIG X 2 = 0.0 SIG Y 2 = 0.0 SIG XY 2 = 0.0 C IF (NSIL(1) .EQ. 0) GO TO 30 C C FORM SUMMATION C DO 20 I = 1,6 C C POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE C NPOINT = IVEC + NSIL(I) - 1 C II1 = (II-1)*180 + 30*I - 29 CALL GMMATS (SI(II1),5,6,0, Z(NPOINT),6,1,0, VEC(1)) C DO 10 J = 2,6 IJ = (II-1)*6 + J 10 FORVEC(IJ) = FORVEC(IJ) + VEC(J-1) 20 CONTINUE C IF (TLOADS .EQ. 0) GO TO 23 JST = 741 + (II-1)*3 I1 = (II-1)*6 FLAG = .FALSE. F1 = TI(6) IF (N1 .EQ. 1) GO TO 22 FORVEC(I1+2) = FORVEC(I1+2) - TI(2) FORVEC(I1+3) = FORVEC(I1+3) - TI(3) FORVEC(I1+4) = FORVEC(I1+4) - TI(4) IF (TI(5).EQ.0.0 .AND. TI(6).EQ.0.0) FLAG = .TRUE. GO TO 23 22 FORVEC(I1+2) = FORVEC(I1+2) + TI(2)*PH1OUT(JST+1) FORVEC(I1+3) = FORVEC(I1+3) + TI(2)*PH1OUT(JST+2) FORVEC(I1+4) = FORVEC(I1+4) + TI(2)*PH1OUT(JST+3) IF (TI(3).EQ.0.0 .AND. TI(4).EQ.0.0) FLAG = .TRUE. 23 CONTINUE C C FORCE VECTOR IS NOW COMPLETE C IF (II .EQ. 4) GO TO 24 I1 = 13 + 2*II - 1 I2 = I1 + 1 Z1 OVR I = -12.0*PH1OUT(I1)/PH1OUT(10+II)**3 Z2 OVR I = -12.0*PH1OUT(I2)/PH1OUT(10+II)**3 GO TO 25 24 Z1 OVR I = -1.5/PH1OUT(20)**2 Z2 OVR I = -Z1 OVR I 25 CONTINUE II1 = (II-1)*6 C K1 = 0 ASSIGN 26 TO IRETRN GO TO 170 C 26 SIG X 1 = FORVEC(II1+2)*Z1 OVR I-SDELTA(1) SIG Y 1 = FORVEC(II1+3)*Z1 OVR I-SDELTA(2) SIG XY 1 = FORVEC(II1+4)*Z1 OVR I-SDELTA(3) C K1 = 1 ASSIGN 27 TO IRETRN GO TO 170 C 27 SIG X 2 = FORVEC(II1+2)*Z2 OVR I-SDELTA(1) SIG Y 2 = FORVEC(II1+3)*Z2 OVR I-SDELTA(2) SIG XY 2 = FORVEC(II1+4)*Z2 OVR I-SDELTA(3) C GO TO 40 30 Z1 = 0.0 Z2 = 0.0 C 40 IF (NPH1OU(754) .EQ. 0) GO TO 90 C C ZERO STRESS VECTOR STORAGE C DO 42 I = 1,3 42 STRESS(I) = 0.0 C C I=NPTS C STRESS VECTOR = ( SUMMATION(S )(U ) ) - (S )(LDTEMP - T ) C I=1 I I T 0 C DO 60 I = 1,6 C C POINTER TO I-TH SIL IN PH1OUT C POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE C POINTER TO S SUB I 3X3 C NPOINT = 754 + I NPOINT = IVEC + NPH1OU(NPOINT) - 1 NPT1=762+(I-1)*18+(II-1)*108 CALL GMMATS (PH1OUT(NPT1),3,6,0, Z(NPOINT),6,1,0, VEC(1)) C DO 50 J = 1,3 50 STRESS(J) = STRESS(J) + VEC(J) C 60 CONTINUE C IF (LDTEMP .EQ. -1) GO TO 80 C C POINTER TO T SUB 0 = 761 C TEM = FTEMP - PH1OUT(761) DO 70 I = 1,3 NPOINT = 1193 + I 70 STRESS(I) = STRESS(I) - PH1OUT(NPOINT)*TEM C C ADD MEMBRANE STRESSES TO PLATE STRESSES C 80 SIG X 1 = SIG X 1 + STRESS(1) SIG Y 1 = SIG Y 1 + STRESS(2) SIG XY 1 = SIG XY 1 + STRESS(3) SIG X 2 = SIG X 2 + STRESS(1) SIG Y 2 = SIG Y 2 + STRESS(2) SIG XY 2 = SIG XY 2 + STRESS(3) C C STRESS OUTPUT VECTOR IS THE FOLLOWING C C 1) ELEMENT ID C 2) Z1 = FIBER DISTANCE 1 C 3) SIG X 1 C 4) SIG Y 1 C 5) SIG XY 1 C 6) ANGLE OF ZERO SHEAR AT Z1 C 7) SIG P1 AT Z1 C 8) SIG P2 AT Z1 C 9) TAU MAX = MAXIMUM SHEAR STRESS AT Z1 C 10) ELEMENT ID C 11) Z2 = FIBER DISTANCE 2 C 12) SIG X 2 C 13) SIG Y 2 C 14) SIG XY 2 C 15) ANGLE OF ZERO SHEAR AT Z2 C 16) SIG P1 AT Z2 C 17) SIG P2 AT Z2 C S7) SIG P2 AT Z2 C 18) TAU MAX = MAXIMUM SHEAR STRESS AT Z2 C 90 IF (NPH1OU(755).EQ.0 .AND. NPH1OU(2).EQ.0) GO TO 120 C C COMPUTE PRINCIPAL STRESSES C STR( 1) = PH1OUT(1) STR( 2) = PH1OUT(II*2+12) STR( 3) = SIG X 1 STR( 4) = SIG Y 1 STR( 5) = SIG XY 1 STR(10) = PH1OUT(1) STR(11) = PH1OUT(II*2+13) STR(12) = SIG X 2 STR(13) = SIG Y 2 STR(14) = SIG XY 2 C DO 110 I = 3,12,9 TEMP = STR(I) - STR(I+1) STR(I+6) = SQRT((TEMP/2.0)**2+STR(I+2)**2) DELTA = (STR(I)+STR(I+1))/2.0 STR(I+4) = DELTA + STR(I+6) STR(I+5) = DELTA - STR(I+6) DELTA = 2.0*STR(I+2) IF (ABS(DELTA).LT.1.0E-15 .AND. ABS(TEMP).LT.1.0E-15) GO TO 100 STR(I+3) = ATAN2(DELTA,TEMP)*28.6478898 GO TO 110 100 STR(I+3) = 0.0 110 CONTINUE GO TO 140 120 DO 130 I = 2,18 130 STR( I) = 0.0 140 STR( 1) = PH1OUT(1) STR(10) = PH1OUT(1) C C ADDITION TO ELIMINATE 2ND ELEMENT ID IN OUTPUT C IJK = (II-1)*17 STOUT(IJK+1) = PH1OUT(1) DO 149 I = 2,9 149 STOUT(IJK+I) = STR(I) DO 150 I = 10,17 150 STOUT (IJK+I) = STR(I+1) GO TO 17 155 CONTINUE C DO 156 I = 1,17 156 PH1OUT(100+I) = STOUT(I) DO 159 J = 1,3 DO 159 I = 1,16 J1 = 117 + (J-1)*16 + I J2 = (J-1)*17 + I + 18 PH1OUT(J1) = STOUT(J2) 159 CONTINUE DO 157 I = 1,6 157 PH1OUT(200+I) = FORVEC(I) DO 158 I = 1,5 PH1OUT(206+I) = FORVEC(I+ 7) 158 PH1OUT(211+I) = FORVEC(I+13) RETURN C C INTERNAL SUBROUTINE C 170 IF (TLOADS.EQ.0 .OR. FLAG) GO TO 200 JST = 741 + (II-1)*3 REALI(1) = PH1OUT(11)**3/12.0 REALI(2) = PH1OUT(12)**3/12.0 REALI(3) = PH1OUT(13)**3/12.0 REALI(4) = PH1OUT(20)**3/1.50 IF (N1 .EQ. 1) GO TO 190 FF = TI(K1+5) - TI(1) IF (ABS(PH1OUT(K1+12+2*II)) .LE. 1.0E-07) GO TO 200 SDELTA(1) = (PH1OUT(JST+1)*FF +TI(2)*PH1OUT(K1+12+2*II))/REALI(II) SDELTA(2) = (PH1OUT(JST+2)*FF +TI(3)*PH1OUT(K1+12+2*II))/REALI(II) SDELTA(3) = (PH1OUT(JST+3)*FF +TI(4)*PH1OUT(K1+2*II+12))/REALI(II) GO TO 210 190 CONTINUE IF (ABS(PH1OUT(K1+12+2*II)) .LE. 1.0E-07) GO TO 200 FF = (TI(K1+3) - PH1OUT(K1+12+2*II)*TI(2) - TI(1))/REALI(II) SDELTA(1) = PH1OUT(JST+1)*FF SDELTA(2) = PH1OUT(JST+2)*FF SDELTA(3) = PH1OUT(JST+3)*FF GO TO 210 200 SDELTA(1) = 0.0 SDELTA(2) = 0.0 SDELTA(3) = 0.0 210 GO TO IRETRN, (26,27) END ================================================ FILE: mis/strslv.f ================================================ SUBROUTINE STRSLV (TS6,NOTS) C C STRESS ROUTINE ,CALLED FROM STRP11, FOR HIGHER ORDER PLATE ELEMENT C REAL J11,J12,J22 LOGICAL NOTS DIMENSION TS6(40) COMMON /MATOUT/ EM(6) COMMON /SDR2X5/ DUMSD(1324) 1, X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,B1,B2,B3 DO 105 I=1,40 TS6(I)=0.0 105 CONTINUE THK=A1+A2*X+A3*Y THK1=THK**3/12.0 D11=EM(1)*THK1 D12=EM(2)*THK1 D13=EM(3)*THK1 D22=EM(4)*THK1 D23=EM(5)*THK1 D33=EM(6)*THK1 D21=D12 D31=D13 D32=D23 IF (NOTS) GO TO 146 THK=B1+B2*X+B3*Y J11=1.0/(EM(6)*THK) J12=0.0 J22=J11 GO TO 148 146 CONTINUE J11=1.0 J12=0.0 J22=1.0 148 CONTINUE C A11=-(J11*D11+J12*D13) A12=-(J11*D12+J12*D23) A13=-(J11*D13+J12*D33) A14=-(J11*D31+J12*D21) A15=-(J11*D32+J12*D22) A16=-(J11*D33+J12*D23) A21=-(J12*D11+J22*D13) A22=-(J12*D12+J22*D23) A23=-(J12*D13+J22*D33) A24=-(J12*D13+J22*D12) A25=-(J12*D23+J22*D22) A26=-(J12*D33+J22*D32) A31=A14+2.0*A13 A32=A12+2.0*A16 A33=A24+2.0*A23 A34=A22+2.0*A26 A35=A33+A11 A36=A34+A31 A37=A25+A32 C X2=X*X XY=X*Y Y2=Y*Y A38=A13+A14 A39=A12+A16 A40=A23+A24 A41=A22+A26 TS6( 7)=6.0*A11 TS6( 8)=2.0*A31 TS6( 9)=2.0*A32 TS6(10)=6.0*A15 TS6(11)=24.0*A11*X TS6(12)=6.0*(A31*X+A11*Y) TS6(13)=4.0*(A32*X+A31*Y) TS6(14)=6.0*(A15*X+A32*Y) TS6(15)=24.0*A15*Y IF (NOTS) GO TO 156 TS6(16)=120.0*(-A11*A11-A13*A21+0.5*A11*X2) TS6(17)=12.0*(-A11*A32-A13*A34-A38*A31-A39*A33-A16*A11-A15*A21) 1 +6.0*(A32*X2+2.0*A31*XY+A11*Y2) TS6(18)=12.0*(-A11*A15-A13*A25-A38*A32-A39*A34-A16*A31-A15*A33) 1 +6.0*(A15*X2+2.0*A32*XY+A31*Y2) TS6(19)=24.0*(-A39*A25-A16*A32-A15*A34+A15*XY+0.5*A32*Y2-A38*A15) TS6(20)=-120.0*(A16*A15+A15*A25-0.5*A15*Y2) GO TO 158 156 CONTINUE TS6(16)=60.0*A11*X2 TS6(17)=6.0*(A32*X2+2.0*A31*XY+A11*Y2) TS6(18)=6.0*(A15*X2+2.0*A32*XY+A31*Y2) TS6(19)=12.0*(2.0*A15*XY+A32*Y2) TS6(20)=60.0*A15*Y2 158 CONTINUE TS6(27)=6.0*A21 TS6(28)=2.0*A33 TS6(29)=2.0*A34 TS6(30)=6.0*A25 TS6(31)=24.0*A21*X TS6(32)=6.0*(A33*X+A21*Y) TS6(33)=4.0*(A34*X+A33*Y) TS6(34)=6.0*(A25*X+A34*Y) TS6(35)=24.0*A25*Y IF (NOTS) GO TO 166 TS6(36)=120.0*(-A21*A11-A23*A21+0.5*A21*X2) TS6(37)=12.0*(-A21*A32-A23*A34-A40*A31-A41*A33-A26*A11-A25*A21) 1 +6.0*(A34*X2+2.0*A33*XY+A21*Y2) TS6(38)=12.0*(-A21*A15-A23*A25-A40*A32-A41*A34-A26*A31-A25*A33) 1 +6.0*(A25*X2+2.0*A34*XY+A33*Y2) TS6(39)=24.0*(-A41*A25-A26*A32-A25*A34+A25*XY+0.5*A34*Y2-A40*A15) TS6(40)=-120.0*(A26*A15+A25*A25-0.5*A25*Y2) GO TO 168 166 CONTINUE TS6(36)=60.0*A21*X2 TS6(37)=6.0*(A34*X2+2.0*A33*XY+A21*Y2) TS6(38)=6.0*(A25*X2+2.0*A34*XY+A33*Y2) TS6(39)=12.0*(2.0*A25*XY+A34*Y2) TS6(40)=60.0*A25*Y2 168 CONTINUE RETURN END ================================================ FILE: mis/stube1.f ================================================ SUBROUTINE STUBE1 C***** C THE TUBE BEING SO SIMILAR TO THE ROD, WE ALTER THE ECPT FOR THE TUBE C SO THAT IT IS IDENTICAL TO THE ONE FOR THE ROD AND THEN CALL SROD1 C TO COMPUTE THE PHASE I PARAMETERS FOR STRESS DATA RECOVERY FOR THE ROD C***** C C C C E C P T F O R T H E T U B E C C C C ECPT( 1) - ELEMENT ID. C ECPT( 2) - SCALAR INDEX NUMBER FOR GRID POINT A C ECPT( 3) - SCALAR INDEX NUMBER FOR GRID POINT B C ECPT( 4) - MATERIAL ID. C ECPT( 5) - OUTSIDE DIAMETER C ECPT( 6) - THICKNESS C ECPT( 7) - NON-STRUCTURAL MASS C ECPT( 8) - COOR. SYS. ID. FOR GRID POINT A C ECPT( 9) - BASIC COORDINATES OF GRID POINT A C ECPT(10) - ... C ECPT(11) - ... C ECPT(12) - COOR. SYS. ID. FOR GRID POINT B C ECPT(13) - BASIC COORDINATES OF GRID POINT B C ECPT(14) - ... C ECPT(15) - ... C ECPT(16) - ELEMENT TEMPERATURE C C C C C SDR2 PHASE I INPUT AND OUTPUT BLOCK C COMMON /SDR2X5/ 1 ECPT(16) ,DUM(84) C C SDR2 SCRATCH BLOCK C COMMON /SDR2X6/ 1 TEMP ,A 2, FJ ,C C C PHYSICAL CONSTANTS C COMMON /CONDAS/ PI ,TWOPI ,RADEG ,DEGRA , 1 S4PISQ C C C TEMP = ECPT(5) - ECPT(6) C C COMPUTE AREA, TORSIONAL INERTIA AND STRESS COEFFICIENT. C A = TEMP * ECPT(6) * PI FJ = .25 * A * (TEMP**2 + ECPT(6)**2) C = .5 * ECPT(5) C C MOVE THE -END- OF THE ARRAY -DOWN ONE SLOT- SO THAT ENTRIES 7 THRU 16 C OF THE ECPT WILL BE STORED AT POSITIONS 8 THRU 17. C M = 18 DO 10 I = 1,10 M = M - 1 10 ECPT(M) = ECPT(M-1) ECPT(5) = A ECPT(6) = FJ ECPT(7) = C CALL SROD1 RETURN END ================================================ FILE: mis/sub.f ================================================ SUBROUTINE SUB(X,Y,A,B) C******* C SUB WILL FORM Y = A*X - B*Y WHERE A AND B ARE SCALAR MULTIPLIERS C FOR THE VECTORS X AND Y C******* DOUBLE PRECISION X(1) ,Y(1) ,A ,B COMMON /INVPWX/ XX ,NCOL DO 10 I = 1,NCOL 10 Y(I) = X(I)*A - Y(I)*B RETURN END ================================================ FILE: mis/sub1.f ================================================ SUBROUTINE SUB1(X,Y,A,B) C SUBROUTINE SUB(X,Y,A,B) C******* C SUB WILL FORM Y = A*X - B*Y WHERE A AND B ARE SCALAR MULTIPLIERS C FOR THE VECTORS X AND Y C******* C DOUBLE PRECISION X(1) ,Y(1) ,A ,B DOUBLE PRECISION A,B REAL X(1),Y(1) COMMON /INVPWX/ XX ,NCOL A1 = A B1 = B DO 10 I = 1,NCOL 10 Y(I) = X(I)*A1- Y(I)*B1 RETURN END ================================================ FILE: mis/suba.f ================================================ SUBROUTINE SUBA C C UNSTEADY FLOW ANAYSIS OF A SUPERSONIC CASCADE C C LIFT AND MOMENT COEFICIENT C DIMENSION PRES1(21),PRES2(21),PRES3(21),PRES4(21),QRES4(21), 1 SBKDE1(201),SBKDE2(201),SUMSV1(201),SUMSV2(201), 2 SVKL1(201),SVKL2(201),XLSV1(21),XLSV2(21), 3 XLSV3(21),XLSV4(21) COMPLEX SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4, 1 AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5, 2 AM5T,AI,A,B,BSYCON,ALP,F1,AM1,ALN,BLKAPM,BKDEL3, 3 F1S,C1,C2P,C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1, 4 SUM2,F2,BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T, 5 C1P,C1N,BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC, 6 BC2,BC3,BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT, 7 PRES1,PRES2,PRES3,PRES4,QRES4,FQA,FQB,T1,T2,T3,T4, 8 GUSAMP,FQ7,CEXP3,CEXP4,CEXP5,CONST,C1A,C2A CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IBBOUT COMMON /BLK1 / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES COMMON /BLK2 / BSYCON COMMON /BLK3 / SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4, 1 AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5, 2 AM5T,A,B,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,C2P, 3 C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2, 4 BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,C1P,C1N, 5 BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,BC2,BC3, 6 BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,PRES1,PRES2, 7 PRES3,PRES4,QRES4,FQA,FQB,FQ7 COMMON /BLK4 / I,R,Y,A1,B1,C4,C5,GL,I6,I7,JL,NL,RI,RT,R5,SN,SP, 1 XL,Y1,AMU,GAM,IDX,INX,NL2,RL1,RL2,RQ1,RQ2,XL1, 2 ALP1,ALP2,GAMN,GAMP,INER,IOUT,REDF,STAG,STEP, 3 AMACH,BETNN,BETNP,BKAP1,XLSV1,XLSV2,XLSV3,XLSV4, 4 ALPAMP,AMOAXS,GUSAMP,DISAMP,PITAXS,PITCOR C S1 = SPS - SNS S2 = SPS*DEL - SIGMA S3 = SPS/(DSTR**2) S4 = SNS/DSTR S0 = 2.0 - SPS + SNS T1 = CEXP(-AI*SIGMA) T2 = CEXP(AI*SIGMA) A1 = 2.0*PI/S1 B1 = S2/S1 GAM = S2 C1P = GAM/DSTR - SCRK C1N = GAM/DSTR + SCRK ALP = GAM*S3 + S4*CSQRT(C1P)*CSQRT(C1N) BC = -B1/ALP*BSYCON/SIN(PI*B1/A1) T3 = ALP - DEL F1 = (ALP-AMU)/T3*AI*SNS/(BETA*(GAM-ALP*SPS)) ARG2 = DEL CALL AKAPM (ARG2,BKDEL1) ARG = DEL - GL CALL AKAPM (ARG,BKDEL2) CALL DLKAPM (ARG2,BLKAP1) INX = 0 CALL DRKAPM (ALP,INX,BLKAPM) F1 = F1*BKDEL1/BLKAPM*(-T3/(T3+GL)*A*AI*BKDEL2/BKDEL1 + 1 B*BLKAP1+B/T3) F1S = F1 NL = 10 RL1 = NL - 1 CEXP3 = CEXP(-AI*T3/RL1*S1) PRES1(1) = F1S NNL1 = NL - 1 DO 453 JL = 1,NNL1 PRES1(JL+1) = PRES1(JL)*CEXP3 453 CONTINUE F1 = F1*AI/T3*(CEXP(-AI*T3*S1)-1.0) AM1 = F1/(AI*T3)-F1S/(AI*T3)*S1*CEXP(-AI*T3*S1) AMTEST = 0.0 FQB = BKDEL1/(BETA*BC)*CEXP(AI*S2/2.0)* 1 (-A*AI*BKDEL2/BKDEL1+B*BLKAP1) DO 20 I = 1,200 R = I GAMP = 2.0*PI*R + S2 GAMN =-2.0*PI*R + S2 C1P = (GAMP/DSTR) - SCRK C2P = (GAMP/DSTR) + SCRK ALP = GAMP*S3 + S4*CSQRT(C1P)*CSQRT(C2P) T3 = ALP - DEL IDX = I CALL DRKAPM (ALP,IDX,BLKAPM) C1 = (ALP-AMU)/T3*AI*SNS/(BETA*(GAMP-ALP*SPS))*BKDEL1/ 1 (BLKAPM)*(-T3/(T3+GL)*A*AI*BKDEL2/BKDEL1+B*BLKAP1+B/T3) C1N = (GAMN/DSTR) - SCRK C2N = (GAMN/DSTR) + SCRK ALN = GAMN*S3 + S4*CSQRT(C1N)*CSQRT(C2N) T4 = ALN - DEL IDX =-I CALL DRKAPM (ALN,IDX,BLKAPM) C2 = (ALN-AMU)/T4*AI*SNS/(BETA*(GAMN-ALN*SPS))*BKDEL1/ 1 (BLKAPM)*(-T4/(T4+GL)*A*AI*BKDEL2/BKDEL1+B*BLKAP1+B/T4) F1 = F1+C1*AI/T3*(CEXP(-AI*T3*S1)-1.0)+C2*AI/ 1 T4*(CEXP(-AI*T4*S1)-1.0) AM1 = AM1+C1/(AI*T3)*(-S1*CEXP(-AI*T3*S1)+AI/ 1 T3*(CEXP(-AI*T3*S1)-1.0))+C2/(AI*T4)* 2 (-S1*CEXP(-AI*T4*S1)+AI/T4*(CEXP(-AI*T4*S1)-1.0)) C2A = C2 C1A = C1 AA = S1/RL1 CEXP3 = CEXP(-AI*T3*AA) CEXP4 = CEXP(-AI*T4*AA) TEMP = 2.0*PI*R CEXP5 = CEXP(AI*(SIGMA-SNS*DEL)/S1*AA) CONST = 4.0*FQB/TEMP PRES1(1) = PRES1(1) + C1 + C2 DO 454 JL = 1,NNL1 CONST = CONST*CEXP5 C1A = C1A*CEXP3 C2A = C2A*CEXP4 PRES1(JL+1) = PRES1(JL+1) + C1A + C2A PRES1(JL+1) = PRES1(JL+1) + CONST*SIN(TEMP*JL/RL1) 454 CONTINUE IF (CABS((AM1-AMTEST)/AM1) .LT. 0.0005) GO TO 45 AMTEST = AM1 20 CONTINUE GO TO 9992 9992 WRITE (IBBOUT,3005) UFM 3005 FORMAT (A23,' FROM AMG MODULE. AM1 LOOP IN SUBROUTINE SUBA DID ', 1 'NOT CONVERGE.') CALL MESAGE (-61,0,0) 45 CONTINUE AA = S1/RL1 CEXP3 = CEXP(AI*(SIGMA-SNS*DEL)/RL1) CONST = FQB TEMP = 2.0*AA/(SPS-SNS) PRES1(1) = PRES1(1) - FQB DO 4541 JL = 1,NNL1 CONST = CONST*CEXP3 PRES1(JL+1) = PRES1(JL+1) - CONST*(1.0-JL*TEMP) 4541 CONTINUE Y = 0.0 Y1 = SNS ARG = DEL - GL CALL ALAMDA (ARG,Y,BLAM1) CALL ALAMDA (ARG,Y1,BLAM2) CALL AKAPPA (ARG,BKAP1) FT2 = A*AI*(DEL-GL-AMU)*BLAM1/BKAP1 FT2T = A*AI*(DEL-GL-AMU)*BLAM2/BKAP1 ARG = DEL CALL ALAMDA (ARG,Y,BLAM1) CALL ALAMDA (ARG,Y1,BLAM2) CALL AKAPPA (ARG,BKAP1) GAM = SQRT(DEL**2-SCRK**2) S5 = SIN(SNS*GAM) S6 = COS(SNS*GAM) C1 =-1.0/(BETA*GAM*S5) C1T = C1*(AI*SPS*T2*S6-SNS*DEL/GAM*T2*S5)-BLAM2/BKAP1*DEL/GAM*(S5 1 +GAM*SNS*S6)/(GAM*S5) C1 = C1*(ARG/GAM*SNS*S5+AI*SPS*T2)-BLAM1/BKAP1*DEL/(GAM*S5)*(S5/ 1 GAM+SNS*S6) FT3 =-B*(BLAM1/BKAP1+(DEL-AMU)*C1) FT3T =-B*(BLAM2/BKAP1+(DEL-AMU)*C1T) IF (GL .EQ. 0.0) GO TO 50 F2 = FT2*(CEXP(2.0*AI*GL)-CEXP(AI*GL*S1))/(AI*GL)+ 1 FT3*S0+B*AI*(DEL-AMU)*BLAM1/BKAP1*(4.0-S1**2)/2.0 AM2 = FT2*(2.0*CEXP(2.0*AI*GL)/(AI*GL)-S1/(AI*GL)*CEXP(GL*AI*S1)+ 1 (CEXP(2.0*AI*GL)-CEXP(AI*S1*GL))/GL**2)+FT3*(4.0-S1**2)/2.0 2 +B*AI*(DEL-AMU)*BLAM1/BKAP1*(8.0-S1**3)/3.0 F2P = FT2T*T1*CEXP(AI*GL*SNS)/(AI*GL)*(CEXP(2.0*AI*GL)- 1 CEXP(AI*GL*S1))+FT3T*T1*S0+B*AI*(DEL-AMU)*T1*BLAM2/ 2 BKAP1*(S0**2/2.0+SPS*S0) AM2P = FT2T*T1*(CEXP(AI*GL*SPS)/(AI*GL)*S0*CEXP(AI*GL*S0)+ 1 CEXP(AI*GL*SPS)/(GL**2)*(CEXP(AI*GL*S0)-1.0))+ 2 FT3T*T1*S0**2/2.0+B*AI*(DEL-AMU)*T1*BLAM2/BKAP1*(S0**3/3.0+ 3 SPS*S0**2/2.0) GO TO 55 50 CONTINUE F2 = FT2*S0+FT3*S0+B*AI*(DEL-AMU)*BLAM1/BKAP1*(4.-S1**2)/2. AM2 = FT2*(4.0-S1**2)/2.0+FT3*(4.0-S1**2)/2.0+B*AI*(DEL-AMU)* 1 BLAM1/BKAP1*(8.0-S1**3)/3.0 F2P = FT2T*T1*S0+FT3T*T1*S0+B*AI*(DEL-AMU)*T1*BLAM2/BKAP1*(S0**2 1 /2.0+SPS*S0) AM2P = FT2T*T1*S0**2/2.0+FT3T*T1*S0**2/2.0+B*AI*(DEL-AMU)*T1*BLAM2 1 /BKAP1*(S0**3/3.0+SPS*S0**2/2.0) 55 CONTINUE NL2 = 20 RL2 = NL2 - 1 AA = SPS - SNS CONST = B*AI*(DEL-AMU)*BLAM1/BKAP1 TEMP = S0/RL2 C1A = AI*GL CEXP3 = CEXP(C1A*AA) CEXP4 = CEXP(C1A*TEMP) DO 455 JL = 1,NL2 XL = AA + TEMP*(JL-1) PRES2(JL) = FT2*CEXP3 + FT3+CONST*XL CEXP3 = CEXP3*CEXP4 455 CONTINUE CALL SUBBB RETURN END ================================================ FILE: mis/subb.f ================================================ SUBROUTINE SUBB(KB,KS,I,J,JB,LB,LS,NDY,NYFL,PI,EPS,SGR,CGR, * AR,BETA,SUM,RIA,DELX,YB,ZB,YS,ZS,X) C *** COMPUTES ELEMENTS OF THE SUBMATRICES DZP, DZZ, DZY, DYP, C DYZ AND DYY USING SUBROUTINE DZY REAL KD1R,KD1I, KD2R,KD2I COMPLEX DPUR,DPUL,DPLR,DPLL,DP,SUM DIMENSION RIA(1),DELX(1),YB(1),ZB(1),YS(1),ZS(1),X(1) COMMON /AMGMN/ MCB(7),NROW,ND,NE,REFC,FMACH,KR COMMON /KDS/ IND,KD1R,KD1I,KD2R,KD2I FLND = FLOAT(ND) FLNE = FLOAT(NE) IND = 0 DPUR = (0.0,0.0) DPUL = (0.0,0.0) DPLR = (0.0,0.0) DPLL = (0.0,0.0) ANOT = RIA(JB) DXS = DELX(J) ABSYB= ABS(YB(LB)) ABSZB= ABS(ZB(LB)) IFLAG = 0 IDFLAG = 0 IF (KB.EQ.0) GO TO 20 TEST1= ABS(YB(LB) -YB(KB)) TEST2= ABS(ZB(LB) -ZB(KB)) IF (TEST1.GT.EPS. OR .TEST2.GT.EPS) GO TO 20 IFLAG = 1 IF(NDY .NE. NYFL) GO TO 20 IF( I .NE. J ) GO TO 20 IDFLAG = 1 D2D = 1.0 /(2.0*PI*ANOT*ANOT*(1.0+AR)) IF (NDY.NE.0) D2D=D2D/AR SUM = CMPLX(D2D,0.0) SIGN1 = 1.0 IF(NDY.NE.0) SIGN1 = -1.0 IF(ABSYB.LT.EPS) SUM=(1.0+SIGN1*FLND)*SUM IF(ABSZB.LT.EPS) SUM=(1.0+SIGN1*FLNE)*SUM DPUR = SUM 20 CONTINUE XX = X(I) Y = YS(KS) Z = ZS(KS) XI1 = X(J) - 0.5*DXS XI2 = X(J) + 0.5*DXS ETA = YS(LS) ZETA = ZS(LS) AO = ANOT IDZDY= NDY IGO = 1 LHS = 0 IF(IFLAG .EQ. 1) GO TO 45 30 CONTINUE CALL DZY (XX, Y, Z, SGR, CGR, XI1, XI2, ETA, ZETA, AR, AO, 1 KR, REFC, BETA, FMACH, LHS, 2 IDZDY , DZDYR , DZDYI ) DP = CMPLX(DZDYR,DZDYI) GO TO (40,50,70,80), IGO 40 CONTINUE C UPPER RIGHT-HAND SIDE CONTRIBUTION DPUR = DP IF (KB.EQ.LB) GO TO 100 45 CONTINUE IF (ND.EQ.0) GO TO 60 IF (IDFLAG.EQ.1.AND.ABSYB.LT.EPS) GO TO 60 IGO = 2 ETA = -YS(LS) LHS = 1 GO TO 30 50 CONTINUE C UPPER LEFT-HAND SIDE CONTRIBUTION DPUL = DP 60 CONTINUE IF (NE.EQ.0) GO TO 90 IF(IDFLAG.EQ.1.AND.ABSZB.LT.EPS) GO TO 90 IGO = 3 ETA = YS(LS) ZETA = -ZS(LS) LHS = 1 GO TO 30 70 CONTINUE C LOWER RIGHT-HAND SIDE CONTRIBUTION DPLR = DP IF (ND.EQ.0) GO TO 90 IF(IDFLAG.EQ.1.AND.ABSYB.LT.EPS) GO TO 90 IGO = 4 ETA = -YS(LS) ZETA = -ZS(LS) LHS = 0 GO TO 30 80 CONTINUE C LOWER LEFT-HAND SIDE CONTRIBUTION DPLL = DP 90 CONTINUE SUM = DPUR + FLND*DPUL + FLNE*DPLR + FLND*FLNE*DPLL 100 CONTINUE RETURN END ================================================ FILE: mis/subbb.f ================================================ SUBROUTINE SUBBB C COMPLEX SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4, 1 AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5, 2 AM5T,AI,A,B,BSYCON,ALP,F1,AM1,ALN,BLKAPM,BKDEL3, 3 F1S,C1,C2P,C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1, 4 SUM2,F2,BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T, 5 GUSAMP,C1P,C1N,BKDEL1,BKDEL2,BLKAP1,ARG,ARG2, 6 FT3TST,BC,BC2,BC3,BC4,BC5,CA1,CA2,CA3,CA4,CLIFT, 7 CMOMT,PRES1,PRES2,PRES3,PRES4,QRES4,CEXP4C,FQA, 8 FQB,T1,T2,T3,T4,CEXP2A,CEXP2B,CEXP2C,CEXP4A, 9 CEXP4B,FQ7,C1A,C3A,C4A,CONST,CEXP3,CEXP4,CEXP3A, O CEXP3B,CEXP3C DIMENSION PRES1(21),PRES2(21),PRES3(21),PRES4(21),QRES4(21), 1 SBKDE1(201),SBKDE2(201),SUMSV1(201),SUMSV2(201), 2 SVKL1(201),SVKL2(201),XLSV1(21),XLSV2(21), 3 XLSV3(21),XLSV4(21) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IBBOUT COMMON /BLK1 / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES COMMON /BLK2 / BSYCON COMMON /BLK3 / SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4, 1 AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5, 2 AM5T,A,B,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,C2P, 3 C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2, 4 BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,C1P,C1N, 5 BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,BC2,BC3, 6 BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,PRES1,PRES2, 7 PRES3,PRES4,QRES4,FQA,FQB,FQ7 COMMON /BLK4 / I,R,Y,A1,B1,C4,C5,GL,I6,I7,JL,NL,RI,RT,R5,SN,SP, 1 XL,Y1,AMU,GAM,IDX,INX,NL2,RL1,RL2,RQ1,RQ2,XL1, 2 ALP1,ALP2,GAMN,GAMP,INER,IOUT,REDF,STAG,STEP, 3 AMACH,BETNN,BETNP,BKAP1,XLSV1,XLSV2,XLSV3,XLSV4, 4 ALPAMP,AMOAXS,GUSAMP,DISAMP,PITAXS,PITCOR C S1 = 2.0 + SNS - SPS T1 = CEXP(-AI*SIGMA) T2 = CEXP(+AI*SIGMA) TEMP = S1/RL2 C1A = AI*GL CONST = B*AI*(DEL-AMU)*BLAM2/BKAP1 CEXP3 = CEXP(C1A*SPS ) CEXP4 = CEXP(C1A*TEMP) XL = SPS DO 456 JL = 1,NL2 PRES3(JL) = (FT2T*CEXP3+FT3T+CONST*XL)*T1 CEXP3 = CEXP3*CEXP4 XL = XL + TEMP 456 CONTINUE FT3TST = 0.0 FT2 = 0.0 FT3 = 0.0 FT2T = 0.0 FT3T = 0.0 FQA = BKDEL1/(BC*BETA)*(A*AI*BKDEL2/BKDEL1-B*BLKAP1)* 1 CEXP(-AI*(DEL*SPS-SIGMA)/2.0) DO 60 I = 1,50 RT = 0.0 R = I - 1 RI = (-1.0)**(I-1) CWKBR ALP = SQRT((R*PI/SNS)**2+SCRK**2) ALP = SQRT((R*PI/SNS)**2+SCRK**2) ALN = -ALP CALL AKAPM (ALP,BKDEL3) T3 = ALP - DEL SVKL1(I) = BKDEL3 IF (I .EQ. 1) RT = 1.0 SUM1 = (ALP-AMU)/(T3)*(RI-CEXP(AI*(T3)*SPS)*T2)/ 1 (BETA*(1.0+RT))*RI/(SNS*ALP)*BKDEL1/BKDEL3*(A*AI*BKDEL2/ 2 BKDEL1*(T3)/(T3+GL)-B*BLKAP1-B/(T3)) SUM1T = (ALP-AMU)/(T3)*(1.0-CEXP(AI*(T3)*SPS)*T2*RI)/ 1 (BETA*(1.0+RT))*RI/(SNS*ALP)*BKDEL1/BKDEL3*(A*AI*BKDEL2/ 2 BKDEL1*(T3)/(T3+GL)-B*BLKAP1-B/(T3)) SUMSV1(I) = (ALP-AMU)/(T3)*(1.0-CCOS((T3)*SPS+SIGMA+R*PI))/ 1 (BETA*(1.0+RT)*SNS*ALP)*BKDEL1/BKDEL3*CEXP(-2.0*AI*(ALP- 2 DEL))*(A*BKDEL2/BKDEL1*(T3)/(T3+GL)+B*AI*BLKAP1+B*AI/(T3)) FT2 = SUM1*AI/(T3)*(CEXP(-2.0*AI*(T3))-CEXP(-AI*(SPS-SNS)*(T3))) 1 + FT2 FT3 = SUM1*(2.0*AI*CEXP(-2.0*AI*(T3))/(T3)-AI*(SPS-SNS)/ 1 (T3)*CEXP(-AI*(T3)*(SPS-SNS))+CEXP(-2.0*AI*(T3))/ 2 ((T3)**2)-CEXP(-AI*(T3)*(SPS-SNS))/((T3)**2)) + FT3 FT2T = SUM1T*T1*CEXP(-AI*(T3)*SPS)*AI/(T3)*(CEXP(-AI*(T3)*(S1))- 1 1.0) + FT2T FT3T = SUM1T*T1*CEXP(-AI*(T3)*SPS)*((S1)*AI/(T3)*CEXP(-AI*(T3)* 1 (S1)) + 1.0/((T3)**2)*(CEXP(-AI*(T3)*(S1))-1.0)) + FT3T CALL AKAPM (ALN,BKDEL3) T4 = ALN - DEL SVKL2(I) = BKDEL3 SUM2 = (ALN-AMU)/(T4)*(RI-CEXP(AI*(T4)*SPS)*T2)/(BETA*(1.0+RT))* 1 RI/(SNS*ALN)*BKDEL1/BKDEL3*(A*AI*BKDEL2/BKDEL1*(T4)/ 2 (T4+GL)-B*BLKAP1-B/(T4)) SUM2T = (ALN-AMU)/(T4)*(1.0-CEXP(AI*(T4)*SPS)*T2*RI)/(BETA*(1.0+ 1 RT))*RI/(SNS*ALN)*BKDEL1/BKDEL3*(A*AI*BKDEL2/BKDEL1*(T4)/ 2 (T4+GL)-B*BLKAP1-B/(T4)) SUMSV2(I) = (ALN-AMU)/(T4)*(1.0-CCOS((T4)*SPS+SIGMA+R*PI))/ 1 (BETA*(1.0+RT)*SNS*ALN)*BKDEL1/BKDEL3*CEXP(-2.0*AI*(T4))* 2 (A*BKDEL2/BKDEL1*(T4)/(T4+GL)+B*AI*BLKAP1+B*AI/(T4)) FT2 = FT2+SUM2*AI/(T4)*(CEXP(-2.0*AI*(T4))-CEXP(-AI*(SPS-SNS)* 1 (T4))) FT2T = SUM2T*T1*CEXP(-AI*(T4)*SPS)*AI/(T4)*(CEXP(-AI*(T4)*(S1))- 1 1.0) + FT2T FT3 = FT3+SUM2*(2.0*AI*CEXP(-2.0*AI*(T4))/(T4)-AI*(SPS-SNS)/ 1 (T4)*CEXP(-AI*(T4)*(SPS-SNS))+CEXP(-2.0*AI*(T4))/ 2 ((T4)**2)-CEXP(-AI*(T4)*(SPS-SNS))/((T4)**2)) FT3T = FT3T+SUM2T*T1*CEXP(-AI*(T4)*SPS)*((S1)*AI/(T4)* 1 CEXP(-AI*(T4)*(S1))+1./((T4)**2)*(CEXP(-AI*(T4)*(S1))-1.)) I7 = I AA = SPS - SNS TEMP = S1/RL2 TEMP2 = R*PI/SNS CONST = 4.0/PI*FQA TEMP3 = R + RT C3A = -AI*T3 C4A = -AI*T4 C1A = AI*DEL CEXP3A = CEXP(C3A*AA) CEXP3B = CEXP(C3A*SPS) CEXP3C = CEXP(C3A*TEMP) CEXP4A = CEXP(C4A*AA) CEXP4B = CEXP(C4A*SPS) CEXP4C = CEXP(C4A*TEMP) CEXP2A = CEXP(C1A*AA) CEXP2B = CEXP(C1A*SPS) CEXP2C = CEXP(C1A*TEMP) XL1 = AA DO 457 JL = 1,NL2 PRES2(JL) = SUM1*CEXP3A+SUM2*CEXP4A + PRES2(JL) PRES2(JL) = PRES2(JL) + CONST*CEXP2A*RI/TEMP3*SIN(TEMP2*(XL1-SPS)) XL2 = XL1 + SNS PRES3(JL) = (SUM1T*CEXP3B+SUM2T*CEXP4B)*T1 + PRES3(JL) PRES3(JL) = PRES3(JL)+CONST*CEXP2B/TEMP3*SIN(TEMP2*(XL2-SPS))*T1 XL1 = XL1 + TEMP CEXP3A = CEXP3A*CEXP3C CEXP4A = CEXP4A*CEXP4C CEXP2A = CEXP2A*CEXP2C CEXP3B = CEXP3B*CEXP3C CEXP4B = CEXP4B*CEXP4C CEXP2B = CEXP2B*CEXP2C 457 CONTINUE IF (CABS((FT3-FT3TST)/FT3) .LT. 0.0006) GO TO 65 FT3TST = FT3 60 CONTINUE GO TO 9994 65 CONTINUE FT3TST = FT3 F2 = F2 + FT2 AM2 = AM2 + FT3 F2P = F2P + FT2T AM2P = AM2P+ FT3T AA = SPS - SNS AA1 = SPS + SNS AA2 = SPS + 2.0*SNS TEMP = S1/RL2 XL = AA C1A = AI*DEL CEXP3 = CEXP(C1A*AA) CEXP3C = CEXP(C1A*TEMP) CEXP4 = CEXP(C1A*SPS) CONST = 2.0*FQA CEXP2A = T1*CONST DO 4571 JL = 1,NL2 STEP = 0.0 IF (XL .GE. AA1) STEP = 1.0 PRES2(JL) = PRES2(JL) + CONST*CEXP3*((XL-SPS)/SNS-2.0*STEP) XL2 = XL + SNS STEP = 0.0 IF (XL2 .GE. AA2) STEP = 1.0 PRES3(JL) = PRES3(JL) - CEXP2A*CEXP4*(1.0-(XL2-SPS)/SNS+2.0*STEP) CEXP3 = CEXP3*CEXP3C CEXP4 = CEXP4*CEXP3C XL = XL + TEMP 4571 CONTINUE GAM = SPS*DEL - SIGMA C1P = (GAM/DSTR) - SCRK C2P = (GAM/DSTR) + SCRK ALP = GAM*SPS/(DSTR**2) - SNS/DSTR*CSQRT(C1P)*CSQRT(C2P) T3 = ALP - DEL F4 = CEXP(AI*(ALP*SPS-GAM))*(ALP*SPS-GAM)/((ALP*DSTR**2-GAM*SPS)* 1 (T3)) CALL AKAPM (ALP,BKDEL3) SBKDE1(1) = BKDEL3 SBKDE2(1) = 0.0 CALL AKAPPA (DEL,BKAP1) CARG = DEL - GL CALL AKAPPA (CARG,CKAP1) F4 = F4*BKDEL3/(BKDEL1*BKAP1)*(A*(BKDEL1/BKDEL2*(T3)/(T3+GL)* 1 (DEL-GL-AMU)*CEXP(2.0*AI*GL)*BKAP1/CKAP1)+B*AI*(1.0-2.0*AI* 2 (DEL-AMU)-(DEL-AMU)*RES)-B*AI*(DEL-AMU)*(BLKAP1-1.0/(T3))) F5S = B*AI/(BKDEL1*BKAP1)*(1.0-2.0*AI*(DEL-AMU) - (DEL-AMU)*RES - 1 (DEL-AMU)*BLKAP1) F6S = A/(BKDEL1*BKAP1)*(BKDEL1/BKDEL2*(DEL-GL-AMU)*CEXP(2.0*AI*GL) 1 *BKAP1/CKAP1) F4S = F4 FQ7 = BC*(F6S+F5S) TEMP = (SPS-SNS)/RL1 TEMP2 = 2.0 - SPS CONST = -T1*F4S C1A = -AI*T3 CEXP3A = CEXP(C1A*SNS) CEXP3B = CEXP(C1A*TEMP) DO 458 JL = 1,NL PRES4(JL) = CONST*CEXP3A CEXP3A = CEXP3A*CEXP3B 458 CONTINUE C1 = CEXP(-AI*(T3)*SPS) C2 = CEXP(-AI*(T3)*SNS) F4 = F4*AI*T1/(T3)*(C1-C2) AM4 = F4S*T1*(AI*SPS*C1/(T3)-AI*SNS*C2/(T3)+(C1-C2)/ 1 ((T3)**2))+F4S*AI*(2.0-SPS)*T1/(T3)*(C1-C2) CALL SUBC RETURN C 9994 WRITE (IBBOUT,3015) UFM 3015 FORMAT (A23,' - AMG MODULE -SUBROUTINE SUBC. AM4 LOOP DID NOT ', 1 'CONVERGE.') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/subc.f ================================================ SUBROUTINE SUBC C COMPLEX GUSAMP,SBKDE1,SBKDE2, 1 F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,AM5TT,AM6, 2 SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,AM5T, 3 AI,A,B,BSYCON,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1, 4 C2P,C2N, 5 C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2,BLAM2, 6 FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T, 7 C1P,C1N,BKDEL1,BKDEL2,BLKAP1,ARG,ARG2, 8 FT3TST,C1A,C2A,C3A,CEXP1,CEXP2,CEXP3,CEXP1A, 9 CEXP2A,CEXP3A,CONST, O BC,BC2,BC3,BC4,BC5,CA1,CA2,CA3,CA4, 1 CLIFT,CMOMT,C4A,CEXP4,CEXP5,CEXP4A,CEXP5A, 2 PRES1,PRES2,PRES3,PRES4,QRES4,FQA,FQB,T1,T2,T3,FQ7 DIMENSION PRES1(21),PRES2(21),PRES3(21),PRES4(21),QRES4(21), 1 SBKDE1(201),SBKDE2(201), 2 SUMSV1(201),SUMSV2(201),SVKL1(201),SVKL2(201), 3 XLSV1(21),XLSV2(21),XLSV3(21),XLSV4(21) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IBBOUT COMMON /BLK1 / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES COMMON /BLK2 / BSYCON COMMON /BLK3 / SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4, 1 AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5, 2 AM5T,A,B,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,C2P, 3 C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2, 4 BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,C1P,C1N, 5 BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,BC2,BC3, 6 BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,PRES1,PRES2, 7 PRES3,PRES4,QRES4,FQA,FQB,FQ7 COMMON /BLK4 / I,R,Y,A1,B1,C4,C5,GL,I6,I7,JL,NL,RI,RT,R5,SN,SP, 1 XL,Y1,AMU,GAM,IDX,INX,NL2,RL1,RL2,RQ1,RQ2,XL1, 2 ALP1,ALP2,GAMN,GAMP,INER,IOUT,REDF,STAG,STEP, 3 AMACH,BETNN,BETNP,BKAP1,XLSV1,XLSV2,XLSV3,XLSV4, 4 ALPAMP,AMOAXS,GUSAMP,DISAMP,PITAXS,PITCOR C AM4TST = 0.0 S1 = SPS*DEL - SIGMA S2 = SPS/(DSTR**2) S3 = SNS/DSTR S4 = SPS + SNS T3 = CEXP(-AI*SIGMA) DO 70 I = 1,200 R = I GAMP = 2.0*PI*R + S1 GAMN =-2.0*PI*R + S1 C1P = (GAMP/DSTR) - SCRK C2P = (GAMP/DSTR) + SCRK ALP = GAMP*S2 - S3*CSQRT(C1P)*CSQRT(C2P) T1 = ALP - DEL CALL AKAPM (ALP,BKDEL3) SBKDE1(I+1) = BKDEL3 SUM1 = CEXP(AI*(ALP*SPS-GAMP))*(ALP*SPS-GAMP)*BKDEL3/((ALP*DSTR**2 1 - GAMP*SPS)*T1)*(F6S*T1/(T1+GL) + F5S 2 + B*AI/(BKDEL1*BKAP1)*(DEL-AMU)/(ALP-DEL)) C1N = (GAMN/DSTR) - SCRK C2N = (GAMN/DSTR) + SCRK ALN = GAMN*S2 - S3*CSQRT(C1N)*CSQRT(C2N) T2 = ALN - DEL CALL AKAPM (ALN,BKDEL3) SBKDE2(I+1) = BKDEL3 SUM2 = CEXP(AI*(ALN*SPS-GAMN))*(ALN*SPS-GAMN)*BKDEL3/((ALN*DSTR**2 1 - GAMN*SPS)*T2)*(F6S*(T2)/(T2+GL) + F5S 2 + B*AI/(BKDEL1*BKAP1)*(DEL-AMU)/(T2)) C1P = CEXP(-AI*(T1)*SPS) C2P = CEXP(-AI*(T1)*SNS) C1N = CEXP(-AI*(T2)*SPS) C2N = CEXP(-AI*(T2)*SNS) F4 = F4 + SUM1*T3*AI/(T1)*(C1P-C2P) + SUM2*T3*AI/(T2)*(C1N-C2N) AM4 = AM4 + SUM1*T3*(AI*SPS*C1P/(T1) - AI*SNS*C2P/(T1) + 1.0/ 1 ((T1)**2)*(C1P-C2P)+AI*(2.0-SPS)/(T1)*(C1P-C2P)) + 2 SUM2*T3*(AI*SPS*C1N/(T2)-AI*SNS*C2N/(T2) + 1.0/ 3 ((T2)**2)*(C1N-C2N) + AI*(2.0-SPS)/(T2)*(C1N-C2N)) I6 = I + 1 TEMP = (SPS-SNS)/RL1 C1A =-AI*T1 C2A =-AI*T2 C3A = AI*DEL CEXP1 = CEXP(C1A*SNS) CEXP2 = CEXP(C2A*SNS) CEXP3 = CEXP(C3A*SNS) CEXP1A = CEXP(C1A*TEMP) CEXP2A = CEXP(C2A*TEMP) CEXP3A = CEXP(C3A*TEMP) CONST = FQ7/(2.0*PI) TEMP2 = 2.0*PI*R/S4 C4A =-AI*S1 CEXP4 = CEXP(C4A*(2.0*SNS/S4+0.5)) CEXP5 = CEXP(C4A*0.5) CEXP4A = CEXP(C4A*TEMP/S4) CEXP5A = CEXP(C4A*TEMP/(SPS+SNS)) XL = SNS DO 459 JL = 1,NL PRES4(JL) = PRES4(JL) - T3*(SUM1*CEXP1 + SUM2*CEXP2 1 + CONST*CEXP3*(CEXP4*SIN(TEMP2*(SNS+XL))/R 2 - CEXP5*SIN(TEMP2*(SPS+XL))/R)) XL = XL + TEMP CEXP1 = CEXP1*CEXP1A CEXP2 = CEXP2*CEXP2A CEXP3 = CEXP3*CEXP3A CEXP4 = CEXP4*CEXP4A CEXP5 = CEXP5*CEXP5A 459 CONTINUE IF (CABS((AM4-AM4TST)/AM4) .LT. 0.0006) GO TO 75 AM4TST = AM4 70 CONTINUE GO TO 9994 75 CONTINUE TEMP = (SPS-SNS)/RL1 TEMP1 = 2.0*SNS/S4 + 0.5 TEMP2 = 0.5 - (SPS+SNS)/S4 C1A = AI*DEL C2A =-AI*S1 C3A =-C2A CEXP1 = CEXP(C1A*SNS) CEXP2 = CEXP(C2A*TEMP1) CEXP3 = CEXP(C3A*TEMP2) CEXP1A= CEXP(C1A*TEMP) CEXP2A= CEXP(C2A*TEMP/S4) CONST = T3*FQ7/2.0 XL = SNS DO 4596 JL = 1,NL PRES4(JL) = PRES4(JL) - CONST*CEXP1*(CEXP2*((SNS+XL)/S4-0.5) 1 - CEXP3*((SPS+XL)/S4-1.5)) XL = XL + TEMP CEXP1 = CEXP1*CEXP1A CEXP2 = CEXP2*CEXP2A CEXP3 = CEXP3*CEXP2A 4596 CONTINUE CALL SUBCC RETURN C 9994 WRITE (IBBOUT,3015) UFM 3015 FORMAT (A23,' - AMG MODULE -SUBROUTINE SUBC. AM4 LOOP DID NOT ', 1 'CONVERGE.') CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/subcc.f ================================================ SUBROUTINE SUBCC C C THIS ROUTINE WAS ORIGINALLY CALLED SUBD C COMPLEX GUSAMP,SBKDE1,SBKDE2, 1 F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,AM5TT,AM6, 2 SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,AM5T, 3 AI,A,B,BSYCON,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1, 4 C2P,C2N, 5 C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2,BLAM2, 6 FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T, 7 C1P,C1N,BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST, 8 BC,BC2,BC3,BC4,BC5,CA1,CA2,CA3,CA4, 9 CLIFT,CMOMT,PRES1,PRES2,PRES3,PRES4,QRES4,FQ7, O FQA,FQB,SS,T1,T2,T3,T4,CONST,CONST2,CONST3,CONST4, 1 CONST5,CONST6,C1A,C2A,CEXP1,CEXP2,CEXP1A,CEXP2A DIMENSION PRES1(21),PRES2(21),PRES3(21),PRES4(21),QRES4(21), 1 SBKDE1(201),SBKDE2(201), 2 SUMSV1(201),SUMSV2(201),SVKL1(201),SVKL2(201), 3 XLSV1(21),XLSV2(21),XLSV3(21),XLSV4(21) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF,IBBOUT COMMON /BLK1 / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES COMMON /BLK2 / BSYCON COMMON /BLK3 / SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4, 1 AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5, 2 AM5T,A,B,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,C2P, 3 C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2, 4 BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,C1P,C1N, 5 BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,BC2,BC3, 6 BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,PRES1,PRES2, 7 PRES3,PRES4,QRES4,FQA,FQB,FQ7 COMMON /BLK4 / I,R,Y,A1,B1,C4,C5,GL,I6,I7,JL,NL,RI,RT,R5,SN,SP, 1 XL,Y1,AMU,GAM,IDX,INX,NL2,RL1,RL2,RQ1,RQ2,XL1, 2 ALP1,ALP2,GAMN,GAMP,INER,IOUT,REDF,STAG,STEP, 3 AMACH,BETNN,BETNP,BKAP1,XLSV1,XLSV2,XLSV3,XLSV4, 4 ALPAMP,AMOAXS,GUSAMP,DISAMP,PITAXS,PITCOR C AM6 = 0.0 F5 = 0.0 AM5 = 0.0 S1 = SPS + SNS S2 = SIGMA - SPS*DEL S3 = SPS/(DSTR**2) S4 = SNS/DSTR S5 = DEL*SNS + SIGMA SS = CEXP(-AI*SIGMA) DO 150 IOUT = 1,200 IF (IOUT .GT. I7) GO TO 240 R5 = IOUT - 1 RQ1 = SQRT((R5*PI/SNS)**2+SCRK**2) RQ2 =-RQ1 C4 = (RQ1*S1+S2)/(2.0*PI) C5 = (RQ2*S1+S2)/(2.0*PI) BC2 = BC/(2.0*SVKL1(IOUT))*CEXP(-AI*(-S2)*(SPS+3.0*SNS)/ 1 (2.0*S1))/(2.0*PI*AI) BC3 = BC2*SVKL1(IOUT)/SVKL2(IOUT) BC4 = BC/(2.0*SVKL1(IOUT))*CEXP(AI*(-S2)*(SNS-SPS)/ 1 (2.0*S1))/(2.0*PI*AI) BC5 = BC4*SVKL1(IOUT)/SVKL2(IOUT) F5T = 0.0 AM5T= 0.0 AM5TT = 0.0 DO 10 JL = 1,NL QRES4(JL) = 0.0 10 CONTINUE DO 100 INER = 1,200 R = INER - 1 GAMP = 2.0*PI*R - S2 GAMN =-2.0*PI*R - S2 C1P = (GAMP/DSTR) - SCRK C2P = (GAMP/DSTR) + SCRK ALP = GAMP*S3 - S4*CSQRT(C1P)*CSQRT(C2P) BKDEL3 = SBKDE1(INER) IF (INER .LE. I6) GO TO 20 CALL AKAPM (ALP,BKDEL3) SBKDE1(INER) = BKDEL3 20 CONTINUE T1 = ALP*SPS-GAMP T2 = ALP*DSTR**2-GAMP*SPS SUM1 = SUMSV1(IOUT)*CEXP(AI*T1)*BKDEL3*T1/ 1 (T2*SVKL1(IOUT)*(ALP-RQ1)) SUM3 = SUMSV2(IOUT)*CEXP(AI*T1)*BKDEL3*T1/ 1 (T2*SVKL2(IOUT)*(ALP-RQ2)) IF (INER .EQ. 1) GO TO 40 C1N = (GAMN/DSTR) - SCRK C2N = (GAMN/DSTR) + SCRK ALN = GAMN*S3 - S4*CSQRT(C1N)*CSQRT(C2N) BKDEL3 = SBKDE2(INER) IF (INER .LE. I6) GO TO 30 CALL AKAPM (ALN,BKDEL3) SBKDE2(INER) = BKDEL3 30 CONTINUE T1 = ALN*SPS - GAMN T2 = ALN*DSTR**2 - GAMN*SPS SUM2 = SUMSV1(IOUT)*CEXP(AI*T1)*BKDEL3*T1/ 1 (T2*SVKL1(IOUT)*(ALN-RQ1)) SUM4 = SUMSV2(IOUT)*CEXP(AI*T1)*BKDEL3*T1/ 1 (T2*SVKL2(IOUT)*(ALN-RQ2)) 40 CONTINUE IF (INER .EQ. 1) SUM2 = 0.0 IF (INER .EQ. 1) SUM4 = 0.0 C1P = CEXP(-AI*(ALP-DEL)*SPS) C2P = CEXP(-AI*(ALP-DEL)*SNS) C1N = CEXP(-AI*(ALN-DEL)*SPS) C2N = CEXP(-AI*(ALN-DEL)*SNS) F5T = F5T + (SUM1+SUM3)*AI*SS/(ALP-DEL)*(C1P-C2P) + 1 (SUM2+SUM4)*SS*AI/(ALN-DEL)*(C1N-C2N) AM5T= AM5T + (SUM1+SUM3)*SS*(AI*SPS*C1P/(ALP-DEL) - AI*SNS*C2P/ 1 (ALP-DEL) + 1.0/((ALP-DEL)**2)*(C1P-C2P) + AI*(2.0-SPS)/ 2 (ALP-DEL)*(C1P-C2P)) + (SUM2+SUM4)*SS*(AI*SPS*C1N/(ALN-DEL) 3 - AI*SNS*C2N/(ALN-DEL) + 1.0/((ALN-DEL)**2)*(C1N-C2N) + 4 AI*(2.0-SPS)/(ALN-DEL)*(C1N-C2N)) TEMP = (SPS-SNS)/RL1 CONST = (SUM1+SUM3)*SS CONST2= (SUM2+SUM4)*SS C1A =-AI*(ALP-DEL) C2A =-AI*(ALN-DEL) CEXP1 = CEXP(C1A*SNS) CEXP2 = CEXP(C2A*SNS) CEXP1A= CEXP(C1A*TEMP) CEXP2A= CEXP(C2A*TEMP) DO 50 JL = 1,NL QRES4(JL) = QRES4(JL) - (CONST*CEXP1+CONST2*CEXP2) CEXP1 = CEXP1*CEXP1A CEXP2 = CEXP2*CEXP2A 50 CONTINUE BETNP = ( 2.0*R*PI-S5)/S1 BETNN = (-2.0*R*PI-S5)/S1 C1P = CEXP(-2.0*PI*R*AI*SNS/S1) C2P = CEXP(-2.0*PI*R*AI*SPS/S1) C1N = CEXP(2.0*PI*R*AI*SNS/S1) C2N = CEXP(2.0*PI*R*AI*SPS/S1) T1 = CEXP(-AI*BETNP*SPS) T2 = CEXP(-AI*BETNP*SNS) T3 = CEXP(-AI*BETNN*SPS) T4 = CEXP(-AI*BETNN*SNS) CA1 = AI*SS/BETNP*(T1-T2) CA2 = AI*SS/BETNN*(T3-T4) CA3 = SS*(AI*SPS/BETNP*T1 - AI*SNS*T2/BETNP+(T1-T2)/ 1 BETNP**2 + (2.0-SPS)*AI/BETNP*(T1-T2)) CA4 = SS*(AI*SPS*T3/BETNN - AI*SNS*T4/BETNN+(T3-T4)/ 1 BETNN**2 + (2.0-SPS)*AI/BETNN*(T3-T4)) IF (INER .GT. 1) GO TO 70 F5T = F5T - SUMSV1(IOUT)*(BC2*C1P-BC4*C2P)/(R-C4)*CA1 - 1 SUMSV2(IOUT)*(BC3*C1P-BC5*C2P)/(R-C5)*CA1 AM5T = AM5T - SUMSV1(IOUT)*(BC2*C1P-BC4*C2P)/(R-C4)*CA3 - 1 SUMSV2(IOUT)*(BC3*C1P-BC5*C2P)/(R-C5)*CA3 TEMP = (SPS-SNS)/RL1 CONST = SS*SUMSV1(IOUT)*(BC2*C1P-BC4*C2P)/(R-C4) CONST2= SS*SUMSV2(IOUT)*(BC3*C1P-BC5*C2P)/(R-C5) C1A =-AI*BETNP CEXP1 = CEXP(C1A*SNS) CEXP1A= CEXP(C1A*TEMP) DO 60 JL = 1,NL QRES4(JL) = QRES4(JL)+CONST*CEXP1+CONST2*CEXP1 CEXP1 = CEXP1*CEXP1A 60 CONTINUE GO TO 90 70 CONTINUE F5T = F5T - SUMSV1(IOUT)*((BC2*C1P-BC4*C2P)/(R-C4)*CA1 - 1 (BC2*C1N-BC4*C2N)/(R+C4)*CA2) - SUMSV2(IOUT)* 2 ((BC3*C1P-BC5*C2P)/(R-C5)*CA1-(BC3*C1N-BC5*C2N)/(R+C5)*CA2) AM5T= AM5T - SUMSV1(IOUT)*((BC2*C1P-BC4*C2P)/(R-C4)*CA3-(BC2*C1N- 1 BC4*C2N)/(R+C4)*CA4)-SUMSV2(IOUT)*((BC3*C1P-BC5*C2P)/ 2 (R-C5)*CA3-(BC3*C1N-BC5*C2N)/(R+C5)*CA4) TEMP = (SPS-SNS)/RL1 CONST = (BC2*C1P-BC4*C2P)/(R-C4) CONST2 = (BC2*C1N-BC4*C2N)/(R+C4) CONST3 = (BC3*C1P-BC5*C2P)/(R-C5) CONST4 = (BC3*C1N-BC5*C2N)/(R+C5) CONST5 = SS*SUMSV1(IOUT) CONST6 = SS*SUMSV2(IOUT) C1A =-AI*BETNP C2A =-AI*BETNN CEXP1 = CEXP(C1A*SNS) CEXP2 = CEXP(C2A*SNS) CEXP1A = CEXP(C1A*TEMP) CEXP2A = CEXP(C2A*TEMP) DO 80 JL = 1,NL QRES4(JL) = QRES4(JL) + CONST5*(CONST*CEXP1-CONST2*CEXP2) + 1 CONST6*(CONST3*CEXP1-CONST4*CEXP2) CEXP1 = CEXP1*CEXP1A CEXP2 = CEXP2*CEXP2A 80 CONTINUE 90 CONTINUE IF (CABS((AM5TT-AM5T)/AM5T) .LT. 0.001) GO TO 110 AM5TT = AM5T 100 CONTINUE GO TO 200 110 CONTINUE IF (INER .LE. I6) GO TO 120 I6 = INER 120 CONTINUE F5 = F5 + F5T AM5 = AM5 + AM5T DO 130 JL = 1,NL PRES4(JL) = PRES4(JL) + QRES4(JL) 130 CONTINUE ALP1 = (2.0*PI*C4-DEL*SNS-SIGMA)/S1 ALP2 = (2.0*PI*C5-DEL*SNS-SIGMA)/S1 T1 = 1.0 - CEXP(-2.0*PI*AI*C4) T2 = 1.0 - CEXP(-2.0*PI*AI*C5) C1P = CEXP(-2.0*PI*AI*C4*SNS/S1)/(T1) C2P = CEXP( 2.0*PI*AI*C4*SNS/S1)/(T1) C1N = CEXP(-2.0*PI*AI*C5*SNS/S1)/(T2) C2N = CEXP( 2.0*PI*AI*C5*SNS/S1)/(T2) T1 = CEXP(-AI*SPS*ALP1) T2 = CEXP(-AI*SNS*ALP1) T3 = CEXP(-AI*SPS*ALP2) T4 = CEXP(-AI*SNS*ALP2) CA1 = AI*SS/ALP1*(T1-T2) CA2 = AI*SS/ALP2*(T3-T4) CA3 = SS*(AI*SPS*T1/ALP1 - AI*SNS*T2/ALP1 + (T1-T2)/ 1 ALP1**2 + (2.0-SPS)*AI/ALP1*(T1-T2)) CA4 = SS*(AI*SPS*T3/ALP2 - AI*SNS*T4/ALP2 + (T3-T4)/ 1 ALP2**2 + (2.0-SPS)*AI/ALP2*(T3-T4)) F5 = F5 - 2.0*PI*AI*SUMSV1(IOUT)*(BC2*C1P-BC4*C2P)*CA1 - 2.0*PI* 1 AI*SUMSV2(IOUT)*(BC3*C1N-BC5*C2N)*CA2 AM5 = AM5 - 2.0*PI*AI*SUMSV1(IOUT)*(BC2*C1P-BC4*C2P)*CA3 - 2.0* 1 PI*AI*SUMSV2(IOUT)*(BC3*C1N-BC5*C2N)*CA4 TEMP = (SPS-SNS)/RL1 CONST = SS*2.0*PI*AI CONST2 = CONST*SUMSV1(IOUT)*(BC2*C1P-BC4*C2P) CONST3 = CONST*SUMSV2(IOUT)*(BC3*C1N-BC5*C2N) C1A =-AI*ALP1 C2A =-AI*ALP2 CEXP1 = CEXP(C1A*SNS) CEXP2 = CEXP(C2A*SNS) CEXP1A = CEXP(C1A*TEMP) CEXP2A = CEXP(C2A*TEMP) DO 140 JL = 1,NL PRES4(JL) = PRES4(JL)+CONST2*CEXP1+CONST3*CEXP2 CEXP1 = CEXP1*CEXP1A CEXP2 = CEXP2*CEXP2A 140 CONTINUE IF (CABS((AM5-AM6)/AM5) .LT. 0.0009) GO TO 160 AM6 = AM5 150 CONTINUE GO TO 220 160 CONTINUE CLIFT = F1 + F2 - F2P + F4 + F5 CMOMT = AM1 + AM2 - AM2P + AM4 + AM5 - AMOAXS*CLIFT GO TO 270 C 200 WRITE (IBBOUT,210) UFM 210 FORMAT (A23,' - AMG MODULE -SUBROUTINE SUBCC. AM5T LOOP DID NOT', 1 ' CONVERGE.') GO TO 260 220 WRITE (IBBOUT,230) UFM 230 FORMAT (A23,' - AMG MODULE -SUBROUTINE SUBCC. AM5 LOOP DID NOT', 1 ' CONVERGE.') GO TO 260 240 WRITE (IBBOUT,250) UFM,I7 250 FORMAT (A23,' - AMG MODULE -SUBROUTINE SUBCC. OUTER LOOP OF AM5', 1 ' EXCEEDED I7 (',I6,1H)) 260 CALL MESAGE (-61,0,0) 270 CONTINUE RETURN END ================================================ FILE: mis/subi.f ================================================ SUBROUTINE SUBI (DA,DZB,DYB,DAR,DETA,DZETA,DCGAM,DSGAM,DEE,DXI,TL, 1 DETAI,DZETAI,DCGAMI,DSGAMI,DEEI,DTLAMI,DMUY,DMUZ, 2 INFL,IOUTFL) C C COMPUTES THE IMAGE POINT COORDINATES INSIDE ASSOCIATED BODIES AND C THE MU-Z MU-Y ELEMENTS USED IN SUBROUTINE FWMW C EPS = 0.1*DEE DMUY = 0.0 DMUZ = 0.0 IGO = 1 PSQR = SQRT(((DETA-DYB)*DAR)**2 + (DZETA-DZB)**2) COSTH = (DETA -DYB)*DAR/PSQR SINTH = (DZETA-DZB)/PSQR CT2 = COSTH*COSTH ST2 = SINTH*SINTH CT3 = COSTH*CT2 ST3 = SINTH*ST2 YCBAR = DA*(1.0-DAR*DAR)*CT3 + DYB ZCBAR = DA*(DAR*DAR-1.0)*ST3/DAR + DZB PAREN = ST2 + DAR*DAR*CT2 PAR3 = PAREN*PAREN**2 ABAR = DA*SQRT(PAR3)/DAR ABAR2 = ABAR*ABAR IF (INFL .NE. 0) GO TO 300 ETA1 = DETA - DEE*DCGAM ETA2 = DETA + DEE*DCGAM ZETA1 = DZETA - DEE*DSGAM ZETA2 = DZETA + DEE*DSGAM RHO12 = (ETA1 - YCBAR)**2 + (ZETA1-ZCBAR)**2 RHO22 = (ETA2 - YCBAR)**2 + (ZETA2-ZCBAR)**2 ETAI1 = YCBAR + (ETA1-YCBAR)*ABAR2/RHO12 ETAI2 = YCBAR + (ETA2-YCBAR)*ABAR2/RHO22 ZETI1 = ZCBAR + (ZETA1-ZCBAR)*ABAR2/RHO12 ZETI2 = ZCBAR + (ZETA2-ZCBAR)*ABAR2/RHO22 DEEI = SQRT((ETAI2-ETAI1)**2 + (ZETI2-ZETI1)**2)/2.0 DETAI = (ETAI1 + ETAI2)/2.0 DZETAI= (ZETI1 + ZETI2)/2.0 DCGAMI=-(ETAI2 - ETAI1)/(2.0*DEEI) DSGAMI=-(ZETI2 - ZETI1)/(2.0*DEEI) DXI1 = DXI - DEE*TL DXI2 = DXI + DEE*TL DELXI = DXI1 - DXI2 DTLAMI= DELXI/(2.0*DEEI) IF (ABS(DAR-1.0) .LE. 0.0001) GO TO 420 GO TO 301 300 CONTINUE RHO2 = (DETA-YCBAR)**2 + (DZETA-ZCBAR)**2 RHO4 = RHO2*RHO2 DETAI = YCBAR + (DETA -YCBAR)*ABAR2/RHO2 DZETAI= ZCBAR + (DZETA-ZCBAR)*ABAR2/RHO2 301 CONTINUE GO TO (302,303,304), IGO 302 CONTINUE XETAI = DETAI XZETAI= DZETAI GO TO 307 303 CONTINUE XETAI = ETAI1 XZETAI= ZETI1 GO TO 307 304 CONTINUE XETAI = ETAI2 XZETAI= ZETI2 307 CONTINUE IF (DAR .LT. 1.0) GO TO 310 DYBM = DYB - EPS DYBP = DYB + EPS IF (DETA .GE.DYB .AND. XETAI .LT.DYBM) GO TO 325 IF (DETA .LE.DYB .AND. XETAI .GT.DYBP) GO TO 325 GO TO 320 310 CONTINUE DZBM = DZB - EPS DZBP = DZB + EPS IF (DZETA.GE.DZB .AND. XZETAI.LT.DZBM) GO TO 325 IF (DZETA.LE.DZB .AND. XZETAI.GT.DZBP) GO TO 325 320 CONTINUE PART1 = ((XETAI - DYB)/DA)**2 PART2 = ((XZETAI - DZB)/(DA*DAR))**2 TEDIF = PART1 + PART2 - 1.0 IF (INFL .EQ. 0) GO TO 400 IF (TEDIF .LE. EPS) GO TO 330 325 CONTINUE IOUTFL = 0 GO TO 500 330 CONTINUE IOUTFL = 1 TRM1 = (DETA-YCBAR)**2 - (DZETA-ZCBAR)**2 TRM2 = 2.0*(DETA-YCBAR)*(DZETA-ZCBAR) DMUY = -(-DSGAM*TRM1 + DCGAM*TRM2)*ABAR2/RHO4 DMUZ = -(-DSGAM*TRM2 - DCGAM*TRM1)*ABAR2/RHO4 GO TO 500 400 CONTINUE IF (TEDIF .GT. EPS) GO TO 325 IF (IGO .EQ. 3) GO TO 420 IGO = IGO + 1 GO TO 301 420 CONTINUE IOUTFL = 1 500 CONTINUE RETURN END ================================================ FILE: mis/subp.f ================================================ SUBROUTINE SUBP (I,L,LS,J,SGR,CGR,YREC,ZREC,SUM,XIC,DELX,EE,XLAM, 1 SG,CG,YS,ZS) C C COMPUTES ELEMENTS OF THE SUBMATRICES DPP, DPZ AND DPY C USING SUBROUTINES SNPDF, INCRO AND SUBI C REAL KR,M COMPLEX DPUR,DPUL,DPLR,DPLL,DP,SUM DIMENSION XIC(1),DELX(1),EE(1),XLAM(1),SG(1),CG(1),YS(1), 1 ZS(1) COMMON /AMGMN/ MCB(7),NROW,ND,NE,REFC,FMACH,KR COMMON /DLCOM/ DUM(3),F C EPS = 0.00001 M = FMACH BETA = SQRT(1.0-M*M) FL = REFC FLND = FLOAT(ND) FLNE = FLOAT(NE) SGS = SG(LS) CGS = CG(LS) DPUR = (0.0,0.0) DPUL = (0.0,0.0) DPLR = (0.0,0.0) DPLL = (0.0,0.0) DIJ = 0.0 DELR = 0.0 DELI = 0.0 DIJI = 0.0 DELRI= 0.0 DELII= 0.0 C C UPPER RIGHT SENDING POINT C IGO = 1 TL = XLAM(J) SQTL = SQRT(1.0+TL**2) SL = TL/SQTL CL = 1.0/SQTL X = XIC(I) + F*DELX(I) X0 = X - XIC(J) Y0 = YREC - YS(LS) Z0 = ZREC - ZS(LS) ES = EE(LS) DXS = DELX(J) AX = X0 AY = Y0 AZ = Z0 CV = DXS C 30 NOBI = 1 CALL SNPDF (SL,CL,TL,SGS,CGS,SGR,CGR,X0,Y0,Z0,ES,DIJ,BETA,CV) IF (KR .LE. EPS) GO TO 40 SDELX= DXS DELY = 2.0*ES AX1 = AX + ES*TL AY1 = AY + ES*CGS AZ1 = AZ + ES*SGS AX2 = AX - ES*TL AY2 = AY - ES*CGS AZ2 = AZ - ES*SGS CALL INCRO (AX,AY,AZ,AX1,AY1,AZ1,AX2,AY2,AZ2,SGR,CGR,SGS,CGS, 1 KR,FL,BETA,SDELX,DELY,DELR,DELI) 40 CONTINUE DP = CMPLX(((DIJ+DIJI)-(DELR +DELRI)),(-DELI-DELII)) GO TO (140,150,170,180), IGO 140 CONTINUE DPUR = DP C C TEST FOR ABS(YS(LS)) .LE..001 TAKEN OUT C IF (ND .EQ. 0) GO TO 160 C C UPPER LEFT SENDING POINT C IGO = 2 SGS =-SGS TL =-TL SL =-SL Y0 = YREC + YS(LS) AY = Y0 GO TO 30 150 CONTINUE DPUL = DP 160 CONTINUE IF (NE .EQ. 0) GO TO 190 C C LOWER RIGHT SENDING POINT C IGO = 3 TL = XLAM(J) SL = TL/(SQRT(1.0+TL*TL)) Y0 = YREC - YS(LS) Z0 = ZREC + ZS(LS) AY = Y0 AZ = Z0 SGS =-SG(LS) GO TO 30 170 CONTINUE DPLR = DP IF (ND .EQ. 0) GO TO 190 C C LOWER LEFT SENDING POINT C IGO = 4 SGS = SG(LS) TL =-XLAM(J) SL = TL/(SQRT(1.0+TL*TL)) Y0 = YREC + YS(LS) AY = Y0 GO TO 30 180 CONTINUE DPLL = DP 190 CONTINUE SUM = DPUR + FLND*DPUL + FLNE*DPLR + FLND*FLNE*DPLL RETURN END ================================================ FILE: mis/subpb.f ================================================ SUBROUTINE SUBPB (I,L,LS,J,SGR,CGR,YREC,ZREC,SUM,XIC,DELX,EE,XLAM, 1 SG,CG,YS,ZS,NAS,NASB,AVR,ZB,YB,ARB,XLE,XTE,X,NB) C C COMPUTES ELEMENTS OF THE SUBMATRICES DPP, DPZ AND DPY C USING SUBROUTINES SNPDF, INCRO AND SUBI C REAL KR,M COMPLEX DPUR,DPUL,DPLR,DPLL,DP,SUM DIMENSION XIC(1),DELX(1),EE(1),XLAM(1),SG(1),CG(1),YS(1), 1 ZS(1),NAS(1),NASB(1),AVR(1),ZB(1),YB(1),ARB(1), 2 XLE(1),XTE(1),X(1) COMMON /AMGMN/ MCB(7),NROW,ND,NE,REFC,FMACH,KR C EPS = 0.00001 M = FMACH BETA = SQRT(1.0-M*M) FL = REFC FLND = FLOAT(ND) FLNE = FLOAT(NE) SGS = SG(LS) CGS = CG(LS) DPUR = (0.0,0.0) DPUL = (0.0,0.0) DPLR = (0.0,0.0) DPLL = (0.0,0.0) DIJ = 0.0 DELR = 0.0 DELI = 0.0 DIJI = 0.0 DELRI= 0.0 DELII= 0.0 INFL = 0 IOUTFL = 0 C C UPPER RIGHT SENDING POINT C IGO = 1 TL = XLAM(J) SQTL = SQRT(1.0+TL**2) SL = TL/SQTL CL = 1.0/SQTL X0 = X(I) - XIC(J) Y0 = YREC - YS(LS) Z0 = ZREC - ZS(LS) ES = EE(LS) DXS = DELX(J) AX = X0 AY = Y0 AZ = Z0 CV = DXS C 30 NOBI = 1 NA2 = 0 CALL SNPDF (SL,CL,TL,SGS,CGS,SGR,CGR,X0,Y0,Z0,ES,DIJ,BETA,CV) IF (KR .LE. EPS) GO TO 40 SDELX = DXS DELY = 2.0*ES AX1 = AX + ES*TL AY1 = AY + ES*CGS AZ1 = AZ + ES*SGS AX2 = AX - ES*TL AY2 = AY - ES*CGS AZ2 = AZ - ES*SGS CALL INCRO (AX,AY,AZ,AX1,AY1,AZ1,AX2,AY2,AZ2,SGR,CGR,SGS,CGS, 1 KR,FL,BETA,SDELX,DELY,DELR,DELI) 40 IF (NB .EQ. 0) GO TO 120 NOAS = NAS(L) C C CHECK FOR ASSOCIATED BODIES C IF (NOAS .EQ. 0) GO TO 120 DIJS = DIJ DELRS = DELR DELIS = DELI DIJI = 0.0 DELRI = 0.0 DELII = 0.0 NA1 = NA2 + 1 NA2 = NA2 + NOAS IF (NA2 .GT. NB) NA2 = NB C C START DO-LOOP FOR THE SUMMATION OF THE WING-IMAGE CONTRIBUTIONS C OVER RANGE(P) C DO 110 NA = NA1,NA2 NOB = NASB(NA) C C NOB IS THE SEQUENCE NUMBER OF THE CURRENT BODY ASSOCIATED WITH C PANEL L IN WHICH THE SENDING POINT J LIES C NOBI = NOB DA = AVR(NOB) DAR = ARB(NOB) DXLE = XLE(NOB) DXTE = XTE(NOB) GO TO (50,60,70,80), IGO 50 CONTINUE DZB = ZB(NOB) DYB = YB(NOB) DETA = YS(LS) DZETA= ZS(LS) GO TO 90 60 CONTINUE DZB = ZB(NOB) DYB =-YB(NOB) DETA =-YS(LS) DZETA= ZS(LS) GO TO 90 70 CONTINUE DZB =-ZB(NOB) DYB = YB(NOB) DETA = YS(LS) DZETA=-ZS(LS) GO TO 90 80 CONTINUE DZB =-ZB(NOB) DYB =-YB(NOB) DETA =-YS(LS) DZETA=-ZS(LS) 90 CONTINUE DCGAM= CGS DSGAM= SGS DEE = ES DXI = XIC(J) IF (DXI.LT.DXLE .OR. DXI.GT.DXTE) GO TO 110 CALL SUBI (DA,DZB,DYB,DAR,DETA,DZETA,DCGAM,DSGAM,DEE,DXI,TL,DETAI, 1 DZETAI,DCGAMI,DSGAMI,DEEI,DTLAMI,DMUY,DMUZ,INFL,IOUTFL) DIJ = 0.0 IF (INFL.NE.0 .OR. IOUTFL.EQ.0) GO TO 100 DTL = DTLAMI DSQRTL = SQRT(1.0+DTL**2) DSL = DTL/DSQRTL DCL = 1.0/DSQRTL X0I = X0 Y0I = YREC - DETAI Z0I = ZREC - DZETAI CALL SNPDF (DSL,DCL,DTL,DSGAMI,DCGAMI,SGR,CGR,X0I,Y0I,Z0I,DEEI, 1 DIJ,BETA,CV) DIJI = DIJI + DIJ IF (KR .LE. EPS) GO TO 100 DELR = 0.0 DELI = 0.0 AYI = Y0I AZI = Z0I AY1I = AYI - DEEI*DCGAMI AZ1I = AZI - DEEI*DSGAMI AY2I = AYI + DEEI*DCGAMI AZ2I = AZI + DEEI*DSGAMI DEEI2 = 2.0*DEEI CALL INCRO (AX,AYI,AZI,AX1,AY1I,AZ1I,AX2,AY2I,AZ2I,SGR,CGR,DSGAMI, 1 DCGAMI,KR,FL,BETA,SDELX,DEEI2,DELR,DELI) DELRI = DELRI + DELR DELII = DELII + DELI GO TO 110 100 CONTINUE DELRI = 0.0 DELII = 0.0 110 CONTINUE DIJ = DIJS DELR = DELRS DELI = DELIS 120 CONTINUE DP = CMPLX(((DIJ+DIJI)-(DELR+DELRI)),(-DELI-DELII)) GO TO (140,150,170,180), IGO 140 CONTINUE DPUR = DP IF (ND .EQ. 0) GO TO 160 C C UPPER LEFT SENDING POINT C IGO = 2 SGS =-SGS TL =-TL SL =-SL Y0 = YREC + YS(LS) AY = Y0 GO TO 30 150 CONTINUE DPUL = DP 160 CONTINUE IF (NE .EQ. 0) GO TO 190 C C LOWER RIGHT SENDING POINT C IGO = 3 TL = XLAM(J) SL = TL/(SQRT(1.0+TL*TL)) Y0 = YREC - YS(LS) Z0 = ZREC + ZS(LS) AY = Y0 AZ = Z0 SGS =-SG(LS) GO TO 30 170 CONTINUE DPLR = DP IF (ND .EQ. 0) GO TO 190 C C LOWER LEFT SENDING POINT C IGO = 4 SGS = SG(LS) TL =-XLAM(J) SL = TL/(SQRT(1.0+TL*TL)) Y0 = YREC + YS(LS) AY = Y0 GO TO 30 180 CONTINUE DPLL = DP 190 CONTINUE SUM = DPUR + FLND*DPUL + FLNE*DPLR + FLND*FLNE*DPLL RETURN END ================================================ FILE: mis/subph1.f ================================================ SUBROUTINE SUBPH1 C C THIS MODULE PERFORMS THE PHASE 1 CONVERSION OF NASTRAN DATA BLOCK C TABLES TO THEIR EQUIVALENT SOF ITEMS C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,ANDF,ORF LOGICAL LAST INTEGER BUF(10),TEMP(10),TYPE,SUB1(2),ICODE(32),MCB(7), 1 LTYPE1(5),LTYPE2(5),LTYPE3(5) REAL RZ(12) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ BSIZE,OUT COMMON /BLANK / DRY,NAME(2),PSET,PITM COMMON /TWO / TWO(32) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (RZ(1),Z(1)) DATA CASE , EQEX,USET,BGPD,CSTM,GPSE,ELSE,SCRT/ 1 101 , 102 ,103 ,104 ,105 ,106 ,107 ,301 / DATA EQSS / 4HEQSS/,ICSTM/4HCSTM/,LODS /4HLODS/,PLTS/4HPLTS/, 1 BGSS / 4HBGSS/ DATA IUA / 25 /, SUB1/4HSUBP,4HH1 / DATA LTYPE1/ 4HEXTE,4HRNAL,4H STA,4HTIC ,4HLOAD/ DATA LTYPE2/ 4H ,4H ,4HTHER,4HMAL ,4HLOAD/ DATA LTYPE3/ 4H ELE,4HMENT,4H DEF,4HORMA,4HTION/ DATA LOAP , PAPP /4HLOAP,4HPAPP/, I0 / 0 / C MUA = TWO(IUA) C C INITIALLIZE CORE, ETC C IF (DRY .EQ. 0) RETURN NC = KORSZ(Z(1)) B1 = NC - BSIZE + 1 C C OPEN SCRATCH FILE TO WRITE CONVERTED DATA C B2 = B1 - BSIZE B3 = B2 - BSIZE BUF1 = B3 - BSIZE BUF2 = BUF1- BSIZE NZ = BUF2- 1 C C TEST FOR CORE C IF (NZ .LE. 0) GO TO 4010 C CALL SOFOPN (Z(B1),Z(B2),Z(B3)) C C EQSS GENERATION C FILE = USET CALL OPEN (*5001,USET,Z(BUF1),0) CALL FWDREC (*5001,USET) C C READ USET INTO CORE C CALL READ (*5001,*20,USET,Z(1),NZ,0,NU) C C RAN OUT OF CORE C CALL CLOSE (USET,1) GO TO 4010 C 20 CALL CLOSE (USET,1) C C FLAG ELEMENTS IN UA SET (SET OTHERS TO ZERO) C DO 40 I = 1,NU IF (ANDF(MUA,Z(I)) .EQ. 0) GO TO 30 Z(I) = 1 GO TO 40 30 Z(I) = 0 40 CONTINUE C C READ SECOND RECORD OF EQEXIN - CONTAINS G AND SIL PAIRS C FILE = EQEX CALL OPEN (*5001,EQEX,Z(BUF1),0) CALL FWDREC (*5001,EQEX) CALL FWDREC (*5001,EQEX) C C OPEN SCRATCH FILE TO WRITE CONVERTED DATA C CALL OPEN (*5001,SCRT,Z(BUF2),1) C C LOOP ON GRID POINTS C K = 0 I = 0 C 50 CALL READ (*5001,*110,EQEX,BUF,2,0,NWDS) C = 0 I = I + 1 ISIL = BUF(2)/10 TYPE = BUF(2) - 10*ISIL IF (TYPE-2) 60,80,4020 C C GRID POINT, DETERMINE UA COMPONENTS, PUT IN BINARY FORM C 60 DO 70 J = 1,6 IU = ISIL + J - 1 IF (Z(IU) .EQ. 0) GO TO 70 C = ORF(C,LSHIFT(1,J-1)) 70 CONTINUE GO TO 90 C C SCALAR POINT C 80 IF (Z(ISIL) .NE. 0) C = 1 C C WRITE OUT G AND C C 90 IF (C .EQ. 0) GO TO 100 BUF(2) = C CALL WRITE (SCRT,BUF,2,0) K = K + 1 100 CONTINUE GO TO 50 C 110 MCB(1) = EQEX CALL RDTRL (MCB) NPTS = MCB(2) CALL REWIND (EQEX) CALL CLOSE (SCRT,1) IF (NPTS*2 .GT. NZ) GO TO 4010 C C READ FIRST RECORD OF EQEXIN - GET G AND IOLD C READ SCRATCH - GET G AND C C BUILD TABLE IN CORE C FILE = EQEX CALL FWDREC (*5001,EQEX) FILE = SCRT CALL OPEN (*5001,SCRT,Z(BUF2),0) C C SET CORE TO ZERO C DO 150 I = 1,NPTS IZP = 2*I Z(IZP ) = 0 Z(IZP-1) = 0 150 CONTINUE NNEW = K C C LOOP ON POINTS IN SCRATCH FILE, STORE C IN ITH WORD OF ENTRY C POSITION OF ENTRY IS THE INTERNAL SEQUENCE C IF (K .LE. 0) GO TO 210 DO 200 I = 1,K FILE = SCRT CALL READ (*5001,*210,SCRT,BUF,2,0,NWDS) FILE = EQEX 180 CALL READ (*5001,*210,EQEX,TEMP,2,0,NWDS) IF (BUF(1)-TEMP(1)) 5001,190,180 190 IZP = 2*TEMP(2) Z(IZP) = BUF(2) 200 CONTINUE C C CORE TABLE IS COMPLETE, FILL IN FIRST ENTRIES C 210 CALL CLOSE (SCRT,1) CALL REWIND (EQEX) K = 0 DO 300 I = 1,NPTS IF (Z(2*I) .EQ. 0) GO TO 300 K = K + 1 Z(2*I-1) = K 300 CONTINUE C C CORE NOW CONTAINS NEW IP VALUES AND C IN OLD IP POSITIONS C FILE = EQSS C C CHECK IF SUBSTRUCTURE EXISTS ALREADY C CALL FWDREC (*5001,EQEX) CALL SETLVL (NAME,0,TEMP,ITEST,0) IF (ITEST .NE. 1) WRITE (OUT,6325) UWM,NAME ITEST = 3 CALL SFETCH (NAME,EQSS,2,ITEST) IF (ITEST .EQ. 3) GO TO 340 WRITE (OUT,6326) UWM,NAME,EQSS GO TO 1000 340 BUF(1) = NAME(1) BUF(2) = NAME(2) BUF(3) = 1 BUF(4) = NNEW BUF(5) = NAME(1) BUF(6) = NAME(2) C CALL SUWRT (BUF,6,2) C C PROCESS EQSS OUTPUT- G, IP, C - SORTED ON G C DO 400 I = 1,NPTS C CALL READ (*5001,*400,EQEX,TEMP,2,0,NWDS) C IPT = TEMP(2)*2 - 1 IF (Z(IPT) .EQ. 0) GO TO 400 TEMP(2) = Z(IPT ) TEMP(3) = Z(IPT+1) CALL SUWRT (TEMP,3,1) 400 CONTINUE CALL SUWRT (TEMP,0,2) C C BUILD SIL TABLE BY COUNTING C VALUES C NC = 0 IS = 1 DO 500 I = 1,NPTS IPT = 2*I - 1 C IF (Z(IPT) .EQ. 0) GO TO 500 IS = IS + NC Z(IPT) = IS C CALL SUWRT (Z(IPT),2,1) C C CALCULATE NUMBER OF COMPONENTS FOR NEXT STEP C KCODE = Z(IPT+1) CALL DECODE (KCODE,ICODE,NC) 500 CONTINUE CALL SUWRT (0,0,2) CALL SUWRT (TEMP,0,3) 1000 CALL CLOSE (EQEX,1) C C BGSS GENERATION C FILE = BGPD CALL OPEN (*5001,BGPD,Z(BUF1),0) CALL FWDREC (*5001,BGPD) ITEST = 3 CALL SFETCH (NAME,BGSS,2,ITEST) IF (ITEST .EQ. 3) GO TO 1100 WRITE (OUT,6326) UWM,NAME,BGSS GO TO 2000 1100 CONTINUE C BUF(1) = NAME(1) BUF(2) = NAME(2) BUF(3) = NNEW CALL SUWRT (BUF,3,2) DO 1200 I = 1,NPTS CALL READ (*5001,*1200,BGPD,BUF,4,0,NWDS) C IF (Z(2*I-1) .EQ. 0) GO TO 1200 C CALL SUWRT (BUF,4,1) 1200 CONTINUE CALL SUWRT (0,0,2) CALL SUWRT (BUF,0,3) 2000 CALL CLOSE (BGPD,1) C C C CSTM GENERATION C C CALL OPEN (*2500,CSTM,Z(BUF1),0) C C CSTM EXISTS C CALL FWDREC (*5001,CSTM) ITEST = 3 CALL SFETCH (NAME,ICSTM,2,ITEST) IF (ITEST .EQ. 3) GO TO 2100 WRITE (OUT,6326) UWM,NAME,ICSTM GO TO 2400 C 2100 BUF(1) = NAME(1) BUF(2) = NAME(2) CALL SUWRT (BUF,2,2) C C BLAST COPY C CALL READ (*5001,*2200,CSTM,Z(1),NZ,1,NWDS) GO TO 4010 2200 CALL SUWRT (Z(1),NWDS,2) CALL SUWRT (0,0,3) 2400 CALL CLOSE (CSTM,1) C C LODS GENERATION C 2500 NLOD = 0 C CALL GOPEN (CASE,Z(BUF1),0) C ICASE = 0 C 2600 CALL READ (*2800,*2800,CASE,Z(1),9,1,NWDS) ICASE = ICASE + 1 IF (Z(I0+4) .EQ. 0) GO TO 2610 WRITE (OUT,6327) UIM,NAME,ICASE,LTYPE1,Z(I0+4) Z(NLOD+10) = Z(I0+4) GO TO 2700 2610 IF (Z(I0+7) .EQ. 0) GO TO 2620 WRITE (OUT,6327) UIM,NAME,ICASE,LTYPE2,Z(I0+7) Z(NLOD+10) = Z(I0+7) GO TO 2700 2620 IF (Z(I0+6) .EQ. 0) GO TO 2630 WRITE (OUT,6327) UIM,NAME,ICASE,LTYPE3,Z(I0+6) Z(NLOD+10) = Z(I0+6) GO TO 2700 2630 Z(NLOD+10) = 0 2700 NLOD = NLOD + 1 GO TO 2600 2800 ITEST = 3 LITM = LODS IF (PITM .EQ. PAPP) LITM = LOAP CALL SFETCH (NAME,LITM,2,ITEST) IF (ITEST .EQ. 3) GO TO 2810 WRITE (OUT,6326) UWM,NAME,LITM GO TO 2900 2810 Z( 1) = NAME(1) Z(I0+2) = NAME(2) Z(I0+3) = NLOD Z(I0+4) = 1 Z(I0+5) = NAME(1) Z(I0+6) = NAME(2) CALL SUWRT (Z(1),6,2) CALL SUWRT (NLOD,1,1) CALL SUWRT (Z(I0+10),NLOD,2) CALL SUWRT (Z(1),0,3) 2900 CALL CLOSE (CASE,1) C C PLOT SET DATA (PLTS) GENERATION C IF (PSET .LE. 0) GO TO 4000 FILE = BGPD CALL GOPEN (BGPD,Z(BUF1),0) C ITEST = 3 CALL SFETCH (NAME,PLTS,2,ITEST) IF (ITEST .EQ. 3) GO TO 3010 WRITE (OUT,6326) UWM,NAME,PLTS CALL CLOSE (BGPD,1) GO TO 4000 C 3010 BUF(1) = NAME(1) BUF(2) = NAME(2) BUF(3) = 1 BUF(4) = NAME(1) BUF(5) = NAME(2) CALL SUWRT (BUF,5,1) DO 3012 I = 1,11 3012 Z(I) = 0 RZ( 4) = 1.0 RZ( 8) = 1.0 RZ(12) = 1.0 CALL SUWRT (Z,12,2) C CALL READ (*5001,*3020,BGPD,Z(1),NZ,0,NWDS) GO TO 4010 3020 CALL SUWRT (Z,NWDS,2) CALL CLOSE (BGPD,1) FILE = EQEX CALL GOPEN (EQEX,Z(BUF1),0) CALL READ (*5001,*3030,EQEX,Z,NZ,1,NWDS) GO TO 4010 3030 CALL SUWRT (Z,NWDS,2) CALL CLOSE (EQEX,1) FILE = GPSE LAST = .FALSE. CALL OPEN (*3500,GPSE,Z(BUF1),0) C CALL FWDREC (*3500,GPSE) C CALL READ (*5001,*3050,GPSE,Z(1),NZ,0,NSETS) GO TO 4010 C C FIND PLOT SET ID C 3050 IF (NSETS .EQ. 0) GO TO 3500 C DO 3060 I = 1,NSETS IF (Z(I) .EQ. PSET) GO TO 3070 3060 CONTINUE GO TO 3500 3070 IREC = I - 1 C 3075 IF (IREC .EQ. 0) GO TO 3090 C C POSITION FILE TO SELECTED SET C DO 3080 I = 1,IREC CALL FWDREC (*3500,FILE) 3080 CONTINUE 3090 CALL READ (*3500,*3100,FILE,Z(1),NZ,0,NWDS) GO TO 4010 3100 CALL SUWRT (Z(1),NWDS,2) CALL CLOSE (FILE,1) IF (LAST) GO TO 3300 LAST = .TRUE. FILE = ELSE CALL OPEN (*3500,ELSE,Z(BUF1),0) CALL FWDREC (*3500,ELSE) GO TO 3075 C C FINISHED C 3300 CALL SUWRT (Z(1),0,3) GO TO 4000 3500 CALL CLOSE (FILE,1) WRITE (OUT,3510) UWM,PSET 3510 FORMAT (A25,' 6050, REQUESTED PLOT SET NO.',I8, 1 ' HAS NOT BEEN DEFINED') C 4000 CALL SOFCLS WRITE (OUT,6361) UIM,NAME 6361 FORMAT (A29,' 6361, PHASE 1 SUCCESSFULLY EXECUTED FOR ', 1 'SUBSTRUCTURE ',2A4) RETURN C C INSUFFICIENT CORE C 4010 WRITE (OUT,4015) UFM,NZ 4015 FORMAT (A23,' 6011, INSUFFICIENT CORE TO LOAD TABLES', /5X, 1 'IN MODULE SUBPH1, CORE =',1I8) DRY = -2 GO TO 6000 C C BAD GRID POINT TYPE (IE AXISYMMETRIC OR) C 4020 WRITE (OUT,4035) UFM,BUF(1) 4035 FORMAT (A23,' 6013 , ILLEGAL TYPE OF POINT DEFINED FOR ', 1 'SUBSTRUCTURE ANALYSIS.', /5X,'POINT NUMBER =',I9) GO TO 6000 C C BAD FILE C 5001 WRITE (OUT,5005) SFM,FILE 5005 FORMAT (A25,' 6012, FILE =',I4,' IS PURGED OR NULL AND IS ', 1 'REQUIRED IN PHASE 1 SUBSTRUCTURE ANALYSIS.') C 6000 CALL SOFCLS CALL MESAGE (-61,0,SUB1) RETURN C C 6325 FORMAT (A25,' 6325, SUBSTRUCTURE PHASE 1, BASIC SUBSTRUCTURE ', 1 2A4,' ALREADY EXISTS ON SOF.', /32X, 2 'ITEMS WHICH ALREADY EXIST WILL NOT BE REGENERATED.') 6326 FORMAT (A25,' 6326, SUBSTRUCTURE ',2A4,', ITEM ',A4, 1 ' ALREADY EXISTS ON SOF.') 6327 FORMAT (A29,' 6327, SUBSTRUCTURE ',2A4,' SUBCASE',I9, 1 ' IS IDENTIFIED BY', /36X,5A4,' SET',I9,' IN LODS ITEM.', 2 /36X,'REFER TO THIS NUMBER ON LOADC CARDS.') END ================================================ FILE: mis/summ.f ================================================ SUBROUTINE SUMM(SUM,ISUM,TERM1,ITERM1,TERM2,ITERM2,N) C DOUBLE PRECISION SUM,TERM1,TERM2,TEMP1,TEMP2 DOUBLE PRECISION FACTOR C IF (TERM1.EQ.0.0D0) GO TO 30 IF (TERM2.EQ.0.0D0) GO TO 40 TEMP1 = TERM1 TEMP2 = TERM2 ISAVE = ITERM1 IF(ITERM1 .EQ. ITERM2) GO TO 50 MULT = IABS (ITERM1 - ITERM2) CDVAX TEST TO PREVENT FLOATING PT OVFLOW IF EXPONENT DIFF TOO LARGE IF(MULT.GT.37 .AND. ITERM1.GT.ITERM2) GO TO 40 IF(MULT.GT.37 .AND. ITERM2.GT.ITERM1) GO TO 30 FACTOR = 10.0D0**MULT IF(ITERM1 .GT. ITERM2) GO TO 20 TEMP1 = TERM1/FACTOR ISAVE = ITERM2 GO TO 50 20 TEMP2 = TERM2/FACTOR GO TO 50 30 IF(N .NE. 1) GO TO 35 SUM = TERM2 31 ISUM = ITERM2 GO TO 70 35 SUM = -TERM2 GO TO 31 40 SUM = TERM1 ISUM = ITERM1 GO TO 70 50 IF(N .NE. 1) GO TO 60 SUM = TEMP1+TEMP2 ISUM = ISAVE GO TO 70 60 SUM = TEMP1-TEMP2 ISUM = ISAVE 70 IF (SUM.EQ.0.0D0) ISUM = 0 RETURN END ================================================ FILE: mis/sumphi.f ================================================ COMPLEX FUNCTION SUMPHI(IXR,IYR,ND1,NDN,CAPPHI,DSS,N,M,ASYM) C C FUNCTION TO COMPUTE SUM OF CAPPHI-DELTA SOURCE STENGTH PRODUCT C LOGICAL ASYM DIMENSION ND1(1),NDN(1) COMPLEX CAPPHI(1),DSS(N,M) C SUMPHI = ( 0.0 , 0.0 ) IF ( IXR .EQ. 0 ) RETURN DO 400 I = 1 , IXR IXS = I - 1 IP = IXR - IXS LTOT = 2 * IP + 1 IPHI = ( IP * ( IP + 1 ) ) / 2 IYS = IYR - IXR + IXS DO 300 L = 1 , LTOT IF ( ASYM .AND. IYS .EQ. 0 ) GO TO 200 J = IABS ( IYS ) + 1 IF ( .NOT. ( I .GE. (ND1(J)) .AND. I .LE. NDN(J) ) ) GO TO 200 S = 1.0 IF ( ASYM .AND. IYS .LT. 0 ) S = -S IJPHI = IPHI + 1 + IABS ( IYR - IYS ) SUMPHI = SUMPHI + S * CAPPHI(IJPHI) * DSS(I,J) 200 IYS = IYS + 1 300 CONTINUE 400 CONTINUE RETURN END ================================================ FILE: mis/suplt.f ================================================ SUBROUTINE SUPLT (IZ,IY,X,U,GPLST,PEN,DEFORM) C C TO CREATE A SET OF UNIQUE LINES TO BE PLOTTED. IN ADDITION, TO C AVOID SKIPPING ALL OVER THE PLOT FOR EACH LINE. C C INPUT (SIMULAR TO -GPCT-) C NGRID - NUMBER OF INTERNAL GRID POINTS. C IY - 1 THRU NGRID - POINTERS TO FIRST CONNECTION OF THE C INTERNAL GRID MATCHING THIS INDEX. C IF THE GRID HAS NO ENTRIES IZ(I+1) WILL C HAVE THE SAME POINTER VALUE. C - NGRID+1 - POINTER TO END-OF-RECORD. C IZ - CONNECTING INTERNAL GRIDS. POINTER FOR NEXT GRID C DETERMINES LAST ENTRY. ENTRIES PUSHED C DOWN AND -1 ADDED AT END AS EACH ENTRY C IS USED. C C NTAB = TOTAL ENTRY COUNTER IN GPCT C ID1 = START OF CURRENT -LINE- C ID2 = END OF CURRENT -LINE- C ID3 = START OF LAST -LINE- C ID4 = END OF LAST -LINE- C INTEGER IZ(1),IY(1),PEN,DEFORM,GPLST(1),NM(5),M(71), 1 M1(17),M2(17),M3(11),M4(17),M5(9),ERR(4),LM(5), 2 LIMT(2) REAL U(2,1),X(3,1) COMMON /SYSTEM/ SYSBUF,IOUT COMMON /BLANK / NGRID,SKP1(19),MERR EQUIVALENCE (M1(1),M( 1)), (M2(1),M(18)), (M3(1),M(35)), 1 (M4(1),M(46)), (M5(1),M(63)) DATA NM / 17,17,11,17, 9 /, 1 LM / 1,18,35,46,63 /, 2 M1 / 4H(35X, 4H,26H, 4HSUPL, 4HT RE, 4HJECT, 4HED P, 3 4HLOT., 4H PIV, 4HOT,I, 4H8,26, 4HH IS, 4H ZER, 4 4HO OR, 4H SAM, 4HE AS, 4H ENT, 4HRY.)/, 5 M2 / 4H(35X, 4H,54H, 4HSUPL, 4HT RE, 4HJECT, 4HED P, 6 4HLOT., 4H NEG, 4HATIV, 4HE NU, 4HMBER, 4H ENT, 7 4HRIES, 4H - N, 4H3,N4, 4H =,2, 4HI10)/, 8 M3 / 4H(35X, 4H,31H, 4HUNEX, 4HPECT, 4HED E, 4HOF I, 9 4HN SU, 4HPLT , 4H- PI, 4HVOT,, 4HI10)/, O M4 / 4H(35X, 4H,11H, 4HSUPL, 4HT-EN, 4HTRY,, 4HI10,, 1 4H22H , 4HFOR , 4HPIVO, 4HT NO, 4HT FO, 4HUND , 2 4H(,2I, 4H6,8H, 4H) RA, 4HNGE., 4H) /, 3 M5 / 4H(35X, 4H,24H, 4HNO E, 4HLEME, 4HNTS , 4HIN T, 4 4HHIS , 4HSET., 4H) / C LINESP = 0 C C LOCATE FIRST PIVOT (ID1) WITH ODD NUMBER OF ENTRIES C ID2 = 0 ID1 = 0 DO 10 I = 1,NGRID LL = IY(I+1) - IY(I) IF (LL .EQ. 0) GO TO 10 C C IN CASE AN ODD NO. ENTRIES ISN'T FOUND THE DEFAULT IS FIRST PIVOT C IF (ID2 .EQ. 0) ID2 = I IF (MOD(LL,2) .EQ. 0) GO TO 10 ID1 = I I1 = IY(I) ID2 = IZ(I1) GO TO 20 10 CONTINUE C 20 NTAB = IY(NGRID+1) - IY(1) C C NO ELEMENTS IN THE SET C IF (NTAB .EQ. 0) GO TO 440 C C SEE IF ANY ODD ENTRIES FOUND C LIMT(1) = 0 LIMT(2) = NGRID + 1 IF (ID1 .NE. 0) GO TO 140 ID1 = ID2 I1 = IY(ID1) ID2 = IZ(I1) GO TO 140 C C START OF LOOP AFTER FIRST -LINE- C 30 IF (N4) 410,260,40 C C LAST END HAS ENTRY TO CONTINUE FROM C 40 ID1 = ID4 C C INTERNAL SEARCH FOR FIRST GPCT ENTRY ABOVE AND BELOW THE PIVOT C VALUE FOR THE PIVOT *** M I N / M A X *** C 50 I1 = IY(ID1) IL =-100000 IH = 100000 J1 = IY(ID1+1) - 1 C DO 80 I = I1,J1 IF (IZ(I) ) 100,400,60 60 IF (IZ(I)-ID1) 70,400,90 70 IL = IZ(I) 80 CONTINUE GO TO 100 C 90 IH = IZ(I) C C DETERMINE WHICH IS CLOSER TO PIVOT C 100 I = ID1 - IL J = IH - ID1 IF (J-I) 130,110,120 C C EQUAL DISTANT, GO TO SAME DIRECTION AS BEFORE C 110 IF (ID4-ID3) 120,400,130 C C ID2 IS LESSOR ID C 120 ID2 = IL GO TO 140 C C ID2 IS GREATER ID C 130 ID2 = IH C C OUTPUT THE LINE - C NOTE THAT ID4 MAY BE RESET AT 320 SO DONT TAKE SHORTCUTS C 140 CONTINUE I = IABS(GPLST(ID1)) J = IABS(GPLST(ID2)) IF (DEFORM .NE. 0) GO TO 160 X1 = X(2,I) Y1 = X(3,I) X2 = X(2,J) Y2 = X(3,J) GO TO 170 160 X1 = U(1,I) Y1 = U(2,I) X2 = U(1,J) Y2 = U(2,J) 170 CONTINUE CALL LINE (X1,Y1,X2,Y2,PEN,0) LINESP = LINESP + 1 C C REMOVE ENTRIES FROM CORE, LEFT SHIFT AS NEEDED AND PUT -1 AT THE C END OF THE TABLE. PLACE THE NUMBER OF ENTRIES LEFT IN N3 AND N4. C DECREMENT THE TOTAL NUMBER OF ENTRIES BY 2. SET ID3 AND ID4. C IF (NTAB .LE. 2) GO TO 460 KK = 0 J1 = I1 J2 = IY(ID1+1) - 1 LL = ID2 180 IPAR = J1 IL = 0 C DO 230 I = J1,J2 IF (IZ(I)-LL) 210,200,190 190 IZ(IPAR) = IZ(I) GO TO 220 C C COMPONENT TO BE ELIMINATED HAS BEEN FOUND C 200 IL = 1 GO TO 230 210 IF (IZ(I)) 240,400,220 220 IPAR = IPAR + 1 230 CONTINUE C 240 IZ(IPAR) = -LL IF (IL .EQ. 0) GO TO 430 IF (KK .NE. 0) GO TO 250 KK = 2 ID3= ID1 N3 = IPAR - J1 LL = ID2 J1 = IY(LL ) J2 = IY(LL+1) - 1 LL = ID1 GO TO 180 250 NTAB= NTAB - 2 ID4 = ID2 N4 = IPAR - J1 GO TO 30 C C CASE ID4 HAS NO MORE ENTRIES. CHECK IF ID3 CAN BE PIVOT C 260 IF (N3) 410,280,270 C C NONZERO - ID3 IS TO BE ID1 C 270 ID1 = ID3 GO TO 50 C C ID3 AND ID4 ARE NULL. GO TO CLOSEST END OF TABLE FROM ID4 C 280 I = NGRID - ID4 J = 1 IF (I .GT. ID4) J = -1 L = (J+2)/2 + 1 LIM = LIMT(L) LEN = ID4 C ASSIGN 310 TO IRET1 KK = ID4 290 KK = KK + J IF (KK .EQ. LIM) GO TO IRET1, (310,420) IPAR = 2 ASSIGN 300 TO IRET GO TO 370 C C CHECK IF ANY ENTRIES FOUND C 300 IF (IPAR .EQ. 0) GO TO 290 C C ENTRY FOUND C LEN = KK + J ID4 = KK N4 = IPAR GO TO 320 C C THAT END OF TABLE FAILED - TRY OTHER END C 310 J = -J LIMT(L) = LEN L = (J+2)/2 + 1 LIM = LIMT(L) KK = ID4 ASSIGN 420 TO IRET1 GO TO 290 C C AN ENTRY WAS FOUND - CHECK FOR ODD NUMBER OF ENTRIES FOR PIVOT C 320 IF (MOD(IPAR,2) .EQ. 1) GO TO 360 C C NOT AN ODD NUMBER OF ENTRIES FOR ID4. CHECK GPCT ENTRIES C FOR ONLY ONE ENTRY. C ASSIGN 340 TO IRET C IH = J2 IL = J1 - 1 330 IL = IL + 1 KK = IZ(IL) IF (KK .LE. 0) GO TO 40 IPAR = 1 GO TO 370 340 CONTINUE IF (IPAR .EQ. 1) GO TO 360 IF (IL .LT. IH) GO TO 330 C C PIVOT NOW DETERMINED C GO TO 40 360 ID1 = KK GO TO 50 C C C INTERNAL ROUTINE TO DETERMINE NUMBER OF ENTRIES FOR PIVOT C C INPUT C IPAR = 1 -- 0,1 OR MORE THAN 1 ENTRY RETURN C = 2 -- ACTUAL NUMBER OF ENTRIES RETURN C KK = ID OF PIVOT C C OUTPUT C IPAR = DESIRED NUMBER OF ENTRIES C KK = SAME AS INPUT C J1 = POINTER TO 1ST LOCATION C J2 = NOT NECESSARILY LAST LOCATION (I.E. IPAR INPUT AS 1) C 370 J1 = IY(KK ) J2 = IY(KK+1) - 1 IF (IPAR .EQ. 1) J2 = MIN0(J1+2,J2) IPAR = 0 IF (J2-J1 .LT. 0) GO TO 390 C DO 380 I = J1,J2 IF (IZ(I)) 390,400,380 380 IPAR = IPAR + 1 390 GO TO IRET, (300,340) C C ERROR MESSAGES C 400 ERR(1) = 1 ERR(2) = ID1 K = 1 GO TO 450 410 ERR(1) = 2 ERR(2) = N3 ERR(3) = N4 K = 2 GO TO 450 420 ERR(1) = 1 ERR(2) = ID4 K = 3 GO TO 450 430 ERR(1) = 3 ERR(2) = LL ERR(3) = J1 ERR(4) = J2 K = 4 GO TO 450 440 ERR(1) = 0 K = 5 C 450 I = LM(K) CALL WRTPRT (MERR,ERR,M(I),NM(K)) IF (K .EQ. 5) GO TO 530 C C CONVERT TABLE TO ORIGINAL VALUES UNLESS THIS IS THE LAST CALL C 460 IL = NGRID + 1 I = IY(IL) - 1 IF (DEFORM .NE. 0) GO TO 530 DO 480 J = 1,I 480 IZ(J) = IABS(IZ(J)) C DO 520 J1 = 1,NGRID IF (IY(J1) .EQ. IY(J1+1)) GO TO 520 I = IY(J1) L = I N = IY(J1+1) - 1 IF (I+1 .GT. N) GO TO 520 C C SHUTTLE EXCHANGE C (NOTE FROM G.CHAN/UNISYS 10/1990 C THERE ARE MORE THAN JUST A SHUTTLE SORTING HERE. REPLACING THE C SHUTTLE EXCHANGE METHOD BY SORT ROUTINE, WHICH USES A MUCH FASTER C TECHNEQUE, DOES NOT WORK HERE) C 490 IF (IZ(I) .LE. IZ(I+1)) GO TO 510 K = IZ(I+1) IZ(I+1) = IZ(I) IZ(I ) = K J = I 500 IF (J .EQ. L) GO TO 510 IF (IZ(J) .GE. IZ(J-1)) GO TO 510 K = IZ(J) IZ(J ) = IZ(J-1) IZ(J-1) = K J = J - 1 GO TO 500 510 IF (I .GE. N-1) GO TO 520 I = I + 1 GO TO 490 C 520 CONTINUE C C A NONSTANDARD RETURN COULD BE ADDED HERE. BAD PLOT RESULTS IF C THIS ROUTINE FAILS. THE FRAME WILL BE PRESENT HOWEVER C 530 CONTINUE RETURN END ================================================ FILE: mis/suread.f ================================================ SUBROUTINE SUREAD (IA,ND,NOUT,ITEST) C C READS DATA FROM THE SOF INTO THE ARRAY IA. ND IS AN INPUT C PARAMETER INDICATING THE NUMBER OF WORDS DESIRED. ND=-1 MEANS C READ UNTIL END OF GROUP. NOUT IS AN OUTPUT PARAMETER INDICATING C THE NUMBER OF WORD THAT HAVE BEEN READ. ITEST IS AN OUTPUT C PARAMETER WHERE ITEST=3 MEANS END OF ITEM ENCOUNTERED, ITEST=2 C MEANS END OF GROUP ENCOUNTERED, AND ITEST=1 OTHERWISE. C EXTERNAL ANDF,RSHIFT INTEGER ANDF,RSHIFT,BUF,BLKSIZ,DIRSIZ,IA(1),NMSBR(2) COMMON /MACHIN/ MACH,IHALF,JHALF COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DITDUM(6),IO,IOPBN,IOLBN,IOMODE,IOPTR,IOSIND, 1 IOITCD,IOBLK COMMON /SYS / BLKSIZ,DIRSIZ DATA IDLE , IRD / 0,1 / DATA IEOG , IEOI/ 4H$EOG ,4H$EOI / DATA INDSBR/ 19 /, NMSBR /4HSURE,4HAD / C CALL CHKOPN (NMSBR(1)) ICOUNT = 0 IF (IOMODE .EQ. IRD) GO TO 20 ITEST = 4 NOUT = 0 RETURN C 10 ICOUNT = ICOUNT + 1 IA(ICOUNT) = BUF(IOPTR) IOPTR = IOPTR + 1 IF (ICOUNT .EQ. ND) GO TO 35 20 IF (IOPTR .GT. BLKSIZ+IO) GO TO 80 C C READ SOF INTO ARRAY IA, BUT WATCH FOR END OF GROUP AND END OF ITEM C 30 IF (BUF(IOPTR) .EQ. IEOI) GO TO 50 IF (BUF(IOPTR).EQ.IEOG .AND. ND.NE.-2) GO TO 40 GO TO 10 C C READ THE REQUIRED NUMBER OF WORDS. C 35 ITEST = 1 GO TO 70 C C REACHED END OF GROUP. C 40 ITEST = 2 GO TO 60 C C REACHED END OF ITEM. C 50 ITEST = 3 IOMODE = IDLE 60 IOPTR = IOPTR + 1 70 NOUT = ICOUNT RETURN C C REACHED END OF BLOCK. REPLACE THE BLOCK CURRENTLY IN CORE BY ITS C LINK BLOCK. C 80 CALL FNXT (IOPBN,INXT) IF (MOD(IOPBN,2) .EQ. 1) GO TO 90 NEXT = ANDF(RSHIFT(BUF(INXT),IHALF),JHALF) GO TO 100 90 NEXT = ANDF(BUF(INXT),JHALF) 100 IF (NEXT .EQ. 0) GO TO 510 IOPBN = NEXT IOLBN = IOLBN + 1 CALL SOFIO (IRD,IOPBN,BUF(IO-2)) IOPTR = IO + 1 GO TO 30 C C ERROR MESSAGES. C 510 CALL ERRMKN (INDSBR,9) RETURN END ================================================ FILE: mis/suwrt.f ================================================ SUBROUTINE SUWRT (IA,NWORDS,ITEST) C C COPIES DATA FROM THE ARRAY IA ON THE SOF. NWORD IS AN INPUT C PARAMETER INDICATING THE NUMBER OF WORDS TO BE COPIED. ITEST IS C AN INPUT PARAMETER WHERE ITEST=1 MEANS MORE TO COME, ITEST=2 MEANS C WRITE END OF GROUP, AND ITEST=3 MEANS WRITE END OF ITEM. C EXTERNAL LSHIFT,ANDF,ORF LOGICAL MDIUP INTEGER BUF,MDI,MDIPBN,MDILBN,MDIBL,BLKSIZ,DIRSIZ,ANDF,ORF DIMENSION IA(1),NMSBR(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /MACHIN/ MACH,IHALF,JHALF COMMON /ZZZZZZ/ BUF(1) COMMON /SOF / DITDUM(6), 1 IO,IOPBN,IOLBN,IOMODE,IOPTR,IOSIND,IOITCD,IOBLK, 2 MDI,MDIPBN,MDILBN,MDIBL,NXTDUM(15),DITUP,MDIUP COMMON /SYS / BLKSIZ,DIRSIZ COMMON /SYSTEM/ NBUFF,NOUT DATA IDLE , IWRT / 0,2 / DATA IEOG , IEOI / 4H$EOG ,4H$EOI /, NMSBR /4HSUWR,4HT / C CALL CHKOPN (NMSBR(1)) ICOUNT = 0 IF (IOMODE .EQ. IWRT) GO TO 10 ITEST = 4 RETURN C C KEEP COPYING DATA FROM THE ARRAY IA INTO THE INPUT/OUTPUT BUFFER C UNTIL THE BUFFER IS FULL, OR UNTIL THE REQUESTED NUMBER OF WORDS C HAS BEEN COPIED. C 10 IF (IOPTR .GT. BLKSIZ+IO) GO TO 30 20 IF (ICOUNT .EQ. NWORDS) GO TO (80,60,50), ITEST ICOUNT = ICOUNT + 1 BUF(IOPTR) = IA(ICOUNT) IOPTR = IOPTR + 1 GO TO 10 C C THE BUFFER IS FULL. OUTPUT IT ON THE SOF. C 30 CALL SOFIO (IWRT,IOPBN,BUF(IO-2)) CALL GETBLK (IOPBN,J) IF (J .EQ. -1) GO TO 40 IOPBN = J IOLBN = IOLBN + 1 IOPTR = IO + 1 GO TO 20 C C THERE ARE NO MORE FREE BLOCKS ON THE SOF. RETURN THE BLOCKS THAT C HAVE BEEN USED SO FAR BY THE ITEM BEING WRITTEN, AND CLOSE THE SOF C THEN ISSUE A FATAL ERROR MESSAGE. C 40 CALL RETBLK (IOBLK) CALL SOFCLS GO TO 90 C C WRITE END OF ITEM, OUTPUT THE INPUT/OUTPUT BUFFER ON THE SOF, AND C UPDATE THE MDI. C 50 BUF(IOPTR) = IEOI CALL SOFIO (IWRT,IOPBN,BUF(IO-2)) CALL FMDI (IOSIND,IMDI) BUF(IMDI+IOITCD) = IOBLK BUF(IMDI+IOITCD) = ORF(ANDF(BUF(IMDI+IOITCD),JHALF), 1 LSHIFT(IOLBN,IHALF)) MDIUP = .TRUE. IOMODE = IDLE GO TO 70 C C WRITE END OF GROUP. C 60 BUF(IOPTR) = IEOG 70 IOPTR = IOPTR + 1 80 RETURN C C ERROR MESSAGES. C 90 WRITE (NOUT,100) UFM 100 FORMAT (A23,' 6223, THERE ARE NO MORE FREE BLOCKS AVAILABLE ON', 1 ' THE SOF FILE.') CALL SOFCLS CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/switch.f ================================================ SUBROUTINE SWITCH C C THE PURPOSE OF THIS MODULE IS TO INTERCHANGE THE NAMES OF THE C TWO INPUT FILES. THIS IS ACCOMPLISHED BY THE DIRECT UPDATING C OF THE FIAT C EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF INTEGER FILE1,FILE2,MODNAM(2),NAME(2),PSAVE1,PSAVE2, 1 ANDF,ORF,RSHIFT,COMPLF,UNIT,UNIT1,UNIT2,UNT CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /XFIAT / IFIAT(3) COMMON /XFIST / IFIST(2) COMMON /XPFIST/ IPFIST COMMON /BLANK / IPARAM COMMON /SYSTEM/ SYSBUF,NOUT,SKIP(21),ICFIAT DATA FILE1 / 101/, FILE2 / 102/, MODNAM/ 4HSWIT,4HCH / C IF (IPARAM .GE. 0) RETURN MASK2 = 32767 MASK3 = COMPLF(MASK2) MASK = LSHIFT(1,30) - 1 MASK = LSHIFT(RSHIFT(MASK,16),16) MASK1 = COMPLF(MASK) NUNIQE= IFIAT(1)*ICFIAT + 3 MXE = IFIAT(2)*ICFIAT + 3 LASTWD= IFIAT(3)*ICFIAT + 3 C C LOCATE FILE POINTERS IN THE FIST C NWD = 2*IPFIST + 2 NACENT = 2*IFIST(2) + 2 NFILES = NACENT - NWD PSAVE1 = 0 PSAVE2 = 0 DO 10 I = 1,NFILES,2 IF (IFIST(NWD+I).NE.FILE1 .AND. IFIST(NWD+I).NE.FILE2) GO TO 10 IF (IFIST(NWD+I)-FILE1) 2,3,2 2 IF (IFIST(NWD+I)-FILE2) 10,4,10 3 PSAVE1 = IFIST(NWD+I+1) + 1 GO TO 10 4 PSAVE2 = IFIST(NWD+I+1) + 1 10 CONTINUE C C CHECK THAT FILES ARE IN FIST C IF (PSAVE1 .EQ. 0) CALL MESAGE (-1,FILE1,MODNAM) IF (PSAVE2 .EQ. 0) CALL MESAGE (-1,FILE2,MODNAM) C C SWITCH FILE NAMES IN FIAT C NAME(1) = IFIAT(PSAVE1+1) NAME(2) = IFIAT(PSAVE1+2) UNIT1 = ANDF(MASK2,IFIAT(PSAVE1)) UNIT2 = ANDF(MASK2,IFIAT(PSAVE2)) NWD = ICFIAT*IFIAT(3) - 2 LTU1 = ANDF(MASK,IFIAT(PSAVE1)) LTU2 = ANDF(MASK,IFIAT(PSAVE2)) IFIAT(PSAVE1 ) = ORF(ANDF(IFIAT(PSAVE1),MASK2),LTU2) IFIAT(PSAVE1+1) = IFIAT(PSAVE2+1) IFIAT(PSAVE1+2) = IFIAT(PSAVE2+2) IFIAT(PSAVE2 ) = ORF(ANDF(IFIAT(PSAVE2),MASK2),LTU1) IFIAT(PSAVE2+1) = NAME(1) IFIAT(PSAVE2+2) = NAME(2) C C SWITCH STACKED DATA BLOCKS C DO 100 I = 4,NWD,ICFIAT IF (PSAVE1.EQ.I .OR. PSAVE2.EQ.I) GO TO 100 UNIT = ANDF(MASK2,IFIAT(I)) IF (UNIT.NE.UNIT1 .AND. UNIT.NE.UNIT2) GO TO 100 IF (UNIT .EQ. UNIT1) UNT = UNIT2 IF (UNIT .EQ. UNIT2) UNT = UNIT1 IF (I .GT. NUNIQE) GO TO 50 C C DATA BLOCK RESIDES IN UNIQUE PART OF FIAT C MOVE ENTRY TO BOTTOM C IF (LASTWD+ICFIAT .LE. MXE) GO TO 30 WRITE (NOUT,20) SFM 20 FORMAT (A25,' 1021, FIAT OVERFLOW') CALL MESAGE (-37,0,MODNAM) 30 IFIAT(LASTWD+1) = ORF(ANDF(IFIAT(I),MASK3),UNT) DO 40 K = 2,ICFIAT 40 IFIAT(LASTWD+K) = IFIAT(I+K-1) LASTWD = LASTWD + ICFIAT IFIAT(3) = IFIAT(3) + 1 C C CLEAR OLD ENTRY IN UNIQUE PART C IFIAT(I) = ANDF(IFIAT(I),MASK2) J1 = I + 1 J2 = I + ICFIAT - 1 DO 45 K = J1,J2 45 IFIAT(K) = 0 GO TO 100 C C DATA BLOCK RESIDES IN NON-UNIQUE PORTION OF FIAT C SWITCH UNIT NUMBERS C 50 IFIAT(I) = ORF(ANDF(IFIAT(I),MASK3),UNT) 100 CONTINUE RETURN END ================================================ FILE: mis/sxloop.f ================================================ SUBROUTINE SXLOOP (X,Y,N) C C SINGLE PRECISION VERSION OF CXLOOP, CALLED ONLY BY CDCMPS C REAL X(1), Y(1) REAL XX(2) , YY(2), MPY(2) NN = N + N DO 10 I = 1,NN 10 X(I) = Y(I) RETURN C ENTRY SLOOP (XX,YY,MPY,M) MM = M + M DO 20 I = 1,MM,2 XX(I ) = XX(I ) - MPY(1)*YY(I) + MPY(2)*YY(I+1) 20 XX(I+1) = XX(I+1) - MPY(2)*YY(I) - MPY(1)*YY(I+1) RETURN END ================================================ FILE: mis/symbol.f ================================================ SUBROUTINE SYMBOL (X,Y,SYMX,OPT) C C (X,Y) = POINT AT WHICH THE SYMBOLS ARE TO BE TYPED. C SYMX = SYMBOLS TO BE TYPED. C OPT = -1 TO INITIATE THE TYPING MODE. C = +1 TO TERMINATE THE TYPING MODE. C = 0 TO TYPE THE SYMBOL. C INTEGER SYM,SYMX(2),OPT,PLOTER,SYMBL COMMON /PLTDAT/ MODEL,PLOTER COMMON /SYMBLS/ NSYM, SYMBL(20,2) C IF (OPT .EQ. 0) GO TO 110 CALL TIPE (0,0,0,0,0,OPT) GO TO 200 C 110 DO 150 I = 1,2 IF (SYMX(I) .LE. 0) GO TO 150 SYM = SYMX(I) - NSYM*((SYMX(I)-1)/NSYM) SYM = SYMBL(SYM,PLOTER) CALL TYPE10 (X,Y,0,SYM,0,0) GO TO 150 150 CONTINUE C 200 RETURN END ================================================ FILE: mis/t3bgbs.f ================================================ SUBROUTINE T3BGBS (NG,NB,GMAT,BMAT,KMAT) C C WITH ENTRY T3BGBD (NG,NB,GMAD,BMAD,KMAD) C C ROUTINE FOR EFFICIENT TRIPLE-MULTPLICATION OF [B] AND [G] MATRICES C TO EVALUATE THE CONTRIBUTION TO THE ELEMENT STIFFNESS MATRIX FROM C THE CURRENT INTEGRATION POINT C C C INPUT : C NG - NUMBER OF ROWS AND COLUMNS OF GMAT C NB - NUMBER OF COLUMNS OF BMAT C GMAT/GMAD - [G], FORCE-STRAIN RELATIONSHIP C BMAT/BMAD - [B], STRAIN-DISPLACEMENT RELATIONSHIP C OUTPUT: C KMAT/KMAD - CONTRIBUTION TO THE ELEMENT STIFFNESS MATRIX C FROM THE CURRENT INTEGRATION POINT C C ALGORITHM: C MATRICES ARE MULTIPLIED IN FULL WHEN MEMBRANE-BENDING C COUPLING IN PRESENT, OTHERWISE PARTIAL MULTIPLICATION C IS PERFORMED. C IN EACH TRIPLE MULTIPLY, THE RESULT IS ADDED TO KMAT. C C LOGICAL MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH REAL GMAT(9,1),BMAT(1),KMAT(1),G1(3,3),GBMAT(162) DOUBLE PRECISION GMAD(9,1),BMAD(1),KMAD(1),G2(3,3),GBMAD(162) COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH EQUIVALENCE (G1(1,1),G2(1,1)),(GBMAT(1),GBMAD(1)) C C C SINGLE PRECISION C ND3 = NB*3 ND6 = NB*6 C C IF [G] IS FULLY POPULATED, PERFORM STRAIGHT MULTIPLICATION AND C RETURN. C IF (.NOT.MBCOUP) GO TO 10 CALL GMMATS (GMAT,NG,NG,0, BMAT,NG,NB,0, GBMAT) CALL GMMATS (BMAT,NG,NB,-1, GBMAT,NG,NB,0, KMAT ) GO TO 60 C C MULTIPLY MEMBRANE TERMS WHEN PRESENT C 10 IF (.NOT.MEMBRN) GO TO 30 DO 20 I = 1,3 DO 20 J = 1,3 G1(I,J) = GMAT(I,J) 20 CONTINUE CALL GMMATS (G1,3,3,0, BMAT(1),3,NB,0, GBMAT) CALL GMMATS (BMAT(1),3,NB,-1, GBMAT,3,NB,0, KMAT) C C MULTIPLY BENDING TERMS WHEN PRESENT C 30 IF (.NOT.BENDNG) GO TO 60 DO 40 I = 1,3 II = I + 3 DO 40 J = 1,3 JJ = J + 3 G1(I,J) = GMAT(II,JJ) 40 CONTINUE CALL GMMATS (G1,3,3,0, BMAT(ND3+1),3,NB,0, GBMAT) CALL GMMATS (BMAT(ND3+1),3,NB,-1, GBMAT,3,NB,0, KMAT) C DO 50 I = 1,3 II = I + 6 DO 50 J = 1,3 JJ = J + 6 G1(I,J) = GMAT(II,JJ) 50 CONTINUE CALL GMMATS (G1,3,3,0, BMAT(ND6+1),3,NB,0, GBMAT) CALL GMMATS (BMAT(ND6+1),3,NB,-1, GBMAT,3,NB,0, KMAT) 60 RETURN C C ENTRY T3BGBD (NG,NB,GMAD,BMAD,KMAD) C =================================== C C DOUBLE PRECISION C ND3 = NB*3 ND6 = NB*6 C C IF [G] IS FULLY POPULATED, PERFORM STRAIGHT MULTIPLICATION AND C RETURN. C IF (.NOT.MBCOUP) GO TO 100 CALL GMMATD (GMAD,NG,NG,0, BMAD,NG,NB,0, GBMAD) CALL GMMATD (BMAD,NG,NB,-1, GBMAD,NG,NB,0, KMAD ) GO TO 150 C C MULTIPLY MEMBRANE TERMS WHEN PRESENT C 100 IF (.NOT.MEMBRN) GO TO 120 DO 110 I = 1,3 DO 110 J = 1,3 G2(I,J) = GMAD(I,J) 110 CONTINUE CALL GMMATD (G2,3,3,0, BMAD(1),3,NB,0, GBMAD) CALL GMMATD (BMAD(1),3,NB,-1, GBMAD,3,NB,0, KMAD) C C MULTIPLY BENDING TERMS WHEN PRESENT C 120 IF (.NOT.BENDNG) GO TO 150 DO 130 I = 1,3 II = I + 3 DO 130 J = 1,3 JJ = J + 3 G2(I,J) = GMAD(II,JJ) 130 CONTINUE CALL GMMATD (G2,3,3,0, BMAD(ND3+1),3,NB,0, GBMAD) CALL GMMATD (BMAD(ND3+1),3,NB,-1, GBMAD,3,NB,0, KMAD) C DO 140 I = 1,3 II = I + 6 DO 140 J = 1,3 JJ = J + 6 G2(I,J) = GMAD(II,JJ) 140 CONTINUE CALL GMMATD (G2,3,3,0, BMAD(ND6+1),3,NB,0, GBMAD) CALL GMMATD (BMAD(ND6+1),3,NB,-1, GBMAD,3,NB,0, KMAD) C 150 RETURN C END ================================================ FILE: mis/t3bmgd.f ================================================ SUBROUTINE T3BMGD (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH, 1 DETJAC,SHP,BTERMS,BMATRX) C C B-MATRIX GENERATOR ROUTINE FOR TRIA3 ELEMENTS C C DOUBLE PRECISION ROUTINE TO GENERATE A 9XNDOF B-MATRIX AT A C GIVEN INTEGRATION POINT, USING THE DERIVATIVES OF THE 2-D SHAPE C FUNCTIONS. C OPTIONALLY, AN 8XNDOF B-MATRIX IS CONSTRUCTED AND/OR SHEAR TERMS C MAY BE DROPPED ALTOGETHER, YIELDING 6XNDOF MATRIX. C FOR STRESS RECOVERY, THE EVALUATION POINTS ARE AT THE ELEMENT C INTERIOR POINTS RATHER THAN ON THE EDGES. C THE CONTENTS OF /TERMS/ ARE USED TO CONSTRUCT THE B-MATRIX C ACCORDING TO THE BEHAVIORAL REQUIREMENTS OF THE ELEMENT. C C C INPUT : C IPT - POINTER TO THE CURVILNEAR COORDINATES C SHEART - LOGICAL INDICATING THE REQUIREMENT FOR OUT-OF-PLANE C SHEAR TERMS C IORDER - ARRAY OF INTERNAL SEQUENCE OF NODES C EGPDT - GRID POINT DATA IN THE ELEMENT COORD. SYSTEM C DGPTH - NODAL THICKNESSES C AIC - TRANSFORMATION TO RELIEVE GEOMETRY BIAS C OUTPUT: C IERR - ERROR FLAG C TH - THICKNESS AT THE INTEG. PT. C DETJAC - DETERMINANT OF JACOBIAN AT THE INTEG. PT. C SHP - ARRAY OF REORDERED SHAPE FUNCTIONS C BTERMS - DERIVATIVES WRT THE PHYSICAL COORDINATES C BMATRX - STRAIN-DISPLACEMENT RELATIONSHIP C C LOGICAL SHEART,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH INTEGER IORDER(3) DOUBLE PRECISION EGPDT(4,1),DGPTH(1),AIC(1),TH,DETJAC,BMATRX(1), 1 BTERMS(1),SHP(3),DSHPX(3),DSHPE(3),TSHP(3), 2 TDSHPX(3),TDSHPE(3),VI(2),VJ(2),JACOB(4),EPS, 3 PTINT(2,7),TRC(2,3),XSI,XSII,ETA,ETAI,PSI,PSII, 4 DNX,DNY,SHPF COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH DATA EPS / 1.0D-13 / DATA PTINT / 0.5D0, 0.0D0, 0.5D0, 0.5D0, 0.0D0, 0.5D0, 1 0.333333333333333D0, 0.333333333333333D0, 2 0.166666666666667D0, 0.166666666666667D0, 3 0.166666666666667D0, 0.666666666666667D0, 4 0.666666666666667D0, 0.166666666666667D0/ DATA TRC / 0.0D0, 0.0D0, 1.0D0, 0.0D0, 0.0D0, 1.0D0/ C C INITIALIZE C IERR = 0 NNODE= 3 ND1 = NNODE*6 ND2 = ND1*2 ND3 = ND1*3 ND4 = ND1*4 ND5 = ND1*5 ND6 = ND1*6 ND7 = ND1*7 ND8 = ND1*8 ND9 = ND1*9 C DO 30 I = 1,6 BTERMS(I) = 0.0D0 30 CONTINUE DO 40 I = 1,ND9 BMATRX(I) = 0.0D0 40 CONTINUE C C CALCULATE THE SHAPE FUNCTIONS AND THEIR DERIVATIVES, THEN SORT C THEM. C XSI = PTINT(1,IPT) ETA = PTINT(2,IPT) PSI = 1.0D0 - XSI - ETA C DO 50 I = 1,3 XSII = TRC(1,I) ETAI = TRC(2,I) PSII = 1.0D0 - XSII - ETAI C SHP(I) = XSI*XSII + ETA*ETAI + PSI*PSII DSHPX(I) = XSII - PSII DSHPE(I) = ETAI - PSII 50 CONTINUE C DO 60 I = 1,NNODE TSHP(I) = SHP(I) TDSHPX(I)= DSHPX(I) TDSHPE(I)= DSHPE(I) 60 CONTINUE C DO 70 I = 1,NNODE KK = IORDER(I) SHP(I) = TSHP(KK) DSHPX(I) = TDSHPX(KK) DSHPE(I) = TDSHPE(KK) 70 CONTINUE C C COMPUTE THE ELEMENT THICKNESS C TH = 0.0D0 DO 80 ISH = 1,NNODE TH = TH + SHP(ISH)*DGPTH(ISH) 80 CONTINUE C C SET UP THE JACOBIAN C DO 90 I = 1,2 VI(I) = 0.0D0 VJ(I) = 0.0D0 II = I + 1 DO 90 J = 1,NNODE VI(I) = VI(I) + EGPDT(II,J)*DSHPX(J) VJ(I) = VJ(I) + EGPDT(II,J)*DSHPE(J) 90 CONTINUE C C INVERT THE JACOBIAN C DETJAC = VI(1)*VJ(2) - VI(2)*VJ(1) IF (DETJAC .GE. EPS) GO TO 100 IERR = 1 RETURN C 100 JACOB(1) = VJ(2)/DETJAC JACOB(2) = -VI(2)/DETJAC JACOB(3) = -VJ(1)/DETJAC JACOB(4) = VI(1)/DETJAC C DO 110 I = 1,4 IF (DABS(JACOB(I)) .LT. EPS) JACOB(I) = 0.0D0 110 CONTINUE C IPT1 = IPT*2 - 1 I71 = IPT1 I72 = IPT1 + 1 I81 = IPT1 + 6 I82 = IPT1 + 7 I91 = IPT1 + 12 I92 = IPT1 + 13 C C LOOP OVER NODES AND BUILD PARTITIONS OF B-MATRIX C IP = 0 DO 150 I = 1,NNODE C C CALCULATE DERIVATIVES WRT THE PHYSICAL COORDINATES. C DNX = JACOB(1)*DSHPX(I) + JACOB(2)*DSHPE(I) DNY = JACOB(3)*DSHPX(I) + JACOB(4)*DSHPE(I) SHPF = SHP(I) C BTERMS(I ) = DNX BTERMS(I+NNODE) = DNY C IF (.NOT.MEMBRN) GO TO 120 C C ROW 1 C BMATRX(IP+1) = DNX C C ROW 2 C BMATRX(IP+2+ND1) = DNY C C ROW 3 C BMATRX(IP+1+ND2) = DNY BMATRX(IP+2+ND2) = DNX C 120 IF (.NOT.BENDNG) GO TO 150 C C ROW 4 C BMATRX(IP+5+ND3) = -DNX C C ROW 5 C BMATRX(IP+4+ND4) = DNY C C ROW 6 C BMATRX(IP+5+ND5) = -DNY BMATRX(IP+4+ND5) = DNX C IF (.NOT.SHEART) GO TO 150 IF (IPT .LT. 4) GO TO 130 C C 8-ROW MATRIX C C ROW 7 C BMATRX(IP+3+ND6) = DNY BMATRX(IP+4+ND6) = -SHPF C C ROW 8 C BMATRX(IP+3+ND7) = DNX BMATRX(IP+5+ND7) = SHPF GO TO 150 C C 9-ROW MATRIX C C ROW 7 C 130 BMATRX(IP+3+ND6) = AIC(I71)*DNY + AIC(I72)*DNX BMATRX(IP+4+ND6) = -AIC(I71)*SHPF BMATRX(IP+5+ND6) = AIC(I72)*SHPF C C ROW 8 C BMATRX(IP+3+ND7) = AIC(I81)*DNY + AIC(I82)*DNX BMATRX(IP+4+ND7) = -AIC(I81)*SHPF BMATRX(IP+5+ND7) = AIC(I82)*SHPF C C ROW 9 C BMATRX(IP+3+ND8) = AIC(I91)*DNY + AIC(I92)*DNX BMATRX(IP+4+ND8) = -AIC(I91)*SHPF BMATRX(IP+5+ND8) = AIC(I92)*SHPF C 150 IP = IP + 6 C RETURN END ================================================ FILE: mis/t3bmgs.f ================================================ SUBROUTINE T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH, 1 DETJAC,SHP,BTERMS,BMATRX) C C [B] MATRIX GENERATOR ROUTINE FOR TRIA3 ELEMENTS C C SINGLE PRECISION ROUTINE TO GENERATE A 9XNDOF [B] MATRIX AT A C GIVEN INTEGRATION POINT, USING THE DERIVATIVES OF THE 2-D SHAPE C FUNCTIONS. C OPTIONALLY, AN 8XNDOF [B] MATRIX IS CONSTRUCTED AND/OR SHEAR TERMS C MAY BE DROPPED ALTOGETHER, YIELDING 6XNDOF MATRIX. C FOR STRESS RECOVERY, THE EVALUATION POINTS ARE AT THE ELEMENT C INTERIOR POINTS RATHER THAN ON THE EDGES. C THE CONTENTS OF /TERMS/ ARE USED TO CONSTRUCT THE [B] MATRIX C ACCORDING TO THE BEHAVIORAL REQUIREMENTS OF THE ELEMENT. C C C INPUT : C IPT - POINTER TO THE CURVILNEAR COORDINATES C SHEART - LOGICAL INDICATING THE REQUIREMENT FOR OUT-OF-PLANE C SHEAR TERMS C IORDER - ARRAY OF INTERNAL SEQUENCE OF NODES C EGPDT - GRID POINT DATA IN THE ELEMENT COORD. SYSTEM C DGPTH - NODAL THICKNESSES C AIC - TRANSFORMATION TO RELIEVE GEOMETRY BIAS C OUTPUT: C IERR - ERROR FLAG C TH - THICKNESS AT THE INTEG. PT. C DETJAC - DETERMINANT OF JACOBIAN AT THE INTEG. PT. C SHP - ARRAY OF REORDERED SHAPE FUNCTIONS C BTERMS - DERIVATIVES WRT THE PHYSICAL COORDINATES C BMATRX - STRAIN-DISPLACEMENT RELATIONSHIP C C LOGICAL SHEART,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH INTEGER IORDER(3) REAL EGPDT(4,1),DGPTH(1),AIC(1),TH,DETJAC,BMATRX(1), 1 BTERMS(1),SHP(3),DSHPX(3),DSHPE(3),TSHP(3), 2 TDSHPX(3),TDSHPE(3),VI(2),VJ(2),JACOB(4),EPS, 3 PTINT(2,7),TRC(2,3),XSI,XSII,ETA,ETAI,PSI,PSII, 4 DNX,DNY,SHPF COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH DATA EPS / 1.0E-13 / DATA PTINT / 0.5, 0.0, 0.5, 0.5, 0.0, 0.5, 1 0.333333333333333D0, 0.333333333333333D0, 2 0.166666666666667D0, 0.166666666666667D0, 3 0.166666666666667D0, 0.666666666666667D0, 4 0.666666666666667D0, 0.166666666666667D0/ DATA TRC / 0.0, 0.0, 1.0, 0.0, 0.0, 1.0/ C C INITIALIZE C IERR = 0 NNODE= 3 ND1 = NNODE*6 ND2 = ND1*2 ND3 = ND1*3 ND4 = ND1*4 ND5 = ND1*5 ND6 = ND1*6 ND7 = ND1*7 ND8 = ND1*8 ND9 = ND1*9 C DO 30 I = 1,6 BTERMS(I) = 0.0 30 CONTINUE DO 40 I = 1,ND9 BMATRX(I) = 0.0 40 CONTINUE C C CALCULATE THE SHAPE FUNCTIONS AND THEIR DERIVATIVES, THEN SORT C THEM. C XSI = PTINT(1,IPT) ETA = PTINT(2,IPT) PSI = 1.0 - XSI - ETA C DO 50 I = 1,3 XSII = TRC(1,I) ETAI = TRC(2,I) PSII = 1.0 - XSII - ETAI C SHP(I) = XSI*XSII + ETA*ETAI + PSI*PSII DSHPX(I) = XSII - PSII DSHPE(I) = ETAI - PSII 50 CONTINUE C DO 60 I = 1,NNODE TSHP(I) = SHP(I) TDSHPX(I)= DSHPX(I) TDSHPE(I)= DSHPE(I) 60 CONTINUE C DO 70 I = 1,NNODE KK = IORDER(I) SHP(I) = TSHP(KK) DSHPX(I) = TDSHPX(KK) DSHPE(I) = TDSHPE(KK) 70 CONTINUE C C COMPUTE THE ELEMENT THICKNESS C TH = 0.0 DO 80 ISH = 1,NNODE TH = TH + SHP(ISH)*DGPTH(ISH) 80 CONTINUE C C SET UP THE JACOBIAN C DO 90 I = 1,2 VI(I) = 0.0 VJ(I) = 0.0 II = I + 1 DO 90 J = 1,NNODE VI(I) = VI(I) + EGPDT(II,J)*DSHPX(J) VJ(I) = VJ(I) + EGPDT(II,J)*DSHPE(J) 90 CONTINUE C C INVERT THE JACOBIAN C DETJAC = VI(1)*VJ(2) - VI(2)*VJ(1) IF (DETJAC .GE. EPS) GO TO 100 IERR = 1 RETURN C 100 JACOB(1) = VJ(2)/DETJAC JACOB(2) = -VI(2)/DETJAC JACOB(3) = -VJ(1)/DETJAC JACOB(4) = VI(1)/DETJAC C DO 110 I = 1,4 IF (ABS(JACOB(I)) .LT. EPS) JACOB(I) = 0.0 110 CONTINUE C IPT1 = IPT*2 - 1 I71 = IPT1 I72 = IPT1 + 1 I81 = IPT1 + 6 I82 = IPT1 + 7 I91 = IPT1 + 12 I92 = IPT1 + 13 C C LOOP OVER NODES AND BUILD PARTITIONS OF [B] C IP = 0 DO 150 I = 1,NNODE C C CALCULATE DERIVATIVES WRT THE PHYSICAL COORDINATES. C DNX = JACOB(1)*DSHPX(I) + JACOB(2)*DSHPE(I) DNY = JACOB(3)*DSHPX(I) + JACOB(4)*DSHPE(I) SHPF = SHP(I) C BTERMS(I ) = DNX BTERMS(I+NNODE) = DNY C IF (.NOT.MEMBRN) GO TO 120 C C ROW 1 C BMATRX(IP+1) = DNX C C ROW 2 C BMATRX(IP+2+ND1) = DNY C C ROW 3 C BMATRX(IP+1+ND2) = DNY BMATRX(IP+2+ND2) = DNX C 120 IF (.NOT.BENDNG) GO TO 150 C C ROW 4 C BMATRX(IP+5+ND3) = -DNX C C ROW 5 C BMATRX(IP+4+ND4) = DNY C C ROW 6 C BMATRX(IP+5+ND5) = -DNY BMATRX(IP+4+ND5) = DNX C IF (.NOT.SHEART) GO TO 150 IF (IPT .LT. 4) GO TO 130 C C 8-ROW MATRIX C C ROW 7 C BMATRX(IP+3+ND6) = DNY BMATRX(IP+4+ND6) = -SHPF C C ROW 8 C BMATRX(IP+3+ND7) = DNX BMATRX(IP+5+ND7) = SHPF GO TO 150 C C 9-ROW MATRIX C C ROW 7 C 130 BMATRX(IP+3+ND6) = AIC(I71)*DNY + AIC(I72)*DNX BMATRX(IP+4+ND6) = -AIC(I71)*SHPF BMATRX(IP+5+ND6) = AIC(I72)*SHPF C C ROW 8 C BMATRX(IP+3+ND7) = AIC(I81)*DNY + AIC(I82)*DNX BMATRX(IP+4+ND7) = -AIC(I81)*SHPF BMATRX(IP+5+ND7) = AIC(I82)*SHPF C C ROW 9 C BMATRX(IP+3+ND8) = AIC(I91)*DNY + AIC(I92)*DNX BMATRX(IP+4+ND8) = -AIC(I91)*SHPF BMATRX(IP+5+ND8) = AIC(I92)*SHPF C 150 IP = IP + 6 C RETURN END ================================================ FILE: mis/t3gemd.f ================================================ SUBROUTINE T3GEMD (IERR,EGPDT,IORDER,GB,GS,LX,LY,EDGLEN,SHRFLX, 1 AIC,JOG,JOK,K11,K22) C C DOUBLE PRECISION ROUTINE TO SET UP THE REQUIRED SHEAR-RELATED C TRANSFORMATION TO RELIEVE THE TRIA3 GEOMETRY BIAS IN BENDING. C C INPUT : C EGPDT - BGPDT DATA IN ELEMENT COORD. SYSTEM C IORDER - ARRAY OF ORDER INDICATORS FOR REARRANGED DATA C GB - ARRAY OF BENDING MATERIAL PROPERTIES C GS - ARRAY OF SHEAR MATERIAL PROPERTIES C LX - DIMENSION OF ELEMENT ALONG X-AXIS C LY - DIMENSION OF ELEMENT ALONG Y-AXIS C EDGLEN - EDGE LENGTHS C SHRFLX - LOGICAL INDICATING THE PRESENCE OF SHEAR FLEX C OUTPUT: C IERR - ERROR FLAG C AIC - TRANSFORMATION TO RELIEVE GEOMETRY BIAS C JOG - SHEAR STIFFNESS FACTOR C JOK - BENDING STIFFNESS FACTOR C K11 - BENDING STIFFNESS FACTOR C K22 - BENDING STIFFNESS FACTOR C C C [C] - TRANSFORMATION TO YIELD GAMMAT ALONG THE ELEMENT SIDES. C C [AA] - TRANSFORMATION FROM GAMMA0 (AT THE ELEMENT CENTER) TO C GAMMAT (ALONG THE ELEMENT SIDES). C C -1 C [AIC] - [AA] [C] C C LOGICAL SHRFLX INTEGER IORDER(3),INDEX(3,3) DOUBLE PRECISION EGPDT(4,3),GB(9),GS(4),EDGLEN(3),LX,LY,AIC(18), 1 JOG,JOK,K11,K22,XX(3),YY(3),AA(9),H1,H2,BDUM(3), 2 DETERM,COSA,SINA,COSB,SINB,COSC,SINC C C IERR = 0 DO 20 I = 1,3 DO 10 J = 1,3 JO = IORDER(J) IF (I .NE. JO) GO TO 10 XX(I) = EGPDT(2,J) YY(I) = EGPDT(3,J) 10 CONTINUE 20 CONTINUE C COSA = ((XX(2)-XX(1))/EDGLEN(1)) SINA = ((YY(2)-YY(1))/EDGLEN(1)) COSB = ((XX(3)-XX(2))/EDGLEN(2)) SINB = ((YY(3)-YY(2))/EDGLEN(2)) COSC = ((XX(1)-XX(3))/EDGLEN(3)) SINC = ((YY(1)-YY(3))/EDGLEN(3)) C AA(1) = SINA AA(2) = COSA AA(3) = 1.0D0 AA(4) = SINB AA(5) = COSB AA(6) = 1.0D0 AA(7) = SINC AA(8) = COSC AA(9) = 1.0D0 C CALL INVERD (3,AA,3,BDUM,0,DETERM,ISING,INDEX) IF (ISING .NE. 1) GO TO 30 C AIC( 1) = AA(1)*SINA AIC( 2) = AA(1)*COSA AIC( 3) = AA(2)*SINB AIC( 4) = AA(2)*COSB AIC( 5) = AA(3)*SINC AIC( 6) = AA(3)*COSC AIC( 7) = AA(4)*SINA AIC( 8) = AA(4)*COSA AIC( 9) = AA(5)*SINB AIC(10) = AA(5)*COSB AIC(11) = AA(6)*SINC AIC(12) = AA(6)*COSC AIC(13) = AA(7)*SINA AIC(14) = AA(7)*COSA AIC(15) = AA(8)*SINB AIC(16) = AA(8)*COSB AIC(17) = AA(9)*SINC AIC(18) = AA(9)*COSC C C CALCULATE THE BENDING STIFFNESS FACTORS C H1 = LY H2 = LX K11 = 1.0D0/(H1*H1)*GB(5) K22 = 1.0D0/(H2*H2)*GB(1) C JOK = K11*K22 IF (JOK .NE. 0.0D0) JOK = 1.0D0/JOK JOG = 0.0D0 IF (SHRFLX) JOG = GS(1)*GS(4) - GS(2)*GS(3) IF (JOG .NE. 0.0D0) JOG = 1.0D0/JOG GO TO 40 C 30 IERR = 1 40 RETURN END ================================================ FILE: mis/t3gems.f ================================================ SUBROUTINE T3GEMS (IERR,EGPDT,IORDER,GB,GS,LX,LY,EDGLEN,SHRFLX, 1 AIC,JOG,JOK,K11,K22) C C SINGLE PRECISION ROUTINE TO SET UP THE REQUIRED SHEAR-RELATED C TRANSFORMATION TO RELIEVE THE TRIA3 GEOMETRY BIAS IN BENDING. C C INPUT : C EGPDT - BGPDT DATA IN ELEMENT COORD. SYSTEM C IORDER - ARRAY OF ORDER INDICATORS FOR REARRANGED DATA C GB - ARRAY OF BENDING MATERIAL PROPERTIES C GS - ARRAY OF SHEAR MATERIAL PROPERTIES C LX - DIMENSION OF ELEMENT ALONG X-AXIS C LY - DIMENSION OF ELEMENT ALONG Y-AXIS C EDGLEN - EDGE LENGTHS C SHRFLX - LOGICAL INDICATING THE PRESENCE OF SHEAR FLEX C OUTPUT: C IERR - ERROR FLAG C AIC - TRANSFORMATION TO RELIEVE GEOMETRY BIAS C JOG - SHEAR STIFFNESS FACTOR C JOK - BENDING STIFFNESS FACTOR C K11 - BENDING STIFFNESS FACTOR C K22 - BENDING STIFFNESS FACTOR C C C [C] - TRANSFORMATION TO YIELD GAMMAT ALONG THE ELEMENT SIDES. C C [AA] - TRANSFORMATION FROM GAMMA0 (AT THE ELEMENT CENTER) TO C GAMMAT (ALONG THE ELEMENT SIDES). C C -1 C [AIC] - [AA] [C] C C LOGICAL SHRFLX INTEGER IORDER(3),INDEX(3,3) REAL EGPDT(4,3),GB(9),GS(4),EDGLEN(3),LX,LY,AIC(18), 1 JOG,JOK,K11,K22,XX(3),YY(3),AA(9),H1,H2,BDUM(3), 2 DETERM,COSA,SINA,COSB,SINB,COSC,SINC C C IERR = 0 DO 20 I = 1,3 DO 10 J = 1,3 JO = IORDER(J) IF (I .NE. JO) GO TO 10 XX(I) = EGPDT(2,J) YY(I) = EGPDT(3,J) 10 CONTINUE 20 CONTINUE C COSA = ((XX(2)-XX(1))/EDGLEN(1)) SINA = ((YY(2)-YY(1))/EDGLEN(1)) COSB = ((XX(3)-XX(2))/EDGLEN(2)) SINB = ((YY(3)-YY(2))/EDGLEN(2)) COSC = ((XX(1)-XX(3))/EDGLEN(3)) SINC = ((YY(1)-YY(3))/EDGLEN(3)) C AA(1) = SINA AA(2) = COSA AA(3) = 1.0 AA(4) = SINB AA(5) = COSB AA(6) = 1.0 AA(7) = SINC AA(8) = COSC AA(9) = 1.0 C CALL INVERS (3,AA,3,BDUM,0,DETERM,ISING,INDEX) IF (ISING .NE. 1) GO TO 30 C AIC( 1) = AA(1)*SINA AIC( 2) = AA(1)*COSA AIC( 3) = AA(2)*SINB AIC( 4) = AA(2)*COSB AIC( 5) = AA(3)*SINC AIC( 6) = AA(3)*COSC AIC( 7) = AA(4)*SINA AIC( 8) = AA(4)*COSA AIC( 9) = AA(5)*SINB AIC(10) = AA(5)*COSB AIC(11) = AA(6)*SINC AIC(12) = AA(6)*COSC AIC(13) = AA(7)*SINA AIC(14) = AA(7)*COSA AIC(15) = AA(8)*SINB AIC(16) = AA(8)*COSB AIC(17) = AA(9)*SINC AIC(18) = AA(9)*COSC C C CALCULATE THE BENDING STIFFNESS FACTORS C H1 = LY H2 = LX K11 = 1.0/(H1*H1)*GB(5) K22 = 1.0/(H2*H2)*GB(1) C JOK = K11*K22 IF (JOK .NE. 0.0) JOK = 1.0/JOK JOG = 0.0 IF (SHRFLX) JOG = GS(1)*GS(4) - GS(2)*GS(3) IF (JOG .NE. 0.0) JOG = 1.0/JOG GO TO 40 C 30 IERR = 1 40 RETURN END ================================================ FILE: mis/t3pl4d.f ================================================ SUBROUTINE T3PL4D C C DOUBLE PRECISION ROUTINE TO PROCESS PLOAD4 PRESSURE DATA AND C GENERATE EQUIVALENT NODAL LOADS FOR A TRIA3 ELEMENT. C C WAS NAMED T3PRSD (LOADVC,RPDATA,IPDATA) IN UAI C C EST LISTING C C WORD TYP DESCRIPTION C ---------------------------------------------------------------- C ECT: C 1 I ELEMENT ID, EID C 2-4 I SIL LIST, GRIDS 1,2,3 C 5-7 R MEMBRANE THICKNESSES T, AT GRIDS 1,2,3 C 8 R MATERIAL PROPERTY ORIENTAION ANGLE, THETA C OR I COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD) C 9 I TYPE FLAG FOR WORD 8 C 10 R GRID OFFSET, ZOFF C EPT: C 11 I MATERIAL ID FOR MEMBRANE, MID1 C 12 R ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED) C 13 I MATERIAL ID FOR BENDING, MID2 C 14 R MOMENT OF INERTIA FACTOR, I (BENDING) C 15 I MATERIAL ID FOR TRANSVERSE SHEAR, MID3 C 16 R TRANSV. SHEAR CORRECTION FACTOR, TS/T C 17 R NON-STRUCTURAL MASS, NSM C 18-19 R STRESS FIBER DISTANCES, Z1,Z2 C 20 I MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4 C 21 R MATERIAL ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD) C (DEFAULT FOR WORD 8) C 22 I TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9) C 23 I INTEGRATION ORDER FLAG C 24 R STRESS ANGLE OF RATATION, THETA C OR I COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD) C 25 I TYPE FLAG FOR WORD 24 C 26 R OFFSET, ZOFF1 (DEFAULT FOR WORD 10) C BGPDT: C 27-38 I/R CID,X,Y,Z FOR GRIDS 1,2,3 C ETT: C 39 I ELEMENT TEMPERATURE C C DATA IN THE PLOAD4 ENTRY, 11 WORDS IN ISLT ARRAY C C EID - ELEMENT ID, IPDATA(0)=ISLT(1) C PPP - CORNER GRID POINT PRESSURES PER UNIT SURFACE AREA, C RPDATA (1-4) C DUM - DUMMY DATA WORDS, IPDATA (5-6) C CID - COORDINATE SYSTEM FOR DEFINITION OF PRESSURE VECTOR, C IPDATA(7) C NV - PRESSURE DIRECTION VECTOR, RPDATA(8-10) C - IF CID IS BLANK OR ZERO, THE PRESSURE ACTS NORMAL TO THE C SURFACE OF THE ELEMENT. C C EQUIVALENT NUMERICAL INTEGRATION POINT LOADS PP(III) ARE OBTAINED C VIA BI-LINEAR INTERPOLATION C LOGICAL CONSTP,SHEART,NORMAL INTEGER IPDATA(7),ISLT(1),IGPDT(4,3),SIL(3),IORDER(3), 1 ELID,CID,SYSBUF,NOUT,NOGO REAL GPTH(3),BGPDT(4,3),NV(3),NVX(3),LOCATE(3), 1 PE(3,3),RPDATA(1),LOADVC DOUBLE PRECISION DPE(3,3),SHP(3),WEIGHT,DETJAC,V3T(3), 1 P,PPP(3),BTERMS(6),BMATRX(162),EGPDT(4,3), 2 CENTE(3),GPNORM(4,3),EPNORM(4,3),TEB(9),TUB(9), 3 DGPTH(3),TH,AVGTHK,AIC(1),EDGLEN(3),LX,LY COMMON /SYSTEM/ SYSBUF,NOUT,NOGO COMMON /ZZZZZZ/ LOADVC(1) COMMON /PINDEX/ EST(45),SLT(11) EQUIVALENCE (SLT( 1),ISLT(1)),(EST( 1),ELID),(EST(2),SIL(1)), 1 (EST( 5),GPTH(1)),(EST(12),ELTH), 2 (EST(27),BGPDT(1,1),IGPDT(1,1)), 3 (SLT( 2),IPDATA(1) ,RPDATA(1)) C C INITIALIZE C WEIGHT = 1.0D0/6.0D0 SHEART = .FALSE. NNODE = 3 NDOF = 3 DO 10 I = 1,NDOF DO 10 J = 1,NNODE DPE(I,J) = 0.0D0 10 CONTINUE C C GET THE PRESSURE INFORMATION C C EST (45 WORDS) AND SLT (11 WORDS) ARE THE DATA FOR EST AND SLT C WHICH ARE READ IN BY EXTERN AND ARE READY TO BE USED C C IF ISLT(1).GT.0, GET THE PLOAD4 DATA FROM THE PROCESSED PLOAD2 C INFORMATION IN ARRAY SLT. C (NOT AVAILABLE IN COSMIC/NASTRAN) C IF ISLT(1).LT.0, GET THE PLOAD4 DATA FROM THE ORIGINAL PLOAD4 C INFORMATION IN ARRAY RPDATA. C (SET TO NEGATIVE BY PLOAD4 SUBROUTINE) C IF (ISLT(1) .LT. 0) GO TO 20 NORMAL = .TRUE. CONSTP = .TRUE. P = DBLE(SLT(2)) GO TO 60 C 20 DO 30 I = 1,NNODE PPP(I) = DBLE(RPDATA(I)) 30 CONTINUE CONSTP = PPP(2).EQ.0.0D0 .AND. PPP(3).EQ.0.0D0 IF (CONSTP) P = PPP(1) CID = IPDATA(7) C C GET THE DIRECTION VECTOR AND NORMALIZE IT C X = 0.0 DO 40 I = 1,NNODE NV(I) = RPDATA(I+7) X = X + NV(I)*NV(I) 40 CONTINUE NORMAL = .TRUE. IF (X .LE. 0.0) GO TO 60 NORMAL = .FALSE. X = SQRT(X) DO 50 I = 1,NNODE NV(I) = NV(I)/X 50 CONTINUE C C SET UP THE ELEMENT FORMULATION C 60 CALL T3SETD (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM, 1 IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID) IF (IERR .NE. 0) GO TO 200 C C START THE LOOP ON INTEGRATION POINTS C DO 150 IPT = 5,7 C CALL T3BMGD (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,SHP, 1 BTERMS,BMATRX) IF (IERR .NE. 0) GO TO 200 C C CALCULATE THE PRESSURE AT THIS POINT C IF (CONSTP) GO TO 80 P = 0.0D0 DO 70 I = 1,NNODE P = P + SHP(I)*PPP(I) 70 CONTINUE C C SET THE DIRECTION OF PRESSURE AT THIS POINT. C THE RESULTING VECTOR MUST BE IN THE BASIC COORD. SYSTEM C 80 IF (.NOT.NORMAL) GO TO 90 V3T(1) = TEB(7)*DETJAC V3T(2) = TEB(8)*DETJAC V3T(3) = TEB(9)*DETJAC GO TO 120 C 90 IF (CID .NE. 0) GO TO 100 V3T(1) = NV(1)*DETJAC V3T(2) = NV(2)*DETJAC V3T(3) = NV(3)*DETJAC GO TO 120 C C FOR NON-ZERO CID, COMPUTE THE LOCATION OF THE INTEGRATION POINT SO C THAT WE CAN ROTATE THE USER VECTOR PER CID. THIS LOCATION IS C REQUIRED ONLY IF CID IS CYLINDRICAL OR SPHERICAL. C 100 LOCATE(1) = 0.0 LOCATE(2) = 0.0 LOCATE(3) = 0.0 DO 110 J = 1,NNODE LOCATE(1) = LOCATE(1) + BGPDT(2,J)*SHP(J) LOCATE(2) = LOCATE(2) + BGPDT(3,J)*SHP(J) LOCATE(3) = LOCATE(3) + BGPDT(4,J)*SHP(J) 110 CONTINUE C C NOW ROTATE THE VECTOR C CALL GLBBAS (NV(1),NVX(1),LOCATE(1),CID) V3T(1) = NVX(1)*DETJAC V3T(2) = NVX(2)*DETJAC V3T(3) = NVX(3)*DETJAC C C COMPUTE THE CONTRIBUTION TO THE LOAD MATRIX FROM THIS INTEGRATION C POINT AS NT*P*V3T C 120 DO 130 I = 1,NNODE DO 130 J = 1,NDOF DPE(J,I) = DPE(J,I) + WEIGHT*P*SHP(I)*V3T(J) PE(J,I) = DPE(J,I) 130 CONTINUE C 150 CONTINUE C C END OF NUMERICAL INTEGRATION LOOP C ADD ELEMENT LOAD TO OVERALL LOAD. C DO 170 J = 1,NNODE IF (IGPDT(1,J) .NE. 0) CALL BASGLB (PE(1,J),PE(1,J),BGPDT(2,J), 1 IGPDT(1,J)) JP = SIL(J) - 1 DO 170 I = 1,NDOF LOADVC(JP+I) = LOADVC(JP+I) + PE(I,J) 170 CONTINUE GO TO 250 C C FATAL ERROR C 200 ISLT(1) = IABS(ISLT(1)) CALL MESAGE (30,224,ISLT(1)) NOGO = 1 C 250 RETURN END ================================================ FILE: mis/t3pl4s.f ================================================ SUBROUTINE T3PL4S C C SINGLE PRECISION ROUTINE TO PROCESS PLOAD4 PRESSURE DATA AND C GENERATE EQUIVALENT NODAL LOADS FOR A TRIA3 ELEMENT. C C WAS NAMED T3PRSS (LOADVC,RPDATA,IPDATA) IN UAI C C EST LISTING C C WORD TYP DESCRIPTION C ---------------------------------------------------------------- C ECT: C 1 I ELEMENT ID, EID C 2-4 I SIL LIST, GRIDS 1,2,3 C 5-7 R MEMBRANE THICKNESSES T, AT GRIDS 1,2,3 C 8 R MATERIAL PROPERTY ORIENTAION ANGLE, THETA C OR I COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD) C 9 I TYPE FLAG FOR WORD 8 C 10 R GRID OFFSET, ZOFF C EPT: C 11 I MATERIAL ID FOR MEMBRANE, MID1 C 12 R ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED) C 13 I MATERIAL ID FOR BENDING, MID2 C 14 R MOMENT OF INERTIA FACTOR, I (BENDING) C 15 I MATERIAL ID FOR TRANSVERSE SHEAR, MID3 C 16 R TRANSV. SHEAR CORRECTION FACTOR, TS/T C 17 R NON-STRUCTURAL MASS, NSM C 18-19 R STRESS FIBER DISTANCES, Z1,Z2 C 20 I MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4 C 21 R MATERIAL ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD) C (DEFAULT FOR WORD 8) C 22 I TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9) C 23 I INTEGRATION ORDER FLAG C 24 R STRESS ANGLE OF RATATION, THETA C OR I COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD) C 25 I TYPE FLAG FOR WORD 24 C 26 R OFFSET, ZOFF1 (DEFAULT FOR WORD 10) C BGPDT: C 27-38 I/R CID,X,Y,Z FOR GRIDS 1,2,3 C ETT: C 39 I ELEMENT TEMPERATURE C C C DATA IN THE PLOAD4 ENTRY, 11 WORDS IN ISLT ARRAY C C EID - ELEMENT ID, IPDATA(0)=ISLT(1) C PPP - CORNER GRID POINT PRESSURES PER UNIT SURFACE AREA, C RPDATA (1-4) C DUM - DUMMY DATA WORDS, IPDATA (5-6) C CID - COORDINATE SYSTEM FOR DEFINITION OF PRESSURE VECTOR, C IPDATA(7) C NV - PRESSURE DIRECTION VECTOR, RPDATA(8-10) C - IF CID IS BLANK OR ZERO, THE PRESSURE ACTS NORMAL TO THE C SURFACE OF THE ELEMENT. C C EQUIVALENT NUMERICAL INTEGRATION POINT LOADS PP(III) ARE OBTAINED C VIA BI-LINEAR INTERPOLATION C C LOGICAL CONSTP,SHEART,NORMAL INTEGER IPDATA(7),ISLT(1),IGPDT(4,3),SIL(3),IORDER(3), 1 ELID,CID,SYSBUF,NOUT,NOGO REAL GPTH(3),BGPDT(4,3),NV(3),NVX(3),LOCATE(3), 1 PE(3,3),RPDATA(1),LOADVC REAL DPE(3,3),SHP(3),WEIGHT,DETJAC,X,UNV(3),V3T(3), 1 P,PPP(3),BTERMS(6),BMATRX(162),EGPDT(4,3), 2 CENTE(3),GPNORM(4,3),EPNORM(4,3),TEB(9),TUB(9), 3 DGPTH(3),TH,AVGTHK,AIC(1),EDGLEN(3),LX,LY COMMON /SYSTEM/ SYSBUF,NOUT,NOGO COMMON /ZZZZZZ/ LOADVC(1) COMMON /PINDEX/ EST(45),SLT(11) EQUIVALENCE (SLT( 1),ISLT(1)),(EST( 1),ELID),(EST(2),SIL(1)), 1 (EST( 5),GPTH(1)),(EST(12),ELTH), 2 (EST(27),BGPDT(1,1),IGPDT(1,1)), 3 (SLT( 2),IPDATA(1) ,RPDATA(1)) C C C INITIALIZE C WEIGHT = 1.0/6.0 SHEART = .FALSE. NNODE = 3 NDOF = 3 DO 10 I = 1,NDOF DO 10 J = 1,NNODE DPE(I,J) = 0.0 10 CONTINUE C C GET THE PRESSURE INFORMATION C C EST (45 WORDS) AND SLT (11 WORDS) ARE THE DATA FOR EST AND SLT C WHICH ARE READ IN BY EXTERN AND ARE READY TO BE USED C C C IF ISLT(1).GT.0, GET THE PLOAD4 DATA FROM THE PROCESSED PLOAD2 C INFORMATION IN ARRAY SLT. C (NOT AVAILABLE IN COSMIC.NASTRAN) C IF ISLT(1).LT.0, GET THE PLOAD4 DATA FROM THE ORIGINAL PLOAD4 C INFORMATION IN ARRAY PDATA. C IF (ISLT(1) .LT. 0) GO TO 20 NORMAL = .TRUE. CONSTP = .TRUE. P = SLT(2) GO TO 60 C 20 DO 30 I = 1,NNODE PPP(I) = RPDATA(I) 30 CONTINUE CONSTP = PPP(2).EQ.0.0 .AND. PPP(3).EQ.0.0 IF (CONSTP) P = PPP(1) CID = IPDATA(7) C C GET THE DIRECTION VECTOR AND NORMALIZE IT C X = 0.0 DO 40 I = 1,NNODE UNV(I) = RPDATA(I+7) X = X + UNV(I)*UNV(I) 40 CONTINUE C NORMAL = .TRUE. IF (X .LE. 0.0) GO TO 60 NORMAL = .FALSE. X = SQRT(X) DO 50 I = 1,NNODE NV(I) = UNV(I)/X 50 CONTINUE C C SET UP THE ELEMENT FORMULATION C 60 CALL T3SETS (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM, 1 IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID) IF (IERR .NE. 0) GO TO 200 C C START THE LOOP ON INTEGRATION POINTS C DO 150 IPT = 5,7 C CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,SHP, 1 BTERMS,BMATRX) IF (IERR .NE. 0) GO TO 200 C C CALCULATE THE PRESSURE AT THIS POINT C IF (CONSTP) GO TO 80 P = 0.0 DO 70 I = 1,NNODE P = P + SHP(I)*PPP(I) 70 CONTINUE C C SET THE DIRECTION OF PRESSURE AT THIS POINT. C THE RESULTING VECTOR MUST BE IN THE BASIC COORD. SYSTEM C 80 IF (.NOT.NORMAL) GO TO 90 V3T(1) = TEB(7)*DETJAC V3T(2) = TEB(8)*DETJAC V3T(3) = TEB(9)*DETJAC GO TO 120 C 90 IF (CID .NE. 0) GO TO 100 V3T(1) = NV(1)*DETJAC V3T(2) = NV(2)*DETJAC V3T(3) = NV(3)*DETJAC GO TO 120 C C FOR NON-ZERO CID, COMPUTE THE LOCATION OF THE INTEGRATION POINT SO C THAT WE CAN ROTATE THE USER VECTOR PER CID. THIS LOCATION IS C REQUIRED ONLY IF CID IS CYLINDRICAL OR SPHERICAL. C 100 LOCATE(1) = 0.0 LOCATE(2) = 0.0 LOCATE(3) = 0.0 DO 110 J = 1,NNODE LOCATE(1) = LOCATE(1) + BGPDT(2,J)*SHP(J) LOCATE(2) = LOCATE(2) + BGPDT(3,J)*SHP(J) LOCATE(3) = LOCATE(3) + BGPDT(4,J)*SHP(J) 110 CONTINUE C C NOW ROTATE THE VECTOR C CALL GLBBAS (NV(1),NVX(1),LOCATE(1),CID) V3T(1) = NVX(1)*DETJAC V3T(2) = NVX(2)*DETJAC V3T(3) = NVX(3)*DETJAC C C COMPUTE THE CONTRIBUTION TO THE LOAD MATRIX FROM THIS INTEGRATION C POINT AS NT*P*V3T C 120 DO 130 I = 1,NNODE DO 130 J = 1,NDOF DPE(J,I) = DPE(J,I) + WEIGHT*P*SHP(I)*V3T(J) PE(J,I) = DPE(J,I) 130 CONTINUE C 150 CONTINUE C C END OF NUMERICAL INTEGRATION LOOP C ADD ELEMENT LOAD TO OVERALL LOAD. C DO 170 J = 1,NNODE IF (IGPDT(1,J) .NE. 0) CALL BASGLB (PE(1,J),PE(1,J),BGPDT(2,J), 1 IGPDT(1,J)) C JP = SIL(J) - 1 DO 170 I = 1,NDOF LOADVC(JP+I) = LOADVC(JP+I) + PE(I,J) 170 CONTINUE GO TO 250 C C FATAL ERROR C 200 ISLT(1) = IABS(ISLT(1)) CALL MESAGE (30,224,ISLT(1)) NOGO = 1 C 250 RETURN END ================================================ FILE: mis/t3setd.f ================================================ SUBROUTINE T3SETD (IERR,SIL,JGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM, 1 EPNORM,IORDER,TEB,TUB,CENT,AVGTHK,LX,LY,EDGLEN,ELID) C C DOUBLE PRECISION ROUTINE TO DO THE SET-UP FOR TRIA3 ELEMENTS C C C INPUT : C SIL - ARRAY OF SIL NUMBERS C JGPDT - BGPDT DATA (INTEGER ARRAY) C ELTH - ELEMENT THICKNESS FROM EPT C GPTH - GRID POINT THICKNESS DATA C ELID - ELEMENT ID C OUTPUT: C IERR - ERROR FLAG C SIL - ARRAY OF SIL NUMBERS (REARRANGED) C JGPDT - BGPDT DATA (INTEGER ARRAY) (REARRANGED) C GPTH - GRID POINT THICKNESS DATA (REARRANGED) C DGPTH - GRID POINT THICKNESS DATA (HIGH PREC) C EGPDT - BGPDT DATA IN ELEMENT COORD. SYSTEM C GPNORM - GRID POINT NORMALS C EPNORM - GRID POINT NORMALS IN ELEMENT COORD .SYSTEM C IORDER - ARRAY OF ORDER INDICATORS FOR REARRANGED DATA C TEB - TRANSFORMATION FROM ELEMENT TO BASIC COORD. SYSTEM C TUB - TRANSFORMATION FROM USER TO BASIC COORD. SYSTEM C CENT - LOCATION OF THE CENTER OF THE ELEMENT C AVGTHK - AVERAGE THICKNESS OF THE ELEMENT C LX - DIMENSION OF ELEMENT ALONG X-AXIS C LY - DIMENSION OF ELEMENT ALONG Y-AXIS C EDGLEN - EDGE LENGTHS C C INTEGER IGPDT(4,3),JGPDT(4,3),IGRID(4,3),SIL(3), 1 IORDER(3),KSIL(3),ELID REAL BGPDT(4,3),GPTH(3),TMPTHK(3) DOUBLE PRECISION CENT(3),EGPDT(4,3),GGU(9),TEB(9),TUB(9),CC, 1 DGPTH(3),GPNORM(4,3),EPNORM(4,3),AVGTHK,LX,LY, 2 AREA2,LENGTH,SMALL,X(3),Y(3),Z(3),EDG12(3), 3 EDG23(3),EDG13(3),EDGLEN(3),AXIS(3,3) EQUIVALENCE (IGPDT(1,1),BGPDT(1,1)) C C C INITIALIZE C IERR = 0 NNODE = 3 C DO 100 I = 1,NNODE DO 100 J = 1,4 IGPDT(J,I) = JGPDT(J,I) 100 CONTINUE C C SET UP THE USER COORDINATE SYSTEM C DO 120 I = 1,3 II = (I-1)*3 DO 120 J = 1,3 GGU(II+J) = DBLE(BGPDT(J+1,I)) 120 CONTINUE CALL BETRND (TUB,GGU,0,ELID) C C SET UP THE ELEMENT COORDINATE SYSTEM C C 1. SET UP THE EDGE VECTORS AND THEIR LENGTHS C DO 140 I = 1,NNODE X(I) = BGPDT(2,I) Y(I) = BGPDT(3,I) Z(I) = BGPDT(4,I) 140 CONTINUE C CENT(1) = (X(1)+X(2)+X(3))/3.0D0 CENT(2) = (Y(1)+Y(2)+Y(3))/3.0D0 CENT(3) = (Z(1)+Z(2)+Z(3))/3.0D0 C EDG12(1) = X(2) - X(1) EDG12(2) = Y(2) - Y(1) EDG12(3) = Z(2) - Z(1) EDGLEN(1)= EDG12(1)**2 + EDG12(2)**2 + EDG12(3)**2 IF (EDGLEN(1) .EQ. 0.0D0) GO TO 380 EDGLEN(1) = DSQRT(EDGLEN(1)) C EDG23(1) = X(3) - X(2) EDG23(2) = Y(3) - Y(2) EDG23(3) = Z(3) - Z(2) EDGLEN(2)= EDG23(1)**2 + EDG23(2)**2 + EDG23(3)**2 IF (EDGLEN(2) .EQ. 0.0D0) GO TO 380 EDGLEN(2) = DSQRT(EDGLEN(2)) C EDG13(1) = X(3) - X(1) EDG13(2) = Y(3) - Y(1) EDG13(3) = Z(3) - Z(1) EDGLEN(3)= EDG13(1)**2 + EDG13(2)**2 + EDG13(3)**2 IF (EDGLEN(3) .EQ. 0.0D0) GO TO 380 EDGLEN(3) = DSQRT(EDGLEN(3)) C C 2. FIND THE SMALLEST EDGE LENGTH C SMALL = EDGLEN(1) NODEI = 3 NODEJ = 1 NODEK = 2 C IF (EDGLEN(2) .GE. SMALL) GO TO 160 SMALL = EDGLEN(2) NODEI = 1 NODEJ = 2 NODEK = 3 160 IF (EDGLEN(3) .GE. SMALL) GO TO 180 SMALL = EDGLEN(3) NODEI = 2 NODEJ = 1 NODEK = 3 C C 3. ESTABLISH AXIS 3 AND NORMALIZE IT C 180 CALL DAXB (EDG12,EDG13,AXIS(1,3)) C LENGTH = DSQRT(AXIS(1,3)**2 + AXIS(2,3)**2 + AXIS(3,3)**2) AXIS(1,3) = AXIS(1,3)/LENGTH AXIS(2,3) = AXIS(2,3)/LENGTH AXIS(3,3) = AXIS(3,3)/LENGTH AREA2 = LENGTH C C 4. ESTABLISH AXES 1 AND 2 AND NORMALIZE THEM C AXIS(1,1) = (X(NODEJ)+X(NODEK))/2.0D0 - X(NODEI) AXIS(2,1) = (Y(NODEJ)+Y(NODEK))/2.0D0 - Y(NODEI) AXIS(3,1) = (Z(NODEJ)+Z(NODEK))/2.0D0 - Z(NODEI) C LENGTH = DSQRT(AXIS(1,1)**2 + AXIS(2,1)**2 + AXIS(3,1)**2) AXIS(1,1) = AXIS(1,1)/LENGTH AXIS(2,1) = AXIS(2,1)/LENGTH AXIS(3,1) = AXIS(3,1)/LENGTH C CALL DAXB (AXIS(1,3),AXIS(1,1),AXIS(1,2)) C DO 200 I = 1,3 TEB(I ) = AXIS(I,1) TEB(I+3) = AXIS(I,2) TEB(I+6) = AXIS(I,3) 200 CONTINUE C LX = LENGTH LY = AREA2/LX C C C THE ELEMENT COORDINATE SYSTEM IS NOW READY C C THE ARRAY IORDER STORES THE ELEMENT NODE ID IN INCREASING SIL C ORDER. C C IORDER(1) = NODE WITH LOWEST SIL NUMBER C IORDER(3) = NODE WITH HIGHEST SIL NUMBER C C ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST G1,G2,.... C THAT IS, THE 'I' PART OF THE 'GI' AS THEY ARE LISTED ON THE C CONNECTION BULK DATA CARD DESCRIPTION. C DO 220 I = 1,NNODE KSIL(I) = SIL(I) 220 CONTINUE C DO 260 I = 1,NNODE ITEMP = 1 ISIL = KSIL(1) DO 240 J = 2,NNODE IF (ISIL .LE. KSIL(J)) GO TO 240 ITEMP = J ISIL = KSIL(J) 240 CONTINUE IORDER(I) = ITEMP KSIL(ITEMP) = 99999999 260 CONTINUE C C USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE GEOMETRY DATA C INTO INCREASING SIL ORDER. C DO 280 I = 1,NNODE KSIL(I) = SIL(I) TMPTHK(I) = GPTH(I) DO 280 J = 1,4 IGRID(J,I) = IGPDT(J,I) 280 CONTINUE DO 300 I = 1,NNODE IPOINT = IORDER(I) SIL(I) = KSIL(IPOINT) GPTH(I)= TMPTHK(IPOINT) DO 300 J = 1,4 IGPDT(J,I) = IGRID(J,IPOINT) JGPDT(J,I) = IGPDT(J,I) 300 CONTINUE C C THE COORDINATES OF THE ELEMENT GRID POINTS MUST BE TRANSFORMED C FROM THE BASIC COORD. SYSTEM TO THE ELEMENT COORD. SYSTEM C DO 320 I = 1,3 IP = (I-1)*3 DO 320 J = 1,NNODE EGPDT(I+1,J) = 0.0D0 DO 320 K = 1,3 CC = DBLE(BGPDT((K+1),J)) - CENT(K) EGPDT(I+1,J) = EGPDT(I+1,J) + TEB(IP+K)*CC 320 CONTINUE C C SET NODAL NORMALS C DO 340 I = 1,NNODE EPNORM(1,I) = 0.0D0 EPNORM(2,I) = 0.0D0 EPNORM(3,I) = 0.0D0 EPNORM(4,I) = 1.0D0 GPNORM(1,I) = 0.0D0 GPNORM(2,I) = TEB(7) GPNORM(3,I) = TEB(8) GPNORM(4,I) = TEB(9) 340 CONTINUE C C SET NODAL THICKNESSES C AVGTHK = 0.0D0 DO 370 I = 1,NNODE IF (GPTH(I)) 380,350,360 350 IF (ELTH .LE. 0) GO TO 380 GPTH(I) = ELTH 360 DGPTH(I) = DBLE(GPTH(I)) AVGTHK = AVGTHK + DGPTH(I)/NNODE 370 CONTINUE GO TO 400 C 380 IERR = 1 400 RETURN END ================================================ FILE: mis/t3sets.f ================================================ SUBROUTINE T3SETS (IERR,SIL,JGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM, 1 EPNORM,IORDER,TEB,TUB,CENT,AVGTHK,LX,LY,EDGLEN,ELID) C C SINGLE PRECISION ROUTINE TO DO THE SET-UP FOR TRIA3 ELEMENTS C C C INPUT : C SIL - ARRAY OF SIL NUMBERS C JGPDT - BGPDT DATA (INTEGER ARRAY) C ELTH - ELEMENT THICKNESS FROM EPT C GPTH - GRID POINT THICKNESS DATA C ELID - ELEMENT ID C OUTPUT: C IERR - ERROR FLAG C SIL - ARRAY OF SIL NUMBERS (REARRANGED) C JGPDT - BGPDT DATA (INTEGER ARRAY) (REARRANGED) C GPTH - GRID POINT THICKNESS DATA (REARRANGED) C DGPTH - GRID POINT THICKNESS DATA (HIGH PREC) C EGPDT - BGPDT DATA IN ELEMENT COORD. SYSTEM C GPNORM - GRID POINT NORMALS C EPNORM - GRID POINT NORMALS IN ELEMENT COORD .SYSTEM C IORDER - ARRAY OF ORDER INDICATORS FOR REARRANGED DATA C TEB - TRANSFORMATION FROM ELEMENT TO BASIC COORD. SYSTEM C TUB - TRANSFORMATION FROM USER TO BASIC COORD. SYSTEM C CENT - LOCATION OF THE CENTER OF THE ELEMENT C AVGTHK - AVERAGE THICKNESS OF THE ELEMENT C LX - DIMENSION OF ELEMENT ALONG X-AXIS C LY - DIMENSION OF ELEMENT ALONG Y-AXIS C EDGLEN - EDGE LENGTHS C C INTEGER IGPDT(4,3),JGPDT(4,3),IGRID(4,3),SIL(3), 1 IORDER(3),KSIL(3),ELID REAL BGPDT(4,3),GPTH(3),TMPTHK(3) REAL CENT(3),EGPDT(4,3),GGU(9),TEB(9),TUB(9),CC, 1 DGPTH(3),GPNORM(4,3),EPNORM(4,3),AVGTHK,LX,LY, 2 AREA2,LENGTH,SMALL,X(3),Y(3),Z(3),EDG12(3), 3 EDG23(3),EDG13(3),EDGLEN(3),AXIS(3,3) EQUIVALENCE (IGPDT(1,1),BGPDT(1,1)) C C C INITIALIZE C IERR = 0 NNODE = 3 C DO 100 I = 1,NNODE DO 100 J = 1,4 IGPDT(J,I) = JGPDT(J,I) 100 CONTINUE C C SET UP THE USER COORDINATE SYSTEM C DO 120 I = 1,3 II = (I-1)*3 DO 120 J = 1,3 GGU(II+J) = BGPDT(J+1,I) 120 CONTINUE CALL BETRNS (TUB,GGU,0,ELID) C C SET UP THE ELEMENT COORDINATE SYSTEM C C 1. SET UP THE EDGE VECTORS AND THEIR LENGTHS C DO 140 I = 1,NNODE X(I) = BGPDT(2,I) Y(I) = BGPDT(3,I) Z(I) = BGPDT(4,I) 140 CONTINUE C CENT(1) = (X(1)+X(2)+X(3))/3.0 CENT(2) = (Y(1)+Y(2)+Y(3))/3.0 CENT(3) = (Z(1)+Z(2)+Z(3))/3.0 C EDG12(1) = X(2) - X(1) EDG12(2) = Y(2) - Y(1) EDG12(3) = Z(2) - Z(1) EDGLEN(1)= EDG12(1)**2 + EDG12(2)**2 + EDG12(3)**2 IF (EDGLEN(1) .EQ. 0.0) GO TO 380 EDGLEN(1) = SQRT(EDGLEN(1)) C EDG23(1) = X(3) - X(2) EDG23(2) = Y(3) - Y(2) EDG23(3) = Z(3) - Z(2) EDGLEN(2)= EDG23(1)**2 + EDG23(2)**2 + EDG23(3)**2 IF (EDGLEN(2) .EQ. 0.0) GO TO 380 EDGLEN(2) = SQRT(EDGLEN(2)) C EDG13(1) = X(3) - X(1) EDG13(2) = Y(3) - Y(1) EDG13(3) = Z(3) - Z(1) EDGLEN(3)= EDG13(1)**2 + EDG13(2)**2 + EDG13(3)**2 IF (EDGLEN(3) .EQ. 0.0) GO TO 380 EDGLEN(3) = SQRT(EDGLEN(3)) C C 2. FIND THE SMALLEST EDGE LENGTH C SMALL = EDGLEN(1) NODEI = 3 NODEJ = 1 NODEK = 2 C IF (EDGLEN(2) .GE. SMALL) GO TO 160 SMALL = EDGLEN(2) NODEI = 1 NODEJ = 2 NODEK = 3 160 IF (EDGLEN(3) .GE. SMALL) GO TO 180 SMALL = EDGLEN(3) NODEI = 2 NODEJ = 1 NODEK = 3 C C 3. ESTABLISH AXIS 3 AND NORMALIZE IT C 180 CALL SAXB (EDG12,EDG13,AXIS(1,3)) C LENGTH = SQRT(AXIS(1,3)**2 + AXIS(2,3)**2 + AXIS(3,3)**2) AXIS(1,3) = AXIS(1,3)/LENGTH AXIS(2,3) = AXIS(2,3)/LENGTH AXIS(3,3) = AXIS(3,3)/LENGTH AREA2 = LENGTH C C 4. ESTABLISH AXES 1 AND 2 AND NORMALIZE THEM C AXIS(1,1) = (X(NODEJ)+X(NODEK))/2.0 - X(NODEI) AXIS(2,1) = (Y(NODEJ)+Y(NODEK))/2.0 - Y(NODEI) AXIS(3,1) = (Z(NODEJ)+Z(NODEK))/2.0 - Z(NODEI) C LENGTH = SQRT(AXIS(1,1)**2 + AXIS(2,1)**2 + AXIS(3,1)**2) AXIS(1,1) = AXIS(1,1)/LENGTH AXIS(2,1) = AXIS(2,1)/LENGTH AXIS(3,1) = AXIS(3,1)/LENGTH C CALL SAXB (AXIS(1,3),AXIS(1,1),AXIS(1,2)) C DO 200 I = 1,3 TEB(I ) = AXIS(I,1) TEB(I+3) = AXIS(I,2) TEB(I+6) = AXIS(I,3) 200 CONTINUE C LX = LENGTH LY = AREA2/LX C C C THE ELEMENT COORDINATE SYSTEM IS NOW READY C C THE ARRAY IORDER STORES THE ELEMENT NODE ID IN INCREASING SIL C ORDER. C C IORDER(1) = NODE WITH LOWEST SIL NUMBER C IORDER(3) = NODE WITH HIGHEST SIL NUMBER C C ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST G1,G2,.... C THAT IS, THE 'I' PART OF THE 'GI' AS THEY ARE LISTED ON THE C CONNECTION BULK DATA CARD DESCRIPTION. C DO 220 I = 1,NNODE KSIL(I) = SIL(I) 220 CONTINUE C DO 260 I = 1,NNODE ITEMP = 1 ISIL = KSIL(1) DO 240 J = 2,NNODE IF (ISIL .LE. KSIL(J)) GO TO 240 ITEMP = J ISIL = KSIL(J) 240 CONTINUE IORDER(I) = ITEMP KSIL(ITEMP) = 99999999 260 CONTINUE C C USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE GEOMETRY DATA C INTO INCREASING SIL ORDER. C DO 280 I = 1,NNODE KSIL(I) = SIL(I) TMPTHK(I) = GPTH(I) DO 280 J = 1,4 IGRID(J,I) = IGPDT(J,I) 280 CONTINUE DO 300 I = 1,NNODE IPOINT = IORDER(I) SIL(I) = KSIL(IPOINT) GPTH(I)= TMPTHK(IPOINT) DO 300 J = 1,4 IGPDT(J,I) = IGRID(J,IPOINT) JGPDT(J,I) = IGPDT(J,I) 300 CONTINUE C C THE COORDINATES OF THE ELEMENT GRID POINTS MUST BE TRANSFORMED C FROM THE BASIC COORD. SYSTEM TO THE ELEMENT COORD. SYSTEM C DO 320 I = 1,3 IP = (I-1)*3 DO 320 J = 1,NNODE EGPDT(I+1,J) = 0.0 DO 320 K = 1,3 CC = BGPDT((K+1),J) - CENT(K) EGPDT(I+1,J) = EGPDT(I+1,J) + TEB(IP+K)*CC 320 CONTINUE C C SET NODAL NORMALS C DO 340 I = 1,NNODE EPNORM(1,I) = 0.0 EPNORM(2,I) = 0.0 EPNORM(3,I) = 0.0 EPNORM(4,I) = 1.0 GPNORM(1,I) = 0.0 GPNORM(2,I) = TEB(7) GPNORM(3,I) = TEB(8) GPNORM(4,I) = TEB(9) 340 CONTINUE C C SET NODAL THICKNESSES C AVGTHK = 0.0 DO 370 I = 1,NNODE IF (GPTH(I)) 380,350,360 350 IF (ELTH .LE. 0.0) GO TO 380 GPTH(I) = ELTH 360 DGPTH(I) = GPTH(I) AVGTHK = AVGTHK + DGPTH(I)/NNODE 370 CONTINUE GO TO 400 C 380 IERR = 1 400 RETURN END ================================================ FILE: mis/ta1.f ================================================ SUBROUTINE TA1 C C TA1 CONTROLS THE EXECUTION OF THE TABLE ASSEMBLER. C C DMAP CALL IS C C TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT, C ECPT,GPCT,MPTX,PCOMPS,EPTX/V,N,LUSET/V,N,NOSIMP=-1/ C V,N,NOSUP=-1,1,2/V,N,NOGENEL=-1/V,N,GENEL/V,N,COMPS=1 $ C C C EITHER THE GPECT OR BOTH GPECT AND ECPT, GPCT MAY BE GENERATED. C IF NOSUP .EQ. 1, GENERATE GPECT. IF NOSUP .EQ. 2 , GENERATE ALL. C IF NOSUP .LT. 0, GENERATE NONE. C C 1. TA1 EXECUTES TA1A WHICH BUILDS THE ELEMENT SUMMARY TABLE (EST) C 2. TA1 EXECUTES TA1B WHICH BUILDS THE ELEMENT CONNECTION AND C PROPERTIES TABLE (ECPT) AND THE GRID POINT CONNECTION TABLE(GPCT) C 3. IF GENERAL ELEMENTS ARE PRESENT, TA1 EXECUTES TA1C WHICH BUILDS C THE GENERAL ELEMENT INPUT (GEI). C 4. IF LAMINATED COMPOSITE ELEMENTS ARE PRESENT, TA1 EXECUTES C TA1CPS/D WHICH - C (1) CREATES PCOMPS DATA, WHICH INCLUDES THE ECHOING OF C INTRINSIC LAYER PROPERTIES, AND C (2) CALCULATES OVERALL MATERIAL PROPERTIES. C C EXTERNAL ANDF INTEGER GENL ,ECT ,EPT ,BGPDT ,SIL ,GPTT , 1 ECPT ,GPCT ,SCR1 ,SCR2 ,TWO ,EST , 2 ANDF ,SCR3 ,SCR4 ,GEI ,CSTM ,GPECT , 3 PCOMPS,EPTX ,COMPS ,EQEXIN,GENEL(2) DIMENSION MCB(7) COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL ,COMPS COMMON /SYSTEM/ ISYSTM(54) ,IPREC COMMON /TA1COM/ NSIL ,ECT ,EPT ,BGPDT ,SIL ,GPTT ,CSTM , 1 MPT ,EST ,GEI ,GPECT ,ECPT ,GPCT ,MPTX , 2 PCOMPS,EPTX ,SCR1 ,SCR2 ,SCR3 ,SCR4 ,EQEXIN COMMON /TWO / TWO(32) DATA GENEL / 4301 , 43 / C C INITIALIZE C CALL DELSET ECT = 101 EPT = 102 BGPDT = 103 SIL = 104 GPTT = 105 CSTM = 106 MPT = 107 EQEXIN = 108 C EST = 201 GEI = 202 GPECT = 203 ECPT = 204 GPCT = 205 MPTX = 206 PCOMPS = 207 EPTX = 208 C SCR1 = 301 SCR2 = 302 SCR3 = 303 SCR4 = 304 C C TEST FOR PRESENCE OF GENERAL ELEMENTS C NOGENL = -1 MCB(1) = ECT CALL RDTRL (MCB) IF (MCB(1) .LT. 0) GO TO 100 J = (GENEL(2)-1)/16 K = GENEL(2)-16*J IF (ANDF(MCB(J+2),TWO(K+16)) .NE. 0) NOGENL = 1 C C EXECUTE TA1A FOR ALL PROBLEMS C 100 CALL TA1A C C EXECUTE TA1CPD/S TO BUILD PCOMPS DATA C IF (NOSUP .EQ. 0) GO TO 300 IF (COMPS .NE.-1) GO TO 200 IF (IPREC .EQ. 1) CALL TA1CPS IF (IPREC .EQ. 2) CALL TA1CPD 200 IF (NOSUP .EQ. 1) GO TO 400 C C EXECUTE TA1B IF SIMPLE ELEMENTS ARE PRESENT C 300 IF (NOSIMP.GT. 0) CALL TA1B IF (NOSUP .EQ. 0) GO TO 500 C C CALL TA1H TO GENERATE GPECT C 400 IF (NOSIMP .GT. 0) CALL TA1H C C EXECUTE TA1C IF GENERAL ELEMENTS ARE PRESENT C 500 IF (NOGENL .GT. 0) CALL TA1C GENL = -NOGENL C RETURN END ================================================ FILE: mis/ta1a.f ================================================ SUBROUTINE TA1A C C TA1A BUILDS THE ELEMENT SUMMARY TABLE (EST). C THE EST GROUPS ECT, EPT, BGPDT AND ELEMENT TEMP. DATA FOR EACH C SIMPLE ELEMENT OF THE STRUCTURE. THE EST CONTAINS ONE LOGICAL C RECORD PER SIMPLE ELEMENT TYPE. C IMPLICIT INTEGER (A-Z) LOGICAL EORFLG,ENDID ,RECORD,FRSTIM,Q4T3 INTEGER ZEROS(4) ,BUF(50) ,NAM(2),GPSAV(34) , 1 PCOMP(2) ,PCOMP1(2) ,PCOMP2(2) , 2 IPSHEL(16) REAL DEFTMP,TLAM ,ZOFFS ,ZZ(1) ,BUFR(50) , 1 TGRID(33) ,RPSHEL(16) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL ,COMPS COMMON /TA1COM/ NSIL ,ECT ,EPT ,BGPDT ,SIL ,GPTT ,CSTM , 1 MPT ,EST ,GEI ,GPECT ,ECPT ,GPCT ,MPTX , 2 PCOMPS,EPTX ,SCR1 ,SCR2 ,SCR3 ,SCR4 COMMON /SYSTEM/ KSYSTM(65) COMMON /GPTA1 / NELEM ,LAST ,INCR ,ELEM(1) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW,CLS COMMON /TA1ETT/ ELTYPE,OLDEL ,EORFLG,ENDID ,BUFFLG,ITEMP ,IDFTMP, 1 IBACK ,RECORD,OLDEID COMMON /TA1ACM/ IG(90) COMMON /TWO / KTWO(32) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (KSYSTM( 1),SYSBUF ) , (KSYSTM( 2),NOUT ) , 1 (KSYSTM(10),TEMPID ) , (KSYSTM(56),IHEAT) , 2 (IDFTMP ,DEFTMP ) , (BUFR(1) ,BUF(1)), 3 (Z(1) ,ZZ(1) ) , (IPSHEL( 1),RPSHEL(1)) DATA NAM / 4HTA1A,4H / DATA ZEROS / 4*0 / DATA BAR / 34 / DATA HBDY / 52 / DATA QDMEM2/ 63 / DATA QUAD4 / 64 / DATA TRIA3 / 83 / DATA PCOMP / 5502, 55 / DATA PCOMP1/ 5602, 56 / DATA PCOMP2/ 5702, 57 / DATA SYM / 1 / DATA MEM / 2 / DATA SYMMEM/ 3 / C C PERFORM GENERAL INITIALIZATION C IF (NELEM .GT. 90) GO TO 1190 BUF1 = KORSZ(Z) - SYSBUF - 2 BUF2 = BUF1 - SYSBUF - 3 BUF3 = BUF2 - SYSBUF FRSTIM= .TRUE. LSTPRP= 0 KSCALR= 0 ITABL = 0 NOSIMP=-1 NOGOX = 0 NOGO = 0 M8 =-8 COMPS = 1 NOPSHL=-1 NPSHEL= 0 OLDID = 0 CALL SSWTCH (40,L40) C C READ THE ELEMENT CONNECTION TABLE. C IF PROPERTY DATA IS DEFINED FOR THE ELEMENT, READ THE EPT INTO C CORE AND SORT IF REQUIRED. THEN FOR EACH ECT ENTRY, LOOK UP AND C ATTACH THE PROPERTY DATA. WRITE ECT+EPT ON SCR1. C IF PROPERTY DATA NOT DEFINED FOR ELEMENT, COPY ECT DATA ON SCR1. C IF NO SIMPLE ELEMENTS IN ECT, RETURN. C C FOR THE PLATE AND SHELL ELEMENTS REFERENCING PCOMP, PCOMP1 OR C PCOMP2 BULK DATA ENTRIES, PROPERTY DATA IN THE FORM OF PSHELL C BULK DATA ENTRY IS CALLED AND WRITTEN TO SCR1 C FILE = ECT CALL OPEN (*540,ECT,Z(BUF1),RDREW) CALL SKPREC (ECT,1) FILE = SCR1 CALL OPEN (*1100,SCR1,Z(BUF3),WRTREW) BUF(1) = EPT CALL RDTRL(BUF) NOEPT = BUF(1) IF (BUF(1) .LT. 0) GO TO 10 CALL PRELOC (*10,Z(BUF2),EPT) C C LOCATE, ONE AT A TIME, SIMPLE ELEMENT TYPE IN ECT. IF PRESENT, C WRITE POINTER ON SCR1. SET POINTERS AND, IF DEFINED, LOCATE AND C READ ALL PROPERTY DATA FROM EPT. C 10 CALL ECTLOC (*200,ECT,BUF,I) ID = -1 ELTYPE = ELEM(I+2) CALL WRITE (SCR1,I,1,0) Q4T3 = .FALSE. IF (ELTYPE.EQ.QUAD4 .OR. ELTYPE.EQ.TRIA3) Q4T3 = .TRUE. IF (ELEM(I+10) .EQ. 0) KSCALR = 1 M = ELEM(I+5) MM = ELEM(I+8) IF (MM .EQ. 0) GO TO 120 MX = MM NOPROP = 0 IF (ELEM(I+6) .NE. LSTPRP) GO TO 20 IF (ELTYPE .EQ. QDMEM2) NOPROP = 1 GO TO 80 20 IF (NOEPT .LT. 0) GO TO 1130 C C LOCATE PROPERTY CARD C LL = 0 CALL LOCATE (*50,Z(BUF2),ELEM(I+6),FLAG) NOPROP = 1 30 LSTPRP = ELEM(I+6) 40 IF (LL+MM .GE. BUF3) CALL MESAGE (-8,0,NAM) IF (NOPROP .EQ. 0) GO TO 80 CALL READ (*1110,*55,EPT,Z(LL+1),MM,0,FLAG) LL = LL + MM GO TO 40 C C CHECK FOR QUAD4 AND TRIA3 ELEMENTS WITH ONLY PCOMP CARDS C C SET POINTER FOR NO PSHELL DATA, AND C READ PCOMP, PCOMP1 AND PCOMP2 DATA INTO CORE C 50 IF (.NOT.Q4T3) GO TO 60 NOPSHL = 1 GO TO 700 C C CHECK FOR QUAD4 AND TRIA3 ELEMENTS WITH BOTH PCOMP AND PSHELL C CARDS C C IF LL.GT.0 HERE, PSHELL DATA IS PRESENT, C NEED TO CHECK THE PRESENCE OF PCOMP DATA, AND RESET NOPSHL POINTER C IF NECCESSARY C C EVENTUALLY, WE WILL HAVE C C NOPSHL =-1, LOGIC ERROR FOR QUAD4/TRIA3 PROPERTY DATA C = 0, ONLY PSHELL DATA PRESENT C = 1, ONLY PCOMP TYPE DATA PRESENT C = 2, BOTH PSHELL AND PCOMP DATA PRESENT (SEE STA.760) C 55 IF (.NOT.Q4T3) GO TO 70 IF (LL .LE. 0) GO TO 700 NOPSHL = 0 GO TO 70 C 60 IF (NOPROP .EQ. 0) GO TO 1130 C C Z(1) THRU Z(LL) CONTAIN PROPERTY DATA C 70 IF (MM .LE. 4) CALL SORT (0,0,MM,1,Z(1),LL) KN = LL/MM IF (NOPSHL .EQ. 0) GO TO 700 C C READ ECT DATA FOR ELEMENT. LOOK UP PROPERTY DATA IF CURRENT ELEM. C HAS A PROPERTY ID DIFFERNENT FROM THAT OF THE PREVIOUS ELEMENT. C WRITE ECT + EPT (OR NEW GENERATED PSHELL) DATA ON SCR1. C 80 CALL READ (*1110,*140,ECT,BUF,M,0,FLAG) NOSIMP = NOSIMP + 1 IF (BUF(2) .NE. ID) NOPROP = 1 ID = BUF(2) BUF(2) = BUF(1) BUF(1) = M + MM - 2 IF (NOPROP .EQ. 0) GO TO 90 IF (Q4T3 .AND. NOPSHL.EQ.1) GO TO 800 NPSHEL = 0 GO TO 600 90 CALL WRITE (SCR1,BUF(1),M,0) IF (.NOT.Q4T3) GO TO 100 IF (NPSHEL .EQ. 1) GO TO 110 100 CALL WRITE (SCR1,Z(KX+2),MM-1,0) NPSHEL = 0 NOPROP = 0 GO TO 80 110 CALL WRITE (SCR1,IPSHEL(1),MM-1,0) NOPROP = 0 GO TO 80 C C EPT DATA NOT DEFINED FOR ELEMENT. COPY ECT DATA ON SCR1. C 120 BUF(1) = M M1 = M + 1 130 CALL READ (*1110,*140,ECT,BUF(2),M,0,FLAG) CALL WRITE (SCR1,BUF(1),M1,0) NOSIMP = NOSIMP + 1 GO TO 130 140 CALL WRITE (SCR1,0,0,1) GO TO 10 C C HERE WHEN ALL ELEMENTS HAVE BEEN PROCESSED. C IF NONE FOUND, EXIT. C 200 CONTINUE IF (NOEPT .GE. 0) CALL CLOSE (EPT,CLSREW) CALL CLOSE (SCR1,CLSREW) IF (NOSIMP .EQ. -1) RETURN NOSIMP = NOSIMP + 1 C C READ THE BGPDT INTO CORE (UNLESS ALL SCALAR PROBLEM). C READ THE SIL INTO CORE. C NBGP = 0 IF (KSCALR .EQ. 0) GO TO 220 FILE = BGPDT CALL OPEN (*1100,BGPDT,Z(BUF1),RDREW) CALL FWDREC (*1110,BGPDT) CALL READ (*1110,*210,BGPDT,Z(1),BUF2,1,NBGP) CALL MESAGE (M8,0,NAM) 210 CALL CLOSE (BGPDT,CLSREW) 220 FILE = SIL CALL OPEN (*1100,SIL,Z(BUF1),RDREW) CALL FWDREC (*1110,SIL) CALL READ (*1110,*230,SIL,Z(NBGP+1),BUF2-NBGP,1,NSIL) CALL MESAGE (M8,0,NAM) 230 CALL CLOSE (SIL,CLSREW) C C IF TEMP DEPENDENT MATERIALS IN PROBLEM, C OPEN GPTT AND POSITION TO PROPER THERMAL RECORD C RECORD = .FALSE. ITEMP = TEMPID IF (TEMPID .EQ. 0) GO TO 310 FILE = GPTT CALL OPEN (*1160,GPTT,Z(BUF3),RDREW) ITMPID = NBGP+NSIL+3 CALL READ (*1110,*240,GPTT,Z(ITMPID-2),BUF2-ITMPID,1,NID) CALL MESAGE (-8,0,NAM) 240 NTMPID = ITMPID - 5 + NID DO 250 I = ITMPID,NTMPID,3 IF (TEMPID .EQ. Z(I)) GO TO 260 250 CONTINUE GO TO 1160 260 IDFTMP = Z(I+1) IF (IDFTMP .NE. -1) DEFTMP = ZZ(I+1) N = Z(I+2) IF (N .EQ. 0) GO TO 310 RECORD =.TRUE. N = N - 1 IF (N .EQ. 0) GO TO 280 DO 270 I = 1,N CALL FWDREC (*1110,GPTT) 270 CONTINUE C C READ SET ID AND VERIFY FOR CORRECTNESS C 280 CALL READ (*1110,*1120,GPTT,ISET,1,0,FLAG) IF (ISET .EQ. TEMPID) GO TO 300 WRITE (NOUT, 290) SFM,ISET,TEMPID 290 FORMAT (A25,' 4020, TA1A HAS PICKED UP TEMPERATURE SET',I9, 1 ' AND NOT THE REQUESTED SET',I9) CALL MESAGE (-61,0,0) C C INITIALIZE /TA1ETT/ VARIABLES C 300 OLDEID = 0 OLDEL = 0 EORFLG =.FALSE. ENDID =.TRUE. C C LOOP THRU THE ECT+EPT DATA C CONVERT INTERNAL GRID POINT INDICES TO SIL VALUES FOR EACH NON- C SCALER ELEMENT, ATTACH THE BGPDT DATA AND, C IF A TEMPERATURE PROBLEM, COMPUTE THE ELEMENT TEMP FROM THE GPTT C DATA OR SUBSTITUTE THE DEFAULT TEMP. C WRITE THE RESULT ON THE EST, ONE RECORD PER ELEMENT TYPE C 310 CALL OPEN (*1100,SCR1,Z(BUF1),RDREW) CALL OPEN (*1100,EST,Z(BUF2),WRTREW) CALL FNAME (EST,BUF) CALL WRITE (EST,BUF,2,1) LOCBGP = 1 C C RESET SOME OF THE /TA1ACM/ VALUES IF IT IS A -HEAT- FORMULATION C IF (IHEAT .LE. 0) GO TO 320 C C TRIARG ELEMENT (TYPE 36) IG(36) = 14 C C TRAPRG ELEMENT (TYPE 37) IG(37) = 14 C C REPLACE QDMEM1 ELEMENT (TYPE 62) BY QDMEM ELEMENT (TYPE 16) IG(62) = 14 C C REPLACE QDMEM2 ELEMENT (TYPE 63) BY QDMEM ELEMENT (TYPE 16) IG(63) = 14 C C READ POINTER FROM SCR1. WRITE ELEMENT TYPE ON EST. C SET POINTERS FOR CONVERSION OF GRID NOS TO SIL VALUES. C 320 CALL READ (*500,*1120,SCR1,I,1,0,FLAG) ELTYPE = ELEM(I+2) CALL WRITE (EST,ELTYPE,1,0) C C ELEMENT TYPE USED TO INDEX INTO /TA1ACM/ C AND SET USED /OPEN CORE/ BLOCKS NEGATIVE C IG(ELTYPE) = -IG(ELTYPE) NAME = ELEM(I ) JSCALR= ELEM(I+10) MM = ELEM(I+ 9) LX = ELEM(I+12) IF (ELEM(I+8) .EQ. 0) LX = LX + 1 MM = LX + MM - 1 JTEMP = ELEM(I+13) NTEMP = 1 IF (JTEMP .EQ. 4) NTEMP = ELEM(I+14) - 1 C IHEX1/2/3,TRIM6 C C READ ECT + EPT DATA FOR ELEMENT FROM SCR1. C 330 CALL READ (*1110,*400,SCR1,BUF,1,0,FLAG) CALL READ (*1110,*1120,SCR1,BUF(2),BUF(1),0,FLAG) C IF (NOGO.NE.0 .OR. NOGOX.NE.0) GO TO 350 IF (ELTYPE .NE. BAR) GO TO 350 C C FOR BAR AND BEAM ELEMENTS, STORE COORDINATES AND C COORDINATE SYSTEM ID FOR ORIENTATION VECTOR. C KX = 4*(BUF(3)-1) + LOCBGP IF (BUF(8) .EQ. 1) GO TO 340 BUF(8) = BUF(5) IF (BUF(8) .EQ. 0) GO TO 340 K = 4*(BUF(8)-1) + LOCBGP BUFR(5) = ZZ(K+1) - ZZ(KX+1) BUFR(6) = ZZ(K+2) - ZZ(KX+2) BUFR(7) = ZZ(K+3) - ZZ(KX+3) BUF(8) = 0 GO TO 350 340 BUF(8) = Z(KX) C C SAVE INTERNAL GRID NOS, THEN CONVERT TO SIL NOS C AND WRITE ECT + EPT DATA ON EST. C 350 DO 360 L = LX,MM GPSAV(L) = 0 IF (BUF(L) .EQ. 0) GO TO 360 GPSAV(L) = BUF(L) K = GPSAV(L) + NBGP BUF(L) = Z(K) 360 CONTINUE CALL WRITE (EST,BUF(2),BUF(1),0) C C IF NOT SCALAR ELEMENT, PICK UP BGPDT DATA AND WRITE ON EST. C IF (JSCALR .NE. 0) GO TO 330 DO 380 L = LX,MM IF (GPSAV(L) .EQ. 0) GO TO 370 K = (GPSAV(L)-1)*4 CALL WRITE (EST,Z(K+1),4,0) IF (Z(K+1) .GE. 0) GO TO 380 IF (ELTYPE.EQ.HBDY .AND. L.GT.LX+3) GO TO 380 NOGO = 1 CALL MESAGE (30,131,BUF(2)) GO TO 380 370 CALL WRITE (EST,ZEROS,4,0) 380 CONTINUE C C ELEMENT TEMP. IS NOT USED IN CONM1 AND CONM2 (ELEM TYPES 29 30) C TGRID(1) = 0. IF (ELTYPE.EQ.29 .OR. ELTYPE.EQ.30) GO TO 390 C C IF NOT SCALAR ELEMENT, COMPUTE AND WRITE ELEMENT TEMP ON EST. C CALL TA1ETD (BUF(2),TGRID,NTEMP) IF (ELTYPE .EQ. BAR) TGRID(1) = (TGRID(1)+TGRID(2))/2.0 390 CALL WRITE (EST,TGRID,NTEMP,0) GO TO 330 C C CLOSE EST RECORD AND RETURN FOR ANOTHER ELEMENT TYPE. C 400 CALL WRITE (EST,0,0,1) GO TO 320 C C ALL ELEMENTS HAVE BEEN PROCESSED-- CLOSE FILES, WRITE TRAILER AND C EXIT C 500 CALL CLOSE (SCR1,CLSREW) CALL CLOSE (EST,CLSREW) CALL CLOSE (GPTT,CLSREW) BUF(1) = EST BUF(2) = NOSIMP IF (NOGOX .NE. 0) NOGO = 1 IF (NOGO .NE. 0) CALL MESAGE (-61,0,0) DO 510 I = 3,7 510 BUF(I) = 0 C C PROCESS /TA1ACM/ LOAD EST TRAILER WITH FLAGS C TO THE USED /OPEN CORE/ BLOCKS C DO 530 I = 1,NELEM IF (IG(I) .GE. 0) GO TO 530 K = IG(I) DO 520 J = I,NELEM 520 IF (IG(J) .EQ. K) IG(J) = -IG(J) J = IG(I) IF (J .GT. 48) CALL MESAGE (-61,I,J) K = (J-1)/16 J = J - K*16 BUF(K+5) = BUF(K+5) + KTWO(J+16) 530 CONTINUE CALL WRTTRL (BUF) 540 RETURN C C ************************************************** C C INTERNAL BINARY SEARCH ROUTINE C 600 KLO = 1 KHI = KN 610 K = (KLO+KHI+1)/2 620 KX = (K-1)*MX + ITABL IF (ID-Z(KX+1)) 630,90,640 630 KHI = K GO TO 650 640 KLO = K 650 IF (KHI-KLO-1 ) 690,660,610 660 IF (K .EQ. KLO) GO TO 670 K = KLO GO TO 680 670 K = KHI 680 KLO = KHI GO TO 620 690 IF (Q4T3 .AND. NOPSHL.GE.1) GO TO 800 GO TO 1140 C C ************************************************** C C PROCESSING FOR LAMINATED COMPOSITES C C INTERNAL SUBROUTINE TO READ PCOMP, PCOMP1 AND PCOMP2 DATA INTO C CORE C C C INITIALIZE VARIABLES AND SET POINTERS C 700 NPC = 0 NPC1 = 0 NPC2 = 0 TYPC = 0 TYPC1 = 0 TYPC2 = 0 N = BUF3 - LL C C LOCATE PCOMP DATA AND READ INTO CORE C IPC = LL + 1 CALL LOCATE (*720,Z(BUF2),PCOMP,FLAG) CALL READ (*1110,*710,EPT,Z(IPC),N,0,NPC) CALL MESAGE (-8,0,NAM) 710 IF (NPC .GT. 0) TYPC = 1 N = N - NPC C C LOCATE PCOMP1 DATA AND READ INTO CORE C 720 IPC1 = IPC + NPC CALL LOCATE (*740,Z(BUF2),PCOMP1,FLAG) CALL READ (*1110,*730,EPT,Z(IPC1),N,0,NPC1) CALL MESAGE (-8,0,NAM) 730 IF (NPC1 .GT. 0) TYPC1 = 1 N = N - NPC1 C C LOCATE PCOMP2 DATA AND READ INTO CORE C 740 IPC2 = IPC1 + NPC1 CALL LOCATE (*760,Z(BUF2),PCOMP2,FLAG) CALL READ (*1110,*750,EPT,Z(IPC2),N,0,NPC2) CALL MESAGE (-8,0,NAM) 750 IF (NPC2 .GT. 0) TYPC2 = 1 C C SET SIZE OF LPCOMP. NUMBER OF WORDS READ INTO CORE C 760 LPCOMP = IPC2 + NPC2 IF (LPCOMP-1 .GT. LL) COMPS = -1 C C CHECK FOR NO PCOMP, PCOMP1 OR PCOMP2 DATA C SET NOPSHL TO 2 IF BOTH 'PCOMP' AND PSHELL DATA ARE PRESENT C IF (NOPSHL.EQ.1 .AND. COMPS.EQ. 1) GO TO 1130 IF (NOPSHL.EQ.0 .AND. COMPS.EQ.-1) NOPSHL = 2 GO TO 80 C C *************************************************************** C C INTERNAL SUBROUTINE TO LOCATE A PARTICULAR PROPERTY ID FROM THE C 'PCOMP' DATA AND TO CONVERT THE DATA TO PSHELL DATA FORMAT C 800 CONTINUE C C Z(LL+1) THRU Z(LPCOMP) CONTAIN 'PCOMP' DATA C C SET POINTERS C KPC = 4 KPC2 = 2 LEN = 0 NLAY = 0 EOELOC = 0 PIDLOC = 0 ITYPE =-1 C C SEARCH FOR PID IN PCOMP DATA C IF (TYPC .EQ. 0) GO TO 850 Z(LPCOMP+1) = IPC NPCOMP = 0 N = 2 C LPC = IPC1 - 1 DO 820 IIP = IPC,LPC IF (Z(IIP) .NE. -1) GO TO 820 Z(LPCOMP+N ) = IIP Z(LPCOMP+N+1) = IIP + 1 IF (IIP .EQ. LPC) Z(LPCOMP+N+1) = 0 N = N + 2 NPCOMP = NPCOMP + 1 820 CONTINUE IF (LPCOMP+N-2 .GE. BUF3) CALL MESAGE (-8,0,NAM) C C LOCATE PARTICULAR PID C DO 830 IIP = 1,NPCOMP EOELOC = Z(LPCOMP+2*IIP ) PIDLOC = Z(LPCOMP+2*IIP-1) IF (Z(PIDLOC) .EQ. ID) GO TO 840 830 CONTINUE GO TO 850 C 840 LEN = EOELOC - PIDLOC NLAY = (LEN-8)/KPC ITYPE= 0 GO TO 940 C C SEARCH FOR PID IN PCOMP1 DATA C 850 IF (TYPC1 .EQ. 0) GO TO 890 C Z(LPCOMP+1) = IPC1 NPCOMP = 0 N = 2 C LPC1 = IPC2 - 1 DO 860 IIP1 = IPC1,LPC1 IF (Z(IIP1) .NE. -1) GO TO 860 Z(LPCOMP+N ) = IIP1 Z(LPCOMP+N+1) = IIP1 + 1 IF (IIP1 .EQ. LPC1) Z(LPCOMP+N+1) = 0 NPCOMP = NPCOMP + 1 N = N + 2 860 CONTINUE IF (LPCOMP+N-2 .GE. BUF3) CALL MESAGE (-8,0,NAM) C C LOCATE PARTICULAR PID C DO 870 IIP1 = 1,NPCOMP EOELOC = Z(LPCOMP+2*IIP1 ) PIDLOC = Z(LPCOMP+2*IIP1-1) IF (Z(PIDLOC) .EQ. ID) GO TO 880 870 CONTINUE GO TO 890 C 880 LEN = EOELOC - PIDLOC NLAY = LEN - 8 ITYPE= 1 GO TO 940 C C SEARCH FOR PID IN PCOMP2 DATA C 890 IF (TYPC2 .EQ. 0) GO TO 930 C Z(LPCOMP+1) = IPC2 NPCOMP = 0 N = 2 C LPC2 = LPCOMP - 1 DO 900 IIP2 = IPC2,LPC2 IF (Z(IIP2) .NE. -1) GO TO 900 Z(LPCOMP+N ) = IIP2 Z(LPCOMP+N+1) = IIP2 + 1 IF (IIP2 .EQ. LPC2) Z(LPCOMP+N+1) = 0 NPCOMP = NPCOMP + 1 N = N + 2 900 CONTINUE IF (LPCOMP+N-2 .GE. BUF3) CALL MESAGE (-8,0,NAM) C C LOCATE PARTICULAR PID C DO 910 IIP2 = 1,NPCOMP EOELOC = Z(LPCOMP+2*IIP2 ) PIDLOC = Z(LPCOMP+2*IIP2-1) IF (Z(PIDLOC) .EQ. ID) GO TO 920 910 CONTINUE GO TO 930 C 920 LEN = EOELOC - PIDLOC NLAY = (LEN-8)/KPC2 ITYPE= 2 GO TO 940 C C CHECK IF PID HAS BEEN FOUND IN 'PCOMP' DATA C 930 IF (ITYPE .LT. 0) GO TO 1140 C C DETERMINE DATA TO BE WRITTEN IN THE FORM OF PSHELL AND C WRITE TO SCR1 C C ITYPE = 0, PCOMP ENTRY C = 1, PCOMP1 ENTRY C = 2, PCOMP2 ENTRY C C CALCULATE LAMINATE THICKNESS - TLAM C 940 TLAM = 0. C C NOTE - IF Z(PIDLOC+7) IS EQUAL TO SYM OR SYMMEM, THE OPTION C TO MODEL EITHER A SYMMETRICAL OR SYMMETRICAL-MEMBRANE C LAMINATE HAS BEEN EXERCISED. THEREFORE, THE TOTAL C THICKNESS IS TLAM = 2.0*TLAM C C SET LAMOPT C LAMOPT = Z(PIDLOC+7) C C PCOMP DATA C IF (ITYPE .GT. 0) GO TO 960 DO 950 K = 1,NLAY II = (PIDLOC+5) + 4*K TLAM = TLAM + ZZ(II) 950 CONTINUE IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0*TLAM GO TO 1000 C C PCOMP1 DATA C 960 IF (ITYPE .GT. 1) GO TO 970 II = PIDLOC + 6 TLAM = ZZ(II)*NLAY IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0*TLAM GO TO 1000 C C PCOMP2 DATA C 970 DO 980 K = 1,NLAY II = (PIDLOC+6) + 2*K TLAM = TLAM + ZZ(II) 980 CONTINUE IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0*TLAM C C C CREATE NEW PSHELL DATA AND WRITE TO ARRAY IPSHEL C NOTE - PID IS NOT WRITTEN TO IPSHEL C C IPSHEL DATA TO BE WRITTEN TO SCR1 C ============================================================ C IPSHEL( 1) = MID1 MEMBRANE MATERIAL C IPSHEL( 2) = T DEFAULT MEMBRANE THICKNESS C IPSHEL( 3) = MID2 BENDING MATERIAL C IPSHEL( 4) = 12I/T**3 BENDING STIFFNESS PARAMETER C IPSHEL( 5) = MID3 TRANVERSE SHEAR MATERIAL C IPSHEL( 6) = TS/T SHEAR THICKNESS FACTOR C IPSHEL( 7) = NSM NON-STRUCTURAL MASS C IPSHEL(8,9) = Z1,Z2 FIBRE DISTANCES C IPSHEL(10) = MID4 MEMBRANE-BENDING COUPLING MATERIAL C IPSHEL(11) = MCSID OR THETAM //DATA FROM PSHELL C IPSHEL(12) = FLAGM OVERRIDDEN BY EST(18-19)// C IPSHEL(13) = INTEGRATION ORDER (SET TO 0) C (THE INTEGRATION ORDER IS NOT USED IN THE PROGRAM, C BUT THIS WORD IS REQUIRED BECAUSE OF THE DESIGN C OF THE EST DATA FOR THE CQUAD4/TRIA3 ELEMENTS.) C IPSHEL(14) = SCSID OR THETAS //DATA FROM PSHELL C IPSHEL(15) = FLAGS OVERRIDDEN BY EST(20-21)// C IPSHEL(16) = ZOFF C C CALCULATE ZOFFS C 1000 IF (Z(PIDLOC+1) .NE. 0) ZOFFS = ZZ(PIDLOC+1) + 0.5*TLAM IF (Z(PIDLOC+1) .EQ. 0) ZOFFS = 0.0 IF (ABS(ZOFFS) .LE. 0.001) ZOFFS = 0.0 C C SET POINTER TO INDICATE NEW PSHELL DATA CREATED C NPSHEL = 1 C C INITIALIZE IPSHEL ARRAY C DO 1010 KK = 1,16 IPSHEL(KK) = 0 1010 CONTINUE C RPSHEL( 4) = 1.0 RPSHEL( 6) = 1.0 C IPSHEL( 1) = ID + 100000000 RPSHEL( 2) = TLAM IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1020 IPSHEL( 3) = ID + 200000000 IPSHEL( 5) = ID + 300000000 1020 RPSHEL( 7) = ZZ(PIDLOC+2) RPSHEL( 9) = 0.5*TLAM RPSHEL( 8) =-RPSHEL(9) IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.MEM .AND. LAMOPT.NE.SYMMEM) 1 IPSHEL(10) = ID + 400000000 IPSHEL(13) = 0 RPSHEL(16) = ZOFFS C C DO NOT WRITE TO OUTPUT FILE IF PREVIOUS ID IS SAME AS NEW ID. C OTHERWISE, WRITE THE NEWLY CREATED PSHELL BULK DATA ENTRY TO C OUTPUT FILE IF DIAG 40 IS TURNED ON C IF (OLDID .EQ. ID) GO TO 1060 IF ( .NOT.FRSTIM) GO TO 1040 FRSTIM = .FALSE. IF (L40 .EQ. 0) GO TO 1060 CWKBR CALL PAGE (3) CALL PAGE2 (3) WRITE (NOUT,1030) 1030 FORMAT (//9X,'THE INPUT PCOMP, PCOMP1 OR PCOMP2 BULK DATA', 1 ' ENTRIES HAVE BEEN REPLACED BY THE FOLLOWING PSHELL', 2 ' AND MAT2 ENTRIES.',//) 1040 IF (L40 .EQ. 0) GO TO 1060 WRITE (NOUT,1050) ID,IPSHEL( 1),RPSHEL( 2),IPSHEL( 3), 1 RPSHEL( 4),IPSHEL( 5),RPSHEL( 6), 2 RPSHEL( 7),RPSHEL( 8),RPSHEL( 9), 3 IPSHEL(10),RPSHEL(11),RPSHEL(14), 4 RPSHEL(16) 1050 FORMAT (' PSHELL',I14,I12,1X,1P,E11.4,I12,1X,1P,E11.4,I12, 1 2(1X,1P,E11.4), /9X,2(1X,1P,E11.4),I12,2(1X,F11.1),1X, 2 1P,E11.4) C C SET OLDID TO ID C 1060 OLDID = ID GO TO 90 C C FATAL ERROR MESSAGES C 1100 J = -1 GO TO 1150 1110 J = -2 GO TO 1150 1120 J = -3 GO TO 1150 1130 BUF(1) = ELEM(I ) BUF(2) = ELEM(I+1) NOGOX = 1 CALL MESAGE (30,11,BUF) KX = ITABL GO TO 30 1140 KSAVEW = BUF(3) BUF(3) = ID NOGO = 1 CALL MESAGE (30,10,BUF(2)) KX = ITABL BUF(3) = KSAVEW GO TO 90 1150 CALL MESAGE (J,FILE,NAM) 1160 BUF(1) = TEMPID BUF(2) = 0 CALL MESAGE (-30,44,BUF) RETURN C C ARRAY IG IS FIRST DIMENSIONED IN TA1ABD C 1190 WRITE (NOUT,1200) SFM 1200 FORMAT (A25,', IG ARRAY IN TA1A TOO SMALL') CALL MESAGE (-61,0,0) C END ================================================ FILE: mis/ta1b.f ================================================ SUBROUTINE TA1B C C TA1B BUILDS THE ELEMENT CONNECTION AND PROPERTIES TABLE (ECPT) C AND THE GRID POINT CONNECTION TABLE. THE ECPT CONTAINS ONE LOGICAL C RECORD FOR EACH GRID OR SCALAR POINT IN THE STRUCTURE. EACH C LOGICAL RECORD CONTAINS EST TYPE DATA FOR ELEMENTS CONNECTED TO C THE GRID OR SCALAR POINT THE GPCT IS A SUMMARY OF THE ECPT. EACH C LOGICAL RECORD CONTAINS ALL GRID POINTS CONNECTED TO THE PIVOT (BY C MEANS OF STRUCTURAL ELEMENTS). C EXTERNAL ANDF LOGICAL EORFLG,ENDID ,RECORD INTEGER ANDF ,GENL ,ECT ,EPT ,BGPDT ,SIL ,GPTT , 1 CSTM ,EST ,GEI ,ECPT ,GPCT ,SCR1 ,SCR2 , 2 SCR3 ,SCR4 ,Z ,SYSBUF,TEMPID,ELEM ,ELEMID, 3 OUTPT ,CBAR ,PLOTEL,RD ,RDREW ,WRT ,WRTREW, 4 CLSREW,CLS ,BUF ,GPSAV ,FLAG ,BUF1 ,BUF2 , 5 BUF3 ,FILE ,RET ,RET1 ,OP ,TWO24 ,SCRI , 6 SCRO ,BLK ,RET2 ,OUFILE,GPECT ,ELTYPE,OLDEL , 7 OLDEID,BUF4 ,EQEXIN,ZEROS(4) ,QUADTS,TRIATS, 8 PLOT ,REACT ,SHEAR ,TWIST ,BAR ,PPSE DIMENSION NAM(2),BLK(2),ZZ(1) ,TGRID(33) ,BUF(50), 1 BUFR(50) ,GPSAV(34) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM ,UWM ,UIM ,SFM COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL ,COMPS COMMON /TA1COM/ NSIL ,ECT ,EPT ,BGPDT ,SIL ,GPTT ,CSTM , 1 MPT ,EST ,GEI ,GPECT ,ECPT ,GPCT ,MPTX , 2 PCOMPS,EPTX ,SCR1 ,SCR2 ,SCR3 ,SCR4 ,EQEXIN COMMON /SYSTEM/ KSYSTM(65) COMMON /GPTA1 / NELEM ,JLAST ,INCR ,ELEM(1) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW,CLS COMMON /TA1ETT/ ELTYPE,OLDEL ,EORFLG,ENDID ,BUFFLG,ITEMP ,IDFTMP, 1 IBACK ,RECORD,OLDEID COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (KSYSTM( 1),SYSBUF) ,(KSYSTM(2),OUTPT ), 1 (KSYSTM(10),TEMPID) ,(IDFTMP ,DEFTMP) EQUIVALENCE (BLK(1),NPVT), (BUF(1),BUFR(1)),(Z(1),ZZ(1)), 1 (BLK(2),N) DATA NAM / 4HTA1B,3H /, CBAR/ 4HBAR /, PLOT/ 4HPLOT / DATA TWO24 / 8388608 /, ZEROS/ 0,0,0,0/, PPSE/ 4303 / DATA PLOTEL, REACT,SHEAR,TWIST,IHEX2,IHEX3,QUADTS,TRIATS,BAR / 1 5201 , 5251, 4, 5, 66, 67, 68, 69, 34 / C C PERFORM GENERAL INITIALIZATION C N2 = 2*NELEM - 1 N21 = N2 + 1 BUF1 = KORSZ(Z) - SYSBUF - 2 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF BUF4 = BUF3 - SYSBUF NEQ1 = NSIL + 1 NEQ2 = 0 KSCALR = 0 C C THE GRID POINT COUNTER (GPC) HAS ONE ENTRY PER GRID OR SCALAR C POINT IN THE STRUCTURE. EACH ENTRY CONTAINS THE NUMBER OF C STRUCTURAL ELEMENTS CONNECTED TO THE POINT. C DO 2001 I = 1,NSIL 2001 Z(I+1) = 0 C C OPEN THE ECT. INITIALIZE TO LOOP THRU BY ELEMENT TYPE. C FILE = ECT CALL PRELOC (*3200,Z(BUF1),ECT) NOECT = 1 DO 2026 I = 1,JLAST,INCR C C IGNORE PLOTEL ELEMENTS. OTHERWISE, LOCATE AN ELEMENT TYPE. C IF PRESENT, READ ALL ELEMENTS OF THAT TYPE AND INCREMENT THE GPC C ENTRY FOR EACH POINT TO WHICH THE ELEMENT IS CONNECTED. C IF (ELEM(I) .EQ. PLOT) GO TO 2026 CALL LOCATE (*2026,Z(BUF1),ELEM(I+3),FLAG) NOECT = 0 LX = ELEM(I+12) MM = LX + ELEM(I+9) - 1 M = ELEM(I+5) IF (ELEM(I+10) .EQ. 0) KSCALR = 1 2021 CALL READ (*3201,*2026,ECT,BUF,M,0,FLAG) DO 2022 L = LX,MM K = BUF(L) IF (K .NE. 0) Z(K+1) = Z(K+1) + 1 2022 CONTINUE GO TO 2021 2026 CONTINUE CALL CLOSE (ECT,CLSREW) IF (NOECT .NE. 0) GO TO 3209 C C REPLACE ENTRIES IN THE GPC BY A RUNNING SUM THUS CREATING POINTERS C INTO ECPT0. QUEUE WARNING MESSAGES FOR GRID PTS. WITH NO ELEMENTS C CONNECTED. C (BRING IN EQEXIN AND ECHO OUT EXTERNAL GRID PT. ID G.C/UNISYS 91) C Z(1) = 1 MAXEL = 0 DO 2037 I = 1,NSIL MAXEL = MAX0(MAXEL,Z(I+1)) IF (Z(I+1) .NE. 0) GO TO 2037 C J = 0 IF (NEQ2) 2035,2031,2033 2031 NEQ2 = -1 Z(NEQ1) = EQEXIN CALL RDTRL (Z(NEQ1)) IF (Z(NEQ1) .LE. 0) GO TO 2035 FILE = EQEXIN CWKBR CALL GOPEN (EQEXIN,EQEXIN,Z(BUF1),RDREW) CALL GOPEN (EQEXIN,Z(BUF1),RDREW) CALL READ (*3200,*2032,EQEXIN,Z(NEQ1),BUF4,1,NEQ2) 2032 CALL CLOSE (EQEXIN,CLSREW) CALL SORT (0,0,2,2,Z(NEQ1),NEQ2) 2033 J = Z((I-1)*2+NEQ1) C 2035 BUF(1) = I BUF(2) = J CALL MESAGE (30,15,BUF) 2037 Z(I+1) = Z(I) + Z(I+1) C C DETERMINE BAND OF ENTRIES IN ECPT0 WHICH WILL FIT IN CORE C NDX1 = POINTER IN GPC TO 1ST ENTRY FOR CURRENT PASS. C NDX2 = POINTER IN GPC TO LAST ENTRY FOR CURRENT PASS. C NDX1 = 1 NDX2 = NSIL LLX = 1 IECPT0 = NSIL + 2 LENGTH = BUF1 - IECPT0 OP = WRTREW 2042 IF (Z(NDX2+1)-Z(NDX1)+2 .LE. LENGTH) GO TO 2050 NDX2 = NDX2 - 1 GO TO 2042 C C PASS THE ECT. FOR EACH GRID PT IN RANGE ON THIS PASS, C STORE ELEMENT POINTER = 2**24 * J + WORD POSITION IN ECT RECORD. C WHERE J= (POINTER IN ELEM TABLE - 1)/INCR * 2 +1 C 2050 CALL PRELOC (*3200,Z(BUF1),ECT) IZERO = Z(NDX1) J = 1 DO 2055 I = 1,JLAST,INCR IF (ELEM(I) .EQ. PLOT) GO TO 2055 IDCNTR = TWO24*J CALL LOCATE (*2055,Z(BUF1),ELEM(I+3),FLAG) M = ELEM(I+ 5) LX = ELEM(I+12) MM = LX + ELEM(I+9) - 1 2052 CALL READ (*3201,*2055,ECT,BUF,M,0,FLAG) DO 2054 L = LX,MM K = BUF(L) IF (K.LT.NDX1 .OR. K.GT.NDX2) GO TO 2054 IX = Z(K) - IZERO + IECPT0 Z(IX) = IDCNTR Z(K ) = Z(K) + 1 2054 CONTINUE IDCNTR = IDCNTR + M GO TO 2052 2055 J = J + 2 CALL CLOSE (ECT,CLSREW) C C WRITE ECPT0 AND TEST FOR ADDITIONAL PASSES C ECPT0 CONTAINS ONE LOGICAL RECORD FOR EACH GRID OR SCALAR POINT. C EACH LOGICAL RECORD CONTAINS N PAIRS OF(-1,ELEMENT POINTER)WHERE C N= NUMBER OF ELEMENTS CONNECTED TO THE PIVOT. C IF NO ELEMENTS CONNECTED TO POINT, RECORD IS ONE WORD = 0. C FILE = SCR1 CALL OPEN (*3200,SCR1,Z(BUF1),OP) BUF(1) = -1 LJ = IECPT0 - 1 DO 2062 I = NDX1,NDX2 M = Z(I) - LLX IF (M .NE. 0) GO TO 2063 CALL WRITE (SCR1,0,1,1) GO TO 2062 2063 DO 2061 J = 1,M LJ = LJ + 1 BUF(2) = Z(LJ) 2061 CALL WRITE (SCR1,BUF,2,0) CALL WRITE (SCR1,0,0,1) 2062 LLX = Z(I) IF (NDX2 .GE. NSIL) GO TO 2070 CALL CLOSE (SCR1,CLS) NDX1 = NDX2 + 1 NDX2 = NSIL OP = WRT GO TO 2042 C C READ AS MUCH OF ECT AS CORE CAN HOLD C FIRST N21 CELLS OF CORE CONTAIN A POINTER TABLE WHICH HAS TWO C ENTRIES PER ELEMENT TYPE. 1ST ENTRY HAS POINTER TO 1ST WORD OF C ECT DATA IN CORE FOR AN ELEMENT TYPE 2ND ENTRY HAS WORD POSITION C IN ECT RECORD OF THAT TYPE FOR LAST ENTRY READ ON PREVIOUS PASS. C 2070 CALL CLOSE (SCR1,CLSREW) SCRI = SCR1 SCRO = SCR2 CALL PRELOC (*3200,Z(BUF1),ECT) I = 1 IELEM = 1 DO 2071 J = 1,N21 2071 Z(J) = 0 L = N21 + 1 2072 IF (ELEM(IELEM+3).EQ.PLOTEL .OR. ELEM(IELEM+3).EQ.REACT) 1 GO TO 2074 CALL LOCATE (*2074,Z(BUF1),ELEM(IELEM+3),FLAG) Z(I) = L LL = 0 M = ELEM(IELEM+5) LAST = BUF3 - M 2073 IF (L .GT. LAST) GO TO 2080 CALL READ (*3201,*2074,ECT,Z(L),M,0,FLAG) L = L + M LL = LL + M GO TO 2073 2074 I = I + 2 IELEM = IELEM + INCR IF (IELEM .LE. JLAST) GO TO 2072 C C PASS ECPT0 ENTRIES LINE BY LINE C ATTACH EACH REFERENCED ECT ENTRY WHICH IS NOW IN CORE C 2080 CALL OPEN (*3200,SCRI,Z(BUF2),RDREW) CALL OPEN (*3200,SCRO,Z(BUF3),WRTREW) 2082 CALL READ (*2090,*2086,SCRI,BUF,1,0,FLAG) IF (BUF(1)) 2083,2087,2085 2083 CALL READ (*3201,*3202,SCRI,BUF(2),1,0,FLAG) K = BUF(2)/TWO24 KTWO24 = K*TWO24 IDPTR = BUF(2) - KTWO24 KK = Z(K) + IDPTR - Z(K+1) IF (Z(K).EQ.0 .OR. KK.GT.LAST) GO TO 2084 J = ((K-1)/2)*INCR + 1 MM = ELEM(J+5) BUF(1) = MM BUF(2) = Z(KK) + KTWO24 CALL WRITE (SCRO,BUF,2,0) CALL WRITE (SCRO,Z(KK+1),MM-1,0) GO TO 2082 2084 CALL WRITE (SCRO,BUF,2,0) GO TO 2082 2085 CALL READ (*3201,*3202,SCRI,BUF(2),BUF(1),0,FLAG) CALL WRITE (SCRO,BUF,BUF(1)+1,0) GO TO 2082 2086 CALL WRITE (SCRO,0,0,1) GO TO 2082 2087 CALL WRITE (SCRO,0,1,1) CALL FWDREC (*3201,SCRI) GO TO 2082 C C TEST FOR COMPLETION OF STEP C IF INCOMPLETE, SET FOR NEXT PASS C 2090 CALL CLOSE (SCRI,CLSREW) CALL CLOSE (SCRO,CLSREW) IF (I .GT. N2) GO TO 2100 K = SCRI SCRI = SCRO SCRO = K L = N21 + 1 DO 2091 J = 1,N21 2091 Z(J) = 0 Z(I) = L Z(I+1) = LL GO TO 2073 C C READ THE EPT INTO CORE (IF PRESENT) C FIRST N21 CELLS OF CORE CONTAINS PROPERTIES POINTER TABLE WHICH C HAS TWO WORDS PER ELEMENT TYPE, 1ST WORD HAS POINTER TO 1ST WORD C OF PROPERTY DATA FOR THAT ELEMENT TYPE. 2ND WORD HAS NUMBER OF C PROPERTY CARDS FOR THAT TYPE. C 2100 CALL CLOSE (ECT,CLSREW) DO 2101 I = 1,N21 2101 Z(I) = 0 L = 1 CALL PRELOC (*2120,Z(BUF1),EPT) IELEM = 1 LSTPRP = 0 L = N21 + 1 DO 2107 II = 1,N2,2 IF (ELEM(IELEM+6).EQ.LSTPRP .AND. LSTPRP.NE.PPSE) GO TO 2106 CALL LOCATE (*2107,Z(BUF1),ELEM(IELEM+6),FLAG) LSTPRP = ELEM(IELEM+6) M = ELEM(IELEM+8) ELTYPE = ELEM(IELEM+2) Z(II) = L 2102 IF (L+M .GE. BUF3) CALL MESAGE (-8,0,NAM) CALL READ (*3201,*2103,EPT,Z(L),M,0,FLAG) L = L + M GO TO 2102 2103 N = L - Z(II) Z(II+1) = N/M IF (ELTYPE.EQ.SHEAR .OR. ELTYPE.EQ.TWIST) GO TO 2104 IF (M .GT. 4) GO TO 2107 2104 I = Z(II) CALL SORT (0,0,M,1,Z(I),N) GO TO 2107 2106 N = 4 IF (ELTYPE.EQ.IHEX2 .OR. ELTYPE.EQ.IHEX3) N = 2 Z(II ) = Z(II-N ) Z(II+1) = Z(II-N+1) 2107 IELEM = IELEM + INCR CALL CLOSE (EPT,CLSREW) C C DETERMINE IF THE BGPDT AND SIL C WILL FIT IN CORE ON TOP OF THE EPT. C NUMBER = 4*KSCALR + 1 IBACK = 0 LENGTH = BUF4 - L - 4*MAXEL IF (NUMBER*NSIL .GT. LENGTH) GO TO 2150 C C IF YES, READ THE BGPDT,SIL AND GPTT INTO CORE C 2120 ASSIGN 2130 TO RET IPASS = 1 GO TO 3050 C C PASS ECPT0 LINE BY LINE C FOR EACH ECT ENTRY, 1. ATTACH PROPERTY DATA (IF DEFINED) C 2. ATTACH BASIC GRID POINT DATA (UNLESS SCALER ELEMENT), AND C 3. CONVERT GRID PT NOS TO SIL VALUES C 4. IF TEMPERATURE PROBLEM, ATTACH ELEMENT TEMP(UNLESS SCALAR ELEM) C 2130 INFILE = SCRO OUFILE = ECPT C C OPEN ECPT0, ECPT AND GPCT FILES C 2144 GO TO 3060 C C WRITE PIVOT GRID POINT ON ECPT C 2131 IF (LL-LOCSIL .GE. NSIL) GO TO 2179 IF (IBACK .LE. 0) GO TO 21311 CALL BCKREC (GPTT) C C RESET /TA1ETT/ VARIABLES C IBACK = 0 OLDEID = 0 OLDEL = 0 EORFLG =.FALSE. ENDID =.TRUE. CALL READ (*3201,*3202,GPTT,ISET,1,0,FLAG) IF (ISET .EQ. TEMPID) GO TO 21311 WRITE (OUTPT,3084) SFM,ISET,TEMPID CALL MESAGE (-61,0,0) 21311 NPVT = Z(LL) CALL WRITE (ECPT,NPVT,1,0) IF (Z(LL+1)-Z(LL) .EQ. 1) NPVT = -NPVT I = LOCGPC C C READ AN ECT LINE FROM ECPT0. SET POINTERS AS A FUNCTION OF ELEM C TYPE. IF ELEMENT IS BAR, PROCESS ORIENTATION VECTOR. AXIS AND C THE STRESS AXIS DEFINITION BASED ON GRID POINTS MA AND SA. C 2132 CALL READ (*3201,*2138,INFILE,BUF(1),1,0,FLAG) IF (BUF(1)) 3207,2143,2133 2133 CALL READ (*3201,*3202,INFILE,BUF(2),BUF(1),0,FLAG) IK = BUF(2)/TWO24 II = ((IK-1)/2)*INCR + 1 LX = ELEM(II+12) + 1 M = ELEM(II+ 8) JSCALR = ELEM(II+10) MM = LX + ELEM(II+ 9) - 1 LQ = 4 IF (M .EQ. 0) LQ = 3 NAME = ELEM(II ) JTEMP = ELEM(II+13) ELTYPE= ELEM(II+ 2) NTEMP = 1 IF (JTEMP .EQ. 4) NTEMP = ELEM(II+14) - 1 IF (ELTYPE .EQ. QUADTS) GO TO 3083 IF (ELTYPE .EQ. TRIATS) GO TO 30841 IF (NAME .EQ. CBAR) GO TO 3080 C C SAVE INTERNAL GRID NOS AND CONVERT TO SIL NOS. C 2141 GO TO 3030 C C IF ONE PASS, WRITE ECT SECTION OF ECPT LINE. C IF TWO PASSES, WRITE ECT + EPT SECTIONS OF ECPT LINE. C 2134 ID = BUF(3) NX = BUF(1) + 2 - LQ BUF(1) = ELEM(II+2) BUF(2) = BUF(2) - IK*TWO24 ELEMID = BUF(2) CALL WRITE (ECPT,BUF(1),2,0) CALL WRITE (ECPT,BUF(LQ),NX,0) IF (IPASS .EQ. 2) GO TO 2137 C C IF PROPERTY DATA IS DEFINED, LOOK UP AND WRITE EPT SECTION OF ECPT C IF (M .EQ. 0) GO TO 2137 ASSIGN 2137 TO RET GO TO 3040 C C IF ELEMENT IS NOT A SCALAR ELEMENT, C WRITE BGPDT AND ELEMENT TEMPERATURE SECTIONS OF ECPT LINE. C 2137 IF (JSCALR .NE. 0) GO TO 2132 GO TO 3090 C C CLOSE ECPT RECORD. WRITE GPCT RECORD. C 2138 CALL WRITE (ECPT,0,0,1) GO TO 3070 C C HERE IF NO ELEMENTS CONNECTED TO PIVOT. C 2143 CALL WRITE (ECPT,0,0,1) IF (NOGPCT .NE. 0) CALL WRITE (GPCT,NPVT,1,1) LL = LL + 1 CALL FWDREC (*3202,INFILE) GO TO 2131 C C HERE IF ECPT CONSTRUCTION IS TWO PASSES. C PASS ECPT0 LINE BY LINE FOR EACH ECT ENTRY, ATTACH PROPERTY DATA C IF DEFINED C 2150 CALL OPEN (*3200,SCRO,Z(BUF1),RDREW) CALL OPEN (*3200,SCRI,Z(BUF2),WRTREW) OUFILE = SCRI C C READ AN ECT LINE FROM ECT0. SET POINTERS AS FUNCTION OF ELEM TYPE. C 2152 CALL READ (*2159,*2156,SCRO,BUF,1,0,FLAG) IF (BUF(1)) 3207,2158,2153 2153 CALL READ (*3201,*3203,SCRO,BUF(2),BUF(1),0,FLAG) IK = BUF(2)/TWO24 II = ((IK-1)/2)*INCR + 1 M = ELEM(II+8) NX = BUF(1) + 1 C C IF PROPERTY DATA IS DEFINED FOR ELEMENT, WRITE ECT DATA ON SCRI, C THEN LOOK UP AND WRITE EPT DATA ON SCRI. C IF (M .EQ. 0) GO TO 2155 ID = BUF(3) BUF(1) = BUF(1) + M - 1 CALL WRITE (SCRI,BUF(1),NX,0) ASSIGN 2152 TO RET GO TO 3040 C C PROPERTY DATA NOT DEFINED. WRITE ECT LINE ON SCRI. C 2155 CALL WRITE (SCRI,BUF,NX,0) GO TO 2152 C C CLOSE RECORD. RETURN FOR ANOTHER PIVOT. C 2156 CALL WRITE (SCRI,0,0,1) GO TO 2152 C C ALL PIVOTS COMPLETE. CLOSE FILES. C 2159 CALL CLOSE (SCRO,CLSREW) CALL CLOSE (SCRI,CLSREW) GO TO 2160 C C HERE IF NO ELEMENTS CONNECTED TO PIVOT. C 2158 CALL WRITE (SCRI,0,1,1) CALL FWDREC (*3201,SCRO) GO TO 2152 C C READ THE BGPDT, SIL AND, IF TEMPERATURE PROBLEM, C THE GPTT INTO CORE. C 2160 L = 1 ASSIGN 2170 TO RET GO TO 3050 C C SET POINTERS AND BRANCH TO COMMON CODE TO ASSEMBLE ECPT. C 2170 INFILE = SCRI OUFILE = ECPT IPASS = 2 GO TO 2144 C C CLOSE FILES, WRITE TRAILERS AND EXIT. C 2179 CALL CLOSE (INFILE,CLSREW) CALL CLOSE (GPTT,CLSREW) CALL CLOSE (ECPT,CLSREW) BUF(1) = ECT CALL RDTRL (BUF(1)) BUF(3) = 0 K = 8192 K1 = ANDF(BUF(5),K) IF (K1 .NE. K) GO TO 2180 BUF(3) = 1 IRIGD = 1 2180 CONTINUE BUF(1) = ECPT DO 21791 I = 2,7 BUF(I) = 7 21791 CONTINUE CALL WRTTRL (BUF) IF (NOGPCT .EQ. 0) RETURN CALL CLOSE (GPCT,CLSREW) BUF(1) = GPCT CALL WRTTRL (BUF) RETURN C C C INTERNAL BINARY SEARCH ROUTINE C 3000 KLO = 1 3001 K = (KLO+KHI+1)/2 3008 KX = (K-1)*M + LOCX IF (ID-Z(KX)) 3002,3009,3003 3002 KHI = K GO TO 3004 3003 KLO = K 3004 IF (KHI-KLO-1) 30091,3005,3001 3005 IF (K .EQ. KLO) GO TO 3006 K = KLO GO TO 3007 3006 K = KHI 3007 KLO = KHI GO TO 3008 3009 GO TO RET1, (3041) 30091 GO TO RET2, (3205) C C C INTERNAL ROUTINE TO SAVE GRID PTS IN AN ECT LINE C AND CONVERT GRID PT NOS IN ECT LINE TO SIL VALUES C 3030 DO 3032 L = LX,MM GPSAV(L) = 0 IF (BUF(L) .EQ. 0) GO TO 3032 GPSAV(L) = BUF(L) K = GPSAV(L) + LOCSIL - 1 BUF(L) = Z(K) IX = 0 IF (Z(K+1)-Z(K) .EQ. 1) IX = 1 Z(I) = 2*Z(K) + IX I = I + 1 3032 CONTINUE IF (I .GE. BUF3) CALL MESAGE (-8,0,NAM) GO TO 2134 C C C INTERNAL ROUTINE TO ATTACH EPT DATA C 3040 LOCX = Z(IK) IF (LOCX .EQ. 0) GO TO 3206 KHI = Z(IK+1) ASSIGN 3041 TO RET1 ASSIGN 3205 TO RET2 GO TO 3000 3041 CALL WRITE (OUFILE,Z(KX+1),M-1,0) GO TO RET, (2137,2152) C C INTERNAL ROUTINE TO READ THE BGPDT, SIL AND GPTT INTO CORE C 3050 NBGP = 0 LOCBGP = L IF (KSCALR .EQ. 0) GO TO 3059 CALL OPEN (*3200,BGPDT,Z(BUF1),RDREW) CALL FWDREC (*3201,BGPDT) NBGP = 4*NSIL CALL READ (*3201,*3202,BGPDT,Z(LOCBGP),NBGP,1,FLAG) CALL CLOSE (BGPDT,CLSREW) 3059 L = L + NBGP CALL OPEN (*3200,SIL,Z(BUF1),RDREW) CALL FWDREC (*3201,SIL) LOCSIL = LOCBGP + NBGP CALL READ (*3201,*3203,SIL,Z(LOCSIL),NSIL,1,FLAG) CALL CLOSE (SIL,CLSREW) NX = LOCSIL + NSIL Z(NX) = LUSET + 1 LOCTMP = NX + 1 NTMP = LOCTMP - 1 RECORD =.FALSE. ITEMP = TEMPID IBACK = 0 IF (TEMPID .EQ. 0) GO TO 3058 FILE = GPTT CALL OPEN (*3200,GPTT,Z(BUF4),RDREW) CALL READ (*3201,*3051,GPTT,Z(LOCTMP),BUF3-LOCTMP,0,NID) CALL MESAGE (-8,0,NAM) 3051 ITMPID = LOCTMP + 2 NTMPID = LOCTMP + NID - 3 DO 3052 IJK = ITMPID,NTMPID,3 IF (TEMPID .EQ. Z(IJK)) GO TO 3053 3052 CONTINUE GO TO 3210 3053 IDFTMP = Z(IJK+1) IF (IDFTMP . NE. -1) DEFTMP = ZZ(IJK+1) N = Z(IJK+2) IF (N .EQ. 0) GO TO 3058 RECORD =.TRUE. N = N - 1 IF (N .EQ. 0) GO TO 3055 DO 3054 IJK = 1,N CALL FWDREC (*3201,GPTT) 3054 CONTINUE C C READ SET ID AND VERIFY FOR CORRECTNESS C 3055 CALL READ (*3201,*3202,GPTT,ISET,1,0,FLAG) IF (ISET .EQ. TEMPID) GO TO 3061 WRITE (OUTPT,3084) SFM,ISET,TEMPID 3084 FORMAT (A25,' 4021, TA1B HAS PICKED UP TEMPERATURE SET',I9, 1 ' AND NOT THE REQUESTED SET',I9,1H.) CALL MESAGE (-61,0,NAM) C C INITIALIZE /TA1ETT/ VARIABLES C 3061 OLDEID = 0 OLDEL = 0 EORFLG =.FALSE. ENDID =.TRUE. 3058 GO TO RET, (2130,2170) C C C INTERNAL ROUTINE TO OPEN SCRATCH, ECPT AND GPCT FILES C 3060 CALL OPEN (*3200,INFILE,Z(BUF1),RDREW) CALL OPEN (*3200,ECPT,Z(BUF2),WRTREW) CALL FNAME (ECPT,BUF) CALL WRITE (ECPT,BUF,2,1) NOGPCT = 0 CALL OPEN (*3062,GPCT,Z(BUF3),WRTREW) NOGPCT = 1 CALL FNAME (GPCT,BUF) CALL WRITE (GPCT,BUF,2,1) 3062 LL = LOCSIL LOCGPC = NTMP + 1 GO TO 2131 C C INTERNAL ROUTINE TO SORT AND WRITE THE GPCT C 3070 IF (NOGPCT .EQ. 0) GO TO 3073 N = I - LOCGPC CALL SORT (0,0,1,1,Z(LOCGPC),N) Z(I) = 0 J = LOCGPC II = LOCGPC 3071 IF (Z(II) .EQ. Z(II+1)) GO TO 3072 NX = Z(II)/2 LX = Z(II) - 2*NX IF (LX .NE. 0) NX = -NX Z(J) = NX J = J + 1 3072 II = II + 1 IF (II .LT. I) GO TO 3071 N = J - LOCGPC CALL WRITE (GPCT,BLK,2,0) CALL WRITE (GPCT,Z(LOCGPC),N,1) 3073 LL = LL + 1 GO TO 2131 C C FOR BAR ELEMENTS, STORE COORDINATES AND C COORDINATE SYSTEM ID FOR ORIENTATION VECTOR. C 3080 KX = 4*(BUF(4)-1) + LOCBGP IF (BUF(9) .EQ. 1) GO TO 3082 BUF(9) = BUF(6) IF (BUF(9) .EQ. 0) GO TO 3082 K = 4*(BUF(9)-1) + LOCBGP BUFR(6) = ZZ(K+1) - ZZ(KX+1) BUFR(7) = ZZ(K+2) - ZZ(KX+2) BUFR(8) = ZZ(K+3) - ZZ(KX+3) BUF(9) = 0 GO TO 2141 3082 BUF(9) = Z(KX) GO TO 2141 C C FOR QUADTS AND TRIATS ELEMENTS, STORE COORDINATES FOR MATERIAL C AND STRESS AXIS DEFINITION C 3083 IS1 = 12 GO TO 3085 30841 IS1 = 10 3085 IS2 = IS1 + 9 DO 3086 IST = IS1,IS2,3 IGP = BUF(IST) IF (IGP .EQ. 0) GO TO 3086 K = 4*(IGP-1) + LOCBGP BUFR(IST ) = ZZ(K+1) BUFR(IST+1) = ZZ(K+2) BUFR(IST+2) = ZZ(K+3) 3086 CONTINUE GO TO 2141 C C CODE TO WRITE BGPDT AND ELEMENT TEMPERATURE SECTIONS OF ECAT LINE. C 3090 DO 3095 L = LX,MM IF (GPSAV(L) .EQ. 0) GO TO 3094 K = LOCBGP + 4*(GPSAV(L)-1) CALL WRITE (ECPT,Z(K),4,0) GO TO 3095 3094 CALL WRITE (ECPT,ZEROS,4,0) 3095 CONTINUE CALL TA1ETD (ELEMID,TGRID,NTEMP) IF (ELTYPE .EQ. BAR) TGRID(1) = (TGRID(1)+TGRID(2))/2.0 CALL WRITE (ECPT,TGRID,NTEMP,0) GO TO 2132 C C FATAL ERROR MESAGES C 3200 J = -1 GO TO 3220 3201 J = -2 GO TO 3220 3203 CONTINUE 3202 J = -3 GO TO 3220 3205 BUF(1) = ELEMID BUF(2) = ID N = 10 GO TO 3219 3206 BUF(1) = ELEM(II ) BUF(2) = ELEM(II+1) N = 11 GO TO 3219 3207 BUF(1) = 0 BUF(2) = 0 N = 14 GO TO 3219 3209 BUF(1) = 0 BUF(2) = 0 N = 13 GO TO 3219 3210 BUF(1) = TEMPID BUF(2) = 0 N = 44 3219 CALL MESAGE (-30,N,BUF) 3220 CALL MESAGE (J,FILE,NAM) RETURN END ================================================ FILE: mis/ta1c.f ================================================ SUBROUTINE TA1C C C TA1C READS GENERAL ELEMENTS FROM THE ECT AND BUILDS THE GEI. C FOR EACH GENERAL ELEMENT, THE UI AND UD LISTS ARE CONVERTED TO C SIL NOS. AND SORTED ON SIL NO. THE ELEMENTS OF THE Z AND S C MATRICES ARE WRITTEN IN INTERNAL SORT (I.E., ROW AND COL NOS C CORRESPOND TO POSITION IN THE SORTED UI AND UD LISTS. C C INTEGER GENL ,ECT ,EPT ,BGPDT ,SIL ,GPTT ,CSTM , 1 EST ,GPECT ,GEI ,ECPT ,GPCT ,SCR1 ,SCR2 , 2 SCR3 ,SCR4 ,Z ,SYSBUF,BUF1 ,BUF2 ,BUF3 , 3 FILE ,FLAG ,GENEL ,RD ,RDREW ,WRT ,WRTREW, 4 CLSREW,SILNO ,BUF ,HALF DIMENSION NAM(2),BUF(10) ,GENEL(2) COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL ,COMPS COMMON /TA1COM/ NSIL ,ECT ,EPT ,BGPDT ,SIL ,GPTT ,CSTM , 1 MPT ,EST ,GEI ,GPECT ,ECPT ,GPCT ,MPTX , 2 PCOMPS,EPTX ,SCR1 ,SCR2 ,SCR3 ,SCR4 COMMON /TAC1AX/ BUF1 ,BUF2 ,BUF3 ,IUI ,NUI ,IUD ,NUD , 1 IZ ,NOGO ,IDGENL COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,DUM38(38) ,NBPW COMMON /SETUP / NFILE(6) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW DATA GENEL / 4301 ,43 / ,NAM / 4HTA1C,4H / DATA HALF / 65536 / C C ADD MORE BITS TO HALF IF MACHINE WORD IS LARGER THAN 32 C IF (NBPW .GE. 36) HALF = 4*HALF IF (NBPW .GT. 36) HALF = 4*HALF C C SET BUFFER POINTERS, ETC. C BUF1 = KORSZ(Z) - SYSBUF - 2 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF NOGO = 0 NOGENL = 0 C C READ THE SIL INTO CORE C FILE = SIL CALL OPEN (*2001,SIL,Z(BUF1),RDREW) CALL FWDREC (*2002,SIL) CALL READ (*2002,*1011,SIL,Z,BUF2,1,NSIL) CALL MESAGE (-8,0,NAM) 1011 CALL CLOSE (SIL,CLSREW) C C OPEN THE GEI. WRITE HEADER RECORD. C FILE = GEI CALL OPEN (*2001,GEI,Z(BUF2),WRTREW) CALL FNAME (GEI,BUF) CALL WRITE (GEI,BUF,2,1) C C OPEN THE ECT. READ ELEMENT ID. C FILE = ECT CALL PRELOC (*2001,Z(BUF1),ECT) CALL LOCATE (*2006,Z(BUF1),GENEL,FLAG) 1031 CALL READ (*2002,*1150,ECT,BUF,1,0,FLAG) IDGENL = BUF(1) NOGENL = NOGENL + 1 C C READ THE UI LIST. STORE POSITION IN UI LIST, SIL NO., C INTERNAL GRID NO., AND COMPONENT CODE. C IUI = NSIL + 1 I = IUI J = 1 1041 CALL READ (*2002,*2003,ECT,Z(I+2),2,0,FLAG) IF (Z(I+2) .EQ. -1) GO TO 1042 Z(I) = J K = Z(I+2) Z(I+1) = Z(K) IF (Z(I+3) .NE. 0) Z(I+1) = Z(I+1) + Z(I+3) - 1 I = I + 4 J = J + 1 GO TO 1041 1042 NUI = I - 4 NBRUI = J - 1 NWDUI = 4*NBRUI C C READ THE UD LIST (IF PRESENT). STORE POSITION IN UD LIST, SIL NO., C INTERNAL GRID NO., AND COMPONENT CODE. C IUD = I J = 1 1051 CALL READ (*2002,*2003,ECT,Z(I+2),2,0,FLAG) IF (Z(I+2) .EQ. -1) GO TO 1052 Z(I) = J K = Z(I+2) Z(I+1) = Z(K) IF (Z(I+3) .NE. 0) Z(I+1) = Z(I+1) + Z(I+3) - 1 I = I + 4 J = J + 1 GO TO 1051 1052 NUD = I - 4 NBRUD = J - 1 NWDUD = 4*NBRUD IZ = I C C SORT UI AND UD LISTS ON SIL NO. C STORE INTERNAL POSITION IN UI AND UD LISTS. C WRITE ELEMENT ID, NO. OF UI-S, NO. OF UD-S. C WRITE SIL NOS. FOR UI LIST AND SIL NOS. FOR UD LIST. C CALL SORTI (0,0,4,2,Z(IUI),NWDUI) BUF(2) = NBRUI BUF(3) = NBRUD CALL WRITE (GEI,BUF,3,0) K = 1 DO 1061 I = IUI,NUI,4 SILNO = Z(I+1) Z(I+1) = K CALL WRITE (GEI,SILNO,1,0) 1061 K = K + 1 IF (NBRUD .EQ. 0) GO TO 1070 CALL SORTI (0,0,4,2,Z(IUD),NWDUD) K = 1 DO 1062 I = IUD,NUD,4 SILNO = Z(I+1) Z(I+1) = K CALL WRITE (GEI,SILNO,1,0) 1062 K = K + 1 C C SORT UI LIST ON EXTERNAL POSITION. C 1070 CALL SORTI (0,0,4,1,Z(IUI),NWDUI) C C DETERMINE IF CORE WILL HOLD THE FULL Z OR K MATRIX C NCORE = BUF2 - IZ NWDZ = NBRUI**2 NOCORE = 0 IF (NWDZ .GT. NCORE) NOCORE = 1 C C READ INDICATOR OF INPUT OF Z OR K MATRIX C CALL READ (*2002,*2003,ECT,IJK,1,0,FLAG) CALL WRITE (GEI,IJK,1,0) KOZ = 0 IF (IJK .EQ. 2) KOZ = 1 C C READ THE ELEMENTS OF THE Z OR K MATRIX. C CONVERT FROM EXTERNAL ROW AND COL NOS. TO INTERNAL ROW AND COL C NOS. IF CORE WILL HOLD Z OR K, STORE THE ELEMENTS IN CORE C OTHERWISE, WRITE CODED ROW/COL NOS AND ELEMENTS ON SCRATCH FILE. C IF (NOCORE .NE. 0) CALL OPEN (*2001,SCR4,Z(BUF3),WRTREW) DO 1094 I = IUI,NUI,4 INTROW = Z(I+1) KROW = IZ + (INTROW-1)*NBRUI - 1 DO 1094 J = I,NUI,4 INTCOL = Z(J+1) KCOL = IZ + (INTCOL-1)*NBRUI - 1 CALL READ (*2002,*2003,ECT,BUF(3),1,0,FLAG) IF (NOCORE .NE. 0) GO TO 1092 K = KROW + INTCOL Z(K) = BUF(3) K = KCOL + INTROW Z(K) = BUF(3) GO TO 1093 1092 M = 3 BUF(1) = INTCOL BUF(2) = INTROW IF (INTROW .EQ. INTCOL) GO TO 1095 BUF(4) = INTROW BUF(5) = INTCOL BUF(6) =BUF(3) M = 6 1095 CALL WRITE (SCR4,BUF,M,0) 1093 CONTINUE 1094 CONTINUE IF (NOCORE .NE. 0) CALL CLOSE (SCR4,CLSREW) C C IF Z OR K MATRIX IS IN CORE,WRITE IT OUT C OTHERWISE,SORT THE MATRIX AND THEN WRITE IT. C IF (NOCORE .EQ. 0) GO TO 1103 CALL OPEN (*2001,SCR4,Z(BUF3),RDREW) NFILE(1) = SCR1 NFILE(2) = SCR2 NFILE(3) = SCR3 CALL SORTI (SCR4,0,3,2,Z(IZ),NCORE-SYSBUF) CALL CLOSE (SCR4,CLSREW) IF (NFILE(6) .EQ. NFILE(1)) NFILE(1) = SCR4 IF (NFILE(6) .EQ. NFILE(2)) NFILE(2) = SCR4 IF (NFILE(6) .EQ. NFILE(3)) NFILE(3) = SCR4 JFILE = NFILE(6) CALL OPEN (*2001, JFILE, Z(BUF3), RDREW) CALL SORTI (JFILE, 0, 3, -1, Z(IZ), NCORE-SYSBUF) CALL CLOSE (JFILE, CLSREW) CALL OPEN (*2001,NFILE(6),Z(BUF3),RDREW) 1101 CALL READ (*2002,*1102,NFILE(6),BUF,3,0,FLAG) CALL WRITE (GEI,BUF(3),1,0) GO TO 1101 1102 CALL CLOSE (NFILE(6),CLSREW) GO TO 1110 1103 CALL WRITE (GEI,Z(IZ),NWDZ,0) C C READ FLAG WORD FOR S MATRIX. C IF S MATRIX NOT PRESENT, BUT UD IS PRESENT, C EXECUTE TA1CA TO COMPUTE AND WRITE S MATRIX. C IF S MATRIX AND UD BOTH NOT PRESENT, CLOSE GEI RECORD AND LOOP C BACK C 1110 CALL READ (*2002,*2003,ECT,BUF,1,0,FLAG) IF (BUF(1) .NE. 0) GO TO 1120 IF (NBRUD .EQ. 0) GO TO 1111 CALL SORTI (0,0,4,2,Z(IUI),NWDUI) CALL TA1CA (KOZ) 1111 CALL WRITE (GEI,0,0,1) GO TO 1031 C C S MATRIX IS PRESENT. C DETERMINE IF CORE WILL HOLD THE FULL S MATRIX C 1120 NWDS = NBRUD*NBRUI CALL SORTI (0,0,4,1,Z(IUD),NWDUD) NOCORE = 0 IF (NWDS .GT. NCORE) NOCORE = 1 C C READ THE ELEMENTS OF THE S MATRIX. C CONVERT FROM EXTERNAL ROW AND COL NOS TO INTERNAL ROW AND COL NOS. C IF CORE WILL HOLD S, STORE THE ELEMENTS IN CORE. C OTHERWISE, WRITE CODED ROW/COL NOS AND ELEMENTS ON SCRATCH FILE. C IF (NOCORE .NE. 0) CALL OPEN (*2001,SCR4,Z(BUF3),WRTREW) DO 1133 I = IUI,NUI,4 INTROW = Z(I+1) KROW = IZ + (INTROW-1)*NBRUD - 1 DO 1132 J = IUD,NUD,4 INTCOL = Z(J+1) K = KROW + INTCOL CALL READ (*2002,*2003,ECT,BUF(3),1,0,FLAG) IF (NOCORE .NE. 0) GO TO 1131 Z(K) = BUF(3) GO TO 1132 1131 BUF(1) = INTROW BUF(2) = INTCOL CALL WRITE (SCR4,BUF,3,1) 1132 CONTINUE 1133 CONTINUE IF (NOCORE .NE. 0) CALL CLOSE (SCR4,CLSREW) C C IF S MATRIX IS IN CORE, WRITE IT OUT. C OTHERWISE, SORT THE MATRIX AND THEN WRITE IT. C IF (NOCORE .EQ. 0) GO TO 1142 CALL OPEN (*2001,SCR4,Z(BUF3),RDREW) NFILE(1) = SCR1 NFILE(2) = SCR2 NFILE(3) = SCR3 CALL SORTI (SCR4,0,3,2,Z(IZ),NCORE-SYSBUF) CALL CLOSE (SCR4,CLSREW) IF (NFILE(6) .EQ. NFILE(1)) NFILE(1) = SCR4 IF (NFILE(6) .EQ. NFILE(2)) NFILE(2) = SCR4 IF (NFILE(6) .EQ. NFILE(3)) NFILE(3) = SCR4 JFILE = NFILE(6) CALL OPEN (*2001, JFILE, Z(BUF3), RDREW) CALL SORTI (JFILE, 0, 3, -1, Z(IZ), NCORE-SYSBUF) CALL CLOSE (JFILE, CLSREW) CALL OPEN (*2001,NFILE(6),Z(BUF3),RDREW) 1141 CALL READ (*2002,*1143,NFILE(6),BUF,3,0,FILE) CALL WRITE (GEI,BUF(3),1,0) GO TO 1141 1142 CALL WRITE (GEI,Z(IZ),NWDS,0) 1143 CALL WRITE (GEI,0,0,1) GO TO 1031 C C HERE WHEN NO MORE GENERAL ELEMENTS C 1150 CALL CLOSE (ECT,CLSREW) CALL CLOSE (GEI,CLSREW) BUF(1) = GEI BUF(2) = NOGENL CALL WRTTRL (BUF) IF (NOGO .NE. 0) CALL MESAGE (-61,0,NAM) RETURN C C FATAL ERRORS C 2001 N = -1 GO TO 2005 2002 N = -2 GO TO 2005 2003 N = -3 2005 CALL MESAGE (N,FILE,NAM) 2006 CALL MESAGE (-30,63,BUF) RETURN END ================================================ FILE: mis/ta1ca.f ================================================ SUBROUTINE TA1CA(KOZ) C***** C THIS ROUTINE, CALLED BY SUBROUTINE TA1C, COMPUTES THE S MATRIX OF A C GENERAL ELEMENT FROM INFORMATION IN THE CSTM AND BGPDT DATA BLOCKS. C SEE FMMS-57 FOR EQUATIONS. C***** DOUBLE PRECISION 1 V(3) ,T(9) 2, E(18) ,D(42) 3, S(6) ,DET 4, B(6) ,INDEX(18) 5, DD(30) ,DL(25) 6, DU(25) C C C INTEGER 1 CSTM ,BGPDT 2, GEI ,FILE 3, CLSRW ,EOR 4, BUFR1 ,BUFR2 5, BUFR3 C C C DIMENSION 1 NAME(2) ,SSP(6) 2, Z(1) 3, LROW(5) ,ICOL(6) C C C COMMON /TA1COM/ 1 DUM3(3) ,BGPDT 2, DUM2(2) ,CSTM 3, DUM22(2) ,GEI C C OPEN CORE C COMMON /ZZZZZZ/ 1 IZ(1) C C C COMMON /NAMES / 1 DUMMY1 ,INRW 2, DUMMY2 ,OUTRW 3, CLSRW C C C COMMON /TAC1AX/ 1 BUFR1 ,BUFR2 2, BUFR3 ,IUI 3, NUI ,IUD 4, NUD ,IZZZ 5, NOGO ,IDGENL C C C EQUIVALENCE 1 (Z(1),IZ(1)) C C C DATA EOR,NEOR /1,0/ DATA NAME(1)/4HTA1C/ , NAME(2)/4HA / C C INITIALIZE C NCSTM = 0 ICSTM = IZZZ LEFT = BUFR3 - ICSTM C C ATTEMPT TO OPEN THE CSTM C FILE = CSTM CALL OPEN(*20,CSTM,Z(BUFR3),INRW) CALL FWDREC(*9020,CSTM) CALL READ(*9020,*10,CSTM,Z(ICSTM+1),LEFT,EOR,NCSTM) CALL MESAGE (-8,0,NAME(1)) 10 CALL CLOSE (CSTM,CLSRW) C C PRETRD SETS UP SUBSEQUENT CALLS TO TRANSD C CALL PRETRD (Z(ICSTM+1),NCSTM) LEFT = LEFT - NCSTM C C READ THE BGPDT INTO CORE C 20 IBGPDT = ICSTM + NCSTM FILE = BGPDT CALL OPEN(*9010,BGPDT,Z(BUFR3),INRW) CALL FWDREC(*9020,BGPDT) CALL READ(*9020,*30,BGPDT,Z(IBGPDT+1),LEFT,EOR,NBGPDT) CALL MESAGE (-8,0,NAME(1)) 30 CALL CLOSE (BGPDT,CLSRW) C C ZERO OUT THE E MATRIX C DO 40 I = 1,18 40 E(I) = 0.0D0 E(1) = 1.0D0 E(8) = 1.0D0 E(15) = 1.0D0 IND = 0 50 IND = IND + 1 C***** C IF IND = 1, THE D MATRIX IS FORMED IN THE DO 200 LOOP. C IF IND = 2, THE S MATRIX IS FORMED AND OUTPUT A ROW AT A TIME IN THE C DO LOOP. C***** IF (IND - 2) 60,70,300 60 CONTINUE C C IF STIFFNESS IS INPUT,CALCULATE LIM C IF (KOZ.EQ.1) GO TO 65 LIM = 6 LIMA = 6 IBEG = IUD GO TO 80 65 LIM = (NUD - IUD) / 4 + 1 LIMA = LIM IBEG = IUD GO TO 80 70 LIM = (NUI - IUI) / 4 + 1 IBEG = IUI IROW = 37 80 J = IBEG - 2 I = 1 85 CONTINUE IF (IND .EQ. 1) IROW = 6*I - 5 J = J + 4 JJ = IZ(J+1) K = IBGPDT + 4*(IZ(J) - 1) C C COMPUTE THE V VECTOR C V(1) = 0.0D0 V(2) = 0.0D0 V(3) = 0.0D0 KK = JJ IF (JJ .GT. 3) KK = JJ - 3 IF (IZ(K+1) .EQ. 0) GO TO 120 CALL TRANSD (IZ(K+1),T) GO TO (90,100,110), KK 90 V(1) = T(1) V(2) = T(4) V(3) = T(7) GO TO 130 100 V(1) = T(2) V(2) = T(5) V(3) = T(8) GO TO 130 110 V(1) = T(3) V(2) = T(6) V(3) = T(9) GO TO 130 120 V(KK) = 1.0D0 C C FORM THE E MATRIX IF THE DEGREE OF FREEDOM IS A TRANSLATION. C 130 IF (JJ .GT. 3) GO TO 150 E( 5) = Z(K+4) E( 6) = -Z(K+3) E(10) = -Z(K+4) E(12) = Z(K+2) E(16) = Z(K+3) E(17) = -Z(K+2) IF (IZ(K+1) .EQ. 0) GO TO 140 CALL GMMATD (V,3,1,1, E,3,6,0, D(IROW) ) GO TO 180 140 IEROW = 6*JJ - 5 D(IROW ) = E(IEROW ) D(IROW+1) = E(IEROW+1) D(IROW+2) = E(IEROW+2) D(IROW+3) = E(IEROW+3) D(IROW+4) = E(IEROW+4) D(IROW+5) = E(IEROW+5) GO TO 180 C C THE DEGREE OF FREEDOM IS A ROTATION. C 150 LL = IROW DO 160 L = 1,6 D(LL) = 0.0D0 160 LL = LL + 1 IF (IZ(K+1) .EQ. 0) GO TO 170 D(IROW+3) = V(1) D(IROW+4) = V(2) D(IROW+5) = V(3) GO TO 180 170 LL = IROW + JJ - 1 D(LL) = 1.0D0 C C IF IND = 2 FORM A ROW OF THE S MATRIX AND WRITE IT OUT. C 180 IF (IND .EQ. 1) GO TO 200 C C IF STIFFNESS MATRIX INPUT AND LESS THAN 6 RIGID BODY DEGREES OF C FREEDOM, BRANCH C IF (KOZ.EQ.1.AND.LIMA.LT.6) GO TO 410 CALL GMMATD (D(37),6,1,1, D(1),6,6,0, S(1) ) DO 190 L = 1,6 190 SSP(L) = S(L) CALL WRITE (GEI,SSP,6,NEOR) 195 CONTINUE 200 CONTINUE I = I + 1 IF (I.LE.LIM) GO TO 85 IF (IND .NE. 1) GO TO 300 C C IF STIFFNESS MATRIX WAS INPUT AND LESS THAN 6 RIGID BODY DEGREES C OF FREEDOM, BRANCH C IF (KOZ.EQ.1.AND.LIM.LT.6) GO TO 310 C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERD (6,D(1),6,B(1),0,DET,ISING,INDEX(1)) IF (ISING .EQ. 1) GO TO 50 NOGO = 1 CALL MESAGE (30,82,IDGENL) GO TO 300 310 CONTINUE C C SWITCH FROM ROW STORED TO COLUMN STORED C DO 320 I=1,LIM DO 320 J=1,6 INDXZ = I+(J-1)*LIM 320 DD(INDXZ) = D(6*I+J-6) C C DETERMINE RANK OF DD AND EXPRESS MATRIX OF MAXIMAL RANK AS A C PRODUCT OF TRIANGULAR FACTORS C CALL DMFGR(DD,LIM,6,1.05E-05,IRANK,LROW,ICOL) IF (IRANK.EQ.LIM) GO TO 325 NOGO = 1 CALL MESAGE (30,152,IDGENL) GO TO 300 C C EXTRACT LOWER AND UPPER TRIANGULAR FACTORS, FORM PRODUCT,RESTORE C ROWS TO THEIR POSITION BEFORE FACTORIZATION AND INVERT. THEN C EXPAND MATRIX TO BE OF DIMENSION 6 BY IRANK C 325 IF (IRANK.EQ.1) GO TO 365 DO 335 I=1,25 DL(I) = 0.0D0 335 DU(I) = 0.0D0 DO 350 I=1,IRANK DO 350 J=1,IRANK IF (I.GT.J) GO TO 340 IF (I.EQ.J) GO TO 330 INDXZ = I+(J-1)*IRANK DL(INDXZ) = DD(I*IRANK+J-IRANK) GO TO 350 330 INDXZ = I+(J-1)*IRANK DL(INDXZ) = 1.0D0 340 INDXZ = I+(J-1)*IRANK DU(INDXZ) = DD(I*IRANK+J-IRANK) 350 CONTINUE CALL GMMATD (DL(1),LIM,LIM,0,DU(1),LIM,LIM,0,DD) DO 360 I=1,LIM K = LROW(I) DO 360 J=1,LIM INDXZ = J+(K-1)*LIM 360 D(INDXZ) = DD(I*LIM+J-LIM) C AGAIN NO NEED TO COMPUTE DETERMINANT ISING = -1 CALL INVERD (LIM,D(1),LIM,B(1),0,DET,ISING,INDEX(1)) IF (ISING.EQ.1) GO TO 370 NOGO = 1 CALL MESAGE (30,153,IDGENL) GO TO 300 365 D(1) = 1.0D0/DD(1) 370 K = LIM * LIM + 1 J = LIM * 6 DO 380 I = K,J 380 D(I) = 0.0D0 GO TO 50 410 CONTINUE C C REARRANGE COLUMNS TO AGREE WITH ORDER OF DD AFTER MATRIX FACTOR- C IZATION C DO 420 L = 1,6 LK = ICOL(L) 420 B(L) = D(36+LK) C C MULTIPLY DI BY THE EXPANDED INVERSE OF DD C CALL GMMATD (B(1),1,6,0,D(1),6,LIMA,0,S(1)) C C WRITE OUT THIS ROW OF THE S MATRIX C DO 430 L =1,LIMA 430 SSP(L) = S(L) CALL WRITE (GEI,SSP,LIMA,NEOR) GO TO 195 300 RETURN C C ERROR MESSAGES C 9010 CALL MESAGE (-1,FILE,NAME(1)) 9020 CALL MESAGE (-1,FILE,NAME(1)) RETURN END ================================================ FILE: mis/ta1cpd.f ================================================ SUBROUTINE TA1CPD C C G3 MATRIX CALCULATION WITH NEW FORMULATION C C THIS ROUTINE IS CALLED IN TA1 IF PARAM COMPS IS SET TO -1 C INDICATING PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES ARE C PRESENT. IT'S PRIMARY FUNCTION IS TO - C 1. CREATE FILE PCOMPS WHICH WILL CONTAIN THE ECHO OF THE C 'PCOMPS' ENTRIES ALONG WITH INDIVIDUAL LAYER INTRINISIC C PROPERTY MATRICES. C 2. CALCULATE OVERALL MATERIAL PROPERTIES IN THE FORM OF MAT2 C ENTRIES AND WRITE TO FILE MPTX. C 3. GENERATE EQUIVALENT PSHELL PROPERTY ENTRIES AND WRITE TO C FILE EPTX. C EXTERNAL ANDF,ORF LOGICAL OK UAI INTEGER PCOMP(2),PCOMP1(2),PCOMP2(2),COMPS,PCBIT(3),EPTX, 1 PSHLPR,EPTWDS,PSHBIT,RD,RDREW,WRT,WRTREW,CLSREW, 2 CLS,IPSHEL(17),PSHNAM(3),PCOMPR,TYPC,TYPC1,TYPC2, 3 FLAG,EPT,PCOMPS,EOF,ELID,PIDLOC,EOELOC,SYM,Z, 4 SYMMEM,EOE,SYSBUF,POS,POS1,BUF0,BUF1,BUF2,BUF3, 5 BUF4,BUF5,FILE,INDEX(6,3),INDEXX(3,3),ANDF,ORF, 6 BLANK DIMENSION RZ(1),NPCMP(3),NPCMP1(3),NPCMP2(3),NAM(2), 1 NAM1(2),NAM2(2),MATNAM(3),IPCOMP(7),IMEMBR(17), 2 IBENDG(17),IMEMBD(17),ITRSHR(17),IMPTX(7), 3 IEPTX(7) REAL GLAY(25),GMEMBR(17),GBENDG(17),GMEMBD(17), 1 GTRSHR(17),EXX,EYY,EIXX,EIYY,ZX,ZY,RPSHEL(17), 2 ALFA1,ALFA2,ALFA12,TREF,GSUBE DOUBLE PRECISION THETA,THETAR,C,C2,C4,S,S2,S4,PI,TWOPI,RADDEG, 1 DEGRAD,T(9),GT(9),GBR(9),GBAR(3,3),G(25), 2 GD(9),GDT(9),GDBR(9),GDBAR(3,3),GD2(3,3),U(9), 3 G3I(9),G3IU(9),G3BR(9),G3BAR(3,3),G1(3,3), 4 G2(3,3),G3(2,2),G4(3,3),TLAM,ZK,ZK1,ZREF, 5 ZG1,ZG2,ZG4,ZI,TI,RHO,DETRMN,CONST,ZBARX,ZBARY, 6 TRFLX(2,2),ZBARXT,ZBARXB,ZBARYT,ZBARYB,ZBAR(2), 7 GTRFLX(2,2),G3INVD(2,2),EX,EY,E(2),FI(2), 8 FII(2),RI(2),DETERM,DUM(6),DUMMY(3),STIFF(6,6), 9 EI(2),GD1(3,3),GD4(3,3),EPSI COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL ,COMPS COMMON /TA1COM/ NSIL ,ECT ,EPT ,BGPDT ,SIL ,GPTT ,CSTM , 1 MPT ,EST ,GEI ,GPECT ,ECPT ,GPCT ,MPTX , 2 PCOMPS,EPTX ,SCR1 ,SCR2 ,SCR3 ,SCR4 COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW,CLS COMMON /MACHIN/ MACH COMMON /SYSTEM/ SYSBUF,NOUT ,NOGO ,DM(20),ICFIAT COMMON /MATIN / MATID ,INFLAG,ELTEMP COMMON /MATOUT/ RMTOUT(25) COMMON /ZZZZZZ/ Z(1) COMMON /CONDAD/ PI ,TWOPI ,RADDEG,DEGRAD COMMON /TWO / TWO(32) EQUIVALENCE (Z(1) ,RZ(1) ), (IPSHEL(1),RPSHEL(1)), 1 (IMEMBR(1),GMEMBR(1)), (IBENDG(1),GBENDG(1)), 2 (IMEMBD(1),GMEMBD(1)), (ITRSHR(1),GTRSHR(1)) C DATA MPT / 107/ C DATA MPTX / 206/ C DATA PCOMPS/ 207/ C DATA EPTX / 208/ DATA PCOMP / 5502,55/ DATA PCOMP1/ 5602,56/ DATA PCOMP2/ 5702,57/ DATA NPCMP / 5502,55,280/ DATA NPCMP1/ 5602,56,281/ DATA NPCMP2/ 5702,57,282/ DATA PSHNAM/ 5802,58,283/ DATA MATNAM/ 203, 2, 78 / DATA PCBIT / 55, 56, 57 / DATA PSHBIT/ 58/ DATA I1ST / 1 / DATA SYM / 1 / DATA MEM / 2 / DATA SYMMEM/ 3 / DATA MT2BIT/ 2 / DATA EOE / -1/ DATA NAM / 4HTA1C, 4HPD / DATA NAM2 / 4HPCOM, 4HPS / DATA BLANK / 4HBLNK / DATA OK UAI/ .TRUE. / DATA EPSI / 1.0D-15 / C BUF0 = KORSZ(Z) - SYSBUF - 2 BUF1 = BUF0 - SYSBUF - 2 BUF2 = BUF1 - SYSBUF - 2 BUF3 = BUF2 - SYSBUF - 2 BUF4 = BUF3 - SYSBUF - 2 BUF5 = BUF4 - SYSBUF - 2 C C PERFORM GENERAL INITILIZATION C MATWDS = 0 EOF = 0 ELID = 0 MAT2PR = 0 PSHLPR = 0 ICOUNT = 0 RHO = 0.0D0 IF (MACH .EQ. 2) EPSI = 1.0D-12 C C OPEN EPTX AND WRITE HEADER RECORD C FILE = EPTX CALL OPEN (*1200,EPTX,Z(BUF0),WRTREW) CALL FNAME (EPTX,NAM1) CALL WRITE (EPTX,NAM1,2,1) C C OPEN MPTX AND WRITE HEADER RECORD C FILE = MPTX CALL OPEN (*1200,MPTX,Z(BUF1),WRTREW) CALL FNAME (MPTX,NAM1) CALL WRITE (MPTX,NAM1,2,1) C C OPEN MPT AND POSITION FILE C FILE = MPT CALL OPEN (*1200,MPT,Z(BUF2),RDREW) CALL FWDREC (*1200,MPT) C C OPEN PCOMPS AND WRITE HEADER RECORD C WRITE TO IPCOMP(1), THE GINO FILE NAME OF PCOMPS C FILE = PCOMPS CALL OPEN (*1200,PCOMPS,Z(BUF3),WRTREW) CALL WRITE (PCOMPS,NAM2,2,1) C IPCOMP(1) = PCOMPS DO 10 LL = 2,7 10 IPCOMP(LL) = 0 C C COPY ALL EPT ENTRIES UP TO PSHELL TYPE TO FILE EPTX C IF NONE FOUND, MUST CREATE ONE BEFORE THE LAST RECORD IN FILE C C SET AVAILABLE CORE C N = BUF5 - 1 IEPT = I1ST FILE = EPT CALL OPEN (*1200,EPT,Z(BUF4),RDREW) CALL FWDREC (*1200,EPT) IREC = 0 20 CALL FWDREC (*30,EPT) IREC = IREC + 1 GO TO 20 C 30 CALL REWIND (EPT) CALL FWDREC (*1200,EPT) IRED = 0 40 CALL READ (*1200,*50,EPT,Z(IEPT),N,1,EPTWDS) CALL MESAGE (-8,0,NAM) 50 IF (Z(IEPT) .EQ. 4902) GO TO 60 IRED = IRED + 1 IF (IRED .EQ. IREC) GO TO 70 CALL WRITE (EPTX,Z(IEPT),EPTWDS,1) EPTWDS = 0 GO TO 40 C 60 PSHLPR = 1 70 CALL BCKREC (EPT) CALL SAVPOS (EPT,POS1) CALL CLOSE (EPT,CLSREW) C C OPEN EPT C FILE = EPT CALL PRELOC (*1200,Z(BUF4),EPT) C C COPY ALL MAT ENTRIES UP TO MAT2 TYPE TO FILE MPTX C C SET AVAILABLE CORE C N = BUF5 - 1 IMAT = I1ST 80 CALL READ (*110,*90,MPT,Z(IMAT),N,1,MATWDS) CALL MESAGE (-8,0,NAM) 90 IF (Z(IMAT) .GE. 203) GO TO 100 CALL WRITE (MPTX,Z(IMAT),MATWDS,1) MATWDS = 0 GO TO 80 100 CALL BCKREC (MPT) CALL SAVPOS (MPT,POS) IF (Z(IMAT) .EQ. 203) MAT2PR = 1 GO TO 120 C C SET END OF FILE FLAG C 110 EOF = 1 C C CLOSE MPT BEFORE CALLING PREMAT C 120 CALL CLOSE (MPT,1) C C SET POINTERS AND PERFORM INITILIZATION C IPC1 = 1 NPC = 0 NPC1 = 0 NPC2 = 0 TYPC = 0 TYPC1 = 0 TYPC2 = 0 C C SET SIZE OF AVAILABLE CORE C N = BUF5 - 1 IPC = 1 C C LOCATE PCOMP DATA AND READ INTO CORE C CALL LOCATE (*140,Z(BUF4),PCOMP,FLAG) C CALL READ (*1200,*130,EPT,Z(IPC),N,0,NPC) CALL MESAGE (-8,0,NAM) 130 IF (NPC .GT. 0) TYPC = 1 IPC1 = IPC + NPC IF (IPC1 .GE. BUF5) CALL MESAGE (-8,0,NAM) N = N - NPC C C LOCATE PCOMP1 DATA AND READ INTO CORE C 140 CALL LOCATE (*160,Z(BUF4),PCOMP1,FLAG) C IPC1 = IPC + NPC CALL READ (*180,*150,EPT,Z(IPC1),N,0,NPC1) CALL MESAGE (-8,0,NAM) 150 IF (NPC1 .GT. 0) TYPC1 = 1 IPC2 = IPC1 + NPC1 IF (IPC2 .GE. BUF5) CALL MESAGE (-8,0,NAM) N = N - NPC1 C C LOCATE PCOMP2 DATA AND READ INTO CORE C 160 CALL LOCATE (*180,Z(BUF4),PCOMP2,FLAG) C IPC2 = IPC1 + NPC1 CALL READ (*180,*170,EPT,Z(IPC2),N,0,NPC2) CALL MESAGE (-8,0,NAM) 170 IF (NPC2 .GT. 0) TYPC2 = 1 C C SET SIZE OF LPCOMP. NUMBER OF WORDS READ INTO CORE C 180 LPCOMP = IPC + NPC + NPC1 + NPC2 IF (LPCOMP .GE. BUF5) CALL MESAGE (-8,0,NAM) C C CLOSE EPT BEFORE PROCESSING PCOMPI C CALL CLOSE (EPT,1) C C READ MATERIAL PROPERTY TABLE INTO CORE C IMAT = LPCOMP + 1 N1MAT = BUF5 - IMAT CALL PREMAT (Z(IMAT),Z(IMAT),Z(BUF5),N1MAT,N2MAT,MPT,DIT) IF (IMAT+N2MAT .GE. BUF5) CALL MESAGE (-8,0,NAM) ICORE = IMAT + N2MAT + 1 C C SET POINTERS C ITYPE =-1 ISTART = 0 IFINIS = 0 C C PROCESS ALL 'PCOMP' ENTRY TYPES SEQUENTIALLY C C PCOMP ENTRIES C IF (TYPC .EQ. 0) GO TO 190 ITYPE = 0 ISTART = IPC IFINIS = IPC1 - 1 NWDPC = 8 KPC = 4 PCOMPR = 1 GO TO 220 C C PCOMP1 ENTRIES C 190 IF (TYPC1 .EQ. 0) GO TO 200 ITYPE = 1 ISTART = IPC1 IFINIS = IPC2 - 1 NWDPC = 8 KPC = 1 PCOMPR = 1 GO TO 220 C C PCOMP2 ENTRIES C 200 IF (TYPC2 .EQ. 0) GO TO 210 ITYPE = 2 ISTART = IPC2 IFINIS = LPCOMP - 1 NWDPC = 8 KPC = 2 C C CHECK IF NO PCOMP DATA HAS BEEN READ INTO CORE C 210 IF (TYPC.EQ.0 .AND. TYPC1.EQ.0 .AND. TYPC2.EQ.0) GO TO 1210 C C SET INFLAG = 12, SO THAT FOR LAMINA REFERENCING MAT1 OR MAT2 C PROPERTY ENTRY WILL BE RETURNED IN MAT2 FORMAT. EXECPT FOR C THOSE REFERENCING MAT8 PROPERTY, IN WHICH CASE THE ENTRY C IS MERELY ECHOED. C 220 INFLAG = 12 C C SET POINTERS C C WRITE 3-WORD IDENTITY FOR PCOMP DATA C C PCOMP TYPE C IF (ITYPE .NE. 0) GO TO 230 CALL WRITE (PCOMPS,NPCMP,3,0) GO TO 250 C C PCOMP1 TYPE C 230 IF (ITYPE .NE. 1) GO TO 240 CALL WRITE (PCOMPS,NPCMP1,3,0) GO TO 250 C C PCOMP2 TYPE C 240 CALL WRITE (PCOMPS,NPCMP2,3,0) C C PROCESS ALL 'PCOMP' ENTRIES C 250 LEN = 0 NLAY = 0 EOELOC = 0 PIDLOC = 1 TLAM = 0.D0 RHO = 0.D0 ZK = 0.0D0 ZK1 = 0.0D0 C C ... NEXT 5 TERMS ARE NEW IN 2/1990 UAI CODE C PICK THEM UP IF OK UAI FLAG IS .TRUE. C IF (.NOT.OK UAI) GO TO 255 TREF = 0.0 GSUBE = 0.0 ALFA1 = 0.0 ALFA2 = 0.0 ALFA12 = 0.0 C 255 DO 260 II = ISTART,IFINIS IF (Z(II) .EQ. -1) GO TO 270 260 CONTINUE C 270 EOELOC = II PIDLOC = ISTART LEN = EOELOC - PIDLOC NLAY = (LEN - NWDPC)/KPC LAMOPT = Z(PIDLOC+7) C C DETERMINE LAMINATE THICKNESS C C PCOMP DATA C IF (ITYPE .GT. 0) GO TO 290 DO 280 K = 1,NLAY IIK = (PIDLOC+5) + 4*K TLAM = TLAM + RZ(IIK) 280 CONTINUE IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0D0*TLAM GO TO 320 C C PCOMP1 DATA C 290 IF (ITYPE .GT. 1) GO TO 300 IIK = PIDLOC + 6 TLAM = RZ(IIK)*NLAY IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0D0*TLAM GO TO 320 C C PCOMP2 DATA C 300 DO 310 K = 1,NLAY IIK = (PIDLOC+6) + 2*K TLAM = TLAM + RZ(IIK) 310 CONTINUE IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0D0*TLAM C C WRITE TO PCOMPS C 1. PID C 2. NLAY - NUMBER OF LAYERS C 3. REMAINDER OF PCOMP ENTRY C 320 CALL WRITE (PCOMPS,Z(PIDLOC),1,0) CALL WRITE (PCOMPS,NLAY,1,0) C C SET LEN TO THE NO. WORDS TO BE WRITTEN TO PCOMPS C LEN = LEN - 1 CALL WRITE (PCOMPS,Z(PIDLOC+1),LEN,0) C C CALL MAT TO GET LAYER PROPERTIES AND WRITE TO PCOMPS C NOTE FOR PCOMP1 AND PCOMP2 ENTRIES THE PROPERTY MATRIX C IS ONLY WRITTEN TO PCOMPS ONCE. (ALL LAYER PER ENTRY HAVE C THE SAME MID. C SIMILARILY FOR PCOMP ENTRY, IF ALL LAYERS REFERENCE THE SAME C MID, THEN THE PROPERTY MATRIX IS ONLY WRITTEN ONCE TO PCOMPS. C C ITYPE = 0 PCOMP ENTRY C ITYPE = 1 PCOMP1 ENTRY C ITYPE = 2 PCOMP2 ENTRY C MID = 0 C C INTILIZISE G1, G2, G3 AND G4 MATRICES C DO 330 LL = 1,3 DO 330 MM = 1,3 G1 (LL,MM) = 0.0D0 GD1(LL,MM) = 0.0D0 G2 (LL,MM) = 0.0D0 GD2(LL,MM) = 0.0D0 G4 (LL,MM) = 0.0D0 GD4(LL,MM) = 0.0D0 330 CONTINUE C DO 340 LL = 1,2 FII(LL) = 0.0D0 FI(LL) = 0.0D0 RI(LL) = 0.0D0 ZBAR(LL) = 0.0D0 DO 340 MM = 1,2 G3(LL,MM) = 0.0D0 GTRFLX(LL,MM) = 0.0D0 TRFLX(LL,MM) = 0.0D0 G3INVD(LL,MM) = 0.0D0 340 CONTINUE C C INTILIZISE ZBAR C ZBARX = 0.0D0 ZBARY = 0.0D0 ZBARXT = 0.0D0 ZBARXB = 0.0D0 ZBARYT = 0.0D0 ZBARYB = 0.0D0 ZX = 0.000 ZY = 0.000 C EIXX = 0.000 EIYY = 0.000 C C LOOP OVER LAYERS C DO 500 K = 1,NLAY IF (ITYPE .EQ. 0) MATID = Z(PIDLOC+4+4*K) IF (ITYPE.EQ.1 .OR. ITYPE.EQ.2) MATID = Z(PIDLOC+5) IF (K.GE.2 .AND. (ITYPE.EQ.0 .AND. MID.EQ.MATID)) GO TO 410 IF (K.GE.2 .AND. (ITYPE.EQ.1 .OR. ITYPE.EQ.2) ) GO TO 420 C MID = MATID CALL MAT (ELID) C C CALL LPROPD TO GET LAYER PROPERTY MATRICES C CALL LPROPD (G) C C COPY G(25) TO GLAY(25), FOR WRITING TO PCOMPS C DO 400 KK = 1,25 400 GLAY(KK) = G(KK) C C ... NEXT 20 LINES ARE NEW FROM 2/1990 UAI CODE C C COPY ALFA1, ALFA2 AND ALFA12 FROM GLAY(14 THRU 16) C IF (.NOT.OK UAI) GO TO 410 ALFA1 = GLAY(14) ALFA2 = GLAY(15) ALFA12 = GLAY(16) C C IF PCOMP, COPY TREF AND GE FROM THE MAIN CARD TO THE MATERIAL C PROPERTY DATA. THIS IS DONE FOR THE FIRST LAYER C IF (K .GT. 1) GO TO 410 IF (ITYPE .GE. 1) GO TO 405 TREF = RZ(PIDLOC+5) GSUBE = RZ(PIDLOC+6) GLAY(24) = TREF GLAY(25) = GSUBE GO TO 410 405 TREF = GLAY(24) GSUBE = GLAY(25) C C WRITE THE LAYER PROPERTY MATRIX G TO FILE PCOMPS C 410 CALL WRITE (PCOMPS,GLAY(1),25,0) C C C CALCULATE CONTRIBUTION OF EACH LAYER TO OVERALL PROPERTY C MATRICES G1, G2, G4 C C BUILD TRANSFORMATION MATRIX T C 420 IF (ITYPE .EQ. 0) THETA = RZ(PIDLOC+6+4*K) IF (ITYPE .EQ. 1) THETA = RZ(PIDLOC+7+ K) IF (ITYPE .EQ. 2) THETA = RZ(PIDLOC+7+2*K) C = DABS(THETA) IF (C .LT. 0.00002D0) C = 0.0D0 IF (C.GT.89.9998D0 .AND. C.LT.90.0002D0) C = 90.0D0 IF (C.GT.179.998D0 .AND. C.LT.180.002D0) C = 180.0D0 IF (C.GT.269.998D0 .AND. C.LT.270.002D0) C = 270.0D0 IF (C.GT.359.998D0 .AND. C.LT.360.002D0) C = 360.0D0 IF (THETA .LT. 0.0D0) C = -C THETAR = C*DEGRAD C C = DCOS(THETAR) IF (DABS(C) .LT. EPSI) C = 0.0D0 C2 = C*C C4 = C2*C2 S = DSIN(THETAR) IF (DABS(S) .LT. EPSI) S = 0.0D0 S2 = S*S S4 = S2*S2 C T(1) = C2 T(2) = S2 T(3) = C*S T(4) = S2 T(5) = C2 T(6) =-C*S T(7) =-2.0*C*S T(8) = 2.0*C*S T(9) = C2 - S2 C C T C CALCULATE GBAR = T X G X T C C MULTIPLY G X T AND WRITE TO GT C CALL GMMATD (G(1),3,3,0, T(1),3,3,0, GT(1)) C C T C MULTIPLY T X GT AND WRITE TO GBR C CALL GMMATD (T(1),3,3,1, GT(1),3,3,0, GBR(1)) C C WRITE GBR IN TWO DIMENSIONED ARRAY GBAR C DO 430 LL = 1,3 DO 430 MM = 1,3 NN = MM + 3*(LL-1) GBAR(LL,MM) = GBR(NN) 430 CONTINUE C C PROCESSING FOR G3 MATRIX C C T C CALCULATE GDBAR = T X GD X T C C DETERMINE GD MATRIX, WHICH IS EQUAL TO G MATRIX WITH POISSONS C RATIO=0.0 C GD(1) ---- YOUNGS MODULUS IN X-DIRN C GD(5) ---- YOUNGS MODULUS IN Y-DIRN C GD(9) ---- INPLANE SHEAR MODULUS C DO 440 LL = 1,9 440 GD(LL) = 0.0D0 CONST = 1.0D0 - (G(2)*G(4))/(G(5)*G(1)) GD(1) = G(1)*CONST GD(5) = G(5)*CONST GD(9) = G(9) C C MULTIPLY GD X T AND WRITE TO GDT C CALL GMMATD (GD(1),3,3,0, T(1),3,3,0, GDT(1)) C C T C MULTIPLY T X GDT AND WRITE TO GDBR C CALL GMMATD (T(1),3,3,1, GDT(1),3,3,0, GDBR(1)) C C WRITE GDBR IN TWO DIMENSIONED ARRAY GDBAR C DO 450 LL = 1,3 DO 450 MM = 1,3 NN = MM + 3*(LL-1) GDBAR(LL,MM) = GDBR(NN) 450 CONTINUE C C ********************************************************* C * NOTE TO APPROXIMATE BEAM BEHAVIOUR THE CROSS AND * C * COUPLING TERMS IN THE GDBAR MATRIX NEED TO BE * C * DEGRADED I.E SET TO ZERO. * C ********************************************************* C GDBAR(1,2) = 0.0D0 GDBAR(2,1) = 0.0D0 GDBAR(1,3) = 0.0D0 GDBAR(3,1) = 0.0D0 GDBAR(2,3) = 0.0D0 GDBAR(3,2) = 0.0D0 C C PERFORM INITIALIZATION C ZREF = -TLAM/2.0D0 ZK1 = ZK IF (K .EQ. 1) ZK1 = ZREF IF (ITYPE .EQ. 0) ZK = ZK1 + RZ(PIDLOC+5+4*K) IF (ITYPE .EQ. 1) ZK = ZK1 + RZ(PIDLOC+6 ) IF (ITYPE .EQ. 2) ZK = ZK1 + RZ(PIDLOC+6+2*K) ZG1 = ZK - ZK1 ZG4 =-(ZK**2 - ZK1**2)*0.5D0 ZG2 = (ZK**3 - ZK1**3)*0.33333333D0 C C CALCULATE LAYER CONTRIBUTION TO G1, G2, GD2 ,G4 C DO 460 IR = 1,3 DO 460 IC = 1,3 G1 (IR,IC) = G1(IR,IC) + GBAR(IR,IC)*ZG1 GD1(IR,IC) = GD1(IR,IC) + GDBAR(IR,IC)*ZG1 IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 460 G2 (IR,IC) = G2(IR,IC) + GBAR(IR,IC)*ZG2 GD2(IR,IC) = GD2(IR,IC) + GDBAR(IR,IC)*ZG2 IF (LAMOPT .EQ. SYM) GO TO 460 G4 (IR,IC) = G4(IR,IC) + GBAR(IR,IC)*ZG4 GD4(IR,IC) = GD4(IR,IC) + GDBAR(IR,IC)*ZG4 460 CONTINUE C C CHECK LAMINATION OPTION AND IF SYMM OR SYMM.MEMB CALCULATE C LAYER CONTRIBUTION TO THE MEMBRANE, BENDING AND THE C MEMEBRANE-BENDING MATRICES C IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 480 C DO 470 IR = 1,3 DO 470 IC = 1,3 G1 (IR,IC) = G1(IR,IC) + GBAR(IR,IC)*ZG1 GD1(IR,IC) = GD1(IR,IC) + GDBAR(IR,IC)*ZG1 IF (LAMOPT .EQ. SYMMEM) GO TO 470 G2 (IR,IC) = G2(IR,IC) + GBAR(IR,IC)*ZG2 GD2(IR,IC) = GD2(IR,IC) + GDBAR(IR,IC)*ZG2 470 CONTINUE C 480 CONTINUE C C ************************************************************ C CALCULATION OF ZBARX AND ZBARY C NEUTRAL SURFACE LOCATION IN X- AND Y- DIRECTION C C TI - THICKNESS OF LAYER K C ZI - DISTANCE FROM REFERENCE SURFACE TO MID OF LAMINA K C EX,EY - APPARENT ENGINEERING PROPERTY. I.E YOUNGS MODULUS C IN THE LONGITUDINAL AND TRANSVERSE DIRECTIONS IN C THE MATERIAL COORDINATE SYSTEM. C ************************************************************ C C INVERT GDBAR TO DETERMINE EX AND EY C ISING = -1 CALL INVERD (3,GDBAR,3,DUMMY,0,DETERM,ISING,INDEXX) C C THE YOUNGS MODULI EX AND EY IN THE MATERIAL COORD SYSTEM C EX = 1.0D0/GDBAR(1,1) EY = 1.0D0/GDBAR(2,2) C EXX = EX EYY = EY C C WRITE EXX AND EYY TO PCOMPS C CALL WRITE (PCOMPS,EXX,1,0) CALL WRITE (PCOMPS,EYY,1,0) C IF (LAMOPT .EQ. SYM) GO TO 490 C TI = ZK - ZK1 ZI = (ZK + ZK1)/2.0D0 C ZBARXT = ZBARXT + EX*TI*ZI ZBARXB = ZBARXB + EX*TI ZBARYT = ZBARYT + EY*TI*ZI ZBARYB = ZBARYB + EY*TI C C CALCULATE CONTRIBUTION TO OVERALL DENSITY RHO C 490 IF (G(23) .EQ. 0.) GO TO 500 RHO = RHO + G(23)*ZG1 C C PROCESS NEXT LAYER C 500 CONTINUE C C JUMP IF LAMOPT IS MEMBRANE OR SYMM.MEMBRANE C IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 520 C C WRITE GD1, GD2 AND GD4 TO STIFF MATRIX AND INVERT C TO DETERMINE THE OVERALL BENDING PROPERTY FOR THE C LAMINATE. C DO 510 LL= 1,3 DO 510 MM = 1,3 STIFF(LL ,MM ) = GD1(LL,MM) STIFF(LL ,MM+3) = GD4(LL,MM) STIFF(LL+3,MM ) = GD4(LL,MM) STIFF(LL+3,MM+3) = GD2(LL,MM) 510 CONTINUE C C INVERT STIFF C ISING = -1 CALL INVERD (6,STIFF,6,DUM,0,DETERM,ISING,INDEX) C EI(1) = 1.0D0/STIFF(4,4) EI(2) = 1.0D0/STIFF(5,5) C EIXX = EI(1) EIYY = EI(2) C C WRITE EIXX AND EIYY TO PCOMPS C 520 CALL WRITE (PCOMPS,EIXX,1,0) CALL WRITE (PCOMPS,EIYY,1,0) C C *************************************************************** C * THE MEMBRANE, BENDING, AND MEMEBRANE-BENDING MATRICES * C * G1, G2, AND G4 ARE GIVEN BY THE FOLLOWING * C *************************************************************** C DO 530 IR = 1,3 DO 530 IC = 1,3 G1(IR,IC) = (1.0D0/TLAM)*G1(IR,IC) IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 530 G2(IR,IC) = (12.0D0/TLAM**3)*G2(IR,IC) IF (LAMOPT.EQ.SYM) GO TO 530 G4(IR,IC) = (1.0D0/TLAM**2)*G4(IR,IC) 530 CONTINUE C C CALCULATE LOCATION OF NEUTRAL SURFACE ZBARX AND ZBARY C FOR LAMINATE C IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) 1 GO TO 540 ZBARX = ZBARXT/ZBARXB ZBARY = ZBARYT/ZBARYB ZBAR(1) = ZBARX ZBAR(2) = ZBARY C ZX = ZBARX ZY = ZBARY C C WRITE ZX AND ZY TO PCOMPS C 540 CALL WRITE (PCOMPS,ZX,1,0) CALL WRITE (PCOMPS,ZY,1,0) C C CALCULATE OVERALL DENSITY RHO C IF (RHO .EQ. 0.) GO TO 550 IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) RHO = 2.0D0*RHO RHO = RHO/TLAM C C ***************************************************************** C * CHECK IF TRANSVERSE FLEXIBILITY MATRIX NEEDS TO CALCULATED * C * OTHERWISE JUMP TO PROCEED AS PER NORMAL. * C ***************************************************************** C 550 IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 830 IF (G(10) .EQ. 0.0D0) GO TO 830 C C LOOP OVER ALL THE LAYERS C DO 700 K = 1,NLAY IF (ITYPE .EQ. 0) MATID = Z(PIDLOC+4+4*K) IF (ITYPE.EQ.1 .OR. ITYPE.EQ.2) MATID = Z(PIDLOC+5) IF (K.GE.2 .AND. (ITYPE.EQ.0 .AND. MID.EQ.MATID)) GO TO 560 IF (K.GE.2 .AND. (ITYPE.EQ.1 .OR. ITYPE.EQ.2) ) GO TO 560 C MID = MATID CALL MAT (ELID) C C CALL LPROPD TO GET LAYER PROPERTY MATRICES C CALL LPROPD (G) C C BUILD TRANSFORMATION MATRIX T C 560 IF (ITYPE .EQ. 0) THETA = RZ(PIDLOC+6+4*K) IF (ITYPE .EQ. 1) THETA = RZ(PIDLOC+7+ K) IF (ITYPE .EQ. 2) THETA = RZ(PIDLOC+7+2*K) C = DABS(THETA) IF (C .LT. 0.00002D0) C = 0.0D0 IF (C.GT.89.9998D0 .AND. C.LT.90.0002D0) C = 90.0D0 IF (C.GT.179.998D0 .AND. C.LT.180.002D0) C = 180.0D0 IF (C.GT.269.998D0 .AND. C.LT.270.002D0) C = 270.0D0 IF (C.GT.359.998D0 .AND. C.LT.360.002D0) C = 360.0D0 IF (THETA .LT. 0.0D0) C = -C THETAR = C*DEGRAD C C = DCOS(THETAR) IF (DABS(C) .LT. EPSI) C = 0.0D0 C2 = C*C C4 = C2*C2 S = DSIN(THETAR) IF (DABS(S) .LT. EPSI) S = 0.0D0 S2 = S*S S4 = S2*S2 C T(1) = C2 T(2) = S2 T(3) = C*S T(4) = S2 T(5) = C2 T(6) =-C*S T(7) =-2.0*C*S T(8) = 2.0*C*S T(9) = C2 - S2 C C PROCESSING FOR G3 MATRIX C C T C CALCULATE GDBR = T X GD X T C C DETERMINE GD MATRIX, WHICH IS EQUAL TO G MATRIX WITH POISSONS C RATIO=0.0 C GD(1) ---- YOUNGS MODULUS IN X-DIRN C GD(5) ---- YOUNGS MODULUS IN Y-DIRN C GD(9) ---- INPLANE SHEAR MODULUS C DO 570 LL = 1,9 570 GD(LL) = 0.0D0 CONST = 1.0D0 - (G(2)*G(4))/(G(5)*G(1)) GD(1) = G(1)*CONST GD(5) = G(5)*CONST GD(9) = G(9) C C MULTIPLY GD X T AND WRITE TO GDT C CALL GMMATD (GD(1),3,3,0, T(1),3,3,0, GDT(1)) C C T C MULTIPLY T X GDT AND WRITE TO GDBR C CALL GMMATD (T(1),3,3,1, GDT(1),3,3,0, GDBR(1)) C C WRITE GBR TO GDBAR C DO 580 LL = 1,3 DO 580 MM = 1,3 NN = MM + 3*(LL-1) GDBAR(LL,MM) = GDBR(NN) 580 CONTINUE C C ************************************************************* C * NOTE TO APPROXIMATE BEAM BEHAVIOUR THE CROSS AND * C * COUPLING TERMS IN THE GDBAR MATRIX NEED TO BE * C * DEGRADED I.E SET TO ZERO. * C ************************************************************* C GDBAR(1,2) = 0.0D0 GDBAR(2,1) = 0.0D0 GDBAR(1,3) = 0.0D0 GDBAR(3,1) = 0.0D0 GDBAR(2,3) = 0.0D0 GDBAR(3,2) = 0.0D0 C C INVERT GDBAR TO DETERMINE EX AND EY C ISING = -1 CALL INVERD (3,GDBAR,3,DUMMY,0,DETERM,ISING,INDEXX) C C THE YOUNGS MODULI EX AND EY IN THE MATERIAL COORD SYSTEM ARE C E(1) = 1.0D0/GDBAR(1,1) E(2) = 1.0D0/GDBAR(2,2) C C PERFORM INTILIZATION C ZREF = -TLAM/2.0D0 ZK1 = ZK IF (K .EQ. 1) ZK1 = ZREF IF (ITYPE .EQ. 0) ZK = ZK1 + RZ(PIDLOC+5+4*K) IF (ITYPE .EQ. 1) ZK = ZK1 + RZ(PIDLOC+6 ) IF (ITYPE .EQ. 2) ZK = ZK1 + RZ(PIDLOC+6+2*K) C C BUILD TRANSFORMATION MATRIX U C U(1) = C U(2) = S U(3) =-S U(4) = C C C CALCULATE G3BAR = UT X G3I X U C G3I MATRIX - LAYER K TRANSFORMED G3, IN MATERIAL COORD-SYS C DO 590 LL = 1,4 MM = LL + 9 G3I(LL) = G(MM) 590 CONTINUE C C MULTIPLY G3I X U AND WRITE TO G3IU C CALL GMMATD (G3I(1),2,2,0, U(1),2,2,0, G3IU(1)) C C MULTIPLY UT X G3IU AND WRITE TO G3BR C CALL GMMATD (U(1),2,2,1, G3IU(1),2,2,0, G3BR(1)) C C WRITE G3BR IN TWO DIMENSIONED ARRAY G3BAR C DO 600 LL = 1,2 DO 600 MM = 1,2 NN = MM + 2*(LL-1) G3BAR(LL,MM) = G3BR(NN) 600 CONTINUE C C INVERT G3BAR C DETRMN = G3BAR(1,1)*G3BAR(2,2) - G3BAR(1,2)*G3BAR(2,1) IF (DETRMN .EQ. 0.0D0) GO TO 1230 C G3INVD(1,1) = G3BAR(2,2)/DETRMN G3INVD(1,2) =-G3BAR(1,2)/DETRMN G3INVD(2,1) =-G3BAR(2,1)/DETRMN G3INVD(2,2) = G3BAR(1,1)/DETRMN C C G3 MATRIX CALC C ZI = (ZK + ZK1)/2.0D0 TI = ZK - ZK1 C DO 610 IR = 1,2 RI(IR) = ((FI(IR)/E(IR)) + (ZBAR(IR)-ZK1)*TI - (TI*TI/3.0D0)) 1 * (FI(IR)/E(IR)) RI(IR) = RI(IR) + ZBAR(IR)*TI*TI*((ZBAR(IR)-2.0D0*ZK1)/3.0D0 1 - (TI/4.0D0)) RI(IR) = RI(IR) + TI*TI*((ZK1*ZK1)/3.0D0 + (ZK1*TI)/4.0D0 1 + (TI*TI)/20.0D0) RI(IR) = RI(IR)*E(IR)*E(IR)*TI 610 CONTINUE C DO 620 IR = 1,2 DO 620 IC = 1,2 GTRFLX(IR,IC) = GTRFLX(IR,IC) + RI(IR)*G3INVD(IR,IC) 620 CONTINUE C DO 630 IR = 1,2 FII(IR) = E(IR)*TI*(ZBAR(IR)-ZI) FI(IR) = FI(IR) + FII(IR) 630 CONTINUE C C PROCESS NEXT LAYER C 700 CONTINUE C C FALL HERE IF LAMOPT IS SYMM AND G3 CALCULATION IS REQUIRED C IF (LAMOPT .NE. SYM) GO TO 810 DO 800 KK = 1,NLAY K = NLAY + 1 - KK C IF (ITYPE .EQ. 0) MATID = Z(PIDLOC+4+4*K) IF (ITYPE.EQ.1 .OR. ITYPE.EQ.2) MATID = Z(PIDLOC+5) IF (K.GE.2 .AND. (ITYPE.EQ.0 .AND. MID.EQ.MATID)) GO TO 710 IF (K.GE.2 .AND. (ITYPE.EQ.1 .OR. ITYPE.EQ.2) ) GO TO 710 C MID = MATID CALL MAT (ELID) C C CALL LPROPD TO GET LAYER PROPERTY MATRICES C CALL LPROPD (G) C C BUILD TRANSFORMATION MATRIX T C 710 IF (ITYPE .EQ. 0) THETA = RZ(PIDLOC+6+4*K) IF (ITYPE .EQ. 1) THETA = RZ(PIDLOC+7+ K) IF (ITYPE .EQ. 2) THETA = RZ(PIDLOC+7+2*K) C = DABS(THETA) IF (C .LT. 0.00002D0) C = 0.0D0 IF (C.GT.89.9998D0 .AND. C.LT.90.0002D0) C = 90.0D0 IF (C.GT.179.998D0 .AND. C.LT.180.002D0) C = 180.0D0 IF (C.GT.269.998D0 .AND. C.LT.270.002D0) C = 270.0D0 IF (C.GT.359.998D0 .AND. C.LT.360.002D0) C = 360.0D0 IF (THETA .LT. 0.0D0) C = -C THETAR = C*DEGRAD C C = DCOS(THETAR) IF (DABS(C) .LT. EPSI) C = 0.0D0 C2 = C*C C4 = C2*C2 S = DSIN(THETAR) IF (DABS(S) .LT. EPSI) S = 0.0D0 S2 = S*S S4 = S2*S2 C T(1) = C2 T(2) = S2 T(3) = C*S T(4) = S2 T(5) = C2 T(6) =-C*S T(7) =-2.0*C*S T(8) = 2.0*C*S T(9) = C2 - S2 C C PROCESSING FOR G3 MATRIX C C T C CALCULATE GDBR = T X GD X T C C DETERMINE GD MATRIX, WHICH IS EQUAL TO G MATRIX WITH POISSONS C RATIO=0.0 C GD(1) ---- YOUNGS MODULUS IN X-DIRN C GD(5) ---- YOUNGS MODULUS IN Y-DIRN C GD(9) ---- INPLANE SHEAR MODULUS C DO 720 LL = 1,9 720 GD(LL) = 0.0D0 CONST = 1.0D0 - (G(2)*G(4))/(G(5)*G(1)) GD(1) = G(1)*CONST GD(5) = G(5)*CONST GD(9) = G(9) C C MULTIPLY GD X T AND WRITE TO GDT C CALL GMMATD (GD(1),3,3,0, T(1),3,3,0, GDT(1)) C C T C MULTIPLY T X GDT AND WRITE TO GDBR C CALL GMMATD (T(1),3,3,1, GDT(1),3,3,0, GDBR(1)) C C WRITE GBR TO GDBAR C DO 730 LL = 1,3 DO 730 MM = 1,3 NN = MM + 3*(LL-1) GDBAR(LL,MM) = GDBR(NN) 730 CONTINUE C C ************************************************************* C * NOTE TO APPROXIMATE BEAM BEHAVIOUR THE CROSS AND * C * COUPLING TERMS IN THE GDBAR MATRIX NEED TO BE * C * DEGRADED I.E SET TO ZERO. * C ************************************************************* C GDBAR(1,2) = 0.0D0 GDBAR(2,1) = 0.0D0 GDBAR(1,3) = 0.0D0 GDBAR(3,1) = 0.0D0 GDBAR(2,3) = 0.0D0 GDBAR(3,2) = 0.0D0 C C INVERT GDBAR TO DETERMINE EX AND EY C ISING = -1 CALL INVERD (3,GDBAR,3,DUMMY,0,DETERM,ISING,INDEXX) C C THE YOUNGS MODULI EX AND EY IN THE MATERIAL COORD SYSTEM ARE C E(1) = 1.0D0/GDBAR(1,1) E(2) = 1.0D0/GDBAR(2,2) C C PERFORM INTILIZATION C ZREF = -TLAM/2.0D0 ZK1 = ZK IF (ITYPE .EQ. 0) ZK = ZK1 + RZ(PIDLOC+5+4*K) IF (ITYPE .EQ. 1) ZK = ZK1 + RZ(PIDLOC+6 ) IF (ITYPE .EQ. 2) ZK = ZK1 + RZ(PIDLOC+6+2*K) C C BUILD TRANSFORMATION MATRIX U C U(1) = C U(2) = S U(3) =-S U(4) = C C C CALCULATE G3BAR = UT X G3I X U C G3I MATRIX - LAYER K TRANSFORMED G3, IN MATERIAL COORD-SYS C DO 740 LL = 1,4 MM = LL + 9 G3I(LL) = G(MM) 740 CONTINUE C C MULTIPLY G3I X U AND WRITE TO G3IU C CALL GMMATD (G3I(1),2,2,0, U(1),2,2,0, G3IU(1)) C C MULTIPLY UT X G3IU AND WRITE TO G3BR C CALL GMMATD (U(1),2,2,1, G3IU(1),2,2,0, G3BR(1)) C C WRITE G3BR IN TWO DIMENSIONED ARRAY G3BAR C DO 750 LL = 1,2 DO 750 MM = 1,2 NN = MM + 2*(LL-1) G3BAR(LL,MM) = G3BR(NN) 750 CONTINUE C C INVERT G3BAR C DETRMN = G3BAR(1,1)*G3BAR(2,2) - G3BAR(1,2)*G3BAR(2,1) IF (DETRMN .EQ. 0.0D0) GO TO 1230 C G3INVD(1,1) = G3BAR(2,2)/DETRMN G3INVD(1,2) =-G3BAR(1,2)/DETRMN G3INVD(2,1) =-G3BAR(2,1)/DETRMN G3INVD(2,2) = G3BAR(1,1)/DETRMN C C THE CORRESSPONDING LAYER ON THE OTHER SIDE OF SYMMETRY C ZI = (ZK + ZK1)/2.0D0 TI = ZK - ZK1 C DO 760 IR = 1,2 RI(IR) = (FI(IR)/E(IR) +(-ZK1)*TI-TI*TI/3.0D0 )*FI(IR)/E(IR) 1 + (ZK1*ZK1/3.0D0+ZK1*TI/4.0D0+TI*TI/20.0D0)*TI*TI RI(IR) = RI(IR)*E(IR)*E(IR)*TI 760 CONTINUE C DO 770 IR = 1,2 DO 770 IC = 1,2 GTRFLX(IR,IC) = GTRFLX(IR,IC) + RI(IR)*G3INVD(IR,IC) 770 CONTINUE C DO 780 IR = 1,2 FII(IR) = E(IR)*TI*(ZBAR(IR)-ZI) FI(IR) = FI(IR) + FII(IR) 780 CONTINUE C C PROCESS NEXT LAYER C 800 CONTINUE C 810 DO 820 IR = 1,2 DO 820 IC = 1,2 GTRFLX(IR,IC) = GTRFLX(IR,IC)*TLAM/(EI(IR)**2) 820 CONTINUE C C INVERT GTRFLX C DETRMN = GTRFLX(1,1)*GTRFLX(2,2) - GTRFLX(1,2)*GTRFLX(2,1) IF (DETRMN .EQ. 0.0D0) GO TO 1230 C G3(1,1) = GTRFLX(2,2)/DETRMN G3(1,2) =-GTRFLX(1,2)/DETRMN G3(2,1) =-GTRFLX(2,1)/DETRMN G3(2,2) = GTRFLX(1,1)/DETRMN C C BECAUSE G3(1,2) IS NOT EQUAL TO G3(2,1) IN GENERAL C AN AVERAGE VALUE WILL BE USED FOR THE COUPLING TERMS C G3(1,2) = (G3(1,2) + G3(2,1))/2.0D0 G3(2,1) = G3(1,2) C C ***************************************************** C WRITE THE NEWLY GENERATED G1, G2, G3, AND G4 MATRICES C TO MPTX IN THE FORM OF MAT2 DATA ENTRIES C ***************************************************** C C NOTE - THE MID FOR THESE MATRICES ARE AS FOLLOWS- C 1. MID1 -- PID + 100000000 C 2. MID2 -- PID + 200000000 C 3. MID3 -- PID + 300000000 C 4. MID4 -- PID + 400000000 C C INITIALIZE G1, G2, G3, AND G4 MATRICES C 830 DO 840 JJ = 1,17 GMEMBR(JJ) = 0.0D0 GBENDG(JJ) = 0.0D0 GTRSHR(JJ) = 0.0D0 GMEMBD(JJ) = 0.0D0 840 CONTINUE C IMEMBR(1) = 0 IBENDG(1) = 0 ITRSHR(1) = 0 IMEMBD(1) = 0 C C START GENERATING G1 MEMBRANE MATRIX C IMEMBR( 1) = Z(PIDLOC) + 100000000 GMEMBR( 2) = G1(1,1) GMEMBR( 3) = G1(1,2) GMEMBR( 4) = G1(1,3) GMEMBR( 5) = G1(2,2) GMEMBR( 6) = G1(2,3) GMEMBR( 7) = G1(3,3) GMEMBR( 8) = RHO C C ... NEXT 5 TERMS ARE NEW FROM 2/1990 UAI CODE C IF (.NOT.OK UAI) GO TO 845 GMEMBR( 9) = ALFA1 GMEMBR(10) = ALFA2 GMEMBR(11) = ALFA12 GMEMBR(12) = TREF GMEMBR(13) = GSUBE C 845 IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 850 C C START GENERATING G2 BENDING MATRIX C IBENDG( 1) = Z(PIDLOC) + 200000000 GBENDG( 2) = G2(1,1) GBENDG( 3) = G2(1,2) GBENDG( 4) = G2(1,3) GBENDG( 5) = G2(2,2) GBENDG( 6) = G2(2,3) GBENDG( 7) = G2(3,3) C C ... NEXT 3 TERMS ARE NEW FROM 2/1990 UAI CODE C IF (.NOT.OK UAI) GO TO 847 C GBEMDG( 8) = ?? GBENDG( 9) = ALFA1 GBENDG(10) = ALFA2 GBENDG(11) = ALFA12 C C START GENERATING G3 TRANSVERSE SHEAR FLEXIBILITY MATRIX C 847 ITRSHR( 1) = Z(PIDLOC) + 300000000 GTRSHR( 2) = G3(1,1) GTRSHR( 3) = G3(1,2) GTRSHR( 4) = G3(2,1) GTRSHR( 5) = G3(2,2) C IF (LAMOPT .EQ. SYM) GO TO 850 C C START GENERATING G4 MEMBRANE-BENDING COUPLING MATRIX C IMEMBD( 1) = Z(PIDLOC) + 400000000 GMEMBD( 2) = G4(1,1) GMEMBD( 3) = G4(1,2) GMEMBD( 4) = G4(1,3) GMEMBD( 5) = G4(2,2) GMEMBD( 6) = G4(2,3) GMEMBD( 7) = G4(3,3) C 850 CONTINUE C C ****************************************************** C GENERATE EQUIVALENT PSHELL BULK DATA ENTIES FOR EVERY C PCOMPI BULK DATA ENTRY. THIS IS NECESSARY FOR DEMG TO C FUNCTION CORRECTLY WHEN LAMINATED COMPOSITE ELEMENTS C ARE PRESENT. C ****************************************************** C IPSHEL( 1) = Z(PIDLOC) IPSHEL( 2) = Z(PIDLOC) + 100000000 RPSHEL( 3) = TLAM IPSHEL( 4) = Z(PIDLOC) + 200000000 RPSHEL( 5) = 1.0 IPSHEL( 6) = Z(PIDLOC) + 300000000 RPSHEL( 7) = 1.0 RPSHEL( 8) = RZ(PIDLOC+2) RPSHEL( 9) =-TLAM/2.0 RPSHEL(10) = TLAM/2.0 IPSHEL(11) = Z(PIDLOC) + 400000000 RPSHEL(12) = 0.0 IPSHEL(13) = 0 IPSHEL(14) = 0 RPSHEL(15) = 0.0 IPSHEL(16) = 0 RPSHEL(17) = 0.0 C ZOFFS = RZ(PIDLOC+1) + TLAM/2.0 IF (Z(PIDLOC) .EQ. BLANK) ZOFFS = 0.0 IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) ZOFFS = 0.0 IF (ABS(ZOFFS) .LE. 1.0E-3) ZOFFS = 0.0 RPSHEL(14) = ZOFFS C IF (LAMOPT.NE.MEM .AND. LAMOPT.NE.SYMMEM) GO TO 860 IPSHEL( 4) = 0 IPSHEL( 6) = 0 IPSHEL(11) = 0 RPSHEL(14) = 0.0 860 IF (LAMOPT .NE. SYM) GO TO 870 IPSHEL(11) = 0 870 CONTINUE C C UPDATE COUNTER ICOUNT TO INDICATE MAT2 AND PSHELL DATA IS BEING C WRITTEN SECOND TIME C ICOUNT = ICOUNT + 1 C IF (ICOUNT .GT. 1) GO TO 900 C IF (PSHLPR .NE. 1) GO TO 890 ICORE = LPCOMP + 1 + N2MAT N = BUF5 - ICORE CALL OPEN (*1200,EPT,Z(BUF4),RDREW) CALL FILPOS (EPT,POS1) CALL READ (*900,*880,EPT,Z(ICORE),N,0,EPTWDS) CALL MESAGE (-8,0,NAM) 880 CALL WRITE (EPTX,Z(ICORE),EPTWDS,0) GO TO 900 890 CALL WRITE (EPTX,PSHNAM,3,0) 900 CALL WRITE (EPTX,IPSHEL(1),17,0) C IF (ICOUNT .GT. 1) GO TO 930 C IF (MAT2PR .NE. 1) GO TO 920 ICORE = LPCOMP + 1 + N2MAT N = BUF5 - ICORE CALL OPEN (*1200,MPT,Z(BUF2),RDREW) CALL FILPOS (MPT,POS) CALL READ (*930,*910,MPT,Z(ICORE),N,0,MATWDS) CALL MESAGE (-8,0,NAM) 910 CALL WRITE (MPTX,Z(ICORE),MATWDS,0) GO TO 930 920 CALL WRITE (MPTX,MATNAM,3,0) 930 CALL WRITE (MPTX,IMEMBR(1),17,0) IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 940 CALL WRITE (MPTX,IBENDG(1),17,0) CALL WRITE (MPTX,ITRSHR(1),17,0) IF (LAMOPT .EQ. SYM) GO TO 940 CALL WRITE (MPTX,IMEMBD(1),17,0) 940 CONTINUE CALL SSWTCH (40,L40) IF (L40 .EQ. 0) GO TO 980 C C WRITE THE NEWLY GENERATED PROPERTY MATRICES TO THE OUTPUT FILE C CALL PAGE2 (2) WRITE (NOUT,960) IMEMBR(1),(GMEMBR(LL),LL=2,16) IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 980 CALL PAGE2 (2) WRITE (NOUT,960) IBENDG(1),(GBENDG(LL),LL=2,16) IF (GTRSHR(1) .EQ. 0.0) GO TO 950 CALL PAGE2 (2) WRITE (NOUT,960) ITRSHR(1),(GTRSHR(LL),LL=2,16) 950 IF (LAMOPT .EQ. SYM) GO TO 980 CALL PAGE2 (2) WRITE (NOUT,960) IMEMBD(1),(GMEMBD(LL),LL=2,16) 960 FORMAT(/,' MAT2',7X,I9,7(1X,1P,E11.4),/,9X,8(1X,F11.1)) C C UPDATE LOCATION OF NEXT PID C 980 PIDLOC = EOELOC + 1 ISTART = PIDLOC C C WRITE END OF ENTRY (EOE) TO PCOMPS BEFORE PROCESSING C NEXT PCOMP ENTRY C CALL WRITE (PCOMPS,EOE,1,0) C C CHECK IF ALL 'PCOMP' TYPE ENTRIES HAVE BEEN PROCESSED C IF (ISTART .GE. IFINIS) IF (ITYPE-1) 990,1000,1010 C C PROCESS NEXT 'PCOMP' ENTRY C GO TO 250 C 990 CALL WRITE (PCOMPS,0,0,1) IF (TYPC1 .GT. 0) GO TO 190 IF (TYPC2 .GT. 0) GO TO 200 GO TO 1020 C 1000 CALL WRITE (PCOMPS,0,0,1) IF (TYPC2 .GT. 0) GO TO 200 GO TO 1020 C 1010 CALL WRITE (PCOMPS,0,0,1) C C ALL 'PCOMP' TYPES PROCESSED C WRITE EOR ON MPTX AND EPTX C 1020 CALL WRITE (MPTX,0,0,1) CALL WRITE (EPTX,0,0,1) C C COPY REMAINDER OF EPT TO EPTX C ICORE = 1 N = BUF5 - 1 EPTWDS = 0 IF (PSHLPR .NE. 1) CALL OPEN (*1200,EPT,Z(BUF4),RDREW) CALL FILPOS (EPT,POS1) IF (PSHLPR .EQ. 1) CALL FWDREC (*1050,EPT) 1030 CALL READ (*1050,*1040,EPT,Z(ICORE),N,1,EPTWDS) CALL MESAGE (-8,0,NAM) 1040 CALL WRITE (EPTX,Z(ICORE),EPTWDS,1) EPTWDS = 0 GO TO 1030 C C READ TRAILER FROM EPT AND WRITE TO EPTX C 1050 DO 1060 KK = 1,7 1060 IEPTX(KK) = 0 IEPTX( 1) = EPT C CALL RDTRL (IEPTX) IEPTX(1) = EPTX KT721 = ANDF(PSHBIT,511) K1 = (KT721-1)/16 + 2 K2 = KT721 - (K1-2)*16 + 16 IEPTX(K1) = ORF(IEPTX(K1),TWO(K2)) CALL WRTTRL (IEPTX) C C IF EOF ON MPT,THEN ALL MAT2 DATA COPIED TO MPTX C IF (EOF .EQ. 1) GO TO 1090 C C OTHERWISE COPY REMAINDER OF MPT TO MPTX C ICORE = 1 N = BUF5 - 1 MATWDS = 0 IF (MAT2PR .NE. 1) CALL OPEN (*1200,MPT,Z(BUF2),RDREW) CALL FILPOS (MPT,POS) IF (MAT2PR .EQ. 1) CALL FWDREC (*1090,MPT) 1070 CALL READ (*1090,*1080,MPT,Z(ICORE),N,1,MATWDS) CALL MESAGE (-8,0,NAM) 1080 CALL WRITE (MPTX,Z(ICORE),MATWDS,1) MATWDS = 0 GO TO 1070 C C READ TRAILER FROM MPT AND WRITE TO MPTX C 1090 DO 1100 KK = 1,7 1100 IMPTX(KK) = 0 IMPTX( 1) = MPT C CALL RDTRL (IMPTX) IMPTX(1) = MPTX KT721 = ANDF(MT2BIT,511) K1 = (KT721-1)/16 + 2 K2 = KT721 - (K1-2)*16 + 16 IMPTX(K1) = ORF(IMPTX(K1),TWO(K2)) CALL WRTTRL (IMPTX) C C WRITE TO TRAILER OF PCOMPS C C SET TRAILER BIT POSITION TO ZERO IF ENTRY TYPE DOES NOT EXIST C IF (TYPC .EQ. 0) PCBIT(1) = 0 IF (TYPC1 .EQ. 0) PCBIT(2) = 0 IF (TYPC2 .EQ. 0) PCBIT(3) = 0 C DO 1110 LL = 1,3 KT721 = ANDF(PCBIT(LL),511) K1 = (KT721-1)/16 + 2 K2 = KT721 - (K1-2)*16 + 16 IPCOMP(K1) = ORF(IPCOMP(K1),TWO(K2)) 1110 CONTINUE C C WHEN ICFIAT IS 11, A 65536 IS LEFT IN IPCOMP(2) ACCIDENTALLY C ZERO IT OUT C IF (ICFIAT .EQ. 11) IPCOMP(2) = 0 CALL WRTTRL (IPCOMP) C C CLOSE ALL FILES C CALL CLOSE (PCOMPS,1) CALL CLOSE (EPTX,1) CALL CLOSE (MPTX,1) CALL CLOSE (MPT,1) CALL CLOSE (EPT,1) C RETURN C C FATAL ERROR MESSAGES C 1200 CALL MESAGE (-1,FILE,NAM) GO TO 1300 1210 CALL PAGE2 (2) WRITE (NOUT,1220) 1220 FORMAT ('0*** SYSTEM FATAL ERROR. PCOMP, PCOMP1 OR PCOMP2', 1 ' DATA NOT FOUND BY SUBROUTINE TA1CPD.') NOGO = 1 GO TO 1300 1230 CALL PAGE2 (4) WRITE (NOUT,1240) MATID NOGO = 1 1240 FORMAT ('0*** USER FATAL ERROR. IMPROPER DATA PROVIDED FOR', 1 ' CALCULATION OF TRANSVERSE SHEAR FLEXIBILITY MATRIX', 2 /23X,'FOR LAMINA REFERENCING MID ',I8,'.', 3 /23X,'CHECK DATA ON MAT BULK DATA ENTRY.') 1300 CONTINUE RETURN END ================================================ FILE: mis/ta1cps.f ================================================ SUBROUTINE TA1CPS C C G3 MATRIX CALCULATION WITH NEW FORMULATION C C THIS ROUTINE IS CALLED IN TA1 IF PARAM COMPS IS SET TO -1 C INDICATING PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES ARE C PRESENT. IT'S PRIMARY FUNCTION IS TO - C 1. CREATE FILE PCOMPS WHICH WILL CONTAIN THE ECHO OF THE C 'PCOMPS' ENTRIES ALONG WITH INDIVIDUAL LAYER INTRINISIC C PROPERTY MATRICES. C 2. CALCULATE OVERALL MATERIAL PROPERTIES IN THE FORM OF MAT2 C ENTRIES AND WRITE TO FILE MPTX. C 3. GENERATE EQUIVALENT PSHELL PROPERTY ENTRIES AND WRITE TO C FILE EPTX. C EXTERNAL ANDF,ORF LOGICAL OK UAI INTEGER PCOMP(2),PCOMP1(2),PCOMP2(2),COMPS,PCBIT(3),EPTX, 1 PSHLPR,EPTWDS,PSHBIT,RD,RDREW,WRT,WRTREW,CLSREW, 2 CLS,IPSHEL(17),PSHNAM(3),PCOMPR,TYPC,TYPC1,TYPC2, 3 FLAG,EPT,PCOMPS,EOF,ELID,PIDLOC,EOELOC,SYM,SYMMEM, 4 EOE,SYSBUF,POS,POS1,Z,BUF0,BUF1,BUF2,BUF3,BUF4, 5 BUF5,FILE,INDEX(6,3),INDEXX(3,3),ANDF,ORF,BLANK REAL GLAY(25),GMEMBR(17),GBENDG(17),GMEMBD(17), 1 GTRSHR(17),EXX,EYY,EIXX,EIYY,ZX,ZY,RPSHEL(17), 2 ALFA1,ALFA2,ALFA12,TREF,GSUBE REAL THETA,THETAR,C,C2,C4,S,S2,S4,PI,TWOPI,RADDEG, 1 DEGRAD,T(9),GT(9),GBR(9),GBAR(3,3),G(25),GD(9), 2 GDT(9),GDBR(9),GDBAR(3,3),GD2(3,3),U(9),G3I(9), 3 G3IU(9),G3BR(9),G3BAR(3,3),G1(3,3),G2(3,3), 4 G3(2,2),G4(3,3),TLAM,ZK,ZK1,ZREF,ZG1,ZG2,ZG4,ZI, 5 TI,RHO,DETRMN,CONST,ZBARX,ZBARY,TRFLX(2,2),ZBARXT, 6 ZBARXB,ZBARYT,ZBARYB,ZBAR(2),GTRFLX(2,2),GD4(3,3), 7 G3INVD(2,2),EX,EY,E(2),FI(2),FII(2),RI(2),DETERM, 8 DUM(6),DUMMY(3),STIFF(6,6),EI(2),GD1(3,3),EPSI DIMENSION RZ(1),NPCMP(3),NPCMP1(3),NPCMP2(3),NAM(2),NAM1(2), 1 NAM2(2),MATNAM(3),IPCOMP(7),IMEMBR(17),IBENDG(17), 2 IMEMBD(17),ITRSHR(17),IMPTX(7),IEPTX(7) COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL ,COMPS COMMON /TA1COM/ NSIL ,ECT ,EPT ,BGPDT ,SIL ,GPTT ,CSTM , 1 MPT ,EST ,GEI ,GPECT ,ECPT ,GPCT ,MPTX , 2 PCOMPS,EPTX ,SCR1 ,SCR2 ,SCR3 ,SCR4 COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW,CLS COMMON /SYSTEM/ SYSBUF,NOUT ,NOGO ,DM(20),ICFIAT COMMON /MATIN / MATID ,INFLAG,ELTEMP COMMON /MATOUT/ RMTOUT(25) COMMON /ZZZZZZ/ Z(1) COMMON /CONDAS/ PI ,TWOPI ,RADDEG,DEGRAD COMMON /TWO / TWO(32) EQUIVALENCE (Z(1) ,RZ(1) ), (IPSHEL(1),RPSHEL(1)), 1 (IMEMBR(1),GMEMBR(1)), (IBENDG(1),GBENDG(1)), 2 (IMEMBD(1),GMEMBD(1)), (ITRSHR(1),GTRSHR(1)) C DATA MPT / 107/ C DATA MPTX / 206/ C DATA PCOMPS/ 207/ C DATA EPTX / 208/ DATA PCOMP / 5502,55/ DATA PCOMP1/ 5602,56/ DATA PCOMP2/ 5702,57/ DATA NPCMP / 5502,55,280/ DATA NPCMP1/ 5602,56,281/ DATA NPCMP2/ 5702,57,282/ DATA PSHNAM/ 5802,58,283/ DATA MATNAM/ 203, 2, 78 / DATA PCBIT / 55, 56, 57 / DATA PSHBIT/ 58 / DATA MT2BIT/ 2 / DATA I1ST / 1 / DATA SYM / 1 / DATA MEM / 2 / DATA SYMMEM/ 3 / DATA EOE / -1 / DATA NAM / 4HTA1C, 4HPS / DATA NAM2 / 4HPCOM, 4HPS / DATA BLANK / 4HBLNK / DATA OK UAI/ .TRUE. / DATA EPSI / 1.0E-15 / C BUF0 = KORSZ(Z) - SYSBUF - 2 BUF1 = BUF0 - SYSBUF - 2 BUF2 = BUF1 - SYSBUF - 2 BUF3 = BUF2 - SYSBUF - 2 BUF4 = BUF3 - SYSBUF - 2 BUF5 = BUF4 - SYSBUF - 2 C C PERFORM GENERAL INITILIZATION C MATWDS = 0 EOF = 0 ELID = 0 MAT2PR = 0 PSHLPR = 0 ICOUNT = 0 RHO = 0.0 C C OPEN EPTX AND WRITE HEADER RECORD C FILE = EPTX CALL OPEN (*1200,EPTX,Z(BUF0),WRTREW) CALL FNAME (EPTX,NAM1) CALL WRITE (EPTX,NAM1,2,1) C C OPEN MPTX AND WRITE HEADER RECORD C FILE = MPTX CALL OPEN (*1200,MPTX,Z(BUF1),WRTREW) CALL FNAME (MPTX,NAM1) CALL WRITE (MPTX,NAM1,2,1) C C OPEN MPT AND POSITION FILE C FILE = MPT CALL OPEN (*1200,MPT,Z(BUF2),RDREW) CALL FWDREC (*1200,MPT) C C OPEN PCOMPS AND WRITE HEADER RECORD C WRITE TO IPCOMP(1), THE GINO FILE NAME OF PCOMPS C FILE = PCOMPS CALL OPEN (*1200,PCOMPS,Z(BUF3),WRTREW) CALL WRITE (PCOMPS,NAM2,2,1) C IPCOMP(1) = PCOMPS DO 10 LL = 2,7 10 IPCOMP(LL) = 0 C C COPY ALL EPT ENTRIES UP TO PSHELL TYPE TO FILE EPTX C IF NONE FOUND, MUST CREATE ONE BEFORE THE LAST RECORD IN FILE C C SET AVAILABLE CORE C N = BUF5 - 1 IEPT = I1ST FILE = EPT CALL OPEN (*1200,EPT,Z(BUF4),RDREW) CALL FWDREC (*1200,EPT) IREC = 0 20 CALL FWDREC (*30,EPT) IREC = IREC + 1 GO TO 20 C 30 CALL REWIND (EPT) CALL FWDREC (*1200,EPT) IRED = 0 40 CALL READ (*1200,*50,EPT,Z(IEPT),N,1,EPTWDS) CALL MESAGE (-8,0,NAM) 50 IF (Z(IEPT) .EQ. 4902) GO TO 60 IRED = IRED + 1 IF (IRED .EQ. IREC) GO TO 70 CALL WRITE (EPTX,Z(IEPT),EPTWDS,1) EPTWDS = 0 GO TO 40 C 60 PSHLPR = 1 70 CALL BCKREC (EPT) CALL SAVPOS (EPT,POS1) CALL CLOSE (EPT,CLSREW) C C OPEN EPT C FILE = EPT CALL PRELOC (*1200,Z(BUF4),EPT) C C COPY ALL MAT ENTRIES UP TO MAT2 TYPE TO FILE MPTX C C SET AVAILABLE CORE C N = BUF5 - 1 IMAT = I1ST 80 CALL READ (*110,*90,MPT,Z(IMAT),N,1,MATWDS) CALL MESAGE (-8,0,NAM) 90 IF (Z(IMAT) .GE. 203) GO TO 100 CALL WRITE (MPTX,Z(IMAT),MATWDS,1) MATWDS = 0 GO TO 80 100 CALL BCKREC (MPT) CALL SAVPOS (MPT,POS) IF (Z(IMAT) .EQ. 203) MAT2PR = 1 GO TO 120 C C SET END OF FILE FLAG C 110 EOF = 1 C C CLOSE MPT BEFORE CALLING PREMAT C 120 CALL CLOSE (MPT,1) C C SET POINTERS AND PERFORM INITILIZATION C IPC1 = 1 NPC = 0 NPC1 = 0 NPC2 = 0 TYPC = 0 TYPC1 = 0 TYPC2 = 0 C C SET SIZE OF AVAILABLE CORE C N = BUF5 - 1 IPC = 1 C C LOCATE PCOMP DATA AND READ INTO CORE C CALL LOCATE (*140,Z(BUF4),PCOMP,FLAG) C CALL READ (*1200,*130,EPT,Z(IPC),N,0,NPC) CALL MESAGE (-8,0,NAM) 130 IF (NPC .GT. 0) TYPC = 1 IPC1 = IPC + NPC IF (IPC1 .GE. BUF5) CALL MESAGE (-8,0,NAM) N = N - NPC C C LOCATE PCOMP1 DATA AND READ INTO CORE C 140 CALL LOCATE (*160,Z(BUF4),PCOMP1,FLAG) C IPC1 = IPC + NPC CALL READ (*180,*150,EPT,Z(IPC1),N,0,NPC1) CALL MESAGE (-8,0,NAM) 150 IF (NPC1 .GT. 0) TYPC1 = 1 IPC2 = IPC1 + NPC1 IF (IPC2 .GE. BUF5) CALL MESAGE (-8,0,NAM) N = N - NPC1 C C LOCATE PCOMP2 DATA AND READ INTO CORE C 160 CALL LOCATE(*180,Z(BUF4),PCOMP2,FLAG) C IPC2 = IPC1 + NPC1 CALL READ (*180,*170,EPT,Z(IPC2),N,0,NPC2) CALL MESAGE (-8,0,NAM) 170 IF (NPC2 .GT. 0) TYPC2 = 1 C C SET SIZE OF LPCOMP. NUMBER OF WORDS READ INTO CORE C 180 LPCOMP = IPC + NPC + NPC1 + NPC2 IF (LPCOMP .GE. BUF5) CALL MESAGE (-8,0,NAM) C C CLOSE EPT BEFORE PROCESSING PCOMPI C CALL CLOSE (EPT,1) C C READ MATERIAL PROPERTY TABLE INTO CORE C IMAT = LPCOMP + 1 N1MAT = BUF5 - IMAT CALL PREMAT (Z(IMAT),Z(IMAT),Z(BUF5),N1MAT,N2MAT,MPT,DIT) IF (IMAT+N2MAT .GE. BUF5) CALL MESAGE (-8,0,NAM) ICORE = IMAT + N2MAT + 1 C C SET POINTERS C ITYPE =-1 ISTART = 0 IFINIS = 0 C C PROCESS ALL 'PCOMP' ENTRY TYPES SEQUENTIALLY C C PCOMP ENTRIES C IF (TYPC .EQ. 0) GO TO 190 ITYPE = 0 ISTART = IPC IFINIS = IPC1 - 1 NWDPC = 8 KPC = 4 PCOMPR = 1 GO TO 220 C C PCOMP1 ENTRIES C 190 IF (TYPC1 .EQ. 0) GO TO 200 ITYPE = 1 ISTART = IPC1 IFINIS = IPC2 - 1 NWDPC = 8 KPC = 1 PCOMPR = 1 GO TO 220 C C PCOMP2 ENTRIES C 200 IF (TYPC2 .EQ. 0) GO TO 210 ITYPE = 2 ISTART = IPC2 IFINIS = LPCOMP - 1 NWDPC = 8 KPC = 2 C C CHECK IF NO PCOMP DATA HAS BEEN READ INTO CORE C 210 IF (TYPC.EQ.0 .AND. TYPC1.EQ.0 .AND. TYPC2.EQ.0) GO TO 1210 C C SET INFLAG = 12, SO THAT FOR LAMINA REFERENCING MAT1 OR MAT2 C PROPERTY ENTRY WILL BE RETURNED IN MAT2 FORMAT. EXECPT FOR C THOSE REFERENCING MAT8 PROPERTY, IN WHICH CASE THE ENTRY C IS MERELY ECHOED. C 220 INFLAG = 12 C C SET POINTERS C C WRITE 3-WORD IDENTITY FOR PCOMP DATA C C PCOMP TYPE C IF (ITYPE .NE. 0) GO TO 230 CALL WRITE (PCOMPS,NPCMP,3,0) GO TO 250 C C PCOMP1 TYPE C 230 IF (ITYPE .NE. 1) GO TO 240 CALL WRITE (PCOMPS,NPCMP1,3,0) GO TO 250 C C PCOMP2 TYPE C 240 CALL WRITE (PCOMPS,NPCMP2,3,0) C C PROCESS ALL 'PCOMP' ENTRIES C 250 LEN = 0 NLAY = 0 EOELOC = 0 PIDLOC = 1 TLAM = 0.0 RHO = 0.0 ZK = 0.0 ZK1 = 0.0 TREF = 0.0 GSUBE = 0.0 ALFA1 = 0.0 ALFA2 = 0.0 ALFA12 = 0.0 C DO 260 II = ISTART,IFINIS IF (Z(II) .EQ. -1) GO TO 270 260 CONTINUE C 270 EOELOC = II PIDLOC = ISTART LEN = EOELOC - PIDLOC NLAY = (LEN - NWDPC)/KPC LAMOPT = Z(PIDLOC+7) C C DETERMINE LAMINATE THICKNESS C C PCOMP DATA C IF (ITYPE .GT. 0) GO TO 290 DO 280 K = 1,NLAY IIK = (PIDLOC+5) + 4*K TLAM = TLAM + RZ(IIK) 280 CONTINUE IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0*TLAM GO TO 320 C C PCOMP1 DATA C 290 IF (ITYPE .GT. 1) GO TO 300 IIK = PIDLOC + 6 TLAM = RZ(IIK)*NLAY IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0*TLAM GO TO 320 C C PCOMP2 DATA C 300 DO 310 K = 1,NLAY IIK = (PIDLOC+6) + 2*K TLAM = TLAM + RZ(IIK) 310 CONTINUE IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0*TLAM C C WRITE TO PCOMPS C 1. PID C 2. NLAY - NUMBER OF LAYERS C 3. REMAINDER OF PCOMP ENTRY C 320 CALL WRITE (PCOMPS,Z(PIDLOC),1,0) CALL WRITE (PCOMPS,NLAY,1,0) C C SET LEN TO THE NO. WORDS TO BE WRITTEN TO PCOMPS C LEN = LEN - 1 CALL WRITE (PCOMPS,Z(PIDLOC+1),LEN,0) C C CALL MAT TO GET LAYER PROPERTIES AND WRITE TO PCOMPS C NOTE FOR PCOMP1 AND PCOMP2 ENTRIES THE PROPERTY MATRIX C IS ONLY WRITTEN TO PCOMPS ONCE. (ALL LAYER PER ENTRY HAVE C THE SAME MID. C SIMILARILY FOR PCOMP ENTRY, IF ALL LAYERS REFERENCE THE SAME C MID, THEN THE PROPERTY MATRIX IS ONLY WRITTEN ONCE TO PCOMPS. C C ITYPE = 0 PCOMP ENTRY C ITYPE = 1 PCOMP1 ENTRY C ITYPE = 2 PCOMP2 ENTRY C MID = 0 C C INITIALIZE G1, G2, G3 AND G4 MATRICES C DO 330 LL = 1,3 DO 330 MM = 1,3 G1 (LL,MM) = 0.0 GD1(LL,MM) = 0.0 G2 (LL,MM) = 0.0 GD2(LL,MM) = 0.0 G4 (LL,MM) = 0.0 GD4(LL,MM) = 0.0 330 CONTINUE C DO 340 LL = 1,2 FII(LL) = 0.0 FI(LL) = 0.0 RI(LL) = 0.0 ZBAR(LL) = 0.0 DO 340 MM = 1,2 G3(LL,MM) = 0.0 GTRFLX(LL,MM) = 0.0 TRFLX(LL,MM) = 0.0 G3INVD(LL,MM) = 0.0 340 CONTINUE C C INTILIZISE ZBAR C ZBARX = 0.0 ZBARY = 0.0 ZBARXT = 0.0 ZBARXB = 0.0 ZBARYT = 0.0 ZBARYB = 0.0 ZX = 0.0 ZY = 0.0 C EIXX = 0.0 EIYY = 0.0 C C LOOP OVER LAYERS C DO 500 K = 1,NLAY IF (ITYPE .EQ. 0) MATID = Z(PIDLOC+4+4*K) IF (ITYPE.EQ.1 .OR. ITYPE.EQ.2) MATID = Z(PIDLOC+5) IF (K.GE.2 .AND. (ITYPE.EQ.0 .AND. MID.EQ.MATID)) GO TO 410 IF (K.GE.2 .AND. (ITYPE.EQ.1 .OR. ITYPE.EQ.2) ) GO TO 420 C MID = MATID CALL MAT (ELID) C C CALL LPROPS TO GET LAYER PROPERTY MATRICES C CALL LPROPS (G) C C COPY G(25) TO GLAY(25), FOR WRITING TO PCOMPS C DO 400 KK = 1,25 400 GLAY(KK) = G(KK) C C NEX 20 LINES ARE NEW FROM 2/90 UAI CODE C COPY ALFA1, ALFA2 AND ALFA12 FROM GLAY(14 THRU 16) C IF (.NOT.OK UAI) GO TO 410 ALFA1 = GLAY(14) ALFA2 = GLAY(15) ALFA1 = GLAY(16) C C IF PCOMP, COPY TREF AND GE FROM THE MAIN CARD TO MATERIAL C PROPERTY DATA. THIS IS DONE FOR THE FIRST LAYER C IF (K .EQ. 1) GO TO 410 IF (ITYPE .GE. 1) GO TO 405 TREF = RZ(PIDLOC+5) GSUBE = RZ(PIDLOC+6) GLAY(24) = TREF GLAY(25) = GSUBE GO TO 410 405 TREF = GLAY(24) GSUBE = GLAY(25) C C WRITE THE LAYER PROPERTY MATRIX G TO FILE PCOMPS C 410 CALL WRITE (PCOMPS,GLAY(1),25,0) C C CALCULATE CONTRIBUTION OF EACH LAYER TO OVERALL PROPERTY C MATRICES G1, G2, G4 C C BUILD TRANSFORMATION MATRIX T C 420 IF (ITYPE .EQ. 0) THETA = RZ(PIDLOC+6+4*K) IF (ITYPE .EQ. 1) THETA = RZ(PIDLOC+7+ K) IF (ITYPE .EQ. 2) THETA = RZ(PIDLOC+7+2*K) C = ABS(THETA) IF (C .LT. 0.000002) C = 0.0 IF (C.GT.89.99998 .AND. C.LT.90.00002) C = 90.0 IF (C.GT.179.9998 .AND. C.LT.180.0002) C = 180.0 IF (C.GT.269.9998 .AND. C.LT.270.0002) C = 270.0 IF (C.GT.359.9998 .AND. C.LT.360.0002) C = 360.0 IF (THETA .LT. 0.0) C = -C THETAR = C*DEGRAD C C = COS(THETAR) IF (ABS(C) .LT. EPSI) C = 0.0 C2 = C*C C4 = C2*C2 S = SIN(THETAR) IF (ABS(S) .LT. EPSI) S = 0.0 S2 = S*S S4 = S2*S2 C T(1) = C2 T(2) = S2 T(3) = C*S T(4) = S2 T(5) = C2 T(6) =-C*S T(7) =-2.0*C*S T(8) = 2.0*C*S T(9) = C2 - S2 C C CALCULATE GBAR = TT X G X T C C MULTIPLY G X T AND WRITE TO GT C CALL GMMATS (G(1),3,3,0, T(1),3,3,0, GT(1)) C C MULTIPLY TT X GT AND WRITE TO GBR C CALL GMMATS (T(1),3,3,1, GT(1),3,3,0, GBR(1)) C C WRITE GBR IN TWO DIMENSIONED ARRAY GBAR C DO 430 LL = 1,3 DO 430 MM = 1,3 NN = MM + 3*(LL-1) GBAR(LL,MM) = GBR(NN) 430 CONTINUE C C PROCESSING FOR G3 MATRIX C C CALCULATE GDBAR = TT X GD X T C C DETERMINE GD MATRIX, WHICH IS EQUAL TO G MATRIX WITH POISSONS C RATIO=0.0 C GD(1) ---- YOUNGS MODULUS IN X-DIRN C GD(5) ---- YOUNGS MODULUS IN Y-DIRN C GD(9) ---- INPLANE SHEAR MODULUS C DO 440 LL = 1,9 440 GD(LL) = 0.0 CONST = 1.0 - (G(2)*G(4))/(G(5)*G(1)) GD(1) = G(1)*CONST GD(5) = G(5)*CONST GD(9) = G(9) C C MULTIPLY GD X T AND WRITE TO GDT C CALL GMMATS (GD(1),3,3,0, T(1),3,3,0, GDT(1)) C C MULTIPLY TT X GDT AND WRITE TO GDBR CALL GMMATS (T(1),3,3,1, GDT(1),3,3,0, GDBR(1)) C C WRITE GDBR IN TWO DIMENSIONED ARRAY GDBAR C DO 450 LL = 1,3 DO 450 MM = 1,3 NN = MM + 3*(LL-1) GDBAR(LL,MM) = GDBR(NN) 450 CONTINUE C C ********************************************************* C * NOTE TO APPROXIMATE BEAM BEHAVIOUR THE CROSS AND * C * COUPLING TERMS IN THE GDBAR MATRIX NEED TO BE * C * DEGRADED I.E SET TO ZERO. * C ********************************************************* C GDBAR(1,2) = 0.0 GDBAR(2,1) = 0.0 GDBAR(1,3) = 0.0 GDBAR(2,3) = 0.0 GDBAR(3,1) = 0.0 GDBAR(3,2) = 0.0 C C PERFORM INITIALIZATION C ZREF = -TLAM/2.0 ZK1 = ZK IF (K .EQ. 1) ZK1 = ZREF IF (ITYPE .EQ. 0) ZK = ZK1 + RZ(PIDLOC+5+4*K) IF (ITYPE .EQ. 1) ZK = ZK1 + RZ(PIDLOC+6 ) IF (ITYPE .EQ. 2) ZK = ZK1 + RZ(PIDLOC+6+2*K) ZG1 = ZK - ZK1 ZG4 =-(ZK**2 - ZK1**2)*0.5 ZG2 = (ZK**3 - ZK1**3)*0.33333333 C C CALCULATE LAYER CONTRIBUTION TO G1, G2, DG2, AND G4 MATRICES C DO 460 IR = 1,3 DO 460 IC = 1,3 G1 (IR,IC) = G1(IR,IC) + GBAR(IR,IC)*ZG1 GD1(IR,IC) = GD1(IR,IC) + GDBAR(IR,IC)*ZG1 IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 460 G2 (IR,IC) = G2(IR,IC) + GBAR(IR,IC)*ZG2 GD2(IR,IC) = GD2(IR,IC)+ GDBAR(IR,IC)*ZG2 IF (LAMOPT .EQ. SYM) GO TO 460 G4 (IR,IC) = G4(IR,IC) + GBAR(IR,IC)*ZG4 GD4(IR,IC) = GD4(IR,IC) + GDBAR(IR,IC)*ZG4 460 CONTINUE C C CHECK LAMINATION OPTION AND IF SYMM OR SYMM.MEMB CALCULATE C LAYER CONTRIBUTION TO THE MEMBRANE, BENDING AND THE C MEMEBRANE-BENDING MATRICES C IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 480 C DO 470 IR = 1,3 DO 470 IC = 1,3 G1 (IR,IC) = G1(IR,IC) + GBAR(IR,IC)*ZG1 GD1(IR,IC) = GD1(IR,IC) + GDBAR(IR,IC)*ZG1 IF (LAMOPT .EQ. SYMMEM) GO TO 470 G2 (IR,IC) = G2(IR,IC) + GBAR(IR,IC)*ZG2 GD2(IR,IC) = GD2(IR,IC) + GDBAR(IR,IC)*ZG2 470 CONTINUE C 480 CONTINUE C C ************************************************************** C CALCULATION OF ZBARX AND ZBARY C NEUTRAL SURFACE LOCATION IN X- AND Y- DIRECTION C C TI - THICKNESS OF LAYER K C ZI - DISTANCE FROM REFERENCE SURFACE TO MID OF LAMINA K C EX,EY - APPARENT ENGINEERING PROPERTY. I.E YOUNGS MODULUS C IN THE LONGITUDINAL AND TRANSVERSE DIRECTIONS IN C THE MATERIAL COORDINATE SYSTEM. C ************************************************************** C C INVERT GDBAR TO DETERMINE EX AND EY C ISING = -1 CALL INVERS (3,GDBAR,3,DUMMY,0,DETERM,ISING,INDEXX) C C THE YOUNGS MODULI EX AND EY IN THE MATERIAL COORD SYSTEM C EX = 1.0/GDBAR(1,1) EY = 1.0/GDBAR(2,2) C EXX = EX EYY = EY C C WRITE EXX AND EYY TO PCOMPS C CALL WRITE (PCOMPS,EXX,1,0) CALL WRITE (PCOMPS,EYY,1,0) C IF (LAMOPT .EQ. SYM) GO TO 490 C TI = ZK - ZK1 ZI = (ZK + ZK1)/2.0 C ZBARXT = ZBARXT + EX*TI*ZI ZBARXB = ZBARXB + EX*TI ZBARYT = ZBARYT + EY*TI*ZI ZBARYB = ZBARYB + EY*TI C C CALCULATE CONTRIBUTION TO OVERALL DENSITY RHO C 490 IF (G(23) .EQ. 0.) GO TO 500 RHO = RHO + G(23)*ZG1 C C PROCESS NEXT LAYER C 500 CONTINUE C C JUMP IF LAMOPT IS MEMBRANE OR SYMM.MEMBRANE C IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 520 C C WRITE GD1, GD2 AND GD4 MATRICES TO STIFF MATRIX AND INVERT C TO DETERMINE THE OVERALL BENDING PROPERTY FOR THE LAMINATE. C DO 510 LL = 1,3 DO 510 MM = 1,3 STIFF(LL ,MM ) = GD1(LL,MM) STIFF(LL ,MM+3) = GD4(LL,MM) STIFF(LL+3,MM ) = GD4(LL,MM) STIFF(LL+3,MM+3) = GD2(LL,MM) 510 CONTINUE C C INVERT STIFF C ISING = -1 CALL INVERS (6,STIFF,6,DUM,0,DETERM,ISING,INDEX) C EI(1) = 1.0/STIFF(4,4) EI(2) = 1.0/STIFF(5,5) C EIXX = EI(1) EIYY = EI(2) C C WRITE EIXX AND EIYY TO PCOMPS C 520 CALL WRITE (PCOMPS,EIXX,1,0) CALL WRITE (PCOMPS,EIYY,1,0) C C *************************************************************** C * THE MEMBRANE, BENDING, AND MEMEBRANE-BENDING MATRICES * C * G1, G2, G3, AND G4 ARE GIVEN BY THE FOLLOWING * C *************************************************************** C DO 530 IR = 1,3 DO 530 IC = 1,3 G1(IR,IC) = (1.0/TLAM)*G1(IR,IC) IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 530 G2(IR,IC) = (12.0/TLAM**3)*G2(IR,IC) IF (LAMOPT .EQ. SYM) GO TO 530 G4(IR,IC) = (1.0/TLAM**2)*G4(IR,IC) 530 CONTINUE C C CALCULATE LOCATION OF NEUTRAL SURFACE ZBARX AND ZBARY C FOR LAMINATE C IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) 1 GO TO 540 ZBARX = ZBARXT/ZBARXB ZBARY = ZBARYT/ZBARYB ZBAR(1) = ZBARX ZBAR(2) = ZBARY C ZX = ZBARX ZY = ZBARY C C WRITE ZX AND ZY TO PCOMPS C 540 CALL WRITE (PCOMPS,ZX,1,0) CALL WRITE (PCOMPS,ZY,1,0) C C CALCULATE OVERALL DENSITY RHO C IF (RHO .EQ. 0.) GO TO 550 IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) RHO = 2.0*RHO RHO = RHO/TLAM C C **************************************************************** C * CHECK IF TRANSVERSE FLEXIBILITY MATRIX NEEDS TO CALCULATED * C * OTHERWISE JUMP TO PROCEED AS PER NORMAL. * C **************************************************************** C 550 IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 830 IF (G(10) .EQ. 0.0) GO TO 830 C C LOOP OVER ALL THE LAYERS C DO 700 K = 1,NLAY IF (ITYPE .EQ. 0) MATID = Z(PIDLOC+4+4*K) IF (ITYPE.EQ.1 .OR. ITYPE.EQ.2) MATID = Z(PIDLOC+5) IF (K.GE.2 .AND. (ITYPE.EQ.0 .AND. MID.EQ.MATID)) GO TO 560 IF (K.GE.2 .AND. (ITYPE.EQ.1 .OR. ITYPE.EQ.2) ) GO TO 560 C MID = MATID CALL MAT (ELID) C C CALL LPROPS TO GET LAYER PROPERTY MATRICES C CALL LPROPS (G) C C BUILD TRANSFORMATION MATRIX T C 560 IF (ITYPE .EQ. 0) THETA = RZ(PIDLOC+6+4*K) IF (ITYPE .EQ. 1) THETA = RZ(PIDLOC+7+ K) IF (ITYPE .EQ. 2) THETA = RZ(PIDLOC+7+2*K) C = ABS(THETA) IF (C .LT. 0.000002) C = 0.0 IF (C.GT.89.99998 .AND. C.LT.90.00002) C = 90.0 IF (C.GT.179.9998 .AND. C.LT.180.0002) C = 180.0 IF (C.GT.269.9998 .AND. C.LT.270.0002) C = 270.0 IF (C.GT.359.9998 .AND. C.LT.360.0002) C = 360.0 IF (THETA .LT. 0.0) C = -C THETAR = C*DEGRAD C C = COS(THETAR) IF (ABS(C) .LT. EPSI) C = 0.0 C2 = C*C C4 = C2*C2 S = SIN(THETAR) IF (ABS(S) .LT. EPSI) S = 0.0 S2 = S*S S4 = S2*S2 C T(1) = C2 T(2) = S2 T(3) = C*S T(4) = S2 T(5) = C2 T(6) =-C*S T(7) =-2.0*C*S T(8) = 2.0*C*S T(9) = C2 - S2 C C PROCESSING FOR G3 MATRIX C C CALCULATE GDBR = TT X GD X T C C DETERMINE GD MATRIX, WHICH IS EQUAL TO G MATRIX WITH POISSONS C RATIO=0.0 C GD(1) ---- YOUNGS MODULUS IN X-DIRN C GD(5) ---- YOUNGS MODULUS IN Y-DIRN C GD(9) ---- INPLANE SHEAR MODULUS C DO 570 LL = 1,9 570 GD(LL) = 0.0 CONST = 1.0 - (G(2)*G(4))/(G(5)*G(1)) GD(1) = G(1)*CONST GD(5) = G(5)*CONST GD(9) = G(9) C C MULTIPLY GD X T AND WRITE TO GDT C CALL GMMATS (GD(1),3,3,0, T(1),3,3,0, GDT(1)) C C MULTIPLY TT X GDT AND WRITE TO GDBR C CALL GMMATS (T(1),3,3,1, GDT(1),3,3,0, GDBR(1)) C C WRITE GBR TO GDBAR C DO 580 LL = 1,3 DO 580 MM = 1,3 NN = MM + 3*(LL-1) GDBAR(LL,MM) = GDBR(NN) 580 CONTINUE C C ************************************************************* C * NOTE TO APPROXIMATE BEAM BEHAVIOUR THE CROSS AND * C * COUPLING TERMS IN THE GDBAR MATRIX NEED TO BE * C * DEGRADED I.E SET TO ZERO. * C ************************************************************* C GDBAR(1,2) = 0.0 GDBAR(2,1) = 0.0 GDBAR(1,3) = 0.0 GDBAR(2,3) = 0.0 GDBAR(3,1) = 0.0 GDBAR(3,2) = 0.0 C C INVERT GDBAR TO DETERMINE EX AND EY C ISING = -1 CALL INVERS (3,GDBAR,3,DUMMY,0,DETERM,ISING,INDEXX) C C THE YOUNGS MODULI EX AND EY IN THE MATERIAL COORD SYSTEM ARE C E(1) = 1.0/GDBAR(1,1) E(2) = 1.0/GDBAR(2,2) C C PERFORM INTILIZATION C ZREF = -TLAM/2.0 ZK1 = ZK IF (K .EQ. 1) ZK1 = ZREF IF (ITYPE .EQ. 0) ZK = ZK1 + RZ(PIDLOC+5+4*K) IF (ITYPE .EQ. 1) ZK = ZK1 + RZ(PIDLOC+6 ) IF (ITYPE .EQ. 2) ZK = ZK1 + RZ(PIDLOC+6+2*K) C C BUILD TRANSFORMATION MATRIX U C U(1) = C U(2) = S U(3) =-S U(4) = C C C CALCULATE G3BAR = UT X G3I X U C G3I MATRIX - LAYER K TRANSFORMED G3, IN MATERIAL COORD-SYS C DO 590 LL = 1,4 MM = LL + 9 G3I(LL) = G(MM) 590 CONTINUE C C MULTIPLY G3I X U AND WRITE TO G3IU C CALL GMMATS (G3I(1),2,2,0, U(1),2,2,0, G3IU(1)) C C MULTIPLY UT X G3IU AND WRITE TO G3BR C CALL GMMATS (U(1),2,2,1, G3IU(1),2,2,0, G3BR(1)) C C WRITE G3BR IN TWO DIMENSIONED ARRAY G3BAR C DO 600 LL = 1,2 DO 600 MM = 1,2 NN = MM + 2*(LL-1) G3BAR(LL,MM) = G3BR(NN) 600 CONTINUE C C INVERT G3BAR C DETRMN = G3BAR(1,1)*G3BAR(2,2) - G3BAR(1,2)*G3BAR(2,1) IF (DETRMN .EQ. 0.0) GO TO 1230 C G3INVD(1,1) = G3BAR(2,2)/DETRMN G3INVD(1,2) =-G3BAR(1,2)/DETRMN G3INVD(2,1) =-G3BAR(2,1)/DETRMN G3INVD(2,2) = G3BAR(1,1)/DETRMN C C G3 MATRIX CALC C ZI = (ZK + ZK1)/2.0 TI = ZK - ZK1 C DO 610 IR = 1,2 RI(IR) = ((FI(IR)/E(IR)) + (ZBAR(IR)-ZK1)*TI - (TI*TI/3.0)) 1 * (FI(IR)/E(IR)) RI(IR) = RI(IR) + ZBAR(IR)*TI*TI*((ZBAR(IR)-2.0*ZK1)/3.0 1 - (TI/4.0)) RI(IR) = RI(IR) + TI*TI*((ZK1*ZK1)/3.0 + (ZK1*TI)/4.0 1 + (TI*TI)/20.0) RI(IR) = RI(IR)*E(IR)*E(IR)*TI 610 CONTINUE C DO 620 IR = 1,2 DO 620 IC = 1,2 GTRFLX(IR,IC) = GTRFLX(IR,IC) + RI(IR)*G3INVD(IR,IC) 620 CONTINUE C DO 630 IR = 1,2 FII(IR) = E(IR)*TI*(ZBAR(IR)-ZI) FI(IR) = FI(IR) + FII(IR) 630 CONTINUE C C PROCESS NEXT LAYER C 700 CONTINUE C C C FALL HERE IF LAMOPT IS SYMM AND G3 CALCULATION IS REQUIRED C C IF (LAMOPT .NE. SYM) GO TO 810 DO 800 KK = 1,NLAY K = NLAY + 1 - KK C IF (ITYPE .EQ. 0) MATID = Z(PIDLOC+4+4*K) IF (ITYPE.EQ.1 .OR. ITYPE.EQ.2) MATID = Z(PIDLOC+5) IF (K.GE.2 .AND. (ITYPE.EQ.0 .AND. MID.EQ.MATID)) GO TO 710 IF (K.GE.2 .AND. (ITYPE.EQ.1 .OR. ITYPE.EQ.2) ) GO TO 710 C MID = MATID CALL MAT (ELID) C C CALL LPROPS TO GET LAYER PROPERTY MATRICES C CALL LPROPS (G) C C BUILD TRANSFORMATION MATRIX T C 710 IF (ITYPE .EQ. 0) THETA = RZ(PIDLOC+6+4*K) IF (ITYPE .EQ. 1) THETA = RZ(PIDLOC+7+ K) IF (ITYPE .EQ. 2) THETA = RZ(PIDLOC+7+2*K) C = ABS(THETA) IF (C .LT. 0.000002) C = 0.0 IF (C.GT.89.99998 .AND. C.LT.90.00002) C = 90.0 IF (C.GT.179.9998 .AND. C.LT.180.0002) C = 180.0 IF (C.GT.269.9998 .AND. C.LT.270.0002) C = 270.0 IF (C.GT.359.9998 .AND. C.LT.360.0002) C = 360.0 IF (THETA .LT. 0.0) C = -C THETAR = C*DEGRAD C C = COS(THETAR) IF (ABS(C) .LT. EPSI) C = 0.0 C2 = C*C C4 = C2*C2 S = SIN(THETAR) IF (ABS(S) .LT. EPSI) S = 0.0 S2 = S*S S4 = S2*S2 C T(1) = C2 T(2) = S2 T(3) = C*S T(4) = S2 T(5) = C2 T(6) =-C*S T(7) =-2.0*C*S T(8) = 2.0*C*S T(9) = C2 - S2 C C PROCESSING FOR G3 MATRIX C C CALCULATE GDBR = TT X GD X T C C DETERMINE GD MATRIX, WHICH IS EQUAL TO G MATRIX WITH POISSONS C RATIO=0.0 C GD(1) ---- YOUNGS MODULUS IN X-DIRN C GD(5) ---- YOUNGS MODULUS IN Y-DIRN C GD(9) ---- INPLANE SHEAR MODULUS C DO 720 LL = 1,9 720 GD(LL) = 0.0 CONST = 1.0 - (G(2)*G(4))/(G(5)*G(1)) GD(1) = G(1)*CONST GD(5) = G(5)*CONST GD(9) = G(9) C C MULTIPLY GD X T AND WRITE TO GDT C CALL GMMATS (GD(1),3,3,0, T(1),3,3,0, GDT(1)) C C MULTIPLY TT X GDT AND WRITE TO GDBR C CALL GMMATS (T(1),3,3,1, GDT(1),3,3,0, GDBR(1)) C C WRITE GBR TO GDBAR C DO 730 LL = 1,3 DO 730 MM = 1,3 NN = MM + 3*(LL-1) GDBAR(LL,MM) = GDBR(NN) 730 CONTINUE C C ************************************************************* C * NOTE TO APPROXIMATE BEAM BEHAVIOUR THE CROSS AND * C * COUPLING TERMS IN THE GDBAR MATRIX NEED TO BE * C * DEGRADED I.E SET TO ZERO. * C ************************************************************* C GDBAR(1,2) = 0.0 GDBAR(2,1) = 0.0 GDBAR(1,3) = 0.0 GDBAR(2,3) = 0.0 GDBAR(3,1) = 0.0 GDBAR(3,2) = 0.0 C C INVERT GDBAR TO DETERMINE EX AND EY C ISING = -1 CALL INVERS (3,GDBAR,3,DUMMY,0,DETERM,ISING,INDEXX) C C THE YOUNGS MODULI EX AND EY IN THE MATERIAL COORD SYSTEM ARE C E(1) = 1.0/GDBAR(1,1) E(2) = 1.0/GDBAR(2,2) C C PERFORM INTILIZATION C ZREF = -TLAM/2.0 ZK1 = ZK IF (ITYPE .EQ. 0) ZK = ZK1 + RZ(PIDLOC+5+4*K) IF (ITYPE .EQ. 1) ZK = ZK1 + RZ(PIDLOC+6 ) IF (ITYPE .EQ. 2) ZK = ZK1 + RZ(PIDLOC+6+2*K) C C BUILD TRANSFORMATION MATRIX U C U(1) = C U(2) = S U(3) =-S U(4) = C C C CALCULATE G3BAR = UT X G3I X U C G3I MATRIX - LAYER K TRANSFORMED G3, IN MATERIAL COORD-SYS C DO 740 LL = 1,4 MM = LL + 9 G3I(LL) = G(MM) 740 CONTINUE C C MULTIPLY G3I X U AND WRITE TO G3IU C CALL GMMATS (G3I(1),2,2,0, U(1),2,2,0, G3IU(1)) C C MULTIPLY UT X G3IU AND WRITE TO G3BR C CALL GMMATS (U(1),2,2,1, G3IU(1),2,2,0, G3BR(1)) C C WRITE G3BR IN TWO DIMENSIONED ARRAY G3BAR C DO 750 LL = 1,2 DO 750 MM = 1,2 NN = MM + 2*(LL-1) G3BAR(LL,MM) = G3BR(NN) 750 CONTINUE C C INVERT G3BAR C DETRMN = G3BAR(1,1)*G3BAR(2,2) - G3BAR(1,2)*G3BAR(2,1) IF (DETRMN .EQ. 0.0) GO TO 1230 C G3INVD(1,1) = G3BAR(2,2)/DETRMN G3INVD(1,2) =-G3BAR(1,2)/DETRMN G3INVD(2,1) =-G3BAR(2,1)/DETRMN G3INVD(2,2) = G3BAR(1,1)/DETRMN C C THE CORRESSPONDING LAYER ON THE OTHER SIDE OF SYMMETRY C ZI = (ZK + ZK1)/2.0 TI = ZK - ZK1 C DO 760 IR = 1,2 RI(IR) = (FI(IR)/E(IR) +(-ZK1)*TI-TI*TI/3.0 )*FI(IR)/E(IR) 1 + (ZK1*ZK1/3.0+ZK1*TI/4.0+TI*TI/20.0)*TI*TI RI(IR) = RI(IR)*E(IR)*E(IR)*TI 760 CONTINUE C DO 770 IR = 1,2 DO 770 IC = 1,2 GTRFLX(IR,IC) = GTRFLX(IR,IC) + RI(IR)*G3INVD(IR,IC) 770 CONTINUE C DO 780 IR = 1,2 FII(IR) = E(IR)*TI*(ZBAR(IR)-ZI) FI(IR) = FI(IR) + FII(IR) 780 CONTINUE C C PROCESS NEXT LAYER C 800 CONTINUE C 810 DO 820 IR = 1,2 DO 820 IC = 1,2 GTRFLX(IR,IC) = GTRFLX(IR,IC)*TLAM/(EI(IR)**2) 820 CONTINUE C C INVERT GTRFLX C DETRMN = GTRFLX(1,1)*GTRFLX(2,2) - GTRFLX(1,2)*GTRFLX(2,1) IF (DETRMN .EQ. 0.0) GO TO 1230 C G3(1,1) = GTRFLX(2,2)/DETRMN G3(1,2) =-GTRFLX(1,2)/DETRMN G3(2,1) =-GTRFLX(2,1)/DETRMN G3(2,2) = GTRFLX(1,1)/DETRMN C C BECAUSE G3(1,2) IS NOT EQUAL TO G3(2,1) IN GENERAL C AN AVERAGE VALUE WILL BE USED FOR THE COUPLING TERMS C G3(1,2) = (G3(1,2) + G3(2,1))/ 2.0 G3(2,1) = G3(1,2) C C ***************************************************** C WRITE THE NEWLY GENERATED G1, G2, G3, AND G4 MATRICES C TO MPTX IN THE FORM OF MAT2 DATA ENTRIES C ***************************************************** C C NOTE - THE MID FOR THESE MATRICES ARE AS FOLLOWS- C 1. MID1 -- PID + 100000000 C 2. MID2 -- PID + 200000000 C 3. MID3 -- PID + 300000000 C 4. MID4 -- PID + 400000000 C C INITIALIZE G1, G2, G3, AND G4 MATRICES C 830 DO 840 JJ = 1,17 GMEMBR(JJ) = 0.0 GBENDG(JJ) = 0.0 GTRSHR(JJ) = 0.0 GMEMBD(JJ) = 0.0 840 CONTINUE C IMEMBR(1) = 0 IBENDG(1) = 0 ITRSHR(1) = 0 IMEMBD(1) = 0 C C START GENERATING G1 MEMBRANE MATRIX C IMEMBR( 1) = Z(PIDLOC) + 100000000 GMEMBR( 2) = G1(1,1) GMEMBR( 3) = G1(1,2) GMEMBR( 4) = G1(1,3) GMEMBR( 5) = G1(2,2) GMEMBR( 6) = G1(2,3) GMEMBR( 7) = G1(3,3) GMEMBR( 8) = RHO C C NEXT 5 LINES ARE NEW FROM 2/90 UAI CODE C IF (.NOT.OK UAI) GO TO 845 GMEMBR( 9) = ALFA1 GMEMBR(10) = ALFA2 GMEMBR(11) = ALFA12 GMEMBR(12) = TREF GMEMBR(13) = GSUBE C 845 IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 850 C C START GENERATING G2 BENDING MATRIX C IBENDG( 1) = Z(PIDLOC) + 200000000 GBENDG( 2) = G2(1,1) GBENDG( 3) = G2(1,2) GBENDG( 4) = G2(1,3) GBENDG( 5) = G2(2,2) GBENDG( 6) = G2(2,3) GBENDG( 7) = G2(3,3) C C NEXT 3 LINES ARE NEW FROM 2/90 UAI CODE C IF (.NOT.OK UAI) GO TO 847 C GBENDG( 8) = ?? GBENDG( 9) = ALFA1 GBENDG(10) = ALFA2 GBENDG(11) = ALFA12 C C START GENERATING G3 TRANSVERSE SHEAR FLEXIBILITY MATRIX C 847 ITRSHR( 1) = Z(PIDLOC) + 300000000 GTRSHR( 2) = G3(1,1) GTRSHR( 3) = G3(1,2) GTRSHR( 4) = G3(2,1) GTRSHR( 5) = G3(2,2) C IF (LAMOPT .EQ. SYM) GO TO 850 C C START GENERATING G4 MEMBRANE-BENDING COUPLING MATRIX C IMEMBD( 1) = Z(PIDLOC) + 400000000 GMEMBD( 2) = G4(1,1) GMEMBD( 3) = G4(1,2) GMEMBD( 4) = G4(1,3) GMEMBD( 5) = G4(2,2) GMEMBD( 6) = G4(2,3) GMEMBD( 7) = G4(3,3) C 850 CONTINUE C C ******************************************************* C GENERATE EQUIVALENT PSHELL BULK DATA ENTIES FOR EVERY C PCOMPI BULK DATA ENTRY. THIS IS NECESSARY FOR DEMG TO C FUNCTION CORRECTLY WHEN LAMINATED COMPOSITE ELEMENTS C ARE PRESENT. C ******************************************************* C IPSHEL( 1) = Z(PIDLOC) IPSHEL( 2) = Z(PIDLOC) + 100000000 RPSHEL( 3) = TLAM IPSHEL( 4) = Z(PIDLOC) + 200000000 RPSHEL( 5) = 1.0 IPSHEL( 6) = Z(PIDLOC) + 300000000 RPSHEL( 7) = 1.0 RPSHEL( 8) = RZ(PIDLOC+2) RPSHEL( 9) =-TLAM/2.0 RPSHEL(10) = TLAM/2.0 IPSHEL(11) = Z(PIDLOC) + 400000000 RPSHEL(12) = 0.0 IPSHEL(13) = 0 IPSHEL(14) = 0 RPSHEL(15) = 0.0 IPSHEL(16) = 0 RPSHEL(17) = 0.0 C ZOFFS = RZ(PIDLOC+1) + TLAM/2.0 IF (Z(PIDLOC) .EQ. BLANK) ZOFFS = 0.0 IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) ZOFFS = 0 IF (ABS(ZOFFS) .LE. 1.0E-3) ZOFFS = 0.0 RPSHEL(14) = ZOFFS C IF (LAMOPT.NE.MEM .AND. LAMOPT.NE.SYMMEM) GO TO 860 IPSHEL( 4) = 0 IPSHEL( 6) = 0 IPSHEL(11) = 0 RPSHEL(14) = 0.0 860 IF (LAMOPT .NE. SYM) GO TO 870 IPSHEL(11) = 0 870 CONTINUE C C UPDATE COUNTER ICOUNT TO INDICATE MAT2 AND PSHELL DATA IS BEING C WRITTEN SECOND TIME C ICOUNT = ICOUNT + 1 C IF (ICOUNT .GT. 1) GO TO 900 C IF (PSHLPR .NE. 1) GO TO 890 ICORE = LPCOMP + 1 + N2MAT N = BUF5 - ICORE CALL OPEN (*1200,EPT,Z(BUF4),RDREW) CALL FILPOS (EPT,POS1) CALL READ (*900,*880,EPT,Z(ICORE),N,0,EPTWDS) CALL MESAGE (-8,0,NAM) 880 CALL WRITE (EPTX,Z(ICORE),EPTWDS,0) GO TO 900 890 CALL WRITE (EPTX,PSHNAM,3,0) 900 CALL WRITE (EPTX,IPSHEL(1),17,0) C IF (ICOUNT .GT. 1) GO TO 930 C IF (MAT2PR .NE. 1) GO TO 920 ICORE = LPCOMP + 1 + N2MAT N = BUF5 - ICORE CALL OPEN (*1200,MPT,Z(BUF2),RDREW) CALL FILPOS (MPT,POS) CALL READ (*930,*910,MPT,Z(ICORE),N,0,MATWDS) CALL MESAGE (-8,0,NAM) 910 CALL WRITE (MPTX,Z(ICORE),MATWDS,0) GO TO 930 920 CALL WRITE (MPTX,MATNAM,3,0) 930 CALL WRITE (MPTX,IMEMBR(1),17,0) IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 940 CALL WRITE (MPTX,IBENDG(1),17,0) CALL WRITE (MPTX,ITRSHR(1),17,0) IF (LAMOPT .EQ. SYM) GO TO 940 CALL WRITE (MPTX,IMEMBD(1),17,0) 940 CONTINUE CALL SSWTCH (40,L40) IF (L40 .EQ. 0) GO TO 980 C C WRITE THE NEWLY GENERATED PROPERTY MATRICES TO THE OUTPUT FILE C CALL PAGE2 (2) WRITE (NOUT,960) IMEMBR(1),(GMEMBR(LL),LL=2,16) IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 980 CALL PAGE2 (2) WRITE (NOUT,960) IBENDG(1),(GBENDG(LL),LL=2,16) IF (GTRSHR(1) .EQ. 0.0) GO TO 950 CALL PAGE2 (2) WRITE (NOUT,960) ITRSHR(1),(GTRSHR(LL),LL=2,16) 950 IF (LAMOPT .EQ. SYM) GO TO 980 CALL PAGE2 (2) WRITE (NOUT,960) IMEMBD(1),(GMEMBD(LL),LL=2,16) 960 FORMAT (/,' MAT2',7X,I9,7(1X,1P,E11.4),/,9X,8(1X,F11.1)) C C UPDATE LOCATION OF NEXT PID C 980 PIDLOC = EOELOC + 1 ISTART = PIDLOC C C WRITE END OF ENTRY (EOE) TO PCOMPS BEFORE PROCESSING C NEXT PCOMP ENTRY C CALL WRITE (PCOMPS,EOE,1,0) C C CHECK IF ALL 'PCOMP' TYPE ENTRIES HAVE BEEN PROCESSED C IF (ISTART .GE. IFINIS) IF (ITYPE-1) 990,1000,1010 C C PROCESS NEXT 'PCOMP' ENTRY C GO TO 250 C 990 CALL WRITE (PCOMPS,0,0,1) IF (TYPC1 .GT. 0) GO TO 190 IF (TYPC2 .GT. 0) GO TO 200 GO TO 1020 C 1000 CALL WRITE (PCOMPS,0,0,1) IF (TYPC2 .GT. 0) GO TO 200 GO TO 1020 C 1010 CALL WRITE (PCOMPS,0,0,1) C C ALL 'PCOMP' TYPES PROCESSED C WRITE EOR ON MPTX AND EPTX C 1020 CALL WRITE (MPTX,0,0,1) CALL WRITE (EPTX,0,0,1) C C COPY REMAINDER OF EPT TO EPTX C ICORE = 1 N = BUF5 - 1 EPTWDS = 0 IF (PSHLPR .NE. 1) CALL OPEN (*1200,EPT,Z(BUF4),RDREW) CALL FILPOS (EPT,POS1) IF (PSHLPR .EQ. 1) CALL FWDREC (*1050,EPT) 1030 CALL READ (*1050,*1040,EPT,Z(ICORE),N,1,EPTWDS) CALL MESAGE (-8,0,NAM) 1040 CALL WRITE (EPTX,Z(ICORE),EPTWDS,1) EPTWDS = 0 GO TO 1030 C C READ TRAILER FROM EPT AND WRITE TO EPTX C 1050 DO 1060 KK = 1,7 1060 IEPTX(KK) = 0 IEPTX( 1) = EPT C CALL RDTRL(IEPTX) IEPTX(1) = EPTX KT721 = ANDF(PSHBIT,511) K1 = (KT721-1)/16 + 2 K2 = KT721 - (K1-2)*16 + 16 IEPTX(K1) = ORF(IEPTX(K1),TWO(K2)) CALL WRTTRL (IEPTX) C C IF EOF ON MPT,THEN ALL MAT2 DATA COPIED TO MPTX C IF (EOF .EQ. 1) GO TO 1090 C C OTHERWISE COPY REMAINDER OF MPT TO MPTX C ICORE = 1 N = BUF5 - 1 MATWDS = 0 IF (MAT2PR .NE. 1) CALL OPEN (*1200,MPT,Z(BUF2),RDREW) CALL FILPOS (MPT,POS) IF (MAT2PR .EQ. 1) CALL FWDREC (*1090,MPT) 1070 CALL READ (*1090,*1080,MPT,Z(ICORE),N,1,MATWDS) CALL MESAGE (-8,0,NAM) 1080 CALL WRITE (MPTX,Z(ICORE),MATWDS,1) MATWDS = 0 GO TO 1070 C C READ TRAILER FROM MPT AND WRITE TO MPTX C 1090 DO 1100 KK = 1,7 1100 IMPTX(KK) = 0 IMPTX( 1) = MPT C CALL RDTRL(IMPTX) IMPTX(1) = MPTX KT721 = ANDF(MT2BIT,511) K1 = (KT721-1)/16 + 2 K2 = KT721 - (K1-2)*16 + 16 IMPTX(K1) = ORF(IMPTX(K1),TWO(K2)) CALL WRTTRL (IMPTX) C C WRITE TO TRAILER OF PCOMPS C C SET TRAILER BIT POSITION TO ZERO IF ENTRY TYPE DOES NOT EXIST C IF (TYPC .EQ. 0) PCBIT(1) = 0 IF (TYPC1 .EQ. 0) PCBIT(2) = 0 IF (TYPC2 .EQ. 0) PCBIT(3) = 0 C DO 1110 LL = 1,3 KT721 = ANDF(PCBIT(LL),511) K1 = (KT721-1)/16 + 2 K2 = KT721 - (K1-2)*16 + 16 IPCOMP(K1) = ORF(IPCOMP(K1),TWO(K2)) 1110 CONTINUE C C WHEN ICFIAT IS 11, A 65536 IS LEFT IN IPCOMP(2) ACCIDENTALLY C ZERO IT OUT C IF (ICFIAT .EQ. 11) IPCOMP(2) = 0 CALL WRTTRL (IPCOMP) C C CLOSE ALL FILES C CALL CLOSE (PCOMPS,1) CALL CLOSE (EPTX,1) CALL CLOSE (MPTX,1) CALL CLOSE (MPT,1) CALL CLOSE (EPT,1) C RETURN C C FATAL ERROR MESSAGES C 1200 CALL MESAGE (-1,FILE,NAM) GO TO 1300 1210 CALL PAGE2 (2) WRITE (NOUT,1220) 1220 FORMAT ('0*** SYSTEM FATAL ERROR. PCOMP, PCOMP1 OR PCOMP2', 1 ' DATA NOT FOUND BY SUBROUTINE TA1CPS.') NOGO = 1 GO TO 1300 1230 CALL PAGE2 (4) WRITE (NOUT,1240) MATID NOGO = 1 1240 FORMAT ('0*** USER FATAL ERROR. IMPROPER DATA PROVIDED FOR', 1 ' CALCULATION OF TRANSVERSE SHEAR FLEXIBILITY MATRIX', 2 /,23X,'FOR LAMINA REFERENCING MID ',I8,'.', 3 /,23X,'CHECK DATA ON MAT BULK DATA ENTRY.') 1300 CONTINUE RETURN END ================================================ FILE: mis/ta1etd.f ================================================ SUBROUTINE TA1ETD (ELID,TI,GRIDS) C C THIS ROUTINE (CALLED BY -TA1A- AND -TA1B-) READS ELEMENT C TEMPERATURE DATA FROM A PRE-POSITIONED RECORD C C ELID = ID OF ELEMENT FOR WHICH DATA IS DESIRED C TI = BUFFER DATA IS TO BE RETURNED IN C GRIDS = 0 IF EL-TEMP FORMAT DATA IS TO BE RETURNED C = NO. OF GRID POINTS IF GRID POINT DATA IS TO BE RETURNED. C ELTYPE = ELEMENT TYPE TO WHICH -ELID- BELONGS C OLDEL = ELEMENT TYPE CURRENTLY BEING WORKED ON (INITIALLY 0) C OLDEID = ELEMENT ID FROM LAST CALL C EORFLG = .TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED IN RECORD C ENDID = .TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED WITHIN AN ELEMENT C TYPE. C BUFFLG = NOT USED C ITEMP = TEMPERATURE LOAD SET ID C IDEFT = NOT USED C IDEFM = NOT USED C RECORD = .TRUE. IF A RECORD OF DATA IS INITIALLY AVAILABLE C DEFALT = THE DEFALT TEMPERATURE VALUE OR -1 IF IT DOES NOT EXIST C AVRAGE = THE AVERAGE ELEMENT TEMPERATURE C LOGICAL EORFLG,ENDID ,BUFFLG,RECORD INTEGER TI(2) ,OLDEID,GRIDS ,ELID ,ELTYPE,OLDEL INTEGER NAME(2) ,GPTT ,DEFALT CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ DUM ,IOUT COMMON /TA1ETT/ ELTYPE,OLDEL ,EORFLG,ENDID ,BUFFLG 1 ,ITEMP ,DEFALT,IBACK ,RECORD,OLDEID COMMON /TA1COM/ DUMMY(5) ,GPTT DATA NAME / 4HTA1E,4HTD /,MAXWDS/ 33 / C IF (OLDEID .EQ. ELID) RETURN OLDEID = ELID C IF (ITEMP .NE. 0) GO TO 20 DO 10 I = 1,MAXWDS 10 TI(I) = 0.0 RETURN C 20 IF (.NOT.RECORD .OR. EORFLG) GO TO 50 15 IF (ELTYPE .NE. OLDEL) GO TO 30 IF (ENDID) GO TO 50 C C HERE WHEN ELTYPE IS AT HAND AND END OF THIS TYPE DATA C HAS NOT YET BEEN REACHED. READ AN ELEMENT ID C 35 CALL READ (*5002,*5001,GPTT,ID,1,0,FLAG) IF (ID) 40,50,40 40 IF (IABS(ID) .EQ. ELID) IF (ID) 51,51,70 IF (ID) 35,35,45 45 CALL READ (*5002,*5001,GPTT,TI,NWORDS,0,FLAG) GO TO 35 C C MATCH ON ELEMNT ID MADE AND IT WAS WITH DATA C 70 CALL READ (*5002,*5001,GPTT,TI,NWORDS,0,FLAG) RETURN C C NO MORE DATA FOR THIS ELEMENT TYPE C 50 ENDID = .TRUE. C C NO DATA FOR ELEMENT ID DESIRED, THUS USE DEFALT C 51 IF (DEFALT .EQ. -1) GO TO 100 IF (GRIDS .GT. 0) GO TO 75 DO 80 I = 2,MAXWDS 80 TI(I) = 0 TI(1) = DEFALT IF (ELTYPE .EQ. 34) TI(2) = DEFALT RETURN C 75 DO 76 I = 1,GRIDS 76 TI(I) = DEFALT TI(GRIDS+1) = DEFALT RETURN C C NO TEMP DATA OR DEFALT C 100 WRITE (IOUT,301) UFM,ELID,ITEMP 301 FORMAT (A23,' 4016, THERE IS NO TEMPERATURE DATA FOR ELEMENT',I9, 1 ' IN SET',I9 ) CALL MESAGE (-61,0,0) C C LOOK FOR MATCH ON ELTYPE (FIRST SKIP ANY UNUSED ELEMENT DATA) C 30 IF (ENDID) GO TO 32 31 CALL READ (*5002,*5001,GPTT,ID,1,0,FLAG) IF (ID) 31,32,33 33 CALL READ (*5002,*5001,GPTT,TI,NWORDS,0,FLAG) GO TO 31 C C READ ELTYPE AND COUNT C 32 CALL READ (*5002,*300,GPTT,TI,2,0,FLAG) OLDEL = TI(1) NWORDS = TI(2) ENDID = .FALSE. IBACK = 1 GO TO 15 C C END OF RECORD HIT C 300 EORFLG = .TRUE. GO TO 50 5002 CALL MESAGE (-2,GPTT,NAME) 5001 CALL MESAGE (-3,GPTT,NAME) RETURN END ================================================ FILE: mis/ta1h.f ================================================ SUBROUTINE TA1H C C FOR LEVEL 16 A MAJOR REVISION HAS BEEN MADE TO TA1B. THE ECPT AND C GPCT ARE NO LONGER CONTSTRUCTED BUT, INSTEAD, THE GPECT IS BUILT. C THE GPECT IS ESSENTIALLY A TRUNCATED VERSION OF THE OLD ECPT. IT C CONTAINS ONE LOGICAL RECORD FOR EACH GRID OR SCALAR POINT IN THE C MODEL. EACH LOGICAL RECORD CONTAINS THE CONNECTION DATA FOR EACH C ELEMENT CONNECTED TO THE GRID POINT. C EXTERNAL ANDF INTEGER GENL ,ECT ,EPT ,BGPDT ,SIL ,GPTT ,CSTM , 1 EST ,GEI ,ECPT ,GPCT ,SCR1 ,SCR2 ,SCR3 , 2 SCR4 ,Z ,SYSBUF,TEMPID,ELEM ,TEMPSZ,ELEMID, 3 OUTPT ,RD ,RDREW ,WRT ,WRTREW,CLSREW,CLS , 4 BUF ,FLAG ,BUF1 ,BUF2 ,BUF3 ,OP ,TWO24 , 5 SCRI ,SCRO ,BLK ,OUFILE,ANDF ,OUT(3),GPECT , 6 EQEXIN DIMENSION BUF(50) ,BUFR(50) ,NAM(2),BLK(2),ZZ(1) COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL ,COMPS COMMON /TA1COM/ NSIL ,ECT ,EPT ,BGPDT ,SIL ,GPTT ,CSTM , 1 MPT ,EST ,GEI ,GPECT ,ECPT ,GPCT ,MPTX , 2 PCOMPS,EPTX ,SCR1 ,SCR2 ,SCR3 ,SCR4 ,EQEXIN COMMON /SYSTEM/ KSYSTM(65) COMMON /GPTA1 / NELEM ,JLAST ,INCR ,ELEM(1) COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW,CLS COMMON /TA1AB / TEMPSZ CZZ COMMON /ZZTAA2/ Z(1) COMMON /ZZZZZZ/ Z(20000) EQUIVALENCE (KSYSTM( 1),SYSBUF) ,(KSYSTM(2),OUTPT), 1 (KSYSTM(10),TEMPID) ,(BUF(1),BUFR(1)) , 2 (Z(1),ZZ(1)) ,(BLK(2),N) DATA NAM / 4HTA1H, 4H / ,TWO24 / 4194304 / C C PERFORM GENERAL INITIALIZATION C N2 = 2*NELEM - 1 N21 = N2 + 1 BUF1 = KORSZ(Z) - SYSBUF - 2 BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF CWKBR spr 93012 NEQ1 = NSIL + 1 NEQ1 = NSIL + 2 NEQ2 = 0 C C THE GRID POINT COUNTER(GPC)HAS ONE ENTRY PER GRID OR SCALAR POINT C IN THE STRUCTURE. EACH ENTRY CONTAINS THE NUMBER OF STRUCTURAL C ELEMENTS CONNECTED TO THE POINT. C DO 2001 I = 1,NSIL 2001 Z(I+1) = 0 C C OPEN THE ECT. INITIALIZE TO LOOP THRU BY ELEMENT TYPE. C FILE = ECT CALL GOPEN (ECT,Z(BUF1),RDREW) NOECT = 1 C C IGNORE PLOTEL AND REACT ELEMENTS. OTHERWISE, LOCATE AN ELEMENT C TYPE. IF PRESENT, READ ALL ELEMENTS OF THAT TYPE AND INCREMENT C THE GPC ENTRY FOR EACH POINT TO WHICH THE ELEMENT IS CONNECTED. C 2012 CALL ECTLOC (*2026,ECT,BUF,I) NOECT = 0 LX = ELEM(I+12) MM = LX+ELEM(I+9) - 1 M = ELEM(I+5) 2021 CALL READ (*3201,*2012,ECT,BUF,M,0,FLAG) DO 2022 L = LX,MM K = BUF(L) IF (K .NE. 0) Z(K+1) = Z(K+1) + 1 2022 CONTINUE GO TO 2021 2026 CONTINUE IF (NOECT .NE. 0) GO TO 3209 C C REPLACE ENTRIES IN THE GPC BY A RUNNING SUM C THUS CREATING POINTERS INTO ECPT0 C QUEUE WARNING MESSAGES FOR GRID PTS. WITH NO ELEMENTS CONNECTED. C Z(1) = 1 MAXEL = 0 DO 2037 I = 1,NSIL MAXEL = MAX0(MAXEL,Z(I+1)) IF (Z(I+1) .NE. 0) GO TO 2037 C J = 0 IF (NEQ2) 2035,2031,2033 2031 NEQ2 = -1 Z(NEQ1) = EQEXIN CALL RDTRL (Z(NEQ1)) IF (Z(NEQ1) .LE. 0) GO TO 2035 FILE = EQEXIN CALL GOPEN (EQEXIN,Z(BUF2),RDREW) CALL READ (*3200,*2032,EQEXIN,Z(NEQ1),BUF3,1,NEQ2) 2032 CALL CLOSE (EQEXIN,CLSREW) CALL SORT (0,0,2,2,Z(NEQ1),NEQ2) 2033 J = Z((I-1)*2+NEQ1) C 2035 BUF(1) = I BUF(2) = J CALL MESAGE (30,15,BUF) 2037 Z(I+1) = Z(I) + Z(I+1) C C DETERMINE BAND OF ENTRIES IN ECPT0 WHICH WILL FIT IN CORE C NDX1 = POINTER IN GPC TO 1ST ENTRY FOR CURRENT PASS. C NDX2 = POINTER IN GPC TO LAST ENTRY FOR CURRENT PASS. C NDX1 = 1 NDX2 = NSIL LLX = 1 IECPT0 = NSIL + 2 LENGTH = BUF1 - IECPT0 OP = WRTREW 2042 IF (Z(NDX2+1)-Z(NDX1)+2 .LE. LENGTH) GO TO 2050 NDX2 = NDX2 - 1 GO TO 2042 C C PASS THE ECT. FOR EACH GRID PT IN RANGE ON THIS PASS, C STORE ELEMENT POINTER = 2**K * J + WORD POSITION IN ECT RECORD C WHERE K=22 FOR LEVEL 16 AND J = ENTRY NBR OF ELEMENT IN /GPTA1/ C (WHICH IS SAME AS ELEMENT TYPE AS OF LEVEL 15) C 2050 FILE = ECT CALL GOPEN (ECT,Z(BUF1),RDREW) IZERO = Z(NDX1) 2051 CALL ECTLOC (*2059,ECT,BUF,I) J = (I-1)/INCR + 1 IDCNTR = TWO24*J M = ELEM(I+5) LX = ELEM(I+12) MM = LX + ELEM(I+9) - 1 2052 CALL READ (*3201,*2051,ECT,BUF,M,0,FLAG) DO 2054 L = LX,MM K = BUF(L) IF (K.LT.NDX1 .OR. K.GT.NDX2) GO TO 2054 IX = Z(K) - IZERO + IECPT0 Z(IX) = IDCNTR Z(K) = Z(K) + 1 2054 CONTINUE IDCNTR = IDCNTR + M GO TO 2052 2059 CONTINUE C C WRITE ECPT0 AND TEST FOR ADDITIONAL PASSES C ECPT0 CONTAINS ONE LOGICAL RECORD FOR EACH GRID OR SCALAR POINT. C EACH LOGICAL RECORD CONTAINS N PAIRS OF(-1,ELEMENT POINTER)WHERE C N= NUMBER OF ELEMENTS CONNECTED TO THE PIVOT. C IF NO ELEMENTS CONNECTED TO POINT, RECORD IS ONE WORD = 0. C FILE = SCR1 CALL OPEN (*3200,SCR1,Z(BUF1),OP) ELEMID = 1 BUF(1) = -1 LJ = IECPT0 - 1 DO 2062 I = NDX1,NDX2 M = Z(I) - LLX IF (M .NE. 0) GO TO 2063 CALL WRITE (SCR1,0,1,1) GO TO 2062 2063 DO 2061 J = 1,M LJ = LJ + 1 BUF(2) = Z(LJ) 2061 CALL WRITE (SCR1,BUF,2,0) CALL WRITE (SCR1,0,0,1) 2062 LLX = Z(I) IF (NDX2 .GE. NSIL) GO TO 2070 CALL CLOSE (SCR1,CLS) NDX1 = NDX2 + 1 NDX2 = NSIL OP = WRT GO TO 2042 C C READ AS MUCH OF ECT AS CORE CAN HOLD C FIRST N21 CELLS OF CORE CONTAIN A POINTER TABLE WHICH HAS TWO C ENTRIES PER ELEMENT TYPE. 1ST ENTRY HAS POINTER TO 1ST WORD OF C ECT DATA IN CORE FOR AN ELEMENT TYPE 2ND ENTRY HAS WORD POSITION C IN ECT RECORD OF THAT TYPE FOR LAST ENTRY READ ON PREVIOUS PASS. C 2070 CALL CLOSE (SCR1,CLSREW) SCRI = SCR1 SCRO = SCR2 FILE = ECT CALL GOPEN (ECT,Z(BUF1),RDREW) DO 2071 J = 1,N21 2071 Z(J) = 0 L = N21 + 1 2072 CALL ECTLOC (*2080,ECT,BUF,IELEM) I = 2*((IELEM-1)/INCR + 1) - 1 Z(I) = L LL = 0 M = ELEM(IELEM+5) LAST = BUF3-M 2073 IF (L .GT. LAST) GO TO 2080 CALL READ (*3201,*2074,ECT,Z(L),M,0,FLAG) Z(L) = ELEMID ELEMID = ELEMID +1 L = L + M LL = LL + M GO TO 2073 2074 CONTINUE GO TO 2072 C C PASS ECPT0 ENTRIES LINE BY LINE C ATTACH EACH REFERENCED ECT ENTRY WHICH IS NOW IN CORE C 2080 FILE = SCRI CALL OPEN (*3200,SCRI,Z(BUF2),RDREW) CALL OPEN (*3200,SCRO,Z(BUF3),WRTREW) 2082 CALL READ (*2090,*2086,SCRI,BUF,1,0,FLAG) IF (BUF(1)) 2083,2087,2085 2083 CALL READ (*3201,*3202,SCRI,BUF(2),1,0,FLAG) KHR = BUF(2)/TWO24 KTWO24 = KHR*TWO24 K = 2*KHR - 1 IDPTR = BUF(2) - KTWO24 KK = Z(K) + IDPTR - Z(K+1) IF (Z(K).EQ.0 .OR. KK.GT.LAST) GO TO 2084 J = (KHR-1)*INCR + 1 MM = ELEM(J+5) BUF(1) = MM BUF(2) = ANDF(Z(KK),TWO24-1) + KTWO24 CALL WRITE (SCRO,BUF,2,0) CALL WRITE (SCRO,Z(KK+1),MM-1,0) GO TO 2082 2084 CALL WRITE (SCRO,BUF,2,0) GO TO 2082 2085 CALL READ (*3201,*3202,SCRI,BUF(2),BUF(1),0,FLAG) CALL WRITE (SCRO,BUF,BUF(1)+1,0) GO TO 2082 2086 CALL WRITE (SCRO,0,0,1) GO TO 2082 2087 CALL WRITE (SCRO,0,1,1) CALL FWDREC (*3201,SCRI) GO TO 2082 C C TEST FOR COMPLETION OF STEP C IF INCOMPLETE, SET FOR NEXT PASS C 2090 CALL CLOSE (SCRI,CLSREW) CALL CLOSE (SCRO,CLSREW) IF (IELEM .EQ. 0) GO TO 2100 K = SCRI SCRI = SCRO SCRO = K L = N21 + 1 DO 2091 J = 1,N21 2091 Z(J) = 0 Z(I) = L Z(I+1) = LL GO TO 2073 C C READ THE SIL INTO CORE. OPEN ECPT0 AND GPECT. C WRITE HEADER RECORD ON GPECT - 3RD WORD = NO OF ENTRIES IN /GPTA1/ C 2100 FILE = SIL CALL GOPEN (SIL,Z(BUF1),RDREW) CALL FREAD (SIL,Z,NSIL,1) Z(NSIL+1) = LUSET + 1 CALL CLOSE (SIL,CLSREW) INFILE = SCRO OUFILE = GPECT MAXDOF = 0 FILE = INFILE CALL OPEN (*3200,INFILE,Z(BUF1),RDREW) CALL OPEN (*3200,OUFILE,Z(BUF2),WRTREW) CALL FNAME (OUFILE,BUF) BUF(3) = NELEM CALL WRITE (OUFILE,BUF,3,1) C C PASS ECPT0 LINE BY LINE. FOR EACH LINE - C 1. CONVERT GRID NBRS TO SIL VALUES C 2. SORT SIL NBRS AND DISCARD MISSING ONES C 3. WRITE LINE ON GPECT C DO 2158 LL = 1,NSIL C C WRITE SIL AND DOF FOR PIVOT C BUF(1) = Z(LL) BUF(2) = Z(LL+1) - Z(LL) CALL WRITE (OUFILE,BUF,2,0) C C READ AN ECT LINE FROM ECPT0. SET POINTERS AS A FUNCTION OF ELEM C TYPE. C 2140 CALL READ (*3201,*2154,INFILE,BUF,1,0,FLAG) IF (BUF(1)) 3207, 2150, 2142 2142 CALL READ (*3201,*3202,INFILE,BUF(2),BUF(1),0,FLAG) KHR = BUF(2)/TWO24 IELEM = (KHR-1)*INCR + 1 NGRIDS= ELEM(IELEM+9) IGR1 = ELEM(IELEM+12) + 1 IGR2 = IGR1 + NGRIDS - 1 MAXEL = 0 C C CONVERT GRID NUMBERS TO SIL VALUES. DISCARD ANY MISSING (ZERO) C GRID POINTS THEN SORT LIST ON SIL VALUE C DO 2146 II = IGR1,IGR2 K = BUF(II) IF (K .NE. 0) GO TO 2145 BUF(II) = 2147483647 NGRIDS = NGRIDS - 1 GO TO 2146 2145 BUF(II) = Z(K) MAXEL = MAX0(MAXEL,Z(K+1)-Z(K)) 2146 CONTINUE CALL SORT (0,0,1,1,BUF(IGR1),ELEM(IELEM+9)) MAXDOF = MAX0(MAXDOF,NGRIDS*MAXEL) C C WRITE A LINE ON GPECT. C - NUMBER OF WORDS IN ENTRY (NOT INCLUDING THIS WORD) C ELEMENT ID C ELEMENT TYPE C THE SORTED SIL LIST FOR THE GRID POINTS C OUT(1) = -(NGRIDS+2) OUT(2) = BUF(2) - KHR*TWO24 OUT(3) = ELEM(IELEM+2) CALL WRITE (OUFILE,OUT,3,0) CALL WRITE (OUFILE,BUF(IGR1),NGRIDS,0) GO TO 2140 C C HERE IF NO ELEMENTS CONNECTED TO PIVOT. C 2150 CALL WRITE (OUFILE,0,0,1) CALL FWDREC (*3202,INFILE) GO TO 2158 C C HERE WHEN ALL ELEMENTS COMPLETE FOR CURRENT PIVOT C 2154 CALL WRITE (OUFILE,0,0,1) 2158 CONTINUE C C CLOSE FILES, WRITE TRAILER AND RETURN. C CALL CLOSE (INFILE,CLSREW) CALL CLOSE (OUFILE,CLSREW) BUF(1) = OUFILE BUF(2) = NELEM BUF(3) = NSIL BUF(4) = MAXEL BUF(5) = MAXDOF BUF(6) = 0 BUF(7) = 0 CALL WRTTRL (BUF) RETURN C C FATAL ERROR MESAGES C 3200 J = -1 GO TO 3220 3201 J = -2 GO TO 3220 3202 J = -3 GO TO 3220 3207 BUF(1) = 0 BUF(2) = 0 CALL MESAGE (-30,14,BUF) 3209 BUF(1) = 0 BUF(2) = 0 CALL MESAGE (-30,13,BUF) BUF(1) = TEMPID BUF(2) = 0 N = 44 GO TO 3219 3219 CALL MESAGE (-30,N,BUF) 3220 CALL MESAGE (J,FILE,NAM) RETURN END ================================================ FILE: mis/tabfmt.f ================================================ SUBROUTINE TABFMT C C MODULE MAIN PROGRAM FOR DMAP MODULE TABPRT C C THE CALL TO THIS MODULE IS C C TABPRT TDB // C,N,KEY / C,N,OPT1 / C,N,OPT2 $ C C TDB IS THE TABLE DATA BLOCK TO BE PRINTED. C C KEY IS THE BCD VALUE WHICH DETERMINES THE FORMAT BY C WHICH THE TABLE IS PRINTED. C THERE IS NO DEFAULT VALUE FOR KEY. C C OPT1 IS A SKIP FACTOR BETWEEN DATA LINES. C OPT1.EQ.0 MEANS NO SPACE BETWEEN DATA LINES. C OPT1.NE.0 MEANS ONE SPACE BETWEEN DATA LINES. C THE DEFAULT VALUE FOR OPT1 IS 0 C C OPT2 IS ZERO BY DEFAULT. C SKIP FILE-NAME AND KEY CHECKING IF OPT2 IS NON-ZERO. C INTEGER P,P2,P3,NA,R,X(14),SUBNAM(2),NAME(2),NONE(2), 1 NAM(2),RE,F,T(7),WD,RL,Y,Z(2),EID,A,B, 2 H1,H2,H3,HX,ZERO,ONE,TWO REAL RX(14) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / P(2),P2,P3 COMMON /SYSTEM/ NB,NO,JUNK1(6),NLPP,JUNK2(2),LINE COMMON /OUTPUT/ T1(32),T2(32),T3(32),H1(32),H2(32),H3(32) COMMON /TABFTX/ LA,NA(2,21) , HX(32,40) , RE(21) COMMON /ZZZZZZ/ IX(1) EQUIVALENCE (RX(1),X(1),IX(1)) DATA NONE / 4H (NO , 4HNE) / DATA SUBNAM/ 4HTABF , 4HMT / DATA F / 101 / DATA ZERO / 4H 0 /, ONE / 4H 1 / , TWO / 4H 2 / C C 1 FORMAT (1H ) C LC = KORSZ(X) - NB IB = LC + 1 IF (LC .LE. 0) CALL MESAGE (-8,LC,SUBNAM) LS = 1 IF (P2 .NE. 0) LS = 2 C DO 100 I = 1,LA IF (P(1).EQ.NA(1,I) .AND. P(2).EQ.NA(2,I)) GO TO 200 100 CONTINUE GO TO 9901 C 200 CONTINUE CALL FNAME (F,NAME) IF (NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 9902 T(1) = F CALL RDTRL (T) IF (T(1) .LE. 0) GO TO 9902 CALL OPEN (*9902,F,X(IB),0) CALL READ (*9903,*9904,F,NAM,2,RE(I),KF) IF (NAM(1).EQ.P(1) .AND. NAM(2).EQ.P(2)) GO TO 250 IF (P3 .EQ. 0) GO TO 9901 250 CONTINUE C GO TO (1100,1200,1300,1400,1500,1600,1700,1800,1900,2000 1 ,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000 2 ,3100), I C C PRINT CONTENTS OF TABLE DATA BLOCK BGPDT. C 1100 CONTINUE M1 = 2 M2 = 3 M3 = 4 ASSIGN 1110 TO R GO TO 8000 1110 CONTINUE H1(19) = P(1) H1(20) = P(2) H1(24) = ONE IF (LC .LT. 4) GO TO 9905 J = 0 1120 CALL READ (*9903,*1180,F,X,4,0,KF) J = J + 1 LINE = LINE + LS IF (LINE .LE. NLPP) GO TO 1140 CALL PAGE WRITE (NO,1) LINE = LS 1140 IF (P2 .NE. 0) WRITE (NO,1) WRITE (NO,1150) J,X(1),(RX(L),L=2,4) 1150 FORMAT (20X,I10,I13,1X,1P,3E20.5) GO TO 1120 1180 CONTINUE IF (KF .EQ. 0) GO TO 9000 GO TO 9906 C C PRINT CONTENTS OF TABLE DATA BLOCK GPL. C 1200 CONTINUE C C RECORD 1 C M1 = 2 M2 = 5 M3 = 6 ASSIGN 1205 TO R GO TO 8000 1205 CONTINUE H1(19) = P(1) H1(20) = P(2) H1(24) = ONE IF (LC .LT. 5) GO TO 9905 J = -4 1210 CALL READ (*9903,*1230,F,X,5,0,KF) J = J + 5 LINE = LINE + LS IF (LINE.LE.NLPP) GO TO 1220 CALL PAGE WRITE (NO,1) LINE = LS 1220 IF (P2 .NE. 0) WRITE (NO,1) WRITE (NO,1225) J,(X(L),L=1,5) 1225 FORMAT (11X,I8,5(9X,I8,3X)) GO TO 1210 1230 CONTINUE IF (KF .EQ. 0) GO TO 1250 J = J + 5 LINE = LINE + LS IF (LINE .LE. NLPP) GO TO 1240 CALL PAGE WRITE (NO,1) LINE = LS 1240 IF (P2 .NE. 0) WRITE (NO,1) WRITE (NO,1225) J,(X(L),L=1,KF) C C RECORD 2 C 1250 IF (I .EQ. 4) GO TO 9000 M1 = 2 M2 = 7 M3 = 8 ASSIGN 1255 TO R GO TO 8000 1255 CONTINUE H1(19) = P(1) H1(20) = P(2) H1(24) = TWO IF (LC .LT. 6) GO TO 9905 J = -2 1260 CALL READ (*9903,*1280,F,X,6,0,KF) J = J + 3 LINE = LINE + LS IF (LINE .LE. NLPP) GO TO 1270 CALL PAGE WRITE (NO,1) LINE = LS 1270 IF (P2 .NE. 0) WRITE (NO,1) WRITE (NO,1275) J,(X(L),L=1,6) 1275 FORMAT (11X,I8,2X,3(9X,I8,4X,I12)) GO TO 1260 1280 CONTINUE IF (KF .EQ. 0) GO TO 1292 J = J + 3 LINE = LINE + LS IF (LINE .LE. NLPP) GO TO 1290 CALL PAGE WRITE (NO,1) LINE = LS 1290 IF (P2 .NE. 0) WRITE (NO,1) WRITE (NO,1275) J,(X(L),L=1,KF) C 1292 IF (MOD(KF,2) .EQ. 0) GO TO 9000 GO TO 9906 C C PRINT CONTENTS OF TABLE DATA BLOCK CSTM C 1300 CONTINUE M1 = 2 M2 = 9 M3 = 10 ASSIGN 1310 TO R GO TO 8000 1310 CONTINUE H1(19) = P(1) H1(20) = P(2) H1(24) = ONE IF (LC .LT. 14) GO TO 9905 J = 0 1320 CALL READ (*9903,*1380,F,X,14,0,KF) J = J + 1 LINE = LINE + LS + 2 IF (LINE .LE. NLPP) GO TO 1340 CALL PAGE WRITE (NO,1) LINE = LS + 2 1340 IF (P2 .NE. 0) WRITE (NO,1) WRITE (NO,1350) J,X(1),X(2),RX( 6),RX( 7),RX( 8),RX( 3) 1 ,RX( 9),RX(10),RX(11),RX( 4) 2 ,RX(12),RX(13),RX(14),RX( 5) 1350 FORMAT( 10X,I10,I10,I10, 1P,3E20.8,10X,1P,E20.8 1 /40X, 1P,3E20.8,10X,1P,E20.8 2 /40X, 1P,3E20.8,10X,1P,E20.8) GO TO 1320 1380 CONTINUE IF (KF .EQ. 0) GO TO 9000 GO TO 9906 C C PRINT CONTENTS OF TABLE DATA BLOCK GPLD C 1400 CONTINUE GO TO 1200 C C PRINT CONTENTS OF TABLE DATA BLOCK EQEXIN C 1500 CONTINUE M1 = 2 M2 = 11 M3 = 12 ASSIGN 1501 TO R GO TO 8000 1501 CONTINUE H1(19) = P(1) H1(20) = P(2) H1(24) = ONE 1502 IF (LC .LT. 8) GO TO 9905 J = -3 1510 CALL READ (*9903,*1530,F,X,8,0,KF) J = J + 4 LINE = LINE + LS IF (LINE .LE. NLPP) GO TO 1520 CALL PAGE WRITE (NO,1) LINE = LS 1520 IF (P2 .NE. 0) WRITE (NO,1) WRITE (NO,1525) J,(X(L),L=1,8) 1525 FORMAT (7X,I8,4(7X,I8,6X,I8)) GO TO 1510 1530 CONTINUE IF (KF .EQ. 0) GO TO 1550 J = J + 4 LINE = LINE + LS IF (LINE .LE. NLPP) GO TO 1540 CALL PAGE WRITE (NO,1) LINE = LS 1540 IF (P2 .NE. 0) WRITE (NO,1) WRITE (NO,1525) J,(X(L),L=1,KF) C C RECORD 2 C 1550 IF (H1(24) .EQ. TWO) GO TO 9000 M1 = 2 M2 = 11 M3 = 22 ASSIGN 1555 TO R GO TO 8000 1555 CONTINUE H1(19) = P(1) H1(20) = P(2) H1(24) = TWO GO TO 1502 C C PRINT CONTENTS OF TABLE DATA BLOCK EQDYN C 1600 CONTINUE GO TO 1500 C C PRINT CONTENTS OF TABLE DATA BLOCK GPDT C 1700 CONTINUE M1 = 2 M2 = 13 M3 = 14 ASSIGN 1710 TO R GO TO 8000 1710 CONTINUE H1(19) = P(1) H1(20) = P(2) H1(24) = ONE IF (LC .LT. 7) GO TO 9905 J = 0 1720 CALL READ (*9903,*1750,F,X,7,0,KF) J = J + 1 LINE = LINE + LS IF (LINE .LE. NLPP) GO TO 1730 CALL PAGE WRITE (NO,1) LINE = LS 1730 IF (P2 .NE. 0) WRITE (NO,1) WRITE (NO,1740) X(1),X(2),RX(3),RX(4),RX(5),X(6),X(7) 1740 FORMAT (7X,I8,10X,I8,10X,3(1P,E12.5,5X),5X,I8,10X,I8) GO TO 1720 1750 CONTINUE IF (KF .EQ. 0) GO TO 9000 GO TO 9906 C C PRINT CONTENTS OF TABLE DATA BLOCK GPTT C 1800 CONTINUE C C RECORD 0 C M1 = 2 M2 = 15 M3 = 16 ASSIGN 1805 TO R GO TO 8000 1805 CONTINUE H1(19) = P(1) H1(20) = P(2) H1(24) = ZERO IF ((LC/3)*3 .EQ. 0) GO TO 9905 IVAL = (LC/3)*3 CALL READ (*9903,*1812,F,X,IVAL,0,KF) GO TO 9905 1812 WD = ((KF-1)/3) + 1 IF (KF .EQ. 0) WD = ((LC-1)/3) + 1 DO 1825 J = 1,WD LINE = LINE + LS IF (LINE .LE. NLPP) GO TO 1815 CALL PAGE WRITE (NO,1) LINE = LS 1815 IF (P2 .NE. 0) WRITE (NO,1) IF (X(3*J-1) .EQ. -1) GO TO 1822 WRITE (NO,1821) J,X(3*J-2),RX(3*J-1),X(3*J) 1821 FORMAT (7X,I8,10X,I8,14X,1P,E12.5,19X,I8) GO TO 1825 1822 WRITE (NO,1823) J,X(3*J-2),X(3*J-1),X(3*J) 1823 FORMAT (7X,I8,10X,I8,14X,6X,I3,22X,I8) 1825 CONTINUE C C RECORD 1 AND ALL OTHERS C M1 = 17 M2 = 1 M3 = 18 ASSIGN 1835 TO R GO TO 8000 1835 CONTINUE DO 1895 RL = 1,J IF (X(3*RL) .EQ. 0) GO TO 1895 IF ((LC-3*WD) .LT. 4) GO TO 9905 CALL READ (*9903,*9904,F,Y,1,0,KF) 1840 CALL READ (*9903,*1895,F,Z,2,0,KF) 1845 CALL READ (*9903,*9904,F,EID,1,0,KF) C C ELEMENT ID EQUALS ZERO INDICATES THE END OF DATA FOR CURRENT TYPE C IF ((LC-3*WD) .LT. Z(2)) GO TO 9905 C C ELEMENT ID LESS THAN ZERO INDICATES NONEXISTENT TEMPERATURE VALUES C IF (EID) 1848,1840,1847 1847 IVAL = 3*WD + 1 CALL READ (*9903,*9904,F,X(IVAL),Z(2),0,KF) 1848 A = 3*WD + 1 B = A + 7 IF (B .GE. (A+Z(2))) B = A + Z(2) - 1 LINE = LINE + LS IF (LINE .LE. NLPP) GO TO 1865 CALL PAGE WRITE (NO,1850) X(3*RL),Y 1850 FORMAT (9X,I8,11X,I8,11X,I8,13X,I8) WRITE (NO,1860) 1860 FORMAT (14H0 ELEMENT ID,8X,5H( 1 ),9X,5H( 2 ),9X,5H( 3 ),9X, 1 5H( 4 ),9X,5H( 5 ),9X,5H( 6 ),9X, 2 5H( 7 ),9X,5H( 8 ) ) WRITE (NO,1) LINE = LS + 3 1865 IF (EID) 1866,1840,1867 1866 WRITE (NO,1870) EID GO TO 1845 1867 WRITE (NO,1870) EID,(RX(L),L=A,B) 1870 FORMAT (4X,I8,3X,8(2X,1P,E12.5) ) IF (P2 .NE. 0) WRITE (NO,1) IF (B .EQ. (A+Z(2)-1)) GO TO 1845 A = A + 8 1875 B = A + 7 IF (B .GE. (A+Z(2))) B = A + Z(2) - 1 LINE = LINE + LS IF (LINE .LE. NLPP) GO TO 1880 CALL PAGE WRITE (NO,1850) X(3*RL),Y WRITE (NO,1) LINE = LS + 3 1880 WRITE (NO,1885) (RX(L),L=A,B) 1885 FORMAT (17X,1P,E12.5,2X,1P,E12.5,2X,1P,E12.5,2X,1P,E12.5, 1 2X,1P,E12.5,2X,1P,E12.5,2X,1P,E12.5,2X,1P,E12.5) IF (P2 .NE. 0) WRITE (NO,1) IF (B .EQ. (A+Z(2)-1)) GO TO 1845 A = A + 8 GO TO 1875 1895 CONTINUE IF (KF .EQ. 0) GO TO 9000 GO TO 9906 C C PRINT CONTENTS OF TABLE DATA BLOCK GPCT C 1900 CONTINUE M1 = 19 M2 = 20 M3 = 21 ASSIGN 1910 TO R GO TO 8000 1910 CONTINUE IF (LC .LT. 12) GO TO 9905 J = 0 1920 CALL READ (*1990,*9904,F,PI,1,0,KF) J = J + 1 WD = 10 LINE = LINE + LS IF (LINE .LE. NLPP) GO TO 1930 CALL PAGE WRITE (NO,1) LINE = LS 1930 IF (P2 .NE. 0) WRITE (NO,1) CALL READ (*9903,*1980,F,M,1,0,KF) CALL READ (*9903,*1940,F,X,10,0,KF) GO TO 1945 1940 WD = KF 1945 WRITE (NO,1950) J,PI,M,(X(L),L=1,WD) 1950 FORMAT (3X,I8,12(2X,I8)) IF (M .LE. 10) GO TO 1920 1960 LINE = LINE + LS IF (LINE .LE. NLPP) GO TO 1965 CALL PAGE WRITE (NO,1) LINE = LS 1965 IF (P2 .NE. 0) WRITE (NO,1) CALL READ (*9903,*1975,F,X,10,0,KF) WRITE (NO,1970) (X(L),L=1,WD) 1970 FORMAT (31X,10(2X,I8)) GO TO 1960 1975 WD = KF WRITE (NO,1970) (X(L),L=1,WD) GO TO 1920 1980 M = 0 WRITE (NO,1950) PI,M GO TO 1920 1990 IF (J .EQ. 0) GO TO 9903 GO TO 9000 C C PRINT CONTENTS OF C 2000 CONTINUE GO TO 9000 C 2100 CONTINUE GO TO 9000 C 2200 CONTINUE GO TO 9000 C 2300 CONTINUE GO TO 9000 C 2400 CONTINUE GO TO 9000 C 2500 CONTINUE GO TO 9000 C 2600 CONTINUE GO TO 9000 C 2700 CONTINUE GO TO 9000 C 2800 CONTINUE GO TO 9000 C 2900 CONTINUE GO TO 9000 C 3000 CONTINUE GO TO 9000 C 3100 CONTINUE GO TO 9000 C C C INTERNAL ROUTINE TO SET HEADINGS AND INITIALIZE LINE COUNTER. C ------------------------------------------------------------- C 8000 CONTINUE DO 8010 M = 1,32 H1(M) = HX(M,M1) H2(M) = HX(M,M2) H3(M) = HX(M,M3) 8010 CONTINUE LINE = NLPP GO TO R, (1110,1205,1255,1310,1501,1555,1710,1805,1835,1910) C C C PRINT TRAILER OF TABLE DATA BLOCK C --------------------------------- C 9000 CONTINUE WRITE (NO,9010) (T(L),L=2,7) 9010 FORMAT (15H0*** TRAILER = ,6I18) GO TO 9999 C C 9901 WRITE (NO,9951) UWM,P 9951 FORMAT (A25,' 2094, SUBROUTINE TABFMT, KEYNAME ',2A4, 1 ' NOT IN LIST OF AVAILABLE KEYNAMES.') GO TO 9993 C 9902 WRITE (NO,9952) UWM 9952 FORMAT (A25,' 2095, SUBROUTINE TABFMT, PURGED INPUT.') GO TO 9995 C 9903 WRITE (NO,9953) UWM 9953 FORMAT (A25,' 2096, SUBROUTINE TABFMT, EOF ENCOUNTERED.') GO TO 9995 C 9904 WRITE (NO,9954) UWM 9954 FORMAT (A25,' 2097, SUBROUTINE TABFMT, EOR ENCOUNTERED.') GO TO 9995 C 9905 WRITE (NO,9955) UWM 9955 FORMAT (A25,' 2098, SUBROUTINE TABFMT, INSUFFICIENT CORE.') GO TO 9995 C 9906 WRITE (NO,9956) UWM,KF 9956 FORMAT (A25,' 2099, SUBROUTINE TABFMT, KF =',I10) GO TO 9995 C 9993 WRITE (NO,9994) (NA(1,L),NA(2,L),L=1,LA) 9994 FORMAT ('0*** LIST OF RECOGNIZED KEYNAMES FOLLOWS...', /(20X,2A4)) C 9995 CONTINUE C C DO NOT CALL PEXIT SINCE THIS IS AN OUTPUT PROCESSOR. C 9999 CALL CLOSE (F,1) RETURN C END ================================================ FILE: mis/table5.f ================================================ SUBROUTINE TABLE5 (*,IN,OUT,TRL,IBUF,WRT,LFN,FN) C C THIS ROUTINE IS CALLED ONLY BY OUTPT5 TO COPY A TABLE FILE IN 'IN' C TO AN OUPUT FILE 'OUT', BY FORTRAN WRITE, FORMATTED OR UNFORMATTED C C IN,OUT = INPUT AND OUTPUT FILE, INTEGERS C TRL = TRAILER OF INPUT FILE, INTEGERS C P4 = 0, OUTPUT FILE IS TO BE WRITTEN UNFORMATTED, BINARY, INT. C = 1, OUTPUT FILE IS TO BE WRITTEN FORMATTED, INTEGER C TI = ARRAY TO OVERRIDE DATA TYPE OUTPUT. INTEGERS C SEE RULES BELOW. C Z,IBUF = OPEN CORE AND GINO BUFFER POINTER, INTEGER C WRT,LFN= ARE COMMUNICATION FLAGS BETWEEN TABLE5 AND OUTPT5 C FN = ARRAY FOR INPUT FILE NAME C C THE FOLLOWING CONVENTIONS ARE USED FOR FORMATTED TAPE - C C A '/'+A4 FORMAT FOR BCD WORD ( 5 BYTES) C AN 'I'+I9 FORMAT FOR INTEGER (10 BYTES) C A 'R'+E14.7 FORMAT FOR S.P. REAL NUMBER. (15 BYTES) C A 'D'+D14.7 FORMAT FOR D.P. REAL NUMBER. (15 BYTES) C A 'X'+4 BLANKS IS A FILLER, AT END OF A LINE ( 5 BYTES) C C EACH RECORD IS PRECEEDED BY L5 (IN I10 FORMAT) WHERE L5 IS THE C TOTAL NO. OF CHARACTERS OF THIS CURRENT RECORD DIVIDED BY 5. C C EACH RECORD IS WRITTEN IN MULTIPLE LINES OF 130 CHARACTERS EACH. C (131 CHARACTERS TO BE EXACTLY - 130 PLUS A BLANK) C C ONE OR TWO FILLERS MAY ATTACH TO THE END OF A LINE TO MAKE UP C 130 CHARACTERS. THAT IS, INTEGER AND S.P.REAL NUMBER AT THE END C OF A LINE WILL NOT BE SPLITTED BETWEEN TWO LINES C C IF A ZERO IS PRECEEDED BY A F.P. REAL NUMBER, IT WILL BE WRITTEN C OUT AS A REAL ZERO (0.0), INTEGER ZERO (0) OTHERWISE. C C DUE TO THE FACTS THAT FLOATING POINT ZEROS ARE ALWAYS TREATED AS C INTEGERS, DOUBLE PRECISION CAN NOT BE DETECTED, AND OCCATIONALLY C AUTOMATIC DATA TYPE CHECKING MAY ERR, THE USER CAN OVERRIDE THE C OUTPUT DATA FORMAT BY DEFINING TI ARRAYS WITH THE FOLLOWING C RULES - C C EACH TI PARAMETER MUST HOLD 9 DIGITS, FROM LEFT TO RIGHT. C ZEROS-FILLED IF NECCESSARY. C TOTALLY THERE ARE 10 TI PARAMETERS. THEREFORE, THERE ARE C UP TO 90 CONTINUOUS DIGITS CAN BE USED. C (DEFAULT IS 90 ZEROS) C EACH DIGIT HOLDS VALUE FROM 0 THROUGH 9, VALUE C 0 MEANS DATA TYPE WILL BE SET AUTOMATICALLY BY TABLE5 C 1 MEANS DATA TYPE IS INTEGER C 2 MEANS DATA TYPE IS REAL, SINGLE PRECISION C 3 MEANS DATA TYPE IS BCD WORD (4 BYTES PER WORD) C 4 MEANS DATA TYPE IS REAL, DOUGLE PRECISION C 5-9 HAS SPECIAL MEANING. IT MEANS THERE ARE (5-9) VALUES C OF DATA TYPE DEFINED BY THE NEXT VALUE FOLLOWING. C EACH DIGIT IN TI, EXCEPT 5 THRU 9, DEFINES THE CORRESPODING C DATA TYPE IN THE TABLE BLOCK DATA, STARTING FROM THE C FIRST DATA WORD AND CONTINUE TO THE LAST. C IF TI(1) IS NEGATIVE, INTERMEDIATE STEPS IN FORMAT GENERATION C ARE PRINTED OUT. C E.G. C TABLE- 3 4 3.4 5.0E-3 TESTING .6D+7 9 G 3.2 8 0. 0 4 C 12 13 14 15 28 61 88 14 44 .7D+7 C TI - TI(1) =-112233413, TI(2) = 212516140 OR C TI(1) = 604000025, TI(2) = 060400000 (7TH AND 24 WORDS ARE C D.P. AND 12TH WORD IS REAL) C NOTE - 2 BCD WORDS IN 'TESTING', C ALL OTHERS ARE 1 COMPUTER WORD PER DATA ENTRY C TI(2), THE LAST TI USED HERE, MUST FILL UP WITH ZEROS TO C MAKE UP A 9-DIGIT WORD. C C TO READ THE OUTPUT FILE, USE TABLE-V SUBROUTINE AS REFERENCE C C NOTE - THE FORMATTED OUTPUT FILE CAN BE VIEWED AND/OR EDITTED BY C THE SYSTEM EDITOR C C WRITTEN BY G.CHAN/UNISYS, 1989 C C $MIXED_FORMATS C IMPLICIT INTEGER (A-Z) LOGICAL DEBUG,TION,DP INTEGER TRL(7),NAME(2),SUB(2),FN(3,1) REAL TEMP(2),RZ(1) DOUBLE PRECISION DTEMP CHARACTER*10 FMT(30),FMTI,FMTR,FMTD,FMTB,FMTX,LPREN,RPREN, 1 LPRI10 CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /SYSTEM/ SYSBUF,NOUT COMMON /BLANK / DUMMY(4),P4,TI(1) COMMON /ZZZZZZ/ Z(1) CWKBI 7/94 COMMON /MACHIN/ MACH EQUIVALENCE (Z(1),RZ(1)) , (DTEMP,TEMP(1)) DATA SUB / 4HTABL,4HE5 /, DEBUG / .FALSE. / DATA FMTI, FMTR / '1HI,I9,' , '1HR,E14.7,' / DATA FMTB, FMTD / '1H/,A4,' , '1HD,D14.7,' / DATA FMTX, LPRI10 / '1HX,4X,' , '(I10,' / DATA LPREN, RPREN, DEL / '(', '1X)', 4H),.) / DATA END, TBLE / 4H*END, 4HTBLE / C DEBUG = .FALSE. IF (TI(1) .LT. 0) DEBUG =.TRUE. TI(1) = IABS(TI(1)) TION = .FALSE. DO 10 L = 1,10 IF (TI(L) .NE. 0) TION=.TRUE. 10 CONTINUE IF (DEBUG) CALL PAGE1 IF (DEBUG) WRITE (NOUT,20) 20 FORMAT (///5X,'*** IN TABLE5/OUTPUT5 ***') KORE = IBUF - 2 C C OPEN INPUT FILE, AND READ FILE NAME IN THE FILE HEADER RECORD C WRITE ONE HEADER RECORD, IN OUTPT5 MATRIX HEADER FORMAT, TO C OUTPUT TAPE C CALL OPEN (*810,IN,Z(IBUF),0) CALL READ (*820,*830,IN,NAME,2,1,KK) IF (DEBUG) WRITE (NOUT,30) NAME 30 FORMAT (/5X,'PROCESSING...',2A4,/) I = 0 J = 1 TRL(7) = 0 IF (P4 .EQ. 0) WRITE (OUT ) I,J,J,DTEMP,(TRL(K),K=2,7),NAME IF (P4 .EQ. 1) WRITE (OUT,40) I,J,J,DTEMP,(TRL(K),K=2,7),NAME 40 FORMAT (3I8,/,D26.17,6I8,2A4) C 50 IF (P4 .EQ. 1) GO TO 100 C C UNFORMATED WRITE C J = 2 60 CALL READ (*700,*70,IN,Z(J),KORE,1,KK) J = 0 GO TO 840 70 IF (J .EQ. 1) GO TO 80 J = 1 Z(1) = KK 80 CALL WRITE (OUT,Z(1),KK,1) GO TO 60 C C FORMATTED WRITE C 100 J = 2 CALL READ (*700,*110,IN,Z(J),KORE,1,KK) J = 0 GO TO 840 C C SET UP USER DIRECTED TI TABLE IN Z(KK2) THRU Z(KK3) C 110 IF (DEBUG) WRITE (NOUT,120) (TI(J),J=1,10) 120 FORMAT (//5X,'TI PARAMETERS =',/4X,10(1X,I9)) KK1 = KK + 2 KK2 = KK1 + KK KK3 = KK2 + KK J = KORE - KK3 - 9 IF (J .LT. 0) GO TO 840 DO 140 K = KK1,KK3 140 Z(K) = 0 IF (.NOT.TION) GO TO 260 K = KK1 - 9 LL = 0 L = -1 150 IF (L .GE. 0) GO TO 170 L = 8 LL = LL + 1 K = K + 9 IF (K.GE.KK2 .OR. LL.GT.10) GO TO 200 TIL= TI(LL) IF (TIL .GT. 0) GO TO 170 L = -1 GO TO 150 170 TIL10 = TIL/10 Z(K+L)= TIL - TIL10*10 TIL = TIL10 L = L - 1 GO TO 150 C 200 K = KK2 - 1 IF (DEBUG) WRITE (NOUT,210) (Z(J),J=KK1,K) 210 FORMAT (//5X,'DIGITIZED TI PARAMTERS =',/,(3X,25I3)) I = KK2 DO 240 J = KK1,K JZ = Z(J) IF (JZ .LE. 4) GO TO 230 JI = JZ + I - 1 JJ = Z(J+1) IF (JJ .GT. 4) GO TO 860 DO 220 L = I,JI 220 Z(L) = JJ I = JI + 1 Z(J+1) = -1 GO TO 240 230 IF (JZ .EQ. -1) GO TO 240 Z(I) = JZ I = I + 1 240 CONTINUE I = KK3 - 1 IF (DEBUG) WRITE (NOUT,250) (Z(J),J=KK2,I) 250 FORMAT (//,5X,'DECODED TI PARAMETERS =',/,(3X,25I3)) C C COUNT HOW MANY 5-BYTE WORDS TO BE GENERATED, FILLERS INCLUDED C 260 KK2 = KK2 - 1 K = KK1 PJJ = 1 L5 = 10 C IF (DEBUG) CALL PAGE1 DO 400 I = 1,KK K = K + 1 PJJ = JJ IF (TION) GO TO 290 280 JJ = NUMTYP(Z(I+1)) + 1 GO TO 300 290 JJ = Z(KK2+I) + 1 IF (JJ .EQ. 1) GO TO 280 300 GO TO (310,320,340,380,340), JJ C 0, I, R, B, D C C ZERO C 310 JJ = 3 IF (PJJ.EQ.3 .OR. PJJ.EQ.5) GO TO 340 JJ = 2 C C INTEGER C 320 IF (MOD(L5,130) .LE. 120) GO TO 330 Z(K)= 6 K = K + 1 L5 = L5 + 5 330 Z(K)= JJ L5 = L5 + 10 GO TO 400 C C REAL, S.P. OR D.P. C 340 J = MOD(L5,130) IF (J-120) 370,350,360 350 L5 = L5 + 5 Z(K)= 6 K = K + 1 360 L5 = L5 + 5 Z(K)= 6 K = K + 1 370 Z(K)= JJ L5 = L5 + 15 GO TO 400 C C BCD C 380 Z(K)= JJ L5 = L5 + 5 C 400 CONTINUE C C NOW WE FORM THE FORMAT C DP = .FALSE. KK = K Z(1) = (L5-10)/5 FMT(1) = LPRI10 C L5 = 10 L = 1 I = 1 IB = 1 K = KK1 500 IF (L5 .LT. 130) GO TO 540 L = L + 1 FMT(L) = RPREN IF (.NOT.DEBUG) GO TO 520 CALL PAGE2 (-5) WRITE (NOUT,510) (FMT(J),J=1,L) 510 FORMAT (/,' DYNAMICALLY GENERATED FORMAT =',/,(1X,7A10)) CWKBD 7/94 520 WRITE (OUT,FMT,ERR=530) (RZ(J),J=IB,I) CWKBNB 7/94 520 IF ( MACH .NE. 5 .AND. MACH .NE. 2 ) GO TO 525 WRITE (OUT,FMT,ERR=530) (RZ(J),J=IB,I) GO TO 530 525 ISAVE = NOUT NOUT = OUT CALL FORWRT ( FMT, RZ(IB), I-IB+1) NOUT = ISAVE CWKBNE 7/94 530 IB = I + 1 L5 = 0 L = 1 FMT(1) = LPREN C 540 K = K + 1 IF (K .GT. KK) GO TO 650 I = I + 1 L = L + 1 J = Z(K) GO TO (600,600,610,620,630,640), J C 0, I, R, B, D, FL 600 FMT(L) = FMTI L5 = L5 + 10 GO TO 500 C C S.P. REAL NUMBERS C 610 FMT(L) = FMTR L5 = L5 + 15 GO TO 500 C 620 FMT(L) = FMTB L5 = L5 + 5 GO TO 500 C C D.P. NUMBERS C 630 FMT(L) = FMTD L5 = L5 + 15 TEMP(1)= RZ(L ) TEMP(2)= RZ(L+1) Z(L ) = SNGL(DTEMP) Z(L+1) = DEL DP =.TRUE. GO TO 500 C C FILLER C 640 FMT(L) = FMTX L5 = L5 + 5 I = I - 1 GO TO 500 C 650 L = L + 1 FMT(L) = RPREN IF (.NOT.DEBUG) GO TO 660 CALL PAGE2 (-5) WRITE (NOUT,510) (FMT(J),J=1,L) C C REMOVED SECOND HALVES OF ALL D.P. NUMBERS IF THEY ARE PRESENT C THEN WRITE THE ARRAY OUT WITH THE GENERATED FORMAT C 660 IF (.NOT.DP) GO TO 680 K = IB - 1 DO 670 J = IB,I IF (Z(J) .EQ. DEL) GO TO 670 K = K + 1 Z(K)= Z(J) 670 CONTINUE I = K CWKBD 7/94 680 WRITE (OUT,FMT,ERR=690) (RZ(J),J=IB,I) CWKBNB 7/94 680 IF ( MACH .NE. 2 .AND. MACH .NE. 5 ) GO TO 685 WRITE (OUT,FMT,ERR=690) (RZ(J),J=IB,I) GO TO 690 685 ISAVE = NOUT NOUT = OUT CALL FORWRT ( FMT, RZ(IB), I-IB+1) NOUT = ISAVE CWKBNE 7/94 C C RETURN TO PROCESS ANOTHER RECORD ON INPUT FILE C 690 DEBUG = .FALSE. GO TO 50 C C ALL DONE. SET WRT FLAG, UPDATE LFN AND FN, AND CLOSE INPUT FILE C AND ECHO USER MESSAGES C 700 WRT = 1 IF (LFN .LT. 0) LFN = 0 LFN = LFN + 1 FN(1,LFN) = NAME(1) FN(2,LFN) = NAME(2) FN(3,LFN) = TBLE CALL CLOSE (IN,1) IF (P4 .EQ. 1) GO TO 730 CALL PAGE2 (-7) WRITE (OUT) I,END WRITE (NOUT,710) UIM,NAME 710 FORMAT (A29,' FROM OUTPUT5 MODULE, SUCCESSFUL TABLE-DATA ', 1 'TRANSFERED FROM INPUT FILE ',2A4,' TO OUTPUT TAPE', //5X, 2 'A HEADER RECORD WAS FIRST WRITTEN, THEN FOLLOWED BY') WRITE (NOUT,720) 720 FORMAT (5X,'FORTRAN UNFORMATTED (BINARY) WRITE') GO TO 950 730 I = 1 WRITE (OUT,740) I,END 740 FORMAT (1X,I9,1X,A4) CALL PAGE2 (-13) WRITE (NOUT,710) UIM,NAME WRITE (NOUT,750) 750 FORMAT (5X,'FORTRAN FORMATTED WRITE, 130 CHARACTERS PER LINE -', 1 /10X,'(''/'',A4 FOR BCD WORD ( 5 BYTES)', 2 /11X,'''I'',I9 FOR INTEGER (10 BYTES)', 3 /11X,'''R'',E14.7 FOR S.P. REAL (15 BYTES)', 4 /11X,'''D'',D14.7 FOR D.P. NUMBER (15 BYTES)', 5 /11X,'''X '', FOR FILLER ( 5 BYTES)') GO TO 950 C C ERROR C 810 J = 1 GO TO 850 820 J = 2 GO TO 850 830 J = 3 GO TO 850 840 IN= J J = 8 850 CALL MESAGE (J,IN,SUB) GO TO 880 860 WRITE (NOUT,870) UWM,JI,JJ 870 FORMAT (A25,', OUTPTT5 MODULE PARAMETER ERROR. WRONG INDEX ', 1 'VALUES',2I3) 880 CALL FNAME (IN,NAME) WRITE (NOUT,890) NAME 890 FORMAT (/5X,'TABLE DATA BLOCK ',2A4,' WAS NOT COPIED TO OUTPUT', 1 ' TAPE') 900 CALL FWDREC (*950,IN) GO TO 900 C 950 RETURN 1 END ================================================ FILE: mis/tablev.f ================================================ SUBROUTINE TABLE V (*,IN,LL,TRL,NAME,P4,IBUF,Z5) C C TABLE-V IS CALLED ONLY BY INPUT5 TO GENERATE A GINO TABLE C DATA BLOCK IN 'OUT' FROM AN INPUT FILE 'IN' - A REVERSE PROCESS C OF TABLE-5. C THE INPUT FILE WAS FORTRAN WRITTEN, FORMATTED OR UNFORMATTED C C IN = INPUT FILE, INTEGERS C LL = (200+LL) IS THE OUTPUT FILE, INTEGER C TRL = AN ARRAY OF 7 WORDS FOR TRAILER C NAME = ORIGINAL FILE NAME FROM INPUT FILE, 2 BCD WORDS, PLUS 1 C P4 = 0, INPUT FILE WAS WRITTEN UNFORMATTED, BINARY, INTEGER C = 1, INPUT FILE WAS WRITTEN FORMATTED, ASCII, INTEGER C IBUF = OPEN CORE AND GINO BUFFER POINTER, INTEGER C LOGICAL DEBUG INTEGER SYSBUF,P4,Z,TRL(7),OUT,NAME(3),NAMEX(2),SUB(2), 1 END,TBLE,FUF,FU(2) REAL RZ(1),Z4(2) DOUBLE PRECISION DZ CHARACTER*1 Z1,I1,R1,B1,D1,F1 CHARACTER*5 Z5(1),Z5L,END5 CHARACTER*10 Z10 CHARACTER*15 Z15 COMMON /SYSTEM/ SYSBUF,NOUT COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (Z1,Z5L), (Z(1),RZ(1)), (DZ,Z4(1)) DATA I1,R1, B1,D1,F1 / 'I', 'R', '/', 'D', 'X' / DATA FU, END,END5 / 2H ,2HUN, 4H*END, ' *END' / DATA SUB, TBLE / 4HTABL,4HEV , 4HTBLE / DATA DEBUG / .FALSE. / C IF (DEBUG) WRITE (NOUT,10) 10 FORMAT (///,' *** IN TABLE-V, DEBUG ***') KORE = IBUF-1 KORE9 = (KORE/9)*9 OUT = 200+LL LL = LL+1 KOUNT = 0 C C OPEN GINO OUTPUT FILE AND WRITE A FILE HEADER C CALL OPEN (*180,OUT,Z(IBUF),1) CALL FNAME (OUT,NAMEX) CALL WRITE (OUT,NAMEX,2,1) IF (DEBUG) WRITE (NOUT,20) NAMEX 20 FORMAT (/5X,'GENERATING...',2A4,/) NAME(3) = TBLE IF (P4 .EQ. 1) GO TO 40 C C UNFORMATED READ C 30 READ (IN,ERR=150,END=130) LN,(Z(J),J=1,LN) IF (LN .GT. KORE) GO TO 170 IF (LN.EQ.1 .AND. Z(1).EQ.END) GO TO 130 CALL WRITE (OUT,Z(1),LN,1) KOUNT = KOUNT+1 GO TO 30 C C FORMATTED READ C 40 READ (IN,50,ERR=150,END=130) LN,(Z5(J),J=1,LN) 50 FORMAT (I10,24A5,/,(26A5)) IF (LN .GT. KORE) GO TO 170 IF (LN.EQ.1 .AND. Z5(1).EQ.END5) GO TO 130 IF (LN .LE. -1) GO TO 130 LB = (LN*5)/4+1 K = 0 L = 1 60 IF (L .GT. LN) GO TO 120 K = K+1 Z5L= Z5(L) IF (Z1 .EQ. I1) GO TO 90 IF (Z1 .EQ. R1) GO TO 100 IF (Z1 .EQ. B1) GO TO 70 IF (Z1 .EQ. F1) GO TO 80 IF (Z1 .EQ. D1) GO TO 110 WRITE (NOUT,65) Z5L 65 FORMAT (/,' SYSTEM ERROR/TABLEV @65 Z5L=',A5) GO TO 150 C C BCD C 70 READ (Z5L,75) Z(LB+K) 75 FORMAT (1X,A4) C C FILLER C 80 L = L+1 GO TO 60 C C INTEGER C 85 FORMAT (3A5) 90 WRITE (Z10,85) Z5(L),Z5(L+1) READ (Z10,95) Z(LB+K) 95 FORMAT (1X,I9) L = L+2 GO TO 60 C C REAL, SINGLE PRECISION C 100 WRITE (Z15, 85) Z5(L),Z5(L+1),Z5(L+2) READ (Z15,105) RZ(LB+K) 105 FORMAT (1X,E14.7) L = L+3 GO TO 60 C C REAL, DOUBLE PRECISION C 110 WRITE (Z15, 85) Z5(L),Z5(L+1),Z5(L+2) READ (Z15,115) DZ 115 FORMAT (1X,D14.7) RZ(LB+K ) = Z4(1) RZ(LB+K+1) = Z4(2) K = K+1 L = L+3 GO TO 60 C 120 IF (K .LE. 0) GO TO 40 CALL WRITE (OUT,Z(LB+1),K,1) KOUNT = KOUNT+1 GO TO 40 C C ALL DONE. C CLOSE OUTPUT GINO FILE AND WRITE TRAILER C 130 CALL CLOSE (OUT,1) IF (DEBUG) WRITE (NOUT,135) TRL(2),KOUNT 135 FORMAT (/,' DEBUG ECHO - OLD AND NEW COLUMN COUNTS =',2I5) TRL(1) = OUT TRL(2) = KOUNT CALL WRTTRL (TRL) FUF = FU(1) IF (P4 .EQ. 0) FUF = FU(2) WRITE (NOUT,140) FUF,NAMEX 140 FORMAT (/5X,'DATA TRANSFERED SUCCESSFULLY FROM ',A2,'FORMATTED ', 1 'TAPE TO GINO OUTPUT FILE ',2A4) GO TO 200 C C ERROR C 150 CALL CLOSE (OUT,1) WRITE (NOUT,160) NAMEX 160 FORMAT (//5X,'ERROR IN READING INPUT TAPE IN TABLEV. NO ',2A4, 1 /5X,'FILE GENERATED') GO TO 200 170 CALL MESAGE (8,0,SUB) GO TO 200 180 CALL MESAGE (1,OUT,SUB) C 200 RETURN 1 END ================================================ FILE: mis/tabpch.f ================================================ SUBROUTINE TABPCH C C THE TABPCH MODULE WILL PUNCH UP TO 5 TABLES INTO DTI CARDS C C DMAP CALL IS C C TABPCH IN1,IN2,IN3,IN4,IN5//P1,P2,P3,P4,P5 C C SINGLE FIELD CARDS WILL BE MADE UNLESS REAL NUMBERS ARE TO BE MADE C ALL REAL NUMBERS ARE ASSUMED TO BE SINGLE PRECISION. C C LAST REVISED, 3/93, BY G.CHAN/UNISYS C PUNCH KELM, MELM AND BELM IN D.P. IF THESE DATA BLOCKS ARE IN D.P. C C $MIXED_FORMATS C INTEGER SYSBUF ,IZ(10) ,IFNM(5) ,NAME(2) , 1 MCB(7) ,FILE ,TABNM(2) ,DTI(2) , 2 DTIS(2) ,IDATA(20) ,ENDREC(2) ,OUT , 3 IFORM(20) ,BLANK ,INT(2) ,IREAL(2) , 4 LL(4) ,INTD(2) ,PFORM(30) ,IBCD(2) , 5 SP(3) ,IBCDD(2) ,FORM(30,2),FORMS(30,2) REAL RDATA(20) DOUBLE PRECISION DZ(1) CHARACTER UFM*23 ,UWM*25 ,UIM*29 COMMON /XMSSG / UFM ,UWM ,UIM COMMON /MACHIN/ MACH COMMON /SYSTEM/ SYSBUF ,OUT ,KSYSTM(88),LPCH COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / N1(2,5) EQUIVALENCE (Z(1),IZ(1),DZ(1)), (IDATA(1),RDATA(1)) DATA BLANK / 1H / DATA DTI / 4HDTI , 1H / DATA DTIS / 4HDTI*, 1H / DATA ENDREC/ 4HENDR, 4HEC / DATA FORMS / 4H(2A4, 26*2H ,4H,1H+ ,4HA2,I, 4H5) , 4H(A1,, 1 4HA2,I ,4H5 ,24*2H ,4H,1H+, 4HA2,I, 4H5) / DATA IBCD / 4H,2A4, 1H / DATA IBCDD / 4H,2A4, 4H,8X / DATA IFNM / 101, 102, 103, 104, 105/ DATA INT / 4H,I8 , 1H / DATA INTD / 4H,I16, 1H / DATA IPLUS / 1H+ / DATA IREAL / 4H,E16, 4H.9 / DATA ISTAR / 1H* / DATA NAME / 4HTABP, 4HCH / DATA LL / 1, 1, 3, 2 / DATA NSP , SP / 3, 4HKELM, 4HMELM, 4HBELM / C NZ = KORSZ(Z) IBUF = NZ - SYSBUF + 1 NZ = IBUF - 1 ICRQ = 10 - NZ IF (NZ .LE. 10) GO TO 830 NREAD = NZ/2 - 2 NLIST = NREAD + 3 DO 10 J = 1,2 DO 10 I = 1,30 FORM(I,J) = FORMS(I,J) 10 CONTINUE C C FOR EACH TABLE DEFINED C NS = -1 DO 720 I = 1,5 MCB(1) = IFNM(I) CALL RDTRL (MCB) IF (MCB(1) .LE. 0) GO TO 720 C C TABLE EXISTS SET IT UP C FILE = IFNM(I) CALL OPEN (*800,FILE,IZ(IBUF),0) CALL FNAME (FILE,TABNM) IO = 0 KMB = 4 IF (MCB(5).EQ.1 .OR. MCB(5).EQ.3) GO TO 40 DO 20 J = 1,NSP IF (KMB.EQ.1 .OR. TABNM(1).NE.SP(J)) GO TO 20 KMB = 1 IO = 1 NREAD = NZ -1 20 CONTINUE IF (NS .NE. -1) GO TO 40 NS = 1 CALL PAGE1 WRITE (OUT,30) UWM 30 FORMAT (A25,', MODULE TABPCH ASSUMES ALL REAL DATA ARE IN S.P..', 1 ' D.P. DATA THEREFORE MAY BE PUNCHED ERRONEOUSLY') IF (MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.10 .OR. MACH.EQ.21) 1 WRITE (OUT,35) 35 FORMAT (4X,'(ALL INTEGERS EXCEEDING 16000 ARE PUNCHED AS REAL ', 1 'NUMBERS. ALL REAL NUMBERS OUTSIDE E-27 OR E+27 RANGE ', 2 'ARE PUNCHED AS INTEGERS)') C 40 CALL READ (*810,*820,FILE,IZ(1),-2,0,ILEN) IRECNO = 0 ICHR = N1(1,I) IZ(3) = 0 C C SET UP FIRST RECORD C IZ(1) = TABNM(1) IZ(2) = TABNM(2) IZ(4) = MCB(2) IZ(5) = MCB(3) IZ(6) = MCB(4) IZ(7) = MCB(5) IZ(8) = MCB(6) IZ(9) = MCB(7) CALL READ (*700,*50,FILE,IZ(10),NREAD,0,ILEN) ICRQ = NREAD GO TO 830 50 ILEN = ILEN + 11 60 IZ(ILEN-1) = ENDREC(1) IZ(ILEN ) = ENDREC(2) GO TO 90 C C BRING IN NEXT RECORD C 70 CALL READ (*700,*80,FILE,IZ(KMB),NREAD,IO,ILEN) ICRQ = NREAD GO TO 830 80 IF (KMB .EQ. 1) GO TO 600 IZ(3) = IZ(3) + 1 IF (ILEN .EQ. 0) GO TO 70 ILEN = ILEN + 5 GO TO 60 C C BUILD FORMAT VECTOR 1= INTEGER, 2 =BCD, 3=REAL C 90 JV = 3 DO 100 K = 1,ILEN M = NLIST + K - 1 J = NUMTYP(IZ(K)) IF (J.EQ.0 .AND. JV.NE.3) J = JV IZ(M) = LL(J+1) 100 JV = J C C MOVE DATA/FORMAT TO DATA AREA 8 FIELDS AT A TIME--SET D.F. FLAG C ID = 1 IF = NLIST IFRS = 1 C C HERE FOR EIGHT MORE WORDS C 110 IDF = 0 IDT = 1 IFT = 1 NF = 1 C C HERE FOR EACH FIELD C 120 IDATA(IDT) = IZ(ID) IFORM(IFT) = IZ(IF) IF (IFORM(IFT) .EQ. 3) IDF = 1 IF (IFORM(IFT) .NE. 2) GO TO 140 C C BCD IS TWO WORDS C IDATA(IDT+1) = IZ(ID+1) C C MAY BE FALSE BCD, CHECK FORMAT OF SECOND WORD ALSO C (SOME REAL NUMBER BIT PATTERNS LOOK LIKE BCD). C IF (IZ(IF+1) .EQ. 2) GO TO 130 C C SECOND WORD IS NOT BCD, ASSUME FIRST WORD IS REAL. C IDF = 1 IFORM(IFT) = 3 GO TO 140 130 IDT = IDT + 2 IFT = IFT + 1 ID = ID + 2 IF = IF + 2 GO TO 150 C C REAL OR INTEGER C 140 IDT = IDT + 1 IFT = IFT + 1 ID = ID + 1 IF = IF + 1 C C BUMP FIELD COUNTER C 150 NF = NF + 1 IF (NF .GT. 8) GO TO 160 IF (ID .LT. ILEN) GO TO 120 C C FILL WITH BLANKS C IDATA(IDT ) = BLANK IDATA(IDT+1) = BLANK IFORM(IFT ) = 2 GO TO 130 C C PUNCH OUT 8 FIELDS OF DATA C 160 IDT = 0 IF (IDF .NE. 0) GO TO 400 C C SINGLE FIELD CARD C NF = 1 170 M = 2*NF + 2 IF (IFORM(NF)-2) 180,200,210 C C INTEGER C 180 FORM(M ,IFRS) = INT(1) FORM(M+1,IFRS) = INT(2) C C GET NEXT ITEM C IDT = IDT + 1 190 NF = NF + 1 IF (NF .LE. 8) GO TO 170 GO TO 220 C C BCD C 200 FORM(M ,IFRS) = IBCD(1) FORM(M+1,IFRS) = IBCD(2) IDT = IDT + 2 GO TO 190 C C REAL NOT LEGAL C 210 IP1 = -37 GO TO 850 C C PUNCH OUT SINGLE CARD C 220 IF (IFRS .NE. 1) GO TO 270 DO 230 J = 1,30 PFORM(J) = FORM(J,1) 230 CONTINUE WRITE (LPCH,PFORM,ERR=240) DTI,(RDATA(M),M=1,IDT),ICHR,IRECNO 240 IRECNO = IRECNO + 1 IFRS = 2 DO 250 J = 1,30 250 FORM(J,1) = FORMS(J,1) 260 IF (ID .GE. ILEN) GO TO 70 GO TO 110 C C CONTINUATION CARD C 270 IRCNM1 = IRECNO - 1 DO 280 J = 1,30 PFORM(J) = FORM(J,2) 280 CONTINUE WRITE (LPCH,PFORM,ERR=290) IPLUS,ICHR,IRCNM1,(RDATA(M),M=1,IDT), 1 ICHR,IRECNO 290 IRECNO = IRECNO + 1 DO 300 J = 1,30 300 FORM(J,2) = FORMS(J,2) GO TO 260 C C DOUBLE FIELD CARDS C 400 NF = 1 IS = 1 IT = 4 IDT= 0 M = 2 410 M = M + 2 IF (IFORM(NF)-2) 420,450,460 C C INTEGER C 420 FORM(M ,IFRS) = INTD(1) FORM(M+1,IFRS) = INTD(2) 430 IDT = IDT + 1 440 NF = NF + 1 IF (M .LE. 8) GO TO 410 GO TO 470 C C BCD C 450 FORM(M ,IFRS) = IBCDD(1) FORM(M+1,IFRS) = IBCDD(2) IDT = IDT + 2 GO TO 440 C C REAL C 460 FORM(M ,IFRS) = IREAL(1) FORM(M+1,IFRS) = IREAL(2) GO TO 430 C C PUNCH OUT DOUBLE FIELD CARD C 470 IF (IFRS .NE. 1) GO TO 520 DO 480 J = 1,30 PFORM(J) = FORM(J,1) 480 CONTINUE WRITE (LPCH,PFORM,ERR=490) DTIS,(RDATA(M),M=IS,IDT),ICHR,IRECNO 490 IRECNO = IRECNO + 1 DO 500 J = 1,30 500 FORM(J,1) = FORMS(J,1) IFRS = 2 510 IT = 8 M = 2 IS = IDT + 1 GO TO 410 C C CONTINUATION CARD C 520 IRCNM1 = IRECNO - 1 DO 530 J = 1,30 PFORM(J) = FORM(J,2) 530 CONTINUE WRITE (LPCH,PFORM,ERR=540) ISTAR,ICHR,IRCNM1,(RDATA(M),M=IS,IDT), 1 ICHR,IRECNO 540 IRECNO = IRECNO + 1 DO 550 J = 1,30 550 FORM(J,2) = FORMS(J,2) IF (IT .EQ. 4) GO TO 510 GO TO 260 C C PUNCH KELM, MELM AND BELM IN D.P. C 600 IF (ILEN .EQ. 0) GO TO 70 ILEN = ILEN/2 JE = 0 610 JB = JE + 1 JE = JE + 4 IRCNM1 = IRECNO IRECNO = IRECNO + 1 IF (JE .GE. ILEN) GO TO 630 WRITE (LPCH,620,ERR=840) ICHR,IRCNM1,(DZ(J),J=JB,JE),ICHR,IRECNO 620 FORMAT (1H*,A2,I5,1P,4D16.9,1X,A2,I5) GO TO 610 630 JE = ILEN WRITE (LPCH,640,ERR=840) ICHR,IRCNM1,(DZ(J),J=JB,JE) 640 FORMAT (1H*,A2,I5,1P,4D16.9) GO TO 70 C C CLOSE OFF FILES C 700 CALL CLOSE (FILE,1) CALL PAGE2 (2) WRITE (OUT,710) UIM,TABNM,IRECNO 710 FORMAT (A29,' 4015, TABLE ',2A4,' WAS PUNCHED OUT,',I8,' CARDS.') 720 CONTINUE WRITE (LPCH,730) 730 FORMAT (1H , /,1H , /,1H ) RETURN C C ERROR MESAGES C 800 IP1 = -1 GO TO 850 810 IP1 =-2 GO TO 850 820 IP1 =-3 GO TO 850 830 IP1 = -8 FILE = ICRQ GO TO 850 840 IP1 = -37 C 850 CALL MESAGE (IP1,FILE,NAME) RETURN END ================================================ FILE: mis/tabprt.f ================================================ SUBROUTINE TABPRT (INAME1) C C WILL PRINT TABLE - USING 1P,E13.6, I13, OR (9X,A4) FORMAT C C ALL REAL NUMBERS ARE ASSUMED TO BE SINGLE PRECISION. C C REVISED 3/91 BY G.CHAN/UNISYS C THREE PARAMETERS ARE ADDED - OP CODE (OP), RECORDD NO. (IRC), AND C WORD NO. (IWD) C THE DEFAULTS OF THESE PARAMETERS ARE - BLANK, 3, AND 3 C OP CODE OPTIONS ARE 'PUREBCD', 'PUREFPN', AND 'PUREINT' C C LAST REVISED, 12/92, BY G.CHAN/UNISYS, TO INCLUDE 3 SPECIAL TABLES C - KELM, MELM, BELM - WHICH CONTAIN D.P. DATA WORDS IN 32- AND 36- C BIT WORD MACHINES. C C IF OP CODE IS 'PUREBCD', RECORDS IRC AND THEREAFTER, AND BEGINNING C FROM WORD IWD OF EACH RECORD TO THE END OF THAT RECORD, ARE ALL C BCD WORDS. C SIMILARILY FOR 'PUREINT' FOR INTEGER WORDS, AND 'PUREFPN' FOR C FLOATING POINT NUMBERS C C THESE PARAMETER OPTIONS ARE NECESSARY BECAUSE IF THE PRINTED DATA C IS NOT OF STRING TYPE, SUBROUTINE NUMTYP IS CALLED TO FIND OUT C WHAT TYPE OF DATA IN EACH DATA WORD. HOWEVER NUMTYP IS NOT 100 C PERCENT FOOL-PROOF. ONCE IN A FEW THOUSANDS NUMTYP CAN NOT C DISTINGUISH A REAL NUMBER FROM A BCD WORD C C $MIXED_FORMATS C LOGICAL DEC INTEGER BLOCK(20),TYPES(4),FORMAT,FORMS(2),JPOINT,ROW, 1 TYPE,FLAG,RECF,STRNBR,SYSBUF,OTPE,PURE,BCD,FPN, 2 OP,NAME(2),ICORE(133) REAL XNS(1),SP(3) DOUBLE PRECISION XND(1),DCORE(1) CHARACTER UFM*23,UWM*25 CWKBI CHARACTER*1 CORE1(2000) COMMON /XMSSG / UFM,UWM COMMON /BLANK / OP(2),IRC,IWD COMMON /MACHIN/ MACH COMMON /SYSTEM/ SYSBUF,OTPE,INX(6),NLPP,INX1(2),LINE,DUM(42),IPRC COMMON /OUTPUT/ HEAD1(96),HEAD2(96) COMMON /ZZZZZZ/ CORE(1) EQUIVALENCE (XND(1),CORE(1)) EQUIVALENCE (XNS(1),XND(1)), (ICORE(1),CORE(1),DCORE(1)), 1 (BLOCK(2), TYPE ), (BLOCK(3), FORMAT), 2 (BLOCK(4), ROW ), (BLOCK(5), JPOINT), 3 (BLOCK(6), NTERMS ), (BLOCK(8), FLAG ) CWKBI EQUIVALENCE (CORE, CORE1) DATA OPAREN, CPAREN,EC,EC1,EC2,INTGC,ALPHC,ALPHC1,CONT,UNED / 1 4H(1X , 4H) ,4H,1P,,4HE13.,2H6 ,4H,I13,4H,9X,,4HA4 , 2 4HCONT, 4HINUE / D/2HD /, NAME / 4HTABP,4HRT / DATA BLANK , TABL,EBB / 1H ,4HTABL, 1HE / DATA TYPES / 3HRSP,3HRDP,3HCSP ,3HCDP/, FORMS / 3HYES ,2HNO / DATA PURE , BCD,FPN,INT / 4HPURE, 4HBCD , 4HFPN , 4HINT / DATA NSP , SP / 3, 4HKELM, 4HMELM, 4HBELM / C NZ = KORSZ(CORE) - SYSBUF IF (NZ .LE. 0) CALL MESAGE (-8,-NZ,NAME) DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.10 .OR. MACH.EQ.21 INAME = INAME1 CALL OPEN (*190,INAME,CORE(NZ+1),0) DO 10 I = 1,96 10 HEAD2(I) = BLANK HEAD2(1) = TABL HEAD2(2) = EBB CALL FNAME (INAME,HEAD2(3)) CALL PAGE HEAD2(6) = CONT HEAD2(7) = UNED HEAD2(8) = D IF (IPRC.EQ.1 .OR. INAME.NE.101) GO TO 15 CALL PAGE2 (-2) WRITE (OTPE,13) UWM 13 FORMAT (A25,', TABPRT MODULE ASSUMES ALL REAL DATA ARE IN S.P.,', 1 ' D.P. DATA THEREFORE MAY BE PRINTED ERRONEOUSLY') 15 INUM = NZ/2 - 1 INUM = MAX0(INUM,133) NS = INUM + 1 LLEN = 0 CORE(1) = OPAREN IREC = 0 IRCD = 999999999 IXXX = 999999999 IF (OP(1).NE.PURE .OR. OP(2).EQ.BLANK) GO TO 20 IF (OP(2) .EQ. INT) JJ = 2 IF (OP(2) .EQ. FPN) JJ = 3 IF (OP(2) .EQ. BCD) JJ = 4 IF (IRC .GT. 0) IRCD = IRC IF (IWD .GT. 0) IXXX = IWD + INUM IF (IRC .LE. 0) IRCD = 3 IF (IWD .LE. 0) IXXX = 3 + INUM 20 CALL PAGE2 (-2) IF (DEC .AND. IREC.EQ.0) WRITE (OTPE,25) 25 FORMAT (4X,'(ALL INTEGERS EXCEEDING 16000 ARE PRINTED AS REAL ', 1 'NUMBERS. ALL REAL NUMBERS OUTSIDE E-27 OR E+27 RANGE ', 2 'ARE PRINTED AS INTEGERS)') WRITE (OTPE,30) IREC 30 FORMAT (/,' RECORD NO.',I6) IREC = IREC + 1 DO 35 I = 1,NSP IF (HEAD2(3) .NE. SP(I)) GO TO 35 ICORE(1) = INAME CALL RDTRL (ICORE) IF (ICORE(2) .EQ. 2) GO TO 60 35 CONTINUE IX = INUM NRED = 0 NP = INUM - 1 BLOCK(1) = INAME1 CALL RECTYP (BLOCK,RECF) IF (RECF .NE. 0) GO TO 200 JV = 4 40 IX = IX + 1 IOUT = 4 NRED = NRED + 1 NP = NP + 1 CALL READ (*170,*160,INAME,CORE(IX),1,0,IFLAG) C IF (IREC.GT.IRCD .OR. IX.GT.IXXX) GO TO 50 JJ = NUMTYP(ICORE(IX)) + 1 IF (JJ.EQ.1 .AND. JV.NE.4) JJ = JV JV = JJ 50 GO TO (140,140,100,120), JJ C C TABLES KELM, MELM, AND BELM - D.P. DATA ONLY C 60 CALL READ (*170,*170,INAME,CORE(1),2,1,IFLAG) WRITE (OTPE,65) ICORE(1),ICORE(2) 65 FORMAT (10X,2A4) 70 WRITE (OTPE,30) IREC CALL READ (*170,*80,INAME,CORE(1),NZ,1,IFLAG) CALL MESAGE (-8,0,NAME) 80 NP = IFLAG/2 JJ = (NP+9)/10 CALL PAGE2 (-JJ) IREC = IREC + 1 WRITE (OTPE,90,ERR=70) (DCORE(I),I=1,NP) 90 FORMAT (1X,1P,10D13.6) GO TO 70 C C REAL NUMBER (1) C 100 IOUT = 1 IF (LLEN+13 .GT. 132) GO TO 160 110 CORE(NRED+1) = EC CORE(NRED+2) = EC1 CORE(NRED+3) = EC2 NRED = NRED + 2 115 LLEN = LLEN + 13 GO TO 40 C C ALPHA (2) C 120 IOUT = 2 IF (LLEN+6 .GT. 132) GO TO 160 130 CORE(NRED+1) = ALPHC CORE(NRED+2) = ALPHC1 NRED = NRED + 1 GO TO 115 C C INTEGER (3) C 140 IOUT = 3 IF (LLEN+13 .GT. 132) GO TO 160 150 ICORE(NRED+1) = INTGC GO TO 115 C C BUFFER FULL- END RECORD AND PRINT THE LINE C C PREVIOUSLY, THE FORMAT IS IN CORE, WHICH IS DIMENSIONED TO 1. C THIS MAY NOT WORK IN SOME MACHINES. THE FORMAT IS NOW SPECIFIED IN C ICORE, WHICH IS DIMENSIONED TO 133. C (CORE AND ICORE ARE EQUIVALENT) C 160 CORE(NRED+1) = CPAREN IF (NRED .GE. 133) CALL MESAGE (-37,0,NAME) CALL PAGE2 (-1) IF (NRED .EQ. 1) GO TO 165 IF (MACH .NE. 2 .AND. MACH .NE. 5 ) GO TO 162 WRITE (OTPE,ICORE,ERR=164) (CORE(I),I=NS,NP) GO TO 164 162 CALL WRTFMT (ICORE(NS),NP-NS+1,CORE1) 164 CONTINUE LLEN = 0 NRED = 1 NP = INUM C C FINISH SEMI-PROCESSED WORD. C CORE(INUM+1) = CORE(IX) IX = INUM + 1 GO TO (110,130,150,20), IOUT C 165 WRITE (OTPE,166) 166 FORMAT (' THIS RECORD IS NULL.') C C GO TO 161 IS LOGICALLY UNSOUND. CHANG TO 164. (G.CHAN/UNISYS 1/93) C GO TO 161 CWKBR GO TO 164 GO TO 162 C 170 CALL CLOSE (INAME,1) CALL PAGE2 (-2) WRITE (OTPE,180) 180 FORMAT (//,' END OF FILE') C C PRINT TRAILER FOR FILE C 190 ICORE(1) = INAME CALL RDTRL (ICORE) CALL PAGE2 (-2) WRITE (OTPE,195) (ICORE(I),I=2,7) 195 FORMAT ('0TRAILER WORD1 =',I8,' WORD2 =',I8,' WORD3 =',I8, 1 ' WORD4 =',I8,' WORD5 =',I8,' WORD6 =',I8) RETURN C C C HERE IF STRING FORMATTED RECORD C 200 FLAG =-1 STRNBR = 1 CALL GETSTR (*250,BLOCK) IFORM = FORMAT + 1 205 CALL PAGE2 (-2) WRITE (OTPE,206) STRNBR,ROW,TYPES(TYPE),FORMS(IFORM),NTERMS 206 FORMAT ('0STRING NO.',I5,' ROW POSITION=',I5,' STRING TYPE=', 1 A3,' STRING TRAILERS=',A3,' NUMBER OF TERMS=',I5) STRNBR = STRNBR + 1 GO TO (210,220,230,240), TYPE C C PRINT REAL SINGLE PRECISION STRING C 210 NPOINT = JPOINT + NTERMS - 1 J = JPOINT 211 N = MIN0(J+7,NPOINT) CALL PAGE2 (-1) WRITE (OTPE,212) (XNS(I),I=J,N) 212 FORMAT (1X,8(1P,E15.7)) IF (N .EQ. NPOINT) GO TO 214 J = N + 1 GO TO 211 214 CALL ENDGET (BLOCK) CALL GETSTR (*20,BLOCK) GO TO 205 C C PRINT STRING IN REAL DOUBLE PRECISION C 220 NPOINT = JPOINT + NTERMS - 1 J = JPOINT 221 N = MIN0(J+7,NPOINT) CALL PAGE2 (-1) WRITE (OTPE,222) (XND(I),I=J,N) 222 FORMAT (1X,8(1P,D15.7)) IF (N .EQ. NPOINT) GO TO 224 J = N + 1 GO TO 221 224 CALL ENDGET (BLOCK) CALL GETSTR (*20,BLOCK) GO TO 205 C C PRINT STRING IN COMPLEX SINGLE PRECISION C 230 NPOINT = JPOINT + 2*NTERMS - 1 J = JPOINT 231 N = MIN0(J+7,NPOINT) CALL PAGE2 (-1) WRITE (OTPE,232) (XNS(I),I=J,N) 232 FORMAT (1X,4(1P,E14.7,1P,E15.7,2H//)) IF (N .EQ. NPOINT) GO TO 234 J = N + 1 GO TO 231 234 CALL ENDGET (BLOCK) CALL GETSTR (*20,BLOCK) GO TO 205 C C PRINT STRING IN COMPLEX DOUBLE PRECISION C 240 NPOINT = JPOINT + 2*NTERMS - 1 J = JPOINT 241 N = MIN0(J+7,NPOINT) CALL PAGE2 (-1) WRITE (OTPE,242) (XND(I),I=J,N) 242 FORMAT (1X,4(1P,D14.7,1P,D15.7,2H//)) IF (N .EQ. NPOINT) GO TO 244 J = N + 1 GO TO 241 244 CALL ENDGET (BLOCK) CALL GETSTR (*20,BLOCK) GO TO 205 C C PRINT NULL COLUMN C 250 CALL PAGE2 (-1) WRITE (OTPE,252) 252 FORMAT (5X,'NULL COLUMN') GO TO 20 C END ================================================ FILE: mis/tabpt.f ================================================ SUBROUTINE TABPT C C MODULE DRIVER TO PRINT TABLES C DIMENSION IN(5),ITRL(7) COMMON /BLANK/ OP(2),IRC,IWD DATA IN / 101,102,103,104,105 /, BLANK / 4H / C DO 10 I = 1,5 ITRL(1) = IN(I) CALL RDTRL (ITRL(1)) IF (ITRL(1) .GT. 0) CALL TABPRT (IN(I)) 10 CONTINUE OP(1) = BLANK OP(2) = BLANK IRC = 0 IWD = 0 RETURN END ================================================ FILE: mis/tapbit.f ================================================ LOGICAL FUNCTION TAPBIT (FILE) C EXTERNAL ANDF INTEGER FIST,XFIAT,FIAT,FILE,ANDF,NAM(2) COMMON /XXFIAT/ XFIAT(1) 1 /XPFIST/ NPFIST 2 /XFIST / NFIST,LFIST,FIST(1) 3 /XFIAT / MFIAT,NFIAT,LFIAT,FIAT(1) COMMON /SYSTEM/ IB(45) COMMON /TWO / ITWO(32) DATA NAM / 4HTAPB,4HIT / C TAPBIT = .TRUE. DO 10 J = 1,NPFIST IF (FIST(2*J-1) .EQ. FILE) GO TO 20 10 CONTINUE NPF1 = NPFIST + 1 DO 15 J = NPF1,LFIST IF (FIST(2*J-1) .EQ. FILE) GO TO 30 15 CONTINUE CALL MESAGE (-21,FILE,NAM) C 20 J = -FIST(2*J) IF (ANDF(ITWO(32-J),IB(45)) .NE. 0) RETURN IF (ANDF(XFIAT(J+1),32768) .EQ. 0) TAPBIT = .FALSE. RETURN C 30 J = FIST(2*J) IF (ANDF(FIAT(J+1),32768) .EQ. 0) TAPBIT = .FALSE. RETURN END ================================================ FILE: mis/termsd.f ================================================ SUBROUTINE TERMSD (NNODE,GPTH,EPNORM,EGPDT,IORDER,MMN,BTERMS) C C DOUBLE PRECISION ROUTINE TO CALCULATE B-MATRIX TERMS C FOR ELEMENTS QUAD4, QUAD8 AND TRIA6. C C THE INPUT FLAG LETS THE SUBROUTINE SWITCH BETWEEN QUAD4, C QUAD8 AND TRIA6 VERSIONS C C ELEMENT TYPE FLAG (LTYPFL) = 1 FOR QUAD4, C = 2 FOR TRIA6 (NOT AVAILABLE), C = 3 FOR QUAD8 (NOT AVAILABLE). C C THE OUTPUT CONSISTS OF THE DETERMINANT OF THE JACOBIAN C (DETJ), SHAPE FUNCTIONS AND THEIR DERIVATIVES. THE OUTPUT C PARAMETER, BADJAC, IS AN INTERNAL LOGICAL FLAG TO THE CALLING C ROUTINE INDICATING THAT THE JACOBIAN IS NOT CORRECT. C PART OF THE INPUT IS PASSED TO THIS SUBROUTINE THROUGH THE C INTERNAL COMMON BLOCK /COMJAC/. C LOGICAL BADJAC INTEGER MMN(1),LTYPFL,IORDER(1),INDEX(3,3) REAL EGPDT(4,1),EPNORM(4,1) DOUBLE PRECISION XI,ETA,ZETA,DETJ,SHP(8),JACOB(3,3),DSHPX(8), 1 DSHPE(8),DSHP(16),TSHP(8),TDSHP(16),BTERMS(1), 2 DUM,TEMP,EPS,TIE(9),TJ(3,3),VN(3),CJAC,GPTH(1), 3 TH,GRIDC(3,8) COMMON /COMJAC/ XI,ETA,ZETA,DETJ,BADJAC,LTYPFL COMMON /CJACOB/ CJAC(19) EQUIVALENCE (DSHPX(1),DSHP(1)), (DSHPE(1),DSHP(9) ) EQUIVALENCE (VN(1) ,CJAC(8)), (TIE(1) ,CJAC(11)) EQUIVALENCE (TH ,CJAC(1)) C EPS = 1.0D-15 BADJAC = .FALSE. C GO TO (10,30,20), LTYPFL C C QUAD4 VERSION C 10 NGP = 4 CALL Q4SHPD (XI,ETA,SHP,DSHP) GO TO 40 C C QUAD8 VERSION C 20 NGP = 8 GO TO 40 C C TRIA6 VERSION C 30 NGP = 6 C 40 DO 50 I = 1,NGP TSHP (I ) = SHP(I) TDSHP(I ) = DSHP(I) 50 TDSHP(I+8) = DSHP(I+NGP) DO 60 I = 1,NGP IO = IORDER(I) SHP (I ) = TSHP(IO) DSHP(I ) = TDSHP(IO) 60 DSHP(I+8) = TDSHP(IO+8) C TH = 0.0D0 DO 70 I = 1,NNODE TH = TH + GPTH(I)*SHP(I) DO 70 J = 1,3 J1 = J + 1 GRIDC(J,I) = EGPDT(J1,I) + ZETA*GPTH(I)*EPNORM(J1,I)*0.5D0 70 CONTINUE C DO 80 I = 1,2 II = (I-1)*8 DO 80 J = 1,3 TJ(I,J) = 0.0D0 DO 80 K = 1,NNODE TJ(I,J) = TJ(I,J) + DSHP(K+II)*GRIDC(J,K) 80 CONTINUE C DO 90 I = 1,3 TJ(3,I) = 0.0D0 DO 90 J = 1,NNODE 90 TJ(3,I) = TJ(3,I) + 0.5D0*GPTH(J)*SHP(J)*EPNORM(I+1,J) C DO 100 I = 1,3 DO 100 J = 1,3 IF (DABS(TJ(I,J)) .LT. EPS) TJ(I,J) = 0.0D0 100 CONTINUE C C SET UP THE TRANSFORMATION FROM THIS INTEGRATION POINT C.S. C TO THE ELEMENT C.S. TIE C VN(1) = TJ(1,2)*TJ(2,3) - TJ(2,2)*TJ(1,3) VN(2) = TJ(2,1)*TJ(1,3) - TJ(1,1)*TJ(2,3) VN(3) = TJ(1,1)*TJ(2,2) - TJ(2,1)*TJ(1,2) C TEMP = DSQRT(VN(1)*VN(1) + VN(2)*VN(2) + VN(3)*VN(3)) C TIE(7) = VN(1)/TEMP TIE(8) = VN(2)/TEMP TIE(9) = VN(3)/TEMP C TEMP = DSQRT(TIE(8)*TIE(8) + TIE(9)*TIE(9)) C TIE(1) = TIE(9)/TEMP TIE(2) = 0.0D0 TIE(3) =-TIE(7)/TEMP C TIE(4) = TIE(8)*TIE(3) TIE(5) = TEMP TIE(6) =-TIE(1)*TIE(8) C CALL INVERD (3,TJ,3,DUM,0,DETJ,ISING,INDEX) C C C NOTE - THE INVERSE OF JACOBIAN HAS BEEN STORED IN TJ C UPON RETURN FROM INVERD. C IF (ISING.EQ.1 .AND. DETJ.GT.0.0D0) GO TO 110 BADJAC = .TRUE. GO TO 150 C 110 CONTINUE C DO 120 I = 1,3 II = (I-1)*3 DO 120 J = 1,3 JACOB(I,J) = 0.0D0 DO 120 K = 1,3 IK = II + K 120 JACOB(I,J) = JACOB(I,J) + TIE(IK)*TJ(K,J) C C MULTIPLY THE INVERSE OF THE JACOBIAN BY THE TRANSPOSE C OF THE ARRAY CONTAINING DERIVATIVES OF THE SHAPE FUNCTIONS C TO GET THE TERMS USED IN THE ASSEMBLY OF THE B MATRIX. C NOTE THAT THE LAST ROW CONTAINS THE SHAPE FUNCTION VALUES. C NODE3 = NNODE*3 DO 130 I = 1,NNODE 130 BTERMS(NODE3+I) = SHP(I)*JACOB(3,3) C DO 140 I = 1,3 II = (I-1)*NNODE DO 140 J = 1,NNODE IJ = II + J BTERMS(IJ) = 0.0D0 DO 140 K = 1,2 IK = (K-1)*8 140 BTERMS(IJ) = BTERMS(IJ) + JACOB(I,K)*DSHP(IK+J) 150 RETURN END ================================================ FILE: mis/termss.f ================================================ SUBROUTINE TERMSS (NNODE,GPTH,EPNORM,EGPDT,IORDER,MMN,BTERMS) C C SINGLE PRECISION ROUTINE TO CALCULATE B-MATRIX TERMS C FOR ELEMENTS QUAD4, QUAD8 AND TRIA6. C C THE INPUT FLAG LETS THE SUBROUTINE SWITCH BETWEEN QUAD4, C QUAD8 AND TRIA6 VERSIONS C C ELEMENT TYPE FLAG (LTYPFL) = 1 FOR QUAD4, C = 2 FOR TRIA6 (NOT AVAILABLE), C = 3 FOR QUAD8 (NOT AVAILABLE). C C THE OUTPUT CONSISTS OF THE DETERMINANT OF THE JACOBIAN C (DETJ), SHAPE FUNCTIONS AND THEIR DERIVATIVES. THE OUTPUT C PARAMETER, BADJAC, IS AN INTERNAL LOGICAL FLAG TO THE CALLING C ROUTINE INDICATING THAT THE JACOBIAN IS NOT CORRECT. C PART OF THE INPUT IS PASSED TO THIS SUBROUTINE THROUGH THE C INTERNAL COMMON BLOCK /COMJAC/. C LOGICAL BADJAC INTEGER MMN(1),LTYPFL,IORDER(1),INDEX(3,3) REAL EGPDT(4,1),EPNORM(4,1) REAL XI,ETA,ZETA,DETJ,SHP(8),JACOB(3,3),DSHPX(8), 1 DSHPE(8),DSHP(16),TSHP(8),TDSHP(16),BTERMS(1), 2 DUM,TEMP,EPS,TIE(9),TJ(3,3),VN(3),CJAC,GPTH(1), 3 TH,GRIDC(3,8) COMMON /COMJAC/ XI,ETA,ZETA,DETJ,BADJAC,LTYPFL COMMON /CJACOB/ CJAC(19) EQUIVALENCE (DSHPX(1),DSHP(1)), (DSHPE(1),DSHP(9) ) EQUIVALENCE (VN(1) ,CJAC(8)), (TIE(1) ,CJAC(11)) EQUIVALENCE (TH ,CJAC(1)) C EPS = 1.0E-15 BADJAC = .FALSE. C GO TO (10,30,20), LTYPFL C C QUAD4 VERSION C 10 NGP = 4 CALL Q4SHPS (XI,ETA,SHP,DSHP) GO TO 40 C C QUAD8 VERSION C 20 NGP = 8 GO TO 40 C C TRIA6 VERSION C 30 NGP = 6 C 40 DO 50 I = 1,NGP TSHP (I ) = SHP(I) TDSHP(I ) = DSHP(I) 50 TDSHP(I+8) = DSHP(I+NGP) DO 60 I = 1,NGP IO = IORDER(I) SHP (I ) = TSHP(IO) DSHP(I ) = TDSHP(IO) 60 DSHP(I+8) = TDSHP(IO+8) C TH = 0.0 DO 70 I = 1,NNODE TH = TH + GPTH(I)*SHP(I) DO 70 J = 1,3 J1 = J + 1 GRIDC(J,I) = EGPDT(J1,I) + ZETA*GPTH(I)*EPNORM(J1,I)*0.5 70 CONTINUE C DO 80 I = 1,2 II = (I-1)*8 DO 80 J = 1,3 TJ(I,J) = 0.0 DO 80 K = 1,NNODE TJ(I,J) = TJ(I,J) + DSHP(K+II)*GRIDC(J,K) 80 CONTINUE C DO 90 I = 1,3 TJ(3,I) = 0.0 DO 90 J = 1,NNODE 90 TJ(3,I) = TJ(3,I) + 0.5*GPTH(J)*SHP(J)*EPNORM(I+1,J) C DO 100 I = 1,3 DO 100 J = 1,3 IF (ABS(TJ(I,J)) .LT. EPS) TJ(I,J) = 0.0 100 CONTINUE C C SET UP THE TRANSFORMATION FROM THIS INTEGRATION POINT C.S. C TO THE ELEMENT C.S. TIE C VN(1) = TJ(1,2)*TJ(2,3) - TJ(2,2)*TJ(1,3) VN(2) = TJ(2,1)*TJ(1,3) - TJ(1,1)*TJ(2,3) VN(3) = TJ(1,1)*TJ(2,2) - TJ(2,1)*TJ(1,2) C TEMP = SQRT(VN(1)*VN(1) + VN(2)*VN(2) + VN(3)*VN(3)) C TIE(7) = VN(1)/TEMP TIE(8) = VN(2)/TEMP TIE(9) = VN(3)/TEMP C TEMP = SQRT(TIE(8)*TIE(8) + TIE(9)*TIE(9)) C TIE(1) = TIE(9)/TEMP TIE(2) = 0.0 TIE(3) =-TIE(7)/TEMP C TIE(4) = TIE(8)*TIE(3) TIE(5) = TEMP TIE(6) =-TIE(1)*TIE(8) C CALL INVERS (3,TJ,3,DUM,0,DETJ,ISING,INDEX) C C C NOTE - THE INVERSE OF JACOBIAN HAS BEEN STORED IN TJ C UPON RETURN FROM INVERS. C IF (ISING.EQ.1 .AND. DETJ.GT.0.0) GO TO 110 BADJAC = .TRUE. GO TO 150 C 110 CONTINUE C DO 120 I = 1,3 II = (I-1)*3 DO 120 J = 1,3 JACOB(I,J) = 0.0 DO 120 K = 1,3 IK = II + K 120 JACOB(I,J) = JACOB(I,J) + TIE(IK)*TJ(K,J) C C MULTIPLY THE INVERSE OF THE JACOBIAN BY THE TRANSPOSE C OF THE ARRAY CONTAINING DERIVATIVES OF THE SHAPE FUNCTIONS C TO GET THE TERMS USED IN THE ASSEMBLY OF THE B MATRIX. C NOTE THAT THE LAST ROW CONTAINS THE SHAPE FUNCTION VALUES. C NODE3 = NNODE*3 DO 130 I = 1,NNODE 130 BTERMS(NODE3+I) = SHP(I)*JACOB(3,3) C DO 140 I = 1,3 II = (I-1)*NNODE DO 140 J = 1,NNODE IJ = II + J BTERMS(IJ) = 0.0 DO 140 K = 1,2 IK = (K-1)*8 140 BTERMS(IJ) = BTERMS(IJ) + JACOB(I,K)*DSHP(IK+J) 150 RETURN END ================================================ FILE: mis/tetra.f ================================================ SUBROUTINE TETRA (TEMPS,PG,IOPT) C C ELEMENT THERMAL LOAD GENERATOR FOR THE TETRAHEDRON SOLID ELEMENT C C LOOKING DOWN ON THIS ELEMENT, GRIDS 1,2,3 ARE THE BASE AND MUST BE C LABELED COUNTERCLOCKWISE. GRID 4 MUST BE ABOVE THE PLANE FORMED BY C GRIDS 1,2,3 AND CLOSEST TO THIS OBSERVER. C C ECPT FOR THE TETRAHEDRON SOLID ELEMENT C C ECPT( 1) = ELEMENT ID C ECPT( 4) = SIL GRID POINT 3 C ECPT( 5) = SIL GRID POINT 4 C ECPT( 2) = MATERIAL ID (MAT1 MATERIAL TYPE) C ECPT( 3) = SIL GRID POINT 1 C ECPT( 4) = SIL GRID POINT 2 C ECPT( 5) = SIL GRID POINT 3 C ECPT( 6) = SIL GRID POINT 4 C ECPT( 7) = COORD SYS ID GRID PT 1 C ECPT( 8) = X1 C ECPT( 9) = Y1 C ECPT(10) = Z1 C ECPT(11) = COORD SYS ID GRID PT 2 C ECPT(12) = X2 C ECPT(13) = Y2 C ECPT(14) = Z2 C ECPT(15) = COORD SYS ID GRID PT 3 C ECPT(16) = X3 C ECPT(17) = Y3 C ECPT(18) = Z3 C ECPT(19) = COORD SYS ID GRID PT 4 C ECPT(20) = X4 C ECPT(21) = Y4 C ECPT(22) = Z4 C ECPT(23) = ELEMENT TEMPERATURE C INTEGER NECPT(2) ,OUT REAL TEMPS(4) ,PG(6) ,P(6) ,C(72) ,G(36) , 1 H(16) ,CTG(18) ,NU ,ALFA(6) ,TEMP(12) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SYSBUF ,OUT COMMON /TRIMEX/ ECPT(23) COMMON /MATIN / MATID ,INFLAG ,ELTEMP COMMON /MATOUT/ E ,GG ,NU ,RHO ,ALPHA , 1 TSUB0 ,GSUBE ,SIGT ,SIGC ,SIGS EQUIVALENCE (NECPT(1),ECPT(1)) C C FILL THE 4 X 4 H MATRIX. C H( 1) = 1.0 H( 2) = ECPT( 8) H( 3) = ECPT( 9) H( 4) = ECPT(10) H( 5) = 1.0 H( 6) = ECPT(12) H( 7) = ECPT(13) H( 8) = ECPT(14) H( 9) = 1.0 H(10) = ECPT(16) H(11) = ECPT(17) H(12) = ECPT(18) H(13) = 1.0 H(14) = ECPT(20) H(15) = ECPT(21) H(16) = ECPT(22) C C INVERT H AND GET THE DETERMINANT C ISING = 0 C CALL INVERS (4,H(1),4,DUM,0,HDETER,ISING,TEMP(1)) C C IF THE MATRIX IS SINGULAR TETRAHEDRON IS BAD C HDETER = ABS(HDETER) IF (ISING .NE. 2) GO TO 200 WRITE (OUT,150) UFM,NECPT(1) 150 FORMAT (A23,' 4002, MODULE SSG1 DETECTS BAD OR REVERSE GEOMETRY ', 1 'FOR ELEMENT ID =',I9) GO TO 900 C C GET THE MATERIAL DATA AND FILL THE 6X6 G MATERIAL STRESS-STRAIN C MATRIX. C 200 INFLAG = 1 MATID = NECPT(2) ELTEMP = ECPT(23) CALL MAT (NECPT(1)) DO 210 I = 1,36 210 G(I) = 0.0 TEMP1 = (1.0+NU)*(1.0-2.0*NU) IF (TEMP1 .NE. 0.0) GO TO 240 WRITE (OUT,230) UFM,MATID,ECPT(1) 230 FORMAT (A23,' 4003, AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED ', 1 'UNDER MATERIAL ID =',I9,' FOR ELEMENT ID =',I9) GO TO 900 240 G( 1) = E*(1.0-NU)/TEMP1 G( 8) = G(1) G(15) = G(1) G( 2) = E*NU/TEMP1 G( 3) = G(2) G( 7) = G(2) G( 9) = G(2) G(13) = G(2) G(14) = G(2) G(22) = GG G(29) = GG G(36) = GG C C FILL 4 C-MATRICES. (6X3) EACH. C DO 400 I = 1,72 400 C(I) = 0.0 DO 500 I = 1,4 J = 18*I - 18 C(J+ 1) = H(I+ 4) C(J+ 5) = H(I+ 8) C(J+ 9) = H(I+12) C(J+11) = H(I+12) C(J+12) = H(I+ 8) C(J+13) = H(I+12) C(J+15) = H(I+ 4) C(J+16) = H(I+ 8) C(J+17) = H(I+ 4) 500 CONTINUE C C DIVIDE DETERMINANT BY 6.0, AND BY AN ADDITIONAL 2.0 IF A SUB-TETRA C FOR THE HEXA-10 ELEMENT. C IF (IOPT) 602,601,602 601 HDETER = HDETER/6.0 GO TO 610 602 HDETER = HDETER/12.0 C C INTRODUCE TBAR AND ALPHA C 610 HDETER = HDETER*(0.25*(TEMPS(1)+TEMPS(2)+TEMPS(3)+TEMPS(4))-TSUB0) 1 *ALPHA C C FILL ALPHA VECTOR C ALFA(1) = HDETER ALFA(2) = HDETER ALFA(3) = HDETER ALFA(4) = 0.0 ALFA(5) = 0.0 ALFA(6) = 0.0 C C LOOP FOR THE FOUR GRID POINTS C DO 800 I = 1,4 CALL GMMATS (C(18*I-17),6,3,1, G(1),6,6,0, CTG(1)) CALL GMMATS (CTG(1),3,6,0, ALFA(1),6,1,0, P(1)) C C TRANSFORM TO GLOBAL C P(4) = 0.0 P(5) = 0.0 P(6) = 0.0 K = 4*I + 3 IF (NECPT(K) .NE. 0) CALL BASGLB (P(1),P(1),NECPT(K+1),NECPT(K)) C C INSERT LOAD VECTOR FOR GRID POINT C L = NECPT(I+2) - 1 DO 790 J = 1,3 L = L + 1 PG(L) = PG(L) + P(J) 790 CONTINUE 800 CONTINUE RETURN C 900 CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/tiger.f ================================================ SUBROUTINE TIGER (IG,LIST,INV,II3,NORIG,KG,JG) C C THIS ROUTINE MAKES ADDITIONS TO THE CONNECTION TABLE IG TO REFLECT C THE PRESENCE OF MPC'S AND STORES THE DEPENDENT POINTS IN LIST. C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C NEQ =NUMBER OF MPC EQUATIONS. C NEQR=NUMBER OF MPC EQUATIONS COMING FROM RIGID ELEMENTS C INTEGER SCR1, BUNPK, RDREW, RD, REW DIMENSION IG(1), LIST(1), NORIG(1), KG(1), SUB(2), 1 JG(1), INV(II3,1) COMMON /BANDA / IBUF1, NOMPC, NODEP COMMON /BANDB / DUM6B(6), KDIM COMMON /BANDD / DUM(7), NEQ, NEQR COMMON /BANDS / NN, MM, DUM2S(2), MAXGRD, MAXDEG, 1 DUM3S(3), NEDGE COMMON /GEOMX / GDUM(3), SCR1 COMMON /SYSTEM/ IBUF, NOUT COMMON /NAMES / RD, RDREW, NDUM(2), REW COMMON /ZZZZZZ/ IZ(1) DATA SUB / 4HTIGE, 4HR / C IF (NEQ+NEQR .EQ. 0) GO TO 170 KDIM4=KDIM*4 CALL OPEN (*200,SCR1,IZ(IBUF1),RDREW) C C GENERATE NEW CONNECTIONS. C TWO PASSES. FIRST PASS FOR MPC CARDS, AND SECOND FOR RIGID ELEM. C DO 60 JJ=1,2 IF (JJ .EQ. 1) NQ=NEQ IF (JJ .EQ. 2) NQ=NEQR IF (NQ .EQ. 0) GO TO 60 C C READ MPC EQUATIONS AND RIGID ELEMENT GRIDS C AND CONVERT ORIGINAL GRID NOS. TO INTERNAL LABELS. C DO 50 II=1,NQ CALL READ (*210,*210,SCR1,NTERM,1,0,M) KK=1 J2=2 IF (JJ .EQ. 1) GO TO 10 K=MOD(NTERM,1000) NTERM=NTERM/1000 KK=NTERM-K J2=NTERM 10 IF (NTERM.GT.KDIM4) GO TO 70 CALL READ (*210,*210,SCR1,KG,NTERM,1,M) CALL SCAT (KG,NTERM,INV,II3,NORIG) C DO 40 K=1,KK IGRID=KG(K) IF (NODEP.EQ.+1) LIST(IGRID)=IGRID C C IGRID=DEPENDENT GRID POINT IN AN MPC EQUATION. C CALL BUNPAK(IG,IGRID,MAXDEG,JG) DO 30 I=1,MAXDEG L=JG(I) IF (L.LE.0) GO TO 40 C C L= A GRID POINT THAT IGRID IS CONNECTED TO BEFORE THE MPC IS APPLI C IF (NTERM.LT.2) GO TO 30 DO 20 J=J2,NTERM CALL SETIG (L,KG(J),IG,NORIG) 20 CONTINUE 30 CONTINUE 40 CONTINUE 50 CONTINUE 60 CONTINUE GO TO 90 C 70 WRITE (NOUT,80) 80 FORMAT (72H0*** MPC CARDS NOT PROCESSED IN BANDIT DUE TO INSUFFICI 1ENT SCRATCH SPACE,//) NEQ =0 NEQR=0 90 CALL CLOSE (SCR1,REW) C C QUIT HERE IF MPC DEPENDENT POINTS ARE NOT TO BE DELETED FROM THE C CONNECTION TABLE IG. C IF (NODEP.NE.+1) GO TO 170 C C COMPRESS OUT ZEROS FORM LIST C N=0 DO 110 I=1,NN IF (LIST(I).EQ.0) GO TO 110 N=N+1 LIST(N)=LIST(I) 110 CONTINUE C C DELETES ALL REFERENCE IN THE CONNECTION TABLE IG TO THOSE POINTS C IN LIST C IF (N.LE.0) GO TO 170 MM1=MM-1 DO 160 II=1,N I=LIST(II) CALL BUNPAK (IG,I,MM,JG) DO 150 J=1,MM L=JG(J) IF (L.EQ.0) GO TO 160 NEDGE=NEDGE-1 K=0 120 K=K+1 M=BUNPK(IG,L,K) IF (M.NE. I) GO TO 120 IF (K.GE.MM) GO TO 140 DO 130 NP=K,MM1 IS=BUNPK(IG,L,NP+1) 130 CALL BPACK (IG,L,NP,IS) 140 CALL BPACK (IG,L,MM1+1,0) CALL BPACK (IG,I,J,0) 150 CONTINUE 160 CONTINUE 170 RETURN C C SCR1 FILE ERROR C 200 K=-1 GO TO 220 210 K=-2 220 CALL MESAGE (K,SCR1,SUB) RETURN END ================================================ FILE: mis/timal3.f ================================================ SUBROUTINE TIMAL3 C C ASSEMBLY LANGUAGE ROUTINE FOR TIMTS3 C C NOTES FROM G.CHAN/UNISYS, 10/1989 C THIS ROUTINE IS NOT USED IN NASTRAN. IF IT IS ACTIVATED, MAKE SURE C THE EQUIVALENCE OF A=B=C=D=AC=BC=CC=DC=AD=BD=CD=DD IS REMOVED C REAL B(1), C(1), D(1) DOUBLE PRECISION AD(2), BD(1), CD(1), DD(1) COMPLEX AC(1), BC(1), CC(1), DC(1) C COMMON /BLANK / N,M COMMON /ZZZZZZ/ A(1) C EQUIVALENCE (A(1),AC(1),AD(1), B(1),BC(1),BD(1), 1 C(1),CC(1),CD(1), D(1),DC(1),DD(1)) C C ENTRY TMTRSP C ============ C REAL SINGLE PRECISION - TIGHT LOOP C DO 100 I = 1,N DO 110 J = 1,M D(J) = A(J)*B(J) + C(J) 110 CONTINUE 100 CONTINUE GO TO 999 C C ENTRY TMMRSP C ============ C REAL SINGLE PRECISION - MEDIUM LOOP C DO 200 I = 1,N DO 210 J = 1,M D(J) = A(I)*B(J) + C(J) 210 CONTINUE 200 CONTINUE GO TO 999 C C ENTRY TMLRSP C ============ C REAL SINGLE PRECISION - LOOSE LOOP C DO 300 I = 1,N DO 310 J = 1,M L = I+J-1 D(J) = A(I)*B(L) + C(J) 310 CONTINUE 300 CONTINUE GO TO 999 C C ENTRY TMTRDP C ============ C REAL DOUBLE PRECISION - TIGHT LOOP C DO 120 I = 1,N DO 130 J = 1,M DD(J) = AD(J)*BD(J) + CD(J) 130 CONTINUE 120 CONTINUE GO TO 999 C C ENTRY TMMRDP C ============ C REAL DOUBLE PRECISION - MEDIUM LOOP C DO 220 I = 1,N DO 230 J = 1,M DD(J) = AD(I)*BD(J) + CD(J) 230 CONTINUE 220 CONTINUE GO TO 999 C C ENTRY TMLRDP C ============ C REAL DOUBLE PRECISION - LOOSE LOOP C DO 320 I = 1,N DO 330 J = 1,M L = I + J - 1 DD(J) = AD(I)*BD(L) + CD(J) 330 CONTINUE 320 CONTINUE GO TO 999 C C ENTRY TMTCSP C ============ C COMPLEX SINGLE PRECISION - TIGHT LOOP C DO 410 I = 1,N DO 420 J = 1,M DC(J) = AC(J)*BC(J) + CC(J) 420 CONTINUE 410 CONTINUE GO TO 999 C C ENTRY TMMCSP C ============ C COMPLEX SINGLE PRECISION - MEDIUM LOOP C DO 430 I = 1,N DO 440 J = 1,M DC(J) = AC(I)*BC(J) + CC(J) 440 CONTINUE 430 CONTINUE GO TO 999 C C ENTRY TMLCSP C ============ C COMPLEX SINGLE PRECISION - LOOSE LOOP C DO 450 I = 1,N DO 460 J = 1,M L = I + J - 1 DC(J) = AC(I)*BC(L) + CC(J) 460 CONTINUE 450 CONTINUE GO TO 999 C C ENTRY TMTCDP C ============ C COMPLEX DOUBLE PRECISION - TIGHT LOOP C DO 160 I = 1,N DO 170 J = 1,M C C D(J) AND D(J+1) CALCULATIONS WERE REVERSED C IN ORDER TO COUNTERACT THE ITERATIVE BUILD UP C DD(J+1) = AD(J) * BD(J ) - AD(J+1) * BD(J+1) + CD(J ) DD(J ) = AD(J) * BD(J+1) + AD(J+1) * BD(J ) + CD(J+1) 170 CONTINUE 160 CONTINUE GO TO 999 C C ENTRY TMMCDP C ============ C COMPLEX DOUBLE PRECISION - MEDIUM LOOP C DO 260 I = 1,N DO 270 J = 1,M DD(J ) = AD(I)*BD(J ) - AD(I+1)*BD(J+1) + CD(J ) DD(J+1) = AD(I)*BD(J+1) + AD(I+1)*BD(J ) + CD(J+1) 270 CONTINUE 260 CONTINUE GO TO 999 C C ENTRY TMLCDP C ============ C COMPLEX DOUBLE PRECISION - LOOSE LOOP C DO 360 I = 1,N DO 370 J = 1,M L = I + J - 1 DD(J ) = AD(I)*BD(L ) - AD(I+1)*BD(L+1) + CD(J ) DD(J+1) = AD(I)*BD(L+1) + AD(I+1)*BD(L ) + CD(J+1) 370 CONTINUE 360 CONTINUE C 999 RETURN END ================================================ FILE: mis/timeeq.f ================================================ SUBROUTINE TIMEEQ (B,BBAR,C,CBAR,R,IENTRY,NCOL,TIM) C C TIMEEQ SOLVES THE TIME AND CORE FUNCTIONS FOR DECOMP AND CDCOMP C INTEGER SYSBUF REAL MB(1),MC(1),K1,K2,K3,K4,K5 COMMON /NTIME / LNTIME, TCONS(15) 1 /SYSTEM/ KSYSTM(65) C EQUIVALENCE (KSYSTM( 1),SYSBUF),(KSYSTM(40),NBPW), 1 (KSYSTM(55),IPREC ),(TCONS (1) ,AAIO), 2 (TCONS ( 2),AAPAK ),(TCONS (8),MB(1)), 3 (TCONS (12),MC(1) ) C C IRET = 0 IENTR = IENTRY 1 AMB = MB(IPREC) AMC = MC(IPREC) IF (NBPW .LT. 60) GO TO 2 AMB = 3.0*AMB AMC = 3.0*AMC 2 AIO = AAIO APAK = AAPAK IF (IENTR .EQ. 1) GO TO 10 AMB = 5.*AMB AMC = 5.*AMC AIO = AIO+AIO APAK = 1.1*APAK 10 IF (IRET .EQ. 1) GO TO 20 TIM = FLOAT(NCOL)*(AMB*BBAR*R+AMC*(BBAR*C+BBAR*CBAR+B*CBAR+ 1 2.0*C*CBAR)+AIO*BBAR*(B+BBAR-R-1.0))*1.E-06 RETURN C C ENTRY TFIN (AB,ABBAR,AC,ACBAR,AR,JENTRY,ANCOL,TIMEX) C ==================================================== C IRET = 1 IENTR = JENTRY GO TO 1 20 TIMEX = 0. K1 = ANCOL - AB - ABBAR - ABBAR IF (K1 .LE. 0.) GO TO 30 TIMEX = K1*(AMB*ABBAR*AR+AIO*ABBAR*(AB+ABBAR-AR)+APAK*(AB+ABBAR* 1 2.)) 30 K2 = AB + ABBAR K3 = K2 IF (ANCOL .GE. AB+ABBAR+ABBAR) GO TO 35 K2 = ANCOL - ABBAR K3 = AB + ABBAR IF (ANCOL .LT. AB+ABBAR) K3 = ANCOL 35 TIMEX = TIMEX+.5*K2*(ABBAR*K2*AMB+(K3-AR)*(AIO-AMB)*ABBAR+ 1 2.*APAK*ABBAR+APAK*K2) IF (ANCOL .LT. AB+ABBAR+ABBAR) GO TO 40 K4 = AB + ABBAR - AR K5 = AB + 1.5*ABBAR IF (AB .GT. AR) K4 = ABBAR GO TO 50 40 K4 = ANCOL - AR K5 = ANCOL IF (ANCOL-AR .GT. ABBAR) K4 = ABBAR 50 TIMEX = TIMEX+ABBAR**3/3.*AMB+K4**3*.5*AIO+APAK*ABBAR*K5 TIMEX = (TIMEX+(ANCOL-ABBAR)*(AMC*(ABBAR*AC+AB*ACBAR+ABBAR*ACBAR+ 1 AC*ACBAR)+APAK*(AC+ACBAR)))*1.E-06 RETURN C C ENTRY RCORE (IB,IBBAR,IC,ICBAR,INCOL,KENTRY,NX,IR) C ================================================== C ENTRY FOR THE CORE FUNCTION C IR = (NX-((IB+IBBAR+1) +2*KENTRY*MIN0(INCOL,IB+IBBAR+IBBAR)+ 1 2*KENTRY*IC*(IBBAR+2)+2*ICBAR*KENTRY*(MIN0(IB+IBBAR,INCOL)+1) 2 +2*KENTRY*IC*ICBAR +IC+ICBAR*KENTRY+ICBAR)-6*SYSBUF)/ 3 (2*KENTRY*IBBAR) RETURN END ================================================ FILE: mis/timts1.f ================================================ SUBROUTINE TIMTS1 C C TIMTS1 TIME TESTS GINO AND THE PACK ROUTINES C EXTERNAL ANDF INTEGER SYSBUF, OUTPUT, FILES(2), F1, F2, BUF1, BUF2, 1 END, RD(4), WRT(4), BCK(4), MCB(7), EOL, EOR, 2 BLD(16), INT(16), PAK(16), UNP(16), TYPE, P, 3 TYPIN1, TYPOU1, TYPOU2, ISUBR(2), ANDF, OPT1, 4 OPT2, NAME(4), MASK( 9), ABLK(15), BBLK(15), 5 GET(16), PUT(16) REAL X(1), Z(1) DOUBLE PRECISION ZD, XD CHARACTER UFM*23, UWM*25, UIM*29, SFM*25 COMMON /XMSSG / UFM, UWM, UIM, SFM COMMON /BLANK / N, M, TYPE, OPT1, OPT2 COMMON /SYSTEM/ SYSBUF, OUTPUT COMMON /ZBLPKX/ ZD(2), IZ COMMON /ZNTPKX/ XD(2), IX, EOL, EOR COMMON /PACKX / TYPIN1, TYPOU1, I1, J1, INCR1 COMMON /UNPAKX/ TYPOU2, I2, J2, INCR2 COMMON /ZZZZZZ/ A(1) EQUIVALENCE (ZD(1),Z(1)),(XD(1),X(1)) DATA FILES / 301, 302 / , RD / 1H , 1H , 1H , 4HREAD / DATA I1000 / 1000 / , I1001/ 1001 / , 1 WRT / 1H , 1H , 4H W, 4HRITE / , 2 BCK / 4H B, 4HACKW, 4HARD , 4HREAD / DATA BLD / 1H , 4HBLDP, 4HK( R, 4HSP ) , 1 1H , 4HBLDP, 4HK( R, 4HDP ) , 2 1H , 4HBLDP, 4HK( C, 4HSP ) , 3 1H , 4HBLDP, 4HK( C, 4HDP ) / DATA INT / 1H , 4HINTP, 4HK( R, 4HSP ) , 1 1H , 4HINTP, 4HK( R, 4HDP ) , 2 1H , 4HINTP, 4HK( C, 4HSP ) , 3 1H , 4HINTP, 4HK( C, 4HDP ) / DATA PAK / 1H , 4H PAC, 4HK( R, 4HSP ) , 1 1H , 4H PAC, 4HK( R, 4HDP ) , 2 1H , 4H PAC, 4HK( C, 4HSP ) , 3 1H , 4H PAC, 4HK( C, 4HDP ) / DATA UNP / 1H , 4HUNPA, 4HK( R, 4HSP ) , 1 1H , 4HUNPA, 4HK( R, 4HDP ) , 2 1H , 4HUNPA, 4HK( C, 4HSP ) , 3 1H , 4HUNPA, 4HK( C, 4HDP ) / DATA PUT / 4H P, 4HUTST, 4HR( R, 4HSP ) , 1 4H P, 4HUTST, 4HR( R, 4HDP ) , 2 4H P, 4HUTST, 4HR( C, 4HSP ) , 3 4H P, 4HUTST, 4HR( C, 4HDP ) / DATA GET / 4H G, 4HETST, 4HR( R, 4HSP ) , 1 4H G, 4HETST, 4HR( R, 4HDP ) , 2 4H G, 4HETST, 4HR( C, 4HSP ) , 3 4H G, 4HETST, 4HR( C, 4HDP ) / DATA NMASK / 9 / DATA ISUBR / 4HTIMT, 4HS1 / C C INITIALIZE C CALL PAGE1 F1 = FILES(1) F2 = FILES(2) BUF1 = KORSZ(A) - SYSBUF BUF2 = BUF1 - SYSBUF END = N*M IF (END .GE. BUF1-1) CALL MESAGE (-8,0,ISUBR) DO 12 I = 1,END A(I) = I 12 CONTINUE N10 = N*10 M10 = M/10 IF (M10 .LE. 0) M10 = 1 FN = N FM = M P = 4*(TYPE-1) + 1 MASK(1) = 1 DO 14 I = 2,NMASK 14 MASK(I) = 2*MASK(I-1) WRITE (OUTPUT,11) N, M, TYPE, OPT1, OPT2 11 FORMAT (1H , 20X, 25HNASTRAN TIME TEST C N =, I4, 5H, M =, I4 , 1 8H, TYPE =,I4, 8H, OPT1 =,I4, 8H, OPT2 =,I4) C C WRITE TEST C IF (ANDF(OPT2,MASK(1)) .EQ. 0) GO TO 50 CALL OPEN (*901,F1,A(BUF1),1) CALL CPUTIM (T1,T1,1) DO 21 I = 1,N CALL WRITE (F1,A,M,1) 21 CONTINUE CALL CPUTIM (T2,T1,1) CALL CLOSE (F1,1) CALL OPEN (*901,F2,A(BUF2),1) CALL CPUTIM (T3,T3,1) DO 22 I = 1,N10 CALL WRITE (F2,A,M10,1) 22 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,1) ASSIGN 30 TO IRET NAME(1) = WRT(1) NAME(2) = WRT(2) NAME(3) = WRT(3) NAME(4) = WRT(4) GO TO 100 C C READ TEST C 30 CONTINUE IF (ANDF(OPT2,MASK(2)) .EQ. 0) GO TO 40 CALL OPEN (*901,F1,A(BUF1),0) CALL CPUTIM (T1,T1,1) DO 31 I = 1,N CALL READ (*902,*903,F1,A(I1000),M,1,FLAG) 31 CONTINUE CALL CPUTIM (T2,T2,1) CALL CLOSE (F1,2) CALL OPEN (*901,F2,A(BUF2),0) CALL CPUTIM (T3,T3,1) DO 32 I = 1,N10 CALL READ (*902,*903,F2,A(I1000),M10,1,FLAG) 32 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,2) ASSIGN 40 TO IRET NAME(1) = RD(1) NAME(2) = RD(2) NAME(3) = RD(3) NAME(4) = RD(4) GO TO 100 C C BACKWARD READ TEST C 40 CONTINUE IF (ANDF(OPT2,MASK(3)) .EQ. 0) GO TO 50 CALL OPEN (*901,F1,A(BUF1),2) CALL CPUTIM (T1,T1,1) DO 41 I = 1,N CALL BCKREC (F1) CALL READ (*902,*903,F1,A(I1000),M,1,FLAG) CALL BCKREC (F1) 41 CONTINUE CALL CPUTIM (T2,T2,1) CALL CLOSE (F1,1) CALL OPEN (*901,F2,A(BUF2),2) CALL CPUTIM (T3,T3,1) DO 42 I = 1,N10 CALL BCKREC (F2) CALL READ (*902,*903,F2,A(I1000),M10,1,FLAG) CALL BCKREC (F2) 42 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,1) ASSIGN 50 TO IRET NAME(1) = BCK(1) NAME(2) = BCK(2) NAME(3) = BCK(3) NAME(4) = BCK(4) GO TO 100 C C BLDPK TEST C 50 CONTINUE IF (ANDF(OPT2,MASK(4)) .EQ. 0) GO TO 70 CALL OPEN (*901,F1,A(BUF1),1) CALL MAKMCB (MCB,F1,M,2,TYPE) CALL CPUTIM (T1,T1,1) DO 51 I = 1,N CALL BLDPK (TYPE,TYPE,F1,0,0) DO 52 J = 1,M Z(1) = 1.0 IZ = J CALL ZBLPKI 52 CONTINUE CALL BLDPKN (F1,0,MCB) 51 CONTINUE CALL CPUTIM (T2,T2,1) CALL WRTTRL (MCB) CALL CLOSE (F1,1) CALL MAKMCB (MCB,F2,M10,2,TYPE) CALL OPEN (*901,F2,A(BUF2),1) CALL CPUTIM (T3,T3,1) DO 54 I = 1,N10 CALL BLDPK (TYPE,TYPE,F2,0,0) DO 55 J = 1,M10 Z(1) = 2.0 IZ = J CALL ZBLPKI 55 CONTINUE CALL BLDPKN (F2,0,MCB) 54 CONTINUE CALL CPUTIM (T4,T4,1) CALL WRTTRL (MCB) CALL CLOSE (F2,1) ASSIGN 60 TO IRET NAME(1) = BLD(P) NAME(2) = BLD(P+1) NAME(3) = BLD(P+2) NAME(4) = BLD(P+3) GO TO 100 C C INTPK TEST C 60 CONTINUE IF (ANDF(OPT2,MASK(5)) .EQ. 0) GO TO 70 CALL OPEN (*901,F1,A(BUF1),0) CALL CPUTIM (T1,T1,1) DO 61 I = 1,N CALL INTPK (*902,F1,0,TYPE,0) DO 62 J = 1,M CALL ZNTPKI IF (IX .NE. J) GO TO 110 IF (EOL .EQ. 0) GO TO 62 IF (IX .NE. M) GO TO 110 62 CONTINUE IF (EOL .EQ. 0) GO TO 110 61 CONTINUE CALL CPUTIM (T2,T2,1) CALL CLOSE (F1,1) CALL OPEN (*901,F2,A(BUF2),0) CALL CPUTIM (T3,T3,1) DO 63 I = 1,N10 CALL INTPK (*902,F2,0,TYPE,0) DO 64 J = 1,M10 CALL ZNTPKI IF (IX .NE. J) GO TO 110 IF (EOL .EQ. 0) GO TO 64 IF (IX .NE. M10) GO TO 110 64 CONTINUE IF (EOL .EQ. 0) GO TO 110 63 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,1) ASSIGN 70 TO IRET NAME(1) = INT(P) NAME(2) = INT(P+1) NAME(3) = INT(P+2) NAME(4) = INT(P+3) GO TO 100 C C PACK TEST C 70 CONTINUE IF (ANDF(OPT2,MASK(6)) .EQ. 0) GO TO 90 CALL MAKMCB (MCB,F1,M,2,TYPE) TYPIN1 = TYPE TYPOU1 = TYPE I1 = 1 J1 = M INCR1 = 1 MX = M*TYPE DO 72 I = 1,MX A(I+1000) = I 72 CONTINUE CALL OPEN (*901,F1,A(BUF1),1) CALL CPUTIM (T1,T1,1) DO 73 I = 1,N CALL PACK (A(I1001),F1,MCB) 73 CONTINUE CALL CPUTIM (T2,T2,1) CALL WRTTRL (MCB) CALL CLOSE (F1,1) CALL MAKMCB (MCB,F2,M10,2,TYPE) J1 = M10 CALL OPEN (*901,F2,A(BUF2),1) CALL CPUTIM (T3,T3,1) DO 75 I = 1,N10 CALL PACK (A(I1001),F2,MCB) 75 CONTINUE CALL CPUTIM (T4,T4,1) CALL WRTTRL (MCB) CALL CLOSE (F2,1) ASSIGN 80 TO IRET NAME(1) = PAK(P) NAME(2) = PAK(P+1) NAME(3) = PAK(P+2) NAME(4) = PAK(P+3) GO TO 100 C C UNPACK TEST C 80 CONTINUE IF (ANDF(OPT2,MASK(7)) .EQ. 0) GO TO 90 TYPOU2 = TYPE I2 = 1 J2 = M INCR2 = 1 CALL OPEN (*901,F1,A(BUF1),0) CALL CPUTIM (T1,T1,1) DO 81 I = 1,N CALL UNPACK (*902,F1,A(I1001)) 81 CONTINUE CALL CPUTIM (T2,T2,1) CALL CLOSE (F1,1) J2 = M10 CALL OPEN (*901,F2,A(BUF2),0) CALL CPUTIM (T3,T3,1) DO 82 I = 1,N10 CALL UNPACK (*902,F2,A(I1001)) 82 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,2) ASSIGN 90 TO IRET NAME(1) = UNP(P) NAME(2) = UNP(P+1) NAME(3) = UNP(P+2) NAME(4) = UNP(P+3) GO TO 100 90 CONTINUE C C PUTSTR TEST C C IF (ANDF(OPT2,MASK(8)) .EQ. 0) GO TO 220 KERR = 1 ABLK(1) = F1 ABLK(2) = TYPE ABLK(3) = 1 CALL GOPEN (F1,A(BUF1),1) NWDS = TYPE IF (TYPE .EQ. 3) NWDS = 2 CALL CPUTIM (T1,T1,1) DO 95 I = 1,N ABLK(4) = 0 ABLK(8) = -1 DO 94 J = 1,10 NBRSTR = M10 91 CALL PUTSTR (ABLK) IF( NBRSTR .EQ. 0) GO TO 910 ABLK(7) = MIN0(ABLK(6),NBRSTR) ABLK(4) = ABLK(4) + ABLK(7) + 4 MM = ABLK(7)*NWDS DO 92 K = 1,MM X(1) = A(K) 92 CONTINUE IF (ABLK(7) .EQ. NBRSTR) GO TO 93 CALL ENDPUT (ABLK) NBRSTR = NBRSTR - ABLK(7) GO TO 91 93 IF (J .EQ. 10) ABLK(8) = 1 CALL ENDPUT (ABLK) 94 CONTINUE 95 CONTINUE CALL CPUTIM (T2,T2,1) CALL CLOSE (F1,1) M100 = MAX0(M10/10,1) CALL GOPEN (F2,A(BUF2),1) KERR = 2 BBLK(1) = F2 BBLK(2) = TYPE BBLK(3) = 1 CALL CPUTIM (T3,T3,1) DO 209 I = 1,N10 BBLK(4) = 0 BBLK(8) = -1 DO 208 J = 1,10 NBRSTR = M100 202 CALL PUTSTR (BBLK) IF (NBRSTR .EQ. 0) GO TO 910 BBLK(7) = MIN0(BBLK(6),NBRSTR) BBLK(4) = BBLK(4) + BBLK(7) + 4 MM = BBLK(7)*NWDS DO 203 K = 1,MM X(1) = A(K) 203 CONTINUE IF (BBLK(7) .EQ. NBRSTR) GO TO 206 NBRSTR = NBRSTR - BBLK(7) GO TO 202 206 IF (J .EQ. 10) BBLK(8) = 1 CALL ENDPUT (BBLK) 208 CONTINUE 209 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,1) ASSIGN 210 TO IRET NAME(1) = PUT(P) NAME(2) = PUT(P+1) NAME(3) = PUT(P+2) NAME(4) = PUT(P+3) GO TO 100 C C GETSTR TEST C 210 IF (ANDF(OPT2,MASK(9)) .EQ. 0) GO TO 220 CALL GOPEN (F1,A(BUF1),0) CALL CPUTIM (T1,T1,1) DO 214 I = 1,N ABLK(8) = -1 211 CALL GETSTR (*214,ABLK) MM = ABLK(6)*NWDS DO 212 K = 1,MM X(1) = A(K) 212 CONTINUE CALL ENDGET (ABLK) GO TO 211 214 CONTINUE CALL CPUTIM (T2,T2,1) CALL CLOSE (F1,1) CALL GOPEN (F2,A(BUF2),0) CALL CPUTIM (T3,T3,1) DO 219 I = 1,N10 BBLK(8) = -1 215 CALL GETSTR (*219,BBLK) MM = BBLK(6)*NWDS DO 216 K = 1,MM X(1) = A(K) 216 CONTINUE CALL ENDGET (BBLK) GO TO 215 219 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,1) ASSIGN 220 TO IRET NAME(1) = GET(P) NAME(2) = GET(P+1) NAME(3) = GET(P+2) NAME(4) = GET(P+3) GO TO 100 C 220 CONTINUE RETURN C C C INTERNAL ROUTINE TO WRITE OUTPUT ONTO THE OUTPUT FILE C 100 CONTINUE TIME1 = T2 - T1 TIME2 = T4 - T3 TPRREC = 1.0E6*(TIME2 - TIME1)/(9.0*FN) TPRWRD = (1.0E6*TIME1 - FN*TPRREC)/(FN*FM) C WRITE (OUTPUT,111) NAME, TIME1, NAME, TIME2, TPRWRD, TPRREC 111 FORMAT (1H0, 4A4, 1 ' N M-WORD RECORDS -- TIME1 = ', E12.5, ' SECONDS'/ 2 1X , 4A4, 3 ' 10*N M/10-WORD RECORDS -- TIME2 = ', E12.5, ' SECONDS'/ 4 1H0,'IF THE MODEL IS TIME = (N*M)TPRWRD + N*TPRREC, THEN'/ 5 1H0, 16X, 6 ' -- TIME PER WORD (TPRWRD) = ', E12.5, ' MICRO', 7 'SECONDS -- DATA FOR USE IN COMMON /NTIME/'/ 8 1X , 16X, 9 ' -- TIME PER RECORD (TPRREC) = ', E12.5, ' MICRO', O 'SECONDS') C GO TO IRET, (30,40,50,60,70,80,90,210,220) C C INTERNAL ROUTINE CALLED FOR AN ABORT IN THE INTPK TEST C 110 CONTINUE WRITE (OUTPUT,121) SFM,INT(P),INT(P+1),INT(P+2),INT(P+3) 121 FORMAT (A25,' 2197, ABORT CALLED DURING TIME TEST OF ',4A4) C C ABNORMAL RETURNS FROM GINO--ALL FATAL ERRORS C 901 CONTINUE 902 CONTINUE 903 CALL MESAGE (-61,0,0) 910 WRITE (OUTPUT,911) KERR 911 FORMAT (23H0*** TIMTS1 FATAL ERROR,I4 ) GO TO 903 END ================================================ FILE: mis/timts2.f ================================================ SUBROUTINE TIMTS2 C C TIMTS2 TIME TESTS CPU TIMES FOR VARIOUS TYPES OF LOOPS C C INTEGER SYSBUF, OUTPUT, BUF1, BUF2, END, END2, END4, 1 P, OPT1, OPT2, TYPE, NAME(4), TIG(16), MED(16), 2 LOS(16), ISUBR(2) REAL B(1), C(1), D(1) DOUBLE PRECISION ADND, AD(1), BD(1), CD(1), DD(1) COMPLEX AC(1), BC(1), CC(1), DC(1), ADNC COMMON /BLANK / N, M, TYPE, OPT1, OPT2 COMMON /SYSTEM/ KSYSTM(65) COMMON /ZZZZZZ/ A(1) EQUIVALENCE (KSYSTM(1),SYSBUF), (KSYSTM(2),OUTPUT), 1 (A(1),AC(1),AD(1), B(1),BC(1),BD(1), 2 C(1),CC(1),CD(1), D(1),DC(1),DD(1)) DATA TIG / 1H ,4HTIGH, 4HT( R,4HSP ) , 1 1H ,4HTIGH, 4HT( R,4HDP ) , 2 1H ,4HTIGH, 4HT( C,4HSP ) , 3 1H ,4HTIGH, 4HT( C,4HDP ) / DATA MED / 1H ,4HMEDI, 4HUM(R,4HSP ) , 1 1H ,4HMEDI, 4HUM(R,4HDP ) , 2 1H ,4HMEDI, 4HUM(C,4HSP ) , 3 1H ,4HMEDI, 4HUM(C,4HDP ) / DATA LOS / 1H ,4HLOOS, 4HE (R,4HSP ) , 1 1H ,4HLOOS, 4HE (R,4HDP ) , 2 1H ,4HLOOS, 4HE (C,4HSP ) , 3 1H ,4HLOOS, 4HE (C,4HDP ) / DATA ISUBR / 4HTIMT, 4HS2 /, M8/-8/ C C INITIALIZE C CALL PAGE1 WRITE (OUTPUT,11) N,M,TYPE,OPT1 11 FORMAT (1H , 20X, 25HNASTRAN TIME TEST D N =, I4, 5H, M =, I4 , 1 8H, TYPE =,I4, 8H, OPT1 =,I4) BUF1 = KORSZ(A) - SYSBUF BUF2 = BUF1 - SYSBUF END = N*M IF (END .GE. BUF1-1) CALL MESAGE (M8,0,ISUBR) C C CPU TIME TESTS C P = 4*(TYPE-1) + 1 ASQ = M + N ADNO = 1/(ASQ*ASQ) ADND = ADNO ADNC = CMPLX(ADNO,ADNO) END2 = END/2 END4 = END/4 GO TO (105,106,107,108), TYPE C C REAL CPU TIME TESTS C 105 CONTINUE C IF (M.GT.END .OR. N.GT.END) CALL MESAGE (M8,0,ISUBR) DO 111 I = 1,END 111 A(I) = ADNO CALL CPUTIM (T1,T1,1) DO 100 I = 1,N DO 110 J = 1,M D(J) = A(J)*B(J) + C(J) 110 CONTINUE 100 CONTINUE CALL CPUTIM (T2,T2,1) IRET = 1 NAME(1) = TIG(P ) NAME(2) = TIG(P+1) NAME(3) = TIG(P+2) NAME(4) = TIG(P+3) GO TO 500 501 CONTINUE C DO 211 I = 1,END 211 A(I) = ADNO CALL CPUTIM (T1,T1,1) DO 200 I = 1,N DO 210 J = 1,M D(J) = A(I)*B(J) + C(J) 210 CONTINUE 200 CONTINUE CALL CPUTIM (T2,T2,1) IRET = 2 NAME(1) = MED(P ) NAME(2) = MED(P+1) NAME(3) = MED(P+2) NAME(4) = MED(P+3) GO TO 500 502 CONTINUE C DO 311 I = 1,END 311 A(I) = ADNO CALL CPUTIM (T1,T1,1) DO 300 I = 1,N DO 310 J = 1,M L = I + J - 1 D(J) = A(I)*B(L) + C(J) 310 CONTINUE 300 CONTINUE CALL CPUTIM (T2,T2,1) IRET = 3 NAME(1) = LOS(P ) NAME(2) = LOS(P+1) NAME(3) = LOS(P+2) NAME(4) = LOS(P+3) GO TO 500 C C DOUBLE PRECISION TESTS C 106 CONTINUE C IF (M.GT.END2 .OR. N.GT.END2) CALL MESAGE (M8,0,ISUBR) DO 131 I = 1,END2 131 AD(I) = ADND CALL CPUTIM (T1,T1,1) DO 120 I = 1,N DO 130 J = 1,M DD(J) = AD(J)*BD(J) + CD(J) 130 CONTINUE 120 CONTINUE CALL CPUTIM (T2,T2,1) IRET = 4 NAME(1) = TIG(P ) NAME(2) = TIG(P+1) NAME(3) = TIG(P+2) NAME(4) = TIG(P+3) GO TO 500 504 CONTINUE C DO 231 I = 1,END2 231 AD(I) = ADND CALL CPUTIM (T1,T1,1) DO 220 I = 1,N DO 230 J = 1,M DD(J) = AD(I)*BD(J) + CD(J) 230 CONTINUE 220 CONTINUE CALL CPUTIM (T2,T2,1) IRET = 5 NAME(1) = MED(P ) NAME(2) = MED(P+1) NAME(3) = MED(P+2) NAME(4) = MED(P+3) GO TO 500 505 CONTINUE C DO 331 I = 1,END2 331 AD(I) = ADND CALL CPUTIM (T1,T1,1) DO 320 I = 1,N DO 330 J = 1,M L = I + J - 1 DD(J) = AD(I)*BD(L) + CD(J) 330 CONTINUE 320 CONTINUE CALL CPUTIM (T2,T2,1) IRET = 6 NAME(1) = LOS(P ) NAME(2) = LOS(P+1) NAME(3) = LOS(P+2) NAME(4) = LOS(P+3) GO TO 500 C C COMPLEX SINGLE PRECISION TESTS C 107 CONTINUE C IF (M.GT.END2 .OR. N.GT.END2) CALL MESAGE (M8,0,ISUBR) DO 421 I = 1,END2 421 AC(I) = ADNC CALL CPUTIM (T1,T1,1) DO 410 I = 1,N DO 420 J = 1,M DC(J) = AC(J)*BC(J) + CC(J) 420 CONTINUE 410 CONTINUE CALL CPUTIM (T2,T2,1) IRET = 7 NAME(1) = TIG(P ) NAME(2) = TIG(P+1) NAME(3) = TIG(P+2) NAME(4) = TIG(P+3) GO TO 500 507 CONTINUE C DO 441 I = 1,END2 441 AC(I) = ADNC CALL CPUTIM (T1,T1,1) DO 430 I = 1,N DO 440 J = 1,M DC(J) = AC(I)*BC(J) + CC(J) 440 CONTINUE 430 CONTINUE CALL CPUTIM (T2,T2,1) IRET = 8 NAME(1) = MED(P ) NAME(2) = MED(P+1) NAME(3) = MED(P+2) NAME(4) = MED(P+3) GO TO 500 508 CONTINUE C DO 461 I = 1,END2 461 AC(I) = ADNC CALL CPUTIM (T1,T1,1) DO 450 I = 1,N DO 460 J = 1,M L = I + J - 1 DC(J) = AC(I)*BC(L) + CC(J) 460 CONTINUE 450 CONTINUE CALL CPUTIM (T2,T2,1) IRET = 9 NAME(1) = LOS(P ) NAME(2) = LOS(P+1) NAME(3) = LOS(P+2) NAME(4) = LOS(P+3) GO TO 500 C C DOUBLE PRECISION COMPLEX TESTS C 108 CONTINUE C IF (M.GT.END4 .OR. N.GT.END4) CALL MESAGE (M8,0,ISUBR) DO 171 I = 1,END2 171 AD(I) = ADND CALL CPUTIM (T1,T1,1) DO 160 I = 1,N DO 170 J = 1,M C C D(J) AND D(J+1) CALCULATIONS WERE REVERSED C IN ORDER TO COUNTERACT THE ITERATIVE BUILD UP C DD(J+1) = AD(J)*BD(J ) - AD(J+1)*BD(J+1) + CD(J ) DD(J ) = AD(J)*BD(J+1) + AD(J+1)*BD(J ) + CD(J+1) 170 CONTINUE 160 CONTINUE CALL CPUTIM (T2,T2,1) IRET = 10 NAME(1) = TIG(P ) NAME(2) = TIG(P+1) NAME(3) = TIG(P+2) NAME(4) = TIG(P+3) GO TO 500 510 CONTINUE C DO 271 I = 1,END2 271 AD(I) = ADND CALL CPUTIM (T1,T1,1) DO 260 I = 1,N DO 270 J = 1,M DD(J ) = AD(I)*BD(J ) - AD(I+1)*BD(J+1) + CD(J ) DD(J+1) = AD(I)*BD(J+1) + AD(I+1)*BD(J ) + CD(J+1) 270 CONTINUE 260 CONTINUE CALL CPUTIM (T2,T2,1) IRET = 11 NAME(1) = MED(P ) NAME(2) = MED(P+1) NAME(3) = MED(P+2) NAME(4) = MED(P+3) GO TO 500 511 CONTINUE C DO 371 I = 1,END2 371 AD(I) = ADND CALL CPUTIM (T1,T1,1) DO 360 I = 1,N DO 370 J = 1,M L = I + J - 1 DD(J ) = AD(I)*BD(L ) - AD(I+1)*BD(L+1) + CD(J ) DD(J+1) = AD(I)*BD(L+1) + AD(I+1)*BD(L ) + CD(J+1) 370 CONTINUE 360 CONTINUE CALL CPUTIM (T2,T2,1) IRET = 12 NAME(1) = LOS(P ) NAME(2) = LOS(P+1) NAME(3) = LOS(P+2) NAME(4) = LOS(P+3) GO TO 500 600 CONTINUE RETURN C C C INTERNAL ROUTINE TO WRITE OUTPUT ONTO THE OUTPUT FILE C 500 TIME = T2 - T1 ITOT = M*N TPEROP = 1.0E6*TIME/ITOT IF (IRET.EQ.2 .OR. IRET.EQ.5 .OR. IRET.EQ.8 .OR. IRET.EQ.11) 1 WRITE (OUTPUT,998) NAME,ITOT,TIME,TPEROP C IF (IRET.NE.2 .AND. IRET.NE.5 .AND. IRET.NE.8 .AND. IRET.NE.11) 1 WRITE (OUTPUT,999) NAME,ITOT,TIME,TPEROP C 998 FORMAT (1H0, 4A4, ' CPU TIME FOR ', I9, 1 ' OPERATIONS = ', E12.5, ' SECONDS'/ 2 1X , 16X, ' CPU TIME FOR ', ' ONE', 3 ' OPERATION = ', E12.5, ' MICROSECONDS') C 999 FORMAT (1H0, 4A4, ' CPU TIME FOR ', I9, 1 ' OPERATIONS = ', E12.5, ' SECONDS'/ 2 1X , 16X, ' CPU TIME FOR ', ' ONE', 3 ' OPERATION = ', E12.5, ' MICROSECONDS', 4 ' --- DATA FOR USE IN COMMON /NTIME/') C GO TO (501,502,600,504,505,600,507,508,600,510,511,600), IRET END ================================================ FILE: mis/timtst.f ================================================ SUBROUTINE TIMTST C C TIMETEST /,/ C,N,N / C,N,M / C,N,T / C,N,O1 / C,N,O2 $ C INTEGER T,O1,O2 CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / N,M,T,O1,O2 COMMON /SYSTEM/ ISYSBF, NOUT C IF (O1.LT.1 .OR. O1.GT.2) GO TO 9901 GO TO (100, 200), O1 C 100 CONTINUE CALL TIMTS1 GO TO 900 C 200 CONTINUE CALL TIMTS2 C 900 CONTINUE RETURN C C ERROR MESSAGES C 9901 WRITE (NOUT,9951) UWM 9951 FORMAT (A25,' 2195, ILLEGAL VALUE FOR P4 =',I7) C WRITE (NOUT,9996) 9996 FORMAT ('0*** MODULE TIMETEST TERMINAL ERROR.') C RETURN C END ================================================ FILE: mis/tipe.f ================================================ SUBROUTINE TIPE (X,Y,XYD,CHR,N,OPT) C C (X,Y) = STARTING OR ENDING POINT OF THE LINE TO BE TYPED (ALWAYS C LEFT-TO-RIGHT OR TOP-TO-BOTTOM. C XYD = +/-1 IF X = STARTING OR ENDING POINT OF THE LINE. C = +/-2 IF Y = STARTING OR ENDING POINT OF THE LINE. C CHR = CHARACTERS TO BE TYPED. C N = NUMBER OF CHARACTERS. C OPT = -1 TO INITIATE THE TYPING MODE. C = +1 TO TERMINATE THE TYPING MODE. C = 0 TO TYPE A LINE. C INTEGER XYD,CHR(1),OPT,PLOTER,CHAR,C(80),BLANK,LSTCHR, 1 CHARX,D REAL XY(2,2) COMMON /PLTDAT/ MODEL,PLOTER,SKPPLT(18),SKPA(3),CNTCHR(2) COMMON /CHAR94/ CHAR(60) DATA BLANK , LSTCHR / 48,47 / C IF (OPT .NE. 0) GO TO 150 C C OPT = 0. C D = MAX0(IABS(XYD),1) S = CNTCHR(D) IF (XYD.EQ.-1 .OR. XYD.EQ.2) S = -S XY(1,1) = X XY(2,1) = Y XY(1,2) = XY(1,1) XY(2,2) = XY(2,1) C C PRINT A MAXIMUM OF 80 CHARACTERS AT A TIME. C DO 130 J = 1,N,80 IF (XYD .LT. 0) GO TO 105 L1 = J L2 = L1 + 79 IF (L2 .GT. N) L2 = N GO TO 106 105 L2 = N - J + 1 L1 = L2 - 79 IF (L1 .LE. 0) L1 = 1 C 106 NC = 0 DO 120 L = L1,L2 CHARX = CHR(L) DO 110 I = 1,LSTCHR IF (CHARX .EQ. CHAR(I)) GO TO 111 110 CONTINUE I = BLANK 111 NC = NC + 1 C(NC) = I 120 CONTINUE C C TYPE THE -NC- CHARACTERS JUST PROCESSED. C XY(D,2) = XY(D,1) + S*FLOAT(L1-1) CALL TYPE10 (XY(1,2),XY(2,2),XYD,C,NC,0) GO TO 130 130 CONTINUE GO TO 200 C C OPT = +/-1 C 150 CALL TYPE10 (0,0,0,0,0,OPT) GO TO 200 200 RETURN END ================================================ FILE: mis/tis2d8.f ================================================ SUBROUTINE TIS2D8 (TEMP,PG) C C THIS ROUTINE COMPUTES EQUIVALENT LOADS DUE TO GRID POINT C TEMPERATURES FOR THE 2-D, 8 GRID POINT ISOPARAMETRIC ELEMENT C C ECPT LIST IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C -------- -------------------- -------- ------- C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT 1 NGRID(1) INTEGER C ECPT( 3) = GRID POINT 2 NGRID(2) INTEGER C ECPT( 4) = GRID POINT 3 NGRID(3) INTEGER C ECPT( 5) = GRID POINT 4 NGRID(4) INTEGER C ECPT( 6) = GRID POINT 5 NGRID(5) INTEGER C ECPT( 7) = GRID POINT 6 NGRID(6) INTEGER C ECPT( 8) = GRID POINT 7 NGRID(7) INTEGER C ECPT( 9) = GRID POINT 8 NGRID(8) INTEGER C ECPT(10) = COORD SYS ID-STRESS ID1 INTEGER C ECPT(11) = ANIS. MATERIAL ANGLE TH REAL C ECPT(12) = MATERIAL ID MATID1 INTEGER C ECPT(13) = THICKNESS T REAL C ECPT(14) = COORD SYS ID 1 ISYS1 INTEGER C ECPT(15) = X1 X1 REAL C ECPT(16) = Y1 Y1 REAL C ECPT(17) = Z1 Z1 REAL C ECPT(18) = COORD SYS ID 2 ISYS2 INTEGER C ECPT(19) = X2 X2 REAL C ECPT(20) = Y2 Y2 REAL C ECPT(21) = Z2 Z2 REAL C ECPT(22) = COORD SYS ID 3 ISYS3 INTEGER C ECPT(23) = X3 X3 REAL C ECPT(24) = Y3 Y3 REAL C ECPT(25) = Z3 Z3 REAL C ECPT(26) = COORD SYS ID 4 ISYS4 INTEGER C ECPT(27) = X4 X4 REAL C ECPT(28) = Y4 Y4 REAL C ECPT(29) = Z4 Z4 REAL C ECPT(30) = COORD SYS ID 5 ISYS5 INTEGER C ECPT(31) = X5 X5 REAL C ECPT(32) = Y5 Y5 REAL C ECPT(33) = Z5 Z5 REAL C ECPT(34) = COORD SYS ID 6 ISYS6 INTEGER C ECPT(35) = X6 XL REAL C ECPT(36) = Y6 Y6 REAL C ECPT(37) = Z6 Z6 REAL C ECPT(38) = COORD SYS ID 7 ISYS7 INTEGER C ECPT(39) = X7 X7 REAL C ECPT(40) = Y7 Y7 REAL C ECPT(41) = Z7 Z7 REAL C ECPT(42) = COORD SYS ID 8 ISYS8 INTEGER C ECPT(43) = X8 X8 REAL C ECPT(44) = Y8 Y8 REAL C ECPT(45) = Z8 Z8 REAL C ECPT(46) = ELEMENT TEMP TTEMP REAL C REAL KX,KY DIMENSION G(9),QQ(15),XI(8),ETA(8),XY1(3),XY2(3),BT(12), 1 ECPT(1),TEMPAR(8),DNX(1),DNY(1),IZ(1),DNXI(1), 2 DNETA(1),TEMP(8),PG(1),DN(8),IWS(2,3), 3 VEC(3),VVEC(3),VECI(3),VECJ(3),VECK(3),E1T(6) COMMON /TRANX / Z(14) COMMON /TRIMEX/ NECPT(1),NGRID(8),ID1,TH,MATID1,T,ISYS1,X1,Y1,Z1, 1 ISYS2,X2,Y2,Z2,ISYS3,X3,Y3,Z3,ISYS4,X4,Y4,Z4, 2 ISYS5,X5,Y5,Z5,ISYS6,X6,Y6,Z6,ISYS7,X7,Y7,Z7, 3 ISYS8,X8,Y8,Z8,TTEMP,SAVE(16),RTSIDE(3),TEMPAV, 4 ALPHAS(3),XX(16),DNC(16),DNL(16),XXJB(2,2), 5 XJB(4),PT(3),H(3),G,BT,DETERM,DUMARG COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 TREF,GE,KX,KY,C EQUIVALENCE (ECPT(1),NECPT(1)),(Z(1),IZ(1)),(QQ(1),G11), 1 (DNC(1),DNXI(1)),(DNC(9),DNETA(1)), 2 (DNL(1),DNX(1)),(DNL(9),DNY(1)), 3 (TEMPAR(1),BT(1)),(XY1(1),X1),(XY2(1),X2) DATA XI / -1., 1., 1., -1., 0., 1., 0., -1./ DATA ETA / -1.,-1., 1., 1.,-1., 0., 1., 0./ C C UNIT I VECTOR IS FROM GRID POINT 1 TO GRID POINT 2 C DO 20 I = 1,3 VECI(I) = XY2(I) - XY1(I) 20 CONTINUE VECIL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2) IF (VECIL .EQ. 0.0) GO TO 40 VECI(1) = VECI(1)/VECIL VECI(2) = VECI(2)/VECIL VECI(3) = VECI(3)/VECIL C C K VECTOR IS OBTAINED BY CROSSING I INTO VECTOR FROM GRID PT. 1 TO C GRID C VECK(1) = VECI(2)*(Z4-Z1) - VECI(3)*(Y4-Y1) VECK(2) = VECI(3)*(X4-X1) - VECI(1)*(Z4-Z1) VECK(3) = VECI(1)*(Y4-Y1) - VECI(2)*(X4-X1) VECKL = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2) IF (VECKL .EQ. 0.0) GO TO 40 VECK(1) = VECK(1)/VECKL VECK(2) = VECK(2)/VECKL VECK(3) = VECK(3)/VECKL C C J VECTOR IS OBTAINED BY CROSSING K INTO I C VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2) VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3) VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1) C E1T(1) = VECI(1) E1T(2) = VECI(2) E1T(3) = VECI(3) E1T(4) = VECJ(1) E1T(5) = VECJ(2) E1T(6) = VECJ(3) C C STORE ELEMENT COORDS FOR GRIDS 1 AND 2 C XX(1) = 0. XX(2) = 0. XX(3) = VECIL XX(4) = 0. C C FOR GRIDS 3-8, THE X COORDINATE IS THE DOT PRODUCT OF HTE VECTOR C FROM THE GRID POINT TO C GRID POINT 1 TO THE GRID POINT AND THE I VECTOR. THE Y COORD. IS C THE L OF THE I VECTOR CROSSED INTO THE VECTOR FROM GRID 1 TO THE C GRID POINT. C DO 30 I = 3,8 IXX = 2*I - 1 ISUB = 4*I + 11 VEC(1) = ECPT(ISUB ) - X1 VEC(2) = ECPT(ISUB+1) - Y1 VEC(3) = ECPT(ISUB+2) - Z1 XX(IXX) = VEC(1)*VECI(1) + VEC(2)*VECI(2) + VEC(3)*VECI(3) VVEC(1) = VECI(2)*VEC(3) - VECI(3)*VEC(2) VVEC(2) = VECI(3)*VEC(1) - VECI(1)*VEC(3) VVEC(3) = VECI(1)*VEC(2) - VECI(2)*VEC(1) XX(IXX+1) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2) 30 CONTINUE GO TO 150 C C INAPPROPRIATE GEOMETRY C 40 CALL MESAGE (-30,31,ECPT(1)) C C COMPUTE MATERIAL PROPERTIES C 150 TTH = TH*3.1415927/180. SINTH = SIN(TTH) COSTH = COS(TTH) INFLAG= 2 MATID = MATID1 C C ZERO OUT SOME MATRICES C DO 225 I = 1,16 225 SAVE(I) = 0. C PT(1) =-0.57735027 PT(2) =-PT(1) H(1) = 1. H(2) = 1. IF (ID1 .EQ. 2) GO TO 226 PT(1) =-0.77459667D0 PT(2) = 0.D0 PT(3) =-PT(1) H(1) = 5.0/9.0 H(2) = 8.0/9.0 H(3) = H(1) C C 2 OR 3 QUADRATURE POINTS C 226 DO 255 III = 1,ID1 DO 255 JJJ = 1,ID1 C C COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA C EACH GRID POINT C DO 230 N = 1,4 DN(N) = 0.25*(1.+PT(III)*XI(N))*(1.+PT(JJJ)*ETA(N))* 1 (PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.) DNXI(N) = 0.25*XI(N)*(1.+PT(JJJ)*ETA(N))* 1 (2.*PT(III)*XI(N)+PT(JJJ)*ETA(N)) DNETA(N)= 0.25*ETA(N)*(1.+PT(III)*XI(N))* 1 (PT(III)*XI(N)+2.*PT(JJJ)*ETA(N)) 230 CONTINUE C DO 231 N = 5,7,2 DN(N) = 0.5*(1.-PT(III)*PT(III))*(1.+PT(JJJ)*ETA(N)) DNXI(N) =-PT(III)*(1.+PT(JJJ)*ETA(N)) DNETA(N)= 0.5*(1.-PT(III)*PT(III))*ETA(N) 231 CONTINUE C DO 232 N = 6,8,2 DN(N) = 0.5*(1.+PT(III)*XI(N))*(1.-PT(JJJ)*PT(JJJ)) DNXI(N) = 0.5*XI(N)*(1.-PT(JJJ)*PT(JJJ)) DNETA(N)=-PT(JJJ)*(1.+PT(III)*XI(N)) 232 CONTINUE C C COMPUTE JACOBEAN C C N1XI N2XI N3XI N4XI N5XI N6XI N7XI N8XI C DNC = N1ETA N2ETA N3ETA N4ETA N5ETA N6ETA N7ETA N8ETA C C X1 Y1 C X2 Y2 C X3 Y3 C XX = X4 Y4 C X5 Y5 C X6 Y6 C X7 Y7 C X8 Y8 C CALL GMMATS (DNC,2,8,0, XX,8,2,0, XJB) C C XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED C FOR INVERSION C K = 0 DO 240 I = 1,2 DO 240 J = 1,2 K = K + 1 240 XXJB(I,J) = XJB(K) C C COMPUTE INVERSE AND DETERMINANT OF JACOBEAN C CALL INVERS (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS) IF (ISING .EQ. 2) CALL MESAGE (-30,143,ECPT(1)) C C COMPUTE DERIVATIVES WITH RESPECT TO X,Y,AND Z C K = 0 DO 245 I = 1,2 DO 245 J = 1,2 K = K + 1 245 XJB(K) = XXJB(I,J) CALL GMMATS (XJB,2,2,0, DNC,2,8,0, DNL) C C N1X N2X N3X N4X N5X N6X N7X N8X C DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y C COEF = DETERM*H(III)*H(JJJ) C C COMPUTE GAUSS POINT TEMPERATURE C GSTEMP = 0. DO 234 N = 1,8 GSTEMP = GSTEMP + DN(N)*(TEMP(N)) 234 CONTINUE C C GSTEMP IS THE GAUSS POINT TEMPERATURE. FIND MATERIAL PROPERTIES C BASED ON THIS TEMPERATURE. IF SAME AS PREVIOUS TEMPERATURE,DO NOT C RECOMPUTE. C LLL = III*JJJ IF (LLL .EQ. 1) GO TO 236 IF (GSTEMP .EQ. ELTEMP) GO TO 237 236 ELTEMP = GSTEMP CALL MAT (ECPT(1)) DO 160 I = 1,3 160 G(I) = QQ(I) G(4) = QQ(2) G(5) = QQ(4) G(6) = QQ(5) G(7) = QQ(3) G(8) = QQ(5) G(9) = QQ(6) ALPHAS(1) = ALPHA1 ALPHAS(2) = ALPHA2 ALPHAS(3) = ALP12 C CALL GMMATS (G,3,3,0, ALPHAS,3,1,0, RTSIDE) C C COMPUTE RELATIVE GAUSS POINT TEMPERATURE C RGTEMP = GSTEMP - TREF C 237 CONTINUE C COEF = COEF*RGTEMP C C SET UP BT C DO 239 KK = 1,8 C DO 238 I = 1,6 238 BT(I) = 0. C BT(1) = DNX(KK) BT(3) = DNY(KK) BT(5) = BT(3) BT(6) = BT(1) C CALL GMMATS (BT,2,3,0, RTSIDE,3,1,0, TEMPAR(7)) C C ADD TO PREVIOUS RESULTS C SAVE(2*KK-1) = SAVE(2*KK-1) + TEMPAR(7)*COEF SAVE(2*KK ) = SAVE(2*KK ) + TEMPAR(8)*COEF C C CONTINUE FOR MORE GRID POINTS C 239 CONTINUE C C CONTINUE FOR MORE GAUSS POINTS C 255 CONTINUE C C TRANSFORMATIONS AND ADD TO OVERALL VECTOR C DO 350 KK = 1,8 TEMPAR(7) = SAVE(2*KK-1) TEMPAR(8) = SAVE(2*KK ) C C CONVERT FROM ELEMENT COORDINATES TO BASIC C CALL GMMATS (E1T,2,3,1, TEMPAR(7),2,1,0, TEMPAR(1)) ISUB = 4*KK + 10 IF (NECPT(ISUB) .EQ. 0) GO TO 300 C C MUST TRANSFORM FROM BASIC COORDS TO GLOBAL C CALL BASGLB (TEMPAR(1),TEMPAR(1),ECPT(ISUB+1),NECPT(ISUB)) C C ADD THIS VECTOR TO OVERALL LOAD VECTOR C 300 DO 310 I = 1,3 L = NGRID(KK) + I - 1 310 PG(L) = PG(L) + TEMPAR(I)*T C C GET ANOTHER PARTITION C 350 CONTINUE RETURN END ================================================ FILE: mis/tker.f ================================================ SUBROUTINE TKER (X0,Y0,Z0,KR,BR,SGR,CGR,SGS,CGS,T1,T2,M) C C COMPUTES EITHER THE TOTAL KERNELS (IND=0) USED IN THE CALCULATION C OF A FINITE LENGTH DOUBLET LINE, OR C THE INCREMENTAL OSCILLATORY KERNELS (IND=1) USED IN EVALUATING C THE INFLUENCE COEFFICIENT MATRIX ELEMENTS C REAL M,KR,I00R,I00I,J00R,J00I,I10R,I10I,I20R3,I20I3,I0UR, 1 I0UI,J0UR,J0UI,I1UR,I1UI,I2UR3,I2UI3,K1,MU1,MU,K2, 2 K10,K20,K1RT1,K1IT1,K2RT2P,K2IT2P,K10T1,K20T2P,KD1R, 3 KD1I, KD2R,KD2I COMMON /DLM/ K10,K20,K1RT1,K1IT1,K2RT2P,K2IT2P,K10T1,K20T2P COMMON /KDS/ IND,KD1R,KD1I,KD2R,KD2I C EPS = 0.00001 K10 = 0.0 K20 = 0.0 K1RT1 = 0.0 K1IT1 = 0.0 K2RT2P = 0.0 K2IT2P = 0.0 K10T1 = 0.0 K20T2P = 0.0 R1 = SQRT(Y0*Y0 + Z0*Z0) R1S = R1 IF (ABS(R1) .GT. EPS) GO TO 200 IF (X0) 905,120,120 120 C1 = KR*X0/BR T1 = CGR*CGS + SGR*SGS K10 = 2.0 K1RT1 = 2.0*T1*COS(C1) K1IT1 =-2.0*T1*SIN(C1) K10T1 = 2.0*T1 GO TO 905 200 C1 = CGR C2 = SGR C3 = CGS C4 = SGS T2P = (Z0*Z0*C1*C3 + Y0*Y0*C2*C4 - Z0*Y0*(C2*C3+C1*C4)) T2 = (100.*T2P)/(BR*BR) IF (ABS(T2)-EPS) 210,220,220 210 ICHUZ = 1 T1 = CGR*CGS + SGR*SGS T2 = 0.0 GO TO 300 220 T1 = CGR*CGS + SGR*SGS IF (ABS(T1)-EPS) 230,240,240 230 ICHUZ = 2 T1 = 0. GO TO 300 240 ICHUZ = 3 300 BETA2 = (1.-M*M) BIGR = SQRT(X0*X0 + BETA2*R1*R1) K1 = KR*R1/BR MU1 = (M*BIGR-X0)/(BETA2*R1) MU = ABS(MU1) K2 = K1*K1 IF (MU1) 310,320,330 310 ICHUZ = ICHUZ + 3 GO TO 330 320 ICHUZ = ICHUZ + 6 C C (N*C)**2 FOR N = 1,11 AND C = .372 = C C .138384 .553536 1.245456 2.214144 C 3.4596 4.981824 6.780816 8.856576 C 11.209104 13.8384 16.744464 C C (N*C) FOR N = 1,12 AND 14,16,18,20,22 = C C .744 1.116 1.488 1.86 2.232 C 2.604 2.976 3.348 3.72 4.092 C 4.464 5.208 5.952 6.696 7.44 C 8.184 C C A(N) FOR N = 1,11 = C C .24186198 -2.7918027 24.991079 -111.59196 C 271.43549 -305.75288 -41.18363 545.98537 C -644.78155 328.72755 -64.279511 C 330 CONTINUE EXARG = -0.372*MU C C THE FOLLOWING TEST ON THE SIZE OF THE ARGUMENT TO EXP IS C NEEDED TO AVOID UNDERFLOW IN SUBPROGRAM EXP C IF (EXARG .GE. -180.0) GO TO 335 E = 0.0 GO TO 337 335 E = EXP(EXARG) 337 CONTINUE C1 = 0.138384 + K2 C2 = 0.553536 + K2 C3 = 1.245456 + K2 C4 = 2.214144 + K2 C5 = 3.4596 + K2 C6 = 4.981824 + K2 C7 = 6.780816 + K2 C8 = 8.856576 + K2 C9 = 11.209104 + K2 C10 = 13.8384 + K2 C11 = 16.744464 + K2 R1 = .24186198 / C1 R2 =-2.7918027 / C2 R3 = 24.991079 / C3 R4 =-111.59196 / C4 R5 = 271.43549 / C5 R6 =-305.75288 / C6 R7 =-41.18363 / C7 R8 = 545.98537 / C8 R9 =-644.78155 / C9 R10 = 328.72755 / C10 R11 =-64.279511 / C11 IF (ICHUZ .LT. 4) GO TO 340 I00R = .372*(R1 + 2.*R2 + 3.*R3 + 4.*R4 + 5.*R5 + 6.*R6 + 7.*R7 + 1 8.*R8 + 9.*R9 + 10.*R10 + 11.*R11) I00I =-K1*(R1 + R2 + R3 + R4 + R5 + R6 + R7 + R8 + R9 + R10 + R11) 340 GO TO (420,350,350,390,350,350,380,350,350), ICHUZ 350 Q1 = R 1/ C1 Q2 = R 2/ C2 Q3 = R 3/ C3 Q4 = R 4/ C4 Q5 = R 5/ C5 Q6 = R 6/ C6 Q7 = R 7/ C7 Q8 = R 8/ C8 Q9 = R 9/ C9 Q10 = R10/C10 Q11 = R11/C11 GO TO (420,410,410,390,360,360,380,360,360), ICHUZ 360 J00R = Q1*(.138384-K2)+Q2*(.553536-K2)+Q3*(1.245456-K2)+Q4* 1 (2.214144-K2)+Q5*(3.4596-K2)+Q6*(4.981824-K2)+Q7*(6.780816 2 -K2)+Q8*(8.856576-K2)+Q9*(11.209104-K2)+Q10*(13.8384-K2)+ 3 Q11*(16.744464-K2) I20R3 = 2.+K1*I00I+K2*J00R GO TO (420,410,410,390,410,390,380,370,370),ICHUZ 370 J00I = -K1*(.744*Q1+1.488*Q2+2.232*Q3+2.976*Q4+3.72*Q5+4.464*Q6+ 1 5.208*Q7+5.952*Q8+6.696*Q9+7.44*Q10+8.184*Q11) I20I3 = -K1*I00R+K2*J00I IF (ICHUZ .EQ. 8) GO TO 500 380 I10I = -K1*I00R 390 I10R = 1.+ K1*I00I GO TO (420,410,410,420,410,410,500,500,500), ICHUZ 410 J0UR = E*(Q1*(0.138384 - K2 + 0.372*MU*C1) + 1 E*(Q2*(0.553536 - K2 + 0.744*MU*C2) + 2 E*(Q3*(1.245456 - K2 + 1.116*MU*C3) + 3 E*(Q4*(2.214144 - K2 + 1.488*MU*C4) + 4 E*(Q5*(3.4596 - K2 + 1.860*MU*C5) + 5 E*(Q6*(4.981824 - K2 + 2.232*MU*C6) + 6 E*(Q7*(6.780816 - K2 + 2.604*MU*C7) + 7 E*(Q8*(8.856576 - K2 + 2.976*MU*C8) + 8 E*(Q9*(11.209104- K2 + 3.348*MU*C9) + 9 E*(Q10*(13.8384 - K2 + 3.72*MU*C10) + O E*(Q11*(16.744464-K2 + 4.092*MU*C11)))))))))))) J0UI = -K1*(E*(Q1*(0.744 + MU*C1) + E*(Q2*(1.488 + MU*C2) + 1 E*(Q3*(2.232 + MU*C3) + E*(Q4*(2.976 + MU*C4) + 2 E*(Q5*(3.720 + MU*C5) + E*(Q6*(4.464 + MU*C6) + 3 E*(Q7*(5.208 + MU*C7) + E*(Q8*(5.952 + MU*C8) + 4 E*(Q9*(6.696 + MU*C9) + E*(Q10*(7.44 + MU*C10)+ 5 E*(Q11*(8.184+ MU*C11))))))))))))) 420 I0UR = .372*E*(R1+E*(2.*R2+E*(3.*R3+E*(4.*R4+E*(5.*R5+E*(6.*R6+ 1 E*(7.*R7+E*(8.*R8+E*(9.*R9+E*(10.*R10+E*11.*R11)))))) 2 )))) I0UI = -K1*(E*(R1+E*(R2+E*(R3+E*(R4+E*(R5+E*(R6+E*(R7+E*(R8+E*(R9 1 +E*(R10+E*R11))))))))))) R1 = R1S C6 = K1*MU C1 = SIN(C6) C2 = COS(C6) C3 = SQRT(1.+MU*MU) C4 = MU/C3 C5 = C4/(1.+MU*MU) GO TO (430,440,430,430,440,430,500,500,500), ICHUZ 430 I1UR = C2*(1.-C4+K1*I0UI) - C1*K1*I0UR I1UI =-C2*K1*I0UR - C1*(1.-C4+K1*I0UI) GO TO (500,440,440,460,440,440,500,500,500), ICHUZ 440 I2UR3 = C2*(2.*(1.-C4)-C5+K1*I0UI+K2*J0UR)+C1*(C6*(1.-C4)-K1*I0UR 1 + K2*J0UI) I2UI3 = C2*(C6*(1.-C4)-K1*I0UR+K2*J0UI)-C1*(2.*(1.-C4)-C5+K1*I0UI 1 + K2*J0UR) GO TO (500,500,500,460,450,450,500,500,500), ICHUZ 450 I2UR3 = 2.0*I20R3 - I2UR3 IF (ICHUZ-6) 500,460,500 460 CAR = 2.*I10R - I1UR I1UR = CAR 500 DK1R = 0. R1 = R1S DK1I = 0. DK2R = 0. DK2I = 0. C3 = K1*MU1 C1 = COS(C3) C2 = SIN(C3) C3 = M*R1/BIGR C4 = SQRT(1.+MU1*MU1) C5 = KR*X0/BR C6 = COS(C5) C7 = SIN(C5) GO TO (530,540,530,530,540,530,510,520,510), ICHUZ 510 I1UR = I10R I1UI = I10I IF (ICHUZ-7) 520,530,520 520 I2UR3 = I20R3 I2UI3 = I20I3 IF (ICHUZ-8) 530,540,530 530 CK1R = I1UR + C3*C1/C4 CK1I = I1UI - C3*C2/C4 K10 = 1.0 + X0/BIGR DK1R = CK1R*C6 + CK1I*C7 DK1I = CK1I*C6 - CK1R*C7 GO TO (900,540,540,900,540,540,900,540,540), ICHUZ 540 C8 = (BETA2*(R1/BIGR)**2 + (2.+MU1*C3)/(C4*C4))*(-C3/C4) C9 = (K1*C3)*( C3/C4) CK2R = -I2UR3 + C8*C1 - C9*C2 CK2I = -I2UI3 - C9*C1 - C8*C2 K20 = -2.0 - X0*(2.0+BETA2*(R1/BIGR)**2)/BIGR DK2R = CK2R*C6 + CK2I*C7 DK2I = CK2I*C6 - CK2R*C7 900 CONTINUE K1RT1 = T1 *DK1R K1IT1 = T1 *DK1I K2RT2P = T2P*DK2R K2IT2P = T2P*DK2I K10T1 = K10*T1 K20T2P = K20*T2P 905 CONTINUE KD1R = K1RT1 - K10T1*FLOAT(IND) KD1I = K1IT1 KD2R = K2RT2P - K20T2P*FLOAT(IND) KD2I = K2IT2P RETURN END ================================================ FILE: mis/tktztk.f ================================================ SUBROUTINE TKTZTK(TK,Z,NZ,L,M,N) C C THIS ROUTINE PERFORMS A COORDINATE TRANSFORMATION ON THE C SYMMETRIC HALF OF A 3 BY 3 MATRIX C DOUBLE PRECISION TK(3,3),Z(1) TK(1,1)=Z(NZ )*Z(L )+Z(NZ+3)*Z(L+1)+Z(NZ+6)*Z(L+2) TK(2,1)=Z(NZ+1)*Z(L )+Z(NZ+4)*Z(L+1)+Z(NZ+7)*Z(L+2) TK(3,1)=Z(NZ+2)*Z(L )+Z(NZ+5)*Z(L+1)+Z(NZ+8)*Z(L+2) TK(1,2)=Z(NZ )*Z(L+1)+Z(NZ+3)*Z(M )+Z(NZ+6)*Z(M+1) TK(2,2)=Z(NZ+1)*Z(L+1)+Z(NZ+4)*Z(M )+Z(NZ+7)*Z(M+1) TK(3,2)=Z(NZ+2)*Z(L+1)+Z(NZ+5)*Z(M )+Z(NZ+8)*Z(M+1) TK(1,3)=Z(NZ )*Z(L+2)+Z(NZ+3)*Z(M+1)+Z(NZ+6)*Z(N ) TK(2,3)=Z(NZ+1)*Z(L+2)+Z(NZ+4)*Z(M+1)+Z(NZ+7)*Z(N ) TK(3,3)=Z(NZ+2)*Z(L+2)+Z(NZ+5)*Z(M+1)+Z(NZ+8)*Z(N ) Z(L )=Z(NZ )*TK(1,1)+Z(NZ+3)*TK(1,2)+Z(NZ+6)*TK(1,3) Z(L+1)=Z(NZ )*TK(2,1)+Z(NZ+3)*TK(2,2)+Z(NZ+6)*TK(2,3) Z(L+2)=Z(NZ )*TK(3,1)+Z(NZ+3)*TK(3,2)+Z(NZ+6)*TK(3,3) Z(M )=Z(NZ+1)*TK(2,1)+Z(NZ+4)*TK(2,2)+Z(NZ+7)*TK(2,3) Z(M+1)=Z(NZ+1)*TK(3,1)+Z(NZ+4)*TK(3,2)+Z(NZ+7)*TK(3,3) Z(N )=Z(NZ+2)*TK(3,1)+Z(NZ+5)*TK(3,2)+Z(NZ+8)*TK(3,3) RETURN END ================================================ FILE: mis/tldrs.f ================================================ SUBROUTINE TLDRS (OFFSET,II,TRANS,TRANS1) C C & ENTRY TLDRD (DFFSET,II,TRAND,TRAND1) C C MODIFIED TO INCLUDE THE EFFECTS OF OFFSET C REAL TRANS(1),TRANS1(36),OFFSET DOUBLE PRECISION TRAND(1),TRAND1(36),DFFSET C C SINGLE PRECISION - C DO 10 I = 1,36 10 TRANS1(I) = 0.0 C IPOINT = 9*(II-1) C DO 30 I = 1,3 JPOINT = 6*(I-1) KPOINT = JPOINT + 21 LPOINT = 3*(I-1) + IPOINT C DO 20 J = 1,3 TRANS1(JPOINT+J) = TRANS(LPOINT+J) TRANS1(KPOINT+J) = TRANS(LPOINT+J) 20 CONTINUE 30 CONTINUE C IF (OFFSET .EQ. 0.0) GO TO 100 TRANS1(4) = OFFSET*TRANS(IPOINT+4) TRANS1(5) = OFFSET*TRANS(IPOINT+5) TRANS1(6) = OFFSET*TRANS(IPOINT+6) TRANS1(10)=-OFFSET*TRANS(IPOINT+1) TRANS1(11)=-OFFSET*TRANS(IPOINT+2) TRANS1(12)=-OFFSET*TRANS(IPOINT+3) GO TO 100 C ENTRY TLDRD (DFFSET,II,TRAND,TRAND1) C ==================================== C C DOUBLE PRECISION - C DO 60 I = 1,36 60 TRAND1(I) = 0.0D0 C IPOINT = 9*(II-1) C DO 80 I = 1,3 JPOINT = 6*(I-1) KPOINT = JPOINT + 21 LPOINT = 3*(I-1) + IPOINT C DO 70 J = 1,3 TRAND1(JPOINT+J) = TRAND(LPOINT+J) TRAND1(KPOINT+J) = TRAND(LPOINT+J) 70 CONTINUE 80 CONTINUE C IF (DFFSET .EQ. 0.0D0) GO TO 100 TRAND1(4) = DFFSET*TRAND(IPOINT+4) TRAND1(5) = DFFSET*TRAND(IPOINT+5) TRAND1(6) = DFFSET*TRAND(IPOINT+6) TRAND1(10)=-DFFSET*TRAND(IPOINT+1) TRAND1(11)=-DFFSET*TRAND(IPOINT+2) TRAND1(12)=-DFFSET*TRAND(IPOINT+3) 100 RETURN END ================================================ FILE: mis/tlodm6.f ================================================ SUBROUTINE TLODM6 (TI) C C THERMAL LOAD VECTOR FOR TRIM6 (LINEAR STRAIN MEMBRANE TRIANGLE) C ELEMENT C C EST ENTRIES C C EST ( 1) = ELEMENT ID INTEGER C EST ( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1 INTEGER C EST ( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2 INTEGER C EST ( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3 INTEGER C EST ( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4 INTEGER C EST ( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5 INTEGER C EST ( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6 INTEGER C EST ( 8) = THETA REAL C EST ( 9) = MATERIAL IDENTIFICATION NUMBER INTEGER C EST (10) = THICKNESS T1 AT GRID POINT 1 REAL C EST (11) = THICKNESS T3 AT GRID POINT 3 REAL C EST (12) = THICKNESS T5 AT GRID POINT 5 REAL C EST (13) = NON-STRUCTURAL MASS REAL C X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM C C EST (14) = CO-ORDINATE SYSTEM ID FOR GRID POINT 1 INTEGER C EST (15) = CO-ORDINATE X1 REAL C EST (16) = CO-ORDINATE Y1 REAL C EST (17) = CO-ORDINATE Z1 REAL C EST (18) = CO-ORDINATE SYSTEM ID FOR GRID POINT 2 INTEGER C EST (19) = CO-ORDINATE X2 REAL C EST (20) = CO-ORDINATE Y2 REAL C EST (21) = CO-ORDINATE Z2 REAL C EST (22) = CO-ORDINATE SYSTEM ID FOR GRID POINT 3 INTEGER C EST (23) = CO-ORDINATE X3 REAL C EST (24) = CO-ORDINATE Y3 REAL C EST (25) = CO-ORDINATE Z3 REAL C EST (26) = CO-ORDINATE SYSTEM ID FOR GRID POINT 4 INTEGER C EST (27) = CO-ORDINATE X4 REAL C EST (28) = CO-ORDINATE Y4 REAL C EST (29) = CO-ORDINATE Z4 REAL C EST (30) = CO-ORDINATE SYSTEM ID FOR GRID POINT 5 INTEGER C EST (31) = CO-ORDINATE X5 REAL C EST (32) = CO-ORDINATE Y5 REAL C EST (33) = CO-ORDINATE Z5 REAL C EST (34) = CO-ORDINATE SYSTEM ID FOR GRID POINT 6 INTEGER C EST (35) = CO-ORDINATE X6 REAL C EST (36) = CO-ORDINATE Y6 REAL C EST (37) = CO-ORDINATE Z6 REAL C EST (38) TO EST (43) - ELEMENT TEMPERATURES AT SIX GRID POINTS C LOGICAL UNIMEM, UNITEM REAL IVECT(3), JVECT(3), KVECT(3), CC(3), DD(3), 1 G(9), G1(3), NAME(2), F(5,5), NSM, 2 XC(6), YC(6), ZC(6), Q(6,6), E(6), 3 TRANS(9), QINV(36), PTEM(12), PTELE(12),PTGLB(18), 4 PSUB(2), PSUBT(3), PSUBT1(3),TI(6) INTEGER XU(12), YU(12), XV(12), YV(12), SIL(6), 1 SIL1, RK(3), SK(3), TL(3), UL(3), 2 IND(6,3), ICS(6), IEST(45), NL(6) COMMON /TRIMEX/ EST(100) COMMON /ZZZZZZ/ PG(1) C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 C C EQUIVALENCE IEST WITH EST IN COMMON BLOCK /EMGEST/ SINCE EST IS C A MIXED INTEGER AND REAL ARRAY C EQUIVALENCE (IEST(1),EST(1)) EQUIVALENCE (A,DISTA),(B,DISTB),(C,DISTC),(CC(1),C1),(CC(2),C2), 1 (CC(3),C3),(DD(1),D1),(DD(2),D2),(DD(3),D3) DATA XU / 0,1,0,2,1,0,6*0/ , YU / 0,0,1,0,1,2,6*0/ DATA XV / 6*0,0,1,0,2,1,0/ , YV / 6*0,0,0,1,0,1,2/ DATA RK / 0,1,0 / , SK / 0,0,1 / DATA TL / 0,1,0 / , UL / 0,0,1 / DATA BLANK/ 4H / , NAME/ 4HTRIM, 4H6 / DATA DEGRA/ 0.0174532925 / C C ALLOCATE EST VALUES TO RESPECTIVE LOCAL VARIABLES C IDELE = IEST(1) DO 10 I = 1,6 NL(I) = IEST(I+1) 10 CONTINUE THETAM = EST(8) MATID1 = IEST(9) TMEM1 = EST(10) TMEM3 = EST(11) TMEM5 = EST(12) C C IF TMEM3 OR TMEM5 IS 0.0 OR BLANK,IT WILL BE SET EQUAL TO TMEM1 C IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1 C NSM = EST(13) C J = 0 DO 20 I = 14,34,4 J = J + 1 ICS(J) = IEST(I ) XC (J) = EST(I+1) YC (J) = EST(I+2) ZC (J) = EST(I+3) 20 CONTINUE C C TEMPERATURE AT THE THREE GRID POINTS ARE DENOTED BY TO1,TO3 AND C TO5 C TO1 = TI(1) TO3 = TI(3) TO5 = TI(5) C ELTEMP = (EST(38)+EST(39)+EST(40)+EST(41)+EST(42)+EST(43))/6.0 THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C CALCULATIONS FOR THE TRIANGLE C CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME) C C COMPUTE THE AREA INTEGRATION FUNCTION F, AND C EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR C THICKNESS VARIATION C CALL AF (F,5,A,B,C,C1,C2,C3,TMEM1,TMEM3,TMEM5,0) UNIMEM = .FALSE. IF (ABS(C2).LE.1.0E-06 .AND. ABS(C3).LE.1.0E-06) UNIMEM = .TRUE. C C CALCULATIONS FOR Q MATRIX AND ITS INVERSE C DO 30 I = 1,6 DO 30 J = 1,6 Q(I,J) = 0.0 30 CONTINUE DO 40 I = 1,6 Q(I,1) = 1.0 Q(I,2) = XC(I) Q(I,3) = YC(I) Q(I,4) = XC(I)*XC(I) Q(I,5) = XC(I)*YC(I) Q(I,6) = YC(I)*YC(I) 40 CONTINUE C C FIND INVERSE OF Q MATRIX C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (6,Q,6,QINV(1),0,DETERM,ISING,IND) C C ISING EQUAL TO 2 IMPLIES THAT Q MATRIX IS SINGULAR C C EVALUATE MATERIAL PROPERTIES AND FILL IN G MATRIX C MATFLG = 2 MATID = MATID1 CALL MAT (IDELE) G(1) = EM(1) G(2) = EM(2) G(3) = EM(3) G(4) = EM(2) G(5) = EM(4) G(6) = EM(5) G(7) = EM(3) G(8) = EM(5) G(9) = EM(6) C C G1 IS G TIMES ALFA C CALL GMMATS (G,3,3,0,ALF,3,1,0,G1) C C CALCULATION OF THERMAL LOAD VECTOR C C EVALUATE THE CONSTANTS D1,D2,D3 IN THE LINEAR EQUATION FOR C TEMPERATURE VARIATION OVER THE ELEMENT C T1BAR = TO1 - TREF T3BAR = TO3 - TREF T5BAR = TO5 - TREF C CALL AF (F,5,A,B,C,D1,D2,D3,T1BAR,T2BAR,T3BAR,1) UNITEM = .FALSE. IF (ABS(D2).LE.1.0E-06 .AND. ABS(D3).LE.1.0E-06) UNITEM = .TRUE. DO 90 I = 1,12 IX = XU(I) RIX = IX JX = YU(I) RJX = JX KX = XV(I) RKX = KX LX = YV(I) RLX = LX PTEMP = 0.0 DO 70 K = 1,3 IXR = IX + RK(K) JXS = JX + SK(K) KXR = KX + RK(K) LXS = LX + SK(K) DO 50 L = 1,3 IXRT = IXR + TL(L) JXSU1 = JXS + UL(L) + 1 KXRT1 = KXR + TL(L) + 1 LXSU = LXS + UL(L) IXRT1 = IXRT+ 1 JXSU = JXSU1 - 1 KXRT = KXRT1 - 1 LXSU1 = LXSU + 1 IF (IXRT .GT.0) PTEMP = PTEMP+CC(K)*DD(L)*G1(1)*RIX*F(IXRT ,JXSU1) IF (LXSU .GT.0) PTEMP = PTEMP+CC(K)*DD(L)*G1(2)*RLX*F(KXRT1,LXSU ) IF (JXSU .GT.0) PTEMP = PTEMP+CC(K)*DD(L)*G1(3)*RJX*F(IXRT1,JXSU ) IF (KXRT .GT.0) PTEMP = PTEMP+CC(K)*DD(L)*G1(3)*RKX*F(KXRT ,LXSU1) IF (UNITEM) GO TO 60 50 CONTINUE 60 CONTINUE IF (UNIMEM) GO TO 80 70 CONTINUE 80 CONTINUE PTEM(I) = PTEMP 90 CONTINUE C CALL GMMATS (Q,6,6,0,PTEM(1),6,1,0,PTELE(1)) CALL GMMATS (Q,6,6,0,PTEM(7),6,1,0,PTELE(7)) C C REORDER THE THERMAL LOAD VEC SO THAT THE DISPLACEMENTS OF A GRID C POINT ARE ARRANGED CONSECUTIVELY C DO 110 K = 1,6 DO 100 I = 1,2 K1 = 6*(I-1) + K I1 = 2*(K-1) + I PTEM(I1) = PTELE(K1) 100 CONTINUE 110 CONTINUE C C TRANSFORM THE THERMAL LOAD VECTOR PTEM FROM ELEMENT CO-ORDINATES C TO BASIC CO-ORDINATES C E(1) = IVECT(1) E(2) = JVECT(1) E(3) = IVECT(2) E(4) = JVECT(2) E(5) = IVECT(3) E(6) = JVECT(3) DO 120 I = 1,18 PTGLB(I) = 0.0 120 CONTINUE DO 130 I = 1,6 SIL(I) = I 130 CONTINUE DO 200 I = 1,6 SIL1 = SIL(I) DO 140 K = 1,2 K1 = (SIL1-1)*2 + K PSUB(K) = PTEM(K1) 140 CONTINUE CALL GMMATS (E,3,2,0,PSUB,2,1,0,PSUBT) C C TRANSFORM THE PSUBT ROM BASIC TO GLOBAL CO-ORDINATES C IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 160 K = 4*SIL1 + 10 CALL TRANSS (IEST(K),TRANS) CALL GMMATS (TRANS(1),3,3,1,PSUBT,3,1,0,PSUBT1) DO 150 K = 1,3 PSUBT(K) = PSUBT1(K) 150 CONTINUE 160 CONTINUE C C INSERT PTGLB IN GLOBAL LOAD VECTOR PG C DO 180 II = 1,3 I1 = (I-1)*3 + II I2 = IEST(I+1) + II - 1 PTGLB(I1) = PSUBT(II) PG(I2) = PG(I2) + PSUBT(II) 180 CONTINUE 200 CONTINUE RETURN END ================================================ FILE: mis/tlodsl.f ================================================ SUBROUTINE TLODSL (TREAL,TINT) C C ECPT ENTRIES C C ECPT ( 1) = ELEMENT ID INTEGER C ECPT ( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1 INTEGER C ECPT ( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2 INTEGER C ECPT ( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3 INTEGER C ECPT ( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4 INTEGER C ECPT ( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5 INTEGER C ECPT ( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6 INTEGER C ECPT ( 8) = THETA REAL C ECPT ( 9) = MATERIAL ID 1 INTEGER C ECPT (10) = THICKNESS T1 AT GRID POINT G1 C ECPT (11) = THICKNESS T3 AT GRID POINT G3 C ECPT (12) = THICKNESS T5 AT GRID POINT G5 C ECPT (13) = MATERIAL ID 2 INTEGER C ECPT (14) = THICKNESS TBEND1 FOR BENDING AT GRID POINT G1 C ECPT (15) = THICKNESS TBEND3 FOR BENDING AT GRID POINT G3 C ECPT (16) = THICKNESS TBEND5 FOR BENDING AT GRID POINT G5 C ECPT (17) = MATERIAL ID 3 INTEGER C ECPT (18) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID POINT G1 C ECPT (19) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID POINT G3 C ECPT (20) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID POINT G5 C ECPT (21) = NON-STRUCTURAL MASS REAL C ECPT (22) = DISTANCE Z11 FOR STRESS CALCULATION AT GRID POINT G1 C ECPT (23) = DISTANCE Z21 FOR STRESS CALCULATION AT GRID POINT G1 C ECPT (24) = DISTANCE Z13 FOR STRESS CALCULATION AT GRID POINT G3 C ECPT (25) = DISTANCE Z23 FOR STRESS CALCULATION AT GRID POINT G3 C ECPT (26) = DISTANCE Z15 FOR STRESS CALCULATION AT GRID POINT G5 C ECPT (27) = DISTANCE Z25 FOR STRESS CALCULATION AT GRID POINT G5 C C X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM C C ECPT (28) = CO-ORDINATE SYSTEM ID FOR GRID A INTEGER C ECPT (29) = CO-ORDINATE X1 REAL C ECPT (30) = CO-ORDINATE Y1 REAL C ECPT (31) = CO-ORDINATE Z1 REAL C ECPT (32) = CO-ORDINATE SYSTEM ID FOR GRID B INTEGER C ECPT (33) = CO-ORDINATE X1 REAL C ECPT (34) = CO-ORDINATE Y1 REAL C ECPT (35) = CO-ORDINATE Z1 REAL C ECPT (36) = CO-ORDINATE SYSTEM ID FOR GRID C INTEGER C ECPT (37) = CO-ORDINATE X1 REAL C ECPT (38) = CO-ORDINATE Y1 REAL C ECPT (39) = CO-ORDINATE Z1 REAL C ECPT (40) = CO-ORDINATE SYSTEM ID FOR GRID D INTEGER C ECPT (41) = CO-ORDINATE X1 REAL C ECPT (42) = CO-ORDINATE Y1 REAL C ECPT (43) = CO-ORDINATE Z1 REAL C ECPT (44) = CO-ORDINATE SYSTEM ID FOR GRID E INTEGER C ECPT (45) = CO-ORDINATE X1 REAL C ECPT (46) = CO-ORDINATE Y1 REAL C ECPT (47) = CO-ORDINATE Z1 REAL C ECPT (48) = CO-ORDINATE SYSTEM ID FOR GRID F INTEGER C ECPT (49) = CO-ORDINATE X1 REAL C ECPT (50) = CO-ORDINATE Y1 REAL C ECPT (51) = CO-ORDINATE Z1 REAL C EST (52) = ELEMENT TEMPERATURE C LOGICAL NOGO, NOTS, UNIBEN, UNITEM, UNIMEM INTEGER XU(32), YU(32), XV(32), YV(32), XW(32), 1 YW(32), RK(3), SK(3), ELID, ESTID, 2 TL(3), UL(3), QT(3), PT(3), XTHK(10), 3 YTHK(10), SMALL(6), TINT(6), ICS(6), IEST(42), 4 NL(6), IND(6,3), ELTYPE, SIL1, INDEX(20,3) REAL TREAL(6), G(9), G1(3), NAME(2), F(14,14), 1 XC(6), YC(6), ZC(6), TS6(40), EE(30), 2 Q(6,6), QQ(960), CC(10), CAB(3), P3(30), 3 P6(32), P7(30), P8(5), P9(6), PL(3), 4 DD(3), TRAND(9), PTEM(32), GE1(9), EL(3), 5 IVECT(3), JVECT(3), KVECT(3), 6 QQQ(20,20), QQQINV(360), BALOTR(36) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /TRIMEX/ EST(100) COMMON /ZZZZZZ/ PG(1) COMMON /SSGWRK/ IND,FAC,F,P3,P6,P7 COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 COMMON /SYSTEM/ IBUF,NOUT EQUIVALENCE (C1,CC(1)),(C2,CC(2)),(C3,CC(3)),(C4,CC(4)), 1 (C5,CC(5)),(C6,CC(6)),(C7,CC(7)),(C8,CC(8)), 2 (C9,CC(9)),(C10,CC(10)),(IEST(1),EST(1)), 3 (A,DISTA),(B,DISTB),(C,DISTC),(THK1,TBEND1), 4 (THK2,TBEND3),(THK3,TBEND5) DATA XU / 0,1,0,2,1,0,26*0/, YU/0,0,1,0,1,2,26*0 /, 1 XV / 6*0,0,1,0,2,1,0,20*0/ , YV/6*0,0,0,1,0,1,2,20*0/, 2 XW / 12*0,0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0 /, 3 YW / 12*0,0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5 / DATA BLANK , NAME / 4H , 4HTRSH,4HL / DATA RK,SK / 0,1,0, 0,0,1/, DEGRA /0.0174532925 / DATA XTHK / 0,1,0,2,1,0,3,2,1,0/, YTHK/ 0,0,1,0,1,2,0,1,2,3/ DATA TL / 0,1,0/, UL/0,0,1/, PT/0,1,0/, QT/0,0,1/ C C COMPONENT CODE,ICODE,IS 111111 AND HAS A VALUE OF 63 C NOTS = .FALSE. IDELE = IEST(1) DO 109 I = 1,6 NL(I) = IEST(I+1) 109 CONTINUE THETAM = EST (8) MATID1 = IEST(9) TMEM1 = EST(10) TMEM3 = EST(11) TMEM5 = EST(12) MATID2 = IEST(13) TBEND1 = (EST(14)*12.0)**0.3333333333 TBEND3 = (EST(15)*12.0)**0.3333333333 TBEND5 = (EST(16)*12.0)**0.3333333333 MATID3 = IEST(17) TSHR1 = EST(18) TSHR3 = EST(19) TSHR5 = EST(20) NSM = EST(21) J = 0 DO 120 I = 28,48,4 J = J + 1 ICS(J) = IEST(I) XC(J) = EST(I+1) YC(J) = EST(I+2) ZC(J) = EST(I+3) 120 CONTINUE C C IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK, THEY WILL BE C SET EQUAL TO TMEM1 SO ALSO FOR TSHR3,TSHR5,TBEND3 AND TBEND5 C T1PRIM = -TREAL(2) T3PRIM = -TREAL(2) T5PRIM = -TREAL(2) IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1 IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1 IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1 IF (TSHR1 .EQ. 0.0) NOTS = .TRUE. IF (TBEND3.EQ.0.0 .OR. TBEND3.EQ.BLANK) TBEND3 = TBEND1 IF (TBEND5.EQ.0.0 .OR. TBEND5.EQ.BLANK) TBEND5 = TBEND1 IF (T3PRIM.EQ.0.0 .OR. T3PRIM.EQ.BLANK) T3PRIM = T1PRIM IF (T5PRIM.EQ.0.0 .OR. T5PRIM.EQ.BLANK) T5PRIM = T1PRIM ELTEMP = EST(52) AVTHK = (TBEND1 + TBEND3 + TBEND5)/3.0 AVINER = AVTHK**3/12.0 THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C EVALUTE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 IF (MATID .LE. 0) GO TO 122 CALL MAT (IDELE) C G11 = EM(1) G12 = EM(2) G13 = EM(3) G22 = EM(4) G23 = EM(5) G33 = EM(6) GM1 = EM(1)*ALF(1) + EM(2)*ALF(2) + EM(3)*ALF(3) GM2 = EM(2)*ALF(1) + EM(4)*ALF(2) + EM(5)*ALF(3) GM3 = EM(3)*ALF(1) + EM(5)*ALF(2) + EM(6)*ALF(3) G11PR = 0.0 G22PR = 0.0 G33PR = 0.0 122 CONTINUE MATFLG = 2 MATID = MATID2 IF (MATID .LE. 0) GO TO 149 CALL MAT (IDELE) D11 = EM(1) D12 = EM(2) D13 = EM(3) D22 = EM(4) D23 = EM(5) D33 = EM(6) G(1) = EM(1) G(2) = EM(2) G(3) = EM(3) G(4) = EM(2) G(5) = EM(4) G(6) = EM(5) G(7) = EM(3) G(8) = EM(5) G(9) = EM(6) C C IF TINT(6).NE.1,G1 IS G AND T1PRIME IS ALPHA TIMES T1PRIME C IF TINT(6).EQ.1,G1 IS G TIMES ALPHA AND T1PRIME IS T1PRIME C IF (TINT(6) .NE. 1) GO TO 147 C C G1 IS G TIMES ALFA C CALL GMMATS (G,3,3,0, ALF,3,1,0, G1) C G11PR = G1(1) G22PR = G1(2) G33PR = G1(3) GO TO 149 147 CONTINUE DO 148 I = 1,9 148 GE1(I) = G(I)*AVINER C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY C ISING = -1 CALL INVERS (3,GE1(1),3,TS6(1),0,DETERM,ISING,INDEX) IF (ISING .EQ. 2) GO TO 905 CALL GMMATS (GE1,3,3,0, TREAL(2),3,1,0, PL(1)) 149 CONTINUE C C CALCULATIONS FOR THE TRIANGLE C CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME) C C COMPUTE THE AREA INTEGRATION FUNCTION F C CALL AF (F,14,A,B,C,0,0,0,0,0,0,-1) C C CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE C DO 110 I = 1,20 DO 110 J = 1,20 110 QQQ(I,J) = 0.0 DO 115 I = 1,6 I1 = (I-1)*3 + 1 I2 = (I-1)*3 + 2 I3 = (I-1)*3 + 3 QQQ(I1, 1) = 1.0 QQQ(I1, 2) = XC(I) QQQ(I1, 3) = YC(I) QQQ(I1, 4) = XC(I)*XC(I) QQQ(I1, 5) = XC(I)*YC(I) QQQ(I1, 6) = YC(I)*YC(I) QQQ(I1, 7) = QQQ(I1, 4)*XC(I) QQQ(I1, 8) = QQQ(I1, 4)*YC(I) QQQ(I1, 9) = QQQ(I1, 5)*YC(I) QQQ(I1,10) = QQQ(I1, 6)*YC(I) QQQ(I1,11) = QQQ(I1, 7)*XC(I) QQQ(I1,12) = QQQ(I1, 7)*YC(I) QQQ(I1,13) = QQQ(I1, 8)*YC(I) QQQ(I1,14) = QQQ(I1, 9)*YC(I) QQQ(I1,15) = QQQ(I1,10)*YC(I) QQQ(I1,16) = QQQ(I1,11)*XC(I) QQQ(I1,17) = QQQ(I1,12)*YC(I) QQQ(I1,18) = QQQ(I1,13)*YC(I) QQQ(I1,19) = QQQ(I1,14)*YC(I) QQQ(I1,20) = QQQ(I1,15)*YC(I) QQQ(I2, 3) = 1.0 QQQ(I2, 5) = XC(I) QQQ(I2, 6) = YC(I)*2.0 QQQ(I2, 8) = QQQ(I1, 4) QQQ(I2, 9) = QQQ(I1, 5)*2.0 QQQ(I2,10) = QQQ(I1, 6)*3.0 QQQ(I2,12) = QQQ(I1, 7) QQQ(I2,13) = QQQ(I1, 8)*2.0 QQQ(I2,14) = QQQ(I1, 9)*3.0 QQQ(I2,15) = QQQ(I1,10)*4.0 QQQ(I2,17) = QQQ(I1,12)*2.0 QQQ(I2,18) = QQQ(I1,13)*3.0 QQQ(I2,19) = QQQ(I1,14)*4.0 QQQ(I2,20) = QQQ(I1,15)*5.0 QQQ(I3, 2) =-1.0 QQQ(I3, 4) =-2.0*XC(I) QQQ(I3, 5) =-YC(I) QQQ(I3, 7) =-QQQ(I1, 4)*3.0 QQQ(I3, 8) =-QQQ(I1, 5)*2.0 QQQ(I3, 9) =-QQQ(I1, 6) QQQ(I3,11) =-QQQ(I1, 7)*4.0 QQQ(I3,12) =-QQQ(I1, 8)*3.0 QQQ(I3,13) =-QQQ(I1, 9)*2.0 QQQ(I3,14) =-QQQ(I1,10) QQQ(I3,16) =-QQQ(I1,11)*5.0 QQQ(I3,17) =-QQQ(I1,13)*3.0 QQQ(I3,18) =-QQQ(I1,14)*2.0 QQQ(I3,19) =-QQQ(I1,15) 115 CONTINUE QQQ(19,16) = 5.0*A**4*C QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2 QQQ(19,19) = C**5 - 4.0*A**2*C**3 QQQ(19,20) = 5.0*A*C**4 QQQ(20,16) = 5.0*B**4*C QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2 QQQ(20,19) = C**5 - 4.0*B**2*C**3 QQQ(20,20) =-5.0*B*C**4 DO 128 I = 1,6 DO 128 J = 1,6 I1 = (I-1)*3 + 1 Q(I,J) = QQQ(I1,J) 128 CONTINUE C C SET ISING = -1 C ISING = -1 CALL INVERS (6,Q,6,TS6(1),0,DETERM,ISING,IND) IF (ISING .EQ. 2) GO TO 904 C C FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1) I C C AGAIN SET ISING = -1 C ISING = -1 CALL INVERS (20,QQQ,20,TS6(1),0,DETERM,ISING,INDEX) C C ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR C IF (ISING .EQ. 2) GO TO 905 C C FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS C MATRIX CALCULATIONS C DO 153 I = 1,960 QQ(I) = 0.0 153 CONTINUE DO 154 I = 1,6 DO 154 J = 1,6 IJ = (I-1)*30 + J IK = (I+5)*30 + J + 6 QQ(IJ) = Q(I,J) QQ(IK) = Q(I,J) 154 CONTINUE DO 156 I = 1,20 DO 156 J = 1,18 IJ = 372 + (I-1)*30 + J QQ (IJ) = QQQ(I,J) IJ1 = (I-1)*18 + J QQQINV(IJ1) = QQQ(I,J) 156 CONTINUE C C START EXECUTION FOR STIFFNESS MATRIX CALCULATION C C CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES C C EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR C THICKNESS VARIATION - MEMBRANE C CALL AF (F,14,A,B,C,C1,C2,C3,TMEM1,TMEM3,TMEM5,1) CAB(1) = C1 CAB(2) = C2 CAB(3) = C3 AREA = F(1,1) VOL = C1*F(1,1) + C2*F(2,1) + C3*F(1,2) UNIBEN =.FALSE. UNIMEM =.FALSE. UNITEM =.FALSE. IF (ABS(C2).LE.1.0E-06 .AND. ABS(C3).LE.1.0E-06) UNIMEM =.TRUE. C D334 = D33*4.0 D132 = D13*2.0 D232 = D23*2.0 C C DD(1) TO DD(3) ARE THE CONSTANTS IN LINEAR EQUATION FOR TEMP C GRADIENT. CURRENTLY ONLY UNIFORM TEMP GRADIENT IS PERMITTED IN C THE ELEMENT, THOUGH THE CODE IS WRITTEN FOR LINEAR VARIATION C CALL AF (F,14,A,B,C,DD(1),DD(2),DD(3),T1PRIM,T3PRIM,T5PRIM,1) C C EL(1) TO EL(3) ARE THE CONSTANTS IN THE LINEAR EQUATION FOR C MEAN TEMP VARIATION C EL(1) = TREAL(1) - TREF EL(2) = 0.0 EL(3) = 0.0 C C A1,A2,A3 ARE THE COEFFICIENTS OF LINEAR EQUATION FOR VARIATION C OF BENDING THICKNESSES C CALL AF (F,14,A,B,C,A1,A2,A3,THK1,THK2,THK3,1) A1SQ = A1*A1 A2SQ = A2*A2 A3SQ = A3*A3 C1 = A1SQ*A1 C2 = 3.0*A1SQ*A2 C3 = 3.0*A1SQ*A3 C4 = 3.0*A1*A2SQ C5 = 6.0*A1*A2*A3 C6 = 3.0*A3SQ*A1 C7 = A2SQ*A2 C8 = 3.0*A2SQ*A3 C9 = 3.0*A2*A3SQ C10 = A3*A3SQ IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN =.TRUE. EL2 = EL(2) EL3 = EL(3) IF (ABS(EL2).LE.1.E-06 .AND. ABS(EL3).LE.1.E-06) UNITEM =.TRUE. C C AA1, AA2, AA3 ARE COEFFICIENTS IN THICKNESS VARIATION FOR C TRANSVERSE SHEAR C CALL AF (F,14,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,1) H4 = Q(4,1)*ZC(1) + Q(4,2)*ZC(2) + Q(4,3)*ZC(3) + Q(4,4)*ZC(4) + 1 Q(4,5)*ZC(5) + Q(4,6)*ZC(6) H5 = Q(5,1)*ZC(1) + Q(5,2)*ZC(2) + Q(5,3)*ZC(3) + Q(5,4)*ZC(4) + 1 Q(5,5)*ZC(5) + Q(5,6)*ZC(6) H6 = Q(6,1)*ZC(1) + Q(6,2)*ZC(2) + Q(6,3)*ZC(3) + Q(6,4)*ZC(4) + 1 Q(6,5)*ZC(5) + Q(6,6)*ZC(6) H4 = H4*2.0 H6 = H6*2.0 C C H5 IS MULTIPLIED BY 2.0, SO THAT EXY=DU/DY + DV/DX - ZXY*W C H5 = H5*2.0 C C CALCULATION OF THERMAL LOAD VECTOR C DO 670 I = 1,32 PTEM(I) = 0.0 IX = XU(I) RIX = IX JX = YU(I) RJX = JX KX = XV(I) RKX = KX LX = YV(I) RLX = LX MX = XW(I) RMX = MX NX = YW(I) RNX = NX RMNX = RMX*RNX RMX1 = RMX*(RMX-1.0) RNX1 = RNX*(RNX-1.0) IXP1 = IX + 1 JXP1 = JX + 1 KXP1 = KX + 1 LXP1 = LX + 1 MXP1 = MX + 1 NXP1 = NX + 1 MX01 = MX - 1 MX1 = MX + 1 NX01 = NX - 1 NX1 = NX + 1 PTEMP= 0.0 IF (I .LE. 12) GO TO 225 DO 215 K = 1,10 MX01X= MX01+ XTHK(K) NX1Y = NX1 + YTHK(K) MX1X = MX1 + XTHK(K) NX01Y= NX01+ YTHK(K) MXX = MX + XTHK(K) NXY = NX + YTHK(K) IF (TINT(6) .NE. 1) GO TO 213 DO 212 L = 1,3 MX01XP= MX01X+ PT(L) NX1YQ = NX1Y + QT(L) MX1XP = MX1X + PT(L) NX01YQ= NX01Y+ QT(L) MXXP = MXX + PT(L) NXYQ = NXY + QT(L) IF (MX01XP.GT.0 .AND. NX1YQ.GT.0) 1 PTEMP = PTEMP + CC(K)*DD(L)*G1(1)*RMX1*F(MX01XP,NX1YQ) IF (MX1XP.GT.0 .AND. NX01YQ.GT.0) 1 PTEMP = PTEMP + CC(K)*DD(L)*G1(2)*RNX1*F(MX1XP,NX01YQ) IF (MXXP.GT.0 .AND. NXYQ.GT.0) 1 PTEMP = PTEMP + CC(K)*DD(L)*G1(3)*RMNX*F(MXXP,NXYQ) IF (UNITEM) GO TO 213 212 CONTINUE 213 CONTINUE IF (TINT(6) .EQ. 1) GO TO 214 IF (MX01X .GT. 0) PTEMP = PTEMP + CC(K)*RMX1*(PL(1)*G(1) 1 + PL(2)*G(2) + PL(3)*G(3))*F(MX01X,NX1Y) IF (NX01Y .GT. 0) PTEMP = PTEMP + CC(K)*RNX1*(PL(1)*G(4) 1 + PL(2)*G(5) + PL(3)*G(6))*F(MX1X,NX01Y) IF (MXX.GT.0 .AND. NXY.GT.0) PTEMP = PTEMP + CC(K)*RMNX*(PL(1)* 1 G(7)+PL(2)*G(8)+PL(3)*G(9))*F(MXX,NXY) 214 CONTINUE IF (UNIBEN) GO TO 2150 215 CONTINUE 2150 CONTINUE PTEM(I) = PTEMP/12.0 GO TO 235 225 CONTINUE DO 263 K = 1,3 IXR = IX + RK(K) JXS = JX + SK(K) KXR = KX + RK(K) LXS = LX + SK(K) DO 262 L = 1,3 IXRT = IXR + TL(L) JXSU1 = JXS + UL(L) + 1 KXRT1 = KXR + TL(L) + 1 LXSU = LXS + UL(L) IXRT1 = IXRT + 1 JXSU = JXSU1 - 1 KXRT = KXRT1 - 1 LXSU1 = LXSU + 1 MKR1 = MX + KX + RK(K) - 1 NLS1 = NX + LX + SK(K) - 1 IF (IXRT .GT. 0) PTEMP = PTEMP +CAB(K)*EL(L)*GM1*RIX*F(IXRT,JXSU1) IF (LXSU .GT. 0) PTEMP = PTEMP +CAB(K)*EL(L)*GM2*RLX*F(KXRT1,LXSU) IF (JXSU .GT. 0) PTEMP = PTEMP +CAB(K)*EL(L)*GM3*RJX*F(IXRT1,JXSU) IF (KXRT .GT. 0) PTEMP = PTEMP +CAB(K)*EL(L)*GM3*RKX*F(KXRT,LXSU1) IF (MKR1.GT.0 .AND. NLS1.GT.0) PTEMP = PTEMP -(G11PR*H4*EL(L)* 1 CAB(K)*F(MKR1,NLS1))-(G22PR*H4*EL(L)*CAB(K)*F(MKR1,NLS1))- 2 (G33PR*H4*EL(L)*CAB(K)*F(MKR1,NLS1)) IF (UNITEM) GO TO 2620 262 CONTINUE 2620 CONTINUE IF (UNIMEM) GO TO 2630 263 CONTINUE 2630 CONTINUE PTEM(I) = PTEMP 235 CONTINUE 670 CONTINUE CALL GMMATS (QQ,32,30,+1,PTEM,32,1,0,P6) DO 179 I = 1,30 EE(I) = 0.0 179 CONTINUE EE( 1) = IVECT(1) EE( 2) = JVECT(1) EE( 3) = KVECT(1) EE( 6) = IVECT(2) EE( 7) = JVECT(2) EE( 8) = KVECT(2) EE(11) = IVECT(3) EE(12) = JVECT(3) EE(13) = KVECT(3) EE(19) = IVECT(1) EE(20) = JVECT(1) EE(24) = IVECT(2) EE(25) = JVECT(2) EE(29) = IVECT(3) EE(30) = JVECT(3) DO 278 K = 1,6 DO 277 I = 1,2 K1 = 6*(I-1) + K I1 = 5*(K-1) + I P7(I1) = P6(K1) 277 CONTINUE 278 CONTINUE DO 283 K = 1,6 DO 282 I = 1,3 I2 = 5*(K-1) + I + 2 K2 = 12 + (K-1)*3 + I P7(I2) = P6(K2) 282 CONTINUE 283 CONTINUE C C LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS C COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES C ARE ROTATED C - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO) C C TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC C COORDINATES C C TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINAYES TO GLOBAL (DISP) C COORDINATES C DO 302 I = 1,6 SMALL(I) = I 302 CONTINUE DO 308 I = 1,6 SIL1 = SMALL(I) DO 310 II = 1,36 BALOTR(II) = 0.0 310 CONTINUE DO 304 K = 1,5 K1 = (SIL1-1)*5 + K P8(K) = P7(K1) 304 CONTINUE CALL GMMATS (EE,6,5,0,P8,5,1,0,P9) C C TRANSFORM THE KSUB(36) FROM BASIC TO DISPLACEMENT COORDINATES C IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 330 JJ = 4*SIL1 + 24 CALL TRANSS (IEST(JJ),TRAND) DO 320 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+ 1) = TRAND(M+1) BALOTR(L+ 2) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 320 CONTINUE CALL GMMATS (BALOTR(1),6,6,1, P9(1),6,1,0, P6(1)) DO 350 K = 1,6 350 P9(K) = P6(K) 330 CONTINUE DO 370 II = 1,6 I2 = IEST(I+1) + II - 1 PG(I2) = PG(I2) + P9(II) 370 CONTINUE 308 CONTINUE GO TO 999 904 WRITE (NOUT,2416) UFM,IEST(1) GO TO 910 905 WRITE (NOUT,2417) UFM,IEST(1) 910 NOGO = .TRUE. GO TO 999 C 2416 FORMAT (A23,' 2416, MATRIX RELATING GENERALIZED PARAMETERS AND ', 1 'GRID POINT DISPLACEMENTS IS SINGULAR.',/26X, 2 'CHECK COORDINATES OF ELEMENT TRSHL WITH ID =',I9,1H.) 2417 FORMAT (A23,' 2417, A SINGULAR MATERIAL MATRIX FOR ELEMENT ID =', 1 I9,' HAS BEEN DETECTED BY SUBROUTINE TLODSL', /26X,'WHILE', 2 ' TRYING TO COMPUTE THERMAL LOADS WITH TEMPP2 CARD DATA.') 999 RETURN END ================================================ FILE: mis/tlodt1.f ================================================ SUBROUTINE TLODT1 (TREAL,TINT) C C THERMAL LOAD VECTOR FOR TRPLT1 (HIGHER ORDER PLATE BENDING ELEMENT C C ECPT ENTRIES C AS IN STIFFNESS ROUTINE KTRPL1 C LOGICAL NOGO,NOTS,UNIBEN,UNITEM INTEGER XPOWER(20),YPOWER(20),XTHK(10),YTHK(10),PT(3), 1 QT(3),SIL(6),SIL1,TINT(6) REAL IVECT,JVECT,KVECT DIMENSION F(10,10),XC(6),YC(6),ZC(6),QQQ(20,20),QQINV(360), 1 TS1(60),TS2(60),IEST(42),TREAL(6),TRAND(9),DD(3), 2 ICS(6),GE1(9),NAM(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SSGWRK/ X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,B1,B2,B3,G1(3), 1 D(3),E(18),IVECT(3),JVECT(3),KVECT(3),CC(10),G(9), 2 PTEM(20),PTELE(18),PTGLB(36),PSUB(3),PSUBT(6), 3 PSUBT1(6),TS6(40),NAME(2),INDEX(20,3),NL(6),TL(3), 4 BALOTR(36) COMMON /SYSTEM/ SYSBUF,IOUT COMMON /TRIMEX/ EST(100) COMMON /ZZZZZZ/ PG(1) C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY, 1 RJ11,RJ12,RJ22 C C EQUIVALENCE IECPT WITH ECPT IN COMMON BLOCK /SMA1ET/ SINCE ECPT IS C A MIXED INTEGER AND REAL ARRAY C EQUIVALENCE (THK1,TMEM1),(THK2,TMEM3),(THK3,TMEM5), 1 (A,DISTA),(B,DISTB),(C,DISTC),(IEST(1),EST(1)), 2 (C1,CC(1)),(C2,CC(2)),(C3,CC(3)),(C4,CC(4)), 3 (C5,CC(5)),(C6,CC(6)),(C7,CC(7)),(C8,CC(8)), 4 (C9,CC(9)),(C10,CC(10)),(D(1),D1),(D(2),D2), 5 (D(3),D3),(DD(1),D(1)) DATA BLANK , NAM / 4H , 4HTRPL, 4HT1 / DATA XPOWER/ 0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0/ DATA YPOWER/ 0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5/ DATA XTHK / 0,1,0,2,1,0,3,2,1,0 / DATA YTHK / 0,0,1,0,1,2,0,1,2,3 / DATA PT / 0,1,0 /, QT / 0,0,1/ DATA DEGRA / 0.0174532925 / C C NOTS = .FALSE. IDELE = IEST(1) DO 109 I = 1,6 NL(I) = IEST(I+1) 109 CONTINUE THETAM = EST(8) MATID1 = IEST(9) TMEM1 = (EST(10)*12.0)**0.333333333333 TMEM3 = (EST(11)*12.0)**0.333333333333 TMEM5 = (EST(12)*12.0)**0.333333333333 TSHR1 = EST(14) TSHR3 = EST(15) TSHR5 = EST(16) J = 0 DO 120 I = 24,44,4 J = J + 1 ICS(J) = IEST(I) XC(J) = EST(I+1) YC(J) = EST(I+2) ZC(J) = EST(I+3) 120 CONTINUE TEMP1 = TREAL(1) TEMP3 = TREAL(1) TEMP5 = TREAL(1) T1PRIM =-TREAL(2) T3PRIM =-TREAL(2) T5PRIM =-TREAL(2) C C IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK,THEY WILL BE SET EQUAL TO C SO ALSO FOR TEMP3 AND TEMP5 C IF (TMEM3.EQ.0.0 .OR. TMEM3 .EQ.BLANK) TMEM3 = TMEM1 IF (TMEM5.EQ.0.0 .OR. TMEM5 .EQ.BLANK) TMEM5 = TMEM1 IF (TEMP3.EQ.0.0 .OR. TEMP3 .EQ.BLANK) TEMP3 = TEMP1 IF (TEMP5.EQ.0.0 .OR. TEMP5 .EQ.BLANK) TEMP5 = TEMP1 IF (T3PRIM.EQ..0 .OR. T3PRIM.EQ.BLANK) T3PRIM = T1PRIM IF (T5PRIM.EQ..0 .OR. T5PRIM.EQ.BLANK) T5PRIM = T1PRIM IF (TSHR3.EQ.0.0 .OR. TSHR3 .EQ.BLANK) TSHR3 = TSHR1 IF (TSHR5.EQ.0.0 .OR. TSHR5 .EQ.BLANK) TSHR5 = TSHR1 ELTEMP = EST(48) AVTHK = (TMEM1+TMEM3+TMEM5)/3.0 AVINER = AVTHK**3/12.0 IF (TSHR1 .EQ. 0.0) NOTS = .TRUE. THETA1 = THETAM*DEGRA SINTH = SIN(THETA1) COSTH = COS(THETA1) IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0 C C EVALUATE MATERIAL PROPERTIES C MATFLG = 2 MATID = MATID1 CALL MAT (IDELE) C G(1) = EM(1) G(2) = EM(2) G(3) = EM(3) G(4) = EM(2) G(5) = EM(4) G(6) = EM(5) G(7) = EM(3) G(8) = EM(5) G(9) = EM(6) C C IF TINT(6).NE.1,G1 IS G AND T1PRIME IS ALPHA TIMES T1PRIME C IF TINT(6).EQ.1,G1 IS G TIMES ALPHA AND T1PRIME IS T1PRIME C IF (TINT(6) .NE. 1) GO TO 147 C C G1 IS G TIMES ALPHA C CALL GMMATS (G,3,3,0, ALF,3,1,0, G1) GO TO 149 147 CONTINUE DO 148 I = 1,9 148 GE1(I) = G(I)*AVINER C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (3,GE1(1),3,TS1(1),0,DETERM,ISING,INDEX) IF (ISING .EQ. 2) GO TO 901 CALL GMMATS (GE1,3,3,0, TREAL(2),3,1,0, TL(1)) C C CALCULATIONS FOR THE TRIANGLE C 149 CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAM ) C C FILL E-MATRIX C DO 177 I = 1,18 177 E( I) = 0.0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C C EVALUATE CONSTANTS D1,D2,D3 IN THE LINEAR EQUATION FOR TEMPERATURE C GRADIENT VARIATION OVER THE ELEMENT C CALL AF (F,10,A,B,C,D1,D2,D3,THK1,THK2,THK3,1) UNITEM = .FALSE. IF (ABS(D2).LE.1.0E-06 .AND. ABS(D3).LE.1.0E-06) UNITEM =.TRUE. C DISTAB = DISTA + DISTB A1 = (THK1*DISTA+THK2*DISTB)/DISTAB A2 = (THK2-THK1)/DISTAB A3 = (THK3-A1)/DISTC A1SQ = A1*A1 A2SQ = A2*A2 A3SQ = A3*A3 C1 = A1SQ*A1 C2 = 3.0*A1SQ*A2 C3 = 3.0*A1SQ*A3 C4 = 3.0*A1*A2SQ C5 = 6.0*A1*A2*A3 C6 = 3.0*A3SQ*A1 C7 = A2SQ*A2 C8 = 3.0*A2SQ*A3 C9 = 3.0*A2*A3SQ C10 = A3*A3SQ CALL AF (F,10,A,B,C,B1,B2,B3,TSHR1,TSHR3,TSHR5,1) UNIBEN =.FALSE. IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN =.TRUE. C C COMPUTE THE AREA INTEGRATION FUNCTION F C CALL AF (F,10,A,B,C,0,0,0,0,0,0,-1) C C CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE C DO 110 I = 1,400 110 QQQ(I,1) = 0.0 DO 115 I = 1,6 I1 = (I-1)*3 + 1 I2 = (I-1)*3 + 2 I3 = (I-1)*3 + 3 QQQ(I1, 1) = 1.0 QQQ(I1, 2) = XC(I) QQQ(I1, 3) = YC(I) QQQ(I1, 4) = XC(I)*XC(I) QQQ(I1, 5) = XC(I)*YC(I) QQQ(I1, 6) = YC(I)*YC(I) QQQ(I1, 7) = QQQ(I1, 4)*XC(I) QQQ(I1, 8) = QQQ(I1, 4)*YC(I) QQQ(I1, 9) = QQQ(I1, 5)*YC(I) QQQ(I1,10) = QQQ(I1, 6)*YC(I) QQQ(I1,11) = QQQ(I1, 7)*XC(I) QQQ(I1,12) = QQQ(I1, 7)*YC(I) QQQ(I1,13) = QQQ(I1, 8)*YC(I) QQQ(I1,14) = QQQ(I1, 9)*YC(I) QQQ(I1,15) = QQQ(I1,10)*YC(I) QQQ(I1,16) = QQQ(I1,11)*XC(I) QQQ(I1,17) = QQQ(I1,12)*YC(I) QQQ(I1,18) = QQQ(I1,13)*YC(I) QQQ(I1,19) = QQQ(I1,14)*YC(I) QQQ(I1,20) = QQQ(I1,15)*YC(I) QQQ(I2, 3) = 1.0 QQQ(I2, 5) = XC(I) QQQ(I2, 6) = YC(I)*2.0 QQQ(I2, 8) = QQQ(I1, 4) QQQ(I2, 9) = QQQ(I1, 5)*2.0 QQQ(I2,10) = QQQ(I1, 6)*3.0 QQQ(I2,12) = QQQ(I1, 7) QQQ(I2,13) = QQQ(I1, 8)*2.0 QQQ(I2,14) = QQQ(I1, 9)*3.0 QQQ(I2,15) = QQQ(I1,10)*4.0 QQQ(I2,17) = QQQ(I1,12)*2.0 QQQ(I2,18) = QQQ(I1,13)*3.0 QQQ(I2,19) = QQQ(I1,14)*4.0 QQQ(I2,20) = QQQ(I1,15)*5.0 QQQ(I3, 2) =-1.0 QQQ(I3, 4) =-2.0*XC(I) QQQ(I3, 5) =-YC(I) QQQ(I3, 7) =-QQQ(I1, 4)*3.0 QQQ(I3, 8) =-QQQ(I1, 5)*2.0 QQQ(I3, 9) =-QQQ(I1, 6) QQQ(I3,11) =-QQQ(I1, 7)*4.0 QQQ(I3,12) =-QQQ(I1, 8)*3.0 QQQ(I3,13) =-QQQ(I1, 9)*2.0 QQQ(I3,14) =-QQQ(I1,10) QQQ(I3,16) =-QQQ(I1,11)*5.0 QQQ(I3,17) =-QQQ(I1,13)*3.0 QQQ(I3,18) =-QQQ(I1,14)*2.0 QQQ(I3,19) =-QQQ(I1,15) C C IF NO TRANSVERSE SHEAR GO TO 113 C IF (NOTS) GO TO 115 X = XC(I) Y = YC(I) CALL TLODT3 (TS6,NOTS) DO 113 JJ = 1,20 QQQ(I2,JJ) = QQQ(I2,JJ) - TS6(20+JJ) QQQ(I3,JJ) = QQQ(I3,JJ) + TS6( JJ) 113 CONTINUE 115 CONTINUE C QQQ(19,16) = 5.0*A**4*C QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2 QQQ(19,19) = C**5 - 4.0*A**2*C**3 QQQ(19,20) = 5.0*A*C**4 QQQ(20,16) = 5.0*B**4*C QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2 QQQ(20,19) = C**5 - 4.0*B**2*C**3 QQQ(20,20) =-5.0*B*C**4 C C FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1) C IS U C C AGAIN SET ISING = -1 C ISING = -1 CALL INVERS (20,QQQ,20,TS1(1),0,DETERM,ISING,INDEX) C C ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR C C FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS C MATRIX CALCULATIONS C DO 152 I = 1,20 DO 152 J = 1,18 IJ = (I-1)*18 + J QQINV (IJ) = QQQ(I,J) 152 CONTINUE C DO 220 I = 1,20 MX = XPOWER(I) RMX = MX NX = YPOWER(I) RNX = NX RMNX = RMX*RNX RMX1 = RMX*(RMX-1.0D0) RNX1 = RNX*(RNX-1.0D0) PTEMP= 0.0 MX01 = MX - 1 MX1 = MX + 1 NX01 = NX - 1 NX1 = NX + 1 DO 215 K = 1,10 MX01X= MX01+ XTHK(K) NX1Y = NX1 + YTHK(K) MX1X = MX1 + XTHK(K) NX01Y= NX01+ YTHK(K) MXX = MX + XTHK(K) NXY = NX + YTHK(K) IF (TINT(6) .NE. 1) GO TO 213 DO 212 L = 1,3 MX01XP= MX01X+ PT(L) NX1YQ = NX1Y + QT(L) MX1XP = MX1X + PT(L) NX01YQ= NX01Y+ QT(L) MXXP = MXX + PT(L) NXYQ = NXY + QT(L) IF (MX01XP.GT.0 .AND. NX1YQ.GT.0) 1 PTEMP = PTEMP+CC(K)*DD(L)*G1(1)*RMX1*F(MX01XP,NX1YQ) IF (MX1XP.GT.0 .AND. NX01YQ.GT.0) 1 PTEMP = PTEMP+CC(K)*DD(L)*G1(2)*RNX1*F(MX1XP,NX01YQ) IF (MXXP.GT.0 .AND. NXYQ.GT.0) 1 PTEMP = PTEMP+CC(K)*DD(L)*G1(3)*RMNX*F(MXXP,NXYQ) IF (UNITEM) GO TO 213 212 CONTINUE C 213 IF (TINT(6) .EQ. 1) GO TO 214 IF (MX01X .GT. 0) PTEMP = PTEMP + CC(K)*RMX1*(TL(1)*G(1) 1 + TL(2)*G(2) + TL(3)*G(3))*F(MX01X,NX1Y) IF (NX01Y .GT. 0) PTEMP = PTEMP + CC(K)*RNX1*(TL(1)*G(4) 1 + TL(2)*G(5) + TL(3)*G(6))*F(MX1X,NX01Y) IF (MXX.GT.0 .AND. NXY.GT.0) PTEMP = PTEMP + CC(K)*RMNX* 1 (TL(1)*G(7)+TL(2)*G(8)+TL(3)*G(9))*F(MXX,NXY) 214 IF (UNIBEN) GO TO 216 215 CONTINUE C 216 PTEM(I) = PTEMP/12.0 220 CONTINUE C C IF NO TRANSVERSE SHEAR GO TO 230 C C IF TSHR EQUAL TO ZERO OR MATID3 EQUAL TO ZERO, SKIP THESE C CALCULATIONS C IF (NOTS) GO TO 230 C CALL TLODT2 (TS1,TS2) DO 226 I = 1,20 PTEM(I) = PTEM(I) + TS2(I) 226 CONTINUE C C (QQQINV) TRANSPOSE (KTR3) (QQQINV) C 230 CALL GMMATS (QQINV,20,18,+1, PTEM,20,1,0, PTELE) C C LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS C COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES C ARE R - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO) C DO 301 I = 1,36 PTGLB(I) = 0.0 301 CONTINUE DO 302 I = 1,6 SIL(I) = I 302 CONTINUE DO 380 I = 1,6 DO 310 II = 1,36 BALOTR(II) = 0.0D0 310 CONTINUE SIL1 = SIL(I) DO 304 K = 1,3 K1 = (SIL1-1)*3 + K PSUB(K) = PTELE(K1) 304 CONTINUE CALL GMMATS (E,6,3,0, PSUB,3,1,0, PSUBT) C C TRANSFORM THE PSUBT(6) FROM BASIC TO DISPLACEMENT COORDINATES C IF (NL(I).EQ.0 .OR. ICS(I).EQ.0) GO TO 330 JJ = 4*I + 20 CALL TRANSS (IEST(JJ),TRAND) DO 320 JJ = 1,3 L = 6*(JJ-1) + 1 M = 3*(JJ-1) + 1 BALOTR(L ) = TRAND(M ) BALOTR(L+1 ) = TRAND(M+1) BALOTR(L+2 ) = TRAND(M+2) BALOTR(L+21) = TRAND(M ) BALOTR(L+22) = TRAND(M+1) BALOTR(L+23) = TRAND(M+2) 320 CONTINUE CALL GMMATS (BALOTR(1),6,6,1, PSUBT,6,1,0, PSUBT1) DO 350 K = 1,6 PSUBT(K) = PSUBT1(K) 350 CONTINUE C C INSERT PTGLB IN PG C 330 DO 370 II = 1,6 I1 = (I-1)*6 + II I2 = IEST(I+1) + II - 1 PTGLB(I1) = PSUBT(II) PG(I2) = PG(I2) + PSUBT(II) 370 CONTINUE 380 CONTINUE GO TO 999 C 901 WRITE (IOUT,905) UFM,IEST(1) 905 FORMAT (A23,' 2412, A SINGULAR MATERIAL MATRIX FOR ELEMENT ID =', 1 I9,' HAS BEEN DETECTED BY SUBROUTINE TLODT1', /26X,'WHILE', 2 ' TRYING TO COMPUTE THERMAL LOADS WITH TEMPP2 CARD DATA.') NOGO=.TRUE. 999 RETURN END ================================================ FILE: mis/tlodt2.f ================================================ SUBROUTINE TLODT2 (TS1,TS2) C C CALCULATION OF PTGEN2 - GEN THERMAL LOAD VECTOR DUE TO TRANSVERSE S C DIMENSION TS1(60),TS2(20),TS3(20) REAL J11,J12,J22 COMMON /EMGEST/ EST(100) COMMON /SSGWRK/ X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,B1,B2,B3,G1(3), 1 D(3) COMMON /MATOUT/ EM(6),DUM6(9),RJ11,RJ12,RJ22 DIMENSION BE(7),GA(7),WT(7),CONS(2) DATA BE / 0.33333333333333, 0.47014206 , 0.05971588 , 1 0.47014206 , 0.101286505 , 0.79742699 , 2 0.101286505 / DATA GA / 0.33333333333333, 2*.47014206 , 0.05971588 , 1 2*0.101286505 , 0.79742699 / DATA WT / 0.1125 , 3*0.066197075, 3*0.06296959/ C CONS(1)=DISTA*DISTC CONS(2)=DISTB*DISTC DO 104 I=1,60 TS1(I)=0.0 104 CONTINUE DO 106 I=1,20 TS3(I)=0.0 106 CONTINUE DO 150 K=1,7 DO 145 KASE=1,2 IF (KASE.EQ.1) X= BE(K)*DISTA IF (KASE.EQ.2) X=-BE(K)*DISTB Y=GA(K)*DISTC CONS1=WT(K)*CONS(KASE) THK=A1+A2*X+A3*Y TEMP=D(1)+D(2)*X+D(3)*Y THK1=THK**3/12.0 D11=EM(1)*THK1 D12=EM(2)*THK1 D13=EM(3)*THK1 D22=EM(4)*THK1 D23=EM(5)*THK1 D33=EM(6)*THK1 D21=D12 D31=D13 D32=D23 J11=1.0/(EM(6)*THK) J22=J11 J12=0.0 A11=-(J11*D11+J12*D13) A12=-(J11*D12+J12*D23) A13=-(J11*D13+J12*D33) A14=-(J11*D31+J12*D21) A15=-(J11*D32+J12*D22) A16=-(J11*D33+J12*D23) A21=-(J12*D11+J22*D13) A22=-(J12*D12+J22*D23) A23=-(J12*D13+J22*D33) A24=-(J12*D13+J22*D12) A25=-(J12*D23+J22*D22) A26=-(J12*D33+J22*D32) A31= A14+2.0*A13 A32= A12+2.0*A16 A33= A24+2.0*A23 A34= A22+2.0*A26 A35= A33+A11 A36= A34+A31 A37= A25+A32 TS1(31) =-24.0*A11 TS1(33) =-24.0*A21 TS1(34) =-6.0*A31 TS1(35) =-6.0*A21 TS1(36) =-6.0*A35 TS1(37) =-4.0*A32 TS1(38) =-4.0*A33 TS1(39) =-4.0*A36 TS1(40) =-6.0*A15 TS1(41) =-6.0*A34 TS1(42) =-6.0*A37 TS1(44) =-24.0*A25 TS1(45) =-24.0*A15 TS1(46) =-120.0*A11*X TS1(48) =-120.0*A21*X TS1(49) =-12.0*(A32*X+A31*Y) TS1(50) =-12.0*(A33*X+A21*Y) TS1(51) =-12.0*(A36*X+A35*Y) TS1(52) =-12.0*(A15*X+A32*Y) TS1(53) =-12.0*(A34*X+A33*Y) TS1(54) =-12.0*(A37*X+A36*Y) TS1(55) =-24.0*A15*Y TS1(56) =-24.0*(A25*X+A34*Y) TS1(57) =-24.0*(A15*X+A37*Y) TS1(59) =-120.0*A25*Y TS1(60) =-120.0*A15*Y C C CALL GMMATS (TS1,20,3,0,G 1,3,1,0,TS2) DO 112 I=1,20 TS2(I)=TS2(I)*TEMP*THK1*CONS1 TS3(I)=TS3(I)+TS2(I) 112 CONTINUE 145 CONTINUE 150 CONTINUE DO 160 I=1,20 TS2(I)=TS3(I) 160 CONTINUE RETURN END ================================================ FILE: mis/tlodt3.f ================================================ SUBROUTINE TLODT3 (TS6,NOTS) COMMON /SSGWRK/ X,Y,Z,DISTA,DISTB,DISTC, 1 A1,A2,A3,B1,B2,B3,DUM50(50) REAL J11,J12,J22 LOGICAL NOTS COMMON /MATOUT/ EM(6) DIMENSION TS6(40) DO 105 I=1,40 TS6(I)=0.0 105 CONTINUE THK=A1+A2*X+A3*Y THK1=THK**3/12.0 D11=EM(1)*THK1 D12=EM(2)*THK1 D13=EM(3)*THK1 D22=EM(4)*THK1 D23=EM(5)*THK1 D33=EM(6)*THK1 D21=D12 D31=D13 D32=D23 IF (NOTS) GO TO 146 THK=B1+B2*X+B3*Y J11=1.0/(EM(6)*THK) J12=0.0 J22=J11 GO TO 148 146 CONTINUE J11=1.0 J12=0.0 J22=1.0 148 CONTINUE C A11=-(J11*D11+J12*D13) A12=-(J11*D12+J12*D23) A13=-(J11*D13+J12*D33) A14=-(J11*D31+J12*D21) A15=-(J11*D32+J12*D22) A16=-(J11*D33+J12*D23) A21=-(J12*D11+J22*D13) A22=-(J12*D12+J22*D23) A23=-(J12*D13+J22*D33) A24=-(J12*D13+J22*D12) A25=-(J12*D23+J22*D22) A26=-(J12*D33+J22*D32) A31=A14+2.0*A13 A32=A12+2.0*A16 A33=A24+2.0*A23 A34=A22+2.0*A26 A35=A33+A11 A36=A34+A31 A37=A25+A32 C X2=X*X XY=X*Y Y2=Y*Y A38=A13+A14 A39=A12+A16 A40=A23+A24 A41=A22+A26 TS6( 7)=6.0*A11 TS6( 8)=2.0*A31 TS6( 9)=2.0*A32 TS6(10)=6.0*A15 TS6(11)=24.0*A11*X TS6(12)=6.0*(A31*X+A11*Y) TS6(13)=4.0*(A32*X+A31*Y) TS6(14)=6.0*(A15*X+A32*Y) TS6(15)=24.0*A15*Y IF (NOTS) GO TO 156 TS6(16)=120.0*(-A11*A11-A13*A21+0.5*A11*X2) TS6(17)=12.0*(-A11*A32-A13*A34-A38*A31-A39*A33-A16*A11-A15*A21) 1 +6.0*(A32*X2+2.0*A31*XY+A11*Y2) TS6(18)=12.0*(-A11*A15-A13*A25-A38*A32-A39*A34-A16*A31-A15*A33) 1 +6.0*(A15*X2+2.0*A32*XY+A31*Y2) TS6(19)=24.0*(-A39*A25-A16*A32-A15*A34+A15*XY+0.5*A32*Y2-A38*A15) TS6(20)=-120.0*(A16*A15+A15*A25-0.5*A15*Y2) GO TO 158 156 CONTINUE TS6(16)=60.0*A11*X2 TS6(17)=6.0*(A32*X2+2.0*A31*XY+A11*Y2) TS6(18)=6.0*(A15*X2+2.0*A32*XY+A31*Y2) TS6(19)=12.0*(2.0*A15*XY+A32*Y2) TS6(20)=60.0*A15*Y2 158 CONTINUE TS6(27)=6.0*A21 TS6(28)=2.0*A33 TS6(29)=2.0*A34 TS6(30)=6.0*A25 TS6(31)=24.0*A21*X TS6(32)=6.0*(A33*X+A21*Y) TS6(33)=4.0*(A34*X+A33*Y) TS6(34)=6.0*(A25*X+A34*Y) TS6(35)=24.0*A25*Y IF (NOTS) GO TO 166 TS6(36)=120.0*(-A21*A11-A23*A21+0.5*A21*X2) TS6(37)=12.0*(-A21*A32-A23*A34-A40*A31-A41*A33-A26*A11-A25*A21) 1 +6.0*(A34*X2+2.0*A33*XY+A21*Y2) TS6(38)=12.0*(-A21*A15-A23*A25-A40*A32-A41*A34-A26*A31-A25*A33) 1 +6.0*(A25*X2+2.0*A34*XY+A33*Y2) TS6(39)=24.0*(-A41*A25-A26*A32-A25*A34+A25*XY+0.5*A34*Y2-A40*A15) TS6(40)=-120.0*(A26*A15+A25*A25-0.5*A25*Y2) GO TO 168 166 CONTINUE TS6(36)=60.0*A21*X2 TS6(37)=6.0*(A34*X2+2.0*A33*XY+A21*Y2) TS6(38)=6.0*(A25*X2+2.0*A34*XY+A33*Y2) TS6(39)=12.0*(2.0*A25*XY+A34*Y2) TS6(40)=60.0*A25*Y2 168 CONTINUE RETURN END ================================================ FILE: mis/tlqd4d.f ================================================ SUBROUTINE TLQD4D C C ELEMENT THERMAL LOAD GENERATOR FOR 4-NODE ISOPARAMETRIC C QUADRILATERAL SHELL ELEMENT (QUAD4) C (DOUBLE PRECISION VERSION) C C COMPLETELY RESTRUCTURED FOR COMPOSITES WITH THE FOLLOWING C LIMITATION - C 1. FOR DIFFERENT GRID POINT TEMPERATURES AN AVERAGE C VALUE IS TAKEN. HEMANT 2/24/86 C C C EST LISTING C --------------------------------------------------------- C 1 EID C 2 THRU 5 SILS, GRIDS 1 THRU 4 C 6 THRU 9 T (MEMBRANE), GRIDS 1 THRU 4 C 10 THETA (MATERIAL) C 11 TYPE FLAG FOR WORD 10 C 12 ZOFF (OFFSET) C 13 MATERIAL ID FOR MEMBRANE C 14 T (MEMBRANE) C 15 MATERIAL ID FOR BENDING C 16 I FACTOR (BENDING) C 17 MATERIAL ID FOR TRANSVERSE SHEAR C 18 FACTOR FOR T(S) C 19 NSM (NON-STRUCTURAL MASS) C 20 THRU 21 Z1, Z2 (STRESS FIBRE DISTANCES) C 22 MATERIAL ID FOR MEMBRANE-BENDING COUPLING C 23 THETA (MATERIAL) FROM PSHELL CARD C 24 TYPE FLAG FOR WORD 23 C 25 INTEGRATION ORDER C 26 THETA (STRESS) C 27 TYPE FLAG FOR WORD 26 C 28 ZOFF1 (OFFSET) OVERRIDDEN BY EST(12) C 29 THRU 44 CID,X,Y,Z - GRIDS 1 THRU 4 C 45 ELEMENT TEMPERATURE C C LOGICAL BADJAC,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH, 1 TEMPP1,TEMPP2,PCMP,PCMP1,PCMP2,COMPOS INTEGER INTZ(1),NOUT,NEST(45),ELID,SIL(4),KSIL(4), 1 KCID(4),IGPDT(4,4),FLAG,ROWFLG,NECPT(4), 2 MID(4),INDEX(3,3),INDX(6,3),COMPS,NAM(2), 3 PCOMP,PCOMP1,PCOMP2,SYM,SYMMEM,PID,PIDLOC REAL GPTH(4),TGRID(4,4),GPNORM(4,4),BGPDT(4,4), 1 MATSET,TMPTHK(4),ECPT(4),EGPDT(4,4), 2 EPNORM(4,4),BGPDM(3,4),ALPHAM(6),TSUB0,STEMP,Z DOUBLE PRECISION DGPTH(4),THK,EPS1,XI,ETA,DETJ,HZTA,PSITRN(9), 1 JACOB(9),PHI(9),MOMINR,COEFF,REALI,PI,TWOPI, 2 RADDEG,DEGRAD,SHP(4),DSHP(8),TMPSHP(4), 3 DSHPTP(8),GT(9),G(6,6),GI(36),U(9),TRANS(36), 4 PTINT(2),GGE(9),GGU(9),TBM(9),TEB(9),TEM(9), 5 TUB(9),TUM(9),TEU(9),TBG(9),UGPDM(3,4),CENTE(3), 6 CENT(3),X31,Y31,X42,Y42,AA,BB,CC,EXI,EXJ,XM,YM, 7 THETAM,BMATRX(144),XYBMAT(96),ALPHA(6),ALFAM(3), 8 ALFAB(3),TALFAM(3),TALFAB(3),ALPHAD(6),PT(24), 9 PTG(24),TBAR,TTBAR,TGRAD,THRMOM(3),G2I(9),G2(9), O GTEMPS(6),EPSUBT(6),GEPSBT(6),DETU,DETG2,DETERM DOUBLE PRECISION ABBD(6,6),STIFF(36),GPROP(25),GLAY(9),GLAYT(9), 1 GBAR(9),GALPHA(3),ALPHAL(3),ALPHAE(3),MINTR, 2 TLAM,THETA,THETAE,TRANSL(9),TSUBO,TMEAN,TEMPEL, 3 DELTA,DELTAT,ZK,ZK1,ZREF,ZSUBI,C,C2,S,S2, 4 FTHERM(6),EPSLNT(6),OFFSET,CONST,UEV,ANGLEI, 5 EDGEL,EDGSHR,UNV CWKBNB 11/93 SPR 93020 DOUBLE PRECISION VD1(3), VD2(3), VKN(3), VKS(3) 1, V12(3), V41(3), VP12(3),VIS(3), VJS(3) CWKBNE 11/93 SPR 93020 CWKBI 9/94 SPR93020 DOUBLE PRECISION VKL, V12DK, VP12L, VJL C COMMON /CONDAD/ PI,TWOPI,RADDEG,DEGRAD COMMON /TRIMEX/ EST(45) COMMON /SYSTEM/ BUFFER(100) COMMON /MATIN / MATID,INFLAG,ELTEMP COMMON /MATOUT/ RMTOUT(25) COMMON /SGTMPD/ STEMP(8) CZZ COMMON /ZZSSB1/ Z(1) COMMON /ZZZZZZ/ Z(20000) COMMON /BLANK / NROWSP,IPARAM,COMPS COMMON /COMPST/ IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2 COMMON /Q4DT / DETJ,HZTA,PSITRN,NNODE,BADJAC,N1 COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /Q4COMD/ ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4), 1 UEV(3,4),ROWFLG,IORDER(4) C EQUIVALENCE (Z(1) ,INTZ(1)), (IGPDT(1,1),BGPDT(1,1)) EQUIVALENCE (EST(1) ,NEST(1)), (MATSET ,RMTOUT(25)) EQUIVALENCE (GPTH(1) ,EST(6) ), (BGPDT(1,1),EST(29) ) EQUIVALENCE (ELTH ,EST(14)), (SIL(1) ,NEST(2) ) EQUIVALENCE (ZOFF ,EST(12)), (ZOFF1 ,EST(28) ) EQUIVALENCE (NECPT(1) ,ECPT(1)), (BUFFER(1) ,SYSBUF ) EQUIVALENCE (BUFFER(2),NOUT ), (BUFFER(3) ,NOGO ) EQUIVALENCE (STEMP(7) ,FLAG ), (ALFAM(1) ,ALPHA(1) ) EQUIVALENCE (ALFAB(1) ,ALPHA(4)) C DATA EPS1 / 1.0D-7 / DATA PCOMP / 0 / DATA PCOMP1 / 1 / DATA PCOMP2 / 2 / DATA SYM / 1 / DATA MEM / 2 / DATA SYMMEM / 3 / DATA CONST / 0.57735026918962D+0 / DATA NAM / 4HTLQD,4H4D / C C ZERO THE VARIOUS ALPHA ARRAYS C DO 10 I =1,6 ALPHAM(I) = 0.0 ALPHA(I) = 0.0D0 ALPHAD(I) = 0.0D0 10 CONTINUE DO 20 I =1,3 TALFAM(I) = 0.0D0 TALFAB(I) = 0.0D0 20 CONTINUE C ELID = NEST(1) LTYPFL = 1 OFFSET = ZOFF IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1 C C TEST FOR COMPOSITE ELEMENT C COMPOS = .FALSE. C PID = NEST(13) - 100000000 COMPOS = COMPS.EQ.-1 .AND. PID.GT.0 C C CHECK FOR THE TYPE OF TEMPERATURE DATA C NOTES- 1- TYPE TEMPP1 ALSO INCLUDES TYPE TEMPP3 C 2- IF NO TEMPPI CARDS, GRID POINT TEMPERATURES C ONLY ARE PRESENT C TEMPP1 = FLAG .EQ. 13 TEMPP2 = FLAG .EQ. 2 C N1 = 4 NNODE= 4 NDOF = NNODE*6 ND2 = NDOF*2 ND3 = NDOF*3 ND4 = NDOF*4 ND5 = NDOF*5 C C FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS C 1, 2 AND 4. THIS ARRAY WILL BE USED LATER TO DEFINE C THE USER COORDINATE SYSTEM WHILE CALCULATING C TRANSFORMATIONS INVOLVING THIS COORDINATE SYSTEM. C DO 30 I = 1,3 II = (I-1)*3 IJ = I IF (IJ .EQ. 3) IJ = 4 DO 30 J = 1,3 JJ = J+1 30 GGU(II+J) = BGPDT(JJ,IJ) CWKBD 11/93 SPR93020 CALL BETRND (TUB,GGU,0,ELID) CWKBNB 11/93 SPR93020 C ADD FROM SHEAR ELEMENT C C COMPUTE DIAGONAL VECTORS C DO 21 I = 1,3 II=I+1 VD1(I) = BGPDT(II,3) - BGPDT(II,1) 21 VD2(I) = BGPDT(II,4) - BGPDT(II,2) C C COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED C AREA, PA C VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2) VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3) VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1) VKL = DSQRT( VKN(1)**2 + VKN(2)**2 + VKN(3)**2 ) IF ( VKL .EQ. 0. ) WRITE( NOUT, 2070 ) EST(1) 2070 FORMAT(//,' ILLEGAL GEOMETRY FOR QUAD4 ELEMENT, ID=',I10 ) VKS(1) = VKN(1)/VKL VKS(2) = VKN(2)/VKL VKS(3) = VKN(3)/VKL PA = VKL/2. C C COMPUTE SIDES -12- AND -41- DO 25 I = 1,3 II = I + 1 V12(I) = BGPDT(II,2) - BGPDT(II,1) V41(I) = BGPDT(II,1) - BGPDT(II,4) 25 CONTINUE C C COMPUTE DOT PRODUCT, V12DK, OR V12 AND VK, THE VECTORS VP12, VI, VJ C V12DK = V12(1)*VKS(1) + V12(2)*VKS(2) + V12(3)*VKS(3) VP12(1) = V12(1) - V12DK*VKS(1) VP12(2) = V12(2) - V12DK*VKS(2) VP12(3) = V12(3) - V12DK*VKS(3) VP12L = DSQRT( VP12(1)**2 + VP12(2)**2 + VP12(3)**2 ) IF ( VP12L .EQ. 0. ) WRITE( NOUT, 2070 ) EST(1) VIS(1) = VP12(1) / VP12L VIS(2) = VP12(2) / VP12L VIS(3) = VP12(3) / VP12L VJS(1) = VKS(2)*VIS(3) - VKS(3)*VIS(2) VJS(2) = VKS(3)*VIS(1) - VKS(1)*VIS(3) VJS(3) = VKS(1)*VIS(2) - VKS(2)*VIS(1) C C NORMALIZE J FOR GOOD MEASURE C VJL = DSQRT( VJS(1)**2 + VJS(2)**2 + VJS(3)**2 ) IF ( VJL .EQ. 0. ) WRITE ( NOUT, 2070 ) EST(1) VJS(1) = VJS(1) / VJL VJS(2) = VJS(2) / VJL VJS(3) = VJS(3) / VJL DO 29 I = 1,3 TUB(I) = VIS(I) TUB(I+3) = VJS(I) TUB(I+6) = VKS(I) 29 CONTINUE CWKBNE 11/93 SPR93020 C C STORE INCOMING BGPDT FOR ELEMENT C.S. CALCULATION C DO 40 I = 1,3 I1 = I + 1 DO 40 J = 1,4 40 BGPDM(I,J) = BGPDT(I1,J) C C TRANSFORM BGPDM FROM BASIC TO USER C.S. C DO 50 I = 1,3 IP = (I-1)*3 DO 50 J = 1,4 UGPDM(I,J) = 0.0 DO 50 K = 1,3 KK = IP + K 50 UGPDM(I,J) = UGPDM(I,J) + TUB(KK)*(DBLE(BGPDM(K,J))-GGU(K)) C C C THE ORIGIN OF THE ELEMENT C.S. IS IN THE MIDDLE OF THE ELEMENT C DO 60 J = 1,3 CENT(J) = 0.0D0 DO 60 I = 1,4 60 CENT(J) = CENT(J) + UGPDM(J,I)/NNODE C C STORE THE CORNER NODE DIFF. IN THE USER C. S. C X31 = UGPDM(1,3) - UGPDM(1,1) Y31 = UGPDM(2,3) - UGPDM(2,1) X42 = UGPDM(1,4) - UGPDM(1,2) Y42 = UGPDM(2,4) - UGPDM(2,2) AA = DSQRT(X31*X31+Y31*Y31) BB = DSQRT(X42*X42+Y42*Y42) C C NORMALIZE XIJ'S C X31 = X31/AA Y31 = Y31/AA X42 = X42/BB Y42 = Y42/BB EXI = X31 - X42 EXJ = Y31 - Y42 C C STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT C.S. AND USER C.S. C GGE(1) = CENT(1) GGE(2) = CENT(2) GGE(3) = CENT(3) C GGE(4) = GGE(1) + EXI GGE(5) = GGE(2) + EXJ GGE(6) = GGE(3) C GGE(7) = GGE(1) - EXJ GGE(8) = GGE(2) + EXI GGE(9) = GGE(3) C C C THE ARRAY IORDER STORES THE ELEMENT NODE ID IN C INCREASING SIL ORDER. C C IORDER(1) = NODE WITH LOWEST SIL NUMBER C IORDER(4) = NODE WITH HIGHEST SIL NUMBER C C ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE C LIST G1,G2,G3,G4 . THAT IS, THE 'I' PART C OF THE 'GI' AS THEY ARE LISTED ON THE CONNECTIVITY C BULK DATA CARD DESCRIPTION. C C DO 70 I = 1,4 IORDER(I) = 0 KSIL(I) = SIL(I) 70 CONTINUE C DO 90 I = 1,4 ITEMP = 1 ISIL = KSIL(1) DO 80 J = 2,4 IF (ISIL .LE. KSIL(J)) GO TO 80 ITEMP = J ISIL = KSIL(J) 80 CONTINUE IORDER(I) = ITEMP KSIL(ITEMP) = 99999999 90 CONTINUE C C ADJUST EST DATA C C C USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE C GEOMETRY DATA INTO INCREASING SIL ORDER. C DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE C FUNCTIONS GO WITH WHICH GEOMETRIC PARAMETERS! C C DO 110 I = 1,4 KSIL(I ) = SIL(I) TMPTHK(I) = GPTH(I) KCID(I ) = IGPDT(1,I) DO 100 J = 2,4 TGRID(J,I) = BGPDT(J,I) 100 CONTINUE 110 CONTINUE DO 130 I = 1,4 IPOINT = IORDER(I) SIL(I) = KSIL(IPOINT) GPTH(I)= TMPTHK(IPOINT) IGPDT(1,I) = KCID(IPOINT) DO 120 J = 2,4 BGPDT(J,I) = TGRID(J,IPOINT) 120 CONTINUE 130 CONTINUE C C SORT THE GRID POINT TEMPERATURES (IN STEMP(1-4)). IF PRESENT AND C MAKE DOUBLE PRECISION THE OTHER KINDS OF TEMPERATURE DATA IF C TEMPPI CARDS PRESENT C IF (TEMPP1 .OR. TEMPP2) GO TO 150 C TEMPEL = 0.0D0 DO 140 I = 1,4 IPNT = IORDER(I) GTEMPS(I) = STEMP(IPNT) TEMPEL = TEMPEL + GTEMPS(I) 140 CONTINUE TEMPEL = TEMPEL*0.25D0 GO TO 170 C 150 IF (TEMPP2) GO TO 160 C TBAR = STEMP(1) TGRAD = STEMP(2) GO TO 170 C 160 TBAR = STEMP(1) THRMOM(1) = STEMP(2) THRMOM(2) = STEMP(3) THRMOM(3) = STEMP(4) C C COMPUTE NODE NORMALS C 170 CALL Q4NRMD (BGPDT,GPNORM,IORDER,IFLAG) IF (IFLAG .EQ. 0) GO TO 180 J = -230 GO TO 1580 C C DETERMINE NODAL THICKNESSES C 180 DO 200 I = 1,NNODE IF (GPTH(I) .EQ. 0.0) GPTH(I) = ELTH IF (GPTH(I) .GT. 0.0) GO TO 190 WRITE (NOUT,1700) ELID NOGO = 1 GO TO 1600 190 DGPTH(I) = GPTH(I) 200 CONTINUE C MOMINR = 0.0D0 IF (NEST(15) .NE. 0) MOMINR = EST(16) C C THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE C TRANSFORMED FROM THE BASIC C.S. TO THE ELEMENT C.S. C CALL BETRND (TEU,GGE,0,ELID) CALL GMMATD (TEU,3,3,0,TUB,3,3,0,TEB) CALL GMMATD (TUB,3,3,1,CENT,3,1,0,CENTE) C IP = -3 DO 210 II = 2,4 IP = IP + 3 DO 210 J = 1,NNODE EPNORM(II,J) = 0.0 EGPDT(II,J) = 0.0 DO 210 K = 1,3 KK = IP + K K1 = K + 1 CC = DBLE(BGPDT(K1,J)) - GGU(K) - CENTE(K) EPNORM(II,J) = EPNORM(II,J) + TEB(KK)*GPNORM(K1,J) 210 EGPDT(II,J) = EGPDT(II,J) + SNGL(TEB(KK)*CC) CWKBNB 11/93 SPR93020 DO 171 J = 1, 4 EGPDT(4,J) = CENT(3) 171 CONTINUE CWKBNE 11/93 SPR93020 C C BEGIN INITIALIZING MATERIAL VARIABLES C C SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR - C ISOTROPIC MATERIAL PROPERTIES AMONG THE MAT1 CARDS, C ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND C ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS. C INFLAG = 12 ELTEMP = EST(45) MID(1) = NEST(13) MID(2) = NEST(15) MID(3) = 0 MID(4) = NEST(22) MEMBRN = MID(1).GT.0 BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0D0 SHRFLX = MID(3).GT.0 MBCOUP = MID(4).GT.0 NORPTH =.FALSE. C C SET THE INTEGRATION POINTS C PTINT(1) = -CONST PTINT(2) = CONST C C IN PLANE SHEAR REDUCTION C XI = 0.0D0 ETA = 0.0D0 KPT = 1 KPT1= ND2 C CALL Q4SHPD (XI,ETA,SHP,DSHP) C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 300 I = 1,4 TMPSHP(I) = SHP(I) DSHPTP(I) = DSHP(I) 300 DSHPTP(I+4) = DSHP(I+4) DO 310 I = 1,4 KK = IORDER(I) SHP(I) = TMPSHP(KK) DSHP(I) = DSHPTP(KK) 310 DSHP(I+4) = DSHPTP(KK+4) C DO 320 IZTA = 1,2 ZTA = PTINT(IZTA) HZTA= ZTA/2.0D0 CALL JACOB2 (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 1600 C CALL GMMATD (PSITRN,3,3,0,JACOB,3,3,1,PHI) C C CALL Q4BMGD TO GET B MATRIX C SET THE ROW FLAG TO 2. IT WILL SAVE THE 3RD ROW OF B AT C THE TWO INTEGRATION POINTS. C ROWFLG = 2 CALL Q4BMGD (DSHP,DGPTH,EGPDT,EPNORM,PHI,XYBMAT(KPT)) 320 KPT = KPT + KPT1 C C SET THE ARRAY OF LENGTH 4 TO BE USED IN CALLING TRANSD. C NOTE THAT THE FIRST WORD IS THE COORDINATE SYSTEM ID WHICH C WILL BE SET IN POSITION LATER. C DO 330 IEC = 2,4 330 ECPT(IEC) = 0.0 C C FETCH MATERIAL PROPERTIES C C EACH MATERIAL PROPERTY MATRIX G HAS TO BE TRANSFORMED FROM C THE MATERIAL COORDINATE SYSTEM TO THE ELEMENT COORDINATE C SYSTEM. THESE STEPS ARE TO BE FOLLOWED- C C 1- IF MCSID HAS BEEN SPECIFIED, SUBROUTINE TRANSD IS CALLED C TO CALCULATE TBM MATRIX (MATERIAL TO BASIC TRANSFORMATION). C THIS WILL BE FOLLOWED BY A CALL TO SUBROUTINE BETRND C TO CALCULATE TEB MATRIX (BASIC TO ELEMENT TRANSFORMATION). C TBM IS THEN PREMULTIPLIED BY TEB TO OBTAIN TEM MATRIX. C THEN USING THE PROJECTION OF X-AXIS, AN ANGLE IS CALCULATED C UPON WHICH STEP 2 IS TAKEN. C C 2- IF THETAM HAS BEEN SPECIFIED, SUBROUTINE ANGTRD IS CALLED C TO CALCULATE TEM MATRIX (MATERIAL TO ELEMENT TRANSFORMATION). C C T C 3- G = U G U C E M C C IF (NEST(11) .EQ. 0) GO TO 390 MCSID = NEST(10) C C CALCULATE TEM USING MCSID C 340 IF (MCSID .GT. 0) GO TO 360 DO 350 I = 1,9 350 TEM(I) = TEB(I) GO TO 370 360 NECPT(1) = MCSID CALL TRANSD (ECPT,TBM) C C MULTIPLY TEB AND TBM C CALL GMMATD (TEB,3,3,0,TBM,3,3,0,TEM) C C CALCULATE THETAM FROM THE PROJECTION OF THE X-AXIS OF THE C MATERIAL C.S. ON TO THE XY PLANE OF THE ELEMENT C.S. C 370 IMT = -1 XM = TEM(1) YM = TEM(4) IF (DABS(XM) .LE. EPS1) IMT = IMT + 1 IF (DABS(YM) .LE. EPS1) IMT = IMT + 2 IF (IMT .LT. 2) GO TO 380 NEST(2) = MCSID J = -231 GO TO 1580 380 THETAM = DATAN2(YM,XM) GO TO 400 C C CALCULATE TEM USING THETAM C 390 THETAM = DBLE(EST(10))*DEGRAD IF (THETAM .EQ. 0.0D0) GO TO 410 400 CALL ANGTRD (THETAM,1,TUM) CALL GMMATD (TEU,3,3,0,TUM,3,3,0,TEM) GO TO 480 C C DEFAULT IS CHOSEN, LOOK FOR VALUES OF MCSID AND/OR THETAM C ON THE PSHELL CARD. C 410 IF (NEST(24) .EQ. 0) GO TO 420 MCSID = NEST(23) GO TO 340 C 420 THETAM = DBLE(EST(23))*DEGRAD GO TO 400 C C BEGIN THE LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID C 480 M = 0 500 M = M + 1 IF (M .GT. 4) GO TO 690 MATID = MID(M) IF (MATID .EQ. 0) GO TO 500 IF (M-1) 530,520,510 510 IF (MATID .EQ. MID(M-1)) GO TO 530 520 CALL MAT (ELID) 530 CONTINUE C TSUB0 = RMTOUT(11) IF (MATSET .EQ. 8.0) TSUB0 = RMTOUT(10) C COEFF = 1.0D0 LPOINT= (M-1)*9 + 1 C CALL Q4GMGD (M,COEFF,GI(LPOINT)) C IF (THETAM .EQ. 0.0D0) GO TO 550 C U(1) = TEM(1)*TEM(1) U(2) = TEM(4)*TEM(4) U(3) = TEM(1)*TEM(4) U(4) = TEM(2)*TEM(2) U(5) = TEM(5)*TEM(5) U(6) = TEM(2)*TEM(5) U(7) = TEM(1)*TEM(2)*2.0D0 U(8) = TEM(4)*TEM(5)*2.0D0 U(9) = TEM(1)*TEM(5) + TEM(2)*TEM(4) L = 3 C CALL GMMATD (U(1),L,L,1,GI(LPOINT),L,L,0,GT(1)) CALL GMMATD (GT(1),L,L,0,U(1),L,L,0,GI(LPOINT)) C 550 IF (COMPOS) GO TO 500 C C TRANSFORM THERMAL EXPANSION COEFFICIENTS AND STORE THEM IN ALPHA C IF (M .GT. 2) GO TO 500 MORB = (M-1)*3 IF (MATSET .EQ. 2.0) GO TO 610 IF (MATSET .EQ. 8.0) GO TO 630 C C MAT1 C DO 600 IMAT = 1,2 600 ALPHAM(IMAT+MORB) = RMTOUT(8) ALPHAM(3+MORB) = 0.0 GO TO 640 C C MAT2 C 610 DO 620 IMAT = 1,3 620 ALPHAM(IMAT+MORB) = RMTOUT(7+IMAT) GO TO 640 C C MAT8 C 630 ALPHAM(MORB+1) = RMTOUT(8) ALPHAM(MORB+2) = RMTOUT(9) ALPHAM(MORB+3) = 0.0 C C SKIP THE TRANSFORMATION OF ALPHAM IF MATSET = 1. OR THETAM = 0.D0 C 640 IF (MATSET .EQ. 1.0) GO TO 650 IF (THETAM .NE. 0.0D0) GO TO 670 C 650 DO 660 IG = 1,3 ALPHA(IG+MORB) = ALPHAM(IG+MORB) 660 CONTINUE GO TO 500 C C THE ALPHAS NEED TO BE PREMULTIPLIED BY U INVERSE. INCREMENT MORB C BY 1 TO INDICATE WHERE TO FILL THE ARRAYS, AND PUT THE SINGLE C PREC. ARRAY OF ALPHAM INTO THE DOUBLE PREC. ARRAY OF ALPHAD FOR C THE CALL TO GMMATD. C 670 MORB = MORB + 1 DO 680 I =1,6 ALPHAD(I) = ALPHAM(I) 680 CONTINUE CALL INVERD (3,U,3,BDUM,0,DETU,ISNGU,INDEX) CALL GMMATD (U,3,3,0,ALPHAD(MORB),3,1,0,ALPHA(MORB)) GO TO 500 C 690 IF (.NOT.COMPOS) GO TO 1070 C C IF LAMINATED COMPOSITE ELEMENT, DETERMINE THE THERMAL C STRAIN VECTOR DUE TO THE APPLIED THERMAL LOADING. C NOTE THE FOLLOWING - C 1. DIFFERENT GRID POINT TEMPERATURES ARE NOT SUPPORTED C C LOCATE PID BY CARRYING OUT A SEQUENTIAL SEARCH C OF THE PCOMPS DATA BLOCK, AND ALSO DETERMINE C THE TYPE OF 'PCOMP' BULK DATA ENTRY. C C POINTER DESCRIPITION C -------------------- C IPCMP - LOCATION OF START OF PCOMP DATA IN CORE C NPCMP - NUMBER OF WORDS OF PCOMP DATA C IPCMP1 - LOCATION OF START OF PCOMP1 DATA IN CORE C NPCMP1 - NUMBER OF WORDS OF PCOMP1 DATA C IPCMP2 - LOCATION OF START OF PCOMP2 DATA IN CORE C NPCMP2 - NUMBER OF WORDS OF PCOMP2 DATA C C ITYPE - TYPE OF PCOMP BULK DATA ENTRY C C C LAMOPT - LAMINATION GENERATION OPTION C = SYM (SYMMETRIC) C = MEM (MEMBRANE) C = SYMMEM (SYMMETRIC-MEMBRANE) C C C SET POINTER LPCOMP LPCOMP = IPCMP + NPCMP + NPCMP1 + NPCMP2 C C SET POINTERS C ITYPE = -1 C PCMP = .FALSE. PCMP1 = .FALSE. PCMP2 = .FALSE. C PCMP = NPCMP .GT. 0 PCMP1 = NPCMP1 .GT. 0 PCMP2 = NPCMP2 .GT. 0 C C CHECK IF NO 'PCOMP' DATA HAS BEEN READ INTO CORE C IF (PCMP .OR. PCMP1 .OR. PCMP2) GO TO 700 J = -229 GO TO 1580 C C SEARCH FOR PID IN PCOMP DATA C 700 IF (.NOT.PCMP) GO TO 750 C IP = IPCMP IF (INTZ(IP) .EQ. PID) GO TO 740 IPC11 = IPCMP1 - 1 DO 720 IP = IPCMP,IPC11 IF (INTZ(IP).EQ.-1 .AND. IP.LT.(IPCMP1-1)) GO TO 710 GO TO 720 710 IF (INTZ(IP+1) .EQ. PID) GO TO 730 720 CONTINUE GO TO 750 C 730 IP = IP+1 740 ITYPE = PCOMP GO TO 860 C C SEARCH FOR PID IN PCOMP1 DATA C 750 IF (.NOT.PCMP1) GO TO 800 IP = IPCMP1 IF (INTZ(IP) .EQ. PID) GO TO 790 IPC21 = IPCMP2 - 1 DO 770 IP = IPCMP1,IPC21 IF (INTZ(IP).EQ.-1 .AND. IP.LT.(IPCMP2-1)) GO TO 760 GO TO 770 760 IF (INTZ(IP+1) .EQ. PID) GO TO 780 770 CONTINUE GO TO 800 C 780 IP = IP+1 790 ITYPE = PCOMP1 GO TO 860 C C SEARCH FOR PID IN PCOMP2 DATA C 800 IP = IPCMP2 IF (INTZ(IP) .EQ. PID) GO TO 840 LPC11 = LPCOMP - 1 DO 820 IP = IPCMP2,LPC11 IF (INTZ(IP).EQ.-1 .AND. IP.LT.(LPCOMP-1)) GO TO 810 GO TO 820 810 IF (INTZ(IP+1) .EQ. PID) GO TO 830 820 CONTINUE GO TO 850 C 830 IP = IP+1 840 ITYPE = PCOMP2 GO TO 860 C C CHECK IF PID HAS NOT BEEN LOCATED C 850 IF (ITYPE .NE. -1) GO TO 860 J = -229 GO TO 1580 C C LOCATION OF PID C 860 PIDLOC = IP LAMOPT = INTZ(PIDLOC+8) C C DETERMINE INTRINSIC LAMINATE PROPERTIES C C LAMINATE THICKNESS C TLAM = ELTH C C LAMINATE EXTENSIONAL, BENDING AND MEMBRANE-BENDING MATRICES C DO 870 LL = 1,6 DO 870 MM = 1,6 ABBD(LL,MM) = 0.0D0 870 CONTINUE C C EXTENSIONAL C MATID = MID(1) CALL MAT (ELID) C CALL LPROPD (GPROP) C DO 880 LL = 1,3 DO 880 MM = 1,3 II = MM + 3*(LL-1) ABBD(LL,MM) = GPROP(II)*TLAM 880 CONTINUE C IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 910 C C BENDING C MATID = MID(2) CALL MAT (ELID) C CALL LPROPD (GPROP) C C MOMENT OF INERTIA OF LAMINATE C MINTR = (TLAM**3)/12.0D0 C DO 890 LL = 1,3 DO 890 MM = 1,3 II = MM + 3*(LL-1) ABBD(LL+3,MM+3) = GPROP(II)*MINTR 890 CONTINUE C IF (LAMOPT .EQ. SYM) GO TO 910 C C MEMBRANE-BENDING C MATID = MID(4) CALL MAT (ELID) C CALL LPROPD (GPROP) C DO 900 LL = 1,3 DO 900 MM = 1,3 II = MM + 3*(LL-1) ABBD(LL,MM+3) = GPROP(II)*TLAM*TLAM ABBD(LL+3,MM) = GPROP(II)*TLAM*TLAM 900 CONTINUE C C REFERENCE SURFACE C 910 ZREF = -TLAM/2.0D0 C C NUMBER OF LAYERS C NLAY = INTZ(PIDLOC+1) C C SET POINTER C IF (ITYPE .EQ. PCOMP) IPOINT = (PIDLOC + 8 + 4*NLAY) IF (ITYPE .EQ. PCOMP1) IPOINT = (PIDLOC + 8 + NLAY) IF (ITYPE .EQ. PCOMP2) IPOINT = (PIDLOC + 8 + 2*NLAY) C C ALLOW FOR THE ORIENTATION OF THE MATERIAL AXIS FROM C THE ELEMENT AXIS C THETAE = DATAN(TEM(2)/TEM(1)) THETAE = THETAE*DEGRAD C C LAMINATE REFERENCE (OR LAMINATION) TEMPERATURE C TSUBO = Z(IPOINT+24) C IF (TEMPP1 .OR. TEMPP2) GO TO 920 TMEAN = TEMPEL GO TO 930 C 920 TMEAN = STEMP(1) C 930 DELTA = TMEAN - TSUBO C DO 940 LL = 1,6 FTHERM(LL) = 0.0D0 940 CONTINUE C C ALLOW FOR APPLIED THERMAL MOMENTS C IF (.NOT.TEMPP2) GO TO 960 C DO 950 LL = 1,3 950 FTHERM(LL+3) = THRMOM(LL) C C LOOP OVER NLAY C 960 DO 1050 K = 1,NLAY C ZK1 = ZK IF (K .EQ. 1) ZK1 = ZREF IF (ITYPE .EQ. PCOMP ) ZK = ZK1 + Z(PIDLOC + 6 + 4*K) IF (ITYPE .EQ. PCOMP1) ZK = ZK1 + Z(PIDLOC + 7) IF (ITYPE .EQ. PCOMP2) ZK = ZK1 + Z(PIDLOC + 7 + 2*K) C ZSUBI = (ZK+ZK1)/2.0D0 C C LAYER THICKNESS C TI = ZK - ZK1 C C LAYER ORIENTATION C IF (ITYPE .EQ. PCOMP ) THETA = Z(PIDLOC + 7 + 4*K) IF (ITYPE .EQ. PCOMP1) THETA = Z(PIDLOC + 8 + K) IF (ITYPE .EQ. PCOMP2) THETA = Z(PIDLOC + 8 + 2*K) C C THETA = THETA * DEGRAD C IF (THETAE .GT. 0.0D0) THETA = THETA + THETAE C C = DCOS(THETA) C2 = C*C S = DSIN(THETA) S2 = S*S C TRANSL(1) = C2 TRANSL(2) = S2 TRANSL(3) = C*S TRANSL(4) = S2 TRANSL(5) = C2 TRANSL(6) =-C*S TRANSL(7) =-2.0D0*C*S TRANSL(8) = 2.0D0*C*S TRANSL(9) = C2-S2 C C CALCULATE GBAR = TRANST X GLAY X TRANS C DO 1000 IR = 1,9 GLAY(IR) = Z(IPOINT+IR) 1000 CONTINUE C CALL GMMATD (GLAY(1),3,3,0,TRANSL(1),3,3,0,GLAYT(1)) CALL GMMATD (TRANSL(1),3,3,1,GLAYT(1),3,3,0,GBAR(1)) C C CALCULATE ALPHAE = TRANSL X ALPHA C C MODIFY TRANSL FOR TRANSFORMATIONS OF ALPHAS C TRANSL(3) = -TRANSL(3) TRANSL(6) = -TRANSL(6) TRANSL(7) = -TRANSL(7) TRANSL(8) = -TRANSL(8) C DO 1010 IR = 1,3 ALPHAL(IR) = Z(IPOINT+13+IR) 1010 CONTINUE C CALL GMMATD (TRANSL(1),3,3,0,ALPHAL(1),3,1,0,ALPHAE(1)) C C CALCULATE LAMINATE OPERATING TEMPERATURE (ALLOWING FOR C TEMPERATURE GRADIENT IF APPLIED) C DELTAT = DELTA IF (TEMPP1) DELTAT = DELTA + ZSUBI*TGRAD C C CALCULATE THERMAL FORCES AND MOMENTS C CALL GMMATD (GBAR(1),3,3,0,ALPHAE(1),3,1,0,GALPHA(1)) C DO 1020 IR = 1,3 FTHERM(IR) = FTHERM(IR) + GALPHA(IR)*DELTAT*(ZK - ZK1) IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1020 FTHERM(IR+3) = FTHERM(IR+3) - 1 GALPHA(IR)*DELTAT*((ZK**2)-(ZK1**2))/2.0D0 1020 CONTINUE C IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 1040 C C CALCULATE CONTRIBUTION FROM SYMMETRIC LAYERS C DELTAT = DELTA IF (TEMPP1) DELTAT = DELTA - ZSUBI*TGRAD C DO 1030 IR = 1,3 FTHERM(IR) = FTHERM(IR) + GALPHA(IR)*DELTAT*(ZK-ZK1) IF (LAMOPT .EQ. SYMMEM) GO TO 1030 FTHERM(IR+3) = FTHERM(IR+3) - 1 GALPHA(IR)*DELTAT*((ZK1**2)-(ZK**2))/2.0D0 1030 CONTINUE C 1040 IF (ITYPE .EQ. PCOMP) IPOINT = IPOINT + 27 C 1050 CONTINUE C C COMPUTE THERMAL STRAIN VECTOR C -1 C EPSLN = ABBD X FTHERM C CALL INVERD (6,ABBD,6,DUM,0,DETERM,ISING,INDX) C DO 1060 LL = 1,6 DO 1060 MM = 1,6 NN = MM + 6*(LL-1) STIFF(NN) = ABBD(LL,MM) 1060 CONTINUE C CALL GMMATD (STIFF(1),6,6,0,FTHERM(1),6,1,0,EPSLNT(1)) C C INITIALIZE NECESSARY ARRAYS BEFORE STARTING THE C DOUBLE INTEGRATION LOOP C 1070 DO 1100 I = 1,9 G2(I) = 0.0D0 1100 CONTINUE DO 1110 I = 1,6 EPSUBT(I) = 0.0D0 1110 CONTINUE DO 1120 I = 1,NDOF PT(I) = 0.0D0 PTG(I) = 0.0D0 1120 CONTINUE C C FILL IN THE 6X6 MATERIAL PROPERTY MATRIX G C DO 1130 IG = 1,6 DO 1130 JG = 1,6 1130 G(IG,JG) = 0.0D0 C IF (.NOT.MEMBRN) GO TO 1150 DO 1140 IG = 1,3 IG1 = (IG-1)*3 DO 1140 JG = 1,3 JG1 = JG + IG1 G(IG,JG) = GI(JG1) 1140 CONTINUE C 1150 IF (.NOT.BENDNG) GO TO 1180 I = 0 DO 1160 IG = 4,6 IG2 = (IG-2)*3 DO 1160 JG = 4,6 JG2 = JG + IG2 G(IG,JG) = GI(JG2)*MOMINR C C SAVE THE G-MATRIX FOR BENDING IN G2 C I = I + 1 G2(I) = G(IG,JG) 1160 CONTINUE C IF (.NOT.MEMBRN) GO TO 1180 IF (MBCOUP) GO TO 1180 DO 1170 IG = 1,3 IG1 = (IG-1)*3 KG = IG + 3 DO 1170 JG = 1,3 JG1 = JG + IG1 LG = JG + 3 G(IG,LG) = GI(JG1) G(KG,JG) = GI(JG1) 1170 CONTINUE C C HERE BEGINS THE DOUBLE LOOP ON STATEMENT 1470 TO C GAUSS INTEGRATE FOR THE ELEMENT STIFFNESS MATRIX. C 1180 DO 1470 IXSI = 1,2 XI = PTINT(IXSI) C DO 1470 IETA = 1,2 ETA = PTINT(IETA) C CALL Q4SHPD (XI,ETA,SHP,DSHP) C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 1200 I = 1,4 TMPSHP(I ) = SHP(I) DSHPTP(I ) = DSHP(I) 1200 DSHPTP(I+4) = DSHP(I+4) DO 1210 I = 1,4 KK = IORDER(I) SHP (I ) = TMPSHP(KK) DSHP(I ) = DSHPTP(KK) 1210 DSHP(I+4) = DSHPTP(KK+4) C C CALCULATE THE ELEMENT THICKNESS AT THIS POINT C THK = 0.0D0 DO 1220 I = 1,NNODE 1220 THK = THK + DGPTH(I)*SHP(I) REALI = THK*THK*THK/12.0D0 C C CALCULATE T-BAR FOR THIS INTEGRATION POINT. SKIP OVER IF TEMPPI C CARDS ARE PRESENT, THEN CALCULATE ALPHA*T FOR EACH CASE C IF (COMPOS) GO TO 1370 C IF (TEMPP1 .OR. TEMPP2) GO TO 1310 TBAR = 0.0D0 DO 1300 I =1,NNODE 1300 TBAR = TBAR + SHP(I)*GTEMPS(I) C 1310 TTBAR = TBAR - TSUB0 IF (.NOT.MEMBRN) GO TO 1330 DO 1320 I = 1,3 1320 TALFAM(I) = TTBAR*ALFAM(I) C 1330 IF (.NOT.BENDNG) GO TO 1370 IF (.NOT.TEMPP1 .AND. .NOT.TEMPP2) GO TO 1370 IF (TEMPP2) GO TO 1350 DO 1340 I = 1,3 1340 TALFAB(I) = -TGRAD*ALFAB(I) GO TO 1370 C 1350 DO 1360 IG2 = 1,9 1360 G2I(IG2) = G2(IG2)*REALI CALL INVERD (3,G2I,3,GDUM,0,DETG2,ISNGG2,INDEX) CALL GMMATD (G2I,3,3,0,THRMOM,3,1,0,TALFAB) C C START THE THIRD INTEGRATION LOOP (THRU THE THICKNESS) C 1370 DO 1460 IZTA = 1,2 ZTA = PTINT(IZTA) HZTA = ZTA/2.0D0 IBOT = (IZTA-1)*ND2 C CALL JACOB2 (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 1600 C CALL GMMATD (PSITRN,3,3,0,JACOB,3,3,1,PHI) C C CALL Q4BMGD TO GET B MATRIX C SET THE ROW FLAG TO 3. IT WILL RETURN THE FIRST 6 ROWS. C ROWFLG = 3 CALL Q4BMGD (DSHP,DGPTH,EGPDT,EPNORM,PHI,BMATRX(1)) DO 1380 IX = 1,NDOF 1380 BMATRX(IX+ND2) = XYBMAT(IBOT+IX) C IF (.NOT.BENDNG) GO TO 1410 DO 1390 IX = 1,NDOF 1390 BMATRX(IX+ND5) = XYBMAT(IBOT+IX+NDOF) C C NOW COMPLETE THE G-MATRIX IF COUPLING EXISTS. C IF (.NOT.MBCOUP) GO TO 1410 DO 1400 IG = 1,3 IG4 = (IG+8)*3 KG = IG + 3 DO 1400 JG = 1,3 JG4 = JG + IG4 JG1 = JG4- 27 LG = JG + 3 G(IG,LG) =-GI(JG4)*ZTA*6.0D0 + GI(JG1) G(KG,JG) =-GI(JG4)*ZTA*6.0D0 + GI(JG1) 1400 CONTINUE C C MULTIPLY DETERMINANT, B-TRANSPOSE, G-MATRIX, & THERMAL C STRAIN MATRIX. C T C P = DETERM * B * G * EPSILON C T T C 1410 IF (COMPOS) GO TO 1430 DO 1420 I = 1,3 EPSUBT(I) = DETJ*TALFAM(I) 1420 EPSUBT(I+3) = -DETJ*TALFAB(I)*HZTA*THK GO TO 1450 C 1430 DO 1440 IR = 1,3 EPSUBT(IR ) = DETJ*EPSLNT(IR) 1440 EPSUBT(IR+3) =-DETJ*EPSLNT(IR+3)*THK*HZTA C 1450 CALL GMMATD (G,6,6,0,EPSUBT,6,1,0,GEPSBT) CALL GMMATD (BMATRX,6,NDOF,-1,GEPSBT,6,1,0,PT) C 1460 CONTINUE 1470 CONTINUE C C TRIPLE INTEGRATION LOOP IS NOW FINISHED C C PICK UP THE BASIC TO GLOBAL TRANSFORMATION FOR EACH NODE. C DO 1500 I = 1,36 1500 TRANS(I) = 0.0D0 C DO 1540 I = 1,NNODE IPOINT = 9*(I-1) + 1 IF (IGPDT(1,I) .LE. 0) GO TO 1510 CALL TRANSD (BGPDT(1,I),TBG) GO TO 1530 1510 DO 1520 J = 1,9 1520 TBG(J) = 0.0D0 TBG(1) = 1.0D0 TBG(5) = 1.0D0 TBG(9) = 1.0D0 C 1530 CALL GMMATD (TEB,3,3,0,TBG,3,3,0,TRANS(IPOINT)) 1540 CONTINUE C C TRANSFORM THE THERMAL LOAD VECTOR INTO THE INDIVIDUAL C GLOBAL COORDINATE SYSTEMS OF EACH NODE. NOTE THAT THE C TRANSFORMATION MATRICES ARE STORED IN TRANS = TEG, C AND THAT THE 6-DOF LOAD VECTOR FOR EACH NODE USES THE C SAME 3X3 TRANSFORMATION MATRIX FOR THE TRANSLATIONAL C DOF'S (1-3) AND THE ROTATIONAL DOF'S (4-6). C C T C PT = TEG * PT C G E C DO 1550 I = 1,NNODE IPT = (I-1)*9 + 1 JPT1 = (I-1)*6 + 1 JPT2 = JPT1 + 3 CALL GMMATD (TRANS(IPT),3,3,1,PT(JPT1),3,1,0,PTG(JPT1)) CALL GMMATD (TRANS(IPT),3,3,1,PT(JPT2),3,1,0,PTG(JPT2)) 1550 CONTINUE C C WE NOW HAVE THE THERMAL LOAD VECTOR IN GLOBAL COORDINATES, C IN PTG. THE NEXT AND LAST STEP IS TO COMBINE IT WITH THE C SYSTEM LOAD VECTOR CONTAINED IN Z. C L = 0 DO 1560 I = 1,NNODE K = SIL(I) - 1 DO 1560 J = 1,6 K = K + 1 L = L + 1 Z(K) = Z(K) + SNGL(PTG(L)) 1560 CONTINUE GO TO 1600 C 1580 CALL MESAGE (30,J,NAM) NOGO = 1 1600 RETURN C 1700 FORMAT ('0*** SYSTEM FATAL ERROR. THE ELEMENT THICKNESS FOR ', 1 ' QUAD4 EID = ',I8,' IS NOT COMPLETELY DEFINED.') END ================================================ FILE: mis/tlqd4s.f ================================================ SUBROUTINE TLQD4S C C ELEMENT THERMAL LOAD GENERATOR FOR 4-NODE ISOPARAMETRIC C QUADRILATERAL SHELL ELEMENT (QUAD4) C (SINGLE PRECISION VERSION) C C COMPLETELY RESTRUCTURED FOR COMPOSITES WITH THE FOLLOWING C LIMITATION - C 1. FOR DIFFERENT GRID POINT TEMPERATURES AN AVERAGE C VALUE IS TAKEN. HEMANT 2/24/86 C C C EST LISTING C --------------------------------------------------------- C 1 EID C 2 THRU 5 SILS, GRIDS 1 THRU 4 C 6 THRU 9 T (MEMBRANE), GRIDS 1 THRU 4 C 10 THETA (MATERIAL) C 11 TYPE FLAG FOR WORD 10 C 12 ZOFF (OFFSET) C 13 MATERIAL ID FOR MEMBRANE C 14 T (MEMBRANE) C 15 MATERIAL ID FOR BENDING C 16 I FACTOR (BENDING) C 17 MATERIAL ID FOR TRANSVERSE SHEAR C 18 FACTOR FOR T(S) C 19 NSM (NON-STRUCTURAL MASS) C 20 THRU 21 Z1, Z2 (STRESS FIBRE DISTANCES) C 22 MATERIAL ID FOR MEMBRANE-BENDING COUPLING C 23 THETA (MATERIAL) FROM PSHELL CARD C 24 TYPE FLAG FOR WORD 23 C 25 INTEGRATION ORDER C 26 THETA (STRESS) C 27 TYPE FLAG FOR WORD 26 C 28 ZOFF1 (OFFSET) OVERRIDDEN BY EST(12) C 29 THRU 44 CID,X,Y,Z - GRIDS 1 THRU 4 C 45 ELEMENT TEMPERATURE C C LOGICAL BADJAC,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH, 1 TEMPP1,TEMPP2,PCMP,PCMP1,PCMP2,COMPOS INTEGER INTZ(1),NOUT,NEST(45),ELID,SIL(4),KSIL(4), 1 KCID(4),IGPDT(4,4),FLAG,ROWFLG,NECPT(4), 2 MID(4),INDEX(3,3),INDX(6,3),COMPS,NAM(2), 3 PCOMP,PCOMP1,PCOMP2,SYM,SYMMEM,PID,PIDLOC REAL GPTH(4),TGRID(4,4),GPNORM(4,4),BGPDT(4,4), 1 MATSET,TMPTHK(4),ECPT(4),EGPDT(4,4), 2 EPNORM(4,4),BGPDM(3,4),ALPHAM(6),TSUB0,STEMP,Z REAL DGPTH(4),THK,EPS1,XI,ETA,DETJ,HZTA,PSITRN(9), 1 JACOB(9),PHI(9),MOMINR,COEFF,REALI,PI,TWOPI, 2 RADDEG,DEGRAD,SHP(4),DSHP(8),TMPSHP(4), 3 DSHPTP(8),GT(9),G(6,6),GI(36),U(9),TRANS(36), 4 PTINT(2),GGE(9),GGU(9),TBM(9),TEB(9),TEM(9), 5 TUB(9),TUM(9),TEU(9),TBG(9),UGPDM(3,4),CENTE(3), 6 CENT(3),X31,Y31,X42,Y42,AA,BB,CC,EXI,EXJ,XM,YM, 7 THETAM,BMATRX(144),XYBMAT(96),ALPHA(6),ALFAM(3), 8 ALFAB(3),TALFAM(3),TALFAB(3),ALPHAD(6),PT(24), 9 PTG(24),TBAR,TTBAR,TGRAD,THRMOM(3),G2I(9),G2(9), O GTEMPS(6),EPSUBT(6),GEPSBT(6),DETU,DETG2,DETERM REAL ABBD(6,6),STIFF(36),GPROP(25),GLAY(9),GLAYT(9), 1 GBAR(9),GALPHA(3),ALPHAL(3),ALPHAE(3),MINTR, 2 TLAM,THETA,THETAE,TRANSL(9),TSUBO,TMEAN,TEMPEL, 3 DELTA,DELTAT,ZK,ZK1,ZREF,ZSUBI,C,C2,S,S2, 4 FTHERM(6),EPSLNT(6),OFFSET,CONST,UEV,ANGLEI, 5 EDGEL,EDGSHR,UNV CWKBNB 11/93 SPR 93020 REAL VD1(3), VD2(3), VKN(3), VKS(3) 1, V12(3), V41(3), VP12(3),VIS(3), VJS(3) CWKBNE 11/93 SPR 93020 COMMON /CONDAS/ PI,TWOPI,RADDEG,DEGRAD COMMON /TRIMEX/ EST(45) COMMON /SYSTEM/ BUFFER(100) COMMON /MATIN / MATID,INFLAG,ELTEMP COMMON /MATOUT/ RMTOUT(25) COMMON /SGTMPD/ STEMP(8) CZZ COMMON /ZZSSB1/ Z(1) COMMON /ZZZZZZ/ Z(20000) COMMON /BLANK / NROWSP,IPARAM,COMPS COMMON /COMPST/ IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2 COMMON /Q4DT / DETJ,HZTA,PSITRN,NNODE,BADJAC,N1 COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /Q4COMS/ ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4), 1 UEV(3,4),ROWFLG,IORDER(4) C EQUIVALENCE (Z(1) ,INTZ(1)), (IGPDT(1,1),BGPDT(1,1)) EQUIVALENCE (EST(1) ,NEST(1)), (BGPDT(1,1),EST(29) ) EQUIVALENCE (ELTH ,EST(14)), (GPTH(1) ,EST(6) ) EQUIVALENCE (SIL(1) ,NEST(2)), (MATSET ,RMTOUT(25)) EQUIVALENCE (ZOFF ,EST(12)), (ZOFF1 ,EST(28) ) EQUIVALENCE (NECPT(1) ,ECPT(1)), (BUFFER(1) ,SYSBUF ) EQUIVALENCE (BUFFER(2),NOUT ), (BUFFER(3) ,NOGO ) EQUIVALENCE (STEMP(7) ,FLAG ), (ALFAB(1) ,ALPHA(4) ) EQUIVALENCE (ALFAM(1) ,ALPHA(1)) C DATA EPS1 / 1.0E-7 / DATA PCOMP / 0 / DATA PCOMP1 / 1 / DATA PCOMP2 / 2 / DATA SYM / 1 / DATA MEM / 2 / DATA SYMMEM / 3 / DATA CONST / 0.57735026918962 / DATA NAM / 4HTLQD,4H4S / C C-----ZERO THE VARIOUS ALPHA ARRAYS C DO 10 I =1,6 ALPHAM(I) = 0.0 ALPHA(I) = 0.0 ALPHAD(I) = 0.0 10 CONTINUE DO 20 I =1,3 TALFAM(I) = 0.0 TALFAB(I) = 0.0 20 CONTINUE C ELID=NEST(1) LTYPFL=1 OFFSET=ZOFF IF (ZOFF .EQ. 0.0) OFFSET=ZOFF1 C C TEST FOR COMPOSITE ELEMENT C COMPOS = .FALSE. C PID = NEST(13) - 100000000 COMPOS = COMPS.EQ.-1 .AND. PID.GT.0 C C-----CHECK FOR THE TYPE OF TEMPERATURE DATA C NOTES- 1- TYPE TEMPP1 ALSO INCLUDES TYPE TEMPP3 C 2- IF NO TEMPPI CARDS, GRID POINT TEMPERATURES C ONLY ARE PRESENT C TEMPP1 = FLAG .EQ. 13 TEMPP2 = FLAG .EQ. 2 C N1=4 NNODE=4 NDOF=NNODE*6 ND2=NDOF*2 ND3=NDOF*3 ND4=NDOF*4 ND5=NDOF*5 C C FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS C 1, 2 AND 4. THIS ARRAY WILL BE USED LATER TO DEFINE C THE USER COORDINATE SYSTEM WHILE CALCULATING C TRANSFORMATIONS INVOLVING THIS COORDINATE SYSTEM. C DO 30 I=1,3 II=(I-1)*3 IJ=I IF (IJ .EQ. 3) IJ=4 DO 30 J=1,3 JJ=J+1 30 GGU(II+J)=BGPDT(JJ,IJ) CWKBD 11/93 SPR93020 CALL BETRNS (TUB,GGU,0,ELID) CWKBNB 11/93 SPR93020 C ADD FROM SHEAR ELEMENT C C COMPUTE DIAGONAL VECTORS C DO 21 I = 1,3 II=I+1 VD1(I) = BGPDT(II,3) - BGPDT(II,1) 21 VD2(I) = BGPDT(II,4) - BGPDT(II,2) C C COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED C AREA, PA C VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2) VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3) VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1) VKL = SQRT( VKN(1)**2 + VKN(2)**2 + VKN(3)**2 ) IF ( VKL .EQ. 0. ) WRITE( NOUT, 2070 ) EST(1) 2070 FORMAT(//,' ILLEGAL GEOMETRY FOR QUAD4 ELEMENT, ID=',I10 ) VKS(1) = VKN(1)/VKL VKS(2) = VKN(2)/VKL VKS(3) = VKN(3)/VKL PA = VKL/2. C C COMPUTE SIDES -12- AND -41- DO 25 I = 1,3 II = I + 1 V12(I) = BGPDT(II,2) - BGPDT(II,1) V41(I) = BGPDT(II,1) - BGPDT(II,4) 25 CONTINUE C C COMPUTE DOT PRODUCT, V12DK, OR V12 AND VK, THE VECTORS VP12, VI, VJ C V12DK = V12(1)*VKS(1) + V12(2)*VKS(2) + V12(3)*VKS(3) VP12(1) = V12(1) - V12DK*VKS(1) VP12(2) = V12(2) - V12DK*VKS(2) VP12(3) = V12(3) - V12DK*VKS(3) VP12L = SQRT( VP12(1)**2 + VP12(2)**2 + VP12(3)**2 ) IF ( VP12L .EQ. 0. ) WRITE( NOUT, 2070 ) EST(1) VIS(1) = VP12(1) / VP12L VIS(2) = VP12(2) / VP12L VIS(3) = VP12(3) / VP12L VJS(1) = VKS(2)*VIS(3) - VKS(3)*VIS(2) VJS(2) = VKS(3)*VIS(1) - VKS(1)*VIS(3) VJS(3) = VKS(1)*VIS(2) - VKS(2)*VIS(1) C C NORMALIZE J FOR GOOD MEASURE C VJL = SQRT( VJS(1)**2 + VJS(2)**2 + VJS(3)**2 ) IF ( VJL .EQ. 0. ) WRITE ( NOUT, 2070 ) EST(1) VJS(1) = VJS(1) / VJL VJS(2) = VJS(2) / VJL VJS(3) = VJS(3) / VJL DO 29 I = 1,3 TUB(I) = VIS(I) TUB(I+3) = VJS(I) TUB(I+6) = VKS(I) 29 CONTINUE CWKBNE 11/93 SPR93020 C C STORE INCOMING BGPDT FOR ELEMENT C.S. CALCULATION C DO 40 I=1,3 I1=I+1 DO 40 J=1,4 40 BGPDM(I,J)=BGPDT(I1,J) C C TRANSFORM BGPDM FROM BASIC TO USER C.S. C DO 50 I=1,3 IP=(I-1)*3 DO 50 J=1,4 UGPDM(I,J)=0.0 DO 50 K=1,3 KK=IP+K 50 UGPDM(I,J)=UGPDM(I,J)+TUB(KK)*((BGPDM(K,J))-GGU(K)) C C C THE ORIGIN OF THE ELEMENT C.S. IS IN THE MIDDLE OF THE ELEMENT C DO 60 J=1,3 CENT(J)=0.0 DO 60 I=1,4 60 CENT(J)=CENT(J)+UGPDM(J,I)/NNODE C C STORE THE CORNER NODE DIFF. IN THE USER C.S. C X31=UGPDM(1,3)-UGPDM(1,1) Y31=UGPDM(2,3)-UGPDM(2,1) X42=UGPDM(1,4)-UGPDM(1,2) Y42=UGPDM(2,4)-UGPDM(2,2) AA=SQRT(X31*X31+Y31*Y31) BB=SQRT(X42*X42+Y42*Y42) C C NORMALIZE XIJ'S C X31=X31/AA Y31=Y31/AA X42=X42/BB Y42=Y42/BB EXI=X31-X42 EXJ=Y31-Y42 C C STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT C.S. AND USER C.S. C GGE(1)=CENT(1) GGE(2)=CENT(2) GGE(3)=CENT(3) C GGE(4)=GGE(1)+EXI GGE(5)=GGE(2)+EXJ GGE(6)=GGE(3) C GGE(7)=GGE(1)-EXJ GGE(8)=GGE(2)+EXI GGE(9)=GGE(3) C C C THE ARRAY IORDER STORES THE ELEMENT NODE ID IN C INCREASING SIL ORDER. C C IORDER(1) = NODE WITH LOWEST SIL NUMBER C IORDER(4) = NODE WITH HIGHEST SIL NUMBER C C ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE C LIST G1,G2,G3,G4 . THAT IS, THE 'I' PART C OF THE 'GI' AS THEY ARE LISTED ON THE CONNECTIVITY C BULK DATA CARD DESCRIPTION. C C DO 70 I=1,4 IORDER(I)=0 KSIL(I)=SIL(I) 70 CONTINUE C DO 90 I=1,4 ITEMP=1 ISIL=KSIL(1) DO 80 J=2,4 IF (ISIL .LE. KSIL(J)) GO TO 80 ITEMP=J ISIL=KSIL(J) 80 CONTINUE IORDER(I)=ITEMP KSIL(ITEMP)=99999999 90 CONTINUE C C ADJUST EST DATA C C C USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE C GEOMETRY DATA INTO INCREASING SIL ORDER. C DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE C FUNCTIONS GO WITH WHICH GEOMETRIC PARAMETERS! C C DO 110 I=1,4 KSIL(I)=SIL(I) TMPTHK(I)=GPTH(I) KCID(I)=IGPDT(1,I) DO 100 J=2,4 TGRID(J,I)=BGPDT(J,I) 100 CONTINUE 110 CONTINUE DO 130 I=1,4 IPOINT=IORDER(I) SIL(I)=KSIL(IPOINT) GPTH(I)=TMPTHK(IPOINT) IGPDT(1,I)=KCID(IPOINT) DO 120 J=2,4 BGPDT(J,I)=TGRID(J,IPOINT) 120 CONTINUE 130 CONTINUE C C-----SORT THE GRID POINT TEMPERATURES (IN STEMP(1-4)) C IF PRESENT AND MAKE REAL THE OTHER C KINDS OF TEMPERATURE DATA IF TEMPPI CARDS PRESENT C IF (TEMPP1 .OR. TEMPP2) GO TO 150 C TEMPEL = 0.0 DO 140 I =1,4 IPNT = IORDER(I) GTEMPS(I) = STEMP(IPNT) TEMPEL = TEMPEL + 0.25 * GTEMPS(I) 140 CONTINUE GO TO 170 C 150 IF (TEMPP2) GO TO 160 C TBAR = STEMP(1) TGRAD = STEMP(2) GO TO 170 C 160 TBAR = STEMP(1) THRMOM(1) = STEMP(2) THRMOM(2) = STEMP(3) THRMOM(3) = STEMP(4) 170 CONTINUE C C COMPUTE NODE NORMALS C CALL Q4NRMS (BGPDT,GPNORM,IORDER,IFLAG) IF (IFLAG .EQ. 0) GO TO 180 J = -230 GO TO 1580 C C DETERMINE NODAL THICKNESSES C 180 DO 200 I=1,NNODE IF (GPTH(I) .EQ. 0.0) GPTH(I)=ELTH IF (GPTH(I) .GT. 0.0) GO TO 190 WRITE (NOUT,1700) ELID NOGO=1 GO TO 1600 190 DGPTH(I)=GPTH(I) 200 CONTINUE C MOMINR=0.0 IF (NEST(15) .NE. 0) MOMINR=EST(16) C C C THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE C TRANSFORMED FROM THE BASIC C.S. TO THE ELEMENT C.S. C C CALL BETRNS (TEU,GGE,0,ELID) CALL GMMATS (TEU,3,3,0,TUB,3,3,0,TEB) CALL GMMATS (TUB,3,3,1,CENT,3,1,0,CENTE) C IP = -3 DO 210 II=2,4 IP=IP+3 DO 210 J=1,NNODE EPNORM(II,J)=0.0 EGPDT(II,J)=0.0 DO 210 K=1,3 KK=IP+K K1=K+1 CC=(BGPDT(K1,J))-GGU(K)-CENTE(K) EPNORM(II,J)=EPNORM(II,J)+TEB(KK)*GPNORM(K1,J) 210 EGPDT( II,J)=EGPDT(II,J)+(TEB(KK)*CC) CWKBNB 11/93 SPR93020 DO 171 J = 1, 4 EGPDT(4,J) = CENT(3) 171 CONTINUE CWKBNE 11/93 SPR93020 C C BEGIN INITIALIZING MATERIAL VARIABLES C C SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR - C ISOTROPIC MATERIAL PROPERTIES AMONG THE MAT1 CARDS, C ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND C ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS. C INFLAG=12 ELTEMP= EST(45) MID(1)=NEST(13) MID(2)=NEST(15) MID(3)=0 MID(4)=NEST(22) MEMBRN=MID(1).GT.0 BENDNG=MID(2).GT.0 .AND. MOMINR.GT.0.0 SHRFLX=MID(3).GT.0 MBCOUP=MID(4).GT.0 NORPTH=.FALSE. C C SET THE INTEGRATION POINTS C PTINT(1) = -CONST PTINT(2) = CONST C C IN PLANE SHEAR REDUCTION C XI =0.0 ETA=0.0 KPT=1 KPT1=ND2 C CALL Q4SHPS (XI,ETA,SHP,DSHP) C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 300 I=1,4 TMPSHP(I )=SHP(I) DSHPTP(I )=DSHP(I) 300 DSHPTP(I+4)=DSHP(I+4) DO 310 I=1,4 KK=IORDER(I) SHP (I )=TMPSHP(KK) DSHP(I )=DSHPTP(KK) 310 DSHP(I+4)=DSHPTP(KK+4) C DO 320 IZTA=1,2 ZTA =PTINT(IZTA) HZTA=ZTA/2.0 CALL JACOBS (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 1600 C CALL GMMATS (PSITRN,3,3,0,JACOB,3,3,1,PHI) C C CALL Q4BMGS TO GET B MATRIX C SET THE ROW FLAG TO 2. IT WILL SAVE THE 3RD ROW OF B AT C THE TWO INTEGRATION POINTS. C ROWFLG = 2 CALL Q4BMGS (DSHP,DGPTH,EGPDT,EPNORM,PHI,XYBMAT(KPT)) 320 KPT=KPT+KPT1 C C SET THE ARRAY OF LENGTH 4 TO BE USED IN CALLING TRANSS. C NOTE THAT THE FIRST WORD IS THE COORDINATE SYSTEM ID WHICH C WILL BE SET IN POSITION LATER. C DO 330 IEC=2,4 330 ECPT(IEC)=0.0 C C FETCH MATERIAL PROPERTIES C C EACH MATERIAL PROPERTY MATRIX G HAS TO BE TRANSFORMED FROM C THE MATERIAL COORDINATE SYSTEM TO THE ELEMENT COORDINATE C SYSTEM. THESE STEPS ARE TO BE FOLLOWED - C C 1- IF MCSID HAS BEEN SPECIFIED, SUBROUTINE TRANSS IS CALLED C TO CALCULATE TBM MATRIX (MATERIAL TO BASIC TRANSFORMATION). C THIS WILL BE FOLLOWED BY A CALL TO SUBROUTINE BETRNS C TO CALCULATE TEB MATRIX (BASIC TO ELEMENT TRANSFORMATION). C TBM IS THEN PREMULTIPLIED BY TEB TO OBTAIN TEM MATRIX. C THEN USING THE PROJECTION OF X-AXIS, AN ANGLE IS CALCULATED C UPON WHICH STEP 2 IS TAKEN. C C 2- IF THETAM HAS BEEN SPECIFIED, SUBROUTINE ANGTRS IS CALLED C TO CALCULATE TEM MATRIX (MATERIAL TO ELEMENT TRANSFORMATION). C C T C 3- G = U G U C E M C C IF (NEST(11) .EQ. 0) GO TO 390 MCSID=NEST(10) C C CALCULATE TEM USING MCSID C 340 IF (MCSID .GT. 0) GO TO 360 DO 350 I=1,9 350 TEM(I)=TEB(I) GO TO 370 360 NECPT(1)=MCSID CALL TRANSS (ECPT,TBM) C C MULTIPLY TEB AND TBM C CALL GMMATS (TEB,3,3,0,TBM,3,3,0,TEM) C C CALCULATE THETAM FROM THE PROJECTION OF THE X-AXIS OF THE C MATERIAL C.S. ON TO THE XY PLANE OF THE ELEMENT C.S. C 370 IMT=-1 XM=TEM(1) YM=TEM(4) IF (ABS(XM) .LE. EPS1) IMT=IMT+1 IF (ABS(YM) .LE. EPS1) IMT=IMT+2 IF (IMT .LT. 2) GO TO 380 NEST(2) = MCSID J = -231 GO TO 1580 380 THETAM= ATAN2(YM,XM) GO TO 400 C C CALCULATE TEM USING THETAM C 390 THETAM = (EST(10))*DEGRAD IF (THETAM .EQ. 0.0) GO TO 410 400 CALL ANGTRS (THETAM,1,TUM) CALL GMMATS (TEU,3,3,0,TUM,3,3,0,TEM) GO TO 430 C C DEFAULT IS CHOSEN, LOOK FOR VALUES OF MCSID AND/OR THETAM C ON THE PSHELL CARD. C 410 IF (NEST(24) .EQ. 0) GO TO 420 MCSID=NEST(23) GO TO 340 C 420 THETAM = (EST(23))*DEGRAD GO TO 400 C 430 CONTINUE C C BEGIN THE LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID C M=0 500 M=M+1 IF (M .GT. 4) GO TO 690 MATID=MID(M) IF (MATID .EQ. 0) GO TO 500 C IF (M-1) 530,520,510 510 IF (MATID.EQ.MID(M-1)) GO TO 530 520 CALL MAT (ELID) 530 CONTINUE C TSUB0 = RMTOUT(11) IF (MATSET .EQ. 8.0) TSUB0 = RMTOUT(10) C COEFF=1.0 LPOINT=(M-1)*9+1 C CALL Q4GMGS (M,COEFF,GI(LPOINT)) C IF (THETAM .EQ. 0.0) GO TO 550 C U(1)=TEM(1)*TEM(1) U(2)=TEM(4)*TEM(4) U(3)=TEM(1)*TEM(4) U(4)=TEM(2)*TEM(2) U(5)=TEM(5)*TEM(5) U(6)=TEM(2)*TEM(5) U(7)=TEM(1)*TEM(2)*2.0 U(8)=TEM(4)*TEM(5)*2.0 U(9)=TEM(1)*TEM(5)+TEM(2)*TEM(4) L=3 C CALL GMMATS (U(1),L,L,1,GI(LPOINT),L,L,0,GT(1)) CALL GMMATS (GT(1),L,L,0,U(1),L,L,0,GI(LPOINT)) C 550 CONTINUE C IF (COMPOS) GO TO 500 C C-----TRANSFORM THERMAL EXPANSION COEFFICIENTS AND STORE THEM IN ALPHA C IF (M .GT. 2) GO TO 500 MORB = (M-1)*3 IF (MATSET .EQ. 2.0) GO TO 610 IF (MATSET .EQ. 8.0) GO TO 630 C C MAT1 C DO 600 IMAT=1,2 600 ALPHAM(IMAT+MORB)=RMTOUT(8) ALPHAM(3+MORB) = 0.0 GO TO 640 C C MAT2 C 610 DO 620 IMAT=1,3 620 ALPHAM(IMAT+MORB)=RMTOUT(7+IMAT) GO TO 640 C C MAT8 C 630 ALPHAM(MORB+1)=RMTOUT(8) ALPHAM(MORB+2)=RMTOUT(9) ALPHAM(MORB+3)=0.0 C C-----SKIP THE TRANSFORMATION OF ALPHAM IF MATSET = 1.0 C OR THETAM = 0.0 C 640 CONTINUE C IF (MATSET .EQ. 1.0) GO TO 650 IF (THETAM .NE. 0.0) GO TO 670 C 650 DO 660 IG = 1,3 ALPHA(IG+MORB) = ALPHAM(IG+MORB) 660 CONTINUE GO TO 500 C C-----THE ALPHAS NEED TO BE PREMULTIPLIED BY U INVERSE. C INCREMENT MORB BY 1 TO INDICATE WHERE TO FILL THE C ARRAYS, AND PUT THE SINGLE PREC. ARRAY OF ALPHAM C INTO THE DOUBLE PREC. ARRAY OF ALPHAD FOR THE CALL C TO GMMATS. C 670 MORB = MORB + 1 DO 680 I =1,6 ALPHAD(I) = ALPHAM(I) 680 CONTINUE CALL INVERS (3,U,3,BDUM,0,DETU,ISNGU,INDEX) CALL GMMATS (U,3,3,0,ALPHAD(MORB),3,1,0,ALPHA(MORB)) GO TO 500 C 690 IF (.NOT.COMPOS) GO TO 1070 C C**** C IF LAMINATED COMPOSITE ELEMENT, DETERMINE THE THERMAL C STRAIN VECTOR DUE TO THE APPLIED THERMAL LOADING. C NOTE THE FOLLOWING - C 1. DIFFERENT GRID POINT TEMPERATURES ARE NOT SUPPORTED C C**** C LOCATE PID BY CARRYING OUT A SEQUENTIAL SEARCH C OF THE PCOMPS DATA BLOCK, AND ALSO DETERMINE C THE TYPE OF 'PCOMP' BULK DATA ENTRY. C**** C C**** C POINTER DESCRIPITION C -------------------- C IPCMP - LOCATION OF START OF PCOMP DATA IN CORE C NPCMP - NUMBER OF WORDS OF PCOMP DATA C IPCMP1 - LOCATION OF START OF PCOMP1 DATA IN CORE C NPCMP1 - NUMBER OF WORDS OF PCOMP1 DATA C IPCMP2 - LOCATION OF START OF PCOMP2 DATA IN CORE C NPCMP2 - NUMBER OF WORDS OF PCOMP2 DATA C C ITYPE - TYPE OF PCOMP BULK DATA ENTRY C C C LAMOPT - LAMINATION GENERATION OPTION C = SYM (SYMMETRIC) C = MEM (MEMBRANE) C = SYMMEM (SYMMETRIC-MEMBRANE) C C C**** C C C**** SET POINTER LPCOMP LPCOMP = IPCMP + NPCMP + NPCMP1 + NPCMP2 C C**** SET POINTERS ITYPE = -1 C PCMP = .FALSE. PCMP1 = .FALSE. PCMP2 = .FALSE. C PCMP = NPCMP .GT. 0 PCMP1 = NPCMP1 .GT. 0 PCMP2 = NPCMP2 .GT. 0 C C**** CHECK IF NO 'PCOMP' DATA HAS BEEN READ INTO CORE C IF (PCMP .OR. PCMP1 .OR. PCMP2) GO TO 700 J = -229 GO TO 1580 C C**** SEARCH FOR PID IN PCOMP DATA C 700 IF (.NOT.PCMP) GO TO 750 C IP = IPCMP IF (INTZ(IP) .EQ. PID) GO TO 740 IPC11 = IPCMP1 - 1 DO 720 IP = IPCMP,IPC11 IF (INTZ(IP).EQ.-1 .AND. IP.LT.(IPCMP1-1)) GO TO 710 GO TO 720 710 IF (INTZ(IP+1) .EQ. PID) GO TO 730 720 CONTINUE GO TO 750 C 730 IP = IP+1 740 ITYPE = PCOMP GO TO 860 C C**** SEARCH FOR PID IN PCOMP1 DATA C 750 IF (.NOT.PCMP1) GO TO 800 IP = IPCMP1 IF (INTZ(IP) .EQ. PID) GO TO 790 IPC21 = IPCMP2 - 1 DO 770 IP = IPCMP1,IPC21 IF (INTZ(IP).EQ.-1 .AND. IP.LT.(IPCMP2-1)) GO TO 760 GO TO 770 760 IF (INTZ(IP+1) .EQ. PID) GO TO 780 770 CONTINUE GO TO 800 C 780 IP = IP+1 790 ITYPE = PCOMP1 GO TO 860 C C**** SEARCH FOR PID IN PCOMP2 DATA C 800 IP = IPCMP2 IF (INTZ(IP) .EQ. PID) GO TO 840 LPC11 = LPCOMP - 1 DO 820 IP = IPCMP2,LPC11 IF (INTZ(IP).EQ.-1 .AND. IP.LT.(LPCOMP-1)) GO TO 810 GO TO 820 810 IF (INTZ(IP+1) .EQ. PID) GO TO 830 820 CONTINUE GO TO 850 C 830 IP = IP+1 840 ITYPE = PCOMP2 GO TO 860 C C C**** CHECK IF PID HAS NOT BEEN LOCATED C 850 IF (ITYPE .NE. -1) GO TO 860 J = -229 GO TO 1580 C C**** LOCATION OF PID C 860 PIDLOC = IP LAMOPT = INTZ(PIDLOC+8) C C C**** DETERMINE INTRINSIC LAMINATE PROPERTIES C C LAMINATE THICKNESS C TLAM = ELTH C C**** LAMINATE EXTENSIONAL, BENDING AND MEMBRANE-BENDING MATRICES C DO 870 LL = 1,6 DO 870 MM = 1,6 ABBD(LL,MM) = 0.0 870 CONTINUE C C EXTENSIONAL C MATID = MID(1) CALL MAT (ELID) C CALL LPROPS (GPROP) C DO 880 LL = 1,3 DO 880 MM = 1,3 II = MM + 3*(LL-1) ABBD(LL,MM) = GPROP(II)*TLAM 880 CONTINUE C IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 910 C C BENDING C MATID = MID(2) CALL MAT (ELID) C CALL LPROPS (GPROP) C C**** MOMENT OF INERTIA OF LAMINATE MINTR = (TLAM**3)/12.0 C DO 890 LL = 1,3 DO 890 MM = 1,3 II = MM + 3*(LL-1) ABBD(LL+3,MM+3) = GPROP(II)*MINTR 890 CONTINUE C IF (LAMOPT .EQ. SYM) GO TO 910 C C MEMBRANE-BENDING C MATID = MID(4) CALL MAT (ELID) C CALL LPROPS (GPROP) C DO 900 LL = 1,3 DO 900 MM = 1,3 II = MM + 3*(LL-1) ABBD(LL,MM+3) = GPROP(II)*TLAM*TLAM ABBD(LL+3,MM) = GPROP(II)*TLAM*TLAM 900 CONTINUE C 910 CONTINUE C C**** REFERENCE SURFACE ZREF = -TLAM/2.0 C C**** NUMBER OF LAYERS NLAY = INTZ(PIDLOC + 1) C C**** SET POINTER IF (ITYPE .EQ. PCOMP ) IPOINT = (PIDLOC + 8 + 4*NLAY) IF (ITYPE .EQ. PCOMP1) IPOINT = (PIDLOC + 8 + NLAY) IF (ITYPE .EQ. PCOMP2) IPOINT = (PIDLOC + 8 + 2*NLAY) C C**** C ALLOW FOR THE ORIENTATION OF THE MATERIAL AXIS FROM C THE ELEMENT AXIS C**** C THETAE = ATAN(TEM(2)/TEM(1)) THETAE = THETAE*DEGRAD C C C**** LAMINATE REFERENCE (OR LAMINATION) TEMPERATURE TSUBO = Z(IPOINT+24) C IF (TEMPP1 .OR. TEMPP2) GO TO 920 TMEAN = TEMPEL GO TO 930 C 920 TMEAN = STEMP(1) C 930 DELTA = TMEAN - TSUBO C DO 940 LL = 1,6 FTHERM(LL) = 0.0 940 CONTINUE C C**** ALLOW FOR APPLIED THERMAL MOMENTS C IF (.NOT.TEMPP2) GO TO 960 C DO 950 LL = 1,3 950 FTHERM(LL+3) = THRMOM(LL) C 960 CONTINUE C C C L O O P O V E R N L A Y C DO 1050 K = 1,NLAY C ZK1 = ZK IF (K .EQ. 1) ZK1 = ZREF IF (ITYPE .EQ. PCOMP ) ZK = ZK1 + Z(PIDLOC + 6 + 4*K) IF (ITYPE .EQ. PCOMP1) ZK = ZK1 + Z(PIDLOC + 7) IF (ITYPE .EQ. PCOMP2) ZK = ZK1 + Z(PIDLOC + 7 + 2*K) C ZSUBI = (ZK+ZK1)/2.0 C C**** LAYER THICKNESS TI = ZK - ZK1 C C**** LAYER ORIENTATION IF (ITYPE .EQ. PCOMP ) THETA = Z(PIDLOC + 7 + 4*K) IF (ITYPE .EQ. PCOMP1) THETA = Z(PIDLOC + 8 + K) IF (ITYPE .EQ. PCOMP2) THETA = Z(PIDLOC + 8 + 2*K) C C THETA = THETA * DEGRAD C IF (THETAE .GT. 0.0) THETA = THETA + THETAE C C = COS(THETA) C2 = C*C S = SIN(THETA) S2 = S*S C TRANSL(1) = C2 TRANSL(2) = S2 TRANSL(3) = C*S TRANSL(4) = S2 TRANSL(5) = C2 TRANSL(6) =-C*S TRANSL(7) =-2.0*C*S TRANSL(8) = 2.0*C*S TRANSL(9) = C2-S2 C C**** CALCULATE GBAR = TRANST X GLAY X TRANS C DO 1000 IR = 1,9 GLAY(IR) = Z(IPOINT+IR) 1000 CONTINUE C CALL GMMATS (GLAY(1),3,3,0,TRANSL(1),3,3,0,GLAYT(1)) CALL GMMATS (TRANSL(1),3,3,1,GLAYT(1),3,3,0,GBAR(1)) C C**** CALCULATE ALPHAE = TRANSL X ALPHA C C C MODIFY TRANSL FOR TRANSFORMATIONS OF ALPHAS C TRANSL(3) = -TRANSL(3) TRANSL(6) = -TRANSL(6) TRANSL(7) = -TRANSL(7) TRANSL(8) = -TRANSL(8) C DO 1010 IR = 1,3 ALPHAL(IR) = Z(IPOINT+13+IR) 1010 CONTINUE C CALL GMMATS (TRANSL(1),3,3,0,ALPHAL(1),3,1,0,ALPHAE(1)) C C C**** CALCULATE LAMINATE OPERATING TEMPERATURE (ALLOWING FOR C TEMPERATURE GRADIENT IF APPLIED) C DELTAT = DELTA IF (TEMPP1) DELTAT = DELTA + ZSUBI*TGRAD C C**** CALCULATE THERMAL FORCES AND MOMENTS C CALL GMMATS (GBAR(1),3,3,0,ALPHAE(1),3,1,0,GALPHA(1)) C DO 1020 IR = 1,3 FTHERM(IR) = FTHERM(IR) + GALPHA(IR)*DELTAT*(ZK - ZK1) IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1020 FTHERM(IR+3) = FTHERM(IR+3) - 1 GALPHA(IR)*DELTAT*((ZK**2)-(ZK1**2))/2.0 1020 CONTINUE C IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 1040 C C**** CALCULATE CONTRIBUTION FROM SYMMETRIC LAYERS C DELTAT = DELTA IF (TEMPP1) DELTAT = DELTA - ZSUBI*TGRAD C DO 1030 IR = 1,3 FTHERM(IR) = FTHERM(IR) + GALPHA(IR)*DELTAT*(ZK-ZK1) IF (LAMOPT .EQ. SYMMEM) GO TO 1030 FTHERM(IR+3) = FTHERM(IR+3) - 1 GALPHA(IR)*DELTAT*((ZK1**2)-(ZK**2))/2.0 1030 CONTINUE C 1040 IF (ITYPE .EQ. PCOMP) IPOINT = IPOINT + 27 C 1050 CONTINUE C C C**** C COMPUTE THERMAL STRAIN VECTOR C**** C -1 C EPSLN = ABBD X FTHERM C CALL INVERS (6,ABBD,6,DUM,0,DETERM,ISING,INDX) C DO 1060 LL = 1,6 DO 1060 MM = 1,6 NN = MM + 6*(LL-1) STIFF(NN) = ABBD(LL,MM) 1060 CONTINUE C CALL GMMATS (STIFF(1),6,6,0,FTHERM(1),6,1,0,EPSLNT(1)) C 1070 CONTINUE C C C-----INITIALIZE NECESSARY ARRAYS BEFORE STARTING THE C DOUBLE INTEGRATION LOOP C DO 1100 I =1,9 G2(I) = 0.0 1100 CONTINUE DO 1110 I =1,6 EPSUBT(I) = 0.0 1110 CONTINUE DO 1120 I =1,NDOF PT(I) = 0.0 PTG(I) = 0.0 1120 CONTINUE C C FILL IN THE 6X6 MATERIAL PROPERTY MATRIX G C DO 1130 IG=1,6 DO 1130 JG=1,6 1130 G(IG,JG)=0.0 C IF (.NOT.MEMBRN) GO TO 1150 DO 1140 IG=1,3 IG1=(IG-1)*3 DO 1140 JG=1,3 JG1=JG+IG1 G(IG,JG)=GI(JG1) 1140 CONTINUE C 1150 IF (.NOT.BENDNG) GO TO 1180 I = 0 DO 1160 IG=4,6 IG2=(IG-2)*3 DO 1160 JG=4,6 JG2=JG+IG2 G(IG,JG)=GI(JG2)*MOMINR C C SAVE THE G-MATRIX FOR BENDING IN G2 C I = I + 1 G2(I) = G(IG,JG) 1160 CONTINUE C IF (.NOT.MEMBRN) GO TO 1180 IF (MBCOUP) GO TO 1180 DO 1170 IG=1,3 IG1=(IG-1)*3 KG=IG+3 DO 1170 JG=1,3 JG1=JG+IG1 LG=JG+3 G(IG,LG)=GI(JG1) G(KG,JG)=GI(JG1) 1170 CONTINUE 1180 CONTINUE C C**** C HERE BEGINS THE DOUBLE LOOP ON STATEMENT 1470 TO C GAUSS INTEGRATE FOR THE ELEMENT STIFFNESS MATRIX. C**** C DO 1470 IXSI=1,2 XI=PTINT(IXSI) C DO 1470 IETA=1,2 ETA=PTINT(IETA) C CALL Q4SHPS (XI,ETA,SHP,DSHP) C C SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER. C DO 1200 I=1,4 TMPSHP(I )=SHP(I) DSHPTP(I )=DSHP(I) 1200 DSHPTP(I+4)=DSHP(I+4) DO 1210 I=1,4 KK=IORDER(I) SHP (I )=TMPSHP(KK) DSHP(I )=DSHPTP(KK) 1210 DSHP(I+4)=DSHPTP(KK+4) C C CALCULATE THE ELEMENT THICKNESS AT THIS POINT C THK=0.0 DO 1220 I=1,NNODE 1220 THK=THK+DGPTH(I)*SHP(I) REALI=THK*THK*THK/12.0 C C-----CALCULATE T-BAR FOR THIS INTEGRATION POINT C SKIP OVER IF TEMPPI CARDS ARE PRESENT C THEN CALCULATE ALPHA*T FOR EACH CASE C IF (COMPOS) GO TO 1370 C IF (TEMPP1 .OR. TEMPP2) GO TO 1310 TBAR = 0.0 DO 1300 I =1,NNODE 1300 TBAR = TBAR + SHP(I) * GTEMPS(I) 1310 CONTINUE C TTBAR = TBAR - TSUB0 C IF (.NOT.MEMBRN) GO TO 1330 DO 1320 I =1,3 1320 TALFAM(I) = TTBAR * ALFAM(I) C 1330 IF (.NOT.BENDNG) GO TO 1370 IF (.NOT.TEMPP1 .AND. .NOT.TEMPP2) GO TO 1370 IF (TEMPP2) GO TO 1350 DO 1340 I =1,3 1340 TALFAB(I) = -TGRAD * ALFAB(I) GO TO 1370 C 1350 CONTINUE DO 1360 IG2=1,9 1360 G2I(IG2) = G2(IG2)*REALI CALL INVERS (3,G2I,3,GDUM,0,DETG2,ISNGG2,INDEX) CALL GMMATS (G2I,3,3,0,THRMOM,3,1,0,TALFAB) 1370 CONTINUE C C START THE THIRD INTEGRATION LOOP (THRU THE THICKNESS) C DO 1460 IZTA=1,2 ZTA =PTINT(IZTA) HZTA=ZTA/2.0 IBOT=(IZTA-1)*ND2 C CALL JACOBS (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB) IF (BADJAC) GO TO 1600 C CALL GMMATS (PSITRN,3,3,0,JACOB,3,3,1,PHI) C C CALL Q4BMGS TO GET B MATRIX C SET THE ROW FLAG TO 3. IT WILL RETURN THE FIRST 6 ROWS. C ROWFLG = 3 CALL Q4BMGS (DSHP,DGPTH,EGPDT,EPNORM,PHI,BMATRX(1)) DO 1380 IX=1,NDOF 1380 BMATRX(IX+ND2)=XYBMAT(IBOT+IX) C IF (.NOT.BENDNG) GO TO 1410 DO 1390 IX=1,NDOF 1390 BMATRX(IX+ND5)=XYBMAT(IBOT+IX+NDOF) C C NOW COMPLETE THE G-MATRIX IF COUPLING EXISTS. C IF (.NOT.MBCOUP) GO TO 1410 DO 1400 IG=1,3 IG4=(IG+8)*3 KG=IG+3 DO 1400 JG=1,3 JG4=JG+IG4 JG1=JG4-27 LG=JG+3 G(IG,LG)=-GI(JG4)*ZTA*6.0+GI(JG1) G(KG,JG)=-GI(JG4)*ZTA*6.0+GI(JG1) 1400 CONTINUE 1410 CONTINUE C C-----MULTIPLY DETERMINANT, B-TRANSPOSE, G-MATRIX, & THERMAL C STRAIN MATRIX. C C T C P = DETERM * B * G * EPSILON C T T C IF (COMPOS) GO TO 1430 DO 1420 I =1,3 EPSUBT(I) = DETJ * TALFAM(I) 1420 EPSUBT(I+3) = - DETJ * TALFAB(I) * HZTA * THK GO TO 1450 C 1430 DO 1440 IR = 1,3 EPSUBT(IR ) = DETJ*EPSLNT(IR) 1440 EPSUBT(IR+3) =-DETJ*EPSLNT(IR+3)*THK*HZTA 1450 CONTINUE C CALL GMMATS (G,6,6,0,EPSUBT,6,1,0,GEPSBT) CALL GMMATS (BMATRX,6,NDOF,-1,GEPSBT,6,1,0,PT) C 1460 CONTINUE 1470 CONTINUE C C----TRIPLE INTEGRATION LOOP IS NOW FINISHED C C**** C PICK UP THE BASIC TO GLOBAL TRANSFORMATION FOR EACH NODE. C**** DO 1500 I=1,36 1500 TRANS(I)=0.0 C DO 1540 I=1,NNODE IPOINT=9*(I-1)+1 IF (IGPDT(1,I) .LE. 0) GO TO 1510 C CALL TRANSS (BGPDT(1,I),TBG) GO TO 1530 C 1510 DO 1520 J=1,9 1520 TBG(J)=0.0 TBG(1)=1.0 TBG(5)=1.0 TBG(9)=1.0 C 1530 CALL GMMATS (TEB,3,3,0,TBG,3,3,0,TRANS(IPOINT)) 1540 CONTINUE C C C-----TRANSFORM THE THERMAL LOAD VECTOR INTO THE INDIVIDUAL C GLOBAL COORDINATE SYSTEMS OF EACH NODE. NOTE THAT THE C TRANSFORMATION MATRICES ARE STORED IN TRANS = TEG, C AND THAT THE 6-DOF LOAD VECTOR FOR EACH NODE USES THE C SAME 3X3 TRANSFORMATION MATRIX FOR THE TRANSLATIONAL C DOF'S (1-3) AND THE ROTATIONAL DOF'S (4-6). C C T C PT = TEG * PT C G E C DO 1550 I =1,NNODE IPT = (I-1)*9 + 1 JPT1 = (I-1)*6 + 1 JPT2 = JPT1 + 3 C CALL GMMATS (TRANS(IPT),3,3,1,PT(JPT1),3,1,0,PTG(JPT1)) CALL GMMATS (TRANS(IPT),3,3,1,PT(JPT2),3,1,0,PTG(JPT2)) C 1550 CONTINUE C C C-----WE NOW HAVE THE THERMAL LOAD VECTOR IN GLOBAL COORDINATES, C IN PTG. THE NEXT AND LAST STEP IS TO COMBINE IT WITH THE C SYSTEM LOAD VECTOR CONTAINED IN Z. C L=0 DO 1560 I =1,NNODE K = SIL(I) - 1 DO 1560 J =1,6 K = K + 1 L = L + 1 Z(K) = Z(K) + PTG(L) 1560 CONTINUE GO TO 1600 C 1580 CALL MESAGE (30,J,NAM) NOGO = 1 C C 1600 CONTINUE RETURN C 1700 FORMAT ('0*** SYSTEM FATAL ERROR. THE ELEMENT THICKNESS FOR', 1 ' QUAD4 EID = ',I8,' IS NOT COMPLETELY DEFINED.') END ================================================ FILE: mis/tltr3d.f ================================================ SUBROUTINE TLTR3D C C DOUBLE PRECISION ROUTINE TO GENERATE EQUIVALENT THERMAL LOADS FOR C THE CTRIA3 ELEMENT. C C WAS NAMED T3THLD (LOADVC,INTZ,Z) IN UAI C C C C EST LISTING C C WORD TYP DESCRIPTION C ---------------------------------------------------------------- C ECT: C 1 I ELEMENT ID, EID C 2-4 I SIL LIST, GRIDS 1,2,3 C 5-7 R MEMBRANE THICKNESSES T, AT GRIDS 1,2,3 C 8 R MATERIAL PROPERTY ORIENTAION ANGLE, THETA C OR I COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD) C 9 I TYPE FLAG FOR WORD 8 C 10 R GRID OFFSET, ZOFF C EPT: C 11 I MATERIAL ID FOR MEMBRANE, MID1 C 12 R ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED) C 13 I MATERIAL ID FOR BENDING, MID2 C 14 R MOMENT OF INERTIA FACTOR, I (BENDING) C 15 I MATERIAL ID FOR TRANSVERSE SHEAR, MID3 C 16 R TRANSV. SHEAR CORRECTION FACTOR, TS/T C 17 R NON-STRUCTURAL MASS, NSM C 18-19 R STRESS FIBER DISTANCES, Z1,Z2 C 20 I MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4 C 21 R MATERIAL ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD) C (DEFAULT FOR WORD 8) C 22 I TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9) C 23 I INTEGRATION ORDER FLAG C 24 R STRESS ANGLE OF RATATION, THETA C OR I COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD) C 25 I TYPE FLAG FOR WORD 24 C 26 R OFFSET, ZOFF1 (DEFAULT FOR WORD 10) C BGPDT: C 27-38 I/R CID,X,Y,Z FOR GRIDS 1,2,3 C ETT: C 39 I ELEMENT TEMPERATURE C C C LOGICAL MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,COMPOS, 1 TEMPP1,TEMPP2,SHEART,NOALFA INTEGER HUNMEG,NEST(39),ELID,PID,MID(4),SIL(3), 1 IGPDT(4,3),NECPT(4),IORDER(3),COMPS,FLAG, 2 INDXG2(3,3),SYSBUF,NOUT,NOGO REAL GPTH(3),BGPDT(4,3),ECPT(4),TSUB0,STEMP,Z, 1 LOADVC(1) DOUBLE PRECISION PT(6,3),PTG(6,3),PI,TWOPI,RADDEG,DEGRAD, 1 EGPDT(4,3),EPNORM(4,3),GPNORM(4,3),DGPTH(6),RHO, 2 THETAM,CENTE(3),SHPT(3),WEIGHT,WTSTIF,LX,LY, 3 BMATRX(162),BTERMS(6),DETJAC,G(6,6),GI(36), 4 AIC(1),DETG2,G2(3,3),EGNOR(4),MOMINR,TS,TH, 5 REALI,AVGTHK,TEM(9),TBG(9),TEB(9),TEU(9),TUB(9), 6 TUM(9),ALPHA(6),ALFAM(3),ALFAB(3),TALFAM(3), 7 TALFAB(3),TBAR,TGRAD,TMEAN,FTHERM(6),THRMOM(3), 8 GTEMPS(3),EPSLNT(6),EPSUBT(6),GEPSBT(6), 9 TRANS(27),OFFSET,TMPTRN(36),EPS,THETAE,EDGLEN(3) COMMON /SYSTEM/ SYSBUF,NOUT,NOGO COMMON /MATIN / MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT COMMON /BLANK / NROWSP,IPARAM,COMPS COMMON /CONDAD/ PI,TWOPI,RADDEG,DEGRAD COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /ZZZZZZ/ Z(1) COMMON /SGTMPD/ STEMP(7) COMMON /TRIMEX/ EST(39) EQUIVALENCE (EST( 1),NEST(1)),(EST( 2),SIL(1)), 1 (EST( 5),GPTH(1)),(EST(10),ZOFF ), 2 (EST(12),ELTH ),(EST(26),ZOFF1 ), 3 (EST(39),TEMPEL ),(EST(27),BGPDT(1,1),IGPDT(1,1)) EQUIVALENCE (NECPT(1),ECPT(1)),(STEMP(7),FLAG), 1 (Z(1),LOADVC(1)) DATA HUNMEG, EPS / 100000000, 1.0D-7 / C C C INITIALIZE C NNODE = 3 ELID = NEST(1) WEIGHT = 1.0D0/6.0D0 SHEART =.FALSE. NOALFA =.FALSE. TGRAD = 0.0D0 ELTEMP = TEMPEL OFFSET = ZOFF IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1 C DO 10 LL = 1,3 TALFAM(LL) = 0.0D0 TALFAB(LL) = 0.0D0 FTHERM(LL) = 0.0D0 FTHERM(LL+3) = 0.0D0 10 CONTINUE C C TEST FOR COMPOSITE ELEMENT C PID = NEST(11) - HUNMEG COMPOS = COMPS.EQ.-1 .AND. PID.GT.0 C C CHECK FOR THE TYPE OF TEMPERATURE DATA C - TYPE TEMPP1 ALSO INCLUDES TYPE TEMPP3. C - IF TEMPPI ARE NOT SUPPLIED, GRID POINT TEMPERATURES ARE PRESENT. C TEMPP1 = FLAG .EQ. 13 TEMPP2 = FLAG .EQ. 2 C C SET UP THE ELEMENT FORMULATION C CALL T3SETD (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM, 1 IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID) IF (IERR .NE. 0) GO TO 520 CALL GMMATD (TEB,3,3,0, TUB,3,3,1, TEU) C C SET THE NUMBER OF DOF'S C NNOD2 = NNODE*NNODE NDOF = NNODE*6 NPART = NDOF*NDOF ND2 = NDOF*2 ND6 = NDOF*6 ND7 = NDOF*7 ND8 = NDOF*8 C C OBTAIN MATERIAL INFORMATION C C PASS THE LOCATION OF THE ELEMENT CENTER FOR MATERIAL C TRANSFORMATIONS. C DO 20 IEC = 2,4 ECPT(IEC) = CENTE(IEC-1) 20 CONTINUE C C SET MATERIAL FLAGS C 0.833333333D0 = 5.0D0/6.0D0 C IF (NEST(13) .NE. 0) MOMINR = EST(14) IF (NEST(13) .NE. 0) TS = EST(16) IF ( EST(16) .EQ. .0) TS = 0.83333333D0 IF (NEST(13).EQ.0 .AND. NEST(11).GT.HUNMEG) TS = 0.83333333D0 C MID(1) = NEST(11) MID(2) = NEST(13) MID(3) = NEST(15) MID(4) = NEST(20) C MEMBRN = MID(1).GT.0 BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0D0 SHRFLX = MID(3).GT.0 MBCOUP = MID(4).GT.0 NORPTH = MID(1).EQ.MID(2) .AND. MID(1).EQ.MID(3) .AND. MID(4).EQ.0 1 .AND. DABS(MOMINR-1.0D0).LE.EPS C C SET UP TRANSFORMATION MATRIX FROM MATERIAL TO ELEMENT COORD.SYSTEM C CALL SHCSGD (*530,NEST(9),NEST(8),NEST(8),NEST(21),NEST(20), 1 NEST(20),NECPT,TUB,MCSID,THETAM,TUM) CALL GMMATD (TEU,3,3,0, TUM,3,3,0, TEM) C C CALCULATE THE ANGLE BETWEEN THE MATERIAL AXIS AND THE ELEMENT AXIS C THETAE = DATAN2(TEM(4),TEM(1)) C C FETCH MATERIAL PROPERTIES C CALL SHGMGD (*540,ELID,TEM,MID,TS,NOALFA,GI,RHO,GSUBE,TSUB0, 1 EGNOR,ALPHA) C DO 30 IAL = 1,3 ALFAM(IAL) = ALPHA(IAL ) ALFAB(IAL) = ALPHA(IAL+3) 30 CONTINUE C C TURN OFF THE COUPLING FLAG WHEN MID4 IS PRESENT WITH ALL C CALCULATED ZERO TERMS. C IF (.NOT.MBCOUP) GO TO 50 DO 40 I = 28,36 IF (DABS(GI(I)) .GT. EPS) GO TO 50 40 CONTINUE MBCOUP = .FALSE. C C OBTAIN TEMPERATURE INFORMATION C C IF TEMPP1 DATA, GET AVERAGE TEMP AND THERMAL GRADIENT. C 50 IF (.NOT.TEMPP1) GO TO 60 TMEAN = STEMP(1) TGRAD = STEMP(2) GO TO 90 C C IF TEMPP2 DATA, GET THERMAL MOMENTS. C 60 IF (.NOT.TEMPP2) GO TO 70 TMEAN = STEMP(1) C THRMOM(1) = STEMP(2) THRMOM(2) = STEMP(3) THRMOM(3) = STEMP(4) C FTHERM(4) = THRMOM(1) FTHERM(5) = THRMOM(2) FTHERM(6) = THRMOM(3) GO TO 90 C C TEMPPI TEMPERATURE DATA IS NOT AVAILABLE, THEREFORE SORT THE GRID C POINT TEMPERATURES (IN STEMP(1-7)). C 70 DO 80 I = 1,NNODE IPNT = IORDER(I) GTEMPS(I) = STEMP(IPNT) 80 CONTINUE TMEAN = (GTEMPS(1)+GTEMPS(2)+GTEMPS(3))/3.0D0 90 TBAR = TMEAN - TSUB0 C C CALCULATE THERMAL STRAINS FOR COMPOSITE ELEMENTS C IF (.NOT.COMPOS) GO TO 100 CALL SHCTSD (IERR,ELID,PID,MID,AVGTHK,TMEAN,TGRAD,THETAE,FTHERM, 1 EPSLNT,Z,Z) IF (IERR .NE. 0) GO TO 500 C C INITIALIZE FOR THE MAIN INTEGRATION LOOP C 100 DO 110 I = 1,6 EPSUBT(I) = 0.0D0 DO 110 J = 1,NNODE PT (I,J) = 0.0D0 PTG(I,J) = 0.0D0 110 CONTINUE C C MAIN INTEGRATION LOOP C DO 400 IPT = 1,NNODE CALL T3BMGD (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC, 1 SHPT,BTERMS,BMATRX) IF (IERR .NE. 0) GO TO 520 C WTSTIF = DETJAC*WEIGHT REALI = MOMINR*TH*TH*TH/12.0D0 C C FILL IN THE 6X6 [G] C DO 200 IG = 1,6 DO 200 JG = 1,6 G(IG,JG) = 0.0D0 200 CONTINUE C IF (.NOT.MEMBRN) GO TO 220 DO 210 IG = 1,3 IG1 = (IG-1)*3 DO 210 JG = 1,3 G(IG,JG) = GI(IG1+JG)*TH 210 CONTINUE C 220 IF (.NOT.BENDNG) GO TO 250 DO 230 IG = 4,6 IG2 = (IG-2)*3 DO 230 JG = 4,6 G(IG,JG) = GI(IG2+JG)*REALI 230 CONTINUE C IF (.NOT.MBCOUP) GO TO 250 DO 240 IG = 1,3 IG4 = (IG+8)*3 DO 240 JG = 1,3 G(IG,JG+3) = GI(IG4+JG)*TH*TH G(IG+3,JG) = G(IG,JG+3) 240 CONTINUE C C PREPARE THERMAL STRAINS FOR COMPOSITE ELEMENTS C 250 IF (.NOT.COMPOS) GO TO 270 DO 260 IR = 1,6 EPSUBT(IR) = WTSTIF*EPSLNT(IR) 260 CONTINUE GO TO 370 C C CALCULATE THERMAL STRAINS FOR NON-COMPOSITE ELEMENTS C 270 IF (.NOT.MEMBRN) GO TO 290 DO 280 I = 1,3 TALFAM(I) = TBAR*ALFAM(I) 280 CONTINUE C 290 IF (.NOT.BENDNG) GO TO 350 IF (.NOT.TEMPP1) GO TO 310 DO 300 I = 1,3 TALFAB(I) = -TGRAD*ALFAB(I) 300 CONTINUE GO TO 350 C 310 IF (.NOT.TEMPP2) GO TO 330 DO 320 IG = 1,3 DO 320 JG = 1,3 G2(IG,JG) = G(IG+3,JG+3) 320 CONTINUE C CALL INVERD (3,G2,3,GDUM,0,DETG2,ISNGG2,INDXG2) CALL GMMATD (G2,3,3,0, THRMOM,3,1,0, TALFAB) GO TO 350 C 330 DO 340 I = 1,3 TALFAB(I) = 0.0D0 340 CONTINUE C 350 DO 360 I = 1,3 EPSUBT(I ) = WTSTIF*TALFAM(I) EPSUBT(I+3) = WTSTIF*TALFAB(I) 360 CONTINUE C C T C [P] = [P] + WTSTIF*[B] [G][EPS] C T T T C 370 CALL GMMATD (G,6,6,0, EPSUBT,6,1,0, GEPSBT) CALL GMMATD (BMATRX,6,NDOF,-1, GEPSBT,6,1,0, PT) C 400 CONTINUE C C END OF MAIN INTEGRATION LOOP C C PICK UP THE ELEMENT TO GLOBAL TRANSFORMATION FOR EACH NODE. C DO 420 I = 1,NNODE IPOINT = 9*(I-1)+1 CALL TRANSD (BGPDT(1,I),TBG) CALL GMMATD (TEB,3,3,0, TBG,3,3,0, TRANS(IPOINT)) 420 CONTINUE C C TRANSFORM THE THERMAL LOAD VECTOR INTO THE INDIVIDUAL GLOBAL C COORDINATE SYSTEMS OF EACH NODE. C C T C [PT] = [TEG] [PT] C G E C DO 430 I = 1,NNODE CALL TLDRD (OFFSET,I,TRANS,TMPTRN) CALL GMMATD (TMPTRN,6,6,1, PT(1,I),6,1,0, PTG(1,I)) 430 CONTINUE C C ADD THE THERMAL LOAD VECTOR TO THE GLOBAL LOAD VECTOR WHICH C RESIDES IN [LOADVC]. C DO 440 I = 1,NNODE K = SIL(I) - 1 DO 440 J = 1,6 LOADVC(K+J) = LOADVC(K+J) + SNGL(PTG(J,I)) 440 CONTINUE GO TO 600 C C FATAL ERRORS C 500 WRITE (NOUT,510) 510 FORMAT ('0*** SYSTEM FATAL ERROR. APPROPRIATE COMPOSITE DATA ', 1 'NOT FOUND IN MODULE SSG1.') GO TO 560 520 J = 224 GO TO 550 530 J = 225 NEST(2) = MCSID GO TO 550 540 J = 226 NEST(2) = MID(3) 550 CALL MESAGE (30,J,NEST(1)) 560 NOGO = 1 C 600 RETURN END ================================================ FILE: mis/tltr3s.f ================================================ SUBROUTINE TLTR3S C C SINGLE PRECISION ROUTINE TO GENERATE EQUIVALENT THERMAL LOADS FOR C THE CTRIA3 ELEMENT. C C WAS NAMED T3THLS (LOADVC,INTZ,Z) IN UAI C C EST LISTING C C WORD TYP DESCRIPTION C ---------------------------------------------------------------- C ECT: C 1 I ELEMENT ID, EID C 2-4 I SIL LIST, GRIDS 1,2,3 C 5-7 R MEMBRANE THICKNESSES T, AT GRIDS 1,2,3 C 8 R MATERIAL PROPERTY ORIENTAION ANGLE, THETA C OR I COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD) C 9 I TYPE FLAG FOR WORD 8 C 10 R GRID OFFSET, ZOFF C EPT: C 11 I MATERIAL ID FOR MEMBRANE, MID1 C 12 R ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED) C 13 I MATERIAL ID FOR BENDING, MID2 C 14 R MOMENT OF INERTIA FACTOR, I (BENDING) C 15 I MATERIAL ID FOR TRANSVERSE SHEAR, MID3 C 16 R TRANSV. SHEAR CORRECTION FACTOR, TS/T C 17 R NON-STRUCTURAL MASS, NSM C 18-19 R STRESS FIBER DISTANCES, Z1,Z2 C 20 I MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4 C 21 R MATERIAL ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD) C (DEFAULT FOR WORD 8) C 22 I TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9) C 23 I INTEGRATION ORDER FLAG C 24 R STRESS ANGLE OF RATATION, THETA C OR I COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD) C 25 I TYPE FLAG FOR WORD 24 C 26 R OFFSET, ZOFF1 (DEFAULT FOR WORD 10) C BGPDT: C 27-38 I/R CID,X,Y,Z FOR GRIDS 1,2,3 C ETT: C 39 I ELEMENT TEMPERATURE C C C LOGICAL MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,COMPOS, 1 TEMPP1,TEMPP2,SHEART,NOALFA INTEGER HUNMEG,NEST(39),ELID,PID,MID(4),SIL(3), 1 IGPDT(4,3),NECPT(4),IORDER(3),COMPS,FLAG, 2 INDXG2(3,3),SYSBUF,NOUT,NOGO REAL GPTH(3),BGPDT(4,3),ECPT(4),TSUB0,STEMP,Z, 1 LOADVC(1) REAL PT(6,3),PTG(6,3),PI,TWOPI,RADDEG,DEGRAD, 1 EGPDT(4,3),EPNORM(4,3),GPNORM(4,3),DGPTH(6),RHO, 2 THETAM,CENTE(3),SHPT(3),WEIGHT,WTSTIF,LX,LY, 3 BMATRX(162),BTERMS(6),DETJAC,G(6,6),GI(36), 4 AIC(1),DETG2,G2(3,3),EGNOR(4),MOMINR,TS,TH, 5 REALI,AVGTHK,TEM(9),TBG(9),TEB(9),TEU(9),TUB(9), 6 TUM(9),ALPHA(6),ALFAM(3),ALFAB(3),TALFAM(3), 7 TALFAB(3),TBAR,TGRAD,TMEAN,FTHERM(6),THRMOM(3), 8 GTEMPS(3),EPSLNT(6),EPSUBT(6),GEPSBT(6), 9 TRANS(27),OFFSET,TMPTRN(36),EPS,THETAE,EDGLEN(3) COMMON /SYSTEM/ SYSBUF,NOUT,NOGO,DUM(51),PREC COMMON /MATIN / MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT COMMON /BLANK / NROWSP,IPARAM,COMPS COMMON /CONDAS/ PI,TWOPI,RADDEG,DEGRAD COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /ZZZZZZ/ Z(1) COMMON /SGTMPD/ STEMP(7) COMMON /TRIMEX/ EST(39) EQUIVALENCE (EST( 1),NEST(1)),(EST( 2),SIL(1)), 1 (EST( 5),GPTH(1)),(EST(10),ZOFF ), 2 (EST(12),ELTH ),(EST(26),ZOFF1 ), 3 (EST(39),TEMPEL ),(EST(27),BGPDT(1,1),IGPDT(1,1)) EQUIVALENCE (NECPT(1),ECPT(1)),(STEMP(7),FLAG), 1 (Z(1),LOADVC(1)) DATA HUNMEG, EPS / 100000000, 1.0E-7 / C C C INITIALIZE C NNODE = 3 ELID = NEST(1) WEIGHT = 1.0/6.0 SHEART =.FALSE. NOALFA =.FALSE. TGRAD = 0.0 ELTEMP = TEMPEL OFFSET = ZOFF IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1 C DO 10 LL = 1,3 TALFAM(LL) = 0.0 TALFAB(LL) = 0.0 FTHERM(LL) = 0.0 FTHERM(LL+3) = 0.0 10 CONTINUE C C TEST FOR COMPOSITE ELEMENT C PID = NEST(11) - HUNMEG COMPOS = COMPS.EQ.-1 .AND. PID.GT.0 C C CHECK FOR THE TYPE OF TEMPERATURE DATA C - TYPE TEMPP1 ALSO INCLUDES TYPE TEMPP3. C - IF TEMPPI ARE NOT SUPPLIED, GRID POINT TEMPERATURES ARE PRESENT. C TEMPP1 = FLAG .EQ. 13 TEMPP2 = FLAG .EQ. 2 C C SET UP THE ELEMENT FORMULATION C CALL T3SETS (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM, 1 IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID) IF (IERR .NE. 0) GO TO 520 CALL GMMATS (TEB,3,3,0, TUB,3,3,1, TEU) C C SET THE NUMBER OF DOF'S C NNOD2 = NNODE*NNODE NDOF = NNODE*6 NPART = NDOF*NDOF ND2 = NDOF*2 ND6 = NDOF*6 ND7 = NDOF*7 ND8 = NDOF*8 C C OBTAIN MATERIAL INFORMATION C C PASS THE LOCATION OF THE ELEMENT CENTER FOR MATERIAL C TRANSFORMATIONS. C DO 20 IEC = 2,4 ECPT(IEC) = CENTE(IEC-1) 20 CONTINUE C C SET MATERIAL FLAGS C 0.833333333 = 5.0/6.0 C IF (NEST(13) .NE. 0) MOMINR = EST(14) IF (NEST(13) .NE. 0) TS = EST(16) IF ( EST(16) .EQ. .0) TS = 0.83333333 IF (NEST(13).EQ.0 .AND. NEST(11).GT.HUNMEG) TS = 0.83333333 C MID(1) = NEST(11) MID(2) = NEST(13) MID(3) = NEST(15) MID(4) = NEST(20) C MEMBRN = MID(1).GT.0 BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0 SHRFLX = MID(3).GT.0 MBCOUP = MID(4).GT.0 NORPTH = MID(1).EQ.MID(2) .AND. MID(1).EQ.MID(3) .AND. MID(4).EQ.0 1 .AND. ABS(MOMINR-1.0).LE.EPS C C SET UP TRANSFORMATION MATRIX FROM MATERIAL TO ELEMENT COORD.SYSTEM C CALL SHCSGS (*530,NEST(9),NEST(8),NEST(8),NEST(21),NEST(20), 1 NEST(20),NECPT,TUB,MCSID,THETAM,TUM) CALL GMMATS (TEU,3,3,0, TUM,3,3,0, TEM) C C CALCULATE THE ANGLE BETWEEN THE MATERIAL AXIS AND THE ELEMENT AXIS C THETAE = ATAN2(TEM(4),TEM(1)) C C FETCH MATERIAL PROPERTIES C CALL SHGMGS (*540,ELID,TEM,MID,TS,NOALFA,GI,RHO,GSUBE,TSUB0, 1 EGNOR,ALPHA) C DO 30 IAL = 1,3 ALFAM(IAL) = ALPHA(IAL ) ALFAB(IAL) = ALPHA(IAL+3) 30 CONTINUE C C TURN OFF THE COUPLING FLAG WHEN MID4 IS PRESENT WITH ALL C CALCULATED ZERO TERMS. C IF (.NOT.MBCOUP) GO TO 50 DO 40 I = 28,36 IF (ABS(GI(I)) .GT. EPS) GO TO 50 40 CONTINUE MBCOUP = .FALSE. C C OBTAIN TEMPERATURE INFORMATION C C IF TEMPP1 DATA, GET AVERAGE TEMP AND THERMAL GRADIENT. C 50 IF (.NOT.TEMPP1) GO TO 60 TMEAN = STEMP(1) TGRAD = STEMP(2) GO TO 90 C C IF TEMPP2 DATA, GET THERMAL MOMENTS. C 60 IF (.NOT.TEMPP2) GO TO 70 TMEAN = STEMP(1) C THRMOM(1) = STEMP(2) THRMOM(2) = STEMP(3) THRMOM(3) = STEMP(4) C FTHERM(4) = THRMOM(1) FTHERM(5) = THRMOM(2) FTHERM(6) = THRMOM(3) GO TO 90 C C TEMPPI TEMPERATURE DATA IS NOT AVAILABLE, THEREFORE SORT THE GRID C POINT TEMPERATURES (IN STEMP(1-7)). C 70 DO 80 I = 1,3 IPNT = IORDER(I) GTEMPS(I) = STEMP(IPNT) 80 CONTINUE TMEAN = (GTEMPS(1)+GTEMPS(2)+GTEMPS(3))/3.0 90 TBAR = TMEAN - TSUB0 C C CALCULATE THERMAL STRAINS FOR COMPOSITE ELEMENTS C IF (.NOT.COMPOS) GO TO 100 CALL SHCTSS (IERR,ELID,PID,MID,AVGTHK,TMEAN,TGRAD,THETAE,FTHERM, 1 EPSLNT,Z,Z) IF (IERR .NE. 0) GO TO 500 C C INITIALIZE FOR THE MAIN INTEGRATION LOOP C 100 DO 110 I = 1,6 EPSUBT(I) = 0.0 DO 110 J = 1,NNODE PT (I,J) = 0.0 PTG(I,J) = 0.0 110 CONTINUE C C MAIN INTEGRATION LOOP C DO 400 IPT = 1,3 CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC, 1 SHPT,BTERMS,BMATRX) IF (IERR .NE. 0) GO TO 520 C WTSTIF = DETJAC*WEIGHT REALI = MOMINR*TH*TH*TH/12.0 C C FILL IN THE 6X6 [G] C DO 200 IG = 1,6 DO 200 JG = 1,6 G(IG,JG) = 0.0 200 CONTINUE C IF (.NOT.MEMBRN) GO TO 220 DO 210 IG = 1,3 IG1 = (IG-1)*3 DO 210 JG = 1,3 G(IG,JG) = GI(IG1+JG)*TH 210 CONTINUE C 220 IF (.NOT.BENDNG) GO TO 250 DO 230 IG = 4,6 IG2 = (IG-2)*3 DO 230 JG = 4,6 G(IG,JG) = GI(IG2+JG)*REALI 230 CONTINUE C IF (.NOT.MBCOUP) GO TO 250 DO 240 IG = 1,3 IG4 = (IG+8)*3 DO 240 JG = 1,3 G(IG,JG+3) = GI(IG4+JG)*TH*TH G(IG+3,JG) = G(IG,JG+3) 240 CONTINUE C C PREPARE THERMAL STRAINS FOR COMPOSITE ELEMENTS C 250 IF (.NOT.COMPOS) GO TO 270 DO 260 IR = 1,6 EPSUBT(IR) = WTSTIF*EPSLNT(IR) 260 CONTINUE GO TO 370 C C CALCULATE THERMAL STRAINS FOR NON-COMPOSITE ELEMENTS C 270 IF (.NOT.MEMBRN) GO TO 290 DO 280 I = 1,3 TALFAM(I) = TBAR*ALFAM(I) 280 CONTINUE C 290 IF (.NOT.BENDNG) GO TO 350 IF (.NOT.TEMPP1) GO TO 310 DO 300 I = 1,3 TALFAB(I) = -TGRAD*ALFAB(I) 300 CONTINUE GO TO 350 C 310 IF (.NOT.TEMPP2) GO TO 330 DO 320 IG = 1,3 DO 320 JG = 1,3 G2(IG,JG) = G(IG+3,JG+3) 320 CONTINUE C CALL INVERS (3,G2,3,GDUM,0,DETG2,ISNGG2,INDXG2) CALL GMMATS (G2,3,3,0, THRMOM,3,1,0, TALFAB) GO TO 350 C 330 DO 340 I = 1,3 TALFAB(I) = 0.0 340 CONTINUE C 350 DO 360 I = 1,3 EPSUBT(I ) = WTSTIF*TALFAM(I) EPSUBT(I+3) = WTSTIF*TALFAB(I) 360 CONTINUE C C T C [P] = [P] + WTSTIF*[B] [G] [EPS] C T T T C 370 CALL GMMATS (G,6,6,0, EPSUBT,6,1,0, GEPSBT) CALL GMMATS (BMATRX,6,NDOF,-1, GEPSBT,6,1,0, PT) C 400 CONTINUE C C END OF MAIN INTEGRATION LOOP C C PICK UP THE ELEMENT TO GLOBAL TRANSFORMATION FOR EACH NODE. C DO 420 I = 1,NNODE IPOINT = 9*(I-1)+1 CALL TRANSS (BGPDT(1,I),TBG) CALL GMMATS (TEB,3,3,0, TBG,3,3,0, TRANS(IPOINT)) 420 CONTINUE C C TRANSFORM THE THERMAL LOAD VECTOR INTO THE INDIVIDUAL GLOBAL C COORDINATE SYSTEMS OF EACH NODE. C C T C [PT] = [TEG] [PT] C G E C DO 430 I = 1,NNODE CALL TLDRS (OFFSET,I,TRANS,TMPTRN) CALL GMMATS (TMPTRN,6,6,1, PT(1,I),6,1,0, PTG(1,I)) 430 CONTINUE C C ADD THE THERMAL LOAD VECTOR TO THE GLOBAL LOAD VECTOR WHICH C RESIDES IN [LOADVC]. C DO 440 I = 1,NNODE K = SIL(I) - 1 DO 440 J = 1,6 LOADVC(K+J) = LOADVC(K+J) + PTG(J,I) 440 CONTINUE GO TO 600 C C FATAL ERRORS C 500 WRITE (NOUT,510) 510 FORMAT ('0*** SYSTEM FATAL ERROR. APPROPRIATE COMPOSITE DATA ', 1 'NOT FOUND IN MODULE SSG1.') GO TO 560 520 J = 224 GO TO 550 530 J = 225 NEST(2) = MCSID GO TO 550 540 J = 226 NEST(2) = MID(3) 550 CALL MESAGE (30,J,NEST(1)) 560 NOGO = 1 C 600 RETURN END ================================================ FILE: mis/tmtogo.f ================================================ SUBROUTINE TMTOGO (TOGO) C C TO COMPUTE THE TIME (IN SECONDS) REMAINING C INTEGER TBEGIN, TPROB,TNOW,TOGO COMMON /SYSTEM/ XSYS(17),TMBEGN COMMON /STIME / TPROB C C GET PRESENT TIME C CALL KLOCK (TNOW) C C COMPUTE TIME TO GO C TBEGIN = TMBEGN TOGO = TPROB - (TNOW - TBEGIN) RETURN END ================================================ FILE: mis/tmtsio.f ================================================ SUBROUTINE TMTSIO (*,DEBUG1) C C TMTSIO TIME TESTS GINO AND THE PACK ROUTINES C C COMMENT FORM G.CHAN/UNISYS 5/91 C BASICALLY THIS ROUTINE IS SAME AS TIMTS1. C INTEGER SYSBUF, OUTPUT, FILES(2), F1 , F2, BUF1 , BUF2 , 1 END , MCB(7), EOL , EOR , TYPE , TYPIN1, 2 TYPOU1, TYPOU2, ABLK(15), BBLK(15),ZERO , DEBUG1, 3 ISUBR(2) REAL X(1) , Z(1) , T(23) DOUBLE PRECISION ZD , XD CHARACTER UFM*23, UWM*25, UIM*29 , SFM*25 COMMON /XMSSG / UFM , UWM , UIM , SFM COMMON /NTIME / NITEMS, TGINO , TBLDPK , TINTPK , TPACK , 1 TUNPAK, TGETST, TPUTST , 2 TTLRSP, TTLRDP, TTLCSP , TTLCDP , 3 TLLRSP, TLLRDP, TLLCSP , TLLCDP , TGETSB * , RGINO , RBLDPK , RINTPK , RPCK , * RUNPAK, RGETST , RPUTST COMMON /SYSTEM/ SYSBUF, OUTPUT, IDUM(52), IPREC , JDUM(21), ISY77 COMMON /GINOX / G(86) , IG(75), NBUFF3 , PU(226), IWR(75) COMMON /ZBLPKX/ ZD(2), IZ COMMON /ZNTPKX/ XD(2), IX , EOL , EOR COMMON /PACKX / TYPIN1, TYPOU1, I1 , J1 , INCR1 COMMON /UNPAKX/ TYPOU2, I2, J2, INCR2 COMMON /ZZZZZZ/ A(1) EQUIVALENCE (ZD(1),Z(1)), (XD(1),X(1)), (T(1),TGINO) DATA FILES / 301, 304/, ZERO / 0 / DATA I1000 / 1000 /, I1001 / 1001 / DATA ISUBR / 4HTMTS , 4HIO / C C C CHECK KORSZ AND DUMMY SUBROUTINES HERE. C IF NASTRAN SUBROUTINES WERE NOT COMPILED WITH STATIC OPTION, BUF1 C COULD BE NEGATIVE HERE. C CALL DUMMY NEXT TO SEE WHETHER THE RIGHT DUMMY ROUTINE IS SET UP C FOR THIS MACHINE C KERR = 1 BUF1 = KORSZ(A) IF (BUF1 .LE. 0) GO TO 930 IF (DEBUG1 .GT. 0) WRITE (OUTPUT,10) 10 FORMAT (' -LINK1 DEBUG- TMTSIO CALLINS DUMMY NEXT') CWKBD CALL DUMMY C C NOTE - ISY77 (WHICH IS BULKDATA OPTION) AND TGINO DETERMINE TO C SKIP TMTSIO AND TMTSLP OR NOT. DIAG 35 CAN NOT BE USED AT C THIS POINT SINCE THE DIAG CARD HAS NOT BEEN READ YET. C IF (TGINO.GT.0. .AND. ISY77.NE.-3) RETURN 1 C C INITIALIZE C CALL PAGE1 WRITE (OUTPUT,20) 20 FORMAT ('0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ', 1 'ARE BEING COMPUTED', /5X, 2 '(SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)') IF (TGINO .GT. 0.) WRITE (OUTPUT,30) T 30 FORMAT ('0*** EXISTING TIME CONSTANTS IN /NTIME/ -', 1 /,2(/5X,9F8.3)) N = 50 M = N TYPE = IPREC C NITEMS = 23 C F1 = FILES(1) F2 = FILES(2) BUF1 = BUF1 - SYSBUF BUF2 = BUF1 - SYSBUF END = N*M IF (END .GE. BUF1-1) CALL MESAGE (-8,0,ISUBR) DO 40 I = 1,END A(I) = I 40 CONTINUE N10 = N*10 M10 = M/10 IF (M10 .LE. 0) M10 = 1 FN = N FM = M C C WRITE TEST C IF (DEBUG1 .GT. 0) WRITE (OUTPUT,50) NBUFF3,IG 50 FORMAT (' -LINK1 DEBUG- OPEN OUTPUT FILE NEXT FOR WRITE. NBUFF3 =' 1, I5, /5X,'GINO BUFADD 75 WORDS =', /,(2X,11I7)) CALL OPEN (*900,F1,A(BUF1),1) IF (DEBUG1 .LE. 0) GO TO 60 WRITE (OUTPUT,53) NBUFF3,IG 53 FORMAT (' -LINK1 DEBUG- FILE OPEN OK. NBUFF3 =',I5, /5X, 1 'GINO BUFADD 75 WORDS =', /,(2X,11I7)) WRITE (OUTPUT,55) IWR(41) 55 FORMAT (5X,'RWFLG(41) =',I7, //, 1 ' -LINK1 DEBUG- CALLING SECOND NEXT') 60 CALL CPUTIM (T1,T1,1) DO 70 I = 1,N CALL WRITE (F1,A,M,1) 70 CONTINUE CALL CPUTIM (T2,T2,1) IF (DEBUG1 .GT. 0) WRITE (OUTPUT,80) 80 FORMAT (' -LINK1 DEBUG- CLOSE FILE NEXT') CALL CLOSE (F1,1) IF (DEBUG1 .GT. 0) WRITE (OUTPUT,90) 90 FORMAT (' -LINK1 DEBUG- OPEN ANOTHER OUTPUT FILE NEXT FOR WRITE') CALL OPEN (*900,F2,A(BUF2),1) CALL CPUTIM (T3,T3,1) DO 100 I = 1,N10 CALL WRITE (F2,A,M10,1) 100 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,1) ASSIGN 610 TO IRET GO TO 600 C C READ TEST C 110 IF (DEBUG1 .GT. 0) WRITE (OUTPUT,120) 120 FORMAT (' -LINK1 DEBUG- OPEN INPUT FILE NEXT FOR READ') CALL OPEN (*900,F1,A(BUF1),0) CALL CPUTIM (T1,T1,1) DO 130 I = 1,N CALL READ (*910,*920,F1,A(I1000),M,1,FLAG) 130 CONTINUE CALL CPUTIM (T2,T2,1) CALL CLOSE (F1,2) CALL OPEN (*900,F2,A(BUF2),0) CALL CPUTIM (T3,T3,1) DO 140 I = 1,N10 CALL READ (*910,*920,F2,A(I1000),M10,1,FLAG) 140 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,2) ASSIGN 620 TO IRET GO TO 600 C C BACKWARD READ TEST C 150 CONTINUE CALL OPEN (*900,F1,A(BUF1),2) CALL CPUTIM (T1,T1,1) DO 160 I = 1,N CALL BCKREC (F1) CALL READ (*910,*920,F1,A(I1000),M,1,FLAG) CALL BCKREC (F1) 160 CONTINUE CALL CPUTIM (T2,T2,1) CALL CLOSE (F1,1) CALL OPEN (*900,F2,A(BUF2),2) CALL CPUTIM (T3,T3,1) DO 170 I = 1,N10 CALL BCKREC (F2) CALL READ (*910,*920,F2,A(I1000),M10,1,FLAG) CALL BCKREC (F2) 170 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,1) ASSIGN 630 TO IRET GO TO 600 C C BLDPK TEST C 180 CONTINUE CALL OPEN (*900,F1,A(BUF1),1) CALL MAKMCB (MCB,F1,M,2,TYPE) CALL CPUTIM (T1,T1,1) DO 200 I = 1,N CALL BLDPK (TYPE,TYPE,F1,0,0) DO 190 J = 1,M Z(1) = 1.0 IZ = J CALL ZBLPKI 190 CONTINUE CALL BLDPKN (F1,0,MCB) 200 CONTINUE CALL CPUTIM (T2,T2,1) CALL WRTTRL (MCB) CALL CLOSE (F1,1) CALL MAKMCB (MCB,F2,M10,2,TYPE) CALL OPEN (*900,F2,A(BUF2),1) CALL CPUTIM (T3,T3,1) DO 220 I = 1,N10 CALL BLDPK (TYPE,TYPE,F2,0,0) DO 210 J = 1,M10 Z(1) = 2.0 IZ = J CALL ZBLPKI 210 CONTINUE CALL BLDPKN (F2,0,MCB) 220 CONTINUE CALL CPUTIM (T4,T4,1) CALL WRTTRL (MCB) CALL CLOSE (F2,1) ASSIGN 640 TO IRET GO TO 600 C C INTPK TEST C 230 CONTINUE CALL OPEN (*900,F1,A(BUF1),0) CALL CPUTIM (T1,T1,1) DO 250 I = 1,N CALL INTPK (*910,F1,0,TYPE,0) DO 240 J = 1,M CALL ZNTPKI IF (IX .NE. J) GO TO 800 IF (EOL .EQ. 0) GO TO 240 IF (IX .NE. M) GO TO 800 240 CONTINUE IF (EOL .EQ. 0) GO TO 800 250 CONTINUE CALL CPUTIM (T2,T2,1) CALL CLOSE (F1,1) CALL OPEN (*900,F2,A(BUF2),0) CALL CPUTIM (T3,T3,1) DO 270 I = 1,N10 CALL INTPK (*910,F2,0,TYPE,0) DO 260 J = 1,M10 CALL ZNTPKI IF (IX .NE. J) GO TO 800 IF (EOL .EQ. 0) GO TO 260 IF (IX .NE. M10) GO TO 800 260 CONTINUE IF (EOL .EQ. 0) GO TO 800 270 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,1) ASSIGN 650 TO IRET GO TO 600 C C PACK TEST C 280 CONTINUE CALL MAKMCB (MCB,F1,M,2,TYPE) TYPIN1 = TYPE TYPOU1 = TYPE I1 = 1 J1 = M INCR1 = 1 MX = M*TYPE DO 290 I = 1,MX A(I+1000) = I 290 CONTINUE CALL OPEN (*900,F1,A(BUF1),1) CALL CPUTIM (T1,T1,1) DO 300 I = 1,N CALL PACK (A(I1001),F1,MCB) 300 CONTINUE CALL CPUTIM (T2,T2,1) CALL WRTTRL (MCB) CALL CLOSE (F1,1) CALL MAKMCB (MCB,F2,M10,2,TYPE) J1 = M10 CALL OPEN (*900,F2,A(BUF2),1) CALL CPUTIM (T3,T3,1) DO 310 I = 1,N10 CALL PACK (A(I1001),F2,MCB) 310 CONTINUE CALL CPUTIM (T4,T4,1) CALL WRTTRL (MCB) CALL CLOSE (F2,1) ASSIGN 660 TO IRET GO TO 600 C C UNPACK TEST C 320 CONTINUE TYPOU2 = TYPE I2 = 1 J2 = M INCR2 = 1 CALL OPEN (*900,F1,A(BUF1),0) CALL CPUTIM (T1,T1,1) DO 330 I = 1,N CALL UNPACK (*910,F1,A(I1001)) 330 CONTINUE CALL CPUTIM (T2,T2,1) CALL CLOSE (F1,1) J2 = M10 CALL OPEN (*900,F2,A(BUF2),0) CALL CPUTIM (T3,T3,1) DO 340 I = 1,N10 CALL UNPACK (*910,F2,A(I1001)) 340 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,2) ASSIGN 670 TO IRET GO TO 600 350 CONTINUE C C PUTSTR TEST C KERR = 2 ABLK(1) = F1 ABLK(2) = TYPE ABLK(3) = 1 CALL GOPEN (F1,A(BUF1),1) NWDS = TYPE IF (TYPE .EQ. 3) NWDS = 2 CALL CPUTIM (T1,T1,1) DO 400 I = 1,N ABLK(4) = 0 ABLK(8) = -1 DO 390 J = 1,10 NBRSTR = M10 360 CALL PUTSTR (ABLK) IF (NBRSTR .EQ. 0) GO TO 930 ABLK(7) = MIN0(ABLK(6),NBRSTR) ABLK(4) = ABLK(4) + ABLK(7) + 4 MM = ABLK(7)*NWDS DO 370 K = 1,MM X(1) = A(K) 370 CONTINUE IF (ABLK(7) .EQ. NBRSTR) GO TO 380 CALL ENDPUT (ABLK) NBRSTR = NBRSTR - ABLK(7) GO TO 360 380 IF (J .EQ. 10) ABLK(8) = 1 CALL ENDPUT (ABLK) 390 CONTINUE 400 CONTINUE CALL CPUTIM (T2,T2,1) CALL CLOSE (F1,1) M100 = MAX0(M10/10,1) CALL GOPEN (F2,A(BUF2),1) KERR = 3 BBLK(1) = F2 BBLK(2) = TYPE BBLK(3) = 1 CALL CPUTIM (T3,T3,1) DO 450 I = 1,N10 BBLK(4) = 0 BBLK(8) =-1 DO 440 J = 1,10 NBRSTR = M100 410 CALL PUTSTR (BBLK) IF (NBRSTR .EQ. 0) GO TO 930 BBLK(7) = MIN0(BBLK(6),NBRSTR) BBLK(4) = BBLK(4) + BBLK(7) + 4 MM = BBLK(7)*NWDS DO 420 K = 1,MM X(1) = A(K) 420 CONTINUE IF (BBLK(7) .EQ. NBRSTR) GO TO 430 NBRSTR = NBRSTR - BBLK(7) GO TO 410 430 IF (J .EQ. 10) BBLK(8) = 1 CALL ENDPUT (BBLK) 440 CONTINUE 450 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,1) ASSIGN 680 TO IRET GO TO 600 C C GETSTR TEST (GET STRING FORWARD) C 460 CONTINUE CALL GOPEN (F1,A(BUF1),0) CALL CPUTIM (T1,T1,1) DO 490 I = 1,N ABLK(8) = -1 470 CALL GETSTR (*490,ABLK) MM = ABLK(6)*NWDS DO 480 K = 1,MM X(1) = A(K) 480 CONTINUE CALL ENDGET (ABLK) GO TO 470 490 CONTINUE CALL CPUTIM (T2,T2,1) C CALL CLOSE (F1,1) CALL GOPEN (F2,A(BUF2),0) CALL CPUTIM (T3,T3,1) DO 520 I = 1,N10 BBLK(8) = -1 500 CALL GETSTR (*520,BBLK) MM = BBLK(6)*NWDS DO 510 K = 1,MM X(1) = A(K) 510 CONTINUE CALL ENDGET (BBLK) GO TO 500 520 CONTINUE CALL CPUTIM (T4,T4,1) C CALL CLOSE (F2,1) ASSIGN 690 TO IRET GO TO 600 C C GETSTB TEST, (GET BACKWARD STRING) C F1 AND F2 FILES ARE STILL OPENED, AND POSITIONED AT THE END C 530 CONTINUE C CALL GOPEN (F1,A(BUF1),0) C CALL REWIND (F1) C CALL SKPFIL (F1,N+1) CALL CPUTIM (T1,T1,1) DO 560 I = 1,N ABLK(8) = -1 540 CALL GETSTB (*560,ABLK) MM = ABLK(6)*NWDS DO 550 K = 1,MM X(1) = A(K) 550 CONTINUE CALL ENDGTB (ABLK) GO TO 540 560 CONTINUE CALL CPUTIM (T2,T2,1) CALL CLOSE (F1,1) C CALL GOPEN (F2,A(BUF2),0) C CALL REWIND (F2) C CALL SKPFIL (F2,N10+1) CALL CPUTIM (T3,T3,1) DO 590 I = 1,N10 BBLK(8) = -1 570 CALL GETSTB (*590,BBLK) MM = BBLK(6)*NWDS DO 580 K = 1,MM X(1) = A(K) 580 CONTINUE CALL ENDGTB (BBLK) GO TO 570 590 CONTINUE CALL CPUTIM (T4,T4,1) CALL CLOSE (F2,1) ASSIGN 700 TO IRET C C INTERNAL ROUTINE TO STORE TIMING DATA IN /NTIME/ COMMON BLOCK C 600 CONTINUE TIME1 = T2 - T1 TIME2 = T4 - T3 TPRREC = 1.0E6*(TIME2 - TIME1)/(9.0*FN) TPRWRD = (1.0E6*TIME1 - FN*TPRREC)/(FN*FM) GO TO IRET, (610,620,630,640,650,660,670,680,690,700) 610 TGINO = TPRWRD RGINO = TPRREC GO TO 110 620 TGINO = TGINO + TPRWRD RGINO = RGINO + TPRREC GO TO 150 630 TGINO = TGINO + TPRWRD TGINO = TGINO/3.0 RGINO = RGINO + TPRREC RGINO = RGINO/3.0 GO TO 180 640 TBLDPK = TPRWRD RBLDPK = TPRREC GO TO 230 650 TINTPK = TPRWRD RINTPK = TPRREC GO TO 280 660 TPACK = TPRWRD RPACK = TPRREC GO TO 320 670 TUNPAK = TPRWRD RUNPAK = TPRREC GO TO 350 680 TPUTST = TPRWRD RPUTST = TPRREC GO TO 460 690 TGETST = TPRWRD RGETST = TPRREC GO TO 530 700 TGETSB = TPRWRD IF (DEBUG1 .GT. 0) WRITE (OUTPUT,710) 710 FORMAT (' -LINK1 DEBUG- TMTSIO FINISHED') RETURN C C INTERNAL ROUTINE CALLED FOR AN ABORT IN THE INTPK TEST C 800 WRITE (OUTPUT,810) SFM 810 FORMAT (A25,' 2197, ABORT CALLED DURING TIME TEST OF INTPK') C C ABNORMAL RETURNS FROM GINO - ALL FATAL ERRORS C 900 CONTINUE 910 CONTINUE 920 CALL MESAGE (-61,0,0) 930 WRITE (OUTPUT,940) KERR 940 FORMAT ('0*** TMTSIO FATAL ERROR',I7) GO TO 920 END ================================================ FILE: mis/tmtslp.f ================================================ SUBROUTINE TMTSLP C C TMTSLP TIME TESTS CPU TIMES FOR VARIOUS TYPES OF LOOPS C C COMMENT FROM G.CHAN/UNISYS 5/91 C BASICALLY THIS ROUTINE IS SAME AS TIMTS2 C C IF ALL TIMING CONSTANTS ARE ZEROS (OR 0.001) SYSTEM HAS A WRONG C CPUTIM.MDS SUBROUTINE. MOST LIKELY THE CPUTIM.MIS IS BEING USED. C INTEGER SYSBUF,BUF1,BUF2,END,END2,END4,TYPE,ISUBR(2) REAL B(1),C(1),D(1),E(16) COMPLEX AC(1),BC(1),CC(1),DC(1),ADNC DOUBLE PRECISION ADND,AD(1),BD(1),CD(1),DD(1) COMMON /MACHIN/ MACH COMMON /NTIME / NITEMS,TGINO ,TBLDPK,TINTPK,TPACK , 1 TUNPAK,TGETST,TPUTST, 2 TTLRSP,TTLRDP,TTLCSP,TTLCDP, 3 TLLRSP,TLLRDP,TLLCSP,TLLCDP,TGETSB COMMON /SYSTEM/ SYSBUF,NOUT,SKIP(74),ISY77 COMMON /ZZZZZZ/ A(1) EQUIVALENCE (A(1),AC(1),AD(1),B(1),BC(1),BD(1),C(1),CC(1), 1 CD(1),D(1),DC(1),DD(1)), (E(1),TGINO) DATA ISUBR / 4HTMTS, 4HLP / C C INITIALIZE C DOUBLE N SIZE SINCE VAX (AND UNIX) CLOCK MAY NOT TICK FAST ENOUGH C N = 50 IF (MACH .GE. 5) N = 100 M = N C BUF1 = KORSZ(A) - SYSBUF BUF2 = BUF1 - SYSBUF END = N*M IF (END .GE. BUF1-1) CALL MESAGE (-8,0,ISUBR) C C CPU TIME TESTS C ASQ = M + N ADNO = 1/(ASQ*ASQ) ADND = ADNO ADNC = CMPLX(ADNO,ADNO) END2 = END/2 END4 = END/4 DO 420 TYPE = 1,4 GO TO (10,90,170,250), TYPE C C REAL CPU TIME TESTS C 10 CONTINUE C IF (M.GT.END .OR. N.GT.END) CALL MESAGE (-8,0,ISUBR) DO 20 I = 1,END 20 A(I) = ADNO CALL CPUTIM (T1,T1,1) DO 40 I = 1,N DO 30 J = 1,M D(J) = A(J)*B(J) + C(J) 30 CONTINUE 40 CONTINUE CALL CPUTIM (T2,T2,1) ASSIGN 340 TO IRET GO TO 330 50 CONTINUE C DO 60 I = 1,END 60 A(I) = ADNO CALL CPUTIM (T1,T1,1) DO 80 I = 1,N DO 70 J = 1,M L = I + J - 1 D(J) = A(I)*B(L) + C(J) 70 CONTINUE 80 CONTINUE CALL CPUTIM (T2,T2,1) ASSIGN 350 TO IRET GO TO 330 C C DOUBLE PRECISION TESTS C 90 CONTINUE C IF (M.GT.END2 .OR. N.GT.END2) CALL MESAGE (-8,0,ISUBR) DO 100 I = 1,END2 100 AD(I) = ADND CALL CPUTIM (T1,T1,1) DO 120 I = 1,N DO 110 J = 1,M DD(J) = AD(J)*BD(J) + CD(J) 110 CONTINUE 120 CONTINUE CALL CPUTIM (T2,T2,1) ASSIGN 360 TO IRET GO TO 330 130 CONTINUE C DO 140 I = 1,END2 140 AD(I) = ADND CALL CPUTIM (T1,T1,1) DO 160 I = 1,N DO 150 J = 1,M L = I + J - 1 DD(J) = AD(I)*BD(L) + CD(J) 150 CONTINUE 160 CONTINUE CALL CPUTIM (T2,T2,1) ASSIGN 370 TO IRET GO TO 330 C C COMPLEX SINGLE PRECISION TESTS C 170 CONTINUE C IF (M.GT.END2 .OR. N.GT.END2) CALL MESAGE (-8,0,ISUBR) DO 180 I = 1,END2 180 AC(I) = ADNC CALL CPUTIM (T1,T1,1) DO 200 I = 1,N DO 190 J = 1,M DC(J) = AC(J)*BC(J) + CC(J) 190 CONTINUE 200 CONTINUE CALL CPUTIM (T2,T2,1) ASSIGN 380 TO IRET GO TO 330 210 CONTINUE C DO 220 I = 1,END2 220 AC(I) = ADNC CALL CPUTIM (T1,T1,1) DO 240 I = 1,N DO 230 J = 1,M L = I + J - 1 DC(J) = AC(I)*BC(L) + CC(J) 230 CONTINUE 240 CONTINUE CALL CPUTIM (T2,T2,1) ASSIGN 390 TO IRET GO TO 330 C C DOUBLE PRECISION COMPLEX TESTS C 250 CONTINUE C IF (M.GT.END4 .OR. N.GT.END4) CALL MESAGE (-8,0,ISUBR) DO 260 I = 1,END2 260 AD(I) = ADND CALL CPUTIM (T1,T1,1) DO 280 I = 1,N DO 270 J = 1,M C C D(J) AND D(J+1) CALCULATIONS WERE REVERSED C IN ORDER TO COUNTERACT THE ITERATIVE BUILD UP C DD(J+1) = AD(J)*BD(J ) - AD(J+1)*BD(J+1) + CD(J ) DD(J ) = AD(J)*BD(J+1) + AD(J+1)*BD(J ) + CD(J+1) 270 CONTINUE 280 CONTINUE CALL CPUTIM (T2,T2,1) ASSIGN 400 TO IRET GO TO 330 290 CONTINUE C DO 300 I = 1,END2 300 AD(I) = ADND CALL CPUTIM (T1,T1,1) DO 320 I = 1,N DO 310 J = 1,M L = I + J - 1 DD(J ) = AD(I)*BD(L ) - AD(I+1)*BD(L+1) + CD(J ) DD(J+1) = AD(I)*BD(L+1) + AD(I+1)*BD(L ) + CD(J+1) 310 CONTINUE 320 CONTINUE CALL CPUTIM (T2,T2,1) ASSIGN 410 TO IRET C C C INTERNAL ROUTINE TO STORE TIMING DATA IN /NTIME/ COMMON BLOCK C 330 TIME = T2 - T1 ITOT = M*N TPEROP = 1.0E6*TIME/ITOT GO TO IRET, (340,350,360,370,380,390,400,410) 340 TTLRSP = TPEROP GO TO 50 350 TLLRSP = TPEROP GO TO 420 360 TTLRDP = TPEROP GO TO 130 370 TLLRDP = TPEROP GO TO 420 380 TTLCSP = TPEROP GO TO 210 390 TLLCSP = TPEROP GO TO 420 400 TTLCDP = TPEROP GO TO 290 410 TLLCDP = TPEROP 420 CONTINUE C C MAKE SURE ALL TIME CONTSTANTS ARE OK C DO 430 I = 1,NITEMS IF (ISY77.EQ.-3 .AND. E(I).LT.0.001) E(I) = 0.001 IF (ISY77.NE.-3 .AND. E(I).LT.1.E-7) E(I) = 1.E-7 430 CONTINUE IF (ISY77 .NE. -3) GO TO 460 WRITE (NOUT,440) NITEMS,NITEMS,E 440 FORMAT ('0*** NASTRAN SYSTEM MESSAGE. IF THESE',I4,' NEW TIMING', 1 ' CONSTANTS ARE HARD-CODED INTO THE LABEL COMMON /NTIME/ OF', 2 /5X, 'SUBROUTINE SEMDBD, COMPILE, AND RE-LINKE LINK 1, THE ', 3 'COMPUTATIONS OF THESE CONSTANTS IN ALL NASTRAN JOBS WILL',/5X, 4 'BE ELIMINATED.', /5X,'OR TO ACCOMPLISH THE SAME RESULT, ', 5 'EDIT THE TIM-LINE IN THE NASINFO FILE TO INCLUDE THESE',I4, 6 ' NEW',/5X,'TIMING CONSTANTS', //5X,9F8.3, /5X,7F8.3,//) CALL PEXIT 460 CALL SSWTCH (35,J) IF (J .NE. 0) CALL TMTSOT C RETURN END ================================================ FILE: mis/tmtsot.f ================================================ SUBROUTINE TMTSOT C C THIS SUBROUTINE PRINTS THE CONTENTS OF COMMON /NTIME/ C COMMON /NTIME / NITEMS, TGINO , TBLDPK, TINTPK, TPACK , 1 TUNPAK, TGETST, TPUTST, 2 TTLRSP, TTLRDP, TTLCSP, TTLCDP, 3 TLLRSP, TLLRDP, TLLCSP, TLLCDP, 4 TGETSB * , RGINO , RBLDPK , RINTPK , RPACK , * RUNPAK, RGETST , RPUTST COMMON /SYSTEM/ ISYSBF, NOUT , DUMMY(74) , ISY77 C WRITE (NOUT,2000) NITEMS WRITE (NOUT,2010) TGINO WRITE (NOUT,2020) TBLDPK WRITE (NOUT,2030) TINTPK WRITE (NOUT,2040) TPACK WRITE (NOUT,2050) TUNPAK WRITE (NOUT,2060) TGETST WRITE (NOUT,2070) TPUTST WRITE (NOUT,2080) TTLRSP WRITE (NOUT,2090) TTLRDP WRITE (NOUT,2100) TTLCSP WRITE (NOUT,2110) TTLCDP WRITE (NOUT,2120) TLLRSP WRITE (NOUT,2130) TLLRDP WRITE (NOUT,2140) TLLCSP WRITE (NOUT,2150) TLLCDP WRITE (NOUT,2160) TGETSB WRITE (NOUT,2210) RGINO WRITE (NOUT,2220) RBLDPK WRITE (NOUT,2230) RINTPK WRITE (NOUT,2240) RPACK WRITE (NOUT,2250) RUNPAK WRITE (NOUT,2260) RGETST WRITE (NOUT,2270) RPUTST IF (ISY77 .NE. -3) WRITE (NOUT,2200) RETURN 2000 FORMAT (1H1,23X, 1 ' DIAG 35 OUTPUT OF TIMING CONSTANTS IN COMMON /NTIME/'/ 2 24X, 3 ' ----------------------------------------------------'// 4 ' NUMBER OF TIMING CONSTANTS IN COMMON /NTIME/ ', 5 ' --- ', I11 / ) 2010 FORMAT (' READ + WRITE + BACKWARD READ ', 1 ' (AVERAGE PER WORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2020 FORMAT (' BLDPK - PACK SUCCESSIVE ELEMENTS OF A COLUMN', 1 ' (AVERAGE PER WORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2030 FORMAT (' INTPK - UNPACK SUCCESSIVE ELEMENTS OF A COLUMN', 1 ' (AVERAGE PER WORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2040 FORMAT (' PACK - PACK AN ENTIRE COLUMN ', 1 ' (AVERAGE PER WORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2050 FORMAT (' UNPACK - UNPACK AN ENTIRE COLUMN ', 1 ' (AVERAGE PER WORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2060 FORMAT (' GETSTR - FORWARD READ A STRING OF DATA ', 1 ' (AVERAGE PER WORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2070 FORMAT (' PUTSTR - WRITE A STRING OF DATA ', 1 ' (AVERAGE PER WORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2080 FORMAT (' TIGHT-LOOP MULTIPLY - REAL SINGLE PRECISION ', 1 ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ ) 2090 FORMAT (' TIGHT-LOOP MULTIPLY - REAL DOUBLE PRECISION ', 1 ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ ) 2100 FORMAT (' TIGHT-LOOP MULTIPLY - COMPLEX SINGLE PRECISION ', 1 ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ ) 2110 FORMAT (' TIGHT-LOOP MULTIPLY - COMPLEX DOUBLE PRECISION ', 1 ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ ) 2120 FORMAT (' LOOSE-LOOP MULTIPLY - REAL SINGLE PRECISION ', 1 ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ ) 2130 FORMAT (' LOOSE-LOOP MULTIPLY - REAL DOUBLE PRECISION ', 1 ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ ) 2140 FORMAT (' LOOSE-LOOP MULTIPLY - COMPLEX SINGLE PRECISION ', 1 ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ ) 2150 FORMAT (' LOOSE-LOOP MULTIPLY - COMPLEX DOUBLE PRECISION ', 1 ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ ) 2160 FORMAT (' GETSTB - BACKWARD READ A STRING OF DATA ', 1 ' (AVERAGE PER WORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2200 FORMAT ('0*** NASTRAN INFORMATION MESSAGE, TO INCORPORATE THESE ', 1 'TIMING CONSTANTS INTO NASTRAN PERMANENTLY', /5X, 2 'RE-RUN JOB WITH ''NASTRAN BULKDATA=-3'' FOR MORE ', 3 'INSTRUCTIONS',/) 2210 FORMAT (' READ + WRITE + BACKWARD READ ', * ' (AVERAGE PER RECORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2220 FORMAT (' BLDPK - PACK SUCCESSIVE ELEMENTS OF A COLUMN', * ' (AVERAGE PER RECORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2230 FORMAT (' INTPK UNPACK SUCCESSIVE ELEMENTS OF A COLUMN', * ' (AVERAGE PER RECORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2240 FORMAT (' PACK - PACK AN ENTIRE COLUMN ', * ' (AVERAGE PER RECORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2250 FORMAT (' UNPACK - UNPACK AN ENTIRE COLUMN ', * ' (AVERAGE PER RECORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2260 FORMAT (' GETSTR - READ A STRING OF DATA ', * ' (AVERAGE PER RECORD ) --- ', E11.4, ' MICROSECONDS'/ ) 2270 FORMAT (' PUTSTR - WRITE A STRING OF DATA ', * ' (AVERAGE PER RECORD ) --- ', E11.4, ' MICROSECONDS'/ ) END ================================================ FILE: mis/tordrd.f ================================================ SUBROUTINE TORDRD C C THIS SUBROUTINE COMPUTES THE STIFFNESS MATRIX AND THE MASS MATRIX C FOR AN AXI-SYMMETRIC TORDIDAL THIN SHELL RING C C DOUBLE PRECISION VERSION C C THIS SUBROUTINE USES ROUTINES ROMBDK , DMATRX C C C***** C C ECPT FOR THE TOROIDAL RING C C TYPE C ECPT( 1) ELEMENT IDENTIFICATION I C ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A I C ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B I C ECPT( 4) ANGLE OF CURVATURE AT GRID POINT A R C ECPT( 5) ANGLE OF CURVATURE AT GRID POINT B(NOT USED) R C ECPT( 6) MATERIAL ORIENTATION (NOT USED) R C ECPT( 7) MATERIAL IDENTIFICATION I C ECPT( 8) MEMBRANE THICKNESS R C ECPT( 9) FLEXURE THICKNESS R C ECPT(10) COOR. SYS. ID. FOR GRID POINT A I C ECPT(11) X-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(12) Y-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(13) Z-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(14) COOR. SYS. ID. FOR GRID POINT B I C ECPT(15) X-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(16) Y-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(17) Z-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(18) EL. TEMPERATURE FOR MATERIAL PROPERTIES R C C***** C DOUBLE PRECISION CONSTD DIMENSION IECPT(18), ICS(2) REAL ECPT(17) DOUBLE PRECISION X AM(144),GAMBQF(72),GAMBQM(48),EE(4),AK(144),GAMRS(144),AKI(36), X DELINT(66),D(144),R(2),Z(2),KOUT(144),GAMBQ(144) DOUBLE PRECISION A1,A2,AKM(36),MOUT(144) DOUBLE PRECISION TWOPI,DEGRAD,PHIB,RP,S,SINA1, X SINA2,COSA1,COSA2,R1,R2,Z1,Z2,EP,ET,VPT,VTP,DEL, X DJP1 INTEGER DICT (9),ELID,ESTID LOGICAL NOGO,HEAT C C COMMON /CONDAD/ CONSTD(5) C COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH COMMON /MATOUT/ 1 E(3) ,ANU(3) 2, RHO ,G(3) 3, ALF(3) ,TZERO, GSUBE COMMON /SYSTEM/ KSYSTM(55),HEAT C COMMON /EMGPRM/ DUM(15), ISMB(3),IPREC,NOGO,IHEAT COMMON /EMGDIC/ IDM, LDICT,NGRIDS, ELID,ESTID C COMMON /EMGEST/ IDEL,IGP(2),ALPH(2),OM,MATID,TM,TF,ICS1, X XYZ(3),ICS2,XYZ2(3),TEMPE C EQUIVALENCE (DICT5,DICT(5)) EQUIVALENCE (IECPT(1),ECPT(1),IDEL) EQUIVALENCE ( CONSTD(2) , TWOPI ) EQUIVALENCE ( CONSTD(4) , DEGRAD ) EQUIVALENCE (GAMBQF(1), GAMBQ(1)) EQUIVALENCE (GAMBQM(1), GAMBQ(73)) EQUIVALENCE (DELINT(1), GAMBQ(1)) EQUIVALENCE (GAMRS(1), GAMBQ(1)) EQUIVALENCE (R1,R(1)),(R2,R(2)),(Z1,Z(1)),(Z2,Z(2)) C C C ---------------------------------------------------------------------- C C SET UP THE DICT ARRAY C IPR= IPREC DICT(1) = ESTID DICT(3) = 12 DICT(4) = 63 ICS(1)= IECPT(10) ICS(2)= IECPT(14) R(1) = ECPT(11) D1 = ECPT(12) Z(1) = ECPT(13) R(2) = ECPT(15) D2 = ECPT(16) Z(2) = ECPT(17) C C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C IF (R1 .LT. 0. .OR. R2 .LT. 0.) GO TO 7770 IF (D1 .NE. 0. .OR. D2 .NE. 0.) GO TO 7770 C C C DETERMINE IF ELEMENT IS A TOROIDAL, CONICAL OR CYLINDRICAL RING C ITORD = 0 IF (ABS(ALPH(1) - ALPH(2)) .LE. 1.E-6) ITORD = 1 IF (ITORD .EQ. 1 .AND. ABS(ALPH(1)-90.) .LE. 1.E-5) ITORD=-1 C C C COMPUTE THE ELEMENT COORDINATES C A1 = DBLE(ALPH(1)) * DEGRAD A2 = DBLE(ALPH(2)) * DEGRAD PHIB = A2 - A1 SINA1 = DSIN(A1) COSA1 = DCOS(A1) SINA2 = DSIN(A2) COSA2 = DCOS(A2) C IF (ITORD .NE. 0) GO TO 100 C C FOR THE TOROIDAL RING C RP = DSQRT((R2-R1)**2 + (Z2-Z1)**2) /(2.D0*DSIN(PHIB/2.D0)) S = PHIB * RP GO TO 110 C C FOR THE CONICAL OR CYLINDRICAL RING C 100 RP = 0.D0 S = DSQRT((R2-R1)**2 + (Z2-Z1)**2) C C COMPUTE THE BASIC AND REQUIRED INTEGRALS C C SET UP THE ARRAY OF CONSTANTS FOR ROMBER INTEGRATION ROUTINE C 110 D(21) = 0.D0 D(22) = RP D(23) = R1 D(24) = COSA1 D(25) = SINA1 C C COMPUTE CONSTANTS NEEDED FOR INTEGRAL CALCULATIONS C D(30) = R1 - RP * SINA1 D(31) = RP * COSA1 D(32) = RP * SINA1 D(33) = COSA1 ** 2 D(34) = SINA1 * COSA1 D(35) = SINA1 ** 2 D(36) = 0.5 - D(35) C C START LOOP FOR CALCULATIONS OF INTEGRALS C DO 260 JP1=1,11 J = JP1 - 1 K = (J * 6) + 1 DJP1 = JP1 C C TEST FOR ELEMENT SHAPE C IF (ITORD) 240,120,170 C C THE TOROIDAL RING BASIC INTEGRALS WILL BE COMPUTED IN C LOCATIONS D(1),...,D(6) C 120 D(20) = (RP** JP1) C C COMPUTE I(J,1) C D(1) = D(20) * (PHIB ** JP1) / DJP1 C C COMPUTE I(J,2) C D(2) = (PHIB**(JP1+1))/ (DJP1 + 1.) D(10)= 1. DO 130 I=1,20 IP = JP1 + 2 * I + 1 D(11) = 2 * I + 1 D(10)= D(10)*D(11)*(D(11)-1.) D(12)= (-1.)**I * PHIB**IP/((DJP1+D(11))*D(10)) D(13) = DABS (D(12)/D(2)) D(2) = D(2)+ D(12) IF (D(13) .LE. 1.D-10) GO TO 140 130 CONTINUE GO TO 7780 140 D(2) = D(20)*D(2) C C COMPUTE I(J,3) C D(3) = (PHIB ** JP1) / DJP1 D(10) = 1. DO 150 I=1,20 IP = JP1 + 2 * I D(11) = 2 * I D(10) = D(10)*D(11)*(D(11)-1.) D(12) = (-1.)**I * PHIB**IP/((DJP1+D(11)) *D(10)) D(13) = DABS (D(12)/D(3)) D(3) = D(3) + D(12) IF (D(13) .LE. 1.D-10) GO TO 160 150 CONTINUE GO TO 7780 160 CONTINUE D(3) = D(20) * D(3) D(26) = DJP1 C C COMPUTE I(J,4) C CALL ROMBDK (PHIB,D(10),IP, D(4),1,D(21)) IF (IP .GE. 15) CALL MESAGE (30,26,IDEL) D(4) = D(20) * D(4) C C COMPUTE I(J,5) C CALL ROMBDK (PHIB,D(10),IP,D(5),2,D(21)) IF (IP .GE. 15) CALL MESAGE (30,26,IDEL) D(5) = D(20) * D(5) C C COMPUTE I(J,6) C CALL ROMBDK (PHIB,D(10),IP,D(6),3,D(21)) IF (IP .GE. 15) CALL MESAGE (30,26,IDEL) D(6) = D(20) * D(6) C C THE TOROIDAL RING REQUIRED INTEGRALS C DELINT(K ) = D(30) * D(1) + D(31) * D(2) + D(32) * D(3) DELINT(K+1) = COSA1 * D(2) + SINA1 * D(3) DELINT(K+2) = D(33) * D(4) + D(34) * D(5) + D(35) * D(6) DELINT(K+3) = COSA1 * D(3) - SINA1 * D(2) DELINT(K+4) = D(34) * (D(6)-D(4)) + D(36) * D(5) DELINT(K+5) = D(33) * D(6) - D(34) * D(5) + D(35) * D(4) GO TO 250 C C THE CONICAL RING BASIC INTEGRALS WILL BE COMPUTED IN C LOCATIONS D(1) AND D(2) C C C COMPUTE I(J,1) C 170 D(1) = (S **JP1)/DJP1 IF (J-1) 180,190,200 C C COMPUTE I(0,2) C 180 D(2) = DLOG(( R1+ S*COSA1)/R1)/COSA1 GO TO 230 C C COMPUTE I(1,2) C 190 D(2) = (S- (R1/COSA1) * DLOG((R1+S*COSA1)/R1)) /COSA1 GO TO 230 C C COMPUTE I(J,2) WHERE J .GT.1 C 200 D(2) =1./DJP1 D(10)= -S*COSA1/R1 DO 210 I= 1,1000 D(11) = JP1 + I D(12) = (D(10) ** I) / D(11) D(2) = D(2) + D(12) IF (D(12) .LT. 1.D-4) GO TO 220 210 CONTINUE GO TO 7780 220 D(2)= ((S**JP1)/R1)* D(2) C C THE CONICAL RING REQUIRED INTEGRALS C 230 DELINT(K ) = R1*D(1) + COSA1*(S**(JP1+1)/(DJP1+1.)) DELINT(K+1) = SINA1 * D(1) DELINT(K+2) = D(35) * D(2) DELINT(K+3) = COSA1 * D(1) DELINT(K+4) = D(34) * D(2) DELINT(K+5) = D(33) * D(2) GO TO 250 C C THE CYLINDRICAL RING BASIC INTEGRALS WILL BE COMPUTED IN C LOCATIONS D(1) AND D(2) C C C COMPUTE I(J,1) C 240 D(1) = (S**JP1)/DJP1 C C COMPUTE I(J,2) C D(2) = D(1) / R1 C C THE CYLINDRICAL RING REQUIRED INTEGRALS C DELINT(K ) = R1*D(1) + COSA1*(S**(JP1+1)/(DJP1+1.)) DELINT(K+1) = SINA1 * D(1) DELINT(K+2) = D(35) * D(2) DELINT(K+3) = 0. DELINT(K+4) = 0. DELINT(K+5) = 0. C 250 CONTINUE C 260 CONTINUE C C IF STIFFNESS MATRIX NOT REQUIRED GO TO MASS ROUTINE C C C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT(IDEL) C C C SET MATERIAL PROPERTIES IN LOCAL VARIABLES C EP = E(1) ET = E(2) VPT= ANU(1) VTP= VPT * ET / EP DEL = 1. - VPT*VTP DICT5 = G SUBE C C C GENERATE THE ELASTIC CONSTANTS MATRIX(2X2) C EE(1) = EP / DEL EE(2) = ET * VPT / DEL EE(3) = EE(2) EE(4) = ET / DEL C C C FORM THE STIFFNESS MATRIX IN FIELD COORDINATES C C COMPUTE CONSTANTS NEEDED IN DMATRX SUBROUTINE C D(1) = EP / ET D(7) = 0. IF (ITORD .EQ. 0) D(7) = 1./RP D(2) = D(1) * D(7) D(3) = D(2) * D(7) D(4) = VPT * D(7) D(5) =(EP * TM / (D(1) - VPT**2)) * TWOPI D(6) = (EP*TF**3)/(12.*(D(1)-VPT**2))*TWOPI C C CALL THE DMATRIX SUBROUTINE TO COMPUTE THE STIFFNESS MATRIX (10X10) C C NOTE THE DOUBLE SUBSCRIPTING USED IN DMATRIX SUBROUTINE IS C COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS C IS A (11X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING C PROGRAM AND IT IS A (6X11) DOUBLY SUBSCRIPTED ARRAY (STORED C COLUMNWISE) IN DMATRX ROUTINE. C IF (ISMB(1) .EQ. 0) GO TO 270 CALL DMATRX (AK(1),VPT,D(1),D(2),D(3),D(4),D(5),D(6),DELINT(1)) 270 IF (ISMB(2) .EQ. 0) GO TO 279 DO 275 I=1,100 275 AM(I) = 0. AM( 1) = DELINT( 1) AM( 2) = DELINT( 7) AM( 3) = DELINT(13) AM( 4) = DELINT(19) AM( 11) = DELINT( 7) AM( 12) = DELINT(13) AM( 13) = DELINT(19) AM( 14) = DELINT(25) AM( 21) = DELINT(13) AM( 22) = DELINT(19) AM( 23) = DELINT(25) AM( 24) = DELINT(31) AM( 31) = DELINT(19) AM( 32) = DELINT(25) AM( 33) = DELINT(31) AM( 34) = DELINT(37) AM( 45) = DELINT( 1) AM( 46) = DELINT( 7) AM( 47) = DELINT(13) AM( 48) = DELINT(19) AM( 49) = DELINT(25) AM( 50) = DELINT(31) AM( 55) = DELINT( 7) AM( 56) = DELINT(13) AM( 57) = DELINT(19) AM( 58) = DELINT(25) AM( 59) = DELINT(31) AM( 60) = DELINT(37) AM( 65) = DELINT(13) AM( 66) = DELINT(19) AM( 67) = DELINT(25) AM( 68) = DELINT(31) AM( 69) = DELINT(37) AM( 70) = DELINT(43) AM( 75) = DELINT(19) AM( 76) = DELINT(25) AM( 77) = DELINT(31) AM( 78) = DELINT(37) AM( 79) = DELINT(43) AM( 80) = DELINT(49) AM( 85) = DELINT(25) AM( 86) = DELINT(31) AM( 87) = DELINT(37) AM( 88) = DELINT(43) AM( 89) = DELINT(49) AM( 90) = DELINT(55) AM( 95) = DELINT(31) AM( 96) = DELINT(37) AM( 97) = DELINT(43) AM( 98) = DELINT(49) AM( 99) = DELINT(55) AM(100) = DELINT(61) C D(1) = TWO PI * RHO * TM DO 278 I=1,100 278 AM(I)= D(1) * AM(I) 279 CONTINUE C C C C FORM THE TRANSFORMATION MATRIX(10X12) FROM FIELD COORDINATES TO GRID C POINT DEGREES OF FREEDOM C DO 280 I=1,72 280 GAMBQF(I)=0. D(1) = S D(2) = S ** 2 D(3) = S ** 3 D(4) = S ** 4 D(5) = S ** 5 GAMBQF(3) = 1. GAMBQF(16)= 1. GAMBQF(30)= .5 GAMBQF(39)=-10./D(3) GAMBQF(40)= -6./D(2) GAMBQF(42)= -1.5/D(1) GAMBQF(45) = -GAMBQF(39) GAMBQF(46) = -4./D(2) GAMBQF(48) = .5/D(1) GAMBQF(51) = 15./D(4) GAMBQF(52) = 8./D(3) GAMBQF(54) = 1.5/D(2) GAMBQF(57) = -GAMBQF(51) GAMBQF(58) = 7./D(3) GAMBQF(60) = -1./D(2) GAMBQF(63) = -6./D(5) GAMBQF(64) = -3./D(4) GAMBQF(66) = -.5/D(3) GAMBQF(69) = -GAMBQF(63) GAMBQF(70) = GAMBQF(64) GAMBQF(72) = -GAMBQF(66) DO 290 I=1,48 290 GAMBQM(I) = 0. GAMBQM(1) = 1. GAMBQM(17)= 1. GAMBQM(25)= -3./D(2) GAMBQM(29) = -2./D(1) GAMBQM(31)= -GAMBQM(25) GAMBQM(35) = -1./D(1) GAMBQM(37) = 2./D(3) GAMBQM(41) = 1./D(2) GAMBQM(43) = -GAMBQM(37) GAMBQM(47) = GAMBQM(41) C C C TRANSFORM THE STIFFNESS MATRIX TO GRID POINT DEGREES OF FREEDOM C IF(ISMB(1).EQ. 0) GO TO 295 CALL GMMATD (GAMBQ(1),10,12,1, AK(1),10,10,0, D(1)) CALL GMMATD (D(1), 12,10,0, GAMBQ(1), 10,12,0, AK(1)) 295 IF (ISMB(2).EQ.0) GO TO 299 C REARRANGE GAMBQ FOR MASS MATRIX CALCULATIONS DO 296 I=1,72 296 D(I+48) = GAMBQ(I) DO 297 I=1,48 297 D(I) = GAMBQ(I+72) DO 298 I=1,120 298 GAMBQ(I)=D(I) CALL GMMATD (GAMBQ(1), 10,12,1, AM(1), 10,10,0, D(1)) CALL GMMATD (D(1), 12,10,0, GAMBQ(1), 10,12,0, AM(1)) C 299 CONTINUE C C C FORM THE TRANSFORMATION MATRIX (12X12) FROM ELEMENT TO BASIC C COORDINATES C DO 300 I=1,144 300 GAMRS(I)=0. GAMRS( 1) = COSA1 GAMRS( 3) = -SINA1 GAMRS(25) = SINA1 GAMRS(27) = COSA1 GAMRS(40) = -1. GAMRS(53) = 1. GAMRS(66) = 1. GAMRS(79) = COSA2 GAMRS(81) = -SINA2 GAMRS(103)= SINA2 GAMRS(105)= COSA2 GAMRS(118) = -1. GAMRS(131) = 1. GAMRS(144) = 1. C C C TRANSFORM THE STIFFNESS MATRIX FROM ELEMENT TO BASIC COORDINATES C IF (ISMB(1).EQ.0) GO TO 310 CALL GMMATD (GAMRS(1), 12,12,1, AK(1), 12,12,0, D(1)) CALL GMMATD (D(1), 12,12,0, GAMRS(1), 12,12,0, AK(1)) 310 IF (ISMB(2) .EQ.0) GO TO 315 CALL GMMATD (GAMRS(1), 12,12,1, AM(1), 12,12,0, D(1)) CALL GMMATD (D(1), 12,12,0, GAMRS(1), 12,12,0, AM(1)) 315 CONTINUE C C C LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL COORDINATES C FOR THE TWO GRID POINTS AND EXPAND TO (6X6) C THE TWO MATRICES WILL BE STORED IN D(1),...,D(36) AND D(37),...,D(72) C RESPECTIVELY C DO 320 I =1,72 320 D(I) = 0. DO 350 I =1,2 IF (ICS(I).EQ. 0) GO TO 350 K = 36 * (I - 1) CALL TRANSD (ICS(1), D(73)) DO 340 J=1,3 KK = K + 6 * (J-1) + 1 KL = 3 * (J-1) + 73 KJ = K + 6 * (J+2) + J + 3 D(KK ) = D(KL ) D(KK+1) = D(KL+1) D(KK+2) = D(KL+2) D(KJ) = 1. 340 CONTINUE 350 CONTINUE C C DIVIDE THE STIFFNESS MATRIX INTO 4 SUBMATRICES WHICH CAN THEN BE C TRANSFORMED FROM BASIC TO LOCAL COORDINATES THEN REINSERTED IN THE C STIFFNESS MATRIX IN INCREASING SIL ORDER C DO 500 IP =1,2 IPP = IP IF (IGP(1) .LT. IGP(2)) GO TO 400 IPP = 3 - IP 400 IR = 72 * (IPP-1) IAPP = 36* (IPP-1) +1 DO 490 JI=1,2 I= JI IF (IP .EQ. IPP ) GO TO 405 I = 3-JI C C PLACE THE APPROPRIATE SUBMATRIX INTO A (6X6) MATRIX C 405 IC = 6 *(I-1) K = 0 DO 410 II=1,6 KL = IR + 12 *(II-1) +IC DO 410 IJ =1,6 K = K+1 KK = KL+ IJ AKI(K) = AK(KK) AKM(K) = AM(KK) 410 CONTINUE C C TRANSFORM FROM BASIC TO LOCAL COORDINATES C IF (ICS(IPP) .EQ. 0) GO TO 430 IF (ISMB(1) .EQ. 0 ) GO TO 425 CALL GMMATD (D(IAPP), 6,6,1, AKI(1), 6,6,0, D(73)) DO 420 J=1,36 420 AKI(J)= D(J+72) 425 IF (ISMB(2) .EQ. 0) GO TO 430 CALL GMMATD (D(IAPP), 6,6,1, AKM(1), 6,6,0, D(73)) DO 428 J=1,36 428 AKM(I) = D(J+72) C 430 IF (ICS(I) .EQ. 0) GO TO 450 IAI = 36*(I-1) +1 IF (ISMB(1) .EQ. 0) GO TO 445 CALL GMMATD (AKI(1), 6,6,0, D(IAI), 6,6,0, D(73)) DO 440 J=1,36 440 AKI(J) = D(J+72) 445 IF (ISMB(2) .EQ. 0) GO TO 450 CALL GMMATD (AKM(1), 6,6,0, D(IAI), 6,6,0, D(73)) DO 448 J=1,36 448 AKM(J) =D(J+72) C C REINSERT INTO OVERALL STIFFNESS MATRIX ACCORDING TO INCREASING SIL C 450 DO 460 II = 1,6 DO 460 JJ = 1,6 KI = (II-1)*6 + JJ IOUT= (IP-1)* 72 + (JI-1)*6 + (II-1)*12 + JJ KOUT(IOUT) = AKI(KI) 460 MOUT(IOUT) = AKM(KI) 490 CONTINUE 500 CONTINUE C C OUTPUT THE MATRIX BY EMGOUT C DICT(2) = 1 IF (ISMB(1) .EQ.0) GO TO 550 CALL EMGOUT(KOUT,KOUT,144,1,DICT,1,IPR) C 550 IF (ISMB(2) .EQ.0) GO TO 600 CALL EMGOUT(MOUT,MOUT,144,1,DICT,2,IPR) C 600 RETURN C C C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C 7770 CALL MESAGE (30,37,IDEL) 7777 NOGO = .TRUE. RETURN 7780 CALL MESAGE(30,26,IDEL) GO TO 7777 C END ================================================ FILE: mis/tordrs.f ================================================ SUBROUTINE TORDRS C C THIS SUBROUTINE COMPUTES THE STIFFNESS MATRIX AND THE MASS MATRIX C FOR AN AXI-SYMMETRIC TORDIDAL THIN SHELL RING C C SINGLE PRECISION VERSION C C THIS ROUTINE USES SUBROUTINES ROMBSK DMATRX C C C***** C C ECPT FOR THE TOROIDAL RING C C TYPE C ECPT( 1) ELEMENT IDENTIFICATION I C ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A I C ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B I C ECPT( 4) ANGLE OF CURVATURE AT GRID POINT A R C ECPT( 5) ANGLE OF CURVATURE AT GRID POINT B(NOT USED) R C ECPT( 6) MATERIAL ORIENTATION (NOT USED) R C ECPT( 7) MATERIAL IDENTIFICATION I C ECPT( 8) MEMBRANE THICKNESS R C ECPT( 9) FLEXURE THICKNESS R C ECPT(10) COOR. SYS. ID. FOR GRID POINT A I C ECPT(11) X-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(12) Y-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(13) Z-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(14) COOR. SYS. ID. FOR GRID POINT B I C ECPT(15) X-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(16) Y-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(17) Z-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(18) EL. TEMPERATURE FOR MATERIAL PROPERTIES R C C***** C DOUBLE PRECISION CONSTD DIMENSION IECPT(18), ICS(2) DIMENSION X AM(144),GAMBQF(72),GAMBQM(48),EE(4),AK(144),GAMRS(144),AKI(36), X ECPT(9),DELINT(66),D(144),R(2),Z(2),KOUT(144),GAMBQ(144) REAL KOUT,AKM(36),MOUT(144) INTEGER DICT (9),ELID,ESTID LOGICAL NOGO,HEAT C C COMMON /CONDAD/ CONSTD(5) C COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH COMMON /MATOUT/ 1 E(3) ,ANU(3) 2, RHO ,G(3) 3, ALF(3) ,TZERO, GSUBE COMMON /SYSTEM/ KSYSTM(55),HEAT C COMMON /EMGPRM/ DUM(15), ISMB(3),IPREC,NOGO,IHEAT COMMON /EMGDIC/ IDM, LDICT,NGRIDS, ELID,ESTID C COMMON /EMGEST/ IDEL,IGP(2),ALPH(2),OM,MATID,TM,TF,ICS1, X R1,D1,Z1,ICS2,R2,D2,Z2,TEMPE C EQUIVALENCE (DICT5,DICT(5)) EQUIVALENCE (IECPT(1),ECPT(1),IDEL) EQUIVALENCE ( CONSTD(2) , TWOPI ) EQUIVALENCE ( CONSTD(4) , DEGRAD ) EQUIVALENCE (A1, ALPH(1)), (A2, ALPH(2)) EQUIVALENCE (GAMBQF(1), GAMBQ(1)) EQUIVALENCE (GAMBQM(1), GAMBQ(73)) EQUIVALENCE (DELINT(1), GAMBQ(1)) EQUIVALENCE (GAMRS(1), GAMBQ(1)) C C C ---------------------------------------------------------------------- C C SET UP THE DICT ARRAY C IPR= IPREC DICT(1) = ESTID DICT(3) = 12 DICT(4) = 63 ICS(1)= IECPT(10) ICS(2)= IECPT(14) R(1) = R1 R(2) = R2 Z(1) = Z1 Z(2) = Z2 C C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C IF (R1 .LT. 0. .OR. R2 .LT. 0.) GO TO 7770 IF (D1 .NE. 0. .OR. D2 .NE. 0.) GO TO 7770 C C C DETERMINE IF ELEMENT IS A TOROIDAL, CONICAL OR CYLINDRICAL RING C ITORD = 0 IF (ABS(A1-A2) .LE. 1.E-6) ITORD =1 IF (ITORD .EQ. 1 .AND.ABS(A1 - 90.) .LE. 1.E-5) ITORD=-1 C C C COMPUTE THE ELEMENT COORDINATES C A1 = A1 * DEGRAD A2 = A2 * DEGRAD PHIB = A2 - A1 SINA1 = SIN(A1) COSA1 = COS(A1) SINA2 = SIN(A2) COSA2 = COS(A2) C IF (ITORD .NE. 0) GO TO 100 C C FOR THE TOROIDAL RING C RP = SQRT((R2-R1)**2 + (Z2-Z1)**2)/(2.*SIN(PHIB/2.)) S = PHIB * RP GO TO 110 C C FOR THE CONICAL OR CYLINDRICAL RING C 100 RP = 0. S = SQRT((R2-R1)**2 + (Z2-Z1)**2) C C COMPUTE THE BASIC AND REQUIRED INTEGRALS C C SET UP THE ARRAY OF CONSTANTS FOR ROMBER INTEGRATION ROUTINE C 110 D(21) = 0. D(22) = RP D(23) = R1 D(24) = COSA1 D(25) = SINA1 C C COMPUTE CONSTANTS NEEDED FOR INTEGRAL CALCULATIONS C D(30) = R1 - RP * SINA1 D(31) = RP * COSA1 D(32) = RP * SINA1 D(33) = COSA1 ** 2 D(34) = SINA1 * COSA1 D(35) = SINA1 ** 2 D(36) = 0.5 - D(35) C C START LOOP FOR CALCULATIONS OF INTEGRALS C DO 260 JP1=1,11 J = JP1 - 1 K = (J * 6) + 1 DJP1 = JP1 C C TEST FOR ELEMENT SHAPE C IF (ITORD) 240,120,170 C C THE TOROIDAL RING BASIC INTEGRALS WILL BE COMPUTED IN C LOCATIONS D(1),...,D(6) C 120 D(20) = (RP** JP1) C C COMPUTE I(J,1) C D(1) = D(20) * (PHIB ** JP1) / DJP1 C C COMPUTE I(J,2) C D(2) = (PHIB**(JP1+1))/ (DJP1 + 1.) D(10)= 1. DO 130 I=1,20 IP = JP1 + 2 * I + 1 D(11) = 2 * I + 1 D(10)= D(10)*D(11)*(D(11)-1.) D(12)= (-1.)**I * PHIB**IP/((DJP1+D(11))*D(10)) D(13)= ABS(D(12)/D(2)) D(2) = D(2)+ D(12) IF (D(13) .LE. 1.E-10) GO TO 140 130 CONTINUE GO TO 7780 140 D(2) = D(20)*D(2) C C COMPUTE I(J,3) C D(3) = (PHIB ** JP1) / DJP1 D(10) = 1. DO 150 I=1,20 IP = JP1 + 2 * I D(11) = 2 * I D(10) = D(10)*D(11)*(D(11)-1.) D(12) = (-1.)**I * PHIB**IP/((DJP1+D(11)) *D(10)) D(13) = ABS(D(12)/D(3)) D(3) = D(3) + D(12) IF (D(13).LE. 1.E-10) GO TO 160 150 CONTINUE GO TO 7780 160 CONTINUE D(3) = D(20) * D(3) D(26) = DJP1 C C COMPUTE I(J,4) C CALL ROMBSK( PHIB,D(10),IP,D(4),1,D(21)) IF (IP .GE. 15) CALL MESAGE (30,26,IDEL) D(4) = D(20) * D(4) C C COMPUTE I(J,5) C CALL ROMBSK (PHIB,D(10),IP,D(5),2,D(21)) IF (IP .GE. 15) CALL MESAGE (30,26,IDEL) D(5) = D(20) * D(5) C C COMPUTE I(J,6) C CALL ROMBSK (PHIB,D(10),IP,D(6),3,D(21)) IF (IP .GE. 15) CALL MESAGE (30,26,IDEL) D(6) = D(20) * D(6) C C THE TOROIDAL RING REQUIRED INTEGRALS C DELINT(K ) = D(30) * D(1) + D(31) * D(2) + D(32) * D(3) DELINT(K+1) = COSA1 * D(2) + SINA1 * D(3) DELINT(K+2) = D(33) * D(4) + D(34) * D(5) + D(35) * D(6) DELINT(K+3) = COSA1 * D(3) - SINA1 * D(2) DELINT(K+4) = D(34) * (D(6)-D(4)) + D(36) * D(5) DELINT(K+5) = D(33) * D(6) - D(34) * D(5) + D(35) * D(4) GO TO 250 C C THE CONICAL RING BASIC INTEGRALS WILL BE COMPUTED IN C LOCATIONS D(1) AND D(2) C C C COMPUTE I(J,1) C 170 D(1) = (S **JP1)/DJP1 IF (J-1) 180,190,200 C C COMPUTE I(0,2) C 180 D(2) = ALOG((R1 + S*COSA1)/R1)/COSA1 GO TO 230 C C COMPUTE I(1,2) C 190 D(2) = (S-(R1/COSA1)*ALOG((R1+S*COSA1)/R1))/COSA1 GO TO 230 C C COMPUTE I(J,2) WHERE J .GT.1 C 200 D(2) =1./DJP1 D(10)= -S*COSA1/R1 DO 210 I= 1,1000 D(11) = JP1 + I D(12) = (D(10) ** I) / D(11) D(2) = D(2) + D(12) IF (D(12).LT. 1.E-4) GO TO 220 210 CONTINUE GO TO 7780 220 D(2)= ((S**JP1)/R1)* D(2) C C THE CONICAL RING REQUIRED INTEGRALS C 230 DELINT(K ) = R1*D(1) + COSA1*(S**(JP1+1)/(DJP1+1.)) DELINT(K+1) = SINA1 * D(1) DELINT(K+2) = D(35) * D(2) DELINT(K+3) = COSA1 * D(1) DELINT(K+4) = D(34) * D(2) DELINT(K+5) = D(33) * D(2) GO TO 250 C C THE CYLINDRICAL RING BASIC INTEGRALS WILL BE COMPUTED IN C LOCATIONS D(1) AND D(2) C C C COMPUTE I(J,1) C 240 D(1) = (S**JP1)/DJP1 C C COMPUTE I(J,2) C D(2) = D(1) / R1 C C THE CYLINDRICAL RING REQUIRED INTEGRALS C DELINT(K ) = R1*D(1) + COSA1*(S**(JP1+1)/(DJP1+1.)) DELINT(K+1) = SINA1 * D(1) DELINT(K+2) = D(35) * D(2) DELINT(K+3) = 0. DELINT(K+4) = 0. DELINT(K+5) = 0. C 250 CONTINUE C 260 CONTINUE C C IF STIFFNESS MATRIX NOT REQUIRED GO TO MASS ROUTINE C C C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT(IDEL) C C C SET MATERIAL PROPERTIES IN LOCAL VARIABLES C EP = E(1) ET = E(2) VPT= ANU(1) VTP= VPT * ET / EP DEL = 1. - VPT*VTP DICT5 = G SUBE C C C GENERATE THE ELASTIC CONSTANTS MATRIX(2X2) C EE(1) = EP / DEL EE(2) = ET * VPT / DEL EE(3) = EE(2) EE(4) = ET / DEL C C C FORM THE STIFFNESS MATRIX IN FIELD COORDINATES C C COMPUTE CONSTANTS NEEDED IN DMATRX SUBROUTINE C D(1) = EP / ET D(7) = 0. IF (ITORD .EQ. 0) D(7) = 1./RP D(2) = D(1) * D(7) D(3) = D(2) * D(7) D(4) = VPT * D(7) D(5) =(EP * TM / (D(1) - VPT**2)) * TWOPI D(6) = (EP*TF**3)/(12.*(D(1)-VPT**2))*TWOPI C C CALL THE DMATRIX SUBROUTINE TO COMPUTE THE STIFFNESS MATRIX (10X10) C C NOTE THE DOUBLE SUBSCRIPTING USED IN DMATRIX SUBROUTINE IS C COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS C IS A (11X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING C PROGRAM AND IT IS A (6X11) DOUBLY SUBSCRIPTED ARRAY (STORED C COLUMNWISE) IN DMATRX ROUTINE. C IF (ISMB(1) .EQ. 0) GO TO 270 CALL DMATRS(AK(1),VPT,D(1),D(2),D(3),D(4),D(5),D(6),DELINT(1)) 270 IF (ISMB(2) .EQ. 0) GO TO 279 DO 275 I=1,100 275 AM(I) = 0. AM( 1) = DELINT( 1) AM( 2) = DELINT( 7) AM( 3) = DELINT(13) AM( 4) = DELINT(19) AM( 11) = DELINT( 7) AM( 12) = DELINT(13) AM( 13) = DELINT(19) AM( 14) = DELINT(25) AM( 21) = DELINT(13) AM( 22) = DELINT(19) AM( 23) = DELINT(25) AM( 24) = DELINT(31) AM( 31) = DELINT(19) AM( 32) = DELINT(25) AM( 33) = DELINT(31) AM( 34) = DELINT(37) AM( 45) = DELINT( 1) AM( 46) = DELINT( 7) AM( 47) = DELINT(13) AM( 48) = DELINT(19) AM( 49) = DELINT(25) AM( 50) = DELINT(31) AM( 55) = DELINT( 7) AM( 56) = DELINT(13) AM( 57) = DELINT(19) AM( 58) = DELINT(25) AM( 59) = DELINT(31) AM( 60) = DELINT(37) AM( 65) = DELINT(13) AM( 66) = DELINT(19) AM( 67) = DELINT(25) AM( 68) = DELINT(31) AM( 69) = DELINT(37) AM( 70) = DELINT(43) AM( 75) = DELINT(19) AM( 76) = DELINT(25) AM( 77) = DELINT(31) AM( 78) = DELINT(37) AM( 79) = DELINT(43) AM( 80) = DELINT(49) AM( 85) = DELINT(25) AM( 86) = DELINT(31) AM( 87) = DELINT(37) AM( 88) = DELINT(43) AM( 89) = DELINT(49) AM( 90) = DELINT(55) AM( 95) = DELINT(31) AM( 96) = DELINT(37) AM( 97) = DELINT(43) AM( 98) = DELINT(49) AM( 99) = DELINT(55) AM(100) = DELINT(61) C D(1) = TWO PI * RHO * TM DO 278 I=1,100 278 AM(I)= D(1) * AM(I) 279 CONTINUE C C C C FORM THE TRANSFORMATION MATRIX(10X12) FROM FIELD COORDINATES TO GRID C POINT DEGREES OF FREEDOM C DO 280 I=1,72 280 GAMBQF(I)=0. D(1) = S D(2) = S ** 2 D(3) = S ** 3 D(4) = S ** 4 D(5) = S ** 5 GAMBQF(3) = 1. GAMBQF(16)= 1. GAMBQF(30)= .5 GAMBQF(39)=-10./D(3) GAMBQF(40)= -6./D(2) GAMBQF(42)= -1.5/D(1) GAMBQF(45) = -GAMBQF(39) GAMBQF(46) = -4./D(2) GAMBQF(48) = .5/D(1) GAMBQF(51) = 15./D(4) GAMBQF(52) = 8./D(3) GAMBQF(54) = 1.5/D(2) GAMBQF(57) = -GAMBQF(51) GAMBQF(58) = 7./D(3) GAMBQF(60) = -1./D(2) GAMBQF(63) = -6./D(5) GAMBQF(64) = -3./D(4) GAMBQF(66) = -.5/D(3) GAMBQF(69) = -GAMBQF(63) GAMBQF(70) = GAMBQF(64) GAMBQF(72) = -GAMBQF(66) DO 290 I=1,48 290 GAMBQM(I) = 0. GAMBQM(1) = 1. GAMBQM(17)= 1. GAMBQM(25)= -3./D(2) GAMBQM(29) = -2./D(1) GAMBQM(31)= -GAMBQM(25) GAMBQM(35) = -1./D(1) GAMBQM(37) = 2./D(3) GAMBQM(41) = 1./D(2) GAMBQM(43) = -GAMBQM(37) GAMBQM(47) = GAMBQM(41) C C C TRANSFORM THE STIFFNESS MATRIX TO GRID POINT DEGREES OF FREEDOM C IF(ISMB(1).EQ. 0) GO TO 295 CALL GMMATS(GAMBQ(1),10,12,1, AK(1),10,10,0, D(1)) CALL GMMATS(D(1),12,10,0,GAMBQ(1),10,12,0, AK(1)) 295 IF (ISMB(2).EQ.0) GO TO 299 C REARRANGE GAMBQ FOR MASS MATRIX CALCULATIONS DO 296 I=1,72 296 D(I+48) = GAMBQ(I) DO 297 I=1,48 297 D(I) = GAMBQ(I+72) DO 298 I=1,120 298 GAMBQ(I)=D(I) CALL GMMATS(GAMBQ(1),10,12,1, AM(1),10,10,0, D(1)) CALL GMMATS (D(1),12,10,0 ,GAMBQ(1),10,12,0, AM(1)) C 299 CONTINUE C C C FORM THE TRANSFORMATION MATRIX (12X12) FROM ELEMENT TO BASIC C COORDINATES C DO 300 I=1,144 300 GAMRS(I)=0. GAMRS( 1) = COSA1 GAMRS( 3) = -SINA1 GAMRS(25) = SINA1 GAMRS(27) = COSA1 GAMRS(40) = -1. GAMRS(53) = 1. GAMRS(66) = 1. GAMRS(79) = COSA2 GAMRS(81) = -SINA2 GAMRS(103)= SINA2 GAMRS(105)= COSA2 GAMRS(118) = -1. GAMRS(131) = 1. GAMRS(144) = 1. C C C TRANSFORM THE STIFFNESS MATRIX FROM ELEMENT TO BASIC COORDINATES C IF (ISMB(1).EQ.0) GO TO 310 CALL GMMATS (GAMRS(1),12,12,1, AK(1),12,12,0, D(1)) CALL GMMATS (D(1),12,12,0, GAMRS(1),12,12,0, AK(1)) 310 IF (ISMB(2) .EQ.0) GO TO 315 CALL GMMATS (GAMRS(1),12,12,1, AM(1),12,12,0, D(1)) CALL GMMATS (D(1),12,12,0, GAMRS(1),12,12,0, AM(1)) 315 CONTINUE C C C LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL COORDINATES C FOR THE TWO GRID POINTS AND EXPAND TO (6X6) C THE TWO MATRICES WILL BE STORED IN D(1),...,D(36) AND D(37),...,D(72) C RESPECTIVELY C DO 320 I =1,72 320 D(I) = 0. DO 350 I =1,2 IF (ICS(I).EQ. 0) GO TO 350 K = 36 * (I - 1) CALL TRANSS(ICS(I),D(73)) DO 340 J=1,3 KK = K + 6 * (J-1) + 1 KL = 3 * (J-1) + 73 KJ = K + 6 * (J+2) + J + 3 D(KK ) = D(KL ) D(KK+1) = D(KL+1) D(KK+2) = D(KL+2) D(KJ) = 1. 340 CONTINUE 350 CONTINUE C C DIVIDE THE STIFFNESS MATRIX INTO 4 SUBMATRICES WHICH CAN THEN BE C TRANSFORMED FROM BASIC TO LOCAL COORDINATES THEN REINSERTED IN THE C STIFFNESS MATRIX IN INCREASING SIL ORDER C DO 500 IP =1,2 IPP = IP IF (IGP(1) .LT. IGP(2)) GO TO 400 IPP = 3 - IP 400 IR = 72 * (IPP-1) IAPP = 36* (IPP-1) +1 DO 490 JI=1,2 I= JI IF (IP .EQ. IPP ) GO TO 405 I = 3-JI C C PLACE THE APPROPRIATE SUBMATRIX INTO A (6X6) MATRIX C 405 IC = 6 *(I-1) K = 0 DO 410 II=1,6 KL = IR + 12 *(II-1) +IC DO 410 IJ =1,6 K = K+1 KK = KL+ IJ AKI(K) = AK(KK) AKM(K) = AM(KK) 410 CONTINUE C C TRANSFORM FROM BASIC TO LOCAL COORDINATES C IF (ICS(IPP) .EQ. 0) GO TO 430 IF (ISMB(1) .EQ. 0 ) GO TO 425 CALL GMMATS (D(IAPP),6,6,1, AKI(1),6,6,0, D(73)) DO 420 J=1,36 420 AKI(J)= D(J+72) 425 IF (ISMB(2) .EQ. 0) GO TO 430 CALL GMMATS (D(IAPP),6,6,1, AKM(1),6,6,0, D(73)) DO 428 J=1,36 428 AKM(I) = D(J+72) C 430 IF (ICS(I) .EQ. 0) GO TO 450 IAI = 36*(I-1) +1 IF (ISMB(1) .EQ. 0) GO TO 445 CALL GMMATS(AKI(1),6,6,0, D(IAI),6,6,0, D(73)) DO 440 J=1,36 440 AKI(J) = D(J+72) 445 IF (ISMB(2) .EQ. 0) GO TO 450 CALL GMMATS(AKM(1),6,6,0, D(IAI),6,6,0, D(73)) DO 448 J=1,36 448 AKM(J) =D(J+72) C C REINSERT INTO OVERALL STIFFNESS MATRIX ACCORDING TO INCREASING SIL C 450 DO 460 II = 1,6 DO 460 JJ = 1,6 KI = (II-1)*6 + JJ IOUT= (IP-1)* 72 + (JI-1)*6 + (II-1)*12 + JJ KOUT(IOUT) = AKI(KI) 460 MOUT(IOUT) = AKM(KI) 490 CONTINUE 500 CONTINUE C C OUTPUT THE MATRIX BY EMGOUT C DICT(2) = 1 IF (ISMB(1) .EQ.0) GO TO 550 CALL EMGOUT(KOUT,KOUT,144,1,DICT,1,IPR) C 550 IF (ISMB(2) .EQ.0) GO TO 600 CALL EMGOUT(MOUT,MOUT,144,1,DICT,2,IPR) C 600 RETURN C C C C SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE C 7770 CALL MESAGE (30,37,IDEL) 7777 NOGO = .TRUE. RETURN 7780 CALL MESAGE(30,26,IDEL) GO TO 7777 C END ================================================ FILE: mis/totape.f ================================================ SUBROUTINE TOTAPE (CALLER,Z) C C THIS ROUTINE IS CALLED ONLY BY DPLTST (CALLER=1), DPLOT (CALLER=2) C AND/OR OFP (CALLER=3) TO COPY NUMBERS OF GINO INPUT FILES TO A C SAVE FILE, INP9, FOR NEXT INTERACTIVE NASTRAN RUN (INTRA.LT.0) C THE SAVE FILE CAN BE A TAPE OR DISC. C C WRITTEN BY G.CHAN/SPERRY NOV. 1985 C C FILE STRUCTURE IN SAVE TAPE C C RECORD NO. CONTENT C ---------- ----------------------------------------------- C 1 6-WORDS (3 CALLER ID WORDS AND 3 DATE WORDS) C 96-WORD HEADING C 100-SYSTEM WORDS C 2 MARK C 3 CALLER ID, NO. OF FILES, NO. OF PARAMETERS C 4 7-WORD TRAILER OF FIRST GINO INPUT FILE C 5 TO N FIRST GINO INPUT FILE (IF FILE IS NOT PURGED) C N+1 MARK C N+2 7-WORD TRAILER OF SECOND GINO INPUT FILE C N+2 TO M SECOND GINO INPUT FILE (IF FILE IS NOT PURGED) C M+1 MARK C M+2 TO ..R REPEAT FOR ADDITION FILES, TRAILER, AND MARK C R+1 PARAMETERS IN /BLANK/ OF CURRENT CALLER C R+2 MARK C R+3 NASTRAN EOF MARK C R+4 TO LAST REPEAT 3 TO R+3 AS MANY TIMES AS NEEDED FROM THE C SAME OR A DIFFERENT CALLER AT DIFFERENT TIME C LAST+1 SYSTEM EOF MARK C C THE INTERACTIVE FLAG, INTRA, IN /SYSTEM/ WAS SET BY XCSA TO C 1 FOR PLOT ONLY, C 2 FOR OUTPUT PRINT ONLY C OR 3 FOR BOTH C IMPLICIT INTEGER (A-Z) LOGICAL DISC, TAPBIT DIMENSION Z(3), TAB(3,3), MARK(3), SUB(2), FN(2), 1 DATE(3), WHO(2) CHARACTER UFM*23, UWM*25, UIM*29 COMMON /XMSSG / UFM, UWM, UIM COMMON /BLANK / PARAM(1) COMMON /SYSTEM/ KSYSTM(100) COMMON /OUTPUT/ HEAD(96) COMMON /NAMES / RD, RDREW, WRT, WRTREW, REW, 1 NOREW EQUIVALENCE (KSYSTM( 1),IBUF), (KSYSTM(15),DATE(1)), 1 (KSYSTM( 2),NOUT), (KSYSTM(86),INTRA ), 2 (TAB(2,3) ,BLANK) DATA TAB / 4HPLTS, 4HET , 2, 1 4HPLOT, 4H , 5, 2 4HOFP , 4H , 3/ DATA FILE, NFILE, MARK / 4HINP9,23, 2*65536,11111 / DATA SUB / 4HTOTA, 4HPE / C IF (INTRA.GE.0 .OR. CALLER.LT.1 .OR. CALLER.GT.3) RETURN IF (CALLER.LE.2 .AND. INTRA.EQ.-2) RETURN IF (CALLER.EQ.3 .AND. INTRA.EQ.-1) RETURN WHO(1) = TAB(1,CALLER) WHO(2) = TAB(2,CALLER) NPARAM = TAB(3,CALLER) KORE = KORSZ(Z(1)) IBUF1 = KORE - IBUF IBUF2 = IBUF1 - IBUF KORE = IBUF2 - 1 FN(1) = FILE FN(2) = BLANK DISC = .TRUE. IF (TAPBIT(FN(1))) DISC = .FALSE. IF (.NOT.DISC .OR. INTRA.GT.0) GO TO 30 C CALL OPEN (*120,FILE,Z(IBUF2),RDREW) 10 CALL READ (*20,*20,FILE,Z(1),2,0,M) CALL SKPFIL (FILE,1) GO TO 10 20 CALL CLOSE (FILE,NOREW) 30 CALL OPEN (*120,FILE,Z(IBUF2),WRT) IF (INTRA .LT. 0) GO TO 40 DO 35 I = 1,2 IF (INTRA.NE.I .AND. INTRA.NE.3) GO TO 35 FILE = TAB(3,I+1) CALL WRITE (FILE,TAB(1,CALLER),3,0) CALL WRITE (FILE, DATE(1), 3,0) CALL WRITE (FILE, HEAD(1), 96,0) CALL WRITE (FILE,KSYSTM(1),100,1) CALL WRITE (FILE, MARK(1), 3,1) 35 CONTINUE INTRA = -INTRA FILE = TAB(3,CALLER) 40 Z(1) = CALLER Z(2) = NFILE Z(3) = NPARAM CALL WRITE (FILE,Z(1),3,1) WRITE (NOUT,50) UIM,WHO,FILE 50 FORMAT (A29,', THE FOLLOWING FILES WERE COPIED FROM DMAP ',A4,A2, 1 4H TO ,A4,5H FILE,/) DO 110 I = 1,NFILE INFIL = 100 + I CALL OPEN (*100,INFIL,Z(IBUF1),RDREW) Z(1) = INFIL CALL RDTRL (Z(1)) CALL WRITE (FILE,Z(1),7,1) IF (Z(1) .LE. 0) GO TO 80 60 CALL READ (*80,*70,INFIL,Z(1),KORE,1,M) CALL MESAGE (-8,0,SUB) 70 CALL WRITE (FILE,Z(1),M,1) GO TO 60 80 CALL CLOSE (INFIL,REW) CALL FNAME (INFIL,FN) WRITE (NOUT,90) FN 90 FORMAT (5X,2A4) 100 CALL WRITE (FILE,MARK(1),3,1) 110 CONTINUE CALL WRITE (FILE,PARAM(1),NPARAM,1) CALL WRITE (FILE,MARK(1),3,1) IF (.NOT.DISC) CALL CLOSE (FILE,NOREW) IF ( DISC) CALL CLOSE (FILE, REW) RETURN C 120 CALL MESAGE (-1,FILE,SUB) RETURN END ================================================ FILE: mis/tpztem.f ================================================ SUBROUTINE TPZTEM (TI,PG) C C THIS ROUTINE COMPUTES THE THERMAL LOAD FOR THE AXI-SYMMETRIC C TRAPEZOIDAL CROSS SECTION RING C C ECPT COMMON BLOCK IS, C C ECPT( 1) = ELEMENT ID I C ECPT( 2) = SIL A I C ECPT( 3) = SIL B I C ECPT( 4) = SIL C I C ECPT( 5) = SIL D C ECPT( 6) = MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT( 8) = MATERIAL ID I C ECPT( 9) TO ECPT (22) FOR PHI C ECPT(23) = COOR. SYS. FOR GRID POINT A I C ECPT(24) = X-COOR. OF GRID POINT A (IN BASIC COOR) R C ECPT(25) = Z-COOR. OF GRID POINT A (IN BASIC COOR) R C ECPT(26) = 0.0 C ECPT(27) = COOR. SYS. FOR GRID POINT B C ECPT(28) = X-COOR. OF GRID POINT B (IN BASIC COOR) R C ECPT(29) = Z-COOR. OF GRID POINT B (IN BASIC COOR) R C ECPT(30) = 0.0 C ECPT(31) = COOR. SYS. FOR GRID POINT C I C ECPT(32) = X-COOR. FOR GRID POINT C R C ECPT(33) = Z-COOR. FOR GRID POINT C R C ECPT(34) = 0.0 C ECPT(35) = COOR. SYS. FOR GRID POINT D I C ECPT(36) = X-COOR FOR GRID POINT D R C ECPT(37) = Z-COOR FOR GRID POINT D R C ECPT(38) = 0.0 C ECPT(39) = EL. TEMPERATURE FOR MATERIAL PROP R C INTEGER SP(36) DIMENSION TI(4),PG(1),R(4),Z(4),GABABQ(12,12),DELINT(15), 1 D(144),TEO(21),HTN(12,4),IGP(4),IECPT(39),ICS(4), 2 H(4,4),AKI(144),TL(12) COMMON /TRIMEX/ ECPT(39) C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO,GSUBE,MOSKP(9), 1 SETMAT COMMON /CONDAS/ CONSTS(5) COMMON /SYSTEM/ IBUF,IOUT EQUIVALENCE (IECPT(1),ECPT(1)),(Z(1),Z1),(Z(2),Z2), 1 (Z(3),Z3),(R(1),R1),(R(2),R2),(R(3),R3), 2 (R(4),R4),(Z(4),Z4),(GABABQ(1,1),AKI(1)), 3 (CONSTS(1),PI),(CONSTS(4),DEGRAD) DATA IDEL2 , JAX / 0, 4HAX / C C START EXECUTION C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT( 1) IGP(1) = IECPT( 2) IGP(2) = IECPT( 3) IGP(3) = IECPT( 4) IGP(4) = IECPT( 5) MATID = IECPT( 8) ICS(1) = IECPT(23) ICS(3) = IECPT(31) ICS(2) = IECPT(27) R(1) = ECPT (24) R(2) = ECPT (28) R(3) = ECPT (32) ICS(4) = IECPT(35) Z(1) = ECPT (25) D(1) = ECPT (26) Z(2) = ECPT (29) D(2) = ECPT (30) Z(3) = ECPT (33) D(3) = ECPT (34) Z(4) = ECPT (37) D(4) = ECPT (38) R(4) = ECPT (36) TEMPE = ECPT (39) DGAMA = ECPT ( 6) IDEL1 = IDEL/1000 C C COMPUTE THE ELEMENT COORDINATES C ZMIN = AMIN1(Z1,Z2,Z3,Z4) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN Z4 = Z4 - ZMIN C C FATAL IF RATIO OF RADII IS TOO LARGE FOR GUASS QUADRATURE C RMIN = AMIN1(R1,R2,R3,R4) RMAX = AMAX1(R1,R2,R3,R4) IF (RMIN .EQ. 0.0) GO TO 206 IF (RMAX/RMIN .GT. 10.) GO TO 915 C 206 CONTINUE IF (ABS(Z1-Z2) .GT. .001) GO TO 910 IF (ABS(Z3-Z4) .GT. .001) GO TO 910 D(5) = (R1+R4)/2.0 D(6) = (R2+R3)/2.0 IF (D(5) .EQ. 0.0) GO TO 210 IF (ABS((R1-R4)/D(5)) .GT. .005) GO TO 210 R1 = D(5) R4 = D(5) 210 CONTINUE IF (D(6) .EQ. 0.0) GO TO 220 IF (ABS((R2-R3)/D(6)) .GT. .005) GO TO 220 R2 = D(6) R3 = D(6) 220 CONTINUE C C FORM THE TRANSFORMMATION MATRIX(12X12) FROM FIELD COOR, TO GRID C POINT DEGREES OF FREEDOM C DO 300 I = 1, 144 300 GABABQ( I, 1) = 0.000 GABABQ( 1, 1) = 1.000 GABABQ( 2, 1) = R1 GABABQ( 3, 1) = Z1 GABABQ( 4, 1) = R1*Z1 GABABQ( 5, 2) = 1.000 GABABQ( 6, 2) = R1 GABABQ( 7, 2) = Z1 GABABQ( 8, 2) = GABABQ(4,1) GABABQ( 9, 3) = 1.000 GABABQ(10, 3) = R1 GABABQ(11, 3) = Z1 GABABQ(12, 3) = GABABQ(4,1) GABABQ( 1, 4) = 1.000 GABABQ( 2, 4) = R2 GABABQ( 3, 4) = Z2 GABABQ( 4, 4) = R2*Z2 GABABQ( 5, 5) = 1.000 GABABQ( 6, 5) = R2 GABABQ( 7, 5) = Z2 GABABQ( 8, 5) = GABABQ(4,4) GABABQ( 9, 6) = 1.000 GABABQ(10, 6) = R2 GABABQ(11, 6) = Z2 GABABQ(12, 6) = GABABQ(4,4) GABABQ( 1, 7) = 1.000 GABABQ( 2, 7) = R3 GABABQ( 3, 7) = Z3 GABABQ( 4, 7) = R3*Z3 GABABQ( 5, 8) = 1.000 GABABQ( 6, 8) = R3 GABABQ( 7, 8) = Z3 GABABQ( 8, 8) = GABABQ(4,7) GABABQ( 9, 9) = 1.000 GABABQ(10, 9) = R3 GABABQ(11, 9) = Z3 GABABQ(12, 9) = GABABQ(4,7) GABABQ( 1,10) = 1.000 GABABQ( 2,10) = R4 GABABQ( 3,10) = Z4 GABABQ( 4,10) = R4*Z4 GABABQ( 5,11) = 1.000 GABABQ( 6,11) = R4 GABABQ( 7,11) = Z4 GABABQ( 8,11) = GABABQ(4,10) GABABQ( 9,12) = 1.000 GABABQ(10,12) = R4 GABABQ(11,12) = Z4 GABABQ(12,12) = GABABQ(4,10) C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (12,GABABQ,12,D(10),0,D(11),ISING,SP) C C CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT C C DELINT(04) = (0,0) C DELINT(05) = (0,1) C DELINT(06) = (0,2) C DELINT(07) = (1,0) C DELINT(08) = (1,1) C DELINT(09) = (1,2) C DELINT(10) = (2,0) C DELINT(11) = (2,1) C DELINT(12) = (2,2) C DELINT(13) = (3,0) C DELINT(14) = (3,1) C DELINT(15) = (3,2) C I1 = 3 DO 320 I = 1,4 IP = I - 1 DO 310 J = 1,3 IQ = J - 1 I1 = I1 + 1 DELINT(I1) = RZINTS(IP,IQ,R,Z,4) 310 CONTINUE 320 CONTINUE C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE DGAMR = DGAMA*DEGRAD SINTH = SIN(DGAMR) COSTH = COS(DGAMR) SING = SINTH COSG = COSTH CALL MAT (IDEL) IF (SETMAT .EQ. 2.0) GO TO 910 C C SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES C ER = E(1) ET = E(2) EZ = E(3) VRO = ANU(1) VOZ = ANU(2) VZR = ANU(3) GOR = G(1) GZO = G(2) GRZ = G(3) VOR = VRO*ET/ER VZO = VOZ*EZ/ET VRZ = VZR*ER/EZ DELA= 1.0/(1.0 - VRO*VOR - VOZ*VZO - VZR*VRZ - VRO*VOZ*VZR - 1 VRZ*VOR*VZO) C C COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS C DO 510 I = 1,21 510 TEO( I) = 0.0 TEO( 1) = ER*(1.0 - VOZ*VZO)*DELA TEO( 2) = ER*(VZR + VZO*VOR)*DELA TEO( 3) = EZ*(1.0 - VRO*VOR)*DELA TEO( 4) = ER*(VOR + VZR*VOZ)*DELA TEO( 5) = ET*(VZO + VRO*VZR)*DELA TEO( 6) = ET*(1.0 - VRZ*VZR)*DELA TEO(10) = GRZ TEO(15) = GOR TEO(21) = GZO SING2 = SING**2 COSG2 = COSG**2 SING4 = SING**4 COSG4 = COSG**4 EE01 = TEO(1)*COSG4 + TEO(3)*SING4 + (TEO(2) + 2.0*TEO(10))*2.0 1 *SING2*COSG2 EE02 = TEO(2)*(SING4 + COSG4) + (TEO(1) + TEO(3) - 4.0*TEO(10)) 2 *SING2* COSG2 EE03 = TEO(1)*SING4 + TEO(3)*COSG4 + (2.0*TEO(2) + 4.0*TEO(10)) 3 *SING2*COSG2 EE04 = TEO(4)*COSG2 + TEO(5)*SING2 EE05 = TEO(4)*SING2 + TEO(5)*COSG2 EE06 = TEO(6) EE07 = (TEO(1)*COSG2 - TEO(3)*SING2 + (TEO(2) + 2.0*TEO(10)) 7 *(SING2 - COSG2))*SING*COSG EE08 = (TEO(1)*SING2 - TEO(3)*COSG2 + (TEO(2) + 2.0*TEO(10)) 8 *(COSG2 - SING2))*SING*COSG EE09 = SING*COSG*(TEO(4) - TEO(5)) C C COMPUTE HARMONIC COEFFICIENT C AJHO = IECPT(1) - (IECPT(1)/1000)*1000 - 1 C C COMPUTE THERMAL LOAD C A1 = EE01*ALF(1) + EE02*ALF(3) + EE04*ALF(2) A2 = EE02*ALF(1) + EE03*ALF(3) + EE05*ALF(2) A3 = EE04*ALF(1) + EE05*ALF(3) + EE06*ALF(2) A4 = EE07*ALF(1) + EE08*ALF(3) + EE09*ALF(2) C C FORM HTN MATRIX C HTN( 1,1) = A3*DELINT(4) HTN( 1,2) = A3*DELINT(7) HTN( 1,3) = A3*DELINT(5) HTN( 1,4) = A3*DELINT(8) HTN( 2,1) = (A1+A3)*DELINT(7) HTN( 2,2) = (A1+A3)*DELINT(10) HTN( 2,3) = (A1+A3)*DELINT(8) HTN( 2,4) = (A1+A3)*DELINT(11) HTN( 3,1) = A3*DELINT( 5) + A4*DELINT( 7) HTN( 3,2) = A3*DELINT( 8) + A4*DELINT(10) HTN( 3,3) = A3*DELINT( 6) + A4*DELINT( 8) HTN( 3,4) = A3*DELINT( 9) + A4*DELINT(11) HTN( 4,1) = (A1+A3)*DELINT( 8) + A4*DELINT(10) HTN( 4,2) = (A1+A3)*DELINT(11) + A4*DELINT(13) HTN( 4,3) = (A1+A3)*DELINT( 9) + A4*DELINT(11) HTN( 4,4) = (A1+A3)*DELINT(12) + A4*DELINT(14) HTN( 5,1) = AJHO*A3*DELINT(4) HTN( 5,2) = AJHO*A3*DELINT(7) HTN( 5,3) = AJHO*A3*DELINT(5) HTN( 5,4) = AJHO*A3*DELINT(8) HTN( 6,1) = AJHO*A3*DELINT(7) HTN( 6,2) = AJHO*A3*DELINT(10) HTN( 6,3) = AJHO*A3*DELINT(8) HTN( 6,4) = AJHO*A3*DELINT(11) HTN( 7,1) = AJHO*A3*DELINT(5) HTN( 7,2) = AJHO*A3*DELINT(8) HTN( 7,3) = AJHO*A3*DELINT(6) HTN( 7,4) = AJHO*A3*DELINT(9) HTN( 8,1) = AJHO*A3*DELINT(8) HTN( 8,2) = AJHO*A3*DELINT(11) HTN( 8,3) = AJHO*A3*DELINT(9) HTN( 8,4) = AJHO*A3*DELINT(12) HTN( 9,1) = 0.0 HTN( 9,2) = 0.0 HTN( 9,3) = 0.0 HTN( 9,4) = 0.0 HTN(10,1) = A4*DELINT(7) HTN(10,2) = A4*DELINT(10) HTN(10,3) = A4*DELINT(8) HTN(10,4) = A4*DELINT(11) HTN(11,1) = A2*DELINT(7) HTN(11,2) = A2*DELINT(10) HTN(11,3) = A2*DELINT(8) HTN(11,4) = A2*DELINT(11) HTN(12,1) = A2*DELINT(10) + A4*DELINT( 8) HTN(12,2) = A2*DELINT(13) + A4*DELINT(11) HTN(12,3) = A2*DELINT(11) + A4*DELINT( 9) HTN(12,4) = A2*DELINT(14) + A4*DELINT(12) C C COMPUTE LITTLE H MATRIX (INVERSE OF PARTITION OF GABABQ) C IF (ABS(R2-R1) .LT. 1.0E-16) GO TO 930 IF (ABS(R3-R4) .LT. 1.0E-16) GO TO 930 IF (ABS(Z4-Z1) .LT. 1.0E-16) GO TO 930 A = 1.0/((R2-R1)*(R3-R4)*(Z4-Z1)) R34A = A*(R3-R4) R21A = A*(R2-R1) H(1,1) = R34A*R2*Z4 H(1,2) =-R1*Z4*R34A H(1,3) = R4*Z1*R21A H(1,4) =-R3*Z1*R21A H(2,1) =-Z4*R34A H(2,2) = Z4*R34A H(2,3) =-Z1*R21A H(2,4) = Z1*R21A H(3,1) =-R2*A*(R2-R4) H(3,2) = R1*R34A H(3,3) =-R4*R21A H(3,4) = R3*R21A H(4,1) = R34A H(4,2) =-R34A H(4,3) = R21A H(4,4) =-R21A C C COMPUTE TI C DGAMR = TZERO IF (AJHO .GT. 0.0) DGAMR = 0.0 DO 680 I = 1,4 TI(I) = TI(I) - DGAMR 680 CONTINUE C C COMPUTE THE THEMAL LOAD IN FIELD COORDINATES C CALL GMMATS (H, 4, 4,1, TI(1),4,1,0, TL(1)) CALL GMMATS (HTN,4,12,1, TL(1),4,1,0, D(1) ) C C TRANSFORM THE THERMAL LOAD TO GRID POINT DEGREES OF FREEDOM C *** COORDINATE SYSTEMS NOT POSSIBLE ******* C *** WITH RINGAX. THE FOLLOWING CODE WILL IMPLEMENT IT. LRK *** C *** THE FOLLOWING GMMATS HAS D(20) INSTEAD OF TL(1) **** C CALL GMMATS (GABABQ,12,12,1, D(1),12,1,0,TL(1)) C C LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS C. DO 750 I = 1,144 C. AKI (I) = 0.0 C.750 CONTINUE C. DO 800 I = 1,4 C. CALL GBTRAN (ICS(I),IECPT(4*I+20),D) $ THIS IS WRONG ANYWAY C. K = 39*(I-1) + 1 C. DO 800 J = 1,3 C. KK = K + 12*(J-1) C. JJ = 3*(J-1) + 1 C. AKI(KK ) = D(JJ ) C. AKI(KK+1) = D(JJ+1) C. AKI(KK+2) = D(JJ+2) C.800 CONTINUE C C ADD THE ELEMENT THERMAL LOAD TO THE STRUCTURE THERMAL LOAD C C. CALL GMMATS ( AKI(1), 12, 12, 1, D(20), 12, 1, 0, TL(1) ) C DGAMR = PI IF (AJHO .EQ. 0.0) DGAMR = 2.0*PI C DO 850 I = 1,12 TL(I) = DGAMR*TL(I) 850 CONTINUE C K = 0 DO 900 I = 1,4 L = IGP(I) - 1 DO 900 J = 1,3 K = K + 1 L = L + 1 PG(L) = PG(L) + TL(K) 900 CONTINUE GO TO 950 C 910 I = 37 GO TO 925 915 I = 218 GO TO 935 925 J =-30 GO TO 945 930 I = 31 GO TO 925 935 J = 30 IF (IDEL1 .EQ. IDEL2) GO TO 950 IDEL2 = IDEL1 SP(2) = JAX 945 SP(1) = IDEL1 CALL MESAGE (J,I,SP) 950 RETURN END ================================================ FILE: mis/tquads.f ================================================ SUBROUTINE TQUADS (A,B) C ENTRY TTRIAS (A,B) C ================== C C THESE ROUTINES DO NOT EXIST IN NASTRAN C CALL MESAGE (-37,0,0) RETURN END ================================================ FILE: mis/trail.f ================================================ SUBROUTINE TRAIL C C MODULE TO INTERROGATE OR ALTER ANY VALUE OF A 6 WORD MATRIX C OR TABLE TRAILER C C DMAP CALL C C TRAILER DB / /*OPT*/WORD/S,N,VALUE $ C C INPUT DATA BLOCKS C C DB - DATA BLOCK FOR WHICH TRAILER IS TO BE ALTERED OR READ C C PARAMETERS C C OPT - BCD,INPUT. C RETURN - VALUE OF SPECIFIED TRAILER WORD IS TO C BE RETURNED C STORE - VALUE OF SPECIFIED TRAILER WORD IS TO C CHANGED C WORD - INTEGER,INPUT. DESIRED WORD OF TRAILER C VALUE - INTEGER,INPUT OR OUTPUT. LOCATION WHERE VALUED WILL C RETURNED OR FROM WHICH REPLACEMENT VALUE WILL BE C TAKEN. RETURNED NEGATIVE IF DB IS PURGED. C C FOR MATRIX DATA BLOCKS, THE TRAILER POSITIONS ARE AS FOLLOWS C C WORD 1 - NUMBER OF COLUMNS C WORD 2 - MUNBER OF ROWS C WORD 3 - MATRIX FORM C WORD 4 - TYPE OF ELEMENTS C WORD 5 - MAXIMUM NUMBER OF NON-ZERO WORDS IN ANY ONE COLUMN C WORD 6 - MATRIX DENSITY * 100 C EXTERNAL LSHIFT ,ANDF ,ORF INTEGER DB ,OPT ,WORD ,VALUE ,STORE(2) , 1 MCB(7) ,FIAT ,FIST ,RETURN(2),MODNAM(2), 2 ORF ,ANDF CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /XFIAT / FIAT(2) COMMON /XFIST / FIST(2) COMMON /BLANK / OPT(2) ,WORD ,VALUE COMMON /SYSTEM/ IBUF ,NOUT ,DUM21(21),ICFIAT DATA STORE / 4HSTOR ,4HE / DATA RETURN/ 4HRETU ,4HRN / DATA MODNAM/ 4HTRAI ,4HLER / C C GET TRAILER C DB = 101 MCB(1) = DB CALL RDTRL (MCB) IF (MCB(1) .LE. 0) GO TO 70 C C TEST ILLEGAL PARAMETER VALUES AND BRANCH ON OPT C IF (WORD.LT.1 .OR. WORD.GT.6) GO TO 100 IF (OPT(1).EQ.RETURN(1) .AND. OPT(2).EQ.RETURN(2)) GO TO 10 IF (OPT(1).EQ.STORE(1) .AND. OPT(2).EQ.STORE(2) ) GO TO 20 GO TO 300 C C RETURN OPTION C 10 VALUE = MCB(WORD+1) RETURN C C STORE OPTION C C SEARCH FIST FOR THE FILE C 20 N = FIST(2)*2 + 1 DO 30 I = 3,N,2 IF (FIST(I) .NE. DB) GO TO 30 INDEX = FIST(I+1) + 1 GO TO 40 30 CONTINUE GO TO 70 C C PACK THE TRAILER INFORMATION INTO THE REQUESTED WORD. C MAKE SURE THE NUMBER IS POSITIVE AND .LE. 16 BITS IF ICFIAT=8 C 40 IF (VALUE .LT. 0) GO TO 200 IF (ICFIAT .EQ. 11) GO TO 60 IF (VALUE .GT. 65535) GO TO 200 IW = (WORD+1)/2 + 2 IF (WORD .EQ. (WORD/2*2)) GO TO 50 C C WORD IS ODD C MASK = 65535 FIAT(INDEX+IW) = ORF(ANDF(FIAT(INDEX+IW),MASK),LSHIFT(VALUE,16)) RETURN C C WORD IS EVEN C 50 MASK = LSHIFT(65535,16) FIAT(INDEX+IW) = ORF(ANDF(FIAT(INDEX+IW),MASK),VALUE) RETURN C C ICFIAT = 11, TRAILER WORDS ARE NOT PACKED C 60 IW = 2 IF (WORD .GE. 4) IW = 4 FIAT(INDEX+IW+WORD) = VALUE RETURN C C PURGED DATA BLOCK C 70 VALUE = -1 RETURN C C ERROR CONDITIONS C 100 WRITE (NOUT,110) UFM,WORD 110 FORMAT (A23,' 2202. PARAMETER, WORD, HAS ILLEGAL VALUE OF',I9) GO TO 500 C 200 WRITE (6,210) UFM,VALUE 210 FORMAT (A23,' 2202. PARAMETER, VALUE, HAS ILLEGAL VALUE OF',I9) GO TO 500 C 300 WRITE (NOUT,310) UFM,OPT 310 FORMAT (A23,' 2202. PARAMETER, OPT, HAS ILLEGAL VALUE OF ',2A4) C 500 CALL MESAGE (-37,0,MODNAM) RETURN END ================================================ FILE: mis/traile.f ================================================ COMPLEX FUNCTION TRAILE (X,J,N,P,M,BOXL) C C ROUTINE TO FIND PHI FOR TRAILING EDGE C DIMENSION N(1) COMPLEX P(3,M) C C CHECK TO SEE IF TRAILING EDGE HAS BEEN COMPUTED C IF (N(J) .GE. 0) GO TO 300 200 TRAILE = P(1,J) RETURN C 300 XA = X/BOXL + 0.5 - FLOAT(N(J)) IF (REAL(P(2,J)) .EQ. 0.0) GO TO 200 TRAILE = P(1,J) + XA*(P(1,J) - P(2,J)) RETURN END ================================================ FILE: mis/tranem.f ================================================ SUBROUTINE TRANEM (MCSID, NGRID, R, ICOMP, U, RC) C***** C COMPUTES A STRESS TRANSFORMATION MATRIX U FOR TRIANGLES AND QUADS. C INPUTS C MCSID ID OF COORDINATE SYSTEM REFERENCED ON MAT1,2 DATA CARD. C NGRID 3 FOR TRIANGLES, 4 FOR QUADS. C R ARRAY OF BASIC LOCATIONS OF ELEMENT GRID PTS (3,NGRID). C OUTPUTS C ICOMP 1 (IF MAT X-AXIS IS USED) OR 2 (IF Y-AXIS IS USED). C U ARRAY (3X3) FOR TRANSFORMATION, STORED BY ROW. C RC BASIC LOCATION COORDINATES OF ELEMENT CENTER. C REQUIREMENTS C SUBROUTINE PRETRS MUST SET UP FOR TRANSS. SEE P.M. PAGE 3.4-66 C***** INTEGER ECPT(4),SUBNAM(2) C REAL RC(3) REAL R(9) REAL U(9) REAL RCENT(4) C EQUIVALENCE (RCENT(1), ECPT(1)) C DATA SUBNAM /4HTRAN,2HEM/ C C----------------------------------------------------------------------- C IF(NGRID .NE.3 .AND. NGRID.NE.4 ) CALL MESAGE(-61,0,SUBNAM) C***** C FIND THE UNIT NORMAL OF THE ELEMENT C***** I = 3*(NGRID-3) VN1 = (R(8)-R(2))*(R(I+9)-R(6))-(R(9)-R(3))*(R(I+8)-R(5)) VN2 = (R(9)-R(3))*(R(I+7)-R(4))-(R(7)-R(1))*(R(I+9)-R(6)) VN3 = (R(7)-R(1))*(R(I+8)-R(5))-(R(8)-R(2))*(R(I+7)-R(4)) TEMP = SQRT(VN1**2+VN2**2+VN3**2) IF(TEMP .LE. 0.0) CALL MESAGE(-61,0,SUBNAM) VN1 = VN1 / TEMP VN2 = VN2 / TEMP VN3 = VN3 / TEMP C***** C GET THE UNIT VECTORS OF MCSID AT ELEM CENTER. PUT IN U TEMPORARILY C***** GRDS = NGRID DO 20 IC=1,3 SUM = 0.0 DO 10 IG=1,NGRID K = 3*IG + IC-3 SUM = SUM +R(K) 10 CONTINUE RCENT(IC+1) = SUM / GRDS RC(IC) = RCENT(IC+1) 20 CONTINUE ECPT(1) = MCSID CALL TRANSS(ECPT,U) C***** C SELECT FIRST OR SECOND VECTOR TO PROJECT FOR ELEM-MAT X-AXIS C***** VNDOTM=VN1*U(1)+VN2*U(4)+VN3*U(7) IF( VNDOTM**2 .GT. 0.4) GO TO 30 ICOMP = 1 VM1 = U(1) VM2 = U(4) VM3 = U(7) GO TO 40 30 CONTINUE ICOMP = 2 VM1 = U(2) VM2 = U(5) VM3 = U(8) VNDOTM = VN1*VM1+VN2*VM2+VN3*VM3 40 CONTINUE C***** C FIND COSINE AND SINE OF ANGLE C***** VE1 = R(4) - R(1) VE2 = R(5) - R(2) VE3 = R(6) - R(3) C = VE1*(VM1-VNDOTM*VN1) * + VE2*(VM2-VNDOTM*VN2) * + VE3*(VM3-VNDOTM*VN3) S = VE1*(VM2*VN3-VM3*VN2) * + VE2*(VM3*VN1-VM1*VN3) * + VE3*(VM1*VN2-VM2*VN1) TEMP = SQRT(C*C+S*S) IF(TEMP .LE. 0.0) CALL MESAGE(-61,0,SUBNAM) C = C/TEMP S = S/TEMP C***** C FILL IN THE U MATRIX, ROW STORED. C***** U(1) = C*C U(4) = S*S U(7) = -C*S U(2) = U(4) U(5) = U(1) U(8) = -U(7) U(3) = 2.0*U(8) U(6) = -U(3) U(9) = U(1)-U(4) C RETURN C END ================================================ FILE: mis/tranp1.f ================================================ SUBROUTINE TRANP1 (IN,IOUT,NSCRTH,IS1,IS2,IS3,IS4,IS5,IS6,IS7,IS8) C C DRIVER OF THE OUT-OF-CORE MATRIX TRANSPOSE ROUTINE TRNSP C (DTRANP IS THE TRNSP MODULE DRIVER) C C INTEGER SCR,NAM(2) COMMON /ZZZZZZ/ CORE(1) COMMON /TRNSPX/ IA(7),IAT(7),LCORE,NSCRH,SCR(8) DATA NAM / 4HTRNS,4HP1 / C IF (NSCRTH .GT. 8) CALL MESAGE (-37,0,NAM) IA(1) = IN CALL RDTRL (IA) IAT(1) = IOUT IAT(2) = IA(3) IAT(3) = IA(2) IAT(5) = IA(5) IAT(4) = IA(4) C C REVERSE THE FORM OF THE LOWER AND UPPER TRIANGULAR MATRIX C IF (IA(4) .EQ. 4) IAT(4) = 5 IF (IA(4) .EQ. 5) IAT(4) = 4 LCORE = KORSZ(CORE) NSCRH = NSCRTH SCR(1) = IS1 SCR(2) = IS2 SCR(3) = IS3 SCR(4) = IS4 SCR(5) = IS5 SCR(6) = IS6 SCR(7) = IS7 SCR(8) = IS8 CALL TRNSP (CORE) CALL WRTTRL (IAT) RETURN END ================================================ FILE: mis/transp.f ================================================ SUBROUTINE TRANSP (IX,X,NX,FILEA,B,SR1FIL) C C TRANSP WILL DO AN INCORE TRANSPOSE OF THE UPPER TRIANGLE OF C ACTIVE ELEMENTS C (OUT-OF-CORE TRANSPOSE IS DONE BY TRNSP) C EXTERNAL LSHIFT ,RSHIFT ,ORF ,COMPLF INTEGER B ,FILEA ,SR1FIL ,TYPEA , 1 EOL ,SYSBUF ,ORF ,LSHIFT , 2 NAME(2) ,RSHIFT ,RDP ,EOR , 3 COMPLF DOUBLE PRECISION DI DIMENSION FILEA(7) ,IX(1) ,III(4) ,X(1) COMMON /MACHIN/ MACH ,IHALF C COMMON /DESCRP/ LENGTH ,MAJOR COMMON /ZNTPKX/ IA(4) ,II ,EOL ,EOR COMMON /SYSTEM/ SYSBUF COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW , 1 REW ,NOREW ,EOFNRW ,RSP , 2 RDP EQUIVALENCE (III(3),DI) DATA NAME / 4HTRAN, 4HSP / C C NUM = RSHIFT(COMPLF(0),1) IOBUF = NX - 4*SYSBUF IFILE = FILEA(1) C C POSITION INPUT FILE AT START OF THE UPPER TRIANGLE C N = B + 1 CALL SKPREC (FILEA,N) TYPEA = FILEA(5) NCOL = FILEA(2) NO = 0 ISTOR = 1 K = 1 5 CALL INTPK (*50,FILEA(1),0,TYPEA,0) 10 CALL ZNTPKI IF (II .GT. K) GO TO 40 C C PACK I AND J IN ONE WORD AND STORE IT AND THE NONZERO VALUE C IN CORE C L = ORF(LSHIFT(II,IHALF),K+B) NO = NO + 1 IX(ISTOR ) = L IX(ISTOR+ 1) = IA(1) ISTOR = ISTOR + 2 IF (TYPEA .NE. RDP) GO TO 20 IX(ISTOR) = IA(2) ISTOR = ISTOR + 1 20 IF (ISTOR+3 .GT. IOBUF) GO TO 230 IF (EOL) 50,10,50 40 IF (EOR .EQ. 0) CALL SKPREC (FILEA,1) 50 K = K + 1 IF (K+B .LE. NCOL) GO TO 5 CALL REWIND (FILEA(1)) C C ALL ELEMENTS ARE IN CORE. WRITE THEM OUT IN THE TRANSPOSED ORDER C IFILE = SR1FIL CALL OPEN (*200,SR1FIL,IX(IOBUF),WRTREW) INCR = TYPEA + 1 ISTOR = ISTOR - INCR DO 100 I = 1,NO K = NUM DO 90 J = 1,ISTOR,INCR IF (IX(J) .GT. K) GO TO 90 KK = J K = IX(J) 90 CONTINUE C C UNPACK I AND J, AND WRITE OUT I,J,AND A(I,J) C III(1) = RSHIFT(K,IHALF) III(2) = K - LSHIFT(III(1),IHALF) IX(KK) = NUM IF (INCR .EQ. 3) GO TO 95 DI = X(KK+1) GO TO 96 95 III(3) = IX(KK+1) III(4) = IX(KK+2) 96 CONTINUE CALL WRITE (SR1FIL,III(1),4,0) IF (KK .EQ. ISTOR) ISTOR = ISTOR - INCR 100 CONTINUE C C WRITE A TRAILER RECORD ON THE FILE C NOTE - FORMAL GINO FILE TRAILER IS NOT GENERATED HERE C III(1) = -1 CALL WRITE (SR1FIL,III(1),4,0) CALL CLOSE (SR1FIL,REW) RETURN C 200 NO = -1 GO TO 250 230 NO = -8 250 CALL MESAGE (NO,IFILE,NAME) RETURN END ================================================ FILE: mis/trapad.f ================================================ SUBROUTINE TRAPAD C C THIS SUBROUTINE CALCULATES THE STIFFNESS AND MASS MATRICES FOR C THE ASSYMETRIC RING ELEMENT WITH A TRAPEZOIDAL CROSS SECTION C C DOUBLE PRECISION VERSION C C ECPT FOR THE TRAPAX ELEMENT C C ECPT( 1) = ELEMENT ID I C ECPT( 2) = SIL A I C ECPT( 3) = SIL B I C ECPT( 4) = SIL C I C ECPT( 5) = SIL D C ECPT( 6) = MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT( 8) = MATERIAL ID I C ECPT( 9) TO ECPT(22) FOR PHI C ECPT(23) = COOR. SYS. FOR GRID POINT A I C ECPT(24) = X-COOR. OF GRID POINT A (IN BASIC COOR) R C ECPT(25) = Z-COOR. OF GRID POINT A (IN BASIC COOR) R C ECPT(26) = 0.0 C ECPT(27) = COOR. SYS. FOR GRID POINT B C ECPT(28) = X-COOR. OF GRID POINT B (IN BASIC COOR) R C ECPT(29) = Z-COOR. OF GRID POINT B (IN BASIC COOR) R C ECPT(30) = 0.0 C ECPT(31) = COOR. SYS. FOR GRID POINT C I C ECPT(32) = X-COOR. FOR GRID POINT C R C ECPT(33) = Z-COOR. FOR GRID POINT C R C ECPT(34) = 0.0 C ECPT(35) = COOR. SYS. FOR GRID POINT D I C ECPT(36) = X-COOR FOR GRID POINT D R C ECPT(37) = Z-COOR FOR GRID POINT D R C ECPT(38) = 0.0 C ECPT(39) = EL. TEMPERATURE FOR MATERIAL PROP R C C ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING C ...KSYS78 OR LSYS78 ... INDICATES CODING NECESSARY FOR THIS C ELEMENT*S PIEZOELECTRIC CAPABILITY C C KSYS78 = 0 ELASTIC, NON-PIEZOELECTRIC MATERIAL C KSYS78 = 1 ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL C KSYS78 = 2 ELASTIC ONLY, PIEZOELECTRIC MATERIAL C LSYS78 = .TRUE. IF KSYS78 = 0, OR 2 C LOGICAL PZMAT,LSYS78,IHEAT,NOGO INTEGER ELID,ESTID,DICT(14),IPART(4) DOUBLE PRECISION BMASS(12,12),BMBSS(144),ACURL(208),D(144), 1 AK(144),AKJ(256),AKT(27),PI,TWOPI,XQ,DEGRAD, 2 E(3),ANU(3),GB(12,12),R(4),Z(4),DELINT(12), 3 EE(63),TEO(45),SP(36),ZMIN,GAMR,COSG,SING,V,VZ, 4 VR,DEL,C2S2,C2,S2,C4,S4,DGAM,AJHO,AJJHO,RHOD, 5 AR,RZINTD,RMIN,RMAX,D1(48),D2(16),GBP(4,4), 6 ACURP1(48),ACURP2(16),AKUPH(48),AKPH2(16) DIMENSION IECPT(39),ICS(4),ECPT(20) COMMON /SYSTEM/ KSYSTM(77),KSYS78,KDUM2(2),IHEAT COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO,HEAT,ICMBAR COMMON /EMGDIC/ IDM,LDICT,NGRIDS,ELID,ESTID COMMON /EMGEST/ IDEL,IGP(4),DGAMA,GAM,MATID,IPHI(13),CSDAT(16), 1 TEMPE COMMON /CONDAD/ PI,TWOPI,XQ, DEGRAD C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ ES(3),ANUS(3),RHO,G(3),ALF(3),TZERO,GSUBE, 1 MOSKP(9),SETMAT COMMON /MATPZ / PZOUT(51) C COMMON /MATPZ / CE11,CE12,CE13,CE14,CE15,CE16,CE22,CE23,CE24, C CE25,CE26,CE33,CE34,CE35,CE36,CE44,CE45,CE46, C CE55,CE56,CE66,E11,E12,E13,E14,E15,E16,E21,E22, C E23,E24,E25,E26,E31,E32,E33,E34,E35,E36,EPS11, C EPS12,EPS13,EPS22 C EQUIVALENCE (ECPT(1),IECPT(1),IDEL),(KSYSTM(2),IOUT), 1 (BMASS(1,1),ACURL(1),BMBSS(1)),(DICT5,DICT(5)), 2 (ACURP1(1),ACURL(145)),(ACURP2(1),ACURL(193)) DATA IDEL2 , JAX / 0, 4HTRAP / C LSYS78 = .FALSE. IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 =.TRUE. IDEL1 = IDEL/1000 ISORT = 0 MASOR = 0 C C IF STIFFNESS MATRIX NOT NEEDED GO CALCULATE MASS MATRIX C DO 50 I = 1,4 ICS(I) = IECPT(4*I+19) R(I) = ECPT(4*I+20) Z(I) = ECPT(4*I+21) 50 D(I) = ECPT(4*I+22) C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C NOTE THAT INTEGRATION ROUTINE FAILS FOR R = 0.0 C DO 200 I = 1,4 IF (R(I) .LE. 0.) GO TO 7770 IF (D(I) .NE. 0.) GO TO 7770 200 CONTINUE C C COMPUTE THE ELEMENT COORDINATES C ZMIN = DMIN1(Z(1),Z(2),Z(3),Z(4)) DO 120 I = 1,4 120 Z(I) = Z(I) - ZMIN C C FATAL IF RATIO OF RADII IS TO LARGE FOR GUASS QUADRATURE C RMIN = DMIN1(R(1),R(2),R(3),R(4)) RMAX = DMAX1(R(1),R(2),R(3),R(4)) IF (RMAX/RMIN .LE. 10.D0) GO TO 206 IF (RMAX/RMIN .GT. 10.D0) GO TO 7760 C 206 IF (R(1).GE.R(2) .OR. R(4).GE.R(3) .OR. Z(4).LE.Z(1)) GO TO 7770 IF (DABS(Z(1)-Z(2)) .GT. 1.0D-3) GO TO 7770 IF (DABS(Z(3)-Z(4)) .GT. 1.0D-3) GO TO 7770 D(5) = (R(1)+R(4))/2.D0 D(6) = (R(2)+R(3))/2.D0 IF (D(5) .EQ. 0.D0) GO TO 210 IF (DABS((R(1)-R(4))/D(5)) .GT. .5D-2) GO TO 210 R(1) = D(5) R(4) = D(5) 210 CONTINUE IF (D(6) .EQ. 0.D0) GO TO 220 IF (DABS((R(2)-R(3))/D(6)) .GT. .5D-2) GO TO 220 R(2) = D(6) R(3) = D(6) 220 CONTINUE C C FORM THE TRANSFORMMATION MATRIX(12X12) FROM FIELD COOR, TO GRID C POINT DEGREES OF FREEDOM C DO 300 I = 1,144 300 GB( I, 1) = 0.D0 GB( 1, 1) = 1. GB( 2, 1) = R(1) GB( 3, 1) = Z(1) GB( 4, 1) = R(1)*Z(1) GB( 5, 2) = 1. GB( 6, 2) = R(1) GB( 7, 2) = Z(1) GB( 8, 2) = GB(4,1) GB( 9, 3) = 1. GB(10, 3) = R(1) GB(11, 3) = Z(1) GB(12, 3) = GB(4,1) GB( 1, 4) = 1. GB( 2, 4) = R(2) GB( 3, 4) = Z(2) GB( 4, 4) = R(2)* Z(2) GB( 5, 5) = 1. GB( 6, 5) = R(2) GB( 7, 5) = Z(2) GB( 8, 5) = GB(4,4) GB( 9, 6) = 1. GB(10, 6) = R(2) GB(11, 6) = Z(2) GB(12, 6) = GB(4,4) GB( 1, 7) = 1. GB( 2, 7) = R(3) GB( 3, 7) = Z(3) GB( 4, 7) = R(3)*Z(3) GB( 5, 8) = 1. GB( 6, 8) = R(3) GB( 7, 8) = Z(3) GB( 8, 8) = GB(4,7) GB( 9, 9) = 1. GB(10, 9) = R(3) GB(11, 9) = Z(3) GB(12, 9) = GB(4,7) GB( 1,10) = 1. GB( 2,10) = R(4) GB( 3,10) = Z(4) GB( 4,10) = R(4)*Z(4) GB( 5,11) = 1. GB( 6,11) = R(4) GB( 7,11) = Z(4) GB( 8,11) = GB(4,10) GB( 9,12) = 1. GB(10,12) = R(4) GB(11,12) = Z(4) GB(12,12) = GB(4,10) C IF (LSYS78) GO TO 305 GBP(1,1) = 1.D0 GBP(2,1) = R(1) GBP(3,1) = Z(1) GBP(4,1) = R(1)*Z(1) GBP(1,2) = 1.D0 GBP(2,2) = R(2) GBP(3,2) = Z(2) GBP(4,2) = R(2)*Z(2) GBP(1,3) = 1.D0 GBP(2,3) = R(3) GBP(3,3) = Z(3) GBP(4,3) = R(3)*Z(3) GBP(1,4) = 1.D0 GBP(2,4) = R(4) GBP(3,4) = Z(4) GBP(4,4) = R(4)*Z(4) 305 CONTINUE C IF (ISMB(1) .EQ. 0) GO TO 800 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERD (12,GB,12,D(10), 0,D(11), ISING,SP) IF (ISING .EQ. 2) GO TO 7790 C IF (KSYS78 .EQ. 1) CALL INVERD (4,GBP,4,D(10),0,D(11),ISING,SP) IF (ISING .EQ. 2) GO TO 7790 IF (NOGO) RETURN C C DELINT( 1) = (-1,0) C DELINT( 2) = (-1,1) C DELINT( 3) = (-1,2) C DELINT( 4) = ( 0,0) C DELINT( 5) = ( 0,1) C DELINT( 6) = ( 0,2) C DELINT( 7) = ( 1,0) C DELINT( 8) = ( 1,1) C DELINT( 9) = ( 1,2) C DELINT(10) = ( 2,0) C DELINT(11) = ( 2,1) C DELINT(12) = ( 3,0) C I1 = 0 DO 400 I = 1, 4 IP = I - 2 DO 350 J = 1,3 IQ = J - 1 I1 = I1 + 1 IF (I1 .NE. 12) GO TO 340 IP = 3 IQ = 0 340 CONTINUE DELINT(I1) = RZINTD(IP,IQ,R,Z,4) 350 CONTINUE 400 CONTINUE C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 C MATIDC = MATID MATFLG = 7 IF (KSYS78 .GT. 0) MATFLG = 9 ELTEMP = TEMPE C GAMR = DGAMA*DEGRAD COSG = DCOS(GAMR) SING = DSIN(GAMR) SINTH = SING COSTH = COSG CALL MAT (IDEL) PZMAT = .FALSE. IF (SETMAT.EQ.4. .OR. SETMAT.EQ.5.) PZMAT = .TRUE. IF (PZMAT) GO TO 410 KSAVE = KSYS78 KSYS78 = 0 LSYS78 = .TRUE. GO TO 420 410 RHO = PZOUT(46) ALF(1) = PZOUT(47) ALF(2) = PZOUT(48) ALF(3) = PZOUT(49) TZERO = PZOUT(50) GSUBE = PZOUT(51) 420 CONTINUE C IF (SETMAT .EQ. 2.) GO TO 7780 CWKBI SPR94002 5/94 DICT5 = GSUBE IF(KSYS78 .GT. 0 ) GO TO 500 DO 450 I = 1,3 ANU(I) = ANUS(I) 450 E(I) = ES(I) V = ANU(1)*E(2)/E(1) VZ = ANU(2)*E(3)/E(2) VR = ANU(3)*E(1)/E(3) DEL = 1./(1. - V*ANU(1) - VZ*ANU(2) - VR*ANU(3) - ANU(1)*ANU(2)* 1 ANU(3) - V*VZ*VR ) C C COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS C 500 CONTINUE DO 510 I = 1,45 510 TEO(I) = 0. C IF (KSYS78 .GT. 0) GO TO 520 TEO( 1) = E(1)*(1.- ANU(2)*VZ)*DEL TEO( 2) = E(1)*(ANU(3)+ VZ* V)*DEL TEO( 3) = E(3)*(1.- ANU(1)*V )*DEL TEO( 4) = E(1)*(V + ANU(3)*ANU(2))*DEL TEO( 5) = E(2)*(VZ +ANU(1)*ANU(3))*DEL TEO( 6) = E(2)*(1.- VR*ANU(3))*DEL TEO(10) = G(3) TEO(15) = G(1) TEO(21) = G(2) GO TO 530 520 CONTINUE C C PIEZOELECTRIC MATERIAL PROPERTIES STORED IN TEO(22-39) C DIELECTRIC MATERIAL PROPERTIES STORED IN TEO(40-45) C TEO(22-39) CONTAINS E-TRANSPOSE C TEO( 1) = PZOUT( 1) TEO( 2) = PZOUT( 2) TEO( 3) = PZOUT( 7) TEO( 4) = PZOUT( 3) TEO( 5) = PZOUT( 8) TEO( 6) = PZOUT(12) TEO( 7) = PZOUT( 4) TEO( 8) = PZOUT( 9) TEO( 9) = PZOUT(13) TEO(10) = PZOUT(16) TEO(11) = PZOUT( 5) TEO(12) = PZOUT(10) TEO(13) = PZOUT(14) TEO(14) = PZOUT(17) TEO(15) = PZOUT(19) TEO(16) = PZOUT( 6) TEO(17) = PZOUT(11) TEO(18) = PZOUT(15) TEO(19) = PZOUT(18) TEO(20) = PZOUT(20) TEO(21) = PZOUT(21) IF (KSYS78 .EQ. 2) GO TO 530 TEO(22) = PZOUT(22) TEO(23) = PZOUT(28) TEO(24) = PZOUT(34) TEO(25) = PZOUT(23) TEO(26) = PZOUT(29) TEO(27) = PZOUT(35) TEO(28) = PZOUT(24) TEO(29) = PZOUT(30) TEO(30) = PZOUT(36) TEO(31) = PZOUT(25) TEO(32) = PZOUT(31) TEO(33) = PZOUT(37) TEO(34) = PZOUT(26) TEO(35) = PZOUT(32) TEO(36) = PZOUT(38) TEO(37) = PZOUT(27) TEO(38) = PZOUT(33) TEO(39) = PZOUT(39) TEO(40) =-PZOUT(40) TEO(41) =-PZOUT(41) TEO(42) =-PZOUT(42) TEO(43) =-PZOUT(43) TEO(44) =-PZOUT(44) TEO(45) =-PZOUT(45) 530 CONTINUE C C MATRIX EG STORED AS FOLLOWS IN EE C 1 C 2 3 C 4 5 6 C 7 8 9 10 C 11 12 13 14 15 C 16 17 18 19 20 21 C C2 = COSG*COSG S2 = SING*SING C4 = C2*C2 S4 = S2*S2 C2S2= C2*S2 C3 = COSG*C2 S3 = SING*S2 CS2 = COSG*S2 SC2 = SING*C2 CS = COSG*SING C EE( 1) = TEO(1)*C4 + TEO(3)*S4 + 2.*C2S2*(TEO(2)+2.*TEO(10)) EE( 2) = TEO(2)*(C4+S4) + C2S2*(TEO(1)+TEO(3)-4.0D0*TEO(10)) EE( 3) = TEO(1)*S4 + 2.*C2S2*(TEO(2)+2.*TEO(10)) + TEO(3)*C4 EE( 4) = TEO(4)*C2 + TEO(5)*S2 EE( 5) = TEO(4)*S2 + TEO(5)*C2 EE( 6) = TEO(6) EE( 7) = COSG*SING*S2*(TEO(2)-TEO(3)+2.*TEO(10)) 7 + SING*COSG*C2*(TEO(1)-TEO(2)-2.*TEO(10)) EE( 8) = SING*COSG*C2*(TEO(2)-TEO(3)+2.*TEO(10)) 8 + COSG*SING*S2*(TEO(1)-TEO(2)-2.*TEO(10)) EE( 9) = SING*COSG*(TEO(4)-TEO(5)) EE(10) = C2S2*(TEO(1) - 2.*TEO(2) + TEO(3)) + TEO(10)*(C2-S2)**2 EE(11) = 0. EE(12) = 0. EE(13) = 0. EE(14) = 0. EE(15) = TEO(15)*C2 + TEO(21)*S2 EE(20) = COSG*SING*(TEO(15)-TEO(21)) EE(21) = TEO(15)*S2 + TEO(21)*C2 C C COMPUTE HARMONIC COEFFICIENT C MJHO = MOD(IECPT(1),1000) - 1 AJHO = MJHO AJJHO = AJHO*AJHO C C FORM THE ELEMENT STIFFNESS MATRIX IN FIELD SYSTEM C ACURL( 1) = (EE(6) + AJJHO*EE(15))*DELINT(1) ACURL( 2) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(4) ACURL( 3) = (EE(6) + AJJHO*EE(15))*DELINT(2) + EE(9)*DELINT(4) ACURL( 4) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(5) + 4 EE(9)*DELINT(7) ACURL( 5) = AJHO*(EE(6) + EE(15))*DELINT(1) ACURL( 6) = AJHO*EE(6)*DELINT(4) ACURL( 7) = AJHO*(EE(6) + EE(15))*DELINT(2) -AJHO*EE(20)*DELINT(4) ACURL( 8) = AJHO*EE(6)*DELINT(5) - AJHO*EE(20)*DELINT(7) ACURL( 9) = AJJHO*EE(20)*DELINT(1) ACURL(10) = DELINT(4)*(EE(9) + AJJHO*EE(20)) ACURL(11) = DELINT(4)*EE(5) + AJJHO*DELINT(2)*EE(20) ACURL(12) = DELINT(7)*EE(5) + DELINT(5)*(EE(9)+AJJHO*EE(20)) ACURL(14) = (EE(1) + 2.*EE(4) + EE(6) + AJJHO*EE(15))*DELINT(7) ACURL(15) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(5) + 5 (EE(7) + EE(9))*DELINT(7) ACURL(16) = (EE(1) + 2.*EE(4) + AJJHO *EE(15) + EE(6))*DELINT(8) 6 + (EE(7) + EE(9))*DELINT(10) ACURL(17) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(4) ACURL(18) = AJHO*(EE(4) + EE(6))*DELINT(7) ACURL(19) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(5) - AJHO*EE(20) 9 * DELINT(7) ACURL(20) = AJHO*(EE(4) + EE(6))*DELINT(8) -AJHO*EE(20)*DELINT(10) ACURL(21) = AJJHO*EE(20)*DELINT(4) ACURL(22) = DELINT(7)*(EE(7)+EE(9)+AJJHO*EE(20)) ACURL(23) = DELINT(7)*(EE(2)+EE(5))+AJJHO*DELINT(5)*EE(20) ACURL(24) = DELINT(10)*(EE(2)+EE(5))+DELINT(8)*(EE(7)+EE(9)) + 4 DELINT(8)*AJJHO*EE(20) ACURL(27) = (EE(6) + AJJHO*EE(15))*DELINT(3)+ 2.* EE(9)*DELINT(5) 7 + EE(10)*DELINT(7) ACURL(28) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(6) 8 + EE(10)*DELINT(10) + (EE(7) + 2.*EE(9))*DELINT(8) ACURL(29) = AJHO*(EE(6) + EE(15))*DELINT(2) + AJHO*EE(9)*DELINT(4) ACURL(30) = AJHO*EE(6)*DELINT(5) + AJHO*EE(9)*DELINT(7) ACURL(31) = AJHO*(EE(6) + EE(15))*DELINT(3) + AJHO*(EE(9) - 1 EE(20))*DELINT(5) ACURL(32) = AJHO*(EE(9) - EE(20))*DELINT(8) + AJHO*EE(6)*DELINT(6) ACURL(33) = AJJHO*EE(20)*DELINT(2) ACURL(34) = DELINT(7)*EE(10) + DELINT(5)*(EE(9) + AJJHO*EE(20)) ACURL(35) = DELINT(7)*EE(8) + DELINT(5)*EE(5) + AJJHO*DELINT(3)* 5 EE(20) ACURL(36) = DELINT(10)*EE(8) + DELINT(8)*(EE(5)+EE(10)) + 6 DELINT(6)*(EE(9) + AJJHO*EE(20)) ACURL(40) = (EE(1) + 2.*EE(4) + EE(6) + AJJHO *EE(15))*DELINT(9) O + (2.*EE(7) + 2.*EE(9))*DELINT(11) + EE(10)*DELINT(12) ACURL(41) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(5) 1 + AJHO*EE(9)*DELINT(7) ACURL(42) = AJHO*(EE(4) + EE(6))*DELINT(8) + AJHO*EE(9)*DELINT(10) ACURL(43) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(6) 3 + AJHO*(EE(9) - EE(20))*DELINT(8) ACURL(44) = AJHO*(EE(4) + EE(6))*DELINT(9) + AJHO*(EE(9)-EE(20)) 4 * DELINT(11) ACURL(45) = AJJHO*EE(20)*DELINT(5) ACURL(46) = DELINT(8)*(EE(7)+EE(9)+AJJHO*EE(20))+DELINT(10)*EE(10) ACURL(47) = DELINT(8)*(EE(2)+EE(5))+DELINT(10)*EE(8) + 7 AJJHO*DELINT(6)*EE(20) ACURL(48) = DELINT(11)*(EE(2)+EE(5)+EE(10)) + DELINT(12)*EE(8) + 8 DELINT(9)*(EE(7)+EE(9)+AJJHO*EE(20)) ACURL(53) = (EE(15) + AJJHO*EE(6))*DELINT(1) ACURL(54) = AJJHO*EE(6)*DELINT(4) ACURL(55) = (EE(15) + AJJHO*EE(6))*DELINT(2) - EE(20)*DELINT(4) ACURL(56) = AJJHO*EE(6)*DELINT(5) - EE(20)*DELINT(7) ACURL(57) = AJHO*EE(20)*DELINT(1) ACURL(58) = AJHO*DELINT(4)*(EE(9)+EE(20)) ACURL(59) = AJHO*(DELINT(4)*EE(5) + DELINT(2)*EE(20)) ACURL(60) = AJHO*(DELINT(7)*EE(5)+DELINT(5)*(EE(9)+EE(20))) ACURL(66) = AJJHO*EE(6)*DELINT(7) ACURL(67) = AJJHO*EE(6)*DELINT(5) ACURL(68) = AJJHO*EE(6)*DELINT(8) ACURL(69) = 0. ACURL(70) = AJHO*DELINT(7)*EE(9) ACURL(71) = AJHO*DELINT(7)*EE(5) ACURL(72) = AJHO*(DELINT(10)*EE(5)+DELINT(8)*EE(9)) ACURL(79) = (EE(15) + AJJHO*EE(6))*DELINT(3) - 2.*EE(20)*DELINT(5) 9 + EE(21)*DELINT(7) ACURL(80) = AJJHO*EE(6)*DELINT(6) - EE(20)*DELINT(8) O + EE(21)*DELINT(10) ACURL(81) = AJHO*(EE(20)*DELINT(2) - EE(21)*DELINT(4)) ACURL(82) = AJHO*(DELINT(5)*(EE(9)+EE(20))-DELINT(7)*EE(21)) ACURL(83) = AJHO*(DELINT(5)*(EE(5)-EE(21))+DELINT(3)*EE(20)) C IF (LSYS78) GO TO 540 C C PIEZOELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINATES C EE(37) = C3*TEO(22) - S3*TEO(26) + CS2*(TEO(25)+2.0*TEO(32)) - 7 SC2*(TEO(23)+2.0*TEO(31)) EE(38) = C3*TEO(23) + S3*TEO(25) + CS2*(TEO(26)-2.0*TEO(31)) + 8 SC2*(TEO(22)-2.0*TEO(32)) EE(39) = S2*TEO(27) + C2*TEO(24) - 2.0*CS*TEO(33) EE(40) = C3*TEO(25) - S3*TEO(23) + CS2*(TEO(22)-2.0*TEO(32)) - O SC2*(TEO(26)-2.0*TEO(31)) EE(41) = C3*TEO(26) + S3*TEO(22) + CS2*(TEO(23)+2.0*TEO(31)) + 1 SC2*( TEO(25)+2.0*TEO(32)) EE(42) = S2*TEO(24) + C2*TEO(27) + 2.0*CS*TEO(33) EE(43) = COSG*TEO(28) - SING*TEO(29) EE(44) = COSG*TEO(29) + SING*TEO(28) EE(45) = TEO(30) EE(46) = C3*TEO(31) + S3*TEO(32) - CS2*(TEO(23)-TEO(26)+TEO(31)) + 6 SC2*(-TEO(32)-TEO(25)+TEO(22)) EE(47) = C3*TEO(32) - S3*TEO(31) - CS2*(TEO(25)-TEO(22)+TEO(32)) + 7 SC2*(TEO(23)+TEO(31)-TEO(26)) EE(48) = (C2-S2)*TEO(33) + CS*(TEO(24)-TEO(27)) EE(49) = C2*TEO(34) + S2*TEO(38) - CS*(TEO(35)+TEO(37)) EE(50) = C2*TEO(35) - S2*TEO(37) + CS*(TEO(34)-TEO(38)) EE(51) = COSG*TEO(36) - SING*TEO(39) EE(52) = C2*TEO(37) - S2*TEO(35) - CS*(TEO(38)-TEO(34)) EE(53) = C2*TEO(38) + S2*TEO(34) + CS*(TEO(35)+TEO(37)) EE(54) = COSG*TEO(39) + SING*TEO(36) C C DIELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINTES C EE(55) = S2*TEO(43) - 2.0*CS*TEO(41) + C2*TEO(40) EE(56) = (C2-S2)*TEO(41) - CS*(TEO(43)-TEO(40)) EE(57) =-SING*TEO(44) + COSG*TEO(42) EE(59) = C2*TEO(43) + 2.0*CS*TEO(41) + S2*TEO(40) EE(60) = COSG*TEO(44) + SING*TEO(42) EE(63) = TEO(45) 540 CONTINUE ACURL( 84) = AJHO*(DELINT(8)*(EE(5)-EE(21))+DELINT(6)*(EE(9) + 1 EE(20))) ACURL( 92) = EE (21) * DELINT (12) + AJJHO * EE (6) * DELINT(9) ACURL( 93) =-AJHO * EE(21) * DELINT (7) ACURL( 94) = AJHO*(DELINT(8)*EE(9)-DELINT(10)*EE(21)) ACURL( 95) = AJHO* DELINT(8) * (EE(5)-EE(21)) ACURL( 96) = AJHO*(DELINT(11)*(EE(5)-EE(21))+DELINT(9)*EE(9)) ACURL(105) = AJJHO * EE(21) * DELINT (1) ACURL(106) = AJJHO*DELINT(4)*EE(21) ACURL(107) = AJJHO*DELINT(2)*EE(21) ACURL(108) = AJJHO*DELINT(5)*EE(21) ACURL(118) = DELINT(7)*(EE(10)+AJJHO*EE(21)) ACURL(119) = DELINT(7)*EE(8)+AJJHO*DELINT(5)*EE(21) ACURL(120) = DELINT(10)*EE(8)+DELINT(8)*(EE(10)+AJJHO*EE(21)) ACURL(131) = DELINT(7)*EE(3)+AJJHO*DELINT(3)*EE(21) ACURL(132) = DELINT(10)*EE(3)+DELINT(8)*EE(8)+AJJHO*DELINT(6)* 2 EE(21) ACURL(144) = DELINT(12)*EE(3) + 2.*DELINT (11)* EE(8) + 4 DELINT(9)*(EE(10)+AJJHO*EE(21)) C IF (LSYS78) GO TO 550 ACURL(145) = DELINT(1)*AJHO*(AJHO*EE(51)-EE(45)) ACURL(146) = DELINT(4)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45))) ACURL(147) = DELINT(2)*AJHO*(AJHO*EE(51)-EE(45))+DELINT(4)* 7 (EE(44)-AJHO*EE(50)) ACURL(148) = DELINT(5)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45))) 8 +DELINT(7)*(EE(44)-AJHO*EE(50)) ACURL(149) = DELINT(4)*AJHO*(AJHO*EE(51)-EE(45)-EE(39)) ACURL(150) = DELINT(7)*(EE(43)+EE(37)+AJHO*(AJHO*EE(51)-EE(49) O - EE(45)-EE(39))) ACURL(151) = DELINT(5)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))+DELINT(7) 1 * (EE(44)+EE(38)-AJHO*EE(50)) ACURL(152) = DELINT(8)*(EE(43)+EE(37)+AJHO*(AJHO*EE(51)-EE(49)- 2 EE(45)-EE(39)))+DELINT(10)*(EE(44)+EE(38)-AJHO* 2 EE(50)) ACURL(153) = DELINT(2)*AJHO*(AJHO*EE(51)-EE(45))-DELINT(4)*AJHO 3 * EE(48) ACURL(154) = DELINT(5)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45))) 4 + DELINT(7)*(EE(46)-AJHO*EE(48)) ACURL(155) = DELINT(3)*AJHO*(AJHO*EE(51)-EE(45))+DELINT(5)* 5 (EE(44)-AJHO*(EE(50)+EE(48)))+DELINT(7)*EE(47) ACURL(156) = DELINT(6)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45))) 6 + DELINT(8)*(EE(46)+EE(44)-AJHO*(EE(50)+EE(48)))+ 6 DELINT(10)*EE(47) ACURL(157) = DELINT(5)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))-DELINT(7) 7 * AJHO*EE(48) ACURL(158) = DELINT(8)*(EE(43)+EE(47)+AJHO*(AJHO*EE(51)-EE(49)- 8 EE(45)-EE(39)))-DELINT(10)*(EE(46)-AJHO*EE(48)) ACURL(159) = DELINT(6)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))+DELINT(8) 9 * (EE(44)+EE(38)-AJHO*(EE(50)+EE(48)))+DELINT(10)* 9 EE(47) ACURL(160) = DELINT(9)*(EE(43)+EE(37)+AJHO*(AJHO*EE(51)-EE(49)- O EE(45)-EE(39)))+DELINT(11)*(EE(46)+EE(44)+EE(38)- O AJHO*(EE(50)+EE(48)))+DELINT(12)*EE(47) ACURL(161) = DELINT(1)*AJHO*(EE(51)-AJHO*EE(45)) ACURL(162) = DELINT(4)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(45))) ACURL(163) = DELINT(2)*AJHO*(EE(51)-AJHO*EE(45))+DELINT(4)* 3 (AJHO*EE(44)-EE(50)) ACURL(164) = DELINT(5)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(51))) 4 + DELINT(7)*(AJHO*EE(44)-EE(50)) ACURL(165) =-DELINT(4)*AJJHO*EE(45) ACURL(166) = DELINT(7)*AJHO*(EE(43)-AJHO*EE(45)) ACURL(167) = DELINT(7)*AJHO*EE(44)-DELINT(5)*AJJHO*EE(45) ACURL(168) = DELINT(8)*AJHO*(EE(43)-AJHO*EE(45))+DELINT(10)* 8 AJHO*EE(44) ACURL(169) = DELINT(2)*AJHO*(EE(51)-AJHO*EE(45))-DELINT(4)*AJHO* 9 EE(54) ACURL(170) = DELINT(5)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(45))) O + DELINT(7)*(EE(52)-AJHO*EE(54)) ACURL(171) = DELINT(3)*AJHO*(EE(51)-AJHO*EE(45))+DELINT(5)* 1 (AJHO*(EE(44)-EE(54))-EE(50))+DELINT(7)*EE(53) ACURL(172) = DELINT(6)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(45))) 2 + DELINT(8)*(EE(52)-EE(50)+AJHO*(EE(44)-EE(54))) 2 + DELINT(10)*EE(53) ACURL(173) =-DELINT(5)*AJJHO*EE(45)-DELINT(7)*AJHO*EE(54) ACURL(174) = DELINT(8)*AJHO*(EE(43)-AJHO*EE(45))+DELINT(10)* 4 (EE(54)-AJHO*EE(54)) ACURL(175) =-DELINT(6)*AJJHO*EE(45)+DELINT(8)*AJHO*(EE(44)- 5 EE(54))+DELINT(10)*EE(53) ACURL(176) = DELINT(9)*AJHO*(EE(43)-AJHO*EE(45))+DELINT(11)* 6 (EE(52)+AJHO*(EE(44)-EE(54)))+DELINT(12)*EE(53) ACURL(177) = DELINT(1)*AJJHO*EE(54) ACURL(178) = DELINT(4)*AJHO*(AJHO*EE(54)-EE(52)) ACURL(179) = DELINT(2)*AJJHO*EE(54)-DELINT(4)*AJHO*EE(53) ACURL(180) = DELINT(5)*AJHO*(AJHO*EE(54)-EE(52))-DELINT(7)*AJHO O * EE(53) ACURL(181) = DELINT(4)*AJHO*(AJHO*EE(54)-EE(48)) ACURL(182) = DELINT(7)*(EE(46)+AJHO*(AJHO*EE(54)-EE(52)-EE(48))) ACURL(183) = DELINT(5)*AJHO*(AJHO*EE(54)-EE(48))+DELINT(7)* 3 (EE(47)-AJHO*EE(53)) ACURL(184) = DELINT(8)*(EE(46)+AJHO*(AJHO*EE(54)-EE(52)-EE(48))) 4 + DELINT(10)*(EE(47)-AJHO*EE(53)) ACURL(185) = DELINT(2)*AJJHO*EE(54)-DELINT(4)*AJHO*EE(42) ACURL(186) = DELINT(5)*AJHO*(AJHO*EE(54)-EE(52))+DELINT(7)*(EE(40) 6 - AJHO*EE(42)) ACURL(187) = DELINT(3)*AJJHO*EE(54)-DELINT(5)*AJHO*(EE(53)+EE(42)) 7 + DELINT(7)*EE(41) ACURL(188) = DELINT(6)*AJHO*(AJHO*EE(54)-EE(52))+DELINT(8)* 8 (EE(40)-AJHO*(EE(53)+EE(42)))+DELINT(10)*EE(41) ACURL(189) =-DELINT(5)*AJHO*EE(48)+DELINT(4)*AJJHO*EE(54) 9 - DELINT(7)*AJHO*EE(42) ACURL(190) = DELINT(8)*(EE(46)-AJHO*EE(48))+DELINT(7)*AJHO* O (AJHO*EE(54)-EE(52))+DELINT(10)*(EE(40)-AJHO*EE(42)) ACURL(191) =-DELINT(6)*AJHO*EE(48)+DELINT(5)*AJJHO*EE(54)+ 1 DELINT(8)*(EE(47)-AJHO*EE(42))-DELINT(7)*AJHO*EE(53) 1 + DELINT(10)*EE(41) ACURL(192) = DELINT(9)*(EE(46)-AJHO*EE(48))+DELINT(8)*AJHO* 2 (AJHO*EE(54)-EE(52))+DELINT(11)*(EE(47)+EE(40)- 2 AJHO*EE(42))-DELINT(10)*AJHO*EE(53)+DELINT(12)*EE(41) C ACURL(193) = DELINT(1)*AJJHO*EE(63) ACURL(194) = DELINT(4)*AJHO*(AJHO*EE(63)-EE(57)) ACURL(195) = DELINT(2)*AJJHO*EE(63)-DELINT(4)*AJHO*EE(60) ACURL(196) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))-DELINT(7)* 6 AJHO*EE(60) ACURL(197) = DELINT(4)*AJHO*(AJHO*EE(63)-EE(57)) ACURL(198) = DELINT(7)*(AJJHO*EE(63)-2.0*AJHO*EE(57)+EE(55)) ACURL(199) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(7)*(EE(56) 9 - AJHO*EE(60)) ACURL(200) = DELINT(8)*(AJJHO*EE(63)-2.0*AJHO*EE(57)+EE(55)) O + DELINT(10)*(EE(56)-AJHO*EE(60)) ACURL(201) = DELINT(2)*AJJHO*EE(63)-DELINT(4)*AJHO*EE(60) ACURL(202) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(7)* 2 (EE(56)-AJHO*EE(60)) ACURL(203) = DELINT(3)*AJJHO*EE(63)-DELINT(5)*2.0*AJHO*EE(60) 3 + DELINT(7)*EE(59) ACURL(204) = DELINT(6)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(8)* 4 (EE(56)-2.0*AJHO*EE(60))+DELINT(10)*EE(59) ACURL(205) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))-DELINT(7)* 5 AJHO*EE(60) ACURL(206) = DELINT(8)*(AJJHO*EE(63)-2.0*EE(57)+EE(55))+DELINT(10) 6 * (EE(56)-AJHO*EE(60)) ACURL(207) = DELINT(6)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(8)*(EE(56) 7 - 2.0*AJHO*EE(60))+DELINT(10)*EE(59) ACURL(208) = DELINT(9)*(AJJHO*EE(63)-2.0*AJHO*EE(57)+EE(55))+ 8 2.0*DELINT(11)*(EE(56)-AJHO*EE(60))+DELINT(12)*EE(59) 550 CONTINUE C C TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD SYSTEM C TO GRID POINT DEGREES OF FREEDOM C C EXPAND ACURL INTO (12X12) C DO 610 IB = 2,12 IC = 13*IB - 25 I = IC DO 605 J = IB,12 IC = IC + 12 I = I + 1 605 ACURL(IC) = ACURL(I) 610 CONTINUE C DGAM = PI IF (AJHO .EQ. 0.) DGAM = TWOPI DO 630 I = 1,144 ACURL(I) = ACURL(I)*DGAM 630 CONTINUE C IF (LSYS78) GO TO 638 DO 632 I = 145,208 632 ACURL(I) = ACURL(I)*DGAM 638 CONTINUE C CALL GMMATD (GB,12,12,1, ACURL, 12,12,0, D) CALL GMMATD (D ,12,12,0, GB , 12,12,0, AK) C IF (LSYS78) GO TO 639 CALL GMMATD (GB,12,12,1, ACURP1,12,4,0, D1) CALL GMMATD (D1,12,4,0, GBP,4,4,0, AKUPH) CALL GMMATD (GBP,4,4,1, ACURP2,4,4,0, D2) CALL GMMATD (D2,4,4,0, GBP,4,4,0, AKPH2) 639 CONTINUE C DO 640 I = 1,256 640 AKJ(I) = 0. C C COORDINATE SYSTEMS NOT POSSIBLE WITH RINGAX CODE BELOW COULD C IMPLEMENT IT. C ** IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR PIEZO- C ELECTRIC C I = 0 IF (I .EQ. 0) GO TO 655 C** C DO 650 I = 1,4 IF (ICS(I) .EQ. 0) GOTO 650 K = 9*(I-1) + 1 CALL TRANSD (ICS(I),D(K)) 650 CONTINUE C C SELECT THE APPROPRIATE SUB MATRIX FOR TRANSFORMATION C DO 690 IPP = 1,4 IR1 = 3*(IPP-1) + 1 IAPP = 9*(IPP-1) + 1 DO 680 I = 1,4 IC1 = 3*(I-1) + 1 IRC = (IR1-1)*12 + IC1 AKT(1) = AK(IRC ) AKT(2) = AK(IRC+ 1) AKT(3) = AK(IRC+ 2) AKT(4) = AK(IRC+12) AKT(5) = AK(IRC+13) AKT(6) = AK(IRC+14) AKT(7) = AK(IRC+24) AKT(8) = AK(IRC+25) AKT(9) = AK(IRC+26) C C MORE COORDINATE SYSTEM CHANGE CODE C TRANSFORM THE STIFFNESS SUB MATRICES AS NECESSARY C IAKT = 1 IF (ICS(IPP) .EQ. 0) GO TO 660 CALL GMMATD (D(IAPP), 3,3,1, AKT(1),3,3,0, AKT(10)) IAKT = 10 IF (ICS(I).EQ. 0 .AND. ICS(IPP).EQ.0) GO TO 680 GOR = G(1) 660 IF (ICS(I) .EQ.0) GO TO 670 IAI = 9*(I-1) + 1 CALL GMMATD (AKT(IAKT), 3,3,0, D(IAI), 3,3,0, AKT (IAKT+9)) IAKT = IAKT + 9 C C REPLACE THE TRANSFORMED MATRICES IN ORIGINAL MATRIX C 670 AK(IRC ) = AKT(IAKT ) AK(IRC+ 1) = AKT(IAKT+1) AK(IRC+ 2) = AKT(IAKT+2) AK(IRC+12) = AKT(IAKT+3) AK(IRC+13) = AKT(IAKT+4) AK(IRC+14) = AKT(IAKT+5) AK(IRC+24) = AKT(IAKT+6) AK(IRC+25) = AKT(IAKT+7) AK(IRC+26) = AKT(IAKT+8) C 680 CONTINUE 690 CONTINUE C C CREATE AN ARRAY POINTING TO THE GRIDS ACCORDING TO INCREASING C SIL VALUE 655 CONTINUE C ASSIGN 780 TO K OR M 700 CONTINUE DO 705 I = 1, 4 IPART(I) = IECPT(I+1) 705 CONTINUE I = -4 710 J = 0 DO 715 KK = 1, 4 IF (IPART(KK) .LT. J) GO TO 715 J = IPART(KK) L = KK 715 CONTINUE IPART(L) = I I = I + 1 IF (I .LT. 0) GO TO 710 DO 720 I = 1,4 IPART(I) = -IPART(I) 720 CONTINUE ISORT = 1 GO TO K OR M, (780,880) C C REARRANGE AK INTO AKJ BY INCREASING SIL VALUE C NOTE AKJ ALREADY INITALIZED TO ZERO C 780 DO 770 I = 1,4 IT = IPART(I) DO 760 J = 1,4 JT = IPART(J) DO 750 K = 1,3 DO 740 L = 1,3 IKJ = (IT-1)*64 + (JT-1)*4 + (K-1)*16 + L IF (MASOR .EQ. 1) IKJ = (IT-1)*36 + (JT-1)*3 + (K-1)*12 + L IK = (I-1)*36 + (J-1) *3 +(K-1)*12 + L AKJ(IKJ) = AK(IK) C IF (MASOR .EQ. 1) GO TO 740 IF (LSYS78) GO TO 740 IKJA = IKJ - L + 4 IKA = (IK-L)/3 + 1 IKJB = (JT-1)*64 + 48 + (IT-1)*4 + K IKJC = (IT-1)*64 + 52 + (JT-1)*4 IKC = (I-1)*4 + J AKJ(IKJA) = AKUPH(IKA) AKJ(IKJB) = AKUPH(IKA) AKJ(IKJC) = AKPH2(IKC) 740 CONTINUE 750 CONTINUE 760 CONTINUE 770 CONTINUE IF (MASOR .EQ. 1) GO TO 895 C C SET UP CONSTANTS AND OUTPUT AKJ C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 16 DICT(4) = 15 IP = IPREC CALL EMGOUT (AKJ,AKJ,256,1,DICT,1,IP) C C COME HERE TO CALCULATE THE MASS MATRIX. THIS ROUTINE WILL C CALCULATE EITHER THE CONSISTENT OR LUMPED MASS MATRICES C DEPENDING ON THE PARAMETER ICM BAR C C IF STIFFNESS MATRIX NOT NEEDED WE HAVE ALL WE NEED FOR THE C MASS MATRIX CALCULATIONS C 800 IF (ISMB(2).EQ.0 .AND. .NOT. PZMAT) KSYS78 = KSAVE IF (ISMB(2) .EQ. 0) RETURN IF (ICMBAR .LT. 0) GO TO 820 I1 = 0 DO 810 I = 1,3 IP = I DO 810 J = 1,3 IQ = J - 1 I1 = I1 + 1 DELINT(I1) = RZINTD(IP,IQ,R,Z,4) 810 CONTINUE C 820 IF (ISMB(1) .NE. 0) GO TO 830 MATIDC = MATID MATFLG = 7 IF (KSYS78 .GT. 0) MATFLG = 9 ELTEMP = TEMPE GAMR = DGAMA*DEGRAD COSTH = DCOS(GAMR) SINTH = DSIN(GAMR) CALL MAT (IDEL) IF (KSYS78 .GT. 0) RHO = PZOUT(46) IF (SETMAT .EQ. 2.) GO TO 7780 C C COMPUTE THE HARMONIC COEFFICIENT C 830 MJHO = MOD(IECPT(1),1000) - 1 AJHO = MJHO RHOD = RHO*PI IF (AJHO .EQ. 0.D0) RHOD = 2.*RHOD IF (ICMBAR .LT. 0) GO TO 900 C C COMPUTE THE CONSISTENT MASS MATRIX IN FIELD COORDINATES C DO 840 I = 1,12 DO 840 J = 1,12 840 BMASS(I,J) = 0. BMASS( 1, 1) = DELINT(1) BMASS( 1, 2) = DELINT(4) BMASS( 1, 3) = DELINT(2) BMASS( 1, 4) = DELINT(5) BMASS( 2, 2) = DELINT(7) BMASS( 2, 3) = DELINT(5) BMASS( 2, 4) = DELINT(8) BMASS( 3, 3) = DELINT(3) BMASS( 3, 4) = DELINT(6) BMASS( 4, 4) = DELINT(9) BMASS( 5, 5) = DELINT(1) BMASS( 5, 6) = DELINT(4) BMASS( 5, 7) = DELINT(2) BMASS( 5, 8) = DELINT(5) BMASS( 6, 6) = DELINT(7) BMASS( 6, 7) = DELINT(5) BMASS( 6, 8) = DELINT(8) BMASS( 7, 7) = DELINT(3) BMASS( 7, 8) = DELINT(6) BMASS( 8, 8) = DELINT(9) BMASS( 9, 9) = DELINT(1) BMASS( 9,10) = DELINT(4) BMASS( 9,11) = DELINT(2) BMASS( 9,12) = DELINT(5) BMASS(10,10) = DELINT(7) BMASS(10,11) = DELINT(5) BMASS(10,12) = DELINT(8) BMASS(11,11) = DELINT(3) BMASS(11,12) = DELINT(6) BMASS(12,12) = DELINT(9) DO 860 IB = 2,12 IC = 13*IB - 25 I = IC DO 850 J = IB,12 IC = IC + 12 I = I+ 1 850 BMBSS(I) = BMBSS(IC) 860 CONTINUE DO 870 I = 1,144 870 BMBSS(I) = BMBSS(I)*RHOD C C TRANSFORM THE ELEMENT MASS MATRIX FROM FIELD COORDINATES TO C GRID POINT DEGREES OF FREEDOM C CALL GMMATD (GB,12,12,1, BMASS,12,12,0, D) CALL GMMATD (D ,12,12,0, GB, 12,12,0,AK) DO 875 I = 1,256 875 AKJ(I) = 0. IF (ISORT .EQ. 1) GO TO 880 ASSIGN 880 TO K OR M GO TO 700 C C REARRANGE AK INTO AKJ BY INCREASING SIL VALUE C 880 MASOR = 1 GO TO 780 C 895 DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 7 CWKBD SPR94002 5/94 DICT5 = 0. IP = IPREC C CALL EMGOUT (AKJ,AKJ,144,1,DICT,2,IP) GO TO 940 C C LUMPED MASS CALCULATIONS HANDLED HERE C 900 AR = (R(1)*(Z(2)-Z(4)) + R(2)*(Z(3)-Z(1)) + R(3)*(Z(4)-Z(2)) + 1 R(4)*(Z(1)-Z(3)))/2. AKJ(1) = RHOD*(R(1)+R(2)+R(3)+R(4))/4.*AR AKJ(1) = AKJ(1)/4.0D0 DO 920 I = 2,12 920 AKJ(I) = AKJ(1) C DICT(1) = ESTID DICT(2) = 2 DICT(3) = 12 DICT(4) = 7 CWKBD SPR94002 5/94 DICT5 = 0. IP = IPREC C CALL EMGOUT (AKJ,AKJ,12,1,DICT,2,IP) 940 IF (.NOT.PZMAT) KSYS78 = KSAVE RETURN C C SET FATAL ERROR FLAG AND ALLOWING ERROR MESSAGES TO ACCUMULATE C 7760 I = 218 GO TO 7800 7770 I = 37 GO TO 7800 C C MAT2 NOT LEGAL C 7780 I = 126 GO TO 7800 7790 I = 26 7800 IF (IDEL1 .EQ. IDEL2) GO TO 7810 IDEL2 = IDEL1 ICS(1) = IDEL1 ICS(2) = JAX CALL MESAGE (30,I,ICS) 7810 NOGO = .TRUE. GO TO 940 END ================================================ FILE: mis/trapax.f ================================================ SUBROUTINE TRAPAX C C THIS SUBROUTINE CALCULATES THE STIFFNESS AND MASS MATRICES FOR THE C ASSYMETRIC RING ELEMENT WITH A TRAPEZOIDAL CROSS SECTION C C SINGLE PRECISION VERSION C C ECPT FOR THE TRAPAX ELEMENT C C ECPT ( 1) = ELEMENT ID I C ECPT ( 2) = SIL A I C ECPT ( 3) = SIL B I C ECPT ( 4) = SIL C I C ECPT ( 5) = SIL D C ECPT ( 6) = MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT ( 8) = MATERIAL ID I C ECPT ( 9) TO ECPT (22) FOR PHI C ECPT (23) = COOR. SYS. FOR GRID POINT A I C ECPT (24) = X-COOR. OF GRID POINT A (IN BASIC COOR) R C ECPT (25) = Z-COOR. OF GRID POINT A (IN BASIC COOR) R C ECPT (26) = 0.0 C ECPT (27) = COOR. SYS. FOR GRID POINT B C ECPT (28) = X-COOR. OF GRID POINT B (IN BASIC COOR) R C ECPT (29) = Z-COOR. OF GRID POINT B (IN BASIC COOR) R C ECPT (30) = 0.0 C ECPT (31) = COOR. SYS. FOR GRID POINT C I C ECPT (32) = X-COOR. FOR GRID POINT C R C ECPT (33) = Z-COOR. FOR GRID POINT C R C ECPT (34) = 0.0 C ECPT (35) = COOR. SYS. FOR GRID POINT D I C ECPT (36) = X-COOR FOR GRID POINT D R C ECPT (37) = Z-COOR FOR GRID POINT D R C ECPT (38) = 0.0 C ECPT (39) = EL. TEMPERATURE FOR MATERIAL PROP R C C ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING C ...KSYS78 OR LSYS78 ... INDICATES CODING NECESSARY FOR THIS C ELEMENT*S PIEZOELECTRIC CAPABILITY C C KSYS78 = 0 ELASTIC, NON-PIEZOELECTRIC MATERIAL C KSYS78 = 1 ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL C KSYS78 = 2 ELASTIC ONLY, PIEZOELECTRIC MATERIAL C LSYS78 = .TRUE. IF KSYS78 = 0, OR 2 C LOGICAL PZMAT,LSYS78,IHEAT,NOGO INTEGER ELID,ESTID,DICT(14),IPART(4) REAL BMASS(12,12),BMBSS(144) REAL ECPT(20),R(4),Z(4),DELINT(12),EE(63),TEO(45), 1 SP(36),GB(12,12),GBP(4,4) DIMENSION ACURL(208),D(144),AK(144),AKJ(256),ICS(4), 1 IECPT(39),D1(48),D2(16),ACURP1(48),ACURP2(16), 2 AKUPH(48),AKPH2(16) C DIMENSION AKT(27) COMMON /SYSTEM/ KSYSTM(77),KSYS78,KDUM2(2),IHEAT COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO,HEAT,ICMBAR COMMON /EMGDIC/ IDM,LDICT,NGRIDS,ELID,ESTID COMMON /EMGEST/ IDEL,IGP(4),DGAMA,GAM,MATID,IPHI(13),CSDAT(16), 1 TEMPE COMMON /CONDAS/ PI,TWOPI,XQ,DEGRAD COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO,GSUBE,MOSKP(9), 1 SETMAT COMMON /MATPZ / PZOUT(51) C COMMON /MATPZ / CE11,CE12,CE13,CE14,CE15,CE16,CE22,CE23,CE24,CE25, C CE26,CE33,CE34,CE35,CE36,CE44,CE45,CE46,CE55,CE56, C CE66,E11,E12,E13,E14,E15,E16,E21,E22,E23,E24,E25, C E26,E31,E32,E33,E34,E35,E36,EPS11,EPS12,EPS13, C EPS22, EQUIVALENCE (KSYSTM(2),IOUT),(ECPT(1),IECPT(1),IDEL), 1 (BMASS(1,1),ACURL(1),BMBSS(1)),(DICT5,DICT(5)), 2 (ACURP1(1),ACURL(145)),(ACURP2(1),ACURL(193)) DATA IDEL2 , JAX / 0, 4HTRAP / C LSYS78 = .FALSE. IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE. IDEL1 = IDEL/1000 ISORT = 0 MASOR = 0 C C IF STIFFNESS MATRIX NOT NEEDED GO CALCULATE MASS MATRIX C DO 50 I = 1,4 ICS(I) = IECPT(4*I+19) R(I) = ECPT(4*I+20) Z(I) = ECPT(4*I+21) 50 D(I) = ECPT(4*I+22) C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C NOTE THAT INTEGRATION ROUTINE FAILS FOR R = 0.0 C DO 200 I = 1,4 IF (R(I) .LE. 0.) GO TO 7770 IF (D(I) .NE. 0.) GO TO 7770 200 CONTINUE C C COMPUTE THE ELEMENT COORDINATES C ZMIN = AMIN1(Z(1),Z(2),Z(3),Z(4)) DO 120 I = 1,4 120 Z(I) = Z(I) - ZMIN C C FATAL IF RATIO OF RADII IS TO LARGE FOR GUASS QUADRATURE C RMIN = AMIN1(R(1),R(2),R(3),R(4)) RMAX = AMAX1(R(1),R(2),R(3),R(4)) IF (RMIN .EQ. 0.0) GO TO 206 IF (RMAX/RMIN .GT. 10.) GO TO 7760 C 206 IF (R(1).GE.R(2) .OR. R(4).GE.R(3) .OR. Z(4).LE.Z(1)) GO TO 7770 IF (ABS(Z(1)-Z(2)) .GT. .001) GO TO 7770 IF (ABS(Z(3)-Z(4)) .GT. .001) GO TO 7770 D(5) = (R(1)+R(4))/2. D(6) = (R(2)+R(3))/2. IF (D(5) .EQ. 0.0) GO TO 210 IF (ABS((R(1)-R(4))/D(5)) .GT. .005) GO TO 210 R(1) = D(5) R(4) = D(5) 210 CONTINUE IF (D(6) .EQ. 0.0) GO TO 220 IF (ABS((R(2)-R(3))/D(6)) .GT. .005) GO TO 220 R(2) = D(6) R(3) = D(6) 220 CONTINUE C C FORM THE TRANSFORMMATION MATRIX(12X12) FROM FIELD COOR, TO GRID C POINT DEGREES OF FREEDOM C DO 300 I = 1,144 300 GB( I, 1) = 0. GB( 1, 1) = 1. GB( 2, 1) = R(1) GB( 3, 1) = Z(1) GB( 4, 1) = R(1)*Z(1) GB( 5, 2) = 1. GB( 6, 2) = R(1) GB( 7, 2) = Z(1) GB( 8, 2) = GB(4,1) GB( 9, 3) = 1. GB(10, 3) = R(1) GB(11, 3) = Z(1) GB(12, 3) = GB(4,1) GB( 1, 4) = 1. GB( 2, 4) = R(2) GB( 3, 4) = Z(2) GB( 4, 4) = R(2)*Z(2) GB( 5, 5) = 1. GB( 6, 5) = R(2) GB( 7, 5) = Z(2) GB( 8, 5) = GB(4,4) GB( 9, 6) = 1. GB(10, 6) = R(2) GB(11, 6) = Z(2) GB(12, 6) = GB(4,4) GB( 1, 7) = 1. GB( 2, 7) = R(3) GB( 3, 7) = Z(3) GB( 4, 7) = R(3)*Z(3) GB( 5, 8) = 1. GB( 6, 8) = R(3) GB( 7, 8) = Z(3) GB( 8, 8) = GB(4,7) GB( 9, 9) = 1. GB(10, 9) = R(3) GB(11, 9) = Z(3) GB(12, 9) = GB(4,7) GB( 1,10) = 1. GB( 2,10) = R(4) GB( 3,10) = Z(4) GB( 4,10) = R(4)*Z(4) GB( 5,11) = 1. GB( 6,11) = R(4) GB( 7,11) = Z(4) GB( 8,11) = GB(4,10) GB( 9,12) = 1. GB(10,12) = R(4) GB(11,12) = Z(4) GB(12,12) = GB(4,10) C IF (LSYS78) GO TO 305 GBP(1,1) = 1.0 GBP(2,1) = R(1) GBP(3,1) = Z(1) GBP(4,1) = R(1)*Z(1) GBP(1,2) = 1.0 GBP(2,2) = R(2) GBP(3,2) = Z(2) GBP(4,2) = R(2)*Z(2) GBP(1,3) = 1.0 GBP(2,3) = R(3) GBP(3,3) = Z(3) GBP(4,3) = R(3)*Z(3) GBP(1,4) = 1.0 GBP(2,4) = R(4) GBP(3,4) = Z(4) GBP(4,4) = R(4)*Z(4) 305 CONTINUE C IF (ISMB(1) .EQ. 0) GO TO 800 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY C ISING = -1 CALL INVERS (12,GB,12,D(10),0,D(11),ISING,SP) IF (ISING .EQ. 2) GO TO 7790 C IF (KSYS78 .EQ. 1) CALL INVERS (4,GBP,4,D(10),0,D(11),ISING,SP) IF (ISING .EQ. 2) GOTO 7790 IF (NOGO) RETURN C C DELINT(01) = (-1,0) C DELINT(02) = (-1,1) C DELINT(03) = (-1,2) C DELINT(04) = ( 0,0) C DELINT(05) = ( 0,1) C DELINT(06) = ( 0,2) C DELINT(07) = ( 1,0) C DELINT(08) = ( 1,1) C DELINT(09) = ( 1,2) C DELINT(10) = ( 2,0) C DELINT(11) = ( 2,1) C DELINT(12) = ( 3,0) C I1 = 0 DO 400 I = 1,4 IP = I - 2 DO 350 J = 1,3 IQ = J - 1 I1 = I1 + 1 IF (I1 .NE. 12) GO TO 340 IP = 3 IQ = 0 340 CONTINUE DELINT(I1) = RZINTS(IP,IQ,R,Z,4) 350 CONTINUE 400 CONTINUE C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 C MATIDC = MATID MATFLG = 7 IF (KSYS78 .GT. 0) MATFLG = 9 ELTEMP = TEMPE C GAMR = DGAMA*DEGRAD COSG = COS(GAMR) SING = SIN(GAMR) SINTH = SING COSTH = COSG CALL MAT (IDEL) PZMAT = .FALSE. IF (SETMAT.EQ.4. .OR. SETMAT.EQ.5.) PZMAT = .TRUE. IF (PZMAT) GO TO 410 KSAVE = KSYS78 KSYS78 = 0 LSYS78 = .TRUE. GO TO 420 410 RHO = PZOUT(46) ALF(1) = PZOUT(47) ALF(2) = PZOUT(48) ALF(3) = PZOUT(49) TZERO = PZOUT(50) GSUBE = PZOUT(51) 420 CONTINUE C IF (SETMAT .EQ. 2.) GO TO 7780 CWKBI SPR94002 5/94 DICT5 = GSUBE IF (KSYS78 .GT. 0) GO TO 500 V = ANU(1)*E(2)/E(1) VZ = ANU(2)*E(3)/E(2) VR = ANU(3)*E(1)/E(3) DEL = 1./(1. - V*ANU(1) - VZ *ANU(2)- VR*ANU(3) - ANU(1)*ANU(2)* 1 ANU(3) - V*VZ*VR ) C C COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS C 500 CONTINUE DO 510 I = 1,45 510 TEO(I) = 0. C IF (KSYS78 .GT. 0) GO TO 520 TEO( 1) = E(1)*(1. - ANU(2)*VZ)*DEL TEO( 2) = E(1)*(ANU(3) + VZ*V)*DEL TEO( 3) = E(3)*(1. - ANU(1)*V)*DEL TEO( 4) = E(1)*(V + ANU(3)*ANU(2))*DEL TEO( 5) = E(2)*(VZ + ANU(1)*ANU(3))*DEL TEO( 6) = E(2)*(1. - VR*ANU(3))*DEL TEO(10) = G(3) TEO(15) = G(1) TEO(21) = G(2) GO TO 530 520 CONTINUE C C PIEZOELECTRIC MATERIAL PROPERTIES STORED IN TEO(22-39) C DIELECTRIC MATERIAL PROPERTIES STORED IN TEO(40-45) C TEO(22-39) CONTAINS E-TRANSPOSE C TEO( 1) = PZOUT( 1) TEO( 2) = PZOUT( 2) TEO( 3) = PZOUT( 7) TEO( 4) = PZOUT( 3) TEO( 5) = PZOUT( 8) TEO( 6) = PZOUT(12) TEO( 7) = PZOUT( 4) TEO( 8) = PZOUT( 9) TEO( 9) = PZOUT(13) TEO(10) = PZOUT(16) TEO(11) = PZOUT( 5) TEO(12) = PZOUT(10) TEO(13) = PZOUT(14) TEO(14) = PZOUT(17) TEO(15) = PZOUT(19) TEO(16) = PZOUT( 6) TEO(17) = PZOUT(11) TEO(18) = PZOUT(15) TEO(19) = PZOUT(18) TEO(20) = PZOUT(20) TEO(21) = PZOUT(21) IF (KSYS78 .EQ. 2) GO TO 530 TEO(22) = PZOUT(22) TEO(23) = PZOUT(28) TEO(24) = PZOUT(34) TEO(25) = PZOUT(23) TEO(26) = PZOUT(29) TEO(27) = PZOUT(35) TEO(28) = PZOUT(24) TEO(29) = PZOUT(30) TEO(30) = PZOUT(36) TEO(31) = PZOUT(25) TEO(32) = PZOUT(31) TEO(33) = PZOUT(37) TEO(34) = PZOUT(26) TEO(35) = PZOUT(32) TEO(36) = PZOUT(38) TEO(37) = PZOUT(27) TEO(38) = PZOUT(33) TEO(39) = PZOUT(39) TEO(40) =-PZOUT(40) TEO(41) =-PZOUT(41) TEO(42) =-PZOUT(42) TEO(43) =-PZOUT(43) TEO(44) =-PZOUT(44) TEO(45) =-PZOUT(45) 530 CONTINUE C C MATRIX EG STORED AS FOLLOWS IN EE C 1 C 2 3 C 4 5 6 C 7 8 9 10 C 11 12 13 14 15 C 16 17 18 19 20 21 C C2 = COSG*COSG S2 = SING*SING C4 = C2*C2 S4 = S2*S2 C2S2= C2*S2 C3 = COSG*C2 S3 = SING*S2 CS2 = COSG*S2 SC2 = SING*C2 CS = COSG*SING C EE( 1) = TEO(1)*C4 + TEO(3)*S4 + 2.*C2S2*(TEO(2)+2.*TEO(10)) EE( 2) = TEO(2)*(C4+S4) + C2S2*(TEO(1)+TEO(3)-4.0D0*TEO(10)) EE( 3) = TEO(1)*S4 + 2.*C2S2*(TEO(2) + 2.*TEO(10)) 3 + TEO(3)*C4 EE( 4) = TEO(4)*C2 + TEO(5)*S2 EE( 5) = TEO(4)*S2 + TEO(5)*C2 EE( 6) = TEO(6) EE( 7) = COSG*SING*S2*(TEO(2)-TEO(3)+2.*TEO(10)) 7 + SING*COSG*C2*(TEO(1)-TEO(2)-2.*TEO(10)) EE( 8) = SING*COSG*C2*(TEO(2)-TEO(3)+2.*TEO(10)) 8 + COSG*SING*S2*(TEO(1)-TEO(2)-2.*TEO(10)) EE( 9) = SING*COSG*(TEO(4) - TEO(5)) EE(10) = C2S2*(TEO(1) - 2.*TEO(2) + TEO(3)) + TEO(10)*(C2-S2)**2 EE(11) = 0. EE(12) = 0. EE(13) = 0. EE(14) = 0. EE(15) = TEO(15)*C2 + TEO(21)*S2 EE(20) = COSG*SING*(TEO(15) - TEO(21)) EE(21) = TEO(15)*S2 + TEO(21)*C2 C IF (LSYS78) GO TO 540 C C PIEZOELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINATES C EE(37) = C3*TEO(22) - S3*TEO(26) + CS2*(TEO(25)+2.0*TEO(32)) - 7 SC2*(TEO(23)+2.0*TEO(31)) EE(38) = C3*TEO(23) + S3*TEO(25) + CS2*(TEO(26)-2.0*TEO(31)) + 8 SC2*(TEO(22)-2.0*TEO(32)) EE(39) = S2*TEO(27) + C2*TEO(24) - 2.0*CS*TEO(33) EE(40) = C3*TEO(25) - S3*TEO(23) + CS2*(TEO(22)-2.0*TEO(32)) - O SC2*(TEO(26)-2.0*TEO(31)) EE(41) = C3*TEO(26) + S3*TEO(22) + CS2*(TEO(23)+2.0*TEO(31)) + 1 SC2*( TEO(25)+2.0*TEO(32)) EE(42) = S2*TEO(24) + C2*TEO(27) + 2.0*CS*TEO(33) EE(43) = COSG*TEO(28) - SING*TEO(29) EE(44) = COSG*TEO(29) + SING*TEO(28) EE(45) = TEO(30) EE(46) = C3*TEO(31) + S3*TEO(32) - CS2*(TEO(23)-TEO(26)+TEO(31)) + 6 SC2*(-TEO(32)-TEO(25)+TEO(22)) EE(47) = C3*TEO(32) - S3*TEO(31) - CS2*(TEO(25)-TEO(22)+TEO(32)) + 7 SC2*(TEO(23)+TEO(31)-TEO(26)) EE(48) = (C2-S2)*TEO(33) + CS*(TEO(24)-TEO(27)) EE(49) = C2*TEO(34) + S2*TEO(38) - CS*(TEO(35)+TEO(37)) EE(50) = C2*TEO(35) - S2*TEO(37) + CS*(TEO(34)-TEO(38)) EE(51) = COSG*TEO(36) - SING*TEO(39) EE(52) = C2*TEO(37) - S2*TEO(35) - CS*(TEO(38)-TEO(34)) EE(53) = C2*TEO(38) + S2*TEO(34) + CS*(TEO(35)+TEO(37)) EE(54) = COSG*TEO(39) + SING*TEO(36) C C DIELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINTES C EE(55) = S2*TEO(43) - 2.0*CS*TEO(41) + C2*TEO(40) EE(56) = (C2-S2)*TEO(41) - CS*(TEO(43)-TEO(40)) EE(57) =-SING*TEO(44) + COSG*TEO(42) EE(59) = C2*TEO(43) + 2.0*CS*TEO(41) + S2*TEO(40) EE(60) = COSG*TEO(44) + SING*TEO(42) EE(63) = TEO(45) 540 CONTINUE C C COMPUTE HARMONIC COEFFICIENT C MJHO = MOD(IECPT(1),1000) - 1 AJHO = MJHO AJJHO = AJHO*AJHO C C FORM THE ELEMENT STIFFNESS MATRIX IN FIELD SYSTEM C ACURL( 1) = (EE(6) + AJJHO*EE(15))*DELINT(1) ACURL( 2) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(4) ACURL( 3) = (EE(6) + AJJHO*EE(15))*DELINT(2) + EE(9)*DELINT(4) ACURL( 4) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(5) 4 + EE(9)* DELINT(7) ACURL( 5) = AJHO*(EE(6) + EE(15))*DELINT(1) ACURL( 6) = AJHO*EE(6)*DELINT(4) ACURL( 7) = AJHO*(EE(6) +EE(15))*DELINT(2) -AJHO*EE(20)*DELINT(4) ACURL( 8) = AJHO*EE(6)*DELINT(5) - AJHO*EE(20)*DELINT(7) ACURL( 9) = AJJHO*EE(20)*DELINT(1) ACURL(10) = DELINT(4)*(EE(9) + AJJHO*EE(20)) ACURL(11) = DELINT(4)*EE(5) + AJJHO*DELINT(2)*EE(20) ACURL(12) = DELINT(7)*EE(5) + DELINT(5)*(EE(9)+AJJHO*EE(20)) ACURL(14) = (EE(1) + 2.*EE(4) + EE(6) + AJJHO*EE(15))*DELINT(7) ACURL(15) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(5) + (EE(7) 5 + EE(9))*DELINT(7) ACURL(16) = (EE(1) + 2.*EE(4) + AJJHO*EE(15) + EE(6))*DELINT(8) 6 + (EE(7) + EE(9))*DELINT(10) ACURL(17) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(4) ACURL(18) = AJHO*(EE(4) + EE(6))*DELINT(7) ACURL(19) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(5) - AJHO*EE(20) 9 * DELINT(7) ACURL(20) = AJHO*(EE(4) + EE(6))*DELINT(8) -AJHO*EE(20)*DELINT(10) ACURL(21) = AJJHO*EE(20)*DELINT(4) ACURL(22) = DELINT(7)*(EE(7) + EE(9) + AJJHO*EE(20)) ACURL(23) = DELINT(7)*(EE(2) + EE(5)) + AJJHO*DELINT(5)*EE(20) ACURL(24) = DELINT(10)*(EE(2) + EE(5)) + DELINT(8)*(EE(7)+EE(9)) 4 + DELINT(8)*AJJHO*EE(20) ACURL(27) = (EE(6) + AJJHO*EE(15))*DELINT(3) + 2.*EE(9)*DELINT(5) 7 + EE(10)*DELINT(7) ACURL(28) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(6) 8 + EE(10)*DELINT(10) + (EE(7) + 2.*EE(9))*DELINT(8) ACURL(29) = AJHO*(EE(6) + EE(15))*DELINT(2) + AJHO*EE(9)*DELINT(4) ACURL(30) = AJHO*EE(6)*DELINT(5) + AJHO*EE(9)*DELINT(7) ACURL(31) = AJHO*(EE(6) + EE(15))*DELINT(3) + AJHO*(EE(9) 1 - EE(20))*DELINT(5) ACURL(32) = AJHO*(EE(9) - EE(20))*DELINT(8) + AJHO*EE(6)*DELINT(6) ACURL(33) = AJJHO*EE(20)*DELINT(2) ACURL(34) = DELINT(7)*EE(10) + DELINT(5)*(EE(9) + AJJHO*EE(20)) ACURL(35) = DELINT(7)*EE(8) + DELINT(5)*EE(5) + AJJHO*DELINT(3) 5 * EE(20) ACURL(36) = DELINT(10)*EE(8) + DELINT(8)*(EE(5) + EE(10)) 6 + DELINT(6)*(EE(9) + AJJHO*EE(20)) ACURL(40) = (EE(1) + 2.*EE(4) + EE(6) + AJJHO*EE(15))*DELINT(9) O + (2.*EE(7) + 2.*EE(9))*DELINT(11) + EE(10)*DELINT(12) ACURL(41) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(5) 1 + AJHO*EE(9)*DELINT(7) ACURL(42) = AJHO*(EE(4) + EE(6))*DELINT(8) + AJHO*EE(9)*DELINT(10) ACURL(43) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(6) 3 + AJHO*(EE(9) - EE(20))*DELINT(8) ACURL(44) = AJHO*(EE(4) + EE(6))*DELINT(9) + AJHO*(EE(9) - EE(20)) 4 * DELINT(11) ACURL(45) = AJJHO*EE(20)*DELINT(5) ACURL(46) = DELINT(8)*(EE(7) + EE(9) + AJJHO*EE(20)) + DELINT(10) 6 * EE(10) ACURL(47) = DELINT(8)*(EE(2) + EE(5)) + DELINT(10)*EE(8) 7 + AJJHO*DELINT(6)*EE(20) ACURL(48) = DELINT(11)*(EE(2) + EE(5) + EE(10)) + DELINT(12)*EE(8) 8 + DELINT(9)*(EE(7) + EE(9) + AJJHO*EE(20)) ACURL(53) = (EE(15) + AJJHO*EE(6))*DELINT(1) ACURL(54) = AJJHO*EE(6)*DELINT(4) ACURL(55) = (EE(15) + AJJHO*EE(6))*DELINT(2) - EE(20)*DELINT(4) ACURL(56) = AJJHO*EE(6)*DELINT(5) - EE(20)*DELINT(7) ACURL(57) = AJHO*EE(20)*DELINT(1) ACURL(58) = AJHO*DELINT(4)*(EE(9) + EE(20)) ACURL(59) = AJHO*(DELINT(4)*EE(5) + DELINT(2)*EE(20)) ACURL(60) = AJHO*(DELINT(7)*EE(5) + DELINT(5)*(EE(9) + EE(20))) ACURL(66) = AJJHO*EE(6)*DELINT(7) ACURL(67) = AJJHO*EE(6)*DELINT(5) ACURL(68) = AJJHO*EE(6)*DELINT(8) ACURL(69) = 0. ACURL(70) = AJHO*DELINT(7)*EE(9) ACURL(71) = AJHO*DELINT(7)*EE(5) ACURL(72) = AJHO*(DELINT(10)*EE(5) + DELINT(8)*EE(9)) ACURL(79) = (EE(15) + AJJHO*EE(6))*DELINT(3) - 2.*EE(20)*DELINT(5) 9 + EE(21)*DELINT(7) ACURL(80) = AJJHO*EE(6)*DELINT(6) - EE(20)*DELINT(8) O + EE(21)*DELINT(10) ACURL(81) = AJHO*(EE(20)*DELINT(2) - EE(21)*DELINT(4)) ACURL(82) = AJHO*(DELINT(5)*(EE(9) + EE(20)) - DELINT(7)*EE(21)) ACURL(83) = AJHO*(DELINT(5)*(EE(5) - EE(21)) + DELINT(3)*EE(20)) ACURL(84) = AJHO*(DELINT(8)*(EE(5) - EE(21)) + DELINT(6)*(EE(9) 4 + EE(20))) ACURL(92) = EE(21)*DELINT(12) + AJJHO*EE(6)*DELINT(9) ACURL(93) =-AJHO*EE(21)*DELINT(7) ACURL(94) = AJHO*(DELINT(8)*EE(9) - DELINT(10)*EE(21)) ACURL(95) = AJHO*DELINT(8)*(EE(5) - EE(21)) ACURL(96) = AJHO*(DELINT(11)*(EE(5) - EE(21)) + DELINT(9)*EE(9)) ACURL(105) = AJJHO*EE(21)*DELINT(1) ACURL(106) = AJJHO*DELINT(4)*EE(21) ACURL(107) = AJJHO*DELINT(2)*EE(21) ACURL(108) = AJJHO*DELINT(5)*EE(21) ACURL(118) = DELINT(7)*(EE(10) + AJJHO*EE(21)) ACURL(119) = DELINT(7)*EE(8) + AJJHO*DELINT(5)*EE(21) ACURL(120) = DELINT(10)*EE(8) + DELINT(8)*(EE(10) + AJJHO*EE(21)) ACURL(131) = DELINT(7)*EE(3) + AJJHO*DELINT(3)*EE(21) ACURL(132) = DELINT(10)*EE(3) + DELINT(8)*EE(8) + AJJHO*DELINT(6) 2 * EE(21) ACURL(144) = DELINT(12)*EE(3) + 2.*DELINT(11)*EE(8) + DELINT(9) 4 * (EE(10) + AJJHO*EE(21)) C IF (LSYS78) GO TO 550 ACURL(145) = DELINT(1)*AJHO*(AJHO*EE(51) - EE(45)) ACURL(146) = DELINT(4)*(EE(43) + AJHO*(AJHO*EE(51) - EE(49) 6 - EE(45))) ACURL(147) = DELINT(2)*AJHO*(AJHO*EE(51) - EE(45)) + DELINT(4) 7 * (EE(44) - AJHO*EE(50)) ACURL(148) = DELINT(5)*(EE(43) + AJHO*(AJHO*EE(51) - EE(49) 8 - EE(45))) + DELINT(7)*(EE(44) - AJHO*EE(50)) ACURL(149) = DELINT(4)*AJHO*(AJHO*EE(51) - EE(45) - EE(39)) ACURL(150) = DELINT(7)*(EE(43) + EE(37) + AJHO*(AJHO*EE(51) O - EE(49) - EE(45) - EE(39))) ACURL(151) = DELINT(5)*AJHO*(AJHO*EE(51) - EE(45) - EE(39)) 1 + DELINT(7)*(EE(44) + EE(38) - AJHO*EE(50)) ACURL(152) = DELINT(8)*(EE(43) + EE(37) + AJHO*(AJHO*EE(51) 2 - EE(49) - EE(45) - EE(39))) + DELINT(10)*(EE(44) 2 + EE(38) - AJHO*EE(50)) ACURL(153) = DELINT(2)*AJHO*(AJHO*EE(51) - EE(45)) - DELINT(4) 3 * AJHO*EE(48) ACURL(154) = DELINT(5)*(EE(43) + AJHO*(AJHO*EE(51) - EE(49) 4 - EE(45))) + DELINT(7)*(EE(46) - AJHO*EE(48)) ACURL(155) = DELINT(3)*AJHO*(AJHO*EE(51) - EE(45)) + DELINT(5) 1 * (EE(44) - AJHO*(EE(50) + EE(48))) + DELINT(7)*EE(47) ACURL(156) = DELINT(6)*(EE(43) + AJHO*(AJHO*EE(51) - EE(49) 6 - EE(45))) + DELINT(8)*(EE(46) + EE(44) - AJHO*(EE(50) 6 + EE(48))) + DELINT(10)*EE(47) ACURL(157) = DELINT(5)*AJHO*(AJHO*EE(51) - EE(45) - EE(39)) 7 - DELINT(7)*AJHO*EE(48) ACURL(158) = DELINT(8)*(EE(43) + EE(47) + AJHO*(AJHO*EE(51) 8 - EE(49) - EE(45) - EE(39))) - DELINT(10)*(EE(46) 8 - AJHO*EE(48)) ACURL(159) = DELINT(6)*AJHO*(AJHO*EE(51) - EE(45) - EE(39)) 9 + DELINT(8)*(EE(44) + EE(38) - AJHO*(EE(50) + EE(48))) 9 + DELINT(10)*EE(47) ACURL(160) = DELINT(9)*(EE(43) + EE(37) + AJHO*(AJHO*EE(51) O - EE(49) - EE(45) - EE(39))) + DELINT(11)*(EE(46) O + EE(44) + EE(38) - AJHO*(EE(50) + EE(48))) O + DELINT(12)*EE(47) ACURL(161) = DELINT(1)*AJHO*(EE(51) - AJHO*EE(45)) ACURL(162) = DELINT(4)*(-EE(49) + AJHO*(EE(51) + EE(43) 2 - AJHO*EE(45))) ACURL(163) = DELINT(2)*AJHO*(EE(51) - AJHO*EE(45)) + DELINT(4) 3 * (AJHO*EE(44) - EE(50)) ACURL(164) = DELINT(5)*(-EE(49) + AJHO*(EE(51) + EE(43) - AJHO 4 * EE(51))) + DELINT(7)*(AJHO*EE(44) - EE(50)) ACURL(165) =-DELINT(4)*AJJHO*EE(45) ACURL(166) = DELINT(7)*AJHO*(EE(43) - AJHO*EE(45)) ACURL(167) = DELINT(7)*AJHO*EE(44) - DELINT(5)*AJJHO*EE(45) ACURL(168) = DELINT(8)*AJHO*(EE(43) - AJHO*EE(45)) + DELINT(10) 8 * AJHO*EE(44) ACURL(169) = DELINT(2)*AJHO*(EE(51) - AJHO*EE(45)) - DELINT(4) 9 * AJHO*EE(54) ACURL(170) = DELINT(5)*(-EE(49) + AJHO*(EE(51) + EE(43) - AJHO O * EE(45))) + DELINT(7)*(EE(52) - AJHO*EE(54)) ACURL(171) = DELINT(3)*AJHO*(EE(51) - AJHO*EE(45)) + DELINT(5) 1 * (AJHO*(EE(44) - EE(54)) - EE(50)) + DELINT(7)*EE(53) ACURL(172) = DELINT(6)*(-EE(49) + AJHO*(EE(51) + EE(43) - AJHO 2 * EE(45))) + DELINT(8)*(EE(52) - EE(50) + AJHO 2 * (EE(44) - EE(54))) + DELINT(10)*EE(53) ACURL(173) =-DELINT(5)*AJJHO*EE(45) - DELINT(7)*AJHO*EE(54) ACURL(174) = DELINT(8)*AJHO*(EE(43) - AJHO*EE(45)) + DELINT(10) 4 * (EE(54) - AJHO*EE(54)) ACURL(175) =-DELINT(6)*AJJHO*EE(45) + DELINT(8)*AJHO*(EE(44) 5 - EE(54)) + DELINT(10)*EE(53) ACURL(176) = DELINT(9)*AJHO*(EE(43) - AJHO*EE(45)) + DELINT(11) 6 * (EE(52) + AJHO*(EE(44) - EE(54))) + DELINT(12)*EE(53) ACURL(177) = DELINT(1)*AJJHO*EE(54) ACURL(178) = DELINT(4)*AJHO*(AJHO*EE(54) - EE(52)) ACURL(179) = DELINT(2)*AJJHO*EE(54) - DELINT(4)*AJHO*EE(53) ACURL(180) = DELINT(5)*AJHO*(AJHO*EE(54) - EE(52)) - DELINT(7) O * AJHO*EE(53) ACURL(181) = DELINT(4)*AJHO*(AJHO*EE(54) - EE(48)) ACURL(182) = DELINT(7)*(EE(46) + AJHO*(AJHO*EE(54) - EE(52) 2 - EE(48))) ACURL(183) = DELINT(5)*AJHO*(AJHO*EE(54) - EE(48)) + DELINT(7) 3 * (EE(47)-AJHO*EE(53)) ACURL(184) = DELINT(8)*(EE(46) + AJHO*(AJHO*EE(54) - EE(52) 4 - EE(48))) + DELINT(10)*(EE(47) - AJHO*EE(53)) ACURL(185) = DELINT(2)*AJJHO*EE(54) - DELINT(4)*AJHO*EE(42) ACURL(186) = DELINT(5)*AJHO*(AJHO*EE(54) - EE(52)) + DELINT(7) 6 * (EE(40) - AJHO*EE(42)) ACURL(187) = DELINT(3)*AJJHO*EE(54) - DELINT(5)*AJHO*(EE(53) 7 + EE(42)) + DELINT(7)*EE(41) ACURL(188) = DELINT(6)*AJHO*(AJHO*EE(54) - EE(52)) + DELINT(8) 8 * (EE(40) - AJHO*(EE(53) + EE(42))) + DELINT(10)*EE(41) ACURL(189) =-DELINT(5)*AJHO*EE(48) + DELINT(4)*AJJHO*EE(54) 9 - DELINT(7)*AJHO*EE(42) ACURL(190) = DELINT(8)*(EE(46) - AJHO*EE(48)) + DELINT(7)*AJHO O * (AJHO*EE(54) - EE(52)) + DELINT(10)*(EE(40) O - AJHO*EE(42)) ACURL(191) =-DELINT(6)*AJHO*EE(48) + DELINT(5)*AJJHO*EE(54) 1 + DELINT(8)*(EE(47) - AJHO*EE(42)) - DELINT(7)*AJHO 1 * EE(53) + DELINT(10)*EE(41) ACURL(192) = DELINT(9)*(EE(46) - AJHO*EE(48)) + DELINT(8)*AJHO 2 * (AJHO*EE(54) - EE(52)) + DELINT(11)*(EE(47) + EE(40) 2 - AJHO*EE(42)) - DELINT(10)*AJHO*EE(53) + DELINT(12) 2 * EE(41) ACURL(193) = DELINT(1)*AJJHO*EE(63) ACURL(194) = DELINT(4)*AJHO*(AJHO*EE(63) - EE(57)) ACURL(195) = DELINT(2)*AJJHO*EE(63) - DELINT(4)*AJHO*EE(60) ACURL(196) = DELINT(5)*AJHO*(AJHO*EE(63) - EE(57)) - DELINT(7) 6 * AJHO*EE(60) ACURL(197) = DELINT(4)*AJHO*(AJHO*EE(63) - EE(57)) ACURL(198) = DELINT(7)*(AJJHO*EE(63) - 2.0*AJHO*EE(57) + EE(55)) ACURL(199) = DELINT(5)*AJHO*(AJHO*EE(63) - EE(57)) + DELINT(7) 9 * (EE(56) - AJHO*EE(60)) ACURL(200) = DELINT(8)*(AJJHO*EE(63) - 2.0*AJHO*EE(57) + EE(55)) O + DELINT(10)*(EE(56) - AJHO*EE(60)) ACURL(201) = DELINT(2)*AJJHO*EE(63) - DELINT(4)*AJHO*EE(60) ACURL(202) = DELINT(5)*AJHO*(AJHO*EE(63) - EE(57)) + DELINT(7) 2 * (EE(56) - AJHO*EE(60)) ACURL(203) = DELINT(3)*AJJHO*EE(63) - DELINT(5)*2.0*AJHO*EE(60) 3 + DELINT(7)*EE(59) ACURL(204) = DELINT(6)*AJHO*(AJHO*EE(63) - EE(57)) + DELINT(8) 4 * (EE(56) - 2.0*AJHO*EE(60)) + DELINT(10)*EE(59) ACURL(205) = DELINT(5)*AJHO*(AJHO*EE(63) - EE(57)) - DELINT(7) 5 * AJHO*EE(60) ACURL(206) = DELINT(8)*(AJJHO*EE(63) - 2.0*EE(57) + EE(55)) 6 + DELINT(10)*(EE(56) - AJHO*EE(60)) ACURL(207) = DELINT(6)*AJHO*(AJHO*EE(63) - EE(57)) + DELINT(8) 7 * (EE(56) - 2.0*AJHO*EE(60)) + DELINT(10)*EE(59) ACURL(208) = DELINT(9)*(AJJHO*EE(63) - 2.0*AJHO*EE(57) + EE(55)) 8 + 2.0*DELINT(11)*(EE(56) - AJHO*EE(60)) + DELINT(12) 8 * EE(59) 550 CONTINUE C C TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD SYSTEM C TO GRID POINT DEGREES OF FREEDOM C C EXPAND ACURL INTO (12X12) C DO 610 IB = 2,12 IC = 13*IB - 25 I = IC DO 605 J = IB,12 IC = IC + 12 I = I + 1 605 ACURL(IC) = ACURL(I) 610 CONTINUE C DGAMA = PI IF (AJHO .EQ. 0.) DGAMA = TWOPI DO 630 I = 1,144 ACURL(I) = ACURL(I)*DGAMA 630 CONTINUE C IF (LSYS78) GO TO 638 DO 632 I = 145,208 632 ACURL(I) = ACURL(I)*DGAMA 638 CONTINUE C CALL GMMATS (GB,12,12,1, ACURL,12,12,0, D ) CALL GMMATS (D ,12,12,0, GB ,12,12,0, AK) C IF (LSYS78) GO TO 639 CALL GMMATS (GB,12,12,1, ACURP1,12,4,0, D1) CALL GMMATS (D1,12,4,0, GBP,4,4,0, AKUPH) CALL GMMATS (GBP,4,4,1, ACURP2,4,4,0, D2) CALL GMMATS (D2,4,4,0, GBP,4,4,0, AKPH2) 639 CONTINUE C DO 640 I = 1,256 640 AKJ(I) = 0. GO TO 655 C C COORDINATE SYSTEMS NOT POSSIBLE WITH RINGAX CODE BELOW COULD C IMPLEMENT IT. C C IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR C PIEZOELECTRIC C C DO 650 I = 1,4 C IF (ICS(I) .EQ. 0) GOTO 650 C K = 9*(I-1) + 1 C CALL TRANSS (ICS(I),D(K)) C 650 CONTINUE C C SELECT THE APPROPRIATE SUB MATRIX FOR TRANSFORMATION C C DO 690 IPP = 1,4 C IR1 = 3*(IPP-1) + 1 C IAPP= 9*(IPP-1) + 1 C DO 680 I = 1,4 C IC1 = 3*(I-1) + 1 C IRC = (IR1-1)*12 + IC1 C AKT(1) = AK(IRC ) C AKT(2) = AK(IRC+ 1) C AKT(3) = AK(IRC+ 2) C AKT(4) = AK(IRC+12) C AKT(5) = AK(IRC+13) C AKT(6) = AK(IRC+14) C AKT(7) = AK(IRC+24) C AKT(8) = AK(IRC+25) C AKT(9) = AK(IRC+26) C C MORE COORDINATE SYSTEM CHANGE CODE C C TRANSFORM THE STIFFNESS SUB MATRICES AS NECESSARY C C IAKT = 1 C IF (ICS(IPP) .EQ. 0) GO TO 660 C CALL GMMATS (D(IAPP),3,3,1, AKT(1),3,3,0, AKT(10)) C IAKT = 10 C IF (ICS(I).EQ.0 .AND. ICS(IPP).EQ.0) GO TO 680 C 660 IF (ICS(I) .EQ.0) GO TO 670 C IAI = 9*(I-1) + 1 C CALL GMMATS (AKT(IAKT),3,3,0, D(IAI),3,3,0, AKT(IAKT+9)) C IAKT = IAKT + 9 C C REPLACE THE TRANSFORMED MATRICES IN ORIGINAL MATRIX C C 670 AK(IRC ) = AKT(IAKT ) C AK(IRC+ 1) = AKT(IAKT+1) C AK(IRC+ 2) = AKT(IAKT+2) C AK(IRC+12) = AKT(IAKT+3) C AK(IRC+13) = AKT(IAKT+4) C AK(IRC+14) = AKT(IAKT+5) C AK(IRC+24) = AKT(IAKT+6) C AK(IRC+25) = AKT(IAKT+7) C AK(IRC+26) = AKT(IAKT+8) C C 680 CONTINUE C 690 CONTINUE C C CREATE AN ARRAY POINTING TO THE GRIDS ACCORDING TO INCREASING C SIL VALUE C 655 CONTINUE C ASSIGN 780 TO K OR M 700 CONTINUE DO 705 I = 1,4 IPART(I) = IECPT(I+1) 705 CONTINUE I = -4 710 J = 0 DO 715 KK = 1,4 IF (IPART(KK) .LT. J) GO TO 715 J = IPART(KK) L = KK 715 CONTINUE IPART(L) = I I = I + 1 IF (I .LT. 0) GO TO 710 DO 720 I = 1,4 IPART(I) = -IPART(I) 720 CONTINUE ISORT = 1 GO TO K OR M, (780,880) C C REARRANGE AK INTO AKJ BY INCREASING SIL VALUE C NOTE AKJ ALREADY INITALIZED TO ZERO C 780 DO 770 I = 1,4 IT = IPART(I) DO 760 J = 1,4 JT = IPART(J) DO 750 K = 1,3 DO 740 L = 1,3 IKJ = (IT-1)*64 + (JT-1)*4 + (K-1)*16 + L IF (MASOR .EQ. 1) IKJ = (IT-1)*36 + (JT-1)*3 + (K-1)*12 + L IK = (I-1)*36 + (J-1) *3 +(K-1)*12 + L AKJ(IKJ) = AK(IK) C IF (MASOR .EQ. 1) GO TO 740 IF (LSYS78) GO TO 740 IKJA = IKJ - L + 4 IKA = (IK-L)/3 + 1 IKJB = (JT-1)*64 + 48 + (IT-1)*4 + K IKJC = (IT-1)*64 + 52 + (JT-1)*4 IKC = (I-1)*4 + J AKJ(IKJA) = AKUPH(IKA) AKJ(IKJB) = AKUPH(IKA) AKJ(IKJC) = AKPH2(IKC) 740 CONTINUE 750 CONTINUE 760 CONTINUE 770 CONTINUE IF (MASOR .EQ. 1) GO TO 895 C C SET UP CONSTANTS AND OUTPUT AKJ C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 16 DICT(4) = 15 CWKBD SPR94002 5/94 DICT5 = GSUBE IP = IPREC CALL EMGOUT (AKJ,AKJ,256,1,DICT,1,IP) C C COME HERE TO CALCULATE THE MASS MATRIX. THIS ROUTINE WILL C CALCULATE EITHER THE CONSISTENT OR LUMPED MASS MATRICES C DEPENDING ON THE PARAMETER ICM BAR C C C IF STIFFNESS MATRIX NOT NEEDED WE HAVE ALL WE NEED FOR THE C MASS MATRIX CALCULATIONS 800 IF (ISMB(2).EQ.0 .AND. .NOT.PZMAT) KSYS78 = KSAVE IF (ISMB(2) .EQ. 0) RETURN IF (ICMBAR .LT. 0) GO TO 820 I1 = 0 DO 810 I = 1,3 IP = I DO 810 J = 1,3 IQ = J - 1 I1 = I1 + 1 DELINT(I1) = RZINTS(IP,IQ,R,Z,4) 810 CONTINUE C 820 IF (ISMB(1) .NE. 0) GO TO 830 MATIDC = MATID MATFLG = 7 IF (KSYS78 .GT. 0) MATFLG = 9 ELTEMP = TEMPE GAMR = DGAMA*DEGRAD COSTH = COS(GAMR) SINTH = SIN(GAMR) CALL MAT (IDEL) IF (KSYS78 .GT. 0) RHO = PZOUT(46) IF (SETMAT .EQ. 2.) GO TO 7780 C C COMPUTE THE HARMONIC COEFFICIENT C 830 MJHO = MOD(IECPT(1),1000) - 1 AJHO = MJHO RHOD = RHO*PI IF (AJHO .EQ. 0.) RHOD = 2.*RHOD IF (ICMBAR .LT. 0) GO TO 900 C C COMPUTE THE CONSISTENT MASS MATRIX IN FIELD COORDINATES C DO 840 I = 1,144 840 BMASS( I, 1) = 0. BMASS( 1, 1) = DELINT(1) BMASS( 1, 2) = DELINT(4) BMASS( 1, 3) = DELINT(2) BMASS( 1, 4) = DELINT(5) BMASS( 2, 2) = DELINT(7) BMASS( 2, 3) = DELINT(5) BMASS( 2, 4) = DELINT(8) BMASS( 3, 3) = DELINT(3) BMASS( 3, 4) = DELINT(6) BMASS( 4, 4) = DELINT(9) BMASS( 5, 5) = DELINT(1) BMASS( 5, 6) = DELINT(4) BMASS( 5, 7) = DELINT(2) BMASS( 5, 8) = DELINT(5) BMASS( 6, 6) = DELINT(7) BMASS( 6, 7) = DELINT(5) BMASS( 6, 8) = DELINT(8) BMASS( 7, 7) = DELINT(3) BMASS( 7, 8) = DELINT(6) BMASS( 8, 8) = DELINT(9) BMASS( 9, 9) = DELINT(1) BMASS( 9,10) = DELINT(4) BMASS( 9,11) = DELINT(2) BMASS( 9,12) = DELINT(5) BMASS(10,10) = DELINT(7) BMASS(10,11) = DELINT(5) BMASS(10,12) = DELINT(8) BMASS(11,11) = DELINT(3) BMASS(11,12) = DELINT(6) BMASS(12,12) = DELINT(9) DO 860 IB = 2,12 IC = 13*IB - 25 I = IC DO 850 J = IB,12 IC = IC + 12 I = I + 1 850 BMBSS(I) = BMBSS(IC) 860 CONTINUE DO 870 I = 1,144 870 BMBSS(I) = BMBSS(I)*RHOD C C TRANSFORM THE ELEMENT MASS MATRIX FROM FIELD COORDINATES TO C GRID POINT DEGREES OF FREEDOM C CALL GMMATS (GB,12,12,1, BMASS,12,12,0, D) CALL GMMATS (D ,12,12,0, GB,12,12,0, AK) DO 875 I = 1,256 875 AKJ(I) = 0. IF (ISORT .EQ. 1) GO TO 880 ASSIGN 880 TO K OR M GO TO 700 C C REARRANGE AK INTO AKJ BY INCREASING SIL VALUE C 880 MASOR = 1 GO TO 780 C 895 DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 7 CWKBD SPR94002 5/94 DICT5 = 0. IP = IPREC C CALL EMGOUT (AKJ,AKJ,144,1,DICT,2,IP) GO TO 940 C C C LUMPED MASS CALCULATIONS HANDLED HERE C 900 AR = (R(1)*(Z(2)-Z(4)) + R(2)*(Z(3)-Z(1)) + R(3)*(Z(4)-Z(2)) + 1 R(4)*(Z(1)-Z(3)))/2. AKJ(1) = RHOD*(R(1) + R(2) + R(3) + R(4))/4.*AR AKJ(1) = AKJ(1)/4.0 DO 920 I = 2,12 920 AKJ(I) = AKJ(1) C DICT(1) = ESTID DICT(2) = 2 DICT(3) = 12 DICT(4) = 7 CWKBD SPR94002 5/94 DICT5 = 0. IP = IPREC C CALL EMGOUT (AKJ,AKJ,12,1,DICT,2,IP) 940 IF (.NOT.PZMAT) KSYS78 = KSAVE RETURN C C SET FATAL ERROR FLAG AND ALLOWING ERROR MESSAGES TO ACCUMULATE C 7760 I = 218 GO TO 7800 7770 I = 37 GO TO 7800 C C MAT2 NOT LEGAL C 7780 I = 126 GO TO 7800 7790 I = 26 7800 IF (IDEL1 .EQ. IDEL2) GO TO 7810 IDEL2 = IDEL1 ICS(1) = IDEL1 ICS(2) = JAX CALL MESAGE (30,I,ICS) 7810 NOGO = .TRUE. GO TO 940 END ================================================ FILE: mis/trbsc.f ================================================ SUBROUTINE TRBSC (IOPT,TI) C C ELEMENT THERMAL LOADING ROUTINE FOR THE BASIC BENDING TRIANGLE. C C IOPT = 0 (BASIC BENDING TRIANGLE) C IOPT = 1 (SUB-CALCULATIONS FOR SQDPL1) C IOPT = 2 (SUB-CALCULATIONS FOR STRPL1) C C C ECPT LIST FOR BASIC BENDING TRIANGLE NAME IN C THIS C ECPT ROUTINE TYPE C -------- --------------------------------- -------- ------- C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID 1 MATID1 INTEGER C ECPT( 7) = I = MOMENT OF INERTIA EYE REAL C ECPT( 8) = MATERIAL ID 2 MATID2 INTEGER C ECPT( 9) = T2 T2 REAL C ECPT(10) = NON-STRUCTURAL-MASS FMU REAL C ECPT(11) = Z1 Z11 REAL C ECPT(12) = Z2 Z22 REAL C ECPT(13) = COORD. SYSTEM ID 1 NECPT(13) INTEGER C ECPT(14) = X1 X1 REAL C ECPT(15) = Y1 Y1 REAL C ECPT(16) = Z1 Z1 REAL C ECPT(17) = COORD. SYSTEM ID 2 NECPT(17) INTEGER C ECPT(18) = X2 X2 REAL C ECPT(19) = Y2 Y2 REAL C ECPT(20) = Z2 Z2 REAL C ECPT(21) = COORD. SYSTEM ID 3 NECPT(21) INTEGER C ECPT(22) = X3 X3 REAL C ECPT(23) = Y3 Y3 REAL C ECPT(24) = Z3 Z3 REAL C ECPT(25) = ELEMENT TEMPERATURE ELTEMP REAL C INTEGER SUBSCA,SUBSCB REAL KS,TI(6),KHI,G2X2(4),J2X2(4),S(18),ECPT(25),G(9), 1 HIC(18),HIB(18),TITE(18),T(9),HINV(36) COMMON /CONDAS/ CONSTS(5) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12, 1 T SUB 0, G SUB E,SIGTEN,SIGCOM,SIGSHE, 2 G2X211, G2X212, G2X222 COMMON /SSGWRK/ A(225),XSUBB,XSUBC,YSUBC,E(18),TEMP,XBAR,AREA, 1 XCSQ,YBAR2,YCSQ,YBAR,XBSQ,PX2,XCYC,PY2,PXY2,XBAR3, 2 YBAR3,DETERM,PROD9(9),TEMP9(9),NSIZED,DUMDUM(4), 3 NPIVOT,THETA ,NSUBC,ISING,SUBSCA,SUBSCB,NERROR, 4 NBEGIN,NTYPED,XC,YC,YC2,YC3,ISUB,XC3,DUM55(1) COMMON /TRIMEX/ NECPT(1),NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU, 1 Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3, 2 X3,Y3,Z3 COMMON /SSGTRI/ D(9),KHI(5),KS(30),P(6) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (CONSTS(4),DEGRA),(G(1),A(79)),(ECPT(1),NECPT(1)), 1 (G2X2(1),A(88)),(S(1),A(55)),(TITE(1),A(127)), 2 (J2X2(1),A(92)),(T(1),A(118)),(HIB(1),A(109)), 3 (HIC(1),A(127)),(HINV(1),A(73)) C IF (IOPT .GT. 0) GO TO 30 ELTEMP = ECPT(25) C C SET UP I, J, K VECTORS STORING AS FOLLOWS AND ALSO CALCULATE C X-SUB-B, X-SUB-C, AND Y-SUB-C. C C E(11), E(14), E(17) WILL BE THE I-VECTOR. C E(12), E(15), E(18) WILL BE THE J-VECTOR. C E( 1), E( 4), E( 7) WILL BE THE K-VECTOR. C C FIND I-VECTOR = RSUBB - RUBA (NON-NORMALIZED) E(11) = X2 - X1 E(14) = Y2 - Y1 E(17) = Z2 - Z1 C C FIND LENGTH = X-SUB-B COOR. IN ELEMENT SYSTEM C XSUBB = SQRT(E(11)**2 + E(14)**2 + E(17)**2) IF (XSUBB .GT. 1.0E-06) GO TO 10 CALL MESAGE (-30,37,ECPT(1)) C C NORMALIZE I-VECTOR WITH X-SUB-B C 10 E(11) = E(11)/XSUBB E(14) = E(14)/XSUBB E(17) = E(17)/XSUBB C C TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN E(2), E(5), E(8) C E(2) = X3 - X1 E(5) = Y3 - Y1 E(8) = Z3 - Z1 C C X-SUB-C = I . (RSUBC - RSUBA), THUS C XSUBC = E(11)*E(2) + E(14)*E(5) + E(17)*E(8) C C CROSSING I-VECTOR TO (RSUBC - RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(1) = E(14)*E( 8) - E( 5)*E(17) E(4) = E( 2)*E(17) - E(11)*E( 8) E(7) = E(11)*E( 5) - E( 2)*E(14) C C FIND LENGTH = Y-SUB-C COOR. IN ELEMENT SYSTEM C YSUBC = SQRT(E(1)**2 + E(4)**2 + E(7)**2) IF (YSUBC .GT. 1.0E-06) GO TO 20 CALL MESAGE (-30,37,ECPT(1)) C C NORMALIZE K-VECTOR WITH Y-SUB-C C 20 E(1) = E(1)/YSUBC E(4) = E(4)/YSUBC E(7) = E(7)/YSUBC C C NOW HAVING I AND K VECTORS GET -- J = K CROSS I C E(12) = E( 4)*E(17) - E(14)*E( 7) E(15) = E(11)*E( 7) - E( 1)*E(17) E(18) = E( 1)*E(14) - E(11)*E( 4) C C NORMALIZE J-VECTOR FOR COMPUTER EXACTNESS JUST TO MAKE SURE C TEMP = SQRT(E(12)**2 + E(15)**2 + E(18)**2) E(12) = E(12)/TEMP E(15) = E(15)/TEMP E(18) = E(18)/TEMP E( 2) = 0.0 E( 3) = 0.0 E( 5) = 0.0 E( 6) = 0.0 E( 8) = 0.0 E( 9) = 0.0 E(10) = 0.0 E(13) = 0.0 E(16) = 0.0 C C CONVERT ANGLE FROM DEGREES TO RADIANS STORING IN THETA. C THETA = ANGLE*DEGRA SINTH = SIN(THETA) COSTH = COS(THETA) IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 C C SETTING UP G MATRIX C 30 MATID = MATID1 INFLAG = 2 CALL MAT (ECPT(1)) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT) C DO 50 I = 1,9 50 D(I) = G(I)*EYE C XBAR = (XSUBB + XSUBC)/3.0 YBAR = YSUBC/3.0 XC = XBAR YC = YBAR C C FORMING K 5X6 C S C XC3 = 3.0*XC YC3 = 3.0*YC YC2 = 2.0*YC KS( 1) = D(1) KS( 2) = D(3) KS( 3) = D(2) KS( 4) = D(1)*XC3 KS( 5) = D(2)*XC + D(3)*YC2 KS( 6) = D(2)*YC3 KS( 7) = D(2) KS( 8) = D(6) KS( 9) = D(5) KS(10) = D(2)*XC3 KS(11) = D(5)*XC + D(6)*YC2 KS(12) = D(5)*YC3 KS(13) = D(3) KS(14) = D(9) KS(15) = D(6) KS(16) = D(3)*XC3 KS(17) = D(6)*XC + D(9)*YC2 KS(18) = D(6)*YC3 C C ROWS 4 AND 5 C KS(19) = 0.0 KS(20) = 0.0 KS(21) = 0.0 KS(22) =-D(1)*6.0 KS(23) =-D(2)*2.0 - D(9)*4.0 KS(24) =-D(6)*6.0 KS(25) = 0.0 KS(26) = 0.0 KS(27) = 0.0 KS(28) =-D(3)*6.0 KS(29) =-D(6)*6.0 KS(30) =-D(5)*6.0 C C MULTIPLY FIRST 3 ROWS BY 2.0 C DO 70 I = 1,18 70 KS(I) = KS(I)*2.0 C C MULTIPLY KS BY THE AREA C AREA = XSUBB*YSUBC/2.0 DO 75 I = 1,30 75 KS(I) = KS(I)*AREA C XCSQ = XSUBC**2 YCSQ = YSUBC**2 XBSQ = XSUBB**2 XCYC = XSUBC*YSUBC C C F1LL (HBAR) MATRIX STORING AT A(37) THRU A(72) C DO 90 I = 37,72 90 A(I) = 0.0 C A(37) = XBSQ A(40) = XBSQ*XSUBB A(44) = XSUBB A(49) =-2.0*XSUBB A(52) =-3.0*XBSQ A(55) = XCSQ A(56) = XCYC A(57) = YCSQ A(58) = XCSQ*XSUBC A(59) = YCSQ*XSUBC A(60) = YCSQ*YSUBC A(62) = XSUBC A(63) = YSUBC*2.0 A(65) = XCYC *2.0 A(66) = YCSQ *3.0 A(67) =-2.0*XSUBC A(68) =-YSUBC A(70) =-3.0*XCSQ A(71) =-YCSQ C IF (T2 .EQ. 0.0) GO TO 110 C C ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 500 C ARE NECESSARY IF T2 IS NON-ZERO. C C GET THE G2X2 MATRIX C MATID = MATID2 INFLAG = 3 CALL MAT (ECPT(1)) IF (G2X211.EQ.0.0 .AND. G2X212.EQ.0.0 .AND. G2X222.EQ.0.0) 1 GO TO 110 G2X2(1) = G2X211*T2 G2X2(2) = G2X212*T2 G2X2(3) = G2X212*T2 G2X2(4) = G2X222*T2 C DETERM = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2) J2X2(1) = G2X2(4)/DETERM J2X2(2) =-G2X2(2)/DETERM J2X2(3) =-G2X2(3)/DETERM J2X2(4) = G2X2(1)/DETERM C C (H ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE C YQ RIGHT PORTION IS COMPUTED AND USED AS A (2X3). THE LEFT C 2X3 PORTION IS NULL. THE RIGHT PORTION WILL BE STORED AT C A(73) THRU A(78) UNTIL NOT NEEDED ANY FURTHER. C TEMP = 2.0*D(2) + 4.0*D(9) A(73) = -6.0*(J2X2(1)*D(1) + J2X2(2)*D(3)) A(74) = -J2X2(1)*TEMP + 6.0*J2X2(2)*D(6) A(75) = -6.0*(J2X2(1)*D(6) + J2X2(2)*D(5)) A(76) = -6.0*(J2X2(2)*D(1) + J2X2(4)*D(3)) A(77) = -J2X2(2)*TEMP + 6.0*J2X2(4)*D(6) A(78) = -6.0*(J2X2(2)*D(6) + J2X2(4)*D(5)) C C THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H ) MATRIX (2X3) C YQ C C ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF(H )(H ) C UY YQ C THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW. C NO (H ) MATRIX IS ACTUALLY COMPUTED DIRECTLY. C UY C C THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17. C DO 100 I = 1,3 A(I+39) = A(I+39) + XSUBB*A(I+72) 100 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75) C C THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO C 110 CONTINUE C C AT THIS POINT INVERT (H) WHICH IS STORED AT A(37) THRU A(72) C STORE INVERSE BACK IN A(37) THRU A(72) C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (6,A(37),6,A(73),0,DETERM,ISING,A(79)) C C CHECK TO SEE IF H WAS SINGULAR C IF (ISING .NE. 2) GO TO 120 C C ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION. C CALL MESAGE (-30,38,ECPT(1)) C C SAVE H-INVERSE IF TRI-PLATE IS CALLING C 120 DO 130 I = 1,36 130 HINV(I) = A(I+36) C C FILL S-MATRIX, EQUIVALENCED TO A(55). (6X3) C S( 1) = 1.0 S( 2) = 0.0 S( 3) =-XSUBB S( 4) = 0.0 S( 5) = 1.0 S( 6) = 0.0 S( 7) = 0.0 S( 8) = 0.0 S( 9) = 1.0 S(10) = 1.0 S(11) = YSUBC S(12) =-XSUBC S(13) = 0.0 S(14) = 1.0 S(15) = 0.0 S(16) = 0.0 S(17) = 0.0 S(18) = 1.0 C C COMPUTE S , S , AND S NO TRANSFORMATIONS C A B C C C -1 C S = - K H S , S = K H , S = K H C A S B S IB C S IC C C S COMPUTATION. C A C CALL GMMATS (HINV(1),6,6,0, S(1),6,3,0, A(16)) C C DIVIDE H-INVERSE INTO A LEFT 6X3 AND RIGHT 6X3 PARTITION. C I = 0 J =-6 150 J = J + 6 K = 0 160 K = K + 1 I = I + 1 ISUB = J + K HIB(I) = HINV(ISUB ) HIC(I) = HINV(ISUB + 3) IF (K .LT. 3) GO TO 160 IF (J .LT. 30) GO TO 150 C CALL GMMATS (KS(1),5,6,0, A(16),6,3,0, A(1)) C C MULTIPLY S SUB A BY (-1) C DO 170 I = 1,15 170 A(I) = -A(I) C C S COMPUTATION C B C CALL GMMATS (KS,5,6,0, HIB,6,3,0, A(16)) C C S COMPUTATION C C C CALL GMMATS (KS,5,6,0, HIC,6,3,0, A(31)) C C RETURN IF TRI OR QUAD PLATE ROUTINE IS CALLING. C IF (IOPT .GT. 0) RETURN C C FILL KHI (5 X 1) C E C C THE N FACTOR = 1.0 FOR THE BASIC BENDING TRIANGLE. C CALL SSGKHI (TI(1),TI(1),1.0) C C T C TRANSFORM S , S , S WITH E T , I = A,B,C C A B C I C C T T C COMPUTING TRANSPOSE OF E T = T E C I I C DO 200 I=1,3 C C POINTER TO S MATRIX = 15 * I - 14 C I C C CHECK TO SEE IF T IS NEEDED. C IF (NECPT(4*I+9)) 180,190,180 180 CALL GBTRAN (NECPT(4*I+9),NECPT(4*I+10),T(1)) CALL GMMATS (T,3,3,1, E( 1),3,3,0, TITE( 1)) CALL GMMATS (T,3,3,1, E(10),3,3,0, TITE(10)) CALL GMMATS (A(15*I-14),5,3,0, TITE,6,3,1, KS(1)) GO TO 195 190 CALL GMMATS (A(15*I-14),5,3,0, E,6,3,1, KS(1)) C C COMPUTE THE LOAD VECTOR AND INSERT IT INTO OPEN CORE C 195 CALL GMMATS (KS(1),5,6,1, KHI(1),5,1,0, P(1)) K = NGRID(I) - 1 DO 196 J = 1,6 K = K + 1 196 Z(K) = Z(K) + P(J) 200 CONTINUE RETURN END ================================================ FILE: mis/trbscd.f ================================================ SUBROUTINE TRBSCD C C THIS SUBROUTINE CALCULATES THE STIFFNESS AND MASS MATRICES FOR C THE BASIC BENDING TRIANGLE. THE MASS MATRIX MAY BE CALCULATED C EITHER BY THE CONVENTIONAL OR THE CONSISTENT MASS METHODS (USING C EMASTQ OR INCLUDED CODE) ACCORDING TO THE PARAMETER ICMBAR. C THIS ELEMENT MAY NOT BE USED IN A HEAT PROBLEM. C C DOUBLE PRECISION VERSION C C ECPT FOR THIS ELEMENT C C INDEX NAME TYPE DESCRIPTION C ----- ------- ---- ------------------ C 1 IELID I ELEMENT ID C 2 NGRID(1) I FIRST GRID POINT C 3 NGRID(2) I SECOND GRID POINT C 4 NGRID(3) I THIRD GRID POINT C 5 ANGLE R ANGLE OF MATERIAL C 6 MATID1 I MATERIAL ID 1 C 7 EYE R MOMENT OF INERTIA C 8 MATID2 I MATERIAL ID 2 C 9 T2 R T2 C 10 FMU R NON-STRUCTURAL MASS C 11 Z11 R Z1 C 12 Z22 R Z2 C 13 NECPT(13) I COORD SYSTEM ID 1 C 14 X1 R C 15 Y1 R COORDINATES C 16 Z1 R C 17 NECPT(17) I COORD SYSTEM ID 2 C 18 X2 R C 19 Y2 R COORDINATES C 20 Z2 R C 21 NECPT(21) I COORD SYSTEM ID 3 C 22 X3 R C 23 Y3 R COORDINATES C 24 Z3 R C 25 ELTEMP R ELEMENT TEMPERATURE C LOGICAL IHEAT,NOGO INTEGER ELID,ESTID,DICT(9),IPART(3),NECPT(25) REAL ECPT(25) DOUBLE PRECISION A,PROD,TEMP9,XSUBB,SXUBC,YSUBC,BFACT,E,KOUT 1, KK,KSAV,M(324),MOUT(324) COMMON /EMGPRM/ IXTR,JCORE,NCORE,DM(12),ISMB(3),IPREC,NOGO,HEAT, 1 ICMBAR COMMON /EMGDIC/ QQ,LDICT,NGRIDS,ELID,ESTID COMMON /EMGEST/ IELID,NGRID(3) COMMON /EMGTRX/ A(225),PROD(9),TEMP9(9),XSUBB,SXUBC,YSUBC,BFACT, 1 E(18),KOUT(324),KK(324),KSAV(81) COMMON /SYSTEM/ KSYSTM(60) EQUIVALENCE (KSYSTM(2),IOUTPT),(KSYSTM(56),IHEAT), 1 (ECPT(1),NECPT(1),IELID),(DICT5,DICT(5)), 2 (KK(1),MOUT(1)),(KOUT(1),M(1)) DATA IPART / 1,2,3 / C IP = IPREC C C IF THIS IS A HEAT PROBLEM THIS SHOULD NOT CALL US, SO RETURN C IF (IHEAT) RETURN C C CREATE AN ARRAY POINTING TO THE GRID POINTS IN INCREASING SIL C ORDER C 100 DO 120 I = 1,2 IP1 = I + 1 II = IPART(I) DO 110 J = IP1,3 JJ = IPART(J) IF (NGRID(II) .LE. NGRID(JJ)) GO TO 110 IPART(I) = JJ IPART(J) = II II = JJ GO TO 100 110 CONTINUE 120 CONTINUE C C IF STIFFNESS MATRIX IS DESIRED CALL ETRBKD, OTHERWISE ONLY MASS C MATRIX IS DESIRED C IF (ISMB(1) .EQ. 0) GO TO 200 C CALL ETRBKD (0) IF (NOGO) RETURN DICT5 = BFACT C C RE ORDER THE MATRIX BY INCREASING SIL VALUE. NOTE THAT C C KK = KK(1 TO 9) KK = KK(10 TO 18) KK = KK(19 TO 27) C AA AB AC C C KK = KK(28 TO 36) KK = KK(37 TO 45) KK = KK(46 TO 54) C BA BB BC C C KK = KK(55 TO 63) KK = KK(64 TO 72) KK = KK(73 TO 81) C CA CB CC C C AND C C KOUT = KOUT(1 - 36) KOUT = KOUT( 4 - 6) KOUT = KOUT( 7 - 9) C I I (10 - 12) I I (13 - 15) I I (16 - 18) C 1 1 (19 - 21) 1 2 (22- 24) 1 3 (25 - 27) C C ETC C C DO 170 I = 1,3 II = IPART(I) DO 160 J = 1,3 JJ = IPART(J) DO 150 K = 1,3 DO 140 L = 1,3 IK = (II-1)*27 + (JJ-1)*9 + (K-1)*3 + L IOUT = (I -1)*27 + (J -1)*3 + (K-1)*9 + L 140 KOUT(IOUT) = KK(IK) 150 CONTINUE 160 CONTINUE 170 CONTINUE C C NOW OUTPUT THE MATRIX C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 9 DICT(4) = 4 + 8 + 16 C CALL EMGOUT (KOUT,KOUT,81,1,DICT,1,IP) C C NOW CALCULATE THE MASS MATRIX IF NEEDED C 200 IF (ISMB(2) .EQ. 0) RETURN C C WHICH MASS METHOD TO BE USED (CONVENTIONAL OR CONSISTENT) C IF (ICMBAR .GE. 0) GO TO 300 C CALL EMADTQ (3,M) C C REORDER THE DIAGONAL MASS MATRIX C DO 240 I = 1,3 II = (I-1)*3 + 1 IJ = IPART(I) JJ = (IJ-1)*3 + 1 DO 220 J = 1,3 IOUT = II + J - 1 IK = JJ + J - 1 220 MOUT(IOUT) = M(IK) 240 CONTINUE C C NOW OUTPUT THE MATRIX C DICT(1) = ESTID DICT(2) = 2 DICT(3) = 9 DICT(4) = 7 C CALL EMGOUT (MOUT,MOUT,9,1,DICT,2,IP) C RETURN C C THE COUPLED MASS MATRIX CALCULATIONS ARE MADE HERE VIA ETRBMD C 300 CALL ETRBMD IF (NOGO) RETURN C C INSERT THE MATRICES INTO THE OUTPUT MATRIX IN INCREASING SIL ORDER C DO 550 I = 1,3 II = IPART(I) DO 550 J = 1,3 JJ = IPART(J) DO 550 K = 1,3 DO 550 L = 1,3 IA = (II-1)*36 + (JJ-II)*9 + (K-1)*3 + L IOUT = (I -1)*27 + (J - 1)*3 + (K-1)*9 + L 550 MOUT(IOUT) = M(IA) C C NOW OUTPUT THE MASS MATRIX C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 9 DICT(4) = 4 + 8 + 16 C CALL EMGOUT (MOUT,MOUT,81,1,DICT,2,IP) RETURN C END ================================================ FILE: mis/trbscs.f ================================================ SUBROUTINE TRBSCS C C THIS SUBROUTINE CALCULATES THE STIFFNESS AND MASS MATRICES FOR C THE BASIC BENDING TRIANGLE. THE MASS MATRIX MAY BE CALCULATED C EITHER BY THE CONVENTIONAL OR THE CONSISTENT MASS METHODS (USING C EMASTQ OR INCLUDED CODE) ACCORDING TO THE PARAMETER ICMBAR. C THIS ELEMENT MAY NOT BE USED IN A HEAT PROBLEM. C C SINGLE PRECISION VERSION C C ECPT FOR THIS ELEMENT C C INDEX NAME TYPE DESCRIPTION C ----- --------- ---- -------------------- C 1 IELID I ELEMENT ID C 2 NGRID(1) I FIRST GRID POINT C 3 NGRID(2) I SECOND GRID POINT C 4 NGRID(3) I THIRD GRID POINT C 5 ANGLE R ANGLE OF MATERIAL C 6 MATID1 I MATERIAL ID 1 C 7 EYE R MOMENT OF INERTIA C 8 MATID2 I MATERIAL ID 2 C 9 T2 R T2 C 10 FMU R NON-STRUCTURAL MASS C 11 Z11 R Z1 C 12 Z22 R Z2 C 13 NECPT(13) I COORD SYSTEM ID 1 C 14 X1 R C 15 Y1 R COORDINATES C 16 Z1 R C 17 NECPT(17) I COORD SYSTEM ID 2 C 18 X2 R C 19 Y2 R COORDINATES C 20 Z2 R C 21 NECPT(21) I COORD SYSTEM ID 3 C 22 X3 R C 23 Y3 R COORDINATES C 24 Z3 R C 25 ELTEMP R ELEMENT TEMPERATURE C LOGICAL IHEAT,NOGO INTEGER ELID,ESTID,DICT(9),IPART(3),NECPT(25) REAL ECPT(25),KK,KOUT,M(324),MOUT(324) COMMON /EMGPRM/ IXTR,JCORE,NCORE,DM(12),ISMB(3),IPREC,NOGO,HEAT, 1 ICMBAR COMMON /EMGDIC/ QQ,LDICT,NGRIDS,ELID,ESTID COMMON /EMGEST/ IELID,NGRID(3) COMMON /EMGTRX/ A(225),PROD(9),TEMP9(9),XSUBB,SXUBC,YSUBC,BFACT, 1 E(18),KOUT(324),KK(324),KSAV(81) COMMON /SYSTEM/ KSYSTM(60) EQUIVALENCE (KSYSTM(2),IOUTPT),(KSYSTM(56),IHEAT), 1 (ECPT(1),NECPT(1),IELID),(DICT5,DICT(5)), 2 (KK(1),MOUT(1)),(KOUT(1),M(1)) DATA IPART / 1,2,3/ C IP = IPREC C C IF THIS IS A HEAT PROBLEM THIS SHOULD NOT CALL US, SO RETURN C IF (IHEAT) RETURN C C CREATE AN ARRAY POINTING TO THE GRID POINTS IN INCREASING SIL C ORDER C 100 DO 120 I = 1,2 IP1 = I + 1 II = IPART(I) DO 110 J = IP1,3 JJ = IPART(J) IF (NGRID(II) .LE. NGRID(JJ)) GO TO 110 IPART(I) = JJ IPART(J) = II II = JJ GO TO 100 110 CONTINUE 120 CONTINUE C C IF STIFFNESS MATRIX IS DESIRED CALL ETRBKS, OTHERWISE ONLY MASS C MATRIX IS DESIRED C IF (ISMB(1) .EQ. 0) GO TO 200 C CALL ETRBKS (0) IF (NOGO) RETURN DICT5 = BFACT C C RE ORDER THE MATRIX BY INCREASING SIL VALUE. NOTE THAT C C KK = KK(1 TO 9) KK = KK(10 TO 18) KK = KK(19 TO 27) C AA AB AC C C KK = KK(28 TO 36) KK = KK(37 TO 45) KK = KK(46 TO 54) C BA BB BC C C KK = KK(55 TO 63) KK = KK(64 TO 72) KK = KK(73 TO 81) C CA CB CC C C AND C C KOUT = KOUT(1 - 36) KOUT = KOUT( 4 - 6) KOUT = KOUT( 7 - 9) C I I (10 - 12) I I (13 - 15) I I (16 - 18) C 1 1 (19 - 21) 1 2 (22- 24) 1 3 (25 - 27) C C ETC C C DO 170 I = 1,3 II = IPART(I) DO 160 J = 1,3 JJ = IPART(J) DO 150 K = 1,3 DO 140 L = 1,3 IK = (II-1)*27 + (JJ-1)*9 + (K-1)*3 + L IOUT = (I -1)*27 + (J -1)*3 + (K-1)*9 + L 140 KOUT(IOUT) = KK(IK) 150 CONTINUE 160 CONTINUE 170 CONTINUE C C NOW OUTPUT THE MATRIX C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 9 DICT(4) = 4 + 8 + 16 C CALL EMGOUT (KOUT,KOUT,81,1,DICT,1,IP) C C NOW CALCULATE THE MASS MATRIX IF NEEDED C 200 IF (ISMB(2) .EQ. 0) RETURN C C WHICH MASS METHOD TO BE USED (CONVENTIONAL OR CONSISTENT) C IF (ICMBAR .GE. 0) GO TO 300 C CALL EMASTQ (3,M) C C REORDER THE DIAGONAL MASS MATRIX C DO 240 I = 1,3 II = (I-1)*3 + 1 IJ = IPART(I) JJ = (IJ-1)*3 + 1 DO 220 J = 1,3 IOUT = II + J - 1 IK = JJ + J - 1 220 MOUT(IOUT) = M(IK) 240 CONTINUE C C NOW OUTPUT THE MATRIX C DICT(1) = ESTID DICT(2) = 2 DICT(3) = 9 DICT(4) = 7 C CALL EMGOUT (MOUT,MOUT,9,1,DICT,2,IP) C RETURN C C THE COUPLED MASS MATRIX CALCULATIONS ARE MADE HERE VIA ETRBMS C 300 CALL ETRBMS IF (NOGO) RETURN C C INSERT THE MATRICES INTO THE OUTPUT MATRIX IN INCREASING SIL ORDER C DO 550 I = 1,3 II = IPART(I) DO 550 J = 1,3 JJ = IPART(J) DO 550 K = 1,3 DO 550 L = 1,3 IA = (II-1)*36 + (JJ-II)*9 + (K-1)*3 + L IOUT = (I -1)*27 + (J - 1)*3 + (K-1)*9 + L 550 MOUT(IOUT) = M(IA) C C NOW OUTPUT THE MASS MATRIX C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 9 DICT(4) = 4 + 8 + 16 C CALL EMGOUT (MOUT,MOUT,81,1,DICT,2,IP) RETURN C END ================================================ FILE: mis/trd.f ================================================ SUBROUTINE TRD C C TRANSIENT RESPONSE MODULE DRIVER C C INPUTS CASEXX, TRL,NLFT,DIT,KHH,BHH,MHH,PH C CASEXX, TRL,NLFT,DIT,KDD,BDD,MDD,PD C C OUTPUTS UDVT,PNLD C UHVT,PNLH C C PARAMETERS -- MODAL --BCD--INPUT--MODAL=MODAL IMPLIES MODAL C NOUE --INT--INPUT--NUMBER OF EXTRA POINTS C NONCUP--INT--INPUT--NONCUP=-1 IMPLIES NONCOUPLED C NCOL --INT--IN/OUT--APPEND FLAG 0 NO APPEND C + COL NUMBER OF C LAST TIME STEP C C SCRATCHES -- C C C C C C C INTEGER CASEXX ,TRL ,NLFT ,DIT , 1 KDD ,BDD ,MDD ,PD , 1 UDVT ,PNLD ,MODAL(2) ,SCR1 , 1 SCR2 ,SCR3 ,SCR4 ,SCR5 , 1 SCR6 ,SCR7 ,SCR8 , 1 SR1 ,SR2 ,SR3 ,SR4 , 1 SR5 ,SR6 ,NAME(2) , 1 IZ(1) C COMMON /BLANK/ MODAL ,NOUE ,NONCUP ,NCOL COMMON/SYSTEM/IBUF, IDUMMY(53), IPREC COMMON /ZZZZZZ / Z(1) COMMON /TRDXX / IK(7) ,IM(7) ,IB(7) ,SR1 , 1 SR2 ,SR3 ,SR4 ,SR5 , 2 SR6 ,IOPEN ,ISYM ,TO , 3 NOPD ,ISPNL C EQUIVALENCE ( Z(1) ,IZ(1)) C DATA CASEXX ,TRL ,NLFT ,DIT / 1 101 ,102 ,103 ,104 / 1 ,KDD ,BDD ,MDD ,PD / 1 105 ,106 ,107 ,108 / 1 ,UDVT ,PNLD ,SCR1 ,SCR2 / 1 201 ,202 ,301 ,302 / 1 ,SCR3 ,SCR4 ,SCR5 ,SCR6 / 1 303 ,304 ,305 ,306 / 1 ,SCR7 ,SCR8 , MODA / 1 307 ,308 , 4HMODA / 1 ,NAME / 1 4HTRD ,4H / C C ---------------------------------------------------------------------- C C INITIALIZE C MODA1 = -1 IF ( MODA .EQ. MODAL(1)) MODA1 = 1 C C BUILD INITIAL CONDITIONS C IF (IPREC.EQ.1) 1CALL TRD1A (CASEXX, TRL, SCR1, NLFTP, NGROUP, MODA1) IF (IPREC.EQ.2) 1CALL TRD1A2 (CASEXX, TRL, SCR1, NLFTP, NGROUP, MODA1) C C TEST FOR ZERO APPLIED LOAD C IK(1) = SCR1 CALL RDTRL(IK(1)) IF ( IK(6) .NE. 0) GO TO 10 IF ( NLFTP .NE. 0) GO TO 10 IK(1) = PD IK(6) = 0 CALL RDTRL(IK) IF( IK(6) .NE. 0) GO TO 10 IF (NCOL.GT.0) GO TO 10 CALL MESAGE(-46,0,0) 10 CONTINUE C C ESTIMATE CORE C IF( NONCUP .LT. 0 .AND. MODAL(1) .EQ. MODA .AND. NLFTP .EQ. 0) 1 GO TO 100 NZ = KORSZ (Z) IGROUP = NZ- 3*NGROUP +1 IK(1) = KDD CALL RDTRL( IK) IF( IK(1) .LT. 0) GO TO 20 NROW = IK(3) GO TO 21 20 IK(1) = 0 21 IB(1) = BDD CALL RDTRL(IB) IF( IB(1) .LT. 0) GO TO 30 NROW = IB(3) GO TO 31 30 IB(1) = 0 31 IM(1) = MDD CALL RDTRL(IM) IF( IM(1) .LT. 0) GO TO 35 NROW = IM(3) GO TO 36 35 IM(1) = 0 36 CONTINUE ICRQ = 8*IBUF + 7*IPREC*NROW - IGROUP IF(ICRQ.GT.0) CALL MESAGE(-8,ICRQ,NAME) C C SET UP COMMON C SR1=SCR2 SR2=SCR3 SR3=SCR4 SR4=SCR5 SR5=SCR6 SR6=SCR7 ISKIP = 1 JGROUP = IGROUP DO 45 I = 1, NGROUP NSKIP = IZ(JGROUP+2) IF (NSKIP .EQ. 1) GO TO 40 ISKIP = 0 GO TO 47 40 JGROUP = JGROUP + 3 45 CONTINUE 47 DO 50 I= 1,NGROUP CALL KLOCK(ITIME1) NSTEP = IZ(IGROUP) DELTA = Z(IGROUP+1) IGROUP= IGROUP +3 IF (IPREC.EQ.1) CALL INITL (3*NGROUP, DELTA) IF (IPREC.EQ.2) CALL INITL2 (3*NGROUP, DELTA) CALL KLOCK(ITIME3) IF (IPREC.EQ.1) 1CALL TRD1C (SCR1, PD, NGROUP, NLFTP, UDVT, I, SCR8, DIT, NLFT, 2 NOUE, MODA1, PNLD, ISKIP) IF (IPREC.EQ.2) 1CALL TRD1C2 (SCR1, PD, NGROUP, NLFTP, UDVT, I, SCR8, DIT, NLFT, 2 NOUE, MODA1, PNLD, ISKIP) CALL KLOCK (ITIME2) CALL TMTOGO(ITLEFT) IF( ITLEFT .LE. 0) GO TO 60 IF( I .EQ. NGROUP) GO TO 50 C C COMPUTE TIME TO DO NEXT ITERATION C IF (2*(ITIME3-ITIME1 + ((ITIME2-ITIME3)/NSTEP)*IZ(IGROUP)).GE. 1 ITLEFT) GO TO 60 50 CONTINUE 55 IK(1) = UDVT CALL RDTRL (IK(1)) NCOL = IK(2)/3 RETURN C C UNCOUPLED MODAL C 100 CALL TRD1E(MDD,BDD,KDD,PD,UDVT,NGROUP) GO TO 55 C C INSUFFICIENT TIME LEFT TO FINISH C 60 CONTINUE IK(1) =UDVT CALL RDTRL( IK(1)) NCOL = IK(2)/3 IK(1) = PD CALL RDTRL( IK) CALL MESAGE (45, IK(2)-NCOL, NAME) IF (NCOL.EQ.0) CALL MESAGE(-37,0,NAME) RETURN END ================================================ FILE: mis/trd1a.f ================================================ SUBROUTINE TRD1A (CASEXX,TRL,IC,NLFTP,NGROUP,MODA1) C C THIS ROUTINE BUILDS THE INITIAL CONDITIONS TABLE, PUTS TSTEP STUFF C IN CORE AND EXTRACTS THE NLFTP POINTER C C THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION C INTEGER SYSBUF ,CASEXX ,TRL ,INTRL(2) , 1 IZ(160) ,MCB(7) ,FILE ,NAME(2) C COMMON /SYSTEM/ SYSBUF COMMON /PACKX / IT1 ,IT2 ,II ,JJ , 1 INCR COMMON /ZZZZZZ / Z(1) C EQUIVALENCE (Z(1) ,IZ(1)) C DATA NAME ,INTRL / 1 4HTRD1 ,4HA ,4HTRL ,4HTRD / C C IDENTIFICATION VARIABLES C C NGROUP NUMBER OF CHANGES OF TIME STEP C C ITSTEP SELECTED TSTEP ID C C NLFTP SELECTED NON-LINEAR LOAD ID C C ICP SELECTED INITIAL CONDITION ID C C LUD LENGTH OF INITIAL CONDITION--D SET C C IGROUP POINTER TO TSTEP STUFF C C C C INITIALIZE C IT1 = 1 IT2 = 1 II = 1 INCR= 1 NZ = KORSZ (Z) NX = NZ C C PICK UP AND STORE CASECC POINTERS C IBUF1 = NZ -SYSBUF +1 CALL GOPEN (CASEXX,IZ(IBUF1),0) CALL FREAD (CASEXX,IZ,166,1) CALL CLOSE (CASEXX,1) ITSTEP = IZ(38) ICP = IZ(9) NLFTP = IZ(160) IF (ICP.NE.0 .AND. MODA1.EQ.1) GO TO 920 C C BUILD INITIAL CONDITION FILE C CALL GOPEN (IC,IZ(IBUF1),1) IBUF2 = IBUF1-SYSBUF NZ = NZ - 2*SYSBUF ICRQ =-NZ IF (ICRQ .GT. 0) GO TO 980 FILE = TRL CALL OPEN (*900,TRL,IZ(IBUF2),0) CALL READ (*910,*10,TRL,IZ(1),NZ,0,IFLAG) ICRQ = NZ GO TO 980 10 LUD = IZ(IFLAG) JJ = LUD ICRQ = 2*LUD - NZ IF (ICRQ .GT. 0) GO TO 980 L = IZ(3) ITRL = L C C ZERO I. C. C IVEL = IBUF2- LUD-1 IDISP = IVEL -LUD DO 20 I = 1,LUD K = IVEL +I Z(K) = 0.0 K = IDISP +I Z(K) = 0.0 20 CONTINUE CALL MAKMCB (MCB,IC,LUD,2,1) IF (ICP .EQ. 0) GO TO 80 IF (IZ(3) .EQ. 0) GO TO 40 IFLAG = IFLAG-1 DO 30 I = 4,IFLAG IF (IZ(I) .EQ. ICP) GO TO 50 30 CONTINUE 40 ITSTEP = ICP GO TO 940 50 K = I-4 L = IFLAG -I CALL SKPREC (TRL,K) 70 CALL READ (*910,*80,TRL,IZ(1),3,0,IFLAG) K = IZ(1) +IDISP I2 = 2 Z(K) = Z(K) + Z(I2) K = IZ(1) + IVEL Z(K) = Z(K) + Z(I2+1) GO TO 70 80 CALL PACK (Z(IDISP+1),IC,MCB) CALL PACK (Z(IVEL +1),IC,MCB) CALL CLOSE (IC,1) CALL WRTTRL (MCB) CALL SKPREC (TRL,L) C C BRING TSTEP STUFF INTO CORE C 100 ITRL = ITRL +1 CALL READ (*940,*110,TRL,IZ(1),NZ,0,IFLAG) ICRQ = NZ GO TO 980 110 IF (IZ(1) .NE. ITSTEP) GO TO 100 C C TSTEP CARD FOUND C CALL CLOSE (TRL,1) NGROUP = (IFLAG-1)/3 C C MOVE TSTEP STUFF TO BOTTOM OF CORE C NZ = NX - IFLAG +1 IGROUP = NZ+1 DO 120 I = 2,IFLAG K = IGROUP +I-2 IZ(K) = IZ(I) 120 CONTINUE RETURN C C ERROR MESSAGES C 900 IP1 = -1 901 CALL MESAGE (IP1,FILE,NAME) RETURN 910 IP1 = -2 GO TO 901 920 IP1 = -51 FILE = ICP GO TO 901 940 CALL MESAGE (-31,ITSTEP,INTRL) RETURN 980 IP1 = -8 FILE = ICRQ GO TO 901 END ================================================ FILE: mis/trd1a2.f ================================================ SUBROUTINE TRD1A2 (CASEXX, TRL, IC, NLFTP, NGROUP, MODA1) C C THIS ROUTINE BUILDS THE INITIAL CONDITIONS TABLE, PUTS TSTEP STUFF C IN CORE AND EXTRACTS THE NLFTP POINTER C C THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION C DOUBLE PRECISION Z C INTEGER SYSBUF ,CASEXX ,TRL , 1 IZ(160) ,MCB(7) ,FILE ,NAME(2) , 1 INTRL(2) C REAL RZ(3) C COMMON /SYSTEM/ SYSBUF COMMON /PACKX / IT1 ,IT2 ,II ,JJ , 1 INCR COMMON /ZZZZZZ / Z(1) C EQUIVALENCE (Z(1) ,RZ(1) ,IZ(1) ) C DATA NAME ,INTRL / 1 4HTRD1 ,4HA2 ,4HTRL ,4HTRD / C C IDENTIFICATION VARIABLES C C NGROUP NUMBER OF CHANGES OF TIME STEP C C ITSTEP SELECTED TSTEP ID C C NLFTP SELECTED NON-LINEAR LOAD ID C C ICP SELECTED INITIAL CONDITION ID C C LUD LENGTH OF INITIAL CONDITION--D SET C C IGROUP POINTER TO TSTEP STUFF C C ---------------------------------------------------------------------- C C INITIALIZE C IT1 = 2 IT2 = 2 II=1 INCR =1 NZ = KORSZ (Z) NX=NZ C C PICK UP AND STORE CASECC POINTERS C IBUF1 = NZ -SYSBUF +1 CALL GOPEN(CASEXX,IZ(IBUF1),0) CALL FREAD(CASEXX,IZ,166,1) CALL CLOSE(CASEXX,1) ITSTEP = IZ(38) ICP = IZ(9) NLFTP = IZ(160) IF(ICP .NE. 0 .AND. MODA1 .EQ. 1) GO TO 920 C C BUILD INITIAL CONDITION FILE C CALL GOPEN(IC,IZ(IBUF1),1) IBUF2 = IBUF1-SYSBUF NZ = NZ - 2*SYSBUF ICRQ = -NZ IF(ICRQ.GT.0) GO TO 980 FILE =TRL CALL OPEN(*900,TRL,IZ(IBUF2),0) CALL READ(*910,*10,TRL,IZ(1),NZ,0,IFLAG) ICRQ = NZ GO TO 980 10 LUD = IZ(IFLAG) JJ = LUD ICRQ = 4*LUD + 1 - NZ IF(ICRQ.GT.0) GO TO 980 L = IZ(3) ITRL = L C C ZERO I. C. C IVEL = (IBUF2 - 2*LUD - 1)/2 IDISP = IVEL - 2*LUD DO 20 I =1,LUD K = IVEL +I Z(K) = 0.0D0 K = IDISP +I Z(K) = 0.0D0 20 CONTINUE CALL MAKMCB (MCB, IC, LUD, 2, 2) IF ( ICP .EQ. 0) GO TO 80 IF( IZ(3) .EQ. 0) GO TO 40 IFLAG = IFLAG-1 DO 30 I= 4,IFLAG IF ( IZ(I) .EQ. ICP) GO TO 50 30 CONTINUE 40 ITSTEP = ICP GO TO 940 50 K =I-4 L = IFLAG -I CALL SKPREC(TRL,K) 70 CALL READ(*910,*80,TRL,IZ(1),3,0,IFLAG) K = IZ(1) +IDISP Z(K) = Z(K) + RZ(2) K = IZ(1) + IVEL Z(K) = Z(K) + RZ(3) GO TO 70 80 CALL PACK(Z(IDISP+1),IC,MCB) CALL PACK(Z(IVEL +1),IC,MCB) CALL CLOSE(IC,1) CALL WRTTRL(MCB) CALL SKPREC(TRL,L) C C BRING TSTEP STUFF INTO CORE C 100 ITRL = ITRL +1 CALL READ(*940,*110,TRL,IZ(1),NZ,0,IFLAG) ICRQ = NZ GO TO 980 110 IF ( IZ(1) .NE. ITSTEP) GO TO 100 C C TSTEP CARD FOUND C CALL CLOSE(TRL,1) NGROUP =(IFLAG-1)/3 C C MOVE TSTEP STUFF TO BOTTOM OF CORE C NZ = NX - IFLAG +1 IGROUP = NZ+1 DO 120 I=2,IFLAG K = IGROUP +I-2 IZ(K) = IZ(I) 120 CONTINUE RETURN C C ERROR MESSAGES C 900 IP1=-1 901 CALL MESAGE(IP1,FILE,NAME) RETURN 910 IP1=-2 GO TO 901 920 IP1 = -51 FILE = ICP GO TO 901 940 CALL MESAGE(-31,ITSTEP,INTRL) RETURN 980 IP1 = -8 FILE = ICRQ GO TO 901 END ================================================ FILE: mis/trd1c.f ================================================ SUBROUTINE TRD1C(IC,PD,NGROUP,NLFTP,UDV,ILOOP,SCR1,DIT,NLFT,NOUE, CRLBR SPR94003 9/94 CRLBR1 MODAL,PNL) 1 MODAL,PNL,ISKIP) C C THIS ROUTINE STEPS INTEGRATION PROCEDURE C C THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION C LOGICAL NOPD C INTEGER DIT1,PNL1,PNL INTEGER PD,UDV,SCR1,DIT,SYSBUF,FILE,IZ(1),MCB(7),IPNL(7) CRLBR SPR94003 9/94 CRLBR INTEGER SUBNAM(2) INTEGER SUBNAM(2), MOUTPU(7) C COMMON /BLANK /DUMMY(4), NCOL CRLBR SPR94003 9/94 CRLBR COMMON /SYSTEM/SYSBUF COMMON /SYSTEM/SYSBUF, NNOUT, ISYSTM(79), ICPFLG COMMON /ZZZZZZ/Z(1) COMMON /PACKX /IT1,IT2,II,JJ,INCR COMMON /TRDXX /IK(7),IDUM(14),ISCR1,ISCR2,ISCR3,ISCR4,ISCR5,ISCR6, 1 IOPEN,ISYM,TO,NOPD,ISPNL COMMON /UNPAKX/IT3,III,JJJ,INCR1 COMMON /TRDD1 /NLFT1,DIT1,NLFTP1,NOUT,ICOUNT,ILOOP1,MODAL1,NZ, 1 ICORE,IU2,IP4,IPNL,NMODES,NSTEP,PNL1,IST,IU1, 2 DELTAT,IFRST C EQUIVALENCE (Z(1),IZ(1)) C DATA SUBNAM /4HTRD1,1HC/ CRLBNB SPR94003 9/94 DATA IOUTPU, ISCR9 /203, 309/ CRLBNE C C ---------------------------------------------------------------------- C C INITIALIZE C NROW = IK(3) IT1 = 1 IT2 = 1 II = 1 JJ = NROW INCR = 1 IT3 = 1 III = 1 JJJ = NROW INCR1 = 1 NZ = KORSZ(Z) IGROUP= NZ -3*NGROUP +1 IBUF1 = IGROUP -SYSBUF IBUF2 = IBUF1 -SYSBUF IBUF3 = IBUF2 -SYSBUF IBUF4 = IBUF3-SYSBUF IBUF5 = IBUF4-SYSBUF IBUF6 = IBUF5-SYSBUF IBUF7 = IBUF6-SYSBUF IBUF8 = IBUF7 -SYSBUF CRLBNB SPR94003 9/94 IF (NLFTP .EQ. 0) IBUF8 = IBUF7 IBUF9 = IBUF8 - SYSBUF IBUFA = IBUF9 - SYSBUF IF (ICPFLG .EQ. 0) IBUFA = IBUF8 IF (ICPFLG .NE. 0 .AND. ISKIP .EQ. 1) IBUFA = IBUF9 NZ = IBUFA - 1 CRLBNE CRLBD SPR94003 9/94 NZ = IBUF7-1 CRLBD SPR94003 9/94 IF(NLFTP .NE. 0) NZ = IBUF8-1 IOPEN = 0 CRLBR SPR94003 9/94 ICRQ = 14*NROW + 1 - NZ ICRQ = 14*(NROW+1) + 1 - NZ IF(ICRQ.GT.0) GO TO 430 CRLBR SPR94003 9/94 IU1=0 IU1=1 CRLBR SPR94003 9/94 IU2= IU1+NROW IU2= IU1+NROW + 1 CRLBR SPR94003 9/94 IU3= IU2+ NROW IU3= IU2+ NROW + 1 CRLBR SPR94003 9/94 IP1= IU3+ NROW IP1= IU3+ NROW + 1 CRLBR SPR94003 9/94 IP2= IP1+ NROW IP2 = IP1+ NROW IP3 = IP2+ NROW IP4 = IP3+ NROW NLFT1 = NLFT DIT1 = DIT NLFTP1= NLFTP ILOOP1= ILOOP MODAL1= MODAL IST = 0 CRLBR SPR94003 9/94 NZ = NZ - 14*NROW - 1 NZ = NZ - 14*(NROW+1) - 1 ICORE = IP4 +NROW NMODES= NROW- NOUE PNL1 = PNL ASSIGN 60 TO IRET1 NSTEP = IZ(IGROUP) + 1 DELTAT= Z(IGROUP+1) NOUT = IZ(IGROUP+2) IF( ILOOP .NE. 1) GO TO 210 C C FIRST ENTRY INITIALIZE STUFF C IST =-1 FILE = PD C C PUT P0 IN IP2 C IPNT = IP2 NOPD = .TRUE. ASSIGN 5 TO IRETN CALL OPEN(*310,PD,IZ(IBUF2),0) CALL SKPREC(PD,1) NOPD = .FALSE. GO TO 290 CRLBD SPR94003 9/94 5 FILE = UDV CRLBD SPR94003 9/94 IAPEND = 0 CRLBR SPR94003 9/94 IF (NCOL .LE. 0) GO TO 8 5 IF (NCOL .GT. 2) GO TO 325 CRLBD SPR94003 9/94 MCB(1) = UDV CRLBD SPR94003 9/94 CALL RDTRL (MCB) CRLBD SPR94003 9/94 IF (MCB(2) .NE. 0) GO TO 330 CRLBR SPR94003 9/94 8 CALL GOPEN (UDV,IZ(IBUF3),1) CALL GOPEN (UDV, IZ(IBUF3), 1) CALL MAKMCB (MCB,UDV,NROW,2,2) CRLBNB SPR94003 9/94 8 IF (ICPFLG .EQ. 0) GO TO 10 CALL MAKMCB (MOUTPU, IOUTPU, NROW+1, ISKIP, 2) CALL GOPEN (IOUTPU, IZ(IBUF9), 1) IF (ISKIP .EQ. 0) CALL GOPEN (ISCR9, IZ(IBUFA), 1) CRLBNE 10 IF (NLFTP.EQ.0) GO TO 20 C C CHECK TO SEE IF PNL HAS BEEN PRE-PURGED. C IPNL(1)= PNL1 CALL RDTRL(IPNL) ISPNL= 0 IF(IPNL(1) .LE. 0) GO TO 20 ISPNL= 1 CALL GOPEN(PNL1,IZ(IBUF8),1) CALL MAKMCB(IPNL,PNL1,NROW,2,1) 20 CONTINUE CRLBR SPR94003 9/94 IF (IAPEND .EQ. 1) GO TO 50 IF (NCOL .GT. 2) GO TO 50 FILE = IC CALL GOPEN(IC,IZ(IBUF1),0) ASSIGN 30 TO IRETN IPNT = IU2 GO TO 290 30 ASSIGN 40 TO IRETN IPNT = IU3 GO TO 290 40 CALL CLOSE(IC,1) NSTEP = IZ(IGROUP)+1 DELTAT= Z(IGROUP+1) NOUT = IZ(IGROUP+2) C C FORM U=1, PO, P-1 C CALL FORM1( Z(IU2+1),Z(IU3+1),Z(IU1+1),Z(IP2+1),Z(IP1+1),DELTAT, 1 Z(IBUF1)) C C START TIME STEP COUNT C 50 CONTINUE ICOUNT = 1 CRLBNB SPR94003 9/94 MCOL = 1 CRLBNE 60 CONTINUE IF (NLFTP .EQ. 0) GO TO 62 IFRST=0 CALL TRD1D IFRST=1 62 CONTINUE C C OPEN FBS FILES C FILE = ISCR1 CALL OPEN(*390,ISCR1,IZ(IBUF4),0) FILE = ISCR2 CALL OPEN(*390,ISCR2,IZ(IBUF5),0) FILE = ISCR3 CIBMR 5/95 C CALL OPEN(*390,ISCR3,IZ(IBUF6),0) IF ( ISYM .EQ. 1 ) CALL OPEN(*390,ISCR3,IZ(IBUF6),0) FILE = ISCR4 CALL OPEN(*390,ISCR4,IZ(IBUF7),0) C C ZERO P* C 70 CALL TMTOGO(ITLEFT) IF(ITLEFT .LE. 0) GO TO 170 DO 80 I = 1,NROW K = IP4 +I Z(K) =0.0 80 CONTINUE IF(NLFTP .EQ. 0) GO TO 90 C C FORM NON-LINEAR LOADS C CALL TRD1D IF(ICOUNT.EQ. 1 .OR. ICOUNT .EQ. NSTEP .OR. MOD(ICOUNT+IST,NOUT) 1 .EQ. 0) GO TO 85 GO TO 90 85 IF (ISPNL.GT.0) CALL PACK (Z(IP4+1), PNL, IPNL) C C BRING IN NEXT P C 90 IPNT = IP3 FILE = PD ASSIGN 100 TO IRETN IF ( NOPD ) GO TO 310 GO TO 290 C C ADD P-S TO FORM P* C 100 DO 110 I=1,NROW K = IP4 + I L = IP1 + I M = IP2 + I J = IP3 + I Z(K) = Z(K) +(Z(L) + Z(M) + Z(J))/3.0 110 CONTINUE IF (ILOOP.NE.1.OR.ICOUNT.NE.1) GO TO 115 CRLBR SPR94003 9/94 IF (IAPEND .EQ. 1) GO TO 115 IF (NCOL .GT. 2) GO TO 113 C C OUTPUT INITIAL DISPLACEMENT C CALL PACK (Z(IU2 + 1), UDV, MCB(1)) C C OUTPUT INITIAL VELOCITY C CALL PACK (Z(IU3 + 1), UDV, MCB(1)) CRLBNB SPR94003 9/94 113 IF (ICPFLG .EQ. 0) GO TO 115 IF (ISKIP .EQ. 0) CALL WRITE (ISCR9, MCOL, 1, 0) CRLBNE C C SOLVE FOR NEXT SOLUTION C 115 CALL STEP (Z(IU3 + 1), Z(IU2 + 1), Z(IU1 + 1), Z(IP4 + 1), 1 IZ(IBUF1)) CRLBNB SPR94003 9/94 IF (ICPFLG .EQ. 0) GO TO 118 JJ = NROW + 1 Z(IP2) = DELTAT IF (ILOOP.NE.1 .AND. ICOUNT.EQ.0) Z(IP2) = DELTA1 CALL PACK (Z(IP2), IOUTPU, MOUTPU) IF (ISKIP .EQ. 1) GO TO 117 Z(IU2) = MCOL + 0.1 CALL PACK (Z(IU2), IOUTPU, MOUTPU) 117 JJ = NROW 118 CONTINUE CRLBNE IF (ILOOP.EQ.1.AND.ICOUNT.EQ.1) GO TO 145 IF (ICOUNT.EQ.NSTEP.OR.MOD(ICOUNT+IST, NOUT).EQ.0) GO TO 130 IF (ICOUNT.EQ.1) GO TO 130 C C ROTATE P POINTERS C 120 J = IP1 IP1= IP2 IP2= IP3 IP3= J C C ROTATE U POINTERS C J = IU1 IU1= IU2 IU2= IU3 IU3= J ICOUNT = ICOUNT +1 CRLBNB SPR94003 9/94 MCOL = MCOL + 1 CRLBNE IF(ICOUNT-NSTEP) 70,160,170 C C IT-S OUTPUT TIME -- LUCKY FELLOW C 130 CALL PACK( Z(IU2+1), UDV, MCB(1) ) C C COMPUTE U DOT C H = 1.0/(2.0*DELTAT) DO 140 I=1,NROW K = IP4 +I L = IU3+I M = IU1 + I Z(K) = (Z(L)-Z(M))*H 140 CONTINUE CALL PACK( Z(IP4+1), UDV, MCB(1) ) CRLBNB SPR94003 9/94 IF (ICPFLG .EQ. 0) GO TO 145 IF (ISKIP .EQ. 0) CALL WRITE (ISCR9, MCOL, 1, 0) CRLBNE C C COMPUTE U DOT DOT C 145 H = 1.0/(DELTAT*DELTAT) DO 150 I=1,NROW K = IP4+I L = IU3+I M = IU1+I J = IU2 +I Z(K) = (Z(L)+Z(M)- 2.0*Z(J))*H 150 CONTINUE CALL PACK( Z(IP4+1), UDV, MCB(1) ) GO TO 120 C C END OF 1 GROUP C 160 IF(ILOOP .NE. NGROUP) GO TO 200 GO TO 70 170 J = 1 180 CALL CLOSE(UDV,J) CALL CLOSE(PD, J) CRLBNB SPR94003 9/94 IF (ICPFLG .EQ. 0) GO TO 188 IF (J.NE.1 .OR. ISKIP.EQ.1) GO TO 186 CALL CLOSE (ISCR9, 1) C C COPY THE SINGLE RECORD IN FILE ISCR9 AS THE C LAST RECORD IN FILE IOUTPU C CALL GOPEN (ISCR9, IZ(IBUFA), 0) FILE = ISCR9 183 CALL READ (*410, *184, ISCR9, Z(IU2+1), NROW, 0, IFLAG) CALL WRITE (IOUTPU, Z(IU2+1), NROW, 0) GO TO 183 184 CALL WRITE (IOUTPU, Z(IU2+1), IFLAG, 1) CALL CLOSE (ISCR9, 1) 186 CALL CLOSE (IOUTPU, J) CALL WRTTRL (MOUTPU) 188 CONTINUE CRLBNE CALL CLOSE(ISCR1,1) CALL CLOSE(ISCR2,1) CIBMR 5/95 C CALL CLOSE(ISCR3,1) IF ( ISYM .EQ. 1 ) CALL CLOSE(ISCR3,1) CALL CLOSE(ISCR4,1) CALL WRTTRL(MCB) IF( NLFTP .EQ. 0) GO TO 190 IF (ISPNL.EQ.0) GO TO 190 CALL CLOSE(PNL,J) CALL WRTTRL(IPNL) 190 RETURN C C MORE GROUPS TO COME SAVE STUFF C 200 J = 2 FILE = SCR1 CALL OPEN(*390,SCR1,IZ(IBUF1),1) CALL WRITE(SCR1,Z(IU3+1),NROW,1) CALL WRITE(SCR1,Z(IU1+1),NROW,1) CALL WRITE(SCR1,Z(IU2+1),NROW,1) CRLBR SPR94003 9/94 CRLBR CALL WRITE (SCR1,Z(IP1+1),NROW,1) CALL WRITE (SCR1,Z(IP2+1),NROW,1) CALL CLOSE(SCR1,1) GO TO 180 C C CHANGE OF TIME STEP--RESTORE POINTERS ETC C 210 IGROUP = IGROUP +(ILOOP-1)*3 DELTA1 = Z(IGROUP-2) NSTEP = IZ(IGROUP) DELTAT = Z(IGROUP+1) NOUT = IZ(IGROUP+2) IF (.NOT.NOPD) CALL GOPEN (PD, IZ(IBUF2), 2) CALL GOPEN(UDV,IZ(IBUF3),3) MCB(1)= UDV CALL RDTRL(MCB) CRLBNB SPR94003 9/94 IF (ICPFLG .EQ. 0) GO TO 217 CALL GOPEN (IOUTPU, IZ(IBUF9), 3) MOUTPU(1) = IOUTPU CALL RDTRL (MOUTPU) 217 CONTINUE CRLBNE IF(NLFTP .EQ. 0) GO TO 220 IF (ISPNL.GT.0) CALL GOPEN (PNL1, IZ(IBUF8), 3) 220 CONTINUE C C RESTORE STUFF SAVED C FILE = SCR1 CALL OPEN(*390,SCR1,IZ(IBUF1),0) CALL FREAD(SCR1,Z(IU1+1),NROW,1) CALL FREAD(SCR1,Z(IU3+1),NROW,1) CALL FREAD(SCR1,Z(IU2+1),NROW,1) CALL FREAD(SCR1,Z(IP2+1),NROW,1) CALL CLOSE(SCR1,1) C C COMPUTE U DOT C CRLBR SPR94003 9/94 H = 1.0D0/DELTA1 225 H = 1.0D0/DELTA1 DO 230 I=1,NROW K = IP1 +I L = IU2 +I M = IU3 +I Z(K) = (Z(L)-Z(M))*H 230 CONTINUE C C COMPUTE U DOT DOT C H = 1.0/(DELTA1*DELTA1) DO 240 I=1,NROW K = IP4+ I L = IU2+ I M = IU3+ I J = IU1+ I Z(K) = (Z(L)- 2.0*Z(M) +Z(J))*H 240 CONTINUE CRLBD SPR94003 9/94 250 CONTINUE C C COMPUTE UI PRIME C H = DELTAT*DELTAT/2.0 DO 260 I=1,NROW K =IU1 +I L = IU2 +I M = IP1+I J = IP4 +I Z(K) = Z(L) -DELTAT*Z(M)+ H*Z(J) 260 CONTINUE C C COMPUTE U DOT PRIME C DO 270 I=1,NROW K = IU3 + I L = IP1+I M = IP4 + I Z(K) = Z(L) -DELTAT*Z(M) 270 CONTINUE C C COMPUTE PI PRIME C DO 280 I=1,NROW K = IP1+I Z(K) = 0.0 280 CONTINUE CALL FORM2(Z(IP4+1),Z(IU3+1),Z(IU1+1),Z(IP1+1),Z(IBUF1)) ICOUNT = 0 CRLBR SPR94003 9/94 GO TO IRET1, (60,10) GO TO IRET1, (60,8) C C INTERNAL ROUTINE TO UNPACK VECTORS C 290 CALL UNPACK(*310,FILE,Z(IPNT+1)) CRLBR SPR94003 9/94 300 GO TO IRETN, (5,30,40,100,350,360,370) 300 GO TO IRETN, (5,30,40,100,340,350,360,370,385,387) CRLBR SPR94003 9/94 310 DO 320 INL = 1,NROW 310 DO 320 INL = III, JJJ K = IPNT +INL Z(K) = 0.0 320 CONTINUE GO TO 300 CRLBNB SPR94003 9/94 C THE FOLLOWING LINES (UNTIL CRPKNE) REPRESENT C REPLACEMENTS FOR THE OLD CODE WHICH HAS BEEN C DELETED BELOW C C RETRIEVE REQUIRED INFORMATION FROM C THE CHECKPOINT RUN C 325 MCOL = NCOL CALL GOPEN (IOUTPU, IZ(IBUF4), 0) MOUTPU(1) = IOUTPU CALL RDTRL (MOUTPU) JSKIP = 1 IF (MOUTPU(4) .EQ. 1) GO TO 335 JSKIP = 2 CALL SKPREC (IOUTPU, MOUTPU(2)) FILE = IOUTPU NWDS = NCOL - 1 327 CALL READ (*410, *330, IOUTPU, MCOL, -NWDS, 0, IFLAG) GO TO 333 330 NWDS = NWDS - IFLAG GO TO 327 333 CALL READ (*410, *333, IOUTPU, MCOL, 1, 0, IFLAG) CALL REWIND (IOUTPU) CALL SKPREC (IOUTPU, 1) C 335 CALL SKPREC (IOUTPU, JSKIP*(MCOL-1)) FILE = IOUTPU JJJ = NROW + 1 C C GET P SUB I+1 C IPNT = IP2 - 1 ASSIGN 340 TO IRETN GO TO 290 340 ITYPE = 1 DELTA1 = Z(IP2) IF (DELTA1 .EQ. DELTAT) GO TO 345 ITYPE = 2 GO TO 350 345 CALL SKPREC (IOUTPU, -(JSKIP+1)) C C GET P SUB I C IPNT = IP1 - 1 ASSIGN 350 TO IRETN GO TO 290 350 CALL CLOSE (IOUTPU, 1) C FILE = UDV CALL GOPEN (UDV, IZ(IBUF3), 0) K = 3*(NCOL - 1) KK = 5 KKK = 4 KKP = 0 JJJ = NROW CALL SKPREC (UDV, K) C C GET U SUB I+1 C IPNT = IU2 ASSIGN 360 TO IRETN GO TO 290 C C GET U DOT SUB I+1 C 360 IPNT = IP3 ASSIGN 370 TO IRETN GO TO 290 C 370 IF (MCOL .EQ. NCOL) GO TO 380 CALL CLOSE (UDV, 1) FILE = IOUTPU CALL GOPEN (IOUTPU, IZ(IBUF4), 0) K = 2*MCOL - 3 KK = 0 KKK = 3 KKP = 1 JJJ = NROW + 1 CALL SKPREC (IOUTPU, K) C C GET U SUB I C 380 IPNT = IU1 - KKP IF (ITYPE .EQ. 2) IPNT = IU3 - KKP CALL SKPREC (FILE, -KK) ASSIGN 385 TO IRETN GO TO 290 385 IF (ITYPE .EQ. 1) GO TO 388 IF (MCOL .EQ. NCOL) GO TO 386 ITEST = Z(IPNT+1) IF (MCOL .EQ. ITEST+1) GO TO 386 WRITE (NNOUT, 500) CALL MESAGE (-61, 0, 0) 386 CALL SKPREC (FILE, -KKK) C C GET U SUB I-1 C IPNT = IU1 - KKP ASSIGN 387 TO IRETN GO TO 290 387 IF (MCOL .EQ. NCOL) GO TO 388 ITEST = Z(IPNT+1) IF (MCOL .EQ. ITEST+2) GO TO 388 WRITE (NNOUT, 600) CALL MESAGE (-61, 0, 0) 388 CALL CLOSE (FILE, 1) JJJ = NROW CALL GOPEN (UDV, IZ(IBUF3), 1) CALL MAKMCB(MCB,UDV,NROW,2,1) C C OUTPUT INITIAL DISPLACEMENT C CALL PACK (Z(IU2 + 1), UDV, MCB(1)) C C OUTPUT INITIAL VELOCITY C CALL PACK (Z(IP3 + 1), UDV, MCB(1)) IF (ITYPE .EQ. 1) GO TO 8 ASSIGN 8 TO IRET1 GO TO 225 CRLBNE CRLBDB SPR94003 9/94 CRLBD C CRLBD C RETRIEVE LAST VECTOR CRLBD C CRLBD 330 CALL GOPEN(UDV,IZ(IBUF3),0) CRLBD K = 3*(NCOL - 1) CRLBD IAPEND = 1 CRLBD CALL SKPREC(UDV,K) CRLBD C CRLBD C GET U SUB I+1 CRLBD C CRLBD IPNT = IU2 CRLBD ASSIGN 350 TO IRETN CRLBD GO TO 290 CRLBD CP CRLBD C GET U SUB I+1 DOT CRLBD C CRLBD 350 IPNT = IP1 CRLBD ASSIGN 360 TO IRETN CRLBD GO TO 290 CRLBD C CRLBD C GET U SUB I+1 DOT DOT CRLBD C CRLBD 360 IPNT = IP4 CRLBD ASSIGN 370 TO IRETN CRLBD GO TO 290 CRLBD 370 CONTINUE CRLBD CALL CLOSE(UDV,1) CRLBD CALL GOPEN (UDV, IZ(IBUF3), 1) CRLBD CALL MAKMCB (MCB, UDV, NROW, 2, 1) CRLBD C CRLBD C OUTPUT INITIAL DISPLACEMENT CRLBD C CRLBD CALL PACK (Z(IU2+1), UDV, MCB(1)) CRLBD C CRLBD C OUTPUT INITIAL VELOCITY CRLBD C CRLBD CALL PACK (Z(IP1+1), UDV, MCB(1)) CRLBD C CRLBD C FORM P SUB I+1 CRLBD C CRLBD DO 380 I =1,NROW CRLBD K = IP2+I CRLBD Z(K) = 0.0 CRLBD 380 CONTINUE CRLBD CALL FORM2(Z(IP4+1),Z(IP1+1),Z(IU2+1),Z(IP2+1),Z(IBUF1)) CRLBD ASSIGN 10 TO IRET1 CRLBD GO TO 250 CRLBDE C C ERROR MESAGES C 390 IP1 = -1 400 CALL MESAGE(IP1,FILE,SUBNAM) RETURN CRLBNB SPR94003 9/94 410 IP1 = -2 GO TO 400 CRLBNE 430 IP1 = -8 FILE= ICRQ GO TO 400 CRLBNB SPR94003 9/94 500 FORMAT ('0*** SYSTEM FATAL MESSAGE, LOGIC ERROR 1 IN ', * 'SUBROUTINE TRD1C2 WHILE PROCESSING THE RESTART ', * 'INFORMATION') 600 FORMAT ('0*** SYSTEM FATAL MESSAGE, LOGIC ERROR 2 IN ', * 'SUBROUTINE TRD1C2 WHILE PROCESSING THE RESTART ', * 'INFORMATION') CRLBNE END ================================================ FILE: mis/trd1c2.f ================================================ SUBROUTINE TRD1C2 (IC,PD,NGROUP,NLFTP,UDV,ILOOP,SCR1,DIT,NLFT, CRLBR SPR94003 9/94 CRLBR1 NOUE,MODAL,PNL) 1 NOUE,MODAL,PNL,ISKIP) C C THIS ROUTINE STEPS INTEGRATION PROCEDURE C C THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION C LOGICAL NOPD INTEGER DIT1,PNL1,PNL,PD,UDV,SCR1,DIT,SYSBUF,FILE,IZ(1), CRLBR SPR94003 9/94 CRLBR1 MCB(7),IPNL(7),SUBNAM(2) 1 MCB(7),IPNL(7),SUBNAM(2),MOUTPU(7) DOUBLE PRECISION Z,H DIMENSION RZ(1) COMMON /BLANK / DUMMY(4),NCOL CRLBR SPR94003 9/94 CRLBR COMMON /SYSTEM/ SYSBUF COMMON /SYSTEM/ SYSBUF, NNOUT, ISYSTM(79), ICPFLG COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / IT1,IT2,II,JJ,INCR COMMON /TRDXX / IK(7),IDUM(14),ISCR1,ISCR2,ISCR3,ISCR4,ISCR5, 1 ISCR6,IOPEN,ISYM,TO,NOPD,ISPNL COMMON /UNPAKX/ IT3,III,JJJ,INCR1 COMMON /TRDD1 / NLFT1,DIT1,NLFTP1,NOUT,ICOUNT,ILOOP1,MODAL1,NZ, 1 ICORE,IU2,IP4,IPNL,NMODES,NSTEP,PNL1,IST,IU1, 2 DELTAT EQUIVALENCE (Z(1),RZ(1),IZ(1)) DATA SUBNAM/ 4HTRD1,2HC2/ CRLBNB SPR94003 9/94 DATA IOUTPU, ISCR9 /203, 309/ CRLBNE C C INITIALIZE C NROW = IK(3) NNROW = 2*NROW IT1 = 2 IT2 = 2 II = 1 JJ = NROW INCR = 1 IT3 = 2 III = 1 JJJ = NROW INCR1 = 1 NZ = KORSZ(Z) IGROUP= NZ - 3*NGROUP + 1 IBUF1 = IGROUP- SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF IBUF5 = IBUF4 - SYSBUF IBUF6 = IBUF5 - SYSBUF IBUF7 = IBUF6 - SYSBUF IBUF8 = IBUF7 - SYSBUF CRLBNB SPR94003 9/94 IF (NLFTP .EQ. 0) IBUF8 = IBUF7 IBUF9 = IBUF8 - SYSBUF IBUFA = IBUF9 - SYSBUF IF (ICPFLG .EQ. 0) IBUFA = IBUF8 IF (ICPFLG .NE. 0 .AND. ISKIP .EQ. 1) IBUFA = IBUF9 NZ = IBUFA - 1 CRLBNE CRLBD SPR94003 9/94 NZ = IBUF7-1 CRLBD SPR94003 9/94 IF(NLFTP .NE. 0) NZ = IBUF8-1 IOPEN = 0 CRLBR SPR94003 9/94 ICRQ = 14*NROW + 1 - NZ ICRQ = 14*(NROW+1) + 1 - NZ IF(ICRQ.GT.0) GO TO 430 CRLBR SPR94003 9/94 IU1=0 IU1=1 CRLBR SPR94003 9/94 IU2= IU1+NROW IU2= IU1+NROW + 1 CRLBR SPR94003 9/94 IU3= IU2+ NROW IU3= IU2+ NROW + 1 CRLBR SPR94003 9/94 IP1= IU3+ NROW IP1= IU3+ NROW + 1 CRLBR SPR94003 9/94 IP2= IP1+ NROW IP2= IP1+ NROW + 1 IP3 = IP2 + NROW IP4 = IP3 + NROW NLFT1 = NLFT DIT1 = DIT NLFTP1= NLFTP ILOOP1= ILOOP MODAL1= MODAL IST = 0 CRLBR SPR94003 9/94 NZ = NZ - 14*NROW - 1 NZ = NZ - 14*(NROW+1) - 1 ICORE = 2*(IP4 + NROW) NMODES= NROW - NOUE PNL1 = PNL ASSIGN 60 TO IRET1 NSTEP = IZ(IGROUP) + 1 DELTAT= RZ(IGROUP+1) NOUT = IZ(IGROUP+2) IF (ILOOP .NE. 1) GO TO 210 C C FIRST ENTRY INITIALIZE STUFF C IST =-1 FILE = PD C C PUT P0 IN IP2 C IPNT = IP2 NOPD =.TRUE. ASSIGN 5 TO IRETN CALL OPEN (*310,PD,IZ(IBUF2),0) CALL SKPREC (PD,1) NOPD = .FALSE. GO TO 290 CRLBD SPR94003 9/94 5 FILE = UDV CRLBD SPR94003 9/94 IAPEND = 0 CRLBR SPR94003 9/94 IF (NCOL .LE. 0) GO TO 8 5 IF (NCOL .GT. 2) GO TO 325 CRLBD SPR94003 9/94 MCB(1) = UDV CRLBD SPR94003 9/94 CALL RDTRL (MCB) CRLBD SPR94003 9/94 IF (MCB(2) .NE. 0) GO TO 330 CRLBR SPR94003 9/94 8 CALL GOPEN (UDV,IZ(IBUF3),1) CALL GOPEN (UDV, IZ(IBUF3), 1) CALL MAKMCB (MCB,UDV,NROW,2,2) CRLBNB SPR94003 9/94 8 IF (ICPFLG .EQ. 0) GO TO 10 CALL MAKMCB (MOUTPU, IOUTPU, NROW+1, ISKIP, 2) CALL GOPEN (IOUTPU, IZ(IBUF9), 1) IF (ISKIP .EQ. 0) CALL GOPEN (ISCR9, IZ(IBUFA), 1) CRLBNE 10 IF (NLFTP .EQ. 0) GO TO 20 C C CHECK TO SEE IF PNL HAS BEEN PRE-PURGED. C IPNL(1) = PNL1 CALL RDTRL (IPNL) ISPNL = 0 IF (IPNL(1) .LE. 0) GO TO 20 ISPNL = 1 CALL GOPEN (PNL1,IZ(IBUF8),1) CALL MAKMCB (IPNL,PNL1,NROW,2,2) 20 CONTINUE CRLBR SPR94003 9/94 IF (IAPEND .EQ. 1) GO TO 50 IF (NCOL .GT. 2) GO TO 50 FILE = IC CALL GOPEN (IC,IZ(IBUF1),0) ASSIGN 30 TO IRETN IPNT = IU2 GO TO 290 30 ASSIGN 40 TO IRETN IPNT = IU3 GO TO 290 40 CALL CLOSE (IC,1) NSTEP = IZ(IGROUP) + 1 DELTAT = RZ(IGROUP+1) NOUT = IZ(IGROUP+2) C C FORM U=1, PO, P-1 C CALL FORM12 (Z(IU2+1),Z(IU3+1),Z(IU1+1),Z(IP2+1),Z(IP1+1),DELTAT, 1 RZ(IBUF1)) C C START TIME STEP COUNT C 50 CONTINUE ICOUNT = 1 CRLBNB SPR94003 9/94 MCOL = 1 CRLBNE C C OPEN FBS FILES C 60 FILE = ISCR1 CALL OPEN (*390,ISCR1,IZ(IBUF4),0) FILE = ISCR2 CALL OPEN (*390,ISCR2,IZ(IBUF5),0) FILE = ISCR3 CIBMR 5/95 C CALL OPEN (*390,ISCR3,IZ(IBUF6),0) IF ( ISYM .EQ. 1 ) CALL OPEN (*390,ISCR3,IZ(IBUF6),0) FILE = ISCR4 CALL OPEN (*390,ISCR4,IZ(IBUF7),0) C C ZERO P* C 70 CALL TMTOGO (ITLEFT) IF (ITLEFT .LE. 0) GO TO 170 DO 80 I = 1,NROW K = IP4 + I Z(K) = 0.0D0 80 CONTINUE IF (NLFTP .EQ. 0) GO TO 90 C C FORM NON-LINEAR LOADS C CALL TRD1D2 IF (ICOUNT.EQ.1 .OR. ICOUNT.EQ.NSTEP .OR. MOD(ICOUNT+IST,NOUT) 1 .EQ.0) GO TO 85 GO TO 90 85 IF (ISPNL .GT. 0) CALL PACK (Z(IP4+1),PNL,IPNL) C C BRING IN NEXT P C 90 IPNT = IP3 FILE = PD ASSIGN 100 TO IRETN IF (NOPD) GO TO 310 GO TO 290 C C ADD P-S TO FORM P* C 100 DO 110 I = 1,NROW K = IP4 + I L = IP1 + I M = IP2 + I J = IP3 + I Z(K) = Z(K) + (Z(L) + Z(M) + Z(J))/3.0D0 110 CONTINUE IF (ILOOP.NE.1 .OR. ICOUNT.NE.1) GO TO 115 CRLBR SPR94003 9/94 IF (IAPEND .EQ. 1) GO TO 115 IF (NCOL .GT. 2) GO TO 113 C C OUTPUT INITIAL DISPLACEMENT C CALL PACK (Z(IU2+1),UDV,MCB(1)) C C OUTPUT INITIAL VELOCITY C CALL PACK (Z(IU3+1),UDV,MCB(1)) CRLBNB SPR94003 9/94 113 IF (ICPFLG .EQ. 0) GO TO 115 IF (ISKIP .EQ. 0) CALL WRITE (ISCR9, MCOL, 1, 0) CRLBNE C C SOLVE FOR NEXT SOLUTION C 115 CALL STEP2 (Z(IU3+1),Z(IU2+1),Z(IU1+1),Z(IP4+1),IZ(IBUF1)) CRLBNB SPR94003 9/94 IF (ICPFLG .EQ. 0) GO TO 118 JJ = NROW + 1 Z(IP2) = DELTAT IF (ILOOP.NE.1 .AND. ICOUNT.EQ.0) Z(IP2) = DELTA1 CALL PACK (Z(IP2), IOUTPU, MOUTPU) IF (ISKIP .EQ. 1) GO TO 117 Z(IU2) = MCOL + 0.1 CALL PACK (Z(IU2), IOUTPU, MOUTPU) 117 JJ = NROW 118 CONTINUE CRLBNE IF (ILOOP.EQ.1 .AND. ICOUNT.EQ.1) GO TO 145 IF (ICOUNT.EQ.NSTEP .OR. MOD(ICOUNT+IST,NOUT).EQ.0) GO TO 130 IF (ICOUNT .EQ. 1) GO TO 130 C C ROTATE P POINTERS C 120 J = IP1 IP1 = IP2 IP2 = IP3 IP3 = J C C ROTATE U POINTERS C J = IU1 IU1 = IU2 IU2 = IU3 IU3 = J ICOUNT = ICOUNT + 1 CRLBNB SPR94003 9/94 MCOL = MCOL + 1 CRLBNE IF (ICOUNT-NSTEP) 70,160,170 C C IT-S OUTPUT TIME -- LUCKY FELLOW C 130 CALL PACK (Z(IU2+1),UDV,MCB(1)) C C COMPUTE U DOT C H = 1.0D0/(2.0D0*DELTAT) DO 140 I = 1,NROW K = IP4 + I L = IU3 + I M = IU1 + I Z(K) = (Z(L)-Z(M))*H 140 CONTINUE CALL PACK (Z(IP4+1),UDV,MCB(1)) CRLBNB SPR94003 9/94 IF (ICPFLG .EQ. 0) GO TO 145 IF (ISKIP .EQ. 0) CALL WRITE (ISCR9, MCOL, 1, 0) CRLBNE C C COMPUTE U DOT DOT C 145 H = 1.0D0/(DELTAT*DELTAT) DO 150 I = 1,NROW K = IP4 + I L = IU3 + I M = IU1 + I J = IU2 + I Z(K) = (Z(L)+Z(M)-2.0D0*Z(J))*H 150 CONTINUE CALL PACK (Z(IP4+1),UDV,MCB(1)) GO TO 120 C C END OF 1 GROUP C 160 IF (ILOOP .NE. NGROUP) GO TO 200 GO TO 70 170 J = 1 180 CALL CLOSE (UDV,J) CALL CLOSE (PD ,J) CRLBNB SPR94003 9/94 IF (ICPFLG .EQ. 0) GO TO 188 IF (J.NE.1 .OR. ISKIP.EQ.1) GO TO 186 CALL CLOSE (ISCR9, 1) C C COPY THE SINGLE RECORD IN FILE ISCR9 AS THE C LAST RECORD IN FILE IOUTPU C CALL GOPEN (ISCR9, IZ(IBUFA), 0) FILE = ISCR9 183 CALL READ (*410, *184, ISCR9, Z(IU2+1), NROW, 0, IFLAG) CALL WRITE (IOUTPU, Z(IU2+1), NROW, 0) GO TO 183 184 CALL WRITE (IOUTPU, Z(IU2+1), IFLAG, 1) CALL CLOSE (ISCR9, 1) 186 CALL CLOSE (IOUTPU, J) CALL WRTTRL (MOUTPU) 188 CONTINUE CRLBNE CALL CLOSE (ISCR1,1) CALL CLOSE (ISCR2,1) CIBMR 5/95 C CALL CLOSE (ISCR3,1) IF ( ISYM .EQ. 1 ) CALL CLOSE (ISCR3,1) CALL CLOSE (ISCR4,1) CALL WRTTRL (MCB) IF (NLFTP.EQ.0 .OR. ISPNL.EQ.0) GO TO 190 CALL CLOSE (PNL,J) CALL WRTTRL (IPNL) 190 RETURN C C MORE GROUPS TO COME SAVE STUFF C 200 J = 2 FILE = SCR1 CALL OPEN (*390,SCR1,IZ(IBUF1),1) CALL WRITE (SCR1,Z(IU3+1),NNROW,1) CALL WRITE (SCR1,Z(IU1+1),NNROW,1) CALL WRITE (SCR1,Z(IU2+1),NNROW,1) CRLBR SPR94003 9/94 CRLBR CALL WRITE (SCR1,Z(IP1+1),NNROW,1) CALL WRITE (SCR1,Z(IP2+1),NNROW,1) CALL CLOSE (SCR1,1) GO TO 180 C C CHANGE OF TIME STEP--RESTORE POINTERS ETC C 210 IGROUP = IGROUP + (ILOOP-1)*3 DELTA1 = RZ(IGROUP-2) NSTEP = IZ(IGROUP ) DELTAT = RZ(IGROUP+1) NOUT = IZ(IGROUP+2) IF (.NOT.NOPD) CALL GOPEN (PD,IZ(IBUF2),2) CALL GOPEN (UDV,IZ(IBUF3),3) MCB(1) = UDV CALL RDTRL (MCB) CRLBNB SPR94003 9/94 IF (ICPFLG .EQ. 0) GO TO 217 CALL GOPEN (IOUTPU, IZ(IBUF9), 3) MOUTPU(1) = IOUTPU CALL RDTRL (MOUTPU) 217 CONTINUE CRLBNE IF (NLFTP .EQ. 0) GO TO 220 IF (ISPNL .GT. 0) CALL GOPEN (PNL1,IZ(IBUF8),3) 220 CONTINUE C C RESTORE STUFF SAVED C FILE = SCR1 CALL OPEN (*390,SCR1,IZ(IBUF1),0) CALL FREAD (SCR1,Z(IU1+1),NNROW,1) CALL FREAD (SCR1,Z(IU3+1),NNROW,1) CALL FREAD (SCR1,Z(IU2+1),NNROW,1) CALL FREAD (SCR1,Z(IP2+1),NNROW,1) CALL CLOSE (SCR1,1) C C COMPUTE U DOT C CRLBR SPR94003 9/94 H = 1.0D0/DELTA1 225 H = 1.0D0/DELTA1 DO 230 I = 1,NROW K = IP1 + I L = IU2 + I M = IU3 + I Z(K) = (Z(L)-Z(M))*H 230 CONTINUE C C COMPUTE U DOT DOT C H = 1.0D0/(DELTA1*DELTA1) DO 240 I = 1,NROW K = IP4 + I L = IU2 + I M = IU3 + I J = IU1 + I Z(K) = (Z(L)-2.0D0*Z(M)+Z(J))*H 240 CONTINUE CRLBD SPR94003 9/94 250 CONTINUE C C COMPUTE UI PRIME C H = DELTAT*DELTAT/2.0D0 DO 260 I = 1,NROW K = IU1 + I L = IU2 + I M = IP1 + I J = IP4 + I Z(K) = Z(L) - DELTAT*Z(M) + H*Z(J) 260 CONTINUE C C COMPUTE U DOT PRIME C DO 270 I = 1,NROW K = IU3 + I L = IP1 + I M = IP4 + I Z(K) = Z(L) - DELTAT*Z(M) 270 CONTINUE C C COMPUTE PI PRIME C DO 280 I = 1,NROW K = IP1 + I Z(K) = 0.0D0 280 CONTINUE CALL FORM22 (Z(IP4+1),Z(IU3+1),Z(IU1+1),Z(IP1+1),RZ(IBUF1)) ICOUNT = 0 CRLBR SPR94003 9/94 GO TO IRET1, (60,10) GO TO IRET1, (60,8) C C INTERNAL ROUTINE TO UNPACK VECTORS C 290 CALL UNPACK (*310,FILE,Z(IPNT+1)) CRLBR SPR94003 9/94 300 GO TO IRETN, (5,30,40,100,350,360,370) 300 GO TO IRETN, (5,30,40,100,340,350,360,370,385,387) CRLBR SPR94003 9/94 310 DO 320 INL = 1,NROW 310 DO 320 INL = III, JJJ K = IPNT + INL Z(K) = 0.0D0 320 CONTINUE GO TO 300 CRLBNB SPR94003 9/94 C THE FOLLOWING LINES (UNTIL CRPKNE) REPRESENT C REPLACEMENTS FOR THE OLD CODE WHICH HAS BEEN C DELETED BELOW C C RETRIEVE REQUIRED INFORMATION FROM C THE CHECKPOINT RUN C 325 MCOL = NCOL CALL GOPEN (IOUTPU, IZ(IBUF4), 0) MOUTPU(1) = IOUTPU CALL RDTRL (MOUTPU) JSKIP = 1 IF (MOUTPU(4) .EQ. 1) GO TO 335 JSKIP = 2 CALL SKPREC (IOUTPU, MOUTPU(2)) FILE = IOUTPU NWDS = NCOL - 1 327 CALL READ (*410, *330, IOUTPU, MCOL, -NWDS, 0, IFLAG) GO TO 333 330 NWDS = NWDS - IFLAG GO TO 327 333 CALL READ (*410, *333, IOUTPU, MCOL, 1, 0, IFLAG) CALL REWIND (IOUTPU) CALL SKPREC (IOUTPU, 1) C 335 CALL SKPREC (IOUTPU, JSKIP*(MCOL-1)) FILE = IOUTPU JJJ = NROW + 1 C C GET P SUB I+1 C IPNT = IP2 - 1 ASSIGN 340 TO IRETN GO TO 290 340 ITYPE = 1 DELTA1 = Z(IP2) IF (DELTA1 .EQ. DELTAT) GO TO 345 ITYPE = 2 GO TO 350 345 CALL SKPREC (IOUTPU, -(JSKIP+1)) C C GET P SUB I C IPNT = IP1 - 1 ASSIGN 350 TO IRETN GO TO 290 350 CALL CLOSE (IOUTPU, 1) C FILE = UDV CALL GOPEN (UDV, IZ(IBUF3), 0) K = 3*(NCOL - 1) KK = 5 KKK = 4 KKP = 0 JJJ = NROW CALL SKPREC (UDV, K) C C GET U SUB I+1 C IPNT = IU2 ASSIGN 360 TO IRETN GO TO 290 C C GET U DOT SUB I+1 C 360 IPNT = IP3 ASSIGN 370 TO IRETN GO TO 290 C 370 IF (MCOL .EQ. NCOL) GO TO 380 CALL CLOSE (UDV, 1) FILE = IOUTPU CALL GOPEN (IOUTPU, IZ(IBUF4), 0) K = 2*MCOL - 3 KK = 0 KKK = 3 KKP = 1 JJJ = NROW + 1 CALL SKPREC (IOUTPU, K) C C GET U SUB I C 380 IPNT = IU1 - KKP IF (ITYPE .EQ. 2) IPNT = IU3 - KKP CALL SKPREC (FILE, -KK) ASSIGN 385 TO IRETN GO TO 290 385 IF (ITYPE .EQ. 1) GO TO 388 IF (MCOL .EQ. NCOL) GO TO 386 ITEST = Z(IPNT+1) IF (MCOL .EQ. ITEST+1) GO TO 386 WRITE (NNOUT, 500) CALL MESAGE (-61, 0, 0) 386 CALL SKPREC (FILE, -KKK) C C GET U SUB I-1 C IPNT = IU1 - KKP ASSIGN 387 TO IRETN GO TO 290 387 IF (MCOL .EQ. NCOL) GO TO 388 ITEST = Z(IPNT+1) IF (MCOL .EQ. ITEST+2) GO TO 388 WRITE (NNOUT, 600) CALL MESAGE (-61, 0, 0) 388 CALL CLOSE (FILE, 1) JJJ = NROW CALL GOPEN (UDV, IZ(IBUF3), 1) CALL MAKMCB(MCB,UDV,NROW,2,1) C C OUTPUT INITIAL DISPLACEMENT C CALL PACK (Z(IU2 + 1), UDV, MCB(1)) C C OUTPUT INITIAL VELOCITY C CALL PACK (Z(IP3 + 1), UDV, MCB(1)) IF (ITYPE .EQ. 1) GO TO 8 ASSIGN 8 TO IRET1 GO TO 225 CRLBNE CRLBDB SPR94003 9/94 CRLBD C CRLBD C RETRIEVE LAST VECTOR CRLBD C CRLBD 330 CALL GOPEN (UDV,IZ(IBUF3),0) CRLBD K = 3*(NCOL-1) CRLBD IAPEND = 1 CRLBD CALL SKPREC (UDV,K) CRLBD C CRLBD C GET U SUB I+1 CRLBD C CRLBD IPNT = IU2 CRLBD ASSIGN 350 TO IRETN CRLBD GO TO 290 CRLBD CP CRLBD C GET U SUB I+1 DOT CRLBD C CRLBD 350 IPNT = IP1 CRLBD ASSIGN 360 TO IRETN CRLBD GO TO 290 CRLBD C CRLBD C GET U SUB I+1 DOT DOT CRLBD C CRLBD 360 IPNT = IP4 CRLBD ASSIGN 370 TO IRETN CRLBD GO TO 290 CRLBD 370 CONTINUE CRLBD CALL CLOSE (UDV,1) CRLBD CALL GOPEN (UDV,IZ(IBUF3),1) CRLBD CALL MAKMCB (MCB,UDV,NROW,2,2) CRLBD C CRLBD C OUTPUT INITIAL DISPLACEMENT CRLBD C CRLBD CALL PACK (Z(IU2+1),UDV,MCB(1)) CRLBD C CRLBD C OUTPUT INITIAL VELOCITY CRLBD C CRLBD CALL PACK (Z(IP1+1),UDV,MCB(1)) CRLBD C CRLBD C FORM P SUB I+1 CRLBD C CRLBD DO 380 I = 1,NROW CRLBD K = IP2 + I CRLBD Z(K) = 0.0D0 CRLBD 380 CONTINUE CRLBD CALL FORM22 (Z(IP4+1),Z(IP1+1),Z(IU2+1),Z(IP2+1),RZ(IBUF1)) CRLBD ASSIGN 10 TO IRET1 CRLBD GO TO 250 CRLBDE C C ERROR MESAGES C 390 IP1 = -1 400 CALL MESAGE (IP1,FILE,SUBNAM) RETURN CRLBNB SPR94003 9/94 410 IP1 = -2 GO TO 400 CRLBNE C 430 IP1 = -8 FILE = ICRQ GO TO 400 CRLBNB SPR94003 9/94 500 FORMAT ('0*** SYSTEM FATAL MESSAGE, LOGIC ERROR 1 IN ', * 'SUBROUTINE TRD1C2 WHILE PROCESSING THE RESTART ', * 'INFORMATION') 600 FORMAT ('0*** SYSTEM FATAL MESSAGE, LOGIC ERROR 2 IN ', * 'SUBROUTINE TRD1C2 WHILE PROCESSING THE RESTART ', * 'INFORMATION') CRLBNE END ================================================ FILE: mis/trd1d.f ================================================ SUBROUTINE TRD1D C C THIS ROUTINE COMPUTES NON-LINEAR LOADS FOR TRANSIENT ANALYSIS C C THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION C LOGICAL DEC INTEGER IZ(1),PNL,DIT,FILE,SYSBUF,ITLIST(13),NAME(2), 1 NMTD(2) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ SYSBUF,IOUT COMMON /MACHIN/ MACH COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / IT1,IT2,II,NROW,INCR COMMON /TRDD1 / NLFT,DIT,NLFTP,NOUT,ICOUNT,ILOOP,MODAL,LCORE, 1 ICORE,IU,IP,IPNL(7),NMODES,NSTEP,PNL,IST,IU1, 2 DELTAT,IFRST,TABS,SIGMA,TIM EQUIVALENCE (Z(1),IZ(1)) DATA ITLIST/ 4,1105,11,1,1205,12,2,1305,13,3,1405,14,4/ DATA NAME / 4HNLFT,4HTRDD/ DATA NMTD / 4HTRD1,4HD / DATA KOUNT / 0 / C C IDENTIFICATION OF VARIABLES C C NLFT NON-LINEAR FUNCTION TABLE C PNL NON-LINEAR FORCES --MATRIX C DIT DIRECT INPUT TABLES C NLFTP NON-LINEAR FUNCTION SET SELECTION C NOUT OUT PUT EVERY NOUT TIME STEPS( PLUS 1 AND NSTEP) C ICOUNT CURRENT INTERATION COUNTER C ILOOP LOOP ON NUMBER OF TIME STEP CHANGES C MODAL LESS THAN ZERO IMPLIES THIS IS A DIRECT FORMULATION C LCORE AMOUNT OF CORE FOR TRD1D C ICORE POINTER TO FIRST CELL OF OPEN CORE C IU POINTER TO LATEST DISPLACEMENT VECTOR C IU1 POINTER TO DISPLACEMENT VECTOR -- ONE TIME STEP BACK C IP POINTER TO LOAD VECTOR C NMODES NUMBER OF MODES IN PROBLEM C NSTEP NUMBER OF TIME STEPS C ITLIST LIST OF CARD TYPES FOR DYNAMIC TABLES C NROW SIZE OF SOLUTION SET C IBUF1 POINTER TO BUFFER C NCARDS NUMBER OF LOAD CARDS IN SELECTED SET C ICARDS POINTER TO FIRST CARD C NTABL NUMBER OF TABLES C ITABL POINTER TO FIRST TABLE C IPNL MATRIX CONTROL BLOCK FOR PNL C C DESCRIPTION OF TYPES OF NON-LINEAR LOADING C C TYPE DESCRIPTION C ---- ----------- C C 1 DISPLACEMENT-DEPENDENT NOLIN1 LOAD C 2 DISPLACEMENT-DEPENDENT/DISPLACEMENT-DEPENDENT NOLIN2 LOAD C 3 DISPLACEMENT-DEPENDENT NOLIN3 LOAD C 4 DISPLACEMENT-DEPENDENT NOLIN4 LOAD C 5 VELOCITY-DEPENDENT NOLIN1 LOAD C 6 VELOCITY-DEPENDENT/DISPLACEMENT-DEPENDENT NOLIN2 LOAD C 7 VELOCITY-DEPENDENT NOLIN3 LOAD C 8 VELOCITY-DEPENDENT NOLIN4 LOAD C 9 VELOCITY-DEPENDENT/VELOCITY-DEPENDENT NOLIN2 LOAD C 10 DISPLACEMENT-DEPENDENT/VELOCITY-DEPENDENT NOLIN2 LOAD C 11 TEMPERATURE-DEPENDENT CONVECTION NON-LINEAR LOAD (FTUBE) C 12 TEMPERATURE-DEPENDENT EMISSIVITIES-ABSORPTIVITIES, NOLIN5 C 13 DISPLACEMENT-DEPENDENT/VELOCITY-DEPENDENT NOLIN6 LOAD C 14 VELOCITY-DEPENDENT/DISPLACEMENT-DEPENDENT NOLIN6 LOAD C C DETERMINE ENTRY NUMBER C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 IPX = IP C IF ((ILOOP.EQ.1 .AND. ICOUNT.GT.1) .OR. (ILOOP.GT.1 .AND. 1 ICOUNT.GT.0)) GO TO 170 IF (IFRST .NE. 0) GO TO 170 C C FIRST TIME FOR TIME STEP C CALL SSWTCH (10,IALG) IBUF1 = LCORE + ICORE - SYSBUF FILE = NLFT LCORE = LCORE - SYSBUF - 1 ICRQ =-LCORE IF (LCORE .LE. 0) GO TO 430 CALL OPEN (*400,NLFT,IZ(IBUF1),0) C C FIND SELECTED SET ID C CALL READ (*420,*10,NLFT,IZ(ICORE+1),LCORE,0,IFLAG) ICRQ = LCORE GO TO 430 10 DO 20 I = 3,IFLAG K = I + ICORE IF (IZ(K) .EQ. NLFTP) GO TO 30 20 CONTINUE CALL MESAGE (-31,NLFTP,NAME) C C FOUND SET ID -- POSITION TO RECORD IN NLFT C 30 K = I - 3 IF (K .EQ. 0) GO TO 50 DO 40 I = 1,K CALL FWDREC (*420,NLFT) 40 CONTINUE C C BRING IN 8 WORDS PER CARD C FORMAT = TYPE,SILD,SILE,A,SILD,SILE,A OR SILD,SILE C CONVERT TO TYPE,ROWP,ROWP,A,ROWP OR A C COUNT NUMBER OF CARDS C 50 NCARDS = 0 ICARDS = ICORE + 1 K = ICARDS 60 ICRQ = 8 - LCORE IF (ICRQ .GT. 0) GO TO 430 CALL READ (*420,*80,NLFT,IZ(K),8,0,IFLAG) IF (MODAL .LT. 0) GO TO 70 C C MODAL FORM -- CONVERT SILE TO ROW POSITIONS AND STORE IN SILD C IF (IZ(K+2) .EQ. 0) GO TO 440 IZ(K+1) = IZ(K+2) + NMODES IF (IZ(K+5) .EQ. 0) GO TO 440 IZ(K+4) = IZ(K+5) + NMODES IF (IZ(K).NE.2 .AND. IZ(K).NE.6 .AND. IZ(K).NE.9 .AND. 1 IZ(K).NE.10) GO TO 70 IF (IZ(K+7) .EQ. 0) GO TO 440 IZ(K+6) = IZ(K+7) + NMODES 70 CONTINUE C C MOVE UP C IZ(K+2) = IZ(K+4) IZ(K+4) = IZ(K+6) K = K + 5 LCORE = LCORE - 5 NCARDS = NCARDS + 1 GO TO 60 C C END OF RECORD-- DONE C 80 CALL CLOSE (NLFT,1) C C EXTRACT LIST OF UNIQUE TABLES FROM CARD TYPES 1,5,11 THRU 14 C L = ICARDS NTABL = 0 ITABL = K NUMTB = 1 DO 120 I = 1,NCARDS IZL = IZ(L) IF (IZL.NE.1 .AND. IZL.NE.5 .AND. (IZL.LT.11 .OR. IZL.GT.14)) 1 GO TO 110 IF (IZL.NE.11 .AND. IZL.NE.12) GO TO 85 IZL = IZ(L+4) IF (IZ(L) .NE. 11) GO TO 83 C C NFTUBE CARD C 81 NXX = NUMTYP(IZL) IF (DEC .AND. IZL.GT.16000 .AND. IZL.LE.99999999) NXX = 1 IF (NXX-1) 110,85,110 C C NOLIN5 CARD C 83 NXX = NUMTYP(IZ(L+3)) IF (DEC .AND. IZ(L+3).GT.16000 .AND. IZ(L+3).LE.99999999) 1 NXX = 1 IF (NXX .NE. 1) GO TO 81 ITID1 = IZ(L+3) NXX = NUMTYP(IZL) IF (DEC .AND. IZL.GT.16000 .AND. IZL.LE.99999999) NXX = 1 IF (NXX .NE. 1) GO TO 87 ITID2 = IZ(L+4) NUMTB = 2 GO TO 89 85 ITID1 = IZ(L+4) 87 NUMTB = 1 89 CONTINUE C C FIND OUT IF UNIQUE TABLE C IF (NTABL .EQ. 0) GO TO 100 DO 90 M = 1,NTABL K = ITABL + M IF (IZ(K) .EQ. ITID1) GO TO 110 90 CONTINUE C C NEW TABLE C 100 NTABL = NTABL + 1 K = ITABL + NTABL IZ(K) = ITID1 110 CONTINUE IF (NUMTB .EQ. 1) GO TO 115 NUMTB = 1 ITID1 = ITID2 GO TO 89 115 L = L + 5 120 CONTINUE C IZ(ITABL) = NTABL LCORE = LCORE - NTABL - 1 ICRQ =-LCORE IF (LCORE .LE. 0) GO TO 430 IF (NTABL .EQ. 0) GO TO 150 C C INITIALIZE TABLES C K = ITABL + NTABL + 1 CALL PRETAB (DIT,IZ(K),IZ(K),IZ(IBUF1),LCORE,L,IZ(ITABL),ITLIST) LCORE = LCORE - L IF (IALG .EQ. 0) GO TO 140 IN1 = K + L - 1 IN2 = IN1 + NROW IN3 = IN2 + NROW LCORE = LCORE - 3*NROW ICRQ =-LCORE IF (LCORE .LT. 0) GO TO 430 C C ZERO LOAD VECTORS C DO 130 I = 1,NROW K = IN1 + I Z(K) = 0.0 K = IN2 + I Z(K) = 0.0 K = IN3 + I Z(K) = 0.0 130 CONTINUE 140 CONTINUE 150 RETURN C C COMPUTE LOADS C 170 K = ICARDS + NCARDS*5 - 1 IF (IALG .EQ. 0) GO TO 180 IPX = IN1 DO 175 I = 1,NROW L = IN1 + I Z(L)= 0.0 175 CONTINUE C C LOOP THRU EACH LOAD CARD OR COLLECTION (NOLIN5, NOLIN6) C 180 H = 1.0/DELTAT I = ICARDS 190 CONTINUE FX = 0.0 FY = 1.0 M = IU + IZ(I+2) MM = IU + IZ(I+4) N = IU1 + IZ(I+2) NN = IU1 + IZ(I+4) X = Z(M) Y = (X-Z(N))*H L = IZ(I) C L = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14 GO TO (200,210,220,230,205,213,225,235,215,217,250,260,240,245), L C C NOLIN 1 C 200 CALL TAB (IZ(I+4),X,FX) GO TO 290 205 X = Y GO TO 200 C C NOLIN 2 C 210 Y = Z(MM) FX= X*Y GO TO 290 213 X = Y GO TO 210 215 X = Y 217 FX= X*(Z(MM)-Z(NN))*H GO TO 290 C C NOLIN 3 C 220 IF (X .LE. 0.0) GO TO 290 FX = X**Z(I+4) GO TO 290 225 X = Y GO TO 220 C C NOLIN 4 C 230 IF(X .GE. 0.0) GO TO 290 FX =-ABS(X)**Z(I+4) GO TO 290 235 X = Y GO TO 230 C C NOLIN 6 C 240 X = Y FY = X*ABS(X) X = Z(M) GO TO 200 245 Y = Z(MM) FY = Y*ABS(Y) GO TO 200 C C NFTUBE. LOOKUP VDOT IF NEEDED C 250 FX = Z(I+4) IZL = IZ(I+4) NXX = NUMTYP(IZL) IF (DEC .AND. IZL.GT.16000 .AND. IZL.LE.99999999) NXX = 1 IF (NXX .EQ. 1) CALL TAB (IZ(I+4),TIM,FX) IF (FX .GE. 0.0) M=IU+IZ(I+1) FX = FX*Z(M) L = IPX + IZ(I+2) Z(L)= Z(L) + FX*Z(I+3) FY =-1.0 GO TO 290 C C NOLIN5 C C A. COMPUTE SURFACE AVERAGE TEMPERATURES C 260 MM = 0 NN = 0 TAVGA = 0.0 TAVGB = 0.0 J = 1 DO 270 L = 1,4 IF (L .EQ. 3) J = 6 M = IZ(I+J) IF (M .EQ. 0) GO TO 265 M = IU + M TAVGA = TAVGA+Z(M) MM = MM + 1 265 M = IZ(I+J+10) IF (M .EQ. 0) GO TO 270 M = IU + M TAVGB = TAVGB+Z(M) NN = NN + 1 270 J = J + 1 TAVGA = TAVGA/FLOAT(MM) TAVGB = TAVGB/FLOAT(NN) AA = Z(I+3) AB = Z(I+4) FAB = Z(I+8) FABSQ = FAB*FAB ETA = Z(I+13) ETB = Z(I+14) NXX = NUMTYP(IZ(I+13)) IF (DEC .AND. IZ(I+13).GT.16000 .AND. IZ(I+13).LE.99999999) 1 NXX = 1 IF (NXX .EQ. 1) CALL TAB (IZ(I+13),TAVGA,ETA) NXX = NUMTYP(IZ(I+14)) IF (DEC .AND. IZ(I+14).GT.16000 .AND. IZ(I+14).LE.99999999) 1 NXX = 1 IF (NXX .EQ. 1) CALL TAB (IZ(I+14),TAVGB,ETB) ALPHA = Z(I+18) ALPHB = Z(I+19) NXX = NUMTYP(IZ(I+18)) IF (DEC .AND. IZ(I+18).GT.16000 .AND. IZ(I+18).LE.99999999) 1 NXX = 1 IF (NXX .EQ. 1) CALL TAB (IZ(I+18),TAVGA,ALPHA) NXX = NUMTYP(IZ(I+19)) IF (DEC .AND. IZ(I+19).GT.16000 .AND. IZ(I+19).LE.99999999) 1 NXX = 1 IF (NXX .EQ. 1) CALL TAB (IZ(I+19),TAVGB,ALPHB) ALPHA = ALPHA - 1.0 ALPHB = ALPHB - 1.0 C C B. COMPUTE DENOMINATOR C XH = SIGMA*ETA*(TAVGA+TABS)**4 XK = SIGMA*ETB*(TAVGB+TABS)**4 FX = ALPHA*FAB*XK - AA*XH +FAB*XK - (ALPHB*FABSQ*XH)/AB FY = ALPHB*FAB*XH - AB*XK +FAB*XH - (ALPHA*FABSQ*XK)/AA FAB = 1.0 - (ALPHA*ALPHB/AA)*(FABSQ/AB) FX = FX/(FAB*FLOAT(MM)) FY = FY/(FAB*FLOAT(NN)) C C C. APPLY FORCES ON AREAS A AND B C J = 1 DO 280 L = 1,4 IF (L .EQ. 3) J = 6 M = IZ(I+J) IF (M .EQ. 0) GO TO 275 M = IPX + M Z(M) = Z(M) + FX 275 M = IZ(I+J+10) IF (M .EQ. 0) GO TO 280 M = IPX + M Z(M) = Z(M) + FY 280 J = J + 1 I = I + 20 GO TO 320 C C FINISH APPLYING SCALE FACTOR AND ADD C 290 L = IPX + IZ(I+1) Z(L) = Z(L) + FX*FY*Z(I+3) IF (ABS(Z(L)) .LT. 1.0E-36) Z(L) = 0.0 IF (ABS(Z(L)) .LT. 1.0E+36) GO TO 310 KOUNT = KOUNT + 1 IF (KOUNT.EQ.1 .OR. KOUNT.EQ.4) WRITE (IOUT,295) IF (KOUNT .LE. 3) WRITE (IOUT,300) UWM,Z(L) 295 FORMAT (/1X,28(4H****),/) 300 FORMAT (A25,' 3309, UNUSUALLY LARGE VALUE COMPUTED FOR NONLINEAR', 1 ' FORCING FUNCTION',5X,E15.5) 310 I = I + 5 320 IF (I .LT. K) GO TO 190 C C END OF LOAD LOOP C C C DONE C IF (IALG .EQ. 0) GO TO 380 DO 370 I = 1,NROW C C SUM OVER LAST THREE LOADS C L = IP + I K = IN1 + I M = IN2 + I KK = IN3 + I Z(L) = Z(L) + (Z(K)+Z(M)+Z(KK))/3.0 370 CONTINUE C C SWITCH POINTERS C K = IN1 IN1 = IN2 IN2 = IN3 IN3 = K 380 RETURN C C ERROR MESSAGES C 400 WRITE (IOUT,405) UFM 405 FORMAT (A23,', NON-LINEAR FORCING LOAD (NLFT) WAS NOT GENERATED ', 1 'PREVIOUSLY') IP1 = -37 410 CALL MESAGE (IP1,FILE,NMTD) RETURN 420 IP1 = -2 GO TO 410 430 IP1 = -8 FILE= ICRQ GO TO 410 C C LOADED POINT NOT E-POINT IN MODAL FORMULATION C 440 CALL MESAGE (-44,NLFTP,IZ(K)) RETURN END ================================================ FILE: mis/trd1d2.f ================================================ SUBROUTINE TRD1D2 C C THIS ROUTINE COMPUTES NON-LINEAR LOADS FOR TRANSIENT ANALYSIS C C THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION C LOGICAL DEC INTEGER IZ(1),PNL,DIT,FILE,SYSBUF,ITLIST(13),NAME(2), 1 NMTD(2) DIMENSION Z(1) DOUBLE PRECISION X,Y,DZ,H,FX,FY CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /SYSTEM/ SYSBUF,IOUT COMMON /MACHIN/ MACH COMMON /ZZZZZZ/ DZ(1) COMMON /PACKX / IT1,IT2,II,NROW,INCR COMMON /TRDD1 / NLFT,DIT,NLFTP,NOUT,ICOUNT,ILOOP,MODAL,LCORE, 1 ICORE,IU,IP,IPNL(7),NMODES,NSTEP,PNL,IST,IU1, 2 DELTAT,IFRST,TABS,SIGMA,TIM EQUIVALENCE (Z(1),IZ(1),DZ(1)) DATA ITLIST/ 4,1105,11,1,1205,12,2,1305,13,3,1405,14,4/ DATA NAME / 4HNLFT,4HTRDD / DATA NMTD / 4HTRD1,4HD2 / DATA KOUNT / 0 / C C IDENTIFICATION OF VARIABLES C C NLFT NON-LINEAR FUNCTION TABLE C PNL NON-LINEAR FORCES --MATRIX C DIT DIRECT INPUT TABLES C NLFTP NON-LINEAR FUNCTION SET SELECTION C NOUT OUT PUT EVERY NOUT TIME STEPS( PLUS 1 AND NSTEP) C ICOUNT CURRENT INTERATION COUNTER C ILOOP LOOP ON NUMBER OF TIME STEP CHANGES C MODAL LESS THAN ZERO IMPLIES THIS IS A DIRECT FORMULATION C LCORE AMOUNT OF CORE FOR TRD1D C ICORE POINTER TO FIRST CELL OF OPEN CORE C IU POINTER TO LATEST DISPLACEMENT VECTOR C IU1 POINTER TO DISPLACEMENT VECTOR -- ONE TIME STEP BACK C IP POINTER TO LOAD VECTOR C NMODES NUMBER OF MODES IN PROBLEM C NSTEP NUMBER OF TIME STEPS C ITLIST LIST OF CARD TYPES FOR DYNAMIC TABLES C NROW SIZE OF SOLUTION SET C IBUF1 POINTER TO BUFFER C NCARDS NUMBER OF LOAD CARDS IN SELECTED SET C ICARDS POINTER TO FIRST CARD C NTABL NUMBER OF TABLES C ITABL POINTER TO FIRST TABLE C IPNL MATRIX CONTROL BLOCK FOR PNL C C DESCRIPTION OF TYPES OF NON-LINEAR LOADING C C TYPE DESCRIPTION C ---- ----------- C C 1 DISPLACEMENT-DEPENDENT NOLIN1 LOAD C 2 DISPLACEMENT-DEPENDENT/DISPLACEMENT-DEPENDENT NOLIN2 LOAD C 3 DISPLACEMENT-DEPENDENT NOLIN3 LOAD C 4 DISPLACEMENT-DEPENDENT NOLIN4 LOAD C 5 VELOCITY-DEPENDENT NOLIN1 LOAD C 6 VELOCITY-DEPENDENT/DISPLACEMENT-DEPENDENT NOLIN2 LOAD C 7 VELOCITY-DEPENDENT NOLIN3 LOAD C 8 VELOCITY-DEPENDENT NOLIN4 LOAD C 9 VELOCITY-DEPENDENT/VELOCITY-DEPENDENT NOLIN2 LOAD C 10 DISPLACEMENT-DEPENDENT/VELOCITY-DEPENDENT NOLIN2 LOAD C 11 TEMPERATURE-DEPENDENT CONVECTION NON-LINEAR LOAD (FTUBE) C 12 TEMPERATURE-DEPENDENT EMISSIVITIES-ABSORPTIVITIES, NOLIN5 C 13 DISPLACEMENT-DEPENDENT/VELOCITY-DEPENDENT NOLIN6 LOAD C 14 VELOCITY-DEPENDENT/DISPLACEMENT-DEPENDENT NOLIN6 LOAD C C DETERMINE ENTRY NUMBER C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 IPX = IP C IF ((ILOOP.EQ.1 .AND. ICOUNT.GT.1) .OR. (ILOOP.GT.1 .AND. 1 ICOUNT.GT.0)) GO TO 170 IF (IFRST .NE. 0) GO TO 170 C C FIRST TIME FOR TIME STEP C CALL SSWTCH (10,IALG) IBUF1 = LCORE + ICORE - SYSBUF FILE = NLFT LCORE = LCORE - SYSBUF - 1 ICRQ =-LCORE IF (LCORE .LE. 0) GO TO 430 CALL OPEN (*400,NLFT,IZ(IBUF1),0) C C FIND SELECTED SET ID C CALL READ (*420,*10,NLFT,IZ(ICORE+1),LCORE,0,IFLAG) ICRQ = LCORE GO TO 430 10 DO 20 I = 3,IFLAG K = I + ICORE IF (IZ(K) .EQ. NLFTP) GO TO 30 20 CONTINUE CALL MESAGE (-31,NLFTP,NAME) C C FOUND SET ID -- POSITION TO RECORD IN NLFT C 30 K = I-3 IF (K .EQ. 0) GO TO 50 DO 40 I = 1,K CALL FWDREC (*420,NLFT) 40 CONTINUE C C BRING IN 8 WORDS PER CARD C FORMAT = TYPE,SILD,SILE,A,SILD,SILE,A OR SILD,SILE C CONVERT TO TYPE,ROWP,ROWP,A,ROWP OR A C COUNT NUMBER OF CARDS C 50 NCARDS = 0 ICARDS = ICORE + 1 K = ICARDS 60 ICRQ = 8 - LCORE IF (ICRQ .GT. 0) GO TO 430 CALL READ (*420,*80,NLFT,IZ(K),8,0,IFLAG) IF (MODAL .LT. 0) GO TO 70 C C MODAL FORM -- CONVERT SILE TO ROW POSITIONS AND STORE IN SILD C IF (IZ(K+2) .EQ. 0) GO TO 440 IZ(K+1) = IZ(K+2) + NMODES IF (IZ(K+5) .EQ. 0) GO TO 440 IZ(K+4) = IZ(K+5) + NMODES IF (IZ(K).NE.2 .AND. IZ(K).NE.6 .AND. IZ(K).NE.9 .AND. 1 IZ(K).NE.10) GO TO 70 IF (IZ(K+7) .EQ. 0) GO TO 440 IZ(K+6) = IZ(K+7) + NMODES 70 CONTINUE C C MOVE UP C IZ(K+2) = IZ(K+4) IZ(K+4) = IZ(K+6) K = K + 5 LCORE = LCORE - 5 NCARDS = NCARDS + 1 GO TO 60 C C END OF RECORD-- DONE C 80 CALL CLOSE (NLFT,1) C C EXTRACT LIST OF UNIQUE TABLES FROM CARD TYPES 1,5,11 AND 14 C L = ICARDS NTABL = 0 ITABL = K DO 120 I = 1,NCARDS IZL = IZ(L) IF (IZL.NE.1 .AND. IZL.NE.5 .AND. (IZL.LT.11 .OR. IZL.GT.14)) 1 GO TO 110 IF (IZL.NE.11 .AND. IZL.NE.12) GO TO 85 IZL = IZ(L+4) IF (IZ(L) .NE. 11) GO TO 83 C C NFTUBE CARD C 81 NXX = NUMTYP(IZL) IF (DEC .AND. IZL.GT.16000 .AND. IZL.LE.99999999) NXX = 1 IF (NXX-1) 110,85,110 C C NOLIN5 CARD C 83 NXX = NUMTYP(IZ(L+3)) IF (DEC .AND. IZ(L+3).GT.16000 .AND. IZ(L+3).LE.99999999) 1 NXX = 1 IF (NXX .NE. 1) GO TO 81 ITID1 = IZ(L+3) NXX = NUMTYP(IZL) IF (DEC .AND. IZL.GT.16000 .AND. IZL.LE.99999999) NXX = 1 IF (NXX .NE. 1) GO TO 87 ITID2 = IZ(L+4) NUMTB = 2 GO TO 89 85 ITID1 = IZ(L+4) 87 NUMTB = 1 89 CONTINUE C C FIND OUT IF UNIQUE TABLE C IF (NTABL .EQ. 0) GO TO 100 DO 90 M = 1,NTABL K = ITABL + M IF (IZ(K) .EQ. ITID1) GO TO 110 90 CONTINUE C C NEW TABLE C 100 NTABL = NTABL + 1 K = ITABL + NTABL IZ(K) = ITID1 110 CONTINUE IF (NUMTB .EQ. 1) GO TO 115 NUMTB = 1 ITID1 = ITID2 GO TO 89 115 L = L + 5 120 CONTINUE C IZ(ITABL) = NTABL LCORE = LCORE - NTABL - 1 ICRQ =-LCORE IF (LCORE .LE. 0) GO TO 430 IF (NTABL .EQ. 0) GO TO 150 C C INITIALIZE TABLES C K = ITABL + NTABL + 1 CALL PRETAB (DIT,IZ(K),IZ(K),IZ(IBUF1),LCORE,L,IZ(ITABL),ITLIST) LCORE = LCORE - L IF (IALG .EQ. 0) GO TO 140 IN1 = (K + L)/2 IN2 = IN1 + NROW IN3 = IN2 + NROW LCORE = LCORE - 6*NROW ICRQ =-LCORE IF (LCORE .LT. 0) GO TO 430 C C ZERO LOAD VECTORS C DO 130 I = 1,NROW K = IN1 + I DZ(K) = 0.0D0 K = IN2 + I DZ(K) = 0.0D0 K = IN3 + I DZ(K) = 0.0D0 130 CONTINUE 140 CONTINUE 150 RETURN C C COMPUTE LOADS C 170 K = ICARDS + NCARDS*5 - 1 IF (IALG .EQ. 0) GO TO 180 IPX = IN1 DO 175 I = 1,NROW L = IN1 + I DZ(L) = 0.0D0 175 CONTINUE C C LOOP THRU EACH LOAD CARD OR COLLECTION (NOLIN5, NOLIN6) C 180 H = 1.0D0/DELTAT I = ICARDS 190 CONTINUE FX = 0.0D0 FY = 1.0D0 M = IU + IZ(I+2) MM = IU + IZ(I+4) N = IU1+ IZ(I+2) NN = IU1+ IZ(I+4) X = DZ(M) Y = (X-DZ(N))*H L = IZ(I) C L = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14 GO TO (200,210,220,230,205,213,225,235,215,217,250,260,240,245), L C C NOLIN 1 C 200 XSP = X CALL TAB (IZ(I+4),XSP,FXSP) FX = FXSP GO TO 290 205 X = Y GO TO 200 C C NOLIN 2 C 210 Y = DZ(MM) FX = X*Y GO TO 290 213 X = Y GO TO 210 215 X = Y 217 FX = X*(DZ(MM) - DZ(NN))*H GO TO 290 C C NOLIN 3 C 220 IF (X .LE. 0.0D0) GO TO 290 FX = X**Z(I+4) GO TO 290 225 X = Y GO TO 220 C C NOLIN 4 C 230 IF (X .GE. 0.0D0) GO TO 290 FX =-DABS(X)**Z(I+4) GO TO 290 235 X = Y GO TO 230 C C NOLIN6 C 240 X = Y FY = X*DABS(X) X = DZ(M) GO TO 200 245 Y = DZ(MM) FY = Y*DABS(Y) GO TO 200 C C NFTUBE. LOOKUP VDOT IF NEEDED C 250 FXSP = Z(I+4) IZL = IZ(I+4) NXX = NUMTYP(IZL) IF (DEC .AND. IZL.GT.16000 .AND. IZL.LE.99999999) NXX = 1 IF (NXX .EQ. 1) CALL TAB (IZ(I+4),TIM,FXSP) IF (FXSP .GE. 0.0) M = IU + IZ(I+1) FX = FXSP*DZ(M) L = IPX + IZ(I+2) DZ(L)= DZ(L) + FX*Z(I+3) FY =-1.0D0 GO TO 290 C C NOLIN5 C C A. COMPUTE SURFACE AVERAGE TEMPERATURES C 260 MM = 0 NN = 0 TAVGA = 0.0 TAVGB = 0.0 J = 1 DO 270 L = 1,4 IF (L .EQ. 3) J = 6 M = IZ(I+J) IF (M .EQ. 0) GO TO 265 M = IU + M TAVGA = TAVGA + Z(M) MM = MM + 1 265 M = IZ(I+J+10) IF (M .EQ. 0) GO TO 270 M = IU + M TAVGB = TAVGB + Z(M) NN = NN + 1 270 J = J + 1 TAVGA = TAVGA/FLOAT(MM) TAVGB = TAVGB/FLOAT(NN) AA = Z(I+3) AB = Z(I+4) FAB = Z(I+8) FABSQ = FAB*FAB ETA = Z(I+13) ETB = Z(I+14) NXX = NUMTYP(IZ(I+13)) IF (DEC .AND. IZ(I+13).GT.16000 .AND. IZ(I+13).LE.99999999) 1 NXX = 1 IF (NXX .EQ. 1) CALL TAB (IZ(I+13),TAVGA,ETA) NXX = NUMTYP(IZ(I+14)) IF (DEC .AND. IZ(I+14).GT.16000 .AND. IZ(I+14).LE.99999999) 1 NXX = 1 IF (NXX .EQ. 1) CALL TAB (IZ(I+14),TAVGB,ETB) ALPHA = Z(I+18) ALPHB = Z(I+19) NXX = NUMTYP(IZ(I+18)) IF (DEC .AND. IZ(I+18).GT.16000 .AND. IZ(I+18).LE.99999999) 1 NXX = 1 IF (NXX .EQ. 1) CALL TAB (IZ(I+18),TAVGA,ALPHA) NXX = NUMTYP(IZ(I+19)) IF (DEC .AND. IZ(I+19).GT.16000 .AND. IZ(I+19).LE.99999999) 1 NXX = 1 IF (NXX .EQ. 1) CALL TAB (IZ(I+19),TAVGB,ALPHB) ALPHA = ALPHA - 1.0 ALPHB = ALPHB - 1.0 C C B. COMPUTE DENOMINATOR C XH = SIGMA*ETA*(TAVGA+TABS)**4 XK = SIGMA*ETB*(TAVGB+TABS)**4 FXSP= ALPHA*FAB*XK - AA*XH + FAB*XK - (ALPHB*FABSQ*XH)/AB FYSP= ALPHB*FAB*XH - AB*XK + FAB*XH - (ALPHA*FABSQ*XK)/AA FAB = 1.0 - (ALPHA*ALPHB/AA)*(FABSQ/AB) FX = FXSP/(FAB*FLOAT(MM)) FY = FYSP/(FAB*FLOAT(NN)) C C C. APPLY FORCES ON AREAS A AND B C J = 1 DO 280 L = 1,4 IF (L .EQ. 3) J = 6 M = IZ(I+J) IF (M .EQ. 0) GO TO 275 M = IPX + M DZ(M) = DZ(M) + FX 275 M = IZ(I+J+10) IF (M .EQ. 0) GO TO 280 M = IPX + M DZ(M) = DZ(M) + FY 280 J = J + 1 I = I + 20 GO TO 320 C C FINISH APPLYING SCALE FACTOR AND ADD C 290 L = IPX + IZ(I+1) DZ(L) = DZ(L) + FX*FY*Z(I+3) IF (DABS(DZ(L)) .LT. 1.0D-36) DZ(L) = 0.0D0 IF (DABS(DZ(L)) .LT. 1.0D+36) GO TO 310 KOUNT = KOUNT + 1 IF (KOUNT.EQ.1 .OR. KOUNT.EQ.4) WRITE (IOUT,295) IF (KOUNT .LE. 3) WRITE (IOUT,300) UWM,DZ(L) 295 FORMAT (/1X,28(4H****),/) 300 FORMAT (A25,' 3309, UNUSUALLY LARGE VALUE COMPUTED FOR NONLINEAR', 1 ' FORCING FUNCTION',5X,D15.5) 310 I = I + 5 320 IF (I .LT. K) GO TO 190 C C END OF LOAD LOOP C C DONE C IF (IALG .EQ. 0) GO TO 380 DO 370 I = 1,NROW C C SUM OVER LAST THREE LOADS C L = IP + I K = IN1 + I M = IN2 + I KK = IN3 + I DZ(L) = DZ(L) + (DZ(K)+DZ(M)+DZ(KK))/3.0D0 370 CONTINUE C C SWITCH POINTERS C K = IN1 IN1 = IN2 IN2 = IN3 IN3 = K 380 RETURN C C ERROR MESSAGES C 400 WRITE (IOUT,405) UFM 405 FORMAT (A23,', NON-LINEAR FORCING LOAD (NLFT) WAS NOT GENERATED', 1 ' PREVIOUSLY') IP1 =-37 410 CALL MESAGE (IP1,FILE,NMTD) RETURN 420 IP1 =-2 GO TO 410 430 IP1 =-8 FILE = ICRQ GO TO 410 C C LOADED POINT NOT E-POINT IN MODAL FORMULATION C 440 CALL MESAGE (-44,NLFTP,IZ(K)) RETURN END ================================================ FILE: mis/trd1e.f ================================================ SUBROUTINE TRD1E(MHH,BHH,KHH,PH,UHV,NGROUP) C C THIS ROUTINE SOLVES TRANSIENT PROBLEM ANALYTICALLY IN CASE C OF UNCOUPLED MODAL WITH NO NONLINEAR LOADS C REAL MI,KI INTEGER IZ(1),SYSBUF,IUHV(7),BHH,PH,UHV,FILE INTEGER NAME(2) C CRLBNB SPR94003 9/94 COMMON /BLANK / DUMMY(4), NCOL CRLBNE COMMON /PACKX/ IT1,IT2,II,JJ,INCUR COMMON /UNPAKX/IT3,III,JJJ,INCUR1 COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF C EQUIVALENCE (IZ(1),Z(1)) C DATA NAME/4HTRD1,4HE / DATA EPSI/1.0E-8/ C********* C DEFINITION OF VARIABLES C********* C IGROUP POINTER TO TIME STEP DATA N1,DELTAT,NO C NGROUP NUMBER OF TIME STEP CHANGES C MHH MODAL MASS FILE C KHH MODAL STIFFNESS FILE C BHH MODAL DAMPING FILE C PH LOAD FILE C UHV DISPLACEMENT,VELOCITY, AND ACCELERATION FILE C NMODES ORDER OF MODAL FORMULATION C IMII POINTER TO MASSES C IBII POINTER TO DAMPING C IKII POINTER TO STIFFNESS C IF POINTER TO F-S C IFPR POINTER TO F PRIMES C IG POINTER TO G-S C IGPR C IA POINTER TO A-S C IAPR C IB POINTER TO B-S C IBPR C IUJ POINTER TO OLD DISP C IUJ1 TO NEW DISP C IUDJ POINTER TO OLD VELOCITY VECTOR C IUDJ1 NEW VELOCITY VECTOR C IPHJ POINTER TO OLD LOAD VECTOR C IPHJ1 NEW LOAD VECTOR C NSTEP NUMBER OF STEPS AT CURRENT INCREMENT C H CURRENT DELTA T C NOUT OUTPUT INCURMENT C EPSI CASE SELTION TOLERANCE C C******** HERE WE GO --GET LOTS OF PAPER C LC = KORSZ(Z) LC =LC -NGROUP*3 IGROUP = LC+1 IST =-1 IBUF1 =LC -SYSBUF IBUF2 =IBUF1 -SYSBUF LC = LC - 2*SYSBUF IUHV(1)= MHH CALL RDTRL(IUHV) NMODES = IUHV(2) IT1=1 IT2=1 IT3=1 INCUR=1 INCUR1=1 II=1 JJ=NMODES ICRQ = 17*NMODES - LC IF(ICRQ.GT.0) GO TO 340 C C BRING IN H MATRICES C C C BRING IN MHH FILE =MHH IMII =0 KK=IMII ASSIGN 10 TO IRETN GO TO 280 C C BRING IN BHH 10 DO 11 J=1,NMODES IF(Z(J) .EQ. 0.0) GO TO 350 11 CONTINUE FILE = BHH IBII= IMII+ NMODES KK = IBII ASSIGN 20 TO IRETN GO TO 280 C C BRING IN KHH 20 FILE =KHH IKII = IBII +NMODES KK= IKII ASSIGN 30 TO IRETN GO TO 280 C C ASSIGN ADDITIONAL POINTERS C 30 III=1 JJJ=NMODES IF = IKII + NMODES IG = IF + NMODES IA = IG + NMODES IB = IA + NMODES IFPR=IB + NMODES IGPR=IFPR + NMODES IAPR=IGPR + NMODES IBPR=IAPR + NMODES IUJ =IBPR + NMODES IUJ1=IUJ + NMODES IUDJ=IUJ1 + NMODES IUDJ1=IUDJ+ NMODES IPHJ =IUDJ1+NMODES IPHJ1=IPHJ +NMODES CRLBNB SPR94003 9/94 IF (NCOL .LE. 2) GO TO 37 C C RETRIEVE OLD DISPLACEMENT AND VELOCITY C FROM A PREVIOUSLY CHECKPOINTED RUN C CALL GOPEN (UHV, IZ(IBUF1), 0) I = 3*(NCOL - 1) CALL SKPREC (UHV, I) C C RETRIEVE OLD DISPLACEMENT C CALL UNPACK (*31, UHV, Z(IUJ1+1)) GO TO 33 31 DO 32 I = 1, NMODES K = IUJ1 + I Z(K) = 0.0 32 CONTINUE C C RETRIEVE OLD VELOCITY C 33 CALL UNPACK (*34, UHV, Z(IUDJ1+1)) GO TO 36 34 DO 35 I = 1, NMODES K = IUDJ1 + I Z(K) = 0.0 35 CONTINUE 36 CALL CLOSE (UHV, 1) CRLBNE C C READY UHV C CRLBR SPR94003 9/94 CALL GOPEN(UHV,IZ(IBUF1),1) 37 CALL GOPEN(UHV,IZ(IBUF1),1) CALL MAKMCB(IUHV,UHV,NMODES,2,1) C C READY LOADS C CALL GOPEN(PH,IZ(IBUF2),0) CALL UNPACK(*40,PH,Z(IPHJ1+1)) GO TO 60 C C ZERO LOAD C 40 DO 50 I=1,NMODES K = IPHJ1+I Z(K) = 0.0 50 CONTINUE CRLBNB SPR94003 9/94 60 IF (NCOL .GT. 2) GO TO 75 CRLBNE C C ZERO INITIAL DISPLACEMENT AND VELOCITY C CRLBR SPR 94003 9/94 60 DO 70 I=1,NMODES DO 70 I=1,NMODES K = IUJ1+I Z(K) = 0.0 K = IUDJ1+I Z(K) = 0.0 70 CONTINUE C C BEGIN LOOP ON EACH DIFFERENT TIME STEP C CRLBR SPR 94003 9/94 I = 1 75 I = 1 80 NSTEP = IZ(IGROUP) IF(I .EQ. 1) NSTEP = NSTEP+1 H = Z(IGROUP+1) NOUT = IZ(IGROUP+2) IGROUP = IGROUP +3 JK = 1 IF(I .EQ. 1) GO TO 170 C C COMPUTE F-S ,G-S,A-S,B-S C 90 DO 140 J=1,NMODES K= IMII+J MI= Z(K) IF(MI .EQ. 0.0) GO TO 350 K= IBII+J BI= Z(K) K = IKII+J KI= Z(K) WOSQ =KI/MI BETA = BI/(2.0*MI) BETASQ =BETA*BETA WSQ = ABS(WOSQ - BETASQ) W = SQRT(WSQ) IF(SQRT(WSQ + BETASQ)*H .LT. 1.E-6) GO TO 100 T1 = ( WOSQ-BETASQ ) / WOSQ IF( T1 .GT. EPSI ) GO TO 110 IF( T1 .LT. -EPSI) GO TO 130 C C CASE 3 CRITICALLY DAMPED C BH = BETA*H EXPBH = EXP(-BH) T1 = H*KI K = IF+J C C COMPUTE F C Z(K) = EXPBH*(1.0 +BH) C C COMPUTE G C K = IG +J Z(K)= H*EXPBH C C COMPUTE A C K = IA +J Z(K) = (2.0/BETA - EXPBH/BETA*(2.0 +2.0*BH + BH*BH))/ T1 C C COMPUTE B C K=IB +J Z(K) = (-2.0 +BH+EXPBH*(2.0+BH))/(BH*KI) C C COMPUTE F PRIME C K= IFPR+J Z(K) = -BETASQ*H*EXPBH C C COMPUTE G PRIME C K = IGPR+J Z(K)= EXPBH*(1.0- BH) C C COMPUTE A PRIME C K = IAPR +J Z(K) = (EXPBH*(1.0 + BH + BH*BH)- 1.0)/T1 C C COMPUTE B PRIME C K = IBPR +J Z(K) = (1.0 -EXPBH*(BH +1.0))/T1 GO TO 140 C C CASE 4 W0 = BETA =0.0 C 100 K=IF+J Z(K)=1.0 K= IG+J Z(K)=H K= IA+J Z(K)= H*H/(3.0*MI) K= IB+J Z(K)= H*H/(6.0*MI) K= IFPR+J Z(K)=0.0 K= IGPR+J Z(K)=1.0 T1 = H/(2.0*MI) K = IAPR+J Z(K)= T1 K= IBPR+J Z(K)= T1 GO TO 140 C C CASE 1 --UNDERDAMPED C 110 WH = W*H EXPBH = EXP(-BETA*H) SINWH = SIN(WH) COSWH = COS(WH) C C COMPUTE F C 120 K= IF +J Z(K)= EXPBH*(COSWH +BETA/W *SINWH) C C COMPUTE G C K = IG +J Z(K) = EXPBH/W*SINWH C C COMPUTE A C K= IA+J T1 =(WSQ -BETASQ)/WOSQ T2 = 2.0*W*BETA/WOSQ T3 = WH*KI Z(K)= (EXPBH*((T1-BETA*H)*SINWH-(T2+WH)*COSWH)+T2)/T3 C C COMPUTE B C K =IB +J Z(K) = (EXPBH*(-T1*SINWH + T2*COSWH)+WH- T2)/T3 C C COMPUTE FPRIME C K = IFPR+J Z(K) = -WOSQ/W*EXPBH*SINWH C C COMPUTE G PRIME C K =IGPR +J Z(K) = EXPBH*(COSWH -BETA/W *SINWH) C C COMPUTE A PRIME C K = IAPR +J Z(K) =(EXPBH*((BETA +WOSQ*H)*SINWH +W*COSWH)- W)/T3 C C COMPUTE B PRIME C K =IBPR +J Z(K) = (-EXPBH*(BETA*SINWH +W*COSWH) + W)/T3 GO TO 140 C C CASE 3 W0 - BETASQ L -E C 130 WH =W*H EXPBH= EXP(-BETA*H) SINWH = SINH(WH) COSWH = COSH(WH) BETASQ = -BETASQ GO TO 120 140 CONTINUE C C BEGIN LOOP ON INCREMENTS C C C COMPUTE NEW DISPLACEMENTS C 150 K = IUJ1 KK=IUDJ1 DO 160 L=1,NMODES K=K+1 KK =KK+1 Z(K)=0.0 Z(KK)=0.0 KKK = IF+L KD = IUJ +L Z(K) =Z(KKK)*Z(KD) +Z(K) KKK = IFPR +L Z(KK) = Z(KKK)*Z(KD) +Z(KK) KD= IUDJ+L KKK = IG +L Z(K) = Z(KKK)*Z(KD) +Z(K) KKK = IGPR +L Z(KK) = Z(KKK)*Z(KD) +Z(KK) KD = IPHJ +L KKK = IA +L Z(K) = Z(KKK)*Z(KD) +Z(K) KKK = IAPR +L Z(KK)= Z(KKK)*Z(KD) + Z(KK) KD = IPHJ1+L KKK= IB +L Z(K) = Z(KKK)*Z(KD) +Z(K) KKK = IBPR +L Z(KK) = Z(KKK)*Z(KD) + Z(KK) 160 CONTINUE IF(JK .EQ. NSTEP) GO TO 200 IF( JK .NE. 1 .AND. MOD(JK+IST,NOUT) .NE. 0) GO TO 180 C C TIME TO OUTPUT--YOU LUCKY FELLOW C 170 ASSIGN 190 TO IRETN GO TO 220 180 ASSIGN 190 TO IRETN GO TO 240 190 JK = JK+1 IF(JK .EQ. 2 .AND. I .EQ. 1) GO TO 90 IF(JK .LE. NSTEP) GO TO 150 200 ASSIGN 210 TO IRETN GO TO 220 210 I =I+1 IST = 0 IF( I .LE. NGROUP) GO TO 80 CALL CLOSE(PH,1) CALL CLOSE(UHV,1) CALL WRTTRL(IUHV) RETURN C C INTERNAL SUBROUTINE FOR OUTPUT AND VELOCITY COMPUTE C 220 CALL PACK(Z(IUJ1+1),UHV,IUHV) CALL PACK(Z(IUDJ1+1),UHV,IUHV) C C COMPUTE ACCELERATIONS C DO 230 L=1,NMODES K= IUDJ+L KK=IPHJ1+L KKK = IMII+L KD = IBII+L KD1= IUDJ1+L KD2= IUJ1 +L KD3 = IKII+L Z(K) = Z(KK)/Z(KKK)-Z(KD)*Z(KD1)/Z(KKK)-Z(KD3)*Z(KD2)/Z(KKK) 230 CONTINUE CALL PACK(Z(IUDJ+1),UHV,IUHV) C C SWITCH POINTS TO STUFF C 240 KD= IUJ IUJ = IUJ1 IUJ1=KD KD= IUDJ IUDJ =IUDJ1 IUDJ1=KD KD = IPHJ IPHJ =IPHJ1 IPHJ1= KD C C BRING IN NEXT LOAD VECTOR C CALL UNPACK(*260,PH,Z(IPHJ1+1)) 250 GO TO IRETN,(190,210) 260 DO 270 KD=1,NMODES K = IPHJ1 +KD Z(K) =0.0 270 CONTINUE GO TO 250 C C INTERNAL SUBROUTINE TO BRING IN H MATRICES C 280 CALL OPEN(*302,FILE,IZ(IBUF1),0) CALL SKPREC(FILE,1) DO 300 KD=1,NMODES III= KD JJJ= KD KD1= KK+KD CALL UNPACK(*290,FILE,Z(KD1)) GO TO 300 290 Z(KD1)= 0.0 300 CONTINUE CALL CLOSE(FILE,1) 301 GO TO IRETN,(10,20,30) C C ZERO CORE FOR PURGED FILES C 302 DO 303 KD = 1,NMODES KD1 = KK + KD Z(KD1) = 0.0 303 CONTINUE GO TO 301 C C ERROR MESAGES C 320 CALL MESAGE(IP1,FILE,NAME) RETURN 340 IP1 = -8 FILE = ICRQ GO TO 320 350 IP1 = -43 FILE = J GO TO 320 END  ================================================ FILE: mis/tree.f ================================================ SUBROUTINE TREE (IROOT,NDSTK,LVL,IWK,NDEG,LVLWTH,LVLBOT,LVLN, 1 MAXLW,IBORT,JWK) C C TREE DROPS A TREE IN NDSTK FROM IROOT C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C LVL- ARRAY INDICATING AVAILABLE NODES IN NDSTK WITH ZERO C ENTRIES. TREE ENTERS LEVEL NUMBERS ASSIGNED C DURING EXECUTION OF OF THIS PROCEDURE C IWK- ON OUTPUT CONTAINS NODE NUMBERS USED IN TREE C ARRANGED BY LEVELS (IWK(LVLN) CONTAINS IROOT C AND IWK(LVLBOT+LVLWTH-1) CONTAINS LAST NODE ENTERED) C JWK- ON ONTPUT CONTAINS A ROW OF UNPACKED GRID NOS. C CURRENTLY, JWK AND RENUM SHARE SAME CORE SPACE C LVLWTH- ON OUTPUT CONTAINS WIDTH OF LAST LEVEL C LVLBOT- ON OUTPUT CONTAINS INDEX INTO IWK OF FIRST C NODE IN LAST LEVEL C MAXLW- ON OUTPUT CONTAINS THE MAXIMUM LEVEL WIDTH C LVLN- ON INPUT THE FIRST AVAILABLE LOCATION IN IWK C USUALLY ONE BUT IF IWK IS USED TO STORE PREVIOUS C CONNECTED COMPONENTS, LVLN IS NEXT AVAILABLE LOCATION. C ON OUTPUT THE TOTAL NUMBER OF LEVELS + 1 C IBORT- INPUT PARAM WHICH TRIGGERS EARLY RETURN IF C MAXLW BECOMES .GE. IBORT C C INTEGER BUNPK DIMENSION LVL(1), IWK(1), NDEG(1), NDSTK(1), JWK(1) C MAXLW =0 ITOP =LVLN INOW =LVLN LVLBOT=LVLN LVLTOP=LVLN+1 LVLN =1 LVL(IROOT)=1 IWK(ITOP) =IROOT 30 LVLN =LVLN+1 35 IWKNOW=IWK(INOW) NDROW =NDEG(IWKNOW) CALL BUNPAK(NDSTK,IWKNOW,NDROW,JWK) DO 40 J=1,NDROW ITEST=JWK(J) IF (LVL(ITEST).NE.0) GO TO 40 LVL(ITEST)=LVLN ITOP=ITOP+1 IWK(ITOP)=ITEST 40 CONTINUE INOW=INOW+1 IF (INOW.LT.LVLTOP) GO TO 35 LVLWTH=LVLTOP-LVLBOT IF (MAXLW.LT.LVLWTH) MAXLW=LVLWTH IF (MAXLW.GE.IBORT .OR. ITOP.LT.LVLTOP) RETURN LVLBOT=INOW LVLTOP=ITOP+1 GO TO 30 END ================================================ FILE: mis/trht.f ================================================ SUBROUTINE TRHT C C TRANSIENT INTEGRATION HEAT TRANSFER MODULE C C INPUTS CASEXX,USETD,NLFT,DIT,GPTT,KDD,BDD,RDD,PD,TRL (10) C C OUTPUTS UDVT,PNLD (2) C C SCRATCHES (7) C PARAMETERS BETA(R),TABS(R),NORAD(L),RADLIN(L) C C ICR1 IS LLL C ICR2 IS ULL C ICR5 IS INITIAL CONDITIONS C ICR6 IS A MATRIX C ICR3,ICR4,ICR7 ARE DECOMP SCRATCH FILES C INTEGER CASEXX,USETD,NLFT,DIT,GPTT,KDD,BDD,RDD,PD,TRL, 1 UDVT,PNLD,RADLIN,ISCR1,ISCR2,ISCR3,ISCR4, 2 IZ(1),NAME(2),IPNL(7),SYSBUF,DIT1,PNL1 COMMON /BLANK / BETA,TABS,NORAD,RADLIN,SIGMA COMMON /SYSTEM/ KSYSTM(65) COMMON /ZZZZZZ/ Z(1) COMMON /TRHTX / IK(7),IB(7),ICR1,ICR2,ICR3,ICR4,ICR5,ISYM,ICR6, 1 ICR7,TIM COMMON /TRDD1 / NLFT1,DIT1,NLFTP1,NOUT,ICOUNT,ILOOP1,MODA1,NZ, 1 ICORE,IU2,IP4,IPNL,NMODES,NSTEP,PNL1,IST,MORE(6) EQUIVALENCE (KSYSTM(1),SYSBUF),(KSYSTM(55),IPREC),(Z(1),IZ(1)) DATA CASEXX, USETD,NLFT,DIT,GPTT,KDD,BDD,RDD,PD ,TRL/ 1 101 , 102 ,103 ,104,105 ,106,107,108,109,110/, 2 UDVT , PNLD,ISCR1 ,ISCR2,ISCR3,ISCR4,ISCR5,ISCR6,ISCR7/ 3 201 , 202 ,301 ,302 ,303 ,304 ,305 ,306 ,307 / DATA NAME / 4HTRD ,4H /, NB / 8 / C C SET UP FILES C IK(1) = KDD CALL RDTRL (IK) IB(1) = BDD CALL RDTRL (IB) ICR1 = ISCR1 ICR2 = ISCR2 ICR3 = ISCR3 ICR4 = ISCR4 ICR5 = ISCR5 ICR6 = ISCR6 ICR7 = ISCR7 C C SET UP NONLINEAR FILES C NLFT1 = NLFT DIT1 = DIT PNL1 = PNLD IF (IK(1) .LE. 0) IK(1) = 0 IF (IB(1) .LE. 0) IB(1) = 0 MODA1 = -1 IF (IB(1) .NE. 0) IK(2) = IB(2) C C OBTAIN PARAMETERS, INITIAL CONDITIONS C CALL TRHT1A (CASEXX,USETD,GPTT,TRL,NGROUP) C C ALLOCATE CORE C NZ = KORSZ(Z) IGROUP = NZ - 3*NGROUP + 1 NV = 4 IF (NLFTP1.NE.0 .OR. NORAD.NE.-1) NV = NV + 3 IF (NZ .LT. NV*IK(2)*IPREC-NB*SYSBUF-3*NGROUP) 1 CALL MESAGE (-8,0,NAME) TIM = 0. DO 10 I = 1, NGROUP CALL KLOCK (ITIM1) NSTEP = IZ(IGROUP ) DELTA = Z(IGROUP+1) IGROUP = IGROUP + 3 C C FORM A MATRIX AND DECOMPOSE C CALL TRHT1B (3*NGROUP,DELTA) CALL KLOCK (ITIM3) CALL TRHT1C (NGROUP,UDVT,PD,RDD,I) CALL KLOCK (ITIM2) CALL TMTOGO (ITLEFT) IF (I .EQ. NGROUP) GO TO 10 IF ((ITIM 3-ITIM1+((ITIM 2-ITIM 3)/NSTEP)*IZ(IGROUP)) .GE. ITLEFT) 1 GO TO 30 10 CONTINUE 20 RETURN C 30 CALL MESAGE (45,NGROUP-I,NAME) GO TO 20 END ================================================ FILE: mis/trht1a.f ================================================ SUBROUTINE TRHT1A (CASEXX,USETD,GPTT,TRL,NGROUP) C C TRHT1A INITIALIZES FOR TRHT MODULE C C ITS TASK IS TO EXTRACT INITIAL CONDITION POINTS FROM CASEXX C AND TO PUT INITIAL STUFF ON ICR5 C EXTERNAL ANDF INTEGER CASEXX,USETD,GPTT,TRL,SYSBUF,IZ(160),NAME(2), 1 FILE,ANDF,TWO1,MCB(7),IA(1) COMMON /BITPOS/ ISK(11),IUE,ISK1(3),IUD COMMON /TWO / TWO1(32) COMMON /BLANK / X COMMON /SYSTEM/ SYSBUF COMMON /TRHTX / IK(7),IB(7),ICR1,ICR2,ICR3,ICR4,ISCR5 COMMON /TRDD1 / NLFT1,DIT1,NLFTP1 COMMON /ZZZZZZ/ Z(1) COMMON /ZBLPKX/ A(4),II COMMON /PACKX / IT1,IT2,II1,JJ1,INCR EQUIVALENCE (Z(1),IZ(1)), (A(1),IA(1)) DATA NAME / 4HTRHT,4H1A / C C NZ = KORSZ(Z) NX = NZ IBUF1 = NZ - SYSBUF + 1 NZ = NZ - SYSBUF CALL GOPEN (CASEXX,IZ(IBUF1),0) CALL FREAD (CASEXX,IZ(1),166,1) CALL CLOSE (CASEXX,1) ITSTEP = IZ(38) NLFTP1 = IZ(160) INTMP = IZ(9) INLTMP = IZ(8) C C FIND STUFF ON TRL C FILE = TRL CALL OPEN (*200,TRL,IZ(IBUF1),0) CALL READ (*220,*10,TRL,IZ(1),NZ,0,IFLAG) GO TO 230 10 NS = IZ(3) CALL SKPREC (TRL,NS) 30 CALL READ (*240,*40,TRL,IZ(1),NZ,0,IFLAG) GO TO 230 40 IF (IZ(1) .NE. ITSTEP) GO TO 30 C C TSTEP STUFF FOUND C CALL CLOSE (TRL,1) NGROUP = (IFLAG-1)/3 C C MOVE TSETP STUFF TO BOTTOM OF CURE C NZ = NX - IFLAG + 1 IGROUP = NZ + 1 DO 50 I = 2,IFLAG K = IGROUP + I - 2 IZ(K) = IZ(I) 50 CONTINUE IBUF1 = NZ - SYSBUF + 1 IBUF2 = IBUF1 -SYSBUF NZ = IBUF2 CALL GOPEN (ISCR5,IZ(IBUF1),1) CALL WRITE (ISCR5,IZ(IGROUP),IFLAG-1,1) FILE = USETD C C BRING IN USETD C CALL GOPEN (USETD,IZ(IBUF2),0) CALL READ (*220,*60,USETD,IZ(1),NZ,1,LUSETD) GO TO 230 60 CALL CLOSE (USETD,1) C C BUILD SIL TO SILD CONVERTER TABLE C MSKUE = TWO1(IUE) MSKUD = TWO1(IUD) M = 1 L = 0 DO 70 I = 1,LUSETD IF (ANDF(IZ(I),MSKUE) .NE. 0) GO TO 65 L = L + 1 IF (ANDF(IZ(I),MSKUD) .EQ. 0) GO TO 67 IZ(L) = M 65 CONTINUE M = M + 1 GO TO 70 67 IZ(L) = 0 70 CONTINUE C C FIND STUFF IN GPTT C ITS = INTMP CALL MAKMCB (MCB,ISCR5,M-1,2,1) NS = 0 FILE = GPTT CALL OPEN (*200,GPTT,IZ(IBUF2),0) C C POSITION TO HEADER RECORD C IVAL = NZ - 2*L CALL READ (*220,*80,GPTT,IZ(L+1),IVAL,0,IFLAG) GO TO 230 C C PUT OUT TEMPS C 80 CONTINUE C C DETERMINE NUMBER OF ELEMENT TEMP RECORDS TO SKIP. C LIST = L + 3 K = L + IFLAG 82 NSK = IZ(K) IF (NSK .GT. 0) GO TO 84 K = K - 3 IF (K .GT. LIST) GO TO 82 C C SET IPOS TO SKIP ELEMENT TEMP RECORDS AND DUPLICATE HEADER. C 84 IPOS = -NSK MCB(2) = 0 90 IF (ITS .EQ. 0) GO TO 170 K = LIST 100 IF (IZ(K) .EQ. ITS) GO TO 110 K = K + 3 IF (K .GT. L+IFLAG) CALL MESAGE (-31,ITS,NAME) GO TO 100 C C FOUND TEMP SET C 110 TDFLT = 0.0 IF (IZ(K+1) .NE. -1) TDFLT = Z(K+1) M = L + IFLAG DO 130 I = 1,L J = M + I Z(J) = TDFLT 130 CONTINUE C C RECORD NUMBER OF TEMP SET FOUND C NS = IZ(K+2) IF (NS .EQ. 0) GO TO 150 C C SKIP TO DESIRED RECORD C 132 IF (NS-IPOS) 134,140,136 134 CALL BCKREC (GPTT) IPOS = IPOS - 1 GO TO 132 136 CALL FWDREC (*220,GPTT) IPOS = IPOS + 1 GO TO 132 140 CALL READ (*220,*145,GPTT,A,2,0,IFLG) IF (IA(1) .LE. 0) GO TO 140 J = IA(1) + M Z (J) = A(2) GO TO 140 145 IPOS = IPOS + 1 C C ALL SET UP OUTPUT C 150 INEXT = M + 1 DO 160 I = 1,L J = M + I II = IZ(I) + M IF (II .EQ. M) GO TO 160 IF (II .EQ. INEXT) GO TO 155 DO 153 K = INEXT,II 153 Z(K) = 0.0 155 Z(II) = Z(J) INEXT = II + 1 160 CONTINUE J = INEXT - (M+1) CALL WRITE (ISCR5,Z(M+1),J,0) 170 CALL WRITE (ISCR5,Z(1),0,1) MCB(2) = MCB(2) + 1 IF (MCB(2) .EQ. 2) GO TO 190 ITS = INLTMP GO TO 90 C C ALL DONE C 190 CALL CLOSE (ISCR5,1) CALL CLOSE (GPTT,1) CALL WRTTRL (MCB) RETURN C C ERROR MESAGES C 200 IP1 = -1 210 CALL MESAGE (IP1,FILE,NAME) RETURN 220 IP1 = -2 GO TO 210 230 IP1 = -8 GO TO 210 240 CALL MESAGE (-31,ITSTEP,NAME) RETURN END ================================================ FILE: mis/trht1b.f ================================================ SUBROUTINE TRHT1B(IOF,DELTA) C C DOUBLE PRECISION QBLOCK(6), BLOCK(2), BLK(2) C INTEGER MCB(7), NAME(2), IQBLK(12),IBLOCK(11) C COMMON /BLANK/ BETA, TABS, NORAD, RADLIN COMMON /TRHTX / IK(7), IB(7), ICR1, ICR2, 1 ICR3, ICR4, ICR5, ISYM, 2 ICR6, ICR7 C EQUIVALENCE ( IQBLK(1), QBLOCK(1) ) EQUIVALENCE ( IQBLK(2), IBLOCK(1) ) EQUIVALENCE ( QBLOCK(2), BLOCK(1) ) EQUIVALENCE ( QBLOCK(5), BLK(1) ) C C ---------------------------------------------------------------------- C IBLOCK(1) =2 BLOCK(1)= 1.0D0/DELTA BLOCK(2)= 0.0D0 IBLOCK(7)= 2 BLK(1) = BETA BLK(2) = 0.0D0 CALL SSG2C(IB,IK,ICR6,1,IBLOCK) MCB(1)=ICR6 CALL RDTRL(MCB(1)) IF ( MCB(4) .EQ. 6) GO TO 10 CALL FACTRU(*40,ICR6,ICR1,ICR2,ICR3,ICR4,ICR7) ISYM = 0 GO TO 20 C C SYMMETRIC DECOMP C 10 CALL FACTOR( ICR6, ICR1, ICR2, ICR3, ICR4, ICR7 ) ISYM =1 C C LLL IS ON ICR1 C C FORM A MATRIX C 20 BLK(1) = -(1.0D0 - BETA) BLK(2) = 0.0 CALL SSG2C(IB,IK,ICR6,1,IBLOCK) 30 RETURN 40 CALL MESAGE(-5,ICR6,NAME) GO TO 30 END ================================================ FILE: mis/trht1c.f ================================================ SUBROUTINE TRHT1C (NGROUP,UDVT,PD,RDD,ILOOP) C C THIS ROUTINE STEPS INTEGRATION PROCEDURE C INTEGER SYSBUF, UDVT, PD, RDD, IZ(1), 1 A, FILE, MCB(7), PNL1, RADLIN, 2 NAME(2), IFN(7), ITAB(4), LL1(7) DOUBLE PRECISION DZ(1) CHARACTER UFM*23, UWM*25 COMMON /XMSSG / UFM, UWM COMMON /BLANK / BETA, TABS, NORAD, RADLIN, SIGMA COMMON /SYSTEM/ KSYSTM(63) COMMON /TRDXX / KTRDXX(28) COMMON /ZZZZZZ/ Z(1) COMMON /PACKX / IT1, IT2, II, JJ, INCR COMMON /TRHTX / IK(7), IB(7), ICR1, ICR2, ICR3, 1 ICR4, ICR5, ISYM, A, ICR7 COMMON /TRDD1 / NLFT1, DIT1, NLFTP1, NOUT, ICOUNT, 1 ILOOP1, MODA1, NZ, ICORE, IU1, 2 IN2, IPNL(7), NMODES, NSTEP, PNL1, 3 IST, IU1DUM, DELTAT, IFRST, TABS1, 4 SIGMA1, TIM1 COMMON /UNPAKX/ IT3, III, JJJ, INCR1 COMMON /INFBSX/ ILL1(7), IUL1(7) COMMON /FBSX / LL1 EQUIVALENCE (KSYSTM(1),SYSBUF), (KSYSTM(55),IPREC), 1 (KTRDXX(28),IOPEN), (Z(1),IZ(1),DZ(1)), 2 (ILL1(3),MROW), (KSYSTM(2),NPRT) DATA NAME / 4HTRHT, 4H1C / C C SYMBOL TABLE C C ICR1 IS LLL C ICR2 IS ULL C ICR5 IS INITIAL CONDITIONS C ICR6 IS THE A MATRIX C C NROW PROBLEM ORDER C NGROUP NUMBER OF TRIPLES OF TIME STEPS C UDVT DISPLACEMENTS AND VELOCITIES C PD LOADS C RDD RADIATION MATRIX C ILOOP CURRENT TIME STEP GROUP C IBUF1 UDVT BUFFER C IBUF2 A BUFFER C IBUF3 LLL BUFFER C IBUF4 ULL BUFFER C IBUF5 PD BUFFER C IBUF6 PNL1 BUFFER C IBUF7 RDD BUFFER C IBUF8 SCRATCH BUFFER(DIT,NLLOADS,SAVE STUFF ETC) C NZ OPEN CORE C IST OUTPUT FLAG C IU1,IU2 DISPLACMENT VECTOR POINTERS C IP1,IP2 LOAD VECTOR POINTERS C IN1,IN2 NON-LINEAR LOAD POINTERS C NOLIN =0 MEAN NO NON-LINEAR LOADS C IPNT POINTER FOR INTERNAL ZERO ROUTINE C FILE FILE FOR INTERNAL ZERO ROUTINE C NSTEP NUMBER OF TIME STEPS C DELTAT DELTA T C NOUT OUTPUT INCREMENT C H 1/ 2*DELTAT C ICOUNT STEP COUNTER C ITLEFT TIME LEFT C NORAD =-1 NO RADIATION C RADLIN =-1 NON LINEAR RADIATION C NLFTP1 NONLINEAR SET SELECTED BY THE USER C BETA,OMBETA,OPBETA --USER BETA 1-BETA, 1+BETA C ISYM 0 UNSYMETRIC 1 SYMMETRIC C DELTA1 OLD DELTA T C ISCR5 = ICR5 NOLOAD = 0 NBUST = 0 MCB(1) = PD CALL RDTRL (MCB) IF (MCB(1) .LE. 0) NOLOAD = -1 NROW = IK(2) IT1 = 1 IT2 = 1 II = 1 JJ = NROW INCR = 1 IT3 = 1 III = 1 JJJ = NROW INCR1 = 1 TABS1 = TABS SIGMA1 = SIGMA NZ = KORSZ(Z) IGROUP = NZ - 3*NGROUP + 1 IBUF1 = IGROUP- SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF IBUF4 = IBUF3 - SYSBUF IBUF5 = IBUF4 - SYSBUF IBUF6 = IBUF5 - SYSBUF IBUF7 = IBUF6 - SYSBUF IBUF8 = IBUF7 - SYSBUF NZ = IBUF8 - 1 ILOOP1 = ILOOP IST = 0 ILL1(1)= ICR1 CALL RDTRL (ILL1) IFN(1) = ICR1 CALL RDTRL (IFN) IU1 = 0 IU2 = IU1 + NROW IP1 = IU2 + NROW IP2 = IP1 + NROW IUK = IP2 + NROW NOLIN = 0 IF (NLFTP1.NE.0 .OR. NORAD.NE.-1) NOLIN = 1 IF (NOLIN .EQ. 0) GO TO 10 IN1 = IUK + NROW IN2 = IN1 + NROW NZ = NZ - 7*NROW GO TO 20 C C NO NON-LINEAR EFFECTS C 10 NZ = NZ - 4*NROW IN2 = IP2 20 IF (NZ .LT. 0) CALL MESAGE (-8,0,NAME) ICORE = IN2 + NROW IUL1(1)= ICR2 CALL RDTRL (IUL1) OMBETA = 1.0 - BETA OPBETA = 1.0 + BETA C C SET UP FOR CORE I/O C IF (NLFTP1 .EQ. 0) GO TO 21 IFRST = 0 CALL TRD1D IFRST = 1 21 ITAB(1) = A ITAB(2) = ILL1(1) ITAB(3) = IUL1(1) ITAB(4) = RDD ICOR = IN2 + NROW + 1 NF = 4 CALL GOPEN (A,IZ(IBUF2),0) CALL REWIND (A) IF (NOLIN.EQ.0 .OR. RADLIN.NE.-1 .OR. NORAD.EQ.-1) GO TO 30 CALL GOPEN (RDD,IZ(IBUF7),0) CALL REWIND (RDD) 30 CONTINUE CALL GOPEN (ILL1,IZ(IBUF3),0) CALL REWIND (ILL1) IF (ISYM .EQ. 1) GO TO 31 CALL GOPEN (IUL1,IZ(IBUF4),0) CALL REWIND (IUL1) 31 CONTINUE C C IS THIS A TIME STEP CHANGE C IF (ILOOP .NE. 1) GO TO 280 IF (NOLOAD .NE. 0) GO TO 33 CALL GOPEN (PD,IZ(IBUF5),0) CALL FWDREC (*440,PD) 33 CONTINUE IST = -1 CALL GOPEN (ICR5,IZ(IBUF1),0) C CALL FREAD(ICR5,IZ(IGROUP),3*NGROUP,1) C C BRING IN U0 AND UK C CALL READ (*450,*35,ICR5,Z(IU1+1),NROW,1,NWDS) GO TO 40 C C SHORT VECTOR ENCOUNTERED C 35 K = NWDS + 1 DO 38 L = K,NROW M = IU1 + L Z(M) = 0.0 38 CONTINUE 40 CONTINUE IF (NORAD .EQ. -1) GO TO 50 CALL READ (*450,*45,ICR5,Z(IUK+1),NROW,1,NWDS) GO TO 410 C C SHORT VECTOR ENCOUNTERED C 45 K = NWDS + 1 DO 48 L = K,NROW M = IUK + L Z(M) = 0.0 48 CONTINUE GO TO 410 50 CONTINUE CALL CLOSE (ICR5,1) NSTEP = IZ(IGROUP) + 1 DELTAT = Z(IGROUP+1) NOUT = IZ(IGROUP+2) H = 1.0/DELTAT CALL GOPEN (UDVT,IZ(IBUF1),1) CALL MAKMCB (MCB,UDVT,NROW,2,1) IF (NOLIN .EQ. 0) GO TO 60 CALL GOPEN (PNL1,IZ(IBUF6),1) CALL MAKMCB (IPNL,PNL1,NROW,2,1) C C LETS GO C 60 ICOUNT = 1 C C TOP OF LOOP C 70 CALL TMTOGO (ITLEFT) IF (ITLEFT .LE. 0) GO TO 230 C C COMPUTE NR C IF (NORAD .EQ. -1) GO TO 110 IF (RADLIN .EQ. -1) GO TO 90 DO 80 I = 1,NROW L = IN2 + I K = IUK + I Z(L) = Z(K) 80 CONTINUE GO TO 130 C C NON-CONSTANT RADIATION C 90 DO 100 I = 1,NROW L = IU1 + I K = IUK + I M = IN2 + I J = IU2 + I C C CHECK FOR UNSTABLE SOLUTION ABOUT TO CAUSE ARITHMETIC OVERFLOWS. C IF (Z(L) .LT. 1.0E8) GO TO 98 NBUST = NBUST + 1 IF (NBUST .GT. 10) GO TO 94 WRITE (NPRT,92) UWM,Z(L),ICOUNT,I 92 FORMAT (A25,' 3102, SUBROUTINE TRHT1C, UNSTABLE TEMP. VALUE OF', 1 E20.8,' COMPUTED FOR TIME STEP',I5, /5X, 2 'AT POINT NUMBER',I6,' IN THE ANALYSIS SET.') Z(L) = 1.0E6 GO TO 98 94 WRITE (NPRT,96) UFM 96 FORMAT (A23,' 3103, SUBROUTINE TRHT1C TERMINATING DUE TO ERROR ', 1 'COUNT FOR MESSAGE 3102.') CALL MESAGE (-61,0,NAME) C 98 Z(J) = -(Z(L)+TABS)**4 + 4.0*(Z(K)+TABS)**3*Z(L) Z(M) = 0.0 100 CONTINUE IOPEN = 1 IFN(1) = RDD CALL MATVEC (Z(IU2+1),Z(IN2+1),IFN,IZ(IBUF7)) GO TO 130 110 IF (NLFTP1 .EQ. 0) GO TO 140 DO 120 I = 1,NROW M = IN2 + I Z(M) = 0.0 120 CONTINUE 130 IF (NLFTP1 .EQ. 0) GO TO 140 TIM1 = TIM CALL TRD1D 140 IF (ICOUNT .NE. 1 .OR. ILOOP .NE. 1) GO TO 160 DO 150 I = 1,NROW K = IP1 + I Z(K) = 0.0 IF (NOLIN .EQ. 0) GO TO 150 L = IN2 + I M = IN1 + I Z(M) = Z(L) Z(K) = -Z(L) 150 CONTINUE IOPEN = 0 CALL MATVEC (Z(IU1+1),Z(IP1+1),IK,Z(IBUF8)) C C BRING IN NEXT P C 160 IF (NOLOAD .NE. 0) GO TO 165 CALL UNPACK (*165,PD,Z(IP2+1)) GO TO 170 165 DO 167 I = 1,NROW K = IP2 + I Z(K) = 0.0 167 CONTINUE C C ADD ALL LOAD CONTRIBUTIONS C 170 CONTINUE DO 180 I = 1,NROW L = IP1 + I M = IP2 + I Z(L) = OMBETA*Z(L) + BETA*Z(M) IF (NOLIN .EQ. 0) GO TO 180 M = IN1 + I J = IN2 + I Z(L) = Z(L) + OPBETA*Z(J) - BETA*Z(M) 180 CONTINUE C C MULTIPLY IN A MATRIX C IOPEN = 1 IFN(1) = A CALL MATVEC (Z(IU1+1),Z(IP1+1),IFN,IZ(IBUF2)) C C SOLVE FOR NEXT DISPLACEMENT C IOPEN = 1 IF (ISYM .EQ. 0) CALL INTFBS (Z(IP1+1),Z(IU2+1),IZ(IBUF4)) IF (ISYM .NE. 1) GO TO 188 C C ABSORBED SUBROUTINE FBSINT SEE ALSO EQUIV. DATA. C DO 182 I = 1,MROW Z(I+IU2) = Z(I+IP1) 182 CONTINUE C C FORWARD PASS C CALL REWIND (ILL1) CALL FWDREC (*186,ILL1) IZ(IBUF4) = ILL1(1) LL1(1) = ILL1(1) CALL RDTRL (LL1) IF (IPREC .NE. 1) GO TO 184 CALL FBS1 (IZ(IBUF4),Z(IU2+1),Z(IU2+1),MROW) GO TO 188 184 CALL FBS21(IZ(IBUF4),Z(IU2+1),Z(IU2+1),MROW) GO TO 188 186 CALL MESAGE (-2,ILL1,NAME) C C ABSORBED SUBROUTINE FBSINT SEE ALSO EQUIV. DATA. C 188 CONTINUE IF (ICOUNT.EQ.1 .OR. ICOUNT.EQ.NSTEP .OR. 1 MOD(ICOUNT+IST,NOUT).EQ.0) GO TO 200 C C ROTATE POINTERS C 190 J = IP1 IP1 = IP2 IP2 = J J = IU1 IU1 = IU2 IU2 = J J = IN1 IN1 = IN2 IN2 = J TIM = TIM + DELTAT ICOUNT = ICOUNT + 1 IF (ICOUNT-NSTEP) 70,220,230 C C IT IS OUTPUT TIME C 200 CALL PACK (Z(IU1+1),UDVT,MCB) C C COMPUTE U DOT C DO 210 I = 1,NROW L = IP1 + I M = IU1 + I J = IU2 + I Z(L) = (Z(J)-Z(M))*H 210 CONTINUE CALL PACK (Z(IP1+1),UDVT,MCB) C C PUT OUT ZERO ACCERERATION VECTOR FOR LATER MODULES C CALL BLDPK (1,1,UDVT,0,0) CALL BLDPKN (UDVT,0,MCB) IF (NOLIN .EQ. 0) GO TO 190 CALL PACK (Z(IN2+1),PNL1,IPNL) GO TO 190 C C END OF 1 GROUP C 220 IF (ILOOP .NE. NGROUP) GO TO 260 GO TO 70 230 J = 1 240 CALL CLOSE (UDVT,J) CALL CLOSE (PD,J) CALL CLOSE (ILL1,1) CALL CLOSE (IUL1,1) CALL CLOSE (A,1) CALL WRTTRL (MCB) IF (NORAD .EQ. -1) GO TO 245 CALL CLOSE (RDD,1) 245 IF (NOLIN .EQ. 0) GO TO 250 CALL CLOSE (PNL1,J) CALL WRTTRL (IPNL) 250 CONTINUE RETURN C C MORE GROUPS TO COME SAVE STUFF C 260 J = 2 CALL GOPEN (ISCR5,IZ(IBUF8),1) CALL WRITE (ISCR5,IZ(IGROUP),3*NGROUP,1) IF (NOLIN .NE. 0) CALL WRITE (ISCR5,IZ(IUK+1),NROW,1) C C SAVE UI -1 C CALL WRITE (ISCR5,Z(IU2+1),NROW,1) C C SAVE UI C CALL WRITE (ISCR5,Z(IU1+1),NROW,1) IF (NOLIN .EQ. 0) GO TO 270 C C SAVE NI - 1 C CALL WRITE (ISCR5,Z(IN2+1),NROW,1) C C SAVE NI C CALL WRITE (ISCR5,Z(IN1+1),NROW,1) 270 CONTINUE CALL CLOSE (ISCR5,1) GO TO 240 C C REENTRY FROM CHANGE OF TIME STEP C 280 CONTINUE CALL GOPEN (ISCR5,IZ(IBUF8),0) CALL FREAD (ISCR5,IZ(IGROUP),3*NGROUP,1) NEWGRP = IGROUP + (ILOOP-1)*3 DELTA1 = Z(NEWGRP-2) NSTEP = IZ(NEWGRP) DELTAT = Z(NEWGRP+1) NOUT = IZ(NEWGRP+2) CALL GOPEN (PD,IZ(IBUF5),2) H = 1.0/DELTAT CALL GOPEN (UDVT,IZ(IBUF1),3) MCB(1) = UDVT CALL RDTRL (MCB(1)) IF (NOLIN .EQ. 0) GO TO 290 CALL GOPEN (PNL1,IZ(IBUF6),3) IPNL(1) = PNL1 CALL RDTRL (IPNL) 290 CONTINUE C C RESTORE STUFF SAVED C IF (NOLIN .NE. 0) CALL FREAD (ISCR5,Z(IUK+1),NROW,1) CALL FREAD (ISCR5,Z(IU2+1),NROW,1) CALL FREAD (ISCR5,Z(IU1+1),NROW,1) IF (NOLIN .EQ. 0) GO TO 300 CALL FREAD (ISCR5,Z(IN1+1),NROW,1) CALL FREAD (ISCR5,Z(IN2+1),NROW,1) 300 CONTINUE CALL CLOSE (ISCR5,1) C C COMPUTE PBAR C DO 310 I = 1,NROW L = IP1 + I Z(L) = 0.0 IF (NOLIN .EQ. 0) GO TO 310 M = IN2 + I Z(L) =-Z(M) 310 CONTINUE IOPEN = 0 CALL MATVEC (Z(IU1+1),Z(IP1+1),IK,IZ(IBUF8)) IF (IB(1) .EQ. 0) GO TO 330 DO 320 I = 1,NROW L = IU2 + I M = IU1 + I Z(L) = (Z(M)-Z(L))/DELTA1 320 CONTINUE IOPEN = 0 CALL MATVEC (Z(IU2+1),Z(IP1+1),IB,IZ(IBUF8)) 330 CONTINUE IF (NOLIN .EQ. 0) GO TO 350 H1 = 1.0 - DELTAT/DELTA1 H2 = DELTAT/DELTA1 DO 340 I = 1,NROW L = IN1 + I M = IN2 + I Z(L) = H2*Z(L) + H1*Z(M) 340 CONTINUE 350 ICOUNT = 0 GO TO 70 C C CONSTANT RADIATION C 410 IF(RADLIN .EQ. -1) GO TO 50 DO 420 I = 1,NROW L = IUK + I K = IN2 +I Z(L) = -(Z(L)+TABS)**4 + 4.0*(Z(L)+TABS)**3*Z(L) Z(K) = 0.0 420 CONTINUE IOPEN = 1 IFN(1) = RDD CALL MATVEC (Z(IUK+1),Z(IN2+1),IFN, IZ(IBUF7)) DO 430 I = 1,NROW L = IUK + I M = IN2 + I Z(L) = Z(M) 430 CONTINUE GO TO 50 C C I/O ERROR C 440 FILE = PD GO TO 460 450 FILE = ICR5 460 CALL MESAGE (-2,FILE,NAME) RETURN END ================================================ FILE: mis/tria3d.f ================================================ SUBROUTINE TRIA3D C C DOUBLE PRECISION ROUTINE TO FORM STIFFNESS, MASS, AND DAMPING C MATRICES FOR THE CTRIA3 ELEMENT C C EST LISTING C C WORD TYP DESCRIPTION C ---------------------------------------------------------------- C ECT: C 1 I ELEMENT ID, EID C 2-4 I SIL LIST, GRIDS 1,2,3 C 5-7 R MEMBRANE THICKNESSES T, AT GRIDS 1,2,3 C 8 R MATERIAL PROPERTY ORIENTAION ANGLE, THETA C OR I COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD) C 9 I TYPE FLAG FOR WORD 8 C 10 R GRID OFFSET, ZOFF C EPT: C 11 I MATERIAL ID FOR MEMBRANE, MID1 C 12 R ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED) C 13 I MATERIAL ID FOR BENDING, MID2 C 14 R MOMENT OF INERTIA FACTOR, I (BENDING) C 15 I MATERIAL ID FOR TRANSVERSE SHEAR, MID3 C 16 R TRANSV. SHEAR CORRECTION FACTOR, TS/T C 17 R NON-STRUCTURAL MASS, NSM C 18-19 R STRESS FIBER DISTANCES, Z1,Z2 C 20 I MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4 C 21 R MATERIAL ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD) C (DEFAULT FOR WORD 8) C 22 I TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9) C 23 I INTEGRATION ORDER FLAG C 24 R STRESS ANGLE OF RATATION, THETA C OR I COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD) C 25 I TYPE FLAG FOR WORD 24 C 26 R OFFSET, ZOFF1 (DEFAULT FOR WORD 10) C BGPDT: C 27-38 I/R CID,X,Y,Z FOR GRIDS 1,2,3 C ETT: C 39 I ELEMENT TEMPERATURE C C LOGICAL HEAT,NOALFA,NEEDK,NEEDM,SHEART, 1 MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH INTEGER SYSBUF,NOUT,NOGO,PREC,HUNMEG,NEST(39),NAME(2), 1 NECPT(4),DICT(11),IGPDT(4,3),ELID,ESTID,DMAT, 2 SIL(3),IORDER(3),CPMASS,MID(4),TYPE,INDEX(3,3) REAL BGPDT(4,3),GPTH(3),NSM,ECPT(4),KHEAT,HTCP DOUBLE PRECISION AMGG(1),AKGG(1),ALPHA(1),THETAM,CENTE(3), 1 DGPTH(3),EGPDT(4,3),EPNORM(4,3),GPNORM(4,3), 2 AREA,WTSTIF,WTMASS,RHO,XMASS(9),XMASSO,LX,LY, 3 EPS,OFFSET,SHPT(3),WEIGHT,G(9,9),GI(36),K11,K22, 4 JOK,JOG,ZZ(9),AIC(18),EGNOR(4),EDGLEN(3), 5 BMTRX(54),BMATRX(162),BTERMS(6),BMAT1(486), 6 AVGTHK,MOMINR,TS,TH,REALI,TSI,TSM,BDUM(3), 7 DETERM,DETJAC,TBG(9),TEB(9),TEM(9),TEU(9), 8 TUB(9),TUM(9),TOTTRN(324),TRANSK(324),TRANS(27), 9 TMPTRN(36),HTFLX(18),HTCAP(36),HTCON(36), O DHEAT,WEITC,DVOL COMMON /SYSTEM/ SYSBUF,NOUT,NOGO,IDUM(51),PREC COMMON /MATIN / MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT COMMON /HMTOUT/ KHEAT(7),TYPE COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /EMGPRM/ ICORE,JCORE,NCORE,ICSTM,NCSTM,IMAT,NMAT,IHMAT, 1 NHMAT,IDIT,NDIT,ICONG,NCONG,LCONG,ANYCON, 2 KGG1,MGG1,IBGG1,PRECIS,ERROR,HEAT,CPMASS, 3 DUMM6(6),L38 COMMON /EMGEST/ EST(39) COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (EST( 1),NEST(1)), (EST( 2),SIL(1)), 1 (EST( 5),GPTH(1)), (EST(10),ZOFF), 2 (EST(12),ELTH) , (EST(17),NSM), 3 (EST(23),INT) , (EST(26),ZOFF1), 4 (EST(27),BGPDT(1,1),IGPDT(1,1)), 5 (EST(39),TEMPEL) , (DICT(5),ADAMP), 6 (NECPT(1),ECPT(1)),(Z(1),AMGG(1),AKGG(1)), 7 (KHEAT(4),HTCP) , (HTCAP(1),XMASS(1)) DATA HUNMEG, EPS / 100000000, 1.0D-7 / DATA NAME , KMAT, MMAT, DMAT / 4HCTRI,4HA3 , 1, 2, 3 / C C INITIALIZE C ELID = NEST(1) NNODE = 3 MOMINR = 0.0D0 TS = 0.0D0 WEIGHT = 1.0D0/6.0D0 ELTEMP = TEMPEL NEEDK = KGG1.NE.0 .OR. IBGG1.NE.0 NOALFA = .TRUE. SHEART = .TRUE. IEOE = 1 OFFSET = ZOFF IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1 C C CHECK FOR SUFFICIENT OPEN CORE FOR ELEMENT STIFFNESS C C OPEN CORE BEGINS AT JCORE C OPEN CORE ENDS AT NCORE C LENGTH OF AVAILABLE WORDS = (NCORE-JCORE-1)/PREC C JCORED = JCORE/PREC + 1 LENGTH = (NCORE-JCORE-1)/PREC IF (LENGTH.LT.324 .AND. (.NOT.HEAT .AND. NEEDK)) GO TO 1100 C C SET UP THE ELEMENT FORMULATION C CALL T3SETD (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM, 1 IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID) IF (IERR .NE. 0) GO TO 1110 CALL GMMATD (TEB,3,3,0, TUB,3,3,1, TEU) AREA = LX*LY/2.0D0 C C SET THE NUMBER OF DOF'S C NNOD2 = NNODE*NNODE NDOF = NNODE*6 NPART = NDOF*NDOF ND2 = NDOF*2 ND6 = NDOF*6 ND7 = NDOF*7 ND8 = NDOF*8 ND9 = NDOF*9 JEND = JCORED + NPART - 1 C C OBTAIN MATERIAL INFORMATION C C PASS THE LOCATION OF THE ELEMENT CENTER FOR MATERIAL C TRANSFORMATIONS. C DO 100 IEC = 2,4 ECPT(IEC) = CENTE(IEC-1) 100 CONTINUE C C SET MATERIAL FLAGS C 5.0D0/6.0D0 = 0.833333333D0 C IF (NEST(13) .NE. 0) MOMINR = EST(14) IF (NEST(13) .NE. 0) TS = EST(16) IF ( EST(16) .EQ. 0.0) TS = 0.833333333D0 IF (NEST(13).EQ.0 .AND. NEST(11).GT.HUNMEG) TS = 0.833333333D0 C MID(1) = NEST(11) MID(2) = NEST(13) MID(3) = NEST(15) MID(4) = NEST(20) C MEMBRN = MID(1).GT.0 BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0D0 SHRFLX = MID(3).GT.0 MBCOUP = MID(4).GT.0 NORPTH = MID(1).EQ.MID(2) .AND. MID(1).EQ.MID(3) .AND. MID(4).EQ.0 1 .AND. DABS(MOMINR-1.0D0).LE.EPS C C SET UP TRANSFORMATION MATRIX FROM MATERIAL TO ELEMENT COORD.SYSTEM C CALL SHCSGD (*1120,NEST(9),NEST(8),NEST(8),NEST(21),NEST(20), 1 NEST(20),NECPT,TUB,MCSID,THETAM,TUM) C C BRANCH ON FORMULATION TYPE. C IF (HEAT) GO TO 800 C C FETCH MATERIAL PROPERTIES C CALL GMMATD (TEU,3,3,0,TUM,3,3,0,TEM) CALL SHGMGD (*1130,ELID,TEM,MID,TS,NOALFA,GI,RHO,GSUBE,TSUB0, 1 EGNOR,ALPHA) C C TURN OFF THE COUPLING FLAG WHEN MID4 IS PRESENT WITH ALL C CALCULATED ZERO TERMS. C IF (.NOT.MBCOUP) GO TO 120 DO 110 I = 28,36 IF (DABS(GI(I)) .GT. EPS) GO TO 120 110 CONTINUE MBCOUP = .FALSE. C C GET THE GEOMETRY CORRECTION TERMS C 120 IF (.NOT.BENDNG) GO TO 130 CALL T3GEMD (IERR,EGPDT,IORDER,GI(10),GI(19),LX,LY,EDGLEN,SHRFLX, 1 AIC,JOG,JOK,K11,K22) IF (IERR .NE. 0) GO TO 1110 C C REDUCED INTEGRATION LOOP FOR STIFFNESS C 130 IF (.NOT.NEEDK .OR. INT.NE.0) GO TO 160 C C DETERMINE THE AVERAGE B-MATRIX FOR OUT-OF-PLANE SHEAR C DO 140 IPT = 1,3 KPT = (IPT-1)*ND9 + 1 CALL T3BMGD (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC, 1 SHPT,BTERMS,BMAT1(KPT)) IF (IERR .NE. 0) GO TO 1110 140 CONTINUE C DO 150 I = 1,NDOF BMTRX(I ) = BMAT1(I+ND6) +BMAT1(I+ND6+ND9) +BMAT1(I+ND6+2*ND9) BMTRX(I+NDOF) = BMAT1(I+ND7) +BMAT1(I+ND7+ND9) +BMAT1(I+ND7+2*ND9) BMTRX(I+ND2 ) = BMAT1(I+ND8) +BMAT1(I+ND8+ND9) +BMAT1(I+ND8+2*ND9) 150 CONTINUE C C INITIALIZE FOR THE MAIN INTEGRATION LOOP C 160 NEEDM = MGG1.NE.0 .AND. (NSM.GT.0.0 .OR. RHO.GT.0.0D0) IF (.NOT.NEEDK .AND. .NOT.NEEDM) GO TO 200 DO 170 I = JCORED,JEND AKGG(I) = 0.0D0 170 CONTINUE C DO 180 I = 1,9 XMASS(I) = 0.0D0 180 CONTINUE C C MAIN INTEGRATION LOOP C 200 DO 500 IPT = 1,3 C CALL T3BMGD (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC, 1 SHPT,BTERMS,BMATRX) IF (IERR .NE. 0) GO TO 1110 C C PERFORM STIFFNESS CALCULATIONS IF REQUIRED C IF (.NOT.NEEDK) GO TO 400 WTSTIF = DETJAC*WEIGHT REALI = MOMINR*TH*TH*TH/12.0D0 TSI = TS*TH C IF (INT .NE. 0) GO TO 220 DO 210 IX = 1,NDOF BMATRX(IX+ND6) = BMTRX(IX ) BMATRX(IX+ND7) = BMTRX(IX+NDOF) BMATRX(IX+ND8) = BMTRX(IX+ND2 ) 210 CONTINUE C C FILL IN THE 9X9 G-MATRIX C 220 DO 240 IG = 1,81 240 G(IG,1) = 0.0D0 C IF (.NOT.MEMBRN) GO TO 270 DO 260 IG = 1,3 IG1 = (IG-1)*3 DO 250 JG = 1,3 G(IG,JG) = GI(IG1+JG)*TH*WTSTIF 250 CONTINUE 260 CONTINUE C 270 IF (.NOT.BENDNG) GO TO 340 DO 290 IG = 4,6 IG2 = (IG-2)*3 DO 280 JG = 4,6 G(IG,JG) = GI(IG2+JG)*REALI*WTSTIF 280 CONTINUE 290 CONTINUE C TSM = 1.0D0/(2.0D0*12.0D0*REALI) ZZ(1) = (JOG/TSI)* GI(22) + TSM*JOK*K22 ZZ(2) =-(JOG/TSI)*(GI(20) + GI(21))/2.0D0 ZZ(3) = 0.0D0 ZZ(4) = ZZ(2) ZZ(5) = (JOG/TSI)* GI(19) + TSM*JOK*K11 ZZ(6) = 0.0D0 ZZ(7) = 0.0D0 ZZ(8) = 0.0D0 ZZ(9) = (JOG/TSI)*(GI(22) + GI(19))/2.0D0 1 + TSM*12.0D0*AREA/DSQRT(GI(10)*GI(14)) CALL INVERD (3,ZZ,3,BDUM,0,DETERM,ISING,INDEX) IF (ISING .NE. 1) GO TO 1110 C DO 310 IG = 7,9 IG3 = (IG-7)*3 DO 300 JG = 7,9 G(IG,JG) = ZZ(IG3+JG-6)*WTSTIF 300 CONTINUE 310 CONTINUE C IF (.NOT.MBCOUP) GO TO 340 DO 330 IG = 1,3 IG4 = (IG+8)*3 DO 320 JG = 1,3 G(IG,JG+3) = GI(IG4+JG)*TH*TH*WTSTIF G(IG+3,JG) = G(IG,JG+3) 320 CONTINUE 330 CONTINUE C C COMPUTE THE CONTRIBUTION TO THE STIFFNESS MATRIX FROM THIS C INTEGRATION POINT. C 340 CALL T3BGBD (9,NDOF,G,BMATRX,AKGG(JCORED)) C C C END OF STIFFNESS CALCULATIONS. C SKIP MASS CALCULATIONS IF NOT REQUIRED C C 400 IF (.NOT.NEEDM) GO TO 500 WTMASS = (RHO*TH+NSM)*DETJAC*WEIGHT IF (CPMASS .LE. 0) GO TO 430 C C CONSISTENT MASS FORMULATION (OPTION) C DO 420 I = 1,NNODE II = (I-1)*NNODE DO 410 J = 1,NNODE XMASS(II+J) = XMASS(II+J) + SHPT(I)*SHPT(J)*WTMASS 410 CONTINUE 420 CONTINUE GO TO 500 C C LUMPED MASS FORMULATION (DEFAULT) C 430 I3 = 1 DO 440 I = 1,NNODE XMASS(I3) = XMASS(I3) + SHPT(I)*WTMASS I3 = I3 + 1 + NNODE 440 CONTINUE C C END OF MAIN INTEGRATION LOOP C 500 CONTINUE C C PICK UP THE ELEMENT TO GLOBAL TRANSFORMATION FOR EACH NODE. C DO 510 I = 1,NNODE IPOINT = 9*(I-1) + 1 CALL TRANSD (IGPDT(1,I),TBG) CALL GMMATD (TEB,3,3,0, TBG,3,3,0, TRANS(IPOINT)) 510 CONTINUE C C SHIP OUT THE STIFFNESS AND DAMPING MATRICES C IF (.NOT.NEEDK) GO TO 600 C DICT(1) = ESTID DICT(2) = 1 DICT(3) = NDOF DICT(4) = 63 ADAMP = GSUBE C C BUILD THE 18X18 TRANSFORMATION MATRIX FOR ONE-SHOT MULTIPLY C DO 520 I = 1,NPART TRANSK(I) = 0.0D0 TOTTRN(I) = 0.0D0 520 CONTINUE C NDOF66 = 6*NDOF + 6 II = 1 DO 550 I = 1,NPART,NDOF66 CALL TLDRD (OFFSET,II,TRANS,TMPTRN) DO 540 JJ = 1,36,6 J = JJ - 1 KK = I - 1 + J*NNODE DO 530 K = 1,6 TOTTRN(KK+K) = TMPTRN(J+K) 530 CONTINUE 540 CONTINUE 550 II = II + 1 C C PERFORM THE TRIPLE MULTIPLY. C CALL MPYA3D (TOTTRN,AKGG(JCORED),NDOF,6,TRANSK) C CALL EMGOUT (TRANSK,TRANSK,NPART,IEOE,DICT,KMAT,PREC) C C SHIP OUT THE MASS MATRIX C 600 IF (.NOT.NEEDM) GO TO 730 NDOF = NNODE*3 NPART = NDOF*NDOF DICT(2) = 1 DICT(3) = NDOF DICT(4) = 7 ADAMP = 0.0 JEND = JCORED + NPART - 1 C C ZERO OUT THE POSITIONS, THEN LOOP ON I AND J TO LOAD THE MASS C MATRIX. C DO 610 IJK = JCORED,JEND AMGG(IJK) = 0.0D0 610 CONTINUE C NDOFP1 = NDOF + 1 DO 640 II = 1,NNOD2 ,NNODE I = II - 1 DO 630 J = 1,NNODE XMASSO = XMASS(I+J) IPOINT = (J-1)*3 + I*9 + JCORED JPOINT = IPOINT + 3*NDOF DO 620 K = IPOINT,JPOINT,NDOFP1 AMGG(K) = XMASSO 620 CONTINUE 630 CONTINUE 640 CONTINUE C C BYPASS TRANSFORMATIONS IF LUMPED MASS. C IF (CPMASS .LE. 0) GO TO 700 C C BUILD THE 9X9 TRANSFORMATION MATRIX FOR ONE-SHOT MULTIPLY C DO 650 I = 1,NPART TRANSK(I) = 0.0D0 TOTTRN(I) = 0.0D0 650 CONTINUE C NDOF33 = 3*NDOF + 3 DO 680 I = 1,NPART ,NDOF33 II = ((I-1)/(3*NDOF))*9 DO 670 JJ = 1,9,3 J = JJ - 1 KK = I - 1 + J*NNODE DO 660 K = 1,3 TOTTRN(KK+K) = TRANS(II+J+K) 660 CONTINUE 670 CONTINUE 680 CONTINUE C C PERFORM THE TRIPLE MULTIPLY. C CALL MPYA3D (TOTTRN,AMGG(JCORED),NDOF,3,TRANSK) GO TO 720 C C JUST COPY THE LUMPED MASS MATRIX OUT C 700 II = JCORED DO 710 I = 1,NPART TRANSK(I) = AMGG(II) II = II + 1 710 CONTINUE C 720 CALL EMGOUT (TRANSK,TRANSK,NPART,IEOE,DICT,MMAT,PREC) C 730 CONTINUE GO TO 1200 C C HEAT CALCULATIONS C 800 CONTINUE INFLAG = 2 SINMAT = DSIN(THETAM) COSMAT = DCOS(THETAM) MATID = NEST(11) C CALL HMAT (ELID) C GI(1) = KHEAT(1) GI(2) = KHEAT(2) GI(3) = GI(2) GI(4) = KHEAT(3) C DO 900 I = 1,18 HTCON(I) = 0.0D0 HTCAP(I) = 0.0D0 900 CONTINUE C C BEGIN LOOP ON INTEGRATION POINTS C DO 950 IPT = 1,3 CALL T3BMGD (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC, 1 SHPT,BTERMS,BMATRX) IF (IERR .NE. 0) GO TO 1110 C DVOL = WEIGHT*DETJAC*TH DO 910 I = 1,4 G(I,1) = GI(I)*DVOL 910 CONTINUE WEITC = DVOL*HTCP C IP = 1 DO 920 I = 1,NNODE HTFLX(IP ) = G(1,1)*BTERMS(I) + G(2,1)*BTERMS(I+NNODE) HTFLX(IP+1) = G(3,1)*BTERMS(I) + G(4,1)*BTERMS(I+NNODE) IP = IP + 2 920 CONTINUE CALL GMMATD (BTERMS,2,NNODE,-1, HTFLX,NNODE,2,1, HTCON) C C FINISHED WITH HEAT CONDUCTIVITY MATRIX, DO HEAT CAPACITY IF C REQUIRED. C IF (HTCP .EQ. 0.0) GO TO 950 IP = 1 DO 940 I = 1,NNODE DHEAT = WEITC*SHPT(I) DO 930 J = 1,NNODE HTCAP(IP) = HTCAP(IP) + DHEAT*SHPT(J) IP = IP + 1 930 CONTINUE 940 CONTINUE C 950 CONTINUE C C END OF INTEGRATION LOOP, SHIP OUT THE RESULTS. C DICT(1) = ESTID DICT(2) = 1 DICT(3) = NNODE DICT(4) = 1 IF (WEITC .EQ. 0.0D0) GO TO 1000 ADAMP = 1.0 CALL EMGOUT (HTCAP,HTCAP,NNOD2,IEOE,DICT,DMAT,PREC) 1000 ADAMP = 0.0 CALL EMGOUT (HTCON,HTCON,NNOD2,IEOE,DICT,KMAT,PREC) C GO TO 1200 C C C FATAL ERRORS C C INSUFFICIENT MEMORY IS AVAILABLE C 1100 CALL MESAGE (-30,228,NAME) GO TO 1140 C C CTRIA3 ELEMENT HAS ILLEGAL GEOMETRY OR CONNECTIONS C 1110 J = 224 GO TO 1140 C C THE X-AXIS OF THE MATERIAL COORDINATE SYSTEM HAS NO PROJECTION C ON TO THE PLANE OF CTRIA3 ELEMENT C 1120 J = 225 NEST(2) = MCSID GO TO 1140 C C ILLEGAL DATA DETECTED ON MATERIAL ID REFERENCED BY CTRIA3 ELEMENT C FOR MID3 APPLICATION C 1130 J = 226 NEST(2) = MID(3) C 1140 CALL MESAGE (30,J,NEST(1)) IF (L38 .EQ. 1) CALL MESAGE (-61,0,0) NOGO = 1 C 1200 CONTINUE RETURN END ================================================ FILE: mis/tria3s.f ================================================ SUBROUTINE TRIA3S C C SINGLE PRECISION ROUTINE TO FORM STIFFNESS, MASS, AND DAMPING C MATRICES FOR THE CTRIA3 ELEMENT C C EST LISTING C C WORD TYP DESCRIPTION C ---------------------------------------------------------------- C ECT: C 1 I ELEMENT ID, EID C 2-4 I SIL LIST, GRIDS 1,2,3 C 5-7 R MEMBRANE THICKNESSES T, AT GRIDS 1,2,3 C 8 R MATERIAL PROPERTY ORIENTAION ANGLE, THETA C OR I COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD) C 9 I TYPE FLAG FOR WORD 8 C 10 R GRID OFFSET, ZOFF C EPT: C 11 I MATERIAL ID FOR MEMBRANE, MID1 C 12 R ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED) C 13 I MATERIAL ID FOR BENDING, MID2 C 14 R MOMENT OF INERTIA FACTOR, I (BENDING) C 15 I MATERIAL ID FOR TRANSVERSE SHEAR, MID3 C 16 R TRANSV. SHEAR CORRECTION FACTOR, TS/T C 17 R NON-STRUCTURAL MASS, NSM C 18-19 R STRESS FIBER DISTANCES, Z1,Z2 C 20 I MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4 C 21 R MATERIAL ANGLE OF ROTATION, THETA C OR I COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD) C (DEFAULT FOR WORD 8) C 22 I TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9) C 23 I INTEGRATION ORDER FLAG C 24 R STRESS ANGLE OF RATATION, THETA C OR I COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD) C 25 I TYPE FLAG FOR WORD 24 C 26 R OFFSET, ZOFF1 (DEFAULT FOR WORD 10) C BGPDT: C 27-38 I/R CID,X,Y,Z FOR GRIDS 1,2,3 C ETT: C 39 I ELEMENT TEMPERATURE C C LOGICAL HEAT,NOALFA,NEEDK,NEEDM,SHEART, 1 MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH INTEGER SYSBUF,NOUT,NOGO,PREC,HUNMEG,NEST(39),NAME(2), 1 NECPT(4),DICT(11),IGPDT(4,3),ELID,ESTID,DMAT, 2 SIL(3),IORDER(3),CPMASS,MID(4),TYPE,INDEX(3,3) REAL BGPDT(4,3),GPTH(3),NSM,ECPT(4),KHEAT,HTCP REAL AMGG(1),AKGG(1),ALPHA(1),THETAM,CENTE(3), 1 DGPTH(3),EGPDT(4,3),EPNORM(4,3),GPNORM(4,3), 2 AREA,WTSTIF,WTMASS,RHO,XMASS(9),XMASSO,LX,LY, 3 EPS,OFFSET,SHPT(3),WEIGHT,G(9,9),GI(36),K11,K22, 4 JOK,JOG,ZZ(9),AIC(18),EGNOR(4),EDGLEN(3), 5 BMTRX(54),BMATRX(162),BTERMS(6),BMAT1(486), 6 AVGTHK,MOMINR,TS,TH,REALI,TSI,TSM,BDUM(3), 7 DETERM,DETJAC,TBG(9),TEB(9),TEM(9),TEU(9), 8 TUB(9),TUM(9),TOTTRN(324),TRANSK(324),TRANS(27), 9 TMPTRN(36),HTFLX(18),HTCAP(36),HTCON(36), O DHEAT,WEITC,DVOL COMMON /SYSTEM/ SYSBUF,NOUT,NOGO,IDUM(51),PREC COMMON /MATIN / MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT COMMON /HMTOUT/ KHEAT(7),TYPE COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /EMGPRM/ ICORE,JCORE,NCORE,ICSTM,NCSTM,IMAT,NMAT,IHMAT, 1 NHMAT,IDIT,NDIT,ICONG,NCONG,LCONG,ANYCON, 2 KGG1,MGG1,IBGG1,PRECIS,ERROR,HEAT,CPMASS, 3 DUMM6(6),L38 COMMON /EMGEST/ EST(39) COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (EST( 1),NEST(1)), (EST( 2),SIL(1)), 1 (EST( 5),GPTH(1)), (EST(10),ZOFF), 2 (EST(12),ELTH) , (EST(17),NSM), 3 (EST(23),INT) , (EST(26),ZOFF1), 4 (EST(27),BGPDT(1,1),IGPDT(1,1)), 5 (EST(39),TEMPEL) , (DICT(5),ADAMP), 6 (NECPT(1),ECPT(1)),(Z(1),AMGG(1),AKGG(1)), 7 (KHEAT(4),HTCP) , (HTCAP(1),XMASS(1)) DATA HUNMEG, EPS / 100000000, 1.0E-7 / DATA NAME , KMAT, MMAT, DMAT / 4HCTRI,4HA3 , 1, 2, 3 / C C INITIALIZE C ELID = NEST(1) NNODE = 3 MOMINR = 0.0 TS = 0.0 WEIGHT = 1.0/6.0 ELTEMP = TEMPEL NEEDK = KGG1.NE.0 .OR. IBGG1.NE.0 NOALFA = .TRUE. SHEART = .TRUE. IEOE = 1 OFFSET = ZOFF IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1 C C CHECK FOR SUFFICIENT OPEN CORE FOR ELEMENT STIFFNESS C C OPEN CORE BEGINS AT JCORE C OPEN CORE ENDS AT NCORE C LENGTH OF AVAILABLE WORDS = (NCORE-JCORE-1)/PREC C JCORED = JCORE/PREC + 1 LENGTH = (NCORE-JCORE-1)/PREC IF (LENGTH.LT.324 .AND. (.NOT.HEAT .AND. NEEDK)) GO TO 1100 C C SET UP THE ELEMENT FORMULATION C CALL T3SETS (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM, 1 IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID) IF (IERR .NE. 0) GO TO 1110 CALL GMMATS (TEB,3,3,0, TUB,3,3,1, TEU) AREA = LX*LY/2.0 C C SET THE NUMBER OF DOF'S C NNOD2 = NNODE*NNODE NDOF = NNODE*6 NPART = NDOF*NDOF ND2 = NDOF*2 ND6 = NDOF*6 ND7 = NDOF*7 ND8 = NDOF*8 ND9 = NDOF*9 JEND = JCORED + NPART - 1 C C OBTAIN MATERIAL INFORMATION C C PASS THE LOCATION OF THE ELEMENT CENTER FOR MATERIAL C TRANSFORMATIONS. C DO 100 IEC = 2,4 ECPT(IEC) = CENTE(IEC-1) 100 CONTINUE C C SET MATERIAL FLAGS C 5.0/6.0 = 0.833333333 C IF (NEST(13) .NE. 0) MOMINR = EST(14) IF (NEST(13) .NE. 0) TS = EST(16) IF ( EST(16) .EQ. 0.0) TS = 0.83333333 IF (NEST(13).EQ.0 .AND. NEST(11).GT.HUNMEG) TS = 0.833333333 C MID(1) = NEST(11) MID(2) = NEST(13) MID(3) = NEST(15) MID(4) = NEST(20) C MEMBRN = MID(1).GT.0 BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0 SHRFLX = MID(3).GT.0 MBCOUP = MID(4).GT.0 NORPTH = MID(1).EQ.MID(2) .AND. MID(1).EQ.MID(3) .AND. MID(4).EQ.0 1 .AND. ABS(MOMINR-1.0).LE.EPS C C SET UP TRANSFORMATION MATRIX FROM MATERIAL TO ELEMENT COORD.SYSTEM C CALL SHCSGS (*1120,NEST(9),NEST(8),NEST(8),NEST(21),NEST(20), 1 NEST(20),NECPT,TUB,MCSID,THETAM,TUM) C C BRANCH ON FORMULATION TYPE. C IF (HEAT) GO TO 800 C C FETCH MATERIAL PROPERTIES C CALL GMMATS (TEU,3,3,0,TUM,3,3,0,TEM) CALL SHGMGS (*1130,ELID,TEM,MID,TS,NOALFA,GI,RHO,GSUBE,TSUB0, 1 EGNOR,ALPHA) C C TURN OFF THE COUPLING FLAG WHEN MID4 IS PRESENT WITH ALL C CALCULATED ZERO TERMS. C IF (.NOT.MBCOUP) GO TO 120 DO 110 I = 28,36 IF (ABS(GI(I)) .GT. EPS) GO TO 120 110 CONTINUE MBCOUP = .FALSE. 120 CONTINUE C C GET THE GEOMETRY CORRECTION TERMS C IF (.NOT.BENDNG) GO TO 130 CALL T3GEMS (IERR,EGPDT,IORDER,GI(10),GI(19),LX,LY,EDGLEN,SHRFLX, 1 AIC,JOG,JOK,K11,K22) IF (IERR .NE. 0) GO TO 1110 C C REDUCED INTEGRATION LOOP FOR STIFFNESS C 130 IF (.NOT.NEEDK .OR. INT.NE.0) GO TO 160 C C DETERMINE THE AVERAGE [B] FOR OUT-OF-PLANE SHEAR C DO 140 IPT = 1,3 KPT = (IPT-1)*ND9 + 1 CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC, 1 SHPT,BTERMS,BMAT1(KPT)) IF (IERR .NE. 0) GO TO 1110 140 CONTINUE C DO 150 I = 1,NDOF BMTRX(I ) = BMAT1(I+ND6) +BMAT1(I+ND6+ND9) +BMAT1(I+ND6+2*ND9) BMTRX(I+NDOF) = BMAT1(I+ND7) +BMAT1(I+ND7+ND9) +BMAT1(I+ND7+2*ND9) BMTRX(I+ND2 ) = BMAT1(I+ND8) +BMAT1(I+ND8+ND9) +BMAT1(I+ND8+2*ND9) 150 CONTINUE C C INITIALIZE FOR THE MAIN INTEGRATION LOOP C 160 NEEDM = MGG1.NE.0 .AND. (NSM.GT.0.0 .OR. RHO.GT.0.0) IF (.NOT.NEEDK .AND. .NOT.NEEDM) GO TO 200 DO 170 I = JCORED,JEND AKGG(I) = 0.0 170 CONTINUE C DO 180 I = 1,9 XMASS(I) = 0.0 180 CONTINUE C C MAIN INTEGRATION LOOP C 200 DO 500 IPT = 1,3 C CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC, 1 SHPT,BTERMS,BMATRX) IF (IERR .NE. 0) GO TO 1110 C C PERFORM STIFFNESS CALCULATIONS IF REQUIRED C IF (.NOT.NEEDK) GO TO 400 WTSTIF = DETJAC*WEIGHT REALI = MOMINR*TH*TH*TH/12.0 TSI = TS*TH C IF (INT .NE. 0) GO TO 220 DO 210 IX = 1,NDOF BMATRX(IX+ND6) = BMTRX(IX ) BMATRX(IX+ND7) = BMTRX(IX+NDOF) BMATRX(IX+ND8) = BMTRX(IX+ND2 ) 210 CONTINUE C C FILL IN THE 9X9 [G] C 220 DO 240 IG = 1,9 DO 230 JG = 1,9 G(IG,JG) = 0.0 230 CONTINUE 240 CONTINUE C IF (.NOT.MEMBRN) GO TO 270 DO 260 IG = 1,3 IG1 = (IG-1)*3 DO 250 JG = 1,3 G(IG,JG) = GI(IG1+JG)*TH*WTSTIF 250 CONTINUE 260 CONTINUE C 270 IF (.NOT.BENDNG) GO TO 340 DO 290 IG = 4,6 IG2 = (IG-2)*3 DO 280 JG = 4,6 G(IG,JG) = GI(IG2+JG)*REALI*WTSTIF 280 CONTINUE 290 CONTINUE C TSM = 1.0/(2.0*12.0*REALI) ZZ(1) = (JOG/TSI)* GI(22) + TSM*JOK*K22 ZZ(2) =-(JOG/TSI)*(GI(20) + GI(21))/2.0 ZZ(3) = 0.0 ZZ(4) = ZZ(2) ZZ(5) = (JOG/TSI)* GI(19) + TSM*JOK*K11 ZZ(6) = 0.0 ZZ(7) = 0.0 ZZ(8) = 0.0 ZZ(9) = (JOG/TSI)*(GI(22) + GI(19))/2.0 1 + TSM*12.0*AREA/SQRT(GI(10)*GI(14)) CALL INVERS (3,ZZ,3,BDUM,0,DETERM,ISING,INDEX) IF (ISING .NE. 1) GO TO 1110 C DO 310 IG = 7,9 IG3 = (IG-7)*3 DO 300 JG = 7,9 G(IG,JG) = ZZ(IG3+JG-6)*WTSTIF 300 CONTINUE 310 CONTINUE C IF (.NOT.MBCOUP) GO TO 340 DO 330 IG = 1,3 IG4 = (IG+8)*3 DO 320 JG = 1,3 G(IG,JG+3) = GI(IG4+JG)*TH*TH*WTSTIF G(IG+3,JG) = G(IG,JG+3) 320 CONTINUE 330 CONTINUE C C COMPUTE THE CONTRIBUTION TO THE STIFFNESS MATRIX FROM THIS C INTEGRATION POINT. C 340 CALL T3BGBS (9,NDOF,G,BMATRX,AKGG(JCORED)) C C C END OF STIFFNESS CALCULATIONS. C SKIP MASS CALCULATIONS IF NOT REQUIRED C C 400 IF (.NOT.NEEDM) GO TO 500 WTMASS = (RHO*TH+NSM)*DETJAC*WEIGHT IF (CPMASS .LE. 0) GO TO 430 C C CONSISTENT MASS FORMULATION (OPTION) C DO 420 I = 1,NNODE II = (I-1)*NNODE DO 410 J = 1,NNODE XMASS(II+J) = XMASS(II+J) + SHPT(I)*SHPT(J)*WTMASS 410 CONTINUE 420 CONTINUE GO TO 500 C C LUMPED MASS FORMULATION (DEFAULT) C 430 I3 = 1 DO 440 I = 1,NNODE XMASS(I3) = XMASS(I3) + SHPT(I)*WTMASS I3 = I3 + 1 + NNODE 440 CONTINUE C C END OF MAIN INTEGRATION LOOP C 500 CONTINUE C C PICK UP THE ELEMENT TO GLOBAL TRANSFORMATION FOR EACH NODE. C DO 510 I = 1,NNODE IPOINT = 9*(I-1) + 1 CALL TRANSS (IGPDT(1,I),TBG) CALL GMMATS (TEB,3,3,0, TBG,3,3,0, TRANS(IPOINT)) 510 CONTINUE C C SHIP OUT THE STIFFNESS AND DAMPING MATRICES C IF (.NOT.NEEDK) GO TO 600 C DICT(1) = ESTID DICT(2) = 1 DICT(3) = NDOF DICT(4) = 63 ADAMP = GSUBE C C BUILD THE 18X18 TRANSFORMATION MATRIX FOR ONE-SHOT MULTIPLY C DO 520 I = 1,NPART TRANSK(I) = 0.0 TOTTRN(I) = 0.0 520 CONTINUE C NDOF66 = 6*NDOF + 6 II = 1 DO 550 I = 1,NPART,NDOF66 CALL TLDRS (OFFSET,II,TRANS,TMPTRN) DO 540 JJ = 1,36,6 J = JJ - 1 KK = I - 1 + J*NNODE DO 530 K = 1,6 TOTTRN(KK+K) = TMPTRN(J+K) 530 CONTINUE 540 CONTINUE 550 II = II + 1 C C PERFORM THE TRIPLE MULTIPLY. C CALL MPYA3S (TOTTRN,AKGG(JCORED),NDOF,6,TRANSK) C CALL EMGOUT (TRANSK,TRANSK,NPART,IEOE,DICT,KMAT,PREC) C C SHIP OUT THE MASS MATRIX C 600 IF (.NOT.NEEDM) GO TO 730 NDOF = NNODE*3 NPART = NDOF*NDOF DICT(2) = 1 DICT(3) = NDOF DICT(4) = 7 ADAMP = 0.0 JEND = JCORED + NPART - 1 C C ZERO OUT THE POSITIONS, THEN LOOP ON I AND J TO LOAD THE MASS C MATRIX. C DO 610 IJK = JCORED,JEND AMGG(IJK) = 0.0 610 CONTINUE C NDOFP1 = NDOF + 1 DO 640 II = 1,NNOD2 ,NNODE I = II - 1 DO 630 J = 1,NNODE XMASSO = XMASS(I+J) IPOINT = (J-1)*3 + I*9 + JCORED JPOINT = IPOINT + 3*NDOF DO 620 K = IPOINT,JPOINT,NDOFP1 AMGG(K) = XMASSO 620 CONTINUE 630 CONTINUE 640 CONTINUE C C BYPASS TRANSFORMATIONS IF LUMPED MASS. C IF (CPMASS .LE. 0) GO TO 700 C C BUILD THE 9X9 TRANSFORMATION MATRIX FOR ONE-SHOT MULTIPLY C DO 650 I = 1,NPART TRANSK(I) = 0.0 TOTTRN(I) = 0.0 650 CONTINUE C NDOF33 = 3*NDOF + 3 DO 680 I = 1,NPART ,NDOF33 II = ((I-1)/(3*NDOF))*9 DO 670 JJ = 1,9,3 J = JJ - 1 KK = I - 1 + J*NNODE DO 660 K = 1,3 TOTTRN(KK+K) = TRANS(II+J+K) 660 CONTINUE 670 CONTINUE 680 CONTINUE C C PERFORM THE TRIPLE MULTIPLY. C CALL MPYA3S (TOTTRN,AMGG(JCORED),NDOF,3,TRANSK) GO TO 720 C C JUST COPY THE LUMPED MASS MATRIX OUT C 700 II = JCORED DO 710 I = 1,NPART TRANSK(I) = AMGG(II) II = II + 1 710 CONTINUE 720 CONTINUE C CALL EMGOUT (TRANSK,TRANSK,NPART,IEOE,DICT,MMAT,PREC) 730 CONTINUE GO TO 1200 C C HEAT CALCULATIONS C 800 CONTINUE INFLAG = 2 SINMAT = SIN(THETAM) COSMAT = COS(THETAM) MATID = NEST(11) C CALL HMAT (ELID) C GI(1) = KHEAT(1) GI(2) = KHEAT(2) GI(3) = GI(2) GI(4) = KHEAT(3) C DO 900 I = 1,18 HTCON(I) = 0.0 HTCAP(I) = 0.0 900 CONTINUE C C BEGIN LOOP ON INTEGRATION POINTS C DO 950 IPT = 1,3 CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC, 1 SHPT,BTERMS,BMATRX) IF (IERR .NE. 0) GO TO 1110 C DVOL = WEIGHT*DETJAC*TH DO 910 I = 1,4 G(I,1) = GI(I)*DVOL 910 CONTINUE WEITC = DVOL*HTCP C IP = 1 DO 920 I = 1,NNODE HTFLX(IP ) = G(1,1)*BTERMS(I) + G(2,1)*BTERMS(I+NNODE) HTFLX(IP+1) = G(3,1)*BTERMS(I) + G(4,1)*BTERMS(I+NNODE) IP = IP + 2 920 CONTINUE CALL GMMATS (BTERMS,2,NNODE,-1, HTFLX,NNODE,2,1, HTCON) C C FINISHED WITH HEAT CONDUCTIVITY MATRIX, DO HEAT CAPACITY IF C REQUIRED. C IF (HTCP .EQ. 0.0) GO TO 950 IP = 1 DO 940 I = 1,NNODE DHEAT = WEITC*SHPT(I) DO 930 J = 1,NNODE HTCAP(IP) = HTCAP(IP) + DHEAT*SHPT(J) IP = IP + 1 930 CONTINUE 940 CONTINUE C 950 CONTINUE C C END OF INTEGRATION LOOP, SHIP OUT THE RESULTS. C DICT(1) = ESTID DICT(2) = 1 DICT(3) = NNODE DICT(4) = 1 IF (WEITC .EQ. 0.0) GO TO 1000 ADAMP = 1.0 CALL EMGOUT (HTCAP,HTCAP,NNOD2,IEOE,DICT,DMAT,PREC) 1000 ADAMP = 0.0 CALL EMGOUT (HTCON,HTCON,NNOD2,IEOE,DICT,KMAT,PREC) C GO TO 1200 C C C FATAL ERRORS C C INSUFFICIENT MEMORY IS AVAILABLE C 1100 CALL MESAGE (-30,228,NAME) GO TO 1140 C C CTRIA3 ELEMENT HAS ILLEGAL GEOMETRY OR CONNECTIONS C 1110 J = 224 GO TO 1140 C C THE X-AXIS OF THE MATERIAL COORDINATE SYSTEM HAS NO PROJECTION C ON TO THE PLANE OF CTRIA3 ELEMENT C 1120 J = 225 NEST(2) = MCSID GO TO 1140 C C ILLEGAL DATA DETECTED ON MATERIAL ID REFERENCED BY CTRIA3 ELEMENT C FOR MID3 APPLICATION C 1130 J = 226 NEST(2) = MID(3) C 1140 CALL MESAGE (30,J,NEST(1)) IF (L38 .EQ. 1) CALL MESAGE (-61,0,0) NOGO = 1 C 1200 CONTINUE RETURN END ================================================ FILE: mis/triaad.f ================================================ SUBROUTINE TRIAAD C C THIS SUBROUTINE COMPUTES THE STIFFNESS AND MASS MATRICES FOR THE C ASSYMMETRIC RING WITH A TRIANGULAR CROSS SECTION, TO BE USED BY C THE ELEMENT MATRIX GENERATOR. C C DOUBLE PRECISION VERSION C C THIS CURRENT VERSION ALLOWS FOR COORDINATE SYSTEM C THIS SUBROUTINE USES THE ADDITIONAL ROUTINES DKL, DELTKL C C THE ECPT FOR THE TRIAX ELEMENT IS C C ECPT (01) = ELEMENT ID I C ECPT (02) = SIL A I C ECPT (03) = SIL B I C ECPT (04) = SIL C I C ECPT (05) = MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT (07) = MATERIAL ID I C ECPT (08) TO ECPT(21) = STRESS PHASE ANG. R C ECPT (22) = CORD. SYS. GRID POINT A (NOT USED) I C ECPT (23) = R-CORD OF GRID A R C ECPT (24) = Z-CORD OF GRID A R C ECPT (25) = 0.0 R C ECPT (26) = CORD. SYS. GRID POINT B (NOT USED) I C ECPT (27) = R-CORD OF GRID B R C ECPT (28) = Z-CORD OF GRID B R C ECPT (29) = 0.0 R C ECPT (30) = CORD. SYS. GRID POINT C (NOT USED) I C ECPT (31) = R-CORD OF GRID C R C ECPT (32) = Z-CORD OF GRID C R C ECPT (33) = 0.0 R C ECPT (34) = EL. TEMPERATURE FOR MATERIAL PROP R C C ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING C ...KSYS78 OR LSYS78 ... INDICATES CODING NECESSARY FOR THIS C ELEMENT*S PIEZOELECTRIC CAPABILITY C C KSYS78 = 0 ELASTIC, NON-PIEZOELECTRIC MATERIAL C KSYS78 = 1 ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL C KSYS78 = 2 ELASTIC ONLY, PIEZOELECTRIC MATERIAL C LSYS78 = .TRUE. IF KSYS78 = 0, OR 2 C LOGICAL PZMAT,LSYS78,NOGO,HEAT INTEGER DICT(11),ELID,ESTID,ISORT(3) DOUBLE PRECISION ZA,AKI,AKT,ACURL,D(81),AK(81),AKJ, 1 GABABQ(9,9),R(3),Z(3),EE(63),TEO,DELINT(12), 2 DELM(12),BMASS(9,9),AKM(81),AKJM(81),AMT(9), 3 Z1,Z2,Z3,PI,TWOPI,DEGRAD,ZMIN,AA,C1,C2,C3, 4 COSG,SING,ER,ET,EZ,VRO,VOZ,VZR, 5 GOR,GZO,GRZ,VOR,VZO,VRZ,DEL,DKL,C4,S2,S4,DGAMR, 6 AJHO,AJJHO,RHOD,DGAMAR,CONVM,AREA,C2S2, 7 ACURP1(27),ACURP2(9),AKUPH(27),AKPH2(9),AKIP(9), 8 GABABP(3,3),D1(27),D2(9),CONSTS DIMENSION IECPT(34),ICS(3),ECPT(34) COMMON /TRIAXX/ AKI(81),AKT(16),ACURL(117),AKJ(144),TEO(45) COMMON /SYSTEM/ KSYSTM(77),KSYS78 COMMON /EMGPRM/ IXTRA,DUM(14),ISMB(3),IPREC,NOGO,HEAT,ICMBAR COMMON /EMGDIC/ DXX,LDICT,NGRIDS,ELID,ESTID COMMON /EMGEST/ IDEL,IGP(3),DGAMA,DM1,MATID,SPA(14),ICS1,R1,ZZ1, 1 ZER,ICS2,R2,ZZ2,ZER2,ICS3,R3,ZZ3,ZER3,TEMPE COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO,GSUBE,MOSKP(9), 1 SETMAT COMMON /CONDAD/ CONSTS(5) COMMON /MATPZ / PZOUT(51) C C COMMON /MATPZ / CE11,CE12,CE13,CE14,CE15,CE16,CE22,CE23,CE24,CE25, C CE26,CE33,CE34,CE35,CE36,CE44,CE45,CE46,CE55,CE56, C CE66,E11,E12,E13,E14,E15,E16,E21,E22,E23,E24,E25, C E26,E31,E32,E33,E34,E35,E36,EPS11,EPS12,EPS13, C EPS22,EPS23,EPS33,RHO,A1,A2,A12,TREF,GE C EQUIVALENCE (IECPT(1),ECPT(1),IDEL), (DICT(5),DICT5), 1 (Z(1),Z1), (Z(2),Z2), (Z(3),Z3), 2 (AKI(1),GABABQ(1,1)), (BMASS(1,1),AKM(1)), 3 (CONSTS(1),PI), (CONSTS(4),DEGRAD), 4 (CONSTS(2),TWOPI), (AKIP(1),GABABP(1,1)), 5 (ACURP1(1),ACURL(82)), (ACURP2(1),ACURL(109)) DATA IDEL2 , JAX / 0, 4HTRIA / C LSYS78 = .FALSE. IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE. IDEL1 = IDEL/1000 C C INITALIZE C DO 40 I = 1,403 40 AKI(I) = 0.D0 DO 50 I = 1,3 R(I) = ECPT(4*I+19) Z(I) = ECPT(4*I+20) 50 ICS(I) = IECPT(4*I+18) C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 15 IPR = IPREC C IF (R1.LE.0. .OR. R2.LE.0. .OR. R3.LE.0.) GO TO 7770 C C COMPUTE THE ELEMENT COORDINATES C ZMIN = DMIN1(Z1,Z2,Z3) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN C C FORM TRANSFORMATION MATRIX GABABQ (9X9) FROM FIELD COORDINATES TO C GRID POINT DEGREES OF FREEDOM C DO 100 I = 1,9 DO 100 J = 1,9 100 GABABQ(I,J) = 0.D0 C AA = 1.D0/(R2*Z3 + R1*Z2 + Z1*R3 - Z2*R3 - R1*Z3 - R2*Z1) C1 = AA*(R2*Z3 - Z2*R3) C2 = -AA*(Z3 - Z2) C3 = AA*(R3 - R2) GABABQ(1,1) = C1 GABABQ(1,2) = C2 GABABQ(1,3) = C3 GABABQ(2,4) = C1 GABABQ(2,5) = C2 GABABQ(2,6) = C3 GABABQ(3,7) = C1 GABABQ(3,8) = C2 GABABQ(3,9) = C3 IF (LSYS78) GO TO 102 GABABP(1,1) = C1 GABABP(1,2) = C2 GABABP(1,3) = C3 102 CONTINUE C1 = -AA*(R1*Z3 - Z1*R3) C2 = AA*(Z3 - Z1) C3 = -AA*(R3 - R1) GABABQ(4,1) = C1 GABABQ(4,2) = C2 GABABQ(4,3) = C3 GABABQ(5,4) = C1 GABABQ(5,5) = C2 GABABQ(5,6) = C3 GABABQ(6,7) = C1 GABABQ(6,8) = C2 GABABQ(6,9) = C3 IF (LSYS78) GO TO 104 GABABP(2,1) = C1 GABABP(2,2) = C2 GABABP(2,3) = C3 104 CONTINUE C1 = AA*(R1*Z2 - Z1*R2) C2 = -AA*(Z2 - Z1) C3 = AA*(R2 - R1) GABABQ(7,1) = C1 GABABQ(7,2) = C2 GABABQ(7,3) = C3 GABABQ(8,4) = C1 GABABQ(8,5) = C2 GABABQ(8,6) = C3 GABABQ(9,7) = C1 GABABQ(9,8) = C2 GABABQ(9,9) = C3 IF (LSYS78) GO TO 110 GABABP(3,1) = C1 GABABP(3,2) = C2 GABABP(3,3) = C3 110 CONTINUE C C COMPUTE THE INTEGRAL VALUES IN ARRAY DELINT THE ORDER IS INDICATED C THE FOLLOWING TABLE C C DELINT(01) = (-1,0) C DELINT(02) = (-1,1) C DELINT(03) = (-1,2) C DELINT(04) = ( 0,0) C DELINT(05) = ( 0,1) C DELINT(06) = ( 1,0) C C OR FOR THE MASS MATRIX C C DELINT(1) = (1,0) C DELINT(2) = (1,1) C DELINT(3) = (1,2) C DELINT(4) = (2,0) C DELINT(5) = (2,1) C DELINT(7) = (3,0) C C IF (ISMB(1) .EQ. 0) GO TO 180 RA = (R1 + R2 + R3)/3.0 ZA = (Z1 + Z2 + Z3)/3.0D0 RH = AMIN1(R1,R2,R3)/10.0 DR = AMAX1(ABS(R1-R2),ABS(R2-R3),ABS(R3-R1)) AREA = (R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2))/2.0D0 C I1 = 0 DO 160 I = 1,2 IP = I - 2 DO 140 J = 1,3 IQ = J - 1 I1 = I1 + 1 IF (I1 .NE. 6) GO TO 120 IP = 1 IQ = 0 120 IF (DR .GT. RH) GO TO 130 DELINT(I1) = ((RA**IP)*(ZA**IQ))*AREA GO TO 135 130 DELINT(I1) = DKL(3,IP,IQ,R,Z) 135 DELINT(I1) = DABS(DELINT(I1)) 140 CONTINUE 160 CONTINUE C C MASS MATRIX C IF (ISMB(2) .EQ. 0) GO TO 200 180 CALL DELTKL (AKJ,R,Z,0) DELM(1) = AKJ(2) DELM(2) = AKJ(7) DELM(3) = AKJ(8) DELM(4) = AKJ(10) DELM(5) = AKJ(9) DELM(7) = AKJ(12) C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 C 200 DGAMR = DBLE(DGAMA)*DEGRAD COSG = DCOS(DGAMR) SING = DSIN(DGAMR) SINTH = SING COSTH = COSG MATIDC = MATID MATFLG = 7 IF (KSYS78 .GT. 0) MATFLG = 9 ELTEMP = TEMPE CALL MAT (IDEL) PZMAT = .FALSE. IF (SETMAT.EQ.4. .OR. SETMAT.EQ.5.) PZMAT = .TRUE. IF (PZMAT) GO TO 210 KSAVE = KSYS78 KSYS78 = 0 LSYS78 = .TRUE. GO TO 220 210 RHO = PZOUT(46) ALF(1) = PZOUT(47) ALF(2) = PZOUT(48) ALF(3) = PZOUT(49) TZERO = PZOUT(50) GSUBE = PZOUT(51) 220 CONTINUE IF (SETMAT .EQ. 2.) GO TO 7780 DICT5 = G SUB E IF (KSYS78 .GT. 0) GO TO 249 C C SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES C ER = E(1) ET = E(2) EZ = E(3) VRO = ANU(1) VOZ = ANU(2) VZR = ANU(3) GOR = G(1) GZO = G(2) GRZ = G(3) VOR = VRO*ET/ER VZO = VOZ*EZ/ET VRZ = VZR*ER/EZ DEL = 1.D0/(1.D0 - VRO*VOR - VOZ*VZO - VZR*VRZ 1 - VRO*VOZ*VZR - VRZ*VOR*VZO) C C COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS C 249 CONTINUE DO 250 I = 1,45 250 TEO(I) = 0.D0 C IF (KSYS78 .GT. 0) GO TO 251 TEO( 1) = ER*(1. - VOZ*VZO)*DEL TEO( 2) = ER*(VZR + VZO*VOR)*DEL TEO( 3) = EZ*(1. - VRO*VOR)*DEL TEO( 4) = ER*(VOR + VZR*VOZ)*DEL TEO( 5) = ET*(VZO + VRO*VZR)*DEL TEO( 6) = ET*(1. - VRZ*VZR)*DEL TEO(10) = GRZ TEO(15) = GOR TEO(21) = GZO GO TO 252 251 CONTINUE C C PIEZOELECTRIC MATERIAL PROPERTIES STORED IN TEO(22-39) C DIELECTRIC MATERIAL PROPERTIES STORED IN TEO(40-45) C TEO(22-39) CONTAINS E-TRANSPOSE C TEO( 1) = PZOUT( 1) TEO( 2) = PZOUT( 2) TEO( 3) = PZOUT( 7) TEO( 4) = PZOUT( 3) TEO( 5) = PZOUT( 8) TEO( 6) = PZOUT(12) TEO( 7) = PZOUT( 4) TEO( 8) = PZOUT( 9) TEO( 9) = PZOUT(13) TEO(10) = PZOUT(16) TEO(11) = PZOUT( 5) TEO(12) = PZOUT(10) TEO(13) = PZOUT(14) TEO(14) = PZOUT(17) TEO(15) = PZOUT(19) TEO(16) = PZOUT( 6) TEO(17) = PZOUT(11) TEO(18) = PZOUT(15) TEO(19) = PZOUT(18) TEO(20) = PZOUT(20) TEO(21) = PZOUT(21) IF (KSYS78 .EQ. 2) GO TO 252 TEO(22) = PZOUT(22) TEO(23) = PZOUT(28) TEO(24) = PZOUT(34) TEO(25) = PZOUT(23) TEO(26) = PZOUT(29) TEO(27) = PZOUT(35) TEO(28) = PZOUT(24) TEO(29) = PZOUT(30) TEO(30) = PZOUT(36) TEO(31) = PZOUT(25) TEO(32) = PZOUT(31) TEO(33) = PZOUT(37) TEO(34) = PZOUT(26) TEO(35) = PZOUT(32) TEO(36) = PZOUT(38) TEO(37) = PZOUT(27) TEO(38) = PZOUT(33) TEO(39) = PZOUT(39) TEO(40) =-PZOUT(40) TEO(41) =-PZOUT(41) TEO(42) =-PZOUT(42) TEO(43) =-PZOUT(43) TEO(44) =-PZOUT(44) TEO(45) =-PZOUT(45) 252 CONTINUE C2 = COSG*COSG C4 = C2 *C2 S2 = SING*SING S4 = S2 *S2 C2S2 = C2*S2 C3 = COSG*C2 S3 = SING*S2 CS2 = COSG*S2 SC2 = SING*C2 CS = COSG*SING C EE( 1) = TEO(1)*C4 + TEO(3)*S4 + 2.*C2S2*(TEO(2) + 2.*TEO(10)) EE( 2) = TEO(2)*(C4+S4) + C2S2*(TEO(1)+TEO(3) - 4.*TEO(10)) EE( 3) = TEO(4)*C2 + TEO(5)*S2 EE( 4) = COSG*SING*S2*(TEO(2) - TEO(3) + 2.*TEO(10)) 4 + SING*COSG*C2*(TEO(1) - TEO(2) - 2.*TEO(10)) EE( 7) = EE(2) EE( 8) = TEO(1)*S4 + 2.*C2S2*(TEO(2) + 2.*TEO(10)) + TEO(3)*C4 EE( 9) = TEO(4)*S2 + TEO(5)*C2 EE(10) = SING*COSG*C2*(TEO(2) - TEO(3) + 2.*TEO(10)) O + COSG*SING*S2*(TEO(1) - TEO(2) - 2.*TEO(10)) EE(13) = EE(3) EE(14) = EE(9) EE(15) = TEO(6) EE(16) = SING*COSG*(TEO(4)-TEO(5)) EE(19) = EE(4) EE(20) = EE(10) EE(21) = EE(16) EE(22) = C2S2*(TEO(1) - 2.*TEO(2) + TEO(3)) + TEO(10)*(C2-S2)**2 EE(29) = TEO(15)*C2 + TEO(21)*S2 EE(30) = SING*COSG*(TEO(15)-TEO(21)) EE(35) = EE(30) EE(36) = TEO(15)*S2 + TEO(21)*C2 C IF (LSYS78) GO TO 254 C C PIEZOELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINATES C EE(37) = C3*TEO(22) - S3*TEO(26) + CS2*(TEO(25)+2.0*TEO(32)) - 7 SC2*(TEO(23)+2.0*TEO(31)) EE(38) = C3*TEO(23) + S3*TEO(25) + CS2*(TEO(26)-2.0*TEO(31)) + 8 SC2*(TEO(22) - 2.0*TEO(32)) EE(39) = S2*TEO(27) + C2*TEO(24) - 2.0*CS*TEO(33) EE(40) = C3*TEO(25) - S3*TEO(23) + CS2*(TEO(22)-2.0*TEO(32)) - O SC2*(TEO(26) - 2.0*TEO(31)) EE(41) = C3*TEO(26) + S3*TEO(22) + CS2*(TEO(23)+2.0*TEO(31)) + 1 SC2*(TEO(25) + 2.0*TEO(32)) EE(42) = S2*TEO(24) + C2*TEO(27) + 2.0*CS*TEO(33) EE(43) = COSG*TEO(28) - SING*TEO(29) EE(44) = COSG*TEO(29) + SING*TEO(28) EE(45) = TEO(30) EE(46) = C3*TEO(31) + S3*TEO(32) - CS2*(TEO(23)-TEO(26)+TEO(31)) + 6 SC2*(-TEO(32) - TEO(25)+TEO(22)) EE(47) = C3*TEO(32) - S3*TEO(31) - CS2*(TEO(25)-TEO(22)+TEO(32)) + 7 SC2*(TEO(23) + TEO(31)-TEO(26)) EE(48) = (C2-S2)*TEO(33) + CS*(TEO(24)-TEO(27)) EE(49) = C2*TEO(34) + S2*TEO(38) - CS*(TEO(35)+TEO(37)) EE(50) = C2*TEO(35) - S2*TEO(37) + CS*(TEO(34)-TEO(38)) EE(51) = COSG*TEO(36) - SING*TEO(39) EE(52) = C2*TEO(37) - S2*TEO(35) - CS*(TEO(38)-TEO(34)) EE(53) = C2*TEO(38) + S2*TEO(34) + CS*(TEO(35)+TEO(37)) EE(54) = COSG*TEO(39) + SING*TEO(36) C C DIELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINTES C EE(55) = S2*TEO(43) - 2.0*CS*TEO(41) + C2*TEO(40) EE(56) = (C2-S2)*TEO(41) - CS*(TEO(43) - TEO(40)) EE(57) =-SING*TEO(44) + COSG*TEO(42) EE(59) = C2*TEO(43) + 2.0*CS*TEO(41) + S2*TEO(40) EE(60) = COSG*TEO(44) + SING*TEO(42) EE(63) = TEO(45) 254 CONTINUE C C COMPUTE HARMONIC COEFFICIENT C MJHO = MOD(IECPT(1),1000) - 1 AJHO = MJHO AJJHO= AJHO*AJHO RHOD = RHO *PI IF (AJHO .EQ. 0.D0) RHOD = 2.*RHOD IF (ISMB(1) .EQ. 0) GO TO 300 C C FORM THE ELEMENT STIFFNESS MATRIX IN FIELD SYSTEM C ACURL(01) = (EE(15) + AJJHO*EE(29))*DELINT(1) ACURL(02) = (EE(03) + EE(15) + AJJHO*EE(29))*DELINT(4) ACURL(03) = (EE(15) + AJJHO*EE(29))*DELINT(2) + EE(16)*DELINT(4) ACURL(04) = (EE(15) + EE(29))*AJHO*DELINT(1) ACURL(05) = EE(15)*AJHO*DELINT(4) ACURL(06) = (EE(15) + EE(29))*AJHO*DELINT(2) - 6 EE(30)*AJHO*DELINT(4) ACURL(07) = AJJHO*DELINT(1)*EE(35) ACURL(08) = (EE(16) + AJJHO*EE(35))*DELINT(4) ACURL(09) = EE(09)*DELINT(4) + AJJHO*DELINT(2)*EE(35) ACURL(11) = (EE(1) + 2.*EE(3) + EE(15) + AJJHO*EE(29))*DELINT(6) ACURL(12) = (EE(3) + EE(15) + AJJHO*EE(29))*DELINT(5) 2 + (EE(4) + EE (16))*DELINT(6) ACURL(13) = (EE(3) + EE(15) + EE(29))*AJHO*DELINT(4) ACURL(14) = (EE(3) + EE(15))*DELINT(6)*AJHO ACURL(15) = (EE(3) + EE(15) + EE(29))*AJHO*DELINT(5) - 5 AJHO*EE(30)*DELINT(6) ACURL(16) = AJJHO*DELINT(4)*EE(35) ACURL(17) = (EE(4) + EE(16) + AJJHO*EE(35))*DELINT(6) ACURL(18) = (EE(2) + EE(9))*DELINT(6) + AJJHO*DELINT(5)*EE(35) ACURL(21) = (EE(15) + AJJHO*EE(29))*DELINT(3) + 1 EE(22)*DELINT(6) + 2.*EE(16)*DELINT(5) ACURL(22) = (EE(15) + EE(29))*AJHO*DELINT(2) + 2 AJHO*DELINT(4)*EE(16) ACURL(23) = EE(15)*AJHO*DELINT(5) + AJHO*DELINT(6)*EE(16) ACURL(24) = (EE(15) + EE(29))*AJHO*DELINT(3) + (EE(16)-EE(30)) 4 * AJHO*DELINT(5) ACURL(25) = AJJHO*DELINT(2)*EE(35) ACURL(26) = EE(22)*DELINT(6) + (EE(21) + AJJHO*EE(35))*DELINT(5) ACURL(27) = EE(9)*DELINT(5) + EE(10)*DELINT(6) + 7 AJJHO*DELINT(3)*EE(35) ACURL(31) = (EE(29) + AJJHO*EE(15))*DELINT(1) ACURL(32) = EE(15)*AJJHO*DELINT(4) ACURL(33) = (EE(29) + AJJHO*EE(15))*DELINT(2) - EE(30)*DELINT(4) ACURL(34) = AJHO*DELINT(1)*EE(35) ACURL(35) = AJHO*(EE(16) + EE(35))*DELINT(4) ACURL(36) = EE(9)*AJHO*DELINT(4) + AJHO*DELINT(2)*EE(35) ACURL(41) = AJJHO*DELINT(06)*EE(15) ACURL(42) = EE(15)*AJJHO*DELINT(5) ACURL(43) = 0. ACURL(44) = AJHO*DELINT(6)*EE(16) ACURL(45) = EE(9)*AJHO*DELINT(6) ACURL(51) = (EE(29) + AJJHO*EE(15))*DELINT(3) + EE(36)*DELINT(6) 1 - 2.*EE(35)*DELINT(5) ACURL(52) = AJHO*(DELINT(2)*EE(30) - DELINT(4)*EE(36)) ACURL(53) = -EE(36)*AJHO*DELINT(6) + AJHO*(EE(16) + EE(35)) 3 * DELINT(5) ACURL(54) = (EE(9) - EE(36))*AJHO*DELINT(5) + 4 AJHO*DELINT(3)*EE(35) ACURL(61) = EE(36)*AJJHO*DELINT(1) ACURL(62) = EE(36)*AJJHO*DELINT(4) ACURL(63) = EE(36)*AJJHO*DELINT(2) ACURL(71) = (EE(22) + AJJHO*EE(36))*DELINT(6) ACURL(72) = EE(36)*AJJHO*DELINT(5) + EE(20)*DELINT(6) ACURL(81) = EE(36)*AJJHO*DELINT(3) + EE(8)*DELINT(6) IF (LSYS78) GO TO 256 ACURL(82) =-(EE(45) - AJHO*EE(51))*AJHO*DELINT(1) ACURL(83) = (EE(43) - AJHO*EE(45) - AJHO*EE(49) + AJJHO*EE(51)) 3 * DELINT(4) ACURL(84) = (EE(44) - AJHO*EE(50))*DELINT(4) - (EE(45) 4 - AJHO*EE(51))*AJHO*DELINT(2) ACURL(85) =-(EE(39) + EE(45) - AJHO*EE(51))*AJHO*DELINT(4) ACURL(86) = (EE(37) + EE(43) - (EE(39) + EE(45) + EE(49) 6 - AJHO*EE(51))*AJHO)*DELINT(6) ACURL(87) = (EE(38) + EE(44) - AJHO*EE(50))*DELINT(6) - (EE(39) 7 + EE(45) - AJHO*EE(51))*AJHO*DELINT(5) ACURL(88) =-(EE(45) - AJHO*EE(51))*AJHO*DELINT(2) - EE(48)*AJHO 8 * DELINT(4) ACURL(89) = (EE(43) - AJHO*EE(45) - AJHO*EE(49) + AJJHO*EE(51)) 9 * DELINT(5) + (EE(46) - EE(48)*AJHO)*DELINT(6) ACURL(90) = (EE(44) - AJHO*EE(48) - AJHO*EE(50))*DELINT(5) O + EE(47)*DELINT(6) - (EE(45)-AJHO*EE(51))*AJHO*DELINT(3) ACURL(91) =-(EE(45)*AJHO - EE(51))*AJHO*DELINT(1) ACURL(92) = (AJHO*EE(43) - AJJHO*EE(45) - EE(49) + AJHO*EE(51)) 2 * DELINT(4) ACURL(93) = (EE(44)*AJHO - EE(50))*DELINT(4) - (EE(45)*AJHO 3 - EE(51))*AJHO*DELINT(2) ACURL(94) =-EE(45)*AJJHO*DELINT(4) ACURL(95) = (EE(43) - AJHO*EE(45))*AJHO*DELINT(6) ACURL(96) = EE(44)*AJHO*DELINT(6) - EE(45)*AJJHO*DELINT(5) ACURL(97) =-(EE(45)*AJHO - EE(51))*AJHO*DELINT(2) - EE(54)*AJHO 7 * DELINT(4) ACURL(98) = (EE(43)*AJHO - AJJHO*EE(45) - EE(49) + EE(51)*AJHO) 8 * DELINT(5) + (EE(52) - AJHO*EE(54))*DELINT(6) ACURL(99) = (EE(44)*AJHO - EE(50) - EE(54)*AJHO)*DELINT(5) 9 + EE(53)*DELINT(6) - (EE(45)*AJHO - EE(51))*AJHO 9 * DELINT(3) ACURL(100)= EE(54)*AJJHO*DELINT(1) ACURL(101)=-(EE(52) - EE(54)*AJHO)*AJHO*DELINT(4) ACURL(102)=-(EE(53)*DELINT(4) - EE(54)*AJHO*DELINT(2))*AJHO ACURL(103)=-(EE(48) - EE(54)*AJHO)*AJHO*DELINT(4) ACURL(104)= (EE(46) - EE(48)*AJHO - EE(52)*AJHO+EE(54)*AJJHO) 4 * DELINT(6) ACURL(105)= (EE(47) - EE(53)*AJHO)*DELINT(6) - (EE(48) - EE(54) 5 * AJHO)*AJHO*DELINT(5) ACURL(106)= EE(54)*AJJHO*DELINT(2) - EE(42)*AJHO*DELINT(4) ACURL(107)= (EE(40) - EE(42)*AJHO)*DELINT(6) - (EE(52) - EE(54) 7 * AJHO)*AJHO*DELINT(5) ACURL(108)= EE(41)*DELINT(6) + (-EE(42) - EE(53))*AJHO*DELINT(5) 8 + EE(54)*AJJHO*DELINT(3) C ACURL(109)= EE(63)*AJJHO*DELINT(1) ACURL(110)= (-EE(57) + EE(63)*AJHO)*AJHO*DELINT(4) ACURL(111)=-EE(60)*AJHO*DELINT(4) + EE(63)*AJJHO*DELINT(2) ACURL(112)= ACURL(110) ACURL(113)= (EE(55) - 2.0*EE(57)*AJHO+EE(63)*AJJHO)*DELINT(6) ACURL(114)= (EE(56) - EE(60)*AJHO)*DELINT(6) + (-EE(57) + EE(63) 4 * AJHO)*AJHO*DELINT(5) ACURL(115)= ACURL(111) ACURL(116)= ACURL(114) ACURL(117)= EE(59)*DELINT(6) - 2.0*EE(60)*AJHO*DELINT(5) + EE(63) 7 * AJJHO*DELINT(3) 256 CONTINUE C C EXPAND ACURL INTO (9X9) C DO 270 IB = 2,9 IC = 10*IB - 19 I = IC DO 260 J = IB,9 IC = IC + 9 I = I + 1 260 ACURL(IC) = ACURL(I) 270 CONTINUE DGAMAR = PI IF (AJHO .EQ. 0.D0) DGAMAR = TWOPI DO 280 I = 1,81 280 ACURL(I) = ACURL(I)*DGAMAR IF (LSYS78) GO TO 300 C DO 290 I = 82,117 290 ACURL(I) = ACURL(I)*DGAMAR C 300 IF (ISMB(2).EQ. 0) GO TO 400 IF (ICMBAR .LT. 0) GO TO 350 C C CONSISTENT MASS IN FIELD COORDINATES C DO 320 I = 1,81 320 BMASS(I,1) = 0. BMASS(1,1) = RHOD*DELM(1) BMASS(1,2) = RHOD*DELM(4) BMASS(1,3) = RHOD*DELM(2) BMASS(2,1) = RHOD*DELM(4) BMASS(2,2) = RHOD*DELM(7) BMASS(2,3) = RHOD*DELM(5) BMASS(3,1) = RHOD*DELM(2) BMASS(3,2) = RHOD*DELM(5) BMASS(3,3) = RHOD*DELM(3) BMASS(4,4) = RHOD*DELM(1) BMASS(4,5) = RHOD*DELM(4) BMASS(4,6) = RHOD*DELM(2) BMASS(5,4) = RHOD*DELM(4) BMASS(5,5) = RHOD*DELM(7) BMASS(5,6) = RHOD*DELM(5) BMASS(6,4) = RHOD*DELM(2) BMASS(6,5) = RHOD*DELM(5) BMASS(6,6) = RHOD*DELM(3) BMASS(7,7) = RHOD*DELM(1) BMASS(7,8) = RHOD*DELM(4) BMASS(7,9) = RHOD*DELM(2) BMASS(8,7) = RHOD*DELM(4) BMASS(8,8) = RHOD*DELM(7) BMASS(8,9) = RHOD*DELM(5) BMASS(9,7) = RHOD*DELM(2) BMASS(9,8) = RHOD*DELM(5) BMASS(9,9) = RHOD*DELM(3) GO TO 400 350 AREA = (R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2))/2. CONVM = RHOD*(R1 + R2 + R3)/3.*AREA C C TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD SYSTEM C TO GRID POINT DEGREES OF FREEDOM C 400 IF (ISMB(1) .EQ. 0) GO TO 410 CALL GMMATD (AKI,9,9,1,ACURL,9,9,0,D ) CALL GMMATD (D, 9,9,0,AKI ,9,9,0,AK) IF (LSYS78) GO TO 405 CALL GMMATD (AKI,9,9,1,ACURP1,9,3,0,D1) CALL GMMATD (D1, 9,3,0,AKIP, 3,3,0,AKUPH) CALL GMMATD (AKIP,3,3,1,ACURP2,3,3,0,D2) CALL GMMATD (D2, 3,3,0,AKIP, 3,3,0,AKPH2) 405 CONTINUE C IF (ISMB(2).EQ.0 .OR. ICMBAR.LT.0) GO TO 450 410 CALL GMMATD (AKI,9,9,1,BMASS,9,9,0,D) CALL GMMATD (D, 9,9,0,AKI, 9,9,0,AKM) C 450 DO 460 I = 1,81 AKJ(I) = 0.D0 460 AKJM(I) = 0.D0 DO 462 I = 82,117 462 AKJ(I) = 0.D0 C GO TO 480 C C CREATE AN ARRAY OF SORTED GRID POINTS C 480 DO 482 I = 1,3 ISORT(I) = IGP(I) 482 CONTINUE I = -3 484 J = 0 DO 486 K = 1,3 IF (ISORT(K) .LT. J) GO TO 486 J = ISORT(K) L = K 486 CONTINUE ISORT(L) = I I = I + 1 IF (I .LT. 0) GO TO 484 DO 490 I = 1,3 ISORT(I) = -ISORT(I) 490 CONTINUE C C TRANSFORM 3 X 3 TO 6 X 6 FOR COORD SYSTEM TRANSFORMATIONS C DO 600 ISIL = 1,3 IPP = ISORT(ISIL) C IR1 = 3*(ISIL-1) + 1 DO 590 II = 1,3 I = ISORT(II) IC1 = 3*(II-1) + 1 IRC = (IR1 -1)*9 + IC1 DO 500 J = 1,3 J1 = (J-1)*4 + 1 IRCC = IRC + (J-1)*9 IF (ISMB(1) .EQ. 0) GO TO 495 AKT(J1 ) = AK(IRCC ) AKT(J1+1) = AK(IRCC+1) AKT(J1+2) = AK(IRCC+2) IF (LSYS78) GO TO 492 M = IRCC/3 + 1 N = (M-1)/9 + 1 + (II-1)*9 + (J-1)*3 AKT(J1+3) = AKUPH(M) AKT(J1+15-J*3) = AKUPH(N) AKT(16) = AKPH2(IR1+II-1) 492 CONTINUE C 495 IF (ISMB(2).EQ.0 .OR. ICMBAR.LT.1) GO TO 500 J1 = (J-1)*3 + 1 AMT(J1 ) = AKM(IRCC ) AMT(J1+1) = AKM(IRCC+1) AMT(J1+2) = AKM(IRCC+2) 500 CONTINUE C C NOW INSERT AKT AND AMT INTO THE OVERALL STIFFNESS MATRICES C ACCORDING TO INCREASING SIL VALUE C DO 550 IJ = 1,3 DO 550 JJ = 1,3 KI = (IJ-1)*3 + JJ IOUT = (IPP-1)*27 + (I-1)*3 + (IJ-1)*9 + JJ 550 AKJM(IOUT)= AMT(KI) DO 560 IJ = 1,4 DO 560 JJ = 1,4 KI = (IJ-1)*4 + JJ IOUT = (IPP-1)*48 + (I-1)*4 + (IJ-1)*12 + JJ 560 AKJ(IOUT) = AKT(KI) 590 CONTINUE 600 CONTINUE C C NOW OUTPUT THE MATRIX VIA EMG OUT C DICT(2) = 1 IF (ISMB(1) .EQ. 0) GO TO 650 CALL EMGOUT (AKJ,AKJ,144,1,DICT,1,IPR) 650 IF (ISMB(2).EQ.0 .AND. .NOT.PZMAT) KSYS78 = KSAVE IF (ISMB(2) .EQ. 0) RETURN DICT(3) = 9 DICT(4) = 7 IF (ICMBAR .LT. 0) GO TO 670 CALL EMGOUT (AKJM,AKJM,81,1,DICT,2,IPR) GO TO 700 C C GENERATE LUMPED MASS MATRIX HERE C 670 DO 680 I = 1,9 680 AKJM(I) = CONVM/3.0D0 DICT(2) = 2 CALL EMGOUT (AKJM,AKJM,9,1,DICT,2,IPR) 700 IF (.NOT.PZMAT) KSYS78 = KSAVE RETURN C C ERROR EXITS C 7770 I = 37 7777 IF (IDEL1 .EQ. IDEL2) GO TO 7778 IDEL2 = IDEL1 ICS(1) = IDEL1 ICS(2) = JAX CALL MESAGE (30,I,ICS) 7778 NOGO = .TRUE. GO TO 700 7780 I = 126 GO TO 7777 END ================================================ FILE: mis/triaax.f ================================================ SUBROUTINE TRIAAX C C THIS SUBROUTINE COMPUTES THE STIFFNESS AND MASS MATRICES FOR THE C ASSYMMETRIC RING WITH A TRIANGULAR CROSS SECTION, TO BE USED BY C THE ELEMENT MATRIX GENERATOR. C C SINGLE PRECISION VERSION C C THIS CURRENT VERSION ALLOWS FOR COORDINATE SYSTEM C THIS SUBROUTINE USES THE ADDITIONAL ROUTINES DKL, DELTKL C C THE ECPT FOR THE TRIAX ELEMENT IS C C ECPT (01) = ELEMENT ID I C ECPT (02) = SIL A I C ECPT (03) = SIL B I C ECPT (04) = SIL C I C ECPT (05) = MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT (07) = MATERIAL ID I C ECPT (08) TO ECPT(21) = STRESS PHASE ANG. R C ECPT (22) = CORD. SYS. GRID POINT A (NOT USED) I C ECPT (23) = R-CORD OF GRID A R C ECPT (24) = Z-CORD OF GRID A R C ECPT (25) = 0.0 R C ECPT (26) = CORD. SYS. GRID POINT B (NOT USED) I C ECPT (27) = R-CORD OF GRID B R C ECPT (28) = Z-CORD OF GRID B R C ECPT (29) = 0.0 R C ECPT (30) = CORD. SYS. GRID POINT C (NOT USED) I C ECPT (31) = R-CORD OF GRID C R C ECPT (32) = Z-CORD OF GRID C R C ECPT (33) = 0.0 R C ECPT (34) = EL. TEMPERATURE FOR MATERIAL PROP R C C ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING C ...KSYS78 OR LSYS78 ... INDICATES CODING NECESSARY FOR THIS C ELEMENT*S PIEZOELECTRIC CAPABILITY C C KSYS78 = 0 ELASTIC, NON-PIEZOELECTRIC MATERIAL C KSYS78 = 1 ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL C KSYS78 = 2 ELASTIC ONLY, PIEZOELECTRIC MATERIAL C LSYS78 = .TRUE. IF KSYS78 = 0, OR 2 C C LOGICAL NOGO,HEAT,PZMAT,LSYS78 INTEGER DICT(11),ELID,ESTID,ISORT(3) REAL GABABQ(9,9),R(3),Z(3),EE(63),TEO(45),DELINT(12), 1 ECPT(10),DELM(12),BMASS(9,9),AKM(81),AKJM(81), 2 AMT(9),GABABP(3,3) DOUBLE PRECISION CONSTS DIMENSION IECPT(34),AKI(81),AKT(16),ACURL(117),D(81),AK(81), 1 AKJ(144),ICS(3),D1(27),D2(9),ACURP1(27),ACURP2(9), 2 AKUPH(27),AKPH2(9),AKIP(9) COMMON /SYSTEM/ KSYSTM(77),KSYS78 COMMON /EMGPRM/ IXTRA,DUM(14),ISMB(3),IPREC,NOGO,HEAT,ICMBAR COMMON /EMGDIC/ DXX,LDICT,NGRIDS,ELID,ESTID COMMON /EMGEST/ IDEL,IGP(3),DGAMA,DM1,MATID,SPA(14),ICS1,R1,ZZ1, 1 ZER,ICS2,R2,ZZ2,ZER2,ICS3,R3,ZZ3,ZER3,TEMPE COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO,GSUBE,MOSKP(9), 1 SETMAT COMMON /CONDAD/ CONSTS(5) COMMON /MATPZ / PZOUT(51) C C COMMON /MATPZ / CE11,CE12,CE13,CE14,CE15,CE16,CE22,CE23,CE24,CE25, C CE26,CE33,CE34,CE35,CE36,CE44,CE45,CE46,CE55,CE56, C CE66,E11,E12,E13,E14,E15,E16,E21,E22,E23,E24,E25, C E26,E31,E32,E33,E34,E35,E36,EPS11,EPS12,EPS13, C EPS22,EPS23,EPS33,RHO,A1,A2,A12,TREF,GE C EQUIVALENCE (IECPT(1),ECPT(1),IDEL), (DICT(5),DICT5), 1 (Z(1),Z1), (Z(2),Z2), (Z(3),Z3), 2 (AKI(1),GABABQ(1,1)), (BMASS(1,1),AKM(1)), 3 (CONSTS(1),PI), (CONSTS(4),DEGRAD), 4 (CONSTS(2),TWOPI), (AKIP(1),GABABP(1,1)), 5 (ACURP1(1),ACURL(82)), (ACURP2(1),ACURL(109)) DATA IDEL2,JAX / 0, 4HTRIA/ C LSYS78 = .FALSE. IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE. IDEL1 = IDEL/1000 C C INITALIZE C DO 50 I = 1,3 R(I) = ECPT(4*I+19) Z(I) = ECPT(4*I+20) 50 ICS(I) = IECPT(4*I+18) C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 15 IPR = IPREC C IF (R1.LE.0. .OR. R2.LE.0. .OR. R3.LE.0.) GO TO 7770 C C COMPUTE THE ELEMENT COORDINATES C ZMIN = AMIN1(Z1,Z2,Z3) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN C C FORM TRANSFORMATION MATRIX GABABQ (9X9) FROM FIELD COORDINATES TO C GRID POINT DEGREES OF FREEDOM C DO 100 I = 1,9 DO 100 J = 1,9 100 GABABQ(I,J) = 0. C AA = 1./(R2*Z3 + R1*Z2 + Z1*R3 - Z2*R3 - R1*Z3 - R2*Z1) C1 = AA*(R2*Z3 - Z2*R3) C2 = -AA*(Z3 - Z2) C3 = AA*(R3 - R2) GABABQ(1,1) = C1 GABABQ(1,2) = C2 GABABQ(1,3) = C3 GABABQ(2,4) = C1 GABABQ(2,5) = C2 GABABQ(2,6) = C3 GABABQ(3,7) = C1 GABABQ(3,8) = C2 GABABQ(3,9) = C3 IF (LSYS78) GO TO 102 GABABP(1,1) = C1 GABABP(1,2) = C2 GABABP(1,3) = C3 102 CONTINUE C1 = -AA*(R1*Z3 - Z1*R3) C2 = AA*(Z3 - Z1) C3 = -AA*(R3 - R1) GABABQ(4,1) = C1 GABABQ(4,2) = C2 GABABQ(4,3) = C3 GABABQ(5,4) = C1 GABABQ(5,5) = C2 GABABQ(5,6) = C3 GABABQ(6,7) = C1 GABABQ(6,8) = C2 GABABQ(6,9) = C3 IF (LSYS78) GO TO 104 GABABP(2,1) = C1 GABABP(2,2) = C2 GABABP(2,3) = C3 104 CONTINUE C1 = AA*(R1*Z2 - Z1*R2) C2 = -AA*(Z2 - Z1) C3 = AA*(R2 - R1) GABABQ(7,1) = C1 GABABQ(7,2) = C2 GABABQ(7,3) = C3 GABABQ(8,4) = C1 GABABQ(8,5) = C2 GABABQ(8,6) = C3 GABABQ(9,7) = C1 GABABQ(9,8) = C2 GABABQ(9,9) = C3 IF (LSYS78) GO TO 110 GABABP(3,1) = C1 GABABP(3,2) = C2 GABABP(3,3) = C3 110 CONTINUE C C COMPUTE THE INTEGRAL VALUES IN ARRAY DELINT THE ORDER IS INDICATED C THE FOLLOWING TABLE C C DELINT(01) = (-1,0) C DELINT(02) = (-1,1) C DELINT(03) = (-1,2) C DELINT(04) = (0, 0) C DELINT(05) = (0, 1) C DELINT(06) = (1, 0) C C OR FOR THE MASS MATRIX C C DELINT(1) = (1,0) C DELINT(2) = (1,1) C DELINT(3) = (1,2) C DELINT(4) = (2,0) C DELINT(5) = (2,1) C DELINT(7) = (3,0) C C IF (ISMB(1) .EQ. 0) GO TO 180 RA = (R1 + R2 + R3)/3.0 ZA = (Z1 + Z2 + Z3)/3.0 RH = AMIN1(R1,R2,R3)/10.0 DR = AMAX1(ABS(R1-R2),ABS(R2-R3),ABS(R3-R1)) AREA = (R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2))/2.0 C I1 = 0 DO 160 I = 1,2 IP = I - 2 DO 140 J = 1,3 IQ = J - 1 I1 = I1 + 1 IF (I1 .NE. 6) GO TO 120 IP = 1 IQ = 0 120 IF (DR .GT. RH) GO TO 130 DELINT(I1) = ((RA**IP)*(ZA**IQ))*AREA GO TO 135 130 DELINT(I1) = DKLS(3,IP,IQ,R,Z) 135 DELINT(I1) = ABS (DELINT(I1)) 140 CONTINUE 160 CONTINUE C C MASS MATRIX C IF (ISMB(2) .EQ. 0) GO TO 200 180 CALL DELKLS (AKJ,R,Z,0) DELM (1) = AKJ(2) DELM (2) = AKJ(7) DELM (3) = AKJ(8) DELM (4) = AKJ(10) DELM (5) = AKJ(9) DELM (7) = AKJ(12) C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 C 200 DGAMR = DGAMA*DEGRAD COSG = COS(DGAMR) SING = SIN(DGAMR) SINTH = SING COSTH = COSG MATIDC = MATID MATFLG = 7 IF (KSYS78 .GT. 0) MATFLG = 9 ELTEMP = TEMPE CALL MAT (IDEL) PZMAT = .FALSE. IF (SETMAT.EQ.4. .OR. SETMAT.EQ.5.) PZMAT = .TRUE. IF (PZMAT) GO TO 210 KSAVE = KSYS78 KSYS78 = 0 LSYS78 = .TRUE. GO TO 220 210 RHO = PZOUT(46) ALF(1) = PZOUT(47) ALF(2) = PZOUT(48) ALF(3) = PZOUT(49) TZERO = PZOUT(50) GSUBE = PZOUT(51) 220 CONTINUE IF (SETMAT .EQ. 2.) GO TO 7780 DICT5 = G SUB E IF (KSYS78 .GT. 0) GO TO 249 C C SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES C ER = E(1) ET = E(2) EZ = E(3) VRO = ANU(1) VOZ = ANU(2) VZR = ANU(3) GOR = G(1) GZO = G(2) GRZ = G(3) VOR = VRO*ET/ER VZO = VOZ*EZ/ET VRZ = VZR*ER/EZ DEL = 1./(1. - VRO*VOR - VOZ*VZO - VZR*VRZ 1 - VRO*VOZ*VZR - VRZ*VOR*VZO) C C COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS C 249 CONTINUE DO 250 I = 1,45 250 TEO(I) = 0. C IF (KSYS78 .GT. 0) GO TO 251 TEO(1) = ER*(1. - VOZ*VZO)*DEL TEO(2) = ER*(VZR + VZO*VOR)*DEL TEO(3) = EZ*(1. - VRO*VOR)*DEL TEO(4) = ER*(VOR + VZR*VOZ)*DEL TEO(5) = ET*(VZO + VRO*VZR)*DEL TEO(6) = ET*(1. - VRZ*VZR)*DEL TEO(10)= GRZ TEO(15)= GOR TEO(21)= GZO GO TO 252 251 CONTINUE C C PIEZOELECTRIC MATERIAL PROPERTIES STORED IN TEO(22-39) C DIELECTRIC MATERIAL PROPERTIES STORED IN TEO(40-45) C TEO(22-39) CONTAINS E-TRANSPOSE C TEO( 1) = PZOUT( 1) TEO( 2) = PZOUT( 2) TEO( 3) = PZOUT( 7) TEO( 4) = PZOUT( 3) TEO( 5) = PZOUT( 8) TEO( 6) = PZOUT(12) TEO( 7) = PZOUT( 4) TEO( 8) = PZOUT( 9) TEO( 9) = PZOUT(13) TEO(10) = PZOUT(16) TEO(11) = PZOUT( 5) TEO(12) = PZOUT(10) TEO(13) = PZOUT(14) TEO(14) = PZOUT(17) TEO(15) = PZOUT(19) TEO(16) = PZOUT( 6) TEO(17) = PZOUT(11) TEO(18) = PZOUT(15) TEO(19) = PZOUT(18) TEO(20) = PZOUT(20) TEO(21) = PZOUT(21) IF (KSYS78 .EQ. 2) GO TO 252 TEO(22) = PZOUT(22) TEO(23) = PZOUT(28) TEO(24) = PZOUT(34) TEO(25) = PZOUT(23) TEO(26) = PZOUT(29) TEO(27) = PZOUT(35) TEO(28) = PZOUT(24) TEO(29) = PZOUT(30) TEO(30) = PZOUT(36) TEO(31) = PZOUT(25) TEO(32) = PZOUT(31) TEO(33) = PZOUT(37) TEO(34) = PZOUT(26) TEO(35) = PZOUT(32) TEO(36) = PZOUT(38) TEO(37) = PZOUT(27) TEO(38) = PZOUT(33) TEO(39) = PZOUT(39) TEO(40) =-PZOUT(40) TEO(41) =-PZOUT(41) TEO(42) =-PZOUT(42) TEO(43) =-PZOUT(43) TEO(44) =-PZOUT(44) TEO(45) =-PZOUT(45) 252 CONTINUE C2 = COSG*COSG C4 = C2 *C2 S2 = SING*SING S4 = S2 *S2 C2S2 = C2*S2 C3 = COSG*C2 S3 = SING*S2 CS2= COSG*S2 SC2= SING*C2 CS = COSG*SING C EE( 1) = TEO(1)*C4 + TEO(3)*S4 + 2.*C2S2 *(TEO(2) + 2.*TEO(10)) EE( 2) = TEO(2)*(C4+S4) + C2S2*(TEO(1)+TEO(3) - 4.*TEO(10)) EE( 3) = TEO(4)*C2 + TEO(5)*S2 EE( 4) = COSG*SING*S2*(TEO(2) - TEO(3) + 2.*TEO(10)) 4 + SING*COSG*C2*(TEO(1) - TEO(2) - 2.*TEO(10)) EE( 7) = EE(2) EE( 8) = TEO(1)*S4 + 2.*C2S2*(TEO(2) + 2.*TEO(10))+ TEO(3)*C4 EE( 9) = TEO(4)*S2 + TEO(5)*C2 EE(10) = SING*COSG*C2*(TEO(2) - TEO(3) + 2.*TEO(10)) O + COSG*SING*S2*(TEO(1) - TEO(2) - 2.*TEO(10)) EE(13) = EE(3) EE(14) = EE(9) EE(15) = TEO(6) EE(16) = SING*COSG*(TEO(4)-TEO(5)) EE(19) = EE(4) EE(20) = EE(10) EE(21) = EE(16) EE(22) = C2S2*(TEO(1) - 2.*TEO(2) + TEO(3)) + TEO(10)*(C2-S2)**2 EE(29) = TEO(15)*C2 + TEO(21)*S2 EE(30) = SING*COSG*(TEO(15)-TEO(21)) EE(35) = EE(30) EE(36) = TEO(15)*S2 + TEO(21)*C2 C IF (LSYS78) GO TO 254 C C PIEZOELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINATES C EE(37) = C3*TEO(22) - S3*TEO(26) + CS2*(TEO(25)+2.0*TEO(32)) - 7 SC2*(TEO(23) + 2.0*TEO(31)) EE(38) = C3*TEO(23) + S3*TEO(25) + CS2*(TEO(26)-2.0*TEO(31)) + 8 SC2*(TEO(22) - 2.0*TEO(32)) EE(39) = S2*TEO(27) + C2*TEO(24) - 2.0*CS*TEO(33) EE(40) = C3*TEO(25) - S3*TEO(23) + CS2*(TEO(22)-2.0*TEO(32)) - O SC2*(TEO(26) - 2.0*TEO(31)) EE(41) = C3*TEO(26) + S3*TEO(22) + CS2*(TEO(23)+2.0*TEO(31)) + 1 SC2*(TEO(25) + 2.0*TEO(32)) EE(42) = S2*TEO(24) + C2*TEO(27) + 2.0*CS*TEO(33) EE(43) = COSG*TEO(28) - SING*TEO(29) EE(44) = COSG*TEO(29) + SING*TEO(28) EE(45) = TEO(30) EE(46) = C3*TEO(31) + S3*TEO(32) - CS2*(TEO(23)-TEO(26)+TEO(31)) + 6 SC2*(-TEO(32) - TEO(25) + TEO(22)) EE(47) = C3*TEO(32) - S3*TEO(31) - CS2*(TEO(25)-TEO(22)+TEO(32)) + 7 SC2*(TEO(23) + TEO(31) - TEO(26)) EE(48) = (C2-S2)*TEO(33) + CS*(TEO(24) - TEO(27)) EE(49) = C2*TEO(34) + S2*TEO(38) - CS*(TEO(35) + TEO(37)) EE(50) = C2*TEO(35) - S2*TEO(37) + CS*(TEO(34) - TEO(38)) EE(51) = COSG*TEO(36) - SING*TEO(39) EE(52) = C2*TEO(37) - S2*TEO(35) - CS*(TEO(38) - TEO(34)) EE(53) = C2*TEO(38) + S2*TEO(34) + CS*(TEO(35) + TEO(37)) EE(54) = COSG*TEO(39) + SING*TEO(36) C C DIELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINTES C EE(55) = S2*TEO(43) - 2.0*CS*TEO(41) + C2*TEO(40) EE(56) = (C2-S2)*TEO(41) - CS*(TEO(43)-TEO(40)) EE(57) =-SING*TEO(44) + COSG*TEO(42) EE(59) = C2*TEO(43) + 2.0*CS*TEO(41) + S2*TEO(40) EE(60) = COSG*TEO(44) + SING*TEO(42) EE(63) = TEO(45) 254 CONTINUE C C COMPUTE HARMONIC COEFFICIENT C MJHO = MOD(IECPT(1),1000) - 1 AJHO = MJHO AJJHO= AJHO*AJHO RHOD = RHO *PI IF (AJHO .EQ. 0.) RHOD = 2.*RHOD IF (ISMB(1) .EQ. 0) GO TO 300 C C FORM THE ELEMENT STIFFNESS MATRIX IN FIELD SYSTEM C ACURL( 1) = (EE(15) + AJJHO*EE(29))*DELINT(1) ACURL( 2) = (EE(03) + EE(15) + AJJHO*EE(29))*DELINT(4) ACURL( 3) = (EE(15) + AJJHO*EE(29))*DELINT(2) + EE(16)*DELINT(4) ACURL( 4) = (EE(15) + EE(29))*AJHO*DELINT(1) ACURL(05) = EE(15)*AJHO*DELINT(4) ACURL(06) = (EE(15) + EE(29))*AJHO*DELINT(2) 6 - EE(30)*AJHO*DELINT(4) ACURL(07) = AJJHO*DELINT(1)*EE(35) ACURL(08) = (EE(16) + AJJHO*EE(35))*DELINT(4) ACURL(09) = EE(9)*DELINT(4) + AJJHO*DELINT(2)*EE(35) ACURL(11) = (EE(1) + 2.*EE(3) + EE(15) + AJJHO*EE(29))*DELINT(6) ACURL(12) = (EE(3) + EE(15) + AJJHO*EE(29))*DELINT(5) 2 + (EE(4) + EE (16))*DELINT(6) ACURL(13) = (EE(3) + EE(15) + EE(29))*AJHO*DELINT(4) ACURL(14) = (EE(3) + EE(15))*DELINT(6)*AJHO ACURL(15) = (EE(3) + EE(15) + EE(29))*AJHO*DELINT(5) 5 - AJHO*EE(30)*DELINT(6) ACURL(16) = AJJHO*DELINT(4)*EE(35) ACURL(17) = (EE(4) + EE(16) + AJJHO*EE(35))*DELINT(6) ACURL(18) = (EE(2) + EE(9))*DELINT(6) + AJJHO*DELINT(5)*EE(35) ACURL(21) = (EE(15) + AJJHO*EE(29))*DELINT(3) + EE(22) 1 * DELINT(6) + 2.*EE(16)*DELINT(5) ACURL(22) = (EE(15) + EE(29))*AJHO*DELINT (2) + AJHO 2 * DELINT(4)*EE(16) ACURL(23) = EE(15)*AJHO*DELINT(5) + AJHO*DELINT(6)*EE(16) ACURL(24) = (EE(15) + EE(29))*AJHO*DELINT(3) + (EE(16) - EE(30)) 4 * AJHO*DELINT(5) ACURL(25) = AJJHO*DELINT(2)*EE(35) ACURL(26) = EE(22)*DELINT(6) + (EE(21) + AJJHO*EE(35))*DELINT(5) ACURL(27) = EE(9)*DELINT(5) + EE(10)*DELINT(6) + AJJHO 1 * DELINT(3)*EE(35) ACURL(31) = (EE(29) + AJJHO*EE(15))*DELINT(1) ACURL(32) = EE(15)*AJJHO*DELINT(4) ACURL(33) = (EE(29) + AJJHO*EE(15))*DELINT(2) - EE(30)*DELINT(4) ACURL(34) = AJHO*DELINT(1)*EE(35) ACURL(35) = AJHO*(EE(16) + EE(35))*DELINT(4) ACURL(36) = EE(9)*AJHO*DELINT(4) + AJHO*DELINT(2)*EE(35) ACURL(41) = AJJHO*DELINT(6)*EE(15) ACURL(42) = EE(15)*AJJHO*DELINT(5) ACURL(43) = 0. ACURL(44) = AJHO*DELINT(6)*EE(16) ACURL(45) = EE(9)*AJHO*DELINT(6) ACURL(51) = (EE(29) + AJJHO*EE(15))*DELINT(3) + EE(36) 1 * DELINT(6) - 2.*EE(35)*DELINT(5) ACURL(52) = AJHO*(DELINT(2)*EE(30) - DELINT(4)*EE(36)) ACURL(53) = -EE(36)*AJHO*DELINT(6) + AJHO*(EE(16) + EE(35)) 3 * DELINT(5) ACURL(54) = (EE(9) - EE(36))*AJHO*DELINT(5) + AJHO 1 * DELINT(3)*EE(35) ACURL(61) = EE(36)*AJJHO*DELINT(1) ACURL(62) = EE(36)*AJJHO*DELINT(4) ACURL(63) = (EE(36))*AJJHO*DELINT(2) ACURL(71) = (EE(22) + AJJHO*EE(36))*DELINT(6) ACURL(72) = EE(36)*AJJHO*DELINT(5) + EE(20)*DELINT(6) ACURL(81) = EE(36)*AJJHO*DELINT(3) + EE(8)*DELINT(6) IF (LSYS78) GO TO 256 ACURL(82) =-(EE(45) - AJHO*EE(51))*AJHO*DELINT(1) ACURL(83) = (EE(43) - AJHO*EE(45) - AJHO*EE(49) + AJJHO*EE(51)) 3 * DELINT(4) ACURL(84) = (EE(44) - AJHO*EE(50))*DELINT(4) - (EE(45) 4 - AJHO*EE(51))*AJHO*DELINT(2) ACURL(85) =-(EE(39) + EE(45) - AJHO*EE(51))*AJHO*DELINT(4) ACURL(86) = (EE(37) + EE(43) - (EE(39) + EE(45) + EE(49) 6 - AJHO*EE(51))*AJHO)*DELINT(6) ACURL(87) = (EE(38) + EE(44) - AJHO*EE(50))*DELINT(6) - (EE(39) 7 + EE(45) - AJHO*EE(51))*AJHO*DELINT(5) ACURL(88) =-(EE(45) - AJHO*EE(51))*AJHO*DELINT(2) - EE(48)*AJHO 8 * DELINT(4) ACURL(89) = (EE(43) - AJHO*EE(45) - AJHO*EE(49) + AJJHO*EE(51)) 9 * DELINT(5) + (EE(46) - EE(48)*AJHO)*DELINT(6) ACURL(90) = (EE(44) - AJHO*EE(48) - AJHO*EE(50))*DELINT(5) O + EE(47)*DELINT(6) - (EE(45)-AJHO*EE(51))*AJHO*DELINT(3) ACURL(91) =-(EE(45)*AJHO - EE(51))*AJHO*DELINT(1) ACURL(92) = (AJHO*EE(43) - AJJHO*EE(45) - EE(49) + AJHO*EE(51)) 2 * DELINT(4) ACURL(93) = (EE(44)*AJHO - EE(50))*DELINT(4) - (EE(45)*AJHO 3 - EE(51))*AJHO*DELINT(2) ACURL(94) =-EE(45)*AJJHO*DELINT(4) ACURL(95) = (EE(43) - AJHO*EE(45))*AJHO*DELINT(6) ACURL(96) = EE(44)*AJHO*DELINT(6) - EE(45)*AJJHO*DELINT(5) ACURL(97) =-(EE(45)*AJHO - EE(51))*AJHO*DELINT(2) - EE(54)*AJHO 7 * DELINT(4) ACURL(98) = (EE(43)*AJHO - AJJHO*EE(45) - EE(49) + EE(51)*AJHO) 8 * DELINT(5) + (EE(52) - AJHO*EE(54))*DELINT(6) ACURL(99) = (EE(44)*AJHO - EE(50) - EE(54)*AJHO)*DELINT(5) 9 + EE(53)*DELINT(6) - (EE(45)*AJHO-EE(51))*AJHO*DELINT(3) ACURL(100)= EE(54)*AJJHO*DELINT(1) ACURL(101)=-(EE(52) - EE(54)*AJHO)*AJHO*DELINT(4) ACURL(102)=-(EE(53)*DELINT(4) - EE(54)*AJHO*DELINT(2))*AJHO ACURL(103)=-(EE(48) - EE(54)*AJHO)*AJHO*DELINT(4) ACURL(104)= (EE(46) - EE(48)*AJHO - EE(52)*AJHO+EE(54)*AJJHO) 4 * DELINT(6) ACURL(105)= (EE(47) - EE(53)*AJHO)*DELINT(6) - (EE(48) - EE(54) 5 * AJHO)*AJHO*DELINT(5) ACURL(106)= EE(54)*AJJHO*DELINT(2) - EE(42)*AJHO*DELINT(4) ACURL(107)= (EE(40) - EE(42)*AJHO)*DELINT(6) - (EE(52) - EE(54) 7 * AJHO)*AJHO*DELINT(5) ACURL(108)= EE(41)*DELINT(6) + (-EE(42) - EE(53))*AJHO*DELINT(5) 8 + EE(54)*AJJHO*DELINT(3) ACURL(109)= EE(63)*AJJHO*DELINT(1) ACURL(110)= (-EE(57) + EE(63)*AJHO)*AJHO*DELINT(4) ACURL(111)=-EE(60)*AJHO*DELINT(4) + EE(63)*AJJHO*DELINT(2) ACURL(112)= ACURL(110) ACURL(113)= (EE(55) - 2.0*EE(57)*AJHO + EE(63)*AJJHO)*DELINT(6) ACURL(114)= (EE(56) - EE(60)*AJHO)*DELINT(6) + (-EE(57) + EE(63) 4 * AJHO)*AJHO*DELINT(5) ACURL(115)= ACURL(111) ACURL(116)= ACURL(114) ACURL(117)= EE(59)*DELINT(6) - 2.0*EE(60)*AJHO*DELINT(5) + EE(63) 7 * AJJHO*DELINT(3) 256 CONTINUE C C EXPAND ACURL INTO (9X9) C DO 270 IB = 2,9 IC = 10*IB - 19 I = IC DO 260 J = IB,9 IC = IC + 9 I = I + 1 260 ACURL(IC) = ACURL(I) 270 CONTINUE DGAMA = PI IF (AJHO .EQ. 0.) DGAMA = TWOPI DO 280 I = 1,81 280 ACURL(I) = ACURL(I)*DGAMA IF (LSYS78) GO TO 300 C DO 290 I = 82,117 290 ACURL(I) = ACURL(I)*DGAMA C 300 IF (ISMB(2).EQ. 0) GO TO 400 IF (ICMBAR .LT. 0) GO TO 350 C C CONSISTENT MASS IN FIELD COORDINATES C DO 320 I = 1,9 DO 320 J = 1,9 320 BMASS(I,J) = 0. BMASS(1,1) = RHOD*DELM(1) BMASS(1,2) = RHOD*DELM(4) BMASS(1,3) = RHOD*DELM(2) BMASS(2,1) = RHOD*DELM(4) BMASS(2,2) = RHOD*DELM(7) BMASS(2,3) = RHOD*DELM(5) BMASS(3,1) = RHOD*DELM(2) BMASS(3,2) = RHOD*DELM(5) BMASS(3,3) = RHOD*DELM(3) BMASS(4,4) = RHOD*DELM(1) BMASS(4,5) = RHOD*DELM(4) BMASS(4,6) = RHOD*DELM(2) BMASS(5,4) = RHOD*DELM(4) BMASS(5,5) = RHOD*DELM(7) BMASS(5,6) = RHOD*DELM(5) BMASS(6,4) = RHOD*DELM(2) BMASS(6,5) = RHOD*DELM(5) BMASS(6,6) = RHOD*DELM(3) BMASS(7,7) = RHOD*DELM(1) BMASS(7,8) = RHOD*DELM(4) BMASS(7,9) = RHOD*DELM(2) BMASS(8,7) = RHOD*DELM(4) BMASS(8,8) = RHOD*DELM(7) BMASS(8,9) = RHOD*DELM(5) BMASS(9,7) = RHOD*DELM(2) BMASS(9,8) = RHOD*DELM(5) BMASS(9,9) = RHOD*DELM(3) GO TO 400 350 AREA = (R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2))/2. CONVM = RHOD*(R1 + R2 + R3)/3.*AREA C C TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD SYSTEM C TO GRID POINT DEGREES OF FREEDOM C 400 IF (ISMB(1) .EQ. 0) GO TO 410 CALL GMMATS (AKI,9,9,1,ACURL,9,9,0,D) CALL GMMATS (D, 9,9,0,AKI, 9,9,0,AK) IF (LSYS78) GO TO 405 CALL GMMATS (AKI,9,9,1,ACURP1,9,3,0,D1) CALL GMMATS (D1, 9,3,0,AKIP, 3,3,0,AKUPH) CALL GMMATS (AKIP,3,3,1,ACURP2,3,3,0,D2) CALL GMMATS (D2, 3,3,0,AKIP, 3,3,0,AKPH2) 405 CONTINUE C IF (ISMB(2).EQ.0 .OR. ICMBAR.LT.0) GO TO 450 410 CALL GMMATS (AKI,9,9,1,BMASS,9,9,0,D) CALL GMMATS (D, 9,9,0,AKI, 9,9,0,AKM) C 450 DO 460 I = 1,81 AKJ(I) = 0. 460 AKJM(I) = 0. DO 462 I = 82,117 462 AKJ(I) = 0.0 C GO TO 480 C C COORDINATE SYSTEMS POSSIBLE WITH RINGAX THRU CODE BELOW C ** IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR PIEZOELECTRI C C DO 470 I = 1,3 C IF (ICS(I) .EQ. 0) GO TO 470 C K = 9*(I-1) + 1 C CALL TRANSS (ICS(I),D(K)) C 470 CONTINUE C C CREATE AN ARRAY OF SORTED GRID POINTS C 480 DO 482 I = 1,3 ISORT(I) = IGP(I) 482 CONTINUE I = -3 484 J = 0 DO 486 K = 1,3 IF (ISORT(K) .LT. J) GO TO 486 J = ISORT(K) L = K 486 CONTINUE ISORT(L) = I I = I + 1 IF (I .LT. 0) GO TO 484 DO 490 I = 1,3 ISORT(I) = -ISORT(I) 490 CONTINUE C C TRANSFORM 3 X 3 TO 6 X 6 FOR COORD SYSTEM TRANSFORMATIONS C DO 600 ISIL = 1,3 IPP = ISORT(ISIL) C IR1 = 3*(ISIL-1) + 1 DO 590 II = 1,3 I = ISORT(II) IC1 = 3*(II-1) + 1 IRC = (IR1 -1)*9 + IC1 DO 500 J = 1,3 J1 = (J-1)*4 + 1 IRCC = IRC + (J-1)*9 IF (ISMB(1) .EQ. 0) GO TO 495 AKT(J1 ) = AK(IRCC ) AKT(J1+1) = AK(IRCC+1) AKT(J1+2) = AK(IRCC+2) IF (LSYS78) GO TO 492 M = IRCC/3 + 1 N = (M-1)/9 + 1 + (II-1)*9 + (J-1)*3 AKT(J1+3) = AKUPH(M) AKT(J1+15-J*3) = AKUPH(N) AKT(16) = AKPH2(IR1+II-1) 492 CONTINUE C 495 IF (ISMB(2).EQ.0 .OR. ICMBAR.LT.1) GO TO 500 J1 = (J-1)*3 + 1 AMT(J1 ) =AKM(IRCC ) AMT(J1+1) =AKM(IRCC+1) AMT(J1+2) =AKM(IRCC+2) 500 CONTINUE C GO TO 540 C C ABOVE GO TO MAKES CST CODE BELOW INTO DEAD CODE C COORDINATE SYSTEM TRANSFORMATION CODE C ** IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR PIEZOELECTRIC C C IF (ICS(IPP) .EQ. 0) GO TO 520 C IAA = 9*(IPP-1) + 1 C CALL GMMATS (D(IAA),3,3,1,AKT(1),3,3,0,D(28)) C CALL GMMATS (D(IAA),3,3,1,AMT(1),3,3,0,D(37)) C DO 510 J = 1,9 C AKT(J) = D(J+27) C 510 AKM(J) = D(J+36) C C 520 IF (ICS(I) .EQ. 0) GO TO 540 C IAI = 9*(I-1) + 1 C CALL GMMATS (AKT(1),3,3,0,D(IAI),3,3,0,D(28)) C CALL GMMATS (AMT(1),3,3,0,D(IAI),3,3,0,D(37)) C DO 530 J = 1,9 C AKT(J) = D(J+27) C 530 AMT(J) = D(J+36) C C NOW INSERT AKT AND AMT INTO THE OVERALL STIFFNESS MATRICES C ACCORDING TO INCREASING SIL VALUE C 540 DO 550 IJ = 1,3 DO 550 JJ = 1,3 KI = (IJ-1)*3 + JJ IOUT = (IPP-1)*27 + (I-1)*3 + (IJ-1)*9 + JJ 550 AKJM(IOUT)= AMT(KI) DO 560 IJ = 1,4 DO 560 JJ = 1,4 KI = (IJ-1)*4 + JJ IOUT = (IPP-1)*48 + (I-1)*4 + (IJ-1)*12 + JJ 560 AKJ(IOUT) = AKT(KI) 590 CONTINUE 600 CONTINUE C C NOW OUTPUT THE MATRIX VIA EMG OUT C DICT(2) = 1 IF (ISMB(1) .EQ. 0) GO TO 650 CALL EMGOUT (AKJ,AKJ,144,1,DICT,1,IPR) 650 IF (ISMB(2).EQ.0 .AND. .NOT.PZMAT) KSYS78 = KSAVE IF (ISMB(2) .EQ. 0) RETURN DICT(3) = 9 DICT(4) = 7 IF (ICMBAR .LT. 0) GO TO 670 CALL EMGOUT (AKJM,AKJM,81,1,DICT,2,IPR) GO TO 700 C C GENERATE LUMPED MASS MATRIX HERE C 670 DO 680 I = 1,9 680 AKJM(I) = CONVM/3.0 DICT(2) = 2 CALL EMGOUT (AKJM,AKJM,9,1,DICT,2,IPR) 700 IF (.NOT.PZMAT) KSYS78 = KSAVE RETURN C C ERROR EXITS C 7770 I = 37 7777 IF (IDEL1 .EQ. IDEL) GO TO 7778 IDEL2 = IDEL1 ICS(1) = IDEL1 ICS(2) = JAX CALL MESAGE (30,I,ICS) 7778 NOGO = .TRUE. GO TO 700 7780 I = 126 GO TO 7777 END ================================================ FILE: mis/tridi.f ================================================ SUBROUTINE TRIDI (D,O,C,A,B,AA) C C MODIFIED GIVENS REAL SYMMETRIC TRIDIAGONALIZATION C THIS ROUTINE IS CALLED ONLY BY VALVEC C INTEGER SAVEMR,ENTRY,RSTRT,ROW,XENTRY,FILCOR,ROT,ROW1, 1 ROW2,ROWP1,ROWP2,SYSBUF,MCB(7),COUNT DOUBLE PRECISION D(1),O(1),C(1),AA(1),B(1) DIMENSION VVCOM(150),A(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /GIVN / TITLE(1),MO,MD,MR1,M1,M2,M3,M4,SAVEMR,T10,ENTRY, 1 T12(5),RSTRT,ROW,T19,XENTRY COMMON /SYSTEM/ SYSBUF,NOUT,IDUMMY(52),IPREC COMMON /PACKX / IT1,IT2,II,JJ,INCR COMMON /UNPAKX/ IT3,III,JJJ,INCR1 EQUIVALENCE (VVCOM(1),TITLE(1)), (N,VVCOM(101)) DATA COUNT , MAX,MCB / 0, 10, 7*0/ C C C DEFINITION OF VARIABLES C C D = LOCATION OF DIAGIONAL C O = LOCATION OF OFF DIAGONAL C C = LOCATION OF COSINES C A = REST OF OPEN CORE C B = O**2 C SAVEMR C RSTRT C ROW C XENTRY C FILCOR C ROT C ROW1 C ROW2 C MO = RESTART DATA - SINES AND COSINES C MD = INPUT MATRIX C MR1 = RESTART TAPE C M1 = SCRATCH TAPE C M2 C M3 C M4 C MR2 C MIDIN C COUNT = NUMBER OF ROWS ROTATED C MAX = NUMBER OF ROWS TO ROTATE BEFORE CHECKPOINTING C C C INITIALIZATION C NZ = KORSZ(A) IBUF1= NZ - SYSBUF + 1 IBUF2= IBUF1 - SYSBUF NZ = NZ - 2*SYSBUF NZZ = NZ/IPREC NZSQ = SQRT(FLOAT((NZZ-1)*2)) IM1 = 1 NM1 = N - 1 NM2 = N - 2 M3 = 305 MSS = MR1 MS1 = M1 MS2 = M2 MS3 = M3 MS4 = M4 C C INITIALIZE TRANSFORMATION ROUTINES C C SICOX AND ROTAX ARE NOT USED ANY MORE. SEE SINC0S AND ROTATE C C CALL SICOX (D,O,C) C CALL ROTAX (O,D,C) C MIDIN= N MR = MR1 C C START AT THE BEGINNING C ROW = 0 C C OPEN MD C CALL GOPEN (MD,A(IBUF1),0) CALL GOPEN (MR,A(IBUF2),1) C C SET UP FOR UNPACK C IT3 = 2 III = 1 JJJ = N INCR1= 1 CALL UNPACK (*102,MD,D) C C COPY REST OF MD ONTO MR C 103 CONTINUE IT1 = 2 IT2 = 2 INCR= 1 K = N - 1 DO 105 I = 1,K III = 0 CALL UNPACK (*107,MD,A) II = III JJ = JJJ 106 CALL PACK (A,MR,MCB) GO TO 105 107 II = 1 JJ = 1 A(1) = 0.0 A(2) = 0.0 GO TO 106 105 CONTINUE III = 1 JJJ = N II = 1 JJ = N GO TO 104 102 DO 101 I = 1,N D(I) = 0.0D0 101 CONTINUE GO TO 103 C C END OF MATRIX MD C 104 CALL WRITE (MR,ROW,1,1) C C ATTACH DIAGONALS C CALL PACK (D,MR,MCB) CALL CLOSE (MD,1) CALL CLOSE (MR,1) MS = MR CALL GOPEN (MS,A(IBUF1),0) C C TRIDIAGONALIZATION PROCEDURE UNTIL THE MATRIX FITS IN CORE C 200 ROW = ROW + 1 ROWP1= ROW + 1 ROWP2= ROW + 2 IT3 = 2 III = ROWP1 CALL UNPACK (*201,MS,O(ROWP1)) GO TO 203 201 DO 202 I = ROWP1,N O(I) = 0.0D0 202 CONTINUE C C FIND SINES AND COSINES C 203 CALL SINC0S (ROW,ROT, D,O,C) CALL GOPEN (MO,A(IBUF2),IM1) IM1 = 3 II = ROWP2 IT1 = 2 IT2 = 2 CALL PACK (D(ROWP2),MO,MCB) CALL CLOSE (MO,2) C C WILL THE REST OF MATRIX FIT IN CORE C IF ((N-ROWP1)*(N-ROWP1+1)/2+1 .LE. NZZ) GO TO 225 C C (N-ROWP1)*(N-ROWP1 ) < (NZZ-1)*2 C (N-ROWP1 ) < SQRT((NZZ-1)*2) (=NZSQ) C N < NZSQ + ROWP1 C N-NZSQ < ROWP1 C N-NZSQ = NUMBER OF ROTAIONS NEEDED C C NO-- MUST REST OF MATRIX BE ROTATED C IF (ROT .EQ. 0) GO TO 215 COUNT = COUNT + 1 IF (COUNT .EQ. MAX) COUNT = 0 C C ROTATE THE REST OF THE MATRIX C MIDOUT = ROWP1 + (N-ROWP1+3)/4 ROW1 = ROWP2 CALL GOPEN (MS3,A(IBUF2),1) C C HERE THRU 217 WILL BE VERY TIME COMSUMING. THE ROTATION IS ONE C ROW AT A TIME. COMPUTE HOW MANY ROTATIONS NEEDED. IF TOO MANY, C ISSUE A USER FATAL MESSAGE AND GET OUT C I = N - NZSQ IF (I .LE. 25) GO TO 205 J = (N*N - NZSQ*NZSQ)*IPREC WRITE (NOUT,204) UFM,N,N,I,J 204 FORMAT (A23,' FROM GIVENS EIGENSOLVER - EXCESSIVE CPU TIME IS ', 1 'NEEDED FOR TRIDIAGONALIZE THE DYNAMIC', /5X, 2 'MATRIX, WHICH IS',I6,' BY',I6, 15X,1H(,I6,' LOOPS)', /5X, 3 'RERUN JOB WITH',I8,' ADDITIONAL CORE WORDS, OR USE FEER,', 4 ' OR OTHER METHOD') CALL MESAGE (-61,0,0) C C FILL CORE WITH AS MUCH OF MATRIX AS POSSIBLE--UP TO ROW -ROW2- C 205 ROW2 = FILCOR(MSS,MS2,IPREC,ROW1,MIDIN,N,A,NZ,A(IBUF1)) C C ROTATE ROWS ROW1 TO ROW2 C CALL ROTATE (AA,ROW,ROW1,ROW2,O,D,C) C C EMPTY THE ROTATED ROWS ONTO MS3 AND MS4 C CALL EMPCOR (MS3,MS4,IPREC,IPREC,ROW1,MIDOUT,ROW2,N,A,A(IBUF2)) ROW1 = ROW2 + 1 IF (ROW2 .LT. N) GO TO 205 C C SWITCH TAPES C MS = MS1 MS1 = MS3 MS3 = MS MS = MS2 MS2 = MS4 MS4 = MS MSS = MS1 MIDIN = MIDOUT 215 DO 216 I = ROWP1,N D(I) = O(I) 216 CONTINUE MS = MSS IF (ROW .GT. MIDIN) GO TO 217 IF (ROT .EQ. 0) GO TO 200 218 CALL GOPEN (MS,A(IBUF1),0) GO TO 200 217 MS = MS2 GO TO 218 C C TRIDIAGONALIZATION PROCEDURE WHEN MATRIX FITS IN CORE C C C FILL CORE WITH THE REST OF THE MATRIX C 225 ROW2 = FILCOR(MSS,MS2,IPREC,ROWP2,MIDIN,N,A,NZ,A(IBUF1)) NA = 1 CALL GOPEN (MO,A(IBUF2),3) GO TO 235 230 ROW = ROW + 1 ROWP1 = ROW + 1 ROWP2 = ROW + 2 232 DO 233 I = ROWP1,N O(I) = AA(NA) NA = NA + 1 233 CONTINUE 234 CALL SINC0S (ROW,ROT, D,O,C) C C WRITE SINES ON MO C II = ROWP2 IT1 = 2 IT2 = 2 CALL PACK (D(ROWP2),MO,MCB) 235 IF (ROT .EQ. 0) GO TO 236 ROW1 = ROWP2 CALL ROTATE (AA(NA),ROW,ROW1,ROW2,O,D,C) 236 DO 237 I = ROWP1,N D(I) = O(I) 237 CONTINUE IF (ROW .NE. NM2) GO TO 230 C C ALL DONE. C D(N) = AA(NA) O(N-1) = O(N) O(N ) = 0.0D0 CALL CLOSE (MO,3) DO 261 I = 1,N C(I) = D(I) B(I) = O(I)**2 261 CONTINUE XENTRY = -ENTRY RSTRT = 0 SAVEMR = 0 RETURN END ================================================ FILE: mis/tridi1.f ================================================ SUBROUTINE TRIDI1 (D,O,C,A,B,AA) C C MODIFIED GIVENS REAL SYMMETRIC TRIDIAGONALIZATION C THIS ROUTINE IS CALLED ONLY BY VALVEC C INTEGER SAVEMR,ENTRY,RSTRT,ROW,XENTRY,FILCOR,ROT,ROW1, 1 ROW2,ROWP1,ROWP2,SYSBUF,MCB(7),COUNT REAL D(1),O(1),C(1),AA(1),B(1) DIMENSION VVCOM(150),A(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /GIVN / TITLE(1),MO,MD,MR1,M1,M2,M3,M4,SAVEMR,T10,ENTRY, 1 T12(5),RSTRT,ROW,T19,XENTRY COMMON /SYSTEM/ SYSBUF,NOUT,IDUMMY(52),IPREC COMMON /PACKX / IT1,IT2,II,JJ,INCR COMMON /UNPAKX/ IT3,III,JJJ,INCR1 EQUIVALENCE (VVCOM(1),TITLE(1)), (N,VVCOM(101)) DATA COUNT , MAX,MCB / 0, 10, 7*0/ C C C DEFINITION OF VARIABLES C C D = LOCATION OF DIAGIONAL C O = LOCATION OF OFF DIAGONAL C C = LOCATION OF COSINES C A = REST OF OPEN CORE C B = O**2 C SAVEMR C RSTRT C ROW C XENTRY C FILCOR C ROT C ROW1 C ROW2 C MO = RESTART DATA - SINES AND COSINES C MD = INPUT MATRIX C MR1 = RESTART TAPE C M1 = SCRATCH TAPE C M2 C M3 C M4 C MR2 C MIDIN C COUNT = NUMBER OF ROWS ROTATED C MAX = NUMBER OF ROWS TO ROTATE BEFORE CHECKPOINTING C C C INITIALIZATION C NZ = KORSZ(A) IBUF1= NZ - SYSBUF + 1 IBUF2= IBUF1 - SYSBUF NZ = NZ - 2*SYSBUF NZZ = NZ/IPREC NZSQ = SQRT(FLOAT((NZZ-1)*2)) IM1 = 1 NM1 = N - 1 NM2 = N - 2 M3 = 305 MSS = MR1 MS1 = M1 MS2 = M2 MS3 = M3 MS4 = M4 C C INITIALIZE TRANSFORMATION ROUTINES C MIDIN= N MR = MR1 C C START AT THE BEGINNING C ROW = 0 C C OPEN MD C CALL GOPEN (MD,A(IBUF1),0) CALL GOPEN (MR,A(IBUF2),1) C C SET UP FOR UNPACK C IT3 = 1 III = 1 JJJ = N INCR1= 1 CALL UNPACK (*102,MD,D) C C COPY REST OF MD ONTO MR C 103 CONTINUE IT1 = 1 IT2 = 1 INCR= 1 K = N - 1 DO 105 I = 1,K III = 0 CALL UNPACK (*107,MD,A) II = III JJ = JJJ 106 CALL PACK (A,MR,MCB) GO TO 105 107 II = 1 JJ = 1 A(1) = 0.0 A(2) = 0.0 GO TO 106 105 CONTINUE III = 1 JJJ = N II = 1 JJ = N GO TO 104 102 DO 101 I = 1,N D(I) = 0.0 101 CONTINUE GO TO 103 C C END OF MATRIX MD C 104 CALL WRITE (MR,ROW,1,1) C C ATTACH DIAGONALS C CALL PACK (D,MR,MCB) CALL CLOSE (MD,1) CALL CLOSE (MR,1) MS = MR CALL GOPEN (MS,A(IBUF1),0) C C TRIDIAGONALIZATION PROCEDURE UNTIL THE MATRIX FITS IN CORE C 200 ROW = ROW + 1 ROWP1= ROW + 1 ROWP2= ROW + 2 IT3 = 1 III = ROWP1 CALL UNPACK (*201,MS,O(ROWP1)) GO TO 203 201 DO 202 I = ROWP1,N O(I) = 0.0 202 CONTINUE C C FIND SINES AND COSINES C 203 CALL SINC0S1 (ROW,ROT, D,O,C) CALL GOPEN (MO,A(IBUF2),IM1) IM1 = 3 II = ROWP2 IT1 = 1 IT2 = 1 CALL PACK (D(ROWP2),MO,MCB) CALL CLOSE (MO,2) C C WILL THE REST OF MATRIX FIT IN CORE C IF ((N-ROWP1)*(N-ROWP1+1)/2+1 .LE. NZZ) GO TO 225 C C (N-ROWP1)*(N-ROWP1 ) < (NZZ-1)*2 C (N-ROWP1 ) < SQRT((NZZ-1)*2) (=NZSQ) C N < NZSQ + ROWP1 C N-NZSQ < ROWP1 C N-NZSQ = NUMBER OF ROTAIONS NEEDED C C NO-- MUST REST OF MATRIX BE ROTATED C IF (ROT .EQ. 0) GO TO 215 COUNT = COUNT + 1 IF (COUNT .EQ. MAX) COUNT = 0 C C ROTATE THE REST OF THE MATRIX C MIDOUT = ROWP1 + (N-ROWP1+3)/4 ROW1 = ROWP2 CALL GOPEN (MS3,A(IBUF2),1) C C HERE THRU 217 WILL BE VERY TIME COMSUMING. THE ROTATION IS ONE C ROW AT A TIME. COMPUTE HOW MANY ROTATIONS NEEDED. IF TOO MANY, C ISSUE A USER FATAL MESSAGE AND GET OUT C I = N - NZSQ IF (I .LE. 25) GO TO 205 J = (N*N - NZSQ*NZSQ)*IPREC WRITE (NOUT,204) UFM,N,N,I,J 204 FORMAT (A23,' FROM GIVENS EIGENSOLVER - EXCESSIVE CPU TIME IS ', 1 'NEEDED FOR TRIDIAGONALIZE THE DYNAMIC', /5X, 2 'MATRIX, WHICH IS',I6,' BY',I6, 15X,1H(,I6,' LOOPS)', /5X, 3 'RERUN JOB WITH',I8,' ADDITIONAL CORE WORDS, OR USE FEER,', 4 ' OR OTHER METHOD') CALL MESAGE (-61,0,0) C C FILL CORE WITH AS MUCH OF MATRIX AS POSSIBLE--UP TO ROW -ROW2- C 205 ROW2 = FILCOR(MSS,MS2,IPREC,ROW1,MIDIN,N,A,NZ,A(IBUF1)) C C ROTATE ROWS ROW1 TO ROW2 C CALL ROTATE1 (AA,ROW,ROW1,ROW2,O,D,C) C C EMPTY THE ROTATED ROWS ONTO MS3 AND MS4 C CALL EMPCOR (MS3,MS4,IPREC,IPREC,ROW1,MIDOUT,ROW2,N,A,A(IBUF2)) ROW1 = ROW2 + 1 IF (ROW2 .LT. N) GO TO 205 C C SWITCH TAPES C MS = MS1 MS1 = MS3 MS3 = MS MS = MS2 MS2 = MS4 MS4 = MS MSS = MS1 MIDIN = MIDOUT 215 DO 216 I = ROWP1,N D(I) = O(I) 216 CONTINUE MS = MSS IF (ROW .GT. MIDIN) GO TO 217 IF (ROT .EQ. 0) GO TO 200 218 CALL GOPEN (MS,A(IBUF1),0) GO TO 200 217 MS = MS2 GO TO 218 C C TRIDIAGONALIZATION PROCEDURE WHEN MATRIX FITS IN CORE C C C FILL CORE WITH THE REST OF THE MATRIX C 225 ROW2 = FILCOR(MSS,MS2,IPREC,ROWP2,MIDIN,N,A,NZ,A(IBUF1)) NA = 1 CALL GOPEN (MO,A(IBUF2),3) GO TO 235 230 ROW = ROW + 1 ROWP1 = ROW + 1 ROWP2 = ROW + 2 232 DO 233 I = ROWP1,N O(I) = AA(NA) NA = NA + 1 233 CONTINUE 234 CALL SINC0S1 (ROW,ROT, D,O,C) C C WRITE SINES ON MO C II = ROWP2 IT1 = 1 IT2 = 1 CALL PACK (D(ROWP2),MO,MCB) 235 IF (ROT .EQ. 0) GO TO 236 ROW1 = ROWP2 CALL ROTATE1 (AA(NA),ROW,ROW1,ROW2,O,D,C) 236 DO 237 I = ROWP1,N D(I) = O(I) 237 CONTINUE IF (ROW .NE. NM2) GO TO 230 C C ALL DONE. C D(N) = AA(NA) O(N-1) = O(N) O(N ) = 0.0 CALL CLOSE (MO,3) DO 261 I = 1,N C(I) = D(I) B(I) = O(I)**2 261 CONTINUE XENTRY = -ENTRY RSTRT = 0 SAVEMR = 0 RETURN END ================================================ FILE: mis/trif.f ================================================ SUBROUTINE TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,ID,ELEM) C C CALCULATEIONS FOR THE TRIANGLE USED IN TRIM6,TRPLT1,TRSHL - THE HI C LEVEL PLATE ELEMENTS. COMPUTATIONS IN SINGLE PRECISION ONLY C C IVECT, JVECT, AND KVECT ARE UNIT VECTORS OF THE TRIANGLE C B IS THE DISTANCE OF THE GRID POINT 1 C A IS THE DISTANCE OF THE GRID POINT 3 C C IS THE DISTANCE OF THE GRID POINT 5 C LOGICAL NOGO REAL IVECT(3),JVECT(3),KVECT(3),XC(6),YC(6),ZC(6), 1 ELEM(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ IBUF,NOUT,NOGO C C EVALUATE DIRECTIONAL COSINES C X1 = XC(3) - XC(1) Y1 = YC(3) - YC(1) Z1 = ZC(3) - ZC(1) X2 = XC(5) - XC(1) Y2 = YC(5) - YC(1) Z2 = ZC(5) - ZC(1) TEMP = X1*X1 + Y1*Y1 + Z1*Z1 IF (TEMP .LE. 1.0E-10) GO TO 40 TEMP = SQRT(TEMP) C C I-VECTOR C IVECT(1) = X1/TEMP IVECT(2) = Y1/TEMP IVECT(3) = Z1/TEMP SAVE = TEMP C C NON-NORMALIZED K-VECTOR C KVECT(1) = IVECT(2)*Z2 - Y2*IVECT(3) KVECT(2) = IVECT(3)*X2 - Z2*IVECT(1) KVECT(3) = IVECT(1)*Y2 - X2*IVECT(2) TEMP = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2) IF (TEMP .LE. 1.0E-10) GO TO 50 C C NORMALIZE K-VECTOR C DISTANCE C OF THE TRAINGLE IS TEMP C KVECT(1) = KVECT(1)/TEMP KVECT(2) = KVECT(2)/TEMP KVECT(3) = KVECT(3)/TEMP C = TEMP C C J-VECTOR = K X I VECTORS C JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3) JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1) JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2) TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2) IF (TEMP .LE. 1.0E-10) GO TO 60 C C NORMALIZE J-VECTOR TO MAKE SURE C JVECT(1) = JVECT(1)/TEMP JVECT(2) = JVECT(2)/TEMP JVECT(3) = JVECT(3)/TEMP C C DISTANCE B OF THE TRIANGLE IS OBTAINED BY DOTTING (X2,Y2,Z2) WITH C THE IVECT UNIT VECTOR C B = X2*IVECT(1) + Y2*IVECT(2) + Z2*IVECT(3) C C THE LOCAL X AND Y COORINATES OF THE SIX GRID PTS. ARE AS FOLLOWS C YC(1) = 0.0 YC(2) = 0.0 YC(3) = 0.0 YC(4) = C*0.5 YC(5) = C YC(6) = YC(4) C C THE TRIANGLE SHOULD BELONG TO C C KASE1 (ACUTE ANGLES AT GRID POINTS 1 AND 3), C KASE2 (OBTUSE ANGLE AT GRID POINT 3), OR C KASE3 (OBTUSE ANGLE AT GRID POINT 1) C C KASE = 1 C IF (B .GT. SAVE) KASE = 2 C IF (B .LT. 0.0) KASE = 3 TEMP = -B C IF (KASE .EQ. 3) TEMP = ABS(B) C IF (B .LT. 0.0) TEMP = ABS(B) XC(1) = TEMP XC(2) = TEMP + SAVE*0.5 XC(3) = TEMP + SAVE XC(4) = XC(3)*0.5 XC(5) = 0.0 XC(6) = XC(1)*0.5 C C RE-SET DISTANCE A AND B C B = ABS(B) A = ABS(XC(3)) RETURN C C GEOMETRY ERRORS C 40 WRITE (NOUT,140) UFM,ELEM,ID GO TO 80 50 WRITE (NOUT,150) UFM,ELEM,ID GO TO 80 60 WRITE (NOUT,160) UFM,ELEM,ID 80 NOGO = .TRUE. C 140 FORMAT (A23,' 2404, GRID POINTS 1 AND 3 OF ',A4,A2, 1 ' WITH ELEMENT ID =',I9,' HAVE SAME COORDINATES.') 150 FORMAT (A23,' 2405, GRID POINTS 1, 3, AND 5 OF ',A4,A2,' WITH ', 1 'ELEMENT ID =',I9,' APPEAR TO BE ON A STRAIGHT LINE.') 160 FORMAT (A23,' 2406, GRID POINTS 1 AND 5 OF ',A4,A2, 1 ' WITH ELEMENT ID =',I9,' HAVE SAME COORDINATES.') RETURN END ================================================ FILE: mis/trimem.f ================================================ SUBROUTINE TRIMEM(NTYPE,TBAR,PG) C C ******** PHASE I OF STRESS DATA RECOVERY ************************* C ******** TRIANGULAR MEMBRANE ELEMENT ***************************** C C CALLS FROM THIS ROUTINE ARE MADE TO. . . C C MAT - MATERIAL DATA ROUTINE C MESAGE - ERROR MESSAGE WRITER C C IF NTYPE = 0 COMPLETE MEMBRANE COMPUTATION IS PERFORMED C C IF NTYPE = 1 RETURN 3 TRANSFORMED 3X3 MATRICES ONLY C C C DIMENSION PG(1),ECPT(21) C COMMON /CONDAS/ CONSTS(5) COMMON /TRIMEX/ 1 NECPT(1) ,NGRID(3) 2 ,ANGLE ,MATID1 3 ,T ,FMU 4 ,DUMMY1 ,X1 5 ,Y1 ,Z1 6 ,DUMMY2 ,X2 7 ,Y2 ,Z2 8 ,DUMMY3 ,X3 9 ,Y3 ,Z3 COMMON /SSGWRK/ ETEMPX(6), C(18), E(18), G(9), TEMPAR(9) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHAS(3), 1 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE, 2 G2X211, G2X212, G2X222 C EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (ECPT(1),NECPT(1)) C ECPT LIST C IN C THIS C ECPT DESCRIPTION ROUTINE TYPE C ****************************************************************** C ECPT( 1) = ELEMENT ID NECPT(1) INTEGER C ECPT( 2) = GRID POINT A NGRID(1) INTEGER C ECPT( 3) = GRID POINT B NGRID(2) INTEGER C ECPT( 4) = GRID POINT C NGRID(3) INTEGER C ECPT( 5) = THETA = ANGLE OF MATERIAL ANGLE REAL C ECPT( 6) = MATERIAL ID MATID INTEGER C ECPT( 7) = T T REAL C ECPT( 8) = NON-STRUCTURAL MASS FMU REAL C ECPT( 9) = COORD. SYSTEM ID 1 NECPT(9) INTEGER C ECPT(10) = X1 X1 REAL C ECPT(11) = Y1 Y1 REAL C ECPT(12) = Z1 Z1 REAL C ECPT(13) = COORD. SYSTEM ID 2 NECPT(13) INTEGER C ECPT(14) = X2 X2 REAL C ECPT(15) = Y2 Y2 REAL C ECPT(16) = Z2 Z2 REAL C ECPT(17) = COORD. SYSTEM ID 3 NECPT(17) INTEGER C ECPT(18) = X3 X3 REAL C ECPT(19) = Y3 Y3 REAL C ECPT(20) = Z3 Z3 REAL C ECPT(21) = ELEMENT TEMPERATURE ELTEMP REAL C C ****************************************************************** ELTEMP = ECPT(21) C C SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE C C E(1), E(3), E(5) WILL BE THE I-VECTOR C E(2), E(4), E(6) WILL BE THE J-VECTOR C E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE C C FIRST FIND I-VECTOR = RSUBB - RSUBA (NON-NORMALIZED) E(1) = X2 - X1 E(3) = Y2 - Y1 E(5) = Z2 - Z1 C C NOW FIND LENGTH = X-SUB-B COORD. IN ELEMENT SYSTEM XSUBB = SQRT( E(1)**2 + E(3)**2 + E(5)**2 ) IF(XSUBB .GT. 1.0E-06) GO TO 10 CALL MESAGE(-30,31,ECPT(1)) C C 20 NOW NORMALIZE I-VECTOR WITH X-SUB-B 10 E(1) = E(1) / XSUBB E(3) = E(3) / XSUBB E(5) = E(5) / XSUBB C C HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN C E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER C E(2) = X3 - X1 E(4) = Y3 - Y1 E(6) = Z3 - Z1 C C X-SUB-C = I . (RSUBC - RSUBA) , THUS XSUBC = E(1) * E(2) + E(3) * E(4) + E(5) * E(6) C C AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR C (NON-NORMALIZED) C E(7) = E(3) * E(6) - E(5) * E(4) E(8) = E(5) * E(2) - E(1) * E(6) E(9) = E(1) * E(4) - E(3) * E(2) C C C THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C C COORD. IN ELEMENT SYSTEM YSUBC = SQRT( E(7)**2 + E(8)**2 + E(9)**2 ) IF(YSUBC .GT. 1.0E-06) GO TO 20 CALL MESAGE(-30,32,ECPT(1)) C C 25 NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND C 20 E(7) = E(7) / YSUBC E(8) = E(8) / YSUBC E(9) = E(9) / YSUBC C C NOW HAVING I AND K VECTORS.GET J = I CROSS K AND C STORE IN THE SPOT FOR J C E(2) = E(5) * E(8) - E(3) * E(9) E(4) = E(1) * E(9) - E(5) * E(7) E(6) = E(3) * E(7) - E(1) * E(8) C C AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE. TEMP = SQRT( E(2)**2 + E(4)**2 + E(6)**2 ) E(2) = E(2)/TEMP E(4) = E(4)/TEMP E(6) = E(6)/TEMP C C VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA VOL = XSUBB*YSUBC*T/2.0 C REELMU = 1.0D0 / XSUBB FLAMDA = 1.0D0 / YSUBC DELTA = XSUBC / XSUBB - 1.0E0 C C ****************************************************************** C C NOW FORM THE C MATRIX (3X6) PARTITIONED AS FOLLOWS HERE. C CSUBA = (3X2) STORED IN C(1) . . .C(6) BY ROWS C CSUBB = (3X2) STORED IN C(7) . . .C(12) BY ROWS C CSUBC = (3X2) STORED IN C(13). . .C(18) BY ROWS C C(1) = -REELMU C(2) = 0.0E0 C(3) = 0.0E0 C(4) = FLAMDA * DELTA C(5) = C(4) C(6) = -REELMU C(7) = REELMU C(8) = 0.0E0 C(9) = 0.0E0 C(10) = -FLAMDA * REELMU * XSUBC C(11) = C(10) C(12) = REELMU C(13) = 0.0E0 C(14) = 0.0E0 C(15) = 0.0E0 C(16) = FLAMDA C(17) = FLAMDA C(18) = 0.0E0 C IF( NTYPE .EQ. 1 ) GO TO 30 THETA = ANGLE * DEGRA SINTH = SIN( THETA ) COSTH = COS( THETA ) 30 IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0 ELTEMP = ECPT(21) MATID = MATID1 INFLAG = 2 CALL MAT( ECPT(1) ) C C FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE C G(1) = G11 G(2) = G12 G(3) = G13 G(4) = G12 G(5) = G22 G(6) = G23 G(7) = G13 G(8) = G23 G(9) = G33 C C ****************************************************************** C C G, E, AND C MATRICES ARE COMPLETE C C C TEMP = (TBAR-TSUB0)*VOL DO 40 I=1,3 40 TEMPAR(I) = ALPHAS(I)*TEMP CALL MPYL(G(1),TEMPAR(1),3,3,1,TEMPAR(7)) DO 70 I=1,3 K = 6*I-5 CALL MPYLT(C(K),TEMPAR(7),3,2,1,TEMPAR(1)) CALL MPYL(E,TEMPAR(1),2,3,1,TEMPAR(4)) K = 4*I+5 IF(NECPT(K) .EQ. 0) GO TO 50 CALL BASGLB(TEMPAR(4),TEMPAR(4),NECPT(K+1),NECPT(K)) 50 DO 60 K=1,3 L = NECPT(I+1)+K-1 60 PG(L) = PG(L)+TEMPAR(K+3) 70 CONTINUE C C THIS CONCLUDES PHASE 1 FOR TRIANGULAR MEMBRANE OR SUB CALCULATION C TO ANOTHER ROUTINE... RETURN END ================================================ FILE: mis/triqd.f ================================================ SUBROUTINE TRIQD( NTYPE, T ) C***** C ELEMENT THERMAL AND DEFORMATION LOADING ROUTINE FOR FOUR ELEMENTS C***** C C E C P T L I S T I N G C *************************** C ECPT TRMEM QDMEM TRPLT QDPLT TRIA1 QUAD1 TRIA2 QUAD2 C ********************************************************************** C 1 EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID EL.ID C 2 GRID A GRID A GRID A GRID A GRID A GRID A GRID A GRID A C 3 GRID B GRID B GRID B GRID B GRID B GRID B GRID B GRID B C 4 GRID C GRID C GRID C GRID C GRID C GRID C GRID C GRID C C 5 THETA GRID D THETA GRID D THETA GRID D THETA GRID D C 6 MATID THETA MATID1 THETA MATID1 THETA MAT ID THETA C 7 T MAT ID I MATID1 T1 MATID1 T MAT ID C 8 NS MASS T MATID2 I MATID2 T1 NS MASS T C 9 CSID 1 NS MASS T2 MATID2 I MATID2 CSID 1 NS MASS C 10 X1 CSID 1 NS MASS T2 MATID3 I X1 CSID 1 C 11 Y1 X1 Z1 NS MASS T2 MATID3 Y1 X1 C 12 Z1 Y1 Z2 Z1 NS MASS T2 Z1 Y1 C 13 CSID 2 Z1 CSID 1 Z2 Z1 NS MASS CSID 2 Z1 C 14 X2 CSID 2 X1 CSID 1 Z2 Z1 X2 CSID 2 C 15 Y2 X2 Y1 X1 CSID 1 Z2 Y2 X2 C 16 Z2 Y2 Z1 Y1 X1 CSID 1 Z2 Y2 C 17 CSID 3 Z2 CSID 2 Z1 Y1 X1 CSID 3 Z2 C 18 X3 CSID 3 X2 CSID 2 Z1 Y1 X3 CSID 3 C 19 Y3 X3 Y2 X2 CSID 2 Z1 Y3 X3 C 20 Z3 Y3 Z2 Y2 X2 CSID 2 Z3 Y3 C 21 TEMP Z3 CSID 3 Z2 Y2 X2 TEMP Z3 C 22 CSID 4 X3 CSID 3 Z2 Y2 CSID 4 C 23 X4 Y3 X3 CSID 3 Z2 X4 C 24 Y4 Z3 Y3 X3 CSID 3 Y4 C 25 Z4 TEMP Z3 Y3 X3 Z4 C 26 TEMP CSID 4 Z3 Y3 TEMP C 27 X4 TEMP Z3 C 28 Y4 CSID 4 C 29 Z4 X4 C 30 TEMP Y4 C 31 Z4 C 32 TEMP C ********************************************************************** C REAL SAVE(32), T(1) COMMON /ZZZZZZ/ CORE(1) COMMON /TRIMEX/ ECPT(100) EQUIVALENCE (SAVE(1),ECPT(50)) C C THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2 C C NTYPE = 1 IMPLIES TRIA1 C NTYPE = 2 IMPLIES TRIA2 C NTYPE = 3 IMPLIES QUAD1 C NTYPE = 4 IMPLIES QUAD2 C C CALLS FROM THIS ROUTINE ARE MADE TO THE FOLLOWING ELEMENT C THERMAL AND DEFORMATION LOADING ROUTINES. C C TRMEM - TRIANGULAR MEMBRANE ROUTINE C QDMEM - QUADRILATERAL MEMBRANE ROUTINE C TRPLT - TRIANGULAR PLATE ROUTINE. C QDPLT - QUADRILATERAL PLATE ROUTINE. C C C THE SAVED ECPT IS EQUIVALENCED TO ECPT(50) C C SAVE THE INCOMING ECPT C DO 10 I=1,32 10 SAVE(I) = ECPT(I) C C TRANSFER TO ELEMENT TYPE DESIRED C GO TO(20,70,100,150),NTYPE C***** C *** TRIA1 *** C***** C SET UP ECPT FOR CALL TO TRMEM(0), FIRST CHECK T1 FOR ZERO. C 20 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 40 DO 30 I=9,21 30 ECPT(I) = SAVE(I + 6) C CALL TRIMEM( 0, T(1), CORE(1) ) C C SET UP ECPT FOR CALL TO TRPLT, FIRST CHECK I AND T2 EQUAL ZERO. C 40 IF( SAVE(9) .EQ. 0.0E0 ) RETURN DO 50 I=1,5 50 ECPT(I) = SAVE(I) DO 60 I=6,25 60 ECPT(I) = SAVE(I + 2) C CALL TRPLT( T(1) ) RETURN C***** C *** TRIA2 *** C***** 70 IF( SAVE(7) .EQ. 0.0E0 ) RETURN C C SET UP ECPT FOR CALL TO TRMEM(0) C C ECPT IS OK AS DELIVERED TO THIS ROUTINE C CALL TRIMEM( 0, T(1), CORE(1) ) C C SET UP ECPT FOR CALL TO TRPLT C DO 80 I=1,6 80 ECPT(I) = SAVE(I) ECPT(7) = SAVE(7) ** 3 / 12.0E0 ECPT(8) = SAVE(6) ECPT(9) = SAVE(7) ECPT(10)= SAVE(8) DO 90 I=13,25 90 ECPT(I) = SAVE(I - 4) C CALL TRPLT( T(1) ) RETURN C***** C *** QUAD1 *** C***** 100 IF(SAVE(8).EQ.0.0E0)GO TO 120 C C SET UP ECPT FOR CALL TO QDMEM C ECPT(9) = SAVE(13) DO 110 I=10,26 110 ECPT(I) = SAVE(I+6) C CALL QDMEM( T(1), CORE(1) ) C 120 IF( SAVE(10) .EQ. 0.0E0 ) RETURN C C SET UP ECPT FOR CALL TO QDPLT C DO 130 I=1,6 130 ECPT(I) = SAVE(I) DO 140 I=7,30 140 ECPT(I) = SAVE(I + 2) C CALL QDPLT( T(1) ) RETURN C***** C *** QUAD2 *** C***** 150 IF( SAVE(8) .EQ. 0.0E0 ) RETURN C C SET UP ECPT FOR CALL TO QDMEM C C ECPT IS OK AS DELIVERED TO THIS ROUTINE C CALL QDMEM( T(1), CORE(1) ) C C SET UP ECPT FOR CALL TO QDPLT C DO 160 I=1,7 160 ECPT(I) = SAVE(I) ECPT(8) = SAVE(8) **3 / 12.0E0 ECPT(9) = SAVE(7) ECPT(10)= SAVE(8) ECPT(11)= SAVE(9) DO 170 I=14,30 170 ECPT(I) = SAVE(I - 4) C CALL QDPLT( T(1) ) C RETURN END ================================================ FILE: mis/trlg.f ================================================ SUBROUTINE TRLG C C THIS IS THE MODULE DRIVER FOR TRLG(TRANSIENT LOAD GENERATOR) C C INPUTS(14) C CASEXX CASECONTROL C USETD C DLT DYNAMIC LOAD TABLE C SLT STATIC LOAD TABLE C BGPDT BASIC GRID POINT DEFINITION TABLE C SIL SCALAR INDEX LIST C CSTM COORDINATE SYSTEMS C TRL TRANSIENT RESPONSE LIST C DIT DIRECT INPUT TABELS C GMD C GOD C PHIDH C EST C MGG MASS MATRIX FOR GRAVITY LOADS C MPT C OUTPUTS(6) C PPO C PSO C PDO C PD C PH C TOL C PARAMETERS C IP1 = -1 IF (AP = AD) C NCOL.LE.0 NO CONTINUE MODE (TO = 0.0) C NCOL.GT.0 CONTINUE MODE (TO = LAST TIME) C C SCRATCHES (9) C INTEGER CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD, 1 PHIDH,PPO,PSO,PDO,PD,PH,TOL,SCR1,SCR2,SCR3,SCR4,SCR5, 2 SCR6,SCR7,AP,AS,AD,AH,TMLDTB,FCT,FCO,SCR8,EST,SCR9,MCB(7) C COMMON /BLANK/ IP1,NCOL C DATA CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,PHIDH/ 1 101 , 102 ,103,104,105 ,106,107 ,108,109,110,111,112 / DATA EST,MGG,MPT / 1 113,114,115 / DATA PPO,PSO,PDO,PD ,PH ,TOL / 1 201,202,203,204,205,206 / DATA SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,SCR9 / 1 301 ,302 ,303 ,304 ,305, 306 ,307 ,308 ,309 / C C FORM AP MATRIX AND EXTRACT LOAD TABLES C AP = SCR1 TMLDTB = SCR2 CALL TRLGA (CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,AP,TMLDTB,ITRL, 1 SCR3,SCR4,SCR5,EST,SCR6,MGG,SCR7,MPT) C C REDUCE TRANSFORMATION MATRIX C AS = SCR3 AD = SCR4 AH = SCR5 MCB(1) = AP CALL RDTRL (MCB) IF (MCB(2) .LE. 0) GO TO 10 CALL TRLGB (USETD,AP,GMD,GOD,PHIDH,AS,AD,AH,IP1,SCR6,SCR7,SCR8, 1 SCR9) C C PRODUCE TIME FUNCTION MATRIX C 10 CONTINUE FCT = SCR6 FCO = SCR7 CALL TRLGC (TMLDTB,TRL,DIT,ITRL,FCT,FCO,TOL,IP2) IF (MCB(2) .LE. 0) GO TO 20 IF (IP2 .EQ. -1) FCO = FCT C C COMPUTE LOAD FACTORS C CALL TRLGD (FCT,FCO,AP,AS,AD,AH,PPO,PSO,PDO,PD,PH,IP1,SCR2,IP2) 20 CONTINUE RETURN END ================================================ FILE: mis/trlga.f ================================================ SUBROUTINE TRLGA (CASECC,USETD,DLT,SLT,BGPDT,SIL,CSTM,AP,TMLDTB, 1 ITRL,ISCR1,ISCR2,ISCR3,EST,NEWSLT,MGG,ISCR4,MPT1) C C THE PURPOSE OF THIS ROUTINE IS TO CONSTRUCT THE AP MATRIX C WHICH HAS 1 COLUMN FOR EACH FUNCTION OF TIME C AND TO BUILD THE TIME FUNCTION TABLE (FORMAT SHOWN IN TRLGC) C EXTERNAL ANDF INTEGER CASECC,USETD,DLT,SLT,BGPDT,SIL,CSTM,AP,TMLDTB, 1 SYSBUF,ANDF,PG(7),NAME(2),SLT1,BGPDT1,CSTM1,SIL1, 2 MCB(7),IZ(38),FILE,NAMT(2),GVECT(30),TWO1,IZB(4), 3 MINUS(2),EST,EST1 COMMON /BLANK / NG COMMON /ZZZZZZ/ Z(1) COMMON /LOADX / LC,SLT1,BGPDT1,OLD,CSTM1,SIL1,ISIL,EST1,MPT,GPTT, 1 EDT,N(3),LODC,MASS,NOBLD,IDIT COMMON /SYSTEM/ KSYSTM(65) COMMON /BITPOS/ ISK(11),IUE COMMON /ZBLPKX/ ZA(4),IIB COMMON /ZNTPKX/ ZB(4),III,IEOL,IEOR COMMON /TWO / TWO1(32) COMMON /QVECT / ITRAN,IQVECT EQUIVALENCE (KSYSTM(1),SYSBUF),(Z(1),IZ(1)),(ZB(1),IZB(1)) DATA NAME / 4HTRLG,4HA /, NAMT/ 4HDLT ,4HTRLG / DATA ITRAN1, MINUS /4HTRAN,-1,-1 / C C CORE IS ALLOCATED AS FOLLOWS - C . EXTERN PHASE (BUILD STATIC LOADS) C POINTER C DLOAD STUFF--TLOAD ID,RECORD NO.IN DLT,SCALE FACTOR ILLST C EXTERN LOAD LIST IN SLT ((NEX LENGTH) ISLLST C 2 BUFFERS C 1 G VECTOR (NG) COMING FROM TOP C N.B. EXTER WILL OPEN NEWSLT,BGPDT,CSTM,SIL C C . DYNAMIC PHASE C DLOAD STUFF ILLST C EXTERN LOAD LIST ISLLST C SIL TO SILD CONVERTER (NG LENGTH) ISILD C 4 BUFFERS C 2 P SIZE VECTORS C COMPRESSED LIST SILD,A,TAU ICLST C C BRING IN DATA FROM CASECC(DLOAD ID -- TSTEP ID) C NSUBL = 0 NZ = KORSZ(IZ) IBUF1 = NZ - SYSBUF + 1 NX = IBUF1 - 1 CALL GOPEN (CASECC,IZ(IBUF1),0) CALL FREAD (CASECC,IZ(1),166,1) IDLOAD = IZ(13) ITRL = IZ(38) CALL CLOSE (CASECC,1) IF (IDLOAD .EQ. 0) GO TO 1020 C C BUILD NEW SLT C CALL SSGSLT (SLT,NEWSLT,EST) C C FIND DLOAD, TLOAD C FILE = DLT CALL OPEN (*900,DLT,IZ(IBUF1),0) CALL READ (*910,*10,DLT,IZ(1),NX,0,IFLAG) GO TO 980 C C IS IT A DLOAD SET C 10 NDLOAD = IZ(3) NSIMPL = IFLAG - 3 - NDLOAD IF (NDLOAD .EQ. 0) GO TO 100 K = 3 DO 20 I = 1,NDLOAD K = K + 1 IF (IZ(K) .EQ. IDLOAD) GO TO 30 20 CONTINUE C C ITS A SIMPLE LOAD C GO TO 100 C C PROCESS DLOAD SET C FORMAT OF DLOAD = SET ID,SCALE,SCALE,ID,SCALE,ID .... -1,-1 C 30 NZ1 = NX - IFLAG C C BRING IN ALL DLOADS C L = IFLAG + 1 CALL READ (*910,*40,DLT,IZ(L),NZ1,0,I) GO TO 980 C C FIND SELECTED ID C 40 ISEL = L 50 IF (IZ(ISEL) .EQ. IDLOAD) GO TO 70 60 ISEL = ISEL + 2 IF (IZ(ISEL+1) .NE. -1) GO TO 60 ISEL = ISEL + 2 IF (ISEL-L .GT. I) GO TO 990 GO TO 50 C C FOUND DLOAD SELECTED C 70 SCALE = Z(ISEL+1) C C CONVERT SCALE FACTORS TO OVERALL SCALE FACTORS C BUILD LIST OF TRIPLES-- TLOAD ID,RECORD NO.IN DLT, SCALE FACTOR C L = ISEL + 2 M = ISEL + I IFLAG = M NSUBL = 0 80 IDLOAD = IZ(L+1) Z(L) = Z(L)*SCALE K = NDLOAD + 3 DO 90 I = 1,NSIMPL K = K + 1 IF (IZ(L+1) .EQ. IZ(K)) GO TO 95 C 90 CONTINUE GO TO 990 C C FOUND SIMPLE ID C 95 IZ(M ) = IZ(L+1) Z(M+1) = Z(L) IZ(M+2) = I L = L + 2 M = M + 3 NSUBL = NSUBL + 1 IF (IZ(L+1) .GE. 0) GO TO 80 GO TO 150 C C PROCESS SIMPLE LOAD REQUEST C 100 M = IFLAG + 1 IFLAG = M IZ(M ) = IDLOAD Z(M+1) = 1.0 L = NDLOAD + 3 DO 110 I = 1,NSIMPL L = L + 1 IF (IZ(L) .EQ. IDLOAD) GO TO 120 110 CONTINUE GO TO 990 C C FOUND SIMPLE LOAD C 120 IF (NDLOAD .NE. 0) I = I + 1 IZ(M+2) = I - 1 NSUBL = 1 C C MOVE STUFF TO BOTTOM OF CORE C 150 CALL CLOSE(DLT,1) ILLST = NZ - NSUBL*3 + 1 NZ = NZ - NSUBL*3 IBUF1 = NZ - SYSBUF + 1 L = IFLAG K = ILLST DO 160 I = 1,NSUBL CALL GOPEN (DLT,IZ(IBUF1),0) CALL SKPREC (DLT,IZ(L+2)) CALL FREAD (DLT,IZB,2,0) IZ(K) = IZB(2) CALL CLOSE (DLT,1) IZ(K+1) = IZ(L+2) IZ(K+2) = IZ(L+1) L = L + 3 K = K + 3 160 CONTINUE C C SET UP FOR EXTERN C FILE = NEWSLT NX = IBUF1 - 1 ISLLST = ILLST NOSLT = 0 MCB(1) = SLT CALL RDTRL (MCB) IF (MCB(1) .LE. 0) NOSLT = -1 MCB(1) = SIL MCB(3) = 0 CALL RDTRL (MCB) NG = MCB(3) IF (NOSLT .NE. 0) GO TO 191 CALL OPEN (*900,NEWSLT,IZ(IBUF1),0) CALL READ (*910,*170,NEWSLT,IZ(1),NX,0,IFLAG) GO TO 980 170 CALL CLOSE (NEWSLT,1) M = ILLST DO 180 I = 1,NSUBL DO 175 J = 3,IFLAG IF (IZ(M) .NE. IZ(J)) GO TO 175 C C FOUND LOAD TO BUILD C IZ(J) = -IABS(IZ(J)) GO TO 179 175 CONTINUE 179 M = M + 3 180 CONTINUE C C ZERO LOADS NOT TO BUILD C M = ILLST - IFLAG + 2 ISLLST = M DO 190 J = 3,IFLAG IF (IZ(J) .LT. 0) GO TO 185 IZ(M) = 0 GO TO 189 185 IZ(M) = IABS(IZ(J)) 189 M = M + 1 190 CONTINUE NEX = IFLAG - 2 NZ = NZ - NEX NGRAV = 0 IHARM = 0 N1 = NEX IBUF1 = NZ - SYSBUF + 1 IBUF2 = IBUF1 - SYSBUF C C SET UP SCRATCH FILE FOR QLOADL C ITRAN = ITRAN1 IQVECT = ISCR1 CALL GOPEN (ISCR1,IZ(IBUF1),1) CALL MAKMCB (PG,ISCR2,NG,2,1) SLT1 = NEWSLT BGPDT1 = BGPDT CSTM1 = CSTM SIL1 = SIL EST1 = EST MASS = MGG MPT = MPT1 CALL GOPEN (PG,IZ(IBUF2),1) LC = IBUF2 - 1 CALL EXTERN (NEX,NGRAV,GVECT,IZ(ISLLST),PG,N1,IHARM) CALL CLOSE (PG,1) CALL WRTTRL (PG) CALL WRITE (ISCR1,MINUS,2,1) CALL CLOSE (ISCR1,1) IF (NGRAV .EQ. 0) GO TO 191 C C DO GRAVITY LOADS C MCB(1) = MGG CALL RDTRL (MCB) IF (MCB(1) .LE. 0) CALL MESAGE (-56,0,NAVE) C C SAVE LOAD LIST IN CORE C CALL GOPEN (ISCR4,IZ(IBUF2),1) CALL WRITE (ISCR4,IZ(ISLLST),3*NSUBL+NEX,1) CALL CLOSE (ISCR4,1) CALL GRAVL1 (NGRAV,GVECT,ISCR3,IHARM) CALL SSG2B (MGG,ISCR3,0,TMLDTB,0,1,1,AP) CALL GRAVL2 (NGRAV,TMLDTB,PG) N1 = N1 + NGRAV C C RESTORE LOAD LIST TO CORE C CALL GOPEN (ISCR4,IZ(IBUF2),0) CALL FREAD (ISCR4,IZ(ISLLST),3*NSUBL+NEX,1) CALL CLOSE (ISCR4,1) C C BUILD SIL TO SILD CONVERTER C 191 CONTINUE FILE = USETD CALL GOPEN (USETD,IZ(IBUF1),0) MCB(1) = USETD CALL RDTRL (MCB) LUSETD = MCB(2) CALL FREAD (USETD,IZ(1),LUSETD,1) CALL CLOSE (USETD,1) ISILD = ISLLST - NG MSKUE = TWO1(IUE) L = ISILD DO 200 I = 1,LUSETD IF (ANDF(IZ(I),MSKUE) .NE. 0) GO TO 200 IZ(L)= I L = L + 1 200 CONTINUE NZ = NZ - NG C C BEGIN LOOP ON EACH TLOAD CARD C IBUF1 = NZ - SYSBUF + 1 ICLST = 2*LUSETD + 1 IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF CALL MAKMCB (MCB,AP,LUSETD,2,1) CALL GOPEN (AP,IZ(IBUF2),1) ITERM = 0 CALL GOPEN (TMLDTB,IZ(IBUF3),1) IQVRN = 0 IBUF4 = IBUF3 - SYSBUF CALL GOPEN (ISCR3,IZ(IBUF4),1) NZ = IBUF4 - 1 IF (NZ .LT. 5*LUSETD) GO TO 980 DO 1000 ILOOP = 1,NSUBL C C ZERO AP AND TAU AREA C K = 2*LUSETD DO 210 I = 1,K Z(I) = 0.0 210 CONTINUE C C FIND APPROPRIATE STATIC LOAD C K = ILLST + (ILOOP-1)*3 SCALE = Z(K+2) IDLOAD = IZ(K ) IDLTR = IZ(K+1) IF (NOSLT .NE. 0) GO TO 300 K = ISLLST - 1 M = 0 DO 220 I = 1,NEX L = K + I IF (IZ(L) .EQ. IDLOAD) GO TO 221 IF (IZ(L) .NE. 0) M = M + 1 220 CONTINUE GO TO 300 C C POSITION TO PROPER AP RECORD C 221 FILE = PG(1) CALL GOPEN (PG,IZ(IBUF1),0) CALL SKPREC (PG,M) CALL INTPK (*290,PG,0,1,0) 240 IF (IEOL .NE. 0) GO TO 290 CALL ZNTPKI ZB(1) = ZB(1)*SCALE K = ISILD + III - 1 K = IZ(K) Z(K) = ZB(1) GO TO 240 290 CALL CLOSE (PG,1) C C PROCESS DLT STUFF C 300 CALL GOPEN (DLT,IZ(IBUF1),0) FILE = DLT CALL SKPREC (DLT,IDLTR) CALL FREAD (DLT,GVECT,8,0) C C READS AND BUILDS COMPRESSED LIST SILD,AI,TAU,FOR ALL AI.S C 320 CALL READ (*910,*330,DLT,IZB,4,0,IFLAG) L = IZB(1) Z(L) = ZB(2) + Z(L) Z(L+LUSETD) = ZB(3) GO TO 320 330 CALL CLOSE (DLT,1) IQR = 0 ASSIGN 370 TO IRETN M = 0 K = ICLST DO 336 I = 1,LUSETD IF (Z(I) .EQ. 0.0) GO TO 336 Z(I) = Z(I)*SCALE M = M + 1 IZ(K ) = I Z(K+1) = Z(I) Z(K+2) = Z(I+LUSETD) K = K + 3 336 CONTINUE C C SORT ON TAU C 339 K = 3*M + ICLST - 4 IF (ICLST .GT. K) GO TO 1335 DO 335 L = ICLST,K,3 IF (Z(L+5).GT.Z(L+2) .OR. (Z(L+5).EQ.Z(L+2) .AND. 1 IZ(L+3).GE.IZ(L))) GO TO 335 LL = L IZ(K+4) = IZ(L+3) Z(K+5) = Z(L+4) Z(K+6) = Z(L+5) 338 IZ(LL+3)= IZ(LL) Z(LL+4) = Z(LL+1) Z(LL+5) = Z(LL+2) LL = LL - 3 IF (LL.GE.ICLST .AND. (Z(K+6).LT.Z(LL+2) .OR. (Z(K+6).EQ.Z(LL+2) 1 .AND. IZ(K+4).LT.IZ(LL)))) GO TO 338 IZ(LL+3)= IZ(K+4) Z(LL+4) = Z(K+5) Z(LL+5) = Z(K+6) 335 CONTINUE 1335 CONTINUE C C OUTPUT PVECTOR FOR EACH UNIQUE TAU C L = ICLST CWKBR 8/94 ALPHA 341 TAUO = Z(L+2) 341 ITAUO = IZ(L+2) CALL BLDPK (1,1,AP,0,0) 345 ZA(1)= Z(L+1) IIB = IZ(L) CALL ZBLPKI L = L +3 CWKBR 8/94 ALPHA IF (L.LT.3*M+ICLST .AND. Z(L+2).EQ.TAUO) GO TO 345 IF (L.LT.3*M+ICLST .AND. IZ(L+2).EQ.ITAUO) GO TO 345 CALL BLDPKN (AP,0,MCB) C C PUT OUT LINE OF TIME TABLE C ITERM = ITERM + 1 CALL WRITE (TMLDTB,ITERM,1,0) CALL WRITE (TMLDTB,IDLOAD,1,0) CALL WRITE (TMLDTB,GVECT,1,0) CWKBR 8/94 ALPHA CALL WRITE (TMLDTB,TAUO,1,0) CALL WRITE (TMLDTB,ITAUO,1,0) CALL WRITE (TMLDTB,GVECT(3),6,0) CALL WRITE (TMLDTB,IQR,1,0) IF (L .GE. ICLST+3*M) GO TO IRETN, (370,390) GO TO 341 C C FIND PROPER QVEC RECORD C 370 CONTINUE IF (NOSLT .NE. 0) GO TO 1000 CALL GOPEN (ISCR1,IZ(IBUF1),0) FILE = ISCR1 380 CALL READ (*450,*920,ISCR1,IQVID,1,0,IFLAG) IF (IQVID .EQ. -1) GO TO 450 IF (IQVID .EQ. IDLOAD) GO TO 390 CALL FWDREC (*910,ISCR1) GO TO 380 C C BUILD LIST OF SILD,AI,TAU FROM QVEC STUFF C 390 CALL FREAD (ISCR1,M,1,0) K = ICLST IF (M .EQ. -1) GO TO 450 DO 400 I = 1,M CALL FREAD (ISCR1,ZB,2,0) ZB(2) = ZB(2)*SCALE J = ISILD + IZB(1) - 1 J = IZ(J) IZ(K) = J Z(K+1) = ZB(2) Z(K+2) = Z(J+LUSETD) K = K + 3 400 CONTINUE IQVRN = IQVRN + 1 IQR = IQVRN CALL FREAD (ISCR1,IZ(K),9,0) CALL WRITE (ISCR3,IZ(K),9,0) ASSIGN 390 TO IRETN GO TO 339 C C END OF QVECT PROCESSING C 450 CALL CLOSE (ISCR1,1) C C END OF TLOAD CARD LOOP C 1000 CONTINUE CALL CLOSE (AP,1) CALL WRTTRL (MCB) CALL CLOSE (ISCR3,1) C C APPEND QVECT STUFF TO TMLDTB C CALL GOPEN (ISCR3,IZ(IBUF1),0) FILE = ISCR3 CALL WRITE (TMLDTB,0,0,1) CALL READ (*1010,*1010,ISCR3,IZ(1),NZ,0,IFLAG) GO TO 980 1010 CALL WRITE (TMLDTB,IZ(1),IFLAG,1) CALL CLOSE (TMLDTB,1) MCB(1) = TMLDTB MCB(2) = ITERM MCB(3) = IFLAG CALL WRTTRL (MCB) CALL CLOSE (ISCR3,1) 1020 CONTINUE RETURN C C FATAL ERRORS C 900 IP1 = -1 901 CALL MESAGE (IP1,FILE,NAME) RETURN 903 CALL MESAGE (-61,0,NAME) RETURN 910 IP1 = -2 GO TO 901 920 IP1 = -3 GO TO 901 980 CALL MESAGE (-8,0,NAME) GO TO 903 990 CALL MESAGE (-31,IDLOAD,NAMT) RETURN END ================================================ FILE: mis/trlgb.f ================================================ SUBROUTINE TRLGB (USETD,AP,GMD,GOD,PHIDH,AS,AD,AH,IFLAG1,SCR1, 1 SCR2,SCR3,SCR4) C C THE PURPOSE OF THIS ROUTINE IS TO REDUCE THE SCALE FACTOR MATRIX C AP TO A TRANS FORMATION MATRIX AS, AD, AH C C INPUTS (5) C USETD C AP SCALE MATRIX --P SIZE C GMD M- SET TRASNFORMATION MATRIX C GOD 0- SET TRASNFORMATION MATRIX C PHIDH H- SET TRASNFORMATION MATRIX C C OUTPUTS(3) C AS SCALE MATRIX --S SET C AD SCALE MATRIX --D SET C AH SCALE MATRIX --H SET C C NOTE IFLAG1 WILL BE SET TO -1 IF AP = AD (N0 M,S,O) C C EXTERNAL ANDF INTEGER USETD,AP,GMD,GOD,PHIDH,AS,AD,AH,MCB(7),SCR1, 1 USET1,ANBAR,AM,AN,AF,ADBAR,AO,ANDF,MULTI,SINGLE, 2 OMIT,SIGN,TRNSP,PREC,SCR2,SCR3,SCR4,UM,US,UO COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE, 1 UD COMMON /ZZZZZZ/ IZ(1) COMMON /SYSTEM/ ISKIP(54),IPREC COMMON /PATX / NZ,N1,N2,N3,USET1 COMMON /TWO / TWO1(32) C C ANBAR = SCR2 AM = SCR3 AN = SCR4 AF = SCR2 ADBAR = SCR3 AO = SCR4 C C SET FLAGS FOR PRESCENCE OF SETS C MCB(1) = USETD CALL RDTRL (MCB) USET1 = USETD MULTI = ANDF(MCB(5),TWO1(UM)) SINGLE = ANDF(MCB(5),TWO1(US)) OMIT = ANDF(MCB(5),TWO1(UO)) MODAL = 0 MCB(1) = PHIDH CALL RDTRL (MCB) IF (MCB(1) .LE. 0) MODAL = 1 NZ = KORSZ(IZ) SIGN = 1 TRNSP = 1 PREC = IPREC C C REMOVE EACH CONSTRAINT C IF (MULTI .EQ. 0) GO TO 10 IF (SINGLE.EQ.0 .AND. OMIT.EQ.0) AN = AD CALL CALCV (SCR1,UP,UNE,UM,IZ) CALL SSG2A (AP,ANBAR,AM,SCR1) CALL SSG2B (GMD,AM,ANBAR,AN,TRNSP,PREC,SIGN,SCR1) GO TO 20 C C NO MULTI-POINT CONSTRAINTS C 10 AN = AP C C REMOVE SINGLES C 20 IF (SINGLE .EQ. 0) GO TO 30 IF (OMIT .EQ. 0) AF = AD CALL CALCV (SCR1,UNE,UFE,US,IZ) CALL SSG2A (AN,AF,AS,SCR1) GO TO 40 C C NO SINGLES C 30 AF = AN 40 IF (OMIT .EQ. 0) GO TO 50 C C REMOVE OMITS C CALL CALCV (SCR1,UFE,UD,UO,IZ) IF (AF .EQ. AO) AO = SCR2 CALL SSG2A (AF,ADBAR,AO,SCR1) CALL SSG2B (GOD,AO,ADBAR,AD,TRNSP,PREC,SIGN,SCR1) GO TO 60 C C NO OMITS C 50 AD = AF C C REMOVE TO H SET C 60 IF (MODAL .NE. 0) GO TO 70 CALL SSG2B (PHIDH,AD,0,AH,TRNSP,PREC,SIGN,SCR1) 70 IFLAG1 = MULTI + SINGLE + OMIT IF (IFLAG1 .EQ. 0) IFLAG1 = -1 RETURN END ================================================ FILE: mis/trlgc.f ================================================ SUBROUTINE TRLGC (TMLDTB,TRL,DIT,ITRL,FCT,FCO,TOL,IFLAG) C C THE PURPOSE OF THIS SUBROUTINE IS TO PRODUCE A MATRIX OF FUNCTIONS C OF TIME. EACH COLUMN IS A TIME STEP (AS DEFINE BY TRL) AND EACH C TERM IN A COLUMN CORRESPONDS TO A UNIQUE FUNCTION OF TIME (EITHER C BY TABLE FROM TLOAD, TIME DELAY, OR QVECT) C C INPUTS (3) C TMLDTB - TABLE SHOWING TIME DEPENDANT DATA C TRL - TIME STEP LIST C DIT - DIRECT INPUT TABLES C ITRL - SELECTED TRL SET NUMBER FROM CASECC C C OUTPUTS(3) C FCT - TIME FUNCTIONS AT ALL TIMES C FCO - TIME FUNCTIONS AT OUTPUT TIMES C IFLAG - -1 IMPLIES ALL TIMES OUTPUT (I.E. FCO = FCT) C TOL - TABLE OF OUTPUT TIMES C C THE FORMAT OF THE TMLDTB TABLE IS AS FOLLOWS C REC NO. WORD DESCRIPTION C 0 1-2 TABLE NAME C 1 1 TERM NUMBER C 2 TLOAD ID C 3 TLOAD TYPE(1,2) C 4 TAU ( FROM DELAY CARDS--REAL) C 5 TID (TABLES FROM TLOAD1 CARD) C 5 T1 CONSTANTS FROM TLOAD 2 CARDS C 6 T2 C 7 F C 8 P C 9 C C 10 B C 11 QVECT POINTER INTO SECOND RECORD C C WORDS 1 THRU 11 ARE REPEATED FOR EACH UNIQUE TIME FUNCTION C C 2 1 I1 QVECT TABLE ID'S C 2 I2 C 3 I3 C 4 V1 QVECT ORIENTATION VECTORS C 5 V2 C 6 V3 C 7 V4 C 8 V5 C 9 V6 C C CORE LAYOUT IS AS FOLLOWS $ POINT C ======================================== =============== ===== C TERM DESCRIPTORS (11 WORDS PER TERM) 11*NTERM WORDS ITERM C QVECT STUFF (9 WORDS PER QVECT) 9*NQVECT WORDS IQVECT C TRL STUFF (3 WORDS PER GROUP) 3*NGROUP WORDS+1 TGROUP C TABLE LIST (1 WORD PER UNIQUETAB) NTAB WORDS+1 ITAB C TABLE DATA PRETAB STORED LTAB WORDS ILTAB C TERM VALUES NTERM WORDS IVS C C 3 BUFFERS FCT IBUF1 C FCO IBUF2 C TOL IBUF3 C LOGICAL DEC INTEGER TMLDTB,TRL,FCT,FCO,TOL,MCB(7),MCB1(7),NAME(2), 1 SYSBUF,DIT,FILE,ITLIST(13),IZ(1) COMMON /BLANK / DUMMY,NCONT COMMON /MACHIN/ MACH COMMON /ZZZZZZ/ Z(1) COMMON /ZBLPKX/ ZA(4),II1 COMMON /SYSTEM/ SYSBUF COMMON /PACKX / IT1,IT2,II,JJ,INCR COMMON /CONDAS/ CONSTS(5) EQUIVALENCE (Z(1),IZ(1)),(CONSTS(2),TWOPI),(CONSTS(4),DEGRA) DATA NAME / 4HTRLG,4HC / DATA ITLIST/ 4,1105,11,1,1205,12,2,1305,13,3,1405,14,4 / C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 NOLOAD = 0 MCB(1) = TMLDTB CALL RDTRL (MCB) IF (MCB(2) .LE. 0) NOLOAD = -1 MCB(2) = 100 IGROUP = 1 IFLAG =-1 NZ = KORSZ(Z) IBUF1 = NZ - SYSBUF IBUF2 = IBUF1 - SYSBUF IBUF3 = IBUF2 - SYSBUF NZ = IBUF3 - 1 IF (NZ .LE. 0) CALL MESAGE (-8,0,NAME) C C BRING IN TIME DATA C IF (NOLOAD .NE. 0) GO TO 30 ITERM = 1 LREC = 11 FILE = TMLDTB CALL GOPEN (TMLDTB,IZ(IBUF1),0) CALL READ (*290,*10,TMLDTB,IZ(ITERM),NZ,0,ILEN) CALL MESAGE (-8,0,NAME) 10 NTERM = ILEN/LREC IQVEC = ITERM + ILEN NZ = NZ - ILEN C C BRING IN QVECT DATA C CALL READ (*290,*20,TMLDTB,IZ(IQVEC),NZ,0,ILEN) CALL MESAGE (-8,0,NAME) 20 NQVECT = ILEN/9 IGROUP = IQVEC + ILEN NZ = NZ - ILEN CALL CLOSE (TMLDTB,1) C C FIND TRL STUFF FOR CORE C 30 FILE = TRL CALL OPEN (*310,TRL,IZ(IBUF1),0) CALL FREAD (TRL,IZ(IGROUP),3,1) CALL SKPREC (TRL,IZ(IGROUP+2)) 40 CALL READ (*291,*50,TRL,IZ(IGROUP),NZ,0,ILEN) CALL MESAGE (-8,0,NAME) 50 IF (IZ(IGROUP) .NE. ITRL) GO TO 40 NGROUP = (ILEN-1)/3 ITAB = IGROUP + ILEN NZ = NZ - ILEN CALL CLOSE (TRL,1) IF (NOLOAD .NE. 0) GO TO 122 C C BUILD LIST OF UNIQUE TABLES C NTABL = 1 K = ITAB + NTABL IZ(K) = 0 DO 120 I = 1,NTERM K = ITERM + LREC*(I-1) + 4 IF (IZ(K-2) .NE. 3) GO TO 60 ITID = IZ(K) ASSIGN 60 TO IRET GO TO 90 60 K = ITERM + LREC*(I-1) + 10 IF (IZ(K) .EQ. 0) GO TO 120 C C LOOK AT QVECT TABLE ID S C IQ = (IZ(K)-1)*9 + IQVEC ITID = IZ(IQ) ASSIGN 70 TO IRET GO TO 90 70 ITID = IZ(IQ+1) ASSIGN 80 TO IRET GO TO 90 80 ITID = IZ(IQ+2) ASSIGN 120 TO IRET C C SEARCH TABLE LIST C 90 L = NUMTYP(ITID) IF (DEC .AND. ITID.GT.16000 .AND. ITID.LE.99999999) L = 1 IF (ITID.LE.0 .OR. L.NE.1) GO TO 110 DO 100 L = 1,NTABL K = ITAB + L IF (IZ(K) .EQ. ITID) GO TO 110 100 CONTINUE C C NEW TABLE C NTABL = NTABL + 1 K = ITAB + NTABL IZ(K) = ITID 110 GO TO IRET, (60,70,80,120) 120 CONTINUE IZ(ITAB) = NTABL ILTAB = ITAB + NTABL + 1 NZ = NZ - NTABL - 1 C C BRING IN TABLE STUFF C LTAB = 0 IF (NTABL .EQ. 1) GO TO 121 CALL PRETAB (DIT,IZ(ILTAB),IZ(ILTAB),IZ(IBUF1),NZ,LTAB,IZ(ITAB), 1 ITLIST) 121 CONTINUE NZ = NZ - LTAB IVS = ILTAB + LTAB IF (NZ .LT. NTERM) CALL MESAGE (-8,0,NAME) C C SET UP FOR PACK C IT1 = 1 IT2 = 1 II = 1 JJ = NTERM INCR= 1 CALL MAKMCB (MCB, FCT,NTERM,2,IT2) CALL MAKMCB (MCB1,FCO,NTERM,2,IT2) C C OPEN OUTPUT FILES C CALL GOPEN (FCT,IZ(IBUF1),1) 122 CONTINUE FILE = TOL TO = 0.0 IF (NCONT .LE. 2) GO TO 123 C C BRING BACK LAST TIME FOR CONTINUE MODE C CALL OPEN (*310,TOL,IZ(IBUF2),0) CALL FREAD (TOL,TO,-NCONT-1,0) CALL FREAD (TOL,TO,1,1) CALL CLOSE (TOL,1) 123 CONTINUE CALL OPEN (*310,TOL,IZ(IBUF2),1) CALL FNAME (TOL,ZA) CALL WRITE (TOL,ZA,2,0) IF (NOLOAD .NE. 0) GO TO 150 C C DETERMINE IF ALL TIME STEPS OUTPUT C DO 130 I = 1,NGROUP K = IGROUP + (I-1)*3 + 3 IF (IZ(K) .NE. 1) GO TO 140 130 CONTINUE IFLAG = -1 GO TO 150 140 IFLAG = 1 CALL GOPEN (FCO,IZ(IBUF3),1) 150 CONTINUE T = TO IST = -1 DO 280 I = 1,NGROUP C C PICK UP TIME CONSTANTS C K = IGROUP + (I-1)*3 + 1 NSTEP = IZ(K) IF (I .EQ. NGROUP) NSTEP = NSTEP + 1 NOUT = IZ(K+2) DELTAT = Z(K+1) IF (I .EQ. 1) NSTEP = NSTEP + 1 DO 270 J = 1,NSTEP IF (NOLOAD .NE. 0) GO TO 231 DO 230 L = 1,NTERM IP = ITERM + (L-1)*LREC M = IZ(IP+2) - 2 GO TO (160,170), M C C TLOAD1 CARD C 160 TT = T - Z(IP+3) CALL TAB (IZ(IP+4),TT,FT) GO TO 200 C C TLOAD2 CARD2 C 170 TT = T - Z(IP+3) - Z(IP+4) ZRAD = Z(IP+7)*DEGRA IF (TT .EQ. 0.0) GO TO 180 IF (TT.LT. 0.0 .OR. TT.GT.Z(IP+5)-Z(IP+4)) GO TO 190 FT = TT**Z(IP+9)*EXP(Z(IP+8)*TT)*COS(TWOPI*Z(IP+6)*TT + ZRAD) GO TO 200 C C TT = 0.0 TRY LIMITS OF EXPRESSION C 180 IF (Z(IP+ 9) .NE. 0.0) GO TO 190 FT = COS(ZRAD) GO TO 200 C C FT = 0.0 C 190 FT = 0.0 C C NOW TRY FOR QVECT STUFF C 200 IF (IZ(IP+10) .EQ. 0) GO TO 220 C C EVALUATE QVECT FUNCTION C IQ = (IZ(IP+10)-1)*9 + IQVEC TT = T - Z(IP+3) C C CHECK FOR CONSTANT FLUX VALUE (FLOATING POINT). C IF TIME DEPENDENT, CALL TABLE LOOKUP. C IQ1 = IZ(IQ) Q1 = Z(IQ) LX = NUMTYP(IQ1) IF (DEC .AND. IQ1.GT.16000 .AND. IQ1.LE.99999999) LX = 1 IF (IQ1.LE.0 .OR. LX.NE.1) GO TO 202 CALL TAB (IQ1,TT,Q1) 202 IQ2 = IZ(IQ+1) Q2 = Z(IQ+1) LX = NUMTYP(IQ2) IF (DEC .AND. IQ2.GT.16000 .AND. IQ2.LE.99999999) LX = 1 IF (IQ2.LE.0 .OR. LX.NE.1) GO TO 204 CALL TAB (IQ2,TT,Q2) 204 IQ3 = IZ(IQ+2) Q3 = Z(IQ+2) LX = NUMTYP(IQ3) IF (DEC .AND. IQ3.GT.16000 .AND. IQ3.LE.99999999) LX = 1 IF (IQ3.LE.0 .OR. LX.NE.1) GO TO 206 CALL TAB (IQ3,TT,Q3) 206 IF (Z(IQ+6).NE.0.0 .OR. Z(IQ+6).NE.0.0 .OR. Z(IQ+7).NE.0.0 .OR. 1 Z(IQ+8).NE.0.0) GO TO 210 C C V2 = 0 C RT = Q1*Z(IQ+3) + Q2*Z(IQ+4) + Q3*Z(IQ+5) IF (RT .GT. 0.0) RT = 0.0 FT = -RT*FT GO TO 220 C C V2 0 C 210 FT = SQRT((Q1*Z(IQ+3) + Q2*Z(IQ+4) + Q3*Z(IQ+5))**2 + 1 (Q1*Z(IQ+6) + Q2*Z(IQ+7) + Q3*Z(IQ+8))**2)*FT GO TO 220 C C PUT IN FT C 220 M = IVS + L - 1 Z(M) = FT 230 CONTINUE C C COLUMN BUILT C CALL PACK (Z(IVS),FCT,MCB) 231 CONTINUE IF (I.EQ.NGROUP .AND. J.EQ.NSTEP-1) GO TO 240 IF (J.EQ.1 .OR. J.EQ.NSTEP) GO TO 240 IF (MOD(J+IST,NOUT) .NE. 0) GO TO 260 C C OUTPUT TIME C 240 CALL WRITE (TOL,T,1,0) IF (IFLAG .EQ. -1) GO TO 250 CALL PACK (Z(IVS),FCO,MCB1) 250 IF (J .EQ. NSTEP) DELTAT = Z(K+4) 260 T = T + DELTAT 270 CONTINUE IST = 0 280 CONTINUE C C ALL OUTPUT C CALL WRITE (TOL,0,0,1) CALL CLOSE (TOL,1) IF (NOLOAD .NE. 0) GO TO 281 CALL CLOSE (FCT,1) CALL WRTTRL (MCB) IF (IFLAG .EQ. -1) GO TO 281 CALL CLOSE (FCO,1) CALL WRTTRL (MCB1) 281 CONTINUE MCB(1) = TOL CALL WRTTRL (MCB) RETURN C C ERROR MESSAGES C 290 IP1 = -2 300 CALL MESAGE (IP1,FILE,NAME) RETURN 310 IP1 = -1 GO TO 300 C C NO PROPER TSTEP CARD FOUND C 291 CALL MESAGE (-31,ITRL,NAME) RETURN END ================================================ FILE: mis/trlgd.f ================================================ SUBROUTINE TRLGD(FCT,FCO,AP,AS,AD,AH, 1 PPO,PSO,PDO,PDT,PHT,IFLAG1,SCR1,IFLAG ) C C THE PURPOSE OF THIS SUBROUTINE IS TO COMPUTE LOAD FACTORS C BOTH AT APPLIED TIMES(T) AND OUTPUT TIMES(O). C C INPUTS (6) C C FCT --MATRIX OF TIME FUNCTIONS--ALL TIMES C FCO --MATRIX OF TIME FUNCTIONS--OUTPUT TIMES C IFLAG =-1 IMPLIES FCT = FCO AND ONLY FCT EXISTS C NOTE THAT ALSO IMPLIES PDO = PDT C AP,AS,AD,AH ARE TRANSFORMATION MATRICIES TO P,S,D,AND H SET RES C C OUTPUTS (5) C PPO,PSO,PDO LOADS AT OUTPUT TIMES(ANY MAY NOT EXIST) C PDT,PHT LOADS AT ALL TIMES (ANY MAY NOT EXIST) C C SCR1 SCRATCH FILE FOR MPYAD C C IFLAG1 =-1 IMPLIES THAT AP = AD C C FCT MAY BE FCO, IN CASE OF EQUALITY THE T FILES WILL EXIST C INTEGER FCT,FCO,AP,AS,AD,AH,PPO,PSO,PDT,PHT,SCR1,MCB(7) 1, TRNSP,SIGN,PREC,PDO C COMMON /SYSTEM/ISKIP(54),IPREC C SIGN = +1 TRNSP = 0 PREC = IPREC C C FORM PPO C MCB(1) = PPO CALL RDTRL(MCB) IF(MCB(1) .LE. 0) GO TO 10 CALL SSG2B(AP,FCO,0,PPO,TRNSP,PREC,SIGN,SCR1) MCB(1) = PPO CALL RDTRL(MCB) MCB(2) = MCB(2) -1 CALL WRTTRL(MCB) 10 CONTINUE C C FORM PSO C MCB(1) = PSO CALL RDTRL(MCB) IF (MCB(1) .LE. 0) GO TO 20 MCB(1) = AS CALL RDTRL(MCB) IF (MCB(2) .LE. 0) GO TO 20 CALL SSG2B(AS,FCO,0,PSO,TRNSP,PREC,SIGN,SCR1) MCB(1) = PSO CALL RDTRL(MCB) MCB(2) = MCB(2) -1 CALL WRTTRL(MCB) 20 CONTINUE C C BUILD PDO C IF(IFLAG1 .EQ. -1) GO TO 30 MCB(1) = PDO CALL RDTRL(MCB) IF (MCB(1) .LE. 0) GO TO 30 CALL SSG2B(AD,FCO,0,PDO,TRNSP,PREC,SIGN,SCR1) MCB(1) = PDO CALL RDTRL(MCB) MCB(2) = MCB(2) -1 CALL WRTTRL(MCB) 30 CONTINUE C C BUILD PDT C MCB(1) = PDT CALL RDTRL(MCB) IF (MCB(1) .LE. 0) GO TO 40 CALL SSG2B(AD,FCT,0,PDT,TRNSP,PREC,SIGN,SCR1) 40 CONTINUE C C BUILD PHT C MCB(1) = PHT CALL RDTRL(MCB) IF(MCB(1) .LE. 0) GO TO 50 CALL SSG2B(AH,FCT,0,PHT,TRNSP,PREC,SIGN,SCR1) 50 CONTINUE RETURN END ================================================ FILE: mis/trmemd.f ================================================ SUBROUTINE TRMEMD C C THIS SUBROUTINE CALCULATES THE STIFFNESS AND MASS MATRICES FOR C THE TRIANGULAR MEMBRANE ELEMENT. CALCULATIONS ARE PERFORMED C PRIMARILY BY SUBROUTINES EKTRMS AND EMASTQ. C DOUBLE PRECISION VERSION C C ECPT FOR THE TRMEM ELEMENT C*********************************************************************** C INDEX DESCRIPTION TYPE C ***** *********** **** C 1 ELEMENT ID I C 2-4 GRID POINTS A,B,AND C I C 5 THETA = ANGLE OF MATERIAL R C 6 MATERIAL ID I C 7 T R C 8 NON-STRUCTURAL MASS R C 9 COORDINATE SYSTEM ID 1 I C 10-12 X1,Y1,Z1 R C 13 COORDINATE SYSTEM ID 2 I C 14-16 X2,Y2,Z2 R C 17 COORDINATE SYSTEM ID 3 I C 18-20 X3,Y3,Z3 R C 21 ELEMENT TEMPERATURE R C*********************************************************************** DOUBLE PRECISION K,KOUT,M(9),MOUT(9),KSAVE 1, A,PROD9,TEMP9,XSUB,BFACT,E LOGICAL NOGO,HEAT INTEGER ELID,ESTID, DICT(10), IPART(3), NECPT(50), NGRID(3) C COMMON /SYSTEM / KSYSTM (60) COMMON /EMGPRM / DM(15),ISMB(3),IPREC,NOGO,HEAT,ICMBAR COMMON /EMGDIC / QQ(3), ELID, ESTID COMMON /EMGEST / ECPT(50) COMMON /EMGTRX / A(225),PROD9(9),TEMP9(9),XSUB(3),BFACT, X E(18), K(324), KOUT(324),KSAVE(81) C EQUIVALENCE (ECPT(1),NECPT(1),IELID), (DICT5,DICT(5)) EQUIVALENCE (K(1),M(1)),(KOUT(1),MOUT(1)),(KSYSTM(2),IOUTPT) EQUIVALENCE (KSYSTM(56), IHEAT), (ECPT(2), NGRID(1)) C DATA IPART / 1,2, 3/ C C C IP = IPREC DICT(1) = ESTID C C CREATE AN ARRAY POINTING TO GRID POINTS IN INCREASING ORDER C 100 DO 140 I=1,2 IP1 = I+1 II = IPART(I) DO 120 J=IP1,3 JJ = IPART(J) IF (NGRID(II).LE. NGRID(JJ)) GOTO 120 IPART(I) =JJ IPART(J) =II II = JJ GO TO 100 120 CONTINUE 140 CONTINUE C C IF STIFFNESS MATRIX IS REQUESTED CALL EKTRMS. OTHERWISE GO TO C MASS MATRIX CALCULATION SECTION C IF (ISMB(1) .EQ. 0 ) GO TO 300 C CALL EKTRMD (0) C IF (NOGO) RETURN C C RE-ORDER THE STIFFNESS MATRIX BY INCREASING SIL VALUE C IF (HEAT) GO TO 200 DO 190 I=1,3 II = IPART(I) DO 180 J=1,3 JJ = IPART(J) DO 170 KA=1,3 DO 160 L=1,3 ISAVE = (II-1)*27 + (JJ-1) *9 + (KA-1)*3 + L IOUT = (I-1)*27 + (J-1)*3 + (KA-1)*9 + L 160 K(IOUT)=KSAVE(ISAVE) 170 CONTINUE 180 CONTINUE 190 CONTINUE C OUTPUT THE MATRIX DICT(2)=1 DICT(3)=9 DICT(4)=7 C CALL EMGOUT(K,K,81,1,DICT,1,IP) GO TO 300 C C OUTPUT HEAT MATRIX HERE C 200 DO 260 I=1,3 DO 240 J=1,3 IOUT = (I-1)* 3+ J IK = (IPART(I)-1)* 3 + IPART(J) 240 K(IOUT)=KSAVE(IK) 260 CONTINUE C OUTPUT HEAT K DICT(2) = 1 DICT(3) = 3 DICT(4) = 1 C CALL EMGOUT (K,K,9,1,DICT,1,IP) C C PERFORM MASS MATRIX CALCULATIONS HERE C 300 IF (ISMB(2) .EQ.0) RETURN C C CONVENTIONAL MASS MATRIX C CALL EMADTQ (4,M) C REORDER THE MASS MATRIX IF (HEAT) GO TO 350 DO 340 I=1,3 II = (I-1)*3 IJ = IPART(I) JJ = (IJ-1)*3 DO 320 J=1,3 IOUT = II + J IK = JJ + J 320 MOUT(IOUT) = M(IK) 340 CONTINUE C DICT(2) =2 DICT(3) = 9 DICT(4) = 7 C CALL EMGOUT (MOUT, MOUT, 9,1,DICT,2,IP) RETURN C C HEAT FORMULATION C 350 DO 360 I=1,3 J=IPART(I) 360 MOUT(I)=M(J) DICT(2)=2 DICT(3)=3 DICT(4)=1 C CALL EMGOUT(MOUT,MOUT,3,1,DICT,2,IP) RETURN C END ================================================ FILE: mis/trmems.f ================================================ SUBROUTINE TRMEMS C C THIS SUBROUTINE CALCULATES THE STIFFNESS AND MASS MATRICES FOR C THE TRIANGULAR MEMBRANE ELEMENT. CALCULATIONS ARE PERFORMED C PRIMARILY BY SUBROUTINES EKTRMS AND EMASTQ. C SINGLE PRECISION VERSION C C ECPT FOR THE TRMEM ELEMENT C*********************************************************************** C INDEX DESCRIPTION TYPE C ***** *********** **** C 1 ELEMENT ID I C 2-4 GRID POINTS A,B,AND C I C 5 THETA = ANGLE OF MATERIAL R C 6 MATERIAL ID I C 7 T R C 8 NON-STRUCTURAL MASS R C 9 COORDINATE SYSTEM ID 1 I C 10-12 X1,Y1,Z1 R C 13 COORDINATE SYSTEM ID 2 I C 14-16 X2,Y2,Z2 R C 17 COORDINATE SYSTEM ID 3 I C 18-20 X3,Y3,Z3 R C 21 ELEMENT TEMPERATURE R C*********************************************************************** REAL K,KOUT,M(1),MOUT(1),KSAVE LOGICAL NOGO,HEAT INTEGER ELID,ESTID, DICT(10), IPART(3), NECPT(50), NGRID(3) C COMMON /SYSTEM / KSYSTM (60) COMMON /EMGPRM / DM(15),ISMB(3),IPREC,NOGO,HEAT,ICMBAR COMMON /EMGDIC / QQ(3), ELID, ESTID COMMON /EMGEST / ECPT(50) COMMON /EMGTRX / A(225),PROD9(9),TEMP9(9),XSUB(3),BFACT, X E(18), K(324), KOUT(324),KSAVE(81) C EQUIVALENCE (ECPT(1),NECPT(1),IELID), (DICT5,DICT(5)) EQUIVALENCE (K(1),M(1)),(KOUT(1),MOUT(1)),(KSYSTM(2),IOUTPT) EQUIVALENCE (KSYSTM(56), IHEAT), (ECPT(2), NGRID(1)) C DATA IPART / 1,2, 3/ C C C IP = IPREC DICT(1) = ESTID C C CREATE AN ARRAY POINTING TO GRID POINTS IN INCREASING ORDER C 100 DO 140 I=1,2 IP1 = I+1 II = IPART(I) DO 120 J=IP1,3 JJ = IPART(J) IF (NGRID(II).LE. NGRID(JJ)) GOTO 120 IPART(I) =JJ IPART(J) =II II = JJ GO TO 100 120 CONTINUE 140 CONTINUE C C IF STIFFNESS MATRIX IS REQUESTED CALL EKTRMS. OTHERWISE GO TO C MASS MATRIX CALCULATION SECTION C IF (ISMB(1) .EQ. 0 ) GO TO 300 C CALL EKTRMS (0) C IF (NOGO) RETURN C C RE-ORDER THE STIFFNESS MATRIX BY INCREASING SIL VALUE C IF (HEAT) GO TO 200 DO 190 I=1,3 II = IPART(I) DO 180 J=1,3 JJ = IPART(J) DO 170 KA=1,3 DO 160 L=1,3 ISAVE = (II-1)*27 + (JJ-1) *9 + (KA-1)*3 + L IOUT = (I-1)*27 + (J-1)*3 + (KA-1)*9 + L 160 K(IOUT)=KSAVE(ISAVE) 170 CONTINUE 180 CONTINUE 190 CONTINUE C OUTPUT THE MATRIX DICT(2)=1 DICT(3)=9 DICT(4)=7 C CALL EMGOUT(K,K,81,1,DICT,1,IP) GO TO 300 C C OUTPUT HEAT MATRIX HERE C 200 DO 260 I=1,3 DO 240 J=1,3 IOUT = (I-1)* 3+ J IK = (IPART(I)-1)* 3 + IPART(J) 240 K(IOUT)=KSAVE(IK) 260 CONTINUE C OUTPUT HEAT K DICT(2) = 1 DICT(3) = 3 DICT(4) = 1 C CALL EMGOUT (K,K,9,1,DICT,1,IP) C C PERFORM MASS MATRIX CALCULATIONS HERE C 300 IF (ISMB(2) .EQ.0) RETURN C C CONVENTIONAL MASS MATRIX C CALL EMASTQ ( 4,M ) C REORDER THE MASS MATRIX IF (HEAT) GO TO 350 DO 340 I=1,3 II = (I-1)*3 IJ = IPART(I) JJ = (IJ-1)*3 DO 320 J=1,3 IOUT = II + J IK = JJ + J 320 MOUT(IOUT) = M(IK) 340 CONTINUE C DICT(2) =2 DICT(3) = 9 DICT(4) = 7 C CALL EMGOUT (MOUT, MOUT, 9,1,DICT,2,IP) RETURN C C HEAT FORMULATION C 350 DO 360 I=1,3 J=IPART(I) 360 MOUT(I)=M(J) DICT(2)=2 DICT(3)=3 DICT(4)=1 C CALL EMGOUT(MOUT,MOUT,3,1,DICT,2,IP) RETURN C END ================================================ FILE: mis/trnsp.f ================================================ SUBROUTINE TRNSP (CORE) C C OUT-OF-CORE MATRIX TRANSPOSE USING 1 TO 8 SCRATCH FILES - NASTRAN C ORIGINAL ROUTINE. C C (SEE TRANSP FOR IN-CORE MATRIX TRANSPOSE FOR UPPER TRIAG. MATRIX, C AND TRNSPS FOR OUT-OF-CORE MATRIX TRANSPOSE WITH 1 SCRATCH FILE, C A NASTRAN NEW ROUTINE) C C REVERT TO NASTRAN ORIGINAL TRNSP IF DIAG 41 IS ON, OR 94TH WORD OF C /SYSTEM/ IS 1000. OTHERWISE SEND THE TRANSPOSE JOB TO THE NEW C TRNSPS ROUTINE, EXECPT LOWER AND UPPER TRIANGULAR MATRICES C INTEGER SCRTH,OTPE,SYSBUF,TRB1 DIMENSION CORE(1),TRB1(7,8),A(2),IPARM(2),NAME(2),ZERO(4) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /TRNSPX/ NAMEA ,NCOLA ,NROWA ,IFORMA,ITYPA ,IA(2), 1 NAMEAT,NCOLAT,NROWAT,IFORAT,ITYPAT,IAT(2), 2 LCARE,NSCRH,SCRTH(8) COMMON /MACHIN/ MACH COMMON /SYSTEM/ SYSBUF,OTPE,SKIP(91),KSYS94 COMMON /PACKX / IOTYP,IOTYPA,II,JJ,INCR COMMON /UNPAKX/ IOTYP1,IS1,NROW1,INCR1 DATA IPARM / 4HTRAN,4HPOSE/, ZERO / 4*0.0 / DATA NAME / 4HTRNS,4HP / C IF (NSCRH .NE. 8) CALL CONMSG (IPARM,2,0) IAT(1) = 0 IAT(2) = 0 INCR1 = 1 II = 1 IF (ITYPAT .EQ. 0) ITYPAT = ITYPA IOTYP = MIN0(ITYPAT,ITYPA) IOTYPA = IOTYP IOTYP1 = IOTYP IF (IFORMA.EQ.4 .OR. IFORMA.EQ.5) GO TO 50 C LOWER UPPER TRIANG. MATRICES C J = MOD(KSYS94,10000)/1000 IF (J .EQ. 1) GO TO 50 CALL SSWTCH (41,J) IF (J .EQ. 1) GO TO 50 C C NASTRAN MAINTENANCE WORK IS DONE ON VAX C IF (MACH.NE.5 .OR. IFORMA.LT.3 .OR. IFORMA.EQ.6) GO TO 40 C VAX NOT SQUARE, RECTANG., AND SYMM. CALL FNAME (NAMEA,A) WRITE (4,30) A,IFORMA 30 FORMAT (40X,'MATRIX ',2A4,', FORM =',I2,' ===>TRNSPS') 40 NCOLAT = 0 NSCRTH = 1 CALL TRNSPS (CORE,CORE) GO TO 500 C 50 IPARM1 = NAMEA NSCRTH = NSCRH IM1 = 1 NCALAT = NCOLAT NCOLAT = 0 IJ1 = 0 LAST = 1 NTYPE = IOTYPA IF (NTYPE .EQ. 3) NTYPE = 2 LCORE = LCARE IBUF1 = LCORE - SYSBUF IBUF = IBUF1 - SYSBUF LCORE = IBUF - 1 IF (LCORE) 440,440,70 C C COMMENT FROM G.CHAN/UNISYS 1/91 C ABOUT THE SQUARE OR RECTANGULAR MATRIX TRANSPOSE BY THE VAX - C DATA, 1.0**-10 OR SMALLER, ON THE TRANSPOSED MATRIX MAY DIFFER C FROM THE ORIGINAL VALUES. CAN NOT EXPLAIN WHY. C THE NORMAL DATA, 1.0**+5 OR LARGER, ARE ALL OK. C (NO CHECK ON THE OTHER MACHINES) C 70 NROWO = MIN0(NROWAT,NCOLA) NBRUT = LCORE/(NROWO*NTYPE) IF (NBRUT .EQ. 0) GO TO 440 NREM = NBRUT IF (NBRUT .GT. NCALAT) GO TO 380 K = AMAX1(FLOAT(NROWAT)*SQRT(FLOAT(NTYPE)/FLOAT(LCORE)),1.0) 80 NROW2 = NBRUT*K NROW = MIN0(NSCRTH*NROW2,NCALAT) KM = (NCALAT+NROW-1)/NROW ICOL = NBRUT*NTYPE IF (LCORE .LT. NROW*NTYPE+(NSCRTH-1)*SYSBUF) GO TO 440 C C THERE ARE NROW2 ROWS IN EACH SUBMATRIX C WE GENERATE NROW ROWS PER PASS OF FULL MATRIX C THERE WILL BE KM SUCH PASSES C IOLOOP = 1 90 IF (IJ1) 210,100,210 100 IF (IOLOOP .EQ. KM) GO TO 390 NROW1 = NROW*IOLOOP 110 IS1 = NROW1 - NROW + 1 IF (IOLOOP .NE. 1) GO TO 120 IPARM1= NAMEA CALL OPEN (*410,NAMEA,CORE(IBUF1),0) 120 CALL FWDREC (*420,NAMEA) NL = NROW*NTYPE C C OPEN SCRATCHES C J = IBUF DO 140 I = 1,NSCRTH IPARM1 = SCRTH(I) CALL OPEN (*410,SCRTH(I),CORE(J),1) J = J - SYSBUF DO 130 III = 1,7 130 TRB1(III,I) = 0 140 CONTINUE DO 200 ILOOP = 1,NROWO CALL UNPACK (*180,NAMEA,CORE) 150 IK = 1 JJ = NROW2 INCR = 1 DO 160 I = 1,NSCRTH CALL PACK (CORE(IK),SCRTH(I),TRB1(1,I)) IK = IK + NROW2*NTYPE 160 CONTINUE C C END LOOP ON BUILDING 1 COL OF SUB MATRICES C GO TO 200 C 180 DO 190 I = 1,NL 190 CORE(I) = 0.0 GO TO 150 200 CONTINUE CALL REWIND (NAMEA) C C END LOOP ON BUILDING NSCRATH SUB MATRICES C DO 201 I = 1,NSCRTH CALL CLOSE (SCRTH(I),1) 201 CONTINUE 210 DO 350 J = 1,NSCRTH IF (IJ1) 230,220,230 220 IF (IOLOOP.NE.KM .OR. J.NE.NSCRTH) GO TO 230 LAST = 0 230 DO 340 M = 1,K IPARM1 = SCRTH(J) CALL OPEN (*410,SCRTH(J),CORE(IBUF),0) IF (LAST.EQ.1 .OR. NCALAT-NCOLAT.GE.NREM) GO TO 240 NBRUT = NCALAT - NCOLAT ICOL = NBRUT*NTYPE IS1 = (M-1)*NREM + 1 NROW1 = IS1 + NBRUT GO TO 270 240 IF (IJ1) 250,260,250 250 CALL FWDREC (*420,SCRTH(J)) 260 IS1 = (M-1)*NBRUT + 1 NROW1 = NBRUT*M 270 L = 1 DO 310 I = 1,NROWO CALL UNPACK (*280,SCRTH(J),CORE(L)) GO TO 300 280 DO 290 NL = 1,ICOL M2 = NL + L - 1 290 CORE(M2) = 0.0 300 L = L + ICOL 310 CONTINUE CALL CLOSE (SCRTH(J),1) IPARM1 = NAMEAT CALL OPEN (*410,NAMEAT,CORE(IBUF),IM1) IF (IM1 .EQ. 3) GO TO 320 CALL FNAME (NAMEAT,A(1)) CALL WRITE (NAMEAT,A(1),2,1) IM1 = 3 320 INCR = NBRUT JJ = NROWO DO 330 L = 1,NBRUT M2 = NTYPE*(L-1) + 1 CALL PACK (CORE(M2),NAMEAT,NAMEAT) 330 CONTINUE CALL CLOSE (NAMEAT,2) C C END LOOP ON SUBMATRIX C IF (NCOLAT .GE. NCALAT) GO TO 350 340 CONTINUE C C END LOOP ON EACH SCRATCH C 350 CONTINUE C C END LOOP ON EACH PASS THROUGH LARGE MATRIX C IOLOOP = IOLOOP + 1 IF (IOLOOP .LE. KM) GO TO 90 IPARM1 = NAMEAT CALL OPEN (*410,NAMEAT,CORE(IBUF),3) CALL CLOSE (NAMEAT,1) CALL CLOSE (NAMEA, 1) GO TO 500 C C ONE PASS ONLY C 380 NSCRTH = 1 SCRTH(1)= NAMEA NBRUT = NCALAT K = 1 IJ1 = 1 IOTYP = ITYPA GO TO 80 390 IOVER = NCALAT - (KM-1)*NROW NBRUT = MIN0(NBRUT,IOVER) ICOL = NBRUT*NTYPE NROW = IOVER NROW2 = MIN0(NBRUT*K,NROW) K = (NROW2+NBRUT-1)/NBRUT NSCRTH= MIN0((IOVER+K*NBRUT-1)/(K*NBRUT),NSCRTH) IF (NSCRTH .EQ. 0) NSCRTH = 1 NROW1 = NCALAT GO TO 110 C C ERROR MESSAGES C 410 N1 = -1 GO TO 450 420 N1 = -2 GO TO 450 440 N1 = -8 450 CALL MESAGE (N1,IPARM1,NAME) C C ONE FINAL CHECK BEFORE RETURN C 500 IF (IFORMA.EQ.3 .OR. IFORMA.EQ.7) GO TO 520 IF (NCOLAT.EQ.NROWA .AND. NROWAT.EQ.NCOLA) GO TO 520 CALL FNAME (NAMEA,A) WRITE (OTPE,510) SWM,A,IFORMA,NCOLA,NROWA,IFORAT,NCOLAT,NROWAT 510 FORMAT (A27,' FORM TRNSP. TRANSPOSED MATRIX APPEARS IN ERROR', 1 /5X,'ORIGINAL ',2A4, ' - FORM =',I3,', (',I6,' X',I6,')', 2 /5X,'TRNASPOSED MATRIX - FORM =',I3,', (',I6,' X',I6,')') 520 IF (NSCRH .NE. 8) CALL CONMSG (IPARM,2,0) RETURN END ================================================ FILE: mis/trnsps.f ================================================ SUBROUTINE TRNSPS (Z,IZ) C C MATRIX TRANSPOSE ROUTINE REPLACING NASTRAN ORIGINAL TRNSP, WHICH C IS AT LEAST 2 TO 4 TIMES SLOWER (COMPARISON DONE ON VAX), AND C USING UP TO 8 SCRATCH FILES C C WITH BOTH IN-CORE AND OUT-OF-CORE LOGICS C (USE TRANSP FOR IN-CORE MATRIX TRANSPOSE) C C IF DGFLAG = -123457890 (SET BY DTRANP), AND INPUT IS A UPPER OR C LOWER TRIANGULAR MATRIX, THE DIAGONAL ELEMENTS ARE REPLACED BY C UNITY (1.0) C C CALLER MUST SUPPLY A SCRATCH FILE ISCR, IF MATRIX TO BE TRANSPOSED C IS SQUARE, RECTANGULAR, LOWER, AND UPPER TRIAGULAR (FORM 1,2,4,5). C C THIS ROUTINE SETS UP THE OUTPUT MATRIX TRAILER WORDS IN NAMEAT C (FILEAT) BUT IT DOES NOT CALL WRTTRL TO WRITE THEM OUT C C WRITTEN BY G.CHAN/UNISYS 12/91 C LOGICAL DEBUG INTEGER IZ(2),SYSBUF,BASE,FILE,DGFLAG,FILEA(7),FILEAT(7) DIMENSION Z(6),A(2),NAM(2) DOUBLE PRECISION DA CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /BLANK / DGFLAG COMMON /TRNSPX/ NAMEA, NCOLA, NROWA, IFORMA,ITYPA, IA(2), 1 NAMEAT,NCOLAT,NROWAT,IFORAT,ITYPAT,IAT(2), 2 LCORE,NSCR,ISCR COMMON /SYSTEM/ SYSBUF,NOUT COMMON /PACKX / IOTYP,IOTYPA,IP,JP,INCR COMMON /UNPAKX/ IOTYP1,IU,JU,INCR1 COMMON /TYPE / RC(2),IWORDS(4) COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW EQUIVALENCE (FILEA(1),NAMEA),(FILEAT(1),NAMEAT),(A(1),DA) DATA NAM / 4HTRNS,4HPS /, DEBUG / .FALSE. / C CALL SSWTCH (19,I) IF (I .EQ. 1) DEBUG = .TRUE. LAST = 1 NTYPE = IOTYPA IF (NTYPE .EQ. 3) NTYPE = 2 IBUF1 = LCORE - SYSBUF IBUF = IBUF1 - SYSBUF NZ = IBUF - 1 IMHERE = 10 IF (NZ .LE. 0) GO TO 820 NREC = 0 FILE = NAMEA IF (IFORMA.GT.2 .OR. NCOLA.EQ.1) 1 CALL OPEN (*800,NAMEA,Z(IBUF1),RDREW) DO 10 I = 2,7 10 FILEAT(I) = FILEA(I) IF (DEBUG) WRITE (NOUT,20) FILEAT 20 FORMAT (' TRNSPS/@5 BEFORE TRANSPOSE, TRAIL-AT =',7I8) GO TO (30,30,530,600,600,500,730,550), IFORMA C C SQUARE AND RECTANGULAR MATRICES C =============================== C 30 IF (NCOLA .EQ. 1) GO TO 580 NROWAT = NCOLA NCOLAT = 0 IAT(1) = 0 IAT(2) = 0 IP = 1 JP = NROWAT INCR = 1 NWD = IWORDS(ITYPA) NWD1 = NWD - 1 NWDS = NCOLA*NWD IF (NREC .NE. 0) GO TO 40 IRAT = MIN0(MAX0((LCORE/100000+4)*NCOLA/NROWA,3),10) IEND = (IBUF1-1-NWDS)/IRAT IEND = MAX0(IEND,5000) IEND1= IEND + 1 CALL UNPSCR (FILEA,ISCR,Z,IBUF1,IBUF,IEND,0,1) NREC = FILEA(4)/10 40 FILE = ISCR CALL OPEN (*800,ISCR,Z(IBUF1),RDREW) J = FILEA(6) - IEND*IRAT IF (J .GT. 0) GO TO 200 C C ENTIRE FILEA (FROM ISCR FILE) FITS INTO CORE C IF (DEBUG) WRITE (NOUT,50) UIM 50 FORMAT (A29,', MATRIX TRANSPOSE WAS PORCESSED BY THE NEW TRNSP ', 1 'IN-CORE METHOD') CALL FWDREC (*810,ISCR) LL = NWDS + 1 DO 60 I = 1,NREC CALL READ (*810,*60,ISCR,Z(LL),IEND1,1,K) IMHERE = 60 GO TO 820 60 LL = LL + K CALL CLOSE (ISCR,CLSREW) C FILE = NAMEAT CALL OPEN (*800,NAMEAT,Z(IBUF1),WRTREW) CALL FNAME (NAMEAT,A(1)) CALL WRITE (NAMEAT,A(1),2,1) C DO 160 K = 1,NROWA DO 70 J = 1,NWDS 70 Z(J) = 0.0 BASE = NWDS + 2 IF (NWD-2) 130,110,80 80 DO 100 I = 1,NCOLA II = IZ(BASE-1) JJ = IZ(BASE ) IF (K.LT.II .OR. K.GT.JJ) GO TO 100 KX = (K-II)*NWD + BASE LX = (I- 1)*NWD DO 90 J = 1,NWD 90 Z(J+LX) = Z(J+KX) 100 BASE = BASE + (JJ-II+1)*NWD + 2 GO TO 150 110 DO 120 I = 1,NCOLA II = IZ(BASE-1) JJ = IZ(BASE ) IF (K.LT.II .OR. K.GT.JJ) GO TO 120 KX = (K-II)*2 + BASE LX = (I- 1)*2 Z(LX+1) = Z(KX+1) Z(LX+2) = Z(KX+2) 120 BASE = BASE + (JJ-II+2)*2 GO TO 150 130 DO 140 I = 1,NCOLA II = IZ(BASE-1) JJ = IZ(BASE ) IF (K.LT.II .OR. K.GT.JJ) GO TO 140 KX = K - II + BASE Z(I) = Z(KX+1) 140 BASE = BASE + JJ - II + 3 150 CALL PACK (Z(1),NAMEAT,NAMEAT) 160 CONTINUE GO TO 450 C C ENTIRE FILEA CAN NOT FIT INTO CORE C C OPEN CORE ALLOCATION - N1 N2 NZ C / / <-- IEND --> / C +----------------------------------+-----+---------------+---+---+ C / OPEN CORE / / GINO C I1 I2 I3 BUFFERS C C Z(I1)... Z(N1) FOR TRANSPOSED OUTPUT MATRIX NAMEAT C IZ(I2)...IZ(N2) IS A (3 x NREC) TABLE, (MIN, MAX, COLUMN COUNTER) C CONTROLLING DATA TRANSFER FROM SCRATCH FILE ISCR. C Z(I3)... Z(NZ) FOR INPUT MATRIX NAMEA COMING FROM ISCR C C NOTE - THE RATIO OF (N1-I1)/(NZ-I3), WHICH IS IRAT, IS A FUNCTION C OF OPEN CORE SIZE, AND THE MATRIX COLUMN AND ROW SIZES. C IRAT IS LIMITED TO 10:1 C NCPP = NO. OF COULMNS PER PASS, OF THE TRANSPOSE MATRIX NAMEAT C C THE TERMS 'ROW' AND 'COLUMN' ARE LOOSELY DEFINED IN COMMENT LINES C 200 N2 = NZ - IEND I3 = N2 + 1 N1 = N2 - 3*NREC I2 = N1 + 1 NCPP = N1/NWDS NCP7 = NCPP*7 NPAS = (NCOLA+NCPP-1)/NCPP IF (.NOT.DEBUG .AND. J.GT.3*NZ) GO TO 230 WRITE (NOUT,210) UIM,NPAS,J 210 FORMAT (A29,', MATRIX TRANSPOSE WAS PROCESSED BY THE NEW TRNSP ', 1 'OUT-OF-CORE METHOD WITH',I5,' NO. OF PASSES', /5X, 2 '(FOR MAXIMUM EFFECIENCY, THE IN-CORE METHOD COULD BE ', 3 'ACTIVATED WITH',I9,' ADDITIONAL OPEN CORE WORDS)') WRITE (NOUT,220) N1,IEND,IRAT,NCPP,NPAS,NREC 220 FORMAT (/5X,'OPEN CORE -',I9,' WORDS USED FOR TRANSPOSE OUTPUT ', 1 'MATRIX, AND',I8,' WORDS FOR INPUT MATRIX (',I2,'/1 RATIO)' 2, /5X,'NO. OF COLUMNS PER PASS =',I5,', NO. OF PASSES =',I6, 3 ', INPUT MATRIX REWRITTEN IN',I4,' RECORDS') 230 FILE = NAMEAT CALL OPEN (*800,NAMEAT,Z(IBUF),WRTREW) CALL FNAME (NAMEAT,A(1)) CALL WRITE (NAMEAT,A(1),2,1) DO 240 MM = I2,N2,3 IZ(MM ) = NROWA 240 IZ(MM+1) = 0 CALL TMTOGO (T1) C C OUTER KB-KE LOOP C C MAP DATA INTO TRANSPOSE OUTPUT MATRIX SPACE, Z(I1)...Z(N1), BY C PASSES. EACH PASS RANGES FROM KB THRU KE COLUMNS C FILE = ISCR KE = 0 250 KB = KE + 1 KE = KE + NCPP IF (KE .GT. NROWA) KE = NROWA IF (KE .NE. NCP7) GO TO 270 IF (DEBUG) WRITE (NOUT,260) (IZ(J),J=I2,N2) 260 FORMAT (' IZ(I2...N2) =',18I6, /,(15X,18I6)) CALL TMTOGO (T2) T1 = (T1-T2)*0.143 T1 = T1*FLOAT(NPAS) IF (T1 .GT. T2) GO TO 880 270 CALL REWIND (ISCR) CALL FWDREC (*810,ISCR) KBE = (KE-KB+1)*NWDS DO 280 J = 1,KBE 280 Z(J) = 0.0 MM = N1 - 3 LL = 0 BASE = 2 C C MIDDLE I-LOOP C C LOAD DATA FROM ISCR/NAMEA INTO Z(I3)...Z(NZ) WHEN NEEDED. C AND RUN THRU EACH ROW OF MATRIX NAMEA IN THIS LOOP C I = 0 300 I = I + 1 IF (I .GT. NCOLA) GO TO 430 IF (BASE .LT. LL) GO TO 340 MM = MM + 3 IF (KB .EQ. 1) GO TO 320 C C IF NOT FIRST PASS, CHECK KB AND KE AGAINST MIN/MAX TABLE IN IZ(I2) C THRU IZ(N2). IF THEY ARE OUTSIDE RANGE, SKIP NEXT DATA RECORD FROM C ISCR FILE AND UPDATE COLUMN COUNTER I C IF (.NOT.(KB.GT.IZ(MM+2) .OR. KE.LT.IZ(MM+1))) GO TO 320 CALL FWDREC (*810,ISCR) I = IZ(MM+3) GO TO 300 320 CALL READ (*810,*330,ISCR,Z(I3),IEND1,1,LL) IMHERE = 160 GO TO 820 330 LL = N2 + LL BASE = N2 + 2 340 II = IZ(BASE-1) JJ = IZ(BASE ) IF (KB .GT. 1) GO TO 350 C C DURING FIRST PASS, SAVE MIN-II, MAX-JJ, AND COLUMN I IN IZ(MM) C TABLE. MM RUNS FROM I2 THRU N2. C IF (II .LT. IZ(MM+1)) IZ(MM+1) = II IF (JJ .GT. IZ(MM+2)) IZ(MM+2) = JJ IZ(MM+3) = I C 350 IIKB = MAX0(II,KB) JJKE = MIN0(JJ,KE) IF (JJKE .LT. IIKB) GO TO 420 C C INNER K-LOOP C C RUN THRU THE IIKB-JJKE ELEMENTS FOR EACH ROW OF MATRIX NAMEA, C C KK = (IIKB-KB)*NWDS C LX = (I-1)*NWD + KK + 1 C KK = BASE - II*NWD + 1 C LX = (I-1)*NWD + (IIKB-KB)*NWDS + 1 KX = (IIKB-II)*NWD + BASE + 1 IF (NWD-2) 360,380,400 360 DO 370 K = IIKB,JJKE Z(LX) = Z(KX) KX = KX + 1 370 LX = LX + NWDS GO TO 420 380 DO 390 K = IIKB,JJKE Z(LX ) = Z(KX ) Z(LX+1) = Z(KX+1) KX = KX + 2 390 LX = LX + NWDS GO TO 420 400 DO 410 K = IIKB,JJKE Z(LX ) = Z(KX ) Z(LX+1) = Z(KX+1) Z(LX+2) = Z(KX+2) Z(LX+3) = Z(KX+3) KX = KX + 4 410 LX = LX + NWDS C C END OF INNER K-LOOP C C ADJUST BASE FOR ANOTHER ROW OF MATRIX NAMEA C 420 BASE = BASE + (JJ-II+1)*NWD + 2 GO TO 300 C C END OF MIDDLE I-LOOP C C PACK THE KB THRU KE COLUMNS OF THE TRANSPOSE MATRIX NAMEAT OUT C 430 DO 440 J = 1,KBE,NWDS CALL PACK (Z(J),NAMEAT,NAMEAT) 440 CONTINUE C IF (KE .LT. NROWA) GO TO 250 CALL CLOSE (ISCR,1) C C END OF OUTTER KB-KE LOOP, AND C END OF SQUARE AND RECTANGULAR MATRIX TRNASPOSE C C OPEN AND CLOSE SCRATCH FILE AGAIN TO PHYSICALLY DELETE THE FILE. C MATRIX TRAILER WILL BE WRITTEN OUT BY DTRANP C 450 CALL CLOSE (NAMEAT,CLSREW) CALL GOPEN (ISCR,Z(IBUF1),WRTREW) CALL CLOSE (ISCR,CLSREW) GO TO 900 C C SYMMETRIC MATRIX C ================ C 500 IF (NCOLA .EQ. NROWA) GO TO 520 CALL FNAME (NAMEA,A) WRITE (NOUT,510) UWM,A,NCOLA,NROWA 510 FORMAT (A25,' FROM TRNSP, ',2A4,' MATRIX (',I7,4H BY ,I7, 1 ') IS NOT SYMMETRIC NOR SQUARE ', /5X, 2 'IT WILL BE TREATED AS RECTANGULAR') CALL CLOSE (NAMEA,CLSREW) GO TO 30 520 FILE = NAMEAT CALL OPEN (*800,NAMEAT,Z(IBUF),WRTREW) CALL CPYFIL (NAMEA,NAMEAT,Z(1),NZ,K) CALL CLOSE (NAMEAT,CLSREW) CALL CLOSE (NAMEA, CLSREW) IF (DEBUG) WRITE (NOUT,525) FILEAT 525 FORMAT (' TRNSPS/@525 AFTER TRANSPOSE, TRAIL-AT =',7I8) GO TO 900 C C DIAGONAL MATRIX C =============== C DIAGONAL MATRIX (IFORMA=3) IS A ONE-COLUMN MATRIX. (1xN) C C THE MATRIX AT RIGHT IS SQUARE (IFORMA=1), 1. 0. 0. C OR RECTANGULAR (IFORMA=2), AND IS NOT 0. 2. 0. C DIAGONAL (IFORMA=3) IN NASTRAN TERMINOLOGY 0. 0. 1. C 530 GO TO 520 C C IDENTITY MATRIX C =============== C SIMILAR TO DIAGONAL MATRIX, INDENTITY MATRIX (IFORMA = 8) IS ALSO C IN ONE-COLUMN MATRIX FORM C C ALSO, THE IDENTITY MATRIX MAY EXIST ONLY IN THE MATRIX TRAILER. C IT DOES NOT PHYSICALLY EXIST. C C 550 CALL READ (*900,*900,NAMEA,Z(1),1,1,J) CALL BCKREC (NAMEA) GO TO 520 C C ONE-COLUMN (1xN) RECTANGUALR MATRIX C =================================== C TRANSPOSE IS A ROW VECTOR, FORM=7. THE TRAILER REMAINS 1xN. C 580 IF (NCOLA .NE. 1) GO TO 860 IFORAT = 8 GO TO 520 C C UPPER OR LOWER TRIANGULAR MATRICES C ================================== C C TRANSPOSE OF UPPER TRIANGULAR MATRIX IS THE LOWER TRIANG. MATRIX C AND VISE VERSA C C (IS THIS HOW THE UPPER OR LOWER TRIANGULAR MATRIX WRITTEN? <==? C C NO! IT IS NOT. WE STOP TRNSP SENDING THESE MATRICES OVER HERE. C BESIDE, THE LOGIC OF WRITING THE MATRIX BACKWARD HERE IS NOT C CORRECT. WE HAVE NOT ACCOMPLISHED THE TRANSPOSE OF THE ORIGINAL C MATRIX YET. ALSO, WE SHOULD WRITE THE TRANSPOSE MATRIX OUT BY C STRINGS, OR PACK THE MATRIX OUT) C 600 IMHERE = 600 N1 = -37 IF (N1 .EQ. -37) GO TO 830 CALL GOPEN (ISCR,Z(IBUF),WRTREW) CALL SKPREC (NAMEA,NCOLA) NWD = IWORDS(ITYPA) IRAT = 3 IEND = (IBUF-1-NWD*NCOLA)/IRAT IEND1= IEND + 1 ISUM = 0 DO 720 I = 1,NCOLA IU = 0 CALL UNPACK (*830,NAMEA,Z(3)) IZ(1) = IU IZ(2) = JU LL = (JU-IU+1)*NWD + 2 ISUM = ISUM + LL IF (ISUM .LE. IEND) GO TO 610 NREC = NREC + 1 CALL WRITE (ISCR,0,0,1) ISUM = LL 610 IF (DGFLAG .NE. -123457890) GO TO 710 IF (IFORMA .EQ. 5) GO TO 660 GO TO (620,630,640,650), ITYPA 620 Z(3) = 1.0 GO TO 710 630 DA = 1.0D+0 Z(3) = A(1) Z(4) = A(2) GO TO 710 640 Z(4) = 0.0 GO TO 620 650 Z(5) = 0.0 Z(6) = 0.0 GO TO 630 660 GO TO (670,680,690,700), ITYPA 670 Z(JU+2) = 1.0 GO TO 710 680 DA = 1.0D+0 Z(JU*2+1) = A(1) Z(JU*2+2) = A(2) GO TO 710 690 Z(JU*2+1) = 1.0 Z(JU*2+2) = 0.0 GO TO 710 700 J = JU*4 - 3 DA = 1.0D+0 Z(J+1) = A(1) Z(J+2) = A(2) Z(J+3) = 0.0 Z(J+4) = 0.0 710 CALL WRITE (ISCR,Z(1),LL,0) CALL BCKREC (NAMEA) CALL BCKREC (NAMEA) 720 CONTINUE NREC = NREC + 1 CALL WRITE (ISCR,0,0,1) CALL CLOSE (NAMEA,CLSREW) CALL CLOSE (ISCR ,CLSREW) ITYPAT = ITYPA IF (IFORMA .EQ. 4) IFORAT = 5 IF (IFORMA .EQ. 5) IFORAT = 4 IAT(1) = IA(1) IAT(2) = IA(2) DGFLAG = 0 FILEA(4) = NREC*10 FILEA(6) = ISUM GO TO 30 C C ROW VECTOR (IFORMA=7, 1xN) C ========================== C C A ROW VECTOR IS A ROW OF MATRIX ELEMENTS STORED IN COLUMN FORMAT C WITH TRAILER 1xN (NOT Nx1). THEREFORE THE TRANSPOSE OF ROW VECTOR C (IFORMA=7) IS A COLUMN VECTOR, WHICH IS RECTANG. (IFORAT=2). C THE TRAILER REMAINS UNCHANGED C 730 IF (NCOLA .NE. 1) GO TO 860 IFORAT = 2 GO TO 520 C C ERROR MESSAGES C 800 IF (IFORMA .EQ. 8) GO TO 900 N1 = -1 GO TO 850 810 N1 = -2 GO TO 850 820 N1 = -8 830 WRITE (NOUT,840) IMHERE 840 FORMAT (/5X,'IMHERE =',I5) 850 CALL MESAGE (N1,FILE,NAM) 860 CALL FNAME (NAMEA,A) WRITE (NOUT,870) UFM,A,IFORMA,NCOLA,NROWA 870 FORMAT (A23,' FROM TRNSPS, INPUT MATRIX ',2A4,' IS NOT SUITABLE ', 1 'FOR MATRIX TRANSPOSE.', /5X,'FORM, COLUMN, ROW =',3I6) CALL MESAGE (-37,NAMEA,NAM) 880 WRITE (NOUT,890) UFM,T1 890 FORMAT (A23,', INSUFFICIENT TIME REMAINING FOR MATRIX TRANSPOSE', 1 /5X,'ESTIMATED TIME NEEDED (FOR TRANSPOSE ALONE) =',I9, 2 ' CPU SECONDS') CALL MESAGE (-37,0,NAM) C 900 RETURN END ================================================ FILE: mis/trplmd.f ================================================ SUBROUTINE TRPLMD (GMAT,DMAT,BMAT,BMAT1,BMAT2,MATTYP,JCOR,WTK) C C ROUTINE TO PERFORM THE TRIPLE MULTIPLY AT EACH INTEGRATION C POINT FOR THE QUAD4 ELEMENT. C DIFFERENT PATHS ARE TAKEN BASED ON THE FOLLOWING CRITERIA - C 1- ELEMENT BEING A MEMBRANE ONLY, OR BENDING ONLY, OR BOTH C MEMBRANE AND BENDING ELEMENT. C 2- THE MATERIAL PROPERTIES BEING ISOTROPIC OR NOT. C 3- THE MACHINE THIS CODE IS RUNNING ON. (TENTATIVE) C DOUBLE PRECISION WTK,AKGG,GMAT(10,10),DMAT(7,7) DOUBLE PRECISION BMAT(240),BMAT1(1),BMAT2(1) DOUBLE PRECISION DBM(240),DMAT1(3,3),DMAT2(4,4) C LOGICAL MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH C COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /ZZZZZZ/ AKGG(1) COMMON /TRPLM / NDOF,IBOT,IPTX1,IPTX2,IPTY1,IPTY2 C C***** C INITIALIZE C***** ND1 = NDOF ND2 = ND1 * 2 ND3 = ND1 * 3 ND4 = ND1 * 4 ND5 = ND1 * 5 ND6 = ND1 * 6 ND7 = ND1 * 7 ND8 = ND1 * 8 ND9 = ND1 * 9 NDA = ND1 * 10 IF (.NOT.NORPTH) GO TO 500 C***** C ALL MIDS ARE THE SAME AND THERE IS NO COUPLING. C IF THE MATERIAL IS ISOTROPIC, PERFORM THE 1ST MUTIPLY EXPLICITLY. C IF NOT, USE GMMATD. IN EITHER CASE, THE 2ND MULTIPLY USES GMMATD. C***** DO 100 I=1,ND1 BMAT(I+ND2) = BMAT2(I+IBOT ) BMAT(I+ND3) = BMAT1(I+IPTY1 ) BMAT(I+ND4) = BMAT1(I+IPTY2 ) BMAT(I+ND5) = BMAT1(I+IPTX1+ND1) 100 BMAT(I+ND6) = BMAT1(I+IPTX2+ND1) C IF (MATTYP .NE. 1) GO TO 300 DO 200 I=1,ND1 DBM (I ) = DMAT(1,1)*BMAT(I ) + DMAT(1,2)*BMAT(I+ND1) DBM (I+ND1) = DMAT(2,1)*BMAT(I ) + DMAT(2,2)*BMAT(I+ND1) DBM (I+ND2) = DMAT(3,3)*BMAT(I+ND2) DBM (I+ND3) = DMAT(4,4)*BMAT(I+ND3) + DMAT(4,5)*BMAT(I+ND4) DBM (I+ND4) = DMAT(5,4)*BMAT(I+ND3) + DMAT(5,5)*BMAT(I+ND4) DBM (I+ND5) = DMAT(6,6)*BMAT(I+ND5) + DMAT(6,7)*BMAT(I+ND6) 200 DBM (I+ND6) = DMAT(7,6)*BMAT(I+ND5) + DMAT(7,7)*BMAT(I+ND6) GO TO 400 C 300 CALL GMMATD (DMAT,7,7,0,BMAT,7,ND1,0,DBM) C 400 DO 420 I=1,ND7 420 BMAT(I) = BMAT(I)*WTK CALL GMMATD (BMAT,7,ND1,-1,DBM,7,ND1,0,AKGG(JCOR)) RETURN C***** C MIDS ARE NOT THE SAME. CHECK FOR MEMBRANE ONLY AND BENDING ONLY C CASES AND BRANCH APPROPRIATELY. IF BOTH ARE THERE, CONTINUE. C***** 500 IF (.NOT.BENDNG) GO TO 800 IF (.NOT.MEMBRN) GO TO 1200 DO 600 I=1,ND1 BMAT(I+ND2) = BMAT2(I+IBOT ) BMAT(I+ND5) = BMAT2(I+IBOT+ND1 ) BMAT(I+ND6) = BMAT1(I+IPTY1 ) BMAT(I+ND7) = BMAT1(I+IPTY2 ) BMAT(I+ND8) = BMAT1(I+IPTX1+ND1) 600 BMAT(I+ND9) = BMAT1(I+IPTX2+ND1) C CALL GMMATD (GMAT,10,10,0,BMAT,10,ND1,0,DBM) C DO 750 I=1,NDA 750 BMAT(I) = BMAT(I)*WTK CALL GMMATD (BMAT,10,ND1,-1,DBM,10,ND1,0,AKGG(JCOR)) RETURN C***** C MEMBRANE ONLY ELEMENT. ONLY THE FIRST 3X3 OF GMAT AND THE FIRST C 3 ROWS OF BMAT ARE MULTIPLIED. C***** 800 DO 900 I=1,ND1 900 BMAT(I+ND2) = BMAT2(I+IBOT) C IF (MATTYP .NE. 1) GO TO 950 DO 920 I=1,ND1 DBM (I ) = GMAT(1,1)*BMAT(I ) + GMAT(1,2)*BMAT(I+ND1) DBM (I+ND1) = GMAT(2,1)*BMAT(I ) + GMAT(2,2)*BMAT(I+ND1) 920 DBM (I+ND2) = GMAT(3,3)*BMAT(I+ND2) GO TO 1050 C 950 DO 1000 I=1,3 DO 1000 J=1,3 1000 DMAT1(I,J) = GMAT(I,J) CALL GMMATD (DMAT1,3,3,0,BMAT(1),3,ND1,0,DBM(1)) C 1050 DO 1100 I=1,ND3 1100 BMAT(I) = BMAT(I)*WTK CALL GMMATD (BMAT,3,ND1,-1,DBM,3,ND1,0,AKGG(JCOR)) RETURN C***** C BENDING ONLY ELEMENT. THE FIRST 3 ROWS AND COLUMNS OF GMAT AND C THE FIRST 3 ROWS OF BMAT WILL BE EXCLUDED FROM MULTIPLICATIONS. C***** 1200 DO 1300 I=1,ND1 BMAT(I+ND6) = BMAT1(I+IPTY1 ) BMAT(I+ND7) = BMAT1(I+IPTY2 ) BMAT(I+ND8) = BMAT1(I+IPTX1+ND1) 1300 BMAT(I+ND9) = BMAT1(I+IPTX2+ND1) C DO 1400 I=1,3 DO 1400 J=1,3 1400 DMAT1(I,J) = GMAT(I+3,J+3) DO 1500 I=1,4 DO 1500 J=1,4 1500 DMAT2(I,J) = GMAT(I+6,J+6) C CALL GMMATD (DMAT1,3,3,0,BMAT(ND3+1),3,ND1,0,DBM(1 )) CALL GMMATD (DMAT2,4,4,0,BMAT(ND6+1),4,ND1,0,DBM(ND3+1)) C DO 1600 I=ND3+1,NDA 1600 BMAT(I) = BMAT(I)*WTK CALL GMMATD (BMAT(ND3+1),7,ND1,-1,DBM,7,ND1,0,AKGG(JCOR)) RETURN C END ================================================ FILE: mis/trplms.f ================================================ SUBROUTINE TRPLMS (GMAT,DMAT,BMAT,BMAT1,BMAT2,MATTYP,JCOR,WTK) C C ROUTINE TO PERFORM THE TRIPLE MULTIPLY AT EACH INTEGRATION C POINT FOR THE QUAD4 ELEMENT. C DIFFERENT PATHS ARE TAKEN BASED ON THE FOLLOWING CRITERIA - C 1- ELEMENT BEING A MEMBRANE ONLY, OR BENDING ONLY, OR BOTH C MEMBRANE AND BENDING ELEMENT. C 2- THE MATERIAL PROPERTIES BEING ISOTROPIC OR NOT. C 3- THE MACHINE THIS CODE IS RUNNING ON. (TENTATIVE) C REAL WTK,AKGG,GMAT(10,10),DMAT(7,7) REAL BMAT(240),BMAT1(1),BMAT2(1) REAL DBM(240),DMAT1(3,3),DMAT2(4,4) C LOGICAL MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH C COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH COMMON /ZZZZZZ/ AKGG(1) COMMON /TRPLM / NDOF,IBOT,IPTX1,IPTX2,IPTY1,IPTY2 C C***** C INITIALIZE C***** ND1 = NDOF ND2 = ND1 * 2 ND3 = ND1 * 3 ND4 = ND1 * 4 ND5 = ND1 * 5 ND6 = ND1 * 6 ND7 = ND1 * 7 ND8 = ND1 * 8 ND9 = ND1 * 9 NDA = ND1 * 10 IF (.NOT.NORPTH) GO TO 500 C***** C ALL MIDS ARE THE SAME AND THERE IS NO COUPLING. C IF THE MATERIAL IS ISOTROPIC, PERFORM THE 1ST MUTIPLY EXPLICITLY. C IF NOT, USE GMMATS. IN EITHER CASE, THE 2ND MULTIPLY USES GMMATS. C***** DO 100 I=1,ND1 BMAT(I+ND2) = BMAT2(I+IBOT ) BMAT(I+ND3) = BMAT1(I+IPTY1 ) BMAT(I+ND4) = BMAT1(I+IPTY2 ) BMAT(I+ND5) = BMAT1(I+IPTX1+ND1) 100 BMAT(I+ND6) = BMAT1(I+IPTX2+ND1) C IF (MATTYP .NE. 1) GO TO 300 DO 200 I=1,ND1 DBM (I ) = DMAT(1,1)*BMAT(I ) + DMAT(1,2)*BMAT(I+ND1) DBM (I+ND1) = DMAT(2,1)*BMAT(I ) + DMAT(2,2)*BMAT(I+ND1) DBM (I+ND2) = DMAT(3,3)*BMAT(I+ND2) DBM (I+ND3) = DMAT(4,4)*BMAT(I+ND3) + DMAT(4,5)*BMAT(I+ND4) DBM (I+ND4) = DMAT(5,4)*BMAT(I+ND3) + DMAT(5,5)*BMAT(I+ND4) DBM (I+ND5) = DMAT(6,6)*BMAT(I+ND5) + DMAT(6,7)*BMAT(I+ND6) 200 DBM (I+ND6) = DMAT(7,6)*BMAT(I+ND5) + DMAT(7,7)*BMAT(I+ND6) GO TO 400 C 300 CALL GMMATS (DMAT,7,7,0,BMAT,7,ND1,0,DBM) C 400 DO 420 I=1,ND7 420 BMAT(I) = BMAT(I)*WTK CALL GMMATS (BMAT,7,ND1,-1,DBM,7,ND1,0,AKGG(JCOR)) RETURN C***** C MIDS ARE NOT THE SAME. CHECK FOR MEMBRANE ONLY AND BENDING ONLY C CASES AND BRANCH APPROPRIATELY. IF BOTH ARE THERE, CONTINUE. C***** 500 IF (.NOT.BENDNG) GO TO 800 IF (.NOT.MEMBRN) GO TO 1200 DO 600 I=1,ND1 BMAT(I+ND2) = BMAT2(I+IBOT ) BMAT(I+ND5) = BMAT2(I+IBOT+ND1 ) BMAT(I+ND6) = BMAT1(I+IPTY1 ) BMAT(I+ND7) = BMAT1(I+IPTY2 ) BMAT(I+ND8) = BMAT1(I+IPTX1+ND1) 600 BMAT(I+ND9) = BMAT1(I+IPTX2+ND1) CALL GMMATS (GMAT,10,10,0,BMAT,10,ND1,0,DBM) C DO 750 I=1,NDA 750 BMAT(I) = BMAT(I)*WTK CALL GMMATS (BMAT,10,ND1,-1,DBM,10,ND1,0,AKGG(JCOR)) RETURN C***** C MEMBRANE ONLY ELEMENT. ONLY THE FIRST 3X3 OF GMAT AND THE FIRST C 3 ROWS OF BMAT ARE MULTIPLIED. C***** 800 DO 900 I=1,ND1 900 BMAT(I+ND2) = BMAT2(I+IBOT) C IF (MATTYP .NE. 1) GO TO 950 DO 920 I=1,ND1 DBM (I ) = GMAT(1,1)*BMAT(I ) + GMAT(1,2)*BMAT(I+ND1) DBM (I+ND1) = GMAT(2,1)*BMAT(I ) + GMAT(2,2)*BMAT(I+ND1) 920 DBM (I+ND2) = GMAT(3,3)*BMAT(I+ND2) GO TO 1050 C 950 DO 1000 I=1,3 DO 1000 J=1,3 1000 DMAT1(I,J) = GMAT(I,J) CALL GMMATS (DMAT1,3,3,0,BMAT(1),3,ND1,0,DBM(1)) C 1050 DO 1100 I=1,ND3 1100 BMAT(I) = BMAT(I)*WTK CALL GMMATS (BMAT,3,ND1,-1,DBM,3,ND1,0,AKGG(JCOR)) RETURN C***** C BENDING ONLY ELEMENT. THE FIRST 3 ROWS AND COLUMNS OF GMAT AND C THE FIRST 3 ROWS OF BMAT WILL BE EXCLUDED FROM MULTIPLICATIONS. C***** 1200 DO 1300 I=1,ND1 BMAT(I+ND6) = BMAT1(I+IPTY1 ) BMAT(I+ND7) = BMAT1(I+IPTY2 ) BMAT(I+ND8) = BMAT1(I+IPTX1+ND1) 1300 BMAT(I+ND9) = BMAT1(I+IPTX2+ND1) C DO 1400 I=1,3 DO 1400 J=1,3 1400 DMAT1(I,J) = GMAT(I+3,J+3) DO 1500 I=1,4 DO 1500 J=1,4 1500 DMAT2(I,J) = GMAT(I+6,J+6) C CALL GMMATS (DMAT1,3,3,0,BMAT(ND3+1),3,ND1,0,DBM(1 )) CALL GMMATS (DMAT2,4,4,0,BMAT(ND6+1),4,ND1,0,DBM(ND3+1)) C DO 1600 I=ND3+1,NDA 1600 BMAT(I) = BMAT(I)*WTK CALL GMMATS (BMAT(ND3+1),7,ND1,-1,DBM,7,ND1,0,AKGG(JCOR)) RETURN C END ================================================ FILE: mis/trplt.f ================================================ SUBROUTINE TRPLT (TI) C C ELEMENT THERMAL LOADING FOR THE BENDING TRIANGULAR PLATE. C C DEFINITION C ECPT BSC.BEND.TRI. AND THE TRI-PLATE C -------- --------------------------------------- C ECPT( 1) = ELEMENT ID INTEGER C ECPT( 2) = GRID PT. A INTEGER C ECPT( 3) = GRID PT. B INTEGER C ECPT( 4) = GRID PT. C INTEGER C ECPT( 5) = THETA REAL C ECPT( 6) = MAT ID 1 INTEGER C ECPT( 7) = I MOM. OF INERT. REAL C ECPT( 8) = MAT ID 2 INTEGER C ECPT( 9) = T2 REAL C ECPT(10) = NON-STRUCT. MASS REAL C ECPT(11) = Z1 REAL C ECPT(12) = Z2 REAL C ECPT(13) = COORD. SYS. ID 1 INTEGER C ECPT(14) = X1 REAL C ECPT(15) = Y1 REAL C ECPT(16) = Z1 REAL C ECPT(17) = COORD. SYS. ID 2 INTEGER C ECPT(18) = X2 REAL C ECPT(19) = Y2 REAL C ECPT(20) = Z2 REAL C ECPT(21) = COORD. SYS. ID 3 INTEGER C ECPT(22) = X3 REAL C ECPT(23) = Y3 REAL C ECPT(24) = Z3 REAL C ECPT(25) = ELEMENT TEMP REAL C INTEGER SUBSCA,SUBSCB,SUBSCC REAL L1,L2,KS,KHI,TI(6),IVECT,JVECT,KVECT DIMENSION M(9),REQUIV(9),G(36),TITE(10),V(25),HQ(12), 1 TEMP15(15),PROD15(15),NECPT(25),V1(3),V2(3),V3(3) COMMON /CONDAS/ CONSTS(5) COMMON /TRIMEX/ ECPT(100) COMMON /SSGWRK/ A(45),T(9),S(18),HINV(36),PROD12(12),D1(3),D2(3), 1 HABC(18),SSUM(60),R(2,4),IVECT(3),JVECT(3), 2 KVECT(3),VV1(2),VV2(2),XSUBB,XSUBC,YSUBC,E(18), 3 TEMP,L1,L2,C1,C2,S1,S2,X1,X2,Y1,Y2,NPOINT,DUM9, 4 TEMP1,TEMP2,PROD9(9),TEMP9(9),DUM8,KM,SUBSCA, 5 SUBSCB,SUBSCC,DUM11,THETA,NSUBC,ISING,U1,U2, 6 SINANG,COSANG,DUM10,XC,YC,DETERM,DUM12(4) COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH COMMON /SSGTRI/ D(9),KHI(5),KS(30),P(5) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (CONSTS(4),DEGRA),(PROD15(1),PROD9(1)), 1 (REQUIV(1),R(1,1)),(NECPT(1),ECPT(1)), 2 (V1(1),ECPT(14)),(V2(1),ECPT(18)), 3 (V3(1),ECPT(22)),(TITE(1),A(1)), 4 (V(1),PROD12(1)),(HQ(1),A(1)) DATA M / 1,2,4, 2,3,4, 3,1,4 / C ELTEMP = ECPT(25) THETA = ECPT(5)*DEGRA SINANG = SIN(THETA) COSANG = COS(THETA) C C FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE C SUB TRIANGLES. (2X4) FOR THE TRIANGULAR PLATE. C FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX. C C ZERO OUT R-MATRIX C DO 10 I = 1,8 10 REQUIV(I) = 0.0 C DO 20 I = 1,3 D2(I) = V2(I) - V1(I) 20 D1(I) = V3(I) - V1(I) C C X2 GOES IN R(1,2) C R(1,2) = SQRT(D2(1)**2 + D2(2)**2 + D2(3)**2) DO 30 I = 1,3 30 IVECT(I) = D2(I)/R(1,2) C C NON-NORMALIZED K-VECTOR C KVECT(1) = IVECT(2)*D1(3) - D1(2)*IVECT(3) KVECT(2) = IVECT(3)*D1(1) - D1(3)*IVECT(1) KVECT(3) = IVECT(1)*D1(2) - D1(1)*IVECT(2) C C Y3 GOES INTO R(2,3) C R(2,3) = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2) DO 40 I = 1,3 40 KVECT(I) = KVECT(I)/R(2,3) C C J-VECTOR = K X I VECTORS C JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3) JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1) JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2) C C NORMALIZE J VECTOR TO MAKE SURE C TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2) DO 60 I = 1,3 60 JVECT(I) = JVECT(I)/TEMP C C X3 GOES INTO R(1,3) = D1 DOT IVECT C R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3) C C CENTROID POINT GOES INTO R(1,4) AND R(2,4) C R(1,4) = (R(1,2) + R(1,3))/3.0 R(2,4) = R(2,3)/3.0 C C COMPUTE SUB-TRIANGLE COORDINATES C CALL BASIC BENDING ROUTINE FOR ALL SUB-TRIANGLES. C DO 80 I = 1,60 80 SSUM(I) = 0.0 DO 90 I = 1,36 90 G(I) = 0.0 C DO 180 J = 1,3 KM = 3*J - 3 SUBSCA = M(KM+1) SUBSCB = M(KM+2) SUBSCC = M(KM+3) C DO 100 I = 1,2 VV1(I) = R(I,SUBSCB) - R(I,SUBSCA) 100 VV2(I) = R(I,SUBSCC) - R(I,SUBSCA) XSUBB = SQRT(VV1(1)**2 + VV1(2)**2) U1 = VV1(1)/XSUBB U2 = VV1(2)/XSUBB XSUBC = U1*VV2(1) + VV2(2)*U2 YSUBC = U1*VV2(2) - VV2(1)*U2 C XC = XSUBC YC = YSUBC C SINTH = SINANG*U1 - COSANG*U2 COSTH = COSANG*U1 + SINANG*U2 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0 C C AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR C TRIANGLE -J- C CALL TRBSC (2,TI(1)) C C RETURNING FROM STRBS1 THE FOLLOWING QUANTITIES ARE AT HAND. C C S , S , S , EACH 5X3. 45 WORDS STORED IN A( 1)...A(45) C A B C C C AND ALSO H-INVERSE IS AT A(73)...A(108) AND S IS AT A(55)...A(72) C C COMPUTE KHI (5X1) MATRIX C E C C THIS WILL BE USED AT THE END OF THE INTERMEDIATE COMPUTATIONS. C KHI-SUB-E MUST BE COMPUTED AFTER THE FIRST SUBTRIANGLE IN ORDER C TO USE THE -D- MATERIAL MATRIX WITH THE CORRECT ORIENTATION. C C NFACTOR = 3.0 FOR THE CLOUGH TRIANGLE C IF (J .EQ. 1) CALL SSGKHI (TI(1),TI(1),3.0) C C SET UP OF T-MATRIX C T(1) = 1.0 T(2) = 0.0 T(3) = 0.0 T(4) = 0.0 T(5) = U1 T(6) = U2 T(7) = 0.0 T(8) =-U2 T(9) = U1 C C SET UP V-MATRIX PER FMMS 51-A C V( 1) = U1*U1/3.0 V( 2) = U2*U2/3.0 V(11) = U1*U2/3.0 V( 3) =-V(11)*2.0 V( 4) = 0.0 V( 5) = 0.0 V( 6) = V(2) V( 7) = V(1) V( 8) =-V(3) V( 9) = 0.0 V(10) = 0.0 V(12) =-V(11) V(13) = V(1) - V(2) V(14) = 0.0 V(15) = 0.0 V(16) = 0.0 V(17) = 0.0 V(18) = 0.0 V(19) = U1/3.0 V(20) =-U2/3.0 V(21) = 0.0 V(22) = 0.0 V(23) = 0.0 V(24) =-V(20) V(25) = V(19) C C ADD IN S , S , S TO THE 4 5X3 SSUM MATRICES C A B C C DO 120 I = 1,3 CALL GMMATS (V(1),5,5,0, A(15*I-14),5,3,0, TEMP15(1)) CALL GMMATS (TEMP15(1),5,3,0, T(1),3,3,0, PROD15(1)) C C POINTER TO SSUM MATRIX C NPOINT = KM + I NPOINT = 15*M(NPOINT) - 15 DO 110 K = 1,15 NSUBC = NPOINT + K 110 SSUM(NSUBC) = SSUM(NSUBC) + PROD15(K) 120 CONTINUE C C FORM HQ (2X6) C TEMP1 = XSUBB - XSUBC TEMP2 = YSUBC**2 L1 = SQRT(XSUBC**2 + TEMP2) L2 = SQRT(TEMP1**2 + TEMP2) S1 = XSUBC/L1 S2 = TEMP1/L2 C1 = YSUBC/L1 C2 = YSUBC/L2 X1 = XSUBC/2.0 Y1 = YSUBC/2.0 X2 = (XSUBB + XSUBC)/2.0 Y2 = Y1 HQ( 1) =-XSUBC*C1 HQ( 2) = X1*S1 - Y1*C1 HQ( 3) = 2.0*Y1*S1 HQ( 4) =-3.0*X1*X1*C1 HQ( 5) = Y1*(2.0*X1*S1 - Y1*C1) HQ( 6) = 3.0*Y1*Y1*S1 HQ( 7) = 2.0*X2*C2 HQ( 8) = X2*S2 + Y2*C2 HQ( 9) = 2.0*Y2*S2 HQ(10) = 3.0*X2*X2*C2 HQ(11) = Y2*(2.0*X2*S2 + Y2*C2) HQ(12) = 3.0*Y2*Y2*S2 C C I -1 C COMPUTE (H I H ) = (HQ)(H) STORE IN PROD12 C PSI,B I PSI,C C I C C CALL GMMATS( HQ(1),2,6,0, HINV(1),6,6,0, PROD12(1) ) C C C COMPUTE (H ) = -(PROD12)(S) C PSI,A C CALL GMMATS (PROD12(1),2,6,0, S(1),6,3,0, HABC(1)) HABC(1) = -HABC(1) HABC(2) = -HABC(2) + S1 HABC(3) = -HABC(3) + C1 HABC(4) = -HABC(4) HABC(5) = -HABC(5) + S2 HABC(6) = -HABC(6) - C2 C C SPLIT(H ) AND (H ) PARTITION C PSI,B PSI,C C HABC( 7) = PROD12( 1) HABC( 8) = PROD12( 2) HABC( 9) = PROD12( 3) HABC(10) = PROD12( 7) HABC(11) = PROD12( 8) HABC(12) = PROD12( 9) HABC(13) = PROD12( 4) HABC(14) = PROD12( 5) HABC(15) = PROD12( 6) HABC(16) = PROD12(10) HABC(17) = PROD12(11) HABC(18) = PROD12(12) C C MAP H , H , AND H INTO THE G-MATRICES. C A B C C C TRIANGLE NUMBER = J, THE THREE POINTS ARE SUBSCA,SUBSCB,SUBSCC. C DO 170 I = 1,3 C C POINTER TO H = 6*I - 6 C I C C TRANSFORM H SUB I C CALL GMMATS (HABC(6*I-5),2,3,0, T(1),3,3,0, TEMP9(1)) C NPOINT = KM + I NPOINT = 9*M(NPOINT) - 9 C C J = 1 ROW 1 OF H INTO ROW 1 OF G. C ROW 2 OF H INTO ROW 2 OF G. C J = 2 ROW 1 OF H INTO ROW 2 OF G. C ROW 2 OF H INTO ROW 3 OF G. C J = 3 ROW 1 OF H INTO ROW 3 OF G. C ROW 2 OF H INTO ROW 1 OF G. C IF (J - 2) 140,130,160 C 130 NPOINT = NPOINT + 3 140 DO 150 K = 1,6 NPOINT = NPOINT + 1 150 G(NPOINT) = G(NPOINT) + TEMP9(K) GO TO 170 160 G(NPOINT+7) = G(NPOINT+7) + TEMP9(1) G(NPOINT+8) = G(NPOINT+8) + TEMP9(2) G(NPOINT+9) = G(NPOINT+9) + TEMP9(3) G(NPOINT+1) = G(NPOINT+1) + TEMP9(4) G(NPOINT+2) = G(NPOINT+2) + TEMP9(5) G(NPOINT+3) = G(NPOINT+3) + TEMP9(6) C 170 CONTINUE C 180 CONTINUE C C FILL E-MATRIX C DO 190 I = 1,18 190 E( I) = 0.0 E( 1) = KVECT(1) E( 4) = KVECT(2) E( 7) = KVECT(3) E(11) = IVECT(1) E(14) = IVECT(2) E(17) = IVECT(3) E(12) = JVECT(1) E(15) = JVECT(2) E(18) = JVECT(3) C C * * -1 C (S ) = (S ) - (S )(G ) (G ) I=A,B,C C I I 4 4 I C C C E T T C (S ) = (S ) (E) (C ) = (S ) (TITE) I=A,B,C C I I I I C C * -1 C FIRST GET COMMON PRODUCT (S )(G ) C 4 4 C C INVERT (G ) STORE INVERSE BACK INTO (G ) C 4 4 C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (3,G(28),3,PROD9(1),0,DETERM,ISING,TEMP9(1)) C C CHECK FOR SINGULARITY. ISING = 2 IMPLIES SINGULARITY... C GO TO (210,200), ISING 200 CALL MESAGE (-30,36,ECPT(1)) C 210 CALL GMMATS (SSUM(46),5,3,0, G(28),3,3,0, PROD15(1)) C DO 260 I = 1,3 C C (PROD15) (G ) C I C CALL GMMATS (PROD15(1),5,3,0, G(9*I-8),3,3,0, TEMP15(1)) C C SUBTRACT TEMP15 FROM S C I C NPOINT = 15*I - 15 DO 220 K = 1,15 NPOINT = NPOINT + 1 220 SSUM(NPOINT) = SSUM(NPOINT) - TEMP15(K) C C DO WE NEED TRANSFORMATION T C I NSUBC = 4*I + 9 IF (NECPT(NSUBC) .EQ. 0) GO TO 230 CALL GBTRAN (NECPT(NSUBC), NECPT(NSUBC+1), T(1)) CALL GMMATS (T(1),3,3,1, E( 1),3,3,0, TITE( 1)) CALL GMMATS (T(1),3,3,1, E(10),3,3,0, TITE(10)) GO TO 250 C 230 DO 240 K = 1,18 240 TITE(K) = E(K) C 250 CALL GMMATS (SSUM(15*I -14),5,3,0, TITE(1),6,3,1, KS(1)) C C COMPUTE THE LOAD VECTOR AND INSERT IT INTO OPEN CORE. C CALL GMMATS (KS(1),5,6,1, KHI(1),5,1,0, P(1)) K = NECPT(I+1) - 1 DO 255 L = 1,6 K = K + 1 255 Z(K) = Z(K) + P(L) C 260 CONTINUE C RETURN END ================================================ FILE: mis/trttem.f ================================================ SUBROUTINE TRTTEM ( TI, PG) C**** C THIS ROUTINE COMPUTES THE THERMAL LOAD FOR THE ASSYMMETRIC RING ELE C WITH A TRIANGULAR CROSS SECTION C**** C ECPT (01) = ELEMENT ID I C ECPT (02) = SIL A I C ECPT (03) = SIL B I C ECPT (04) = SIL C I C ECPT (05) = MATERIAL ORIENTATION ANGLE(DEGREES)R C ECPT (07) = MATERIAL ID I C ECPT (08) TO ECPT (21) = PHI R C ECPT (22) = COOR. SYS. FOR GRID POINT A I C ECPT (23) = R-CORD OF GRID A R C ECPT (24) = Z-CORD OF GRID A R C ECPT (25) = 0.0 R C ECPT (26) = CORD. SYS. GRID POINT B (NOT USED) I C ECPT (27) = R-CORD OF GRID B R C ECPT (28) = Z-CORD OF GRID B R C ECPT (29) = 0.0 R C ECPT (30) = CORD. SYS. GRID POINT C (NOT USED) I C ECPT (31) = R-CORD OF GRID C R C ECPT (32) = Z-CORD OF GRID C R C ECPT (33) = 0.0 R C ECPT (34) = EL. TEMPERATURE FOR MATERIAL R C DIMENSION R(3), Z(3), GABABQ(9,9),DELINT(12),TEO(21) 1, DTT(9),IGP(3),IECPT(34),ICS(3),PG(1),FIJ(9) 2, D(3) ,TL(9) ,TI(3) C C . ECPT COMMON BLOCK COMMON /TRIMEX/ ECPT(34) C C . MATERIAL INPUT AND OUTPUT... COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH C COMMON /MATOUT/ 1 E(3) ,ANU(3) 2, RHO ,G(3) 3, ALF(3) ,TZERO ,GSUBE 4, MOSKP(9) ,SETMAT COMMON /CONDAS/ CONSTS(5) EQUIVALENCE (IECPT(1), ECPT(1)), (Z(1), Z1), (Z(2), Z2) 1, ( Z(3), Z3) 2, ( R(1), R1), ( R(2), R2), (R(3), R3) EQUIVALENCE (CONSTS(1),PI), (CONSTS(4),DEGRAD) C C START EXECUTION C C STORE ECPT PARAMETERS IN LOCAL VARIABLES IDEL = IECPT(1) IGP(1) = IECPT(2) IGP(2) = IECPT(3) IGP(3) = IECPT(4) MATID = IECPT(07) ICS(1) = IECPT(22) ICS(2) = IECPT(26) ICS(3) = IECPT(30) R(1) = ECPT(23) R(2) = ECPT(27) R(3) = ECPT(31) Z(2) = ECPT(28) D(2) = ECPT(29) Z(1) = ECPT(24) D(1) = ECPT(25) Z(3) = ECPT(32) D(3) = ECPT(33) DGAMA = ECPT(05) TEMPE = ECPT(34) C C COMPUTE THE ELEMENT COORDINATES ZMIN = AMIN1(Z1, Z2, Z3) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN C C FORM THE TRANSFORMATION MATRIX GABABQ (9X9) FROM FIELD COORDINATES TO C GRID POINT DEGREES OF FREEDOM DO 300 I = 1,9 DO 300 J = 1,9 300 GABABQ (I,J) = 0.000 AA = R2 * Z3 + R1 * Z2 + Z1 * R3 - Z2 * R3 - R1 * Z3 - R2 * Z1 AA = 1.0E0 / AA C1 = AA * ( R2 * Z3 - Z2 * R3) C2 = - AA * ( Z3 - Z2 ) C3 = AA * ( R3 - R2 ) GABABQ (1,1) = C1 GABABQ (2,4) = C1 GABABQ (3,7) = C1 GABABQ (1,2) = C2 GABABQ (2,5) = C2 GABABQ (3,8) = C2 GABABQ (1,3) = C3 GABABQ(2,6) = C3 GABABQ(3,9) = C3 C1 = -AA * ( R1 * Z3 - Z1 * R3) C2 = AA * ( Z3 - Z1 ) C3 = -AA * ( R3 - R1 ) GABABQ(4,1) = C1 GABABQ(4,2) = C2 GABABQ(4,3) = C3 GABABQ(5,4) = C1 GABABQ(5,5) = C2 GABABQ(5,6) = C3 GABABQ(6,7) = C1 GABABQ(6,8) = C2 GABABQ(6,9) = C3 C1 = AA * ( R1 * Z2 - Z1 * R2) C2 = -AA * ( Z2 - Z1) C3 = AA * ( R2 - R1 ) GABABQ(7,1) = C1 GABABQ(7,2) = C2 GABABQ(7,3) = C3 GABABQ(8,4) = C1 GABABQ(8,5) = C2 GABABQ(8,6) = C3 GABABQ(9,7) = C1 GABABQ(9,8) = C2 GABABQ(9,9) = C3 C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 DGAMR = DGAMA * DEGRAD COSG = COS (DGAMR) SING = SIN (DGAMR) COSTH = COSG SINTH = SING MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT (IDEL) IF (SETMAT.EQ.2.0) GO TO 910 C C . SET MATERIAL PROPERTIES IN LOCAL VARIABLES... ER = E(1) ET = E(2) EZ = E(3) VRO = ANU(1) VOZ = ANU(2) VZR = ANU(3) GOR = G(1) GZO = G(2) GRZ = G(3) VOR = VRO * ET / ER VZO = VOZ * EZ / ET VRZ = VZR * ER / EZ DEL = 1.0E0 / (1.0E0 - VRO * VOR - VOZ * VZO - VZR * VRZ 1 - VRO * VOZ * VZR - VRZ * VOR * VZO ) C C COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS DO 510 I = 1,21 510 TEO (I) = 0.0E0 TEO (1) = ER * ( 1.0E0 - VOZ * VZO) * DEL TEO (2) = ER * ( VZR + VZO * VOR ) * DEL TEO (3) = EZ * ( 1.0E0 - VRO * VOR ) * DEL TEO (4) = ER * ( VOR + VZR * VOZ) * DEL TEO (5) = ET * (VZO + VRO * VZR ) * DEL TEO (6) = ET * ( 1.0E0 - VRZ * VZR ) * DEL TEO (10) = GRZ TEO (15) = GOR TEO (21) = GZO C2 = COSG * COSG C4 = C2 * C2 S2 = SING * SING S4 = S2 * S2 C2S2 = C2 * S2 EE01 = TEO(1)*C4 + TEO(3)*S4 + (TEO(2) + 2.0E0*TEO(10)) 1 * 2.0E0*C2S2 EE02 = TEO(2) * (S4+C4) + (TEO(1) + TEO(3) - 4.0E0*TEO(10))*C2S2 EE03 = TEO(4)*C2 + TEO(5)*S2 EE04 = SING*COSG * (TEO(1)*C2 - TEO(3)*S2 + (TEO(2) + 2.0E0 4 *TEO(10)) * (S2-C2)) EE08 = TEO(1)*S4 + TEO(3)*C4 + (2.0E0*TEO(2) + 4.0E0*TEO(10)) 8 * C2S2 EE09 = TEO(4)*S2 + TEO(5)*C2 EE10 = SING*COSG * (TEO(1)*S2 - TEO(3)*C2 + (TEO(2) + 2.0E0 * * TEO(10)) * (C2 - S2)) EE15 = TEO(6) EE16 = SING*COSG * (TEO(4) - TEO(5)) C C COMPUTE HARMONIC COEFFICIENT AJHO = IECPT(1) - (IECPT(1) /1000) * 1000 - 1 C C . CALCULATE THE INTEGRAL VALUES IN DELINT... C C DELINT(4) = 0,0 C DELINT(5) = 0,1 C DELINT(6) = 1,0 C DELINT(4) = AIS (3,0,0,R,Z) DELINT(5) = AIS (3,0,1,R,Z) DELINT(6) = AIS (3,1,0,R,Z) C T1 = EE01*ALF(1) + EE02*ALF(3) + EE03*ALF(2) T2 = EE02*ALF(1) + EE08*ALF(3) + EE09*ALF(2) T3 = EE03*ALF(1) + EE09*ALF(3) + EE15*ALF(2) T4 = EE04*ALF(1) + EE10*ALF(3) + EE16*ALF(2) C GENERATE DTT MATRIX DTT (1) = DELINT (4) * T3 DTT (2) = DELINT (6) * ( T1 + T3 ) DTT (3) = DELINT (5) * T3 + DELINT(6) * T4 DTT (4) = AJHO * DTT (1) DTT (5) = AJHO * DELINT (6)*T3 DTT (6) = AJHO * DELINT (5) * T3 DTT (7) = 0.0 DTT (8) = DELINT (6) * T4 DTT (9) = DELINT (6) * T2 C C TRANSFORM THE THERMAL LOAD TO GRID POINT DEGREES OF FREEDOM CALL GMMATS (GABABQ, 9, 9, 1, DTT, 9, 1, 0, FIJ) T = TZERO IF (AJHO.GT.0.0) T = 0.0 T = ((TI(1) + TI(2) + TI(3))/3.0E0 - T) * PI IF ( AJHO .EQ. 0.0 ) T = T * 2.0E0 DO 959 I = 1, 9 959 TL(I) = T * FIJ(I) C C**** THE FOLLOWING CODE REMOVED. CORD.SYS. NOT POSSIBLE WITH RINGAX ** C.959 FIJ(I) = T*FIJ(I) C. C. LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS C. DO 750 I=1,81 C.750 AKI(I) = 0.0 C. DO 800 I = 1,3 C. CALL GBTRAN(ICS(I),IECPT(4*I+22),DTT(1)) **R,TH,Z NEEDED** C. K=30*(I-1) + 1 C. DO 800 J=1,3 C. KK = K+9*(J-1) C. JJ=3*(J-1)+1 C. AKI(KK) = DTT(JJ) C. AKI(KK+1) = DTT(JJ+1) C. AKI(KK+2) = DTT(JJ+2) C.800 CONTINUE C. C. TRANSFORM THE THERMAL LOAD FROM BASIC TO LOCAL COORD... C. CALL GMMATS (AKI(1),9,9,1, FIJ(1),9,1,0, TL(1)) C C ADD THE ELEMENT THERMAL LOAD TO THE STRUCTURE THERMAL LOAD K = 0 DO 900 I = 1, 3 L = IGP(I) - 1 DO 900 J = 1,3 K = K + 1 L = L + 1 PG(L) = PG(L) + TL(K) 900 CONTINUE GO TO 920 910 CALL MESAGE (-30,37,ECPT(1)) 920 RETURN END ================================================ FILE: mis/tshear.f ================================================ SUBROUTINE TSHEAR C C ELEMENT TEMPERATURE AND DEFORMATION LOADING FOR THE SHEAR PANEL. C C FORMULATION IS THAT OF A PSEUDO-ROD ON EACH EDGE OF THE SHEAR C PANEL. C C ECPT( 1) - ELEMENT ID C ECPT( 2 THRU 5) - 4 GRID SILS C ECPT( 6) - MATERIAL ID C ECPT( 7) - THICKNESS C ECPT( 8) - NON-STRUCTURAL MASS C ECPT( 9 THRU 24) - 4 POINTS (CSID,X,Y,Z) REPEATS C ECPT(25) - ELEMENT TEMPERATURE C ECPT(26) - F1 EFFECTIVENESS FACTOR DIRECTION 1, (NOT USED) C ECPT(27) - F2 EFFECTIVENESS FACTOR DIRECTION 2, (NOT USED) C INTEGER NCSID(4,4) COMMON /SSGETT/ ELTYPE ,OLDEL ,EORFLG ,ENDID ,BUFFLG , 1 ITEMP ,IDEFT ,IDEFM COMMON /TRIMEX/ ECPT(1) ,ISILS(4) ,MID ,THICK ,FMU , 1 CSID(4,4),ELTEMP ,F12(2) COMMON /MATIN / MATID ,INFLAG ,TEMP ,STRESS ,SINTH , 1 COSTH COMMON /MATOUT/ E1 ,G ,NU ,RHO ,ALPHA , 1 TO1 ,GE ,SIGMAT ,SIGMAC ,SIGMAS COMMON /SSGWRK/ VEC(3,4) ,XL(4) ,DIAG1(3) ,DIAG2(3),TI(16) , 1 PA ,TSQ ,VECA(3) ,VECB(3) ,AREA , 2 VMAG ,I ,J ,IA ,IB , 3 I12 ,TBAR ,IN COMMON /ZZZZZZ/ PG(1) EQUIVALENCE (NCSID,CSID) C F12(1) = 1.00 F12(2) = 1.00 C IF (F12(1).EQ.0.0 .AND. F12(2).EQ.0.0) RETURN C C MATERIAL DATA ACQUISITION C INFLAG = 1 MATID = MID TEMP = ELTEMP CALL MAT (ECPT(1)) C C GRID POINT TEMPERATURES C IF (ITEMP) 100,800,100 100 CALL SSGETD (ECPT(1),TI,4) C C ELEMENT DEFORMATION (NOT USED) C C 4 NORMALIZED EDGE VECTORS AND LENGTHS C DO 300 I = 1,4 IGRID2 = I + 1 IF (I .EQ. 4) IGRID2 = 1 C DO 210 J = 1,3 VEC(J,I) = CSID(J+1,I) - CSID(J+1,IGRID2) 210 CONTINUE C CALL NORM (VEC(1,I),XL(I)) 300 CONTINUE C IF (F12(1).GT.1.01 .AND. F12(2).GT.1.01) GO TO 500 C C PROJECTED AREA IS NEEDED. FIRST OBTAIN THE DIAGONAL VECTORS. C DO 400 I = 1,3 DIAG1(I) = CSID(I+1,3) - CSID(I+1,1) DIAG2(I) = CSID(I+1,4) - CSID(I+1,2) 400 CONTINUE C C NORMAL VECTOR (DIAG1 X DIAG2) C CALL SAXB (DIAG1,DIAG2,DIAG2) CALL NORM (DIAG2,VKL) PA = 0.5*VKL C C LOOP THROUGH LOADS ON 4 EDGES. C 500 TSQ = THICK*THICK DO 700 I = 1,4 I12 = MOD(I,2) IF (I12 .EQ. 0) I12 = 2 IA = I IB = IA + 1 IF (I .EQ. 4) IB = 1 C C TEMPERATURE C TBAR = (TI(IA+1) + TI(IB+1))/2.0 - TO1 C C EXTENSIONAL AREA C IF (F12(I12) .LE. 1.01) GO TO 550 AREA = 0.50*F12(I12)*TSQ GO TO 560 550 AREA = F12(I12)*PA*THICK/(XL(I12) + XL(I12+2)) C 560 VMAG = E1*AREA*ALPHA*TBAR DO 570 J = 1,3 VECA(J) = VMAG*VEC(J,I) VECB(J) =-VECA(J) 570 CONTINUE C IF (NCSID(1,IB)) 580,590,580 580 CALL BASGLB (VECB(1),VECB(1),ISILS(IB),CSID(1,IB)) 590 IN = ISILS(IB) - 1 DO 610 J = 1,3 IN = IN + 1 PG(IN) = PG(IN) + VECB(J) 610 CONTINUE C IF (NCSID(1,IA)) 620,630,620 620 CALL BASGLB (VECA(1),VECA(1),ISILS(IA),CSID(1,IA)) 630 IN = ISILS(IA) - 1 DO 640 J = 1,3 IN = IN + 1 PG(IN) = PG(IN) + VECA(J) 640 CONTINUE C 700 CONTINUE 800 RETURN END ================================================ FILE: mis/tspl1d.f ================================================ SUBROUTINE TSPL1D (TS1,TS2,TS6,TS6S,TS7,KTR3,KTR31) C C TRANSVERSE SHEAR ROUTINE1 FOR CTRPLT1 - DOUBLE PRECISION VERSION C DOUBLE PRECISION GS1(4),GE1(9),BE(7),GA(7),WT(7),CONS(2) DOUBLE PRECISION KTR3(400),KTR31(400) DOUBLE PRECISION TS6(40),TS1(60),TS6S(40),TS2(60),TS7(60) DOUBLE PRECISION THK,A11,A12,A13,A14,A15,A16,A21,A22,A23,A24,A25, 1 A26,A31,A32,A33,A34,A35,A36,A37 2, CONS1,CONS11,CONS14 REAL J11,J12,J22 COMMON /SMA1IO/ X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3 COMMON /MATOUT/ EM(6),DUM6(9),RJ11,RJ12,RJ22 DATA BE /0.33333333333333333333D0,0.47014206D0, 1 0.05971588D0,0.47014206D0,0.101286505D0,0.79742699D0, 2 0.101286505D0/, GA /0.33333333333333333333D0, 3 2*0.47014206D0,0.05971588D0,2*0.101286505D0,0.79742699D0/, 4 WT /0.1125D0,3*0.066197075D0,3*0.06296959D0/ CONS(1)=DISTA*DISTC CONS(2)=DISTB*DISTC DO 104 I=1,60 TS1(I)=0.0D0 104 CONTINUE DO 150 K=1,7 DO 145 KASE=1,2 IF (KASE.EQ.1) X=BE(K)*DISTA IF (KASE.EQ.2) X=-BE(K)*DISTB Y=GA(K)*DISTC CALL TSPL3D (TS6) CONS1=WT(K)*CONS(KASE) THK=A1+A2*X+A3*Y CONS14=CONS1*THK GS1(1)=RJ11*CONS14 GS1(2)=RJ12*CONS14 GS1(3)=GS1(2) GS1(4)=RJ22*CONS14 CONS11=CONS1*THK**3/12.0D0 THK1=THK**3/12.0D0 D11=EM(1)*THK1 D12=EM(2)*THK1 D13=EM(3)*THK1 D22=EM(4)*THK1 D23=EM(5)*THK1 D33=EM(6)*THK1 D21=D12 D31=D13 D32=D23 J11=1.0/(EM(6)*THK) J22=J11 J12=0.0 A11=-(J11*D11+J12*D13) A12=-(J11*D12+J12*D23) A13=-(J11*D13+J12*D33) A14=-(J11*D31+J12*D21) A15=-(J11*D32+J12*D22) A16=-(J11*D33+J12*D23) A21=-(J12*D11+J22*D13) A22=-(J12*D12+J22*D23) A23=-(J12*D13+J22*D33) A24=-(J12*D13+J22*D12) A25=-(J12*D23+J22*D22) A26=-(J12*D33+J22*D32) A31=A14+2.0*A13 A32=A12+2.0*A16 A33=A24+2.0*A23 A34=A22+2.0*A26 A35=A33+A11 A36=A34+A31 A37=A25+A32 GE1(1)=EM(1)*CONS11 GE1(2)=EM(2)*CONS11 GE1(3)=EM(3)*CONS11 GE1(4)=GE1(2) GE1(5)=EM(4)*CONS11 GE1(6)=EM(5)*CONS11 GE1(7)=GE1(3) GE1(8)=GE1(6) GE1(9)=EM(6)*CONS11 C C (B1) REFERS TO BENDING STRAIN DUE TO SECOND DERIVATIVES OF W C (B2) REFERS TO BENDING STRAINS DUE TO TRANSVERSE SHEAR STRAIN C (GAMMA) TRANSPOSE (GS) * (GAMMA) IS CONTRIBUTION OF STIFFNESS C MATRIX DUE TO WORK DONE BY SHEARING FORCES UNDERGOING SHEAR DEF C C C GAMMA TRANSPOSE GS GAMMA C CALL GMMATD (TS6,2,20,+1,GS1,2,2,0,TS6S) CALL GMMATD (TS6S,20,2,-2,TS6,2,20,0,KTR3) TS1(31) =-24.0*A11 TS1(33) =-24.0*A21 TS1(34) =-6.0*A31 TS1(35) =-6.0*A21 TS1(36) =-6.0*A35 TS1(37) =-4.0*A32 TS1(38) =-4.0*A33 TS1(39) =-4.0*A36 TS1(40) =-6.0*A15 TS1(41) =-6.0*A34 TS1(42) =-6.0*A37 TS1(44) =-24.0*A25 TS1(45) =-24.0*A15 TS1(46) =-120.0*A11*X TS1(48) =-120.0*A21*X TS1(49) =-12.0*(A32*X+A31*Y) TS1(50) =-12.0*(A33*X+A21*Y) TS1(51) =-12.0*(A36*X+A35*Y) TS1(52) =-12.0*(A15*X+A32*Y) TS1(53) =-12.0*(A34*X+A33*Y) TS1(54) =-12.0*(A37*X+A36*Y) TS1(55) =-24.0*A15*Y TS1(56) =-24.0*(A25*X+A34*Y) TS1(57) =-24.0*(A15*X+A37*Y) TS1(59) =-120.0*A25*Y TS1(60) =-120.0*A15*Y C C B2 TRANSPOSE D B2 C CALL GMMATD (TS1,20,3,0,GE1,3,3,0,TS2) CALL GMMATD (TS2,20,3,-2,TS1,20,3,+1,KTR3) C C B2 TRANSPOSE D B1 C CALL TSPL2D (TS7) CALL GMMATD (TS2,20,3, 0,TS7,3,20, 0,KTR31) C C B1 TRANSPOSE D B2 C DO 120 I=1,20 DO 120 J=1,20 IJ=(I-1)*20+J JI=(J-1)*20+I KTR3(IJ)=KTR3(IJ)+KTR31(IJ)+KTR31(JI) 120 CONTINUE 145 CONTINUE 150 CONTINUE RETURN END ================================================ FILE: mis/tspl1s.f ================================================ SUBROUTINE TSPL1S (TS1,TS2,TS6,TS6S,TS7,KTR3,KTR31) C C TRANSVERSE SHEAR ROUTINE1 FOR CTRPLT1 - SINGLE PRECISION VERSION C REAL KTR3,KTR31 REAL J11,J12,J22 DIMENSION KTR3(400),KTR31(400),TS1(60),TS2(60),TS6(40),TS6S(40) 1, TS7(60),GS1(4),GE1(9),BE(7),GA(7),WT(7),CONS(2) COMMON /SMA1IO/ X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3 COMMON /MATOUT/ EM(6),DUM6(9),RJ11,RJ12,RJ22 C DATA BE /0.33333333333333E0,0.47014206E0, 1 0.05971588E0,0.47014206E0,0.101286505E0,0.79742699E0, 2 0.101286505E0/, GA /0.33333333333333E0, 3 2*0.47014206E0,0.05971588E0,2*0.101286505E0,0.79742699E0/, 4 WT /0.1125E0,3*0.066197075E0,3*0.06296959E0/ CONS(1)=DISTA*DISTC CONS(2)=DISTB*DISTC DO 104 I=1,60 TS1(I)=0.0E0 104 CONTINUE DO 150 K=1,7 DO 145 KASE=1,2 IF (KASE.EQ.1) X=BE(K)*DISTA IF (KASE.EQ.2) X=-BE(K)*DISTB Y=GA(K)*DISTC CALL TSPL3S (TS6) CONS1=WT(K)*CONS(KASE) THK=A1+A2*X+A3*Y CONS14=CONS1*THK GS1(1)=RJ11*CONS14 GS1(2)=RJ12*CONS14 GS1(3)=GS1(2) GS1(4)=RJ22*CONS14 THK1=THK**3/12.0E0 CONS11=CONS1*THK1 D11=EM(1)*THK1 D12=EM(2)*THK1 D13=EM(3)*THK1 D22=EM(4)*THK1 D23=EM(5)*THK1 D33=EM(6)*THK1 D21=D12 D31=D13 D32=D23 J11=1.0/(EM(6)*THK) J22=J11 J12=0.0 A11=-(J11*D11+J12*D13) A12=-(J11*D12+J12*D23) A13=-(J11*D13+J12*D33) A14=-(J11*D31+J12*D21) A15=-(J11*D32+J12*D22) A16=-(J11*D33+J12*D23) A21=-(J12*D11+J22*D13) A22=-(J12*D12+J22*D23) A23=-(J12*D13+J22*D33) A24=-(J12*D13+J22*D12) A25=-(J12*D23+J22*D22) A26=-(J12*D33+J22*D32) A31=A14+2.0*A13 A32=A12+2.0*A16 A33=A24+2.0*A23 A34=A22+2.0*A26 A35=A33+A11 A36=A34+A31 A37=A25+A32 GE1(1)=EM(1)*CONS11 GE1(2)=EM(2)*CONS11 GE1(3)=EM(3)*CONS11 GE1(4)=GE1(2) GE1(5)=EM(4)*CONS11 GE1(6)=EM(5)*CONS11 GE1(7)=GE1(3) GE1(8)=GE1(6) GE1(9)=EM(6)*CONS11 C C (B1) REFERS TO BENDING STRAIN DUE TO SECOND DERIVATIVES OF W C (B2) REFERS TO BENDING STRAINS DUE TO TRANSVERSE SHEAR STRAIN C (GAMMA) TRANSPOSE (GS) * (GAMMA) IS CONTRIBUTION OF STIFFNESS C MATRIX DUE TO WORK DONE BY SHEARING FORCES UNDERGOING SHEAR DEF C C C GAMMA TRANSPOSE GS GAMMA C CALL GMMATS (TS6,2,20,+1,GS1,2,2,0,TS6S) CALL GMMATS (TS6S,20,2,-2,TS6,2,20,0,KTR3) TS1(31) =-24.0*A11 TS1(33) =-24.0*A21 TS1(34) =-6.0*A31 TS1(35) =-6.0*A21 TS1(36) =-6.0*A35 TS1(37) =-4.0*A32 TS1(38) =-4.0*A33 TS1(39) =-4.0*A36 TS1(40) =-6.0*A15 TS1(41) =-6.0*A34 TS1(42) =-6.0*A37 TS1(44) =-24.0*A25 TS1(45) =-24.0*A15 TS1(46) =-120.0*A11*X TS1(48) =-120.0*A21*X TS1(49) =-12.0*(A32*X+A31*Y) TS1(50) =-12.0*(A33*X+A21*Y) TS1(51) =-12.0*(A36*X+A35*Y) TS1(52) =-12.0*(A15*X+A32*Y) TS1(53) =-12.0*(A34*X+A33*Y) TS1(54) =-12.0*(A37*X+A36*Y) TS1(55) =-24.0*A15*Y TS1(56) =-24.0*(A25*X+A34*Y) TS1(57) =-24.0*(A15*X+A37*Y) TS1(59) =-120.0*A25*Y TS1(60) =-120.0*A15*Y C C B2 TRANSPOSE D B2 C CALL GMMATS (TS1,20,3,0,GE1,3,3,0,TS2) CALL GMMATS (TS2,20,3,-2,TS1,20,3,+1,KTR3) C C B2 TRANSPOSE D B1 C CALL TSPL2S (TS7) CALL GMMATS (TS2,20,3, 0,TS7,3,20, 0,KTR31) C C B1 TRANSPOSE D B2 C DO 120 I=1,20 DO 120 J=1,20 IJ=(I-1)*20+J JI=(J-1)*20+I KTR3(IJ)=KTR3(IJ)+KTR31(IJ)+KTR31(JI) 120 CONTINUE 145 CONTINUE 150 CONTINUE RETURN END ================================================ FILE: mis/tspl2d.f ================================================ SUBROUTINE TSPL2D (TS7) C C TRANSVERSE SHEAR ROUTINE2 FOR CTRPLT1 - DOUBLE PRECISION VERSION C DOUBLE PRECISION TS7(60) COMMON /SMA1IO/ X,Y DO 105 I=1,60 TS7(I)=0.0D0 105 CONTINUE X2=X*X XY=X*Y Y2=Y*Y X3=X2*X X2Y=X2*Y XY2=X*Y2 Y3=Y2*Y TS7( 4)=2.0 TS7( 7)=6.0*X TS7( 8)=2.0*Y TS7( 11)=12.0*X2 TS7( 12)=6.0*XY TS7( 13)=2.0*Y2 TS7( 16)=20.0*X3 TS7( 17)=6.0*XY2 TS7( 18)=2.0*Y3 TS7( 26)=2.0 TS7( 29)=2.0*X TS7( 30)=6.0*Y TS7( 33)=2.0*X2 TS7( 34)=TS7(12) TS7( 35)=12.0*Y2 TS7( 37)=2.0*X3 TS7( 38)=6.0*X2Y TS7( 39)=12.0*XY2 TS7( 40)=20.0*Y3 TS7( 45)=2.0 TS7( 48)=4.0*X TS7( 49)=4.0*Y TS7( 52)=6.0*X2 TS7( 53)=8.0*XY TS7( 54)=6.0*Y2 TS7( 57)=12.0*X2Y TS7( 58)=TS7(39) TS7( 59)=8.0*Y3 RETURN END ================================================ FILE: mis/tspl2s.f ================================================ SUBROUTINE TSPL2S (TS7) C C TRANSVERSE SHEAR ROUTINE2 FOR CTRPLT1 - SINGLE PRECISION VERSION C DIMENSION TS7(60) COMMON /SMA1IO/ X,Y DO 105 I=1,60 TS7(I)=0.0 105 CONTINUE X2=X*X XY=X*Y Y2=Y*Y X3=X2*X X2Y=X2*Y XY2=X*Y2 Y3=Y2*Y TS7( 4)=2.0 TS7( 7)=6.0*X TS7( 8)=2.0*Y TS7( 11)=12.0*X2 TS7( 12)=6.0*XY TS7( 13)=2.0*Y2 TS7( 16)=20.0*X3 TS7( 17)=6.0*XY2 TS7( 18)=2.0*Y3 TS7( 26)=2.0 TS7( 29)=2.0*X TS7( 30)=6.0*Y TS7( 33)=2.0*X2 TS7( 34)=TS7(12) TS7( 35)=12.0*Y2 TS7( 37)=2.0*X3 TS7( 38)=6.0*X2Y TS7( 39)=12.0*XY2 TS7( 40)=20.0*Y3 TS7( 45)=2.0 TS7( 48)=4.0*X TS7( 49)=4.0*Y TS7( 52)=6.0*X2 TS7( 53)=8.0*XY TS7( 54)=6.0*Y2 TS7( 57)=12.0*X2Y TS7( 58)=TS7(39) TS7( 59)=8.0*Y3 RETURN END ================================================ FILE: mis/tspl3d.f ================================================ SUBROUTINE TSPL3D (TS6) C C TRANSVERSE SHEAR ROUTINE3 FOR CTRPLT1 - DOUBLE PRECISION VERSION C DOUBLE PRECISION TS6(40) DOUBLE PRECISION A11,A12,A13,A14,A15,A16,A21,A22,A23,A24, 1 A25,A26,A31,A32,A33,A34,A35,A36,A37,THK 2, X2,XY,Y2,A38,A39,A40,A41 REAL J11,J12,J22 COMMON /MATOUT/ EM(6),DUM(12) COMMON /SMA1IO/ X,Y,DUM2(4), 1 A1, A2, A3, AA1, AA2, AA3 DO 105 I=1,40 TS6(I)=0.0D0 105 CONTINUE THK=A1+A2*X+A3*Y THK1=THK**3/12.0D0 D11=EM(1)*THK1 D12=EM(2)*THK1 D13=EM(3)*THK1 D22=EM(4)*THK1 D23=EM(5)*THK1 D33=EM(6)*THK1 D21=D12 D31=D13 D32=D23 THKTS=AA1+AA2*X+AA3*Y J11=1.0/(EM(6)*THKTS) J22=J11 J12=0.0 A11=-(J11*D11+J12*D13) A12=-(J11*D12+J12*D23) A13=-(J11*D13+J12*D33) A14=-(J11*D31+J12*D21) A15=-(J11*D32+J12*D22) A16=-(J11*D33+J12*D23) A21=-(J12*D11+J22*D13) A22=-(J12*D12+J22*D23) A23=-(J12*D13+J22*D33) A24=-(J12*D13+J22*D12) A25=-(J12*D23+J22*D22) A26=-(J12*D33+J22*D32) A31=A14+2.0*A13 A32=A12+2.0*A16 A33=A24+2.0*A23 A34=A22+2.0*A26 A35=A33+A11 A36=A34+A31 A37=A25+A32 X2=X*X XY=X*Y Y2=Y*Y A38=A13+A14 A39=A12+A16 A40=A23+A24 A41=A22+A26 TS6( 7)=6.0*A11 TS6( 8)=2.0*A31 TS6( 9)=2.0*A32 TS6(10)=6.0*A15 TS6(11)=24.0*A11*X TS6(12)=6.0*(A31*X+A11*Y) TS6(13)=4.0*(A32*X+A31*Y) TS6(14)=6.0*(A15*X+A32*Y) TS6(15)=24.0*A15*Y TS6(16)=120.0*(-A11*A11-A13*A21+0.5*A11*X2) TS6(17)=12.0*(-A11*A32-A13*A34-A38*A31-A39*A33-A16*A11-A15*A21) 1 +6.0*(A32*X2+2.0*A31*XY+A11*Y2) TS6(18)=12.0*(-A11*A15-A13*A25-A38*A32-A39*A34-A16*A31-A15*A33) 1 +6.0*(A15*X2+2.0*A32*XY+A31*Y2) TS6(19)=24.0*(-A39*A25-A16*A32-A15*A34+A15*XY+0.5*A32*Y2-A38*A15) TS6(20)=-120.0*(A16*A15+A15*A25-0.5*A15*Y2) TS6(27)=6.0*A21 TS6(28)=2.0*A33 TS6(29)=2.0*A34 TS6(30)=6.0*A25 TS6(31)=24.0*A21*X TS6(32)=6.0*(A33*X+A21*Y) TS6(33)=4.0*(A34*X+A33*Y) TS6(34)=6.0*(A25*X+A34*Y) TS6(35)=24.0*A25*Y TS6(36)=120.0*(-A21*A11-A23*A21+0.5*A21*X2) TS6(37)=12.0*(-A21*A32-A23*A34-A40*A31-A41*A33-A26*A11-A25*A21) 1 +6.0*(A34*X2+2.0*A33*XY+A21*Y2) TS6(38)=12.0*(-A21*A15-A23*A25-A40*A32-A41*A34-A26*A31-A25*A33) 1 +6.0*(A25*X2+2.0*A34*XY+A33*Y2) TS6(39)=24.0*(-A41*A25-A26*A32-A25*A34+A25*XY+0.5*A34*Y2-A40*A15) TS6(40)=-120.0*(A26*A15+A25*A25-0.5*A25*Y2) RETURN END ================================================ FILE: mis/tspl3s.f ================================================ SUBROUTINE TSPL3S (TS6) C C TRANSVERSE SHEAR ROUTINE3 FOR CTRPLT1 - SINGLE PRECISION VERSION C REAL J11,J12,J22 DIMENSION TS6(40) COMMON /MATOUT/ EM(6),DUM(12) COMMON /SMA1IO/ X,Y,DUM2(4), 1 A1, A2, A3, AA1, AA2, AA3 C DO 105 I=1,40 TS6(I)=0.0E0 105 CONTINUE THK=A1+A2*X+A3*Y THK1=THK**3/12.0E0 D11=EM(1)*THK1 D12=EM(2)*THK1 D13=EM(3)*THK1 D22=EM(4)*THK1 D23=EM(5)*THK1 D33=EM(6)*THK1 D21=D12 D31=D13 D32=D23 THKTS=AA1+AA2*X+AA3*Y J11=1.0/(EM(6)*THKTS) J22=J11 J12=0.0 A11=-(J11*D11+J12*D13) A12=-(J11*D12+J12*D23) A13=-(J11*D13+J12*D33) A14=-(J11*D31+J12*D21) A15=-(J11*D32+J12*D22) A16=-(J11*D33+J12*D23) A21=-(J12*D11+J22*D13) A22=-(J12*D12+J22*D23) A23=-(J12*D13+J22*D33) A24=-(J12*D13+J22*D12) A25=-(J12*D23+J22*D22) A26=-(J12*D33+J22*D32) A31=A14+2.0*A13 A32=A12+2.0*A16 A33=A24+2.0*A23 A34=A22+2.0*A26 A35=A33+A11 A36=A34+A31 A37=A25+A32 X2=X*X XY=X*Y Y2=Y*Y A38=A13+A14 A39=A12+A16 A40=A23+A24 A41=A22+A26 TS6( 7)=6.0*A11 TS6( 8)=2.0*A31 TS6( 9)=2.0*A32 TS6(10)=6.0*A15 TS6(11)=24.0*A11*X TS6(12)=6.0*(A31*X+A11*Y) TS6(13)=4.0*(A32*X+A31*Y) TS6(14)=6.0*(A15*X+A32*Y) TS6(15)=24.0*A15*Y TS6(16)=120.0*(-A11*A11-A13*A21+0.5*A11*X2) TS6(17)=12.0*(-A11*A32-A13*A34-A38*A31-A39*A33-A16*A11-A15*A21) 1 +6.0*(A32*X2+2.0*A31*XY+A11*Y2) TS6(18)=12.0*(-A11*A15-A13*A25-A38*A32-A39*A34-A16*A31-A15*A33) 1 +6.0*(A15*X2+2.0*A32*XY+A31*Y2) TS6(19)=24.0*(-A39*A25-A16*A32-A15*A34+A15*XY+0.5*A32*Y2-A38*A15) TS6(20)=-120.0*(A16*A15+A15*A25-0.5*A15*Y2) TS6(27)=6.0*A21 TS6(28)=2.0*A33 TS6(29)=2.0*A34 TS6(30)=6.0*A25 TS6(31)=24.0*A21*X TS6(32)=6.0*(A33*X+A21*Y) TS6(33)=4.0*(A34*X+A33*Y) TS6(34)=6.0*(A25*X+A34*Y) TS6(35)=24.0*A25*Y TS6(36)=120.0*(-A21*A11-A23*A21+0.5*A21*X2) TS6(37)=12.0*(-A21*A32-A23*A34-A40*A31-A41*A33-A26*A11-A25*A21) 1 +6.0*(A34*X2+2.0*A33*XY+A21*Y2) TS6(38)=12.0*(-A21*A15-A23*A25-A40*A32-A41*A34-A26*A31-A25*A33) 1 +6.0*(A25*X2+2.0*A34*XY+A33*Y2) TS6(39)=24.0*(-A41*A25-A26*A32-A25*A34+A25*XY+0.5*A34*Y2-A40*A15) TS6(40)=-120.0*(A26*A15+A25*A25-0.5*A25*Y2) RETURN END ================================================ FILE: mis/ttlpge.f ================================================ SUBROUTINE TTLPGE (TOPT) C C INTEGER IDATE(3),CARD(20),TOPT,FCHAR CHARACTER MCHTTL*28,VN*15,MCHNAM*11,MACHOS*7 COMMON /CHMACH/ MCHNAM, MACHOS COMMON /MACHIN/ MACHX COMMON /SYSTEM/ KSYSTM(100) COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (KSYSTM( 2),NOUT), (KSYSTM(42),IDATE(1)), 1 (KSYSTM( 9),NLPP), (KSYSTM(11), IPAGE), 2 (KSYSTM(91),LPCH) C C ASSEMBLE MCHTTL AND VN LINE C MCHTTL = ' ' VN = ' ' NCMNAM = INDEX(MCHNAM,' ') - 1 IF (NCMNAM .LE. -1) NCMNAM = 11 NCMOS = INDEX(MACHOS,' ') - 1 IF (NCMOS .LE. -1) NCMOS = 7 FCHAR = (11 - NCMNAM)/2 + 1 MCHTTL(FCHAR:FCHAR+NCMNAM+16) = MCHNAM(1:NCMNAM) // 1 ' COMPUTER SYSTEMS' FCHAR = (7 - NCMOS)/2 + 1 VN(FCHAR:FCHAR+NCMOS+7) = MACHOS(1:NCMOS) // ' VERSION' C C SET TOPT DEFAULT TO +2 FOR THE MAIN FRAMES, OR TO -1 FOR UNIX C BASE WORKSTATION C IF (TOPT .NE. -9) GO TO 1 TOPT = +2 IF (MACHX.GE.6 .AND. MACHX.LE.11) TOPT = -1 1 CONTINUE C C BRANCH ON OPTION C C TOPT = 1, PRINT ONE NASTRAN LOGO TITLE PAGE C = 2, PRINT TWO NASTRAN LOGO TITLE PAGES C = 3, PRINT DUMMY MESSAGE AND ONE SHORT TITLE PAGE C = 4, READ AND PRINT ONE LINE USER INPUT CARD AND PRINT ONE C NASTRAN SHORT TITLE PAGE C = 0, OR .GE.5, NO TITLE PAGE PRINTED C = NEGATIVE INTEGER, PRINT ONE NASTRAN SHORT TITLE PAGE C 5 IF (TOPT.NE.2 .AND. TOPT.NE.1) GO TO 110 C C TOPT = 1, OR 2 C DO 100 I = 1,TOPT IF (IPAGE.LE.0 .OR. I.EQ.2) WRITE (NOUT,10) IF (NLPP .GT. 48) WRITE (NOUT,20) WRITE (NOUT,30) MCHTTL,VN WRITE (NOUT,50) WRITE (NOUT,60) IDATE(2),IDATE(3) WRITE (NOUT,70) WRITE (NOUT,75) WRITE (NOUT,80) WRITE (NOUT,85) WRITE (NOUT,90) WRITE (NOUT,95) 10 FORMAT (1H1) 20 FORMAT (///) 30 FORMAT (34X,17(1HM), 2 /28X,29(1HM), 3 /25X,35(1HM), 4 /22X,20(1HM),1X,20(1HM),22X,1H/,6X,A28, 5 /20X,45(1HM),18X,2H//,9X,A20) 40 FORMAT (1H+,93X,A4,10H VERSION -,I5,1HK) 50 FORMAT (18X,16(1HM),2X,31(1HM),14X,3H///, 7 /16X,53(1HM),10X,4(1H/), 8 /14X,13(1HM),9X,35(1HM),6X,5(1H/)) 60 FORMAT (13X,12(1HM),2X, 9(1HM),2X,34(1HM),3X, 6(1H/),9X, * 3X,18HSYSTEM RELEASE - , A3,A2,4H ED.) 70 FORMAT (12X,12(1HM),1X,13(1HM),3X,15(1HM),2X,15(1HM),6(1H/), 1 /11X,12(1HM),1X,17(1HM),2X,28(1HM),6(1H/), 2 /10X,13(1HM),1X,19(1HM),2X,24(1HM),6(1H/), 3 /9X,5(1HM),2X,7(1HM),1X,13(1HM),1X,7(1HM),2X,19(1HM),8(1H/) *, 2HMM, 4 /9X,14(1HM),1X,23(1HM),2X,14(1HM),8(1H/),1H-,4(1HM), * 43X,1H*,1X,1H*,1X,1H*, 5 /8X,16(1HM),1X,24(1HM),1X,9(1HM),9(1H/),2H--,7(1HM), * 41X,1H*,5X,1H*) 75 FORMAT (8X,16(1HM),1X,25(1HM),2X,4(1HM),10(1H/),2H--,9(1HM), * 41X,1H*,2X,1HR,2X,1H*, 7 /8X,16(1HM),1X,27(1HM),1X,1HM,8(1H/),4HMM--,11(1HM), * 41X,1H*,5X,1H*, 8 /7X,8(1HM),4X,6(1HM),4X,5(1HM),5X,10(1HM),8X,4H//MM,11X, * 2HMM,3X,6(1HM),7X,5(1HM),8X,4(1HM),6X,4(1HM),2X,1H*,1X,1H*, * 1X,1H*, 9 /7X,9(1HM),4X,6(1HM),2X,7(1HM),4X,6(1HM),14H/// /// M M, * 25HM- MMM MMM MMM M MMM,7X,4(1HM),9X,4(1HM),6X,2HMM) 80 FORMAT (7X,9(1HM),5X,5(1HM),2X,6(1HM),3H M,3X,8(1H/),3X,4(1HM), * 5H MM--,5(1HM),3X,7(1HM),21H M MMM MM MMM,8X, * 5(1HM),5X,2HMM, 1 /7X,9(1HM),2X,1HM,4X,5HMMM ,4(1HM),6H// ///,3X,5(1H/), * 13HMMM MMMM-- ,6(1HM),3X,7(1HM),41H M MMM M MMM * MM MMMM MM, 2 /7X,9(1HM),2X,2HMM,4X,2HMM,3X,4(1H/),2X,3H///,4X,8(1HM), * 4X,4H--M ,7(1HM),3X,7(1HM),2X,1HM,3X,3HMMM,5X,2HMM,3X, * 4(1HM),6X,2HMM,2X,4(1HM),2X,2HMM) 85 FORMAT (7X,9(1HM),2X,4(1HM),6X,11H/ /// ///MM,4X,8(1HM),4H---M, * 4X,6(1HM),3X,7(1HM),2X,6(1HM),6X,1HM,5X,4(1HM),5X,2HMM, * 4X,6(1HM), 4 /7X,9(1HM),2X,5(1H/),5X,4H// M,11X,6(1HM),3H---,4(1HM),4X, * 5(1HM),3X,7(1HM),7H M MMM,6X,11(1HM),5X,2HMM,5X,5(1HM), 5 /7X,2HMM,7(1H/),2X,6(1HM),4X,3HMMM,2X,7(1HM),4X,7HMMM----, * 4HMMMM,4X,6HM MMMM,3X,7(1HM),8H M MMM,4X,2HMM,7X, * 4(1HM),4X,2HMM,6X,4(1HM), 6 /5X,4(1H/),6(1HM),4X,7(1HM),2X,2HMM,4X,5(1HM),5X,5H----M, * 9X,6HMM MMM,5X,5(1HM),3X,2HMM,3X,2HMM,2X,4(1HM),5X, * 6(1HM),2X,4(1HM),7X,2HMM) 90 FORMAT (3X,2H//,3X,26(1HM),1X,6(1HM),4(1H-),16(1HM),1X,15(1HM), * 6X,3HMMM, 8 /8X, 27(1HM),7H MM----,19(1HM),1X,15(1HM), 9 /8X, 27(1HM),3H---,23(1HM),1X,15(1HM), O /9X, 24(1HM),7H---MM ,22(1HM),1X,13(1HM), 1 /9X, 22(1HM),2H--,6(1HM),4X,19(1HM),1X,5(1HM),2X,6(1HM), 2 /10X,19(1HM),3H---,7(1HM),4X,19(1HM),1X,12(1HM), 3 /11X, 9(1HM),1X,6(1HM),2H--, 33(1HM), 1X, 11(1HM), 4 /12X,13(1HM),3H---,33(1HM),1X,11(1HM)) 95 FORMAT (13X,11(1HM),2H--, 22(1HM),2X, 9(1HM), 2X, 11(1HM), 6 /14X, 8(1HM),2H--,26(1HM), 9X,12(1HM), 7 /16X, 5(1HM),2H--,46(1HM),24X,14HDISTRIBUTED BY, 8 /18X, 4HMM--,13(1HM),2X,30(1HM), 9 /19X, 1H-, 45(1HM),5X, * 51HCOMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER, * 9H (COSMIC), O /18X,1H-,3X,41(1HM),26X,22HUNIVERSITY OF GEORGIA, 1 /17X,1H-,7X,35(1HM),29X,22HATHENS, GEORGIA 30602, 2 /28X,29(1HM), 3 /1X,14X, 4 19X,17(1HM),28X,40HPHONE: (706)542-3265 FAX: (706)542-480 5 ,1H7) 100 CONTINUE GO TO 240 C 110 IF (TOPT ) 160,240,120 120 IF (TOPT-4) 130,210,240 C C TOPT = 3 C 130 WRITE (NOUT, 10) WRITE (NOUT,140) 140 FORMAT (' THIS COMMENT CAN BE USED TO IDENTIFY LOCAL FIXES - ', 1 'TO CHANGE, UPDATE DECK TTLPGE.') GO TO 160 C C TOPT = NEGATIVE (AND 3, AND 4) C 160 IF (IPAGE .LE. 0) CALL PAGE1 WRITE (NOUT,170) MCHTTL WRITE (NOUT,180) VN,IDATE(2),IDATE(3) WRITE (NOUT,190) 170 FORMAT (//////34X,4H****, /32X,1H*,6X,1H*, /31X,1H*,8X,1H*, 1 /31X,16H* N A S T R A N, 2 /31X,1H*,8X,1H*, /32X,1H*,6X,1H*, /34X,4H****, 3 ///25X,A28) 180 FORMAT(27X,A20,//26X,17HSYSTEM RELEASE - ,A3,A2, 4H ED.) 190 FORMAT (/32X,'DISTRIBUTED BY', //9X,'COMPUTER SOFTWARE MANAGE', 1 'MENT AND INFORMATION CENTER (COSMIC)', /17X,'UNIVERSITY ', 2 'OF GEORGIA, ATHENS, GEORGIA 30602', /17X, 3 'PHONE: (706)542-3265', 6X, 'FAX: (706)542-4807') GO TO 240 C C TOPT = 4 C 210 WRITE (NOUT,10) CALL XREAD (*240,CARD) WRITE (NOUT,220) CARD 220 FORMAT (1X,20A4) GO TO 160 C C CALL NSINFO TO PRINTOUT INSTALLATION-CENTER-TO-USER MESSAGES, C FROM THE THIRD SECTION OF THE NASINFO FILE C 240 CALL NSINFO (3) C RETURN END ================================================ FILE: mis/ttordr.f ================================================ SUBROUTINE TTORDR (TI, PG) C C C***** C THIS ROUTINE COMPUTES THE THERMAL LOAD FOR AN AXI-SYMMETRIC C TOROIDAL THIN SHELL RING C***** C C C C ECPT FOR THE TOROIDAL RING C C TYPE C ECPT( 1) ELEMENT IDENTIFICATION I C ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A I C ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B I C ECPT( 4) ANGLE OF CURVATURE AT GRID POINT A R C ECPT( 5) ANGLE OF CURVATURE AT GRID POINT B(NOT USED) R C ECPT( 6) MATERIAL ORIENTATION (NOT USED) R C ECPT( 7) MATERIAL IDENTIFICATION I C ECPT( 8) MEMBRANE THICKNESS R C ECPT( 9) FLEXURE THICKNESS R C ECPT(10) COOR. SYS. ID. FOR GRID POINT A I C ECPT(11) X-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(12) Y-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(13) Z-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(14) COOR. SYS. ID. FOR GRID POINT B I C ECPT(15) X-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(16) Y-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(17) Z-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(18) EL. TEMPERATURE FOR MATERIAL PROPERTIES R C C DIMENSION TI(2), PG(1) DIMENSION IECPT(18) DIMENSION GAMBQF(72), GAMBQM(48) DIMENSION EE(4), GAMBQ(144), GAMRS(144) DIMENSION AKI(36), DELINT(42) DIMENSION IGP(2), ICS(2) DIMENSION GAMBL(144) DIMENSION D( 36), R(2), Z(2), ALPH(2) DIMENSION FME(40), FFE(40), TL(12) C COMMON /CONDAS/ CONSTS(5) COMMON /TRIMEX/ 1 ECPT(18) COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH COMMON /MATOUT/ 1 E(3) ,ANU(3) 2, RHO ,G(3) 3, ALF(3) ,TZERO, GSUBE C EQUIVALENCE ( CONSTS(2) , TWOPI ) EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (IECPT(1) , ECPT(1)) EQUIVALENCE (A1, ALPH(1)), (A2, ALPH(2)) EQUIVALENCE (R1, R(1)), (R2, R(2)) EQUIVALENCE (Z1, Z(1)), (Z2, Z(2)) EQUIVALENCE (GAMBQM(1), GAMBQ(1)) EQUIVALENCE (GAMBQF(1), GAMBQ(49)) EQUIVALENCE (DELINT(1), GAMBQ(1)) EQUIVALENCE (FME(1), GAMBQ(43)) EQUIVALENCE (FFE(1), GAMBQ(83)) EQUIVALENCE (GAMRS(1), GAMBQ(1)) EQUIVALENCE (AKI(1), GAMBQ(1)) EQUIVALENCE (GAMBL(1), GAMBQ(1)) C C ---------------------------------------------------------------------- C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT(1) IGP(1) = IECPT(2) IGP(2) = IECPT(3) MATID = IECPT(7) ICS(1) = IECPT(10) ICS(2) = IECPT(14) ALPH(1)= ECPT(4) ALPH(2)= ECPT(5) TM = ECPT(8) TF = ECPT(9) R(1) = ECPT(11) D(1) = ECPT(12) Z(1) = ECPT(13) R(2) = ECPT(15) D(2) = ECPT(16) Z(2) = ECPT(17) TEMPE = ECPT(18) C C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C DO 200 I = 1,2 IF (R(I) .LT. 0.0E0) CALL MESAGE(-30,37,IDEL) IF (D(I) .NE. 0.0E0) CALL MESAGE(-30,37,IDEL) 200 CONTINUE C C C DETERMINE IF ELEMENT IS A TOROIDAL, CONICAL OR CYLINDRICAL RING C ITORD = 0 IF (ABS(A1-A2) .LE. .000001) ITORD = 1 IF (ITORD .EQ. 1 .AND. ABS(A1-90.0E0) .LE. .00001) ITORD = -1 C C C COMPUTE THE ELEMENT COORDINATES C A1 = A1 * DEGRA A2 = A2 * DEGRA PHIB = A2 - A1 SINA1 = SIN(A1) COSA1 = COS(A1) SINA2 = SIN(A2) COSA2 = COS(A2) C IF (ITORD .NE. 0) GO TO 300 C C FOR THE TOROIDAL RING C RP = SQRT( (R2-R1)**2 + (Z2-Z1)**2 ) 1 / (2.0E0 * SIN(PHIB/2.0E0)) S = PHIB * RP GO TO 350 C C FOR THE CONICAL OR CYLINDRICAL RING C 300 CONTINUE RP = 0.0D0 S = SQRT( (R2-R1)**2 + (Z2-Z1)**2 ) C 350 CONTINUE C C C COMPUTE THE BASIC AND REQUIRED INTEGRALS C C C SET UP ARRAY OF CONSTANTS FOR ROMBER INTEGRATION ROUTINE C D(21) = 0.0E0 D(22) = RP D(23) = R1 D(24) = COSA1 D(25) = SINA1 C C COMPUTE CONSTANTS NEEDED FOR INTEGRAL CALCULATIONS C D(30) = R1 - RP * SINA1 D(31) = RP * COSA1 D(32) = RP * SINA1 D(33) = COSA1 ** 2 D(34) = SINA1 * COSA1 D(35) = SINA1 ** 2 D(36) = 0.5 - D(35) C C START LOOP FOR CALCULATIONS OF INTEGRALS C DO 500 JP1 = 1,7 J = JP1 - 1 K = (J * 6) + 1 DJP1 = JP1 C C TEST FOR ELEMENT SHAPE C IF (ITORD) 470,400,430 C C THE TOROIDAL RING BASIC INTEGRALS WILL BE COMPUTED IN C LOCATIONS D(1),...,D(6) C 400 CONTINUE D(20) = (RP ** JP1) C C COMPUTE I(J,1) C D(1) = D(20) * (PHIB ** JP1) / DJP1 C C COMPUTE I(J,2) C D(2) = (PHIB ** (JP1+1)) / (DJP1 + 1.0E0) D(10) = 1.0E0 DO 410 I = 1,20 IP = JP1 + 2 * I + 1 D(11) = 2 * I + 1 D(10) = D(10) * D(11) * (D(11)-1.0E0) D(12) = (-1.0E0)** I * PHIB ** IP 1 / ((DJP1 + D(11)) * D(10)) D(13) = ABS( D(12) / D(2) ) D(2) = D(2) + D(12) IF (D(13) .LE. 1.0E-10) GO TO 415 410 CONTINUE CALL MESAGE(-30,26,IDEL) 415 CONTINUE D(2) = D(20) * D(2) C C COMPUTE I(J,3) C D(3) = (PHIB ** JP1) / DJP1 D(10) = 1.0E0 DO 420 I = 1,20 IP = JP1 + 2 * I D(11) = 2 * I D(10) = D(10) * D(11) * (D(11) - 1.0E0) D(12) = (-1.0E0)** I * PHIB ** IP 1 / ((DJP1 + D(11)) * D(10)) D(13) = ABS( D(12) / D(3) ) D(3) = D(3) + D(12) IF (D(13) .LE. 1.0E-10) GO TO 425 420 CONTINUE CALL MESAGE(-30,26,IDEL) 425 CONTINUE D(3) = D(20) * D(3) D(26) = DJP1 C C COMPUTE I(J,4) C CALL ROMBER (PHIB, D(10), IP, D(4), 1, D(21) ) IF (IP .GE. 15) CALL MESAGE (30,26,IDEL) D(4) = D(20) * D(4) C C COMPUTE I(J,5) C CALL ROMBER (PHIB, D(10), IP, D(5), 2, D(21) ) IF (IP .GE. 15) CALL MESAGE (30,26,IDEL) D(5) = D(20) * D(5) C C COMPUTE I(J,6) C CALL ROMBER (PHIB, D(10), IP, D(6), 3, D(21) ) IF (IP .GE. 15) CALL MESAGE (30,26,IDEL) D(6) = D(20) * D(6) C C THE TOROIDAL RING REQUIRED INTEGRALS C DELINT(K ) = D(30) * D(1) + D(31) * D(2) + D(32) * D(3) DELINT(K+1) = COSA1 * D(2) + SINA1 * D(3) DELINT(K+2) = D(33) * D(4) + D(34) * D(5) + D(35) * D(6) DELINT(K+3) = COSA1 * D(3) - SINA1 * D(2) DELINT(K+4) = D(34) * (D(6)-D(4)) + D(36) * D(5) DELINT(K+5) = D(33) * D(6) - D(34) * D(5) + D(35) * D(4) GO TO 490 C C THE CONICAL RING BASIC INTEGRALS WILL BE COMPUTED IN C LOCATIONS D(1) AND D(2) C 430 CONTINUE C C COMPUTE I(J,1) C D(1) = (S ** JP1) / DJP1 C IF (J - 1) 435,440,445 C C COMPUTE I(0,2) C 435 CONTINUE D(2) = ALOG( (R1 + S*COSA1) / R1 ) / COSA1 GO TO 460 C C COMPUTE I(1,2) C 440 CONTINUE D(2) = (S - (R1/COSA1) * ALOG( (R1 + S*COSA1) / R1 )) / COSA1 GO TO 460 C C COMPUTE I(J,2) WHERE J .GT. 1 C 445 CONTINUE D(2) = 1.0E0 / DJP1 D(10) =-S * COSA1 / R1 DO 450 I = 1,1000 D(11) = JP1 + I D(12) = (D(10) ** I) / D(11) D(2) = D(2) + D(12) IF (D(12) .LT. 1.0E-4 ) GO TO 455 450 CONTINUE CALL MESAGE(-30,26,IDEL) 455 CONTINUE D(2) = ( (S ** JP1) / R1 ) * D(2) 460 CONTINUE C C THE CONICAL RING REQUIRED INTEGRALS C DELINT(K ) = R1 * D(1) + COSA1 * ((S**(JP1+1)) / (DJP1+1.0E0)) DELINT(K+1) = SINA1 * D(1) DELINT(K+2) = D(35) * D(2) DELINT(K+3) = COSA1 * D(1) DELINT(K+4) = D(34) * D(2) DELINT(K+5) = D(33) * D(2) GO TO 490 C C THE CYLINDRICAL RING BASIC INTEGRALS WILL BE COMPUTED IN C LOCATIONS D(1) AND D(2) C 470 CONTINUE C C COMPUTE I(J,1) C D(1) = (S ** JP1) / DJP1 C C COMPUTE I(J,2) C D(2) = D(1) / R1 C C THE CYLINDRICAL RING REQUIRED INTEGRALS C DELINT(K ) = R1 * D(1) + COSA1 * ((S**(JP1+1)) / (DJP1+1.0E0)) DELINT(K+1) = SINA1 * D(1) DELINT(K+2) = D(35) * D(2) DELINT(K+3) = 0.0E0 DELINT(K+4) = 0.0E0 DELINT(K+5) = 0.0E0 C 490 CONTINUE 500 CONTINUE C C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT(IDEL) C C C SET MATERIAL PROPERTIES IN LOCAL VARIABLES C EP = E(1) ET = E(2) VPT= ANU(1) TZ = TZERO VTP= VPT * ET / EP DEL = 1.0E0 - VPT * VTP C C C GENERATE THE ELASTIC CONSTANTS MATRIX(2X2) C EE(1) = EP / DEL EE(2) = ET * VPT / DEL EE(3) = EE(2) EE(4) = ET / DEL C C C CALL THE FCURL SUBROUTINE TO FORM THE FOUR (2X10) MATRICES OF C INTEGRALS (TRANSPOSED) C C COMPUTE CONSTANTS NEEDED IN FCURL SUBROUTINE C D(1) = 0.0E0 IF (ITORD .EQ. 0) D(1) = 1.0E0 / RP C C NOTE THE DOUBLE SUBSCRIPTING USED IN FCURL SUBROUTINE IS C COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS C IS A ( 7X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING C PROGRAM AND IT IS A (6X 7) DOUBLY SUBSCRIPTED ARRAY (STORED C COLUMNWISE) IN FCURL ROUTINE. C C CALL FCURL (FME(1), FME(21), FFE(1), FFE(21), DELINT(1), S, D(1)) C D(1) = TWOPI * TM D(2) = TWOPI * (TF **3) / 12.0E0 DO 550 I = 1,40 FME(I) = D(1) * FME(I) FFE(I) = D(2) * FFE(I) 550 CONTINUE C C C FORM THE THERMAL STRAINS C DTM1 = TI(1) - TZ DTM2 = TI(2) - TI(1) DTF1 = 0.0E0 DTF2 = 0.0E0 C C THE TERMS DTF1 AND DTF2 ARE FUNCTIONS OF THE FLEXURAL GRADIENT C TEMPERATURE BUT SINCE THESE TEMPERATURES ARE NOT AVAILABLE C THE TERMS WILL BE SET TO ZERO. THEY ARE USUALLY DEFINED AS FOLLOWS, C DTF1 = TF(1) - TZ C DTF2 = TF(2) - TF(1) C WHERE TF(1) AND TF(2) ARE THE FLEXURAL GRADIENT TEMPERATURES AT C GRID POINTS 1 AND 2 RESPECTIVELY. C D(1) = DTM1 * ALF(1) D(2) = DTM1 * ALF(2) D(3) = DTM2 * ALF(1) D(4) = DTM2 * ALF(2) D(5) = DTF1 * ALF(1) D(6) = DTF1 * ALF(2) D(7) = DTF2 * ALF(1) D(8) = DTF2 * ALF(2) C C C FORM THE THERMAL LOAD IN FIELD COORDINATES C CALL GMMATS (EE(1), 2, 2, 0, D(1), 2, 1, 0, D(11) ) CALL GMMATS (EE(1), 2, 2, 0, D(3), 2, 1, 0, D(13) ) CALL GMMATS (EE(1), 2, 2, 0, D(5), 2, 1, 0, D(15) ) CALL GMMATS (EE(1), 2, 2, 0, D(7), 2, 1, 0, D(17) ) C C CALL GMMATS (FME( 1), 2,10, 1, D(11), 2, 1, 0, TL(1) ) CALL GMMATS (FME(21), 2,10,-1, D(13), 2, 1, 0, TL(1) ) CALL GMMATS (FFE( 1), 2,10,-1, D(15), 2, 1, 0, TL(1) ) CALL GMMATS (FFE(21), 2,10,-1, D(17), 2, 1, 0, TL(1) ) C C C FORM THE TRANSFORMATION MATRIX(10X12) FROM FIELD COORDINATES TO GRID C POINT DEGREES OF FREEDOM C DO 600 I = 1,72 GAMBQF(I) = 0.0E0 600 CONTINUE D(1) = S D(2) = S ** 2 D(3) = S ** 3 D(4) = S ** 4 D(5) = S ** 5 GAMBQF( 3) = 1.0E0 GAMBQF(16) = 1.0E0 GAMBQF(30) = 0.5E0 GAMBQF(39) = -10.0E0 / D(3) GAMBQF(40) = - 6.0E0 / D(2) GAMBQF(42) = - 1.5E0 / D(1) GAMBQF(45) = -GAMBQF(39) GAMBQF(46) = - 4.0E0 / D(2) GAMBQF(48) = 0.5E0 / D(1) GAMBQF(51) = 15.0E0 / D(4) GAMBQF(52) = 8.0E0 / D(3) GAMBQF(54) = 1.5E0 / D(2) GAMBQF(57) = -GAMBQF(51) GAMBQF(58) = 7.0E0 / D(3) GAMBQF(60) = - 1.0E0 / D(2) GAMBQF(63) = - 6.0E0 / D(5) GAMBQF(64) = - 3.0E0 / D(4) GAMBQF(66) = - 0.5E0 / D(3) GAMBQF(69) = -GAMBQF(63) GAMBQF(70) = GAMBQF(64) GAMBQF(72) = -GAMBQF(66) DO 650 I = 1,48 GAMBQM(I) = 0.0E0 650 CONTINUE GAMBQM( 1) = 1.0E0 GAMBQM(17) = 1.0E0 GAMBQM(25) = - 3.0E0 / D(2) GAMBQM(29) = - 2.0E0 / D(1) GAMBQM(31) = -GAMBQM(25) GAMBQM(35) = - 1.0E0 / D(1) GAMBQM(37) = 2.0E0 / D(3) GAMBQM(41) = 1.0E0 / D(2) GAMBQM(43) = -GAMBQM(37) GAMBQM(47) = GAMBQM(41) C C C TRANSFORM THE THERMAL LOAD TO GRID POINT DEGREES OF FREEDOM C CALL GMMATS(GAMBQ(1), 10, 12, 1, TL(1), 10, 1, 0, D(1) ) C C C FORM THE TRANSFORMATION MATRIX (12X12) FROM ELEMENT TO BASIC C COORDINATES C DO 700 I = 1,144 GAMRS(I) = 0.0E0 700 CONTINUE GAMRS( 1) = COSA1 GAMRS( 3) = -SINA1 GAMRS(25) = SINA1 GAMRS(27) = COSA1 GAMRS(40) = -1.0E0 GAMRS(53) = 1.0E0 GAMRS(66) = 1.0E0 GAMRS(79) = COSA2 GAMRS(81) = -SINA2 GAMRS(103)= SINA2 GAMRS(105)= COSA2 GAMRS(118)= -1.0E0 GAMRS(131)= 1.0E0 GAMRS(144)= 1.0E0 C C C C TRANSFORM THE THERMAL LOAD FROM ELEMENT TO BASIC COORDINATES C CALL GMMATS(GAMRS(1), 12, 12, 1, D(1), 12, 1, 0, TL(1) ) C C C LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL COORDINATES C FOR THE TWO GRID POINTS AND EXPAND TO (6X6) C DO 730 I = 1,144 GAMBL(I) = 0.0E0 730 CONTINUE DO 800 I = 1,2 CALL GBTRAN(ICS(I),ECPT(4*I+10),D(1)) K = 78 * (I - 1) DO 750 J = 1,3 KK = K + 12* (J-1) + 1 KL = 3 * (J-1) + 1 KJ = K + 12* (J+2) + J + 3 GAMBL(KK ) = D(KL ) GAMBL(KK+1) = D(KL+1) GAMBL(KK+2) = D(KL+2) GAMBL(KJ) = 1.0E0 750 CONTINUE 800 CONTINUE C C C C TRANSFORM THE THERMAL LOAD FROM BASIC TO LOCAL COORDINATES C CALL GMMATS (GAMBL(1), 12, 12, 1, TL(1), 12, 1, 0, D(1) ) C C C C ADD THE ELEMENT THERMAL LOAD TO THE STRUCTURE THERMAL LOAD C K = 0 DO 900 I = 1,2 L = IGP(I) - 1 DO 900 J = 1,6 K = K + 1 L = L + 1 PG(L) = PG(L) + D(K) 900 CONTINUE C C RETURN END ================================================ FILE: mis/ttrapr.f ================================================ SUBROUTINE TTRAPR (TI,PG) C C THIS ROUTINE COMPUTES THE THERMAL LOAD FOR THE TRAPEZOIDAL C CROSS SECTION RING C C ECPT FOR THE TRAPEZOIDAL RING C TYPE C ECPT( 1) ELEMENT IDENTIFICATION I C ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A I C ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B I C ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C I C ECPT( 5) SCALAR INDEX NO. FOR GRID POINT D I C ECPT( 6) MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT( 7) MATERIAL IDENTIFICATION I C ECPT( 8) COOR. SYS. ID. FOR GRID POINT A I C ECPT( 9) X-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(10) Y-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(11) Z-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(12) COOR. SYS. ID. FOR GRID POINT B I C ECPT(13) X-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(14) Y-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(15) Z-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(16) COOR. SYS. ID. FOR GRID POINT C I C ECPT(17) X-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(18) Y-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(19) Z-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(20) COOR. SYS. ID. FOR GRID POINT D I C ECPT(21) X-COOR. OF GRID POINT D (IN BASIC COOR.) R C ECPT(22) Y-COOR. OF GRID POINT D (IN BASIC COOR.) R C ECPT(23) Z-COOR. OF GRID POINT D (IN BASIC COOR.) R C ECPT(24) EL. TEMPERATURE FOR MATERIAL PROPERTIES R C C DIMENSION TI(4),PG(1),IECPT(24),D(22),GAMBQ(64),R(4),Z(4), 1 TEO(16),EE(16),DELINT(12),GAMQS(96),Q(32), 2 GAMBL(144),ALFB(4),IGP(4),ICS(4),SP(24),HPRIM(16), 3 TL(12),TS(4),JRZ(2) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /CONDAS/ CONSTS(5) COMMON /TRIMEX/ ECPT(24) COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO COMMON /SYSTEM/ IBUF,IOUT EQUIVALENCE (CONSTS(2),TWOPI),(CONSTS(4),DEGRA), 1 (IECPT(1),ECPT(1)), 2 (R(1),R1),(R(2),R2),(R(3),R3),(R(4),R4), 3 (Z(1),Z1),(Z(2),Z2),(Z(3),Z3),(Z(4),Z4), 4 (GAMBL(1),EE(1)),(GAMBL(17),TEO(1)), 5 (GAMBL(33),ALFB(1)),(GAMBL(37),TS(1)), 6 (GAMBL(41),DELINT(1)),(GAMBL(1),GAMBQ(1)), 7 (GAMBL(65),Q(1)),(GAMBL(97),HPRIM(1)), 8 (GAMBL(113),SP(1)),(GAMBL(1),GAMQS(1)) C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT( 1) IGP(1) = IECPT( 2) IGP(2) = IECPT( 3) IGP(3) = IECPT( 4) IGP(4) = IECPT( 5) MATID = IECPT( 7) ICS(1) = IECPT( 8) ICS(2) = IECPT(12) ICS(3) = IECPT(16) ICS(4) = IECPT(20) R(1) = ECPT ( 9) D(1) = ECPT (10) Z(1) = ECPT (11) R(2) = ECPT (13) D(2) = ECPT (14) Z(2) = ECPT (15) R(3) = ECPT (17) D(3) = ECPT (18) Z(3) = ECPT (19) R(4) = ECPT (21) D(4) = ECPT (22) Z(4) = ECPT (23) TEMPE = ECPT (24) DGAMA = ECPT ( 6) C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C DO 200 I = 1,4 IF (R(I) .LT. 0.0) CALL MESAGE (-30,37,IDEL) IF (D(I) .NE. 0.0) CALL MESAGE (-30,37,IDEL) 200 CONTINUE C C COMPUTE THE ELEMENT COORDINATES C ZMIN = AMIN1(Z1,Z2,Z3,Z4) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN Z4 = Z4 - ZMIN RMIN = AMIN1(R1,R2,R3,R4) RMAX = AMAX1(R1,R2,R3,R4) IF (RMIN .EQ. 0.) GO TO 206 IF (RMAX/RMIN .LE. 10.) GO TO 206 C C RATIO OF RADII IS TOO LARGE FOR GAUSS QUADRATURE FOR IP=-1 C WRITE (IOUT,205) UFM,IDEL 205 FORMAT (A23,', TRAPRG ELEMENT',I9,' HAS A MAXIMUM TO MINIMUM ', 1 'RADIUS RATIO EXCEEDING 10.'/5X,'ACCURACY OF NUMERICAL ', 2 'INTEGRATION WOULD BE IN DOUBT.') CALL MESAGE (-61,0,0) 206 CONTINUE ICORE = 0 J = 1 DO 210 I = 1,4 IF (R(I) .NE. 0.) GO TO 210 ICORE = ICORE + 1 JRZ(J) = I J = 2 210 CONTINUE IF (ICORE.NE.0 .AND. ICORE.NE.2) CALL MESAGE (-61,0,0) C C CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS C INDICATED BY THE FOLLOWING TABLE C C DELINT( 1) - ( 0,0) C DELINT( 2) - ( 0,1) C DELINT( 3) - ( 0,2) C DELINT( 4) - ( 1,0) C DELINT( 5) - ( 1,1) C DELINT( 6) - ( 1,2) C DELINT( 7) - ( 2,0) C DELINT( 8) - ( 2,1) C DELINT( 9) - ( 2,2) C DELINT(10) - ( 3,0) C DELINT(11) - ( 3,1) C I1 = 0 DO 400 I = 1,4 IP = I - 1 DO 350 J = 1,3 IQ = J - 1 I1 = I1 + 1 IF (I1 .EQ. 12) GO TO 350 DELINT(I1) = RZINTS(IP,IQ,R,Z,4) 350 CONTINUE 400 CONTINUE C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT (IDEL) C C SET MATERIAL PROPERTIES IN LOCAL VARIABLES C ER = E(1) ET = E(2) EZ = E(3) VRT = ANU(1) VTZ = ANU(2) VZR = ANU(3) GRZ = G(3) TZ = TZERO VTR = VRT*ET/ER VZT = VTZ*EZ/ET VRZ = VZR*ER/EZ DEL = 1.0 - VRT*VTR - VTZ*VZT - VZR*VRZ - VRT*VTZ*VZR 1 - VRZ*VTR*VZT C C GENERATE ELASTIC CONSTANTS MATRIX (4X4) C EE( 1) = ER*(1.0 - VTZ*VZT)/DEL EE( 2) = ER*(VTR + VZR*VTZ)/DEL EE( 3) = ER*(VZR + VTR*VZT)/DEL EE( 4) = 0.0 EE( 5) = EE(2) EE( 6) = ET*(1.0 - VRZ*VZR)/DEL EE( 7) = ET*(VZT + VRT*VZR)/DEL EE( 8) = 0.0 EE( 9) = EE(3) EE(10) = EE(7) EE(11) = EZ*(1.0 - VRT*VTR)/DEL EE(12) = 0.0 EE(13) = 0.0 EE(14) = 0.0 EE(15) = 0.0 EE(16) = GRZ C C FORM TRANSFORMATION MATRIX (4X4) FROM MATERIAL AXIS TO ELEMENT C GEOMETRIC AXIS C DGAMR = DGAMA*DEGRA COSG = COS(DGAMR) SING = SIN(DGAMR) TEO( 1) = COSG**2 TEO( 2) = 0.0 TEO( 3) = SING**2 TEO( 4) = SING*COSG TEO( 5) = 0.0 TEO( 6) = 1.0 TEO( 7) = 0.0 TEO( 8) = 0.0 TEO( 9) = TEO(3) TEO(10) = 0.0 TEO(11) = TEO(1) TEO(12) =-TEO(4) TEO(13) =-2.0*TEO(4) TEO(14) = 0.0 TEO(15) =-TEO(13) TEO(16) = TEO(1) - TEO(3) C C TRANSFORM THE ELASTIC CONSTANTS MATRIX FROM MATERIAL C TO ELEMENT GEOMETRIC AXIS C CALL GMMATS (TEO,4,4,1, EE, 4,4,0, D ) CALL GMMATS (D ,4,4,0, TEO,4,4,0, EE) C C COMPUTE THE THERMAL STRAIN VECTOR C DO 600 I = 1,3 ALFB(I) = ALF(I) 600 CONTINUE ALFB(4) = 0.0 C CALL GMMATS (EE(1),4,4,0, ALFB(1),4,1,0, TS(1)) C C FORM THE Q MATRIX (8X4) C D( 1) = TS(1) + TS(2) Q( 1) = TS(2)*DELINT(1) Q( 2) = TS(2)*DELINT(4) Q( 3) = TS(2)*DELINT(2) Q( 4) = TS(2)*DELINT(5) Q( 5) = D(1)*DELINT(4) Q( 6) = D(1)*DELINT(7) Q( 7) = D(1)*DELINT(5) Q( 8) = D(1)*DELINT(8) Q( 9) = TS(2)*DELINT(2) Q(10) = TS(2)*DELINT(5) Q(11) = TS(2)*DELINT(3) Q(12) = TS(2)*DELINT(6) Q(13) = D(1)*DELINT(5) Q(14) = D(1)*DELINT(8) Q(15) = D(1)*DELINT(6) Q(16) = D(1)*DELINT(9) DO 630 I = 17,24 Q( I) = 0.0 630 CONTINUE Q(25) = TS(3)*DELINT( 4) Q(26) = TS(3)*DELINT( 7) Q(27) = TS(3)*DELINT( 5) Q(28) = TS(3)*DELINT( 8) Q(29) = TS(3)*DELINT( 7) Q(30) = TS(3)*DELINT(10) Q(31) = TS(3)*DELINT( 8) Q(32) = TS(3)*DELINT(11) C C FORM THE TRANSFORMATION MATRIX (8X8) FROM FIELD COORDINATES TO C GRID POINT DEGREES OF FREEDOM C DO 650 I = 1,64 GAMBQ(I) = 0.0 650 CONTINUE GAMBQ( 1) = 1.0 GAMBQ( 2) = R1 GAMBQ( 3) = Z1 GAMBQ( 4) = R1*Z1 GAMBQ(13) = 1.0 GAMBQ(14) = R1 GAMBQ(15) = Z1 GAMBQ(16) = GAMBQ(4) GAMBQ(17) = 1.0 GAMBQ(18) = R2 GAMBQ(19) = Z2 GAMBQ(20) = R2*Z2 GAMBQ(29) = 1.0 GAMBQ(30) = R2 GAMBQ(31) = Z2 GAMBQ(32) = GAMBQ(20) GAMBQ(33) = 1.0 GAMBQ(34) = R3 GAMBQ(35) = Z3 GAMBQ(36) = R3*Z3 GAMBQ(45) = 1.0 GAMBQ(46) = R3 GAMBQ(47) = Z3 GAMBQ(48) = GAMBQ(36) GAMBQ(49) = 1.0 GAMBQ(50) = R4 GAMBQ(51) = Z4 GAMBQ(52) = R4*Z4 GAMBQ(61) = 1.0 GAMBQ(62) = R4 GAMBQ(63) = Z4 GAMBQ(64) = GAMBQ(52) C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. C ISING = -1 CALL INVERS (8,GAMBQ(1),8,D(10),0,D(11),ISING,SP) C IF (ISING .EQ. 2) CALL MESAGE (-30,26,IDEL) C C FORM THE HPRIM MATRIX (4X4) C K = 0 DO 670 I = 1,4 KK = 8*(I-1) - 1 DO 670 J = 1,4 K = K + 1 KK = KK + 2 HPRIM(K) = GAMBQ(KK) 670 CONTINUE C C MODIFY THE TRANSFORMATION MATRIX IF ELEMENT IS A CORE ELEMENT C IF (ICORE .EQ. 0) GO TO 665 JJ1 = 2*JRZ(1) - 1 JJ2 = 2*JRZ(2) - 1 C DO 663 I = 1,8 J = 8*(I-1) GAMBQ(I ) = 0.0 GAMBQ(I+ 16) = 0.0 GAMBQ(J+JJ1) = 0. GAMBQ(J+JJ2) = 0. 663 CONTINUE 665 CONTINUE C C FORM THE TEMPERATURE VECTOR C DO 680 I = 1,4 TI(I) = TI(I) - TZERO 680 CONTINUE C C COMPUTE THE THERMAL LOAD IN FIELD COORDINATES C CALL GMMATS (HPRIM(1),4,4,0, TI(1),4,1,0, TL(1)) CALL GMMATS (Q(1), 8,4,0, TL(1),4,1,0, D(1)) C C TRANSFORM THE THERMAL LOAD TO GRID POINT DEGREES OF FREEDOM C CALL GMMATS (GAMBQ(1),8,8,1, D(1),8,1,0, TL(1)) C C GENERATE THE TRANSFORMATION MATRIX FROM TWO TO THREE DEGREES OF C FREEDOM PER POINT C DO 700 I = 1,96 GAMQS( I) = 0.0 700 CONTINUE GAMQS( 1) = 1.0 GAMQS(15) = 1.0 GAMQS(28) = 1.0 GAMQS(42) = 1.0 GAMQS(55) = 1.0 GAMQS(69) = 1.0 GAMQS(82) = 1.0 GAMQS(96) = 1.0 C C TRANSFORM THE THERMAL LOAD FROM TWO TO THREE DEGREES OF C FREEDOM PER POINT C CALL GMMATS (GAMQS(1),8,12,1, TL(1),8,1,0, D(10)) C C LOCATE THE TRANSFORMATION MATRICES FOR THE FOUR GRID POINTS C DO 750 I = 1,144 GAMBL(I) = 0.0 750 CONTINUE DO 800 I = 1,4 CALL GBTRAN (ICS(I),ECPT(4*I+4),D(1)) K = 39*(I-1) + 1 DO 800 J = 1,3 KK = K + 12*(J-1) JJ = 3*(J-1) + 1 GAMBL(KK ) = D(JJ ) GAMBL(KK+1) = D(JJ+1) GAMBL(KK+2) = D(JJ+2) 800 CONTINUE C C TRANSFORM THE THERMAL LOAD FROM BASIC TO LOCAL COORDINATES C CALL GMMATS (GAMBL(1),12,12,1, D(10),12,1,0, TL(1)) DO 850 I = 1,12 TL(I) = TWOPI*TL(I) 850 CONTINUE C C ADD THE ELEMENT THERMAL LOAD TO THE STRUCTURE THERMAL LOAD C K = 0 DO 900 I = 1,4 L = IGP(I) - 1 DO 900 J = 1,3 K = K + 1 L = L + 1 PG(L) = PG(L) + TL(K) 900 CONTINUE C RETURN END ================================================ FILE: mis/ttrirg.f ================================================ SUBROUTINE TTRIRG( TI, PG ) C C C***** C THIS ROUTINECOMPUTES THE THERMAL LOAD FOR A TRIANGULAR CROSS C SECTION RING C***** C C C ECPT FOR THE TRIANGULAR RING C C C TYPE C ECPT( 1) ELEMENT IDENTIFICATION I C ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A I C ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B I C ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C I C ECPT( 5) MATERIAL ORIENTATION ANGLE(DEGREES) R C ECPT( 6) MATERIAL IDENTIFICATION I C ECPT( 7) COOR. SYS. ID. FOR GRID POINT A I C ECPT( 8) X-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT( 9) Y-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(10) Z-COOR. OF GRID POINT A (IN BASIC COOR.) R C ECPT(11) COOR. SYS. ID. FOR GRID POINT B I C ECPT(12) X-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(13) Y-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(14) Z-COOR. OF GRID POINT B (IN BASIC COOR.) R C ECPT(15) COOR. SYS. ID. FOR GRID POINT C I C ECPT(16) X-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(17) Y-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(18) Z-COOR. OF GRID POINT C (IN BASIC COOR.) R C ECPT(19) EL. TEMPERATURE FOR MATERIAL PROPERTIES R C C DIMENSION TI(3), PG(1) DIMENSION IECPT(19) DIMENSION 1 D(18) , GAMBQ(36), R(3) , Z(3) 2, TEO(16), EE(16), DELINT(8), GAMQS(54) 3, DZERO(24), GAMBL(81), ALFB(4) 8, IGP(3), ICS(3) , SP(18) DIMENSION TL(9) C COMMON /CONDAS/ CONSTS(5) COMMON /TRIMEX/ 1 ECPT(19) COMMON /MATIN/ 1 MATIDC ,MATFLG 2, ELTEMP ,STRESS 3, SINTH ,COSTH COMMON /MATOUT/ 1 E(3) ,ANU(3) 2, RHO ,G(3) 3, ALF(3) ,TZERO C EQUIVALENCE ( CONSTS(2) , TWOPI ) EQUIVALENCE ( CONSTS(4) , DEGRA ) EQUIVALENCE (IECPT(1) , ECPT(1)) EQUIVALENCE (R(1),R1), (R(2),R2), (R(3),R3) 1, (Z(1),Z1), (Z(2),Z2), (Z(3),Z3) EQUIVALENCE (GAMBL( 1), EE(1)) EQUIVALENCE (GAMBL(17), TEO(1)) EQUIVALENCE (GAMBL(33), DZERO(1)) EQUIVALENCE (GAMBL(57), ALFB(1)) EQUIVALENCE (GAMBL(61), DELINT(1)) EQUIVALENCE (GAMBL(37), SP(1)) EQUIVALENCE (GAMBL( 1), GAMBQ(1)) EQUIVALENCE (GAMBL( 1), GAMQS(1)) C C ---------------------------------------------------------------------- C C STORE ECPT PARAMETERS IN LOCAL VARIABLES C IDEL = IECPT(1) IGP(1)= IECPT(2) IGP(2)= IECPT(3) IGP(3)= IECPT(4) MATID = IECPT(6) ICS(1)= IECPT(7) ICS(2)= IECPT(11) ICS(3)= IECPT(15) R(1) = ECPT(8) D(1) = ECPT(9) Z(1) = ECPT(10) R(2) = ECPT(12) D(2) = ECPT(13) Z(2) = ECPT(14) R(3) = ECPT(16) D(3) = ECPT(17) Z(3) = ECPT(18) TEMPE = ECPT(19) DGAMA = ECPT(5) C C C TEST THE VALIDITY OF THE GRID POINT COORDINATES C DO 200 I = 1,3 IF (R(I) .LT. 0.0E0) CALL MESAGE (-30, 37, IDEL) IF (D(I) .NE. 0.0E0) CALL MESAGE (-30, 37, IDEL) 200 CONTINUE C C C COMPUTE THE ELEMENT COORDINATES C ZMIN = AMIN1(Z1, Z2, Z3) Z1 = Z1 - ZMIN Z2 = Z2 - ZMIN Z3 = Z3 - ZMIN C C CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS C INDICATED BY THE FOLLOWING TABLE C C DELINT( 1) - (-1,0) C DELINT( 2) - (-1,1) C DELINT( 3) - (-1,2) C DELINT( 4) - ( 0,0) C DELINT( 5) - ( 0,1) C DELINT( 6) - ( 1,0) C DELINT( 7) - ( 0,2) C DELINT( 8) - ( 1,2) C C C TEST FOR RELATIVE SMALL AREA OF INTEGRATION C AND IF AREA IS SMALL THEN APPROXIMATE INTEGRALS C DR = AMAX1 ( ABS(R1-R2) , ABS(R2-R3) , ABS(R3-R1) ) RH = AMIN1 ( R1 , R2 , R3 ) / 10.0E0 DZ = AMAX1 ( ABS(Z1-Z2) , ABS(Z2-Z3) , ABS(Z3-Z1) ) ZH = AMIN1 ( Z1 , Z2 , Z3 ) / 10.0E0 RA = (R1 + R2 + R3) / 3.0E0 ZA = (Z1 + Z2 + Z3) / 3.0E0 AREA =(R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2)) / 2.0E0 KODE = 0 IF ( ABS( (R2-R1)/R2 ) .LT. 1.0E-5) KODE = 1 IF ( DR .LE. RH .OR. DZ .LE. ZH ) KODE = -1 C C 310 CONTINUE I1 = 0 DO 400 I = 1,3 IP = I - 2 DO 350 J = 1,3 IQ = J - 1 IF (IP.EQ.1 .AND. IQ.EQ.1) GO TO 350 I1 = I1 + 1 IF (KODE) 320,330,340 320 DELINT(I1) =((RA) ** IP)*((ZA) ** IQ) * AREA GO TO 350 330 DELINT(I1) = AI (1,3,1,2,1,3,IP,IQ,R,Z) 1 + AI (3,2,1,2,3,2,IP,IQ,R,Z) GO TO 350 340 CONTINUE DELINT(I1) = AI (1,3,3,2,1,3,IP,IQ,R,Z) 350 CONTINUE 400 CONTINUE D(1) = DELINT(6) DELINT(6) = DELINT(7) DELINT(7) = D(1) C C C TEST FOR EXCESSIVE ROUND-OFF ERROR IN INTEGRAL CALCULATIONS C AND IF IT EXIST APPROXIMATE INTEGRALS C IF (KODE .LT. 0) GO TO 500 DO 450 I = 1,8 IF (DELINT(I) .LT. 0.0E0) GO TO 475 450 CONTINUE IF (DELINT(8) .LE. DELINT(7)) GO TO 475 IF (DELINT(3) .GE. DELINT(8)) GO TO 475 IF (DELINT(3) .GT. DELINT(7)) GO TO 475 GO TO 500 475 CONTINUE KODE = -1 GO TO 310 500 CONTINUE C C C C LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE C MATIDC = MATID MATFLG = 7 ELTEMP = TEMPE CALL MAT (IDEL) C C C SET MATERIAL PROPERTIES IN LOCAL VARIABLES C ER = E(1) ET = E(2) EZ = E(3) VRT = ANU(1) VTZ = ANU(2) VZR = ANU(3) GRZ = G(3) TZ = TZERO VTR = VRT * ET / ER VZT = VTZ * EZ / ET VRZ = VZR * ER / EZ DEL = 1.0E0 - VRT*VTR - VTZ*VZT - VZR*VRZ - VRT*VTZ*VZR 1 - VRZ*VTR*VZT C C C GENERATE ELASTIC CONSTANTS MATRIX (4X4) C EE(1) = ER * (1.0E0 - VTZ*VZT) / DEL EE(2) = ER * (VTR + VZR*VTZ) / DEL EE(3) = ER * (VZR + VTR*VZT) / DEL EE(4) = 0.0E0 EE(5) = EE(2) EE(6) = ET * (1.0E0 - VRZ*VZR) / DEL EE(7) = ET * (VZT + VRT*VZR) / DEL EE(8) = 0.0E0 EE(9) = EE(3) EE(10)= EE(7) EE(11)= EZ * (1.0E0 - VRT*VTR) / DEL EE(12)= 0.0E0 EE(13)= 0.0E0 EE(14)= 0.0E0 EE(15)= 0.0E0 EE(16)= GRZ C C C FORM TRANSFORMATION MATRIX (4X4) FROM MATERIAL AXIS TO ELEMENT C GEOMETRIC AXIS C DGAMR = DGAMA * DEGRA COSG = COS(DGAMR) SING = SIN(DGAMR) TEO( 1) = COSG ** 2 TEO( 2) = 0.0E0 TEO( 3) = SING ** 2 TEO( 4) = SING * COSG TEO( 5) = 0.0E0 TEO( 6) = 1.0E0 TEO( 7) = 0.0E0 TEO( 8) = 0.0E0 TEO( 9) = TEO(3) TEO(10) = 0.0E0 TEO(11) = TEO(1) TEO(12) = -TEO(4) TEO(13) = -2.0E0 * TEO(4) TEO(14) = 0.0E0 TEO(15) = -TEO(13) TEO(16) = TEO(1) - TEO(3) C C C TRANSFORM THE ELASTIC CONSTANTS MATRIX FROM MATERIAL C TO ELEMENT GEOMETRIC AXIS C CALL GMMATS (TEO , 4, 4, 1, EE , 4, 4, 0, D ) CALL GMMATS (D , 4, 4, 0, TEO, 4, 4, 0, EE) C C C C FORM THE D-CURL MATRIX C DO 600 I = 1,24 DZERO(I) = 0.0E0 600 CONTINUE DZERO( 2) = DELINT(6) * TWOPI DZERO( 7) = DELINT(4) * TWOPI DZERO( 8) = DZERO(2) DZERO( 9) = DELINT(5) * TWOPI DZERO(18) = DZERO(2) DZERO(21) = DZERO(2) DZERO(23) = DZERO(2) C C C COMPUTE THE THERMAL STRAIN VECTOR C D(1) = ( TI(1) + TI(2) + TI(3) ) / 3.0E0 D(1) = D(1) - TZ DO 650 I = 1,3 ALFB(I) = ALF(I) * D(1) 650 CONTINUE ALFB(4) = 0.0E0 C C C COMPUTE THE THERMAL LOAD IN FIELD COORDINATES C CALL GMMATS (EE(1), 4, 4, 0, ALFB(1), 4, 1, 0, TL(1) ) CALL GMMATS (DZERO(1), 4, 6, 1, TL(1), 4, 1, 0, D(1) ) C C C FORM THE TRANSFORMATION MATRIX (6X6) FROM FIELD COORDINATES TO GRID C POINT DEGREES OF FREEDOM C DO 680 I = 1,36 GAMBQ(I) = 0.0E0 680 CONTINUE GAMBQ( 1) = 1.0E0 GAMBQ( 2) = R1 GAMBQ( 3) = Z1 GAMBQ(10) = 1.0E0 GAMBQ(11) = R1 GAMBQ(12) = Z1 GAMBQ(13) = 1.0E0 GAMBQ(14) = R2 GAMBQ(15) = Z2 GAMBQ(22) = 1.0E0 GAMBQ(23) = R2 GAMBQ(24) = Z2 GAMBQ(25) = 1.0E0 GAMBQ(26) = R3 GAMBQ(27) = Z3 GAMBQ(34) = 1.0E0 GAMBQ(35) = R3 GAMBQ(36) = Z3 C C C NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY. ISING = -1 CALL INVERS (6, GAMBQ(1),6 , D(10), 0, D(11) , ISING , SP) C IF (ISING .EQ. 2) CALL MESAGE(-30,26,IDEL) C C C C TRANSFORM THE THERMAL LOAD TO GRID POINT DEGREES OF FREEDOM C CALL GMMATS (GAMBQ(1), 6, 6, 1, D(1), 6, 1, 0, TL(1) ) C C C GENERATE THE TRANSFORMATION MATRIX FROM TWO TO THREE DEGREES OF C FREEDOM PER POINT C DO 700 I = 1,54 GAMQS( I) = 0.0E0 700 CONTINUE GAMQS( 1) = 1.0E0 GAMQS(12) = 1.0E0 GAMQS(22) = 1.0E0 GAMQS(33) = 1.0E0 GAMQS(43) = 1.0E0 GAMQS(54) = 1.0E0 C C C TRANSFORM THE THERMAL LOAD FROM TWO TO THREE DEGREES OF FREEDOM C CALL GMMATS (GAMQS(1), 6, 9, 1, TL(1), 6, 1, 0, D(10) ) C C C LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS C DO 750 I = 1,81 GAMBL(I) = 0.0E0 750 CONTINUE DO 800 I = 1,3 CALL GBTRAN(ICS(I),ECPT(4*I+7),D(1)) K = 30* (I-1) + 1 DO 800 J = 1,3 KK = K + 9 * (J-1) JJ = 3 * (J-1) + 1 GAMBL(KK ) = D(JJ ) GAMBL(KK+1) = D(JJ+1) GAMBL(KK+2) = D(JJ+2) 800 CONTINUE C C C TRANSFORM THE THERMAL LOAD FROM BASIC TO LOCAL COORDINATES C CALL GMMATS (GAMBL(1), 9, 9, 1, D(10),9, 1, 0, TL(1) ) C C C ADD THE ELEMENT THERMAL LOAD TO THE STRUCTURE THERMAL LOAD C K = 0 DO 900 I = 1,3 L = IGP(I) - 1 DO 900 J = 1,3 K = K + 1 L = L + 1 PG(L) = PG(L) + TL(K) 900 CONTINUE C C C RETURN END ================================================ FILE: mis/tubed.f ================================================ SUBROUTINE TUBED C C*** C THE TUBE BEING SO SIMILAR TO THE ROD, WE ALTER THE EST FOR THE TUBE C SO THAT IT IS IDENTICAL TO THE ONE FOR THE ROD AND THEN CALL RODD C DOUBLE PRECISION VERSION C SINGLE AND DOUBLE PRECISION VERSIONS OF THIS ROUTINE ARE IDENTICAL C APART FROM THE NAME AND THE CALL TO RODD (RODS) C*** C C C EST( 1) - ELEMENT ID. C EST( 2) - SCALAR INDEX NUMBER FOR GRID POINT A C EST( 3) - SCALAR INDEX NUMBER FOR GRID POINT B C EST( 4) - MATERIAL ID. C EST( 5) - OUTSIDE DIAMETER C EST( 6) - THICKNESS C EST( 7) - NON-STRUCTURAL MASS C EST( 8) - COOR. SYS. ID. FOR GRID POINT A C EST( 9) - BASIC COORDINATES OF GRID POINT A C EST(10) - ... C EST(11) - ... C EST(12) - COOR. SYS. ID. FOR GRID POINT B C EST(13) - BASIC COORDINATES OF GRID POINT B C EST(14) - ... C EST(15) - ... C EST(16) - ELEMENT TEMPERATURE C COMMON /EMGEST/ EST(100) COMMON /CONDAS/ PI C C ---------------------------------------------------------------------- C TEMP = EST(5) - EST(6) A = TEMP * EST(6) * PI FJ = .25 * A * ( TEMP**2 + EST(6)**2 ) C = .5 * EST(5) M = 18 DO 10 I = 1,10 M = M - 1 10 EST(M) = EST(M-1) EST(5) = A EST(6) = FJ EST(7) = C CALL RODD RETURN END ================================================ FILE: mis/tubes.f ================================================ SUBROUTINE TUBES C C*** C THE TUBE BEING SO SIMILAR TO THE ROD, WE ALTER THE EST FOR THE TUBE C SO THAT IT IS IDENTICAL TO THE ONE FOR THE ROD AND THEN CALL RODS C SINGLE PRECISION VERSION C SINGLE AND DOUBLE PRECISION VERSIONS OF THIS ROUTINE ARE IDENTICAL C APART FROM THE NAME AND THE CALL TO RODD (RODS) C*** C C C EST( 1) - ELEMENT ID. C EST( 2) - SCALAR INDEX NUMBER FOR GRID POINT A C EST( 3) - SCALAR INDEX NUMBER FOR GRID POINT B C EST( 4) - MATERIAL ID. C EST( 5) - OUTSIDE DIAMETER C EST( 6) - THICKNESS C EST( 7) - NON-STRUCTURAL MASS C EST( 8) - COOR. SYS. ID. FOR GRID POINT A C EST( 9) - BASIC COORDINATES OF GRID POINT A C EST(10) - ... C EST(11) - ... C EST(12) - COOR. SYS. ID. FOR GRID POINT B C EST(13) - BASIC COORDINATES OF GRID POINT B C EST(14) - ... C EST(15) - ... C EST(16) - ELEMENT TEMPERATURE C COMMON /EMGEST/ EST(100) COMMON /CONDAS/ PI C C ---------------------------------------------------------------------- C TEMP = EST(5) - EST(6) A = TEMP * EST(6) * PI FJ = .25 * A * ( TEMP**2 + EST(6)**2 ) C = .5 * EST(5) M = 18 DO 10 I = 1,10 M = M - 1 10 EST(M) = EST(M-1) EST(5) = A EST(6) = FJ EST(7) = C CALL RODS RETURN END ================================================ FILE: mis/tvor.f ================================================ SUBROUTINE TVOR (SL1,CL1,TL1,SL2,CL2,TL2,SGS,CGS,SGR,CGR,X01,X02, 1 Y0,Z0,E,BETA,CBAR,FMACH,KR,BRE,BIM) C C NORMALWASH AT A POINT (X,Y,Z) - OF A SURFACE DIHEDRAL - C DUE TO A TRAPEZOIDAL UNSTEADY VORTEX RING OF UNIT STRENGTH. C C THIS SUBROUTINE CALLS - SNPDF, IDF1, IDF2, FLLD C C SL1, CL1, TL1 SIN(LAMBDA-1), COS(LAMBDA-1), TAN(LAMBDA-1) C SL2, CL2, TL2 SIN(LAMBDA-2), ..... C SGS, CGS SIN(GAMMA-S), .... C SGR, CGR SIN(GAMMA-R), .... C X01 X-XI1 C X02 X-XI2 C Y0 Y - ETA C Z0 Z - ZETA C E C BETA SQRT(1-FMACH**2) C CV C BR C FMACH MACH NO. C BRE REAL PART OF B (RETURNED) C BIM IMAGINARY PART OF B (RETURNED) C REAL KR, KD1, KD2 C C VARIABLES DIMENSIONED (2), FIRST WORD IS THE REAL PART OF THE C VALUE AND THE SECOND IS THE IMAGINARY PART C DIMENSION DKI(2), DKC(2), DKO(2), KD1(2), KD2(2) C DATA PI48 / 150.79644720 / C C CALCULATE BS C L = 1 CV = X01 - X02 SL = SL1 CL = CL1 TL = TL1 X0 = X01 EE = E**2 TE = 2.0*E ASSIGN 50 TO ISNP C C CALL SNPDF C GO TO 1000 50 BS = DIJ SL = SL2 CL = CL2 TL = TL2 X0 = X02 ASSIGN 100 TO ISNP C C CALL SNPDF C GO TO 1000 100 BS = BS - DIJ C C CALCULATE DELTA-B C LIMITS FOR SMALL VALUES OF RADII C EPS = 0.25*EE IB = 0 FB = 1.0 FC = 4.0 C C FIRST CALC. C DELTA-KD- 1I, 1C, AND 1O C ETL1 = E*TL1 ETL2 = E*TL2 ESGS = E*SGS ECGS = E*CGS C DX01 = X01 + ETL1 DX02 = X02 + ETL2 DY0 = Y0 + ECGS DZ0 = Z0 + ESGS ASSIGN 200 TO IFLLD C C CALCULATE R-I SQUARED AND CALL FLLD IF LARGE ENOUGH C R2 = DY0**2 + DZ0**2 IF (R2 .GE. EPS) GO TO 2000 IB = 1 FC = 6.0 FB = 0.0 GO TO 230 200 DKI(1) = KD1(1)/R2 + KD2(1)/R4 DKI(2) = KD1(2)/R2 + KD2(2)/R4 C C KD1C AND KD2C C 230 DX01 = X01 DX02 = X02 DY0 = Y0 DZ0 = Z0 ASSIGN 300 TO IFLLD C C CALCULATE R-C SQUARED AND CALL FLLD IF LARGE ENOUGH C R2 = DY0**2 + DZ0**2 IF (R2 .GE. EPS) GO TO 2000 FC = 0.0 FB = 3.0 GO TO 330 300 DKC(1) = KD1(1)/R2 + KD2(1)/R4 DKC(2) = KD1(2)/R2 + KD2(2)/R4 C C KD1O AND KD2O C SKIP IF R-I IS TOO SMALL C 330 IF (IB .NE. 0) GO TO 430 DX01 = X01 - ETL1 DX02 = X02 - ETL2 DY0 = Y0 - ECGS DZ0 = Z0 - ESGS ASSIGN 400 TO IFLLD C C CALCULATE R-O SQUARED AND CALL FLLD IF LARGE ENOUGH C R2 = DY0**2 + DZ0**2 IF (R2 .GE. EPS) GO TO 2000 FB = 0.0 FC = 6.0 IB = 1 GO TO 430 400 DKO(1) = KD1(1)/R2 + KD2(1)/R4 DKO(2) = KD1(2)/R2 + KD2(2)/R4 C 430 COEF = 1.0/PI48 BRE = BS/(TE*CV) - COEF*(FB*(DKI(1) + DKO(1)) + FC*DKC(1)) BIM = - COEF*(FB*(DKI(2) + DKO(2)) + FC*DKC(2)) RETURN C 1000 CALL SNPDF (SL,CL,TL,SGS,CGS,SGR,CGR,X0,Y0,Z0,E,DIJ,BETA,CV) GO TO ISNP, (50,100) C 2000 CALL FLLD (DX01,DX02,DY0,DZ0,SGR,CGR,SGS,CGS,KR,CBAR,FMACH,E,L, 1 KD1(1),KD1(2),KD2(1),KD2(2)) R4 = R2*R2 GO TO IFLLD, (200,300,400) C END ================================================ FILE: mis/twistd.f ================================================ SUBROUTINE TWISTD C C THIS SUBROUTINE COMPUTES THE 12 X 12 STIFFNESS MATRIX FOR THE C TWIST PANEL ELEMENT, AS WELL AS ITS DIAGONALIZED MASS MATRIX C C DOUBLE PRECISION VERSION C C ECPT FOR THE BOTH TWIST PANEL ELEMENTS C C ECPT( 1) - IELID ELEMENT ID. NO. C ECPT( 2) - ISILNO(4) SCALAR INDEX NUMBERS C ECPT( 3) - ... ... C ECPT( 4) - ... ... C ECPT( 5) - ... ... C ECPT( 6) - MATID MATERIAL ID. C ECPT( 7) - T THICKNESS C ECPT( 8) - FMU NON-STRUCTURAL MASS C ECPT( 9) - ICSID1 COOR. SYS. ID. FOR GRID POINT 1 C ECPT(10) - GP1(3) BASIC COORDINATES FOR GRID POINT 1 C ECPT(11) - ... ... C ECPT(12) - ... ... C ECPT(13) - ICSID2 COOR. SYS. ID. FOR GRID POINT 2 C ECPT(14) - GP2(3) BASIC COORDINATES FOR GRID POINT 2 C ECPT(15) - ... ... C ECPT(16) - ... ... C ECPT(17) - ICSID3 COOR. SYS. ID. FOR GRID POINT 3 C ECPT(18) - GP3(3) BASIC COORDINATES FOR GRID POINT 3 C ECPT(19) - ... ... C ECPT(20) - ... ... C ECPT(21) - ICSID4 COOR. SYS. ID. FOR GRID POINT 4 C ECPT(22) - GP4(3) BASIC COORDINATES FOR GRID POINT 4 C ECPT(23) - ... ... C ECPT(24) - ... ... C ECPT(25) - TEMPEL ELEMENT TEMPERATURE C LOGICAL NOGO,IHEAT INTEGER DICT(11),IECPT(2),ESTID,ELID,IPART(4) REAL NU,ECPT(100) DOUBLE PRECISION CEPX,CEPY,KE(144),KOUT(144),ME(144),MOUT(144), 1 VLEFT(6),A,B,C,A2,B2,C2,VRIGHT(6),P(4),T,C23, 2 NUC,G,E,X1,Y1,X2,Y2,X3,D2,A3,B3,C3,D3,Y3,X4,Y4, 3 CEP1,TEMP,CEP2,EP,D,XP,YP,XL,XQ,A4,B4,C4,D4, 4 A5,B5,C5,D5,TERM,TERM1,TERM2,TERM3,TERM4,TERM5, 5 F,Z,VD1(3),VD2(3),VKN(3),VK(3),V12(3),V41(3), 6 VP12(3),VI(3),VJ(3),AVEC(4),SMALLU(4),SMALLV(4), 7 XL13,XL24,CON,TI(9) COMMON /SYSTEM/ KSYSTM(55),IHEAT COMMON /EMGPRM/ DUM(15), ISMB(3), IPREC,NOGO, HEAT COMMON /EMGDIC/ IDM,LDICT,NGRIDS,ELID,ESTID C C ECPT COMMON BLOCK C COMMON /EMGEST/ IELID,ISILNO(4),MATID,TSP,FMU,ICSID1,GP1(3), 1 ICSID2,GP2(3),ICSID3,GP3(3),ICSID4,GP4(3),TEMPEL C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ ESP,GSP,NU,RHO,ALPHA,TSUB0,GSUBE,SIGT,SIGC,SIGS EQUIVALENCE (IECPT(1),ECPT(1),IELID),(DICT(5),DICT5), 1 (ME(1),KE(1)),(KOUT(1),MOUT(1)) DATA IPART / 1,2,3,4/ C C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 56 IP = IPREC ISORT = 0 C C IF STIFFNESS MATRIX NOT NEEDED GO TO PERFORM MASS CALCULATIONS C IF (ISMB(1) .EQ. 0) GOTO 400 C C MATIDC = MATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) DICT5 = GSUBE E = ESP G = GSP T = TSP IF (T*G .EQ. 0.D0) GO TO 7770 C23 = 2.D0/3.D0 NUC = 1./(1.+NU) C C COMPUTE DIAGONAL VECTORS. C DO 10 I = 1,3 VD1(I) = GP3(I) - GP1(I) 10 VD2(I) = GP4(I) - GP2(I) C C COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE C PROJECTED AREA, PA C VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2) VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3) VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1) VKL = DSQRT(VKN(1)**2 + VKN(2)**2 + VKN(3)**2) IF (VKL .EQ. 0.) GO TO 7770 VK(1) = VKN(1)/VKL VK(2) = VKN(2)/VKL VK(3) = VKN(3)/VKL PA = VKL/2. C C COMPUTE SIDES -12- AND -41- C DO 20 I = 1,3 V12(I) = GP2(I) - GP1(I) 20 V41(I) = GP1(I) - GP4(I) C C COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12, VI, C VJ C V12DK = V12(1)*VK(1) + V12(2)*VK(2) + V12(3)*VK(3) VP12(1) = V12(1) - V12DK*VK(1) VP12(2) = V12(2) - V12DK*VK(2) VP12(3) = V12(3) - V12DK*VK(3) VP12L = DSQRT(VP12(1)**2 + VP12(2)**2 + VP12(3)**2) IF (VP12L .EQ. 0.) GO TO 7770 VI(1) = VP12(1)/VP12L VI(2) = VP12(2)/VP12L VI(3) = VP12(3)/VP12L VJ(1) = VK(2)*VI(3) - VK(3)*VI(2) VJ(2) = VK(3)*VI(1) - VK(1)*VI(3) VJ(3) = VK(1)*VI(2) - VK(2)*VI(1) C C NORMALIZE J FOR GOOD MEASURE C VJL = DSQRT(VJ(1)**2 + VJ(2)**2 + VJ(3)**2) IF (VJL .EQ. 0.) GO TO 7770 VJ(1) = VJ(1)/VJL VJ(2) = VJ(2)/VJL VJ(3) = VJ(3)/VJL X1 = 0. Y1 = 0. X2 = VP12L Y2 = 0. X3 = VI(1)*VD1(1) + VI(2)*VD1(2) + VI(3)*VD1(3) Y3 = VJ(1)*VD1(1) + VJ(2)*VD1(2) + VJ(3)*VD1(3) X4 =-VI(1)*V41(1) - VI(2)*V41(2) - VI(3)*V41(3) Y4 =-VJ(1)*V41(1) - VJ(2)*V41(2) - VJ(3)*V41(3) C C CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES. IF NOT, C CALL FATAL ERROR MESSAGE. C IF (Y3 .LE. 0.) GO TO 7780 IF (Y4 .LE. 0.) GO TO 7800 IF (X3 .LE. Y3*X4/Y4) GO TO 7810 IF (X4 .GE. X2-(X2-X3)*Y4/Y3) GO TO 7790 C C TEST FOR PARALLEL EFFECTS. C CEP1 = DABS(Y3-Y4) CEPX = DABS(X3-X4) TEMP = X3 - X2 CEP2 = DABS(Y4*TEMP - Y3*X4) CEPY = DABS(X4*TEMP + Y4*Y3) EP = 0.01D0 IF (CEP1 .LT. EP*CEPX) GO TO 30 IF (CEP2 .LT. EP*CEPY) GO TO 40 GO TO 70 30 IF (CEP2 .LT. EP*CEPY) GO TO 50 C C AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO C THE LINE CONNECTING POINTS 1 AND 2. C TEMP = Y3*X4 - Y4*(X3-X2) YP = X2*Y3*Y4/TEMP P(1) = YP - Y1 P(2) = YP - Y2 P(3) = YP - Y3 P(4) = YP - Y4 XP = X2*Y3*X4/TEMP SA = (X2 - XP)/YP C = (X1 - XP)/YP Z = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))* 1 (1.+C23*NUC*(SA**2+SA*C+C**2)) GO TO 80 C C AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO C THE LINE CONNECTING POINTS 2 AND 3. C 40 D = -.5*(X4/Y4 + (X3-X2)/Y3) XQ = X4 - Y4*(X3-X4)/(Y3-Y4) TEMP = 1.D0/DSQRT(1.D0 + D**2) P(1) = (XQ - X1 - D*Y1)*TEMP P(2) = (XQ - X2 - D*Y2)*TEMP P(3) = (XQ - X3 - D*Y3)*TEMP P(4) = (XQ - X4 - D*Y4)*TEMP TEMP = XQ - X4 B = (TEMP*D + Y4)/(TEMP - Y4*D) Z = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))* 1 (1.+C23* NUC*(B**2+B*D+D**2)) GO TO 80 C C IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM. C 50 DO 60 I = 1,4 60 P(I) = 1. D = -.5*(X4/Y4 + (X3-X2)/Y3 + (Y3-Y4)/(X3-X4)) Z = PA/(2.*G*T)*(1.+2.*D**2 * NUC) GO TO 80 C C IN THIS CASE NO PARALLEL EFFECTS EXIST. C 70 XQ = X4 - (X3-X4)/(Y3-Y4)*Y4 TEMP = Y3*X4 - Y4*(X3-X2) XP = X2*Y3*X4/TEMP YP = X2*Y3*Y4/TEMP XL = DSQRT((XP-YP)**2 + YP**2) D = (XQ-XP)/YP TEMP = YP/XL P(1) = TEMP*(XQ - X1 - D*Y1) P(2) = TEMP*(XQ - X2 - D*Y2) P(3) = TEMP*(XQ - X3 - D*Y3) P(4) = TEMP*(XQ - X4 - D*Y4) C = XL/P(1) - D B = XL/P(4) - C A = XL/P(2) - D A2 = A**2 B2 = B**2 C2 = C**2 D2 = D**2 A3 = A2*A B3 = B2*B C3 = C2*C D3 = D2*D A4 = A3*A B4 = B3*B C4 = C3*C D4 = D3*D A5 = A4*A B5 = B4*B C5 = C4*C D5 = D4*D TEMP = .5*P(1)*P(2)*P(3)*P(4)/XL**2 TERM =(A + B + C23*(A3+B3) + .2 *(A5+B5))*DLOG(DABS(A+B)) TERM1=(C + D + C23*(C3+D3) + .2*(C5+D5))*DLOG(DABS(C+D)) TERM2=(B + C + C23*(B3+C3) + .2*(B5+C5))*DLOG(DABS(B+C)) TERM3=(D + A + C23*(D3+A3) + .2*(D5+A5))*DLOG(DABS(D+A)) TERM4= .1*((A2-C2)*(B3-D3)+ (B2-D2)*(A3-C3)) TERM5= .2*((A - C )*(B4-D4) + (B-D)*(A4-C4)) F = TEMP*(TERM + TERM1 - TERM2 - TERM3 + TERM4 - TERM5) Z = P(1)*P(2)/(P(3)*P(4)*2.*G*T)*(PA+4.*NUC*(F-C23*PA)) 80 XL13 = DSQRT(X3**2 + Y3**2) XL24 = DSQRT((X4-X2)**2 + Y4**2) SMALLU(1) = X3/XL13 SMALLU(2) = (X4-X2)/XL24 SMALLU(3) = SMALLU(1) SMALLU(4) = SMALLU(2) SMALLV(1) = Y3/XL13 SMALLV(2) = Y4/XL24 SMALLV(3) = SMALLV(1) SMALLV(4) = SMALLV(2) TEMP = X4*Y3 - X3*Y4 AVEC(1) =-.5*X2*Y4*XL13/TEMP AVEC(2) = .5*X2*Y3 *XL24/(TEMP -X2*(Y3-Y4)) AVEC(3) =-AVEC(1) AVEC(4) =-AVEC(2) C C SINCE WE ARE DEALING WITH A TWIST PANEL STORE -SMALLV IN SMALLU C AND SMALLU IN SMALLV. C DO 90 I = 1,4 TEMP = SMALLU(I) SMALLU(I) =-SMALLV(I) 90 SMALLV(I) = TEMP C DO 95 I = 1,144 95 KE(I) = 0.D0 DO 230 IPVT = 1,4 CON = AVEC(IPVT)*T**2/(24.*Z) C C COMPUTE THE -VLEFT- VECTOR C IVLBEG = 1 VLEFT(1) = VI(1)*SMALLU(IPVT) + VJ(1)*SMALLV(IPVT) VLEFT(2) = VI(2)*SMALLU(IPVT) + VJ(2)*SMALLV(IPVT) VLEFT(3) = VI(3)*SMALLU(IPVT) + VJ(3)*SMALLV(IPVT) IF (IECPT(4*IPVT+5) .EQ. 0) GO TO 150 CALL TRANSD (IECPT(4*IPVT+5),TI) IVLBEG = 4 CALL GMMATD (TI,3,3,1, VLEFT(1),3,1,0, VLEFT(4)) C C COMPUTE THE 6 X 6 -S C 150 DO 220 J = 1,4 JT = (IPVT-1)*36 + (J-1)*9 + 1 IVRBEG = 1 VRIGHT(1) = SMALLU(J)*VI(1) + SMALLV(J)*VJ(1) VRIGHT(2) = SMALLU(J)*VI(2) + SMALLV(J)*VJ(2) VRIGHT(3) = SMALLU(J)*VI(3) + SMALLV(J)*VJ(3) IF (IECPT(4*J+5) .EQ. 0) GO TO 170 CALL TRANSD (IECPT(4*J+5),TI) CALL GMMATD (VRIGHT(1),1,3,0, TI,3,3,0, VRIGHT(4)) IVRBEG = 4 170 CALL GMMATD (VLEFT(IVLBEG),3,1,0, VRIGHT(IVRBEG),1,3,0, KE(JT)) JT8 = JT + 8 DO 180 K = JT,JT8 180 KE(K)= CON*KE(K)*AVEC(J) 220 CONTINUE 230 CONTINUE C C NOW REARRANGE KE BY INCREASING SIL THEN OUTPUT IT VIA EMGOUT C FIRST DETERMINE WHAT INCREASING SIL ORDER WILL BE C ASSIGN 290TO K OR M 275 CONTINUE DO 280 I = 1,3 IP1 = I + 1 IT = IPART (I) DO 270 J = IP1,4 JT = IPART(J) IF (ISILNO(IT) .LE. ISILNO(JT)) GO TO 270 IPART(I) = JT IPART(J) = IT IT = JT GO TO 275 270 CONTINUE 280 CONTINUE ISORT = 1 GO TO KORM, (290,420) C C NOW REARRANGE TERMS IN THE STIFFNESS MATRIX KE AND STORE IN KOUT C C C KE = (K ,K ,K ,K ,K ,...,K ,K ,...,K ) C 11 12 13 14 21 24 31 44 C C WHERE K IS A 3X3 SUBMATRIX AND SILS ARE IN GRID POINT ORDER C IJ C C AND ***** **** C * K K K K * C * L1L1 L1L2 L1L3 L1L4* C * * C * K K K K * C KOUT = * L2L1 L2L2 L2L3 L2L4* C * * C * K K K K * C * L3L1 L3L2 L3L3 L3L4* C * * C * K K K K * C * L4L1 L4L2 L4L3 L4L4* C **** **** C C WHERE KOUT IS A 3X3 MATRIX AND SILS ARE IN INCREASING C LILJ C ORDER C 290 CONTINUE DO 300 I = 1,4 IS = IPART(I) DO 300 J = 1,4 JS = IPART(J) DO 300 K = 1,3 DO 300 L = 1,3 IOUT = (I -1)*36 + (J -1)*3 + (K-1)*12 + L IKE = (IS-1)*36 + (JS-1)*9 + (K-1)*3 + L 300 KOUT(IOUT) = KE(IKE) C C OUTPUT THE STIFFNESS MATRIX C CALL EMGOUT (KOUT,KOUT,144,1,DICT,1,IP) C C HERE WE CALCULATE THE MASS MATRIX VIA SUBROUTINE EMASTQ C C 400 IF (ISMB(2) .EQ. 0) RETURN C CALL EMADTQ (6,ME) IF (ISORT .EQ. 1) GO TO 420 ASSIGN 420 TO KORM GO TO 275 C C RETURN WITH A GRID POINT SORT ARRAY IN IPART C C 420 DO 440 I = 1,4 IT = 1 + (IPART(I)-1)*3 IJ = (I-1)*3 + 1 MOUT(IJ ) = ME(IT ) MOUT(IJ+1) = ME(IT+1) 440 MOUT(IJ+2) = ME(IT+2) C DICT(1) = ESTID DICT(2) = 2 DICT(3) = 12 DICT(4) = 7 DICT5 = 0. C CALL EMGOUT (KOUT,KOUT,12,1,DICT,2,IP) RETURN C C ERROR EXITS C 7770 CALL MESAGE (30,26,IECPT(1)) 7777 NOGO = .TRUE. RETURN C 7780 IECPT(2) = 2 GO TO 7820 7790 IECPT(I) = 4 GO TO 7820 7800 IECPT(2) = 1 GO TO 7820 7810 IECPT(2) = 3 7820 CALL MESAGE (30,27,IECPT(1)) GO TO 7777 END ================================================ FILE: mis/twists.f ================================================ SUBROUTINE TWISTS C C THIS SUBROUTINE COMPUTES THE 12 X 12 STIFFNESS MATRIX FOR THE C TWIST PANEL ELEMENT, AS WELL AS ITS DIAGONALIZED MASS MATRIX C C SINGLE PRECISION VERSION C C ECPT FOR THE BOTH TWIST PANEL ELEMENTS C C ECPT( 1) - IELID ELEMENT ID. NO. C ECPT( 2) - ISILNO(4) SCALAR INDEX NUMBERS C ECPT( 3) - ... ... C ECPT( 4) - ... ... C ECPT( 5) - ... ... C ECPT( 6) - MATID MATERIAL ID. C ECPT( 7) - T THICKNESS C ECPT( 8) - FMU NON-STRUCTURAL MASS C ECPT( 9) - ICSID1 COOR. SYS. ID. FOR GRID POINT 1 C ECPT(10) - GP1(3) BASIC COORDINATES FOR GRID POINT 1 C ECPT(11) - ... ... C ECPT(12) - ... ... C ECPT(13) - ICSID2 COOR. SYS. ID. FOR GRID POINT 2 C ECPT(14) - GP2(3) BASIC COORDINATES FOR GRID POINT 2 C ECPT(15) - ... ... C ECPT(16) - ... ... C ECPT(17) - ICSID3 COOR. SYS. ID. FOR GRID POINT 3 C ECPT(18) - GP3(3) BASIC COORDINATES FOR GRID POINT 3 C ECPT(19) - ... ... C ECPT(20) - ... ... C ECPT(21) - ICSID4 COOR. SYS. ID. FOR GRID POINT 4 C ECPT(22) - GP4(3) BASIC COORDINATES FOR GRID POINT 4 C ECPT(23) - ... ... C ECPT(24) - ... ... C ECPT(25) - TEMPEL ELEMENT TEMPERATURE C LOGICAL NOGO,IHEAT INTEGER DICT(11),IECPT(2),ESTID,ELID,IPART(4) REAL NU,ECPT(100) REAL KE(144),KOUT(144),ME(144),MOUT(144), 1 VLEFT(6),VRIGHT(6),TI(9),P(4), 2 VD1(3),VD2(3),VKN(3),VK(3),V12(3),V41(3), 3 VP12(3),VI(3),VJ(3),AVEC(4),SMALLU(4),SMALLV(4) COMMON /SYSTEM/ KSYSTM(55),IHEAT COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO,HEAT COMMON /EMGDIC/ IDM,LDICT,NGRIDS,ELID,ESTID C C ECPT COMMON BLOCK C COMMON /EMGEST/ IELID,ISILNO(4),MATID,TSP,FMU,ICSID1,GP1(3), 1 ICSID2,GP2(3),ICSID3,GP3(3),ICSID4,GP4(3),TEMPEL C C INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT C COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH COMMON /MATOUT/ ESP,GSP,NU,RHO,ALPHA,TSUB0,GSUBE,SIGT,SIGC,SIGS EQUIVALENCE (IECPT(1),ECPT(1),IELID),(DICT(5),DICT5), 1 (ME(1),KE(1)),(KOUT(1),MOUT(1)) DATA IPART / 1,2,3,4/ C C DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 56 IP = IPREC ISORT = 0 C C IF STIFFNESS MATRIX NOT NEEDED GO TO PERFORM MASS CALCULATIONS C IF (ISMB(1) .EQ. 0) GOTO 400 C C MATIDC = MATID MATFLG = 1 ELTEMP = TEMPEL CALL MAT (IECPT(1)) DICT5 = GSUBE E = ESP G = GSP T = TSP IF (T*G .EQ. 0.0) GO TO 7770 C23 = 2.0/3.0 NUC = 1./(1.+NU) C C COMPUTE DIAGONAL VECTORS. C DO 10 I = 1,3 VD1(I) = GP3(I) - GP1(I) 10 VD2(I) = GP4(I) - GP2(I) C C COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE C PROJECTED AREA, PA C VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2) VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3) VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1) VKL = SQRT(VKN(1)**2 + VKN(2)**2 + VKN(3)**2) IF (VKL .EQ. 0.) GO TO 7770 VK(1) = VKN(1)/VKL VK(2) = VKN(2)/VKL VK(3) = VKN(3)/VKL PA = VKL/2. C C COMPUTE SIDES -12- AND -41- C DO 20 I = 1,3 V12(I) = GP2(I) - GP1(I) 20 V41(I) = GP1(I) - GP4(I) C C COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12, VI, C VJ C V12DK = V12(1)*VK(1) + V12(2)*VK(2) + V12(3)*VK(3) VP12(1) = V12(1) - V12DK*VK(1) VP12(2) = V12(2) - V12DK*VK(2) VP12(3) = V12(3) - V12DK*VK(3) VP12L = SQRT(VP12(1)**2 + VP12(2)**2 + VP12(3)**2) IF (VP12L .EQ. 0.) GO TO 7770 VI(1) = VP12(1)/VP12L VI(2) = VP12(2)/VP12L VI(3) = VP12(3)/VP12L VJ(1) = VK(2)*VI(3) - VK(3)*VI(2) VJ(2) = VK(3)*VI(1) - VK(1)*VI(3) VJ(3) = VK(1)*VI(2) - VK(2)*VI(1) C C NORMALIZE J FOR GOOD MEASURE C VJL = SQRT(VJ(1)**2 + VJ(2)**2 + VJ(3)**2) IF (VJL .EQ. 0.) GO TO 7770 VJ(1) = VJ(1)/VJL VJ(2) = VJ(2)/VJL VJ(3) = VJ(3)/VJL X1 = 0. Y1 = 0. X2 = VP12L Y2 = 0. X3 = VI(1)*VD1(1) + VI(2)*VD1(2) + VI(3)*VD1(3) Y3 = VJ(1)*VD1(1) + VJ(2)*VD1(2) + VJ(3)*VD1(3) X4 =-VI(1)*V41(1) - VI(2)*V41(2) - VI(3)*V41(3) Y4 =-VJ(1)*V41(1) - VJ(2)*V41(2) - VJ(3)*V41(3) C C CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES. IF NOT, C CALL FATAL ERROR MESSAGE. C IF (Y3 .LE. 0.) GO TO 7780 IF (Y4 .LE. 0.) GO TO 7800 IF (X3 .LE. Y3*X4/Y4) GO TO 7810 IF (X4 .GE. X2-(X2-X3)*Y4/Y3) GO TO 7790 C C TEST FOR PARALLEL EFFECTS. C CEP1 = ABS(Y3-Y4) CEPX = ABS(X3-X4) TEMP = X3 - X2 CEP2 = ABS(Y4*TEMP - Y3*X4) CEPY = ABS(X4*TEMP + Y4*Y3) EP = 0.010 IF (CEP1 .LT. EP*CEPX) GO TO 30 IF (CEP2 .LT. EP*CEPY) GO TO 40 GO TO 70 30 IF (CEP2 .LT. EP*CEPY) GO TO 50 C C AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO C THE LINE CONNECTING POINTS 1 AND 2. C TEMP = Y3*X4 - Y4*(X3-X2) YP = X2*Y3*Y4/TEMP P(1) = YP - Y1 P(2) = YP - Y2 P(3) = YP - Y3 P(4) = YP - Y4 XP = X2*Y3*X4/TEMP SA = (X2 - XP)/YP C = (X1 - XP)/YP Z = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))* 1 (1.+C23*NUC*(SA**2+SA*C+C**2)) GO TO 80 C C AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO C THE LINE CONNECTING POINTS 2 AND 3. C 40 D = -.5*(X4/Y4 + (X3-X2)/Y3) XQ = X4 - Y4*(X3-X4)/(Y3-Y4) TEMP = 1.0/SQRT(1.0 + D**2) P(1) = (XQ - X1 - D*Y1)*TEMP P(2) = (XQ - X2 - D*Y2)*TEMP P(3) = (XQ - X3 - D*Y3)*TEMP P(4) = (XQ - X4 - D*Y4)*TEMP TEMP = XQ - X4 B = (TEMP*D + Y4)/(TEMP - Y4*D) Z = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))* 1 (1.+C23* NUC*(B**2+B*D+D**2)) GO TO 80 C C IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM. C 50 DO 60 I = 1,4 60 P(I) = 1. D = -.5*(X4/Y4 + (X3-X2)/Y3 + (Y3-Y4)/(X3-X4)) Z = PA/(2.*G*T)*(1.+2.*D**2 * NUC) GO TO 80 C C IN THIS CASE NO PARALLEL EFFECTS EXIST. C 70 XQ = X4 - (X3-X4)/(Y3-Y4)*Y4 TEMP = Y3*X4 - Y4*(X3-X2) XP = X2*Y3*X4/TEMP YP = X2*Y3*Y4/TEMP XL = SQRT((XP-YP)**2 + YP**2) D = (XQ-XP)/YP TEMP = YP/XL P(1) = TEMP*(XQ - X1 - D*Y1) P(2) = TEMP*(XQ - X2 - D*Y2) P(3) = TEMP*(XQ - X3 - D*Y3) P(4) = TEMP*(XQ - X4 - D*Y4) C = XL/P(1) - D B = XL/P(4) - C A = XL/P(2) - D A2 = A**2 B2 = B**2 C2 = C**2 D2 = D**2 A3 = A2*A B3 = B2*B C3 = C2*C D3 = D2*D A4 = A3*A B4 = B3*B C4 = C3*C D4 = D3*D A5 = A4*A B5 = B4*B C5 = C4*C D5 = D4*D TEMP = .5*P(1)*P(2)*P(3)*P(4)/XL**2 TERM =(A + B + C23*(A3+B3) + .2 *(A5+B5))*ALOG(ABS(A+B)) TERM1=(C + D + C23*(C3+D3) + .2*(C5+D5))*ALOG(ABS(C+D)) TERM2=(B + C + C23*(B3+C3) + .2*(B5+C5))*ALOG(ABS(B+C)) TERM3=(D + A + C23*(D3+A3) + .2*(D5+A5))*ALOG(ABS(D+A)) TERM4= .1*((A2-C2)*(B3-D3)+ (B2-D2)*(A3-C3)) TERM5= .2*((A - C )*(B4-D4) + (B-D)*(A4-C4)) F = TEMP*(TERM + TERM1 - TERM2 - TERM3 + TERM4 - TERM5) Z = P(1)*P(2)/(P(3)*P(4)*2.*G*T)*(PA+4.*NUC*(F-C23*PA)) 80 XL13 = SQRT(X3**2 + Y3**2) XL24 = SQRT((X4-X2)**2 + Y4**2) SMALLU(1) = X3/XL13 SMALLU(2) = (X4-X2)/XL24 SMALLU(3) = SMALLU(1) SMALLU(4) = SMALLU(2) SMALLV(1) = Y3/XL13 SMALLV(2) = Y4/XL24 SMALLV(3) = SMALLV(1) SMALLV(4) = SMALLV(2) TEMP = X4*Y3 - X3*Y4 AVEC(1) =-.5*X2*Y4*XL13/TEMP AVEC(2) = .5*X2*Y3 *XL24/(TEMP -X2*(Y3-Y4)) AVEC(3) =-AVEC(1) AVEC(4) =-AVEC(2) C C SINCE WE ARE DEALING WITH A TWIST PANEL STORE -SMALLV IN SMALLU C AND SMALLU IN SMALLV. C DO 90 I = 1,4 TEMP = SMALLU(I) SMALLU(I) =-SMALLV(I) 90 SMALLV(I) = TEMP C DO 95 I = 1,144 95 KE(I) = 0.0 DO 230 IPVT = 1,4 CON = AVEC(IPVT)*T**2/(24.*Z) C C COMPUTE THE -VLEFT- VECTOR C IVLBEG = 1 VLEFT(1) = VI(1)*SMALLU(IPVT) + VJ(1)*SMALLV(IPVT) VLEFT(2) = VI(2)*SMALLU(IPVT) + VJ(2)*SMALLV(IPVT) VLEFT(3) = VI(3)*SMALLU(IPVT) + VJ(3)*SMALLV(IPVT) IF (IECPT(4*IPVT+5) .EQ. 0) GO TO 150 CALL TRANSS (IECPT(4*IPVT+5),TI) IVLBEG = 4 CALL GMMATS (TI,3,3,1, VLEFT(1),3,1,0, VLEFT(4)) C C COMPUTE THE 6 X 6 -S C 150 DO 220 J = 1,4 JT = (IPVT-1)*36 + (J-1)*9 + 1 IVRBEG = 1 VRIGHT(1) = SMALLU(J)*VI(1) + SMALLV(J)*VJ(1) VRIGHT(2) = SMALLU(J)*VI(2) + SMALLV(J)*VJ(2) VRIGHT(3) = SMALLU(J)*VI(3) + SMALLV(J)*VJ(3) IF (IECPT(4*J+5) .EQ. 0) GO TO 170 CALL TRANSS (IECPT(4*J+5),TI) CALL GMMATS (VRIGHT(1),1,3,0, TI,3,3,0, VRIGHT(4)) IVRBEG = 4 170 CALL GMMATS (VLEFT(IVLBEG),3,1,0, VRIGHT(IVRBEG),1,3,0, KE(JT)) JT8 = JT + 8 DO 180 K = JT,JT8 180 KE(K)= CON*KE(K)*AVEC(J) 220 CONTINUE 230 CONTINUE C C NOW REARRANGE KE BY INCREASING SIL THEN OUTPUT IT VIA EMGOUT C FIRST DETERMINE WHAT INCREASING SIL ORDER WILL BE C ASSIGN 290TO K OR M 275 CONTINUE DO 280 I = 1,3 IP1 = I + 1 IT = IPART (I) DO 270 J = IP1,4 JT = IPART(J) IF (ISILNO(IT) .LE. ISILNO(JT)) GO TO 270 IPART(I) = JT IPART(J) = IT IT = JT GO TO 275 270 CONTINUE 280 CONTINUE ISORT = 1 GO TO KORM, (290,420) C C NOW REARRANGE TERMS IN THE STIFFNESS MATRIX KE AND STORE IN KOUT C C C KE = (K ,K ,K ,K ,K ,...,K ,K ,...,K ) C 11 12 13 14 21 24 31 44 C C WHERE K IS A 3X3 SUBMATRIX AND SILS ARE IN GRID POINT ORDER C IJ C C AND ***** **** C * K K K K * C * L1L1 L1L2 L1L3 L1L4* C * * C * K K K K * C KOUT = * L2L1 L2L2 L2L3 L2L4* C * * C * K K K K * C * L3L1 L3L2 L3L3 L3L4* C * * C * K K K K * C * L4L1 L4L2 L4L3 L4L4* C **** **** C C WHERE KOUT IS A 3X3 MATRIX AND SILS ARE IN INCREASING C LILJ C ORDER C 290 CONTINUE DO 300 I = 1,4 IS = IPART(I) DO 300 J = 1,4 JS = IPART(J) DO 300 K = 1,3 DO 300 L = 1,3 IOUT = (I -1)*36 + (J -1)*3 + (K-1)*12 + L IKE = (IS-1)*36 + (JS-1)*9 + (K-1)*3 + L 300 KOUT(IOUT) = KE(IKE) C C OUTPUT THE STIFFNESS MATRIX C CALL EMGOUT (KOUT,KOUT,144,1,DICT,1,IP) C C HERE WE CALCULATE THE MASS MATRIX VIA SUBROUTINE EMASTQ C C 400 IF (ISMB(2) .EQ. 0) RETURN C CALL EMADTQ (6,ME) IF (ISORT .EQ. 1) GO TO 420 ASSIGN 420 TO KORM GO TO 275 C C RETURN WITH A GRID POINT SORT ARRAY IN IPART C C 420 DO 440 I = 1,4 IT = 1 + (IPART(I)-1)*3 IJ = (I-1)*3 + 1 MOUT(IJ ) = ME(IT ) MOUT(IJ+1) = ME(IT+1) 440 MOUT(IJ+2) = ME(IT+2) C DICT(1) = ESTID DICT(2) = 2 DICT(3) = 12 DICT(4) = 7 DICT5 = 0. C CALL EMGOUT (KOUT,KOUT,12,1,DICT,2,IP) RETURN C C ERROR EXITS C 7770 CALL MESAGE (30,26,IECPT(1)) 7777 NOGO = .TRUE. RETURN C 7780 IECPT(2) = 2 GO TO 7820 7790 IECPT(I) = 4 GO TO 7820 7800 IECPT(2) = 1 GO TO 7820 7810 IECPT(2) = 3 7820 CALL MESAGE (30,27,IECPT(1)) GO TO 7777 END ================================================ FILE: mis/type10.f ================================================ SUBROUTINE TYPE10 (X,Y,XYD,CHR,NN,OPT) C C (X,Y) = STARTING OR ENDING POINT OF THE LINE TO BE TYPED (ALWAYS C LEFT-TO-RIGHT OR TOP-TO-BOTTOM) C XYD = (+/-)1 IF X = STARTING OR ENDING POINT OF THE LINE C = (+/-)2 IF Y = STARTING OR ENDING POINT OF THE LINE C CHR = CHARACTERS TO BE TYPED C NN = NUMBER OF CHARACTERS C OPT = -1 TO INITIATE THE TYPING MODE C = +1 TO TERMINATE THE TYPING MODE C = 0 TO TYPE A LINE C INTEGER XYD,CHR(1),OPT,OPTX,A(6),TYPE,D,PLTYPE REAL XY(2,2),CSCALE COMMON /PLTDAT/ SKPPLT(2),XYMIN(2),XYMAX(15),CSCALE,SKPA(3), 1 CNTCHR(6),PLTYPE DATA A(6) , TYPE,LSTCHR / 0, 4, 48 / C IF (PLTYPE .LT. 0) GO TO 175 OPTX = -1 IF (OPT) 200,100,150 100 A(5) = IFIX(CSCALE+.44) XY(1,1) = X XY(2,1) = Y XY(1,2) = X XY(2,2) = Y N = 1 IF (N .LE. 0) N = 1 C C SCREEN OUT TRAILING BLANKS C DO 102 J = 1,NN IF (IABS(CHR(J)) .NE. 48) N = J 102 CONTINUE IF (N.EQ.1 .AND. IABS(CHR(1)).EQ.48) RETURN D = MAX0(IABS(XYD),1) S = CNTCHR(D) IF (XYD.EQ.-1 .OR. XYD.EQ.2) S = -S C C TYPE THE LINE C DO 125 J = 1,N XY(D,2) = XY(D,1) + S*FLOAT(J-1) DO 105 I = 1,2 IF (XY(I,2)+.1.LT.XYMIN(I) .OR. XY(I,2)-.1.GT.XYMAX(I)) GO TO 125 A(I+2) = XY(I,2) + .1 105 CONTINUE C C MAKE SURE EACH CHARACTER IS A VALID CHARACTER (UNLESS NN.LE.0) C K = J IF (XYD .LT. 0) K = N - J + 1 A(2) = IABS(CHR(K)) IF (NN .LE. 0) GO TO 120 IF (A(2).EQ.0 .OR. A(2).GT.LSTCHR) GO TO 125 IF (A(2) .EQ. 0) GO TO 125 C C TYPE THE CHARACTER C 120 A(1) = TYPE IF (OPTX .EQ. 0) GO TO 121 A(1) = TYPE + 10 OPTX = 0 121 CALL WPLT10 (A,0) 125 CONTINUE GO TO 200 C C TERMINATE THE TYPING MODE C 150 CALL WPLT10 (A,1) OPTX = -1 GO TO 200 C C DRAW THE LINE OF CHARACTERS C 175 CALL DRWCHR (X,Y,XYD,CHR,NN,OPT) C 200 RETURN END ================================================ FILE: mis/typflt.f ================================================ SUBROUTINE TYPFLT (X,Y,XYD,V,FIELD,OPT) C C C (X,Y) = STARTING OR ENDING POINT OF THE NUMBER TO BE TYPED (ALWAYS C LEFT-TO-RIGHT OR TOP-TO-BOTTOM). C XYD = +/-1 IF X = STARTING OR ENDING POINT OF THE NUMBER. C = +/-2 IF Y = STARTING OR ENDING POINT OF THE NUMBER. C V = REAL NUMBER TO BE TYPED. C FIELD = FIELD WIDTH OF THE NUMBER (IF POSITIVE, THE NUMBER WILL BE C CENTERED AT (X,Y) - IF NEGATIVE, THE NUMBER WILL BE TYPED C STARTING OR ENDING AT (X,Y) - IF XYD = 1 OR 2, THE NUMBER C WILL BE TYPED IN THE X OR Y DIRECTION). C OPT = -1 TO INITIATE THE TYPING MODE. C = +1 TO TERMINATE THE TYPING MODE. C = 0 TO TYPE THE NUMBER. C INTEGER PLOTER,DIR,EXP,D(9),C(100),ASTER,DECPNT,PLUS, 1 MINUS,FW,EXPFLD,TRA,XYD,FIELD,OPT DOUBLE PRECISION VAL,Z COMMON /PLTDAT/ MODEL,PLOTER,SKPPLT(18),SKPA(3),CNTX,CNTY DATA ASTER , DECPNT,PLUS,MINUS / 41,44,39,40 / DATA TENM2 , TEN7,TEN8 / 1.E-2, 1.E7, 1.E8 / C IF (OPT .EQ. 0) GO TO 20 CALL TIPE (0,0,0,0,0,OPT) GO TO 200 20 VAL = ABS(V) FW = MIN0(25,IABS(FIELD)) IF (FW .EQ. 0) GO TO 200 DO 21 I = 1,FW C(I) = 1 21 CONTINUE EXP = 0 IF (V .NE. 0.) GO TO 30 C C INPUT VALUE = 0. C FW = MIN0(FW,2) NSIG = 1 C(2) = DECPNT GO TO 150 C 30 EXPFLD = 0 IF (V .LT. 0.) GO TO 35 C C SINCE -V- IS POSITIVE, THE NUMBER WILL BE UNSIGNED. IF FIELD.GT.4, C THE NUMBER OF SIGNIFICANT DIGITS TYPED WILL BE AT LEAST -FIELD-4-. C IF FIELD.LE.4, -FIELD-1-. C NSIG = FW - 4 IF (NSIG) 40,40,100 C C SINCE -V- IS NEGATIVE, THE NUMBER WILL BE SIGNED. IF FIELD.GT.5, C THE NUMBER OF SIGNIFICANT DIGITS TYPED WILL BE AT LEAST -FIELD-5-. C IF FIELD.LE.5, -FIELD-2-. C 35 NSIG = FW - 5 IF (NSIG) 40,40,100 C C THE NUMBER WILL BE TYPED WITHOUT AN EXPONENT. C 40 NSIG = NSIG + 3 EXPFLD = 1 C C THE NUMBER MUST FIRST BE MULTIPLIED BY SOME POWER OF TEN (EXP) C SUCH THAT THE PRODUCT IS BETWEEN 10**7 AND 10**8 SO THAT IT C CAN BE EXPRESSED AS AN 8-SIGNIFICANT DIGIT INTEGER. C 100 Z = 10.D0**IABS(EXP) IF (EXP .LT. 0) A = VAL/Z IF (EXP .GE. 0) A = VAL*Z IF (A .GE. TENM2) GO TO 105 C C A .LT. 10**-2 C EXP = EXP + 10 GO TO 100 C 105 IF (A.GE.TEN7 .AND. A.LT.TEN8) GO TO 115 IF (A .LT. TEN7) GO TO 110 C C A .GE. 10**8 C EXP = EXP - 10 GO TO 100 C C A .GE. 10**-2 AND .LT. 10**7 C 110 EXP = EXP + 1 GO TO 100 C C A .GE. 10**7 AND .LT. 10**8 (SEPARATE THE 8 SIGNIFICANT DIGITS) C 115 NUM = A EXP = -EXP + 7 DO 116 I = 1,8 J = NUM/10**(8-I) D(I)= J + 1 NUM = NUM - J*10**(8-I) 116 CONTINUE IF (EXPFLD .NE. 0) GO TO 130 IF (EXP.GE.-4 .AND. EXP.LE.NSIG+2) GO TO 135 C C USE STANDARD FORMAT (-X.XXX-XX) C NSIG = MIN0(NSIG,8) ASSIGN 120 TO TRA GO TO 180 120 N = 0 IF (V .GT. 0.) GO TO 121 C(1) = MINUS N = 1 121 C(N+1) = D(1) C(N+2) = DECPNT N = N + 2 IF (NSIG .EQ. 1) GO TO 124 DO 123 I = 2,NSIG N = N + 1 C(N) = D(I) 123 CONTINUE 124 IF (EXP .GE. 0) C(N+1) = PLUS IF (EXP .LT. 0) C(N+1) = MINUS N = N + 1 NUM = IABS(EXP) DO 125 I = 1,2 J = NUM/10**(2-I) N = FW - (2-I) C(N) = J + 1 NUM = NUM - J*10**(2-I) 125 CONTINUE GO TO 150 C C STANDARD FORMAT CANNOT BE USED. C 130 IF (EXP.LT.NSIG .AND. EXP.GE.-NSIG) GO TO 136 DO 131 I = 1,FW C(I) = ASTER 131 CONTINUE GO TO 150 C C THE NUMBER CAN BE EXPRESSED WITHOUT AN EXPONENT. C 135 NSIG = MIN0(8,NSIG+3) 136 ASSIGN 137 TO TRA GO TO 180 137 N = 1 IF (V .GT. 0.) GO TO 138 C(1) = MINUS N = 2 138 IF (EXP .GE. 0) GO TO 144 C C NEGATIVE EXPONENT C J = NSIG 141 D(J+1) = D(J) J = J - 1 IF (J .NE. 0) GO TO 141 D(1) = 1 ASSIGN 142 TO TRA IF (NSIG+N .GE. FW) GO TO 180 NSIG = NSIG + 1 142 C(N+0) = D(1) C(N+1) = DECPNT N = N + 1 + IABS(EXP) DO 143 I = 2,NSIG C(N) = D(I) N = N + 1 143 CONTINUE GO TO 150 C C POSITIVE EXPONENT. C 144 ASSIGN 145 TO TRA IF (NSIG+N .GE. FW) GO TO 180 145 J = EXP + 1 DO 146 I = 1,J C(N) = D(I) N = N + 1 146 CONTINUE C(N) = DECPNT J = J + 1 IF (J .GT. NSIG) GO TO 150 DO 147 I = J,NSIG N = N + 1 C(N) = D(I) 147 CONTINUE C 150 XX = X YY = Y IF (FIELD.GT.0 .AND. NSIG.GT.1) GO TO 155 C C THE TYPED NUMBER IS NOT TO BE CENTERED AT (X,Y). C DIR = XYD GO TO 160 C C THE TYPED NUMBER IS TO BE CENTERED AT (X,Y). C 155 XY = FW/2 IF (FW/2 .EQ. (FW+1)/2) XY = XY - .5 DIR = MAX0(1,IABS(XYD)) IF (DIR .EQ. 1) XX = X - XY*CNTX IF (DIR .EQ. 2) YY = Y - XY*CNTY C C TYPE THE NUMBER. C 160 CALL TYPE10 (XX,YY,DIR,C,FW,0) GO TO 200 C C ROUND THE NUMBER. C 180 IF (NSIG .EQ. 8) GO TO 190 IF (D(NSIG+1) .LE. 5) GO TO 190 J = NSIG 181 D(J) = D(J) + 1 IF (D(J) .LE. 10) GO TO 190 D(J) = 1 J = J - 1 IF (J .NE. 0) GO TO 181 IF (D(1) .NE. 1) GO TO 190 J = NSIG - 1 182 IF (J .EQ. 0) GO TO 183 D(J+1) = D(J) J = J - 1 GO TO 182 183 D(1) = 2 EXP = EXP + 1 190 GO TO TRA, (120,137,142,145) C 200 RETURN END ================================================ FILE: mis/typint.f ================================================ SUBROUTINE TYPINT (X,Y,XYD,NUM,FIELD,OPT) C C (X,Y) = STARTING OR ENDING POINT OF THE NUMBER TO BE TYPED (ALWAYS C LEFT-TO-RIGHT OR TOP-TO-BOTTOM). C XYD = NO ACTION IF OPT IS ZERO C = (+/-)1 IF X = STARTING OR ENDING POINT OF THE NUMBER. C = (+/-)2 IF Y = STARTING OR ENDING POINT OF THE NUMBER. C NUM = INTEGER NUMBER TO BE TYPED (AT MOST 10 DIGITS). C FIELD = NO ACTION IF OPT IS ZERO C = 1 IF THE NUMBER IS TO BE CENTERED AT (X,Y). IF XYD=1 OR 2, C THE NUMBER WILL BE TYPED IN THE X OR Y DIRECTION. C = 0 OR -1 IF THE NUMBER IS TO BE TYPED STARTING OR ENDING AT C (X,Y). IF FIELD = -1, FIELD WILL BE SET TO THE NUMBER OF C DIGITS PRINTED. C OPT =-1 TO INITIATE THE TYPING MODE. C =+1 TO TERMINATE THE TYPING MODE. C = 0 TO TYPE A LINE. C INTEGER XYD,FIELD,OPT,PLOTER,ASTER,DIR,D(11) COMMON /PLTDAT/ MODEL,PLOTER,SKPPLT(18),SKPA(3),CNTX,CNTY DATA ASTER , MINUS / 41,40 / C IF (OPT .EQ. 0) GO TO 100 CALL TIPE (0,0,0,0,0,OPT) GO TO 200 C C SEPARATE THE DIGITS OF THE NUMBER (MAXIMUM OF 10). C 100 ND = -1 IF (NUM .GE. 0) GO TO 110 ND = 0 D(1) = MINUS 110 N = IABS(NUM) DO 111 I = 1,10 J = N/10**(10-I) IF (J.EQ.0 .AND. ND.LE.0) GO TO 111 IF (J .GT. 9) J = ASTER - 1 IF (ND .LE. 0) ND = ND + 1 ND = ND + 1 D(ND) = J + 1 N = N - J*10**(10-I) 111 CONTINUE IF (ND .GT. 0) GO TO 112 ND = 1 D(1) = 1 C 112 XX = X YY = Y IF (FIELD.GT.0 .AND. ND.GT.1) GO TO 120 C C THE TYPED NUMBER IS NOT TO BE CENTERED AT (X,Y). C DIR = XYD IF (FIELD .LT. 0) FIELD = ND GO TO 150 C C THE TYPED NUMBER MUST BE CENTERED AT (X,Y). C 120 XY = ND/2 IF (ND/2 .EQ. (ND+1)/2) XY = XY - .5 DIR = MAX0(IABS(XYD),1) IF (DIR.EQ.1) XX = X - XY*CNTX IF (DIR.EQ.2) YY = Y - XY*CNTY C C TYPE THE NUMBER. C 150 CALL TYPE10 (XX,YY,DIR,D,ND,0) GO TO 200 C 200 RETURN END ================================================ FILE: mis/umfzdd.f ================================================ SUBROUTINE UMFZDD C C SUBROUTINE TO INITIALIZE COMMON /UMFZZZ/ USED BY UMFEDT. C INTEGER KT,TID1,TID2,PID1,NO,LL LOGICAL AGAIN,T1,T2,END1 COMMON /UMFZZZ/ AGAIN,T1,T2,KT,TID1,TID2,PID1,END1,NO,LL C AGAIN = .FALSE. T1 = .FALSE. T2 = .FALSE. KT = 0 TID1 = -1 TID2 = -1 PID1 = -1 END1 = .FALSE. NO = 0 LL = 0 C RETURN END ================================================ FILE: mis/unpscr.f ================================================ SUBROUTINE UNPSCR (IN,OUT,Z,BUF1,BUF2,MAXZ,TYSIGN,FLAG) C C THIS ROUTINE UNPACKS A MATRIX (IN), AND TRANSFER THE DATA FROM C FIRST TO LAST NON-ZERO TERMS TO A SCRATCH FILE (OUT) IN VERY LARGE C RECORD(S), PRECEEDED BY THE FIRST AND LAST NON-ZERO TERM POINTERS. C C INPPUT - IN, + 7 TRAILER WORDS (WORDS 4,5,6, AND 7 WILL BE C OVERWRITTEN) C Z, BUF1, BUF2, MAXZ, TYSIGN, AND FLAG C OUTPUT - OUT, NO TRAILER WORD WRITTEN C IN(4) = 10*(NO. OF RECONDS WRITTEN, HEADER RECORD C EXCLUDED) + FLAG C IN(5) = DATA WORD TYPE UNPACKED (= 1,2,OR 4) C IN(6) = TOTAL NO. OF S.P. WORDS USED FOR INPUT MATRIX C IN FORWARD UNPACK PASS C IN(7) = OUTPUT GINO NUMBER C C FLAG = 1, THE MATRIX IS UNPACKED ONCE, IN FORWARD DIRECTION, THIS C MATRIX CAN BE IN GENERAL FORM; NEEDS NOT BE TRIANGULAR. C FLAG = 2, THE MATRIX IS UNPACKED FORWARD AND BACKWARD C FLAG = 3, THE MATRIX IS ADVANCED TO THE END AND UNPACKED BACKWARD C ONCE AND THEN FORWARD C MAXZ = n, WHERE n IS THE UPER LIMIT OF THE RECORD SIZE TO BE C WRITTEN (5000 MINIMUM). C = 0 OR LESS, OUTPUT WILL BE WRITTEN OUT IN EITHER ONE OR TWO C LONG RECORDS (ONE EACH FOR FORWARD AND BACKWARD UNPACK) C Z = WORKING SPACE, MINIMUM SIZE = ROW + 2 WORDS C TYSIGN = (-4,-3,...,+4), IS TYPE AND SIGN FOR INPUT MATRIX UNPACK C NO TYPE AND SIGN CHANGE IF TYSIGN = 0. C BUF1, BUF2 = TWO GINO BUFFERS C SUBROUTINE DEBUG CAN BE ACTIVATED BY DIAG 11 OR 16 C C ASSUME MATRIX IN(5x5) = a 0 0 0 0 C b e 0 0 0 C c f g 0 0 C d 0 h j 0 C 0 0 i k l C C OUTPUT FILE OUT WILL HAVE THE FOLLOWING DATA (PRECEEDED BY HEADER C RECORD) C C FLAG 1 - 1 4 a b c d 2 3 e f 3 5 g h i 4 5 j k 5 5 l C FLAG 2 - 1 4 a b c d 2 3 e f 3 5 g h i 4 5 j k 5 5 l C 5 5 l 4 5 j k 3 5 g h i 2 4 e f 1 4 a b d c C FLAG 3 - 5 5 l 4 5 j k 3 5 g h i 2 3 e f 1 4 a b c d C 1 4 a b c d 2 3 e f 3 5 g h i 4 5 j k 5 5 l C C WHERE a thru l MAY BE SP, DP, CSP, OR CDP DATA C C IF INPUT MATRIX IS VERY LARGE, THERE WILL BE SEVERAL LONG RECORDS C FOR EACH UNPACK PASS, AND EACH RECORD WILL NOT EXCEED MAXZ IN C LENGTH. MINIMUM OF MAXZ IS 5000. IF MAXZ IS NOT GIVEN, EACH UNPACK C PASS WILL GO TO ONE VERY VERY LONG RECORD. IN THIS CASE, MAXZ IS C SET TO 2**31 C C THE PURPOSE OF THIS ROUTINE IS TO AVOID UNPACKING A MATRIX TOO C MANY TIMES, WHILE THE MATRIX IS BEING USED REPEATEDLY. C SEE FBSII (REPEATEDLY CALLED BY FBS), FRBK2 (REPEATEDLY CALLED C BY FNXTVC), AND FRMLTD (REPEATED CALLED BY FRBK2 AND FNXTVC) IN C USING THIS NEW DATA FORMAT. C C WRITTEN BY G.CHAN/UNISYS 11/1991 C C COMMENTS FROM G.C. 3/93 C THE PRESENT UNPSCR ASSUMES THE MATRIX IS QUIT DENSE, SUCH AS THE C LOWER OR UPPER TRIANGULAR FACTORS. IF MATRIX IS SPARSE, SAY 33 C PERCENT OF LESS, WE COULD WRITE THE MATRIX OUT ANOTHER WAY AND C SAVE LOTS OF DISC SPACE. WE COULD WRITE THE FIRST TO LAST NON-ZERO C TERMS IN STRING FORMS SIMILAR TO OUTPUT4 MODULE. THIS IMPROVEMENT C WILL BE LEFT FOR NEXT PROJECT. C IMPLICIT INTEGER (A-Z) LOGICAL FLAG23,DEBUG INTEGER IN(7),Z(3),NAM(2),TYIIJJ(4),SAVE(4) CHARACTER*8 FBWD,FORWD,BACKWD CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ SYSBUF,NOUT COMMON /UNPAKX/ TYPE,II,JJ,INCR COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW COMMON /TYPE / RC(2),WORDS(4) EQUIVALENCE (TYPE,TYIIJJ(1)) DATA FORWD , BACKWD / 'FORWARD','BACKWARD'/ DATA NAM / 4HUNPS , 2HCR / C IF (FLAG.LT.1 .OR. FLAG.GT.3 .OR. IN(1).EQ.OUT) GO TO 300 CALL SSWTCH (11,I) CALL SSWTCH (16,J) DEBUG = .FALSE. IF (I+J .GE. 1) DEBUG = .TRUE. MAX = MAXZ IF (MAX .LE. 0) MAX = 1073741824 IF (DEBUG) WRITE (NOUT,5) UIM 5 FORMAT (A29,', UNPSCR DEBUG, ACTIVATED BY DIAG 11 AND/OR 16') IF (MAX .LT. 5000) GO TO 280 FLAG23 = FLAG.EQ.2 .OR. FLAG.EQ.3 DO 10 I = 1,4 10 SAVE(I) = TYIIJJ(I) TYPE = IN(5) NL = IN(2) IF (TYSIGN.NE.0 .AND. IABS(TYSIGN).LE.4) TYPE = TYSIGN NWDS = WORDS(IABS(TYPE)) IF (DEBUG) WRITE (NOUT,15) IN(1),OUT,MAXZ,MAX,FLAG,NL,TYPE,NWDS 15 FORMAT (5X,'UNPSCR/@15 IN,OUT,MAXZ,MAX,FLAG,NL,TYPE,NWDS = ', 1 2I5,2I12,I4,I7,2I4) INCR = 1 FORM = IN(4) IF (FLAG23 .AND. FORM.NE.4 .AND. FORM.NE.5) GO TO 260 C LOWER AND UPPER TRIANGULAR FACTORS C FILE = OUT CALL GOPEN (OUT,Z(BUF2),WRTREW) FILE = IN(1) CALL OPEN (*200,IN,Z(BUF1),RDREW) NREC = 0 IF (FLAG .EQ. 3) GO TO 90 20 CALL FWDREC (*210,IN) C C UNPACK FORWARD C FBWD = FORWD TOT = 0 SUM = 0 DO 80 I = 1,NL II = 0 CALL UNPACK (*60,IN,Z(3)) IF (FLAG23 .AND. II.NE.I) GO TO 220 30 Z(1) = II Z(2) = JJ LL = (JJ-II+1)*NWDS + 2 TOT = TOT + LL SUM = SUM + LL IF (SUM .LE. MAX) GO TO 50 NREC = NREC + 1 CALL WRITE (OUT,0,0,1) SUM = SUM - LL IF (DEBUG) WRITE (NOUT,40) NREC,SUM,FBWD 40 FORMAT (5X,'UNPSCR WROTE RECORD',I5,', NO. OF WORDS =',I9,2X,A8) SUM = LL 50 CALL WRITE (OUT,Z(1),LL,0) GO TO 80 60 IF (FLAG23) GO TO 240 II = I JJ = I DO 70 K = 3,6 70 Z(K) = 0 GO TO 30 80 CONTINUE NREC = NREC + 1 CALL WRITE (OUT,0,0,1) IF (DEBUG) WRITE (NOUT,40) NREC,SUM,FBWD IF (FLAG .NE. 2) GO TO 150 CALL BCKREC (IN) GO TO 100 C 90 CALL SKPREC (IN,NL) C C UNPACK BACKWARD C 100 FBWD = BACKWD SUM = 0 I = NL DO 120 J = 1,NL II = 0 CALL UNPACK (*240,IN,Z(3)) IF (II .NE. I) GO TO 220 Z(1) = II Z(2) = JJ LL = (JJ-II+1)*NWDS + 2 SUM = SUM + LL IF (SUM .LE. MAX) GO TO 110 NREC = NREC + 1 CALL WRITE (OUT,0,0,1) SUM = SUM - LL IF (DEBUG) WRITE (NOUT,40) NREC,SUM,FBWD SUM = LL 110 CALL WRITE (OUT,Z(1),LL,0) CALL BCKREC (IN) CALL BCKREC (IN) 120 I = I - 1 NREC = NREC + 1 CALL WRITE (OUT,0,0,1) IF (DEBUG) WRITE (NOUT,40) NREC,SUM,FBWD IF (FLAG .EQ. 3) GO TO 20 C C END OF UNPACKING C C CHANGE LAST 4 WORDS OF THE INPUT MATRIX TRAILER. PARTICULARY, SET C THE 7TH WORD TO NEGATIVE. NOTE, IF FLAG IS 2 OR 3, IN(4) AND IN(6) C TRAILER WORDS HOLD HALF OF THE ACTUAL VALUES. C NOTE - SINCE WRTTRL IS NOT CALLED TO REGISTER THESE TRAILER WORD C CHANGES, THE TRAILER WORDS ARE INTENDED FOR THE ROUTINE TO BE C EXECUTE NEXT. ALSO NOTE THAT OUTPUT FILE HAS NO TRAILER. C LASTLY, WE NEED TO RESTORE ORIGINAL WORDS IN /UNPAKX/ PREVIOUSLY C SAVED. C 150 CALL CLOSE (IN, REW) CALL CLOSE (OUT,REW) IN(7) =-OUT IN(6) = TOT IN(5) = NWDS I = NREC IF (.NOT.FLAG23) GO TO 160 I = NREC/2 TOT = TOT*2 160 IN(4) = 10*I + FLAG DO 170 I = 1,4 170 TYIIJJ(I) = SAVE(I) IF (.NOT.DEBUG) GO TO 350 WRITE (NOUT,180) UIM,TOT,NREC,NL,IN(3) 180 FORMAT (A29,1H,,I10,' S.P. WORDS MOVED TO SCRATCH FILE BY UNPSCR', 1 /5X,'IN',I5,' RECORDS.', 5X,'INPUT MATRIX =',I8,3H BY,I7) GO TO 350 C 200 J = -1 GO TO 330 210 J = -2 GO TO 330 220 WRITE (NOUT,230) SFM,I,II,JJ,FBWD,FLAG 230 FORMAT (A25,', I & II MISMATCH ',3I6,3H /,A8,I9) GO TO 320 240 WRITE (NOUT,250) I,FBWD,FLAG 250 FORMAT ('0*** NULL COLUMN ENCOUNTERED IN TRIANGULAR FACTOR. ', 1 'COLUMN',I7,3X,A8,I9) GO TO 320 260 CALL FNAME (IN(1),IN(2)) WRITE (NOUT,270) IN(2),IN(3),FORM,FLAG 270 FORMAT ('0*** INPUT MATRTIX ',2A4,' IS NOT A TRIANGULAR FACTOR.', 1 ' FORM,FLAG =',2I4) CALL ERRTRC ('UNPSCR ',270) 280 WRITE (NOUT,290) MAXZ 290 FORMAT ('0*** MAXZ ERROR ',I9,' (TOO SMALL)') CALL ERRTRC ('UNPSCR ',290) GO TO 320 300 WRITE (NOUT,310) SFM,FLAG,IN(1),OUT 310 FORMAT (A25,', FLAG,IN(1),OUT =',3I5) 320 J = -37 330 CALL MESAGE (J,FILE,NAM) C 350 IF (DEBUG) WRITE (NOUT,360) 360 FORMAT (' ... UNPSCR DEBUG ENDS',/) RETURN END ================================================ FILE: mis/upart.f ================================================ SUBROUTINE UPART (USET,SCR1,MAJOR,SUB0,SUB1) C C UPART ALONG WITH MPART WILL PERFORM A SYMMETRIC PARTITION OF A C MATRIX C INTEGER USET,SCR1,MAJOR,SUB0,SUB1,RULE,PVECT,USET1 C COMMON /PARMEG/ IA(7),IA11(7),IA12(7),IA21(7),IA22(7),LCORE,RULE COMMON /PATX / LC,N1,N2,N3,USET1,PVECT(7) COMMON /ZZZZZZ/ CORE(1) C C USET1 = USET C C TRANSFER OF PVECT TRAILER AS LOADED BY CALCV IS NOW BY /PATX/ C RULE = 0 LC = KORSZ(CORE) LCORE = LC CALL CALCV (SCR1,MAJOR,SUB0,SUB1,CORE) N4 = N2 + N3 IA11(2) = N1 IA11(3) = N1 IA21(2) = N4 IA21(3) = N1 IA21(4) = 2 IA12(2) = N1 IA12(3) = N4 IA12(4) = 2 IA22(2) = N4 IA22(3) = N4 10 RETURN C C ENTRY MPART (IA1,IA111,IA121,IA211,IA221) C ========================================= C IA(1) = IA1 CALL RDTRL (IA) IF (IA(1)) 10,20,20 20 IA11(1) = IA111 IA12(1) = IA121 IA21(1) = IA211 IA22(1) = IA221 IA11(4) = IA(4) IA11(5) = IA(5) IA21(5) = IA(5) IA12(5) = IA(5) IA22(4) = IA(4) IA22(5) = IA(5) CALL PARTN (PVECT,PVECT,CORE) DO 40 I = 1,4 J = (I-1)*7 + 1 IF (IA11(J)) 30,40,30 30 CALL WRTTRL (IA11(J)) 40 CONTINUE GO TO 10 END ================================================ FILE: mis/upcase.f ================================================ SUBROUTINE UPCASE (BYTE,N) C C THIS ROUTINE CHANGES ALL LOWER CASE CHARACTERS INTO UPPER CASE. C IT ALSO CONVERTS BCD INPUT CODE TO EBCDIC FOR IBM MACHINE C LOGICAL FLAG INTEGER TAB(20), FFFLAG CHARACTER*1 BYTE(1), BK1, LA, LZ, IL, 1 IC, IP, LC(256) CHARACTER*56 KC(5) COMMON /MACHIN/ MACHX COMMON /UPCASX/ FLAG, ID, IA, IZ COMMON /XECHOX/ FFFLAG EQUIVALENCE (KC(1),LC(1)) C C TAB = UPPER CASE 'A' TO LOWER CASE 'a' SPAN C DATA TAB / +32, -64, +32, +3968, +32, +32, +32, +32 , 1 +32, +32, +32, +32, +32, +32, +32, +32 , 2 +32, +32, +32, +32 / DATA BK1, LA, LZ, IL, IC / 1 ' ', 'A', 'Z', '(', ',' / DATA IP / '%' / C C TAB IS DECIMAL VALUE BETWEEN UPPER CASE 'A' AND LOWER CASE 'a' C TAB IS POSITIVE IF LOWER CASE 'a' COMES AFTER UPPER CASE 'A' IN C MACHINE ASCII CHARACTER SET; OTHERWISE TAB IS NEGATIVE. C C THE FOLLOWING KC TABLE MUST BE PUNCHED IN EBCDIC CODE (FOR IBM C ONLY) ======= =========== C DATA KC / 1 ' ', 2 ' .)(+ + $*) -/ ,(% ', 3 ' =''''= ABCDEFGHI JKLMNOPQR STUVWX', 4 'YZ ABCDEFGHI JKLMNOPQR ', 5 ' STUVWXYZ 0123456789 WRITTEN BY G.CHAN/UNISYS'/ C IF (MACHX .EQ. 2) GO TO 30 IF (FLAG) GO TO 10 FLAG =.TRUE. ID = TAB(MACHX) IA = ICHAR(LA) + ID IZ = ICHAR(LZ) + ID C 10 DO 20 I = 1,N IF (BYTE(I) .EQ. BK1) GO TO 20 J = ICHAR(BYTE(I)) IF (J.LT.IA .OR. J.GT.IZ) GO TO 20 BYTE(I) = CHAR(J-ID) 20 CONTINUE RETURN C C IBM MACHINE ONLY, WHICH USES EBCDIC CODE C 30 DO 40 I = 1,N J = ICHAR(BYTE(I)) 40 BYTE(I) = LC(J+1) C C THE % SIGN MAY BE CHANGED TO ( IN BCD-EBCDIC CONVERSION, C CHANGE IT BACK TO % C IF (FFFLAG.NE.1234 .OR. N.LT.5) RETURN DO 50 I = 5,N IF (BYTE(I).EQ.IL .AND. BYTE(I+1).EQ.IL .AND. (BYTE(I-1).EQ.IC 1 .OR. BYTE(I-1).EQ.BK1)) BYTE(I) = IP 50 CONTINUE RETURN END ================================================ FILE: mis/usrmsg.f ================================================ SUBROUTINE USRMSG (I) C C USRMSG WILL PRINT THE INDICATED USER LEVEL ERROR MESSAGE C INTEGER A,B,C,D,E,F,UO,UM,US,UR,UL,L,P1,P2,OUTTAP,BLANK, 1 BCD(5) DIMENSION ITYPE(6),LIST(10),ICRIGD(4),NAME(2) CHARACTER QUAD4*6,TRIA3*6,INTER*8,EXTER*8,EXIN*8 CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /SYSTEM/ SYSBUF,OUTTAP COMMON /MACHIN/ MACH COMMON /MSGX / N,M,MSG(4,1) DATA BLANK / 3H /, LIMIT / 234 /, I2015 / 0 / DATA BCD / 4H UM, 4H US, 4H UO, 4HUAUR, 4HUAUL / DATA ITYPE / 4HDARE, 4HA , 4HDELA, 4HY , 4HDPHA, 4HSE / DATA ICRIGD/ 1H1 , 1H2 , 1H3 , 1HR / DATA LIST / 15, 41, 79,103, 117, 137, 199, 211, 212, 215 / DATA AX,RG / 2HAX, 2HRG / , NAME / 4HUSRM,4HSG / DATA INTER / 'INTERNAL' / , EXTER / 'EXTERNAL' / DATA QUAD4 , TRIA3 / 'CQUAD4', 'CTRIA3' / C C L = MSG(2,I) P1 = MSG(3,I) P2 = MSG(4,I) IF (L.LE.0 .OR. L.GT.LIMIT) GO TO 9000 DO 800 J = 1,10 IF (L .EQ. LIST(J)) GO TO 810 800 CONTINUE J = 2 IF (L .EQ. 92) J = 4 IF (L .NE. 15) GO TO 820 J = 3 IF (I2015 .GT. 4) J = 1 IF (I2015 .GE. 31) J = 0 GO TO 820 810 J = 3 820 CALL PAGE2 (J) LOCAL = L - 120 IF (LOCAL .GT. 0) GO TO 830 GO TO (01,002,003,004,005,006,007,008,009,010,011,012,013,014,015, 1 016,017,018,019,020,021,022,023,024,025,026,027,028,029,030, 2 031,032,033,034,035,036,037,038,039,040,041,042,043,044,045, 3 046,047,048,049,050,051,052,053,054,055,056,057,058,059,060, 4 061,062,063,064,065,066,067,068,069,070,071,072,073,074,075, 5 076,077,078,079,080,081,082,083,084,085,086,087,088,089,090, 6 091,092,093,094,095,096,097,098,099,100,101,102,103,104,105, 7 106,107,108,109,110,111,112,113,114,115,116,117,118,119,120 8 ), L 830 GO TO(121,122,123,124,125,126,127,128,129,130,131,132,133,134,135, 9 136,137,138,139,140,141,142,143,144,145,146,147,148,149,150, * 151,152,153,154,155,156,157,158,159,160,161,162,163,164,165, A 166,167,168,169,170,171,172,173,174,175,176,177,178,179,180, B 181,182,183,184,185,186,187,188,189,190,191,192,193,194,195, C 196,197,198,199,200,201,202,203,204,205,206,207,208,209,210, D 211,212,213,214,215,216,217,218,219,220,221,222,223,224,225, E 226,227,228,229,230,231,232,233,234), LOCAL 1 WRITE (OUTTAP,1010) UFM,P1 GO TO 5500 2 WRITE (OUTTAP,1020) SFM,P1 GO TO 5500 3 WRITE (OUTTAP,1030) UFM,P2,P1 GO TO 5500 4 WRITE (OUTTAP,1040) UFM,P2,P1 GO TO 5500 5 WRITE (OUTTAP,1050) SFM GO TO 5500 6 WRITE (OUTTAP,1060) UFM,P1,P2 GO TO 5500 7 WRITE (OUTTAP,1070) UFM,P1,P2 GO TO 5500 8 WRITE (OUTTAP,1080) UFM,P1,P2 GO TO 5500 9 WRITE (OUTTAP,1090) UFM,P1,P2 GO TO 5500 10 WRITE (OUTTAP,1100) UFM,P1,P2 GO TO 5500 11 WRITE (OUTTAP,1110) UFM,P1,P2 GO TO 5500 12 WRITE (OUTTAP,1120) UFM,P1 GO TO 5500 13 WRITE (OUTTAP,1130) UWM GO TO 5600 14 WRITE (OUTTAP,1140) UFM GO TO 5500 15 I2015 = I2015 + 1 IF (I2015 .EQ. 30) WRITE (OUTTAP,1152) IF (I2015 .GE. 30) GO TO 5600 IF (I2015 .EQ. 4) WRITE (OUTTAP,1153) EXIN = INTER IF (P2 .NE. 0) EXIN = EXTER IF (P2 .NE. 0) P1 = P2 IF (I2015 .LE. 3) WRITE (OUTTAP,1150) UWM,EXIN,P1 IF (I2015 .GT. 3) WRITE (OUTTAP,1151) UWM,EXIN,P1 GO TO 5600 16 WRITE (OUTTAP,1160) UFM GO TO 5500 17 WRITE (OUTTAP,1170) UFM,P1 GO TO 5500 18 WRITE (OUTTAP,1180) UFM,P1 GO TO 5500 19 WRITE (OUTTAP,1190) UFM,P1 GO TO 5500 20 WRITE (OUTTAP,1200) UFM,P1 GO TO 5500 21 WRITE (OUTTAP,1210) UFM GO TO 5500 22 WRITE (OUTTAP,1220) UFM GO TO 5500 23 WRITE (OUTTAP,1230) UFM,P1 GO TO 5500 24 WRITE (OUTTAP,1240) GO TO 5600 25 WRITE (OUTTAP,1250) UFM,P1 GO TO 5500 26 WRITE (OUTTAP,1260) UFM,P1 GO TO 5500 27 WRITE (OUTTAP,1270) UFM,P1,P2 GO TO 5500 28 WRITE (OUTTAP,1280) UFM,P1 GO TO 5500 29 WRITE (OUTTAP,1290) UFM,P1 GO TO 5500 30 WRITE (OUTTAP,1300) UFM GO TO 5500 31 WRITE (OUTTAP,1310) UFM,P1 GO TO 5500 32 WRITE (OUTTAP,1320) UFM,P1 GO TO 5500 33 WRITE (OUTTAP,1330) UFM,P1 GO TO 5500 34 WRITE (OUTTAP,1340) SFM,P1 GO TO 5500 35 WRITE (OUTTAP,1350) UFM,P1 GO TO 5500 36 WRITE (OUTTAP,1360) UFM,P1 GO TO 5500 37 WRITE (OUTTAP,1370) UFM,P1 GO TO 5500 38 WRITE (OUTTAP,1380) SFM,P1 GO TO 5500 39 WRITE (OUTTAP,1390) UFM,P2,P1 GO TO 5500 40 WRITE (OUTTAP,1400) UFM,P1 GO TO 5500 41 WRITE (OUTTAP,1410) UFM,P1 GO TO 5500 42 WRITE (OUTTAP,1420) UFM,P2,P1 GO TO 5500 43 WRITE (OUTTAP,1430) UFM,P1 GO TO 5500 44 WRITE (OUTTAP,1440) UFM,P1 GO TO 5500 45 WRITE (OUTTAP,1450) UFM,P1 GO TO 5500 46 WRITE (OUTTAP,1460) UFM,P1 GO TO 5500 47 WRITE (OUTTAP,1470) UFM,P1 GO TO 5500 48 WRITE (OUTTAP,1480) UFM,P1,P2 GO TO 5500 49 WRITE (OUTTAP,1490) UFM,P1 GO TO 5500 50 WRITE (OUTTAP,1500) UFM,P1 GO TO 5500 51 WRITE (OUTTAP,1510) UFM,P1,P2 GO TO 5500 52 WRITE (OUTTAP,1520) UFM,P1,P2 GO TO 5500 53 WRITE (OUTTAP,1530) UFM,P1 GO TO 5500 54 WRITE (OUTTAP,1540) UFM,P1,P2 GO TO 5500 55 WRITE (OUTTAP,1550) SFM GO TO 5500 56 WRITE (OUTTAP,1560) UFM,P1 GO TO 5500 57 WRITE (OUTTAP,1570) UFM,P1 GO TO 5500 58 WRITE (OUTTAP,1580) UWM,P1 GO TO 5600 59 WRITE (OUTTAP,1590) UFM,P2,P1 GO TO 5500 60 WRITE (OUTTAP,1600) UFM,P2,P1 GO TO 5500 61 WRITE (OUTTAP,1610) UFM,P2,P1 GO TO 5500 62 WRITE (OUTTAP,1620) UFM,P2,P1 GO TO 5500 63 WRITE (OUTTAP,1630) UFM GO TO 5500 64 WRITE (OUTTAP,1640) UFM,P1 GO TO 5500 65 WRITE (OUTTAP,1650) UFM,P1 GO TO 5500 66 WRITE (OUTTAP,1660) UFM,P1 GO TO 5500 C***** C DETERMINE NONLINEAR LOAD TYPE AND NONLINEAR LOAD SET ID C***** 67 LDTYPE = P2 / 100000000 LDSET = P2 - 100000000*LDTYPE WRITE (OUTTAP,1670) UFM,P1,LDTYPE,LDSET GO TO 5500 68 WRITE (OUTTAP,1680) UFM,P1,P2 GO TO 5500 69 WRITE (OUTTAP,1690) UFM,P1,P2 GO TO 5500 70 WRITE (OUTTAP,1700) UFM,P1,P2 GO TO 5500 C***** C DETERMINE TYPE OF UNDEFINED SET (DAREA, DELAY OR DPHASE) C***** 71 INDEX = P2 / 100000000 P2 = P2 - 100000000*INDEX INDEX = 2*INDEX - 1 WRITE (OUTTAP,1710) UFM,P1,ITYPE(INDEX),ITYPE(INDEX+1),P2 GO TO 5500 72 WRITE (OUTTAP,1720) SWM,P1,P2 GO TO 5600 73 WRITE (OUTTAP,1730) UIM,P1,P2 GO TO 5500 74 WRITE (OUTTAP,1740) UFM,P1 GO TO 5500 75 WRITE (OUTTAP,1750) UFM,P1,P2 GO TO 5500 76 WRITE (OUTTAP,1760) UWM GO TO 5600 77 WRITE (OUTTAP,1770) UWM GO TO 5600 78 WRITE (OUTTAP,1780) UWM GO TO 5600 79 WRITE (OUTTAP,1790) UWM GO TO 5600 80 WRITE (OUTTAP,1800) UWM GO TO 5600 81 WRITE (OUTTAP,1810) UFM GO TO 5500 82 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 83 WRITE (OUTTAP,1830) UFM GO TO 5500 84 WRITE (OUTTAP,1840) UFM,P1 GO TO 5500 85 WRITE (OUTTAP,1850) UIM,P1,P2 GO TO 5600 86 WRITE (OUTTAP,1860) UIM,P1 GO TO 5600 87 WRITE (OUTTAP,1870) SFM GO TO 5500 88 WRITE (OUTTAP,1880) UFM,P1 GO TO 5500 89 WRITE (OUTTAP,1890) UFM,P1 GO TO 5500 90 WRITE (OUTTAP,1900) SFM,P1 GO TO 5500 91 WRITE (OUTTAP,1910) SFM,P1 GO TO 5500 92 WRITE (OUTTAP,1920) SWM,P1,P2 GO TO 5600 93 WRITE (OUTTAP,1930) UFM,P1,P2 GO TO 5500 94 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 95 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 96 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 97 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 98 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 99 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 100 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 101 J = P2/10 A = P2 - 10*J K = BLANK IF (A .NE. 0) K = A JA = J/10 B = J - 10*JA UM = BLANK IF (B .NE. 0) UM = BCD(1) JB = JA/10 C = JA - 10*JB US = BLANK IF (C .NE. 0) US = BCD(2) JC = JB/10 D = JB - 10*JC UO = BLANK IF (D .NE. 0) UO = BCD(3) JD = JC/10 E = JC - 10*JD UR = BLANK IF (E .NE. 0) UR = BCD(4) JF = JD/10 F = JD - 10*JF UL = BLANK IF (F .NE. 0) UL = BCD(5) IF (A .EQ. 0) WRITE (OUTTAP,2011) UFM,P1,UM,US,UO,UR,UL IF (A .NE. 0) WRITE (OUTTAP,2010) UFM,P1,K,UM,US,UO,UR,UL GO TO 5500 102 WRITE (OUTTAP,2020) UWM,P2,P1 GO TO 5600 103 WRITE (OUTTAP,2030) SFM GO TO 5500 104 WRITE (OUTTAP,2040) UFM,P1 GO TO 5500 105 WRITE (OUTTAP,2050) UFM,P1,P2 GO TO 5500 106 WRITE (OUTTAP,2060) UFM,P1 GO TO 5500 107 WRITE (OUTTAP,2070) UFM,P1,P2 GO TO 5500 108 WRITE (OUTTAP,2080) UFM,P1,P2 GO TO 5500 109 WRITE (OUTTAP,2090) UFM GO TO 5500 110 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 111 WRITE (OUTTAP,2110) UWM,P1 GO TO 5600 112 WRITE (OUTTAP,2120) UFM,P1 GO TO 5500 113 WRITE (OUTTAP,2130) UFM,P1 GO TO 5500 114 WRITE (OUTTAP,2140) UFM,P1 GO TO 5500 115 WRITE (OUTTAP,2150) UFM,P1,P2 GO TO 5500 116 WRITE (OUTTAP,2160) SFM,P2,P1 GO TO 5500 117 WRITE (OUTTAP,2170) UFM,P1 GO TO 5500 118 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 119 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 120 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 121 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 122 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 123 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 124 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 125 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 126 WRITE (OUTTAP,2260) UFM,P1 GO TO 5500 127 WRITE (OUTTAP,2270) SFM,P1 GO TO 5500 128 WRITE (OUTTAP,2280) SFM,P1 GO TO 5500 129 WRITE (OUTTAP,2290) SFM,P1 GO TO 5500 130 WRITE (OUTTAP,2300) UFM GO TO 5500 131 WRITE (OUTTAP,2131) UFM,P1 GO TO 5500 132 WRITE (OUTTAP,2132) UFM GO TO 5500 133 WRITE (OUTTAP,2133) UFM,P1 GO TO 5500 134 WRITE (OUTTAP,2134) UFM,P1 GO TO 5500 135 WRITE (OUTTAP,2135) UFM,P1,P2 GO TO 5500 136 WRITE (OUTTAP,2136) UFM,P1 GO TO 5500 137 WRITE (OUTTAP,2137) UFM,P1,P2 GO TO 5500 138 WRITE (OUTTAP,2138) UFM,P1 GO TO 5500 139 WRITE (OUTTAP,2139) UFM,P1,P2 GO TO 5500 140 WRITE (OUTTAP,2400) UFM,P1 GO TO 5500 141 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 142 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 143 WRITE (OUTTAP,2143) UFM,P1 GO TO 5600 144 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 145 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 146 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 147 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 148 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 149 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 150 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 151 INDEX = P2 / 100000000 P2 = P2 - INDEX*100000000 WRITE (OUTTAP,2510) UFM,P1,ICRIGD(INDEX),P2 GO TO 5500 152 WRITE (OUTTAP,2520) UFM GO TO 5500 153 WRITE (OUTTAP,2530) UFM GO TO 5500 154 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 155 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 156 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 157 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 158 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 159 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 160 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 161 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 162 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 163 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 164 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 165 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 166 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 167 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 168 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 169 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 170 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 171 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 172 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 173 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 174 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 175 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 176 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 177 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 178 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 179 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 180 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 181 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 182 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 183 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 184 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 185 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 186 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 187 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 188 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 189 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 190 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 191 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 192 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 193 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 194 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 195 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 196 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 197 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 198 WRITE (OUTTAP,2980) UFM,P1 GO TO 5500 199 WRITE (OUTTAP,2990) SFM,P1,P2 GO TO 5500 200 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 201 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 202 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 203 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 204 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 205 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 206 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 207 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 208 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 209 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 210 WRITE (OUTTAP,5000) L,P1,P2 GO TO 5600 211 WRITE (OUTTAP,3211) UFM,P1 GO TO 5500 212 WRITE (OUTTAP,3212) UFM,P1 GO TO 5500 213 WRITE (OUTTAP,3213) UFM,P1 GO TO 5500 214 WRITE (OUTTAP,3214) UFM,P2,P2,P1 GO TO 5500 215 WRITE (OUTTAP,3215) UFM,P1,P2 GO TO 5500 216 WRITE (OUTTAP,3216) UFM,P2,P2,P1 GO TO 5500 217 WRITE (OUTTAP,3217) UFM,P1 GO TO 5500 218 WRITE (OUTTAP,3218) UFM,P2,AX,P1 GO TO 5500 219 WRITE (OUTTAP,3219) UFM GO TO 5500 220 WRITE (OUTTAP,3220) UIM,P1,P2 GO TO 5600 221 WRITE (OUTTAP,3218) UFM,P2,RG,P1 GO TO 5500 222 WRITE (OUTTAP,3222) UWM,P1,P2 GO TO 5600 223 WRITE (OUTTAP,3223) SFM,TRIA3,P1 GO TO 5500 224 WRITE (OUTTAP,3224) UFM,TRIA3,P1 GO TO 5500 225 WRITE (OUTTAP,3225) UFM,P2,TRIA3,P1 GO TO 5500 226 WRITE (OUTTAP,3226) UFM,P2,TRIA3,P1 GO TO 5500 227 WRITE (OUTTAP,3227) UFM,P2,TRIA3,P1 GO TO 5500 228 WRITE (OUTTAP,3228) SFM,TRIA3 GO TO 5500 229 WRITE (OUTTAP,3223) SFM,QUAD4,P1 GO TO 5500 230 WRITE (OUTTAP,3224) UFM,QUAD4,P1 GO TO 5500 231 WRITE (OUTTAP,3225) UFM,P2,QUAD4,P1 GO TO 5500 232 WRITE (OUTTAP,3226) UFM,P2,QUAD4,P1 GO TO 5500 233 WRITE (OUTTAP,3227) UFM,P2,QUAD4,P1 GO TO 5500 234 WRITE (OUTTAP,3228) SFM,QUAD4 GO TO 5500 C C 1010 FORMAT (A23,' 2001, SEQGP CARD REFERENCES UNDEFINED GRID POINT', 1 I9) 1020 FORMAT (A25,' 2002, GRID POINT',I9,' NOT IN EQEXIN') 1030 FORMAT (A23,' 2003, COORDINATE SYSTEM',I9, 1 ' REFERENCES UNDEFINED GRID POINT',I9) 1040 FORMAT (A23,' 2004, COORDINATE SYSTEM',I9, 1 ' REFERENCES UNDEFINED COORDINATE SYSTEM',I9) 1050 FORMAT (A25,' 2005, INCONSISTENT COORDINATE SYSTEM DEFINITION') 1060 FORMAT (A23,' 2006, INTERNAL GRID POINT',I9, 1 ' REFERENCES UNDEFINED COORDINATE SYSTEM',I9) 1070 FORMAT (A23,' 2007, ELEMENT',I12,' REFERENCES UNDEFINED GRID ', 1 'POINT',I12) 1080 FORMAT (A23,' 2008, LOAD SET',I9, 1 ' REFERENCES UNDEFINED GRID POINT',I9) 1090 FORMAT (A23,' 2009, TEMP SET',I9,' REFERENCES UNDEFINED GRID ', 1 'POINT',I9) 1100 FORMAT (A23,' 2010, ELEMENT',I9,' REFERENCES UNDEFINED PROPERTY', 1 I9) 1110 FORMAT (A23,' 2011, NO PROPERTY CARD FOR ELEMENT TYPE - C',2A4) 1120 FORMAT (A23,' 2012, GRID POINT',I9,' SAME AS SCALAR POINT') 1130 FORMAT (A25,' 2013, NO STRUCTURAL ELEMENTS EXIST') 1140 FORMAT (A23,' 2014, LOGIC ERROR IN ECPT CONSTRUCTION') 1150 FORMAT (A25,' 2015, EITHER NO ELEMENTS CONNECTED TO ',A8,' GRID', 1 ' POINT',I9, /5X,'OR IT IS CONNECTED TO A RIGID ELEMENT ', 2 'OR A GENERAL ELEMENT.') 1151 FORMAT (A25,' 2015, ',A8,' GRID PT.',I9,' NOT CONNECTED') 1152 FORMAT (11X,':', /11X,':', /7X,'AND MORE') 1153 FORMAT (1X) 1160 FORMAT (A23,' 2016, NO MATERIAL PROPERTIES EXIST') 1170 FORMAT (A23,' 2017, MATS1 CARD REFERENCES UNDEFINED MAT1',I9, 1 ' CARD') 1180 FORMAT (A23,' 2018, MATS2 CARD REFERENCES UNDEFINED MAT2',I9, 1 ' CARD') 1190 FORMAT (A23,' 2019, MATT1 CARD REFERENCES UNDEFINED MAT1',I9, 1 ' CARD') 1200 FORMAT (A23,' 2020, MATT2 CARD REFERENCES UNDEFINED MAT2',I9, 1 ' CARD') 1210 FORMAT (A23,' 2021, BAD GMMAT- CALLING SEQUENCE') 1220 FORMAT (A23,' 2022, SMA-B SCALAR POINT INSERTION LOGIC ERROR') 1230 FORMAT (A23,' 2023, DETCK UNABLE TO FIND PIVOT POINT',I9, 1 ' IN GPCT') 1240 FORMAT ('0*** UNDEFINED MESSAGE 2024') 1250 FORMAT (A23,' 2025, UNDEFINED COORDINATE SYSTEM',I9) 1260 FORMAT (A23,' 2026,ELEMENT',I9,' GEOMETRY YIELDS UNREASONABLE ', 1 'MATRIX') 1270 FORMAT (A23,' 2027,ELEMENT',I9,' HAS INTERIOR ANGLE GREATER THAN', 1 ' 180 DEG. AT GRID POINT',I9) 1280 FORMAT (A23,' 2028, SMA3A ERROR NO.',I9) 1290 FORMAT (A23,' 2029, UNDEFINED TEMPERATURE SET',I9) 1300 FORMAT (A23,' 2030, BAD GPTT') 1310 FORMAT (A23,' 2031, ELEMENT',I9,' UNACCEPTABLE GEOMETRY') 1320 FORMAT (A23,' 2032, ELEMENT',I9,' UNACCEPTABLE GEOMETRY') 1330 FORMAT (A23,' 2033, SINGULAR H-MATRIX FOR ELEMENT',I9) 1340 FORMAT (A25,' 2034, ELEMENT',I9,' SIL-S DO NOT MATCH PIVOT') 1350 FORMAT (A23,' 2035, QUADRILATERAL',I9, 1 ' INTERIOR ANGLE GREATER THAN 180 DEG.') 1360 FORMAT (A23,' 2036, SINGULAR MATRIX FOR ELEMENT',I9) 1370 FORMAT (A23,' 2037, BAD ELEMENT',I9,' GEOMETRY') 1380 FORMAT (A25,' 2038, SINGULAR MATRIX FOR ELEMENT',I9) 1390 FORMAT (A23,' 2039, ZERO SLANT LENGTH FOR HARMONIC',I9, 1 ' OF CCONEAX',I9) 1400 FORMAT (A23,' 2040, SINGULAR MATRIX FOR ELEMENT',I9) 1410 FORMAT (A23,' 2041, A MATT1, MATT2, MATT3, OR MATS1 CARD REFER', 1 'ENCES TABLE NUMBER',I9,' WHICH IS NOT DEFINED ON', /5X, 2 'A TABLEM1, TABLEM2, TABLEM3, TABLEM4, OR TABLES1 CARD.') 1420 FORMAT (A23,' 2042, MISSING MATERIAL TABLE',I9,' FOR ELEMENT',I9) 1430 FORMAT (A23,' 2043, MISSING MATERIAL TABLE',I9) 1440 FORMAT (A23,' 2044, UNDEFINED TEMPERATURE SET',I9) 1450 FORMAT (A23,' 2045, TEMPERATURE UNDEFINED AT GRID POINT WITH ', 1 'INTERNAL INDEX',I9) 1460 FORMAT (A23,' 2046, UNDEFINED ELEMENT DEFORMATION SET',I9) 1470 FORMAT (A23,' 2047, UNDEFINED MULTI-POINT CONSTRAINT SET',I9) 1480 FORMAT (A23,' 2048, UNDEFINED GRID POINT',I9, 1 ' IN MULTI-POINT CONSTRAINT SET',I9) 1490 FORMAT (A23,' 2049, UNDEFINED GRID POINT',I9, 1 ' REFERENCED ON AN ASET, ASET1, OMIT OR OMIT1 CARD.') 1500 FORMAT (A23,' 2050, UNDEFINED GRID POINT',I9, 1 ' HAS A SUPPORT COORDINATE') 1510 FORMAT (A23,' 2051, UNDEFINED GRID POINT',I9, 1 ' IN SINGLE-POINT CONSTRAINT SET',I9) 1520 FORMAT (A23,' 2052, UNDEFINED GRID POINT',I9, 1 ' IN SINGLE-POINT CONSTRAINT SET',I9) 1530 FORMAT (A23,' 2053, UNDEFINED SINGLE-POINT CONSTRAINT SET',I9) 1540 FORMAT (A23,' 2054, SUPER ELEMENT',I9, 1 ' REFERENCES UNDEFINED SIMPLE ELEMENT',I9) 1550 FORMAT (A25,' 2055') 1560 FORMAT (A23,' 2056, UNDEFINED SUPER ELEMENT',I9,' PROPERTIES') 1570 FORMAT (A23,' 2057, IRRATIONAL SUPER ELEMENT',I9,' TOPOLOGY') 1580 FORMAT (A25,' 2058, ELEMENT',I9,' CONTRIBUTES TO THE DAMPING ', 1 'MATRIX WHICH IS PURGED. IT WILL BE IGNORED.') 1590 FORMAT (A23,' 2059, UNDEFINED GRID POINT',I9, 1 ' ON SE--BFE CARD FOR SUPER ELEMENT',I9) 1600 FORMAT (A23,' 2060, UNDEFINED GRID POINT',I9, 1 ' ON QDSEP CARD FOR SUPER ELEMENT',I9) 1610 FORMAT (A23,' 2061, UNDEFINED GRID POINT',I9,' ON GENERAL ', 1 'ELEMENT',I9) 1620 FORMAT (A23,' 2062, UNDEFINED SUPER ELEMENT PROPERTY',I9, 1 ' FOR SUPER ELEMENT',I9) 1630 FORMAT (A23,' 2063, TA1C LOGIC ERROR') 1640 FORMAT (A23,' 2064, UNDEFINED EXTRA POINT',I9, 1 ' REFERENCED ON SEQEP CARD') 1650 FORMAT (A23,' 2065, UNDEFINED GRID POINT',I9,' ON DMIG CARD') 1660 FORMAT (A23,' 2066, UNDEFINED GRID POINT',I9, 1 ' ON RLOAD- OR TLOAD- CARD') 1670 FORMAT (A23,' 2067, UNDEFINED GRID POINT',I9,' IN NONLINEAR ', 1 '(NOLIN',I1,') LOAD SET',I9) 1680 FORMAT (A23,' 2068, UNDEFINED GRID POINT',I9, 1 ' IN TRANSFER FUNCTION SET',I9) 1690 FORMAT (A23,' 2069, UNDEFINED GRID POINT',I9, 1 ' IN TRANSIENT INITIAL CONDITION SET',I9) 1700 FORMAT (A23,' 2070, REQUESTED DMIG MATRIX ',2A4,' IS UNDEFINED.') 1710 FORMAT (A23,' 2071, DYNAMIC LOAD SET',I9,' REFERENCES UNDEFINED ', 1 2A4,' SET',I9) 1720 FORMAT (A27,' 2072, CARD TYPE',I9,' NOT FOUND ON DATA BLOCK. ', 1 ' BIT POSITION =',I4) 1730 FORMAT (A29,' 2073, MPYAD METHOD',I9,' NO. PASSES =',I8) 1740 FORMAT (A23,' 2074, UNDEFINED TRANSFER FUNCTION SET',I9) 1750 FORMAT (A23,' 2075, IMPROPER KEYWORD ',2A4, 1 ' FOR APPROACH PARAMETER IN DMAP INSTRUCTION.') 1760 FORMAT (A25,' 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED') 1770 FORMAT (A25,' 2077, SDR2 OUTPUT DATA BLOCK NO. 2 IS PURGED') 1780 FORMAT (A25,' 2078, SDR2 OUTPUT DATA BLOCK NO. 3 IS PURGED') 1790 FORMAT (A25,' 2079, SDR2 FINDS THE -EDT-, -EST-, OR -GPTT- ', 1 'PURGED OR INADEQUATE AND IS THUS NOT PROCESSING', /5X, 2 'ANY REQUESTS FOR STRESSES OR FORCES.') 1800 FORMAT (A25,' 2080, SDR2 OUTPUT DATA BLOCK NO. 6 IS PURGED') 1810 FORMAT (A23,' 2081, DIFFERENTIAL STIFFNESS CAPABILITY NOT ', 1 'DEFINED FOR ANY OF THE ELEMENT TYPES IN THE PROBLEM.') 1830 FORMAT (A23,' 2083, NULL DISPLACEMENT VECTOR') 1840 FORMAT (A23,' 2084, DSMG2 LOGIC ERROR',I9) 1850 FORMAT (A29,' 2085, ',A4,' SPILL, NPVT',I9) 1860 FORMAT (A29,' 2086, SMA2 SPILL, NPVT',I9) 1870 FORMAT (A25,' 2087, ECPT CONTAINS BAD DATA') 1880 FORMAT (A23,' 2088, DUPLICATE TABLE ID',I9) 1890 FORMAT (A23,' 2089, TABLE',I9,' UNDEFINED') 1900 FORMAT (A25,' 2090, TABLE DICTIONARY ENTRY',I9,' MISSING') 1910 FORMAT (A25,' 2091, PLA3, BAD ESTNL ELEMENT ID',I9) 1920 FORMAT (A27,' 2092, SDR2 FINDS A SYMMETRY SEQUENCE LENGTH =',I20, 1 /5X,'AND AN INSUFFICIENT NUMBER OF VECTORS AVAILABLE=',I21, 2 ' WHILE ATTEMPTING TO COMPUTE STRESSES AND FORCES.', /5X, 3 'ALL FURTHER STRESS AND FORCE COMPUTATION TERMINATED.') 1930 FORMAT (A23,' 2093, NOLIN CARD FROM NOLIN SET',I9, 1 ' REFERENCES GRID POINT',I9,' UD SET.') 2010 FORMAT (A23,' 2101A, GRID POINT',I9,' COMPONENT',I2, 1 ' ILLEGALLY DEFINED IN SETS',5(2X,A4)) 2011 FORMAT (A23,' 2101B, SCALAR POINT',I9,' ILLEGALLY DEFINED IN ', 1 'SETS',5(2X,A4)) 2020 FORMAT (A25,' 2102, LEFT HAND MATRIX ROW POSITION',I9, 1 ' OUT OF RANGE - IGNORED') 2030 FORMAT (A25,' 2103, SUBROUTINE MAT WAS CALLED WITH INFLAG=2, THE', 1 ' SINE OF THE ANGLE X', /5X,' MATERIAL ORIENTATION ANGLE,', 2 ' NON-ZERO, BUT SIN(X)**2+COS(X)**2 DIFFERED FROM 1 IN ', 3 'ABSOLUTE VALUE BY MORE THAN .0001') 2040 FORMAT (A23,' 2104, UNDEFINED COORDINATE SYSTEM',I9) 2050 FORMAT (A23,' 2105, PLOAD2 CARD FROM LOAD SET',I9, 1 ' REFERENCES MISSING OR NON-2-D ELEMENT',I9) 2060 FORMAT (A23,' 2106, LOAD CARD DEFINES NON-UNIQUE LOAD SET',I9) 2070 FORMAT (A23,' 2107, EIG- CARD FROM SET',I9, 1 ' REFERENCES DEPENDENT COORDINATE OF GRID POINT',I9) 2080 FORMAT (A23,' 2108, SPCD ON A POINT NOT IN S SET. GRID',I9, 1 ' COMP.',I9) 2090 FORMAT (A23,' 2109, NO GRID, SCALAR OR EXTRA POINTS DEFINED') 2110 FORMAT (A25,' 2111, BAR',I9,' COUPLED BENDING INERTIA SET TO 0.0', 1 ' IN DIFFERENTIAL STIFFNESS') 2120 FORMAT (A23,' 2112, UNDEFINED TABLE',I9) 2130 FORMAT (A23,' 2113, MATERIAL',I9,', A NON-MAT1 TYPE, IS NOT ', 1 'ALLOWED TO BE STRESS-DEPENDENT') 2131 FORMAT (A23,' 2131, NON-SCALAR ELEMENT',I9, 1 ' REFERENCES A SCALAR POINT.') 2132 FORMAT (A23,' 2132, NON-ZERO SINGLE POINT CONSTRAINT VALUE ', 1 'SPECIFIED BUT DATA BLOCK YS IS PURGED.') 2133 FORMAT (A23,' 2133, INITIAL CONDITION IN SET',I9, 1 ' SPECIFIED FOR POINT NOT IN ANALYSIS SET.') 2134 FORMAT (A23,' 2134, LOAD SET',I9,' DEFINED FOR BOTH GRAVITY AND ', 1 'NON-GRAVITY LOADS.') 2135 FORMAT (A23,' 2135, DLOAD CARD',I9,' HAS A DUPLICATE SET ID FOR ', 1 'SET ID',I9) 2136 FORMAT (A23,' 2136, SET ID',I9,' HAS BEEN DUPLICATED ON A DLOAD,', 1 ' RLOAD1,2 OR TLOAD1,2 CARD.') 2137 FORMAT (A23,' 2137, PROGRAM RESTRICTION FOR MODULE ',A4, 1 '. ONLY 360 LOAD SET ID-S.', /5X, 2 'ALLOWED. DATA CONTAINS',I9,' LOAD SET ID-S.') 2138 FORMAT (A23,' 2138, ELEMENT ID NO.',I9,' IS TOO LARGE') 2139 FORMAT (A23,' 2139, ELEMENT',I9,' IN DEFORM SET',I9, 1 ' IS UNDEFINED.') 2140 FORMAT (A23,' 2114, MATT3 CARD REFERENCES UNDEFINED MAT3',I9, 1 ' CARD') 2143 FORMAT (A23,' 2143, SINGULAR JACOBIAN MATRIX FOR ISOPARAMETRIC ', 1 'ELEMENT NO.',I9) 2150 FORMAT (A23,' 2115, TABLE',I9,' (TYPE',I9,') ILLEGAL WITH STRESS', 1 '-DEPENDENT MATERIAL') 2160 FORMAT (A25,' 2116, MATID',I9,' TABLEID',I9) 2170 FORMAT (A23,' 2117, TEMPERATURE DEPENDENT MATERIAL PROPERTIES ', 1 'ARE NOT PERMISSIBLE', /5X,'IN A PIECEWISE LINEAR ', 2 'ANALYSIS PROBLEM. TEMPERATURE SET =',I9) 2260 FORMAT (A23,' 2126, UNDEFINED MATERIAL FOR ELEMENT',I9) 2270 FORMAT (A25,' 2127, PLA2 INPUT DATA BLOCK NO.',I9,' IS PURGED.') 2280 FORMAT (A25,' 2128, PLA2 OUTPUT DATA BLOCK NO.',I9,' IS PURGED.') 2290 FORMAT (A25,' 2129, PLA2, ZERO VECTOR ON APPENDED DATA BLOCK NO.', 1 I9) 2300 FORMAT (A23,' 2130, ZERO INCREMENTAL DISPLACEMENT VECTOR INPUT ', 1 'TO MODULE PLA2.') 2400 FORMAT (A23,' 2140, GRID OR SCALAR POINT ID',I9,', EXCEEDING MAX', 1 ' OF 2140000, COULD BE FATAL') 2510 FORMAT (A23,' 2192, UNDEFINED GRID POINT',I9,' IN RIGD',A1, 1 ' ELEMENT',I9) 2520 FORMAT (A23,' 2193, A REDUNDANT SET OF RIGID BODY MODES WAS ', 1 'SPECIFIED FOR THE GENERAL ELEMENT') 2530 FORMAT (A23,' 2194, A MATRIX D IS SINGULAR IN SUBROUTINE TA1CA') 2980 FORMAT (A23,' 2198, INPUT DATA BLOCK',I9,' HAS BEEN PURGED.') 2990 FORMAT (A25,' 2199, SUMMARY', /5X,'ONE OR MORE OF THE ABOVE ', 1 'FATAL ERRORS WAS ENCOUNTERED IN SUBROUTINE ',2A4) 3211 FORMAT (A23,' 2355, GRID POINT COORDINATES OF ELEMENT',I9, 1 ' ARE IN ERROR.', /5X, 2 'ONE OR MORE OF THE R-COORDINATES ARE ZERO OR NEGATIVE.') 3212 FORMAT (A23,' 2364, GRID POINT COORDINATES OF ELEMENT',I9, 1 ' ARE IN ERROR.', /5X, 2 'ONE OR MORE OF THE THETA-COORDINATES ARE NONZERO.') 3213 FORMAT (A23,' 2213, MATERIAL ID',I9,' NOT UNIQUELY DEFINED.') 3214 FORMAT (A23,' 2214, MATT',I1,' CARD REFERENCES UNDEFINED MAT',I1, 1 I9,' CARD') 3215 FORMAT (A23,' 2215, UNDEFINED MATERIAL ID',I9, 1 ' WAS REFERENCED BY PROPERTY CARD ID',I9) 3216 FORMAT (A23,' 2216, MATPZT',I1,' CARD REFERENCES UNDEFINED MATPZ', 1 I1,I9,' CARD') 3217 FORMAT (A23,' 2217, MATPZ1 ID',I9,' HAS SINGULAR SE MATRIX.') 3218 FORMAT (A23,' 2218, ',A4,A2,' ELEMENT',I9, 1 ' HAS A MAXIMUM TO MINIMUM RADIUS RATIO EXCEEDING 10.',/5X, 2 'ACCURACY OF NUMERICAL INTEGRATION WOULD BE IN DOUBT.') 3219 FORMAT (A23,' 2219, MAT6 CARDS REQUIRE REPROCESSING. RE-SUBMIT ', 1 'JOB WITH THE FOLLOWING DMAP ALTER (AFTER GP1)', //10X, 2 'ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $', /10X, 3 'EQUIV MPTA,MPT/ISOP $',/) 3220 FORMAT (A29,' 2220, NO APPLICABLE ELEMENT OR SUBCASE DURING OUT', 1 'PUT SCAN', /5X,'EITHER NO VALUES OUTSIDE MAX-MIN RANGE ', 2 'OR NOT IN SET SPECIFIED FOR ',2A4) 3222 FORMAT (A25,' 2222, METHOD OF NORMALIZATION ON ',A4,' CARD NOT ', 1 'SPECIFIED. DEFAULT OF ''',A4,''' WILL BE USED') 3223 FORMAT (A25,' 3223 NO PCOMP, PCOMP1 OR PCOMP2 PROPERTY DATA ', 1 'FOUND FOR ',A6,' ELEMENT ID =',I9) 3224 FORMAT (A23,' 2224, ',A6,' ELEMENT ID =',I9, 1 ' HAS ILLEGAL GEOMETRY OR CONNECTIONS') 3225 FORMAT (A23,' 2225, THE X-AXIS OF THE MATERIAL COORDINATE SYSTEM', 1 ' ID =',I9,' HAS NO PROJECTION ON TO THE PLANE OF THE', 2 /5X,A6,' ELEMENT ID =',I9) 3226 FORMAT (A23,' 2226, ILLEGAL DATA DETECTED ON MATERIAL ID =',I9, 1 ' REFERENCED BY ',A6,' ELEMENT ID =',I9, /5X, 2 'FOR MID3 APPLICATION') 3227 FORMAT (A23,' 2228, THE X-AXIS OF THE STRESS COORDINATE SYSTEM ', 1 'ID =',I9,' HAS NO PROJECTION ON TO THE PLANE OF THE', /5X, 2 A6,' ELEMENT ID =',I9) 3228 FORMAT (A25,' 3008, INSUFFICIENT MEMORY IS AVAIL ABLE FOR ',A6, 1 ' ELEMENTS GENERATION. RE-RUN JOB WITH AN ADDITIONAL', 2 /5X,'2000 WORDS OF MEMORY') C 5000 FORMAT ('0*** UNASSIGNED MESSAGE (L=',I3,'), P1=',I20,', P2=',I9) C C MESSAGE IS FATAL. C IF DIAG 1 IS ON, AND MACHINE IS VAX AND UNIX, CALL ERROR TRACEBACK C 5500 IF (MACH .LE. 4) GO TO 5600 CALL SSWTCH (1,J) IF (J .EQ. 1) CALL ERRTRC ('USRWRT ',L) 5600 RETURN C C ILLEGAL INPUT TO SUBROUTINE C 9000 WRITE (OUTTAP,9001) L 9001 FORMAT ('0IMPROPER USRMSG NO.',I20) CALL MESAGE (-7,0,NAME) RETURN END ================================================ FILE: mis/valvec.f ================================================ SUBROUTINE VALVEC C C LARGE ORDER REAL SYMMETRIC EIGENVALUE-EIGENVECTOR PROBLEM C INTEGER QR,MCB(8),TRI(3),QRX(3),WIL(3),VAL(3) DIMENSION VCOM(30) COMMON /ZZZZZZ/ A(1) COMMON /GIVN / TITLE(150) CWKBR 2/94 SPR93027 COMMON /SYSTEM/ ISYS COMMON /SYSTEM/ ISYS, IDUMM(53), IPREC EQUIVALENCE (MD ,TITLE(3)), (VCOM(1),TITLE(101)), 1 (N ,VCOM( 1)), (NV ,VCOM( 7)), 2 (OEIGS,VCOM(11)), (NVER ,VCOM( 13)), 3 (NEVER,VCOM(14)), (ITERM ,VCOM( 16)) DATA TRI / 4HTRID, 4HI , 4H / DATA QRX / 4HQRIT, 4HER , 4H / DATA WIL / 4HWILV, 4HEC , 4H / DATA VAL / 4HVALV, 4HEC , 4H / DATA IBEGN , IEND / 4HBEGN, 4HEND / C C DEFINITION OF VARIABLES AND DATA FORMATS C C MD INPUT MATRIX C N SIZE OF MATRIX C NV NUMBER OF EIGENVECTORS DESIRED C OEIGS EIGENVALUE SUMMARY FILE C A OPEN CORE C ID POINTER TO DIAGONALS -- N OF THEM (D.P.) C IO POINTER TO OFF-DIAGONALS -- N OF THEM (D.P.) C IV POINTER TO EIGENVALUES -- N OF THEM (D.P.) C IL POINTER TO ORDER FOUND ARRAY N OF THEM (S.P.) C I1 - I6 POINTS TO SCRATCH ARRAYS -- 2XN LONG C NVER NUMBER OF VECTORS ERRORS C NEVER NUMBER OF EIGENVALUE ERRORS C ITERM REASON FOR TERMINATION C C INITIALIZATION FOR VALVEC IN BLOCKDATA ROUTINE READBD C C DATA C 1 MO, MD,MR1, M1, M2, M3, M4,LGAMA,OEIGS,PHIA,ORDER,RSTRT,NCOL,MAX/ C *301,304,202,303,307,308,309, 201, 204, 305, -2, 0 , 0,253/ C C VAL(3) = IBEGN CALL CONMSG (VAL,3,0) ITERM = 1 MCB(1) = MD CALL RDTRL (MCB(1)) N = MCB(2) N2 = N*IPREC ID = 1 IO = ID + N2 IV = IO + N2 IL = IV + N2 I1 = IL + N IF ((I1 + 1)/2 .EQ. I1/2) I1 = I1 + 1 I2 = I1 + N2 I3 = I2 + N2 I4 = I3 + N2 I5 = I4 + N2 I6 = I5 + N2 C C TRIDIAGONALIZATION. C IF (N .GT. 2) GO TO 101 CWKBD 2/94 SPR93027 CALL SMLEIG (A(ID),A(IO),A(IV)) CWKBNB 2/94 SPR93027 IF ( IPREC .EQ. 2 ) CALL SMLEIG (A(ID),A(IO),A(IV)) IF ( IPREC .EQ. 1 ) CALL SMLEIG1(A(ID),A(IO),A(IV)) CWKBNE 2/94 SPR93027 IF (N-2) 300,200,300 101 TRI(3) = IBEGN CALL CONMSG (TRI,3,0) CWKBD 2/94 SPR93027 CALL TRIDI (A(ID),A(IO),A(IV),A(IL),A(I1),A(IL)) CWKBNB 2/94 SPR93027 IF ( IPREC .EQ. 2 ) &CALL TRIDI (A(ID),A(IO),A(IV),A(IL),A(I1),A(IL)) C D O V A B IF ( IPREC .EQ. 1 ) &CALL TRIDI1(A(ID),A(IO),A(IV),A(IL),A(I1),A(IL)) C D O V A B CWKBNE 2/94 SPR93027 TRI(3) = IEND CALL CONMSG (TRI,3,0) C C EIGENVALUES C 200 QR = 0 IF (N .LE. 2) QR = 1 QRX(3) = IBEGN CALL CONMSG (QRX,3,0) CWKBD 2/94 SPR93027 CALL QRITER (A(IV),A(I1),A(IL),QR) CWKBNB 2/94 SPR93027 IF ( IPREC .EQ. 2 ) CALL QRITER (A(IV),A(I1),A(IL),QR) IF ( IPREC .EQ. 1 ) CALL QRITER1(A(IV),A(I1),A(IL),QR) CWKBNE 2/94 SPR93027 QRX(3) = IEND CALL CONMSG (QRX,3,0) RSTRT = 0 WIL(3) = IBEGN CALL CONMSG (WIL,3,0) C C EIGENVECTORS C CWKBDB 2/94 SPR93027 C CALL WILVEC (A(ID),A(IO),A(IV),A(IL),A(I1),A(I2),A(I3),A(I4), C 1 A(I5),A(I6),N,A(I6)) CWKBDE 2/94 SPR93027 CWKBNB 2/94 SPR93027 IF ( IPREC .EQ. 1 ) C D 0 C A B &CALL WILVEC1(A(ID),A(IO),A(IV),A(IL),A(I1),A(I2),A(I3),A(I4), & A(I5),A(I6),N,A(I6)) IF ( IPREC .EQ. 2 ) C D 0 C A B &CALL WILVEC (A(ID),A(IO),A(IV),A(IL),A(I1),A(I2),A(I3),A(I4), & A(I5),A(I6),N,A(I6)) CWKBNE 2/94 SPR93027 WIL(3) = IEND CALL CONMSG (WIL,3,0) 300 CONTINUE CALL GOPEN (OEIGS,A(1),1) MCB(1) = 4 MCB(2) = N MCB(3) = NV MCB(4) = NEVER MCB(5) = NVER MCB(8) = ITERM CALL WRITE (OEIGS,MCB,8,1) CALL CLOSE (OEIGS,1) VAL(3) = IEND CALL CONMSG (VAL,3,0) RETURN END ================================================ FILE: mis/varian.f ================================================ SUBROUTINE VARIAN C C VARIANCE ANALYSIS POST PROCESSOR MODULE C C INPUTS--O1,O2,O3,O4,O5 OR EDT C C OUTPUTS--O1O,O2O,O3O,O4O,O5O C C PARAMETERS--OP--BCD'DER' OR 'VAR' C DELTA--REAL--DEFAULT=1.0 C LOGICAL TAPBIT INTEGER IT1,IT2,IT3,IT4,IT5,OT1,OT2,OT3,OT4,OT5,NAME(2),MCB(7), 1 SYSBUF,SCR1,SCR2,DER,VAR,FILE,ITF(5),ITO(5),VARL(3), 2 DERL(3),VARAN(2),IZ(260) REAL Z(200) COMMON /SYSTEM/ SYSBUF,SKIP(91),JRUN COMMON /BLANK / IOP(2),DELTA COMMON /ZZZZZZ/ RZ(1) EQUIVALENCE (IT1,ITF(1)),(ITF(2),IT2) ,(ITF(3),IT3),(ITF(4),IT4), 1 (ITF(5),IT5),(ITO(1) ,OT1),(ITO(2),OT2),(ITO(3),OT3), 2 (ITO(4),OT4),(ITO(5),OT5) ,(Z(1),IZ(1),RZ(1)) DATA IT1,IT2,IT3,IT4,IT5,OT1,OT2,OT3,OT4,SCR1,OT5,INPT, SCR2 / 1 101,102,103,104,105,201,202,203,204,301 ,205,4HINPT,302 / DATA DER , VAR , DERL , NAME / 1 4HDER , 4HVAR , 4HDERI, 4HVATI, 4HVE , 4HVARI, 4HAN / DATA VARL , IBLNK , VARAN , MCB / 1 4HVARI, 4HANCE, 4H , 4H , 4202, 42, 7*0 / C IBUF1 = KORSZ(Z(1))-SYSBUF IBUF2 = IBUF1-SYSBUF IBUF3 = IBUF2-SYSBUF NZ = IBUF3-1 IF (NZ .LE. 0) CALL MESAGE(-8,0,NAME) IF (.NOT.TAPBIT(INPT)) CALL MESAGE(-7,0,NAME) CALL INT2A8 (*5,JRUN,IZ) 5 NJRUN=IZ(1) NW=1 IF (IOP(1) .EQ. VAR) GO TO 300 IF (IOP(1) .NE. DER) RETURN C C DERIVATIVES SECTION C IF (JRUN .NE. 0) GO TO 30 C C COPY INPUT FILES TO INPT TAPE C CALL OPEN (*900,INPT,IZ(IBUF1),1) I=1 ASSIGN 20 TO IRET 10 FILE = ITF(I) GO TO 700 20 I = I + 1 IF (I .LE. 5) GO TO 10 CALL CLOSE (INPT,2) RETURN C C COMPUTE DERIVATIVES DJ = (OJ - O0)/DELTA C 30 CONTINUE CALL OPEN (*900,INPT,IZ(IBUF1),0) C DO 250 I = 1,5 IFOUND = 0 CALL FWDREC (*220,INPT) CALL OPEN (*230,ITF(I),IZ(IBUF2),0) CALL FWDREC (*910,ITF(I)) CALL GOPEN (ITO(I),IZ(IBUF3),1) FILE = ITF(I) 40 ASSIGN 60 TO IRTN 50 CALL READ (*220,*920,INPT,IZ(1),146,1,IFLAG) GO TO IRTN, (60,70) 60 CALL READ (*230,*920,FILE,IZ(147),146,1,IFLAG) C C CHECK FOR MATCH ON SUBCASE C 70 IF (IZ(4)-IZ(150)) 80,100,90 C C NEED NEW INPT RECORD C 80 CALL FWDREC (*910,INPT) ASSIGN 70 TO IRTN GO TO 50 C C NEED NEW FILE RECORD C 90 CALL FWDREC (*910,FILE) GO TO 60 C C CHECK FOR MATCH ON TIME, FREQ ETC C 100 IF (Z(5)-Z(151)) 80,110,90 C C CHECK FOR MATCH ON ELTYPE C 110 IF (IZ(3)-IZ(149)) 80,120,90 C C WE GOT ONE C 120 CONTINUE IZ(257) = DERL(1) IZ(258) = DERL(2) IZ(259) = DERL(3) IZ(260) = NJRUN IFOUND = 1 + IFOUND CALL WRITE (ITO(I),IZ(147),146,1) NREC=IZ(10) 130 ASSIGN 150 TO IRTN1 140 CALL READ (*910,*190,INPT,IZ(1),NREC,0,IFLAG) ID1 = IZ(1)/10 GO TO IRTN1, (150,160) 150 CALL READ (*910,*200,FILE,IZ(NREC+1),NREC,0,IFLAG) ID2 = IZ(NREC+1)/10 ASSIGN 160 TO IRTN1 160 IF (ID1-ID2) 140,170,150 C C POINT CHECKS C 170 CONTINUE DO 180 J=2,NREC ITYPE = NUMTYP(IZ(J)) IF (ITYPE.NE.2 .AND. ITYPE.NE.0) GO TO 180 Z(NREC+J) = (Z(NREC+J) - Z(J))/DELTA 180 CONTINUE CALL WRITE (ITO(I),IZ(NREC+1),NREC,0) GO TO 130 C C END OF DATA RECORD C 190 CALL FWDREC (*910,FILE) GO TO 210 200 CALL FWDREC (*910,INPT) 210 CALL WRITE (ITO(I),0,0,1) GO TO 40 C C EOF ON INPT C 220 GO TO 240 C C EOF ON FILE C 230 CALL SKPFIL (INPT,1) 240 CALL CLOSE (FILE,1) CALL CLOSE (ITO(I),1) MCB(1)=ITO(I) MCB(2)=IFOUND IF (IFOUND .NE. 0) CALL WRTTRL (MCB) 250 CONTINUE C C SKIP OVER OLD DERIVATIVES C I = 5*JRUN - 5 CALL SKPFIL (INPT,I) CALL CLOSE (INPT,2) CALL GOPEN (INPT,IZ(IBUF1),3) I = 1 ASSIGN 270 TO IRET 260 FILE = ITO(I) MCB(1) = FILE CALL RDTRL (MCB) IF (MCB(2) .NE. 0) GO TO 700 CALL EOF (INPT) 270 I = I + 1 IF (I .LE. 5) GO TO 260 CALL CLOSE (INPT,2) 280 RETURN C C VARIANCE SECTION C 300 IF (JRUN .EQ. 0) RETURN C C SEE IF VARIANCE IS TO BE COMPUTED C CALL PRELOC (*280,IZ(IBUF1),IT1) CALL LOCATE (*320,IZ(IBUF1),VARAN,IFLAG) C C READ IN VARIANCES C CALL READ (*910,*310,IT1,IZ(1),NZ,0,IFLAG) CALL MESAGE (-8,0,NAME) 310 IF (IFLAG-1 .EQ. JRUN) GO TO 330 320 CALL CLOSE (IT1,1) RETURN C C SET UP FOR VARIANCES C 330 CALL CLOSE (IT1,1) CALL OPEN (*900,INPT,IZ(IBUF1),0) CALL SKPFIL (INPT,5) IN1 = INPT IO1 = SCR1 DO 620 I = 1,JRUN IF (I .EQ. JRUN) GO TO 340 CALL OPEN (*900,IO1,IZ(IBUF2),1) 340 CONTINUE IF (I .EQ. 1) GO TO 350 CALL OPEN (*900,IN1,IZ(IBUF3),0) 350 CONTINUE DO 610 J = 1,5 IF (I .NE. JRUN) GO TO 360 C C FIX UP FOR WRITING ON OUTPUT FILES C CALL OPEN (*610,ITO(J),IZ(IBUF2),1) CALL FNAME (ITO(J),MCB) CALL WRITE (ITO(J),MCB,2,1) IFOUND = 0 IO1 = ITO(J) 360 CONTINUE CALL FWDREC (*590,INPT) 370 ASSIGN 400 TO IRTN2 380 CALL READ (*600,*920,IN1,IZ(JRUN+1),146,1,IFLAG) IF (I .NE. 1) GO TO 390 IZ(JRUN+111) = VARL(1) IZ(JRUN+112) = VARL(2) IZ(JRUN+113) = VARL(3) IZ(JRUN+114) = IBLNK GO TO 460 C C CHECK FOR MATCH C 390 GO TO IRTN2, (400,410) 400 CALL READ (*580,*920,INPT,IZ(JRUN+147),146,1,IFLAG) 410 IF (IZ(JRUN+4)-IZ(JRUN+150)) 420,440,430 420 CALL FWDREC (*910,IN1) ASSIGN 410 TO IRTN2 GO TO 380 430 CALL FWDREC (*910,INPT) GO TO 400 440 IF ( Z(JRUN+5)- Z(JRUN+151)) 420,450,430 450 IF (IZ(JRUN+3)-IZ(JRUN+149)) 420,460,430 C C MATCH C 460 CALL WRITE (IO1,IZ(JRUN+1),146,1) NREC = IZ(JRUN+10) M = JRUN + NREC 470 ASSIGN 490 TO IRTN3 480 CALL READ (*910,*550,IN1,IZ(JRUN+1),NREC,0,IFLAG) IF (I .EQ. 1) GO TO 510 ID1 = IZ(JRUN+1)/10 GO TO IRTN3, (490,500) 490 CALL READ (*910,*560,INPT,IZ(M+1),NREC,0,IFLAG) ID2 = IZ(M+1) /10 ASSIGN 500 TO IRTN3 500 IF (ID1-ID2) 480,510,490 C C POINT MATCH C 510 CONTINUE IF (I .EQ. JRUN) IFOUND = IFOUND +1 DO 540 K =2,NREC ITYPE = NUMTYP(IZ(JRUN+K)) IF (ITYPE.NE.2 .AND. ITYPE.NE.0) GO TO 540 IF (I .NE. 1) GO TO 520 Z(JRUN+K) = (Z(JRUN+K)*Z(1))**2 GO TO 530 520 Z(JRUN+K) = Z(JRUN+K) + (Z(M+K)*Z(I))**2 530 IF (I .NE. JRUN) GO TO 540 Z(JRUN+K) = SQRT(Z(JRUN+K)) 540 CONTINUE CALL WRITE (IO1,IZ(JRUN+1),NREC,0) GO TO 470 C C END OF DATA ON IN1 C 550 IF (I .EQ. 1) GO TO 570 CALL FWDREC (*910,INPT) GO TO 570 560 CALL FWDREC (*910,IN1) 570 CALL WRITE (IO1,0,0,1) GO TO 370 C C EOF ON INPT C 580 CALL SKPFIL (IN1,1) 590 CALL EOF (IO1) IF (I .NE. JRUN) GO TO 610 CALL CLOSE (IO1,1) MCB(1) = IO1 MCB(2) = IFOUND CALL WRTTRL (MCB) GO TO 610 600 IF (I .EQ. 1) GO TO 590 CALL SKPFIL (INPT,1) GO TO 590 610 CONTINUE C C SWITCH FILES C IF (I .NE. JRUN) CALL CLOSE (IO1,1) IF (I .NE. 1) CALL CLOSE (IN1,1) J=IN1 IN1=IO1 IO1=J IF (I .EQ. 1) IO1 = SCR2 620 CONTINUE CALL CLOSE (INPT,1) JRUN = 9999999 RETURN C C INTERNAL ROUTINE TO COPY FILES C 700 CONTINUE CALL OPEN (*730,FILE,IZ(IBUF2),0) 710 IEOR = 1 CALL READ (*730,*720,FILE,IZ(1),NZ,0,IREAD) IEOR = 0 720 CALL WRITE (INPT,IZ(1),IREAD,IEOR) GO TO 710 730 CALL EOF (INPT) CALL CLOSE (FILE,1) GO TO IRET, (20,270) C C ERROR MESSAGES C 900 IP1 = -1 GO TO 930 910 IP1 = -2 GO TO 930 920 IP1 = -3 930 CALL MESAGE (IP1,FILE,NAME) STOP END ================================================ FILE: mis/vdr.f ================================================ SUBROUTINE VDR C C VDR IS THE CONTROL PROGRAM FOR THE VECTOR DATA RECOVERY MODULE C C OPHID C PHID OUDVC1 C UDVF CLAMA OUDV1 C CASECC EQDYN USETD UDVT PPF PHLD OPHIH OPNL1 C VDR CASEXX,HEQDYN,HUSETD,PHIH,TOL ,XYCBD,PNLH /OUHVC1,HOPNL1 C UHVT HTOL HPNLD OUHV1 C HUDVT HOUVD1 C C TRANRESP DIRECT C /C,N,FREQRESP/C,N,MODAL /V,N,SORT2/V,N,OUTPUT/V,N,SDR2 C CEIGN C C /V,N,FMODE $ PROGRAMMER'S MANUAL PP. 4.60-1 TRHU -7 C C INTEGER PNL ,OUTFLE,OPNL1 ,APP ,TRN ,VDRREQ,SORT2 , 1 OUTPUT,SDR2 ,SSCELL,BUF ,CASECC DIMENSION NAM(2),BUF(50) ,MASKS(6) ,MCB(7),CEI(2), 1 FRQ(2),TRN(2),MODAL(2) ,DIRECT(2) COMMON /VDRCOM/ VDRCOM,IDISP ,IVEL ,IACC ,ISPCF ,ILOADS,ISTR , 1 IELF ,IADISP,IAVEL ,IAACC ,IPNL ,ITTL ,ILSYM , 2 IFROUT,IDLOAD,CASECC,EQDYN ,USETD ,INFILE,OEIGS , 3 PP ,XYCDB ,PNL ,OUTFLE,OPNL1 ,SCR1 ,SCR2 , 4 BUF1 ,BUF2 ,BUF3 ,NAM ,BUF ,MASKS ,CEI , 5 FRQ ,TRN ,DIRECT,XSET0 ,VDRREQ,MODAL COMMON /BLANK / APP(2),FORM(2),SORT2,OUTPUT,SDR2 ,IMODE COMMON /SYSTEM/ DUMI(68),SSCELL C C EXECUTE THE PHASES OF VDR. C DO 10 I = 1,50 10 BUF(I) = 0 CASECC = 101 OUTPUT = -1 SORT2 = -1 CALL VDRA IF (SSCELL .NE. 0) SDR2 = 1 IF (VDRREQ .EQ. 0) RETURN MCB(1) = INFILE CALL RDTRL (MCB) IF (MCB(1) .NE. INFILE) GO TO 20 CALL VDRB (INFILE,OUTFLE,IADISP) 20 IF (APP(1) .NE. TRN(1)) RETURN MCB(1) = PNL CALL RDTRL (MCB) IF (MCB(1) .NE. PNL) RETURN CALL VDRB (PNL,OPNL1,IPNL) RETURN END ================================================ FILE: mis/vdra.f ================================================ SUBROUTINE VDRA C C VDRA PROCESSES THE CASE CONTROL AND XYCDB DATA BLOCKS. IF XYCDB C IS PURGED, NO ACTION IS TAKEN. OTHERWISE, OUTPUT REQUESTS IN C CASE CONTROL ARE COMPARED WITH XY REQUESTS IN XYCDB. FOR EACH C SUBCASE AND EACH REQUEST TYPE, CASE CONTROL IS MODIFIED TO REFLECT C THE UNION OF THE REQUESTS. THE NEW CASE CONTROL IS WRITTEN ON A C SCRATCH FILE AND THE POINTER TO CASE CONTROL SWITCHED. C INTEGER BUF ,CASECC,XYCDB ,SCR1 ,SCR3 ,Z ,APP , 1 RD ,RDREW ,WRT ,WRTREW,CLSREW,SYSBUF,XSETNO, 2 BUF1 ,BUF2 ,BUF3 ,SUBCSE,ANYNEW,FILE ,DBNAME, 3 SETNO ,ARG ,SDR2 ,XSET0 ,VDRCOM,XYCDBF,VDRREQ, 4 TRN ,FORMAT,FRQ ,SORT2 DIMENSION NAM(2),BUF(50) ,MASKS(6) ,CEI(2),FRQ(2), 1 TRN(2),MODAL(2) ,DIRECT(2) ,VDRCOM(1) COMMON /VDRCOM/ VDRCOM,IDISP ,IVEL ,IACC ,ISPCF ,ILOADS,ISTR , 1 IELF ,IADISP,IAVEL ,IAACC ,IPNL ,ITTL ,ILSYM , 2 IFROUT,IDLOAD,CASECC,EQDYN ,USETD ,INFILE,OEIGS , 3 PP ,XYCDB ,PNL ,OUTFLE,OPNL1 ,SCR1 ,SCR3 , 4 BUF1 ,BUF2 ,BUF3 ,NAM ,BUF ,MASKS ,CEI , 5 FRQ ,TRN ,DIRECT,XSET0 ,VDRREQ,MODAL COMMON /ZZZZZZ/ Z(1) COMMON /BLANK / APP(2),FORM(2),SORT2,OUTPUT,SDR2 ,IMODE COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /SYSTEM/ SYSBUF C C SET BUFFER POINTERS AND PERFORM GENERAL INITIALIZATION. C BUF1 = KORSZ(Z) - SYSBUF BUF2 = BUF1 - SYSBUF BUF3 = BUF2 - SYSBUF IXY = 1 LASTXY = 0 ANYNEW = 0 SDR2 =-1 VDRREQ = 0 XSETNO = XSET0 IMSTR = 1 MASTER = 1 C C OPEN XYCDB. IF PURGED, RETURN. C CALL OPEN (*1036,XYCDB,Z(BUF1),RDREW) FILE = XYCDB CALL FWDREC (*1036,XYCDB) CALL FWDREC (*1036,XYCDB) C C READ FIRST LINE OF XYCDB. IF SUBCASE = 0 (MEANING DATA APPLIES C TO ALL SUBCASES), READ IN DATA FOR ZERO SUBCASE. C LAST = 0 XYCDBF = XYCDB CALL READ (*1035,*1035,XYCDB,BUF,6,0,FLAG) SUBCSE = BUF(1) IF (SUBCSE .NE. 0) GO TO 1013 I = IMSTR 1011 Z(I ) = BUF(2) Z(I+1) = BUF(3) I = I + 2 CALL READ (*2002,*1012,XYCDB,BUF,6,0,FLAG) IF (BUF(1) .EQ. 0) GO TO 1011 NMSTR = I - 2 IXYSC = I GO TO 1019 C C HERE IF MASTER SUBCASE IS THE ONLY SUBCASE IN XYCDB. C 1012 NMSTR = I - 2 NXYSC = NMSTR MASTER = 0 LASTXY = 1 C C REDUCE LIST TO UNIQUE PAIRS C IF (IMSTR .EQ. NMSTR) GO TO 1019 NMSTR = NMSTR - 2 J = IMSTR DO 1014 I = IMSTR,NMSTR,2 IF (Z(I+2).EQ.Z(J) .AND. Z(I+3).EQ.Z(J+1)) GO TO 1014 Z(J+2) = Z(I+2) Z(J+3) = Z(I+3) J = J + 2 1014 CONTINUE NMSTR = J NXYSC = NMSTR GO TO 1019 C C HERE IF NO MASTER SUBCASE -- CREATE A DUMMY MASTER. C 1013 NMSTR = IMSTR IXYSC = IMSTR + 2 Z(IMSTR ) = 9999 Z(IMSTR+1) = 0 C C OPEN CASE CONTROL AND SCRATCH FILE FOR MODIFIED CASE CONTROL C 1019 CALL GOPEN (CASECC,Z(BUF2),0) CALL GOPEN (SCR3,Z(BUF3),1) C C READ DATA FOR ONE SUBCASE. STORE DATA BLOCK AND ID IN OPEN CORE. C 1020 IF (MASTER.EQ.0 .OR. LASTXY.NE.0) GO TO 1030 SUBCSE = BUF(1) I = IXYSC 1021 Z(I ) = BUF(2) Z(I+1) = BUF(3) I = I + 2 CALL READ (*1035,*1023,XYCDBF,BUF,6,0,FLAG) IF (BUF(1) .EQ. SUBCSE) GO TO 1021 GO TO 1025 1023 LASTXY = 1 C C COPY DATA FROM MASTER SUBCASE AFTER CURRENT SUBCASE. C THEN SORT DATA TOGETHER TO FORM SORTED UNION. C 1025 DO 1026 J = IMSTR,NMSTR,2 Z(I ) = Z(J ) Z(I+1) = Z(J+1) I = I + 2 1026 CONTINUE N = I - IXYSC CALL SORT2K (0,0,2,1,Z(IXYSC),N) C C REDUCE LIST TO UNIQUE PAIRS. C NXYSC = I - 4 J = IXYSC DO 1027 I = IXYSC,NXYSC,2 IF (Z(I+2).EQ.Z(J) .AND. Z(I+3).EQ.Z(J+1)) GO TO 1027 Z(J+2) = Z(I+2) Z(J+3) = Z(I+3) J = J + 2 1027 CONTINUE NXYSC = J C C READ A RECORD IN CASE CONTROL. SET POINTERS FOR XYCDB DATA TO C EITHER MASTER SUBCASE OR CURRENT SUBCASE IN CORE. C 1030 ICC = NXYSC + 1 CALL READ (*1033,*1031,CASECC,Z(ICC+1),BUF3-ICC,1,NCC) CALL MESAGE (-8,0,NAM) 1031 IF (MASTER.EQ.0 .OR. Z(ICC+1).NE.SUBCSE) GO TO 1032 IXY = IXYSC NXY = NXYSC GO TO 1040 1032 IXY = IMSTR NXY = NMSTR GO TO 1040 C C TERMINATE PROCESSING. C 1033 CONTINUE 1035 CALL CLOSE (CASECC,CLSREW) CALL CLOSE (XYCDBF,CLSREW) CALL CLOSE (SCR3 ,CLSREW) IF (ANYNEW .NE. 0) CASECC = SCR3 RETURN C 1036 VDRREQ = 1 CALL CLOSE (XYCDB,CLSREW) RETURN C C PICK UP POINTER TO CURRENT OUTPUT REQUEST. C DETERMINE IF XYCDB REQUEST EXISTS. C 1040 LOOP = 1 1041 DBNAME = LOOP IREQ = ICC + VDRCOM(LOOP+1) SETNO = Z(IREQ) DO 1042 J = IXY,NXY,2 IF (Z(J) .EQ. DBNAME) GO TO 1043 1042 CONTINUE GO TO 1095 1043 IXYSET = J DO 1044 J = IXYSET,NXY,2 IF (Z(J) .NE. DBNAME) GO TO 1045 1044 CONTINUE NXYSET = NXY GO TO 1050 1045 NXYSET = J - 2 C C BRANCH ON CASECC REQUEST-- NOTE, NO ACTION IF REQUEST = ALL. C 1050 IF (LOOP .GT. 7) GO TO 1051 SDR2 = +1 GO TO 1100 1051 VDRREQ = 1 SORT2 =+1 IF (SETNO) 1098,1060,1070 C C HERE IF NO CASECC REQUEST. C BUILD XYCDB SET IN CASECC SET FORMAT. ADD SET TO C CASECC RECORD AND TURN ON CASECC REQUEST FOR SET. C 1060 XSETNO = XSETNO + 1 Z(IREQ) = XSETNO Z(IREQ+1) = 0 FORMAT = -2 IF (APP(1) .EQ. TRN(1)) FORMAT = -1 Z(IREQ+2) = FORMAT IX = ICC + NCC + 1 Z(IX) = XSETNO JX = IX + 2 Z(JX) = Z(IXYSET+1) IF (IXYSET .EQ. NXYSET) GO TO 1066 IXYSET = IXYSET + 2 N = 1 DO 1065 J = IXYSET,NXYSET,2 IF (Z(J+1)-Z(JX) .EQ. N) GO TO 1064 IF (N .NE. 1) GO TO 1062 JX = JX + 1 Z(JX)= Z(J+1) GO TO 1065 1062 Z(JX+1) = -Z(J-1) JX = JX + 2 Z(JX) = Z(J+1) N = 1 GO TO 1065 1064 N = N + 1 1065 CONTINUE IF (N .EQ. 1) GO TO 1066 JX = JX + 1 Z(JX ) = -Z(NXYSET+1) 1066 Z(IX+1) = JX - IX - 1 NCC = NCC + Z(IX+1) + 2 ANYNEW = 1 GO TO 1100 C C HERE IF CASECC SET AND XYCDB SET EXIST. C FIRST, LOCATE CASECC SET. C 1070 ILIST = ICC + NCC + 3 IX = ICC + ILSYM ISETNO= IX + Z(IX) + 1 1071 ISET = ISETNO + 2 NSET = Z(ISETNO+1) + ISET - 1 IF (Z(ISETNO) .EQ. SETNO) GO TO 1080 ISETNO = NSET + 1 IF (ISETNO .LT. ILIST) GO TO 1071 GO TO 1100 C C COMPARE EACH POINT IN XYCDB REQUEST WITH CASECC SET. C ADD ANY POINTS IN XYCDB NOT IN CASECC TO CASECC SET. C 1080 I = ISET J = IXYSET K = ILIST L = ISET 1081 ARG = Z(J+1) 1082 IF (I-NSET) 1083,1085,1088 1083 IF (Z(I+1) .GT. 0) GO TO 1085 N = 2 IF (ARG-Z(I )) 1088,1091,1084 1084 IF (ARG+Z(I+1)) 1091,1087,1086 1085 N = 1 IF (ARG-Z(I )) 1088,1087,1086 1086 I = I + N GO TO 1082 1087 I = I + N GO TO 1091 1088 IF (L .EQ. I) GO TO 1090 LN = I - 1 LL = L DO 1089 L = LL,LN Z(K) = Z(L) K = K + 1 1089 CONTINUE L = I 1090 Z(K) = ARG K = K + 1 1091 J = J + 2 IF (J .LE. NXYSET) GO TO 1081 N = K - ILIST IF (N .EQ. 0) GO TO 1100 IF (L .GT. NSET) GO TO 1094 DO 1092 LL = L,NSET Z(K) = Z(LL) K = K + 1 1092 CONTINUE N = K - ILIST C C IF NO NEW POINTS IN SET, CURRENT CASECC SET IS UNION. C OTHERWISE, NEW SET IS UNION. TURN ON REQUEST FOR IT AND C EXTEND END OF CASECC RECORD. C 1094 XSETNO = XSETNO + 1 Z(IREQ ) = XSETNO Z(IREQ+1) = 10*SETNO + Z(IREQ+1) Z(IREQ+2) =-IABS(Z(IREQ+2)) Z(ILIST-2)= XSETNO Z(ILIST-1)= N NCC = NCC + N + 2 ANYNEW = 1 GO TO 1100 C C HERE IF NO XYCDB REQUEST EXISTS. C 1095 IF (SETNO .EQ. 0) GO TO 1100 IF (LOOP .GT. 7) GO TO 1096 SDR2 = 1 GO TO 1100 1096 VDRREQ = 1 GO TO 1100 C C HERE IF CASECC SET = ALL AND XY REQUEST EXISTS - TURN SORT 2 ON. C 1098 Z(IREQ+2) = -IABS(Z(IREQ+2)) C C TEST FOR COMPLETION OF ALL CASECC REQUESTS FOR CURRENT SUBCASE. C WHEN COMPLETE, WRITE CURRENT SUBCASE ON SCRATCH FILE. C 1100 LOOP = LOOP + 1 IF (LOOP .LE. 11) GO TO 1041 CALL WRITE (SCR3,Z(ICC+1),NCC,1) C C RETURN TO READ ANOTHER RECORD IN CASE CONTROL OR ANOTHER XYCDB C SUBCASE C IF (MASTER .EQ. 0) GO TO 1030 IF (SUBCSE .LE. Z(ICC+1)) GO TO 1020 GO TO 1030 C C FATAL FILE ERROR C 2000 CALL MESAGE (N,FILE,NAM) 2002 N = -2 GO TO 2000 END ================================================ FILE: mis/vdrb.f ================================================ SUBROUTINE VDRB (INFIL,OUTFL,IREQQ) C C VDRB PROCESSES VECTORS IN THE ANALYSIS OR MODAL SET. IN C ACCORDANCE WITH OUTPUT REQUESTS IN THE CASE CONTROL DATA BLOCK, C THESE VECTORS ARE FORMATTED FOR INPUT TO OFP WHERE ACTUAL OUTPUT C WILL OCCUR. C EXTERNAL ANDF INTEGER APP ,FORM ,SORT2 ,OUTPUT,Z ,SYSBUF,DATE , 1 TIME ,UD ,UE ,TWO ,QTYPE2,CEI ,FRQ , 2 TRN ,OUTFL ,MODAL ,DIRECT,CASECC,EQDYN ,USETD , 3 INFIL ,OEIGS ,PP ,BUF ,BUF1 ,BUF2 ,BUF3 , 4 FILE ,FLAG ,SILD ,CODE ,GPTYPE,ANDF ,BRANCH, 5 SETNO ,FSETNO,WORD ,RET ,RETX ,FORMAT,EOF , 6 VDRCOM,SDR2 ,XSET0 ,XSETNO,DEST ,AXIF ,VDRREQ, 7 OHARMS DIMENSION MCB(7) ,BUF(50) ,BUFR(50) ,MASKS(6) , 1 ZZ(1) ,CEI(2) ,FRQ(2) ,TRN(2) , 2 MODAL(2) ,DIRECT(2) ,NAM(2) ,VDRCOM(1) COMMON /CONDAS/ CONSTS(5) COMMON /BLANK / APP(2),FORM(2),SORT2,OUTPUT,SDR2 ,IMODE COMMON /VDRCOM/ VDRCOM,IDISP ,IVEL ,IACC ,ISPCF ,ILOADS,ISTR , 1 IELF ,IADISP,IAVEL ,IAACC ,IPNL ,ITTL ,ILSYM , 2 IFROUT,IDLOAD,CASECC,EQDYN ,USETD ,INFILE,OEIGS , 3 PP ,XYCDB ,PNL ,OUTFLE,OPNL1 ,SCR1 ,SCR2 , 4 BUF1 ,BUF2 ,BUF3 ,NAM ,BUF ,MASKS ,CEI , 5 FRQ ,TRN ,DIRECT,XSET0 ,VDRREQ,MODAL COMMON /ZZZZZZ/ Z(1) COMMON /SYSTEM/ SYSBUF,XX(13),DATE(3),TIME,DUM19(19),AXIF COMMON /NAMES / RD ,RDREW ,WRT ,WRTREW,CLSREW COMMON /BITPOS/ UM ,UO ,UR ,USG ,USB ,UL ,UA , 1 UF ,US ,UN ,UG ,UE ,UP ,UNE , 2 UFE ,UD COMMON /TWO / TWO(32) COMMON /UNPAKX/ QTYPE2,I2 ,J2 ,INCR2 EQUIVALENCE (CONSTS(2),TWOPI) ,(CONSTS(3),RADDEG) , 1 (BUF(1),BUFR(1)) ,(Z(1),ZZ(1)) DATA IGPF , IESE,IREIG / 1 167 , 170, 4HREIG / C C PERFORM GENERAL INITIALIZATION. C M8 = -8 MSKUD = TWO(UD) MSKUE = TWO(UE) ILIST = 1 I2 = 1 INCR2 = 1 IREQ = IREQQ IF (FORM(1).NE.MODAL(1) .AND. FORM(1).NE.DIRECT(1)) GO TO 1432 C C READ TRAILER ON USETD. SET NO. OF EXTRA POINTS. C READ TRAILER ON INFIL. SET PARAMETERS. C IF MODAL PROBLEM, NO. OF MODES = NO. OF ROWS IN VECTOR - NO. XTRA C PTS. C MCB(1) = USETD FILE = USETD CALL RDTRL (MCB) IF (MCB(1) .NE. USETD) GO TO 2001 NBREP = MCB(3) MCB(1) = INFIL CALL RDTRL (MCB) IF (MCB(1) .NE. INFIL) GO TO 1431 NVECTS = MCB(2) NROWS = MCB(3) IF (FORM(1) .EQ. MODAL(1)) NBRMOD = IMODE + NROWS - NBREP - 1 IF (MCB(5) .GT. 2) GO TO 1022 IF (APP(1) .EQ. FRQ(1)) GO TO 1022 C C REAL VECTOR. C KTYPE = 1 QTYPE2 = 1 NWDS = 8 KTYPEX = 0 GO TO 1030 C C COMPLEX VECTOR. C 1022 KTYPE = 2 QTYPE2 = 3 NWDS = 14 KTYPEX = 1000 C C IF DIRECT PROBLEM OR MODAL PROBLEM WITH EXTRA POINTS, C READ 2ND TABLE OF EQDYN INTO CORE. THEN READ USETD INTO CORE. C 1030 IF (FORM(1).EQ.MODAL(1) .AND. NBREP.EQ.0) GO TO 1050 FILE = EQDYN CALL GOPEN (EQDYN,Z(BUF1),0) CALL FWDREC (*2002,EQDYN) CALL READ (*2002,*1031,EQDYN,Z,BUF1,1,NEQD) CALL MESAGE (M8,0,NAM) 1031 CALL CLOSE (EQDYN,CLSREW) IUSETD = NEQD + 1 NCORE = BUF1 - IUSETD FILE = USETD CALL GOPEN (USETD,Z(BUF1),0) CALL READ (*2002,*1032,USETD,Z(IUSETD),NCORE,1,FLAG) CALL MESAGE (M8,0,NAM) 1032 CALL CLOSE (USETD,CLSRRW) ILIST = IUSETD NEQDYN = NEQD - 1 KN = NEQD/2 C C BRANCH ON PROBLEM TYPE. C IF (FORM(1) .EQ. MODAL(1)) GO TO 1049 C C DIRECT - PROCESS EACH ENTRY IN EQDYN. IF POINT IS NOT IN ANALYSIS C SET, REPLACE SILD NO. WITH ZERO. OTHERWISE, REPLACE SILD C NO. WITH POSITION IN ANALYSIS SET (I.E. ROW INDEX IN C VECTOR) AND CODE INDICATING WHICH COMPONENTS OF POINT ARE C IN ANALYSIS SET. C DO 1044 I = 1,NEQDYN,2 SILD = Z(I+1)/10 GPTYPE = Z(I+1) - 10*SILD NUSETD = IUSETD + SILD - 1 K = 0 M = 1 IF (GPTYPE .EQ. 1) M = 6 J = NUSETD DO 1041 L = 1,M IF (ANDF(Z(J),MSKUD) .NE. 0) K = K + MASKS(L) 1041 J = J + 1 IF (K .EQ. 0) GO TO 1043 L = 1 M = NUSETD - 1 IF (M .LT. IUSETD) GO TO 1045 DO 1042 J = IUSETD,M IF (ANDF(Z(J),MSKUD) .NE. 0) L = L + 1 1042 CONTINUE 1045 Z(I+1) = GPTYPE + K + 256*L GO TO 1044 1043 Z(I+1) = 0 1044 CONTINUE GO TO 1050 C C MODAL - PROCESS EACH ENTRY IN EQDYN. IF POINT IS NOT AN EXTRA C POINT, REPLACE SILD NO. WITH ZERO. OTHERWISE, REPLACE SILD C NO. WITH POSITION IN MODAL SET (I.E. ROW INDEX IN VECTOR). C 1049 DO 1048 I = 1,NEQDYN,2 SILD = Z(I+1)/10 GPTYPE = Z(I+1) - 10*SILD IF (GPTYPE .NE. 3) GO TO 1047 NUSETD = IUSETD + SILD - 1 IF (ANDF(Z(NUSETD),MSKUE) .EQ. 0) GO TO 1047 K = NBRMOD - IMODE + 1 DO 1046 J = IUSETD,NUSETD IF (ANDF(Z(J),MSKUE) .NE. 0) K = K + 1 1046 CONTINUE Z(I+1) = 10*K + 3 GO TO 1048 1047 Z(I+1) = 0 1048 CONTINUE C C SET PARAMETER FOR APPROACH. THEN OPEN CASE CONTROL, C SKIP HEADER RECORD AND BRANCH ON APPROACH. C 1050 BRANCH = 0 IF (APP(1) .EQ. CEI(1)) BRANCH = 1 IF (APP(1) .EQ. FRQ(1)) BRANCH = 2 IF (APP(1) .EQ. TRN(1)) BRANCH = 3 IF (APP(1) .EQ. IREIG ) BRANCH = 4 IF (BRANCH .EQ. 0) GO TO 1432 CALL GOPEN (CASECC,Z(BUF1),0) GO TO (1060,1070,1070,1060), BRANCH C C COMPLEX EIGENVALUES - READ LIST OF MODE NOS. AND VALUES INTO CORE. C 1060 FILE = OEIGS CALL GOPEN (OEIGS,Z(BUF2),0) CALL FWDREC (*2002,OEIGS) I = ILIST M = 8 - KTYPE 1061 CALL READ (*2002,*1062,OEIGS,BUF,M,0,FLAG) Z(I ) = BUF(1) Z(I+1) = BUF(3) Z(I+2) = BUF(4) I = I + 3 GO TO 1061 1062 CALL CLOSE (OEIGS,CLSREW) NLIST = I - 3 ICC = I GO TO 1100 C C FREQUENCY OR TRANSIENT RESPONSE - READ LIST INTO CORE. C 1070 FILE = PP CALL OPEN (*2001,PP,Z(BUF2),RDREW) I = ILIST M = 3 IX = 1 IF (APP(1) .EQ. FRQ(1)) IX = 2 1071 CALL READ (*2002,*1072,PP,BUF,M,0,FLAG) Z(I ) = BUF(M) Z(I+1) = 0 I = I + IX M = 1 GO TO 1071 1072 CALL CLOSE (PP,CLSREW) NLIST = I - IX ICC = I C C OPEN OUTPUT FILE. WROTE HEADER RECORD. C 1100 FILE = OUTFL CALL OPEN (*1431,OUTFL,Z(BUF2),WRTREW) MCB(1) = OUTFL CALL FNAME (OUTFL,BUF) DO 1101 I = 1,3 1101 BUF(I+2) = DATE(I) BUF(6) = TIME BUF(7) = 1 CALL WRITE (OUTFL,BUF,7,1) C C OPEN INPUT FILE. SKIP HEADER RECORD. C FILE = INFIL CALL OPEN (*1430,INFIL,Z(BUF3),RDREW) CALL FWDREC (*2002,INFIL) C C SET PARAMETERS TO KEEP CASE CONTROL AND VECTORS IN SYNCH. C EOF = 0 JCOUNT = 0 KCOUNT = 1 JLIST = ILIST KFRQ = 0 KWDS = 0 INCORE = 0 C C READ A RECORD IN CASE CONTROL. C 1130 CALL READ (*1400,*1131,CASECC,Z(ICC+1),BUF3-ICC,1,NCC) CALL MESAGE (M8,0,NAM) 1131 IVEC = ICC + NCC + 1 IREQX = ICC + IDISP IF (Z(IREQX) .NE. 0) SDR2 = 1 IREQX = ICC + IVEL IF (Z(IREQX) .NE. 0) SDR2 = 1 IREQX = ICC + IACC IF (Z(IREQX) .NE. 0) SDR2 = 1 IREQX = ICC + ISPCF IF (Z(IREQX) .NE. 0) SDR2 = 1 IREQX = ICC + ILOADS IF (Z(IREQX) .NE. 0) SDR2 = 1 IREQX = ICC + ISTR IF (Z(IREQX) .NE. 0) SDR2 = 1 IREQX = ICC + IELF IF (Z(IREQX) .NE. 0) SDR2 = 1 IREQX = ICC + IGPF IF (Z(IREQX) .NE. 0) SDR2 = 1 IREQX = ICC + IESE IF (Z(IREQX) .NE. 0) SDR2 = 1 C C SET OUTPUT HARMONICS REQUEST WHICH IS USED IF FLUID ELEMENTS C ARE IN PROBLEM. C OHARMS = Z(ICC+137) IF (OHARMS.LT.0 .AND. AXIF.NE.0) OHARMS = AXIF C C IN THE ABOVE IF OHARMS = -1 THEN ALL IS IMPLIED. IF OHARMS = 0 C THEN NONE IS IMPLIED AND IF OHARMS IS POSITIVE THEN THAT VALUE C MINUS ONE IS IMPLIED. C IF (AXIF .EQ. 0) GO TO 1140 IF (OHARMS .EQ. 0) GO TO 1140 OHARMS = OHARMS - 1 OHARMS = 2*OHARMS + 3 C C DETERMINE IF OUTPUT REQUEST IS PRESENT. IF NOT, TEST FOR RECORD C SKIP ON INFIL, THEN GO TO END OF REQUEST. IF SO, SET POINTERS C TO SET DEFINING REQUEST. C 1140 IREQX = ICC +IREQ SETNO = Z(IREQX ) DEST = Z(IREQX+1) XSETNO = -1 IF (SETNO) 1150,1141,1143 1141 IF (APP(1) .NE. FRQ(1)) GO TO 1142 IF (KCOUNT .NE. 1) GO TO 1350 GO TO 1150 1142 CALL FWDREC (*2002,INFIL) JCOUNT = JCOUNT + 1 GO TO 1311 1143 IX = ICC + ILSYM ISETNO = IX + Z(IX) + 1 1144 ISET = ISETNO + 2 NSET = Z(ISETNO+1) + ISET - 1 IF (Z(ISETNO) .EQ. SETNO) GO TO 1145 ISETNO = NSET + 1 IF (ISETNO .LT. IVEC) GO TO 1144 GO TO 1150 C C IF REQUIRED, LOCATE PRINT/PUNCH SUBSET. C 1145 IF (SETNO .LT. XSET0) GO TO 1150 XSETNO = DEST/10 DEST = DEST - 10*XSETNO IF (XSETNO .EQ. 0) GO TO 1150 IXSETN = IX + Z(IX) + 1 1146 IXSET = IXSETN + 2 NXSET = Z(IXSETN+1) + IXSET - 1 IF (Z(IXSETN) .EQ. XSETNO) GO TO 1150 IXSETN = NXSET + 1 IF (IXSETN .LT. IVEC) GO TO 1146 XSETNO = -1 SETNO = -1 C C UNPACK VECTOR INTO CORE (UNLESS VECTOR IS ALREADY IN CORE). C 1150 IF (INCORE .NE. 0) GO TO 1160 IVECN = IVEC + KTYPE*NROWS - 1 IF (IVECN .GE. BUF3) CALL MESAGE (M8,0,NAM) J2 = NROWS CALL UNPACK (*1151,INFIL,Z(IVEC)) GO TO 1153 1151 DO 1152 I = IVEC,IVECN 1152 ZZ(I) = 0. 1153 JCOUNT = JCOUNT + 1 C C TEST FOR CONTINUATION. C 1160 IF (APP(1).EQ.FRQ(1) .AND. SETNO.EQ.0) GO TO 1350 C C PREPARE TO WRITE ID RECORD ON OUTPUT FILE. C GO TO (1190,1200,1220,1190), BRANCH C C COMPLEX EIGENVALUES. C 1190 BUF(2) = 1014 BUF(5) = Z(JLIST ) BUF(6) = Z(JLIST+1) BUF(7) = Z(JLIST+2) BUF(8) = 0 GO TO 1250 C C FREQUENCY RESPONSE. C 1200 IX = ICC + IDLOAD BUF(8) = Z(IX) BUF(6) = 0 BUF(7) = 0 IF (KFRQ .NE. 0) GO TO 1207 C C FIRST TIME FOR THIS LOAD VECTOR ONLY - MATCH LIST OF USER C REQUESTED FREQS WITH ACTUAL FREQS. MARK FOR OUTPUT EACH ACTUAL C FREQ WHICH IS CLOSEST TO USER REQUEST. C KFRQ = 1 IX = ICC + IFROUT FSETNO = Z(IX) IF (FSETNO .LE. 0) GO TO 1202 IX = ICC + ILSYM ISETNF = IX + Z(IX) + 1 1201 ISETF = ISETNF + 2 NSETF = Z(ISETNF+1) + ISETF - 1 IF (Z(ISETNF) .EQ. FSETNO) GO TO 1204 ISETNF = NSETF + 1 IF (ISETNF .LT. IVEC) GO TO 1201 FSETNO = -1 1202 DO 1203 J = ILIST,NLIST,2 1203 Z(J+1) = 1 GO TO 1207 1204 DO 1206 I = ISETF,NSETF K = 0 DIFF = 1.E+25 BUFR(1) = ZZ(I) DO 1205 J = ILIST,NLIST,2 IF (Z(J+1) .NE. 0) GO TO 1205 DIFF1 = ABS(ZZ(J) - BUFR(1)) IF (DIFF1 .GE. DIFF) GO TO 1205 DIFF = DIFF1 K = J 1205 CONTINUE IF (K .NE. 0) Z(K+1) = 1 1206 CONTINUE C C DETERMINE IF CURRENT FREQ IS MARKED FOR OUTPUT. C 1207 IF (Z(JLIST+1) .EQ. 0) GO TO 1350 BUF(5) = Z(JLIST) BUF(2) = KCOUNT + 1014 GO TO 1250 C C TRANSIENT RESPONSE. C 1220 BUF(5) = Z(JLIST) BUF(2) = KCOUNT + 14 IF (IREQ .EQ. IPNL) BUF(2) = 12 IX = ICC + IDLOAD BUF(8) = Z(IX) BUF(6) = 0 BUF(7) = 0 C C WRITE ID RECORD ON OUTPUT FILE. C 1250 IX = BRANCH + 3 IF (APP(1) .EQ. CEI(1)) IX = 9 IF (APP(1) .EQ. IREIG ) IX = 2 BUF(1) = DEST + 10*IX BUF(3) = 0 BUF(4) = Z(ICC+1) IF (Z(IREQX+2) .LT. 0) SORT2 = +1 FORMAT = IABS(Z(IREQX+2)) BUF(9) = FORMAT BUF(10) = NWDS CALL WRITE (OUTFL,BUF,50,0) IX = ICC + ITTL CALL WRITE (OUTFL,Z(IX),96,1) OUTPUT = 1 IF (Z(IREQX+2) .LT. 0) SORT2 = 1 C C BUILD DATA RECORD ON OUTPUT FILE. C IF (FORM(1) .EQ. MODAL(1)) GO TO 1270 IF (SETNO .NE. -1) GO TO 1263 C C DIRECT PROBLEM SET .EQ. -ALL- - OUTPUT POINTS IN ANALYSIS SET C KX = 1 ASSIGN 1262 TO RETX 1261 WORD = Z(KX+1) IF (WORD .EQ. 0) GO TO RETX, (1262,1265,1268) J = WORD/256 BUF(2) = ANDF(WORD,3) CODE = WORD - 256*J - BUF(2) BUF(1) = Z(KX) IF (BUF(2) .EQ. 1) GO TO 1300 GO TO 1290 1262 KX = KX + 2 IF (KX .LE. NEQDYN) GO TO 1261 GO TO 1310 C C DIRECT PROBLEM WITH SET .NE. -ALL- OUTPUT POINTS IN REQUESTED SET C WHICH ARE ALSO IN ANALYSIS SET. C 1263 JHARM = 0 1267 I = ISET ASSIGN 1261 TO RET 1264 BUF(1) = Z(I) IF (I .EQ. NSET) GO TO 1266 IF (Z(I+1) .GT. 0) GO TO 1266 N = -Z(I+1) I = I + 1 ASSIGN 1265 TO RETX GO TO 3000 1265 BUF(1) = BUF(1) + 1 IF (BUF(1) .LE. N) GO TO 3000 GO TO 1268 1266 ASSIGN 1268 TO RETX GO TO 3000 1268 I = I + 1 IF (I .LE. NSET) GO TO 1264 IF (AXIF .EQ. 0) GO TO 1310 JHARM = JHARM + 1 IF (JHARM .LE. OHARMS) GO TO 1267 GO TO 1310 C C MODAL PROBLEM WITH SET .EQ. -ALL- OUTPUT ALL MODAL POINTS. THEN C IF EXTRA POINTS, OUTPUT THEM. C 1270 IF (SETNO .NE. -1) GO TO 1275 BUF(1) = IMODE BUF(2) = 4 J = 1 ASSIGN 1271 TO RETX GO TO 1290 1271 BUF(1) = BUF(1) + 1 J = BUF(1) - IMODE + 1 IF (BUF(1) .LE. NBRMOD) GO TO 1290 IF (NBREP .EQ. 0) GO TO 1310 KX = 1 ASSIGN 1273 TO RETX BUF(2) = 3 1272 J = Z(KX+1)/10 GPTYPE = Z(KX+1) - 10*J BUF(1) = Z(KX) IF (GPTYPE .EQ. 3) GO TO 1290 1273 KX = KX + 2 IF (KX .LE. NEQDYN) GO TO 1272 GO TO 1310 C C MODAL PROBLEM WITH SET .NE. -ALL- ASSUME NUMBERS IN REQUESTED SET C WHICH ARE .LE. NO. OF MODES ARE C MODAL COORDINATES AND ANY OTHERS C ARE EXTRA POINTS. C 1275 JHARM = 0 1274 I = ISET 1276 BUF(1) = Z(I) IF (I .EQ. NSET) GO TO 1281 IF (Z(I+1) .GT. 0) GO TO 1281 N = -Z(I+1) BUF(2) = 4 I = I + 1 ASSIGN 1278 TO RETX 1277 IF (BUF(1).LT.IMODE .OR. BUF(1).GT.NBRMOD) GO TO 1279 J = BUF(1) - IMODE + 1 GO TO 1290 1278 BUF(1) = BUF(1) + 1 IF (BUF(1) .LE. N) GO TO 1277 GO TO 1284 1279 IF (NBREP .EQ. 0) GO TO 1284 ASSIGN 1280 TO RET BUF(2) = 3 GO TO 3000 1280 J = Z(KX+1)/10 GPTYPE = Z(KX+1) - 10*J IF (GPTYPE .EQ. 3) GO TO 1290 GO TO 1278 1281 ASSIGN 1284 TO RETX IF (BUF(1).LT.IMODE .OR. BUF(1).GT.NBRMOD) GO TO 1282 ASSIGN 1284 TO RETX J = BUF(1) - IMODE + 1 BUF(2) = 4 GO TO 1290 1282 IF (NBREP .EQ. 0) GO TO 1284 ASSIGN 1283 TO RET GO TO 3000 1283 J = Z(KX+1)/10 BUF(2) = Z(KX+1) - 10*J IF (BUF(2) .EQ. 3) GO TO 1290 1284 I = I + 1 IF (I .LE. NSET) GO TO 1276 IF (AXIF .EQ. 0) GO TO 1310 JHARM = JHARM + 1 IF (JHARM .LE. OHARMS) GO TO 1274 GO TO 1310 C C SCALAR, EXTRA OR MODAL POINT. C 1290 J = IVEC + KTYPE*(J-1) BUFR(3) = ZZ(J) DO 1293 K = 4,NWDS 1293 BUF(K) = 0 IF (KTYPE .EQ. 1) GO TO 1309 C C COMPLEX SCALAR, EXTRA OR MODAL POINT. C BUFR(9) = ZZ(J+1) IF (FORMAT .NE. 3) GO TO 1309 REDNER = SQRT(BUFR(3)**2 + BUFR(9)**2) IF (REDNER) 12921,1309,12921 12921 BUFR(9) = ATAN2(BUFR(9),BUFR(3))*RADDEG IF (BUFR(9) .LT. -0.00005) BUFR(9) = BUFR(9) + 360.0 BUFR(3) = REDNER GO TO 1309 C C GRID POINT. C 1300 DO 1301 K = 3,NWDS 1301 BUF(K) = 1 J = IVEC + KTYPE*(J-1) IF (KTYPE .EQ. 2) GO TO 1303 DO 1302 K = 1,6 IF (ANDF(CODE,MASKS(K)) .EQ. 0) GO TO 1302 BUFR(K+2) = ZZ(J) J = J + 1 1302 CONTINUE GO TO 1309 C C COMPLEX GRID POINT. C 1303 DO 1305 K = 1,6 IF (ANDF(CODE,MASKS(K)) .EQ. 0) GO TO 1305 BUFR(K+2) = ZZ(J ) BUFR(K+8) = ZZ(J+1) J = J + 2 IF (FORMAT .NE. 3) GO TO 1305 REDNER = SQRT(BUFR(K+2)**2 + BUFR(K+8)**2) IF (REDNER) 13031,1305,13031 13031 BUFR(K+8) = ATAN2(BUFR(K+8),BUFR(K+2))*RADDEG IF (BUFR(K+8) .LT. -0.00005) BUFR(K+8)= BUFR(K+8) + 360.0 BUFR(K+2) = REDNER 1305 CONTINUE C C DETERMINE DESTINATION FOR ENTRY. C C C IF A FLUID PROBLEM THEN A CHECK IS NOW MADE TO SEE IF THIS C HARMONIC IS TO BE OUTPUT C 1309 IF (AXIF) 1315,1314,1315 1315 IF (BUF(1) .LT. 500000) GO TO 1314 ITEMP = BUF(1) - MOD(BUF(1),500000) ITEMP = ITEMP/500000 IF (ITEMP .GE. OHARMS) GO TO 1310 1314 ID = BUF(1) BUF(1) = 10*ID + DEST IF (XSETNO) 1304,1306,1307 1306 BUF(1) = 10*ID GO TO 1304 1307 IX = IXSET 1313 IF (IX .EQ. NXSET) GO TO 1308 IF (Z(IX+1) .GT. 0) GO TO 1308 IF (ID.GE.Z(IX) .AND. ID.LE.-Z(IX+1)) GO TO 1304 IX = IX + 2 GO TO 1312 1308 IF (ID .EQ. Z(IX)) GO TO 1304 IX = IX + 1 1312 IF (IX .LE. NXSET) GO TO 1313 GO TO 1306 C C WRITE ENTRY ON OUTPUT FILE. C 1304 CALL WRITE (OUTFL,BUF,NWDS,0) KWDS = KWDS + NWDS BUF(1) = ID GO TO RETX, (1262,1265,1268,1271,1273,1278,1284) C C CONCLUDE PROCESSING OF THIS VECTOR. C 1310 CALL WRITE (OUTFL,0,0,1) 1311 GO TO (1340,1350,1360,1340), BRANCH C C COMPLEX EIGENVALUES. C 1340 JLIST = JLIST + 3 1341 IF (JCOUNT .GE. NVECTS) GO TO 1410 IF (EOF .EQ. 0) GO TO 1130 GO TO 1140 C C FREQUENCY RESPONSE. C 1350 IF (KCOUNT .EQ. 3) GO TO 1356 N = IVECN - 1 OMEGA = TWOPI*ZZ(JLIST) DO 1351 I = IVEC,N,2 BUFR(1) = -OMEGA*ZZ(I+1) ZZ(I+1) = OMEGA*ZZ(I ) 1351 ZZ(I ) = BUFR(1) IF (KCOUNT .EQ. 2) GO TO 1352 IREQ = IAVEL GO TO 1353 1352 IREQ = IAACC 1353 KCOUNT = KCOUNT + 1 INCORE = 1 GO TO 1140 1356 KCOUNT = 1 INCORE = 0 IREQ = IADISP JLIST = JLIST + 2 IF (JLIST.LE.NLIST .AND. JCOUNT.LT.NVECTS) GO TO 1140 KFRQ = 0 JLIST = ILIST DO 1357 I = ILIST,NLIST,2 1357 Z(I+1) = 0 IF (JCOUNT .LT. NVECTS) GO TO 1130 GO TO 1410 C C TRANSIENT RESPONSE. C 1360 IF (IREQ .EQ. IPNL) GO TO 1364 IF (KCOUNT-2) 1361,1362,1363 1361 IREQ = IAVEL KCOUNT = 2 GO TO 1140 1362 IREQ = IAACC KCOUNT = 3 GO TO 1140 1363 IREQ = IADISP KCOUNT = 1 1364 JLIST = JLIST + 1 IF (JLIST.LE.NLIST .AND. JCOUNT.LT.NVECTS) GO TO 1140 GO TO 1410 C C HERE WHEN EOF ENCOUNTERED ON CASE CONTROL. C 1400 EOF = 1 GO TO (1341,1410,1410,1341), BRANCH C C CONCLUDE PROCESSING. C 1410 CALL CLOSE (CASECC,CLSREW) CALL CLOSE (INFIL, CLSREW) CALL CLOSE (OUTFL, CLSREW) MCB(1) = OUTFL MCB(2) = KWDS/65536 MCB(3) = KWDS - 65536*MCB(2) MCB(4) = 0 MCB(5) = 0 MCB(6) = 0 MCB(7) = 0 CALL WRTTRL (MCB) RETURN C C HERE IF ABNORMAL CONDITION. C 1430 CALL CLOSE (OUTFL,CLSREW) 1431 CALL MESAGE (30,78,0) 1432 RETURN C C FATAL FILE ERRORS C 2001 N = -1 GO TO 2005 2002 N = -2 2005 CALL MESAGE (N,FILE,NAM) RETURN C C BINARY SEARCH ROUTINE C 3000 KLO = 1 KHI = KN IF (AXIF) 3011,3001,3011 3011 BUF(1) = JHARM*500000 + BUF(1) 3001 K = (KLO+KHI+1)/2 3002 KX = 2*K - 1 IF (BUF(1)-Z(KX)) 3003,3009,3004 3003 KHI = K GO TO 3005 3004 KLO = K 3005 IF (KHI-KLO-1) 3010,3006,3001 3006 IF (K .EQ. KLO) GO TO 3007 K = KLO GO TO 3008 3007 K = KHI 3008 KLO = KHI GO TO 3002 3009 GO TO RET, (1261,1280,1283) 3010 GO TO RETX, (1262,1265,1268,1273,1278,1284) END ================================================ FILE: mis/vec.f ================================================ SUBROUTINE VEC C C THE CALL TO THIS MODULE IS C VEC USET / V / C,N,X / C,N,X0 / C,N,X1 $ C OR VEC USETD / V / C,N,X / C,N,X0 / C,N,X1 $ C C ALTERNATE FORM OF THE CALL TO THIS MODULE IS C VEC USET / V / C,N,X / C,N,X0 / C,N,COMP $ C OR VEC USETD / V / C,N,X / C,N,X0 / C,N,COMP $ C C ALTERNATE FORM OF THE CALL TO THIS MODULE IS C VEC USET / V / C,N,X / C,N,COMP / C,N,X1 $ C OR VEC USETD / V / C,N,X / C,N,COMP / C,N,X1 $ C C ALTERNATE FORM OF THE CALL TO THIS MODULE IS C VEC USET / V / C,N,BITID / C,N,* / C,N,* / C,N,I $ C OR VEC USET / V / C,N,BITID / C,N,X1 $ C OR VEC USETD / V / C,N,BITID / C,N,* / C,N,* / C,N,I $ C OR VEC USETD / V / C,N,BITID / C,N,X1 $ C C ALTERNATE FORM OF THE CALL TO THIS MODULE IS C VEC USET / V / C,N,COLUMNS / C,N,LEFT / C,N,* / C C,N,I $ C OR VEC USETD / V / C,N,COLUMNS / C,N,LEFT / C,N,* / C C,N,I $ C ( V WILL HAVE -I- COLUMNS GENERATED FROM BIT C POSITIONS 1,2,3,...,I OF USET (OR USETD) WHERE C THE 32 RIGHT-MOST BITS ARE CONSIDERED, COUNTING C FROM LEFT TO RIGHT. ) C C ALTERNATE FORM OF THE CALL TO THIS MODULE IS C VEC USET / V / C,N,COLUMNS / C,N,RIGHT / C,N,* / C C,N,I $ C OR VEC USETD / V / C,N,COLUMNS / C,N,RIGHT / C,N,* / C C,N,I $ C ( V WILL HAVE -I- COLUMNS GENERATED FROM BIT C POSITIONS 32,31,...,33-I OF USET (OR USETD) WHERE C THE 32 RIGHT-MOST BITS ARE CONSIDERED, COUNTING C FROM LEFT TO RIGHT. ) C C C CORE REQUIREMENTS.. ONE BUFFER PLUS USET (OR USETD). C FOR COLUMNS OPTION, ONE GINO BUFFER PLUS 2*USET (OR USETD) REQD. C C EXTERNAL ANDF LOGICAL LZ,L0,L1,COLS,FLAG1,FLAG2 INTEGER ANDF,MODNAM(2),FI,FO,F,NAM(2),T(7),TWO, 1 P(2),P1,P2,P3,P4,BN,BLANK,TYIN,TYOU,B(2),C(2), 2 OFFSET,D(2),LR(2,2) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / P1(2),P2(2),P3(2),P4 1 /ZZZZZZ/ X(1) 2 /SYSTEM/ LB,NOUT,NERR 3 /BITPOS/ BN(32,2) 4 /PACKX / TYIN,TYOU,II,NN,INCR 5 /TWO / TWO(32) EQUIVALENCE (NR,T(3)) DATA NERMAX, BLANK / 10,1H / DATA B,C,D / 4HBITI,4HD ,4HCOMP,4H ,4HCOLU,4HMNS / DATA LR / 4HRIGH,4HT ,4HLEFT,4H / DATA MODNAM/ 4HVEC ,4H / DATA FI,FO , NBN / 101,201, 32 / C C FLAG1 = .FALSE. FLAG2 = .FALSE. OFFSET = 0 NERR = 0 LZ = .FALSE. L0 = .FALSE. L1 = .FALSE. LC = KORSZ(X) - LB IF (LC .LE. 0) CALL MESAGE (-8,LC,MODNAM) IB = LC + 1 C C CHECK PARAMETER VALUES AND COMPUTE MASKS. C IF (P1(1).NE.D(1) .OR. P1(2).NE.D(2)) GO TO 5 COLS = .TRUE. DO 3 J = 1,2 IF (P2(1).EQ.LR(1,J) .AND. P2(2).EQ.LR(2,J)) GO TO 4 3 CONTINUE J = 2 4 J = 2*J - 3 GO TO 13 5 CONTINUE COLS = .FALSE. IF (P1(1).EQ.B(1) .AND. P1(2).EQ.B(2)) GO TO 13 IF (P1(2) .NE. BLANK) GO TO 11 DO 10 I = 1,NBN IF (P1(1) .EQ. BN(I,2)) GO TO 19 10 CONTINUE 11 P(1) = P1(1) P(2) = P1(2) GO TO 9904 13 LZ = .TRUE. L0 = .TRUE. IF (P4.LT.0 .OR. P4.GT.32) GO TO 9908 IF (COLS) GO TO 50 IF (P4 .GT. 0) GO TO 18 IF (P2(2) .NE. BLANK) GO TO 21 DO 15 I = 1,NBN IF (P2(1) .EQ. BN(I,2)) GO TO 35 15 CONTINUE GO TO 21 18 MASKX1 = TWO(P4) GO TO 50 19 I = BN(I,1) MASKX = TWO(I) C IF (P2(1).EQ.C(1) .AND. P2(2).EQ.C(2)) GO TO 23 IF (P2(2) .NE. BLANK) GO TO 21 DO 20 I = 1,NBN IF (P2(1) .EQ. BN(I,2)) GO TO 25 20 CONTINUE 21 P(1) = P2(1) P(2) = P2(2) GO TO 9904 23 L0 = .TRUE. GO TO 26 25 I = BN(I,1) MASKX0 = TWO(I) C 26 CONTINUE IF (P3(1).EQ.C(1) .AND. P3(2).EQ.C(2)) GO TO 33 IF (P3(2) .NE. BLANK) GO TO 31 DO 30 I = 1,NBN IF (P3(1) .EQ. BN(I,2)) GO TO 35 30 CONTINUE 31 P(1) = P3(1) P(2) = P3(2) GO TO 9904 33 L1 = .TRUE. IF (L0) GO TO 9907 GO TO 50 35 I = BN(I,1) MASKX1 = TWO(I) C C BLAST READ USET (OR USETD) INTO CORE. C 50 CONTINUE F = FI CALL FNAME (F,NAM) CALL GOPEN (F,X(IB),0) CALL READ (*9902,*100,F,X,LC,0,NW) C C INSUFFICIENT CORE - IF DESIRED, THIS ROUTINE CAN BE WRITTEN TO C RUN IN SMALLER CORE. C LCEX = 0 70 CALL READ (*9902,*80,F,X,LC,0,NW) LCEX = LCEX + LC GO TO 70 80 LCEX = LCEX + NW IF (COLS) LCEX = 2*LCEX GO TO 9903 100 CONTINUE CALL CLOSE (F,1) IF (.NOT.COLS) GO TO 150 IF (P4 .LE. 0) GO TO 9908 OFFSET = NW K = 1 L = 1 IF (J .LT. 0) K = 32 MASKX1 = TWO(K) IF (2*NW .LE. LC) GO TO 150 LCEX = 2*NW - LC GO TO 9903 150 CONTINUE C C PREPARE OUTPUT FILE. C F = FO CALL GOPEN (F,X(IB),1) CALL MAKMCB (T,F,0,2,1) TYIN = 1 TYOU = 1 II = 1 INCR = 1 C C CREATE VECTOR IN CORE OCCUPIED BY USET (OR USETD). C 170 NR = 0 NZ = 0 C DO 500 I = 1,NW IF (LZ) GO TO 220 IF (ANDF(X(I),MASKX) .EQ. 0) GO TO 400 220 CONTINUE IF (.NOT.L0) GO TO 230 IF (ANDF(X(I),MASKX1) .EQ. 0) GO TO 370 GO TO 300 230 IF (.NOT.L1) GO TO 240 IF (ANDF(X(I),MASKX0) .EQ. 0) GO TO 300 GO TO 370 240 CONTINUE IF (ANDF(X(I),MASKX1) .EQ. 0) GO TO 350 IF (ANDF(X(I),MASKX0) .EQ. 0) GO TO 300 NERR = NERR + 1 IF (NERR .GT. NERMAX) GO TO 500 WRITE (NOUT,250) UFM,I 250 FORMAT (A23,' 2120, MODULE VEC - BOTH SUBSET BITS ARE NON-ZERO.', 1 3X,'I =',I10) GO TO 500 300 NR = NR + 1 NZ = NZ + 1 X(NR+OFFSET) = 1.0 GO TO 500 350 CONTINUE IF (ANDF(X(I),MASKX0) .NE. 0) GO TO 370 NERR = NERR + 1 IF (NERR .GT. NERMAX) GO TO 500 WRITE (NOUT,360) UFM,I 360 FORMAT (A23,' 2121, MODULE VEC - BOTH SUBSET BITS ARE ZERO.',3X, 1 'I =',I10) GO TO 500 370 NR = NR + 1 X(NR+OFFSET) = 0.0 GO TO 500 400 IF (L0) GO TO 450 IF (ANDF(X(I),MASKX0) .EQ. 0) GO TO 450 NERR = NERR + 1 IF (NERR .GT. NERMAX) GO TO 450 WRITE (NOUT,410) UFM,I 410 FORMAT (A23,' 2122, MODULE VEC - SET X BIT IS ZERO BUT SUBSET X0', 1 ' BIT IS NOT. I =',I10) 450 IF (L1) GO TO 500 IF (ANDF(X(I),MASKX1) .EQ. 0) GO TO 500 NERR = NERR + 1 IF (NERR .GT. NERMAX) GO TO 500 WRITE (NOUT,460) UFM,I 460 FORMAT (A23,' 2123, MODULE VEC - SET X BIT IS ZERO BUT SUBSET X1', 1 ' BIT IS NOT. I =',I10) 500 CONTINUE C IF (NERR .LE. 0) GO TO 540 IF (NERR-NERMAX) 9995,9995,9906 540 CONTINUE C IF (FLAG1) GO TO 600 FLAG1 = .TRUE. IF (NR .GT. 0) GO TO 600 WRITE (NOUT,550) UWM 550 FORMAT (A25,' 2124, MODULE VEC - NR=0, OUTPUT WILL BE PURGED.') GO TO 900 600 IF (NZ .GT. 0) GO TO 700 IF (FLAG2) GO TO 700 FLAG2 = .TRUE. WRITE (NOUT,650) UWM 650 FORMAT (A25,' 2125, MODULE VEC - NZ=0, ONE OR MORE COLUMNS OF ', 1 'OUTPUT MATRIX WILL BE NULL.') GO TO 750 700 CONTINUE C C PACK OUT COLUMN OF OUTPUT VECTOR. C 750 NN = NR CALL PACK (X(OFFSET+1),F,T) IF (.NOT.COLS .OR. L.GE.P4) GO TO 800 L = L + 1 K = K + J MASKX1 = TWO(K) GO TO 170 800 CALL WRTTRL (T) 900 CALL CLOSE (F,1) C RETURN C C ERROR PROCESSING. C 9902 WRITE (NOUT,9952) UFM,F,NAM 9952 FORMAT (A23,' 2141, MODULE VEC - EOF ENCOUNTERED WHILE READING ', 1 'GINO FILE ',I3,', DATA BLOCK ',2A4) GO TO 9995 9903 WRITE (NOUT,9953) UFM,LC,LCEX 9953 FORMAT (A23,' 2142, INSUFFICIENT CORE FOR MODULE VEC. AVAILABLE', 1 ' CORE =',I11,' WORDS.', /5X, 2 'ADDITIONAL CORE NEEDED =',I11,' WORDS.') GO TO 9995 9904 WRITE (NOUT,9954) UFM,P 9954 FORMAT (A23,' 2143, MODULE VEC UNABLE TO IDENTIFY SET OR SUBSET ', 1 'DESCRIPTOR ',2A4) GO TO 9995 9906 WRITE (NOUT,9956) UFM,NERR,NERMAX 9956 FORMAT (A23,' 2145,',I8,' FATAL MESSAGES HAVE BEEN GENERATED IN', 1 ' SUBROUTINE VEC.', /5X, 2 'ONLY THE FIRST',I4,' HAVE BEEN PRINTED.') GO TO 9995 9907 WRITE (NOUT,9957) UFM 9957 FORMAT (A23,' 2146, BOTH OF THE SECOND AND THIRD VEC PARAMETERS ', 1 'REQUEST COMPLEMENT.') GO TO 9995 9908 WRITE (NOUT,9958) UFM,P4 9958 FORMAT (A23,' 2150, ILLEGAL VALUE FOR FOURTH PARAMETER =',I11) GO TO 9995 9995 CALL MESAGE (-61,0,0) RETURN C END ================================================ FILE: mis/vecprt.f ================================================ SUBROUTINE VECPRT (*,*,PX,NX,A,OX) C INTEGER P,PX,O,OX,COUNT,EJECT,PM,TRA,RSP,RDP,CSP,CDP DIMENSION A(NX) COMMON /SYSTEM/ SKP1,MO,SKP2(6),MAXLIN,SKP3(2),COUNT DATA RSP,RDP,CSP,CDP / 1,2,3,4 / C C PX = VECTOR TYPE + PRECISION. C NX = VECTOR LENGTH. C A = VECTOR LOCATION. C C THE VECTOR COMPONENTS WILL BE PRINTED 6 PER LINE IF REAL OR C IMAGINARY, AND 3 PER LINE IF COMPLEX. C O = 0 IF ALL THE VECTOR COMPONENTS ARE TO BE PRINTED, AND IF C THEY ARE TO BE PRINTED STARTING ON A NEW PAGE IF THEY C WILL NOT FIT ON THE CURRENT PAGE. C O = 1 IF ONLY THOSE LINES WHICH HAVE AT LEAST ONE NON-ZERO C COMPONENT ARE TO BE PRINTED, AND IF THE VECTOR IS TO BE C PRINTED STARTING ON A NEW PAGE IF IT WILL NOT FIT ON C THE CURRENT PAGE. C O =-1 IF ONLY THOSE LINES WHICH HAVE AT LEAST ONE NON-ZERO C COMPONENT ARE TO BE PRINTED, AND IF THE VECTOR IS TO BE C PRINTED ON THE CURRENT PAGE UNLESS TWO LINES WILL NOT C FIT. C C RETURN 1 - PRINT SUBTITLE + VECTOR IDENTIFICATION. C RETURN 2 - PRINT VECTOR IDENTIFICATION ONLY. C PRTVEC = RETURN ENTRY POINT. C P = PX N = NX O = OX C PM = P IF (P .EQ. RDP) PM = RSP IF (P .EQ. CDP) PM = CSP KK = 1 IF (PM .EQ. CSP) KK = 2 IF (P.EQ.RDP .OR. P.EQ.CDP) KK = 2*KK KN = KK*N IF (PM .EQ. CSP) KK = KK/2 K6 = KK*6 IF (O .EQ. 0) GO TO 40 C M = 1 DO 30 K = 1,KN,K6 L = K + K6 - KK IF (L .GT. KN) L = KN DO 10 I = K,L,KK IF (A(I) .NE. 0.) GO TO 20 10 CONTINUE GO TO 30 20 M = M + 1 30 CONTINUE IF (M .EQ. 1) GO TO 160 C IF (O .LT. 0) M = 2 GO TO 50 40 M = (N+5)/6 + 1 IF (PM .EQ. CSP) M = (N+2)/3 + 2 50 ASSIGN 60 TO TRA IF (EJECT(M)) 170,180,170 60 COUNT = COUNT - M KNKK = KN/KK IF (KNKK .GT. 6) GO TO 70 CALL FORMAT (A,1,KN,KK,-1,N) COUNT = COUNT + 1 GO TO 140 C 70 ASSIGN 110 TO TRA K = 1 80 L = K + K6 - KK IF (L .GT. KN) L = KN IF (O .EQ. 0) GO TO 100 DO 90 I = K,L,KK IF (A(I) .NE. 0.) GO TO 100 90 CONTINUE GO TO 130 100 IF (EJECT(1) .NE. 0) GO TO 170 110 K1 = (K + KK - 1)/KK K2 = (L + KK - 1)/KK IF (PM .NE. CSP) GO TO 120 K1 = (K1+1)/2 K2 = K2/2 120 CALL FORMAT (A,K,L,KK,K1,K2) 130 K = K + K6 IF (K .LE. KN) GO TO 80 C 140 WRITE (MO,150) 150 FORMAT (1X) COUNT = COUNT + 1 160 RETURN C 170 RETURN 1 180 RETURN 2 C C ENTRY PRTVEC (*,*) C ================== C COUNT = COUNT + 1 IF (PM .NE. CSP) GO TO 260 COUNT = COUNT + 1 IF (KNKK-4) 200,220,240 200 WRITE (MO,210) 210 FORMAT (51X,4HREAL,11X,9HIMAGINARY) GO TO 260 220 WRITE (MO,230) 230 FORMAT (21X,2(12X,4HREAL,11X,9HIMAGINARY)) GO TO 260 240 WRITE (MO,250) 250 FORMAT (3X,3(12X,4HREAL,11X,9HIMAGINARY)) 260 GO TO TRA, (60,110) END ================================================ FILE: mis/viscd.f ================================================ SUBROUTINE VISCD C C THIS SUBROUTINE COMPUTES THE 12X12 MATRIX BGG FOR A VISCOUS C (DASHPOT) ELEMENT C C DOUBLE PRECISION VERSION C C THE ECPT ENTRIES FOR THE VISC ELEMENT ARE C C ECPT C ECPT( 1) ELEMENT ID C ECPT( 2) SIL NUMBER FOR GRID POINT A C ECPT( 3) SIL NUMBER FOR GRID POINT B C ECPT( 4) EXTENSIONAL DAMPING CONSTANT - C1 C ECPT( 5) TORSIONAL DAMPING COEFFICIENT - C2 C ECPT( 6) COORD. SYSTEM ID FOR POINT A C ECPT( 7) X1 C ECPT( 8) Y1 C ECPT( 9) Z1 C ECPT(10) COORD. SYSTEM ID FOR POINT B C ECPT(11) X2 C ECPT(12) Y2 C ECPT(13) Z2 C ECPT(14) ELEMENT TEMPERATURE (NOT USED) C C LOGICAL NOGO,IDBUG INTEGER IECPT(14),ELID,ESTID,DICT(7),INDX(4),KX(4),KBX(4) DOUBLE PRECISION FL,C1,C2,VEC(3),D(64),B(144),TA(9),TB(9) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SKP,IOUTPT,KSYSTM(53),IHEAT COMMON /EMGEST/ ECPT(14) COMMON /EMGPRM/ IXTRA,JCORE,NCORE,DUM(12),ISTIF,IMASS,IDAMP, 1 IPREC,NOGO,HEAT,ICMBAR,LCSTM,LMAT,LHMAT COMMON /ZZZZZZ/ XX(1) COMMON /EMGDIC/ IDM,LDICT,NGRIDS,ELID,ESTID EQUIVALENCE (ECPT(1),IECPT(1),IELID), (DICT(5),DICT5), 1 (INDX(1),IA), (INDX(2),IAB), (INDX(3),IBA), 2 (INDX(4),IB) DATA KX / 1 ,7 ,73 ,79 / DATA KBX / 40,46,112,118/ C C INITIALIZE EMGOUT PARAMETERS C IDBUG = .TRUE. NGRIDS = 2 LDICT = 5 + NGRIDS DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 63 DICT5 = 0. IFILE = 3 IP = IPREC C C NOW COMPUTE THE LENGTH OF THE ROD AND NORMALIZE C FL = 0. DO 20 I = 1,3 VEC(I) = ECPT(I+6) - ECPT(I+10) 20 FL = FL + VEC(I)**2 FL = DSQRT(FL) C IF (FL .LE. 0) GO TO 7770 DO 30 I = 1,3 30 VEC(I) = VEC(I)/FL C C SET UP THE N MATRIX C DO 40 I = 1,3 DO 40 J = 1,3 IX = (I-1)*3 + J 40 D(IX) = VEC(I)*VEC(J) C C INITIALIZE THE B MATRIX C DO 50 I = 1,144 50 B(I) = 0.D0 C C SWAP INDICES A AND B IF NECESSARY SO MATRIX WILL BE ORDERED C BY INCREASING SIL VALUE C IPA = 6 IPB = 10 IF (IECPT(2) .LT. IECPT(3)) GO TO 60 IX = IPA IPA = IPB IPB = IPA C C CONVERT GRID POINTS TO BASIC COORDINATES IF NECESSARY C 60 IA = 1 IAB = 1 IF (IECPT(IPA) .EQ. 0) GO TO 70 IA = 19 IAB = 10 CALL TRANSD (ECPT(IPA),TA(1)) CALL GMMATD (TA(1),3,3,1, D(1), 3,3,0, D(10)) CALL GMMATD (D(10),3,3,0, TA(1),3,3,0, D(19)) C 70 IB = 1 IBA = 1 IF (IECPT(IPB) .EQ. 0) GO TO 80 IB = 28 IBA = 37 CALL TRANSD (ECPT(IPB),TB(1)) CALL GMMATD (TB(1),3,3,1, D(1), 3,3,0, D(37)) CALL GMMATD (D(37),3,3,0, TB(1),3,3,0, D(28)) C IAB = 46 C 80 IF (IECPT(IPA) .EQ. 0) GO TO 90 CALL GMMATD (D(IAB),3,3,0, TB(1),3,3,0, D(46)) IBA = 55 CALL GMMATD (D(IBA),3,3,0, TA(1),3,3,0, D(55)) C C CALCULATE THE DAMPING MATRIX B C C **** **** C * / / / * C * C D / 0 /-C D / 0 * C * 1 AA/ / 1 AB/ * C *--------------------------* C * 0 /C D / 0 /-C D * C * / 2 AA/ / 2 AB* C B = *--------------------------* C *-C D / 0 / C D / 0 * C * 1 BA/ / 1 BB/ * C *------------/-------------* C * 0 /-C D / 0 / C D * C * / 2 BA / 2 BB* C * / / / * C **** **** C 90 C1 = ECPT (4) C2 = ECPT (5) C DO 120 JTJ = 1,4 KB = KX(JTJ) KBB = KBX(JTJ) J = 0 I1 = INDX(JTJ) I2 = I1 + 8 IF (MOD(JTJ,2) .NE. 0) GO TO 100 C1 = -C1 C2 = -C2 C 100 DO 110 I = I1,I2 B(KB) = C1*D(I) B(KBB) = C2*D(I) IF (MOD(I,3) .EQ. 0) J = 9 KB = KB + 1 + J KBB = KBB + 1 + J J = 0 110 CONTINUE C 120 CONTINUE C C C OUTPUT THE MATRIX C CALL EMGOUT (B,B,144,1,DICT,IFILE,IP) RETURN C C ERROR EXITS C 7770 WRITE (IOUTPT,7775) UFM,IELID 7775 FORMAT (A23,' 31XX, ILLEGAL GEOMETRY OR CONNEC TIONS FOR VISC ', 1 'ELEMENT',I10) NOGO = .TRUE. RETURN END ================================================ FILE: mis/viscs.f ================================================ SUBROUTINE VISCS C C THIS SUBROUTINE COMPUTES THE 12X12 MATRIX BGG FOR A VISCOUS C (DASHPOT) ELEMENT C C SINGLE PRECISION VERSION C C THE ECPT ENTRIES FOR THE VISC ELEMENT ARE C C ECPT C ECPT( 1) ELEMENT ID C ECPT( 2) SIL NUMBER FOR GRID POINT A C ECPT( 3) SIL NUMBER FOR GRID POINT B C ECPT( 4) EXTENSIONAL DAMPING CONSTANT - C1 C ECPT( 5) TORSIONAL DAMPING COEFFICIENT - C2 C ECPT( 6) COORD. SYSTEM ID FOR POINT A C ECPT( 7) X1 C ECPT( 8) Y1 C ECPT( 9) Z1 C ECPT(10) COORD. SYSTEM ID FOR POINT B C ECPT(11) X2 C ECPT(12) Y2 C ECPT(13) Z2 C ECPT(14) ELEMENT TEMPERATURE (NOT USED) C C LOGICAL NOGO,IDBUG INTEGER IECPT(14),ELID,ESTID,DICT(7),INDX(4),KX(4),KBX(4) REAL VEC(3),D(64),B(144),TA(9),TB(9) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ SKP,IOUTPT,KSYSTM(53),IHEAT COMMON /EMGEST/ ECPT(14) COMMON /EMGPRM/ IXTRA,JCORE,NCORE,DUM(12),ISTIF,IMASS,IDAMP, 1 IPREC,NOGO,HEAT,ICMBAR,LCSTM,LMAT,LHMAT COMMON /ZZZZZZ/ XX(1) COMMON /EMGDIC/ IDM,LDICT,NGRIDS,ELID,ESTID EQUIVALENCE (ECPT(1),IECPT(1),IELID), (DICT(5),DICT5), 1 (INDX(1),IA), (INDX(2),IAB), (INDX(3),IBA), 2 (INDX(4),IB) DATA KX / 1 ,7 ,73 ,79 / DATA KBX / 40,46,112,118/ C C INITIALIZE EMGOUT PARAMETERS C IDBUG = .TRUE. NGRIDS = 2 LDICT = 5 + NGRIDS DICT(1) = ESTID DICT(2) = 1 DICT(3) = 12 DICT(4) = 63 DICT5 = 0. IFILE = 3 IP = IPREC C C NOW COMPUTE THE LENGTH OF THE ROD AND NORMALIZE C FL = 0. DO 20 I = 1,3 VEC(I) = ECPT(I+6) - ECPT(I+10) 20 FL = FL + VEC(I)**2 FL = SQRT(FL) C IF (FL .LE. 0) GO TO 7770 DO 30 I = 1,3 30 VEC(I) = VEC(I)/FL C C SET UP THE N MATRIX C DO 40 I = 1,3 DO 40 J = 1,3 IX = (I-1)*3 + J 40 D(IX) = VEC(I)*VEC(J) C C INITIALIZE THE B MATRIX C DO 50 I = 1,144 50 B(I) = 0. C C SWAP INDICES A AND B IF NECESSARY SO MATRIX WILL BE ORDERED C BY INCREASING SIL VALUE C IPA = 6 IPB = 10 IF (IECPT(2) .LT. IECPT(3)) GO TO 60 IX = IPA IPA = IPB IPB = IPA C C CONVERT GRID POINTS TO BASIC COORDINATES IF NECESSARY C 60 IA = 1 IAB = 1 IF (IECPT(IPA) .EQ. 0) GO TO 70 IA = 19 IAB = 10 CALL TRANSS (ECPT(IPA),TA(1)) CALL GMMATS (TA(1), 3,3,1, D(1), 3,3,0, D(10)) CALL GMMATS (D(10), 3,3,0, TA(1),3,3,0, D(19)) C 70 IB = 1 IBA = 1 IF (IECPT(IPB) .EQ. 0) GO TO 80 IB = 28 IBA = 37 CALL TRANSS (ECPT(IPB), TB(1)) CALL GMMATS (TB(1),3,3,1, D(1), 3,3,0, D(37)) CALL GMMATS (D(37),3,3,0, TB(1),3,3,0, D(28)) C CALL GMMATS (D(IAB),3,3,0, TB(1), 3,3,0, D(46)) IAB = 46 C 80 IF (IECPT(IPA) .EQ. 0) GO TO 90 CALL GMMATS (D(IBA),3,3,0, TA(1),3,3,0, D(55)) IBA = 55 C C CALCULATE THE DAMPING MATRIX B C C **** **** C * / / / * C * C D / 0 /-C D / 0 * C * 1 AA/ / 1 AB/ * C *--------------------------* C * 0 /C D / 0 /-C D * C * / 2 AA/ / 2 AB* C B = *--------------------------* C *-C D / 0 / C D / 0 * C * 1 BA/ / 1 BB/ * C *------------/-------------* C * 0 /-C D / 0 / C D * C * / 2 BA / 2 BB* C * / / / * C **** **** C 90 C1 = ECPT (4) C2 = ECPT (5) C DO 120 JTJ = 1,4 KB = KX(JTJ) KBB = KBX(JTJ) J = 0 I1 = INDX(JTJ) I2 = I1 + 8 IF (MOD(JTJ,2) .NE. 0) GO TO 100 C1 = -C1 C2 = -C2 C 100 DO 110 I = I1,I2 B(KB) = C1*D(I) B(KBB) = C2*D(I) IF (MOD(I,3) .EQ. 0) J = 9 KB = KB + 1 + J KBB = KBB + 1 + J J = 0 110 CONTINUE C 120 CONTINUE C C OUTPUT THE MATRIX C CALL EMGOUT (B,B,144,1,DICT,IFILE,IP) RETURN C C ERROR EXITS C 7770 WRITE (IOUTPT,7775) UFM,IELID 7775 FORMAT (A23,' 31XX, ILLEGAL GEOMETRY OR CONNECTIONS FOR VISC ', 1 'ELEMENT',I10) NOGO = .TRUE. RETURN END ================================================ FILE: mis/wavey.f ================================================ SUBROUTINE WAVEY (IG,ILD,NEW,NC,IC,KACT,MAXB,MAXW,AVERW,SUMW, 1 RMS,BRMS,JG) C C THIS ROUTINE IS USED ONLY IN BANDIT MODULE C C COMPUTE WAVEFRONT AND ACTIVE COLUMN DATA - C MAXIMUM WAVEFRONT, AVERAGE WAVEFRONT, SUM OF ROW WAVEFRONTS, C SUM OF SQUARES OF ROW WAVEFRONTS, RMS WAVEFRONT, AND BANDWIDTH, C RMS BANDWIDTH, AND MINIMUM NODAL DEGREE. C DIAGONAL TERMS ARE INCLUDED. C C IG = CONNECTION TABLE C ILD(I) = NEW LABEL FOR NODE WITH ORIGINAL INTERNAL LABEL I C NEW(I) = INTERNAL LABEL CORRESPONDING TO NEW LABEL I C NEW AND ILD ARE INVERSES OF EACH OTHER C NC = COMPONENT ID C IF NC.LE.0, USE ALL COMPONENTS. C IC(I) = COMPONENT INDEX FOR ORIGINAL NODE I. C KACT(I)= LIST OF ACTIVE COLUMN FLAGS (UPDATED FOR EACH ROW) C = 1 IF COL I IS ACTIVE AT GIVEN ROW C MAXB = BANDWIDTH C MAXW = MAXIMUM WAVEFRONT C AVERW = AVERAGE WAVEFRONT C SUMW = SUM OF ROW WAVEFRONTS C SUMSQ = SUM OF SQUARES OF ROW WAVEFRONTS C BSUMSQ = SUM OF SQUARES OF ROW BANDWIDTHS C RMS = RMS WAVEFRONT C BRMS = RMS BANDWIDTH C JG = SCRATCH SPACE FOR BUNPAK C NN = NUMBER OF NODES C MM = MAX NODAL DEGREE C MINDEG = MINIMUM NODAL DEGREE C C INPUT - IG,ILD,NN,MM,NC,IC. C OUTPUT - NEW,KACT,MAXW,AVERW,SUMW,RMS,MAXB,BRMS,MINDEG C INTEGER SUMW DOUBLE PRECISION SUMSQ, BSUMSQ DIMENSION IC(1), ILD(1), NEW(1), KACT(1), IG(1), 1 JG(1) COMMON /BANDS / NN, MM, DUM6S(6), MINDEG C C INITIALIZE WAVEFRONT DATA. C MAXB = 0 MAXW = 0 SUMW = 0 SUMSQ = 0.D0 BSUMSQ= 0.D0 AVERW = 0. RMS = 0. MINDEG= MIN0(MINDEG,MM) IF (NN*MM .LE. 0) RETURN C C INITIALIZE NEW, THE INVERSE OF ILD C IF (NC .GT. 0) GO TO 8 DO 5 I = 1,NN K = ILD(I) IF (K .LE. 0) GO TO 5 NEW(K) = I 5 CONTINUE C C INITIALIZE ACTIVE COLUMN FLAGS (1 FOR ACTIVE) C 8 DO 10 I = 1,NN 10 KACT(I) = 0 C C COMPUTE WAVEFRONT DATA. C IWAVE = 1 KT = 0 DO 40 I = 1,NN C C COMPUTE NUMBER OF ACTIVE COLUMNS FOR ROW I C K = NEW(I) IF (NC) 18,18,15 15 IF (K .LE. 0) GO TO 40 IF (NC-IC(K)) 40,18,40 18 KT = KT + 1 CALL BUNPAK(IG,K,MM,JG) IB = 0 DO 20 J = 1,MM L = JG(J) IF (L .EQ. 0) GO TO 30 M = ILD(L) IB = MAX0(IB,I-M) IF (M .LE. I) GO TO 20 IF (KACT(M) .EQ. 1) GO TO 20 IWAVE = IWAVE + 1 KACT(M) = 1 20 CONTINUE GO TO 35 30 CONTINUE MINDEG = MIN0(MINDEG,J-1) 35 CONTINUE C C IB1 = ROW BANDWIDTH FOR ROW I (DIAGONAL INCLUDED) C IB1 = IB + 1 MAXB = MAX0(MAXB,IB1) IF (KACT(I) .EQ. 1) IWAVE = IWAVE - 1 C C IWAVE = CURRENT NUMBER OF ACTIVE COLUMNS FOR ROW I C (DIAGONAL INCLUDED) C MAXW = MAX0(MAXW,IWAVE) SUMW = SUMW + IWAVE WAVE = FLOAT(IWAVE) SUMSQ = SUMSQ + WAVE*WAVE WAVE = FLOAT(IB1) BSUMSQ= BSUMSQ + WAVE*WAVE C 40 CONTINUE C ANN = FLOAT(KT) AVERW = FLOAT(SUMW)/ANN RMS = SQRT(SNGL( SUMSQ)/ANN) BRMS = SQRT(SNGL(BSUMSQ)/ANN) RETURN END ================================================ FILE: mis/wilvec.f ================================================ SUBROUTINE WILVEC (D,O,VAL,VLOC,V,F,P,Q,R,VEC,NX,SVEC) C C WILKINSON EIGENVECTOR SOLUTION FOR LARGE SYM MATRICES C INTEGER VLOC(1),ENTRY,V2,XENTRY,PV,VECTOR,VV,V1,MCB(7), 1 SYSBUF,MCB1(7),PHIA,SVEC(1),PATH DOUBLE PRECISION D(1),O(1),VAL(1),V(1),P(1),F(1),Q(1),R(1), 1 VEC(NX,1),VALUE,W,X,Y,Z,DLMDAS, 2 RMULT,RRMULT,SFT,SFTINV,DEPS,VMULT,ZERO,ONE CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /GIVN / TITLE(1),MO,T3,MR,MT1,T6,MV1,T8(3),ENTRY,T12(5), 1 RSTRT,V2,T19,XENTRY,T21(80),VCOM(30),T131(20) COMMON /PACKX / IT1,IT2,II,JJ,INCR COMMON /UNPAKX/ IT3,III,JJJ,INCR1 COMMON /SYSTEM/ SYSBUF,IOTPE,KSYS(52),IPREC COMMON /REIGKR/ IOPTN COMMON /MGIVXX/ DLMDAS EQUIVALENCE (N ,VCOM( 1)), (PV ,VCOM( 5)), 1 (NV ,VCOM( 7)), (NRIGID,VCOM(10)), 2 (PHIA ,VCOM(12)), (NVER ,VCOM(13)), 3 (MAXITR,VCOM(15)), (ITERM ,VCOM(16)) DATA MUL3 , MCB1,MCB / 0, 0,0,0,2,2,0,0, 7*0 / DATA ZERO , ONE / 0.0D+0, 1.0D+0 / DATA MGIV / 4HMGIV / C C D = DIAGONAL TERMS OF THE TRIDIAGONAL MATRIX (N) C O = OFF-DIAGONAL TERMS OF THE TRIDIAGONAL MATRIX (N) C VAL = EIGENVALUES (NV) C VLOC = ORIGINAL ORDERING OF THE EIGENVALUES (NV) C V,F,P,Q,R= N DIMENSIONAL ARRAYS C VEC = THE REST OF OPEN CORE C C MT = TRANSFORMATION TAPE C N = ORDER OF PROBLEM C NV = NUMBER OF EIGENVECTORS C RSTRT C V2 = NUMBER OF EIGENVECTORS ALREADY CLLCULATED C VV = POINTER TO CURRENT VECTOR IN CORE VEC(1,VV) C NM2X = MIDPOINT OF PROBLEM (SWITCH SINE SAVE TAPES) C C C INITALIZE VARIABLES C DEPS = 1.0D-35 SFT = 1.0D+20 SFTINV= 1.0D+0/SFT VMULT = 1.0D-02 NZ = KORSZ(SVEC) IBUF1 = NZ - SYSBUF + 1 IBUF2 = IBUF1 - SYSBUF IM = 1 CALL MAKMCB (MCB1,PHIA,N,2,IPREC) IM1 = 2 NZ = IBUF2 - 1 PATH = 0 NV1 = (NZ-1)/(N+N) IM2 = 2 NM1 = N - 1 NM2 = N - 2 NVER = 0 V2 = NRIGID C C REARRANGE EIGENVALUES AND EXTRACTION ORDER FOR MULTIPLE ROOTS C TO GUARANTEE THAT THEY ARE IN SUBMATRIX ORDER FOR PURPOSES C OF TRIAL VECTOR AND ORTHOGONOLIZATION COMPUTATIONS C RMULT = VMULT RRMULT= VMULT/100.0D0 ICLOS = 0 I = NRIGID + 1 10 IF (DABS(VAL(I))+DABS(VAL(I+1)) .LT. RMULT) GO TO 20 IF (VAL(I) .EQ. ZERO) GO TO 90 IF (DABS(ONE-VAL(I)/VAL(I+1)) .GT. RRMULT) GO TO 80 20 IF (ICLOS .NE. 0) GO TO 90 ICLOS = I GO TO 90 30 CONTINUE DO 50 I1 = ICLOS,I MIN = VLOC(I1) VALUE = VAL(I1) K = I1 DO 40 J = I1,I IF (VLOC(J) .GE. MIN) GO TO 40 K = J MIN = VLOC(J) VALUE= VAL(J) 40 CONTINUE VLOC(K) = VLOC(I1) VAL(K) = VAL(I1) VLOC(I1)= MIN VAL(I1) = VALUE 50 CONTINUE ICLOS = 0 80 IF (ICLOS .NE. 0) GO TO 30 90 I = I + 1 IF (I .LT. NV) GO TO 10 IF (ICLOS .NE. 0) GO TO 30 C C START LOOP FOR CORE LOADS OF VECTORS C 100 CALL KLOCK (IST) V1 = V2 + 1 V2 = V2 + NV1 MUL2 = MUL3 MULP2= 0 MUL3 = 0 IF (NV-V2) 101,110,102 101 V2 = NV GO TO 110 C C SEARCH FOR MULTIPLICITIES OF EIGENVALUES V2 AND V2+1. C 102 VV = V2 103 IF (DABS(VAL(V2))+DABS(VAL(V2+1)) .LT. RMULT) GO TO 1041 IF (DABS(ONE-VAL(V2)/VAL(V2+1)) .GT. RMULT) GO TO 110 1041 CONTINUE L1 = VLOC(V2 ) L2 = VLOC(V2+1) N1 = MIN0(L1,L2) N2 = MAX0(L1,L2) - 1 DO 104 K = N1,N2 IF (O(K) .EQ. ZERO) GO TO 110 104 CONTINUE V2 = V2 - 1 IF (V2+6.GT.N1 .AND. V2.GT.V1) GO TO 103 V2 = VV MUL3 = 1 C C FIND EIGENVECTORS V1 - V2. C 110 N1 = 0 N2 = 0 NV2= V2 - V1 + 1 DO 175 VV = 1,NV2 VECTOR = V1 + VV - 1 VALUE = VAL (VECTOR) C C FOR MGIV METHOD, USE ORIGINAL LAMBDA COMPUTED BY QRITER C IN EIGENVECTOR COMPUTATIONS C IF (IOPTN .EQ. MGIV) VALUE = 1.0D0/(VALUE + DLMDAS) LOC = VLOC(VECTOR) IF (LOC.GE.N1 .AND. LOC.LE.N2) GO TO 120 C C SEARCH FOR A DECOUPLED SUBMATRIX. C MUL1 = 0 IF (LOC .EQ. 1) GO TO 112 DO 111 K = 2,LOC N1 = LOC - K + 2 IF (O(N1-1) .EQ. ZERO) GO TO 113 111 CONTINUE 112 N1 = 1 113 IF (LOC .EQ. N) GO TO 115 DO 114 K = LOC,NM1 IF (O(K) .EQ. ZERO) GO TO 116 114 CONTINUE 115 N2 = N GO TO 120 116 N2 = K 120 IF (MUL1.NE.0 .OR. MUL2.NE.0) GO TO 122 DO 121 I = 1,N V(I) = ZERO 121 CONTINUE IF (N1 .NE. N2) GO TO 122 V(LOC) = ONE GO TO 152 122 N2M1 = N2 - 1 N2M2 = N2 - 2 C C SET UP SIMULTANEOUS EQUATIONS C X = D(N1) - VALUE Y = O(N1) DO 131 K = N1,N2M1 IF (X .EQ. ZERO) GO TO 125 F(K) = -O(K)/X GO TO 126 125 F(K) = -SFT*O(K) 126 IF (DABS(X)-DABS(O(K))) 127,128,129 C C PIVOT. C 127 P(K) = O(K) Q(K) = D(K+1) - VALUE R(K) = O(K+1) Z =-X/P(K) X = Z*Q(K) + Y Y = Z*R(K) GO TO 130 C C DO NOT PIVOT. C 128 IF (X .EQ. ZERO) X = SFTINV 129 P(K) = X Q(K) = Y R(K) = ZERO X = D(K+1) - (VALUE+O(K)*(Y/X)) Y = O(K+1) 130 CONTINUE 131 CONTINUE IF (MUL1.NE.0 .OR. MUL2.NE.0) GO TO 135 DO 134 K = N1,N2M1 134 V(K) = ONE W = ONE/DSQRT(DBLE(FLOAT(N2-N1+1))) V(N2)= ONE C C SOLVE FOR AN EIGENVECTOR OF THE TRIDIAGONAL MATRIX. C 135 MUL2 = 0 MAXITR = 3 DO 150 ITER = 1,MAXITR C C BACK SUBSTITUTION C IF (X .EQ. ZERO) GO TO 136 V(N2) = V(N2)/X GO TO 137 136 V(N2 ) = V(N2)*SFT 137 V(N2-1) = (V(N2-1) - Q(N2-1)*V(N2))/P(N2-1) MAX = N2 IF (DABS(V(N2)) .LT. DABS(V(N2-1))) MAX = N2M1 IF (N2M2 .LT. N1) GO TO 140 DO 138 K = N1,N2M2 L = N2M2 - (K-N1) V(L) = (V(L)-Q(L)*V(L+1) - R(L)*V(L+2))/P(L) IF (DABS(V(L)) .GT. DABS (V(MAX))) MAX = L 138 CONTINUE C C NORMALIZE THE VECTOR. C 140 Y = DABS(V(MAX)) Z = ZERO DO 141 I = N1,N2 V(I) = V(I)/Y IF (DABS(V(I)) .LT. DEPS) GO TO 141 Z = Z + V(I)*V(I) 141 CONTINUE Z = DSQRT(Z) DO 142 I = N1,N2 V(I) = V(I)/Z 142 CONTINUE C C CHECK CONVERGENCE OF THE LARGEST COMPONENT OF THE VECTOR. C Y = DABS(V(MAX)) IF (SNGL(W) .EQ. SNGL(Y)) GO TO 152 IF (ITER .EQ. MAXITR) GO TO 150 W = Y C C PIVOT V. C DO 145 I = N1,N2M1 IF (P(I) .EQ. O(I)) GO TO 144 V(I+1) = V(I+1) + V(I)*F(I) GO TO 145 144 Z = V(I+1) V(I+1) = V(I) + Z/F(I) V(I ) = Z 145 CONTINUE 150 CONTINUE C C TOO MANY ITERATIONS. C C THE ACCURACY OF EIGENVECTOR XXXX CORRESPONDING TO THE EIGENVALUE C XXXXXXX IS IN DOUBT. C 152 DO 153 I = 1,N VEC(I,VV) = V(I) 153 CONTINUE C C CHECK MULTIPLICITY OF THE NEXT EIGENVALUE IF IT IS IN THE SAME C SUBMATRIX AS THIS ONE. C IF (VECTOR .EQ. V2) GO TO 160 C C FOR MGIV METHOD, USE ADJUSTED LAMBDA COMING OUT OF QRITER C IN THE FOLLOWING CHECKS C IF (DABS(VAL(VECTOR+1))+DABS(VAL(VECTOR)) .LT. RMULT) GO TO 154 IF (DABS(VAL(VECTOR+1)-VAL(VECTOR)) .GT.RMULT*DABS(VAL(VECTOR+1))) 1 GO TO 160 154 CONTINUE L1 = VLOC(VECTOR+1) IF (L1.LT.N1 .OR. L1.GT.N2) GO TO 160 C C A MULTIPLICITY DOES EXIT...THE INITIAL APPROXIMATION OF THE NEXT C EIGENVECTOR SHOULD BE ORTHOGONAL TO THE ONE JUST CALCULATED. C IF (MUL1 .EQ. 0) MUL1 = VV MULP2 = MULP2 + 1 MULP3 = MULP2 + MUL1 - 1 DO 4001 KKK = N1,N2 4001 V(KKK) = ONE DO 4003 JJJ = MUL1,MULP3 Z = ZERO DO 4004 KK = N1,N2 DO 4005 II = N1,N2 4005 Z = Z + VEC(II,JJJ)*V(II) 4004 V(KK) = V(KK) - Z*VEC(KK,JJJ) 4003 CONTINUE GO TO 175 C C DOES THIS EIGENVALUE = PREVIOUS ONE(S) IN THIS SUBMATRIX C 160 IF (MUL1 .EQ. 0) GO TO 175 C C A MULTIPLICITY OF EIGENVALUES OCCURRED...IMPROVE THE ORTHOGONALITY C OF THE CORRESPONDING EIGENVECTORS. C MULP1 = MUL1 + 1 DO 170 L = MULP1,VV DO 161 I = N1,N2 P(I) = VEC(I,L) Q(I) = ZERO 161 CONTINUE LM1 = L - 1 DO 164 K = MUL1,LM1 Z = ZERO DO 162 I = N1,N2 Z = Z + P(I)*VEC(I,K) 162 CONTINUE DO 163 I = N1,N2 Q(I) = Q(I) + Z*VEC(I,K) 163 CONTINUE 164 CONTINUE Z = ZERO DO 165 K = N1,N2 Q(K) = P(K) - Q(K) IF (DABS(Q(K)) .LT. DEPS) GO TO 165 Z = Z + Q(K)*Q(K) 165 CONTINUE Z = DSQRT(Z) DO 166 K = N1,N2 VEC(K,L) = Q(K)/Z 166 CONTINUE 170 CONTINUE MUL1 = 0 MULP2 = 0 175 CONTINUE C C CORE IS NOW FULL OF EIGENVECTORS OF THE TRIDIAGONAL MATRIX. C CONVERT THEM TO EIGENVECTORS OF THE ORIGINAL MATRIX. C IT1 = 2 IT2 = 2 JJ = N INCR= 1 C C IS THE ORIGINAL MATRIX A 2X2 C IF (NM2 .EQ. 0) GO TO 186 MT = MT1 IF (PATH .NE. 0) GO TO 176 MT = MO 176 CALL GOPEN (MT,SVEC(IBUF1),IM2) IF (PATH.EQ.0 .AND. V2.NE.NV) CALL GOPEN (MT1,SVEC(IBUF2),1) IT3 = 2 JJJ = N INCR1= 1 DO 185 M = 1,NM2 L1 = N - M III = L1+ 1 IF (PATH .EQ. 0) CALL BCKREC (MT) CALL UNPACK (*167,MT,P) GO TO 180 167 DO 179 I = 1,M P(I) = ZERO 179 CONTINUE 180 IF (PATH.NE.0 .OR. V2.EQ.NV) GO TO 177 II = L1+1 CALL PACK (P,MT1,MCB) 177 IF (PATH .EQ. 0) CALL BCKREC (MT) DO 182 K = 1,M L2 = N - K + 1 I = M - K + 1 Y = P(I) IF (Y .EQ. ZERO) GO TO 182 X = ZERO IF (DABS(Y) .LT. ONE) X = DSQRT(ONE-Y**2) DO 181 VV = 1,NV2 Z = X*VEC(L1,VV) -Y*VEC(L2,VV) VEC(L2,VV) = X*VEC(L2,VV) + Y*VEC(L1,VV) VEC(L1,VV) = Z 181 CONTINUE 182 CONTINUE 185 CONTINUE CALL CLOSE (MT,1) IF (PATH .NE. 0) GO TO 186 IF (V2 .NE. NV) WRITE (IOTPE,1001) UIM,N,NV,NV1 1001 FORMAT (A29,' 2016A, WILVEC EIGENVECTOR COMPUTATIONS.', /37X, 1 'PROBLEM SIZE IS',I6,', NUMBER OF EIGENVECTORS TO BE ', 2 'RECOVERED IS',I6 , /37X,'SPILL WILL OCCUR FOR THIS ', 3 'CORE AT RECOVERY OF',I6,' EIGENVECTORS.') PATH = 1 CALL CLOSE (MT1,1) IM2 = 0 C C WRITE THE EIGENVECTORS ONTO PHIA C 186 CALL GOPEN (PHIA,SVEC(IBUF1),IM) II = 1 IT2 = IPREC IF (IM.NE.1 .OR. NRIGID.LE.0) GO TO 205 C C PUT OUT ZERO VECTORS FOR RIGID BODY MODES C JJ = 1 DO 206 VV = 1,NRIGID CALL PACK (ZERO,PHIA,MCB1) 206 CONTINUE JJ = N 205 CONTINUE IM = 3 IF (N .EQ. 1) GO TO 250 DO 192 VV = 1,NV2 CALL PACK (VEC(1,VV),PHIA,MCB1) 192 CONTINUE 250 IF (V2 .EQ. NV) IM1 = 1 CALL CLOSE (PHIA,IM1) XENTRY = -ENTRY C C ANY TIME LEFT TO FIND MORE C CALL TMTOGO (ITIME) CALL KLOCK (IFIN) IF (2*(IFIN-IST) .GE. ITIME) GO TO 200 IF (V2 .NE. NV) GO TO 100 201 CALL WRTTRL (MCB1) RETURN C C MAX TIME C 200 ITERM = 3 GO TO 201 END ================================================ FILE: mis/wilvec1.f ================================================ SUBROUTINE WILVEC1 (D,O,VAL,VLOC,V,F,P,Q,R,VEC,NX,SVEC) C C WILKINSON EIGENVECTOR SOLUTION FOR LARGE SYM MATRICES C INTEGER VLOC(1),ENTRY,V2,XENTRY,PV,VECTOR,VV,V1,MCB(7), 1 SYSBUF,MCB1(7),PHIA,SVEC(1),PATH REAL D(1),O(1),VAL(1),V(1),P(1),F(1),Q(1),R(1), 1 VEC(NX,1),VALUE,W,X,Y,Z,DLMDAS, 2 RMULT,RRMULT,SFT,SFTINV,DEPS,VMULT,ZERO,ONE CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /GIVN / TITLE(1),MO,T3,MR,MT1,T6,MV1,T8(3),ENTRY,T12(5), 1 RSTRT,V2,T19,XENTRY,T21(80),VCOM(30),T131(20) COMMON /PACKX / IT1,IT2,II,JJ,INCR COMMON /UNPAKX/ IT3,III,JJJ,INCR1 COMMON /SYSTEM/ SYSBUF,IOTPE,KSYS(52),IPREC COMMON /REIGKR/ IOPTN COMMON /MGIVXX/ DLMDAS EQUIVALENCE (N ,VCOM( 1)), (PV ,VCOM( 5)), 1 (NV ,VCOM( 7)), (NRIGID,VCOM(10)), 2 (PHIA ,VCOM(12)), (NVER ,VCOM(13)), 3 (MAXITR,VCOM(15)), (ITERM ,VCOM(16)) DATA MUL3 , MCB1,MCB / 0, 0,0,0,2,2,0,0, 7*0 / DATA ZERO , ONE / 0.0D+0, 1.0D+0 / DATA MGIV / 4HMGIV / C C D = DIAGONAL TERMS OF THE TRIDIAGONAL MATRIX (N) C O = OFF-DIAGONAL TERMS OF THE TRIDIAGONAL MATRIX (N) C VAL = EIGENVALUES (NV) C VLOC = ORIGINAL ORDERING OF THE EIGENVALUES (NV) C V,F,P,Q,R= N DIMENSIONAL ARRAYS C VEC = THE REST OF OPEN CORE C C MT = TRANSFORMATION TAPE C N = ORDER OF PROBLEM C NV = NUMBER OF EIGENVECTORS C RSTRT C V2 = NUMBER OF EIGENVECTORS ALREADY CLLCULATED C VV = POINTER TO CURRENT VECTOR IN CORE VEC(1,VV) C NM2X = MIDPOINT OF PROBLEM (SWITCH SINE SAVE TAPES) C C C INITALIZE VARIABLES C DEPS = 1.0-35 SFT = 1.0+20 SFTINV= 1.0+0/SFT VMULT = 1.0-02 NZ = KORSZ(SVEC) IBUF1 = NZ - SYSBUF + 1 IBUF2 = IBUF1 - SYSBUF IM = 1 CALL MAKMCB (MCB1,PHIA,N,2,IPREC) IM1 = 2 NZ = IBUF2 - 1 PATH = 0 NV1 = (NZ-1)/(N+N) IM2 = 2 NM1 = N - 1 NM2 = N - 2 NVER = 0 V2 = NRIGID C C REARRANGE EIGENVALUES AND EXTRACTION ORDER FOR MULTIPLE ROOTS C TO GUARANTEE THAT THEY ARE IN SUBMATRIX ORDER FOR PURPOSES C OF TRIAL VECTOR AND ORTHOGONOLIZATION COMPUTATIONS C RMULT = VMULT RRMULT= VMULT/100.0 ICLOS = 0 I = NRIGID + 1 10 IF (ABS(VAL(I))+ABS(VAL(I+1)) .LT. RMULT) GO TO 20 IF (VAL(I) .EQ. ZERO) GO TO 90 IF (ABS(ONE-VAL(I)/VAL(I+1)) .GT. RRMULT) GO TO 80 20 IF (ICLOS .NE. 0) GO TO 90 ICLOS = I GO TO 90 30 CONTINUE DO 50 I1 = ICLOS,I MIN = VLOC(I1) VALUE = VAL(I1) K = I1 DO 40 J = I1,I IF (VLOC(J) .GE. MIN) GO TO 40 K = J MIN = VLOC(J) VALUE= VAL(J) 40 CONTINUE VLOC(K) = VLOC(I1) VAL(K) = VAL(I1) VLOC(I1)= MIN VAL(I1) = VALUE 50 CONTINUE ICLOS = 0 80 IF (ICLOS .NE. 0) GO TO 30 90 I = I + 1 IF (I .LT. NV) GO TO 10 IF (ICLOS .NE. 0) GO TO 30 C C START LOOP FOR CORE LOADS OF VECTORS C 100 CALL KLOCK (IST) V1 = V2 + 1 V2 = V2 + NV1 MUL2 = MUL3 MULP2= 0 MUL3 = 0 IF (NV-V2) 101,110,102 101 V2 = NV GO TO 110 C C SEARCH FOR MULTIPLICITIES OF EIGENVALUES V2 AND V2+1. C 102 VV = V2 103 IF (ABS(VAL(V2))+ABS(VAL(V2+1)) .LT. RMULT) GO TO 1041 IF (ABS(ONE-VAL(V2)/VAL(V2+1)) .GT. RMULT) GO TO 110 1041 CONTINUE L1 = VLOC(V2 ) L2 = VLOC(V2+1) N1 = MIN0(L1,L2) N2 = MAX0(L1,L2) - 1 DO 104 K = N1,N2 IF (O(K) .EQ. ZERO) GO TO 110 104 CONTINUE V2 = V2 - 1 IF (V2+6.GT.N1 .AND. V2.GT.V1) GO TO 103 V2 = VV MUL3 = 1 C C FIND EIGENVECTORS V1 - V2. C 110 N1 = 0 N2 = 0 NV2= V2 - V1 + 1 DO 175 VV = 1,NV2 VECTOR = V1 + VV - 1 VALUE = VAL (VECTOR) C C FOR MGIV METHOD, USE ORIGINAL LAMBDA COMPUTED BY QRITER C IN EIGENVECTOR COMPUTATIONS C IF (IOPTN .EQ. MGIV) VALUE = 1.0/(VALUE + DLMDAS) LOC = VLOC(VECTOR) IF (LOC.GE.N1 .AND. LOC.LE.N2) GO TO 120 C C SEARCH FOR A DECOUPLED SUBMATRIX. C MUL1 = 0 IF (LOC .EQ. 1) GO TO 112 DO 111 K = 2,LOC N1 = LOC - K + 2 IF (O(N1-1) .EQ. ZERO) GO TO 113 111 CONTINUE 112 N1 = 1 113 IF (LOC .EQ. N) GO TO 115 DO 114 K = LOC,NM1 IF (O(K) .EQ. ZERO) GO TO 116 114 CONTINUE 115 N2 = N GO TO 120 116 N2 = K 120 IF (MUL1.NE.0 .OR. MUL2.NE.0) GO TO 122 DO 121 I = 1,N V(I) = ZERO 121 CONTINUE IF (N1 .NE. N2) GO TO 122 V(LOC) = ONE GO TO 152 122 N2M1 = N2 - 1 N2M2 = N2 - 2 C C SET UP SIMULTANEOUS EQUATIONS C X = D(N1) - VALUE Y = O(N1) DO 131 K = N1,N2M1 IF (X .EQ. ZERO) GO TO 125 F(K) = -O(K)/X GO TO 126 125 F(K) = -SFT*O(K) 126 IF (ABS(X)-ABS(O(K))) 127,128,129 C C PIVOT. C 127 P(K) = O(K) Q(K) = D(K+1) - VALUE R(K) = O(K+1) Z =-X/P(K) X = Z*Q(K) + Y Y = Z*R(K) GO TO 130 C C DO NOT PIVOT. C 128 IF (X .EQ. ZERO) X = SFTINV 129 P(K) = X Q(K) = Y R(K) = ZERO X = D(K+1) - (VALUE+O(K)*(Y/X)) Y = O(K+1) 130 CONTINUE 131 CONTINUE IF (MUL1.NE.0 .OR. MUL2.NE.0) GO TO 135 DO 134 K = N1,N2M1 134 V(K) = ONE W = ONE/SQRT(FLOAT(N2-N1+1)) V(N2)= ONE C C SOLVE FOR AN EIGENVECTOR OF THE TRIDIAGONAL MATRIX. C 135 MUL2 = 0 MAXITR = 3 DO 150 ITER = 1,MAXITR C C BACK SUBSTITUTION C IF (X .EQ. ZERO) GO TO 136 V(N2) = V(N2)/X GO TO 137 136 V(N2 ) = V(N2)*SFT 137 V(N2-1) = (V(N2-1) - Q(N2-1)*V(N2))/P(N2-1) MAX = N2 IF (ABS(V(N2)) .LT. ABS(V(N2-1))) MAX = N2M1 IF (N2M2 .LT. N1) GO TO 140 DO 138 K = N1,N2M2 L = N2M2 - (K-N1) V(L) = (V(L)-Q(L)*V(L+1) - R(L)*V(L+2))/P(L) IF (ABS(V(L)) .GT. ABS (V(MAX))) MAX = L 138 CONTINUE C C NORMALIZE THE VECTOR. C 140 Y = ABS(V(MAX)) Z = ZERO DO 141 I = N1,N2 V(I) = V(I)/Y IF (ABS(V(I)) .LT. DEPS) GO TO 141 Z = Z + V(I)*V(I) 141 CONTINUE Z = SQRT(Z) DO 142 I = N1,N2 V(I) = V(I)/Z 142 CONTINUE C C CHECK CONVERGENCE OF THE LARGEST COMPONENT OF THE VECTOR. C Y = ABS(V(MAX)) IF ( W .EQ. Y) GO TO 152 IF (ITER .EQ. MAXITR) GO TO 150 W = Y C C PIVOT V. C DO 145 I = N1,N2M1 IF (P(I) .EQ. O(I)) GO TO 144 V(I+1) = V(I+1) + V(I)*F(I) GO TO 145 144 Z = V(I+1) V(I+1) = V(I) + Z/F(I) V(I ) = Z 145 CONTINUE 150 CONTINUE C C TOO MANY ITERATIONS. C C THE ACCURACY OF EIGENVECTOR XXXX CORRESPONDING TO THE EIGENVALUE C XXXXXXX IS IN DOUBT. C 152 DO 153 I = 1,N VEC(I,VV) = V(I) 153 CONTINUE C C CHECK MULTIPLICITY OF THE NEXT EIGENVALUE IF IT IS IN THE SAME C SUBMATRIX AS THIS ONE. C IF (VECTOR .EQ. V2) GO TO 160 C C FOR MGIV METHOD, USE ADJUSTED LAMBDA COMING OUT OF QRITER C IN THE FOLLOWING CHECKS C IF (ABS(VAL(VECTOR+1))+ABS(VAL(VECTOR)) .LT. RMULT) GO TO 154 IF (ABS(VAL(VECTOR+1)-VAL(VECTOR)) .GT.RMULT*ABS(VAL(VECTOR+1))) 1 GO TO 160 154 CONTINUE L1 = VLOC(VECTOR+1) IF (L1.LT.N1 .OR. L1.GT.N2) GO TO 160 C C A MULTIPLICITY DOES EXIT...THE INITIAL APPROXIMATION OF THE NEXT C EIGENVECTOR SHOULD BE ORTHOGONAL TO THE ONE JUST CALCULATED. C IF (MUL1 .EQ. 0) MUL1 = VV MULP2 = MULP2 + 1 MULP3 = MULP2 + MUL1 - 1 DO 4001 KKK = N1,N2 4001 V(KKK) = ONE DO 4003 JJJ = MUL1,MULP3 Z = ZERO DO 4004 KK = N1,N2 DO 4005 II = N1,N2 4005 Z = Z + VEC(II,JJJ)*V(II) 4004 V(KK) = V(KK) - Z*VEC(KK,JJJ) 4003 CONTINUE GO TO 175 C C DOES THIS EIGENVALUE = PREVIOUS ONE(S) IN THIS SUBMATRIX C 160 IF (MUL1 .EQ. 0) GO TO 175 C C A MULTIPLICITY OF EIGENVALUES OCCURRED...IMPROVE THE ORTHOGONALITY C OF THE CORRESPONDING EIGENVECTORS. C MULP1 = MUL1 + 1 DO 170 L = MULP1,VV DO 161 I = N1,N2 P(I) = VEC(I,L) Q(I) = ZERO 161 CONTINUE LM1 = L - 1 DO 164 K = MUL1,LM1 Z = ZERO DO 162 I = N1,N2 Z = Z + P(I)*VEC(I,K) 162 CONTINUE DO 163 I = N1,N2 Q(I) = Q(I) + Z*VEC(I,K) 163 CONTINUE 164 CONTINUE Z = ZERO DO 165 K = N1,N2 Q(K) = P(K) - Q(K) IF (ABS(Q(K)) .LT. DEPS) GO TO 165 Z = Z + Q(K)*Q(K) 165 CONTINUE Z = SQRT(Z) DO 166 K = N1,N2 VEC(K,L) = Q(K)/Z 166 CONTINUE 170 CONTINUE MUL1 = 0 MULP2 = 0 175 CONTINUE C C CORE IS NOW FULL OF EIGENVECTORS OF THE TRIDIAGONAL MATRIX. C CONVERT THEM TO EIGENVECTORS OF THE ORIGINAL MATRIX. C IT1 = IPREC IT2 = IPREC JJ = N INCR= 1 C C IS THE ORIGINAL MATRIX A 2X2 C IF (NM2 .EQ. 0) GO TO 186 MT = MT1 IF (PATH .NE. 0) GO TO 176 MT = MO 176 CALL GOPEN (MT,SVEC(IBUF1),IM2) IF (PATH.EQ.0 .AND. V2.NE.NV) CALL GOPEN (MT1,SVEC(IBUF2),1) IT3 = IPREC JJJ = N INCR1= 1 DO 185 M = 1,NM2 L1 = N - M III = L1+ 1 IF (PATH .EQ. 0) CALL BCKREC (MT) CALL UNPACK (*167,MT,P) GO TO 180 167 DO 179 I = 1,M P(I) = ZERO 179 CONTINUE 180 IF (PATH.NE.0 .OR. V2.EQ.NV) GO TO 177 II = L1+1 CALL PACK (P,MT1,MCB) 177 IF (PATH .EQ. 0) CALL BCKREC (MT) DO 182 K = 1,M L2 = N - K + 1 I = M - K + 1 Y = P(I) IF (Y .EQ. ZERO) GO TO 182 X = ZERO IF (ABS(Y) .LT. ONE) X = SQRT(ONE-Y**2) DO 181 VV = 1,NV2 Z = X*VEC(L1,VV) -Y*VEC(L2,VV) VEC(L2,VV) = X*VEC(L2,VV) + Y*VEC(L1,VV) VEC(L1,VV) = Z 181 CONTINUE 182 CONTINUE 185 CONTINUE CALL CLOSE (MT,1) IF (PATH .NE. 0) GO TO 186 IF (V2 .NE. NV) WRITE (IOTPE,1001) UIM,N,NV,NV1 1001 FORMAT (A29,' 2016A, WILVEC EIGENVECTOR COMPUTATIONS.', /37X, 1 'PROBLEM SIZE IS',I6,', NUMBER OF EIGENVECTORS TO BE ', 2 'RECOVERED IS',I6 , /37X,'SPILL WILL OCCUR FOR THIS ', 3 'CORE AT RECOVERY OF',I6,' EIGENVECTORS.') PATH = 1 CALL CLOSE (MT1,1) IM2 = 0 C C WRITE THE EIGENVECTORS ONTO PHIA C 186 CALL GOPEN (PHIA,SVEC(IBUF1),IM) II = 1 IT2 = IPREC IF (IM.NE.1 .OR. NRIGID.LE.0) GO TO 205 C C PUT OUT ZERO VECTORS FOR RIGID BODY MODES C JJ = 1 DO 206 VV = 1,NRIGID CALL PACK (ZERO,PHIA,MCB1) 206 CONTINUE JJ = N 205 CONTINUE IM = 3 IF (N .EQ. 1) GO TO 250 DO 192 VV = 1,NV2 CALL PACK (VEC(1,VV),PHIA,MCB1) 192 CONTINUE 250 IF (V2 .EQ. NV) IM1 = 1 CALL CLOSE (PHIA,IM1) XENTRY = -ENTRY C C ANY TIME LEFT TO FIND MORE C CALL TMTOGO (ITIME) CALL KLOCK (IFIN) IF (2*(IFIN-IST) .GE. ITIME) GO TO 200 IF (V2 .NE. NV) GO TO 100 201 CALL WRTTRL (MCB1) RETURN C C MAX TIME C 200 ITERM = 3 GO TO 201 END ================================================ FILE: mis/wplt10.f ================================================ SUBROUTINE WPLT10 (A,OPT) C C TO WRITE PLOTTER COMMANDS FOR NASTRAN GENERAL PURPOSE PLOTTER C REF - NASTRAN PROGRAMMER'S MANUAL P.3.4-111 C C REVISED 9/1990 BY G.CHAN/UNISYS C SEE SGINO FOR IMPLEMENTATION OF PLT1 FILE C C INPUT - C OPT = 0 IF ARRAY A IS A PLOT COMMAND. C OPT = 1 IF CURRENT SERIES OF PLOT COMMANDS IS TO BE TERMINATED C C OUTPUT - C A(1) = PLOT MODE DIGIT C A(2) = CONTROL DIGIT C A(3) = X1 = X-COORDINATE C A(4) = Y1 = Y-COORDINATE C A(5) = X2 = X-COORDINATE C A(6) = Y2 = Y-COORDINATE C C A PLT2 FILE PLOTTER COMMAND IS OF THE FOLLOWING FORMAT C C MC1111122222333334444400000000 C WHERE M = MODE 1 BYTE C C = CONTROL 1 BYTE C 1 = DIGIT OF X1 5 BYTES C 2 = ..... .. Y1 5 BYTES C 3 = ..... .. X2 5 BYTES C 4 = ..... .. Y2 5 BYTES C 0 = ZERO 8 BYTES C --------------- C TOTAL 30 BYTES C C SEE SGINO FOR PLT1 FILE PLOTTER COMMAND FORMAT C C /PLTDAT/ C EDGE = SIZE OF THE BORDERS (X,Y) IN PLOTTER UNITS, REAL - INPUT C PLOT = GINO FILE NAME OF THE PLOT TAPE TO BE WRITTEN, BCD - INPUT C MAXCHR = PLOT TAPE BUFFER SIZE (NUMBER OF CHARACTERS), INT - INPUT C (AN INTEGER MULTIPLE OF THE NUMBER OF CHARACTERS C PER WORD ON THE COMPUTER ON WHICH THE PLOT TAPE IS C BEING READ) C IMPLICIT INTEGER (A-Z) REAL EDGE INTEGER A(6),C(30),TEN(5),ZERO(30) COMMON /PLTDAT/ SKPPLT(8),EDGE(12),SKPA(10),PLOT,MAXCHR EQUIVALENCE (C1,C(1)) DATA NCHR , TEN,PZERO / 0, 10000, 1000, 100, 10, 1, +0 /, 1 PLT2 , NC,ZERO,C / 4HPLT2, 30, 30*0, 30*0 / C IF (PLOT .EQ. PLT2) GO TO 100 C C PLT1 FILE - NON BYTE PACKING LOGIC C A FORMAT OF (5(2I3,4I5)) IS COMPOSED IN SGINO C ============================================= C NC = 6 IF (OPT .NE. 0) GO TO 40 C C SET UP THE MODE AND CONTROL CHARACTERS IN THE COMMAND. C C1 = A(1) C(2) = A(2) C I3 = IFIX(EDGE(1) + .1) I4 = IFIX(EDGE(2) + .1) C(3) = A(3) + I3 C(4) = A(4) + I4 C(5) = A(5) C(6) = A(6) IF (C1.EQ.4 .OR. C1.EQ.14) GO TO 20 C(5) = A(5) + I3 C(6) = A(6) + I4 20 CALL SWRITE (PLOT,C,NC,0) GO TO 200 C C TERMINATE A SET OF PLOT COMMANDS C SEND A RECORD OF ALL ZERO-S TO SWRITE C 40 CALL SWRITE (PLOT,ZERO,NC,0) CALL SWRITE (PLOT,0,0,1) GO TO 200 C C PLT2 FILE - WITH BYTE PACKING LOGIC C A FORMAT OF (10(180A4)) IS COMPOSED IN SGINO C ============================================ C 100 IF (OPT .NE. 0) GO TO 140 C C SET UP THE MODE + CONTROL CHARACTERS IN THE COMMAND. C C1 = A(1) C(2) = A(2) C C SEPARATE THE DECIMAL DIGITS OF THE X + Y COORDINATES. C DO 110 J = 1,4 I = 1 IF (J.EQ.2 .OR. J.EQ.4) I = 2 N = A(J+2) IF (J.LT.3 .OR. (C1.NE.4 .AND. C1.NE.14)) N = N + IFIX(EDGE(I)+.1) K = 5*(J-1) DO 110 I = 1,5 M = N/TEN(I) C C . M MAY BE A -0 (UNIVAC), SET IT TO +0 FOR SURE C IF (M .EQ. 0) M = PZERO C(K+3) = M K = K + 1 N = N - M*TEN(I) 110 CONTINUE C CALL SWRITE (PLOT,C,NC,0) NCHR = NCHR + NC IF (NCHR .EQ. MAXCHR) NCHR = 0 GO TO 200 C C TERMINATE A SET OF PLOT COMMANDS (FILL THE RECORD WITH ZERO-S). C 140 IF (NCHR .EQ. 0) GO TO 160 150 CALL SWRITE (PLOT,ZERO,NC,0) NCHR = NCHR + NC IF (NCHR .NE. MAXCHR) GO TO 150 NCHR = 0 160 CALL SWRITE (PLOT,0,0,1) C 200 RETURN END ================================================ FILE: mis/wrtmsg.f ================================================ SUBROUTINE WRTMSG (FILEX) C EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF INTEGER FILE,FILEX,TITLE,TTLSAV(32,6),COUNT,LST(50), 1 FOR(100),RET,EJECT,REW,BLANK,FORMAX,MASK1(5), 2 MASK2(5),POS,ANDF,ORF,RSHIFT,COMPLF,SYSX CWKBI CHARACTER*1 FORMT(400) COMMON /OUTPUT/ TITLE(32,6) COMMON /MACHIN/ MACH COMMON /SYSTEM/ SYSX(41) CWKBI EQUIVALENCE (FORMT, FOR) EQUIVALENCE (XLST,LST) EQUIVALENCE (SYSX( 2),MO ), (SYSX( 9),MAXLIN), 1 (SYSX(12),COUNT), (SYSX(39),NBPC ), 2 (SYSX(40),NBPW ), (SYSX(41),NCPW ) DATA LSTMAX, REW,FORMAX,BLANK/ 50,1,100,4H / C N2CPW = NCPW/2 N2CPW1 = N2CPW - 1 NBPC2 = 2*NBPC MASK1(1) = RSHIFT(COMPLF(0),NBPC2) MASK2(1) = COMPLF(MASK1(1)) DO 10 I = 2,N2CPW MASK1(I) = ORF(MASK2(1),RSHIFT(MASK1(I-1),NBPC2)) MASK2(I) = COMPLF(MASK1(I)) 10 CONTINUE FILE = FILEX C DO 20 J = 1,6 DO 20 I = 1,32 TTLSAV(I,J) = TITLE(I,J) 20 CONTINUE C 30 COUNT = MAXLIN 40 CALL READ (*500,*30,FILE,N,1,0,NF) IF (N) 100,130,110 C C A TITLE OR SUBTITLE FOLLOWS. C 100 N = -N IF (N .LE. 6) CALL FREAD (FILE,TITLE(1,N),32,0) IF (N .GT. 6) CALL FREAD (FILE,0,-32,0) GO TO 30 C C A MESSAGE FOLLOWS...N = NUMBER OF LIST ITEMS. C 110 IF (N .LE. LSTMAX) GO TO 120 CALL FREAD (FILE,0,-N,0) GO TO 130 120 IF (N .NE. 0) CALL FREAD (FILE,LST,N,0) C C READ THE CORRESPONDING FORMAT...NF = SIZE OF THE FORMAT. C 130 CALL FREAD (FILE,NF,1,0) IF (NF) 140,150,160 140 COUNT = COUNT - NF GO TO 130 150 COUNT = MAXLIN GO TO 130 160 IF (NF .LE. FORMAX) GO TO 170 CALL FREAD (FILE,0,-NF,0) GO TO 30 170 CALL FREAD (FILE,FOR,NF,0) C C CONDENSE FOR ARRAY TO ACQUIRE CONTIGUOUS HOLLERITH STRINGS. C IF (NCPW .EQ. 4) GO TO 300 DO 290 I = 2,NF K1 = 1 POS= 2*I - 1 J = (POS+N2CPW1)/N2CPW K2 = POS - N2CPW*(J-1) ASSIGN 200 TO RET GO TO 240 200 CONTINUE K1 = 2 IF (K2+1 .LE. N2CPW) GO TO 210 K2 = 1 J = J + 1 GO TO 220 210 K2 = K2 + 1 220 CONTINUE ASSIGN 230 TO RET GO TO 240 230 CONTINUE GO TO 290 240 IF (K2-K1) 250,260,270 250 FOR(J) = ORF(ANDF(FOR(J),MASK1(K2)), 1 LSHIFT(ANDF(FOR(I),MASK2(K1)),(NBPC2*(K1-K2)))) GO TO 280 260 FOR(J) = ORF(ANDF(FOR(J),MASK1(K2)),ANDF(FOR(I),MASK2(K1))) GO TO 280 270 FOR(J) = ORF(ANDF(FOR(J),MASK1(K2)), 1 RSHIFT(ANDF(FOR(I),MASK2(K1)),(NBPC2*(K2-K1)))) GO TO 280 280 CONTINUE GO TO RET, (200,230) 290 CONTINUE 300 CONTINUE C C PRINT THE LINE C IF (EJECT(1) .EQ. 0) GO TO 450 DO 440 J = 4,6 DO 410 I = 1,32 IF (TITLE(I,J) .NE. BLANK) GO TO 420 410 CONTINUE COUNT = COUNT - 1 GO TO 440 420 WRITE (MO,430) (TITLE(I,J),I=1,32) 430 FORMAT (2X,32A4) 440 CONTINUE WRITE (MO,430) COUNT = COUNT + 1 C 450 IF(N.EQ.0 .AND. (MACH.EQ.5 .OR. MACH.EQ.12) )GO TO 470 IF (MACH .EQ. 5 .OR. MACH .EQ. 12 ) GO TO 460 CALL FORWRT ( FORMT, LST, N ) GO TO 40 460 WRITE (MO,FOR,ERR=465) (LST(J),J=1,N) 465 CONTINUE GO TO 40 470 WRITE (MO,FOR) GO TO 40 C C END OF MESSAGE FILE C 500 CALL CLOSE (FILE,REW) DO 510 J = 1,6 DO 510 I = 1,32 TITLE(I,J) = TTLSAV(I,J) 510 CONTINUE RETURN END ================================================ FILE: mis/wrtprt.f ================================================ SUBROUTINE WRTPRT (FILE,LIST,FORMAT,N) C INTEGER FILE,LIST(1),FORMAT(N) C CALL WRITE (FILE,LIST,LIST(1)+1,0) CALL WRITE (FILE,N,1,0) CALL WRITE (FILE,FORMAT,N,0) RETURN END ================================================ FILE: mis/wrttrl.f ================================================ SUBROUTINE WRTTRL (FILBLK) C EXTERNAL LSHIFT,RSHIFT,ANDF,ORF INTEGER FILBLK(7),FIAT,FIST,NAME(2),ORF,RSHIFT,ANDF, 1 FILBK(7),LB(2) REAL WORDS(4) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /MACHIN/ MACH COMMON /XFIAT / FIAT(3) COMMON /XFIST / FIST(2) COMMON /XSORTX/ ISAV(6) COMMON /L15 L8/ L15,L8 COMMON /SYSTEM/ SYSTEM(175) COMMON /LOGOUT/ LOUT EQUIVALENCE (SYSTEM(2),IOUT), (SYSTEM(24),ICFIAT), 1 (SYSTEM(40),NBPW) DATA MBIT / 0 / ,WORDS / 1.0, 2.0, 2.0, 4.0 / DATA NAME / 4HWRTT,4HRL / DATA MASK / 65535 / C C C IF ICFIAT= 8, WRTTRL WILL PACK SIX SIXTEEN BIT POSITIVE INTEGERS C INTO THREE THIRTY-TWO BIT WORDS AND STORE THEM IN THE FIAT C NO SUCH PACKING IF ICFIAT=11 C C C SEARCH FIST FOR THE FILE C C WRTTRL WILL NOT CHANGE TRAILER FOR 100 SERIES FILES C IF (FILBLK(1).GT.100 .AND. FILBLK(1).LT.199) CALL MESAGE (-40, 1 FILBLK(1),NAME) C C ONLY MATGEN, OPTION 10, SENDS FILE 199 OVER HERE C IF (FILBLK(1) .EQ. 199) FILBLK(1) = 101 C C THIS 'NEXT TO SIGN' MBIT IS SET BY SDCOMP AND SDCMPS C MBIT = LSHIFT(1,NBPW-2 - (NBPW-32)) NOUT = IOUT NOUT = LOUT C C VERIFY SQUARE AND SYMM. MATRICES C IF (L8.EQ.0 .OR. L15.EQ.0) GO TO 20 IF (FILBLK(7) .LT. MBIT) GO TO 20 IF (FILBLK(4).NE.1 .AND. FILBLK(4).NE.6) GO TO 20 IF (FILBLK(2) .EQ. FILBLK(3)) GO TO 20 CALL FNAME (FILBLK(1),LB(1)) WRITE (IOUT,10) SWM,LB(1),LB(2),FILBLK(2),FILBLK(3),FILBLK(4) 10 FORMAT (A27,', DATA BLOCK ',2A4,1H,,I9,3H BY,I8,', IS MIS-LABLED', 1 ' SQUARE OR SYMM. (FORM=',I3,1H), /5X, 2 'TURN DIAGS 1, 8 AND 15 ON FOR ERROR TRACEBACK') CALL SSWTCH (1,N) CWKBD IF (N .NE. 0) CALL ERRTRC ('WRTTRL ',10) C 20 CONTINUE N = FIST(2)*2 + 1 DO 30 I = 3,N,2 IF (FIST(I) .NE. FILBLK(1)) GO TO 30 INDEX = FIST(I+1) + 1 GO TO 40 30 CONTINUE CALL MESAGE (-11,FILBLK(1),NAME) C C IF (1) BIT 'NEXT TO SIGN BIT' IS ON IN FILBLK(7), (2) FILBLK(2) C AND FILBLK(3), WHICH ARE COLUMN AND ROW, ARE NON ZEROS, AND C FILBLK(5), WHICH IS TYPE, IS 1,2,3 OR 4, THE INCOMING TRAILER IS C A MATRIX TRAILER. IN THIS CASE FILBLK(7) IS CONVERTED TO A DENSITY C PERCENTAGE BEFORE STORING IN THE FIAT. C 40 IF (FILBLK(7) .LT. MBIT) GO TO 50 COUNT = FILBLK(7) - MBIT I = FILBLK(5) IF (FILBLK(2).EQ.0 .OR. FILBLK(3).EQ.0 .OR. I.LT.1 .OR. I.GT.4) 1 GO TO 50 FN = FILBLK(2) FM = FILBLK(3) FILBLK(7) = (COUNT/(FN*FM*WORDS(I)))*1.E4 + 1.0E-3 IF (FILBLK(7).EQ.0 .AND. FILBLK(6).NE.0) FILBLK(7) = 1 50 CONTINUE C IF (L8 .EQ. 0) GO TO 100 WRITE (NOUT,60,ERR=70) FIAT(INDEX+1),FIAT(INDEX+2), 1 (FILBLK(I),I=2,7) 60 FORMAT (' *** DIAG 8, MESSAGE -- TRAILER FOR DATA BLOCK ',2A4, 1 2H =,6I10) GO TO 100 70 CALL SSWTCH (1,N) IF (N .EQ. 0) GO TO 100 WRITE (NOUT,80,ERR=90) (FILBLK(I),I=2,7) CIBMR 6/93 80 FORMAT (3H (,6O20,1H)) 80 FORMAT (3H (,6I8,1H)) CWKBR 90 CALL ERRTRC ('WRTTRL ',70) 90 CONTINUE C C IF ICFIAT IS 8, PACK THE TRAILER INFORMATION IN THE FIAT. C BEFORE PACKING MAKE SURE NUMBERS ARE POSITIVE AND .LE. 16 BITS. C C IF ICFIAT IS 11, 6 TRAILER WORDS ARE STORED DIRECTLY INTO 4TH, C 5TH, 6TH, 9TH, 10TH AND 11TH WORD OF A FIAT ENTRY C 100 IF (ICFIAT .EQ. 11) GO TO 120 DO 110 I = 2,7 FILBLK(I) = ANDF(MASK,IABS(FILBLK(I))) 110 CONTINUE FIAT(INDEX+ 3) = ORF(FILBLK(3),LSHIFT(FILBLK(2),16)) FIAT(INDEX+ 4) = ORF(FILBLK(5),LSHIFT(FILBLK(4),16)) FIAT(INDEX+ 5) = ORF(FILBLK(7),LSHIFT(FILBLK(6),16)) GO TO 130 120 FIAT(INDEX+ 3) = FILBLK(2) FIAT(INDEX+ 4) = FILBLK(3) FIAT(INDEX+ 5) = FILBLK(4) FIAT(INDEX+ 8) = FILBLK(5) FIAT(INDEX+ 9) = FILBLK(6) FIAT(INDEX+10) = FILBLK(7) 130 IF (FIAT(INDEX) .GE. 0) GO TO 150 C C FIND EQUIVALENCED FILES IN FIAT AND WRITE TRAILER ON THEM C IUCB = ANDF(FIAT(INDEX),MASK) IENDF = FIAT(3)*ICFIAT - 2 DO 140 I = 4,IENDF,ICFIAT IF (FIAT(I) .GE. 0) GO TO 140 C C PICK UP UNIT CONTROL BLOCK C ITUCB = ANDF(FIAT(I),MASK) IF (ITUCB .NE. IUCB) GO TO 140 C C FOUND FILE C FIAT(I+ 3) = FIAT(INDEX+ 3) FIAT(I+ 4) = FIAT(INDEX+ 4) FIAT(I+ 5) = FIAT(INDEX+ 5) IF (ICFIAT .EQ. 8) GO TO 140 FIAT(I+ 8) = FIAT(INDEX+ 8) FIAT(I+ 9) = FIAT(INDEX+ 9) FIAT(I+10) = FIAT(INDEX+10) 140 CONTINUE C C SAVE THE TRAILER IN ISAV IF FILE IS SCRATCH 1 C (SAVED FOR GINOFILE MODULE, SUBROUTINE GINOFL) C 150 IF (FILBLK(1) .NE. 301) RETURN ISAV(1) = FIAT(INDEX+ 3) ISAV(2) = FIAT(INDEX+ 4) ISAV(3) = FIAT(INDEX+ 5) IF (ICFIAT .EQ. 8) GO TO 160 ISAV(4) = FIAT(INDEX+ 8) ISAV(5) = FIAT(INDEX+ 9) ISAV(6) = FIAT(INDEX+10) 160 RETURN C C ENTRY RDTRL (FILBK) C =================== C C RDTRL WILL UNPACK THE THREE WORDS STORED IN THE FIAT AND RETURN C THE SIX WORDS OF TRAILER INFORMATION C C C SEARCH THE FIST FOR THE FILE C N = FIST(2)*2 + 1 DO 200 I = 3,N,2 IF (FIST(I) .NE. FILBK(1)) GO TO 200 INDEX = FIST(I+1) + 1 GO TO 210 200 CONTINUE C C FILE WAS NOT FOUND, SET THE FILE NAME NEGATIVE C FILBK(1) = -IABS(FILBK(1)) RETURN C C CHECK FIAT ENTRY 8 OR 11 WORDS PER ENTRY C 210 IF (ICFIAT .EQ. 11) GO TO 220 C C 8 WORD ENTRY, UNPACK THE TRAILER INFORMATION C FILBK(2) = RSHIFT(FIAT(INDEX+3),16) FILBK(3) = ANDF(FIAT(INDEX+3),MASK) FILBK(4) = RSHIFT(FIAT(INDEX+4),16) FILBK(5) = ANDF(FIAT(INDEX+4),MASK) FILBK(6) = RSHIFT(FIAT(INDEX+5),16) FILBK(7) = ANDF(FIAT(INDEX+5),MASK) GO TO 230 C C 11 WORD ENTRY, TRAILER NOT PACKED C 220 FILBK(2) = FIAT(INDEX+ 3) FILBK(3) = FIAT(INDEX+ 4) FILBK(4) = FIAT(INDEX+ 5) FILBK(5) = FIAT(INDEX+ 8) FILBK(6) = FIAT(INDEX+ 9) FILBK(7) = FIAT(INDEX+10) C 230 RETURN END ================================================ FILE: mis/xcei.f ================================================ SUBROUTINE XCEI C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF DIMENSION DCPARM(2),NXCEI(2),IDIC(1),NXPTDC(2),CONTRL(4) COMMON /XVPS / VPS(1) CWKBR COMMON /XCEITB/ CEITBL(2) COMMON /XCEITB/ CEITBL(42) COMMON /OSCENT/ BUF(7) COMMON /ZZZZZZ/ DATABF(1) COMMON /SYSTEM/ BFSZ,ISYSOU,DUM21(21),ICFIAT,DUM57(57),ICPFLG COMMON /XFIAT / IFIAT(3) COMMON /XDPL / IDPL(3) EQUIVALENCE (DATABF(1),IDIC(1)) DATA NXPTDC/ 4HXPTD,4HIC / DATA NXCEI / 4HXCEI,4H / DATA NOSCAR/ 4HXOSC/ DATA POOL / 4HPOOL/ DATA CONTRL/ 4HJUMP,4HREPT,4HCOND,4HEXIT/ DATA NBLANK/ 4H / DATA MASK1 / 65535 /, NOFLGS / 536870911/ C C MASK1 = 000000177777 = 65536 = 2**16-1 C NOFLGS = 003777777777 = 536870911 = 2**29-1 C MASK = 017777600000 C LPFLG = 010000000000 C MASK = LSHIFT(MASK1,16) LPFLG = LSHIFT(1,30) CALL OPEN (*310,POOL,DATABF,2) C C DETERMINE WHICH TYPE OF CONTROL REQUEST C DO 10 J = 1,4 IF (BUF(4) .EQ. CONTRL(J)) GO TO (150,110,250,270), J 10 CONTINUE CALL MESAGE (-61,0,0) C C PROCESS JUMP CONTROL REQUEST C 30 IF (NEWSQ .GT. BUF(2)) GO TO 60 C C MUST BACKSPACE WITHIN OSCAR FILE C DUE TO GINO TECHNIQUES IT IS USUALLY FASTER TO REWIND AND FORWARD C REC RATHER THAN BACKREC C CALL REWIND (POOL) C C POSITION POOL TAPE AT BEGINNING OF OSCAR FILE C JJ = IDPL(3)*3 + 1 DO 40 J = 4,JJ,3 IF (IDPL(J) .EQ. NOSCAR) GO TO 50 40 CONTINUE CALL MESAGE (-61,0,0) 50 CALL SKPFIL (POOL,ANDF(IDPL(J+2),MASK1)-1) NEWSQ = NEWSQ - 1 GO TO 70 C C MUST FORWARD REC WITHIN OSCAR FILE C 60 NEWSQ = NEWSQ - BUF(2) - 1 IF (NEWSQ .EQ. 0) GO TO 260 70 DO 80 I = 1,NEWSQ 80 CALL FWDREC (*290,POOL) C C CHECK FOR REPEAT INSTRUCTION C IF (BUF(4) .EQ. CONTRL(2)) GO TO 260 C C JUMP REQUEST - CHECK FOR JUMP OUT OF LOOPS C NEWSQ = RSHIFT(ANDF(BUF(7),MASK),16) KK = 3 CEITBX = 0 100 CEITBX = 4 + CEITBX IF (CEITBX .GT. CEITBL(2)) GO TO 260 IF (ANDF(CEITBL(CEITBX-1),LPFLG).EQ.0 .OR. CEITBL(CEITBX+1).EQ.0) 1 GO TO 100 NBEGN = RSHIFT(ANDF(CEITBL(CEITBX-1),NOFLGS),16) NEND = ANDF(MASK1,CEITBL(CEITBX-1)) IF (NEWSQ.LT.NBEGN .OR. NEWSQ.GT.NEND) GO TO 130 GO TO 100 C C PROCESS REPEAT CONTROL REQUEST C 110 KK = 1 120 CEITBX = ANDF(BUF(7),MASK1) IF (CEITBL(CEITBX)) 121,122,122 C C NEGATIVE ENTRY IMPLIES VARIABLE REPT INSTRUCTION C FIND VALUE IN VPS AND UPDATE CEITBL C 121 IVPSPT = RSHIFT(ANDF(CEITBL(CEITBX),NOFLGS),16) LOOP = ANDF(CEITBL(CEITBX),MASK1) IVPSPT = VPS(IVPSPT+3) CEITBL(CEITBX) = ORF(LSHIFT(IVPSPT,16),LOOP) 122 CONTINUE C C CHECK FOR END OF LOOP C MXLOOP = RSHIFT(ANDF(CEITBL(CEITBX),NOFLGS),16) LOOP = ANDF(CEITBL(CEITBX),MASK1) IF (MXLOOP .GT. LOOP) GO TO 140 C C REPEATS FINISHED - ZERO LOOP COUNT AND TURN OFF LOOP FLAG C 130 CEITBL(CEITBX ) = ANDF(CEITBL(CEITBX ),MASK ) CEITBL(CEITBX-1) = ANDF(CEITBL(CEITBX-1),NOFLGS) GO TO (260,280,100), KK C C ANOTHER TIME THRU - INCREMENT COUNTER BY 1 C 140 CEITBL(CEITBX) = CEITBL(CEITBX) + 1 C C SET LOOP FLAG IN WORD 1 OF CEITBL ENTRY C CEITBL(CEITBX-1) = ORF(CEITBL(CEITBX-1),LPFLG) GO TO (150,260), KK 150 NEWSQ = RSHIFT(ANDF(BUF(7),MASK),16) C C MAKE SURE WE ARE LOOPING C IF (NEWSQ .GE. BUF(2)) GO TO 30 C C IF CHECKPOINTING - BACKUP PROBLEM TAPE DICTIONARY TO BEGINNING OF C LOOP C IF (ICPFLG .EQ. 0) GO TO 210 C C READ IN CHECKPOINT DICTIONARY C ITOP = 2*BFSZ + 1 LDIC = KORSZ(IDIC(ITOP)) CALL OPEN (*310,NXPTDC,DATABF(BFSZ+1),0) CALL READ (*300,*160,NXPTDC,DCPARM,2,1,NRECSZ) 160 IF (NXPTDC(1) .NE. DCPARM(1)) CALL MESAGE (-61,0,0) CALL READ (*300,*170,NXPTDC,DCPARM,2,1,NRECSZ) 170 CALL READ (*300,*180,NXPTDC,IDIC(ITOP),LDIC,1,NRECSZ) GO TO 310 180 IBOT = NRECSZ + ITOP - 3 CALL CLOSE (NXPTDC,1) J = IBOT DO 190 I = ITOP,IBOT,3 IF (IDIC(I) .NE. NBLANK) GO TO 190 IF (ANDF(IDIC(I+2),MASK1) .LT. NEWSQ) GO TO 190 J = I - 3 GO TO 200 190 CONTINUE 200 IBOT = J C C WRITE IDIC ON NEW PROBLEM TAPE C CALL OPEN (*310,NXPTDC,DATABF(BFSZ+1),1) CALL WRITE (NXPTDC,NXPTDC,2,1) CALL WRITE (NXPTDC,DCPARM,2,1) CALL WRITE (NXPTDC,IDIC(ITOP),IBOT+3-ITOP,1) CALL CLOSE (NXPTDC,1) C C SCAN FIAT FOR FILES REGENERATED NEXT TIME THRU LOOP. C 210 J = IFIAT(3)*ICFIAT - 2 JJ = IDPL(3) *3 + 1 DO 240 I = 4,J,ICFIAT IF (RSHIFT(ANDF(IFIAT(I),NOFLGS),16) .GE. BUF(2)) GO TO 240 IF (RSHIFT(ANDF(IFIAT(I),NOFLGS),16) .EQ. 0) GO TO 240 IF (ANDF(RSHIFT(IFIAT(I),30),1) .NE. 0) GO TO 240 C C LTU IS LESS THAN LOOP END - CLEAR FIAT TRAILER C IFIAT(I+ 3) = 0 IFIAT(I+ 4) = 0 IFIAT(I+ 5) = 0 IF (ICFIAT .EQ. 8) GO TO 212 IFIAT(I+ 8) = 0 IFIAT(I+ 9) = 0 IFIAT(I+10) = 0 C C IF EQUIV, REMOVE ENTIRE ENTRY FROM FIAT C REMOVE ENTIRE ENTRY FROM FIAT TO FORCE REALLOCATION C 212 IHOLD = ANDF(MASK1,IFIAT(I)) IFIAT(I ) = 0 IFIAT(I+1) = 0 IFIAT(I+2) = 0 IF (I .LT. IFIAT(1)*ICFIAT) IFIAT(I) = IHOLD C C ZERO FILE NAME IF IN DPL C DO 220 II = 4,JJ,3 IF (IDPL(II).EQ.IFIAT(I+1) .AND. IDPL(II+1).EQ.IFIAT(I+2)) 1 GO TO 230 220 CONTINUE GO TO 240 230 IDPL(II ) = 0 IDPL(II+1) = 0 240 CONTINUE GO TO 30 C C PROCESS CONDITIONAL CONTROL REQUEST C 250 CEITBX = ANDF(BUF(7),MASK1) IF (VPS(CEITBX) .LT. 0) GO TO 150 260 CALL CLOSE (POOL,2) RETURN C C PROCESS EXIT CONTROL REQUESTS C 270 KK = 2 IF (BUF(7) .NE. CONTRL(4)) GO TO 120 280 CALL PEXIT 290 CALL MESAGE (-2,POOL ,NXCEI) 300 CALL MESAGE (-2,NXPTDC,NXCEI) 310 CALL MESAGE (-61,0,0) RETURN END ================================================ FILE: mis/xchk.f ================================================ SUBROUTINE XCHK C C THE PURPOSE OF THIS ROUTINE IS TO SAVE ON THE NEW PROBLEM NPTP C TAPE ALL FILES REQUESTED BY XCHK OSCAR ENTRY TOGETHER WITH ANY C OTHER DATA NECESSARY FOR RESTART. C C ... DEFINITION OF PROGRAM VARIABLES ... C NPTPNT = POINTER TO GINO BUFFER FOR NEW PROBLEM NPTP TAPE C DPPNT = POINTER TO GINO BUFFER FOR DATA POOL TAPE C FPNT = POINTER TO GINO BUFFER FOR FILES LISTED IN FIAT TABLE C IOBUF = INPUT/OUTPUT BUFFER AREA C IOPNT = POINTER TO IOBUF C LIOBUF = LENGTH OF IOBUF C DICT = PRELIMINARY FILE DICTIONARY C FDICT = FINAL FILE DICTIONARY TO BE WRITTEN ON NEW PROBLEM TAPE C LDC = POINTER TO LAST DICT ENTRY MADE. C DCPNT = POINTER TO DICT ENTRY BEING SCANNED. C NPTFN = NEW PROBLEM TAPE (NPTP) FILE NUMBER TO BE ASSIGNED C UCBPNT = UCB POINTER FOUND IN FIAT ENTRIES C MINFN = SMALLEST DATA POOL FILE NUMBER C DPFCT = DATA POOL FILE POSITION C OSCFN = DATA POOL FILE NUMBER OF OSCAR FILE C EORFLG = END OF RECORD FLAG C PURGE = TABLE OF PURGED CHECKPOINT FILES C LPURGE = LENGTH OF PURGE TABLE C PRGPNT = POINTER TO LAST PURGE ENTRY C REELCT = KEEPS TRACK OF HOW MANY PROBLEM TAPE REELS A FILE IS C USING C EQFLG = EQUIVALENCE FLAG C DPLFLG = DATA POOL FLAG C EOTFLG = END OF TAPE FLAG C SETEOR = END OF RECORD FLAG SET C FNASS = NPTP FILE NUMBER ASSIGNED FLAG C MASKHI = MASK FOR ALL BITS EXCEPT LOWEST ORDER 16 BITS OF A WORD. C NOFLGS = MASK FOR ALL FLAG BITS C ALLON = ALL BITS ON C PTDIC = ARRAY CONTAINING CHECKPOINT DICTIONARY C SEQNO = SEQUENCE NO. OF LAST PTDIC ENTRY THAT WAS PUNCHED OUT. C NRLFL = NEXT REEL/FILE NO. TO BE USED IN PTDIC C PTDTOP = POINTER TO FIRST WORD OF FIRST ENTRY IN PTDIC C PTDBOT = POINTER TO FIRST WORD OF LAST ENTRY IN PTDIC C LCPTP = POINTER TO FIRST WORD OF FIRST ENTRY OF NEW GROUP OF C ENTRIES TO BE PUT IN PTDIC. C LPTDIC = LENGTH (IN WORDS) OF PTDIC C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF DIMENSION BLKCNT(90),DCPARM(2),HEAD(2),PURGE(100),SVFST(2), 1 PGHDG(1),HDG(32),DICT(400),FDICT(400),PTDIC(1), 2 NXPTDC(2),IOBUF(1),NXCHK(2),NVPS(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /XFIST / FIST(2) COMMON /XPFIST/ IPFST COMMON /OSCENT/ OSCAR(7) CWKBR COMMON /XCEITB/ CEITBL(2) COMMON /XCEITB/ CEITBL(42) COMMON /XFIAT / FIAT(3) COMMON /XDPL / DPL(3) COMMON /XVPS / VPS(2) COMMON /ZZZZZZ/ GBUF(1) COMMON /SYSTEM/ ZSYS(91) COMMON /MACHIN/ MACH COMMON /OUTPUT/ PGHDG COMMON /STAPID/ TAPID(6) COMMON /RESDIC/ IRDICT,IROPEN CWKBI C INCLUDE 'NASNAMES.COM' EQUIVALENCE (ZSYS( 1),BUFSZ ),(ZSYS( 2),OTPE ), 1 (ZSYS( 9),NLPP ),(ZSYS(11),NPAGES), 2 (ZSYS(12),NLINES),(ZSYS(24),ICFIAT), 3 (ZSYS(26),CPPGCT),(ZSYS(40),NBPW ) EQUIVALENCE (DCPARM(1),NRLFL),(DCPARM(2),SEQNO), 1 (GBUF(1),IOBUF(1),PTDIC(1)) DATA NPTP / 4HNPTP/ DATA DPT / 4HPOOL/ DATA NBLANK/ 4H / DATA NOSCAR/ 4HXOSC/ DATA NXCHK / 4HXCHK,4H / DATA NVPS / 4HXVPS,4H / DATA NXPTDC/ 4HXPTD,4HIC /, DCPARM/4H(NON,4HE) / DATA HDG / 4H ,4HADDI,4HTION,4HS TO,4H CHE,4HCKPO,4HINT , 1 4HDICT,4HIONA,4HRY ,22*4H / DATA BLKCNT/ 90*0 /, LIMIT /90 / DATA LPURGE/ 100 / C C INITIALIZE C FILCNT = 0 REELCT = 0 LDC =-2 RECSZ = 0 PRGPNT =-1 CALL SSWTCH (9,DIAG09) IF (MACH .LT. 5) CALL XFLSZD (0,BLKSIZ,0) C C MASKHI - O000000077777 MASKHI = 32767 C C DPLFLG - O004000000000 DPLFLG = LSHIFT(1,29) C C SETEOR - O004000000000 SETEOR = DPLFLG C C FNASS - O010000000000 FNASS = LSHIFT(1,30) C C EOTFLG - O010000000000 EOTFLG = FNASS C C ALLON - O777777777777 ALLON = COMPLF(0) C C NOSGN - O377777777777 NOSGN = RSHIFT(ALLON,1) C C EQFLG - O400000000000 EQFLG = COMPLF(NOSGN) C C NOFLGS - O003777777777 NOFLGS = RSHIFT(ALLON,NBPW-29) C C C FIND OSCAR FILE NUMBER IN DPL C J1 = DPL(3)*3 + 1 DO 10 J = 4,J1,3 IF (DPL(J) .EQ. NOSCAR) GO TO 20 10 CONTINUE 20 OSCFN = ANDF(DPL(J+2),MASKHI) DPFCT = OSCFN C C ALLOCATE CORE FOR GINO BUFFERS C NPTPNT = KORSZ(GBUF) - BUFSZ - 1 DPPNT = NPTPNT - BUFSZ FPNT = DPPNT - BUFSZ IF (FPNT .LT. 1) CALL MESAGE (-8,0,NXCHK) C C INITIALIZE PTDIC PARAMETERS AND LOAD CHECKPOINT DICTIONARY C NGINO = NXPTDC(1) CALL OPEN (*905,NXPTDC,GBUF(NPTPNT),0) CALL READ (*970,*30,NXPTDC,DCPARM,2,1,RECSZ) 30 IF (DCPARM(1) .NE. NXPTDC(1)) GO TO 970 CALL READ (*970,*35,NXPTDC,DCPARM,2,1,RECSZ) 35 PTDTOP = 1 LPTDIC = NPTPNT - PTDTOP CALL READ (*970,*40,NXPTDC,PTDIC(PTDTOP),LPTDIC,1,RECSZ) GO TO 940 40 PTDBOT = RECSZ + PTDTOP - 3 IOPNT = PTDBOT + 6 LIOBUF = FPNT - IOPNT IF (LIOBUF .LT. 1) CALL MESAGE (-8,0,NXCHK) CALL CLOSE (NXPTDC,1) LCPTP = PTDBOT + 3 C C SAVE CHECKPOINT DMAP SEQ. NO. AND RECORD NO. C PTDIC(LCPTP ) = NBLANK PTDIC(LCPTP+1) = NBLANK PTDIC(LCPTP+2) = ORF(OSCAR(2),LSHIFT(ANDF(MASKHI,OSCAR(6))+1,16)) NPTFN = NRLFL C C GET FIRST/NEXT FILE NAME FROM OSCAR ENTRY C I1 = OSCAR(7)*2 + 6 DO 200 I = 8,I1,2 C C SEE IF FILE IS ALREADY IN DICT C IF (OSCAR(I).EQ.NVPS(1) .AND. OSCAR(I+1).EQ.NVPS(2)) GO TO 200 IF (LDC .LT. 0) GO TO 110 DO 100 J = 1,LDC,3 IF (DICT(J).EQ.OSCAR(I) .AND. DICT(J+1).EQ.OSCAR(I+1)) GO TO 200 100 CONTINUE C C CHECK FIAT TABLE FOR FILE NAME C 110 J1 = FIAT(3)*ICFIAT - 2 DO 115 J = 4,J1,ICFIAT IF (OSCAR(I).EQ.FIAT(J+1) .AND. OSCAR(I+1).EQ.FIAT(J+2)) GO TO 120 115 CONTINUE GO TO 160 C C FILE IS IN FIAT - ENTER FILE AND ALL EQUIVALENCED FILES IN DICT C 120 IF (ANDF(FIAT(J),MASKHI) .EQ. MASKHI) GO TO 155 C C FILE NOT PURGED - CHECK FIAT TRAILER WORDS TO INSURE THAT FILE HAS C BEEN GENERATED C IF (FIAT(J+3).NE.0 .OR. FIAT(J+4).NE.0 .OR. FIAT(J+5).NE.0) 1 GO TO 125 IF (ICFIAT.EQ.11 .AND. (FIAT(J+8).NE.0 .OR. FIAT(J+9).NE.0 .OR. 1 FIAT(J+10).NE.0)) GO TO 125 GO TO 155 125 IF (FIAT(J) .LT. 0) GO TO 145 LDC = LDC + 3 DICT(LDC ) = FIAT(J+1) DICT(LDC+1) = FIAT(J+2) DICT(LDC+2) = ORF(LSHIFT(J,16),ANDF(FIAT(J),MASKHI)) C C DESTROY ANY EQUIVS TO THIS FILE C C FIND LAST DICTIONARY REFERENCE TO THIS DATA BLOCK NAME C DO 130 J = PTDTOP,PTDBOT,3 K = PTDBOT - (J-PTDTOP) IF (DICT(LDC).EQ.PTDIC(K) .AND. PTDIC(K+1).EQ.DICT(LDC+1)) 1 GO TO 132 130 CONTINUE GO TO 140 C C FILE EXISTS IN DICTIONARY SEE IF IT IS EQUIVED C 132 CONTINUE IF (ANDF(PTDIC(K+2),EQFLG) .EQ. 0) GO TO 140 C C FILE IS EQUIVED. PURGE ALL SUBSEQUENT ENTRIES FOR THIS FILE C IF (K .EQ. PTDBOT) GO TO 140 DO 135 J = K,PTDBOT,3 IF (PTDIC(J+2) .NE. PTDIC(K+2)) GO TO 135 C C PURGE FILE C PRGPNT = PRGPNT + 2 IF (LPURGE .LT. PRGPNT+1) GO TO 960 PURGE(PRGPNT ) = PTDIC(J ) PURGE(PRGPNT+1) = PTDIC(J+1) 135 CONTINUE 140 CONTINUE GO TO 200 145 K = ANDF(FIAT(J),ORF(MASKHI,EQFLG)) DO 150 J = 4,J1,ICFIAT IF (ANDF(FIAT(J),ORF(MASKHI,EQFLG)) .NE. K) GO TO 150 LDC = LDC + 3 C C EQUIVALENCED FILE FOUND C DICT(LDC ) = FIAT(J+1) DICT(LDC+1) = FIAT(J+2) C C ENTER EQUIVALENCE FLAG, FIAT POINTER AND UCB POINTER IN DICT C DICT(LDC+2) = ORF(LSHIFT(J,16),K) 150 CONTINUE GO TO 200 C C ENTER PURGED FILE IN PURGE TABLE C 155 PRGPNT = PRGPNT + 2 IF (LPURGE .LT. PRGPNT+1) GO TO 960 PURGE(PRGPNT ) = OSCAR(I ) PURGE(PRGPNT+1) = OSCAR(I+1) GO TO 200 C C SEE IF FILE IS IN DPL C 160 J1 = DPL(3)*3 + 1 DO 170 J = 4,J1,3 IF (OSCAR(I).EQ.DPL(J) .AND. OSCAR(I+1).EQ.DPL(J+1)) GO TO 180 170 CONTINUE GO TO 155 C C FILE IS IN DPL - ENTER FILE AND ALL EQUIVALENCED FILES IN DICT C 180 K = ANDF(DPL(J+2),MASKHI) DPFCT = MIN0(OSCFN,K) DO 190 J = 4,J1,3 IF (ANDF(DPL(J+2),MASKHI) .NE. K) GO TO 190 LDC = LDC + 3 C C EQUIVALENCED FILE FOUND C DICT(LDC ) = DPL(J ) DICT(LDC+1) = DPL(J+1) C C ENTER EQUIVALENCE FLAG, DPLFLG AND FILE NO. IN DICT C DICT(LDC+2) = ORF(DPLFLG,ANDF(DPL(J+2),ORF(MASKHI,EQFLG))) 190 CONTINUE 200 CONTINUE C C MOVE DICT ENTRIES TO FDICT TABLE C GET FIRST NEXT/ENTRY IN DICT C IF (LDC .LT. 1) GO TO 400 DO 300 I = 1,LDC,3 C C IF DICT ENTRY IS EQUIVALENCED - SEE IF IT IS IN PTDIC C IF (ANDF(DICT(I+2),FNASS) .EQ. FNASS) GO TO 300 IF (DICT(I+2) .GT. 0) GO TO 225 C C SEARCH BACKWARD FOR PREVIOUS ENTRY C DO 210 J = PTDTOP,PTDBOT,3 K = PTDBOT - (J-PTDTOP) IF (PTDIC(K).EQ.DICT(I) .AND. PTDIC(K+1).EQ.DICT(I+1) .AND. 1 PTDIC(K+2).NE.0) GO TO 215 210 CONTINUE GO TO 225 C C DICT ENTRY IS IN PTDIC C 215 FDICT(I ) = DICT(I ) FDICT(I+1) = DICT(I+1) FDICT(I+2) = ORF(PTDIC(K+2),EQFLG) UCBPNT = DICT(I+2) DICT(I+2) = FNASS C C ENTER PTDIC FILE NUMBER IN FDICT ENTRIES THAT ARE EQUIVALENCED TO C PTDIC ENTRY C UCBPNT = ANDF(UCBPNT,ORF(MASKHI,DPLFLG)) DO 220 J = 1,LDC,3 IF (ANDF(DICT(J+2),ORF(MASKHI,DPLFLG)) .NE. UCBPNT) GO TO 220 FDICT(J ) = DICT(J ) FDICT(J+1) = DICT(J+1) FDICT(J+2) = ORF(EQFLG,PTDIC(K+2)) DICT(J+2) = FNASS 220 CONTINUE C C MOVE DICT ENTRY TO FDICT IF NOT ALREADY MOVED C 225 IF (ANDF(DICT(I+2),FNASS) .EQ. FNASS) GO TO 300 FDICT(I ) = DICT(I ) FDICT(I+1) = DICT(I+1) FDICT(I+2) = DICT(I+2) IF (ANDF(DICT(I+2),DPLFLG) .EQ. DPLFLG) GO TO 300 C C DICT ENTRY IS FIAT FILE - ENTER NPTP FILE NO. IN FDICT C FDICT(I+2) = ORF(ANDF(FDICT(I+2),EQFLG),NPTFN) DICT (I+2) = ORF(DICT(I+2),FNASS) IF (DICT(I+2) .GT. 0) GO TO 295 C C FILE IS EQUIVALENCED - ENTER NPTP FILE NO. IN FDICT FOR FILES THAT C THIS ENTRY IS EQUIVALENCED TO. C UCBPNT = ANDF(DICT(I+2),MASKHI) J1 = I + 3 IF (J1 .GT. LDC) GO TO 295 DO 230 J = J1,LDC,3 IF (ANDF(DICT(J+2),MASKHI) .NE. UCBPNT) GO TO 230 FDICT(J ) = DICT(J ) FDICT(J+1) = DICT(J+1) FDICT(J+2) = FDICT(I+2) DICT(J+2) = ORF(DICT(J+2),FNASS) 230 CONTINUE 295 NPTFN = 1 + NPTFN 300 CONTINUE C C NOW ASSIGN NPTP FILE NUMBERS TO DATA POOL FILES IN SAME ORDER THAT C FILES APPEAR ON DATA POOL TAPE. C 310 MINFN = RSHIFT(ALLON,1) C C GET FIRST/NEXT DICT ENTRY C DO 330 I = 1,LDC,3 IF (ANDF(DICT(I+2),FNASS) .EQ. FNASS) GO TO 330 MINFN = MIN0(MINFN,ANDF(DICT(I+2),MASKHI)) 330 CONTINUE IF (MINFN .EQ. RSHIFT(ALLON,1)) GO TO 400 DO 350 I = 1,LDC,3 IF (ANDF(DICT(I+2),FNASS) .EQ. FNASS) GO TO 350 IF (ANDF(DICT(I+2),MASKHI) .NE. MINFN) GO TO 350 FDICT(I+2) = ORF(NPTFN,ANDF(FDICT(I+2),EQFLG)) DICT (I+2) = ORF(DICT(I+2),FNASS) 350 CONTINUE NPTFN = NPTFN + 1 GO TO 310 C C OPEN DATA POOL TAPE SO IT IS POSITIONED BEFORE FIRST FILE TO C CHECKPOINT. C 400 IF (DPFCT .LT. OSCFN) GO TO 401 J = 2 DPFCT = OSCFN GO TO 402 401 J = 0 DPFCT = 1 402 NAME = DPT CALL OPEN (*905,DPT,GBUF(DPPNT),J) NAME = NPTP C C OPEN NEW PROBELM NPTP TAPE FOR WRITE C CALL OPEN (*905,NPTP,GBUF(NPTPNT),3) C C MAKE TEMPORARY ENTRY IN FIST FOR FIAT FILES C IFSTMP = 2*IPFST + 3 SVFST(1) = FIST(IFSTMP ) SVFST(2) = FIST(IFSTMP+1) FIST(2) = IPFST + 1 FIST(IFSTMP) = 301 C C WRITE FILES ON NEW PROBLEM NPTP TAPE AS SPECIFIED IN FDICT. C N1 = NPTFN - 1 C C GET FIRST/NEXT FDICT ENTRY C N = NRLFL IF (LDC.LT.1 .OR. N1.LT.N) GO TO 615 405 DO 410 I = 1,LDC,3 IF (ANDF(FDICT(I+2),NOFLGS) .EQ. N) GO TO 415 410 CONTINUE C C FDICT ENTRIES SHOULD ALL BE COPIED - MAKE SURE ALL IS O.K. C DO 412 I = 1,LDC,3 IF (ANDF(FDICT(I+2),NOFLGS) .GT. N) GO TO 920 412 CONTINUE NPTFN = N GO TO 615 C C THIS FDICT ENTRY IS NEXT TO GO ON NEW PROBLEM NPTP TAPE. C 415 IF (ANDF(DICT(I+2),DPLFLG) .EQ. DPLFLG) GO TO 450 C C FILE IS IN FIAT TABLE C K = RSHIFT(ANDF(NOFLGS,DICT(I+2)),16) IF (DICT(I+2) .GT. 0) GO TO 418 C C GET SMALLEST FIAT POINTER FOR EQUIVALENCED FIAT FILES C DO 416 II = 1,LDC,3 IF (ANDF(DICT(II+2),DPLFLG) .EQ. DPLFLG) GO TO 416 IF (ANDF(DICT(I+2),MASKHI) .EQ. ANDF(DICT(II+2),MASKHI)) 1 K = MIN0(RSHIFT(ANDF(NOFLGS,DICT(II+2)),16),K) 416 CONTINUE C C INSERT FIAT POINTER IN TEMPORARY FIST ENTRY C 418 FIST(IFSTMP+1) = K - 1 C C READ FIRST 2 WORDS OF DATA BLOCK, CHECK NAME AND WRITE TO NEW C PROBLEM NPTP TAPE SPECIAL HEADER AND 3 OR 6 TRAILER WORDS C (TOTAL OF 5 OR 8 WORDS IN THIS NPTP RECORD) C NGINO = FIST(IFSTMP) CALL OPEN (*900,NGINO,GBUF(FPNT),0) FILCNT = FILCNT + 1 IF (FILCNT .GT. LIMIT) GO TO 990 CALL XFLSZD (-1,BLKCNT(FILCNT),NGINO) CALL READ (*930,*930,NGINO,HEAD,2,0,RECSZ) DO 440 J = I,LDC,3 IF (HEAD(1).EQ.FDICT(J) .AND. HEAD(2).EQ.FDICT(J+1) .AND. 1 FDICT(J+2).EQ.FDICT(I+2)) GO TO 445 440 CONTINUE GO TO 930 445 CALL WRITE (NPTP,HEAD,2,0) IF (ICFIAT .EQ. 11) GO TO 447 CALL WRITE (NPTP,FIAT(K+3),3,1) GO TO 448 447 CALL WRITE (NPTP,FIAT(K+3),3,0) CALL WRITE (NPTP,FIAT(K+8),3,1) C C COPY ENTIRE FILE ONTO NEW PROBLEM NPTP TAPE USING CPYFIL C 448 CALL WRITE (NPTP,HEAD,2,0) CALL CPYFIL (NGINO,NPTP,IOBUF(IOPNT),LIOBUF,RECSZ) CALL CLOSE (NGINO,1) GO TO 600 C C FILE IS ON POOL -- POSITION POOL AND COPY FILE USING CPYFIL C 450 NGINO = DPT K = ANDF(DICT(I+2),MASKHI) CALL SKPFIL (DPT,K-DPFCT) DPFCT = K + 1 FILCNT = FILCNT + 1 IF (FILCNT .GT. LIMIT) GO TO 990 CALL XFLSZD (K,BLKCNT(FILCNT),0) CALL CPYFIL (DPT,NPTP,IOBUF(IOPNT),LIOBUF,RECSZ) C C GET NEXT FDICT ENTRY C 600 CALL EOF (NPTP) N = N + 1 IF (N .LE. N1) GO TO 405 C C RESTORE FIST ENTRY C FIST(IFSTMP ) = SVFST(1) FIST(IFSTMP+1) = SVFST(2) C C WRITE VPS TABLE ONTO NEW PROBLEM NPTP TAPE C MAKE ENTRY IN FDICT FOR VPS TABLE C 615 LDC = LDC + 3 FDICT(LDC ) = NVPS(1) FDICT(LDC+1) = NBLANK FDICT(LDC+2) = NPTFN EORFLG = SETEOR I = LDC CALL WRITE (NPTP,NVPS,5,1) CALL WRITE (NPTP,VPS,VPS(2),1) C C WRITE CEITBL TABLE ONTO PROBLEM TAPE C CALL WRITE (NPTP,CEITBL,CEITBL(2),1) C C WRITE /SYSTEM/ ONTO PROBLEM TAPE C CALL WRITE (NPTP,BUFSZ,20,1) CALL EOF (NPTP) CALL CLOSE (NPTP,2) C C POSITION DATA POOL TAPE AT CORRECT OSCAR ENTRY FOR RETURN TO XSEM C IF (DPFCT .EQ. OSCFN) GO TO 675 CALL REWIND (DPT) IF (OSCFN .GT. 1) CALL SKPFIL (DPT,OSCFN-1) J1 = OSCAR(2) DO 670 J = 1,J1 CALL FWDREC (*910,DPT) 670 CONTINUE 675 CALL CLOSE (DPT,2) C C UPDATE PTDIC AND ASSOCIATED VARIABLES C NRLFL = NPTFN + 1 PTDBOT = LCPTP DO 690 I = 1,LDC,3 DO 680 J = PTDTOP,PTDBOT,3 C C SCAN PTDIC TO SEE IF FILE IS ALREADY THERE C IF (FDICT(I).EQ.PTDIC(J) .AND. FDICT(I+1).EQ.PTDIC(J+1) .AND. 1 FDICT(I+2).EQ.PTDIC(J+2)) GO TO 690 680 CONTINUE C C ENTER FILE IN PTDIC C PTDBOT = PTDBOT + 3 PTDIC(PTDBOT ) = FDICT(I ) PTDIC(PTDBOT+1) = FDICT(I+1) PTDIC(PTDBOT+2) = FDICT(I+2) 690 CONTINUE C C PUT PURGED FILES IN PTDIC C IF (PRGPNT .LT. 1) GO TO 800 DO 710 I = 1,PRGPNT,2 DO 700 J = PTDTOP,PTDBOT,3 IF (PURGE(I).EQ.PTDIC(J) .AND. PURGE(I+1).EQ.PTDIC(J+1) .AND. 1 PTDIC(J+2).EQ.0) GO TO 710 700 CONTINUE PTDBOT = PTDBOT + 3 PTDIC(PTDBOT ) = PURGE(I) PTDIC(PTDBOT+1) = PURGE(I+1) PTDIC(PTDBOT+2) = 0 710 CONTINUE C C CHECK FOR PTDIC OVERFLOW C 800 IF (PTDBOT+3-PTDTOP .GT. LPTDIC) GO TO 940 C C C PUNCH AND PRINT LATEST ENTRIES IN PTDIC C INITIALIZE PAGE HEADING AND CHECK PAGE COUNT C IF (DIAG09 .EQ. 1) GO TO 802 DO 801 I = 1,32 PGHDG(I+ 96) = HDG(I) PGHDG(I+128) = NBLANK 801 PGHDG(I+160) = NBLANK IF (CPPGCT .NE. NPAGES) CALL PAGE 802 CONTINUE I1 = ((LCPTP - PTDTOP)/3) + 1 I2 = ((PTDBOT - PTDTOP)/3) + 1 DO 810 I = I1,I2 J1 = (I-1)*3 + PTDTOP J2 = J1 + 2 C C SEPARATE FLAGS, REEL NO., FILE NO. C NFLAGS = 0 IF (PTDIC(J2) .LT. 0) NFLAGS = 4 NFLAGS = ORF(NFLAGS,RSHIFT(ANDF(PTDIC(J2),NOSGN),29)) NREEL = RSHIFT(ANDF(PTDIC(J2),NOFLGS),16) NFILE = ANDF(PTDIC(J2),MASKHI) SEQNO = 1 + SEQNO IF (PTDIC(J1) .EQ. NBLANK) GO TO 805 C IF (IROPEN .EQ. 1) GO TO 815 C OPEN (UNIT=4, FILE=DIC, STATUS='UNKNOWN') C IROPEN = 1 815 WRITE (IRDICT,820) SEQNO,PTDIC(J1),PTDIC(J1+1),NFLAGS,NREEL,NFILE 820 FORMAT (I10,4H, ,2A4,12H, FLAGS = ,I1,11H, REEL = ,I2, 1 11H, FILE = ,I6) IF (DIAG09 .EQ. 1) GO TO 810 NLINES = NLINES + 1 IF (MACH.LT.5 .AND. NFILE.NE.0 .AND. PTDIC(J1).NE.NVPS(1)) 1 NLINES = NLINES + 1 IF (NLINES .GE. NLPP) CALL PAGE WRITE (OTPE,821) SEQNO,PTDIC(J1),PTDIC(J1+1),NFLAGS,NREEL,NFILE 821 FORMAT (1H ,I9 ,4H, ,2A4,12H, FLAGS = ,I1,11H, REEL = ,I2, 1 11H, FILE = ,I6) IF (MACH.LT.5 .AND. NFILE.NE.0 .AND. PTDIC(J1).NE.NVPS(1)) 1 WRITE (OTPE,822) PTDIC(J1),PTDIC(J1+1),BLKCNT(I-I1),BLKSIZ 822 FORMAT (13X,6H FILE ,2A4, 9H CONTAINS, I10, 1 28H BLOCKS, EACH BLOCK CONTAINS,I5,7H WORDS.) GO TO 810 805 CONTINUE C IF (IROPEN .EQ. 1) GO TO 8055 C OPEN (UNIT=4, FILE=DIC, STATUS='UNKNOWN') C IROPEN = 1 C8055 CONTINUE WRITE (IRDICT,806) SEQNO,NREEL 806 FORMAT (I10,36H, REENTER AT DMAP SEQUENCE NUMBER ,I5) IF (DIAG09 .EQ. 1) GO TO 810 NLINES = NLINES + 2 IF (NLINES .GE. NLPP) CALL PAGE WRITE (OTPE,807) SEQNO,NREEL 807 FORMAT (1H ,/1H ,I9,36H, REENTER AT DMAP SEQUENCE NUMBER ,I5) 810 CONTINUE C C WRITE PTDIC ONTO XPTD C NGINO = NXPTDC(1) CALL OPEN (*905,NXPTDC,GBUF(NPTPNT),1) CALL WRITE (NXPTDC,NXPTDC,2,1) CALL WRITE (NXPTDC,DCPARM,2,1) CALL WRITE (NXPTDC,PTDIC(PTDTOP),PTDBOT+3-PTDTOP,1) CALL CLOSE (NXPTDC,1) CPPGCT = NPAGES C FIST(2) = IPFST RETURN C C C ERRORS - C 900 N = 1101 ASSIGN 901 TO RETURN GO TO 980 901 WRITE (OTPE,902) FDICT(I),FDICT(I+1) 902 FORMAT (4X,26HCOULD NOT OPEN FILE NAMED ,2A4) GO TO 995 C 905 N = 1102 ASSIGN 906 TO RETURN GO TO 985 906 WRITE (OTPE,902) NGINO,NBLANK GO TO 995 C 910 N = 1103 ASSIGN 911 TO RETURN GO TO 985 911 WRITE (OTPE,912) 912 FORMAT (4X,43HUNABLE TO POSITION DATA POOL TAPE CORRECTLY ) GO TO 995 C 920 N = 1104 ASSIGN 921 TO RETURN GO TO 985 921 WRITE (OTPE,922) 922 FORMAT (4X,24HFDICT TABLE IS INCORRECT ) GO TO 995 C 930 N = 1105 ASSIGN 931 TO RETURN GO TO 980 931 WRITE (OTPE,932) FDICT(I),FDICT(I+1),HEAD(1),HEAD(2) 932 FORMAT (4X,29HCANNOT FIND DATA BLOCK NAMED ,2A4,17H HEADER RECORD 1= ,2A4) GO TO 995 C 940 N = 1106 ASSIGN 941 TO RETURN GO TO 985 941 WRITE (OTPE,942) 942 FORMAT (4X,32HCHECKPOINT DICTIONARY OVERFLOWED) GO TO 995 C 960 N = 1108 ASSIGN 961 TO RETURN GO TO 985 962 FORMAT (4X,22HPURGE TABLE OVERFLOWED) 961 WRITE (OTPE,962) GO TO 995 C 970 N = 1109 ASSIGN 971 TO RETURN GO TO 985 971 WRITE (OTPE,932) NXPTDC,DCPARM GO TO 995 C C USER FATAL ERROR C 980 WRITE (OTPE,981) UFM,N 981 FORMAT (A23,I5) GO TO 987 C C SYSTEM FATAL ERROR C 985 CALL PAGE2 (3) WRITE (OTPE,986) SFM,N 986 FORMAT (A25,I5) 987 GO TO RETURN, (901,906,911,921,931,941,961,971) C 990 WRITE (OTPE,991) SFM 991 FORMAT (A25,', BLKCNT ARRAY EXCEEDED IN XCHK') C 995 CALL MESAGE (-37,0,NXCHK) RETURN END ================================================ FILE: mis/xclean.f ================================================ SUBROUTINE XCLEAN C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF DIMENSION NCLEAN( 2),DDBN ( 1),DFNU ( 1),FCUM ( 1), 2 FCUS ( 1),FDBN ( 1),FEQU ( 1),FILE ( 1), 2 FKND ( 1),FMAT ( 1),FNTU ( 1),FPUN ( 1), 3 FON ( 1),FORD ( 1),MINP ( 1),MLSN ( 1), 4 MOUT ( 1),MSCR ( 1),SAL ( 1),SDBN ( 1), 5 SNTU ( 1),SORD ( 1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ IBUFSZ,OUTTAP COMMON /XFIAT / FIAT(7) COMMON /XFIST / FIST COMMON /XDPL / DPD(6) COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(5) EQUIVALENCE (DPD (1),DNAF ),(DPD (2),DMXLG ), 1 (DPD (3),DCULG ),(DPD (4),DDBN (1)),(DPD (6),DFNU(1) ), 2 (FIAT (1),FUNLG ),(FIAT (2),FMXLG ),(FIAT (3),FCULG ), 3 (FIAT (4),FEQU (1)),(FIAT (4),FILE (1)),(FIAT (4),FORD (1)), 4 (FIAT (5),FDBN (1)),(FIAT (7),FMAT (1)),(MD (1),MLGN ), 5 (MD (2),MLSN (1)),(MD (3),MINP (1)),(MD (4),MOUT (1)), 6 (MD (5),MSCR (1)),(SOS (1),SLGN ),(SOS (2),SDBN (1)), 7 (SOS (4),SAL (1)),(SOS (4),SNTU (1)),(SOS (4),SORD (1)), 8 (XF1AT(1),FNTU (1)),(XF1AT(1),FON (1)),(XF1AT(2),FPUN (1)), 9 (XF1AT(3),FCUM (1)),(XF1AT(4),FCUS (1)),(XF1AT(5),FKND (1)) EQUIVALENCE (COMM (1),ALMSK ),(COMM (2),APNDMK ), 1 (COMM (3),CURSNO ),(COMM (4),ENTN1 ),(COMM (5),ENTN2 ), 2 (COMM (6),ENTN3 ),(COMM (7),ENTN4 ),(COMM (8),FLAG ), 3 (COMM (9),FNX ),(COMM(10),LMSK ),(COMM(11),LXMSK ), 4 (COMM(12),MACSFT ),(COMM(13),RMSK ),(COMM(14),RXMSK ), 5 (COMM(15),S ),(COMM(16),SCORNT ),(COMM(17),TAPMSK ), 6 (COMM(18),THCRMK ),(COMM(19),ZAP ) DATA NCLEAN / 4HXCLE,4HAN / C C ENTRY SIZE NUMBERS, 1=FIAT, 2=SOS, 3=MD C IFAIL = 0 ENTN1X = ENTN1 - 1 ENTN1Y = ENTN1*2 LMT1 = FUNLG*ENTN1 LMT2 = LMT1 + 1 LMT3 = FCULG*ENTN1 FLAG = 0 ICURSN = LSHIFT(CURSNO,16) C C MERGE FIAT BY REPLACING ANY UNIQUE FILES WITH MATCHED CURRENT C FILES ONLY CURRENT TAIL AND EXCEPT EQU FILES C IF (FUNLG .EQ. FCULG) GO TO 170 ASSIGN 170 TO ISW 100 DO 160 I = LMT2,LMT3,ENTN1 TRIAL = ANDF(RMSK,FILE(I)) IF (TRIAL .EQ. ZAP) GO TO 160 C C ERASE SCRATCH AND LTU EXPIRED FILES FROM CURRENT TAIL C K = ANDF(LMSK,FORD(I)) IF (K.EQ.LMSK .OR. (ICURSN.GT.K .AND. K.NE.0 .AND. FEQU(I).GT.0)) 1 GO TO 152 DO 130 J = 1,LMT1,ENTN1 IF (TRIAL .NE. ANDF(RMSK,FILE(J))) GO TO 130 IF (FEQU(J)) 160,140,140 130 CONTINUE GO TO 160 140 K = ANDF(LMSK,FORD(J)) IF (K.NE.LMSK .AND. ICURSN.LE.K) GO TO 160 LMT4 = I + ENTN1X DO 150 K = I,LMT4 FILE(J) = FILE(K) FILE(K) = 0 FNTU(J) = FNTU(K) 150 J = J + 1 J = J - ENTN1 GO TO 156 152 LMT4 = I + ENTN1X DO 154 K = I,LMT4 154 FILE(K) = 0 J = I 156 CALL XPOLCK (FDBN(J),FDBN(J+1),IK,L) IF (FEQU(J) .LT. 0) FLAG = -1 IF (IK .EQ. 0) GO TO 160 DDBN(L ) = 0 DDBN(L+1) = 0 160 CONTINUE GO TO ISW, (170,310) C C REGENERATE ALL NTU VALUES (AND LTU IF EMPTY) IN FIAT BY SCANNING C SOS DELETE FIAT ENTRY IF NOT FOUND, OR A SCRATCH C 170 LMT4 = MLGN*ENTN3 LMT2 = LMT1 + 1 C C FIAT LOOP C DO 250 I = 1,LMT3,ENTN1 IF (ANDF(LMSK,FORD(I)) .EQ. LMSK) GO TO 220 TRIAL = FDBN(I) IF (TRIAL .EQ. 0) GO TO 250 C C SOS LOOP - BY MODULE C LMT6 = 0 DO 200 J = 1,LMT4,ENTN3 LMT5 = LMT6 + 1 LMTI = LMT6 + MINP(J)*ENTN2 LMT6 = LMT6 +(MINP(J) + MOUT(J) + MSCR(J))*ENTN2 C C SOS LOOP - BY FILE WITHIN MODULE C DO 200 K = LMT5,LMT6,ENTN2 IF (TRIAL.NE.SDBN(K) .OR. FDBN(I+1).NE.SDBN(K+1)) GO TO 200 IF (ANDF(RMSK,FILE(I)) .EQ. ZAP) GO TO 190 IF (K.GT.LMTI .OR. FMAT(I).NE.0 .OR. FMAT(I+1).NE.0 .OR. 1 FMAT(I+2).NE.0) GO TO 190 IF (ENTN1.EQ.11 .AND. (FMAT(I+5).NE.0 .OR. FMAT(I+6).NE.0 .OR. 1 FMAT(I+7).NE.0)) GO TO 190 C C IF FIAT ENTRY IS INPUT WITH ZERO TRAILERS - PURGE IT C IF (I .LE. LMT1) GO TO 185 LMTI = 0 FILE(I) = ORF(FILE(I),ZAP) GO TO 210 C C PURGE FILE --PUT ENTRY AT END OF FIAT C 185 IF (FCULG .EQ. FMXLG) GO TO 186 NFCULG = FCULG*ENTN1 + 1 IFAIL = 0 FCULG = FCULG + 1 FILE(NFCULG ) = ORF(FILE(I),ZAP) FDBN(NFCULG ) = FDBN(I ) FDBN(NFCULG+1) = FDBN(I+1) GO TO 210 C C TRY TO PACK FIAT FOR MORE SPACE C 186 IF (IFAIL .EQ. 1) GO TO 900 IFAIL = 1 ASSIGN 170 TO IHOP GO TO 310 190 FNTU(I) = ANDF(RMSK,MLSN(J)) IF (ANDF(LMSK,FORD(I)) .EQ. 0) 1 FORD(I) = ORF(FORD(I),ANDF(LMSK,SORD(K))) GO TO 250 200 CONTINUE C C DELETE FIAT ENTRY (UNLESS LTU YET TO COME) C C HOLD FILES UNTIL LARGEST LTU OF EQUIVALENCED GROUP EXPIRES C IF (FEQU(I).GE.0 .AND. ICURSN.GT.ANDF(LMSK,FORD(I))) GO TO 210 FNTU(I) = RSHIFT(ANDF(LMSK,FORD(I)),16) GO TO 250 210 CALL XPOLCK (FDBN(I),FDBN(I+1),IK,L) IF (IK .EQ. 0) GO TO 215 DDBN(L ) = 0 DDBN(L+1) = 0 215 IF (LMTI .EQ. 0) GO TO 250 220 HOLD = ANDF(RXMSK,FILE(I)) IF (FEQU(I) .LT. 0) FLAG = -1 LMT6 = I + ENTN1X DO 230 K = I,LMT6 230 FILE(K) = 0 IF (I .GT. LMT1) GO TO 250 FILE(I) = HOLD FLAG = -1 250 CONTINUE LMT3 = FCULG*ENTN1 C C CHECK EQU FILES FOR BREAKING OF EQU C IF (FUNLG .EQ. FCULG) RETURN DO 300 I = 1,LMT3,ENTN1 IF (FEQU(I).GE.0 .OR. ANDF(LMSK,FORD(I)).GE.ICURSN) GO TO 300 DO 290 J = 1,LMT3,ENTN1 IF (FEQU(J) .GE. 0) GO TO 290 IF (I .EQ. J) GO TO 290 IF (ANDF(RMSK,FILE(I)) .EQ. ANDF(RMSK,FILE(J)) .AND. 1 ICURSN.LE.ANDF(LMSK,FORD(J))) GO TO 300 C 290 CONTINUE FEQU(I) = ANDF(ALMSK,FEQU(I)) FLAG = -1 300 CONTINUE C C IF BREAK HAS OCCURED, REPEAT FIAT MERGE C ASSIGN 451 TO IHOP IF (FLAG .NE. -1) GO TO 310 ASSIGN 310 TO ISW GO TO 100 C C CLOSE UP FILES(IF ANY) BELOW UNIQUE LENGTH - RESET FCULG C 310 LMT7 = LMT3 - ENTN1X LMT3 = LMT7 - 1 330 IF (LMT7 .LT. LMT2) GO TO 450 IF (FDBN(LMT7) .NE. 0) GO TO 350 LMT7 = LMT7 - ENTN1 GO TO 420 350 DO 390 I = LMT2,LMT3,ENTN1 IF (FDBN(I) .NE. 0) GO TO 390 LMT4 = I + ENTN1X DO 380 K = I,LMT4 FILE(K) = FILE(LMT7) FILE(LMT7) = 0 FNTU(K) = FNTU(LMT7) 380 LMT7 = LMT7 + 1 GO TO 410 390 CONTINUE GO TO 450 410 LMT7 = LMT7 - ENTN1Y LMT2 = I + ENTN1 420 LMT3 = LMT3 - ENTN1 FCULG= FCULG - 1 GO TO 330 C C RESET ANY NECESSARY OFF SWITCHES C 450 GO TO IHOP, (451,170) 451 IF (FUNLG .EQ. FCULG) RETURN LMT2 = LMT1 + 1 LMT3 = FCULG*ENTN1 DO 480 I = LMT2,LMT3,ENTN1 IF (FEQU(I) .LT. 0) GO TO 480 TRIAL = ANDF(RMSK,FILE(I)) IF (TRIAL .EQ. RMSK) GO TO 480 IFORDI = ANDF(LMSK,FORD(I)) DO 460 J = 1,LMT3,ENTN1 IF (TRIAL .NE. ANDF(RMSK,FILE(J))) GO TO 460 IF (I .EQ. J) GO TO 460 IF (ANDF(LMSK,FORD(J))-IFORDI) 452,460,454 452 FON(J) = ORF(S,FON(J)) GO TO 460 454 FON(I) = ORF(S,FON(I)) 460 CONTINUE 480 CONTINUE RETURN C 900 WRITE (OUTTAP,901) SFM 901 FORMAT (A25,' 1021, FIAT OVERFLOW.') CALL MESAGE (-37,0,NCLEAN) RETURN END ================================================ FILE: mis/xcsa.f ================================================ SUBROUTINE XCSA C C XCSA READS AND PROCESSES THE NASTRAN EXECUTIVE CONTROL DECK. C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF LOGICAL TAPBIT DIMENSION ALTER(2),APPTYP(4),BGNAL(2),CEND(2),DIAGX(11), 1 DMAPBF(1),ECTT(51),ENDAL(2),HDG(19),IPTDIC(1), 2 IUFILE(2),IZ(2),NXPTDC(2),NXCSA(2),OSOLU(2), 3 OUTCRD(200),SOLREC(6),SOLU(12),SOLNM3(7,11), 5 SOLNMS(7,31),SOLNM1(7,10),SOLNM2(7,10),SOLNMX(6), 6 XALT(2),XSYS(100) INTEGER INSERT(4), DELETE(9), ALTRBS, ALNOGO INTEGER ALTFIL, ERRALT, ALTOPN CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /MACHIN/ MACH,IJHALF(3),MCHNAM COMMON /SEM / MSKDUM(3),LINKS(15) COMMON /SYSTEM/ IBUFSZ,OUTTAP,XNOGO,INTAPE,SY5,SY6,LOGFL,SY8, 1 NLPP,SY10,SY11,NLINES,SY13,SY14,IDATE(3),SY18, 2 IECHO,SY20,APPRCH,SY22,SY23,ICFIAT,RFFLAG, 3 SY26(11),LU,SY38,NBPC,NBPW,NCPW,SY42(13),PREC, 4 SY56(13),ISUBS,SY70(9),SWITCH(3),ICPFLG,SY83(2), 5 SY85,INTRA,SY87(5),LDICT COMMON /XECHOX/ DUM9(9),NOECHO COMMON /XRGDXX/ IRESTR,NSUBST COMMON /ALTRXX/ ALTFIL, NEWALT,ALNOGO COMMON /RESDIC/ IRDICT, IROPEN COMMON /XOLDPT/ ITOP,IBOT,LDIC,NRLFL,ISEQNO COMMON /XXFIAT/ IXXFAT(1) COMMON /XPFIST/ IXPFST COMMON /XFIST / IFIST(1) COMMON /XFIAT / IFIAT(1) COMMON /ZZZZZZ/ GBUFF(1) COMMON /BLANK / ZCOM,CARD(20) COMMON /STAPID/ TAPID(6),OTAPID(6) COMMON /STIME / TIME COMMON /L15 L8/ L15,L8,L13 COMMON /XLINK / LXLINK,MAXLNK COMMON /OUTPUT/ PGHDG1(32),PGHDG2(32), PGHDG3(32), 1 PGHDG4(32),PGHDG5(32), PGHDG6(32) EQUIVALENCE (IBUFSZ ,XSYS(1) ), (MASK ,MASKHI ), 1 (ECTT(16) ,BGNAL(1) ), (ECTT(25),ENDAL(1)), 2 (ECTT(13) ,CEND(1) ), (ECTT(34),ID ), 3 (SOLREC(1),APPREC ), (SOLREC(2),RSTRT ), 4 (SOLREC(3),ALTER(1) ), (SOLREC(5),SOLU(1)), 5 (GBUFF(1) ,DMAPBF( 1), IPTDIC(1)), 6 (SOLNMS(1, 1),SOLNM1(1,1)), 7 (SOLNMS(1,11),SOLNM2(1,1)), 8 (SOLNMS(1,21),SOLNM3(1,1)) DATA APPTYP / 1 4HDMAP, 4HDISP, 4HHEAT, 4HAERO / DATA BLANK, IXDMAP, NSUBS, RENTER, DOLSIN / 2 1H , 4HXDMA, 4HSUBS, 4HREEN, 4H$ / DATA IYES, NO, IDISK, PTAPE, OPTAPE, DMEND / 3 4HYES , 4HNO , 4HDISK, 4HNPTP, 4HOPTP, 4HEND / DATA IUFILE, XALT, NXPTDC, INTGR / 4 2*0, 4HXALT, 4HER , 4HXPTD, 4HC , -1 / DATA NXCSA, DIAGX / 5 4HXCSA, 4H , 4,9,14,17,23,24,25,28,29,30,31 / DATA APPDMP, APPHEA, APPAER, NUMAPP, SOLREC / 6 1, 3, 4, 4, 0,1,0,0,0,0 / DATA SOLUF, OSOLU, ICOLD, IGNORE, OUTCRD / 7 0, 2*0, 1, 0, 3,199*4H / DATA PLOT, PRNT, BOTH, INP9 , NOTALT / 8 4HPLOT, 4HPRIN, 4HBOTH, 4HINP9, 0 / DATA MASK / 32767 / C 32767 = O77777 = 2**15-1 = MASK HI DATA LECTT, ECTT / 51, 1 4HTIME,4H ,0 , 4HAPP ,4H ,0 , 4HCHKP,4HNT ,0, 4 4HREST,4HART ,0 , 4HCEND,4H ,0 , 4HALTE,4HR ,0, 7 4HSOL ,4H ,0 , 4HBEGI,4HN ,0 , 4HENDA,4HLTER,0, X 4HDIAG,4H ,0 , 4HUMF ,4H ,0 , 4HID ,4H ,1, 3 4HUMFE,4HDIT ,0 , 4HPREC,4H ,0 , 4HINTE,4HRACT,0 *, 4HINSE,4HRT ,0 , 4HDELE,4HTE ,0/ DATA ILEFT /4H( / DATA ALTOPN / 0 / DATA HDG/4HN A ,4HS T ,4HR A ,4HN ,4H E X,4H E C,4H U T,4H I V, 1 4H E ,4H C ,4HO N ,4HT R ,4HO L ,4H D,4H E C,4H K ,4H E , 2 4HC H ,4HO / DATA NSOLNM /26/ DATA SOLNM1 / 1 4HSTAT,4HICS , 4H ,4H , 4H ,4H , 1 , 2 4HINER,4HTIA , 4HRELI,4HEF , 4H ,4H , 2 , 3 4HNORM,4HAL , 4HMODE,4HS , 4H ,4H , 3 , 4 4HDIFF,4HEREN , 4HSTIF,4HFNES , 4H ,4H , 4 , 5 4HBUCK,4HLING , 4H ,4H , 4H ,4H , 5 , 6 4HPIEC,4HEWIS , 4HLINE,4HAR , 4H ,4H , 6 , 7 4HDIRE,4HCT , 4HCOMP,4HLEX , 4HEIGE,4HNVAL , 7 , 8 4HDIRE,4HCT , 4HFREQ,4HUENC , 4HRESP,4HONSE , 8 , 9 4HDIRE,4HCT , 4HTRAN,4HSIEN , 4HRESP,4HONSE , 9 , O 4HMODA,4HL , 4HCOMP,4HLEX , 4HEIGE,4HNVAL , 10 / DATA SOLNM2 / 1 4HMODA,4HL , 4HFREQ,4HUENC , 4HRESP,4HONSE , 11 , 2 4HMODA,4HL , 4HTRAN,4HSIEN , 4HRESP,4HONSE , 12 , 3 4HSTEA,4HDY , 4HSTAT,4HE , 4H ,4H , 3 , 4 4HTRAN,4HSIEN , 4H ,4H , 4H ,4H , 9 , 5 4HMODE,4HS , 4H ,4H , 4H ,4H , 3 , 6 4HREAL,4H , 4HEIGE,4HNVAL , 4H ,4H , 3 , 7 4HMODA,4HL , 4HFLUT,4HTER , 4HANAL,4HYSIS , 10 , 8 4HMODA,4HL , 4HAERO,4HELAS , 4HRESP,4HONSE , 11 , 9 4HNORM,4HAL , 4HMODE,4HS , 4HANAL,4HYSIS , 13 , O 4HSTAT,4HICS , 4HCYCL,4HIC , 4HSYMM,4HETRY , 14 / DATA SOLNM3 / 1 4HMODE,4HS , 4HCYCL,4HIC , 4HSYMM,4HETRY , 15 , 2 4HSTAT,4HIC , 4HAERO,4HTHER , 4HMOEL,4HASTI , 16 , 3 4HBLAD,4HE , 4HCYCL,4HIC , 4HMODA,4HL , 9 , 4 4HDYNA,4HMIC , 4HDESI,4HGN A , 4HNALY,4HSIS , 17 , 5 4HDIRE,4HCT , 4HFORC,4HED V , 4HIBRA,4HTION , 18 , 6 4HMODA,4HAL , 4HFORC,4HED V , 4HIBRA,4HTION , 19 , 7 4H****,4H**** , 4H****,4H**** , 4H****,4H**** , 0 , 8 4H****,4H**** , 4H****,4H**** , 4H****,4H**** , 0 , 9 4H****,4H**** , 4H****,4H**** , 4H****,4H**** , 0 , O 4H****,4H**** , 4H****,4H**** , 4H****,4H**** , 0 , 1 4H****,4H**** , 4H****,4H**** , 4H****,4H**** , 0 / C C SET UP DATA IN COMMON C ITOP = 0 IBOT = 0 LDIC = 0 NRLFL = 0 ISEQNO = 0 ALTFIL = 301 NEWALT = 0 ALNOGO = 0 ERRALT = 0 NSCR = 315 IRESTR = 0 NSUBST = 0 NWPC = 18 DRECSZ = 0 C C C INITIALIZE MACHINE DEPENDENT CONSTANTS C C ALLON = O777777777777 ALL BITS ON C ISIGN = O400000000000 SIGN ON ONLY C MASK5 = O500000000000 SIGN AND NEXT BIT ON C ENDCD = O377777777777 ALL BITS ON EXCEPT SIGN C MHIBYT = O770000000000 MASK IN HIGH ORDER BYTE C ISIGN = LSHIFT(1,NBPW-1) MASK5 = ORF(ISIGN,RSHIFT(ISIGN,1)) ALLON = COMPLF(0) MHIBYT = LSHIFT(ALLON,(NCPW-1)*NBPC) ENDCD = RSHIFT(ALLON,1) J = DIAGX(2)*5 - 1 CARD(J ) = XSYS(J) CARD(J+1) = KHRFN1(BNK,1,XSYS(J),2) CALL NA12IF (*1420,CARD(J),2,S7,1) IF (S7 .NE. 0) I7 = MACH*100 C C DETERMINE OPEN CORE SIZE AND ALLOCATE BUFFER AREA C DMAPBS = KORSZ(GBUFF) - 2*IBUFSZ ALTRBS = DMAPBS + IBUFSZ CALL WALTIM (TIMEW) TIMEW = MOD(TIMEW,10000000) C C LOAD PAGE HEADING IN /OUTPUT/ C J = 32 DO 5 I = 1,J PGHDG1(I) = BLANK PGHDG2(I) = BLANK PGHDG3(I) = BLANK PGHDG4(I) = BLANK PGHDG5(I) = BLANK PGHDG6(I) = BLANK 5 CONTINUE DO 10 I = 1,19 10 PGHDG3(I+1) = HDG(I) CALL PAGE C C CARD PREPARATION C N7 = I7 + S7 I7 = I7/100 N7 = N7 - 2*I7 M7 = CARD(LECTT+9) J = IABS(M7) I = 3 IF (M7.LT.0 .AND. MOD(J,10).EQ.7) I = 4 IF (J/10.EQ.N7 .AND. XSYS(17)-I.LE.S7) CARD(LECTT+2) = ICOLD CARD(LECTT+11) = KHRFN1(CARD(LECTT+11),2,XALT(1),3) CARD(LECTT+13) = KHRFN1(CARD(LECTT+13),1,NXCSA(1),1) CARD(LECTT+14) = KHRFN1(CARD(LECTT+14),2,IDISK,1) C C WRITE DUMMY ID FILE ON PROBLEM TAPE IN CASE OF ID CONTROL CARD C ERROR. C NOGO = XNOGO XNOGO = 0 OLDALT = 0 C C READ CONTROL CARD AND PROCESS C 20 IF (ALTOPN .LE. 0) ASSIGN 70 TO IRTN1 30 NLINES = NLINES + 1 IF (NLINES .GE. NLPP) CALL PAGE IF (ZCOM .NE. 0) GO TO 40 CALL XREAD (*1232,CARD) C C ECHO CARD C (NOECHO IS SET BY SEMDBD AND READFILE OF FFREAD) C 40 ZCOM = 0 IF (NOECHO .NE. 0) GO TO 52 WRITE (OUTTAP,50) CARD 50 FORMAT (5X,20A4) GO TO 55 52 NOECHO = NOECHO + 1 NLINES = NLINES - 1 C C CHECK FOR COMMENT CARD C 55 IF (KHRFN1(BLANK,1,CARD(1),1) .EQ. DOLSIN) GO TO 30 C C CALL RMVEQ TO REPLACE ONE EQUAL SIGN BY ONE BLANK C IF CARD IS NOT WITHIN ALTER RANGE C CCCCC NEXT LINE CAUSE ERROR IN READING RESTART DICTIONARY. POSITION CCCCC PROBLEM CCCCC CCCCC IF (NOTALT .EQ. 0) CALL RMVEQ (CARD) CALL XRCARD (OUTCRD,200,CARD) C C CHECK FOR ERROR DETECTED BY XRCARD C IF (XNOGO .EQ. 0) GO TO 60 IF (NOGO .EQ. 0) NOGO = 1 XNOGO = 0 GO TO 30 C C CHECK FOR BLANK CARD C 60 IF (OUTCRD(1) .EQ. 0) GO TO 30 GO TO IRTN1, (70,270,370,510) 70 J = 0 DO 80 I = 1,LECTT,3 J = J + 1 IF (OUTCRD(2).EQ.ECTT(I) .AND. OUTCRD(3).EQ.ECTT(I+1)) GO TO 90 80 CONTINUE IF (OUTCRD(2) .EQ. IXDMAP) GO TO 400 IF (IGNORE .EQ. 0) GO TO 690 GO TO 20 C C HAS THIS TYPE CARD ALREADY BEEN PROCESSED C 90 IGNORE = 0 IF (ECTT(I+2).LT.0 .AND. OUTCRD(2).EQ.ECTT(28)) ECTT(I+2) = 0 C DIAG IF (ECTT(I+2)) 720,100,100 100 ECTT(I+2) = ORF(ECTT(I+2),MASK5) GO TO (110, 120, 140, 210, 570, 330, 390, 400,1180, 480, 1 460, 530, 560, 565, 555, 330, 330), J C C C NOW PROCESS TIME CARD C 110 IMHERE = 110 IF (OUTCRD(4).NE.-1 .OR. OUTCRD(5).LE.0) GO TO 760 TIME = OUTCRD(5)*60 GO TO 20 C C C NOW PROCESS APPROACH CARD C 120 DO 130 JJ = 1,NUMAPP APPRCH = JJ APPREC = JJ IF (OUTCRD(4) .EQ. APPTYP(JJ)) GO TO 132 130 CONTINUE IMHERE = 130 GO TO 760 C C CHECK FOR SUBSTRUCTURE ANALYSIS C 132 IF (OUTCRD(6) .NE. NSUBS) GO TO 20 ISUBS = APPRCH IF (OUTCRD(8) .NE. -1) GO TO 20 ISUBS = ISUBS + 10*OUTCRD(9) GO TO 20 C C C NOW PROCESS CHKPNT CARD C 140 IF (OUTCRD(4).EQ.NO .OR. OUTCRD(6).EQ.NO) GO TO 20 C C CHECK FOR ILLEGAL FORMAT C IMHERE = 140 IF (OUTCRD(4).NE.IYES .AND. OUTCRD(6).NE.IYES) GO TO 750 ICPFLG = 1 IF (OUTCRD(6) .EQ. IDISK) GO TO 20 ASSIGN 150 TO L IDFIST = PTAPE C C CHECKPOINT FLAG IS ON,MAKE SURE NEW PROBLEM TAPE IS ON C PHYSICAL TAPE DRIVE C GO TO 160 150 IF (NOSTUP .NE. 0) GO TO 790 GO TO 20 C C CHECK TAPE SETUP C 160 IF (TAPBIT(IDFIST)) GO TO 190 C C TAPE NOT SETUP C NOSTUP = 1 GO TO 200 190 CONTINUE C C TAPE SETUP C NOSTUP = 0 C GO TO L, (150,470) 200 GO TO L, (150) C C C NOW PROCESS RESTART CARD C 210 NGINO = OPTAPE IRESTR = 1 C C SET UNSORTED AND SORTED BULK DATA OUTPUT (ECHO = BOTH) C AS THE DEFAULT FOR RESTART RUNS C IECHO = 3 CALL OPEN (*850,OPTAPE,GBUFF(DMAPBS+1),0) CALL READ (*1350,*1350,OPTAPE,OTAPID,6,0,FLGWRD) CALL READ (*1350,*222,OPTAPE,TIMEX,1,1,FLGWRD) GO TO 225 222 OUTCRD(21) = 0 TIMEX = 0 C C COMPARE ID OF OLD PTAPE WITH THAT ON RSTART CARD C 225 RSTRT = 2 C C UNPACK DATE C I = LSHIFT(OTAPID(5),7) IYEAR = RSHIFT(ANDF(I,MASKHI),7) I = RSHIFT(I,6) IDAY = RSHIFT(ANDF(I,MASKHI),9) I = RSHIFT(I,5) IMNTH = RSHIFT(ANDF(I,MASKHI),10) JJ = OUTCRD(1)*2 - 2 DO 230 JK = 1,JJ IF (OTAPID(JK) .NE. OUTCRD(JK+3)) GO TO 820 230 CONTINUE IF (OUTCRD( 9).EQ.0 .AND. OUTCRD(14).EQ.0 .AND. OUTCRD(19) .EQ. 0) 1 GO TO 235 IF (IMNTH.NE.OUTCRD(9) .OR. IDAY.NE.OUTCRD(14) .OR. 1 IYEAR.NE.OUTCRD(19)) GO TO 820 235 CONTINUE IF (OUTCRD(21) .EQ. 0) TIMEX = 0 IF (TIMEX .NE. OUTCRD(21)) GO TO 820 C C MAKE SURE CORRCET REEL IS MOUNTED C IF (OTAPID(6) .EQ. 1) GO TO 240 GO TO 820 C C GET OLD SOLUTION NUMBER C 240 CALL SKPFIL (OPTAPE,1) CALL READ (*1350,*1350,OPTAPE,OSOLU,1,0,FLGWRD) IF (OSOLU(1) .EQ. XALT(1) ) OLDALT = OLDALT + 1 IF (OSOLU(1) .EQ. NXPTDC(1)) OLDALT = OLDALT + 1 IF (OSOLU(1) .NE. NXCSA(1) ) GO TO 240 CALL FWDREC (*1350,OPTAPE) CALL READ (*1350,*1350,OPTAPE,0,-4,0,FLGWRD) CALL READ (*1350,*1350,OPTAPE,OSOLU,2,1,FLGWRD) CALL SKPFIL (OPTAPE,1) CALL CLOSE (OPTAPE,2) C C LOAD PROBLEM TAPE DICTIONARY C ICRDCT = 0 ISEQNO = 0 ITOP = DRECSZ + 1 LDIC = KORSZ(IPTDIC(ITOP)) - IBUFSZ IBOT = ITOP - 3 C C ZERO FIRST PTDIC ENTRY IN CASE THERE ARE NO ENTRIES C IPTDIC(ITOP ) = 0 IPTDIC(ITOP+1) = 0 IPTDIC(ITOP+2) = 0 C C SET ITOPX SO THAT FIRST XVPS ENTRY IN PTDIC WILL BE PRESERVED C ITOPX = ITOP + 3 260 ICRDCT = 1 + ICRDCT C C READ IN NEXT CONTROL CARD C ASSIGN 270 TO IRTN1 GO TO 30 270 IF (OUTCRD(1) .NE. -1) GO TO 320 IF (OUTCRD(2) .NE. ICRDCT) GO TO 1210 IF (OUTCRD(3) .EQ. 5) GO TO 310 IF (OUTCRD(3) .EQ. ENDCD) GO TO 320 IF (OUTCRD(3) .GT. 3) GO TO 310 C C CHECK FORMAT C IMHERE = 275 IF (OUTCRD(3).NE.3 .OR. OUTCRD(10).NE.-1 .OR. OUTCRD(12).NE.2 .OR. 1 OUTCRD(17).NE.-1 .OR. OUTCRD(19).NE.2 .OR. OUTCRD(24).NE.-1) 2 GO TO 760 C C PACK FLAGS/REEL/FILE C FLAGS = 0 IF (OUTCRD(11) .GE. 4) FLAGS = ISIGN REEL = ORF(LSHIFT(OUTCRD(18),16),OUTCRD(25)) C C SEE IF FILE IS ALREADY IN PTDIC - IF IT IS, PUT LATEST REEL/FILE C NO. IN EXISTING ENTRY C IF (IBOT .LT. ITOPX) GO TO 290 DO 280 K = ITOPX,IBOT,3 IF (IPTDIC(K).EQ.OUTCRD(4) .AND. IPTDIC(K+1).EQ.OUTCRD(5)) 1 GO TO 300 280 CONTINUE C C FILE NOT IN PTDIC - MAKE NEW ENTRY C 290 IBOT = IBOT + 3 C C CHECK FOR OVERFLOW C IF (IBOT+3-ITOP .GT. LDIC) GO TO 1260 K = IBOT IPTDIC(K ) = OUTCRD(4) IPTDIC(K+1) = OUTCRD(5) 300 IPTDIC(K+2) = ORF(FLAGS,REEL) GO TO 260 C C THIS IS A REENTRY CARD - LOAD DMAP INSTRUCTION NO. IN ISEQNO C 310 IMHERE = 310 IF (OUTCRD(4).NE.RENTER .OR. OUTCRD(14).NE.-1) GO TO 760 ISEQNO = LSHIFT(OUTCRD(15),16) GO TO 260 C C DICTIONARY PROCESSED - COPY ONTO NEW PROBLEM TAPE. C THERE MUST ALWAYS BE AT LEAST ONE ENTRY IN PTDIC C 320 IF (IBOT .LT. ITOP) IBOT = ITOP NGINO = PTAPE IMHERE= 320 CALL OPEN (*1320,PTAPE,GBUFF(DMAPBS+1),3) C C RECORD 1 = ID C CALL WRITE (PTAPE,NXPTDC,2,1) C C RECORD 2 = CONTENTS OF IPTDIC C CALL WRITE (PTAPE,IPTDIC(ITOP),IBOT+3-ITOP,1) CALL EOF (PTAPE) CALL CLOSE (PTAPE,2) IF (OUTCRD(3) .EQ. ENDCD) GO TO 20 GO TO 70 C C C PROCESS ALTER CONTROL CARDS C 330 ASSIGN 370 TO IRTN1 IF (ECTT(27) .LT. 0) GO TO 30 NOTALT = 1 IMHERE = 330 NGINO = ALTFIL CALL OPEN (*1320,ALTFIL,GBUFF(ALTRBS+1),1) ALTOPN = 1 IF (J .EQ. 16) GO TO 3605 IF (J .EQ. 17) GO TO 3655 340 IF (OUTCRD(6) .NE. ENDCD) GO TO 350 OUTCRD(6) = INTGR OUTCRD(7) = 0 350 IMHERE = 350 IF (OUTCRD(4).NE.INTGR .OR. OUTCRD(6).NE.INTGR .OR. OUTCRD(5).LE.0 1 .OR. OUTCRD(7).LT.0) GO TO 750 IF (OUTCRD(7).GT.0 .AND. OUTCRD(8).NE.ENDCD) GO TO 750 C C ALTER(1) = OUTCRD(5) ALTER(2) = OUTCRD(7) C C C WRITE ALTER PARAMETERS ONTO THE ALTER SCRATCH FILE C AND FOLLOW IT BY THE CARD IMAGE C CALL WRITE (ALTFIL, ALTER, 2, 1) CALL WRITE (ALTFIL, CARD , 18, 1) C C READ NEXT CARD INTO CORE C GO TO 30 C C PROCESS INSERT CONTROL CARDS HERE C 3605 INSERT(1) = OUTCRD(4) INSERT(2) = OUTCRD(5) INSERT(3) = 1 INSERT(4) = 0 IF (OUTCRD(6) .EQ. ALLON .AND. OUTCRD(7) .EQ. ILEFT .AND. * OUTCRD(8) .EQ. INTGR) GO TO 3610 JN = 7 IF (OUTCRD(6) .EQ. INTGR) GO TO 3615 IF (OUTCRD(6) .EQ. ENDCD) GO TO 3620 GO TO 750 3610 IF (OUTCRD(9) .LE. 0) GO TO 750 INSERT(3) = OUTCRD(9) JN = 11 IF (OUTCRD(10) .EQ. INTGR) GO TO 3615 IF (OUTCRD(10) .EQ. ENDCD) GO TO 3620 GO TO 750 3615 INSERT(4) = OUTCRD(JN) IF (OUTCRD(JN+1) .NE. ENDCD) GO TO 750 C C WRITE INSERT PARAMETERS ONTO THE ALTER SCRATCH FILE C AND FOLLOW IT BY THE CARD IMAGE C 3620 CALL WRITE (ALTFIL, INSERT, 4, 1) CALL WRITE (ALTFIL, CARD , 18, 1) NEWALT = 1 GO TO 30 C C PROCESS DELETE CONTROL CARDS HERE C 3655 DELETE(1) = OUTCRD(4) DELETE(2) = OUTCRD(5) DELETE(3) = 1 DELETE(4) = 0 DELETE(5) = 0 IF (OUTCRD(6) .EQ. ALLON .AND. OUTCRD(7) .EQ. ILEFT .AND. * OUTCRD(8) .EQ. INTGR) GO TO 3660 JN = 7 JNX = 7 IF (OUTCRD(6) .EQ. INTGR) GO TO 3665 IF (OUTCRD(6) .EQ. ENDCD) GO TO 3670 JNX = 6 GO TO 3675 3660 IF (OUTCRD(9) .LE. 0) GO TO 750 DELETE(3) = OUTCRD(9) JN = 11 JNX = 11 IF (OUTCRD(10) .EQ. INTGR) GO TO 3665 IF (OUTCRD(10) .EQ. ENDCD) GO TO 3670 IF (OUTCRD(10) .GT. 0) GO TO 3675 GO TO 750 3665 DELETE(4) = OUTCRD(JN) JN = JN + 1 JNX = JN + 1 IF (OUTCRD(JN) .EQ. ENDCD) GO TO 3670 IF (OUTCRD(JN) .GT. 0) GO TO 3675 GO TO 750 C C WRITE DELETE PARAMETERS ONTO THE ALTER SCRATCH FILE C AND FOLLOW IT BY THE CARD IMAGE C 3670 CALL WRITE (ALTFIL, DELETE, 5, 1) CALL WRITE (ALTFIL, CARD , 18, 1) NEWALT = 1 GO TO 30 C 3675 JN = JNX DELETE(5) = 1 DELETE(6) = OUTCRD(JN ) DELETE(7) = OUTCRD(JN+1) DELETE(8) = 1 DELETE(9) = 0 JN = JN + 2 JNX = JN + 3 IF (OUTCRD(JN ) .EQ. ALLON .AND. OUTCRD(JN+1) .EQ. ILEFT .AND. * OUTCRD(JN+2) .EQ. INTGR) GO TO 3680 JNX = JN + 1 IF (OUTCRD(JN) .EQ. INTGR) GO TO 3685 IF (OUTCRD(JN) .EQ. ENDCD) GO TO 3690 GO TO 750 3680 JN = JNX IF (OUTCRD(JN) .LE. 0) GO TO 750 DELETE(8) = OUTCRD(JN) JN = JN + 1 JNX = JN + 1 IF (OUTCRD(JN) .EQ. INTGR) GO TO 3685 IF (OUTCRD(JN) .EQ. ENDCD) GO TO 3690 GO TO 750 3685 DELETE(9) = OUTCRD(JNX) IF (OUTCRD(JNX+1) .NE. ENDCD) GO TO 750 C C WRITE DELETE PARAMETERS ONTO THE ALTER SCRATCH FILE C AND FOLLOW IT BY THE CARD IMAGE C 3690 CALL WRITE (ALTFIL, DELETE, 9, 1) CALL WRITE (ALTFIL, CARD , 18, 1) NEWALT = 1 GO TO 30 370 CONTINUE C C CHECK FOR CEND CARD TO PREVENT STREAMING THRU BULK DATA C IF (OUTCRD(2).EQ.CEND(1) .AND. OUTCRD(3).EQ.CEND(2)) GO TO 910 C C CHECK FOR ANOTHER ALTER CARD C IF (OUTCRD(2).EQ.BGNAL(1) .AND. OUTCRD(3).EQ.BGNAL(2)) GO TO 340 C C CHECK FOR ANOTHER INSERT CARD C IF (OUTCRD(2).EQ.ECTT(46) .AND. OUTCRD(3).EQ.ECTT(47)) * GO TO 3605 C C CHECK FOR ANOTHER DELETE CARD C IF (OUTCRD(2).EQ.ECTT(49) .AND. OUTCRD(3).EQ.ECTT(50)) * GO TO 3655 C C CHECK FOR ENDALTER CARD C IF (OUTCRD(2).NE.ENDAL(1) .OR. OUTCRD(3).NE.ENDAL(2)) GO TO 380 C C ENDALTER ENCOUNTERED C IF (ECTT(27) .LT. 0) GO TO 720 ECTT(27) = ORF (ECTT(27), MASK5) CALL EOF (ALTFIL) CALL CLOSE (ALTFIL,2) ALTOPN = -1 NOTALT = 0 GO TO 20 C C C C WRITE DMAP INSTRUCTION ON THE ALTER SCRATCH FILE C 380 IF (ECTT(27) .LT. 0) GO TO 30 CALL WRITE (ALTFIL, CARD, 18, 1) GO TO 30 C C C NOW PROCESS SOL CONTROL CARD C 390 SOLUF = 1 C C ===================================== C ECTT(I+2) = 0 C DO 2000 JJ = 1,12 C2000 SOLU(JJ) = 0 C WRITE (6,2001) C2001 FORMAT (16H0+++ OUTCARD +++) C JJ = 1 C2002 WRITE (6,2003) JJ,OUTCRD(JJ) C2003 FORMAT (20X,I5,5X,O20) C IF (OUTCRD(JJ) .EQ. ENDCD) GO TO 2004 C JJ = JJ + 1 C GO TO 2002 C2004 CONTINUE C ===================================== C IF (OUTCRD(1) .EQ. 1) GO TO 395 C DO 391 JJ = 1,6 391 SOLNMX(JJ) = BLANK JK = 2*OUTCRD(1) + 3 SOLNMX(1) = OUTCRD(4) SOLNMX(2) = OUTCRD(5) IF (OUTCRD(1).EQ.2 .OR. OUTCRD(7).EQ.BLANK) GO TO 392 SOLNMX(3) = OUTCRD(6) SOLNMX(4) = OUTCRD(7) IF (OUTCRD(1).EQ.3 .OR. OUTCRD(9).EQ.BLANK) GO TO 392 SOLNMX(5) = OUTCRD(8) SOLNMX(6) = OUTCRD(9) 392 DO 394 JJ = 1,NSOLNM DO 393 K = 1,6 IF (SOLNMX(K) .NE. SOLNMS(K,JJ)) GO TO 394 393 CONTINUE SOLU(1) = SOLNMS(7,JJ) GO TO 396 394 CONTINUE IUFILE(1) = OUTCRD(4) IUFILE(2) = OUTCRD(5) SOLU(1) = 0 GO TO 396 C 395 IMHERE = 395 IF (OUTCRD(4) .NE. -1) GO TO 750 JK = 7 SOLU(1) = OUTCRD(5) IF (OUTCRD(6) .EQ. 1) JK = JK + 3 IF (OUTCRD(6) .EQ. 2) JK = JK + 5 C 396 CONTINUE RFFLAG = SOLU(1) IF (OUTCRD(JK-1) .EQ. ENDCD) GO TO 399 IMHERE = 397 JJ = 1 397 JJ = JJ + 1 IF (JJ .GT. 12) GO TO 750 IF (OUTCRD(JK-1) .NE. -1) GO TO 750 NSUBST = JJ SOLU(JJ) = OUTCRD(JK) IF (OUTCRD(JK+1) .EQ. ENDCD) GO TO 399 JK = JK + 2 GO TO 397 399 CONTINUE C C =========================================== C2005 FORMAT (1H0,100(1H+)/1H0/1H0) C WRITE (6,2006) C2006 FORMAT (13H0+++ SOLU +++) C JJ = 1 C2007 IF (SOLU(JJ).EQ.0 .AND. JJ.GT.2) GO TO 2009 C WRITE (6,2008) JJ,SOLU(JJ) C2008 FORMAT (20X,I5,5X,I10) C JJ = JJ + 1 C GO TO 2007 C2009 CONTINUE C WRITE (6,2005) C =========================================== C GO TO 20 C C C B E G I N CONTROL CARD C PROCESS DMAP SEQUENCE C 400 JJ = 0 WRITE (OUTTAP,410) 410 FORMAT (5X,'(SEE NASTRAN SOURCE PROGRAM COMPILATION FOR LISTING ', 1 'OF DMAP SEQUENCE)') DO 420 JK = 1,NWPC JJ = JJ + 1 420 DMAPBF(JJ) = CARD(JK) 430 CALL XREAD (*1232,CARD) DO 440 JK = 1,NWPC JJ = JJ + 1 DMAPBF(JJ) = CARD(JK) 440 CONTINUE IF (JJ .GT. DMAPBS) GO TO 1290 C C CHECK FOR END OR CEND CARD C CALL XRCARD (OUTCRD,200,CARD) C C CHECK FOR ERROR DETECTED BY XRCARD C IF (XNOGO .EQ. 0) GO TO 450 WRITE (OUTTAP,50) CARD IF (NOGO .EQ. 0) NOGO = 1 XNOGO = 0 GO TO 430 450 IF (OUTCRD(2).EQ.CEND(1) .AND. OUTCRD(3).EQ.CEND(2)) GO TO 940 IF (OUTCRD(2) .NE. DMEND) GO TO 430 WRITE (OUTTAP,50) CARD DRECSZ = JJ GO TO 20 C C C NOW PROCESS UMF CARD C CHECK FORMAT C 460 WRITE (OUTTAP,465) UWM,ECTT(I),ECTT(I+1) 465 FORMAT (A25,', ',2A4,' CARD IS NO LONGER AVAILABLE') GO TO 20 C C 460 IMHERE = 460 C IF (OUTCRD(4).NE.INTGR .OR. OUTCRD(6).NE.INTGR .OR. C 1 OUTCRD(5).LE. 0 .OR. OUTCRD(7).LT. 0) GO TO 750 C C SET UNSORTED AND SORTED BULK DATA OUTPUT (ECHO = BOTH) C AS THE DEFAULT FOR RUNS USING THE UMF C C IECHO = 3 C C MAKE SURE UMF TAPE IS SETUP C C ASSIGN 470 TO L C IDFIST = NUMF C GO TO 160 C 470 IF (NOSTUP .NE. 0) GO TO 970 C C MAKE SURE CORRECT UMF TAPE IS MOUNTED C C NGINO = NUMF C IMHERE= 470 C CALL OPEN (*1320,NUMF,GBUFF(DMAPBS+1),0) C CALL READ (*1350,*1350,NUMF,UMFID,1,0,FLGWRD) C CALL SKPFIL (NUMF,1) C CALL CLOSE (NUMF,2) C IF (UMFID .NE. OUTCRD(5)) GO TO 1000 C UMFID = OUTCRD(7) C GO TO 20 C C C PROCESS DIAG CARD C ALLOW MULTIPLE DIAG CARDS TO BE PROCESSED. C 480 CONTINUE I = 2 490 I = I + 2 IF (OUTCRD(I) .EQ. 0) GO TO 505 IF (OUTCRD(I) .NE. INTGR) GO TO 520 C C SET SENSE SWITCH BITS. (DIAG 1 THRU 48, BIT COUNTS 0 THRU 47) C BITS 49 THRU 63 ARE RESERVED FOR LINK NO. (-1 THRU -15) C JJ = OUTCRD(I+1) CWKBD IF (JJ .GT. 63-MAXLNK) GO TO 503 CWKBD IF (JJ.GE.-MAXLNK .AND. JJ.LE.-1) JJ = 63 - MAXLNK - JJ IF (JJ .GT. 31) GO TO 500 SWITCH(1) = ORF(LSHIFT(1,JJ-1),SWITCH(1)) C C TURN ON DIAG 14 IF DIAG 25 HAS BEEN REQUESTED C IF (JJ .EQ. 25) SWITCH(1) = ORF(LSHIFT(1,13),SWITCH(1)) GO TO 503 500 IF (JJ.EQ.42 .AND. MACH.GT.5) WRITE (OUTTAP,501) UWM,MCHNAM 501 FORMAT (A25,', DIAG 42 IS UNSUPPORTED IN ALL UNIX MACHINES, ', 1 'INCLUDING ',A6,' ***') JJ = JJ - 31 SWITCH(2) = ORF(LSHIFT(1,JJ-1),SWITCH(2)) 503 CONTINUE GO TO 490 C C DIAG CONTINUED ON NEXT CARD - READ IN NEXT CARD C 505 ASSIGN 510 TO IRTN1 GO TO 30 510 IF (OUTCRD(2).EQ.CEND(1) .AND. OUTCRD(3).EQ.CEND(2)) GO TO 570 I = -1 GO TO 490 C C SHOULD BE END OF LOGICAL DIAG CARD C 520 IMHERE = 520 IF (OUTCRD(I) .NE. ENDCD) GO TO 750 CIBMDB 5/95 C SWITCH(3) = ORF(SWITCH(3),SWITCH(1)) C SWITCH(1) = 0 C CALL PRESSW (LINKS(1),I) C C RE-ACTIVATE THOSE LINK1 SPECIAL DIAGS IN DIAGX LIST IF NECESSARY C C IF (SWITCH(1) .EQ. SWITCH(3)) GO TO 527 C DO 525 I = 1,11 C JJ = DIAGX(I) - 1 C SWITCH(1) = ORF(ANDF(LSHIFT(1,JJ),SWITCH(3)),SWITCH(1)) C 525 CONTINUE C IF (SWITCH(1) .NE. SWITCH(3)) CALL PRESSW (RENTER,I) CIBMDE 5/95 527 CALL SSWTCH (15,L15) CALL SSWTCH (8 ,L 8) CALL SSWTCH (13,L13) GO TO 20 C C C NOW PROCESS ID CARD C CHECK FORMAT - MUST BE AT LEAST 3 BCD FIELDS C 530 IMHERE = 530 IF (OUTCRD(1) .LT. 3) GO TO 750 C C MAKE SURE ID CARD IS FIRST CONTROL CARD C IF ID CARD WAS IN ERROR CONTROL WILL STILL RETURN TO HERE C 531 DO 540 I = 1,LECTT,3 IF (ECTT(I+2).LT.0 .AND. ECTT(I).NE.ID) GO TO 1060 540 CONTINUE IF (LOGFL .LE. 0) CALL LOGFIL (CARD) DO 550 JJ = 1,4 550 TAPID(JJ) = OUTCRD(JJ+3) C C PACK DATE - C IMNTH = LSHIFT(IDATE(1),14) IDAY = LSHIFT(IDATE(2),8) IYEAR = IDATE(3) TAPID(5) = ORF(IMNTH,ORF(IDAY,IYEAR)) C C REEL NO. TO TAPID C TAPID(6) = 1 C C OUTPUT IF ON NEW PROBLEM TAPE C NGINO = PTAPE CALL OPEN (*1320,PTAPE,GBUFF(DMAPBS+1),1) CALL WRITE (PTAPE,TAPID,6,0) CALL WRITE (PTAPE,TIMEW,1,1) CALL EOF (PTAPE) CALL CLOSE (PTAPE,2) GO TO 20 C C C PROCESS INTERACTIVE CARD C SET INTRA TO NEGATIVE IN BATCH RUN (I.E. PRE-INTERACTIVE RUN) C INTRA WILL BE RESET TO POSITIVE IN AN ON-LINE INTERACTIVE RUN C C CHECK FORMAT AND FILE ASSIGNMENT C 555 INTRA = 0 DO 557 JJ = 4,9 IF (OUTCRD(JJ) .EQ. PLOT) INTRA = ORF(INTRA,1) IF (OUTCRD(JJ) .EQ. PRNT) INTRA = ORF(INTRA,2) IF (OUTCRD(JJ) .EQ. BOTH) INTRA = ORF(INTRA,3) 557 CONTINUE IF (INTRA .EQ. 0) GO TO 700 INTRA = -INTRA JJ = 1 IF (MACH .EQ. 3) CALL FACIL (INP9,JJ) IF (JJ .EQ. 2) GO TO 1250 GO TO 20 C C C UMFEDIT CARD FOUND - SET EDTUMF FLAG C 560 WRITE (OUTTAP,465) UWM,ECTT(I),ECTT(I+1) C EDTUMF = 1 GO TO 20 C C C PROCESS PREC CARD C 565 IMHERE = 565 IF (OUTCRD(5).NE.1 .AND. OUTCRD(5).NE.2) GO TO 750 PREC = OUTCRD(5) GO TO 20 C C CEND CARD FOUND - NO MORE CONTROL CARDS TO PROCESS C C C SET APP DEFAULT TO 'DISPLACEMENT' AND TIME TO 10 MINUTES C 570 IF (APPRCH .NE. 0) GO TO 572 APPRCH = 2 APPREC = 2 WRITE (OUTTAP,571) 571 FORMAT ('0*** APP DECLARATION CARD MISSING. DISPLACEMENT IS ', 1 'SELECTED BY DEFAULT') 572 IF (TIME .GT. 0) GO TO 575 TIME = 300 WRITE (OUTTAP,573) 573 FORMAT ('0*** TIME CARD MISSING. MAXIMUM EXECUTION TIME IS SET ', 1 'TO 5 MINUTES BY DEFAULT') C C CALL NSINFO TO PRINT DIAG48, OR C PRINT THE FOLLOWING MESSAGE OUT ONLY IF THE JOB IS RUN ON THE SAME C YEAR OF THE RELEASE DATE, AND USER DOES NOT MAKE A DIAG48 REQUEST C C DIAG48 TEXT IS STORED IN 4TH SECTION OF THE NASINFO FILE C C 575 CALL SSWTCH (48,JJ) IF (JJ .NE. 1) GO TO 576 CALL NSINFO (4) GO TO 580 576 JJ = IDATE(3) JJ = MOD(JJ,100) CALL INT2A8 (*577,JJ,IZ(1)) 577 IF (IZ(1) .EQ. SY42(3)) WRITE (OUTTAP,578) UIM 578 FORMAT (//,A29,', TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, ', 1 'DIAG DEFINITION, NEW DMAP', /9X, 2 'MODULES AND NEW BULKDATA CARDS INFORMATION') C C CLOSE NASINFO FILE IF IT EXISTS C AND RESET THE 37TH WORD OF /SYSTEM/ BACK TO ZERO C 580 IF (LU .NE. 0) CLOSE (UNIT=LU) LU = 0 C C NOW MAKE SURE ALL NECESSARY CARDS HAVE BEEN FOUND C DO 590 I = 1,LECTT,3 TEST = ANDF(ECTT(I+2),MASK) IF (TEST .GT. 0) IF (ECTT(I+2)) 590,1090,1090 590 CONTINUE C C SET APPRCH NEGATIVE FOR RESTART C IF (RSTRT .NE. ICOLD) APPRCH = -APPRCH IF (SOLUF.EQ.1 .AND. DRECSZ.NE.0) GO TO 1120 IF (SOLUF.EQ.0 .AND. DRECSZ.EQ.0) GO TO 1150 C IF (RSTRT.NE.ICOLD .AND. UMFID.NE.0) GO TO 1030 C C 600 IF (NOGO .GT. 1) GO TO 1380 C C WRITE XCSA CONTROL FILE ONTO PROBLEM TAPE C FIRST RECORD IS HEADER RECORD CONTAINING A SINGLE WORD (XCSA) C IF (APPREC .EQ. APPDMP) GO TO 610 C C IF APPROACH IS HEAT ADD TWENTY THREE TO SOLUTION C IF (APPREC .EQ. APPHEA) SOLU(1) = SOLU(1) + 23 C C IF APPROACH IS AEROELASTIC ADD THIRTY TO SOLUTION C IF (APPREC .EQ. APPAER) SOLU(1) = SOLU(1) + 30 GO TO 612 610 NGINO = PTAPE IMHERE= 610 CALL OPEN (*1320,PTAPE,GBUFF(DMAPBS+1),3) CALL WRITE (PTAPE,NXCSA,2,1) C C DIS OLD PT HAVE AN ALTER FILE AND/OR CKPT DIST C SOLREC(4) = OLDALT C C WRITE SIX-WORD CONTROL FILE RECORD C CALL WRITE (PTAPE,SOLREC,6,1) CALL EOF (PTAPE) CALL CLOSE (PTAPE, 3) IF (APPREC .NE. APPDMP) GO TO 640 612 NGINO = NSCR IMHERE= 612 CALL OPEN (*1320,NSCR,GBUFF(DMAPBS+1),1) IF (APPREC .EQ. APPDMP) GO TO 620 C C APPROACH IS RIGID FORMAT C WRITE RIGID FORMAT AND MED TABLES ONTO SCRATCH FILE C ISIZE = KORSZ (DMAPBF(1)) - IBUFSZ IF (ALTOPN .EQ. 0) GO TO 614 IF (ERRALT .EQ. 0) GO TO 613 NEWALT = 0 613 IF (NEWALT .EQ. 0) GO TO 614 ISIZE = ISIZE - IBUFSZ NGINO = ALTFIL CALL OPEN (*1320, ALTFIL, GBUFF(ALTRBS+1), 3) 614 CALL XRGDFM (SOLU,OSOLU,APPREC,IUFILE,DMAPBF,ISIZE,NSCR,NOGO) IF (XNOGO .EQ. 0) GO TO 615 IF (NOGO .EQ. 0) NOGO = 1 XNOGO = 0 615 CONTINUE IF (NOGO .GT. 1) GO TO 1380 CALL CLOSE (NSCR, 1) SOLREC(3) = 0 IF (ALTOPN .EQ. 0) GO TO 610 IF (ERRALT .EQ. 1) GO TO 610 SOLREC(3) = 1 NGINO = PTAPE CALL OPEN (*1320, PTAPE, GBUFF(DMAPBS+1), 3) NGINO = ALTFIL CALL OPEN (*1320, ALTFIL, GBUFF(ALTRBS+1), 0) CALL DMPALT (ISIZE, DMAPBF, PTAPE) CALL EOF (PTAPE) CALL CLOSE (PTAPE, 2) CALL CLOSE (ALTFIL, 1) IF (ALNOGO .EQ. 0) GO TO 610 IF (NOGO .LT. 2) NOGO = 2 GO TO 610 C C APPROACH IS DMAP C WRITE DMAP SEQUENCE ONTO SCRATCH FILE FROM OPEN CORE C 620 CALL WRITE (NSCR,DMAPBF,DRECSZ,1) 630 CALL CLOSE (NSCR,1) 640 CONTINUE C C PUNCH RESTART CARD IF CHECKPOINT FLAG IS SET. C IF (ICPFLG .EQ. 0) GO TO 660 C IF (IROPEN .EQ. 1) GO TO 6405 C OPEN (UNIT=4, FILE=DSNAMES(4), STATUS='UNKNOWN') C IROPEN = 1 WRITE (IRDICT,641) (TAPID(I),I=1,4),(IDATE(J),J=1,3),TIMEW 641 FORMAT (9HRESTART ,2A4,1H,,2A4,1H,,I2,1H/,I2,1H/,I2,1H,,I8,1H,) CALL SSWTCH (9,DIAG09) IF (DIAG09 .EQ. 1) GO TO 660 CALL PAGE WRITE (OUTTAP,651) (TAPID(I),I=1,4),(IDATE(J),J=1,3),TIMEW 651 FORMAT ('0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE ', 1 'PUNCHED OUT FOR THIS PROBLEM', / 2 14H0 RESTART ,2A4,1H,,2A4,1H,,I2,1H/,I2,1H/,I2,1H,,I8,1H,) 660 XNOGO = NOGO RETURN C C ERROR MESSAGES C C USER FATAL MESSAGES C 670 NLINES = NLINES + 2 IF (NLINES .GE. NLPP) CALL PAGE IF (NOGO .LT. 1) NOGO = 1 IGNORE = 1 GO TO IRTN2, ( 700, 730, 770, 800, 830, 860, 920, 950, 1 1070,1100,1130,1160,1190,1220,1234) C 690 ASSIGN 700 TO IRTN2 MSGNUM = 505 GO TO 670 700 WRITE (OUTTAP,710) UFM,MSGNUM,OUTCRD(2),OUTCRD(3) 710 FORMAT (A23,I5,', CONTROL CARD ',2A4,11H IS ILLEGAL) GO TO 20 C 720 ASSIGN 730 TO IRTN2 MSGNUM = 506 GO TO 670 730 WRITE (OUTTAP,740) UFM,MSGNUM,OUTCRD(2),OUTCRD(3) 740 FORMAT (A23,I5,', CONTROL CARD ',2A4,11H DUPLICATED) GO TO 20 C 750 CONTINUE ERRALT = 1 760 ASSIGN 770 TO IRTN2 MSGNUM = 507 GO TO 670 770 WRITE (OUTTAP,780) UFM,MSGNUM,IMHERE 780 FORMAT (A23,I5,', ILLEGAL SPECIFICATION OR FORMAT ON PRECEDING ', 1 'CARD.', /5X,'IMHERE =',I5) IF (OUTCRD(2).EQ.ECTT(34) .AND. OUTCRD(3).EQ.ECTT(35)) GO TO 531 GO TO 20 C 790 ASSIGN 800 TO IRTN2 MSGNUM = 508 GO TO 670 800 WRITE (OUTTAP,810) UFM,MSGNUM 810 FORMAT (A23,I5,', PROBLEM TAPE MUST BE ON PHYSICAL TAPE FOR ', 1 'CHECK POINTING') IGNORE = 0 ICPFLG = 0 GO TO 20 C 820 ASSIGN 830 TO IRTN2 MSGNUM = 509 GO TO 670 830 WRITE (OUTTAP,840) UFM,MSGNUM,(OTAPID(I),I=1,4),IMNTH,IDAY, 1 IYEAR,TIMEX,OTAPID(6) 840 FORMAT (A23,I5,', WRONG OLD TAPE MOUNTED.', /30X, 1 23H OLD PROBLEM TAPE ID = ,2A4,1H,,2A4,1H,,I2,1H/,I2,1H/, 2 I2,1H,,2X,I8,1H,,5X,10HREEL NO. =,I4) GO TO 1410 C 850 ASSIGN 860 TO IRTN2 MSGNUM = 512 GO TO 670 860 WRITE (OUTTAP,870) UFM,MSGNUM 870 FORMAT (A23,I5,', OLD PROBLEM TAPE IS MISSING AND IS NEEDED FOR ', 1 'RESTART') NOGO = 3 GO TO 20 C C 910 ASSIGN 920 TO IRTN2 MSGNUM = 514 GO TO 670 920 WRITE (OUTTAP,930) UFM,MSGNUM 930 FORMAT (A23,I5,', ENDALTER CARD IS MISSING') IF (NOGO .LT. 2) NOGO = 2 GO TO 570 C 940 ASSIGN 950 TO IRTN2 MSGNUM = 515 GO TO 670 950 WRITE (OUTTAP,960) UFM,MSGNUM 960 FORMAT (A23,I5,', END INSTRUCTION MISSING IN DMAP SEQUENCE') IF (NOGO .LT. 2) NOGO = 2 GO TO 570 C C 970 ASSIGN 980 TO IRTN2 C MSGNUM = 516 C GO TO 670 C 980 WRITE (OUTTAP,990) UFM,MSGNUM C 990 FORMAT (A23,I5,', UMF TAPE MUST BE MOUNTED ON PHYSICAL TAPE ', C 1 'DRIVE') C NOGO = 3 C GO TO 20 C C1000 ASSIGN 1010 TO IRTN2 C MSGNUM = 517 C GO TO 670 C1010 WRITE (OUTTAP,1020) UFM,MSGNUM,UMFID C1020 FORMAT (A23,I5,', WRONG UMF TAPE MOUNTED - TAPE ID =',I10) C NOGO = 3 C GO TO 20 C C1030 ASSIGN 1040 TO IRTN2 C MSGNUM = 518 C GO TO 670 C1040 WRITE (OUTTAP,1050) UFM,MSGNUM C1050 FORMAT (A23,I5,', CANNOT USE UMF TAPE FOR RESTART') C NOGO = 3 C GO TO 1380 C 1060 ASSIGN 1070 TO IRTN2 MSGNUM = 519 GO TO 670 1070 WRITE (OUTTAP,1080) UFM,MSGNUM 1080 FORMAT (A23,I5,', ID CARD MUST PRECEDE ALL OTHER CONTROL CARDS') NOGO = 3 GO TO 20 C 1090 ASSIGN 1100 TO IRTN2 MSGNUM = 520 GO TO 670 1100 WRITE (OUTTAP,1110) UFM,MSGNUM,ECTT(I),ECTT(I+1) 1110 FORMAT (A23,I5,', CONTROL CARD ',2A4,' IS MISSING') ECTT(I+2) = ORF(ECTT(I+2),MASK5) IF (ECTT(I) .NE. ECTT(4)) GO TO 570 C C MISSING CARD IS APP C IF (NOGO .LT. 2) NOGO = 2 GO TO 570 C 1120 ASSIGN 1130 TO IRTN2 MSGNUM = 521 GO TO 670 1130 WRITE (OUTTAP,1140) UFM,MSGNUM 1140 FORMAT (A23,I5,', SPECIFY A SOLUTION OR A DMAP SEQUENCE BUT NOT ', 1 'BOTH') IF (NOGO .LT. 2) NOGO = 2 GO TO 1380 C 1150 ASSIGN 1160 TO IRTN2 MSGNUM = 522 GO TO 670 1160 WRITE (OUTTAP,1170) UFM,MSGNUM 1170 FORMAT (A23,I5,', NEITHER A SOL CARD NOR A DMAP SEQUENCE WAS ', 1 'INCLUDED') IF (NOGO .LT. 2) NOGO = 2 GO TO 1380 C 1180 ASSIGN 1190 TO IRTN2 NOTALT = 0 MSGNUM = 523 GO TO 670 1190 WRITE (OUTTAP,1200) UFM,MSGNUM 1200 FORMAT (A23,I5,', ENDALTER CARD OUT OF ORDER') GO TO 20 C 1210 ASSIGN 1220 TO IRTN2 MSGNUM = 526 GO TO 670 1220 WRITE (OUTTAP,1230) UFM,MSGNUM 1230 FORMAT (A23,I5,', CHECKPOINT DICTIONARY OUT OF SEQUENCE - ', 1 'REMAINING RESTART CARDS IGNORED') GO TO 20 1232 ASSIGN 1234 TO IRTN2 MSGNUM = 529 GO TO 670 1234 WRITE (OUTTAP,1236) UFM,MSGNUM 1236 FORMAT (A23,I5,', MISSING CEND CARD.') NOGO = 3 GO TO 1380 C C SYSTEM FATAL MESSAGES C 1240 NLINES = NLINES +2 IF (NLINES .GE. NLPP) CALL PAGE IF (NOGO .LT. 2) NOGO = 2 IGNORE = 1 GO TO IRTN3, (1255,1270,1300,1330,1360) C 1250 ASSIGN 1255 TO IRTN3 MSGNUM = 530 GO TO 1240 1255 WRITE (OUTTAP,1256) SFM,MSGNUM 1256 FORMAT (A25,I5,2H, , /5X,'INP9 FILE WAS NOT ASSIGNED FOR ', 1 'NASTRAN INTERACTIVE POST-PROCESSOR',/) GO TO 20 1260 ASSIGN 1270 TO IRTN3 MSGNUM = 510 GO TO 1240 1270 WRITE (OUTTAP,1280) SFM,MSGNUM 1280 FORMAT (A25,I5,', CHECKPOINT DICTIONARY EXCEEDS CORE SIZE - ', 1 'REMAINING RESTART CARDS IGNORED') GO TO 20 C 1290 ASSIGN 1300 TO IRTN3 MSGNUM = 511 GO TO 1240 1300 WRITE (OUTTAP,1310) SFM,MSGNUM 1310 FORMAT (A25,I5,', DMAP SEQUENCE EXCEEDS CORE SIZE - ', 1 'REMAINING DMAP INSTRUCTIONS IGNORED') IF (NOGO .LT. 2) NOGO = 2 GO TO 20 C 1320 ASSIGN 1330 TO IRTN3 MSGNUM = 524 GO TO 1240 1330 WRITE (OUTTAP,1340) SFM,MSGNUM,NGINO,IMHERE 1340 FORMAT (A25,I5,', ALTERNATE RETURN TAKEN WHEN OPENING FILE ',A4, 1 3X,1H-,I3) NOGO = 3 GO TO 1410 C 1350 ASSIGN 1360 TO IRTN3 MSGNUM = 525 GO TO 1240 1360 WRITE (OUTTAP,1370) SFM,MSGNUM,NGINO 1370 FORMAT (A25,I5,', ILLEGAL FORMAT ENCOUNTERED WHILE READING FILE ', 1 A4) NOGO = 3 GO TO 1410 C 1380 GO TO (600,1400,1390), NOGO C C NOGO = 3 - TERMINATE JOB HERE C 1390 ICPFLG = 0 CALL MESAGE (-61,0,0) C C NOGO = 2 - PUT IN DUMMY CONTROL FILE ON PROBLEM TAPE C 1400 NGINO = PTAPE CALL CLOSE (PTAPE,1) CALL OPEN (*1320,PTAPE,GBUFF(DMAPBS+1),0) CALL SKPFIL(PTAPE,1) CALL CLOSE (PTAPE,2) CALL OPEN (*1320,PTAPE,GBUFF(DMAPBS+1),3) CALL WRITE (PTAPE,NXCSA,2,1) SOLU(1) = 0 SOLU(2) = 0 APPRCH = APPDMP IF (RSTRT .NE. ICOLD) APPRCH = -APPRCH CALL WRITE (PTAPE,SOLREC,6,1) CALL EOF (PTAPE) CALL CLOSE (PTAPE,3) GO TO 640 C C C XCSA HAS BEEN DISASTERED - GET DUMP AND QUIT. C 1410 ICPFLG = 0 1420 CALL MESAGE (-37,0,NXCSA) RETURN END ================================================ FILE: mis/xdcode.f ================================================ SUBROUTINE XDCODE C C (MACHINE INDEPENDENT FORTRAN 77 ROUTINE) C C XDCODE DECODES A 20A4 ARRAY IN RECORD INTO A 80A1 ARRAY IN ICHAR C C XDCODE IS CALLED ONLY BY XRGDCF, XRGDTB, XRGSST, AND XRGSUB C CHARACTER*80 TEMP CHARACTER*8 TEMP8 COMMON /SYSTEM/ IBUF, NOUT, DM37(37),NBPW COMMON /XRGDXX/ SKIP1(3),ICOL, SKIP2(8),RECORD(20),ICHAR(80), 1 SKIP3(2),ICOUNT,SKIP4(2),NAME(2) DATA IBLANK/ 4H / C WRITE (TEMP,10) RECORD READ (TEMP,20) ICHAR 10 FORMAT (20A4) 20 FORMAT (80A1) RETURN C ENTRY XECODE C ============ C C XECODE ENCODES A 8A1 BCD ARRAY IN ICHAR INTO A 2A4 BCD ARRAY C IN NAME C (THIS ENTRY REPLACES THE OLD MACHINE DEPENDENT ROUTINE OF THE C SAME NAME) C C THE INCOMING WORD IN CDC MACHINE WOULD BE ZERO FILLED, SUCH AS C THE CARD TABLE AND THE MED TABLE IN XGPI RESTART PROCESSING. C MAKE SURE THAT THE INCOMING WORD FROM A 60- OR 64- BIT MACHINE C IS BLANK FILLED IF IT IS LESS THAN 8 BYTE LONG C C XECODE IS CALL ONLY BY XRGDTB C IF (NBPW.LT.60 .OR. ICOUNT.EQ.8) GO TO 25 DO 22 K = ICOUNT,7 22 ICHAR(ICOL+K) = IBLANK 25 CALL NA12A8 (*50,ICHAR(ICOL),8,NAME,NOTUSE) IF (NBPW .NE. 60) RETURN C C BLANK OUT 2ND WORD (CDC ONLY) C WRITE (TEMP8,30) NAME(1) NAME(1) = IBLANK NAME(2) = IBLANK READ (TEMP8,40) NAME 30 FORMAT (A8) 40 FORMAT (2A4) RETURN C 50 WRITE (NOUT,60) 60 FORMAT ('0BAD DATA/XECODE') RETURN END ================================================ FILE: mis/xdph.f ================================================ SUBROUTINE XDPH C C DATA POOL HOUSEKEEPER (XDPH) C C THIS SUBROUTINE SCANS THE DATA POOL DICT AND TO DETERMINE THE C NUMBER AND SIZE OF ANY FILES NO LONGER NEEDED. IF A SUFFICIENT C QUANTITY IS NOT NEEDED, THE FILE IS RECOPIED WITH THE DEAD FILES C DELETED. C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,ANDF,ORF DIMENSION NDPD(1),NDPH(2),FEQU(1),FNTU(1),FON(1),FORD(1), 1 MINP(1),MLSN(1),MOUT(1),MSCR(1),SAL(1),SDBN(1), 2 SNTU(1),SORD(1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ IBUFSZ,OUTTAP,DUM(36),NBPC,NBPW,NCPW COMMON /XFIAT / FIAT(1),FMXLG,FCULG,FILE(1),FDBN(2),FMAT(1) COMMON /XFIST / FIST(2) COMMON /XPFIST/ NPFIST COMMON /XXFIAT/ EXFIAT COMMON /XDPL / DPD(1),DMXLG,DCULG,DDBN(2),DFNU(1) COMMON /ZZZZZZ/ ENDSFA(1) COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(1),FPUN(1), 1 FCUM(1),FCUS(1),FKND(1) EQUIVALENCE (DPD(1),DNAF),(FIAT(1),FUNLG),(FILE(1),FEQU(1)), 1 (FILE(1),FORD(1)),(ENDSFA(1),NDPD(1)) EQUIVALENCE (MD(2),MLSN(1)),(MD(3),MINP(1)),(MD(4),MOUT(1)), 1 (MD(5),MSCR(1)), 2 (SOS(1),SLGN) ,(SOS(2),SDBN(1)),(SOS(4),SAL(1)), 3 (SOS(4),SNTU(1)),(SOS(4),SORD(1)), 4 (COMM(1),ALMSK),(COMM(2),APNDMK),(COMM(3),CURSNO), 5 (COMM(4),ENTN1),(COMM(5),ENTN2 ),(COMM(6),ENTN3 ), 6 (COMM(7),ENTN4),(COMM(8),FLAG ),(COMM(9),FNX ), 7 (COMM(10),LMSK),(COMM(11),LXMSK), 8 (COMM(13),RMSK),(COMM(14),RXMSK),(COMM(15),S ), 9 (COMM(16),SCORNT),(COMM(17),TAPMSK), O (COMM(18),THCRMK),(COMM(19),ZAP), 1 (XF1AT(1),FNTU(1)),(XF1AT(1),FON(1)) C DATA NCONST/ 100 / DATA SCRN1 / 4HSCRA /, SCRN2 /4HTCH* / DATA POOL , NPOL / 4HPOOL,4HNPOL /, NDPH / 4HXDPH,4H / C C FLAG = 0 100 LMT3 = DCULG*ENTN4 LMT = (DCULG-1)*ENTN4 + 1 NCNT = 0 NGCNT= 0 TRIAL= DNAF - 1 C C COUNT DEAD FILE SIZE, PUT SIZE IN NCNT C DO 160 I = 1,LMT3,ENTN4 IF (DDBN(I).NE.0 .OR. DDBN(I+1).NE.0) GO TO 159 IF (DFNU(I) .GE. 0) GO TO 130 C C DEAD FILE IS EQUIV C FLAG = -1 KK = ANDF(RMSK,DFNU(I)) DO 110 J = 1,LMT3,ENTN4 IF (DFNU(J).GE.0 .OR. I.EQ.J) GO TO 110 IF (KK .NE. ANDF(RMSK,DFNU(J))) GO TO 110 IF (DDBN(J).NE.0 .OR. DDBN(J+1).NE.0) GO TO 145 DFNU(J) = 0 110 CONTINUE 130 IF (KK .EQ. TRIAL) GO TO 140 IF (DFNU(I) .EQ. 0) GO TO 150 NCNT = NCNT + RSHIFT(ANDF(LMSK,DFNU(I)),16) GO TO 150 140 DNAF = TRIAL 145 DFNU(I) = 0 150 IF (I .NE. LMT) GO TO 160 DCULG = DCULG - 1 FLAG = -1 GO TO 100 C C COUNT GOOD STUFF ALSO C 159 NGCNT = NGCNT + RSHIFT(ANDF(LMSK,DFNU(I)),16) 160 CONTINUE C C CHECK FOR BREAKING OF EQUIV C IF (FLAG .EQ. 0) GO TO 200 DO 180 I = 1,LMT3,ENTN4 IF (DFNU(I) .GE. 0) GO TO 180 KK = ANDF(RMSK,DFNU(I)) DO 170 J = 1,LMT3,ENTN4 IF (DFNU(J).GE.0 .OR. I.EQ.J) GO TO 170 IF (KK .EQ. ANDF(RMSK,DFNU(J))) GO TO 180 170 CONTINUE DFNU(I) = ANDF(ALMSK,DFNU(I)) 180 CONTINUE C C IS NCNT OF SUFFICIENT SIZE TO WARRANT RECOPYING POOL C 200 CALL SSWTCH (3,IX) IF (IX .NE. 1) GO TO 211 CALL PAGE1 WRITE (OUTTAP,201) NCNT 201 FORMAT (21H0DPH DEAD FILE COUNT=,I6) WRITE (OUTTAP,202)(DPD(IX),IX=1,3) 202 FORMAT (16H0DPD BEFORE DPH ,3I4) II = DCULG*3 + 3 DO 210 IX = 4,II,3 IPRT1 = RSHIFT(DPD(IX+2),NBPW-1) IPRT2 = RSHIFT(ANDF(LXMSK,DPD(IX+2)),16) IPRT3 = ANDF(RXMSK,DPD(IX+2)) 203 FORMAT (1H ,2A4,3I6) 210 WRITE (OUTTAP,203) DPD(IX),DPD(IX+1),IPRT1,IPRT2,IPRT3 C C RECOPY POOL IF THERE ARE MORE THAN 500,000 WORD DEAD AND C THE GOOD STUFF IS TWICE AS BIG AS THE DEAD STUFF C 211 IF (NCNT.GT.NCONST .AND. NCNT.GT.2*NGCNT) GO TO 230 IF (NCNT.GT.0 .AND. DCULG+5.GE.DMXLG) GO TO 230 RETURN C C RECOPY POOL, SWITCH POOL FILE POINTERS C 230 LMT2 = FUNLG*ENTN1 KK = ANDF(THCRMK,SCRN2) DO 250 I = 1,LMT2,ENTN1 IF (FDBN(I).EQ.0 .AND. FDBN(I+1).EQ.0) GO TO 270 IF (FDBN(I).EQ.SCRN1 .AND. ANDF(THCRMK,FDBN(I+1)).EQ.KK) GO TO 270 250 CONTINUE C C NO FILE AVAILABLE TO COPY ONTO, FORGET IT C RETURN C C SET-UP FOR A RECOPY C 270 ISAV = I CALL OPEN (*900,POOL,ENDSFA,0) FNX = 1 FIST(2*NPFIST+4) = ISAV + 2 FIST(2) = NPFIST + 1 FIST(2*NPFIST+3) = NPOL CALL OPEN (*900,NPOL,ENDSFA(IBUFSZ+1),1) M = 2*IBUFSZ I = M + 1 ISTART = I M = M + DCULG*3 + 3 IWKBUF = KORSZ(ENDSFA) - M IF (IWKBUF .LT. 100) CALL MESAGE (-8,0,NDPH) M = M + 1 NFILE = 1 NCULG = 0 DO 400 J = 1,LMT3,ENTN4 IF (DDBN(J).EQ. 0 .AND. DDBN(J+1).EQ. 0) GO TO 400 IF (DDBN(J).EQ.63 .AND. DDBN(J+1).EQ.63) GO TO 400 C C RECOPY DICTIONARY C NDPD(I ) = DDBN(J ) NDPD(I+1) = DDBN(J+1) NDPD(I+2) = ORF(ANDF(LXMSK,DFNU(J)),NFILE) IF (DFNU(J) .GE. 0) GO TO 290 NDPD(I+2) = ORF(S,NDPD(I+2)) KK = ANDF(RMSK,DFNU(J)) DO 280 K = 1,LMT3,ENTN4 IF (DFNU(K).GE.0 .OR. J.EQ.K) GO TO 280 IF (KK .NE. ANDF(RMSK,DFNU(K))) GO TO 280 I = I + 3 NCULG = NCULG + 1 NDPD(I) = DDBN(K) DDBN(K) = 63 NDPD(I+1) = DDBN(K+1) DDBN(K+1) = 63 NDPD(I+2) = NDPD(I-1) 280 CONTINUE 290 I = I + 3 NCULG = NCULG + 1 C C RECOPY NECESSARY FILE C FN = ANDF(RMSK,DFNU(J)) CALL XFILPS (FN) CALL CPYFIL (POOL,NPOL,ENDSFA(M),IWKBUF,FLAG) CALL EOF (NPOL) NFILE = NFILE + 1 FNX = FN + 1 400 CONTINUE C C COPY TEMPORARY DPD INTO ACTUAL DPD C I = I - 1 IX = 0 DO 420 J = ISTART,I IX = IX + 1 420 DDBN(IX) = NDPD(J) DNAF = NFILE DCULG= NCULG CALL CLOSE (POOL,1) CALL CLOSE (NPOL,1) FNX = 1 C C COPY POOL BACK TO POOL UNIT C CALL OPEN (*900,NPOL,ENDSFA,0) CALL OPEN (*900,POOL,ENDSFA(IBUFSZ+1),1) NFILE = NFILE - 1 DO 430 IX = 1,NFILE CALL CPYFIL (NPOL,POOL,ENDSFA(M),IWKBUF,FLAG) CALL EOF (POOL) 430 CONTINUE CALL CLOSE (POOL,1) CALL CLOSE (NPOL,1) C C THE FOLLOWING 3 LINES OF CODE WILL FREE DISK AREA ON SOME CONFIG. C CALL OPEN (*900,NPOL,ENDSFA,1) CALL WRITE (NPOL,NDPH,2,1) CALL CLOSE (NPOL,1) CALL SSWTCH (3,IX) IF (IX .NE. 1) RETURN C WRITE (OUTTAP,500) (DPD(IX),IX=1,3) 500 FORMAT (15H0DPD AFTER DPH ,3I4) II = DCULG*3 + 3 DO 510 IX = 4,II,3 IPRT1 = RSHIFT(DPD(IX+2),NBPW-1) IPRT2 = RSHIFT(ANDF(LXMSK,DPD(IX+2)),16) IPRT3 = ANDF(RXMSK,DPD(IX+2)) 510 WRITE (OUTTAP,203) DPD(IX),DPD(IX+1),IPRT1,IPRT2,IPRT3 RETURN C 900 WRITE (OUTTAP,901) SFM 901 FORMAT (A25,' 1041, OLD/NEW POOL COULD NOT BE OPENED.') CALL MESAGE (-37,0,NDPH) RETURN END ================================================ FILE: mis/xfadj1.f ================================================ SUBROUTINE XFADJ1 (BF,SHIFT,SD) C C XFADJ1 ADJUSTS 4 CHARACTER FIELDS, LEFT OR RIGHT, 2 OR 4 FIELDS C AT A TIME C C BF = ADDR OF LEFT MOST FIELD C SHIFT = LSHIFT OR RSHIFT C SD = 0 SINGLE (2 FIELDS), 1 DOUBLE (4 FIELDS) C RIGHT SHIFTING CAUSES INSERTION OF LEADING ZEROS C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,SHIFT LOGICAL DEC DIMENSION BF(1),BK(6),MK(6),SFT(3) COMMON /MACHIN/ MACH COMMON /XSRTCM/ BIMSK1(6),BIMSK2(5),BIMSK3(4),BIMSK4(4),BIMSK5(2), 1 BIMSK6,BKMSK1(8),BKMSK2,SHIFTS(4),ICON1,ICON2, 2 STAR,PLUS,DOLLAR,STARL,SLASH,SFTM,MASK,BLANK,MKA, 3 IS,MBIT4 EQUIVALENCE (BK(1) ,BKMSK1(2)),(MK(1),BIMSK1(1)), 1 (SFT(1),SHIFTS(2)),(BLKS, BKMSK1(8)), 2 (BKX ,BKMSK1(1)) C C DATA BK / 4H0000,4H0000,4H0000,4H000 ,4H00 ,4H0 / C DATA (MK(I),I=1,6) /O777777000000,O777700000000,O770000000000, C 1 O000000770000,O000077770000,O007777770000/ C DATA (SFT(I),I=1,3)/6,12,18/ C DATA BLKS / 4H /, BKX/4H0000/ C C C INITIALIZE ROUTINES C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 IF (SHIFT(MK(3),SFT(1)) .NE. 0) GO TO 10 C C LEFT SHIFT REQUESTED C BLK= BLKS I1 = 1 I2 = 2 I3 = 3 I4 = 4 J = 3 GO TO 30 C C RIGHT SHIFT REQUESTED C 10 BLK= BKX J = 4 IF (SD .EQ. 0) GO TO 20 C C DOUBLE FIELD C I1 = 4 I2 = 3 I3 = 2 I4 = 1 GO TO 30 C C SINGLE FIELD C 20 I1 = 2 I2 = 1 C C TOTAL FIELD SHIFTS C 30 N = 0 40 IF (J.EQ.4 .AND. BF(I1).NE.BLKS) GO TO 60 IF (J.EQ.3 .AND. BF(I1).NE.BLKS .AND. BF(I1).NE.BKX) GO TO 60 BF(I1) = BF(I2) BF(I2) = BLK IF (SD .EQ. 0) GO TO 50 N = N + 1 BF(I2) = BF(I3) BF(I3) = BF(I4) BF(I4) = BLK IF (N .NE. 3) GO TO 40 50 IF (BF(I1) .EQ. BLKS) RETURN C C CHARACTER SHIFTS BETWEEN FIELDS C 60 N = 0 IF (J .EQ. 3) GO TO 150 C C RIGHT C II = I1 70 IF (BF(II) .NE. BLKS) GO TO 80 BF(II) = BKX GO TO 110 80 IF (BF(II) .EQ. BKX) GO TO 110 90 IF (.NOT.DEC) IHLD = RSHIFT(ANDF(MK(3),BF(II)),1) IF ( DEC) IHLD = KHRFN4(RSHIFT(KHRFN4(KHRFN1(BKMSK2,1, 1 BF(II),1)),1)) IF (IHLD .NE. ICON1) GO TO 100 N = N + 1 IF (.NOT.DEC) BF(II) = LSHIFT(BF(II),SFT(1)) IF ( DEC) BF(II) = KHRFN3( BKMSK2,BF(II),1,1) IF (N .LT. 3) GO TO 90 GO TO 120 100 IF (N .NE. 0) GO TO 120 110 II = II - 1 IF (II .EQ. 0) GO TO 130 GO TO 70 120 N2 = 4 - N IF (.NOT.DEC) BF(II) = ORF(RSHIFT(BF(II),SFT(N)),BK(N2)) IF ( DEC) BF(II) = KHRFN3( BK(N2),BF(II),N,0) N = 0 GO TO 110 130 N = 0 C C RIGHT C 140 IF (DEC) GO TO 141 IF (ANDF(MK(4),BF(I1)) .NE. ANDF(MK(4),BLKS)) GO TO 170 GO TO 160 141 IF (KHRFN1(MK(4),4,BF(I1),4) .NE. KHRFN1(MK(4),4,BLKS,4)) 1 GO TO 170 GO TO 160 C C LEFT C 150 IF (.NOT.DEC) IHLD = RSHIFT(ANDF(MK(3),BF(I1)),1) IF ( DEC) IHLD = KHRFN4(RSHIFT(KHRFN4(KHRFN1(BKMSK2,1,BF(I1), 1 1)),1)) IF (IHLD.NE.ICON1 .AND. IHLD.NE.ICON2) GO TO 170 160 N = N + 1 IF (.NOT.DEC) BF(I1) = SHIFT(BF(I1),SFT(1)) IF ( DEC) BF(I1) = KHRFN3( BKMSK2,BF(I1),1,4-J) IF (N .GE. 3) GO TO 180 IF (J .EQ. 3) GO TO 150 GO TO 140 170 IF (N .EQ. 0) RETURN 180 IF (J .EQ. 4) GO TO 190 C C LEFT SHIFTS C N1 = N N2 = N + 3 GO TO 200 C C RIGHT SHIFTS C 190 N1 = 7 - N N2 = 4 - N 200 N3 = 4 - N IF (.NOT.DEC) BF(I1) = ORF(ANDF(MK(N1),BF(I1)),ANDF(MK(N2), 1 ISFT(BF(I2),SFT(N3),J))) IF ( DEC) BF(I1) = KHRFN3(BF(I1),BF(I2),N3,J-3) BF (I1) = ORF(BF(I1),BKMSK2) IF (.NOT.DEC) BF(I2) = ORF(ANDF(MK(N1),SHIFT(BF(I2),SFT(N))), 1 BK(N2)) IF ( DEC) BF(I2) = KHRFN3( BK(N2),BF(I2),N,4-J) IF (SD .EQ. 0) RETURN C IF (.NOT.DEC) BF(I2) = ORF(ANDF(MK(N1),BF(I2)),ANDF(MK(N2), 1 ISFT(BF(I3),SFT(N3),J))) IF ( DEC) BF(I2) = KHRFN3( BF(I2),BF(I3),N3,J-3 ) BF(I2) = ORF(BF(I2),BKMSK2) IF (BF(I2) .EQ. BLK) RETURN C IF (.NOT.DEC) BF(I3) = ORF(ANDF(MK(N1),SHIFT(BF(I3),SFT(N))), 1 BK(N2)) IF ( DEC) BF(I3) = KHRFN3(BK(N2),BF(I3),N,4-J) IF (.NOT.DEC) BF(I3) = ORF(ANDF(MK(N1),BF(I3)),ANDF(MK(N2), 1 ISFT(BF(I4),SFT(N3),J))) IF ( DEC) BF(I3) = KHRFN3(BF(I3),BF(I4),N3,J-3) BF(I3) = ORF(BF(I3),BKMSK2) IF (BF(I3) .EQ. BLK) RETURN C IF (.NOT.DEC) BF(I4) = ORF(ANDF(MK(N1),SHIFT(BF(I4),SFT(N))), 1 BK(N2)) IF ( DEC) BF(I4) = KHRFN3(BK(N2),BF(I4),N,4-J) RETURN END ================================================ FILE: mis/xfldef.f ================================================ SUBROUTINE XFLDEF (NAME1,NAME2,NOFIND) C C THE PURPOSE OF THIS ROUTINE IS TO TURN ON ALL OSCAR ENTRY EXECUTE C FLAGS NECESSARY TO DEFINE FILE . C C DESCRIPTION OF ARGUMENTS C NAM1,NAM2 = NAME OF FILE TO BE DEFINED. C NOFIND = INDICATES TO CALLING PROGRAM WHETHER OR NOT FILE WAS C FOUND. C EXTERNAL ANDF,ORF,COMPLF INTEGER NAME1(1),NAME2(1),SOL,OSCAR(1),OS(5),OSPNT,OSBOT, 1 FMED(1),FMEDTP,FNM(1),FNMTP,FMDMSK,TWO,OP,PTDTP, 2 PTDBOT,PTDIC(1),AND,OR,ANDF,ORF,COMPLF,START, 3 REUSE,REGEN COMMON /XMDMSK/ NMSKCD,NMSKFL,NMSKRF,FMDMSK(7) COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP,XGPID1(5), 1 NOFLGS COMMON /SYSTEM/ BS,OP,NOGO,DUM(78),ICPFLG COMMON /XOLDPT/ PTDTP,PTDBOT,LPTDIC,NRLFL,SEQNO COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI, C ** CONTROL CARD NAMES ** 1 NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT, C ** DMAP CARD NAMES ** 2 NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE, 3 NOUTPT,NCHKPT,NPURGE,NEQUIV, 4 NCPW,NBPC,NWPC, 5 MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1) COMMON /ZZZZZZ/ CORE(1) COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT, 1 IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR, NEWCRD, 2 MODIDX,LDMAP,ISAVDW,DMAP(1) COMMON /XGPI5 / IAPP,START,IEXIT(2),SOL,SUBSET,IFLAG,IESTIM, 1 ICFTOP,ICFPNT,LCTLFL,ICTLFL(1) COMMON /XGPI6 / MEDTP,FNMTP,CNMTP,MEDPNT,LMED COMMON /TWO / TWO(4) EQUIVALENCE (CORE(1),OS(1),LOSCAR),(OSPRC,OS(2)), 1 (OSBOT,OS(3)),(IOSPNT,OS(4)), 2 (OS(5),OSCAR(1),FNM(1),FMED(1),PTDIC(1)), 3 (MEDTP,FMEDTP),(TWO(4),REUSE) DATA NXCHKP/ 4HXCHK/, IFIRST / 0 / C AND(I,J) = ANDF(I,J) OR(I,J) = ORF(I,J) C NAM1 = NAME1(1) NAM2 = NAME2(1) C C SCAN OPTDIC FOR FILE NAME C REGEN = NOFIND NOFIND = 1 IF(PTDBOT .LT. PTDTP) GO TO 200 DO 100 II = PTDTP,PTDBOT,3 I = PTDBOT + PTDTP - II IF (PTDIC(I).EQ.NAM1 .AND. PTDIC(I+1).EQ.NAM2) GO TO 110 100 CONTINUE GO TO 200 C C FILE IS IN PTDIC - SET REUSE FLAG FOR ALL EQUIVALENCED FILES C 110 IF (PTDIC(I+2) .GE. 0) GO TO 130 DO 120 J = PTDTP,PTDBOT,3 IF (AND(PTDIC(J+2),NOFLGS) .EQ. AND(PTDIC(I+2),NOFLGS)) 1 PTDIC(J+2) = OR(PTDIC(J+2),REUSE) 120 CONTINUE 130 PTDIC(I+2) = OR(PTDIC(I+2),REUSE) NOFIND = 0 GO TO 1000 C C FILE NOT IN PTDIC - CHECK FNM TABLE IF RESTART IS MODIFIED AND C APPROACH IS NOT DMAP C 200 IF (START.EQ.ICST .OR. IAPP.EQ.IDMAPP) GO TO 1000 IF (REGEN .LT. 0) GO TO 1000 J = FNMTP + 1 K = FNMTP + FNM(FNMTP)*3 - 2 DO 210 I = J,K,3 IF (NAM1.EQ.FNM(I) .AND. NAM2.EQ.FNM(I+1)) GO TO 220 210 CONTINUE GO TO 1000 C C FILE IS IN FNM TABLE - CHECK FOR TABLE ERROR C 220 IF (FNM(I+2) .LE. 0) GO TO 900 C C CLEAR ALL THE MASK WORDS C K = FMED(FMEDTP+1) DO 230 L = 1, K FMDMSK(L) = 0 230 CONTINUE C C SET BIT IN FMDMSK FOR FILE REGENERATION C L = ((FNM(I+2)-1)/31) + 1 K = FNM(I+2) - 31*(L-1) + 1 FMDMSK(L) = OR(FMDMSK(L),TWO(K)) C C USE FMDMSK AND FMED TABLE TO TURN ON OSCAR EXECUTE FLAGS C K = FMED(FMEDTP+1) J1 = FMEDTP + 2 J2 = J1 + FMED(FMEDTP)*FMED(FMEDTP+1) - K INDEX = 0 OSPNT = 1 DO 350 J = J1,J2,K DO 310 K1 = 1,K JJ = J + K1 - 1 IF (AND(FMED(JJ),FMDMSK(K1)) .NE. 0) GO TO 330 310 CONTINUE GO TO 350 C C NON-ZERO ENTRY FOUND - COMPUTE DMAP SEQUENCE NUMBER FOR FMED ENTRY C 330 N = ((J-J1)/K) + 1 IF (AND(OSCAR(IOSPNT+5),NOSGN) .LT. N) GO TO 1000 C C SET EXECUTINON FLAG FOR ALL OSCAR ENTRIES WITH SAME DMAP SEQ C NUMBER C 335 IF (AND(OSCAR(OSPNT+5),NOSGN) - N) 345,340,350 340 IF (OSCAR(OSPNT+5).LT.0 .OR. (OSCAR(OSPNT+3).EQ.NXCHKP .AND. 1 ICPFLG.EQ.0)) GO TO 345 IF (IFIRST .EQ. 1) GO TO 342 IFIRST = 1 CALL PAGE1 CALL XGPIMW (12,0,0,0) 342 IF (INDEX .EQ. 1) GO TO 344 INDEX = 1 CALL XGPIMW (3,NAM1,NAM2,0) 344 CALL XGPIMW (4,0,0,OSCAR(OSPNT)) NOFIND = -1 OSCAR(OSPNT+5) = ORF(OSCAR(OSPNT+5),ISGNON) 345 IF (OSPNT .GE. OSBOT) GO TO 350 OSPNT = OSPNT + OSCAR(OSPNT) GO TO 335 350 CONTINUE C C MAKE SURE SOME MODULES WERE TURNED ON C IF (NOFIND .NE. -1) GO TO 900 C C NEGATE FNM TABLE ENTRY FOR THIS FILE C FNM(I+2) = -FNM(I+2) C C TURN OFF REUSE FLAGS IN PTDIC C IF (PTDBOT.LE.PTDTP .OR. IFLAG.NE.0) GO TO 1000 J = COMPLF(REUSE) DO 360 I = PTDTP,PTDBOT,3 PTDIC(I+2) = ANDF(J,PTDIC(I+2)) 360 CONTINUE GO TO 1000 C C D I A G N O S T I C M E S S A G E S C C MED OR FILE TABLE INCORRECT FOR REGENERATING FILE C 900 CALL XGPIDG (41,NAM1,NAM2,FNM(I+2)) NOFIND =-1 NOGO = 2 1000 RETURN END ================================================ FILE: mis/xflord.f ================================================ SUBROUTINE XFLORD C C THE PURPOSE OF THIS ROUTINE IS TO COMPUTE THE LTU (LAST TIME USED) C VALUE AND THE NTU (NEXT TIME USED) VALUE FOR THE INPUT AND OUTPUT C FILE SECTIONS OF THE OSCAR ENTRIES. C C ... DESCRIPTION OF PROGRAM VARIABLES ... C LPTOP = POINTER/SEQUENCE NUMBER OF FIRST ENTRY IN A DMAP LOOP. C LPBOT = LAST ENTRY IN A LOOP. C IOPNT = POINTER TO FILE NAME IN I/O SECTION OF OSCAR ENTRY. C LPORD = POINTER TO IORDNL TABLE ENTRY CORRESPONDING TO LPTOP. C IORDNO = FILE ORDINAL NUMBER C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF DIMENSION PTDIC(1),XNAM(12),ITMP(1),IORDNL(1800),ICPDPL(1), 1 OSCAR(2),OS(5) COMMON /SYSTEM/ BUFSZ,OPTAPE,NOGO,DUM1(20),ICFIAT,DUM2(57),ICPFLG COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT, 1 IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD, 2 MODIDX,LDMAP,ISAVDW,DMAP(1) COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI, 1 NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT, 2 NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT, 3 NCHKPT,NPURGE,NEQUIV, 4 NCPW,NBPC,NWPC, 5 MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1) COMMON /ZZZZZZ/ CORE(1) COMMON /XGPI2 / LMPL,MPLPNT,MPL(1) COMMON /XDPL / DPL(3) COMMON /XGPI5 / IAPP,START,ALTER(2),SOL,SUBSET,IFLAG, 1 IESTIM,ICFTOP,ICFPNT,LCTLFL,ICTLFL(1) COMMON /XGPI6 / MEDTP,DUM5(5),DIAG14 COMMON /XGPI7 / FPNT,LFILE,FILE(1) COMMON /XGPI8 / ICPTOP,ICPBOT,LCPDPL COMMON /XFIAT / IFIAT(3) COMMON /XFIST / IFIST(1) COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP, 1 ISAVE,ITAPE,IAPPND,INTGR,LOSGN,NOFLGS COMMON /XOLDPT/ PTDTOP,PTDBOT,LPTDIC,NRLFL,SEQNO COMMON /TWO / TWO(4) EQUIVALENCE (CORE(1),LOSCAR , OS(1)), 1 (OSPRC ,OS(2) ), (OSBOT ,OS(3)), 2 (OSPNT ,OS(4) ), (OSCAR(1),OS(5),PTDIC(1)), 3 (DMAP(1),ITMP(1)), (OSCAR(1),ICPDPL(1)), 4 (LMPL ,LORDNL ), (MPLPNT,IORBOT), 5 (DPL(1) ,NDPFIL ), (DPL(2),MAXDPL), 6 (DPL(3) ,LSTDPL ), (TWO(4),REUSE ) DATA NORDN1/ 4HIORD/, NORDN2/ 4HNL /, 1 NXVPS / 4HXVPS/, NCPDP1/ 4HICPD/, NCPDP2/4HPL /, 2 XNAM / 4HXTIM , 4HE , 4HXSAV , 4HE , 3 4HXUOP , 4H , 4HXCHK , 4H , 4 4HXPUR , 4HGE , 4HXEQU , 4HIV / DATA NTHPAS/ 0 /, DLYERR/ 0 / C OR(I,J) = ORF(I,J) AND(I,J) = ANDF(I,J) COMPL(L) = COMPLF(L) C C USE AREA IN OPEN CORE BETWEEN PTDIC AND MED ARRAYS FOR STORING C MISSING FILE DATA C IFLAG = 0 ICPTOP = PTDBOT + 3 ICPBOT = ICPTOP - 3 LCPDPL = MEDTP - ICPTOP IF (START .EQ. IMST) DLYERR = 1 IRENTR = AND(MASKHI,SEQNO) IDMPCT = RSHIFT(SEQNO,16) C C PREPARE FOR NTH PASS THRU OSCAR C ******************************* C 10 IF (NOGO .GT. 1) GO TO 960 OSPNT = 1 OSPRC = OSPNT IORBOT= 0 IFEQ = 0 C C INCREMENT NUMBER OF PASSES MADE THRU OSCAR C NTHPAS = 1 + NTHPAS C C ENTER DPL FILE NAMES IN IORDNL TABLE C I = LSTDPL*3 + 1 IDPL = I IF (LSTDPL .EQ. 0) GO TO 30 DO 20 K = 4,I,3 IORBOT = IORBOT + 4 IORDNL(IORBOT ) = DPL(K ) IORDNL(IORBOT+1) = DPL(K+1) IORDNL(IORBOT+2) = 0 20 IORDNL(IORBOT+3) = 0 C C ENTER FIAT NAMES IN IORDNL TABLE C 30 I = IFIAT(3)*ICFIAT - 2 DO 40 K = 4,I,ICFIAT IF (IFIAT(K+1) .EQ. 0) GO TO 40 IORBOT = IORBOT + 4 IFIAT(K) = OR(LSHIFT(IORBOT,16),AND(IFIAT(K),ORF(MASKHI,LOSGN))) IORDNL(IORBOT ) = IFIAT(K+1) IORDNL(IORBOT+1) = IFIAT(K+2) IORDNL(IORBOT+2) = 0 IORDNL(IORBOT+3) = 0 40 CONTINUE C C FOR UNMODIFIED RESTART BEGIN OSCAR PROCESSING AT RE-ENTRY POINT IF C THIS IS FIRST PASS THRU OSCAR C IF (NTHPAS .GT. 1) GO TO 60 IF (START.NE.IUNST . OR. IRENTR.EQ.0) GO TO 60 DO 50 J = 1,IRENTR IF (OSCAR(OSPNT+1) .GE. IRENTR) GO TO 60 OSPRC = OSPNT OSPNT = OSPNT + OSCAR(OSPNT) 50 CONTINUE C C GET NEXT OSCAR ENTRY C ******************** C C BRANCH ON OSCAR ENTRY TYPE IF EXECUTE FLAG IS UP C 60 IF (OSCAR(OSPNT+5) .GE. 0) GO TO 70 I = AND(OSCAR(OSPNT+2),MASKHI) LSTBOT = IORBOT GO TO (310,390,520,80), I C C GET NEXT OSCAR ENTRY C 70 IF (OSPNT .GE. OSBOT) GO TO 650 IF (OSCAR(OSPNT+5).LT.0 .AND. AND(OSCAR(OSPNT+2),MASKHI).LE.2) 1 OSPRC = OSPNT OSPNT = OSPNT + OSCAR(OSPNT) GO TO 60 C C PROCESS TYPE E OSCAR ENTRY C ************************** C C BRANCH ON NAME C 80 DO 90 I = 1,11,2 IF (OSCAR(OSPNT+3) .NE. XNAM(I)) GO TO 90 J = (I+1)/2 GO TO (70,70,100,100,70,190), J 90 CONTINUE C C ENTRY IS XUOP OR XCHK - MAKE SURE FILES HAVE BEEN DEFINED OR C PREPURGED. C 100 I1 = OSPNT + 7 I2 = OSCAR(OSPNT+6)*2 + I1 - 2 IOPNT = I1 110 IF (IORBOT .LE. 0) GO TO 130 DO 120 J = 4,IORBOT,4 IF (OSCAR(IOPNT).NE.IORDNL(J) .OR. OSCAR(IOPNT+1).NE.IORDNL(J+1)) 1 GO TO 120 IF (START.NE.IUNST .OR. J.GT.IDPL) GO TO 170 NNFIND = -1 CALL XFLDEF (OSCAR(IOPNT),OSCAR(IOPNT+1),NNFIND) GO TO 170 120 CONTINUE C C FILE NOT IN ORDNAL TABLE - SEE IF IT IS IN PREVIOUS PURGE OR C EQUIV ENTRY C 130 K1 = 2 K1 = OSCAR(K1) K2 = OSCAR(OSPNT+1) - 1 KK = 1 DO 160 K = K1,K2 IF (OSCAR(KK+3).NE.XNAM(9) .AND. OSCAR(KK+3).NE.XNAM(11)) 1 GO TO 160 C C PURGE OR EQUIV ENTRY FOUND - SEARCH FOR FILE NAME MATCH C L1 = KK + 7 L3 = KK + OSCAR(KK) C C GET FIRST/NEXT FILE LIST C 140 L2 = OSCAR(L1-1)*2 + L1 - 2 INCRLP = 2 IF (OSCAR(KK+3) .NE. XNAM(11)) GO TO 145 L2 = L2 + 1 INCRLP = 3 145 CONTINUE DO 150 L = L1,L2,INCRLP IF (OSCAR(L).EQ.OSCAR(IOPNT) .AND. OSCAR(L+1).EQ.OSCAR(IOPNT+1)) 1 GO TO 180 IF (L .EQ. L1+INCRLP) GO TO 153 150 CONTINUE GO TO 159 153 L4 = L1 + INCRLP INCRLP = 2 L4 = L4 + INCRLP DO 155 L = L4,L2,INCRLP IF (OSCAR(L).EQ.OSCAR(IOPNT) .AND. OSCAR(L+1).EQ.OSCAR(IOPNT+1)) 1 GO TO 180 155 CONTINUE 159 L1 = L2 + 4 IF (L1 .LT. L3) GO TO 140 160 KK = OSCAR(KK) + KK C C FILE IS NOT PURGED OR DEFINED - SEE IF IT IS ON PROBLEM TAPE C NOFIND = -1 GO TO 450 C C FILE IS IN ORDNAL TABLE - ENTER RANGE C 170 IF (IORDNL(J+3)) 180,175,175 175 IORDNL(J+3) = LSHIFT(OSCAR(OSPNT+1),16) 180 IOPNT = IOPNT + 2 IF (IOPNT .LE. I2) GO TO 110 GO TO 70 C C PROCESS EQUIV INSTRUCTION C 190 L1 = OSPNT + 7 NWDH = OSCAR(OSPNT) - 6 230 NDATAB = OSCAR(L1-1) IPRIME = 0 DO 195 KHR = 1,NDATAB C C CHECK FOR DATA BLOCK IN IORDNL C IF (IORBOT .LE. 0) GO TO 200 DO 205 I = 4,IORBOT,4 IF (IORDNL(I).NE.OSCAR(L1) .OR. IORDNL(I+1).NE.OSCAR(L1+1)) 1 GO TO 205 IF (START.NE.IUNST .OR. I.GT.IDPL) GO TO 210 NNFIND = -1 CALL XFLDEF (OSCAR(L1),OSCAR(L1+1),NNFIND) GO TO 210 205 CONTINUE C C FILE NOT IN IORDNL, SEE IF ON PTDIC OR REGEN C 200 IF (START.EQ.ICST .OR. IPRIME.NE.0) GO TO 220 NOFIND = 1 CALL XFLDEF (OSCAR(L1),OSCAR(L1+1),NOFIND) IF (NOFIND) 10,215,220 220 IF (DLYERR.NE.0 .OR. IPRIME.NE.0) GO TO 215 C C PRIMARY EQUIV FILE NOT DEFINED C CALL XGPIDG (32,OSPNT,OSCAR(L1),OSCAR(L1+1)) GO TO 210 C C PUT FILE IN IORDNL, FLAG FOURTH WORD FOR EQUIV C 215 IORBOT = IORBOT + 4 IF (IORBOT - LORDNL) 225,780,780 225 IORDNL(IORBOT ) = OSCAR(L1) IORDNL(IORBOT+1) = OSCAR(L1+1) IORDNL(IORBOT+2) = 0 IORDNL(IORBOT+3) = ISGNON 210 IF (IPRIME .NE. 0) GO TO 211 LSTUSE = AND(MASKHI,IORDNL(I+2)) IF (LSTUSE .EQ. 0) GO TO 212 NTU = OR(OSCAR(OSPNT+1),AND(IORDNL(I+2),ITAPE)) OSCAR(LSTUSE) = OR(AND(OSCAR(LSTUSE),MASKLO),NTU) 212 IORDNL(I+2) = OR(OSCAR(L1+2),AND(IORDNL(I+2),ITAPE)) IORDNL(I+3) = LSHIFT(OSCAR(OSPNT+1),16) OSCAR(L1+2) = OR(AND(OSCAR(L1+2),MASKHI),LSHIFT(I,16)) 211 L1 = L1 + 2 IF (IPRIME .EQ. 0) L1 = L1 + 1 IPRIME = 1 195 CONTINUE NWDH = NWDH - 2*NDATAB - 3 IF (NWDH .LE. 0) GO TO 70 L1 = L1 + 2 GO TO 230 C C PROCESS TYPE F OSCAR ENTRY C ************************** C C SCAN OSCAR OUTPUT FILE SECTION,ENTER NAMES IN IORDNL TABLE. C 310 K = OSPNT + 6 K = OSCAR(K)*3 + 2 + K I = OSCAR(K-1)*3 - 3 + K IOPNT = K ASSIGN 380 TO IRTURN C C GET FIRST/NEXT FILE NAME FROM OSCAR C 320 IF (OSCAR(IOPNT) .EQ. 0) GO TO 380 C C SEE IF FILE NAME IS ALREADY IN ORDNAL TABLE C IF (IORBOT .LE. 0) GO TO 340 DO 330 K = 4,IORBOT,4 IF (IORDNL(K).NE.OSCAR(IOPNT) .OR. IORDNL(K+1).NE.OSCAR(IOPNT+1)) 1 GO TO 330 IF (START.NE.IUNST .OR. K.GT.IDPL) GO TO 345 NNFIND = -1 CALL XFLDEF (OSCAR(IOPNT),OSCAR(IOPNT+1),NNFIND) GO TO 345 330 CONTINUE GO TO 340 345 IF (IORDNL(K+3)) 346,820,820 346 KXT = K GO TO 347 C C INCREMENT TO NEXT ORDNAL ENTRY AND ENTER FILE NAME AND LU POINTER. C 340 IORBOT = IORBOT + 4 IF (IORBOT - LORDNL) 350,780,780 350 IORDNL(IORBOT ) = OSCAR(IOPNT ) IORDNL(IORBOT+1) = OSCAR(IOPNT+1) C C SEE IF TAPE FLAG IS SET FOR THIS FILE C KXT = IORBOT 347 LSTUSE = IOPNT + 2 IF (AND(OSCAR(OSPNT+2),MASKHI) .GT. 2) LSTUSE=0 IF (FPNT .LT. 1) GO TO 370 DO 360 K = 1,FPNT,3 IF (OSCAR(IOPNT).EQ.FILE(K) .AND. OSCAR(IOPNT+1).EQ.FILE(K+1)) 1 LSTUSE = OR(LSTUSE,AND(FILE(K+2),ITAPE)) 360 CONTINUE 370 IORDNL(KXT+2) = LSTUSE IORDNL(KXT+3) = LSHIFT(OSCAR(OSPNT+1),16) C C IORDNL POINTER TO OSCAR IF TYPE F OR O FORMAT C IF (AND(OSCAR(OSPNT+2),MASKHI) .LE. 2) 1 OSCAR(IOPNT+2) = OR(LSHIFT(KXT,16),AND(OSCAR(IOPNT+2),MASKHI)) GO TO IRTURN, (380,510) C C O/P FILE PROCESSED - INCREMENT TO NEXT O/P FILE C 380 IOPNT = IOPNT + 3 IF (IOPNT .LE. I) GO TO 320 C C OUTPUT SECTION SCANNED, NOW SCAN INPUT FILE SECTION OF OSCAR. C C PROCESS TYPE F OR O OSCAR ENTRY C ******************************* C C SCAN OSCAR INPUT FILE SECTION,ENTER RANGES IN IORDNL TABLE. C 390 K = OSPNT + 7 I = OSCAR(K-1)*3 -3 + K IOPNT = K C C GET FIRST/NEXT FILE NAME FROM OSCAR C 400 IF (OSCAR(IOPNT) .EQ. 0) GO TO 510 NOFIND = 1 ASSIGN 510 TO IRTURN C C NOW SCAN IORDNAL TABLE FOR FILE NAME C J1 = LSTBOT IF (J1 .LE. 0) GO TO 440 DO 410 J = 4,J1,4 IF (OSCAR(IOPNT).NE.IORDNL(J) .OR. OSCAR(IOPNT+1).NE.IORDNL(J+1)) 1 GO TO 410 IF (START.NE.IUNST .OR. J.GT.IDPL) GO TO 420 NNFIND = -1 CALL XFLDEF (OSCAR(IOPNT),OSCAR(IOPNT+1),NNFIND) GO TO 420 410 CONTINUE GO TO 440 C C FOUND FILE IN IORDNL TABLE - ENTER NTU AND TAPE FLAG INTO C OSCAR ENTRY POINTED TO BY IORDNL ENTRY C 420 LSTUSE = AND(MASKHI,IORDNL(J+2)) IF (LSTUSE .EQ. 0) GO TO 430 NTU = OR(OSCAR(OSPNT+1),AND(IORDNL(J+2),ITAPE)) OSCAR(LSTUSE) = OR(AND(OSCAR(LSTUSE),MASKLO),NTU) C C SET RANGE AND LASTUSE POINTER IN IORDNAL ENTRY C 430 NOFIND = -1 IORDNL(J+2) = OR(IOPNT+2,AND(IORDNL(J+2),ITAPE)) IORDNL(J+3) = LSHIFT(OSCAR(OSPNT+1),16) C C LINK OSCAR I/P FILE TO IORDNL ENTRY C OSCAR(IOPNT+2) = OR(AND(OSCAR(IOPNT+2),MASKHI),LSHIFT(J,16)) C C I/P FILE PROCESSED - MAKE SURE IT WAS DEFINED C 440 IF (NOFIND) 510,450,450 C C I/P FILE NOT DEFINED C 450 IF (START .EQ. ICOLD) GO TO 470 C C RESTART - SEE IF FILE IS ON PROBLEM TAPE OR CAN BE REGENERATED C BY RE-EXECUTING SOME MODULES. C CALL XFLDEF (OSCAR(IOPNT),OSCAR(IOPNT+1),NOFIND) IF (NOFIND) 10,500,470 C C ERROR - FILE NOT DEFINED(PUT OUT MESSAGE AT END OF XFLORD) C SEE IF FILE IS ALREADY IN ICPDPL TABLE C 470 IF (DLYERR .NE. 0) GO TO 500 IF (ICPBOT .LT. ICPTOP) GO TO 490 DO 480 L = ICPTOP,ICPBOT,3 IF (OSCAR(IOPNT).EQ.ICPDPL(L) .AND. OSCAR(IOPNT+1).EQ.ICPDPL(L+1)) 1 GO TO 500 480 CONTINUE C C ENTER FILE IN ICPDPL TABLE C 490 ICPBOT = ICPBOT + 3 IF (ICPBOT+3-ICPTOP .GT. LCPDPL) GO TO 830 ICPDPL(ICPBOT ) = OSCAR(IOPNT ) ICPDPL(ICPBOT+1) = OSCAR(IOPNT+1) ICPDPL(ICPBOT+2) = -OSPNT C C ENTER FILE IN ORDNAL TABLE IF NOT CHKPNT MODULE C 500 IF (OSCAR(OSPNT+3) .NE. XNAM(7)) GO TO 340 GO TO 180 C C CHECK FOR ANOTHER I/P FILE C 510 IOPNT = IOPNT + 3 IF (IOPNT .LE. I) GO TO 400 C C INPUT FILE SECTION SCANNED,GET NEXT OSCAR ENTRY. C GO TO 70 C C PROCESS TYPE C OSCAR ENTRY C ************************** C C CHECK FOR LOOPING C 520 LPTOP = RSHIFT(OSCAR(OSPNT+6),16) IF ((NEXIT.EQ.OSCAR(OSPNT+3)) .OR. (OSCAR(OSPNT+1).LT.LPTOP)) 1 GO TO 70 C C FIND BEGINNING OF LOOP AND ADJUST IORDNL RANGES INSIDE LOOP. C LPBOT = OSPNT I = OSCAR(OSPNT+1) OSPNT = 1 J1 = OSCAR(OSPNT+1) DO 530 J = J1,I IF (OSCAR(OSPNT+1) .EQ. LPTOP) GO TO 540 530 OSPNT = OSCAR(OSPNT) + OSPNT 540 LPTOP = OSPNT C C LOOP TOP FOUND - IF UNMODIFIED RESTART,EXECUTE ALL MODULES INSIDE C LOOP. C IF (OSCAR(LPTOP+5).LT.0 .OR. START.NE.IUNST) GO TO 570 C C MAKE SURE FIRST INSTRUCTION IN LOOP IS NOT CHKPNT C IF (OSCAR(LPTOP+3).EQ.XNAM(7) .AND. OSCAR(LPTOP+4).EQ.XNAM(8)) 1 GO TO 790 C C EXECUTE FLAGS NOT ALL SET - SET FLAGS AND BEGIN OSCAR SCAN AGAIN C 550 J1 = OSCAR(LPTOP+1) DO 560 J = J1,I IF (OSCAR(OSPNT+3).EQ.XNAM(7) .AND. OSCAR(OSPNT+4).EQ.XNAM(8) 1 .AND. ICPFLG.EQ.0) GO TO 560 IF (OSCAR(OSPNT+5) .LT. 0) GO TO 560 IF (IFLAG .EQ. 1) GO TO 5510 IFLAG = 1 CALL PAGE1 CALL XGPIMW (11,IDMPCT,0,0) 5510 CALL XGPIMW (4,0,0,OSCAR(OSPNT)) OSCAR(OSPNT+5) = OR(ISGNON,OSCAR(OSPNT+5)) 560 OSPNT = OSCAR(OSPNT) + OSPNT GO TO 10 C C EXTEND RANGE OF FILES DEFINED OUTSIDE OF LOOP IF USED INSIDE LOOP C GET FIRST/NEXT OSCAR ENTRY INSIDE LOOP C 570 OSPNT = LPTOP J1 = OSCAR(LPTOP+1) J2 = OSCAR(LPBOT+1) DO 640 J = J1,J2 IF (AND(OSCAR(OSPNT+2),MASKHI) .GT. 2) GO TO 640 C C GET FIRST/NEXT I/P FILE OF OSCAR ENTRY C K1 = OSPNT + 7 K2 = OSCAR(K1-1)*3 - 3 + K1 DO 630 K = K1,K2,3 IF (OSCAR(K) .EQ. 0) GO TO 630 C C SEE IF FILE SAVE IS ON C IF (FPNT .LT. 1) GO TO 590 DO 580 L = 1,FPNT,3 IF (OSCAR(K).NE.FILE(L) .OR. OSCAR(K+1).NE.FILE(L+1)) GO TO 580 IF (AND(ISAVE,FILE(L+2)) .EQ. ISAVE) GO TO 620 GO TO 590 580 CONTINUE C C FILE SAVE FLAG NOT ON - SEE IF I/P FILE IS GENERATED INSIDE LOOP C 590 L1 = OSCAR(OSPNT+1) C C GET FIRST/NEXT OSCAR ENTRY INSIDE LOOP C N = LPTOP DO 610 L = J1,L1 IF (AND(OSCAR(N+2),MASKHI).NE.1 .OR. OSCAR(N+5).GE.0) GO TO 610 C C GET FIRST/NEXT O/P FILE C M1 = OSCAR(N +6)*3 + N + 8 M2 = OSCAR(M1-1)*3 - 3 + M1 DO 600 M = M1,M2,3 IF (OSCAR(M) .EQ. 0) GO TO 600 IF (OSCAR(M).EQ.OSCAR(K) .AND. OSCAR(M+1).EQ.OSCAR(K+1)) 1 GO TO 630 600 CONTINUE 610 N = OSCAR(N) + N C C EXTEND I/P FILE RANGE TO END OF LOOP C 620 N = RSHIFT(OSCAR(K+2),16) IORDNL(N+3) = LSHIFT(I,16) 630 CONTINUE IF (START .NE. IUNST) GO TO 640 C C FOR UNMODIFIED RESTART, MARK ALL OUTPUT FILES WITHIN THE C LOOP AND BEFORE THE RE-ENTRY POINT FOR REUSE C KK1 = K1 IF (OSCAR(KK1-6) .GE. IRENTR) GO TO 640 IF (AND(OSCAR(KK1-5),MASKHI) .NE. 1) GO TO 640 K1 = K2 + 4 K2 = 3*OSCAR(K1-1) - 3 + K1 DO 635 K = K1,K2,3 IF (OSCAR(K) .EQ. 0) GO TO 635 NOFIND = -1 CALL XFLDEF (OSCAR(K),OSCAR(K+1),NOFIND) 635 CONTINUE 640 OSPNT = OSCAR(OSPNT) + OSPNT C C LOOP SCANNED, GET NEXT OSCAR ENTRY AFTER LOOP ENTRIES C OSPNT = LPBOT GO TO 70 C C OSCAR HAS BEEN PROCESSED C ************************ C 650 IF (DLYERR .EQ. 0) GO TO 653 DLYERR = 0 GO TO 10 C C SET NTU = LTU FOR LAST REFERENCE TO EACH FILE IN OSCAR. C 653 DO 660 I = 4,IORBOT,4 LSTUSE = AND(IORDNL(I+2),MASKHI) IF (LSTUSE .EQ. 0) GO TO 660 NTU = OR(AND(ITAPE,IORDNL(I+2)),RSHIFT(IORDNL(I+3),16)) OSCAR(LSTUSE) = OR(NTU,AND(OSCAR(LSTUSE),MASKLO)) 660 CONTINUE C C SEARCH FILE TABLE FOR FILES WITH APPEND OR SAVE FLAG UP C IF (FPNT .LT. 1) GO TO 690 DO 680 J = 1,FPNT,3 IF (AND(FILE(J+2),IAPPND).EQ.0 .AND. AND(FILE(J+2),ISAVE).EQ.0) 1 GO TO 680 C C FOR RESTART, MARK APPEND AND SAVE FILES FOR REUSE C NOFIND = -1 CALL XFLDEF (FILE(J),FILE(J+1),NOFIND) IF (AND(FILE(J+2),ISAVE) .NE. 0) GO TO 680 C C APPEND FLAG SET - FIND CORRESPONDING IORDNL ENTRY AND SET FLAG C DO 670 I = 4,IORBOT,4 IF (IORDNL(I).EQ.FILE(J) .AND. IORDNL(I+1).EQ.FILE(J+1)) 1 IORDNL(I+3) = OR(IAPPND,IORDNL(I+3)) 670 CONTINUE 680 CONTINUE C C STORE LTU IN OSCAR FILE ENTRIES C 690 OSPNT = 1 700 IF (OSCAR(OSPNT+5).GE.0 .OR. AND(OSCAR(OSPNT+2),MASKHI).GT.2) 1 GO TO 730 K = OSPNT + 7 J = 1 IF (AND(OSCAR(OSPNT+2),MASKHI) .EQ. 1) J = 2 DO 720 L = 1,J C I = OSCAR(K-1)*3 - 3 + K DO 710 IOPNT = K,I,3 IF (OSCAR(IOPNT) .EQ. 0) GO TO 710 J1 = RSHIFT(OSCAR(IOPNT+2),16) LTU = AND(OSCAR(IOPNT+2),OR(LOSGN,MASKHI)) OSCAR(IOPNT+2) = OR(LTU,IORDNL(J1+3)) 710 CONTINUE 720 K = I + 4 730 IF (OSCAR(OSPNT+3) .NE. XNAM(11)) GO TO 735 I = OSCAR(OSPNT) - 6 K = OSPNT + 7 733 J1 = RSHIFT(OSCAR(K+2),16) LTU= AND(OSCAR(K+2),OR(LOSGN,MASKHI)) OSCAR(K+2) = OR(LTU,IORDNL(J1+3)) I = I - 2*OSCAR(K-1) - 3 IF (I .LE. 0) GO TO 735 K = K + 2*OSCAR(K-1) + 3 GO TO 733 735 OSPNT = OSPNT + OSCAR(OSPNT) IF (OSPNT - OSBOT) 700,700,740 C C STORE LTU IN FIAT ENTRIES C 740 I = IFIAT(3)*ICFIAT - 2 DO 770 K = 4,I,ICFIAT IF (IFIAT(K+1) .EQ. 0) GO TO 770 J = RSHIFT(AND(IFIAT(K),MASKLO),16) C C SEE IF FILE HAS BEEN REFERENCED C IF (AND(IORDNL(J+3),COMPL(IAPPND)) .NE. 0) GO TO 760 C C FILE NOT USED - DROP IT FROM FIAT C IFIAT(K) = AND(IFIAT(K),OR(MASKHI,LOSGN)) K1 = K + 1 K2 = K + ICFIAT - 3 DO 750 KK = K1,K2 750 IFIAT(KK) = 0 GO TO 770 760 LTU = AND(IFIAT(K),OR(OR(ISGNON,LOSGN),MASKHI)) IFIAT(K) = OR(LTU,IORDNL(J+3)) 770 CONTINUE GO TO 840 C C ERROR MESSAGES C ************** C C IORDNL TABLE OVERFLOW C 780 CALL XGPIDG (14,NORDN1,NORDN2,AND(OSCAR(OSPNT+5),NOSGN)) GO TO 960 C C CHKPNT IS FIRST INSTRUCTION IN LOOP C 790 CALL XGPIDG (47,LPTOP,0,0) OSCAR(LPTOP+5) = OR(OSCAR(LPTOP+5),ISGNON) GO TO 550 C C FILE APPEARS MORE THAN ONCE AS OUTPUT C C SUPPRESS MESSAGE ONCE IF FILE IS INITIALLY UNDEFINED C 820 IF (ICPBOT .LT. ICPTOP) GO TO 8220 DO 8210 II = ICPTOP,ICPBOT,3 IF (OSCAR(IOPNT).NE.ICPDPL(II) .OR. OSCAR(IOPNT+1).NE.ICPDPL(II+1) 1 ) GO TO 8210 IF (ICPDPL(II+2) .GE. 0) GO TO 8220 ICPDPL(II+2) = -ICPDPL(II+2) GO TO 346 8210 CONTINUE 8220 CALL XGPIDG (-45,OSPNT,OSCAR(IOPNT),OSCAR(IOPNT+1)) GO TO 346 C C ICPDPL TABLE OVERFLOW C 830 CALL XGPIDG (14,NCPDP1,NCPDP2,0) GO TO 960 C C CHECK ICPDPL TABLE FOR UNDEFINED FILES C 840 IF (ICPBOT .LT. ICPTOP) GO TO 860 DO 850 I = ICPTOP,ICPBOT,3 CALL XGPIDG (-22,IABS(ICPDPL(I+2)),ICPDPL(I),ICPDPL(I+1)) 850 CONTINUE C C IF DIAG 14 IS NOT ON, AND THERE ARE UNDEFINED FILES FROM USER'S C ALTER (DIAG14 IS SET TO 10 BY XGPI AT THIS TIME), SET DIAG14 TO 11 C TO FLAG XGPI TO PRINT THE DMAP COMPILE LISTING. C C IF DIAG 14 IS ON, THE DMAP LISTING IS ALREADY PRINTTED BY XSCNDM, C SHICH IS CALLED BY XOSGEN. XOSGEN IS CALLED BY XGPI BEFORE THIS C XFLORD IS CALLED (ALSO BY XGPI) C IF (DIAG14 .EQ. 10) DIAG14 = 11 IF (START .NE. ICST) GO TO 865 GO TO 960 C C NO UNDEFINED FILES - CHECK FOR RESTART C 860 IF (START .EQ. ICST) GO TO 960 C C RESTART - USE LAST XVPS ENTRY IN PTDIC FOR RESTART. C EXCLUDE FIRST NXVPS ENTRY C 865 PTDTOP = PTDTOP + 3 NOFIND = -1 CALL XFLDEF (NXVPS,NBLANK,NOFIND) PTDTOP = PTDTOP - 3 C C OVERLAY PTDIC TABLE WITH ICPDPL TABLE C ICPTOP = PTDTOP ICPBOT = ICPTOP - 3 LCPDPL = LPTDIC C C SCAN PTDIC FOR REUSE FLAGS C DO 870 J = PTDTOP,PTDBOT,3 IF (AND(PTDIC(J+2),REUSE) .EQ. 0) GO TO 870 C C REUSE FLAG UP - ENTER FILE IN ICPDPL C ICPBOT = ICPBOT + 3 ICPDPL(ICPBOT ) = PTDIC(J ) ICPDPL(ICPBOT+1) = PTDIC(J+1) ICPDPL(ICPBOT+2) = PTDIC(J+2) 870 CONTINUE C C ORDER FILES IN ICPDPL BY REEL/FILE NUMBER C IF (ICPBOT .LT. ICPTOP) GO TO 960 C C DO NOT DISTURB EXISTING ORDER C IF (ICPBOT .EQ. ICPTOP) GO TO 900 K = ICPTOP 881 L = K 882 IF (AND(ICPDPL(K+2),NOFLGS) .LE. AND(ICPDPL(K+5),NOFLGS)) 1 GO TO 890 C C SWITCH C DO 891 M = 1,3 J = K + M + 2 ITMP(1) = ICPDPL(J) ICPDPL(J) = ICPDPL(J-3) ICPDPL(J-3) = ITMP(1) 891 CONTINUE K = K - 3 IF (K .GE. ICPTOP) GO TO 882 890 K = L + 3 IF (K .LT. ICPBOT) GO TO 881 900 CONTINUE C C ENTER PURGED FILE IN FIAT IF THERE IS NO POSSIBLE WAY TO GENERATE C FILE C J1 = 2 J1 = OSCAR(J1) J2 = OSCAR(OSBOT+1) DO 950 I = ICPTOP,ICPBOT,3 IF (AND(ICPDPL(I+2),MASKHI) .NE. 0) GO TO 960 OSPNT = 1 DO 940 J = J1,J2 IF (AND(MASKHI,OSCAR(OSPNT+2)).GT.2 .OR. OSCAR(OSPNT+5).GE.0) 1 GO TO 940 C C SEE IF PURGED FILE IS IN I/P SECTION C K1 = OSPNT + 7 K2 = OSCAR(K1-1)*3 - 3 + K1 DO 910 K = K1,K2,3 IF (OSCAR(K).EQ.ICPDPL(I) .AND. OSCAR(K+1).EQ.ICPDPL(I+1)) 1 GO TO 930 910 CONTINUE C C PURGED FILE IS NOT IN I/P SECTION - SEARCH O/P SECTION FOR IT. C IF (AND(MASKHI,OSCAR(OSPNT+2)) .NE. 1) GO TO 940 K1 = OSCAR(OSPNT+6)*3 + OSPNT + 8 K2 = OSCAR(K1-1)*3 - 3 + K1 DO 920 K = K1,K2,3 IF (OSCAR(K).EQ.ICPDPL(I) .AND. OSCAR(K+1).EQ.ICPDPL(I+1)) 1 GO TO 950 920 CONTINUE GO TO 940 C C PURGED FILE FIRST USED AS INPUT - THEREFORE IT CANNOT BE GENERATED C ENTER PURGED FILE IN FIAT C 930 L = IFIAT(3)*ICFIAT + 4 IFIAT(3 ) = IFIAT(3) + 1 IFIAT(L ) = OR(MASKHI,OSCAR(K+2)) IFIAT(L+1) = OSCAR(K ) IFIAT(L+2) = OSCAR(K+1) GO TO 950 940 OSPNT = OSCAR(OSPNT) + OSPNT 950 CONTINUE 960 RETURN END ================================================ FILE: mis/xflszd.f ================================================ SUBROUTINE XFLSZD (FILE,IBLOCK,FILNAM) C C XFLSZD (EXECUTIVE FILE SIZE DETERMINATOR) ACCUMULATES THE C NUMBER OF BLOCKS USED FOR A FILE (FILE LT 0) IN THE FIAT OR C FOR A FILE (FILE GT 0) IN THE DATA POOL FILE. C IF FILE GT 0 IT IS THE INDEX OF THE FILE ON THE DATA POOL FILE C IF FILE = 0 THE NUMBER OF WORDS PER BLOCK IS RETURNED IN IBLOCK C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,ANDF COMMON / MACHIN/ MACH COMMON / XFIAT / FIAT(1) COMMON / XFIST / NFIST,LFIST,IFIST(1) COMMON / XDPL / POOL(1) COMMON / SYSTEM/ KYSTEM C DATA MASK / 32767 / C IF (FILE) 10,150,100 C C FILE IS IN THE FIAT C C COMMENTS FROM G.CHAN/UNIVAC 8/90 C VAX AND VAX-DERIVED MACHINES DO NOT SAVE ANY INFORMATION OF BLOCKS C USED IN FIAT 7TH AND 8TH WORDS. THEREFORE, IBLOCK IS ALWAYS ZERO. C 10 CONTINUE C LIM = 2*LFIST DO 30 I = 1,LIM,2 IF (FILNAM .NE. IFIST(I)) GO TO 30 IF (IFIST(I+1) .LE. 0) GO TO 50 INDX = IFIST(I+1) IBLOCK = RSHIFT(FIAT(INDX+7),16) + ANDF(MASK,FIAT(INDX+8)) + 1 RSHIFT(FIAT(INDX+8),16) C = BLOCK COUNT ON PRIMARY, SECONDARY AND TERTIARY FILES ?? C GO TO 200 30 CONTINUE 50 IBLOCK = 0 GO TO 200 C C FILE IS ON THE DATA POOL FILE C 100 INDX = FILE*3 + 3 IBLOCK = RSHIFT(POOL(INDX),16) GO TO 200 C C USER WANTS THE NUMBER OF WORDS PER BLOCK C 150 CONTINUE IF (MACH.EQ.2 .OR. MACH.GE.5) IBLOCK = KYSTEM - 4 200 RETURN END ================================================ FILE: mis/xgpi.f ================================================ SUBROUTINE XGPI C C THE PURPOSE OF XGPI IS TO INITIALIZE AND CALL THE FOLLOWING C SUBROUTINES - XOSGEN AND XFLORD. C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF LOGICAL LNOGO INTEGER CNM(1),FNM(1),PTDIC(1) DIMENSION ICPDPL(1),ISOL(1),ICF(1),ICCNAM(1),IBUFR(1), 1 IBF(8),IOSHDR(2),ITYPE(6),ITRL(7),DMPCRD(1), 2 MED(1),NXGPI(2),NXPTDC(2),OSCAR(1),OS(5) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /XOLDPT/ PTDTOP,PTDBOT,LPTDIC,NRLFL,SEQNO COMMON /STAPID/ TAPID(6),OTAPID(6) COMMON /XGPI5 / ISOL,START,ALTER(2),SOL,SUBSET,IFLAG,IESTIM, 1 ICFTOP,ICFPNT,LCTLFL,ICTLFL(1) COMMON /MODDMP/ IFLG(6) COMMON /XGPI6 / MEDTP,FNMTP,CNMTP,MEDPNT,LMED,IPLUS,DIAG14, 1 DIAG17,DIAG4,DIAG25,IFIRST,IBUFF(20) COMMON /XGPI8 / ICPTOP,ICPBOT,LCPDPL COMMON /IFPX0 / LBD,LCC,MJMSK(1) COMMON /IFPX1 / NCDS,MJCD(1) COMMON /TWO / TWO(32) COMMON /XMDMSK/ NMSKCD,NMSKFL,NMSKRF,MEDMSK(7) COMMON /SYSTEM/ IBUFSZ,OPTAPE,NOGO,SYS4,MPC,SPC,SYS7,LOAD,SYS9(2), 1 PAGECT,SYS12(7),IECHO,SYS20,APPRCH,SYS22(2), 2 ICFIAT,SYS25,CPPGCT,SYS27(42),SSCELL,SYS70(7), 3 BANDIT,SYS78(4),ICPFLG COMMON /L15 L8/ L15,L8 COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT, 1 IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD, 2 MODIDX,LICF,ISAVDW,DMAP(1) C C ** CONTROL CARD NAMES ** C ** DMAP CARD NAMES ** COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI, 1 NMED,NSOL,NDMAP,NESTM1,NESTM2,NEXIT, 2 NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT, 3 NCHKPT,NPURGE,NEQUIV,NCPW,NBPC,NWPC, 4 MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1) COMMON /ZZZZZZ/ CORE(1) COMMON /XGPI2 / LIBF,MPLPNT,MPL(1) CWKBR COMMON /XGPI3 / PVT(6) COMMON /XGPI3 / PVT(200) COMMON /XDPL / DPL(3) COMMON /XVPS / VPS(4) COMMON /XFIST / IFIST(1) COMMON /XFIAT / IFIAT(3) CWKBR COMMON /XCEITB/ CEITBL(2) COMMON /XCEITB/ CEITBL(42) COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP, 1 ISAVE,ITAPE,MODFLG,INTGR,LOSGN, 2 NOFLGS,SETEOR,EOTFLG,IEQFLG, 3 CPNTRY(7),JMP(7) COMMON /XGPIE / NSCR EQUIVALENCE (LOSCAR,OS(1),CORE(1)), (OSPRC,OS(2)), 1 (OSBOT ,OS(3)), (OSPNT,OS(4)), (OSCAR(1),OS(5)), 2 (OSCAR(1),MED(1),FNM(1),CNM(1),ICPDPL(1)), 3 (OSCAR(1),IBUFR(1),DMPCRD(1),PTDIC(1)) EQUIVALENCE (DMAP(1),ICF(1)), (NMED,ICCNAM(1)), 1 (MPL(1),IBF(1)), (DPL(1),NDPFIL), 2 (DPL(2),MAXDPL), (DPL(3),LSTDPL), (NOGO,LNOGO) C C ** DEFINITION OF PROGRAM VARIABLES ** C LICF = NUMBER OF WORDS IN ICF ARRAY C WRNGRL = COUNTER FOR NUMBER OF TIMES WRONG REEL WAS MOUNTED. C FILCON = FLAG INDICATING FILE IS CONTINUED ON NEXT REEL. C IDPFCT = DATA POOL FILE NUMBER OF OSCAR FILE C IOSHDR = ARRAY CONTAINING HEADER RECORD FOR XOSCAR FILE IN IDP. C PTFCT = PROBLEM TAPE FILE POSITION C EORFLG = END OF RECORD FLAG C ICST = COLD START FLAG C IUNST = UNMODIFIED RESTART C IMST = MODIFIED RESTART C C ** VARIABLES USED IN GINO CALLS ** C NPTBUF = NEW PROBLEM TAPE BUFFER AREA C IOPBUF = OLD PROBLEM TAPE BUFFER AREA C IDPBUF = DATA POOL FILE BUFFER AREA C NPTWRD = NUMBER OF WORDS READ FROM NEW PROBLEM TAPE C IOPWRD = NUMBER OF WORDS READ FROM OLD PROBLEM TAPE C IDPWRD = NUMBER OF WORDS READ FROM DATA POOL FILE C C ** SYMBOLS EQUATED TO CONSTANTS ** C NPT = NEW PROBLEM TAPE GINO I.D. NAME (NPTP) C IOP = OLD PROBLEM TAPE GINO I.D. NAME (OPTP) C IDP = DATA POOL FILE GINO I.D. NAME (POOL) C NSCR = SCRATCH FILE USED FOR RIGID FORMAT. DATA IN NSCR WAS C PASSED OVER BY XCSA. IT MUST BE THE LAST SCRATCH FILE C IN LINK1, AND NOT TO BE OVER WRITTEN BY XSORT2 C (CURRENTLY, NSCR = 315) C DATA JCARD ,JFILE / 4HCARD,4HFILE /, IDP /4HPOOL / DATA NPVT /4HPVT /, IXTIM /4HXTIM /, NPT /4HNPTP /, 1 IOP /4HOPTP /, IDPWRD/0 /, IOPWRD/0 /, 2 NDPL /4HDPL /, IOSHDR/4HXOSC , 4HAR /, 3 NPTWRD/0 /, FILCON/0 /, NXVPS /4HXVPS / DATA ITYPE /1,1,2,2 , 2,4 / DATA NXCSA /4HXCSA /, NXALTR/4HXALT /, NPARAM/216 / DATA NXPTDC/4HXPTD , 4HIC /,NXGPI / 4HXGPI,4H / C C C LOAD COMMON AREAS AND PERFORM INITIAL CALCULATIONS C CALL XGPIDD CALL XMPLDD CALL XLNKDD C C INITIALIZE C NSCR = 315 CALL SSWTCH ( 4,DIAG4 ) CALL SSWTCH (14,DIAG14) CALL SSWTCH (17,DIAG17) CALL SSWTCH (25,DIAG25) IF (DIAG14 .EQ. 1) IFLG(3) = 1 IF (DIAG17 .EQ. 1) IFLG(4) = 1 IF (DIAG4 .EQ. 1) IFLG(6) = 1 IF (DIAG4 .NE. 0) IFLG(5) = ORF(IFLG(5),LSHIFT(1,16)) IF (DIAG25 .EQ. 1) IFLG(5) = 1 C C SET DMAP COMPILER DEFAULT OPTION TO LIST FOR C APPROACH DMAP RUNS, RESTART RUNS AND SUBSTRUCTURE RUNS C RESET TO NO LIST IF ECHO=NONO (IECHO=-2) C IF (IECHO.NE.-2 .AND. (APPRCH.LT.2 .OR. SSCELL.NE.0)) IFLG(3) = 1 IF (DIAG14.EQ.0 .AND. IFLG(3).EQ.1) DIAG14 = 2 IF (IECHO .EQ. -2) DIAG14 = 0 CALL XGPIMW (1,0,0,0) C CALL XGPIBS IF (NOGO .GT. 1) GO TO 2210 C C SET UP GINO BUFFER AREAS FOR OLD PROBLEM TAPE,NEW PROBLEM TAPE C AND DATA POOL TAPE. C LOSCAR = KORSZ(IBUFR) NPTBUF = LOSCAR - IBUFSZ C C OLD PROBLEM TAPE AND NEW PROBLEM TAPE SHARE BUFFER C IOPBUF = NPTBUF IDPBUF = NPTBUF - IBUFSZ LOSCAR = IDPBUF - 1 C C ALLOW MINIMAL SIZE FOR MED ARRAY RESIDING IN OPEN CORE. C WE WILL EXPAND MED IF NECESSARY. C MEDTP = LOSCAR LMED = 1 IF (LOSCAR .LT. 1) GO TO 2080 C C OPEN NEW PROBLEM TAPE AS INPUT FILE C CALL OPEN (*1900,NPT,IBUFR(NPTBUF),0) C C NUMBER OF FILE ON NPT + 1 C NRLFL = LSHIFT(TAPID(6),16) + 5 C C FILE POSITION OF IOP AT ENTRY TO XGPI C PTFCT = LSHIFT(OTAPID(6),16) + 4 C C FIND XCSA FILE ON NEW PROBLEM TAPE C NAM1 = NXCSA NAM2 = NBLANK C C SKIP HEADER FILE C 10 CALL SKPFIL (NPT,1) CALL READ (*1950,*1950,NPT,ICF,1,1,NPTWRD) C C CHECK FOR ALTER FILE C SET DIAG14 TO 10 IF ALTER CARDS ARE PRESENT. DIAG14 WOULD BE C CHANGED TO 11 IF DMAP CONTAINS POTENTIAL FATAL ERROR. IN SUCH C CASE, DMAP LISTING WILL BE PRINTED. C IF (ICF(1) .NE. NXALTR) GO TO 15 NRLFL = NRLFL + 1 IF (DIAG14 .EQ. 0) DIAG14 = 10 C C CHECK FOR CHECKPOINT DICTIONARY FILE C 15 IF (ICF(1) .EQ. NXPTDC(1)) NRLFL = NRLFL + 1 C C CHECK FOR CONTROL FILE C IF (ICF(1) .NE. NXCSA) GO TO 10 C C PROBLEM TAPE IS POSITIONED AT EXECUTIVE CONTROL FILE. C ICFPNT = ICFTOP C C READ THE SIX-WORD DATA RECORD C CALL READ (*1950,*20,NPT,ISOL,7,1,NPTWRD) GO TO 1950 20 CALL CLOSE (NPT,1) IF (IABS(APPRCH) .EQ. 1) GO TO 620 C C FILL MED ARRAY C MEDTP = 1 C C SET VALUE FOR NUMBER OF WORDS PER MED ENTRY C MED(MEDTP+1) = 1 IF (START .NE. ICST) MED(MEDTP+1) = NMSKCD + NMSKFL + NMSKRF C CALL GOPEN (NSCR,IBUFR(NPTBUF),0) LLOSCR = LOSCAR - 2 C C READ THE MED TABLE C CALL READ (*1960,*30,NSCR,MED(MEDTP+2),LLOSCR,1,LMED) GO TO 2090 C C SET VALUE FOR NUMBER OF DMAP INSTRUCTIONS C 30 MED(MEDTP) = LMED/MED(MEDTP+1) C C CHECK FOR ILLEGAL NUMBER OF WORDS IN MED TABLE RECORD C IF (START.NE.ICST .AND. LMED.NE.MED(MEDTP)*MED(MEDTP+1)) 1 GO TO 1980 C C SET THE POINTERS TO THE FILE NAME AND CARD NAME TABLES C FNMTP = MEDTP + LMED + 2 CNMTP = FNMTP IF (START .EQ. ICST) GO TO 600 LLOSCR = LLOSCR - LMED C C READ THE FILE NAME TABLE C CALL SKPREC (NSCR,1) JTYPE = JFILE CALL READ (*1970,*40,NSCR,MED(FNMTP+1),LLOSCR,1,LMED) GO TO 2090 C C SET THE VALUE FOR THE NUMBER OF ENTRIES IN THE FILE NAME TABLE C 40 MED(FNMTP) = LMED/3 C C CHECK FOR ILLEGAL NUMBER OF WORDS IN FILE NAME TABLE RECORD C IF (LMED .NE. 3*MED(FNMTP)) GO TO 1990 C C CHECK FOR ILLEGAL BIT NUMBERS IN FILE NAME TABLE C ISTRBT = 31*NMSKCD + 1 IENDBT = 31*(NMSKCD+NMSKFL) DO 50 J = 3,LMED,3 IF (MED(FNMTP+J).LT.ISTRBT .OR. MED(FNMTP+J).GT.IENDBT) GO TO 2000 50 CONTINUE C C RESET THE POINTER FOR THE CARD NAME TABLE C CNMTP = FNMTP + 3*FNM(FNMTP) + 1 LLOSCR = LLOSCR - LMED C C READ THE CARD NAME TABLE C CALL SKPREC (NSCR,-2) JTYPE = JCARD CALL READ (*1970,*60,NSCR,MED(CNMTP+1),LLOSCR,1,LMED) GO TO 2090 C C SET THE VALUE FOR THE NUMBER OF ENTRIES IN THE CARD NAME TABLE C 60 MED(CNMTP) = LMED/3 C C CHECK FOR ILLEGAL NUMBER OF WORDS IN CARD NAME TABLE RECORD C IF (LMED .NE. 3*MED(CNMTP)) GO TO 1990 C C CHECK FOR ILLEGAL BIT NUMBERS IN CARD NAME TABLE C ISTRBT = 1 IENDBT = 31*NMSKCD DO 70 J = 3,LMED,3 IF (MED(CNMTP+J).LT.ISTRBT .OR. MED(CNMTP+J).GT.IENDBT) GO TO 2000 70 CONTINUE C C RESTART - CHECK MEDMSK TABLE C IF MEDMSK WORD(S), CORRESPONDING TO RIGID FORMAT SWITCH, IS(ARE) C NON-ZERO, SOLUTION HAS BEEN CHANGED. C RESET ENTRY SEQUENCE NO. TO INFINITE IF SOLUTION IS CHANGED. C NMASK = MED(MEDTP+1) IBEGN = NMSKCD + NMSKFL + 1 DO 80 I = IBEGN,NMASK IF (MEDMSK(I) .EQ. 0) GO TO 80 SEQNO = MASKLO START = IMST 80 CONTINUE C C SEE IF ANY BULK DATA OR CASE CONTROL CARDS HAVE BEEN MODIFIED. C BGNMSK = 1 ENDMSK = LBD + LCC C C TURN OFF BIT IN MJMSK ARRAY IF THE CORRESPONDING CARD NAME C IS NOT IN THE CARD NAME RESTART TABLE C I1 = CNMTP + 1 I2 = I1 + 3*CNM(CNMTP) - 3 DO 110 LX = BGNMSK,ENDMSK IF (MJMSK(LX) .EQ. 0) GO TO 110 L = LX - BGNMSK + 1 DO 100 L1 = 2,32 IF (ANDF(MJMSK(LX),TWO(L1)) .EQ. 0) GO TO 100 C C IGNORE BIT IF IT CORRESPONDS TO QOUT$ OR BOUT$ C IF (LX.EQ.LBD+2 .AND. (L1.EQ.3 .OR. L1.EQ.4)) GO TO 100 I = 62*(L-1) + 2*(L1-2) + 1 DO 90 II = I1,I2,3 IF (MJCD(I).EQ.CNM(II) .AND. MJCD(I+1).EQ.CNM(II+1)) GO TO 100 90 CONTINUE II = COMPLF(TWO(L1)) MJMSK(LX) = ANDF(MJMSK(LX),II) 100 CONTINUE 110 CONTINUE IF (START .EQ. IMST) GO TO 130 C C DETERMINE TYPE OF RESTART C INDEX = 0 IEND = LBD DO 120 L = BGNMSK,IEND IF (MJMSK(L) .EQ. 0) GO TO 120 INDEX = 1 GO TO 130 120 CONTINUE 130 L = LBD + 1 IF (START .EQ. IMST) GO TO 160 IF (INDEX .EQ. 1) GO TO 150 IF (MJMSK(L) .EQ. 0) GO TO 140 C C CHECK FOR NOLOOP$ AND LOOP$ C 2**21 IF (MJMSK(L).NE.1 .AND. MJMSK(L).NE.TWO(11)) GO TO 150 C C CHECK FOR GUST$ C 2**30 140 IF (MJMSK(L+1) .LT. TWO(2)) GO TO 170 150 START = IMST C C TURN ON POUT$ IF QOUT$ IS ON C 2**29 2**14 160 IF (ANDF(MJMSK(L+1),TWO(3)) .NE. 0) MJMSK(L)=ORF(MJMSK(L),TWO(18)) C C TURN ON AOUT$ IF BOUT$ IS ON C 2**28 2**22 IF (ANDF(MJMSK(L+1),TWO(4)) .NE. 0) MJMSK(L)=ORF(MJMSK(L),TWO(10)) C C TURN OFF BOUT$ AND QOUT$ C 2**28 2**29 II = COMPLF(TWO(4) + TWO(3)) MJMSK(L+1) = ANDF(MJMSK(L+1),II) C C TURN OFF NOLOOP$ FOR UNMODIFIED RESTARTS C 170 IF (START.EQ.IUNST .AND. MJMSK(LBD+1).EQ.1) MJMSK(LBD+1) = 0 180 CALL PAGE1 IF (START .NE. IUNST) GO TO 200 WRITE (OPTAPE,190) UIM 190 FORMAT (A29,' 4143, THIS IS AN UNMODIFIED RESTART.') BANDIT = -1 IF (APPRCH .EQ. -1) GO TO 700 GO TO 600 200 CALL PAGE2 (-2) IF (SEQNO .NE. MASKLO) WRITE (OPTAPE,210) UIM IF (SEQNO .EQ. MASKLO) WRITE (OPTAPE,220) UIM 210 FORMAT (A29,' 4144, THIS IS A MODIFIED RESTART.') 220 FORMAT (A29,' 4145, THIS IS A MODIFIED RESTART INVOLVING RIGID ', 1 'FORMAT SWITCH.') IBULK = 0 ICASE = 0 DO 230 L = 1,LBD IF (MJMSK(L) .EQ. 0) GO TO 230 IBULK = 1 GO TO 240 230 CONTINUE 240 LBD1 = LBD + 1 LBDLCC = LBD + LCC DO 250 L = LBD1,LBDLCC IF (MJMSK(L) .EQ. 0) GO TO 250 ICASE = 1 GO TO 260 250 CONTINUE 260 IF (IBULK.NE.0 .OR. ICASE.NE.0) GO TO 290 IF (SEQNO .EQ. MASKLO) GO TO 270 WRITE (OPTAPE,460) CALL MESAGE (-61,0,0) 270 WRITE (OPTAPE,280) UIM 280 FORMAT (A29,'. THERE ARE NO CASE CONTROL OR BULK DATA DECK ', 1 'CHANGES AFFECTING THIS RESTART.') GO TO 600 290 CALL PAGE2 (-4) WRITE (OPTAPE,300) UIM 300 FORMAT (A29,'. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING', 1 ' THIS RESTART ARE INDICATED BELOW.',/) DO 500 LLX = 1,2 IF (LLX .EQ. 1) GO TO 360 CALL PAGE2 (-3) WRITE (OPTAPE,310) UIM 310 FORMAT (A29,'. EFFECTIVE BULK DATA DECK CHANGES', /1X,32(1H-)) IF (IBULK .NE. 0) GO TO 330 CALL PAGE2 (-3) WRITE (OPTAPE,320) 320 FORMAT (//,' NONE',/) GO TO 500 330 CALL PAGE2 (-3) IF (APPRCH .NE. -1) WRITE (OPTAPE,340) IF (APPRCH .EQ. -1) WRITE (OPTAPE,350) 340 FORMAT (//,' MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED', 1 ' BIT POSITION',/) 350 FORMAT (//,' MASK WORD - BIT POSITION - CARD/PARAM NAME',/) LIM1 = 1 LIM2 = LBD GO TO 410 360 CALL PAGE2 (-3) WRITE (OPTAPE,370) UIM 370 FORMAT (A29,'. EFFECTIVE CASE CONTROL DECK CHANGES', /1X,35(1H-)) IF (ICASE .NE. 0) GO TO 380 CALL PAGE2 (-3) WRITE (OPTAPE,320) GO TO 500 380 CALL PAGE2 (-3) IF (APPRCH .NE. -1) WRITE (OPTAPE,390) IF (APPRCH .EQ. -1) WRITE (OPTAPE,400) 390 FORMAT (//,' MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED', 1 ' BIT POSITION',/) 400 FORMAT (//,' MASK WORD - BIT POSITION ---- FLAG NAME',/) LIM1 = LBD1 LIM2 = LBDLCC 410 DO 490 L = LIM1,LIM2 IF (MJMSK(L) .EQ. 0) GO TO 490 CALL PAGE2 (-1) WRITE (OPTAPE,420) L 420 FORMAT (1X,I5) DO 480 K = 2,32 IF (ANDF(MJMSK(L),TWO(K)) .EQ. 0) GO TO 480 C C GET CORRESPONDING CARD NAME FROM MAIN CARD TABLE C I = 62*(L-1) + 2*(K-2) + 1 KZ = K - 1 CALL PAGE2 (-1) IF (APPRCH .NE. -1) GO TO 430 WRITE (OPTAPE,440) KZ,MJCD(I),MJCD(I+1) GO TO 480 C C SEARCH RIGID FORMAT CARD NAME RESTART TABLE FOR A MATCH C 430 DO 450 II = I1,I2,3 IF (MJCD(I).NE.CNM(II) .OR. MJCD(I+1).NE.CNM(II+1)) GO TO 450 C C CARD NAME FOUND - SET BIT IN MEDMSK C WRITE (OPTAPE,440) KZ,MJCD(I),MJCD(I+1),CNM(II+2) 440 FORMAT (17X,I3,11X,2A4,14X,I3) L1 = (CNM(II+2)-1)/31 LL = L1 + 1 KK = CNM(II+2) - 31*L1 + 1 MEDMSK(LL) = ORF(MEDMSK(LL),TWO(KK)) GO TO 480 450 CONTINUE WRITE (OPTAPE,460) SFM 460 FORMAT (A25,' 4146, LOGIC ERROR IN SUBROUTINE XGPI WHILE ', 1 'PROCESSING DATA CHANGES FOR MODIFIED RESTART.') WRITE (OPTAPE,470) MJCD(I),MJCD(I+1),(CNM(LL),CNM(LL+1), 1 LL=I1,I2,3) 470 FORMAT (/10X,2A4, //,10(4X,2A4)) CALL MESAGE (-61,0,0) 480 CONTINUE 490 CONTINUE 500 CONTINUE IF (APPRCH .EQ. -1) GO TO 700 C C MOVE MED AND FILE NAME TABLES TO BOTTOM OF OPEN CORE. C 600 CALL CLOSE (NSCR,1) LMED = CNMTP - MEDTP DO 610 I = 1,LMED LL = MEDTP + LMED - I M = LOSCAR - I + 1 610 MED(M) = MED(LL) MEDTP = LOSCAR - LMED + 1 FNMTP = MEDTP + MED(MEDTP)*MED(MEDTP+1) + 2 LOSCAR = MEDTP - 1 C C DETERMINE TYPE OF RESTART IF IT IS A RESTART OF A DMAP RUN C 620 IF (APPRCH .NE. -1) GO TO 700 IF (MJMSK(LBD+1) .EQ. 0) GO TO 630 C C CHECK FOR NOLOOP$ AND LOOP$ C 2**21 IF (MJMSK(LBD+1).NE.1 .AND. MJMSK(LBD+1).NE.TWO(11)) GO TO 650 MJMSK(LBD+1) = 0 C C CHECK FOR GUST$ C 2**30 630 IF (MJMSK(LBD+2) .GE. TWO(2)) GO TO 650 DO 640 L = 1,LBD IF (MJMSK(L) .NE. 0) GO TO 650 640 CONTINUE GO TO 180 650 START = IMST SEQNO = LSHIFT(1,16) GO TO 180 C C CONTROL FILE LOADED, LOAD PVT TABLE C BUMP NUMBER OF FILES IF OLD PROBLEM TAPE HAD ALTERS C 700 PTFCT = PTFCT + ALTER(2) ITRL(1) = NPARAM CALL RDTRL (ITRL(1)) IF (ITRL(2) .LE. 0) GO TO 760 CALL OPEN (*1900,NPARAM,IBUFR(NPTBUF),0) CALL READ (*760,*710,NPARAM,PVT(6),2,1,NPTWRD) 710 IF (PVT(6) .NE. NPVT) GO TO 1950 I = 3 C C LOAD PVT VALUES INTO PVT TABLES C 720 CALL READ (*740,*730,NPARAM,PVT(I),PVT(1)-I+1,0,NPTWRD) GO TO 2020 730 I = I + NPTWRD GO TO 720 740 PVT(2) = I - 1 CALL CLOSE (NPARAM,1) C C ELIMINATE TRAILER SO FILE WILL BE DELETED C DO 750 I = 2,7 750 ITRL(I) = 0 CALL WRTTRL (ITRL(1)) 760 CONTINUE IF (START .EQ. ICST) GO TO 1000 IF (APPRCH.EQ.-1 .AND. START.EQ.IMST) GO TO 1000 C C INITIALIZE VPS TABLE FOR RESTART C GET FIRST ENTRY IN CHECKPOINT DICTIONARY C PTDTOP = 1 ASSIGN 770 TO IRTURN GO TO 1090 770 I = PTDTOP IF (PTDIC(PTDTOP) .NE. NXVPS) GO TO 1000 C C FIRST ENTRY IN CHECKPOINT DICTIONARY IS XVPS - GET FILE OFF OF OLD C PROBLEM TAPE, OPTP C CALL OPEN (*1910,IOP,IBUFR(IOPBUF),2) C C CHECK TO SEE IF OLD RESTART TAPE HAS PVT J = 0 WITHOUT PVT C J = ANDF(MASKHI,PTDIC(PTDTOP+2)) - (ANDF(MASKHI,PTFCT)+1) PTFCT = PTFCT + J CALL SKPFIL (IOP,J) CALL READ (*2060,*780,IOP,VPS(3),2,1,IOPWRD) 780 IF (VPS(3).NE.NXVPS .OR. VPS(4).NE.NBLANK) GO TO 2060 J = VPS(1) CALL READ (*2060,*790,IOP,VPS,J,1,IOPWRD) 790 CALL SKPFIL (IOP,1) CALL CLOSE (IOP,2) PTFCT = PTFCT + 1 VPS(1) = J C C FOR RESTART COMPARE PVT VALUES WITH VPS VALUES. IF NOT EQUAL SET C MODFLG INVPS ENTRY. C IF (PVT(2) .LE. 2) GO TO 850 I = 3 800 J = 3 810 IF (PVT(2) .LT. J) GO TO 840 IF (PVT(J).EQ.VPS(I) .AND. PVT(J+1).EQ.VPS(I+1)) GO TO 820 JJ = ANDF(PVT(J+2),NOSGN) J = J + ITYPE(JJ) + 3 GO TO 810 C C FOUND VARIABLE IN PVT TABLE C 820 L = ANDF(VPS(I+2),MASKHI) PVT(J+2) = ORF(PVT(J+2),ISGNON) DO 830 LL = 1,L II = I + LL + 2 JJ = J + LL + 2 VPS(I+2) = ORF(VPS(I+2),MODFLG) VPS(II ) = PVT(JJ) 830 CONTINUE 840 I = I + ANDF(VPS(I+2),MASKHI) + 3 IF (I .LT. VPS(2)) GO TO 800 850 I = LBD + LCC + 1 IPARPT = MJMSK(I) IPARW1 = (IPARPT-1)/31 + 1 IPARW2 = LBD IPARBT = MOD(IPARPT-1,31) + 2 IDELET = 0 DO 860 J1 = IPARW1,IPARW2 IF (MJMSK(J1) .NE. 0) GO TO 870 860 CONTINUE IDELET = 1 GO TO 1000 870 DO 920 J1 = IPARW1,IPARW2 IF (MJMSK(J1) .EQ. 0) GO TO 910 DO 900 I1 = IPARBT,32 IF (ANDF(MJMSK(J1),TWO(I1)) .EQ. 0) GO TO 900 NAMPT = 2*(31*(J1-1)+I1-1) - 1 I2 = 3 880 IF (MJCD(NAMPT).NE.VPS(I2) .OR. MJCD(NAMPT+1).NE.VPS(I2+1)) 1 GO TO 890 IF (ANDF(VPS(I2+2),TWO(2)) .NE. 0) GO TO 900 VPS(I2 ) = NBLANK VPS(I2+1) = NBLANK GO TO 900 890 I2 = I2 + ANDF(VPS(I2+2),MASKHI) + 3 IF (I2 .LT. VPS(2)) GO TO 880 900 CONTINUE 910 IPARBT = 2 920 CONTINUE C C DMAP SEQUENCE COMPILATION - PHASE 1 C *********************************** C C GENERATE OSCAR C POSITION NEW PROBLEM TAPE AT ALTER FILE IF IT EXISTS C 1000 IF (ALTER(1) .EQ. 0) GO TO 1030 NAM1 = NXALTR NAM2 = NBLANK CALL OPEN (*1900,NPT,IBUFR(NPTBUF),0) 1010 CALL SKPFIL (NPT,1) CALL READ (*1950,*1020,NPT,ICF,2,1,NPTWRD) 1020 IF (ICF(1) .NE. NXALTR) GO TO 1010 C C ALTER FILE FOUND - INITIALIZE ALTER CELLS C CALL READ (*1950,*1950,NPT,ALTER,2,1,NPTWRD) 1030 CALL OPEN (*2010,NSCR,IBUFR(IDPBUF),0) CALL XGPIMW (1,1,0,0) CALL XOSGEN IF (START .EQ. ICST) GO TO 1050 DO 1040 I = 1,NMASK MEDMSK(I) = 0 1040 CONTINUE 1050 IF (ALTER(1) .EQ. 0) GO TO 1060 CALL CLOSE (NPT,2) 1060 CONTINUE IF (PVT(2) .LE. 2) GO TO 1080 J = 5 1070 IF (PVT(2) .LT. J) GO TO 1080 IF (PVT(J) .GE. 0) CALL XGPIDG (-54,0,PVT(J-2),PVT(J-1)) JJ = ANDF(PVT(J),NOSGN) J = J + ITYPE(JJ) + 3 GO TO 1070 1080 IF (NOGO .EQ. 2) GO TO 2210 CALL CLOSE (NSCR,1) IF (START .NE. ICST) CALL XGPIMW (2,0,0,0) CALL XGPIMW (1,0,0,0) C C ALLOW MINIMAL SIZE FOR PTDIC ARRAY IN OPEN CORE. C WE WILL EXPAND IF THIS IS RESTART. C PTDTOP = OSCAR(OSBOT) + OSBOT PTDBOT = PTDTOP LPTDIC = 3 ASSIGN 1130 TO IRTURN C 1090 IF (START .EQ. ICST) GO TO 1130 C C RESTART - LOAD OLD PROBLEM TAPE DICTIONARY INTO OPEN CORE. C CALL OPEN (*1900,NPT,IBUFR(NPTBUF),0) C C FIND XPTDIC ON NEW PROBLEM TAPE C NAM1 = NXPTDC(1) NAM2 = NXPTDC(2) 1100 CALL SKPFIL (NPT,1) CALL READ (*1950,*1110,NPT,PTDIC(PTDTOP),2,1,NPTWRD) 1110 IF (PTDIC(PTDTOP) .EQ. NXCSA) GO TO 1950 IF (PTDIC(PTDTOP) .NE. NXPTDC(1)) GO TO 1100 C C FOUND XPTDIC C LPTDIC = LOSCAR - PTDTOP CALL READ (*1950,*1120,NPT,PTDIC(PTDTOP),LPTDIC,1,NPTWRD) GO TO 2030 1120 PTDBOT = PTDTOP + NPTWRD - 3 CALL CLOSE (NPT,1) GO TO IRTURN, (770,1130) C C IF BOTH DIAGS 14 AND 20 ARE ON, TERMINATE JOB C 1130 IF (DIAG14 .NE. 1) GO TO 1200 CALL SSWTCH (20,I) IF (I .EQ. 0) GO TO 1200 WRITE (OPTAPE,1140) 1140 FORMAT (//' *** JOB TERMINATED BY DIAG 20',//) CALL PEXIT C C DMAP SEQUENCE COMPILATION - PHASE 2 C *********************************** C C COMPUTE NTU AND LTU FOR DATA SETS IN OSCAR C 1200 IF (NOGO.NE.0 .AND. START.NE.ICST .AND. PTDTOP.EQ.PTDBOT) 1 GO TO 2210 CALL XFLORD IF (DIAG14 .EQ. 11) GO TO 2120 IF (NOGO.NE.0 .OR. LNOGO) GO TO 2210 IF (DIAG4 .NE. 0) CALL DUMPER C C PURGE ALL FILES IN FIAT TABLE THAT HAVE NOT BEEN GENERATED BY C IFP SUBROUTINE C I = IFIAT(1)*ICFIAT - 2 DO 1230 K = 4,I,ICFIAT IF (IFIAT(K+1) .EQ. 0) GO TO 1210 IF (IFIAT(K+3).NE.0 .OR. IFIAT(K+4).NE.0 .OR. IFIAT(K+5).NE.0) 1 GO TO 1230 IF (ICFIAT.EQ.11 .AND. (IFIAT(K+8).NE.0 .OR. IFIAT(K+9).NE.0 .OR. 1 IFIAT(K+10).NE.0)) GO TO 1230 C C FILE NOT GENERATED - PURGE IT. C K1 = IFIAT(3)*ICFIAT + 4 IFIAT(3) = IFIAT(3) + 1 IFIAT(K1) = ORF( ANDF(IFIAT(K),MASKLO),MASKHI) IFIAT(K ) = ANDF(IFIAT(K),ORF(MASKHI,LOSGN)) IFIAT(K1+1) = IFIAT(K+1) IFIAT(K1+2) = IFIAT(K+2) C C MAKE SURE NO RESIDUE LEFT IN FIAT TABLE C 1210 J1 = K + 1 J2 = K + ICFIAT - 1 DO 1220 J = J1,J2 1220 IFIAT(J) = 0 C 1230 CONTINUE C C WRITE OSCAR ON DATA POOL FILE. C C PUT OSCAR NAME IN DPL AND ASSIGN FILE NO. C LSTDPL = LSTDPL + 1 I = LSTDPL*3 + 1 DPL(I ) = IOSHDR(1) DPL(I+1) = IOSHDR(2) DPL(I+2) = NDPFIL NDPFIL = 1 + NDPFIL C C WRITE OSCAR HEADER RECORD C POSITION FILE C IF (NDPFIL .EQ. 2) GO TO 1240 CALL OPEN (*1940,IDP,IBUFR(IDPBUF),0) CALL SKPFIL (IDP,NDPFIL-2) CALL CLOSE (IDP,2) 1240 IDPFCT = NDPFIL - 1 CALL OPEN (*1940,IDP,IBUFR(IDPBUF),3) CALL WRITE (IDP,IOSHDR,2,1) C C IF CHECKPOINT AND RESTART FLAGS ARE ON INSERT CHECKPOINT ENTRY IN C OSCAR TO SAVE FILES LISTED IN ICPDPL TABLE C IF (START .EQ. ICST) GO TO 1290 IF (ICPBOT.GE.ICPTOP .AND. ICPFLG.NE.0) GO TO 1250 CPNTRY(6) = 1 CALL WRITE (IDP,CPNTRY,6,1) GO TO 1270 C C CHECKPOINT ALL FILES LISTED IN ICPDPL C 1250 CPNTRY(7) = (ICPBOT - ICPTOP + 3)/3 CPNTRY(1) = 7 + CPNTRY(7)*2 C C FOR UNMODIFIED RESTART - DMAP SEQUENCE NO. OF THIS INITIAL C CHECKPOINT MUST = REENTRY POINT - 1 C IF (START .EQ. IUNST) 1 CPNTRY(6) = ORF(ISGNON,RSHIFT(ANDF(SEQNO,MASKLO),16)-1) CALL WRITE (IDP,CPNTRY,7,0) DO 1260 I = ICPTOP,ICPBOT,3 1260 CALL WRITE (IDP,ICPDPL(I),2,0) CALL WRITE (IDP,0,0,1) C C FOR RESTART - INSERT JUMP IN OSCAR TO POSITION OSCAR AT CORRECT C REENTRY POINT C FOR MODIFIED RESTART - START AT FIRST EXECUTABLE MODULE C 1270 IF (START .EQ. IMST) JMP(6) = 1 C C SEE IF RE-ENTRY POINT IS WITHIN BOUNDS UNLESS SOLUTION CHANGED. C IF (ANDF(SEQNO,MASKLO) .EQ. MASKLO) GO TO 1280 I = ANDF(SEQNO,MASKHI) IF (I.GT.OSCAR(OSBOT+1) .OR. I.EQ.0) GO TO 2110 JMP(7) = LSHIFT(I,16) 1280 CALL WRITE (IDP,JMP,7,1) 1290 OSPNT = 1 C C WRITE NEXT OSCAR ENTRY ON DATA POOL TAPE C 1300 CALL WRITE (IDP,OSCAR(OSPNT),OSCAR(OSPNT),1) IF (OSCAR(OSPNT+3) .EQ. IXTIM) GO TO 1330 I = ANDF(OSCAR(OSPNT+2),MASKHI) IF (I.GT.2 .OR. OSCAR(OSPNT+5).GE.0) GO TO 1340 C C MAKE SURE SYSTEM HAS ENOUGH FILES AVAILABLE TO HANDLE MODULE C REQUIREMENTS. C COUNT NUMBER OF I/P AND O/P FILES NEEDED C J1 = 2 IF (I .EQ. 2) J1 = 1 K = 0 L = OSPNT + 6 DO 1320 J = 1,J1 L2 = OSCAR(L)*3 - 2 + L L1 = L + 1 IF (OSCAR(L1-1) .EQ. 0) GO TO 1320 DO 1310 L = L1,L2,3 IF (OSCAR(L) .NE. 0) K = K + 1 1310 CONTINUE 1320 L = L2 + 3 C C ADD ON NUMBER OF SCRATCH FILES NEEDED C K = K + OSCAR(L) IF (IFIAT(1) .LT. K) GO TO 2070 GO TO 1340 C C OSCAR ENTRY IS XTIME, COMPUTE ROUGH TIME ESTIMATES FOR MODULES IN C TIME SEGMENT, AND C WRITE XTIME HEADER AND TIME ESTIMATES ONTO DATA POOL C (THIS SECTION TEMPORARILY OMITTED) C 1330 GO TO 1340 C C INCREMENT OSPNT AND CHECK FOR END OF OSCAR C 1340 OSPNT = OSPNT + OSCAR(OSPNT) IF (OSPNT-OSBOT) 1300,1300,1350 1350 CALL EOF (IDP) IF (START .EQ. ICST) GO TO 1800 C C C *** RESTART *** C IF (ICPBOT .LT. ICPTOP) GO TO 1800 C C LIST ICPDPL CONTENTS C CALL XGPIMW (8,ICPTOP,ICPBOT,ICPDPL) C C ELIMINATE PURGED FILES FROM ICPDPL C I1 = ICPTOP DO 1400 I = I1,ICPBOT,3 IF (ANDF(ICPDPL(I+2),MASKHI) .NE. 0) GO TO 1410 1400 ICPTOP = ICPTOP + 3 1410 IF (ICPBOT .LT. ICPTOP) GO TO 1800 CALL CLOSE (IDP,2) IB1S = IDPBUF IDPBUF = ICPBOT + 3 IOPBUF = IDPBUF + IBUFSZ CALL GOPEN (IDP,IBUFR(IDPBUF),3) C C TRANSFER CHECKPOINT INFO FROM OLD PROBLEM TAPE TO DATA POOL TAPE C K = LSTDPL*3 + 4 CALL OPEN (*1910,IOP,IBUFR(IOPBUF),2) DO 1580 I = ICPTOP,ICPBOT,3 DPL(K+2) = 0 IF (ANDF(ICPDPL(I+2),NOFLGS) .GT. PTFCT) GO TO 1420 C C FILE IS EQUIVALENCED TO PREVIOUS ENTRY IN DPL C NDPFIL = NDPFIL - 1 DPL(K+2) = DPL(K-1) GO TO 1570 C C MAKE SURE CORRECT REEL IS MOUNTED FOR OLD PROBLEM TAPE C 1420 IF (ANDF(ANDF(NOFLGS,MASKLO),ICPDPL(I+2)) .EQ. ANDF(MASKLO,PTFCT)) 1 GO TO 1480 C C ** NEW REEL NEEDED ** C MOUNT REEL SPECIFIED BY ICPDPL ENTRY C OTAPID(6) = RSHIFT(ANDF(NOFLGS,ICPDPL(I+2)),16) WRNGRL = 0 C C SEND OPERATOR MESSAGE C 1430 CALL XEOT (IOP,RSHIFT(PTFCT,16),OTAPID(6),IBUFR(IOPBUF)) CALL OPEN (*1910,IOP,IBUFR(IOPBUF),0) CALL READ (*2050,*1440,IOP,IBF,LIBF,0,IOPWRD) C C SEE THAT CORRECT REEL HAS BEEN MOUNTED. C 1440 DO 1450 II = 1,6 IF (OTAPID(II) .NE. IBF(II)) GO TO 1460 1450 CONTINUE GO TO 1470 1460 WRNGRL = WRNGRL + 1 IF (WRNGRL .LT. 2) GO TO 1430 GO TO 2100 C C CORRECT REEL MOUNTED - CARRY ON C 1470 CALL SKPFIL (IOP,1) PTFCT = LSHIFT(OTAPID(6),16) + 1 IF (FILCON) 1560,1480,1560 C C WRITE FILE ON DATA POOL C 1480 CALL SKPFIL (IOP,ANDF(MASKHI,ICPDPL(I+2))-(ANDF(MASKHI,PTFCT)+1)) C C CHECK FOR CORRECT FILE C C 5 OR 8 WORDS (DEPEND ON ICFIAT VALUE OF 8 OR 11) WRITTEN TO IOP C BY XCHK OF PREVIOUS CHECKPOINT RUN. C IF ICFIAT=11, READ 5 WORDS HERE FIRST, AND CHECK IF THERE ARE 3 C MORE WORDS BEHIND. I.E. OPTP MAY BE WRITTEN WITH A 5-WORD RECORD C IF ICFIAT= 8, READ 5 WORDS C IF (ICFIAT .EQ. 11) GO TO 1490 CALL READ (*2050,*2050,IOP,IBF,5,1,IOPWRD) IBF(8) = 0 GO TO 1510 1490 IBF(8) = -999 CALL READ (*2050,*2050,IOP,IBF(1),5,0,IOPWRD) CALL READ (*2050,*1510,IOP,IBF(6),3,1,IOPWRD) C 1510 DO 1520 II = I,ICPBOT,3 IF (IBF(1).EQ.ICPDPL(II) .AND. IBF(2).EQ.ICPDPL(II+1)) GO TO 1530 1520 CONTINUE GO TO 2050 C C A 5-WORD RECORD READ, EXPANDED (THE TRAILERS) TO 8 WORDS C 1530 IF (IBF(8) .NE. -999) GO TO 1540 IBF(8) = ANDF(IBF(5),65535) IBF(7) = RSHIFT(IBF(5),16) IBF(6) = ANDF(IBF(4),65535) IBF(5) = RSHIFT(IBF(4),16) IBF(4) = ANDF(IBF(3),65535) IBF(3) = RSHIFT(IBF(3),16) C C COPY FILE TO POOL C 1540 CALL WRITE (IDP,IBF,ICFIAT-3,1) 1560 CALL CPYFIL (IOP,IDP,IBF,LIBF,IOPWRD) DPL(K+2) = DPL(K+2) + IOPWRD/1000 + 1 C C FILE ALL ON DATA POOL TAPE C CALL EOF (IDP) FILCON = 0 C C MAKE DPL ENTRY FOR ICPDPL ENTRY C DPL(K+2) = ORF(ORF(LSHIFT(DPL(K+2),16),NDPFIL), 1 ANDF(ICPDPL(I+2),IEQFLG)) 1570 DPL(K ) = ICPDPL(I ) DPL(K+1) = ICPDPL(I+1) IF (L8 .NE. 0) CALL CONMSG (DPL(K),2,0) K = K + 3 NDPFIL = NDPFIL + 1 LSTDPL = 1 + LSTDPL IF (LSTDPL .GT. MAXDPL) GO TO 2040 PTFCT = ANDF(NOFLGS,ICPDPL(I+2)) 1580 CONTINUE C C FILES ALL COPIED OVER FROM OLD PROBLEM TAPE TO DATA POOL TAPE. C CALL CLOSE (IOP,1) C C SEE IF XVPS IS ON POOL TAPE C K = LSTDPL*3 + 1 L = NDPFIL IF (DPL(K) .NE. NXVPS) GO TO 1590 C C VPS FILE IS LAST ENTRY IN DPL - DELETE ENTRY C LSTDPL = LSTDPL - 1 NDPFIL = NDPFIL - 1 J = K GO TO 1620 C C VPS FILE IS NOT LAST ENTRY IN DPL - SEARCH DPL FOR IT C 1590 DO 1600 J = 4,K,3 IF (DPL(J) .EQ. NXVPS) GO TO 1610 1600 CONTINUE C C NO RESTART VPS TABLE C GO TO 1800 C C XVPS FOUND - ZERO NAME WHEN NOT LAST ENTRY IN DPL C 1610 DPL(J ) = 0 DPL(J+1) = 0 C C XVPS FILE FOUND IN DPL - POSITION POOL TAPE AND INITIALIZE C VPS TABLE WITH CHECKPOINT VALUES C 1620 CALL CLOSE (IDP,3) CALL OPEN (*1940,IDP,IBUFR(IDPBUF),2) CALL SKPFIL (IDP,ANDF(DPL(J+2),MASKHI)-L-1) NAM1 = NXVPS NAM2 = NBLANK CALL SKPFIL (IDP,1) CALL READ (*1930,*1630,IDP,IBF,LIBF,1,IDPWRD) 1630 IF (IBF(1) .NE. NXVPS) GO TO 1930 CALL READ (*1930,*1640,IDP,IBF,LIBF,1,IDPWRD) C C COMPARE RESTART PARAMETER NAMES WITH VPS NAMES C 1640 K = 3 1650 J = 3 IF (ANDF(VPS(K+2),MODFLG) .EQ. MODFLG) GO TO 1730 1660 IF (IBF(2) .LT. J) GO TO 1730 IF (IBF(J).EQ.VPS(K) .AND. IBF(J+1).EQ.VPS(K+1)) GO TO 1670 J = J + IBF(J+2) + 3 GO TO 1660 C C PARAMETER NAMES MATCH AND MODFLG NOT ON - INITIALIZE VPS WITH C RESTART VALUE. C 1670 L = IBF(J+2) IF (IDELET .EQ. 1) GO TO 1710 IPARBT = MOD(IPARPT-1,31) + 2 DO 1700 JJJ = IPARW1,IPARW2 IF (MJMSK(JJJ) .EQ. 0) GO TO 1690 DO 1680 III = IPARBT,32 IF (ANDF(MJMSK(JJJ),TWO(III)) .EQ. 0) GO TO 1680 NAMPT = 2*(31*(JJJ-1) + III - 1) - 1 IF (MJCD(NAMPT).EQ.VPS(K) .AND. MJCD(NAMPT+1).EQ.VPS(K+1)) 1 GO TO 1730 1680 CONTINUE 1690 IPARBT = 2 1700 CONTINUE 1710 DO 1720 M = 1,L J1 = M + 2 + J K1 = M + 2 + K 1720 VPS(K1) = IBF(J1) C C CLEAR FLAGS AND TYPE CODE IN VPS ENTRY AND GET NEXT ENTRY. C 1730 VPS(K+2) = ANDF(VPS(K+2),MASKHI) K = K + VPS(K+2) + 3 IF (K .LT. VPS(2)) GO TO 1650 C C FOR UNMODIFIED RESTART LOAD CEITBL FROM LAST CHECKPOINT C CALL READ (*1930,*1740,IDP,IBF,LIBF,1,IDPWRD) 1740 IF (START .EQ. IMST) GO TO 1770 K1 = CEITBL(2) J1 = IBF(2) C C FOR RESTART INITIALIZE REPT LOOP COUNTS WITH CHECKPOINT INFO C DO 1760 J = 3,J1,4 DO 1750 K = 3,K1,4 IF (CEITBL(K+2).EQ.IBF(J+2) .AND. CEITBL(K+3).EQ.IBF(J+3) .AND. 1 IBF(J+2).NE.0) CEITBL(K+1) = IBF(J+1) 1750 CONTINUE 1760 CONTINUE C C FOR BOTH MOD AND UNMOD RESTART - LOAD VARIOUS CELLS IN /SYSTEM/ C WITH LAST CHECKPOINT INFO C 1770 CALL READ (*1790,*1780,IDP,IBF,LIBF,1,IDPWRD) 1780 MPC = IBF(5) SPC = IBF(6) LOAD = IBF(8) 1790 CONTINUE CALL CLOSE (IDP,1) IDPBUF = IB1S C C C POSITION DATA POOL TAPE AT FIRST OSCAR ENTRY C 1800 CALL CLOSE (IDP,1) C C *** FIRST, PRODUCE DMAP XREF IF REQUESTED C CALL OPEN (*1940,IDP,IBUFR(IDPBUF),2) CALL SKPFIL (IDP,IDPFCT-1) CALL FWDREC (*1920,IDP) IF (ANDF(IFLG(5),1) .NE. 0) CALL OSCXRF (IDPFCT-1,IDPBUF-1) CALL CLOSE (IDP,2) C C WRITE VPS TABLE ON NEW PROBLEM TAPE IF CHECKPOINT FLAG ES SET C CLEAR FLAGS IN VPS C K = 3 1810 VPS(K+2) = ANDF(VPS(K+2),MASKHI) K = K + VPS(K+2) + 3 IF (K .LT. VPS(2)) GO TO 1810 IF (ICPFLG .EQ. 0) GO TO 1820 C C POSITION TAPE FOR WRITING XVPS C CALL OPEN (*1900,NPT,IBUFR(NPTBUF),0) CALL SKPFIL (NPT,ANDF(NRLFL,MASKHI)-1) CALL CLOSE (NPT,2) CALL OPEN (*1900,NPT,IBUFR(NPTBUF),3) IBF(1) = NXVPS IBF(2) = NBLANK CALL WRITE (NPT,IBF,2,1) CALL WRITE (NPT,VPS,VPS(2),1) C C WRITE CEITBL TABLE ON NEW PROBLEM TAPE C CALL WRITE (NPT,CEITBL,CEITBL(2),1) CALL EOF (NPT) CALL CLOSE (NPT,2) C C INITIALIZE CHECKPOINT PARAMETERS FOR XCHK AND XCEI ROUTINES C PTDIC(PTDTOP ) = NXVPS PTDIC(PTDTOP+1) = NBLANK PTDIC(PTDTOP+2) = NRLFL NRLFL = NRLFL + 1 SEQNO = 1 C C WRITE NEW DICTIONARY ON XPTD C CALL OPEN (*1900,NXPTDC,IBUFR(NPTBUF),1) CALL WRITE (NXPTDC,NXPTDC,2,1) CALL WRITE (NXPTDC,NRLFL, 2,1) CALL WRITE (NXPTDC,PTDIC(PTDTOP),3,1) CALL CLOSE (NXPTDC,1) C C PUNCH DICTIONARY ENTRY FOR XVPS TABLE C NFILE = ANDF(MASKHI,PTDIC(PTDTOP+2)) 1820 CONTINUE IF (NOGO.NE.0 .OR. LNOGO) GO TO 2210 CALL XGPIMW (9,NFILE,ICPFLG,IFIAT) CPPGCT = PAGECT IF (IFLG(1) .EQ. 0) CALL PEXIT C C TERMINATE RUN IF ANY OF THE DIAG (17, 25, 28, OR 30) AND DIAG 20 C ARE REQUESTED SIMULTANEOUSLY C CALL SSWTCH (20,J) IF (J .EQ. 0) RETURN CALL SSWTCH (28,I) CALL SSWTCH (30,J) IF (DIAG17+DIAG25+I+J .EQ. 0) RETURN WRITE (OPTAPE,1830) 1830 FORMAT (10X,'JOB TERMINATED BY DIAG 20') CALL PEXIT C C E R R O R M E S S A G E S C C UNEXPECTED END OF TAPE ON NEW PROBLEM TAPE C 1900 CALL XGPIDG (28,0,0,0) GO TO 2200 C C UNEXPECTED END OF TAPE ON OLD PROBLEM TAPE C 1910 CALL XGPIDG (29,0,0,0) GO TO 2200 C C CANNOT FIND FILE ON DATA POOL TAPE C 1920 NAM1 = IOSHDR(1) NAM2 = IOSHDR(2) 1930 CALL XGPIDG (24,NAM1,NAM2,0) GO TO 2200 C C UNEXPECTED END OF TAPE ON DATA POOL TAPE C 1940 CALL XGPIDG (30,0,0,0) GO TO 2200 C C CONTROL FILE INCOMPLETE OR MISSING ON NEW PROBLEM TAPE. C 1950 CALL XGPIDG (31,NAM1,NAM2,0) GO TO 2200 C C MED TABLE RECORD MISSING ON SCRATCH FILE C 1960 CALL XGPIDG (69,NXGPI(1),NXGPI(2),0) GO TO 2200 C C CARD OR FILE NAME TABLE RECORD MISSING ON SCRATCH FILE C 1970 CALL XGPIDG (70,NXGPI(1),NXGPI(2),JTYPE) GO TO 2200 C C ILLEGAL NUMBER OF WORDS IN MED TABLE RECORD C 1980 CALL XGPIDG (71,LMED,0,0) GO TO 2200 C C ILLEGAL NUMBER OF WORDS IN CARD OR FILE NAME TABLE RECORD C 1990 CALL XGPIDG (72,LMED,JTYPE,0) GO TO 2200 C C ILLEGAL BIT NUMBERS IN CARD OR FILE NAME TABLE C 2000 CALL XGPIDG (73,JTYPE,0,0) GO TO 2200 C C SCRATCH FILE CONTAINING DMAP DATA COULD NOT BE OPENED C 2010 CALL XGPIDG (33,NXGPI(1),NXGPI(2),0) GO TO 2200 C C PVT TABLE OVERFLOW C 2020 CALL XGPIDG (14,NPVT,NBLANK,0) GO TO 2210 C C XPTDIC OVERFLOWED C 2030 CALL XGPIDG (14,NXPTDC(1),NXPTDC(2),0) GO TO 2200 C C DPL TABLE OVERFLOW C 2040 CALL XGPIDG (14,NDPL,NBLANK,0) GO TO 2210 C C CANNOT FIND FILE ON OLD PROBLEM TAPE C 2050 CALL XGPIDG (36,ICPDPL(I),ICPDPL(I+1),0) GO TO 2210 2060 CALL XGPIDG (36,PTDIC(I),PTDIC(I+1),0) GO TO 2210 C C NOT ENOUGH FILES AVAILABLE FOR MODULE REQUIREMENTS. C 2070 CALL XGPIDG (-37,OSPNT,K,IFIAT(1)) GO TO 1340 C C NOT ENOUGH CORE FOR GPI TABLES C 2080 CALL XGPIDG (38,-LOSCAR,0,0) GO TO 2200 C C MED TABLE OVERFLOW C 2090 CALL XGPIDG (14,NMED,NBLANK,0) GO TO 2200 C C INCORRECT OLD PROBLEM TAPE MOUNTED C 2100 CALL XGPIDG (35,0,0,0) GO TO 2210 C C REENTRY POINT NOT WITHIN BOUNDS C 2110 CALL XGPIDG (46,0,0,0) GO TO 2210 C C USER DMAP ALTER CONTAINS ERROR, DIAG 14 FLAG IS NOT REQUESTED, AND C ECHO IS NOT 'NONO', PRINT RIGID FORMAT BEFORE QUITTING C 2120 IF (IECHO .NE. -2) CALL XGPIMW (13,0,0,CORE) GO TO 2210 C C TERMINATE JOB IF NOGO = 1 C 2200 NOGO = 2 2210 WRITE (OPTAPE,2220) 2220 FORMAT (//5X,'*** JOB TERMINATED DUE TO ABOVE ERRORS') CALL MESAGE (-37,0,NXGPI) RETURN END ================================================ FILE: mis/xgpibs.f ================================================ SUBROUTINE XGPIBS C C PURPOSE OF THIS ROUTINE IS TO INITIALIZE MACHINE DEPENDENT C CONSTANTS FOR XGPI AND ASSOCIATED ROUTINES AND TO INITIALIZE C THE MODULE LINK TABLE. C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF DIMENSION OPBUFF(1),PGHDG(113),HDG1(32),HDG2(32),LNKEDT(15), 1 ENDDTA(2),OPNCOR(1),UTILTY(1),NWPTYP(6),LL(15), 2 NONE(2),LNKSPC(1),INBUFF(20),MODNAM(2),OS(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /MACHIN/ IJHALF(4),MCHNAM COMMON /SYSTEM/ XSYS(90),LPCH COMMON /ZZZZZZ/ CORE(1) COMMON /XGPI2 / LMPL,MPLPNT,MPL(1) COMMON /XGPI2X/ IXX(1) COMMON /XLINK / LXLINK,MAXLNK,MLINK(1) COMMON /XLKSPC/ LLINK,LINK(1) COMMON /OUTPUT/ PGHDG COMMON /LHPWX / LHPW(2),NWPIC COMMON /XGPIC / A(22),NCPW,NBPC,NWPC,MASKHI,MASKLO,ISGNON,NOSGN, 1 IALLON,MASKS(1) COMMON /XGPID / B(7),ITAPE,IAPPND,INTGR,LOSGN,NOFLGS,SETEOR, 1 EOTFLG,IEQFLG,CPNTRY(7),JMP(7) COMMON /XGPI6 / D(5),IPLUS EQUIVALENCE (XSYS( 2) ,OPTAP ) ,(XSYS(9) ,NLPP ) , 1 (XSYS(12) ,NLINES) ,(XSYS(4) ,INTAP) , 2 (OPNCOR(1),LNKSPC(1),OPBUFF(1),OS(2) ,UTILTY(1)) 3, (CORE(1) ,OS(1) ,LOPNCR) DATA MODNAM/ 4HCHKP,4HNT / DATA DELETE/ 4HDELE /, XNONE /4HNONE/ DATA ENDDTA/ 4HENDD,4HATA /, DOLSGN/4H$ / C C NWPTYP = NUMBER OF WORDS PER PARAMETER TYPE CODE C INT, REAL, BCD, D.P., CMPLX, D.P.CMPLX DATA NWPTYP/ 1, 1, 2, 2, 2, 4 / DATA NBLANK/ 4H /, NONE/4H(NON,4HE) / DATA LNKEDT/ 4H 1 ,4H 2 ,4H 3 ,4H 4 ,4H 5 ,4H 6 ,4H 7 , 1 4H 8 , 4H 9 ,4H 10 ,4H 11 ,4H 12 ,4H 13 ,4H 14 ,4H 15 / DATA HDG1 / 4HMODU,4HLE -,4H DMA,4HP NA,4HME -,4H MOD,4HULE , 1 4HENTR, 4HY - ,4HLINK,4HS MO,4HDULE,4H RES,4HIDES,4H IN , 2 4HON , 16*4H / DATA HDG2 / 4HINDE,4HX ,4H OF ,4HMODU,4HLE ,4H POI,4HNT N, 1 4HAME , 24*4H / C C INITIALIZE MACHINE DEPENDENT CONSTANTS FOR XGPI C SEE SUBROUTINE XGPIDD FOR DESCRIPTION OF CONSTANTS. C C INITIALIZE /XGPIC/ C C NCPW = NUMBER OF CHARACTERS PER WORD C NBPC = NUMBER OF BITS PER CHARACTER C NWPC = NUMBER OF WORDS PER CARD = NWPIC C 7094 360 1108 6600 C MASKLO = 017777600000, 7FFF0000, 017777600000, 00000000017777600000 C ISGNON = 400000000000, 80000000, 400000000000, 40000000000000000000 C NOSGN = 377777777777, 7FFFFFFF, 377777777777, 37777777777777777777 C IALLON = 777777777777, FFFFFFFF, 777777777777, 77777777777777777777 C C MASKHI = MASK FOR LOW ORDER 16 BITS AND SIGN BIT = 32767, C INITIALIZED IN XGPIDD C NCPW = XSYS(41) NBPC = XSYS(39) NWPC = NWPIC MASKLO = LSHIFT(MASKHI,16) ISGNON = LSHIFT(1,XSYS(40)-1) NOSGN = COMPLF(ISGNON) IALLON = COMPLF(0) C C GENERATE MASKS ARRAY C MASK IS IN 4 PARTS - MASK DESCRIPTION WILL BE GIVEN IN TERMS OF C IBM 360 C PART 1 - FFOOOOOO,OOFFOOOO,OOOOFFOO,OOOOOOFF C PART 2 - COMPLEMENT OF PART 1 C PART 3 - FFFFFFFF,OOFFFFFF,OOOOFFFF,OOOOOOFF C PART 4 - COMPLEMENT OF PART 3 C MHIBYT = LSHIFT(IALLON,NBPC*(NCPW-1)) DO 10 J = 1,NCPW MASKS(J) = RSHIFT(MHIBYT,NBPC*(J-1)) J2 = J + NCPW MASKS(J2) = COMPLF(MASKS(J)) J3 = 2*NCPW + J MASKS(J3) = RSHIFT(IALLON,NBPC*(J-1)) J4 = 3*NCPW + J MASKS(J4) = COMPLF(MASKS(J3)) 10 CONTINUE C C INITIALIZE /XGPID/ C C 7094 360 1108 6600 C ITAPE = 000000100000, 00008000, 000000100000, 00000000000000100000 C IAPPND = 010000000000, 40000000, 010000000000, 00000000010000000000 C INTGR = 400000000001, 80000001, 400000000001, 40000000000000000001 C LOSGN = 000000100000, 00008000, 000000100000, 00000000000000100000 C NOFLGS = 000377777777, 03FFFFFF, 000377777777, 00000000000377777777 C SETEOR = 004000000000, 20000000, 004000000000, 00000000004000000000 C EOTFLG = 010000000000, 40000000, 010000000000, 00000000010000000000 C IEQFLG = 400000000000, 80000000, 400000000000, 40000000000000000000 C CPNTRY(3) = CHKPNT MODULE INDEX/TYPE CODE C NTRY(6)= 400000000001, 80000001, 400000000001, 40000000000000000001 C JMP(3) = JUMP MODULE INDEX/TYPE CODE C ITAPE = LSHIFT(1,15) IAPPND = LSHIFT(1,30) INTGR = ORF(ISGNON,1) LOSGN = LSHIFT(1,15) NOFLGS = RSHIFT(IALLON,XSYS(40)-26) SETEOR = LSHIFT(1,29) EOTFLG = LSHIFT(1,30) IEQFLG = ISGNON C C PRINT MPL CONTENTS IF DIAG 31 IS ON C ASSIGN 40 TO IRTN CALL SSWTCH (31,L) IF (L .NE. 0) CALL MPLPRT C C GET CHKPNT MODULE INDEX C 20 MODIDX = 1 MPLPNT = 1 30 IF (MPL(MPLPNT+1).EQ.MODNAM(1) .AND. MPL(MPLPNT+2).EQ.MODNAM(2)) 1 GO TO IRTN, (40,50) MODIDX = MODIDX + 1 MPLPNT = MPLPNT + MPL(MPLPNT) IF (MPLPNT.GT.LMPL .OR. MPL(MPLPNT).LT.1) GO TO 1240 GO TO 30 40 CPNTRY(3) = LSHIFT(MODIDX,16) + 4 C C GET JUMP MODULE INDEX C ASSIGN 50 TO IRTN MODNAM(1) = JMP(4) MODNAM(2) = JMP(5) GO TO 20 50 JMP(3) = LSHIFT(MODIDX,16) + 3 CPNTRY(6) = ORF(ISGNON,1) JMP(6) = CPNTRY(6) C C COMPUTE LENGTH OF OPENCORE (SUBTRACT OFF SOME FOR UTILITY BUFFERS) C LOPNCR = KORSZ(OPNCOR) - XSYS(1) - 1 UTLTOP = LOPNCR + 1 UTLBOT = UTLTOP + XSYS(1) - 1 C C INITIALIZE /XGPI2/ (I.E. MPL TABLE) C C LOAD FLOATING POINT NUMBERS INTO MPL FROM ARRAY IN /XGPI2X/ C MPLPNT = 1 60 IF (MPL(MPLPNT) .LT. 4) GO TO 150 IF (MPL(MPLPNT+3).LT.1 .OR. MPL(MPLPNT+3).GT.2) GO TO 150 C C MPL ENTRY HAS MODULE TYPE CODE 1 OR 2 - PROCESS PARAMETER SECTION. C I = MPLPNT + 7 C C CHECK FOR END OF MPL ENTRY C 70 IF (I .GE. MPLPNT+MPL(MPLPNT)) GO TO 150 C C CHECK VALIDITY OF PARAMETER TYPE CODE C J = IABS(MPL(I)) IF (J.LT.1 .OR. J.GT.6) GO TO 1230 L = 1 C C SEE IF PARAMETER VALUE FOLLOWS TYPE CODE. C IF (MPL(I) .LT. 0) GO TO 100 C C GET LENGTH OF PARAMETER VALUE TO BE LOADED. C L = NWPTYP(J) C C A VALUE FOLLOWS IF TYPE CODE IS INTEGER OR BCD - OTHERWISE AN C INDEX INTO A TABLE CONTAINING THE VALUE FOLLOWS THE TYPE CODE. C IF (J.EQ.1 .OR. J.EQ.3) GO TO 90 C C GET INDEX INTO VALUE TABLE - NOTE INDEX MUST BE CONVERTED FROM C DOUBLE PRECISION INDEX TO ONE DIMENSIONAL INDEX. C M = MPL(I+1)*2 - 1 DO 80 K = 1,L N = K + M - 1 K1 = I + K 80 MPL(K1) = IXX(N) 90 I = I + 1 C C INCREMENT TO NEXT PARAMETER TYPE CODE. C 100 I = I + L GO TO 70 C C GET NEXT MPL ENTRY C 150 IF (MPL(MPLPNT)+MPLPNT .GT. LMPL) GO TO 160 MPLPNT = MPLPNT + MPL(MPLPNT) IF (MPL(MPLPNT) .LT. 1) GO TO 1240 GO TO 60 160 CONTINUE C C INITIALIZE /XLINK/ C C MAXLNK = MAXIMUM NUMBER OF LINKS THAT CAN BE HANDLED. IF MAXLNK IS C INCREASED THEN LNKEDT TABLE MUST BE INCREASED. C (MAXLNK WAS SET IN SEMDBD ROUTINE) C C MOVE LINK TABLE INTO OPEN CORE C LNKTOP = 1 LNKBOT = LLINK + LNKTOP - 5 DO 200 J = 1,LLINK 200 LNKSPC(J) = LINK(J) C C UPDATE LNKSPC TABLE IF SENSE SWITCH 29 IS ON C CALL SSWTCH (29,L) IF (L .EQ. 0) GO TO 600 ASSIGN 280 TO IRTN C C PROCESS INPUT CARD (NOTE-DO NOT USE VARIABLES I,J OR M) C 210 CALL PAGE1 NLINES = NLINES + 2 WRITE (OPTAP,220) 220 FORMAT (42H0LINK SPECIFICATION TABLE UPDATE DECK ECHO ) 230 NLINES = NLINES + 1 IF (NLINES .GE. NLPP) GO TO 210 CALL XREAD (*240,INBUFF) GO TO 260 240 CALL PAGE2 (2) WRITE (OPTAP,250) UFM 250 FORMAT (A23,' 220, MISSING ENDDATA CARD.') GO TO 1250 260 CONTINUE WRITE (OPTAP,270) INBUFF 270 FORMAT (5X,20A4) C C CHECK FOR COMMENT CARD C IF (KHRFN1(0,1,INBUFF(1),1) .EQ. KHRFN1(0,1,DOLSGN,1)) GO TO 230 C C CONVERT CARD IMAGE C CALL XRCARD (UTILTY(UTLTOP),UTLBOT-UTLTOP+1,INBUFF) IF (UTILTY(UTLTOP) .EQ. 0) GO TO 230 C C CHECK FOR ENDDATA CARD C IF (UTILTY(UTLTOP+1).EQ.ENDDTA(1) .AND. 1 UTILTY(UTLTOP+2).EQ.ENDDTA(2)) GO TO 380 GO TO IRTN, (280,330) C C CHECK FORMAT OF CARD C 280 IF (UTILTY(UTLTOP) .LT. 2) GO TO 1220 C C SEE IF MODULE NAME IS IN LNKSPC TABLE C DO 290 I = LNKTOP,LNKBOT,5 IF (LNKSPC(I ).EQ.UTILTY(UTLTOP+1) .AND. 1 LNKSPC(I+1).EQ.UTILTY(UTLTOP+2)) GO TO 300 290 CONTINUE C C MODULE IS NOT IN LNKSPC - MAKE NEW ENTRY C LNKBOT = LNKBOT + 5 IF (LNKBOT .GT. LOPNCR) GO TO 1200 I = LNKBOT C C TRANSFER MODULE NAME AND ENTRY POINT TO LNKSPC C 300 LNKSPC(I ) = UTILTY(UTLTOP+1) LNKSPC(I+1) = UTILTY(UTLTOP+2) LNKSPC(I+2) = UTILTY(UTLTOP+3) LNKSPC(I+3) = UTILTY(UTLTOP+4) C C CHECK FOR DELETE OR NONE C IF (UTILTY(UTLTOP ) .EQ. 2) GO TO 320 IF (UTILTY(UTLTOP+5) .EQ. DELETE) GO TO 310 IF (UTILTY(UTLTOP+5) .NE. XNONE) GO TO 1220 C C MODULE HAS NO ENTRY POINT C LNKSPC(I+2) = NONE(1) LNKSPC(I+3) = NONE(2) M = 0 J = 7 IF (UTILTY(UTLTOP+7) .NE. -1) J = 9 GO TO 330 C C MODULE IS TO BE DELETED C 310 LNKSPC(I) = 0 GO TO 370 C C GENERATE A LINK FLAG WORD C 320 M = 0 J = 5 C C CHECK MODE WORD C 330 K = UTLTOP + J IF (UTILTY(K)) 340,350,360 C C INTEGER FOUND C 340 IF (UTILTY(K) .NE. -1) GO TO 1220 M = ORF(M,LSHIFT(1,UTILTY(K+1)-1)) J = J + 2 GO TO 330 C C CONTINUE MODE FOUND C 350 J = 1 ASSIGN 330 TO IRTN GO TO 230 C C END OF INSTRUCTION FOUND C C TRANSFER GENERATED LINK WORD TO LNKSPC ENTRY C 360 IF (UTILTY(K) .NE. NOSGN) GO TO 1220 J = I + 4 LNKSPC(J) = M C C PROCESS NEXT INPUT CARD C 370 ASSIGN 280 TO IRTN GO TO 230 C C PUNCH OUT LNKSPC TABLE IF SENSE SWITCH 28 IS ON. C 380 CALL SSWTCH (28,L) IF (L .EQ. 0) GO TO 600 C C ELIMINATE DELETED LNKSPC ENTRIES C 390 DO 400 I = LNKTOP,LNKBOT,5 IF (LNKSPC(I) .EQ. 0) GO TO 410 400 CONTINUE GO TO 430 410 K = I + 4 N = LNKBOT - 1 DO 420 M = I,K N = N + 1 LNKSPC(M) = LNKSPC(N) 420 CONTINUE LNKBOT = LNKBOT - 5 GO TO 390 430 CALL PAGE2 (2) WRITE (OPTAP,440) 440 FORMAT (98H0***USER REQUESTS LINK SPECIFICATION TABLE BE PUNCHED O 1UT FOR USE IN RECOMPILING SUBROUTINE XLNKDD ) WRITE (LPCH,450) 450 FORMAT (70(1H*),/38HLINK SPEC. TABLE FOR SUBROUTINE XLNKDD ) J = LNKBOT - LNKTOP + 5 N = J/90 WRITE (LPCH,460) J 460 FORMAT (6X,16HDIMENSION LINK (,I4,1H)) K = 90 IF (N .EQ. 0) GO TO 490 DO 480 I = 1,N I10= I/10 I1 = I - 10*I10 WRITE (LPCH,470) I10,I1,K 470 FORMAT (5X,2H1,,9X,4HLINK,2I1,1H(,I4,1H)) 480 CONTINUE 490 K = MOD(J,90) I = N + 1 I10= I/10 I1 = I - 10*I10 IF (K .GT. 0) WRITE (LPCH,470) I10,I1,K WRITE (LPCH,500) J 500 FORMAT (6X,28HCOMMON/XLKSPC/ LLINK, KLINK(,I4,1H),/, 1 6X,34HEQUIVALENCE (LINK( 1),LINK01(1)) ) IF (K .GT. 0) N = N + 1 IF (N .LT. 2) GO TO 530 DO 520 I = 2,N I10= I/10 I1 = I - 10*I10 K = 90*(I-1) + 1 WRITE (LPCH,510) K,I10,I1 510 FORMAT (5X,2H1,,11X,6H(LINK( ,I4,6H),LINK ,2I1,4H(1))) 520 CONTINUE 530 CONTINUE J = LNKTOP - 1 M = 0 540 J = J + 1 M = M + 1 M10= M/10 M1 = M - 10*M10 K = MIN0(J+89,LNKBOT+4) WRITE (LPCH,550) M10,M1,(LNKSPC(I),I=J,K) 550 FORMAT (6X,9HDATA LINK,2I1,1H/, /, 1 5X,4H1 4H,A4,3H,4H,A4,4H, 4H,A4,3H,4H,A4,1H,,I6,/, 2 (5X,4H1,4H,A4,3H,4H,A4,4H, 4H,A4,3H,4H,A4,1H,,I6)) WRITE (LPCH,560) 560 FORMAT (5X,2H1/) J = K IF (J .LT. LNKBOT+4) GO TO 540 J = LNKBOT - LNKTOP + 5 WRITE (LPCH,570) J 570 FORMAT (6X,8HLLINK = ,I4) C C INITIALIZE PAGE HEADING C 600 DO 610 I = 1,32 PGHDG(I+ 96) = HDG1(I) PGHDG(I+128) = HDG2(I) 610 PGHDG(I+160) = NBLANK PGHDG( 113) = MCHNAM NLINES = NLPP C C INITIALIZE O/P BUFFER PARAMETERS - O/P BUFFERS ARE IN OPEN CORE C OPBTOP = LNKBOT + 5 NXTLIN = OPBTOP - 20 C C GET FIRST/NEXT MPL ENTRY C MPLPNT = 1 MODIDX = 1 C C CHECK FOR DECLARATIVE OR NULL ENTRY C 620 IF (MPL(MPLPNT+3).GT.4 .OR. MPL(MPLPNT+3).LT.1) GO TO 630 GO TO 700 630 IF (MPL(MPLPNT) .LT. 1) GO TO 800 MPLPNT = MPLPNT + MPL(MPLPNT) MODIDX = MODIDX + 1 IF (MPLPNT .LT. LMPL) GO TO 620 GO TO 800 C C PREPARE TO GENERATE NEXT LINE OF OUTPUT C 700 NXTLIN = NXTLIN + 20 I = NXTLIN + 19 IF (I .GT. LOPNCR) GO TO 1240 DO 710 J = NXTLIN,I 710 OPBUFF(J) = NBLANK C C MODULE INDEX INTO WORD 1 OF O/P ENTRY C OPBUFF(NXTLIN) = MODIDX C C DMAP NAME TO WORDS 2,3 OF O/P ENTRY C OPBUFF(NXTLIN+1) = MPL(MPLPNT+1) OPBUFF(NXTLIN+2) = MPL(MPLPNT+2) C C GET ENTRY POINT NAME AND ENTER IN WORDS 4,5 OF O/P ENTRY C OPBUFF(NXTLIN+3) = NONE(1) OPBUFF(NXTLIN+4) = NONE(2) DO 720 I = LNKTOP,LNKBOT,5 IF (LNKSPC(I).EQ.MPL(MPLPNT+1) .AND. LNKSPC(I+1).EQ.MPL(MPLPNT+2)) 1 GO TO 730 720 CONTINUE GO TO 630 730 OPBUFF(NXTLIN+3) = LNKSPC(I+2) OPBUFF(NXTLIN+4) = LNKSPC(I+3) C C EXAMINE LINK FLAG C L = LNKSPC(I+4) DO 740 J = 1,MAXLNK IF (ANDF(L,LSHIFT(1,J-1)) .EQ. 0) GO TO 740 C C MODULE IS IN LINK J - SET BIT J IN MAIN LINK TABLE AND O/P BUFFER C MAKE SURE LINK TABLE IS LONG ENOUGH. C IF (LXLINK .LT. MODIDX) GO TO 1210 MLINK(MODIDX) = ORF(MLINK(MODIDX),LSHIFT(1,J-1)) K = NXTLIN + J + 4 OPBUFF(K) = LNKEDT(J) 740 CONTINUE GO TO 630 C C SEE IF O/P BUFFER IS TO BE PRINTED (I.E. SENSE SWITCH 31 IS ON) C 800 CALL SSWTCH (31,L) IF (L .NE. 0) GO TO 810 C C PRINT O/P BUFFER IF LINK DRIVER PUNCHED O/P REQUESTED(I.E. SENSE C SWITCH 30 IS ON) C CALL SSWTCH (30,L) IF (L .EQ. 0) RETURN 810 DO 830 I = OPBTOP,NXTLIN,20 NLINES = NLINES + 1 IF (NLINES .GE. NLPP) CALL PAGE J = I + 19 WRITE (OPTAP,820) (OPBUFF(K),K=I,J) 820 FORMAT (5X,I6,3X,2A4,4X,2A4,7X,15A4) 830 CONTINUE C C SEE IF ANY DRIVERS SHOULD BE PUNCHED (I.E. SENSE SWITCH 30 ON) C CALL SSWTCH (30,L) IF (L .EQ. 0) RETURN CALL PAGE1 NLINES = NLINES + 2 WRITE (OPTAP,910) 910 FORMAT ('0USER REQUESTS PUNCHED OUTPUT FOR THE FOLLOWING LINK ', 1 'DRIVER SUBROUTINES') WRITE (LPCH,920) 920 FORMAT (70(1H*), /,' INSERT FOLLOWING FORTRAN CODE IN RESPECTIVE', 1 ' LINK DRIVER ROUTINES') DO 1170 J = 1,MAXLNK CALL SSWTCH (J,L) IF (L .EQ. 0) GO TO 1170 J10= J/10 J1 = J - 10*J10 WRITE (LPCH,930) J10,J1,J 930 FORMAT (70(1H*), /6X,15HSUBROUTINE XSEM,2I1, /6X,12HDATA THISLK, 1 /,I2,1H/) WRITE (LPCH,940) J10,J1 940 FORMAT (6X,21HDATA SUBNAM/4HXSEM,4H,2I1,3H /) NLINES = NLINES + 2 IF (NLINES .GE. NLPP) CALL PAGE WRITE (OPTAP,950) J10,J1 950 FORMAT (9H0 XSEM,2I1) C C USER REQUESTS PUNCHED O/P FOR LINK J C SEARCH LINK TABLE FOR MODULES RESIDING IN LINK J C FRSTIN = 0 L = 0 LASTIN = 0 NXTGRP = 1000 DO 1100 I = 1,LXLINK LL(L+1) = 940 IF (ANDF(MLINK(I),LSHIFT(1,J-1)) .NE. 0) LL(L+1) = 2000 + I IF (I - LASTIN) 980,990,960 960 IF (FRSTIN.LE.0 .AND. LL(L+1).EQ.940) GO TO 1100 FRSTIN = I LASTIN = MIN0(I+180,LXLINK) LSTGRP = NXTGRP NXTGRP = NXTGRP - 5 970 FORMAT (I5,8H GO TO ( ) 980 L = L + 1 IF (LL(L) .NE. 940) GO TO 1000 C C ONLY TWO CONSECUTIVE BRANCHES TO 940 IN COMPUTED -GO TO - C IF (LAST+2 .GE. I) GO TO 1010 LASTIN = LAST L = MAX0(0,L-1+LASTIN-I) 990 LL(15) = LL(L+1) IF (L) 1050,1050,1020 1000 LAST = I 1010 IF (L .LT. 13) GO TO 1100 1020 IF (FRSTIN .EQ. LL(1)-2000) WRITE (LPCH,970) NXTGRP LK = MIN0(L,10) WRITE (LPCH,1030) (LL(K),K=1,LK) 1030 FORMAT (5X,1H1,10(I5,1H,)) L = L - LK DO 1040 K = 1,L 1040 LL(K) = LL(K+10) IF (I .LT. LASTIN) GO TO 1100 1050 LAST = NXTGRP + 15 IF (I .EQ. LXLINK) LAST = 970 IF (FRSTIN .EQ. LASTIN) GO TO 1070 FRSTIN = FRSTIN - 1 WRITE (LPCH,1060) LL(15),LSTGRP,LASTIN,LAST,FRSTIN,NXTGRP 1060 FORMAT (5X, 1H1, I5, 4H ),I ,/, 1 I5, 14H IF (MODX .GT. ,I3, 8H) GO TO ,I5, /, 1 6X, 10HI = MODX - , I3, /, 1 6X, 17HIF (I ) 940, 940, ,I5) GO TO 1090 1070 WRITE (LPCH,1080) LSTGRP,FRSTIN,LL(15),LAST 1080 FORMAT (I5,12H IF (MODX - ,I3,7H ) 940,,I5,1H,,I5) 1090 NXTGRP = LAST FRSTIN = -1 1100 CONTINUE C C PUNCH OUT GO TO AND IF STATEMENTS FOR LAST GROUP OF MODULES IN C LINK J. C IF (FRSTIN .NE. 0) GO TO 1120 C C CANNOT FIND ANY MODULES IN THIS LINK C NLINES = NLINES + 2 WRITE (OPTAP,1110) J 1110 FORMAT (1H0,10X,29HTHERE ARE NO MODULES IN LINK ,I3) GO TO 1170 1120 IF (LAST .NE. 970) WRITE (LPCH,1130) NXTGRP 1130 FORMAT (I5,34H IF (MODX - LXLINK ) 940, 940, 970 ) C C SEARCH O/P BUFFER FOR MODULES RESIDING IN LINK J C DO 1160 I = OPBTOP,NXTLIN,20 K = I + 4 + J IF (OPBUFF(K) .EQ. NBLANK) GO TO 1160 C C THIS MODULE IS IN LINK J - PUNCH OUT CALL AND GO TO STATEMENT C N = 2000 + OPBUFF(I) WRITE (LPCH,1150) N,OPBUFF(I+3),OPBUFF(I+4) 1150 FORMAT (I5,1X,5HCALL ,2A4,/6X,8HGO TO 10) 1160 CONTINUE 1170 CONTINUE J = LLINK/8 IF (J .GT. LXLINK) CALL PAGE2 (-3) IF (J .GT. LXLINK) WRITE (OPTAP,1180) SWM,J,LXLINK 1180 FORMAT (A27,' 54, THE NUMBER OF MODULES SPECIFIED IN THE LINK ', 1 'SPECIFICATION TABLE,',I5, /20X,'EXCEEDS THE ALLOWABLE ', 2 'NUMBER SPECIFIED BY SEMDBD,',I5,1H.) CALL PEXIT C C ERROR MESSAGES - C C NOT ENOUGH OPEN CORE C 1200 CALL XGPIDG (51,LNKBOT-LOPNCR,0,0) GO TO 1250 C C NAMED COMMON /XLINK/ IS TOO SMALL C 1210 CALL XGPIDG (52,0,0,0) RETURN C C INCORRECT FORMAT IN ABOVE CARD. C 1220 CALL XGPIDG (53,0,0,0) ASSIGN 280 TO IRTN GO TO 230 C C ERROR IN PARAMETER SECTION OF MPL TABLE C 1230 CALL XGPIDG (49,MPLPNT,MPL(MPLPNT+1),MPL(MPLPNT+2)) GO TO 150 C C FATAL ERROR IN MPL TABLE C 1240 CALL XGPIDG (49,MPLPNT,MPL(MPLPNT+1),MPL(MPLPNT+2)) GO TO 1250 C C FATAL ERROR EXIT C 1250 XSYS(3) = 3 RETURN END ================================================ FILE: mis/xgpidd.f ================================================ SUBROUTINE XGPIDD C C THIS SUBROUTINE DEFINES ALL NAMED COMMON FOR SUBROUTINES C XGPI,XOSGEN,XLNKHD,XIOFL,XPARAM,XSCNDM,XFLORD,XFLDEF AND XGPIDG. C **NOTE - THIS PROGRAM MUST BE LOADED BEFORE ANY OF THE ABOVE. C INTEGER BCDCNT,CPNTRY,DIAG4,DIAG14,DIAG17,DIAG25,DMAP,DMPCNT, 1 DMPPNT,EOTFLG,IHOL(22),JMP,NAMOPT(26),PVT,SETEOR,SOL, 2 START,SUBSET C C NAMED COMMON AREAS /XGPIC/ AND /XGPID/ CONTAIN C MACHINE DEPENDENT DATA C C COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI, C ** CONTROL CARD NAMES ** C 1 NMED,NSOL,NDMAP,NESTM1,NESTM2,NEXIT, C ** DMAP CARD NAMES ** C 2 NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT, C 3 NCHKPT,NPURGE,NEQUIV, C ** THE FOLLOWING CONSTANTS ARE INITIALIZED BY XGPIBS ROUTINE ** C 4 NCPW,NBPC,NWPC, C 5 MASKLO,ISGNON,NOSGN,IALLON,MASKS(40) C COMMON /XGPIC / ICOLD,IHOLC(21), 4 NCPW,NBPC,NWPC, 5 MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(40) COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP, 1 ISAVE,ITAPE,IAPPND,INTGR,LOSGN, 2 NOFLGS,SETEOR,EOTFLG,IEQFLG, 3 CPNTRY(7),JMP(7) C C ****** /XGPI1 / ******* C C COMMON /XGPI1 / LOSCAR,OSPRC,OSBOT,OSPNT,OSCAR(1) C C NOTE - /XGPI1 / MUST BE LOADED AT THE END OF LONGEST LINK IN XGPI C BECAUSE IT DEFINES THE START OF OPEN CORE. C C OSCAR = OPERATION SEQUENCE CONTROL ARRAY C LOSCAR = LENGTH OF OSCAR ARRAY C OSPRC = POINTER TO PRECEDING OSCAR ENTRY C OSBOT = POINTER TO LAST OSCAR ENTRY C OSPNT = POINTER TO PRESENT OSCAR ENTRY BEING PROCESSED C C ***ORDER OF TABLES IN OPEN CORE DURING PHASE 1 OF COMPILATION. C EQUIVALENCE (OSCAR,DMPCRD,LBLTBL,MED,IBUFR) C C ***ORDER OF TABLES IN OPEN CORE DURING PHASE 2 OF COMPILATION. C EQUIVALENCE (OSCAR,PTDIC,ICPDPL,MED,IBUFR) C IBUFR = GINO BUFFER AREA LOCATED AT HIGH ADDRESS END OF OPEN C CORE. C DMPCRD = DMAP SEQUENCE CARD IMAGE BUFFER C PTDIC = PROBLEM TAPE CHECKPOINT DICTIONARY C MED = MODULE EXECUTION DECISION TABLE FOR RESTARTS IN RIGID C FORMATS C ICPDPL = LIST OF CHECKPOINT FILES TO BE WRITTEN ON DATA POOL FROM C OLD PROBLEM TAPE IN ORDER TO RESTART PROBLEM. C LBLTBL = TABLE OF LABEL NAMES AND PARAMETER NAMES REFERENCED BY C LABEL,COND,PURGE AND EQUIV DMAP INSTRUCTIONS. C COMMON /XGPI3 / PVT(200) COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT,IDMPNT,DMPPNT,BCDCNT, 1 LENGTH,ICRDTP,ICHAR,NEWCRD,MODIDX,LDMAP,ISAVDW, 2 DMAP(200) COMMON /XGPI5 / IAPP,START,ALTER(2),SOL,SUBSET,IFLAG, 1 IESTIM,ICFTOP,ICFPNT,LCTLFL,ICTLFL(1) COMMON /XGPI6 / MEDTP,FNMTP,CNMTP,MEDPNT,LMED,IPLUS,DIAG14,DIAG17, 1 DIAG4,DIAG25,IFIRST,IBUFF(20) COMMON /XGPI7 / IFPNT,LFILE,IFILE(130) COMMON /XGPI8 / ICPTOP,ICPBOT,LCPDPL COMMON /MODDMP/ IFLG(6),NMPT(26) DATA NAMOPT/ 4HGO ,4H ,4HNOGO,4H ,4HERR ,4H ,4HLIST, 1 4H ,4HNOLI,4HST ,4HDECK,4H ,4HNODE,4HCK , 2 4HREF ,4H ,4HNORE,4HF ,4HOSCA,4HR ,4HNOOS, 3 4HCAR ,4HALL ,4H ,4HEXCE,4HPT / DATA IHOL / 4H/ ,4H= ,4H ,4HXEQU,4HMED ,4HSOL ,4HDMAP, 1 4HESTI,4HM ,4HEXIT,4HBEGI,4HEND ,4HJUMP,4HCOND, 2 4HREPT,4HTIME,4HSAVE,4HOUTP,4HCHKP,4HPURG,4HEQUI, 3 4HXCHK/ DATA IPLS / 1H+ / C C ****** /XGPIC / ******* C C NCPW = NUMBER OF CHARACTERS PER WORD. C NBPC = NUMBER OF BITS PER CHARACTER. C NWPC = NUMBER OF WORDS PER INPUT CARD (72 CHARACTERS). C MASKHI = MASK OUT ALL BITS EXCEPT LOW ORDER 15 BITS C = 2**15 - 1 C MASKLO = MASK FOR HI ORDER 16 BITS, SIGN BIT NOT INCLUDED C = LSHIFT(MASKHI,16) C ISGNON = MASK OUT ALL BUT SIGN BIT C = LSHIFT(1,NBPW-1) C NOSGN = MASK OUT ONLY SIGN BIT C = COMPLF(ISGNON) C IALLON = ALL BITS ON C = COMPLF(0) C MASKS = TABLE OF MASKS FOR MASKING OUT VARIOUS CHARACTERS OF A C WORD. TABLE LENGTH = 4*NCPW (40 MAX.) C C DATA ICOLD /1 /, ISLSH /4H/ /, IEQUL /4H= /, C 1 NXEQUI/4HXEQU/, NMED /4HMED /, NSOL /4HSOL /, C 2 NDMAP /4HDMAP/, NESTM1/4HESTI/, NESTM2/4HM /, C 3 NEXIT /4HEXIT/, NBEGIN/4HBEGI/, NEND /4HEND /, C 3 NJUMP /4HJUMP/, NCOND /4HCOND/, NBLANK/4H /, C 4 NREPT /4HREPT/, NTIME /4HTIME/, NSAVE /4HSAVE/, C 5 NCHKPT/4HCHKP/, NPURGE/4HPURG/, NEQUIV/4HEQUI/, C 6 MASKHI/32767 /, NOUTPT/4HOUTP/ C ICOLD = 1 MASKHI = 32767 C 2**15 - 1 DO 5 I = 1,21 5 IHOLC(I) = IHOL(I) C C ****** /XGPID / ******* C C ICST,IUNST,IMST = COLD,UNMODIFIED,MODIFIED START CODES C IHAPP,IDSAPP,IDMAPP = HEAT,DISPLACEMENT,DMAP APPROACH CODES C ** THE FOLLOWING CONSTANTS ARE INITIALIZED IN XGPIBS ROUTINE ** C INTGR = INTEGER TYPE CODE RETURNED BY XSCNDM C ISAVE,ITAPE,IAPPND = FLAGS USED IN /XGPI7/ C MODFLG = PARAM MODIFY FLAG IN VPS C LOSGN = SIGN BIT OF LOW ORDER 16 BITS C NOFLGS = MASK OUT FLAGS USED IN PTDIC TABLE AND ICPDPL C SETEOR = END OF RECORD FLAG IN PTDIC,ICPDPL TABLES C EOTFLG = END OF TAPE FLAG IN PTDIC,ICPDPL TABLES C IEQFLG = EQUIVALENCE FLAG IN PTDIC,ICPDPL,DPL,FIAT TABLES C CPNTRY = TABLE CONTAINING HEADER SECTION OF CHECKPOINT OSCAR ENTRY C JMP = TABLE CONTAINING JUMP OSCAR ENTRY TO BE INSERTED C C DATA ICST /1/, IUNST/2/, IMST/3/, IDMAPP/1/, ISAVE/1/, C 1 CPNTRY/6,2,0,4HXCHK, 4H , 0,0/, C 2 JMP /7,3,0,4HJUMP, 4H , 0,0/ C ICST = 1 IUNST = 2 IMST = 3 IDMAPP = 1 ISAVE = 1 JMP(1) = 7 JMP(2) = 3 JMP(3) = 0 JMP(4) = IHOL(13) JMP(5) = IHOL( 3) JMP(6) = 0 JMP(7) = 0 CPNTRY(1) = 6 CPNTRY(2) = 2 CPNTRY(3) = 0 CPNTRY(4) = IHOL(22) CPNTRY(5) = IHOL( 3) CPNTRY(6) = 0 CPNTRY(7) = 0 C C ****** /XGPI3 / ******* C C PVT = PARAMETER VALUE TABLE C DATA PVT/200,2,0,0,1,195*0/ C PVT(1) = 200 PVT(2) = 2 DO 10 I = 3,200 10 PVT(I) = 0 PVT(5) = 1 C C ****** /XGPI4 / ******* C C IRTURN = RETURN CODE USED FOR ALTERNATE RETURNS C INSERT = -1 INDICATES DMAP INSTRUCTION IS TO BE DELETED. C = 0 PROCESS DMAP INSTRUCTION FROM MAIN STREAM. C = 1 INSERT DMAP INSTRUCTION FROM ALTER FILE. C ISEQN = NEXT OSCAR SEQUENCE NUMBER TO BE ASSIGNED. C DMPCNT = DMAP INSTRUCTION COUNTER C IDMPNT = POINTER TO NEXT ITEM TO BE SCANNED IN DMAP ARRAY C DMPPNT = POINTER TO ITEM IN DMAP ARRAY RETURNED BY XSCNDM ROUTINE C BCDCNT = NUMBER OF BCD ENTRIES REMAINING IN DMAP ARRAY BEFORE MODE C CHANGES. C LENGTH = LENGTH (IN WORDS) OF BINARY VALUE RETURNED BY XSCNDM C ROUTINE. C ICRDTP = POINTER TO NEXT WORD TO BE PROCESSED IN DMPCRD ARRAY. C ICHAR = POINTER TO NEXT CHARACTER TO BE PROCESSED IN DMPCRD ARRAY C NEWCRD = FLAG TO INDICATE WHETHER OR NOT TO PREPARE NEXT CARD C IMAGE FOR TRANSLATION BY XRCARD ROUTINE. C MODIDX = MODULE INDEX STORED IN OSCAR ENTRY FOR USE BY XSEM C ROUTINE. C LDMAP = LENGTH OF DMAP ARRAY. C ISAVDW = POINTER TO LAST DELIMITER ENCOUNTERED IN DMPCRD ARRAY, C USED BY XSCNDM WHEN UNPACKING RIGID FORMAT DMAP SEQUENCE. C DMAP = ARRAY CONTAINING OUTPUT FROM XRCARD ROUTINE. C C DESCRIPTION OF VARIABLES EQUIVALENCED TO /XGPI4/ ENTRIES C EQUIVALENCE (DMAP,ICF) C ICF = TEMPORARY STORAGE FOR CONTROL FILE DICTIONARY. C C DATA ISEQN/1/, DMPCNT/0/, ICHAR/1/, LDMAP/200/, BCDCNT/0/ C ISEQN = 1 DMPCNT = 0 ICHAR = 1 LDMAP = 200 BCDCNT = 0 C C ****** /XGPI5/ ******* C C IAPP = APPROACH CODE. C START = TYPE OF START CODE. C ALTER = DMAP NOS. OF INSTRUCTIONS TO BE ALTERED C SOL = SOLUTION CODE. C SUBSET = SOLUTION SUBSET CODE. C IFLAG = FLAG FOR USE IN SUBROUTINE XLNKHD. C IESTIM = POINTER TO ESTIM ENTRIES IN ICTLFL OR ZERO. C ICFTOP = POINTER TO FIRST WORD IN ICTLFL ARRAY C ICFPNT = POINTER TO NEXT AVAILABLE WORD IN ICTLFL ARRAY C LCTLFL = LENGTH OF ICTLFL ARRAY. C ICTLFL = ARRAY CONTAINING INFORMATION FROM ESTIM CONTROL CARD. C C DATA IESTIM/0/, ICFTOP/1/, LCTLFL/1/, IFLAG/0/ C IESTIM = 0 ICFTOP = 1 LCTLFL = 1 IFLAG = 0 C C ****** /XGPI6/ ******* C C MED = (SEE DESCRIPTION IN /XGPI1/) C MEDTP = POINTER TO FIRST WORD IN MED ARRAY. C LMED = LENGTH OF MED ARRAY. C MEDPNT = POINTER TO AN ENTRY IN MED C FNMTP = POINTER TO FIRST WORD OF FILE NAME PORTION OF MED TABLE C CNMTP = POINTER TO FIRST WORD OF CARD NAME PORTION OF MED TABLE C IPLUS = PLUS CHARACTER FOR PRINTER SPACE SUPRESS C DIAG14 = SKIP DMAP PRINT UNLESS RESTART (SET BY XGPI) C DIAG17 = DMAP PUNCH OPTION FLAG (SET BY XGPI) C C DATA MEDTP/1/, LMED/0/, IPLUS/1H+/ C MEDTP = 1 LMED = 0 IPLUS = IPLS C C ****** /XGPI7/ ******* C C IFPNT = POINTER TO LAST ENTRY IN FILE TABLE C LFILE = LENGTH OF FILE TABLE (IN WORDS) C IFILE = TABLE CONTAINING INFO FROM FILE DMAP INSTRUCTION C C DATA IFPNT/-2/, LFILE/130/, IFILE/130*0/ C IFPNT = -2 LFILE = 130 DO 20 I = 1,LFILE 20 IFILE(I) = 0 C C ****** /XGPI8 / ******* C C ICPDPL = (SEE /XGPI1/ FOR DESCRIPTION) C ICPTOP = POINTER TO FIRST ENTRY IN ICPDPL ARRAY. C ICPBOT = POINTER TO LAST ENTRY IN ICPDPL ARRAY. C LCPDPL = LENGTH OF ICPDPL ARRAY) C C DATA ICPTOP/0/, ICPBOT/0/, LCPDPL/0/ C ICPTOP = 0 ICPBOT = 0 LCPDPL = 0 C C ****** /MODDMP/ ******** C IFLG(1) = 1 IFLG(2) = 2 IFLG(3) = 0 IFLG(4) = 0 IFLG(5) = 0 IFLG(6) = 0 DO 30 I = 1,26 30 NMPT(I) = NAMOPT(I) C RETURN END ================================================ FILE: mis/xgpidg.f ================================================ SUBROUTINE XGPIDG (NCODE,IX,JX,K) C C THE PURPOSE OF XGPIDG IS TO WRITE DIAGNOSTIC MESSAGES FOR EXGPI C C ICODE = A SIGNED INTEGER WHICH INDICATES DIAGNOSTIC MESSAGE TO C OUTPUT. C NODMAP = DMAP CARD NUMBER. C EXTERNAL LSHIFT,RSHIFT,ANDF INTEGER IX(1),JX(1),DMPCNT,DMPPNT,BCDCNT,DMAP,OSPRC,OSBOT, 1 OSPNT,OSCAR(1),OTAPID,OP,RSHIFT,ANDF,CPPGCT DIMENSION MED(1),IBF(6),MPL(1),OS(5) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /STAPID/ TAPID(6),OTAPID(6) COMMON /SYSTEM/ ZSYS(90),LPCH C ** CONTROL CARD NAMES ** C ** DMAP CARD NAMES ** COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI, 1 NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT, 2 NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE, 3 NOUTPT,NCHKPT,NPURGE,NEQUIV, 4 NCPW,NBPC,NWPC, 5 MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1) COMMON /ZZZZZZ/ CORE(1) COMMON /XGPI2 / LMPL,MPLPNT,MPL COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT, 1 IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD, 2 MODIDX,LDMAP,ISAVDW,DMAP(1) COMMON /MODDMP/ IFLG(6),NAMOPT(26) EQUIVALENCE (CORE(1),OS(1),LOSCAR),(OSPRC,OS(2)),(OSBOT,OS(3)) 1, (OSPNT,OS(4)),(OSCAR(1),MED(1),OS(5)) EQUIVALENCE (ZSYS(1),BUFSZ),(ZSYS(2),OP),(ZSYS(3),NOGO), 1 (ZSYS(9),NLPP),(ZSYS(12),NLINES),(ZSYS(26),CPPGCT) 2, (ZSYS(77),ISYS77) EQUIVALENCE (MPL(1),IBF(1)) DATA NLABL1/ 4HLABE/, NLABL2/4HL / C C SET NOGO FLAG IF NCODE IS POSITIVE C IF (NCODE .GT. 0 .AND. NOGO .LT. 1) NOGO = 1 I = IX(1) J = JX(1) KDHCOD = 0 ICODE = IABS(NCODE) C C BRANCH ON ICODE AND WRITE ERROR MESSAGE. C IF (ICODE.EQ.0 .OR. ICODE.GT.73) GO TO 1830 NLINES = NLINES + 3 IF (NLINES .GE. NLPP) CALL PAGE GO TO ( 220, 250, 280, 310, 340, 370, 400, 430, 460, 490, 1 520, 550, 580, 610, 650, 680, 710, 740, 770, 800, 2 830, 860, 890, 920, 950, 980,1010,1040,1070,1100, 3 1130,1160,1190,1220,1250,1280,1310,1340,1370,1400, 4 1430,1460,1490,1520,1550,1580,1610,1640,1670,1710, 5 1740,1770,1800,1822,3310,3340,3370,3400,3430,3470, 6 3500,3600,3700,1830,1830,1830,1830,1830,3800,3900, 7 4000,4100,4200), ICODE C C STANDARD ERROR MESSAGES C 10 NODMAP = ANDF(OSCAR(I+5),NOSGN) ASSIGN 30 TO LX 20 IF (NCODE) 130,1830,150 30 NME1= OSCAR(I+3) IF (NCODE .LT. 0) GO TO 60 WRITE (OP,50) NME1,OSCAR(I+4),NODMAP 50 FORMAT (30X,'ERROR IN DMAP INSTRUCTION ',2A4,3X, 1 'INSTRUCTION NO.',I4) GO TO 80 60 WRITE (OP,70) NME1,OSCAR(I+4),NODMAP 70 FORMAT (30X,'POSSIBLE ERROR IN DMAP INSTRUCTION ',2A4,3X, 1 'INSTRUCTION NO.',I4) 80 GO TO L, ( 290, 380, 410, 470, 500, 530, 660, 690, 810, 840, 1 960, 990, 720, 750,1320,1470,1500,1530,1560, 230, 2 870, 900, 260,1170,1620,1650, 320,1140,1200,1230, 3 930,1290,1380,1440,1680,1720,3502,3602,3702) C 90 ASSIGN 80 TO LX IF (NCODE) 170,1830,190 C 100 ASSIGN 110 TO LX GO TO 190 110 WRITE (OP,120) 120 FORMAT (30X,'UNEXPECTED END OF TAPE.') GO TO L, (1050,1080,1110) C 130 IF (KDHCOD .EQ. 1) GO TO 142 WRITE (OP,140) UWM,ICODE 140 FORMAT (A25,I5,1H,) GO TO 210 142 WRITE (OP,144) ICODE 144 FORMAT (/,' *** USER POTENTIALLY FATAL MESSAGE',I4,1H,) IF (IFLG(2) .LT. 2) NOGO = 1 GO TO 210 150 WRITE (OP,160) UFM,ICODE 160 FORMAT (A23,I4,1H,) GO TO 210 170 WRITE (OP,180) SWM,ICODE 180 FORMAT (A27,I4,1H,) GO TO 210 190 WRITE (OP,200) SFM,ICODE 200 FORMAT (A25,I4,1H,) C 210 GO TO LX, ( 350, 440, 560, 590, 620, 780,1020,1260,1350,1410, 1 1590,1750,1780,1810,1824, 30, 80, 110,3312,3342, 2 3372,3402,3432,3472,3802,3902,4002,4102,4202) C C ERROR MESSAGE 1 (XIOFL) C 220 ASSIGN 230 TO L GO TO 10 230 WRITE (OP,240) 240 FORMAT (5X,'ASSUMED FIRST INPUT DATA BLOCK IS NULL') GO TO 1850 C C ERROR MESSAGE 2 (XOSGEN) C 250 ASSIGN 260 TO L GO TO 10 260 WRITE (OP,270) J,K 270 FORMAT (5X,'PARAMETER NAMED ',2A4,' IS DUPLICATED') GO TO 1850 C C ERROR MESSAGE 3 (XPARAM) C 280 ASSIGN 290 TO L GO TO 10 290 WRITE (OP,300) J 300 FORMAT (5X,'FORMAT ERROR IN PARAMETER NO.',I3) GO TO 1850 C C ERROR MESSAGE 4 (XPARAM) C 310 ASSIGN 320 TO L GO TO 90 320 WRITE (OP,330) OSCAR(I+3),OSCAR(I+4),J 330 FORMAT (5X,'MPL PARAMETER ERROR,MODULE NAME = ',2A4,3X, 1 'PARAMETER NO.',I3) GO TO 1850 C C ERROR MESSAGE 5 (XPARAM) C 340 ASSIGN 350 TO LX GO TO 20 350 WRITE (OP,360) J,K 360 FORMAT (30X,'PARAMETER INPUT DATA ERROR, ILLEGAL TYPE FOR ', 1 'PARAMETER NAMED ',2A4,1H.) GO TO 1850 C C ERROR MESSAGE 6 (XPARAM) C 370 ASSIGN 380 TO L GO TO 10 380 WRITE (OP,390) J 390 FORMAT (5X,'ILLEGAL TYPE FOR PARAMETER NO.',I3) GO TO 1850 C C ERROR MESSAGE 7 (XPARAM) C 400 ASSIGN 410 TO L GO TO 10 410 WRITE (OP,420) J 420 FORMAT (5X,'PARAMETER NO.',I3,' NEEDS PARAMETER NAME') GO TO 1850 C C ERROR MESSAGE 8 (XPARAM) C 430 ASSIGN 440 TO LX GO TO 20 440 WRITE (OP,450) J,K 450 FORMAT (30X,'BULK DATA PARAM CARD ERROR - MUST NOT DEFINE ', 1 'PARAMETER NAMED ',2A4,1H.) GO TO 1850 C C ERROR MESSAGE 9 (XPARAM) C 460 ASSIGN 470 TO L GO TO 10 470 WRITE (OP,480) J 480 FORMAT (5X,'VALUE NEEDED FOR PARAMETER NO.',I3) GO TO 1850 C C ERROR MESSAGE 10 (XOSGEN) C 490 ASSIGN 500 TO L KDHCOD = 1 GO TO 10 500 WRITE (OP,510) 510 FORMAT (5X,'DEFAULT OPTION FOR INPUT DATA BLOCKS - MAKE SURE ', 1 'MISSING BLOCKS ARE NOT REQUIRED.') GO TO 1850 C C ERROR MESSAGE 11 (XOSGEN) C 520 ASSIGN 530 TO L KDHCOD = 1 GO TO 10 530 WRITE (OP,540) 540 FORMAT (5X,'DEFAULT OPTION FOR OUTPUT DATA BLOCKS - MAKE SURE ', 1 'MISSING BLOCKS ARE NOT REQUIRED.') GO TO 1850 C C ERROR MESSAGE 12 (XOSGEN) C 550 ASSIGN 560 TO LX GO TO 20 560 WRITE (OP,570) J 570 FORMAT (30X,'ERROR IN DMAP INSTRUCTION NO.',I4, 1 ', ILLEGAL CHARACTER IN DMAP INSTRUCTION NAME.') GO TO 1850 C C ERROR MESSAGE 13 (XOSGEN) C 580 ASSIGN 590 TO LX GO TO 20 590 WRITE (OP,50) DMAP(J),DMAP(J+1),K WRITE (OP,600) 600 FORMAT (30X,'DMAP INSTRUCTION NOT IN MODULE LIBRARY.') GO TO 1850 C C ERROR MESSAGE 14 (XOSGEN,XPARAM,XFLORD,XGPI,XSCNDM) C 610 ASSIGN 620 TO LX GO TO 190 620 WRITE (OP,630) I,J 630 FORMAT (5X,'ARRAY NAMED ',2A4,' OVERFLOWED') IF (K .EQ. 0) GO TO 1850 WRITE (OP,640) K 640 FORMAT (50X,'AT DMAP INSTRUCTION NO. ',I4,1H.) GO TO 1850 C C ERROR MESSAGE 15 (XPARAM) C 650 ASSIGN 660 TO L GO TO 10 660 WRITE (OP,670) J,K 670 FORMAT (5X,'INCONSISTENT TYPE USED FOR PARAMETER NAMED ',2A4) GO TO 1850 C C ERROR MESSAGE 16 (XOSGEN) C 680 ASSIGN 690 TO L GO TO 10 690 WRITE (OP,700) 700 FORMAT (5X,'ILLEGAL FORMAT') GO TO 1850 C C ERROR MESSAGE 17 (XOSGEN) C 710 ASSIGN 720 TO L GO TO 10 720 WRITE (OP,730) 730 FORMAT (5X,'ILLEGAL TIME SEGMENT NAME - NO TIME ESTIMATES MADE', 1 ' FOR THIS TIME SEGMENT (WARNING ONLY)') GO TO 1850 C C ERROR MESSAGE 18 (XPARAM) C 740 ASSIGN 750 TO L GO TO 10 750 WRITE (OP,760) 760 FORMAT (5X,'TOO MANY PARAMETERS IN DMAP PARAMETER LIST') GO TO 1850 C C ERROR MESSAGE 19 (XOSGEN) C 770 ASSIGN 780 TO LX GO TO 20 780 WRITE (OP,50) NLABL1,NLABL2,I WRITE (OP,790) DMAP(J),DMAP(J+1) 790 FORMAT (30X,'LABEL NAMED ',2A4,' IS MULTIPLY DEFINED.') GO TO 1850 C C ERROR MESSAGE 20 (XOSGEN) C 800 ASSIGN 810 TO L GO TO 10 810 WRITE (OP,820) J 820 FORMAT (5X,'ILLEGAL CHARACTERS IN PARAMETER NO.',I3) GO TO 1850 C C ERROR MESSAGE 21 (XOSGEN) C 830 ASSIGN 840 TO L GO TO 10 840 WRITE (OP,850) J,K 850 FORMAT (5X,'PARAMETER NAMED ',2A4,' IS NOT IN PRECEDING DMAP ', 1 'INSTRUCTION PARAMETER LIST') GO TO 1850 C C ERROR MESSAGE 22 (XFLORD) C 860 ASSIGN 870 TO L KDHCOD = 1 GO TO 10 870 WRITE (OP,880) J,K 880 FORMAT (5X,'DATA BLOCK NAMED ',2A4,' APPEARS AS INPUT BEFORE ', 1 'BEING DEFINED') GO TO 1850 C C ERROR MESSAGE 23 (XFLORD) C 890 ASSIGN 900 TO L GO TO 10 900 WRITE (OP,910) J,K 910 FORMAT (5X,'DATA BLOCK NAMED ',2A4,' IS NOT REFERENCED IN ', 1 'SUBSEQUENT FUNCTIONAL MODULE') GO TO 1850 C C ERROR MESSAGE 24 (XGPI) C 920 ASSIGN 930 TO L GO TO 90 930 WRITE (OP,940) I,J 940 FORMAT (5X,'CANNOT FIND DATA BLOCK NAMED ',2A4,' ON DATA POOL ', 1 'TABLE ') GO TO 1850 C C ERROR MESSAGE 25 (XOSGEN) C 950 ASSIGN 960 TO L GO TO 10 960 WRITE (OP,970) J,K 970 FORMAT (5X,'PARAMETER NAMED ',2A4,' NOT DEFINED') GO TO 1850 C C ERROR MESSAGE 26 (XOSGEN) C 980 ASSIGN 990 TO L GO TO 10 990 WRITE (OP,1000) J,K 1000 FORMAT (5X,'LABEL NAMED ',2A4,' NOT DEFINED') GO TO 1850 C C ERROR MESSAGE 27 (XOSGEN) C 1010 ASSIGN 1020 TO LX GO TO 20 1020 WRITE (OP,1030) J,K 1030 FORMAT (5X,'LABEL NAMED ',2A4,' NOT REFERENCED') GO TO 1850 C C ERROR MESSAGE 28 (XGPI) C 1040 ASSIGN 1050 TO L GO TO 100 1050 WRITE (OP,1060) 1060 FORMAT (61X,'ON NEW PROBLEM TAPE.') GO TO 1850 C C ERROR MESSAGE 29 (XGPI) C 1070 ASSIGN 1080 TO L GO TO 100 1080 WRITE (OP,1090) 1090 FORMAT (61X,'ON OLD PROBLEM TAPE.') GO TO 1850 C C ERROR MESSAGE 30 (XGPI) C 1100 ASSIGN 1110 TO L GO TO 100 1110 WRITE (OP,1120) 1120 FORMAT (61X,'ON DATA POOL FILE.') GO TO 1850 C C ERROR MESSAGE 31 (XGPI) C 1130 ASSIGN 1140 TO L GO TO 90 1140 WRITE (OP,1150) I,J 1150 FORMAT (5X,'CONTROL FILE ',2A4,' INCOMPLETE OR MISSING ON NEW ', 1 'PROBLEM TAPE') GO TO 1850 C C ERROR MESSAGE 32 (XFLORD) C 1160 ASSIGN 1170 TO L GO TO 10 1170 WRITE (OP,1180) J,K 1180 FORMAT (5X,'DATA BLOCK NAMED ',2A4,' MUST BE DEFINED PRIOR TO ', 1 'THIS INSTRUCTION') GO TO 1850 C C ERROR MESSAGE 33 (XGPI) C 1190 ASSIGN 1200 TO L GO TO 90 1200 WRITE (OP,1210) I,J 1210 FORMAT (5X,'SCRATCH FILE CONTAINING DMAP DATA COULD NOT BE ', 1 'OPENED IN SUBROUTINE ',2A4) GO TO 1850 C C ERROR MESSAGE 34 (XSCNDM) C 1220 ASSIGN 1230 TO L GO TO 90 1230 WRITE (OP,1240) J 1240 FORMAT (5X,'CANNOT TRANSLATE DMAP INSTRUCTION NO.',I3) GO TO 1850 C C ERROR MESSAGE 35 (XGPI) C 1250 ASSIGN 1260 TO LX GO TO 20 1260 M = LSHIFT(IBF(5),7) IYEAR = RSHIFT(ANDF(M,MASKHI),7) M = RSHIFT(M,6) IDAY = RSHIFT(ANDF(M,MASKHI),9) M = RSHIFT(M,5) IMNTH = RSHIFT(ANDF(M,MASKHI),10) N = LSHIFT(OTAPID(5),7) JYEAR = RSHIFT(ANDF(N,MASKHI),7) N = RSHIFT(N,6) JDAY = RSHIFT(ANDF(N,MASKHI),9) N = RSHIFT(N,5) JMNTH = RSHIFT(ANDF(N,MASKHI),10) WRITE (OP,1270) (IBF(I),M=1,4),IMNTH,IDAY,IYEAR,IBF(6), 1 (OTAPID(J),N=1,4),JMNTH,JDAY,JYEAR,OTAPID(6) 1270 FORMAT (30X,'INCORRECT OLD PROBLEM TAPE MOUNTED -', /5X, 1 'ID OF TAPE MOUNTED= ',2A4,1H,,2A4,1H,,I3,1H/,I2,1H/,I2, 1 'REEL=',I2, /5X, 2 'ID OF TAPE DESIRED= ',2A4,1H,,2A4,1H,,I3,1H/,I2,1H/,I2, 3 'REEL=',I2) GO TO 1850 C C ERROR MESSAGE 36 (XGPI) C 1280 ASSIGN 1290 TO L GO TO 90 1290 WRITE (OP,1300) I,J 1300 FORMAT (5X,'CANNOT FIND DATA BLOCK NAMED ',2A4,' ON OLD PROBLEM', 1 ' TAPE') GO TO 1850 C C ERROR MESSAGE 37 (XGPI) C 1310 IF (ISYS77 .LE. -1) GO TO 1850 ASSIGN 1320 TO L GO TO 10 1320 WRITE (OP,1330) J,K 1330 FORMAT (5X,'WARNING ONLY - MAY NOT BE ENOUGH FILES AVAILABLE FOR', 1 'MODULE REQUIREMENTS', /5X, 1 'FILES NEEDED =',I4,5X,'FILES AVAILABLE =',I4) GO TO 1850 C C ERROR MESSAGE 38 (XGPI) C 1340 ASSIGN 1350 TO LX GO TO 190 1350 WRITE (OP,1360) 1360 FORMAT (5X,'NOT ENOUGH CORE FOR GPI TABLES.') WRITE (OP,1361) I 1361 FORMAT (5X,'ADDITIONAL CORE NEEDED =',I8,' WORDS.') GO TO 1850 C C ERROR MESSAGE 39 (XOSGEN) C 1370 ASSIGN 1380 TO L GO TO 90 1380 WRITE (OP,1390) 1390 FORMAT (5X,'RIGID FORMAT DMAP SEQUENCE DOES NOT CORRESPOND TO ', 1 'MED TABLE') GO TO 1850 C C ERROR MESSAGE 40 (XSCNDM) C 1400 ASSIGN 1410 TO LX GO TO 20 1410 WRITE (OP,1420) 1420 FORMAT (5X,'ERROR IN ALTER DECK - CANNOT FIND END OF DMAP ', 1 'INSTRUCTION') GO TO 1850 C C ERROR MESSAGE 41 (XFLDEF) C 1430 ASSIGN 1440 TO L GO TO 90 1440 WRITE (OP,1450) I,J 1450 FORMAT (5X,'TABLES INCORRECT FOR REGENERATING DATA BLOCK ',2A4) GO TO 1850 C C ERROR MESSAGE 42 (XPARAM) C 1460 ASSIGN 1470 TO L GO TO 10 1470 WRITE (OP,1480) J,K 1480 FORMAT (5X,'PARAMETER NAMED ',2A4,' ALREADY HAD VALUE ASSIGNED ', 1 'PREVIOUSLY') GO TO 1850 C C ERROR MESSAGE 43 (XOSGEN) C 1490 ASSIGN 1500 TO L GO TO 10 1500 WRITE (OP,1510) 1510 FORMAT (5X,'ILLEGAL TYPE FOR CONSTANT VALUE') GO TO 1850 C C ERROR MESSAGE 44 (XSCNDM) C 1520 ASSIGN 1530 TO L GO TO 10 1530 WRITE (OP,1540) 1540 FORMAT (5X,'UNABLE TO FIND END DMAP INSTRUCTION') GO TO 1850 C C ERROR MESSAGE 45 (XFLORD) C 1550 ASSIGN 1560 TO L KDHCOD = 1 GO TO 10 1560 WRITE (OP,1570) J,K 1570 FORMAT (5X,'DATA BLOCK NAMED ',2A4,' ALREADY APPEARED AS OUTPUT') GO TO 1850 C C ERROR MESSAGE 46 (XGPI) C 1580 ASSIGN 1590 TO LX GO TO 20 1590 WRITE (OP,1600) 1600 FORMAT (5X,'INCORRECT REENTRY POINT') GO TO 1850 C C ERROR MESSAGE 47 (XFLORD) C 1610 ASSIGN 1620 TO L GO TO 10 1620 WRITE (OP,1630) 1630 FORMAT (5X,'THIS INSTRUCTION CANNOT BE FIRST INSTRUCTION OF LOOP') GO TO 1850 C C ERROR MESSAGE 48 (XOSGEN) C 1640 ASSIGN 1650 TO L GO TO 10 1650 WRITE (OP,1660) J,K 1660 FORMAT (5X,'DATA SET ',2A4,' IS ALWAYS REGENERATED, THEREFORE IT', 1 'WILL NOT BE CHECKPOINTED') GO TO 1850 C C ERROR MESSAGE 49 (XGPIBS,XOSGEN) C 1670 ASSIGN 1680 TO L GO TO 90 1680 WRITE (OP,1690) 1690 FORMAT (5X,'MPL TABLE (MODULE PROPERTIES LIST) IS INCORRECT') IF (I .EQ. 0) GO TO 1850 NLINES = NLINES + 1 WRITE (OP,1700) I,J,K 1700 FORMAT (5X,'DECIMAL LOCATION RELATIVE TO MPL(1) = ',I10, 1 ',MODULE NAME = ',2A4 ) GO TO 1850 C C ERROR MESSAGE 50 (XGPI) C 1710 ASSIGN 1720 TO L GO TO 90 1720 WRITE (OP,1730) 1730 FORMAT (5X,'CANNOT FIND JUMP OSCAR ENTRY NEEDED FOR THIS RESTART') GO TO 1850 C C ERROR MESSAGE 51 (XGPIBS) C 1740 ASSIGN 1750 TO LX GO TO 190 1750 WRITE (OP,1760) 1760 FORMAT (5X,'NOT ENOUGH OPEN CORE FOR XGPIBS ROUTINE') WRITE (OP,1361) I GO TO 1850 C C ERROR MESSAGE 52 (XGPIBS) C 1770 ASSIGN 1780 TO LX GO TO 190 1780 WRITE (OP,1790) 1790 FORMAT (5X,'NAMED COMMON /XLINK/ IS TOO SMALL') GO TO 1850 C C ERROR MESSAGE 53 (XGPIBS) C 1800 ASSIGN 1810 TO LX GO TO 150 1810 WRITE (OP,1820) 1820 FORMAT (5X,'INCORRECT FORMAT IN ABOVE CARD') GO TO 1850 C C ERROR MESSAGE 54 (XGPI) C 1822 ASSIGN 1824 TO LX GO TO 130 1824 WRITE (OP,1826) J,K 1826 FORMAT (5X,'PARAMETER NAMED ',2A4,' NOT REFERENCED') GO TO 1850 C C ERROR MESSAGE 55 (XOSGEN) C 3310 ASSIGN 3312 TO LX GO TO 150 3312 WRITE (OP,3314) 3314 FORMAT (5X,'PRECHK NAME LIST EXCEEDS MAXIMUM LIMIT (50)') GO TO 1850 C C ERROR MESSAGE 56 (XOSGEN) C 3340 ASSIGN 3342 TO LX GO TO 130 3342 WRITE (OP,3344) 3344 FORMAT (5X,'ILLEGAL OPTION ON XDMAP CARD - IGNORED') GO TO 1850 C C ERROR MESSAGE 57 (XOSGEN) C 3370 ASSIGN 3372 TO LX GO TO 150 3372 WRITE (OP,3374) 3374 FORMAT (5X,'VARIABLE REPT PARAMETER MUST BE AN INTEGER') GO TO 1850 C C ERROR MESSAGE 58 (XOSGEN) C 3400 ASSIGN 3402 TO LX GO TO 150 3402 WRITE (OP,3404) 3404 FORMAT (5X,'VARIABLE REPT PARAMETER MUST BE DEFINED PRIOR TO ', 1 'INSTRUCTION') GO TO 1850 C C ERROR MESSAGE 59 (OSCXRF) C 3430 ASSIGN 3432 TO LX KDHCOD = 1 GO TO 130 3432 WRITE (OP,3434) 3434 FORMAT (5X,'POOL FILE ERROR - DMAP CROSS-REF TERMINATED.') GO TO 1850 C C ERROR MESSAGE 60 (OSCXRF) C 3470 ASSIGN 3472 TO LX KDHCOD = 1 GO TO 130 3472 WRITE (OP,3474) 3474 FORMAT (5X,'INSUFFICIENT OPEN CORE FOR DMAP CROSS-REF - ', 1 'TERMINATED.') WRITE (OP,1361) I GO TO 1850 C C ERROR MESSAGE 61 (XOSGEN) C 3500 ASSIGN 3502 TO L GO TO 10 3502 WRITE (OP,3504) 3504 FORMAT (5X,'SAVE INSTRUCTION OUT OF SEQUENCE') GO TO 1850 C C ERROR MESSAGE 62 (XIPFL) C 3600 ASSIGN 3602 TO L GO TO 10 3602 WRITE (OP,3604) 3604 FORMAT (5X,'INCORRECT NUMBER OF INPUT DATA BLOCKS ENCOUNTERED') GO TO 1850 C C ERROR MESSAGE 63 (XIPFL) C 3700 ASSIGN 3702 TO L GO TO 10 3702 WRITE (OP,3704) 3704 FORMAT (5X,'INCORRECT NUMBER OF OUTPUT DATA BLOCKS ENCOUNTERED') GO TO 1850 C C ERROR MESSAGE 69 (XGPI) C 3800 ASSIGN 3802 TO LX GO TO 190 3802 WRITE (OP,3804) I, J 3804 FORMAT (5X,'SUBROUTINE ',2A4,' FINDS RIGID FORMAT OR MED TABLE ', 1 'RECORD MISSING ON SCRATCH FILE', /5X, 2 'MOST LIKELY DUE TO INSUFFECIENT CORE') C C * NOTE - DATA ON SCRATCH FILE MAY BE DESTROYED BY XSORT2 * GO TO 1850 C C ERROR MESSAGE 70 (XGPI) C 3900 ASSIGN 3902 TO LX GO TO 190 3902 WRITE (OP,3904) I,J,K 3904 FORMAT (5X,'SUBROUTINE ',2A4,' FINDS ',A4,' NAME TABLE RECORD ', 1 'MISSING ON SCRATCH FILE') GO TO 1850 C C ERROR MESSAGE 71 (XGPI) C 4000 ASSIGN 4002 TO LX GO TO 190 4002 WRITE (OP,4004) I 4004 FORMAT (5X,'ILLEGAL NUMBER OF WORDS (',I8,') IN MED TABLE RECORD', 1 ' ON SCRATCH FILE') GO TO 1850 C C ERROR MESSAGE 72 (XGPI) C 4100 ASSIGN 4102 TO LX GO TO 190 4102 WRITE (OP,4104) I,J 4104 FORMAT (5X,'ILLEGAL NUMBER OF WORDS (',I8,') IN ',A4, 1 ' NAME TABLE RECORD ON SCRATCH FILE') GO TO 1850 C C ERROR MESSAGE 73 (XGPI) C 4200 ASSIGN 4202 TO LX GO TO 190 4202 WRITE (OP,4204) I 4204 FORMAT (5X,'ONE OR MORE ILLEGAL BIT NUMBERS SPECIFIED IN ',A4, 1 ' NAME TABLE') GO TO 1850 C 1830 WRITE (OP,1840) ICODE 1840 FORMAT (//5X,'NO MESSAGE AVAILABLE FOR ERROR CODE =',I4) C 1850 RETURN C END ================================================ FILE: mis/xgpimw.f ================================================ SUBROUTINE XGPIMW (MSGNO,I,J,A) C C XGPIMW IS USED TO WRITE ALL NON-DIAGNOSTIC MESSAGES C GENERATED BY THE XGPI MODULE. C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,ANDF DIMENSION HDG1(18),HDG2(7),HDG3(2),HDG4(22),HDG5(26), 1 LINE(12),A(6) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /SYSTEM/ ZSYS(90),LPCH,LDICT COMMON /OUTPUT/ PGHDG(1) COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI, 1 NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT, 2 NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT, 3 NCHKPT,NPURGE,NEQUIV,NCPW,NBPC,NWPC, 4 MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1) COMMON /XGPI6 / MEDTP,FNMTP,CNMTP,MEDPNT,LMED,IPLUS,DIAG14,DIAG17 COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP, 1 ISAVE,ITPFLG,IAPND,IDUM(5),IEQFLG COMMON /XGPI5 / IAPP,START,ALTER(2),SOL,SUBSET,IFLAG,IESTIM, 1 ICFTOP,ICFPNT,LCTLFL,ICTLFL(1) COMMON /MODDMP/ IFLG(6),NAMOPT(26) COMMON /RESDIC/ IRDICT, IROPEN EQUIVALENCE (ZSYS( 2),OP ), (ZSYS( 3),NOGO ), 1 (ZSYS( 9),NLPP ), (ZSYS(12),NLINES), 2 (ZSYS(77),BKDATA), (ZSYS(26),CPPGCT), 3 (ZSYS(19),IECHO ), (ZSYS(24),ICFIAT) DATA HDG1 / 17, 4H ,4H COS,4HMIC ,4H/ NA,4HSTRA,4HN DM, 1 4HAP C,4HOMPI,4HLER ,4H- SO,4HURCE,4H LIS, 2 4HTING,4*4H / DATA HDG2 / 6, 6*4H / DATA HDG3 / 1, 4H / DATA HDG4 / 21, 1 4HINTE,4HRPRE,4HTED ,4HFROM,4H THE,4H OSC,4HAR. , 2 4HNEGA,4HTIVE,4H DMA,4HP IN,4HDICA,4HTES ,4HA NO, 3 4HN EX,4HECUT,4HABLE,4H INS,4HTRUC,4HTION,4H / DATA HDG5 / 25, 1 4H* * ,4H* D,4H M A,4H P ,4H C R,4H O S,4H S -, 2 4H R E,4H F E,4H R E,4H N C,4H E ,4H * *,4H * , 3 7*4H ,4HMODU,4HLE ,4H NA,4HMES / DATA KDLH / 0 / DATA ISTAR / 1H* / DATA IPAGE / 0 / DATA IBLNK / 4H / C C DIAGI4 = DIAG14 IF (DIAG14 .EQ. 10) DIAGI4 = 0 IF (DIAGI4.NE.0 .OR. DIAG17.NE.0) GO TO 100 IF (IECHO.EQ.-2 .AND. MSGNO.NE.9) RETURN GO TO 110 100 IF (IECHO.EQ.-2 .AND. (MSGNO.LE.4 .OR. MSGNO.EQ.8) .AND. 1 MSGNO.NE.9) RETURN 110 IF (MSGNO.LE.0 .OR. MSGNO.GT.13) GO TO 2240 GO TO (1860,1960,2000,2020,2040,2060,2080,2100,2160,2080, 1 1985,1970,2400), MSGNO C C MESSAGE 1 - INITIALIZE PAGE HEADING C =================================== C 1860 I1 = -I IF (I1 .GE. 0) GO TO 1940 I1 = HDG1(1) I2 = I1 + 1 DO 1870 M = 1,I1 1870 PGHDG(M+96) = HDG1(M+1) DO 1880 M = I2,32 1880 PGHDG(M+96) = NBLANK IF (I .EQ. 1) GO TO 1888 IF (I .EQ. 2) GO TO 1884 I1 = HDG5(1) DO 1883 M = 1,I1 1883 PGHDG(M+128) = HDG5(M+1) GO TO 1886 1884 I1 = HDG4(1) DO 1885 M = 1,I1 1885 PGHDG(M+128) = HDG4(M+1) 1886 I1 = I1 + 32 GO TO 1940 1888 I1 = HDG2(1) I2 = I1 + 1 DO 1890 M = 1,I1 1890 PGHDG(M+128) = HDG2(M+1) DO 1900 M = I2,32 1900 PGHDG(M+128) = NBLANK I1 = HDG3(1) I2 = I1 + 1 DO 1920 M = 1,I1 1920 PGHDG(M+160) = HDG3(M+1) DO 1930 M = I2,32 1930 PGHDG(M+160) = NBLANK IF (DIAGI4.EQ.0 .AND. START.EQ.ICST) GO TO 3000 IPAGE = 1 CALL PAGE GO TO 3000 C C BLANK OUT HEADING C 1940 I2 = I1 + 1 DO 1950 M = I2,96 PGHDG(M+ 96) = NBLANK 1950 CONTINUE NLINES = NLPP GO TO 3000 C C MESSAGE 2 (XGPI) C ================= C 1960 IF (START .EQ. IUNST) GO TO 1980 CALL PAGE2 (-6) WRITE (OP,1965) 1965 FORMAT (1H0,/,'0 + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESS', 1 'ED ONLY AT DMAP COMPILATION TIME.') WRITE (OP,1967) 1967 FORMAT ('0 * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR ', 1 'EXECUTION IN THIS MODIFIED RESTART.') GO TO 3000 C C MESSAGE 12 C ========== C 1970 CALL PAGE2 (-5) WRITE (OP,1975) UIM 1975 FORMAT (A29,' 4147', /5X,'NOTE THAT ADDITIONAL DMAP INSTRUCTIONS', 1 ' (NOT INDICATED BY AN * IN THE DMAP SOURCE LISTING)',/5X, 2 'NEED TO BE FLAGGED FOR EXECUTION IN ORDER TO GENERATE ', 3 'CERTAIN REQUIRED DATA BLOCKS.', /5X, 4 'SUCH INSTRUCTIONS AND THE ASSOCIATED DATA BLOCKS ARE ', 5 'IDENTIFIED BELOW.') GO TO 3000 C 1980 CALL PAGE2 (-6) WRITE (OP,1965) WRITE (OP,1982) 1982 FORMAT ('0 * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR ', 1 'EXECUTION IN THIS UNMODIFIED RESTART.') GO TO 3000 C C MESSAGE 11 C ========== C 1985 CALL PAGE2 (-6) WRITE (OP,1988) UIM,I 1988 FORMAT (A29,' 4148', /5X,'NOTE THAT ADDITIONAL DMAP INSTRUCTIONS', 1 ' (NOT INDICATED BY AN * IN THE DMAP SOURCE LISTING)',/5X, 2 'NEED TO BE FLAGGED FOR EXECUTION SINCE THIS UNMODIFIED ', 3 'RESTART INVOLVES DMAP LOOPING AND', /5X, 4 'THE REENTRY POINT IS WITHIN A DMAP LOOP. SUCH INSTRUCT', 5 'IONS ARE IDENTIFIED BELOW.', /5X, 6 'THE EXECUTION WILL, HOWEVER, RESUME AT THE LAST REENTRY', 7 ' POINT (DMAP INSTRUCTION NO.',I5,2H).,/) GO TO 3000 C C MESSAGE 3 (KYXFLD) C =================== C 2000 NLINES = NLINES + 2 IF (NLINES .GE. NLPP) CALL PAGE1 WRITE (OP,2010) I,J 2010 FORMAT ('0TO GENERATE DATA BLOCK ',2A4,' - TURN ON THE EXECUTE ', 1 'FLAG FOR THE FOLLOWING DMAP INSTRUCTIONS',/) GO TO 3000 C C MESSAGE 4 (KYXFLD) C =================== C 2020 NLINES = NLINES + 1 IF (NLINES .GE. NLPP) CALL PAGE1 L = ANDF(A(6),MASKHI) WRITE (OP,2030) L,A(4),A(5) 2030 FORMAT (1X,I4,2X,2A4) GO TO 3000 C C MESSAGE 5 - WRITE DMAP INSTRUCTION, FIRST LINE (XSCNDM) C ========================================================= C 2040 IF (DIAGI4 .EQ. 0) GO TO 2050 IF (KDLH .EQ. 0) GO TO 2255 2042 CALL PAGE2 (-2) WRITE (OP,2045) J,(A(M),M=1,I) 2045 FORMAT (/1X,I7,2X,20A4) 2050 IF (DIAG17 .NE. 0) WRITE (LPCH,2055) (A(M),M=1,I) 2055 FORMAT (20A4) GO TO 3000 C C MESSAGE 6 - WRITE DMAP INSTRUCTION, CONTINUATION LINE (XSCNDM) C ================================================================ C 2060 IF (DIAGI4 .EQ. 0) GO TO 2070 NLINES = NLINES + 1 IF (NLINES .GE. NLPP) CALL PAGE WRITE (OP,2065) (A(M),M=1,I) 2065 FORMAT (10X,20A4) 2070 IF (DIAG17 .NE. 0) WRITE (LPCH,2075) (A(M),M=1,I) 2075 FORMAT (20A4) GO TO 3000 C C MESSAGE 7 (XLNKHD) C MESSAGE 10 (XLNKHD AND XOSGEN) C =============================== C 2080 CONTINUE IF (DIAGI4 .EQ. 0) GO TO 3000 IWRITE = ISTAR IF (MSGNO .EQ. 10) IWRITE = IPLUS WRITE (OP,2090) IPLUS,IWRITE 2090 FORMAT (A1,2X,A1) GO TO 3000 C C MESSAGE 8 (KYGPI) C ================== C 2100 CALL PAGE1 NLINES = NLINES + 4 WRITE (OP,2110) 2110 FORMAT ('0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE ', 1 'USED TO INITIATE RESTART', //4X, 2 'FILE NAME REEL NO. FILE NO.',/) DO 2150 M = I,J,3 IREEL = ANDF(RSHIFT(A(M+2),16),31) IFILE = ANDF(A(M+2),MASKHI) CALL PAGE2 (-1) IF (IFILE .EQ. 0) GO TO 2130 WRITE (OP,2120) A(M),A(M+1),IREEL,IFILE 2120 FORMAT (5X,2A4,2X,I8,2X,I8) GO TO 2150 2130 WRITE (OP,2140) A(M),A(M+1) 2140 FORMAT (5X,2A4,2X,8H(PURGED)) 2150 CONTINUE GO TO 3000 C C MESSAGE 9 (KYGPI) C ================== C 2160 IF (BKDATA .LT. 0) CALL PAGE2 (-2) IF (BKDATA .EQ.-2) GO TO 2171 IF (IFLG(1).EQ. 1) GO TO 2165 WRITE (OP,2161) 2161 FORMAT (1H0,10X,'**COMPILATION COMPLETE - JOB TERMINATING WITH ', 1 'NOGO STATUS**') GO TO 2175 2165 IF (BKDATA .GE. 0) GO TO 2175 WRITE (OP,2170) 2170 FORMAT (1H0,10X,'**NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**') GO TO 2175 2171 WRITE (OP,2172) 2172 FORMAT (1H0,9X,'**NO ERRORS FOUND - NASTRAN EXECUTION TERMINATED', 1 ' BY USER REQUEST**') GO TO 3000 C C DUMP FIAT IF SENSE SWITCH 2 IS ON C 2175 CALL SSWTCH (2,L) IF (L .EQ. 0) GO TO 2210 CALL PAGE1 NLINES = NLINES + 4 WRITE (OP,2180) A(1),A(2),A(3) 2180 FORMAT (1H ,/5X,22HFIAT AT END OF PREFACE,3I15, /,1H ,/5X,'EQUIV', 2 ' APPEND LTU TAPE UNIT FILE NAME',31X,'---TRAILER---') L1 = A(3)*ICFIAT - 2 DO 2200 L = 4,L1,ICFIAT IEQUIV = 0 IAPPND = 0 ITAPE = 0 IF (RSHIFT(ANDF(A(L),IEQFLG),1) .GT. 0) IEQUIV = 1 IF (ANDF(A(L),IAPND ) .GT. 0) IAPPND = 1 IF (ANDF(A(L),ITPFLG) .GT. 0) ITAPE = 1 LTU = ANDF(RSHIFT(A(L),16),16383) IUNIT = ANDF(A(L),16383) IA1 = A(L+1) IA2 = A(L+2) IF (IA1 .NE. 0) GO TO 2185 IA1 = IBLNK IA2 = IBLNK 2185 M1 = L + 3 M2 = L + 5 CALL PAGE2 (-1) WRITE (OP,2190) IEQUIV,IAPPND,LTU,ITAPE,IUNIT,IA1,IA2 IF (ICFIAT .EQ. 8) WRITE (OP,2191) (A(M),M=M1,M2) IF (ICFIAT .EQ. 11) WRITE (OP,2192) (A(M),M=M1,M2),(A(M+M2),M=3,5) 2190 FORMAT (7X,I1,7X,I1,3X,I6,4X,I1,1X,I6,2X,2A4) 2191 FORMAT (1H+,48X,3I20) 2192 FORMAT (1H+,48X,6I10) 2200 CONTINUE 2210 IF (J .EQ. 0) GO TO 3000 IF (IROPEN .EQ. 1) GO TO 2215 CWKBD OPEN (UNIT=4, FILE='FORTDIC.ZAP', STATUS='UNKNOWN') IROPEN = 1 2215 WRITE (IRDICT,2220) I 2220 FORMAT (9X,'1, XVPS , FLAGS = 0, REEL = 1, FILE =',I7) CALL SSWTCH (9,DIAG09) IF (DIAG09 .EQ. 1) GO TO 3000 CALL PAGE1 NLINES = NLINES + 3 WRITE (OP,2230) 2230 FORMAT (9X,'CONTINUATION OF CHECKPOINT DICTIONARY', /,1H ) WRITE (OP,2220) I GO TO 3000 2240 NLINES = 2 + NLINES IF (NLINES .GE. NLPP) CALL PAGE1 WRITE (OP,2250) MSGNO 2250 FORMAT (//,' NO MESSAGE AVAILABLE FOR MESSAGE NO. ',I4) GO TO 3000 C C PROCESS DMAP COMPILER OPTIONS SUMMARY C 2255 IF (KDLH .NE. 0) GO TO 3000 IF (IPAGE.EQ. 0) CALL PAGE NLINES = NLINES + 4 LINE( 1) = NAMOPT( 1) LINE( 2) = NAMOPT( 2) LINE( 3) = NAMOPT( 5) LINE( 4) = IFLG ( 2) LINE( 5) = NAMOPT( 9) LINE( 6) = NAMOPT(10) LINE( 7) = NAMOPT(13) LINE( 8) = NAMOPT(14) LINE( 9) = NAMOPT(17) LINE(10) = NAMOPT(18) LINE(11) = NAMOPT(21) LINE(12) = NAMOPT(22) IF (IFLG(1) .LE. 0) LINE(1) = NAMOPT(3) IF (IFLG(3) .LE. 0) GO TO 2300 LINE( 5) = NAMOPT( 7) LINE( 6) = NAMOPT( 8) 2300 IF (IFLG(4) .LE. 0) GO TO 2310 LINE( 7) = NAMOPT(11) LINE( 8) = NAMOPT(12) 2310 IF (IFLG(5) .LE. 0) GO TO 2330 LINE( 9) = NAMOPT(15) LINE(10) = NAMOPT(16) 2330 IF (IFLG(6) .LE. 0) GO TO 2345 LINE(11) = NAMOPT(19) LINE(12) = NAMOPT(20) 2345 WRITE (OP,2350) (LINE(KKDJ),KKDJ=1,12) 2350 FORMAT ('0 OPTIONS IN EFFECT ',2A4,A3,1H=,I1,3X,8A4,/3X,17(1H-), 1 /) KDLH = 1 GO TO 2042 C C MESSAGE 13 (XGPI) C =================== C 2400 NSCR = 315 L = 20 CALL OPEN (*3000,NSCR,A(L),0) CALL PAGE1 CALL PAGE3 (4) WRITE (OP,2410) UIM 2410 FORMAT (A29,' - DUE TO ERROR(S), POSSIBLY ORIGINATED FROM USER''S' 1, ' ALTER PACKAGE, THE UNMODIFIED RIGID FORMAT LISTING', /5X, 2 'IS PRINTED FOR CROSS REFERENCE',/) L = 0 2420 CALL READ (*2440,*2440,NSCR,A(1),18,0,M) IF (A(1) .EQ. IBLNK) GO TO 2430 CALL PAGE3 (2) L = L + 1 WRITE (OP,2045) L,(A(M),M=1,18) GO TO 2420 2430 NLINES = NLINES + 1 IF (NLINES .GE. NLPP) CALL PAGE WRITE (OP,2065) (A(M),M=1,18) GO TO 2420 2440 CALL CLOSE (NSCR,1) C 3000 RETURN END ================================================ FILE: mis/xipfl.f ================================================ SUBROUTINE XIPFL C C THE PURPOSE OF XIOFL IS TO GENERATE THE INPUT AND OUTPUT FILE C SECTIONS FOR AN OSCAR ENTRY. C EXTERNAL ANDF,ORF INTEGER DMPCNT,DMPPNT,BCDCNT,DMAP,OSPRC,OSBOT,OSPNT, 1 OSCAR(1),OS(5),ANDF,ORF COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI, C ** CONTROL CARD NAMES ** 1 NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT, C ** DMAP CARD NAMES ** 2 NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT, 3 NCHKPT,NPURGE,NEQUIV,NCPW,NBPC,NWPC, 4 MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1) COMMON /ZZZZZZ/ CORE(1) COMMON /XGPI2 / LMPL,MPLPNT,MPL(1) COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT, 1 IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD, 2 MODIDX,LDMAP,ISAVDW,DMAP(1) COMMON /PASSER/ ISTOPF,MODNAM,ICOMON EQUIVALENCE (CORE(1),OS(1),LOSCAR),(OS(2),OSPRC), 1 (OS(3),OSBOT),(OS(4),OSPNT),(OS(5),OSCAR(1)) C C C SET INPUT FILE FLAG C IOFL = 1 K3 = 0 ISTOPF = 0 J = MPL(MPLPNT) MPLPNT = MPLPNT + 1 IF (J .NE. 0) GO TO 8 C C NO INPUT FILES - MAKE ONE NULL ENTRY IN OSCAR C OSCAR(OSPNT+6) = 1 OSCAR(OSPNT+7) = 0 OSCAR(OSPNT+8) = 0 OSCAR(OSPNT+9) = 0 OSCAR(OSPNT) = OSCAR(OSPNT) + 4 GO TO 7 C C ENTRY XOPFL C =========== C C SET O/P FLAG C IOFL = 0 K3 = 0 ISTOPF = 0 J = MPL(MPLPNT) MPLPNT = MPLPNT + 1 IF (J .NE. 0) GO TO 8 C C THERE ARE NO O/P FILES - CHANGE OSCAR ENTRY TYPE CODE TO O FORMAT C OSCAR(OSPNT+2) = ORF(2,ANDF(MASKLO,OSCAR(OSPNT+2))) GO TO 7 C C C SCAN INPUT OR OUTPUT SECTION C 8 I = OSPNT + OSCAR(OSPNT) ISTOPF = I OSCAR(I) = J OSCAR(OSPNT) = 1 + OSCAR(OSPNT) I = I + 1 J = I + 3*(J-1) OSCAR(OSPNT) = J + 3 - OSPNT C C ZERO I/O SECTION C L = J + 2 DO 1 K = I,L 1 OSCAR(K) = 0 C C ENTER FILE NAME IN OSCAR FROM DMAP C DO 10 K = I,J,3 CALL XSCNDM GO TO (30,2,20,30,20), IRTURN C C OK IF NAME RETURNED FROM XSCNDM C 2 IF (DMAP(DMPPNT) .EQ. NBLANK) GO TO 10 C C ENTER NAME IN OSCAR AND INITIALIZE ORDNAL C OSCAR(K ) = DMAP(DMPPNT ) OSCAR(K+1) = DMAP(DMPPNT+1) OSCAR(K+2) = 0 10 CONTINUE 7 CALL XSCNDM GO TO (15,20,20,22,20), IRTURN 15 IF (DMAP(DMPPNT+1) .EQ. ISLSH) GO TO 22 C C NORMAL EXIT IF DMAP OPERATOR IS / C C ERROR EXIT C BLANK ITEM IN O/P SECTION OF TYPE O FORMAT IS OKAY C 20 IF (J.EQ.0 .AND. IOFL.EQ.0 .AND. DMAP(DMPPNT).EQ.NBLANK) 1 GO TO 7 K1 = 1 + (K-I)/3 K2 = 1 + (J-I)/3 IF (K1 .LE. K2) GO TO 21 IF (K3 .EQ. 1) GO TO 7 IF (IOFL .EQ. 1) CALL XGPIDG (62,OSPNT,0,0) IF (IOFL .EQ. 0) CALL XGPIDG (63,OSPNT,0,0) K3 = 1 GO TO 7 21 IRTURN = 2 GO TO 25 22 IRTURN = 1 25 RETURN C C C DELIMITER OR END OF INSTRUCTION ENCOUNTERED BEFORE ANTICIPATED - C CHECK FOR ILLEGAL INPUT FORMAT C 30 IF (IOFL.NE.1 .OR. DMAP(DMPPNT+1).NE.ISLSH) GO TO 20 IF (ICOMON .EQ. 0) GO TO 21 ITYP = ANDF(OSCAR(OSPNT+2),7) IF (ITYP .EQ. 2) GO TO 22 C C FIRST INPUT FILE WAS NULL - SHIFT I/P SECTION BY ONE ENTRY AND C ZERO FIRST ENTRY C ISSUE WARNING MESSAGE C CALL XGPIDG (-1,OSPNT,0,0) IF (I .EQ. J) GO TO 22 I = I + 3 J = J + 2 DO 32 K = I,J L = J - K + I 32 OSCAR(L ) = OSCAR(L-3) OSCAR(I-3) = 0 OSCAR(I-2) = 0 OSCAR(I-1) = 0 GO TO 22 END ================================================ FILE: mis/xlnkdd.f ================================================ SUBROUTINE XLNKDD C C LINK SPECIFICATION TABLE C C A LINK TABLE ENTRY CONTAINS AN EXECUTABLE DMAP INSTRUCTION NAMES, C THEIR CORRESPONDING SUBROUTINE ENTRY POINT NAMES, AND THE LINK OR C LINKS WHERE THEY RESIDE C EACH BIT IN THE LINK FLAG SPECIFIES A LINK NUMBER. BIT 1 (RIGHT C MOST) SPECIFIES LINK ONE, BIT 2 SPECIFIES LINK 2, ETC. C BIT ON SPECIFIES MODULE IS IN THAT LINK, BIT OFF MEANS IT IS NOT. C EXAMPLE - SUPPOSE MODULE X IS IN LINKS 2,4 AND 5. ITS LINK C FLAG=32(8). C C LLINK = LENGTH OF LINK TABLE. C C SET SENSE SWITCH 28 TO GENERATE ALL FORTRAN CODE BELOW. C DIMENSION LINK (960), 1 LINK01(90), LINK02(90), LINK03(90),LINK04(90), 2 LINK05(90), LINK06(90), LINK07(90),LINK08(90), 3 LINK09(90), LINK10(90), LINK11(70) COMMON /XLKSPC/ LLINK , KLINK(970) EQUIVALENCE (LINK( 1), LINK01(1)), (LINK( 91),LINK02(1)), 1 (LINK(181), LINK03(1)), (LINK(271),LINK04(1)), 2 (LINK(361), LINK05(1)), (LINK(451),LINK06(1)), 3 (LINK(541), LINK07(1)), (LINK(631),LINK08(1)), 4 (LINK(721), LINK09(1)), (LINK(811),LINK10(1)), 5 (LINK(901), LINK11(1)) DATA LLINKX / 970 / DATA LINK01 / 4HCHKP,4HNT , 4HXCHK,4H , 32767 , 1 4HREPT,4H , 4HXCEI,4H , 32767 , 2 4HJUMP,4H , 4HXCEI,4H , 32767 , 3 4HCOND,4H , 4HXCEI,4H , 32767 , 4 4HSAVE,4H , 4HXSAV,4HE , 32766 , 5 4HPURG,4HE , 4HXPUR,4HGE , 32767 , 6 4HEQUI,4HV , 4HXEQU,4HIV , 32767 , 7 4HEND ,4H , 4HXCEI,4H , 32767 , 8 4HEXIT,4H , 4HXCEI,4H , 32767 , 9 4HADD ,4H , 4HDADD,4H , 72 , O 4HADD5,4H , 4HDADD,4H5 , 64 , 1 4HAMG ,4H , 4HAMG ,4H , 256 , 2 4HAMP ,4H , 4HAMP ,4H , 256 , 3 4HAPD ,4H , 4HAPD ,4H , 256 , 4 4HBMG ,4H , 4HBMG ,4H , 512 , 5 4HCASE,4H , 4HCASE,4H , 512 , 6 4HCEAD,4H , 4HCEAD,4H , 1024 , 7 4HCYCT,4H1 , 4HCYCT,4H1 , 64 / DATA LINK02 / 4HCYCT,4H2 , 4HCYCT,4H2 , 64 , 1 4HDDR ,4H , 4HDDR ,4H , 128 , 2 4HDDR1,4H , 4HDDR1,4H , 2048 , 3 4HDDR2,4H , 4HDDR2,4H , 2048 , 4 4HDDRM,4HM , 4HDDRM,4HM , 2048 , 5 4HDECO,4HMP , 4HDDCO,4HMP , 64 , 6 4HDIAG,4HONAL, 4HDIAG,4HON , 16384 , 7 4HDPD ,4H , 4HDPD ,4H , 32 , 8 4HDSCH,4HK , 4HDSCH,4HK , 64 , 9 4HDSMG,4H1 , 4HDSMG,4H1 , 4096 , O 4HDSMG,4H2 , 4HDSMG,4H2 , 8 , 1 4HDUMM,4HOD1 , 4HDUMO,4HD1 , 4 , 2 4HDUMM,4HOD2 , 4HDUMO,4HD2 , 64 , 3 4HDUMM,4HOD3 , 4HDUMO,4HD3 , 64 , 4 4HDUMM,4HOD4 , 4HDUMO,4HD4 , 64 , 5 4HEMA1,4H , 4HEMA1,4H , 128 , 6 4HEMG ,4H , 4HEMG ,4H , 128 , 7 4HFA1 ,4H , 4HFA1 ,4H , 1024 / DATA LINK03 / 4HFA2 ,4H , 4HFA2 ,4H , 1024 , 1 4HFBS ,4H , 4HDFBS,4H , 64 , 2 4HFRLG,4H , 4HFRLG,4H , 512 , 3 4HFRRD,4H , 4HFRRD,4H , 512 , 4 4HGI ,4H , 4HGI ,4H , 256 , 5 4HGKAD,4H , 4HGKAD,4H , 512 , 6 4HGKAM,4H , 4HGKAM,4H , 512 , 7 4HGP1 ,4H , 4HGP1 ,4H , 2 , 8 4HGP2 ,4H , 4HGP2 ,4H , 2 , 9 4HGP3 ,4H , 4HGP3 ,4H , 2 , O 4HGP4 ,4H , 4HGP4 ,4H , 8 , 1 4HGPCY,4HC , 4HGPCY,4HC , 64 , 2 4HGPFD,4HR , 4HGPFD,4HR , 4096 , 3 4HDUMM,4HOD5 , 4HDUMO,4HD5 , 64 , 4 4HGPWG,4H , 4HGPWG,4H , 8 , 5 4HINPU,4HT , 4HINPU,4HT , 2 , 6 4HINPU,4HTT1 , 4HINPT,4HT1 , 2 , 7 4HINPU,4HTT2 , 4HINPT,4HT2 , 2 / DATA LINK04 / 4HINPU,4HTT3 , 4HINPT,4HT3 , 2 , 1 4HINPU,4HTT4 , 4HINPT,4HT4 , 2 , 2 4HMATG,4HEN , 4HMATG,4HEN , 64 , 3 4HMATG,4HPR , 4HMATG,4HPR , 16 , 4 4HMATP,4HRN , 4HMATP,4HRN , 32766 , 5 4HMATP,4HRT , 4HPRTI,4HNT , 32766 , 6 4HMCE1,4H , 4HMCE1,4H , 8 , 7 4HMCE2,4H , 4HMCE2,4H , 8 , 8 4HMERG,4HE , 4HMERG,4HE1 , 64 , 9 4HMODA,4H , 4HMODA,4H , 64 , O 4HMODA,4HCC , 4HMODA,4HCC , 2048 , 1 4HMODB,4H , 4HMODB,4H , 64 , 2 4HMODC,4H , 4HMODC,4H , 64 , 3 4HMPYA,4HD , 4HDMPY,4HAD , 64 , 4 4HMTRX,4HIN , 4HMTRX,4HIN , 512 , 5 4HOFP ,4H , 4HOFP ,4H , 8192 , 6 4HOPTP,4HR1 , 4HOPTP,4HR1 , 2 , 7 4HOPTP,4HR2 , 4HOPTP,4HR2 , 128 / DATA LINK05 / 4HOUTP,4HUT , 4HOUTP,4HT , 8192 , 1 4HOUTP,4HUT1 , 4HOUTP,4HT1 , 8192 , 2 4HOUTP,4HUT2 , 4HOUTP,4HT2 , 8192 , 3 4HOUTP,4HUT3 , 4HOUTP,4HT3 , 8192 , 4 4HOUTP,4HUT4 , 4HOUTP,4HT4 , 8192 , 5 4HPARA,4HM , 4HQPAR,4HAM , 32766 , 6 4HPARA,4HML , 4HPARA,4HML , 32766 , 7 4HPARA,4HMR , 4HQPAR,4HMR , 32766 , 8 4HPART,4HN , 4HPART,4HN1 , 64 , 9 4HMRED,4H1 , 4HMRED,4H1 , 16384 , O 4HMRED,4H2 , 4HMRED,4H2 , 16384 , 1 4HCMRE,4HD2 , 4HCMRD,4H2 , 16384 , 2 4HPLA1,4H , 4HPLA1,4H , 4 , 3 4HPLA2,4H , 4HPLA2,4H , 4096 , 4 4HPLA3,4H , 4HPLA3,4H , 4096 , 5 4HPLA4,4H , 4HPLA4,4H , 4096 , 6 4HPLOT,4H , 4HDPLO,4HT , 2 , 7 4HPLTS,4HET , 4HDPLT,4HST , 2 / DATA LINK06 / 4HPLTT,4HRAN , 4HPLTT,4HRA , 2 , 1 4HPRTM,4HSG , 4HPRTM,4HSG , 2 , 2 4HPRTP,4HARM , 4HPRTP,4HRM , 128 , 3 4HRAND,4HOM , 4HRAND,4HOM , 8192 , 4 4HRMG ,4H , 4HRMG ,4H , 16 , 5 4HRBMG,4H1 , 4HRBMG,4H1 , 8 , 6 4HRBMG,4H2 , 4HRBMG,4H2 , 8 , 7 4HRBMG,4H3 , 4HRBMG,4H3 , 8 , 8 4HRBMG,4H4 , 4HRBMG,4H4 , 8 , 9 4HREAD,4H , 4HREIG,4H , 32 , O 4HSCAL,4HAR , 4HSCAL,4HAR , 16384 , 1 4HSCE1,4H , 4HSCE1,4H , 8 , 2 4HSDR1,4H , 4HSDR1,4H , 2048 , 3 4HSDR2,4H , 4HSDR2,4H , 4096 , 4 4HSDR3,4H , 4HSDR3,4H , 8192 , 5 4HSDRH,4HT , 4HSDRH,4HT , 4096 , 6 4HSEEM,4HAT , 4HSEEM,4HAT , 2 , 7 4HSETV,4HAL , 4HSETV,4HAL , 32766 / DATA LINK07 / 4HSMA1,4H , 4HSMA1,4H , 4 , 1 4HSMA2,4H , 4HSMA2,4H , 4 , 2 4HSMA3,4H , 4HSMA3,4H , 8 , 3 4HSMP1,4H , 4HSMP1,4H , 8 , 4 4HSMP2,4H , 4HSMP2,4H , 8 , 5 4HSMPY,4HAD , 4HSMPY,4HAD , 64 , 6 4HSOLV,4HE , 4HSOLV,4HE , 64 , 7 4HSSG1,4H , 4HSSG1,4H , 16 , 8 4HSSG2,4H , 4HSSG2,4H , 16 , 9 4HSSG3,4H , 4HSSG3,4H , 16 , O 4HSSG4,4H , 4HSSG4,4H , 16 , 1 4HSSGH,4HT , 4HSSGH,4HT , 16 , 2 4HTA1 ,4H , 4HTA1 ,4H , 2 , 3 4HCURV,4H , 4HCURV,4H , 4096 , 4 4HTABP,4HCH , 4HTABP,4HCH , 32766 , 5 4HTABP,4HRT , 4HTABF,4HMT , 32766 , 6 4HTABP,4HT , 4HTABP,4HT , 32766 , 7 4HTIME,4HTEST, 4HTIMT,4HST , 256 / DATA LINK08 / 4HTRD ,4H , 4HTRD ,4H , 1024 , 1 4HTRHT,4H , 4HTRHT,4H , 1024 , 2 4HTRLG,4H , 4HTRLG,4H , 16 , 3 4HTRNS,4HP , 4HDTRA,4HNP , 64 , 4 4HUMER,4HGE , 4HDUME,4HRG , 64 , 5 4HUPAR,4HTN , 4HDUPA,4HRT , 64 , 6 4HVDR ,4H , 4HVDR ,4H , 2048 , 7 4HVEC ,4H , 4HVEC ,4H , 64 , 8 4HXYPL,4HOT , 4HXYPL,4HOT , 2 , 9 4HXYPR,4HNPLT, 4HXYPR,4HPT , 8192 , O 4HXYTR,4HAN , 4HXYTR,4HAN , 2 , 1 4HCOMB,4H1 , 4HCOMB,4H1 , 16384 , 2 4HCOMB,4H2 , 4HCOMB,4H2 , 16384 , 3 4HEXIO,4H , 4HEXIO,4H , 16384 , 4 4HRCOV,4HR , 4HRCOV,4HR , 16384 , 5 4HRCOV,4HR3 , 4HRCOV,4HR3 , 16384 , 6 4HREDU,4HCE , 4HREDU,4HCE , 16384 , 7 4HSGEN,4H , 4HSGEN,4H , 16384 / DATA LINK09 / 4HSOFI,4H , 4HSOFI,4H , 16384 , 1 4HSOFO,4H , 4HSOFO,4H , 16384 , 2 4HSOFU,4HT , 4HSOFU,4HT , 16384 , 3 4HSUBP,4HH1 , 4HSUBP,4HH1 , 16384 , 4 4HPLTM,4HRG , 4HPLTM,4HRG , 16384 , 5 4HCOPY,4H , 4HCOPY,4H , 64 , 6 4HSWIT,4HCH , 4HSWIT,4HCH , 64 , 7 4HMPY3,4H , 4HMPY3,4H , 64 , 8 4HSDCM,4HPS , 4HDDCM,4HPS , 64 , 9 4HLODA,4HPP , 4HLODA,4HPP , 16384 , O 4HGPST,4HGEN , 4HGPST,4HGN , 8 , 1 4HEQMC,4HK , 4HEQMC,4HK , 2048 , 2 4HADR ,4H , 4HADR ,4H , 512 , 3 4HFRRD,4H2 , 4HFRRD,4H2 , 512 , 4 4HGUST,4H , 4HGUST,4H , 512 , 5 4HIFT ,4H , 4HIFT ,4H , 512 , 6 4HLAMX,4H , 4HLAMX,4H , 256 , 7 4HEMA ,4H , 4HEMA ,4H , 128 / DATA LINK10 / 4HANIS,4HOP , 4HANIS,4HOP , 2 , 1 4HEMFL,4HD , 4HEMFL,4HD , 4096 , 2 4HGENC,4HOS , 4HGENC,4HOS , 4096 , 3 4HDDAM,4HAT , 4HDDAM,4HAT , 4096 , 4 4HDDAM,4HPG , 4HDDAM,4HPG , 4096 , 5 4HNRLS,4HUM , 4HNRLS,4HUM , 4096 , 6 4HGENP,4HART , 4HGENP,4HAR , 4096 , 7 4HCASE,4HGEN , 4HCASE,4HGE , 4096 , 8 4HDESV,4HEL , 4HDESV,4HEL , 4096 , 9 4HPROL,4HATE , 4HPROL,4HAT , 4096 , O 4HMAGB,4HDY , 4HMAGB,4HDY , 16 , 1 4HCOMB,4HUGV , 4HCOMU,4HGV , 4096 , 2 4HFLBM,4HG , 4HFLBM,4HG , 8 , 3 4HGFSM,4HA , 4HGFSM,4HA , 8 , 4 4HTRAI,4HLER , 4HTRAI,4HL , 8 , 5 4HSCAN,4H , 4HSCAN,4H , 8192 , 6 4HPLTH,4HBDY , 4HPTHB,4HDY , 2 , 7 4HVARI,4HAN , 4HVARI,4HAN , 8192 / DATA LINK11 / 4HFVRS,4HTR1 , 4HFVRS,4HT1 , 64 , 1 4HFVRS,4HTR2 , 4HFVRS,4HT2 , 64 , 2 4HALG ,4H , 4HALG ,4H , 32 , 3 4HAPDB,4H , 4HAPDB,4H , 256 , 4 4HPROM,4HPT1 , 4HPROM,4HPT , 8194 , 5 4HSITE,4HPLOT, 4HOLPL,4HOT , 2 , 6 4HINPU,4HTT5 , 4HINPT,4HT5 , 2 , 7 4HOUTP,4HUT5 , 4HOUTP,4HT5 , 8192 , 8 4HPARA,4HMD , 4HQPAR,4HMD , 32766 , 9 4HGINO,4HFILE, 4HGINO,4HFL , 32766 , O 4HDATA,4HBASE, 4HDBAS,4HE , 8202 , 1 4HNORM,4H , 4HNORM,4HAL , 16 , 2 4HVECG,4HRB , 4HGRBV,4HEC , 64 , 3 4HAUTO,4HASET, 4HAASE,4HT , 8 / C C INITIALIZE /XLKSPC/ C LLINK = LLINKX DO 10 I = 1,LLINK 10 KLINK(I) = LINK(I) RETURN END ================================================ FILE: mis/xlnkhd.f ================================================ SUBROUTINE XLNKHD C C THE PURPOSE OF XLNKHD IS TO GENERATE THE LINK HEADER SECTION FOR C AN OSCAR ENTRY C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF DIMENSION MED(1),OSCAR(1),OS(5) COMMON /SYSTEM/ ISYS(81),CPFLG COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI, 1 NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT, 2 NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT, 3 NCHKPT,NPURGE,NEQUIV, 4 NCPW,NBPC,NWPC, 5 MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1) COMMON /ZZZZZZ/ CORE(1) COMMON /XGPI2 / LMPL,MPLPNT,MPL(1) COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT, 1 IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD, 2 MODIDX,LDMAP,ISAVDW,DMAP(1) COMMON /XGPI5 / IAPP,START,ALTER(2),SOL,SUBSET,IFLAG,IESTIM, 1 ICFTOP,ICFPNT,LCTLFL,ICTLFL(1) COMMON /XGPI6 / MEDTP,FNMTP,CNMTP,MEDPNT,LMED,DUMMY(5),IFIRST COMMON /XMDMSK/ NMSKCD,NMSKFL,NMSKRF,MEDMSK(7) COMMON /XOLDPT/ XX(4),SEQNO COMMON /AUTOHD/ IHEAD COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP EQUIVALENCE (CORE(1),OS(1),LOSCAR),(OS(2),OSPRC), 1 (OS(3),OSBOT),(OS(4),OSPNT), 2 (OSCAR(1),MED(1),OS(5)) DATA XCHK / 4HXCHK / C OR (I,J) = ORF(I,J) AND(I,J) = ANDF(I,J) MPLER = MPL(MPLPNT+3) IF (IHEAD .EQ. 1) MPLER = 4 C C CHECK FOR DECLARATIVE INSTRUCTION C IF (IHEAD .EQ. 1) GO TO 20 IF (MPLER .NE. 5) GO TO 10 OSPNT = OSCAR(OSBOT) + OSBOT GO TO 20 C C UPDATE OSCAR PARAMETERS C 10 OSPRC = OSBOT OSBOT = OSCAR(OSBOT) + OSBOT OSPNT = OSBOT ISEQN = OSCAR(OSPRC+1) + 1 C C LOAD LINK HEADER INFORMATION C OSCAR(OSPNT ) = 6 OSCAR(OSPNT + 1) = ISEQN OSCAR(OSPNT + 2) = MPLER + LSHIFT(MODIDX,16) OSCAR(OSPNT + 3) = DMAP(DMPPNT ) OSCAR(OSPNT + 4) = DMAP(DMPPNT + 1) OSCAR(OSPNT + 5) = DMPCNT C MPLPNT = MPLPNT + 4 20 OSCAR(OSPNT+5) = OR(ISGNON,OSCAR(OSPNT+5)) C C ALWAYS RAISE EXECUTE FLAG FOR COLD START RUNS C IF (START .EQ. ICST) GO TO 70 C C COMPARE SEQ NO. WITH REENTRY SEQ NO. C IF (DMPCNT .LT. RSHIFT(SEQNO,16)) GO TO 30 C C WE ARE BEYOND REENTRY POINT - EXECUTE ALL MODULES HERE ON OUT. C IF (ANDF(MASKHI,SEQNO).EQ.0 .AND. MPLER.NE.5) 1 SEQNO = OR(ISEQN,AND(MASKLO,SEQNO)) GO TO 70 C C WE ARE BEFORE REENTRY POINT - CHECK APPROACH AND TYPE OF RESTART C ALWAYS RAISE EXECUTE FLAG FOR INSERT FOR MODIFIED RESTARTS. C 30 IF (INSERT.NE.0 .AND. START.EQ.IMST) GO TO 70 IF (START .EQ. IMST) GO TO 40 C C LOWER EXECUTE FLAG FOR UNMODIFIED RESTART RUNS. C OSCAR(OSPNT+5) = AND(NOSGN,OSCAR(OSPNT+5)) IF (MPLER .EQ. 5) GO TO 90 RETURN C C FOR RIGID FORMAT - CHECK DECISION TABLE FOR MODIFIED RESTART C 40 I = MED(MEDTP+1) DO 50 J = 1,I K = MEDPNT + J - 1 IF (AND(MED(K),MEDMSK(J)) .NE. 0) GO TO 70 50 CONTINUE OSCAR(OSPNT+5) = AND(NOSGN,OSCAR(OSPNT+5)) 70 IF (OSCAR(OSPNT+3).EQ.XCHK .AND. CPFLG.EQ.0) 1 OSCAR(OSPNT+5) = AND(NOSGN,OSCAR(OSPNT+5)) IF (OSCAR(OSPNT+5).GE.0 .AND. MPLER.NE.5) RETURN C C PRINT COMPILE/EXECUTE FLAG FOR RESTART C 90 IF (START.EQ.ICST .OR. IFIRST.EQ.0) RETURN IF (DMPCNT.EQ.IFLAG .AND. INSERT.EQ.0) RETURN IFLAG = DMPCNT I = 7 IF (MPLER .EQ. 5) I = 10 CALL XGPIMW (I,0,0,0) RETURN END ================================================ FILE: mis/xmpldd.f ================================================ SUBROUTINE XMPLDD C C C MPL = MODULE PROPERTIES TABLE C LMPL = LENGTH OF MPL TABLE C MPLPNT = POINTER TO AN MPL ENTRY C C DESCRIPTION OF VARIABLES EQUIVALENCED TO /XGPI2/ ENTRIES C EQUIVALENCE (LMPL,LORDNL),(MPLPNT,IORBOT),(MPL,IORDNL) C C IORDNL = TABLE USED TO COMPUTE FILE ORDNALS AND NUT VALUES C LORDNL = LENGTH OF IORDNL TABLE C IORBOT = POINTER TO LAST ENTRY MADE IN IORDNL TABLE C C ================================================================== C C NOTE DATA ITEMS HAVE BLANK WORDS TO FACILITATE ADDITIONS C CHANGE DIMENSIONS ONLY IF THE BLANKS ARE DEPLETED BY ADDITIONS C C ANY FOLLOWING DATA LINE ENDS WITH BCD BLANKS SHOULD BE FOLLOWED BY C COMMA, SO THAT A STRIPPING ROUTINE WOULD NOT STRIP OFF THOSE BLANK C C ================================================================== C C LOAD /XGPI2/ C MODULE PROPTERIES LIST (MPL) C REAL X(2,20) DOUBLE PRECISION XX(20) , XXX(20) DIMENSION MPL01( 68), MPL02(161), MPL03(135), MPL04(152), 5 MPL05(138), MPL06(162), MPL07(200), MPL08(137), 9 MPL09(173), MPL10( 93), MPL11(116), MPL12(135), 3 MPL13(150), MPL14(151), MPL15(135), MPL16( 53), 7 MPL17(144), MPL18(169), MPL19(193), MPL20(186), 1 MPL21(196), MPL22(119), MPL( 3166) COMMON /XGPI2 / LMPL, MPLPNT , IMP( 3166) COMMON /XGPI2X/ XXX EQUIVALENCE (XX(1),X(1,1)) EQUIVALENCE (MPL( 1),MPL01(1)) ,(MPL( 69),MPL02(1)) , 3 (MPL( 230),MPL03(1)) ,(MPL( 365),MPL04(1)) , 5 (MPL( 517),MPL05(1)) ,(MPL( 655),MPL06(1)) , 7 (MPL( 817),MPL07(1)) ,(MPL(1017),MPL08(1)) , 9 (MPL(1154),MPL09(1)) ,(MPL(1327),MPL10(1)) , 1 (MPL(1420),MPL11(1)) ,(MPL(1536),MPL12(1)) , 3 (MPL(1671),MPL13(1)) ,(MPL(1821),MPL14(1)) , 5 (MPL(1972),MPL15(1)) ,(MPL(2107),MPL16(1)) , 7 (MPL(2160),MPL17(1)) ,(MPL(2304),MPL18(1)) , 9 (MPL(2473),MPL19(1)) ,(MPL(2666),MPL20(1)) , 1 (MPL(2852),MPL21(1)) ,(MPL(3048),MPL22(1)) C DATA LMPLX / 3166 / C DATA X(1,1) / -1.0 / DATA XX(2) / -1.0D+0 / DATA X(1,3),X(2,3) / 2*-1.0 / DATA XX(4),XX(5) / 2*-1.0D+0 / DATA X(1,6) / 1.0 / DATA X(1,7),X(2,7) / 1.0,0.0 / DATA XX(8) / 0.0D+0 / DATA X(1,9),X(2,9) / 2*0.0 / DATA X(1,10) / 30.0 / DATA X(1,11) / 0.001 / DATA X(1,12) / 0.55 / DATA X(1,13) / 0.01 / DATA X(1,14) / 0.00001 / DATA X(1,15) / 1.01 / DATA X(1,16) / 0.80 / DATA XX(17) / 1.1D+37 / DATA X(1,18),X(2,18)/ 2*1.1E+37 / C C DATA MPL01 / 1 4, 4HFILE,4H , 5 2, 4, 4HBEGI,4HN , 5 3, 4, 4HCHKP,4HNT , 4 4, 4, 4HLABE,4HL , 5 5, 4, 4HREPT,4H , 3 6, 4, 4HJUMP,4H , 3 7, 4, 4HCOND,4H , 3 8, 4, 4HSAVE,4H , 4 9, 4, 4HPURG,4HE , 4 X, 4, 4HEQUI,4HV , 4 1, 4, 4HEND ,4H , 3 2, 4, 4HEXIT,4H , 3 M, 20, 19*0 Z/ C C IN NEXT 12 LINES, '1' MAY MEAN NUMERIC ONE, OR A VERTICAL BAR C C NO. OF WORDS 1 I O S ---PARAMETERS C OF THIS DMAP N U C 1 NEGATIVE FOR NO DEFAULT C LINE OR P T R 1 POSITIVE INDICATES DEFAULT TO C 1 U P A 1 1 = INTEGER NEXT VALUE(S) C 1 DAMP NAME 2 T U T 1 2 = RSP C 1 1 1 T C 1 3 = BCD (NEXT WORD(S) C 1 1 1. I/O DB 1 1 H 1 4 = RDP AFTER 2,4,5,6 ARE C 1 1 2. NO OUT- 1 1 1 1 5 = CSP POINTER TO DEF- C 1 1 PUT DB 1 1 1 1 6 = CDP AULT VALUE(S) IN C 1 1 1 1 1 1 1 X OR XX ARRAYS) C 1 1 1 1 1 1 1 REF. PROG. MAN. SEC 2.4.2.2 DATA MPL02 / 1 25, 4HADD ,4H , 1, 2, 1, 0, 5, 2*18, 5, 2*18, 6, 4*17 2 , 6, 4*17, 1, 0 2, 22, 4HADD5,4H , 1, 5, 1, 0, 5, 7, 7, 5, 7, 7, 5,7,7, 5,7,7 * , 5, 7, 7 3, 10, 4HAMG ,4H , 1, 2, 4, 5, 3* -1 4, 11, 4HAMP ,4H , 1,10, 3,14, 2* -1, 1,-1 5, 12, 4HAPD ,4H , 1, 8,12, 5, 3* -1, 2, 9 6, 10, 4HBMG ,4H , 1, 4, 1, 1, -1, -1,-5 7, 12, 4HCASE,4H , 1, 2, 1, 0, -3, 1, 1, 1,-1 9, 15, 4HCYCT,4H1 , 1, 1, 2, 3, -3, -3,-1,-1, 1, 1,1, 1 X, 16, 4HCYCT,4H2 , 1, 6, 5, 6, -3, -1,-1, 1,-1, 1,1, 1,1 8, 10, 4HCEAD,4H , 1, 5, 4,12, -1, 1, 1 M, 11, 4HCURV,4H , 1, 6, 2, 5, 1, -1, 1, 0 N, 7, 6*0 Z/ C DATA MPL03 / 1 10, 4HDDR ,4H , 1, 1, 1, 0, -3,-3,-3 2, 7, 4HDDR1,4H , 1, 2, 1, 1 3, 14, 4HDDR2,4H , 1, 9, 3, 6, -3, 1,-1, 1,-1, 1,-1 4, 7, 4HDDRM,4HM , 1,11, 5, 7 5, 21, 4HDECO,4HMP , 1, 1, 2, 4, 1, 0, 1, 0, 4, 8, 8, 5, 9, 9 * , 1, 0, 1, 0 6, 12, 4HDIAG,4HONAL, 1, 1, 1, 0, 3,4HCOLU,4HMN , 2, 6 7, 19, 4HDPD ,4H , 1, 4,11, 4, 9*-1, 1, 1,-1 8, 16, 4HDSCH,4HK , 1, 3, 0, 3, 2*-2, 7*-1 9, 8, 4HDSMG,4H1 , 1,10, 1, 1, -1 X, 11, 4HDSMG,4H2 , 1,11, 7, 0, 1, 0,-1,-1 M, 10, 9*0 Z/ C DATA MPL04 / 1 33, 4HDUMM,4HOD1 , 1, 1, 2, 3, 1,-1, 1,-1, 1,-1, 1,-1, 2,1, 2,1 * , 3, 4HABCD , 4HEFGH , 4, 2,2, 5,3 * , 3, 6, 4, 4, 5, 5 2, 33, 4HDUMM,4HOD2 , 1, 8, 8,10, 1,-1, 1,-1, 1,-1, 1,-1, 2,1, 2,1 * , 3, 4HABCD , 4HEFGH, 4, 2,2, 5,3 * , 3, 6, 4, 4, 5, 5 3, 33, 4HDUMM,4HOD3 , 1, 8, 8,10, 1,-1, 1,-1, 1,-1, 1,-1, 2,1, 2,1 * , 3, 4HABCD , 4HEFGH , 4, 2,2, 5,3 * , 3, 6, 4, 4, 5, 5 4, 33, 4HDUMM,4HOD4 , 1, 8, 8,10, 1,-1, 1,-1, 1,-1, 1,-1, 2,1, 2,1 * , 3, 4HABCD , 4HEFGH, 4, 2,2, 5,3 * , 3, 6, 4, 4, 5, 5 M, 20, 19*0 Z/ C DATA MPL05 / 1 11, 4HEMA1,4H , 1, 5, 1, 2, 1,-1, 2, 6 2, 43, 4HEMG ,4H , 1, 6, 7, 4, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1 * , 1,-1, 1,-1, 1,-1, 1,-1, 1,-1 * , 1,-1, 1,-1, 1,-1, 1,-1, 1,-1 * , 1,-1, 2, 9, 2, 9 3, 11, 4HFA1 ,4H , 1, 6, 4, 6, 2*-1, 1, 0 4, 12, 4HFA2 ,4H , 1, 3, 4, 0, -1,-2, 3, 4HYES ,4H , 5 15, 4HFBS ,4H , 1, 3, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0 6, 13, 4HFRLG,4H , 1, 8, 5, 4, -3, 1,-1, 3, 4HFREQ,4H , 7 17, 4HFRRD,4H , 1,11, 4, 8, -3,-3,-1,-1,-1,-1,-1,-1 * , 1, 1 M, 16, 15*0 Z/ C DATA MPL06 / 1 9, 4HGI ,4H , 1, 8, 1, 6, 2*-1 2, 24, 4HGKAD,4H , 1,10, 8, 6, -3,-3,-3,-2,-2,-2, 11*-1 3, 21, 4HGKAM,4H , 1, 9, 4, 4, -1,-1, 2, 9, 2, 1, 4*-1 * , 1, 1, 1,-1 4, 11, 4HGP1 ,4H , 1, 3, 6, 2, -1,-1, 1, 1 5, 7, 4HGP2 ,4H , 1, 2, 1, 4 6, 12, 4HGP3 ,4H , 1, 3, 2, 2, -1, 1, 1, 1, 1 7, 24, 4HGP4 ,4H , 1, 7, 5, 2, 9*-1, 1, 1, 1,-1, 1,0, 1,0 8, 10, 4HGPCY,4HC , 1, 3, 1, 2, -3, 1, 1 A, 8, 4HGPFD,4HR , 1, 9, 2, 4, -3 9, 20, 4HDUMM,4HOD5 , 1, 5, 5, 0, -1, 1, 0, 1, 0, 1, 0,1,0,1,0,1,0 X, 11, 4HGPWG,4H , 1, 4, 1, 4, 1,-1, 2, 6 M, 5, 4*0 Z/ C DATA MPL07 / 1 13, 4HINPU,4HT , 1, 5, 5, 0, 1,-1, 1, 0, 1, 0 2, 17, 4HINPU,4HTT1 , 1, 0, 5, 0, 1, 0, 1, 0, 3, 4HXXXX,4HXXXX * , 3, 4H , 4H , 3 21, 4HINPU,4HTT2 , 1, 0, 5, 0, 1, 0, 1,14, 3, 4HXXXX,4HXXXX * , 1, 0, 1, 0, 3, 4H ,4H , 4 13, 4HINPU,4HTT3 , 1, 5, 5, 0, 1,-11, 1, 0, 1, 0 5, 16, 4HINPU,4HTT4 , 1, 0, 5, 0, 1, 1, 1,14, 3, 4HXXXX,4HXXXX * , 1, 0 6, 29, 4HMATG,4HEN , 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 * , 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 7, 18, 4HMATG,4HPR , 2, 4, 0, 0, -3, 3, 4H , 4H , 3 * , 4HALL ,4H , 2, 9, 1, 0 8, 19, 4HMATP,4HRN , 2, 5, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 * , 1, 0 9, 11, 4HMATP,4HRT , 2, 1, 0, 0, 1, 0, 1, 0 X, 7, 4HMCE1,4H , 1, 2, 1, 7 1, 7, 4HMCE2,4H , 1, 6, 4, 6 2, 17, 4HMERG,4HE , 1, 6, 1, 0, 1,-1, 1, 0, 1, 0, 1, 0, 1, 0 M, 12, 11*0 / C DATA MPL08 / 1 20, 4HMODA,4H , 1, 0, 4, 0, 5*-2, 5* -1, -2, -1, -1 2, 10, 4HMODA,4HCC , 1, 6, 5, 0, 3,4HTRAN,4H , 3 18, 4HMODB,4H , 1, 3, 4, 0, 4*-2, 3* -1, -2, 3* -1 4, 8, 4HMODC,4H , 1, 2, 0, 0, -1 5, 14, 4HMPYA,4HD , 1, 3, 1, 1, -1, 1, 1, 1, 1, 1, 0 6, 14, 4HMTRX,4HIN , 1, 5, 3, 7, -1, 1, -1, 1, -1, 1, -1 7, 11, 4HOFP ,4H , 2, 6, 0, 0, 1, 0, 1,-1 8, 10, 4HOPTP,4HR1 , 1, 5, 1, 1, 3*-1 9, 12, 4HOPTP,4HR2 , 1, 3, 2, 0, 3*-1, 1, 0 M, 20, 19*0 Z/ C DATA MPL09 / 1 9, 4HOUTP,4HUT , 2, 1, 0, 0, 1,-1 2, 14, 4HOUTP,4HUT1 , 2, 5, 0, 0, 1, 0, 1, 0,3,4HXXXX,4HXXXX 3, 21, 4HOUTP,4HUT2 , 2, 5, 0, 0, 1, 0, 1,14,3,4HXXXX,4HXXXX, * 1, 0, 1, 0,3,4H ,4H , 4 22, 4HOUTP,4HUT3 , 2, 5, 0, 0, 1, 0,-3, 3,3HXXX,1H ,3,3HXXX * , 1H , 3,3HXXX,1H ,3,3HXXX,1H , 5 13, 4HOUTP,4HUT4 , 2, 5, 0, 0, 1,-1, 1,14,1, 1 6, 14, 4HPARA,4HM , 1, 0, 0, 0, -3, 1, 1, 1,1, 1,1 7, 30, 4HPARA,4HML , 2, 1, 0, 0, -3, 1, 1, 1,1, 2,9, 1,0, 4,8,8 * , 3, 4H(VOI ,4HD) , 5,9,9, 6,4*8 8, 25, 4HPARA,4HMR , 2, 0, 0, 0, -3, 2, 9, 2,9, 2,9, 5,9,9, 5,9,9 * , 5, 9, 9, 1,0 9, 19, 4HPART,4HN , 1, 3, 4, 0, 1,-1, 1, 0,1, 0,1, 0,1,0, 1,0 M, 6, 5*0 Z/ C DATA MPL10 / 1 17, 4HMRED,4H1 , 1, 4, 4, 1, -3,-1,-1,-1, -1,-3, 1,0, 2,9 2, 14, 4HMRED,4H2 , 1,12, 6,11, -1,-1, 3,4H ,4H , 1,0 3, 12, 4HCMRE,4HD2 , 1,11, 6,11, -1,-1, 3,4H ,4H , 4 13, 4HPLA1,4H , 1, 7, 4, 0, 5*-1,-5 5, 8, 4HPLA2,4H , 1, 3, 3, 0, -1 6, 9, 4HPLA3,4H , 1, 6, 2, 1, -1,-1 7, 10, 4HPLA4,4H , 1, 6, 2, 1, -1,-1,-5 M, 10, 9*0 Z/ C DATA MPL11 / 1 14, 4HPLOT,4H , 1,13, 1, 4, 3*-1, 1, 1, 1, 0 2, 10, 4HPLTS,4HET , 1, 4, 4, 2, -1, 1,-1 3, 11, 4HPLTT,4HRAN , 1, 2, 2, 0, 1, 0, 1, 0 4, 7, 4HPRTM,4HSG , 2, 1, 0, 0 5, 13, 4HPRTP,4HARM , 2, 0, 0, 0, -1, 3, 4HXXXX ,4HXXXX, 1,0 6, 9, 4HRAND,4HOM , 1, 9, 2, 0, 1,-1 7, 7, 4HRBMG,4H1 , 1, 3, 6, 1 8, 11, 4HRBMG,4H2 , 1, 1, 1, 4, 1, 1, 2, 6 9, 7, 4HRBMG,4H3 , 1, 3, 1, 2 X, 7, 4HRBMG,4H4 , 1, 4, 1, 3 M, 20, 19*0 Z/ C DATA MPL12 / 1 13, 4HREAD,4H , 1, 7, 4,10, -3,-1, 1, 1, 2, 6 2, 14, 4HRMG ,4H , 1, 4, 3, 6, 2, 9, 2, 9, 1, -1, -1 3, 24, 4HSCAL,4HAR , 2, 1, 0, 0, 1, 1, 1, 1, 2, 9, 4,8,8 * , 5, 9, 9, 6, 4*8 4, 7, 4HSCE1,4H , 1, 5, 6, 1 5, 9, 4HSDR1,4H , 1,11, 3, 6, -1,-3 6, 16, 4HSDR2,4H , 1,16, 8, 3, -3, 1, 1, 1,-1, 1,-1, 1,1 7, 7, 4HSDR3,4H , 1, 6, 6, 8 8, 11, 4HSDRH,4HT , 1,10, 1, 3, 2, 9, 1,-1 9, 23, 4HSEEM,4HAT , 2, 5, 0, 0, 3,4HPRIN,4HT , 1,0, 1,100 * , 3,4HM ,4H , 1,1, 2,9, 2,9 M, 11, 10*0 Z/ C DATA MPL13 / 1 26, 4HSETV,4HAL , 2, 0, 0, 0, -1, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1 * , 1,-1, 1,-1, 1,-1, 1,-1 2, 11, 4HSMA1,4H , 1, 5, 3, 2, -1,-1, 1,-1 3, 32, 4HSMA2,4H , 1, 5, 2, 2, -2,-1,-1, 1,-1, 1,-1, 1,-1 * , 1,-1, 1,-1, 1,-1, 1,-1, 1,-1 * , 1,-1, 1,-1, 1,-1 4, 10, 4HSMA3,4H , 1, 2, 1, 7, -1,-1,-1 5, 7, 4HSMP1,4H , 1, 5, 9, 7 6, 7, 4HSMP2,4H , 1, 3, 1, 6 7, 22, 4HSMPY,4HAD , 1, 6, 1, 2, -1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0 * , 1, 0, 1, 0 8, 15, 4HSOLV,4HE , 1, 2, 1, 5, 1, 0, 1, 1, 1, 0, 1, 0 M, 20, 19*0 Z/ C DATA MPL14 / 1 13, 4HSSG1,4H , 1,12, 5, 7, -1,-1, 1, 0, 2,14 2, 7, 4HSSG2,4H , 1, 7, 4, 4 3, 13, 4HSSG3,4H , 1, 6, 4, 2, -1,-1, 1, 1, 1, 1 4, 8, 4HSSG4,4H , 1,11, 2, 5, -1 5, 23, 4HSSGH,4HT , 1,17, 3, 5, 1,-1, 1,-1, 2,11, 2, 9, 1, 4 * , 1,-1, 1, 0, 1, 0 6, 15, 4HTA1 ,4H , 1, 8, 8, 4, -1,-1, 1, 1,-1,-1, 1, 1 7, 22, 4HTABP,4HCH , 2, 5, 0, 0, 3, 4HAA ,4H ,3 * , 4HAB ,4H ,3,4HAC ,4H ,3 * , 4HAD ,4H ,3,4HAE ,4H , 8 13, 12*0 9, 12, 4HTABP,4HRT , 2, 1, 0, 0, -3, 1, 0, 1, 0 X, 7, 4HTABP,4HT , 2, 5, 0, 0 M, 18, 17*0 Z/ C DATA MPL15 / 1 17, 4HTIME,4HTEST, 1, 0, 0, 2, 1,50, 1,50, 1, 2, 1, 1, 1, 511 2, 13, 4HTRD ,4H , 1, 8, 3, 9, -3, 3*-1, 1,-1 3, 17, 4HTRHT,4H , 1,10, 2, 7, 2,12, 2, 9, 1,-1, 1,-1, 2, 9 4, 11, 4HTRLG,4H , 1,15, 6, 9, 1,-1, 1, 0 5, 9, 4HTRNS,4HP , 1, 1, 1, 8, 1, 0 6, 10, 4HUMER,4HGE , 1, 3, 1, 1, -3,-3,-3 7, 10, 4HUPAR,4HTN , 1, 2, 4, 1, -3,-3,-3 8, 14, 4HVDR ,4H , 1, 7, 2, 2, -3,-3,-1, 1, 0,-1,-1 9, 16, 4HVEC ,4H , 1, 1, 1, 0, -3, 3, 4HCOMP ,1H , 3 * , 4HCOMP, 1H , 1, 0 M, 18, 17*0 Z/ C DATA MPL16 / 1 7, 4HXYPL,4HOT , 2, 1, 0, 2 2, 7, 4HXYPR,4HNPLT, 2, 1, 0, 0 3, 19, 4HXYTR,4HAN , 1, 6, 1, 5, 3,4HTRAN,4HS ,3,4HSOL ,4H , * 1, 0, 1,0, 1,1 M, 20, 19*0 Z/ C DATA MPL17 / 1 13, 4HCOMB,4H1 , 1, 2, 1,10, 1, 0,-1, 3,4H ,4H , 2 35, 4HCOMB,4H2 , 1, 7, 1, 7, -1, -3, 3,4H ,4H ,3 * , 4H ,4H ,3,4H ,4H ,3 * , 4H ,4H ,3,4H ,4H ,3 * , 4H ,4H ,3,4H ,4H ,3 * , 4H ,4H ,1,0 3, 36, 4HEXIO,4H , 2, 0, 0, 2, 2*-1, 5*-3, 3 * , 4HALL ,4H ,3,4HWHOL,4HESOF,3 * , 4HXXXX,4HXXXX,3,4HXXXX,4HXXXX,3 * , 4HXXXX,4HXXXX,3,4HXXXX,4HXXXX * , 1, 0, 1, 0 4, 39, 4HRCOV,4HR , 1,11, 8, 9, 3*-1, -3,-1, 1, 0, 1,0, 3 * , 4H ,4H ,3,4H ,4H ,3 * , 4H ,4H ,3,4H ,4H ,3 * , 4H ,4H ,1,-1,2,9,2,9, 2,9 C C THE BCD PARAMETER IN THE NEXT MODULE IS A DUMMY SINCE WE NEED C 11 WORDS IN THIS SPACE C 5, 11, 4HEMFL,4HD , 1,10, 1, 1, -1, 3,4H ,4H , M 10, 9*0 Z/ C DATA MPL18 / 1 11, 4HRCOV,4HR3 , 1, 4, 7, 3, -1, -3, 1,-1 2, 16, 4HREDU,4HCE , 1, 2, 3, 2, 1, 0, 1, 0, 3,4H ,4H ,1 * , 0 3, 11, 4HSGEN,4H , 1, 4,10, 0, -1, -3,-1,-1 4, 25, 4HSOFI,4H , 1, 0, 5, 0, 1, -1,-3, 3,4H ,4H ,3 * , 4H ,4H ,3,4H ,4H ,3 * , 4H ,4H ,3,4H ,4H , 5 25, 4HSOFO,4H , 2, 5, 0, 0, 1, -1,-3, 3,4H ,4H ,3 * , 4H ,4H ,3,4H ,4H ,3 * , 4H ,4H ,3,4H ,4H , 6 37, 4HSOFU,4HT , 2, 0, 0, 1, 1, -1, 2*-3, 1,0 ,3 * , 4H ,4H ,3,4H ,4H ,3 * , 4H ,4H ,3,4H ,4H ,3 * , 4H ,4H ,3,4H ,4H ,3 * , 4H ,4H ,3,4H ,4H , 7 15, 4HSUBP,4HH1 , 2, 7, 0, 1, 1,0,-3,1,0, 3,4H ,4H , 8 11, 4HPLTM,4HRG , 1, 2, 6, 1, -3,3*-1, M 18, 17*0 Z/ C DATA MPL19 / 1 9, 4HCOPY,4H , 1, 1, 1, 0, 1, -1 2, 9, 4HSWIT,4HCH , 2, 2, 0, 0, 1, -1 3, 11, 4HMPY3,4H , 1, 3, 1, 3, 1, 0, 1, 0 4, 33, 4HSDCM,4HPS , 1, 4, 2, 6, 1, 0, 1, 0, 1,20, 1,0, 1,0 * , 3, 1HL,1H , 1, 0, 5,9,9, 4,8,8 * , 1, 0, 3,4H NON, 1HE 5, 9, 4HLODA,4HPP , 2, 2, 0, 8, -3, -1 6, 7, 4HGPST,4HGEN , 1, 2, 1, 0 7, 15, 4HEQMC,4HK , 1,12, 1, 7, 1, 0, 1,-1, -1, 3,4H NON,1HE 8, 11, 4HADR ,4H , 1, 7, 1, 5, -2, 2, 9,-3 9, 12, 4HFRRD,4H2 , 1, 6, 1, 9, -2, 2, 9, 2, 9 X, 14, 4HGUST,4H , 1,10, 1, 7, -1, 2, 9, 2, 9, 2, 9 1, 9, 4HIFT ,4H , 1, 4, 2, 0, 1, 1 2, 9, 4HLAMX,4H , 1, 2, 1, 0, 1, 0 3, 11, 4HEMA ,4H , 1, 3, 1, 2, 1, -1, 2, 6 4, 9, 4HANIS,4HOP , 1, 5, 1, 0, 1, 1 M, 25, 24*0 Z/ DATA MPL20 / 1 11, 4HGENC,4HOS , 1, 2, 1, 0, -1, -1,-1,-1 2, 8, 4HDDAM,4HAT , 1, 2, 1, 0, -2 3, 9, 4HDDAM,4HPG , 1, 2, 1, 0, -1, -1 4, 11, 4HNRLS,4HUM , 1, 2, 2, 3, -1, -1,-1,-1 5, 9, 4HGENP,4HART , 1, 1, 4, 0, -1, -1 6, 10, 4HCASE,4HGEN , 1, 1, 1, 0, -1, -1,-1 7, 21, 4HDESV,4HEL , 1, 2, 5, 0, 14*-2 C C 3 DUMMY PARAMETERS IN PROLATE SO THAT AXLOOP CAN HAVE A PARAMETER C IN THE SAME POSITION IN BOTH SSG1 AND PROLATE C 8, 15, 4HPROL,4HATE , 1,10, 1, 2, 1, -1, 1,-1, 1,-1, 2,14 9, 8, 4HMAGB,4HDY , 1, 2, 1, 0, -1 X, 9, 4HCOMB,4HUGV , 1, 1, 5, 0, -1, -1 1, 14, 4HFLBM,4HG , 1, 9, 4, 7, -1, -1, 5, 7, 7, 1, 0 2, 17, 4HGFSM,4HA , 1,14, 5, 8, -1, -1, 2, 6, 1,-1, 1,-1, 1,-1 3, 10, 4HTRAI,4HLER , 2, 1, 0, 0, -3, -1,-1 CRLBR 12/29/93 SPR 93010 & 93011 C 4, 24, 4HSCAN,4H , 1, 3, 1, 1, 3,4H , 4H , 1, 0, 1,20 4, 24, 4HSCAN,4H , 1, 5, 2, 1, 3,4H , 4H , 1, 0, 1,20 * , 2, 9, 2, 9, 1, 0, 1, 0, 1, 0 M, 10, 9*0 Z/ DATA MPL21 / 1 9, 4HPLTH,4HBDY , 1, 6, 4, 3, -1, -3 2, 9, 4HVARI,4HAN , 1, 5, 5, 3, -3, -2 3, 21, 4HFVRS,4HTR1 , 1, 8, 8,10, 13*-1,-2 4, 15, 4HFVRS,4HTR2 , 1, 8, 8,10, 8* -1 5, 29, 4HALG ,4H , 1, 7, 2, 4, 1, -1, 1, -1, 1, -1, 1, -1, 1, 0 * , 1, 0, 2, 6, 2, 9, 2, 6, 2, 6 * , 2, 6 6, 20, 4HAPDB,4H , 1, 7, 5, 5, -1, -1, 2, 15, 2, 16, 1, -1 * , 3, 4HCOSI,4HNE ,-1, -1 7, 27, 4HPROM,4HPT1 , 2, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 * , 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 8, 7, 4HSITE,4HPLOT, 2, 0, 0, 0 9, 16, 4HINPU,4HTT5 , 1, 0, 5, 0, 1, 0, 1, 11, 3,4HXXXX,4HXXXX * , 1, 0 X, 36, 4HOUTP,4HUT5 , 2, 5, 0, 0, 1, 0, 1, 11, 3,4HXXXX,4HXXXX * , 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 * , 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 * , 1, 0 M, 7, 6*0 / DATA MPL22 / 1 34, 4HPARA,4HMD , 2, 0, 0, 0, -3, 4,8,8, 4,8,8, 4,8,8, 6,4*8 * , 6, 4*8, 6,4*8, 1,0 2, 12, 4HGINO,4HFILE, 1, 0, 1, 1, -1, 1,0, 1,999999 3, 13, 4HDATA,4HBASE, 2, 7, 0, 1, 1, 11, 1, 0, 1, 0 4, 16, 4HNORM,4H , 1, 1, 1, 0, 1, 0, 1, 0, 2, 9, 3 * , 4HMAX , 4H , 5 13, 4HVECG,4HRB , 1, 3, 1, 0, 1, 0, 1, 0, 1, 0 6, 21, 4HAUTO,4HASET, 1, 6, 2, 1, 1, -1, 1, -1, 1, -1, 1, -1 * , 1, -1, 1, -1, 1, -1 M, 10, 9*0 / C C INITIALIZE /XGPI2/ C LMPL = LMPLX DO 10 I = 1,LMPL 10 IMP(I) = MPL(I) C C INITIALIZE /XGPI2X/ C DO 20 I = 1,20 20 XXX(I) = XX(I) C RETURN END ================================================ FILE: mis/xosgen.f ================================================ SUBROUTINE XOSGEN C C THE PURPOSE OF THIS ROUTINE IS TO GENERATE THE OSCAR ARRAY. C C ... DESCRIPTION OF PROGRAM VARIABLES ... C IENDF = FLAG SIGNALING END OF DMAP SEQUENCE. C LDEF = SCRATCH USED IN SCANNING LBLTBL TABLE. C LBLTOP = TOP OF LBLTBL ARRAY. C LBLBOT = BOTTOM OF LBLTBL ARRAY. C LSTLBL = POINTER TO LAST LABEL ENTRY MADE IN LBLTBL. C LSTPAR = POINTER TO LAST PARAMETER NAME ENTRY MADE IN LBLTBL. C NAMTBL = NAME CONVERSION TABLE FOR TYPE E NAMES. C IEXFLG = FLAG INDICATING LAST OSCAR ENTRY WAS EXIT. C IOSPNT = POINTER TO NEXT AVAILABLE WORD IN OSCAR ENTRY. C NOSPNT = POINTER TO DATA BLOCK NAME COUNT IN OSCAR ENTRY. C NTYPEE = TABLE CONTAINING TYPE E DMAP NAMES C IPRCFO = POINTER TO LAST TYPE F OR O OSCAR ENTRY. C NDIAG1 = NAME OF THE DIAGNOSTIC O/P PROCESSOR C ITYPE = TABLE FOR TRANSLATING TYPE CODES TO WORD LENGTH C VARFLG = FLAG INDICATING VARIABLE FOUND IN EQUIV OR PURGE C INSTRUCTION. C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF LOGICAL SKIP DIMENSION PRECHK(2),XDMAP(2),DECLAR(3),FPARAM(3), 1 DMPCRD(1),NSKIP(5,2),CDCOMP(3),NAMTBL(12), 2 ITYPE(6),MED(1),LBLTBL(1),OSCAR(1),OS(5) COMMON /XFIAT / FIAT(3) COMMON /SYSTEM/ BUFSZ,OPTAPE,NOGO,DUM(20),ICFIAT,JUNK(54), 1 ISWTCH(3),ICPFLG COMMON /MODDMP/ IFLG(6),NAMOPT(26) COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI, 1 NMED,NSOL,NDMAP,NESTM1,NESTM2,NEXIT, 2 NBEGIN,NEND,NJUMP,NCOND,NREPT,NTYPEE(9), 3 MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1) COMMON /ZZZZZZ/ CORE(1) COMMON /XGPI2 / LMPL,MPLPNT,MPL(1) CWKBR COMMON /XGPI3 / PVT(2) COMMON /XGPI3 / PVT(200) COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT, 1 IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD, 2 MODIDX,LDMAP,ISAVDW,DMAP(1) COMMON /XGPI5 / IAPP,START,ALTER(2),SOL,SUBSET,IFLAG,IESTIM, 1 ICFTOP,ICFPNT,LCTLFL,ICTLFL(1) COMMON /XGPI6 / MEDTP,FNMTP,CNMTP,MEDPNT,LMED,IPLUS,DIAG14,DIAG17, 1 DIAG4,DIAG25,IFIRST,IBUFF(20) COMMON /XGPI7 / FPNT,LFILE,FILE(1) COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP, 1 ISAVE,ITAPE,IAPPND,INTGR,LOSGN COMMON /XGPIE / NSCR COMMON /XVPS / VPS(2) CWKBR COMMON /XCEITB/ CEITBL(2) COMMON /XCEITB/ CEITBL(42) COMMON /XOLDPT/ XX(4),SEQNO COMMON /AUTOCM/ PREFLG,NNAMES,PRENAM(100) COMMON /AUTOSM/ NWORDS,SAVNAM(100) COMMON /PASSER/ ISTOPF,MODNAM C C EQUIVALENCE (NTYPEE(1),NTIME ), (NTYPEE(2),NSAVE ) C 1 (NTYPEE(3),NOUTPT), (NTYPEE(4),NCHKPT) C 2 (NTYPEE(5),NPURGE), (NTYPEE(6),NEQUIV) C 3 (NTYPEE(7),NCPW ), (NTYPEE(8),NBPC ) C 4 (NTYPEE(9),NWPC ) EQUIVALENCE (NAMTBL(9),NXPURG) EQUIVALENCE (OSCAR (1),DMPCRD(1),LBLTBL(1),MED(1),OS(5)), 1 (CORE(1),OS(1),LOSCAR), (OS(2),OSPRC), 2 (OS(3),OSBOT), (OS(4),OSPNT) C DATA XCHK / 4HXCHK/ DATA ITYPE / 1,1,2,2,2,4/ DATA IPRCFO/ 0 /, IENDF / 0/ DATA NFILE / 4HFILE/ DATA NVPS / 4HVPS / DATA PRECHK/ 4HPREC, 4HHK /,XDMAP / 4HXDMA, 4HP / DATA NCEIT1/ 4HCEIT/, NCEIT2/ 4HBL / DATA NLBLT1/ 4HLBLT/, NLBLT2/ 4HBL / DATA DECLAR/ 4HBEGI, 4HLABE, 4HFILE/ DATA FPARAM/ 4HTAPE, 4HAPPE, 4HSAVE/ DATA NAMTBL/ 4HXTIM, 4HE , 4HXSAV, 4HE , 4HXUOP, 4H , 1 4HXCHK, 4H , 4HXPUR, 4HGE , 4HXEQU, 4HIV / DATA NSKIP / 10*0 /, CDCOMP / 4HCOMP, 4HON , 4HOFF / C C INITIALIZE C IFIRST = 0 OSBOT = 1 NWORDS = 0 LOOKUP = 0 PREFLG = 0 IVREPT = 0 ILEVEL = 0 SKIP =.FALSE. OSPNT = OSBOT OSCAR(OSBOT ) = 0 OSCAR(OSBOT+1) = 1 C C FOR RESTART ALLOW CHECKPOINT AND JUMP ENTRIES TO BE INSERTED IN C OSCAR BY XGPI. C IF (START .EQ. ICST) GO TO 10 OSCAR(OSBOT+1) = 3 C C ALLOCATE 50 WORDS IN OPEN CORE FOR LBLTBL AND SET LBLTBL C PARAMETERS. C 10 LBLBOT = LOSCAR LBLTOP = LOSCAR - 50 LOSCAR = LBLTOP - 1 LSTLBL = LBLTOP - 4 LSTPAR = LBLBOT + 1 C C INITIALIZE DMPCRD ARRAY FOR RIGID FORMAT C ICRDTP = LOSCAR C C **************************************** C PREPARE TO PROCESS NEXT DMAP INSTRUCTION C **************************************** C 100 DMPCNT = DMPCNT + 1 IF (IAPP .EQ. IDMAPP) GO TO 110 MEDPNT = MED(MEDTP+1)*(DMPCNT - 1) + MEDTP + 2 IF (MED(MEDTP).LT.DMPCNT .AND. IAPP.NE.IDMAPP) GO TO 2390 110 NEWCRD =-1 INSERT = 0 C C SEE IF DMAP INSTRUCTION IS TO BE DELETED OR INSERTED C IF (ALTER(1).EQ.0 .OR. ALTER(1).GT.DMPCNT) GO TO 130 IF (ALTER(1).LE.DMPCNT .AND. ALTER(2).GE.DMPCNT) GO TO 150 IF (ALTER(2) .EQ. 0) GO TO 120 C C JUST FINISHED DELETING, SET INSERT AND ALTER FOR INSERTING C ALTER(1) = ALTER(2) ALTER(2) = 0 120 IF (ALTER(1) .NE. DMPCNT-1) GO TO 130 INSERT = 1 DMPCNT = DMPCNT - 1 GO TO 160 C C GET NEXT DMAP INSTRUCTION C FOR RIGID FORMAT SEE IF OSCAR ENTRY IS PART OF SUBSET C 130 IF (IAPP .EQ. IDMAPP) GO TO 160 I = MED(MEDTP+1) DO 140 J = 1,I K = MEDPNT + J -1 IF (MED(K) .NE. 0) GO TO 160 140 CONTINUE C C SET INSERT FLAG TO NO PRINT C 150 INSERT = -2 GO TO 310 C C CHECK FOR CONDITIONAL COMPILATION END C 160 IF (ILEVEL .LE. 0) GO TO 190 DO 170 I = 1,ILEVEL IF (IABS(NSKIP(I,1)) .LT. 99999) NSKIP(I,1) = NSKIP(I,1) - 1 170 CONTINUE IF (NSKIP(ILEVEL,1) .EQ. -1) GO TO 180 IF (SKIP) INSERT = INSERT - 2 GO TO 190 180 SKIP =.FALSE. ILEVEL = ILEVEL - 1 C 190 IF (LOOKUP.NE.1 .OR. PREFLG.EQ.0) GO TO 200 PREFLG = -PREFLG CALL AUTOCK (OSPNT) 200 MODNAM = 1 LOOKUP = 0 CALL XSCNDM MODNAM = 0 GO TO (2120,210,2120,100,2060), IRTURN 210 IF (.NOT.SKIP) GO TO 220 C C CHECK LABELS EVEN IF CONDITIONAL COMPILATION C IF (DMAP(DMPPNT) .EQ. DECLAR(2)) GO TO 1270 GO TO 310 C C FIND MPL ENTRY AND BRANCH ON TYPE C 220 MPLPNT = 1 MODIDX = 1 IF (DMAP(DMPPNT).EQ.PRECHK(1) .AND. DMAP(DMPPNT+1).EQ.PRECHK(2)) 1 GO TO 1490 IF (DMAP(DMPPNT).EQ.XDMAP(1) .AND. DMAP(DMPPNT+1).EQ.XDMAP(2)) 1 GO TO 1570 IF (DMAP(DMPPNT).EQ.CDCOMP(1) .AND. (DMAP(DMPPNT+1).EQ.CDCOMP(2) 1 .OR. DMAP(DMPPNT+1).EQ.CDCOMP(3))) GO TO 1740 230 IF (MPL(MPLPNT+1).EQ.DMAP(DMPPNT) .AND. MPL(MPLPNT+2).EQ. 1 DMAP(DMPPNT+1)) GO TO 240 C C CHECK FOR ERROR IN MPL TABLE C IF (MPL(MPLPNT).LT.1 .OR. MPL(MPLPNT).GT.LMPL) GO TO 2140 MPLPNT = MPL(MPLPNT) + MPLPNT MODIDX = 1 + MODIDX IF (MPLPNT-LMPL) 230,2130,2130 C C GET FORMAT TYPE FROM MPL AND BRANCH C 240 I = MPL(MPLPNT + 3) IF (I.LT.1 .OR. I.GT.5) GO TO 2140 GO TO (400,400,500,800,1200), I C C ***************************************************** C RETURN HERE AFTER DMAP INSTRUCTION HAS BEEN PROCESSED C ***************************************************** C C CHECK FOR FATAL ERROR C 300 IF (NOGO .EQ. 2) GO TO 2060 C C CHECK FOR END OF DMAP SEQUENCE. C IF (IENDF .NE. 0) GO TO 1900 C C CHECK FOR $ ENTRY IN DMAP AND GET NEXT DMAP INSTRUCTION C 310 CALL XSCNDM GO TO (320,320,320,100,2060), IRTURN 320 IF (NOGO.EQ.0 .AND. INSERT.GE.0) GO TO 2160 GO TO 310 C C ******************************************** C GENERATE OSCAR ENTRY WITH TYPE F OR O FORMAT C ******************************************** C C GENERATE LINK HEADER SECTION C 400 CALL XLNKHD IPRCFO = OSPNT C C GENERATE I/P FILE SECTION C CALL XIPFL GO TO (410,2100), IRTURN C C SAVE POINTER TO O/P FILE SECTION C 410 J = OSPNT + OSCAR(OSPNT) C C GENERATE O/P FILE SECTION C CALL XOPFL GO TO (420,2110), IRTURN C C NUMBER OF SCRATCH FILES TO OSCAR C 420 I = OSPNT + OSCAR(OSPNT) OSCAR(I) = MPL(MPLPNT) C C INCREMENT OSCAR WORD COUNT AND MPLPNT C OSCAR(OSPNT) = 1 + OSCAR(OSPNT) MPLPNT = 1 + MPLPNT C C GENERATE PARAMETER SECTION C CALL XPARAM GO TO (430,2060), IRTURN C C CONTINUE COMPILATION C ZERO INTERNAL CHECKPOINT FLAG IN OSCAR ENTRY FOR TYPE F ENTRY C 430 IF (ANDF(OSCAR(OSPNT+2),MASKHI) .EQ. 2) GO TO 440 I = OSPNT + OSCAR(OSPNT) OSCAR(I) = 0 OSCAR(OSPNT) = 1 + OSCAR(OSPNT) 440 CONTINUE IF (NWORDS .EQ. 0) GO TO 450 CALL AUTOSV NWORDS = 0 450 IF (PREFLG.EQ.0 .OR. ISTOPF.EQ.0) GO TO 460 CALL AUTOCK (ISTOPF) 460 CONTINUE GO TO 300 C C *************************************** C GENERATE OSCAR ENTRY WITH TYPE C FORMAT C *************************************** C C GENERATE LINK HEADER SECTION C 500 CALL XLNKHD C C UPDATE OSCAR ENTRY WORD COUNT TO INCLUDE VALUE SECTION. C OSCAR(OSPNT) = 7 C C CHECK FOR END CARD C IF (OSCAR(OSPNT+3) .NE. NEND) GO TO 510 OSCAR(OSPNT+3) = NEXIT IENDF = 1 C C SET EXECUTE FLAG IN OSCAR FOR END C OSCAR(OSPNT+5) = ORF(ISGNON,OSCAR(OSPNT+5)) C C GET NEXT ENTRY IN DMAP C 510 CALL XSCNDM GO TO (2160,520,630,630,2060), IRTURN C C IF NEXT DMAP ENTRY IS BCD IT SHOULD BE LABEL NAME FOR BRANCH C DMAP INSTRUCTION. C 520 IF (OSCAR(OSPNT+3) .EQ. NEXIT) GO TO 2160 C C SEARCH LABEL TABLE FOR LABEL NAME C IF (LSTLBL .LT. LBLTOP) GO TO 540 DO 530 J = LBLTOP,LSTLBL,4 IF (DMAP(DMPPNT).EQ.LBLTBL(J) .AND. DMAP(DMPPNT+1).EQ.LBLTBL(J+1)) 1 GO TO 550 530 CONTINUE C C NAME NOT FOUND IN TABLE C 540 LDEF = 0 GO TO 560 C C NOW SEE IF LABEL HAS BEEN REFERENCED C 550 IF (LBLTBL(J+3) .EQ. 0) GO TO 580 LDEF = LBLTBL(J+2) C C MAKE NEW ENTRY IN LABEL TABLE, CHECK FOR TABLE OVERFLOW C 560 ASSIGN 570 TO IRTURN IF (LSTLBL+8 .GE. LSTPAR) GO TO 2220 570 LSTLBL = LSTLBL + 4 J = LSTLBL LBLTBL(J ) = DMAP(DMPPNT ) LBLTBL(J+1) = DMAP(DMPPNT+1) LBLTBL(J+2) = LDEF 580 LBLTBL(J+3) = OSPNT C C GET NEXT ENTRY FROM DMAP, ENTRY IS $ FOR JUMP,NAME FOR COND, C VALUE FOR REPT. C CALL XSCNDM GO TO (2160,600,720,590,2060), IRTURN C C DMAP INSTRUCTION IS JUMP C 590 OSCAR(OSPNT+6) = 0 IF (OSCAR(OSPNT+3) .EQ. NJUMP) GO TO 300 GO TO 2160 C C COND DMAP INSTRUCTION, ENTER PARAMETER NAME IN LABEL TABLE. C 600 IF (OSCAR(OSPNT+3) .NE. NREPT) GO TO 610 IVREPT = 1 GO TO 640 610 IF (OSCAR(OSPNT+3) .NE. NCOND) GO TO 2160 ASSIGN 620 TO IRTURN IF (LSTPAR-8 .LE. LSTLBL) GO TO 2220 620 LSTPAR = LSTPAR - 4 LBLTBL(LSTPAR ) = DMAP(DMPPNT ) LBLTBL(LSTPAR+1) = DMAP(DMPPNT+1) LBLTBL(LSTPAR+2) = OSPNT + 6 LBLTBL(LSTPAR+3) = OSPNT GO TO 300 C C EXIT DMAP INSTRUCTION, SET EXECUTE FLAG AND OSCAR VALUE SECTION. C 630 IF (OSCAR(OSPNT+3) .NE. NEXIT) GO TO 2160 IF (DMAP(DMPPNT) .NE. INTGR) DMAP(DMPPNT+1) = 0 DMAP(DMPPNT ) = INTGR DMAP(DMPPNT+2) = RSHIFT(IALLON,1) C C ENTER LOOP COUNT IN CEITBL FOR REPT AND EXIT INSTRUCTIONS C 640 CEITBL(2) = CEITBL(2) + 4 IF (CEITBL(2) .GT. CEITBL(1)) GO TO 2280 C C I = POINTER TO LOOP COUNT IN CEITBL ENTRY C I = CEITBL(2) - 2 IF (IVREPT .EQ. 0) GO TO 700 C C PROCESS VARIABLE REPT INSTRUCTION - FIND PARAM IN VPS C KDH = 3 650 IF (DMAP(DMPPNT).EQ.VPS(KDH) .AND. DMAP(DMPPNT+1).EQ.VPS(KDH+1)) 1 GO TO 660 KDH = KDH + ANDF(VPS(KDH+2),MASKHI) + 3 IF (KDH - VPS(2)) 650,670,670 C C PARAMETER FOUND C 660 IF (ANDF(RSHIFT(VPS(KDH+2),16),15) .NE. 1) GO TO 2210 CEITBL(I) = LSHIFT(KDH,16) CEITBL(I) = ORF(CEITBL(I),ISGNON) GO TO 710 C C CHECK PVT FOR PARAMETER C 670 KDH = 3 680 LENGTH = ANDF(PVT(KDH+2),NOSGN) LENGTH = ITYPE(LENGTH) IF (DMAP(DMPPNT).EQ.PVT(KDH) .AND. DMAP(DMPPNT+1).EQ.PVT(KDH+1)) 1 GO TO 690 KDH = KDH + LENGTH + 3 IF (KDH - PVT(2)) 680,2200,2200 690 IF (LENGTH .NE. ITYPE(1)) GO TO 2210 CEITBL(I) = LSHIFT(PVT(KDH+3),16) GO TO 710 700 CEITBL(I) = LSHIFT(DMAP(DMPPNT+1),16) C C FIRST WORD OF CEITBL ENTRY CONTAINS OSCAR RECORD NUMBERS OF C BEGINNING AND END OF LOOP C 710 CEITBL(I-1) = ISEQN IVREPT = 0 C C OSCAR VALUE SECTION CONTAINS POINTER TO LOOP COUNT IN CEITBL ENTRY C OSCAR(OSPNT+6) = I GO TO 300 C C REPT DMAP INSTRUCTION, COUNT TO VALUE SECTION. C 720 IF (OSCAR(OSPNT+3) .EQ. NREPT) GO TO 640 GO TO 2160 C C *************************************** C GENERATE OSCAR ENTRY WITH TYPE E FORMAT C *************************************** C C PREFIX MODULE NAME WITH AN X C 800 DO 810 I = 1,6 IF (NTYPEE(I) .EQ. DMAP(DMPPNT)) GO TO 820 810 CONTINUE 820 I = 2*I - 1 DMAP(DMPPNT ) = NAMTBL(I ) DMAP(DMPPNT+1) = NAMTBL(I+1) C C GENERATE LINK HEADER FOR OSCAR C IF (I.EQ.9 .OR. I.EQ.11) LOOKUP = 1 OS2B4 = OSPRC CALL XLNKHD C C BRANCH ON DMAP NAME AND GENERATE VALUE/OUTPUT SECTION OF OSCAR C I = (I+1)/2 GO TO (830,860,990,990,990,990), I C C EXTIME ENTRY, CHECK ESTIM IN CONTROL FILE C 830 OSCAR(OSPNT+5) = ANDF(OSCAR(OSPNT+5),NOSGN) IF (IESTIM .EQ. 0) GO TO 300 C C GET TIME SEGMENT NAME C CALL XSCNDM GO TO (2370,840,2370,2370,2060), IRTURN 840 I = IESTIM + ICTLFL(IESTIM) - 1 J = IESTIM + 1 DO 850 K = J,I,2 IF (DMAP(DMPPNT).EQ.ICTLFL(K) .AND. DMAP(DMPPNT+1).EQ.ICTLFL(K+1)) 1 OSCAR(OSPNT+5) = ORF(OSCAR(OSPNT+5),ISGNON) 850 CONTINUE GO TO 300 C C XSAVE ENTRY, ENTER POINTERS IN VALUE SECTION OF OSCAR. C 860 I = OSPNT + OSCAR(OSPNT) OSCAR(I) = 0 K = I - 1 C C GET PARAMETER NAME FROM DMAP. C 870 CALL XSCNDM GO TO (2260,880,2260,930,2060), IRTURN C C FIND PARAMETER IN VPS AND ENTER POINTER TO VALUE IN OSCAR. C 880 K = K + 2 OSCAR(I ) = OSCAR(I) + 1 OSCAR(K ) = 0 OSCAR(K+1) = 0 J = 3 890 IF (VPS(J).EQ.DMAP(DMPPNT) .AND. VPS(J+1).EQ.DMAP(DMPPNT+1)) 1 GO TO 900 L = ANDF(VPS(J+2),MASKHI) J = J + L + 3 IF (J .LT. VPS(2)) GO TO 890 C C PARAMETER NOT IN VPS - ERROR C GO TO 2270 C C PARAMETER FOUND IN VPS C 900 OSCAR(K) = J + 3 C C SEE IF PARAMETER WAS ALREADY SAVED C J = I + 1 J1 = K - 2 IF (J1 .LT. J) GO TO 870 DO 910 L = J,J1,2 IF (OSCAR(L) .EQ. OSCAR(K)) GO TO 920 910 CONTINUE GO TO 870 C C PARAMETER DUPLICATED C 920 K = K - 2 OSCAR(I) = OSCAR(I) - 1 GO TO 2150 C C C END OF SAVE PARAMETER NAME LIST, INCREMENT OSCAR WORD COUNT. C 930 OSCAR(OSPNT) = OSCAR(OSPNT) + 2*OSCAR(I) + 1 C C GET PARAMETER VALUE DISPLACEMENT IN COMMON FROM PRECEDING C OSCAR ENTRY. C IOSDAV = OSPRC IF (OSCAR(OSPRC+3) .EQ. XCHK) OSPRC = OS2B4 IF (ANDF(OSCAR(OSPRC+2),MASKHI) .GT. 2) GO TO 2420 C C J = OSCAR POINTER TO BEGINNING OF PARAMETER SECTION. C J = OSPRC + 6 + 3*OSCAR(OSPRC+6) + 1 IF (ANDF(OSCAR(OSPRC+2),MASKHI) .EQ. 1) J = J + 1 + 3*OSCAR(J) J = J + 1 C C N1 = PARAMETER COUNT,N2=PARAMETER DISPLACEMENT IN COMMON, C N3 = OSCAR POINTER TO PARAMETER ENTRIES IN PRECEDING OSCAR ENTRY. C N3 = J + 1 N1 = OSCAR(J) N2 = 1 C C SCAN PARAMETER LIST OF PRECEDING OSCAR ENTRY C DO 980 M = 1,N1 L = ANDF(OSCAR(N3),NOSGN) IF (OSCAR(N3) .GT. 0) GO TO 970 N3 = N3 + 1 C C VARIABLE PARAMETER, COMPARE VPS POINTER WITH XSAVE VPS POINTERS. C I1 = I + 1 DO 940 K1 = I1,K,2 IF (OSCAR(K1) .EQ. L) GO TO 950 940 CONTINUE GO TO 960 950 OSCAR(K1+1) = N2 960 L = ANDF(VPS(L-1),MASKHI) GO TO 980 C C CONSTANT PARAMETER, INCREMENT N2, N3 C 970 N3 = N3 + L + 1 980 N2 = N2 + L C C PARAMETER SECTION SCANNED, CHECK EXSAVE PARAMETER LIST FOR C PARAMETERS NOT FOUND IN PRECEDING OSCAR. C GO TO 2290 C C XUOP,XCHK,XPURGE,OR XEQUIV OSCAR ENTRY - GENERATE FILE NAME LIST. C 990 NOSPNT = OSPNT + OSCAR(OSPNT) IPRIME = 1 IOSPNT = NOSPNT + 1 OSCAR(NOSPNT) = 0 C C GET NEXT ENTRY FROM DMAP CARD C 1000 CALL XSCNDM GO TO (1040,1010,2160,1080,2060), IRTURN C C DMAP ENTRY IS DATA BLOCK NAME, STORE IN OSCAR C 1010 OSCAR(IOSPNT ) = DMAP(DMPPNT ) OSCAR(IOSPNT+1) = DMAP(DMPPNT+1) C C MAKE SURE FILE IS NOT BLANK C IF (OSCAR(IOSPNT) .EQ. NBLANK) GO TO 1000 C C FOR CHKPNT - MAKE SURE FILE IS NOT OUTPUT BY USER I/P PROCESSOR C IF (OSCAR(OSPNT+3) .NE. NAMTBL(7)) GO TO 1030 M = FIAT(3)*ICFIAT - 2 DO 1020 J = 4,M,ICFIAT IF (OSCAR(IOSPNT).EQ.FIAT(J+1) .AND. OSCAR(IOSPNT+1).EQ.FIAT(J+2)) 1 GO TO 2400 1020 CONTINUE 1030 IOSPNT = IOSPNT + 2 OSCAR(NOSPNT) = 1 + OSCAR(NOSPNT) C C INSERT EXTRA WORD INTO OSCAR FOR EACH PRIMARY DATA BLOCK IN C EQUIV STATEMENT C IF (OSCAR(OSPNT+3).NE.NAMTBL(11) .OR. OSCAR(OSPNT+4).NE.NAMTBL(12) 1 ) GO TO 1000 IF (IPRIME .EQ. 0) GO TO 1000 OSCAR(IOSPNT) = 0 IOSPNT = IOSPNT + 1 IPRIME = 0 GO TO 1000 C C DMAP ENTRY IS OPERATOR, CHECK FOR / OPERATOR C 1040 IF ((DMAP(DMPPNT+1).NE.ISLSH) .OR. (OSCAR(OSPNT+3).NE.NXEQUI .AND. 1 OSCAR(OSPNT+3).NE.NXPURG)) GO TO 2160 C C OSCAR ENTRY IS XEQUIV OR XPURGE C VARFLG = 0 IF (OSCAR(OSPNT+3) .EQ. NXPURG) GO TO 1050 IF (OSCAR(NOSPNT) .LT. 2 ) GO TO 2160 C C GET PARAMETER NAME AND ENTER INTO LBLTBL C 1050 CALL XSCNDM GO TO (1110,1060,2160,2160,2060), IRTURN 1060 VARFLG = 1 IF (DMAP(DMPPNT) .EQ. NBLANK) GO TO 1100 ASSIGN 1070 TO IRTURN IF (LSTPAR-8 .LE. LSTLBL) GO TO 2220 1070 LSTPAR = LSTPAR - 4 LBLTBL(LSTPAR ) = DMAP(DMPPNT ) LBLTBL(LSTPAR+1) = DMAP(DMPPNT+1) LBLTBL(LSTPAR+2) = IOSPNT LBLTBL(LSTPAR+3) = OSPNT IDLHSS = 2*OSCAR(NOSPNT)+OSCAR(OSPNT) + 2 IF (OSCAR(OSPNT+3) .EQ. NAMTBL(11)) IDLHSS = IDLHSS + 1 OSCAR(OSPNT) = IDLHSS C C CHECK FOR POSSIBILITY OF ANOTHER DATA BLOCK NAME LIST. C CALL XSCNDM GO TO (990,2160,2160,300,2060), IRTURN C C END OF DMAP INSTRUCTION, INCREMENT OSCAR WORD COUNT IF NOT XEQUIV C OR XPURGE. C 1080 IF (OSCAR(OSPNT+3).NE.NXEQUI .AND. OSCAR(OSPNT+3).NE.NXPURG) 1 GO TO 1090 OSCAR(IOSPNT) = -1 IDLHSS = 2*OSCAR(NOSPNT) + OSCAR(OSPNT) + 2 IF (OSCAR(OSPNT+3) .EQ. NAMTBL(11)) IDLHSS = IDLHSS + 1 OSCAR(OSPNT) = IDLHSS GO TO 300 1090 OSCAR(OSPNT) = 2*OSCAR(NOSPNT) + OSCAR(OSPNT) + 1 C C ELIMINATE ENTRY IF NOTHING CHECKPOINTED. C IF (OSCAR(NOSPNT) .EQ. 0) OSBOT = OSPRC GO TO 300 1100 CALL XSCNDM GO TO (1110,2160,2160,2160,2060), IRTURN 1110 IF ((DMAP(DMPPNT+1).NE.ISLSH) .OR. (OSCAR(OSPNT+3).NE.NXEQUI .AND. 1 OSCAR(OSPNT+3).NE.NXPURG)) GO TO 2160 OSCAR(IOSPNT) = -1 IDLHSS = 2*OSCAR(NOSPNT) + OSCAR(OSPNT) + 2 IF (OSCAR(OSPNT+3) .EQ. NAMTBL(11)) IDLHSS = IDLHSS + 1 OSCAR(OSPNT) = IDLHSS GO TO 990 C C ******************************* C DMAP INSTRUCTION IS DECLARATIVE C ******************************* C C PUT DUMMY ENTRY IN OSCAR FOR DIAGNOSTIC USE. C 1200 J = OSBOT + OSCAR(OSBOT) OSCAR(J+3) = DMAP(DMPPNT) OSCAR(J+4) = DMAP(DMPPNT+1) OSCAR(J+5) = DMPCNT CALL XLNKHD C C NOW PROCESS INSTRUCTION C DO 1210 J = 1,3 IF (DMAP(DMPPNT) .EQ. DECLAR(J)) GO TO (1220,1270,1350), J 1210 CONTINUE C C BEGIN DECLARATIVE - PREPARE TO PROCESS NEXT DMAP INSTRUCTION C 1220 INDEX = 1 1230 IF (IFIRST .GT. 0) GO TO 1250 IF (DIAG14.EQ.0 .AND. DIAG17.EQ.0) GO TO 1250 IFIRST = 1 CALL XGPIMW (5,18,DMPCNT,IBUFF) 1240 IF (START .NE. ICST) CALL XGPIMW (10,0,0,0) 1250 IF (INDEX .GT. 1) GO TO 300 1260 CALL XSCNDM GO TO (1260,1260,1260,300,2060), IRTURN C C LABEL DECLARATIVE - GET LABEL NAME C 1270 CALL XSCNDM GO TO (2170,1280,2170,2170,2060), IRTURN C C CHECK IF LABEL IS FOR CONDITIONAL COMPILATION C 1280 CONTINUE IF (DMAP(DMPPNT).NE.NSKIP(ILEVEL,1) .OR. DMAP(DMPPNT+1).NE. 1 NSKIP(ILEVEL,2)) GO TO 1290 ILEVEL = ILEVEL - 1 SKIP = .FALSE. GO TO 300 1290 IF (SKIP) GO TO 300 C C SCAN LABEL TABLE FOR LABEL NAME C IF (LSTLBL .LT. LBLTOP) GO TO 1310 DO 1300 J = LBLTOP,LSTLBL,4 IF (DMAP(DMPPNT).EQ.LBLTBL(J) .AND. DMAP(DMPPNT+1).EQ.LBLTBL(J+1)) 1 GO TO 1340 1300 CONTINUE C C NAME NOT IN LABEL TABLE, MAKE NEW ENTRY C 1310 ASSIGN 1320 TO IRTURN IF (LSTLBL+8 .GE. LSTPAR) GO TO 2220 1320 LSTLBL = LSTLBL + 4 J = LSTLBL LBLTBL(J ) = DMAP(DMPPNT ) LBLTBL(J+1) = DMAP(DMPPNT+1) LBLTBL(J+3) = 0 1330 LBLTBL(J+2) = ISEQN + 1 GO TO 300 C C LABEL NAME FOUND IN LABEL TABLE, DEF ENTRY SHOULD BE ZERO C 1340 IF (LBLTBL(J+2)) 2250,1330,2250 C C FILE DECLARATIVE C SET FILE NAME FLAG C DO NOT PROCESS FILE DECLARATION WHEN EXECUTE FLAG IS OFF ON C MODIFIED RESTART. C 1350 IF (START.EQ.IMST .AND. OSCAR(OSPNT+5).GE.0) GO TO 1260 1360 I = 1 1370 CALL XSCNDM GO TO (1380,1410,2170,300,2060), IRTURN C C DELIMITER ENCOUNTERED C 1380 IF (DMAP(DMPPNT+1) .EQ. ISLSH) GO TO 1390 IF (DMAP(DMPPNT+1) .EQ. IEQUL) GO TO 1400 GO TO 2170 C C DELIMITER IS /, TEST FILE NAME FLAG C 1390 IF (I .NE. 0) GO TO 2170 GO TO 1360 C C DELIMITER IS =, TURN OFF FILE NAME FLAG C 1400 I = 0 GO TO 1370 C C NAME ENCOUNTERED - TEST FILE NAME FLAG C 1410 IF (I .EQ. 0) GO TO 1430 C C FILE NAME - ENTER IN FILE TABLE C FPNT = FPNT + 3 IF (FPNT .GT. LFILE-2) GO TO 2410 FILE(FPNT ) = DMAP(DMPPNT ) FILE(FPNT+1) = DMAP(DMPPNT+1) C C PUT FILE NAME INTO LABEL TABLE FOR DMAP XREF C ASSIGN 1420 TO IRTURN IF (LSTLBL+8 .GE. LSTPAR) GO TO 2220 1420 LSTLBL = LSTLBL + 4 LBLTBL(LSTLBL ) = FILE(FPNT ) LBLTBL(LSTLBL+1) = FILE(FPNT+1) LBLTBL(LSTLBL+2) = ISEQN LBLTBL(LSTLBL+3) = -1 GO TO 1370 C C FILE PARAMETER FOUND - ENTER APPROPRIATE CODE IN FILE TABLE C 1430 DO 1440 J = 1,3 IF (DMAP(DMPPNT) .EQ. FPARAM(J)) GO TO (1450,1460,1470), J 1440 CONTINUE GO TO 2160 C C TAPE PARAM C 1450 FCODE = ITAPE GO TO 1480 C C APPEND PARAM C 1460 FCODE = IAPPND GO TO 1480 C C SAVE PARAM C 1470 FCODE = ISAVE C C PUT CODE IN FILE TABLE C 1480 FILE(FPNT+2) = ORF(FILE(FPNT+2),FCODE) GO TO 1370 C C PROCESS PRECHK CARD C 1490 INDEX = 3 CALL XSCNDM GO TO (2160,1500,2160,2160,2160), IRTURN C C TEST FOR ALL OPTION OR BLANK C 1500 IF (DMAP(DMPPNT) .EQ. NBLANK) GO TO 1490 PREFLG = 1 NNAMES = 0 IF (DMAP(DMPPNT) .EQ. NAMOPT(23)) GO TO 1520 IF (DMAP(DMPPNT) .EQ. NEND ) GO TO 1550 C C LIST HAS BEEN FOUND, STORE IN /AUTOCM/ C 1510 NNAMES = NNAMES + 1 IF (NNAMES .GT. 50) GO TO 2180 PRENAM(2*NNAMES-1) = DMAP(DMPPNT ) PRENAM(2*NNAMES ) = DMAP(DMPPNT+1) CALL XSCNDM GO TO (2160,1510,2160,1560,2060), IRTURN C C ALL OPTION FOUND, LOOK FOR EXCEPT C 1520 CALL XSCNDM GO TO (2160,1530,2160,1530,2060), IRTURN 1530 IF (DMAP(DMPPNT).EQ.NAMOPT(25) .AND. DMAP(DMPPNT+1).EQ.NAMOPT(26)) 1 GO TO 1540 PREFLG = 2 GO TO 1560 1540 PREFLG = 3 CALL XSCNDM GO TO (2160,1510,2160,1560,2060), IRTURN 1550 PREFLG = 0 1560 IF (ICPFLG .NE. 0) GO TO 1240 PREFLG = 0 GO TO 300 C C PROCESS XDMAP INSTRUCTION C 1570 IOLD = DIAG14 1580 CALL XSCNDM GO TO (2160,1610,2160,1590,2060), IRTURN 1590 INDEX = 2 IF (IOLD.EQ.0 .OR. IFIRST.EQ.0) GO TO 1230 IF (START .NE. ICST) WRITE (OPTAPE,1600) IPLUS,IPLUS 1600 FORMAT (A1,2X,A1) GO TO 300 1610 IF (DMAP(DMPPNT) .EQ. NBLANK) GO TO 1580 C C HAVE LOCATED AN XDMAP OPTION C DO 1620 K = 1,22,2 IF (DMAP(DMPPNT).EQ.NAMOPT(K) .AND. DMAP(DMPPNT+1).EQ.NAMOPT(K+1)) 1 GO TO 1630 1620 CONTINUE GO TO 2190 1630 KK = K/2 + 1 GO TO (1580,1640,1710,1660,1650,1680,1690,1700,1580,1670,1580), KK 1640 IFLG(1) = 0 GO TO 1580 1650 IF (DIAG14 .EQ. 1) GO TO 1580 IFLG(3) = 0 DIAG14 = 0 GO TO 1580 1660 IF (DIAG14 .EQ. 1) GO TO 1580 IFLG(3) = 1 DIAG14 = 2 GO TO 1580 1670 IF (DIAG4 .EQ. 1) GO TO 1580 IFLG(6) = 1 DIAG4 = 1 GO TO 1580 1680 IF (DIAG17 .EQ. 1) GO TO 1580 IFLG(4) = 1 DIAG17 = 2 GO TO 1580 1690 IF (DIAG17 .EQ. 1) GO TO 1580 IFLG(4) = 0 DIAG17 = 0 GO TO 1580 1700 IF (DIAG25 .EQ. 1) GO TO 1580 IFLG(5) = 1 DIAG25 = 1 GO TO 1580 C C CODE TO PROCESS ERR OPTION C 1710 CALL XSCNDM GO TO (1720,2160,2160,2160,2060), IRTURN 1720 IF (DMAP(DMPPNT+1) .NE. IEQUL) GO TO 2160 CALL XSCNDM GO TO (2160,2160,1730,2160,2060), IRTURN 1730 IFLG(2) = DMAP(DMPPNT+1) IF (IFLG(2).LT.0 .OR. IFLG(2).GT.2) GO TO 2190 GO TO 1580 C C PROCESS CONDCOMP INSTRUCTION C 1740 IF (ILEVEL .GE. 5) GO TO 2160 ION = 0 IF (DMAP(DMPPNT+1) .EQ. CDCOMP(2)) ION = 1 CALL XSCNDM GO TO (2160,1750,1760,2160,2060), IRTURN C C LABEL SPECIFIED FOR END C 1750 NSKIP(ILEVEL+1,1) = DMAP(DMPPNT ) NSKIP(ILEVEL+1,2) = DMAP(DMPPNT+1) GO TO 1770 C C INSTRUCTION COUNT GIVEN FOR END C 1760 CONTINUE IF (DMAP(DMPPNT+1) .LT. 0) GO TO 2160 NSKIP(ILEVEL+1,1) = DMAP(DMPPNT+1) C C GET LABEL AND LOOK FOR IT IN PVT C 1770 CALL XSCNDM GO TO (2160,1780,2160,2160,2060), IRTURN 1780 ILEVEL = ILEVEL + 1 KDH = 3 1790 LENGTH = ANDF(PVT(KDH+2),NOSGN) LENGTH = ITYPE(LENGTH) IF (DMAP(DMPPNT).EQ.PVT(KDH) .AND. DMAP(DMPPNT+1).EQ.PVT(KDH+1)) 1 GO TO 1810 KDH = KDH + LENGTH + 3 IF (KDH - PVT(2)) 1790,1800,1800 C C PARAMETER NOT FOUND - ASSUME FALSE VALUE C 1800 IF (ION .EQ. 0) GO TO 300 GO TO 1820 C C CHECK IF VALUE IS FALSE C 1810 PVT(KDH+2) = ORF(PVT(KDH+2),ISGNON) IF (ANDF(PVT(KDH+2),NOSGN) .NE. 1) GO TO 2160 IF (PVT(KDH+3).LT.0 .AND. ION.EQ.1) GO TO 300 IF (PVT(KDH+3).GE.0 .AND. ION.EQ.0) GO TO 300 1820 SKIP = .TRUE. GO TO 300 C C *********************************************************** C DMAP INSTRUCTIONS ALL PROCESSED - PREPARE OSCAR FOR PHASE 2 C *********************************************************** C C CHECK FOR DISCREPENCY BETWEEN RIGID FORMAT AND MED TABLE. C 1900 IF (MED(MEDTP).NE.DMPCNT .AND. IAPP.NE.IDMAPP) GO TO 2390 C C USE LBLTBL PARAMETER NAMES TO UPDATE VALUE SECTIONS OF TYPE C AND C E OSCAR ENTRIES. C 1910 IF (LSTPAR .GE. LBLBOT) GO TO 1990 C C FIND PARAMETER NAME IN VPS C K = 3 1920 IF (LBLTBL(LSTPAR).EQ.VPS(K) .AND. LBLTBL(LSTPAR+1).EQ.VPS(K+1)) 1 GO TO 1930 K = K + ANDF(VPS(K+2),MASKHI) + 3 IF (K - VPS(2)) 1920,1950,1950 C C NAME FOUND IN VPS, VPS POINTER TO OSCAR VALUE SECTION. C 1930 I = LBLTBL(LSTPAR+2) OSCAR(I) = K + 3 C C GET NEXT ENTRY FROM LBLTBL C 1940 LSTPAR = LSTPAR + 4 GO TO 1910 C C SEARCH PVT TABLE FOR PARAMETER. IF FOUND ENTER PARAMETER IN VPS. C 1950 K1 = 3 1960 LENGTH = ANDF(PVT(K1+2),NOSGN) LENGTH = ITYPE(LENGTH) IF (LBLTBL(LSTPAR).EQ.PVT(K1) .AND. LBLTBL(LSTPAR+1).EQ.PVT(K1+1)) 1 GO TO 1970 K1 = K1 + LENGTH + 3 IF (K1-PVT(2)) 1960,2310,2310 1970 K = VPS(2) + 1 PVT(K1+2) = ORF(PVT(K1+2),ISGNON) VPS(2) = K + 2 + LENGTH IF (VPS(2) .GE. VPS(1)) GO TO 2380 K2 = LENGTH + 3 DO 1980 M = 1,K2 J = K + M - 1 J1 = K1 + M - 1 1980 VPS(J) = PVT(J1) GO TO 1930 C C USE LBLTBL ENTRIES TO LOAD SEQUENCE NOS. INTO VALUE SECTION OF C TYPE C OSCAR ENTRIES. C 1990 LBLERR = 0 LSTLSV = LSTLBL 2000 IF (LSTLBL .LT. LBLTOP) GO TO 2050 IF (LBLTBL(LSTLBL+2) .EQ. 0) GO TO 2330 C C IGNORE FILE NAMES IN LBLTBL USED FOR XREF C 2010 IF (LBLTBL(LSTLBL+3)) 2040,2360,2020 2020 I = LBLTBL(LSTLBL+3) + 6 IF (OSCAR(I-3).EQ.NCOND .OR. OSCAR(I-3).EQ.NJUMP) GO TO 2030 J = OSCAR(I) C C LABEL NAME TO WORDS 3 AND 4 OF CEITBL ENTRY C CEITBL(J+1) = LBLTBL(LSTLBL ) CEITBL(J+2) = LBLTBL(LSTLBL+1) C C OSCAR RECORD NO. OF BEGIN LOOP TO FIRST WORD OF CEITBL ENTRY C CEITBL(J-1) = ORF(LSHIFT(LBLTBL(LSTLBL+2),16),CEITBL(J-1)) 2030 OSCAR(I) = ORF(LSHIFT(LBLTBL(LSTLBL+2),16),OSCAR(I)) C C GET NEXT LBLTBL ENTRY. C 2040 LSTLBL = LSTLBL - 4 GO TO 2000 C C NORMAL RETURN - DUMP LBLTBL ONTO SCRATCH FOR DMAP XREF C THEN DELETE LBLTBL AND DMPCRD ARRARYS C FROM OPEN CORE C 2050 LSTLBL = LSTLSV 2060 LOSCAR = LBLBOT IDPBUF = KORSZ(OSCAR) - 2*BUFSZ CALL CLOSE (NSCR,1) LSTLBL = LSTLBL - LBLTOP + 4 IF (LSTLBL .LT. 0) LSTLBL = 0 RETURN C C DIAGNOSTIC MESSAGES - C C DMAP INPUT FILE ERROR C 2100 CALL XGPIDG (-10,OSPNT,0,0) GO TO 410 C C DMAP OUTPUT FILE ERROR C 2110 CALL XGPIDG (-11,OSPNT,0,0) GO TO 420 C C NO MACRO INSTRUCTION NAME ON DMAP CARD. C 2120 CALL XGPIDG (12,0,DMPCNT,0) GO TO 300 C C NO MPL ENTRY FOR THIS DMAP MACRO INSTRUCTION C 2130 CALL XGPIDG (13,0,DMPPNT,DMPCNT) GO TO 300 C C MPL TABLE INCORRECT C 2140 CALL XGPIDG (49,0,0,0) GO TO 2500 C C DUPLICATE PARAMETER NAMES (WARNING) C 2150 CALL XGPIDG (-2,OSPNT,DMAP(DMPPNT),DMAP(DMPPNT+1)) GO TO 870 C C DMAP FORMAT ERROR C 2160 CALL XGPIDG (16,OSPNT,0,0) GO TO 300 2170 J = OSBOT + OSCAR(OSBOT) + 6 CALL XGPIDG (16,J,0,0) GO TO 300 C C PRECHK NAME LIST OVERFLOW C 2180 CALL XGPIDG (55,0,0,0) GO TO 2500 C C ILLEGAL OPTION ON XDMAP CARD C 2190 CALL XGPIDG (56,0,0,0) GO TO 300 C C VARIABLE REPT INSTRUCTION ERRORS C 2200 CALL XGPIDG (58,0,0,0) GO TO 300 2210 CALL XGPIDG (57,0,0,0) GO TO 300 C C LBLTBL OVERFLOWED - ALLOCATE 50 MORE WORDS FOR IT. C 2220 ICRDTP = ICRDTP - 50 IF (ICRDTP .LT. OSCAR(OSBOT)+OSBOT) GO TO 2240 LOSCAR = LOSCAR - 50 C C MOVE LABEL NAME PORTION OF LBLTBL C JX = LSTLBL + 3 DO 2230 IX = LBLTOP,JX IY = IX - 50 2230 LBLTBL(IY) = LBLTBL(IX) LBLTOP = LBLTOP - 50 LSTLBL = LSTLBL - 50 GO TO IRTURN, (570,620,1070,1320,1420) C C LABEL TABLE OVERFLOW, DISCONTINUE COMPILATION C 2240 CALL XGPIDG (14,NLBLT1,NLBLT2,DMPCNT) GO TO 2500 C C LABEL IS MULTIPLY DEFINED C 2250 CALL XGPIDG (19,DMPCNT,DMPPNT,0) GO TO 300 C C ILLEGAL CHARACTERS IN DMAP SAVE PARAMETER NAME LIST C 2260 CALL XGPIDG (20,OSPNT,OSCAR(I)+1,0) GO TO 870 C C XSAVE PARAMETER NAME NOT ON PRECEDING DMAP CARD C 2270 CALL XGPIDG (21,OSPNT,DMAP(DMPPNT),DMAP(DMPPNT+1)) GO TO 870 C C CEITBL OVERFLOW, DISCONTINUE COMPILATION C 2280 CALL XGPIDG (14,NCEIT1,NCEIT2,DMPCNT) GO TO 2500 C C CHECK FOR XSAVE PARAMETERS NOT ON PRECEDING DMAP CARD C 2290 I1 = I + 2 K = K + 1 DO 2300 K1 = I1,K,2 IF (OSCAR(K1).GT.0 .OR. OSCAR(K1-1).EQ.0) GO TO 2300 J = OSCAR(K1-1) CALL XGPIDG (21,OSPNT,VPS(J-3),VPS(J-2)) 2300 CONTINUE GO TO 300 C C PARAMETER NOT DEFINED FOR USE IN COND, PURGE OR EQUIV INSTRUCTIONS C 2310 CALL XGPIDG (25,LBLTBL(LSTPAR+3),LBLTBL(LSTPAR),LBLTBL(LSTPAR+1)) GO TO 1940 C C LABEL NOT DEFINED C 2320 CALL XGPIDG (26,LBLTBL(LSTLBL+3),LBLTBL(LSTLBL),LBLTBL(LSTLBL+1)) NOGO = 1 GO TO 2040 C C CHECK FOR LABEL DEFINED C 2330 DO 2340 J = LBLTOP,LSTLBL,4 IF (LBLTBL(J).EQ.LBLTBL(LSTLBL) .AND. LBLTBL(J+1).EQ. 1 LBLTBL(LSTLBL+1) .AND. LBLTBL(J+2).GT.0) GO TO 2350 2340 CONTINUE GO TO 2320 2350 LBLTBL(LSTLBL+2) = LBLTBL(J+2) GO TO 2010 C C LABEL NOT REFERENCED - WARNING ONLY C 2360 CALL XGPIDG (-27,LBLTBL(LSTLBL+2),LBLTBL(LSTLBL),LBLTBL(LSTLBL+1)) GO TO 2040 C C TIME SEGMENT NAME INCORRECT - WARNING ONLY C 2370 CALL XGPIDG (-17,OSPNT,0,0) GO TO 300 C C VPS TABLE OVERFLOWED C 2380 CALL XGPIDG (14,NVPS,NBLANK,0) GO TO 2500 C C DMAP SEQUENCE DOES NOT CORRESPOND TO MED TABLE C 2390 CALL XGPIDG (39,0,0,0) GO TO 2500 C C WARNING - CANNOT CHECKPOINT USER INPUT C 2400 CALL XGPIDG (-48,OSPNT,OSCAR(IOSPNT),OSCAR(IOSPNT+1)) GO TO 1030 C C OVERFLOWED FILE TABLE C 2410 CALL XGPIDG (14,NFILE,NBLANK,0) GO TO 2500 C C SAVE OUT OF POSITION C 2420 CALL XGPIDG (61,OSPNT,0,0) OSPNT = IOSDAV OSPRC = OS2B4 GO TO 300 C C RETURN WHEN XGPI HAS BEEN DISASTERED. C 2500 NOGO = 2 RETURN END ================================================ FILE: mis/xparam.f ================================================ SUBROUTINE XPARAM C C THE PURPOSE OF XPARAM IS TO GENERATE THE PARAMETER SECTION OF AN C OSCAR ENTRY,AND TO GENERATE THE VPS TABLE. C C ... DESCRIPTION OF PROGRAM VARIABLES ... C ITMP = TEMPORARY STORAGE FOR PARAMETER NAME AND VALUE. C IPVAL = HIGHEST PRIORITY NOMINAL VALUE IN ITMP. C IPRVOP = PREVIOUS OPERATOR OR OPERAND RECEIVED FROM DMAP. C INDEX = TABLE CONTAINING ROW INDEXES FOR ISYNTX TABLE. C ISYNTX = SYNTAX TABLE USED TO PROCESS DMAP PARAMETER LIST. C NVSTBL = NOMINAL VALUE SOURCE TABLE. C NOSPNT = POINTER TO PARAMETER COUNT IN PARAMETER SECTION OF OSCAR. C IOSPNT = POINTER TO NEXT AVAILABLE WORD IN OSCAR. C ENDCRD = END OF CARD FLAG C MPLLN = LENGTH(IN WORDS) OF MPL PARAMETER VALUE C ITYPE = TABLE FOR TRANSLATING NUMBER TYPE CODES TO WORD LENGTH. C ENDCRD = FLAG INDICATING END OF CARD SENSED. C C RETURN CODES FROM XSCNDM C C 1 DELIMITOR C 2 BCD C 3 VALUE C 4 END OF CARD C 5 ERROR ENCOUNTERED C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF DIMENSION ITMP(7),INDEX(2,2),ISYNTX(4,5),NVSTBL(4,4), 1 ITYPE(6),OSCAR(1),OS(5) COMMON /SYSTEM/ BUFSZ,OPTAPE,NOGO COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI, 1 NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT, 2 NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT, 3 NCHKPT,NPURGE,NEQUIV, 4 NCPW,NBPC,NWPC, 5 MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1) COMMON /XGPID / XXGPID(8),MODFLG COMMON /ZZZZZZ/ CORE(1) COMMON /XGPI2 / LMPL,MPLPNT,MPL(1) COMMON /XGPI3 / PVT(2) COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT, 1 IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD, 2 MODIDX,LDMAP,ISAVDW,DMAP(1) COMMON /XVPS / VPS(2) COMMON /AUTOSM/ NWORDS,SAVNAM(100) EQUIVALENCE (CORE(1),OS(1),LOSCAR),(OS(2),OSPRC), 1 (OS(3),OSBOT),(OS(4),OSPNT),(OS(5),OSCAR(1)) C DATA INDEX / 1,3,2,4/, 1 ISYNTX / 3*1,8,3*2,7,3*3,5,4*4,4*6/, 2 NVSTBL / 1,1,3,3,1,1,4,4,1,1,4,4,1,2,4,2/, 3 ITYPE / 1,1,2,2,2,4/, 4 IC /4HC /, IV/4HV /, IY /4HY /, IN/4HN /, 5 NVPS/4HVPS /, IS/4HS /, IASTK/4H* /, 6 NAME/1 /, IVAL/2/, NONE/1/, IMPL/2/, IDMAP/3/, IPVT/4/ C C INITIALIZE C OR (I,J) = ORF(I,J) AND(I,J) = ANDF(I,J) ENDCRD = 0 IPRVOP = ISLSH NOSPNT = OSCAR(OSPNT) + OSPNT IOSPNT = NOSPNT + 1 OSCAR(NOSPNT) = 0 MPLBOT = MPL(MPLPNT-7) + MPLPNT - 7 C C GET FIRST/NEXT TYPE AND MODIFY CODES FROM DMAP,CHECK FOR $ C 10 NEWTYP = 0 ISAVE = 0 15 CALL XSCNDM GO TO (600,20,601,410,570), IRTURN 20 IF (DMAP(DMPPNT) .EQ. NBLANK) GO TO 15 OSCAR(NOSPNT) = 1 + OSCAR(NOSPNT) J = DMAP(DMPPNT) IF (J.NE.IC .AND. J.NE.IV .AND. J.NE.IS) GO TO 602 IF (J .EQ. IS) ISAVE = 1 I = 1 IF (J .EQ.IC) I = 2 CALL XSCNDM GO TO (470,30,470,470,570), IRTURN 30 K = DMAP(DMPPNT) IF (K.NE.IY .AND. K.NE.IN) GO TO 470 J = 1 IF (K.EQ.IN .OR. K.EQ.IS) J = 2 C C USE I AND J TO OBTAIN ROW INDEX FOR SYNTAX TABLE. C 75 I = INDEX(I,J) C C INITIALIZE IPVAL,AND ITMP WITH MPL DATA C IF (MPLPNT .GE. MPLBOT) GO TO 580 DO 40 K = 1,7 40 ITMP(K) = 0 ITMP(3) = IABS(MPL(MPLPNT)) C C CONVERT PARAMETER TYPE CODE TO WORD LENGTH C K = ITMP(3) MPLLN = ITYPE(K) IPVAL = NONE IF (MPL(MPLPNT) .LT. 0) GO TO 60 DO 50 K = 1,MPLLN MPLPNT = MPLPNT + 1 50 ITMP(K+3) = MPL(MPLPNT) IPVAL = IMPL 60 MPLPNT = MPLPNT + 1 IF (NEWTYP .EQ. 1) GO TO (620,100,110,120,570), IRTURN C C SCAN DMAP FOR PARAMETER NAME AND VALUE IF ANY, AND CODE DMAP ENTRY C FOR USE AS COLUMN INDEX IN SYNTAX TABLE. C 70 CALL XSCNDM GO TO (90,100,110,120,570), IRTURN 90 IF (DMAP(DMPPNT+1).NE.IEQUL .AND. DMAP(DMPPNT+1).NE.ISLSH .AND. 1 DMAP(DMPPNT+1).NE.IASTK) GO TO 470 IF (DMAP(DMPPNT+1) .EQ. IASTK) GO TO 70 J = 2 IF (DMAP(DMPPNT+1).EQ.ISLSH) J = 4 GO TO 130 100 J = 1 C C CHECK FOR BLANK C IF (DMAP(DMPPNT) .EQ. NBLANK) GO TO 70 GO TO 130 110 J = 3 GO TO 130 120 J = 5 C C BRANCH ON SYNTAX TABLE VALUE C 130 K = ISYNTX(I,J) GO TO (140,180,210,280,200,290,470,190), K C C NAME FOUND. NAME TO TEMP,UPDATE PREVOP AND SEARCH PVT FOR VALUE. C 140 IF (IPRVOP .EQ. IEQUL) GO TO 190 IF (IPRVOP .NE. ISLSH) GO TO 470 ITMP(1) = DMAP(DMPPNT ) ITMP(2) = DMAP(DMPPNT+1) IPRVOP = NAME C C SCAN PVT K = 3 150 L = ANDF(PVT(K+2),NOSGN) L = ITYPE(L) IF (DMAP(DMPPNT).EQ.PVT(K) .AND. DMAP(DMPPNT+1).EQ.PVT(K+1)) 1 GO TO 160 K = K + 3 + L IF (K-PVT(2)) 150,70,70 C C CHECK LENGTH OF PVT VALUE C 160 IPVAL = IPVT PVT(K+2) = ORF(PVT(K+2),ISGNON) IF (ANDF(PVT(K+2),NOSGN) .NE. ITMP(3)) GO TO 490 C C TRANSFER VALUE TO ITMP C DO 170 M = 1,L J = K + M + 2 170 ITMP(M+3) = PVT(J) GO TO 70 C C DMAP ENTRY IS = OPERATOR C 180 IF (IPRVOP .NE. NAME) GO TO 470 IPRVOP = IEQUL GO TO 70 C C BCD PARAMETER VALUE FOUND C 190 IF (ITMP(3) .NE. 3) GO TO 500 LENGTH = 2 DMPPNT = DMPPNT - 1 DMAP(DMPPNT) = ITMP(3) GO TO 220 C C DMAP ENTRY IS BINARY VALUE C 200 IF (IPRVOP .EQ. ISLSH) GO TO 220 210 IF (IPRVOP .NE. IEQUL) GO TO 470 220 IPRVOP = IVAL IF (IPVAL .EQ. IPVT) GO TO 70 C C DMAP VALUE IS HIGHEST PRIORITY C IPVAL = IDMAP IF (ANDF(DMAP(DMPPNT),NOSGN) .NE. ITMP(3)) GO TO 500 C C TRANSFER DMAP VALUE TO ITMP C DO 270 M = 1,LENGTH J = DMPPNT + M 270 ITMP(M+3) = DMAP(J) GO TO 70 C C DMAP ENTRY IS / OPERATOR C 280 IF (IPRVOP .EQ. IEQUL) GO TO 470 IPRVOP = ISLSH GO TO 300 C C END OF DMAP INSTRUCTION C 290 IF (IPRVOP .EQ. IEQUL) GO TO 470 C C PARAMETER SCANNED,CHECK CORRECTNESS OF NAME AND VALUE AND C PROCESS ITMP ACCORDING TO NVSTBL C 300 IF (I.LT.4 .AND. ITMP(1).EQ.0) GO TO 510 K = NVSTBL(I,IPVAL) C GO TO (310,520,530,390), K C C VARIABLE PARAMETER,VALUE TO VPS,POINTER TO OSCAR C 310 K = 3 320 IF (ITMP(1).EQ.VPS(K) .AND. ITMP(2).EQ.VPS(K+1)) GO TO 330 K = K + AND(VPS(K+2),MASKHI) + 3 IF (K-VPS(2)) 320,350,350 C C PARAMETER IS ALREADY IN VPS - MAKE SURE TYPES AGREE. C 330 L = ANDF(RSHIFT(VPS(K+2),16),15) IF (L .EQ. 0) GO TO 335 IF (L .NE. ANDF(ITMP(3),15)) GO TO 555 C C CHECK VALUE MODIFIED FLAG C 335 IF (ANDF(MODFLG,VPS(K+2)) .EQ. 0) GO TO 340 C C VALUE HAS BEEN MODIFIED FOR RESTART - DO NOT CHANGE. C GO TO 380 C C CHECK IF PREVIOUSLY DEFINED C 340 IF (VPS(K+2) .LT. 0) GO TO 540 GO TO 360 C C NAME NOT IN VPS,MAKE NEW ENTRY C 350 K = VPS(2) + 1 VPS(2) = K + 2 + MPLLN IF (VPS(2)-VPS(1)) 360,360,560 C C ITMP NAME,LENGTH,FLAG,VALUE TO VPS C 360 L = MPLLN + 3 DO 370 M = 1,L J = K + M - 1 370 VPS(J ) = ITMP(M) VPS(K+2) = OR(MPLLN,LSHIFT(ITMP(3),16)) IF (IPVAL .EQ. IDMAP) VPS(K+2) = OR(VPS(K+2),ISGNON) C C LOCATION OF VALUE IN VPS TO OSCAR C 380 OSCAR(IOSPNT) = K + 3 IF (ISAVE .NE. 1) GO TO 385 NWORDS = NWORDS + 1 SAVNAM(NWORDS) = K+3 385 CONTINUE OSCAR(IOSPNT) = OR(OSCAR(IOSPNT),ISGNON) IOSPNT = IOSPNT + 1 GO TO 10 C C CONSTANT PARAMETER,VALUE TO OSCAR C 390 OSCAR(IOSPNT) = MPLLN DO 400 M = 1,MPLLN J = IOSPNT + M 400 OSCAR(J) = ITMP(M+3) IOSPNT = IOSPNT + MPLLN + 1 GO TO 10 C C PROCESS ANY INTEGER, REAL, OR COMPLEX CONSTANTS C 601 I = 2 J = 2 NEWTYP = 1 OSCAR(NOSPNT) = OSCAR(NOSPNT) + 1 GO TO 75 C C PROCESS POSSIBLE DELIMITERS - SLASH AND ASTERISK C 600 IF (DMAP(DMPPNT+1) .NE. IASTK) GO TO 610 CALL XSCNDM GO TO (470,605,470,410,570), IRTURN 605 I = 2 J = 2 NEWTYP = 1 OSCAR(NOSPNT) = OSCAR(NOSPNT) + 1 GO TO 75 C C PROCESS MPL DEFAULTS IF // IS ENCOUNTERED C 610 IF (DMAP(DMPPNT+1) .NE. ISLSH) GO TO 470 I = 2 J = 2 NEWTYP = 1 OSCAR(NOSPNT) = OSCAR(NOSPNT) + 1 GO TO 75 C C USE DEFAULT MPL VALUE FOR PARAMETER C 620 IF (IPVAL .EQ. NONE) GO TO 470 OSCAR(IOSPNT) = MPLLN DO 625 M = 1,MPLLN J = IOSPNT + M 625 OSCAR(J) = ITMP(M+3) IOSPNT = IOSPNT + MPLLN + 1 GO TO 10 C C PROCESS V,N,NAME PARAMETER TYPES AS /NAME/ C 602 I = 1 J = 2 NEWTYP = 1 GO TO 75 C C ALL PARAMETERS ON DMAP CARD PROCESSED,PROCESS ANY REMAINING ON C MPL C 410 IF (MPLPNT .GE. MPLBOT) GO TO 450 ENDCRD = 1 LENGTH = IABS(MPL(MPLPNT)) LENGTH = ITYPE(LENGTH) OSCAR(NOSPNT) = 1 + OSCAR(NOSPNT) IF (MPL(MPLPNT)) 530,480,420 420 OSCAR(IOSPNT) = LENGTH DO 430 M = 1,LENGTH J = IOSPNT + M MPLPNT = MPLPNT + 1 430 OSCAR(J) = MPL(MPLPNT) 440 MPLPNT = MPLPNT + 1 IOSPNT = IOSPNT + LENGTH + 1 GO TO 410 C C RETURN TO XOSGEN C 450 OSCAR(OSPNT) = IOSPNT - OSPNT IRTURN = 1 460 RETURN C C ERROR MESSAGES - C C DMAP CARD FORMAT ERROR C 470 CALL XGPIDG (3,OSPNT,OSCAR(NOSPNT),0) GO TO 450 C C MPL PARAMETER ERROR C 480 CALL XGPIDG (4,OSPNT,OSCAR(NOSPNT),0) GO TO 450 C C PARA CARD ERROR C 490 CALL XGPIDG (5,0,ITMP(1),ITMP(2)) GO TO 70 C C ILLEGAL DMAP PARAMETER VALUE C 500 CALL XGPIDG (6,OSPNT,OSCAR(NOSPNT),0) GO TO 70 C C DMAP PARAMETER NAME MISSING C 510 CALL XGPIDG (7,OSPNT,OSCAR(NOSPNT),0) GO TO 390 C C ILLEGAL PARA CARD C 520 CALL XGPIDG (8,0,ITMP(1),ITMP(2)) IF (I-2) 310,310,390 C C CONSTANT PARAMETER NOT DEFINED C 530 CALL XGPIDG (9,OSPNT,OSCAR(NOSPNT),0) IF (ENDCRD .EQ. 1) GO TO 440 GO TO 390 C C WARNING - PARAMETER ALREADY HAD VALUE ASSIGNED PREVIOUSLY C 540 IF (IPVAL .NE. IDMAP) GO TO 550 CALL XGPIDG (-42,OSPNT,ITMP(1),ITMP(2)) 550 IF (AND(RSHIFT(VPS(K+2),16),15) .EQ. AND(ITMP(3),15)) GO TO 380 C C INCONSISTENT LENGTH USED FOR VARIABLE PARAMETER. C 555 CALL XGPIDG (15,OSPNT,ITMP(1),ITMP(2)) GO TO 380 C C VPS TABLE OVERFLOW C 560 CALL XGPIDG (14,NVPS,NBLANK,DMPCNT) 570 NOGO = 2 IRTURN = 2 GO TO 460 C C TOO MANY PARAMETERS IN DMAP PARAMETER LIST. C 580 CALL XGPIDG (18,OSPNT,0,0) GO TO 450 END ================================================ FILE: mis/xpolck.f ================================================ SUBROUTINE XPOLCK (DBN1,DBN2,FN,L) C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT , ANDF , ORF DIMENSION NPOLCK(2), DDBN( 1), DFNU( 1), FCUM( 1), 1 FCUS( 1), FDBN( 1), FEQU( 1), FILE( 1), 2 FKND( 1), FMAT( 1), FNTU( 1), FPUN( 1), 3 FON ( 1), FORD( 1), MINP( 1), MLSN( 1), 4 MOUT( 1), MSCR( 1), SAL ( 1), SDBN( 1), 5 SNTU( 1), SORD( 1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ KSYSTM(65) COMMON /XFIAT / FIAT(7) COMMON /XFIST / FIST COMMON /XDPL / DPD(6) COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(5) EQUIVALENCE (KSYSTM(2),OUTTAP ) EQUIVALENCE (DPD (1),DNAF ),(DPD (2),DMXLG ), 1 (DPD (3),DCULG ),(DPD (4),DDBN (1)),(DPD (6),DFNU (1)), 2 (FIAT (1),FUNLG ),(FIAT (2),FMXLG ),(FIAT (3),FCULG ), 3 (FIAT (4),FEQU (1)),(FIAT (4),FILE (1)),(FIAT (4),FORD (1)), 4 (FIAT (5),FDBN (1)),(FIAT (7),FMAT (1)),(MD (1),MLGN ), 5 (MD (2),MLSN (1)),(MD (3),MINP (1)),(MD (4),MOUT (1)), 6 (MD (5),MSCR (1)),(SOS (1),SLGN ),(SOS (2),SDBN (1)), 7 (SOS (4),SAL (1)),(SOS (4),SNTU (1)),(SOS (4),SORD (1)), 8 (XF1AT(1),FNTU (1)),(XF1AT(1),FON (1)),(XF1AT(2),FPUN (1)), 9 (XF1AT(3),FCUM (1)),(XF1AT(4),FCUS (1)),(XF1AT(5),FKND (1)) EQUIVALENCE (COMM (1),ALMSK ),(COMM (2),APNDMK ), 1 (COMM (3),CURSNO ),(COMM (4),ENTN1 ),(COMM (5),ENTN2 ), 2 (COMM (6),ENTN3 ),(COMM (7),ENTN4 ),(COMM (8),FLAG ), 3 (COMM (9),FNX ),(COMM(10),LMSK ),(COMM(11),LXMSK ), 4 (COMM(12),MACSFT ),(COMM(13),RMSK ),(COMM(14),RXMSK ), 5 (COMM(15),S ),(COMM(16),SCORNT ),(COMM(17),TAPMSK ), 6 (COMM(18),THCRMK ),(COMM(19),ZAP ) DATA POOL /4HPOOL / DATA NPOLCK /4HXPOL,4HCK / C C C XPOLCK CHECKS THE DATA POOL DICT FOR A DATA BLOCK NAME C LMT1 = DCULG*ENTN4 DO 1 I = 1,LMT1,ENTN4 IF (DBN1.NE.DDBN(I) .OR. DBN2.NE.DDBN(I+1)) GO TO 1 FN = ANDF(RMSK,DFNU(I)) L = I RETURN C 1 CONTINUE FN = 0 RETURN C C ENTRY XFILPS (NEW) C ================== C C XFILPS POSITIONS THE POOL TAPE FORWARD OR BACKWARD C C NEW IS DESIRED POSITION C FNX IS CURRENT POSITION C FDIF = NEW - FNX IF (FDIF) 10,30,20 10 FDIF = FDIF - 1 20 CALL SKPFIL (POOL,FDIF) IF (FDIF.LT.0 .AND. NEW.NE.1) CALL SKPFIL (POOL,+1) 30 RETURN C C ENTRY XPLEQK (NX,NY) C ==================== C C XPLEQK MOVES SECONDARY EQUIVALENCED DATA BLOCK NAMES FROM THE C POOL DICT. TO FIAT. NTU-LTU DATA ARE ALSO STORED IN FIAT FOR THE C EQUIV. D.B. NTU-LTU DATA IS EXTRACTED FROM SOS IF FOUND, IF NOT, C IT IS COPIED FROM THE CALLING PRIMARY D.B. C C NX IS THE POOL DICT. INDEX C NY IS THE FIAT INDEX FOR PRIMARY D.B. C FEQU(NY) = ORF(S,FEQU(NY)) KFIL = ANDF(RMSK,DFNU(NX)) LMT1 = DCULG*ENTN4 LMT2 = SLGN *ENTN2 LMT3 = FCULG*ENTN1 NFCULG = LMT3 + 1 C C SEARCH FOR EQUIV FILES IN DICT C DO 150 I = 1,LMT1,ENTN4 IF (DDBN(I).EQ.0 .AND. DDBN(I+1).EQ.0) GO TO 150 IF (KFIL .NE. ANDF(RMSK,DFNU(I))) GO TO 150 IF (I .EQ. NX) GO TO 150 C C SEE IF NAME IS IN FIAT C DO 100 J = 1,LMT3,ENTN1 IF (DDBN(I).EQ.FDBN(J) .AND. DDBN(I+1).EQ.FDBN(J+1)) GO TO 115 100 CONTINUE FDBN(NFCULG ) = DDBN(I ) FDBN(NFCULG+1) = DDBN(I+1) FILE(NFCULG) = FILE(NY) FNTU(NFCULG) = FNTU(NY) FORD(NFCULG) = ORF(LSHIFT(1000,16),ANDF(RMSK,FILE(NFCULG))) FEQU(NFCULG) = ORF(S,FEQU(NFCULG)) DO 110 J = 1,LMT2,ENTN2 IF (DDBN(I).EQ.SDBN(J) .AND. DDBN(I+1).EQ.SDBN(J+1)) GO TO 120 110 CONTINUE GO TO 140 C C FILE ALREADY ALLOCATED BE SURE EQUIVED C 115 FILE(J) = ORF(ANDF(RMSK,FILE(NY)),ANDF(LMSK,FILE(J))) FEQU(J) = ORF(S,FEQU(J)) GO TO 150 120 FORD(NFCULG) = ORF(ANDF(LMSK,SORD(J)),ANDF(RMSK,FILE(NFCULG))) FEQU(NFCULG) = ORF(S,FEQU(NFCULG)) FNTU(NFCULG) = SNTU(J) 140 NFCULG = NFCULG+ ENTN1 FCULG = FCULG + 1 C C FLAG INDICATES D.B. S HAVE BEEN ADDED TO FIAT C FLAG = -1 IF (FCULG .GT. FMXLG) GO TO 900 150 CONTINUE RETURN C 900 WRITE (OUTTAP,901) SFM 901 FORMAT (A25,' 1051, FIAT OVERFLOW') CALL MESAGE (-37,0,NPOLCK) RETURN END ================================================ FILE: mis/xpunp.f ================================================ SUBROUTINE XPUNP C C THIS SUBROUTINE POOLS AND UNPOOLS FILES AS PRESCRIBED BY XFIAT C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT ,ANDF ,ORF DIMENSION HEADER( 8),HEAD( 2),NPUNP( 2),BLOCK(1000), 1 DDBN ( 1),DFNU( 1),FCUM ( 1),FCUS ( 1), 2 FDBN ( 1),FEQU( 1),FILE ( 1),FKND ( 1), 3 FMAT ( 1),FNTU( 1),FPUN ( 1),FON ( 1), 4 FORD ( 1),MINP( 1),MLSN ( 1),MOUT ( 1), 5 MSCR ( 1),SAL ( 1),SDBN ( 1),SNTU ( 1), 6 SORD ( 1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /XFIAT / FIAT(7) COMMON /XPFIST/ PFIST COMMON /XFIST / FIST(2) COMMON /XDPL / DPD(6) COMMON /SYSTEM/ IBUFSZ,OUTTAP COMMON /ZZZZZZ/ BUF1(1) COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(5) EQUIVALENCE (DPD (1),DNAF ),(DPD (2),DMXLG ), 1 (DPD (3),DCULG ),(DPD (4),DDBN (1)),(DPD (6),DFNU (1)), 2 (FIAT (1),FUNLG ),(FIAT (2),FMXLG ),(FIAT (3),FCULG ), 3 (FIAT (4),FEQU (1)),(FIAT (4),FILE (1)),(FIAT (4),FORD (1)), 4 (FIAT (5),FDBN (1)),(FIAT (7),FMAT (1)),(MD (1),MLGN ), 5 (MD (2),MLSN (1)),(MD (3),MINP (1)),(MD (4),MOUT (1)), 6 (MD (5),MSCR (1)),(SOS (1),SLGN ),(SOS (2),SDBN (1)), 7 (SOS (4),SAL (1)),(SOS (4),SNTU (1)),(SOS (4),SORD (1)), 8 (XF1AT(1),FNTU (1)),(XF1AT(1),FON (1)),(XF1AT(2),FPUN (1)), 9 (XF1AT(3),FCUM (1)),(XF1AT(4),FCUS (1)),(XF1AT(5),FKND (1)) EQUIVALENCE (COMM (1),ALMSK ),(COMM (2),APNDMK ), 1 (COMM (3),CURSNO ),(COMM (4),ENTN1 ),(COMM (5),ENTN2 ), 2 (COMM (6),ENTN3 ),(COMM (7),ENTN4 ),(COMM (8),FLAG ), 3 (COMM (9),FNX ),(COMM(10),LMSK ),(COMM(11),LXMSK ), 4 (COMM(12),MACSFT ),(COMM(13),RMSK ),(COMM(14),RXMSK ), 5 (COMM(15),S ),(COMM(16),SCORNT ),(COMM(17),TAPMSK ), 6 (COMM(18),THCRMK ),(COMM(19),ZAP ) DATA N/1000/ ,POOL/4HPOOL/ ,ENTN5/2/, NPUNP/4HXPUN,4HP / C C ENTRY SIZE NUMBERS, 1=FIAT, 4=DPD C ISW1 = 0 ISW2 = 0 ENTN1X = ENTN1- 1 FIST(2) = 1 + PFIST C C COMPUTE INDEX FOR DUMMY ENTRY IN FIST C FSTIDX = FIST(2)*2 + 1 LMT3 = FCULG* ENTN1 C C CHECK FOR ANY FILES TO POOL C FIST(FSTIDX) = 101 DO 360 I = 1,LMT3,ENTN1 IF (FPUN(I) .GE. 0) GO TO 360 NN = ANDF(ALMSK,FPUN(I)) FPUN(I)= 0 IF (FMAT(I).NE.0 .OR. FMAT(I+1).NE.0 .OR. FMAT(I+2).NE.0) 1 GO TO 105 IF (ENTN1.EQ.11 .AND. (FMAT(I+5).NE.0 .OR. FMAT(I+6).NE.0 .OR. 1 FMAT(I+7).NE.0)) GO TO 105 NN = 1 GO TO 268 105 CALL XPOLCK (FDBN(I),FDBN(I+1),FN,NX) IF (FN .EQ. 0) GO TO 110 J = NX GO TO 268 110 IF (ISW1 .NE. 0) GO TO 220 ISW1 = 1 CALL OPEN (*900,POOL,BUF1,2) CALL XFILPS (DNAF) CALL CLOSE (POOL,2) CALL OPEN (*900,POOL,BUF1,3) FNX = DNAF 220 FIST(FSTIDX+1) = I + ENTN5 CALL OPEN (*900,101,BUF1(IBUFSZ+1),0) NCNT = 0 C C WRITE SPECIAL FILE HEADER RECORD -- XPOOL DICT NAME ( 2 WORDS ) C + DATA BLOCK TRAILER ( 3 WORDS C OR 6 WORDS ) C CALL WRITE (POOL,FDBN(I),2,0) IF (ENTN1 .EQ. 11) GO TO 230 CALL WRITE (POOL,FMAT(I),3,1) GO TO 240 230 CALL WRITE (POOL,FMAT(I ),3,0) CALL WRITE (POOL,FMAT(I+5),3,1) C C READ AND WRITE 1ST 2 WORDS OF DATA BLOCK HEADER. C THEN CALL CPYFIL TO COPY REMAINDER OF FILE. C 240 CALL READ (*910,*920,101,HEAD,2,0,FLAG) CALL WRITE (POOL,HEAD,2,0) CALL CPYFIL (101,POOL,BLOCK,N,FLAG) NCNT = ANDF(LXMSK,LSHIFT(FLAG/1000+1,16)) CALL EOF (POOL) CALL CLOSE (101,1) C C ADD FILE NAME OF FILE JUST POOLED TO DPD C J = DCULG* ENTN4+ 1 DCULG = DCULG+ 1 IF (DCULG .GT. DMXLG) GO TO 700 DFNU(J ) = ORF(DNAF,NCNT) DDBN(J ) = FDBN(I ) DDBN(J+1) = FDBN(I+1) CALL SSWTCH (3,L) IF (L .NE. 1) GO TO 267 CALL PAGE2 (-2) WRITE (OUTTAP,266) DDBN(J),DDBN(J+1),HEAD(1),HEAD(2) 266 FORMAT (16H0POOL FILE NAME , 2A4, 17H DATA BLOCK NAME ,2A4) 267 DNAF = DNAF + 1 FNX = FNX + 1 268 HOLD = ANDF(RXMSK,FILE(I)) LMT4 = I + ENTN1X DO 269 KK = I,LMT4 269 FILE(KK) = 0 FILE(I) = HOLD FDBN(I) = ALMSK C C CHECK FOR EQUIV FILES C IF (NN .EQ. 1) GO TO 360 C C THERE ARE EQUIV FILES C DFNU(J) = ORF(S,DFNU(J)) DFNUSV = DFNU(J) DO 280 K = 1,LMT3,ENTN1 IF (FEQU(K).GE.0 .OR. I.EQ.K) GO TO 280 IF (ANDF(RMSK,FILE(I)) .NE. ANDF(RMSK,FILE(K))) GO TO 280 C C THIS IS AN EQUIV FILE C CALL XPOLCK (FDBN(K),FDBN(K+1),FN,NX) IF (FN .EQ. 0) GO TO 272 IF (DFNU(NX) .EQ. DFNUSV) GO TO 277 DDBN(NX ) = 0 DDBN(NX+1) = 0 272 J = J + ENTN4 DCULG = DCULG + 1 IF (DCULG .GT. DMXLG) GO TO 700 DFNU(J ) = DFNUSV DDBN(J ) = FDBN(K) DDBN(J+1) = FDBN(K+1) LMT4= K+ ENTN1X DO 275 KK = K,LMT4 275 FILE(KK) = 0 277 NN = NN - 1 IF (NN .EQ. 1) GO TO 360 280 CONTINUE GO TO 930 360 CONTINUE IF (ISW1 .EQ. 0) GO TO 400 CALL CLOSE (POOL,1) FNX = 1 C C CHECK FOR ANY FILES TO UNPOOL C 400 FIST(FSTIDX) = 201 405 FN = DNAF DO 420 I = 1,LMT3,ENTN1 IF (FPUN(I).LE. 0 .OR. FPUN(I).GE.FN) GO TO 420 FN = FPUN(I) II = I 420 CONTINUE IF (FN .EQ. DNAF) GO TO 570 FPUN(II) = 0 IF (ISW2 .NE. 0) GO TO 470 ISW2 = 1 CALL OPEN (*900,POOL,BUF1,0) FNX = 1 470 CALL XFILPS (FN) FNX= FN FIST(FSTIDX+1) = II + ENTN5 CALL OPEN (*900,201,BUF1(IBUFSZ+1),1) C C READ SPECIAL FILE HEADER RECORD AND, IF DIAG 3 IS ON, PRINT MSG C CALL READ (*910,*920,POOL,HEADER,ENTN1-3,1,FLAG) CALL SSWTCH (3,L) IF (L .NE. 1) GO TO 500 CALL PAGE2 (-2) WRITE (OUTTAP,501) FDBN(II),FDBN(II+1),HEADER(1),HEADER(2) 501 FORMAT (17H0XUNPL-DICT NAME ,2A4, 16H POOL FILE NAME , 2A4 ) C C COPY FILE USING CPYFIL C 500 CALL CPYFIL (POOL,201,BLOCK,N,FLAG) CALL CLOSE (201,1) FNX = FNX + 1 FMAT(II ) = HEADER(3) FMAT(II+1) = HEADER(4) FMAT(II+2) = HEADER(5) IF (ENTN1 .NE. 11) GO TO 510 FMAT(II+5) = HEADER(6) FMAT(II+6) = HEADER(7) FMAT(II+7) = HEADER(8) C C IS FILE EQUIVALENCED C 510 IF (FEQU(II) .GE. 0) GO TO 405 C C YES, COPY SAME TRAILER INTO ALL EQUIV FILES C HOLD = ANDF(RMSK,FILE(II)) DO 560 J = 1,LMT3,ENTN1 IF (FEQU(J).GE.0 .OR. II.EQ.J) GO TO 560 IF (HOLD .NE. ANDF(RMSK,FILE(J))) GO TO 560 FMAT(J ) = HEADER(3) FMAT(J+1) = HEADER(4) FMAT(J+2) = HEADER(5) IF (ENTN1 .NE.11) GO TO 560 FMAT(J+5) = HEADER(6) FMAT(J+6) = HEADER(7) FMAT(J+7) = HEADER(8) 560 CONTINUE GO TO 405 570 IF (ISW2 .EQ. 0) GO TO 600 CALL CLOSE (POOL,1) FNX = 1 600 CONTINUE RETURN C C 700 WRITE (OUTTAP,701) 701 FORMAT (1H0,23X,19H 1031, DPL OVERFLOW) GO TO 1000 900 WRITE (OUTTAP,901) 901 FORMAT (1H0,23X,62H 1032, POOL OR FILE BEING POOLED/UN-POOLED COUL 1D NOT BE OPENED) GO TO 1000 910 WRITE (OUTTAP,911) 911 FORMAT (1H0,23X,39H 1033, ILLEGAL EOF ON FILE BEING POOLED) GO TO 1000 920 WRITE (OUTTAP,921) 921 FORMAT (1H0,23X,39H 1034, ILLEGAL EOR ON FILE BEING POOLED) GO TO 1000 930 WRITE (OUTTAP,931) 931 FORMAT (1H0,23X,33H 1035, EQUIV INDICATED,NONE FOUND) 1000 CALL PAGE2 (-4) WRITE (OUTTAP,1001) SFM 1001 FORMAT (A25,1H.) CALL MESAGE (-37,0,NPUNP) RETURN END ================================================ FILE: mis/xpurge.f ================================================ SUBROUTINE XPURGE C C THIS SUBROUTINE PURGES AND EQUATES FILES WITHIN FIAT AND DPD C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT ,ANDF ,ORF DIMENSION PURGE1( 2),DDBN( 1),DFNU( 1),FCUM( 1),FCUS( 1), 1 FDBN ( 1),FEQU( 1),FILE( 1),FKND( 1),FMAT( 1), 2 FNTU ( 1),FPUN( 1),FON ( 1),FORD( 1),MINP( 1), 3 MLSN ( 1),MOUT( 1),MSCR( 1),SAL ( 1),SDBN( 1), 4 SNTU ( 1),SORD( 1) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ IBUFSZ,OUTTAP,DUM(21),ICFIAT,DUMM(14),NBPC,NBPW, 1 NCPW COMMON /OSCENT/ X(1) COMMON /XFIAT / FIAT(7) COMMON /XFIST / FIST COMMON /XDPL / DPD(6) COMMON /XVPS / VPS(1) COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(5) COMMON /IPURGE/ J,K,NSAV,PRISAV,HOLD EQUIVALENCE (DPD (1),DNAF ),(DPD (2),DMXLG ), 1 (DPD (3),DCULG ),(DPD (4),DDBN (1)),(DPD (6),DFNU (1)), 2 (FIAT (1),FUNLG ),(FIAT (2),FMXLG ),(FIAT (3),FCULG ), 3 (FIAT (4),FEQU (1)),(FIAT (4),FILE (1)),(FIAT (4),FORD (1)), 4 (FIAT (5),FDBN (1)),(FIAT (7),FMAT (1)),(MD (1),MLGN ), 5 (MD (2),MLSN (1)),(MD (3),MINP (1)),(MD (4),MOUT (1)), 6 (MD (5),MSCR (1)),(SOS (1),SLGN ),(SOS (2),SDBN (1)), 7 (SOS (4),SAL (1)),(SOS (4),SNTU (1)),(SOS (4),SORD (1)), 8 (XF1AT(1),FNTU (1)),(XF1AT(1),FON (1)),(XF1AT(2),FPUN (1)), 9 (XF1AT(3),FCUM (1)),(XF1AT(4),FCUS (1)),(XF1AT(5),FKND (1)) EQUIVALENCE (COMM (1),ALMSK ),(COMM (2),APNDMK ), 1 (COMM (3),CURSNO ),(COMM (4),ENTN1 ),(COMM (5),ENTN2 ), 2 (COMM (6),ENTN3 ),(COMM (7),ENTN4 ),(COMM (8),FLAG ), 3 (COMM (9),FNX ),(COMM(10),LMSK ),(COMM(11),LXMSK ), 4 (COMM(12),MACSFT ),(COMM(13),RMSK ),(COMM(14),RXMSK ), 5 (COMM(15),S ),(COMM(16),SCORNT ),(COMM(17),TAPMSK ), 6 (COMM(18),THCRMK ),(COMM(19),ZAP ) DATA PURGE1 /4HXPUR ,4HGE / C CALL XSFADD K = -1 GO TO 10 C C ENTRY XEQUIV C ============ C CALL XSFADD K = +1 PRISAV= 0 SECCHN= 0 10 ENTN1 = ICFIAT LMT1 = FUNLG* ENTN1 LMT2 = LMT1 + 1 LMT3 = FCULG* ENTN1 IF (FCULG .GE. FMXLG) GO TO 610 NFCULG= LMT3 + 1 INCR = 1 C C S = O 400000000000 Z 80000000 C 20 S = LSHIFT(1,NBPW-1) C C INITIALIZE FOR FIRST SET OF DATA BLOCKS C NWDS = X(1) I = 7 100 NDBS = X(I) C C FIND POSITION OF VPS POINTER WORD C JPT = I + 2*NDBS + 1 IF (K .EQ. 1) JPT = JPT + 1 IVPS = X(JPT) IEXEC = -1 IF (IVPS .GT. 0) IEXEC = VPS(IVPS) C C TEST CONDITIONAL INDICATOR (NOT HERE, BELOW TO PERMIT UNPURGE- C UNEQUIV C GO TO 200 C C INCREMENT AND LOOK AT NEXT SET OF DATA BLOCKS C 150 I = JPT + 1 IF (I .LT. NWDS) GO TO 100 RETURN C C TEST FOR PURGE OR EQUIV C 200 J = I + 1 IF (K .GT. 0) GO TO 400 C C PURGE LOGIC FOLLOWS C 220 XJ1 = X(J ) XJ2 = X(J+1) DO 260 N = 1,LMT3,ENTN1 IF (XJ1.NE.FDBN(N) .OR. XJ2.NE.FDBN(N+1)) GO TO 260 IF (N .LE. LMT1) GO TO 240 IF (IEXEC .GE. 0) GO TO 230 FILE(N) = ZAP GO TO 280 C 230 IF (ANDF(RMSK,FILE(N)) .NE. ZAP) GO TO 300 C C UNPURGE (CLEAR THE ENTRY) C LMT4 = N + ENTN1 - 1 DO 235 M = N,LMT4 235 FILE(M) = 0 GO TO 300 240 IF (IEXEC .GE. 0) GO TO 300 HOLD = ANDF(RXMSK,FILE(N)) LMT4 = N + ENTN1 - 1 DO 250 M = N,LMT4 250 FILE(M) = 0 FILE(N) = HOLD C GO TO 270 260 CONTINUE 270 IF (IEXEC .GE. 0) GO TO 300 FILE(NFCULG ) = ZAP FDBN(NFCULG ) = XJ1 FDBN(NFCULG+1) = XJ2 FCULG = FCULG + INCR IF (FCULG .GE. FMXLG) GO TO 620 NFCULG = NFCULG + ENTN1 C 280 CALL XPOLCK (XJ1,XJ2,FN,L) IF (FN .EQ. 0) GO TO 300 DDBN(L ) = 0 DDBN(L+1) = 0 C 300 J = J + 2 IF (J-2.EQ.I+1 .AND. K.GT.0) J = J + 1 IF (J .LT. JPT) GO TO 220 GO TO 150 C C EQUIV LOGIC FOLLOWS C 400 XJ1 = X(J ) XJ2 = X(J+1) DO 450 N = 1,LMT3,ENTN1 IF (XJ1.NE.FDBN(N) .OR. XJ2.NE.FDBN(N+1)) GO TO 450 IF (J .NE. I+1) GO TO 420 C C PRIMARY C PRISAV = ANDF(RXMSK,FILE(N)) IF (IEXEC .GE. 0) GO TO 550 C C IF PRIMARY FILE IS PURGED OR HAS ZERO TRAILERS, PURGE SECONDARYS C IF (ANDF(RMSK,PRISAV) .EQ. ZAP) GO TO 300 IF (FMAT(N).NE.0 .OR. FMAT(N+1).NE.0 .OR. FMAT(N+2).NE.0) 1 GO TO 405 IF (ENTN1.EQ.11 .AND. (FMAT(N+5).NE.0 .OR. FMAT(N+6).NE.0 .OR. 1 FMAT(N+7).NE.0)) GO TO 405 GO TO 300 405 FEQU(N) = ORF(S,FEQU(N)) NSAV = N CALL XPOLCK (XJ1,XJ2,FNSAV,LSAV) IF (FNSAV .NE. 0) DFNU(LSAV) = ORF(S,DFNU(LSAV)) C C IF PRIMARY FILE CONTAINS OTHER UNEQUIV D.B.- CLEAR THEM C DO 415 JX = 1,LMT3,ENTN1 IF (FEQU(JX).LT.0 .OR. JX.EQ.N) GO TO 415 IF (PRISAV .NE. ANDF(RXMSK,FILE(JX))) GO TO 415 LMT4 = JX + ENTN1 - 1 DO 410 M = JX,LMT4 410 FILE(M) = 0 IF (JX .LE. LMT1) FILE(JX) = PRISAV 415 CONTINUE GO TO 550 C C SECONDARY C 420 IF (IEXEC .GE. 0) GO TO 425 IF (PRISAV.EQ. 0) GO TO 435 IF (FILE(N).LT.0 .AND. ANDF(RXMSK,FILE(N)).NE.PRISAV) 1 SECCHN = ANDF(RMSK,FILE(N)) IF (N .LE. LMT1) GO TO 430 FILE(N ) = ORF(ANDF(LXMSK,FILE(N)),PRISAV) FEQU(N ) = ORF(S,FEQU(N)) FMAT(N ) = FMAT(NSAV ) FMAT(N+1) = FMAT(NSAV+1) FMAT(N+2) = FMAT(NSAV+2) IF (ENTN1 .NE. 11) GO TO 480 FMAT(N+5) = FMAT(NSAV+5) FMAT(N+6) = FMAT(NSAV+6) FMAT(N+7) = FMAT(NSAV+7) GO TO 480 425 IF (FEQU(N).GE.0 .OR. PRISAV.NE.ANDF(RXMSK,FILE(N))) GO TO 550 C C UNEQUIV (CLEAR SEC EQUIV ENTRY) C LMT4 = N + ENTN1 - 1 DO 427 M = N,LMT4 427 FILE(M) = 0 IF (N .LE. LMT1) FILE(N) = PRISAV CALL XPOLCK (XJ1,XJ2,FN,L) IF (FN .EQ. 0) GO TO 550 DDBN(L ) = 0 DDBN(L+1) = 0 GO TO 550 430 FILE(NFCULG) = ORF(ANDF(LXMSK,FILE(N)),PRISAV) 435 HOLD = ANDF(RXMSK,FILE(N)) LMT4 = N + ENTN1 -1 DO 440 M = N,LMT4 440 FILE(M) = 0 IF (N .LE. LMT1) FILE(N) = HOLD IF (PRISAV .EQ. 0) GO TO 480 GO TO 470 C C FILE IS NOT IN FIAT -- CHECK PARM FOR TYPE OF EQUIV C 450 CONTINUE IF (IEXEC .LT. 0) GO TO 458 C C ELIMINATE EQUIV FILES -- CHECK FOR PRIMARY FILE C IF (J .NE. I+1) GO TO 455 C C PRIMARY FILE C CALL XPOLCK (XJ1,XJ2,FNSAV,LSAV) C C LEAVE EQUIV FLAG FOR XDPH C GO TO 550 C C SECONDARY FILE -- BREAK EQUIV C 455 CALL XPOLCK (XJ1,XJ2,SNSAV,SSAV) C C CHECK IF FILE EXISTS AND IS EQUIVED TO PRIMARY FILE C IF (SNSAV.EQ.0 .OR. FNSAV.NE.SNSAV) GO TO 550 DDBN( SSAV ) = 0 DDBN( SSAV+1) = 0 GO TO 550 C C CHECK FOR PRIMARY FILE C 458 IF (J .NE. I+1) GO TO 460 C C -IF PRIMARY, IT MUST BE ON POOL C CALL XPOLCK (XJ1,XJ2,FNSAV,LSAV) IF (FNSAV .EQ. 0) GO TO 300 DFNU(LSAV) = ORF(S,DFNU(LSAV)) GO TO 550 C C -IF SECONDARY, WAS PRIMARY IN FIAT C 460 IF (PRISAV .EQ. 0) GO TO 480 C C -PRIMARY WAS IN FIAT, SET UP SECONDARY IN FIAT C FILE(NFCULG ) = PRISAV 470 FEQU(NFCULG ) = ORF(S,FEQU(NFCULG)) FDBN(NFCULG ) = XJ1 FDBN(NFCULG+1) = XJ2 FMAT(NFCULG ) = FMAT(NSAV ) FMAT(NFCULG+1) = FMAT(NSAV+1) FMAT(NFCULG+2) = FMAT(NSAV+2) IF (ENTN1 .NE. 11) GO TO 475 FMAT(NFCULG+5) = FMAT(NSAV+5) FMAT(NFCULG+6) = FMAT(NSAV+6) FMAT(NFCULG+7) = FMAT(NSAV+7) 475 FCULG = FCULG + INCR IF (FCULG .GE. FMXLG) GO TO 630 NFCULG = NFCULG + ENTN1 C C WAS SECONDARY FILE IN FIAT ALREADY EQUIV TO OTHERS C 480 IF (SECCHN .EQ. 0) GO TO 490 C C SEC. FILE WAS EQUIV - DRAG ALONG ALL EQUIVS C DO 485 IJ = 1,LMT3,ENTN1 IF (FILE(IJ) .GE. 0) GO TO 485 IF (IJ .EQ. N) GO TO 485 IF (ANDF(RMSK,FILE(IJ)) .NE. SECCHN) GO TO 485 C C CREATE AN ENTRY IN OSCENT TO EXPLICITLY EQUIV THIS DB C M1 = NWDS + 1 NWDS = NWDS + 6 X(M1 ) = 2 X(M1+1) = XJ1 X(M1+2) = XJ2 IF (K .NE. 1) GO TO 482 X(M1+3) = 0 NWDS = NWDS + 1 M1 = M1 + 1 482 CONTINUE X(M1+3) = FDBN(IJ ) X(M1+4) = FDBN(IJ+1) X(M1+5) = IVPS 485 CONTINUE C C IS SECONDARY FILE ON POOL C 490 CALL XPOLCK (XJ1,XJ2,FN,L) IF (FN .EQ. 0) GO TO 500 C C WAS SEC. FILE ON POOL ALREADY EQUIV TO OTHERS C IF (DFNU(L).GE.0 .OR. FNSAV.EQ.FN) GO TO 495 C C SEC. FILE ON POOL WAS EQUIV - DRAG ALONG ALL EQUIVS C LMT4 = DCULG* ENTN4 M = LMT4 + 1 DO 494 IJ = 1,LMT4,ENTN4 IF (DFNU(IJ).GE.0 .OR. IJ.EQ.L) GO TO 494 IF (ANDF(RMSK,DFNU(IJ)) .NE. FN) GO TO 494 IF (FNSAV .EQ. 0) GO TO 491 DDBN(M ) = DDBN(IJ ) DDBN(M+1) = DDBN(IJ+1) DFNU(M ) = DFNU(LSAV) DCULG = DCULG + 1 IF (DCULG .GT. DMXLG) GO TO 910 M = M + ENTN4 GO TO 493 C C CREATE AN ENTRY IN OSCENT TO EXPLICITLY EQUIV THIS DB C 491 M1 = NWDS + 1 NWDS = NWDS + 6 X(M1 ) = 2 X(M1+1) = XJ1 X(M1+2) = XJ2 IF (K .NE. 1) GO TO 492 X(M1+3) = 0 NWDS = NWDS + 1 M1 = M1 + 1 492 CONTINUE X(M1+3) = DDBN(IJ ) X(M1+4) = DDBN(IJ+1) X(M1+5) = IVPS 493 DDBN(IJ ) = 0 DDBN(IJ+1) = 0 494 CONTINUE C C IF SECONDARY FILE IS ON POOL AND PRIMARY IS NOT - DELETE SEC REF C 495 IF (FNSAV .NE. 0) GO TO 530 DDBN(L ) = 0 DDBN(L+1) = 0 GO TO 550 C C IF SECONDARY FILE IS NOT ON POOL AND PRIMARY IS - ADD SEC REF C 500 IF (FNSAV .EQ. 0) GO TO 550 520 M = DCULG*ENTN4 + 1 DDBN(M ) = XJ1 DDBN(M+1) = XJ2 DFNU(M ) = DFNU(LSAV) DCULG = DCULG + 1 IF (DCULG .GT. DMXLG) GO TO 910 GO TO 550 C C BOTH PRIMARY AND SECONDARY ON POOL - IF NOT SAME FILE, C DELETE OLD SEC REF AND ADD NEW SEC REF C 530 IF (FNSAV .EQ. FN) GO TO 550 DDBN(L ) = 0 DDBN(L+1) = 0 GO TO 520 C 550 J = J + 2 IF (J-2 .EQ. I+1) J = J + 1 SECCHN = 0 IF (J .LT. JPT) GO TO 400 PRISAV = 0 GO TO 150 C C POTENTIAL FIAT OVERFLOW- LOOK FOR OTHER SLOTS IN FIAT TAIL C 610 ASSIGN 20 TO IBACK GO TO 640 620 ASSIGN 280 TO IBACK GO TO 640 630 ASSIGN 480 TO IBACK 640 IF (FCULG .GT. FMXLG) GO TO 900 DO 650 NN = LMT2,LMT3,ENTN1 IF (FILE(NN).LT.0 .OR. ANDF(ZAP,FILE(NN)).EQ.ZAP) GO TO 650 IF (FMAT(NN).NE.0 .OR. FMAT(NN+1).NE.0 .OR. FMAT(NN+2).NE.0) 1 GO TO 650 IF (ENTN1.EQ.11 .AND. (FMAT(NN+5).NE.0 .OR. FMAT(NN+6).NE.0 .OR. 1 FMAT(NN+7).NE.0)) GO TO 650 NFCULG = NN INCR = 0 GO TO 660 650 CONTINUE NFCULG = NFCULG + ENTN1 INCR = 1 660 GO TO IBACK, (20,280,480) C C ERROR MESSAGES C 900 WRITE (OUTTAP,901) SFM 901 FORMAT (A25,' 1201, FIAT OVERFLOW.') GO TO 1000 910 WRITE (OUTTAP,911) SFM 911 FORMAT (A25,' 1202, DPL OVERFLOW.') 1000 CALL MESAGE (-37,0,PURGE1) RETURN END ================================================ FILE: mis/xrcard.f ================================================ SUBROUTINE XRCARD (OUT,NFLAG,IN) C C MODIFIED BY G.CHAN/UNISYS FOR EFFICIENCY, 2/1988 C LAST REVISED, 8/1989, IMPROVED EFFICIENCY BY REDUCING CHARACTER C OPERATIONS (VERY IMPORTANT FOR CDC MACHINE) C C REVERT TO NASTRAN ORIGIANL XRCARD ROUTINE (NOW CALLED YRCARD) C IF DIAG 42 IS TURNED ON C (THIS NEW XRCARD IS SEVERAL TIMES FASTER THAN YRCARD) C C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT ,RSHIFT ,COMPLF LOGICAL ALPHA ,DELIM ,EXPONT ,POWER ,MINUS , 1 NOGO ,DEBUG INTEGER IDOUBL(2),TYPE(72) ,NT(15) ,IN(18) ,OUT(2) INTEGER PLUS1 ,MINUS1 ,BLANK1 ,DOT1 ,E1 , 1 D1 ,NUM1(10) ,CHAR1(72),DOLLR1 ,COMMA1 , 2 EQUAL1 ,SLASH1 ,OPARN1 ,CPARN1 ,ASTK1 , 3 CHAR1N ,CHAR1I ,CHARN2 ,CHARS(23),ZERO1 , 4 PRECIS ,PSIGN REAL FLPT DOUBLE PRECISION DDOUBL CHARACTER*1 SAVE1(8) ,KHAR1(72) CHARACTER*8 SAVE8 ,BLANK8 ,NUMRIC CHARACTER*23 CHAR23 ,UFM CHARACTER*72 CHAR72 COMMON /XMSSG / UFM COMMON /LHPWX / LOWPW ,HIGHPW COMMON /SYSTEM/ BUFSZ ,NOUT ,NOGO EQUIVALENCE (KHAR1(1),CHAR72), (SAVE8 ,SAVE1( 1)), 1 (FLPT ,INTG ), (DDOUBL,IDOUBL(1)), 2 (CHARS(1),DOLLR1), (CHARS( 8),CPARN1), 3 (CHARS(2),PLUS1 ), (CHARS( 9),E1 ), 4 (CHARS(3),EQUAL1), (CHARS(10),D1 ), 5 (CHARS(4),MINUS1), (CHARS(11),DOT1 ), 6 (CHARS(5),COMMA1), (CHARS(12),BLANK1), 7 (CHARS(6),SLASH1), (CHARS(13),ASTK1 ), 8 (CHARS(7),OPARN1), (CHARS(14),NUM1(1)), 9 (NUM1(10),ZERO1 ) DATA CHAR23/ '$+=-,/()ED. *1234567890'/, BLANK8/ ' ' / DATA DOLLR1, BLANK4, DIAG , DEBUG , NUMRIC / 1 0, 4H , 4HDIAG, .FALSE., 'NUMERIC' / DATA EQUAL4, SLASH4, OPARN4, ASTK4 / 1 4H= , 4H/ , 4H( , 4H* / C IF (DOLLR1 .NE. 0) GO TO 20 CALL K2B (CHAR23,CHARS,23) A77777 = COMPLF(0) A67777 = RSHIFT(LSHIFT(A77777,1),1) PREV = BLANK4 CALL SSWTCH (42,L42) IF (DEBUG) WRITE (NOUT,10) 10 FORMAT (//5X,'INPUT DEBUG IN XRCARD ROUTINE') C C KXX=0 C C USE ORIGINAL XRCARD ROUTINE IF DIAG 42 IS TURNED ON C 20 IF (PREV .EQ. DIAG) CALL SSWTCH (42,L42) IF (L42 .EQ. 0) GO TO 30 CALL YRCARD (OUT,NFLAG,IN) RETURN C C CONVERT 18 BCD WORDS IN 'IN' TO 72 CHARACTER STRING, AND SET TYPE C 30 CALL BCDKH7 (IN,CHAR72) CALL K2B (CHAR72,CHAR1,72) IF (DEBUG) WRITE (NOUT,45) CHAR72 45 FORMAT (/,' INPUT- ',A72) C C DO 80 N = 1,72 CHAR1N = CHAR1(N) IF (CHAR1N .EQ. BLANK1 ) GO TO 60 DO 50 K = 1,10 IF (CHAR1N .EQ. NUM1(K)) GO TO 70 50 CONTINUE TYPE(N) =-1 GO TO 80 60 TYPE(N) = 0 GO TO 80 70 TYPE(N) = 1 80 CONTINUE N = 73 90 N = N - 1 IF (TYPE(N) .EQ. 0) GO TO 90 LAST = N + 1 IF (LAST .GT. 72) LAST = 72 ALPHA = .FALSE. DELIM = .TRUE. IOUT = 0 N = 0 ASAVE = 1 OUT(ASAVE) = 0 SAVE8 = BLANK8 100 IF (N .EQ. LAST) GO TO 510 IF (NFLAG-IOUT .LT. 5) GO TO 660 MINUS = .FALSE. N = N + 1 CHAR1N = CHAR1(N) IF (TYPE(N)) 110, 100, 210 C BCD BLANK NUMERIC C 110 IF (CHAR1N.EQ.PLUS1 .OR. CHAR1N.EQ.MINUS1 .OR. CHAR1N.EQ.DOT1) 1 GO TO 200 IF (CHAR1N .EQ. DOLLR1) GO TO 180 C C GOOD ALPHA FIELD OR DELIMITER C IF (ALPHA) GO TO 120 IF ((CHAR1N.EQ.COMMA1 .OR. CHAR1N.EQ.DOLLR1) .AND. (.NOT.DELIM)) 1 GO TO 180 IF (CHAR1N.EQ.CPARN1 .AND. .NOT.DELIM) GO TO 180 IOUT = IOUT + 1 ASAVE = IOUT OUT(ASAVE) = 0 ALPHA = .TRUE. 120 IF (CHAR1N.EQ.OPARN1 .OR. CHAR1N.EQ.SLASH1 .OR. CHAR1N.EQ.EQUAL1 1.OR. CHAR1N.EQ.COMMA1 .OR. CHAR1N.EQ.ASTK1 .OR. CHAR1N.EQ.DOLLR1) 2 GO TO 180 IF (CHAR1N .EQ. CPARN1) GO TO 180 ASSIGN 125 TO IRTN IMHERE = 125 GO TO 170 125 OUT(ASAVE) = OUT(ASAVE) + 1 IOUT = IOUT + 2 DELIM = .FALSE. OUT(IOUT-1) = BLANK4 OUT(IOUT ) = BLANK4 ICHAR = 0 GO TO 150 130 IF (N .EQ. LAST) GO TO 510 N = N + 1 CHAR1N = CHAR1(N) IF (TYPE(N)) 140, 160, 150 C BCD BLANK NUMERIC C 140 IF (CHAR1N.EQ.OPARN1 .OR. CHAR1N.EQ.SLASH1 .OR. CHAR1N.EQ.EQUAL1 1.OR. CHAR1N.EQ.COMMA1 .OR. CHAR1N.EQ.ASTK1 .OR. CHAR1N.EQ.DOLLR1) 2 GO TO 180 IF (CHAR1N .EQ. CPARN1) GO TO 180 C C RECONSTRUCT CHARACTERS INTO SAVE1 SPACE, UP TO 8 CHARACTERS ONLY C 150 IF (ICHAR .EQ. 8) GO TO 130 ICHAR = ICHAR + 1 SAVE1(ICHAR) = KHAR1(N) IMHERE = 150 IF (DEBUG) WRITE (NOUT,171) SAVE8,IMHERE,ICHAR,IOUT C C GO FOR NEXT CHARACTER C IF (ICHAR .LT. 8) GO TO 130 ASSIGN 130 TO IRTN IMHERE = 155 GO TO 170 C C A BLANK CHARACTER IS ENCOUNTERED WHILE PROCESSING ALPHA STRING C IF THIS IS AT THE BEGINNING OF A NEW BCD WORD, GO TO 100 C IF THIS IS AT THE END OF A BCD WORD, GO TO 170 TO WRAP IT UP C 160 IF (ICHAR .EQ. 0) GO TO 100 ASSIGN 100 TO IRTN IMHERE = 160 C C MOVE CHARACTER DATA IN SAVE8 TO OUT(IOUT-1) AND OUT(IOUT) IN BCD C WORDS C 170 IF (SAVE8 .NE. BLANK8) CALL KHRBC2 (SAVE8,OUT(IOUT-1)) IF (.NOT.DEBUG) GO TO 175 WRITE (NOUT,171) SAVE8,IMHERE,ICHAR,IOUT WRITE (NOUT,172) IOUT,OUT(IOUT-1),OUT(IOUT),DELIM, 1 IOUT,OUT(IOUT-1),OUT(IOUT) 171 FORMAT (' SAVE8= /',A8,'/ @',I3,', ICHAR,IOUT=',2I3) 172 FORMAT (' IOUT,OUT =',I4,2H /,2A4,'/ DELIM=',L1, 1 /14X, '=',I4,2H /,2I25,'/') 175 SAVE8 = BLANK8 GO TO IRTN, (100,125,130,185) C C DELIMITER HIT C 180 ASSIGN 185 TO IRTN IMHERE = 180 GO TO 170 185 IF (.NOT. DELIM) GO TO 190 IF (IOUT .EQ. 0) IOUT = 1 IOUT = IOUT + 2 OUT(ASAVE) = OUT(ASAVE) + 1 OUT(IOUT-1) = BLANK4 OUT(IOUT ) = BLANK4 190 IF (CHAR1N .EQ. DOLLR1) GO TO 520 DELIM = .TRUE. IF (CHAR1N .EQ. CPARN1) DELIM = .FALSE. IF (CHAR1N .EQ. COMMA1) GO TO 100 IF (CHAR1N .EQ. CPARN1) GO TO 100 C C OUTPUT DELIMITER C IOUT = IOUT + 2 OUT(ASAVE) = OUT(ASAVE) + 1 OUT(IOUT) = BLANK4 IF (CHAR1N .EQ. OPARN1) OUT(IOUT) = OPARN4 IF (CHAR1N .EQ. SLASH1) OUT(IOUT) = SLASH4 IF (CHAR1N .EQ. EQUAL1) OUT(IOUT) = EQUAL4 IF (CHAR1N .EQ. ASTK1) OUT(IOUT) = ASTK4 IF (OUT(IOUT) .EQ. BLANK4) GO TO 590 OUT(IOUT-1) = A77777 IF (DEBUG) WRITE (NOUT,195) IOUT,OUT(IOUT),DELIM,CHAR1N 195 FORMAT (5X,'IOUT,OUT/@195 =',I4,2H ',A4,8H' DELIM=,L1,2H ',A1, 1 1H') SAVE8 = BLANK8 GO TO 100 C C PLUS, MINUS, OR DOT ENCOUNTERED C 200 IF (CHAR1N .EQ. MINUS1) MINUS = .TRUE. IF (CHAR1N .NE. DOT1) N = N + 1 IF (N .GT. LAST) GO TO 530 C C NUMERIC C 210 ALPHA = .FALSE. DELIM = .FALSE. IT = 0 NT(1) = 0 DO 260 I = N,LAST IF (TYPE(I)) 290,270,220 C C INTEGER CHARACTER C 220 CHAR1I = CHAR1(I) DO 230 K = 1,9 IF (CHAR1I .EQ. NUM1(K)) GO TO 250 230 CONTINUE K = 0 250 IT = IT + 1 IF (IT .LT. 16) NT(IT) = K 260 CONTINUE C C FALL HERE IMPLIES WE HAVE A SIMPLE INTEGER C 270 NUMBER = 0 DO 280 I = 1,IT IF (((A67777-NT(I))/10) .LT. NUMBER) GO TO 550 280 NUMBER = NUMBER*10 + NT(I) IF (MINUS) NUMBER = - NUMBER IOUT = IOUT + 2 OUT(IOUT-1) =-1 OUT(IOUT ) = NUMBER IF (.NOT.DEBUG) GO TO 285 IMHERE = 280 WRITE (NOUT,171) NUMRIC,IMHERE WRITE (NOUT,282) IOUT,OUT(IOUT-1),OUT(IOUT),DELIM 282 FORMAT (10X,I4,1H),2I8,' DELIM=',L1) 285 N = N + IT - 1 GO TO 100 C C FLOATING PT. NUMBER, DELIMITER, OR ERROR IF FALL HERE C C COUNT THE NUMBER OF DIGITS LEFT BEFORE CARD END OR DELIMITER HIT C 290 N1 = I DO 300 N2 = N1,LAST CHARN2 = CHAR1(N2) IF (CHARN2.EQ.OPARN1 .OR. CHARN2.EQ.SLASH1 .OR. 1 CHARN2.EQ.EQUAL1 .OR. CHARN2.EQ.COMMA1 .OR. 2 CHARN2.EQ.DOLLR1 .OR. TYPE(N2).EQ.0) GO TO 310 IF (CHARN2 .EQ. CPARN1) GO TO 310 300 CONTINUE N2 = LAST + 1 310 IF (N1 .EQ. N2) GO TO 270 C C CHARACTER N1 NOW MUST BE A DECIMAL FOR NO ERROR C IF (CHAR1(N1) .NE. DOT1) GO TO 570 POWER = .FALSE. N1 = N1 + 1 N2 = N2 - 1 PLACES = 0 EXPONT = .FALSE. IPOWER = 0 PSIGN = ZERO1 PRECIS = ZERO1 IF (N2 .LT. N1) GO TO 410 DO 400 I = N1,N2 CHAR1I = CHAR1(I) IF (TYPE(I)) 360,570,320 C C FLOATING PT. NUMBER C 320 DO 330 K = 1,9 IF (CHAR1I .EQ. NUM1(K)) GO TO 340 330 CONTINUE K = 0 340 IF (EXPONT) GO TO 350 IT = IT + 1 IF (IT .LT. 16) NT(IT) = K PLACES = PLACES + 1 GO TO 400 C C BUILD POWER HERE C 350 POWER = .TRUE. IPOWER = IPOWER*10 + K IF (IPOWER .GT. 1000) GO TO 630 GO TO 400 C C START EXPONENTS HERE C 360 IF (EXPONT) GO TO 380 EXPONT = .TRUE. IF (CHAR1I.NE.PLUS1 .AND. CHAR1I.NE.MINUS1) GO TO 370 PRECIS = E1 PSIGN = CHAR1I GO TO 390 370 IF (CHAR1I.NE.E1 .AND. CHAR1I.NE.D1) GO TO 610 PRECIS = CHAR1I GO TO 390 C C SIGN OF POWER C 380 IF (POWER) GO TO 610 IF (PSIGN.NE.ZERO1 .OR. 1 (CHAR1I.NE.PLUS1 .AND. CHAR1I.NE.MINUS1)) GO TO 610 PSIGN = CHAR1I POWER = .TRUE. 390 IF (I .EQ. LAST) GO TO 530 400 CONTINUE 410 N = N2 C C ALL DATA COMPLETE FOR FLOATING POINT NUMBER C ONLY 15 FIGURES WILL BE ACCEPTED C IF (IT .LE. 15) GO TO 420 IPOWER = IPOWER + IT - 15 IT = 15 420 IF (PSIGN .EQ. MINUS1) IPOWER = -IPOWER IPOWER = IPOWER - PLACES NUMBER = 0 IF (IT .LT. 7) GO TO 430 N2 = 7 GO TO 440 430 N2 = IT 440 DO 450 I = 1,N2 450 NUMBER = NUMBER*10 + NT(I) DDOUBL = DBLE(FLOAT(NUMBER)) IF (IT .LE. 7) GO TO 470 NUMBER = 0 N2 = IT - 7 DO 460 I = 1,N2 IT = I + 7 460 NUMBER = NUMBER*10 + NT(IT) DDOUBL = DDOUBL*10.0D0**N2 + DBLE(FLOAT(NUMBER)) 470 IF (MINUS) DDOUBL = -DDOUBL C C POWER HAS TO BE WITHIN RANGE OF MACHINE C ICHEK = IPOWER + IT IF (DDOUBL .EQ. 0.0D0) GO TO 490 IF (ICHEK .LT.LOWPW+1 .OR. ICHEK .GT.HIGHPW-1 .OR. 1 IPOWER.LT.LOWPW+1 .OR. IPOWER.GT.HIGHPW-1) GO TO 640 DDOUBL = DDOUBL*10.0D0**IPOWER 490 IF (PRECIS .EQ. D1) GO TO 500 FLPT = DDOUBL IOUT = IOUT + 2 OUT(IOUT-1) =-2 OUT(IOUT ) = INTG GO TO 100 500 IOUT = IOUT + 3 OUT(IOUT-2) =-4 OUT(IOUT-1) = IDOUBL(1) OUT(IOUT ) = IDOUBL(2) GO TO 100 C C PREPARE TO RETURN C 510 IF (.NOT. DELIM) GO TO 520 IF (SAVE8 .NE. BLANK8) CALL KHRBC2 (SAVE8,OUT(IOUT-1)) OUT(IOUT+1) = 0 GO TO 525 520 OUT(IOUT+1) = A67777 525 PREV = OUT(2) RETURN C C ERRORS C 530 WRITE (NOUT,540) UFM 540 FORMAT (A23,'300, INVALID DATA COLUMN 72') GO TO 680 550 WRITE (NOUT,560) UFM 560 FORMAT (A23,'300, INTEGER DATA OUT OF MACHINE RANGE') GO TO 680 570 WRITE (NOUT,580) UFM,N1 580 FORMAT (A23,'300, INVALID CHARACTER FOLLOWING INTEGER IN COLUMN', 1 I4) GO TO 680 590 WRITE (NOUT,600) UFM,CHAR1N 600 FORMAT (A23,'300, FORGOTTEN DELIMITER - ',A1,', PROGRAM ERROR') GO TO 680 610 WRITE (NOUT,620) UFM,I 620 FORMAT (A23,'300, DATA ERROR-UNANTICIPATED CHARACTER IN COLUMN', 1 I4) GO TO 680 630 CONTINUE 640 WRITE (NOUT,650) UFM 650 FORMAT (A23,'300, DATA ERROR - MISSING DELIMITER OR REAL POWER ', 1 'OUT OF MACHINE RANGE') GO TO 680 660 WRITE (NOUT,670) UFM 670 FORMAT (A23,'300, ROUTINE XRCARD FINDS OUTPUT BUFFER TOO SMALL ', 1 'TO PROCESS CARD COMPLETELY') 680 NOGO = .TRUE. WRITE (NOUT,690) CHAR72 690 FORMAT (/5X,1H',A72,1H',' ERROR IN XRCARD ROUTINE') OUT(1) = 0 RETURN C END ================================================ FILE: mis/xread.f ================================================ SUBROUTINE XREAD (*,BUFX) C C THIS ROUTINE MAKES FREE-FIELD INPUT PACKAGE (HANDLED BY FFREAD) C COMPLETELY MACHINE INDEPENDENT. C C IF THE XSORT FLAG IN /XECHOX/ IS TURNED ON (XSORT=1), THIS ROUTINE C WILL ALSO PREPARES THE NECESSARY GROUND WORK SO THAT THE INPUT C CARDS CAN BE SORTED EFFICIENTLY IN XSORT2 ROUTINE. ALL FIELDS IN C THE INPUT CARDS ARE ALSO LEFT-ADJUSTED FOR PRINTING. C C WRITTEN BY G.CHAN/UNISYS. OCT. 1987 C LAST REVISED, 1/1990, IMPROVED EFFICIENCY BY REDUCING CHARACTER C OPERATIONS (VERY IMPORTANT FOR CDC MACHINE) C IMPLICIT INTEGER (A-Z) EXTERNAL RSHIFT,COMPLF LOGICAL DOUBLE,BCD2,BCD3,ALPHA,NUMRIC INTEGER BUFX(20),SUB(2) INTEGER CARD1(80),KHR1(43),BLANK1,DOLLR1,SLASH1,STAR1, 1 PLUS1,MINUS1,ZERO1,POINT1,E1,D1,J1 CHARACTER*1 KARD1(80),KHRK(43),BLANKK,EQU1 CHARACTER*8 CARD8(10),CARD81,BLANK8,SLASH8,END8(3),NAME8(15) CHARACTER*23 UFM*23,KHR43*43,CARD80*80 COMMON /XMSSG / UFM COMMON /XECHOX/ DUMMY,ECHOU,OSOP(2),XSORT,WASFF,DUM,F3LONG,LARGE COMMON /XSORTX/ IBUF(4),TABLE(255) COMMON /SYSTEM/ BUFSZ,NOUT,NOGO COMMON /MACHIN/ MACH EQUIVALENCE (KARD1(1),CARD8(1), CARD80 ,CARD81 ) , 1 (BLANK1,KHR1( 1)) , (KHR43 ,KHRK( 1)) , 2 (ZERO1 ,KHR1( 2)) , (D1 ,KHR1(15)) , 3 (E1 ,KHR1(16)) , (SLASH1,KHR1(38)) , 4 (DOLLR1,KHR1(39)) , (STAR1 ,KHR1(40)) , 5 (PLUS1 ,KHR1(41)) , (MINUS1,KHR1(42)) , 6 (POINT1,KHR1(43)) DATA BLANK8 , SLASH8 , BLANK4 , EQUAL4 , SUB / 1 ' ' , '/ ' , 4H , 4H==== , 4HXREA,4HD / DATA NNAME / 15 / , NAME8 / 1 'SPC1 ', 'SPCS ', 'TICS ' , 'MPCS ','MPCAX', 'RELES', 2 'GTRAN','FLUTTER','BDYC ' , 'SPCSD','SPCS1','RANDPS', 3 'DAREAS','DELAYS', 'DPHASES' / DATA END8 / 'ENDDATA ','ENDATA ','END DATA'/, DERR / -1 / C DATA KHR43 /' 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ/$*+-.' / C 2 4 6 8 1 2 4 6 8 2 2 4 6 8 3 2 4 6 8 4 2 C 0 0 0 0 DATA N7, N1, N2, N3, N4, N5,N6 / 1 44, 1, 2, 11, 37, 41,43 / DATA PLUS1 , BLANKK, EQU1 / 0, ' ', '=' / C IF (PLUS1 .EQ. 0) CALL K2B (KHR43,KHR1,43) C C CALL FFREAD TO READ INPUT CARD C IF INPUT IS A COMMENT CARD, SET IBUF(1)=-1, AND RETURN C IF INPUT IS IN FREE-FIELD, ALL 10 BULKDATA FIELDS ARE ALREADY C LEFT-ADJUSTED, AND WASFF IS SET TO +1 BY FFREAD C IF INPUT IS IN FIXED-FIELD, ALL 10 BULKDATA FIELDS MAY NOT BE IN C LEFT-ADJUSTED FORMAT, AND WASFF IS SET TO -1 BY FFREAD C CALL FFREAD (*850,CARD8) CALL K2B (CARD80,CARD1,80) IF (CARD1(1) .EQ. DOLLR1) GO TO 770 IE = 0 IF (XSORT.EQ.0 .OR. WASFF.EQ.1) GO TO 40 C C LEFT-ADJUSTED THE BULKDATA FIELDS, FIRST 9 FIELDS C (FIRST 4 AND A HALF FIELDS IF DOUBLE FIELD CARDS) C IB = 1 L = 8 IF (CARD1(1).EQ.PLUS1 .OR. CARD1(1).EQ.STAR1) IB = 9 IF (CARD1(1) .EQ. STAR1) L = 16 DO 30 I = IB,72,L IF (CARD1(I) .NE. BLANK1) GO TO 30 K = I JE = I + L - 1 DO 10 J = I,JE IF (CARD1(J) .EQ. BLANK1) GO TO 10 CARD1(K) = CARD1(J) KARD1(K) = KARD1(J) K = K + 1 10 CONTINUE IF (K .EQ. I) GO TO 30 DO 20 J = K,JE KARD1(J) = BLANKK 20 CARD1(J) = BLANK1 30 CONTINUE C C CHECK COMMENT CARD WITH DOLLAR SIGN NOT IN COLUMN 1. CONVERT C CHARACTER STRING TO BCD STRING, AND RETURN TO CALLER IF IT IS C NOT CALLED BY XSORT. C 40 IE = IE + 1 IF (CARD1(IE) .EQ. BLANK1) GO TO 40 IF (CARD1(IE) .EQ. DOLLR1) GO TO 760 CALL KHRBCD (CARD80,BUFX) IF (XSORT .EQ. 0) GO TO 780 C C C IF THIS ROUTINE IS CALLED BY XSORT, PASS THE FIRST 3 FIELDS TO C IBUF ARRAY IN /XSORTX/, IN INTEGER FORMS C C FIRST BULKDATA FIELD IS ALPHA-NUMERIC, COMPOSED OF TWO 4-CHARACTER C WORDS. CHECK WHETHER OR NOT THIS IS A CONTINUATION OR COMMENT CARD C IF IT IS NOT, WE CHANGE ALL 8 CHARACTER BYTES INTO THEIR NUMERIC C CODE VALUES GIVEN BY TABLE /KHR43/ AND STORE THE VALUE IN IBUF(1) C AND IBUF(2) C C WE SET IBUF(1) AND (2) IF INPUT CARD IS C ---------------------- ------------------- C -1 A COMMENT CARD C -2 A CONTINUATION CARD C -3 A DELETE CARD (RANGE IN IBUF(3) AND (4)) C -3, -4 A DIRTY DELETE CARD C -5 A BLANK CARD C -9 A ENDDATA CARD C AND IBUF(2) AND IBUF(3) ARE NOT SET, EXECPT -3 CASE C C IF FIELD 2 AND/OR FIELD 3 ARE IN CHARACTERS, WE PUT THE FIRST 6 C BYTES (OUT OF POSSIBLE 8 CHARACTER-BYTES) INTO IBUF(3) AND/OR C IBUFF(4) RESPECTIVELY, IN INTERNAL NUMERIC CODE QUITE SIMILAR TO C RADIX-50 C IF FIELD 2 HAS MORE THAN 7 CHARACTERS, IBUF(4) IS USED TO RECEIVE C THE LAST 2 CHARACTERS OF FIELD 2 C C IF FIELD 2 AND/OR FIELD 3 ARE NUMERIC DATA (0-9,+,-,.,E), THEIR C ACTUAL INTEGER VALUES ARE STORED IBUF(3) AND/OR IBUF(4). C IF THEY ARE F.P. NUMBERS, THEIR EXPONENT VALUES (X100000) ARE C CHANGED INTO INTEGERS, AND THEN STORED IN IBUF(3) AND/OR IBUF(4) C C NOTE - XREAD WILL HANDLE BOTH SINGLE- AND DOUBLE-FIELD BULKDATA C INPUT IN FIELDS 2 AND 3, AND MOVED THEM ACCORDINGLY INTO IBUF(3) C AND IBUF(4) C C C PRESET TABLE IF THIS IS VERY FIRST CALL TO XREAD ROUTINE C TABLE SETTING IS MOVED UP BY ONE IF MACHINE IS CDC (TO AVOID C BLANK CHARACTER WHICH IS ZERO FROM ICHAR FUNCTION) C FROMY = 0 IF (XSORT .NE. 1) GO TO 80 XSORT = 2 CDC = 0 IF (MACH .EQ. 4) CDC = 1 DO 60 I = 1,255 60 TABLE(I) = N7 DO 70 I = 1,N6 J = ICHAR(KHRK(I)) + CDC 70 TABLE(J) = I F3LONG = 0 LARGE = RSHIFT(COMPLF(0),1)/20 C C CHECK BLANK, ENDDATA, AND CONTINUATION CARDS C 80 ER = 0 J1 = CARD1(1) J = TABLE(ICHAR(KARD1(1))+CDC) IF (J .GE. N7) GO TO 810 IF (CARD81.EQ.BLANK8 .AND. CARD8(2).EQ. BLANK8) GO TO 90 IF (CARD81.EQ.END8(1) .OR. CARD81.EQ.END8(2) .OR. 1 CARD81.EQ.END8(3)) GO TO 100 IF (J1.NE.PLUS1 .AND. J1.NE.STAR1) GO TO 120 IBUF(1) = -2 GO TO 110 90 IBUF(1) = -5 GO TO 110 100 IBUF(1) = -9 110 IBUF(2) = IBUF(1) GO TO 800 C C CHECK ASTERISK IN FIELD 1 (BUT NOT IN COLUMN1 1) AND SET DOUBLE- C FIELD FLAG. MERGE EVERY TWO SINGLE FIELDS TO ENSURE CONTINUITY OF C DOUBLE FIELD DATA (FIXED FIELD CARDS ONLY) C 120 DOUBLE = .FALSE. IF (WASFF .EQ. 1) GO TO 180 IE = 8 DO 130 J = 2,8 IF (CARD1(IE) .EQ. STAR1) GO TO 140 130 IE = IE - 1 GO TO 180 140 DOUBLE = .TRUE. IB = 0 DO 170 I = 8,71,16 K = I DO 150 J = 1,16 L = I + J IF (CARD1(L) .EQ. BLANK1) GO TO 150 K = K + 1 IF (K .EQ. L) GO TO 150 IB = 1 CARD1(K) = CARD1(L) KARD1(K) = KARD1(L) 150 CONTINUE IF (K .EQ. L) GO TO 170 K = K + 1 DO 160 J = K,L KARD1(J) = BLANKK 160 CARD1(J) = BLANK1 170 CONTINUE IF (IE .LE. 0) CALL MESAGE (-37,0,SUB) IF (IB .EQ. 1) CALL KHRBCD (CARD80,BUFX) CARD1(IE) = BLANK1 KARD1(IE) = BLANKK C C CHECK DELETE CARD C SET IBUF(1)=IBUF(2)=-3 IF IT IS PRESENT, AND SET THE DELETE RANGE C IN IBUF(3) AND IBUF(4) C SET IBUF(1)=-3 AND IBUF(2)=-4 IF TRASH FOUND AFTER SLASH IN C FIELD 1 C NOTE - IF FIELD 3 IS BLANK, IBUF(4) IS -3 C 180 IF (J1 .NE. SLASH1) GO TO 200 DO 190 L = 1,4 190 IBUF(L) = -3 IF (CARD81 .NE. SLASH8) IBUF(2) = -4 L = 2 GO TO 300 C C TURN BCD2 AND BCD3 FLAGS ON IF THE 2ND AND 3RD INPUT FIELDS ARE C NOT NUMERIC RESPECTIVELY C IF 2ND FIELD HAS MORE THAN 6 CHARACTERS, REPLACE 3RD FIELD BY THE C 7TH AND 8TH CHARACTERS OF THE 2ND FIELD C (FOR DMI AND DTI CARDS, MERGE 7TH AND 8TH CHARACTERS INTO 3RD C FIELD AND TREAT THE ORIG. 3RD FIELD AS A NEW BCD WORD) C IF 3RD FIELD HAS MORE THAN 6 CHARACTERS, SET F3LONG FLAG TO 1, AND C USER INFORMATION MESSAGE 217A WILL BE PRINTED BY XSORT C FIELDS 2 AND 3 SHOULD NOT START WITH A /, $, * C IF FIELD2 IS A BCD WORD, FIELD3 PROCESSING ACTUALLY BEGINS IN C CARD8(4) C 200 BCD2 = .FALSE. IF (DERR .EQ. +1) DERR = 0 J = TABLE(ICHAR(KARD1(9))+CDC) IF (J .GE. N7) GO TO 810 NUMRIC = (J.GE.N2 .AND. J.LE.N3) .OR. J.GE.N5 IF (NUMRIC) GO TO 210 BCD2 = .TRUE. IF (CARD1(15) .EQ. BLANK1) GO TO 210 C C SINCE THE NAME IN THE 2ND FIELD OF DMI, DTI, DMIG, DMIAX CARDS C ARE NOT UNIQUELY DEFINED FOR SORTING, SPECIAL CODES HERE TO MOVE C THE LAST PART OF A LONG NAME (7 OR 8 LETTER NAME) INTO THE 3RD C FIELD, AND TREAT THE NEW 3RD FIELD AS BCD WORD. THUS THE ORIGINAL C 3RD FIELD (THE COLUMN NUMBER, RIGHT ADJUSTED WITH LEADING ZEROS) C IS LIMITED TO 4 DIGITS OR LESS. IF THE NAME IN THE 2ND FIELD IS C SHORT (6 LETTERS OR LESS), MERGING OF THE 3RD FIELD IS NOT NEEDED. C IF (CARD1(1).NE.D1 .OR. CARD1(3).NE.KHR1(20) .OR. 1 (CARD1(2).NE.KHR1(24) .AND. CARD1(2).NE.KHR1(31))) GO TO 208 BCD3 = .TRUE. K = 24 IF (DOUBLE) K = 32 IF (CARD1(K-3) .EQ. BLANK1) GO TO 204 IF (ECHOU .EQ. 1) GO TO 202 IF (DERR .EQ. -1) CALL PAGE CALL PAGE2 (-2) IF (DOUBLE) CARD1(8) = STAR1 WRITE (NOUT,201) CARD8 201 FORMAT (30X,10A8) IF (DOUBLE) CARD1(8) = BLANK1 202 CALL PAGE2 (-2) WRITE (NOUT,203) UFM 203 FORMAT (A23,', THE 3RD INPUT FIELD OF THE ABOVE CARD IS LIMITED ', 1 'TO 4 OR LESS DIGITS, WHEN A NAME OF 7 OR MORE', /5X, 2 'LETTERS IS USED IN THE 2ND FIELD',/) DERR = +1 NOGO = 1 204 DO 205 J = 1,4 IF (CARD1(K-4) .NE. BLANK1) GO TO 206 KARD1(K-4) = KARD1(K-5) KARD1(K-5) = KARD1(K-6) KARD1(K-6) = KARD1(K-7) 205 KARD1(K-7) = BLANKK 206 DO 207 J = 1,6 KARD1(K) = KARD1(K-2) 207 K = K-1 KARD1(K ) = KARD1(16) KARD1(K-1) = KARD1(15) KARD1( 15) = BLANKK GO TO 215 C 208 KARD1(17) = KARD1(15) KARD1(18) = KARD1(16) DO 209 K = 19,24 209 KARD1(K) = BLANKK C 210 BCD3 = .FALSE. K = 17 IF (DOUBLE) K = 25 J = TABLE(ICHAR(KARD1(K))+CDC) ALPHA = J.EQ.N1 .OR. (J.GT.N3 .AND. J.LT.N5) IF (ALPHA) BCD3 = .TRUE. IF (BCD3 ) GO TO 215 C C THE FIRST 3 FIELDS OF THE DMIG OR DMIAX CARDS (NOT THE 1ST HEADER C CARD), ARE NOT UNIQUE. MERGE THE 4TH FIELD (1 DIGIT INTEGER) INTO C THE 3RD FIELD (INTEGER, 8 DIGITS OR LESS) TO INCLUDE THE COMPONENT C FIELD FOR SORTING C IF (CARD1(1).NE.D1 .OR. CARD1(2).NE.KHR1(24) .OR. 1 CARD1(3).NE.KHR1(20) .OR. (CARD1(4).NE.KHR1(18) .AND. 2 CARD1(4).NE.KHR1(12))) GO TO 215 IF (CARD1(1) .EQ. KHR1(2)) GO TO 215 K = 24 IF (DOUBLE) K = 32 IF (CARD1(K) .NE. BLANK1) GO TO 215 DO 211 J = 1,7 K = K - 1 IF (CARD1(K) .NE. BLANK1) GO TO 212 211 CONTINUE 212 KARD1(K+1) = KARD1(25) IF (DOUBLE) KARD1(K+1) = KARD1(41) C C C CHANGE ALL CHARACTERS IN FIRST 3 FIELDS TO INTEGER INTEGER CODES C ACCORDING TO THE TABLE ARRANGEMENT IN /KHR43/ C MAKE SURE THE INTERNAL CODE IS NOT IN NASTRAN INTEGER RANGE (1 TO C 8 DIGITS), AND WITHIN MACHINE INTEGER WORD LIMIT C IN 2ND AND 3RD FIELDS, INTERCHANGE ALPHABETS AND NUMERIC DIGITS C SEQUENCE TO AVOID SYSTEM INTEGER OVERFLOW C C -------------- REMEMBER, FROM HERE DOWN, C CARD1 (1-BYTE ) HOLD ONE CHARACTER, AND C IBUFX (4-BYTES) HOLD AN INTEGER ----------------- C WE ALSO HAVE CARD8 (8-BYTES) HOLDING 8 CHARACTERS, C AND BUFX (4-BYTES) HOLDING 4 BCD-CHARACTERS C C C MAP OF THE FIRST 3 BULKDATA FIELDS - C (INPUT) C C WORD1 WORD2 WORD3 WORD4 WORD5 WORD6 WORD7 WORD8 WORD9 WORD10 C BYTE: 1 8 9 16 17 24 25 32 33 40 C +-----+-----+-----+-----+-----+-----+-----+-----+-----+-----+ C SF: !<-FIELD 1->!<-FIELD 2->!<-FIELD 3->! C DF: !<-FIELD 1->!<------ FIELD 2 ------>!<------ FIELD 3 ------>! C C C MAP OF IBUF - WORD1 WORD2 WORD3 WORD4 C (OUTPUT) BYTE: 1 8 9 12 13 16 C +-----+-----+-----+-----+ C FOR CORE SORT !<-FIELD 1->!<--->!<--->! C PERFORMED IN FIELD FIELD C XSORT2 2 3 C 215 NUMRIC = .FALSE. L = 0 IOO = 100 WORD = 0 220 WORD = WORD + 1 GO TO 260 230 IOO = N4 IF (.NOT.BCD2) GO TO 280 WORD = 3 GO TO 260 240 WORD = 5 IF (DOUBLE) WORD = 7 IF (.NOT.BCD2 .OR. KARD1(15).EQ.BLANKK) GO TO 250 WORD = 4 IOO = 100 BCD3 = .TRUE. 250 IF (.NOT.BCD3) GO TO 280 IF (WORD.NE.4 .AND. KARD1(WORD*4+3).NE.BLANKK .AND. DERR.NE.+1) 1 F3LONG = 1 260 IE = WORD*4 IB = IE - 3 J = TABLE(ICHAR(KARD1(IB))+CDC) IF (J .GE. N7) GO TO 810 IF (MOD(WORD,2).EQ.0 .AND. .NOT.NUMRIC) GO TO 262 NUMRIC = (J.GE.N2 .AND. J.LE.N3) .OR. J.GE.N5 IF (NUMRIC) GO TO 280 262 IF (IOO .EQ. 100) GO TO 265 IE = IE + 2 K = J IF (K .GT. N3) J = K - N3 IF (K .LE. N3) J = K + 25 265 SUM = J IB = IB + 1 DO 270 I = IB,IE J = TABLE(ICHAR(KARD1(I))+CDC) 270 SUM = SUM*IOO + J IF (IOO .EQ. 100) SUM = SUM + 200000000 IBUF(L+1) = SUM 280 L = L + 1 GO TO (220,230,240,290), L C C CHECK INTEGERS ON 2ND AND 3RD FIELDS C 290 IF (BCD2 .AND. BCD3) GO TO 500 L = 2 IF (BCD2) L = 3 300 L = L + 1 IF (L-4) 310,320,500 310 IB = 9 GO TO 330 320 IB = 17 IF (DOUBLE) IB = 25 330 IE = IB + 7 IF (DOUBLE) IE = IB + 15 J1 = CARD1(IB) IF (J1.EQ.PLUS1 .OR. J1.EQ.MINUS1 .OR. J1.EQ.POINT1 .OR. 1 J1.EQ.ZERO1) GO TO 340 J = TABLE(ICHAR(KARD1(IB))+CDC) IF (J.GE.N2 .AND. J.LE.N3) GO TO 350 C C IT IS CHARACTER FIELDS, NOTHING ELSE NEEDS TO BE DONE C GO TO 300 C C IT IS NUMERIC C 340 IB = IB + 1 350 SUM = 0 FP = 0 SIGX= 1 SIGN= 1 IF (J1 .EQ. MINUS1) SIGN =-1 IF (J1 .EQ. POINT1) FP = 1 DO 380 I = IB,IE IF (KARD1(I) .EQ. BLANKK) GO TO 390 J = TABLE(ICHAR(KARD1(I))+CDC) - N2 IF (J.LT.0 .OR. J.GT.9) GO TO 360 IF (FP.LE.0 .AND. IABS(SUM).LT.LARGE) SUM = SUM*10 + SIGN*J GO TO 380 C C A NON-NUMERIC SYMBOL FOUND IN NUMERIC STRING C ONLY 'E', 'D', '+', '-', OR '.' ARE ACCEPTABLE HERE C 360 J1 = CARD1(I) IF (J1 .EQ. POINT1) GO TO 370 IF (FP.EQ.0 .OR. IBUF(3).EQ.-3) GO TO 420 IF (J1.NE.E1 .AND. J1.NE.D1 .AND. J1.NE.PLUS1 .AND. 1 J1.NE.MINUS1) GO TO 420 IF (J1 .EQ. MINUS1) SIGX = -1 FP =-1 SUM = 0 GO TO 380 370 FP = 1 C 380 CONTINUE C C BEEF UP NUMERIC DATA BY 2,000,000,000 SO THAT THEY WILL BE C SORTED BEHIND ALL ALPHABETIC DATA, AND MOVE THE NUMERIC DATA, IN C INTEGER FORM (F.P. MAY NOT BE EXACT) INTO IBUF(3) OR IBUF(4) C 390 IF (FP) 410,400,400 400 IBUF(L) = SUM + SIGN*2000000000 GO TO 300 410 IBUF(L) = SIGN*2000000000 IF (SIGX.GT.0 .AND. SUM.LT.9) 1 IBUF(L) = SIGN * (10**(SIGX*SUM) + 2000000000) IF (SIGX.GT.0 .AND. SUM.GE.9) IBUF(L)= 2147000000*SIGN GO TO 300 C C ERROR IN NUMERIC FIELD C 420 IF (IB.EQ.10 .OR. IB.EQ.18) IB = IB - 1 K = 1 IF (ECHOU.EQ.0 .AND. ER.NE.-9) K = 2 CALL PAGE2 (-K) IF (ECHOU.EQ.0 .AND. ER.NE.-9) WRITE (NOUT,430) CARD80 430 FORMAT (1H ,29X,A80) K = 2 IF (.NOT.DOUBLE) GO TO 440 K = 4 IF (L .NE. 4) WORD = WORD + 1 440 IF (L .EQ. 4) WORD = WORD + 2 WRITE (NOUT,450) (BLANK4,I=1,WORD),(EQUAL4,I=1,K) 450 FORMAT (7X,'*** ERROR -',24A4) NOGO = 1 ER =-9 GO TO 500 C C BOTH FIELDS 2 AND 3 (OF BULK DATA CARD) DONE. C C C FOR MOST BULK DATA CARDS, EXCEPT THE ONES IN NAME8, THE FIRST C 3 FIELDS, IN INTERNAL CODES AND SAVED IN THE IBUF 4-WORD ARRAY, C ARE SUFFICIENT FOR ALPHA-NUMERIC SORT (BY XSORT2) C C THOSE SPECIAL ONES IN NAME8 ADDITIONAL FIELDS FOR SORTING C 500 DO 510 TYPE = 1,NNAME IF (CARD81 .EQ. NAME8(TYPE)) GO TO 1 (520, 520, 520, 520, 600, 520, 520, 520, 2 520, 560, 570, 580, 560, 560, 560), TYPE C C 1 SPC1 SPCS TICS MPCS MPCAX RELES GTRAN FLUTTER C 2 BDYC SPCSD SPCS1 RANDPS DELAYS DAREAS DPHASES C 510 CONTINUE GO TO 700 C C SPC1,SPCS,TICS,MPCS,RELES,GTRAN,FLUTTER,BDYC CARDS - C ADD 4TH INTEGER FIELD TO IBUF ARRAY C 520 IBUF(2) = IBUF(3) IBUF(3) = IBUF(4) 530 SUM = 0 DO 540 I = 25,32 J1 = CARD1(I) IF (J1 .EQ. BLANK1) GO TO 550 J = TABLE(ICHAR(KARD1(I))+CDC) - N2 IF (J.GE.0 .AND. J.LE.9) SUM = SUM*10 + J 540 CONTINUE 550 IBUF(4) = SUM IF (TYPE .EQ. 12) GO TO 590 GO TO 700 C C DAREAS,DELAYS,DPHASES,SPCSD CARDS - C ADD ONE TO IBUF(1), THUS CREATE DARF,DELB,DPHB,OR SPCT IN C IBUF(1), THEN ADD 4TH INTEGER FIELD INTO IBUF ARRAY C 560 IBUF(1) = IBUF(1) + 1 GO TO 520 C C SPCS1 CARD - C ADD TWO TO IBUF(1), THUS CREATE SPCU IN IBUF(1), THEN ADD C 4TH INTEGER FIELD INTO IBUF ARRAY C 570 IBUF(1) = IBUF(1) + 2 GO TO 520 C C RANDPS - C MERGE FIELDS 3 AND 4 IF SUBCASE NUMBERS ARE NOT TOO BIG C 580 IF (IBUF(4).GE.10000 .OR. BUFX(8).NE.BLANK4) GO TO 700 IOOOO = IBUF(4)*10000 GO TO 530 590 IBUF(4) = IBUF(4) + IOOOO GO TO 700 C C MPCAX - C MOVE THE 6TH FIELD INTO IBUF(4) C 600 J = 41 DO 610 I = 25,32 CARD1(I) = CARD1(J) KARD1(I) = KARD1(J) 610 J = J+1 GO TO 530 C C CHECK NUMERIC ERROR IN 4TH TO 9TH FIELDS IF NO ERROR IN FIRST C 3 FIELDS (NEW BULK DATA CARDS ONLY) C 700 IF (FROMY.EQ.1 .OR. ER.EQ.-9) GO TO 800 WORD = 5 IF (DOUBLE) WORD = 7 710 WORD = WORD + 2 IF (DOUBLE) WORD = WORD + 2 IF (WORD .GE. 19) GO TO 800 IB = WORD*4 - 3 J = TABLE(ICHAR(KARD1(IB))+CDC) IF (J .GE. N7) GO TO 710 ALPHA = J.EQ.N1 .OR. (J.GT.N3 .AND. J.LT.N5) IF (ALPHA) GO TO 710 IE = IB + 7 IF (DOUBLE) IE = IB + 15 L = IB + 1 DO 740 I = L,IE J1 = CARD1(I) IF (J1 .EQ. BLANK1) GO TO 710 J = TABLE(ICHAR(KARD1(I))+CDC) NUMRIC = (J.GE.N2 .AND. J.LE.N3) .OR. (J.GE.N5 .AND. J.LE.N6) IF (NUMRIC .OR. J.EQ.15 .OR. J.EQ.16) GO TO 740 C D E K = 1 IF (ECHOU.EQ.0 .AND. ER.NE.-9) K = 2 CALL PAGE2 (-K) IF (ECHOU.EQ.0 .AND. ER.NE.-9) WRITE (NOUT,430) CARD80 WORD = WORD + 2 K = 2 IF (.NOT. DOUBLE) GO TO 730 K = 4 730 WRITE (NOUT,450) (BLANK4,J=1,WORD),(EQUAL4,J=1,K) NOGO = 1 GO TO 800 740 CONTINUE GO TO 800 C 760 IF (XSORT .EQ. 0) KARD1(IE) = KHRK( 1) 770 IF (XSORT .EQ. 0) KARD1( 1) = KHRK(39) IBUF(1) = -1 CALL KHRBCD (CARD80,BUFX) GO TO 800 C 780 IBUF(1) = 0 C 800 RETURN C 810 IF (XSORT .EQ. 2) GO TO 830 WRITE (NOUT,820) XSORT 820 FORMAT (//,' *** TABLE IN XREAD HAS NOT BEEN INITIALIZED.', 1 /5X,'XSORT=',I4) CALL MESAGE (-37,0,SUB) 830 WRITE (NOUT,840) CARD8 840 FORMAT (/,' *** ILLEGAL CHARACTER ENCOUNTERED IN INPUT CARD', 1 /4X,1H',10A8,1H' ) NOGO = 1 850 RETURN 1 C C ENTRY YREAD (*,BUFX) C ==================== C C YREAD IS CALLED ONLY BY XSORT TO RE-PROCESS CARD IMAGES FROM C THE OPTP FILE C CALL BCDKH8 (BUFX,CARD80) CALL K2B (CARD80,CARD1,80) FROMY = 1 GO TO 80 C C ENTRY RMVEQ (BUFX) C ================== C C RMVEQ, CALLED ONLY BY XCSA, REMOVES AN EQUAL SIGN FROM TEXT. C THUS, 1 EQUAL SIGN BEFORE COLUMN 36 IS ALLOWED ON ONE EXECUTIVE C CONTROL LINE C C AT THIS POINT, THE DATA IN KARD1 IS STILL GOOD C DO 900 I = 1,36 IF (KARD1(I) .EQ. EQU1) GO TO 910 900 CONTINUE GO TO 920 910 KARD1(I) = BLANKK CALL KHRBCD (CARD80,BUFX) 920 RETURN END ================================================ FILE: mis/xrecps.f ================================================ SUBROUTINE XRECPS (INEW,IOLD) C C ****************************************************************** C * ATTENTION CDC 6600 SET-UPS ** THESE ENTRY POINTS MAY BE * C * SEPARATED EACH ENTRY MAY BE MADE A SUBROUTINE (EXCEPT /CRDFLG/ * C * AND /INTEXT/ WHICH USE COMMON CODE) DUPE THE SPECIFICATION * C * STMTS FOR EACH SUB * C ****************************************************************** C IMPLICIT INTEGER (A-Z) INTEGER KBMSK1(8),SFT(4),NRECPS(2),CON(38),MK(4),C10C(7),EXTAB(37) C C ENTRY XFADJ (BF,SD,KK) C * XFADJ ADJUSTS 4 CHARACTER FIELDS, LEFT OR RIGHT, 2 OR 4 FIELDS C AT A TIME - IF FIELDS CONTAIN ONLY INTEGERS 0 THRU 9, SHIFT IS C RIGHT, OTHERWISE SHIFT IS LEFT / BF= ADDR OF LEFT MOST FIELD / C SD= 0 SINGLE (2 FIELDS), 1 DOUBLE (4 FIELDS). THIS ROUTINE C DETERMINES ONLY TYPE OF SHIFT NEEDED, SHIFTING IS DONE BY XFADJ1 C KK IS RETURNED EQUAL TO 0 FOR INTEGER, 1 FOR NON-INTEGER C INTEGER BF(1) C C ENTRY XBCDBI (BA) C * XBCDBI CONVERTS 2, 4 CHARACTER BCD INTEGER FIELDS (RIGHT C ADJUSTED IN THE LEFT MOST 4 CHAR) INTO A SINGLE FORTRAN BINARY C INTEGER (RIGHT ADJUSTED IN THE WORD IN THE RIGHT FIELD) C BA= ADDR OF LEFT FIELD C INTEGER BA(2) C C ENTRY XPRETY (BFF) C * ROUTINE PRETTIES UP SORT OUTPUT BY LEFT ADJUSTING ALL FIELDS C INTEGER BFF(2) C C ENTRY CRDFLG (CARD) C * ROUTINE SETS CARD TYPE FLAGS IN RESTART TABLES C CONVERTS TO EXTERNAL CODE FIRST C IF CARD TYPE IS PARAM, SET FLAG FOR PARAM NAME (FIELD 2) C INTEGER CARD(4) C C ENTRY EXTINT (EXTWRD) C * ROUTINE CONVERTS FROM EXTERNAL MACHINE DEPENDENT CHARACTER CODES C TO AN INTERNAL MACHINE INDEPENDENT INTEGER C INTEGER EXTWRD(1) C C ENTRY INTEXT (INTWRD) C * ROUTINE CONVERTS FROM INTERNAL MACHINE INDEPENDENT INTEGERS TO C AN EXTERNAL MACHINE DEPENDENT CHARACTER CODE C INTEGER INTWRD(2) C EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF LOGICAL DEC CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /MACHIN/ MACH COMMON /SYSTEM/ B,OUTTAP,D1(6),NLPP,D2(2),LCNT,D3(26), 1 NBPC,NBPW,NCPW COMMON /XSRTCM/ BIMSK1(6),BIMSK2(5),BIMSK3(4),BIMSK4(4),BIMSK5(2), 1 BIMSK6,BKMSK1(8),BKMSK2,SHIFTS(4), 2 ICON1,ICON2,STAR,PLUS,DOLLAR,STARL,SLASH,SFTM, 3 MASK,BLANK,MKA,IS,MBIT4 COMMON /TWO / ITWO(32) COMMON /IFPX0 / LBD,LCC,IBITS(1) COMMON /IFPX1 / NUM,ICARDS(2) EQUIVALENCE (SFT(1),SHIFTS(1)),(MK(1),BIMSK3(1)), 1 (SFT1,SHIFTS(2)),(EXTAB(1),CON(1)) DATA ITAPE4/304/,NRECPS/4HXREC,4HPS / DATA CON/4H ,4H 0,4H 1,4H 2,4H 3,4H 4,4H 5,4H 6, 1 4H 7,4H 8,4H 9,4H A,4H B,4H C,4H D,4H E,4H F, 2 4H G,4H H,4H I,4H J,4H K,4H L,4H M,4H N,4H O, 3 4H P,4H Q,4H R,4H S,4H T,4H U,4H V,4H W,4H X, 4 4H Y,4H Z,4H / DATA C10C/10,100,1000,10000,100000,1000000,10000000/ DATA PAR1,PAR2/4HPARA,4HM / DATA KPRET1,KPRET2/4H. ,4H0.0 / C DATA KBMSK1 / 4H0000, 4H000$, 4H00$$, 4H0$$$, 1 4H$$$ , 4H$$ , 4H$ , 4H / DATA ISTR , ISTRL , IPLS , IDOLLR, ISLSH , IZERO / 1 4H * , 4H* , 4H+ , 4H$ , 4H/ , 4H0 / C C C THE ARRAYS IN /XSRTCM/ WILL BE SET BY INITO AS FOLLOWS C C VAX C CDC IBM UNIVAC C SHIFTS(1) = 0 0 0 C SHIFTS(2) = 6 8 9 C SHIFTS(3) = 12 16 18 C SHIFTS(4) = 18 24 27 C SFTM = 36 0 0 C C ----------- BYTE -------------- C 1ST 2ND 3RD 4TH 5TH,... C BIMSK1(1) = / 777 / 777 / 777 / 000 / 00.. CDC USES /77/ C BIMSK1(2) = / 777 / 777 / 000 / 000 / 00.. INSTEAD OF C BIMSK1(3) = / 777 / 000 / 000 / 000 / 00.. /777/ IN A C BIMSK1(4) = / 000 / 000 / 000 / 777 / 00.. BYTE C BIMSK1(5) = / 000 / 000 / 777 / 777 / 00.. C BIMSK1(6) = / 000 / 777 / 777 / 777 / 00.. C C BIMSK2(1) = / 777 / 777 / 777 / 777 / 77.. (FOR CDC ONLY) C = / 377 / 777 / 777 / 777 / 00.. (FOR IBM,VAX,UNIVAC) C BIMSK2(2) = / 777 / 777 / 777 / 000 / 77.. C BIMSK2(3) = / 777 / 777 / 000 / 000 / 77.. C BIMSK2(4) = / 777 / 000 / 000 / 000 / 77.. C BIMSK2(5) = / 000 / 000 / 000 / 000 / 77.. C C BIMSK3(1) = / 777 / 000 / 000 / 000 / 00.. C BIMSK3(2) = / 000 / 777 / 000 / 000 / 00.. C BIMSK3(3) = / 000 / 000 / 777 / 000 / 00.. C BIMSK3(4) = / 000 / 000 / 000 / 777 / 00.. C C BIMSK4(1) = / 000 / 777 / 777 / 777 / 77.. C BIMSK4(2) = / 777 / 000 / 777 / 777 / 77.. C BIMSK4(3) = / 777 / 777 / 000 / 777 / 77.. C BIMSK4(4) = / 777 / 777 / 777 / 000 / 77.. C C BIMSK5(1) = / 377 / 777 / 777 / 777 / 00.. C BIMSK5(2) = / 377 / 777 / 777 / 000 / 00.. C BIMSK6 = / 000 / 000 / 000 / 000 / 77.. C C IS = / 400 / 000 / 000 / 000 / 77.. C MKA = / 000 / 000 / 000 / 777 / 77.. C MASK = 4TH OR 10TH BYTE IS /777/, ZERO FILLED C BLANK = 4TH OR 10TH BYTE IS BLANK, ZERO FILLED C C ARRAY BKMSK1 IS SAME AS KBMSK1 EXCEPT THAT THE DOLLARS ARE C REPLACED BY BINARY ZEROS C SIMILARY, THE BLANKS IN ISTR,ISTRL,IPLS,IDOLLR,ISLSH, AND ARRAY C CON ARE ALSO REPLACED BY BINARY ZEROS. C ICON1 AND ICON2 ARE LEFT ADJUSTED CON(1) AND CON(2), ZERO FILLED. C C THIS ROUTINE POSITIONS ITAPE4 TO THE PROPER CONTINUATION RECORD C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 IF (INEW .NE. 1) GO TO 10 CALL REWIND (ITAPE4) IOLD = 2 RETURN C 10 IDIF = INEW - IOLD IF (IDIF) 50,20,30 20 IOLD = INEW + 1 RETURN C 30 DO 40 I = 1,IDIF CALL FWDREC (*65,ITAPE4) 40 CONTINUE GO TO 20 50 IDIF = IABS(IDIF) DO 60 I = 1,IDIF CALL BCKREC (ITAPE4) 60 CONTINUE GO TO 20 65 WRITE (OUTTAP,66) SFM 66 FORMAT (A25,' 217, ILLEGAL EOF ON ITAPE4.') CALL MESAGE (-37,0,NRECPS) RETURN C C INITIALIZES BCD CONSTANTS FOR USE WITHIN SORT C ENTRY INITCO C ============ C C INITIALIZE (CREATE) BINARY CHARACTER MASKS C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 SHIFTS(1) = 0 SHIFTS(2) = NBPC SHIFTS(3) = NBPC*2 SHIFTS(4) = NBPC*3 MBITS = COMPLF(0) SFTM = (NCPW-4)*NBPC MBIT4 = LSHIFT(MBITS,SFTM) BIMSK1(1) = LSHIFT(MBIT4,NBPC) BIMSK1(2) = LSHIFT(BIMSK1(1),NBPC) BIMSK1(3) = LSHIFT(BIMSK1(2),NBPC) BIMSK1(4) = RSHIFT(BIMSK1(3),NBPC*3) BIMSK1(5) = RSHIFT(BIMSK1(2),NBPC*2) BIMSK1(6) = RSHIFT(BIMSK1(1),NBPC) BIMSK2(1) = MBITS BIMSK2(2) = COMPLF(BIMSK1(4)) BIMSK2(3) = COMPLF(BIMSK1(5)) BIMSK2(4) = COMPLF(BIMSK1(6)) BIMSK2(5) = RSHIFT(MBITS,NBPC*4) BIMSK3(4) = BIMSK1(4) BIMSK3(3) = LSHIFT(BIMSK3(4),NBPC) BIMSK3(2) = LSHIFT(BIMSK3(3),NBPC) BIMSK3(1) = BIMSK1(3) BIMSK4(1) = COMPLF(BIMSK3(1)) BIMSK4(2) = COMPLF(BIMSK3(2)) BIMSK4(3) = COMPLF(BIMSK3(3)) BIMSK4(4) = COMPLF(BIMSK3(4)) BIMSK5(1) = RSHIFT(BIMSK2(1),1) BIMSK5(2) = RSHIFT(LSHIFT(BIMSK2(2),1),1) BIMSK6 = BIMSK2(5) IF (MACH.EQ.2 .OR. DEC) BIMSK2(1) = BIMSK5(1) C C NEXT CARD FOR UNIVAC ASCII VERSION ONLY (NOT FORTRAN 5) C IF (MACH .EQ. 3) BIMSK2(1) = BIMSK5(1) MASK = RSHIFT(BIMSK3(4),SFTM) BLANK = RSHIFT(KBMSK1(8),(3*NBPC+SFTM)) IS = COMPLF(BIMSK5(1)) MKA = ORF(BIMSK3(4),BIMSK6) C C INITIALIZE THE BCD BLANK DATA C IF (DEC) GO TO 92 C C IBM, CDC, UNIVAC C BKMSK1(1) = KBMSK1(1) BKMSK1(2) = ANDF(KBMSK1(2),BIMSK2(2)) BKMSK1(3) = ANDF(KBMSK1(3),BIMSK2(3)) BKMSK1(4) = ANDF(KBMSK1(4),BIMSK2(4)) BKMSK1(5) = ANDF(KBMSK1(5),ORF(BIMSK1(4),BIMSK6)) BKMSK1(6) = ANDF(KBMSK1(6),ORF(BIMSK1(5),BIMSK6)) BKMSK1(7) = ANDF(KBMSK1(7),ORF(BIMSK1(6),BIMSK6)) BKMSK1(8) = KBMSK1(8) BKMSK2 = ANDF(BKMSK1(1),BIMSK6) STAR = ANDF(ISTR ,ORF(BIMSK1(4),BIMSK6)) PLUS = ANDF(IPLS ,BIMSK2(4)) DOLLAR = ANDF(IDOLLR,BIMSK2(4)) STARL = ANDF(ISTRL ,BIMSK2(4)) SLASH = ANDF(ISLSH ,BIMSK2(4)) DO 90 I = 1,38 90 CON(I) = ANDF(CON(I),BIMSK3(4)) ICON1 = LSHIFT(CON(1),SFT(4)-1) ICON2 = LSHIFT(CON(2),SFT(4)-1) RETURN C C VAX C 92 BKMSK2 = 0 BKMSK1(1) = KBMSK1(1) BKMSK1(2) = KHRFN3(BKMSK2,KBMSK1(2),-1,1) BKMSK1(3) = KHRFN3(BKMSK2,KBMSK1(3),-2,1) BKMSK1(4) = KHRFN3(BKMSK2,KBMSK1(4),-3,1) BKMSK1(5) = KHRFN3(BKMSK2,KBMSK1(5),-3,0) BKMSK1(6) = KHRFN3(BKMSK2,KBMSK1(6),-2,0) BKMSK1(7) = KHRFN3(BKMSK2,KBMSK1(7),-1,0) BKMSK1(8) = KBMSK1(8) STAR = KHRFN1(BKMSK2,4,ISTR ,4) PLUS = KHRFN1(BKMSK2,1,IPLS ,1) DOLLAR = KHRFN1(BKMSK2,1,IDOLLR,1) STARL = KHRFN1(BKMSK2,1,ISTRL ,1) SLASH = KHRFN1(BKMSK2,1,ISLSH ,1) DO 95 I = 1,38 95 CON(I) = KHRFN1(BKMSK2,4,CON(I),4) ICON1 = RSHIFT(KHRFN1(BKMSK2,1,CON(1),4),1) ICON2 = RSHIFT(KHRFN1(BKMSK2,1,CON(2),4),1) RETURN C C ENTRY XFADJ (BF,SD,KK) C ====================== C C DATA SFT /0,6,12,18/ C DATA MK /O770000000000,O007700000000,O000077000000,O000000770000/ C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 II = 2 IF (SD .EQ. 1) II = 4 DO 400 I = 1,II BFI = BF(I) DO 300 J = 1,4 JI = 5 - J IF (.NOT.DEC) TEST = RSHIFT(ANDF(BFI,MK(J)),SFT(JI)) IF ( DEC) TEST = KHRFN1(BKMSK2,4,BFI,J) DO 100 K = 1,11 IF (TEST .EQ. CON(K)) GO TO 200 100 CONTINUE C C CHARACTER NON-INTEGER C CALL XFADJ1 (BF,LSHIFT,SD) KK = 1 RETURN C 200 IF (K .EQ. 1) GO TO 300 C C CHARACTER INTEGER C CALL XFADJ1 (BF,RSHIFT,SD) KK = 0 RETURN C 300 CONTINUE 400 CONTINUE C C ALL FIELDS BLANK C KK = 0 RETURN C C ENTRY XBCDBI (BA) C ================= C C DATA SFT1/6/,SFTM/12/,MASK/O77/,BLANK/O60/ C C IF MACHINE IS VAX-11/780, ORDER OF CHARACTERS IN A WORD IS REVERSE C OF THAT ON OTHER MACHINES. THE CHARACTER ORDER MUST THEREFORE BE C REVERSED BEFORE DECODING TO AN INTEGER VALUE. C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 IF (.NOT.DEC) GO TO 430 DO 420 IBA = 1,2 ITEMP = 0 DO 410 IVAX = 1,4 JTEMP = RSHIFT(BA(IBA),8*(IVAX-1)) JTEMP = ANDF(MASK,JTEMP) JTEMP = LSHIFT(JTEMP,8*(4-IVAX)) ITEMP = ORF(ITEMP,JTEMP) 410 CONTINUE BA(IBA) = ITEMP 420 CONTINUE C 430 CONTINUE BA(1) = RSHIFT(BA(1),SFTM) BA(2) = RSHIFT(BA(2),SFTM) IVAR = ANDF(BA(2),MASK) IF (IVAR .NE. BLANK) GO TO 490 BA(2) = 0 RETURN C 490 IF (MACH .EQ. 4) IVAR = IVAR - 27 IVAR = ANDF(IVAR,15) DO 500 I = 1,3 BA(2) = RSHIFT(BA(2),SFT1) ICHAR = ANDF(BA(2),MASK) IF (MACH .EQ. 4) ICHAR = ICHAR - 27 500 IVAR = IVAR + C10C(I)*ANDF(15,ICHAR) ICHAR = ANDF(BA(1),MASK) IF (MACH .EQ. 4) ICHAR = ICHAR - 27 IVAR = IVAR + C10C(4)*ANDF(15,ICHAR) DO 510 I = 5,7 BA(1) = RSHIFT(BA(1),SFT1) ICHAR = ANDF(BA(1),MASK) IF (MACH .EQ. 4) ICHAR = ICHAR - 27 510 IVAR = IVAR + C10C(I)*ANDF(15,ICHAR) BA(2) = IVAR RETURN C C ENTRY XPRETY (BFF) C ================== C C DATA MKA/O000000777777/, STAR/4H000*/ C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 IF (.NOT.DEC) ITST = ANDF(MKA,BFF(2)) IF ( DEC) ITST = KHRFN1(BKMSK2,4,BFF(2),4) IF (ITST .EQ. STAR) GO TO 610 DO 600 I = 3,17,2 IF (BFF(I).EQ.BKMSK1(8) .AND. BFF(I+1).EQ.BKMSK1(8)) GO TO 600 CALL XFADJ1 (BFF(I),LSHIFT,0) IF (BFF(I) .EQ. KPRET1) BFF(I) = KPRET2 IF (BFF(I) .NE. BKMSK1(8)) GO TO 600 IF (.NOT.DEC) BFF(I) = ORF(RSHIFT(BFF(I),SFT(2)),BKMSK1(4)) IF ( DEC) BFF(I) = KHRFN3(IZERO,BFF(I),1,0) 600 CONTINUE RETURN C 610 DO 620 I = 3,15,4 IF (BFF(I).EQ.BKMSK1(8) .AND. BFF(I+1).EQ.BKMSK1(8) .AND. 1 BFF(I+2).EQ.BKMSK1(8) .AND. BFF(I+3).EQ.BKMSK1(8)) GO TO 620 CALL XFADJ1 (BFF(I),LSHIFT,1) IF (BFF(I) .EQ. KPRET1) BFF(I) = KPRET2 IF (BFF(I) .NE. BKMSK1(8)) GO TO 620 IF (.NOT.DEC) BFF(I) = ORF(RSHIFT(BFF(I),SFT(2)),BKMSK1(4)) IF ( DEC) BFF(I) = KHRFN3(IZERO,BFF(I),1,0) 620 CONTINUE RETURN C C ENTRY CRDFLG (CARD) C =================== C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 INWRDI = CARD(1) KARD2 = CARD(2) KBRN = -1 ASSIGN 640 TO IRET GO TO 770 640 IF (.NOT.DEC) KARD2 = ORF(ANDF(BIMSK1(1),KARD2),BKMSK1(5)) IF ( DEC) KARD2 = KHRFN1(KARD2,4,BKMSK1(8),4) IF (KARD1.NE.PAR1 .OR. KARD2.NE.PAR2) GO TO 645 KARD1 = CARD(3) KARD2 = CARD(4) 645 LMT = NUM* 2 DO 650 I = 1,LMT,2 IF (KARD1.EQ.ICARDS(I) .AND. KARD2.EQ.ICARDS(I+1)) GO TO 660 650 CONTINUE RETURN C 660 J = I/2 ICYCL = (J/31) + 1 IPOS = MOD(J,31) + 2 IBITS(ICYCL) = ORF(IBITS(ICYCL),ITWO(IPOS)) RETURN C C ENTRY EXTINT (EXTWRD) C ===================== C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 DO 750 I = 1,2 EXWRDI = EXTWRD(I) DO 730 J = 1,4 JI = 5 - J SFTJI = SFT(JI) IF (.NOT.DEC) TEST = RSHIFT(ANDF(EXWRDI,MK(J)),SFTJI) IF ( DEC) TEST = KHRFN1(BKMSK2,4,EXWRDI,J) DO 710 K = 1,37 IF (TEST .EQ. EXTAB(K)) GO TO 720 710 CONTINUE K = 1 GO TO 740 720 IF (.NOT.DEC) 1 EXWRDI = ORF(ANDF(EXWRDI,BIMSK4(J)),LSHIFT(K,SFTJI+SFTM)) IF (DEC) EXWRDI = KHRFN1(EXWRDI,J,K,-1) IF (K .EQ. 1) GO TO 740 730 CONTINUE 740 EXTWRD(I) = EXWRDI IF (K .EQ. 1) RETURN 750 CONTINUE RETURN C C ENTRY INTEXT (INTWRD) C ===================== C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 ASSIGN 800 TO IRET INWRDI = INTWRD(1) KBRN = 0 770 DO 780 J = 1,4 JI = 5 - J SFTJI = SFT(JI) IF (.NOT.DEC) TEST = RSHIFT(ANDF(INWRDI,MK(J)),SFTJI+SFTM) IF ( DEC) TEST = KHRFN1(BKMSK2,-1,INWRDI,J) IF (TEST .GT. 37) GO TO 781 IF (.NOT.DEC) 1 INWRDI = ORF(ANDF(INWRDI,BIMSK4(J)),LSHIFT(EXTAB(TEST),SFTJI)) IF (DEC) INWRDI = KHRFN1(INWRDI,J,EXTAB(TEST),4) IF (TEST .EQ. 1) GO TO 781 780 CONTINUE 781 IF (KBRN) 782,784,786 782 KARD1 = INWRDI INWRDI = CARD(2) KBRN = +2 GO TO 810 784 INTWRD(1) = INWRDI INWRDI = INTWRD(2) KBRN = +1 GO TO 810 786 IF (KBRN .EQ. 1) GO TO 788 KARD2 = INWRDI GO TO 790 788 INTWRD(2) = INWRDI 790 GO TO IRET, (800,640) 800 RETURN C 810 IF (TEST.EQ.1 .OR. TEST.GT.37) GO TO 790 GO TO 770 C END ================================================ FILE: mis/xrgdcf.f ================================================ SUBROUTINE XRGDCF (IRESTB) C C PURPOSE - XRGDCF PROCESSES THE '****CARD', '****FILE' AND C '****RFMT' CONTROL CARDS WITHIN THE RIGID DMAP C DATA BASE. C C AUTHOR - RPK CORPORATION; DECEMBER, 1983 C C INPUT C /SYSTEM/ C NOUT UNIT NUMBER FOR THE OUTPUT PRINT FILE C /XRGDXX/ C NUM VALUE OF THE NUMBER OR RANGE OF NUMBERS C IN THE CURRENT FIELD BEING PROCESSED C C OUTPUT C ARGUMENTS C IRESTB THE MODULE EXECUTION DECISION TABLE C OTHER C /XRGDXX/ C ICOL CURRENT COLUMN NUMBER BEING PROCESSED IN C THE CARD C IERROR ERROR FLAG - NON-ZERO IF AN ERROR OCCURRS C C LOCAL VARIABLES C IBIT BIT NUMBER FOR FLAG IN THE MODULE EXEC. DEC. C TABLE C IEND LAST NUMBER OF RANGE OF NUMBERS READ FROM C THE CURRENT FIELD C ISTR SAME AS IEND EXCEPT FIRST NUMBER C IWORD SAME AS IBIT BUT REFERS TO THE WORD NUMBER C C FUNCTIONS C XRGDCF PROCESSES THE ABOVE TYPES OF CARDS WHICH ALL HAVE C FORMATS AS FOLLOWS: '****XXXX M1,M2,..' C WHERE M- IS IN ANY OF THE FOLLOWING FORMS ( NNN OR NNN-NNN). C NNN IS AN INTEGER NUMBER AND THE '-' REFERS TO A RANGE C WHERE THE RANGE MUST BE IN ASCENDING ORDER. C XRGDCF CALLS XDCODE TO CONVERT THE CARD IMAGE TO 80A1 AND C CALLS XRGDEV TO VALIDATE THE SYNTAX AND TO GET A M- C ENTRY FROM THE CARD. BASED ON THE VALUE(S) RETURNED IN C NUM, THE CORRESPONDING BITS ARE TURNED ON IN THE MODULE C EXECUTION DECISION TABLE. PROCESSING CONTINUES UNTIL ALL C FIELDS OF THE CARD HAVE BEEN PROCESSED. C C C SUBROUTINES CALLED - XDCODE, XRGDEV C C CALLING SUBROUTINES - XRGRFM C C ERRORS - NONE C EXTERNAL ORF INTEGER RECORD, ORF , IRESTB(7) COMMON /SYSTEM/ ISYSBF, NOUT , DUM(98) COMMON /XRGDXX/ IRESTR, NSUBST, IPHASE, ICOL , NUMBER, ITYPE , 1 ISTATE, IERROR, NUM(2), IND , NUMENT , 2 RECORD(20) , ICHAR(80) , LIMIT(2) , 3 ICOUNT, IDMAP , ISCR , NAME(2), MEMBER(2) , 4 IGNORE C IERROR = 0 ICOL = 9 CALL XDCODE 10 CALL XRGDEV IF (IERROR .NE. 0 .OR. ICOL .GT. 80) GO TO 30 ISTR = NUM(1) IEND = NUM(2) DO 20 K = ISTR,IEND IWORD = (K-1)/31 IBIT = 2**(31*IWORD + 31 - K) IRESTB(IWORD+1) = ORF(IRESTB(IWORD+1),IBIT) 20 CONTINUE ICOL = ICOL + 1 GO TO 10 30 CONTINUE RETURN END ================================================ FILE: mis/xrgdev.f ================================================ SUBROUTINE XRGDEV C C PURPOSE - XRGDEV PROCESSES A FIELD FROM A ****CARD, ****FILE, C ****SBST, OR A ****RFMT CARD FROM THE RIGID FORMAT C DATA BASE C C AUTHOR - RPK CORPORATION; DECEMBER, 1983 C C INPUT C /SYSTEM/ C NOUT UNIT NUMBER FOR OUTPUT PRINT FILE C /XRGDXX/ C ICOL COLUMN CONTAINING THE FIRST CHARACTER OF THE FIELD C LIMIT 2 WORD ARRAY CONTAINING THE LOWER/UPPER LIMITS FOR C VALUES GIVEN IN THE FIELD C NUMBER INTEGER VALUE FOR A ALPHA NUMBER WITHIN THE FIELD C RECORD ARRAY IN 20A4 FORMAT CONTAINING THE CARD IMAGE C C OUTPUT C /XRGDXX/ C IERROR ERROR FLAG IS NON-ZERO IF AN ERROR OCCURRED C NUM 2 WORD ARRAY CONTAINING THE VALUE(S) WITHIN THE CURRENT C FIELD C C LOCAL VARIABLES C IND INDEX TO THE ARRAY NUM C ISTATE NEXT STATE (ROW = IN THE ABOVE DATA STATEMENT) TO BE C USED FOR SYNTAX VALIDATION BASED ON THE TYPE OF THE NEXT C CHARACTER IN THE FIELD C ISTR COLUMN CONTAINING THE FIRST CHARACTER WITHIN THE FIEL C K DO LOOP INDEX FOR SCANING CHARACTERS WITHIN THE FIELD C STATE TABLE USED TO VALIDATE THE SYNTAX OF THE FIELD. THE C NUMBER IN EACH ENTRY INDICATES THE ROW TO BE USED FOR C VALIDATING THE SYNTAX OF THE NEXT CHARACTER. IF THE C VALUE IS 0 THEN A SYNTAX ERROR OCCURRED. C C FUNCTIONS C XRGDEV SCANS THE FIELD FOR SYNTAX ERRORS AND FOR PLACING THE NUMBE C INTO THE NUM ARRAY. VALID FIELDS ARE OF THE FORM 'NNN,' OR C 'NNN-NNN,' WITH EMBEDDED BLANKS ALLOWED AND NUMBERS MAY BE OF C ANY VALUE THAT IS WITHIN THE LIMITS OF THE ARRAY LIMIT. C C SUBROUTINES CALLED - XRGDTP C C CALLING SUBROUTINES - XRGSUB,XRGDCF C C ERRORS C ERROR MESSAGES 8021 AND 8022 ARE GIVEN FOR SYNTAX OR VALUE RANGE C ERRORS. C INTEGER RECORD, STATE(5,7) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /XRGDXX/ IRESTR, NSUBST, IPHASE, ICOL , NUMBER, ITYPE , 1 ISTATE, IERROR, NUM(2), IND , NUMENT , 2 RECORD(20) , ICHAR(80) , LIMIT(2) , 3 ICOUNT, IDMAP , ISCR , NAME(2),MEMBER(2) , 4 IGNORE COMMON /SYSTEM/ ISYSBF, NOUT , DUM(98) C NUMBER , - BLANK OTHER DATA STATE / 1, 2, 3, 6, 0, 2 1, 0, 0, 2, 0, 3 4, 0, 0, 3, 0, 4 4, 2, 0, 5, 0, 5 0, 2, 0, 5, 0, 6 0, 2, 3, 6, 0, 7 1, 0, 0, 7, 0 / C IF (ICOL .GT. 80) GO TO 110 ISTATE = 7 IND = 1 NUM(1) = 0 ISTR = ICOL DO 50 K = ISTR,80 ICOL = K CALL XRGDTP ISTATE = STATE(ITYPE,ISTATE) IF (ISTATE .NE. 0) GO TO 20 IERROR = 1 J = 0 WRITE (NOUT,10) UFM,K,RECORD,J,(I,I=1,8),IERROR,(J,I=1,8) 10 FORMAT (A23,' 8020, SYNTAX ERROR NEAR COLUMN ',I3, 2 ' IN THE FOLLOWING CARD- ',/20X,20A4, /,(20X,I1,I9,7I10)) GO TO 110 20 GO TO (30,60,40,30,50,50,50), ISTATE 30 NUM(IND) = NUM(IND)*10 + NUMBER GO TO 50 40 IND = 2 NUM(2) = 0 50 CONTINUE 60 IF (IND .EQ. 2) GO TO 70 NUM(2) = NUM(1) GO TO 90 70 IF (NUM(2) .GT. NUM(1)) GO TO 90 IERROR = 1 WRITE (NOUT,80) UFM,NUM(1),NUM(2),RECORD 80 FORMAT (A23,' 8021, NON-INCREASING RANGE ',I3,1H-,I3, 1 ' IN THE FOLLOWING CARD -', /20X,20A4) 90 CONTINUE IF (NUM(1).GE.LIMIT(1) .AND. NUM(2).LE.LIMIT(2)) GO TO 110 WRITE (NOUT,100) UFM,LIMIT,RECORD 100 FORMAT (A23,' 8022, NUMBERS ARE OUT OF THE RANGE ',I3,1H-,I3, 1 ' IN THE FOLLOWING CARD - ', /20X,20A4) IERROR = 1 110 CONTINUE RETURN END ================================================ FILE: mis/xrgdfm.f ================================================ SUBROUTINE XRGDFM (NEWSOL,OLDSOL,IAPP,IUFILE,IOPEN,ISIZE,ISCR, 1 NOGO) C C XRGDFM READS AND PROCESSES RIGID FORMATS C C WRITTEN BY RPK CORPORATION; DECEMBER, 1983 C C INPUT C ARGUMENTS C IAPP =1, FOR DMAP APPROACH; =2, DISPLACEMENT APPRAOCH C =3, HEAT APPROACH ; =4, AERO APPROACH C IOPEN ARRAY FROM OPEN CORE TO CONTAIN THE MODULE C EXECUTION DECISION TABLE C ISIZE NUMBER OF WORDS AVAILABLE IN THE IOPEN ARRAY C IUFILE NAME OF USER'S FILE CONTAINING THE RIGID FORMAT C NEWSOL ARRAY CONTAINING THE SOLUTION NUMBER FOLLOWED C BY ALL SUBSET NUMBERS GIVEN BY THE USER C OLDSOL SOLUTION ON PREVIOUS RUN IF THIS IS A RESTART C OTHER C /XRGDXX/ C IRESTR RESTART FLAG - NON-ZERO IF RUN IS A RESTART C NSUBST NUMBER OF SUBSETS GIVEN BY THE USER C RECORD ARRAY CONTAINING THE CARD IMAGE IN 20A4 FORMAT C /SYSTEM/ C IDATE ARRAY CONTAINING MONTH AND YEAR OF NASTRAN LEVEL C OPTAPE UNIT USED FOR THE OUTPUT PRINT FILE C /TWO/ C TWO ARRAY CONTAINING THE VALUES OF THE POWERS OF 2. C /MEDMSK/ C N1 NUMBER OF WORDS USED FOR THE CARD NAME RESTART C TABLE C N2 NUMBER OF WORDS USED FOR THE FILE NAME RESTART C TABLE C N3 NUMBER OF WORDS USED FOR THE RIGID FORMAT C CHANGE RESTART TABLE C C OUTPUT C ARGUMENTS C IOPEN ARRAY CONTAINING THE MODULE EXECUTION DECISION C TABLE C OTHER C /MEDMSK/ C MEDMSK MODULE EXECUTION DECISION MASK - SET IF SOLUTION C CHANGE OCCURRED ON A RESTART C /SYSTEM/ C ITHRML SET TO NON-ZERO FOR A HEAT APPROACH C /PHAS11/ C IPAS11 ARRAY FOR SUBSTRUCTURE CONTROLS-SET TO ZERO C /PHAS25/ C IPAS25 SAME AS IPAS11 C /PHAS28/ C IPAS28 SAME AS IPAS11 C /PHAS31/ C IPAS31 SAME AS IPAS11 C /PHAS37/ C IPAS37 SAME AS IPAS11 C /XRGDXX/ C IDMAP DMAP SEQUENCE NUMBER C IGNORE FLAG SET TO IGNORE ANY CONTROL CARDS FOR THE C CURRENT DMAP STATEMENT - IS SET WHEN THE DMAP C STATEMENT IS TO BE DELETED BY THE SUBSET C IPHASE PHASE NUMBER ASSOCIATED WITH THE ****PHS- C CONTROL CARD C ITYPE SET TO 'FILE' OR 'CARD' FOR TYPE OF CONTROL CARD C LIMIT LOWER/UPPER LIMITS ASSOCIATED WITH THE VALUES C OF A PARTICULAR CARD TYPE C MEMBER NAME OF USER'S FILE CONTAINING A RIGID FORMAT C THIS IS A 2-WORD ARRAY IN 2A4 FORMAT C NUMENT NUMBER OF WORDS PER ENTRY IN THE MODULE EXECUTION C DECISION TABLE C C C LOCAL VARIABLES C ASTERS VARIABLE CONTAINING THE VALUE OF 4H**** C CARD VARIABLE CONTAINING THE VALUE OF 4HCARD C COMENT VARIABLE CONTAINING THE VALUE OF 4H$$$$ C DOLACR VARIABLE CONTAINING THE VALUE OF 4H$*CA C DOLAFL VARIABLE CONTAINING THE VALUE OF 4H$*FI C FILE VARIABLE CONTAINING THE VALUE OF 4HFILE C FILTYP ARRAY CONTAINING ACRONYMS FOR APPROACH C IBIT BIT NUMBER TO SET IN THE MEDMSK C IFILL VALUE TO BE USED TO INITIALIZE THE MODULE C EXECUTION DECISION TABLE; =0, IF RESTART; C =1, OTHERWISE C LU FORTRAN LOGICAL UNIT NUMBER AS RETURN FROM RFOPEN C =0, IF OPEN IS NOT SUCCESSFUL C INDEX INDEX INTO CURRENT ENTRY OF MODULE EXEC. C DECISION TABLE C ISOL SOLUTION NUMBER C IWORD WORD IN MEDMSK TO BE SET FOR RESTART FLAG C NEXT FLAG INDICATING THAT A NEW DMAP STATEMENT IS C TO BE PROCESSED; =0, IF NEW DMAP STATEMENT; C =1, IF PROCESSING THE SAME DMAP STATEMENT C NUMSOL ARRAY CONTAINING THE RESTART BITS ASSOCIATED C WITH A RIGID FORMAT SWITCH DURING RESTART C MAXSOL MAX. SOLUTION NUMBER C PHASE ARRAY CONTAINING 'PHS1', PHS2', AND 'PHS3' C RFMT VARIABLE CONTAINING THE VALUE 4HRFMT C SOLNUM ARRAY CONTAINING THE ALPHA REPRESENTATIONS OF C THE SOLUTION NUMBERS C C FUNCTIONS C 1. INITIALIZES SUBSTRUCTURE CONTROLS TO ZERO C 2. CHECKS FOR USER SUPPLIED RIGID FORMAT C 3. IF STANDARD RIGID FORMAT, VALIDATES SOLUTION NUMBER, C SETS MEDMSK IF A RESTART OCCURRED ON A DIFFERENT C RIGID FORMAT C 4. SETS NUMENT=1 AND IFILL=1 IS NO RESTART - OTHERWISE C NUMENT=N1+N2+N3 AND IFILL=0 C 5. CALLS RFOPEN TO OPEN THE RIGID FORMAT C 6. READS A CARD IMAGE FROM THE RIGID FORMAT FILE - C THE DATE AND YEAR OF THE RIGID FORMAT IS VALIDATED AGAINST C THAT THE LEVEL OF NASTRAN C RE-DEFINE NO. OF LINES PER OUTPUT PAGE IF 4TH WORD IS C PRESENT, .GT.20 .AND. .LE.99, NO DATE CHECK IF THE ORD WROD C IS **** C 7. READS A CARD FROM THE RIGID FORMAT FILE AND DOES THE C FOLLOWING DEPENDING ON THE TYPE OF CARD READ: C - FOR '$$$$' COMMENT CARDS, NEXT IS RESET C - FOR '****SBST' CARDS SUBROUTINE XRGSUB IS CALLED C - FOR '****CARD' CARDS SUBROUTINE XRGDCF IS CALLED C - FOR '****FILE' CARDS SUBROUTINE XRGDCF IS CALLED C - FOR '****RFMT' CARDS SUBROUTINE XRGDCF IS CALLED C - FOR '****PHS-' CARDS SUBROUTINE XRGSST IS CALLED C - OTHERWISE, THE CARD IS A DMAP AND WRITEN TO SCRATCH 315 C (NOTE- FOR NON RESTARTS, THE ****CARD,****FILE,****RFMT C CARDS ARE BYPASSED. FOR DMAP STATEMENTS THAT ARE C DELETED BY SUBSET CONTROLS, NO CONTROL CARDS ARE C PROCESSED EXCEPT FOR ****PHS- CARDS UNTIL THE NEXT C DMAP STATEMENT IS ENCOUNTERED) C 8. WHEN A '$*CA' OR A '$*FI' CARD IS READ, PROCESSING OF C DMAP STATEMENTS TERMINATES - IF THE JOB IS NOT A RESTART C XRGDFM RETURNS. OTHERWISE, A CHECK IS MADE TO ENSURE C THAT THE CARD NAME TABLE IS GIVEN FIRST FOLLOWED BY C THE FILE NAME TABLE. SUBROUTINE XRGDTB IS CALLED TO C PROCESS BOTH TABLES. AFTER THESE TABLES ARE PROCESSED, C XRGDFM RETURNS. C C SUBROUTINES CALLED - RFOPEN,READ,WRITE,XRGSUB,XRGDCF,XRGSST, C XRGDTB,MESAGE,RFCLOS C C COMMENTS FROM G.C./UNISYS - ALL THE MACHINE DEPENDENT DSX* SUB- C ROUTINES ARE NO LONGER USED. SEE RFOPEN. 10/1990 C C CALLING SUBROUTINE - XCSA C C ERROR MESSAGES 8023,504,8025,8026,8024,8037 MAY BE ISSUED C EXTERNAL ORF INTEGER RECORD, BLANK, ORF, TWO, ASTERS, SUB(2), 1 OPTAPE, CARD, FILE, RFMT, COMENT, SUBSET, DOLAFL, 2 DOLACR, IUFILE(2), IOPEN(100), IDATE(3), 3 FILTYP(4), SOLNUM(20), NUMSOL(50),OLDNUM, 4 NEWSOL(12), OLDSOL(12), PHASE(3), OLDIND INTEGER ALTFIL DIMENSION IOUTBF(200) COMMON /ALTRXX/ ALTFIL, NEWALT CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /XRGDXX/ IRESTR, NSUBST, IPHASE, ICOL , NUMBER, ITYPE , 1 ISTATE, IERROR, NUM(2), IND , NUMENT , 2 RECORD(20) , ICHAR(80) , LIMIT(2) , 3 ICOUNT, IDMAP , ISCRX , NAME(2), MEMBER(2) , 4 IGNORE COMMON /SYSTEM/ KSYSTM(100) COMMON /TWO / TWO(31) COMMON /XMDMSK/ N1,N2,N3,MEDMSK(7) COMMON /PHAS11/ IPAS11(8) COMMON /PHAS25/ IPAS25(14) COMMON /PHAS28/ IPAS28(14) COMMON /PHAS31/ IPAS31(2) COMMON /PHAS37/ IPAS37(6) EQUIVALENCE (KSYSTM( 2), OPTAPE), (KSYSTM(56), ITHRML) , 1 (KSYSTM(42), IDATE(1)), 2 (KSYSTM(69), ISUBAL), (KSYSTM( 9), NLPP ) DATA FILTYP/ 4HDMAP, 4HDISP, 4HHEAT, 4HAERO / DATA SOLNUM/ 1H1 ,1H2 ,1H3 ,1H4 ,1H5 ,1H6 ,1H7 , 1 1H8 ,1H9 ,2H10,2H11,2H12,2H13,2H14, 2 2H15,2H16,2H17,2H18,2H19,2H20 / DATA CARD / 4HCARD /, FILE / 4HFILE / DATA RFMT / 4HRFMT /, BLANK / 4H / DATA ASTERS/ 4H**** /, COMENT / 4H$$$$ / DATA SUBSET/ 4HSBST /, DOLACR / 4H$*CA / DATA DOLAFL/ 4H$*FI / DATA PHASE / 4HPHS1, 4HPHS2, 4HPHS3 / DATA SUB / 4HXRGD, 4HFM / DATA NAS / 4HNAS /, MAXSOL / 19 / C C IN THE FOLLOWING TABLE, VALUES 187-209 ARE FOR STATICS, C 210-213 ARE FOR HEAT, AND 214-217 ARE FOR AERO - C THIS PROVIDES FOR 31 DIFFERENT VALUES IN TOTAL (1 WORD) C DATA NUMSOL/ 1 187, 188, 189, 190, 191, 192, 193, 194, 2 195, 196, 197, 198, 199, 200, 201, 202, 3 203, 204, 205, -1, -1, -1, -1, 210, 4 -1, 211, -1, -1, -1, -1, -1, 212, 5 -1, -1, -1, -1, -1, -1, 216, 214, 6 215, 9*-1 / C WAS: C DATA NUMSOL/ C 1 187, 188, 189, 190, 191, 192, 193, 194, C 2 195, 196, 197, 198, 199, 200, 201, 202, C 3 -1, -1, -1, -1, 207, -1, 208, -1, C 4 -1, -1, -1, -1, 209, -1, -1, -1, C 5 -1, -1, -1, -1, -1, -1, 216, 214, C 6 215, 9*-1 / C ISCRX = ISCR IDMAP = 0 DO 10 K = 1,8 10 IPAS11(K) = 0 DO 20 K = 1,14 IPAS25(K) = 0 20 IPAS28(K) = 0 DO 30 K = 1,2 30 IPAS31(K) = 0 DO 40 K = 1,6 40 IPAS37(K) = 0 IF (IUFILE(1) .EQ. 0) GO TO 100 MEMBER(1) = IUFILE(1) MEMBER(2) = IUFILE(2) GO TO 210 100 ISOL = NEWSOL(1) GO TO (700,120,130,140), IAPP 120 IF (ISOL.GE.1 .AND. ISOL.LE.MAXSOL) GO TO 200 GO TO 700 130 ITHRML = 1 ISOL = ISOL - 23 IF (ISOL.EQ.1 .OR. ISOL.EQ.3 .OR. ISOL.EQ.9) GO TO 200 GO TO 700 140 ISOL = ISOL - 30 IF (ISOL.EQ.9 .OR. ISOL.EQ.10 .OR. ISOL.EQ.11) GO TO 200 GO TO 700 200 MEMBER(1) = FILTYP(IAPP) MEMBER(2) = SOLNUM(ISOL) 210 CONTINUE C OLDIND = OLDSOL(1) IF (OLDIND.EQ.0 .OR. OLDIND.EQ.NEWSOL(1)) GO TO 270 C C MAKE SURE CHECKPOINT TAPE FROM OLDER VERSION IS COMPATIBLE WITH C NEW CHANGE MADE IN 1991. C IF (OLDIND.NE.21 .AND. OLDIND.NE.23 .AND. OLDIND.NE.29) GO TO 220 OLDIND = OLDIND + 3 OLDSOL(1) = OLDIND IF (OLDIND .EQ. NEWSOL(1)) GO TO 270 C 220 OLDNUM = NUMSOL(OLDIND) IF (OLDNUM .LE. 0) GO TO 270 IWORD = ((OLDNUM-1)/31) + 1 IBIT = OLDNUM - 31*(IWORD-1) + 1 MEDMSK(IWORD) = ORF(MEDMSK(IWORD),TWO(IBIT)) WRITE (OPTAPE,240) OLDSOL(1),NEWSOL(1),OLDNUM 240 FORMAT (51H0*** SWITCHED SOLUTION FOR RESTART - OLD SOLUTION =,I4, 1 16H, NEW SOLUTION =,I4,14H, BIT NUMBER =,I4) 270 IF (IRESTR .NE. 0) GO TO 280 NUMENT = 1 IFILL = 1 GO TO 290 280 NUMENT = N1 + N2 + N3 IFILL = 0 290 CONTINUE IDMAP = 0 DO 300 KB = 1,NUMENT IOPEN(KB) = IFILL 300 CONTINUE INDEX = 1 - NUMENT NEXT = 0 CALL RFOPEN (MEMBER,LU) IGNORE = 0 IF (LU .EQ. 0) GO TO 790 READ (LU,305,ERR=720,END=730) RECORD 305 FORMAT (20A4) C C BLANK OUT THE 19TH AND 20TH WORDS AS THEY C MAY CONTAIN SEQUENCE INFORMATION C RECORD(19) = BLANK RECORD(20) = BLANK C C ALLOW OPTIONS TO CHANGE NLPP LOCALLY, AND NOT TO CHECK RF DATE. C (THE NLPP OPTION HERE IS OBSOLETE. CAN BE EASILY DONE VIA NASINFO C FILE - 7/90) C IF (RECORD(3) .EQ. ASTERS) GO TO 310 IF ( RECORD(2).NE.IDATE(3)) GO TO 770 310 READ (LU,305,ERR=720,END=730) RECORD C C BLANK OUT THE 19TH AND 20TH WORDS AS THEY C MAY CONTAIN SEQUENCE INFORMATION C RECORD(19) = BLANK RECORD(20) = BLANK IF (RECORD(1) .NE. COMENT) GO TO 315 IF (NEXT .EQ. 0 ) GO TO 310 NEXT = 0 IF (INDEX .LE. ISIZE) GO TO 310 GO TO 740 315 IF (RECORD(1) .EQ. ASTERS) GO TO 330 IF (RECORD(1).EQ.DOLACR .OR. RECORD(1).EQ.DOLAFL) GO TO 400 IF (NEXT .EQ. 1) GO TO 325 IF (NEWALT .EQ. 0) GO TO 317 CALL XRCARD (IOUTBF, 200, RECORD) CALL WRITE (ALTFIL, IOUTBF(2), 2, 0) 317 CONTINUE NEXT = 1 IDMAP = IDMAP + 1 INDEX = INDEX + NUMENT DO 320 KB = 1,NUMENT IOPEN(KB+INDEX-1) = IFILL 320 CONTINUE 325 CONTINUE CALL WRITE (ISCR,RECORD,18,0) IGNORE = 0 GO TO 310 330 IF (RECORD(2) .NE. SUBSET) GO TO 340 IF (NSUBST .EQ. 0) GO TO 310 CALL XRGSUB (IOPEN(INDEX),NEWSOL(2)) IF (IERROR .NE. 0) NOGO = 3 GO TO 310 340 IF (RECORD(2) .NE. CARD) GO TO 350 IF (IRESTR.EQ.0 .OR. IGNORE.EQ.1) GO TO 310 LIMIT(1) = 1 LIMIT(2) = N1*31 CALL XRGDCF (IOPEN(INDEX)) IF (IERROR .NE. 0) NOGO = 3 GO TO 310 350 IF (RECORD(2) .NE. FILE) GO TO 360 IF (IRESTR.EQ.0 .OR. IGNORE.EQ.1) GO TO 310 LIMIT(1) = N1*31 + 1 LIMIT(2) = (N1+N2)*31 CALL XRGDCF (IOPEN(INDEX)) IF (IERROR .NE. 0) NOGO = 3 GO TO 310 360 IF (RECORD(2) .NE. RFMT) GO TO 365 IF (IRESTR.EQ.0 .OR. IGNORE.EQ.1) GO TO 310 LIMIT(1) = (N1+N2)*31 + 1 LIMIT(2) = (N1+N2+N3)*31 CALL XRGDCF (IOPEN(INDEX)) IF (IERROR .NE. 0) NOGO = 3 GO TO 310 365 DO 370 K = 1,3 IF (RECORD(2) .NE. PHASE(K)) GO TO 370 IPHASE = K CALL XRGSST (NEWSOL) IF (IERROR .NE. 0) NOGO = 3 GO TO 310 370 CONTINUE GO TO 750 400 CALL WRITE (ISCR,0,0,1) IF (NEWALT .EQ. 0) GO TO 500 CALL WRITE (ALTFIL, 0, 0, 1) CALL CLOSE (ALTFIL, 1) 500 CONTINUE CALL WRITE (ISCR,IOPEN(1),INDEX+NUMENT-1,1) IF (IRESTR. EQ. 0) GO TO 800 ITYPE = CARD IF (RECORD(1) .NE. DOLACR) GO TO 760 LIMIT(1) = 1 LIMIT(2) = N1*31 CALL XRGDTB (LU) IF (IERROR .NE. 0) NOGO = 3 ITYPE = FILE IF (RECORD(1) .NE. DOLAFL) GO TO 760 LIMIT(1) = N1*31 + 1 LIMIT(2) = (N1+N2)*31 CALL XRGDTB (LU) IF (IERROR .NE. 0) NOGO = 3 GO TO 800 C C ERRORS C 700 WRITE (OPTAPE,710) UFM,ISOL,FILTYP(IAPP) 710 FORMAT (A23,' 8023, SOLUTION NUMBER',I4,' IS ILLEGAL FOR APPROACH' 1, A4) 720 WRITE (OPTAPE,725) UFM,MEMBER 725 FORMAT (A23,' 8025, READ ERROR ON FILE ',2A4) GO TO 790 730 WRITE (OPTAPE,735) UFM,MEMBER 735 FORMAT (A23,' 8025, UNEXPECTED EOF ENCOUNTERED ON FILE ',2A4) GO TO 790 740 CALL MESAGE (-8,0,SUB) GO TO 800 750 WRITE (OPTAPE,755) UFM,RECORD 755 FORMAT (A23,' 8026, THE FOLLOWING CARD HAS AN UNIDENTIFIED ', 1 'FUNCTION AFTER ',6H'****', //20X,20A4) NOGO = 3 GO TO 310 760 WRITE (OPTAPE,765) UFM,ITYPE,RECORD 765 FORMAT (A23,' 8024, EXPECTED A ',3H'$*,A4,1H',' CARD.', 1 ' INSTEAD THE FOLLOWING CARD IS READ', //20X,20A4) GO TO 790 770 WRITE (OPTAPE,775) UFM,IDATE(1),IDATE(3),RECORD(1),RECORD(2) 775 FORMAT (A23,' 8037, NASTRAN IS LEVEL ',2A4, 1 ' BUT THE RIGID FORMAT DATA BASE IS LEVEL ',2A4) 790 NOGO = 3 800 CALL RFCLSE (LU) RETURN END ================================================ FILE: mis/xrgdtb.f ================================================ SUBROUTINE XRGDTB (LU) C C XRGDTB PROCESSES THE CARD AND FILE NAME RESTART TABLES C THIS SUBROUTINE IS CALLED ONLY BY XRGDFM C C WRITTEN BY RPK CORPORATION; DECEMBER, 1983 C C INPUT C LU FORTRAN UNIT NUMBER FOR THE RIGID FORMAT FILE C /SYSTEM/ C OPTAPE OUTPUT UNIT NUMBER FOR THE PRINT FILE C /XRGDXX/ C ICHAR ARRAY IN 80A1 FORMAT CONTAINING CARD IMAGE C ISCR FILE NUMBER ON WHICH TABLES ARE WRITTEN C ITYPE TYPE OF TABLE BEING PROCESSED-('CARD'OR'FILE') C LIMIT LOWER/UPPER LIMITS FOR VALUES IN THE TABLE C RECORD CARD IMAGE IN 20A4 FORMAT C C OUTPUT C /XRGDXX/ C ICOL COLUMN WITHIN CARD BEING PROCESSED C ICOUNT NUMBER OF ALPHA CHARACTERS WITHIN A NAME C IERROR ERROR FLAG - NON-ZERO IF ERROR OCCURRED C NAME NAME OF THE SUBROUTINE C NUMBER VALUE OF NUMBER RETURNED BY XRGNUM C C LOCAL VARIABLES C ASTRSK CONTAINS THE VALUE 1H* C BLANK CONTAINS THE VALUE 1H C COMENT CONTAINS THE VALUE OF 4H$$$$ C DOLLAR CONTAINS THE VALUE OF 1H$ C ICOLUM COLUMN NUMBER OF THE NEXT CHARACTER WITHIN C A NAME C C FUNCTIONS C 1. CALLS READ AND XDCODE FOR EACH CARD WITHIN THE TABLE. C 2. CALLS XRGNUM TO PROCESS ALL NUMBERS C 3. CALLS XECODE TO PROCESS ALL NAMES C 4. ALL ENTRIES READ ARE EXPECTED TO BE IN THE FOLLOWING C FORMAT: NNNN NAME NAME NAME NAME NAME ... C WHERE NNNN IS ANY NUMBER. C C SUBROUTINES CALLED - XRGNUM,XECODE,READ,WRITE C C ERRORS MESSAGES 8028,8034,8029,8036 MAY BE ISSUED C INTEGER RECORD, BLANK, DOLLAR, ASTRSK, OPTAPE, COMENT CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /SYSTEM/ KSYSTM(100) COMMON /XRGDXX/ IRESTR, NSUBST, IPHASE, ICOL , NUMBER, ITYPE , 1 ISTATE, IERROR, NUM(2), IND , NUMENT , 2 RECORD(20) , ICHAR(80) , LIMIT(2) , 3 ICOUNT, IDMAP , ISCR , NAME(2), MEMBER(2) , 4 IGNORE EQUIVALENCE (KSYSTM( 2),OPTAPE), (KSYSTM(39), NBPC), 1 (KSYSTM(40), NBPW ), (KSYSTM(41), NCPW) DATA BLANK / 1H /, DOLLAR / 1H$ /, ASTRSK / 1H* / DATA COMENT/ 4H$$$$ / C 100 NUMBER = 0 NAME(1) = 0 READ (LU,150,ERR=710,END=710) RECORD 150 FORMAT (20A4) CALL XDCODE IF (RECORD(1) .EQ. COMENT) GO TO 100 IF (ICHAR(1).EQ.DOLLAR .AND. ICHAR(2).EQ.ASTRSK) GO TO 800 ICOL = 1 200 IF (ICHAR(ICOL).EQ.BLANK .OR. ICOL.GT.80) GO TO 500 IF (NUMBER .NE. 0) GO TO 300 CALL XRGNUM IF (NUMBER .EQ. 0) GO TO 720 IF (NUMBER.GE.LIMIT(1) .AND. NUMBER.LE.LIMIT(2)) GO TO 200 GO TO 730 300 ICOUNT = 1 350 ICOLUM = ICOL + ICOUNT IF (ICHAR(ICOLUM).EQ.BLANK .OR. ICOLUM.GT.80) GO TO 400 ICOUNT = ICOUNT + 1 IF (ICOUNT .LE. 8) GO TO 350 GO TO 740 400 IF (ICOUNT .EQ. 0) GO TO 350 CALL XECODE CALL WRITE (ISCR,NAME,2,0) CALL WRITE (ISCR,NUMBER,1,0) ICOL = ICOL + ICOUNT GO TO 200 500 IF (ICOL .GE. 80) GO TO 600 ICOL = ICOL + 1 GO TO 200 600 IF (NUMBER.EQ.0 .OR. NAME(1).EQ.0) GO TO 750 GO TO 100 C C ERRORS C 710 WRITE (OPTAPE,715) UFM,MEMBER 715 FORMAT (A23,' 8027, UNEXPECTED EOF ENCOUNTERED ON FILE ',2A4, 1 ' IN SUBROUTINE XRGDTB.') GO TO 770 720 WRITE (OPTAPE,725) UFM,RECORD 725 FORMAT (A23,' 8028, EXPECTED TO FIND AN INTEGER IN THE FIRST ', 1 'FIELD OF THE FOLLOWING CARD', //20X,20A4) GO TO 760 730 WRITE (OPTAPE,735) UFM,NUMBER,RECORD,LIMIT,ITYPE 735 FORMAT (A23,' 8029, THE VALUE',I4,' GIVEN IN THE FIRST FIELD OF', 1 ' THE FOLLOWING CARD', //20X,20A4, //5X,'IS OUTSIDE THE ', 2 'RANGE OF',I5,1H-,I4,6H FOR ',A4,8H' CARDS.) GO TO 760 740 WRITE (OPTAPE,745) UFM,RECORD 745 FORMAT (A23,' 8029, THE FOLLOWING CARD CONTAINS NAMES THAT ARE' , 2 'COMPRISED OF MORE THAN 8 CHARACTERS', //20X,20A4) GO TO 760 750 WRITE (OPTAPE,755) UFM,RECORD 755 FORMAT (A23,' 8036, MISSING FIELDS ON THE FOLLOWING CARD', /20X, 1 20A4) 760 IERROR = 1 GO TO 100 770 IERROR = 1 800 CALL WRITE (ISCR,0,0,1) RETURN END ================================================ FILE: mis/xrgdtp.f ================================================ SUBROUTINE XRGDTP C**** C PURPOSE - XRGDTP DETERMINES A TYPE CODE FOR A CHARACTER C C AUTHOR - RPK CORPORATION; DECEMBER, 1983 C C INPUT C /XRGDXX/ C ICHAR AN ARRAY IN 80A1 FORMAT C ICOL CURRENT ELEMENT IN THE ARRAY ICHAR C C OUTPUT C /XRGDXX/ C ITYPE TYPE CODE ASSOCIATED WITH THE CHARACTER C =1, IF CHARACTER IS A NUMBER C =2, IF CHARACTER IS A ',' C =3, IF CHARACTER IS A '-' C =4, IF CHARACTER IS A BLANK C =5, OTHERWISE C NUMBER INTEGER VALUE FOR CHARACTER OF ITYPE=1 C C LOCAL VARIABLES C DELIM 3 WORD ARRAY CONTAINING A COMMA, DASH, AND BLANK C NUMS 10 WORD ARRAY OF ALPHA NUMBERS 1,2..0 C K K DO LOOP INDEX TO SEARCH DELIM ARRAY C C SUBROUTINES CALLED - NONE C C CALLING SUBROUTINES - XRGDEV C C FUNCTIONS - XRGDTP EXAMINES THE CHARACTER IN ICHAR(ICOL) C TO DETERMINE ITS TYPE CODE. C C ERRORS - NONE C C**** INTEGER RECORD INTEGER NUMS( 10 ), DELIM( 3 ) COMMON / XRGDXX / IRESTR, NSUBST, IPHASE, ICOL , NUMBER, ITYPE *, ISTATE, IERROR, NUM(2), IND , NUMENT *, RECORD(20) , ICHAR(80) , LIMIT(2) *, ICOUNT, IDMAP , ISCR , NAME(2), MEMBER(2) *, IGNORE DATA NUMS / 1H1, 1H2, 1H3, 1H4, 1H5, 1H6, 1H7, 1H8, 1H9, 1H0 / DATA DELIM/ 1H,, 1H-, 1H / C DO 10 K = 1,3 IF ( ICHAR( ICOL ) .NE. DELIM( K ) ) GO TO 10 ITYPE = K + 1 GO TO 30 10 CONTINUE DO 20 K = 1, 10 IF ( ICHAR( ICOL ) .NE. NUMS( K ) ) GO TO 20 ITYPE = 1 NUMBER = MOD( K,10 ) GO TO 30 20 CONTINUE ITYPE = 5 30 RETURN END ================================================ FILE: mis/xrgnum.f ================================================ SUBROUTINE XRGNUM C C XRGNUM PROCESSES THE NUMBER ON A CARD OR FILE NAME TABLE ENTRY C THIS ROUTINE IS CALLED ONLY BY XRGDTB C C WRITTEN BY RPK CORPORATION; DECEMBER, 1983 C C INPUT C /SYSTEM/ C OPTAPE UNIT NUMBER FOR THE OUTPUT PRINT FILE C /XRGDXX/ C ICHAR CONTAINS THE CARD IMAGE IN 80A1 FORMAT C ICOL CURRENT COLUMN BEING PROCESSED C RECORD CONTAINS THE CARD IMAGE IN 20A4 FORMAT C C OUTPUT C /XRGDXX/ C ICOL CURRENT COLUMN BEING PROCESSED C NUMBER VALUE OF THE NUMBER IN INTEGER FORMAT C C LOCAL VARIABLES C BLANK CONTAINS THE VALUE 1H C IFRCOL FIRST COLUMN TO BE EXAMINED BY XRGNUM C NEWNUM INTEGER VALUE OF THE CHARACTER IN THE CURRENT C COLUMN C NUMS CONTAINS THE ALPHA VALUES 1,2,...0 C C THE CARD IS SCANED TO FIND THE VALUE OF THE NUMBER IN THE FIRST C FIELD OF THE CARD C C MESSAGE 8030 MAY BE ISSUED C INTEGER RECORD, OPTAPE, BLANK , NUMS(10) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /XRGDXX/ IRESTR, NSUBST, IPHASE, ICOL , NUMBER, ITYPE , 1 ISTATE, IERROR, NUM(2), IND , NUMENT, 2 RECORD(20) , ICHAR(80) , LIMIT(2), 3 ICOUNT, IDMAP , ISCR ,NAME(2), MEMBER(2), 4 IGNORE COMMON /SYSTEM/ ISYSBF, OPTAPE, DUM(98) DATA NUMS / 1H1, 1H2, 1H3, 1H4, 1H5, 1H6, 1H7, 1H8, 1H9, 1H0/ DATA BLANK / 1H / C IFRCOL = ICOL NUMBER = 0 50 IF (ICOL .GE. 80) GO TO 350 IF (ICHAR(ICOL) .EQ. BLANK) GO TO 200 DO 100 K = 1,10 IF (ICHAR(ICOL) .NE. NUMS(K)) GO TO 100 NEWNUM = MOD(K,10) NUMBER = NUMBER*10 + NEWNUM GO TO 150 100 CONTINUE GO TO 250 150 ICOL = ICOL + 1 GO TO 50 200 ICOL = ICOL + 1 IF (NUMBER .EQ. 0) GO TO 50 GO TO 350 250 NUMBER = 0 J = 0 K = 1 WRITE (OPTAPE,300) UFM,IFRCOL,RECORD,J,(I,I=1,8),K,(J,I=1,8) 300 FORMAT (A23,' 8030, EXPECTED AN INTEGER NEAR COLUMN',I3, 1 ' IN THE FOLLOWING CARD', //20X,20A4, /,(20X,I1,I9,7I10)) 350 RETURN END ================================================ FILE: mis/xrgsst.f ================================================ SUBROUTINE XRGSST (NEWSOL) C C PURPOSE - XRGSST PROCESSES SUBSTRUCTURE CONTROLS CARDS IN C A RIGID FORMAT (I.E., THE ****PHS- CARDS) C C AUTHOR - RPK CORPORATION; DECEMBER, 1983 C C INPUT C ARGUMENTS C NEWSOL SOLUTION NUMBER C OTHER C /SYSTEM/ C OPTAPE UNIT NUMBER CONTAINING THE PRINT FILE C /XRGDXX/ C ICHAR CONTAINS THE CARD IMAGE IN 80A1 FORMAT C IDMAP CURRENT DMAP SEQUENCE NUMBER C IPHASE PHASE NUMBER C RECORD CARD IMAGE IN 20A4 FORMAT C C OUTPUT C /XRGDXX/ C ICOL COLUMN NUMBER LAST PROCESSED C IERROR ERROR FLAG - NON-ZERO IF AN ERROR OCCURRED C C LOCAL VARIABLES C BEGIN CONTAINS THE VALUE 1HB C BLANK CONTAINS THE VALUE 1H C DELETE CONTAINS THE VALUE 1HD C EIGHT CONTAINS THE VALUE 1H8 C END CONTAINS THE VALUE 1HE C FIVE CONTAINS THE VALUE 1H5 C ICFLAG FLAG TO DISTINGUISH WHICH COMMON BLOCK IS C BEING PROCESSED C =1, /PHAS11/ ; =2, /PHAS25/ ; =3, /PHAS28/ C =4, /PHAS31/ ; =5, /PHAS37/ C IFLAG FLAG FOR THE KIND OF COMMAND BEING PROCESSED C =1, FOR INSERT; =2, FOR DELETE; C =3, FOR DELETE BEGIN; =4 FOR DELETE END C IMAP 2 WORD ARRAY FOR DMAP NUMBERS C IND11 INDEX FOR COMMON /PHAS11/ C IND25 INDEX FOR COMMON /PHAS25/ C IND28 INDEX FOR COMMON /PHAS28/ C IND31 INDEX FOR COMMON /PHAS31/ C IND37 INDEX FOR COMMON /PHAS37/ C LFLAG ARRAY USED FOR THE LAST FLAG (I.E., IFLAG) C THAT WAS APPLIED TO A GIVEN COMMON - THIS C IS USED TO CHECK FOR MATCHING 'DB' AND 'DE' C SUBCOMMANDS C NMAP NUMBER OF DMAP NUMBERS IN THE ARRAY IMAP C ONE CONTAINS THE VALUE 1H1 C SEVEN CONTAINS THE VALUE 1H7 C C FUNCTIONS C XRGSST PROCESSES SUBSTRUCTURE CONTROL COMMANDS WITHIN THE C RIGID FORMAT. THE COMMANDS ARE OF THE FOLLOWING FORMAT; C ****PHS- I= (OR INSTEAD OF I=; D=, DB= OR DE= ) WHERE C THE '-' OF PHS IS THE PHASE NUMBER AND = REFERS TO THE C APPROPIATE ASCM== SUBROUTINE. FOR THE I= SUBCOMMAND, C TWO NUMBERS ( N AND 0 ) ARE ADDED TO THE APPROPIATE C COMMON. FOR THE D= SUBCOMMAND, TWO NUMBERS ( N1 AND N1 ) C ARE ADDED TO THE APPROPIATE COMMON. FOR THE DB= C SUBCOMMAND, ONE NUMBER IS ADDED TO THE COMMON AND C FOR THE DE= SUBCOMMAND, ONE NUMBER IS ADDED TO THE COMMON. C THE NUMBER THAT IS ADDED TO THE COMMONS C IS THE CURRENT DMAP SEQUENCE NUMBER AS FOUND IN THE C VARIABLE IDMAP. C THE I= COMMAND CORRESPONDS TO A DMAP ALTER INSERT C OF THE FORM ALTER N,0. THE D= SUBCOMMAND CORRESPONDS C TO THE DMAP DELETE COMMAND ALTER N1,N1. THE DB= C SUBCOMMAND GIVES THE FIRST OF A RANGE OF DMAP NUMBERS C STATEMENTS TO BE DELETED AND THE DE= GIVES THE LAST C VALUE OF THE RANGE OF DMAP STATEMENTS TO BE DELETED. C THE COMMONS ARE NAMED PHAS== WHERE THE FIRST = REFERS C TO THE PHASE NUMBER AND THE SECOND = REFERS TO THE C APPROPIATE ASCM== SUBROUTINE. C C SUBROUTINES CALLED - XDCODE C C CALLING SUBROUTINES - XRGDFM C C ERRORS C ERROR MESSAGES 8031,8032,8033,8035 ARE ISSUED C INTEGER RECORD,DELETE,BLANK,BEGIN,END,ICFLAG,OPTAPE, 1 LFLAG(5),IMAP(2),ONE,FIVE,SEVEN,EIGHT CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /XRGDXX/ IRESTR,NSUBST,IPHASE,ICOL,NUMBER,ITYPE,ISTATE, 1 IERROR,NUM(2),IND,NUMENT,RECORD(20),ICHAR(80), 2 LIMIT(2),ICOUNT,IDMAP,ISCR,NAME(2),MEMBER(2), 3 IGNORE COMMON /PHAS11/ IPAS11( 8) COMMON /PHAS25/ IPAS25(14) COMMON /PHAS28/ IPAS28(14) COMMON /PHAS31/ IPAS31( 2) COMMON /PHAS37/ IPAS37( 6) COMMON /SYSTEM/ ISYSBF,OPTAPE,DUM(98) DATA BLANK / 1H /, DELETE/ 1HD /, BEGIN / 1HB / DATA END / 1HE /, LFLAG / 5*0 / DATA ONE / 1H1 /, FIVE / 1H5 /, SEVEN / 1H7 /, EIGHT / 1H8 / DATA IND11 / 0 /, IND25 / 0 /, IND28 / 0 /, IND31 / 0 / DATA IND37 / 0 /, INSERT/ 1HI / C CALL XDCODE ICOL = 9 10 IF (ICHAR(ICOL) .EQ. BLANK ) GO TO 50 IF (ICHAR(ICOL) .NE. INSERT) GO TO 20 IFLAG = 1 NMAP = 2 IMAP(1) = IDMAP IMAP(2) = 0 GO TO 100 20 IF (ICHAR(ICOL) .NE. DELETE) GO TO 710 ICOL = ICOL + 1 IF (ICHAR(ICOL) .EQ. BEGIN) GO TO 30 IF (ICHAR(ICOL) .EQ. END ) GO TO 40 IFLAG = 2 NMAP = 2 IMAP(1) = IDMAP IMAP(2) = IDMAP GO TO 110 30 IFLAG = 3 NMAP = 1 IMAP(1) = IDMAP GO TO 100 40 IFLAG = 4 NMAP = 1 IMAP(1) = IDMAP GO TO 100 50 IF (ICOL .GE. 80) GO TO 800 ICOL = ICOL + 1 GO TO 10 100 ICOL = ICOL + 1 110 IF (IPHASE .NE. 1) GO TO 120 IF (ICHAR(ICOL) .NE. ONE) GO TO 710 ICFLAG = 1 GO TO 200 120 IF (IPHASE .NE. 2) GO TO 140 IF (ICHAR(ICOL) .NE. FIVE) GO TO 130 ICFLAG = 2 GO TO 200 130 IF (ICHAR(ICOL) .NE. EIGHT) GO TO 710 ICFLAG = 3 GO TO 200 140 IF (ICHAR(ICOL) .NE. ONE) GO TO 150 ICFLAG = 4 GO TO 200 150 IF (ICHAR(ICOL) .NE. SEVEN) GO TO 710 ICFLAG = 5 200 IF (IFLAG.EQ.4 .AND. LFLAG(ICFLAG).NE.3) GO TO 730 IF (IFLAG.EQ.3 .AND. LFLAG(ICFLAG).EQ.3) GO TO 740 IF (IFLAG.LE.2 .AND. LFLAG(ICFLAG).EQ.3) GO TO 740 LFLAG(ICFLAG) = IFLAG ICOL = ICOL + 1 GO TO (210,220,230,240,250), ICFLAG 210 IF (IND11+NMAP .GT. 8) GO TO 720 DO 215 K = 1,NMAP IND11 = IND11 + 1 IPAS11(IND11) = IMAP(K) 215 CONTINUE GO TO 800 220 IF (IND25+NMAP .GT. 14) GO TO 720 DO 225 K = 1,NMAP IND25 = IND25 + 1 IPAS25(IND25) = IMAP(K) 225 CONTINUE GO TO 800 230 IF (IND28+NMAP .GT. 14) GO TO 720 DO 235 K = 1,NMAP IND28 = IND28 + 1 IPAS28(IND28) = IMAP(K) 235 CONTINUE GO TO 800 240 IF (IND31+NMAP .GT. 2) GO TO 720 DO 245 K = 1,NMAP IND31 = IND31 + 1 IPAS31(IND31) = IMAP(K) 245 CONTINUE GO TO 800 250 IF (IND37+NMAP .GT. 6) GO TO 720 DO 255 K = 1,NMAP IND37 = IND37 + 1 IPAS37(IND37) = IMAP(K) 255 CONTINUE GO TO 800 C C ERRORS C 710 J = 0 K = 1 WRITE (OPTAPE,715) UFM,ICOL,RECORD,J,(I,I=1,8),K,(J,I=1,8) 715 FORMAT (A23,' 8031, INVALID PARAMETER NEAR COLUMN ',I3, 1 ' IN THE FOLLOWING CARD', //20X,20A4, /,(20X,I1,I9,7I10)) IERROR = 1 GO TO 770 720 WRITE (OPTAPE,725) UFM,IPHASE,RECORD 725 FORMAT (A23,' 8032, ',19H' TOO MANY '****PHS,I1, 9H' ENTRIES, 1 ' ERROR OCCURRED ON CARD', //20X,20A4) GO TO 770 730 WRITE (OPTAPE,735) UFM,RECORD 735 FORMAT (A23,' 8033, ',34H A 'DE' ENTRY HAS NO MATCHING 'DB', 1 ' ENTRY - ERROR ON CARD', //20X,20A4) GO TO 770 740 WRITE (OPTAPE,745) UFM,RECORD 745 FORMAT (A23,' 8035, ', 1 41H ATTEMP TO NEST 'DB'S OR NO MATCHING 'DE', 2 ' - ERROR OCCURRED ON THE FOLLOWING CARD', /20X,20A4) 770 IERROR = 1 800 RETURN END ================================================ FILE: mis/xrgsub.f ================================================ SUBROUTINE XRGSUB (IRESTB,SUBSET) C**** C PURPOSE - XRGSUB PROCESSES THE ****SBST CONTROL CARD IN C RIGID FORMAT DATA BASE C C AUTHOR - RPK CORPORATION; DECEMBER, 1983 C C INPUT C ARGUMENTS C SUBSET SUBSET NUMBERS GIVEN BY THE USER C OTHER C /XRGDXX/ C NSUBST NUMBER OF SUBSET NUMBERS GIVEN BY USER C NUM 2 WORD ARRAY CONTAINING A RANGE OF NUMBERS C FROM THE LIST OF NUMBERS ON THE ****SBST C CONTROL CARD C NUMENT NUMBER OF WORDS PER ENTRY IN THE MODULE C EXECUTION DECISION TABLE C C OUTPUT C ARGUMENTS C IRESTB MODULE EXECUTION DECISION TABLE ENTRY FOR C CURRENT DMAP STATEMENT C OTHER C /XRGDXX/ C ICOL COLUMN NUMBER BEING PROCESSED ON THE CARD C IERROR ERROR FLAG - NON-ZERO IF AN ERROR OCCURRED C IGNORE IGNORE FLAG SET TO NON-ZERO IF THE DMAP C STATEMENT IS TO BE DELETED BY THE SUBSET C LIMIT LOWER/UPPER LIMITS OF VALUES WITHIN AN C ENTRY ON THE CARD C C LOCAL VARIABLES C IEND VALUE OF NUM(2) C ISTR VALUE OF NUM(1) C C FUNCTIONS C XRGSUB CALLS XRGDEV TO EXTRAPOLATE THE NUMBER FROM THE C THE CARD AND THEN IT COMPARES THE NUMBER(S) WITH THOSE C SUPPLIED BY THE USER AS SUBSETS. IF A MATCH IS FOUND, C IGNORE IS SET AND THE MODULE EXECUTION DECISION TABLE C ENTRY IS SET TO ZERO. CHECKS CONTINUE UNTIL ALL VALUES C GIVEN ON ****SBST CARD HAD BEEN CHECK OR UNTIL A MATCH C IS FOUND C C SUBROUTINES CALLED - XDCODE,XRGDEV C C CALLING SUBROUTINES - XRGDFM C C ERRORS - NONE C C**** INTEGER RECORD,SUBSET(12),IRESTB(7) COMMON /XRGDXX/ IRESTR,NSUBST,IPHASE,ICOL,NUMBER,ITYPE, 1 ISTATE,IERROR,NUM(2),IND,NUMENT, 2 RECORD(20),ICHAR(80),LIMIT(2), 3 ICOUNT,IDMAP,ISCR,NAME(2),MEMBER(2),IGNORE C ICOL = 9 IERROR = 0 CALL XDCODE LIMIT(1) = 1 LIMIT(2) = 12 200 CALL XRGDEV IF (IERROR.NE.0 .OR. ICOL.GT.80) GO TO 700 ISTR = NUM(1) IEND = NUM(2) DO 400 K = ISTR,IEND DO 300 KK = 1,NSUBST IF (K .EQ. SUBSET(KK)) GO TO 500 300 CONTINUE 400 CONTINUE ICOL = ICOL + 1 GO TO 200 500 DO 600 K = 1,NUMENT IRESTB(K) = 0 600 CONTINUE IGNORE = 1 700 RETURN END ================================================ FILE: mis/xsave.f ================================================ SUBROUTINE XSAVE C THE PURPOSE OF THIS ROUTINE IS TO PERFORM THE FUNCTIONS ASSIGNED C TO THE SAVE DMAP INSTRUCTION. C COMMON/XVPS/ IVPS(1) COMMON/BLANK/ IPAR(1) COMMON /OSCENT/ IOSCR(7) C GET NUMBER OF PARAMETERS FROM OSCAR N = IOSCR(7)*2 + 6 DO 20 I1 = 8,N,2 C GET VPS POINTER AND POINTER TO VALUE IN BLANK COMMON. J = IOSCR(I1) K = IOSCR(I1+1) C GET LENGTH OF VALUE FROM VPS L = IVPS(J-1) C TRANSFER VALUE FROM BLANK COMMON TO VPS DO 10 I2 = 1,L IVPS(J) = IPAR(K) J = J + 1 10 K = K + 1 20 CONTINUE RETURN END ================================================ FILE: mis/xscndm.f ================================================ SUBROUTINE XSCNDM C C THE PURPOSE OF THIS ROUTINE IS TO RETURN TO THE CALLING PROGRAM C THE NEXT BCD OR BINARY ENTRY IN DMAP ARRAY. C C IBUFF = BUFFER AREA WHERE CARD IMAGE IS STORED FOR XRCARD INPUT. C IDLMTR = TABLE OF DELIMITER CHARACTERS C ITYPE = TABLE FOR CONVERTING NUMBER TYPE TO WORD LENGTH. C C LAST REVISED BY G.CHAN/UNISYS, 2/90 C REMOVING LVAX AND .NOT.LVAX AND STANDARDIZED ALL BYTE OPERATIONS C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ORF INTEGER GNOBUF(1),ITYPE(6),DMPCRD(1),IDLMTR(8),OS(5), 1 OSCAR(1) COMMON /SYSTEM/ KSYSTM(100) COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI, 1 NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT, 2 NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT, 3 NCHKPT,NPURGE,NEQUIV,NACPW,NBPC,NAWPC, 4 MASKHI,MASKLO,ISGNON,NOSGN,IALLON COMMON /XGPIE / NSCR COMMON /ZZZZZZ/ CORE(1) COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT, 1 IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD, 2 MODIDX,LDMAP,ISAVDW,DMAP(1) COMMON /XGPI5 / IAPP,START,ALTER(2) COMMON /XGPI6 / KRUD(6),DIAG14,DIAG17,DIAG4,DIAG25,IFIRST, 1 IBUFF(20) COMMON /PASSER/ ISTOPF,MODNAM,KKCOMM EQUIVALENCE (KSYSTM(3),NOGO),(CORE(1),OS(1),LOSCAR), 1 (OS(2),OSPRC),(OS(3),OSBOT),(OS(4),OSPNT), 2 (OS(5),OSCAR(1),DMPCRD(1),GNOBUF(1)) DATA ITYPE / 1,1,2,2,2,4/ ,IDLMTR/ 1 4H$ , 4H/ ,4H= ,4H, ,4H( ,4H) ,4H ,4H* / DATA NOSCR1/ 4HOSCA/, NOSCR2/4HR / DATA NPT / 4HNPTP/, IZERO / 0 / DATA NWPC / 18 /, NCPW / 4 / C C *** WARNING - NWPC AFFECTS CODE IN XOSGEN SO BEWARE IF YOU CHANGE IT. C KCOMMA = KHRFN1(IZERO,1,IDLMTR(4),1) KBLANK = KHRFN1(IZERO,1,IDLMTR(7),1) KKCOMM = 0 C C CHECK FOR OSCAR TABLE OVERFLOW C IF (OSCAR(OSBOT)+OSBOT .GT. ICRDTP) GO TO 310 C C CHECK FOR CARD READ ERROR C IF (NOGO .EQ. 2) GO TO 340 C C CHECK FOR NEW CARD NEEDED. C IF (NEWCRD .NE. 0) GO TO 200 IF (BCDCNT) 330,10,130 C C BCDCNT = 0, TEST MODE C 10 IF (MODNAM .EQ. 0) GO TO 90 KFL1 = 0 ICOM = 0 DO 80 KH = 1,NWPC DO 70 KDH = 1,NCPW NCHAR = KHRFN1(IZERO,1,IBUFF(KH),KDH) IF (NCHAR-KBLANK) 40,20,40 20 IF (KFL1) 30,70,30 30 KFL1 = 2 GO TO 70 40 IF (NCHAR-KCOMMA) 50,60,50 50 IF (ICOM.EQ.1 .OR. KFL1.EQ.2) GO TO 90 KFL1 = 1 GO TO 70 60 KFL1 = 2 ICOM = ICOM + 1 IF (ICOM .NE. 2) GO TO 70 KKCOMM = 1 GO TO 90 70 CONTINUE 80 CONTINUE 90 IF (DMAP(IDMPNT) .EQ. RSHIFT(IALLON,1)) GO TO 180 IF (DMAP(IDMPNT)) 100,110,120 C C BINARY VALUE - TRANSLATE TYPE INTO LENGTH C 100 I = IABS(DMAP(IDMPNT)) IF (I .GT. 6) GO TO 330 C C A MISUNDERSTANDING MAKES THE FOLLOWING STATEMENT NECESSARY. C DMAP(IDMPNT) = ORF(ISGNON,I) LENGTH = ITYPE(I) DMPPNT = IDMPNT IDMPNT = LENGTH + 1 + IDMPNT IRTURN = 3 GO TO 350 C C CONTINUE MODE - GET NEXT CARD C 110 NEWCRD = 1 GO TO 200 C C MODE IS BCD, INITIALIZE BCDCNT, DMPPNT, AND CHECK FOR OVERFLOW C 120 BCDCNT = DMAP(IDMPNT) IDMPNT = IDMPNT + 1 IF (2*BCDCNT+IDMPNT .GT. LDMAP) GO TO 330 C C TEST FOR OPERATOR ENTRY. C 130 IRTURN = 2 IF (DMAP(IDMPNT) .EQ. IALLON) GO TO 150 140 DMPPNT = IDMPNT IDMPNT = IDMPNT + 2 BCDCNT = BCDCNT - 1 GO TO 350 C C DELIMITER FOUND - CHECK FOR COMPLEX NUMBER C 150 IRTURN = 1 IF (KHRFN1(IZERO,1,DMAP(IDMPNT+1),1) .NE. 1 KHRFN1(IZERO,1,IDLMTR(5),1)) GO TO 140 C C LEFT PAREN FOUND - SEE IF TWO NUMBERS FOLLOW C IF (DMAP(IDMPNT+2).EQ.-2 .AND. DMAP(IDMPNT+4).EQ.-2) GO TO 160 IF (DMAP(IDMPNT+2).NE.-4 .OR. DMAP(IDMPNT+5).NE.-4) GO TO 140 C C DOUBLE PRECISION COMPLEX NUMBER FOUND - FORM NUMBER CORRECTLY AND C SET TYPE CODE. C DMAP(IDMPNT+5) = DMAP(IDMPNT+4) DMAP(IDMPNT+4) = DMAP(IDMPNT+3) DMAP(IDMPNT+3) = -6 GO TO 170 C C SINGLE PRECISION COMPLEX NUMBER FOUND - FORM NUMBER CORRECTLY C 160 DMAP(IDMPNT+4) = DMAP(IDMPNT+3) DMAP(IDMPNT+3) = -5 170 BCDCNT = 0 IDMPNT = IDMPNT + 3 GO TO 100 C C END OF DMAP INSTRUCTION C 180 IRTURN = 4 GO TO 350 C C GET NEXT CARD IMAGE AND TRANSLATE INTO DMAP ARRAY. C 200 IBUFCT = 1 IBWRD = 1 ICALL = 0 C C CHECK FOR INSERT TO BE MADE C IF (INSERT.GT.0 .OR. INSERT.EQ.-1) GO TO 210 GO TO 250 C C GET NEXT CARD IMAGE FROM ALTER FILE C 210 CONTINUE CALL READ (*230,*220,NPT,IBUFF,18,1,L) GO TO 260 C C NO MORE INSTRUCTIONS TO INSERT FOR THIS ALTER C MOVE NEXT ALTER CONTROL TO ALTER CELLS C 220 ALTER(1) = IBUFF(1) ALTER(2) = IBUFF(2) GO TO 240 C C END OF ALTER FILE - SET ALTER CELL INFINITE C 230 ALTER(1) = 10000 240 CONTINUE IF (NEWCRD .GT. 0) GO TO 300 GO TO 180 C C FILL IBUFF WITH CARD IMAGE C 250 CALL READ (*320,*260,NSCR,IBUFF,NWPC,0,LX) C C CHECK INSERT FOR NO PRINT C 260 IF (INSERT .LT. 0) GO TO 270 C C PRINTOUT DMAP INSTRUCTION C IF (IFIRST .EQ. 0) GO TO 270 IF (DIAG17.EQ.0 .AND. (DIAG14.EQ.0 .OR. DIAG14.GE.10)) GO TO 270 I = 5 IF (NEWCRD .GT. 0) I = 6 CALL XGPIMW (I,NWPC,DMPCNT,IBUFF) C C CHECK FOR COMMENT CARD C 270 IF (KHRFN1(IZERO,1,IDLMTR(1),1) .EQ. KHRFN1(IZERO,1,IBUFF(1),1)) 1 GO TO 200 C C CONVERT CARD IMAGE C CALL XRCARD (DMAP,LDMAP,IBUFF) C C CHECK FOR BAD CARD FORMAT C IF (DMAP(1) .EQ. 0) GO TO 180 C C TRANSLATE CARD IMAGE INTO DMAP ARRAY C IDMPNT = 1 BCDCNT = 0 NEWCRD = 0 GO TO 10 C C DIAGNOSTIC MESSAGES - C C ERROR IN ALTER DECK - CANNOT FIND LOGICAL END OF CARD C 300 CALL XGPIDG (40,0,0,0) GO TO 180 C C OSCAR TABLE OVERFLOW C 310 CALL XGPIDG (14,NOSCR1,NOSCR2,DMPCNT) CALL XGPIDG (-38,2000,0,0) C C THIS DMAP INSTRUCTION NOT FOLLOWED BY END CARD. C 320 CALL XGPIDG (44,OSPNT,0,0) GO TO 340 C C CANNOT INTERPRET DMAP CARD C 330 CALL XGPIDG (34,0,DMPCNT,0) C C ABORT - CANNOT CONTINUE COMPILATION C 340 NOGO = 2 IRTURN = 5 350 RETURN END ================================================ FILE: mis/xsem00.f ================================================ SUBROUTINE XSEM00 C ********************************************************************** C THE PURPOSE OF THIS ROUTINE IS TO EXECUTE THE PREFACE AND THEN TO C EXECUTE MODULES ACCORDING TO THE DMAP. THE DMAP IS READ FROM THE C OSCAR. FOR EACH MODULE TO BE EXECUTED, THE FIST AND XVPS ARE SETUP. C CWKBD 5/95 C INTEGER ORF INTEGER ANDF ,DATABF,ERRFLG,FIST ,FISTNM,FSTRST,OPNTR 1 ,PARML,PARAM ,PARMN ,POOL ,RSHIFT,SCRTCH 2 ,VPS ,VPARML,TYPECD,VPSX ,WORDB ,WORDE 3 ,PLOTF,EXIT ,SYSBUF,SUBNAM(2) INTEGER EQUIV(2), PURGE(2), XEQU, XPUR, XSAV, YCHK CWKBI 5/95 CHARACTER*4 WORDC C LOGICAL LVAX C DIMENSION SCRTCH(3),WORDB(4),WORDE(2),NUMBR(10) C COMMON/MACHIN/MACH COMMON/SEM /MASK ,MASK2 ,MASK3 ,LINKNM(15) 1 F /SYSTEM/SYSBUF,XX(20),LINKNO,XXX(16),NBPC,NBPW,NCPW,XXXX(53) F ,ISPERLNK G H /XLINK /LXLINK,MAXLNK,MXLINK(1) 1 2 /XFIST /FIST(2) 3 4 /XPFIST/FSTRST 5 6 /OSCENT/INOSCR(200) 7 8 /ZZZZZZ/DATABF(1) 9 A /BLANK /PARAM(100) B C /XVPS /VPS(1) D E /MSGX /NMSG C EQUIVALENCE (XX(1),NOUT) EQUIVALENCE (XX(19),PLOTF) equivalence (xx(17),itmbgn) CWKBI 5/95 EQUIVALENCE ( WORDC, WORDB ) C DATA POOL /4HPOOL/ 3, SCRTCH /4HSCRA,4HTCH0,4HTCH0/ 4, NUMBR /1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9,1H0 / 5, WORDB /4HSEM1,4HBEGN,4H ,4H / 5, WORDE /4HBEGN,4HEND / 6, IBLNK /4H / 6, MODX / 215/ 7, EXIT /4HEXIT/ DATA SUBNAM /4HXSEM,2H00/ DATA EQUIV, PURGE /4HEQUI, 4HV , 4HPURG, 4HE / DATA XEQU , XPUR /4HXEQU, 4HXPUR/ DATA XSAV , YCHK /4HXSAV, 4HXCHK/ C***** C INITIALIZE MACHINE DEPENDENT CONSTANTS CALL BTSTRP LVAX = MACH.EQ.5 C***** C EXECUTE PREFACE C***** KSCR= LSHIFT(1,NBPW-4*NBPC) CALL TDATE(XX(14)) CALL CONMSG(WORDB,2,1) CALL SEMINT ( 0 ) ISPERLNK = 1 WORDB(2) = WORDE(2) CALL CONMSG ( WORDB,2,1) IPLOT = PLOTF IF (PLOTF .LT. 0) PLOTF=1 IBUF1 = KORSZ(DATABF)-SYSBUF GO TO 20 C***** C RETURN HERE AFTER MODULE HAS EXECUTED C***** 10 IF (INOSCR(4).EQ.XSAV.OR.INOSCR(4).EQ.YCHK) GO TO 20 WORDB(4) = WORDE(2) C CALL CONMSG(WORDB,4,0) CALL CONMSG(WORDB,4,222222) 20 IF(NMSG .GT. 0) CALL MSGWRT CALL OPEN(*270,POOL,DATABF(IBUF1),2) C***** C READ THE OSCAR ENTRY C***** 30 CALL READ(*280,*40,POOL,INOSCR,200,1,ERRFLG) GO TO 290 40 IF (INOSCR(6))50,30,30 C***** C TRY AGAIN IF EXECUTE FLAG IS OFF C***** 50 CALL CLOSE(POOL,2) TYPECD= ANDF(INOSCR(3),MASK) C***** C NOW DETERMINE TYPE OF OSCAR FORMAT C***** IF(TYPECD .GT. 2) GO TO 200 C***** C***** C NOW PROCESSING TYPE O AND F C***** 60 MODNO= INOSCR(2) FIST(2)= FSTRST OPNTR = 7 ASSIGN 110 TO MM FISTNM=101 C***** C PROCESS FILES IN OSCAR ENTRY. C***** 70 J=INOSCR(OPNTR) OPNTR=OPNTR+1 IF(J.EQ.0) GO TO 100 DO 90 I=1,J CALL GNFIST(INOSCR(OPNTR),FISTNM,MODNO) IF(MODNO) 60,260,80 80 OPNTR= OPNTR+ 3 90 FISTNM=FISTNM+1 100 GO TO MM,(110,120) C***** C SETUP TO PROCESS OUTPUT FILES C***** 110 IF(TYPECD.EQ.2) GO TO 120 ASSIGN 120 TO MM FISTNM=201 GO TO 70 C***** C PROCESS SCRATCH FILES C***** 120 J1= INOSCR(OPNTR) IF(J1.EQ.0) GO TO 140 FISTNM= 301 SCRTCH(2) = SCRTCH(3) LL = 1 L = 0 DO 130 J=1,J1 L = L + 1 IF ( L .EQ. 10 ) SCRTCH(2) = KHRFN1(SCRTCH(2),3,NUMBR(LL),1) SCRTCH(2) = KHRFN1(SCRTCH(2),4,NUMBR(L),1) CALL GNFIST(SCRTCH,FISTNM,MODNO) IF ( L .NE. 10 ) GO TO 125 L = 0 LL = LL + 1 125 IF(MODNO) 60,260,130 130 FISTNM=FISTNM+1 140 OPNTR=OPNTR+1 C***** C NOW PROCESS PARAMETER LIST IN OSCAR C PARMN = NO. OF PARAMETERS TO PROCESS C***** PARMN=INOSCR(OPNTR) IF(PARMN .EQ. 0) GO TO 200 II=1 OPNTR= OPNTR+ 1 DO 190 J2=1,PARMN IF(INOSCR(OPNTR))170,150,150 C***** C NOW PROCESS CONSTANT PARAMETER C***** 150 PARML=INOSCR(OPNTR) OPNTR=OPNTR+1 DO 160 J3=1,PARML PARAM(II)=INOSCR(OPNTR) II=II+1 160 OPNTR=OPNTR+1 GO TO 190 C***** C MOVE VARIABLE INTO COMMON VIA VPS TABLE C***** 170 VPSX= ANDF(INOSCR(OPNTR),MASK3) OPNTR=OPNTR+1 VPARML=VPS(VPSX-1) DO 180 J5=1,VPARML PARAM(II)=VPS(VPSX) II=II+1 180 VPSX=VPSX+1 190 CONTINUE 200 MODX = RSHIFT(INOSCR(3),16) C***** C MODULE IS IN THIS LINK C PRINT TIME MODULE BEGAN EXECUTION IF FUNCTIONAL MODULE C***** 245 WORDB(2) = INOSCR(4) WORDB(3) = INOSCR(5) IF (INOSCR(4).NE.XEQU.AND.INOSCR(4).NE.XPUR) GO TO 250 IF (INOSCR(4).NE.XEQU) GO TO 248 WORDB(2) = EQUIV(1) WORDB(3) = EQUIV(2) GO TO 250 248 WORDB(2) = PURGE(1) WORDB(3) = PURGE(2) 250 CALL TMTOGO (KTIME) IF (KTIME.LE.0.AND.WORDB(2).NE.EXIT) * CALL MESAGE (-50, 0, WORDB(2)) IF (INOSCR(4).EQ.XSAV.OR.INOSCR(4).EQ.YCHK) GO TO 1000 WORDB(1) = IBLNK WORDB(4) = WORDE(1) C C EXTRACT DMAP SEQUENCE NUMBER C IDIN = ANDF(INOSCR(6),MASK) CWKBIB 5/95 WRITE( WORDC, 251 ) IDIN 251 FORMAT( I4 ) CWKBIE 5/95 CWKBDB 5/95 C DO 251 I =1,4 C ICHR = IDIN -(IDIN/10)*10 +1 C L = NBPW-NBPC C IF (.NOT.LVAX) WORDB(1) = C * ORF(RSHIFT(WORDB(1),NBPC),LSHIFT(RSHIFT(NUMBR(ICHR),L),L)) C IF (LVAX) WORDB(1)=KHRFN1(WORDB(1),5-I,NUMBR(ICHR),1) C IDIN = IDIN/10 C IF(IDIN .EQ. 0) GO TO 252 C 251 CONTINUE CWKBDE 5/95 252 CONTINUE C CALL CONMSG(WORDB,4,0) CALL CONMSG(WORDB,4,111111) GO TO 1000 C***** C E R R O R M E S S A G E S C***** C MODULE REQUIREMENTS EXCEED AVAILABLE FILES 260 INOSCR(6) = ANDF(INOSCR(6),MASK) CALL MESAGE(-18,INOSCR(6),INOSCR(4)) C C UNEXPECTED ALTERNATE RETURN TAKEN WHILE ATTEMPTING TO OPEN POOL TAPE. 270 CONTINUE KODE = 270 GO TO 990 C C OSCAR FILE POSITIONED INCORRECTLY - HIT EOF. 280 CONTINUE KODE = 280 GO TO 990 C C OSCAR RECORD TOO LARGE FOR /OSCENT/ 290 CONTINUE KODE = 290 GO TO 990 C C LINK SPECIFICATIONS INCORRECT FOR THIS MODULE. 940 CONTINUE WRITE (NOUT,945) WORDB,MODX 945 FORMAT (/1X,4A4,I9) KODE = 940 GO TO 990 C C 990 CONTINUE WRITE(NOUT,991) KODE 991 FORMAT(64H0*** SYSTEM FATAL MESSAGE 1006, LINK DRIVER LOGIC ERROR *- CODE =,I4) CALL MESAGE(-37,0,SUBNAM) C********************************************************************** C EXECUTE MODULE 1000 CALL SSWTCH ( 2, LDIAG ) C IF ( LDIAG .NE. 0 .AND. MODX .GT. 14 ) CALL DBMDIA IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1( 940, 940, 2003, 940, 2005, 2006, 2007, 2008, 2009, 2010),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2021, 2022, 2023, 2024, 2025, 2026, 2027, 2028, 2029, 2030),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2031, 2032, 2033, 2034, 2035, 2036, 2037, 2038, 2039, 2040),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2041, 2042, 2043, 2044, 2045, 2046, 2047, 2048, 2049, 2050),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2051, 2052, 2053, 2054, 2055, 2056, 2057, 2058, 2059, 2060),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2061, 2062, 2063, 2064, 2065, 2066, 2067, 2068, 2069, 2070),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2071, 2072, 2073, 2074, 2075, 2076, 2077, 2078, 2079, 2080),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2081, 2082, 2083, 2084, 2085, 2086, 2087, 2088, 2089, 2090),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2091, 2092, 2093, 2094, 2095, 2096, 2097, 2098, 2099, 2100),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2101, 2102, 2103, 2104, 2105, 2106, 2107, 2108, 2109, 2110),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2111, 2112, 2113, 2114, 2115, 2116, 2117, 2118, 2119, 2120),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2121, 2122, 2123, 2124, 2125, 2126, 2127, 2128, 2129, 2130),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2131, 2132, 2133, 2134, 2135, 2136, 2137, 2138, 2139, 2140),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2141, 2142, 2143, 2144, 2145, 2146, 2147, 2148, 2149, 2150),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2151, 2152, 2153, 2154, 2155, 2156, 2157, 2158, 2159, 2160),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2161, 2162, 2163, 2164, 2165, 2166, 2167, 2168, 2169, 2170),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2171, 2172, 2173, 2174, 2175, 2176, 2177, 2178, 2179, 2180),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2181, 2182, 2183, 2184, 2185, 2186, 2187, 2188, 2189, 2190),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2191, 2192, 2193, 2194, 2195, 2196, 2197, 2198, 2199, 2200),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 10 ) GO TO 1(2201, 2202, 2203, 2204, 2205, 2206, 2207, 2208, 2209, 2210),MODX MODX = MODX - 10 IF ( MODX .GE. 1 .AND. MODX .LE. 7 ) GO TO 1(2211, 2212, 2213, 2214, 2215, 2216, 2217), MODX GO TO 940 2003 CALL XCHK GO TO 10 2005 CALL XCEI GO TO 10 2006 CALL XCEI GO TO 10 2007 CALL XCEI GO TO 10 2008 CALL XSAVE GO TO 10 2009 CALL XPURGE GO TO 10 2010 CALL XEQUIV GO TO 10 2011 CALL XCEI GO TO 10 2012 CALL XCEI GO TO 10 2013 CALL XCEI GO TO 10 2014 CALL DADD GO TO 10 2015 CALL DADD5 GO TO 10 2016 CALL AMG GO TO 10 2017 CALL AMP GO TO 10 2018 CALL APD GO TO 10 2019 CALL BMG GO TO 10 2020 CALL CASE GO TO 10 2021 CALL CYCT1 GO TO 10 2022 CALL CYCT2 GO TO 10 2023 CALL CEAD GO TO 10 2024 CALL CURV GO TO 10 2025 CONTINUE GO TO 10 2026 CALL DDR GO TO 10 2027 CALL DDR1 GO TO 10 2028 CALL DDR2 GO TO 10 2029 CALL DDRMM GO TO 10 2030 CALL DDCOMP GO TO 10 2031 CALL DIAGON GO TO 10 2032 CALL DPD GO TO 10 2033 CALL DSCHK GO TO 10 2034 CALL DSMG1 GO TO 10 2035 CALL DSMG2 GO TO 10 2036 CONTINUE GO TO 10 2037 CALL DUMOD1 GO TO 10 2038 CALL DUMOD2 GO TO 10 2039 CALL DUMOD3 GO TO 10 2040 CALL DUMOD4 GO TO 10 2041 CONTINUE GO TO 10 2042 CALL EMA1 GO TO 10 C SET LINKNO TO FLAG SUBROUTINE SMA1B TO CALL EMG1B 2043 LINKNO = LINKNM(8) CALL EMG LINKNO = LINKNM(1) GO TO 10 2044 CALL FA1 GO TO 10 2045 CALL FA2 GO TO 10 2046 CALL DFBS GO TO 10 2047 CALL FRLG GO TO 10 2048 CALL FRRD GO TO 10 2049 CONTINUE GO TO 10 2050 CALL GI GO TO 10 2051 CALL GKAD GO TO 10 2052 CALL GKAM GO TO 10 2053 CALL GP1 GO TO 10 2054 CALL GP2 GO TO 10 2055 CALL GP3 GO TO 10 2056 CALL GP4 GO TO 10 2057 CALL GPCYC GO TO 10 2058 CALL GPFDR GO TO 10 2059 CALL DUMOD5 GO TO 10 2060 CALL GPWG GO TO 10 2061 CONTINUE GO TO 10 2062 CALL INPUT GO TO 10 2063 CALL INPTT1 GO TO 10 2064 CALL INPTT2 GO TO 10 2065 CALL INPTT3 GO TO 10 2066 CALL INPTT4 GO TO 10 2067 CALL MATGEN GO TO 10 2068 CALL MATGPR GO TO 10 2069 CALL MATPRN GO TO 10 2070 CALL PRTINT GO TO 10 2071 CALL MCE1 GO TO 10 2072 CALL MCE2 GO TO 10 2073 CALL MERGE1 GO TO 10 2074 CONTINUE GO TO 10 2075 CALL MODA GO TO 10 2076 CALL MODACC GO TO 10 2077 CALL MODB GO TO 10 2078 CALL MODC GO TO 10 2079 CALL DMPYAD GO TO 10 2080 CALL MTRXIN GO TO 10 2081 CALL OFP GO TO 10 2082 CALL OPTPR1 GO TO 10 2083 CALL OPTPR2 GO TO 10 2084 CONTINUE GO TO 10 2085 CALL OUTPT GO TO 10 2086 CALL OUTPT1 GO TO 10 2087 CALL OUTPT2 GO TO 10 2088 CALL OUTPT3 GO TO 10 2089 CALL OUTPT4 GO TO 10 2090 CALL QPARAM GO TO 10 2091 CALL PARAML GO TO 10 2092 CALL QPARMR GO TO 10 2093 CALL PARTN1 GO TO 10 2094 CONTINUE GO TO 10 2095 CALL MRED1 GO TO 10 2096 CALL MRED2 GO TO 10 2097 CALL CMRD2 GO TO 10 2098 CALL PLA1 GO TO 10 2099 CALL PLA2 GO TO 10 2100 CALL PLA3 GO TO 10 2101 CALL PLA4 GO TO 10 2102 CONTINUE GO TO 10 2103 CALL DPLOT GO TO 10 2104 CALL DPLTST GO TO 10 2105 CALL PLTTRA GO TO 10 2106 CALL PRTMSG GO TO 10 2107 CALL PRTPRM GO TO 10 2108 CALL RANDOM GO TO 10 2109 CALL RBMG1 GO TO 10 2110 CALL RBMG2 GO TO 10 2111 CALL RBMG3 GO TO 10 2112 CALL RBMG4 GO TO 10 2113 CONTINUE GO TO 10 2114 CALL REIG GO TO 10 2115 CALL RMG GO TO 10 2116 CALL SCALAR GO TO 10 2117 CALL SCE1 GO TO 10 2118 CALL SDR1 GO TO 10 2119 CALL SDR2 GO TO 10 2120 CALL SDR3 GO TO 10 2121 CALL SDRHT GO TO 10 2122 CALL SEEMAT GO TO 10 2123 CONTINUE GO TO 10 2124 CALL SETVAL GO TO 10 2125 CALL SMA1 GO TO 10 2126 CALL SMA2 GO TO 10 2127 CALL SMA3 GO TO 10 2128 CALL SMP1 GO TO 10 2129 CALL SMP2 GO TO 10 2130 CALL SMPYAD GO TO 10 2131 CALL SOLVE GO TO 10 2132 CONTINUE GO TO 10 2133 CALL SSG1 GO TO 10 2134 CALL SSG2 GO TO 10 2135 CALL SSG3 GO TO 10 2136 CALL SSG4 GO TO 10 2137 CALL SSGHT GO TO 10 2138 CALL TA1 GO TO 10 2139 CALL TABPCH GO TO 10 2140 CONTINUE GO TO 10 2141 CALL TABFMT GO TO 10 2142 CALL TABPT GO TO 10 2143 CONTINUE GO TO 10 2144 CALL TIMTST GO TO 10 2145 CALL TRD GO TO 10 2146 CALL TRHT GO TO 10 2147 CALL TRLG GO TO 10 2148 CALL DTRANP GO TO 10 2149 CALL DUMERG GO TO 10 2150 CALL DUPART GO TO 10 2151 CALL VDR GO TO 10 2152 CALL VEC GO TO 10 2153 CONTINUE GO TO 10 2154 CALL XYPLOT GO TO 10 2155 CALL XYPRPT GO TO 10 2156 CALL XYTRAN GO TO 10 2157 CONTINUE GO TO 10 2158 CALL COMB1 GO TO 10 2159 CALL COMB2 GO TO 10 2160 CALL EXIO GO TO 10 2161 CALL RCOVR GO TO 10 2162 CALL EMFLD GO TO 10 2163 CONTINUE GO TO 10 2164 CALL RCOVR3 GO TO 10 2165 CALL REDUCE GO TO 10 2166 CALL SGEN GO TO 10 2167 CALL SOFI GO TO 10 2168 CALL SOFO GO TO 10 2169 CALL SOFUT GO TO 10 2170 CALL SUBPH1 GO TO 10 2171 CALL PLTMRG GO TO 10 2172 CONTINUE GO TO 10 2173 CALL COPY GO TO 10 2174 CALL SWITCH GO TO 10 2175 CALL MPY3 GO TO 10 2176 CALL DDCMPS GO TO 10 2177 CALL LODAPP GO TO 10 2178 CALL GPSTGN GO TO 10 2179 CALL EQMCK GO TO 10 2180 CALL ADR GO TO 10 2181 CALL FRRD2 GO TO 10 2182 CALL GUST GO TO 10 2183 CALL IFT GO TO 10 2184 CALL LAMX GO TO 10 2185 CALL EMA GO TO 10 2186 CALL ANISOP GO TO 10 2187 CONTINUE GO TO 10 2188 CALL GENCOS GO TO 10 2189 CALL DDAMAT GO TO 10 2190 CALL DDAMPG GO TO 10 2191 CALL NRLSUM GO TO 10 2192 CALL GENPAR GO TO 10 2193 CALL CASEGE GO TO 10 2194 CALL DESVEL GO TO 10 2195 CALL PROLAT GO TO 10 2196 CALL MAGBDY GO TO 10 2197 CALL COMUGV GO TO 10 2198 CALL FLBMG GO TO 10 2199 CALL GFSMA GO TO 10 2200 CALL TRAIL GO TO 10 2201 CALL SCAN GO TO 10 2202 CONTINUE GO TO 10 2203 CALL PTHBDY GO TO 10 2204 CALL VARIAN GO TO 10 2205 CALL FVRST1 GO TO 10 2206 CALL FVRST2 GO TO 10 2207 CALL ALG GO TO 10 2208 CALL APDB GO TO 10 2209 CALL PROMPT GO TO 10 2210 CALL OLPLOT GO TO 10 2211 CALL INPTT5 GO TO 10 2212 CALL OUTPT5 GO TO 10 2213 CONTINUE GO TO 10 2214 CALL QPARMD GO TO 10 2215 CALL GINOFL GO TO 10 2216 CALL DBASE GO TO 10 2217 CALL NORMAL GO TO 10 END ================================================ FILE: mis/xsfa.f ================================================ SUBROUTINE XSFA (X) C C ENTRY SIZE NUMBERS, 1=FIAT, 2=SOS, 3=MD, 4=DPD C C REVISED 8/89, SEE XSFABD C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF DIMENSION IPRT(23),NSFA(3),DDBN(1),DFNU(1),FCUM(1), 1 FCUS( 1),FDBN(1),FEQU(1),FILE(1),FKND(1), 2 FMAT( 1),FNTU(1),FPUN(1),FON (1),FORD(1), 3 MINP( 1),MLSN(1),MOUT(1),MSCR(1),SAL (1), 4 SDBN( 1),SNTU(1),SORD(1),PFIL(2,3) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /BLANK / IBNK(1) COMMON /MACHIN/ MCH COMMON /XFIAT / FIAT(7) COMMON /XFIST / FIST COMMON /XDPL / DPD(6) COMMON /ZZZZZZ/ BUF1 COMMON /SYSTEM/ IBUFSZ,OUTTAP,DUM(17),PLTFLG,DUM1,THISLK,DUM2, 1 ICFIAT,DMM(14),NBPC,NBPW,NCPW COMMON /IXSFA / LMT3,BFF,PAD,IDEFR1,IDEFR2 COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(5) EQUIVALENCE (DPD (1),DNAF ),(DPD (2),DMXLG ), 1 (DPD (3),DCULG ),(DPD (4),DDBN (1)),(DPD (6),DFNU (1)), 2 (FIAT (1),FUNLG ),(FIAT (2),FMXLG ),(FIAT (3),FCULG ), 3 (FIAT (4),FEQU (1)),(FIAT (4),FILE (1)),(FIAT (4),FORD (1)), 4 (FIAT (5),FDBN (1)),(FIAT (7),FMAT (1)),(MD (1),MLGN ), 5 (MD (2),MLSN (1)),(MD (3),MINP (1)),(MD (4),MOUT (1)), 6 (MD (5),MSCR (1)),(SOS (1),SLGN ),(SOS (2),SDBN (1)), 7 (SOS (4),SAL (1)),(SOS (4),SNTU (1)),(SOS (4),SORD (1)), 8 (XF1AT(1),FNTU (1)),(XF1AT(1),FON (1)),(XF1AT(2),FPUN (1)), 9 (XF1AT(3),FCUM (1)),(XF1AT(4),FCUS (1)),(XF1AT(5),FKND (1)) EQUIVALENCE (COMM (1),ALMSK ),(COMM (2),APNDMK ), 1 (COMM (3),CURSNO ),(COMM (4),ENTN1 ),(COMM (5),ENTN2 ), 2 (COMM (6),ENTN3 ),(COMM (7),ENTN4 ),(COMM (8),FLAG ), 3 (COMM (9),FNX ),(COMM(10),LMSK ),(COMM(11),LXMSK ), 4 (COMM(12),MACSFT ),(COMM(13),RMSK ),(COMM(14),RXMSK ), 5 (COMM(15),S ),(COMM(16),SCORNT ),(COMM(17),TAPMSK ), 6 (COMM(18),THCRMK ),(COMM(19),ZAP ) DATA OSCAR1, OSCAR2/ 4HXOSC, 4HAR /, POOL / 4HPOOL / DATA NSFA / 4HXSFA, 4H , 4H /, NS14 / 4HNS14 / DATA IBEGN, IEND / 4HBEGN, 4HEND / DATA PLUS / 1H+ / DATA PFIL / 4HPLTP, 4HAR , 4HGPSE, 4HTS , 4HELSE, 4HTS / C CALL XSFADD NSFA(3) = IBEGN CALL CONMSG (NSFA,3,0) C C ALMSK = O 377777777777 Z 7FFFFFFF ALMSK = RSHIFT(COMPLF(0),1) C C THCRMK = O 777777000000 Z FFFFFF00 THCRMK = LSHIFT(ALMSK,NBPW-(3*NBPC)) C C S = O 400000000000 Z 80000000 S = LSHIFT(1,NBPW-1) C C MACSFT = SHIFT COUNT TO PLACE INTEGER IN 4TH FROM LEFT CHARACTER MACSFT = (NCPW-4)*NBPC C ENTN1 = ICFIAT CURSNO = X C C GET OSCAR FILE POSITION AND SAVE IN FNOS C ALSO SAVE RECORD POSITION IN RNOS C CALL XPOLCK (OSCAR1,OSCAR2,FNOS,NX) IF (FNOS .EQ. 0) GO TO 920 FNX = FNOS RNOS = CURSNO CALL XSOSGN IF (MLGN .EQ. 0) GO TO 930 CALL XCLEAN C C INITIALIZE PRIOR TO FIRST MODULE ALLOCATION C ASSIGN 670 TO ITEST C LMT1 = MLGN *ENTN3 LMT8 = FUNLG*ENTN1 LMT8P1= LMT8 + 1 DO 110 I = 1,LMT8,ENTN1 IF (ANDF(TAPMSK,FILE(I)) .NE. 0) GO TO 120 110 CONTINUE TAPMSK = 0 C C LOOP THRU ALL MODULES IN SOS C 120 I = 1 125 TOTIO = MINP(I)+ MOUT(I) TOTF = TOTIO + MSCR(I) ALCNT = 0 LMT2 = LMT3 + 1 LMT4 = LMT3 + MINP(I)*ENTN2 LMT5 = LMT4 + MOUT(I)*ENTN2 LMT3 = LMT3 + TOTF *ENTN2 LMT9 = FCULG*ENTN1 NFCULG= LMT9 + 1 ITIORD= LSHIFT(MLSN(I),16) DO 130 J = 1,LMT9,ENTN1 130 FCUM(J) = 0 C C SEQUENCE THRU SOS (ONE MODULE) LOOK FOR NAME MATCH + LTU COMPARE C 150 FLAG = 0 DO 260 K = LMT2,LMT3,ENTN2 IF (SAL(K) .LT. 0) GO TO 260 ITPFLG = ANDF(TAPMSK,SNTU(K)) C C SEQUENCE THRU FIAT (NAME MATCH) C DO 170 F1 = 1,LMT9,ENTN1 IF (SDBN(K).NE.FDBN(F1) .OR. SDBN(K+1).NE.FDBN(F1+1)) GO TO 170 IF (FPUN(F1) .LT. 0) GO TO 680 FNTU(F1) = ORF(ANDF(S,FON(F1)),SNTU(K)) FCUM(F1) = -1 FCUS(F1) = -1 IF (FKND(F1) .EQ. 0) FKND(F1) = 1 GO TO 230 170 CONTINUE IF (MLSN(I) .LT. 0) GO TO 260 IF (K .LE. LMT4) GO TO 260 IF (ANDF(APNDMK,SORD(K)) .EQ. APNDMK) GO TO 260 C C SEQUENCE THRU FIAT (LTU COMPARE) C DO 220 F1 = 1,LMT9,ENTN1 IF (ITIORD .LE. ANDF(LMSK,FORD(F1))) GO TO 220 IF (FON (F1) .LT. 0) GO TO 220 IF (FCUM(F1) .LT. 0) GO TO 220 IF (FDBN(F1) .EQ. 0) GO TO 220 IF (ANDF(RMSK,FILE(F1)) .EQ. RMSK) GO TO 220 IF (ANDF(LMSK,FORD(F1)) .EQ. LMSK) GO TO 220 IF (ITPFLG.NE.0 .AND. ANDF(TAPMSK,FILE(F1)).EQ.0) GO TO 220 IF (FEQU(F1) .GE. 0) GO TO 210 FIL = ANDF(RMSK,FILE(F1)) DO 200 L = 1,LMT9,ENTN1 IF (FEQU(L) .GE. 0) GO TO 200 IF (F1 .EQ. L) GO TO 200 IF (FIL .NE. ANDF(RMSK,FILE(L))) GO TO 200 IF (ITIORD .LE. ANDF(LMSK,FORD(L))) GO TO 220 IF (FON(L) .LT. 0) GO TO 220 IF (FCUM(L) .LT. 0) GO TO 220 200 CONTINUE 210 IF (FCULG+PAD .GE. FMXLG) GO TO 680 FON(F1) = ORF(S,FON(F1)) FDBN(NFCULG ) = SDBN(K ) FDBN(NFCULG+1) = SDBN(K+1) FORD(NFCULG ) = ORF(ANDF(LXMSK,SORD(K)),ANDF(RXMSK,FILE(F1))) FNTU(NFCULG ) = SNTU(K) FCUM(NFCULG ) = -1 FCUS(NFCULG ) = -1 FKND(NFCULG ) = 2 NFCULG = NFCULG+ ENTN1 FCULG = FCULG + 1 GO TO 230 220 CONTINUE GO TO 260 230 SAL(K) = ORF(S,SAL(K)) ALCNT = ALCNT + 1 260 CONTINUE IF (ALCNT .EQ. TOTF) GO TO 600 C C SEQUENCE THRU SOS (ONE MODULE) LOOK FOR BLANK FILES + GREATER NTU C DO 550 K = LMT2,LMT3,ENTN2 IF (SAL(K) .LT. 0) GO TO 550 IF (FLAG.NE.0 .AND. K.GT.LMT4 .AND. K.LE.LMT5) GO TO 150 IAPFLG = 0 IUNPFG = 0 IF (ANDF(APNDMK,SORD(K)) .EQ. APNDMK) IAPFLG = -1 ITPFLG = ANDF(TAPMSK,SNTU(K)) C C SEQUENCE THRU FIAT-UNIQUE (BLANK FILES) C IF (BFF .LT. 0) GO TO 390 DO 330 F1 = 1,LMT8,ENTN1 IF (FDBN(F1) .NE. 0) GO TO 330 IF (ITPFLG.NE.0 .AND. ANDF(TAPMSK,FILE(F1)).EQ.0) GO TO 330 IF (K.GT.LMT4 .AND. IAPFLG.EQ.0) GO TO 310 CALL XPOLCK (SDBN(K),SDBN(K+1),FN,NX) IF (IAPFLG.NE.0 .AND. FN.EQ.0) GO TO 310 IF (FN .NE. 0) GO TO 300 IF (PLTFLG .NE. 0) GO TO 280 DO 270 IP = 1,3 IF (SDBN(K).EQ.PFIL(1,IP) .AND. SDBN(K+1).EQ.PFIL(2,IP)) GO TO 300 270 CONTINUE 280 IF (THISLK .NE. NS14) CALL MESAGE (22,0,SDBN(K)) GO TO 320 300 FPUN(F1) = FN IUNPFG = F1 310 FDBN(F1 ) = SDBN(K ) FDBN(F1+1) = SDBN(K+1) FORD(F1) = ORF(ANDF(LXMSK,SORD(K)),FILE(F1)) FNTU(F1) = SNTU(K) FCUM(F1) =-1 FCUS(F1) =-1 FKND(F1) = 3 320 SAL(K) = ORF(S,SAL(K)) ALCNT = ALCNT + 1 GO TO 540 330 CONTINUE IF (ITPFLG .EQ. 0) BFF = -1 C C SEQUENCE THRU FIAT (GREATEST NTU) FOR POOLING C 390 IF (MLSN(I) .LT. 0) GO TO 680 C C BEFORE PERMITTING POOLING CHECK IF AT LEAST ONE MODULE IS ALLOCATE C IF (I .NE. 1) GO TO 620 400 MXNTU = CURSNO MXNTUI = 0 DO 460 F1 = 1,LMT8,ENTN1 IF (FCUS(F1) .LT. 0) GO TO 460 IF (IDEFR2 .LT. 0) GO TO 420 IF (FMAT(F1).NE.0 .OR. FMAT(F1+1).NE.0 .OR. FMAT(F1+2).NE.0) 1 GO TO 410 IF (ENTN1.EQ.11 .AND. (FMAT(F1+5).NE.0 .OR. FMAT(F1+6).NE.0 .OR. 1 FMAT(F1+7).NE.0)) GO TO 410 GO TO 420 410 IDEFR1 = -1 GO TO 460 420 IF (FKND(F1) .LT. 0) GO TO 460 IF (FPUN(F1) .NE. 0) GO TO 460 IF (ITPFLG.NE.0 .AND. ANDF(TAPMSK,FILE(F1)).EQ.0) GO TO 460 TRIAL = ANDF(FNTU(F1),RMSK) IF (TRIAL .LE. MXNTU) GO TO 460 MXNTU = TRIAL MXNTUI = F1 460 CONTINUE IF (MXNTUI .NE. 0) GO TO 463 C C FILE NOT FOUND - HAS A PASS BEEN DEFERRED C IF (IDEFR1 .EQ. 0) GO TO 680 C C PASS HAS BEEN DEFERRED - TRY IT NOW C IDEFR1 = 0 IDEFR2 =-1 DO 462 IX = 1,LMT8,ENTN1 462 FKND(IX) = IABS(FKND(IX)) GO TO 400 C C A GREATER NTU FILE EXISTS C 463 N = 1 C C SEARCH FOR EQUIV OR STACKED MATCH C FIL = ANDF(RMSK,FILE(MXNTUI)) DO 470 J = LMT8P1,LMT9,ENTN1 IF (FIL .NE. ANDF(RMSK,FILE(J))) GO TO 470 C C A MATCH IS FOUND, IS MATCHED FILE USED IN CURRENT SEG C IF (FCUS(J) .LT. 0) GO TO 490 C C IF MATCHED FILE HAS NTU LESS - TEST AND SET DEFER FLAG C IF (IDEFR2 .LT. 0) GO TO 465 IF (FMAT(J).NE.0 .OR. FMAT(J+1).NE.0 .OR. FMAT(J+2).NE.0) 1 GO TO 464 IF (ENTN1.EQ.11 .AND. (FMAT(J+5).NE.0 .OR. FMAT(J+6).NE.0 .OR. 1 FMAT(J+7).NE.0)) GO TO 464 IF (ANDF(RMSK,FNTU(1)) .GE. ANDF(RMSK,FNTU(MXNTUI))) GO TO 465 464 IDEFR1 = -1 GO TO 490 C C MATCHED FILE IS O.K. - IS IT EQUIV OR STACKED C 465 IF (FEQU(J) .GE. 0) GO TO 467 FKND(J) = 7 N = N + 1 GO TO 470 C C STACKED - WIPE OUT MATCH (IF EMPTY) C 467 IF (FMAT(J).NE.0 .OR. FMAT(J+1).NE.0 .OR. FMAT(J+2).NE.0) 1 GO TO 490 IF (ENTN1.EQ.11 .AND. (FMAT(J+5).NE.0 .OR. FMAT(J+6).NE.0 .OR. 1 FMAT(J+7).NE.0)) GO TO 490 FILE(J ) = 0 FDBN(J ) = 0 FDBN(J+1) = 0 470 CONTINUE FPUN(MXNTUI) = ORF(S,N) IF (K.GT.LMT4 .AND. IAPFLG.EQ.0) GO TO 520 CALL XPOLCK (SDBN(K),SDBN(K+1),FN,NX) IF (IAPFLG.NE.0 .AND. FN.EQ.0) GO TO 520 IF (FN .NE. 0) GO TO 500 IF (THISLK .NE. 14) CALL MESAGE (22,0,SDBN(K)) GO TO 530 490 IF (FKND(MXNTUI) .EQ. 0) FKND(MXNTUI) = 9 FKND(MXNTUI) = -IABS(FKND(MXNTUI)) GO TO 400 500 FPUN(NFCULG) = FN IUNPFG = NFCULG 520 IF (FCULG+PAD .GE. FMXLG) GO TO 680 FON(MXNTUI ) = ORF(S,FON(MXNTUI)) FORD(NFCULG) = ORF(ANDF(RXMSK,FILE(MXNTUI)),ANDF(LXMSK,SORD(K))) FKND(NFCULG) = ORF(FKND(NFCULG),5) FDBN(NFCULG ) = SDBN(K ) FDBN(NFCULG+1) = SDBN(K+1) FNTU(NFCULG) = SNTU(K) FCUM(NFCULG) = -1 FCUS(NFCULG) = -1 NFCULG = NFCULG+ ENTN1 FCULG = FCULG + 1 530 SAL(K) = ORF(S,SAL(K)) ALCNT = ALCNT+ 1 540 IF (IUNPFG .EQ. 0) GO TO 550 IF (DFNU(NX) .GE. 0) GO TO 550 CALL XPLEQK (NX,IUNPFG) LMT9 = FCULG*ENTN1 NFCULG= LMT9 + 1 550 CONTINUE C C MODULE ALLOCATION COMPLETE C 600 CURSNO = ANDF(RMSK,MLSN(I)) + 1 C C END OF I MODULE PSEUDO LOOP C I = I + ENTN3 IF (I .LE. LMT1) GO TO 125 C 620 CALL XPUNP CALL XDPH C C REPOSITION OSCAR FOR SEM C CALL XPOLCK (OSCAR1,OSCAR2,FNOS,NX) IF (FNOS .EQ. 0) GO TO 920 630 CALL OPEN (*940,POOL,BUF1,0) IF (FNOS .NE. 1) CALL SKPFIL (POOL,FNOS-1) DO 650 J = 1,RNOS CALL FWDREC (*950,POOL) 650 CONTINUE CALL CLOSE (POOL,2) C 655 CONTINUE C C DUMP FIAT IF SENSE SWITCH 2 IS ON C CALL SSWTCH (2,IX) IF (IX .NE. 1) GO TO ITEST, (670,715) CALL PAGE1 CALL PAGE2 (-4) WRITE (OUTTAP,660) FIAT(1),FIAT(2),FIAT(3),X,CURSNO 660 FORMAT (15H0FIAT AFTER SFA,3I4,12H OSCAR STR ,I4,6H, STP ,I4, //, 1 ' EQ AP LTU TP UNIT NTU OF SG KN TR DATA-BLK *', 2 6X,'* TRAILER * * * PRI BLKS SEC FLS/BLKS', 3 3X,'TER FLS/BLKS') II = FIAT(3)*ENTN1 DO 665 IX = 1,II,ENTN1 IPRT( 1) = RSHIFT(FEQU(IX),NBPW-1) IPRT( 2) = RSHIFT(ANDF(APNDMK,FORD(IX)),30) IPRT( 3) = RSHIFT(ANDF(LMSK ,FORD(IX)),16) IPRT( 4) = RSHIFT(ANDF(TAPMSK,FILE(IX)),15) IPRT( 5) = ANDF(RMSK,FILE(IX)) IPRT( 6) = ANDF(RMSK,FNTU(IX)) IPRT( 7) = RSHIFT(FON(IX),NBPW-1) IPRT( 8) = FCUS(IX) IPRT( 9) = FKND(IX) IPRT(10) = RSHIFT(ANDF(TAPMSK,FNTU(IX)),15) IPRT(11) = FDBN(IX ) IPRT(12) = FDBN(IX+1) IF (IPRT(11) .NE. 0) GO TO 661 IPRT(11) = NSFA(2) IPRT(12) = NSFA(2) 661 IF (ENTN1 .EQ. 11) GO TO 662 IPRT(13) = RSHIFT(FMAT(IX),16) IPRT(14) = ANDF(RXMSK,FMAT(IX)) IPRT(15) = RSHIFT(FMAT(IX+1),16) IPRT(16) = ANDF(RXMSK,FMAT(IX+1)) IPRT(17) = RSHIFT(FMAT(IX+2),16) IPRT(18) = ANDF(RXMSK,FMAT(IX+2)) GO TO 663 662 IPRT(13) = FMAT(IX ) IPRT(14) = FMAT(IX+1) IPRT(15) = FMAT(IX+2) IPRT(16) = FMAT(IX+5) IPRT(17) = FMAT(IX+6) IPRT(18) = FMAT(IX+7) 663 IPRT(19) = RSHIFT(FMAT(IX+3),16) ITEMP = ANDF(FMAT(IX+3),RXMSK) IPRT(20) = RSHIFT(ITEMP,8) IPRT(21) = RSHIFT(FMAT(IX+4),16) IPRT(22) = ITEMP - IPRT(20)*2**8 IPRT(23) = ANDF(RXMSK,FMAT(IX+4)) CALL PAGE2 (-1) WRITE (OUTTAP,664) (IPRT(IY),IY=1,23) 664 FORMAT (1H ,2(I2,1X),I5,1X,I2,2(1X,I5),4(1X,I2),1X,2A4,6I7, 1 4X,I5,1X,2(7X,I2,1H/,I5)) 665 CONTINUE CALL XFLSZD (0,BLKSIZ,0) CALL PAGE2 (-2) WRITE (OUTTAP,628) BLKSIZ 628 FORMAT (30X,20H EACH BLOCK CONTAINS,I5,7H WORDS.) WRITE (OUTTAP,666) 666 FORMAT (52H POOL FILE CONTENTS EQ SIZE FILE DATA BLOCK) II = DPD(3)*3 DO 668 IX = 1,II,3 IPRT(1) = RSHIFT(DFNU(IX),NBPW-1) IPRT(2) = RSHIFT(DFNU(IX),16) IPRT(3) = ANDF(RXMSK,DFNU(IX)) IPRT(4) = DDBN(IX ) IPRT(5) = DDBN(IX+1) CALL PAGE2 (-1) WRITE (OUTTAP,667) (IPRT(IY),IY=1,5) 667 FORMAT (22X,I2,I7,I7,3X,2A4) 668 CONTINUE CALL DBMDIA CALL DBMSTF C GO TO ITEST, (670,715) C 670 J = MCH IF (IABS(IBNK(ENTN1*5))/1000.NE.J .AND. J.GT.6) COMM(4) = J X = CURSNO NSFA(3) = IEND CALL CONMSG (NSFA,3,0) RETURN C C MODULE ALLOCATION INCOMPLETE C 680 IF (I .NE. 1) GO TO 620 IF (ITPFLG .EQ. 0) GO TO 700 C C LOOKING FOR A TAPE + AT LEAST ONE TAPE EXISTS C NOAVAL = 0 DO 690 M = 1,LMT8,ENTN1 IF (ANDF(TAPMSK,FILE(M)) .EQ. 0) GO TO 690 IF (ANDF(TAPMSK,FNTU(M)) .EQ. 0) GO TO 710 NOAVAL = 1 690 CONTINUE IF (NOAVAL .EQ. 0) GO TO 700 TAPMSK = 0 GO TO 790 700 CURSNO = 0 GO TO 630 C C A TAPE FILE EXIST CONTAINING A D.B. NOT REQUIRING A TAPE - C FREE THAT TAPE*** CHECK FOR EQUIV AND LTU D.B. ON SAME UNIT C 710 N = 1 C ASSIGN 715 TO ITEST GO TO 655 715 CONTINUE ASSIGN 670 TO ITEST C TRIAL = ANDF(RMSK,FILE(M)) LMT = LMT8 + 1 DO 750 J = LMT,LMT9,ENTN1 IF (TRIAL .NE. ANDF(RMSK,FILE(J))) GO TO 750 INAM1 = FDBN(J ) INAM2 = FDBN(J+1) IF (FEQU(M).LT.0 .AND. FEQU(J).LT.0) GO TO 720 FDBN(J) = ALMSK GO TO 725 720 N = N + 1 725 DO 730 L = LMT2,LMT3,ENTN2 IF (INAM1.EQ.SDBN(L) .AND. INAM2.EQ.SDBN(L+1)) GO TO 740 730 CONTINUE GO TO 750 C C TURN OFF ALLOC FLAG C 740 SAL(L) = ORF(ALMSK,SAL(L)) ALCNT = ALCNT - 1 750 CONTINUE INAM1 = FDBN(M ) INAM2 = FDBN(M+1) DO 760 L = LMT2,LMT3,ENTN2 IF (INAM1.EQ.SDBN(L) .AND. INAM2.EQ.SDBN(L+1)) GO TO 770 760 CONTINUE GO TO 780 770 SAL(L) = ORF(ALMSK,SAL(L)) ALCNT = ALCNT - 1 780 FPUN(M)= ORF(S,N) CALL XPUNP FDBN(M ) = SDBN(K ) FDBN(M+1) = SDBN(K+1) FORD(M ) = ORF(ANDF(LXMSK,SORD(K)),ANDF(RXMSK,FILE(M))) FKND(M ) = 8 C CALL SSWTCH (2,IX) IF (IX .NE. 1) GO TO 790 CALL PAGE2 (-2) WRITE (OUTTAP,785) 785 FORMAT (38H0* XSFA REPEATS TO USE FREED TAPE FILE) C 790 BFF = 0 GO TO 150 C 920 WRITE (OUTTAP,921) SFM 921 FORMAT (A25,' 1001, OSCAR NOT FOUND IN DPL') GO TO 1000 930 WRITE (OUTTAP,931) SFM 931 FORMAT (A25,' 1002, OSCAR CONTAINS NO MODULES') GO TO 1000 940 WRITE (OUTTAP,941) SFM 941 FORMAT (A25,' 1003, POOL COULD NOT BE OPENED') GO TO 1000 950 WRITE (OUTTAP,951) SFM 951 FORMAT (A25,' 1004, ILLEGAL EOF ON POOL') 1000 CALL MESAGE (-37,0,NSFA) RETURN END ================================================ FILE: mis/xsfadd.f ================================================ SUBROUTINE XSFADD C CXSFABD C C REVISED 8/89 BY G.C./UNISYS C 1. THE ORDER OF COMM AND XFIAT IN /XSFA1/ ARE REVERSED IN C THIS ROUTINE AND IN THE FOLLOWING 7 SUBROUTINES - C XCLEAN, XDPH, XPOLCK, XPUNP, XPURGE, XSFA AND XSOSGN. C ANY INCREASE IN SIZE OF XFIAT CAN THEREFORE BE MADE C EASILY THROUGH OUT THESE GROUP OF ROUTINES BY JUST C CHANGING THE XFIAT DIMENSION HERE. C 2. IN THIS GROUP OF ROUTINES, THE ARRAY XFIAT IN /XSFA1/ IS C RENAMED TO XFIAT, NOT TO BE CONFUSED WITH THE XFIAT ARRAY C IN /XFIAT/ C 3. ENTN1 MUST EQUAL ICFIAT, THE 24TH WORD OF /SYSTEM/ C HOWEVER, XSFA AND XPURGE ROUTINES INITIALIZE ENTN1 AGAIN C TO ICFIAT, JUST TO BE SURE. C 4. THE DIMENSION OF XFIAT SHOULD BE 800 WHEN ENTN1 = 8, OR C 1100 WHEN ENTN1 IS 11 C INTEGER ALMSK,APNDMK,COMM,CURSNO,ENTN1,ENTN2,ENTN3, 1 ENTN4,FLAG,FNX,RMSK,RXMSK,S,SCORNT,SOS,TAPMSK, 2 THCRMK,XFIAT,ZAP CWKBR COMMON /XSFA1 / MF(401),SOS(1501),COMM(20),XFIAT(1100) COMMON /XSFA1 / MF(401),SOS(1501),COMM(20),XFIAT(1320) EQUIVALENCE (COMM (1),ALMSK ),(COMM (2),APNDMK), 1 (COMM (3),CURSNO),(COMM (4),ENTN1 ),(COMM (5),ENTN2 ), 2 (COMM (6),ENTN3 ),(COMM (7),ENTN4 ),(COMM (8),FLAG ), 3 (COMM (9),FNX ),(COMM(10),LMSK ),(COMM(11),LXMSK ), 4 (COMM(12),MACSFT),(COMM(13),RMSK ),(COMM(14),RXMSK ), 5 (COMM(15),S ),(COMM(16),SCORNT),(COMM(17),TAPMSK), 6 (COMM(18),THCRMK),(COMM(19),ZAP ) ENTN1 = 11 ENTN2 = 3 ENTN3 = 4 ENTN4 = 3 FLAG = 0 DO 10 I = 1, 1320 10 XFIAT(I) = 0 TAPMSK = 32768 C TAPMSK = O 000000100000 = Z 00008000 APNDMK = 1073741824 C APNDMK = O 010000000000 = Z 40000000 RMSK = 32767 C RMSK = O 000000077777 = Z 00007FFF RXMSK = 65535 C RXMSK = O 000000177777 = Z 0000FFFF LMSK = 1073676288 C LMSK = O 007777600000 = Z 3FFF0000 LXMSK = 2147418112 C LXMSK = O 017777600000 = Z 7FFF0000 SCORNT = 1073708992 C SCORNT = O 007777677700 = Z 3FFF7FC0 ZAP = 32767 C ZAP = O 000000077777 = Z 00007FFF END ================================================ FILE: mis/xsort.f ================================================ SUBROUTINE XSORT C C SORT READS BULK DATA CARDS FROM THE INPUT TAPE, ADJUSTS THE C FIELDS, PERFORMS AN ALPHA-NUMERIC SORT ON THE CARD IMAGES FROM C LEFT TO RIGHT, INSERTS CONTINUATION CARDS IN THEIR PROPER C POSITION, AND PLACES THE RESULTING SORTED IMAGES ON THE NEW C PROBLEM TAPE. C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF LOGICAL DEC DIMENSION HEADU(32),HEADS(32),HEADN(32),IBLKDA(2),CDCNT(3), 1 BK(4),MK(4),IBUF1(20),IBUF2(20),IBUF3(2), 2 KPARNT(2),IBUF1A(2),IBUF2A(2),NSORT(2),IIEND(2) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /MACHIN/ MACH COMMON /SYSTEM/ IBUFSZ,OUTTAP,NOGO,INTAPE,D1(14),IECHO,D,IAPPRC, 1 DUM1(2),IUEDIT,DUM44(44),ISUBS,DUM12(12),ICPFLG, 2 DUM8(8),LPCH COMMON /OUTPUT/ DUM2(96),HEAD1(32),HEAD2(32),HEAD3(32) COMMON /ZZZZZZ/ SKIP1,BUF(1) COMMON /XSRTCM/ BIMSK1(6),BIMSK2(5),BIMSK3(4),BIMSK4(4),BIMSK5(2), 1 BIMSK6,BKMSK1(8),BKMSK2,SHIFTS(4), 2 ICON1,ICON2,STAR,PLUS,DOLLAR,STARL,SLASH,SFTM, 3 MASK,BLANK,MKA,IS,MBIT4 COMMON /STAPID/ KRAP(12),KUMF COMMON /XECHOX/ FFFLAG,ECHOU,ECHOS,ECHOP EQUIVALENCE (BK(1),BKMSK1(5)),(MK(1),BIMSK2(2)), 1 (MKB ,BIMSK5(1)),(INF ,BIMSK2(1)), 2 (SFTA ,SHIFTS(2)),(MKD ,BIMSK2(2)), 3 (MKE ,BIMSK5(2)),(MKC ,BIMSK4(1)) EQUIVALENCE (BLANX,BKMSK1(8)) DATA HEADU/10*4H ,4H I N,4H P U,4H T ,4H B U,4H L K,4H D, 1 4H A T,4H A ,4H D E,4H C K,4H E,4H C H,4H O ,9*4H / DATA HEADS/11*4H ,4H S O,4H R T,4H E D,4H B,4H U L,4H K , 1 4H D A,4H T A,4H E,4H C H,4H O ,10*4H / DATA HEADN/ 3*4H ,4H ,4H ,4H ,4H . ,4H 1 ,4H.. , 1 4H 2 ,4H.. ,4H 3 ,4H.. ,4H 4 ,4H.. ,4H 5 ,4H.. , 2 4H 6 ,4H.. ,4H 7 ,4H.. ,4H 8 ,4H.. ,4H 9 ,4H.. , 3 4H10 ,4H. ,5*4H / DATA CDCNT/4HCARD,4HCOUN,4HT /,NSORT/4HXSOR,4HT / C DATA BK/4H000 ,4H00 ,4H0 ,4H / C DATA (MK(I),I=1,4)/O777777007777,O777700007777,O770000007777,O0/ C DATA MKA,MKB,INF,SFTA/O000000777777,O377777777777,O777777777777,6/ C DATA MKC/O007777777777/,MKD/O777777007777/,MKE/O377777007777/ DATA IEND1,IEND2/4HENDD,4HATA / DATA IEND3,IEND4/4HENDA,4HTA / DATA IEND5,IEND6/4HEND ,4HDATA/ C DATA STAR,PLUS,DOLLAR,STARL/4H000*,4H+000,4H$000,4H*000/ DATA IBLKDA/4HBULK,4HDATA/, IPTP/4HOPTP/, NPTP/4HNPTP/ DATA ITAPE1,ITAPE2,ITAPE3,ITAPE4,ITAPE5/301,302,303,304,305/ DATA UMF/4HUMF / DATA IDUP,IOK/4HDUPL, 4HOK / C C C XSORT MAY NOT WORK PROPERLY IN ALL UNIX MACHINES, WHICH FOLLOW C THE VAX LINE. C DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21 IF (DEC .AND. LPCH.NE.77) WRITE (OUTTAP,5) UWM 5 FORMAT (A25,', SWITCHING TO OLD XSORT VIA DIAG 42 HAS NOT BEEN ', 1 'THOROUGHLY TESTED', /5X,'FOR THE UNIX MACHINES.') C C INITIALIZE XSORT AND TURN ON FREE-FIELD FLAG FOR XREAD C FFFLAG = 1234 ECHOU = 0 ECHOS = 0 ECHOP = 0 IEND = 0 ISEQ = 0 ICCBRK = 0 NOTSOR = 0 OPTP = IPTP KIN = 0 IRESTR = -IAPPRC IF (KUMF .LE. 0) GO TO 90 KIN = 1 CALL OPEN (*50,UMF,BUF(1),2) C C FIND PARTICULAR BULK DATA FILE ON UMF AS REQUESTED BY USER C 10 CALL READ (*30,*60,UMF,PID,1,1,IFLG) IF (KUMF-PID) 30,80,20 20 CALL SKPFIL (UMF,1) GO TO 10 30 WRITE (OUTTAP,35) UFM,KUMF 35 FORMAT (A23,' 201, REQUESTED BULK DATA DECK',I8,' NOT ON USER ', 1 'MASTER FILE.') CALL PAGE2 (2) NOGO =-1 CALL CLOSE (UMF,1) RETURN C 50 WRITE (OUTTAP,55) SFM 55 FORMAT (A25,' 202, UMF COULD NOT BE OPENED') GO TO 1800 60 WRITE (OUTTAP,65) SFM 65 FORMAT (A25,' 203, ILLEGAL EOR ON UMF') GO TO 1800 80 CALL CLOSE (UMF,2) C 90 CALL INITCO IF (IECHO .LT. 0) GO TO 110 ECHOU = ANDF(IECHO,1) ECHOS = ANDF(IECHO,2) ECHOP = ANDF(IECHO,4) IF (ICPFLG .NE. 0) ECHOS = 1 110 ASSIGN 1260 TO IBRANA ASSIGN 810 TO IBRANB ASSIGN 1220 TO IBRANF C C SET ASSIGN GO TO SWITCHES FOR MACHINE CONFIGURATIONS C THE 8 BIT CHARACTER BYTE OF THE 360 WILL HOLD THE INTERNAL C CHARACTER CODE (MAX=37) WITHOUT USE OF THE 1ST BIT POSITION - C THE OTHER 3 MACHINES HAVE 6 BIT CHARACTERS THEREFORE A SHIFT RIGHT C OF ONE MUST BE DONE TO REMOVE A POSSIBLE BIT FROM THE SIGN C POSITION THE FOLLOWING ASSIGNS SET THOSE BRANCHES BASED ON MACHINE C IF (MACH.EQ.2 .OR. DEC) GO TO 120 ASSIGN 350 TO MX3 ASSIGN 790 TO MY1 ASSIGN 820 TO MY2 ASSIGN 960 TO MY3 ASSIGN 990 TO MY4 ASSIGN 1030 TO MY5 ASSIGN 840 TO MY6 ASSIGN 730 TO MZ1 LINF = 0 NSHIFT = 1 C C SET NSHIFT TO ZERO FOR UNIVAC ASCII VERSION ONLY (NOT FORTRAN 5) C IF (MACH .EQ. 3) NSHIFT = 0 GO TO 130 120 CONTINUE ASSIGN 360 TO MX3 ASSIGN 800 TO MY1 ASSIGN 970 TO MY2 ASSIGN 970 TO MY3 ASSIGN 1040 TO MY4 ASSIGN 1040 TO MY5 ASSIGN 850 TO MY6 ASSIGN 740 TO MZ1 LINF = ORF(IS,1) 130 CONTINUE C C START WORKING SORT BUFFER BELOW GINO I/O BUFFERS C II = 5*IBUFSZ + 1 IBUFBG = II + 42 IBUFLG = KORSZ(BUF) - 21 IF (IBUFLG-IBUFBG .LT. 210) 1 CALL MESAGE (-8,IBUFBG+210-IBUFLG,NSORT) ITAPE = ITAPE1 JTAPE = ITAPE2 C C OPEN ITAPE4 AND ITAPE5 C (4 CONTAINS CONTINUATIONS, 5 CONTAINS ALTERS) C NBUF3 = 3*IBUFSZ + 1 CALL OPEN (*1700,ITAPE4,BUF(NBUF3),1) NBUF4 = 4*IBUFSZ + 1 CALL OPEN (*1700,ITAPE5,BUF(NBUF4),1) C C A BUFFER LINE IS 20 WORDS OF CARD IMAGE PLUS A 1 WORD POINTER TO C THE NEXT IMAGE IN THE SORT SEQUENCE - A ZERO POINTER INDICATES C THE LAST IMAGE (LARGEST IN SORT) C INITIALIZE WORKING BUFFER - 1ST LINE ZEROS, 2ND LINE ALL BITS C K = II + 19 DO 140 J = II,K BUF(J) = LINF 140 BUF(J+ 21) = INF BUF(II+41) = 0 C C SET UP UNSORTED HEADING C DO 150 J = 1,32 HEAD1(J) = HEADU(J) 150 HEAD3(J) = HEADN(J) HEAD2(4) = HEADN(1) ICCNT = 0 IF (ECHOU .EQ. 0) GO TO 160 CALL PAGE C C OPEN ITAPE (LOCATION FOR EACH SORTED CORE LOAD AS ITS FORCED TO C EMPTY C 160 CALL OPEN (*1700,ITAPE,BUF(1),1) 170 BUF(II+20) = 1 K = II NCNT = 2 C C LOOP TO INPUT AND SORT CARD IMAGES - USES OPEN CORE FOR SORTED C IMAGES C DO 550 N1 = IBUFBG,IBUFLG,21 N2 = N1 + 19 N3 = N2 + 1 180 CALL XREAD (*1770,BUF(N1)) ICCNT = ICCNT + 1 IF (ECHOU .EQ. 0) GO TO 220 CALL PAGE2 (-1) WRITE (OUTTAP,200)(BUF(I),I=N1,N2) 200 FORMAT (30X,20A4) 210 FORMAT (13X,I8,1H-,8X,20A4) C C IGNORE BLANK CARDS C 220 IF (BUF(N1).EQ.BLANX .AND. BUF(N1+1).EQ.BLANX) GO TO 180 C C LEFT ADJUST FIELD 1 C CALL XFADJ1 (BUF(N1),LSHIFT,0) C C TEST FOR END OF INPUT DATA STREAM (ENDDATA) C IIEND(1) = IEND1 IIEND(2) = IEND2 IF (BUF(N1).EQ.IEND1 .AND. BUF(N1+1).EQ.IEND2) GO TO 560 IIEND(1) = IEND3 IIEND(2) = IEND4 IF (BUF(N1).EQ.IEND3 .AND. BUF(N1+1).EQ.IEND4) GO TO 560 IIEND(1) = IEND5 IIEND(2) = IEND6 IF (BUF(N1).EQ.IEND5 .AND. BUF(N1+1).EQ.IEND6) GO TO 560 C C IS THIS A CONTINUATION, COMMENT, OR DELETE CARD C IF (.NOT.DEC) TST = ANDF(MK(3),BUF(N1)) IF ( DEC) TST = KHRFN1(BKMSK2,1,BUF(N1),1) C C WRITE CONTINUATIONS ON ITAPE4 C IF (TST.EQ.STARL .OR. TST.EQ.PLUS) GO TO 530 C C IGNORE COMMENT CARDS C IF (TST .EQ. DOLLAR) GO TO 180 C C WRITE DELETES ON ITAPE5 C IF (TST .EQ. SLASH) GO TO 540 C C IF A STAR IS FOUND IN FIELD 1, MOVE IT TO COLUMN 8 C NY = 4 DO 240 J = 1,2 NX = N1 + 2 - J TST = BUF(NX) DO 230 I = 1,NY IF (.NOT.DEC) PTST = ANDF(MKA,TST) IF ( DEC) PTST = KHRFN1(BKMSK2,4,TST,4) IF (PTST .NE. BK(1)) GO TO 250 IF (.NOT.DEC) TST = RSHIFT(TST,SFTA) IF ( DEC) TST = KHRFN3(BKMSK2,TST,1,0) 230 CONTINUE 240 NY = 3 GO TO 260 C C STARSW = 0 FOR A SINGLE FIELD CARD (NO STAR) C = 1 FOR A DOUBLE FIELD CARD (W/ STAR) C 250 STARSW = 0 IF (PTST .NE. STAR) GO TO 260 STARSW = 1 IF (J.EQ.1 .AND. I.EQ.1) GO TO 260 IF (DEC) GO TO 258 BUF(NX ) = ORF(ANDF(MK(I),BUF(NX)),BK(I)) BUF(N1+1) = ORF(ANDF(MK(1),BUF(N1+1)),STAR) GO TO 260 258 BUF(NX ) = KHRFN1(BUF(NX),5-I,BK(I),5-I) BUF(N1+1) = KHRFN1(BUF(N1+1),4,STAR,4) 260 CONTINUE CALL XFADJ (BUF(N1+2),STARSW,NY) CALL EXTINT (BUF(N1)) C C C START SORT LOGIC C C WITHOUT THE FOLLOWING CARD, XSORT WILL ASSUME SOME DEGREE OF SORT C EXISTS (I.E.,THE NEXT CARD WILL FOLLOW THE PREVIOUS CARD, MORE C OFTEN THAN NOT) C K = II (THIS CARD WILL FORCE SORT TO BEGINNING OF CHAIN) C KP = 0 C C K TYPE SUBSCRIPTS REFER TO POSITIONS AND ITEMS IN THE SORTED C TABLE CURRENTLY BEING BUILT C N TYPE SUBSCRIPTS REFER TO ITEMS ABOUT THE NEWEST CARD IN C 270 FCNT = 1 NI = 0 KI = 0 NX = N1 C C THE RIGHT SHIFT IN THE FOLLOWING CODE IS USED TO AVOID THE C NEGATIVE SIGN PROBLEM WHICH WOULD REVERSE THE SORT ORDER ON SOME C MACHINES. C (NOTE THAT THE SORT COMPARES CAN BE MADE BOTH WITH OR WITHOUT C THE SIGN SHIFT DEPENDING ON THE MACHINES CHARACTER CONFIG) C 300 KX = K GO TO 340 330 IF (BUF(NX) .EQ. BUF(KX)) GO TO 400 IF (BUF(NX) .EQ. BK(4) ) GO TO 380 IF (BUF(KX) .EQ. BK(4) ) GO TO 370 340 GO TO MX3, (350,360) 350 IF (RSHIFT(BUF(NX),NSHIFT)-RSHIFT(BUF(KX),NSHIFT)) 380,400,370 360 IF (DEC) GO TO 365 IF (BUF(NX) .LT. BUF(KX)) GO TO 380 IF (BUF(NX) .GT. BUF(KX)) GO TO 370 GO TO 400 365 IF (RSHIFT(KHRFN4(BUF(NX)),1)-RSHIFT(KHRFN4(BUF(KX)),1)) 1 380,366,370 366 IF (RSHIFT(LSHIFT(KHRFN4(BUF(NX)),1),1)- 1 RSHIFT(LSHIFT(KHRFN4(BUF(KX)),1),1)) 380,400,370 C C GO ON, LOOK AT NEXT ITEM IN THE SORTED TABLE C 370 KP = K K = BUF(K+20)*21 + II IF (NX .EQ. N1) GO TO 300 GO TO 270 C C CARD POSITION FOUND IN SORT, SET THE CHAINING POINTER C 380 IF (KP .EQ. 0) GO TO 390 BUF(N3 ) = BUF(KP+20) BUF(KP+20) = NCNT K = KP NCNT = NCNT + 1 GO TO 550 390 K = II GO TO 270 C C TWO FIELDS EQUAL - SLIDE TO NEXT FIELD ON CARD C 400 FCNT = FCNT + 1 NX = NX + 1 KX = KX + 1 GO TO (1760,410,470,330,510,330,430,330,510,330,520,330,510,330, 1 430,330,510,330,380), FCNT 410 KTARSW = 0 IF (.NOT.DEC) ITST = ANDF(MKA,BUF(K+1)) IF ( DEC) ITST = KHRFN1(BKMSK2,4,BUF(K+1),4) IF (ITST .EQ. STAR) KTARSW = 1 IF (STARSW .EQ. KTARSW) GO TO 340 C C IF ONE MEMBER OF THE 2ND FIELD HAS A STAR AND THE OTHER DOES NOT, C DELETE STARS FOR THE COMPARE C IF (DEC) GO TO 415 IN1 = RSHIFT(ANDF(MKD,BUF(NX)),1) IK2 = RSHIFT(ANDF(MKD,BUF(KX)),1) GO TO 418 415 IN1 = RSHIFT(KHRFN4(KHRFN1(BUF(NX),4,BKMSK2,1)),1) IK2 = RSHIFT(KHRFN4(KHRFN1(BUF(KX),4,BKMSK2,1)),1) 418 IF (IN1 .NE. IK2) GO TO 428 IF (DEC) GO TO 420 IN1 = ANDF(MKE,BUF(NX)) IK2 = ANDF(MKE,BUF(KX)) GO TO 425 420 IN1 = RSHIFT(LSHIFT(KHRFN4(KHRFN1(BUF(NX),4,BKMSK2,1)),1),1) IK2 = RSHIFT(LSHIFT(KHRFN4(KHRFN1(BUF(KX),4,BKMSK2,1)),1),1) 425 IF (IN1 .EQ. IK2) GO TO 400 428 IF (IN1 .LT. IK2) GO TO 380 GO TO 370 C C INCREMENT FIELD LOCATIONS IF FIELD TYPES DID NOT MATCH C 430 IF (NI-KI) 450,460,440 440 NX = NX + NI NI = 0 GO TO 460 450 KX = KX + KI KI = 0 C C ADJUST FIELDS RIGHT OR LEFT AS REQUIRED C 460 CALL XFADJ (BUF(NX),STARSW,K1) CALL XFADJ (BUF(KX),KTARSW,K2) GO TO 480 470 IF (STARSW .EQ. KTARSW) GO TO 330 K1 = 0 K2 = 0 IF (DEC) GO TO 472 IF (ANDF(MK(3),BUF(NX)) .NE. BKMSK1(4)) K1 = 1 IF (ANDF(MK(3),BUF(KX)) .NE. BKMSK1(4)) K2 = 1 GO TO 480 472 IF (KHRFN1(BKMSK2,1,BUF(NX),1) .NE. BKMSK1(4)) K1 = 1 IF (KHRFN1(BKMSK2,1,BUF(KX),1) .NE. BKMSK1(4)) K2 = 1 480 IF (STARSW-KTARSW) 500,330,490 490 NI = 2 IF (K1+K2 .EQ. 2) GO TO 330 NX = NX + 2 NI = 0 GO TO 330 500 KI = 2 IF (K1+K2 .EQ. 2) GO TO 330 KX = KX + 2 KI = 0 GO TO 330 510 IF (STARSW .NE. KTARSW) GO TO 430 IF (STARSW .EQ. 0) GO TO 430 GO TO 330 520 IF (STARSW .EQ. KTARSW) GO TO 430 GO TO 380 C C CONTINUATION CARD - PUT ON ITAPE4 C 530 CALL WRITE (ITAPE4,BUF(N1),20,1) GO TO 180 C C BULK DATA DELETE CARD - PUT ON ITAPE5 C C TEST FOR EXTRANEOUS DATA IN FIELD 1 OF DELETE CARD C AND WRITE OUT TO SCRATCH FILE C 540 IF (.NOT.DEC) ITST1 = ANDF(BUF(N1),BIMSK1(6)) IF ( DEC) ITST1 = ANDF(BUF(N1),BIMSK1(1)) ITST2 = ANDF(BUF(N1+1),MBIT4) IBK3 = ANDF(BK(3),MBIT4) IBK4 = ANDF(BK(4),MBIT4) IF (ITST1.EQ.IBK3 .AND. ITST2.EQ.IBK4) GO TO 545 CALL PAGE2 (2) WRITE (OUTTAP,541) UFM 541 FORMAT (A23,' 221, EXTRANEOUS DATA IN FIELD 1 OF BULK DATA ', 1 'DELETE CARD.') NOGO = -2 545 CALL XFADJ1 (BUF(N1+2),RSHIFT,0) CALL XBCDBI (BUF(N1+2)) CALL XFADJ1 (BUF(N1+4),RSHIFT,0) CALL XBCDBI (BUF(N1+4)) BUF(N1+4) = BUF(N1+5) CALL WRITE (ITAPE5,BUF(N1+3),2,1) GO TO 180 C C END OF BIG SORT LOOP C 550 CONTINUE GO TO 590 C C C SET (ENDDATA) CARD FOUND FLAG C 560 IEND = -1 IF (ECHOU .NE. 1) GO TO 572 CALL PAGE2 (2) WRITE (OUTTAP,570) ICCNT 570 FORMAT (//24X,12HTOTAL COUNT=,I5) 572 CONTINUE C C TEST FOR COLD-START WITH NO BULK DATA C IF (ICCNT.GT.1 .OR. IRESTR.GT.0 .OR. KUMF.GT.0) GO TO 590 IF (IAPPRC .EQ. 1) GO TO 590 IF (ISUBS .NE. 0) GO TO 590 CALL PAGE2 (2) WRITE (OUTTAP,580) UFM 580 FORMAT (A23,' 204, COLD START NO BULK DATA.') NOGO = -2 RETURN C C C IF MODIFIED RESTART - TURN ON SORT ECHO C 590 CONTINUE C C THIS SECTION UNCHAINS THE SORTED TABLE AND WRITES A CORE LOAD, C IN ITS ACTUAL ORDER, ONTO A MERGE SCRATCH TAPE. C J = BUF(II+20) J1ST = J*21 + II KEEP = 1 610 J = J*21 + II J1 = BUF(J+20) IF (J1 .EQ. 0) GO TO 620 C C ITAPE IS PRIMARY CORE UNLOAD TAPE C CALL WRITE (ITAPE,BUF(J),20,1) IF (J .LT. KEEP) NOTSOR = 1 KEEP = J J = J1 GO TO 610 620 ISEQ = ISEQ + 1 IF (ISEQ .EQ. 2) GO TO 640 IF (ISEQ .GT. 2) GO TO 650 IF (IEND .NE. 0) GO TO 630 ITAPE = ITAPE2 CALL OPEN (*1700,ITAPE,BUF(IBUFSZ+1),1) GO TO 170 C C NO MERGING IS REQUIRED, ALL CARDS FIT WITHIN ONE WORKING BUFFER C LOAD C 630 KTAPE = ITAPE CALL CLOSE (KTAPE,1) GO TO 1260 C C SET UP 1ST MERGE C 640 CALL CLOSE (ITAPE,1) ITAPE = ITAPE1 KOP = 0 C C SET UP SUBSEQUENT MERGE TAPES C 650 IF (MOD(ISEQ,2) .EQ. 0) GO TO 660 JTAPE = ITAPE3 KTAPE = ITAPE2 GO TO 670 660 JTAPE = ITAPE2 KTAPE = ITAPE3 670 CALL CLOSE (ITAPE,1) C C SPECIAL LOGIC TO AVOID MERGE IF NEW CORE LOAD FOLLOWS ALL PREVIOUS C IF (KOP-1) 760,700,680 680 DO 690 J = 1,18 690 IBUF1(J) = IBUF2(J) 700 DO 710 J = 1,18 IF (BUF(J1ST) .NE. IBUF1(J)) GO TO 720 710 J1ST = J1ST + 1 GO TO 760 720 GO TO MZ1, (730,740) 730 IF (RSHIFT(BUF(J1ST),NSHIFT).LT.RSHIFT(IBUF1(J),NSHIFT)) GO TO 755 GO TO 750 740 IF (DEC) GO TO 745 IF (BUF(J1ST) .LT. IBUF1(J)) GO TO 755 GO TO 750 745 IF (KHRFN4(BUF(J1ST)).LT.KHRFN4(IBUF1(J))) GO TO 755 750 TRIAL = KTAPE KTAPE = JTAPE JTAPE = TRIAL ISEQ = ISEQ - 1 CALL OPEN (*1700,ITAPE,BUF(1),0) CALL OPEN (*1700,KTAPE,BUF(IBUFSZ+1),3) GO TO 1210 C C THIS SECTION PERFORMS A 2 TAPE ALPHANUMERIC MERGE C (ITAPE+JTAPE=KTAPE) C SAME BASIC LOGIC AS ORIGINAL SORT COMPARES (COMMENT CARDS OMITTED) C 755 NOTSOR = 1 760 CALL OPEN (*1700,ITAPE,BUF(1),0) 770 CALL OPEN (*1700,JTAPE,BUF(IBUFSZ+1),0) NBUF2 = 2*IBUFSZ + 1 CALL OPEN (*1700,KTAPE,BUF(NBUF2),1) CCNT = 0 780 CALL READ (*1190,*1710,JTAPE,IBUF2,20,1,IFLG) IF (MACH.EQ.2 .AND. (JTAPE.EQ.UMF .OR. JTAPE.EQ.IPTP)) 1 CALL UMFTRN (IBUF2) IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF2) LDUP = 0 IF (ITAPE .EQ. OPTP) CALL CRDFLG (IBUF2) KTARSW = 0 IF (.NOT.DEC) ITST = ANDF(MKA,IBUF2(2)) IF ( DEC) ITST = KHRFN1(BKMSK2,4,IBUF2(2),4) IF (ITST .EQ. STAR) KTARSW = 1 GO TO MY1, (790,800) 790 IBUF2A(1) = RSHIFT(IBUF2(1),NSHIFT) IBUF2A(2) = RSHIFT(IBUF2(2),NSHIFT) 800 CALL READ (*1240,*1710,ITAPE,IBUF1,20,1,IFLG) IF (MACH.EQ.2 .AND. (ITAPE.EQ.UMF .OR. ITAPE.EQ.IPTP)) 1 CALL UMFTRN (IBUF1) IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF1) STARSW = 0 IF (.NOT.DEC) ITST = ANDF(MKA,IBUF1(2)) IF ( DEC) ITST = KHRFN1(BKMSK2,4,IBUF1(2),4) IF (ITST .EQ. STAR) STARSW = 1 GO TO IBRANB, (830,810) 810 GO TO MY2, (820,970) 820 IBUF1A(1) = RSHIFT(IBUF1(1),NSHIFT) IBUF1A(2) = RSHIFT(IBUF1(2),NSHIFT) GO TO 970 C C TEST IF CARD IS TO BE DELETED C 830 CCNT = CCNT + 1 IF (.NOT.DEC) TST = ANDF(MK(3),IBUF1(1)) IF ( DEC) TST = KHRFN1(BKMSK2,1,IBUF1(1),1) ICCFLG = -1 IF (TST.EQ.PLUS .OR. TST.EQ.STARL) GO TO 860 CALL EXTINT (IBUF1(1)) GO TO MY6, (840,850) 840 IBUF1A(1) = RSHIFT(IBUF1(1),NSHIFT) IBUF1A(2) = RSHIFT(IBUF1(2),NSHIFT) 850 ICCFLG = 0 KPARNT(1) = IBUF1(1) KPARNT(2) = IBUF1(2) 860 GO TO IBRANC, (870,880,900) 870 CALL READ (*920,*1710,ITAPE5,IBUF3,2,1,IFLG) IF (IBUF3(1) .EQ. 0) GO TO 870 ASSIGN 880 TO IBRANC 880 IF (IBUF3(2) .NE. 0) GO TO 890 IF (IBUF3(1) .NE. CCNT) GO TO 900 ASSIGN 870 TO IBRANC GO TO 930 890 IF (IBUF3(2) .EQ. CCNT) ASSIGN 870 TOIBRANC IF (IBUF3(1).LE.CCNT .AND. IBUF3(2).GE.CCNT) GO TO 930 C C REMOVE ANY UNDELETED CONTINUATION CARDS DURING RESTART MERGE C 900 IF (ICCFLG .EQ. 0) GO TO IBRANE, (970,1220) CALL WRITE (ITAPE4,IBUF1(1),20,1) 910 GO TO IBRAND, (800,1210) 920 ASSIGN 900 TO IBRANC CALL CLOSE (ITAPE5,1) GO TO 900 C C IF CONTINUATION WAS DELETED, FLAG PARENT C 930 IF (ICCFLG .EQ. 0) GO TO 940 CALL CRDFLG (KPARNT) GO TO 910 940 CALL CRDFLG (IBUF1) GO TO 910 950 CALL READ (*1190,*1710,JTAPE,IBUF2,20,1,IFLG) IF (MACH.EQ.2 .AND. (JTAPE.EQ.UMF .OR. JTAPE.EQ.IPTP)) 1 CALL UMFTRN (IBUF2) IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF2) IF (ITAPE .EQ. OPTP) CALL CRDFLG (IBUF2) KTARSW = 0 IF (.NOT.DEC) ITST = ANDF(MKA,IBUF2(2)) IF ( DEC) ITST = KHRFN1(BKMSK2,4,IBUF2(2),4) IF (ITST .EQ. STAR) KTARSW = 1 GO TO MY3, (960,970) 960 IBUF2A(1) = RSHIFT(IBUF2(1),NSHIFT) IBUF2A(2) = RSHIFT(IBUF2(2),NSHIFT) 970 J = 1 J1 = 1 J2 = 1 NI = 0 KI = 0 980 GO TO MY4, (990,1040) 990 IF (IBUF1A(J1)-IBUF2A(J2)) 1050,1070,1060 1000 IF (STARSW .EQ. KTARSW) GO TO 980 IF (DEC) GO TO 1005 IN1 = RSHIFT(ANDF(MKD,IBUF1(J1)),1) IK2 = RSHIFT(ANDF(MKD,IBUF2(J2)),1) GO TO 1008 1005 IN1 = RSHIFT(KHRFN4(KHRFN1(IBUF1(J1),4,BKMSK2,1)),1) IK2 = RSHIFT(KHRFN4(KHRFN1(IBUF2(J2),4,BKMSK2,1)),1) 1008 IF (IN1 .NE. IK2) GO TO 1018 IF (DEC) GO TO 1010 IN1 = ANDF(MKE,IBUF1(J1)) IK2 = ANDF(MKE,IBUF2(J2)) GO TO 1015 1010 IN1 = RSHIFT(LSHIFT(KHRFN4(KHRFN1(IBUF1(J1),4,BKMSK2,1)),1),1) IK2 = RSHIFT(LSHIFT(KHRFN4(KHRFN1(IBUF2(J2),4,BKMSK2,1)),1),1) 1015 IF (IN1 .EQ. IK2) GO TO 1070 1018 IF (IN1 .LT. IK2) GO TO 1050 GO TO 1060 1020 IF (IBUF1(J1) .EQ. IBUF2(J2)) GO TO 1070 IF (IBUF1(J1) .EQ. BK(4) ) GO TO 1050 IF (IBUF2(J2) .EQ. BK(4) ) GO TO 1060 GO TO MY5, (1030,1040) 1030 IF (RSHIFT(IBUF1(J1),1)-RSHIFT(IBUF2(J2),1)) 1050,1070,1060 1040 IF (DEC) GO TO 1045 IF (IBUF1(J1) .LT. IBUF2(J2)) GO TO 1050 IF (IBUF1(J1) .GT. IBUF2(J2)) GO TO 1060 GO TO 1070 1045 IF (KHRFN4(IBUF1(J1))-KHRFN4(IBUF2(J2))) 1050,1070,1060 1050 CALL WRITE (KTAPE,IBUF1,20,1) KOP = 1 GO TO 800 1060 CALL WRITE (KTAPE,IBUF2,20,1) KOP = 2 GO TO 950 1070 J = J + 1 J1 = J1 + 1 J2 = J2 + 1 GO TO (1760,1000,1120,1020,1160,1020,1080,1020,1160,1020,1170, 1 1020,1160,1020,1080,1020,1160,1020,1180), J 1080 IF (NI-KI) 1100,1110,1090 1090 J1 = J1 + NI NI = 0 GO TO 1110 1100 J2 = J2 + KI KI = 0 1110 CALL XFADJ (IBUF1(J1),STARSW,K1) CALL XFADJ (IBUF2(J2),KTARSW,K2) GO TO 1130 1120 IF (STARSW .EQ. KTARSW) GO TO 1020 K1 = 0 K2 = 0 IF (DEC) GO TO 1122 IF (ANDF(MK(3),IBUF1(J1)) .NE. BKMSK1(4)) K1 = 1 IF (ANDF(MK(3),IBUF2(J2)) .NE. BKMSK1(4)) K2 = 1 GO TO 1130 1122 IF (KHRFN1(BKMSK2,1,IBUF1(J1),1) .NE. BKMSK1(4)) K1 = 1 IF (KHRFN1(BKMSK2,1,IBUF2(J2),1) .NE. BKMSK1(4)) K2 = 1 1130 IF (STARSW-KTARSW) 1150,1020,1140 1140 NI = 2 IF (K1+K2 .EQ. 2) GO TO 1020 J1 = J1 + 2 NI = 0 GO TO 1020 1150 KI = 2 IF (K1+K2 .EQ. 2) GO TO 1020 J2 = J2 + 2 KI = 0 GO TO 1020 1160 IF (STARSW .NE. KTARSW) GO TO 1080 IF (STARSW .EQ. 0) GO TO 1080 GO TO 1020 C C DUPLICATE CARD C 1170 IF (STARSW .EQ. KTARSW) GO TO 1080 1180 CALL WRITE (KTAPE,IBUF1,20,1) CALL WRITE (KTAPE,IBUF2,20,1) LDUP = -1 GO TO 780 C C ONE OF TWO TAPES BEING MERGED IS EXHAUSTED, OTHER TAPE IS COPIED C ONTO THE MERGE TAPE C 1190 IF (ITAPE .NE. OPTP) GO TO 1200 ASSIGN 1210 TO IBRAND ASSIGN 1220 TO IBRANE ASSIGN 830 TO IBRANF IF (CCNT .EQ. 0) GO TO 1210 1200 IF (LDUP .LT. 0) GO TO 1210 GO TO 1220 1210 CALL READ (*1250,*1710,ITAPE,IBUF1,20,1,IFLG) IF (MACH.EQ.2 .AND. (ITAPE.EQ.UMF .OR. ITAPE.EQ.IPTP)) 1 CALL UMFTRN (IBUF1) IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF1) GO TO IBRANF, (830,1220) 1220 CALL WRITE (KTAPE,IBUF1,20,1) KOP = 1 GO TO 1210 1230 CALL READ (*1250,*1710,JTAPE,IBUF2,20,1,IFLG) IF (MACH.EQ.2 .AND. (JTAPE.EQ.UMF .OR. JTAPE.EQ.IPTP)) 1 CALL UMFTRN (IBUF2) IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF2) 1240 CALL WRITE (KTAPE,IBUF2,20,1) KOP = 2 GO TO 1230 C C CLOSE TAPES ENVOLVED IN MERGE C 1249 CALL CLOSE (ITAPE,2) GO TO 1251 1250 IF (IUEDIT .EQ. 1) GO TO 1249 IF (ITAPE .EQ. OPTP) GO TO 1249 CALL CLOSE (ITAPE,1) 1251 CALL CLOSE (JTAPE,3) CALL CLOSE (KTAPE,3) GO TO IBRANA, (1260,1440) C C WAS THIS THE FINAL MERGE (LAST CORE LOAD OF CARDS) C 1260 IF (IEND .EQ. 0) GO TO 160 CALL PAGE2 (2) WRITE (OUTTAP,1660) CALL CLOSE (ITAPE5,1) C C PROCESS DELETE CARDS (IF ANY) C NBUF4 = 4*IBUFSZ + 1 CALL OPEN (*1700,ITAPE5,BUF(NBUF4),0) C C IF NOT RESTART - NO DELETES SHOULD EXIST C IF (IRESTR.GT.0 .OR. KIN.GT.0) GO TO 1280 C CALL READ (*1440,*1710,ITAPE5,IBUF3,1,1,IFLG) C C NOT RESTART AND DELETES DO EXIST - WARNING C CALL CLOSE (ITAPE5,1) CALL PAGE2 (2) WRITE (OUTTAP,1270) UWM 1270 FORMAT (A25,' 205, COLD START,DELETE CARDS IGNORED.') GO TO 1440 C C FORM DELETE CARD LIST C 1280 IBUF3(1) = INF BUF(II ) = MKB BUF(II+1) = MKB DO 1320 J = II,IBUFLG,2 CALL READ (*1330,*1710,ITAPE5,IBUF3,2,1,IFLG) DO 1290 I = II,J,2 IF (IBUF3(1) .LE. BUF(I)) GO TO 1300 1290 CONTINUE C C PUSH DOWN LIST - MAKE DOUBLE WORD SLOT C 1300 KK = J + 2 K1 = (J-I)/2 + 1 DO 1310 K = 1,K1 BUF(KK+1) = BUF(KK-1) BUF(KK ) = BUF(KK-2) 1310 KK = KK - 2 BUF(I ) = IBUF3(1) 1320 BUF(I+1) = IBUF3(2) C C IF DELETE CARD LIST WILL NOT FIT C CALL MESAGE (-8,0,NSORT) C C EOF ON ITAPE5, IF IBUF3(1)= INF, THERE ARE NO DELETE CARDS C 1330 IF (IBUF3(1) .EQ. INF) GO TO 1400 J = J - 1 C C CHECK FOR AND ELIMINATE OVERLAPS AND REDUNDANCYS IN DELETES C IMIN = 0 DO 1380 I = II,J,2 IF (BUF(I) .EQ. 0) GO TO 1380 IF (BUF(I) .LT. BUF(I+1)) GO TO 1340 BUF(I+1) = 0 IF (BUF(I) .EQ. BUF(I+2)) GO TO 1350 IF (IMIN .EQ. 0) GO TO 1380 IF (BUF(I) .GT. BUF(IMAX)) GO TO 1370 GO TO 1350 1340 IF (IMIN .EQ. 0) GO TO 1360 IF (BUF(I ) .GT. BUF(IMAX)) GO TO 1360 IF (BUF(I+1) .LT. BUF(IMAX)) GO TO 1350 BUF(IMAX) = BUF(I+1) 1350 BUF(I) = 0 GO TO 1380 1360 IMIN = I IMAX = I + 1 GO TO 1380 1370 IMIN = 0 1380 CONTINUE CALL CLOSE (ITAPE5,1) C C PUT OUT SORTED DELETE CARD LIST C NBUF4 = 4*IBUFSZ + 1 CALL OPEN (*1700,ITAPE5,BUF(NBUF4),1) DO 1390 I = II,J,2 IF (BUF(I) .EQ. 0) GO TO 1390 CALL WRITE (ITAPE5,BUF(I),2,1) 1390 CONTINUE 1400 CALL CLOSE (ITAPE5,1) C C AT THIS POINT, IF THIS IS A RESTART, MERGE OPTP, FINAL KTAPE, C + DELETE C ASSIGN 1440 TO IBRANA ASSIGN 830 TO IBRANB ASSIGN 870 TO IBRANC ASSIGN 800 TO IBRAND ASSIGN 970 TO IBRANE NBUF4 = 4*IBUFSZ + 1 CALL OPEN (*1700,ITAPE5,BUF(NBUF4),0) C IF (KIN .GT. 0) GO TO 1430 C CALL OPEN (*1740,OPTP,BUF(1),0) 1410 CALL READ (*1730,*1710,OPTP,IBUF3,2,1,IFLG) IF (IBUF3(1).EQ.IBLKDA(1) .AND. IBUF3(2).EQ.IBLKDA(2)) GO TO 1420 CALL SKPFIL (OPTP,+1) GO TO 1410 1420 ITAPE = OPTP TRIAL = JTAPE JTAPE = KTAPE KTAPE = TRIAL IF (ICCNT .EQ. 1) GO TO 1440 CALL WRITE (ITAPE4,MKB,20,1) GO TO 770 C 1430 OPTP = UMF CALL OPEN (*50,UMF,BUF(1),2) GO TO 1420 C C PROCESS CONTINUATION CARDS (IF ANY) C 1440 CALL CLOSE (ITAPE4,1) NBUF3 = 3*IBUFSZ + 1 CALL OPEN (*1700,ITAPE4,BUF(NBUF3),0) IF (ICCNT.EQ.1 .AND. (IRESTR.GT.0 .OR. KIN.GT.0)) KTAPE = OPTP IF (ICCNT.EQ.1 .AND. (IRESTR.GT.0 .OR. KIN.GT.0)) GO TO 1441 NBUF2 = 2*IBUFSZ + 1 CALL OPEN (*1700,KTAPE,BUF(NBUF2),0) C C FORM CONTINUATION CARD DICTIONARY C 1441 CONTINUE IBUF1(1) = 0 DO 1470 J = II,IBUFLG,4 CALL READ (*1480,*1710,ITAPE4,IBUF1,20,1,IFLG) IF (MACH.EQ.2 .AND. IBUF1(1).NE.MKB) CALL UMFTRN (IBUF1) IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF1) IF (IBUF1(1) .NE. MKB) GO TO 1460 IF (J .EQ. II) GO TO 1450 ICCBRK = J 1450 BUF(J) = DOLLAR GO TO 1465 1460 IF (.NOT.DEC) BUF(J) = ANDF(MKC,IBUF1(1)) IF ( DEC) BUF(J) = KHRFN1(IBUF1(1),1,BKMSK2,1) 1465 BUF(J+1) = IBUF1(2) IF (.NOT.DEC) BUF(J+2) = ANDF(MKC,IBUF1(19)) IF ( DEC) BUF(J+2) = KHRFN1(IBUF1(19),1,BKMSK2,1) BUF(J+3) = IBUF1(20) 1470 CONTINUE C C C CORE INSUFFICIENT TO ACCOMMODATE 4-WORD PER CARD DICTIONARY C OF CONTINUATION CARDS C CALL MESAGE (-8,0,NSORT) C C EOF ON ITAPE4, IF IBUF1(1)= 0, THERE ARE NO CONTINUATION CARDS C 1480 IF (IBUF1(1) .EQ. 0) GO TO 1510 CALL REWIND (ITAPE4) JO = 1 ICONLG = J - 1 C C CHECK AND SET FLAGS FOR DUPLICATE CONTINUATION CARDS C K = ICONLG - 4 IF (K .LE. II) GO TO 1510 DO 1500 J = II,K,4 IF (BUF(J) .EQ. IDUP) GO TO 1500 INDEX = 0 M = J + 4 DO 1490 JJ = M,ICONLG,4 IF (BUF(JJ ) .EQ. IDUP ) GO TO 1490 IF (BUF(J ) .NE. BUF(JJ) ) GO TO 1490 IF (BUF(J+1) .NE. BUF(JJ+1)) GO TO 1490 BUF(JJ) = IDUP INDEX = 1 1490 CONTINUE IF (INDEX .EQ. 1) BUF(J) = IDUP 1500 CONTINUE C C SET UP AND PUT OUT SORTED HEADING C 1510 IF (NOTSOR .EQ. 0) GO TO 1515 CALL PAGE2 (2) WRITE (OUTTAP,1511) UIM 1511 FORMAT (A29,' 207, BULK DATA NOT SORTED, XSORT WILL RE-ORDER ', 1 'DECK.') 1515 IF (ECHOS .EQ. 0) GO TO 1530 DO 1520 J = 1,32 1520 HEAD1(J) = HEADS(J) HEAD2(4) = CDCNT(1) HEAD3(4) = CDCNT(2) HEAD3(5) = CDCNT(3) CALL PAGE CCNT = 0 1530 CALL CLOSE (ITAPE5,1) J = II NBUF4 = 4*IBUFSZ + 1 CALL OPEN (*1750,NPTP,BUF(NBUF4),3) CALL WRITE (NPTP,IBLKDA,2,1) IF (IBUF1(1) .EQ. 0) GO TO 1630 C C MERGE CONTINUATION CARDS - PRODUCE DATA ON NPTP C 1540 CALL READ (*1640,*1710,KTAPE,IBUF1,20,1,IFLG) IF (ICCBRK .EQ. 0) GO TO 1550 KPARNT(1) = IBUF1(1) KPARNT(2) = IBUF1(2) 1550 CALL INTEXT (IBUF1(1)) IF (MACH .EQ. 2) CALL UMFTRN (IBUF1) IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF1) CALL WRITE (NPTP,IBUF1,20,1) IF (ECHOS .EQ. 0) GO TO 1551 CALL PAGE2 (-1) CCNT = CCNT + 1 CALL XPRETY (IBUF1) WRITE (OUTTAP,210) CCNT,IBUF1 C C PUNCH OUT DECK C 1551 IF (ECHOP .EQ. 0) GO TO 1554 IF (ECHOS .NE. 0) GO TO 1552 CALL XPRETY (IBUF1) 1552 WRITE (LPCH,1553) IBUF1 1553 FORMAT (20A4) 1554 CONTINUE C C SEE IF PREVIOUS CARD HAS A CONTINUATION C IF CONTINUATION FIELD BLANK - CONTINUATION NOT POSSIBLE C IF (IBUF1(19).EQ.BK(4) .AND. IBUF1(20).EQ.BK(4)) GO TO 1540 IF (.NOT.DEC) TRIAL = ANDF(MKC,IBUF1(19)) IF ( DEC) TRIAL = KHRFN1(IBUF1(19),1,BKMSK2,1) JN = 0 1571 CONTINUE C DO 1601 K = II,ICONLG,4 C C IGNORE DUPLICATE CONTINUATION CARDS C IF (BUF(J) .EQ. IDUP) GO TO 1600 IF (IBUF1(20) .NE. BUF(J+1)) GO TO 1600 IF (.NOT.DEC) ITST = ANDF(MKC,BUF(J)) IF ( DEC) ITST = KHRFN1(BUF(J),1,BKMSK2,1) IF (ITST .NE. TRIAL) GO TO 1600 C C A CONTINUATION EXISTS, HAS IT ALREADY BEEN USED C IF (.NOT.DEC) ITST = ANDF(MK(3),BUF(J)) IF ( DEC) ITST = KHRFN1(BKMSK2,1,BUF(J),1) IF (ITST .EQ. DOLLAR) GO TO 1610 IF (J .GT. ICCBRK) GO TO 1580 CALL CRDFLG (KPARNT) 1580 IF (.NOT.DEC) BUF(J) = ORF(BUF(J),DOLLAR) IF ( DEC) BUF(J) = KHRFN1(BUF(J),1,DOLLAR,1) JN = (J-II)/4 + 1 CALL XRECPS (JN,JO) CALL READ (*1720,*1710,ITAPE4,IBUF1,20,1,IFLG) IF (MACH .EQ. 2) CALL UMFTRN (IBUF1) IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF1) CALL WRITE (NPTP,IBUF1,20,1) IF (ECHOS .EQ. 0) GO TO 1581 CALL PAGE2 (-1) CCNT = CCNT+ 1 WRITE (OUTTAP,210) CCNT,IBUF1 1581 IF (ECHOP .EQ. 0) GO TO 1584 WRITE (LPCH,1553) IBUF1 1584 CONTINUE IF (.NOT.DEC) TRIAL = ANDF(MKC,IBUF1(19)) IF ( DEC) TRIAL = KHRFN1(IBUF1(19),1,BKMSK2,1) IF (IBUF1(19).EQ.BK(4) .AND. IBUF1(20).EQ.BK(4)) GO TO 1540 GO TO 1571 1600 J = J + 4 IF (J .GT. ICONLG) J = II 1601 CONTINUE GO TO 1540 C C DUPLICATE PARENT - ERROR C 1610 NL = 0 IF (ECHOS .NE. 0) GO TO 1612 NL = 1 WRITE (OUTTAP,200) IBUF1 1612 NL = NL +2 CALL PAGE2 (-NL) WRITE (OUTTAP,1620) UFM 1620 FORMAT (A23,' 208, PREVIOUS CARD IS A DUPLICATE PARENT.') NOGO = -1 GO TO 1540 C C NO CONTINUATION CARDS C 1630 CALL READ (*1640,*1710,KTAPE,IBUF2,20,1,IFLG) IF (ICCNT .EQ. 1) GO TO 1631 CALL INTEXT (IBUF2(1)) 1631 CONTINUE IF (MACH .EQ. 2) CALL UMFTRN (IBUF2) IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF2) CALL WRITE (NPTP,IBUF2,20,1) IF (ECHOS .EQ. 0) GO TO 16311 CALL PAGE2 (-1) CCNT = CCNT + 1 CALL XPRETY (IBUF2) WRITE (OUTTAP,210) CCNT,IBUF2 16311 IF (ECHOP .EQ. 0) GO TO 1630 IF (ECHOS .NE. 0) GO TO 1632 CALL XPRETY (IBUF2) 1632 WRITE (LPCH,1553) IBUF2 GO TO 1630 C C CLOSE KTAPE AND WRITE (ENDDATA) C 1640 CALL CLOSE (KTAPE,2) CALL EOF (NPTP) CALL CLOSE (NPTP,1) IF (ECHOS .EQ. 0) GO TO 1650 CALL PAGE2 (-1) WRITE (OUTTAP,200) IIEND 1650 IF (IBUF1(1) .EQ. 0) GO TO 1690 CALL PAGE2 (2) WRITE (OUTTAP,1660) 1660 FORMAT (1H0) C C IDENTIFY DUPLICATE OR PARENTLESS CONTINUATION CARDS C NCNT = 0 DO 1670 J = II,ICONLG,4 IF (.NOT.DEC) ITST = ANDF(MK(3),BUF(J)) IF ( DEC) ITST = KHRFN1(BKMSK2,1,BUF(J),1) IF (ITST .EQ. DOLLAR) GO TO 1670 C C CHECK FOR DUPLICATE CONTINUATION CARDS C IF (BUF(J) .EQ. IDUP) GO TO 1666 C C CHECK FOR PARENTLESS CONTINUATION CARDS C DO 1664 JJ = II,ICONLG,4 IF (J .EQ. JJ) GO TO 1664 IF (BUF(J).EQ.BUF(JJ+2) .AND. BUF(J+1).EQ.BUF(JJ+3)) GO TO 1668 1664 CONTINUE 1666 NCNT = NCNT + 1 JN = (J-II)/4 + 1 CALL XRECPS (JN,JO) CALL READ (*1720,*1710,ITAPE4,IBUF2,20,1,IFLG) IF (MACH .EQ. 2) CALL UMFTRN (IBUF2) IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF2) CALL PAGE2 (-1) WRITE (OUTTAP,200) IBUF2 GO TO 1670 1668 BUF(J) = IOK 1670 CONTINUE IF (NCNT .EQ. 0) GO TO 1690 CALL PAGE2 (3) WRITE (OUTTAP,1680) UFM,NCNT 1680 FORMAT (A23,' 209, PREVIOUS',I7,' CONTINUATION MNEMONICS HAVE NO', 1 ' PARENTS AND/OR ARE DUPLICATES.',/) NOGO = -1 C C IDENTIFY THOSE CONTINUATION CARDS THAT ARE VALID, BUT YET CANNOT C BE PROCESSED BECAUSE OF ERRORS ON OTHER RELATED CONTINUATION CARDS C NCNT = 0 DO 1684 J = II,ICONLG,4 IF (BUF(J) .NE. IOK) GO TO 1684 NCNT = NCNT + 1 JN = (J-II)/4 + 1 CALL XRECPS (JN,JO) CALL READ (*1720,*1710,ITAPE4,IBUF2,20,1,IFLG) IF (MACH .EQ. 2) CALL UMFTRN (IBUF2) IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF2) CALL PAGE2 (-1) WRITE (OUTTAP,200) IBUF2 1684 CONTINUE IF (NCNT .EQ. 0) GO TO 1690 CALL PAGE2 (4) WRITE (OUTTAP,1686) UFM,NCNT 1686 FORMAT (A23,' 206, PREVIOUS',I7,' CONTINUATION CARDS, THOUGH ', 1 'VALID, CANNOT BE PROCESSED', /5X, 2 'BECAUSE OF ERRORS ON OTHER RELATED CONTINUATION CARDS.',/) 1690 CALL CLOSE (ITAPE4,1) C C REACTIVE DIAG 47 TO PRINT THE CONTENTS OF NTPT C L47 = 0 IF (L47 .EQ. 0) GO TO 1699 CALL OPEN (*1750,NPTP,BUF(1),0) 1691 CALL SKPFIL (NPTP,+1) CALL READ (*1697,*1697,NPTP,IBUF1(1),2,1,J) IF (IBUF1(1).NE.IBLKDA(1) .OR. IBUF1(2).NE.IBLKDA(2)) GO TO 1691 1693 CALL READ (*1697,*1697,NPTP,IBUF1(1),20,1,J) WRITE (OUTTAP,1695) (IBUF1(J),J=1,10),(IBUF1(J),J=17,20) 1695 FORMAT (' ==NPTP==>',5(1X,2A4),'...',2(1X,2A4)) GO TO 1693 1697 CALL CLOSE (NPTP,1) 1699 CONTINUE C C DISABLE FREE-FIELD INPUT OPTION IN XREAD. C FFFLAG = 0 RETURN C C ERROR MESSAGES C 1700 WRITE (OUTTAP,1701) SFM 1701 FORMAT (A25,' 210, SCRATCH COULD NOT BE OPENED') GO TO 1800 1710 WRITE (OUTTAP,1711) SFM 1711 FORMAT (A25,' 211, ILLEGAL EOR ON SCRATCH') GO TO 1800 1720 WRITE (OUTTAP,1721) SFM 1721 FORMAT (A25,' 212, ILLEGAL EOF ON ITAPE4') GO TO 1800 1730 WRITE (OUTTAP,1731) SFM 1731 FORMAT (A25,' 213, ILLEGAL EOF ON OPTP') GO TO 1800 1740 WRITE (OUTTAP,1741) SFM 1741 FORMAT (A25,' 214, OPTP COULD NOT BE OPENED') GO TO 1800 1750 WRITE (OUTTAP,1751) SFM 1751 FORMAT (A25,' 215, NPTP COULD NOT BE OPENED') GO TO 1800 1760 WRITE (OUTTAP,1761) SFM 1761 FORMAT (A25,' 216, ILLEGAL INDEX') GO TO 1800 1770 WRITE (OUTTAP,1771) SFM 1771 FORMAT (A25,' 219, MISSING ENDDATA CARD.') 1800 CALL PAGE2 (2) CALL MESAGE (-37,0,NSORT) RETURN END ================================================ FILE: mis/xsort2.f ================================================ SUBROUTINE XSORT2 C C XSORT2 REPLACES XSORT FOR SPEED AND EFFICIENCY C C XSORT2 REQUIRES IFP MODULE TO USE RCARD2 ROUTINE INSTEAD OF C RCARD (DUE TO THE ASTERISK POSITION IN DOUBLE FIELD INPUT C CARD HAS NOT BEEN MOVED TO COLUMN 8) C C XSORT2 READS BULKDATA CARDS FROM THE INPUT TAPE, ADJUSTS THE C FIELDS, PERFORMS AN ALPHA-NUMERIC SORT ON THE CARD IMAGES FROM C LEFT TO RIGHT, INSERTS CONTINUATION CARDS IN THEIR PROPER C POSITION, AND PLACES THE RESULTING SORTED IMAGES ON THE NEW C PROBLEM TAPE, NPTP. C C THIS ROUTINE DOES NOT USE XRECPS, RPAGE, INITCO, XFADJ, XFADJ1, C XBCDBI, XPRETY, EXTINT, INTEXT, CRDFLG, ISFT, AND THE CHARACTER C FUNCTIONS KHRFNi. C IT CALLS ONLY SORT2K - TO SORT IN-CORE DATA USING TWO SORT KEYS C AND BISLC2 - BINARY SEARCH USING TWO SORTED KEYS C C XSORT2 NEW LOGIC - C C 1. INPUT BULKDATA CARDS ARE READ INTO OPEN CORE, EXCEPT CONTINU- C ATION (* OR +), DELETE (/), COMMENT ($), AND BLANK CARDS. C 2. WHEN CORE IS FULL, OR LAST INPUT DATA READ, SORT DATA IN CORE C AND WRITE THE ENTIRE SORTED DATA TO SEQUENTIAL GINO FILE 303. C 3. REPEAT 1 AND 2, AND WRITE DATA TO GINO FILES 304,305,306 ETC. C IF NECESSARY. UP TO 30 FILES ARE ALLOWED. C 4. ALL CONTINUATION CARDS ARE WRITEN TO GINO FILE 302. ALL C DELETES TO 301. BLANK AND COMMENT CARDS ARE IGNORED. C 5. WHEN ALL INPUT DATA CARDS ARE READ AND SAVED IN GINO FILE(S), C RE-LOAD THE DELETE CARDS FROM 301 INTO OPEN CORE SPACE, AND C COPY OPTP TO 301 WITH DESIGNATED CARDS DELETED. C 6. COMPUTE BUFFER SPACE (AT THE END OF OPEN CORE) AND THE WORK C SPACE (AT THE BEGINNING OF OPEN CORE) NEEDED FOR FILE MERGE C OPERATION, AND READ INTO CORE ALL CONTINUATION CARDS USING C THE REMAINING CORE SPACE. C 7. IF CORE SPACE IS NOT BIG ENOUGH TO HOLD ALL CONTINUATION C CARDS, CREATE A CONTINUATION-INDEX TABLE IN CORE, AND MOVE THE C CONTINUATION CARDS TO A NEW GINO FILE, WITH LARGE BLOCKS OF C CONTINUATION CARDS C 8. PRE-MERGE BULKDATA GINO FILES TO SAVE BUFFER SPACE IF MORE C THAN 9 GINO FILES WERE USED IN STEP 3. C PERFORM A 2-TO-1 MERGE IF 10 TO 17 FILES WERE INVOLVED, OR C A 3-TO-1 MERGE IF MORE THAN 17 FILES WERE USED IN STEP 3. C THE MERGE FILES ARE SAVED IN 302,303,304,305 ETC. C 9. MERGE ALL FILES IN SORTED ORDER, AND INSERT CONTINUATION CARDS C WHEN NECESSARY. THE MERGED RESULTS ARE WRITTEN TO NPTP C 10. ECHO ANY CONTINUATION CARD WHICH HAS NO PARENT AND THEREFORE C NOT USED. MAKE SURE NO REDUNDANT MESSAGE FOR THE 'REMAINING' C CONTINUATION CARDS OF ONE 'PARENT' C C NOTES FOR XREAD AND FFREAD ROUTINES, WHICH HAVE DONE SOME C IMPORTANT PRELIMINARY TASK - C C 1. XSORT2 CALLS XREAD WHICH CALLS FFREAD TO READ ALL INPUT DATA, C IN BOTH FIXED-FIELD AND FREE-FIELD FORMATS. UNSORTED INPUT C DATA IS NOW PRINTED BY FFREAD IF 'ECHO=UNSORT' IS REQUESTED. C 2. ALL 10 BULKDATA FIELDS ARE LEFT-ADJUSTED IF INPUT ARE IN C FREE-FIELD FORMAT. XREAD LEFT-ADJUSTED ALL FIELDS FOR THE C FIXED-FIELD INPUT CASE. C 3. XREAD PRE-CHECK ANY CONTINUATION, COMMENT, DELETE, BLANK, AND C ENDDATA CARDS, AND SET APPROPRIATE FLAGS IN BUF4 CONTROL ARRAY C 4. THE FIRST THREE BULKDATA FIELDS ARE CONVERTED TO INTERNAL C INTEGER CODES AND SAVED IN BUF4 CONTROL ARRAY. THESE INTERNAL C CODES ARE READY FOR SORTING. C 5. XREAD HANDLES BOTH SINGLE-FIELD AND/OR DOUBLE-FIELD INPUT C AND PASS ON THE FIRST 3 BULKDATA FIELD INFORMATION INDENTI- C CALLY TO THE BUF4 CONTROL ARRAY. C 6. XREAD/FFREAD COMPLETELY ELIMINATE THE REVERSE-STORAGE PROBLEM C OF THE VAX MACHINE. I.E. C THE CONSTANT 'ABCD' IS STORED INTERNALLY AS 'DCBA' IN THE VAX C 7. IN DOUBLE-FIELD INPUT, THE ASTERISK (*) IN FIELD 1 REMAINS C WHERE IT IS. (THE OLD XSORT MOVED IT TO COL. 8 THEN TO COL. 1. C SUBROUTINE RCARD MUST BE MODIFIED TO HANDLE THIS DOUBLE-FIELD C CASE) C 8. NO LEADING BCD-ZEROS IN FIELD 2 IF THAT FIELD CONTAINS AN C INTEGER NUMBER, AND THE NUMBER IS NOT RIGHT ADJUSTED (I.E. C XSORT2 TREATS FIELD 2 INTEGER THE SAME WAY AS INTEGERS IN ALL C OTHER FILEDS, NAMELY LEFT ADJUSTED WITH TRAILING BLANKS C 9. IF THE 1ST FIELD OF THE 2ND CARD IS BLANK, A UNIQUE CONTINUA- C TION SYMBOL IS INSERTED INTO THE 1ST FIELD, AND THE SAME C SYMBOL IS ADDED TO THE 10TH FIELD OF THE PREVIOUS CARD C C SCRATCH FILE LIMITATION IN LINK1 - C SEMDBD ALLOCATES ONLY 15 SCRATCH FILES. SINCE XCSA AND XGPI USE C THE LAST SCRATCH FILE FOR RIGID FORMAT, XSORT2, PROGRAMMED UP TO C 30 FILES, IS THEREFORE PHYSICALLY LIMITTED TO 14 SCRATCH FILES. C C WRITTEN BY G.CHAN/UNISYS 10/1987 C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF LOGICAL ONLY1,DEBUG INTEGER Y(25,1),BUF(50),IBUFX(10),ITAPE(10),TEMP(2), 1 NAME(2),BULKDA(2),PARAM(2),CDCNT(3),KSMB(3), 2 FUB(25) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,HEAD4*28,HEAD(3)*56 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /MACHIN/ MACH,IJHALF(2),LQRO COMMON /XSORTX/ BUF4(4),TABLE(255) COMMON /SYSTEM/ BUFSZ,NOUT,NOGO,IN,DUM3(10), 1 DATE(4),ECHO,DUM4,APPRC,DUM5(9),HICORE, DUM6(7), 2 NBPC,NBPW,DUM7(28),SUBS,DUM8(12),CPFLG,DUM9(8), 3 LPCH COMMON /OUTPUT/ DUM10(96),HEAD1(32),HEAD2(32),HEAD3(32) CZZ COMMON /ZZXST2/ Z(1) COMMON /ZZZZZZ/ Z(196605) COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW,NOREW,EOFNRW COMMON /STAPID/ DUM11(12),KUMF COMMON /XECHOX/ FFFLAG,ECHOU,ECHOS,ECHOP,IXSORT,WASFF,NCARD, 1 F3LONG,DUM12 COMMON /IFPX0 / DUM13(2),IBITS(1) COMMON /IFPX1 / NUMX1,ICARDS(2) COMMON /TWO / ITWO(32) EQUIVALENCE (Y(1,1),Z(1)), (BUF41,BUF4(1)), 1 (IBUFX(1),BUF(26)), (ITAPE(1),BUF(38)) DATA HEAD , HEAD4 / 1 ' I N P U T B U L K D A T A D E C K E C H O ', 2 ' S O R T E D B U L K D A T A E C H O ', 3 ' ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7---', 4 ' +++8+++ ---9--- +++10+++ '/ ,I25 /25 / DATA NAME ,CDCNT ,OPTP ,NPTP ,BLANK / 1 4HXSOR,4HT2 ,4HCARD,4HCOUN,4HT ,4HOPTP ,4HNPTP ,4H / DATA TAPE1 ,TAPE2 ,TAPE3 ,MAXSCR,BULKDA ,PARAM / 1 301 ,302 ,303 ,314 ,4HBULK,4HDATA ,4HPARA ,4HM / DATA KSMB /4H+C0N,4H+CQN,4H+CON / ,DEBUG /.FALSE. / C C DIAG 47 CAN BE RE-ACTIVATED FOR PROGRAM DEBUG CHECKING C C CALL SSWTCH (47,J) C IF (J .EQ. 1) DEBUG = .TRUE. C C TURN ON XSORT FLAG AND FREE-FIELD FLAG FOR XREAD AND FFREAD C IXSORT = 1 FFFLAG = 1234 C C CHECK UMF REQUEST C IF (KUMF .LE. 0) GO TO 110 WRITE (NOUT,100) UFM 100 FORMAT (A23,' - USER MASTER FILE, UMF, IS NOT SUPPORTED BY NEW ', 1 'XSORT ROUTINE', /5X, 2 'ADD A ''DIAG 42'' CARD AND RESUBMIT YOUR NASTRAN JOB') C 100 FORMAT (A23,' - USER MASTER FILE, UMF, IS NO LONGER SUPPORTED BY', C 1 ' NASTRAN',/5X,'(NOTE - RELEASE 87 WAS THE LAST VERSION ', C 2 'THAT SUPPORTED UMF OPERATION)') CALL MESAGE (-37,0,NAME) C C INITIALIZE XSORT2 C 110 ECHOU = 0 ECHOS = 0 ECHOP = 0 NCARD = 0 CMMT = 0 NCONT = 0 NDELE = 0 FULL = 0 EXH = 0 TAPECC= 0 BSIZE = 3 RESTR = 0 CASE = 1 KONTN = 10010000 KSMBI = KSMB(1) IF (APPRC .LT. 0) RESTR = 1 IF (RESTR .EQ. 1) KSMBI = KHRFN3(KSMB(1),DATE(2),-2,0) J = COMPLF(0) LARGE = RSHIFT(J,1 ) LES1B = RSHIFT(J,NBPC) IF (MOD(LQRO,10) .EQ. 1) LES1B = LSHIFT(J,NBPC) IF (ECHO .LT. 0) GO TO 120 ECHOU = ANDF(ECHO,1) ECHOS = ANDF(ECHO,2) ECHOP = ANDF(ECHO,4) IF (CPFLG .NE. 0) ECHOS = 1 C C SET UP UNSORTED HEADING C C (UNSORTED INPUT DATA IS NOW PRINTED BY FFREAD ROUTINE BECAUSE C XREAD HAS BEEN MODIFIED TO RETURN ALL 10 DATA FIELDS LEFT- C ADJUSTED) C 120 DO 130 J = 1,32 HEAD2(J) = BLANK HEAD3(J) = BLANK 130 HEAD1(J) = BLANK IMHERE = 130 IF (DEBUG) WRITE (NOUT,140) IMHERE,RESTR,APPRC,SUBS 140 FORMAT (//,' *** XSORT2/IMHERE =',6I5) READ (HEAD(1),150) (HEAD1(J),J=11,24) CWKBR 9/93 READ (HEAD(3),150) (HEAD3(J),J= 7,20) READ (HEAD(3),150) (HEAD3(J),J= 8,21) CWKBR 9/93 READ (HEAD 4 ,150) (HEAD3(J),J=21,27) READ (HEAD 4 ,150) (HEAD3(J),J=22,28) 150 FORMAT (14A4) IF (ECHOU .NE. 0) CALL PAGE C C GET AVAILABLE CORE C IF IBM MACHINE, LIMIT AVAILABLE CORE SIZE TO 1,000,000 WORDS, SUCH C THAT DATA WILL BE SAVED IN PRIMARY FILES ONLY, AND NO SPILL INTO C SECONDARY FILES. C NZZ = KORSZ(Z) IBUF1 = NZZ - BUFSZ IBUF2 = IBUF1 - BUFSZ IBUF3 = IBUF2 - BUFSZ NZ = IBUF3 - 1 IF (MACH .EQ. 2) NZ = MIN0(NZ,1000000) IF (NZ .LT. 2500) CALL MESAGE (-8,2500,NAME) NZ25 = NZ/25 C C OPEN TAPE1, GINO FILE 301 FOR DELETE (SLASH) CARDS C AND TAPE2, GINO FILE 302 FOR CONTINUATION CARDS C SET TAPE TO TAPE3, GINO FILE 303, FOR BULKDATA CARDS C UP TO 30 FILES ARE ALLOWED FOR REGUALR BULKDATA CARDS C (CURRENTLY /XFIST/ IN SEMDBD IS SET UP ONLY TO SCRATCH FILE 315. C I.E. UP TO 13 (OR 12, IF DECK CONTAINS MANY CONTINUATION CARDS) C FILES CAN BE USED HERE) C IMHERE = 170 IF (DEBUG) WRITE (NOUT,140) IMHERE,NZ25 CALL OPEN (*2900,TAPE1,Z(IBUF1),WRTREW) CALL OPEN (*2910,TAPE2,Z(IBUF2),WRTREW) TAPE = TAPE3 - 1 170 TAPE = TAPE + 1 IF (TAPE .LE. 314) GO TO 180 IF (DEBUG) WRITE (NOUT,2955) CALL MESAGE (-8,-NZZ,NAME) 180 CALL OPEN (*2960,TAPE,Z(IBUF3),WRTREW) WRTTN = 0 C C C START READING INPUT CARDS VIA XREAD/FFREAD. C C C ADDITIONAL INFORMATION FROM XREAD NOT MENTIONED PREVIOUSLY - C C 1. BUF4(1) = BUF4(2) =-1 INDICATE BULKDATA IS A COMMENT CARD C BUF4(1) = BUF4(2) =-2 INDICATE BULKDATA IS A CONTINUATION CARD C BUF4(1) = BUF4(2) =-3 INDICATE BULKDATA IS A DELETE CARD, WITH C DELETE RANGE SAVED IN BUF4(3) AND BUF4(4) C BUF4(1) =-3 AND BUF4(4) =-4 IF TRASH WAS FOUND IN DELETE CARD. C THAT IS, TRASH AFTER SLASH IN BULKDATA FIELD 1 C BUF4(1) = BUF4(4) =-5 INDICATE A BLANK CARD WAS READ C BUF4(1) = BUF4(4) =-9 INDICATE AN ENDDATA CARD WAS READ C 2. IF BULKDATA FIELD 2 IS AN INTEGER INPUT, THE CORRECT INTEGER C VALUE IS SAVED IN BUF4(3) C IF BULKDATA FIELD 3 IS AN INTEGER INPUT, THE CORRECT INTEGER C VALUE IS SAVED IN BUF4(4) C 3. IF THE DATA IN FIELD 2 AND/OR 3 ARE F.P. NUMBER, THEIR INTEGER C VALUES (NOT EXACT) ARE SAVED IN BUF4(3) AND/OR BUF4(4) C THESE VALUES ARE USED ONLY FOR SORTING C 4. IF BULKDATA FIELD 2 IS NOT NUMERIC, THE FIRST 6 CHARACTERS ARE C CONVERTED TO INTERNAL INTEGER CODE AND SAVED IN BUF4(3 C IF THE REMAINING 2 CHARACTERS ARE NOT BLANKS, THEY ARE SAVED C IN BUF4(4) C 5. IF BUF4(4) IS NOT USED BY 4, IT HOLDS THE INTERNAL CODE OR THE C INTEGER VALUE FOR FIELD 3 OF THE ORIGINAL BULKDATA. C C WORK SPACE - NZ C 1 / C ------------------------------------------------------------------ C ! OPEN CORE, Z ! ! ! ! C ------------------------------------------------------------------ C !<----------INPUT CARDS, 25 WORDS EACH----------->!<----GINO---->! C (20-WORD CARD IMAGE, 4 CONTRL BUFFERS C CONTROL WORDS, 1 INDEX POINTER) C C C SUMMARY OF COUNTERS - C C NCONT = TOTAL CONTINUATION CARDS COUNT, ON INPUT BULK DATA DECK C AND ON RESTART OPTP FILE C NDELE = TOTAL COUNT ON RESTART DELETE CARDS C CMMT = TOTAL COUNT ON NON-ESSENTIAL CARDS (COMMENTS, BLANKS, AND C RESTART DELETE CARDS) OF INPUT BULK DATA DECK C KONTN = SYMBOL COUNTER FOR AUTO-CONTINUAION GENERATION C KOUNT = DELETE RANGE COUNTER, USED ONLY IN 800-820 AREA C NCARD = TOTAL INPUT BULK DATA CARDS COUNT, INCLUDING NON-ESSENTIAL C CARDS; CONTINUATION CARDS AND CARDS ON OPTP ARE EXCLUDED C COUNT = CURRENT CORE COUNT ON INPUT CARDS FROM BULK DATA DECK, ALL C NON-ESSENTIAL AND CONTINUATION CARDS ARE EXCLUDED C NBULK = NO. OF ACTIVE BULK DATA INPUT CARDS C = NCARD-CMMT = SUM OF ALL COUNT's C NOTE - NO CARD COUNT ON THE OPTP FILE BEFORE ASSEMBLING NPTP FILE C COUNT = 0 200 IF (COUNT .LT. NZ25) GO TO (212,214,207,210,210,210), CASE C 1, 2, 3, 4, 5, 6 = CASE CASE = 1 IF (WASFF .LE. 0) GO TO 340 C C (200 THRU 215) SPECIAL HANDLING OF CONTINUATION CARD(S) WITH FIRST C FIELD BLANK DURING FREE-FIELD INPUT. REGULAR CONTINUATION CARD C (FIRST FIELD NOT BLANK) OR FIXED-FIELD INPUT CARDS (BOTH PARENT C AND CHILD) ARE NOT CONSIDERED HERE. C C EXAMPLE - CBAR,10,20, 1 2 3 9)2 C ,,, .5 .5 .5 C C WE NEED TO CREATE A UNIQUE CONTINUATION SYMBOL FOR THE 1ST FIELD, C AND ADD THE SAME SYMBOL TO THE 10TH FIELD OF THE PREVIOUS CARD. C SET BUF41 FLAG TO -2. C WAITING C AT THIS POINT, CARD IN C CASE 1, NO CARD IS WAITING FOR PROCESSING ------- C CASE 2, CORE WAS FULL AND WAS EMPTIED OUT. A NON- BUF C CONTINUATION CARD WAS READ AND AWAITS PROCESSING C CASE 3, CORE WAS FULL AND EMPTIED. A CONTINUATION CARD BUF C WAS READ AND AWAITS PROCESSING. C CASE 4, CORE NOT FULL, A CONT.CARD WAS READ. THE NEXT CARD FUB C IS NOT A CONT.CARD. THE CONT.CARD WAS PROCESSED, C AND THE NON-CONT. CARD AWAITS PROCESSING. C CASE 5, CORE NOT FULL, A CONT.CARD WAS READ AND THE NEXT FUB C CARD IS ALSO A CONT.CARD. THE FIRST CONT.CARD C WAS PROCESSED, AND THE SECOND CONT.CARD AWAITS C PROCESSING. C CASE 6, CONTINUE FROM PROCESSING CASES=4,5 FUB C C ... CASES 2 AND 3 - C CORE IS FULL, READ ONE MORE CARD AND SEE THE NEW CARD IS A SPECIAL C CONTINUATION CARD OR NOT C IF IT IS, UPDATE THE 10TH FIELD OF THE PARENT CARD BEFORE C SENDING THE ENTIRE CORE FOR SORTING C IMHERE = 202 202 CALL XREAD (*208,BUF) IF (BUF41.EQ.-1 .OR. BUF41.EQ.-5) GO TO 202 CASE = 2 IF (BUF(1).NE.BLANK .OR. BUF(2).NE.BLANK) IF (BUF41+2) 340,203,340 203 BUF41X = -2 CASE = 3 GO TO 205 C C ... CASES 4 AND 5 - C CORE IS NOT FULL, A SPECIAL CONTINUATION CARD WAS JUST READ C 204 IF (WASFF .LE. 0) GO TO 214 CASE = 4 BUF41 = -2 205 KONTN = KONTN + 1 IF (KONTN .EQ. 10020000) KSMBI = KSMB(2) IF (KONTN .EQ. 10030000) KSMBI = KSMB(3) IMHERE = 205 IF (DEBUG) WRITE (NOUT,140) IMHERE,KONTN,COUNT,NZ25,CASE CALL INT2A8 (*3140,KONTN,BUF(1)) BUF(1) = KSMBI IF (COUNT .LE. 0) GO TO 208 Y(19,COUNT) = BUF(1) Y(20,COUNT) = BUF(2) IF (CASE-3) 340,340,207 C 206 CASE = 6 IF (BUF41 .EQ. -9) GO TO 350 C 207 CALL XREAD (*207,FUB) IF (BUF41.EQ.-1 .OR. BUF41.EQ.-5) GO TO 207 FUB41 = BUF41 BUF41 = -2 IF (FUB(1).NE.BLANK .OR. FUB(2).NE.BLANK) GO TO 215 FUB41 = -2 CASE = 5 KONTN = KONTN + 1 IF (KONTN .EQ. 10020000) KSMBI = KSMB(2) IF (KONTN .EQ. 10030000) KSMBI = KSMB(3) IMHERE = 207 IF (DEBUG) WRITE (NOUT,140) IMHERE,KONTN,COUNT,NZ25,CASE CALL INT2A8 (*3140,KONTN,FUB(1)) FUB(1) = KSMBI BUF(19) = KSMBI BUF(20) = FUB(2) GO TO 217 C 208 NOGO = 1 WRITE (NOUT,209) SFM,IMHERE 209 FORMAT (A25,'. IMHERE =',I6) GO TO 214 C 210 DO 211 I = 1,25 211 BUF(I) = FUB(I) BUF41 = FUB41 IF (CASE-5) 214,206,214 212 CALL XREAD (*3120,BUF) IF (BUF(1).EQ.BLANK .AND. BUF(2).EQ.BLANK) GO TO 204 214 CASE = 1 C C IGNORE COMMENT CARD (-1) OR BLANK CARD (-5) C 215 IF (BUF41.NE.-1 .AND. BUF41.NE.-5) GO TO 216 CMMT = CMMT + 1 GO TO 212 C C TEST FOR ENDDATA CARD (-9) C 216 IF (BUF41 .EQ. -9) GO TO 350 C C IF THIS IS A CONTINUATION CARD (-2), ADD ONE CONTROL WORD ABOUT C RESTART, AND WRITE IHE CARD OUT TO TAPE2 C (THE CONTROL WORD WILL FLAG THE PARENT BIT TO BE SET FOR RESTART C WHEN THIS CONTINUATION CARD IS MERGED INTO NPTP) C IF (BUF41 .NE. -2) GO TO 230 217 BUF(21) = RESTR CALL WRITE (TAPE2,BUF(1),21,0) IF (DEBUG) WRITE (NOUT,220) BUF(1),BUF(2),BUF(21) 220 FORMAT (5X,'A CONTINUATION CARD - ',2A4,', CONT.FLAG=',I9) NCONT = NCONT + 1 GO TO 200 C C IF THIS IS A DELETE CARD (-3), REJECT IT IF EXTRANEOUS DATA IN C FIELD 1 OTHERWISE WRITE THE RANGE OF DELETION ON TAPE1 C 230 IF (BUF41 .NE. -3) GO TO 300 CMMT = CMMT + 1 IF (BUF4(4) .NE. -4) GO TO 250 CALL PAGE2 (2) WRITE (NOUT,240) UFM 240 FORMAT (A23,' 221, EXTRANEOUS DATA IN FIELD 1 OF BULK DATA ', 1 'DELETE CARD.') NOGO = -2 C 250 IF (BUF4(3) .EQ. -3) GO TO 270 IF (BUF4(4) .EQ. -3) BUF4(4) = BUF4(3) BUF4(3) = BUF4(3) - 2000000000 BUF4(4) = BUF4(4) - 2000000000 CALL WRITE (TAPE1,BUF4(3),2,0) IF (DEBUG) WRITE (NOUT,260) BUF4(3),BUF4(4) 260 FORMAT (5X,'A DELETE CARD -',I11,1H,,I11) NDELE = NDELE + 1 GO TO 200 270 WRITE (NOUT,280) UFM 280 FORMAT (A23,' 221, NO DATA IN FIELD 2 OF BULK DATA DELETE CARD') NOGO = -1 GO TO 200 C C REGULAR BULKDATA CARDS. C SAVE 20 WORDS OF BUF, 4 WORDS FROM BUF4 AND CORE COUNTER IN OPEN C CORE SPACE Y (25 WORDS TOTAL) C SET RESTART BITS IF THIS IS A RESTART RUN C RETURN TO READ NEXT BULKDATA CARD C 300 COUNT = COUNT + 1 WRTTN = 1 DO 310 I = 1,20 310 Y(I,COUNT) = BUF(I) DO 320 I = 1,4 320 Y(I+20,COUNT) = BUF4(I) Y(25 ,COUNT) = COUNT IF (DEBUG) WRITE (NOUT,330) COUNT,Y(1,COUNT),Y(2,COUNT) 330 FORMAT (5X,'SAVED IN CORE COUNT=',I5,3X,2A4) IF (RESTR .EQ. 0) GO TO 200 ASSIGN 200 TO CRDFLG FROM = 330 GO TO 2800 C C OPEN CORE BUFFER FULL, ENDDATA CARD HAS NOT BEEN ENCOUNTERED C 340 FULL = 1 GO TO 400 C C ENDDATA CARD FOUND, SET FLAG C 350 FULL = -1 IMHERE= 350 NCARD = NCARD - 1 NBULK = NCARD - CMMT IF (DEBUG) WRITE (NOUT,140) IMHERE,NCARD,NCONT,NDELE CALL PAGE2 (2) IF (ECHOU .NE. 1) GO TO 370 WRITE (NOUT,360) NCARD 360 FORMAT (//24X,'TOTAL COUNT=',I7) GO TO 400 370 WRITE (NOUT,380) NCARD,CMMT 380 FORMAT (//24X,'(NO. OF UNSORTED BULK DATA CARDS READ =',I6, 1 ', INCLUDING',I4,' COMMENT CARDS)') C C SORT CARD IMAGES SAVED IN THE OPEN CORE SPACE BY MODIFIED SHELL C METHOD. C SORT BY 21ST, 22ND, 23RD, AND 24TH CONTROL WORDS ONLY C ONLY THE LAST 5 WORDS (21ST THRU 25TH) ARE MOVED INTO SORTED C ORDER, THE FIRST 20 WORDS REMAIN STATIONARY. C 400 IF (WRTTN .EQ. 0) GO TO 580 IF (COUNT .GT. NZ25) CALL MESAGE (-37,0,NAME) M = COUNT IMHERE = 400 IF (DEBUG) WRITE (NOUT,140) IMHERE,COUNT 410 M = M/2 IF (M .EQ. 0) GO TO 500 J = 1 K = COUNT - M 420 I = J 430 N = I + M IF (Y(21,I) - Y(21,N)) 490,440,470 440 IF (Y(22,I) - Y(22,N)) 490,450,470 450 IF (Y(23,I) - Y(23,N)) 490,460,470 460 IF (Y(24,I) - Y(24,N)) 490,490,470 470 DO 480 L = 21,25 TEMPX = Y(L,I) Y(L,I) = Y(L,N) 480 Y(L,N) = TEMPX I = I - M IF (I .GE. 1) GO TO 430 490 J = J + 1 IF (J-K) 420,420,410 C C END OF CORE SORT. C WRITE THE SORTED BULKDATA CARDS TO FILE, 24 WORDS EACH RECORD C IN ORDER GIVEN BY THE 25TH WORD. C IF ONLY ONE SCRATCH FILE (TAPE3) IS USED IN RECEIVING BULKDATA, C CHECK ANY DUPLICATE CARD. C 500 IMHERE = 500 IF (DEBUG) WRITE (NOUT,140) IMHERE,COUNT,MAXC ONLY1 = .FALSE. IF (FULL.EQ.-1 .AND. TAPE.EQ.TAPE3) ONLY1=.TRUE. BASE = 25 DO 570 I = 1,COUNT IF (ONLY1) BASE = MOD(I,2)*25 J = Y(25,I) DO 510 K = 1,20 510 BUF(K+BASE) = Y(K,J) DO 520 K = 21,24 520 BUF(K+BASE) = Y(K,I) IF (.NOT.ONLY1) GO TO 550 IF (I .EQ. 1) GO TO 540 DO 530 K = 1,20 IF (BUF(K+BASE) .NE. BUF(K+OBASE)) GO TO 540 530 CONTINUE BUF(21+BASE) = -6 BUF(22+BASE) = -6 540 OBASE = BASE 550 CALL WRITE (TAPE,BUF(BASE+1),24,0) IF (DEBUG) WRITE (NOUT,560) TAPE,(BUF(K+BASE),K=1,8) 1 ,(BUF(K+BASE),K=21,24) 560 FORMAT (5X,'WRITE TO ',I3,4(2X,2A4), /9X,'INT.CODE=',4I12) 570 CONTINUE CALL WRITE (TAPE,0,0,1) 580 CALL CLOSE (TAPE,REW) IMHERE = 580 IF (DEBUG) WRITE (NOUT,140) IMHERE C C REPEAT READING BULKDATA CARDS INTO CORE IF NECESSARY C C IF NO DATA WRITTEN TO CURRENT FILE (e.g. UN-MODIFIED RESTART), C REDUCE TAPE COUNT BY ONE C IF (FULL .NE. -1) GO TO 170 IF (WRTTN .EQ. 0) TAPE = TAPE - 1 C C CLOSE DELETE CARD FILE, TAPE 1. C CONTINUATION CARD FILE, TAPE 2, IS STILL IN USE C CALL WRITE (TAPE1,0,0,1) CALL CLOSE (TAPE1,REW ) C C TEST FOR COLD-START WITH NO BULKDATA C C APPRC = APPROACH FLAG (1 DMAP, 2 DISP, 3 HEAT, 4 AERO) C SUBS = SUBSTRUCTURING FLAG C IMHERE = 585 IF (DEBUG) WRITE (NOUT,140) IMHERE,COUNT,APPRC,WRTTN,RESTR,SUBS IF (WRTTN.EQ.1 .OR. RESTR.EQ.1 .OR. SUBS.NE.0) GO TO 600 CALL CLOSE (TAPE2,REW) ECHOS = 1 IF (APPRC .EQ. 1) GO TO 1600 CALL PAGE2 (2) WRITE (NOUT,590) UFM 590 FORMAT (A23,' 204, COLD START NO BULK DATA.') NOGO = -2 GO TO 3200 C C IF MODIFIED RESTART - TURN ON SORT ECHO FLAG IF ECHO IS NOT 'NONO' C IF NOT A RESTART JOB - JUMP TO 1000 C 600 IF (NBULK.GT.1 .AND. RESTR.EQ.1) ECHOS = 1 C IF (APPRC.EQ.1 .OR. SUBS .NE.0) ECHOS = 1 IF (ECHO .EQ. -2) ECHOS = 0 IF (RESTR .EQ. 0) GO TO 1000 C C THIS IS A RESTART JOB, PROCESS OPTP FILE - C C OPEN OPTP AND LOCATE WHERE BULK DATA BEGINS C IMHERE = 610 IF (DEBUG) WRITE (NOUT,140) IMHERE CALL OPEN (*3080,OPTP,Z(IBUF3),RDREW) 610 CALL SKPFIL (OPTP,+1) CALL READ (*3040,*3040,OPTP,BUF(1),2,1,J) IF (BUF(1).NE.BULKDA(1) .OR. BUF(2).NE.BULKDA(2)) GO TO 610 IF (NBULK.GT.0 .OR. NDELE.NE. 0) GO TO 640 C C UN-MODIFIED RESTART, WITH NO NEW BULKDATA CARD AND NO DELETE - C SETUP SORTED HEADER FOR OLD BULK DATA CARDS IF ECHO FLAG IS ON, C COPY THE REST OF OPTP DIRECTLY TO NPTP, AND JOB DONE C C IMHERE = 620 IF (DEBUG) WRITE (NOUT,140) IMHERE CALL OPEN (*3100,NPTP,Z(IBUF1),WRT) CALL WRITE (NPTP,BULKDA,2,1) NCARD = 0 IF (ECHOS .EQ. 0) GO TO 620 READ (HEAD(2),150) (HEAD1(J),J=11,24) CWKBR 9/93 HEAD2(4) = CDCNT(1) HEAD2(5) = CDCNT(1) CWKBR 9/93 HEAD3(4) = CDCNT(2) HEAD3(5) = CDCNT(2) CWKBR 9/93 HEAD3(5) = CDCNT(3) HEAD3(6) = CDCNT(3) CALL PAGE 620 CALL READ (*630,*630,OPTP,BUF(1),20,1,J) CALL WRITE (NPTP,BUF(1),20,1) NCARD = NCARD + 1 IF (ECHOP .NE. 0) WRITE (LPCH,1750) (BUF(J),J=1,20) IF (ECHOS .EQ. 0) GO TO 620 CALL PAGE2 (-1) WRITE (NOUT,1730) NCARD,(BUF(J),J=1,20) GO TO 620 630 CALL EOF (NPTP) CALL CLOSE (NPTP, REW) CALL CLOSE (OPTP,NOREW) CALL CLOSE (TAPE2, REW) IF (ECHOP .NE. 0) WRITE (LPCH,2320) CALL PAGE2 (-1) IF (ECHOS .NE. 0) WRITE (NOUT,2300) IF (ECHOS .EQ. 0) WRITE (NOUT, 635) UIM,NCARD 635 FORMAT (A29,1H,,I8,' SORTED BULKD DATA CARDS PROCESSED FROM OPTP', 1 ' FILE TO NPTP, UN-MODIFIED') GO TO 2700 C C MODIFIED RESTART WITH NEW BULKDATA CARDS, WITH OR WITHOUT DELETE C 640 IMHERE = 640 IF (DEBUG) WRITE (NOUT,140) IMHERE IC = 1 LEFT = NZ IF (NDELE .EQ. 0) GO TO 710 IF (RESTR .EQ. 1) GO TO 660 CALL PAGE2 (-1) WRITE (NOUT,650) UWM 650 FORMAT (A25,' 205, COLD START, DELETE CARDS IGNORED.') GO TO 710 C C RESTART WITH DELETE CARD(S) - C MOVE THE DELETE CARDS INTO CORE AND FREE TAPE1. C SORT THE DELETE CARDS, CHECK FOR AND ELIMINATE OVERLAPS AND C REDUNDANCIES C 660 CALL OPEN (*2900,TAPE1,Z(IBUF1),RDREW) CALL READ (*2900,*670,TAPE1,Z(1),LEFT,1,LEN) CALL MESAGE (-8,TAPE1,NAME) 670 CALL CLOSE (TAPE1,REW ) C CALL SORT (0,0,2,1,Z(1),LEN) Z(LEN+1) = LARGE DO 680 I = 2,LEN,2 Z(I) = Z(I)+1 IF (Z(I) .LT. Z(I-1)) Z(I) = Z(I-1) IF (Z(I) .LT. Z(I+1)) GO TO 680 Z(I ) = -1 Z(I+1) = -1 680 CONTINUE J = 0 DO 690 I = 1,LEN IF (Z(I) .LT. 0) GO TO 690 J = J + 1 Z(J) = Z(I) 690 CONTINUE IF (J .GT. 0) LEN = J LEFT = NZ - LEN IC = LEN + 1 Z(IC) = LARGE IMHERE = 700 IF (DEBUG) WRITE (NOUT,700) IMHERE,(Z(I),I=1,LEN) 700 FORMAT (/,' *** IMHERE =',I5,(/,3X,10(I7,I5))) IF (MOD(LEN,2) .NE. 0) GO TO 3140 GO TO 800 C C IF MODIFIED RESTART WITH NO DELETE, SET DELETE RANGE BEGINNING AT C INFINITY C 710 Z(1) = LARGE IMHERE = 710 IF (DEBUG) WRITE (NOUT,140) IMHERE C C WE ARE STILL IN PROCESSING RESTART - COPY OPTP TO TAPE1, SKIP C APPROPRIATE RECORDS AS SPECIFIED BY THE DELETE CARDS NOW IN C OPEN CORE, Z(1) THRU Z(LEN) C C SEND A CARD FROM OPTP TO YREAD (AN ENTRY POINT IN XREAD) FOR C RE-PROCESSING. UPON RETURN FROM YREAD, BUF4 ARRAY HOLDS THE C INTERNAL INTEGER CODE GOOD FOR SORTING AND OTHER FUNCTIONS. C C IF IT IS A CONTINUATION CARD, COPY THE FULL CARD (20 WORDS) C AND ONE CONTROL WORD TO TAPE2. C OTHERWISE COPY 24 WORDS (20-BUF AND 4-BUF4) TO TAPE1. C C IF A CONTINUATION CARD IS DELETED, THE RESTART BITS OF THE C PARENT CARD SHOULD BE FLAGGED C 800 IMHERE = 800 IF (DEBUG) WRITE (NOUT,140) IMHERE,RESTR,TAPE1 CALL OPEN (*2900,TAPE1,Z(IBUF1),WRTREW) KOUNT = 0 POINT = 1 ONOFF = 1 ZPOINT = Z(POINT) BUF(19) = 0 810 TEMP(1) = BUF(19) TEMP(2) = BUF(20) CALL READ (*900,*900,OPTP,BUF(1),20,1,J) KOUNT = KOUNT + 1 IF (KOUNT .LT. ZPOINT) GO TO 820 POINT = POINT + 1 ZPOINT = Z(POINT) ONOFF = ONOFF*(-1) 820 CALL YREAD (*3060,BUF) IMHERE = 830 IF (DEBUG .AND. ONOFF.EQ.-1) WRITE (NOUT,830) IMHERE,KOUNT, 1 (BUF(J),J=1,6) 830 FORMAT (' IMHERE=',I5,'. DELETED FROM OPTP ==>',I5,2H- ,6A4) IF (BUF41 .EQ. -2) GO TO 870 IF (ONOFF .EQ. +1) GO TO 840 C C ANY DELETED CARD, EXCEPT CONTINUATION CARD, MUST RESET C RESTART CARD FLAG C ASSIGN 810 TO CRDFLG FROM = 830 GO TO 2800 C C REGULAR BULKDATA CARD FROM OPTP - C SAVE FIRST FIELD IN KARD1/2 JUST IN CASE THIS IS A PARENT OF C A CONTINUATION CARD WHICH FALLS INSIDE A DELETE RANGE. C C NOTE- CARDS FROM OPTP ARE IN SORTED ORDER, AND NO CARD COUNT HERE C 840 DO 850 J = 1,4 850 BUF(J+20) = BUF4(J) CALL WRITE (TAPE1,BUF(1),24,0) IF (DEBUG) WRITE (NOUT,860) (BUF(J),J=1,6),BUF(21) 860 FORMAT (' IMHERE=860, OPTP==>TAPE1 ',6A4,'==>',I9) KARD1 = BUF(1) KARD2 = BUF(2) IF (KARD1.NE.PARAM(1) .OR. KARD2.NE.PARAM(2)) GO TO 810 KARD1 = BUF(3) KARD2 = BUF(4) GO TO 810 C C CONTINUATION CARD FROM OPTP - C C IF BOTH PARENT AND THIS CONTINUATION CARD IN NOT IN DELETE RANGE C SEND THIS CONTINUATION CARD TO TAPE2 WITH RESTART CONTROL WORD C SET TO ZERO. C IF PARENT IS NOT DELETED, BUT THIS CONTINUATION CARD IS, WE NEED C TO FLAG PARENT C IF PARENT IS ALSO IN DELETE RANGE, SKIP THIS CONTINUATION CARD. C 870 IF (ONOFF .EQ. +1) GO TO 890 IF (KARD1 .EQ. -1) GO TO 810 IF (BUF(1).EQ.TEMP(1) .AND. BUF(2).EQ. TEMP(2)) GO TO 810 FROM = 860 ASSIGN 880 TO CRDFLG GO TO 2810 880 KARD1 = -1 GO TO 810 890 BUF(21) = 0 CALL WRITE (TAPE2,BUF(1),21,0) NCONT = NCONT + 1 GO TO 810 C C OPTP IS SUCCESSFULLY MOVED TO TAPT1 AND TAPE2. CLOSE FILES C 900 CALL CLOSE (OPTP ,NOREW) CALL WRITE (TAPE1,0,0,1) CALL WRITE (TAPE2,0,0,1) CALL CLOSE (TAPE1,REW ) C C PREPARE FOR FILE MERGE - C C SELECT METHOD USED TO BRING CONTINUATION CARDS INTO CORE AND C COMPUTE NUMBER OF BUFFERS NEEDED FOR FILE PRE-MERGE. C C METHOD 1 - NO FILE PRE-MERGE IF THERE IS NO CONINUATION CARDS, OR C ENOUGH SPACE IN CORE TO HOLD ALL CONTINUATION CARDS, C BUFFERS AND SCRATCH ARRAYS FOR ALL SCRATCH DATA FILES C METHOD 2 - ALL CONTINUATION CARDS, IN 3-WORD TABLE AND 20-WORD C CARD IMAGES, AND ALL GINO BUFFERS, OR REDUCED GINO C BUFFERS, FIT INTO CORE C METHOD 3 - CONTINUATION 3-WORD TABLE AND ALL GINO BUFFERS, OR C REDUCED GINO BUFFERS, FIT INTO CORE C METHOD 4 - FATAL, INSUFFICIENT CORE C 1000 CALL CLOSE (TAPE2,REW) METHOD = 1 N23 = 1 NFILES = TAPE - TAPE3 + 1 REDUCE = 1 IF (NFILES .GE. 10) REDUCE = 2 IF (NFILES .GT. 17) REDUCE = 3 J = 0 IF (RESTR .EQ. 1) J = 1 MAXC = (NZZ-(BUFSZ+25)*(NFILES+J))/21 IF (NCONT .LE. MAXC) REDUCE = 1 NFILER = (NFILES+REDUCE-1)/REDUCE + J IMHERE = 1010 IF (DEBUG) WRITE (NOUT,140) IMHERE,REDUCE,NFILES,NFILER IF (NCONT) 1020,1100,1020 1010 SIZE = (NFILER+1)*BUFSZ + NFILER*25 SIZE = SIZE + BUFSZ LEFT = NZZ - SIZE MAXC = LEFT/N23 IMHERE = 1020 IF (DEBUG) WRITE (NOUT,140) IMHERE,METHOD,NFILES,NFILER,N23,NCONT IF (NCONT .LE. MAXC) GO TO 1100 GO TO (1020,1030,1040), METHOD 1020 METHOD = 2 N23 = 23 GO TO 1010 1030 METHOD = 3 N23 = 3 GO TO 1010 C C INSUFFICIENT CORE, COMPUTE HOW MUCH MORE NEEDED C 1040 J = NCONT*N23 - LEFT CALL MESAGE (-8,J,NAME) C C ALLOCATE BUFFER SPACE AND REDEFINE AVAILABLE CORE SPACE, NZ C ALLOCATE SPACES AT THE BEGINNING OF CORE SPACE FOR BULKDATA C TO BE BROUGHT BACK FROM VARIOUS FILES. C C IC = POINTER, WHERE CONTINUATION TABLE BEGINS C IB = POINTER, WHERE CONTINUATION DATA BEGINS C NFILES = TOTAL NUMBER OF FILES USED BEFORE FILE REDUCTION, C RESTART TAPE1 NOT INCLUDED C NFILER = REDUCED NUMBER OF FILES THAT HOLD BULKDATA INPUT CARDS, C RESTART TAPE1 INCLUDED C TAPECC = AN ADDITIONAL FILE USED ONLY IN METHOD 3 (NOT INCLUDED C IN NFILES AND NFILER) C 1100 IMHERE = 1100 IF (DEBUG .OR. NFILES.GT.10 .OR. NCONT.GT.1000) 1 WRITE (NOUT,1110) UIM,METHOD,NFILER,HICORE,NCONT 1110 FORMAT (A29,' FROM XSORT - METHOD',I3,' WAS SELECTED TO PROCESS', 1 ' CONTINUATION CARDS', /5X,'NO. OF FILES USED =',I4,4X, 2 'HICORE =',I7,' WORDS', 4X,'NO. OF CONT. CARDS =',I7) NZ = IBUF1 DO 1120 I = 1,NFILER NZ = NZ - BUFSZ 1120 IBUFX(I) = NZ IF (NCONT .GT. 0) NZ = NZ - BUFSZ IBUFC= NZ NZ = NZ - 1 IC = NFILER*25 + 1 IB = IC + NCONT*3 NZIB = NZ - IB + 1 LEFT = NZ - IC + 1 C C NEED A STORAGE SPACE FOR AT LEASE 100 CONTINUATION CARDS C IF (NZIB .LT. 2100) CALL MESAGE (-8,-2100+NZIB,NAME) C C METHOD 1, NO CONTINUATION CARD IN BULKDATA, SKIP TO 1280 C IF (METHOD .EQ. 1) GO TO 1280 C C WORKING SPACE FOR THE CONTINUATION TABLE AND CONTINUATION CARD C IMAGES - C C IC IB NZ C / / / C ------------------------------------------------------------------ C ! ! ! !..Y..! ! ! ! ! ! ! C ------------------------------------------------------------------ C ! SPACE FOR !<--CONTINUATION-->!<--AVAILABLE SPACE-->!<--GINO--->! C DATA FROM INDEX TABLE FOR CONTINUATION BUFFERS C FILES 303, (3 WORDS EACH) CARD IMAGES C 304,... (21 WORDS EACH) C FOR FILE (PART 1 AERA) C MERGE (PART 2 AREA) C IMHERE = 1125 IF (DEBUG) WRITE (NOUT,140) IMHERE,METHOD,N23 CALL OPEN (*2910,TAPE2,Z(IBUF2),RDREW) IF (METHOD .EQ. 3) GO TO 1200 C C METHOD 2 - C C OPEN CORE IS DIVIDED INTO 2 PARTS - A 3-WORD CONTINUATION TABLE C IN PART 1, AND 21-WORD CONTINUATION CARD IMAGES IN PART 2. C C 3-WORD TABLE IN PART 1 HOLDS THE 2-BCD CONTIUATION SYMBOLS, WITH C THE FIRST BYTE (A + OR *) ZERO OUT, AND AN INDEX POINTER. THIS C TABLE WILL BE SORTED, AND WILL BE USED BY BISLC2 TO LOCATE THE C CARD IMAGES SAVED EITHER IN PART 2, OR IN TAPECC FILE. C IMHERE = 1130 IF (DEBUG) WRITE (NOUT,140) IMHERE,METHOD,NCONT,IC,IB CALL READ (*3000,*1130,TAPE2,Z(IB),NZIB,1,LEN) CALL MESAGE (-8,0,NAME) 1130 K = LEN + IB - 1 I = IC DO 1140 J = IB,K,21 Z(I ) = ANDF(Z(J),LES1B) Z(I+1) = Z(J+1) Z(I+2) = J 1140 I = I + 3 GO TO 1270 C C METHOD 3 - C C COMPUTE NCCI (NO. OF CONTINUATION CARD IMAGES) THAT PART 2 AREA C (FROM Z(IB) THRU Z(NZ)) CAN HOLD AT A GIVEN TIME. C CREATE IN CORE A CONTINUATION TABLE WITH INDEX POINTERS (SAME C AS METHOD 2) IN PART 1 AREA. C FILL THE REMAINING PART 2 AREA WITH NCCI CARDS, AND WRITE THIS C BLOCK OF CARDS OUT TO A NEW SCRATCH FILE, TAPECC. REPEAT THIS C PROCESS FOR THE REST OF THE CONTINUATION CARDS. C THE INDEX POINTERS IN PART 1 (METHOD 3 ONLY) ALSO INCLUDE THE C DATA BLOCK NUMBER INFORMATION C 1200 NCCI = NZIB/21 IF (NCCI .GE. 10000000) NCCI = 10000000 - 1 NZIB = NCCI*21 TAPECC = NFILES + TAPE3 IMHERE = 1200 IF (DEBUG) WRITE (NOUT,140) IMHERE,METHOD,TAPECC,NCCI IF (TAPECC .GT. MAXSCR) GO TO 2951 CALL OPEN (*2950,TAPECC,Z(IBUFC),WRTREW) BK = 0 I = IC IF (NCCI.GE.750 .OR. MACH.LE.2 .OR. NBPW.EQ.64) GO TO 1220 J = ((NCONT*23 - NZ+IC +999)/1000)*1000 WRITE (NOUT,1210) UIM,J,HICORE 1210 FORMAT (A29,', DUE TO UNUSUAL LARGE NUMBER OF CONTINUATION CARDS', 1 ' PRESENT IN THE BULKDATA DECK', /5X,'AN ADDITION OF',I7, 2 ' WORDS TO OPEN CORE SPACE COULD MAKE LINK1 MORE EFFICIENT' 3, /5X,'CURRENTLY NASTRAN HICORE IS',I7,' WORDS') IF (NCCI .LT. 100) NOGO = -3 1220 BK = BK + 10000000 J = IB TOP = NZIB CALL READ (*1260,*1230,TAPE2,Z(IB),TOP,0,LEN) GO TO 1240 1230 TOP = LEN 1240 TOP = TOP + IB - 1 1250 Z(I ) = ANDF(Z(J),LES1B) Z(I+1) = Z(J+1) Z(I+2) = J + BK I = I + 3 J = J + 21 IF (J .LT. TOP) GO TO 1250 CALL WRITE (TAPECC,Z(IB),NZIB,1) GO TO 1220 1260 CALL CLOSE (TAPECC,REW) 1270 CALL CLOSE (TAPE2 ,REW) LEN = I - IC IF (LEN .GT. 3) CALL SORT2K (0,0,3,1,Z(IC),LEN) C C NO PRE-MERGING FILES IF REDUCE IS 1 (I.E. LESS THAN 10 SCRATCH C FILES WERE USED TO HOLD THE RAW BULKDATA, OR ENOUGH CORE TO HOLD C EVERYTHING) C 1280 IF (REDUCE .EQ. 1) GO TO 1600 C C PRE-MERGE C ========= C C AT THIS POINT, CONTINUATION CARD IMAGES ARE EITHER IN CORE OR IN C SCRATCH FILE TAPECC, AND TAPE2 IS FREE FOR RE-USE. C ALL GINO BUFFERS ARE FREE C C IF TOO MANY FILES WERE USED TO SAVE BULKDATA, MERGE THEM TO REDUCE C THE TOTAL NUMBER OF FILES GOING TO BE USED (I.E. TO REDUCE BUFFER C SPACE IN THE MERGE PHASE COMING NEXT) C C PERFORM A 2-TO-1 MERGE IF NUMBER OF FILES PRESENTLY IS 10-17. C C FILEB + FILEC == FILEA E.G. 303 + 304 == 302 C 305 + 306 == 303 C 307 + 308 == 304 ETC. C OR C PERFORM A 3-TO-1 MERGE IF NUMBER OF FILES PRESENTLY IS 18-30. C C FILEB+FILEC+FILED == FILEA E.G. 303+304+305==302 C 306+307+308==303 C 309+310+311==304 ETC. C C NOTE - 301 IS EITHER NOT USED, OR USED BY THE 'MODIFIED' OPTP C IMHERE = 1290 IF (DEBUG) WRITE (NOUT,140) IMHERE,NFILES,NFILER,REDUCE FILEA = 301 FILE = 302 - REDUCE C DO 1580 III = 1,NFILES,REDUCE FILE = FILE+REDUCE C C ... CHECK LAST DO-LOOP CONDITION C IF ONE FILE LEFT, QUIT MERGING C IF TWO FILES LEFT, DO A 2-TO-1 MERGE C IF THREE FILES LEFT, CONTINUE C IF (NFILES-III .LE. 0) GO TO 1420 C FILEA = FILEA + 1 CALL OPEN (*2930,FILEA,Z(IBUF1),WRTREW) IMHERE= 1300 EXH = 0 DO 1300 L = 1,REDUCE FILEX = FILE + L IBUFL = IBUFX(L) ITAPE(L) = 1 IF (DEBUG) WRITE (NOUT,140) IMHERE,FILEX,J CALL OPEN (*2940,FILEX,Z(IBUFL),RDREW) CALL READ (*3000,*2980,FILEX,Y(1,L),24,0,I) 1300 CONTINUE C C PICK THE SMALLEST CONTROL WORDS FROM Y(21,22,23,24 OF A,B,C) C 1310 II = 1 DO 1380 L = 2,REDUCE IF (Y(21,L) - Y(21,II)) 1370,1320,1380 1320 IF (Y(21,L) .EQ. LARGE) GO TO 1380 IF (Y(22,L) - Y(22,II)) 1370,1330,1380 1330 IF (Y(23,L) - Y(23,II)) 1370,1340,1380 1340 IF (Y(24,L) - Y(24,II)) 1370,1350,1380 C C FIRST 3 BULKDATA FIELDS THE SAME, CHECK POSSIBLE DUPLICATE CARD C SET 21ST AND 22ND CONTROL WORDS TO -6 IF IT IS A DUPLICATE C 1350 DO 1360 J = 7,20 IF (Y(J,L) .NE. Y(J,II)) GO TO 1380 1360 CONTINUE Y(21,II) = -6 Y(22,II) = -6 NOGO = -1 GO TO 1370 C 1370 II = L 1380 CONTINUE IMHERE = 1380 IF (DEBUG) WRITE (NOUT,140) IMHERE,II C IF (Y(1,II) .EQ. LARGE) CALL MESAGE (-61,0,NAME) CALL WRITE (FILEA,Y(1,II),24,0) FILEX = II + FILE CALL READ (*2980,*1400,FILEX,Y(1,II),24,0,J) IF (DEBUG) WRITE (NOUT,1390) FILEX,Y(1,II),Y(2,II) 1390 FORMAT (5X,'TO PRE-MERGE FILE',I5,3X,2A4) GO TO 1310 C C ... ONE OF THE FILES IS EXHAUSTED C 1400 EXH = EXH + 1 ITAPE(II) = 0 IF (EXH .GE. REDUCE-1) GO TO 1420 DO 1410 J = 1,24 1410 Y(J,II) = LARGE IMHERE = 1410 IF (DEBUG) WRITE (NOUT,140) IMHERE,EXH GO TO 1310 C C ... ONLY ONE FILE LEFT WHICH HAS NOT BEEN EXHAUSTED C 1420 FILEX = FILE + 1 IF (ITAPE(2) .EQ. 1) FILEX = FILE + 2 IF (ITAPE(3) .EQ. 1) FILEX = FILE + 3 IMHERE = 1420 IF (DEBUG) WRITE (NOUT,140) IMHERE,FILEX DO 1430 J = 1,24 1430 Z(J) = Y(J,FILEX) C C THIS REMAINING FILE COULD BE VERY BIG. IT COULD BE OPTP C LEFT24 = ((LEFT-24)/24)*24 1440 FULL = 1 CALL READ (*3000,*1450,FILEX,Z(I25),LEFT24,0,LEN) FULL = 0 LEN = LEFT24 1450 IF (LEN .LT. 24) GO TO 1560 C C ... CHECK ANY DUPLICATE IN THIS GROUP, SET THE 21ST AND 22ND CONTROL C WORDS TO -6 IF DUPLICATE C THEN WRITE THE REST TO FILEA C DO 1540 L = 1,LEN,24 I = L - 1 K = I + 24 DO 1500 J = 21,24 IF (Z(I+J) .NE. Z(K+J)) GO TO 1520 1500 CONTINUE DO 1510 J = 7,20 IF (Z(I+J) .NE. Z(K+J)) GO TO 1520 1510 CONTINUE Z(I+21) = -6 Z(I+22) = -6 1520 CALL WRITE (FILEA,Z(L),24,0) IF (DEBUG) WRITE (NOUT,1530) FILEA,Z(L),Z(L+1) 1530 FORMAT (5X,'TO FILEA',I5,3X,2A4) 1540 CONTINUE C C IF FILE HAS NOT BEEN EXHAUSTED, GO BACK FOR MORE C IF (FULL .EQ. 1) GO TO 1560 DO 1550 J = 1,24 1550 Z(J) = Z(LEN+J) GO TO 1440 C 1560 CALL WRITE (FILEA,Z(LEN+1),24,1) IF (DEBUG) WRITE (NOUT,1530) FILEA,Z(LEN+1),Z(LEN+2) DO 1570 L = 1,REDUCE FILEX = FILE + L CALL CLOSE (FILEX,REW) 1570 CONTINUE C 1580 FILE = FILE + REDUCE C C END OF PRE-MERGE C C C SET UP SORTED HEADING IF APPLICABLE C 1600 IF (NBULK .LE. 1) GO TO 1620 CALL PAGE2 (2) WRITE (NOUT,1610) UIM 1610 FORMAT (A29,' 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL ', 1 'RE-ORDER THE INPUT DECK.') 1620 IF (F3LONG.EQ.0 .OR. ECHOS.EQ.0) GO TO 1640 CALL PAGE2 (2) WRITE (NOUT,1630) UIM 1630 FORMAT (A29,' 207A, SIX CHARACTERS OF NASTRAN BCD NAME IN THE ', 1 'THIRD FIELD WERE USED DURING RE-ORDERING DECK') 1640 IF (ECHOS .EQ. 0) GO TO 1650 READ (HEAD(2),150) (HEAD1(J),J=11,24) CWKBR 9/93 HEAD2(4) = CDCNT(1) HEAD2(5) = CDCNT(1) CWKBR 9/93 HEAD3(4) = CDCNT(2) HEAD3(5) = CDCNT(2) CWKBR 9/93 HEAD3(5) = CDCNT(3) HEAD3(6) = CDCNT(3) CALL PAGE C C FINAL FILE MERGE, ADD CONTINUATION CARD AS NEEDED. RESULTS IN NPTP C ========== C C ASSIGN BUFFER SPACES FOR THE SCRATCH FILES, RESERVE IBUF1 FOR NPTP C C OPEN SCRATCH DATA FILES (303,304,305... OR ==METHODS 1,2== C PREVIOUSLY SAVED 303,304,305...301 OR C 302,303,304,305... OR ==METHOD 3 == C 302,303,304,305,...,301) C AND READ INTO Y SPACE THE FIRST RECORD OF EACH SCRATCH FILE C C OPEN NPTP FOR MERGED RESULT C C 1650 CALL OPEN (*3100,NPTP,Z(IBUF1),WRT) CALL WRITE (NPTP,BULKDA,2,1) IF (NBULK+NDELE .EQ. 0) GO TO 2290 IF (TAPECC .NE. 0) CALL OPEN (*2950,TAPECC,Z(IBUFC),RD) RECX = LARGE NCARD = 0 EXH = 0 IMHERE = 1700 IF (DEBUG) WRITE (NOUT,140) IMHERE,NCONT,NFILER C C IF NO CONTINUATION CARDS, AND ONLY ONE FILE IS USED TO STORE C BULKDATA INPUT CARDS, MOVE DATA FROM TAPE3 (COLD START JOB), OR C FROM TAPE1 (RESTART JOB WITH DELETE ONLY AND NO NEW BULK DATA) C INTO NPTP DIRECTLY. OTHERWISE, JUMP TO 1760 C IF (.NOT.(NCONT.EQ.0 .AND. NFILER.EQ.1)) GO TO 1760 TAPE = TAPE3 IF (RESTR .EQ. 1) TAPE = TAPE1 CALL OPEN (*2920,TAPE,Z(IBUF2),RDREW) LEFT24 = ((IBUF2-1)/24)*24 1700 FULL = 1 K = 1 CALL READ (*3000,*1710,TAPE,Z(1),LEFT24,0,J) FULL = 0 J = LEFT24 1710 CALL WRITE (NPTP,Z(K),20,1) IF (DEBUG) WRITE (NOUT,1720) Z(K),Z(K+1) 1720 FORMAT (5X,'WRITE TO NPTP',4X,2A4) NCARD = NCARD + 1 L = K + 19 IF (ECHOS .EQ. 0) GO TO 1740 CALL PAGE2 (-1) WRITE (NOUT,1730) NCARD,(Z(I),I=K,L) 1730 FORMAT (13X,I8,1H-,8X,20A4) 1740 IF (ECHOP .NE. 0) WRITE (LPCH,1750) (Z(I),I=K,L) 1750 FORMAT (20A4) K = K + 24 IF (K .LT. J) GO TO 1710 IMHERE = 1750 IF (DEBUG) WRITE (NOUT,140) IMHERE,FULL,J IF (FULL .EQ. 0) GO TO 1700 CALL EOF (NPTP) CALL CLOSE (NPTP,REW) CALL CLOSE (TAPE,REW) IF (ECHOP .NE. 0) WRITE (LPCH,2320) IF (ECHOS .EQ. 0) GO TO 2700 CALL PAGE2 (-1) WRITE (NOUT,2300) GO TO 2700 C C OPEN AND READ IN THE FIRST DATA RECORD FROM ALL FILES C 1760 IMHERE = 1760 TAPE = TAPE2 IF (REDUCE .GT. 1) TAPE = TAPE2 - 1 IF (DEBUG) WRITE (NOUT,140) IMHERE,REDUCE,NFILER,TAPE EMPTY = 0 DO 1800 II = 1,NFILER TAPE = TAPE + 1 IF (II.EQ.NFILER .AND. RESTR.EQ.1) TAPE = TAPE1 ITAPE(II) = TAPE IIBUF = IBUFX(II) CALL OPEN (*2960,TAPE,Z(IIBUF),RDREW) CALL READ (*3000,*1780,TAPE,Y(1,II),24,0,J) IF (DEBUG) WRITE (NOUT,1770) TAPE,II,Y(1,II),Y(2,II) 1770 FORMAT (5X,'SETTING MERGE TABLE. TAPE,II =',2I4,2X,2A4) GO TO 1800 1780 EMPTY = EMPTY + 1 CALL CLOSE (TAPE,REW) DO 1790 I = 1,24 1790 Y(I,II) = LARGE 1800 CONTINUE EXH = -1 DO 1810 II = 1,NFILER IF (Y(21,II) .EQ. -6) GO TO 1830 1810 CONTINUE 1820 EXH = EMPTY II = 1 IF (NFILER-1) 1980,1980,1900 1830 L = II GO TO 2220 C C START MERGING FILES C C PICK THE SMALLEST CONTROL WORDS IN 21ST, 22ND, 23RD AND 24TH C WORDS OF EACH Y RECORD AND WRITE IT TO MERGE FILE NPTP, 20 WORDS C EACH. REPLACE THE CHOSEN RECORD BY NEXT RECORD OF THE SAME FILE C 1900 II = 1 DO 1970 L = 2,NFILER IF (Y(21,L) - Y(21,II)) 1960,1910,1970 1910 IF (Y(1,L) .EQ. LARGE) GO TO 1970 IF (Y(22,L) - Y(22,II)) 1960,1920,1970 1920 IF (Y(23,L) - Y(23,II)) 1960,1930,1970 1930 IF (Y(24,L) - Y(24,II)) 1960,1940,1970 C C ... FIRST 3 BULKDATA FIELDS ARE THE SAME, CHECK POSSIBLE DUPLICATE C CARDS C 1940 DO 1950 J = 7,20 IF (Y(J,II) .NE. Y(J,L)) GO TO 1970 1950 CONTINUE GO TO 2220 C 1960 II = L 1970 CONTINUE C 1980 CALL WRITE (NPTP,Y(1,II),20,1) NCARD = NCARD + 1 IF (ECHOS .EQ. 0) GO TO 1990 CALL PAGE2 (-1) WRITE (NOUT,1730) NCARD,(Y(J,II),J=1,20) 1990 IF (ECHOP .NE. 0) WRITE (LPCH,1750) (Y(J,II),J=1,20) IF (NCONT .EQ. 0) GO TO 2200 IF (RESTR .EQ. 0) GO TO 2000 C C IF THIS IS A RESTART JOB, SAVE THE FIRST FIELD, IN CASE THIS IS C THE PARENT OF A CONTINUATION CARD THAT CAME FROM NEW BULK DATA C KARD1 = Y(1,II) KARD2 = Y(2,II) IF (KARD1.NE.PARAM(1) .OR. KARD2.NE.PARAM(2)) GO TO 2000 KARD1 = Y(3,II) KARD2 = Y(4,II) C C INSERT CONTINUATION CARD IF NEEDED C 2000 IF (NOGO .EQ. -3) GO TO 2200 TEMPX = Y(19,II) TEMP(1) = ANDF(TEMPX,LES1B) TEMP(2) = Y(20,II) 2010 IF (TEMPX.EQ.BLANK .AND. TEMP(2).EQ.BLANK) GO TO 2200 CALL BISLC2 (*2140,TEMP(1),Z(IC),NCONT,BSIZE,LOC) K = LOC*BSIZE + IC - 1 L = Z(K) IF (L .LT. 0) GO TO 2150 Z(K) = -L IF (L .GT. 10000000) GO TO 2050 2020 DO 2030 I = 1,20 BUF(I) = Z(L) 2030 L = L + 1 IF (RESTR.EQ.0 .OR. KARD1.EQ.-1 .OR. Z(L).EQ.0) GO TO 2120 C ---------- ------------- ----------- C I.E. NO RESTART ALREADY DONE BULKDATA CARD C NOT FLAGGED C C SET THE PARENT'S RESTART BIT IF ABOVE CONDITIONS NOT MET C ASSIGN 2040 TO CRDFLG FROM = 2040 GO TO 2810 2040 KARD1 = -1 GO TO 2120 C C READ IN CONTINUATION CARD IMAGE FROM TAPECC FILE C 2050 REC = L/10000000 L = L - REC*10000000 IF (REC-RECX) 2060,2020,2110 2060 CALL REWIND (TAPECC) IF (REC .EQ. 1) GO TO 2090 SKIP = REC - 1 2070 DO 2080 J = 1,SKIP CALL FWDREC (*3020,TAPECC) 2080 CONTINUE 2090 CALL READ (*3020,*2100,TAPECC,Z(IB),NZIB,1,LEN) RECX = REC GO TO 2020 2100 CALL MESAGE (-37,0,NAME) 2110 SKIP = REC - RECX - 1 IF (SKIP) 2100,2090,2070 C C GOT THE CONTINUATION CARD, WRITE IT OUT TO NPTP C CHECK WHETHER IT ASKS FOR MORE CONTINUATION CARD C 2120 CALL WRITE (NPTP,BUF,20,1) NCARD = NCARD + 1 IF (ECHOS .EQ. 0) GO TO 2130 CALL PAGE2 (-1) WRITE (NOUT,1730) NCARD,(BUF(J),J=1,20) 2130 IF (ECHOP .NE. 0) WRITE (LPCH,1750) (BUF(J),J=1,20) TEMPX = BUF(19) TEMP(1) = ANDF(TEMPX,LES1B) TEMP(2) = BUF(20) GO TO 2010 C C CONTINUATION CARD NOT FOUND. ASSUME THE 10TH FIELD IS USER'S C COMMENT C 2140 GO TO 2200 C C DUPLICATE PARENT - ERROR C 2150 CALL PAGE2 (-1) IF (ECHOS .NE. 0) GO TO 2155 WRITE (NOUT,2152) UFM,Z(-L),Z(-L+1) 2152 FORMAT (A23,' 208A, ',2A4,' IS DUPLECATE CONTINUATION MARK.') GO TO 2180 2155 WRITE (NOUT,2160) UFM 2160 FORMAT (A23,' 208, PREVIOUS CARD IS A DUPLICATE PARENT.') IF (DEBUG) WRITE (NOUT,2170) LOC,BSIZE,IC,K,L,TEMPX,TEMP(2) 2170 FORMAT (' LOC,BSIZE,IC,K,L =',5I8,2(2H /,A4),1H/) 2180 NOGO = -1 C C REPLACE THE MERGED RECORD BY THE NEXT RECORD OF THE SAME FILE C 2200 TAPE = ITAPE(II) IMHERE = 2200 IF (DEBUG) WRITE (NOUT,140) IMHERE,TAPE,II CALL READ (*3000,*2270,TAPE,Y(1,II),24,0,J) IF (DEBUG) WRITE (NOUT,2210) TAPE,II,Y(1,II),Y(2,II), 1 (Y(J,II),J=21,24) 2210 FORMAT (5X,'REPLACING - TAPE,II=',2I4,3X,2A4,4I12) IF (Y(21,II) .NE. -6) IF (EXH) 1820,1900,1900 2220 CALL PAGE2 (-2) NCARD = NCARD + 1 CALL WRITE (NPTP,Y(1,II),20,1) WRITE (NOUT,1730) NCARD,(Y(J,II),J=1,20) WRITE (NOUT,2230) UWM 2230 FORMAT (A25,' 208, PREVIOUS CARD IS A DUPLICATE') C NOGO = -1 IF (.NOT.DEBUG) GO TO 2200 DO 2250 K = 1,NFILER WRITE (NOUT,2240) K,(Y(J,K),J=1,24) 2240 FORMAT (1X,I2,3H) ,20A4,2H /,4I8) 2250 CONTINUE WRITE (NOUT,2260) II,L 2260 FORMAT (//5X,'DUPLICATE II,L=',2I8) GO TO 2200 C C A SCRATCH FILE IS JUST EXHAUSTED, SET THE CORRESPONDING RECORD C A SET OF VERY LARGE NUMBERS C IF ALL FILES ARE EXHAUSTED, MERGING DONE C 2270 EXH = EXH + 1 CALL CLOSE (TAPE,REW) IMHERE = 2270 IF (DEBUG) WRITE (NOUT,140) IMHERE,TAPE,EXH,NFILER,NCARD IF (EXH .GE. NFILER) GO TO 2290 DO 2280 I = 1,24 2280 Y(I,II) = LARGE GO TO 1900 C C MERGING DONE. EVERY THING IN NPTP. C 2290 CALL EOF (NPTP) CALL CLOSE (NPTP,REW) IMHERE = 2290 IF (DEBUG) WRITE (NOUT,140) IMHERE,EXH,NFILER IF (ECHOS .EQ. 0) GO TO 2310 CALL PAGE2 (-1) WRITE (NOUT,2300) 2300 FORMAT (30X,'ENDDATA') 2310 IF (ECHOP .NE. 0) WRITE (LPCH,2320) 2320 FORMAT ('ENDDATA') C C CHECK AND IDENTIFY PARENTLESS CONTINUATION CARDS C MAKE SURE TO EXCLUDE ANY BROKEN CONTINUATION CARDS SUPPOSEDLY C CONNECTED TO ONE PARENT C IF (NCONT.EQ.0 .OR. NOGO.EQ.-3) GO TO 2700 IMHERE = 2330 IF (DEBUG) WRITE (NOUT,140) IMHERE,NCONT,IC RECX = LARGE J = IC + BSIZE - 1 DO 2490 I = 1,NCONT L = Z(J) 2400 IF (L .LT. 0) GO TO 2490 IMHERE = 2400 IF (DEBUG) WRITE (NOUT,2480) IMHERE,Z(J-2),Z(J-1),L IF (L .LE. 10000000) GO TO 2470 REC = L/10000000 L = L - REC*10000000 IF (REC-RECX) 2410,2470,2450 2410 CALL REWIND (TAPECC) IF (REC .EQ. 1) GO TO 2440 SKIP = REC - 1 2420 DO 2430 K = 1,SKIP CALL FWDREC (*3020,TAPECC) 2430 CONTINUE 2440 CALL READ (*3020,*2620,TAPECC,Z(IB),NZIB,1,LEN) RECX = REC GO TO 2470 2450 SKIP = REC - RECX - 1 IF (SKIP) 2460,2440,2420 2460 CALL MESAGE (-37,0,NAME) 2470 TEMP(1) = ANDF(Z(L+18),LES1B) TEMP(2) = Z(L+19) IMHERE = 2470 IF (DEBUG) WRITE (NOUT,2480) IMHERE,TEMP,L 2480 FORMAT (' IMHERE=',I5,' LOOKING FOR - ',2A4,I14) IF (TEMP(1).EQ.BLANK .AND. TEMP(2).EQ.BLANK) GO TO 2490 LOC = LOC + 1 IF (TEMP(1).NE.Z(LOC+IC) .OR. TEMP(2).NE. Z(LOC*NCONT+IC)) 1 CALL BISLC2 (*2490,TEMP(1),Z(IC),NCONT,BSIZE,LOC) K = LOC*BSIZE + IC - 1 L = Z(K) Z(K) = -IABS(Z(K)) GO TO 2400 2490 J = J + BSIZE C J = IC + BSIZE - 1 II = 0 RECX = LARGE IMHERE = 2600 DO 2610 I = 1,NCONT IF (Z(J) .LT. 0) GO TO 2610 IF (II .EQ. 1) GO TO 2510 II = 1 CALL PAGE1 WRITE (NOUT,2500) UFM 2500 FORMAT (A23,' 209, THE FOLLOWING CONTINUATION INPUT CARDS HAVE ', 1 'NO PARENTS',//) NOGO = -1 2510 CALL PAGE2 (1) L = Z(J) IF (L .GT. 10000000) GO TO 2540 2520 M = L + 19 WRITE (NOUT,2530) (Z(K),K=L,M) 2530 FORMAT (10X,20A4) GO TO 2610 C 2540 REC = L/10000000 L = L - REC*10000000 IF (REC-RECX) 2550,2520,2600 2550 CALL REWIND (TAPECC) IF (REC .EQ. 1) GO TO 2580 SKIP = REC - 1 2560 DO 2570 K = 1,SKIP CALL FWDREC (*3020,TAPECC) 2570 CONTINUE 2580 CALL READ (*3020,*2620,TAPECC,Z(IB),NZIB,1,LEN) RECX = REC GO TO 2520 2600 SKIP = REC - RECX - 1 IF (SKIP) 2620,2580,2560 2610 J = J + BSIZE GO TO 2700 2620 CALL MESAGE (-2,TAPECC,NAME) C C CLOSE CONTINUAION CARD FILE TAPECC, IF IT WAS OPENED C DISABLE FREE-FIELD INPUT OPTION IN XREAD. C 2700 IF (TAPECC .GT. 0) CALL CLOSE (TAPECC,REW) FFFLAG = 0 WASFF = 0 IF (NOGO .NE. -3) GO TO 2730 WRITE (NOUT,2710) UFM 2710 FORMAT (A23,' 3008, CONTINUATION CARDS WERE NOT ADDED TO SORTED ', 1 'BULKDATA DECK DUE TO INSUFFICIENT CORE CONDITION.') IF (CPFLG .NE. 0) WRITE (NOUT,2720) 2720 FORMAT (5X,'THE NPTP FILE OR TAPE GENERATED IN THIS RUN IS NOT ', 1 'SUITABLE FOR RESTART') CALL MESAGE (-61,0,0) 2730 IF (NOGO .NE. 0) NOGO = 1 IF (.NOT. DEBUG) GO TO 3200 C C DEBUG NPTP ECHO C IMHERE = 2730 WRITE (NOUT,140) IMHERE,FFFLAG,WASFF CALL OPEN (*3100,NPTP,Z(IBUF1),RDREW) 2740 CALL SKPFIL (NPTP,+1) CALL READ (*2770,*2770,NPTP,BUF(1),2,1,J) IF (BUF(1).NE.BULKDA(1) .OR. BUF(2).NE.BULKDA(2)) GO TO 2740 2750 CALL READ (*2770,*2770,NPTP,BUF(1),20,1,J) WRITE (NOUT,2760) (BUF(J),J=1,10),(BUF(J),J=17,20) 2760 FORMAT (' ==NPTP==>',5(1X,2A4),'...',2(1X,2A4)) GO TO 2750 2770 CALL CLOSE (NPTP,REW) GO TO 3200 C C C INTERNAL ROUTINE TO SET RESTART BITS - CRDFLG C C BITS SET ONLY IF JOB IS A RESTART RUN, AND C 1. ALL NEW BULK DATA CARDS, EXCEPT CONTINUATION CARDS C 2. ALL DELETED CARDS IN OPTP, EXCEPT CONTINUATION CARDS C 3. THE PARENTS OF THE CONTINUATION CARDS IN 1 AND 2 C 2800 KARD1 = BUF(1) KARD2 = BUF(2) IF (KARD1.NE.PARAM(1) .OR. KARD2.NE.PARAM(2)) GO TO 2810 KARD1 = BUF(3) KARD2 = BUF(4) 2810 IMHERE = 2810 IF (DEBUG) WRITE (NOUT,2820) IMHERE,FROM,NOGO,KARD1,KARD2 2820 FORMAT (/,' *** IMHERE',I5,', FROM',I5,', NOGO=',I3,3X,2A4) IF (NOGO .NE. 0) GO TO 2850 K = NUMX1*2 DO 2840 I = 1,K,2 IF (KARD1.NE.ICARDS(I) .OR. KARD2.NE.ICARDS(I+1)) GO TO 2840 J = I/2 M = (J/31) + 1 N = MOD(J,31) + 2 IBITS(M) = ORF(IBITS(M),ITWO(N)) IF (DEBUG) WRITE (NOUT,2830) KARD1,KARD2 2830 FORMAT (5X,'BITS SET SUCCESSFULLY FOR ',2A4) GO TO 2850 2840 CONTINUE 2850 GO TO CRDFLG, (200,810,880,2040) C C ERRORS C 2900 TAPE = TAPE1 GO TO 2960 2910 TAPE = TAPE2 GO TO 2960 2920 TAPE = TAPE3 GO TO 2960 2930 TAPE = FILEA GO TO 2960 2940 TAPE = FILEX GO TO 2960 2950 TAPE = TAPECC IF (TAPECC .LE. MAXSCR) GO TO 2960 2951 WRITE (NOUT,2955) SFM 2955 FORMAT (A25,' 212, NUMBER OF AVAILABLE SCRATCH FILES EXEEDED.',5X, 1 'RE-RUN JOB WITH MORE CORE') GO TO 3140 2960 WRITE (NOUT,2970) SFM,TAPE 2970 FORMAT (A25,' 210, COULD NOT OPEN SCRATCH FILE',I5) GO TO 3140 2980 WRITE (NOUT,2990) SFM 2990 FORMAT (A25,' 211, ILLEGAL EOR ON SCRATCH') GO TO 3140 3000 WRITE (NOUT,3010) SFM,TAPE 3010 FORMAT (A25,' 212, ILLEGAL EOF ON SCRATCH',I5) GO TO 3140 3020 WRITE (NOUT,3030) 3030 FORMAT (//26X,'212, TAPECC ERROR') TAPE = TAPECC GO TO 3000 3040 WRITE (NOUT,3050) SFM 3050 FORMAT (A25,' 213, ILLEGAL EOF ON OPTP') GO TO 3140 3060 WRITE (NOUT,3070) SFM,IMHERE 3070 FORMAT (A25,' 213X, ILLEGAL DATA ON OPTP. IMHERE =',I7) NOGO = 1 GO TO 810 3080 WRITE (NOUT,3090) SFM 3090 FORMAT (A25,' 214, OPTP COULD NOT BE OPENED') GO TO 3140 3100 WRITE (NOUT,3110) SFM 3110 FORMAT (A25,' 215, NPTP COULD NOT BE OPENED') GO TO 3140 3120 WRITE (NOUT,3130) SFM,IMHERE 3130 FORMAT (A25,' 219, MISSING ENDDATA CARD. IMHERE =',I7) NOGO = 1 GO TO 350 3140 WRITE (NOUT,3150) IMHERE 3150 FORMAT (5X,'IMHERE =',I6) CALL MESAGE (-37,0,NAME) C C TURN OFF XSORT FLAG AND FREE-FIELD FLAG C 3200 IXSORT = 0 RETURN END ================================================ FILE: mis/xsosgn.f ================================================ SUBROUTINE XSOSGN C C THIS SUBROUTINE SCANS THE OSCAR TAPE AND GENERATES THE SOS + MD C C LAST REVISED BY G.CHAN/UNISYS TO REMOVE THE VAX AND NOT-VAX C LOGICS, AND TO SYNCHRONIZE THE SCRATH FILE NAMES AS SET FORTH BY C THE XSEMX ROUTINES. 2/1990 C IMPLICIT INTEGER (A-Z) C LOGICAL DEC EXTERNAL ANDF,ORF,LSHIFT,RSHIFT DIMENSION BLOCK1(93),STR(30),NSOSGN(2),FEQU(1),FNTU(1), 1 FON(1),FORD(1),MINP(1),MLSN(1),MOUT(1),MSCR(1), 2 SAL(1),SDBN(1),SNTU(1),SORD(1),BLOCK(100), 3 NUMBR(10) CHARACTER UFM*23,UWM*25,UIM*29,SFM*25 COMMON /XMSSG / UFM,UWM,UIM,SFM COMMON /SYSTEM/ IBUFSZ,OUTTAP COMMON /XFIAT / FIAT(1),FMXLG,FCULG,FILE(1),FDBN(2),FMAT(1) COMMON /XFIST / FIST COMMON /XDPL / DPD(1),DMXLG,DCULG,DDBN(2),DFNU(1) COMMON /ZZZZZZ/ BUF1(1) COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(1),FPUN(1), 1 FCUM(1),FCUS(1),FKND(1) COMMON /ISOSGN/ ENTN5,ENTN6,K,J,STR EQUIVALENCE (DPD(1),DNAF),(FIAT(1),FUNLG),(FILE(1),FEQU(1)), 1 (FILE(1),FORD(1)),(BLOCK(8),BLOCK1(1)) EQUIVALENCE (MD(1),MLGN),(MD(2),MLSN(1)),(MD(3),MINP(1)), 1 (MD(4),MOUT(1)),(MD(5),MSCR(1)), 2 (SOS(1),SLGN),(SOS(2),SDBN(1)), 3 (SOS(4),SAL(1),SNTU(1),SORD(1)), 4 (COMM(1),ALMSK),(COMM(2),APNDMK),(COMM(3),CURSNO), 5 (COMM(4),ENTN1),(COMM(5),ENTN2 ),(COMM (6),ENTN3), 6 (COMM(7),ENTN4),(COMM(8),FLAG ),(COMM (9),FNX ), 7 (COMM(10),LMSK),(COMM(11),LXMSK),(COMM(13),RMSK ), 8 (COMM(14),RXMSK),(COMM(15),S ),(COMM(16),SCORNT), 9 (COMM(17),TAPMSK),(COMM(19),ZAP), O (XF1AT(1),FNTU(1),FON(1)) DATA JUMP / 4HJUMP/, REPT /4HREPT/, COND/4HCOND/ DATA OSCAR / 4HPOOL/, SCRN1,SCRN2 / 4HSCRA,4HTCH0/ DATA NSOSGN/ 4HXSOS , 2HGN / DATA NUMBR / 1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9,1H0 / C IFLAG = 0 CALL OPEN (*500,OSCAR,BUF1,2) CALL BCKREC (OSCAR) CALL READ (*400,*600,OSCAR,BLOCK,7,0,FLAG) IF (BLOCK(2) .NE. CURSNO) GO TO 900 GO TO 103 C C READ OSCAR FORMAT HEADER + 1 C 100 IF (J.GT.1400 .OR. K.GT.390) GO TO 410 CALL READ (*400,*600,OSCAR,BLOCK,7,0,FLAG) 103 BLOCK(3) = ANDF(RMSK,BLOCK(3)) IF (BLOCK(6) .GE. 0) GO TO 108 IF (BLOCK(3) .LE. 2) GO TO 110 IF (BLOCK(3) .NE. 3) GO TO 108 L = RSHIFT(ANDF(LXMSK,BLOCK(7)),16) - BLOCK(2) IF (BLOCK(4) .NE. JUMP) GO TO 106 IF (L .LE. 1) GO TO 107 DO 104 I = 1,L CALL FWDREC (*400,OSCAR) 104 CONTINUE GO TO 100 106 IF (BLOCK(4).NE.REPT .AND. BLOCK(4).NE.COND) GO TO 108 107 IF (L .LT. 0) IFLAG = -1 108 CALL FWDREC (*400,OSCAR) GO TO 100 C C INPUT FILES C 110 MINP(K) = BLOCK(7) IF (BLOCK(7) .EQ. 0) GO TO 300 NWDS= BLOCK(7)*ENTN5 ASSIGN 150 TO ISW C C FILES READER C 130 CALL READ (*400,*600,OSCAR,BLOCK1,NWDS+1,0,FLAG) BLKCNT = 0 DO 145 I = 1,NWDS,ENTN5 IF (BLOCK1(I) .EQ. 0) GO TO 140 SOS(J ) = BLOCK1(I ) SOS(J+1) = BLOCK1(I+1) SOS(J+2) = BLOCK1(I+2) J = J+3 IF (J .GT. 1500) GO TO 460 GO TO 145 140 BLKCNT = BLKCNT + 1 145 CONTINUE GO TO ISW, (150,170) C 150 MINP(K) = MINP(K) - BLKCNT IF (BLOCK(3) .EQ. 2) GO TO 310 C C OUTPUT FILES C MOUT(K) = BLOCK1(NWDS+1) 155 IF (MOUT(K) .EQ. 0) GO TO 320 NWDS = MOUT(K)*ENTN6 ASSIGN 170 TO ISW GO TO 130 C 170 MOUT(K) = MOUT(K) - BLKCNT 175 CALL FWDREC (*400,OSCAR) C C SCRATCH FILES C MSCR(K) = BLOCK1(NWDS+1) IF (MSCR(K) .EQ. 0) GO TO 230 L = MSCR(K) SCRN3 = SCRN2 LLL = 1 LL = 0 DO 220 I = 1,L LL = LL + 1 IF (LL .EQ. 10) SCRN3 = KHRFN1(SCRN3,3,NUMBR(LLL),1) SOS(J ) = SCRN1 SOS(J+1) = KHRFN1(SCRN3,4,NUMBR(LL),1) IF (LL .NE. 10) GO TO 200 LL = 0 LLL = LLL + 1 200 IF (STR(I) .EQ. 0) GO TO 210 N1= STR(I) SOS(N1) = ORF(LMSK,BLOCK(2)) 210 STR(I) = J + 2 SOS(J+2)= SCORNT + I J = J + 3 IF (J .GT. 1500) GO TO 460 220 CONTINUE C 230 MLSN(K) = BLOCK(2) IF (IFLAG .EQ. 0) GO TO 240 MLSN(K) = ORF(S,MLSN(K)) 240 IF (MINP(K)+MOUT(K)+MSCR(K) .EQ. 0) GO TO 100 K= K + ENTN3 IF (K .GT. 400) GO TO 460 GO TO 100 C C ZERO INPUT FILES C 300 CALL READ (*400,*600,OSCAR,BLOCK(7),1,0,FLAG) IF (BLOCK(3) .EQ. 2) GO TO 310 MOUT(K) = BLOCK(7) GO TO 155 C C TYPE O FORMAT - NO OUTPUTS C 310 MOUT(K) = 0 GO TO 175 C C ZERO OUTPUT FILES C 320 CALL READ (*400,*600,OSCAR,BLOCK1(NWDS+1),1,0,FLAG) GO TO 175 C 400 CALL SKPFIL (OSCAR,-1) 410 CALL CLOSE (OSCAR, 2) SLGN = (J-1)/ENTN2 MLGN = (K-1)/ENTN3 RETURN C C SYSTEM FATAL MESSAGES C 460 WRITE (OUTTAP,461) SFM 461 FORMAT (A25,' 1011, MD OR SOS TABLE OVERFLOW') GO TO 1000 500 WRITE (OUTTAP,501) SFM 501 FORMAT (A25,' 1012, POOL COULD NOT BE OPENED') GO TO 1000 600 WRITE (OUTTAP,601) SFM 601 FORMAT (A25,' 1013, ILLEGAL EOR ON POOL') GO TO 1000 900 WRITE (OUTTAP,901) SFM,BLOCK(2),CURSNO 901 FORMAT (A25,' 1014, POOL FILE MIS-POSITIONED ',2I7) 1000 CALL MESAGE (-37,0,NSOSGN) RETURN END ================================================ FILE: mis/xtrnsy.f ================================================ SUBROUTINE X TRNS Y (X,Y,ALPHA) C******* C X TRNS Y FORMS THE DOT PRODUCT X TRANSPOSE * Y = ALPHA C******* DOUBLE PRECISION X(1) ,Y(1) ,ALPHA COMMON /INVPWX/ AAA ,NCOL ALPHA = 0.D0 DO 10 I=1,NCOL 10 ALPHA = ALPHA + X(I)*Y(I) RETURN END ================================================ FILE: mis/xtrny1.f ================================================ SUBROUTINE X TRN Y1(X,Y,ALPHA1) C SUBROUTINE X TRNS Y (X,Y,ALPHA) C******* C X TRNS Y FORMS THE DOT PRODUCT X TRANSPOSE * Y = ALPHA C******* C DOUBLE PRECISION X(1) ,Y(1) ,ALPHA DOUBLE PRECISION ALPHA1 REAL X(1) , Y(1) COMMON /INVPWX/ AAA ,NCOL ALPHA = 0.0 DO 10 I=1,NCOL 10 ALPHA = ALPHA + X(I)*Y(I) ALPHA1 = ALPHA RETURN END ================================================ FILE: mis/xychar.f ================================================ SUBROUTINE XYCHAR (ROW,COL,CHAR) C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,ANDF,ORF,COMPLF LOGICAL PASS,EXCEED DIMENSION MASK(4) COMMON /MACHIN/ MACH COMMON /SYSTEM/ DUM(38),BPERCH,BPERWD COMMON /XYPPPP/ IFRAME,TITLEC(32),TITLEL(14),TITLER(14), 1 XTITLE(32),ID(300),MAXPLT,XMIN,XINC,EXCEED, 2 I123,MAXROW COMMON /ZZZZZZ/ Z(1) DATA PASS / .FALSE. / C IF (ROW .LE. MAXROW) GO TO 1 EXCEED = .TRUE. RETURN C 1 IF (COL.GT.119 .OR. COL.LT.1 .OR. ROW.LT.1) RETURN C C CHAR COMING IN IS ASSUMED LEFT ADJUSTED C IF (PASS) GO TO 20 PASS = .TRUE. C C SET UP MASKS FIRST TIME THROUGH AFTER LOADING C N = 2**BPERCH - 1 ISHIFT = BPERWD - BPERCH N = LSHIFT(N,ISHIFT) NMASK = N DO 10 I = 1,4 MASK(I) = COMPLF(N) N = RSHIFT(N,BPERCH) 10 CONTINUE C C COMPUTE WORD AND CHARACTER OF WORD C 20 IWORD = (COL-1)/4 + 1 ICHAR = COL - (IWORD-1)*4 IWORD = (ROW-1)*30 + IWORD C C PACK THE CHARACTER C IF (MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21) GO TO 30 LET = RSHIFT(ANDF(CHAR,NMASK),BPERCH*(ICHAR-1)) Z(IWORD) = ORF(ANDF(Z(IWORD),MASK(ICHAR)),LET) RETURN C C VAX, ULTRIX, AND ALPHA C 30 Z(IWORD) = KHRFN1(Z(IWORD),ICHAR,CHAR,1) RETURN END ================================================ FILE: mis/xydump.f ================================================ SUBROUTINE XYDUMP (OUTFIL,TYPE) C LOGICAL PUNCH ,PLOT ,PRINT ,OUTOPN , 1 NULL ,RANDOM ,ONES ,PAPLOT , 2 ON ,OK ,INTORE ,DEC INTEGER ONEONE(2) ,EOR ,OUTFIL ,TCURVE , 1 XAXIS ,YAXIS ,YTAXIS ,YBAXIS , 2 CURVE ,YCYCLE(2) ,XCYCLE ,CENTER , 3 Z ,LIMIT(2,3) ,STEPS ,VECTOR , 4 FILE ,SUBC ,VECID ,BUF , 5 BEGIN ,TYPE ,TWO1 REAL YMIN(2) ,YMAX(2) ,VALUE(60) ,RZ(1) , 1 RBUF(100) ,IDOUTR(300),YLIMIT(2,3) COMMON /MACHIN/ MACHX COMMON /BLANK / BLKCOM ,VARI(3) ,NFRAME ,NCARD COMMON /TWO / TWO1(32) COMMON /ZZZZZZ/ Z(1) COMMON /XYWORK/ FILE ,TCURVE(32) ,NTOPS ,PRINT , 1 IFILE ,XAXIS(32) ,NBOTS ,PLOT , 2 VECTOR ,YAXIS(32) ,VECID(5) ,PUNCH , 3 MAJOR ,YTAXIS(32) ,SUBC(5) ,CENTER , 4 RANDOM ,YBAXIS(32) ,IDIN(153) ,BUF(100) , 5 IVALUE(60) ,IAT ,IDOUT(300) ,OUTOPN , 6 STEPS ,NAT ,PAPLOT EQUIVALENCE (LIMIT(1,1),YLIMIT(1,1)) ,(Z(1),RZ(1)) , 1 (BUF(1),RBUF(1)) ,(IDOUT(1),IDOUTR(1)) , 2 (IVALUE(1),VALUE(1)) DATA ONEONE / 1,1 /, EOR/ 1 /, NOEOR/ 0 / DATA NPAPLT / 0 / C C SET MINIMUM X-DIFFERENCE C C BUT FIRST CONVERT X FROM INTERGER TO REAL IF NECESSARY. C INTORE = .FALSE. DEC = MACHX.EQ.5 .OR. MACHX.EQ.6 .OR. MACHX.EQ.21 J = 1 IS1 = STEPS - 1 C C NOW SEARCH LIST FOR FIRST NON-ZERO ENTRY C 10 IF (Z(IAT+J) .NE. 0) GO TO 20 J = J + 1 IF (J .GT. IS1) GO TO 50 GO TO 10 C C UNIVAC CDC CRAY 20 IF (MACHX.EQ.3 .OR. MACHX.EQ.4 .OR. MACHX.EQ.12) 1 IF (IABS(Z(IAT+J))-TWO1(2)) 40,40,50 C C IBM, VAX, UNIX C IF (.NOT.DEC .AND. IABS(Z(IAT+J)).GT.TWO1(9)) GO TO 50 IF ( DEC .AND. (Z(IAT+J).LT.1 .OR. Z(IAT+J).GT.127)) GO TO 50 40 INTORE = .TRUE. IF (J .EQ. 1) RZ(IAT+J) = Z(IAT+J) C 50 OK = .FALSE. DO 70 I = 1,IS1 J = IAT + I IF (INTORE) RZ(J+1) = Z(J+1) DIFF = RZ(J+1) - RZ(J) IF (.NOT.OK) GO TO 60 IF (DIFF .EQ. 0.0) GO TO 70 XINC = AMIN1(XINC,DIFF) GO TO 70 60 IF (DIFF .EQ. 0.0) GO TO 70 XINC = DIFF OK = .TRUE. 70 CONTINUE IF (.NOT.OK) XINC = 1.0 C C SET XMIN AND XMAX FOR ALL DATA C XCYCLE = 0 YCYCLE(1) = 0 YCYCLE(2) = 0 XMIN = RZ(IAT+1) J = IAT + STEPS XMAX = RZ(J) C C REDUCE THESE LIMITS TO USER SPECIFIED LIMITS C IF (IVALUE(1) .NE. 1) XMIN = (VALUE(1)) IF (IVALUE(2) .NE. 1) XMAX = (VALUE(2)) C C FURTHER EXPAND XLIMITS TO INCLUDE Y-AXIS INTERCEPT C IF (IVALUE(9) .EQ. 1) GO TO 80 IF (IVALUE(36).EQ.1 .AND. VALUE(9).LE.0.0) GO TO 90 XMIN = AMIN1(XMIN,VALUE(9)) XMAX = AMAX1(XMAX,VALUE(9)) C C IF X-DIRECTION IS LOG AND XMIN IS NEGATIVE OR ZERO, SET YMIN C EQUAL TO THE SMALLEST NON-ZERO POSITIVE VALUE C 80 IF (IVALUE(36) .NE. 1) GO TO 130 90 IF (XMIN .GT. 0.0) GO TO 120 DO 100 I = 1,STEPS J = IAT + I IF (RZ(J) .GT. 0.0) GO TO 110 100 CONTINUE XMIN = 1.0 XMAX = 10. GO TO 120 110 XMIN = RZ(J) 120 CALL XYLOG (XMIN,XMAX,XCYCLE) C C SWITCH XMIN AND XMAX (SAFETY CHECK) IF NECESSARY C 130 IF (XMIN .LE. XMAX) GO TO 140 TEMP = XMIN XMIN = XMAX XMAX = TEMP C C USING XMIN AND XMAX AS LIMITS DETERMINE Y-LIMITS FOR TOP AND C BOTTOM. C C I1 = FIRST STEP WITHIN XMIN TO XMAX C I2 = LAST STEP WITHIN XMIN TO XMAX C C FIRST FIND I1 AND I2 C 140 DO 150 I = 1,STEPS J = IAT + I IF (XMIN.LE.RZ(J) .AND. RZ(J).LE.XMAX) GO TO 160 150 CONTINUE I1 = 0 GO TO 180 160 I1 = I J = IAT + STEPS + 1 DO 170 I = 1,STEPS J = J - 1 IF (XMIN.LE.RZ(J) .AND. RZ(J).LE.XMAX) GO TO 190 170 CONTINUE 180 I2 = 0 GO TO 200 190 I2 = J - IAT 200 IF (I1 .NE. 0) GO TO 210 C C FIND FOLLOWING VALUES FOR CURVES AS A GROUP C C YLIMIT(1,1)=YMIN TOP, YLIMIT(1,2)=YMAX TOP, YLIMIT(1,3)=MIN POS TOP C YLIMIT(2,1)=YMIN BOT, YLIMIT(2,2)=YMAX BOT, YLIMIT(2,3)=MIN POS BOT C YMIN(1) = 0.0 YMIN(2) = 0.0 YMAX(1) = 10. YMAX(2) = 10. GO TO 330 210 M = 1 IF (NBOTS .NE. 0) M = 2 BEGIN = IAT DO 280 I = 1,M LIMIT(I,1) = 1 LIMIT(I,2) = 1 LIMIT(I,3) = 1 DO 260 J = 1,NTOPS K = J*STEPS + BEGIN J1 = K + I1 J2 = K + I2 IF (LIMIT(I,1) .NE. 1) GO TO 240 C C FIND FIRST NON-INTEGER 1 VALUE C DO 220 K = J1,J2 IF (Z(K) .NE. 1) GO TO 230 220 CONTINUE GO TO 260 230 YLIMIT(I,1) = RZ(K) YLIMIT(I,2) = RZ(K) 240 DO 250 K = J1,J2 IF (Z(K) .EQ. 1) GO TO 250 YLIMIT(I,1) = AMIN1(RZ(K),YLIMIT(I,1)) YLIMIT(I,2) = AMAX1(RZ(K),YLIMIT(I,2)) IF (RZ(K) .LE. 0.0) GO TO 250 IF (LIMIT(I,3) .EQ. 1) YLIMIT(I,3) = RZ(K) YLIMIT(I,3) = AMIN1(YLIMIT(I,3),RZ(K)) 250 CONTINUE 260 CONTINUE BEGIN = CENTER C C DEFAULT YLIMITS IF ALL CURVES NULL C IF (LIMIT(I,1) .NE. 1) GO TO 270 YLIMIT(I,1) = 0.0 YLIMIT(I,2) = 100. 270 IF (LIMIT(I,3) .EQ. 1) YLIMIT(I,3) = 10.0 C 280 CONTINUE C C SET FINAL Y-LIMITS FOR UPPER AND LOWER CURVES C C C K=1 IMPLIES WHOLE CURVES C K=2 IMPLIES UPPER AND LOWER CURVES C K = 1 IF (NBOTS .GT. 0) K = 2 DO 320 I = 1,K YMIN(I) = YLIMIT(I,1) YMAX(I) = YLIMIT(I,2) C C REDUCE THESE CURVE LIMITS TO LIMITS SET BY USER C ITEMP = 2*(I+K) IF (IVALUE(ITEMP-1) .NE. 1) YMIN(I) = (VALUE(ITEMP-1)) IF (IVALUE(ITEMP ) .NE. 1) YMAX(I) = (VALUE(ITEMP )) C C FURTHER EXPAND LIMITS TO INCLUDE X-AXIS C ITEMP = I + K IF (IVALUE(ITEMP+8) .EQ. 1) GO TO 290 IF (IVALUE(ITEMP+35).EQ.1 .AND. VALUE(ITEMP+8).LE.0.E0) GO TO 300 YMIN(I) = AMIN1(YMIN(I),VALUE(ITEMP+8)) YMAX(I) = AMAX1(YMAX(I),VALUE(ITEMP+8)) C C IF Y-DIRECTION IS LOG AND YMIN IS NEGATIVE OR ZERO SET YMIN C EQUAL TO SMALLEST POSITIVE CURVE VALUE WITHIN XLIMITS C 290 IF (IVALUE(ITEMP+35) .NE. 1) GO TO 310 300 IF (YMIN(I) .LE. 0.0) YMIN(I) = YLIMIT(I,3) CALL XYLOG (YMIN(I),YMAX(I),YCYCLE(I)) C C SWITCH YMIN AND YMAX (SAFETY CHECK) IF NECESSARY C 310 IF (YMIN(I) .LE. YMAX(I)) GO TO 320 TEMP = YMIN(I) YMIN(I) = YMAX(I) YMAX(I) = TEMP 320 CONTINUE C C ALL CURVE LIMITS HAVE NOW BEEN SET FOR THIS FRAME C C C OUTPUT EACH CURVE AND AN IDOUT RECORD IF PLOTS = .TRUE. C C FILL IDOUT C 330 DO 340 I = 1,300 340 IDOUT(I) = 0 IF (PLOT .AND. OUTOPN) NFRAME = NFRAME + 1 IDOUT(1) = SUBC(FILE) IDOUT(2) = NFRAME IDOUT(6) = VECTOR IDOUT(9) = IVALUE(45) IF (IVALUE(43) .EQ. 0) VALUE(43) = 1.0 IDOUT(43) = IVALUE(43) IDOUTR(10) = XINC IDOUT(245) = TYPE IDOUT(246) = STEPS IDOUTR(282)= VALUE(57) IF (IDOUTR(282) .LT. 1.0) IDOUTR(282) = 1.0 IDOUT(283) = IVALUE(50) IF (IVALUE(47) .EQ. 3) IDOUT(283) = IVALUE(41) IDOUT(284) = IVALUE(47) IDOUT(285) = IVALUE(48) IDOUT(286) = IVALUE(49) IDOUT(287) = IVALUE(46) IDOUT( 44) = IVALUE(58) IDOUT( 45) = IVALUE(59) IF (PRINT) IDOUT(288) = 1 IF (PLOT ) IDOUT(289) = 1 IF (.NOT.PAPLOT) GO TO 350 IF (.NOT.PLOT) IDOUT(289) = -1 IF ( PLOT) IDOUT(289) = 2 NPAPLT = NPAPLT+1 IDOUT(281) = NPAPLT 350 ON = .FALSE. IF (PLOT .OR. PAPLOT) ON = .TRUE. IF (PUNCH) IDOUT(290) = 1 DO 360 I = 51,146 360 IDOUT(I) = IDIN(I) C C BRANCH ON TOP, BOTTOM, OR WHOLE CURVE (FIRST WILL BE TOP OR WHOLE) C I = 3 IF (Z(I).EQ.0 .OR. RANDOM) GO TO 400 C C TOP CURVE ID C CURVE = 0 IDOUT(7) = 1 IDOUT(8) = 1 IDOUTR(11) = XMIN IDOUTR(12) = XMAX IDOUTR(13) = YMIN(1) IDOUTR(14) = YMAX(1) IFLAG = 0 IF (INTORE) IFLAG = 1 CALL XYTICS (IDOUT(15),IDOUTR(15),IVALUE(17),IDOUT(11) , 1 IDOUT(12),IVALUE(21),XCYCLE,IFLAG) CALL XYTICS (IDOUT(23),IDOUTR(23),IVALUE(19),IDOUT(13), 1 IDOUT(14),IVALUE(23),YCYCLE(1),0) IDOUT(31) = IVALUE(34) + IVALUE(25) IDOUT(32) = IVALUE(34) + IVALUE(26) IDOUT(33) = IVALUE(34) + IVALUE(29) IDOUT(34) = IVALUE(34) + IVALUE(30) IDOUT(35) = XCYCLE IDOUT(36) = YCYCLE(1) IDOUT(37) = IVALUE(15) IDOUT(38) = IVALUE(11) IF (IDOUT(38) .EQ. 1) IDOUTR(38) = 0.0 IF (IDOUTR(38) .LT. YMIN(1)) IDOUT(37) = 0 IDOUT(39) = IVALUE(14) IDOUT(40) = IVALUE( 9) IF (IDOUT(40) .EQ. 1) IDOUTR(40) = 0.0 IF (IDOUTR(40) .LT. XMIN) IDOUT(39) = 0 IDOUT(41) = IVALUE(40) IDOUT(243) = IVALUE(53) IDOUT(244) = IVALUE(54) DO 370 I=1,32 IDOUT(I+146) = TCURVE(I) IDOUT(I+178) = XAXIS(I) IDOUT(I+210) = YTAXIS(I) 370 CONTINUE GO TO 420 C C BOTTOM CURVE ID (SET ONLY VALUES THAT CHANGE FROM THE TOP CURVES) C 380 CURVE = 0 IDOUT(7) = -1 IDOUTR(13) = YMIN(2) IDOUT(8) = 1 IDOUTR(14) = YMAX(2) CALL XYTICS (IDOUT(23),IDOUTR(23),IVALUE(20),IDOUT(13), 1 IDOUT(14),IVALUE(24),YCYCLE(2),0) IDOUT(31) = IVALUE(35) + IVALUE(25) IDOUT(32) = IVALUE(35) + IVALUE(26) IDOUT(33) = IVALUE(35) + IVALUE(31) IDOUT(34) = IVALUE(35) + IVALUE(32) IDOUT(36) = YCYCLE(2) IDOUT(37) = IVALUE(16) IDOUT(38) = IVALUE(12) IF (IDOUT(38) .EQ. 1) IDOUTR(38) = 0.0 IF (IDOUTR(38) .LT. YMIN(2)) IDOUT(37) = 0 IDOUT(243) = IVALUE(55) IDOUT(244) = IVALUE(56) DO 390 I = 1,32 IDOUT(I+146) = TCURVE(I) IDOUT(I+178) = XAXIS(I) IDOUT(I+210) = YBAXIS(I) 390 CONTINUE IPAIR = CENTER + STEPS GO TO 430 C C WHOLE CURVE ID C 400 CURVE = 0 IDOUT(7) = 0 IDOUT(8) = 1 IDOUTR(11) = XMIN IDOUTR(12) = XMAX IDOUTR(13) = YMIN(1) IDOUTR(14) = YMAX(1) IFLAG = 0 IF (INTORE) IFLAG = 1 CALL XYTICS (IDOUT(15),IDOUTR(15),IVALUE(17),IDOUT(11), 1 IDOUT(12),IVALUE(21),XCYCLE,IFLAG) CALL XYTICS (IDOUT(23),IDOUTR(23),IVALUE(18),IDOUT(13), 1 IDOUT(14),IVALUE(22),YCYCLE(1),0) IDOUT(31) = IVALUE(33) + IVALUE(25) IDOUT(32) = IVALUE(33) + IVALUE(26) IDOUT(33) = IVALUE(33) + IVALUE(27) IDOUT(34) = IVALUE(33) + IVALUE(28) IDOUT(35) = XCYCLE IDOUT(36) = YCYCLE(1) IDOUT(37) = IVALUE(13) IDOUT(38) = IVALUE(10) IF (IDOUT(38) .EQ. 1) IDOUT(38) = 0.0 IF (IDOUTR(38) .LT. YMIN(1)) IDOUT(37) = 0 IDOUT(39) = IVALUE(14) IDOUT(40) = IVALUE( 9) IF (IDOUT(40) .EQ. 1) IDOUTR(40) = 0.0 IF (IDOUTR(40) .LT. XMIN) IDOUT(39) = 0 IDOUT(41 ) = IVALUE(40) IDOUT(243) = IVALUE(51) IDOUT(244) = IVALUE(52) DO 410 I=1,32 IDOUT(I+146) = TCURVE(I) IDOUT(I+178) = XAXIS(I) IDOUT(I+210) = YAXIS(I) 410 CONTINUE GO TO 420 C C IDOUT IS COMPLETE OUTPUT CURVES C 420 ASSIGN 590 TO ICONT IPAIR = IAT + STEPS N = 1 C 430 MCOUNT = 0 DO 580 M = 1,NAT,3 MCOUNT = MCOUNT + 1 C C CURVE NUMBER, ID, COMPONENT C IDOUT(4) = Z(M) ITEMP = M + N IDOUT(5) = Z(ITEMP) IF (IDOUT(5) .NE. 1000) CURVE = CURVE + 1 IDOUT(3) = CURVE C C MEAN RESPONSE IN PLACE OF SUBCASE IF RANDOM C IF (RANDOM) IDOUT(1) = Z(ITEMP+1) C C SET NUMBER OF ZERO CROSSINGS IF RANDOM C IF (RANDOM) IDOUT(42) = BUF(MCOUNT+20) C C COMPUTE Y1 = YMIN AND Y2 = YMAX FOR ALL DATA FOR THIS CURVE C BEGIN = IPAIR + MCOUNT*STEPS - STEPS NULL = .TRUE. DO 460 K = 1,STEPS I = BEGIN + K IF (Z(I) .EQ. 1) GO TO 460 IF (.NOT.NULL ) GO TO 440 NX1 = K NX2 = K Y1 = RZ(I) Y2 = RZ(I) NULL= .FALSE. GO TO 460 440 IF (RZ(I) .GE. Y1) GO TO 450 Y1 = RZ(I) NX1 = K GO TO 460 450 IF (RZ(I) .LE. Y2) GO TO 460 Y2 = RZ(I) NX2 = K 460 CONTINUE C IF (.NOT.NULL) GO TO 470 IDOUTR(297) = 0.0 IDOUTR(298) = 0.0 IDOUTR(299) = 0.0 IDOUTR(300) = 0.0 GO TO 480 470 NX1 = NX1 + IAT NX2 = NX2 + IAT IDOUTR(297) = Y1 IDOUTR(298) = RZ(NX1) IDOUTR(299) = Y2 IDOUTR(300) = RZ(NX2) C C COMPUTE Y1 AND Y2 FOR DATA BETWEEN XMIN AND XMAX C 480 NULL = .TRUE. IF (I1 .EQ. 0) GO TO 520 DO 510 K = I1,I2 I = BEGIN + K IF (Z(I) .EQ. 1) GO TO 510 IF (.NOT.NULL ) GO TO 490 NX1 = K NX2 = K Y1 = RZ(I) Y2 = RZ(I) NULL= .FALSE. GO TO 510 490 IF (RZ(I) .GE. Y1) GO TO 500 Y1 = RZ(I) NX1 = K GO TO 510 500 IF (RZ(I) .LE. Y2) GO TO 510 Y2 = RZ(I) NX2 = K 510 CONTINUE IF (.NOT.NULL) GO TO 530 520 IDOUTR(293) = 0.0 IDOUTR(294) = 0.0 IDOUTR(295) = 0.0 IDOUTR(296) = 0.0 GO TO 540 530 NX1 = NX1 + IAT NX2 = NX2 + IAT IDOUTR(293) = Y1 IDOUTR(294) = RZ(NX1) IDOUTR(295) = Y2 IDOUTR(296) = RZ(NX2) C 540 IDOUTR(291) = RZ(IAT+1) ITEMP = IAT + STEPS IDOUTR(292) = RZ(ITEMP) C C IDOUT IS COMPLETE FOR THIS CURVE C IF (IDOUT(5).NE.0 .AND. IDOUT(5).NE.1000) 1 CALL XYOUT (-1,IDOUT(1),IDOUTR(1)) IF (ON) CALL WRITE (OUTFIL,IDOUT(1),300,EOR) IDOUT(8) = 0 C C DUMP ALL PAIRS TO PRINTER AND PUNCH, THOSE IN RANGE TO PLOTTER C Y1 = IDOUTR(13) Y2 = IDOUTR(14) IF (ON) CALL WRITE (OUTFIL,ONEONE(1),2,NOEOR) ONES = .TRUE. IF (IDOUT(5) .EQ. 1000) GO TO 570 DO 560 K = 1,STEPS I = BEGIN + K J = IAT + K BUF(1) = Z(J) BUF(2) = Z(I) IF (Z(I) .EQ. 1) GO TO 560 IF (K.LT.I1 .OR. K.GT.I2) GO TO 560 IF (PRINT .OR. PUNCH) CALL XYOUT (1,BUF(1),RBUF(1)) IF (RZ(I).LT.Y1 .OR. RZ(I).GT.Y2) GO TO 550 IF (ON) CALL WRITE (OUTFIL,BUF(1),2,NOEOR) ONES = .FALSE. GO TO 560 550 IF (ONES) GO TO 560 IF (ON) CALL WRITE (OUTFIL,ONEONE(1),2,NOEOR) ONES = .TRUE. 560 CONTINUE 570 IF (ON) CALL WRITE (OUTFIL,BUF(1),0,EOR) 580 CONTINUE C GO TO ICONT, (590,600) C C DO BOTTOM CURVES IF ANY C 590 ASSIGN 600 TO ICONT N = 2 IF (IDOUT(7) .GT. 0) GO TO 380 600 RETURN END ================================================ FILE: mis/xyfind.f ================================================ SUBROUTINE XYFIND (*,*,*,MAJID,IDZ) C LOGICAL RANDOM ,RETRY INTEGER MAJID(11) ,FILE ,VECTOR ,VECID , 1 Z ,EOR ,FLAG ,SUBC COMMON /ZZZZZZ/ Z(1) COMMON /XYWORK/ FILE ,TCURVE(32),NTOPS ,PRINT , 1 IFILE ,XAXIS(32) ,NBOTS ,PLOT , 2 VECTOR ,YAXIS(32) ,VECID(5) ,PUNCH , 3 MAJOR ,YTAXIS(32),SUBC(5) ,CENTER , 4 RANDOM ,YBAXIS(32),IDIN(153) ,BUF(100), 5 IVALUE(60),IAT ,IDOUT(300),OUTOPN , 6 STEPS ,NAT ,PAPLOT ,KNT DATA EOR / 1 / C C THIS SUBROUTINE LOCATES THE ID RECORD FOR A PARTICULAR ELEMENT OR C POINT ID AND IF THIS IS A RANDOM PLOT IT CONSIDERS THE COMPONENT C K = 1 RETRY = .FALSE. ITEMP = IDZ IF (SUBC(FILE)) 15,1,1 1 CONTINUE IF (KNT) 3,15,7 3 CONTINUE ISAV = IDIN(4) 5 CALL READ (*80,*110,IFILE,IDIN(1),146,1,FLAG) IF (ISAV .EQ. IDIN(4)) GO TO 21 CALL FWDREC (*100,IFILE) GO TO 5 7 CONTINUE ISAV = IDIN(4) GO TO 11 9 CALL FWDREC (*100,IFILE) 11 CALL READ (*80,*110,IFILE,IDIN(1),146,1,FLAG) IF (IDIN(4) .EQ. ISAV) GO TO 9 GO TO 21 15 CALL REWIND (IFILE) CALL FWDREC (*100,IFILE) VECID(FILE) = 0 20 CALL READ (*80,*110,IFILE,IDIN(1),146,EOR,FLAG) 21 CONTINUE IF (MAJOR .NE. IDIN(2)) GO TO 25 IF (SUBC(FILE) .EQ. 0) GO TO 30 IF (SUBC(FILE) .EQ. IDIN(4)) GO TO 30 25 CONTINUE CALL FWDREC (*100,IFILE) K = K + 1 GO TO 20 C C MATCH ON MAJOR ID MADE C 30 VECID(FILE) = VECTOR 40 IF (IDIN(5)/10 .EQ. Z(IDZ)) GO TO 90 ITEMP = -1 50 CALL FWDREC (*100,IFILE) CALL READ (*80,*110,IFILE,IDIN(1),146,EOR,FLAG) IF (MAJOR .EQ. IDIN(2)) GO TO 40 C C ELEMENT DATA ARE NOT IN ASCENDING SORT LIKE GRID DATA, BUT ARE C SORTED BY ELEMENT NAME, THEN BY ELEMENT NUMBER. C SINCE IT IS POSSIBLE FOR THE DESIRED ELEMENT TO BE AHEAD OF THE C CURRENT POSITION OF FILE, REWIND AND TRY AGAIN TO FIND MISSING C ELEMENT DATA FOR FORCES AND STRESSES. C 80 IF (KNT.EQ.0 .OR. RETRY .OR. SUBC(FILE).EQ.0) GO TO 82 RETRY = .TRUE. GO TO 15 82 IF (SUBC(FILE) .NE. 0) GO TO 85 SUBC(FILE) = -1 RETURN C 85 CONTINUE VECID(FILE) = 0 IDZ = ITEMP CALL REWIND (IFILE) CALL FWDREC (*100,IFILE) RETURN 3 C C IF RANDOM CHECK COMPONENT FOR MATCH C 90 IF (Z(IDZ+1).NE.IDIN(6) .AND. RANDOM) GO TO 50 IF (SUBC(FILE) .EQ. 0) RETURN IF (SUBC(FILE) .NE. IDIN(4)) GO TO 50 RETURN C C EOF HIT WHEN AN EOF SHOULD NOT HAVE BEEN HIT C 100 RETURN 1 C C EOR HIT WHEN AN EOR SHOULD NOT HAVE BEEN HIT C 110 RETURN 2 C END ================================================ FILE: mis/xygraf.f ================================================ SUBROUTINE XYGRAF (GRAPH) C LOGICAL EXCEED INTEGER Z,TITLEC,XTITLE,TITLEL,TITLER,SYSBUF,M(5), 1 NU(5,10) REAL GRAPH(3,8) CHARACTER UFM*23,UWM*25,UIM*29 COMMON /XMSSG / UFM,UWM,UIM COMMON /SYSTEM/ SYSBUF,L,IDUM(6),NLPP,IDUM2(2),LINES,ITLNS COMMON /XYPPPP/ IFRAME,TITLEC(32),TITLEL(14),TITLER(14), 1 XTITLE(32),ID(300),MAXPLT,XMIN,XINC,EXCEED,I123, 2 MAXROW COMMON /ZZZZZZ/ Z(1) C DATA NU(1, 1),NU(1, 2),NU(1, 3) / 4H**** ,4H ** ,4H**** /, 1 NU(2, 1),NU(2, 2),NU(2, 3) / 4H* * ,4H * ,4H * /, 2 NU(3, 1),NU(3, 2),NU(3, 3) / 4H* * ,4H * ,4H * /, 3 NU(4, 1),NU(4, 2),NU(4, 3) / 4H* * ,4H * ,4H * /, 4 NU(5, 1),NU(5, 2),NU(5, 3) / 4H**** ,4H**** ,4H**** / C DATA NU(1, 4),NU(1, 5),NU(1, 6) / 4H**** ,4H* * ,4H**** /, 1 NU(2, 4),NU(2, 5),NU(2, 6) / 4H * ,4H* * ,4H* /, 2 NU(3, 4),NU(3, 5),NU(3, 6) / 4H *** ,4H**** ,4H**** /, 3 NU(4, 4),NU(4, 5),NU(4, 6) / 4H * ,4H * ,4H * /, 4 NU(5, 4),NU(5, 5),NU(5, 6) / 4H**** ,4H * ,4H**** / C 1 NU(1, 7),NU(1, 8),NU(1, 9) / 4H**** ,4H**** ,4H**** /, 2 NU(2, 7),NU(2, 8),NU(2, 9) / 4H* ,4H * ,4H* * /, 3 NU(3, 7),NU(3, 8),NU(3, 9) / 4H**** ,4H * ,4H**** /, 4 NU(4, 7),NU(4, 8),NU(4, 9) / 4H* * ,4H * ,4H* * /, 5 NU(5, 7),NU(5, 8),NU(5, 9) / 4H**** ,4H* ,4H**** / C DATA NU(1,10) / 4H**** /, 1 NU(2,10) / 4H* * /, 2 NU(3,10) / 4H**** /, 3 NU(4,10) / 4H * /, 4 NU(5,10) / 4H**** / C CALL PAGE1 C C GRAPH HEADING DATA C IF (IFRAME.LT.0 .OR. IFRAME.GT.99999) IFRAME = 0 N = 100000 DO 10 I = 1,5 N = N/10 M(I) = IFRAME/N IFRAME = IFRAME - M(I)*N 10 M(I) = M(I) + 1 N1 = M(1) N2 = M(2) N3 = M(3) N4 = M(4) N5 = M(5) LINES = LINES + 21 ITLNS = ITLNS + 21 WRITE (L,20) (NU(I,N1),NU(I,N2),NU(I,N3),NU(I,N4),NU(I,N5),I=1,5) 20 FORMAT (1H0,60X,25HF R A M E, //, 1 5(59X,A4,2X,A4,2X,A4,2X,A4,2X,A4,/)) WRITE (L,30) TITLEC,(XTITLE(I),I=1,28) 30 FORMAT (1H0,4X,31A4,A3, /1H0,4X,15HX-AXIS TITLE = ,28A4,/1H0) C IF (I123 .EQ. 1) GO TO 70 C C DUAL FRAME TITLE FRAME C WRITE (L,60) WRITE (L,40) TITLEL, TITLER 40 FORMAT (13X,1HI,57X,3HI I,57X,1HI, /13X,2HI ,14A4,4HI I ,14A4,1HI, 1 /13X,1HI,57X,3HI I,57X,1HI) WRITE (L,50) (GRAPH(I,6),GRAPH(I,7),GRAPH(I,8),I=2,3) 50 FORMAT (12X,2(2H I,1P,E14.6,1P,E21.6,1P,E21.6,2H I)) 60 FORMAT (13X,1H+,57(1H-),3H+ +,57(1H-),1H+) WRITE (L,60) GO TO 110 C C WHOLE FRAME TITLE FRAME C 70 WRITE (L,80) WRITE (L,90) TITLEL 80 FORMAT (13X,1H+,117(1H-),1H+) 90 FORMAT (13X,1HI,117X,1HI/13X,2HI ,14A4,60X,1HI, /13X,1HI,117X,1HI) WRITE (L,100) GRAPH(1,6),GRAPH(1,7),GRAPH(1,8) 100 FORMAT (13X,1HI,1P,E14.6,37X,1P,E14.6,37X,1P,E14.6,2H I) WRITE (L,80) C C DUMP GRAPH C 110 F = XMIN - XINC DO 160 I = 1,MAXPLT TEMP = F + FLOAT(I)*XINC I1 = (I-1)*30 + 1 I2 = I1 + 29 LINES = LINES + 1 ITLNS = ITLNS + 1 IF (LINES-NLPP) 120,120,140 120 CONTINUE WRITE (L,130) TEMP,(Z(J),J=I1,I2) 130 FORMAT (1X,1P,E11.4,1X,29A4,A3) GO TO 160 140 LINES = 1 WRITE (L,150) TEMP,(Z(J),J=I1,I2) 150 FORMAT (1H1,1P,E11.4,1X,29A4,A3) 160 CONTINUE C IF (I123 .EQ. 1) GO TO 170 WRITE (L,60) GO TO 180 170 WRITE (L,80) C 180 IF (EXCEED) WRITE (L,190) UIM EXCEED = .FALSE. 190 FORMAT (A29,'. THERE WERE MORE POINTS BELOW THIS POINT WHICH WE', 1 'ARE NOT PLOTTED HERE',/5X,'DUE TO CORE RESTRICTION') RETURN END ================================================ FILE: mis/xylog.f ================================================ SUBROUTINE XYLOG( V1, V2, CYCLES ) INTEGER CYCLES, POWER1, POWER2 C***** C THIS SUBROUTINE TAKES V1 AND V2 REGARDLESS OF THEIR VALUES C AND COMPUTES A LOG SCALE OF AT LEAST 1 CYCLE... C***** IF( V1 .GT. 0.0E0 ) GO TO 20 IF( V2 .GT. 0.0E0 ) GO TO 10 C C V1 AND V2 ARE BOTH NEGATIVE OR ZERO. SET ARBITRARY LIMITS C 5 V1 = 1.0E-5 V2 = 1.0E+5 CYCLES = 10 RETURN C C V2 IS POSITIVE BUT V1 IS NEGATIVE OR 0 C 10 V1 = V2 * 1.0E-5 GO TO 40 C 20 IF( V2 .GT. 0.0E0 ) GO TO 30 C C V1 IS POSITIVE BUT V2 IS NEGATIVE OR 0 C V2 = V1 * 1.0E+5 GO TO 40 C 30 IF( V2 .GT. V1 ) GO TO 40 TEMP = V1 V1 = V2 V2 = TEMP C C RAISE V2 TO POWER OF 10, LOWER V1 TO POWER OF 10 C 40 POWER1 = 0 CWKBR 9/93 50 IF( V1 .LT. 1.0E0 ) GO TO 70 50 IF( V1 .LT. 0.99999) GO TO 70 CWKBR 9/93 60 IF( V1 .LT. 10.0E0) GO TO 80 60 IF( V1 .LE. 10.0001) GO TO 80 V1 = V1 / 10.0E0 POWER1 = POWER1 + 1 GO TO 60 70 V1 = V1 * 10.0E0 IF( V1 .LE. 0.0E0 ) GO TO 5 POWER1 = POWER1 - 1 GO TO 50 C 80 V1 = 10.0E0 ** POWER1 C POWER2 = 1 90 IF(V2.LE. 1.0E0) GO TO 110 CWKBR 9/93 100 IF( V2 .LT. 10.00001E0) GO TO 120 100 IF( V2 .LE. 10.0001 ) GO TO 120 V2 = V2 / 10.0E0 POWER2 = POWER2 + 1 GO TO 100 110 V2 = V2 * 10.0E0 IF( V2 .LE. 0.0E0 ) GO TO 5 POWER2 = POWER2 - 1 GO TO 90 C 120 V2 = 10.0 ** POWER2 C CYCLES = POWER2 - POWER1 RETURN END ================================================ FILE: mis/xyout.f ================================================ SUBROUTINE XYOUT (IOPT,BUF,RBUF) C C THIS SUBROUTINE IS CALLED BY XYTRAN AND OUTPUTS TO PRINTER AND C PUNCH C EXTERNAL LSHIFT,RSHIFT LOGICAL PRINT,PUNCH INTEGER BUF(300),NAMES(44),TYPE(6),PLT(2),IMTD(6), 1 ITYPE(4),RSHIFT REAL RBUF(300) COMMON /MACHIN/ MACH,IHALF COMMON /BLANK / ICOM1,DUM(4),ICARD COMMON /SYSTEM/ SYSBUF,L,D1(6),MAXLNS,D2(2),LINE,D3(78),LPCH COMMON /OUTPUT/ IHEAD(96) DATA NAMES / 4HDISP ,4HLACE ,4HMENT ,4H , 1 4HVELO ,4HCITY ,4H ,4H , 2 4HACCE ,4HLERA ,4HTION ,4H , 3 4HS P ,4HC F ,4H ,4H , 4 4HLOAD ,4H ,4H ,4H , 5 4HELEM ,4HENT- ,4HSTRE ,4HSS , 6 4HELEM ,4HENT- ,4HFORC ,4HE , 7 4HS-DI ,4HSPLA ,4HCEME ,4HNT , 8 4HS-VE ,4HLOCI ,4HTY ,4H , 9 4HS-AC ,4HCELE ,4HRATI ,4HON , O 4HNONL ,4HINEA ,4HR-FO ,4HRCE / DATA TYPE / 4HWHOL ,4HE ,4HUPPE ,4HR ,4HLOWE ,4HR / DATA IRAND / 4HRAND / DATA IVG / 4HVG / DATA PLT / 4HNAST ,4HPLT / DATA IMTD / 4HFILM ,1H ,4HTABL ,1HE ,4HDRUM ,1H / DATA ITYPE / 4HWITH ,4H , 1 4HWITH ,4HOUT / C IF (ICOM1 .EQ. IVG) GO TO 86 C C BRANCH ON OPTION C IF (IOPT) 10,90,90 C C PRINT XY-OUTPUT SUMMARY C C C FILL OUT HEADING C 10 DO 20 I = 1,96 20 IHEAD(I) = BUF(I+50) CALL PAGE1 WRITE (L,150) IF (ICOM1 .EQ. IRAND) GO TO 30 WRITE (L,170)BUF(1) GO TO 40 30 WRITE (L,160) RBUF(1) WRITE (L,161) RBUF(42) 40 ITEMPV = 4*BUF(6) - 3 C C PRINT TYPE OF PLOT C IF (BUF(245)-2) 41,42,43 41 WRITE (L,460) GO TO 45 42 WRITE (L,470) GO TO 45 43 WRITE (L,480) C C PRINT DATA TYPE AND CURVE C 45 ICOMP = BUF(5) IF (BUF(6).NE.6 .AND. BUF(6).NE.7) ICOMP = BUF(5) - 2 IF (BUF(7)) 70,60,50 50 WRITE (L,200) NAMES(ITEMPV),NAMES(ITEMPV+1),NAMES(ITEMPV+2), 1 NAMES(ITEMPV+3),BUF(4),ICOMP ITEMP = 3 GO TO 72 60 WRITE (L,180) NAMES(ITEMPV),NAMES(ITEMPV+1),NAMES(ITEMPV+2), 1 NAMES(ITEMPV+3),BUF(4),ICOMP ITEMP = 1 GO TO 72 70 WRITE (L,190) NAMES(ITEMPV),NAMES(ITEMPV+1),NAMES(ITEMPV+2), 1 NAMES(ITEMPV+3),BUF(4),ICOMP ITEMP = 5 72 ICOUNT = ICARD + 1 WRITE (L,210) IF (BUF(288) .GT. 0) WRITE (L,230) IF (BUF(290) .GT. 0) WRITE (L,240) ICOUNT C C PLOTTER INFORMATION C IF (BUF(289) .LE. 0) GO TO 84 WRITE (L,220) J = RSHIFT(BUF(284),IHALF) MODEL = BUF(284) - LSHIFT(J,IHALF) - 100 M = 1 IF (MODEL .LT. 0) M = 3 C C . NASPLOT... C K = 2*IABS(MODEL) - 1 WRITE (L,380) PLT(1),PLT(2),IMTD(K),IMTD(K+1),ITYPE(M),ITYPE(M+1) IF (BUF(283) .LE. 0) BUF(283) = 1 C C WRITE CSCALE DATA OUT C WRITE (L,490) RBUF(282) IF (IABS(MODEL)-2) 81,82,82 C C . CAMERA, DENSITY... C 81 IF (BUF(287) .GE. 3) WRITE (L,410) IF (BUF(287) .EQ. 2) WRITE (L,430) IF (BUF(287) .LE. 1) WRITE (L,420) WRITE (L,450) BUF(283) GO TO 83 C C . PAPER SIZE C (THE LOGIC HERE IS SIMILAR TO THAT IN SUBROUTINE PLTSET) C 82 IF (IABS(MODEL) .EQ. 2) GO TO 822 C C . DRUM PLOTTERS C IF (RBUF(285) .LE. 0.0) RBUF(285) = 30.0 IF (RBUF(286) .LE. 0.0) RBUF(286) = 30.0 GO TO 824 C C . TABLE PLOTTERS C 822 IF (RBUF(285) .LE. 0.0) RBUF(285) = 11.0 IF (RBUF(285) .GT. 30.0) RBUF(285) = 30.0 IF (RBUF(286) .LE. 0.0) RBUF(286) = 8.5 824 IF (RBUF(286) .GT. 30.0) RBUF(286) = 30.0 WRITE (L,390) RBUF(285),RBUF(286) C C . PEN SIZE C WRITE (L,440) BUF(283) 83 WRITE (L,250) BUF(3),TYPE(ITEMP),TYPE(ITEMP+1),BUF(2) C C . PAPER PLOT C 84 IF (BUF(289).GT.0 .AND. BUF(289).NE.2) GO TO 85 WRITE (L,400) BUF(281) C 85 CONTINUE WRITE (L,260) (BUF(J),J=147,174),(BUF(J),J=179,206), 1 (BUF(J),J=211,238) WRITE (L,270) WRITE (L,290) RBUF( 11),RBUF( 12) WRITE (L,300) RBUF(293),RBUF(294) WRITE (L,310) RBUF(295),RBUF(296) WRITE (L,280) RBUF(291),RBUF(292) WRITE (L,300) RBUF(297),RBUF(298) WRITE (L,310) RBUF(299),RBUF(300) WRITE (L,320) IF (BUF(288) .GT. 0) WRITE (L,330) 86 ITEMPV = 4*BUF(6) - 3 IF (BUF(7)) 89,88,87 87 ITEMP = 3 GO TO 891 88 ITEMP = 1 GO TO 891 89 ITEMP = 5 891 IPRINT= 0 ID = BUF(4) ICOMP = BUF(5) IF (BUF(6).NE.6 .AND. BUF(6).NE.7) ICOMP = BUF(5) - 2 PRINT = .FALSE. PUNCH = .FALSE. IF (BUF(290) .GT. 0) PUNCH = .TRUE. IF (BUF(288) .GT. 0) PRINT = .TRUE. IF (.NOT.PRINT) RETURN LINE = MAXLNS + 1 RETURN C C PRINT AND OR PUNCH OUTPUT C 90 IPRINT = IPRINT + 1 IF (.NOT.PUNCH) GO TO 100 ICARD = ICARD + 1 WRITE (LPCH,370) IPRINT,RBUF(1),RBUF(2),ICARD 100 IF (.NOT.PRINT) RETURN IF (LINE .LT. MAXLNS) GO TO 110 CALL PAGE1 WRITE (L,340) NAMES(ITEMPV),NAMES(ITEMPV+1),NAMES(ITEMPV+2), 1 NAMES(ITEMPV+3),ID,ICOMP,TYPE(ITEMP),TYPE(ITEMP+1) 110 LINE = LINE + 1 IF (.NOT.PUNCH) GO TO 120 WRITE (L,350) IPRINT,RBUF(1),RBUF(2),ICARD RETURN 120 WRITE (L,350) IPRINT,RBUF(1),RBUF(2) RETURN C 150 FORMAT (///44X,33HX Y - O U T P U T S U M M A R Y) 160 FORMAT (//5X,24HROOT MEAN SQUARE VALUE =,1P,E15.6) 161 FORMAT (6X,38HFREQUENCY OF ZERO CROSSINGS (N ZERO) =,1P,E15.6) 170 FORMAT (//5X,7HSUBCASE,I10) 180 FORMAT (6X,4A4,5HCURVE,I9,1H(,I2,1H)) 190 FORMAT (6X,4A4,5HCURVE,I9,4H(--,,I2,1H)) 200 FORMAT (6X,4A4,5HCURVE,I9,1H(,I2,4H,--)) 210 FORMAT (1H ) 220 FORMAT (6X,44HXY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED) 230 FORMAT (6X,46HXY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED) 240 FORMAT (6X,64HXY-PAIRS BETWEEN XMIN AND XMAX WILL BE PUNCHED BIGIN 1NING ON CARD,I8) 250 FORMAT (//5X,13HTHIS IS CURVE,I4,4H OF ,A4,A2,5HFRAME,I5) 260 FORMAT (//5X,14HCURVE TITLE =,28A4,/6X,14HX-AXIS TITLE =,28A4, 1 /6X,14HY-AXIS TITLE =,28A4) 270 FORMAT (/////5X,62HTHE FOLLOWING INFORMATION IS FOR THE ABOVE DEFI 1NED CURVE ONLY. ) 280 FORMAT (//5X,36HWITHIN THE X-LIMITS OF ALL DATA (X =,1P,E14.6, 1 8H TO X =,1P,E14.6,1H)) 290 FORMAT (///6X,36HWITHIN THE FRAME X-LIMITS (X =,1P,E14.6, 1 8H TO X =,1P,E14.6,1H)) 300 FORMAT (//30X,22HTHE SMALLEST Y-VALUE =,1P,E14.6,7H AT X =,E15.6) 310 FORMAT (//30X,22HTHE LARGEST Y-VALUE =,1P,E14.6,7H AT X =,E15.6, 1 //) 320 FORMAT (//45X,27HE N D O F S U M M A R Y) 330 FORMAT (//25X,69HP R I N T E D D A T A F O R T H I S C U R 1 V E F O L L O W S) 340 FORMAT (//5X,4A4,12HCURVE ID =,I9,5X,11HCOMPONENT =,I3,5X,A4,A2, 1 5HFRAME,///27X,12HPRINT NUMBER,10X,7HX-VALUE,14X, 2 7HY-VALUE,14X,11HCARD NUMBER ) 350 FORMAT (28X,I7,1P,E25.6,E21.6,10X,I8) 370 FORMAT (I10,10X,1P,2E20.6,12X,I8) 380 FORMAT (6X,21HPLOTTER SPECIFIED IS ,3A4,A1,9H PLOTTER ,2A4, 1 18HTYPING CAPABILITY.) 390 FORMAT (6X,11HPAPER SIZE ,F5.2,3H X ,F5.2,18H INCHES SPECIFIED.) 400 FORMAT (6X,38HTHIS CURVE WILL BE PAPER-PLOTTED FRAME,I5) 410 FORMAT (6X,36HCAMERA 3 USED. (PAPER AND 35MM FILM)) 420 FORMAT (6X,26HCAMERA 2 USED. (35MM FILM)) 430 FORMAT (6X,22HCAMERA 1 USED. (PAPER)) 440 FORMAT (6X,9HPENSIZE =,I3) 450 FORMAT (6X,9HDENSITY =,I3) 460 FORMAT (6X,8HRESPONSE) 470 FORMAT (6X,38HPOWER-SPECTRAL-DENSITY-FUNCTION (PSDF)) 480 FORMAT (6X,15HAUTOCORRELATION) 490 FORMAT (6X,9HCSCALE = ,F5.2) END ================================================ FILE: mis/xyplot.f ================================================ SUBROUTINE XYPLOT C C XYPLOT IS AN OUTPUT MODULE C C INFORMATION SUPPLIED BY XYTRAN THROUGH DATA BLOCK XYPLOT C IS INTERPRETED AND OUTPUT TO EITHER PLT1(BCD TAPE FILE) OR C PLT2(BINARY TAPE FILE) FOR PLOTTING ON AN OFF-LINE PLOTTER. C C EXTERNAL LSHIFT,RSHIFT INTEGER EXPO,ISYM(2),IX(1),LTTN(10),LTTP(10),D4, 1 OUTAPE,RSHIFT,SYSBUF,XYPLT REAL NUMS,TLTV(22),X(1),Y(1),XY(2),CHRSCL,CSCALE CHARACTER UFM*23,UWM*25,UIM*29,SFM*25,SWM*27 COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM COMMON /MACHIN/ MACH,IHALF COMMON /SYSTEM/ KSYSTM(65) CZZ COMMON /ZZXYPL/ Z(1) COMMON /ZZZZZZ/ Z(20000) COMMON /XXPARM/ IPLTBF,ICMRA,IFSKP,PNAM1,PNAM2,IPTDN,NPENS, 1 PAPSZX,PAPSZY,PTYP1,PTYP2,JPSZ(8),PC(8,2), 2 SPARE,YA(115) COMMON /PLTDAT/ MODEL,IPLTNR,XWMIN,YLOW,AXMAX,YUP,XWMAX,YWMAX, 1 XEDGE,YEDGE,XA(9),CHRSCL, 2 XYMAX(2),CNTPI,CCH,CCV,ALL,MNP,APO(2),ITP,LTAPE COMMON /XYPLIN/ IDSB,NFRM,NCRV,IDPE,NCOM,IDMJ,ITBF, 1 NWFR,ISKP,D1 ,XMIN,XMAX,YMIN,YMAX, 2 XTIC,XDTC,XLTC,NXDG,IXPR,NXTT,IXVS, 3 IXDT,YTIC,YDTC,YLTC,NYDG,IYPR,NYTT, 4 IYVS,IYDT,ITTC,IBTC,ILTC,IRTC,LOGX, 5 LOGY,IXAX,XINT,IYAX,YINT,ICRV,D2(2), 6 IPENS,IPENN,SKP5(5),TITL(32),SBTL(32), 7 CLBL(32),CVTL(32),XATL(32),YATL(32), 8 IXGD,IYGD,D3(37),CSCALE,IPSZ,NPLT,XPAP, 9 YPAP,NCMR,D4(13) EQUIVALENCE (KSYSTM( 1),SYSBUF), (KSYSTM( 2),OUTAPE), 1 (KSYSTM( 9),NLPP ), (KSYSTM(12),NLINES), 2 (Z(1),X(1),IX(1),XY(1)), (XY(2),Y(1)) DATA LPLTMD, LCMR, XLPAP, YLPAP / -1, -1, -1.0, -1.0 / DATA XYPLT / 101 / DATA NRWD , IRDRW ,ICLSRW / 1 300 , 0 ,1 / DATA IPLUS , IE, LEP, LEM / 1H+, 1HE, 4H1E+ , 4H1E- / DATA LTTN / 8, 8, 5, 4, 3, 2, 2, 1, 1, 1 / , 1 LTTP / 15,15,10, 6, 3, 1, 1, 7, 7, 7 / , 2 TLTV / 3.,6.,2.,5.,8.,2.,4.,6.,8.,2.,3.,5.,7.,9.,2.,3., 3 4.,5.,6.,7.,8.,9. / C C C DEFINITION OF COMMON BLOCK /PLTDAT/ CONTENTS C C MODEL - MODEL NUMBER OF THE CURRENT PLOTTER. C IPLTNR - NUMBER OF CURRENT PLOTTER IN USE C XWMIN - MINIMUM X VALUE OF PLOTTING REGION IN PLOTTER COUNTS C YLOW - MIN. Y VALUE OF PLOT. REGION(AFTER TITLES) C IN PLOTTER COUNTS C AXMAX - MAX. X VALUE OF PLOT. REGION(LESS MARGIN) C IN PLOTTER COUNTS C YUP - MAX. Y VALUE OF PLOT. REGION(LESS MARGIN) C IN PLOTTER COUNTS C XWMAX - ACTUAL MAXIMUM REGION SIZE IN X DIRECTION C IN PLOTTER COUNTS C YWMAX - ACTUAL MAXIMUM REGION SIZE IN Y DIRECTION C IN PLOTTER COUNTS C XEDGE - MARGIN OF X EDGE IN PLOTTER COUNTS (TABLE PLOTTERS ONLY) C YEDGE - MARGIN OF Y EDGE IN PLOTTER COUNTS (TABLE PLOTTERS ONLY) C XA - SPARES C C THE FOLLOWING SYMBOLIC VALUES PERTAIN TO THE CURRENT PLOTTER. C AND ARE SET WHEN STPLOT OR PLTSET IS CALLED. C C XYMAX - X AND Y FRAME LIMITS IN PLOTTER COUNTS. C CNTPI - PLOTTER COUNTS PER INCH. C CCH - HORIZONTAL PLOTTER COUNTS PER SINGLE CHARACTER C CCV - VERTICAL PLOTTER COUNTS PER SINGLE CHARACTER C ALL - MAXIMUM LINE LENGTH DRAWN WITH SINGLE COMMAND C (PLOTTER COUNT) C MNP - MAXIMUM NUMBER OF PENS C APOX - ACTUAL PLOTTER X ORIGIN IN PLOTTER COUNTS C APOY - ACTUAL PLOTTER Y ORIGIN IN PLOTTER COUNTS C NOTE - INCREMENTAL PLOTTERS USE AS CURRENT PEN POSITION. C ITP - PLOTTER TYPE. C LTAPE - GINO NAME OF THE PLOT TAPE. C C DEFINITION OF I.D. RECORD CONTENTS OF INPUT DATA FILE /XYPLIN/ C C IDSB - SUBCASE I.D. NFRM - FRAME NUMBER C NCRV - CURVE NUMBER IDPE - POINT OR ELEMENT I.D. C NCOM - COMPONENT NUMBER IDMJ - VECTOR NUMBER C ITBF - BOTTOM TOP FULL FRAME IND. NWFR - NEW AXIS AND LABEL IND. C ISKP - FRAME SKIP NUMBER D1 - SPARE C XMIN - MINIMUM X DATA FOR CURVE XMAX - MAXIMUM X DATA FOR CURVE C YMIN - MINIMUM Y DATA FOR CURVE YMAX - MAXIMUM Y DATA FOR CURVE C XTIC - FIRST X TICK VALUE XDTC - VALUE BETWEEN X TICKS C XLTC - HIGHEST X-VALUE ON FRAME. NXDG - MAX. DIGITS FOR X-TICKS C IXPR - 10 POWER ON PRINTED X TICK NXTT - TOTAL NUMBER OF X TICKS C IXVS - X TICKS BETWEEN LABELS IXDT - DELTA PRINT VALUE X TICKS C YTIC - FIRST Y TICK VALUE YDTC - VALUE BETWEEN Y TICKS C YLTC - HIGHEST Y-VALUE ON FRAME. NYDG - MAX. DIGITS FOR Y-TICKS C IYPR - 10 POWER ON PRINTED Y TICK NYTT - TOTAL NUMBER OF Y TICKS C IYVS - Y TICKS BETWEEN LABELS IYDT - DELTA PRINT VALUE Y TICKS C ITTC - TICKS W/WO VALUES - TOP IBTC - TICKS W/WO VALUES - BOTTM C ILTC - TICKS W/WO VALUES - LEFT IRTC - TICKS W/WO VALUES - RIGHT C LOGX - LINEAR/LOG - X DIRECTION LOGY - LINEAR/LOG - Y DIRECTION C IXAX - X AXIS/NO AXIS INDICATOR XINT - X AXIS Y INTERCEPT C IYAX - Y AXIS/NO AXIS INDICATOR YINT - Y AXIS X INTERCEPT C ICRV - POINT/LINE PLOT INDICATOR D2 - SPARES C TITL - PLOT TITLE SBTL - PLOT SUBTITLE C CLBL - PLOT LABEL CVTL - PLOT CURVE TITLE C XATL - X AXIS TITLE YATL - Y AXIS TITLE C IXGD - X GRID LINES IYGD - Y GRID LINES C D3 - SPARES IPNR - PEN COLOR C IPSZ - PEN SIZE NPLT - TYPE OF PLOTTER C XPAP - PAPER SIZE(IN.) X DIR. YPAP - PAPER SIZE(IN.) Y DIR. C NCMR - CAMERA NR. FOR SC-4020 D4 - XYTRAN INTERNAL FLAGS C C C SET IOPN=0 (PLOT TAPE CLOSED) AND NERR=0 (NUMBER OF ID RECORDS C WITH WRONG WORD COUNT). WHEN NERR=5, XYPLOT ASSUMES BAD INPUT C FILE AND ABANDONS OPERATION. C MB1 = KORSZ(Z) - SYSBUF IPCHG= 0 IOPN = 0 CALL OPEN (*920,XYPLT,Z(MB1),IRDRW) 99 CALL FWDREC (*960,XYPLT) NERR = 0 C C READ I.D. RECORD ON INPUT DATA FILE C 100 CALL READ (*960,*120,XYPLT,IDSB,NRWD+1,1,NACT) 110 NERR = NERR + 1 IF (NERR .GE. 5) GO TO 940 GO TO 100 120 IF (NACT .NE. NRWD) GO TO 110 C C SKIP DATA IF IT WAS FOR THE PAPERPLOTER ONLY C IF (D4(2) .LE. 0) GO TO 99 IF (NWFR .NE. 0) GO TO 270 C C READ DATA PAIRS FROM INPUT DATA FILE FOR CURVE TO BE PLOTTED C 130 CALL READ (*960,*250,XYPLT,Z,MB3,0,NACT) C C SET IFIN TO SHOW MORE DATA REMAINING TO BE READ FROM RECORD. C SET L AS INDEX TO LAST LEGITIMATE X VALUE OF DATA PAIRS IN CORE. C IFIN = 0 L = MB3 - 1 140 IF (IX(L) .NE. 1) GO TO 150 L = L - 2 IF (L .LE. 0) GO TO 240 C C CONVERT DATA POINTS TO PLOTTER COUNTS AND PLOT SYMBOL AT EACH C LEGITIMATE POINT WHEN REQUIRED. C 150 IF (ICRV .NE. 0) CALL SYMBOL (0,0,0,-1) C ISYM(1) = IABS(ICRV) + NCRV - 1 ISYM(2) = 0 C DO 190 I = 1,L,2 IF (IX(I) .EQ. 1) GO TO 190 IF (X(I) .GT. XMAXS) GO TO 180 IF (X(I) .LT. XMINS) GO TO 180 IF (LOGXS .LE. 0) GO TO 160 X(I) = ALOG10(X(I)) 160 X(I) = XDR*X(I)+XC IF (Y(I) .GT. YMAXS) GO TO 180 IF (Y(I) .LT. YMINS) GO TO 180 IF (LOGYS .LE. 0) GO TO 170 Y(I) = ALOG10(Y(I)) 170 Y(I) = YDR*Y(I) + YC IF (ICRV .NE. 0) CALL SYMBOL (X(I),Y(I),ISYM,0) GO TO 190 180 IX(I ) = 1 IX(I+1) = 1 190 CONTINUE IF (ICRV .NE. 0) CALL SYMBOL (0,0,0,1) C C PLOT LINES BETWEEN LEGITIMATE POINTS WHEN REQUIRED C IF (ICRV.LT.0 .AND. IPENN.GT.0) ICRV = -ICRV IF (ICRV .LT. 0) GO TO 240 CALL LINE (0,0,0,0,0,-1) OLDX = X(1) OLDY = Y(1) IF (IPCHG .EQ. 1) GO TO 193 ICPEN = IPSZ IF (IPENS .EQ. 0) GO TO 192 ICPEN = IPENS IPCHG = 1 GO TO 192 193 IF (ICPEN .EQ. IPENN) ICPEN = IPENS - 1 ICPEN = ICPEN + 1 192 CONTINUE DO 230 I = 1,L,2 IF (IX(I) .EQ. 1) GO TO 220 T1 = OLDX - X(I) T2 = OLDY - Y(I) IF (T1) 210,200,210 200 IF (T2) 210,230,210 210 CALL LINE (OLDX,OLDY,X(I),Y(I),ICPEN,0) OLDX = X(I) OLDY = Y(I) GO TO 230 220 OLDX = X(I+2) OLDY = Y(I+2) 230 CONTINUE CALL LINE (0,0,0,0,0,1) 240 IF (IFIN) 100,130,100 C C ALL DATA PAIRS IN CORE, SET IFIN TO SHOW NO MORE DATA REMAINS C FOR PRESENT CURVE. IF ODD NUMBER OF DATA VALUES OUTPUT WARNING C MESSAGE AND CONTINUE. SET L AS INDEX TO LAST X VALUE OF DATA C PAIRS. C 250 IFIN = 1 IF (NACT .EQ. (NACT/2)*2) GO TO 260 NACT = NACT - 1 WRITE (OUTAPE,990) UWM,NFRM,NCRV NLINES = NLINES + 2 IF (NLINES .GE. NLPP) CALL PAGE 260 L = NACT - 1 IF (L) 100,100,140 C C NEW AXIS, LABELS, ETC. ARE NEEDED. C C NASTRAN PLOTTING SOFTWARE INITIALIZATION. C 270 IF (ITBF.GE.0 .AND. IOPN.NE.0) CALL STPLOT (-1) IPLTNR = RSHIFT(NPLT,IHALF) MODEL = NPLT - LSHIFT(IPLTNR,IHALF) - 100 IF (NCMR .GT. 0) ICMRA=NCMR IFSKP = ISKP CSCALE = CHRSCL IF (CSCALE .LT. 1.) CSCALE = 1.0 IF (XPAP .GT. 0.) PAPSZX = XPAP IF (YPAP .GT. 0.) PAPSZY = YPAP DO 280 I = 1,NPENS 280 JPSZ(I) = IPSZ IF (ITBF .GE. 0) GO TO 284 C C LOWER HALF MAY NOT CHANGE FRAME OR PLOTTER OR CALL PLTSET C C IF (NCMR .NE. LCMR ) GO TO 925 IF (XPAP .NE. XLPAP ) GO TO 925 IF (YPAP .NE. YLPAP ) GO TO 925 IF (NPLT .NE. LPLTMD) GO TO 925 GO TO 286 C 284 CALL PLTSET LCMR = NCMR XLPAP = XPAP YLPAP = YPAP LPLTMD= NPLT MB2 = MB1 - IPLTBF MB3 = 2*((MB2-1)/2) C C SET VALUES FOR FULL FRAME PLOTTING C 286 YWMIN= 0. YLOW = 4.*CCV YXTR = (YWMAX+YLOW)/2. C C START A NEW PLOT IF NECESSARY. C IF (ITBF .LT. 0) GO TO 290 CALL SOPEN (*930,LTAPE,Z(MB2),IPLTBF) IOPN = 1 CALL STPLOT (NFRM) 290 CALL PRINT (0,0,0,0,0,-1) IF (ITBF) 300,320,310 C C MODIFY VALUE FOR LOWER HALF FRAME PLOTTING C 300 YUP = YXTR GO TO 330 C C MODIFY VALUE FOR UPPER HALF FRAME PLOTTING C 310 YLOW = YXTR C C SAVE YLOW AND EXPAND REGION SIZE FOR PRINTING OF TITLES. RESTORE C YLOW AFTER PRINTING THE FOUR CURVE TITLES AT BOTTOM OF FRAME. C 320 XPRM = XWMIN YPRM = YWMIN Y1T = YLOW YLOW = YWMIN CALL PRINT (XPRM,YPRM,1,CLBL(1),32,0) YPRM = YPRM + CCV CALL PRINT (XPRM,YPRM,1,SBTL(1),32,0) YPRM = YPRM + CCV CALL PRINT (XPRM,YPRM,1,TITL(1),32,0) YPRM = YPRM + CCV CALL PRINT (XPRM,YPRM,1,CVTL(1),32,0) YLOW = Y1T C C OUTPUT X AND Y AXES TITLES C 330 YPRM = YLOW XPRM = XWMIN + 8.*CCH CALL PRINT (XPRM,YPRM,1,XATL(1),32,0) YPRM = YUP - 2*CCV XPRM = XWMIN CALL PRINT (XPRM,YPRM,2,YATL(1),32,0) CALL TIPE (0,0,0,0,0,1) C C MEANING OF SYMBOLS USED C XDR,XC,YDR,YC - FACTORS TO CONVERT ENGINEERING UNITS TO PLOTTER C COUNTS IN X AND Y DIRECTIONS. C CONVERSION IS - PLOTTER COUNTS = ENG. UNITS * XDR + XC C C JTC,J1T,J2T,J3T,J4T,J5T - TEMPORARY INTEGER VALUES C T1,T2,T3,T4,X1T,Y1T - TEMPORARY REAL VALUES C C TEST XMAX,XMIN,YMAX, AND YMIN FOR COMPATIBILITY C N = 0 340 DX = XLTC - XTIC DY = YLTC - YTIC IF (DX.GT.0.0 .AND. DY.GT.0.0) GO TO 440 IF (N .NE. 0) GO TO 350 IF (DX.LE.0.0) XLTC = XTIC + XDTC*FLOAT(NXTT+1) IF (DY.LE.0.0) YLTC = YTIC + YDTC*FLOAT(NYTT+1) N = 1 GO TO 430 350 N = 2 IF (DX .GT. 0.0) GO TO 360 XLTC = XTIC + 10.0 XDTC = 2.0 NXTT = 0 360 IF (DY .GT. 0.0) GO TO 430 YLTC = YTIC + 10.0 YDTC = 2.0 NYTT = 4 C C PRINT WARNING (N=NO. OF PASSES TO CORRECT) C 430 WRITE (OUTAPE,1010) UWM,N,NFRM NLINES = NLINES + 2 IF (NLINES .GE. NLPP) CALL PAGE IF (N .EQ. 1) GO TO 340 C C SAVE XMAX, XMIN, YMAX, YMIN, LOGX AND LOGY FOR USE IF NEXT C I.D. RECORD IS NOT A NEW FRAME C 440 LOGXS = LOGX LOGYS = LOGY XMINS = XTIC XMAXS = XLTC YMINS = YTIC YMAXS = YLTC C C CALCULATE CONVERSION FACTORS C XPL = XWMAX - 7.*CCH XPS = XWMIN + 8.*CCH YPL = YUP - 2.*CCV YPS = YLOW + 2.*CCV C C PUT FRAME AT X AND Y MAXIMUM AND MINIMUM LIMITS C IF (IXGD.EQ.0 .AND. IYGD.EQ.0) GO TO 450 CALL AXIS (0,0,0,0,0,-1) CALL AXIS (XPS,YPS,XPS,YPL,IPSZ,0) CALL AXIS (XPS,YPL,XPL,YPL,IPSZ,0) CALL AXIS (XPL,YPL,XPL,YPS,IPSZ,0) CALL AXIS (XPL,YPS,XPS,YPS,IPSZ,0) CALL AXIS (0,0,0,0,0,+1) 450 IF (LOGX .LE. 0) GO TO 460 XTIC = ALOG10(XTIC) XLTC = ALOG10(XLTC) DX = XLTC - XTIC IF (IYAX .EQ. 1) YINT = ALOG10(YINT) 460 IF (LOGY .LE. 0) GO TO 470 YTIC = ALOG10(YTIC) YLTC = ALOG10(YLTC) DY = YLTC - YTIC IF (IXAX .EQ. 1) XINT = ALOG10(XINT) 470 XDR = (XPL-XPS)/DX XC = (XPS*XLTC-XPL*XTIC)/DX YDR = (YPL-YPS)/DY YC = (YPS*YLTC-YPL*YTIC)/DY C C PREPARE TO CREATE + LABEL ANY REQUESTED TIC MARKS IN THE C X-DIRECTION. C IF (ITTC.EQ.0 .AND. IXAX.NE.1 .AND. IBTC.EQ.0 .AND. IYGD.EQ.0) 1 GO TO 575 NDG = 0 IF (LOGX .GT. 0) GO TO 480 DTC = XDTC IF (DTC.GT.0. .AND. NXTT.GT.0) GO TO 477 NTT = 0 GO TO 485 477 NTT = NXTT XTS = XTIC*XDR + XC IF (ITTC.LE.0 .AND. IBTC.LE.0) GO TO 485 NDG = MIN0(NXDG+1,6) EXPO = NDG + IXPR - 2 NUMS = XTIC/10.**EXPO DL = DTC/10.**EXPO LSTEP= MAX0(IXVS+1,1) GO TO 485 480 NTT = LOGX + 1 XTS = XTIC*XDR + XC DTC = 1. NDG = 4 IF (LOGX .GT. 10) GO TO 485 ILL = LTTP(LOGX) NITK = LTTN(LOGX) C 485 DO 555 K = 1,3 LABEL = 1 CWKBR 9/93 LOG = XTIC - 1.0 + SIGN(0.1,XTIC) LOG = XTIC - 1.0 + SIGN(0.1,XTIC) - 1 GO TO (490,495,500), K C C TICS + LABELS AT THE TOP. C 490 ITC= ITTC YT = YPL YL = YT + CCV GO TO 505 C C TICS ALONG THE X-AXIS. C 495 ITC = 0 IF (IXAX .EQ. 1) ITC = -1 IF (ITC .EQ. 0) GO TO 505 YT = XINT*YDR + YC CALL AXIS (0,0,0,0,0,-1) CALL AXIS (XPL,YT,XPS,YT,IPSZ,0) GO TO 505 C C TICS + LABELS AT THE BOTTOM. C 500 ITC= IBTC YT = YPS YL = YT - CCV C 505 IF (ITC.EQ.0 .OR. NTT.LE.0) GO TO 555 CALL TIPE (0,0,0,0,0,-1) DO 545 J = 1,NTT R = XTS + DTC*XDR*FLOAT(J-1) CALL TIPE (R,YT,1,IPLUS,1,0) IF (LOGX .GT. 0) GO TO 530 IF (ITC.LT.0 .OR. LABEL.NE.J) GO TO 545 C C LABEL THIS LINEAR TIC MARK. C IFIELD = NDG RNUM = NUMS + DL*FLOAT(J-1) IF (RNUM) 510,525,515 510 IFIELD = IFIELD + 1 515 T = ABS(RNUM) IF (T .GE. 1.E-4) GO TO 525 IF (T .GE. 5.E-5) GO TO 520 RNUM = 0. GO TO 525 520 RNUM = SIGN(1.E-4,RNUM) 525 CALL TYPFLT (R,YL,1,RNUM,IFIELD,0) LABEL = LABEL + LSTEP IF (LABEL .LE. NTT) GO TO 545 R = R + FLOAT(IFIELD)*CCH CALL TIPE (R,YL,1,IE,1,0) CALL TYPINT(R+CCH,YL,1,EXPO,0,0) GO TO 545 C C LABEL THIS LOGARITHMIC CYCLE TIC MARK. C 530 LOG = LOG + 1 IF (ITC .LT. 0) GO TO 535 I = LEP IF (LOG .LT. 0) I = LEM CALL PRINT (R-CCH,YL,1,I,1,0) CALL TYPINT (R+2.*CCH,YL,1,IABS(LOG),0,0) 535 IF (LOGX.GT.10 .OR. J.EQ.NTT) GO TO 545 C C CREATE + LABEL THE LOGARITHMIC INTRACYCLE TIC MARKS WITHIN THIS C CYCLE. C DO 540 I = 1,NITK L = ILL + I - 1 T = XDR*(ALOG10(TLTV(L))+FLOAT(LOG)) + XC CALL TIPE (T,YT,1,IPLUS,1,0) IF (ITC .LT. 0) GO TO 540 L = TLTV(L) + .01 CALL TYPINT (T,YL,1,L,1,0) 540 CONTINUE C 545 CONTINUE CALL TIPE (0,0,0,0,0,+1) 555 CONTINUE IF (IYGD.EQ.0 .OR. NTT.LE.0) GO TO 575 C C DRAW THE Y-DIRECTION GRID NETWORK. C CALL AXIS (0,0,0,0,0,-1) CWKBR 9/93 LOG = XTIC - 1.0 + SIGN(0.1,XTIC) LOG = XTIC - 1.0 + SIGN(0.1,XTIC) - 1 K = 1 DO 570 J = 1,NTT K = -K R = XTS + DTC*XDR*FLOAT(NTT-J) IF (K .GT. 0) CALL AXIS (R,YPL,R,YPS,IPSZ,0) IF (K .LT. 0) CALL AXIS (R,YPS,R,YPL,IPSZ,0) IF (LOGX.LE.0 .OR. LOGX.GT.10 .OR. J.EQ.NTT) GO TO 570 C C DRAW THE Y-DIRECTION GRID LINES WITHIN THIS LOGARITHMIC CYCLE. C LOG = LOG + 1 DO 565 I = 1,NITK L = ILL + NITK - I T = XDR*(ALOG10(TLTV(L))+FLOAT(LOG)) + XC K = -K IF (K .GT. 0) CALL AXIS (T,YPL,T,YPS,IPSZ,0) IF (K .LT. 0) CALL AXIS (T,YPS,T,YPL,IPSZ,0) 565 CONTINUE C 570 CONTINUE CALL AXIS (0,0,0,0,0,+1) C C PREPARE TO CREATE + LABEL ANY REQUESTED TIC MARKS IN THE C Y-DIRECTION. C 575 IF (ILTC.EQ.0 .AND. IYAX.NE.1 .AND. IRTC.EQ.0 .AND. IXGD.EQ.0) 1 GO TO 130 NDG = 0 IF (LOGY .GT. 0) GO TO 580 DTC = YDTC IF (DTC.GT.0. .AND. NYTT.GT.0) GO TO 577 NTT = 0 GO TO 585 577 NTT = NYTT YTS = YTIC*YDR + YC IF (ILTC.LE.0 .AND. IRTC.LE.0) GO TO 585 NDG = MIN0(NYDG+1,6) EXPO = NDG + IYPR - 2 NUMS = YTIC/10.**EXPO DL = DTC/10.**EXPO LSTEP= MAX0(IYVS+1,1) GO TO 585 580 NTT = LOGY + 1 YTS = YTIC*YDR + YC DTC = 1. NDG = 4 IF (LOGY .GT. 10) GO TO 585 ILL = LTTP(LOGY) NITK= LTTN(LOGY) C 585 DO 655 K = 1,3 LABEL = 1 LOG = YTIC - 1.0 + SIGN(0.1,YTIC) GO TO (590,595,600), K C C TICS + LABELS ON THE LEFT SIDE. C 590 ITC= ILTC XT = XPS XL = XT - CCH*FLOAT(NDG+1) GO TO 605 C C TICS ALONG THE Y-AXIS. C 595 ITC = 0 IF (IYAX .EQ. 1) ITC = -1 IF (ITC .EQ. 0) GO TO 605 XT = YINT*XDR + XC CALL AXIS (0,0,0,0,0,-1) CALL AXIS (XT,YPL,XT,YPS,IPSZ,0) GO TO 605 C C TICS + LABELS ON THE RIGHT SIDE. C 600 ITC= IRTC XT = XPL XL = XT + CCH C 605 IF (ITC.EQ.0 .OR. NTT.LE.0) GO TO 655 CALL TIPE (0,0,0,0,0,-1) DO 645 J = 1,NTT S = YTS + DTC*YDR*FLOAT(J-1) CALL TIPE (XT,S,1,IPLUS,1,0) IF (LOGY .GT. 0) GO TO 630 IF (ITC.LT.0 .OR. LABEL.NE.J) GO TO 645 C C LABEL THIS LINEAR TIC MARK. C IFIELD = NDG RNUM = NUMS + DL*FLOAT(J-1) IF (RNUM) 610,625,615 610 IFIELD = IFIELD + 1 615 T = ABS(RNUM) IF (T .GE. 1.E-4) GO TO 625 IF (T .GE. 1.E-5) GO TO 620 RNUM = 0. GO TO 625 620 RNUM = SIGN(1.E-4,RNUM) 625 CALL TYPFLT (XL,S,1,RNUM,-IFIELD,0) LABEL = LABEL + LSTEP YLABEL = S GO TO 645 C C LABEL THIS LOGARITHMIC CYCLE TIC MARK. C 630 LOG = LOG + 1 IF (ITC .LT. 0) GO TO 635 I = LEP IF (LOG .LT. 0) I = LEM CALL PRINT (XL,S,1,I,1,0) CALL TYPINT (XL+3.*CCH,S,1,IABS(LOG),0,0) 635 IF (LOGY.GT.10 .OR. J.EQ.NTT) GO TO 645 C C CREATE + LABEL THE LOGARITHMIC INTRACYCLE TIC MARKS WITHIN THIS C CYCLE. C DO 640 I = 1,NITK L = ILL + I - 1 T = YDR*(ALOG10(TLTV(L))+FLOAT(LOG)) + YC CALL TIPE (XT,T,1,IPLUS,1,0) IF (ITC .LT. 0) GO TO 640 L = TLTV(L) + .01 CALL TYPINT (XL,T,1,L,1,0) 640 CONTINUE C 645 CONTINUE IF (ITC.LT.0 .OR. LOGY.GT.0) GO TO 650 CALL TIPE (XL,YLABEL-CCV,1,IE,1,0) CALL TYPINT (XL+CCH,YLABEL-CCV,1,EXPO,0,0) 650 CALL TIPE (0,0,0,0,0,+1) 655 CONTINUE IF (IXGD.EQ.0 .OR. NTT.LE.0) GO TO 130 C C DRAW THE X-DIRECTION GRID NETWORK. C CALL AXIS (0,0,0,0,0,-1) LOG = YTIC - 1.0 + SIGN(0.1,YTIC) K = 1 DO 670 J = 1,NTT K = -K S = YTS + DTC*YDR*FLOAT(NTT-J) IF (K .GT. 0) CALL AXIS (XPS,S,XPL,S,IPSZ,0) IF (K .LT. 0) CALL AXIS (XPL,S,XPS,S,IPSZ,0) IF (LOGY.LE.0 .OR. LOGY.GT.10 .OR. J.EQ.NTT) GO TO 670 C C DRAW THE X-DIRECTION GRID LINES WITHIN THIS LOGARITHMIC CYCLE... C LOG = LOG + 1 DO 665 I = 1,NITK L = ILL + NITK - I T = YDR*(ALOG10(TLTV(L))+FLOAT(LOG)) + YC K = -K IF (K .GT. 0) CALL AXIS (XPS,T,XPL,T,IPSZ,0) IF (K .LT. 0) CALL AXIS (XPL,T,XPS,T,IPSZ,0) 665 CONTINUE C 670 CONTINUE CALL AXIS (0,0,0,0,0,+1) GO TO 130 C C OUTPUT WARNING NESSAGES, CLOSE INPUT FILE AND PLOT TAPE AND RETURN C 920 RETURN 925 WRITE (OUTAPE,1020) SWM GO TO 950 930 WRITE (OUTAPE,1000) UWM,LTAPE GO TO 950 940 WRITE (OUTAPE,980) UWM 950 NLINES = NLINES + 2 IF (NLINES .GE. NLPP) CALL PAGE 960 CALL CLOSE (XYPLT,ICLSRW) IF (IOPN .NE. 0) CALL STPLOT (-1) RETURN C 980 FORMAT (A25,' 992, XYPLOT INPUT DATA FILE ID. RECORDS TOO SHORT.', 1 ' XYPLOT ABANDONED.') 990 FORMAT (A25,' 993, XYPLOT FOUND ODD NR. OF VALUES FOR DATA PAIRS', 1 ' IN FRAME',I5,', CURVE NR.',I5,'. LAST VALUE IGNORED.') 1000 FORMAT (A25,' 994, XYPLOT OUTPUT FILE NAME ',A4,' NOT FOUND.', 1 ' XYPLOT ABANDONED.') 1010 FORMAT (A25,' 997, NR.',I4,'. FRAME NR.',I5,' INPUT DATA ', 1 'INCOMPATIBLE. ASSUMPTIONS MAY PRODUCE INVALID PLOT.') 1020 FORMAT (A27,' 998, XYPLOT PLOTTER OR FRAME MAY NOT CHANGE FOR ', 1 'LOWER FRAME. XYPLOT ABANDONED.') END ================================================ FILE: mis/xyprpl.f ================================================ SUBROUTINE XYPRPL C LOGICAL EXCEED,ANY INTEGER SYSBUF,Z,TITLEC,TITLER,TITLEL,XTITLE,BUFF,IBUF(2), 1 BLANK,EYE,CURVCH,CLORWD,EOR,SYMBOL(10), 2 IGRAPH(3,8),XYPLTT REAL GRAPH(3,8),BUF(2),FID(300) COMMON /SYSTEM/ SYSBUF, L COMMON /OUTPUT/ IHEAD(96) COMMON /XYPPPP/ IFRAME,TITLEC(32),TITLEL(14),TITLER(14), 1 XTITLE(32),ID(300),MAXPLT,XMIN,XINC,EXCEED,I123, 2 MAXROW COMMON /ZZZZZZ/ Z(1) EQUIVALENCE (FID(1),ID(1)),(GRAPH(1,1),IGRAPH(1,1)), 1 (BUF(1),IBUF(1)) DATA SYMBOL/ 1H*,1H0,1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH / C C GRAPH ARRAY CONTENTS C C COL 1 = LEFT COLUMN USED C COL 2 = CENTER COLUMN USED C COL 3 = RIGHT COLUMN USED C COL 4 = WIDTH OF GRAPH C COL 5 = YRATIO C COL 6 = YMIN C COL 7 = CENTER C COL 8 = YMAX C DATA IGRAPH(1,1),IGRAPH(1,2),IGRAPH(1,3),IGRAPH(1,4)/1,60,119,118/ DATA IGRAPH(2,1),IGRAPH(2,2),IGRAPH(2,3),IGRAPH(2,4)/1,30, 59, 58/ DATA IGRAPH(3,1),IGRAPH(3,2),IGRAPH(3,3),IGRAPH(3,4)/61,90,119,58/ DATA BLANK /4H /, EYE/ 4HI / DATA XYPLTT, MINXD, NOEOR, EOR, INPRWD, CLORWD /201,10,0,1,0,1/ C C ICORE = KORSZ(Z) BUFF = ICORE - SYSBUF C ICORE = BUFF - 1 MAXROW = ICORE/30 ANY =.FALSE. EXCEED =.FALSE. CALL OPEN (*180,XYPLTT,Z(BUFF),INPRWD) 10 CALL FWDREC (*170,XYPLTT) C C READ ID RECORD C 20 CALL READ (*170,*170,XYPLTT,ID(1),300,EOR,NWORDS) C C SKIP RECORD IF PLOT ONLY C IF (ID(289).EQ.0 .OR. ID(289).EQ.1) GO TO 10 C C SKIP INITIALIZATION IF AXIS AND SCALES ARE COMPLETE C ICURVE = MOD(ID(3),10) IF (ICURVE .EQ. 0) ICURVE = 10 CURVCH = SYMBOL(ICURVE) IF (ID(8) .EQ. 0) GO TO 160 C C 1 = UPPER, 0 = WHOLE, -1 = LOWER C IF (ID(7)) 50,30,30 C C OUTPUT OUR GRAPH IF THERE IS ONE TO OUTPUT C 30 IF (ANY) CALL XYGRAF (IGRAPH) ANY = .TRUE. C C INITIALIZE MATRIX TO ALL BLANKS C C C COMPUTE XRATIO = LINES/UNIT VALUE FID(MINXD) = MIN-X INCREMENT C C C MAX OF 400 LINES PER PLOT C XMIN = FID(15) XMAX = FID(17) TEMP = AMIN1(400.,FLOAT(MAXROW)) TEMP = AMIN1(TEMP,3.0*FLOAT(ID(246))) XINC = FID(MINXD) XINC = AMAX1(XINC,(XMAX-XMIN)/TEMP) XRATIO = 1.0/XINC MAXPLT = ABS((XMAX-XMIN)/XINC + 1.5) MAXPLT = MIN0(MAXPLT,MAXROW) N = 30*MAXPLT DO 40 I = 1,N 40 Z(I) = BLANK 50 CONTINUE C C FILL CURVE TITLE AND HEADING C DEMO D10023A INDICATES HEADING WORDS (1-32, AND 36) ARE NUMERIC C 0 OR 1. REPLACE THEM BY BLANKS. C (DON'T KNOW WHO PUTS THOSE 0 & 1 HERE) C DO 60 I = 1,32 XTITLE(I) = ID(I+178) 60 TITLEC(I) = ID(I+145) DO 70 I = 1,96 IHEAD(I) = ID(I+50) IF (IHEAD(I) .EQ. 0) IHEAD(I) = BLANK 70 CONTINUE IF (IHEAD(36) .EQ. 1) IHEAD(36) = BLANK IFRAME = ID(281) IF (ID(7)) 100,80,120 80 I123 = 1 DO 90 I = 1,14 90 TITLEL(I) = ID(I+210) GO TO 140 100 I123 = 2 DO 110 I = 1,14 110 TITLEL(I) = ID(I+210) GO TO 140 120 I123 = 3 DO 130 I = 1,14 130 TITLER(I) = ID(I+210) C C PLOT GRID (WHOLE LOWER OR UPPER) C 140 DO 150 J = 1,3 DO 150 I = 1,MAXPLT CALL XYCHAR (I,IGRAPH(I123,J),EYE) 150 CONTINUE C C UNITS AND VALUES C YMIN = FID(23) YMAX = FID(25) DELTA = YMAX - YMIN IF (DELTA .EQ. 0.0) DELTA = YMIN IF (DELTA .EQ. 0.0) DELTA = 1.0 YRATIO = FLOAT(IGRAPH(I123,4))/DELTA CENTER = YMIN + DELTA/2.0 GRAPH(I123,5) = YRATIO GRAPH(I123,6) = YMIN GRAPH(I123,7) = CENTER GRAPH(I123,8) = YMAX C C READ DATA AND PLOT POINTS C 160 CALL READ (*170,*20,XYPLTT,BUF(1),2,NOEOR,NWORDS) IF (IBUF(1) .EQ. 1) GO TO 160 IROW = (BUF(1) - XMIN)*XRATIO + 1.5 ICOL = (BUF(2) - YMIN)*YRATIO + 1.5 ICOL = ICOL + IGRAPH(I123,1) - 1 CALL XYCHAR (IROW,ICOL,CURVCH) GO TO 160 C C TERMINIATE (DUMP GRAPH IF ANY) C 170 IF (ANY) CALL XYGRAF (IGRAPH) CALL CLOSE (XYPLTT,CLORWD) 180 RETURN END ================================================ FILE: mis/xyprpt.f ================================================ SUBROUTINE XYPRPT C C***** C C DUMMY DECK FOR MODULE XYPRNPLT - SEE USER'S MANUAL SECTION 5.6. C FOR MODULE PROPERTIES, CHECK C SUBROUTINE XMPLDD OR USE DIAG 31. C C***** C C INTEGER INFILE C C NO PARAMETERS, OUTPUTS OR SCRATCH FILES C C DATA INFILE /101/ C RETURN END ================================================ FILE: mis/xytics.f ================================================ SUBROUTINE XYTICS (IOUT,OUT,NDEVIS,R1,R2,ISKIP,LOG,IFLAG) C C THIS SUBROUTINE PERFORMS ONLY TIC COMPUTATIONS FOR XYDUMP. C INTEGER IOUT(8) REAL OUT(8),LENGTH C IF (LOG .NE. 0) GO TO 70 IF (R1 .EQ. R2) R2 = R1 + 1.0 DIV = NDEVIS IF (DIV .LE. 0.0) DIV = 5.0 LENGTH = R2 - R1 IF (IFLAG .NE. 0 ) DIV = LENGTH IF (LENGTH .LE. 0.0) GO TO 50 FINC = 1.0001*LENGTH/DIV C C CONVERT FINC TO SCIENTIFIC AND ROUND OFF TO 1 DIGIT (1 TO 10) C IPOWER = 0 IF (FINC .LT. 1.0) GO TO 20 10 IF (FINC .LT. 10.0) GO TO 30 IPOWER = IPOWER + 1 FINC = FINC/10.0 GO TO 10 20 IPOWER = IPOWER - 1 FINC = FINC*10.0 IF (FINC .LT. 1.0) GO TO 20 30 IINC = 10 IF (FINC .LT. 7.5) IINC = 5 IF (FINC .LT. 3.5) IINC = 2 IF (FINC .LT. 1.5) IINC = 1 C C ACTUAL INCREMENT C FINC = FLOAT(IINC)*10.0**IPOWER C C COMPUTE FIRST DIVISION POINT C NFIRST = R1*10.0**(-IPOWER) + SIGN(0.555,R1) C C GUARANTEE THAT TICKS WILL STEP THROUGH ZERO C NTEMP = NFIRST/IINC NFIRST = NTEMP*IINC FIRST = FLOAT(NFIRST)*10.0**(IPOWER) C C GET LOWEST VALUE OF FRAME C IF (FIRST .LE. R1) GO TO 35 C C CHECK ABAINST EPSILON DIFFERENCE. SENSITIVE TO TRUNCATION C LENGTH = FINC*1.0E-4 IF (FIRST-R1 .LT. LENGTH) FIRST = FIRST - LENGTH IF (FIRST-R1 .GE. LENGTH) FIRST = FIRST - FINC NFIRST = FIRST*10.0**(-IPOWER) + SIGN(0.5,R1) 35 ITICS = (R2-FIRST)/FINC + 1.5 TEMP = FLOAT(ITICS-1)*FINC + FIRST ENDV = TEMP IF (ENDV .GE. R2) GO TO 37 LENGTH = FINC*2.0E-4 IF (ENDV+LENGTH .GE. R2) ENDV = ENDV + LENGTH IF (ENDV+LENGTH .LT. R2) ENDV = ENDV + FINC ITICS = (ENDV-FIRST)/FINC + 0.5 TEMP = FLOAT(ITICS-1)*FINC + FIRST 37 CONTINUE IF (ENDV-TEMP .LT. FINC/4.0) ITICS = ITICS - 1 C C FIND MAXIMUM NUMBER OF DIGITS C LAST = NFIRST + IINC*ITICS LAST = MAX0(IABS(LAST),IABS(NFIRST)) MAXDIG = 1 40 IF (LAST .LT. 10) GO TO 60 MAXDIG = MAXDIG + 1 LAST = LAST/10 GO TO 40 C C LENGTH = 0 C 50 ITICS = 0 60 OUT(1) = FIRST OUT(2) = FINC OUT(3) = ENDV IOUT(4) = MAXDIG IOUT(5) = IPOWER IOUT(6) = ITICS IOUT(7) = ISKIP RETURN C C LOG SCALE - INITIAL LABELING CALCULATED C 70 FIRST = R1 ITICS = LOG ENDV = R2 FINC = 10.0 MAXDIG = 1 IPOWER = 0 GO TO 60 C END ================================================ FILE: mis/xytran.f ================================================ SUBROUTINE XYTRAN C IMPLICIT INTEGER (A-Z) LOGICAL VGP,RANDOM,OUTOPN,PRINT,PLOT,PAPLOT,OOMPP,OOMCP, 1 PUNCH INTEGER WORD(58),NAMEV(11),FILES(11),SUBCAS(200), 1 NAME(2),MAJID(11),ROUTIN(2),HEADSV(96), 2 XYCARD(20),OPENF(5),INDB(5) REAL TEMP,TEMP1,RBUF(100),RZ(1),VALUE(60) CHARACTER UFM*23,UWM*25 COMMON /XMSSG / UFM,UWM COMMON /BLANK / BLKCOM,IDUM1,IPSET,IPSET2,NFRAME,NCARD COMMON /SYSTEM/ SYSBUF,L,NOGO,NIN,KSYSTM(81),INTR COMMON /OUTPUT/ IHEAD(96) COMMON /ZZZZZZ/ Z(1) COMMON /XYWORK/ FILE,TCURVE(32),NTOPS,PRINT,IFILE,XAXIS(32), 1 NBOTS,PLOT,VECTOR,YAXIS(32),VECID(5),PUNCH, 2 MAJOR,YTAXIS(32),SUBC(5),CENTER,RANDOM,YBAXIS(32), 3 IDIN(153),BUF(100),IVALUE(60),IAT,IDOUT(300), 4 OUTOPN,STEPS,NAT,PAPLOT,KNT EQUIVALENCE (Z(1),RZ(1)),(BUF(1),RBUF(1)),(IVALUE(1),VALUE(1)) C DATA STOP / 4HSTOP /, GO / 4HGO /, VDUM / 4HVDUM /, 1 XY / 4HXY /, FRAM / 4HFRAM /, CLEA / 4HCLEA /, 2 TCUR / 4HTCUR /, XAXI / 4HXTIT /, YAXI / 4HYTIT /, 3 YTAX / 4HYTTI /, YBAX / 4HYBTI /, BLANK / 4H /, 4 PSET / 4HPSET / C DATA EOR / 1 /, NOEOR /0 /, OUTRWD/1/, INPRWD/0/, REWD/1/ DATA XYCDB / 101/, OUTFIL/201/, INDB / 102,103,104,105,106 / DATA NWORDS/ 58 /, ROUTIN/4HXYTR, 4HAN /, RAND / 4HRAND / DATA VG / 4HVG /, I3 / 3 / C DATA WORD / 1 4HXMIN, 4HXMAX, 4HYMIN, 4HYMAX, 4HYTMI, 4HYTMA, 4HYBMI, 8 4HYBMA, 4HXINT, 4HYINT, 4HYTIN, 4HYBIN, 4HXAXI, 4HYAXI, 5 4HXTAX, 4HXBAX, 4HXDIV, 4HYDIV, 4HYTDI, 4HYBDI, 4HXVAL, 2 4HYVAL, 4HYTVA, 4HYBVA, 4HUPPE, 4HLOWE, 4HLEFT, 4HRIGH, 9 4HTLEF, 4HTRIG, 4HBLEF, 4HBRIG, 4HALLE, 4HTALL, 4HBALL, 6 4HXLOG, 4HYLOG, 4HYTLO, 4HYBLO, 4HCURV, 4HDENS, 4H...., 3 4H...., 4H...., 4HSKIP, 4HCAME, 4HPLOT, 4HXPAP, 4HYPAP, O 4HPENS, 4HXGRI, 4HYGRI, 4HXTGR, 4HYTGR, 4HXBGR, 4HYBGR, 7 4HCSCA, 4HCOLO/ C C DATA FOR THE 11 VECTOR TYPES POSSIBLE C C BASIC C VECTOR-NAME RESIDENT-FILE MAJOR - ID C ****************** *************** **************** DATA NAMEV( 1) / 4HDISP /, FILES( 1) / 3 /, MAJID( 1) / 1 / DATA NAMEV( 2) / 4HVELO /, FILES( 2) / 3 /, MAJID( 2) / 10 / DATA NAMEV( 3) / 4HACCE /, FILES( 3) / 3 /, MAJID( 3) / 11 / DATA NAMEV( 4) / 4HSPCF /, FILES( 4) / 2 /, MAJID( 4) / 3 / DATA NAMEV( 5) / 4HLOAD /, FILES( 5) / 1 /, MAJID( 5) / 2 / DATA NAMEV( 6) / 4HSTRE /, FILES( 6) / 4 /, MAJID( 6) / 5 / DATA NAMEV( 7) / 4HFORC /, FILES( 7) / 5 /, MAJID( 7) / 4 / DATA NAMEV( 8) / 4HSDIS /, FILES( 8) / 1 /, MAJID( 8) / 15 / DATA NAMEV( 9) / 4HSVEL /, FILES( 9) / 1 /, MAJID( 9) / 16 / DATA NAMEV(10) / 4HSACC /, FILES(10) / 1 /, MAJID(10) / 17 / DATA NAMEV(11) / 4HNONL /, FILES(11) / 2 /, MAJID(11) / 12 / DATA NAMEVG / 4H VG / C C - IDOUT DATA RECORD DISCRIPTION - C C WORD TYPE DISCRIPTION C ================================================================== C 1 I/R SUBCASE ID OR IF RANDOM THE MEAN RESPONSE C 2 I FRAME NUMBER C 3 I CURVE NUMBER C 4 I POINT-ID OR ELEMENT-ID C 5 I COMPONENT NUMBER C 6 I VECTOR NUMBER 1 THRU 11 C C 7 I 1 -- CURVE USES TOP HALF OF FRAME C 0 -- CURVE USES FULL FRAME C -1 -- CURVE USES LOWER HALF OF FRAME C C 8 I 0 -- AXIS,TICS,LABELS,VALUES, ETC. HAVE BEEN DRAWN C AND THIS CURVE IS TO BE SCALED AND PLOTTED C IDENTICALLY AS LAST EXCEPT FOR CURVE SYMBOLS. C 1 -- AXIS, TICS, LABELS, SCALEING, ETC. ARE TO BE C PERFORMED OR COMPUTED AND IF IDOUT(7)=0 OR 1 C A SKIP TO NEW FRAME IS TO BE MADE. C C 9 I NUMBER OF BLANK FRAMES BETWEEN FRAMES (FRAME-SKIP) C 10 R MINIMUM X-INCREMENT C 11 R XMIN * C 12 R XMAX * DEFINES ACTUAL LIMITS OF DATA OF THIS C 13 R YMIN * UPPER, LOWER, OR FULL FRAME CURVE. C 14 R YMAX * C 15 R ACTUAL VALUE OF FIRST TIC * C 16 R ACTUAL INCREMENT TO SUCCESSIVE TICS * C 17 I ACTUAL MAXIMUM VALUE OF FRAME * X- C 18 I MAXIMUM NUMBER OF DIGITS IN ANY PRINT-VALUE * DIRE C 19 I + OR - POWER FOR PRINT VALUES * TICS C 20 I TOTAL NUMBER OF TICS TO PRINT THIS EDGE * C 21 I VALUE PRINT SKIP 0,1,2,3--- * C 22 I SPARE * C 23 R * C 24 R * C 25 I * C 26 I * SAME AS 15 THRU 22 C 27 I * BUT FOR Y-DIRECTION TICS C 28 I * C 29 I * C 30 I * C 31 I TOP EDGE TICS ** EACH OF 31 THRU 34 MAY BE C 32 I BOTTOM EDGE TICS ** LESS THAN 0 -- TICS W/O VALUES C 33 I LEFT EDGE TICS ** EQUAL TO 0 -- NO TICS HERE C 34 I RIGHT EDGE TICS ** GREATER 0 -- TICS W VALUES C C 35 I 0 -- X-DIRECTION IS LINEAR C GREATER THAN 0 - NUMBR OF CYCLES AND X-DIREC IS LOG C 36 I 0 -- Y-DIRECTION IS LINEAR C GREATER THAN 0 - NUMBR OF CYCLES AND Y-DIREC IS LOG C 37 I 0 -- NO X-AXIS C 1 -- DRAW X-AXIS C C 38 R X-AXIS Y-INTERCEPT C C 39 I 0 -- NO Y-AXIS C 1 -- DRAW Y-AXIS C C 40 R Y-AXIS X-INTERCEPT C C 41 I LESS THAN 0 ----- PLOT SYMBOL FOR EACH CURVE POINT. C SELECT SYMBOL CORRESPONDING TO C CURVE NUMBER IN IDOUT(3) C EQUAL TO 0 ----- CONNECT POINTS BY LINES WHERE C POINTS ARE CONTINUOUS I.E.(NO C INTEGER 1 PAIRS) C GREATER THAN 0 -- DO BOTH OF ABOVE C C 42 C . C . C 50 C 51 BCD TITLE(32) C . BCD SUBTITLE(32) C . BCD LABEL(32) C . BCD CURVE TITLE(32) C . BCD X-AXIS TITLE(32) C 242 BCD Y-AXIS TITLE(32) C 243 I XGRID LINES 0=NO 1=YES C 244 I YGRID LINES 0=NO 1=YES C 245 I TYPE OF PLOT 1=RESPONSE, 2=PSDF, 3=AUTO C 246 I STEPS C . C . C 281 I PAPLOT FRAME NUMBER C 282 R CSCALE (REAL NUMBER) C 283 I PENSIZE OR DENSITY C 284 I PLOTTER (LSHIFT 16) AND MODEL NUMBER. C 285 R INCHES PAPER X-DIRECTION C 286 R INCHES PAPER Y-DIRECTION C 287 I CAMERA FOR SC4020 LESS THAN 0=35MM, 0=F80, C GREATER 0=BOTH C 288 I PRINT FLAG ** C 289 I PLOT FLAG ** 0=NO, +=YES (PLOT- 2=BOTH, -1=PAPLT) C 290 I PUNCH FLAG ** C 291 R X-MIN OF ALL DATA C 292 R X-MAX OF ALL DATA C 293 R Y-MIN WITHIN X-LIMITS OF FRAME C 294 R X-VALUE AT THIS Y-MIN C 295 R Y-MAX WITHIN X-LIMITS OF FRAME C 296 R X-VALUE AT THIS Y-MAX C 297 R Y-MIN FOR ALL DATA C 298 R X-VALUE AT THIS Y-MIN C 299 R Y-MAX FOR ALL DATA C 300 R X-VALUE AT THIS Y-MAX C ================================================================== C C SAVE OUTPUT HEADING C DO 10 I = 1,96 10 HEADSV(I) = IHEAD(I) C C ALLOCATE CORE AND OPEN DATA BLOCKS C OOMPP = .FALSE. VGP = .FALSE. OOMCP = .FALSE. RANDOM= .FALSE. IFLE = XYCDB CORE = KORSZ(Z) - 1 DO 20 I = 1,32 TCURVE(I) = BLANK XAXIS(I) = BLANK YAXIS(I) = BLANK YTAXIS(I) = BLANK YBAXIS(I) = BLANK 20 CONTINUE DO 30 I = 1,5 30 SUBC(I) = 1 NSUBS = 0 CORE = CORE - SYSBUF IF (CORE .LT. 0) GO TO 825 INTRWD = INPRWD IF (INTR .LE. 0) GO TO 35 INTRWD = OUTRWD XYCDB = 301 35 CALL OPEN (*835,XYCDB,Z(CORE+1),INTRWD) IF (INTR .LE. 0) GO TO 65 CARD = 1 WRITE (L,900) 40 DO 42 IJ = 1,20 42 XYCARD(IJ) = BLANK CALL XREAD (*43,XYCARD) IF (XYCARD(1) .EQ. STOP) GO TO 1500 IF (XYCARD(1) .EQ. GO) CARD = -1 CALL IFP1XY (CARD,XYCARD) IF (XYCARD(1) .EQ. GO) GO TO 50 CARD = 0 IF (NOGO .EQ. 0) GO TO 45 NOGO = 0 43 WRITE (L,902) 45 WRITE (L,910) XYCARD GO TO 40 50 CALL CLOSE (XYCDB,REWD) IF (INTR .GT. 10) L = 1 CALL OPEN (*835,XYCDB,Z(CORE+1),INPRWD) 65 IF (INTR .LE. 0) CALL FWDREC (*80,XYCDB) OUTOPN = .FALSE. IF (BLKCOM .EQ. RAND) RANDOM = .TRUE. IF (BLKCOM .EQ. VG) VGP = .TRUE. IF (BLKCOM .EQ. VG) NAMEV(5) = NAMEVG C CORE = CORE - SYSBUF DO 70 I = 1,5 OPENF(I) = -1 IF (CORE .LT. 0) GO TO 235 C CALL OPEN (*70,INDB(I),Z(CORE),INPRWD) OPENF(I) = 0 VECID(I) = 0 CORE = CORE - SYSBUF 70 CONTINUE C CORE = CORE + SYSBUF - 1 C C NOTE - OUTPUT DATA BLOCKS WILL BE OPENED WHEN AND IF REQUIRED C C C C READ FIRST BCD WORD FROM -XYCDB- THEN GO INITIALIZE DATA C BCD = CLEA GO TO 800 80 IER = 2 GO TO 237 90 IER = 3 GO TO 237 C C BRANCH ON BCD WORD C 100 IF (BCD .EQ. XY ) GO TO 230 IF (BCD .EQ. TCUR) GO TO 180 IF (BCD .EQ. XAXI) GO TO 190 IF (BCD .EQ. YAXI) GO TO 200 IF (BCD .EQ. YTAX) GO TO 210 IF (BCD .EQ. YBAX) GO TO 220 C C SET SINGLE VALUE FLAGS. READ IN VALUE C IF (BCD .EQ. CLEA) GO TO 150 IF (BCD .EQ. VDUM) GO TO 820 CALL READ (*80,*90,XYCDB,IVAL,1,NOEOR,FLAG) DO 110 I = 1,NWORDS IF (BCD .EQ. WORD(I)) GO TO 130 110 CONTINUE C C WORD NOT RECOGNIZED C CALL PAGE2 (2) WRITE (L,120) UWM,BCD GO TO 140 C C KEY WORD FOUND C 130 IF (BCD .NE. WORD(58)) GO TO 135 IVALUE(I) = IVAL CALL READ (*80,*90,XYCDB,IVAL,1,NOEOR,FLAG) IVALUE(I+1) = IVAL GO TO 140 135 IVALUE(I) = IVAL C C READ NEXT BCD WORD C 140 CALL READ (*80,*240,XYCDB,BCD,1,NOEOR,FLAG) GO TO 100 C C CLEAR ALL VALUES SET AND RESTORE DEFAULTS C 150 DO 160 I = 1,12 160 IVALUE(I) = 1 DO 170 I = 13,NWORDS IF (I .NE. 47) IVALUE(I) = 0 170 CONTINUE DO 171 I = 25,32 171 IVALUE(I) = 1 C C DEFAULT CAMERA TO BOTH C IVALUE(46) = 3 GO TO 140 C C SET TITLES C 180 CALL READ (*80,*90,XYCDB,TCURVE(1),32,NOEOR,FLAG) GO TO 140 190 CALL READ (*80,*90,XYCDB,XAXIS(1),32,NOEOR,FLAG) GO TO 140 200 CALL READ (*80,*90,XYCDB,YAXIS(1),32,NOEOR,FLAG) GO TO 140 210 CALL READ (*80,*90,XYCDB,YTAXIS(1),32,NOEOR,FLAG) GO TO 140 220 CALL READ (*80,*90,XYCDB,YBAXIS(1),32,NOEOR,FLAG) GO TO 140 C C XY-COMMAND OPERATIONS HIT C 230 CALL READ (*80,*90,XYCDB,BUF(1),7,NOEOR,FLAG) IF (BUF(6) .NE. 0) PAPLOT = .TRUE. IF (BUF(6) .NE. 0) OOMPP = .TRUE. IF (BUF(2) .NE. 0) OOMCP = .TRUE. IF (BUF(1) .NE. 0) PRINT = .TRUE. IF (BUF(2) .NE. 0) PLOT = .TRUE. KASKNT = 0 IF (OUTOPN) GO TO 280 IF (.NOT.PLOT .AND. .NOT.PAPLOT) GO TO 280 C C OPEN OUTPUT PLOT DATA BLOCK C CORE = CORE - SYSBUF IF (CORE .GT. 0) GO TO 260 235 IER = 8 IFLE = -CORE 237 CALL MESAGE (IER,IFLE,ROUTIN) C C CLOSE ANY OPEN FILES AND RETURN C 240 CALL CLOSE (XYCDB,REWD) DO 250 I = 1,5 CALL CLOSE (INDB(I),REWD) 250 CONTINUE IF (.NOT.OUTOPN) RETURN C C NO CAMERA PLOTS SO DONT WRITE TRAILER C IF (.NOT. OOMCP) GO TO 255 BUF(1) = OUTFIL BUF(2) = 9999999 CALL WRTTRL (BUF(1)) 255 CALL CLOSE (OUTFIL,REWD) GO TO 830 C 260 CALL OPEN (*270,OUTFIL,Z(CORE+1),OUTRWD) CALL FNAME (OUTFIL,NAME(1)) CALL WRITE (OUTFIL,NAME(1),2,EOR) OUTOPN = .TRUE. GO TO 280 C C ERROR, PLOTS REQUESTED AND OUTFIL PURGED. DO ALL ELSE. C 270 CALL PAGE2 (2) WRITE (L,290) UWM,OUTFIL PLOT = .FALSE. C 280 IF (BUF(3) .NE. 0) PUNCH = .TRUE. TYPE = BUF(4) VECTOR = BUF(5) NSUBS = BUF(7) KNT = 0 IF (NSUBS .GT. 0) CALL READ (*80,*90,XYCDB,SUBCAS(1),NSUBS,NOEOR, 1 FLAG) IF (NSUBS .GT. 0) CALL SORT (0,0,1,1,SUBCAS(1),NSUBS) IF (RANDOM .AND. TYPE.NE.2 .AND. TYPE.NE.3) GO TO 380 IF ((.NOT.RANDOM) .AND. (TYPE.EQ.2 .OR. TYPE.EQ.3) ) GO TO 380 IF ((.NOT.RANDOM) .AND. IPSET.EQ.PSET .AND. VECTOR.GT.7) GO TO 380 IF ((.NOT.RANDOM) .AND. IPSET.NE.PSET .AND. VECTOR.LE.7) GO TO 380 C C INITIALIZE DATA BLOCK POINTERS FOR THIS VECTOR C FILE = FILES(VECTOR) C C CHECK FOR RANDOM C IF (RANDOM .AND. TYPE.EQ.3) FILE = 2 IF (RANDOM .AND. TYPE.EQ.2) FILE = 1 IFILE = INDB(FILE) IF (OPENF(FILE)) 360,400,400 C C EOR HIT ON IFILE. SHOULD NOT HAVE HAPPENED C 330 IER = 3 GO TO 355 C C EOF HIT ON IFILE. SHOULD NOT HAVE HAPPENED C 350 IER = 2 355 CALL MESAGE (IER,IFILE,ROUTIN) OPENF(FILE) = -1 C C FILE IFILE IS NOT SATISFACTORY C 360 CALL FNAME (IFILE,BUF(1)) CALL PAGE2 (3) WRITE (L,370) UWM,BUF(1),BUF(2),NAMEV(VECTOR) C C SKIP OVER ANY AND ALL FRAME DATA FOR THIS CARD. C 380 CALL READ (*80,*240,XYCDB,BCD,1,NOEOR,FLAG) IF (BCD .NE. FRAM) GO TO 800 390 CALL READ (*80,*90,XYCDB,BUF(1),3,NOEOR,FLAG) IF (BUF(1) .NE.-1) GO TO 390 GO TO 380 C C CHECK TO SEE IF THIS FILES SUBCASE IS TO BE OUTPUT C 400 CONTINUE IF (OPENF(FILE)) 360,401,402 401 CONTINUE CALL FWDREC (*350,IFILE) CALL READ (*350,*330,IFILE,IDIN(1),20,EOR,FLAG) CALL READ (*350,*403,IFILE,IDIN(1),-CORE,EOR,FLAG) GO TO 235 403 CALL BCKREC (IFILE) CALL BCKREC (IFILE) SIZE = FLAG/IDIN(10) KTYPE = (IDIN(2)/1000)*1000 OPENF(FILE) = 1 402 CONTINUE KASKNT = KASKNT + 1 IF (NSUBS .EQ. 0) GO TO 415 SUBC(FILE) = SUBCAS(KASKNT) GO TO 420 415 SUBC(FILE) = 0 C C NOW READY TO PROCEED WITH DATA SELECTION C 420 CALL READ (*80,*240,XYCDB,BCD,1,NOEOR,FLAG) IF (BCD .NE. FRAM) GO TO 800 C C READ IN THE ID-COMP-COMP SETS AND SORT ON ID-S. C KNT = 0 ITRY = 0 IAT = 0 430 CALL READ (*80,*90,XYCDB,Z(IAT+1),3,NOEOR,FLAG) IF (Z(IAT+1) .EQ. -1) GO TO 440 IAT = IAT + 3 GO TO 430 C C SORT ON ID-S C 440 CALL SORT (0,0,3,1,Z(1),IAT) 450 ICORE = CORE - IAT C C COMPUTE FINAL REGIONS C NSLOTS= IAT/3 NAT = IAT IF (Z(I3).GT.0 .AND. .NOT.RANDOM) NSLOTS = NSLOTS + NSLOTS 554 STEPS = SIZE IF (.NOT.VGP) GO TO 559 ITEMP = 0 NUQ = 0 DO 555 I = 1,NAT,3 IF (Z(I) .EQ. ITEMP) GO TO 555 NUQ = NUQ + 1 ITEMP = Z(I) 555 CONTINUE STEPS = STEPS*NUQ C C SET CORE TO 1 C J = IAT + 1 N = J + MIN0(ICORE,(NSLOTS+1)*STEPS) DO 556 I = J,N 556 Z(I) = 1 559 CONTINUE IF (STEPS*(NSLOTS+1) .LE. ICORE) GO TO 580 CALL PAGE2 (4) WRITE (L,570) UWM,Z(IAT-2),Z(IAT-1),Z(IAT) ICRQ = STEPS*(NSLOTS+1) - ICORE WRITE (L,571) ICRQ NSLOTS = NSLOTS - 1 IF (Z(I3).GT.0 .AND. .NOT.RANDOM) NSLOTS = NSLOTS - 1 NAT = NAT - 3 IF (NSLOTS .GT. 0) GO TO 554 GO TO 420 580 NTOPS = NSLOTS/2 NBOTS = NTOPS IF (Z(I3).GT.0 .AND. .NOT.RANDOM) GO TO 590 NTOPS = NSLOTS NBOTS = 0 590 CONTINUE CENTER = IAT + NTOPS*STEPS C C GET CURVE DATA C MAJOR = KTYPE + MAJID(VECTOR) I2 = 0 IFCRV =-1 ISTSV = 0 IDTOT = NAT/3 C C I1 = 1-ST ROW OF NEXT ID C I2 = LAST ROW OF NEXT ID C 630 I1 = I2 + 1 NBEG = 3*I1 - 3 IF (NBEG .GE. NAT) GO TO 780 IDZ = NBEG + 1 ID = Z(IDZ) I2 = I1 640 IF (I2.GE.IDTOT .OR. RANDOM) GO TO 650 IF (Z(3*I2+1) .NE. ID) GO TO 650 I2 = I2 + 1 GO TO 640 C C FIND THIS ID ON IFILE C 650 CALL XYFIND (*350,*330,*660,MAJID(1),IDZ) KNT = -1 IF (ITRY.EQ.0 .AND. SUBC(FILE).EQ.-1) GO TO 661 C C THIS IS THE WAY OUT FOR ALL SUBCASE REQUEST C IF (ITRY.NE.0 .AND. SUBC(FILE).EQ.-1) GO TO 415 KTYPE = (IDIN(2)/1000)*1000 IF (KTYPE.EQ.2000 .OR. KTYPE.EQ.3000) GO TO 690 CALL PAGE2 (2) WRITE (L,310) UWM GO TO 360 C C ID NOT FOUND. PRINT MESSAGE AND SHRINK LIST. C C C SUBCASE REQUEST EITHER SUBCASE NOT FOUND OR POINT NOT FOUND C 660 IF (KNT .EQ. -1) IDZ = -1 IF (IDZ .NE. -1) GO TO 784 CALL PAGE2 (3) WRITE (L,530) UWM,ID,NAMEV(VECTOR),IFILE WRITE (L,635) SUBC(FILE) KNT = 0 IF (NAT/3.LE.I2 .AND. I1.EQ.1) GO TO 784 GO TO 666 C C NSUBS = 0 AND POINT NOT FOUND START FRAME OVER C 661 CALL PAGE2 (3) WRITE (L,530) UWM,ID,NAMEV(VECTOR),IFILE CALL REWIND (IFILE) SUBC(FILE) = 0 KNT = 0 IF (NAT/3 .GT. I2) GO TO 666 IF (I1 .EQ. 1) GO TO 415 666 CONTINUE I13 = 3*I1 - 3 I23 = 3*I2 + 1 IF (I23 .GE. NAT) GO TO 680 DO 670 I = I23,NAT I13 = I13 + 1 670 Z(I13) = Z(I) 680 IDTOT = IDTOT - (I2-I1) - 1 I2 = I1 - 1 NAT = I13 IF (IDZ.EQ.-1 .AND. I1.NE.1 .AND. .NOT.VGP) GO TO 630 IAT = NAT GO TO 450 C C ID FOUND. READ DATA AND DISTRIBUTE INTO SLOTS. C 690 NWDS = IDIN(10) ISTEP = 0 IFCRV = IFCRV + 1 IF (VGP) ISTEP = ISTSV 700 CALL READ (*350,*630,IFILE,BUF(1),NWDS,NOEOR,FLAG) ISTEP = ISTEP + 1 IF (ISTEP .GT. STEPS) GO TO 700 ITEMP = IAT + ISTEP ISTSV = ISTEP IF (.NOT.VGP) GO TO 709 IF (IFCRV .EQ. 0) GO TO 709 C C SORT X AND MOVE Y TO PROPER SLOTS C IF (RBUF(1) .GE. RZ(ITEMP-1)) GO TO 709 N = ISTEP - 1 DO 706 I = 1,N IF (RBUF(1) .LT. RZ(IAT+I)) GO TO 707 706 CONTINUE GO TO 709 707 ISTEP = I J = ISTEP ITEMP = IAT + ISTEP N = NSLOTS + 1 JJ = ISTSV - 1 DO 708 I = 1,N ITEM = IAT + (I-1)*STEPS + J TEMP1 = RZ(ITEM) Z(ITEM) = 1 DO 708 IJ = J,JJ ITEM = IAT + (I-1)*STEPS + IJ + 1 TEMP = RZ(ITEM) RZ(ITEM) = TEMP1 TEMP1 = TEMP 708 CONTINUE 709 RZ(ITEMP) = RBUF(1) C C DISTRIBUTE DATA C DO 770 I = I1,I2 PLACE = I*STEPS + ISTEP C C TOP CURVE C COMP = Z(3*I-1) C C SET MEAN RESPONSE IF RANDOM C IF (RANDOM) Z(3*I) = IDIN(8) C C SET NUMBER OF ZERO CROSSINGS IF RANDOM C IF (RANDOM) BUF(I+20) = IDIN(9) IF (COMP .EQ. 1000) GO TO 745 IF (COMP .EQ. 0) GO TO 770 IF (RANDOM) COMP = 2 IF (COMP .LE. NWDS) GO TO 740 Z(3*I-1) = 0 CALL PAGE2 (2) WRITE (L,730) UWM,COMP,ID GO TO 750 C 740 ITEMP = IAT + PLACE Z(ITEMP) = BUF(COMP) GO TO 750 745 ITEMP = IAT + PLACE Z(ITEMP) = 1 C C BOTTOM CURVE IF DOUBLE FRAME C 750 IF (RANDOM) GO TO 770 COMP = Z(3*I) IF (COMP .EQ. 1000) GO TO 765 IF (COMP .EQ. 0) GO TO 770 IF (COMP .LE. NWDS) GO TO 760 Z(3*I) = 0 CALL PAGE2 (2) WRITE (L,730) UWM,COMP,ID GO TO 770 C 760 ITEMP = CENTER + PLACE Z(ITEMP) = BUF(COMP) GO TO 770 765 ITEMP = CENTER + PLACE Z(ITEMP) = 1 770 CONTINUE ISTEP = ISTSV GO TO 700 C C ALL DATA IS NOW IN SLOTS. INTEGER 1-S REMAIN IN VACANT SLOTS. C 780 IF (NSUBS .NE. 0) GO TO 783 SUBC(FILE) = IDIN(4) 783 CONTINUE CALL XYDUMP (OUTFIL,TYPE) KNT = 1 IF (NSUBS .NE. 0) GO TO 784 SUBC(FILE) = 0 ITRY = ITRY + 1 GO TO 450 784 CONTINUE IF (KASKNT .LT. NSUBS) GO TO 785 KASKNT = 0 GO TO 402 785 KASKNT = KASKNT + 1 SUBC(FILE) = SUBCAS(KASKNT) DO 786 I = 1,5 786 VECID(I) = 0 GO TO 450 C C INITIALIZE PARAMETERS C 800 PLOT = .FALSE. PUNCH = .FALSE. PRINT = .FALSE. PAPLOT= .FALSE. DO 805 I = 1,5 805 VECID(I) = 0 GO TO 100 C C VALUE DUMP C 820 CONTINUE GO TO 140 C C INTERACTIVE STOP INITIATED HERE. C 1500 NOGO = 1 RETURN C C INSUFFICIENT CORE C 825 CALL MESAGE (8,-CORE,ROUTIN) C C CALL THE PRINTER-PLOTTER IF ANY REQUESTS FOR PRINTER-PLOTTER C 830 IF (OOMPP) CALL XYPRPL C C RESTORE OUTPUT HEADING AND RETURN C 835 DO 840 I = 1,96 840 IHEAD(I) = HEADSV(I) RETURN C C 120 FORMAT (A25,' 975, XYTRAN DOES NOT RECOGNIZE ',A4, 1 ' AND IS IGNORING') 290 FORMAT (A25,' 976, OUTPUT DATA BLOCK',I4,' IS PURGED.', 1 ' XYTRAN WILL PROCESS ALL REQUESTS OTHER THAN PLOT') 310 FORMAT (A25,' 977, FOLLOWING NAMED DATA-BLOCK IS NOT IN SORT-II', 1 ' FORMAT') 370 FORMAT (A25,' 978', /5X,'XYTRAN MODULE FINDS DATA-BLOCK(',2A4, 1 ') PURGED, NULL, OR INADEQUATE, AND IS IGNORING XY-OUTPUT', 2 ' REQUEST FOR -',A4,'- CURVES') 530 FORMAT (A25,' 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID', 1 I10, /5X,1H-,A4,'- CURVE IS BEING PASSED OVER. THE ID ', 2 'COULD NOT BE FOUND IN DATA BLOCK',I10) 570 FORMAT (A25,' 980, INSUFFICIENT CORE TO HANDLE ALL DATA FOR ALL ', 1 'CURVES OF THIS FRAME', /5X,' ID =',I10,2(' COMPONENT =', 2 I4,5X),' DELETED FROM OUTPUT') 571 FORMAT (5X,'ADDITIONAL CORE NEEDED =',I9,' WORDS.') 635 FORMAT (5X,'SUBCASE',I10 ) 730 FORMAT (A25,' 981, COMPONENT =',I10,' FOR ID =',I10, 1 ' IS TOO LARGE. THIS COMPONENTS CURVE NOT OUTPUT') C 900 FORMAT (' ENTER XYPLOT DEFINITION OR GO TO PLOT OR STOP TO EXIT') 902 FORMAT (' BAD CARD TRY AGAIN') 910 FORMAT (20A4) END ================================================ FILE: mis/yrcard.f ================================================ SUBROUTINE YRCARD (OUT,NFLAG,IN) C C THIS WAS NASTRAN ORIGINAL XRCARD ROUTINE, AND IS NOW RENAMED C YRCARD C THIS ROUTINE IS CALLED ONLY BY XRCARD C THIS ROUTINE CAN BE DELETED IF THE NEW XRCARD ROUTINE PASSES C ALL RELIABILITY TESTS G.CHAN/UNISYS, 2/1988 C IMPLICIT INTEGER (A-Z) EXTERNAL LSHIFT,RSHIFT,COMPLF LOGICAL ALPHA,DELIM,EXPONT,POWER,LMINUS,PASS,NOGO REAL FL1 DOUBLE PRECISION XDOUBL DIMENSION NDOUBL(2),NUM(10),TYPE(72),CHAR(72),OUT(1), 1 IN(18),NT(15),CHARS(13) CHARACTER UFM*23 COMMON /XMSSG / UFM COMMON /LHPWX / LOWPW,HIGHPW COMMON /SYSTEM/ IBUFSZ,F6,NOGO,DUM1(7),NPAGES,NLINES EQUIVALENCE (FL1 ,INT1 ), (XDOUBL,NDOUBL(1)), 1 (NUM(10) ,ZERO ), (CHARS( 1),DOLLAR), 2 (CHARS( 2),PLUS ), (CHARS( 3),EQUAL ), 3 (CHARS( 4),MINUS ), (CHARS( 5),COMMA ), 4 (CHARS( 6),SLASH ), (CHARS( 7),OPAREN), 5 (CHARS( 8),CPAREN), (CHARS( 9),E ), 6 (CHARS(10),D ), (CHARS(11),PERIOD), 7 (CHARS(12),BLANK ), (CHARS(13),ASTK ) DATA BLANKS/ 4H /, BLANK / 4H /, DOLLAR/ 4H$ /, 1 EQUAL / 1H= /, ASTK / 1H* /, COMMA / 1H, /, 2 SLASH / 1H/ /, CPAREN/ 1H) /, OPAREN/ 1H( /, 3 PLUS / 1H+ /, MINUS / 1H- /, PERIOD/ 1H. /, 4 E / 1HE /, D / 1HD /, PASS / .FALSE./, 5 NUM / 1H1, 1H2, 1H3,1H4,1H5, 1H6, 1H7,1H8,1H9,1H0/ C IF (PASS) GO TO 50 PASS = .TRUE. A77777 = COMPLF(0) A67777 = RSHIFT(LSHIFT(A77777,1),1) C C READ AND TYPE 72 CHARACTERS C 50 N = 0 DO 90 I = 1,18 DO 90 J = 1,4 N = N + 1 CHARAC = KHRFN1(BLANKS,1,IN(I),J) IF (CHARAC .EQ. BLANK) GO TO 70 DO 60 K = 1,10 IF (CHARAC .EQ. NUM(K)) GO TO 80 60 CONTINUE TYPE(N) = -1 GO TO 90 70 TYPE(N) = 0 GO TO 90 80 TYPE(N) = 1 90 CHAR(N) = CHARAC ALPHA = .FALSE. DELIM = .TRUE. IOUT = 0 N = 0 ASAVE = 1 OUT(ASAVE) = 0 100 IF (N .EQ. 72) GO TO 510 IF (NFLAG-IOUT .LT. 5) GO TO 660 LMINUS = .FALSE. N = N + 1 NCHAR = CHAR(N) IF (TYPE(N)) 110,100,210 110 IF (NCHAR.EQ.PLUS .OR. NCHAR.EQ.MINUS .OR. NCHAR.EQ.PERIOD) 1 GO TO 200 IF (NCHAR .EQ. DOLLAR) GO TO 180 C C GOOD ALPHA FIELD OR DELIMETER C IF (ALPHA) GO TO 120 IF ((NCHAR.EQ.COMMA .OR. NCHAR.EQ.DOLLAR) .AND. (.NOT.DELIM)) 1 GO TO 180 IF (NCHAR.EQ.CPAREN .AND. .NOT.DELIM) GO TO 180 IOUT = IOUT + 1 ASAVE = IOUT OUT(ASAVE) = 0 ALPHA = .TRUE. 120 IF (NCHAR.EQ.OPAREN .OR. NCHAR.EQ.SLASH .OR. NCHAR.EQ.EQUAL .OR. 1 NCHAR.EQ.COMMA .OR. NCHAR.EQ.ASTK .OR. NCHAR.EQ.DOLLAR) 2 GO TO 180 IF (NCHAR .EQ. CPAREN) GO TO 180 OUT(ASAVE) = OUT(ASAVE) + 1 IOUT = IOUT + 2 DELIM = .FALSE. OUT(IOUT-1) = BLANKS OUT(IOUT ) = BLANKS ICHAR = 0 GO TO 150 130 IF (N .EQ. 72) GO TO 510 N = N + 1 NCHAR = CHAR(N) IF (TYPE(N)) 140,100,150 140 IF (NCHAR.EQ.OPAREN .OR. NCHAR.EQ.SLASH .OR. NCHAR.EQ.EQUAL .OR. 1 NCHAR.EQ.COMMA .OR. NCHAR.EQ.ASTK .OR. NCHAR.EQ.DOLLAR) 2 GO TO 180 IF (NCHAR .EQ. CPAREN) GO TO 180 150 IF (ICHAR .EQ. 8) GO TO 130 ICHAR = ICHAR + 1 IF (ICHAR .LE. 4) GO TO 160 IPOS = ICHAR - 4 WORD = IOUT GO TO 170 160 IPOS = ICHAR WORD = IOUT - 1 C C CLEAR SPOT IN WORD FOR CHAR(N) AND PUT CHAR(N) IN IT C 170 OUT(WORD) = KHRFN1(OUT(WORD),IPOS,NCHAR,1) C C GO FOR NEXT CHARACTER C GO TO 130 C C C DELIMETER HIT C 180 IF (.NOT. DELIM) GO TO 190 IF (IOUT .EQ. 0) IOUT = 1 IOUT = IOUT + 2 OUT(ASAVE) = OUT(ASAVE) + 1 OUT(IOUT-1) = BLANKS OUT(IOUT ) = BLANKS 190 IF (NCHAR .EQ. DOLLAR) GO TO 520 DELIM = .TRUE. IF (NCHAR .EQ. CPAREN) DELIM = .FALSE. IF (NCHAR .EQ. COMMA) GO TO 100 IF (NCHAR .EQ. CPAREN) GO TO 100 C C OUTPUT DELIMETER C IOUT = IOUT + 2 OUT(ASAVE ) = OUT(ASAVE) + 1 OUT(IOUT-1) = A77777 OUT(IOUT ) = KHRFN1(BLANKS,1,NCHAR,1) GO TO 100 C C 200 IF (NCHAR .EQ. MINUS) LMINUS = .TRUE. IF (NCHAR .NE. PERIOD) N = N + 1 IF (N .GT. 72) GO TO 530 C 210 ALPHA = .FALSE. DELIM = .FALSE. IT = 0 NT(1) = 0 DO 260 I = N,72 IF (TYPE(I)) 290,270,220 C C INTEGER CHARACTER C 220 DO 230 K = 1,9 IF (CHAR(I) .EQ. NUM(K)) GO TO 250 230 CONTINUE K = 0 250 IT = IT + 1 IF (IT .LT. 16) NT(IT) = K 260 CONTINUE C C FALL HERE IMPLIES WE HAVE A SIMPLE INTEGER C 270 NUMBER = 0 DO 280 I = 1,IT IF (((A67777-NT(I))/10) .LT. NUMBER) GO TO 550 280 NUMBER = NUMBER*10 + NT(I) IF (LMINUS) NUMBER = - NUMBER IOUT = IOUT + 2 OUT(IOUT-1) = -1 OUT(IOUT ) = NUMBER N = N + IT - 1 GO TO 100 C C REAL NUMBER, DELIMETER, OR ERROR IF FALL HERE C C COUNT THE NUMBER OF DIGITS LEFT BEFORE CARD END OR DELIMETER HIT C 290 N1 = I DO 300 N2 = N1,72 IF (CHAR(N2).EQ.OPAREN .OR. CHAR(N2).EQ.SLASH .OR. 1 CHAR(N2).EQ.EQUAL .OR. CHAR(N2).EQ.COMMA .OR. 2 CHAR(N2).EQ.DOLLAR .OR. TYPE(N2).EQ.0) GO TO 310 IF (CHAR(N2) .EQ. CPAREN) GO TO 310 300 CONTINUE N2 = 73 310 IF (N1 .EQ. N2) GO TO 270 C C CHARACTER N1 NOW MUST BE A DECIMAL FOR NO ERROR C IF (CHAR(N1) .NE. PERIOD) GO TO 570 POWER = .FALSE. N1 = N1 + 1 N2 = N2 - 1 PLACES = 0 PSIGN = 0 EXPONT = .FALSE. IPOWER = 0 PRECIS = 0 IF (N2 .LT. N1) GO TO 410 DO 400 I = N1,N2 IF (TYPE(I)) 360,570,320 C C NUMERIC C 320 DO 330 K = 1,9 IF (CHAR(I) .EQ. NUM(K)) GO TO 340 330 CONTINUE K = 0 340 IF (EXPONT) GO TO 350 IT = IT + 1 IF (IT .LT. 16) NT(IT) = K PLACES = PLACES + 1 GO TO 400 C C BUILD IPOWER HERE C 350 POWER = .TRUE. IPOWER = IPOWER*10 + K IF (IPOWER .GT. 1000) GO TO 630 GO TO 400 C C START EXPONENTS HERE C 360 IF (EXPONT) GO TO 380 EXPONT = .TRUE. IF (CHAR(I).NE.PLUS .AND. CHAR(I).NE.MINUS) GO TO 370 PRECIS = E PSIGN = CHAR(I) GO TO 390 370 IF (CHAR(I).NE.E .AND. CHAR(I).NE.D) GO TO 600 PRECIS = CHAR(I) GO TO 390 C C SIGN OF POWER C 380 IF (POWER) GO TO 590 IF (PSIGN.NE.0 .OR.(CHAR(I).NE.PLUS .AND. CHAR(I).NE.MINUS)) 1 GO TO 610 PSIGN = CHAR(I) POWER = .TRUE. 390 IF (I .EQ. 72) GO TO 530 400 CONTINUE 410 N = N2 C C ALL DATA COMPLETE FOR FLOATING POINT NUMBER C 15 FIGURES WILL BE ACCEPTED ONLY C IF (IT .LE. 15) GO TO 420 IPOWER = IPOWER + IT - 15 IT = 15 420 IF (PSIGN .EQ. MINUS) IPOWER = -IPOWER IPOWER = IPOWER - PLACES NUMBER = 0 IF (IT .LT. 7) GO TO 430 N2 = 7 GO TO 440 430 N2 = IT 440 DO 450 I = 1,N2 450 NUMBER = NUMBER*10 + NT(I) XDOUBL = DBLE(FLOAT(NUMBER)) IF (IT .LE. 7) GO TO 470 NUMBER = 0 N2 = IT - 7 DO 460 I = 1,N2 IT = I + 7 460 NUMBER = NUMBER*10 + NT(IT) XDOUBL = XDOUBL*10.0D0**N2 + DBLE(FLOAT(NUMBER)) 470 IF (LMINUS) XDOUBL = -XDOUBL C C POWER HAS TO BE WITHIN RANGE OF MACHINE C ICHEK = IPOWER + IT IF (XDOUBL .EQ. 0.0D0) GO TO 490 IF (ICHEK .LT.LOWPW+1 .OR. ICHEK .GT.HIGHPW-1 .OR. 1 IPOWER.LT.LOWPW+1 .OR. IPOWER.GT.HIGHPW-1) GO TO 640 XDOUBL = XDOUBL*10.0D0**IPOWER 490 IF (PRECIS .EQ. D) GO TO 500 FL1 = XDOUBL IOUT = IOUT + 2 OUT(IOUT-1) =-2 OUT(IOUT ) = INT1 GO TO 100 500 IOUT = IOUT + 3 OUT(IOUT-2) =-4 OUT(IOUT-1) = NDOUBL(1) OUT(IOUT ) = NDOUBL(2) GO TO 100 C C C PREPARE TO RETURN C 510 IF (.NOT. DELIM) GO TO 520 OUT(IOUT+1) = 0 RETURN 520 OUT(IOUT+1) = A67777 RETURN C C ERRORS C 530 WRITE (F6,540) UFM 540 FORMAT (A23,' 300 *** INVALID DATA COLUMN 72') GO TO 680 550 WRITE (F6,560) UFM 560 FORMAT (A23,' 300 *** INTEGER DATA OUT OF MACHINE RANGE') GO TO 680 570 WRITE (F6,580) UFM,N1 580 FORMAT (A23,' 300 *** INVALID CHARACTER FOLLOWING INTEGER IN ', 1 'COLUMN',I3) GO TO 680 590 CONTINUE 600 CONTINUE 610 WRITE (F6,620) UFM,I 620 FORMAT (A23,' 300 *** DATA ERROR-UNANTICIPATED CHARACTER IN ', 1 'COLUMN',I3) GO TO 680 630 CONTINUE 640 WRITE (F6,650) UFM 650 FORMAT (A23,' 300 *** DATA ERROR - MISSING DELIMITER OR REAL ', 1 'POWER OUT OF MACHINE RANGE') GO TO 680 660 WRITE (F6,670) UFM 670 FORMAT (A23,' 300 *** ROUTINE XRCARD FINDS OUTPUT BUFFER TOO ', 1 'SMALL TO PROCESS CARD COMPLETELY') 680 NOGO = .TRUE. WRITE (F6,690) CHAR 690 FORMAT (/5X,1H',72A1,1H') OUT(1) = 0 C RETURN END ================================================ FILE: mis/zeroc.f ================================================ SUBROUTINE ZEROC(IZ,N) C C SET AND ARRAY TO ZERO C INTEGER IZ(N) C DO 10 I=1,N 10 IZ(I) = 0 RETURN END ================================================ FILE: mis/zj.f ================================================ FUNCTION ZJ ( ARG ) C C ZERO ORDER BESSEL FUNCTION OF FIRST KIND C DBSLJ = 1.0E-10 A = - ( ARG / 2.0 ) ** 2 ZJ = 1.0 PF = 1.0 AN = 1.0 DO 200 I = 1 , 20 AN = AN * A / PF ** 2 PF = PF + 1.0 IF ( ABS ( AN ) .LE. DBSLJ ) RETURN ZJ = ZJ + AN 200 CONTINUE RETURN END ================================================ FILE: rf/AERO10 ================================================ APR.95 $$$$$$$$ BEGIN AERO 10 - MODAL FLUTTER ANALYSIS - APR. 1995 $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ FILE PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/ CLAMAL=APPEND/OVG=APPEND/QHHL=APPEND/SKJ=APPEND/QHJL=APPEND/ QKHL=APPEND/ $ ****SBST 4 ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****FILE 127,138 ****RFMT 187-204,207-217 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 15, 19, 21, 23, 24, 58, 59 ****FILE 101,112,119,137,140 ****RFMT 199-201,204-217 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ ****CARD 1, 24 ****FILE 94 ****RFMT 199-201,204-217 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 148 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 148 $$$$ COND ERROR5,NOGPDT $ ****CARD 1, 24 ****FILE 94 ****RFMT 187-204,207-217 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 ****RFMT 199-201,204-217 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122,125 ****RFMT 187-204,207-217 $$$$ GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****SBST 5 ****CARD 1, 2, 13 ****FILE 96 ****RFMT 199-201,204-217 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****SBST 5 ****CARD 1- 6, 13, 16, 24 ****FILE 97 ****RFMT 199-201,204-217 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****SBST 5 ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****FILE 97 ****RFMT 199-201,204-217 $$$$ COND ERROR1,NOSIMP $ ****SBST 5 ****CARD 1, 2, 4- 6, 13, 16 ****FILE 97 ****RFMT 187-204,207-217 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 14, 24 ****FILE 147 ****RFMT 199-201,204-217 $$$$ PARAM //*ADD*/NOMGG /1/0 $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 147 ****RFMT 199-201,204-217 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****SBST 4 ****CARD 1- 3, 5, 6, 8, 13, 14, 24 ****FILE 147 ****RFMT 199-201,204-217 $$$$ PURGE KGGX/NOKGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 199-201,204-217 $$$$ COND JMPKGGX,NOKGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 199-201,204-217 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 199-201,204-217 $$$$ PURGE KDICT,KELM/MINUS1 $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 147 ****RFMT 199-201,204-217 $$$$ LABEL JMPKGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 199-201,204-217 $$$$ COND ERROR1,NOMGG $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 147 ****RFMT 187-204,207-217 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 99 ****RFMT 199-201,204-217 $$$$ PURGE MDICT,MELM/MINUS1 $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 147 ****RFMT 199-201,204-217 $$$$ COND LGPWG,GRDPNT $ ****SBST 4 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 140 ****RFMT 199-201,204-217 $$$$ GPWG BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 140 ****RFMT 199-201,204-217 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 140 ****RFMT 199-201,204-217 $$$$ LABEL LGPWG $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 140 ****RFMT 199-201,204-217 $$$$ EQUIV KGGX,KGG/NOGENL $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 199-201,204-217 $$$$ COND LBL11,NOGENL $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 199-201,204-217 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 199-201,204-217 $$$$ LABEL LBL11 $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 199-201,204-217 $$$$ GPSTGEN KGG,SIL/GPST $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 102 ****RFMT 199-201,204-217 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 22- 24 ****FILE 101 ****RFMT 199-201,204-217 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 22- 24 ****FILE 101 ****RFMT 199-201,204-217 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 104 ****RFMT 199-201,204-217 $$$$ PURGE GM/MPCF1/DM,MR/REACT $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 103,109,110 ****RFMT 199-201,204-217 $$$$ COND LBL2,MPCF1 $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 103,104 ****RFMT 199-201,204-217 $$$$ MCE1 USET,RG/GM $ ****SBST 4 ****CARD 1, 9, 24 ****FILE 103 ****RFMT 199-201,204-217 $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 104 ****RFMT 199-201,204-217 $$$$ LABEL LBL2 $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 103,104 ****RFMT 199-201,204-217 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 199-201,204-217 $$$$ COND LBL3,SINGLE $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 199-201,204-217 $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 199-201,204-217 $$$$ LABEL LBL3 $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 199-201,204-217 $$$$ EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 123,142 ****RFMT 199-201,204-217 $$$$ PURGE GO/OMIT $ ****SBST 4 ****CARD 1- 4, 6, 8- 11, 13, 24 ****FILE 142 ****RFMT 199-201,204-217 $$$$ COND LBL5,OMIT $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106,123,142 ****RFMT 199-201,204-217 $$$$ PARAM //*PREC*/PREC $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106 ****RFMT 187-204,207-217 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 142 ****RFMT 199-201,204-217 $$$$ SMP2 USET,GO,MFF/MAA $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 123 ****RFMT 199-201,204-217 $$$$ LABEL LBL5 $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106,123,142 ****RFMT 199-201,204-217 $$$$ COND LBL6,REACT $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 107-110 ****RFMT 199-201,204-217 $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 107 ****RFMT 199-201,204-217 $$$$ RBMG2 KLL/LLL/ $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 24 ****FILE 108 ****RFMT 199-201,204-217 $$$$ RBMG3 LLL,KLR,KRR/DM $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 24 ****FILE 109 ****RFMT 199-201,204-217 $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 110 ****RFMT 199-201,204-217 $$$$ LABEL LBL6 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 107-110 ****RFMT 199-201,204-217 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $ ****CARD 1, 9- 12, 40, 56, 58, 60 ****FILE 111 ****RFMT 199-201,204-217 $$$$ COND ERROR2,NOEED $ ****SBST 4 ****CARD 1, 9- 12, 40, 56, 58, 60 ****FILE 111 ****RFMT 187-204,207-217 $$$$ EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****SBST 4 ****CARD 1- 4, 6, 9- 11, 13, 14, 24, 56 ****FILE 115 ****RFMT 199-201,204-217 $$$$ READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 199-201,204-217 $$$$ OFP OEIGS,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 199-201,204-217 $$$$ COND ERROR4,NEIGV $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 187-204,207-217 $$$$ OFP LAMA,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 199-201,204-217 $$$$ MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ ****SBST 5 ****CARD 1, 40, 56, 57 ****FILE 114 ****RFMT 199-201,204-217 $$$$ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $ ****SBST 4 ****CARD 1, 9- 11, 40, 56, 57 ****FILE 139 ****RFMT 199-201,204-217 $$$$ GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/ *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/ NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/-1/ -1/-1 $ ****SBST 4 ****CARD 1- 4, 6, 8- 11, 13, 14, 24, 40, 56, 57 ****FILE 115,139 ****RFMT 199-201,204-217 $$$$ GKAM USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH, PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 40, 55- 59, 62 ****FILE 116 ****RFMT 199-201,204-217 $$$$ APD EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA, USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/ S,N,LUSETA/S,N,BOV $ ****CARD 1, 2, 4, 5, 9- 12, 16, 24, 29, 32, 34- 37, 56 ****FILE 124 ****RFMT 199-201,204-217 $$$$ PARAM //*MPY*/PFILE/0/1 $ ****SBST 7 ****CARD 18 ****FILE 118 ****RFMT 199-201,204-217 $$$$ PURGE PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118,125 ****RFMT 199-201,204-217 $$$$ COND SKPPLT,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118,125 ****RFMT 199-201,204-217 $$$$ PARAM //*MPY*/PLTFLG/0/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118 ****RFMT 199-201,204-217 $$$$ PLTSET PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125 ****RFMT 199-201,204-217 $$$$ PRTMSG PLTSETA // $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125 ****RFMT 199-201,204-217 $$$$ COND SKPPLT,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118,125 ****RFMT 199-201,204-217 $$$$ PLOT PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO, ,,,,,,/PLOTX2/ NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118 ****RFMT 199-201,204-217 $$$$ PRTMSG PLOTX2 // $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118 ****RFMT 199-201,204-217 $$$$ LABEL SKPPLT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118,125 ****RFMT 199-201,204-217 $$$$ COND ERROR2,NOEED $ ****CARD 58, 60 ****FILE 121 ****RFMT 199-201,204-217 $$$$ GI SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/LUSET $ ****SBST 4 ****CARD 1- 4, 6, 8- 11, 13, 24, 32, 35, 37 ****FILE 126 ****RFMT 199-201,204-217 $$$$ PARAM //*ADD*/DESTRY/0/1/ $ ****SBST 6 ****CARD 24, 29, 35, 37 ****FILE 127 ****RFMT 187-204,207-217 $$$$ AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $ ****SBST 6 ****CARD 24, 29, 34, 35, 37 ****FILE 127 ****RFMT 199-201,204-217 $$$$ COND NODJE, NODJE $ ****SBST 4 ****CARD 17, 26, 37, 56 ****FILE 128 ****RFMT 199-201,204-217 $$$$ INPUTT2 /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $ ****SBST 4 ****CARD 17, 26, 37, 56 ****FILE 128 ****RFMT 199-201,204-217 $$$$ LABEL NODJE $ ****SBST 4 ****CARD 17, 26, 37, 56 ****FILE 128 ****RFMT 199-201,204-217 $$$$ PARAM //*ADD*/XQHHL/1/0 $ ****SBST 4 ****CARD 1- 6, 8- 14, 17, 24, 26, 29, 32, 35, 37, 54, 56, 58, 59, 62 ****FILE 138 ****RFMT 199-201,204-217 $$$$ AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL, QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $ ****SBST 4 ****CARD 1- 6, 8- 14, 17, 24, 26, 29, 32, 34, 35, 37, 54, 56, 58, 59 ****CARD 62 ****FILE 138 ****RFMT 199-201,204-217 $$$$ PARAM //*MPY*/FLOOP/V,Y,NODJE=-1/0 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 129 ****RFMT 187-204,207-217 $$$$ LABEL LOOPTOP $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 129 ****RFMT 187-204,207-217 $$$$ FA1 KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/ S,N,FLOOP/S,N,TSTART/S,N,NOCEAD $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 129 ****RFMT 199-201,204-217 $$$$ EQUIV KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/KXHH,PHIHL/NOCEAD/BXHH, CLAMAL/NOCEAD/CASECC,CASEYY/NOCEAD $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 117,130 ****RFMT 199-201,204-217 $$$$ COND VDR,NOCEAD $ ****SBST 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 117 ****RFMT 199-201,204-217 $$$$ CEAD KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 117 ****RFMT 199-201,204-217 $$$$ COND LBLZAP,EIGVS $ ****SBST 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 117 ****RFMT 199-201,204-217 $$$$ LABEL VDR $ ****SBST 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 117 ****RFMT 199-201,204-217 $$$$ VDR CASECC,EQDYN ,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/ 123/S,N,NOH/S,N,NOP/FMODE $ ****SBST 4 ****CARD 21 ****FILE 119 ****RFMT 199-201,204-217 $$$$ COND LBL16,NOH $ ****SBST 4 ****CARD 21 ****FILE 119 ****RFMT 199-201,204-217 $$$$ OFP OPHIH,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 21 ****FILE 119 ****RFMT 199-201,204-217 $$$$ LABEL LBL16 $ ****SBST 4 ****CARD 18, 21 ****FILE 119 ****RFMT 199-201,204-217 $$$$ FA2 PHIH,CLAMA,FSAVE/ PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/ C,Y,VREF=1.0/C,Y,PRINT=YES $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 130 ****RFMT 199-201,204-217 $$$$ COND CONTINUE,TSTART $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ LABEL LBLZAP $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 117 ****RFMT 187-204,207-217 $$$$ COND CONTINUE,FLOOP $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ REPT LOOPTOP,100 $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ JUMP ERROR3 $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ LABEL CONTINUE $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ PARAML XYCDB//*PRES*////NOXYCDB $ ****SBST 4 ****CARD 20 ****FILE 120 ****RFMT 199-201,204-217 $$$$ COND NOXYOUT,NOXYCDB $ ****SBST 4 ****CARD 20 ****FILE 120 ****RFMT 199-201,204-217 $$$$ XYTRAN XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO/ S,N,NOXYPL $ ****SBST 4 ****CARD 20 ****FILE 120 ****RFMT 199-201,204-217 $$$$ COND NOXYOUT,NOXYPL $ ****SBST 4 ****CARD 20 ****FILE 120 ****RFMT 199-201,204-217 $$$$ XYPLOT XYPLTCE// $ ****SBST 4 ****CARD 20 ****FILE 120 ****RFMT 199-201,204-217 $$$$ LABEL NOXYOUT $ ****SBST 4 ****CARD 20 ****FILE 120 ****RFMT 199-201,204-217 $$$$ PARAM //*AND*/PJUMP/NOP=-1/JUMPPLOT $ ****SBST 4 ****CARD 1- 6, 8- 13, 20, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 121,122,131-134,136,137,144,145 ****RFMT 199-201,204-217 $$$$ COND FINIS,PJUMP $ ****SBST 4 ****CARD 1- 6, 8- 13, 18- 21, 24- 26, 29, 32, 34- 40, 55- 62 ****FILE 121,122,131-134,136,137,144,145 ****RFMT 199-201,204-217 $$$$ MODACC CASEYY,CLAMAL,PHIHL,,,/CLAMAL1,CPHIH1,CASEZZ,,/*CEIGN* $ ****SBST 4 ****CARD 1- 6, 8- 13, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 131 ****RFMT 199-201,204-217 $$$$ ADR CPHIH1,CASEZZ,QKHL,CLAMAL1,SPLINE,SILA,USETA/PKF/BOV/ C,Y,MACH = 0.0/*FLUTTER* $ ****SBST 4 ****CARD 21, 25 ****FILE 121 ****RFMT 199-201,204-217 $$$$ DDR1 CPHIH1,PHIDH/CPHID $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34, 36- 40, 55- 62 ****FILE 122 ****RFMT 199-201,204-217 $$$$ EQUIV CPHID ,CPHIP/NOA $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 144 ****RFMT 199-201,204-217 $$$$ PURGE QPC/NOA $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 144 ****RFMT 199-201,204-217 $$$$ COND LBL14,NOA $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 144 ****RFMT 199-201,204-217 $$$$ SDR1 USETD,,CPHID ,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1 /*DYNAMICS* $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 144 ****RFMT 199-201,204-217 $$$$ LABEL LBL14 $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 144 ****RFMT 199-201,204-217 $$$$ EQUIV CPHID ,CPHIA/NOUE $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 122 ****RFMT 199-201,204-217 $$$$ COND LBLNOE,NOUE $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 132 ****RFMT 199-201,204-217 $$$$ VEC USETA/RP/*D*/*A*/*E* $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 132 ****RFMT 199-201,204-217 $$$$ PARTN CPHID ,,RP/CPHIA,,,/1/3 $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 122,132 ****RFMT 199-201,204-217 $$$$ LABEL LBLNOE $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 132 ****RFMT 199-201,204-217 $$$$ MPYAD GTKA,CPHIA,/CPHIK/1/1/0/PREC $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 133 ****RFMT 199-201,204-217 $$$$ UMERGE USETA,CPHIP,/CPHIPS/*PS*/*P*/*SA* $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 134 ****RFMT 199-201,204-217 $$$$ UMERGE USETA,CPHIPS,CPHIK/CPHIPA/*PA*/*PS*/*K* $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 136 ****RFMT 199-201,204-217 $$$$ UMERGE USETA,QPC,/QPAC/*PA*/*P*/*K* $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 136 ****RFMT 199-201,204-217 $$$$ SDR2 CASEZZ,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,CLAMAL1,QPAC,CPHIPA, EST,,,/,OQPAC1,OCPHIPA,OESC1,OEFC1,PCPHIPA,,/*CEIGN* $ ****SBST 4 ****CARD 4, 18, 19, 24 ****FILE 137 $$$$ OFP OCPHIPA,OQPAC1,OESC1,OEFC1,,//S,N,CARDNO $ ****SBST 4 ****CARD 19 ****FILE 137 $$$$ COND FINIS,JUMPPLOT $ ****SBST 4, 7 ****CARD 18 ****FILE 145 $$$$ PLOT PLTPARA,GPSETSA,ELSETSA,CASEZZ,BGPA,EQAERO,SILGA,,PCPHIPA,,,, /PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/S,N, PFILE $ ****SBST 4, 7 ****CARD 18 ****FILE 145 $$$$ PRTMSG PLOTX3// $ ****SBST 4, 7 ****CARD 18 ****FILE 145 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****FILE 145 ****RFMT 187-204,207-217 $$$$ LABEL ERROR3 $ ****SBST 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ PRTPARM //-3/*FLUTTER* $ ****SBST 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 40, 56, 58, 60 ****FILE 111 ****RFMT 187-204,207-217 $$$$ PRTPARM //-2/*FLUTTER* $ ****CARD 1, 9- 12, 40, 56, 58, 60 ****FILE 111 ****RFMT 187-204,207-217 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 6, 8, 13, 14, 24 ****FILE 147 ****RFMT 187-204,207-217 $$$$ PRTPARM //-1/*FLUTTER* $ ****CARD 1- 3, 5, 6, 8, 13, 14, 24 ****FILE 147 ****RFMT 187-204,207-217 $$$$ LABEL ERROR4 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 187-204,207-217 $$$$ PRTPARM //-4/*FLUTTER* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 187-204,207-217 $$$$ LABEL ERROR5 $ ****CARD 1, 24 ****FILE 94 ****RFMT 187-204,207-217 $$$$ PRTPARM //-5/*FLUTTER* $ ****CARD 1, 24 ****FILE 94 ****RFMT 187-204,207-217 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****FILE 121,122,131-134,136,137,144,145 ****RFMT 187-204,207-217 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****FILE 121,122,131-134,136,137,144,145 ****RFMT 187-204,207-217 $$$$ END $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ $*CARD BITS 1 AXIC AXIF AXSLOT 1 GRDSET GRID GRIDB 1 POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 1 CELAS1 CELAS2 CELAS3 CELAS4 1 CMASS1 CMASS2 CMASS3 CMASS4 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 ADUM9 BAROR 2 CAXIF2 CAXIF3 CAXIF4 CBAR CBARAO CCONEAX 2 CDUM1 2 CDUM2 CDUM3 CDUM4 CDUM5 CDUM6 CDUM7 CDUM8 2 CDUM9 2 CELBOW CFLUID2 CFLUID3 CFLUID4 CHEXA1 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CNGRNT CONROD CQUAD4 CTRIA3 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 2 CROD CSHEAR CSLOT3 CSLOT4 CTETRA CTRBSC CTRAPAX 2 CTRIAAX CTRIARG CTORDRG CTRAPRG CTRIA1 CTRIA2 2 CTRIM6 CTRMEM CTRPLT CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 3 PDUM5 PSHELL PCOMP PCOMP1 PCOMP2 3 PDUM6 PDUM7 PDUM8 PDUM9 PELBOW PHEX PIS2D8 3 PQDMEM PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 3 PROD PSHEAR PTORDRG PTRAPAX PTRBSC PTRIA1 3 PTRIA2 PTRIM6 PTRIAAX PTRMEM PTRPLT PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 6 PELAS PMASS 8 MAT1 MAT2 MAT3 MAT9 MATT1 MATT2 MATT3 8 MAT6 MAT8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 8 TEMPMT$ TEMPMX$ 9 CRIGD1 CRIGD2 CRIGD3 CRIGDR 9 CRROD CRBAR CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE 9 MPC MPCADD MPC$ MPCAX 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 11 OMIT OMIT1 OMITAX 11 SUPAX SUPORT 13 TEMP TEMPAX TEMPD 13 TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 COUPMASS CPBAR CPDPLT 14 CPQUAD1 CPQUAD2 CPROD CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 14 WTMASS 15 GRDPNT 16 PLOTEL 17 P1 P2 P3 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 ASETOUT 23 AUTOSPC 24 CORD1C CORD1R CORD1S CORD2C CORD2R CORD2S 25 MACH 26 NODJE 29 PAERO1 PAERO2 PAERO3 PAERO4 PAERO5 32 SET1 SET2 32 SPLINE1 SPLINE2 SPLINE3 34 MKAERO1 MKAERO2 35 AEFACT 36 FLFACT FLUTTER 37 AERO 37 CAERO1 CAERO2 CAERO3 CAERO4 CAERO5 38 FMETHOD$ 39 PRINT VREF 40 TF 54 GUSTAERO 55 SDAMP$ 55 TABDMP1 56 EPOINT SEQEP 57 K2PP$ M2PP$ B2PP$ TF$ 57 DMIG 58 EIGR 59 METHOD$ 60 EIGC EIGP 61 CMETHOD$ 62 HFREQ LFREQ LMODES KDAMP $$$$ $*FILE BITS 94 GPL EQEXIN GPDT CSTM BGPDT SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 RG USET ASET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 GPLD SILD USETD TFPOOL EED EQDYN 112 LAMA PHIA MI OEIGS 114 K2PP M2PP B2PP 115 GMD GOD 116 MHH BHH KHH PHIDH 117 PHIH CLAMA OCEIGS 118 PLOTX2 119 OPHIH 120 XYPLTCE 121 PKF 122 CPHID 123 MAA 124 EQAERO ECTA BGPA SILA USETA SPLINE AERO 124 ACPT FLIST CSTMA GPLA SILGA 125 PLTSETA PLTPARA GPSETSA ELSETSA 126 GTKA 127 AJJL D1JK D2JK SKJ 128 D1JE D2JE 129 FSAVE KXHH BXHH MXHH 130 PHIHL CLAMAL CASEYY OVG 131 CLAMAL1 CPHIH1 CASEZZ 132 RP 133 CPHIK 134 CPHIPS 136 CPHIPA 137 OQPAC1 OCPHIPA OESC1 OEFC1 PCPHIPA 138 QHHL QKHL QHJL 139 K2DD M2DD B2DD 140 OGPWG 142 KOO LOO KAA 144 CPHIP QPC 145 PLOTX3 147 KELM KDICT MELM MDICT 148 MPT $* ================================================ FILE: rf/AERO11 ================================================ APR.95 $$$$$$$$ BEGIN AERO 11 - MODAL AEROELASTIC RESPONSE - APR. 1995 $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****RFMT 187-204,207-217 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****RFMT 187-204,207-217 $$$$ FILE AJJL=APPEND/QHHL=APPEND/QKHL=APPEND/QHJL=APPEND/SKJ=APPEND $ ****SBST 4 ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****FILE 127,138 ****RFMT 187-204,207-217 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 14, 19- 21, 24, 25, 58, 59 ****FILE 101,112,135,143,154 ****RFMT 204-217 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ ****CARD 1, 24 ****FILE 94 ****RFMT 204-217 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 155 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 155 $$$$ COND ERROR1,NOGPDT $ ****CARD 1, 24 ****FILE 94 ****RFMT 187-204,207-217 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 ****RFMT 204-217 $$$$ PARAML PCDB//*PRES*/V,Y,NODJE=-1///JUMPPLOT $ ****SBST 7 ****CARD 18, 26 ****FILE 122,125 ****RFMT 204-217 $$$$ PARAML XYCDB//*PRES*////NOXYCDB $ ****SBST 4 ****CARD 20, 22 ****RFMT 204-217 $$$$ GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****SBST 5 ****CARD 1, 2, 13 ****FILE 96 ****RFMT 204-217 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****SBST 5 ****CARD 1- 6, 13, 16, 24 ****FILE 97 ****RFMT 204-217 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****SBST 5 ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****FILE 97 ****RFMT 204-217 $$$$ COND ERROR3,NOSIMP $ ****SBST 5 ****CARD 1, 2, 4- 6, 16, 24 ****FILE 97 ****RFMT 187-204,207-217 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 14, 24 ****FILE 113 ****RFMT 204-217 $$$$ PARAM //*ADD*/NOMGG /1/0 $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 113 ****RFMT 204-217 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****SBST 4 ****CARD 1- 3, 5, 6, 8, 13, 14, 24 ****FILE 113 ****RFMT 204-217 $$$$ PURGE KGGX/NOKGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 204-217 $$$$ COND JMPKGGX,NOKGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 204-217 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 204-217 $$$$ PURGE KDICT,KELM/MINUS1 $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 113 ****RFMT 204-217 $$$$ LABEL JMPKGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 204-217 $$$$ COND ERROR1,NOMGG $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 113 ****RFMT 204-217 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 99 ****RFMT 204-217 $$$$ PURGE MDICT,MELM/MINUS1 $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 113 ****RFMT 204-217 $$$$ COND LGPWG,GRDPNT $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 154 ****RFMT 204-217 $$$$ GPWG BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 154 ****RFMT 204-217 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 154 ****RFMT 204-217 $$$$ LABEL LGPWG $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 154 ****RFMT 204-217 $$$$ EQUIV KGGX,KGG/NOGENL $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 204-217 $$$$ COND LBL11,NOGENL $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 204-217 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 204-217 $$$$ LABEL LBL11 $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 204-217 $$$$ GPSTGEN KGG,SIL/GPST $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 102 ****RFMT 204-217 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 13, 23- 25 ****FILE 101 ****RFMT 204-217 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 23- 25 ****FILE 101 ****RFMT 204-217 $$$$ PURGE GM/MPCF1/DM,MR/REACT $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 103,109,110 ****RFMT 204-217 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 104 ****RFMT 204-217 $$$$ COND LBL2,MPCF1 $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 103,104 ****RFMT 204-217 $$$$ MCE1 USET,RG/GM $ ****SBST 4 ****CARD 1, 9, 24 ****FILE 103 ****RFMT 204-217 $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 104 ****RFMT 204-217 $$$$ LABEL LBL2 $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 103,104 ****RFMT 204-217 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 204-217 $$$$ COND LBL3,SINGLE $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 204-217 $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 204-217 $$$$ LABEL LBL3 $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 204-217 $$$$ EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106,123 ****RFMT 204-217 $$$$ PURGE GO/OMIT $ ****SBST 4 ****CARD 1- 4, 6, 8- 11, 13, 24 ****FILE 106 ****RFMT 204-217 $$$$ COND LBL5,OMIT $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106,113,123 ****RFMT 204-217 $$$$ PARAM //*PREC*/PREC $ ****SBST 4 ****FILE 106,140 ****RFMT 204-217 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106 ****RFMT 204-217 $$$$ SMP2 USET,GO,MFF/MAA $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 123 ****RFMT 204-217 $$$$ LABEL LBL5 $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106,113,123 ****RFMT 204-217 $$$$ COND LBL6,REACT $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 107-110 ****RFMT 204-217 $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 107 ****RFMT 204-217 $$$$ RBMG2 KLL/LLL/ $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 24 ****FILE 108 ****RFMT 204-217 $$$$ RBMG3 LLL,KLR,KRR/DM $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 24 ****FILE 109 ****RFMT 204-217 $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 110 ****RFMT 204-217 $$$$ LABEL LBL6 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 107-110 ****RFMT 204-217 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,TRL, EED,EQDYN/LUSET/S,N,LUSETD/NOTFL/NODLT/S,N,NOPSDL/ NOFRL/NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $ ****CARD 1, 9- 12, 40, 50, 52, 53, 56, 58 ****FILE 111 ****RFMT 204-217 $$$$ COND ERROR2,NOEED $ ****SBST 4 ****CARD 1, 9- 12, 40, 50, 52, 53, 56, 58 ****FILE 111 ****RFMT 187-204,207-217 $$$$ EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****SBST 4 ****CARD 1- 4, 6, 9- 11, 13, 14, 24, 56 ****FILE 115 ****RFMT 204-217 $$$$ READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 204-217 $$$$ OFP OEIGS,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 204-217 $$$$ COND ERROR4,NEIGV $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 187-204,207-217 $$$$ OFP LAMA,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 204-217 $$$$ MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ ****SBST 5 ****CARD 1, 40, 56, 57 ****FILE 114 ****RFMT 204-217 $$$$ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $ ****SBST 4 ****CARD 1, 9- 11, 40, 56, 57 ****FILE 139 ****RFMT 204-217 $$$$ GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/ *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/ NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/-1/-1/-1 $ ****SBST 4 ****CARD 1- 4, 6, 8- 11, 13, 14, 24, 40, 56, 57 ****FILE 115,139 ****RFMT 204-217 $$$$ GKAM USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH, PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 40, 55- 59, 62 ****FILE 116 ****RFMT 204-217 $$$$ APD EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA, USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/ S,N,LUSETA/S,N,BOV $ ****CARD 1, 2, 4, 5, 9- 12, 16, 24, 29, 32, 34, 35, 37, 56 ****FILE 124 ****RFMT 204-217 $$$$ PARAM //*MPY*/PFILE/0/1 $ ****SBST 7 ****CARD 18, 20 ****FILE 150 ****RFMT 204-217 $$$$ PURGE PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125 ****RFMT 204-217 $$$$ COND SKPPLT,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125,150 ****RFMT 204-217 $$$$ PARAM //*MPY*/PLTFLG/0/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 150 ****RFMT 204-217 $$$$ PLTSET PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125 ****RFMT 204-217 $$$$ PRTMSG PLTSETA // $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125 ****RFMT 204-217 $$$$ COND SKPPLT,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125,150 ****RFMT 204-217 $$$$ PLOT PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO, ,,,,,,/PLOTX2/ NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 150 ****RFMT 204-217 $$$$ PRTMSG PLOTX2 // $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 150 ****RFMT 204-217 $$$$ LABEL SKPPLT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125,150 ****RFMT 204-217 $$$$ GI SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/ LUSET $ ****SBST 4 ****CARD 1- 4, 6, 8- 11, 13, 24, 32, 35, 37 ****FILE 126 ****RFMT 204-217 $$$$ PARAM //*ADD*/DESTRY/0/1/ $ ****SBST 6 ****CARD 24, 29, 35, 37 ****FILE 137 ****RFMT 187-204,207-217 $$$$ AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $ ****SBST 6 ****CARD 24, 29, 34, 35, 37 ****FILE 127 ****RFMT 204-217 $$$$ COND NODJE,NODJE $ ****SBST 4 ****CARD 17, 26, 37, 56 ****FILE 128 ****RFMT 204-217 $$$$ INPUTT2 /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $ ****SBST 4 ****CARD 17, 26, 37, 56 ****FILE 128 ****RFMT 204-217 $$$$ LABEL NODJE $ ****SBST 4 ****CARD 17, 26, 37, 56 ****FILE 128 ****RFMT 204-217 $$$$ PARAM //*ADD*/XQHHL/1/0 $ ****SBST 4 ****CARD 1- 6, 8- 14, 17, 24, 26, 29, 32, 35, 37, 48, 56, 58, 59, 62 ****FILE 138 ****RFMT 204-217 $$$$ AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL, QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $ ****SBST 4 ****CARD 1- 6, 8- 14, 17, 24, 26, 29, 32, 34, 35, 37, 48, 56, 58, 59 ****CARD 62 ****FILE 138 ****RFMT 204-217 $$$$ FRLG CASECC,USETD,DLT,FRL,GMD,GOD,DIT,PHIDH/PPF,PSF,PDF,FOL,PHF1/ *MODAL*/S,N,FREQY/S,N,APP $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 51, 52, 55, 56, 58, 59, 61, 62 ****FILE 139 ****RFMT 194,197,204-217 $$$$ PARAM //*NOT*/NOFRY/FREQY $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 40, 51, 52, 55, 56, 58, 59, 61, 62 ****FILE 129 ****RFMT 204-217 $$$$ PURGE PPF/NOFRY $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 40, 51, 52, 55, 56, 58, 59, 61, 62 ****FILE 129 ****RFMT 204-217 $$$$ GUST CASECC,DLT,FRL,DIT,QHJL,,,ACPT,CSTMA,PHF1/PHF/ S,N,NOGUST/BOV/C,Y,MACH/C,Y,Q $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55 ****CARD 56, 58, 59, 61, 62 ****FILE 130 ****RFMT 204-217 $$$$ EQUIV PHF1,PHF/NOGUST $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55 ****CARD 56, 58, 59, 61, 62 ****FILE 130 ****RFMT 204-217 $$$$ FRRD2 KHH,BHH,MHH,QHHL,PHF,FOL/UHVF/BOV/C,Y,Q/C,Y,MACH $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55 ****CARD 56, 58, 59, 61, 62 ****FILE 131 ****RFMT 194,197,204-217 $$$$ EQUIV UHVF,UHVT/FREQY/FOL,TOL/FREQY $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55 ****CARD 56, 58, 59, 61, 62 ****FILE 132 ****RFMT 195,198,204-217 $$$$ COND IFTSKP,FREQY $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56 ****CARD 58- 62 ****FILE 132 ****RFMT 195,198,204-217 $$$$ IFT UHVF,CASECC,TRL,FOL/UHVT,TOL/C,Y,IFTM=0 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56 ****CARD 58- 62 ****FILE 132 ****RFMT 195,198,204-217 $$$$ LABEL IFTSKP $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56 ****CARD 58- 62 ****FILE 132 ****RFMT 195,198,204-217 $$$$ MODACC CASECC,TOL,UHVT,,,/TOL1,UHVT1,,,/APP $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56 ****CARD 58- 62 ****FILE 133 ****RFMT 204-217 $$$$ ADR UHVT1,CASECC,QKHL,TOL1,SPLINE,SILA,USETA/PKF/BOV/ C,Y,MACH/APP $ ****SBST 4 ****CARD 21 ****FILE 134 $$$$ VDR CASECC,EQDYN,USETD,UHVT1,TOL1,XYCDB,/OUHV1,/APP/*MODAL*/ 0/S,N,NOH/S,N,NOP/FMODE $ ****SBST 4 ****CARD 21, 22 ****FILE 135 $$$$ COND NOH, NOH $ ****SBST 4 ****CARD 21, 22 ****FILE 135,136 $$$$ SDR3 OUHV1,,,,,/OUHV2,,,,, $ ****SBST 4 ****CARD 21, 22 ****FILE 135 $$$$ OFP OUHV2,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 21 ****FILE 135 $$$$ COND NOH,NOXYCDB $ ****SBST 4 ****CARD 22 ****FILE 136 $$$$ XYTRAN XYCDB,OUHV2,,,,/XYPTTA/APP/*HSET*/S,N,PFILE/S,N,CARDNO/ S,N,NOXYPL $ ****SBST 4 ****CARD 22 ****FILE 136 $$$$ COND NOH,NOXYPL $ ****SBST 4 ****CARD 22 ****FILE 136 $$$$ XYPLOT XYPTTA $ ****SBST 4 ****CARD 22 ****FILE 136 $$$$ LABEL NOH $ ****SBST 4 ****CARD 22 ****FILE 135,136 $$$$ PARAM //*AND*/PJUMP/NOP/JUMPPLOT $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 137,140-147 ****RFMT 204-217 $$$$ COND FINIS,PJUMP $ ****SBST 4 ****CARD 1- 6, 8- 14, 18- 20, 24, 26- 29, 32, 34, 37, 40, 49- 52 ****CARD 54- 62 ****FILE 137,140-147 ****RFMT 204-217 $$$$ SDR1 USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIP,,QP/1/*DYNAMICS* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 137 ****RFMT 204-217 $$$$ EQUIV PHIDH,PHIAH/NOUE $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ COND NOUE1,NOUE $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ VEC USETD/EVEC/*D*/*A*/*E* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ PARTN PHIDH,,EVEC/PHIAH,,,/1 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ LABEL NOUE1 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ MPYAD GTKA,PHIAH,/PHIK/1/1/0/PREC $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 30, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ UMERGE USETA,PHIP,/PHIPS/*PS*/*P*/*SA* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ UMERGE USETA,PHIPS,PHIK/PHIPA/*PA*/*PS*/*K* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ UMERGE USETA,QP,/QPA/*PA*/*P*/*PS* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 $$$$ SDR2 CASECC,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,LAMA,QPA,PHIPA, EST,XYCDB,,/,MQP1,MPHIPA1,MES1,MEF1,,,/*MMREIG* $ ****SBST 4 ****CARD 19, 20 ****FILE 141 $$$$ COND NOPF,NOFRY $ ****SBST 4 ****CARD 19, 20 ****FILE 141,142 $$$$ SDR2 CASECC,,,,EQDYN,,,,,PPF,,,,XYCDB,,/OPP1,,,,,,,/*FREQ* $ ****SBST 4 ****CARD 19, 20 ****FILE 141 $$$$ SDR3 OPP1,,,,,/QPP2,,,,,/ $ ****SBST 4 ****CARD 19, 20 ****FILE 142 $$$$ LABEL NOPF $ ****SBST 4 ****CARD 19, 20 ****FILE 141,142 $$$$ SDR3 MPHIPA1,MES1,MEF1,MQP1,,/MPHIPA2,MES2,MEF2,MQP2,, $ ****SBST 4 ****CARD 19, 20 ****FILE 147 $$$$ DDRMM CASECC,UHVT1,TOL1,MPHIPA2,MQP2,MES2,MEF2,XYCDB,EST,MPT,DIT/ OUPV2,OQP2,OES2,OEF2, $ ****SBST 4 ****CARD 19, 20 ****FILE 143 $$$$ OFP OUPV2,,OES2,OEF2,OQP2,//S,N,CARDNO $ ****SBST 4 ****CARD 19, 20 ****FILE 143 $$$$ SCAN CASECC,OES2,OEF2,,/OESF2,/C,N,*RF* $ ****CARD 19 ****FILE 143 $$$$ OFP OESF2,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 143 $$$$ COND P2,JUMPPLOT $ ****SBST 4, 7 ****CARD 18 ****FILE 144 $$$$ MPYAD PHIPA,UHVT1,/UVT1/0 $ ****SBST 4, 7 ****CARD 18 ****FILE 148 $$$$ SDR2 CASECC,CSTMA,,,EQAERO,,,,BGPA,TOL,,UVT1,,,,/,,,,,PUVPAT,,/APP $ ****SBST 4, 7 ****CARD 18 ****FILE 144 $$$$ PLOT PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO,SILGA,,PUVPAT,,,,/ PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/PFILE $ ****SBST 4, 7 ****CARD 18 ****FILE 144 $$$$ PRTMSG PLOTX3// $ ****SBST 4, 7 ****CARD 18 ****FILE 144 $$$$ LABEL P2 $ ****SBST 4, 7 ****CARD 18 ****FILE 144 $$$$ COND FINIS,NOXYCDB $ ****SBST 4 ****CARD 20 ****FILE 145,146 $$$$ XYTRAN XYCDB,,OQP2,OUPV2,OES2,OEF2/XYPLTT/APP/*PSET*/ S,N,PFILE/S,N,CARDNO/S,N,NOXYPL $ ****SBST 4 ****CARD 20 ****FILE 145 $$$$ COND NOXYPLTT,NOXYPL $ ****SBST 4 ****CARD 20 ****FILE 145 $$$$ XYPLOT XYPLTT $ ****SBST 4 ****CARD 20 ****FILE 145 $$$$ LABEL NOXYPLTT $ ****SBST 4 ****CARD 20 ****FILE 145 $$$$ COND FINIS,NOFRY $ ****SBST 4 ****CARD 20 ****FILE 145 $$$$ COND FINIS,NOPSDL $ ****SBST 4 ****CARD 20, 54 ****FILE 146 $$$$ RANDOM XYCDB,DIT,PSDL,OUPV2,,OQP2,OES2,OEF2,CASECC/PSDF,AUTO/ S,N,NORN $ ****SBST 4 ****CARD 20, 54 ****FILE 146 $$$$ COND FINIS,NORN $ ****SBST 4 ****CARD 20, 54 ****FILE 146 $$$$ XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO/S,N,NOXYPL $ ****SBST 4 ****CARD 20, 54 ****FILE 146 $$$$ COND FINIS,NOXYPL $ ****SBST 4 ****CARD 20, 54 ****FILE 146 $$$$ XYPLOT XYPLTR $ ****SBST 4 ****CARD 20, 54 ****FILE 146 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****FILE 146 ****RFMT 187-204,207-217 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 40, 50, 52, 53, 56, 58 ****FILE 111 ****RFMT 187-204,207-217 $$$$ PRTPARM //-2/*AERORESP* $ ****CARD 1, 9- 12, 40, 50, 52, 53, 56, 58 ****FILE 111 ****RFMT 187-204,207-217 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 6, 8, 13, 14, 24 ****FILE 113 ****RFMT 187-204,207-217 $$$$ PRTPARM //-1/*AERORESP* $ ****CARD 1- 3, 5, 6, 8, 13, 14, 24 ****FILE 113 ****RFMT 187-204,207-217 $$$$ LABEL ERROR4 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 187-204,207-217 $$$$ PRTPARM //-4/*AERORESP* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 187-204,207-217 $$$$ LABEL ERROR3 $ ****CARD 1, 2, 4- 6, 16, 24 ****FILE 97 ****RFMT 187-204,207-217 $$$$ PRTPARM //-3/*AERORESP* $ ****CARD 1, 2, 4- 6, 16, 24 ****FILE 97 ****RFMT 187-204,207-217 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****FILE 137,140-147 ****RFMT 187-204,207-217 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****FILE 137,140-147 ****RFMT 187-204,207-217 $$$$ END $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****RFMT 187-204,207-217 $$$$ $*CARD BITS 1 AXIC AXIF 1 CELAS1 CELAS2 CELAS3 CELAS4 1 CMASS1 CMASS2 CMASS3 CMASS4 1 GRDSET GRID GRIDB 1 POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 ADUM9 BAROR 2 CAXIF2 CAXIF3 CAXIF4 CBAR CBEAM CCONEAX CDUM1 2 CDUM2 2 CDUM3 CDUM4 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 2 CELBOW CFLUID2 CFLUID3 CFLUID4 CHEXA1 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CNGRNT CONROD CQUAD4 CTRIA3 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 2 CROD CSHEAR CSLOT3 CSLOT4 CTETRA CTORDRG CTRAPRG 2 CTRAPAX CTRIAAX CTRIA1 CTRIA2 CTRIARG CTRIM6 CTRMEM 2 CTRBSC CTRPLT CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 3 PQDMEM PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 3 PSHEAR PTORDRG PTRAPAX PTRBSC PTRIA1 3 PTRIA2 PTRIAAX PTRIM6 PTRMEM PTRPLT PTUBE PTWIST 3 PSHELL PCOMP PCOMP1 PCOMP2 4 GENEL 5 CONM1 CONM2 6 PELAS 7 PMASS 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 8 MAT1 MAT2 MAT3 MAT9 MATT1 MATT2 MATT3 8 MAT6 MAT8 TEMPMT$ TEMPMX$ 9 CRIGD1 CRIGD2 CRIGD3 CRIGDR 9 CRROD CRBAR CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE 9 MPC MPCADD MPC$ MPCAX 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 11 OMIT OMIT1 OMITAX 11 SUPAX SUPORT 13 TEMP TEMPAX TEMPD 13 TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 COUPMASS CPBAR 14 CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRIA1 CPTRIA2 CPTRPLT 14 CPTRBSC CPTUBE 14 WTMASS 15 GRDPNT 16 PLOTEL 17 P1 P2 P3 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 AXYOUT$ 23 ASETOUT 24 CORD1C CORD1R CORD1S CORD2C CORD2R CORD2S 25 AUTOSPC 26 NODJE 27 IFTM 28 MACH Q 29 PAERO1 PAERO2 PAERO3 PAERO4 PAERO5 32 SET1 SET2 32 SPLINE1 SPLINE2 SPLINE3 34 MKAERO1 MKAERO2 35 AEFACT 37 AERO 37 CAERO1 CAERO2 CAERO3 CAERO4 CAERO5 40 TF 48 GUSTAERO 49 GUST GUST$ 50 TSTEP 51 TABLED1 TABLED2 TABLED3 TABLED4 52 DAREA DELAY DLOAD DPHASE 52 FREQ FREQ1 FREQ2 52 RLOAD1 RLOAD2 52 TLOAD1 TLOAD2 53 RANDPS RANDT1 54 RANDOM$ 54 TABRND1 TABRNDG 55 SDAMP$ 55 TABDMP1 56 EPOINT SEQEP 57 K2PP$ M2PP$ B2PP$ TF$ 57 DMIG 58 EIGR 59 METHOD$ 60 TSTEP$ 61 DLOAD$ FREQ$ 62 HFREQ LFREQ LMODES KDAMP $$$$ $*FILE BITS 94 GPL EQEXIN GPDT CSTM BGPDT SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 RG USET ASET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KAA KOO LOO 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 GPLD SILD USETD TFPOOL EED EQDYN DLT 111 PSDL FRL TRL 112 LAMA PHIA MI OEIGS 113 KELM KDICT MELM MDICT 114 K2PP M2PP B2PP 115 GMD GOD K2DD M2DD B2DD 116 MHH BHH KHH PHIDH 123 MAA 124 EQAERO ECTA BGPA SILA USETA SPLINE AERO 124 ACPT FLIST CSTMA GPLA SILGA 125 PLTSETA PLTPARA GPSETSA ELSETSA 126 GTKA 127 AJJL D1JK D2JK SKJ 128 D1JE D2JE 129 FOL PDF PHF1 PSF PPF 130 PHF 131 UHVF 132 UHVT TOL 133 TOL1 UHVT1 134 PKF 135 OUHV1 OUHV2 136 XYPTTA 137 PHIP QP 138 QHHL QKHL QHJL 139 K2DD M2DD B2DD 140 PHIAH PHIK PHIPA PHIPS 141 MQP1 MPHIPA1 MES1 MEF1 OPP1 142 QPP2 143 OUPV2 OQP2 OES2 OEF2 OESF2 144 PLOTX3 145 XYPLTT 146 PSDF AUTO 147 QPP2 148 UVT1 150 PLOTX2 154 OGPWG 155 MPT $* ================================================ FILE: rf/AERO9 ================================================ APR.95 $$$$$$$$ BEGIN AERO 09 - BLADE CYCLIC MODAL FLUTTER ANALYSIS - APR. 1995 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-209 $$$$ FILE PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/CLAMAL= APPEND/OVG=APPEND/QHHL=APPEND $ ****CARD 1- 14, 19, 21- 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 15, 19- 21, 24, 41, 43, 58, 59 ****FILE 146 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N, NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 148 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 148 $$$$ COND ERROR5,NOGPDT $ ****CARD 1 ****FILE 94 ****RFMT 187-204,207-209 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 7, 13 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 97 $$$$ COND ERROR5,NOSIMP $ ****CARD 1- 7, 13, 14 ****FILE 97 ****RFMT 187-204,207-209 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8, 13 ****FILE 98 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 7, 8, 13, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PARAM //*NOP*/V,Y,KGGIN=-1 $ ****CARD 43 $$$$ COND JMPKGGIN,KGGIN $ ****CARD 43 ****FILE 98,109 $$$$ PARAM //*ADD*/NOKGGX/-1/0 $ ****CARD 43 ****FILE 98,109 $$$$ INPUTT1 /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $ ****CARD 43 ****FILE 109 $$$$ EQUIV KTOTAL,KGGX $ ****CARD 43 ****FILE 98 $$$$ LABEL JMPKGGIN $ ****CARD 43 ****FILE 98,109 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5- 8, 13, 14, 24, 43 ****FILE 122 ****RFMT 187,190-192 $$$$ COND JMPKGGX,NOKGGX $ ****CARD 1- 3, 6, 8, 13, 43 ****FILE 98 ****RFMT 187,190-192 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8, 13, 43 ****FILE 98 ****RFMT 187,190-192 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8, 13, 43 ****FILE 122 ****RFMT 187,190-192 $$$$ LABEL JMPKGGX $ ****CARD 1- 3, 6, 8, 13, 43 ****FILE 98 ****RFMT 187,190-192 $$$$ COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 7, 8, 13, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 7, 8, 13, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 7, 8, 13, 14, 24 ****FILE 122 ****RFMT 187,190-192 $$$$ COND LGPWG,GRDPNT $ ****CARD 1- 3, 5, 7, 8, 13- 15, 24 ****FILE 107 $$$$ GPWG BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****CARD 1- 3, 5, 7, 8, 13- 15, 24 ****FILE 107 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****CARD 1- 3, 5, 7, 8, 13- 15, 24 $$$$ LABEL LGPWG $ ****CARD 1- 3, 5, 7, 8, 13- 15, 24 ****FILE 107 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8, 13, 43 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8, 13, 43 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8, 13, 43 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8, 13, 43 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8, 13, 43 ****FILE 102 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1, 4, 6, 8, 13, 20- 22, 43 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1, 4, 6, 8, 13, 20- 22, 43 ****FILE 101 $$$$ PARAM //*NOT*/REACDATA/REACT $ ****CARD 1, 20- 22, 43 ****FILE 101 $$$$ COND ERROR6,REACDATA $ ****CARD 1, 20- 22, 43 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $ ****CARD 1, 20- 22, 43 ****FILE 103,105,113,115,120 $$$$ GPCYC GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $ ****CARD 1, 9- 11, 41 ****FILE 140 $$$$ COND ERROR7,NOGO $ ****CARD 1, 9- 11, 41 ****FILE 140 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 9, 14, 24, 43 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 9, 13, 14, 24, 43 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9, 13, 43 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 9, 13, 14, 24, 43 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 9, 13, 14, 24, 43 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 10, 13, 14, 24, 43 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 10, 13, 14, 24, 43 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 10, 13, 14, 24, 43 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 10, 13, 14, 24, 43 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT/MFF,MAA/OMIT $ ****CARD 1- 11, 13, 14, 24, 43 ****FILE 106,123 $$$$ COND LBL5,OMIT $ ****CARD 1- 11, 13, 14, 24, 43 ****FILE 106,113,123 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11, 13, 43 ****FILE 106,113 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 11, 13, 14, 24 ****FILE 123 $$$$ LABEL LBL5 $ ****CARD 1- 11, 13, 14, 24, 43 ****FILE 106,113,123 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $ ****CARD 1, 9- 12, 40, 56, 58, 60 ****FILE 111 $$$$ COND ERROR2,NOEED $ ****CARD 1, 9- 12, 40, 56, 58, 60 ****FILE 111 ****RFMT 187-204,207-209 $$$$ EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 7, 9- 12, 14, 22- 24, 56, 58 ****FILE 115 $$$$ CYCT2 CYCD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS=-1/V,Y, KINDEX=-1/V,Y,CYCSEQ=-1/1/S,N,NOGO $ ****CARD 1- 11, 41, 43 ****FILE 141 $$$$ COND ERROR7,NOGO $ ****CARD 1- 11, 41, 43 ****FILE 141 $$$$ READ KKK,MKK,,,EED,,CASECC/LAMK,PHIK, ,OEIGS/*MODES*/S,N, NEIGV $ ****CARD 1- 14, 24, 41, 43, 58, 59 ****FILE 142 $$$$ OFP OEIGS,LAMK,,,,//S,N,CARDNO $ ****CARD 1- 14, 24, 41, 43, 58, 59 $$$$ COND ERROR4,NEIGV $ ****CARD 1- 14, 24, 41, 43, 58, 59 ****FILE 142 ****RFMT 187-204,207-209 $$$$ CYCT2 CYCD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y, KINDEX/V,Y,CYCSEQ/1/S,N,NOGO $ ****CARD 1- 11, 24, 41, 43, 58, 59 ****FILE 112 $$$$ COND ERROR7,NOGO $ ****CARD 1- 11, 24, 41, 43, 58, 59 ****FILE 112 $$$$ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,/1/*REIG* $ ****CARD 1- 11, 24, 41, 43, 58, 59 ****FILE 143 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,,PHIG,EST,,,/ ,,OPHIG,,,PPHIG,,/*REIG* $ ****CARD 18, 19 ****FILE 108 $$$$ OFP OPHIG,,,,,//S,N,CARDNO $ ****CARD 19 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 110,121 $$$$ PURGE PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 110 $$$$ COND PZZ,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 110,121 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/ S,N,NSILZ/S,N,JUMPZ=-1 $ ****SBST 7 ****CARD 18 ****FILE 110 $$$$ PRTMSG PLTSETZ// $ ****SBST 7 ****CARD 18 $$$$ COND PZZ,JUMPZ $ ****SBST 7 ****CARD 18 ****FILE 121 $$$$ PLOT PLTPARZ,GPSETSZ,ELSETSZ,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,,,,/ PLOTZ/NSILZ/LUSET/JUMPZ/PLTFLGZ=-1/S,N,PFILEZ=0 $ ****SBST 7 ****CARD 18 ****FILE 121 $$$$ PRTMSG PLOTZ// $ ****SBST 7 ****CARD 18 $$$$ LABEL PZZ $ ****SBST 7 ****CARD 18 ****FILE 110,121 $$$$ APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,FLIST,GTKA,PVECT/ S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/V,Y,MTYPE/ NEIGV/V,Y,KINDEX $ $$$$ ****CARD 1, 2, 9- 12, 34- 37, 41- 43 ****FILE 124,126,144 $$$$ PARTN PHIA,PVECT,/PHIAX,,,/1 $ ****CARD 1, 2, 9- 12, 41, 43, 58, 59 ****FILE 145 $$$$ SMPYAD PHIAX,MAA,PHIAX,,,/MI/3/1/1/0/1 $ ****CARD 1, 2, 9- 12, 41, 43, 58, 59 ****FILE 136 $$$$ MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ ****CARD 1, 22, 23, 40, 56, 57 ****FILE 114 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1, 2, 4, 22, 23, 40, 56, 57 ****FILE 114,139 $$$$ EQUIV M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $ ****CARD 1, 2, 4, 9, 11, 22, 23, 40, 56, 57 ****FILE 114,139 $$$$ GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/ *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/ NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/-1/-1/-1 $ ****CARD 1- 4, 6, 8- 11, 13, 14, 22, 23, 40- 43, 56, 57 ****FILE 115,139 $$$$ GKAM USETD,PHIAX,MI,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH, PHIDH/NOUE/C,Y,LMODES=999999/C,Y,LFREQ=0.0/C,Y,HFREQ=0.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y, KDAMP=-1 $ ****CARD 1- 14, 22- 24, 40- 43, 55- 59, 62 ****FILE 116 ****RFMT 187,196-198 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 125,134 $$$$ PLTSET PCDB,EQDYN,ECT,/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL1/S,N, JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ PRTMSG PLTSETX//$ ****SBST 7 ****CARD 18 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQDYN,,,,,,,/PLOTX1/NSIL1/ LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PRTMSG PLOTX1//$ ****SBST 7 ****CARD 18 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 125,134 $$$$ PARAM //*ADD*/DESTRY/0/1 $ ****CARD 1, 29, 35, 37 ****FILE 127 ****RFMT 187-204,207-209 $$$$ AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $ ****CARD 1, 29, 34, 35, 37, 42, 43 ****FILE 127 $$$$ PURGE D1JE,D2JE/NODJE $ ****CARD 26, 37 ****FILE 128 $$$$ COND NODJE,NODJE $ ****CARD 26, 37 ****FILE 128 $$$$ INPUTT2 /D1JE,D2JE,,,/C,Y,POSITION=-1/C,Y,UNITNUM=11/C,Y,USRLABEL= TAPEID $ ****CARD 26, 37 ****FILE 128 $$$$ LABEL NODJE $ ****CARD 26, 37 ****FILE 128 $$$$ PARAM //*ADD*/XQHHL/1/0 $ ****CARD 1- 13, 24, 26, 29, 32, 34, 35, 37, 41- 43, 56, 58, 59, 62 ****FILE 138 $$$$ AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,,/ NOUE/S,N,XQHHL $ ****CARD 1- 13, 24, 26, 29, 32, 34, 35, 37, 41- 43, 56, 58, 59, 62 ****FILE 138 $$$$ PARAM //*MPY*/NOP/1/1 $ ****CARD 21 $$$$ PARAM //*MPY*/NOH/0/1 $ ****CARD 21 ****RFMT 187-204,207-209 $$$$ PARAM //*MPY*/FLOOP/V,Y,NODJE=-1/0 $ ****CARD 1- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL LOOPTOP $ ****CARD 1- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-209 $$$$ FA1 KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/S,N,FLOOP/ S,N,TSTART/S,N,NOCEAD $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 129 $$$$ EQUIV KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/ KXHH,PHIHL/NOCEAD/BXHH,CLAMAL/NOCEAD/ CASECC,CASEYY/NOCEAD $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 117,130 $$$$ COND VDR,NOCEAD $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 117,119,130 $$$$ CEAD KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 117 $$$$ COND LBLZAP,EIGVS $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 119,130 $$$$ LABEL VDR $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 117 $$$$ VDR CASECC,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/ 123/S,N,NOH/S,N,NOP/FMODE $ ****CARD 21 ****FILE 119 $$$$ COND LBL16,NOH $ ****CARD 21 ****FILE 119 $$$$ OFP OPHIH,,,,,//S,N,CARDNO $ ****CARD 21 $$$$ LABEL LBL16 $ ****CARD 21 ****FILE 119 $$$$ FA2 PHIH,CLAMA,FSAVE/PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/C,Y,VREF= 1.0/C,Y,PRINT=YESB $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 130 $$$$ COND CONTINUE,TSTART $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 130 ****RFMT 187-204,207-209 $$$$ LABEL LBLZAP $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 119,130 ****RFMT 187-204,207-209 $$$$ COND CONTINUE,FLOOP $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 129 ****RFMT 187-204,207-209 $$$$ REPT LOOPTOP,100 $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ JUMP ERROR3 $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL CONTINUE $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ PARAML XYCDB//*PRES*////NOXYCDB $ ****SBST 7 ****CARD 20 ****FILE 146 $$$$ COND NOXYOUT,NOXYCDB $ ****SBST 7 ****CARD 20 ****FILE 146 $$$$ XYTRAN XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 146 $$$$ XYPLOT XYPLTCE//$ ****SBST 7 ****CARD 20 ****FILE 146 $$$$ LABEL NOXYOUT $ ****SBST 7 ****CARD 20 ****FILE 146 $$$$ PARAM //*AND*/PJUMP/NOP=-1/JUMPPLOT $ ****CARD 1- 13, 21, 24, 26, 29, 32, 34- 43, 55- 62 $$$$ COND FINIS,PJUMP $ ****CARD 1- 13, 21, 24, 26, 29, 32, 34- 43, 55- 62 $$$$ MODACC CASEYY,CLAMAL,PHIHL,CASECC,,/CLAMAL1,CPHIH1,CASEZZ,,/ *CEIGN* $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 131,133 $$$$ DDR1 CPHIH1,PHIDH/CPHID $ ****CARD 1- 13, 24, 26, 29, 32, 34, 36- 43, 55- 62 ****FILE 118 $$$$ EQUIV CPHID,CPHIP/NOA $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 120 $$$$ COND LBL14,NOA $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 120 $$$$ SDR1 USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 120 $$$$ LABEL LBL14 $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 120 $$$$ EQUIV CPHID,CPHIA/NOUE $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 132 $$$$ COND LBLNOE,NOUE $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 132,135 $$$$ VEC USETD/RP/*D*/*A*/*E* $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 135 $$$$ PARTN CPHID,,RP/CPHIA,,,/1/3 $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 132 $$$$ LABEL LBLNOE $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 132,135 $$$$ SDR2 CASEZZ,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDT,CLAMAL1,QPC,CPHIP, EST,,,/,OQPC1,OCPHIP,OESC1,OEFC1,PCPHIP,,/*CEIGN* $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 137 $$$$ OFP OCPHIP,OQPC1,OESC1,OEFC1,,//S,N,CARDNO $ ****CARD 19 $$$$ COND P3,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 147 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASEZZ,BGPDT,EQDYN,SILD,,PCPHIP,,,,/ PLOTX3/NSIL1/LUSET/JUMPPLOT/PLTFLG/PFILE $ ****SBST 7 ****CARD 18 ****FILE 147 $$$$ PRTMSG PLOTX3//$ ****SBST 7 ****CARD 18 $$$$ LABEL P3 $ ****SBST 7 ****CARD 18 ****FILE 147 $$$$ JUMP FINIS $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ PRTPARM //-1/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ PRTPARM //-2/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ PRTPARM //-3/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ PRTPARM //-4/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ PRTPARM //-5/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ PRTPARM //-6/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR7 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ PRTPARM //-7/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ END $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ $*CARD BITS 1 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 1 ADUM8 ADUM9 AXIC AXIF AXSLOT 1 CELAS1 CELAS2 CELAS3 CELAS4 1 CMASS1 CMASS2 CMASS3 CMASS4 1 CORD1C CORD1R CORD1S CORD2C CORD2R CORD2S 1 GRDSET GRID GRIDB 1 POINTAX RINGAX RINGFL 1 SECTAX SEQGP SPOINT 2 BAROR 2 CAXIF2 CAXIF3 CAXIF4 CBAR CCONEAX CDUM1 2 CDUM2 CDUM3 CDUM4 CDUM5 CDUM6 CDUM7 CDUM8 2 CDUM9 CFLUID2 CFLUID3 CFLUID4 CHEXA1 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 2 CNGRNT CONROD CQUAD4 CTRIA3 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 2 CROD CSHEAR CSLOT3 CSLOT4 CTETRA CTRBSC CTRAPAX 2 CTRIAAX CTRIARG CTORDRG CTRAPRG CTRIA1 CTRIA2 CTRIM6 2 CTRMEM CTRPLT CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 PDUM7 PDUM8 PDUM9 3 PIHEX PQDMEM PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 3 PROD PSHEAR PTORDRG PTRAPAX PTRBSC PTRIA1 3 PTRIA2 PTRIM6 PTRIAAX PTRMEM PTRPLT PTUBE PTWIST 3 PSHELL PCOMP PCOMP1 PCOMP2 4 GENEL 5 CONM1 CONM2 6 PELAS 7 PMASS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 8 TEMPMT$ TEMPMX$ 9 AXISYM 9 CRIGD1 CRIGD2 CRIGD3 CRIGDR 9 CRROD CRBAR CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE 9 MPC MPCADD MPC$ MPCAX 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 11 OMIT OMIT1 OMITAX 12 SUPAX SUPORT 13 TEMP TEMPAX TEMPD 13 TEMPP1 TEMPP2 TEMPP3 TEMPRB 15 GRDPNT 16 PLOTEL 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 24 COUPMASS CPBAR CPDPLT CPTRBSC 24 CPQUAD1 CPQUAD2 CPROD CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 24 WTMASS 26 NODJE 29 PAERO1 PAERO2 PAERO3 PAERO4 PAERO5 32 SET1 SET2 SPLINE1 SPLINE2 SPLINE3 34 MKAERO1 MKAERO2 35 AEFACT 36 FLFACT FLUTTER 37 AERO 37 CAERO1 CAERO2 CAERO3 CAERO4 CAERO5 38 FMETHOD$ 39 VREF 40 TF 41 CTYPE CYCSEQ CYJOIN 41 KINDEX NSEGS 42 IREF 42 MAXMACH MINMACH MTYPE 42 STREAML STREAML1 STREAML2 43 KGGIN 55 SDAMP$ 55 TABDMP1 56 EPOINT 56 SEQEP 57 B2PP$ 57 DMIG 57 K2PP$ 57 M2PP$ 57 TF$ 58 EIGR 59 METHOD$ 60 EIGC EIGP 61 CMETHOD$ 62 HFREQ 62 LFREQ LMODES 62 KDAMP $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 KAA 107 OGPWG 108 OPHIG PPHIG 109 KTOTAL 110 ELSETZ GPSETZ PLTPARZ PLTSETZ 111 EED EQDYN GPLD SILD TFPOOL USETD 112 LAMA PHIA 113 GO KOO LOO 114 B2PP K2PP M2PP 115 GMD GOD 116 PHIDH MHH KHH BHH 117 CLAMA OCEIGS PHIH 118 CPHID 119 OPHIH 120 CPHIP QPC 121 PLOTZ 122 KDICT KELM MDICT MELM 123 MAA 124 ACPT AERO FLIST 125 ELSETS GPSETS PLTPAR PLTSETX 126 GTKA 127 AJJL D1JK D2JK SKJ 128 D1JE D2JE 129 BXHH 129 FSAVE KXHH MXHH 130 CASEYY CLAMAL OVG PHIHL 131 CLAMAL1 CPHIH1 132 CPHIA 133 CASEZZ 134 PLOTX1 135 RP 136 MI 137 OCPHIP OEFC1 OESC1 OQPC1 PCPHIP 138 QHHL 139 B2DD K2DD M2DD 140 CYCD 141 KKK MKK 142 LAMK OEIGS PHIK 143 PHIG 144 PVECT 145 PHIAX 146 XYPLTCE 147 PLOTX3 148 MPT $* ================================================ FILE: rf/DISP0 ================================================ APR.95 <== THE YEAR OF THIS DATE MUST MATCH THE NASTRAN RELEASE YEAR $$$$$$$$ THIS BEGINS THE 1ST PART OF THE RIGID FORMAT BEGIN DISP0 - DUMMY RIGID FORMAT TO ILLUSTRATE HOW TO WRITE A NEW R. REFERENCE: "THE DESIGN AND USAGE OF THE NEW DATA MANAGEMENT FE IN NASTRAN" BY P. R. PAMIDI AND W. K. BROWN, PP.11 12TH NASTRAN USERS' COLLOQUIUM, MAY 1984 (NASA C.P UPDATE SUBROUTINES XRGDFM AND XCSA, AND RELINK LINK1 TO INCLUD SOLUTION NUMBER AND ITS ANALYSIS HEADING. NOTE: IN THIS WRITE-UP, RIGID FORMAT CARDS ARE IN UPPER CASE AND COMMENTS ARE IN LOWER CASE, OR AFTER <==, OR <<< WRITTEN BY G.CHAN/UNISYS 7/1990. (PLEASE INFORM ME IF ERROR IS $$$$ SYMBOL OF 4 OR MORE $ IS A COMMENT LINE. BLANK LINE IS NOT ALL MODULE1 I1,,/O1//*P1* <== SEE NASTRAN USER'S MANUAL FOR DMAP RULES < DMAP NAME BEGINS ON COLUMN 1 (VALID UP TO CO <<< NEXT 7 CARDS BEGIN WITH '****'. THEY CAN BE < IF RESTART AND/OR SUBSTRUCTURE ARE NOT INVOL ****CARD 1-20,30,40 <== RESTART INPUT DATA CHANGE INFORMATION ****FILE 100-103,110 <== RESTART DATA FILE CHANGE INFORMATION < THE ABOVE CHANGE INFORMATION IS USED SUBSEQU < TO DETERMINE THE DMAP STATEMENTS TO BE FLAGG < EXECUTION IN MODIFIED RESTART. ****SBST 1,2,9 <== DMAP SEQUENCE SUBSET CONTROL (1 THRU 9). < THIS DMAP IS DELETED IF USER SPECIFIED A SUB < ON SOL CARD THAT MATCHES THE NO. ON THIS SBS ****RFMT 188,200-204 <== RESTART RIGID FORMAT SWITCH: < 187-204 FOR APPROACH DISP, 207-209 FOR APP H < AND 214-215 FOR APPROACH AERO. < THIS DMAP IS FLAGGED FOR EXECUTION IN A MODI < RESTART IF THE PREVIOUS CHECKPOINT RUN HAD A < NO. LISTED ON THIS RFMT LINE. ****PHS1 I1 <== PHSI IS SUBSTRUCTURE PHASE NUMBER CONTROL (I ****PHS2 DB5 < MUST BE FOLLOWED BY IN, DN, DBN, OR DEN FLAG ****PHS3 D7 < N=1 FOR PHASE 1, 5 OR 8 PHASE 2, 1 OR 7 PHAS < (REFERING TO ASCM01, 05, 07 OR 08 SUBROUTINE < 'I' IN 'IN' INDICATES INSERT AFTER THIS DMAP < 'D' IN 'DN' INDICATES DELETION OR REPLACEMEN < DMAP ALTER. 'DBN' AND 'DEN' ARE BEGIN AND EN < DELETION/REPLACEMENT BY GROUP OF CONTIGUOUS < (CURRENTLY SUBSTRUCTURE IN APP DISP1,2,3,8,9 $$$$ IMPORTANT. A COMMENT LINE IS NEEDED BEFORE A NEW DMAP LINE. MODULES2 I2/O2/*P2* $ <== '$' ON DMAP LINE IS OPTIONAL ****CARD 1-40,45 ****FILE 101,111 $$$$ * '*' ON A 4-DOLLAR COMMENT LINE IS COSMETIC : : $$$$ END ****CARD ... ****RFMT ... $$$$ THIS COMMENT IS NEEDED BEFORE THE 2ND PART OF THE RIGID FORMAT BY $*CARD BITS <== CARD NAME TALBE, 1 THRU 93, FOR MODIFIED RESTART ON $$$$ 1 AXIC AXIF CELAS1 CELAS2 <== FREE FIELD, ALPHA-NUMERI 2 ADUM1 CDUM1 ETC < UP TO 8 CHARACTER CARD N : SPC : SPC$ <== ITEM FOLLOWED BY $ INDICATES CASE CONTROL RELATED C : 93 : $$$$ THIS COMMENT IS NEEDED BEFORE THE 3RD PART OF THE RIGID FORMAT BY $*FILE BITS <== FILE NAME TABLE, 94 THRU 186, FOR MODIFIED RESTART $$$$ 94 SLT GPTT <== FREE FIELD, ALPHA-NUMERIC, UP TO 8 CHARACTE 95 KGGX GPST < FILE NAMES ETC : 186 : $* THIS VERY LAST LINE IS NEEDED. ================================================ FILE: rf/DISP1 ================================================ APR.95 $$$$$$$$ BEGIN DISP 01 - STATIC ANALYSIS - APR. 1995 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ FILE OPTP2=SAVE/EST1=SAVE $ ****SBST 9 ****CARD 1- 20, 22- 24, 28, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $ ****SBST 1, 3 ****CARD 1- 20, 22- 24, 28, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 5- 10, 14, 15, 18, 19, 22- 24, 28, 61 ****FILE 101,114,119,121-125,127 ****PHS1 I1 $$$$ COMPOFF 1,INTERACT $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PRECHK ALL $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ COMPON 1,INTERACT $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PRECHK BGPDT,EQEXIN,SIL,SIP,ECT,GPECT, OUGV1,OES1,OEF1,OPG1,OQG1,PUGV1, OUGV2,OES2,OEF2,OPG2,OQG2,DUMMY, OES1L,OEF1L,ONRGY1 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ COMPOFF LBLINT02,SYS21 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 ****PHS2 D5 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 130 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 130 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 129 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115,120 ****PHS2 DB5 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115,120 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115,120 ****PHS2 DE5 $$$$ GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ ****CARD 1, 2, 13, 60, 61 ****FILE 96 $$$$ PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ ****CARD 1, 2, 15, 61 ****FILE 96, 99 ****RFMT 188-204,207-209 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 ****FILE 97 $$$$ PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****PHS2 DB5 ****RFMT 188-204,207-209 $$$$ COND ERROR4,NOELMT $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****PHS2 DE5 ****RFMT 188-204,207-209 $$$$ PURGE KGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 98 $$$$ OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ ****SBST 9 ****CARD 1- 6, 8, 13 ****FILE 117 $$$$ LABEL LOOPTOP $ ****SBST 9 ****CARD 1- 6 ****FILE 117 $$$$ COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 13- 16, 24, 61 ****FILE 98, 99,116,121 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EQUIV OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ ****SBST 9 ****CARD 1- 6, 13, 16 ****FILE 118 ****PHS2 D5 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 15, 24, 61 ****FILE 116 $$$$ COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE MGG/NOMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ COND JMPMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 116 $$$$ LABEL JMPMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 121 $$$$ COND ERROR2,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 121 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 121 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 121 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 8, 13- 16, 24, 61 ****FILE 98, 99,116,121 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 ****PHS2 DB5 $$$$ COND LBL11A,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11A $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 ****PHS2 DE5 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12, 22, 23, 31, 59 ****FILE 101 $$$$ LABEL LBL11 $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20, 22, 23, 28, 31, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 12, 22, 23, 28 ****FILE 101 $$$$ COND ERROR3,NOL $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 188-204,207-209 ****PHS1 I1 $$$$ PARAM //*AND*/NOSR/SINGLE/REACT $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 $$$$ PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 103,105-107,109,111,113 $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 104 $$$$ COND LBL2,MPCF2 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9, 22, 23 ****FILE 103 $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ EQUIV KAA,KLL/REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 ****PHS1 DB1 ****PHS3 DB1 $$$$ COND LBL6,REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ LABEL LBL6 $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 108 $$$$ COND LBL7,REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ LABEL LBL7 $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 ****PHS1 DE1 ****PHS3 DE1 $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ ****CARD 1- 3, 5, 6, 8, 13, 22, 23, 59- 62 ****FILE 110 $$$$ EQUIV PG,PL/NOSET $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 ****FILE 111 ****PHS1 DB1 $$$$ COND LBL10,NOSET $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 ****FILE 111 ****PHS3 DB7 $$$$ SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 ****FILE 111 $$$$ LABEL LBL10 $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 ****FILE 111 $$$$ SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ NSKIP/S,N,EPSI $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****FILE 112 ****RFMT 188 $$$$ COND LBL9,IRES $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 188-204,207-209 $$$$ MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 188-204,207-209 $$$$ MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 188-204,207-209 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 188-204,207-209 ****PHS3 DE7 $$$$ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ *STATICS* $ ****CARD 1- 6, 8- 13, 22, 23, 59- 62 ****FILE 113 ****RFMT 188-204,207-209 ****PHS3 I7 $$$$ COND LBL8,REPEAT $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ REPT LBL11,360 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ JUMP ERROR1 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ PARAM //*NOT*/TEST/REPEAT $ ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ COND ERROR5,TEST $ ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ LABEL LBL8 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ GPFDR CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/ *STATICS* $ ****CARD 18, 19 ****FILE 119 ****PHS2 DB5 $$$$ PURGE KDICT,KELM/REPEAT $ ****CARD 1- 3, 6, 8, 18, 19 ****FILE 116 $$$$ OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ ****CARD 18, 19 ****FILE 119 $$$$ COND NOMPCF,GRDEQ $ ****CARD 7 ****FILE 127 $$$$ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ ****CARD 7 ****FILE 127 $$$$ OFP OQM1,,,,,//S,N,CARDNO $ ****CARD 7 ****FILE 127 $$$$ LABEL NOMPCF $ ****CARD 7 ****FILE 127 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L, OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ ****CARD 18, 19 ****FILE 114 $$$$ COND LBLSTRS,STRESS $ ****CARD 18, 19 ****FILE 122 $$$$ CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/ V,Y,NINTPTS $ ****CARD 18, 19 ****FILE 122 $$$$ LABEL LBLSTRS $ ****CARD 18, 19 ****FILE 122 $$$$ PURGE OES1M/STRESS $ ****CARD 18, 19 ****FILE 122 $$$$ COND LBLSTRN,STRNFLG $ ****CARD 18, 19 ****FILE 123,124 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/ ,,,OES1A,,,,/*STATICS*//1 $ ****CARD 18, 19 ****FILE 123 $$$$ COND LBLSTRN,STRAIN $ ****CARD 18, 19 ****FILE 124 $$$$ CURV OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/ V,Y,NINTPTS $ ****CARD 18, 19 ****FILE 124 $$$$ LABEL LBLSTRN $ ****CARD 18, 19 ****FILE 123,124 $$$$ PURGE OES1A/STRNFLG $ ****CARD 18, 19 ****FILE 123,124 $$$$ COND LBL17,NOSORT2 $ ****CARD 18, 19, 29 ****FILE 125,126 $$$$ SDR3 OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $ ****CARD 18, 19 ****FILE 125 $$$$ PARAM //*SUB*/PRTSORT2/NOSORT2/1 $ ****CARD 18, 19 ****FILE 125 $$$$ COND LBLSORT1,PRTSORT2 $ ****CARD 18, 19 ****FILE 125 $$$$ OFP OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $ ****CARD 18, 19 ****FILE 125 $$$$ SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ ****CARD 19 ****FILE 125 $$$$ OFP OESF2,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 125 $$$$ JUMP LBLXYPLT $ ****CARD 18, 19 ****FILE 125 $$$$ LABEL LBLSORT1 $ ****CARD 18, 19 ****FILE 125 $$$$ OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 18, 19 ****FILE 114 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 18, 19 ****FILE 114 $$$$ SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ ****CARD 19 ****FILE 114 $$$$ OFP OESF1,OESF1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ LABEL LBLXYPLT $ ****CARD 18, 19 ****FILE 125 $$$$ OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ ****CARD 18, 19 ****FILE 114 $$$$ XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 29 ****FILE 126 $$$$ XYPLOT XYPLTT// $ ****SBST 7 ****CARD 29 ****FILE 126 $$$$ JUMP DPLOT $ ****SBST 7 ****CARD 29 ****FILE 126 $$$$ LABEL LBL17 $ ****CARD 18, 19, 29 ****FILE 125,126 $$$$ PURGE OUGV2/NOSORT2 $ ****CARD 18, 19 ****FILE 125,126 $$$$ COND LBLOFP,COUNT $ ****SBST 9 ****CARD 18, 19 ****FILE 118 $$$$ OPTPR2 OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N, CARDNO $ ****SBST 9 ****CARD 18, 19 ****FILE 118 $$$$ EQUIV EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $ ****SBST 9 ****CARD 18, 19 ****FILE 97,117 $$$$ COND LOOPEND,PRINT $ ****SBST 9 ****CARD 18, 19 ****FILE 118,128 $$$$ LABEL LBLOFP $ ****SBST 9 ****CARD 18, 19 ****FILE 118 $$$$ OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $ ****CARD 19 ****FILE 114 $$$$ OFP OESF1X,OESF1Y,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ ****CARD 19 ****FILE 122-124 $$$$ LABEL DPLOT $ ****SBST 7 ****CARD 18, 29 ****FILE 126 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 128 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18, 29 ****FILE 128 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18, 29 ****FILE 128 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 128 $$$$ LABEL LOOPEND $ ****SBST 9 ****CARD 18, 22, 23 ****FILE 128 ****PHS1 DE1 ****PHS2 DE5 $$$$ COND FINIS,COUNT $ ****SBST 9 ****CARD 18, 22, 23 $$$$ REPT LOOPTOP,360 $ ****SBST 9 ****CARD 18, 22, 23 $$$$ JUMP FINIS $ ****CARD 1- 20, 22- 24, 28, 29, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ LABEL ERROR1 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ PRTPARM //-1/*STATICS* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ LABEL ERROR2 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 121 ****RFMT 188-204,207-209 $$$$ PRTPARM //-2/*STATICS* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 121 ****RFMT 188-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 188-204,207-209 $$$$ PRTPARM //-3/*STATICS* $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 188-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 188-204,207-209 $$$$ PRTPARM //-4/*STATICS* $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 188-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ PRTPARM //-5/*STATICS* $ ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 24, 28, 29, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 24, 28, 29, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ LABEL LBLINT02 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COMPON LBLINT01,SYS21 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PARAM //*SYST*//86/1 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SETVAL //V,N,PFILE/0 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ LABEL AGAIN $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PROMPT1 //S,N,PEXIT/S,N,PLOT1/S,N,PLOT2/S,N,XYPLOT/ S,N,SCAN1/S,N,SCAN2 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COND LBLINT1,PEXIT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PARAM //*OR*/V,N,PLOTZ/V,N,PLOT1/V,N,PLOT2 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PARAM //*NOT*/V,N,NOPLOTZ/V,N,PLOTZ $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COND STEPPLOT,NOPLOTZ $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PURGE PLTSETR,PLTPARR,GPSETR,ELSETR/NOPLOTZ $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PLTSET PCDB,EQEXIN,ECT,/PLTSETR,PLTPARR,GPSETR,ELSETR/S,N,NSIL/ S,N,JUMPPLOT $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PRTMSG PLTSETR $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COND LBLINT2,PLOT2 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SETVAL //S,N,PLTFG1/1 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PLOT PLTPARR,GPSETR,ELSETR,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/ PLOTX3/NSIL/LUSET/JUMPPLOT/PLTFG1/S,N,PFILE $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PRTMSG PLOTX3 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SITEPLOT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE PLTSETR,PLTPARR,GPSETR,ELSETR $ ****CARD 1-20,22-24,28,31,59-62 $$$$ JUMP LBLINTEX $ ****CARD 1-20,22-24,28,31,59-62 $$$$ LABEL LBLINT2 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SETVAL //S,N,PLTFG2/-1 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PLOT PLTPARR,GPSETR,ELSETR,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT, OES1,OES1L,ONRGY1/PLOTX4/NSIL/LUSEP/JUMPPLOT/PLTFG2/S,N,PFILE $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PRTMSG PLOTX4// $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SITEPLOT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE PLTSETR,PLTPARR,GPSETR,ELSETR $ ****CARD 1-20,22-24,28,31,59-62 $$$$ JUMP LBLINTEX $ ****CARD 1-20,22-24,28,31,59-62 $$$$ LABEL STEPPLOT $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PARAM //*OR*/V,N,SCANZ/V,N,SCAN1/V,N,SCAN2 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PARAM //*NOT*/V,N,NOSCANZ/V,N,SCANZ $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COND STEPSCAN,NOSCANZ $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE OESF1I,OESF2I/NOSCANZ $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COND LBLINT3,SCAN2 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1I,OESF1J/*OL1* $ ****CARD 1-20,22-24,28,31,59-62 $$$$ OFP OESF1I,OESF1J,,,,//S,N,CARDNO $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE OESF1I,OESF1J $ ****CARD 1-20,22-24,28,31,59-62 $$$$ JUMP LBLINTEX $ ****CARD 1-20,22-24,28,31,59-62 $$$$ LABEL LBLINT3 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SCAN CASECC,OES2,OEF2,,/OESF2I,/*OL2* $ ****CARD 1-20,22-24,28,31,59-62 $$$$ OFP OESF2I,,,,,//S,N,CARDNO $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE OESF2I $ ****CARD 1-20,22-24,28,31,59-62 $$$$ JUMP LBLINTEX $ ****CARD 1-20,22-24,28,31,59-62 $$$$ LABEL STEPSCAN $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PARAM //*NOT*/V,N,NOXYPT/V,N,XYPLOT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COND LBLINTEX,NOXYPT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE XYPLTI/NOXYPT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTI/*TRAN*/ *PSET*/S,N,PFILE/S,N,CARDNO $ ****CARD 1-20,22-24,28,31,59-62 $$$$ XYPLOT XYPLTI// $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SITEPLOT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE XYPLTI $ ****CARD 1-20,22-24,28,31,59-62 $$$$ JUMP LBLINTEX $ ****CARD 1-20,22-24,28,31,59-62 $$$$ LABEL LBLINTEX $ ****CARD 1-20,22-24,28,31,59-62 $$$$ REPT AGAIN,400 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PRTPARM //1/*STATICS* $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ LABEL LBLINT1 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ LABEL LBLINT01 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ END $ ****CARD 1- 24, 28, 29, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CHBDY CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CONROD CQDMEM CQDMEM1 CQDMEM2 2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA CTORDRG 2 CTRAPAX CQUAD4 CTRIA3 2 CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG CTRIM6 2 CTRMEM 2 CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PHBDY PIHEX PQDMEM PQDMEM1 3 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR PTORDRG 3 PTRAPAX PSHELL PCOMP PCOMP1 PCOMP2 3 PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM PTRPLT 3 PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 7 AOUT$ 8 MAT1 MAT2 MAT3 MAT4 MAT5 MATT1 MATT2 8 MATT3 MAT8 MAT6 8 MATT4 MATT5 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ 8 TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 OPT GRDEQ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 STRESS 26 STRAIN 27 NINTPTS 28 AUTOSPC 29 XYOUT$ 31 NOLOOP$ 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 GRAV RFORCE 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 GPECT EST GEI MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 RG USET YS ASET OGPST 102 GPST 103 GM 104 KNN 105 KFF KFS KSS 106 GO KAA KOO LOO 107 KLL KLR KRR 108 LLL 109 DM 110 PG 111 PL PO PS QR 112 RULV RUOV ULV UOOV 113 PGG QG UGV 114 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 114 OEF1L OES1L OESF1 OESF1L OESF1X OESF1Y 115 ELSETS GPSETS PLTPAR PLTSETX 116 KDICT KELM MDICT MELM 117 OPTP1 118 OPTP2 EST1 119 OGPFB1 ONRGY1 120 PLOTX1 121 OGPWG 122 OES1M OES1G 123 OES1A 124 OES1AM OES1AG 125 OUGV2 OPG2 OQG2 OEF2 OES2 OESF2 126 XYPLTT 127 OQM1 128 PLOTX2 129 BGPDP SIP 130 MPT $* ================================================ FILE: rf/DISP10 ================================================ APR.95 $$$$$$$$ BEGIN DISP 10 - MODAL COMPLEX EIGENVALUE ANALYSIS - APR. 1995 $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ FILE GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 12, 14, 15, 19- 24, 56- 62 ****FILE 101,112,117,118,121,126 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 128 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 128 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 127 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122,125 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122,125 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122,125 $$$$ GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 25, 56- 62 ****FILE 97 $$$$ COND ERROR5,NOSIMP $ ****CARD 1, 2, 5, 6, 8, 16 ****FILE 97 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8, 24 ****FILE 124 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 24 ****FILE 124 ****RFMT 187,190-192 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 124 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ LABEL JMPKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 ****RFMT 187,190-192 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 $$$$ COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 126 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 126 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 126 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 126 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 17, 20 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 20 ****FILE 101 $$$$ PARAM //*AND*/NOSR/REACT/SINGLE $ ****CARD 1, 9- 12 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS/SINGLE/QPC/NOSR/KLR,KRR,MLR,MRR, DM,MR/REACT $ ****CARD 1, 9- 12 ****FILE 103,105-107,109,110,115,120 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 123 $$$$ COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,123 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 123 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,123 $$$$ COND LBL6,REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107-110 $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12 ****FILE 108 $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12 ****FILE 109 $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 110 $$$$ LABEL LBL6 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107-110 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/ NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $ ****CARD 1, 9- 12, 56, 58, 60 ****FILE 111 $$$$ COND ERROR2,NOEED $ ****CARD 1, 9- 12, 56, 58, 60 ****FILE 111 ****RFMT 187-195,197-204,207-209 $$$$ EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 59 ****FILE 115 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 112 $$$$ READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 58, 59 ****FILE 112 $$$$ OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 58, 59 ****FILE 112 $$$$ COND ERROR4,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 58, 59 ****FILE 112 ****RFMT 187-195,197-204,207-209 $$$$ OFP LAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 58, 59 ****FILE 112 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 22, 23 ****FILE 117-121 $$$$ PARAM //*MPY*/REPEATE/1/-1 $ ****CARD 1- 6, 8- 14, 16, 22, 23, 56- 62 ****FILE 113 ****RFMT 187-195,197-204,207-209 $$$$ LABEL LBL13 $ ****SBST 1, 3 ****CARD 1- 6, 8- 16, 18, 19, 21- 23, 56- 62 ****FILE 113 ****RFMT 187-195,197-204,207-209 $$$$ PURGE PHIH,CLAMA,OPHIH,CPHID,CPHIP,QPC,OQPC1,OCPHIP,OESC1,OEFC1, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ ****CARD 22, 23 ****FILE 117-121 $$$$ CASE CASECC,/CASEXX/*CEIGN*/S,N,REPEATE/S,N,NOLOOP $ ****CARD 1- 6, 8- 14, 16, 19, 21- 23, 25, 56- 62 ****FILE 113 ****RFMT 187-195,197-204,207-209 $$$$ MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ ****CARD 1, 22, 23, 56, 57 ****FILE 114 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 114 $$$$ EQUIV M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 114 $$$$ GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD, M2DD,B2DD/*CMPLEV*/*DISP*/*MODAL*/0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/-1/-1/ -1/-1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 56, 57 ****FILE 115 $$$$ GKAM USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/ NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 59, 62 ****FILE 116 $$$$ CEAD KHH,BHH,MHH,EED,CASEXX/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 117 $$$$ OFP OCEIGS,,,,,//S,N,CARDNO $ ****CARD 56- 62 ****FILE 117 $$$$ COND LBL17,EIGVS $ ****CARD 1- 6, 8- 12, 14, 19, 21- 24, 56- 62 ****FILE 117,118 $$$$ OFP CLAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 22- 24 ****FILE 117 $$$$ VDR CASEXX,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/ NOSORT2/S,N,NOH/S,N,NOP/FMODE $ ****CARD 19, 21 ****FILE 118 $$$$ COND LBL16,NOH $ ****CARD 21 ****FILE 118 $$$$ OFP OPHIH,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 118 $$$$ LABEL LBL16 $ ****CARD 21 ****FILE 117,118 $$$$ COND LBL17,NOP $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 119 $$$$ DDR1 PHIH,PHIDH/CPHID $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 119 $$$$ EQUIV CPHID,CPHIP/NOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 120 ****RFMT 187-195,197-204,207-209 $$$$ COND LBLNOA,NOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 120 ****RFMT 187-195,197-204,207-209 $$$$ SDR1 USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 120 ****RFMT 187-195,197-204,207-209 $$$$ LABEL LBLNOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 120 ****RFMT 187-195,197-204,207-209 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,CLAMA,QPC,CPHIP,EST,,,/ ,OQPC1,OCPHIP,OESC1,OEFC1,,,/*CEIGEN* $ ****CARD 19 ****FILE 121 $$$$ OFP OCPHIP,OQPC1,OEFC1,OESC1,,//S,N,CARDNO $ ****CARD 19 ****FILE 121 $$$$ LABEL LBL17 $ ****CARD 1- 6, 8- 12, 14, 19, 21- 24, 56- 62 $$$$ COND FINIS,REPEATE $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-195,197-204,207-209 $$$$ REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-195,197-204,207-209 $$$$ PRTPARM //-3/*MDLCEAD* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-195,197-204,207-209 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 56, 58, 60 ****FILE 101 ****RFMT 187-195,197-204,207-209 $$$$ PRTPARM //-2/*MDLCEAD* $ ****CARD 1, 9- 12, 56, 58, 60 ****FILE 101 ****RFMT 187-195,197-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 ****RFMT 187-195,197-204,207-209 $$$$ PRTPARM //-1/*MDLCEAD* $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 ****RFMT 187-195,197-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 8- 12, 14, 24, 58, 59 ****FILE 112 ****RFMT 187-195,197-204,207-209 $$$$ PRTPARM //-4/*MDLCEAD* $ ****CARD 1- 6, 8- 12, 14, 24, 58, 59 ****FILE 112 ****RFMT 187-195,197-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1, 2, 5, 6, 8, 16 ****FILE 97 ****RFMT 187-195,197-204,207-209 $$$$ PRTPARM //-5/*MDLCEAD* $ ****CARD 1, 2, 5, 6, 8, 16 ****FILE 97 ****RFMT 187-195,197-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 ASETOUT 18 PLOT$ 19 POUT$ 20 AUTOSPC 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 56 EPOINT SEQEP TF 57 DMIG DMIAX B2PP$ K2PP$ M2PP$ TF$ 58 EIGR 59 METHOD$ 60 EIGC EIGP 61 CMETHOD$ 62 LFREQ LMODES HFREQ SDAMP$ TABDMP1 $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KOO LOO KAA 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 EED EQDYN GPLD SILD TFPOOL USETD 112 LAMA MI PHIA OEIGS 113 CASEXX 114 B2PP K2PP M2PP 115 GMD GOD B2DD K2DD M2DD 116 BHH KHH MHH PHIDH 117 CLAMA OCEIGS PHIH 118 OPHIH 119 CPHID 120 CPHIP QPC 121 OCPHIP OEFC1 OESC1 OQPC1 122 ELSETS GPSETS PLTPAR PLTSETX 123 MAA 124 KDICT KELM MDICT MELM 125 PLOTX1 126 OGPWG 127 BGPDP SIP 128 MPT $* ================================================ FILE: rf/DISP11 ================================================ APR.95 $$$$$$$$ BEGIN DISP 11 - MODAL FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ FILE GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 12, 14, 15, 19, 21, 24, 29, 59, 60 ****FILE 101,112,118,119,122,123,136 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 142 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 142 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 141 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 126,135 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 126,135 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 126 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 126 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 135 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 135 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 135 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 135 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 135 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 126,135 $$$$ GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****FILE 97 $$$$ COND ERROR7,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8, 24 ****FILE 128 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 24 ****FILE 128 ****RFMT 187,190-192 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 128 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 128 $$$$ LABEL JMPKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 24 ****FILE 128 ****RFMT 187,190-192 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 128 $$$$ COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 136 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 136 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 136 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 136 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 28, 29 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 29 ****FILE 101 $$$$ PARAM //*AND*/NOSR/REACT/SINGLE $ ****CARD 1, 9- 12 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF/SINGLE/QPC/NOSR/KLR,KRR,MLR, MRR,DM,MR/REACT/MDD/MODACC $ ****CARD 1, 9- 12 ****FILE 103,105-107,109,110,115,117,121 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 127 $$$$ COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,127 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 127 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,127 $$$$ EQUIV KAA,KLL/REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ COND LBL6,REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ JUMP LBL8 $ ****CARD 1- 4, 6, 8- 12 ****FILE 107 $$$$ LABEL LBL6 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ COND LBL7,MODACC $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 108-110 $$$$ LABEL LBL8 $ ****CARD 1- 4, 6, 8- 12 ****FILE 107 $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12 ****FILE 108 $$$$ COND LBL7,REACT $ ****CARD 1- 4, 6, 8- 12, 14, 24 ****FILE 109 $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12 ****FILE 109 $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 110 $$$$ LABEL LBL7 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 108-110 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,, EED,EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ S,N,NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $ ****CARD 1, 9- 12, 55, 56, 58, 59 ****FILE 111 $$$$ COND ERROR2,NOEED $ ****CARD 1, 9- 12, 55, 56, 58, 59 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ PURGE UEVF/NOUE $ ****CARD 1, 9- 12, 55, 56, 58, 59 ****FILE 120 $$$$ EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56, 57, 59, 60 ****FILE 115 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 112 $$$$ READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 $$$$ OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 $$$$ COND ERROR4,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 ****RFMT 187-196,198-204,207-209 $$$$ OFP LAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 22, 23 ****FILE 114,115,122,123,125,130-134,137,138,140 $$$$ PARAM //*MPY*/REPEATF/1/-1 $ ****CARD 1- 6, 8- 14, 16, 19- 23, 27, 53- 62 ****FILE 113 ****RFMT 187-196,198-204,207-209 $$$$ LABEL LBL13 $ ****SBST 1, 3 ****CARD 1- 6, 8- 16, 18- 23, 53- 62 ****FILE 113 ****RFMT 187-196,198-204,207-209 $$$$ PURGE OUHVC1,OUHVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,K2PP,M2PP, B2PP,K2DD,M2DD,B2DD,OPPCA,IQP1,IPHIP1,IES1,IEF1,OPPCB,IQP2, IPHIP2,IES2,IEF2,ZQPC2,ZUPVC2,ZESC2,ZEFC2,ZQPC1,ZUPVC1,ZESC1, ZEFC1/NEVER $ ****CARD 19- 23, 27 ****FILE 114,115,118,119,122,123,125,130-134,137,138,140 $$$$ CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ ****CARD 1- 6, 8- 14, 16, 19- 23, 25, 27, 53- 62 ****FILE 113 ****RFMT 187-196,198-204,207-209 $$$$ MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ ****CARD 1, 22, 23, 56, 57 ****FILE 114 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 115 $$$$ PARAM //*AND*/MDEMA/NOUE/NOM2PP $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 115 $$$$ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 115 $$$$ GKAD USETD,GM,GO,,,MAA,,K2PP,M2PP,B2PP/,,MDD,GMD, GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*MODAL*/0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/-1/-1/ 1/V,Y,MODACC = -1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 53, 56, 57, 60 ****FILE 115 $$$$ GKAM USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/ NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56, 57, 59, 60, 62 ****FILE 116 $$$$ COND ERROR5,NOFRL $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ COND ERROR6,NODLT $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ FRRD CASEXX,USETD,DLT,FRL,GMD,GOD,KHH,BHH,MHH,PHIDH,DIT/UHVF,PSF, PDF,PPF/*DISP*/*MODAL*/LUSETD/MPCF1/SINGLE/ OMIT/NONCUP/S,N,FRQSET $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 117 $$$$ EQUIV PPF,PDF/NOSET $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 117 $$$$ VDR CASEXX,EQDYN,USETD,UHVF,PPF,XYCDB,/OUHVC1,/*FREQRESP*/ *MODAL*/S,N,NOSORT2/S,N,NOH/S,N,NOP/FMODE $ ****CARD 19- 21, 27 ****FILE 118 $$$$ COND LBL16,NOH $ ****CARD 21, 27 ****FILE 118,119,137 $$$$ COND LBL16A,NOSORT2 $ ****CARD 21, 27 ****FILE 118,119,137 $$$$ SDR3 OUHVC1,,,,,/OUHVC2,,,,, $ ****CARD 21, 27 ****FILE 119 $$$$ OFP OUHVC2,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 119 $$$$ XYTRAN XYCDB,OUHVC2,,,,/XYPLTFA/*FREQ*/*HSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 27 ****FILE 137 $$$$ XYPLOT XYPLTFA // $ ****SBST 7 ****CARD 27 ****FILE 137 $$$$ JUMP LBL16 $ ****CARD 21, 27 ****FILE 137 $$$$ LABEL LBL16A $ ****CARD 21, 27 ****FILE 118,119,137 $$$$ OFP OUHVC1,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 118 $$$$ LABEL LBL16 $ ****CARD 20, 21, 27 ****FILE 118,119,137 $$$$ COND LBL14,NOP $ ****CARD 1- 6, 8- 12, 14, 19, 20, 22- 24, 26, 53- 62 ****FILE 120-125,129-134,138-140 $$$$ PARAM //*NOT*/NOMOD/V,Y,MODACC $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 $$$$ COND LBDDRM,MODACC $ ****CARD 1- 6, 8- 12, 14, 19, 20, 22- 24, 53, 56- 62 ****FILE 120-124 $$$$ DDR1 UHVF,PHIDH/UDV1F $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 124 $$$$ DDR2 USETD,UDV1F,PDF,K2DD,B2DD,MDD,PPF,LLL,DM/UDV2F,UEVF,PAF/ *FREQRESP*/NOUE/REACT/FRQSET $ ****SBST 2, 3 ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 120 $$$$ EQUIV UDV2F,UDV1F/NOMOD $ ****SBST 2, 3 ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 124 $$$$ EQUIV UDV1F,UPVC/NOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 121 ****RFMT 187-196,198-204,207-209 $$$$ COND LBLNOA,NOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 121 ****RFMT 187-196,198-204,207-209 $$$$ SDR1 USETD,,UDV1F,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 121 ****RFMT 187-196,198-204,207-209 $$$$ LABEL LBLNOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 121 ****RFMT 187-196,198-204,207-209 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST, XYCDB,PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUGV,,/*FREQ*/ S,N,NOSORT2 $ ****CARD 19, 20 ****FILE 122 $$$$ COND LBL18,NOSORT2 $ ****CARD 1- 6, 8- 12, 14, 19, 20, 22- 24, 26, 53- 62 ****FILE 122,123,125,129-134,138-140 $$$$ SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2, OEFC2, $ ****CARD 19, 20 ****FILE 123 $$$$ JUMP P2A $ ****CARD 19, 20 ****FILE 123 $$$$ LABEL LBDDRM $ ****CARD 1- 6, 8- 12, 14, 19, 20, 22- 24, 53, 56- 62 ****FILE 120-124 $$$$ SDR1 USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIPH,,QPH/1/*DYNAMICS* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 129 ****RFMT 187-196,198-204,207-209 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,LAMA,QPH,PHIPH,EST,XYCDB,,/ ,IQP1,IPHIP1,IES1,IEF1,,,/*MMREIG*/S,N,NOSORT2 $ ****CARD 19, 20 ****FILE 130 $$$$ SDR2 CASEXX,CSTM,MPT,,EQDYN,SILD,,,,PPF,,,EST,XYCDB,PPF,/OPPCA, ,,,,,,/*FREQ* $ ****CARD 19, 20 ****FILE 131 $$$$ EQUIV OPPCA,OPPC1/MODACC $ ****CARD 19, 20 ****FILE 122 $$$$ COND LBLSORT,NOSORT2 $ ****CARD 19, 20 ****FILE 123,132,133 $$$$ SDR3 IQP1,IPHIP1,IES1,IEF1,OPPCA,/IQP2,IPHIP2,IES2,IEF2,OPPCB, $ ****CARD 19, 20 ****FILE 132 $$$$ EQUIV OPPCB,OPPC2/MODACC $ ****CARD 19, 20 ****FILE 123 $$$$ DDRMM CASEXX,UHVF,PPF,IPHIP2,IQP2,IES2,IEF2,XYCDB,EST,MPT,DIT/ ZUPVC2,ZQPC2,ZESC2,ZEFC2, $ ****CARD 19, 20 ****FILE 133 $$$$ EQUIV ZUPVC2,OUPVC2/MODACC/ZQPC2,OQPC2/MODACC/ZESC2,OESC2/MODACC/ ZEFC2,OEFC2/MODACC $ ****CARD 19, 20 ****FILE 123 $$$$ JUMP P2A $ ****CARD 19, 20 ****FILE 123 $$$$ LABEL LBLSORT $ ****CARD 19, 20 ****FILE 123,132,133 $$$$ DDRMM CASEXX,UHVF,PPF,IPHIP1,IQP1,IES1,IEF1,,EST,MPT,DIT/ ZUPVC1,ZQPC1,ZESC1,ZEFC1, $ ****CARD 19, 20 ****FILE 134 $$$$ EQUIV ZUPVC1,OUPVC1/MODACC/ZQPC1,OQPC1/MODACC/ZESC1,OESC1/MODACC/ ZEFC1,OEFC1/MODACC $ ****CARD 19, 20 ****FILE 122 $$$$ JUMP LBL18 $ ****CARD 19, 20 ****FILE 134 $$$$ LABEL P2A $ ****CARD 19, 20 ****FILE 123 $$$$ OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $ ****CARD 19 ****FILE 123 $$$$ XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 138 $$$$ XYPLOT XYPLTF// $ ****SBST 7 ****CARD 20 ****FILE 138 $$$$ COND LBL21,JUMPPLOT $ ****SBST 7 ****CARD 20 ****FILE 139 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,,,,/ PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 20 ****FILE 139 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 20 ****FILE 139 $$$$ LABEL LBL21 $ ****SBST 7 ****CARD 20 ****FILE 139 $$$$ COND LBL14,NOPSDL $ ****CARD 20, 26, 54, 55 ****FILE 125 ****RFMT 187-196,198-204,207-209 $$$$ RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ ****CARD 26, 54, 55 ****FILE 125 ****RFMT 187-196,198-204,207-209 $$$$ COND LBL14,NORD $ ****CARD 26, 54, 55 ****FILE 140 $$$$ XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 140 $$$$ XYPLOT XYPLTR// $ ****SBST 7 ****CARD 20 ****FILE 140 $$$$ JUMP LBL14 $ ****CARD 20 ****FILE 140 $$$$ LABEL LBL18 $ ****CARD 1- 6, 8- 12, 14, 19, 20, 22- 24, 26, 53- 62 ****FILE 122,123,125,129-134,138-140 $$$$ OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $ ****CARD 19 ****FILE 122 $$$$ LABEL LBL14 $ ****CARD 1- 6, 8- 12, 14, 19, 20, 22- 24, 26, 53- 62 ****FILE 120-125,129-134,138-140 $$$$ COND FINIS,REPEATF $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-196,198-204,207-209 $$$$ REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-196,198-204,207-209 $$$$ PRTPARM //-3/*MDLFRRD* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-196,198-204,207-209 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 55, 56, 58, 59 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ PRTPARM //-2/*MDLFRRD* $ ****CARD 1, 9- 12, 55, 56, 58, 59 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 128 ****RFMT 187-196,198-204,207-209 $$$$ PRTPARM //-1/*MDLFRRD* $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 128 ****RFMT 187-196,198-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 ****RFMT 187-196,198-204,207-209 $$$$ PRTPARM //-4/*MDLFRRD* $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 ****RFMT 187-196,198-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ PRTPARM //-5/*MDLFRRD* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ PRTPARM //-6/*MDLFRRD* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ LABEL ERROR7 $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-196,198-204,207-209 $$$$ PRTPARM //-7/*MDLFRRD* $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-196,198-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 26 RANDOM$ 27 AXYOUT$ 28 ASETOUT 29 AUTOSPC 53 MODACC 54 TABRND1 TABRND2 TABRND3 TABRND4 55 RANDPS RANDT1 RANDT2 56 EPOINT SEQEP TF 57 DMIAX DMIG B2PP$ K2PP$ M2PP$ TF$ 58 DAREA DELAY DLOAD DPHASE FREQ FREQ1 FREQ2 58 RLOAD1 RLOAD2 TABLED1 TABLED2 TABLED3 TABLED4 59 EIGR 60 METHOD$ 61 DECOMOPT DLOAD$ FREQ$ 62 HFREQ LFREQ LMODES TABDMP1 SDAMP$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KOO LOO KAA 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 DLT EED EQDYN FRL GPLD PSDL SILD 111 TFPOOL USETD 112 LAMA MI OEIGS PHIA 113 CASEXX 114 B2PP K2PP M2PP 115 B2DD GMD GOD K2DD M2DD MDD 116 BHH KHH MHH PHIDH 117 PDF PPF PSF UHVF 118 OUHVC1 119 OUHVC2 120 PAF UDV2F UEVF 121 QPC UPVC 122 OEFC1 OESC1 OPPC1 OQPC1 OUPVC1 123 OEFC2 OESC2 OPPC2 OQPC2 OUPVC2 124 UDV1F 125 AUTO PSDF 126 ELSETS GPSETS PLTPAR PLTSETX 127 MAA 128 KDICT KELM MDICT MELM 129 PHIPH QPH 130 IEF1 IES1 IPHIP1 IQP1 131 OPPCA 132 IEF2 IES2 IPHIP2 OPPCB IQP2 133 ZEFC2 ZESC2 ZQPC2 ZUPVC2 134 ZEFC1 ZESC1 ZQPC1 ZUPVC1 135 PLOTX1 136 OGPWG 137 XYPLTFA 138 XYPLTF 139 PLOTX2 140 XYPLTR 141 BGPDP SIP 142 MPT $* ================================================ FILE: rf/DISP12 ================================================ APR.95 $$$$$$$$ BEGIN DISP 12 - MODAL TRANSIENT RESPONSE ANALYSIS - APR. 1995 $ ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ PRECHK ALL $ ****SBST 6 ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ FILE LAMA=APPEND/PHIA=APPEND/UHVT=APPEND/TOL=APPEND/ RLODDISP=APPEND $ ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 12, 14, 15, 19, 21, 24, 28, 59, 60 ****FILE 101,112,119,123,134 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 139 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 139 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 138 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 125,133 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125,133 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 133 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 133 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 133 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 133 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 133 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125,133 $$$$ GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ ****CARD 1, 2, 13, 61 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 28, 55- 62 ****FILE 97 $$$$ COND ERROR6,NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 127 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8 ****FILE 127 ****RFMT 187,190-192 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 24 ****FILE 127 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 127 $$$$ LABEL JMPKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 127 ****RFMT 187,190-192 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 127 $$$$ COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 134 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 134 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 134 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 134 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 26, 28 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 28 ****FILE 101 $$$$ PARAM //*AND*/NOSR/REACT/SINGLE $ ****CARD 1, 9- 12 ****FILE 121 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST/SINGLE/QP/NOSR/KLR,KRR,MLR,MR, MRR,DM/REACT $ ****CARD 1, 9- 12 ****FILE 103,105-107,109,110,114,117,121 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 126 $$$$ COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,126 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 126 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,126 $$$$ EQUIV KAA,KLL/REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ COND LBL6,REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ JUMP LBL8 $ ****CARD 1- 4, 6, 8- 12 ****FILE 107 $$$$ LABEL LBL6 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ COND LBL7,MODACC $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 108-110 $$$$ LABEL LBL8 $ ****CARD 1- 4, 6, 8- 12 ****FILE 107 $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12 ****FILE 108 $$$$ COND LBL7,REACT $ ****CARD 1- 4, 6, 8- 12 ****FILE 109 $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12 ****FILE 109 $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 110 $$$$ LABEL LBL7 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 108-110 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL, EED ,EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/ NOFRL/S,N,NONLFT/S,N,NOTRL/S,N,NOEED//S,N,NOUE $ ****CARD 1, 9- 12, 56, 58, 59 ****FILE 111 $$$$ COND ERROR2,NOEED $ ****CARD 1, 9- 12, 56, 58, 59 ****FILE 111 ****RFMT 187-197,199-204,207-209 $$$$ PURGE UEVT/NOUE/PNLH/NONLFT $ ****CARD 1, 9- 12, 56, 58, 59 ****FILE 120,128 $$$$ EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 57, 59, 60 ****FILE 114 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 112 $$$$ READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 $$$$ OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 $$$$ COND ERROR4,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 ****RFMT 187-197,199-204,207-209 $$$$ OFP LAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 $$$$ MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ ****CARD 1, 22, 23, 56, 57 ****FILE 113 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 113 $$$$ PARAM //*AND*/MDEMA/NOUE/NOM2PP $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 113 $$$$ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 113 $$$$ GKAD USETD,GM,GO,,,MAA,,K2PP,M2PP,B2PP/,,MDD,GMD, GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*MODAL*/0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/-1/-1/ 1/V,Y,MODACC = -1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 55- 57, 60 ****FILE 114 $$$$ GKAM USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,PHIDH/ NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56, 57, 59, 60, 62 ****FILE 115 $$$$ COND ERROR5,NOTRL $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56, 57, 59, 60, 62 ****FILE 117 ****RFMT 187-197,199-204,207-209 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 22, 23 ****FILE 118,119,122,123,128,130-132 $$$$ PARAM //*MPY*/REPEATT/1/-1 $ ****CARD 1- 6, 8- 14, 16, 19- 24, 27, 55- 62 ****FILE 116 ****RFMT 187-197,199-204,207-209 $$$$ LABEL LBL13 $ ****SBST 1, 3 ****CARD 1- 6, 8- 16, 18- 24, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ PURGE PNLH,OUHV1,OPNL1,OUHV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1,OEF1, OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT,OPPA,IQP1,IPHIP1,IES1, IEF1,OPPB,IQP2,IPHIP2,IES2,IEF2,ZQP2,ZUPV2,ZES2,ZEF2/NEVER $ ****CARD 19- 23, 27 ****FILE 118,119,122,123,128,130-132,135-137,139 $$$$ CASE CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $ ****CARD 1- 6, 8- 14, 16, 19- 25, 27, 55- 62 ****FILE 116 ****RFMT 187-197,199-204,207-209 $$$$ PARAM //*MPY*/NCOL/0/1 $ ****SBST 4 ****CARD 1- 6, 8- 12, 14, 24, 56, 57, 59, 60 ****FILE 117 $$$$ TRLG CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,PHIDH, EST,MGG,/PPT,PST,PDT,PD,PH,TOL/S,N,NOSET/NCOL $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 117 $$$$ EQUIV PPT,PDT/NOSET $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 117 $$$$ TRD CASEXX,TRL,NLFT,DIT,KHH,BHH,MHH,PH/UHVT,PNLH,RLODDISP/*MODAL*/ NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $ ****CARD 1- 6, 8- 12, 14, 17, 22- 24, 56- 62 ****FILE 128 $$$$ VDR CASEXX,EQDYN,USETD,UHVT,TOL,XYCDB,PNLH/OUHV1,OPNL1/ *TRANRESP*/*MODAL*/0/S,N,NOH/S,N,NOP/FMODE $ ****CARD 19- 21, 27 ****FILE 118 $$$$ COND LBL16,NOH $ ****CARD 21, 27 ****FILE 119,135 $$$$ SDR3 OUHV1,OPNL1,,,,/OUHV2,OPNL2,,,, $ ****CARD 21, 27 ****FILE 119 $$$$ OFP OUHV2,OPNL2,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 119 $$$$ XYTRAN XYCDB,OUHV2,OPNL2,,,/XYPLTTA/*TRAN*/*HSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 27 ****FILE 135 $$$$ XYPLOT XYPLTTA// $ ****SBST 7 ****CARD 27 ****FILE 135 $$$$ LABEL LBL16 $ ****CARD 21, 27 ****FILE 119,135 $$$$ PARAM //*AND*/PJUMP/NOP/JUMPPLOT $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 120 $$$$ COND LBL15,PJUMP $ ****CARD 1- 6, 8- 12, 14, 18- 20, 22- 24, 55- 62 ****FILE 120-124,129-132,136,137,139 $$$$ PARAM //*NOT*/NOMOD/V,Y,MODACC $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 124 $$$$ PARAM //*AND*/MPJUMP/V,Y,MODACC/JUMPPLOT $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 120-124 $$$$ COND LBDDRM,MPJUMP $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 120-124 $$$$ DDR1 UHVT,PHIDH/UDV1T $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 124 $$$$ COND LBLMOD,MODACC $ ****SBST 2, 3 ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 120 $$$$ DDR2 USETD,UDV1T,PDT,K2DD,B2DD,MDD,,LLL,DM/UDV2T,UEVT,PAF/ *TRANRESP*/NOUE/REACT/0 $ ****SBST 2, 3 ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 120 $$$$ EQUIV UDV2T,UDV1T/NOMOD $ ****SBST 2, 3 ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 124 $$$$ LABEL LBLMOD $ ****SBST 2, 3 ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 120 $$$$ EQUIV UDV1T,UPV/NOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 121 $$$$ COND LBL14,NOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 121 ****RFMT 187-197,199-204,207-209 $$$$ SDR1 USETD,,UDV1T,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 121 ****RFMT 187-197,199-204,207-209 $$$$ LABEL LBL14 $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 121 ****RFMT 187-197,199-204,207-209 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB, PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $ ****CARD 18- 20 ****FILE 122 $$$$ SDR3 OPP1,OQP1,OUPV1,OES1,OEF1,/OPP2,OQP2,OUPV2,OES2,OEF2, $ ****CARD 18- 20 ****FILE 123 $$$$ JUMP P2A $ ****CARD 18- 20 ****FILE 123 $$$$ LABEL LBDDRM $ ****CARD 1- 6, 8- 12, 14, 18- 20, 22- 24, 55- 62 ****FILE 120-124 $$$$ SDR1 USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIPH,,QPH/1/*DYNAMICS* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 129 ****RFMT 187-197,199-204,207-209 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,LAMA,QPH,PHIPH,EST,XYCDB,,/ ,IQP1,IPHIP1,IES1,IEF1,,,/*MMREIG* $ ****CARD 18- 20 ****FILE 130 $$$$ SDR2 CASEXX,,,,EQDYN,SILD,,,,TOL,,,,XYCDB,PPT,/OPPA,,,,,,,/ *TRANRESP* $ ****CARD 18- 20 ****FILE 139 $$$$ SDR3 OPPA,IQP1,IPHIP1,IES1,IEF1,/OPPB,IQP2,IPHIP2,IES2,IEF2, $ ****CARD 18- 20 ****FILE 131 $$$$ EQUIV OPPB,OPP2/MODACC $ ****CARD 18- 20 ****FILE 123 $$$$ DDRMM CASEXX,UHVT,TOL,IPHIP2,IQP2,IES2,IEF2,,EST,MPT,DIT/ ZUPV2,ZQP2,ZES2,ZEF2, $ ****CARD 18- 20 ****FILE 132 $$$$ EQUIV ZUPV2,OUPV2/MODACC/ZQP2,OQP2/MODACC/ZEF2,OEF2/MODACC/ZES2,OES2/ MODACC $ ****CARD 18- 20 ****FILE 123 $$$$ LABEL P2A $ ****CARD 18- 20 ****FILE 123 $$$$ OFP OUPV2,OPP2,OQP2,OEF2,OES2,//S,N,CARDNO $ ****CARD 19 ****FILE 123 $$$$ SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ ****CARD 19 ****FILE 123 $$$$ OFP OESF2,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 123 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 136 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,,,,/PLOTX2/ NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 136 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 136 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 136 $$$$ XYTRAN XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/ S,N,PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 137 $$$$ XYPLOT XYPLTT// $ ****SBST 7 ****CARD 20 ****FILE 137 $$$$ LABEL LBL15 $ ****CARD 1- 6, 8- 12, 14, 18- 20, 22- 24, 55- 62 ****FILE 120-124,129-132,136,137,139 $$$$ COND FINIS,REPEATT $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-197,199-204,207-209 $$$$ REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-197,199-204,207-209 $$$$ PRTPARM //-3/*MDLTRD* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-197,199-204,207-209 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 56, 58, 59 ****FILE 101 ****RFMT 187-197,199-204,207-209 $$$$ PRTPARM //-2/*MDLTRD* $ ****CARD 1, 9- 12, 56, 58, 59 ****FILE 101 ****RFMT 187-197,199-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 6, 8, 24 ****FILE 127 ****RFMT 187-197,199-204,207-209 $$$$ PRTPARM //-1/*MDLTRD* $ ****CARD 1- 3, 5, 6, 8, 24 ****FILE 127 ****RFMT 187-197,199-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 ****RFMT 187-197,199-204,207-209 $$$$ PRTPARM //-4/*MDLTRD* $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 ****RFMT 187-197,199-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56, 57, 59, 60, 62 ****RFMT 187-197,199-204,207-209 $$$$ PRTPARM //-5/*MDLTRD* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56, 57, 59, 60, 62 ****RFMT 187-197,199-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-197,199-204,207-209 $$$$ PRTPARM //-6/*MDLTRD* $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-197,199-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCADD MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 ISTART 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 26 ASETOUT 27 AXYOUT$ 28 AUTOSPC 55 MODACC 56 EPOINT SEQEP TF 57 DMIAX DMIG B2PP$ K2PP$ M2PP$ TF$ 58 DAREA DELAY DLOAD FORCE FORCE1 FORCE2 GRAV 58 MOMENT 58 MOMENT1 MOMENT2 NOLIN1 NOLIN2 NOLIN3 NOLIN4 NOLIN6 58 PLOAD PLOAD4 58 PLOAD1 PLOAD2 SLOAD TABLED1 TABLED2 TABLED3 TABLED4 58 TLOAD1 TLOAD2 TSTEP 59 EIGR 60 METHOD$ 61 DLOAD$ NLFORCE TSTEP$ 62 HFREQ LFREQ LMODES TABDMP1 SDAMP$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KOO LOO KAA 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 DLT EED EQDYN GPLD NLFT SILD TFPOOL 111 TRL USETD 112 LAMA MI OEIGS PHIA 113 B2PP K2PP M2PP 114 B2DD GMD GOD K2DD M2DD MDD 115 BHH KHH MHH PHIDH 116 CASEXX 117 PD PDT PH PPT PST TOL 118 OPNL1 OUHV1 119 OPNL2 OUHV2 120 PAF UDV2T UEVT 121 QP UPV 122 OEF1 OES1 OPP1 OQP1 OUPV1 PUGV 123 OEF2 OES2 OPP2 OQP2 OUPV2 OESF2 124 UDV1T 125 ELSETS GPSETS PLTPAR PLTSETX 126 MAA 127 KDICT KELM MDICT MELM 128 PNLH UHVT RLODDISP 129 PHIPH QPH 130 IEF1 IES1 IPHIP1 IQP1 131 IEF2 IES2 IPHIP2 IQP2 OPPB 132 ZEF2 ZES2 ZQP2 ZUPV2 133 PLOTX1 134 OGPWG 135 XYPLTTA 136 PLOTX2 137 XYPLTT 138 BGPDP SIP 139 MPT $* ================================================ FILE: rf/DISP13 ================================================ APR.95 $$$$$$$$ BEGIN DISP 13 - NORMAL MODES WITH DIFFERENTIAL STIFFNESS - APR. 1995 $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 21- 24, 57- 62 ****RFMT 187-198,200,201-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 21- 24, 57- 62 ****RFMT 187-198,200,201-204,207-209 $$$$ FILE LAMA=APPEND/PHIA=APPEND $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 21- 24, 57- 62 ****RFMT 187-198,200,201-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 11, 14- 16, 19, 21, 23, 24, 57- 62 ****FILE 101,112,118,120,130,132 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 136 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 136 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 135 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 121,131 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 121 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121,131 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 131 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 131 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 131 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 131 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 131 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121,131 $$$$ GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ ****CARD 1, 2, 13, 57, 60 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 21- 24, 57- 62 ****FILE 97 $$$$ COND ERROR1,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-198,200,201-204,207-209 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 24, 57 ****FILE 123 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND ERROR5,NOMGG $ ****CARD 1- 3, 5, 8, 24, 57 ****FILE 123 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 99 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 123 $$$$ COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 132 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 132 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 132 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 132 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 11 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 11, 22, 23, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 23 ****FILE 101 $$$$ COND ERROR6,NOL $ ****CARD 1, 9- 11, 22, 23, 59 ****FILE 101 ****RFMT 187-198,200,201-204,207-209 $$$$ COND LBL4D,REACT $ ****CARD 1, 11 ****RFMT 187-189,193-198 $$$$ JUMP ERROR2 $ ****CARD 1, 11 ****RFMT 187-189,193-198 $$$$ LABEL LBL4D $ ****CARD 1, 11 ****RFMT 187-189,193-198 $$$$ PARAM //*AND*/NOSR/SINGLE/REACT $ ****CARD 1, 10, 11 ****FILE 111 $$$$ PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS/SINGLE/ QG/NOSR $ ****CARD 1, 9- 11, 59 ****FILE 103,105,106,109-111 $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ RBMG2 KAA/LLL $ ****CARD 1- 4, 6, 8- 11 ****FILE 107 $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/1/COMPS $ ****CARD 1- 3, 5, 6, 8, 57- 60 ****FILE 108 $$$$ EQUIV PG,PL/NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 57- 60 ****FILE 109 $$$$ COND LBL10,NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 57- 60 ****FILE 109 $$$$ SSG2 USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 11, 57- 60 ****FILE 109 $$$$ LABEL LBL10 $ ****CARD 1- 3, 5, 6, 8- 11, 57- 60 ****FILE 109 $$$$ SSG3 LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ 1/S,N,EPSI $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 110 ****RFMT 188 $$$$ COND LBL9,IRES $ ****CARD 1- 6, 8- 11, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 6, 8- 11, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 11, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 11, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PGG,QG/1/ *BKL0* $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 111 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, ,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *BKL0*////COMPS $ ****CARD 19 ****FILE 112 $$$$ OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/C,N,*RF* $ ****FILE 112 ****CARD 19 $$$$ OFP OESF1,OESF1L,,,,//S,N,CARDNO $ ****FILE 112 ****CARD 19 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 133 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,, GPECT,OES1,OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 133 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 133 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 133 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/ NOSIMP/0/NOGENL/GENEL $ ****CARD 1- 6, 8- 10, 57- 60 ****FILE 113 $$$$ DSMG1 CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/ S,N,DSCOSET $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 113 $$$$ EQUIV KDGG,KDNN/MPCF2 / MGG,MNN/MPCF2 $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 104,114 $$$$ COND LBL2D,MPCF2 $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ MCE2 USET,GM,KDGG,MGG,,/KDNN,MNN,, $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ LABEL LBL2D $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ EQUIV KDNN,KDFF/SINGLE / MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 105,115 $$$$ COND LBL3D,SINGLE $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ SCE1 USET,KDNN,MNN,,/KDFF,KDFS,KDSS,MFF,, $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ LABEL LBL3D $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ EQUIV KDFF,KDAA/OMIT / MFF,MAA/OMIT $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116,122 $$$$ COND LBL5D,OMIT $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116,122 $$$$ SMP2 USET,GO,KDFF/KDAA $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 122 $$$$ LABEL LBL5D $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116,122 $$$$ PARAM //*ADD*/DSCOSET/-1/0 $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 125 $$$$ EQUIV PL,PBL/DSCOSET/PS,PBS/DSCOSET/YS,YBS/DSCOSET/UOOV,UBOOV/ DSCOSET $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 125 $$$$ PARAM //*MPY*/NDSKIP/0/0 $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 125,126 $$$$ DSMG2 MPT,KAA,KDAA,KFS,KDFS,KSS,KDSS,PL,PS,YS,UOOV/KBLL,KBFS,KBSS, PBL,PBS,YBS,UBOOV/S,N,NDSKIP/S,N,REPEATD/DSCOSET $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 125,126 $$$$ RBMG2 KBLL/LBLL/S,N,POWER/S,N,DET $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 127 $$$$ PRTPARM //0/*DET* $ ****CARD 1- 6, 8- 11, 21, 57- 60 $$$$ PRTPARM //0/*POWER* $ ****CARD 1- 6, 8- 11, 21, 57- 60 $$$$ SSG3 LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/ S,N,EPSI $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 128 $$$$ COND LBL9D,IRES $ ****CARD 1- 6, 8- 11, 21, 57- 60 $$$$ MATGPR GPL,USET,SIL,RUBLV//*L* $ ****CARD 1- 6, 8- 11, 21, 57- 60 $$$$ LABEL LBL9D $ ****CARD 1- 6, 8- 11, 21, 57- 60 $$$$ SDR1 USET,,UBLV,UBOOV,YBS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/NDSKIP/ *DS1* $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 129 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST, ,,PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/ *DS1*////COMPS $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 130 $$$$ OFP OQBG1,OUBGV1,OESB1,OEFB1,,//S,N,CARDNO $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 130 $$$$ OFP OEFB1L,OESB1L,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 130 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 117 $$$$ COND ERROR3,NOEED $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 117 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 $$$$ READ KBLL,MAA,,,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV/3 $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 $$$$ OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 $$$$ COND ERROR4,NEIGV $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 $$$$ OFP LAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 $$$$ SDR1 USET,,PHIA,,,GO,GM,,KDFS,,/PHIG,,BQG/1/*REIG* $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 119 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ CASE CASECC,/CASEXX/*TRANRESP*/KEPEAT=3/LOOP $ ****CARD 1- 6, 8- 11, 13, 14, 16, 18, 19, 21, 24, 57- 62 ****FILE 120 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,BQG,PHIG,EST,,, PCOMPS/,OBQG1,OPHIG,OBES1,OBEF1,PPHIG,OBES1L,OBEF1L/ *REIG*////COMPS $ ****CARD 18, 19 ****FILE 120 $$$$ OFP OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ OFP OBEF1L,OBES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ COND P3,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT, OBES1,OBES1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PRTMSG PLOTX3// $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ LABEL P3 $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 24, 57- 62 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ PRTPARM //-1/*NMDS* $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 11 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ PRTPARM //-2/*NMDS* $ ****CARD 1, 11 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 117 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ PRTPARM //-3/*NMDS* $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 117 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ PRTPARM //-4/*NMDS* $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL ERROR5 $ ****SBST 8 ****CARD 1- 3, 5, 8, 24, 57 ****FILE 133 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ PRTPARM //-5/*NMDS* $ ****SBST 8 ****CARD 1- 3, 5, 8, 24, 57 ****FILE 133 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1, 9- 11, 22, 23, 59 ****FILE 111 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ PRTPARM //-6/*NMDS* $ ****CARD 1, 9- 11, 22, 23, 59 ****FILE 111 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 24, 57- 62 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 24, 57- 62 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 24, 57- 62 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 FREEPT GRDSET GRID GRIDB POINTAX PRESPT RINGAX 1 RINGFL SECTAX SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFLUID2 2 CFLUID3 2 CFLUID4 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CONROD 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD 2 CSHEAR CTETRA CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 2 CTRIA2 CQUAD4 CTRIA3 2 CTRIAAX CTRIARG CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL 2 CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS FSLIST 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 21 DSFACT DSCO$ 22 ASETOUT 23 AUTOSPC 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 57 GRAV RFORCE 58 TEMPLD$ 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 EIGR 62 METHOD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET YS OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS KSS MFF 106 GO KAA KOO LOO 107 LLL 108 PG 109 PL PO PS 110 RULV RUOV ULV UOOV 111 PGG QG UGV 112 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 112 OEF1L OES1L OESF1 OESF1L 113 KDGG 114 KDNN 115 KDFF KDFS KDSS 116 KDAA 117 EED EQDYN GPLD SILD USETD 118 LAMA MI OEIGS PHIA 119 BQG PHIG 120 OBEF1 OBES1 OBQG1 OPHIG PPHIG 120 OBEF1L OBES1L 121 ELSETS GPSETS PLTPAR PLTSETX 122 MAA 123 KDICT KELM MDICT MELM 125 PBL PBS UBOOV YBS 126 KBLL KBFS KBSS 127 LBLL 128 UBLV RUBLV 129 UBGV QBG 130 OQBG1 OUBGV1 OESB1 OEFB1 PUBGV1 130 OEFB1L OESB1L 131 PLOTX1 132 OGPWG 133 PLOTX2 134 PLOTX3 135 BGPDP SIP 136 MPT $* ================================================ FILE: rf/DISP14 ================================================ APR.95 $$$$$$$$ BEGIN DISP 14 - STATIC ANALYSIS WITH CYCLIC SYMMETRY - APR. 1995 $ ****CARD 1- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ FILE KKK=SAVE/PK=SAVE $ ****CARD 1- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ FILE UXV=APPEND $ ****CARD 1- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 5, 6, 8- 10, 14, 15, 18, 19, 21, 24 ****FILE 101,114,122,123 $$$$ PARAM //*NOP*/V,Y,CYCIO=1 $ ****CARD 1- 6, 8- 14, 59- 62 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 126 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 126 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 125 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115,121 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115,121 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115,121 $$$$ GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ ****CARD 1, 2, 13, 60, 61 ****FILE 96 $$$$ PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ ****CARD 1, 2, 13, 15, 60, 61 ****FILE 116 ****RFMT 187-199,201-204,207-209 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 28, 59- 62 ****FILE 97 $$$$ PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-199,201-204,207-209 $$$$ COND ERROR4,NOELMT $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-199,201-204,207-209 $$$$ COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 14, 15, 24, 61 ****FILE 98, 99,116,122 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 116 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 14, 15, 24, 61 ****FILE 116 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 116 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 116 $$$$ LABEL JMPMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 122 $$$$ COND ERROR2,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 116 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 122 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 122 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 6, 8, 14, 15, 24, 61 ****FILE 98, 99,116,122 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11A,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11A $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 11, 59 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 11, 20, 21, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 101 $$$$ COND ERROR3,NOL $ ****CARD 1, 9- 11, 59 ****FILE 101 ****RFMT 187-199,201-204,207-209 $$$$ PARAM //*NOT*/REACDATA/REACT $ ****CARD 1, 11, 59 ****FILE 101 $$$$ COND ERROR6,REACDATA $ ****CARD 1, 11, 59 ****FILE 101 $$$$ PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG/SINGLE $ ****CARD 1, 9- 11, 59 ****FILE 103,105,106,111-113 $$$$ GPCYC GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $ ****CARD 1- 4, 6, 8- 12, 22, 59 ****FILE 107 $$$$ COND ERROR5,NOGO $ ****CARD 1- 4, 6, 8- 12, 22, 59 ****FILE 107 $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ ****CARD 1- 3, 5, 6, 8, 59- 62 ****FILE 110 $$$$ EQUIV PG,PL/NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 59- 62 ****FILE 111 $$$$ COND LBL9,NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 17, 59- 62 ****FILE 111,112 $$$$ SSG2 USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 11, 59- 62 ****FILE 111 $$$$ COND LBL9,OMIT $ ****CARD 1- 3, 5, 6, 8- 11, 59- 62 ****FILE 112 $$$$ SSG3 LOO,KOO,PO,,,/UOOV,,RUOV,/-1/V,Y,IRES=-1 $ ****CARD 1- 6, 8- 11, 17, 59- 62 ****FILE 112 ****RFMT 188 $$$$ COND LBL9,IRES $ ****CARD 1- 6, 8- 11, 17, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 11, 17, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 11, 17, 59- 62 ****FILE 111,112 ****RFMT 187-199,201-204,207-209 $$$$ EQUIV PL,PX/CYCIO $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 108 $$$$ COND LBL10,CYCIO $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 108 $$$$ CYCT1 PL/PX,GCYCF/V,Y,CTYPE/*FORE*/V,Y,NSEGS=-1/S,Y,KMAX=-1/V,Y, NLOAD=1/S,N,NOGO $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 108 $$$$ LABEL LBL10 $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 108 $$$$ COND ERROR5,NOGO $ ****CARD 1- 6, 8- 12, 59- 62 ****FILE 108 $$$$ PARAM //*ADD*/KINDEX/0/0 $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 ****FILE 109 $$$$ LABEL LBL11 $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 $$$$ CYCT2 CYCD,KAA,,PX,,/KKK,,PK,,/*FORE*/V,Y,NSEGS/KINDEX/V,Y, CYCSEQ=-1/V,Y,NLOAD/S,N,NOGO $ ****CARD 1- 6, 8- 12, 23, 25, 27, 28, 59- 62 ****FILE 109 $$$$ COND ERROR5,NOGO $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 ****FILE 109 $$$$ RBMG2 KKK/LKK $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 ****FILE 117 $$$$ SSG3 LKK,KKK,PK,,,/UKV,,RUKV,/-1/V,Y,IRES $ ****CARD 1- 6, 8- 12, 17, 27, 28, 59- 62 ****FILE 118 $$$$ CYCT2 CYCD,,,UKV,RUKV,/,,UXV,RUXV,/*BACK*/V,Y,NSEGS/KINDEX/ V,Y,CYCSEQ/V,Y,NLOAD/S,N,NOGO $ ****CARD 1- 6, 8- 12, 23, 25, 27, 28, 59- 62 ****FILE 119 $$$$ COND ERROR5,NOGO $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 ****FILE 119 $$$$ COND LBL14,IRES $ ****CARD 1- 6, 8- 12, 17, 27, 28, 59- 62 $$$$ MATGPR GPL,USET,SIL,RUXV//*A* $ ****CARD 1- 6, 8- 12, 17, 27, 28, 59- 62 $$$$ LABEL LBL14 $ ****CARD 1- 6, 8- 12, 17, 27, 28, 59- 62 $$$$ PARAM //*ADD*/KINDEX/KINDEX/1 $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 $$$$ PARAM //*SUB*/DONE/V,Y,KMAX/KINDEX $ ****CARD 1- 6, 8- 12, 23, 27, 28, 59- 62 $$$$ COND LBL15,DONE $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 $$$$ REPT LBL11,360 $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 $$$$ JUMP ERROR1 $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 $$$$ LABEL LBL15 $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 $$$$ EQUIV UXV,ULV/CYCIO $ ****CARD 1- 6, 8- 12, 59- 62 ****FILE 120 $$$$ COND LBL16,CYCIO $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 120 $$$$ CYCT1 UXV/ULV,GCYCB/V,Y,CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/V,Y,NLOAD/ S,N,NOGO $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 120 $$$$ COND ERROR5,NOGO $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 120 $$$$ LABEL LBL16 $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 120 $$$$ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PGG,QG/NSKIP/ *STATICS* $ ****CARD 1- 6, 8- 12, 59- 62 ****FILE 113 $$$$ COND NOMPCF,GRDEQ $ ****CARD 7 ****FILE 123 $$$$ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ ****CARD 7 ****FILE 123 $$$$ OFP OQM1,,,,,//S,N,CARDNO $ ****CARD 7 ****FILE 123 $$$$ LABEL NOMPCF $ ****CARD 7 ****FILE 123 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PGG, PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *STATICS*////COMPS $ ****CARD 18, 19 ****FILE 114 $$$$ OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ ****CARD 19 ****FILE 114 $$$$ OFP OESF1,OESF1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 124 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 124 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 124 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 124 $$$$ JUMP FINIS $ ****CARD 1- 11, 13- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ LABEL ERROR1 $ ****SBST 1, 3 ****CARD 1- 6, 8- 12, 27, 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ PRTPARM //-1/*CYCSTATICS* $ ****SBST 1, 3 ****CARD 1- 6, 8- 12, 27, 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ LABEL ERROR2 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 116 ****RFMT 187-199,201-204,207-209 $$$$ PRTPARM //-2/*CYCSTATICS* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 116 ****RFMT 187-199,201-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 11, 59 ****FILE 101 ****RFMT 187-199,201-204,207-209 $$$$ PRTPARM //-3/*CYCSTATICS* $ ****CARD 1, 9- 11, 59 ****FILE 101 ****RFMT 187-199,201-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-199,201-204,207-209 $$$$ PRTPARM //-4/*CYCSTATICS* $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-199,201-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1- 6, 8- 12, 22, 23, 27, 28, 59- 62 ****FILE 108,109,117,119 ****RFMT 187-199,201-204,207-209 $$$$ PRTPARM //-5/*CYCSTATICS* $ ****CARD 1- 6, 8- 12, 22, 23, 27, 28, 59- 62 ****FILE 108,109,117,119 ****RFMT 187-199,201-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1, 9- 11, 59 ****FILE 101 ****RFMT 187-199,201-204,207-209 $$$$ PRTPARM //-6/*CYCSTATICS* $ ****CARD 1, 9- 11, 59 ****FILE 101 ****RFMT 187-199,201-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 11, 13- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 11, 13- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ END $ ****CARD 1- 11, 13- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEGGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHBDY 2 CHEXA1 2 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM 2 CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR 2 CTETRA CQUAD4 CTRIA3 2 CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX 2 CTRIARG 2 CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST 2 CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PHBDY PIHEX PIS2D8 3 PQDMEM PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD 3 PSHEAR PSHELL PCOMP PCOMP1 PCOMP2 3 PTORDRG PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 3 PTRMEM PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 7 AOUT$ 8 MAT1 MAT2 MAT3 MAT4 MAT5 MATT1 MATT2 8 MATT3 MATT4 MATT5 MAT8 TABLEM1 TABLEM2 TABLEM3 8 MAT6 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 12 CYJOIN 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 CTYPE 23 NSEGS KMAX NLOAD 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 CYCSEQ 26 OPT GRDEQ 27 LOOP$ 28 LOOP1$ 59 DEFORM DEFORM$ LOAD$ RFORCE$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX QBDY1 60 QBDY2 QHBDY QVECT QVOL SLOAD 61 GRAV RFORCE 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 GPECT EST GEI MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET YS OGPST 102 GPST 103 GM 104 KNN 105 KFF KFS KSS 106 GO KAA KOO LOO 107 CYCD 108 GCYCF PX 109 KKK PK 110 PG 111 PL PO PS QR 112 RUOV UOOV 113 PGG QG UGV 114 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 114 OEF1L OES1L OESF1 OESF1L 115 ELSETS GPSETS PLTPAR PLTSETX 116 KDICT KELM MDICT MELM 117 LKK 118 RUKV UKV 119 RUXV UXV 120 ULV GCYCB 121 PLOTX1 122 OGPWG 123 OQM1 124 PLOTX2 125 BGPDP SIP 126 MPT $* ================================================ FILE: rf/DISP15 ================================================ APR.95 $$$$$$$$ BEGIN DISP 15 NORMAL MODES ANALYSIS WITH CYCLIC SYMMETRY - APR 1995 $ ****CARD 1- 15, 18- 24, 61, 62 ****RFMT 187-200,202-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 15, 18- 24, 61, 62 ****RFMT 187-200,202-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 12, 14, 15, 18, 19, 21, 24, 61, 62 ****FILE 101,109,114,120,121 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 123 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 123 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 115 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 116,119 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 116 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116,119 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PRTMSG PLOTX1//$ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116,119 $$$$ GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 15, 18- 24, 61, 62 ****FILE 97 $$$$ COND ERROR6,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 16, 24 ****FILE 97 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8 ****FILE 118 ****RFMT 187,190-192 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 24 ****FILE 118 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 24 ****FILE 118 ****RFMT 187-200,202-204,207-209 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 24 ****FILE 118 $$$$ COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 11 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 11, 20, 21 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 101 $$$$ COND ERROR3,NOL $ ****CARD 1, 9- 11, 20, 21 ****FILE 101 $$$$ PARAM //*NOT*/REACDATA/REACT $ ****CARD 1, 11 ****FILE 101 $$$$ COND ERROR4,REACDATA $ ****CARD 1, 11 ****FILE 101 $$$$ PURGE GM/MPCF1/GO/OMIT/KFS,QG/SINGLE $ ****CARD 1, 9- 11 ****FILE 103,105,106,113 $$$$ GPCYC GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $ ****CARD 1, 9- 12, 22 ****FILE 107 $$$$ COND ERROR5,NOGO $ ****CARD 1, 9- 12, 22 ****FILE 107 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 117 $$$$ COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,117 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 117 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,117 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ ****CARD 1, 9- 11, 61 ****FILE 111 $$$$ COND ERROR2,NOEED $ ****CARD 1, 9- 11, 61 ****FILE 111 ****RFMT 187-200,202-204,207-209 $$$$ CYCT2 CYCD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS=-1/V,Y,KINDEX=-1/ V,Y,CYCSEQ=-1/1/S,N,NOGO $ ****CARD 1- 6, 8- 12, 23, 61 ****FILE 108 $$$$ COND ERROR5,NOGO $ ****CARD 1- 6, 8- 12, 23, 61 ****FILE 108 $$$$ READ KKK,MKK,,,EED,,CASECC/LAMK,PHIK,MI,OEIGS/*MODES*/S,N,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 109 $$$$ OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 109 $$$$ COND FINIS,NEIGV $ ****CARD 1- 12, 14, 18, 19, 23, 24, 61, 62 ****FILE 112-114,121,122 $$$$ OFP LAMK,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 109 $$$$ CYCT2 CYCD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,KINDEX/ V,Y,CYCSEQ/1/S,N,NOGO $ ****CARD 1- 6, 8- 12, 14, 23, 24, 61, 62 ****FILE 112 $$$$ COND ERROR5,NOGO $ ****CARD 1- 6, 8- 12, 14, 23, 24, 61, 62 ****FILE 112 $$$$ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 113 ****RFMT 187-200,202-204,207-209 $$$$ COND NOMPCF,GRDEQ $ ****CARD 7 ****FILE 121 $$$$ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ ****CARD 7 ****FILE 121 $$$$ OFP OQM1,,,,,//S,N,CARDNO $ ****CARD 7 ****FILE 121 $$$$ LABEL NOMPCF $ ****CARD 7 ****FILE 121 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ *REIG*////COMPS $ ****CARD 18, 19 ****FILE 114 $$$$ OFP OPHIG,OQG1,OEF1,OES1,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ ****CARD 19 ****FILE 114 $$$$ OFP OESF1,OESF1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ JUMP FINIS $ ****CARD 1- 14, 18- 24, 61, 62 ****RFMT 187-200,202-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 8, 24 ****FILE 118 ****RFMT 187-200,202-204,207-209 $$$$ PRTPARM //-1/*CYCMODES* $ ****CARD 1- 3, 5, 8, 24 ****FILE 118 ****RFMT 187-200,202-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 11, 61 ****FILE 111 ****RFMT 187-200,202-204,207-209 $$$$ PRTPARM //-2/*CYCMODES* $ ****CARD 1, 9- 11, 61 ****FILE 111 ****RFMT 187-200,202-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 11, 20, 21 ****FILE 101 ****RFMT 187-200,202-204,207-209 $$$$ PRTPARM //-3/*CYCMODES* $ ****CARD 1, 9- 11, 20, 21 ****FILE 101 ****RFMT 187-200,202-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1, 9- 11 ****FILE 101 ****RFMT 187-200,202-204,207-209 $$$$ PRTPARM //-4/*CYCMODES* $ ****CARD 1, 9- 11 ****FILE 101 ****RFMT 187-200,202-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1- 6, 8- 12, 14, 22- 24, 61, 62 ****FILE 107,108,112 ****RFMT 187-200,202-204,207-209 $$$$ PRTPARM //-5/*CYCMODES* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 61, 62 ****FILE 107,108,112 ****RFMT 187-200,202-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1, 2, 4- 6, 8, 16, 24 ****FILE 97 ****RFMT 187-200,202-204,207-209 $$$$ PRTPARM //-6/*CYCMODES* $ ****CARD 1, 2, 4- 6, 8, 16, 24 ****FILE 97 ****RFMT 187-200,202-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 14, 16, 18- 24, 61, 62 ****RFMT 187-200,202-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 14, 16, 18- 24, 61, 62 ****RFMT 187-200,202-204,207-209 $$$$ END $ ****CARD 1- 14, 16, 18- 24, 61, 62 ****RFMT 187-200,202-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF AXSLOT CELAS1 CELAS2 CELAS3 CELAS4 1 CMASS1 1 CMASS2 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C 1 CORD2R 1 CORD2S FREEPT GRDSET GRID GRIDB GRIDF GRIDS 1 POINTAX 1 PRESPT RINGAX RINGFL SECTAX SEQGP SLBDY SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CAXIF2 CAXIF3 CAXIF4 CBAR CCONEAX 2 CDUM1 2 CDUM2 CDUM3 CDUM4 CDUM5 CDUM6 CDUM7 CDUM8 2 CDUM9 2 CELBOW CFLUID2 CFLUID3 CFLUID4 CHEXA1 CHEXA2 CIHEX1 2 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 CQDMEM2 2 CQDPLT CQUAD4 CTRIA3 2 CQUAD1 CQUAD2 CROD CSHEAR CSLOT3 CSLOT4 CTETRA 2 CTORDRG 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 FSLIST PMASS 6 PELAS 7 AOUT$ 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 12 CYJOIN 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 CTYPE 23 NSEGS KINDEX CYCSEQ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 OPT GRDEQ 61 EIGR 62 METHOD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KOO LOO KAA 107 CYCD 108 KKK MKK 109 LAMK PHIK MI OEIGS 111 EED EQDYN GPLD SILD USETD 112 LAMA PHIA 113 PHIG QG 114 OEF1 OES1 OPHIG OQG1 PPHIG 114 OEF1L OES1L OESF1 OESF1L 115 BGPDP SIP 116 ELSETS GPSETS PLTPAR PLTSETX 117 MAA 118 KDICT KELM MDICT MELM 119 PLOTX1 120 OGPWG 121 OQM1 122 PLOTX2 123 MPT $* ================================================ FILE: rf/DISP16 ================================================ APR.95 $$$$$$$$ BEGIN DISP 16 STATIC AEROTHERMOELASTIC DESIGN/ANALYSIS - APR. 1995 $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 11, 14, 15, 19, 22, 23, 24, 26, 59- 62 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N, NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 158 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 158 $$$$ COND ERROR3,NOGPDT $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 157 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PARAMR //*COMPLEX*//V,Y,SIGN/0.0/CSIGN $ ****CARD 26 ****FILE 117 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/S,N, JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 18 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 135 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 135 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 18 $$$$ LABEL P1 $ ****SBST 7 ****CARD 18 ****FILE 122,135 $$$$ GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ ****CARD 1, 2, 13, 60, 61 ****FILE 96 $$$$ PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ ****CARD 1, 2, 13, 15, 60, 61 ****FILE 96, 99 ****RFMT 187-189,191-204,207-209 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $ ****CARD 1- 7, 13 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 7, 13 ****FILE 97 $$$$ COND ERROR1,NOSIMP $ ****CARD 1- 8, 13 ****FILE 97, 99 ****RFMT 187-189,191-204,207-209 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 4, 6 ****FILE 98 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y, CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y, CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 8 ****FILE 123 $$$$ COND JMPKGG,NOKGGX $ ****CARD 1- 4, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 4, 6, 8 ****FILE 98 $$$$ LABEL JMPKGG $ ****CARD 1- 4, 6, 8 ****FILE 98 $$$$ COND JMPMGG,NOMGG $ ****CARD 1- 5, 7, 8, 14, 24 ****FILE 99 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 5, 7, 8, 14, 24 ****FILE 99 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 5, 7, 8, 14, 24 ****FILE 123 $$$$ LABEL JMPMGG $ ****CARD 1- 5, 7, 8, 14, 24 ****FILE 99 $$$$ COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 7, 8, 14, 15, 24 ****FILE 136 $$$$ COND ERROR4,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 7, 8, 14, 15, 24 ****FILE 136 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 7, 8, 14, 15, 24 ****FILE 136 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 7, 8, 14, 15, 24 $$$$ LABEL LBL1 $ ****SBST 8 ****CARD 1- 3, 5, 7, 8, 14, 15, 24 ****FILE 136 ****FILE 97, 99 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 11 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1, 4, 6, 8- 11, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1, 4, 6, 8- 11, 59 ****FILE 101 $$$$ COND ERROR5,NOL $ ****CARD 1, 9- 11, 59 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ COND LBL4D,REACT $ ****CARD 1, 12 ****RFMT 187-189,193-204,207-209 $$$$ JUMP ERROR2 $ ****CARD 1, 12 ****RFMT 187-189,193-204,207-209 $$$$ LABEL LBL4D $ ****CARD 1, 12 ****RFMT 187-189,193-204,207-209 $$$$ PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG/SINGLE/ PBS,KBFS,KBSS,KDFS,KDSS/SINGLE $ ****CARD 1, 9- 11, 59 ****FILE 103,105,106,109-111,115,139,140,147 $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ COND LBL2,MPCF2 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ RBMG2 KAA/LLL $ ****CARD 1- 4, 6, 8- 11 ****FILE 107 $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PGNA,,,,/LUSET/1/COMPS $ ****CARD 1- 3, 5- 8, 13, 59- 62 ****FILE 132 $$$$ PARAM //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 124 $$$$ COND NOAL,ALOAD $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 124 $$$$ ALG CASECC,,EQEXIN,,ALGDB,,/CASECCA1,GEOM3A1/S,Y,APRESS/S,Y, ATEMP/-1/-1/V,Y,IPRTCI/S,N,IFAIL $ ****CARD 1- 3, 5- 8, 13, 26, 27, 59- 62 ****FILE 124 $$$$ COND FINIS,IFAIL $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 $$$$ PARAM //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 125 $$$$ COND NOAL,ALOAD $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 125 $$$$ GP3 GEOM3A1,EQEXIN,GEOM2/SLTA1,GPTTA1/NOGRAV $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 125 $$$$ SSG1 SLTA1,BGPDT,CSTM,SIL,EST,MPT,GPTTA1,EDT,MGG,CASECCA1,DIT, PCOMPS/PGA1,,,,/LUSET/1/COMPS $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 126 $$$$ ADD PGNA,PGA1/PG/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 108 $$$$ LABEL NOAL $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 108 $$$$ EQUIV PGNA,PG/ALOAD $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 108 $$$$ EQUIV PG,PL/NOSET $ ****CARD 1- 3, 5- 11, 13, 26, 59- 62 ****FILE 109 $$$$ COND LBL10,NOSET $ ****CARD 1- 3, 5- 11, 13, 26, 59- 62 ****FILE 109 $$$$ SSG2 USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $ ****CARD 1- 3, 5- 11, 13, 26, 59- 62 ****FILE 109 $$$$ LABEL LBL10 $ ****CARD 1- 3, 5- 11, 13, 26, 59- 62 ****FILE 109 $$$$ SSG3 LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ 1/S,N,EPSI $ ****CARD 1- 11, 13, 26, 59- 62 ****FILE 110 ****RFMT 188 $$$$ COND LBL9,IRES $ ****CARD 1- 11, 13, 17, 26, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 11, 13, 17, 26, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 11, 13, 17, 26, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ LABEL LBL9 $ ****CARD 1- 11, 13, 17, 26, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ SDR1 USET,,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PG1,QG/1/*DS0* $ ****CARD 1- 11, 13, 26, 59- 62 ****FILE 111 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PG, PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *DS0*////COMPS $ ****CARD 19 ****FILE 112 $$$$ OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 137 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 137 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 137 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/ NOSIMP/0/NOGENL/GENEL $ ****CARD 1- 11, 26, 59- 62 ****FILE 138 $$$$ DSMG1 CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/ DSCOSET$ ****CARD 1- 11, 26, 59- 62 ****FILE 113 $$$$ COND NOAL0,ALOAD $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 108 $$$$ EQUIV PGNA,PG $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 108 $$$$ LABEL NOAL0 $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 108 $$$$ PARAM //*ADD*/SHIFT/-1/0 $ ****CARD 1- 11, 26, 59- 62 $$$$ PARAM //*ADD*/COUNT/ALWAYS=-1/NEVER=1 $ ****CARD 1- 11, 26, 59- 62 $$$$ PARAMR //*ADD*/DSEPSI/0.0/0.0 $ ****CARD 1- 11, 26, 59- 62 $$$$ PARAML YS//*NULL*////NOYS $ ****CARD 1- 11, 26, 59- 62 $$$$ LABEL OUTLPTOP $ ****CARD 1- 11, 26, 59- 62 $$$$ EQUIV PG,PG1/NOYS $ ****CARD 1- 11, 26, 59- 62 ****FILE 111 $$$$ PARAM //*KLOCK*/TO $ ****CARD 1- 11, 26, 59- 62 ****FILE 114 $$$$ EQUIV KDGG,KDNN/MPCF2 $ ****CARD 1- 11, 26, 59- 62 ****FILE 114 $$$$ COND LBL2D,MPCF2 $ ****CARD 1- 11, 26, 59- 62 ****FILE 114 $$$$ MCE2 USET,GM,KDGG,,,/KDNN,,, $ ****CARD 1- 11, 26, 59- 62 ****FILE 114 $$$$ LABEL LBL2D $ ****CARD 1- 11, 26, 59- 62 ****FILE 114 $$$$ EQUIV KDNN,KDFF/SINGLE $ ****CARD 1- 11, 26, 59- 62 ****FILE 115 $$$$ COND LBL3D,SINGLE $ ****CARD 1- 11, 26, 59- 62 ****FILE 115 $$$$ SCE1 USET,KDNN,,,/KDFF,KDFS,KDSS,,, $ ****CARD 1- 11, 26, 59- 62 ****FILE 115 $$$$ LABEL LBL3D $ ****CARD 1- 11, 26, 59- 62 ****FILE 115 $$$$ EQUIV KDFF,KDAA/OMIT $ ****CARD 1- 11, 26, 59- 62 ****FILE 116 $$$$ COND LBL5D,OMIT $ ****CARD 1- 11, 26, 59- 62 ****FILE 116 $$$$ SMP2 USET,GO,KDFF/KDAA $ ****CARD 1- 11, 26, 59- 62 ****FILE 116 $$$$ LABEL LBL5D $ ****CARD 1- 11, 26, 59- 62 ****FILE 116 $$$$ ADD KAA,KDAA/KBLL/(1.0,0.0)/CSIGN $ ****CARD 1- 11, 26, 59- 62 ****FILE 117 $$$$ ADD KFS,KDFS/KBFS/(1.0,0.0)/CSIGN $ ****CARD 1- 11, 26, 59- 62 ****FILE 139 $$$$ ADD KSS,KDSS/KBSS/(1.0,0.0)/CSIGN $ ****CARD 1- 11, 26, 59- 62 ****FILE 140 $$$$ COND PGOK,NOYS $ ****CARD 1- 11, 26, 59- 62 ****FILE 111,141-145 $$$$ MPYAD KBSS,YS,/PSS/0 $ ****CARD 1- 11, 26, 59- 62 ****FILE 141 $$$$ MPYAD KBFS,YS,/PFS/0 $ ****CARD 1- 11, 26, 59- 62 ****FILE 142 $$$$ UMERGE USET,PFS,PSS/PN/*N*/*F*/*S* $ ****CARD 1- 11, 26, 59- 62 ****FILE 143 $$$$ EQUIV PN,PGX/MPCF2 $ ****CARD 1- 11, 26, 59- 62 ****FILE 144 $$$$ COND LBL6D,MPCF2 $ ****CARD 1- 11, 26, 59- 62 ****FILE 144 $$$$ UMERGE USET,PN,/PGX/*G*/*N*/*M* $ ****CARD 1- 11, 26, 59- 62 ****FILE 144 $$$$ LABEL LBL6D $ ****CARD 1- 11, 26, 59- 62 ****FILE 144 $$$$ ADD PGX,PG/PGG/(-1.0,0.0)/(1.0,0.0) $ ****CARD 1- 11, 26, 59- 62 ****FILE 145 $$$$ EQUIV PGG,PG1/ALWAYS $ ****CARD 1- 11, 26, 59- 62 ****FILE 111 $$$$ LABEL PGOK $ ****CARD 1- 11, 26, 59- 62 ****FILE 111,141-145 $$$$ ADD PG1,/PG0/(1.0,0.0) $ ****CARD 1- 11, 26, 59- 62 ****FILE 146 $$$$ COPY UGV/AUGV $ ****CARD 1- 11, 26, 59- 62 ****FILE 133 $$$$ RBMG2 KBLL/LBLL/S,N,POWER/S,N,DET $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 118 $$$$ PRTPARM //0/*DET* $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 118 $$$$ PRTPARM //0/*POWER* $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 118 $$$$ LABEL INLPTOP $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ PARAM //*KLOCK*/TI $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ COND NOAL1,ALOAD $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 127-130 $$$$ ALG CASECC,EDT,EQEXIN,AUGV,ALGDB,CSTM,BGPDT/CASECCA,GEOM3A/S,Y, APRESS/S,Y,ATEMP/-1/-1/V,Y,IPRTCL/S,N,IFAIL/V,Y,SIGN/V, Y,ZORIGN/V,Y,FXCOOR/V,Y,FYCOOR/V,Y,FZCOOR $ ****CARD 1- 11, 22, 23, 26, 27, 59- 62 ****FILE 127 $$$$ COND DONE,IFAIL $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ PARAM //*MPY*/V,Y,IPRTCL/0 $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ PARAM //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ COND NOAL1,ALOAD $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 128-130 $$$$ GP3 GEOM3A,EQEXIN,GEOM2/SLTA,GPTTA/NOASL/NOGRAV/NOATL $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 128 $$$$ SSG1 SLTA,BGPDT,CSTM,SIL,EST,MPT,GPTTA,EDT,MGG,CASECCA,DIT,PCOMPS/ PGA,,,,/LUSET/1/COMPS $ $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 129 $$$$ ADD PG1,PGA/PG2/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 130 $$$$ LABEL NOAL1 $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 127-130 $$$$ EQUIV PG1,PG2/ALOAD $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 130 $$$$ SSG2 USET,GM,YS,KDFS,GO,,PG2/,PBO,PBS,PBL $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 147 $$$$ SSG3 LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/S,N, EPSI $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 119 $$$$ COND LBL9D,IRES $ ****CARD 1- 11, 17, 22, 23, 26, 59- 62 $$$$ MATGPR GPL,USET,SIL,RUBLV//*L* $ ****CARD 1- 11, 17, 22, 23, 26, 59- 62 $$$$ LABEL LBL9D $ ****CARD 1- 11, 17, 22, 23, 26, 59- 62 ****FILE 130 $$$$ SDR1 USET,,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/1/*DS1* $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 148 ****RFMT 187-189,191-204,207-209 $$$$ COND NOAL2,ALOAD $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 133 $$$$ EQUIV UBGV,AUGV $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 133 $$$$ LABEL NOAL2 $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 133 $$$$ ADD UBGV,UGV/DUGV/(-1.0,0.0)/(1.0,0.0) $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 149 $$$$ DSMG1 CASECC,GPTT,SIL,EDT,DUGV,CSTM,MPT,ECPT,GPCT,DIT/DKDGG/V,N, DSCOSET $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 150 $$$$ MPYAD DKDGG,UBGV,PG0/PGI1/0 $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 151 $$$$ ADD PGI1,PGA/PGI2/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 134 $$$$ DSCHK PG2,PGI2,UBGV//C,Y,EPSIO=1.E-5/S,N,DSEPSI/C,Y,NT=10/ TO/TI/S,N,DONE/S,N,SHIFT/S,N,COUNT/C,Y,BETAD=4 $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ COND DONE,DONE $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ COND SHIFT,SHIFT $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ EQUIV PG,PG1/NEVER $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 111 $$$$ EQUIV PGI1,PG1/ALWAYS $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 111 $$$$ EQUIV PG1,PGI1/NEVER $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 151 $$$$ REPT INLPTOP,1000 $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ TABPT PGI1,PG1,PG,,// $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ LABEL SHIFT $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ ADD DKDGG,KDGG/KDGG1/(-1.0,0.0)/(1.0,0.0) $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 152 $$$$ EQUIV UBGV,UGV/ALWAYS/KDGG1,KDGG/ALWAYS $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 111,113 $$$$ EQUIV KDGG,KDGG1/NEVER/UGV,UBGV/NEVER $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 120,152 $$$$ REPT OUTLPTOP,1000 $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ TABPT KDGG1,KDGG,UGV,,// $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ LABEL DONE $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ PARAM //*NOP*/V,Y,KTOUT=-1 $ ****CARD 1- 11, 22, 23, 26, 28, 59- 62 $$$$ COND JMPKTOUT,KTOUT $ ****CARD 1- 11, 22, 23, 26, 28, 59- 62 ****FILE 153 $$$$ ADD KGG,KDGG/KTOTAL/(1.0,0.0)/CSIGN $ ****CARD 1- 11, 22, 23, 26, 28, 59- 62 ****FILE 153 $$$$ OUTPUT1 KTOTAL,,,,//C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $ ****CARD 1- 11, 22, 23, 26, 28, 59- 62 $$$$ OUTPUT1, ,,,,//-3/0 $ ****CARD 1- 11, 22, 23, 26, 28, 59- 62 $$$$ LABEL JMPKTOUT $ ****CARD 1- 11, 22, 23, 26, 28, 59- 62 ****FILE 153 $$$$ ALG CASECC,EDT,EQEXIN,UBGV,ALGDB,CSTM,BGPDT/CASECCB,GEOM3B/ -1/-1/V,Y,STREAML/V,Y,PGEOM/V,Y,IPRTCF/S,N,IFAIL/V,Y,SIGN/ V,Y,ZORIGN/V,Y,FXCOOR/V,Y,FYCOOR/V,Y,FZCOOR $ ****CARD 1- 11, 22, 23, 26, 27, 59- 62 ****FILE 131 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,,, PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/ *DS1*////COMPS $ ****CARD 18, 19 ****FILE 121 $$$$ OFP OUBGV1,OQBG1,OEFB1,OESB1,,//S,N,CARDNO $ ****CARD 19 ****FILE 121 $$$$ OFP OEFB1L,OESB1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 121 $$$$ SDR1 USET,PG2,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/AUBGV,APGG,AQBG/ 1/*DS1* $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 154 $$$$ GPFDR CASECC,AUBGV,KELM,KDICT,ECT,EQEXIN,GPECT,APGG,AQBG/ONRGY1, OGPFB1/*STATICS* $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 155 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 123 $$$$ OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ COND P3,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 156 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUBGV1,,GPECT, OESB1,OESB1L,ONRGY1/PLOTX3/NSIL/LUSET/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 156 $$$$ PRTMSG PLOTX3// $ ****SBST 7 ****CARD 18 $$$$ LABEL P3 $ ****SBST 7 ****CARD 18 ****FILE 156 $$$$ JUMP FINIS $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-1/*ASTA* $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-2/*ASTA* $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-3/*ASTA* $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR4 $ ****SBST 8 ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-4/*ASTA* $ ****SBST 8 ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-5/*ASTA* $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ END $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 FREEPT GRDSET GRID GRIDB POINTAX PRESPT RINGAX 1 RINGFL 1 SECTAX SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CFLUID2 CFLUID3 2 CFLUID4 2 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CONROD CQDMEM 2 CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX 2 CTRIARG CQUAD4 CTRIA3 2 CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST 2 CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PIHEX PQDMEM PQDMEM1 PQDMEM2 3 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR PTORDRG PTRAPAX 3 PTRBSC PSHELL PCOMP PCOMP1 PCOMP2 3 PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM PTRPLT PTRPLT1 3 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 6 PELAS 7 PMASS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX 12 SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 26 APRESS 26 ATEMP 26 DTI 26 FXCOOR FYCOOR FZCOOR 26 PGEOM 26 SIGN STREAML STREAML1 26 ZORIGN 27 KTOUT 59 DEFORM DEFORM$ LOAD$ SPCD RFORCE$ 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 GRAV RFORCE 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET YS OGPST 102 GPST 103 GM 104 KNN 105 KFF KFS KSS 106 GO KAA KOO LOO 107 LLL 108 PG 109 PL PO PS 110 RULV RUOV ULV UOOV 111 PG1 QG UGV 112 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 112 OEF1L OES1L 113 KDGG 114 KDNN 115 KDFF KDFS KDSS 116 KDAA 117 KBLL 118 LBLL 119 UBLV RUBLV 120 QBG UBGV 121 OEFB1 OESB1 OQBG1 OUBGV1 PUBGV1 121 OEFB1L OESB1L 122 ELSETS GPSETS PLTPAR PLTSETX 123 KDICT KELM MDICT MELM 124 CASECCA1 GEOM3A1 125 SLTA1 GPTTA1 126 PGA1 127 CASECCA GEOM3A 128 SLTA GPTTA 129 PGA 130 PG2 131 CASECCB GEOM3B 132 PGNA 133 AUGV 134 PGI2 135 PLOTX1 136 OGPWG 137 PLOTX2 138 ECPT GPCT 139 KBFS 140 KBSS 141 PSS 142 PFS 143 PN 144 PGX 145 PGG 146 PG0 147 PBO PBS PBL 148 UBGV QBG 149 DUGV 150 DKDGG 151 PGI1 152 KDGG1 153 KTOTAL 154 AUBGV APGG AQBG 155 ONRGY1 OGPFB1 156 PLOTX3 157 BGPDP SIP 158 MPT $* ================================================ FILE: rf/DISP17 ================================================ APR.95 $$$$$$$$ BEGIN DISP 17 - DYNAMIC DESIGN ANALYSIS METHOD - APR. 1995 $ ****CARD 1- 6, 8- 16, 18- 22, 24, 61, 62 ****RFMT 187-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 16, 18- 22, 24, 61, 62 ****RFMT 187-204,207-209 $$$$ FILE LAMA=APPEND/PHIA=APPEND $ ****CARD 1- 6, 8- 16, 18- 22, 24, 61, 62 ****RFMT 187-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 12, 14, 15, 17, 19, 21, 22, 24, 61, 62 ****FILE 112,122 ****RFMT 187-204,207-209 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 144 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 144 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 115 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 116,119 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 116 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116,119 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PRTMSG PLOTX1//$ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116,119 $$$$ GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 16, 18- 22, 24, 61, 62 ****FILE 97 $$$$ COND ERROR4,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 14, 16, 24 ****FILE 97 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8 ****FILE 118 ****RFMT 187,190-192 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 118 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/ALWAYS $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187-204,207-209 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 118 $$$$ COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20, 21 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 101 $$$$ COND ERROR3,NOL $ ****CARD 1, 9- 12 ****FILE 101 $$$$ PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ ****CARD 1, 9- 12 ****FILE 103,105-107,109,110,113 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 117 $$$$ COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,117 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 117 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,117 $$$$ COND LBL6,REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107-110 $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12 ****FILE 108 $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12 ****FILE 109 $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 110 $$$$ LABEL LBL6 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107-110 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/ LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ ****CARD 1, 9- 12, 61 ****FILE 111 $$$$ COND ERROR2,NOEED $ ****CARD 1, 9- 12, 61 ****FILE 111 ****RFMT 187-204,207-209 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 14, 24 ****FILE 112 $$$$ READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112 $$$$ --- NEW, FROM COSDDAM ALTER PACKAGE --- DIAGONAL MI/MIS/*SQUARE*/-0.5 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 123 ****RFMT 187-204,207-209 $$$$ SMPYAD MIS,MI,MIS,,,/MINEW/3 $ --> MINEW IS NOT USED, MIS IS NO LONG U ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 124 ****RFMT 187-204,207-209 $$$$ --- END NEW --- OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112 $$$$ COND FINIS,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112-114,121,122 $$$$ OFP LAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112 $$$$ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 113 ****RFMT 187-204,207-209 $$$$ COND NOMPCF,GRDEQ $ ****CARD 17 ****FILE 121 ****RFMT 187-204,207-209 $$$$ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ ****CARD 17 ****FILE 121 ****RFMT 187-204,207-209 $$$$ OFP OQM1,,,,,//S,N,CARDNO $ ****CARD 17 ****FILE 121 ****RFMT 187-204,207-209 $$$$ LABEL NOMPCF $ ****CARD 17 ****FILE 121 ****RFMT 187-204,207-209 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG*////COMPS ****CARD 18, 19 ****FILE 114 $$$$ $$$$ --- OLD, WAS REMOVED BY COSDDAM PACKAGE --- $$$$ OFP OPHIG,OQG1,OEF1,OES1,,//S,N,CARDNO $ $$$$ ****CARD 19 $$$$ ****FILE 114 $$$$ $$$$ $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ $$$$ ****CARD 19 $$$$ ****FILE 114 $$$$ $$$$ $$$$ SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ $$$$ ****CARD 19 $$$$ ****FILE 114 $$$$ $$$$ $$$$ OFP OESF1,OESF1L,,,,//S,N,CARDNO $ $$$$ ****CARD 19 $$$$ ****FILE 114 $$$$ --- END OLD REMOVE --- COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ --- NEW, FROM COSDDAM ALTER PACKAGE --- GENCOS BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/LUSET/S,N,NSCALE $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 125 ****RFMT 187-204,207-209 $$$$ DIAGONAL MI/MID/*SQUARE*/-1.0 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 126 ****RFMT 187-204,207-209 $$$$ MPYAD MGG,PHIG,/MP/0 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 127 ****RFMT 187-204,207-209 $$$$ MPYAD MP,DIRCOS,/PMD/1 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 127 ****RFMT 187-204,207-209 $$$$ MPYAD MID,PMD,/PF/0 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 127 ****RFMT 187-204,207-209 $$$$ DDAMAT PF,PMD/EFFW/C,Y,GG=386.4 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 128 ****RFMT 187-204,207-209 $$$$ LAMX, ,LAMA/LAMB/-1 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 129 ****RFMT 187-204,207-209 $$$$ GENPART PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 130 ****RFMT 187-204,207-209 $$$$ PARTN LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 131 ****RFMT 187-204,207-209 $$$$ PARAM //*GE*/TEST/C,Y,LMODES/NMODES $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112 ****RFMT 187-204,207-209 $$$$ COND DDAM,TEST $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 132 ****RFMT 187-204,207-209 $$$$ PARTN PF,,RPPF/,PFR,,/1 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 132 ****RFMT 187-204,207-209 $$$$ EQUIV PFR,PF $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 132 ****RFMT 187-204,207-209 $$$$ PARTN EFFW,,RPPF/,EFFWR,,/1 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 133 ****RFMT 187-204,207-209 $$$$ EQUIV EFFWR,EFFW $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 133 ****RFMT 187-204,207-209 $$$$ PARTN MP,CPMP,/,,MPR,/1 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 134 ****RFMT 187-204,207-209 $$$$ EQUIV MPR,MP $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 134 ****RFMT 187-204,207-209 $$$$ PARTN PHIG,CPMP,/,,PHIGR,/1 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 135 ****RFMT 187-204,207-209 $$$$ EQUIV PHIGR,PHIG $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 135 ****RFMT 187-204,207-209 $$$$ LABEL DDAM $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE ****RFMT 187-204,207-209 $$$$ --> PURGE MODULE HERE WAS ADDED BY G.C. <-- PURGE MI,MID,DIRCOS,LAMB,RPLAMB,CPLAMB,RPPF,CPMP ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112,125-126,129-130 ****RFMT 187-204,207-209 $$$$ DESVEL EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/ C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/ C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 136 ****RFMT 187-204,207-209 $$$$ DDAMAT PF,MINAC/PVW/1.0 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 137 ****RFMT 187-204,207-209 $$$$ DDAMAT PF,MINOW2/PVOW/1.0 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 137 ****RFMT 187-204,207-209 $$$$ DDAMPG PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 138 ****RFMT 187-204,207-209 $$$$ DDAMPG MP,PVW/PG/NMODES/NDIR $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 138 ****RFMT 187-204,207-209 $$$$ CASEGEN CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 139 ****RFMT 187-204,207-209 $$$$ EQUIV CASEDD,CASECC $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 139 ****RFMT 187-204,207-209 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,,/ ,OQG3,OUGV3,OES3,OEF3,,,/*STATICS*/S,N,NOSORT2=-1/-1 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 139 ****RFMT 187-204,207-209 $$$$ SDR3 OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 140 ****RFMT 187-204,207-209 $$$$ NRLSUM OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT=123/ C,Y,SQRSS=0 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 141 ****RFMT 187-204,207-209 $$$$ OFP NRLSTR,NRLFOR,,,,//S,N,CARDNO $ ****CARD 17 ****FILE 141 ****RFMT 187-204,207-209 $$$$ --> PURGE MODULE HERE WAS ADDED BY G.C. <-- PURGE MP,PF,EFFW,LAMA,LAMB,SSDV,ACC,VWG,MINAC,MINOW2,PVW,OMEGA, OQG3,OUGV3,OES3,OEF3,OUGV4,OQG4,OEF4,OES4 ****CARD 1- 6, 8- 12, 14, 17, 24, 61, 62 ****FILE 127-129,131,136,139-140 ****RFMT 187-204,207-209 $$$$ COMBUGV UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 142 ****RFMT 187-204,207-209 $$$$ CASEGEN CASECC/CASEEE/1/NDIR/NMODES $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 143 ****RFMT 187-204,207-209 $$$$ SDR2 CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,,/ ,,OUGV5,,,,,/*STATICS*/S,N,NOSORT2/-1 $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 143 ****RFMT 187-204,207-209 $$$$ OFP OUGV5,,,,,//S,N,CARDNO $ ****CARD 17 ****FILE 143 ****RFMT 187-204,207-209 $$$$ --- END NEW --- JUMP FINIS $ ****CARD 1- 6, 8- 22, 24, 61, 62 ****FILE 122 ****RFMT 187-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187-204,207-209 $$$$ PRTPARM //-1/*MODES* $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 61 ****FILE 111 ****RFMT 187-204,207-209 $$$$ PRTPARM //-2/*MODES* $ ****CARD 1, 9- 12, 61 ****FILE 111 ****RFMT 187-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 12 ****FILE 101 ****RFMT 187-204,207-209 $$$$ PRTPARM //-3/*MODES* $ ****CARD 1, 9- 12 ****FILE 101 ****RFMT 187-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 13, 16 ****FILE 97 ****RFMT 187-204,207-209 $$$$ PRTPARM //-4/*MODES* $ ****CARD 1- 6, 13, 16 ****FILE 97 ****RFMT 187-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 22, 24, 61, 62 ****FILE 112-114,121-143 ****RFMT 187-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 6, 8- 22, 24, 61, 62 ****FILE 112-114,121-143 ****RFMT 187-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 22, 24, 61, 62 ****RFMT 187-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF AXSLOT CELAS1 CELAS2 CELAS3 CELAS4 1 CMASS1 1 CMASS2 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C 1 CORD2R 1 CORD2S FREEPT GRDSET GRID GRIDB GRIDF GRIDS 1 POINTAX 1 PRESPT RINGAX RINGFL SECTAX SEQGP SLBDY SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CAXIF2 CAXIF3 CAXIF4 CBAR CCONEAX 2 CDUM1 2 CDUM2 CDUM3 CDUM4 CDUM5 CDUM6 CDUM7 CDUM8 2 CDUM9 2 CELBOW CFLUID2 CFLUID3 CFLUID4 CHEXA1 CHEXA2 CIHEX1 2 CIHEX2 2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 CQDMEM2 CQDPLT 2 CQUAD1 CQUAD2 CROD CSHEAR CSLOT3 CSLOT4 CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS FSLIST 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 AOUT$ 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 OPT GRDEQ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 61 EIGR 62 METHOD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 YS RG USET ASET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KOO LOO KAA 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 EED EQDYN GPLD SILD USETD 112 LAMA MI OEIGS PHIA 113 PHIG QG 114 OEF1 OES1 OPHIG OQG1 PPHIG 114 OEF1L OES1L OESF1 OESF1L 115 BGPDP SIP 116 ELSETS GPSETS PLTPAR PLTSETX 117 MAA 118 KDICT KELM MDICT MELM 119 PLOTX1 120 OGPWG 121 OQM1 122 PLOTX2 123 MIS 124 MINEW 125 DIRCOS 126 MID 127 MP PMD PF 128 EFFW 129 LAMB 130 RPLAMB CPLAMB RPPF CPMP 131 OMEGA 132 PFR 133 EFFWR 134 MPR 135 PHIGR 136 SSDV ACC VWG MINAC NINOW2 137 PVW PVOW 138 UGV PG 139 CASEDD OQG3 OUGV3 OES3 OEF3 140 OUGV4 OQG4 OEF4 OES4 141 NRLSTR NRLFOR 142 UGVADD UGVSQR UGVADC UGVSQC UGVNRL 143 CASEEE OUGV5 144 MPT $* ================================================ FILE: rf/DISP18 ================================================ APR.95 $$$$$$$$ BEGIN DISP 18 - DIRECT FORCED VIBRATION ANALYSIS - APR. 1995 $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****RFMT 187-193,195-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****RFMT 187-193,195-204,207-209 $$$$ FILE KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****RFMT 187-193,195-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 10, 14, 15, 19, 21, 24, 29 ****FILE 101,113,115,116,128 $$$$PHS1 I1 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 $$$$PHS2 D8 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 136 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 136 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 135 $$$$ PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ ****CARD 1 ****FILE 95, 97,101,103,105,106,111,114,120,122,123 $$$$ COND LBL5,NOGPDT $ ****CARD 1- 6, 8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61 ****FILE 95-106,120-128 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16, 58 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120,127 $$$$PHS2 DB8 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,127 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PRTMSG PLOTX1//$ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,127 $$$$PHS2 DE8 $$$$ GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16, 58, 59 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****FILE 97 $$$$ PURGE K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA, KGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 16, 58, 59 ****FILE 98, 99,104-106,121-123,125 $$$$PHS2 DB8 $$$$ COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 13- 15, 24, 58, 59, 61 ****FILE 98, 99,124-126,128 $$$$PHS2 DE8 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOBGG=-1/1/0 $ ****CARD 1- 3, 8 ****FILE 124 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOK4GG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24, 61 ****FILE 124 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 5, 6, 8, 14, 24 ****FILE 98, 99 ****RFMT 187,190-192 $$$$ COND LBLKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL LBLKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND LBLMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 $$$$ LABEL LBLMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ COND LBLBGG,NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ EMA GPECT,BDICT,BELM/BGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ PURGE BDICT,BELM/ALWAYS $ ****CARD 1- 3, 8, 58, 59 ****FILE 124 $$$$ LABEL LBLBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ COND LBLK4GG,NOK4GG $ ****CARD 1- 3, 8 ****FILE 126 $$$$ EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ LABEL LBLK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ PURGE KDICT,KELM/ALWAYS $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ PURGE MNN,MFF,MAA/NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 104,105,121 ****RFMT 187,190-192 $$$$PHS2 DB8 $$$$ PURGE BNN,BFF,BAA/NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 104,105,122 ****RFMT 187,190-192 $$$$ COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ COND ERROR4,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 8, 13- 15, 24, 58, 59, 61 ****FILE 98, 99,124-126,128 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$PHS2 DE8 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 28, 29 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 29 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ ****CARD 1, 9- 12 ****FILE 103,105,106,110,111,114 $$$$PHS1 I1 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 121 $$$$ EQUIV BFF,BAA/OMIT $ ****CARD 1- 4, 8- 11, 58, 59 ****FILE 122 $$$$ EQUIV K4FF,K4AA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24, 58, 59 ****FILE 106,121-123 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ COND LBLM,NOMGG $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ LABEL LBLM $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ COND LBLB,NOBGG $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ SMP2 USET,GO,BFF/BAA $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ LABEL LBLB $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ COND LBL5,NOK4GG $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ SMP2 USET,GO,K4FF/K4AA $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61 ****FILE 95-106,120-128 $$$$PHS3 I1 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,, EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/S,N, NOFRL/NONLFT/NOTRL/NOEED//S,N,NOUE $ ****CARD 1, 9- 11, 55, 57, 61 ****FILE 107 $$$$PHS1 DB1 $$$$ EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 19, 21- 23 $$$$PHS3 DB7 $$$$ PARAM //*MPY*/REPEATF/-1/1 $ ****CARD 1- 6, 8- 14, 16, 19- 23, 27, 52, 54- 62 ****FILE 108 ****RFMT 187-193,195-204,207-209 $$$$ BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ ****CARD 1, 52 ****FILE 118 $$$$ PARAM //*AND*/NOFL/NOABFL/NOKBFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109,119 $$$$ PURGE KBFL/NOKBFL/ ABFL/NOABFL $ ****CARD 1, 52 ****FILE 119 $$$$ COND LBL13,NOFL $ ****CARD 1, 52 ****FILE 119 $$$$ MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ ****CARD 1, 52 ****FILE 119 $$$$ LABEL LBL13 $ ****CARD 1- 6, 8- 16, 18- 23, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ PURGE OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ ****CARD 19- 23, 27 ****FILE 109,110,115-117,129-133 $$$$ CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ ****CARD 1- 6, 8- 14, 16, 19- 23, 25, 27, 52, 54- 62 ****FILE 108 ****RFMT 187-193,195-204,207-209 $$$$ MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ COND LBLFL2,NOFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129 $$$$ COND LBLFL2,NOABFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ TRNSP ABFL/ABFLT $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ LABEL LBLFL2 $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ PARAM //*AND*/BDEBA/NOUE/NOB2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$PHS2 DB8 $$$$ PARAM //*AND*/MDEMA/NOUE/NOM2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$PHS2 DE8 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ MAA,MDD/MDEMA/BAA,BDD/BDEBA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ COND LBL18,NOGPDT $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ LABEL LBL18 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ EQUIV B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$PHS2 D8 $$$$ COND ERROR1,NOFRL $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 ****RFMT 187-193,195-204,207-209 $$$$ COND ERROR2,NODLT $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 ****RFMT 187-193,195-204,207-209 $$$$PHS1 DE1 $$$$ FRRD CASEXX,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,,DIT/UDVF,PSF,PDF,PPF/ *DISP*/*DIRECT*/LUSETD/MPCF1/SINGLE/OMIT/ NONCUP/FRQSET $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 $$$$PHS1 DB1 $$$$ EQUIV PPF,PDF/NOSET $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 $$$$ VDR CASEXX,EQDYN,USETD,UDVF,PPF,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $ ****CARD 19- 21, 27 ****FILE 112 $$$$ COND LBL15,NOD $ ****CARD 21, 27 ****FILE 113,131 $$$$ COND LBL15A,NOSORT2 $ ****CARD 21, 27 ****FILE 113 $$$$ SDR3 OUDVC1,,,,,/OUDVC2,,,,, $ ****CARD 21, 27 ****FILE 113 $$$$ OFP OUDVC2,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 113 $$$$ XYTRAN XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 27 ****FILE 131 $$$$ XYPLOT XYPLTFA// $ ****SBST 7 ****CARD 27 ****FILE 131 $$$$ JUMP LBL15 $ ****CARD 21, 27 ****FILE 131 $$$$ LABEL LBL15A $ ****CARD 21, 27 ****FILE 113 $$$$ OFP OUDVC1,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 113 $$$$ LABEL LBL15 $ ****CARD 21, 27 ****FILE 113,131 $$$$ COND LBL20,NOP $ ****CARD 1- 6, 8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62 ****FILE 114-117,132,133 ****RFMT 187-193,195-204,207-209 $$$$ EQUIV UDVF,UPVC/NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 $$$$PHS2 DB8 $$$$ COND LBL19,NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 $$$$PHS3 DE7 $$$$ SDR1 USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 $$$$ LABEL LBL19 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 $$$$PHS3 I7 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ ****CARD 19, 20 ****FILE 115 $$$$ COND LBL17,NOSORT2 $ ****CARD 19, 20, 26, 54, 55 ****FILE 115-117,132,133 $$$$ SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2, OEFC2, $ ****CARD 19, 20 ****FILE 116 $$$$ OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 132 $$$$ XYPLOT XYPLTF// $ ****SBST 7 ****CARD 20 ****FILE 132 $$$$ COND LBL16,NOPSDL $ ****SBST 7 ****CARD 20, 54, 55 ****FILE 117 ****RFMT 187-193,195-204,207-209 $$$$ RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ ****SBST 7 ****CARD 26, 54, 55 ****FILE 117 ****RFMT 187-193,195-204,207-209 $$$$ COND LBL16,NORD $ ****SBST 7 ****CARD 20, 26, 54, 55 ****FILE 133 $$$$ XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 133 $$$$ XYPLOT XYPLTR// $ ****SBST 7 ****CARD 20 ****FILE 133 $$$$ JUMP LBL16 $ ****CARD 20 ****FILE 133 $$$$ LABEL LBL17 $ ****CARD 19, 20, 26, 54, 55 ****FILE 115-117,132,133 $$$$ PURGE PSDF/NOSORT2 $ ****CARD 19, 20, 26, 54, 55 ****FILE 132 $$$$ OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $ ****CARD 19 ****FILE 115 $$$$ LABEL LBL16 $ ****CARD 20, 54, 55 ****FILE 114-117,132,133 $$$$ PURGE PSDF/NOPSDL $ ****CARD 20, 54, 55 ****FILE 132 $$$$ COND LBL20,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1, GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$PHS2 DE8 $$$$ LABEL LBL20 $ ****SBST 7 ****CARD 1- 6, 8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62 ****FILE 134 $$$$ COND FINIS,REPEATF $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-193,195-204,207-209 $$$$PHS3 DB7 $$$$ REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-193,195-204,207-209 $$$$ PRTPARM //-3/*DIRFRRD* $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$PHS1 DE1 $$$$PHS3 DE7 ****RFMT 187-193,195-204,207-209 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ PRTPARM //-2/*DIRFRRD* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ PRTPARM //-1/*DIRFRRD* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ LABEL ERROR4 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 ****RFMT 187-193,195-204,207-209 $$$$ PRTPARM //-4/*DIRFRRD* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 ****RFMT 187-193,195-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CDAMP1 CDAMP2 CDAMP3 CDAMP4 CELAS1 1 CELAS2 1 CELAS3 CELAS4 CMASS1 CMASS2 CMASS3 CMASS4 CORD1C 1 CORD1R 1 CORD1S CORD2C CORD2R CORD2S FREEPT GRDSET GRID 1 GRIDB 1 POINTAX PRESPT RINGAX RINGFL SECTAX SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFLUID2 2 CFLUID3 2 CFLUID4 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CONROD 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD 2 CSHEAR CTETRA CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 2 CTRIA2 CQUAD4 CTRIA3 2 CTRIAAX CTRIARG CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL 2 CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 FSLIST PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 26 RANDOM$ 27 AXYOUT$ 28 ASETOUT 29 AUTOSPC 52 BDYLIST FLSYM 55 RANDPS RANDT1 RANDT2 54 TABRND1 TABRND2 TABRND3 TABRND4 56 G 57 EPOINT SEQEP TF 58 CVISC 59 PDAMP PVISC 60 B2PP$ DMIAX DMIG K2PP$ M2PP$ TF$ 61 DAREA DELAY DLOAD DPHASE FREQ FREQ1 FREQ2 61 RLOAD1 RLOAD2 TABLED1 TABLED2 TABLED3 TABLED4 62 DECOMOPT DLOAD$ FREQ$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 BNN K4NN KNN MNN 105 BFF K4FF KFF KFS MFF 106 GO KOO LOO KAA 107 DLT EQDYN FRL GPLD PSDL SILD TFPOOL 107 USETD 108 CASEXX 109 B2PP K2DPP M2DPP 110 B2DD BDD GMD GOD K2DD KDD M2DD 110 MDD 111 PDF PPF PSF UDVF 112 OUDVC1 113 OUDVC2 114 QPC UPVC 115 OEFC1 PUPVC1 OESC1 OPPC1 OQPC1 OUPVC1 116 OEFC2 OESC2 OPPC2 OQPC2 OUPVC2 117 AUTO PSDF 118 BDPOOL 119 ABFL KBFL 120 ELSETS GPSETS PLTPAR PLTSETX 121 MAA 122 BAA 123 K4AA 124 BDICT BELM KDICT KELM MDICT MELM 125 BGG 126 K4GG 127 PLOTX1 128 OGPWG 129 K2PP 130 M2PP 131 XYPLTFA 132 XYPLTF 133 XYPLTR 134 PLOTX2 135 BGPDP SIP 136 MPT $* ================================================ FILE: rf/DISP19 ================================================ APR.95 $$$$$$$$ BEGIN DISP 19 - MODAL FORCED VIBRATION ANALYSIS - APR. 1995 $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****RFMT 187-193,195-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****RFMT 187-193,195-204,207-209 $$$$ FILE KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****RFMT 187-193,195-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 10, 14, 15, 19, 21, 24, 29 ****FILE 101,113,115,116,128 $$$$PHS1 I1 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 $$$$PHS2 D8 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 136 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 136 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 135 $$$$ PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ ****CARD 1 ****FILE 95, 97,101,103,105,106,111,114,120,122,123 $$$$ COND LBL5,NOGPDT $ ****CARD 1- 6, 8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61 ****FILE 95-106,120-128 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16, 58 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120,127 $$$$PHS2 DB8 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,127 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PRTMSG PLOTX1//$ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,127 $$$$PHS2 DE8 $$$$ GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16, 58, 59 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****FILE 97 $$$$ PURGE K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA, KGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 16, 58, 59 ****FILE 98, 99,104-106,121-123,125 $$$$PHS2 DB8 $$$$ COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 13- 15, 24, 58, 59, 61 ****FILE 98, 99,124-126,128 $$$$PHS2 DE8 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOBGG=-1/1/0 $ ****CARD 1- 3, 8 ****FILE 124 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOK4GG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24, 61 ****FILE 124 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 5, 6, 8, 14, 24 ****FILE 98, 99 ****RFMT 187,190-192 $$$$ COND LBLKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL LBLKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND LBLMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 $$$$ LABEL LBLMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ COND LBLBGG,NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ EMA GPECT,BDICT,BELM/BGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ PURGE BDICT,BELM/ALWAYS $ ****CARD 1- 3, 8, 58, 59 ****FILE 124 $$$$ LABEL LBLBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ COND LBLK4GG,NOK4GG $ ****CARD 1- 3, 8 ****FILE 126 $$$$ EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ LABEL LBLK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ PURGE KDICT,KELM/ALWAYS $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ PURGE MNN,MFF,MAA/NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 104,105,121 ****RFMT 187,190-192 $$$$PHS2 DB8 $$$$ PURGE BNN,BFF,BAA/NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 104,105,122 ****RFMT 187,190-192 $$$$ COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ COND ERROR4,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 8, 13- 15, 24, 58, 59, 61 ****FILE 98, 99,124-126,128 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$PHS2 DE8 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 28, 29 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 29 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ ****CARD 1, 9- 12 ****FILE 103,105,106,110,111,114 $$$$PHS1 I1 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 121 $$$$ EQUIV BFF,BAA/OMIT $ ****CARD 1- 4, 8- 11, 58, 59 ****FILE 122 $$$$ EQUIV K4FF,K4AA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24, 58, 59 ****FILE 106,121-123 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ COND LBLM,NOMGG $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ LABEL LBLM $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ COND LBLB,NOBGG $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ SMP2 USET,GO,BFF/BAA $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ LABEL LBLB $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ COND LBL5,NOK4GG $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ SMP2 USET,GO,K4FF/K4AA $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61 ****FILE 95-106,120-128 $$$$PHS3 I1 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,, EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/S,N, NOFRL/NONLFT/NOTRL/NOEED//S,N,NOUE $ ****CARD 1, 9- 11, 55, 57, 61 ****FILE 107 $$$$PHS1 DB1 $$$$ EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 19, 21- 23 $$$$PHS3 DB7 $$$$ PARAM //*MPY*/REPEATF/-1/1 $ ****CARD 1- 6, 8- 14, 16, 19- 23, 27, 52, 54- 62 ****FILE 108 ****RFMT 187-193,195-204,207-209 $$$$ BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ ****CARD 1, 52 ****FILE 118 $$$$ PARAM //*AND*/NOFL/NOABFL/NOKBFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109,119 $$$$ PURGE KBFL/NOKBFL/ ABFL/NOABFL $ ****CARD 1, 52 ****FILE 119 $$$$ COND LBL13,NOFL $ ****CARD 1, 52 ****FILE 119 $$$$ MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ ****CARD 1, 52 ****FILE 119 $$$$ LABEL LBL13 $ ****CARD 1- 6, 8- 16, 18- 23, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ PURGE OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ ****CARD 19- 23, 27 ****FILE 109,110,115-117,129-133 $$$$ CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ ****CARD 1- 6, 8- 14, 16, 19- 23, 25, 27, 52, 54- 62 ****FILE 108 ****RFMT 187-193,195-204,207-209 $$$$ MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ COND LBLFL2,NOFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129 $$$$ COND LBLFL2,NOABFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ TRNSP ABFL/ABFLT $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ LABEL LBLFL2 $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ PARAM //*AND*/BDEBA/NOUE/NOB2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$PHS2 DB8 $$$$ PARAM //*AND*/MDEMA/NOUE/NOM2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$PHS2 DE8 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ MAA,MDD/MDEMA/BAA,BDD/BDEBA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ COND LBL18,NOGPDT $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ LABEL LBL18 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ EQUIV B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$PHS2 D8 $$$$ COND ERROR1,NOFRL $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 ****RFMT 187-193,195-204,207-209 $$$$ COND ERROR2,NODLT $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 ****RFMT 187-193,195-204,207-209 $$$$PHS1 DE1 $$$$ FRRD CASEXX,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,,DIT/UDVF,PSF,PDF,PPF/ *DISP*/*DIRECT*/LUSETD/MPCF1/SINGLE/OMIT/ NONCUP/FRQSET $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 $$$$PHS1 DB1 $$$$ EQUIV PPF,PDF/NOSET $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 $$$$ VDR CASEXX,EQDYN,USETD,UDVF,PPF,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $ ****CARD 19- 21, 27 ****FILE 112 $$$$ COND LBL15,NOD $ ****CARD 21, 27 ****FILE 113,131 $$$$ COND LBL15A,NOSORT2 $ ****CARD 21, 27 ****FILE 113 $$$$ SDR3 OUDVC1,,,,,/OUDVC2,,,,, $ ****CARD 21, 27 ****FILE 113 $$$$ OFP OUDVC2,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 113 $$$$ XYTRAN XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 27 ****FILE 131 $$$$ XYPLOT XYPLTFA// $ ****SBST 7 ****CARD 27 ****FILE 131 $$$$ JUMP LBL15 $ ****CARD 21, 27 ****FILE 131 $$$$ LABEL LBL15A $ ****CARD 21, 27 ****FILE 113 $$$$ OFP OUDVC1,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 113 $$$$ LABEL LBL15 $ ****CARD 21, 27 ****FILE 113,131 $$$$ COND LBL20,NOP $ ****CARD 1- 6, 8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62 ****FILE 114-117,132,133 ****RFMT 187-193,195-204,207-209 $$$$ EQUIV UDVF,UPVC/NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 $$$$PHS2 DB8 $$$$ COND LBL19,NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 $$$$PHS3 DE7 $$$$ SDR1 USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 $$$$ LABEL LBL19 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 $$$$PHS3 I7 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ ****CARD 19, 20 ****FILE 115 $$$$ COND LBL17,NOSORT2 $ ****CARD 19, 20, 26, 54, 55 ****FILE 115-117,132,133 $$$$ SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2, OEFC2, $ ****CARD 19, 20 ****FILE 116 $$$$ OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 132 $$$$ XYPLOT XYPLTF// $ ****SBST 7 ****CARD 20 ****FILE 132 $$$$ COND LBL16,NOPSDL $ ****SBST 7 ****CARD 20, 54, 55 ****FILE 117 ****RFMT 187-193,195-204,207-209 $$$$ RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ ****SBST 7 ****CARD 26, 54, 55 ****FILE 117 ****RFMT 187-193,195-204,207-209 $$$$ COND LBL16,NORD $ ****SBST 7 ****CARD 20, 26, 54, 55 ****FILE 133 $$$$ XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 133 $$$$ XYPLOT XYPLTR// $ ****SBST 7 ****CARD 20 ****FILE 133 $$$$ JUMP LBL16 $ ****CARD 20 ****FILE 133 $$$$ LABEL LBL17 $ ****CARD 19, 20, 26, 54, 55 ****FILE 115-117,132,133 $$$$ PURGE PSDF/NOSORT2 $ ****CARD 19, 20, 26, 54, 55 ****FILE 132 $$$$ OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $ ****CARD 19 ****FILE 115 $$$$ LABEL LBL16 $ ****CARD 20, 54, 55 ****FILE 114-117,132,133 $$$$ PURGE PSDF/NOPSDL $ ****CARD 20, 54, 55 ****FILE 132 $$$$ COND LBL20,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1, GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$PHS2 DE8 $$$$ LABEL LBL20 $ ****SBST 7 ****CARD 1- 6, 8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62 ****FILE 134 $$$$ COND FINIS,REPEATF $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-193,195-204,207-209 $$$$PHS3 DB7 $$$$ REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-193,195-204,207-209 $$$$ PRTPARM //-3/*DIRFRRD* $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$PHS1 DE1 $$$$PHS3 DE7 ****RFMT 187-193,195-204,207-209 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ PRTPARM //-2/*DIRFRRD* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ PRTPARM //-1/*DIRFRRD* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ LABEL ERROR4 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 ****RFMT 187-193,195-204,207-209 $$$$ PRTPARM //-4/*DIRFRRD* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 ****RFMT 187-193,195-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CDAMP1 CDAMP2 CDAMP3 CDAMP4 CELAS1 1 CELAS2 1 CELAS3 CELAS4 CMASS1 CMASS2 CMASS3 CMASS4 CORD1C 1 CORD1R 1 CORD1S CORD2C CORD2R CORD2S FREEPT GRDSET GRID 1 GRIDB 1 POINTAX PRESPT RINGAX RINGFL SECTAX SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFLUID2 2 CFLUID3 2 CFLUID4 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CONROD 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD 2 CSHEAR CTETRA CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 2 CTRIA2 CQUAD4 CTRIA3 2 CTRIAAX CTRIARG CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL 2 CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 FSLIST PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 26 RANDOM$ 27 AXYOUT$ 28 ASETOUT 29 AUTOSPC 52 BDYLIST FLSYM 55 RANDPS RANDT1 RANDT2 54 TABRND1 TABRND2 TABRND3 TABRND4 56 G 57 EPOINT SEQEP TF 58 CVISC 59 PDAMP PVISC 60 B2PP$ DMIAX DMIG K2PP$ M2PP$ TF$ 61 DAREA DELAY DLOAD DPHASE FREQ FREQ1 FREQ2 61 RLOAD1 RLOAD2 TABLED1 TABLED2 TABLED3 TABLED4 62 DECOMOPT DLOAD$ FREQ$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 BNN K4NN KNN MNN 105 BFF K4FF KFF KFS MFF 106 GO KOO LOO KAA 107 DLT EQDYN FRL GPLD PSDL SILD TFPOOL 107 USETD 108 CASEXX 109 B2PP K2DPP M2DPP 110 B2DD BDD GMD GOD K2DD KDD M2DD 110 MDD 111 PDF PPF PSF UDVF 112 OUDVC1 113 OUDVC2 114 QPC UPVC 115 OEFC1 PUPVC1 OESC1 OPPC1 OQPC1 OUPVC1 116 OEFC2 OESC2 OPPC2 OQPC2 OUPVC2 117 AUTO PSDF 118 BDPOOL 119 ABFL KBFL 120 ELSETS GPSETS PLTPAR PLTSETX 121 MAA 122 BAA 123 K4AA 124 BDICT BELM KDICT KELM MDICT MELM 125 BGG 126 K4GG 127 PLOTX1 128 OGPWG 129 K2PP 130 M2PP 131 XYPLTFA 132 XYPLTF 133 XYPLTR 134 PLOTX2 135 BGPDP SIP 136 MPT $* ================================================ FILE: rf/DISP2 ================================================ APR.95 $$$$$$$$ BEGIN DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1995 $ ****CARD 1- 24, 59- 62 ****RFMT 187,189-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 24, 59- 62 ****RFMT 187,189-204,207-209 $$$$ FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE $ ****SBST 1, 3 ****CARD 1- 24, 59- 62 ****RFMT 187,189-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 5- 10, 14, 15, 19, 21- 24, 61 ****FILE 101,116,120,121 ****PHS1 I1 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 ****PHS2 D5 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 124 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 124 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 123 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 117,119 ****PHS2 DB5 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 117 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 117,119 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 117 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 117 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 117,119 ****PHS2 DE5 $$$$ GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ ****CARD 1, 2, 13, 60, 61 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 24, 59- 62 ****FILE 97 $$$$ COND ERROR6,NOSIMP $ ****CARD 1- 6, 16 ****FILE 97 ****PHS2 D5 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 118 ****RFMT 187,190-192 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24, 61 ****FILE 118 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/ALWAYS $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 118 ****RFMT 187,189-204,207-209 ****PHS2 D5 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 118 $$$$ COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 120 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 120 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 120 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 120 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 ****PHS2 DB5 $$$$ COND LBL11A,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11A $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 ****PHS2 DE5 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 $$$$ LABEL LBL11 $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 100 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20- 23, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21- 23 ****FILE 101 $$$$ COND ERROR3,NOL $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 187,189-204,207-209 $$$$ COND ERROR4,REACT $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 187,189-204,207-209 ****PHS1 D1 $$$$ PURGE GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/ SINGLE $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 103,105,106,112,114 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 22, 23 ****FILE 104 $$$$ COND LBL2,MPCF2 $ ****CARD 1- 6, 8, 9, 22, 23 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9, 22, 23 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 22, 23 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 22, 23 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 22, 23 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 22, 23 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $ ****CARD 1- 6, 8- 10, 22, 23 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 22, 23 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ ****CARD 1- 6, 8- 11, 22, 23 ****FILE 106 $$$$ COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 22, 23 ****FILE 106 $$$$ SMP1 USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $ ****CARD 1- 6, 8- 11, 22, 23 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 22, 23 ****FILE 106 $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****CARD 1- 6, 8- 12, 22, 23 ****FILE 107 ****PHS1 DB1 ****PHS3 DB1 $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 108 $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****CARD 1- 6, 8- 12, 22, 23 ****FILE 110 ****PHS1 DE1 ****PHS3 DE1 $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ ****CARD 1- 3, 5, 6, 8, 13, 22, 23, 59- 62 ****FILE 111 $$$$ SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 ****FILE 112 ****PHS1 DB1 ****PHS3 DB7 $$$$ SSG4 PL,QR,PO,MR,MLR,DM,MLL,MOO,MOA,GO,USET/PLI,POI/OMIT $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 ****FILE 113 $$$$ SSG3 LLL,KLL,PLI,LOO,KOO,POI/ULV,UOOV,RULV,RUOV/OMIT/V,Y, IRES=-1/NSKIP/S,N,EPSI $ ****CARD 1- 6, 8- 13, 22, 23, 59- 62 ****FILE 114 ****RFMT 187 $$$$ COND LBL9,IRES $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 187,189-204,207-209 $$$$ MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 187,189-204,207-209 $$$$ MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 187,189-204,207-209 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 187,189-204,207-209 ****PHS3 DE7 $$$$ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ *STATICS* $ ****CARD 1- 6, 8- 13, 22, 23, 59- 62 ****FILE 115 ****RFMT 187,189-204,207-209 ****PHS3 I7 $$$$ COND LBL8,REPEAT $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ REPT LBL11,360 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ JUMP ERROR2 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ PARAM //*NOT*/TEST/REPEAT $ ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ COND ERROR5,TEST $ ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ LABEL LBL8 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ COND NOMPCF,GRDEQ $ ****CARD 7 ****FILE 121 ****RFMT 187,189-204,207-209 ****PHS2 DB5 $$$$ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ ****CARD 7 ****FILE 121 ****RFMT 187,189-204,207-209 $$$$ OFP OQM1,,,,,//S,N,CARDNO $ ****CARD 7 ****FILE 121 ****RFMT 187,189-204,207-209 $$$$ LABEL NOMPCF $ ****CARD 7 ****FILE 121 ****RFMT 187,189-204,207-209 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PGG, PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *STATICS*////COMPS $ ****CARD 18, 19 ****FILE 116 $$$$ OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ ****CARD 19 ****FILE 116 $$$$ OFP OESF1,OESF1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ JUMP FINIS $ ****CARD 1- 24, 59- 62 ****FILE 122 ****RFMT 187,189-204,207-209 ****PHS1 DE1 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 118 ****RFMT 187,189-204,207-209 $$$$ PRTPARM //-1/*INERTIA* $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 118 ****RFMT 187,189-204,207-209 ****PHS2 DE5 $$$$ LABEL ERROR2 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ PRTPARM //-2/*INERTIA* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 187,189-204,207-209 $$$$ PRTPARM //-3/*INERTIA* $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 187,189-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 187,189-204,207-209 $$$$ PRTPARM //-4/*INERTIA* $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 187,189-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ PRTPARM //-5/*INERTIA* $ ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1- 6, 16 ****FILE 97 ****RFMT 187,189-204,207-209 $$$$ PRTPARM //-6/*INERTIA* $ ****CARD 1- 6, 16 ****FILE 97 ****RFMT 187,189-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 24, 59- 62 ****FILE 122 ****RFMT 187,189-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 24, 59- 62 ****RFMT 187,189-204,207-209 $$$$ END $ ****CARD 1- 24, 59- 62 ****RFMT 187,189-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 7 AOUT$ 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 OPT GRDEQ 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 GRAV RFORCE 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 GPECT EST GEI MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET YS OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS KSS MFF 106 GO KAA KOO LOO MAA MOA MOO 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 PG 112 PL PO PS QR 113 PLI POI 114 RULV RUOV ULV UOOV 115 PGG QG UGV 116 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 116 OEF1L OES1L OESF1 OESF1L 117 ELSETS GPSETS PLTPAR PLTSETX 118 KDICT MDICT MELM 119 PLOTX1 120 OGPWG 121 OQM1 122 PLOTX2 123 BGPDP SIP 124 MPT $* ================================================ FILE: rf/DISP3 ================================================ APR.95 $$$$$$$$ BEGIN DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $ ****CARD 1- 6, 8- 16, 18- 22, 24, 61, 62 ****RFMT 187,188,190-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 16, 18- 22, 24, 61, 62 ****RFMT 187,188,190-204,207-209 $$$$ FILE LAMA=APPEND/PHIA=APPEND $ ****CARD 1- 6, 8- 16, 18- 22, 24, 61, 62 ****RFMT 187,188,190-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 12, 14, 15, 17, 19, 21, 22, 24, 61, 62 ****FILE 112,122,124,130,131 ****PHS1 I1 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 ****PHS2 D5 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 123 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 123 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 115 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 116,119 ****PHS2 DB5 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 116 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116,119 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PRTMSG PLOTX1//$ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116,119 ****PHS2 DE5 $$$$ GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 16, 18- 22, 24, 61, 62 ****FILE 97 $$$$ COND ERROR4,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 14, 16, 24 ****FILE 97 ****PHS2 D5 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8 ****FILE 118 ****RFMT 187,190-192 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 118 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,188,190-204,207-209 ****PHS2 D5 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 118 $$$$ COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 ****PHS2 DB5 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 ****PHS2 DE5 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20, 21 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 101 $$$$ COND ERROR3,NOL $ ****CARD 1, 9- 12 ****FILE 101 ****PHS1 I1 $$$$ PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ ****CARD 1, 9- 12 ****FILE 103,105-107,109,110,113 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 117 $$$$ COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,117 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 117 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,117 $$$$ COND LBL6,REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107-110 ****PHS1 DB1 ****PHS3 DB1 $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12 ****FILE 108 $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12 ****FILE 109 $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 110 $$$$ LABEL LBL6 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107-110 ****PHS1 DE1 ****PHS3 DE1 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ ****CARD 1, 9- 12, 61 ****FILE 111 ****PHS1 DB1 ****PHS3 DB7 $$$$ COND ERROR2,NOEED $ ****CARD 1, 9- 12, 61 ****FILE 111 ****RFMT 187,188,190-204,207-209 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 14, 24 ****FILE 112 $$$$ READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112 $$$$ OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112 $$$$ COND FINIS,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112-114,121,122 $$$$ OFP LAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112 ****PHS3 DE7 $$$$ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 113 ****RFMT 187,188,190-204,207-209 ****PHS3 I7 $$$$ COND NOMPCF,GRDEQ $ ****CARD 17 ****FILE 121 ****RFMT 187,188,190-204,207-209 ****PHS2 DB5 $$$$ EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ ****CARD 17 ****FILE 121 ****RFMT 187,188,190-204,207-209 $$$$ OFP OQM1,,,,,//S,N,CARDNO $ ****CARD 17 ****FILE 121 ****RFMT 187,188,190-204,207-209 $$$$ LABEL NOMPCF $ ****CARD 17 ****FILE 121 ****RFMT 187,188,190-204,207-209 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ *REIG*////COMPS $ ****CARD 18, 19 ****FILE 114 $$$$ OFP OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ ****CARD 19 ****FILE 114 $$$$ OFP OESF1,OESF1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ $ <== NEW, FROM A GPFDR CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ ****CARD 19 ****FILE 114 $$$$ OFP ONRGY1,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ PURGE KDICT,KELM/ALWAYS $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ $ END NEW COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 22, 24, 61, 62 ****FILE 122 ****RFMT 187,188,190-204,207-209 ****PHS1 DE1 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,188,190-204,207-209 $$$$ PRTPARM //-1/*MODES* $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,188,190-204,207-209 ****PHS2 DE5 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 61 ****FILE 111 ****RFMT 187,188,190-204,207-209 $$$$ PRTPARM //-2/*MODES* $ ****CARD 1, 9- 12, 61 ****FILE 111 ****RFMT 187,188,190-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 12 ****FILE 101 ****RFMT 187,188,190-204,207-209 $$$$ PRTPARM //-3/*MODES* $ ****CARD 1, 9- 12 ****FILE 101 ****RFMT 187,188,190-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 13, 16 ****FILE 97 ****RFMT 187,188,190-204,207-209 $$$$ PRTPARM //-4/*MODES* $ ****CARD 1- 6, 13, 16 ****FILE 97 ****RFMT 187,188,190-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 22, 24, 61, 62 ****FILE 112-114,121,122 ****RFMT 187,188,190-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 6, 8- 22, 24, 61, 62 ****FILE 112-114,121,122 ****RFMT 187,188,190-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 22, 24, 61, 62 ****RFMT 187,188,190-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF AXSLOT CELAS1 CELAS2 CELAS3 CELAS4 1 CMASS1 1 CMASS2 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C 1 CORD2R 1 CORD2S FREEPT GRDSET GRID GRIDB GRIDF GRIDS 1 POINTAX 1 PRESPT RINGAX RINGFL SECTAX SEQGP SLBDY SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CAXIF2 CAXIF3 CAXIF4 CBAR CCONEAX 2 CDUM1 2 CDUM2 CDUM3 CDUM4 CDUM5 CDUM6 CDUM7 CDUM8 2 CDUM9 2 CELBOW CFLUID2 CFLUID3 CFLUID4 CHEXA1 CHEXA2 CIHEX1 2 CIHEX2 2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 CQDMEM2 CQDPLT 2 CQUAD1 CQUAD2 CROD CSHEAR CSLOT3 CSLOT4 CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS FSLIST 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 AOUT$ 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 OPT GRDEQ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 61 EIGR 62 METHOD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 YS RG USET ASET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KOO LOO KAA 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 EED EQDYN GPLD SILD USETD 112 LAMA MI OEIGS PHIA 113 PHIG QG 114 OEF1 OES1 OPHIG OQG1 PPHIG 114 OEF1L OES1L OESF1 ONRGY1 OESF1L 115 BGPDP SIP 116 ELSETS GPSETS PLTPAR PLTSETX 117 MAA 118 KDICT KELM MDICT MELM 119 PLOTX1 120 OGPWG 121 OQM1 122 PLOTX2 123 MPT $* ================================================ FILE: rf/DISP4 ================================================ APR.95 $$$$$$$$ BEGIN DISP 04 - DIFFERENTIAL STIFFNESS ANALYSIS - APR. 1995 $ ****CARD 1- 6, 8- 25, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 25, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 5, 6, 8- 10, 14, 15, 19, 21, 24, 61 ****FILE 101,112,121,126 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 141 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 141 $$$$ COND ERROR3,NOGPDT $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 140 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122,125 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122,125 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122,125 $$$$ GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ ****CARD 1, 2, 13, 60, 61 ****FILE 96 $$$$ PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ ****CARD 1, 2, 15, 61 ****FILE 123 ****RFMT 187-189,191-204,207-209 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 25, 59- 62 ****FILE 97 $$$$ COND ERROR1,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-204,207-209 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 4, 6, 8 ****FILE 123 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 6, 8, 13, 15, 24, 61 ****FILE 123 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 6, 8, 14, 24, 61 ****FILE 98, 99 $$$$ COND JMPKGG,NOKGGX $ ****CARD 1- 4, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 4, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 4, 6, 8 ****CARD 123 $$$$ LABEL JMPKGG $ ****CARD 1- 4, 6, 8 ****FILE 98 $$$$ COND JMPMGG,NOMGG $ ****CARD 1- 5, 8, 14, 24, 61 ****FILE 99 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 5, 8, 14, 24, 61 ****FILE 99 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 5, 8, 14, 24, 61 ****CARD 123 $$$$ LABEL JMPMGG $ ****CARD 1- 5, 8, 14, 24, 61 ****FILE 99 $$$$ COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 126 $$$$ COND ERROR4,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 126 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 126 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 126 $$$$ LABEL LBL1 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 126 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12, 59 ****FILE 101 $$$$ CASE CASECC,/CASEXX/*TRANRESP*/0/NOLOOP $ ****CARD 1, 9- 11 ****FILE 124 $$$$ GP4 CASEXX,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20, 21, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 101 $$$$ COND ERROR5,NOL $ ****CARD 1, 9- 12, 59 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ COND LBL4D,REACT $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ JUMP ERROR2 $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ LABEL LBL4D $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG, YBS,PBS,KBFS,KBSS,KDFS,KDSS/SINGLE $ ****CARD 1, 9- 12, 59 ****FILE 103,105,106,109-111,115,117 $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ RBMG2 KAA/LLL $ ****CARD 1- 4, 6, 8- 11 ****FILE 107 $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASEXX,DIT,PCOMPS/ PG,,,,/LUSET/1/COMPS $ ****CARD 1- 3, 5, 6, 8, 13, 59- 62 ****FILE 108 $$$$ EQUIV PG,PL/NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 13, 59- 62 ****FILE 109 $$$$ COND LBL10,NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 13, 59- 62 ****FILE 109 $$$$ SSG2 USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 11, 13, 59- 62 ****FILE 109 $$$$ LABEL LBL10 $ ****CARD 1- 3, 5, 6, 8- 11, 13, 59- 62 ****FILE 109 $$$$ SSG3 LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ 1/S,N,EPSI $ ****CARD 1- 6, 8- 11, 13, 59- 62 ****FILE 110 ****RFMT 188 $$$$ COND LBL9,IRES $ ****CARD 1- 6, 8- 11, 13, 17, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 6, 8- 11, 13, 17, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 11, 13, 17, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 11, 13, 17, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ SDR1 USET,,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PG1,QG/1/*DS0* $ ****CARD 1- 6, 8- 11, 13, 59- 62 ****FILE 111 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PG, PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *DS0*////COMPS $ ****CARD 19 ****FILE 112 $$$$ OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ ****CARD 19 ****FILE 112 $$$$ OFP OESF1,OESF1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 127 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 127 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 127 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 127 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,,CSTM,/X1,X2,X3,ECPT,GPCT,,,/LUSET/ NOSIMP/0/NOGENL/GENEL $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 128 $$$$ DSMG1 CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/ DSCOSET $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 113 $$$$ PARAM //*ADD*/SHIFT/-1/0 $ ****CARD 1- 6, 8- 11, 59- 62 $$$$ PARAM //*ADD*/COUNT/ALWAYS=-1/NEVER= 1 $ ****CARD 1- 6, 8- 11, 59- 62 $$$$ PARAMR //*ADD*/DSEPSI/0.0/0.0 $ ****CARD 1- 6, 8- 11, 59- 62 $$$$ PARAML YS//*NULL*////NOYS $ ****CARD 1- 6, 8- 11, 59- 62 $$$$ LABEL OUTLPTOP $ ****CARD 1- 6, 8- 11, 59- 62 $$$$ EQUIV PG,PG1/NOYS $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 111 $$$$ PARAM //*KLOCK*/TO $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 114 $$$$ EQUIV KDGG,KDNN/MPCF1 $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 114 $$$$ COND LBL2D,MPCF1 $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 114 $$$$ MCE2 USET,GM,KDGG,,,/KDNN,,, $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 114 $$$$ LABEL LBL2D $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 114 $$$$ EQUIV KDNN,KDFF/SINGLE $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 115 $$$$ COND LBL3D,SINGLE $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 115 $$$$ SCE1 USET,KDNN,,,/KDFF,KDFS,KDSS,,, $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 115 $$$$ LABEL LBL3D $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 115 $$$$ EQUIV KDFF,KDAA/OMIT $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 116 $$$$ COND LBL5D,OMIT $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 116 $$$$ SMP2 USET,GO,KDFF/KDAA $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 116 $$$$ LABEL LBL5D $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 116 $$$$ ADD KAA,KDAA/KBLL/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 117 $$$$ ADD KFS,KDFS/KBFS/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 117 $$$$ ADD KSS,KDSS/KBSS/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 117 $$$$ COND PGOK,NOYS $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 129-133 $$$$ MPYAD KBSS,YS,/PSS/0/1/1/1 $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 129 $$$$ MPYAD KBFS,YS,/PFS/0/1/1/1 $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 130 $$$$ UMERGE USET,PFS,PSS/PN/*N*/*F*/*S* $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 131 $$$$ EQUIV PN,PGX/MPCF1 $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 132 $$$$ COND LBL6D,MPCF1 $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 132 $$$$ UMERGE USET,PN,/PGX/*G*/*N*/*M* $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 132 $$$$ LABEL LBL6D $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 132 $$$$ ADD PGX,PG/PGG/(-1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 133 $$$$ EQUIV PGG,PG1/ALWAYS $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 111 $$$$ LABEL PGOK $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 129-133 $$$$ ADD PG1,/PG0/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 134 $$$$ RBMG2 KBLL/LBLL/S,N,POWER/S,N,DET $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 118 $$$$ PRTPARM //0/*DET* $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 118 $$$$ PRTPARM //0/*POWER* $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 118 $$$$ LABEL INLPTOP $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 118 $$$$ PARAM //*KLOCK*/TI $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ SSG2 USET,GM,YS,KDFS,GO,,PG1/,PBO,PBS,PBL $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 117 $$$$ SSG3 LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/S,N, EPSI $ ****CARD 1- 6, 8- 11, 17, 22, 23, 59- 62 ****FILE 119 $$$$ COND LBL9D,IRES $ ****CARD 1- 6, 8- 11, 17, 22, 23, 59- 62 $$$$ MATGPR GPL,USET,SIL,RUBLV//*L* $ ****CARD 1- 6, 8- 11, 17, 22, 23, 59- 62 $$$$ LABEL LBL9D $ ****CARD 1- 6, 8- 11, 17, 22, 23, 59- 62 $$$$ SDR1 USET,,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/1/*DS1* $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 120 ****RFMT 187-189,191-204,207-209 $$$$ ADD UBGV,UGV/DUGV/(-1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 135 $$$$ DSMG1 CASECC,GPTT,SIL,EDT,DUGV,CSTM,MPT,ECPT,GPCT,DIT/DKDGG/ DSCOSET $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 136 $$$$ MPYAD DKDGG,UBGV,PG0/PGI1/0/1/1/0 $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 137 $$$$ DSCHK PG1,PGI1,UBGV//C,Y,EPSIO=1.E-5/S,N,DSEPSI/C,Y,NT=10/TO/ TI/S,N,DONE/S,N,SHIFT/S,N,COUNT/C,Y,BETAD=4 $ ****CARD 1- 6, 8- 11, 22, 23, 25, 59- 62 $$$$ COND DONE,DONE $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ COND SHIFT,SHIFT $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ EQUIV PG,PG1/NEVER/PGI1,PG1/ALWAYS/PG1,PGI1/NEVER $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 111,137 $$$$ REPT INLPTOP,1000 $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ TABPT PGI1,PG1,PG,,// $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ LABEL SHIFT $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ ADD DKDGG,KDGG/KDGG1/(-1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 138 $$$$ EQUIV UBGV,UGV/ALWAYS/KDGG1,KDGG/ALWAYS $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 111,113 $$$$ EQUIV KDGG,KDGG1/NEVER/UGV,UBGV/NEVER $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 120,138 $$$$ REPT OUTLPTOP,1000 $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ TABPT KDGG1,KDGG,UGV,,// $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ LABEL DONE $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,,, PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/ *DS1*////COMPS $ ****CARD 18, 19 ****FILE 121 $$$$ OFP OUBGV1,OQBG1,OEFB1,OESB1,,//S,N,CARDNO $ ****CARD 19 ****FILE 121 $$$$ OFP OEFB1L,OESB1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 121 $$$$ COND P3,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 139 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUBGV1,,GPECT, OESB1,OESB1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N, PFILE $ ****SBST 7 ****CARD 18 ****FILE 139 $$$$ PRTMSG PLOTX3// $ ****SBST 7 ****CARD 18 ****FILE 139 $$$$ LABEL P3 $ ****SBST 7 ****CARD 18 ****FILE 139 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 25, 59- 62 ****FILE 139 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-1/*DIFFSTIF* $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-2/*DIFFSTIF* $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1 ****FILE 94 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-3/*DIFFSTIF* $ ****CARD 1 ****FILE 94 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR4 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 123 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-4/*DIFFSTIF* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 123 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1, 9- 12, 59 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-5/*DIFFSTIF* $ ****CARD 1, 9- 12, 59 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 25, 59- 62 ****FILE 139 ****RFMT 187-189,191-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 25, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 25, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 EPSIO NT BETAD 59 DEFORM DEFORM$ LOAD$ RFORCE$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 GRAV RFORCE 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET YS OGPST 102 GPST 103 GM 104 KNN 105 KFF KFS KSS 106 GO KAA KOO LOO 107 LLL 108 PG 109 PL PO PS 110 RULV RUOV ULV UOOV 111 PG1 QG UGV 112 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 112 OEF1L OES1L OESF1 OESF1L 113 KDGG 114 KDNN 115 KDFF KDFS KDSS 116 KDAA 117 KBLL YBS KBFS KBSS PBL PBS PBO 118 LBLL 119 UBLV RUBLV 120 QBG UBGV 121 OEFB1 OESB1 OQBG1 OUBGV1 PUBGV1 121 OEFB1L OESB1L 122 ELSETS GPSETS PLTPAR PLTSETX 123 KDICT KELM MDICT MELM 124 CASEXX 125 PLOTX1 126 OGPWG 127 PLOTX2 128 X1 X2 X3 ECPT GPCT 129 PSS 130 PFS 131 PN 132 PGX 133 PGG 134 PGO 135 DUGV 136 DKDGG 137 PGI1 138 KDGG1 139 PLOTX3 140 BGPDP SIP 141 MPT $* ================================================ FILE: rf/DISP5 ================================================ APR.95 $$$$$$$$ BEGIN DISP 05 - BUCKLING ANALYSIS - APR. 1995 $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****RFMT 187-190,192-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****RFMT 187-190,192-204,207-209 $$$$ FILE LAMA=APPEND/PHIA=APPEND $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****RFMT 187-190,192-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 11, 14, 15, 19, 21, 24, 57- 62 ****FILE 101,112,118,120,125 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 130 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 130 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 129 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122,124 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122,124 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122,124 $$$$ GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ ****CARD 1, 2, 13, 57, 60 ****FILE 96 $$$$ PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ ****CARD 1, 2, 15, 57 ****FILE 123 ****RFMT 187-190,192-204,207-209 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****FILE 97 $$$$ COND ERROR1,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-190,192-204,207-209 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 15, 24, 57 ****FILE 123 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 5, 6, 8, 14, 15, 57 ****FILE 98, 99 $$$$ COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 99 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 99 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 123 $$$$ LABEL JMPMGG $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 99 $$$$ COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 57 ****FILE 125 $$$$ COND ERROR5,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 57 ****FILE 125 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 57 ****FILE 125 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 57 ****FILE 125 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 125 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12, 59 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20, 21, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 101 $$$$ COND ERROR6,NOL $ ****CARD 1, 9- 12, 59 ****FILE 101 ****RFMT 187-190,192-204,207-209 $$$$ COND LBL4D,REACT $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ JUMP ERROR2 $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ LABEL LBL4D $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ PARAM //*AND*/NOSR/SINGLE/REACT $ ****CARD 1, 9- 12, 59 ****FILE 101 $$$$ PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,KDFS/SINGLE/ QG/NOSR $ ****CARD 1, 9- 12, 59 ****FILE 103,105,106,109-111,115 $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ RBMG2 KAA/LLL $ ****CARD 1- 4, 6, 8- 11 ****FILE 107 $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/1/COMPS $ ****CARD 1- 3, 5, 6, 8, 13, 57- 60 ****FILE 108 $$$$ EQUIV PG,PL/NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 13, 57- 60 ****FILE 109 $$$$ COND LBL10,NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 13, 57- 60 ****FILE 109 $$$$ SSG2 USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 11, 13, 57- 60 ****FILE 109 $$$$ LABEL LBL10 $ ****CARD 1- 3, 5, 6, 8- 11, 13, 57- 60 ****FILE 109 $$$$ SSG3 LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ 1/S,N,EPSI $ ****CARD 1- 6, 8- 11, 13, 17, 57- 60 ****FILE 110 ****RFMT 188 $$$$ COND LBL9,IRES $ ****CARD 1- 6, 8- 11, 13, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 6, 8- 11, 13, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 11, 13, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 11, 13, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PGG,QG/1/ *BKL0* $ ****CARD 1- 6, 8- 11, 13, 57- 60 ****FILE 111 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PGG, PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *BKL0*////COMPS $ ****CARD 19 ****FILE 112 $$$$ OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ ****CARD 19 ****FILE 112 $$$$ OFP OESF1,OESF1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/ NOSIMP/0/NOGENL/GENEL $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 127 $$$$ DSMG1 CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/ DSCOSET $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 113 $$$$ EQUIV KDGG,KDNN/MPCF1 $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ COND LBL2D,MPCF1 $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ MCE2 USET,GM,KDGG,,,/KDNN,,, $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ LABEL LBL2D $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ EQUIV KDNN,KDFF/SINGLE $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ COND LBL3D,SINGLE $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ SCE1 USET,KDNN,,,/KDFF,KDFS,,,, $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ LABEL LBL3D $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ EQUIV KDFF,KDAA/OMIT $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116 $$$$ COND LBL5D,OMIT $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116 $$$$ SMP2 USET,GO,KDFF/KDAA $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116 $$$$ LABEL LBL5D $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116 $$$$ ADD KDAA,/KDAAM/(-1.0,0.0)/(0.0,0.0) $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 121 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ ****CARD 1- 6, 8- 11, 57- 61 ****FILE 117 $$$$ COND ERROR3,NOEED $ ****CARD 1- 6, 8- 11, 57- 61 ****FILE 117 ****RFMT 187-189,191-204,207-209 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 118 $$$$ READ KAA,KDAAM,,,EED,USET,CASECC/LAMA,PHIA,,OEIGS/*BUCKLING*/ S,N,NEIGV/2 $ ****CARD 1- 6, 8- 11, 57- 62 ****FILE 118 $$$$ OFP OEIGS,LAMA,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 11, 57- 62 ****FILE 118 $$$$ COND ERROR4,NEIGV $ ****CARD 1- 6, 8- 11, 57- 62 ****FILE 119 $$$$ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,BQG/1/*BKL1* $ ****CARD 1- 6, 8- 11, 57- 62 ****FILE 119 ****RFMT 187-189,191-204,207-209 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,BQG,PHIG,EST,,, PCOMPS/,OBQG1,OPHIG,OBES1,OBEF1,PPHIG,OBES1L,OBEF1L/ *BKL1*////COMPS $ ****CARD 18, 19 ****FILE 120 $$$$ OFP OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ OFP OBEF1L,OBES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ COND P3,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 128 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT, OBES1,OBES1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 128 $$$$ PRTMSG PLOTX3// $ ****SBST 7 ****CARD 18 ****FILE 128 $$$$ LABEL P3 $ ****SBST 7 ****CARD 18 ****FILE 128 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****FILE 128 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-1/*BUCKLING* $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-2/*BUCKLING* $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1- 6, 8- 11, 57- 61 ****FILE 117 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-3/*BUCKLING* $ ****CARD 1- 6, 8- 11, 57- 61 ****FILE 117 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 8- 11, 57- 62 ****FILE 118 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-4/*BUCKLING* $ ****CARD 1- 6, 8- 11, 57- 62 ****FILE 118 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR5 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 57 ****FILE 125 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-5/*BUCKLING* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 57 ****FILE 125 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1, 9- 12, 59 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ PRTPARM //-6/*BUCKLING* $ ****CARD 1, 9- 12, 59 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****FILE 128 ****RFMT 187-189,191-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****RFMT 187-189,191-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****RFMT 187-189,191-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 57 GRAV RFORCE 58 TEMPLD$ 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 EIGB 62 METHOD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET YS OGPST 102 GPST 103 GM 104 KNN 105 KFF KFS KSS 106 GO KAA KOO LOO 107 LLL 108 PG 109 PL PO PS 110 RULV RUOV ULV UOOV 111 PGG QG UGV 112 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 112 OEF1L OES1L OESF1 OESF1L 113 KDGG 114 KDNN 115 KDFF KDFS KDSS 116 KDAA 117 EED EQDYN GPLD SILD USETD 118 LAMA OEIGS PHIA 119 BQG PHIG 120 OBEF1 OBES1 OBQG1 OPHIG PPHIG 120 OBEF1L OBES1L 121 KDAAM 122 ELSETS GPSETS PLTPAR PLTSETX 123 KDICT KELM MDICT MELM 124 PLOTX1 125 OGPWG 126 PLOTX2 127 X1 X2 X3 ECPT GPCT 128 PLOTX3 129 BGPDP SIP 130 MPT $* ================================================ FILE: rf/DISP6 ================================================ APR.95 $$$$$$$$ BEGIN DISP 06 - PIECEWISE LINEAR STATIC ANALYSIS - APR. 1995 $ ****CARD 1- 6, 8- 24, 58- 62 ****RFMT 187-191,193-198 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 24, 58- 62 ****RFMT 187-191,193-198 $$$$ FILE QG1=APPEND/UGV1=APPEND/KGGSUM=SAVE/PGV1=APPEND $ ****CARD 1- 6, 8- 24, 58- 62 ****RFMT 187-191,193-198 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 5, 6, 8- 10, 14, 15, 19, 21- 24, 61 ****FILE 102,117,120,124 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 127 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 127 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 126 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 121,122 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 121 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121,122 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121,122 $$$$ GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ ****CARD 1, 2, 13, 60, 61 ****FILE 96 $$$$ PARAM //*AND*/SKPMGG/NOGRAV/V,Y,GRDPNT $ ****CARD 1, 2, 15, 61 ****FILE 123 ****RFMT 187-191,193-198 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,ECPT,GPCT, MPTX,PCOMPS,EPTX/LUSET/S,N,NOSIMP/2/S,N,NOGENL/GENEL/S,N,COMPS ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 24, 58- 62 ****FILE 97 $$$$ PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-191,193-198 $$$$ COND ERROR4,NOELMT $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-191,193-198 $$$$ PURGE KGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 98 $$$$ COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 14, 15, 24, 61 ****FILE 98, 99,123,124 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24, 61 ****FILE 123 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 5, 6, 8, 14, 15, 24, 61 ****FILE 98, 99 $$$$ COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 123 $$$$ LABEL JMPMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 124 $$$$ COND ERROR3,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 124 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/V,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 124 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 124 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 98, 99,123,124 $$$$ PLA1 CSTM,MPT,ECPT,GPCT,DIT,CASECC,EST/KGGXL,ECPTNL,ESTL,ESTNL/S,N, KGGLPG/S,N,NPLALIM/S,N,ECPTNLPG/S,N,PLSETNO/S,N,NONLSTR/S,N, PLFACT $ ****CARD 1- 3, 6, 8 ****FILE 100 $$$$ COND ERROR1,ECPTNLPG $ ****CARD 1- 3, 6, 8 ****FILE 100 $$$$ PURGE ONLES,ESTNL1/NONLSTR $ ****CARD 1- 3, 6, 8 ****FILE 100 $$$$ PARAM //*ADD*/ALWAYS/-1/0 $ ****CARD 1- 3, 6, 8 ****FILE 100 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 100 $$$$ EQUIV KGGX,KGG/NOGENL/KGGXL,KGGL/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 101 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 101 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 101 $$$$ SMA3 GEI,KGGXL/KGGL/LUSET/NOGENL/KGGLPG $ ****CARD 1- 4, 6, 8 ****FILE 101 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 101 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 104 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12, 59 ****FILE 102 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20, 21, 59 ****FILE 102 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 102 $$$$ PARAM //*AND*/NOSR/SINGLE/REACT $ ****CARD 1, 9- 12, 59 ****FILE 102 $$$$ PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ ****CARD 1, 9- 12, 59 ****FILE 105,107-109,111,113-115 $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,,,MGG,CASECC,DIT,PCOMPS/PG1,,,,/ LUSET/1/COMPS $ ****CARD 1- 3, 5, 6, 8, 59- 62 ****FILE 103 $$$$ EQUIV PG1,PL/NOSET $ ****CARD 1- 3, 5, 6, 8, 59- 62 ****FILE 103 $$$$ PARAM //*ADD*/PLACOUNT/1/0 $ ****CARD 22, 23 $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 106 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 105,106 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9, 22, 23 ****FILE 105 $$$$ LABEL LOOPBGN $ ****CARD 1- 4, 6, 8, 9, 22, 23 $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 106 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 106 $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 106 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 105,106 $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 107 $$$$ COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 107 $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 107 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 107 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 108 $$$$ COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 108 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 108 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 108 $$$$ EQUIV KAA,KLL/REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ COND LBL6,REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ LABEL LBL6 $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ DECOMP KLL/LLL,/1/0/MINDIAGK/DETKLLXX/IDETKLLX/ S,N,SINGKLLX $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 110 $$$$ COND PLALBL4,SINGKLLX $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 ****FILE 110 $$$$ COND LBL7,REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 111 $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 111 $$$$ LABEL LBL7 $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 111 $$$$ ADD PG1,/PG/PLFACT $ ****CARD 1- 3, 5, 6, 8, 13, 22, 23, 58- 62 ****FILE 112 ****RFMT 187,188,190,191 $$$$ COND LBL10,NOSET $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 58- 62 ****FILE 113 ****RFMT 187,188,190,191 $$$$ SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 58- 62 ****FILE 113 ****RFMT 187,188,190,191 $$$$ LABEL LBL10 $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 58- 62 ****FILE 113 ****RFMT 187,188,190,191 $$$$ SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ PLACOUNT/S,N,EPSI $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 ****FILE 114 ****RFMT 187,188,190,191 $$$$ COND LBL9,IRES $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 ****RFMT 187-191,193-198 $$$$ MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 ****RFMT 187-191,193-198 $$$$ MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 ****RFMT 187-191,193-198 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 ****RFMT 187-191,193-198 $$$$ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/DELTAUGV,DELTAPG, DELTAQG/1/*STATICS* $ ****CARD 1- 6, 8- 13, 22, 23, 58- 62 ****FILE 115 ****RFMT 187-191,193-198 $$$$ PLA2 DELTAUGV,DELTAPG,DELTAQG/UGV1,PGV1,QG1/S,N,PLACOUNT $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 116 $$$$ EQUIV ESTNL,ESTNL1/NEVER/ECPTNL,ECPTNL1/NEVER $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 117 $$$$ COND PLALBL2A,NONLSTR $ ****CARD 22, 23 ****FILE 117 $$$$ PLA3 CSTM,MPT,DIT,DELTAUGV,ESTNL,CASECC/ONLES,ESTNL1/PLACOUNT/ PLSETNO $ ****CARD 22, 23 ****FILE 117 $$$$ OFP ONLES,,,,,//S,N,CARDNO $ ****CARD 22, 23 ****FILE 117 $$$$ LABEL PLALBL2A $ ****CARD 22, 23 ****FILE 117 $$$$ PARAM //*SUB*/DIFF/NPLALIM/PLACOUNT $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 118 $$$$ COND PLALBL5,DIFF $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 118,119 $$$$ PLA4 CSTM,MPT,ECPTNL,GPCT,DIT,DELTAUGV/KGGNL,ECPTNL1/S,N,PLACOUNT/ S,N,PLSETNO/S,N,PLFACT $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 118 $$$$ EQUIV KGGNL,KGGSUM/KGGLPG $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 119 $$$$ COND PLALBL3,KGGLPG $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 119 $$$$ ADD KGGNL,KGGL/KGGSUM/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 119 $$$$ LABEL PLALBL3 $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 119 $$$$ EQUIV ESTNL1,ESTNL/ALWAYS/ECPTNL1,ECPTNL/ALWAYS/KGGSUM,KGG/ALWAYS $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 100,101 $$$$ REPT LOOPBGN,360 $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 $$$$ JUMP ERROR2 $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 $$$$ LABEL PLALBL4 $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 $$$$ PRTPARM //-5/*PLA* $ ****CARD 1- 4, 6, 8- 12, 22, 23 $$$$ LABEL PLALBL5 $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 118,119 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG1,UGV1,ESTL,, PGV1,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *PLA*////COMPS $ ****CARD 18, 19 ****FILE 120 $$$$ OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ SCAN CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $ ****CARD 19 ****FILE 120 $$$$ OFP OESF1,OESF1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,ECPT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 24, 58- 62 ****FILE 125 ****RFMT 187-191,193-198 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 6, 8 ****FILE 100 ****RFMT 187-191,193-198 $$$$ PRTPARM //-1/*PLA* $ ****CARD 1- 3, 6, 8 ****FILE 100 ****RFMT 187-191,193-198 $$$$ LABEL ERROR2 $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****RFMT 187-191,193-198 $$$$ PRTPARM //-2/*PLA* $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****RFMT 187-191,193-198 $$$$ LABEL ERROR3 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 124 ****RFMT 187-191,193-198 $$$$ PRTPARM //-3/*PLA* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 124 ****RFMT 187-191,193-198 $$$$ LABEL ERROR4 $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-191,193-198 $$$$ PRTPARM //-4/*PLA* $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-191,193-198 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 24, 58- 62 ****FILE 125 ****RFMT 187-191,193-198 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 24, 58- 62 ****RFMT 187-191,193-198 $$$$ END $ ****CARD 1- 6, 8- 24, 58- 62 ****RFMT 187-191,193-198 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATS1 MATS2 MATT1 MATT2 8 MATT3 MAT8 MAT6 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TABLES1 TABLES2 TABLES3 8 TABLES4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 58 PLCO$ PLFACT 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 GRAV RFORCE 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 ECPT GPECT EST GEI GPCT 97 MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGGXL ECPTNL ESTL ESTNL 101 KGG KGGL 102 ASET RG USET YS OGPST 103 PG1 104 GPST 105 GM 106 KNN 107 KFF KFS KSS 108 GO KAA KOO LOO 109 KLL KLR KRR 110 LLL 111 DM 112 PG 113 PL PO PS QR 114 RULV RUOV ULV UOOV 115 DELTAPG DELTAQG DELTAUGV 116 UGV1 PGV1 QG1 117 ONLES ESTNL1 118 KGGNL ECPTNL1 119 KGGSUM 120 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 120 OEF1L OES1L OESF1 OESF1L 121 ELSETS GPSETS PLTPAR PLTSETX 122 PLOTX1 123 KELM KDICT MELM MDICT 124 OGPWG 125 PLOTX2 126 BGPDP SIP 127 MPT $* ================================================ FILE: rf/DISP7 ================================================ APR.95 $$$$$$$$ BEGIN DISP 07 - DIRECT COMPLEX EIGENVALUE ANALYSIS - APR. 1995 $ ****CARD 1- 6, 8- 24, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 24, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ FILE GOD=SAVE/GMD=SAVE $ ****CARD 1- 6, 8- 24, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 11, 14, 19- 24, 52, 56- 62 ****FILE 101,111,112,114,128 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 132 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 132 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 131 $$$$ PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,EST,ECT,PLTSETX,PLTPAR,GPSETS, ELSETS/NOGPDT $ ****CARD 1 ****FILE 95, 97,101,103,105,106,120-123 $$$$ COND LBL5,NOGPDT $ ****CARD 1- 6, 8- 11, 13- 18, 20, 24, 58, 59 ****FILE 95-106,120-128 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16, 58 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120,127 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,127 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,127 $$$$ GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/ S,N,COMPS $ ****CARD 1- 6, 13, 16, 58, 59 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 24, 52, 56- 62 ****FILE 97 $$$$ PURGE K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA, KGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 16, 58, 59 ****FILE 98, 99,104-106,121-123,125 $$$$ COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 13- 15, 24, 58, 59 ****FILE 98, 99,104,105,121,122,124-126,128 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOBGG=-1/1/0 $ ****CARD 1- 3, 8 ****FILE 125 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOK4GG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/S,N, NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 124 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 5, 6, 8, 14, 24 ****FILE 98, 99 ****RFMT 187,190-192 $$$$ COND LBLKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL LBLKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND LBLMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 $$$$ LABEL LBLMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ COND LBLBGG,NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ EMA GPECT,BDICT,BELM/BGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ PURGE BDICT,BELM/MINUS1 $ ****CARD 1- 3, 8, 58, 59 ****FILE 124 $$$$ LABEL LBLBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ COND LBLK4GG,NOK4GG $ ****CARD 1- 3, 8 ****FILE 126 $$$$ EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ LABEL LBLK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ PURGE MNN,MFF,MAA/NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 104,105,121 ****RFMT 187,190-192 $$$$ PURGE BNN,BFF,BAA/NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 104,105,122 ****RFMT 187,190-192 $$$$ COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ COND ERROR3,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 13- 15, 24, 58, 59 ****FILE 98, 99,104,105,121,122,124-126,128 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 17, 20 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 20 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $ ****CARD 1, 9- 12 ****FILE 103,105,106,110,113 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT/BFF,BAA/OMIT/K4FF,K4AA/OMIT $ ****CARD 1- 6, 8- 11, 14, 24, 58, 59 ****FILE 106,121-123 $$$$ COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24, 58, 59 ****FILE 106,121-123 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ COND LBLM,NOMGG $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ LABEL LBLM $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ COND LBLB,NOBGG $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ SMP2 USET,GO,BFF/BAA $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ LABEL LBLB $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ COND LBL5,NOK4GG $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ SMP2 USET,GO,K4FF/K4AA $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 13- 18, 20, 23- 28, 30, 58, 59 ****FILE 95-106,120-128 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $ ****CARD 1, 9- 11, 57, 61 ****FILE 107 $$$$ COND ERROR1,NOEED $ ****CARD 1, 9- 11, 57, 61 ****FILE 107 $$$$ EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56, 58- 60 ****FILE 110 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 19, 21- 23 $$$$ PARAM //*MPY*/REPEATE/1/-1 $ ****CARD 1- 6, 8- 14, 16, 19, 21- 23, 52, 56- 62 ****FILE 108 ****RFMT 187-192,194-204,207-209 $$$$ BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ ****CARD 1, 52 ****FILE 118 $$$$ PARAM //*AND*/NOFL/NOABFL/NOKBFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 119 $$$$ PURGE KBFL/NOKBFL/ ABFL/NOABFL $ ****CARD 1, 52 ****FILE 118 $$$$ COND LBL13,NOFL $ ****CARD 1, 52 ****FILE 119 $$$$ MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ ****CARD 1, 52 ****FILE 119 $$$$ LABEL LBL13 $ ****CARD 1- 6, 8- 16, 18, 19, 21- 23, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ PURGE PHID,CLAMA,OPHID,OQPC1,OCPHIP,OESC1,OEFC1,CPHIP,QPC, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ ****CARD 19, 21- 23 ****FILE 109-114,129,130 $$$$ CASE CASECC,/CASEXX/*CEIGN*/S,N,REPEATE/S,N,NOLOOP $ ****CARD 1- 6, 8- 16, 19, 21- 23, 25, 52, 56- 62 ****FILE 108 ****RFMT 187-192,194-204,207-209 $$$$ MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ COND LBLFL2,NOFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129 $$$$ COND LBLFL2,NOABFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ TRNSP ABFL/ABFLT $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ LABEL LBLFL2 $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ PARAM //*AND*/BDEBA/NOUE/NOB2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 110 $$$$ PARAM //*AND*/MDEMA/NOUE/NOM2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 110 $$$$ PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 110 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ MAA,MDD/MDEMA/BAA,BDD/BDEBA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ COND LBL18,NOGPDT $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*CMPLEV*/*DISP*/*DIRECT*/C,Y,G=0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ LABEL LBL18 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ EQUIV B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ CEAD KDD,BDD,MDD,EED,CASEXX/PHID,CLAMA,OCEIGS,/S,N,EIGVS $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 $$$$ OFP OCEIGS,CLAMA,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 $$$$ COND LBL16,EIGVS $ ****CARD 1- 6, 8- 11, 14, 19, 21- 24, 52, 56- 62 ****FILE 112-114 $$$$ VDR CASEXX,EQDYN,USETD,PHID,CLAMA,,/OPHID,/*CEIGN*/*DIRECT*/ 0/S,N,NOD/S,N,NOP/0 $ ****CARD 19, 21 ****FILE 112 $$$$ COND LBL15,NOD $ ****CARD 21 ****FILE 112 $$$$ OFP OPHID,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 112 $$$$ LABEL LBL15 $ ****CARD 21 ****FILE 112 $$$$ COND LBL16,NOP $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 113 ****RFMT 187-192,194-204,207-209 $$$$ EQUIV PHID,CPHIP/NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 113 ****RFMT 187-192,194-204,207-209 $$$$ COND LBL17,NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 113 ****RFMT 187-192,194-204,207-209 $$$$ SDR1 USETD,, PHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 113 ****RFMT 187-192,194-204,207-209 $$$$ LABEL LBL17 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 113 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,CLAMA,QPC,CPHIP,EST,,,/ ,OQPC1,OCPHIP,OESC1,OEFC1,,,/*CEIG* $ ****CARD 19 ****FILE 114 $$$$ OFP OCPHIP,OQPC1,OEFC1,OESC1,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ LABEL LBL16 $ ****CARD 1- 6, 8- 11, 14, 19, 21- 24, 52, 56- 62 ****FILE 112-114 $$$$ COND FINIS,REPEATE $ ****SBST 1, 3 ****CARD 22, 23, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ PRTPARM //-2/*DIRCEAD* $ ****SBST 1, 3 ****CARD 22, 23, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 24, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1, 9- 11, 57, 61 ****RFMT 187-192,194-204,207-209 $$$$ PRTPARM //-1/*DIRCEAD* $ ****CARD 1, 9- 11, 57, 61 ****RFMT 187-192,194-204,207-209 $$$$ LABEL ERROR3 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 ****RFMT 187-192,194-204,207-209 $$$$ PRTPARM //-3/*DIRCEAD* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 ****RFMT 187-192,194-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 24, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 24, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 16, 18- 24, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CDAMP1 CDAMP2 CDAMP3 CDAMP4 CELAS1 1 CELAS2 1 CELAS3 CELAS4 CMASS1 CMASS2 CMASS3 CMASS4 CORD1C 1 CORD1R 1 CORD1S CORD2C CORD2R CORD2S FREEPT GRDSET GRID 1 GRIDB 1 POINTAX PREPT RINGAX RINGFL SECTAX SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFLUID2 2 CFLUID3 2 CFLUID4 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CONROD 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD 2 CSHEAR CTETRA CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 2 CTRIA2 CQUAD4 CTRIA3 2 CTRIAAX CTRIARG CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL 2 CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS FSLIST 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 ASETOUT 18 PLOT$ 19 POUT$ 20 AUTOSPC 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 52 BDYLIST FLSYM 56 G 57 EPOINT SEQEP TF 58 CVISC 59 PDAMP PVISC 60 DMIAX DMIG B2PP$ K2PP$ M2PP$ TF$ 61 EIGC EIGP 62 CMETHOD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 BNN K4NN KNN MNN 105 BFF K4FF KFF KFS MFF 106 GO KOO LOO KAA 107 EED EQDYN GPLD SILD TFPOOL USETD 108 CASEXX 109 B2PP K2DPP M2DPP 110 B2DD BDD GMD GOD K2DD KDD M2DD 110 MDD 111 CLAMA OCEIGS PHID 112 OPHID 113 CPHIP QPC 114 OCPHIP OEFC1 OESC1 OQPC1 118 BDPOOL 119 ABFL KBFL 120 ELSETS GPSETS PLTPAR PLTSETX 121 MAA 122 BAA 123 K4AA 124 BDICT BELM KDICT KELM MDICT MELM 125 BGG 126 K4GG 127 PLOTX1 128 OGPWG 129 K2PP 130 M2PP 131 BGPDP SIP 132 MPT $* ================================================ FILE: rf/DISP8 ================================================ APR.95 $$$$$$$$ BEGIN DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****RFMT 187-193,195-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****RFMT 187-193,195-204,207-209 $$$$ FILE KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****RFMT 187-193,195-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 10, 14, 15, 19, 21, 24, 29 ****FILE 101,113,115,116,128 ****PHS1 I1 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 ****PHS2 D8 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 136 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 136 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 135 $$$$ PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ ****CARD 1 ****FILE 95, 97,101,103,105,106,111,114,120,122,123 $$$$ COND LBL5,NOGPDT $ ****CARD 1- 6, 8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61 ****FILE 95-106,120-128 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16, 58 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120,127 ****PHS2 DB8 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,127 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PRTMSG PLOTX1//$ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,127 ****PHS2 DE8 $$$$ GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16, 58, 59 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****FILE 97 $$$$ PURGE K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA, KGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 16, 58, 59 ****FILE 98, 99,104-106,121-123,125 ****PHS2 DB8 $$$$ COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 13- 15, 24, 58, 59, 61 ****FILE 98, 99,124-126,128 ****PHS2 DE8 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOBGG=-1/1/0 $ ****CARD 1- 3, 8 ****FILE 124 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOK4GG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24, 61 ****FILE 124 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 5, 6, 8, 14, 24 ****FILE 98, 99 ****RFMT 187,190-192 $$$$ COND LBLKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL LBLKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND LBLMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 $$$$ LABEL LBLMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ COND LBLBGG,NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ EMA GPECT,BDICT,BELM/BGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ PURGE BDICT,BELM/ALWAYS $ ****CARD 1- 3, 8, 58, 59 ****FILE 124 $$$$ LABEL LBLBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ COND LBLK4GG,NOK4GG $ ****CARD 1- 3, 8 ****FILE 126 $$$$ EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ LABEL LBLK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ PURGE KDICT,KELM/ALWAYS $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ PURGE MNN,MFF,MAA/NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 104,105,121 ****RFMT 187,190-192 ****PHS2 DB8 $$$$ PURGE BNN,BFF,BAA/NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 104,105,122 ****RFMT 187,190-192 $$$$ COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ COND ERROR4,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 8, 13- 15, 24, 58, 59, 61 ****FILE 98, 99,124-126,128 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 ****PHS2 DE8 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 28, 29 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 29 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ ****CARD 1, 9- 12 ****FILE 103,105,106,110,111,114 ****PHS1 I1 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 121 $$$$ EQUIV BFF,BAA/OMIT $ ****CARD 1- 4, 8- 11, 58, 59 ****FILE 122 $$$$ EQUIV K4FF,K4AA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24, 58, 59 ****FILE 106,121-123 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ COND LBLM,NOMGG $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ LABEL LBLM $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ COND LBLB,NOBGG $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ SMP2 USET,GO,BFF/BAA $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ LABEL LBLB $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ COND LBL5,NOK4GG $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ SMP2 USET,GO,K4FF/K4AA $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61 ****FILE 95-106,120-128 ****PHS3 I1 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,, EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/S,N, NOFRL/NONLFT/NOTRL/NOEED//S,N,NOUE $ ****CARD 1, 9- 11, 55, 57, 61 ****FILE 107 ****PHS1 DB1 $$$$ EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 19, 21- 23 ****PHS3 DB7 $$$$ PARAM //*MPY*/REPEATF/-1/1 $ ****CARD 1- 6, 8- 14, 16, 19- 23, 27, 52, 54- 62 ****FILE 108 ****RFMT 187-193,195-204,207-209 $$$$ BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ ****CARD 1, 52 ****FILE 118 $$$$ PARAM //*AND*/NOFL/NOABFL/NOKBFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109,119 $$$$ PURGE KBFL/NOKBFL/ ABFL/NOABFL $ ****CARD 1, 52 ****FILE 119 $$$$ COND LBL13,NOFL $ ****CARD 1, 52 ****FILE 119 $$$$ MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ ****CARD 1, 52 ****FILE 119 $$$$ LABEL LBL13 $ ****CARD 1- 6, 8- 16, 18- 23, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ PURGE OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ ****CARD 19- 23, 27 ****FILE 109,110,115-117,129-133 $$$$ CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ ****CARD 1- 6, 8- 14, 16, 19- 23, 25, 27, 52, 54- 62 ****FILE 108 ****RFMT 187-193,195-204,207-209 $$$$ MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ COND LBLFL2,NOFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129 $$$$ COND LBLFL2,NOABFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ TRNSP ABFL/ABFLT $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ LABEL LBLFL2 $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ PARAM //*AND*/BDEBA/NOUE/NOB2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 ****PHS2 DB8 $$$$ PARAM //*AND*/MDEMA/NOUE/NOM2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 ****PHS2 DE8 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ MAA,MDD/MDEMA/BAA,BDD/BDEBA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ COND LBL18,NOGPDT $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ LABEL LBL18 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ EQUIV B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****PHS2 D8 $$$$ COND ERROR1,NOFRL $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 ****RFMT 187-193,195-204,207-209 $$$$ COND ERROR2,NODLT $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 ****RFMT 187-193,195-204,207-209 ****PHS1 DE1 $$$$ FRRD CASEXX,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,,DIT/UDVF,PSF,PDF,PPF/ *DISP*/*DIRECT*/LUSETD/MPCF1/SINGLE/OMIT/ NONCUP/FRQSET $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 ****PHS1 DB1 $$$$ EQUIV PPF,PDF/NOSET $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 $$$$ VDR CASEXX,EQDYN,USETD,UDVF,PPF,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $ ****CARD 19- 21, 27 ****FILE 112 $$$$ COND LBL15,NOD $ ****CARD 21, 27 ****FILE 113,131 $$$$ COND LBL15A,NOSORT2 $ ****CARD 21, 27 ****FILE 113 $$$$ SDR3 OUDVC1,,,,,/OUDVC2,,,,, $ ****CARD 21, 27 ****FILE 113 $$$$ OFP OUDVC2,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 113 $$$$ XYTRAN XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 27 ****FILE 131 $$$$ XYPLOT XYPLTFA// $ ****SBST 7 ****CARD 27 ****FILE 131 $$$$ JUMP LBL15 $ ****CARD 21, 27 ****FILE 131 $$$$ LABEL LBL15A $ ****CARD 21, 27 ****FILE 113 $$$$ OFP OUDVC1,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 113 $$$$ LABEL LBL15 $ ****CARD 21, 27 ****FILE 113,131 $$$$ COND LBL20,NOP $ ****CARD 1- 6, 8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62 ****FILE 114-117,132,133 ****RFMT 187-193,195-204,207-209 $$$$ EQUIV UDVF,UPVC/NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 ****PHS2 DB8 $$$$ COND LBL19,NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 ****PHS3 DE7 $$$$ SDR1 USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 $$$$ LABEL LBL19 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 ****PHS3 I7 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ ****CARD 19, 20 ****FILE 115 $$$$ COND LBL17,NOSORT2 $ ****CARD 19, 20, 26, 54, 55 ****FILE 115-117,132,133 $$$$ SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2, OEFC2, $ ****CARD 19, 20 ****FILE 116 $$$$ OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 132 $$$$ XYPLOT XYPLTF// $ ****SBST 7 ****CARD 20 ****FILE 132 $$$$ COND LBL16,NOPSDL $ ****SBST 7 ****CARD 20, 54, 55 ****FILE 117 ****RFMT 187-193,195-204,207-209 $$$$ RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ ****SBST 7 ****CARD 26, 54, 55 ****FILE 117 ****RFMT 187-193,195-204,207-209 $$$$ COND LBL16,NORD $ ****SBST 7 ****CARD 20, 26, 54, 55 ****FILE 133 $$$$ XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 133 $$$$ XYPLOT XYPLTR// $ ****SBST 7 ****CARD 20 ****FILE 133 $$$$ JUMP LBL16 $ ****CARD 20 ****FILE 133 $$$$ LABEL LBL17 $ ****CARD 19, 20, 26, 54, 55 ****FILE 115-117,132,133 $$$$ PURGE PSDF/NOSORT2 $ ****CARD 19, 20, 26, 54, 55 ****FILE 132 $$$$ OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $ ****CARD 19 ****FILE 115 $$$$ LABEL LBL16 $ ****CARD 20, 54, 55 ****FILE 114-117,132,133 $$$$ PURGE PSDF/NOPSDL $ ****CARD 20, 54, 55 ****FILE 132 $$$$ COND LBL20,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1, GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 134 ****PHS2 DE8 $$$$ LABEL LBL20 $ ****SBST 7 ****CARD 1- 6, 8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62 ****FILE 134 $$$$ COND FINIS,REPEATF $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-193,195-204,207-209 ****PHS3 DB7 $$$$ REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-193,195-204,207-209 $$$$ PRTPARM //-3/*DIRFRRD* $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 ****PHS1 DE1 ****PHS3 DE7 ****RFMT 187-193,195-204,207-209 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ PRTPARM //-2/*DIRFRRD* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ PRTPARM //-1/*DIRFRRD* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ LABEL ERROR4 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 ****RFMT 187-193,195-204,207-209 $$$$ PRTPARM //-4/*DIRFRRD* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 ****RFMT 187-193,195-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CDAMP1 CDAMP2 CDAMP3 CDAMP4 CELAS1 1 CELAS2 1 CELAS3 CELAS4 CMASS1 CMASS2 CMASS3 CMASS4 CORD1C 1 CORD1R 1 CORD1S CORD2C CORD2R CORD2S FREEPT GRDSET GRID 1 GRIDB 1 POINTAX PRESPT RINGAX RINGFL SECTAX SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFLUID2 2 CFLUID3 2 CFLUID4 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CONROD 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD 2 CSHEAR CTETRA CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 2 CTRIA2 CQUAD4 CTRIA3 2 CTRIAAX CTRIARG CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL 2 CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 FSLIST PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 26 RANDOM$ 27 AXYOUT$ 28 ASETOUT 29 AUTOSPC 52 BDYLIST FLSYM 55 RANDPS RANDT1 RANDT2 54 TABRND1 TABRND2 TABRND3 TABRND4 56 G 57 EPOINT SEQEP TF 58 CVISC 59 PDAMP PVISC 60 B2PP$ DMIAX DMIG K2PP$ M2PP$ TF$ 61 DAREA DELAY DLOAD DPHASE FREQ FREQ1 FREQ2 61 RLOAD1 RLOAD2 TABLED1 TABLED2 TABLED3 TABLED4 62 DECOMOPT DLOAD$ FREQ$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 BNN K4NN KNN MNN 105 BFF K4FF KFF KFS MFF 106 GO KOO LOO KAA 107 DLT EQDYN FRL GPLD PSDL SILD TFPOOL 107 USETD 108 CASEXX 109 B2PP K2DPP M2DPP 110 B2DD BDD GMD GOD K2DD KDD M2DD 110 MDD 111 PDF PPF PSF UDVF 112 OUDVC1 113 OUDVC2 114 QPC UPVC 115 OEFC1 PUPVC1 OESC1 OPPC1 OQPC1 OUPVC1 116 OEFC2 OESC2 OPPC2 OQPC2 OUPVC2 117 AUTO PSDF 118 BDPOOL 119 ABFL KBFL 120 ELSETS GPSETS PLTPAR PLTSETX 121 MAA 122 BAA 123 K4AA 124 BDICT BELM KDICT KELM MDICT MELM 125 BGG 126 K4GG 127 PLOTX1 128 OGPWG 129 K2PP 130 M2PP 131 XYPLTFA 132 XYPLTF 133 XYPLTR 134 PLOTX2 135 BGPDP SIP 136 MPT $* ================================================ FILE: rf/DISP9 ================================================ APR.95 $$$$$$$$ BEGIN DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1995 $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ FILE UDVT=APPEND/TOL=APPEND/RLODDISP=APPEND $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 5, 6, 8- 10, 14, 15, 19, 21, 24, 28 ****FILE 101,113,116,129 ****PHS1 I1 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 ****PHS2 D8 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 136 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 136 $$$$ PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 134 $$$$ PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ ****CARD 1 ****FILE 95, 97,101,103,105,106,111,114,120,122,123 $$$$ COND LBL5,NOGPDT $ ****CARD 1- 6, 8- 12, 14- 16, 18, 24, 26, 28, 58, 59, 61 ****FILE 95-106,120-126,128,129 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16, 58 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120,128 ****PHS2 DB8 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,128 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 128 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 128 $$$$ COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 128 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 128 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 128 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,128 ****PHS2 DE8 $$$$ GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ ****CARD 1, 2, 13, 61 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/ S,N,COMPS ****CARD 1- 6, 13, 16, 58, 59 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****FILE 97 $$$$ PURGE K4GG,MGG,BGG, K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,KGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 58, 59 ****FILE 98, 99,104,105,121,122,125,126 ****PHS2 DB8 $$$$ COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 13- 15, 24, 58, 59, 61 ****FILE 98, 99,124-126,129 ****PHS2 DE8 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOBGG=-1/1/0 $ ****CARD 1- 3, 8 ****FILE 125 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOK4GG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24, 61 ****FILE 124 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 5, 6, 8, 14, 24 ****FILE 98, 99 ****RFMT 187,190-192 $$$$ COND LBLKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL LBLKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND LBLMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 $$$$ LABEL LBLMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ COND LBLBGG,NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ EMA GPECT,BDICT,BELM/BGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ PURGE BDICT,BELM/ALWAYS $ ****CARD 1- 3, 8, 58, 59 ****FILE 124 $$$$ LABEL LBLBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ COND LBLK4GG,NOK4GG $ ****CARD 1- 3, 8 ****FILE 126 $$$$ EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ LABEL LBLK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ PURGE KDICT,KELM/ALWAYS $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ PURGE MNN,MFF,MAA/NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 104,105,121 ****RFMT 187,190-192 ****PHS2 DB8 $$$$ PURGE BNN,BFF,BAA/NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 104,105,122 ****RFMT 187,190-192 $$$$ COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 129 $$$$ COND ERROR3,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 129 $$$$ GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 129 $$$$ OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 129 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 14, 15, 24, 58, 59, 61 ****FILE 98, 99,124-126,129 $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 ****PHS2 DE8 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 26, 28 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 28 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $ ****CARD 1, 9- 12 ****FILE 103,105,106,110,111,114 ****PHS1 I1 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 103,104 $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS, ,MFF,BFF,K4FF $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 121 $$$$ EQUIV BFF,BAA/OMIT $ ****CARD 1- 4, 8- 11, 58, 59 ****FILE 122 $$$$ EQUIV K4FF,K4AA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24, 58, 59 ****FILE 106,121-123 $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ COND LBLM,NOMGG $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ LABEL LBLM $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ COND LBLB,NOBGG $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ SMP2 USET,GO,BFF/BAA $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ LABEL LBLB $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ COND LBL5,NOK4GG $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ SMP2 USET,GO,K4FF/K4AA $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 12, 14- 16, 18, 24, 26, 28, 58, 59, 61 ****FILE 95-106,120-126,128,129 ****PHS3 I1 $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,, EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/ NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $ ****CARD 1, 9- 11, 57, 61 ****FILE 107 ****PHS1 DB1 $$$$ COND ERROR1,NOTRL $ ****CARD 1, 9- 11, 57, 61 ****FILE 107 $$$$ PURGE PNLD/NONLFT$ ****CARD 1, 57, 61 ****FILE 107 $$$$ EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 11, 14, 24, 52, 56- 60 ****FILE 110 $$$$ BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ ****CARD 1, 52 ****FILE 118 ****PHS3 DB7 $$$$ PARAM //*AND*/NOFL/NOABFL/NOKBFL $ ****CARD 1, 52, 57, 60 ****FILE 109,119 $$$$ PURGE KBFL/NOKBFL/ ABFL/NOABFL $ ****CARD 1, 52 ****FILE 119 $$$$ COND LBLFL3,NOFL $ ****CARD 1, 52 ****FILE 119 $$$$ MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ ****CARD 1, 52 ****FILE 119 $$$$ LABEL LBLFL3 $ ****CARD 1, 52 ****FILE 119 $$$$ MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ ****CARD 1, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ ****CARD 1, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ ****CARD 1, 52, 57, 60 ****FILE 109 $$$$ EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ ****CARD 1, 52, 57, 60 ****FILE 130,131 $$$$ COND LBLFL2,NOFL $ ****CARD 1, 52, 57, 60 ****FILE 130,131 $$$$ ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ ****CARD 1, 52, 57, 60 ****FILE 130 $$$$ COND LBLFL2,NOABFL $ ****CARD 1, 52, 57, 60 ****FILE 131 $$$$ TRNSP ABFL/ABFLT $ ****CARD 1, 52, 57, 60 ****FILE 131 $$$$ ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ ****CARD 1, 52, 57, 60 ****FILE 131 $$$$ LABEL LBLFL2 $ ****CARD 1, 52, 57, 60 ****FILE 130,131 $$$$ PARAM //*AND*/KDEKA/NOUE/NOK2PP $ ****CARD 1, 52, 57, 60 ****FILE 110 $$$$ PARAM //*AND*/MDEMA/NOUE/NOM2PP $ ****CARD 1, 52, 57, 60 ****FILE 110 ****PHS2 DB8 $$$$ PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ ****CARD 1, 52, 57, 60 ****FILE 110 ****PHS2 DE8 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 14, 24, 52, 57- 60 ****FILE 110 $$$$ EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ ****CARD 1- 6, 8- 11, 14, 24, 52, 57- 60 ****FILE 110 $$$$ COND LBL16,NOGPDT $ ****CARD 1- 6, 8- 11, 14, 24, 52, 57- 60 ****FILE 110 ****RFMT 193,194 $$$$ GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/ C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ ****CARD 1- 6, 8- 11, 14, 24, 52, 56- 60 ****FILE 110 ****RFMT 193,194 $$$$ LABEL LBL16 $ ****CARD 1- 6, 8- 11, 14, 24, 52, 56- 60 ****FILE 110 ****RFMT 193,194 $$$$ EQUIV M2DD,MDD/NOSIMP/B2DD,BDD/NOGPDT/K2DD,KDD/KDEK2 $ ****CARD 1- 6, 8- 11, 14, 24, 52, 56- 60 ****FILE 110 ****PHS2 D8 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 14, 22- 24 $$$$ PARAM //*MPY*/REPEATT/1/-1 $ ****CARD 1- 6, 8- 14, 16, 19- 24, 27, 52, 56- 62 ****FILE 108 ****RFMT 187-194,196-204,207-209 $$$$ LABEL LBL13 $ ****SBST 1, 3 ****CARD 1- 6, 8- 16, 18- 25, 52, 56- 62 ****FILE 108 ****RFMT 187-194,196-204,207-209 $$$$ PURGE PNLD,OUDV1,OPNL1,OUDV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1, OEF1,OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT/NEVER $ ****CARD 14, 19- 24, 27 ****FILE 112,113,115,116,127,132,133,135 $$$$ CASE CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $ ****CARD 1- 6, 8- 14, 16, 19- 25, 27, 52, 56- 62 ****FILE 108 ****RFMT 187-194,196-204,207-209 $$$$ PARAM //*MPY*/NCOL/0/1 $ ****SBST 4 ****CARD 1- 6, 8- 11, 14, 24, 52, 56- 60 ****FILE 111 $$$$ TRLG CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG, MPT/PPT,PST,PDT,PD,,TOL/S,N,NOSET/NCOL $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 $$$$ EQUIV PPT,PDT/NOSET $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 ****PHS1 DE1 $$$$ TRD CASEXX,TRL,NLFT,DIT,KDD,BDD,MDD,PD/UDVT,PNLD,RLODDISP/*DIRECT*/ NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $ ****CARD 1- 6, 8- 11, 14, 17, 22- 24, 52, 56- 62 ****FILE 127 ****PHS1 DB1 $$$$ VDR CASEXX,EQDYN,USETD,UDVT,TOL,XYCDB,PNLD/OUDV1,OPNL1/ *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $ ****CARD 19- 21, 27 ****FILE 112 $$$$ COND LBL15,NOD $ ****CARD 21, 27 ****FILE 113,135 $$$$ SDR3 OUDV1,OPNL1,,,,/OUDV2,OPNL2,,,, $ ****CARD 21, 27 ****FILE 113 $$$$ OFP OUDV2,OPNL2,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 113 $$$$ XYTRAN XYCDB,OUDV2,OPNL2,,,/XYPLTTA/*TRAN*/*DSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 27 ****FILE 135 $$$$ XYPLOT XYPLTTA// $ ****SBST 7 ****CARD 27 ****FILE 135 $$$$ LABEL LBL15 $ ****CARD 21, 27 ****FILE 113,135 $$$$ PARAM //*AND*/PJUMP/NOP/JUMPPLOT $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-194,196-204,207-209 $$$$ COND LBL18,PJUMP $ ****CARD 1- 6, 8- 11, 14, 18- 20, 22- 24, 52, 56- 62 ****FILE 114-116,132,133 ****RFMT 187-194,196-204,207-209 $$$$ EQUIV UDVT,UPV/NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-194,196-204,207-209 ****PHS2 DB8 $$$$ COND LBL17,NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-194,196-204,207-209 ****PHS3 DE7 $$$$ SDR1 USETD,,UDVT,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-194,196-204,207-209 $$$$ LABEL LBL17 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-194,196-204,207-209 ****PHS3 I7 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB, PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $ ****CARD 18- 20 ****FILE 115 $$$$ SDR3 OPP1,OQP1,OUPV1,OES1,OEF1,/ OPP2,OQP2,OUPV2,OES2,OEF2, $ ****CARD 18- 20 ****FILE 116 $$$$ OFP OPP2,OQP2,OUPV2,OEF2,OES2,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ SCAN CASECC,OES2,OEF2,,/OESF2,/*RF* $ ****CARD 19 ****FILE 116 $$$$ OFP OESF2,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 132 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,GPECT,OES1, ,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 132 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 132 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 132 $$$$ XYTRAN XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/ S,N,PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 133 $$$$ XYPLOT XYPLTT// $ ****SBST 7 ****CARD 20 ****FILE 133 ****PHS2 DE8 $$$$ LABEL LBL18 $ ****CARD 1- 6, 8- 11, 14, 18- 20, 22- 24, 52, 56- 62 ****FILE 114-116,132,133 $$$$ COND FINIS,REPEATT $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-194,196-204,207-209 ****PHS3 DB7 $$$$ REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-194,196-204,207-209 $$$$ PRTPARM //-2/*DIRTRD* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-194,196-204,207-209 ****PHS1 DE1 ****PHS3 DE7 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1, 9- 11, 57, 61 ****RFMT 187-194,196-204,207-209 $$$$ PRTPARM //-1/*DIRTRD* $ ****CARD 1, 9- 11, 57, 61 ****RFMT 187-194,196-204,207-209 $$$$ LABEL ERROR3 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 129 ****RFMT 187-194,196-204,207-209 $$$$ PRTPARM //-3/*DIRTRD* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 129 ****RFMT 187-194,196-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CDAMP1 CDAMP2 CDAMP3 CDAMP4 CELAS1 1 CELAS2 1 CELAS3 CELAS4 CMASS1 CMASS2 CMASS3 CMASS4 CORD1C 1 CORD1R 1 CORD1S CORD2C CORD2R CORD2S FREEPT GRDSET GRID 1 GRIDB 1 POINTAX PRESPT RINGAX RINGFL SECTAX SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFLUID2 2 CFLUID3 2 CFLUID4 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CONROD 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD 2 CSHEAR CTETRA CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 2 CTRIA2 CQUAD4 CTRIA3 2 CTRIAAX CTRIARG CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL 2 CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 FSLIST PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 MAT6 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 ISTART 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 26 ASETOUT 27 AXYOUT$ 28 AUTOSPC 52 BDYLIST FLSYM 56 G W3 W4 57 EPOINT SEQEP TF 58 CVISC 59 PDAMP PVISC 60 DMIAX DMIG B2PP$ K2PP$ M2PP$ TF$ 61 DAREA DELAY DLOAD FORCE FORCE1 FORCE2 GRAV 61 MOMENT 61 MOMENT1 MOMENT2 NOLIN1 NOLIN2 NOLIN3 NOLIN4 NOLIN6 61 PLOAD PLOAD4 61 PLOAD1 PLOAD2 SLOAD TABLED1 TABLED2 TABLED3 TABLED4 61 TIC TLOAD1 TLOAD2 TSTEP 62 DLOAD$ IC$ NLFORCE TSTEP$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 BNN K4NN KNN MNN 105 BFF K4FF KFF KFS MFF 106 GO KOO LOO KAA 107 DLT EQDYN GPLD NLFT SILD TFPOOL TRL 107 USETD 108 CASEXX 109 B2PP K2DPP M2DPP 110 B2DD BDD GMD GOD K2DD KDD M2DD 110 MDD 111 PD PDT PPT PST TOL 112 OUDV1 OPNL1 113 OUDV2 OPNL2 114 QP UPV 115 OEF1 OES1 OPP1 OQP1 OUPV1 PUGV 116 OEF2 OES2 OPP2 OQP2 OUPV2 OESF2 118 BDPOOL 119 ABFL KBFL 120 ELSETS GPSETS PLTPAR PLTSETX 121 MAA 122 BAA 123 K4AA 124 BDICT BELM KDICT KELM MDICT MELM 125 BGG 126 K4GG 127 PNLD UDVT RLODDISP 128 PLOTX1 129 OGPWG 130 K2PP 131 M2PP 132 PLOTX2 133 XYPLTT 134 BGPDP SIP 135 XYPLTTA 136 MPT $* ================================================ FILE: rf/HEAT1 ================================================ APR.95 $$$$$$$$ BEGIN HEAT 01 - STATIC HEAT TRANSFER ANALYSIS - APR. 1995 $ ****CARD 1- 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ PRECHK ALL $ ****CARD 1- 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ FILE HQG=APPEND/HPGG=APPEND/HUGV=APPEND/HGM=SAVE/HKNN=SAVE $ ****SBST 1, 3 ****CARD 1- 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 6, 8- 10, 15, 19, 22, 23 ****FILE 101,114 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 120 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 120 $$$$ PLTTRAN BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $ ****CARD 1 ****FILE 119 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115,117 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115 $$$$ COND HP1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 115,117 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 115 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 115 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 117 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 117 $$$$ COND HP1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 117 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/ HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 117 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 117 $$$$ LABEL HP1 $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 115,117 $$$$ GP3 GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $ ****CARD 1, 2, 13, 60 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,HGEI,HGPECT,,,,,/ HLUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 $$$$ COND ERROR4,NOELMT $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-204,208,209 $$$$ PURGE HKGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 98 $$$$ COND HLBL1,NOSIMP $ ****CARD 1- 3, 6, 8 ****FILE 98,116 $$$$ PARAM //*ADD*/HNOKGG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 116 $$$$ EMG HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $ ****CARD 1- 3, 6, 8 ****FILE 116 $$$$ PURGE HKGGX/HNOKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND HLBL1,HNOKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA HGPECT,HKDICT,HKELM/HKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE HKDICT,HKELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 116 $$$$ LABEL HLBL1 $ ****CARD 1- 3, 6, 8 ****FILE 98,116 $$$$ EQUIV HKGGX,HKGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND HLBL11A,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 HGEI,HKGGX/HKGG/HLUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL HLBL11A $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN HKGG,HSIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12, 22, 23 ****FILE 101 $$$$ LABEL HLBL11 $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,HUSET, HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,HREPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 14, 15, 22, 23, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 12, 14, 15, 22, 23, 59 ****FILE 101 $$$$ COND ERROR3,NOL $ ****CARD 1, 9- 12, 14, 15, 22, 23, 59 ****FILE 101 ****RFMT 187-204,208,209 $$$$ PARAM //*AND*/NOSR/SINGLE/REACT $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 $$$$ PURGE HKRR,HKLR,HQR,HDM/REACT/GM/MPCF1/HGO,HKOO,HLOO,HPO,HUOOV, HRUOV/OMIT/HPS,HKFS,HKSS/SINGLE/HQG/NOSR $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 103,105-107,109,111-113 $$$$ EQUIV HKGG,HKNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 104 $$$$ COND HLBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 103,104 $$$$ MCE1 HUSET,RG/GM $ ****CARD 1, 9, 22, 23 ****FILE 103 $$$$ MCE2 HUSET,GM,HKGG,,,/HKNN,,, $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 104 $$$$ LABEL HLBL2 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 103,104 $$$$ EQUIV HKNN,HKFF/SINGLE $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ COND HLBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ SCE1 HUSET,HKNN,,,/HKFF,HKFS,HKSS,,, $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ LABEL HLBL3 $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ EQUIV HKFF,HKAA/OMIT $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ COND HLBL5,OMIT $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ SMP1 HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ LABEL HLBL5 $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ EQUIV HKAA,HKLL/REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ COND HLBL6,REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ RBMG1 HUSET,HKAA,/HKLL,HKLR,HKRR,,, $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ LABEL HLBL6 $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ RBMG2 HKLL/HLLL $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 108 $$$$ COND HLBL7,REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ RBMG3 HLLL,HKLR,HKRR/HDM $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ LABEL HLBL7 $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ SSG1 HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,/ HPG,,,,SCR/HLUSET/NSKIP $ ****CARD 1- 3, 6, 8, 22, 23, 59- 62 ****FILE 110 $$$$ EQUIV HPG,HPL/NOSET $ ****CARD 1- 3, 6, 8- 12, 22, 23, 59- 62 ****FILE 111 $$$$ COND HLBL10,NOSET $ ****CARD 1- 3, 6, 8- 12, 22, 23, 59- 62 ****FILE 111 $$$$ SSG2 HUSET,GM,YS,HKFS,HGO,HDM,HPG/HQR,HPO,HPS,HPL $ ****CARD 1- 3, 6, 8- 12, 22, 23, 59- 62 ****FILE 111 $$$$ LABEL HLBL10 $ ****CARD 1- 3, 6, 8- 12, 22, 23, 59- 62 ****FILE 111 $$$$ SSG3 HLLL,HKLL,HPL,HLOO,HKOO,HPO/HULV,HUOOV,HRULV,HRUOV/OMIT/ V,Y,IRES=-1/NSKIP/S,N,EPSI $ ****CARD 1- 6, 8- 12, 17, 22, 23, 59- 62 ****FILE 112 ****RFMT 188 $$$$ COND HLBL9,IRES $ ****CARD 1- 6, 8- 12, 17, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ MATGPR GPL,HUSET,HSIL,HRULV//*L* $ ****CARD 1- 6, 8- 12, 17, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ MATGPR GPL,HUSET,HSIL,HRUOV//*O* $ ****CARD 1- 6, 8- 12, 17, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ LABEL HLBL9 $ ****CARD 1- 6, 8- 12, 17, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ SDR1 HUSET,HPG,HULV,HUOOV,YS,HGO,GM,HPS,HKFS,HKSS,HQR/HUGV,HPGG, HQG/NSKIP/*HSTATICS* $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 113 ****RFMT 187-204,208,209 $$$$ COND HLBL8,HREPEAT $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ REPT HLBL11,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ JUMP ERROR1 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ PARAM //*NOT*/HTEST/HREPEAT $ ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ COND ERROR2,HTEST $ ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ LABEL HLBL8 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV, HEST,,HPGG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/ *STATICS* $ ****CARD 18, 19 ****FILE 114 $$$$ OFP HOUGV1,HOPG1,HOQG1,HOEF1,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ COND HP2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 118 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIP,HPUGV1,HOES1, HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 118 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 118 $$$$ LABEL HP2 $ ****SBST 7 ****CARD 18 ****FILE 118 $$$$ JUMP FINIS $ ****CARD 1- 6, 8- 16, 18, 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ LABEL ERROR1 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ PRTPARM //-1/*HSTA* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ LABEL ERROR2 $ ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ PRTPARM //-2/*HSTA* $ ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 12, 14, 15, 22, 23, 59 ****FILE 101 ****RFMT 187-204,208,209 $$$$ PRTPARM //-3/*HSTA* $ ****CARD 1, 9- 12, 14, 15, 22, 23, 59 ****FILE 101 ****RFMT 187-204,208,209 $$$$ LABEL ERROR4 $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-204,208,209 $$$$ PRTPARM //-4/*HSTA* $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-204,208,209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 16, 18, 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 16, 18, 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ END $ ****CARD 1- 6, 8- 16, 18, 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ $*CARD BITS 1 CELAS1 CELAS2 CELAS3 CELAS4 1 CORD1C CORD1R CORD1S CORD2C CORD2R CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CDUM1 CDUM2 CDUM3 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFTUBE 2 CHBDY 2 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD 2 CQDMEM CQDMEM1 CQDMEM2 CQUAD1 CQUAD2 CQUAD4 CROD 2 CTETRA CTRAPRG CTRIA1 CTRIA2 CTRIA3 2 CTRIARG CTRMEM CTUBE 2 CWEDGE 3 PBAR PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PFTUBE PHBDY PIHEX 3 PIS2D8 PQDMEM PQDMEM1 PQDMEM2 PQUAD1 PQUAD2 PROD 3 PTRIA1 PTRIA2 PSHELL PCOMP PCOMP1 PCOMP2 3 PTRMEM PTUBE 4 GENEL 6 PELAS 8 MAT1 MAT2 MAT3 MAT4 MAT5 MATT1 MATT2 8 MATT3 MATT4 MATT5 MAT8 TABLEM1 TABLEM2 TABLEM3 8 MAT6 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ MPC MPCADD MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 ASETOUT 15 AUTOSPC 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 22 LOOP$ 23 LOOP1$ 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX QBDY1 60 QBDY2 QHBDY QVECT QVOL SLOAD 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL HSIL 95 ECT 96 GPTT HSLT 97 HGPECT HEST HGEI 98 HKGGX 100 HKGG 101 HASET RG HUSET YS OGPST 102 GPST 103 GM 104 HKNN 105 HKFF HKSS HKFS 106 HGO HKAA HKOO HLOO 107 HKLL HKLR HKRR 108 HLLL 109 HDM 110 HPG SCR 111 HPL HPO HPS HQR 112 HRULV HRUOV HULV HUOOV 113 HPGG HQG HUGV 114 HOEF1 HOPG1 HOQG1 HOUGV1 HPUGV1 HOES1 115 ELSETS GPSETS PLTPAR PLTSETX 116 HKDICT HKELM 117 PLOTX1 118 PLOTX2 119 BGPDP HSIP 120 MPT $* ================================================ FILE: rf/HEAT3 ================================================ APR.95 $$$$$$$$ BEGIN HEAT 03 - NONLINEAR STATIC HEAT TRANSFER ANALYSIS - APR. 1995 $ ****CARD 1- 3, 6, 8- 11, 13, 15- 19, 54, 55, 59, 60, 62 ****RFMT 187-204,207,209 $$$$ PRECHK ALL $ ****CARD 1- 3, 6, 8- 11, 13, 15- 19, 54, 55, 59, 60, 62 ****RFMT 187-204,207,209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 6, 8- 10, 15, 19 ****FILE 101,114,117 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 120 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 120 $$$$ PLTTRAN BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $ ****CARD 1 ****FILE 113 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115,118 $$$$ PURGE HPLTSETX,HPLTPAR,HGPSETS,HELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115 $$$$ COND HP1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115,118 $$$$ PLTHBDY GEOM2,ECT,EPT,HSIL,EQEXIN,BGPDT/PECT,PSIL,PEQEXIN,PBGPDT/ S,N,NHBDY/V,Y,MESH=NO $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ EQUIV ECT,PECT/NHBDY/HSIL,PSIL/NHBDY/EQEXIN,PEQEXIN/NHBDY/ BGPDT,PBGPDT/NHBDY $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PLTSET PCDB,PEQEXIN,PECT,/HPLTSETX,HPLTPAR,HGPSETS,HELSETS/S,N,HNSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PRTMSG HPLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 118 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 118 $$$$ COND HP1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 118 $$$$ PLOT HPLTPAR,HGPSETS,HELSETS,CASECC,PBGPDT,PEQEXIN,PSIL,,,,,,/ PLOTX1/HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 118 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 118 $$$$ LABEL HP1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115,118 $$$$ GP3 GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $ ****CARD 1, 2, 13, 60 ****FILE 96 $$$$ SETVAL //S,N,REPEATH/-1 $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$ LABEL LOOPTOP $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$ CASE CASECC,/CASEXX/*TRANRESP*/S,N,REPEATH/S,N,NOLOOP $ ****CARD 22, 23 ****FILE 101 $$$$ PARAML CASEXX//*TABLE1*/1/8//TEMPMATE $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$ PARAM //*STSR*/TEMPMATE/-10 $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$ TA1 ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,,HGPECT,,,,,/ HLUSET/S,N,NOSIMP/1/NOGENL/GENEL $ ****CARD 1- 3, 6, 13, 16 ****FILE 97 $$$$ COND ERROR2,NOSIMP $ ****CARD 1, 2, 6, 8, 16 ****FILE 97 ****RFMT 187-204,207,209 $$$$ PARAM //*ADD*/HNOKGG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMG HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE HKGG/HNOKGG $ ****CARD 1- 3, 6, 8 ****FILE 99 $$$$ COND JMPKGGX,HNOKGG $ ****CARD 1- 3, 6, 8 ****FILE 99 $$$$ EMA HGPECT,HKDICT,HKELM/HKGGX $ ****CARD 1- 3, 6, 8 ****FILE 99 $$$$ PURGE HKDICT,HKELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL JMPKGGX $ ****CARD 1- 3, 6, 8 ****FILE 99 $$$$ RMG HEST,MATPOOL,GPTT,HKGGX/HRGG,HQGE,HKGG/C,Y,TABS/C,Y,SIGMA=0.0/ S,N,HNLR/HLUSET $ ****CARD 1- 3, 6, 8, 55 ****FILE 100 $$$$ EQUIV HKGGX,HKGG/HNLR $ ****CARD 1- 3, 6, 8, 55 ****FILE 100 $$$$ GPSTGEN HKGG,HSIL/GPST $ ****CARD 1- 3, 6, 8, 55 ****FILE 102 $$$$ PURGE HQGE,HRGG/HNLR $ ****CARD 1- 3, 6, 8, 55 ****FILE 100 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1- 3, 6, 8- 10, 14, 15, 59 ****FILE 101 $$$$ GP4 CASEXX,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,HUSET, HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/REPEATG/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 3, 6, 8- 10, 14, 15, 55, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 3, 6, 8- 10, 14, 15, 55, 59 ****FILE 101 $$$$ COND ERROR1,NOL $ ****CARD 1, 9, 10, 14, 15, 59 ****FILE 101 ****RFMT 187-204,207,209 $$$$ PURGE GM/MPCF1/HPS,HKFS,HKSS,HKSF,HRSN,HQG/SINGLE $ ****CARD 1, 9, 10, 59 ****FILE 103,105,107,111,112 $$$$ EQUIV HKGG,HKNN/MPCF1/HRGG,HRNN/MPCF1 $ ****CARD 1- 3, 6, 8, 9, 13 ****FILE 100,104 $$$$ COND HLBL1,MPCF1 $ ****CARD 1- 3, 6, 8, 9, 13 ****FILE 103,104 $$$$ MCE1 HUSET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 HUSET,GM,HKGG,HRGG,,/HKNN,HRNN,, $ ****CARD 1- 3, 6, 8, 9, 55 ****FILE 104 $$$$ LABEL HLBL1 $ ****CARD 1- 3, 6, 8, 9, 55 ****FILE 103,104 $$$$ EQUIV HKNN,HKFF/SINGLE/HRNN,HRFN/SINGLE $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 105,107 $$$$ COND HLBL2,SINGLE $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 105,107,116 $$$$ VEC HUSET/VFS/*N*/*F*/*S* $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 116 $$$$ PARTN HKNN,VFS,/HKFF,HKSF,HKFS,HKSS $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 105 $$$$ PARTN HRNN,,VFS/HRFN,HRSN,,/1 $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 107 $$$$ LABEL HLBL2 $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 105,107,116 $$$$ DECOMP HKFF/HLLL,HULL/0/0/MDIAG/DET/PWR/S,N,KSING $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 108 $$$$ COND ERROR3,KSING $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 108 $$$$ SSG1 HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASEXX,DIT,/ HPG,,,,SCR/HLUSET/NSKIP $ ****CARD 1- 3, 6, 8, 13, 55, 59, 60, 62 ****FILE 110 $$$$ EQUIV HPG,HPF/NOSET $ ****CARD 1- 3, 6, 8- 10, 13, 55, 59, 60, 62 ****FILE 111 $$$$ COND HLBL3,NOSET $ ****CARD 1- 3, 6, 8- 10, 13, 55, 59, 60, 62 ****FILE 111 $$$$ SSG2 HUSET,GM,,HKFS,,,HPG/,,HPS,HPF $ ****CARD 1- 3, 6, 8- 10, 13, 55, 59, 60, 62 ****FILE 111 $$$$ LABEL HLBL3 $ ****CARD 1- 3, 6, 8- 10, 13, 55, 59, 60, 62 ****FILE 111 $$$$ SSGHT HUSET,HSIL,GPTT,GM,HEST,MPT,DIT,HPF,HPS,HKFF,HKFS,HKSF, HKSS,HRFN,HRSN,HLLL,HULL/HUGV,HQG,HRULV/HNNLK=1/HNLR/ C,Y,EPSHT=.001/C,Y,TABS=0.0/C,Y,MAXIT=4/V,Y,IRES/ MPCF1/SINGLE $ ****CARD 1- 3, 6, 8- 11, 13, 17, 54, 55, 59, 60, 62 ****FILE 112 $$$$ COND HLBL4,IRES $ ****CARD 1- 3, 6, 8- 11, 13, 17, 54, 55, 59, 60, 62 $$$$ MATGPR GPL,HUSET,HSIL,HRULV//*F* $ ****CARD 1- 3, 6, 8- 11, 13, 17, 54, 55, 59, 60, 62 $$$$ LABEL HLBL4 $ ****CARD 1- 3, 6, 8- 11, 13, 17, 54, 55, 59, 60, 62 ****FILE 114 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV, HEST,,HPG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/ *STATICS* $ ****CARD 18, 19 ****FILE 114 $$$$ OFP HOUGV1,HOPG1,HOQG1,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ SDRHT HSIL,HUSET,HUGV,HOEF1,HSLT,HEST,DIT,HQGE,,/HOEF1X/C,Y,TABS/ HNLR $ ****CARD 18, 19 ****FILE 117 $$$$ OFP HOEF1X,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 117 $$$$ COND HP2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 119 $$$$ PLTSET PCDB,EQEXIN,ECT/PSMES,DPLTPAR,DGPSETS,DELSETS/S,N,DSIL/DJ $ ****SBST 7 ****CARD 18 ****FILE 119 $$$$ PLOT DPLTPAR,DGPSETS,DELSETS,CASEXX,BGPDT,EQEXIN,HSIP,HPUGV1,, HGPECT,HOES1,,/PLOTX2/DSIL/HLUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 119 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 119 $$$$ LABEL HP2 $ ****SBST 7 ****CARD 18 ****FILE 119 $$$$ COND FINIS,REPEATH $ ****SBST 1, 3 ****CARD 1- 3, 6, 8- 10, 14, 15, 59 ****FILE 101 ****RFMT 187-204,207,209 $$$$ REPT LOOPTOP,100 $ ****SBST 1, 3 ****CARD 1- 3, 6, 8- 10, 14, 15, 59 ****FILE 101 ****RFMT 187-204,207,209 $$$$ JUMP FINIS $ ****CARD 1- 3, 6, 8- 11, 13, 15- 19, 54, 55, 59, 60, 62 ****RFMT 187-204,207,209 $$$$ LABEL ERROR1 $ ****CARD 1, 9, 10, 14, 15, 59 ****FILE 101 ****RFMT 187-204,207,209 $$$$ PRTPARM //-1/*HNLI* $ ****CARD 1, 9, 10, 14, 15, 59 ****FILE 101 ****RFMT 187-204,207,209 $$$$ LABEL ERROR2 $ ****CARD 1, 2, 6, 8, 16 ****FILE 97 ****RFMT 187-204,207,209 $$$$ PRTPARM //-2/*HNLI* $ ****CARD 1, 2, 6, 8, 16 ****FILE 97 ****RFMT 187-204,207,209 $$$$ LABEL ERROR3 $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 108 ****RFMT 187-204,207,209 $$$$ PRTPARM //-3/*HNLI* $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 108 ****RFMT 187-204,207,209 $$$$ LABEL FINIS$ ****CARD 1- 3, 6, 8- 11, 13, 15- 19, 54, 55, 59, 60, 62 ****RFMT 187-204,207,209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 3, 6, 8- 11, 13, 15- 19, 54, 55, 59, 60, 62 ****RFMT 187-204,207,209 $$$$ END $ ****CARD 1- 3, 6, 8- 11, 13, 15- 19, 54, 55, 59, 60, 62 $$$$ $*CARD BITS 1 CELAS1 CELAS2 CELAS3 CELAS4 CORD1C CORD1R CORD1S 1 CORD2C CORD2R CORD2S GRDSET GRID SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CDUM1 CDUM2 CDUM3 CDUM4 2 CDUM5 2 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFTUBE CHBDY 2 CHEXA1 2 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM 2 CQDMEM1 CQDMEM2 CQUAD1 CQUAD2 CROD CTETRA CTRAPRG 2 CTRIA1 CTRIA2 CTRIARG CTRMRM CQUAD4 CTRIA3 2 CTUBE CWEDGE 3 PBAR PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 PDUM6 3 PDUM7 3 PDUM8 PDUM9 PELBOW PFTUBE PHBDY PIHEX PIS2D8 3 PQDMEM PQDMEM1 PQDMEM2 PQUAD1 PQUAD2 PROD PTUBE 3 PTRIA1 PTRIA2 PTRMEM PSHELL PCOMP PCOMP1 PCOMP2 6 PELAS 8 MAT1 MAT2 MAT3 MAT4 MAT5 MATT1 MATT2 8 MATT3 MATT4 MATT5 MAT8 TABLEM1 TABLEM2 TABLEM3 8 MAT6 TABLEM4 TEMPMT$ TEMPMX$ 9 MPC MPCADD MPC$ 10 SPC SPC1 SPCADD SPC$ 11 IRES 13 TEMP TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 ASETOUT 15 AUTOSPC 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 22 LOOP$ 23 LOOP1$ 54 EPSHT MAXIT 55 RADMTX RADLST SIGMA TABS 59 LOAD$ SPCD 60 LOAD QBDY1 QBDY2 QHBDY QVECT QVOL SLOAD 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL HSIL 95 ECT 96 GPTT HSLT 97 HEST HGEI HGPECT 98 HKDICT HKELM 99 HKGGX 100 HRGG HKGG HQGE 101 HASET RG HUSET OGPST 102 GPST 103 GM 104 HKNN HRNN 105 HKFF HKFS HKSF HKSS 107 HRFN HRSN 108 HLLL HULL 110 HPG 111 HPF HPS 112 HRULV HQG HUGV 113 BGPDP HSIP 114 HOES1 HOEF1 HOPG1 HOQG1 HOUGV1 HPUGV1 115 HELSETS HGPSETS HPLTPAR HPLTSETX 116 VFS 117 HOEF1X 118 PLOTX1 119 PLOTX2 120 MPT $* ================================================ FILE: rf/HEAT9 ================================================ APR.95 $$$$$$$$ BEGIN HEAT 09 - TRANSIENT HEAT TRANSFER ANALYSIS - APR. 1995 $ ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ PRECHK ALL $ ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 6, 8- 10, 13, 15, 19, 21, 55- 57, 59- 62 ****FILE 101,113,116 $$$$ GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/ S,N,NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ ****CARD 8 ****FILE 129 $$$$ EQUIV MPTA,MPT/ISOP $ ****CARD 8 ****FILE 129 $$$$ PLTTRAN BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $ ****CARD 1 ****FILE 118 $$$$ PURGE HUSET,GM,HGO,HKAA,HBAA,HPSO,HKFS,HQP,HEST/NOGPDT $ ****CARD 1 ****FILE 97,101,103,105,106,114,117,122 $$$$ COND HLBL5,NOGPDT $ ****CARD 1- 3, 6, 8- 11, 55, 59 ****FILE 95-106,120-124 $$$$ GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120,124 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120 $$$$ COND HP1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120,124 $$$$ PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ COND HP1,JUMPPLOT$ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/ HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ LABEL HP1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120,124 $$$$ GP3 GEOM3,EQEXIN,GEOM2/HSLT,GPTT/1 $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,,HGPECT,,,,,/ HLUSET/S,N,NOSIMP=-1/1/123/123 $ ****CARD 1- 3, 6, 13, 16, 59 ****FILE 97 $$$$ PURGE HKGG,HBGG/NOSIMP $ ****CARD 1- 3, 6, 8, 59 ****FILE 98, 99,123 $$$$ COND HLBL1,NOSIMP $ ****CARD 1- 3, 6, 8, 59 ****FILE 98, 99,123 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ PARAM //*ADD*/NOBGG/1/0 $ ****CARD 1- 3, 8, 59 ****FILE 123 $$$$ EMG HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,HBELM,HBDICT,/S,N, NOKGGX//S,N,NOBGG $ ****CARD 1- 3, 6, 8, 59 ****FILE 123 $$$$ PURGE HKGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMA HGPECT,HKDICT,HKELM/HKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE HKDICT,HKELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ LABEL JMPKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ COND JMPHBGG,NOBGG $ ****CARD 1- 3, 8, 59 ****FILE 99 $$$$ EMA HGPECT,HBDICT,HBELM/HBGG $ ****CARD 1- 3, 8, 59 ****FILE 99 $$$$ PURGE HBDICT,HBELM/MINUS1 $ ****CARD 1- 3, 8, 59 ****FILE 123 $$$$ LABEL JMPHBGG $ ****CARD 1- 3, 8, 59 ****FILE 99 $$$$ PURGE HBNN,HBFF,HBAA,HBGG/NOBGG $ ****CARD 1- 3, 8, 59 ****FILE 99,104,105,122 $$$$ LABEL HLBL1 $ ****CARD 1- 3, 6, 8, 59 ****FILE 98, 99,123 $$$$ RMG HEST,MATPOOL,GPTT,HKGGX/HRGG,HQGE,HKGG/C,Y,TABS/C,Y,SIGMA=0.0/ S,N,HNLR/HLUSET $ ****CARD 1- 3, 6, 8, 55 ****FILE 100 $$$$ EQUIV HKGGX,HKGG/HNLR $ ****CARD 1- 3, 6, 8, 55 ****FILE 100 $$$$ GPSTGEN HKGG,HSIL/GPST $ ****CARD 1- 3, 6, 8, 55 ****FILE 102 $$$$ PURGE HRGG,HRNN,HRFF,HRAA,HRDD/HNLR $ ****CARD 1- 3, 6, 8, 55 ****FILE 100,104,105,110,121 $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,HUSET, ASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/123/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 3, 6, 8- 11, 14, 15, 55 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 3, 6, 8- 11, 14, 15, 55 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/HGO,HGOD/OMIT/HKFS,HPSO,HQP/SINGLE $ ****CARD 1, 9- 11 ****FILE 103,105,106,110,114,117 $$$$ EQUIV HKGG,HKNN/MPCF1/HRGG,HRNN/MPCF1/HBGG,HBNN/MPCF1 $ ****CARD 1- 3, 6, 8, 9 ****FILE 104 $$$$ COND HLBL3,MPCF1 $ ****CARD 1- 3, 6, 8, 9, 55, 59 ****FILE 103,104 $$$$ MCE1 HUSET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 HUSET,GM,HKGG,HRGG,HBGG,/HKNN,HRNN,HBNN, $ ****CARD 1- 3, 6, 8, 9, 55, 59 ****FILE 104 $$$$ LABEL HLBL3 $ ****CARD 1- 3, 6, 8, 9, 55, 59 ****FILE 103,104 $$$$ EQUIV HKNN,HKFF/SINGLE/HRNN,HRFF/SINGLE/HBNN,HBFF/SINGLE $ ****CARD 1- 3, 6, 8- 10, 55, 59 ****FILE 105 $$$$ COND HLBL4,SINGLE $ ****CARD 1- 3, 6, 8- 10, 55, 59 ****FILE 105 $$$$ SCE1 HUSET,HKNN,HRNN,HBNN,/HKFF,HKFS,,HRFF,HBFF, $ ****CARD 1- 3, 6, 8- 10, 55, 59 ****FILE 105 $$$$ LABEL HLBL4 $ ****CARD 1- 3, 6, 8- 10, 55, 59 ****FILE 105 $$$$ EQUIV HKFF,HKAA/OMIT $ ****CARD 1- 3, 6, 8- 11 ****FILE 106 $$$$ EQUIV HRFF,HRAA/OMIT $ ****CARD 1- 3, 8, 9, 55 ****FILE 121 $$$$ EQUIV HBFF,HBAA/OMIT $ ****CARD 1- 3, 8, 9, 59 ****FILE 122 $$$$ COND HLBL5,OMIT $ ****CARD 1- 3, 6, 8- 11, 55, 59 ****FILE 106,121,122 $$$$ SMP1 HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $ ****CARD 1- 3, 6, 8- 11, 55 ****FILE 106 $$$$ COND HLBLR,HNLR $ ****CARD 1- 3, 6, 8- 11, 55 ****FILE 121 $$$$ SMP2 HUSET,HGO,HRFF/HRAA $ ****CARD 1- 3, 6, 8- 11, 55 ****FILE 121 $$$$ LABEL HLBLR $ ****CARD 1- 3, 6, 8- 11, 55 ****FILE 121 $$$$ COND HLBL5,NOBGG $ ****CARD 1- 3, 6, 8- 11, 59 ****FILE 122 $$$$ SMP2 HUSET,HGO,HBFF/HBAA $ ****CARD 1- 3, 6, 8- 11, 59 ****FILE 122 $$$$ LABEL HLBL5 $ ****CARD 1- 3, 6, 8- 11, 55, 59 ****FILE 95-106,120-124 $$$$ DPD DYNAMICS,GPL,HSIL,HUSET/GPLD,HSILD,HUSETD,TFPOOL,HDLT,,, HNLFT,HTRL,,HEQDYN/HLUSET/S,N,HLUSETD/123 /S,N,NODLT/ 123/123/S,N,NONLFT/S,N,NOTRL/123//S,N,NOUE $ ****CARD 1, 9- 11, 57, 60- 62 ****FILE 107 $$$$ COND ERROR1,NOTRL $ ****CARD 1, 57, 61 ****FILE 107 $$$$ EQUIV HGO,HGOD/NOUE/GM,GMD/NOUE $ ****CARD 1, 57, 61 ****FILE 110 $$$$ PURGE HPPO,HPSO,HPDO,HPDT/NODLT $ ****CARD 1, 57, 61 ****FILE 107 $$$$ MTRXIN CASECC,MATPOOL,HEQDYN,,TFPOOL/HK2PP,,HB2PP/HLUSETD/ S,N,NOK2PP/123/S,N,NOB2PP $ ****CARD 1, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/KDEKA/NOUE/NOK2PP $ ****CARD 1, 57, 60 ****FILE 109 $$$$ PURGE HK2DD/NOK2PP/HB2DD/NOB2PP $ ****CARD 1- 3, 6, 8- 11, 57, 59, 60 ****FILE 110 $$$$ EQUIV HKAA,HKDD/KDEKA/HB2PP,HB2DD/NOA/HK2PP,HK2DD/NOA/HRAA,HRDD/ NOUE $ ****CARD 1- 3, 6, 8- 11, 57, 59, 60 ****FILE 110 $$$$ COND HLBL6,NOGPDT $ ****CARD 1- 3, 6, 8- 11, 17, 57, 59, 60 ****FILE 110 $$$$ GKAD HUSETD,GM,HGO,HKAA,HBAA,HRAA,,HK2PP,,HB2PP/HKDD,HBDD, HRDD,GMD,HGOD,HK2DD,,HB2DD/*TRANRESP*/*DISP*/ *DIRECT*/C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/-1/ NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/NOBGG/NOSIMP/-1 $ ****CARD 1- 3, 6, 8- 11, 17, 57, 59, 60 ****FILE 110 $$$$ LABEL HLBL6 $ ****CARD 1- 3, 6, 8- 11, 17, 57, 59, 60 ****FILE 110 $$$$ EQUIV HK2DD,HKDD/NOSIMP/HB2DD,HBDD/NOGPDT $ ****CARD 1- 3, 6, 8- 11, 57, 59, 60 ****FILE 110 $$$$ PARAM //*MPY*/REPEATT/1/-1 $ ****CARD 1- 3, 6, 8- 11, 57, 59, 60 ****FILE 110 $$$$ LABEL HLBL10 $ ****SBST 1, 3 ****RFMT 187-204,207,208 $$$$ CASE CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $ ****CARD 1- 3, 6, 8- 11, 13, 16, 19, 21- 23, 25, 55- 57, 59- 62 ****FILE 108 $$$$ TRLG CASEXX,HUSETD,HDLT,HSLT,BGPDT,HSIL,CSTM,HTRL,DIT,GMD,HGOD,, HEST,,/HPPO,HPSO,HPDO,HPDT,,HTOL/S,N,NOSET $ ****CARD 1- 3, 6, 8- 11, 55, 57, 61 ****FILE 117 $$$$ EQUIV HPPO,HPDO/NOSET $ ****CARD 1- 3, 6, 8- 11, 55, 57, 61 ****FILE 117 $$$$ TRHT CASEXX,HUSETD,HNLFT,DIT,GPTT,HKDD,HBDD,HRDD,HPDT,HTRL/ HUDVT,HPNLD/C,Y,BETA=.55/C,Y,TABS=0.0/HNLR/C,Y,RADLIN=-1/ C,Y,SIGMA=0.0 $ ****CARD 1- 3, 6, 8- 11, 13, 55- 57, 59- 62 ****FILE 111 $$$$ VDR CASEXX,HEQDYN,HUSETD,HUDVT,HTOL,XYCDB,HPNLD/HOUDV1,HOPNL1/ *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $ ****CARD 13, 19- 21, 27, 55- 57, 59- 62 ****FILE 112 $$$$ COND HLBL7,NOD $ ****CARD 13, 21, 27, 55- 57, 59- 62 ****FILE 113,128 $$$$ SDR3 HOUDV1,HOPNL1,,,,/HOUDV2,HOPNL2,,,, $ ****CARD 13, 21, 27, 55- 57, 59- 62 ****FILE 113 $$$$ OFP HOUDV2,HOPNL2,,,,//S,N,CARDNO $ ****CARD 13, 21, 55- 57, 59- 62 ****FILE 113 $$$$ XYTRAN XYCDB,HOUDV2,HOPNL2,,,/HXYPLTTA/*TRAN*/*DSET*/S,N,HPFILE/ S,N,HCARDNO $ ****SBST 7 ****CARD 27 ****FILE 128 $$$$ XYPLOT HXYPLTTA// $ ****SBST 7 ****CARD 27 ****FILE 128 $$$$ LABEL HLBL7 $ ****CARD 21, 27 ****FILE 113,128 $$$$ PARAM //*AND*/PJUMP/NOP/JUMPPLOT $ ****CARD 1- 3, 6, 8- 11, 22, 23, 57, 59- 62 ****FILE 114 ****RFMT 187-204,207,208 $$$$ COND HLBL9,PJUMP $ ****CARD 1- 3, 6, 8- 11, 18- 20, 22, 23, 55- 57, 59- 62 ****FILE 114-116,125-127 ****RFMT 187-204,207,208 $$$$ EQUIV HUDVT,HUPV/NOA $ ****CARD 1- 3, 6, 8- 11, 22, 23, 57, 59- 62 ****FILE 114 ****RFMT 187-204,207,208 $$$$ COND HLBL8,NOA $ ****CARD 1- 3, 6, 8- 11, 22, 23, 57, 59- 62 ****FILE 114 ****RFMT 187-204,207,208 $$$$ SDR1 HUSETD,,HUDVT,,,HGOD,GMD,HPSO,HKFS,,/HUPV,,HQP/1/ *DYNAMICS* $ ****CARD 1- 3, 6, 8- 11, 22, 23, 57, 59- 62 ****FILE 114 ****RFMT 187-204,207,208 $$$$ LABEL HLBL8 $ ****CARD 1- 3, 6, 8- 11, 22, 23, 57, 59- 62 ****FILE 114 ****RFMT 187-204,207,208 $$$$ SDR2 CASEXX,CSTM,MPT,DIT,HEQDYN,HSILD,,,BGPDP,HTOL,HQP,HUPV,HEST, XYCDB,HPPO,/HOPP1,HOQP1,HOUPV1,HOES1,HOEF1,HPUGV,,/ *TRANRESP* $ ****CARD 18- 20 ****FILE 115 $$$$ SDRHT HSILD,HUSETD,HUPV,HOEF1,HSLT,HEST,DIT,HQGE,HDLT,/HOEF1X/C,Y, TABS/HNLR $ ****CARD 18- 20 ****FILE 125 $$$$ EQUIV HOEF1X,HOEF1/MINUS1 $ ****CARD 18- 20 ****FILE 125 $$$$ SDR3 HOPP1,HOQP1,HOUPV1,HOES1,HOEF1,/HOPP2,HOQP2,HOUPV2,HOES2, HOEF2, $ ****CARD 18- 20 ****FILE 116 $$$$ OFP HOPP2,HOQP2,HOUPV2,HOEF2,HOES2,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ COND HP2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,HSIP,,HPUGV, HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ LABEL HP2 $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ XYTRAN XYCDB,HOPP2,HOQP2,HOUPV2,HOES2,HOEF2/HXYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 127 $$$$ XYPLOT HXYPLTT// $ ****SBST 7 ****CARD 20 ****FILE 127 $$$$ LABEL HLBL9 $ ****CARD 20 ****FILE 114-116,125-127 $$$$ COND FINIS,REPEATT $ ****SBST 1, 3 ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ REPT HLBL10,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,207,208 $$$$ PRTPARM //-2/*HTRD* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,207,208 $$$$ JUMP FINIS $ ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ LABEL ERROR1 $ ****CARD 1, 57, 61 ****FILE 97 ****RFMT 187-204,207,208 $$$$ PRTPARM //-1/*HTRD* $ ****CARD 1, 57, 61 ****FILE 97 ****RFMT 187-204,207,208 $$$$ LABEL FINIS$ ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ END $ ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ $*CARD BITS 1 CDAMP1 CDAMP2 CDAMP3 CDAMP4 CELAS1 CELAS2 CELAS3 1 CELAS4 1 CORD1C CORD1R CORD1S CORD2C CORD2R CORD2S GRDSET 1 GRID SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CDUM1 CDUM2 CDUM3 CDUM4 2 CDUM5 2 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFTUBE CHBDY 2 CHEXA1 2 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM 2 CQDMEM1 CQDMEM2 CQUAD1 CQUAD2 CROD CTETRA CTRAPRG 2 CTRIA1 CTRIA2 CTRIARG CTRMEM CQUAD4 CTRIA3 2 CTUBE CWEDGE 3 PBAR PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 PDUM6 3 PDUM7 3 PDUM8 PDUM9 PELBOW PFTUBE PHBDY PIHEX PIS2D8 3 PQDMEM PQDMEM1 PQDMEM2 PQUAD1 PQUAD2 PROD PTUBE 3 PTRIA1 PTRIA2 PTRMEM PSHELL PCOMP PCOMP1 PCOMP2 6 PELAS 8 MAT1 MAT2 MAT3 MAT4 MAT5 MATT1 MATT2 8 MATT3 MATT4 MATT5 MAT8 TABLEM1 TABLEM2 TABLEM3 8 MAT6 TABLEM4 TEMPMT$ TEMPMX$ 9 MPC MPCADD MPC$ 10 SPC SPC1 SPCADD SPC$ 11 ASET ASET1 OMIT OMIT1 SUPAX SUPORT 13 TEMP TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 ASETOUT 15 AUTOSPC 16 PLOTEL 17 G W3 W4 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 LOOP$ 23 LOOP1$ 25 NOLOOP$ 27 AXYOUT$ 55 RADMTX RADLST SIGMA TABS TREF 56 QBDY1 QBDY2 QVECT QHBDY QVOL LOAD SLOAD 57 EPOINT SEQEP TF 59 PDAMP 60 DMIG B2PP$ K2PP$ TF$ 61 DAREA DELAY DLOAD DLOAD$ TABLED1 TABLED2 TABLED3 61 TABLED4 TSTEP$ TLOAD1 TLOAD2 TSTEP 62 BETA IC$ NLFORCE NOLIN1 NOLIN2 NOLIN3 NOLIN4 62 NOLIN5 NOLIN6 RADLIN NFTUBE TIC $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL HSIL 95 ECT 96 GPTT HSLT 97 HEST HGPECT 98 HKGGX 99 HBGG 100 HKGG HRGG HQGE 101 RG ASET HUSET OGPST 102 GPST 103 GM 104 HBNN HKNN HRNN 105 HBFF HKFF HKFS HRFF 106 HGO HKOO HLOO HKAA 107 HDLT HEQDYN GPLD HNLFT HSILD TFPOOL HTRL 107 HUSETD 108 CASEXX 109 HB2PP HK2PP 110 HB2DD HM2DD HBDD GMD HGOD HK2DD HKDD 110 HRDD 111 HPNLD HUDVT 112 HOUDV1 HOPNL1 113 HOUDV2 HOPNL2 114 HQP HUPV 115 HOES1 HOEF1 HOPP1 HOQP1 HOUPV1 HPUGV 116 HOES2 HOEF2 HOPP2 HOQP2 HOUPV2 117 HPDO HPDT HPPO HPSO HTOL 118 BGPDP HSIP 120 ELSETS GPSETS PLTPAR PLTSETX 121 HRAA 122 HBAA 123 HKDICT HKELM HBDICT HBELM 124 PLOTX1 125 HOEF1X 126 PLOTX2 127 HXYPLTT 128 HXYPLTTA 129 MPT $* ================================================ FILE: rf/NASINFO ================================================ PURPOSES * ALLOW LOCAL INSTALLATION CENTERS TO SEND MESSAGES TO ALL NASTRAN USERS. * LOCALLY PRESET CERTAIN NASTRAN SYSTEM PARAMETERS, SUCH AS OUTPUT LINES PER PAGE (LPP), ETC. THESE PARAMETERS CAN BE OVERRIDDEN BY USE OF THE NASTRAN CARD. * LOAD THE BCD-LOOK-ALIKE WORDS FOR SUBROUTINE NUMTYP. (THE BINARY REPRESENTATIONS OF SOME FLOATING POINT NUMBERS AND THEIR CORRESPONDING BCD WORDS ARE EXACTLY THE SAME, AND SUBROUTINE NUMTYP MAY INCORRECTLY CLASSIFY THEM AS BCD WORDS. ANY BCD WORD ON THE LIST WILL BE REVERTED TO FLOATING POINT TYPE DATA.) * SET THE NASTRAN (16) GINO (GENERAL INPUT AND OUTPUT) TIMING CONSTANTS. (TO OBTAIN THESE TIMING CONSTANTS FOR YOUR LOCAL SYSTEM, RUN DEMO PROBLEM D01002A SEVERAL TIMES AND GET THE AVERAGE FOR THESE CONSTANTS.) * DEFINE TEXT TO BE PRINTED WITH DIAG 48. METHOD THERE ARE FIVE SECTIONS IN THIS FILE. EACH SECTION IS SEPARATED BY AN EQUAL LINE, SUCH AS '========='. SECTION ONE BEGINS AT THE BEGINNING OF THE NASINFO FILE AND GOES TO THE FIRST EQUAL LINE. THIS SECTION DESCRIBES THE CONTENTS OF THE NASINFO FILE. SECTION TWO CONTAINS SYSTEM PARAMETERS THAT ARE INSTALLATION DEPENDENT. SECTION THREE CONTAINS BCD-LOOK-ALIKE WORDS WHICH ARE REALLY FLOATING POINT NUMBERS (MACHINE DEPENDENT). THIS SECTION IS USED BY SUBROUTINE NUMTYP. SECTION FOUR CONTAINS LOCAL INSTALLATION MESSAGES. SECTION FIVE IS RESERVED FOR DIAG 48 INFORMATION MESSAGES AND CONTAINS AN ITEMIZATION OF NEW FEATURES IN THIS RELEASE. FORMATS OF SECTIONS THE FORMAT OF THE FIRST SECTION IS 80 COLUMN TEXT. THE FORMAT OF THE SECOND SECTION IS A 4 LETTER SYMBOL; FOLLOWED BY AN "="; FOLLOWED BY A 7-DIGIT VALUE; AND AT THE END A COMMENT. A FORTRAN FORMAT FOR THIS IS (A4,'=',I7). THE SYMBOL NAMES ARE UNIQUE AND CANNOT BE CHANGED. THE ORDER OF THE SYMBOLS IS ARBITRARY. A VALUE OF -99 INDICATES THAT THE PARAMETER IS NOT SET. ANY SYMBOL THAT IS NOT USED (I.E., VALUE = -99) CAN BE DELETED. BLANK LINES ARE OPTIONAL. THE SYMBOL 'TIM' REQUIRES TWO LINES OF INPUT VALUES. THE FORMAT FOR THE THIRD SECTION CONSISTS OF TWO LINES PER ENTRY. THE FIRST LINE HAS A FORTRAN FORMAT OF (I2,I4,2X,A20) AND SPECIFIES THE COMPUTER FOR WHICH THE DATA IN THE SECOND LINE IS TO APPLY. THE FIRST FIELD IS THE ID NUMBER ASSIGNED TO THE COMPUTER (THIS NUMBER CANNOT BE CHANGED). THE SECOND FIELD DEFINES HOW MANY BCD-LOOK-ALIKE VALUES ARE GIVEN IN THE FOLLOWING LINE. THE LAST FIELD GIVES TEXT THAT DEFINES THE COMPUTER. THE FORTRAN FORMAT OF THE SECOND LINE IS (5X,19(A4,1X)). THE FORMAT OF SECTION FOUR IS 80 COLUMN TEXT. ALL LINES INCLUDED WILL BE PRINTED IN LOCAL NASTRAN JOBS IF THE NASINFO FILE IS ASSIGNED. A NEW PAGE IS INDICATED BY PUTTING '==== ' IN COLUMNS 1 THRU 8. IF NO TEXT IS GIVEN, THE LAST EQUAL-LINE SHOULD IMMEDIATELY FOLLOW THE PREVIOUS EQUAL-LINE, WITH NO INTERVENING BLANK LINES. THE FORMAT OF SECTION FIVE IS 80 COLUMN TEXT. DESIGN REQUIREMENTS THIS FILE SHOULD BE READ-ONLY AND ASSIGNED TO NASTRAN. IF THIS FILE DOES NOT EXIST, NASTRAN WILL NOT ABORT. THIS FILE IS PROCESSED ONLY BY SUBROUTINE NSINFO. THE SUBROUTINE CALLING SEQUENCE IS AS FOLLOWS: NSINFO CALLED BY NASCAR NASCAR CALLED BY TTLPGE TTLPGE CALLED BY XCSA XCSA CALLED BY SEMINT SEMINT CALLED BY ... COMMENTS ABOUT GINO TIMING CONSTANTS (TIM) IN SECTION 2 FOLLOW: IF THE VALUE OF TIM IS NOT 16, THEN THIS LINE AND THE NEXT 2 LINES ARE SKIPPED IN THE SECTION THAT FOLLOWS. IN EACH NASTRAN JOB, NASTRAN RUNS THROUGH A SERIES OF GINO TIMING COMPUTATIONS AND ESTABLISHES THE 16 GINO TIMING CONSTANTS. IF THESE CONSTANTS ARE ALREADY AVAILABLE TO NASTRAN, THE TIMING COMPUTATIONS ARE SKIPPED, THUS SAVING CPU TIME IN ALL NASTRAN JOBS. THERE ARE TWO WAYS TO MAKE THESE CONSTANTS AVAILABLE TO NASTRAN - (1) HARD CODE THE CONSTANTS TO NASTRAN VIA LABEL COMMON /NTIME/ IN SUBROUTINE SEMDBD. (COMPILE AND RE-LINK LINK1). (2) ENTER 'TIM = 16', AND IN THE NEXT 2 LINES, ENTER THE 16 TIMING CONSTANTS IN (12X,8F7.2) FORMAT. TO OBTAIN THESE 16 TIMING CONSTANTS, SUBMIT A SIMPLE NASTRAN RUN WITH A 'NASTRAN BULKDATA=-3' CARD. THESE CONSTANTS MAY THEN BE EDITED INTO THIS NASINFO FILE. TIME UNIT IS IN MICROSECONDS. IF TIME IS LESS THAN 0.001 MICROSECOND, USE +0.001 (ZERO TIMES MAY GET NASTRAN INTO TROUBLE.) ============================== SECTION 2 ====================================== (SEE NASTRAN CARD IN USER MANUAL, PP. 2.2-1 THRU 2.2-6) -99 = SYSTEM DEFAULT VALUE WILL BE USED [OPTION VALUE EXAMPLE] LPP = -99 OUTPUT LINES PER PAGE [50] MXL = -99 MAX. NUMBER OF OUTPUT LINES [999999] TPG = -99 NASTRAN TITLE PAGE CONTORL [-1] BND = -99 BANDIT OPTION [-1] ECH = -99 NASTRAN INPUT BULK DATA CARDS ECHO (BY BIT PATTERN) [1] (1 UNSORTED, 2 SORTED, 3 BOTH, 4 PUNCH, 7 PRINT+PUNCH, 8 NO PRINT) POP = -99 PLOT OPTION SXX = -99 SET VALUE IN /SYSTEM/ WORD. MORE THAN ONE SXX IS ALLOWED. XX=88TH THRU 99TH (EXCEPT 91, 93 AND 95) OF /SYSTEM/ [S88 = 1] TIM = -99 MUST BE 16 AND FOLLOWED BY 16 GINO TIMINGS IN NEXT 2 LINES [16] 3.20 39.00 33.00 29.00 30.00 2.125 12.00 3.00 4.00 9.00 13.00 4.00 5.50 10.50 16.00 14.22 -------+++++++-------+++++++-------+++++++-------+++++++ FORMAT OF THE ABOVE IS (12X,8F7.2) S3S = -99 SKIP 3RD SECTION PRINTOUT (I.E.. TURN OFF MESSAGES) [1] END = -99 PHYSICALLY THE LAST OF THE PARAMETER LIST ============================== SECTION 3 ======================================= (THIS SECTION IS MACHINE DEPENDENT. DATA IN THIS SECTION STARTS ON THE 6TH LINE. THE FORMAT FOR THE BCD DATA LINES IS (5X,19(A4,1X)), AND IS PRECEEDED BY A LINE IDENTIFYING WHICH MACHINE, NUMBER OF BCD WORDS THAT FOLLOW, AND COMMENTS. EXPAND THE BCD LIST WHEN KNOWN DATA IS AVAILABLE) 1 0 DUMMY 2 0 IBM/MVS 3 0 UNIVAC/FTN 4 0 CDC/FTN5 5 1 DEC/VMS PFTU 6 0 DEC/ULTRIX(RISC) 7 0 SUN SOLARIS 8 0 IBM/AIX 9 0 HP/UX 10 0 SGI/IRIS 11 0 MAC 12 0 CRAY UNICOS 13 0 CONVEX 14 0 NEC 15 0 FUJITSU 16 0 SUN SUNOS 17 0 AMDAHL 18 0 PRIME 19 0 PC MS/DOS 20 0 DUMMY 21 0 DEC/OPENVMS 22 0 DEC/OSF ============================== SECTION 4 ====================================== INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION ********************************************* * * * PLEASE READ THE COMMENT IN DEMO PROBLEM * * D01002A ABOUT SYSTEM TIMING CONSTANTS * * * ********************************************* ===X= TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '=' ============================== SECTION 5 ====================================== DIAG 48 - NASTRAN RELEASE NEWS =================================== NASTRAN RELEASE NEWS - 95 RELEASE ---------- NEW METHODS WERE INSTALLED FOR SYMMETRIC DECOMPOSITION, FORWARD/BACKWARD SUBSTITUTION (SYMMETRIC MATRICES ONLY), AND MATRIX MULTIPLY/ADD. IN ADDITION, COMPUTATIONAL EFFICIENCY IMPROVEMENTS WERE MADE TO THE FEER EIGENVALUE ANALYSIS. THE FOLLOWING DIAGS WERE ADDED FOR THESE NEW CAPABILITIES: DIAG DESCRIPTION 45 PROVIDE STATISTICS FOR NEW SYMMETRIC DECOMPOSITION METHOD 47 PROVIDE STATISTICS FOR NEW FORWARD/BACKWARD SUBSTITUTION METHOD DIAG 19 STILL GIVES STATISTICAL INFORMATION FOR BOTH THE OLD AND THE NEW MATRIX MULTIPLY/ADD METHODS. IN ADDITION, THE "SYSTEM(58)=" PARAMETER ON THE "NASTRAN" CARD MAY BE USED TO SPECIFY A PARTICULAR MATRIX MULTIPLY/ADD METHOD. THE OLD METHODS ARE 1, 2 AND 3 (TRANSPOSE ONLY). THE NEW METHODS ARE 10, 11, 20, 21, 30, 31, 32, 40 AND 41. A METHOD IS SELECTED BASED ON THE DENSITY OF THE MATRIX AND HOW MANY PASSES ARE REQUIRED TO COMPUTE THE RESULTING MATRIX UNLESS "SYSTEM(58)" IS USED. THE DIFFERENCES IN THE METHODS ARE SEEN IN THE TABLE BELOW: ------------------------------------------------------------------------ METHOD METHOD OF READING MATRIX MULTIPLE COLUMNS OF MATRIX STORED A B C A B D ------------------------------------------------------------------------ OLD METHODS (T = TRANSPOSED, NT = NON-TRANSPOSED) 1 INTPK UNPACK UNPACK NO YES YES 2T GETSTR UNPACK INTPK YES NO NO 2NT GETSTR INTPK INTPK YES NO NO 3T UNPACK GETSTR INTPK YES NO NO NEW METHODS 10 UNPACK UNPACK UNPACK YES NO NO 11 UNPACK GETSTR UNPACK YES NO NO 20 UNPACK UNPACK UNPACK NO YES YES 21 GETSTR UNPACK UNPACK NO YES YES 30 GETSTR UNPACK UNPACK YES NO NO 31 GETSTR GETSTR UNPACK YES NO NO 32 GETSTR GETSTR GETSTR YES NO NO 40 UNPACK GETSTR UNPACK NO YES YES 41 GETSTR GETSTR UNPACK NO YES YES ------------------------------------------------------------------------ AS AN EXAMPLE, IN ORDER TO SPECIFY THE USE OF METHOD 10 FOR ALL CASES, USE THE FOLLOWING "NASTRAN" CARD: NASTRAN SYSTEM(58)=10 THE OLD METHODS STILL EXISTS AND MAY BE REFERENCED BY THE FOLLOWING DIAGS: DIAG DESCRIPTION 43 OLD FEER METHOD 44 OLD SYMMETRIC DECOMPOSITION METHOD 46 OLD FORWARD/BACKWARD SUBSTITUTION METHOD 49 OLD MATRIX MULTIPLY/ADD METHOD THE FOLLOWING IS A LIST OF SPRS THAT WERE CORRECTED FOR THE 1994 RELEASE. DETAIL INFORMATION ON ANY SPR CAN BE OBTAINED BY CONTACTING THE NASTRAN MAINTENANCE CONTRACTOR. SPR NO. MODULE DESCRIPTION ------- ------ ------------------------------------------------------ 93-026 GPTSG MODIFIED TO ALLOW FOR SINGLE PRECISION ON 64-BIT PLATFORMS. 93-033 ANISOP MODIFIED RIGID FORMATS TO INCLUDE SUPPORT FOR "MAT6" CARD. 94-001 SDR2 PROVIDE FOR SORT-2 STRESS OUTPUT FOR "TRAPRG" ELEMENT. 94-002 EMG DAMPING COEFFICIENT ON "MAT1" CARD WAS BEING IGNORED FOR THE "TRAPRG" ELEMENT. 94-003 TRD ALLOW FOR TRANSIENT APPEND FEATURE. 94-004 SDR2 ALLOW FOR CORRECT CALCULATION OF PRINCIPAL STRAINS FOR THE "QUAD4" ELEMENT. 94-005 DPD CORRECT A PROBLEM RELATING TO REFERENCING A NON-EXISTING GRID POINT WITH THE "NOLIN1" CARD. 94-006 PLOT CORRECT A PROBLEM USING "CELAS2" ELEMENTS IN PLOT REQUESTS WHEN USING RIGID FORMAT 12. 94-007 SDR2 CORRECT PROBLEMS RELATING TO THE PROCESSING OF "E" POINTS. ERROR AFFECTED THE CALCULATION OF ELEMENT FORCE AND STRESS DATA. 94-008 MPYAD COSMETIC CHANGE FOR OUTPUT OF DIAG 19. 94-009 NSINFO USER INFORMATION MESSAGE 225 DOES NOT GO AWAY EVEN WHEN TIME CONSTANTS ARE SUPPLIED IN THE "NASINFO" FILE TO NASTRAN. 94-010 MPYAD WRONG METHOD CHOSEN RESULTING IN EXCESSIVE TIME USAGE. MPYAD FAILED TO TAKE INTO ACCOUNT THE NUMBER OF PASSES REQUIRED. 94-011 DECOMP SUBROUTINE "DETFBS" DID NOT PERFORM THE CORRECT FORWARD/BACKWARD SUBSTITUTION WHEN "DECOMP" DECOMPOSED AN UNSYMMETRIC MATRIX WITH THE PARAMETER "CBAR" NON-ZERO. 94-012 DBMMGR INFINITE LOOPING PROBLEM COULD RESULT WHEN USING THE IN-MEMORY DATA BASE AND A CLOSE WITHOUT A REWIND IS ISSUED. 94-013 DBMMGR CORRECTED A PROBLEM USING THE IN-MEMORY DATA BASE THAT RESULTED IN ERROR MESSAGE 2026 IN MODULE "SSG1". 94-015 MCE2 PROBLEM WITH USING THE "RFORCE" CARD. 94-016 OUTPT2 UNABLE TO CHANGE THE BINARY BLOCK SIZE TO BE GREATER THAN 1028. 94-017 SDR2 UNABLE TO GET STRAIN OUTPUT FOR THE "QUAD4" ELEMENT WHEN NOT REQUESTING EITHER FORCE OR STRESS OUTPUT. 94-018 CDCOMP FAILED TO SET APPROPRIATE FLAGS FOR DETECTING A SINGULAR MATRIX. IN ADDITION, THE FOLLOWING NCL'S (NEW CAPABILITY LOG) WERE CLOSED: NCL NO. MODULE DESCRIPTION ------- ------ ------------------------------------------------------ 93-002 FBS OPTIMIZE THE SYMMETRIC FORWARD/BACKWARD SUBSTITUTION METHOD. 93-003 SDCOMP OPTIMIZE THE SYMMETRIC DECOMPOSITION METHOD. 93-004 MPYAD OPTIMIZE THE MATRIX MULTIPLY-ADD METHODS. 93-007 FEER OPTIMIZE THE FEER EIGENVALUE METHOD. AN IN-MEMORY DATA BASE IS AVAILABLE FOR ALL PLATFORMS. THE IN-MEMORY DATA BASE ELIMINATES I/O TO DISK. LOGIC EXISTS TO AUTOMATICALLY WRITE FILES TO DISK AFTER THE IN-MEMORY DATA BASE SPACE IS EXHAUSTED. THE COMMON /ZZZZZZ/ IS USED FOR ALLOCATING OPEN CORE AND SPACE FOR THE IN-MEMORY DATA BASE. THE SIZE OF COMMON /ZZZZZZ/ IS DEFINED IN ./MDS/NASTRN.F (SEE ARRAY "IZ" AND VARIABLE "LENOPC"). ALL REMAINING SPACE AFTER ALLOCATING OPEN CORE IS USED FOR THE IN-MEMORY DATA BASE. THE USER CONTROLS THE ALLOCATION OF OPEN CORE THROUGH THE NASTRAN MENU. THE USER CAN ELIMINATE THE USE OF THE IN-MEMORY DATA BASE BY SETTING THE IN-MEMORY DATA BASE ALLOCATION TO ZERO THROUGH THE NASTRAN MENU. USERS ARE ENCOURAGED TO RECOMPILE "NASTRN.F" WITH A LARGER ALLOCATION FOR COMMON /ZZZZZZ/ IF THEIR PLATFORM SUPPORTS A LARGER MEMORY ALLOCATION. A LARGER ALLOCATION OF COMMON /ZZZZZZ/ PROVIDES FOR MORE SPACE FOR THE IN-MEMORY DATA BASE AND ALLOWS FOR MORE FILES TO BE MAINTAINED WITHIN THE IN-MEMORY DATA BASE. USERS SHOULD ALWAYS ALLOCATE SUFFICIENT OPEN CORE TO PREVENT SPILL LOGIC (E.G., SEE USER INFORMATION MESSAGE 3023). IT IS INEFFICIENT TO ALLOCATE TOO MUCH OPEN CORE. HOWEVER, THERE IS NO SUCH PENALTY FOR OVER-ALLOCATING MEMORY FOR THE IN-MEMORY DATA BASE. AT THE END OF THE LOG FILE, A SUMMARY OF ALL GINO I/O ACTIVITY IS GIVEN SHOWING THE PERCENT OF USAGE OF THE IN-MEMORY DATA BASE AND THE AMOUNT OF DISK I/O FOR THE NASTRAN EXECUTION. THE USER'S MANUAL IS PROVIDED ON THE DELIVERABLE TAPE AS TEXT FILES. THE FILES ARE IN ASCII, 80 COLUMN FORMAT. THE USER CAN EXAMINE THESE FILES WITH A SYSTEM EDITOR, OR THROUGH THE USE OF THE NASTHELP PROGRAM, WHICH IS INCLUDED WITH THIS NASTRAN RELEASE. THIS PROGRAM ALLOWS A USER TO SEARCH, READ AND/OR PRINT A PORTION OF THE FILE QUICKLY. THE ENTIRE MANUAL IS STORED IN THE FOLLOWING FILES: EXEC.TXT - NASTRAN EXECUTIVE CONTROL SECTIONS CASE.TXT - THE CASE CONTROL SECTIONS BULK.TXT - INPUT BULK DATA SECTIONS MSSG.TXT - NASTRAN FATAL, WARNING, AND INFORMATION MESSAGES PLOT.TXT - NASTRAN PLOTTING SUBS.TXT - SUBSTRUCTURING SECTIONS INTR.TXT - INTRODUCTION AND GENERAL INFORMATION UMFL.TXT - NASTRAN USER MASTER FILE AND USER GENERAL INPUT DMAP.TXT - NASTRAN DMAPS DICT.TXT - NASTRAN DICTIONARY RFMT.TXT - NASTRAN RIGID FORMATS A UTILITY PROGRAM, "NASTHELP", IS PROVIDED TO ALLOW FOR EASY ACCESS TO THE ABOVE TEXT FILES. NASTHELP IS USER FRIENDLY AND REQUIRES NO WRITTEN INSTRUCTION, EXCEPT THAT THE NASTHELP EXECUTABLE AND THE .TXT FILES MUST BE IN THE SAME DIRECTORY. ================================================ FILE: um/BULK.TXT ================================================ =PAGE= 2.4 BULK DATA DECK The primary NASTRAN input medium is the bulk data card. These cards are used to define the structural model and various pools of data which may be selected by Case Control at execution time. For large problems, the Bulk Data Deck may consist of several thousand cards. In order to minimize the handling of large numbers of cards, provision has been made in NASTRAN to store the bulk data on the Problem Tape, from which it may be modified on subsequent runs. A User's Master File (Section 2.5) is also provided for the storage of Bulk Data Decks. For any cold start, the entire Bulk Data Deck must be submitted. Thereafter, if the original run was checkpointed, the Bulk Data Deck exists on the Problem Tape in sorted form where it may be modified and reused on restart. On restart, the bulk data cards contained in the Bulk Data Deck are added to the bulk data contained on the Old Problem Tape. Cards are removed from the Old Problem Tape (or the User's Master File) by the use of a delete card. Cards to be deleted are indicated by inserting a bulk data card with a / in column one and the sorted bulk data sequence numbers in fields two and three. All bulk data cards in the range of the sequence numbers in fields two and three will be deleted. In the case where only a single card is deleted, field three may be left blank. The Bulk Data Deck may be submitted with the cards in any order, as a sort is performed prior to the execution of the Input File Processor. It should be noted that the machine time to perform this is minimized for a deck that is already sorted. The sort time for a badly sorted deck will become significant for large decks. You may obtain a printed copy of either the unsorted or the sorted bulk data by selection in the Case Control Deck. A sorted echo is necessary in order to make modifications on a secondary execution using the Problem Tape. This echo is automatically provided unless specifically suppressed by you. 2.4.1 Format of Bulk Data Cards The bulk data cards can employ either the fixed-field format or the free-field format. The free-field format bulk data cards are converted internally by the program to appropriate fixed-field format cards. The fixed-field input format employs either 8-column or 16-column fields. It is described in Section 2.4.1.1. The free-field input format relaxes the rigid 8-column field requirement. It can be used in place of the fixed-field format in all cases of bulk data cards that employ 8-column fields. It is described in Section 2.4.1.2. The free-field input format will be found useful not only by real-time terminal users, but also by batch-job users who will find it helpful in reducing errors due to mispunching of data in the wrong columns. In addition, the free-field format offers the ability to automatically duplicate similar bulk data cards with minor changes in one or more selected fields. Also, several options are offered to make terminal keyboard data entry easier, to allow you to execute only the NASTRAN Preface (Link 1), and to punch out generated card images. The various options can be invoked at any time during a free-field input session. 2.4.1.1 Fixed-Field Input The fixed-field input format is variable to the extent that any quantity except the mnemonic can be punched anywhere within a specified 8 or 16-column field. The normal card uses an 8-column field as indicated in the following diagram. Small Field Bulk Data Card 1a 2 3 4 5 6 7 8 9 10a Ŀ 8 8 8 8 8 8 8 8 8 8 The mnemonic is punched in field 1. Fields 2-9 are for data items. The only limitations on data items are that they must lie completely within the designated field, have no imbedded blanks, and must be of the proper type, that is, blank, integer, real, double precision, or BCD (see SEQGP and SEQEP for exceptions). All real numbers, including zero, must contain a decimal point. A blank will be interpreted as a real zero or integer zero as required. Real numbers may be encoded in various ways. For example, the real number 7.0 may be encoded as 7.0, .7E1, 0.7+1, 70.-1, .70+1, etc. A double precision number must contain both a decimal point and an exponent with the character D such as 7.0D0. Double precision data values are only allowed in a few situations, such as on the PARAM card. BCD data values consist of one to eight alphanumeric characters, the first of which must be alphabetic. Normally field 10 is reserved for optional user identification. However, in the case of continuation cards, field 10 (except column 73, which is not referenced) is used in conjunction with field 1 of the continuation card as an identifier and hence must contain a unique entry. The continuation card contains the symbol + in column 1 followed by the same seven characters that appeared in columns 74-80 of field 10 of the card that is being continued. This allows the data to be submitted as an unsorted deck. The small field data card should be more than adequate for the kinds of data normally associated with structural engineering problems. Since abbreviated forms of floating point numbers are allowed, up to seven significant decimal digits may be used in an eight-character field. Occasionally, however, the input is generated by another computer program or is available in a form where a wider field would be desirable. For this case, the larger field format with a 16-character data field is provided. Each logical card consists of two physical cards as indicated in the following diagram. Large Field Bulk Data Card 1a 2 3 4 5 10a Ŀ 8 16 16 16 16 8 1b 6 7 8 9 10b Ŀ 8 16 16 16 16 8 The large field card is denoted by placing the symbol * after the mnemonic in field 1a and some unique character configuration in the last 7 columns of field 10a. The second physical card contains the symbol * in column 1 followed by the same seven characters that appeared after column 73 in field 10a of the first card. The second card may in turn be used to point to a large or small field continuation card, depending on whether the continuation card contains the symbol * or the symbol + in column 1. The use of multiple and large field cards is illustrated in the following examples. Small Field Card with Small Field Continuation Card Ŀ TYPE QED12 Ĵ +ED12 Large Field Card Ŀ TYPE* QED13 Ĵ *ED13 Large Field Card with Large Field Continuation Card Ŀ TYPE* QED31 Ĵ *ED31 QED32 Ĵ *ED32 QED35 Ĵ *ED35 Large Field Card Followed by a Small Field Continuation Card and a Large Field Continuation Card Ŀ TYPE* QD462 Ĵ *D462 QD421 Ĵ +D421 QD361 Ĵ *D361 QD291 Ĵ *D291 Small Field Card with Large Field Continuation Card Ŀ TYPE QD632 Ĵ *D632 QD204 Ĵ *D204 In the above examples, column 73 arbitrarily contains the symbol Q in all cases where field 10 is used as a pointer. However, column 73 could have been left blank or the same symbol used in column 1 of the following card could have been used (that is, the symbols * or +). 2.4.1.2 Free-Field Input The free-field input format can be used to create only small field cards. This capability is best understood by the following important rules and program features: 1. Free-field input is available only after a BEGIN BULK card is read, and is disabled automatically when ENDDATA is entered. In VAX and all UNIX machines, a free-field input card can have up to 94 columns. 2. Free-field input is activated by one or more commas (,) or an equal sign (=) in the first 10 columns of the input card. 3. Data items must be separated with a comma, one or more blanks, or the combination of a comma and blanks. Logical choice is one comma only in first 10 columns of the input card. 4. Integers and BCD words are limited to 8 digits or 8 characters. Real numbers can be up to 12 digits, including sign and decimal point. 5. Duplication of fields from the preceding card is accomplished by coding an equal sign (=) in the appropriate field. 6. Two equal signs (==) indicate duplication of all the trailing fields from the preceding card. 7. Increment of a value from the previous input card is indicated by coding *(i), where i is the value of the increment (integer or floating point number) and * is the increment character. This feature is dependent on the field in the input card. 8. Increment of a value from the previous input card to an ending value is indicated by coding %(E), where E is the ending value (integer or floating point number) in the last card to be generated, and % is the ending character. This feature is also field dependent. 9. Repeated duplication is indicated by coding =(N), where N is the number of card images to be generated using the value of the increment on the preceding card (or current card) by *(i), or the computed incremental value on the preceding card by %(E). The last generated card is also displayed on the terminal screen if the prompt option (see rule 16 below) has been turned on. 10. A field index and value can be coded by n)X, where n is the field index and X the value. 11. The symbol )+ is equivalent to 10)+, where 10 is the tenth field of the input card, which is normally the continuation ID field. 12. A right parenthesis ) in column 1 indicates the duplication of the tenth field of the preceding card into the first field of the current card being generated. 13. The continuation ID (in field 1 or 10) is automatically increased (by 1) in the repeated-duplication operation. The ID must be in the form of +A-X, where A is one or more alphanumeric characters preceded by a plus and followed by a minus sign. X is an unsigned integer to be used as the initial value for the increment. A maximum of 8 characters (including signs) is allowed, with no embedded blanks. An "=(1)" in the first input field is needed for single card duplication. 14. Data in field 10, not in the form of +A-X, is replaced by blanks during the repeated-duplication operation. 15. If a continuation card follows the parent card immediately in free-field input, the continuation ID's in both the parent and the child cards are optional. However, the child card must begin with a comma, for example CORD2C, 3 17 -2.9 1.0 0.0 3.6 , 5.2 1.0 -2.9 16. The ECHO card (described in the Case Control section, see Section 2.3) can be input (or redefined) at any time during the free-field input session. 17. A new option, ECHO = LINK1, can be entered at any time to alter the NASTRAN execution sequence to that of link-one-only, and to skip BANDIT grid-point resequencing. 18. A prompt command -- PROMPT = ON, PROMPT = OFF, or PROMPT = YES (default) -- can be entered at any time during the free-field input session so that the computer will display, or not display, on the terminal screen a prompt symbol (either a ">" or "ENTER:") when it is ready to receive input data. The PROMPT = YES command will also display the generated card image on the screen in addition to the prompt symbol. 19. Floating point numbers in the forms of 12300., 1.23E+04, or 1.23+4 are acceptable. Twelve digits can be used for maximum accuracy. For example, 1234567890.1 is more accurate than 0.123456D+10. 20. When not in free-field input mode, NASTRAN accepts only upper-case input cards. However, free-field input accepts both upper-case and lower-case letters. If lower-case letters are used in the free-field input, the first 8 columns of an input card must contain at least one lower-case letter. This triggers the free-field routine to convert all lower-case letters in that card to upper-case automatically. Otherwise, no such conversion takes place. (See Example 6 in Section 2.4.1.2.1.) 21. Both BCD and EBCDIC character sets are acceptable. This is required for some computers (for example, IBM) with EBCDIC input cards. 22. The dollar sign ($) can be used freely as described elsewhere in Section 2. 23. Embedded blanks are not allowed in any double-character free-field input commands such as: =( *( %( )+ == 24. Embedded blanks are not allowed in field 10, which is sometimes used as a comment field. 25. A slash (/), with or without a separator of comma or blank, indicates that the current field is the same as the previous field, for example =(10),*(1),/// equals =(10),*(1),*(1),*(1),*(1) 26. A "NASTRAN TITLEOPT = -2" card is recommended to be the very first line of input for all terminal users executing only LINK1 (see rule 15 above). It suppresses the printout of the NASTRAN title pages on the screen. This card is required for UNIVAC terminal users executing LINK1; it also reassigns the alternate print file (the log-message file) to avoid system crashing. A stand-alone version of NASTRAN free-field input is available to you by executing NASTRAN LINKFF. It has all of the features described above except for the following changes: 1. The ECHO command is not available in this version. 2. Two additional commands are available only in this version. They are: a.SCALE/8 or SCALE/10 - to display a scale based on 8-column or 10-column format on the screen to aid in input spacing. b.CANCEL = n - to cancel n previously generated cards. 3. The punch option and catalog file (to save generated card images) are set at the beginning of this version. 2.4.1.2.1 Free-Field Input Examples The following examples illustrate the use of free-field input. Example 1 GRID, 2, 3, 1.0 2.0,, 4,316 =, *(1), =, *(.2), == $ =(3) The above free-field cards will generate the following bulk data cards in NASTRAN 8-column field format: 1 2 3 4 5 6 7 8 9 10 --------++++++++--------++++++++--------++++++++--------++++++++--------++++++++ GRID 2 3 1.0 2.0 4 316 GRID 3 3 1.2 2.0 4 316 GRID 4 3 1.4 2.0 4 316 GRID 5 3 1.6 2.0 4 316 GRID 6 3 1.8 2.0 4 316 Example 2 grid,2,3,1.0,2.0,,4,316 =(4),*(1),=,%(1.8),== The above cards will generate the same bulk data cards as in Example 1. Example 3 Grid, 2 3 1.0 2.0, 7) 4, 316 This example will generate only one card. This will be the same as the first card in Example 1. Example 4 Tabled3,62, 126.9, 30.0 10)+abc ), 1.23e+4, 5.67+8, 1234567. endt This example will generate the following bulk data cards: 1 2 3 4 5 6 7 8 9 10 --------++++++++--------++++++++--------++++++++--------++++++++--------++++++++ TABLED3 62 126.9 30.0 +ABC +ABC 1.23E+4 5.67+8 1234567.ENDT Example 5 taBLed3, 62 126.9 30.0 )+aBc This example will generate only one card. This will be the same as the first card in Example 4. Example 6 This is only a test THIS IS only a test This, is only a test The different results of the above three (3) input lines are shown by the following generated card images: 1 2 3 4 5 6 7 8 9 10 --------++++++++--------++++++++--------++++++++--------++++++++--------++++++++ THIS IS ONLY A TEST THIS IS only a test THIS IS ONLY A TEST Example 7 PBAR, 3, 4, 5.0 , 6.0, )+ABC-1 = , *(1), =, *(2.) == =(2) +ABC-1, 7.7 8.8 9 )+DEF-22 =(3),== This example will generate the following eight (8) cards with continuation ID fields automatically increased by 1. 1 2 3 4 5 6 7 8 9 10 --------++++++++--------++++++++--------++++++++--------++++++++--------++++++++ PBAR 3 4 5.0 6.0 +ABC-1 PBAR 4 4 7.0 6.0 +ABC-2 PBAR 5 4 9.0 6.0 +ABC-3 PBAR 6 4 11.0 6.0 +ABC-4 +ABC-1 7.7 8.8 9 +DEF-22 +ABC-2 7.7 8.8 9 +DEF-23 +ABC-3 7.7 8.8 9 +DEF-24 +ABC-4 7.7 8.8 9 +DEF-25 Example 8 CQUAD2, 101 1 11 12 16 15 CQUAD2, 102 1 12 13 17 16 CQUAD2, 103 1 13 14 18 17 This example shows the combination of free-field and tabulation input. The requirement of 8 columns per field does not apply here. Example 9 This example lists the input data using free-field bulk data cards used in NASTRAN Demonstration Problem No. D01-06-2A. It gives the same sorted input data as NASTRAN Demonstration Problem No. D01-06-1A, which uses the standard fixed-field bulk data cards. ID D01062A,NASTRAN APP DISP SOL 1,1 TIME 5 CEND TITLE = SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD) SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A LABEL = TRAPEZOIDAL RING ELEMENTS ECHO = BOTH SPC = 16 TEMPERATURE(LOAD) = 16 OUTPUT SET 1 = 1,3,5,7,9,11,13,15,17,19,21,23,25,26 DISP = 1 ELSTRESS = ALL BEGIN BULK CTRAPRG, 1,1,3,4,2,.0,12 =(11), *(1) *(2),///, == GRDSET, 8)2456 GRID,1,,.0 =(3),*(2),,*(.005) GRID,2,,.0,,.01 =(3),*(2),,*(.005),== GRID,9,,.02 =(8),*(2),,%(.10) GRID,10,,.02,,.01 =(8),*(2),,%(.10),== MAT1,12,1.0+7,,.3,.2587-3,1.0-7,.0 SPC,16,1,13,.0,2,1,.0 TEMP,16,1,100.,2,100.,3,99.75 =,=,4,99.75,5,99.0,6,99.0 =,=,7,97.75,8,97.75,9,96.0 =,=,10,96.0,11,91.0,12,91.0 =,=,13,84.0,14,84.0,15,75.0 =,=,16,75.0,17,64.0,18,64.0 =,=,19,51.0,20,51.0,21,36.0 =,=,22,36.0,23,19.0,24,19.0 =,=,25,.0,26,.0 ENDDATA 2.4.2 Bulk Data Card Descriptions The detailed descriptions of the bulk data cards are contained in this section in alphabetical order. For details pertaining to the use of each card and for a discussion of the cards in functional groups, you are referred to Section 1, Structural Modeling. Small field examples are given for each card along with a description of the contents of each field. In the Format and Example section of each card description, both a symbolic card format description and an example of an actual card are shown. Literal constants are shown in the card format section enclosed in quotes (for example, "0"). Fields that are required to be blank are indicated in the card format section by a blank box. The Input File Processor will produce error messages for any cards that do not have the proper format or that contain illegal data. Continuation cards need not be present unless they contain required data. In the case of multiple continuation cards, the intermediate cards must be present (even though fields 2-9 are blank), if one of the following cards contains data in fields 2-9. In addition, a double field format requires at least two cards (or subsequent multiples of two) so that 10 data fields are included. Thus, one or more double field cards may contain no data. =PAGE= $ - Comment Description Comment cards are for user convenience in inserting commentary material into the unsorted echo of the input Bulk Data Deck. The $ card is otherwise ignored by the program. These cards will not appear in a sorted echo nor will they exist on the New Problem Tape. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ $ followed by any legitimate characters in card columns 2-80 Ĵ $ THIS ISA REMARK (*,'$$-+/ =PAGE= / - Delete Description Delete cards are used to remove cards from either the Old Problem Tape on restart or the User's Master File. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ / K1 K2 Ĵ / 4 Field Contents K1 Sorted sequence number of first card in sequence to be removed. K2 Sorted sequence number of last card in sequence to be removed. Remarks 1. The delete card causes bulk data cards having sort sequence numbers K1 through K2 to be removed from the Bulk Data Deck. 2. If K2 is blank, only card K1 is removed from the Bulk Data Deck. 3. If neither an Old Problem Tape nor a User's Master File is used in the current execution, the delete cards are ignored. =PAGE= ADUMi - Dummy Element Attributes Description Defines attributes of the dummy elements (1 <= i <= 9). Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ ADUMi NG NC NP ND Ĵ ADUM2 8 2 1 3 Field Contents NG Number of grid points connected by DUMi dummy element (Integer > 0). NC Number of additional entries on CDUMi connection card (Integer >= 0). NP Number of additional entries on PDUMi property card (Integer >= 0). ND Number of displacement components at each grid point used in generation of differential stiffness matrix (Integer 3 or 6). =PAGE= AEFACT - Aerodynamic Spanwise Divisions Description Used to specify box division points for flutter analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ AEFACT SID D1 D2 D3 D4 D5 D6 D7 ABC Ĵ AEFACT 97 .3 .7 1.0 Ŀ +BC D8 D9 -etc.- Alternate Form: Ŀ AEFACT SID D1 THRU DND ND DMID Ĵ AEFACT 201 .200 THRU .100 11 .133333 Field Contents SID Set identification number (unique Integer > 0). Di Division point (Real). Remarks 1. These factors must be selected by a CAEROi or PAEROi data card to be used by NASTRAN. 2. Imbedded blank fields are forbidden. 3. If used to specify box division points, note that there is one more division point than the number of boxes. 4. For the alternate form, ND must be greater than 1. Dmid must lie between D1 and DND, otherwise Dmid will be set to (D1 + DND)/2. Then D (D -D )(ND-i) + D (D -D )(i-1) 1 ND mid ND mid 1 D = i = 1,2,...,ND i (D -D )(ND-i) + (D -D )(i-1) ND mid mid 1 The use of Dmid (middle point selection) allows unequal spacing of the points. Dmid = 2D1DND/(D1+DND) gives equal values to increments of the reciprocal of D1. =PAGE= AERO - Aerodynamic Physical Data Description Gives basic aerodynamic parameters. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ AERO ACSID VEL REFC RHOREF SYMXZ SYMXY Ĵ AERO 3 1.3+4 100. 1.-5 1 Field Contents ACSID Aerodynamic coordinate system identification (Integer >= 0). See Remark 2. VEL Velocity (Real). REFC Reference length (for reduced frequency) (Real). RHOREF Reference density (Real). SYMXZ Symmetry key for aero coordinate x-z plane (Integer) (+1 for symmetry, 0 for no symmetry, -1 for anti-symmetry). SYMXY Symmetry key for aero coordinate x-y plane can be used to simulate ground effects (Integer), same code as SYMXZ. Remarks 1. This card is required for aerodynamic response problems. Only one AERO card is allowed. 2. The ACSID must be a rectangular coordinate system. Flow is in the positive x direction. =PAGE= ASET - Selected Coordinates Description Defines coordinates (degrees of freedom) to be placed in the analysis set. Used to define the number of independent degrees of freedom. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ ASET ID C ID C ID C ID C Ĵ ASET 16 2 23 3516 1 4 Field Contents ID Grid or scalar point identification number (Integer > 0). C Component number, zero or blank for scalar points, any unique combination of the digits 1 - 6 for grid points. Remarks 1. Coordinates specified on ASET cards may not be specified on OMIT, OMIT1, ASET1, SPC, or SPC1 cards, nor may they appear as dependent coordinates in multipoint constraint relations (MPC), nor as rigid elements (CRIGD1, CRIGD2, CRIGD3, CRIGDR), nor as permanent single-point constraints on a GRID card. 2. As many as 24 coordinates may be placed in the analysis set by a single card. 3. When ASET and/or ASET1 cards are present, all degrees of freedom not otherwise constrained or referenced on a SUPORT card will be placed in the O-set. 4. ASET or OMIT data are not recommended for use in heat transfer analysis with radiation effects. =PAGE= ASET1 - Selected Coordinates Description Defines coordinates (degrees of freedom) to be placed in the analysis set. Used to define the number of independent degrees of freedom. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ ASET1 C G G G G G G G abc Ĵ ASET1 345 2 1 3 10 9 6 5 ABC Ŀ +bc G G G -etc.- Ĵ +BC 7 8 -etc.- Alternate Form: Ŀ ASET1 C ID1 "THRU" ID2 Ĵ ASET1 123456 7 THRU 109 Field Contents C Component number (any unique combination of the digits 1 - 6 [with no imbedded blanks] when point identification numbers are grid points; must be null or zero if point identification numbers are scalar points). G, ID1, ID2Grid or scalar point identification numbers (Integer > 0, ID1 < ID2). Remarks 1. A coordinate referenced on this card may not appear as a dependent coordinate in a multipoint constraint relation (MPC card) nor as a degree of freedom on a rigid element (CRIGD1, CRIGD2, CRIGD3, CRIGDR), nor may it be referenced on an SPC, SPC1, OMIT, OMIT1, or ASET card, nor on a GRID card as permanent single-point constraints. 2. When ASET and/or ASET1 cards are present, all degrees of freedom not otherwise constrained or referenced on a SUPORT card will be placed in the O-set. 3. If the alternate form is used, all of the grid (or scalar) points ID1 through ID2 are assumed. 4. ASET or OMIT data are not recommended for use in heat transfer analysis with radiation effects. =PAGE= AXIC - Axisymmetric Problem Flag Description Defines the existence of a model containing CCONEAX, CTRAPAX, or CTRIAAX elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ AXIC H Ĵ AXIC 15 Field Contents H Highest harmonic defined for the problem (0 <= Integer <= 998). Remarks 1. Only one (1) AXIC card is allowed. When the AXIC card is present, most other cards are not allowed. The types which are allowed with the AXIC card are listed below. CCONEAX GRAV RLOAD1 CTRAPAX LOAD RLOAD2 CTRIAAX MAT1 SECTAX DAREA MATT1 SPCADD DELAY MOMAX SPCAX DLOAD MOMENT SUPAX DMI MPCADD TABDMP1 DMIG MPCAX TABLED1 DPHASE NOLIN1 TABLED2 DSFACT NOLIN2 TABLED3 EIGB NOLIN3 TABLED4 EIGC NOLIN4 TABLEM1 EIGP OMITAX TABLEM2 EIGR PARAM TABLEM3 EPOINT PCONEAX TABLEM4 FORCE POINTAX TEMPAX FORCEAX PRESAX TF FREQ PTRAPAX TIC FREQ1 PTRIAAX TLOAD1 FREQ2 RFORCE TLOAD2 RINGAX TSTEP 2. For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. 3. For a discussion of the axisymmetric solid problem, see Section 5.11 of the Theoretical Manual. 4. Machine bit limit may be exceeded on 32-bit word machines if H is greater than 16. =PAGE= AXIF - Fluid Related Axisymmetric Parameters Description Defines basic parameters and the existence of an axisymmetric fluid analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ AXIF CID G DRHO DB NOSYM F abc Ĵ AXIF 2 32.2 0.12 2.5+5 YES CARD1 Ŀ +bc N1 N2 N3 N4 N5 N6 N7 N8 def Ĵ +ARD1 1 2 3 4 7 10 -etc.- Alternate Form of Continuation Card: Ŀ +bc N1 "THRU" Ni def Ĵ +ARD1 0 THRU 10 -etc.- Alternate Form of Continuation Card: Ŀ +bc N1 "THRU" Ni "STEP" NS def Ĵ +ARD1 0 THRU 9 STEP 3 -etc.- Field Contents CID Fluid coordinate system identification number (Integer > 0). G Value of gravity for fluid elements in axial direction (Real). DRHO Default mass density for fluid elements (Real > 0.0 or blank). DB Default bulk modulus for fluid elements (Real). NOSYM Request for nonsymmetric (sine) terms of series (BCD: YES or NO). F Flag specifying harmonics (Blank - harmonic specified, or BCD NONE). Nn Harmonic numbers for solution, an increasing sequence of integers. On the standard continuation card blanks are ignored. On the alternate form continuation cards, THRU implies all numbers including upper and lower integer (Blank, or integer, 0 <= Nn < 100, or BCD: THRU or STEP). NS Every NSth step of the harmonic numbers specified in the THRU range is used for solution (Integer if field 5 is STEP, Ni = I*NS+N1 where I is an integer). Remarks 1. Only one (1) AXIF card is allowed. 2. CID must reference a cylindrical or spherical coordinate system. 3. Positive gravity (+G) implies that the direction of free fall is in the -Z direction of the fluid coordinate system. 4. The DRHO value replaces blank values of RHO on the FSLIST, BDYLIST, and CFLUIDi cards. 5. The DB value replaces blank values of B on the CFLUIDi cards. If the CFLUIDi entry is blank and DB is zero or blank, the fluid is incompressible. 6. If NOSYM = YES, both sine and cosine terms are specified. If NOSYM = NO, only cosine terms are specified. 7. If F = NONE, no harmonics are specified, no fluid elements are necessary, and no continuation cards may be present. Example 1 2 3 4 5 6 7 8 9 10 Ŀ AXIF 100 -386.0 0.0 NO +1 Ĵ +1 0 THRU 50 STEP 5 +2 Ĵ +2 52 +3 Ĵ +3 54 THRU 57 +4 Ĵ +4 61 THRU 65 +5 Ĵ +5 68 71 72 75 +6 Ĵ +6 81 92 END =PAGE= AXSLOT - Axisymmetric Slot Analysis Parameter Description Defines the harmonic index and the default values for acoustic analysis cards. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ AXSLOT RHOD BD N WD MD Ĵ AXSLOT 0.003 1.5+2 3 0.75 6 Field Contents RHOD Default density of fluid-mass/volume (Real not equal 0.0 or blank). BD Default bulk modulus of fluid = (force/volume ratio change) (Real >= 0.0 or blank). N Harmonic index number (Integer >= 0). WD Default slot width (Real >= 0.0 or blank). MD Default number of slots (Integer >= 0 or blank). Remarks 1. No more than one AXSLOT card is permitted. 2. The default values are used on the GRIDS, SLBDY, CAXIFi, and CSLOTi data cards and must be nonzero as noted if these cards use the default. 3. The harmonic index number N must be entered on this card. 4. If the number of slots, M, is different in different regions of the cavity, this fact may be indicated on the CSLOTi and SLBDY cards. If the number of slots is zero, no matrices for CSLOTi elements are generated. 5. A zero entry for bulk modulus is treated as if the fluid were incompressible. =PAGE= BAROR - Simple Beam Orientation Default Description Defines default values for fields 3 and 6-9 of the CBAR card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ BAROR PID X1,GO X2 X3 F Ĵ BAROR 39 0.6 2.9 -5.87 1 Field Contents PID Identification number of PBAR property card (Integer > 0 or blank). X1, X2, X3 Vector components measured in displacement coordinate system at GA to determine (with the vector from end A to end B) the orientation of the element coordinate system for the bar element (Real or blank; see below). GO Grid point identification number (Integer > 0; see below). F Flag to specify the nature of fields 6-8 as follows: Ŀ 6 7 8 Ĵ F = 1 X1 X2 X3 Ĵ F = 2 GO blank blank Remarks 1. The contents of fields on this card will be assumed for any CBAR card whose corresponding fields are blank. 2. Only one BAROR card may appear in your Bulk Data Deck. 3. For an explanation of bar element geometry, see Section 1.3.2. 4. If F = 2, GO must be given even though it may be overridden on every CBAR card. 5. (Pre-1989 NASTRAN version) If F field is to be specified, at least one other field must be non-zero. 6. Since 1990 NASTRAN version, the F field is no longer required on a CBAR card. This makes the use of the BAROR card unnecessary. =PAGE= BDYC - Combination of Substructure Boundary Sets Description Defines a combination of boundary sets by basic substructure to define a set of grid points and components which may be used in a CREDUCE, MREDUCE, or REDUCE operation. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ BDYC ID NAME1 SID1 NAME2 SID2 NAME3 SID3 ghi Ĵ BDYC 157 WINGRT 7 MIDWG 15 FUSELAG 32 GHI Ŀ +hi NAMEi SIDi -etc.- jkl Ĵ +HI POD1 175 WINGRT 15 CABIN 16 Field Contents ID Identification number of combination boundary set (Integer > 0). NAMEi Name of basic substructure which contains the grid points defined by boundary set SIDi (BCD). SIDi Identification number of the boundary set associated with basic substructure NAMEi (Integer > 0). Remarks 1. Boundary sets must be selected in the Substructure Control Deck (BOUNDARY = ID) to be used by NASTRAN. Note that "BOUNDARY" is a subcommand of the substructure CREDUCE, MREDUCE, and REDUCE commands. 2. The same substructure name may appear more than once per set. 3. The SIDi numbers need not be unique. The same number could appear for different component structures. 4. The SIDi numbers reference the set IDs of BDYS and BDYS1 cards. 5. The ID number must be unique with respect to all other BDYC data cards. 6. After two or more basic substructures are combined, the connected degrees of freedom are actually the same and may be referenced with any one of the substructure names. Redundant specification is allowed. =PAGE= BDYLIST - Fluid Boundary List Description Defines the boundary between a fluid and a structure. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ BDYLIST RHO IDF1 IDF2 IDF3 IDF4 IDF5 IDF6 IDF7 abc Ĵ BDYLIST .037 432 325 416 203 256 175 153 345A Ŀ +bc IDF8 -etc.- def Ĵ +45A 101 105 AXIS -etc.- Field Contents RHO Fluid mass density at boundary (Real >= 0.0 or blank. Default on AXIF card is used if blank.) IDFi Identification number of a RINGFL point (Integer > 0 or BCD. AXIS may be first and/or last entry on the logical card.) Remarks 1. This card is allowed only if an AXIF card is also present. 2. Each logical card defines a boundary if RHO is not equal to 0.0. The order of the points must be sequential with the fluid on the right with respect to the direction of travel. 3. The BCD word "AXIS" defines an intersection with the polar axis of the fluid coordinate system. 4. There may be as many BDYLIST cards as required. If the fluid density varies along the boundary there must be one BDYLIST card for each interval between fluid points. 5. The BDYLIST card is not required and should not be used to specify a rigid boundary where structural points are not defined. Such a boundary is automatically implied by the omission of a BDYLIST. 6. If RHO is 0.0, no boundary matrix terms will be generated to connect the GRIDB points to the fluid. This option is a convenience for structural plotting purposes. GRIDB points may be located on a fluid ring (RINGFL) only if the rings are included in a BDYLIST. =PAGE= BDYS - Boundary Set Definition Description The BDYS card is used to define a boundary set of grid points and degrees of freedom for a basic substructure. The boundary set is used in the substructure REDUCE, CREDUCE, and MREDUCE operations. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ BDYS SID G1 C1 G2 C2 G3 C3 Ĵ BDYS 7 13 123456 15 123 17 123456 Field Contents SID Identification number of BDYS set (Integer > 0). Gi Grid or scalar point identification number of a basic substructure (Integer > 0). Ci Component number; any unique combination of the digits 1 - 6 (with no imbedded blanks) when the Gi are grid points, or null if they are scalar points. Remarks 1. The set of boundary points defines the degrees of freedom which are to be retained in the matrices after the substructure REDUCE, CREDUCE or MREDUCE operation has been performed. An alternate input format is provided by the BDYS1 card. 2. The SID need not be unique. 3. The BDYS card must be referenced by the BDYC card in order to attach the basic substructure name to the boundary set specified on the BDYS card. Note that the same BDYS boundary set may be attached to more than one basic substructure name. =PAGE= BDYS1 - Boundary Set Definition Description The BDYS1 card is used to define a boundary set of grid points and degrees of freedom for a basic substructure. The boundary set is used in the substructure REDUCE, CREDUCE, and MREDUCE operations. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ BDYS1 SID C G1 G2 G3 G4 G5 G6 abc Ĵ BDYS1 15 123456 275 276 THRU 457 589 102 ABC Ŀ +bc G7 G8 -etc.- GN Ĵ +BC 103 105 1275 Field Contents SID Identification number of BDYS1 set (Integer > 0). Ci Component number; any unique combination of the digits 1 - 6 (with no imbedded blanks) when the Gi are grid points, or null if they are scalar points. Gi Grid or scalar point identification number of a basic substructure (Integer > 0). Remarks 1. The set of boundary points defines the degrees of freedom which are to be retained in the matrices after the substructure REDUCE, CREDUCE or MREDUCE operation has been performed. An alternate format is provided by the BDYS card. 2. The THRU may appear in any field other than 2 and 9. 3. The SID need not be unique. 4. The BDYS1 card must be referenced by the BDYC card in order to attach the basic substructure name to the boundary set specified on the BDYS card. Note that the same BDYS boundary set may be attached to more than one basic substructure name. =PAGE= BFIELD - Magnetic Induction Output Description Specifies coordinate system for magnetic induction output. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ BFIELD CID EID1 EID2 EID3 EID4 EID5 EID6 EID7 Ĵ BFIELD 3 12 5 6 First Alternate Form: Ŀ BFIELD CID EID1 "THRU" EID2 Ĵ BFIELD 5 8 THRU 27 Second Alternate Form: 1 2 3 4 5 6 7 8 9 10 Ŀ BFIELD CID -1 Ĵ BFIELD 7 -1 Field Contents CID Coordinate system identification number (Integer > 0 or blank). EIDi Element identification numbers of those elements whose magnetic induction are to be output in coordinate system CID (Integer > 0). Remarks 1. The magnetic induction of any element not specified on a BFIELD card will be computed in the basic coordinate system. Therefore, no BFIELD cards are necessary if CID = 0 for all elements. 2. If the first alternate form of the card is used, all element identification numbers between EID1 and EID2 need not exist, but sufficient core must be available for 2(EID2 - EID1 + 1) words. 3. The second alternate form of the card implies that the magnetic induction values of all elements in the problem will be computed in coordinate system CID. =PAGE= CAERO1 - Aerodynamic Panel Element Connection Description Defines an aerodynamic macro element (panel) in terms of two leading edge locations and side chords for Doublet-Lattice Theory. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CAERO1 EID PID CP NSPAN NCHORD LSPAN LCHORD IGID ABC Ĵ CAERO1 1000 1 3 2 1 ABC Ŀ +BC X1 Y1 Z1 X12 X4 Y4 Z4 X43 Ĵ +BC 0.0 0.0 0.0 1.0 0.2 1.0 0.0 0.8 Field Contents EID Element identification number (unique Integer > 0). PID Identification number of property card (Integer > 0) to specify associated bodies. CP Coordinate system for locating points 1 and 4 (Integer >= 0). NSPAN Number of spanwise boxes; if a positive value is given, equal divisions are assumed; if zero or blank, a list of division points follows (Integer >= 0). NCHORD Number of chordwise boxes (same rule as for NSPAN). LSPAN ID of an AEFACT data card containing a list of division points for spanwise boxes. Used only if field 5 is zero or blank (Integer > 0 if NSPAN is zero or blank). LCHORD ID of an AEFACT data card containing a list of division points for chordwise boxes. Used only if field 6 is zero or blank (Integer > 0 if NCHORD is zero or blank). IGID Interference group identification (aerodynamic elements with different IGID's are uncoupled) (Integer > 0). X1,Y1,Z1;X4,Y4,Z4 Location of points 1 and 4, in coordinate system CP (Real). X12; X43 Edge chord length (in aerodynamic coordinate system) (Real >= 0, and not both zero). Remarks Z Y elem elem 1 ** 1000 1003 1006 4 Ĵ 1001 1004 1007 Ĵ 1002 1005 1008 2 ** 3 X = X aero elem 1. The boxes are numbered sequentially, beginning with EID. You should be careful to ensure that all box numbers are unique, and different from structural grid ID's. 2. The number of division points is one greater than the number of boxes. Thus, if NSPAN = 3, the division points are 0.0, 0.333, 0.667, 1.000. If you supply division points, the first and last points need not be 0. and 1. (in which the corners of the panel would not be at the reference points). 3. A triangular element is formed if X12 or X43 = 0. 4. The element coordinate system (right-handed) is shown in the sketch. 5. The continuation card is required. =PAGE= CAERO2 - Aerodynamic Body Connection Description Defines an aerodynamic body for Doublet-Lattice aerodynamics. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CAERO2 EID PID CP NSB NINT LSB LINT IGID ABC Ĵ CAERO2 1500 2 100 4 99 1 abc Ŀ +BC X1 Y1 Z1 X12 Ĵ +bc -1.0 100. -30. 175. Field Contents EID Element identification number (Integer > 0). PID Property identification number (Integer > 0). CP Coordinate system for locating point 1 (Integer >= 0). NSB Number of slender body elements; if a positive number is given, NSB equal divisions are assumed; if zero or blank, see field 7 for a list of divisions (Integer >= 0). NINT Number of interference elements; if a positive number is given, NINT equal divisions are assumed; if zero or blank, see field 8 for a list of divisions (Integer >= 0). LSB ID of an AEFACT data card for slender body division points; used only if field 5 is zero or blank (Integer >= 0). LINT ID of an AEFACT data card containing a list of division points for interference elements used only if field 6 is zero or blank (Integer >= 0). IGID Interference group identification (aerodynamic elements with different IGID's are uncoupled) (Integer > 0). X1,Y1,Z1 Location of point 1 in coordinate system CP (Real). X12 Length of body in the x-direction of the aerodynamic coordinate system (Real > 0). Remarks 1. Point 1 is the leading point of the body. 2. All CAERO1 (panels) and CAERO2 (bodies) in the same group (IGID) will have aerodynamic interaction. 3. Interference elements are optional, but if used at least one element is required for each aerodynamic body specified by this card. 4. Element identification numbers on the aerodynamic bodies must have the following sequence: a. CAERO1 panels first (lowest number) b. Z-bodies (see PAERO2 ORIENTation flag) c. ZY-bodies d. Y-bodies (highest number) and they must be unique with respect to all structural grid ID's. 5. The total number of interference bodies associated with a panel is limited to six. 6. At least two slender body elements are required for every aerodynamic body specified by this card. =PAGE= CAERO3 - Aerodynamic Mach Box Surface Connection Description Defines the aerodynamic edges of a Mach Box lifting surface. If no cranks are present, this card defines the aerodynamic Mach Box lifting surface. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CAERO3 EID PID CP LISTW LISTC1 LISTC2 ABC Ĵ CAERO3 2000 2001 0 22 33 abc Ŀ +BC X1 Y1 Z1 X12 X4 Y4 Z4 X43 Ĵ +bc 1.0 0.0 0.0 100. 17. 130. 0. 100. Field Contents EID Element identification number (Integer > 0). PID Property identification number (Integer > 0). CP Coordinate system for locating points 1 and 4 (Integer >= 0). LISTW The ID of an AEFACT data card which lists (x,y) pairs of structural interpolation grid points of the wing (Integer > 0). LISTC1,LISTC2 The ID of AEFACT data cards which list (x,y) pairs for controls (if they exist) (Integers >= 0). X1,Y1,Z1;X4,Y4,Z4 Location of points 1 and 4 in coordinate system CP (Real). X12,X43 Edge chord lengths (in aerodynamic coordinate system) (Real >= 0, X12 not equal 0.). Remarks 1. The x,y pairs of LISTW, LISTC1, and LISTC2 (AEFACT) data cards are in the aero element coordinate system. 2. If cranks and/or control surfaces exist, their locations are given on the PAERO3 data card. 3. The numbering system and coordinate system are shown in Figure 2.4-1. The following twelve points are defined for each Mach Box lifting surface. Planform Corners 1. Leading edge, inboard 2. Trailing edge, inboard 3. Trailing edge, outboard 4. Leading edge, outboard Cranks 5. Leading edge 6. Trailing edge Control 7. Hinge line, inboard 8. On inboard edge (usually at trailing edge) 9. Hinge line, outboard 10. On outboard edge Control (if two) 9. Hinge line, inboard 10. On inboard edge (usually at trailing edge) 11. Hinge line, outboard 12. On outboard edge (usually at trailing edge) 5 4 1 *** y elem + + + LISTW grid points + + 7 9 11 *** + + + + 8* + *10 + + *12 2 *ij*ij* 3 6 LISTC2 grid points if control LISTC1 grid points surfaces exist x = x aero elem Figure 2.4-1. CAERO3 numbering and coordinate system =PAGE= CAERO4 - Aerodynamic Macro-Strip Element Connection Description Defines an aerodynamic macro element for strip theory. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CAERO4 EID PID CP NSPAN LSPAN ABC Ĵ CAERO4 6000 6001 100 315 abc Ŀ +BC X1 Y1 Z1 X12 X4 Y4 Z4 X43 Ĵ +bc 0.0 0.0 0.0 1.0 0.2 1.0 0.0 0.8 Field Contents EID Element identification number (Integer > 0). PID Property identification number (Integer > 0). CP Coordinate system for locating points 1 and 4 (Integer >= 0). NSPAN Number of strips; if a positive value is given, NSPAN equal strips are assumed. If zero or blank, use LSPAN field (Integer >= 0). LSPAN ID of an AEFACT data card containing a list of division points for strips. Used only if field 5 is zero or blank (Integer > 0 if NSPAN is zero or blank). X1,Y1,Z1;X4,Y4,Z4 Location of points 1 and 4 in coordinate system CP (Real). X12,X43 Edge chord lengths in aerodynamic coordinate system (Real >= 0, and not both zero). 1 ** y 4 elem X X 12 43 Ĵ 2 ** 3 x = x aero elem Remarks 1. The strips are numbered sequentially, beginning with EID. You must ensure that all strip numbers are unique and different from structural grid ID's. 2. The number of division points is one greater than the number of boxes. Thus, if NSPAN = 3, the division points are 0.0, 0.333, 0.667, 1.000. If you supply division points, the first and last points need not be 0. and 1. (In which case the corners of the panel would not be at the reference points.) 3. A triangular element is formed if X12 or X43 = 0. =PAGE= CAERO5 - Aerodynamic Macro-Piston Theory Element Connection Description Defines an aerodynamic macro-element for piston theory. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CAERO5 EID PID CP NSPAN LSPAN NTHRY NTHICK ABC Ĵ CAERO5 6000 6001 100 315 0 0 abc Ŀ +BC X1 Y1 Z1 X12 X4 Y4 Z4 X43 Ĵ +bc 0.0 0.0 0.0 1.0 0.2 1.0 0.0 0.8 Field Contents EID Element identification number (Integer > 0). PID Property identification number (Integer > 0). CP Coordinate system for locating points 1 and 4 (Integer >= 0). NSPAN Number of strips; if a positive value is given, NSPAN equal strips are assumed. If zero or blank, use LSPAN field. LSPAN ID of an AEFACT data card containing a list of division points for strips. Used only if field 5 is zero or blank (Integer > 0 if NSPAN is zero or blank). NTHRY Parameter to select the theory (Integer 0, blank, 1, or 2). See Remark 4. 0 Use Piston Theory. 1 Use Van Dyke Theory (no sweep correction, sec(sweep angle) = 1.). 2 Use Van Dyke theory with sweep correction. NTHICK Parameter to select thickness integrals input (Integer >= O or blank). 0 Thickness integrals are computed internally. >0 Thickness integrals are input directly and is the ID number of AEFACT data card which lists the I and/or J integrals. X1,Y1,Z1;X4,Y4,Z4 Location of points 1 and 4 in coordinate system CP (Real). X12,X43 Edge chord lengths in aerodynamic coordinate system (Real >= 0, and not both zero). 1 ** y 4 elem X X 12 43 Ĵ 2 ** 3 x = x aero elem Remarks 1. The strips are numbered sequentially, beginning with EID. You must ensure that all strip numbers are unique and different from structural grid ID's. 2. The number of division points is one greater than the number of boxes. Thus, if NSPAN = 3, the division points are 0.0, 0.333, 0.667, 1.000. If you supply division points, the first and last points need not be 0. and 1. (in which the corners of the panel would not be at the reference points). 3. A triangular element is formed if X12 or X43 = 0. 4. Three separate piston theory formulations are available (see Section 1.11.2.5). 5. I and J thickness integral definitions are shown in Figure 2.4-2. See PAERO5 for a method to have these integrals computed internally. dg g = slope of airfoil semithickness d 1 1 I = g d J = g d 1 0 1 h 1 1 I = g d J = g d 2 0 2 h 1 1 I = g d J = g d 3 0 3 h 1 1 I = gd J = gd 4 0 4 h 1 1 I = gd J = gd 5 0 5 h 1 1 I = gd J = gd 6 0 6 h Figure 2.4-2. CAERO5 I and J thickness integral definitions =PAGE= CAXIFi - Fluid Element Connections Description Defines an axisymmetric fluid element which connects i = 2, i = 3, or i = 4 fluid points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CAXIF2 EID IDF1 IDF2 RHO B Ĵ CAXIF2 11 23 25 .25E-03 Ŀ CAXIF3 EID IDF1 IDF2 IDF3 RHO B Ĵ CAXIF3 105 31 32 33 6.7E4 Ŀ CAXIF4 EID IDF1 IDF2 IDF3 IDF4 RHO B Ĵ CAXIF4 524 421 425 424 422 .5-3 2.5+3 Field Contents EID Element identification number (Integer > 0). IDFj Identification numbers of connected GRIDF points, j = 1,2,...i (Integer > 0). RHO Fluid density in mass units (Real > 0.0 or blank). B Fluid bulk modulus (Real >= 0.0 or blank). Remarks 1. This card is allowed only if an AXSLOT card is also present. 2. The element identification number (EID) must be unique with respect to all other fluid or structural elements. 3. If RHO or B is blank the corresponding values on the AXSLOT data card are used, in which case the default must not be blank (undefined). 4. Plot elements are generated for these elements. Because each plot element connects two points, one is generated for the CAXIF2 element, three are generated for the CAXIF3 element, and four plot elements are generated for the CAXIF4 element. In the last case the elements connect the pairs of points (1-2), (2-3), (3-4), and (4-1). 5. If B = 0.0, the fluid is considered to be incompressible. =PAGE= CBAR - Simple Beam Element Connection Description Defines a simple beam element (BAR) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CBAR EID PID GA GB X1 ,GO X2 X3 F abc Ĵ CBAR 2 39 7 3 13 2 123 Ŀ +bc PA PB Z1A Z2A Z3A Z1B Z2B Z3B Ĵ +23 513 Field Contents EID Unique element identification number (Integer > 0). PID Identification number of a PBAR property card (Default is EID unless BAROR card has nonzero entry in field 3) (Integer > 0 or blank). See BAROR card for default options. GA, GB Grid point identification numbers of connection points (Integer > 0; GA not equal GB). X1, X2, X3 Components of vector v, at end a (Figure 1.3-1a in Section 1.3.2.1), measured at end a, parallel to the components of the displacement coordinate system for GA, to determine (with the vector from end a to end b) the orientation of the element coordinate system for the bar element (Real, X1**2 + X2**2 + X3**2 > 0 or blank). See BAROR card for default options. GO Grid point identification number to optionally supply X1, X2, X3 (integer > 0 or blank). See BAROR card for default options. F Flag to specify the nature of fields 6-8 as follows: 6 7 8 Ŀ F = blank Ĵ F = 1 X1 X2 X3 Ĵ F = 2 GO blank/0 blank/0 This F flag is optional (not required). See BAROR card for default options. PA, PB Pin flags for bar ends a and b, respectively, that are used to insure that the bar cannot resist a force or moment corresponding to the pin flag at that respective end of the bar. (Up to 5 of the unique digits 1 - 6 anywhere in the field with no imbedded blanks; integer > 0) (These degree of freedom codes refer to the element forces and not global forces. The bar must have stiffness associated with the pin flag. For example, if pin flag 4 is specified, the bar must have a value for J, the torsional constant.) Z1A,Z2A,Z3A;Z1B,Z2B,Z3B Components of offset vectors wa and wb, respectively, (see Figure 1.3-1a in Section 1.3.2.1) in displacement coordinate systems at points GA and GB, respectively. (Real or blank). Remarks 1. Each element identification number must be unique with respect to all other element identification numbers. 2. For an explanation of bar element geometry, see Section 1.3.2. 3. Zero (0) must be used in fields 7 and 8 in order to override entries in these fields associated with F = 1 in field 9 on a BAROR card. 4. If there are no pin flags or offsets, the continuation card may be omitted. 5. If bar offset vectors are present, NASTRAN plotting will plot the bar connecting to the tip of the offset, not to the associating grid point. =PAGE= CCONEAX - Axisymmetric Shell Element Connection Description Defines the connection of a conical shell element. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CCONEAX EID PID RA RB Ĵ CCONEAX 1 2 3 4 Field Contents EID Unique element identification number (1 <= Integer <= 9999). PID Identification number of a PCONEAX card (default is EID) (Integer > 0). RA Identification number of a RINGAX card (Integer > 0; RA not equal RB). RB Identification number of a RINGAX card (Integer > 0; RA not equal RB). Remarks 1. This card is allowed if and only if an AXIC card is also present. 2. For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. =PAGE= CDAMP1 - Scalar Damper Connection Description Defines a scalar damper element of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CDAMP1 EID PID G1 C1 G2 C2 Ĵ CDAMP1 19 6 0 23 2 Field Contents EID Unique element identification number (Integer > 0). PID Identification number of a PDAMP property card (default is EID) (Integer > 0). G1, G2 Geometric grid point identification number (Integer >= 0). C1, C2 Component number (6 >= Integer >= 0). Remarks 1. Scalar points may be used for G1 and/or G2, in which case the corresponding C1 and/or C2 must be zero or blank. Zero or blank may be used to indicate a grounded terminal G1 or G2 with a corresponding blank or zero C1 or C2. If only scalar points and/or ground are involved, it is more efficient to use the CDAMP3 card. (A grounded terminal is a scalar point or coordinate of a geometric grid point whose displacement is constrained to zero.) 2. Each element identification number must be unique with respect to all other element identification numbers. 3. The two connection points, (G1, C1) and (G2, C2), must be distinct. 4. For a discussion of the scalar elements, see Section 5.6 of the Theoretical Manual. 5. In heat transfer analysis, the CDAMP1 card may be used to define a lumped thermal capacitance Q=BT (if connected to grid point S1). =PAGE= CDAMP2 - Scalar Damper Property and Connection Description Defines a scalar damper element of the structural model without reference to a property value. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CDAMP2 EID B G1 C1 G2 C2 Ĵ CDAMP2 16 -2.98 32 1 Field Contents EID Unique element identification number (Integer > 0). B The value of the scalar damper (Real). G1, G2 Geometric grid point identification number (Integer >= 0). C1, C2 Component number (6 >= Integer >= 0). Remarks 1. Scalar points may be used for G1 and/or G2, in which case the corresponding C1 and/or C2 must be zero or blank. Zero or blank may be used to indicate a grounded terminal G1 or G2 with a corresponding blank or zero C1 or C2. If only scalar points and/or ground are involved, it is more efficient to use the CDAMP4 card. (A grounded terminal is a scalar point or coordinate of a geometric grid point whose displacement is constrained to zero.) 2. Each element identification number must be unique with respect to all other element identification numbers. 3. This single card completely defines the element since no material or geometric properties are required. 4. The two connection points, (G1, C1) and (G2, C2), must be distinct. 5. For a discussion of the scalar elements, see Section 5.6 of the Theoretical Manual. 6. In heat transfer analysis the CDAMP2 card may be used to define a lumped thermal capacitance Q=BT (if connected to grid point S1). =PAGE= CDAMP3 - Scalar Damper Connection Description Defines a scalar damper element of the structural model which is connected only to scalar points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CDAMP3 EID PID S1 S2 EID PID S1 S2 Ĵ CDAMP3 16 978 24 36 17 978 24 37 Field Contents EID Unique element identification number (Integer > 0). PID Identification number of a PDAMP property card (default is EID) (Integer > 0). S1, S2 Scalar point identification numbers (Integer >= 0; S1 not equal S2). Remarks 1. S1 or S2 may be blank or zero indicating a constrained coordinate. 2. Each element identification number must be unique with respect to all other element identification numbers. 3. One or two scalar damper elements may be defined on a single card. 4. For a discussion of the scalar elements, see Section 5.6 of the Theoretical Manual. 5. In heat transfer analysis the CDAMP3 card may be used to define a lumped thermal capacitance Q=BT (if connected to grid point S1). =PAGE= CDAMP4 - Scalar Damper Property and Connection Description Defines a scalar damper element of the structural model which is connected only to scalar points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CDAMP4 EID B S1 S2 EID B S1 S2 Ĵ CDAMP4 16 -2.6 4 9 17 +8.6 3 7 Field Contents EID Unique element identification number (Integer > 0). B The scalar damper value (Real). S1, S2 Scalar point identification numbers (Integer >= 0; S1 not equal S2). Remarks 1. S1 or S2 may be blank or zero indicating a constrained coordinate. 2. Each element identification number must be unique with respect to all other element identification numbers. 3. This card completely defines the element since no material or geometric properties are required. 4. One or two scalar damper elements may be defined on a single card. 5. For a discussion of the scalar elements, see Section 5.6 of the Theoretical Manual. 6. In heat transfer analysis the CDAMP4 card may be used to define a lumped thermal capacitance Q=BT (if connected to grid point S1). =PAGE= CDUMi - Dummy Element Connection Description Defines a dummy element (1 <= i <= 9). Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CDUMi EID PID G1 G2 G3 G4 -etc.- GN abc Ĵ CDUM2 114 108 2 5 6 8 11 ABC Ŀ +bc A1 A2 -etc.- AN Ĵ +BC 2.4 3.E4 2 50 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PDUMi property card (Integer > 0). G1...GN Grid point identification numbers of connection points (Integer > 0, G1 through GN must be unique). A1...AN Additional entries (Real or Integer). Remarks 1. You must code the associated element routines for matrix generation, stress recovery, etc., and perform a link edit to replace the dummy routines. 2. If no property card is required, field 3 may contain the material identification number. 3. Additional entries are defined in your element routines. =PAGE= CELAS1 - Scalar Spring Connection Description Defines a scalar spring element of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CELAS1 EID PID G1 C1 G2 C2 Ĵ CELAS1 2 6 8 1 Field Contents EID Unique element identification number (Integer > 0). PID Identification number of a PELAS property card (default is EID) (Integer > 0). G1, G2 Geometric grid point identification number (Integer > 0). C1, C2 Component number (6 >= Integer >= 0). Remarks 1. Scalar points may be used for G1 and/or G2, in which case the corresponding C1 and/or C2 must be zero or blank. Zero or blank may be used to indicate a grounded terminal G1 or G2 with a corresponding blank or zero C1 or C2. If only scalar points and/or ground are involved, it is more efficient to use the CELAS3 card. (A grounded terminal is a scalar point or coordinate of a geometric grid point whose displacement is constrained to zero.) 2. Each element identification number must be unique with respect to all other element identification numbers. 3. The two connection points, (G1, C1) and (G2, C2), must be distinct. 4. For a discussion of the scalar elements, see Section 5.6 of the Theoretical Manual. 5. In heat transfer analysis the CELAS1 card may be used to define a conduction or convection between two points or to ground (Q = K*dT) where dT is delta T. =PAGE= CELAS2 - Scalar Spring Property and Connection Description Defines a scalar spring element of the structural model without reference to a property value. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CELAS2 EID K G1 C1 G2 C2 GE S Ĵ CELAS2 28 6.2+3 32 19 4 Field Contents EID Unique element identification number (0 < Integer <= 10**7 if acoustic). K The value of the scalar spring (Real). G1, G2 Geometric grid point identification number (Integer >= 0). C1, C2 Components number (6 >= Integer >= 0). GE Damping coefficient (Real). S Stress coefficient (Real). Remarks 1. Scalar points may be used for G1 and/or G2, in which case the corresponding C1 and/or C2 must be zero or blank. Zero or blank may be used to indicate a grounded terminal G1 or G2 with a corresponding blank of zero C1 or C2. If only scalar points and/or ground are involved, it is more efficient to use the CELAS4 card. (A grounded terminal is a scalar point or coordinate of a geometric grid point whose displacement is constrained to zero.) 2. Each element identification number must be unique with respect to all other element identification numbers. 3. This single card completely defines the element since no material or geometric properties are required. 4. The two connection points, (G1, C1) and (G2, C2), must be distinct. 5. For a discussion of the scalar elements, see Section 5.6 of the Theoretical Manual. 6. In heat transfer analysis the CELAS2 card may be used to define a conduction or convection between two points or to ground (Q = K*dT) where dT is delta T. =PAGE= CELAS3 - Scalar Spring Connection Description Defines a scalar spring element of the structural model which is connected only to scalar points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CELAS3 EID PID S1 S2 EID PID S1 S2 Ĵ CELAS3 19 2 14 15 2 3 0 28 Field Contents EID Unique element identification number (Integer > 0). PID Identification number of a PELAS property card (default is EID) (Integer > 0). S1, S2 Scalar point identification numbers (Integer >= 0; S1 not equal S2). Remarks 1. S1 or S2 may be blank or zero indicating a constrained coordinate. 2. Each element identification number must be unique with respect to all other element identification numbers. 3. One or two scalar springs may be defined on a single card. 4. For a discussion of the scalar elements, see Section 5.6 of the Theoretical Manual. 5. In heat transfer analysis the CELAS3 card may be used to define a conduction or convection between two points or to ground (Q=K*dT) where dT is delta T. =PAGE= CELAS4 - Scalar Spring Property and Connection Description Defines a scalar element of the structural model which is connected only to scalar points without reference to a property value. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CELAS4 EID K S1 S2 EID K S1 S2 Ĵ CELAS4 42 6.2-3 2 13 6.2-3 0 2 Field Contents EID Unique element identification number (Integer > 0). K The scalar spring value (Real). S1, S2 Scalar point identification numbers (Integer >= 0; S1 not equal S2). Remarks 1. S1 or S2, but not both, may be blank or zero indicating a constrained coordinate. 2. Each element identification number must be unique with respect to all other element identification numbers. 3. This card completely defines the element since no material or geometric properties are required. 4. No damping coefficient is available with this form. (Assumed to be 0.0.) 5. No stress coefficient is available with this form. 6. One or two scalar springs may be defined on a single card. 7. For a discussion of the scalar elements, see Section 5.6 of the Theoretical Manual. 8. In heat transfer analysis the CELAS4 card may be used to define a conduction or convection between two points or to ground (Q=K*dT) where dT is delta T. =PAGE= CELBOW - Curved Beam or Elbow Element Description Defines a curved beam or elbow element of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CELBOW EID PID GA GB X1 X2 X3 1 Ĵ CELBOW 29 2 3 45 -1.0 0.0 0.0 1 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PELBOW property card (Integer > 0). GA, GB Grid point identification numbers of connection points (Integer > O; GA not equal GB). X1, X2, X3 Components of vector v at end A (see Figure 2.4-3 below), measured at end A, parallel to the components of the displacement coordinates for GA. Vector points the direction from GA to C (center of curvature), and is used to orient the element coordinate system for the ELBOW (real, X1**2 + X2**2 + X3**2 > 0). Remarks 1. The product moment of inertia is neglected (I12 = 0). This assumes that at least one axis of symmetry of the element cross section exists, for example, tube, I-beam, channel, tee, etc. 2. Each element identification number must be unique with respect to all other element identification numbers. 3. There are no pin flags or offsets permitted with the ELBOW element. 4. The local element coordinate system is shown in Figure 2.4-3. Plane 1 contains the points GA and GB and the vector v. Plane 2 is normal to Plane 1 and contains the vector v. 5. Element forces and stresses are oriented in the element coordinate system at the A-end, and in a rotated coordinate system at the B-end which is tangent to the curved beam at the B-end. 6. Field 9 must always have an integer value of 1. M T 2b b V 2 F M GB xb 1b V 1b X e Y -> M e v 1a V GA 2 C Center of M V Curvature 2a F 1a xa T a Figure 2.4-3. CELBOW element local coordinate system =PAGE= CEMLOOP - Circular Current Loop Description Defines a circular current loop in magnetic field problems. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CEMLOOP SID I AXI X1 Y1 Z1 X2 Y2 +a Ĵ CEMLOOP 3 2.5 1 5.2 0.0 2.25 Ŀ +a Z2 XC YC ZC CID Ĵ Field Contents SID Load set identification number (Integer > 0). I Current through loop (units of positive charge/sec) (Real > 0.0). AXI = 0, nonaxisymmetric problem. = 1, axisymmetric problem; TRAPRG and TRIARG elements are implied (Integer). X1,Y1,Z1;X2,Y2,Z2 Coordinates of two points through which the loop passes (given in coordinate system CID) (Real). XC, YC, ZC Coordinates of center of loop (given in coordinate system CID) (Real). CID Coordinate system identification number (Integer > 0). Remarks 1. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 2. If AXI = 1, Y1 must be 0.0 or blank, and all data fields after Z1 must be 0.0 or blank. (Continuation card need not be present.) 3. CID must be 0 or blank. 4. Points 1 and 2, (X1, Y1, Z1) and (X2, Y2, Z2), must be distinct and must be equidistant from the center of the circle. Also, the center of the circle and the two points must be non-collinear. 5. The direction of current is assumed to be from point 1 to point 2. 6. These computations involve elliptic integrals computed by an iterative process with a default convergence criterion of 1.E-6. The criterion can be changed with a PARAM bulk data card. At most 15,000 iterations are performed. With these parameters, convergence will occur when an integration or grid point is no closer to the loop than an amount equal to 2% of the radius. A convergence criterion of 1.E-5 will allow the point to be much closer to the loop. If convergence fails, a message is output, and the computations continue with the last iterated value. =PAGE= CFFREE - Free Fluid Surface Description Defines the fluid elements composing the free fluid surface in a hydroelastic analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CFFREE EIDF GRAVID FACE EIDF GRAVID FACE Ĵ CFFREE 100 100 3 101 100 4 Field Contents EIDF Fluid element identification number (Integer > 0) (see Remark 1). GRAVID Identification number of a GRAV gravity vector set (Integer > 0). FACE Identification number of the face of the fluid element, EIDF, forming the free surface (0 < Integer <= 6) (see Remark 2). Remarks 1. Allowable fluid element types are CFHEX1, CFHEX2, CFTETRA, and CFWEDGE. 2. The numbering conventions for solid faces are defined in fluid element connection bulk data card descriptions. =PAGE= CFHEXi - Fluid Hexahedral Element Connection Description Defines two types of fluid hexahedral elements (three-dimensional solids with eight vertices and six quadrilateral faces) to be used in hydroelastic analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CFHEXi EID MID G1 G2 G3 G4 G5 G6 abc Ĵ CFHEX2 15 100 1 2 3 4 5 6 ABC Ŀ +bc G7 G8 Ĵ +BC 7 8 Field Contents CFHEXi CFHEX1 or CFHEX2 (BCD) (see Remark 4). EID Element identification number (Integer > 0). MID Material identification number (Integer > 0). G1,...,G8 Grid point identification numbers of connection points (Integers > 0, G1 through G8 must be unique). Remarks 1. Each element identification number must be unique with respect to all other element identification numbers. 2. The numbering and order of the grid points and faces, required for specifying free fluid surfaces, are defined in Figure 2.4-4. 3. The quadrilateral faces must be nearly planar. 4. CFHEX1 is developed by 5 tetrahedra, CFHEX2 by 10 overlapping tetrahedra. 5. Material identification number must reference a MATF bulk data card. F6 (TOP) G8 / G7 Ŀ / / / / | / / / F4 / / | G6 / G5Ŀ F3 F5 |_ _ _ _ _ _ _ _ _ _ _ _ _ _ /G4 /G3 / / / F2 / / / / / / / G1 / G2 F1 (BOTTOM) Note: Fn indicates a face number Figure 2.4-4. CFHEXi grid point identification numbers =PAGE= CFLSTR - Fluid/Structure Interface Description Defines fluid/structure interfaces in hydroelastic analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CFLSTR EIDF GRAVID EIDS1 EIDS2 EIDS3 EIDS4 EIDS5 EIDS6 abc Ĵ CFLSTR 100 10 1 2 11 12 21 22 ABC Ŀ +bc EIDS7 EIDS8 -etc.- def Ĵ +BC 31 32 Alternate Form: Ŀ CFLSTR EIDF GRAVID EID1 "THRU" EID2 Ĵ CFLSTR 200 100 101 THRU 106 Field Contents EIDF Fluid element identification number (Integer > 0) (see Remark 3). GRAVID Identification number of a GRAV gravity vector set (Integer > 0). EIDSi, EIDiStructural element identification numbers (Integer > 0). Remarks 1. As many continuation cards as desired may appear when THRU is not used. 2. All element identification numbers between EID1 and EID2 must exist when using the THRU option. 3. Allowable fluid element types are CFHEX1, CFHEX2, CFTETRA, and CFWEDGE. =PAGE= CFLUIDi - Fluid Element Connections Description Defines three types of fluid elements for axisymmetric fluid model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CFLUID2 EID IDF1 IDF2 RHO B Ĵ CFLUID2 100 11 14 .025 0.0 Ŀ CFLUID3 EID IDF1 IDF2 IDF3 RHO B Ĵ CFLUID3 110 15 13 12 1.2 Ŀ CFLUID4 EID IDF1 IDF2 IDF3 IDF4 RHO B Ĵ CFLUID4 120 11 15 12 14 Field Contents EID Element Identification number (Integer, 0 < Idc < 10**5). IDFi Identification number of RINGFL card (Integer > 0; IDF1 through IDF4 must be unique). RHO Mass density (Real > 0.0 or blank; if blank, the AXIF default value is used). B Bulk modulus, pressure per volume ratio (Real or blank. Default value on AXIF card is used if blank.) Remarks 1. This card is allowed only if an AXIF card is also present. 2. Element identification number must be unique with respect to all other fluid, scalar, and structural elements. 3. The volume defined by IDFi is a body of revolution about the polar axis of the fluid coordinate system defined by AXIF. CFLUID2 defines a thick disk with IDF1 and IDF2 defining the outer corners as in Figure 2.4-5. 4. All interior angles must be less than 180 degrees. 5. The order of connected RINGFL points is arbitrary. 6. If the bulk modulus value is zero the fluid is assumed incompressible. 15 * /\ / \ / \ Polar 14 / \ axis *____________/120 \ = 0.0 \ F \ \ \ 100 \ 110 \ F \ F \ *** 11 12 13 Radius Figure 2.4-5. CFLUID2 coordinates =PAGE= CFTETRA - Fluid Tetrahedral Element Connection Description Defines a fluid tetrahedral element (three-dimensional solid, with four vertices and four triangular faces) to be used in hydroelastic analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CFTETRA EID MID G1 G2 G3 G4 Ĵ CFTETRA 25 6 1 2 3 4 Field Contents EID Element identification number (Integer > 0). MID Material identification number (Integer > 0). G1,G2,G3,G4Grid point identification numbers of connection points (Integers > 0, G1 through G4 must be unique). Remarks 1. Each element identification number must be unique with respect to all other element identification numbers. 2. The numbering of the grid points and faces, required for specifying free fluid surfaces, is defined in Figure 2.4-6. 3. Material identification number must reference a MATF bulk data card. G4 * /\ / \ F4 / \/ / /\ G1* F2 \ \ . \ \ . F3 \ \ . \ \ . \ ** G2 | G3 | F1 Note: Fn indicates a face number Figure 2.4-6. CFTETRA grid point identification numbers =PAGE= CFTUBE - Fluid Tube Connection Description Defines a fluid tube element of the heat transfer model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CFTUBE EID PID G1 G2 Ĵ CFTUBE 200 5 8 12 Field Contents EID Element identification number (Integer > 0). PID Identification number of PFTUBE property card (Integer > 0). G1, G2 Identification numbers of connected grid points (Integers > 0). Remarks 1. The FTUBE element should only be used in nonlinear and transient heat transfer analysis. Use in linear static analysis produces an unsymmetric matrix which leads to incorrect results. 2. The positive direction for flow is from G1 to G2. 3. It is your responsibility to ensure flow continuity. There must be no accumulation of fluid mass at any grid point. =PAGE= CFWEDGE - Fluid Wedge Element Connection Description Defines a fluid wedge element (three-dimensional solid, with three quadrilateral faces and two opposing triangular faces) to be used in hydroelastic analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CFWEDGE EID MID G1 G2 G3 G4 G5 G6 Ĵ CFWEDGE 25 100 1 2 3 4 5 6 Field Contents EID Element identification number (Integer > 0). MID Material identification number (Integer > 0). G1,...,G6 Grid point identification numbers of connection points (Integers > 0; G1 through G6 must be unique). Remarks 1. Each element identification number must be unique with respect to all other element identification numbers. 2. The numbering of the grid points and faces, required for specifying free fluid surfaces, is defined in Figure 2.4-7. 3. The quadrilateral faces must be nearly planar. 4. Material identification number must reference a MATF bulk data card. G4 __________ G6 \ / \ F5 /ij F4 \ / F2 \G5/F3 G1 \/ G3 Note: Fn indicates a face number \ / \ / \ / F1 \ / \/ * G2 Figure 2.4-7. CFWEDGE grid point identification numbers =PAGE= CHBDY - Heat Boundary Element Description Defines a boundary element for heat transfer analysis which is used for heat flux, thermal vector flux, convection, and/or radiation. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CHBDY EID PID TYPE G1 G2 G3 G4 abc Ĵ CHBDY 721 100 LINE 101 98 +BD21 Ŀ +bc GA1 GA2 GA3 GA4 V1 V2 V3 Ĵ +BD21 102 102 1.00 0.0 0.0 Field Contents EID Element identification number (Integer > 0). PID Property identification number (Integer > 0). TYPE Type of area involved (must be one of POINT, LINE, REV, AREA3, AREA4, or ELCYL). G1,...,G4 Grid point identification numbers of primary connected points (Integer > 0 or blank). GA1,...,GA4Grid or scalar point identification numbers of associated ambient points (Integer > 0 or blank). V1, V2, V3 Vector (in the basic coordinate system) used for element orientation (real or blank). Remarks 1. The continuation card is not required. 2. The six types have the following characteristics: a. The POINT type has one primary grid point and requires a property card, and the normal vector (V1, V2, V3) must be given if thermal vector flux is to be used. b. The LINE type has two primary grid points and requires a property card, and the vector is required if thermal vector flux is to be used. c. The REV type has two primary grid points which must lie in the x-z plane of the basic coordinate system with x > 0. The defined area is a conical section with z as the axis of symmetry. A property card is required for convection, radiation, or thermal vector flux. d. The AREA3 and AREA4 types have three and four primary grid points, respectively. These points define a triangular or quadrilateral surface and must be ordered to go around the boundary. A property card is required for convection, radiation, or thermal vector flux. e. The ELCYL type (elliptic cylinder) has two connected primary grid points and requires a property card, and if thermal vector flux is used, the vector must be nonzero. 3. A property card, PHBDY, is used to define the associated area factors, the emissivity, the absorbivity, and the principal radii of the elliptic cylinder. The material coefficients used for convection and thermal capacity are referenced by the PHBDY card. See this card description for details. 4. The associated points, GA1, GA2, etc., may be either grid or scalar points, and are used to define the fluid ambient temperature when a convection field exists. These points correspond to the primary (CHBDY element) points G1, G2, etc., and the number of them depends on the TYPE option, but they need not be unique. Their values may be set in statics with an SPC card, or they may be connected to other elements. If any field is blank, the ambient temperature associated with that grid point is assumed to be zero. 5. Heat flux may be applied to this element with QBDY1 or QBDY2 cards. 6. Thermal vector flux from a directional source may be applied to this element with a QVECT card. The orientation of the normal vector must be defined. The grid point ordering establishes the normal vector direction as end a to end b for line elements and right hand rule for cross product elements. See Section 1.8 for the definition of the normal vector for each element type. =PAGE= CHEXAi - Hexahedron Element Connection Description Defines two types of hexahedron elements (3 dimensional solid with 8 vertices and 6 quadrilateral faces, HEXAi) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CHEXAi EID MID G1 G2 G3 G4 G5 G6 abc Ĵ CHEXA2 15 2 7 8 9 10 15 16 ABC Ŀ +bc G7 G8 Ĵ +BC 17 18 Field Contents CHEXAi CHEXA1 or CHEXA2 (see Remark 7). EID Element identification number (Integer > 0). MID Material identification number (Integer > 0). G1,...,G8 Grid point identification numbers of connection points (Integers > 0, G1 through G8 must be unique). Remarks 1. Each element identification number must be unique with respect to all other element identification numbers. 2. The order at the grid points is: G1, G2, G3, G4 in order around one quadrilateral face. G5, G6, G7, G8 are in order in the same direction around the opposite quadrilateral, with G1 and G5 along the same edge. 3. The quadrilateral faces must be nearly planar. 4. There is no nonstructural mass. 5. For structural problems, material must be defined by MAT1 card. 6. Stresses are given in the basic coordinate system. 7. CHEXA1 represents the element as 5 tetrahedra; CHEXA2 represents the element as 10 overlapping tetrahedra. 8. For heat transfer problems, material may be defined with either a MAT4 or MAT5 card. G8 G7 ** /| / / / / | / / G6 / | G5** *G4_ _ _ _ _ _ _ _ _ _ _ _ _ *G3 / / | | / / / / / / G1**G2 Figure 2.4-8. CHEXAi grid point identification numbers =PAGE= CIHEX1 - Linear Isoparametric Hexahedron Element Connection Description Defines a linear isoparametric hexahedron element of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CIHEX1 EID PID G1 G2 G3 G4 G5 G6 abc Ĵ CIHEX1 137 5 3 8 5 4 9 14 ABC Ŀ +bc G7 G8 Ĵ +BC 11 10 Field Contents EID Element identification number (Integer > 0). PIP Identification number of a PIHEX property card (Integer > 0). G1,...,G8 Grid point identification numbers of connection points (Integers > 0, G1 through G8 must be unique). Remarks 1. Each element identification number must be unique with respect to all other element identification numbers. 2. Grid points G1, G2, G3, G4 must be given in counter-clockwise order about one quadrilateral face when viewed from inside the element. G5, G6, G7, G8 are in order in the same direction around the opposite quadrilateral, with G1 and G5 along the same edge. 3. There is no non-structural mass. 4. The quadrilateral faces need not be planar. 5. Stresses are given in the basic coordinate system. G7 G6 ** /| / / / / | / / G5 / | G8** *G3_ _ _ _ _ _ _ _ _ _ _ _ _ *G2 / / | | / / / / / / G4**G1 Figure 2.4-9. CIHEX1 grid point identification numbers =PAGE= CIHEX2 - Quadratic Isoparametric Hexahedron Element Connection Description Defines a quadratic isoparametric hexahedron element of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CIHEX2 EID PID G1 G2 G3 G4 G5 G6 abc Ĵ CIHEX2 110 7 3 8 12 13 14 9 ABC Ŀ +bc G7 G8 G9 G10 G11 G12 G13 G14 def Ĵ +BC 5 4 16 19 20 17 23 27 DEF Ŀ +ef G15 G16 G17 G18 G19 G20 Ĵ +EF 31 32 33 28 25 24 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PIHEX property card (Integer > 0). G1,...,G20 Grid point identification numbers of connection points (Integers > 0, G1 through G20 must be unique). Remarks 1. Each element identification number must be unique with respect to all other element identification numbers. 2. Grid points G1,...,G8 must be given in counter-clockwise order about one quadrilateral face when viewed from inside the element. G9,...,G12 and G13,...,G20 are in the same direction with G1, G9 and G13 along the same edge. 3. There is no non-structural mass. 4. The quadrilateral faces need not be planar. 5. Stresses are given in the basic coordinate system. G17 G16 G15 *** / / / | G14* G18* *G11 / / | G20 G13 / *G10 G19*** *G5_ _ _ _ _ _*_ _ _ _ _ _ _ *G3 / G4 / G12* *G6 *G9 / / *G2 / / / / *** G7 G8 G1 Figure 2.4-10. CIHEX2 grid point identification numbers =PAGE= CIHEX3 - Cubic Isoparametric Hexahedron Element Connection Description Defines a cubic isoparametric hexahedron element of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CIHEX3 EID PID G1 G2 G3 G4 G5 G6 abc Ĵ CIHEX3 15 3 4 9 12 17 18 19 ABC Ŀ +bc G7 G8 G9 G10 G11 G12 G13 G14 def Ĵ +BC 20 13 10 7 6 5 22 25 DEF Ŀ +ef G15 G16 G17 G18 G19 G20 G21 G22 ghi Ĵ +EF 26 23 28 31 32 29 36 41 GHI Ŀ +hi G23 G24 G25 G26 G27 G28 G29 G30 jkl Ĵ +HI 44 49 50 51 52 45 42 39 JKL Ŀ +kl G31 G32 Ĵ +KL 38 37 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PIHEX property card (Integer > 0). G1,...,G32 Grid point identification numbers of connection points (Integers > 0, G1 through G32 must be unique). Remarks 1. Each element identification number must be unique with respect to all other element identification numbers. 2. Grid points G1,...,G12 must be given in counter-clockwise order about one quadrilateral face when viewed from inside the element. G13,...,G16; G17,...,G20; and G21,...,G32 are in the same direction, with G1, G13, G17, G21 along the same edge. 3. There is no nonstructural mass. 4. The quadrilateral faces need not be planar. 5. Stresses are given in the basic coordinate system. 27 26 25 24 **** 28*| / / *19 23* *18 29* | / / *15 31 32 22* *14 30****21 *7 _ _ *6_ _ _ _*65_ _ _ _ _ *64 20* / 17* / | *8 | *63 16* / 13* / *7 *62 / / ****61 10 11 12 Figure 2.4-11. CIHEX3 grid point identification numbers =PAGE= CIS2D8 - Quadratic Isoparametric Element Connection Description Defines a quadriparabolic isoparametric membrane element (IS2D8) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CIS2D8 EID PID G1 G2 G3 G4 G5 G6 +abc Ĵ CIS2D8 16 2 12 10 15 18 22 3 +ABC Ŀ +abc G7 G8 ID1 TH Ĵ +ABC 7 11 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PIS2D8 property card (Integer > 0). G1,...,G8 Grid point identification numbers of connection points (Integers > 0; G1 through G8 must be unique). ID1 Number of Gauss quadrature points (ID1 = 2 or 3; default is 2). TH Material property orientation angle in degrees (Real). Figure 2.4-12 gives the sign convention for TH. Remarks 1. Each element identification number must be unique with respect to all other element identification numbers. 2. Grid points G1 through G8 must be ordered as shown above. 3. This element is a planar element; that is, G1 through G8 must be in a plane. 4. Stresses are computed in the element coordinate system. 5. The element may be collapsed to a triangle by having coincident grid points or by making two edges collinear (which is the preferred method). If grid points are made coincident, the only choices are G2, G6 and G3 or G3, G4 and G7. Grid points G1, G5, and G2 may not be coincident, nor may grid points G1, G8, and G4. 6. The midpoints G5, G6, G7, and G8 should be placed as close to the mid-side as possible, except for unusual circumstances, for example, when the element is to be used as a crack element. ye G7 G4 *** G3 . G8 * . * G6 . . TH G5 G1 ***xe G2 Figure 2.4-12. CIS2D8 sign convention for TH =PAGE= CMASS1 - Scalar Mass Connection Description Defines a scalar mass element of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CMASS1 EID PID G1 C1 G2 C2 Ĵ CMASS1 32 6 2 1 2 3 Field Contents EID Unique element identification number (Integer > 0). PID Identification number of a PMASS property card (default is EID) (Integer > 0). G1, G2 Geometric grid point identification number (Integer > 0). C1, C2 Component number (6 >= Integer >= 0). Remarks 1. Scalar points may be used for G1 and/or G2, in which case the corresponding C1 and/or C2 must be zero or blank. Zero or blank may be used to indicate a grounded terminal G1 or G2 with a corresponding blank or zero C1 or C2. If only scalar points and/or ground are involved, it is more efficient to use the CMASS3 card. (A grounded terminal is a scalar point or coordinate of a geometric grid point whose displacement is constrained to zero.) 2. Each element identification number must be unique with respect to all other element identification numbers. 3. The two connection points, (G1, C1) and (G2, C2), must be distinct. 4. For a discussion of the scalar elements, see Section 5.6 of the Theoretical Manual. =PAGE= CMASS2 - Scalar Mass Property and Connection Description Defines a scalar mass element of the structural model without reference to a property value. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CMASS2 EID M G1 C1 G2 C2 Ĵ CMASS2 32 9.25 6 1 7 Field Contents EID Unique element identification number (Integer > 0). M The value of the scalar mass (Real). G1, G2 Geometric grid point identification number (Integer >= 0). C1, C2 Component number (6 >= Integer >= 0). Remarks 1. Scalar points may be used for G1 and/or G2, in which case the corresponding C1 and/or C2 must be zero or blank. Zero or blank may be used to indicate a grounded terminal G1 or G2 with a corresponding blank or zero C1 or C2. If only scalar points and/or ground are involved, it is more efficient to use the CMASS4 card. (A grounded terminal is a scalar point or coordinate of a geometric grid point whose displacement is constrained to zero.) 2. Each element identification number must be unique with respect to all other element identification numbers. 3. This card completely defines the element since no material or geometric properties are required. 4. The two connection points, (G1, C1) and (G2, C2), must be distinct. 5. For a discussion of the scalar elements, see Section 5.6 of the Theoretical Manual. =PAGE= CMASS3 - Scalar Mass Connection Description Defines a scalar mass element of the structural model which is connected only to scalar points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CMASS3 EID PID S1 S2 EID PID S1 S2 Ĵ CMASS3 13 42 62 1 Field Contents EID Unique element identification number (Integer > 0). PID Identification number of a PMASS property card (default is EID) (Integer > 0). S1, S2 Scalar point identification numbers (Integer >= 0; S1 not equal S2). Remarks 1. S1 or S2 may be blank or zero indicating a constrained coordinate. 2. Each element identification number must be unique with respect to all other element identification numbers. 3. One or two scalar masses may be defined on a single card. 4. For a discussion of the scalar elements, see Section 5.6 of the Theoretical Manual. =PAGE= CMASS4 - Scalar Mass Property and Connection Description Defines a scalar mass element of the structural model which is connected only to scalar points without reference to a property value. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CMASS4 EID M S1 S2 EID M S1 S2 Ĵ CMASS4 23 14.92 6 23 2 -16.3 0 29 Field Contents EID Unique element identification number (Integer > 0). M The scalar mass value (Real). S1, S2 Scalar point identification numbers (Integer > 0; S1 not equal S2). Remarks 1. S1 or S2 may be blank or zero indicating a constrained coordinate. 2. Each element identification number must be unique with respect to all other element identification numbers. 3. This card completely defines the element since no material or geometric properties are required. 4. One or two scalar masses may be defined on a single card. 5. For a discussion of the scalar elements, see Section 5.6 of the Theoretical Manual. =PAGE= CNGRNT - Identical (Congruent) Elements Indicator Description Designates secondary element(s) identical (or congruent) to a primary element. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CNGRNT PRID SECID1 SECID2 SECID3 SECID4 SECID5 SECID6 SECID7abc Ĵ CNGRNT 11 2 17 34 35 36 Ŀ +bc SECID8 SECID9 -etc.- Ĵ Alternate Form: Ŀ CNGRNT PRID SECID1 "THRU" SECID2 Ĵ CNGRNT 7 10 THRU 55 Field Contents PRID Identification number of the primary element (not necessarily the lowest number). SECIDi Identification number(s) of secondary element(s) whose matrices will be identical (or congruent) to those of the primary element. Remarks 1. Orientation, geometry, etc. must be truly identical such that the same stiffness, mass, and damping matrices are generated in the global coordinate system. 2. This feature is automatically used by the INPUT module. 3. The CNGRNT feature cannot be used when an AXIC card is present in the Bulk Data Deck. 4. An element that has been listed as a primary ID on a CNGRNT card cannot be listed as a secondary ID on another CNGRNT card. However, if the element is listed as a secondary ID on the same card, then such secondary IDs are ignored. 5. The same secondary IDs cannot be listed as congruent to two or more different primary IDs. 6. Redundant specifications on CNGRNT cards are ignored. 7. The element IDs (primary or secondary) specified on a CNGRNT card need not all exist in a model. This greatly facilitates the use of the THRU option on the card. However, you should be cautioned that, if too many non-existent elements are specified in the CNGRNT data (as may be the case when the THRU option is used), the EMG (Element Matrix Generator) module may not have enough core to process all the CNGRNT data. In that case, an appropriate message is issued and those elements whose CNGRNT data cannot be processed will have their element matrices computed separately. 8. The stiffness, mass, and damping matrices are actually calculated for the lowest numbered element in the congruent set (even through this element may not be the primary ID). 9. See Section 1.14 for a detailed discussion of the congruent feature. =PAGE= CONCT - Substructure Connectivity Description Defines the grid point and degree of freedom connectivities between two substructures for a manual COMBINE operation. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CONCT SID C SUBA SUBB def Ĵ CONCT 307 1236 WINGRT FUSELAG DEF Ŀ +ef GA1 GB1 GA2 GB2 GA3 GB3 GA4 GB4 hij Ĵ +EF 201 207 958 214 971 216 982 HIJ Field Contents SID Identification number of connectivity set (Integer > 0). C Component number; any unique combination of the digits 1 - 6 (with no imbedded blanks) when the Gi are grid points, or null if they are scalar points. SUBA, SUBB Names of basic substructures being connected (BCD). GAi, GBi Grid or scalar point identification numbers GAi from SUBA connects to GBi from SUBB by the degrees of freedom specified in C (Integer > 0). Remarks 1. At least one continuation card must be present. 2. Components specified on a CONCT card will be overridden by RELES cards. 3. Several CONCT and CONCT1 cards may be input with the same value of SID. 4. An alternate format is given by the CONCT1 data card. 5. Connectivity sets must be selected in the Substructure Control Deck (CONNECT = SID)to be used by NASTRAN. Note that CONNECT is a subcommand of the substructure COMBINE command. 6. SUBA and SUBB must be component basic substructures of the pseudostructures being combined as specified on the substructure COMBINE command card. SUBA and SUBB must not be components of the same pseudostructure. 7. If GTRAN has been invoked under the COMBINE command, the entries on the CONCT and CONCT1 cards must be defined in terms of the revised coordinate system. In the following diagram, a substructure tree and a set of substructure command cards are shown. The CONNECT subcommand references the example CONCT card above. In this example, pseudostructure PSUB1 and PSUB2 are combined and connected only at points in their respective basic component substructures WINGRT and FUSELAG. Basic Ŀ Ŀ Ŀ Ŀ Substructures WINGRT SUBC FUSELAG SUBD Ŀ Ŀ Pseudostructures PSUB1 PSUB2 COMBINE(MANUAL) PSUB1,PSUB2 NAME = PPSUB TOLER = 0.01 CONNECT = 307 =PAGE= CONCT1 - Substructure Connectivity Description Defines the grid point and degree of freedom connectivities between two or more substructures for a manual COMBINE operation. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CONCT1 SID NAME1 NAME2 NAME3 NAME4 NAME5 NAME6 NAME7 def Ĵ CONCT1 805 WINGRT FUSELAG MIDWG POD DEF Ŀ +ef C1 G11 G12 G13 G14 G15 G16 G17 hij Ĵ +EF 123 528 17 32 106 HIJ Ŀ +ij C2 G21 G22 G23 G24 G25 G26 G27 Ĵ +IJ 46 518 etc. Field Contents SID Identification number of connectivity set (Integer > 0). NAMEi Basic substructure name (BCD). Ci Component number; any unique combination of the digits 1 - 6 (with no imbedded blanks) when the Gi are grid points, or null if they are scalar points. Gij Grid or scalar point identification number in substructure namej with components Ci (Integer > 0). Remarks 1. At least one continuation card must be present. 2. Components specified on CONCT1 card will not be overridden by RELES cards. 3. Several CONCT and CONCT1 cards may be input with the same value of SID. 4. An alternate format is given by the CONCT card. 5. Connectivity sets must be selected in the Substructure Control Deck (CONNECT = SID) to be used by NASTRAN. Note that CONNECT is a subcommand of the substructure COMBINE command. 6. The NAMEi's must be the names of basic substructure components of the pseudostructures named on the COMBINE card in the Substructure Control Deck. See the CONCT card for a more complete discussion related to the combination of two substructures. 7. This card and its continuations effectively describe a map of connectivities. Grid points entered in the corresponding field of a substructure name define the connectivity participation for that substructure. Each continuation card defines the connection relationships among the participating substructures for the components entered. 8. If GTRAN has been invoked under the COMBINE command, the entries on the CONCT and CONCT1 cards must be defined in terms of the revised coordinate system. =PAGE= CONM1 - Concentrated Mass Element Connection Description Defines a 6x6 symmetric mass matrix at a geometric grid point of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CONM1 EID G CID M11 M21 M22 M31 M32 abc Ĵ CONM1 2 22 2 2.9 6.3 +1 Ŀ +bc M33 M41 M42 M43 M44 M51 M52 M53 def Ĵ +1 4.8 28.6 +2 Ŀ +ef M54 M55 M61 M62 M63 M64 M65 M66 Ĵ +2 28.6 28.6 Field Contents EID Unique element identification number (Integer > 0). G Grid point identification number (Integer > 0). CID Coordinate system identification number for the mass matrix (Integer >= 0). Mij Mass matrix values (Real). Remarks 1. For a less general means of defining concentrated mass at grid points, see CONM2. 2. Each element identification number must be unique with respect to all other element identification numbers. =PAGE= CONM2 - Concentrated Mass Element Connection Description Defines a concentrated mass at a grid point of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CONM2 EID G CID M X1 X2 X3 abc Ĵ CONM2 2 15 6 49.7 123 Ŀ +bc I11 I21 I22 I31 I32 I33 Ĵ +23 16.2 16.2 7.8 Field Contents EID Element identification number (Integer > 0). G Grid point identification number (Integer > 0). CID Coordinate system identification number (Integer >= 0). M Mass value (Real). X1, X2, X3 Offset distances for the mass in the coordinate system defined in field 4 (Real). Iij Mass moments of inertia measured at the mass c.g. in coordinate system defined by field 4 (Real). Remarks 1. Each element identification number must be unique with respect to all other element identification numbers. 2. For a more general means of defining concentrated mass at grid points, see CONM1. 3. The continuation card may be omitted. 4. The form of the inertia matrix about its c.g. is taken as (see Section 5.5.2.2 of the Theoretical Manual): M 0 0 0 M(X3) -M(X2) M 0 -M(X3) 0 M(X1) M M(X2) -M(X1) 0 BI11 -BI21 -BI31 (SYM) BI22 -BI32 BI33 where BI11 = I11 + M(X2**2 + X3**2), BI21 = I21 + (M)(X1)(X2), and BI22, BI31, BI32, and BI33 are similarly defined. =PAGE= CONROD - Rod Element Property and Connection Description Defines a rod element of the structural model without reference to a property card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CONROD EID G1 G2 MID A J C NSM Ĵ CONROD 2 16 17 23 2.69 Field Contents EID Unique element identification number (Integer > 0). G1, G2 Grid point identification numbers of connection points (Integer > 0; G1 not equal G2). MID Material identification number (Integer > 0). A Area of rod (Real). J Torsional constant (Real). C Coefficient for torsional stress determination (Real). NSM Nonstructural mass per unit length (Real). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.For structural problems, CONROD cards may only reference MAT1 material cards. 3.For heat transfer problems, CONROD cards may only reference MAT4 or MAT5 material cards. =PAGE= CORD1C - Cylindrical Coordinate System Definition Description Defines a cylindrical coordinate system by reference to three grid points. These points must be defined in coordinate systems whose definition does not involve the coordinate system being defined. The first point is the origin, the second lies on the z-axis, and the third lies in the plane of the azimuthal origin. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CORD1C CID G1 G2 G3 CID G1 G2 G3 Ĵ CORD1C 3 16 32 19 Field Contents CID Coordinate system identification number (Integer > 0). G1, G2, G3Grid point identification numbers (Integer > 0; G1 through G3 must be unique). Remarks 1.Coordinate system identification numbers on all CORD1R, CORD1C, CORD1S, CORD2R, CORD2C, and CORD2S cards must be unique. 2.The three points G1, G2, G3 must be noncollinear. 3.The location of a grid point (P in Figure 2.4-13) in this coordinate system is given by (R, , Z) where is measured in degrees. 4.The displacement coordinate directions at P are dependent on the location of P as shown in Figure 2.4-13 by (ur, u, uz). 5.Points on the z-axis may not have their displacement directions defined in this coordinate system since an ambiguity results. 6.One or two coordinate systems may be defined on a single card. z uz u / / G2* p \ \ / \ / ur / Z G3* G1*y / \ / \R / \ / \ / \ / * Figure 2.4-13. CORD1C coordinate system =PAGE= CORD1R - Rectangular Coordinate System Definition Description Defines a rectangular coordinate system by reference to three grid points. These points must be defined in coordinate systems whose definition does not involve the coordinate system being defined. The first point is the origin, the second lies on the z-axis, and the third lies in the x-z plane. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CORD1R CID G1 G2 G3 CID G1 G2 G3 Ĵ CORD1R 3 16 32 19 Field Contents CID Coordinate system identification number (Integer > 0). G1, G2, G3Grid point identification numbers (Integer > 0; G1 through G3 must be unique). Remarks 1.Coordinate system identification numbers on all CORD1R, CORD1C, CORD1S, CORD2R, CORD2C, and CORD2S cards must be unique. 2.The three points G1, G2, G3 must be noncollinear. 3.The location of a grid point (P in Figure 2.4-14) in this coordinate system is given by (X, Y, Z). 4.The displacement coordinate directions at P are shown in Figure 2.4-14 by (ux, uy, uz). 5.One or two coordinate systems may be defined on a single card. z uz P G2* * uy / / / / / Z / ux G3* G1** y / / / / / / X / / /* / Y x Figure 2.4-14. CORD1R coordinate system =PAGE= CORD1S - Spherical Coordinate System Definition Description Defines a spherical coordinate system by reference to three grid points. These points must be defined in coordinate systems whose definition does not involve the coordinate system being defined. The first point is the origin, the second lies on the z-axis, and the third lies in the plane of the azimuthal origin. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CORD1S CID G1 G2 G3 CID G1 G2 G3 Ĵ CORD1S 3 16 32 19 Field Contents CID Coordinate system identification number (Integer > 0). G1, G2, G3Grid point identification numbers (Integer > 0; G1 through G3 must be unique). Remarks 1.Coordinate system identification numbers on all CORD1R, CORD1C, CORD1S, CORD2R, CORD2C, and CORD2S cards must be unique. 2.The three points G1, G2, G3 must be noncollinear. 3.The location of a grid point (P in Figure 2.4-15) in this coordinate system is given by (R, , ) where and are measured in degrees. 4.The displacement coordinate directions at P are dependent on the location of P as shown in Figure 2.4-15 by (ur, u, u). 5.Points on the polar axis may not have their displacement directions defined in this coordinate system since an ambiguity results. 6.One or two coordinate systems may be defined on a single card. z ur .u / . / . P* G2* / \ / / \ / / u / /R G3* / G1*y / \ / \ / \ / \ / \ / x Figure 2.4-15. CORD1S coordinate system =PAGE= CORD2C - Cylindrical Coordinate System Definition Description Defines a cylindrical coordinate system by reference to the coordinates of three points. The first point defines the origin. The second point defines the direction of the z-axis. The third lies in the plane of the azimuthal origin. The reference coordinate must be independently defined. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CORD2C CID RID A1 A2 A3 B1 B2 B3 ABC Ĵ CORD2C 3 17 -2.9 1.0 0.0 3.6 0.0 1.0 123 Ŀ +BC C1 C2 C3 Ĵ +23 5.2 1.0 -2.9 Field Contents CID Coordinate system identification number (Integer > 0). RID Reference to a coordinate system which is defined independently of new coordinate system (Integer >= 0 or blank). A1,A2,A3; B1,B2,B3; C1,C2,C3 Coordinates of three points in coordinate system defined in field 3 (Real). Remarks 1.Continuation card must be present. 2.The three points (A1, A2, A3), (B1, B2, B3), (C1, C2, C3) must be unique and non-collinear. Noncollinearity is checked by the geometry processor. 3.Coordinate system identification numbers on all CORD1R, CORD1C, CORD1S, CORD2R, CORD2C, and CORD2S cards must be unique. 4.An RID of zero references the basic coordinate system. 5.The location of a grid point (P in Figure 2.4-16) in this coordinate system is given by (R, , Z) where is measured in degrees. 6.The displacement coordinate directions at P are dependent on the location of P as shown in Figure 2.4-16 by (ur, u, uz). 7.Points on the z-axis may not have their displacement direction defined in this coordinate system, since an ambiguity results. z uz u / / B* p \ \ / \ / ur / Z C* A*y / \ / \R / \ / \ / \ / x Figure 2.4-16. CORD2C coordinate system =PAGE= CORD2R - Rectangular Coordinate System Definition Description Defines a rectangular coordinate system by reference to the coordinates of three points. The first point defines the origin. The second point defines the direction of the z-axis. The third point defines a vector which, with the z-axis, defines the x-z plane. The reference coordinate must be independently defined. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CORD2R CID RID A1 A2 A3 B1 B2 B3 ABC Ĵ CORD2R 3 17 -2.9 1.0 0.0 3.6 0.0 1.0 123 Ŀ +BC C1 C2 C3 Ĵ +23 5.2 1.0 -2.9 Field Contents CID Coordinate system identification number (Integer > 0). RID Reference to a coordinate system which is defined independently of new coordinate system (Integer >= 0 or blank). A1,A2,A3; B1,B2,B3; C1,C2,C3 Coordinates of three points in coordinate system defined in field 3 (Real). Remarks 1.Continuation card must be present. 2.The three points (A1, A2, A3), (B1, B2, B3), (C1, C2, C3) must be unique and non-collinear. Noncollinearity is checked by the geometry processor. 3.Coordinate system identification numbers on all CORD1R, CORD1C, CORD1S, CORD2R, CORD2C, and CORD2S cards must be unique. 4.An RID of zero references the basic coordinate system. 5.The location of a grid point (P in Figure 2.4-17) in this coordinate system is given by (X, Y, Z). 6.The displacement coordinate directions at P are shown by (ux, uy, uz). z uz P B * * uy / / / / / Z / ux C * A ** y / / / / / / X / / /* / Y x Figure 2.4-17. CORD2R coordinate system =PAGE= CORD2S - Spherical Coordinate System Definition Description Defines a spherical coordinate system by reference to the coordinates of three points. The first point defines the origin. The second point defines the direction of the z-axis. The third lies in the plane of the azimuthal origin. The reference coordinate must be independently defined. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CORD2S CID RID A1 A2 A3 B1 B2 B3 ABC Ĵ CORD2S 3 17 -2.9 1.0 0.0 3.6 0.0 1.0 123 Ŀ +BC C1 C2 C3 Ĵ +23 5.2 1.0 -2.9 Field Contents CID Coordinate system identification number (Integer > 0). RID Reference to a coordinate system which is defined independently of new coordinate system (Integer >= 0 or blank). A1,A2,A3; B1,B2,B3; C1,C2,C3 Coordinates of three points in coordinate system defined in field 3 (Real). Remarks 1.Continuation card must be present. 2.The three points (A1, A2, A3), (B1, B2, B3), (C1, C2, C3) must be unique and non-collinear. Noncollinearity is checked by the geometry processor. 3.Coordinate system identification numbers on all CORD1R, CORD1C, CORD1S, CORD2R, CORD2C, and CORD2S cards must be unique. 4.An RID of zero references the basic coordinate system. 5.The location of a grid point (P in Figure 2.4-18) in this coordinate system is given by (R, , ) where and are measured in degrees. 6.The displacement coordinate directions at P are shown in Figure 2.4-18 by (ur, u, u). 7.Points on the polar axis may not have their displacement directions defined in this coordinate system since an ambiguity results. z ur .u / . / . P* B * / \ / / \ / / u / /R C * / A*y / \ / \ / \ / \ / \ / x Figure 2.4-18. CORD2S coordinate system =PAGE= CPSEi - Pressure Stiffness Element Connection Description Defines a pressure stiffness element CPSEi (i = 2, 3, 4). Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CPSEi EID PID G1 G2 G3 G4 Ĵ CPSE3 34 1 11 10 12 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PPSE property card (Integer > 0). G1...GN Grid point identification numbers of connection points (N = 2 for CPSE2, N = 3 for CPSE3, and N = 4 for CPSE4). Remarks 1.Element identification numbers must be unique with respect to all other element identification numbers. 2.These are differential stiffness elements. No structural stiffness and no structural mass are generated by these elements. 3.The formulation of these pressure stiffness elements assumes that only the basic coordinate system is used to describe the displacement parameters. Therefore the grid points, G1...GN, must be in the basic rectangular system. (This limitation will be removed later.) 4.All three CPSEi cards share one property card, PPSE. 5.Constant pressure is applied over an enclosed volume encompassed by the CPSEi elements. That is, there is no pressure gradient in the enclosed space. 6.Pressure acts normally to the CPSEi surfaces. 7.Reference: E. Christensen, "Advanced Solid Rocket Motor (ASRM) Math Models - Pressure Stiffness Effects Analysis", Aug. 1991, NASA TD612-001-02. =PAGE= CQDMEM - Quadrilateral Element Connection Description Defines a quadrilateral membrane element (QDMEM) of the structural model consisting of four overlapping TRMEM elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CQDMEM EID PID G1 G2 G3 G4 TH Ĵ CQDMEM 72 13 13 14 15 16 29.2 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PQDMEM property card (default is EID) (Integer > 0). G1,...,G4 Grid point identification numbers of connection points (Integer > 0; G1 through G4 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-19 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Grid points G1 through G4 must be ordered consecutively around the perimeter of the element. 3.All interior angles must be less than 180 degrees. ye G4 ** G3 . . . . TH G1 **xe G2 Figure 2.4-19. CQDMEM sign convention for TH =PAGE= CQDMEM1 - Isoparametric Quadrilateral Element Connection Description Defines an isoparametric quadrilateral membrane element (QDMEM1) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CQDMEM1 EID PID G1 G2 G3 G4 TH Ĵ CQDMEM1 72 13 13 14 15 16 29.2 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PQDMEM1 property card (default is EID) (Integer > 0). G1,...,G4 Grid point identification numbers of connection points (Integer > 0); G1 through G4 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-20 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Grid points G1 through G4 must be ordered consecutively around the perimeter of the element. 3.All interior angles must be less than 180 degrees. 4.In a HEAT formulation, element type CQDMEM1 is automatically replaced by element type CQDMEM. ye G4 ** G3 . . . . TH G1 **xe G2 Figure 2.4-20. CQDMEM1 sign convention for TH =PAGE= CQDMEM2 - Quadrilateral Element Connection Description Defines a quadrilateral membrane element (QDMEM2) of the structural model consisting of four non-overlapping TRMEM elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CQDMEM2 EID PID G1 G2 G3 G4 TH Ĵ CQDMEM2 72 13 13 14 15 16 29.2 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PQDMEM2 property card (default is EID) (Integer > 0). G1,...,G4 Grid point identification numbers of connection points (Integer > 0; G1 through G4 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-21 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Grid points G1 through G4 must be ordered consecutively around the perimeter of the element. 3.All interior angles must be less than 180 degrees. 4.In a HEAT formulation, element type CQDMEM2 is automatically replaced by element type CQDMEM. ye G4 ** G3 . . . . TH G1 **xe G2 Figure 2.4-21. CQDMEM2 sign convention for TH =PAGE= CQDPLT - Quadrilateral Element Connection Description Defines a quadrilateral bending element (QDPLT) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CQDPLT EID PID G1 G2 G3 G4 TH Ĵ CQDPLT 72 13 13 14 15 16 29.2 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PQDPLT property card (default is EID) (Integer > 0). G1,...,G4 Grid point identification numbers of connection points (Integer > 0; G1 through G4 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-22 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Grid points G1 through G4 must be ordered consecutively around the perimeter of the element. 3.All interior angles must be less than 180 degrees. 4.No structural mass is generated by this element. ye G4 ** G3 . . . . TH G1 **xe G2 Figure 2.4-22. CQDPLT sign convention for TH =PAGE= CQUAD1 - Quadrilateral Element Connection Description Defines a quadrilateral membrane and bending element (QUAD1) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CQUAD1 EID PID G1 G2 G3 G4 TH Ĵ CQUAD1 72 13 13 14 15 16 29.2 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PQUAD1 property card (default is EID) (Integer > 0). G1,...,G4 Grid point identification numbers of connection points (Integer > 0; G1 through G4 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-23 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Grid points G1 through G4 must be ordered consecutively around the perimeter of the element. 3.All interior angles must be less than 180 degrees. ye G4 ** G3 . . . . TH G1 **xe G2 Figure 2.4-23. CQUAD1 sign convention for TH =PAGE= CQUAD2 - Quadrilateral Element Connection Description Defines a homogeneous quadrilateral membrane and bending element (QUAD2) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CQUAD2 EID PID G1 G2 G3 G4 TH Ĵ CQUAD2 72 13 13 14 15 16 29.2 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PQUAD2 property card (default is EID) (Integer > 0). G1,...,G4 Grid point identification numbers of connection points (Integer > 0; G1 through G4 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-24 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Grid points G1 through G4 must be ordered consecutively around the perimeter of the element. 3.All interior angles must be less than 180 degrees. ye G4 ** G3 . . . . TH G1 **xe G2 Figure 2.4-24. CQUAD2 sign convention for TH =PAGE= CQUAD4 - Quadrilateral Element Connection Description Defines a quadrilateral plate element (QUAD4) of the structural model. This is an isoparametric membrane-bending element, with variable element thickness, layered composite material, and thermal analysis capabilities. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CQUAD4 EID PID G1 G2 G3 G4 TM ZO abc Ĵ CQUAD4 101 17 1001 1005 1010 1024 45.0 0.01 ABC Ŀ +bc T1 T2 T3 T4 Ĵ +BC 0.03 0.125 0.05 0.04 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PSHELL entry (default is EID) (Integer > 0). For composites, see Remark 5. Gi Grid point identification numbers of connection points (Integer > 0). ZO Offset of the elementary reference plane (element mid-plane) from the plane of grid points (Real or blank; see Remark 3 for default; see Guidelines.) TM Material property orientation specification (Real or blank, or 0 <= Integer < 1,000,000). If Real or blank, specifies the material property orientation angle in degrees. If Integer, the orientation of the material x-axis is along the projection onto the plane of the element of the x-axis of the coordinate system specified by the integer value. (See Guidelines.) Ti Membrane thickness of element at grid points Gi (Real or blank; see Remark 4 for default). Remarks 1. The QUAD4 geometry, coordinate systems, and numbering are shown in Figure 2.4-25. ye G4 ** G3 . . . . TH G1 **xe G2 Figure 2.4-25. CQUAD4 geometry 2. Each element identification number must be unique with respect to all other element identification numbers. 3. The material coordinate system (TM) and the offset (ZO) may also be provided on the PSHELL entry. The PSHELL data will be used if the corresponding field on the CQUAD4 entry is blank. 4. The Ti fields are optional; if not supplied they will be set to the value of T specified on the PSHELL entry. In such cases, the continuation entry is not required. 5. For composites, a PCOMP, PCOMP1, PCOMP2 card can be used instead of a PSHELL card. Guidelines for the Use of CQUAD4 (Excerpt from "QUAD4 SEMINAR", WPAFB, WRDC-TR-89-3046, revised April 1993) QUAD4 is one of the most extensively used elements in NASTRAN. It is a very versatile element and can be used to model a variety of plate element applications such as: a. Membrane (inplane loading) behavior b. Bending (out of plane loading) behavior c. Membrane-bending (uncoupled) d. Membrane-bending (coupled-linear) e. Laminated plates f. Layered composites g. Sandwich plates with metal face sheets h. Sandwich plates with layered composite face sheets i. Isotropic materials j. Anisotropic (including orthotropic) materials Application of QUAD4 is often confusing because of the many options available for its use. There are five cards which describe the input parameters for QUAD4. They describe its geometry and properties along with some auxiliary information. Geometry and Property Cards CQUAD4 Connection card PSHELL Property card for homogeneous and sandwich plates PCOMP, PCOMP1, PCOMP2 Property cards for laminated or layered plates Material Cards MAT1 Isotropic materials MAT2 Anisotropic materials MAT8 Orthotropic materials PLOAD4 Pressure load definition on QUAD4 element For a given element either the PSHELL or PCOMP card is applicable but not both. PSHELL cards are for homogeneous (nonlaminated) and sandwich plates with nonlayered face sheets. PCOMP cards are for laminated (layered) plates. In the case of sandwich plates with layered face sheets the honeycomb (sandwich) core will be treated as a laminate or layer. A supplementary explanation of the parameters on each of these cards should aid in understanding the modeling nuances of the element. The definitions of the parameters in fields 2 to 7 are self explanatory and need no further clarification. Similarly no additional explanation is necessary for the thickness parameters specified in fields 4 to 7 on the continuation card. However, the parameters TM and ZO need a supplementary explanation or caution. Parameter TM Parameter TM defines the material property orientation. There are two options for this definition. Option 1 Define the angle between the side of the element (connecting G1 and G2) and the material axis. This is the least desirable option. It is prone to errors, because every time the sequence of the element connection changes, the angle must be changed. Also in a complex three dimensional model it is not easy to determine this angle without writing a preprocessor. Option 2 The integer option is preferable. An integer in field 8 refers to a separate coordinate system for defining the orientation of the material axis of the element. The material property definition is now independent of the connection sequence. The new coordinate system can be defined with a coordinate card. Offset Parameter ZO The offset parameter provision in the QUAD4 element constitutes a significant enhancement for plate elements. Before, the QUAD4 grid points of the structure could only be defined on the mid-surface of the plate elements. Bar (beam or bend) was the only other element with an offset capability. However, some of the mass elements have the offset capability. The offset, ZO, is shown for various cases in the diagrams at the end of this section. Note the distinction between the grid point surfaces and mid-surface of the element. =PAGE= SIDE VIEW (PSHELL): TOP BOTTOM Ŀ Ŀ CASE 1 - - - - - - - - - - - - - - - - - - - -ZO +ZO BOTTOM TOP GRID PT SURFACE TOP BOTTOM Ŀ Ŀ CASE 2 (DEFAULT) ZO = 0 G.P. SURFACE ZO = 0 BOTTOM TOP GRID PT SURFACE CASE 3 +ZO TOP BOTTOM -ZO Ŀ Ŀ - - - - - - - - - - - - - - - - - - - - BOTTOM TOP =PAGE= CRBAR - Rigid Bar Description Defines a rigid bar with six degrees of freedom at each end. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CRBAR EID G1 G2 IC1 IC2 DC1 DC2 Ĵ CRBAR 5 1 2 234 123 Field Contents EID Element identification number (Integer > 0). Gi Identification numbers of connection grid points (Integers > 0). ICi Independent degrees of freedom in the global coordinate system for the element at grid points Gi (any of the digits 1 - 6 with no imbedded blanks. Integers > 0 or blank.) See Remark 2. DCi Dependent degrees of freedom in the global coordinate system assigned by the element at grid points Gi (any of the digits 1 - 6 with no imbedded blanks. Integers > 0 or blank.) See Remarks 3 and 4. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.The total number of degrees of freedom specified (IC1 and IC2) must equal six; for example, IC1 = 1236, IC2 = 34. Further, they should together be capable of representing any general rigid body motion of the element. 3.If both DC1 and DC2 are zero or blank, all of the degrees of freedom not in IC1 and IC2 will be made dependent. 4.The dependent (that is, constrained) degrees of freedom in a CRBAR element may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they be redundantly implied on ASET or ASET1 cards. They may not appear as dependent degrees of freedom in other rigid elements or on MPC cards. Degrees of freedom declared to be independent by a rigid element can be made dependent by another rigid element or by an MPC card. 5.Rigid elements, unlike MPCs, are not selected through the Case Control Deck. 6.Forces of constraint are not recovered. 7.Rigid elements are ignored in heat transfer problems. 8.NASTRAN actually converts the CRBAR input card into the CRIGD3 card format, and thus processes a CRBAR card as if it were a CRIGD3 card. The following table shows the method of conversion, in free-field format: CRBAR Card ===> Equivalent CRIGD3 Card __________________________________________________________________ CRBAR, EID, G1, G2, IC1, IC2, DC1, DC2 ===> CRIGD3, EID, G1, IC1, G2, IC2 ,'MSET', G1, DC1, G2, DC2 9.See Section 1.4.2.2 for a discussion of rigid elements. =PAGE= CRBE1 - Rigid Body Element, Form 1 Description Defines a rigid body connected to an arbitrary number of grid points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CRBE1 EID IG1 IC1 IG2 IC2 IG3 IC3 abc Ĵ CRBE1 103 11 1 12 2 13 4 ABC Ŀ +bc IG4 IC4 IG5 IC5 IG6 IC6 def Ĵ +BC 14 35 15 6 CDF Ŀ +ef "UM" DG1 DC1 DG2 DC2 DG3 DC3 ghi Ĵ +DF UM 21 123 22 1 23 123456 EFI Ŀ +hi DG4 DC4 DG5 DC5 -etc.- Ĵ +FI 24 456 25 2 Field Contents EID Element identification number (Integer > 0). IGi Identification numbers of the reference independent grid points (Integers > 0). ICi Independent degrees of freedom in the global coordinate system for the preceding reference grid point (any of the digits 1 - 6 with no imbedded blanks. Integer > 0.) See Remarks 2, 3, and 5. "UM" BCD word that indicates the start of the data for dependent grid points. DGi Identification numbers of the dependent grid points (Integer > 0). DCi Dependent degrees of freedom in the global coordinate system for the preceding dependent grid point (any of the digits 1 - 6 with no imbedded blanks. Integer > 0.) See Remarks 4 and 5. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.The total number of degrees of freedom specified for the reference grid points (IC1 through IC6) must be six; for example, IC1=1, IC2=2, IC3=4, IC4=35, IC5=6. Further, they should together be capable of representing any general rigid body motion of the element. 3.The first continuation card is not required if less than four reference independent grid points are specified. 4.The dependent (that is, constrained) degrees of freedom in a CRBE1 element may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they be redundantly implied on ASET or ASET1 cards. They may not appear as dependent degrees of freedom in other rigid elements or on MPC cards. Degrees of freedom declared to be independent by a rigid element can be made dependent by another rigid element or by a MPC card. 5.A degree of freedom cannot be both independent and dependent for the same element. However, both independent and dependent components can exist at the same grid point. 6.Rigid elements, unlike MPCs, are not selected through the Case Control Deck. 7.Forces of constraint are not recovered. 8.Rigid elements are ignored in heat transfer problems. 9.NASTRAN actually converts the CRBE1 input card into the CRIGD3 card format by switching the "UM" BCD word to "MSET", and thus processes a CRBE1 card as if it were a CRIGD3 card. CRBE1 Card ===> Equivalent CRIGD3 Card CRBE1, EID, IG1, IC1, IG2, IC2, IG3, IC3 ,'UM', DG1, DC1, DG2, DC2, etc. ===> CRIGD3, EID, IG1, IC1, IG2, IC2, IG3, IC3 ,'MSET', DG1, DC1, DG2, DC2, etc. 10. See Section 1.4.2.2 for a discussion of rigid elements. =PAGE= CRBE2 - Rigid Body Element, Form 2 Description Defines a rigid body whose independent degrees of freedom are specified at a single grid point and whose dependent degrees of freedom are specified at an arbitrary number of grid points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CRBE2 EID IG C G1 G2 G3 G4 G5 abc Ĵ CRBE2 9 8 12 10 12 14 15 16 ABC Ŀ +bc G6 G7 G8 -etc.- Ĵ +BC 20 Field Contents EID Element identification number (Integer > 0). IG Identification number of the reference grid point, to which all six independent degrees of freedom for the element are assigned (Integer > 0). C The dependent degrees of freedom in the global coordinate system for all the dependent grid points Gi (any of the digits 1 - 6 with no imbedded blanks. Integer > 0.) See Remark 2. Gi Identification numbers of the dependent grid points (Integers > 0). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.The dependent (that is, constrained) degrees of freedom in a CRBE2 element may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they be redundantly implied on ASET or ASET1 cards. They may not appear as dependent degrees of freedom in other rigid elements or on MPC cards. Degrees of freedom declared to be independent by a rigid element can be made dependent by another rigid element or by an MPC card. 3.Rigid elements, unlike MPCs, are not selected through the Case Control Deck. 4.Forces of constraint are not recovered. 5.Rigid elements are ignored in heat transfer problems. 6.NASTRAN actually converts the CRBE2 input card into the CRIGD2 card format, and thus processes a CRBE2 card as if it were a CRIGD2 card. The following table shows the method of conversion, in free-field format: CRBE2 Card ===> Equivalent CRIGD2 Card CRBE2, EID, IG, C, G1, G2, G3, etc. ===> CRIGD2, EID, IG, G1, C, G2, C, G3, C, etc. 7.See Section 1.4.2.2 for a discussion of rigid elements. =PAGE= CRBE3 - Rigid Body Element, Form 3 Description Defines the motion at a reference grid point as the weighted average of the motions at a set of other grid points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CRBE3 EID IG IC W1 C1 G1,1 G1,2 abc Ĵ CRBE3 14 100 1234 1.0 123 1 3 ABC Ŀ +bc G1,3 W2 C2 G2,1 G2,2 G2,3 W3 C3 def Ĵ +BC 5 4.7 1 2 4 6 5.2 2 DEF Ŀ +ef G3,1 G3,2 G3,3 W4 C4 G4,1 G4,2 G4,3 ghi Ĵ +EF 7 8 5.1 1 15 16 GHI Ŀ +hi "UM" DG1 DC1 DG2 DC2 DG3 DC3 jkl Ĵ +HI UM 100 14 5 3 7 2 JKL Ŀ +kl DG4 DC4 DG5 DC5 DG6 DC6 Ĵ +KL Field Contents EID Element identification number (Integer > 0). IG Reference grid point (Integer > 0). IC Global components of motion whose values will be computed at the reference grid point (any of the digits 1 - 6 with no imbedded blanks. Integer > 0). Wi Weighting factor for components of motion on the following card at grid points Gi,j (Real). Ci Global components of motion which have weighting factor Wi at grid points Gi,j (any of the digits 1 - 6 with no imbedded blanks. Integers > 0). Gi,j Grid points whose components Ci have weighting factor Wi in the averaging equations (Integers > 0). "UM" BCD word that indicates the start of the data for the components of motion at grid points DGi (optional). The default is that all of the components in IC at the reference grid point IG, and no others, are included in the dependent component set {um}. DGi Grid points with components DCi in {um} (Integers > 0). DCi Components of motion at grid point DGi (any of the digits 1 - 6 with no imbedded blanks, Integers > 0). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Blank spaces may be left at the end of a Gi,j sequence. 3.The default for UM should be used except in cases where you want to include some or all IC components in displacement sets exclusive from the {um} set. If the default is not used for UM: a. The total number of components in {um} (that is, the total number of dependent degrees of freedom defined by the element) must be equal to the number of components in IC (four in the above example). b. The components in UM must be a subset of the components mentioned in IC and (Gi,j; Ci). c. The coefficient matrix [Rm] in the constraints equation [Rm]{um} + [Rn]{un} = 0 must be nonsingular. 4.The dependent (that is, constrained) degrees of freedom in a CRBE3 element may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they be redundantly implied on ASET or ASET1 cards. They may not appear as dependent degrees of freedom in other rigid elements or on MPC cards. Degrees of freedom declared to be independent by a rigid element can be made dependent by another rigid element or by an MPC card. 5.Rigid elements, unlike MPCs, are not selected through the Case Control Deck. 6.Forces of constraint are not recovered. 7.Rigid elements are ignored in heat transfer problems. 8.Unlike the other rigid elements, the CRBE3 element and the CRSPLINE element cannot be converted into CRIGD2 or CRIGD3 elements. A FORTRAN subroutine (in single precision version and in double precision version) was written to handle these two special rigid elements. =PAGE= CRIGD1 - Rigid Element Connection Description Defines a rigid element in which all six degrees of freedom of each of the dependent grid points are coupled to all six degrees of freedom of the reference grid point. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CRIGD1 EID IG G1 G2 G3 G4 G5 G6 abc Ĵ CRIGD1 101 15 18 43 9 26 35 41 123 Ŀ +bc G7 G8 G9 -etc.- Ĵ +23 8 63 Alternate Form: Ŀ CRIGD1 EID IG GID1 "THRU" GID2 Ĵ CRIGD1 201 25 71 THRU 80 Field Contents EID Element identification number (Integer > 0). IG Identification number of the reference grid point (Integer > 0). Gi, GIDi Identification numbers of the dependent grid points (Integer > 0). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Only one reference grid point is allowed per element. It must appear before any of the dependent grid points. 3.Any number of dependent grid points may be specified. 4.When the alternate form is used, no continuation card is permitted and all grid points implied by GID1 through GID2 (GID1 < GID2) must exist. 5.Dependent degrees of freedom defined (implicitly) in a RIGD1 element may not appear on OMIT, OMIT1, SPC, SPC1, or SUPORT cards, nor may they be redundantly implied on ASET or ASET1 cards. They also may not appear as dependent degrees of freedom in RIGD2, RIGD3, or RIGDR elements or on MPC cards. 6.Rigid elements are not allowed in heat transfer analysis. 7.For a discussion of rigid elements, see Section 3.5.6 of the Theoretical Manual. =PAGE= CRIGD2 - Rigid Element Connection Description Defines a rigid element in which selected degrees of freedom of the dependent grid points are coupled to all six degrees of freedom of the reference grid point. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CRIGD2 EID IG G1 C1 G2 C2 G3 C3 abc Ĵ CRIGD2 102 20 9 12 45 123 53 135 123 Ŀ +bc G4 C4 -etc.- Ĵ +23 27 456 Field Contents EID Element identification number (Integer > 0). IG Identification number of the reference grid point (Integer > 0). Gi Identification numbers of the dependent grid points (Integer > 0). Ci List of selected degrees of freedom associated with the preceding dependent grid point (any of the digits 1 - 6 with no imbedded blanks). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Only one reference grid point is allowed per element. It must appear before the dependent grid point data. 3.Any number of dependent grid points may be specified. 4.Dependent degrees of freedom defined in a RIGD2 element may not appear on OMIT, OMIT1, SPC, SPC1, or SUPORT cards, nor may they be redundantly implied on ASET or ASET1 cards. They also may not appear as dependent degrees of freedom in RIGD1, RIGD3 or RIGDR elements, or on MPC cards. 5.Rigid elements are not allowed in heat transfer analysis. 6.For a discussion of rigid elements, see Section 3.5.6 of the Theoretical Manual. =PAGE= CRIGD3 - General Rigid Element Connection Description Defines a rigid element in which selected degrees of freedom of the dependent grid points are coupled to six selected degrees of freedom at one or more (up to six) reference grid points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CRIGD3 EID IG1 IC1 IG2 IC2 IG3 IC3 abc Ĵ CRIGD3 103 11 1 12 2 13 4 ABC Ŀ +bc IG4 IC4 IG5 IC5 IG6 IC6 def Ĵ +BC 14 35 15 6 DEF Ŀ +ef "MSET" DG1 DC1 DG2 DC2 DG3 DC3 ghi Ĵ +EF MSET 21 123 22 1 23 123456 GHI Ŀ +hi DG4 DC4 DG5 DC5 -etc.- Ĵ +HI 24 456 25 2 Field Contents EID Element identification number (Integer > 0). IGi Identification numbers of the reference grid points (Integer > 0). ICi List of selected degrees of freedom associated with the preceding reference grid point (any of the digits 1 - 6 with no imbedded blanks). "MSET" BCD string that indicates the start of the data for the dependent grid points. DGi Identification numbers of the dependent grid points (Integer > 0). DCi List of selected degrees of freedom associated with the preceding dependent grid point (any of the digits 1 - 6 with no imbedded blanks). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.The total number of degrees of freedom specified for the reference grid points (IC1 through IC6) must be six. Further, they should together be capable of representing any general rigid body motion of the element. 3.The first continuation card is not required if less than four reference gridpoints are specified. 4.The BCD word MSET is required in order to indicate the start of the dependent grid point data. 5.Any number of dependent grid points may be specified. 6.Dependent degrees of freedom defined in a RIGD3 element may not appear on OMIT, OMIT1, SPC, SPC1, or SUPORT cards, nor may they be redundantly implied on ASET or ASET1 cards. They also may not appear as dependent degrees of freedom in RIGD1, RIGD2, or RIGDR elements, or on MPC cards. 7.Rigid elements are not allowed in heat transfer analysis. 8.For a discussion of rigid elements, see Section 3.5.6 of the Theoretical Manual. =PAGE= CRIGDR - Rigid Rod Element Connection Description Defines a pin-ended rod element that is rigid in extension-compression. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CRIGDR EID G G1 C1 EID G G1 C1 Ĵ CRIGDR 104 5 9 3 302 12 4 2 Field Contents EID Element identification number (Integer > 0). G Identification number of the reference grid point (Integer > 0). G1 Identification number of the dependent grid point (Integer > 0; G1 not equal G). C1 Dependent translational degree of freedom of grid point G1 (1 <= Integer <= 3). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Only one reference grid point and only one dependent grid point are allowed per element. The two points may not be coincident. 3.The direction represented by the dependent translational degree of freedom of the dependent grid point may not be perpendicular or nearly perpendicular to the element. 4.One or two RIGDR elements may be defined on a single card. 5.Dependent degrees of freedom defined in a RIGDR element may not appear on OMIT, OMIT1, SPC, SPC1, or SUPORT cards, nor may they be redundantly implied on ASET or ASET1 cards. They also may not appear as dependent degrees of freedom in RIGD1, RIGD2, or RIGD3 elements, or on MPC cards. 6.Rigid elements are not allowed in heat transfer analysis. 7.For a discussion of rigid elements, see Section 3.5.6 of the Theoretical Manual. =PAGE= CROD - Rod Element Connection Description Defines a tension-compression-torsion element (ROD) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CROD EID PID G1 G2 EID PID G1 G2 Ĵ CROD 12 13 21 23 3 12 24 5 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PROD property card (default is EID) (Integer > 0). G1, G2 Grid point identification numbers of connection points (Integer > 0; G1 not equal G2). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.See CONROD for alternative method of rod definition. 3.One or two ROD elements may be defined on a single card. =PAGE= CRROD - Rigid Pin-Ended Rod Description Defines a pin-ended rod that is rigid in extension. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CRROD EID G1 G2 C1 C2 Ĵ CRROD 14 1 2 2 Field Contents EID Element identification number (Integer > 0). Gi Identification numbers of connection grid points (Integers > 0). Ci Component number of one and only one dependent translational degree of freedom in the global coordinate system assigned to either G1 or G2. (Integer equals 1, 2, or 3.) Either C1 or C2 must contain an integer and the other must be blank. See Remarks 2 and 3. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.The grid point that associates with a blank Ci field is designated as the reference independent grid point. 3.The dependent (that is, constrained) degrees of freedom in a CRROD element may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they be redundantly implied on ASET or ASET1 cards. They may not appear as dependent degrees of freedom in other rigid elements or on MPC cards. Degrees of freedom declared to be independent by a rigid element can be made dependent by another rigid element or by an MPC card. 4.Rigid elements, unlike MPCs, are not selected through the Case Control Deck. 5.Forces of constraint are not recovered. 6.Rigid elements are ignored in heat transfer problems. 7.The degree of freedom selected to be dependent must have a nonzero component along the axis of the rod. 8.NASTRAN actually converts the CRROD input card into the CRIGDR card format, and thus processes a CRROD card as if it were a CRIGDR card. The following table shows the conversion, in free-field format, of two possible cases: Case CRROD Card ===> Equivalent CRIGDR Card 1 CRROD, EID, G1, G2, C1, ===> CRIGDR, EID, G2, G1, C1 2 CRROD, EID, G1, G2, , C2 ===> CRIGDR, EID, G1, G2, C2 9.See Section 1.4.2.2 for a discussion of rigid elements. =PAGE= CRSPLINE - Interpolation Constraint Element Description Defines multipoint constraints for the interpolation of displacements at grid points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CRSPLINE EID D/L G1 G2 C2 G3 C3 G4 abc Ĵ CRSPLINE 73 .05 27 28 123456 29 30 ABC Ŀ +bc C4 G5 C5 G6 -etc.- Ĵ +BC 123 75 123 71 Field Contents EID Element identification number (Integer > 0). D/L Ratio of the diameter of the elastic tube which the spline represents to the sum of the lengths of all segments. Default = 0.1 (Real > 0.). Gi Identification number of the ith grid point (Integer > 0). Ci Components to be constrained at the ith grid point (any of the digits 1 - 6 with no imbedded blanks, or blank). See Remark 3. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Displacements are interpolated from the equations of an elastic beam passing through the grid points. 3.A blank entry in Ci indicates that all six degrees of freedom at Gi are independent. Since G1 must be independent, no field is provided for C1. Since the last grid point must also be independent, the last entry must be a Gi, not a Ci. For the example shown, G1, G3, and G6 are independent; G2 has six constrained degrees of freedom while G4 and G5 each have three. 4.The dependent (that is, constrained) degrees of freedom in a CRSPLINE element may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they be redundantly implied on ASET or ASET1 cards. They may not appear as dependent degrees of freedom in other rigid elements or on MPC cards. Degrees of freedom declared to be independent by a rigid element can be made dependent by another rigid element or by an MPC card. 5.Rigid elements, unlike MPCs, are not selected through the Case Control Deck. 6.Forces of constraint are not recovered. 7.Rigid elements are ignored in heat transfer problems. 8.This CRSPLINE is not really a rigid element in the normal sense, and should not be used for other than its intended purpose. 9.Unlike the other rigid elements, this CRSPLINE element and the CRBE3 element cannot be converted into CRIGD2 or CRIGD3 elements. A FORTRAN subroutine (in single precision version and in double precision version) was written to handle these two special rigid elements. =PAGE= CRTRPLT - Rigid Triangular Plate Description Defines a rigid triangular plate. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CRTRPLT EID G1 G2 G3 IC1 IC2 IC3 abc Ĵ CRTRPLT 7 1 2 3 1236 3 3 ABC Ŀ +bc DC1 DC2 DC3 Ĵ +BC Field Contents EID Element identification number (Integer > 0). Gi Identification numbers of the triangular plate grid points. (Integers > 0). ICi Independent degrees of freedom in the global coordinate system for the element at grid points Gi (any of the digits 1 - 6 with no imbedded blanks. Integers > 0 or blank.) See Remark 2. DCi Dependent degrees of freedom in the global coordinate system (any of the digits 1 - 6 with no imbedded blanks. Integers > 0 or blank.) See Remarks 3 and 4. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.The total number of degrees of freedom specified for the reference grid points (IC1, IC2, and IC3) must be six; for example, IC1 = 1236, IC2 = 3, IC3 = 3. Further, they should together be capable of representing any general rigid body motion of the element. 3.If DC1, DC2, and DC3 are all zero or blank or if the continuation card is omitted, all of the degrees of freedom not in IC1, IC2, and IC3 will be made dependent. 4.The dependent (that is, constrained) degrees of freedom in a CRTRPLT element may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they be redundantly implied on ASET or ASET1 cards. They may not appear as dependent degrees of freedom in other rigid elements or on MPC cards. Degrees of freedom declared to be independent by a rigid element can be made dependent by another rigid element or by an MPC card. 5.Rigid elements, unlike MPCs, are not selected through the Case Control Deck. 6.Forces of constraint are not recovered. 7.Rigid elements are ignored in heat transfer problems. 8.NASTRAN actually converts the CRTRPLT input card into the CRIGD3 card format, and thus processes a CRTRPLT card as if it were a CRIGD3 card. The following table shows the method of conversion, in free-field format: CRTRPLT Card ===> Equivalent CRIGD3 Card CRTRPLT, EID, G1, G2, G3, IC1, IC2, IC3 , DC1, DC2, DC3 ===> CRIGD3, EID, G1, IC1, G2, IC2, G3, IC3 ,'MSET', G1, DC1, G2, DC2, G3, DC3 9.See Section 1.4.2.2 for a discussion of rigid elements. =PAGE= CSHEAR - Shear Panel Element Connection Description Defines a shear panel element (SHEAR) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CSHEAR EID PID G1 G2 G3 G4 Ĵ CSHEAR 3 6 1 5 3 7 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PSHEAR property card (default is EID) (Integer > 0). G1,...,G4 Grid point identification numbers of connection points (Integer > 0; G1 through G4 must be unique). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Grid points G1 through G4 must be ordered consecutively around the perimeter of the element. 3.All interior angles must be less than 180 degrees. =PAGE= CSLOTi - Slot Element Connections Description Defines an element connecting i = 3 or i = 4 points which solves the wave equation in two dimensions. Used in acoustic cavity analysis for the definition of evenly spaced radial slots. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CSLOT3 EID IDS1 IDS2 IDS3 RHO B M Ĵ CSLOT3 100 1 3 2 3.E-3 6 Ŀ CSLOT4 EID IDS1 IDS2 IDS3 IDS4 RHO B M Ĵ CSLOT4 101 1 3 2 4 6.2+4 3 Field Contents EID Element identification number (Integer > 0). IDSj Identification number of connected grid points, j = 1,2,...J (Integer > 0). RHO Fluid density in mass units (Real > 0.0 or blank). B Fluid bulk modulus (Real >= 0.0 or blank). M Number of slots in circumferential direction (Integer >= 0, or blank). Remarks 1.This card is allowed only if an AXSLOT card is also present. 2.The element identification number (EID) must be unique with respect to all other fluid or structural elements. 3.If RHO, B, or M is blank, the corresponding values on the AXSLOT data card are used, in which case the default value must not be blank (undefined). 4.Plot elements connecting two points at a time are generated for these elements. The CSLOT3 element generates three plot elements. The CSLOT4 element generates four plot elements, connecting points 1-2, 2-3, 3-4, and 4-1. 5.If B = 0.0 the slot is considered to be an incompressible fluid. 6.If M = 0 no matrices for CSLOTi elements are generated. =PAGE= CTETRA - Tetrahedron Element Connection Description Defines a tetrahedron element (3 dimensional solid with 4 vertices and 4 triangular faces, TETRA) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTETRA EID PID G1 G2 G3 G4 Ĵ CTETRA 15 2 4 7 9 11 Field Contents EID Element identification number (Integer > 0). MID Material identification number (Integer > 0). G1,...,G4 Grid point identification numbers of connection points (Integers > 0, G1 through G4 must be unique). See Figure 2.4-26. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.There is no nonstructural mass. 3.For structural problems, material must be defined by MAT1 card. 4.Output stresses are given in basic coordinate system. 5.For heat transfer problems, material may be defined with either a MAT4 or MAT5 card. G4 * /\ / \ / \ / \ G1* \ \ . \ \ . \ \ . \ \ . \ ** G2 G3 Figure 2.4-26. CTETRA grid point identification numbers =PAGE= CTORDRG - Toroidal Ring Element Connection Description Defines an axisymmetric toroidal cross-section ring element (TORDRG) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTORDRG EID PID G1 G2 A1 A2 Ĵ CTORDRG 25 2 47 48 30.0 60.0 Field Contents EID Element identification number (Integer > 0). PID Property identification number (default is EID) (Integer > 0). G1, G2 Grid point identification numbers of connection points (Integer > 0; G1 not equal G2). A1 Angle of curvature at grid point 1 in degrees (Real; 0 degrees <= A1 <= 180 degrees; A2 >= A1). A2 Angle of curvature at grid point 2 in degrees (Real; 0 degrees <= A2 <= 180 degrees; A2 >= A1). See Figure 2.4-27. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Grid points G1 and G2 must lie in the x-z plane of the basic coordinate system and to the right of the axis of symmetry (the z-axis). 3.If A1 = 0, the element is assumed to be a shell cap. 4.Only elements of zero or positive Gaussian curvature may be used. z A1/Surface / Normal Axis / of * Symmetry G1 A2 * G2 Surface Normal x Figure 2.4-27. CTORDRG grid point identification numbers =PAGE= CTRAPAX - Trapezoidal Ring Element Connection Description Defines an axisymmetric trapezoidal cross-section ring element with non-axisymmetric deformation of the structural model with reference to property card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRAPAX EID PID R1 R2 R3 R4 TH Ĵ CTRAPAX 15 5 10 11 12 13 30.0 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PTRAPAX card (Integer > 0). R1, R2, R3, R4 Identification numbers of RINGAX cards (Integer > 0; R1 through R4 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-28 gives the sign convention for TH. Remarks 1.CTRAPAX card is allowed if and only if an AXIC card is also present. 2.Each element identification number must be unique with respect to all other element identification numbers. 3.RINGAX identification numbers R1, R2, R3, and R4 must be ordered counterclockwise around the perimeter. 4.For a discussion of the axisymmetric ring problem, see Section 5.11 of the Theoretical Manual. 5.The lines connecting R1 to R2 and R4 to R3 must be parallel to the r axis. 6.This element cannot be modeled with a grid point on the axis of symmetry. z R4 ** R3 Axis / \ of / . \ Symmetry / . \ / . \ / . TH \ / . \ R1 ** R2 r Figure 2.4-28. CTRAPAX sign convention for TH =PAGE= CTRAPRG - Trapezoidal Ring Element Connection Description Defines an axisymmetric trapezoidal cross-section ring element (TRAPRG) of the structural model without reference to a property card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRAPRG EID G1 G2 G3 G4 TH MID Ĵ CTRAPRG 72 13 14 15 16 29.2 13 Field Contents EID Element identification number (Integer > 0). G1,...,G4 Grid point identification number of connection points (Integers > 0; G1 through G4 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-29 gives the sign convention for TH. MID Material property identification number (Integer > 0). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.The four grid points must lie in the x-z plane of both the basic and any local coordinate systems and to the right of the axis of symmetry (the z-axis), except that the grid points G1 and G4 may lie on the axis of symmetry in the limiting case when the element becomes a solid core element. (See Section 1.3.7.1.) 3.Grid points G1, G2, G3, and G4 must be ordered counterclockwise around the perimeter of the element as in the above sketch. 4.The line connecting grid points G1 and G2 and the line connecting grid points G3 and G4 must both be parallel to the x-axis. 5.All interior angles must be less than 180 degrees. 6.For structural problems, the material property identification number must reference only a MAT1 or MAT3 card. 7.For heat transfer problems, the material property identification number must reference only a MAT4 or MAT5 card. z G4 ** G3 Axis / \ of / . \ Symmetry / . \ / . \ / . TH \ / . \ G1 ** G2 x Figure 2.4-29. CTRAPRG grid point identification numbers =PAGE= CTRBSC - Triangular Element Connection Description Defines a basic triangular bending element (TRBSC) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRBSC EID PID G1 G2 G3 TH Ĵ CTRBSC 16 2 12 1 3 16.2 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PTRBSC property card (default is EID) (Integer > 0). G1, G2, G3Grid point identification numbers of connection points (Integer > 0; G1 through G3 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-30 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Interior angles must be less than 180 degrees. 3.No structural mass is generated by this element. *G3 / \ ye / \ . | / \ . | / .\ | / . \ | / . TH \ |/. \ *- - - - - - - -* -------xe G1 G2 Figure 2.4-30. CTRBSC sign convention for TH =PAGE= CTRIA1 - Triangular Element Connection Description Defines a triangular membrane and bending element (TRIA1) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRIA1 EID PID G1 G2 G3 TH Ĵ CTRIA1 16 2 12 1 3 16.2 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PTRIA1 property card (default is EID) (Integer > 0). G1, G2, G3Grid point identification numbers of connection points (Integer > 0; G1 through G3 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-31 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Interior angles must be less than 180 degrees. *G3 / \ ye / \ . | / \ . | / .\ | / . \ | / . TH \ |/. \ *- - - - - - - -* -------xe G1 G2 Figure 2.4-31. CTRIA1 sign convention for TH =PAGE= CTRIA2 - Triangular Element Connection Description Defines a triangular membrane and bending element (TRIA2) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRIA2 EID PID G1 G2 G3 TH Ĵ CTRIA2 16 2 12 1 3 16.2 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PTRIA2 property card (default Is EID) (Integer > 0). G1, G2, G3Grid point identification numbers of connection points (Integer > 0; G1 through G3 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-32 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Interior angles must be less than 180 degrees. *G3 / \ ye / \ . | / \ . | / .\ | / . \ | / . TH \ |/. \ *- - - - - - - -* -------xe G1 G2 Figure 2.4-32. CTRIA2 sign convention for TH =PAGE= CTRIA3 - Triangular Element Connection Description Defines a triangular plate element (CTRIA3) of the structural model. This is an isoparametric membrane-bending element, with variable element thickness, layered composite material, and thermal analysis capabilities. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRIA3 EID PID G1 G2 G3 TM ZO abc Ĵ CTRIA3 101 17 1001 1005 1010 45.0 0.01 ABC Ŀ +bc T1 T2 T3 Ĵ +BC 0.03 0.125 0.05 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PSHELL entry (default is EID) (Integer > 0). For composites, see Remark 5. Gi Grid point identification numbers of connection points (Integer > 0). ZO Offset of the elementary reference plane (element mid-plane) from the plane of grid points (Real or blank; see Remarks 3 and 6). TM Material property orientation specification (Real or blank, or 0 <= Integer < 1,000,000). If Real or blank, specifies the material property orientation angle in degrees. If Integer, the orientation of the material x-axis is along the projection onto the plane of the element of the x-axis of the coordinate system specified by the integer value. (See Guidelines.) Ti Membrane thickness of element at grid points Gi (Real or blank; see Remark 4 for default). Remarks 1.The TRIA3 geometry, coordinate systems, and numbering are shown in Figure 2.4-33. 2.Each element identification number must be unique with respect to all other element identification numbers. 3.The material coordinate system (TM) and the offset (ZO) may also be provided on the PSHELL entry. The PSHELL data will be used if the corresponding field on the CTRIA3 entry is blank. 4.The Ti are optional; if not supplied they will be set to the value of T specified on the PSHELL entry. In such cases, the continuation entry is not required. 5.For composites, a PCOMP, PCOMP1, PCOMP2 card can be used instead of a PSHELL card. 6.The "Guidelines for the Use of CQUAD4" and "Guidelines for the use of PCOMP, PCOMP1, and PCOMP2" are also applicable to this CTRIA3 element. 7.IMPORTANT: One-third of the CTRIA3 element mass is distributed to each grid point if the element has uniform thickness, disregarding the geometry of the element (same distribution as CTRIA1 and CTRIA2 elements). This one-third mass distribution formulation also exerts heavy influence on an element with variable thickness. 8.IMPORTANT: If PLOAD2 or PLOAD4 are applied to the CTRIA3 element, the total pressure load is evenly distributed to the three grid points (same result when PLOAD2 is applied to CTRIA1 or CTRIA2 element). PLOAD2 can be used with the 88th word of SYSTEM set to 1 to distribute load more correctly. *G3 / \ ye / \ . | / \ . | / .\ | / . \ | / . TH \ |/. \ *- - - - - - - -* -------xe G1 G2 Figure 2.4-33. CTRIA3 geometry =PAGE= CTRIAAX - Triangular Ring Element Connection Description Defines an axisymmetric triangular cross-section ring element with non-axisymmetric deformation of the structural model with reference to property card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRIAAX EID PID R1 R2 R3 TH Ĵ CTRIAAX 20 15 42 43 52 60.0 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PTRIAAX card (Integer > 0). R1, R2, R3Identification numbers of RINGAX cards (Integer > 0; R1 through R3 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-34 gives the sign convention for TH. Remarks 1.The CTRIAAX card is allowed if and only if an AXIC card is also present. 2.Each element identification number must be unique with respect to all other element identification numbers. 3.RINGAX identification numbers R1, R2, and R3 must be ordered counterclockwise around the perimeter. 4.For a discussion of the axisymmetric ring problem, see Section 5.11 of the Theoretical Manual. z *R3 / \ / \ . Axis / \ . of / .\ Symmetry / . \ / . TH \ /. \ ** R1 R2 r Figure 2.4-34. CTRIAAX sign convention for TH =PAGE= CTRIARG - Triangular Ring Element Connection Description Defines an axisymmetric triangular cross section ring element (TRIARG) of the structural model without reference to a property card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRIARG EID G1 G2 G3 TH MID Ĵ CTRIARG 16 12 13 14 29.2 17 Field Contents EID Element identification number (Integer > 0). G1, G2, G3Grid point identification numbers of connection points (Integers > 0; G1 through G3 must be unique). See Figure 2.4-35. TH Material property orientation angle in degrees (Real). Figure 2.4-35 gives the sign convention for TH. MID Material identification number (Integer 0). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.The grid points must lie in the x-z plane of both the basic and any local coordinate systems and to the right of the axis of symmetry (the z-axis). 3.Grid points G1, G2, and G3 must be ordered counterclockwise around the perimeter of the element as shown in the above sketch. 4.For structural problems, the material property identification number must reference only a MAT1 or MAT3 card. 5.For heat transfer problems, the material property identification number must reference only a MAT4 or MAT5 card. z *G3 / \ / \ . Axis / \ . of / .\ Symmetry / . \ / . TH \ /. \ ** G1 G2 x Figure 2.4-35. CTRIARG grid point identification numbers =PAGE= CTRIM6 - Linear Strain Triangular Element Connection Description Defines a linear strain triangular membrane element (TRIM6) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRIM6 EID PID G1 G2 G3 G4 G5 G6 +abc Ĵ CTRIM6 220 666 100 110 120 210 220 320 AC3 Ŀ +abc TH Ĵ +C3 90.0 Field Contents EID Element identification number (Integer > 0). PID Identification number of PTRIM6 property card (default is EID) (Integer > 0). G1,...,G6 Grid point identification numbers of connection points (Integers > 0); G1 through G6 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-36 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Interior angles must be less than 180 degrees. 3.The grid points must be ordered consecutively around the perimeter in a counterclockwise direction and starting at a vertex. 4.If MAT2 card is used, material properties and stresses are given in the material coordinate system. 5.The continuation card must be present. 6.Grid points G2, G4, and G6 are assumed to lie at the midpoints of the sides. The locations of these points (defined by GRID cards) are used only for the global coordinate system definition, the Grid Point Weight Generator, centrifugal forces, and deformed structure plotting. *G5 / \ ye / \ . | / \ . | G6* .*G4 | / . \ | / . TH \ |/. \ *- - - -*- - - -* -------xe G1 G2 G3 Figure 2.4-36. CTRIM6 sign convention for TH =PAGE= CTRMEM - Triangular Element Connection Description Defines a triangular membrane element (TRMEM) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRMEM EID PID G1 G2 G3 TH Ĵ CTRMEM 16 2 12 1 3 16.3 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PTRMEM property card (default is EID) (Integer > 0). G1, G2, G3Grid point identification numbers of connection points (Integer > 0; G1 through G3 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-37 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Interior angles must be less than 180 degrees. *G3 / \ ye / \ . | / \ . | / .\ | / . \ | / . TH \ |/. \ *- - - - - - - -* -------xe G1 G2 Figure 2.4-37. CTRMEM sign convention for TH =PAGE= CTRPLT - Triangular Element Connection Description Defines a triangular bending element (TRPLT) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRPLT EID PID G1 G2 G3 TH Ĵ CTRPLT 16 2 12 1 3 16.2 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PTRPLT property card (default is EID) (Integer > 0). G1, G2, G3Grid point identification numbers of connection points (Integer > 0; G1 through G3 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-38 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Interior angles must be less than 180 degrees. 3.No structural mass is generated by this element. *G3 / \ ye / \ . | / \ . | / .\ | / . \ | / . TH \ |/. \ *- - - - - - - -* -------xe G1 G2 Figure 2.4-38. CTRPLT sign convention for TH =PAGE= CTRPLT1 - Triangular Element Connection Description Defines a higher order triangular bending element (TRPLT1) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRPLT1 EID PID G1 G2 G3 G4 G5 G6 abc Ĵ CTRPLT1 160 20 120 10 30 40 70 110 ABC Ŀ +bc TH Ĵ +BC 16.2 Field Contents EID Element identification number (Integer > 0). PID Identification number of PTRPLTI property card (default is EID) (Integer > 0). G1,...,G6 Grid point identification numbers of connection points (Integer > 0; G1 through G6 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-39 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Interior angles must be less than 180 degrees. 3.The grid points must be ordered consecutively around the perimeter in counterclockwise direction and starting at a vertex. 4.The continuation card is required. *G5 / \ ye / \ . | / \ . | G6* .*G4 | / . \ | / . TH \ |/. \ *- - - -*- - - -* -------xe G1 G2 G3 Figure 2.4-39. CTRPLT1 sign convention for TH =PAGE= CTRSHL - Triangular Shell Element Connection Description Defines a triangular thin shallow shell element (TRSHL) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTRSHL EID PID G1 G2 G3 G4 G5 G6 abc Ĵ CTRSHL 160 20 120 10 30 40 70 110 ABC Ŀ +bc TH Ĵ +BC 16.2 Field Contents EID Element identification number (Integer > 0). PID Identification number of PTRSHL property card (default is EID) (Integer > 0). G1,...,G6 Grid point identification numbers of connection points (Integers > 0; G1 through G6 must be unique). TH Material property orientation angle in degrees (Real). Figure 2.4-40 gives the sign convention for TH. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Interior angles must be less than 180 degrees. 3.The grid points must be listed consecutively around the perimeter in counterclockwise direction and starting at a vertex. 4.The continuation card must be present. *G5 / \ ye / \ . | / \ . | G6* .*G4 | / . \ | / . TH \ |/. \ *- - - -*- - - -* -------xe G1 G2 G3 Figure 2.4-40. CTRSHL sign convention for TH =PAGE= CTUBE - Tube Element Connection Description Defines a tension-compression-torsion element (TUBE) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTUBE EID PID G1 G2 EID PID G1 G2 Ĵ CTUBE 12 13 21 23 3 12 24 5 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PTUBE property card (default is EID) (Integer > 0). G1, G2 Grid point identification numbers of connection points (Integer > 0; G1 not equal G2). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.One or two TUBE elements may be defined on a single card. =PAGE= CTWIST - Twist Panel Element Connection Description Defines a twist panel element (TWIST) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CTWIST EID PID G1 G2 G3 G4 Ĵ CTWIST 2 6 1 5 3 7 Field Contents EID Element identification number (Integer > 0). PID Identification number of a PTWIST property card (default is EID) (Integer > 0). G1,...,G4 Grid point identification numbers of connection points (Integer > 0; G1 through G4 must be unique). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.Grid points G1 through G4 must be ordered consecutively around the perimeter of the element. 3.All interior angles must be less than 180 degrees. =PAGE= CVISC - Viscous Damper Connection Description Defines a viscous damper element (VISC) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CVISC EID PID G1 G2 EID PID G1 G2 Ĵ CVISC 21 6327 29 31 22 6527 35 33 Field Contents EID Element identification number (Integer > O). PID Identification number of PVISC property card (default is EID) (Integer > 0). G1, G2 Grid point identification numbers of connection points (Integer > 0; G1 not equal G2). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.One or two VISC elements may be defined on a single card. 3.Used only for direct formulation of dynamic analyses. =PAGE= CWEDGE - Wedge Element Connection Description Defines a wedge element (three dimensional solid, with three quadrilateral faces and two opposing triangular faces, WEDGE) of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CWEDGE EID MID G1 G2 G3 G4 G5 G6 Ĵ CWEDGE 15 2 3 6 9 12 15 18 Field Contents EID Element identification number (Integer > 0). MID Material identification number (Integer > 0). G1,...,G6 Grid point identification numbers of connection points (Integers > 0, G1 through G6 must be unique). See Figure 2.4-41. Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.The order of the grid points is: G1, G2, G3 on one triangular face, G4, G5, G6 at the other triangular face. G1, G4 on a common edge, G2, G5 on a common edge. 3.The quadrilateral faces must be nearly planar. 4.There is no nonstructural mass. 5 For structural problems, material must be defined by MAT1 card. 6.Output stresses are given in the basic coordinate system. 7.For heat transfer problems, material may be defined with either a MAT4 or MAT5 card. G4_____G6 /\ /\ / \ / \ / *G5 \ G1* ij *G3 \ / \ / \ / \ / * G2 Figure 2.4-41. CWEDGE grid point identification numbers =PAGE= CYJOIN - Cyclic Symmetry Boundary Points Description Defines the boundary points of a segment for cyclic symmetry structural models. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ CYJOIN SIDE C G1 G2 G3 G4 G5 G6 abc Ĵ CYJOIN 1 7 9 16 25 33 64 ABC Ŀ +bc G7 G8 G9 -etc.- Ĵ +BC 72 Alternate Form: Ŀ CYJOIN SIDE C GID1 "THRU" GID2 Ĵ CYJOIN 2 S 6 THRU 32 Field Contents SIDE Side identification (Integer 1 or 2). C Coordinate system (BCD value R, C, or S, or blank). Gi, GIDi Grid or scalar point identification numbers (Integer > 0). Remarks 1.CYJOIN bulk data cards are only used for cyclic symmetry problems. A parameter (CTYPE) must specify rotational or dihedral symmetry. 2.For rotational symmetry problems there must be one logical card for side 1 and one for side 2. The two lists specify grid points to be connected, hence both lists must have the same length. 3.For dihedral symmetry problems, side 1 refers to the boundary between segments and side 2 refers to the middle of a segment. A coordinate system must be referenced in field 3, where R = rectangular, C = cylindrical, and S = spherical. 4.All components of displacement at boundary points are connected to adjacent segments, except those constrained by SPC, MPC, or OMIT. =PAGE= DAREA - Dynamic Load Scale Factor Description The DAREA card is used in conjunction with the RLOAD1, RLOAD2, TLOAD1, and TLOAD2 data cards and defines the point where the dynamic load is to be applied with the scale (area) factor A. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ DAREA SID P C A P C A Ĵ DAREA 3 6 2 8.2 15 1 10.1 Field Contents SID Identification number of DAREA set (Integer > 0). P Grid or scalar point identification number (Integer > 0). C Component number (1 - 6 for grid point: blank or 0 for scalar point). A Scale (area) factor A for the designated coordinate (Real). Remarks 1.One or two scale factors may be defined on a single card. 2.For axisymmetric problems, P represents the NASTRAN (or internal) grid ID and is given by the following algorithm: P = Your (or external) ring ID + 10**6 x (harmonic + 1) =PAGE= DAREAS - Dynamic Load Scale Factor, Substructure Analysis Description The DAREAS card is used in conjunction with the RLOAD1, RLOAD2, TLOAD1, and TLOAD2 data cards and defines the point where the dynamic load is to be applied with the scale (area) factor A. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ DAREAS SID NAME P C A P C A Ĵ DAREAS 3 SKIN 6 2 8.2 15 1 10.1 Field Contents SID Identification number of DAREA set (Integer > 0). NAME Basic substructure name. P Grid or scalar point identification number (Integer > 0). C Component number (1 - 6 for grid point; blank or 0 for scalar point). A Scale (area) factor A for the designated coordinate (Real). Remarks 1.One or two scale factors may be defined on a single card. 2.Used in substructure SOLVE operation. 3.Points referenced must exist in the SOLVEd structure. =PAGE= DEFORM - Element Deformation Description Defines enforced axial deformation for one-dimensional elements for use in statics problems. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ DEFORM SID EID D EID D EID D Ĵ DEFORM 1 535 .05 536 -.10 Field Contents SID Deformation set identification number (Integer > 0). EID Element number (Integer > 0). D Deformation (+ = elongation) (Real). Remarks 1.The referenced element must be one-dimensional (that is, a ROD (including CONROD), TUBE, or BAR). 2.Deformation sets must be selected in the Case Control Deck (DEFORM = SID) to be used by NASTRAN. 3.From one to three enforced element deformations may be defined on a single card. =PAGE= DELAY - Dynamic Load Time Delay Description The DELAY card is used in conjunction with the RLOAD1, RLOAD2, TLOAD1 and TLOAD2 data cards and defines the time delay term in the equations of the loading function. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ DELAY SID P C T P C T Ĵ DELAY 5 21 6 4.25 7 6 8.1 Field Contents SID Identification number of DELAY set (Integer > 0). P Grid or scalar point identification number (Integer > 0). C Component number (1 - 6 for grid point, blank or 0 for scalar point). T Time delay for designated coordinate (Real). Remarks 1.One or two dynamic load time delays may be defined on a single card. =PAGE= DELAYS - Dynamic Load Time Delay, Substructure Analysis Description The DELAYS card is used in conjunction with the RLOAD1, RLOAD2, TLOAD1 and TLOAD2 data cards and defines the time delay term in the equations of the loading function. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ DELAYS SID NAME P C T P C T Ĵ DELAYS 5 SKIN 21 6 4.25 7 6 8.1 Field Contents SID Identification number of DELAY set (Integer > 0). NAME Basic substructure name. P Grid or scalar point identification number (Integer > 0). C Component number (1 - 6 for grid point, blank or 0 for scalar point). T Time delay for designated coordinate (Real). Remarks 1.One or two dynamic load time delays may be defined on a single card. 2.Used in substructure SOLVE operation. 3.Points referenced must exist in the SOLVEd structure. =PAGE= DLOAD - Dynamic Load Combination (Superposition) Description Defines a dynamic loading condition for frequency response or transient response problems as a linear combination of load sets defined via RLOAD1 or RLOAD2 cards (for frequency response) or TLOAD1 or TLOAD2 cards (for transient response). Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ DLOAD SID S S1 L1 S2 L2 S3 L3 +abc Ĵ DLOAD 17 1.0 2.0 6 -2.0 7 2.0 8 +A Ŀ +abc S4 L4 -etc.- Ĵ +A -2.0 9 -etc.- Field Contents SID Load set identification number (Integer > 0). S Scale factor (Real). Si Scale factors (Real). Li Load set identification numbers defined via card types enumerated above (Integer > 0). Remarks 1.The load vector being defined by this card is given by {P} = S Si{PLi} i 2.The Li must be unique. 3.SID must be different from all Li. 4.Nonlinear transient loads may not be included; they are selected separately in the Case Control Deck. 5.Linear load sets must be selected in the Case Control Deck (DLOAD = SID) to be used by NASTRAN. 6.A DLOAD card may not reference a set identification number defined by another DLOAD card. 7.TLOAD1 and TLOAD2 loads may be combined only through the use of the DLOAD card. 8.RLOAD1 and RLOAD2 loads may be combined only through the use of the DLOAD card. 9.SID must be unique for all TLOAD1, TLOAD2, RLOAD1, and RLOAD2 cards. =PAGE= DMI - Direct Matrix Input Description Used to define matrix data blocks directly. Generates a matrix of the form Ŀ A11 A12................A1n [A] = A21 A22................A2n | | | | | | Am1.......................Amn where the elements Aij may be real or complex single-precision or double precision numbers. Format and Example (The first logical card is a header card.) 1 2 3 4 5 6 7 8 9 10 Ŀ DMI NAME "0" FORM TIN TOUT M N Ĵ DMI QQQ 0 2 3 3 4 2 Ŀ DMI NAME J I1 A(I1,J) -etc.- I2 +abc Ĵ DMI QQQ 1 1 1.0 2.0 3.0 4.0 3 +1 Ŀ +abc A(I2,J) -etc.- Ĵ +1 5.0 6.0 Ŀ Ĵ DMI QQQ 2 2 6.0 7.0 4 8.0 9.0 -etc. for each nonnull column- Field Contents NAME Any NASTRAN BCD value (1 - 8 alphanumeric characters, the first of which must be alphabetic) which will be used in the DMAP sequence to reference the data block. FORM Matrix form: 1 Square matrix (not symmetric). 2 General rectangular matrix. 6 Symmetric matrix. TIN Type of matrix being input as follows: 1 Real, single-precision (One field is used per element) 2 Real, double-precision (One field is used per element) 3 Complex, single-precision (Two fields are used per element) 4 Complex, double-precision (Two fields are used per element) TOUT Type of matrix which will be created: 1 Real, single-precision 3 Complex, single-precision 2 Real, double-precision 4 Complex, double-precision M Number of rows in A (Integer > 0). N Number of columns in A (Integer > 0). J Column number of A (Integer > 0). I1, I2, etc. Row number of A (Integer > 0). A(Ix,J) Element of A (See TIN) (Real). Remarks 1. You must write a DMAP (or make alterations to a rigid format) in order to use the DMI feature since he is defining a data block. All of the rules governing the use of data blocks in DMAP sequences apply. In the example shown below, the data block QQQ is defined to be the complex, single-precision rectangular 4x2 matrix: Ŀ (1.0, 2.0) (0.0, 0.0) [QQQ] = (3.0, 4.0) (6.0, 7.0) (5.0, 6.0) (0.0, 0.0) (0.0, 0.0) (8.0, 9.0) The DMAP data block NAME (QQQ in the example) will appear in the initial FIAT and the data block will initially appear on the Data Pool File (POOL). 2. A limit to the number of DMIs which may be defined is set by the size of the Data Pool Dictionary. The total number of DMIs may not exceed this size. 3. There are a number of reserved words which may not be used for DMI names. Among these are POOL, NPTP, OPTP, UMF, NUMF, PLT1, PLT2, INPT, INP1 through INP9, GEOM1, GEOM2, GEOM3, GEOM4, GEOM5, EDT, MPT, EPT, DIT, DYNAMICS, IFPFILE, AXIC, FORCE, MATPOOL, PCDB, XYCDB, CASECC, any DTI names, and SCRATCH1 through SCRATCH9. 4. Field 3 of the header card must contain an integer 0. 5. For symmetric matrices, the entire matrix must be input. 6. Only nonzero terms need be entered. 7. A blank field on this card is not equivalent to a zero. If zero input is desired, the appropriate type of zero must be punched (that is, 0.0 or 0.0D0). 8. Complex input must have both the real and imaginary parts punched if either part is nonzero. 9. If A (IX,J) is followed by THRU in the next field and an integer row number IY after the THRU, then A (IX,J) will be repeated in each row through IY. The THRU must follow an element value. In the example below, 3.14 will be in rows 3 through 6 of column 1 and 2.0 in row 9. Ŀ DMI QQQ 0 2 1 1 9 1 Ĵ DMI QQQ 1 3 3.14 THRU 6 9 2.0 =PAGE= DMIAX - Direct Axisymmetric Matrix Input Description Defines axisymmetric (fluid or structure) related direct input matrix terms. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ DMIAX NAME "0" IFO TIN TOUT Ĵ DMIAX B2PP 0 1 3 4 Ŀ DMIAX NAME GJ CJ NJ +abc Ĵ DMIAX B2PP 32 +BG27 Ŀ +abc GI CI NI Xij Yij +def Ĵ +BG27 1027 3 4.35+6 2.27+3 -etc. for each column and row containing nonzero terms- Field Contents NAME BCD name of matrix (one to eight alphanumeric characters the first of which is alphabetic). IFO Identification of matrix form: 1 Square matrix 2 General rectangular matrix 6 Symmetric matrix TIN Type of matrix being input as follows: 1 Real, single-precision (One field is used per element) 3 Complex, single-precision (Two fields are used per element) TOUT Type of matrix which will be created: 1 Real, single-precision 3 Complex, single-precision 2 Real, double precision 4 Complex, double-precision GJ, GI Grid, scalar, RINGFL fluid point, PRESPT pressure point, FREEPT free surface displacement, or extra point identification number (Integer > 0). CJ, CI Component number for GJ or GI grid point (0 <= Integer <= 6; Blank or zero if GJ or GI is a scalar, fluid, or extra point). NJ, NI Harmonic number of RINGFL point. Must be blank if a point type other than RINGFL is used. Negative number implies the sine series, positive implies the cosine series. (Integer). Xij, Yij Real and imaginary parts of matrix element; row (GI, CI, NI) column (GJ, CJ, NJ). Remarks 1. This card is allowed only if an AXIF card is also present. 2. Matrices defined on this card may be used in dynamics by selection in the Case Control Deck by K2PP=NAME, B2PP=NAME, or M2PP=NAME for [K2pp], [B2pp], or [M2pp] respectively. 3. In addition to the header card containing IFO, TIN, and TOUT, a logical card consisting of two or more physical cards is needed for each nonnull column of the matrix. 4. If TIN = 1, Yij must be blank. 5. Field 3 of the header card must contain an integer 0. 6. For symmetric matrices, the entire matrix must be input. 7. Only nonzero terms need be entered. 8. There are a number of reserved words which may not be used for DMIAX names. Among these are POOL, NPTP, OPTP, UMF, NUMF, PLT1, PLT2, INPT, GEOM1, GEOM2, GEOM3, GEOM4, GEOM5, EDT, MPT, EPT, DIT, DYNAMICS, IFPFILE, AXIC, FORCE, MATPOOL, PCDB, XYCDB, CASECC, any DTI names, and SCRATCH1 through SCRATCH9. =PAGE= DMIG - Direct Matrix Input at Grid Points Description Defines structure-related direct input matrices. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ DMIG NAME "0" IFO TIN TOUT Ĵ DMIG STIF 0 1 3 4 Ŀ DMIG NAME GJ CJ GI CI Xij Yij Xabc Ĵ DMIG STIF 27 1 2 3 3.+5 3.+3 EKG1 Ŀ +abc GI CI Xij Yij GI CI Xij Yij Xcef Ĵ +KG1 2 4 2.5+10 .0 50 1.0 0. -etc. for each column containing nonzero terms- Field Contents NAME BCD name of matrix (one to eight alphanumeric characters the first of which is alphabetic). IFO Identification of matrix form: 1 Square matrix 2 General rectangular matrix 6 Symmetric matrix TIN Type of matrix being input as follows: 1 Real, single-precision (One field is used per element) 3 Complex, single-precision (Two fields are used per element) TOUT Type of matrix which will be created: 1 Real, single-precision 3 Complex, single-precision 2 Real, double-precision 4 Complex, double-precision GJ, GI Grid or scalar or extra point identification number (Integer > 0). CJ, CI Component number for GJ a grid point (0 < CJ <= 6); blank or zero for GJ a scalar or extra point. Xij, Yij Real and imaginary parts of matrix element. Remarks 1. Matrices defined on this card may be used in dynamics by selection in the Case Control Deck by K2PP=NAME, B2PP=NAME, or M2PP=NAME for [K2pp], [B2pp], or [M2pp], respectively. 2. In addition to the header card containing IFO, TIN, and TOUT, a logical card consisting of one or more physical cards is needed for each nonnull column of the matrix. 3. If TIN = 1, Yij must be blank. 4. Field 3 of the header card must contain an integer 0. 5. For symmetric matrices, the entire matrix must be input. 6. Only nonzero terms need be entered. 7. The matrix names must be unique among all DMIGs. 8. There are a number of reserved words which may not be used for DMIG names. Among these are POOL, NPTP, OPTP, UMF, NUMF, PLT1, PLT2, INPT, GEOM1, GEOM2, GEOM3, GEOM4, GEOM5, EDT, MPT, EPT, DIT, DYNAMICS, IFPFILE, AXIC, FORCE, MATPOOL, PCDB, XYCDB, CASECC, and DTI names, and SCRATCH1 through SCRATCH9. =PAGE= DPHASE - Dynamic Load Phase Lead Description The DPHASE card is used in conjunction with the RLOAD1 and RLOAD2 data cards to define the phase lead term in the equation of the loading function. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ DPHASE SID P C TH P C TH Ĵ DPHASE 4 21 6 2.1 8 6 7.2 Field Contents SID Identification number of DPHASE set (Integer > 0). P Grid or scalar point identification number (Integer > 0). C Component number (1 - 6 for grid point, 0 or blank for scalar point). TH Phase lead (in degrees) for designated coordinate (Real). Remarks 1. One or two dynamic load phase lead terms may be defined on a single card. =PAGE= DPHASES - Dynamic Load Phase Lead, Substructure Analysis Description The DPHASES card is used in conjunction with the RLOAD1 and RLOAD2 data cards to define the phase lead term in the equation of the loading function. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ DPHASES SID NAME P C TH P C TH Ĵ DPHASES 4 SKIN 21 6 2.1 8 6 7.2 Field Contents SID Identification number of DPHASE set (Integer > 0). NAME Basic substructure name. P Grid or scalar point identification number (Integer > 0). C Component number (1 - 6 for grid point, 0 or blank for scalar point). TH Phase lead (in degrees) for designated coordinate (Real). Remarks 1. One or two dynamic load phase lead terms may be defined on a single card. 2. Used in substructure SOLVE operation. 3. Points referenced must exist in the SOLVEd structure. =PAGE= DSFACT - Differential Stiffness Factor Description Used to define a scale factor for applied loads and stiffness matrix in a Normal Modes with Differential Stiffness Analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ DSFACT SID B Ĵ DSFACT 97 -1.0 Field Contents SID Set identification number (unique Integer > 0). B Scale factor (Real). Remarks 1. Load sets must be selected in the Case Control Deck (DSCO = SID) to be used by NASTRAN. 2. All fields following the entry must be blank. =PAGE= DTI - Direct Table Input Description Used to define table data blocks directly. Format and Example (The first logical card is a header card.) 1 2 3 4 5 6 7 8 9 10 Ŀ DTI NAME "0" T1 T2 T3 T4 T5 T6 +00 Ĵ DTI XXX 0 3 4 4096 32768 1 0 Ŀ +00 V V -etc.- ENDREC +01 Ĵ -etc.- Ŀ DTI NAME IREC V V V V V V +11 Ĵ DTI XXX 1 2.0 -6 ABC 6.0D0 -1 2 +11 Ŀ +11 V V V V -etc.- ENDREC +12 Ĵ +11 4 -6.2 2.9 1 DEF -1 ENDREC -etc.- Field Contents NAME Any NASTRAN BCD value (1 to 8 alphanumeric characters, the first of which must be alphabetic) which will be used in the DMAP sequence to reference the data block. Ti Trailer values (65535 >= Integer >= 0). IREC Record number (sequential integer beginning with 1). V Value (blank, integer, real, BCD (except ENDREC), double precision). ENDREC The BCD value ENDREC which flags the end of the string of values that constitute logical record IREC. Remarks 1. Records may be made as long as desired via continuation cards. 2. Values may be of any type (blank, integer, real, BCD, double precision) with the exception that a BCD value may not be ENDREC. 3. All fields following ENDREC must be blank. 4. You must write a DMAP (or make alterations to a rigid format) in order to use the DTI feature since he is defining a data block. All of the rules governing the use of data blocks in DMAP sequences apply. 5. The DMAP data block NAME (XXX in the example) will appear in the initial FIAT and the data block will initially appear on the POOL. 6. If trailer is not specified, T1 = number of records, T2 through T6 = 0. 7. In addition to the header card, there must be one logical card for each record in the table. 8. There are a number of reserved words which may not be used for DTI names. Among these are POOL, NPTP, OPTP, UMF, NUMF, PLT1, PLT2, INPT, GEOM1, GEOM2, GEOM3, GEOM4, GEOM5, EDT, MPT, EPT, DIT, DYNAMICS, IFPFILE, AXIC, FORCE, MATPOOL, PCDB, XYCDB, CASECC, any DTI names, and SCRATCH1 through SCRATCH9. =PAGE= EIGB - Buckling Analysis Data Description Defines data needed to perform buckling analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ EIGB SID METHOD L1 L2 NEP NDP NDN E +abc Ĵ EIGB 13 DET 0.1 2.5 2 1 1 0.0 ABC Ŀ +abc NORM G C Ĵ +BC MAX Field Contents SID Set identification number (unique Integer > 0). METHOD Method of eigenvalue extraction, one of the BCD values INV, DET, FEER, UINV, or UDET. INV Inverse power method, symmetric matrix operations DET Determinant method, symmetric matrix operations FEER Tridiagonal reduction method, symmetric matrix operations UINV Inverse power method, unsymmetric matrix operations UDET Determinant method, unsymmetric matrix operations L1, L2 Eigenvalue range of interest (Real; L1 < L2 > 0.0). For METHOD = FEER, L1 is ignored and L2 is the acceptable relative error tolerance on eigenvalues, (default is .1/n where n is the order of the stiffness matrix.) (Real > 0.0). NEP Estimate of number of roots in positive range. Desired number of eigenvalues of smallest magnitude for METHOD = FEER. (Default is automatically calculated to extract at least one accurate mode.) (Integer > 0). NDP, NDN Desired number of positive and negative roots (default = 3 x NEP) (Integer > 0) Ignored for METHOD = FEER. E Convergence criteria (optional) (Real > 0.0). NORM Method for normalizing eigenvectors, one of the BCD values MAX or POINT. MAX Normalize to unit value of the largest component in the analysis set. POINT Normalize to unit value of the component defined in fields 3 and 4 (defaults to MAX if defined component is zero). G Grid or scalar point identification number (Integer > 0) (required if and only if NORM = POINT). C Component number (one of the integers 1 - 6) (required if and only if NORM = POINT and G is a geometric grid point.) Remarks 1. Buckling analysis root extraction data sets must be selected in the Case Control Deck (METHOD = SID) to be used by NASTRAN. 2. The quantities L1 and L2 are dimensionless and specify a range in which the eigenvalues are to be found. An eigenvalue is a factor by which the pre-buckling state of stress (first subcase) is multiplied to produce buckling. If METHOD = FEER, L1 is ignored and L2 represents the maximum upper bound, in percent, on lambdaFEER / lambdaEXACT - 1 for acceptance of a computed eigensolution. 3. The continuation card is required. 4. See Sections 10.3.6 and 10.4.2.2 of the Theoretical Manual for a discussion of convergence criteria. 5. If METHOD = DET, L1 must be greater than or equal to 0.0. 6. If NORM = MAX, components that are not in the analysis set may have values larger than unity. 7. If NORM = POINT, the selected component must be in the analysis set. =PAGE= EIGC - Complex Eigenvalue Extraction Data Description Defines data needed to perform complex eigenvalue analysis. / w l2 / a1 /\ b2 Ŀ / /\ / / / / / // / / /// // / / / / \/ / a2\/ b1 l1 Figure 2.4-42. EIGC diagram Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ EIGC SID METHOD NORM G C E +abc Ĵ EIGC 14 DET POINT 27 1.-8 ABC Ŀ +abc a1 wa1 b1 wb1 l1 Ne1 Nd1 +def Ĵ +BC 2.0 5.6 2.0 -3.4 2.0 4 4 DEF Ŀ +def a2 wa2 b2 wb2 l2 Ne2 Nd2 Ĵ +EF -5.5 -5.5 5.6 5.6 1.5 6 3 Field Contents SID Set identification number (unique Integer > 0). METHOD Method of complex eigenvalue extraction, one of the BCD values INV, DET, HESS, or FEER. INV Inverse power method DET Determinant method HESS Upper Hessenberg method FEER Tridiagonal Reduction method NORM Method for normalizing eigenvectors, one of the BCD values MAX or POINT MAX Normalize to a unit value for the real part and a zero value for the imaginary part, the component having the largest magnitude. POINT Normalize to a unit value for the real part and a zero value for the imaginary part the component defined in fields 5 and 6 - defaults to MAX if the magnitude of the defined component is zero. G Grid or scalar point identification number (required if and only if NORM=POINT) (Integer > 0). C Component number (required if and only if NORM = POINT and G is a geometric grid point) (0 <= Integer <= 6). E Convergence criterion (optional) (Real >= 0.0) For METHOD = FEER, error-tolerance on acceptable eigenvalues (default value is .10/n, where n is the order of the stiffness matrix). (aj, waj),(bj, wbj) Two complex points defining a line in the complex plane (Real) For METHOD = FEER, (aj, waj) is a point of interest in the complex plane, closest to which the eigenvalues are computed; aj + waj > 0. The point (bj, wbj) is ignored. lj Width of region in complex plane (Real > 0.0) Blank for METHOD = FEER. Nej Estimated number of roots in each region (Integer > 0). Ignored for METHOD = FEER. Ndj Desired number of roots in each region (default is 3Nej) (Integer > 0) Desired number of accurate roots for METHOD = FEER (default is 1). Remarks 1. Each continuation card defines a rectangular search region. For METHOD = FEER, the card defines a circular search region, centered at (aj, waj) and of sufficient radius to encompass Ndj roots. Any number of regions may be used and they may overlap. Roots in overlapping regions will not be extracted more than once. 2. Complex eigenvalue extraction data sets must be selected in the Case Control Deck (CMETHOD = SID) to be used by NASTRAN. 3. The units of , w, and l are radians per unit time. 4. At least one continuation card is required. 5. For the determinant method with no damping matrix, complex conjugates of the roots found are not printed. 6. See Section 10.4.4.5 of the Theoretical Manual for a discussion of convergence criteria. 7. For the Upper Hessenberg method, Ndl controls the number of eigenvectors computed. Only one continuation card is considered and the (,w) pairs, along with the parameters l1 and Ne1, are ignored. Insufficient storage for HESS will cause the program to switch to INV. 8. The error tolerance, E, for the FEER method is with regard to _ pi - (aj, waj) - 1 for [B] not equal [0] and pi - (aj, waj) _2 2 pi - (aj, waj) - 1 for [B] = [0], 2 2 p - (aj, waj) where i is a computed eigenvalue and pi an exact eigenvalue. 9. The complex eigenvalue is given by + iw = 2f (i - 1/2 g), where f is the frequency and g is the damping coefficient. 10. The default of NORM is MAX. =PAGE= EIGP - Poles in Complex Plane Description Defines poles that are used in complex eigenvalue extraction. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ EIGP SID w M w M Ĵ EIGP 15 -5.2 0.0 2 6.3 5.5 3 Field Contents SID Set identification number (Integer > 0). (,w) Coordinates of point in complex plane (Real). M Multiplicity of complex root at pole defined by (,w) (Integer > 0). Remarks 1.Defines poles in complex plane that are used with associated EIGC card having same set number. 2.The units of ,w are radians per unit time. 3.Poles are used only in the determinant method. 4.One or two poles may be defined on a single card. =PAGE= EIGR - Real Eigenvalue Extraction Data Description Defines data needed to perform real eigenvalue analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ EIGR SID METHOD F1 F2 NE ND NZ E +abc Ĵ EIGR 13 DET 1.9 15.6 10 12 0 1.-3 ABC Ŀ +abc NORM G C Ĵ +BC POINT 32 4 Field Contents SID Set identification number (unique Integer > 0). METHOD Method of eigenvalue extraction, one of the BCD values INV, DET, GIV, MGIV, FEER, FEER-Q, FEER-X, UINV, or UDET. INV Inverse power method, symmetric matrix operations. DET Determinant method, symmetric matrix operations. GIV Givens method of tridiagonalization. MGIV Modified Givens method (see Remark 11). FEER Tridiagonal reduction method, symmetric matrix operations. FEER-Q See Remark 12. FEER-X See Remark 12. UINV Inverse power method, unsymmetric matrix operations. UDET Determinant method, unsymmetric matrix operations. F1, F2 Frequency range of interest (Required for METHOD = DET, INV, UDET, or UINV) (Real >= 0.0; F1 <= F2); If METHOD = GIV, frequency range over which eigenvectors are desired. The frequency range is ignored if ND > 0, in which case the eigenvectors for the first ND positive roots are found. (Real, F1 <= F2). If METHOD = FEER, F1 is the center of range of interest (Default is F1 = 0.0) (Real >= 0.0), and F2 is the acceptable relative error tolerance, as a percentage, on frequency-squared (Default, as a percentage, is 0.1/n where n is the order of the stiffness matrix) (Real > 0.0). NE Estimate of number of roots in range (Required for METHOD = DET, INV, UDET, or UINV, ignored for METHOD = FEER) (Integer > 0). NE (GIVENS)Number of roots to be printed (default all) (rigid roots included). ND Desired number of roots for METHOD = DET, INV, UDET, or UNIV, (Default is 3 NE) (Integer > 0). Desired number of eigenvectors for METHOD = GIV (Integer > 0). Desired number of roots and eigenvectors for METHOD = FEER (Default is automatically calculated to extract at least one accurate mode) (Integer > 0). NZ Number of free body modes (Optional; used only if METHOD = DET or UDET) (Integer> 0). E Mass orthogonality test parameter (Default is 0.0 which means no test will be made) (Real 0.0). NORM Method for normalizing eigenvectors, one of the BCD values MASS, MAX, or POINT. MASS Normalize to unit value of the generalized mass. MAX Normalize to unit value of the largest component in the analysis set. POINT Normalize to unit value of the component defined in fields 3 and 4 - defaults to MAX if defined component is zero. G Grid or scalar point identification number (Required if and only if NORM=POINT) (Integer >= 0). C Component number (One of the integers 1 - 6) (Required if and only if NORM=POINT and G is a geometric grid point). Remarks 1.Real eigenvalue extraction data sets must be selected in the Case Control Deck (METHOD = SID) to be used by NASTRAN. 2.The units of F1 and F2 are cycles per unit time. If METHOD = FEER, F2 represents the maximum upper bound, in percent, on 2 2 w / w - 1 FEER EXACT for acceptance of a computed eigensolution. 3.The continuation card is required. 4.If METHOD = GIV, all eigenvalues are found. 5.If METHOD = GIV, the mass matrix for the analysis set must be positive definite.This means that all degrees of freedom, including rotations, must have mass properties. OMIT cards may be used to remove massless degrees of freedom. 6.A nonzero value of E in field 9 also modifies the convergence criteria. See Sections 10.3.6 and 10.4.2.2 of the Theoretical Manual for a discussion of convergence criteria. 7.If NORM = MAX, components that are not in the analysis set may have values larger than unity. 8.If NORM = POINT, the selected component must be in the analysis set. 9.If METHOD = GIV and rigid body modes are present, F1 should be set to zero if the rigid body eigenvectors are desired. 10. The desired number of roots (ND) includes all roots previously found, such as rigid body modes determined with the use of the SUPORT card, or the number of roots previously checkpointed when restarting and APPENDing the eigenvector file. The APPEND feature is available in the case of the Determinant, Inverse Power and FEER methods of eigenvalue extraction. 11. Givens method requires the mass matrix not to be singular. The MGIV method allows the mass matrix to be singular. However, the dynamic matrices could be bigger, or much bigger, which would require more CPU time and core space. 12. The rigid body frequencies are zero substituted unless FEER-X is requested. If FEER-Q is requested, certain key areas in FEER computations are done in quad precision (Real*16) for 32-bit word machines and in double precision for 60- and 64-bit word machines. The FEER-Q request would yield much better rigid body eigenvalues, but it may take two to three times longer to compute than FEER or FEER-X. =PAGE= ENDDATA - End of Bulk Data Description Defines the end of the Bulk Data Deck. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ ENDDATA Ĵ ENDDATA First Alternate Form: Ŀ ENDATA Ĵ ENDATA Second Alternate Form: Ŀ END DATA Ĵ END DATA Remarks 1.This card is required even if no physical data cards exist in the deck. 2.ENDDATA may begin in column 1 or 2. If the first alternate form is used, ENDATA may begin in column 1, 2, or 3. If the second alternate form is used, END DATA must necessarily begin in column 1. 3.Failure to include this card will result in job termination caused by an end-of-file condition being encountered on the input file. 4.Extraneous data cards may be stored after this card except when the INPUT module data follows or when the UMF card FINIS follows or when multiple job steps occur within the same job submittal on the CDC computer. =PAGE= EPOINT - Extra Point Description Defines extra points of the structural model for use in dynamics problems. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ EPOINT ID ID ID ID ID ID ID ID Ĵ EPOINT 3 18 1 4 16 2 Alternate Form: Ŀ EPOINT ID1 "THRU" ID2 Ĵ EPOINT 17 THRU 43 Field Contents ID, ID1, ID2 Extra point identification number (Integer > 0; ID1 < ID2). Remarks 1.All extra point identification numbers must be unique with respect to all other structural, scalar, and fluid points. 2.This card is used to define coordinates used in transfer function definitions (see TF card). 3.If the alternate form is used, extra points ID1 through ID2 are defined. =PAGE= FLFACT - Aerodynamic Physical Data Description Used to specify densities, Mach numbers, or interblade phase angles, and reduced frequencies for flutter analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ FLFACT SID F1 F2 F3 F4 F5 F6 F7 ABC Ĵ FLFACT 97 .3 .7 3.5 abc Ŀ +BC F8 F9 -etc.- Ĵ Alternate Form: Ŀ FLFACT SID F1 THRU FNF NF FMID Ĵ FLFACT 201 .200 THRU .100 11 .133333 Field Contents SID Set identification number (unique Integer > 0). Fi Aerodynamic factor (Real). Remarks 1.These factors must be selected by a FLUTTER data card to be used by NASTRAN. 2.Imbedded blank fields are forbidden. 3.Parameters must be listed in the order in which they are to be used within the looping of flutter analysis. 4.For the alternate form, NF must be greater than 1. Fmid must lie between F1 and FNF, otherwise Fmid will be set to (F1 + FNF)/2. Then F1(FNF - Fmid)(NF - i) + FNF(Fmid - F1)(i - 1) Fi = i=1,2,...,NF (FNF - Fmid)(NF - i) + (Fmid - F1)(i - 1) The use of Fmid (middle factor selection) allows unequal spacing of the factors. Fmid = 2F1FNF/(F1+FNF) gives equal values to increments of the reciprocal of F1. =PAGE= FLSYM - Axisymmetric Symmetry Control Description Defines the relationship between the axisymmetric fluid and a structural boundary having symmetric constraints. The purpose is to allow fluid boundary matrices to conform to structural symmetry definitions. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ FLSYM M S1 S2 Ĵ FLSYM 12 S A Field Contents M Number of symmetric sections of structural boundary around circumference of fluid being modeled by the set of structural elements (Integer >= 2, even). S1, S2 Description of boundary constraints used on structure at first and second planes of symmetry. (BCD: S for symmetric, A for antisymmetric). Remarks 1.This card is allowed only if an AXIF card is also present. 2.Only one (1) FLSYM card is allowed. 3.The card is not required if no planes of symmetry are involved. 4.First plane of symmetry is assumed to be at = 0. Second plane of symmetry is assumed to be at = 360 degrees/M. 5.Symmetric and antisymmetric constraints for the structure must, in addition, be provided by you. 6.The solution is performed for those harmonic indices listed on the AXIF card that are compatible with the symmetry conditions. Example If a quarter section of structure is used to model the boundary, M = 4. If the boundary constraints are S-S, the compatible cosine harmonics are: 0, 2, 4, etc. If S-A is used the compatible cosine harmonics are 1, 3, 5, ..., etc. =PAGE= FLUTTER - Aerodynamic Flutter Data Description Defines data needed to perform flutter analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ FLUTTER SID METHOD DENS MACH RFREQ IMETH NVALUE EPS Ĵ FLUTTER 19 K 119 219 319 S 5 1.-4 Field Contents SID Set identification number (unique Integer > 0). METHOD Flutter analysis method, K for K method, PK for P-K method, KE for the K method restricted for efficiency. DENS Identification number of an FLFACT data card specifying density ratios to be used in flutter analysis (Integer >= 0). MACH Identification number of an FLFACT data card specifying Mach numbers or interblade phase angles (m) to be used in flutter analysis (Integer >= 0). RFREQ (or VEL) Identification number of an FLFACT data card specifying reduced frequencies (k) to be used in flutter analysis (Integer > 0); for the P-K method, the velocity. IMETH Choice of interpolation method for matrix interpolation (BCD: L for linear, S for surface). NVALUE Number of eigenvalues for output and plots (Integer > 0). EPS Convergence parameter for k; used in the P-K method (Real) (default = 10**(-3)). Remarks 1. The FLUTTER data card must be selected in Case Control Deck (FMETHOD = SID). 2. The density is given by DENS * RHOREF, where RHOREF is the reference value given on the AERO data card. 3. The reduced frequency is given by k = (REFC*w/2*V), where REFC is given on the AERO data card, w is the circular frequency, and V is the velocity. 4. An eigenvalue is accepted in the P-K method when k - kestimate < EPS. =PAGE= FORCE - Static Load Description Defines a static load at a grid point by specifying a vector. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ FORCE SID G CID F N1 N2 N3 Ĵ FORCE 2 5 6 2.9 0.0 1.0 0.0 Field Contents SID Load set identification number (Integer > 0). G Grid point identification number (Integer > 0). CID Coordinate system identification number (Integer >= 0). F Scale factor (Real). N1, N2, N3 Components of vector measured in coordinate system defined by CID (Real; N1**2 + N2**2 + N3**2 > 0.0). Remarks 1. The static load applied to grid point G is given by -> -> f = F N where N is the vector defined in fields 6, 7, and 8. 2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 3. A CID of zero references the basic coordinate system. =PAGE= FORCE1 - Static Load Description Used to define a static load by specification of a value and two grid points which determine the direction. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ FORCE1 SID G F G1 G2 Ĵ FORCE1 6 13 -2.93 16 13 Field Contents. SID Load set identification number (Integer > 0). G Grid point identification number (Integer > 0). F Value of load (Real). G1, G2 Grid point identification numbers (Integer > 0; G1 not equal G2). Remarks 1. The direction of the force is determined by the vector from G1 to G2. 2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. =PAGE= FORCE2 - Static Load Description Used to define a static load by specification of a value and four grid points which determine the direction. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ FORCE2 SID G F G1 G2 G3 G4 Ĵ FORCE2 6 13 -2.93 16 13 17 13 Field Contents SID Load set identification number (Integer > 0). G Grid point identification number (Integer > 0). F Value of load (Real). G1,...,G4 Grid point identification numbers (Integer > 0; G1 through G4 must be unique). Remarks 1. The direction of the force is determined by the vector product whose factors are vectors from G1 to G2 and G3 to G4 respectively. 2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. =PAGE= FORCEAX - Axisymmetric Static Load Description Defines a static loading for a model containing CCONEAX, CTRAPAX, or CTRIAAX elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ FORCEAX SID RID HID S FR FP FZ Ĵ FORCEAX 1 2 3 2.0 0.1 0.2 0.3 Field Contents SID Load set identification number (Integer > 0). RID Ring identification number (see RINGAX) (Integer > 0). HID Harmonic identification number (Integer >= 0 or a sequence of harmonics; see Remark 4). S Scale factor for load (Real). FR, FP, FZ Load components in r, , z directions (Real). Remarks 1. This card is allowed if and only if an AXIC card is also present. 2. Axisymmetric loads must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 3. A separate card is needed for the definition of the force associated with each harmonic. 4. If a sequence of harmonics is to be placed in HID the form is as follows: "Sn1Tn2" where n1 is the start of the sequence and n2 is the end of the sequence; that is, harmonics 0 through 10, the field would contain "S0T10". 5. For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. 6. For a discussion of the axisymmetric solid problem see Section 5.11 of the Theoretical Manual. =PAGE= FREEPT - Fluid Free Surface Point Description Defines the location of points on the surface of a fluid for recovery of surface displacements in a gravity field. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ FREEPT IDF IDP IDP IDP Ĵ FREEPT 3 301 22.5 302 90.0 303 370.0 Field Contents IDF Fluid point (RINGFL) identification number (Integer > 0). IDP Free surface point identification number (Integer > 0). Azimuthal position of FREEPT on fluid point (RINGFL), in fluid coordinate system (Real). Remarks 1. This card is allowed only if an AXIF card is also present. 2. All free surface point identification numbers must be unique with respect to other scalar, structural, and fluid points. 3. The free surface points are used for the identification of output data only. 4. Three points may be defined on a single card. 5. The referenced fluid point (IDF) must be included in a free surface list (FSLIST). 6. Output requests for velocity and acceleration can be made at these points. =PAGE= FREQ - Frequency List Description Defines a set of frequencies to be used in the solution of frequency response problems. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ FREQ SID F F F F F F F abc Ĵ FREQ 3 2.98 3.05 17.9 21.3 25.6 28.8 31.2 ABC Ŀ +bc F F F F F F F F Ĵ +BC 29.2 22.4 19.3 -etc.- Field Contents SID Frequency set identification number (Integer > 0). F Frequency value (Real > 0.0). Remarks 1. The units for the frequencies are cycles per unit time. 2. Frequency sets must be selected in the Case Control Deck (FREQ = SID) to be used by NASTRAN. 3. All FREQ, FREQ1, and FREQ2 cards must have unique frequency set identification numbers. =PAGE= FREQ1 - Frequency List Description Defines a set of frequencies to be used in the solution of frequency response problems by specification of a starting frequency, frequency increment, and number of increments desired. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ FREQ1 SID F1 DF NDF Ĵ FREQ1 6 2.9 0.5 13 Field Contents SID Frequency set identification number (Integer > 0). F1 First frequency in set (Real >= 0.0). DF Frequency increment (Real > 0.0). NDF Number of frequency increments (Integer > 0). Remarks 1. The units for the frequency F1 and the frequency increment DF are cycles per unit time. 2. The frequencies defined by this card are given by f = F1 + (i - 1) DF, i = 1, NDF + 1 i 3. Frequency sets must be selected in the Case Control Deck (FREQ = SID) to be used by NASTRAN. 4. All FREQ, FREQ1, and FREQ2 cards must have unique frequency set identification numbers. =PAGE= FREQ2 - Frequency List Description Defines a set of frequencies to be used in the solution of frequency response problems by specification of a starting frequency, final frequency, and number of logarithmic increments desired. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ FREQ2 SID F1 F2 NF Ĵ FREQ2 6 1.0 1.E5 5 Field Contents SID Frequency set identification number (Integer > 0). F1 First frequency (Real > 0.0). F2 Last frequency (Real > 0.0; F2 > F1). NF Number of logarithmic intervals (Integer > 0). Remarks 1. The units for the frequencies F1 and F2 are cycles per unit time. 2. The frequencies defined by this card are given by f = F1*e**(i-1)d , i = 1,2,...,NF + 1 i where 1 F2 d = ---- log --- NF e F1 For the example shown, the list of frequencies will be 1.0, 10.0, 100.0, 1000.0,10000.0, and 100000.0 cycles per unit time. 3. Frequency sets must be selected in the Case Control Deck (FREQ = SID) to be used by NASTRAN. 4. All FREQ, FREQ1, and FREQ2 cards must have unique frequency set identification numbers. =PAGE= FSLIST - Free Surface List Description Declares the fluid points (RINGFL) which lie on a free surface boundary. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ FSLIST RHO IDF1 IDF2 IDF3 IDF4 IDF5 IDF6 IDF7 abc Ĵ FSLIST 1.0-4 1 3 5 4 2 7 6 +12FS Ŀ +bc IDF8 IDF9 -etc.- def Ĵ +12FS 8 9 10 11 AXIS -etc.- Field Contents RHO Mass density at the surface (Real > 0.0 or blank; if blank the AXIF default value must not be blank). IDFi Identification number of RINGFL point (Integer > 0 or BCD "AXIS". The first and/or last entry may be AXIS). Remarks 1. This card is allowed only if an AXIF card is also present. 2. Each logical card defines a surface. The order of the points must be sequential with the fluid on the right with respect to the direction of travel. 3. The BCD word AXIS defines an intersection with the polar axis of the fluid coordinate system. 4. There may be as many FSLIST cards as required. If the fluid density varies along the boundary there must be one FSLIST card for each interval between fluid points. =PAGE= GEMLOOP - General Current Loop Description Defines a general current loop in magnetic field problems. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ GEMLOOP SID I CID X1 Y1 Z1 X2 Y2 +a Ĵ GEMLOOP 5 5.2 0 8.1 10.2 3.5 12.5 9.1 +A Ŀ +a Z2 X3 Y3 Z3 +b Ĵ +A 1.3 ENDT Field Contents SID Load set identification number (Integer > 0). I Current through loop (Real > 0.0). CID Coordinate system identification number (Integer > 0 or blank). Xi, Yi, Zi Coordinates of points defining linear sections of coil in coordinate system CID (Real). Remarks 1. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 2. In order for the coil to be closed, XN, YN, ZN must be equal to X1, Y1, Z1. 3. ENDT must be specified in the field immediately after ZN. 4. N should be such that 2 <= N <= 15. 5. If a loop has more than 14 segments, another GEMLOOP card may be specified with the first point coincident with the last point of the previous card. 6. CID must presently be 0 or blank. =PAGE= GENEL - General Element Description Defines a general element using either of two approaches as follows. 1. The stiffness approach: f u i K -KS i = , or f T T u d -S K S KS d 2. The flexibility approach: u f i Z S i = , where f T u d -S 0 d T {u } = [u ,u ,...,u ] , i i1 i2 im T {u } = [u ,u ,...,u ] , d d1 d2 dn Ŀ KZ KZ . . . KZ 11 12 1m . KZ . . . . . 22 . . . . T [KZ] = [K] or [Z] = . . . and [KZ] = [KZ] , KZ . . . . . . . KZ m1 mn Ŀ S . . . . . . . S 11 1n [S] = . . . . S . . . . . . . S m1 mn The required input is the {ui} list and the lower triangular portion of [K] or [Z]. Additional input may include the {ud} list and [S]. If [S] is input, {ud} must also be input. If {ud} is input but [S] is omitted, [S] is internally calculated. In this case, {ud} must have six and only six degrees of freedom. If [S] is not required, both {ud} and [S] are omitted. Format (An example is given following.) 1 2 3 4 5 6 7 8 9 10 Ŀ GENEL EID UI1 CI1 UI2 CI2 UI3 CI3 X1 Ĵ +1 UI4 CI4 UI5 CI5 UI6 CI6 UI7 CI7 X2 Ĵ +2 -etc.- X3 Ĵ +3 UI - The last item in the UI-list will appear in X4 m one of fields 2, 4, 6, or 8 Ĵ +4 "UD" UD1 CD1 UD2 CD2 UD3 CD3 X5 Ĵ +5 -etc.- X6 Ĵ +6 UD - The last item in the UD list will appear in X7 n one of fields 2, 4, 6, or 8 Ĵ +7 "K"or"Z" KZ11 KZ21 KZ31 -etc.- KZ22 KZ32 X8 Ĵ +8 -etc.- KZ33 KZ43 -etc.- X9 Ĵ +9 -etc.- X10 Ĵ +10 KZ - The last item in the K or Z matrix, will appear in mm one of fields 2 through 9. X11 Ĵ +11 "S" S11 S12 -etc.- S21 -etc.- X12 Ĵ +12 S - The last item in the S matrix, will appear in mn one of fields 2 through 9. Field Contents EID Unique element identification number, a positive integer. UI1, CI1 etc.; UD1, ED1, etc. Identification numbers of coordinates in the UI or UD list, in sequence corresponding to the [K], [Z], and [S] matrices. Ui and UDi are grid point numbers, and CIi and CDi are the component numbers. If a scalar point is given, the component number is zero. KZij Values of the [K] or [Z] matrix ordered by columns from the diagonal, according to the UI list. Sij Values of the [S] matrix ordered by rows, according to the UD list. UD, K, Z, S BCD data words which indicate the start of data belonging to UD, [K], [Z], or [S]. Remarks 1. When the stiffness matrix, K, is input, the number of significant digits should be the same for all terms. 2. Double-field format may be used for input of K or Z. Example Let element 629 be defined by T {u } = [1-1 ,13-4,42,24-2] , i T {u } = [6-2,33] , d where i-j means the jth component of grid point i. Points 42 and 33 are scalar points. Ŀ Ŀ 1.0 2.0 3.0 4.0 1.5 2.5 2.0 5.0 6.0 7.0 3.5 4.5 [K] = , [S] = 3.0 6.0 8.0 9.0 5.5 6.5 4.0 7.0 9.0 0.0 7.5 8.5 The data cards necessary to input this general element are shown below: 1 2 3 4 5 6 7 8 9 10 Ŀ GENEL 629 1 1 13 4 42 0 X1 Ĵ +1 24 2 X2 Ĵ +2 UD 6 2 33 0 X3 Ĵ +3 K 1.0 2.0 3.0 4.0 5.0 6.0 7.0 X4 Ĵ +4 8.0 9.0 0.0 X5 Ĵ +5 S 1.5 2.5 3.5 4.5 5.5 6.5 7.5 X6 Ĵ +6 8.5 =PAGE= GRAV - Gravity Vector Description Used to define gravity vectors for use in determining gravity loading for the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ GRAV SID CID G N1 N2 N3 Ĵ GRAV 1 3 32.2 0.0 0.0 -1.0 Field Contents SID Set identification number (Integer > 0). CID Coordinate system identification number (Integer >= 0). G Gravity vector scale factor (Real). N1, N2, N3 Gravity vector components (Real; N1**2 + N2**2 + N3**2 > 0.0). Remarks 1. The gravity vector is defined by -> g = G*(N1, N2, N3). 2. A CID of zero references the basic coordinate system. 3. Gravity loads may be combined with simple loads (for example, FORCE, MOMENT) only by specification on a LOAD card. That is, the SID on a GRAV card may not be the same as that on a simple load card. 4. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. =PAGE= GRDSET - Grid Point Default Description Defines default options for fields 3, 7, and 8 of all GRID cards. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ GRDSET CP CD PS Ĵ GRDSET 16 32 3456 Field Contents CP Identification number of default coordinate system in which the locations of the grid points are defined (Integer >= 0). CD Identification number of default coordinate system in which displacements are measured at grid points (Integer >= 0). PS Permanent single-point constraints associated with grid point (any of the digits 1 - 6 with no imbedded blanks) (Integer >= 0). Remarks 1. The contents of fields 3, 7, or 8 of this card are assumed for the corresponding fields of any GRID card whose fields 3, 7, and 8 are blank. If any of these fields on the GRID card are blank, the default option defined by this card occurs for that field. If no permanent single-point constraints are desired or one of the coordinate systems is basic, the default may be overridden on the GRID card making one of fields 3, 7, or 8 zero (rather than blank). Only one GRDSET card may appear in the Bulk Data Deck. 2. The primary purpose of this card is to minimize the burden of preparing data for problems with a large amount of repetition (for example, two-dimensional pinned-joint problems). 3. At least one of the entries CP, CD, or PS must be nonzero. =PAGE= GRID - Grid Point Description Defines the location of a geometric grid point of the structural model, the directions of its displacement, and its permanent single-point constraints. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ GRID ID CP X1 X2 X3 CD PS Ĵ GRID 2 3 1.0 2.0 3.0 316 Field Contents ID Grid point identification number (0 < Integer). CP Identification number of coordinate system in which the location of the gridpoint is defined (Integer >= 0 or blank). (See the GRDSET card for default options for fields 3, 7, and 8.) X1, X2, X3 Location of the grid point in coordinate system CP (Real). CD Identification number of coordinate system in which displacements, degrees of freedom, constraints, and solution vectors are defined at the grid point (Integer >= 0 or blank). (See the GRDSET card for default options for fields 3, 7, and 8.) PS Permanent single-point constraints associated with grid point (any of the digits 1 - 6 with no imbedded blanks) (Integer >= 0 or blank). (See the GRDSET card for default options for fields 3, 7, and 8.) Remarks 1. Each grid point identification number must be unique with respect to all other structural, scalar, and fluid points. 2. The meaning of X1, X2, and X3 depend on the type of coordinate system, CP, as follows (see CORDxx card descriptions): Ŀ Type X1 X2 X3 ij Rectangular X Y Z Cylindrical R (degrees) Z Spherical R (degrees) (degrees) 3. The collection of all CD coordinate systems defined on all GRID cards is called the global coordinate system. All degrees-of-freedom, constraints, and solution vectors are expressed in the global coordinate system. =PAGE= GRIDB - Axisymmetric Problem Grid Point Description Defines the location of a geometric grid point on a RINGFL for an axisymmetric fluid model and/or axisymmetric structure. Used to define the boundary of the fluid. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ GRIDB ID CD PS IDF Ĵ GRIDB 30 30.0 3 345 20 Field Contents ID Grid point identification number (Integer > 0). Azimuthal position in the fluid in degrees (Real). CD Identification number of the coordinate system in which displacements are defined at the grid point (Integer >= 0). PS Permanent single-point constraints associated with the grid point (any combination of the digits 1 - 6 with no embedded blanks) (Integer >= 0). IDF Identification number of a RINGFL (Integer > 0). Remarks 1. This card is allowed only if an AXIF card is also present. 2. Each GRIDB identification number must be unique with respect to other scalar, structural, and fluid points. 3. An AXIF card must define a fluid coordinate system. 4. The RINGFL referenced must be present. 5. If no harmonic numbers on the AXIF card are specified, no fluid elements are necessary. 6. The collection of all CD coordinate systems defined on all GRID and GRIDB cards is called the global coordinate system. 7. Fields 3, 4, and 6 are ignored. This will facilitate your conversion of GRID cards to GRIDB cards. Note that the fields are the same except for fields 1 and 9 if a cylindrical coordinate system is used. 8. The referenced RINGFL point must be included in a boundary list (BDYLIST data card). =PAGE= GRIDF - Fluid Point Description Defines a scalar degree of freedom for harmonic analysis of a fluid. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ GRIDF ID R Z Ĵ GRIDF 23 2.5 -7.3 Field Contents ID Identification number of axisymmetric fluid point (Integer > 0). R Radial location of point in basic coordinate system (Real > 0.0). Z Axial location of point in basic coordinate system (Real). Remarks 1. This card is allowed only if an AXSLOT card is also present. 2. The identification number (ID) must be unique with respect to all other scalar, structural, and fluid points. 3. Grid points on slot boundaries are defined on GRIDS cards. Do not also define them on GRIDF cards. 4. For plotting purposes the R location corresponds to the basic X coordinate. The Z location corresponds to the basic Y coordinate. Pressures will be plotted as displacement in the basic Z direction. 5. Load and constraint conditions are applied as if the GRIDF is a scalar point. Positive loads correspond to inward flow and a single point constraint causes zero pressure at the point. =PAGE= GRIDS - Slot Surface Point Description Defines a scalar degree of freedom with a two dimensional location. Used in defining pressure in slotted acoustic cavities. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ GRIDS ID R Z W IDF Ĵ GRIDS 25 2.5 -7.3 0.5 Field Contents ID Identification number of slot point (Integer > 0). R Radial location of point in basic coordinate system (Real not equal 0.0). Z Axial location of point in basic coordinate system (Real). W Slot width or thickness at the GRIDS point (Real >= 0.0, or blank). IDF Identification number to define a GRIDF point (Integer > 0, or blank). Remarks 1. This card is allowed only if an AXSLOT card is also present. 2. The identification numbers (ID and IDF if present) must be unique with respect to all other scalar, structural, and fluid points. 3. If W is blank, the default value on the AXSLOT card will be used. 4. The IDF number is referenced on the CAXIFi card for central cavity fluid elements next to the interface. The IDF number is entered only if the grid point is on an interface. In this case it should not also be defined on a GRIDF card. 5. If IDF is nonzero then R must be greater than zero. 6. For plotting purposes the R location corresponds to the basic X coordinate. The Z location corresponds to the basic Y coordinate. The slot width, W, corresponds to the basic Z coordinate. The pressure will be plotted in the basic Z direction. 7. Load and constraint conditions are applied as if the GRIDS is a scalar point. Positive loads correspond to inward flow and a single point constraint causes zero pressure at the point. =PAGE= GTRAN - Grid Point Transformation Description This card defines the output coordinate system transformation to be applied to the displacement set of a selected grid point. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ GTRAN SID NAME GID TRAN Ĵ GTRAN 44 GIMBAL 1067 45 Field Contents SID Identification number of the transformation set (Integer > 0). NAME Basic substructure name (BCD). GID Grid point identification (Integer > 0). TRAN Identification number of a TRANS bulk data card (Integer >= 0). Remarks 1. If TRAN = 0, the displacement set at the grid point will be transformed to the overall basic coordinate system. 2. If TRAN = SID, the point will remain fixed to the substructure (that is, no transformation occurs). 3. Otherwise, the displacement set at the grid point will be transformed to the coordinate system directions defined by the selected TRANS card. 4. Transformation sets must be selected in the Substructure Control Deck (TRAN = SID) to be used by NASTRAN. Note that TRAN is a subcommand of the substructure COMBINE command. 5. You are cautioned to review all actions to be enabled by this GID to ensure that they are defined in terms of this revamped displacement coordinate system. =PAGE= GUST - Aerodynamic Gust Load Description Description Defines a stationary vertical gust for use in aeroelastic analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ GUST SID DLOAD WG X0 V Ĵ GUST 133 61 1.0 0. 1.+4 Field Contents SID Gust set identification number (Integer > 0). DLOAD The SID of a TLOAD or RLOAD data card which defines the time or frequency dependence (Integer > 0). WG Scale factor (gust velocity/forward velocity) for gust velocity (Real not equal 0.) X0 Location of reference plane in aerodynamic coordinates (Real >= 0.0). V Velocity of vehicle (Real > 0.0). Remarks 1. The GUST card is selected in Case Control by GUST = SID. 2. The gust angle is in the +z direction of the aerodynamic coordinate system. The value is x-x 0 WG * T(t - ) V where T is the tabular function. 3. In random analysis, a unit gust velocity (WG=1/velocity) is suggested. The actual rms value is entered on the TABRNDG data card. 4. X0 and V may not change between subcases under one execution. =PAGE= LOAD - Static Load Combination (Superposition) Description Defines a static load as a linear combination of load sets defined via FORCE, MOMENT, FORCE1, MOMENT1, FORCE2, MOMENT2, PLOAD, PLOAD2, PLOAD3, FORCEAX, PRESAX, MOMAX, SLOAD, RFORCE, and GRAV cards. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ LOAD SID S S1 L1 S2 L2 S3 L3 abc Ĵ LOAD 101 -0.5 1.0 3 6.2 4 Ŀ +bc S4 L4 -etc.- Ĵ -etc.- Field Contents SID Load set identification number (Integer > 0). S Scale factor (Real). Si Scale factors (Real). Li Load set identification numbers defined via card types enumerated above (Integer > 0). Remarks 1. The load vector defined is given by {P} = S S {P } i i Li 2. The SID on a LOAD card must be unique and must be different from the load set identification numbers of all external static load sets in the Bulk Data Deck. 3. The Li must be unique. The remainder of the physical card containing the last entry must be blank. 4. This card must be used if gravity loads (GRAV) are to be used with any of the other types. 5. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 6. A LOAD card may not reference a set identification number defined by another LOAD card. =PAGE= LOADC - Substructure Static Loading Combination Description Defines the static load for a substructuring analysis as a linear combination of load sets defined for each basic substructure. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ LOADC SID S NAME1 ID1 S1 NAME2 ID2 S2 abc Ĵ LOADC 27 1.0 WINGRT 5 0.5 FUSELAG 966 2.5 ABC Ŀ +bc NAME3 ID3 S3 NAME4 ID4 S4 def Ĵ +BC MIDWG 27 1.75 -etc.- Field Contents SID Load set identification number (Integer > 0). S Scale factor applied to final load vector (Real). NAMEi Basic substructure name (BCD). IDi Load set identification number of substructure NAMEi (Integer > 0). Si Scale factor (Real). Remarks 1. The load vector is combined by: {P} = S Si {P} i IDi 2. The load set identification numbers (IDi) reference the load sets used in Phase 1 to generate the load vectors on the basic substructures. 3. The NAMEi and IDi need not be unique. 4. The LOADC card is the means of specifying a static loading condition in a Phase 2 substructure analysis. The IDi may actually reference temperature loads or element deformation loads defined in Phase 1. 5. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. =PAGE= MAT1 - Material Property Definition Description Defines the material properties for linear, temperature-independent, isotropic materials. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MAT1 MID E G NU RHO A TREF GE +abc Ĵ MAT1 17 3.+7 1.9+7 4.28 0.19 5.37+2 0.23 ABC Ŀ +abc ST SC SS MCSID Ĵ +BC 20.+4 15.+4 12.+4 2004 Field Contents MID Material identification number (Integer > 0). E Young's modulus (Real >= 0.0 or blank). G Shear modulus (Real >= 0.0 or blank). NU Poisson's ratio (-1.0 < Real <= 0.5 or blank). RHO Mass density (Real). A Thermal expansion coefficient (Real). TREF Thermal expansion reference temperature (Real). GE Structural element damping coefficient (Real). ST, SC, SS Stress limits for tension, compression, and shear (Real) (Required for property optimization calculations; otherwise optional if margins of safety are desired.) MCSID Material coordinate system identification number (Integer >= 0 or blank). Remarks 1. One of E or G must be positive (that is, either E > 0.0 or G > 0.0 or both E and G may be > 0.0). 2. If any one of E, G, or NU is blank, it will be computed to satisfy the identity E = 2(1+NU)G; otherwise, values supplied by you will be used. 3. The material identification number must be unique for all MAT1, MAT2, and MAT3 cards. 4. MAT1 materials may be made temperature dependent by use of the MATT1 card and stress dependent by use of the MATS1 card. 5. The mass density, RHO, will be used to automatically compute mass for all structural elements except the two-dimensional bending only elements TRBSC, TRPLT, and QDPLT. 6. If E and NU or G and NU are both blank they will be given the value 0.0. 7. Weight density may be used in field 6 if the value 1/g is entered on the PARAM card WTMASS, where g is the acceleration of gravity. 8. Solid elements must not have NU equal to 0.5. 9. Entries for A (thermal expansion coefficient) and TREF (reference temperature) are assumed to be 0.0 when blank. In a heat formulation, A must be overridden by an appropriate entry; TREF may be overridden if desired. 10. MCSID (> 0) is required if stresses or strains/curvatures are to be computed in a material coordinate system. This is applicable only for TRIA1, TRIA2, QUAD1, and QUAD2 elements. =PAGE= MAT2 - Material Property Definition Description Defines the material properties for linear, temperature-independent, anisotropic materials. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MAT2 MID G11 G12 G13 G22 G23 G33 RHO +abc Ĵ MAT2 13 6.2+3 6.2+3 5.1+3 0.056 ABC Ŀ +abc A1 A2 A12 T0 GE ST SC SS +def Ĵ +BC 0.15 -500.0 0.002 20.+5 DEF Ŀ +def MCSID Ĵ +BC 1008 Field Contents MID Material identification number (Integer > 0). Gij The material property matrix (Real). RHO Mass density (Real). Ai Thermal expansion coefficient vector (Real). T0 Thermal expansion reference temperature (Real). GE Structural element damping coefficient (Real). ST, SC, SS Stress limits for tension, compression, and shear (Real). (Used only to compute margins of safety in certain elements; they have no effect on the computational procedures.) MCSID Material coordinate system identification number (Integer >= 0 or blank). Remarks 1. The material identification numbers must be unique for all MAT1, MAT2, and MAT3 cards. 2. MAT2 materials may be made temperature dependent by use of the MATT2 card. 3. The mass density, RHO, will be used to automatically compute mass for all structural elements except the two-dimensional bending only elements TRBSC, TRPLT, and QDPLT. 4. The convention for the Gij in fields 3 through 8 is represented by the following matrix relationship. Ŀ 1 G11 G12 G13 l 2 = G12 G22 G23 2 12 G13 G23 G33 12 5. MCSID (> 0) is required if stresses or strains/curvatures are to be computed in a material coordinate system. This is applicable only for TRIA1, TRIA2, QUAD1, and QUAD2 elements. =PAGE= MAT3 - Material Property Definition Description Defines the material properties for linear, temperature-independent, orthotropic materials. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MAT3 MID EX EY EZ NUXY NUYZ NUZX RHO +abc Ĵ MAT3 23 1.0+7 1.1+7 1.2+7 .3 .25 .27 1.0-5 ABC Ŀ +abc GXY GYZ GZX AX AY AZ TREF GE Ĵ +BC 2.5+6 3.0+6 2.5+6 1.0-4 1.0-4 1.1-4 68.5 .23 Field Contents MID Material identification number (Integer > 0). EX, EY, EZ Young's moduli in the x, y, and z directions respectively (Real >= 0.0). NUXY, NUYZ, NUZX Poisson's Ratios (Coupled strain ratios in the xy, yz, and zx directions respectively) (Real). RHO Mass density (Real). GXY, GYZ, GZX Shear moduli for xy, yz, and zx (Real >= 0.0). AX, AY, AZ Thermal expansion coefficients (Real). TREF Thermal expansion reference temperature (Real). GE Structural element damping coefficient (Real). Remarks 1. The material identification number must be unique with respect to the collection of all MATi cards. 2. MAT3 materials may be made temperature-dependent by use of the MATT3 card. 3. All nine of the numbers EX, EY, EZ, NUXY, NUYZ, NUZX, GXY, GYZ, and GZX must be present. 4. A nonfatal warning diagnostic will occur if any of NUXY or NUYZ has an absolute value greater than 1.0. 5. MAT3 materials may only be referenced by CTRIARG, CTRAPRG, CTRIAAX, CTRAPAX, and PTORDRG cards. 6. The mass density, RHO, will be used to automatically compute mass for the TRIARG, TRAPRG, CTRIAAX, CTRAPAX, and TORDRG elements. =PAGE= MAT4 - Thermal Material Property Definition Description Defines the thermal material properties for temperature-independent, isotropic materials. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MAT4 MID K CP Ĵ MAT4 103 .6 .2 Field Contents MID Material identification number (Integer > 0). K Thermal conductivity (Real > 0.0), or convective film coefficient. CP Thermal capacity per unit volume (Real > 0.0 or blank), or film capacity per unit area. Remarks 1. The material identification number may be the same as a MAT1, MAT2, or MAT3 card, but must be unique with respect to other MAT4 or MAT5 cards. 2. If an HBDY element references this card, K is the convective film coefficient and CP is the thermal capacity per unit area. 3. MAT4 materials may be made temperature dependent by use of the MATT4 card. =PAGE= MAT5 - Thermal Material Property Definition Description Defines the thermal material properties for temperature-independent, anisotropic materials. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MAT5 MID KXX KXY KXZ KYY KYZ KZZ CP Ĵ MAT5 24 .092 .083 .020 0.2 Field Contents MID Material identification number (Integer > 0). KXX, KXY, KXZ, KYY, KYZ, KZZ Thermal conductivity matrix terms (Real). CP Thermal capacity per unit volume (Real >= 0.0 or blank). Remarks 1. The thermal conductivity matrix has the form: Ŀ KXX KXY KXZ K = KXY KYY KYZ KXZ KYZ KZZ 2. The material number may be the same as a MAT1, MAT2, or MAT3 card, but must be unique with respect to the MAT4 or MAT5 cards. 3. MAT5 materials may be made temperature dependent by use of the MATT5 card. =PAGE= MAT6 - Material Property Definition Description Defines the material properties for linear, temperature-independent, anisotropic materials for solid isoparametric elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MAT6 MID G11 G12 G13 G14 G15 G16 G22 +a Ĵ MAT6 31 0.23+7 -0.21+7 0.32+6 0.16+7 0.11+7 0.53+6 0.74+7+A Ŀ +a G23 G24 G25 G26 G33 G34 G35 G36 +b Ĵ +A -0.21+7-0.55+7-0.37+7-0.18+7 0.23+7 0.16+7 0.11+7 0.53+6+B Ŀ +b G44 G45 G46 G55 G56 G66 RHO AXX +c Ĵ +B 0.66+7 0.28+7 0.14+7 0.43+7 0.92+6 0.30+7 7.32-4 Ŀ +c AYY AZZ AXY AY2 AZX TREF GE Ĵ Field Contents MID Material property identification number (Integer > 0). Gij Symmetric portion of 6x6 material matrix (Real). RHO Mass density (Real). Aij Thermal expansion coefficient vector (Real). TREF Thermal expansion reference temperature (Real). GE Structural damping coefficient (Real). Remarks 1. The material property identification number must be unique with respect to all other material cards. 2. MAT6 materials may be made temperature-dependent by use of the MATT6 card. 3. The ordering of the rows and columns of the matrix is critical and must conform to NASTRAN's ordering of the stress and strain vectors. =PAGE= MAT8 - Orthotropic Plate Material Property Definition Description Defines the material property for an orthotropic material for plate elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MAT8 MID E1 E2 NU12 G12 G1Z G2Z RH0 abc Ĵ MAT8 299 32.+6 4.2+5 0.33 2.9+6 0.042 ABC Ŀ +bc A1 A2 TREF XT XC YT YC S def Ĵ +BC 14.-6 2.3-6 175. DEF Ŀ +ef GE F12 Ĵ +EF 2.5-4 Field Contents MID Material identification number (Integer > 0). E1, E2 Modulus of elasticity in the material x and y directions (Real not equal 0.0). NU12 Poisson's Ratio (Real) (See Remark 5). G12 Linear in-plane shear modulus (Real > 0.0). G1Z Transverse shear modulus for shear in X-Z plane (Real). G2Z Transverse shear modulus for shear in Y-Z plane (Real). RHO Mass density (Real). A1, A2 Thermal expansion coefficients in the material x and y directions (T, Real > 0.0). TREF Thermal expansion reference temperature (XC, Real). XT, XC Allowable stresses/strains in tension and compression, respectively, in the material x direction. Required if failure index calculation is desired. (XT, Real > 0.0; XC, Real; default value for XC is XT.) (See Remark 3.) YT, YC Allowable stresses/strains in tension and compression, respectively, in the material y direction. Required if failure index calculation is desired. (YT, Real > 0.0; YC, Real; default value for YC Is YT.) (See Remark 3.) S Allowable stress/strain for in-plane shear (Real > 0.0) (See Remark 3.) GE Structural damping coefficient (Real). F12 Tsai-Wu interaction term (Real) (See Remark 4.) Remarks 1. Material coordinate systems are defined by the plate element connection entries on the CQUAD4 and CTRIA3 cards. 2. The stress-strain relationship defined by this data is: Ŀ 1/E1 -NU12/E1 A1 1 1 = -NU12/E1 1/E2 + (T-TREF) A2 2 2 1/G12 12 12 Ŀ Ŀ G1Z xz xz = G2Z yz yz 3. Fields XT, XC, YT, YC, and S are used only for composite materials when failure calculations are requested with PCOMP, PCOMP1, or PCOMP2 Bulk Data entries. Allowables represent stresses except when the maximum strain failure theory is used. 4. The F12 field is used only for composite materials when the Tsai-Wu failure theory is used and failure calculations are requested. 5. NU12 is Poisson's Ratio (1/2 for uniaxial loading in 1-direction). Note that NU21 = 1/2, uniaxial loading in 2-direction, is related to NU12, E1, and E2 by the relationship, (NU12) (E2) = (NU12) (E1). =PAGE= MATF - Fluid Material Property Definition Description Defines the fluid density in a hydroelastic analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MATF MID RHO Ĵ MATF 103 0.6 Field Contents MID Material identification number (Integer > 0). RHO Mass density (Real > 0.0). Remarks 1. The material identification number may be the same as that of a MAT1, MAT2, or MAT3 card, but must be unique with respect to other MATF cards. =PAGE= MATPZ1 - Piezoelectric Material Property Definition Description Defines the material properties for linear, temperature-independent piezoelectric materials. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ E E E E E MATPZ1 MID S S S S S d d +a 11 33 44 12 13 31 33 Ĵ MATPZ1 1 12.3 15.5 39.0 -4.05 -5.31 -123.0 289.0 +A Ŀ S S +a d15 / / RHO A TREF GE 11 0 33 0 Ĵ +A 496.0 730.0 635.0 7500.0 Field Contents MID Material identification number (Integer > 0). SE11 - d15 Piezoelectric constants multiplied by 10**12 (Real). S11/0, S33/0 Piezoelectric constants, where 0 is taken to be 8.854 x 10**(-12) farad/meter (Real). RHO Mass density (Real). A Thermal expansion coefficient (Real). TREF Thermal expansion reference temperature (Real). GE Structural element damping coefficient (Real). Remarks 1. MID must be unique with respect to all other material cards. 2. MATPZ1 materials may be made temperature-dependent by use of the MTTPZ1 card. 3. MATPZ1 may be referenced only by PTRAPAX and PTRIAAX cards. 4. Matrix [SE] must be nonsingular. =PAGE= MATPZ2 - Piezoelectric Material Property Definition Description Defines the material properties for linear, temperature-independent, piezoelectric materials. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MATPZ2 MID CE11 CE12 CE13 CE14 CE15 CE16 CE22 +a Ĵ MATPZ2 23 1. 2. 3. 4. 5. 6. 1. +A Ŀ +a CE23 CE24 CE25 CE26 CE33 CE34 CE35 CE36 +b Ĵ +A 2. 3. 4. 5. 1. 2. 3. 4. +A Ŀ +b CE44 CE45 CE46 CE55 CE56 CE66 E11 E12 +c Ĵ +B 1. 2. 3. 1. 2. 1. 1. 2. +C Ŀ +c E13 E14 E15 E16 E21 E22 E23 E24 +d Ĵ +C 3. 4. 5. 6. 1. 2. 3. 4. +D Ŀ +d E25 E26 E31 E32 E33 E34 E35 E36 +e Ĵ +D 5. 6. 1. 2. 3. 4. 5. 6. +E Ŀ +e EPS11 EPS12 EPS13 EPS22 EPS23 EPS33 RHO AX +f Ĵ +E 1. 2. 3. 4. 5. 6. .15 6.-7 +F Ŀ +f AY AZ TREF GE Ĵ +F 6.-7 6.-7 70. .2 Field Contents MID Material identification number (Integer > 0). CE11 - EPS33 Piezoelectric constants (Real). RHO Mass density (Real). AX, AY, AZ Thermal expansion coefficients (Real). TREF Thermal expansion reference temperature (Real). GE Structural element damping coefficient (Real). Remarks 1. MID must be unique with respect to all other material cards. 2. MATPZ2 materials may be made temperature-dependent by use of the MTTPZ2 card. 3. MATPZ2 may be referenced only by PTRAPAX and PTRIAAX cards. 4. See CAUTION discussed in Section 1.17.3.2. =PAGE= MATS1 - Material Stress Dependence Description Specifies table references for material properties on a MAT1 card that are stress-dependent. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MATS1 MID R1 Ĵ MATS1 17 28 Field Contents MID Material property identification number which matches the identification number on some basic MAT1 card (Integer > 0). R1 Reference to table identification number (Integer >= 0 or blank). Remarks 1. A blank or zero entry means no table dependence of the referenced quantity, E, on the basic MAT1 card. For this case, the MATS1 card is not required. 2. TABLES1 type tables must be used. =PAGE= MATT1 - Material Temperature Dependence Description Specifies table references for isotropic material properties on a MAT1 card that are temperature-dependent. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MATT1 MID R1 R2 R3 R4 R5 R6 R7 +abc Ĵ MATT1 17 32 15 ABC Ŀ +abc R8 R9 R10 Ĵ +BC 62 Field Contents MID Material property identification number which matches the identification number on some basic MAT1 card (Integer > 0). Ri References to table identification numbers (Integer > 0 or blank) for the corresponding fields on the MAT1 card. Remarks 1. Blank or zero entries mean no table dependence of the referenced quantity on the basic MAT1 card, and the quantity remains constant. 2. TABLEM1, TABLEM2, TABLEM3, or TABLEM4 type tables may be used. 3. Material properties given on a basic MATi card are initial values. If two or more quantities are to retain a fixed relationship, then two or more (as required) tables must be input to define the relationship. =PAGE= MATT2 - Material Temperature Dependence Description Specifies table references for anisotropic material properties on a MAT2 card that are temperature-dependent. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MATT2 MID R1 R2 R3 R4 R5 R6 R7 +abc Ĵ MATT2 17 32 15 ABC Ŀ +abc R8 R9 R10 R11 R12 R13 R14 R15 Ĵ +BC 62 Field Contents MID Material property identification number which matches the identification number on some basic MAT2 card (Integer > 0). Ri References to table identification numbers (Integer >= 0 or blank) for the corresponding fields on the MAT2 card. Remarks 1. Blank or zero entries mean no table dependence of the referenced quantity on the basic MAT2 card, and the quantity remains constant. 2. TABLEM1, TABLEM2, TABLEM3, or TABLEM4 type tables may be used. 3. Material properties given on a basic MATi card are initial values. If two or more quantities are to retain a fixed relationship, then two or more (as required) tables must be input to define the relationship. =PAGE= MATT3 - Material Temperature Dependence Description Specifies table references for orthotropic material properties on a MAT3 card that are temperature-dependent. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MATT3 MID R1 R2 R3 R4 R5 R6 R7 +abc Ĵ MATT3 23 48 54 ABC Ŀ +abc R8 R9 R10 R11 R12 R13 R14 R15 Ĵ +BC 74 Field Contents MID Material property identification number which matches the identification number on some basic MAT3 card (Integer > 0). Ri References to table identification numbers (Integer > 0 or blank) for the corresponding fields on the MAT3 card. Remarks 1. Blank or zero entries imply no table dependence of the referenced quantity on the basic MAT3 card, and the quantity remains constant. 2. TABLEM1, TABLEM2, TABLEM3, or TABLEM4 type tables may be used. 3. Material properties given on a basic MATi card are initial values. If two or more quantities are to retain a fixed relationship, then two or more (as required) tables must be input to define the relationship. =PAGE= MATT4 - Thermal Material Temperature Dependence Description Specifies table reference for temperature dependent thermal conductivity or convective film coefficient on a MAT4 card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MATT4 MID T(K) Ĵ MATT4 103 73 Field Contents MID ID of a MAT4 which is to be temperature dependent (Integer > 0). T(K) Identification number of a TABLEMi card which gives temperature dependence of the thermal conductivity or convective film coefficient (Integer >= 0 or blank). Remarks 1. The thermal capacity may not be temperature dependent; field 4 must be blank. 2. TABLEM1, TABLEM2, TABLEM3, or TABLEM4 type tables may be used. The basic quantity, K, on the MAT4 card is always multiplied by the tabular function. Note that this is different from structural applications. 3. A blank or zero entry means no table dependence of the referenced quantity on the basic MAT4 card. For this case, the MATT4 card is not required. =PAGE= MATT5 - Thermal Material Temperature Dependence Description Specifies table references for thermal conductivity matrix terms on a MAT5 card that are temperature-dependent. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MATT5 MID T(KXX) T(KXY) T(KXZ) T(KYY) T(KYZ) T(KZZ) Ĵ MATT5 24 73 Field Contents MID Identification number of a MATS, which is to be temperature dependent (Integer > 0). T(K--) Identification number of a TABLEMi card which gives temperature dependence of the matrix term (Integer >= 0 or blank). Remarks 1. The thermal capacity may not be temperature dependent. Field 9 must be blank. 2. TABLEM1, TABLEM2, TABLEM3, or TABLEM4 type tables may be used. The basic quantities on the MAT5 card are always multiplied by the tabular function. Note that this is different from the structural applications. 3. Blank or zero entries mean no table dependence of the referenced quantity on the basic MAT5 card, and the quantity remains constant. 4. Material properties given on a basic MATi card are initial values. If two or more quantities are to retain a fixed relationship, then two or more (as required) tables must be input to define the relationship. =PAGE= MATT6 - Material Temperature Dependence Description Specifies table references for material properties on a MAT6 card that are temperature-dependent. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MATT6 MID R1 R2 R3 R4 R5 R6 R7 +a Ĵ MATT6 115 101 102 103 104 105 106 107 +A Ŀ +a R8 R9 R10 R11 R12 R13 R14 R15 +b Ĵ +A 108 109 110 111 112 113 114 115 +B Ŀ +b R16 R17 R18 R19 R20 R21 R22 R23 +c Ĵ +B 116 117 118 119 120 121 122 123 +C Ŀ +c R24 R25 R26 R27 R28 R29 R30 Ĵ +C 124 125 126 127 128 129 130 Field Contents MID Material property identification number which matches the identification number on some basic MAT6 card (Integer > 0). Ri References to table identification numbers (Integer >= 0 or blank). Remarks 1. Blank or zero entries mean no table dependence of the referenced quantity on the basic MAT6 card. 2. TABLEM1, TABLEM2, TABLEM3, and TABLEM4 type tables may be used. =PAGE= MDIPOLE - Magnetic Dipole Moment Description Defines a magnetic dipole moment in magnetic field problems. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MDIPOLE SID CID CX CY CZ MX MY MZ +a Ĵ MDIPOLE 5 1.0 2.1 3.0 10.0 20.0 30.0 +A Ŀ +a MIN MAX Ĵ +A 0.0 0.0 Field Contents SID Load set identification number (Integer > 0). CID Coordinate system identification number (Integer > 0). CX, CY, CZ Coordinates of location of dipole in coordinate system CID (Real). MX, MY, MZ Components of magnetic dipole moment in coordinate system CID (Real). MIN Minimum distance from dipole to grid point for computing magnetic equivalent loads (Real > 0.0). MAX Maximum distance from dipole to grid point for computing magnetic equivalent loads (Real > 0.0). Remarks 1. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 2. Presently, CID must be blank or zero, indicating the basic coordinate system. 3. MIN and MAX represent minimum and maximum distances, respectively, from the dipole to a point outside of which the magnetic equivalent loads will not be computed for this dipole. If MAX is zero or blank, loads for all necessary points beyond the MIN distance will be computed. 4. The continuation card is required. =PAGE= MKAERO1 - Mach Number, Frequency Table Description Provides a table of Mach numbers or interblade phase angles (m) and reduced frequencies (k) for aerodynamic matrix calculation. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MKAERO1 M1 M2 M3 M4 M5 M6 M7 M8 ABC Ĵ MKAERO1 .1 .7 +ABC Ŀ +BC K1 K2 K3 K4 K5 K6 K7 K8 Ĵ +BC .3 .6 1.0 Field Contents Mi List of Mach numbers or interblade phase angles (Real; 1 <= i <= 8). See Remark 5. Kj List of reduced frequencies (Real > 0.0, 1 <= j <= 8). Remarks 1. Blank fields end the list, and thus cannot be used for 0.0. 2. All combinations of (M,K) will be used. 3. The continuation card is required. 4. Since 0.0 is not allowed, it may be simulated with a very small number such as 0.0001. 5. Mach numbers are input for wing flutter analysis and interblade phase angles for blade flutter analysis. =PAGE= MKAERO2 - Mach Number, Frequency Table Description Provides a list of Mach numbers or interblade phase angles (m) and reduced frequencies (k) for aerodynamic matrix calculation. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MKAERO2 M1 K1 M2 K2 M3 K3 M4 K4 Ĵ MKAERO2 .10 .30 .10 .60 .70 .30 .70 1.0 Field Contents Mi List of Mach numbers or interblade phase angles (Real > 0.0). See Remark 4. Ki List of reduced frequencies (Real > 0.0). Remarks 1. This card will cause the aerodynamic matrices to be computed for a set of parameter pairs. 2. Several MKAERO2 cards may be in the deck. 3. Imbedded blank pairs are skipped. 4. Mach numbers are input for wing flutter analysis and interblade phase angles for blade flutter analysis. =PAGE= MOMAX - Conical Shell Static Moment Description Defines a static moment loading of a conical shell coordinate. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MOMAX SID RID HID S MR MP MZ Ĵ MOMAX 1 2 3 1.0 0.1 0.2 0.3 Field Contents SID Load set identification number (Integer > 0). RID Ring identification number (see RINGAX) (Integer > 0). HID Harmonic identification number (Integer >= 0 or a sequence of harmonics; see Remark 5). S Scale factor (Real). MR, MP, MZ Moment components in the r, , z directions (Real). Remarks 1. This card is allowed if and only if an AXIC card is also present. 2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 3. A separate card is needed for the definition of the moment associated with each harmonic. 4. For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. 5. If a sequence of harmonics is to be placed in HID the form is as follows: "Sn1Tn2" where n1 is the start of the sequence and n2 is the end of the sequence, that is, for harmonics 0 through 10, the field would contain "S0T10". =PAGE= MOMENT - Static Moment Description Defines a static moment at a grid point by specifying a vector. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MOMENT SID G CID M N1 N2 N3 Ĵ MOMENT 2 5 6 2.9 0.0 1.0 0.0 Field Contents SID Load set identification number (Integer > 0). G Grid point identification number (Integer > 0). CID Coordinate system identification number (Integer >= 0). M Scale factor (Real). N1, N2, N3 Components of vector measured in coordinate system defined by CID (Real; N1**2 + N2**2 + N3**2 > 0.0). Remarks 1. The static moment applied to grid point G is given by -> m = M*(N1,N2,N3) 2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 3. A CID of zero references the basic coordinate system. =PAGE= MOMENT1 - Static Moment Description Used to define a static moment by specification of a value and two grid points which determine the direction. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MOMENT1 SID G M G1 G2 Ĵ MOMENT1 6 13 -2.93 16 13 Field Contents SID Load set identification number (Integer > 0). G Grid point identification number (Integer > 0). M Value of moment (Real). G1, G2 Grid point identification numbers (Integer > 0; G1 not equal G2). Remarks 1. The direction of the moment is determined by the vector from G1 to G2. 2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. =PAGE= MOMENT2 - Static Moment Description Used to define a static moment by specification of a value and four grid points which determine the direction. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MOMENT2 SID G M G1 G2 G3 G4 Ĵ MOMENT2 6 13 -2.93 16 13 17 13 Field Contents SID Load set identification number (Integer > 0). G Grid point identification number (Integer > 0). M Value of moment (Real). G1,...,G4 Grid point identification numbers (Integer > 0; G1 not equal G2; G3 not equal G4). Remarks 1. The direction of the force is determined by the vector product whose factors are vectors from G1 to G2 and G3 to G4 respectively. 2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. =PAGE= MPC - Multipoint Constraint Description Defines a multipoint constraint equation of the form A u = 0 j j j Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MPC SID G C A G C A +abc Ĵ MPC 3 28 3 6.2 2 4.29 +B Ŀ +bc G C A -etc.- Ĵ +B 1 4 -2.91 Field Contents SID Set identification number (Integer > 0). G Identification number of grid or scalar point (Integer > 0). C Component number - any one of the digits 1 - 6 in the case of geometric grid points; blank or zero in the case of scalar points (Integer). A Coefficient (Real; the first A must be nonzero). Remarks 1. The first coordinate in the sequence is assumed to be the dependent coordinate and must be unique for all equations of the set. 2. Forces of multipoint constraint are not recovered. 3. Multipoint constraint sets must be selected in the Case Control Deck (MPC = SID) to be used by NASTRAN. 4. Dependent coordinates on MPC cards may not appear on OMIT, OMIT1, SUPORT, SPC, or SPC1 cards; nor may the dependent coordinates be redundantly implied on ASET, ASET1, or MPCADD cards. They also may not appear as dependent coordinates in CRIGD1, CRIGD2, CRIGD3, or CRIGDR elements. =PAGE= MPCADD - Multipoint Constraint Set Definition Description Defines a multipoint constraint set as a union of multipoint constraint sets defined via MPC cards. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MPCADD SID S1 S2 S3 S4 S5 S6 S7 abc Ĵ MPCADD 100 2 3 1 6 4 Ŀ +bc S8 S9 -etc.- Ĵ Field Contents SID Set identification number (Integer > 0; not equal 101 or 102 if axisymmetric). Sj Set identification numbers of multipoint constraint sets defined via MPC cards (Integer > 0; SID not equal Sj). Remarks 1. The Sj must be unique. 2. Multipoint constraint sets must be selected in the Case Control Deck (MPC = SID) to be used by NASTRAN. 3. Sj may not be the identification number of a multipoint constraint set defined by another MPCADD card. 4. Set identification numbers of 101 or 102 cannot be used in axisymmetric problems. =PAGE= MPCAX - Axisymmetric Multipoint Constraint Description Defines a multipoint constraint equation of the form A u = 0 j j j for a model containing CCONEAX, CTRAPAX, or CTRIAAX elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MPCAX SID RID HID C A +abc Ĵ MPCAX 32 17 6 1 1.0 +1 Ŀ +abc RID HID C A RID HID C A +def Ĵ +1 23 4 2 -6.8 -etc.- Field Contents SID Set identification number (Integer > 0, not equal 101 or 102). RID Ring identification number (Integer > 0). HID Harmonic identification number (Integer >= 0). C Component number (1 <= Integer <= 6). A Coefficient (Real; the first A must be nonzero). Remarks 1. This card is allowed if and only if an AXIC card is also present. 2. The first coordinate in the sequence is assumed to be the dependent coordinate and must be unique for all equations of the set. 3. Multipoint constraint sets must be selected in the Case Control Deck (MPC = SID) to be used by NASTRAN. 4. Dependent coordinates appearing on MPCAX cards may not appear on OMITAX, SPCAX, or SUPAX cards. 5. For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. 6. For a discussion of the axisymmetric solid problem, see Section 5.11 of the Theoretical Manual. =PAGE= MPCS - Substructure Multipoint Constraints Description Defines multipoint constraints within or between substructures. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MPCS SID NAME1 G1 C1 A1 abc Ĵ MPCS 171 WINGRT 966 1 1.0 ABC Ŀ +bc NAME2 G21 C21 A21 G22 C22 A32 def Ĵ +BC FUSELAG 1036 1 .031 1036 6 32.7 DEF Ŀ +ef NAME3 G31 C31 A31 G32 C32 A32 ghi Ĵ +EF CABIN 39 2 .076 Field Contents SID Set identification number (Integer > 0). NAMEi Basic substructure name (BCD). Gi Grid or scalar point identification number in basic substructure NAME or NAMEi (Integer > 0). Ci Component number - Any one of the digits 1 - 6 in the case of geometric gridpoints; blank or zero in the case of scalar points (Integer > 0). Ai Coefficient (Real; A must be non-zero). Remarks 1. The first degree of freedom in the sequence is the dependent degree of freedom and it must be unique for all equations of the set. 2. MPCS constraints may be imposed only at the SOLVE step of substructuring in Phase 2. Therefore, referenced grid point components must exist in the final solution substructure. 3. The operation will constrain the degrees of freedom by the equation: A u = 0 i i where ui is the displacement defined by NAMEi, Gi, and Ci. 4. Components may be connected within substructures and/or to separate substructures. 5. The dependent degree of freedom may not also be referenced on any SPCS, SPCS1, SPCSD, SPC, SPC1, OMIT, OMIT1, or SUPORT cards. 6. Multipoint constraint sets must be selected in the Case Control Deck (MPC = SID) to be used by NASTRAN. 7. MPCS cards may be referenced by an MPCADD card. =PAGE= MTTPZ1 - Piezoelectric Material Temperature Dependence Description Specifies table references for piezoelectric material properties on a MATPZ1 card that are temperature-dependent. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MTTPZ1 MID R1 R2 R3 R4 R5 R6 R7 +a Ĵ MTTPZ1 703 201 202 203 204 205 206 207 +A Ŀ +a R8 R9 R10 R11 R12 R13 R14 Ĵ +A 208 209 210 211 212 213 214 Field Contents MID Material property identification number which matches the identification number on some basic MATPZ1 card (Integer > 0). Ri References to table identification numbers for the corresponding fields on the MATPZ1 card (Integer > 0 or blank). Remarks 1. Blank or zero entries mean no table dependence of the referenced quantity on the basic MATPZ1 card, and the quantity remains constant. 2. TABLEM1, TABLEM2, TABLEM3, and TABLEM4 type tables may be used. 3. Material properties given on the basic MATPZ1 card are initial values. If two or more quantities are to retain a fixed relationship, then two or more tables must be input to define the relationship. =PAGE= MTTPZ2 - Piezoelectric Material Temperature Dependence Description Specifies table references for piezoelectric material properties on a MATPZ2 card that are temperature-dependent. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ MTTPZ2 MID R1 R2 R3 R4 R5 R6 R7 +a Ĵ MTTPZ2 35 701 702 703 704 705 706 707 +A . . . . . . Ŀ +f R48 R49 R50 R51 Ĵ +F 748 749 750 751 Field Contents MID Material property identification number which matches the identification number on some basic MATPZ2 card (Integer > 0). Ri References to table identification numbers for the corresponding fields on the MATPZ2 card (Integer > 0 or blank). Remarks 1. Blank or zero entries mean no table dependence of the referenced quantity on the basic MATPZ2 card, and the quantity remains constant. 2. TABLEM1, TABLEM2, TABLEM3, and TABLEM4 type tables may be used. 3. Material properties given on the basic MATPZ2 card are initial values. If two or more quantities are to retain a fixed relationship, then two or more tables must be input to define the relationship. =PAGE= NFTUBE - Nonlinear Transient Response Load Description Defines a nonlinear transient element for heat convection. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ NFTUBE CID G1 G2 CP VOLRT Ĵ NFTUBE 20 8 12 1.3 8.0 Field Contents SID Nonlinear load set identification number (Integer > 0). G1, G2 Grid point identification numbers of connection points (Integer > 0, G1 not equal G2). CP Heat capacity per unit volume (pCp) (Real). VOLRT Volume flow rate, (Real or Integer). If real, the value is used; if integer is given, it is the ID of a TABLEDi data card. Remarks 1. Nonlinear loads are used only in transient analysis. 2. The power into grid points G1 and G2 is given by: . . N1 = -pc v(t) U1 v > 0 . N2 = +pc v(t) U1 or . . N1 = -pc v(t) U2 v > 0 . N2 = pc v(t) U2 3. This element does not contribute to the heat capacity matrix. The FTUBE element may be used for this purpose. 4. It is your responsibility to ensure flow continuity. There must be no accumulation of fluid mass at any grid point. =PAGE= NOLIN1 - Nonlinear Transient Response Dynamic Load Description Defines nonlinear transient forcing functions of the form P (t) = S T(x (t)) , i j where xj is either a displacement (uj) or a velocity (j). Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ NOLIN1 SID GI CI S GJ CJ T Ĵ NOLIN1 21 3 4 2.1 3 1 6 Field Contents SID Nonlinear load set identification number (Integer > 0). GI Grid or scalar or extra point identification number at which nonlinear load is to be applied (Integer > 0). CI Component number if GI is a grid point (0 < Integer <= 6); blank or zero if GI is a scalar or extra point. S Scale factor (Real). GJ Grid or scalar or extra point identification number (Integer > 0). CJ Component number if GJ is a grid point (0 < Integer <= 6; 11 <= Integer <= 16); blank or zero or 10 if GJ is a scalar or extra point (See Remark 4 below). T Identification number of a TABLEDi card (Integer > 0). Remarks 1. Nonlinear loads must be selected in the Case Control Deck (NONLINEAR = SID) to be used by NASTRAN. 2. Nonlinear loads may not be referenced on a DLOAD card. 3. All coordinates referenced on NOLIN1 cards must be members of the solution set. This means the ue set for modal formulation and the ud = ue + ua set for direct formulation. 4. The permissible values for the component number CJ are given in the following table: \Ŀ xj \ GJ Grid point Scalar or extra point \Ĵ Displacement (u ) 1 <= Integer <= 6 0 or blank j Ĵ . Velocity (u ) 11 <= Integer <= 16 10 j Note that velocity components are represented by integers ten greater than the corresponding displacement components. 5. If xj is a velocity (j), then it is determined from the relation u - u . j,t j,t-1 u = j,t t where t is the time increment and uj,t and uj,t-1 are the displacements at time t and at the previous time step respectively. =PAGE= NOLIN2 - Nonlinear Transient Response Dynamic Load Description Defines nonlinear transient forcing functions of the form P (t) = S x (t)y (t) i j k where xj and yk are either displacements (uj,uk) or velocities (j,k). Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ NOLIN2 SID GI CI S GJ CJ GK CK Ĵ NOLIN2 14 2 1 2.9 2 1 2 11 Field Contents SID Nonlinear load set identification number (Integer > 0). GI Grid or scalar or extra point identification number at which nonlinear load is to be applied (Integer > 0). CI Component number if GI is a grid point (0 < Integer <= 6); blank or zero if GI is a scalar or extra point. S Scale factor (Real). GJ Grid or scalar or extra point identification number (Integer > 0). CJ Component number if GJ is a grid point (0 < Integer <= 6; 11 <= Integer <= 16); blank or zero or 10 if GJ is a scalar or extra point (See Remark 4 below). GK Grid or scalar or extra point identification number (Integer > 0). CK Component number if GK is a grid point (0 < Integer <= 6; 11 <= Integer < 16); blank or zero or 10 if GK is a scalar or extra point (See Remark 4 below). Remarks 1. Nonlinear loads must be selected in the Case Control Deck (NONLINEAR = SID) to be used by NASTRAN. 2. Nonlinear loads may not be referenced on a DLOAD card. 3. All coordinates referenced on NOLIN2 cards must be members of the solution set. This means the ue set for modal formulation and the ud = ue + ua set for direct formulation. 4. The permissible values for the component number CJ or CK are given in the following table: \Ŀ xj or yk \ GJ or GK Grid point Scalar or extra point \Ĵ Displacement (u or u ) 1 <= Integer <= 6 0 or blank j k Ĵ . . Velocity (u or u ) 11 <= Integer <= 16 10 j k Note that velocity components are represented by integers ten greater than the corresponding displacement components. 5. If xj or yk is a velocity (j or k), then it is determined from the relation u - u u - u . j,t j,t-1 . k,t k,t-1 u = or u = j,t t k,t t where t is the time increment, uj,t and uk,t are the displacements at the time t and uj,t-1 and uk,t-1 are the displacements at the previous time step. 6. xj and yk need not both represent displacements or velocities. One of them may be a displacement and the other may be a velocity. =PAGE= NOLIN3 - Nonlinear Transient Response Dynamic Load Description Defines nonlinear transient forcing functions of the form A S(x (t)) , x (t) > 0 j j P (t) = i 0 , x (t) <= 0 j where xj is either a displacement (uj) or a velocity (j). Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ NOLIN3 SID GI CI S GJ CJ A Ĵ NOLIN3 4 102 -6.1 2 5 -3.5 Field Contents SID Nonlinear load set identification number (Integer > 0). GI Grid or scalar or extra point identification number at which nonlinear load is to be applied (Integer > 0). CI Component number if GI is a grid point (0 < Integer <= 6); blank or zero if GI is a scalar or extra point. S Scale factor (Real). GJ Grid or scalar or extra point identification number (Integer > 0). CJ Component number if GJ is a grid point (0 < Integer <= 6; 11 <= Integer <= 16); blank or zero or 10 if GJ is a scalar or extra point (See Remark 4 below). A Amplification factor (Real). Remarks 1. Nonlinear loads must be selected in the Case Control Deck (NONLINEAR = SID) to be used by NASTRAN. 2. Nonlinear loads may not be referenced on a DLOAD card. 3. All coordinates referenced on NOLIN3 cards must be members of the solution set. This means the ue set for modal formulation and the ud = ue + ua set for direct formulation. 4. The permissible values for the component number CJ are given in the following table: \Ŀ xj \ GJ Grid point Scalar or extra point \Ĵ Displacement (u ) 1 <= Integer <= 6 0 or blank j Ĵ . Velocity (u ) 11 <= Integer <= 16 10 j Note that velocity components are represented by integers ten greater than the corresponding displacement components. 5. If xj is a velocity (j), then it is determined from the relation u - u . j,t j,t-1 u = j,t t where t is the time increment and uj,t and uj,t-1 are the displacements at time t and at the previous time step, respectively. =PAGE= NOLIN4 - Linear Transient Response Dynamic Load Description Defines nonlinear transient forcing functions of the form A -S(-x (t)) , x (t) < 0 j j P (t) = i 0 , x (t) >= 0 j where xj is either a displacement (uj) or a velocity (j). Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ NOLIN4 SID GI CI S GJ CJ A Ĵ NOLIN4 2 4 6 2.0 101 16.3 Field Contents SID Nonlinear load set identification number (Integer > 0). GI Grid or scalar or extra point identification number at which nonlinear load is to be applied (Integer > 0). CI Component number if GI is a grid point (0 < Integer <= 6); blank or zero if GI is a scalar or extra point. S Scale factor (Real). GJ Grid or scalar or extra point identification number (Integer > 0). CJ Component number if GJ is a grid point (0 < Integer <= 6; 11 <= Integer <= 16); blank or zero or 10 if GJ is a scalar or extra point (See Remark 4 below). A Amplification factor (Real). Remarks 1. Nonlinear loads must be selected in the Case Control Deck (NONLINEAR = SID) to be used by NASTRAN. 2. Nonlinear loads may not be referenced on a DLOAD card. 3. All coordinates referenced on NOLIN4 cards must be members of the solution set. This means the ue set for modal formulation and the ud = ue + ua set for direct formulation. 4. The permissible values for the component number CJ are given in the following table: \Ŀ xj \ GJ Grid point Scalar or extra point \Ĵ Displacement (u ) 1 <= Integer <= 6 0 or blank j Ĵ . Velocity (u ) 11 <= Integer <= 16 10 j Note that velocity components are represented by integers ten greater than the corresponding displacement components. 5. If xj is a velocity (j), then it is determined from the relation u - u . j,t j,t-1 u = j,t t where t is the time increment and uj,t and uj,t-1 are the displacements at time t and at the previous time step, respectively. =PAGE= NOLIN5 - Nonlinear Transient Load for Radiant Heat Transfer Description Defines nonlinear transient radiant heat transfer with temperature dependent emissivities and absorptivities. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ NOLIN5 SID AA AB FAB EA EB ALPA ALPB abc Ĵ NOLIN5 6 6.5 8.3 6.5 66 .83 77 .88 ABC Ŀ +bc GA1 GA2 GA3 GA4 GB1 GB2 GB3 GB4 Ĵ +BC 7 12 13 16 18 Field Contents SID Nonlinear set identification number (Integer > 0). AA, AB Areas of elements A,B (Real > 0.0). FAB Exchange coefficient between areas A,B (Real > 0.0). EA, EB Values for emissivities of elements A,B (Real > 0.0, or Integer > 0 if a table ID). ALPA, ALPB Values for absorptivities of elements A,B (Real > 0.0, or Integer > 0 if a table ID). GA1,...,GA4 Grid points associated with Area A (Integer or blank) (GA1 > 0). GB1,...,GB4 Grid points associated with Area B (Integer or blank) (GB1 > 0). Remarks 1. This card describes the radiant exchange between two areas, A and B. From zero through four grid points can be associated with each area. 2. All grid points specified for an area are treated equally. 3. The nonlinear loads for areas A and B are given by: 4 N (u +T ) A A abs = [R] 4 N (u +T ) B B abs The exchange matrix R depends upon AA, AB, FAB, EA, EB, ALPA, ALPB and the Stefan Boltzman constant. See Theoretical Manual Section 8.3.4 for the formula. 4. The second continuation card is not required. The default gives the absorptivity equal to the emissivity. 5. All grid points listed must be in the solution set {ud}. 6. Fields 6 through 9 may contain either a real value if a constraint emissivity or absorptivity is desired, or an integer value for the ID of a TABLEDi data card for temperature-dependent parameters. =PAGE= NOLIN6 - Nonlinear Transient Response Dynamic Load Description Defines nonlinear transient forcing functions of the form P (t) = S T(x (t)) x (t) x (t), if CJ <= 6 i j j j . . P (t) = S T(x (t)) x (t) x (t), if CJ >= 10 i j j j Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ NOLIN6 SID GI CI S GJ CJ T Ĵ NOLIN6 21 3 4 2.1 3 1 6 Field Contents SID Nonlinear load set identification number (Integer > 0). GI Grid or scalar or extra point identification number at which nonlinear load is to be applied (Integer > 0). CI Component number if GI is a grid point (0 < Integer <= 6); blank or zero if GI is a scalar or extra point. S Scale factor (Real). GJ Grid or scalar or extra point identification number (Integer > 0). CJ Component number if GJ is a grid point (0 < Integer <= 6; 11 <= Integer <= 16); blank or zero or 10 if GJ is a scalar or extra point (See Remark 4 below). T Identification number of a TABLEDi card (Integer > 0). Remarks 1. Nonlinear loads must be selected in the Case Control Deck (NONLINEAR = SID) to be used by NASTRAN. 2. Nonlinear loads may not be referenced on a DLOAD card. 3. All coordinates referenced on NOLIN6 cards must be members of the solution set. This means the ue set for modal formulation and the ud = ue + ua set for direct formulation. 4. The permissible values for the component number CJ are given in the following table: \Ŀ . \ x or x \ CJ Grid Point Scalar or extra point j j \ Component \Ĵ Displacement (x ) 1 <= Integer <= 6 0 or blank j Ĵ . Velocity (x ) 11 <= Integer <= 16 10 j Note that velocity components are represented by integers ten greater than the corresponding displacement components. 5. Velocity (j) is determined from the relation x x . j,t - j,t-1 x = _________________ , j,t t where t is the time increment and xj,t and xj,t-1 are the displacements at time t and at the previous time step respectively. 6. Since the forcing function Pi(t) is a product of TABLEDi, displacement, velocity and the scale factor S, any zero value of these quantities will make Pi(t) equal to zero. This condition may occur when the initial displacements or velocities are zero, and no other load is applied to the structure. =PAGE= OMIT - Omitted Coordinates Description Defines coordinates (degrees of freedom) to be omitted from the problem through matrix partitioning. Used to reduce the number of independent degrees of freedom. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ OMIT ID C ID C ID C ID C Ĵ OMIT 16 2 23 3516 1 4 Field Contents ID Grid or scalar point identification number (Integer > 0). C Component number, zero, or blank for scalar points, any unique combination of the digits 1 - 6 for grid points. Remarks 1. Coordinates specified on OMIT cards may not be specified on OMIT1, ASET, ASET1, SUPORT, SPC, or SPC1 cards nor may they appear as dependent coordinates in multipoint constraint relations (MPC) or in rigid elements (RIGD1, RIGD2, RIGD3, or RIGDR) or as permanent single-point constraints on GRID cards. 2. As many as 24 coordinates may be omitted by a single card. 3. ASET or OMIT data are not recommended for use in heat transfer analysis with radiation effects. =PAGE= OMIT1 - Omitted Coordinates Description Defines coordinates (degrees of freedom) to be omitted from the problem through matrix partitioning. Used to reduce the number of independent degrees of freedom. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ OMIT1 C G G G G G G G abc Ĵ OMIT1 3 2 1 3 10 9 6 5 ABC Ŀ +bc G G G -etc.- Ĵ +BC 7 8 -etc.- Alternate Form: Ŀ OMIT1 C ID1 "THRU" ID2 Ĵ OMIT1 0 17 THRU 109 Field Contents C Component number (any unique combination of the digits 1 - 6 with no imbedded blanks when point identification numbers are grid points; must be null or zero if point identification numbers are scalar points). G, ID1, ID2 Grid or scalar point identification number (Integer > 0; ID1 < ID2). Remarks 1. A coordinate referenced on this card may not appear as a dependent coordinate in a multi-point constraint relation (MPC card) or as a degree of freedom on a rigid element (CRIGD1, CRIGD2, CRIGD3, CRIGDR), nor may it be referenced on a SPC, SPC1, OMIT, ASET, ASET1, or SUPORT card or on a GRID card as permanent single-point constraints. 2. If the alternate form is used, all of the grid (or scalar) points ID1 through ID2 are assumed. 3. ASET or OMIT data are not recommended for use in heat transfer analysis with radiation effects. =PAGE= OMITAX - Axisymmetric Omitted Coordinate Description Defines coordinates to be omitted from a model containing CCONEAX, CTRAPAX, or CTRIAAX elements through matrix partitioning. Used to reduce the number of independent degrees of freedom. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ OMITAX RID HID C RID HID C Ĵ OMITAX 2 6 3 4 7 1 Field Contents RID Ring identification number (Integer > 0). HID Harmonic identification number (Integer > 0). C Component number (any unique combination of the digits 1 - 6). Remarks 1. This card is allowed if and only if an AXIC card is also present. 2. Up to 12 coordinates may be omitted via this card. 3. Coordinates appearing on OMITAX cards may not appear on MPCAX, SUPAX, or SPCAX cards. 4. For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. 5. For a discussion of the axisymmetric solid problem, see Section 5.11 of the Theoretical Manual. =PAGE= PAERO1 - Aerodynamic Panel Property Description Gives associated bodies for the panels in the Doublet-Lattice method. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PAERO1 PID B1 B2 B3 B4 B5 B6 Ĵ PAERO1 1 3 Field Contents PID Property identification number (referenced by CAERO1) (Integer > 0). B1,...,B6 ID of associated body (Integer >= 0 or blank). Remarks 1. The associated body must be in the same aerodynamic group (IGID). 2. If there are no bodies, the card is still required. 3. The Bi numbers above must appear on a PAERO2 card to define these bodies completely. =PAGE= PAERO2 - Aerodynamic Body Properties Description Defines the cross-section properties of aerodynamic bodies. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PAERO2 PID ORIENT WIDTH AR LRSB LRIB LTH1 LTH2 ABC Ĵ PAERO2 2 Z 6.0 1.0 22 91 100 abc Ŀ +BC THI1 THN1 THI2 THN2 THI3 THN3 -etc.- Ĵ +bc 1 3 Field Contents PID Property identification number (Integer > 0). ORIENT Orientation flag Z, Y, or ZY. Type of motion allowed for bodies (BCD). Refers to the aerodynamic coordinate system y direction of ACSID (see AERO data card). WIDTH Reference half-width of body (Real > 0.). AR Aspect ratio (height/width) (Real > 0.). LRSB ID of an AEFACT data card containing a list of slender body half-widths. If blank, the value of WIDTH will be used (Integer >= 0 or blank). LRIB ID of an AEFACT data card containing a list of interference body half-widths. If blank, the value of WIDTH will be used (Integer >= 0 or blank). LTH1, LTH2ID of AEFACT data cards for defining theta arrays for interference calculations (Integer >= 0 or blank). THIi, THNiThe first and last interference element of a body to use the i array (Integer >= 0). Remarks 1.The EID of all CAERO2 elements in any IGID group must be ordered, so that their corresponding ORIENT values appear in the order Z, ZY, Y. 2.The half-widths (given on AEFACT data cards referenced in field 6 and 7) are specified at division points. The number of entries on an AEFACT data card used to specify half-widths must be one greater than the number of elements. 3.The half-width at the first point (that is, the nose) on a slender body is usually 0.; thus it is recommended (but not required) that the LRSB data is supplied with a zero first entry. 4.THIi and THNi are interference element locations on a body. The first element is one for each body. 5.A body is represented by a slender body surrounded by an interference body.The slender body creates the downwash due to the motion of the body, while the interference body represents the effects upon panels and other bodies. The cross-section is elliptical. z Ŀ Slender Body Ĵ x (six elements shown) Division Points Ŀ Interference Body x (three elements shown) z Ĵ half width 3 O O 2 . . End View 4 O . O 1 Theta array, receiving (looking forward) . points for interference y body elements 5 O O 8 6 O O 7 Figure 2.4-43. PAERO2 diagram =PAGE= PAERO3 - Aerodynamic Mach Box Surface Properties Description Defines the number of Mach boxes in the flow direction and the location of cranks and control surfaces of a Mach box lifting surface. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PAERO3 PID NBOX NCTRL X5 Y5 X6 Y6 ABC Ĵ PAERO3 2001 15 2 0. 65. abc Ŀ +BC X7 Y7 X8 Y8 X9 Y9 X10 Y10 DEF Ĵ +bc 78. 65. 108. 65. 82. 97.5 112. 97.5 def Ŀ +EF X11 Y11 X12 Y12 Ĵ +ef 86. 130. 116. 130. Field Contents PID Property identification number (Integer > 0). NBOX The number of Mach boxes in flow direction (0 < Integer < 50). NCTRL Number of control surfaces (Integer 0, 1, or 2). X5-Y12 Location of points 5 through 12, which are in the element coordinate system, to define the cranks and control surface geometry (Real). Remarks 1.The geometry is shown in Figure 2.4-1 at the CAERO3 Bulk Data card description. 2.If Y5 <= 0.0, there is no leading edge crank. Also, if Y6 <= 0.0, there is no trailing edge crank. 3.If NCTRL = 0, no continuation cards are needed. If NCTRL = 1 or 2, then NCTRL continuation cards are needed. 4.The relations Y7 >= Y8, Y9 >= Y10, and Y11 >= Y12 must hold. =PAGE= PAERO4 - Aerodynamic Supersonic Strip Properties Description Gives properties of each strip element for the strip theory. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PAERO4 PID CLA LCLA CIRC LCIRC DOC1 CAOC1 GAPOC1 ABC Ĵ PAERO4 6001 1 501 0 0 0.0 0.0 0.0 abc Ŀ +BC DOC2 CAOC2 GAPOC2 DOC3 CAOC3 GAPOC3 . . . .-etc.- . . Ĵ +bc 0.50 0.25 0.02 0.53 0.24 0.0 Field Contents PID Property identification number (Integer > 0). CLA Parameter to select Prandtl-Glauert correction (Integer -1, 0, 1, or blank). -1 compressibility correction made to lift curve slope data for a reference Mach number. 0 or blank no correction and no list needed. +1 no correction and lift curve slope provided by a list as a function of strip location and Mach number. LCLA ID number of AEFACT data card which lists the lift curve slope on all strips for each Mach number on MKAEROi data card (Integer = 0 if CLA = 0, > 0 if CLA not equal 0) (see Remark 7(b) below). CIRC Parameter to select Theodorsen's function, C(k), or the number of exponential coefficients used to approximate C(k) (Integer 0, 1, 2, 3, or blank. Must be zero if CLA not equal 0.) 0 or blank Theodorsen function. 1,2,3 approximate function with b0, b1, 1, ... bn, n , n = 1,2,3. LCIRC ID number of AEFACT data card which lists the b, values for each Mach number on the MKAEROi data card (Integer = 0 if CIRC = 0, > 0 if CIRC not equal 0) (see Remarks 7(c), 7(d), and 7(e) below; variable b's and 's for each m). DOCi d/c = distance of control surface hinge aft of quarter-chord divided by the strip chord (Real >= 0.0). CAOCi ca/c = control surface chord divided by strip chord (Real >= 0.0). GAPOCi g/c = control surface gap divided by strip chord (Real >= 0.0). Remarks 1.This card is required for strip theory with three entries (DOCi, CAOCi, GAPOCi) per strip. 2.If CLA = -1, lift curve slope data at one Mach number are needed on the AEFACT data card. 3.If CAOCi = 0.0, there is no control surface. 4.If GAPOCi = 0.0, there is slot flow. 5.If GAPOCi < 0.01, then 0.01 is used. 6.Imbedded blank fields are not allowed. 7.The following table lists the lift curve slope or lag function selection and the AEFACT data card formats used for strip theory. Ŀ Parameter Theodorsen Data Combinations Card Function Type Ĵ Number of Format Input CLALCLACIRCLCIRC Words Index Ĵ Exact Lift Curve c =2 0 0 0 0 No AEFACT card required Slope l i c input, uses -1 ID 0 0 (NSTRIP+1) (a) l Prandtl-Glauert i Correction c input,for all m's 1 ID 0 0 (NSTRIP+1)*NMACH (b) l on MKAERO card i Approxi- Coefficients - 0 0 1 ID 4*NMACH (c) mate b0i,b1i, 1i, etc. 0 0 2 ID 6*NMACH (d) 0 0 3 ID 8*NMACH (e) Card Format (a) AEFACT, ID, m , c , c ,...,c 1 l l l 1 2 NSTRIP (b) AEFACT, ID, m ,c ,c ,...,c ,m ,c ,c ,...,c , 1 l l l 2 l l l 11 21 NSTRIP1 12 22 NSTRIP2 etc., for all m on MKAEROi data card. (c) AEFACT, ID, m , b , b , , m , b , b , , m , etc. 1 01 11 11 2 02 12 12 3 (d) AEFACT, ID, m , b , b , , b , ,m , etc. 1 01 11 11 21 21 2 (e) AEFACT, ID, m , b , b , , b , , b , , m , etc. 1 01 11 11 21 21 31 31 2 =PAGE= PAERO5 - Aerodynamic Strip Element Properties Description Gives properties of each strip element for piston theory. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PAERO5 PID NALPHA LALPHA NXIS NXIS NTAUS LTAUS ABC Ĵ PAERO5 7001 1 702 1 701 1 700 abc Ŀ +BC CAOC1 CAOC2 CAOC3 CAOC4 CAOC5 -etc.- . . . . . . . Ĵ +bc 0.0 0.0 5.25 3.99375 0.0 Field Contents PID Property identification number (Integer > 0). NALPHA Number of angles of attack () input per Mach number (m, of MKAEROi data card) (Integer > 0) (see Remark 3 below). LALPHA ID number of the required AEFACT data card which lists the 's (Integer > 0). NXIS Number of dimensionless chordwise coordinates () used to define the geometry of the strips (Integer >= 0 or blank) (see Remark 4 below). LXIS ID number of the AEFACT data card which lists the `s (Integer = 0 if Ca = 0, NTHICK > 0, Integer > 0 if Ca > 0, NTHICK = 0) where Ca is control surface chord length. NTAUS Number of thickness ratios () used to define the geometry of the strips (Integer >= 0 or blank). LTAUS ID number of the AEFACT data card which lists the `s (Integer = 0 or blank if NTAUS = 0, Integer > 0 if NTAUS > 0). CAOCi Ratio of chord of control surface to chord of strip (Ca/c) for each strip (Real >= 0). Remarks 1.A PAERO5 card is used for piston theory strip property definition and is referenced in the PID column of a CAERO5 card. 2.The continuation card is required. The number of entries must equal the number of strips (from CAERO5). Imbedded blank fields are forbidden, so use 0.0 if there is no control surface. 3.The following table lists the formats of the AEFACT data cards for angle of attack distribution. Ŀ LALPHA TYPE OF DATA NALPHA FORMAT Ĵ Same for all strips 1 (a) Variable NSTRIP (b) Number Format of Words (a) 2*NMACH AEFACT, ID, m , , m , , ... 1 1 2 2 (b) (l+NSTRIP) AEFACT, ID, m , , , ..., , ... *NMACH 1 11 21 NSTRIP,l (repeat for all m's) 4.The following table lists the formats of the AEFACT data cards for thickness and other list data. Ŀ NTHICK LXIS LTAUS TYPE OF INPUT DATA CAOCiFORMAT NXIS FORMAT NTAUS FORMAT Ĵ Integrals are input Same for all strips, 0. (c) 0 0 0 0 no control surfaces Same for all strips .NE.0. (d) 1 (e) 0 0 with control surfaces Separate hinge for .NE.0. (d) NSTRIP (f) 0 0 each strip with control surfaces Thickness data are input Ĵ Same for all strips, 0. 0 1 (g) 1 (h) no control surfaces Same for all strips .NE.0. 0 1 (g) 1 (h) with control surfaces Separate data for .NE.0. 0 NSTRIP (i) NSTRIP (j) each strip with control surfaces Number Format of Words (c) 6 AEFACT, ID, I , I , I , I , I , I 1 2 3 4 5 6 (d) 12 AEFACT, ID, I , ..., I , J , ..., J 1 6 1 6 (e) 1 AEFACT, ID, h (f) NSTRlP AEFACT, ID, , , ..., h1 h2 h NSTRIP (g) 2 AEFACT, ID, , m h (h) 3 AEFACT, ID, , , m h t (i) 2*NSTRIP AEFACT, ID, , , ..., m1 h1 h NSTRIP (j) 3*NSTRIP AEFACT, ID, , , , ..., m1 h1 t1 t NSTRIP Note: If there is no hinge, you may put = = 0. h h Dimensions of symmetrical airfoil, internal integral calculation are shown in Figure 2.4-44. g h Hinge Line . . . Flow . . . m . Ĵ Ĵ m t Ĵ h =1Ĵ Figure 2.4-44. PAERO5 diagram =PAGE= PARAM - Parameter Description Specifies values for parameters used in DMAP sequences (including rigid formats). Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PARAM N V1 V2 Ĵ PARAM IRES 1 Field Contents N Parameter name (one to eight alphanumeric characters, the first of which must be alphabetic). V1, V2 Parameter value based on parameter type as follows: Ŀ Type V1 V2 Ĵ Integer Integer Blank Real, single-precision Real Blank BCD (alphanumeric) BCD Blank Real, double-precision Double-precision Blank Complex, single-precision Real Real Complex, double-precision Double-precision Double-precision Remarks 1.Only parameters for which assigned values are allowed may be given values via the PARAM card. Section 5 describes parameters as used in DMAP. 2.The following is a list of parameters, arranged in alphabetical order. APRESS - optional in static aerothermoelastic design/analysis of axial flow compressors (DISP rigid format 16). A positive integer value causes the generation of aerodynamic pressure loads. A negative integer value suppresses the generation of these loads. The default value is -1. ASETOUT - optional in all rigid formats. A positive integer value of this parameter causes the ASET (or HASET) output data block to be generated by the GP4 module. A negative integer value or 0 suppresses the generation of this output data block. The default value is 0. ATEMP - optional in static aerothermoelastic design/analysis of axial flow compressors (DISP rigid format 16). A positive integer value causes the generation of aerodynamic temperature loads. A negative value suppresses the generation of these loads. The default value is -1. AUTOSPC - optional in all rigid formats. Gives you the option of automatically applying single-point constraints for the purpose of removing potential grid (and scalar) point singularities that have not been otherwise already constrained out. The meanings of the various values for this parameter are as follows. AUTOSPC = 0 The AUTOSPC feature is not used. This is the default value. AUTOSPC = 1 All singularities except those that are: removed via single-point constraints, or removed via multipoint constraints, or specified as independent degrees of freedom in multipoint constraints or rigid elements, or specified on SUPORT cards are removed by the automatic application of single-point constraints. A set of SPC1 cards is generated and printed for your information and convenience, indicating the singularities that have been automatically removed as above. These SPC1 cards have the same SPC set ID as the current subcase (or an SPC set ID of 1 if the current subcase has no SPC set). AUTOSPC = 2 There are two possible cases. Case 1. There are no omitted degrees of freedom in the current subcase. This case is handled in the same way as the AUTOSPC = 1 case. SPC1 cards are generated and printed as in the AUTOSPC = 1 case. Case 2. There are omitted degrees of freedom in the current subcase. This case is handled in the same way as the AUTOSPC = 1 case, but with one important difference, as follows. All singularities except those that are: removed via single-point constraints, or removed via multipoint constraints, or specified as independent degrees of freedom in multipoint constraints or rigid elements, or specified on SUPORT cards are removed by the automatic application of single-point constraints, but only if the singularity is part of the o-set (omitted set). SPC1 cards are generated and printed as in the AUTOSPC = 1 case. AUTOSPC = -1 This case is handled in the same way as the AUTOSPC = 1 case, except that the SPC1 cards generated are both punched and printed. AUTOSPC = -2 This case is handled in the same way as the AUTOSPC = 2 case, except that the SPC1 cards generated are both punched and printed. AUTOSPC < -2 or > 2 These illegal values cause singularity processing to be skipped in the GP4 module, the same as if the value were 0. BETA - optional in transient heat transfer analysis (HEAT rigid format 9). The real value of this parameter is used as a factor in the integration algorithm (see Section 8.4.2 of the Theoretical Manual). The default value is 0.55. BETAD - optional in static analysis with differential stiffness and static aerothermoelastic design/analysis of axial flow compressors (DISP rigid formats 4 and 16). The integer value of this parameter is the number of iterations allowed for computing the load correction in the inner (load) loop before shifting to the outer (stiffness) loop, which adjusts the differential stiffness. The default value is 4 iterations. COUPMASS - optional in all DISP and AERO rigid formats. A positive integer value of this parameter causes the generation of coupled mass matrices rather than lumped mass matrices for all bar elements, rod elements, and plate elements that include bending stiffness. This option applies to both structural and nonstructural mass for the following elements: BAR, CONROD, QUAD1, QUAD2, ROD, TRIA1, TRIA2 and TUBE. Since structural mass is not defined for the following list of elements, the option applies only to the nonstructural mass: QDPLT, TRBSC and TRPLT. A negative value causes the generation of lumped mass matrices (translational components only) for all of the above elements. (This is the default.) A zero value activates the following parameters. CPBAR, CPROD, CPQUAD1, CPQUAD2, CPTRIA1, CPTRIA2, CPTUBE, CPQDPLT, CPTRPLT, and CPTRBSC - optional in all DISP and AERO rigid formats. These parameters are active only if COUPMASS = 0. A positive value causes the generation of coupled mass matrices for all elements of that particular type as shown by the following table: Parameter Element Types CPBAR BAR CPROD ROD, CONROD CPQUAD1 QUAD1 CPQUAD2 QUAD2 CPTRIA1 TRIA1 CPTRIA2 TRIA2 CPTUBE TUBE CPQDPLT QDPLT CPTRPLT TRPLT CPTRBSC TRBSC A negative value (the default) for these parameters causes the generation of the lumped mass matrices (translational components only) for these element types. CTYPE - required in rigid formats using the cyclic symmetry feature (DISP rigid formats 14 and 15 and AERO rigid format 9). The BCD value of this parameter defines the type of cyclic symmetry as follows: (1) ROT - rotational symmetry (2) DRL - dihedral symmetry, using right and left halves (3) DSA - dihedral symmetry, using symmetric and antisymmetric components. CYCIO - optional in static analysis with cyclic symmetry (DISP rigid format 14). The integer value of this parameter specifies the form of the input and output data. A value of +1 is used to specify physical segment representation, and a value of -1 for cyclic transform representation. The default value is +1. CYCSEQ - optional in rigid formats using the cyclic symmetry feature (DISP rigid formats 14 and 15 and AERO rigid format 9). The integer value of this parameter specifies the procedure for sequencing the equations in the solution set. A value of +1 specifies that all cosine terms should be sequenced before all sine terms, and a value of -1 specifies alternating cosine and sine terms. The default value is -1. EPSHT - optional in nonlinear static heat transfer analysis (HEAT rigid format 3). The real value of this parameter is used to test the convergence of the nonlinear heat transfer solution (see Section 8.4.1 of the Theoretical Manual). The default value is 0.001. EPSIO - optional in static analysis with differential stiffness and static aerothermoelastic design/analysis of axial flow compressors (DISP rigid formats 4 and 16). The real value of this parameter is used to test the convergence of the iterated differential stiffness. The default value is 10**(-5). FXCOOR, FYCOOR, and FZCOOR - optional in static aerothermoelastic design/analysis of axial flow compressors (DISP rigid format 16). The real values of these parameters are the fractions of the displacements used to redefine the blade geometry. The default values are: FXCOOR = 1.0, FYCOOR = 1.0 and FZCOOR = 1.0. G - optional in the direct formulation of all DISPLACEMENT dynamics problems (DISP rigid formats 7, 8 and 9). The real value of this parameter is used as a uniform structural damping coefficient in the direct formulation of dynamics problems (see section 9.3.3 of the Theoretical Manual). Not recommended for use in hydroelastic problems. GRDEQ - optional in static and normal modes analyses (DISP rigid formats 1, 2, 3, 14, and 15). A positive integer value of this parameter selects the grid point about which equilibrium will be checked for the Case Control output request, MPCFORCE. If the integer value is zero, the basic origin is used. The default value is -1. GRDPNT - optional in all DISP and AERO rigid formats. A positive integer value of this parameter causes the Grid Point Weight Generator to be executed. The value of the integer indicates the grid point to be used as a reference point. If the integer is zero (blank is not equivalent) or is not a defined grid point, the reference point is taken as the origin of the basic coordinate system. All fluid related masses are ignored. Additional details for the Grid Point Weight Generator are given in Section 5.5 of the Theoretical Manual. The following weight and balance information is automatically printed following the execution of the Grid Point Weight Generator. (1) Reference point. (2) Rigid body mass matrix [MO] relative to the reference point in the basic coordinate system. (3) Transformation matrix [S] from basic coordinate system to principal mass axes. (4) Principal masses (mass) and associated centers of gravity (X-C.G., Y-C.G., Z-C.G.). (5) Inertia matrix I(S) about the center of gravity relative to the principal mass axes. (6) Inertia matrix I(Q) about the center of gravity relative to the principal inertia axes. (7) Transformation matrix [Q] between S-axes and Q-axes. GUSTAERO - optional in AERO rigid formats 10 and 11. An integer value of +1 causes gust loads to be computed. The default value is -1 for no gust loads. IFTM - optional in aeroelastic response (AERO rigid format 11). The integer value of this parameter selects the method for the integration of the Inverse Fourier Transform. An integer value of 0 specifies a rectangular fit; 1 specifies a trapezoidal fit; and 2 specifies a cubic spline fit to obtain solutions versus time for which aerodynamic forces are functions of frequency. The default value is 0. INTERACT - optional in DISP static analysis (DISP rigid format 1). This parameter, like the SYS21 parameter, is of relevance only when your primary purpose is to make interactive restart runs. In such a case, the integer value of this parameter must be set to -1 (via a PARAM bulk data card) in both the batch checkpoint run (that precedes the interactive restart run) as well as in the interactive restart run. If not so specified via a PARAM bulk data card, the COMPOFF and COMPON instructions in the DMAP sequence that use this parameter assume a value of 0 for this parameter (see Section 5.7). IPRTCI, IPRTCL, and IPRTCF - optional in static aerothermoelastic design/analysis of axial flow compressors (DISP rigid format 16). If IPRTi is a positive integer, then intermediate print will be generated in the ALG module based on the print option in the ALGDB data table. If IPRTi = 0 (the default), no intermediate print will be generated. IREF - optional in blade cyclic modal flutter analysis (AERO rigid format 9). A positive integer value of this parameter defines the reference streamline number. IREF must be equal to an SLN on a STREAML2 bulk data card. The default value of -1 represents the stream surface at the blade tip. If IREF does not correspond to an SLN, then the default will be taken. IRES - optional in all DISP and HEAT statics problems (DISP rigid formats 1, 2, 4, 5, 6, 14, and 16 and HEAT rigid formats 1 and 3). A positive integer value of this parameter causes the printing of the residual vectors following each execution of the SSG3 (or SSGHT) module. ISTART - optional in direct and modal transient response (DISP rigid formats 9 and 12). A positive value of this parameter causes the second (or alternate) starting method to be used (see Section 11.4 of the Theoretical Manual). The alternate starting method is recommended when initial accelerations are significant and when the mass matrix is non-singular. The default value is -1 and causes the first starting method to be used. KDAMP - optional in all AERO rigid formats. An integer value of +1 causes modal damping terms to be put into the complex stiffness matrix for structural damping (+1 recommended for K and KE methods). The default value is -1. KGGIN - optional in blade cyclic modal flutter analysis (AERO rigid format 9). A positive integer value of this parameter indicates that your stiffness matrix is to be read from an external file (GINO file INPT) via the INPUTT1 module in the rigid format. The default value is -1 when not needed. KINDEX - required in normal modes analysis with cyclic symmetry (DISP rigid format 15) and in blade cyclic modal flutter analysis (AERO rigid format 9). The integer value of this parameter specifies a single value of the harmonic index. Higher KINDEX no. will result in getting higher mode. KMAX - optional in static analysis with cyclic symmetry (DISP rigid format 14). The integer value of this parameter specifies the maximum value of the harmonic index. The default value is ALL which implies NSEGS/2 for NSEGS even and (NSEGS - 1)/2 for NSEGS odd. KTOUT - optional in static aerothermoelastic design/analysis of axial flow compressors (DISP rigid format 16). A positive integer value of this parameter indicates that you want to save the total stiffness matrix on an external file (GINO file INPT) via the OUTPUT1 module in the rigid format. The default value is -1 when not needed. LFREQ and HFREQ - required in all modal formulations of DISP and AERO dynamics problems (DISP rigid formats 10, 11 and 12 and AERO rigid formats 9, 10 and 11), unless LMODES is used. The real values of these parameters give the cyclic frequency range (LFREQ is the lower limit and HFREQ is the upper limit) of the modes to be used in the modal formulation. To use this option, parameter LMODES must be set to 0. LMODES - required in all modal formulations of DISP and AERO dynamics problems (DISP rigid formats 10, 11 and 12 and AERO rigid formats 9, 10 and 11), unless parameters LFREQ and HFREQ are used. The integer value of this parameter is the number of lowest modes to be used in the modal formulation. LOCATION and INPTUNIT - required in static aerothermoelastic design/analysis of axial flow compressors (DISP rigid format 16) when using the KTOUT parameter, and in blade cyclic modal flutter analysis (AERO rigid format 9) when using the KGGIN parameter. See Section 5.5 for a description of these parameters which are required by the INPUTT1 and OUTPUT1 modules. The default values for LOCATION and INPTUNIT are -1 and 0, respectively. MACH - optional in AERO rigid formats 10 and 11. The real value of this parameter selects the closest Mach numbers to be used to compute aerodynamic matrices. The default value is 0.0. MAXIT - optional in nonlinear static heat transfer analysis (HEAT rigid format 3). The integer value of this parameter limits the maximum number of iterations. The default value is 4 iterations. MAXMACH - optional in blade cyclic modal flutter analysis (AERO rigid format 9). The real value of this parameter is the maximum Mach number below which the subsonic unsteady cascade theory is valid. The default value is 0.80. MINMACH - optional in blade cyclic modal flutter analysis (AERO rigid format 9). The real value of this parameter is the minimum Mach number above which the supersonic unsteady cascade theory is valid. The default value is 1.01. MODACC - optional in the modal formulation of frequency response (DISP rigid format 11) and transient response (DISP rigid format 12) problems. A positive integer value of this parameter causes the Dynamic Data Recovery module to use the mode acceleration method. Not recommended for use in hydroelastic problems. DMAP module GKAD sets the V1 value of PARAM MODACC to +1 for rigid format 12, and to -1 for rigid format 11. MTYPE - optional in blade cyclic modal flutter analysis (AERO rigid format 9). The BCD value of this parameter controls which components of the cyclic modes are to be used in the modal formulation. MTYPE = SINE uses only sine components and MTYPE = COSINE uses only cosine components. The default value is COSINE. NINPTS - optional in DISP static analysis (DISP rigid format 1). A positive integer value of this parameter specifies the number of closest independent points to be used in the interpolation for computing stresses or strains/curvatures at grid points (only for TRIA1, TRIA2, QUAD1 and QUAD2 elements). A negative integer value or 0 specifies that all independent points are to be used in the interpolation. The default value is 0. NLOAD - optional in static analysis with cyclic symmetry (DISP rigid format 14). The integer value of this parameter is the number of static loading conditions. The default value is 1. NODJE - optional in all AERO rigid formats. A positive integer of this parameter indicates that user-supplied downwash matrices due to extra points are to be read from an external file via the INPUTT2 module in the rigid format. The default value is -1 when not needed. NSEGS - required in rigid formats using the cyclic symmetry feature (DISP rigid formats 14 and 15 and AERO rigid format 9). The integer value of this parameter is the number of identical segments in the structural model. NT - optional in static analysis with differential stiffness and static aerothermoelastic design/analysis of axial flow compressors (DISP rigid formats 4 and 16). The integer value of this parameter limits the cumulative number of iterations in both loops. The default value is 10 iterations. OFFSET - a user warning message will be printed if the offset length of a BAR element exceeds 15 percent of the bar length. This default value of 15 percent can be changed by a PARAM OFFSET card. OPT - optional in static and normal modes analyses (DISP rigid formats 1, 2, 3, 14, and 15). A positive integer value of this parameter causes both equilibrium and multipoint constraint forces to be calculated for the Case Control output request, MPCFORCE. A negative integer value of this parameter causes only the equilibrium force balance to be calculated for the output request. The default value is 0 which causes only the multipoint constraint forces to be calculated for the output request. P1, P2, and P3 - required in AERO rigid formats 10 and 11 when using NODJE parameter. See Section 5.5 for a description of these parameters which are required by the INPUTT2 module. The default values for P1, P2 and P3 are 0, 11 and XXXXXXXX, respectively. PGEOM - optional in static aerothermoelastic design/analysis of axial flow compressors (DISP rigid format 16). The integer value of this parameter specifies the punching of various bulk data cards. PGEOM = 1 causes the punching of GRID bulk data cards. PGEOM = 2 causes the punching of GRID, CTRIA2 and PTRIA2 bulk data cards. PGEOM = 3 causes the punching of GRID cards and the modified ALGDB table on DTI cards. The default value of -1 suppresses the punching of any of these cards. POSITION, UNITNUM, and USRLABEL - required in AERO rigid format 9 when using the NODJE parameter. See Section 5.5 for a description of these parameters which are required by the INPUTT2 module. The default values for POSITION, UNITNUM and USRLABEL are -1, 11 and TAPEID, respectively. PRINT - optional in modal flutter analyses (AERO rigid formats 9 and 10). The BCD value, NO, of this parameter suppresses the automatic printing of the flutter summary for the K method. The default value is YESB in AERO rigid format 9 and YES in AERO rigid format 10. Q - required in aeroelastic response (AERO rigid format 11). The real value of this parameter defines the dynamic pressure. RADLIN - optional in transient heat transfer analysis (HEAT rigid format 9). A positive integer value of this parameter causes some of the radiation effects to be linearized (see Equation 2, Section 8.4.2 of the Theoretical Manual). The default value is -1. SIGMA - optional in nonlinear static (HEAT rigid format 3) and transient (HEAT rigid format 9) heat transfer analyses. The real value of this parameter is the Stefan-Boltzman constant. The default value is 0.0. SIGN - optional in static aerothermoelastic design/analysis of axial flow compressors (DISP rigid format 16). The real value of this parameter controls the type of run being performed. SIGN = 1.0 specifies a standard analysis type run. SIGN = -1.0 specifies a design type run. The default value is 1.0. STRAIN - optional in DISP static analysis (DISP rigid format 1). This parameter controls the transformation of element strains/curvatures to the material coordinate system (only for TRIA1, TRIA2, QUAD1 and QUAD2 elements). If it is a positive integer, the strains/curvatures for these elements are transformed to the material coordinate system. If it is zero, strains/curvatures at the connected grid points are also computed in addition to the element strains/curvatures in the material coordinate system. A negative integer value results in no transformation of the strains/curvatures. The default value is -1. STREAML - optional in static aerothermoelastic design/analysis of axial flow compressors (DISP rigid format 16). The integer value of this parameter specifies the punching of various bulk data cards. STREAML = 1 causes the punching of STREAML1 bulk data cards. STREAML = 2 causes the punching of STREAML2 bulk data cards. STREAML = 3 causes both STREAML1 and STREAML2 cards to be punched. The default value of -1 suppresses the punching of any of these cards. STRESS - optional in DISP static analysis (DISP rigid format 1). This parameter controls the transformation of element stresses to the material coordinate system (only for TRIA1, TRIA2, QUAD1 and QUAD2 elements). If it is a positive integer, the stresses for these elements are transformed to the material coordinate system. If it is zero, stresses at the connected grid points are also computed in addition to the element stresses in the material coordinate system. A negative integer value results in no transformation of the stresses. The default value is -1. SURFACE - optional in all DISP and AERO rigid formats. The computations of the external surface areas for the two-dimensional and three-dimensional elements are activated by this parameter when they are generated in the EMG module. The results are multiplied by the real value of this parameter. See the VOLUME parameter below for the case where the surface areas are to be saved on an output file. The surface areas of the three-dimensional elements are defined as follows. SURFACE AREA NO. CORNER GRID POINTS USED Brick (8 or more grid points): 1 1, 2, 3, 4 2 1, 2, 6, 5 3 2, 3, 7, 6 4 3, 4, 8, 7 5 4, 1, 5, 8 6 5, 6, 7, 8 Wedge (6 grid points): 1 1, 2, 3 2 1, 2, 5, 4 3 2, 3, 6, 5 4 3, 1, 4, 6 5 4, 5, 6 Tetrahedron (4 grid points): 1 1, 2, 3 2 1, 2, 4 3 2, 3, 4 4 3, 1, 4 SYS21 - optional in DISP static analysis (DISP rigid format 1). This parameter, like the INTERACT parameter, is of relevance only when your primary purpose is to make interactive restart runs. In such a case, the integer value of this parameter must be set to -1 (via a PARAM bulk data card) in the interactive restart run (that follows a batch checkpoint run). If not so specified via a PARAM bulk data card, the COMPOFF and COMPON instructions in the DMAP sequence that use this parameter assume a value of 0 for this parameter (see Section 5.7). TABS - optional in nonlinear static (HEAT rigid format 3) and transient (HEAT rigid format 9) heat transfer analyses. The real value of this parameter is the absolute reference temperature. The default value is 0.0. VOLUME - optional in all DISP and AERO rigid formats. The volume computations for the two-dimensional and three-dimensional elements are activated by this parameter when they are generated in the EMG module. The results are multiplied by the real value of this parameter. If the 7th output data block of the EMG module is specified (via DMAP ALTER), the element IDs, volumes, surface areas (see the SURFACE parameter above), SIL, and grid point coordinates are saved in the data block, a GINO-written file. If the 7th output data block is one of the INPi (i=1,2,3,...,9,T) files, the same element data is saved on a FORTRAN (binary)-written file. The following table summarizes the data being saved. RECORD WORDS CONTENTS 0 1,2 Header record, begins with GINO BCD name 3-34 Title, BCD 35-66 Sub-title, BCD 67-98 Label, BCD 99-101 Date, BCD 1 1,2 Element name of the first element, BCD 3 Element ID, integer 4 Volume (multiplied by scale factor n), or zero, real 5 (No. of surfaces)*100 + (No. of grid points), integer 6 Surface area of first surface, real : 5+N Surface area of N-th surface, real 5+N+1 SIL of the first grid point, integer 5+N+2,3,4 x,y,z coordinates of the first grid point, real : Repeat last 4 words for other grid points 2 A record similar to record 1 for the second element : : LAST Last record (for the last element). The trailer of the output data block has the following information: Word 1 = LAST (No. of records written, header excluded), Words 2 through 6 contain no useful information. VREF - optional in modal flutter analyses (AERO rigid formats 9 and 10). Velocities are divided by the real value of this parameter to convert units or to compute flutter indices. The default value is 1.0. W3 and W4 - optional in the direct formulation of DISP transient response problems (DISP rigid format 9). The real values (radians/unit time) of these parameters are used as pivotal frequencies for uniform structural damping and element structural damping, respectively (see Section 9.3.3 of the Theoretical Manual). Parameter W3 is required if uniform structural damping is desired. Parameter W4 is required if structural damping is desired for any of the structural elements. Parameter W3 should not be used for hydroelastic problems. WTMASS - optional in all DISP and AERO rigid formats. The terms of the structural mass matrix are multiplied by the real value of this parameter when they are generated in the EMA module. Not recommended for use in hydroelastic problems. Example Set double precision variable ABC to 1.23D+4 and add 5.6D-1 to it in the DMAP module PARAMD. Result in DEF. In executive control section, ALTER n $ PARAMD //*ADD*/V,N,DEF/V,Y,ABC/5.6D-1 $ ENDALTER $ In bulk data section, PARAM, ABC 1.23D+4 =PAGE= PBAR - Simple Beam Property Description Defines the properties of a simple beam (bar) which is used to create bar elements via the CBAR card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PBAR PID MID A I1 I2 J NSM abc Ĵ PBAR 39 6 2.9 5.97 123 Ŀ +bc C1 C2 D1 D2 E1 E2 F1 F2 def Ĵ +23 2.0 4.0 Ŀ +ef K1 K2 I12 Ĵ Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). A Area of bar cross-section (Real). I1, I2, I12Area moments of inertia (Real, I1I2 >= I212). J Torsional constant (Real). NSM Nonstructural mass per unit length (Real). K1, K2 Area factor for shear (Real). Ci, Di, Ei, Fi Stress recovery coefficients (Real). Remarks 1.For structural problems, PBAR cards may only reference MAT1 material cards. 2.See Section 1.3.2 for a discussion of bar element geometry. 3.For heat transfer problems, PBAR cards may only reference MAT4 or MAT5 material cards. 4.The quantities K1 and K2 are expressed as the relative amounts (0.0 to 1.0) of the total cross-sectional area contributing to the transverse shear stiffnesses (KAG) in the direction of the two principal axes. These quantities are ignored if I12 is non-zero. Defaults for K1 and K2 are: K1 = (12*E*I1)/(L*L*L); K2 = (12*EII2)/(L*L*L). =PAGE= PCOMP - Layered Composite Element Property Description Defines the properties of an n-ply laminated composite material. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PCOMP PID ZOC NSM SBOND FT LOPT abc Ĵ PCOMP 100 -0.5 1.5 5.+3 HOFF SYMMEM ABC Ŀ +bc MID1 T1 TH1 SOUT1 MID2 T2 TH2 SOUT2 def Ĵ +BC 150 0.05 90. YES -45. DEF Ŀ +ef MID3 T3 TH3 SOUT3 ..-etc.-. Ĵ +EF 45.0 ......... Field Contents PID Property identification number (1,000,000 > Integer > 0). ZOC Offset of the element reference plane (element bottom surface) from the plane of grid points (Real or blank; see Guidelines below). NSM Non-structural mass per unit area (Real). SBOND Allowable shear stress of the bonding material. (Real > 0.0 or blank) Required if failure theory is used. (See Guidelines.) FT Failure theory, one of the strings HILL, HOFF, TSAI, STRESS, or STRAIN. See Remark 4. (BCD or blank). LOPT Lamination generation option, one of the strings ALL, SYM, MEM, or SYMMEM. See Remark 5. (BCD or blank). Default is ALL. MIDi Material identification number of the ith layer. (Integer > 0 or blank). Ti Thickness of the ith layer (Real > 0.0 or blank). THi Angle between the longitudinal direction of the fibers of the ith layer and the material X-axis. (Real or blank). SOUTi Stress output request for ith layer, one of the strings YES or NO. (Default is NO). Remarks 1. The plies are numbered from 1 to n beginning with the bottom layer. 2. The offset (ZOC) is not the same offset (ZO) used in the CQUAD4 and CTRIA3 cards. ZOC references to the bottom surface of the element. 3. SBOND is required if bonding material failure index calculations are desired. 4. The failure theory is used to determine the element failure on a ply-by-ply basis. The available theories are: HILL Hill Theory HOFF Hoffman Theory TSAI Tsai-Wu Theory STRESS Maximum Stress Theory STRAIN Maximum Strain Theory 5. To minimize input requirements several lamination options (LOPT) are available. ALL indicates that every ply is specified. SYM indicates that ply layup is symmetric about the center ply and that the plies on one side of the center line are specified. SYMMEM indicates a symmetric layup of membrane only plies. 6. The material properties, MIDi, may reference only MAT1, MAT2, and MAT8 Bulk Data entries. 7. If any of MIDi, Ti, or THi are blank, then the last non-blank values specified for each will be used to define the values for the ply. Guidelines for the Use of PCOMP, PCOMP1, and PCOMP2 (Excerpt from "QUAD4 SEMINAR", WPAFB, WRDC-TR-89-3046, revised April 1993) The purpose of PCOMP, PCOMP1, and PCOMP2 is to define element property parameters in modeling laminated plates including layered (fiber reinforced) composites. All three cards serve the same purpose except the options are different. If the layers are made of different materials and the thicknesses of the layers are all different, then the PCOMP card is appropriate. If all the layers are made of the same material and thickness, then PCOMP1 is appropriate. If the material is the same, but the thicknesses are different, then PCOMP2 is appropriate. The first two fields on the PCOMP cards need no further explanation. Parameter ZOC Parameter ZOC refers to the distance from the grid point surface to the bottom of the plate. The plate bottom surface is defined in the diagrams at the end of this section. It is the reference surface from which the stacking sequence of the laminates is defined. Parameters ZO defined on QUAD4 and PSHELL are a source of confusion sometimes. The offset parameters ZOC and ZO are not the same entities. Parameter SBOND The bonding material shear stress is indirectly related to the interlaminar shear and its value is generally empirical. A value of 400 to 500 psi for SBOND appears to be reasonable in the absence of a value obtained from experiments. Any approximation of this parameter will not affect the analysis results. If affects only the Tsai-Wu failure theory, which is basically a post-processing function. Parameters MIDi, Ti, THi, and SOUTi These parameters pertain to the ith layer. MID1 is the material identification number of the first layer. The layer count goes up from the bottom surface of the plate. The MIDi refers to one of three material cards: MAT1 for isotropic materials, MAT2 for anisotropic materials, and MAT8 for orthotropic materials. The parameter T1 defines the thickness of the first layer and TH1 refers to the orientation of the material axis with reference to the material axis defined on CQUAD4. SOUTi is the stress output parameter. Then the parameters are repeated for all the layers unless the symmetry option is used under parameter LOPT. If any MIDi, Ti, or THi are blank, then the last non-blank values specified for each will be used. Material Cards Isotropic and Anisotropic MAT1 and MAT2 Orthotropic Material MAT8 Most of the parameters on MAT8 are self explanatory, with the exceptions of G1Z and G2Z (fields 7 and 8). When these parameters are left blank, NASTRAN assumes that the material is infinitely stiff in transverse shear and thus overestimates the stiffness of the element. To avoid such overestimation, transverse shear values have to be provided. Values of about two or three orders of magnitude less than the modulus of elasticity of the material are recommended. =PAGE= PLAN VIEW: G4 G3 G3 G4 Ŀ Ŀ G1 G2 G2 G1 SIDE VIEW (PCOMP, PCOMP1, & PCOMP2): TOP BOTTOM Ŀ Ŀ CASE 1 -ZOC +ZOC BOTTOM TOP GRID PT SURFACE TOP BOTTOM Ŀ Ŀ CASE 2 -ZOC (DEFAULT) G.P. SURFACE -ZOC BOTTOM TOP GRID PT SURFACE CASE 3 +ZOC TOP BOTTOM -ZOC Ŀ Ŀ BOTTOM TOP =PAGE= PCOMP1 - Layered Composite Element Property Description Defines the properties of an n-ply laminated composite material where all plies are composed of the same material and are of equal thickness. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PCOMP1 PID ZOC NSM SBOND FT MID TPLY LOPT abc Ĵ PCOMP1 100 -0.5 1.7 5.+3 STRAIN 200 0.25 SYM ABC Ŀ +bc TH1 TH2 TH3 TH4 TH5 ..-etc.-. Ĵ +EF -45.0 45.0 90.0 90.0 45.0 Field Contents PID Property identification number (1,000,000 > Integer > 0). ZOC Offset of the element reference plane (element bottom surface) from the plane of grid points (Real or blank; see Guidelines in PCOMP card). NSM Non-structural mass per unit area (Real). SBOND Allowable shear stress of the bonding material (Real > 0.0) (See Guidelines in PCOMP). FT Failure theory, one of the strings HILL, HOFF, TSAI, STRESS, or STRAIN. See Remark 4. MID Material identification number for all layers (Integer > 0). LOPT Lamination generation option, one of the strings ALL, SYM, MEM, or SYMMEM. See Remark 5. TPLY Thickness of all layers (Real > 0.0 or blank). THi Angle between the longitudinal direction of the fibers of the ith layer and the material X-axis (Real or blank). Remarks 1.The plies are numbered from 1 to n beginning with the bottom layer. 2.The offset (ZOC) is not the same offset (ZO) used in the CQUAD4 and CTRIA3 cards. ZOC references the bottom surface of the element. 3.SBOND is required if bonding material failure index calculations are desired. 4.The failure theory is used to determine the element failure on a ply-by-ply basis. The available theories are: HILL Hill Theory HOFF Hoffman Theory TSAI Tsai-Wu Theory STRESS Maximum Stress Theory STRAIN Maximum Strain Theory 5.To minimize input requirements several lamination options (LOPT) are available. ALL indicates that every ply is specified. SYM indicates that ply layup is symmetric about the center ply and that the plies on one side of the center line are specified. SYMMEM indicates a symmetric layup of membrane only plies. 6.The material property, MID, may reference only MAT1, MAT2, and MAT8 Bulk Data entries. 7.See "Guidelines for the Use of PCOMP, PCOMP1, and PCOMP2" in PCOMP card. =PAGE= PCOMP2 - Layered Composite Element Property Description Defines the properties of an n-ply laminated composite material where all plies are composed of the same material. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PCOMP2 PID ZOC NSM SBOND FT MID LOPT abc Ĵ PCOMP2 100 -0.5 1.7 5.+3 TSAI 200 SYM ABC Ŀ +bc T1 TH1 T2 TH2 T3 TH3 .-etc.-. Ĵ +EF 0.25 -45.0 0.5 90.0 0.25 45.0 ........ Field Contents PID Property identification number (1,000,000 > Integer > 0). ZOC Offset of the element reference plane (element bottom surface) from the plane of grid points (Real or blank; see Guidelines in PCOMP card). NSM Non-structural mass per unit area (Real). SBOND Allowable shear stress of the bonding material (Real > 0.0) (See Guidelines in PCOMP). FT Failure theory, one of the strings HILL, HOFF, TSAI, STRESS, or STRAIN. See Remark 4. MID Material identification number for all layers (Integer > 0 or blank). LOPT Lamination generation option, one of the strings ALL, SYM, MEM, or SYMMEM. See Remark 5. Ti Thickness of the ith layer (Real > 0.0 or blank). THi Angle between the longitudinal direction of the fibers of the ith layer and the material X-axis (Real or blank). Remarks 1.The plies are numbered from 1 to n beginning with the bottom layer. 2.The offset (ZOC) is not the same offset (ZO) used in CQUAD4 and CTRIA3 cards. ZOC references to the bottom surface of the element. 3.SBOND is required if bonding material failure index calculations are desired. 4.The failure theory is used to determine the element failure on a ply-by-ply basis. The available theories are: HILL Hill Theory HOFF Hoffman Theory TSAI Tsai-Wu Theory STRESS Maximum Stress Theory STRAIN Maximum Strain Theory 5.To minimize input requirements several lamination options (LOPT) are available. ALL indicates that every ply is specified. SYM indicates that ply layup is symmetric about the center ply and that the plies on one side of the center line are specified. SYMMEM indicates a symmetric layup of membrane only plies. 6.The material property, MID, may reference only MAT1, MAT2, and MAT8 Bulk Data entries. 7.If any of the Ti or THi are blank, then the last non-blank values specified for each will be used to define the values for the ply. 8.See "Guidelines for the Use of PCOMP, PCOMP1, and PCOMP2" in PCOMP card. =PAGE= PCONEAX - Conical Shell Element Property Description Defines the properties of a conical shell element described on a CCONEAX card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PCONEAX ID MID1 T1 MID2 I MID3 T2 NSM +abc Ĵ PCONEAX 2 4 1.0 6 16.3 8 2.1 0.5 +1 Ŀ +abc Z1 Z2 PHI1 PHI2 PHI3 PHI4 PHI5 PHI6 +def Ĵ +1 0.001 -0.002 23.6 42.9 +2 Ŀ +def PHI7 PHI8 PHI9 PHI10 PHI11 PHI12 PHI13 PHI14 Ĵ +2 Field Contents ID Property identification number (Unique Integer > 0). MIDi Material identification number for membrane, bending, and transverse shear (Integer >= 0). T1, T2 Membrane thickness and transverse shear thickness (Real > 0.0 if MIDi not equal 0). I Moment of inertia per unit width (Real). NSM Nonstructural mass per unit area (Real). Z1, Z2 Fiber distances for stress recovery (Real). PHIi Azimuthal coordinates (in degrees) for stress recovery (Real). Remarks 1.This card is allowed if and only if an AXIC card is also present. 2.PCONEAX cards may only reference MAT1 material cards. 3.If either MID1 = 0 or blank or T1 = 0.0 or blank, then both must be zero or blank. 4.If either MID2 = 0 or blank or I = 0.0 or blank, then both must be zero or blank. 5.If either MID3 = 0 or blank or T2 = 0.0 or blank, then both must be zero or blank. 6.A maximum of 14 azimuthal coordinates for stress recovery may be specified. An error will be detected if more than two continuation cards appear. 7.For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. =PAGE= PDAMP - Scalar Damper Property Description Used to define the damping value of a scalar damper element which is defined by means of the CDAMP1 or CDAMP3 cards. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PDAMP PID B PID B PID B PID B Ĵ PDAMP 14 -2.3 2 6.1 Field Contents PID Property identification number (Integer > 0). B Value of scalar damper (Real). Remarks 1.This card defines a damper value. Be careful when using negative damper values. Damper values are defined directly on the CDAMP2 and CDAMP4 cards. A structural viscous damper, CVISC, may also be used for geometric grid points. 2.Up to four damper properties may be defined on a single card. 3.For a discussion of scalar elements, see Section 5.6 of the Theoretical Manual. =PAGE= PDUMi - Dummy Element Property Description Defines the properties of a dummy element (1 <= i <= 9). Referenced by the CDUMi card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PDUMi PID MID A1 A2 -etc.- abc Ĵ PDUM3 108 2 2.4 9.6 1.E4 15. 3.5 ABC Ŀ +bc -etc.- AN Ĵ +BC 5 2 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). A1...AN Additional entries (Real or Integer). Remarks 1.The additional entries are defined in your element routines. =PAGE= PELAS - Scalar Elastic Property Description Used to define the stiffness, damping coefficient, and stress coefficient of a scalar elastic element (spring) by means of the CELAS1 or CELAS3 card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PELAS PID K GE S PID K GE S Ĵ PELAS 7 4.29 0.06 7.92 27 2.17 0.0032 Field Contents PID Property identification number (Integer > 0). K Elastic property value (Real). GE Damping coefficient, ge (Real). S Stress coefficient (Real). Remarks 1.Be careful using negative spring values. (Values are defined directly on some of the CELASi card types.) 2.One or two elastic spring properties may be defined on a single card. 3.For a discussion of scalar elements, see Section 5.6 of the Theoretical Manual. =PAGE= PELBOW - Curved Beam or Elbow Property Description Defines the properties of a curved beam or elbow element which is used to create curved pipe or beam elements via the CELBOW card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PELBOW PID MID A I1 I2 J NSM +abc Ĵ PELBOW 2 6061 16.0 211.0 211.0 422.0 6.0 +P1 Ŀ +abc r1 1 r2 2 r3 3 r4 4 +def Ĵ +P1 5.3 0.0 5.3 90.0 5.3 180.0 5.3 270.0 +P2 Ŀ +def K1 K2 C Kx Ky Kz R Ĵ +P2 2.0 2.0 1.0 1.0 5.76 5.76 15.0 90.0 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). A Area of cross section (Real > 0.0). I1 Area moment of inertia in Plane 1 (Real). I2 Area moment of inertia in Plane 2 (Real). J Torsional constant (Real). NSM Nonstructural mass per unit length (Real). ri, i Stress recovery coefficients (Real, in degrees) (See Figure 2.4- 45.) K1, K2 Area factors for shear (Real). C Stress intensification factor (Real). Kx, Ky, KzFlexibility correction factors (Real). R Radius of curvature of the element (Real > 0.0). Angle, in degrees, from GA to GB (Real, 0. < < 180.) (See Figure 2.4-45.) Remarks 1.For structural problems, PELBOW may only reference MAT1 cards. 2.For APP HEAT problems, PELBOW cards may only reference MAT4 or MAT5 material cards. 3.The product moment of inertia is zero (I12 = 0). This assumes that at least one axis of symmetry of the element cross section exists, for example, tube, I-beam, channel, tee, etc. 4.See Section 1.3.2.2 for a discussion of the stress correction factor and the flexibility correction factors. Tb \ Fxb \ . M2b \. GB . . V2 Plane 2 V1b. . M1b Stress Recovery . Ze Location . Xe / . -> ri/ C . Ye v GA / .* / i \ M2a ij V1a Xe Plane 1 \ Fxa Center of Curvature Ta Element Local Coordinate System Element Cross-Section Figure 2.4-45. PELBOW diagram =PAGE= PERMBDY - Permeability Boundary Description Specifies grid points on boundaries of dissimilar magnetic permeability. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PERMBDY G1 G2 G3 G4 G5 G6 G7 G8 +a Ĵ PERMBDY 1 5 7 8 10 12 20 25 +A Ŀ +a G9 G10 G11 G12 G13 G14 G15 G16 +b Ĵ +A 30 40 ENDT Field Contents Gi Grid point identification numbers (Integers > 0). Remarks 1.There may be only one PERMBDY card. 2.The grid points on PERMBDY are those points which are on boundaries between elements of differing magnetic permeability. 3.The PERMBDY card is not required, but its use is recommended. See Section 1.15.4.4 for more details. =PAGE= PFTUBE - Fluid Tube Property Description Defines the parameter for the fluid tube element of the heat transfer model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PFTUBE PID CP VOLRT D1 D2 Ĵ PFTUBE 5 1.3 8.0 1.0 1.25 Field Contents PID Property identification number (Integer > 0). CP Heat capacity per unit volume (Real > 0). VOLRT Volume flow rate (Real >= 0). D1 Diameter at inlet (Real > 0). D2 Diameter at outlet (Real > 0 or blank). If blank, the value D1 will be used. Remarks 1.The FTUBE element transports energy at the rate: Power = CP * VOLRT * U inlet The heat capacity is given by: Energy = [ * CP * (D1+D2)**2 * L /32] *(U +U ) 1 2 where L is the distance between the connected grid points. =PAGE= PHBDY - Property of Heat Boundary Element Description Defines the properties of the HBDY element. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PHBDY PID MID AF E ALPHA R1 R2 Ĵ PHBDY 100 103 300. .79 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0 or blank), used for convective film coefficient and thermal capacity. AF Area factor (Real >= 0.0 or blank). Used only for HBDY types POINT, LINE, and ELCYL. E Emissivity (0.0 <= Real <= 1.0 or blank). Used only for radiation calculations. ALPHA Absorbtivity (0.0 <= Real <= l.0 or blank). Used only for thermal vector flux calculations; default value is E. R1, R2 Radii of elliptic cylinder. Used for HBDY type ELCYL. See the HBDY element description. (Real). Remarks 1.The referenced material ID must be on a MAT4 card. The card defines the convective film coefficient and thermal capacity per unit area. If no material is referenced the element convection and heat capacity are zero. 2.The area factor AF is used to determine the effective area. For a POINT, AF = area; for LINE or ELCYL, AF = effective width where area = AF*length. For FTUBE, AF = (R1 + R2)(length). The effective area is automatically calculated for other HBDY types. =PAGE= PIHEX - Isoparametric Hexahedron Property Description Defines the properties of an isoparametric solid element, including a material reference and the number of integration points. Referenced by the CIHEX1, CIHEX2, and CIHEX3 cards. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PIHEX PID MID CID NIP AR ALFA BETA Ĵ PIHEX 15 3 3 5.0 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). CID Identification number of the coordinate system in which the material referenced by MID is defined (Integer >= 0 or blank). NIP Number of integration points along each edge of the element (Integer = 2, 3, 4, or blank). AR Maximum aspect ratio (ratio of longest to shortest edge) of the element (Real > 1.0 or blank). ALFA Maximum angle in degrees between the normals of two subtriangles comprising a quadrilateral face (Real, 0.0 <= ALFA <= 180.0, or blank). BETA Maximum angle in degrees between the vector connecting a corner point to an adjacent midside point and the vector connecting that midside point and the other midside or corner point (Real, 0.0 <= BETA <= 180.0, or blank). Remarks 1.All PIHEX cards must have unique identification numbers. 2.The default for NIP is 2 for IHEX1 and 3 for IHEX2 and IHEX3. 3.AR, ALFA, and BETA are used for checking the geometry of the element. The defaults are: AR ALFA BETA (degrees) (degrees) CIHEX1 5.0 45.0 -- CIHEX2 10.0 45.0 45.0 CIHEX3 15.0 45.0 45.0 4.If CID = 0 or blank, MID must reference a MAT1 card. If CID > 0, MID must reference a MAT6 card (with or without reference to a MATT6 card). 5.If CID > 0, it must reference a rectangular coordinate system defined by a CORD1R or CORD2R card. (If a CORD2R card is used, the RID on that card must be 0 or blank.) Consequently, if MAT6 properties are to reference the basic coordinate system, a CORD1R or CORD2R card must be present to represent the basic coordinate system. 6.Non-zero CIDs on different PIHEX cards must be unique and must reference unique MAT6 MIDs. 7.If a MAT6 card is in the Bulk Data Deck, then it must be referenced on some PIHEX card and the following DMAP ALTER must be inserted following functional module GP1 in the rigid format DMAP sequence: ANISOP GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $ EQUIV MPTA,MPT/ISOP $ 8.The restrictions represented by Remarks 4 through 7 above are expected to be removed in a future release of NASTRAN. =PAGE= PIS2D8 - Quadratic Isoparametric Element Property Description Used to define the properties of a quadriparabolic isoparametric membrane element. Referenced by the CIS2D8 card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PIS2D8 PID MID T Ĵ PIS2D8 2 1 0.5 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). T Thickness of membrane (Real). Remarks 1.All PIS2D8 cards must have unique property identification members. 2.The material property identification number must reference only a MAT1 or MAT2 card. =PAGE= PLFACT - Piecewise Linear Analysis Factor Definition Description Defines scale factors for piecewise linear analysis loading. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PLFACT SID B1 B2 B3 B4 B5 B6 B7 +abc Ĵ PLFACT 6 0.2 0.3 0.4 0.5 0.6 0.7 0.8 ABC Ŀ +abc B8 B9 -etc.- Ĵ +BC 0.9 1.0 Field Contents SID Unique set identification number (Integer > 0). Bi Loading factor (Real). Remarks 1.The remainder of the physical card containing the last entry must be null. 2.At any stage of the piecewise linear analysis, the accumulated load is given by {P } = B {P} i i where {P} is the total load defined in the usual way. Example: If it were desired to load the structure in ten equally spaced load increments then one would set B = 0.1 * i ; i = 1, 10 i 3.Normally, the Bi form a monotonically increasing sequence. A singular stiffness matrix will result if Bi = Bi-1. 4.At least two factors must be defined. 5.Piecewise linear analysis factor sets must be selected in the Case Control Deck (PLCOEFF = SID) to be used by NASTRAN. =PAGE= PLIMIT - Property Optimization Limits Description Defines the maximum and minimum limits for ratio of new property to original property. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PLIMIT ELTYP KMIN KMAX PID1 PID2 PID3 PID4 PID5 +abc Ĵ PLIMIT ROD .01 1.5 1 3 5 4 2 +ABC Ŀ +bc PID6 -etc.- Ĵ +BC -etc.- Alternate Form: Ŀ PLIMIT ELTYP KMIN KMAX PID1 "THRU" PIDi Ĵ PLIMIT ALL .001 0.05 30 THRU 36 Field Contents ELTYP One of the following element types: ROD, TUBE, BAR, TRMEM, QDMEM, TRPLT, QDPLT,TRBSC, TRIAl, QUAD1, TRIA2, QUAD2, SHEAR, or ALL or blank. KMIN Minimum property ratio (Real > 0.0 or blank). KMAX Maximum property ratio (Real > KMIN or = 0.0 or blank). PIDn List of property identification numbers associated with KMIN and/or KMAX (Integer > 0). Remarks 1.This card is not required (default KMIN = KMAX = 0.0 for ALL elements). 2.All PID values must be unique for each element type. 3.All elements with the same property identification number in the output stress data block, OES1, have these limits applied if ALL is specified. 4.Property entries optimized depend on the element type and material stress limits. Only nonzero properties with nonzero stress limits are optimized. 5.If KMAX = 0.0, no limit is placed on the maximum change. 6.If ELTYP is blank, ALL is assumed. 7.One of KMIN or KMAX may be blank but not both. =PAGE= PLOAD - Static Pressure Load Description Defines a static pressure load. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PLOAD SID P G1 G2 G3 G4 Ĵ PLOAD 1 -4.0 16 32 11 Field Contents SID Load set identification number (Integer > 0). P Pressure (Real). G1,...,G4 Grid point identification numbers (Integer > 0; G4 may be zero). Remarks 1.Grid points must be unique and noncollinear. 2.If four grid points are given, four triangles are formed and half of P is applied to each one. For each triangle the direction is defined by -> -> +(r X r ) 12 13 where ij is the vector from Gi to Gj. 3.If three grid points are given, the pressure load is evenly distributed to the three grid points. The geometry of the triangle is not considered. 4.Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. =PAGE= PLOAD2 - Pressure Load Description Defines a uniform static pressure load applied to two-dimensional elements. Only QUAD1, QUAD2, QUAD4, QDMEM, QDMEM1, QDMEM2, QDPLT, SHEAR, TRBSC, TRIA1, TRIA2, TRIA3, TRMEM, TRPLT, or TWIST elements may have a pressure load applied to them via this card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PLOAD2 SID P EID EID EIDm "THRU" EIDn EID abc Ĵ PLOAD2 21 -3.6 1 4 16 THRU 22 98 ABC Ŀ +bc EID -etc.- def Ĵ +BC 127 -etc.- Field Contents SID Load set identification number (Integer > 0). P Pressure value (Real). EID,EIDm,EIDn Element identification numbers (Integer > 0; EIDm < EIDn). Remarks 1.EID must be 0 or blank for omitted entries. 2.Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 3.At least one positive EID must be present on each PLOAD2 card. 4.The pressure load is computed for each element as if the grid points to which the element is connected were specified on a PLOAD card. The grid point sequence specified on the element connection card is assumed for the purpose of computing pressure loads. 5.All elements referenced must exist. 6.EID may be specified as individual references or as sequential lists (THRU sequences) and the two methods may be used interchangeably. The only restriction is that integer values must appear in fields 4 and 9 on the PLOAD2 card and in fields 2 and 9 on each continuation card (if all fields are used). 7.When the 88th word of SYSTEM is set to zero (the default), the PLOAD2 pressure load is evenly distributed to the 3 corner grid points for all triangular elements. (That is, no element geometry is considered.) However, the distribution of the PLOAD2 pressure load on the quadrilateral elements is affected by the element geometry. If the 88th word of SYSTEM is set to 1, then the load is distributed in proportion to the angle at each grid for the element. =PAGE= PLOAD3 - Pressure Load on a Face of an Isoparametric Element Description Defines a uniform static pressure load applied to a surface of an isoparametric hexahedron element only. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PLOAD3 SID P EID1 G11 G12 EID2 G21 G22 Ĵ PLOAD3 3 -15.1 15 7 25 16 117 135 Field Contents SID Load set identification number (Integer > 0). P Pressure value (Real, force per unit area). EID1, EID2Element identification number (Integer > 0). G11,G12; G21,G22 Grid point identification number of two grid points at diagonally opposite corners of the face on which the pressure acts (Integers > 0). Remarks 1.Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 2.At least one EID must be present on each PLOAD3 card. 3.All elements referenced must exist. 4.Computations consider the pressure to act positive outward on specified face of element. =PAGE= PLOAD4 - Pressure Loads on Face of Structural Elements Description Defines a load on a face of a QUAD4 or CTRIA3 element. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PLOAD4 SID EID P1 P2 P3 P4 abc Ĵ PLOAD4 101 2043 15. 18. 23.6 ABC Ŀ +bc CID N1 N2 N3 Ĵ +BC 52 1.0 0. 0. Alternate Form 1: Ŀ PLOAD4 SID E1 P1 P2 P3 P4 "THRU" E2 ghi Ĵ PLOAD4 1001 452 105. THRU 568 GHI Ŀ +hi CID N1 N2 N3 Ĵ +HI 2375 0. 1. 1. Alternate Form 2: Ŀ PLOAD4 SID P1 EID Ĵ PLOAD4 101 15. 2042 Alternate Form 3: Ŀ PLOAD4 SID P1 E1 "THRU" E2 Ĵ PLOAD4 1001 105. 452 THRU 568 Field Contents SID Load set identification number (Integer > 0). EID, E1, E2Element identification number (Integer > 0, E1 < E2). Pi Pressure at the grid point defining the element face (Real or blank). CID Coordinate system identification number (Integer >= 0). Ni Components of a vector in system CID that defines the direction (but not the magnitude) of the pressure (Real). Remarks 1.For the plate elements QUAD4 and TRIA3, if the continuation entry is not given, the direction of the pressure is normal to the element in the element Z direction, according to the right-hand-rule. If only P1 is given, the pressure is assumed to be uniform over the element surface. 2.If the loaded surface of an element is curved, and a direction vector is not specified, the direction of the pressure may vary over the surface. The pressure intensity is the load per unit surface area. 3.Equivalent grid point loads are computed. A uniform pressure need not result in equal grid point loads. 4.P4 is not used for plate element TRIA3. 5.Alternate Forms 2 and 3 are intended for quick conversion of PLOAD2 cards to PLOAD4. The continuation cards, not shown above, can also be used. 6.When PLOAD4 is applied to a surface, different resulting forces may exist if the surface is covered by QUAD4 elements or by TRIA3 elements. For example, if 12 psi is applied normal to a unit surface ABCD as shown, the resulting forces at four corners are tabulated as follows. D C D C D C Ŀ Ŀ Ŀ . . . . . . . . A B A B A B ONE QUAD4 TWO TRIA3 TWO TRIA3 FORCES, LB. AT POINT ELEMENT(S) A B C D ONE QUAD4 A-B-C-D +3 +3 +3 +3 ONE QUAD4 A-D-C-B -3 -3 -3 -3 TWO TRIA3 A-B-C, C-D-A +4 +2 +4 +2 TWO TRIA3 A-B-C, D-C-A 0 +2 0 +2 TWO TRIA3 B-A-C, D-C-A 0 -2 0 -2 TWO TRIA3 B-A-C, C-D-A -4 -2 -4 -2 TWO TRIA3 A-B-D, C-D-B +2 +4 +2 +4 TWO TRIA3 A-B-D, D-C-A +2 0 +2 0 TWO TRIA3 B-A-D, D-C-B -2 -4 -2 -4 TWO TRIA3 B-A-D, C-D-B -2 0 -2 0 =PAGE= PLOTEL - Dummy Element Definition Description Defines a dummy one-dimensional element for use in plotting. This element is not used in the model during any of the solution phases of a problem. It is used to simplify plotting of structures with large numbers of collinear grid points where the plotting of each one along with the elements connecting them would result in a confusing plot. The use of this "element" is entirely your responsibility. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PLOTEL EID G1 G2 EID G1 G2 Ĵ PLOTEL 29 35 16 Field Contents EID Element identification number (Integer > 0). G1, G2 Grid point identification numbers of connection points (Integer > 0; G1 not equal G2). Remarks 1.Each element identification number must be unique with respect to all other element identification numbers. 2.One or two PLOTEL elements may be defined on a single card. =PAGE= PMASS - Scalar Mass Property Description Used to define the mass value of a scalar mass element which is defined by means of the CMASS1 or CMASS3 cards. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PMASS PID M PID M PID M PID M Ĵ PMASS 7 4.29 6 13.2 Field Contents PID Property identification number (Integer > 0). M Value of scalar mass (Real). Remarks 1.This card defines a mass value. Be careful when using negative mass values. (Values are defined directly on some of the CMASSi card types.) 2.Up to four mass properties may be defined by this card. 3.For a discussion of scalar elements, see Section 5.6 of the Theoretical Manual. =PAGE= POINTAX - Axisymmetric Point Description Defines the location of a point on an axisymmetric ring at which loads may be applied via the FORCE, FORCEAX, MOMENT, or MOMAX cards and at which displacements may be requested. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ POINTAX ID RID PHI Ĵ POINTAX 2 3 30.0 Field Contents ID Point identification number (Unique Integer > 0). RID Identification number of a RINGAX card (Integer > 0). PHI Azimuthal angle in degrees (Real). Remarks 1.This card is allowed if and only if an AXIC card is also present. 2.Each POINTAX identification number must be unique with respect to all other POINTAX, RINGAX, and SECTAX identification numbers. 3.These points are not subject to constraints via MPCAX, SPCAX, or OMITAX card. 4.For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. 5.For a discussion of the axisymmetric solid problem, see Section 5.11 of the Theoretical Manual. =PAGE= POPT - Property Optimization Parameter Description Defines the basic parameters and existence of a property optimization analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ POPT MAX EPS GAMA PRINT PUNCH Ĵ POPT 2 1.0E-3 0.9 2 NO Field Contents MAX Maximum number of iterations on property values (Integer > 0). EPS Convergence criteria for property value. If zero, no convergence check (Real >= 0.0). GAMA Iteration factor (Default = 1.0) (Real > 0.0). PRINT Print control for property parameters and OFP. Printout occurs every Ith loop.The first and last loops are always printed (Integer > 0). PUNCH Property card punch option. If YES, properties that were optimized are punched (BCD, YES or NO). Remarks 1.Only one POPT card is allowed. 2.All subcases will be analyzed MAX+1 times unless all properties converge. 3.Property convergence is defined by - l < EPS l where is the maximum stress and l is the appropriate stress limit on the material card. 4.Stress recovery must be requested for one of the following elements: BAR, ELBOW, IS2D8, QDMEM, QDMEM1, QDMEM2, QDPLT, QUAD1, QUAD2, ROD, SHEAR, TRBSC, TRIA1, TRIA2, TRIM6, TRMEM, TRPLT, or TUBE. In addition, the material card must have stress limits defined. 5.Property cards are always printed for the last iteration. 6.The property entry optimized depends on the element type and the material stress limits (see Section 1.13). =PAGE= PPSE - Pressure Stiffness Element Property Description Defines properties of a pressure stiffness element. Referenced by the CPSE2, CPSE3, and CPSE4 cards. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PPSE PID P1 P2 P3 P4 Ĵ PPSE 1 500 Field Contents PID Property identification number (Integer > 0). P1...P4 Applied pressure load, real. Remarks 1.All PPSE cards must have unique identification numbers. 2.P1 is the value of the applied pressure load. P2, P3, and P4 are reserved for possible future use with the CPSE2, CPSE3, and CPSE4 elements. 3.P1 is the pressure force per unit length for the CPSE2 element, that is, lb/in. P1 is the pressure force per unit area for the CPSE3 and CPSE4 elements, that is, psi. 4.See Remarks for the CPSEi elements. =PAGE= PQDMEM - Quadrilateral Membrane Property Description Used to define the properties of a quadrilateral membrane. Referenced by the CQDMEM card. No bending properties are included. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PQDMEM PID MID T NSM PID MID T NSM Ĵ PQDMEM 235 2 0.5 0.0 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). T Thickness of membrane (Real > 0.0). NSM Nonstructural mass per unit area (Real). Remarks 1.All PQDMEM cards must have unique property identification numbers. 2.One or two quadrilateral membrane properties may be defined on a single card. =PAGE= PQDMEM1 - Isoparametric Quadrilateral Membrane Property Description Used to define the properties of an isoparametric quadrilateral membrane. Referenced by the CQDMEM1 card. No bending properties are included. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PQDMEM1 PID MID T NSM PID MID T NSM Ĵ PQDMEM1 235 2 0.5 0.0 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). T Thickness of membrane (Real > 0.0). NSM Nonstructural mass per unit area (Real). Remarks 1.All PQDMEM1 cards must have unique property identification numbers. 2.One or two isoparametric quadrilateral membrane properties may be defined on a single card. =PAGE= PQDMEM2 - Quadrilateral Membrane Property Description Used to define the properties of a quadrilateral membrane. Referenced by the CQDMEM2 card. No bending properties are included. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PQDMEM2 PID MID T NSM PID MID T NSM Ĵ PQDMEM2 235 2 0.5 0.0 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). T Thickness of membrane (Real > 0.0). NSM Nonstructural mass per unit area (Real). Remarks 1.All PQDMEM2 cards must have unique property identification numbers. 2.One or two quadrilateral membrane properties may be defined on a single card. =PAGE= PQDPLT - Quadrilateral Plate Property Description Used to define the bending properties of a quadrilateral plate element. Referenced by the CQDPLT card. No membrane properties are included. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PQDPLT PID MID1 I MID2 T NSM Z1 Z2 Ĵ PQDPLT 16 23 4.29 16 2.63 1.982 0.05 -0.05 Field Contents PID Property identification number (Integer > 0). MID1 Material identification number for bending (Integer > 0). I Bending area moment of inertia per unit width (Real). MID2 Material identification number for transverse shear (Integer >= 0). T Transverse shear thickness (Real). NSM Nonstructural mass per unit area (Real). Z1, Z2 Fiber distances for stress computation, positive according to the right-hand sequences defined on the CQDPLT card (Real). Remarks 1.All PQDPLT cards must have unique property identification numbers. 2.If T is zero, the element is assumed to be rigid in transverse shear. 3.No structural mass is generated for this element. =PAGE= PQUAD1 - General Quadrilateral Element Property Description Defines the properties of a general quadrilateral element of the structural model, including bending, membrane, and transverse shear effects. Referenced by the CQUAD1 card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PQUAD1 PID MID1 T1 MID2 I MID3 T3 NSM abc Ĵ PQUAD1 32 16 2.98 9 6.45 16 5.29 6.32 WXYZ1 Ŀ +bc Z1 Z2 Ĵ +XYZ1 0.09 -0.06 Field Contents PID Property identification number (Integer > 0). MID1 Material identification number for membrane (Integer > 0). T1 Membrane thickness (Real). MID2 Material identification number for bending (Integer > 0). I Area moment of inertia per unit width (Real). MID3 Material identification number for transverse shear (Integer >= 0). T3 Transverse shear thickness (Real). NSM Nonstructural mass per unit area (Real). Z1, Z2 Fiber distances for stress computation, positive according to the right-hand sequence defined on the CQUAD1 card (Real). Remarks 1.All PQUAD1 cards must have unique property identification numbers. 2.If T3 is zero, the element is assumed to be rigid in transverse shear. 3.The membrane thickness, T1, is used to compute the structural mass for this element. =PAGE= PQUAD2 - Homogeneous Quadrilateral Property Description Defines the properties of a homogeneous quadrilateral element of the structural model, including bending, membrane and transverse shear effects. Referenced by the CQUAD2 card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PQUAD2 PID MID T NSM PID MID T NSM Ĵ PQUAD2 32 16 2.98 9.0 45 16 5.29 6.32 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). T Thickness (Real > 0.0). NSM Nonstructural mass per unit area (Real). Remarks 1.All PQUAD2 cards must have unique identification numbers. 2.The thickness used to compute membrane and transverse shear properties is T. 3.The area moment of inertia per unit width used to compute the bending stiffness is (T**3)/12. 4.Outer fiber distances of plus or minus T/2 are assumed. 5.One or two homogeneous quadrilateral properties may be defined on a single card. =PAGE= PRESAX - Axisymmetric Pressure Load Description Defines the static pressure loading for a model containing CCONEAX, CTRAPAX, or CTRIAAX elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PRESAX SID P RID1 RID2 PHI1 PHI2 Ĵ PRESAX 3 7.92 4 3 20.6 31.4 Field Contents SID Load set identification number (Integer > 0). P Pressure value (Real). RID1, RID2Ring identification numbers (see RINGAX card) (Integer > 0). PHI1, PHI2Azimuthal angles in degrees (Real, PHI1 not equal PHI2). Remarks 1.This card is allowed if and only if an AXIC card is also present. 2.Load sets must be selected in the Case Control Deck (LOAD = SID) in order to be used by NASTRAN. 3.For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. 4.For a discussion of the axisymmetric solid problem, see Section 5.11 of the Theoretical Manual. =PAGE= PRESPT - Fluid Pressure Point Description Defines the location of pressure points in the fluid for recovery of pressure data. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PRESPT IDF IDP IDP IDP Ĵ PRESPT 14 141 0.0 142 90.0 Field Contents IDF Fluid point (RINGFL) identification number (Integer > 0). IDP Unique pressure point identification number (Integer > 0). Azimuthal position on fluid point, referenced by IDF, in fluid coordinate system (Real). Remarks 1.This card is allowed only if an AXIF card is also present. 2.All pressure point identification numbers must be unique with respect to other scalar, structural, and fluid points. 3.The pressure points are used primarily for the identification of output data. They may also be used as points at which to measure pressure for input to control devices (see User's Manual, Section 1.7). 4.One, two, or three pressure points may be defined per card. 5.Output requests for velocity and acceleration of these degrees of freedom will result in derivatives of pressure with respect to time. =PAGE= PROD - Rod Property Description Defines the properties of a rod which is referenced by the CROD card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PROD PID MID A J C NSM Ĵ PROD 17 23 42.6 17.92 4.236 0.5 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). A Area of rod (Real). J Torsional constant (Real). C Coefficient to determine torsional stress (Real). NSM Nonstructural mass per unit length (Real). Remarks 1.PROD cards must all have unique property identification numbers. 2.For structural problems, PROD cards may only reference MAT1 material cards. 3.For heat transfer problems, PROD cards may only reference MAT4 or MAT5 cards. =PAGE= PROLATE - Prolate Spheroidal Surface Description Specifies a prolate spheroidal surface of the finite element model in magnetostatics problems. Format 1 2 3 4 5 6 7 8 9 10 Ŀ PROLATE A B NSEGS MSEGS NN NM G1 G2 +P1 Ĵ +P1 G3 G4 . . . . . . +P2 . . . . . . Ŀ +PN . . . ENDT Field Contents A Length of semi-major axis of generating ellipse (Real > 0.0). B Length of semi-minor axis of generating ellipse (Real > 0.0, B < A). NSEGS Number of segments in longitudinal direction (Integer > 2). MSEGS Number of segments in circumferential direction (Integer > 2). NN, NM Maximum n,m in series expansion (Integer, 1 < NM < NN < 30) (see Equation 10 in Section 1.15.3). G1 Grid point identification number at left end point (Integer > 0). G2 Grid point Identification number at right end point (Integer > 0). Gi, i >= 3Grid point identification numbers of points defining the prolate spheroidal surface (Integer > 0). Remarks 1.The major axis of the generating ellipse must lie on the X-axis of the basic coordinate system, the minor axis must lie on the Y-axis of the basic coordinate system, and the center of the ellipse must coincide with the origin of the basic coordinate system. YBASIC Z XBASIC YBASIC \ \ \ \ ZBASIC XBASIC 2.The ordering of the grid points on the PROLATE card is crucial and must conform to the order given in Figure 2.4-46 below (although the actual numbers will vary depending on the number of longitudinal segments). Note that the first set of grid points specified (starting with G3) corresponds to the start of the first circumferential segment, which must be in the X-Y plane at = 0 degree in the prolate spheroidal coordinate system. 3.The number of longitudinal segments must be the same for every circumferential segment. 4.The PROLATE computations are set up to handle either 180 degree or 360 degree modeling of the prolate spheroidal surface. The 180 degree modeling is assumed if Case Control card AXISYM contains SYMM or ANTI (with or without the ANOM option), indicating symmetry of the finite element model about the X-Y plane, and symmetry or antisymmetry, respectively of the source magnetic field and, therefore, of the anomaly potential, about the X-Y plane. 5.The total number of grid points on the PROLATE card must be (NSEGS-1)(MSEGS+1) + 2 if 180 degree modeling is used and (NSEGS-1)(MSEGS) + 2 if 360 degree modeling is used. 6.In 360 degree modeling, the grid points at 0 degrees (G3 through GN in the sketch) are also the grid points at 360 degrees. However, on the PROLATE card, this set of points must not be repeated. With 360 degree modeling, the final set of grid points on the PROLATE card must consist of those at the end of the (MSEGS-1)th segment. 7.Only one PROLATE card is allowed. Y G6. . G5. . G4. . B G3. .GN G1. .G2 X A Ĵ Figure 2.4-46. PROLATE diagram =PAGE= PSHEAR - Shear Panel Property Description Defines the elastic properties of a shear panel. Referenced by the CSHEAR card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PSHEAR PID MID T NSM PID MID T NSM Ĵ PSHEAR 13 2 4.9 16.2 14 6 4.9 14.7 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). T Thickness of shear panel (Real not equal 0.0). NSM Nonstructural mass per unit area (Real). Remarks 1.All PSHEAR cards must have unique identification numbers. 2.PSHEAR cards may only reference MAT1 material cards. 3.One or two shear panel properties may be defined on a single card. =PAGE= PSHELL - Shell Element Property Description Defines the membrane, bending, transverse shear, and coupling properties of the QUAD4 and CTRIA3 shell elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PSHELL PID MID1 T MID2 12I/T3 MID3 TS/T NSM abc Ĵ PSHELL 203 204 1.90 205 1.2 206 0.8 6.32 ABC Ŀ +bc Z1 Z2 MID4 MCSID SCSID ZO Ĵ +BC +.95 -.95 0 0 0.01 Field Contents PID Property identification number (Integer > 0). MID1 Material identification number for membrane (Integer > 0 or blank). T Default value for membrane thickness (Real > 0.0; see Guidelines). MID2 Material identification number for bending (Integer > 0 or blank). 12I/T3 Bending stiffness parameter (Real or blank, default = 1.0; see Guidelines). MID3 Material identification number for transverse shear (Integer > 0 or blank; must be blank unless MID2 > 0). TS/T Transverse shear thickness divided by membrane thickness (Real or blank; default = 0.833333; see Guidelines). NSM Nonstructural mass per unit area (Real). Z1, Z2 Fiber distances for stress computation. The positive direction is determined by the righthand rule and the order in which the grid points are listed on the connection entry. (Real or blank; defaults are -T/2 for Z1 and +T/2 for Z2.) MID4 Material identification number for membrane-bending coupling (Integer > 0 or blank; must be blank unless MID1 > 0 and MID2 > 0; may not equal MID1 or MID2.) MCSID Identification number of material coordinate system (Real or blank, or Integer > 0) (See Remark 10). SCSID Identification number of stress coordinate system (Real or blank, or Integer > 0) (See Remark 10). ZO Offset of the element reference plane (element mid-plane) from the plane of grid points. (Real or blank; default = .0. See Remark 11 and Guidelines in CQUAD4). Remarks 1. All PSHELL property entries must have unique identification numbers. 2. The structural mass is computed from the density using the membrane thickness and membrane material properties. 3. The results of leaving any MID field blank are: MID1 No membrane or coupling stiffness; no structural mass; no structural damping MID2 No bending, coupling, or transverse shear stiffness MID3 No transverse shear flexibility MID4 No membrane-bending coupling 4. The continuation entry is not required. 5. Structural damping, when needed, is obtained from the MID1 material. 6. The MID4 field should be left blank if the material properties are symmetric with the middle surface of the shell. 7. For structural problems, PSHELL entries may reference MAT1, MAT2, or MAT8 material property data. 8. If the transverse shear material, MID3, references MAT2 data, then G33 must be zero. If MID3 references MAT8 data, then G1,Z and G2,Z must not be zero. 9. For heat transfer problems PSHELL entries may reference MAT4 or MAT5 material property data. 10. If MCSID/SCSID is left blank (0.0) or is Real, it is considered to be the angle of rotation of the X axis of the material/stress coordinate system with respect to the X axis of the element coordinate system in the XY plane of the latter. If Integer, the orientation of the material/stress x-axis is along the projection of the x-axis of the specified coordinate system onto the x-y plane of the element system. The value of MCSID is the default value for the TM field on the CQUAD4 or CTRIA3 Bulk Data entries. 11. The value of ZO is the default value for the corresponding field on the CQUAD4 or CTRIA3 Bulk Data entries. Guidelines for the Use of PSHELL (Excerpt from "QUAD4 SEMINAR", WPAFB, WRDC-TR-89-3046, revised April 1993) PSHELL or PCOMP are the property cards referenced on the CQUAD4 (in field 3). PSHELL is to be used when the plate is not laminated (or layered), while PCOMP is for laminated plates. Only one of these is applicable for a given element. The diagram below illustrates key features of the elements described on the PSHELL card. It is a sandwich plate with two face sheets separated by a honeycomb core. Ŀ T/2 ///////////////////////////////// \ Ĵ \ \ TS HONEYCOMB CORE FACE SHEETS / Ĵ / T/2 ///////////////////////////////// / The first two fields of the PSHELL card are for the name and property identification called from CQUAD4. The third field, MID1, is the material identification number for the face sheets in membrane behavior. Parameter T is the total thickness of the two face sheets. MID2 is the material identification number for bending behavior, MID3 for shear, and MID4 for membrane-bending coupling. There are two types of membrane-bending coupling. The coupling resulting from asymmetry in plate construction (non-symmetric laminates) is called linear coupling. Nonlinear coupling, on the other hand, is a result of the interaction of internal forces such as inplane and out of plane (beam-column effect) forces. The latter coupling can be accounted for only in differential stiffness and/or buckling analysis. Parameter 12I/T3 (field 6) can be calculated by using the following definition for I: 1 T 3 T TS T 2 I = 2 ---(-) + -(-- + -) 12 2 2 2 4 I is basically the moment of inertia of the face sheets about the neutral axis (centroidal). It is assumed that the face sheets are symmetric about the neutral axis. If they are not, the moment of inertia about the neutral axis can be calculated. For solid plates this parameter is simply 1.0. The definition of parameter TS/T is obvious from the diagram. Parameters MCSID and SCSID refer to the material coordinate system. There are two options for this definition. By leaving the field blank or a real value the first option is invoked. In this option the parameter represents the angle between the side of the element connecting the grid points G1 and G2 and the material axis. The second option is an integer which refers to a coordinate system defined on a COORD card. The second option is the most desirable because the grid point sequence on the CQUAD4 card does not affect the material axis. Offset parameter ZO is the same as defined on CQUAD4. The entry on CQUAD4, however, overrides that on the PSHELL card. The PSHELL card provides the facility to model homogeneous as well as sandwich plates. However, the face sheets of the sandwich plates are assumed to be homogeneous (isotropic, orthotropic, or anisotropic) plates. Modeling sandwich plates with face sheets made of layered composites requires some additional effort. A two-step method involving a DMAP alter is recommended. Sandwich Plates with Composite Face Sheets Step 1: Modeling the face sheets with PCOMP cards, make a NASTRAN run with Rigid Format ALTER, and exit NASTRAN after EMG module, that is ALTER 39 $ reference 39 could change from solution to solution JUMP FINIS $ ENDALTER $ This run will put out an equivalent PSHELL card along with four MAT2 cards. Step 2: This step involves modification of the PSHELL cards generated in Step 1 and the introduction of a new MAT8 card. The PCOMP cards used in Step 1 must be eliminated from this Step 2 run. The property parameters G11, G22, and G12 from the first MAT2 card (output from Step 1 run) become E1, E2, and G12 on the new MAT8 card. The remaining parameters are defined as above. This new MAT8 card applies to both membrane and bending (MID1 and MID2) on the PSHELL card (also output from Step 1). The material identification MID3 on the PSHELL card refers to the shear behavior of the honeycomb core. This refers to a MAT1 card and with only shear modulus G defined. The Young's modulus E, the Poisson's ratio v, should be left blank. This requirement is mandatory when modeling a honeycomb core with MAT1 card; otherwise the results would be wrong. The shear modulus G for the honeycomb core should be obtained from honeycomb manufacturer's handbooks such as HEXCEL. In the absence of such information, an approximate G value of two to three orders of magnitude less than the modulus of elasticity E can be used. The other three MaT2 cards from Step 1 run are not used in Step 2, and can be discarded. Membrane, bending, and shear deformations are included even though only MID2 is specified. Membrane and bending behavior are computed by the material properties called from MID2. It is important to note that the shear deformation is computed by assuming a material infinitely stiff in transverse shear when the MID3 field is blank. The easiest way to avoid shear stiffness over-estimation is not to leave MID3 blank when MID2 is specified. =PAGE= PTORDRG - Toroidal Ring Property Description Used to define membrane and flexure (bending) properties of a toroidal ring element. Referenced by the CTORDRG card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTORDRG PID MID TM TF PID MID TM TF Ĵ PTORDRG 2 4 0.1 0.15 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). TM Thickness for membrane (Real > 0.0). TF Thickness for flexure (Real). Remarks 1.All PTORDRG cards must have unique property identification numbers. 2.The material identification number MID must reference only a MAT1 or MAT3 card. 3.One or two toroidal ring properties may be defined on a single card. =PAGE= PTRAPAX - Triangular Ring Element Property Description Defines the properties of an axisymmetric trapezoidal cross-section ring element referenced by the CTRAPAX card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTRAPAX PID MID PHI1 PHI2 PHI3 PHI4 PHI5 +abc Ĵ PTRAPAX 5 15 0.0 5.0 6.0 7.0 8.0 +N1 Ŀ +abc PHI6 PHI7 PHI8 PHI9 PHI10 PHI11 PHI12 PHI13 +def Ĵ +N1 9.0 10.0 15.0 20.0 25.0 30.0 35.0 40.0 +N2 Ŀ +def PHI14 Ĵ +N2 45.0 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). PHIi Azimuthal coordinates (in degrees) for stress recovery (Real). Remarks 1.All PTRAPAX cards must have unique property identification numbers. 2.This card is allowed if and only if an AXIC card is also present. 3.PTRAPAX card may reference MAT1 or MAT3 material cards. 4.A maximum of 14 azimuthal coordinates for stress recovery may be specified. =PAGE= PTRBSC - Basic Bending Triangle Property Description Defines basic bending triangle (TRBSC) properties. Referenced by the CTRBSC card. No membrane properties are included. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTRBSC PID MID1 I MID2 T NSM Z1 Z2 Ĵ PTRBSC 3 17 6.29 4 16. 1.982 0.05 -0.05 Field Contents PID Property identification number (Integer > 0). MID1 Material identification number for bending (Integer > 0). I Bending area moment of inertia per unit width (Real). MID2 Material identification number for transverse shear (Integer >= 0). T Transverse shear thickness (Real). NSM Nonstructural mass per unit area (Real). Z1, Z2 Fiber distances for shear computation, positive according to the right-hand sequence defined in the CTRBSC card (Real). Remarks 1.All PTRBSC cards must have unique property identification numbers. 2.If T is zero, the element is assumed to be rigid in transverse shear. 3.No structural mass is generated by this element. =PAGE= PTRIA1 - General Triangular Element Property Description Defines the properties of a general triangular element of the structural model, including bending, membrane and transverse shear effects. Referenced by the CTRIA1 card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTRIA1 PID MID1 T1 MID2 I MID3 T3 NSM abc Ĵ PTRIA1 32 16 2.98 9 6.45 16 5.29 6.32 QED Ŀ +bc Z1 Z2 Ĵ +ED Field Contents PID Property identification number (Integer > 0). MID1 Material identification number for membrane (Integer >= 0). T1 Membrane thickness (Real). MID2 Material identification number for bending (Integer >= 0). I Area of moment of inertia per unit width (Real). MID3 Bending material identification number for transverse shear (Integer >= 0). T3 Transverse shear thickness (Real). NSM Nonstructural mass per unit area (Real). Z1, Z2 Fiber distances for stress calculations, positive according to the right-hand sequence defined on the CTRIA1 card (Real). Remarks 1.All PTRIA1 cards must have unique property identification numbers. 2.If T3 is zero, the element is assumed to be rigid in transverse shear. 3.The membrane thickness, T1, is used to compute the structural mass for this element. =PAGE= PTRIA2 - Homogeneous Triangular Element Property Description Defines the properties of a homogeneous triangular element of the structural model, including membrane, bending and transverse shear effects. Referenced by the CTRIA2 card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTRIA2 PID MID T NSM PID MID T NSM Ĵ PTRIA2 2 16 3.92 14.7 6 16 2.96 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). T Thickness (Real > 0.0). NSM Nonstructural mass per unit area (Real). Remarks 1.All PTRIA2 cards must have unique identification numbers. 2.The thickness used to compute the membrane and transverse shear properties is T. 3.The area moment of inertia per unit width used to compute the bending stiffness is (T**3)/12. 4.Outer fiber distances of plus or minus T/2 are assumed. 5.One or two homogeneous triangular element properties may be defined on a single card. =PAGE= PTRIAAX - Triangular Ring Element Property Description Defines the properties of an axisymmetric triangular cross-section ring element referenced by the CTRIAAX card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTRIAAX PID MID PHI1 PHI2 PHI3 PHI4 PHI5 +abc Ĵ PTRIAAX 5 15 0.0 5.0 6.0 7.0 8.0 +N1 Ŀ +abc PHI6 PHI7 PHI8 PHI9 PHI10 PHI11 PHI12 PHI13 +def Ĵ +N1 9.0 10.0 15.0 20.0 25.0 30.0 35.0 40.0 +N2 Ŀ +def PHI14 Ĵ +N2 45.0 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). PHIi Azimuthal coordinates (in degrees) for stress recovery (Real). Remarks 1.All PTRIAAX cards must have unique property identification numbers. 2.This card is allowed if and only if an AXIC card is also present. 3.PTRIAAX card may reference MAT1 or MAT3 material cards. 4.A maximum of 14 azimuthal coordinates for stress recovery may be specified. =PAGE= PTRIM6 - Linear Strain Triangular Membrane Property Description Defines the properties of a linear strain triangular membrane element. Referenced by the CTRIM6 card. No bending properties are included. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTRIM6 PID MID T1 T3 T5 NSM Ĵ PTRIM6 666 999 1.17 2.52 3.84 8.3 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). T1, T3, T5Membrane thicknesses at the vertices of the element (Real). NSM Nonstructural mass per unit area (Real). Remarks 1.All PTRIM6 cards must have unique property identification numbers 2.PTRIM6 cards may only reference MAT1 or MAT2 cards. 3.In general, the thickness varies linearly over the triangle. If T3 or T5 is specified 0.0 or blank, it will be set equal to T1. =PAGE= PTRMEM - Triangular Membrane Property Description Used to define the properties of a triangular membrane element. Referenced by the CTRMEM card. No bending properties are included. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTRMEM PID MID T NSM PID MID T NSM Ĵ PTRMEM 17 23 4.25 0.2 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). T Membrane thickness (Real > 0.0). NSM Nonstructural mass per unit area (Real). Remarks 1.All PTRMEM cards must have unique property identification numbers. 2.One or two triangular membrane properties may be defined on a single card. =PAGE= PTRPLT - Triangular Plate Property Description Used to define the bending properties of a triangular plate element. Referenced by the CTRPLT card. No membrane properties are included. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTRPLT PID MID1 I MID2 T NSM Z1 Z2 Ĵ PTRPLT 17 26 4.29 16 3.9-4 2.634 Field Contents PID Property identification number (Integer > 0). MID1 Material identification number for bending (Integer > 0). I Bending area moment of inertia per unit width (Real). MID2 Material identification number for transverse shear (Integer >= 0). T Transverse shear thickness (Real). NSM Nonstructural mass per unit area (Real). Z1, Z2 Fiber distances for stress computation, positive according to the right-hand sequence defined on the CTRPLT card (Real). Remarks 1.All PTRPLT cards must have unique property identification numbers. 2.If T is zero, the element is assumed to be rigid in transverse shear. 3.No structural mass is generated by this element. =PAGE= PTRPLT1 - Triangular Plate Property Description Defines the bending properties of a higher order triangular plate element. Referenced by the CTRPLT1 card. No membrane properties are included. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTRPLT1 PID MID1 R1 R3 R5 MID2 TS1 TS3 abc Ĵ PTRPLT1 15 25 20.0 30.0 40.0 35 3.0 1.15 PQR Ŀ +bc TS5 NSM Z11 Z21 Z13 Z23 Z15 Z25 Ĵ +QR 1.0 9.0 1.5 -1.5 2.0 -2.0 +2.5 -2.5 Field Contents PID Property identification number (Integer > 0). MID1 Material identification number for bending (Integer > 0). R1, R3, R5Area moment of inertia per unit width at the grid points G1, G3, and G5 respectively (Real > 0.0); R1 = T1**3/12, R3 = T3**3/12, R5 = T5**3/12 where T1, T3, and T5 are the membrane thicknesses of the element at the vertices, respectively. MID2 Material identification number for transverse shear (Integer > 0). TS1, TS3, TS5 Transverse shear thicknesses at the grid points G1, G3, and G5, respectively (Real). NSM Nonstructural mass per unit area (Real). Z11, Z21, Z13; Z23, Z15, Z25 Fiber distances for stress computation at grid points G1, G3, and G5, respectively; positive according to the right-hand sequence defined on the CTRPLT1 card (Real). Remarks 1. All PTRPLT1 cards must have unique property identification numbers. 2. If TS1 is zero, the element is assumed to be rigid in transverse shear. 3. If TS3 or TS5 is 0.0 or blank, it will be set equal to TS1. 4. If T3 or T5 is 0.0 (that is, R3 or R5 are 0.0 or blank), it will be set equal to T1. (T1, T3, and T5 are computed from R1, R3, and R5) 5. The stresses at the centroid will be computed at the top and bottom fibers. The stresses at G1, G3, and G5 will be computed at the locations defined on the property card (if given). 6. The continuation card is required, even if blank. =PAGE= PTRSHL - Higher Order Triangular Shell Element Property Description Defines the membrane bending and transverse shear properties of a higher order triangular shell element. Referenced by the CTRSHL card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTRSHL PID MID1 T1 T3 T5 MID2 I1 I3 abc Ĵ PTRSHL 10 20 3.0 6.0 4.0 30 2.25 18.0 PQR Ŀ +bc I5 MID3 TS1 TS3 TS5 NSM Z11 Z21 def Ĵ +QR 5.33 40 2.5 5.0 3.5 50.0 1.5 -1.5 STU Ŀ +ef Z13 Z23 Z15 Z25 Ĵ +TU 3.0 -3.0 2.0 -2.0 Field Contents PID Property identification number (Integer > 0). MID1 Material identification number for membrane (Integer > 0). T1, T3, T5 Thickness at vertices 1, 3, and 5 of the element, respectively (Real >= 0.0). MID2 Material identification number for bending (Integer > 0). I1, I3, I5 Area moments of inertia per unit width at the vertices 1, 3, and 5 of the element, respectively (Real >= 0.0). MID3 Material identification number for transverse shear (Integer >= 0). TS1, TS3, TS5 Transverse shear thickness at the vertices 1, 3, and 5 of the element,respectively (Real >= 0.0). NSM Nonstructural mass per unit area (Real). Z11, Z21, Z13, Z23, Z15, Z25 Fiber distances for stress computation at grid points G1, G3, and G5 respectively, positive according to the right-hand sequence defined on the CTRSHL card (Real >= 0.0). Remarks 1. All PTRSHL cards must have unique property identification numbers. 2. If T3 or T5 are equal to 0.0 or blank, they will be set equal to T1. 3. If I3 or I5 are equal to 0.0 or blank, they will be set equal to I1. 4. If TS3 or TS5 are equal to 0.0 or blank, they will be set equal to TS1. 5. If TS1 is 0.0 or blank, the element is assumed to be rigid in transverse shear. 6. The stresses at the centroid will be computed at the top and bottom fibers. The stresses at G1, G3, and G5 will be computed at the locations defined on the property card (if given). 7. Both continuation cards are required, even if blank. =PAGE= PTUBE - Tube Property Description Defines the properties of a thin-walled cylindrical tube element. Referenced by the CTUBE card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTUBE PID MID OD T NSM Ĵ PTUBE 2 6 6.29 0.25 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). OD Outside diameter of tube (Real > 0.0). T Thickness of tube (Real; T <= 1/2 OD). NSM Nonstructural mass per unit length (Real). Remarks 1. If T is zero, a solid circular rod is assumed. 2. PTUBE cards must all have unique property identification numbers. 3. For structural problems, PTUBE cards may only reference MAT1 material cards. 4. For heat transfer problems, PTUBE cards may only reference MAT4 or MAT5 material cards. =PAGE= PTWIST - Twist Panel Property Description Defines the elastic properties of a twist panel element. Referenced by the CTWIST card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PTWIST PID MID T NSM PID MID T NSM Ĵ PTWIST 4 6 2.3 9.4 5 6 1.6 Field Contents PID Property identification number (Integer > 0). MID Material identification number (Integer > 0). T Thickness of twist panel (Real not equal 0.0). NSM Nonstructural mass per unit area (Real). Remarks 1. All PTWIST cards must have unique identification numbers. 2. PTWIST cards may only reference MAT1 material cards. 3. One or two twist panel properties may be defined on a single card. =PAGE= PVISC - Viscous Element Property Description Defines the viscous properties of a one-dimensional viscous element which is used to create viscous elements by means of the CVISC card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ PVISC PID C1 C2 PID C1 C2 Ĵ PVISC 3 6.2 3.94 Field Contents PID Property identification number (Integer > 0). C1, C2 Viscous coefficients for extension and rotation (Real). Remarks 1. This card is used for both extensional and rotational viscous elements. 2. This card has meaning for dynamics problems only. 3. Viscous properties are material independent; in particular, they are temperature-independent. 4. One or two viscous element properties may be defined on a single card. 5. This card is used only for direct formulation of dynamic analyses. =PAGE= QBDY1 - Boundary Heat Flux Load Description Defines a uniform heat flux into HBDY elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ QBDY1 SID Q0 EID EID EIDm "THRU" EIDn EID abc Ĵ QBDY1 109 1.-5 721 723 731 THRU 790 796 ABC Ŀ +bc EID -etc.- def Ĵ +BC 801 -etc.- Field Contents SID Load set identification number (Integer > 0). Q0 Heat flux into element (Real). EID, EIDm, EIDn HBDY elements (Integer > 0; EIDm < EIDn). Remarks 1. QBDY1 cards must be selected in the Case Control Deck (LOAD = SID) to be used in statics. The power contributed into an element via this card is given by the equation: P = [(Effective area)*Q0+A] *F(t-) in where effective area is taken from PHBDY cards and A is taken from DAREA card. 2. QBDY1 cards must be referenced on a TLOADi card for use in transient analysis. The power contributed into an element via this card is given by the equation: P (t) = [(Effective area)*Q0] *F(t-) in where the function of time, F(t-), is specified on a TLOAD or TLOAD2 card. 3. Q0 is positive for heat input. 4. EID may be specified as individual references or as sequential lists (THRU sequences) and the two methods may be used interchangeably. The only restriction is that integer values must appear in fields 4 and 9 of the QBDY1 card and in fields 2 and 9 of each continuation card (if all fields are used). =PAGE= QBDY2 - Boundary Heat Flux Load Description Defines grid point heat flux into an HBDY element. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ QBDY2 SID EID Q01 Q02 Q03 Q04 Ĵ QBDY2 109 721 1.-5 1.-5 2.-5 2.-5 Field Contents SID Load set identification number (Integer > 0). EID Identification number of an HBDY element (Integer > 0). Q0i Heat flux at the ith grid point on the referenced HBDY element (Real or blank). Remarks 1. QBDY2 cards must be selected in the Case Control Deck (LOAD = SID) to be used in statics. The power contributed into each point, i, on an element via this card is given by P = AREA * Q0 i i i 2. QBDY2 cards must be referenced on a TLOAD card for use in transient analysis. All connected grid points will have the same time function, but may have individual delays. The power contributed into each point, i, or an element via this card is given by P (t) = AREA * Q0 * F(t- ) i i i i where F(t-i) is a function of time specified on a TLOAD1 or TLOAD2 card. 3. Q0i is positive for heat flux input to the element. =PAGE= QHBDY - Boundary Heat Flux Load Description Defines a uniform heat flux into a set of grid points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ QHBDY SID FLAG Q0 AF G1 G2 G3 G4 Ĵ QHBDY 120 LINE 1.5+3 .75 13 15 Field Contents SID Load set identification number (Integer > 0). FLAG Type of area involved. Must be one of the following: POINT, LINE, REV, AREA3, or AREA4. Q0 Heat flux into an area (Real). AF Area factor depends on type (Real > 0.0 or blank). G1,...,G4 Grid point identification of connected points (Integer > 0 or blank). Remarks 1. The heat flux applied to the area is transformed to loads on the points. These points need not correspond to an HBDY element. 2. The flux is applied to each point, i, by the equation P = AREA * Q0 i i where Q0 is positive for heat input, and AREAi is the portion of the total area associated with point i. 3. In statics, the load is applied with the Case Control request: LOAD = SID. In dynamics, the load is applied by reference on a TLOADi data card. The load at each point will be multiplied by the function of time F(t-i) defined on the TLOADi card. i is the delay factor for each point. 4. The number of connected points for the five types are 1(POINT), 2(LINE,REV), 3(AREA3), 4(AREA4). Any unused Gi entries must be on the right. 5. The area factor AF is used to determine the effective area for the POINT and LINE types. It equals the area and the effective width, respectively. It is ignored for the other types, which have their area defined implicitly. 6. The type flag defines a surface in the same manner as the CHBDY data card. For physical descriptions of the geometry involved, see the CHBDY description. =PAGE= QVECT - Thermal Flux Vector Load Description Defines thermal flux vector from a distant source into HBDY elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ QVECT SID Q0 E1 E2 E3 EID1 EID2 EID3 abc Ĵ QVECT 333 1.-2 -1.0 0.0 0.0 721 722 723 ABC Ŀ +bc EID4 EID5 -etc.- def Ĵ +BC 724 -etc.- Field Contents SID Load set identification number (Integer > 0). Q0 Magnitude of thermal flux vector (Real). E1, E2, E3 Vector components (in basic coordinate system) of the thermal flux vector (Real or Integer > 0). The total flux is given by Q = Q0{E1,E2,E3}. EIDi Element identification numbers of HBDY elements irradiated by the distant source (Integer > 0). Remarks 1. For statics, the load set is selected in the Case Control Deck (LOAD = SID). The power contributed into an element via this card is given by _ _ P = -A(e * n) * Q0 in where: = absorbtivity A = area of HBDY element _ e = vector of real numbers E1, E2, E3 _ n = positive normal vector of element, see CHBDY data card description _ _ (e * n) = 0 if the vector product is positive (that is, the flux is coming from behind the element) 2. For transient analysis, the load set (SID) is selected by a TLOADi card which defines a load function of time. The power contributed into the element via this card is given by _ _ P (t) = -A(e(t)*n)*Q0*F(t-) l where: _ ,A, and n are the same as the statics case _ e(t) = vector of three functions of time, which may be given on TABLEDi data cards. If E1, E2, or E3 is an integer, it is the table identification number. If E1, E2, or E3 is a real number, its value is used directly; if Ei is blank, its value is zero. F(t-) is a function of time specified or referenced by the parent TLOAD1 or TLOAD2 card. The value is calculated for each loaded point. 3. If the referenced HBDY element is of TYPE = ELCYL, the power input is an exact integration over the area exposed to the thermal flux vector. 4. If the referenced HBDY element is of TYPE = REV, the vector should be parallel to the basic z axis. 5. If a sequential list of elements is desired, fields 7, 8, and 9 may specify the first element, the BCD string THRU, and the last element. No subsequent data is allowed with this option. =PAGE= QVOL - Volume Heat Addition Description Defines a rate of internal heat generation in an element. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ QVOL SID QV EID EID EIDm "THRU" EIDn EID abc Ĵ QVOL 333 1.+2 301 303 317 THRU 345 416 ABC Ŀ +bc EID7 -etc.- def Ĵ +BC 527 -etc.- Field Contents SID Load set identification number (Integer > 0). QV Power input per unit volume produced by a heat conduction element (Real). EID, EIDm, EIDn Heat conduction element identification numbers (Integer > 0; EIDm < EIDn). Remarks 1. In statics, the load is applied with the Case Control request, LOAD = SID. The equivalent power contributed via this card into each grid point, i, connected to each element listed, is given by P = QV * VOL i i where VOLi is the portion of the volume associated with point i and QV is positive for heat generation. 2. In dynamics, the load is requested by reference on a TLOADi card. The equivalent power contributed via this card into each grid point i, connected to each element listed, is P = QV * VOL * F(t- ) i i i where VOLi is the portion of the volume associated with point i and F(t-i) is the function of time defined by a TLOADi card. i is the delay for each point i. 3. EID may be specified as individual references or as sequential lists (THRU sequences) and the two forms may be used interchangeably. The only restriction is that integer values must appear in fields 4 and 9 of the QVOL card and in fields 2 and 9 of each continuation card (if all fields are used). =PAGE= RADLST - List of Radiation Areas Description A list of HBDY identification numbers given in the same order as the columns of the RADMTX matrix. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ RADLST EID1 EID2 EID3 EID4 EID5 EID6 EID7 EID8 abc Ĵ RADLST 10 20 30 50 31 41 THRU 61 ABC Ŀ +bc EID9 -etc.- def Ĵ +BC 71 -etc.- Field Contents EIDi The element identification numbers of the HBDY elements, given in the order that they appear in the RADMTX matrix (Integer > 0 or BCD THRU). Remarks 1. This card is required if a RADMTX is defined. 2. Only one RADLST card string is allowed in a data deck. 3. If a group of the elements are sequential, any field except 2 and 9 may contain the BCD word THRU. Element ID numbers will be generated for every integer between the value of the previous field and the value of the subsequent field. The values must increase, however. 4. Any element may be listed more than once. For instance, if both sides of a panel are radiating, each side may participate in a different part of the view factor matrix. =PAGE= RADMTX - Radiation Matrix Description Matrix of radiation exchange coefficients (area times view factor) for nonlinear heat transfer analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ RADMTX INDEX Fi,i Fi+1,i Fi+2,i Fi+3,i Fi+4,i Fi+5,i Fi+6,iabc Ĵ RADMTX 3 0. 9.3 17.2 16.1 .1 0. 6.2 ABC Ŀ +bc Fi+7,i -etc.- def Ĵ +BC 6.2 -etc.- Field Contents INDEX The column number of the matrix (Integer > 0). Fi+k,i The matrix values (Real), starting on the diagonal, continuing down the column. A group of zeros at the bottom of the column may be omitted. A blank field will end the column, which disallows imbedded blank fields. Remarks 1. The INDEX numbers go from 1 through NA, where NA is the number of radiating areas. 2. The radiation exchange coefficient matrix is symmetric, and only the lower triangle is input. Column 1 is associated with the HBDY element first listed on the RADLST card, Column 2 for the next, etc. Null columns need not be entered. NA 3. P = F q i j=1 ij j Pi = total irradiation into element i qj = radiosity (per unit area) at j Fij = radiation matrix (units of area) 4. A column may only be specified once. 5. An element identification appearing on a RADLIST card that is not defined on a RADMTX card or is only partially defined, will cause the missing terms of the matrix column to be filled with zeros. This implies an infinite heat sink (radiation loss) is present. =PAGE= RANDPS - Power Spectral Density Specification Description Defines load set power spectral density factors for use in random analysis having the frequency dependent form S (F) = (X + iY) G(F) jk Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ RANDPS SID J K X Y TID Ĵ RANDPS 5 3 7 2.0 2.5 4 Field Contents SID Random analysis set identification number (Integer > 0). J Subcase identification number of excited load set (Integer > 0). K Subcase identification number of applied load set (Integer >= 0; K >= J). X, Y Components of complex number (Real). TID Identification number of a TABRNDi card which defines G(F) (Integer >= 0). Remarks 1. If J = K, then Y must be 0.0. 2. For TID = 0, G(F) = 1.0. 3. Set identification numbers must be selected in the Case Control Deck (RANDOM = SID) to be used by NASTRAN. 4. Only 20 unique sets may be defined. However, as many RANDPS cards as desired with the same SID may be input. 5. RANDPS can only reference subcases included within a single loop (change in direct matrix input is not allowed). 6. Subcase number must be specified in the Case Control Deck. =PAGE= RANDT1 - Autocorrelation Function Time Lag Description Defines time lag constants for use in random analysis autocorrelation function computation. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ RANDT1 SID N T0 TMAX Ĵ RANDT1 5 10 3.2 9.6 Field Contents SID Random analysis set identification number (Integer > 0). N Number of time lag intervals (Integer > 0). T0 Starting time lag (Real >= 0.0). TMAX Maximum time lag (Real > T0). Remarks 1. At least one RANDPS card must be present with the same set identification number. 2. The time lags defined on this card are given by T - T max o T = T + (i - 1), i = 1, N + 1 i o N 3. Time lag sets must be selected in the Case Control Deck (RANDOM = SID) to be used by NASTRAN. =PAGE= RELES - Release Substructure Connectivities Description Defines sets of component degrees of freedom at substructure grid points which are not to be connected. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ RELES SID NAME G1 C1 G2 C2 G3 C3 def Ĵ RELESL 6 WINGRT 17 456 18 456 21 123 DEF Ŀ +ef G4 C4 etc. GN CN Ĵ +EF 253 456 Field Contents SID Set identification number (Integer > 0). NAME Name of basic substructure (BCD). Gi Grid or scalar point identification number (Integer > 0). Ci Component number; any unique combination of the digits 1 - 6 (with no imbedded blanks) when the Gi are grid points, or null if they are scalar points. Remarks 1. The RELES data will override any connections generated automatically from geometry and any connections defined on CONCT data cards. 2. The RELES data will not override connections defined on the CONCT1 data card. 3. Connectivity sets must be selected in the Substructure Control Deck (CONNECT = SID) to be used by NASTRAN. Note that CONNECT is a subcommand of the substructure COMBINE command. 4. Connectivities defined during previously executed COMBINE operations will be retained and may be referenced by the grid point ID and component of any one of the basic substructures associated with that connectivity. =PAGE= REMFLUX - Remanent Flux Density Description Specifies remanent flux density for selected elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ REMFLUX SID CID BRX BRY BRZ EID1 EID2 EID3 Ĵ REMFLUX 2 1. 2. 3. 1 2 3 Alternate Form: Ŀ REMFLUX SID CID BRX BRY BRZ EID1 "THRU" EID2 Ĵ REMFLUX 2 1. 2. 3. 1 THRU 3 Field Contents SID Load set identification number (Integer > 0). CID Coordinate system identification number (Integer > 0). BRX, BRY, BRZ Remanent flux density in coordinate system CID (Real). EID1, EID2, EID3 Element identification numbers (Integer > 0). Remarks 1. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 2. If the alternate form of the card is used, all elements between EID1 and EID2 need not exist, but sufficient core must be available for 5 words (EID2 - EID1 + 1). 3. REMFLUX cards may not have the same load set identification number as SPCFLD, CEMLOOP, GEMLOOP, or MDIPOLE cards. However, they may be combined on a LOAD card or a SUBCOM card. 4. CID must presently be 0 or blank. =PAGE= RFORCE - Rotational Force Description Defines a static loading condition due to a centrifugal force field. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ RFORCE SID G CID A N1 N2 N3 Ĵ RFORCE 2 5 -6.4 0.0 0.0 1.0 Field Contents SID Load set identification number (Integer > 0). G Grid point identification number (Integer > 0). CID Coordinate system defining rotation direction (Integer >= 0 or blank). A Scale factor for rotational velocity in revolutions per unit time (Real). N1, N2, N3 Rectangular components of rotation direction vector (Real; N1**2 + N2**2 + N3**2 > 0.0) The vector defined will act at point G. Remarks 1. G = 0 means the basic coordinate system origin. 2. CID = 0 means the basic coordinate system. 3. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 4. Rotational force sets can be combined with other static loads only by using the LOAD bulk data card. 5. The load vector generated by this card can be printed with an OLOAD request in the Case Control Deck. 6. For elements with lumped mass, the centrifugal acceleration is calculated at the center of the lumped mass. Grid point offsets of the mass such as those defined with BAR and CONM2 elements are taken into account. 7. For elements using the coupled consistent mass option (COUPMASS) or those with implicit coupled mass matrices such as IHEXi and TRIAAX elements, the centrifugal accelerations are calculated based on grid point locations. This acceleration vector is then multiplied by the mass matrix to generate loads. Therefore, for greater accuracy, elements near the axis of rotation should be kept small to best represent the actual acceleration field. 8. When applying a rotational force to an axisymmetric element, G and CID must be 0 or blank; N1 and N2 must be 0.0. =PAGE= RINGAX - Axisymmetric Ring Description Defines a ring for a model containing CCONEAX, CTRAPAX, or CTRIAAX elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ RINGAX ID R Z PS Ĵ RINGAX 3 2.0 -10.0 162 Field Contents ID Ring identification number (1 <= Integer < 10**6). R Ring radius (Real > 0.0). Z Ring axial location (Real). PS Permanent single-point constraints (any unique combination of the digits 1 - 6). Remarks 1. This card is allowed if and only if an AXIC card is also present. 2. The number of degrees of freedom defined is (6-PS)*H where H is the harmonic count and PS is the number of digits in field 8. (See AXIC card.) 3. RINGAX identification numbers must be unique with respect to all other POINTAX, RINGAX, and SECTAX identification numbers. 4. The fourth and sixth degrees of freedom must be constrained when transverse shear flexibility is not included for the conical shell. 5. For a discussion of the conical shell problem see Section 5.9 of the Theoretical Manual. 6. For a discussion of the axisymmetric solid problem, see Section 5.11 of the Theoretical Manual. =PAGE= RINGFL - Axisymmetric Fluid Point Description Defines a circle (fluid point) in an axisymmetric fluid model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ RINGFL IDF X1 X2 X3 IDF X1 X2 X3 Ĵ RINGFL 3 1.0 30.0 Field Contents IDF Unique identification number of the fluid point (Integer, 0 < IDF < 10**5). X1, X2, X3 Coordinates of point in fluid coordinate system defined on AXIF card (Real; X1 > 0.0). Remarks 1. This card is allowed only if an AXIF card is also present. 2. All fluid point identification numbers must be unique with respect to other scalar, structural and fluid points. 3. X1, X2, X3 are (r, , z) for a cylindrical coordinate system and (p, , ) for a spherical coordinate system. and are in degrees. The value of must be greater than zero. The value of must be blank or zero. 4. One or two fluid points may be defined per card. =PAGE= RLOAD1 - Frequency Response Dynamic Load Description Defines a frequency dependent dynamic load of the form i{ - 2f} {P(f)} = A[C(f) + iD(f)] e for use in frequency response problems. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ RLOAD1 SID L M N TC TD Ĵ RLOAD1 5 3 6 9 1 2 Field Contents SID Set identification number (Integer > 0). L Identification number of DAREA or DAREAS and LOADC card set which defines A (Integer > 0). M Identification number of DELAY or DELAYS card set which defines (Integer >= 0). N Identification number of DPHASE or DPHASES card set which defines (Integer >= 0). TC Set identification number of TABLEDi card which gives C(f) (Integer >= 0; TC + TD > 0). TD Set identification number of TABLEDi card which gives D(f) (Integer >= 0; TC + TD > 0). Remarks 1. If any of M, N, TC, or TD are blank or zero, the corresponding , , C(f), or D(f) will be zero. 2. Dynamic load sets must be selected in the Case Control Deck (DLOAD = SID) to be used by NASTRAN. 3. RLOAD1 loads may be combined with RLOAD2 loads only by specification on a DLOAD card. That is, the SID on an RLOAD1 card may not be the same as that on an RLOAD2 card. 4. SID must be unique for all RLOAD1, RLOAD2, TLOAD1, and TLOAD2 cards. 5. With automated multi-stage substructuring, DAREAS cards may only reference degrees of freedom in the boundary set of the solution structure. 6. When L references LOADC cards, DAREAS cards with the same set identification and non-zero loads must also exist. =PAGE= RLOAD2 - Frequency Response Dynamic Load Description Defines a frequency dependent dynamic load of the form i{(f) + - 2f} {P(f)} = AB(f)e for use in frequency response problems. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ RLOAD2 SID L M N TB TP Ĵ RLOAD2 5 3 6 21 7 2 Field Contents SID Set identification number (Integer > 0). L Identification number of DAREA or DAREAS and LOADC card set which defines A (Integer > 0). M Identification number of DELAY or DELAYS card set which defines (Integer >= 0). N Identification number of DPHASE or DPHASES card set which defines in degrees (Integer >= 0). TB Set identification number of TABLEDi card which gives B(f) (Integer >= 0). TP Set identification number of TABLEDi card which gives (f) in degrees (Integer >= 0). Remarks 1. If any of M, N, or TP are zero, the corresponding , , or (f) will be zero. 2. Dynamic load sets must be selected in the Case Control Deck (DLOAD = SID) to be used by NASTRAN. 3. RLOAD2 loads may be combined with RLOAD1 loads only by specification on a DLOAD card. That is, the SID on an RLOAD2 card may not be the same as that on an RLOAD1 card. 4. SID must be unique for all RLOAD1, RLOAD2, TLOAD1, and TLOAD2 cards. 5. With automated multi-stage substructuring, DAREAS cards may only reference degrees of freedom in the boundary set of the solution structure. 6. When L references LOADC cards, DAREAS cards with the same set identification and non-zero loads must also exist. =PAGE= SECTAX - Axisymmetric Sector Description Defines a sector of a model containing CCONEAX, CTRAPAX, or CTRIAAX elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SECTAX ID RID R PHI1 PHI2 Ĵ SECTAX 1 2 3.0 30.0 40.0 Field Contents ID Sector identification number (unique Integer > 0). RID Ring identification number (see RINGAX) (Integer > 0). R Effective radius (Real). PHI1, PHI2 Azimuthal limits of sector in degrees (Real). Remarks 1. This card is allowed if and only if an AXIC card is also present. 2. SECTAX identification numbers must be unique with respect to all other POINTAX, RINGAX, and SECTAX identification numbers. 3. For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. 4. For a discussion of the axisymmetric solid problem, see Section 5.11 of the Theoretical Manual. =PAGE= SEQEP - Extra Point Resequencing Description The purpose of the SEQEP card is to allow re-identifying the formation sequence of the extra points of his structural model in such a way as to optimize bandwidth, which is essential for efficient solutions by the displacement method. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SEQEP ID SEQID ID SEQID ID SEQID ID SEQID Ĵ SEQEP 5392 15.6 2 1.9.2.6 3 2 Field Contents ID Extra point identification number (Integer > 0). SEQID Sequence identification number (a special number described below). Remarks 1. ID is any extra point identification number which is to be re-identified for sequencing purposes. The sequence number is a special number which may have any of the following forms where X is a decimal integer digit: XXXX.X.X.X, XXXX.X.X, XXXX.X, or XXXX, where any of the leading X's may be omitted. This number must contain no imbedded blanks. 2. To insert an extra point between two already existing grid, scalar, and/or extra points, such as 15 and 16, for example, define it as, say 5392, and then use this card to insert extra point number 5392 between them by equivalencing it to, say, 15.6. All output referencing this point will refer to 5392. 3. The SEQID numbers must be unique and may not be the same as a point ID which is not being changed. No extra point ID may be referenced more than once. 4. No continuation cards (small field or large field) are allowed with either the SEQGP or the SEQEP card. 5. From one to four extra points may be resequenced on a single card. =PAGE= SEQGP - Grid and Scalar Point Resequencing Description Used to order the grid points and user-supplied scalar points of the problem. The purpose of this card is to allow re-identifying the formation sequence of the grid and scalar points of his structural model in such a way as to optimize bandwidth, which is essential for efficient solutions by the displacement method. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SEQGP ID SEQID ID SEQID ID SEQID ID SEQID Ĵ SEQGP 5392 15.6 2 1.9.2.6 3 2 Field Contents ID Grid or scalar point identification number (Integer > 0). SEQID Sequenced identification number (a special number described below). Remarks 1. ID is any grid or scalar point identification number which is to be re-identified for sequencing purposes. The grid point sequence number (SEQID) is a special number which may have any of the following forms where X is a decimal integer digit: XXXX.X.X.X, XXXX.X.X, XXXX.X, or XXXX, where any of the leading X's may be omitted. This number must contain mo imbedded blanks. 2. To insert a grid point between two already existing grid points, such as 15 and 16, for example, define it as, say 5392, and then use this card to insert grid point number 5392 between them by equivalencing it to, say 15.6. All output referencing this point will refer to 5392. 3. The SEQID numbers must be unique and may not be the same as a point ID which is not being changed. No grid point ID may be referenced more than once. 4. No continuation cards (small field or large field) are allowed with either the SEQGP or the SEQEP card. 5. From one to four grid or scalar points may be resequenced on a single card. 6. SEQGP is not available for axisymmetric and hydroelastic problems. =PAGE= SET1 - Grid Point List Description Defines a set of structural grid points by a list. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SET1 SID G1 G2 G3 G4 G5 G6 G7 ABC Ĵ SET1 3 31 62 93 124 16 17 18 ABC Ŀ +BC G8 -etc.- Ĵ +BC 19 Field Contents SID Set of identification numbers (Integer > 0). G1, G2, etc. List of structural grid points (Integer > 0 or THRU). Remarks 1. These cards are referenced by the SPLINE data cards. 2. When using the THRU option, all intermediate grid points must exist. The word THRU may not appear in field 3 or 9 (2 or 9 for continuation cards.) =PAGE= SET2 - Grid Point List Description Defines a set of structural grid points in terms of aerodynamic macro elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SET2 SID MACRO SP1 SP2 CH1 CH2 ZMAX ZMIN Ĵ SET2 3 111 .0 .75 .0 .667 1.0 -3.51 Field Contents SID Set identification number (Integer > 0). MACRO Element identification number of an aero macro element (Integer > 0). SP1, SP2 Lower and higher span division points defining prism containing set (-.01 < Real < 1.01) CH1, CH2 Lower and higher chord division points defining prism containing set (-.01 < Real < 1.01) ZMAX, ZMIN Top and bottom z coordinates (using right-hand rule with the order the corners are listed on a CAERO1 card) of the prism containing set (Real). Usually ZMAX >= 0, ZMIN <= 0. Remarks 1. These cards are referenced by the SPLINEi data cards. 2. Every grid point within the defined prism and within the height range will be in the set. For example, CH1 = 0.0 MACRO 111 Ŀ ////////////////////////////// ///111///////114///////117//// 120 ////////////////////////////// Ĵ ////////////////////////////// SP1 = 0.0 ///112///////115///////118//// 121 SP2 = 0.75 ////////////////////////////// Ĵ 113 116 119 122 CH2 = .667 The shaded area in the figure defines the cross-section of the prism for the sample data given above. Points exactly on the boundary may be missed; hence, to get the area of the macro element, use SP1 = -.01, SP2 = 1.01, etc. 3. A zero value for ZMAX or ZMIN implies infinity is to be used. 4. To find the (internal) grid ID's found, use DIAG 18. =PAGE= SLBDY - Slot Boundary List Description Defines a list of slot points which lie on an interface between an axisymmetric fluid and a set of evenly spaced radial slots. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SLBDY RHO M ID1 ID2 ID3 ID4 ID5 ID6 abc Ĵ SLBDY 0.002 6 16 17 18 25 20 21 +BDY Ŀ +bc ID7 -etc.- +def Ĵ +BDY 22 -etc.- Field Contents RHO Density of fluid at boundary (Real > 0.0, or blank). M Number of slots (Integer >= 0, or blank). IDj Identification numbers of GRIDS slot points at boundary with axisymmetric fluid cavity, j = 1,2,...,J (Integer > 0). Remarks 1. This card is allowed only if an AXSLOT card is also present. 2. If RHO or M is blank the default value on the AXSLOT card is used. The effective value must not be zero for RHO. If the effective value of M is zero, no matrices at the boundary will be generated. 3. The order of the list of points determines the topology of the boundary. The points are listed sequentially as one travels along the boundary in either direction. At least two points must be defined. 4. More than one logical boundary card may be used. =PAGE= SLOAD - Static Scalar Load Description Used to apply static loads to scalar points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SLOAD SID S F S F S F Ĵ SLOAD 16 2 5.9 17 -6.3 14 -2.93 Field Contents SID Load set identification number (Integer > 0). S Scalar point identification number (Integer > 0). F Load value (Real). Remarks 1. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 2. Up to three scalar loads may be defined on a single card. =PAGE= SPC - Single-Point Constraint Description Defines sets of single-point constraints and enforced displacements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPC SID G C D G C D Ĵ SPC 2 32 436 -2.6 5 +2.9 Field Contents SID Identification number of single-point constraint set (Integer > 0). G Grid or scalar point identification number (Integer > 0). C Component number (any unique combination of the digits 1 - 6 (with no imbedded blanks) when point identification numbers are grid points; zero or blank if point identification numbers are scalar points). D Value of enforced displacement for all coordinates designated by G and C (Real). Remarks 1. A coordinate referenced on this card may not appear as a dependent coordinate in a multipoint constraint relation (MPC card) or as a degree of freedom on a rigid element (CRIGD1, CRIGD2, CRIGD3, CRIGDR), nor may it be referenced on a SPC1, OMIT, OMIT1, or SUPORT card. D must be 0.0 for dynamics problems. 2. Single-point forces of constraint are recovered during stress data recovery. 3. Single-point constraint sets must be selected in the Case Control Deck (SPC = SID) to be used by NASTRAN. 4. From one to twelve single-point constraints may be defined on a single card. 5. SPC degrees of freedom may be redundantly specified as permanent constraints on the GRID card. 6. The enforced displacement, D, is used only in static analyses (Rigid Formats 1, 2, 4, 5, 6, 14). 7. In heat transfer analysis, constraints applied to component number 1 are used to fix the temperature at that point. 8. D may be used to define an enforced temperature in static heat transfer analysis (Rigid Format 1 only). See Section 1.8 for methods of defining boundary temperatures in other Rigid Formats. =PAGE= SPC1 - Single-Point Constraint Description Defines sets of single-point constraints. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPC1 SID C G1 G2 G3 G4 G5 G6 abc Ĵ SPC1 3 2 1 3 10 9 6 5 ABC Ŀ +bc G7 G8 G9 -etc.- Ĵ +BC 2 8 Alternate Form Ŀ SPC1 SID C GID1 "THRU" GID2 Ĵ SPC1 313 12456 6 THRU 32 Field Contents SID Identification number of single-point constraint set (Integer > 0). C Component number (any unique combination of the digits 1 - 6 (with no imbedded blanks) when point identification numbers are grid points; zero or blank if point identification numbers are scalar points). Gi, GIDi Grid or scalar point identification numbers (Integer > 0). Remarks 1. Note that enforced displacements are not available via this card. As many continuation cards as desired may appear when THRU is not used. 2. A coordinate referenced on this card may not appear as a dependent coordinate in a multi-point constraint relation (MPC) or as a degree of freedom on a rigid element (CRIGD1, CRIGD2, CRIGD3, CRIGDR), nor may it be referenced on a SPC, OMIT, OMIT1, or SUPORT card. 3. Single-point constraint sets must be selected in the Case Control Deck (SPC = SID) to be used by NASTRAN. 4. SPC degrees of freedom may be redundantly specified as permanent constraints on the GRID card. 5. All grid points referenced by GID1 through GID2 must exist. 6. In heat transfer analysis, constraints applied to component number 1 are used to fix the temperature at a point. 7. C is 1 only for a heat problem. =PAGE= SPCADD - Single-Point Constraint Description Defines a single-point constraint set as a union of single-point constraint sets defined via SPC or SPC1 cards. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPCADD SID S1 S2 S3 S4 S5 S6 S7 abc Ĵ SPCADD 100 3 2 9 1 Ŀ +bc S8 S9 -etc.- Ĵ +BC -etc.- Field Contents SID Identification number for new single-point constraint set (Integer > 0; not equal 101 or 102 if axisymmetric). Si Identification numbers of single-point constraint sets defined via SPC or SPC1 cards (Integer > 0; SID not equal Si). Remarks 1. Single-point constraint sets must be selected in the Case Control Deck (SPC = SID) to be used by NASTRAN. 2. No Si may be the identification number of a single-point constraint set defined by another SPCADD card. 3. The Si values must be unique. 4. Set identification numbers of 101 or 102 cannot be used in axisymmetric problems. =PAGE= SPCAX - Axisymmetric Single-Point Constraint Description Defines sets of single-point constraints for a model containing CCONEAX, CTRAPAX, or CTRIAAX elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPCAX SID RID HID C V Ĵ SPCAX 2 3 4 13 6.0 Field Contents SID Identification number of single-point constraint set (Integer > 0; not equal 101 or 102). RID Ring identification number (see RINGAX) (Integer >= 0). HID Harmonic identification number (Integer >= 0). C Component identification number (any unique combination of the digits 1 - 6). V Enforced displacement value (Real). Remarks 1. This card is allowed if and only if an AXIC card is also present. 2. Single-point constraint sets must be selected in the Case Control Deck (SPC = SID) to be used by NASTRAN. 3. Coordinates appearing on SPCAX cards may not appear on MPCAX, SUPAX, or OMITAX cards. 4. For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. 5. For a discussion of the axisymmetric solid problem, see Section 5.11 of the Theoretical Manual. =PAGE= SPCD - Enforced Displacement Value Description Defines an enforced displacement value for static analysis, which is requested as a LOAD. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPCD SID G C D G C D Ĵ SPCD 100 32 436 -2.6 5 +2.9 Field Contents SID Identification number of a static load set (Integer > 0). G Grid or scalar point identification number (Integer > 0). C Component number (any unique combination of the digits 1 - 6 (with no imbedded blanks) when point identification numbers are grid points; zero or blank if point identification numbers are scalar points). D Value of enforced displacement for all coordinates designated by G and C (Real). Remarks 1. A coordinate referenced on this card must be referenced by a selected SPC or SPC1 data card. 2. Values of D will override the values specified on an SPC bulk data card, if the LOAD set is requested. 3. The bulk data LOAD combination card will not request an SPCD. 4. At least one bulk data LOAD card (FORCE, SLOAD, etc.) is required in the LOAD set selected in the Case Control Deck. 5. The enforced displacement, D, is used only in static analyses (Rigid Formats 1, 2, 4, 5, 6, 14). 6. In heat transfer analysis, D is used to define an enforced temperature in statics analysis (Rigid Format 1 only). See Section 1.8 for methods of defining boundary temperatures in other Rigid Formats. =PAGE= SPCFLD - Specified Magnetic Field Description Specifies magnetic field at selected grid points. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPCFLD SID CID HCX HCY HCZ G1 G2 G3 Ĵ SPCFLD 18 12.25 0. 62. 8 17 103 First Alternate Form: Ŀ SPCFLD SID CID HCX HCY HCZ GID1 "THRU" GID2 Ĵ SPCFLD 18 12.25 0. 62. 9 THRU 27 Second Alternate Form: Ŀ SPCFLD SID CID HCX HCY HCZ -1 Ĵ SPCFLD 18 12.25 0. 62. -1 Field Contents SID Load set identification number (Integer > 0). CID Coordinate system identification number (Integer > 0 or blank). HCX, HCY, HCZ Components of specified Hc field in coordinate system CID (Real). Gi, GIDi Grid point identification numbers (Integer > 0). Remarks 1. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used by NASTRAN. 2. If the first alternate form of the card is used, all grid point identification numbers between GID1 and GID2 must exist. 3. The second alternate form of the card implies that the specified Hc field applies to all grid points. 3. CID must presently be 0 or blank. =PAGE= SPCS - Substructure Single Point Constraints Description Defines a set of single point constraints on a specified basic substructure. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPCS SID NAME G1 C1 G2 C2 G3 C3 abc Ĵ SPCS 61 MIDWG 9 45 18 124 36 456 ABC Ŀ +bc G4 C4 G5 C5 G6 C6 G7 C7 def Ĵ +BC 88 136 etc. Field Contents SID Set identification number (Integer > 0). NAME Basic substructure name (BCD). Gi Grid or scalar point identification number in substructure (Integer > 0). Ci Component number; any unique combination of the digits 1 - 6 (with no imbedded blanks) when the Gi are grid points, or null if they are scalar points. Remarks 1. A coordinate referenced on this card may not appear as a dependent coordinate in a multipoint constraint relation, nor may it be referenced on a SPCS1, SPC, SP11, OMIT, OMIT1, or SUPORT card. 2. Single-point forces of constraint are recovered during stress data recovery. 3. Single-point constraint sets must be selected in the Case Control Deck (SPC = SID) to be used by NASTRAN. 4. A single G, C pair may not specify all component degrees of freedom for a connected grid point where only some of the degrees of freedom of the grid point have been connected or when some have been disconnected via the RELES card. The degrees of freedom which were connected and those that were not connected must be referenced separately. =PAGE= SPCS1 - Substructure Single Point Constraints Description Defines a set of single point constraints on a specified basic substructure. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPCS1 SID NAME C G1 G2 G3 G4 G5 abc Ĵ SPCS1 15 FUSELAG 1236 1101 1102 1105 THRU 1110 ABC Ŀ +bc G6 G7 G8 G9 G10 G11 G12 G13 def Ĵ +BC 1121 1130 THRU 1140 1143 1150 etc. Field Contents SID Set identification number (Integer > 0). NAME Basic substructure name (BCD). C Component number; any unique combination of the digits 1 - 6 (with no imbedded blanks) when the Gi are grid points, or null if they are scalar points. Gi Grid or scalar point identification numbers (Integer > 0). Remarks 1. THRU may appear in fields 6, 7, or 8 of the first card and anywhere in fields 3 through 8 on a continuation card. 2. A coordinate referenced on this card may not appear as a dependent coordinate in a multipoint constraint relation, nor may it be referenced on a SPCS1, SPC, SPC1, OMIT, OMIT1, or SUPORT card. 3. Single-point constraint sets must be selected in the Case Control Deck (SPC = SID) to be used by NASTRAN. 4. All grid points referenced by Gi through Gj must exist. 5. A single G, C pair may not specify all component degrees of freedom for a connected grid point where only some of the degrees of freedom of the grid point have been connected or when some have been disconnected via the RELES card. The degrees of freedom which were connected and those that were not connected must be referenced separately. =PAGE= SPCSD - Substructure Enforced Displacement Values Description Defines enforced displacement values for a given substructure during static analysis, which are requested as a LOAD. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPCSD SID NAME G1 C1 D1 G2 C2 D2 Ĵ SPCSD 27 LWINGRT 965 3 3.6 Field Contents SlD Identification number of a static load set (Integer > 0). NAME Basic substructure name (BCD). Gi Grid or scalar point identification number (Integer > 0). Ci Component number; any unique combination of the digits 1 - 6 (with no imbedded blanks) when the Gi are grid points, or null if they are scalar points. Di Value of enforced displacement for all coordinates designated by Gi and Ci (Real). Remarks 1. A coordinate referenced on this card must be referenced by a selected SPCS or SPCS1 data card. 2. The bulk data LOAD combination card will not request an SPCSD. 3. At least one bulk data load card (LOADC or SLOAD) in addition to the SPCSD cards is required in the LOAD set selected in case control (LOAD = SID). =PAGE= SPLINE1 - Surface Spline Description Defines a surface spline for interpolating out-of-plane motion for aeroelastic problems. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPLINE1 EID CAERO BOX1 BOX2 SETG DZ Ĵ SPLINE1 3 111 111 118 14 0. Field Contents EID Element identification number (unique Integer > 0). CAERO Aero element ID which defines plane of spline (Integer > 0). BOX1, BOX2 First and last box whose motions are interpolated using this spline (Integer > 0). SETG Refers to a SETi card which lists the structural grid points to which the spline is attached (Integer > 0). DZ Linear attachment flexibility (Real >= 0). Remarks 1. The interpolated points (k-set) will be defined by aero-cells. The sketch shows the cells for which uk is interpolated if BOX1 = 111 and BOX2 = 118. Ŀ ////////////////////////////// ///111///////114///////117//// 120 ////////////////////////////// Ĵ ////////////////////////////// ///112///////115///////118//// 121 ////////////////////////////// Ĵ 113 116 119 122 2. The attachment flexibility (units of area) is used for smoothing the interpolation. If DZ = 0, the spline will pass through all deflected grid points. If DZ >> (area of spline), a least squares plane fit will occur. Intermediate values will provide smoothing. =PAGE= SPLINE2 - Linear Spline Description Defines a beam spline for interpolating panels and bodies for aeroelastic problems. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPLINE2 EID CAERO ID1 ID2 SETG DZ DTOR CID ABC Ĵ SPLINE2 5 8 12 24 60 0. 1.0 3 abc Ŀ +BC DTHX DTHY Ĵ +bc -1. Field Contents EID Element identification number (Integer > 0). CAERO Aero panel or body which is to be interpolated (Integer > 0). ID1, ID2 First and last box or body element whose motions are interpolated using this spline (Integer > 0). SETG Refers to a SETi card which lists the structural g-set to which the spline is attached (Integer > 0). DZ Linear attachment flexibility (Real >= 0). DTOR Torsional flexibility (EI/GJ) (Real > 0; use 1.0 for bodies). CID Rectangular coordinate system which defines y-axis of spline (Integer >= 0) (not used for bodies, CAERO2). DTHX, DTHY Rotational attachment flexibility. DTHX is for rotation about the x-axis; not used for bodies. DTHY is for rotation about the y-axis; used for slope of bodies (Real). Remarks 1. The interpolated points (k-set) will be defined by aero boxes. 2. For panels, the spline axis is the projection of the y-axis of coordinate system CID, projected onto the plane of the panel. For bodies, the spline axis is parallel to the x-axis of the aerodynamic coordinate system. 3. The flexibilities are used for smoothing. Zero attachment flexibility values will imply rigid attachment, that is, no smoothing. (Negative values in fields 12 and 13 will imply infinity, hence no attachment.) 4. A continuation card is required. 5. The SPLINE2 EID must be unique with respect to all SPLINEi data cards. =PAGE= SPLINE3 - Constraint Equation for Aeroelastic Problems Description Defines a constraint equation for aeroelastic problems. Useful for control surface constraints. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPLINE3 EID CAERO UKID COMP G1 C1 A1 ABC Ĵ SPLINE3 7000 107 109 6 33 5 1.0 abc Ŀ +BC G2 C2 A2 G3 C3 A3 Ĵ +bc 43 5 -1.0 -etc.- Field Contents EID Element identification number (Integer > 0). CAERO Identification number of macro-element on which the element to be interpolated lies (Integer > 0). UKID Identification number of the uk point (that is, the box number) (Integer > 0). COMP The component of motion to be interpolated. 3 = normal rotation, 5 = pitch angle (for z, yz bodies), 6 = control relative angle (also for y-bodies, 2 = lateral displacement and 6 = yaw). (Integer > 0). Gi Grid point identification number of independent grid point (Integer > 0). Ci Component (in global coordinate system) to be used (one of the Integers 1 through 6, or 0 for scalar points). Ai Coefficient of constraint relationship (Real). Remarks 1. The independent grid points and components must refer to degrees of freedom in the ug point set. 2. The constraint is given by u = Ai u d i i ud = the value of the dependent uk component. ui = the displacement at grid Gi, component Ci. 3. The SPLINE3 EID must be unique with respect to all SPLINEi data cards. =PAGE= SPOINT - Scalar Point Description Defines scalar points of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SPOINT ID ID ID ID ID ID ID ID Ĵ SPOINT 3 18 1 4 16 2 Alternate Form: Ŀ SPOINT ID1 "THRU" ID2 Ĵ SPOINT 5 THRU 649 Field Contents ID, ID1, ID2 Scalar point identification number (Integer > 0; IDl < ID2). Remarks 1. Scalar points defined by their appearance on a scalar connection card need not appear on an SPOINT card. 2. All scalar point identification numbers must be unique with respect to all other structural, scalar, and fluid points. 3. This card is used primarily to define scalar points appearing in single or multipoint constraint equations but to which no scalar elements are connected. 4. If the alternate form is used, scalar points ID1 through ID2 are defined. 5. For a discussion of scalar points, see Section 5.6 of the Theoretical Manual. =PAGE= STREAML1 - Blade Streamline Grid Data Description Defines grid points on a blade streamline from the blade leading edge to the blade trailing edge. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ STREAML1 SLN G1 G2 G3 G4 G5 G6 G7 abc Ĵ STREAML1 3 2 4 6 8 10 14 16 ABC Ŀ +bc G8 G9 -etc.- Ĵ +BC 20 24 Alternate Form: Ŀ STREAML1 SLN GID1 "THRU" GID2 Ĵ STREAML1 5 6 THRU 12 Field Contents SLN Streamline number (Integer > 0). Gi, GIDi Grid point identification numbers (Integer > 0). Remarks 1. This card is required for static aerothermoelastic design/analysis and blade cyclic modal flutter problems. 2. There must be one STREAML1 card for each streamline on the blade. 3. For blade cyclic modal flutter problems, there must be an equal number of STREAML1 and STREAML2 cards and the streamline number, SLN, must be the same on the corresponding cards. 4. The streamline numbers, SLN, must increase with increasing radial distance of the blade section from the axis of rotation. The lowest SLN and the highest SLN will be assumed to represent the blade sections closest to, and farthest from, the axis of rotation, respectively. 5. All grid points should be unique. 6. All grid points referenced by GID1 through G1D2 must exist. 7. All STREAML1 cards must have the same number of grid points. The grid points must be input from the blade leading edge to the blade trailing edge in the correct positional order. =PAGE= STREAML2 - Blade Streamline Flow Data Description Defines aerodynamic data for a blade streamline. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ STREAML2 SLN NSTNS STAGGER CHORD RADIUS/ BSPACE MACH DEN abc DCBDZB Ĵ STREAML2 2 3 23.5 1.85 6.07 .886 .934 .066 ABC Ŀ +bc VEL FLOWA/ SWEEP +bc 1014.2 55.12 Field Contents SLN Streamline number (Integer > 0). NSTNS Number of computing stations on the blade streamline (Integer, 3 <= NSTNS <= 10). STAGGER Blade stagger angle in degrees (Real, -90.0 < STAGGER < 90.0). CHORD Blade chord (Real > 0.0). RADIUS/DCBDZB Radius of streamline (for flutter analysis without sweep effects) (Real > 0.0) or aC/aZ (for flutter analysis with sweep effects) (Real). C is the swept chord and Z is the (local) spanwise reference direction. See Remark 4. BSPACE Blade spacing (Real > 0.0). MACH Relative flow Mach number at blade leading edge (Real > 0.0). DEN Gas density at blade leading edge (Real > 0.0). VEL Relative flow velocity at blade leading edge (Real > 0.0). FLOWA/SWEEP Relative flow angle at blade leading edge (for flutter analysis without sweep effects) or blade sweep angle (for flutter analysis with sweep effects) (Real, -90.0 < FLOWA or SWEEP < 90.0 degrees). See Remark 4. Remarks 1. At least three (3), and no more than fifty (50), STREAML2 cards are required for a blade cyclic modal flutter analysis. 2. For blade cyclic modal flutter problems, there must be an equal number of STREAML1 and STREAML2 cards and the streamline number, SLN, must be the same on the corresponding cards. 3. It is not required that all streamlines be used to define the aerodynamic matrices employed in blade flutter analysis. 4. For flutter analysis with sweep effects, the use of the NASTRAN card is required as follows (see Sections 1.20 and 2.1): NASTRAN SYSTEM(93) = 1 =PAGE= SUPAX - Axisymmetric Fictitious Support Description Defines coordinates at which determinate reactions are to be applied during the analysis of a free body modeled with CCONEAX, CTRAPAX, or CTRIAAX elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SUPAX RID HID C RID HID C Ĵ SUPAX 4 3 2 Field Contents RID Ring identification number (Integer > 0). HID Harmonic identification number (Integer >= 0). C Component number (any unique combination of the digits 1 - 6). Remarks 1. This card is allowed if and only if an AXIC card is also present. 2. Up to 12 coordinates may appear on a single card. 3. Coordinates appearing on SUPAX cards may not appear on MPCAX, SPCAX, or OMITAX cards. 4. For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. 5. For a discussion of the axisymmetric solid problem, see Section 5.11 of the Theoretical Manual. =PAGE= SUPORT - Fictitious Support Description Defines coordinates at which determinate reactions are to be applied to a free body during analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ SUPORT ID C ID C ID C ID C Ĵ SUPORT 16 215 Field Contents ID Grid or scalar point identification number (Integer > 0). C Component number (zero or blank for scalar points; any unique combination of the digits 1 - 6 for grid points). Remarks 1. Coordinates defined on this card may not appear on single-point constraint cards (SPC, SPC1), on omit cards (OMIT, OMIT1) or as dependent coordinates in multipoint constraint equations (MPC) or as degrees of freedom on rigid elements (CRIGD1, CRIGD2, CRIGD3, CRIGDR). 2. From one to twenty-four support coordinates may be defined on a single card. =PAGE= TABDMP1 - Structural Damping Table Description Defines structural damping as a tabular function of frequency. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TABDMP1 ID abc Ĵ TABDMP1 3 ABC Ŀ +bc F1 G1 F2 G2 F3 G3 F4 G4 Ĵ +BC 2.5 .01057 2.6 .01362 ENDT Field Contents ID Table identification number (Integer > 0). Fi Frequency value in cycles per unit time (Real >= 0.0). Gi Damping value (Real). Remarks 1. The Fi must be in either ascending or descending order but not both. 2. Jumps (Fi = Fi+1) are allowed, but not at the end points. 3. At least two entries must be present. 4. Any Fi, Gi entry may be ignored by placing the BCD string SKIP in either of two fields used for that entry. 5. The end of the table is indicated by the existence of the BCD string ENDT in either of the two fields following the last entry. An error is detected if any continuation cards follow the card containing the end-of-table flag ENDT. 6. The TABDMP1 mnemonic implies the use of the algorithm Ŀ G = g (F) T where F is input to the table and G is returned. The table look-up gT(F) is performed using linear interpolation within the table and linear extrapolation outside the table using the last two end points at the appropriate table end. At jump points the average gT(F) is used. There are no error returns from this table look-up procedure. 7. Structural damping tables must be selected in the Case Control Deck (SDAMP = ID) to be used by NASTRAN. 8. Structural damping is used only in modal formulations of complex eigenvalue analysis, frequency response analysis, or transient response analysis. 9. A PARAM, KDAMP, is used in aeroelastic rigid formats to select the type of damping. See PARAM bulk data card. =PAGE= TABLED1 - Dynamic Load Tabular Function Description Defines a tabular function for use in generating frequency-dependent and time-dependent dynamic loads. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TABLED1 ID +abc Ĵ TABLED1 32 ABC Ŀ +abc X1 Y1 X2 Y2 X3 Y3 X4 Y4 Ĵ +BC -3.0 6.9 2.0 5.6 3.0 5.6 ENDT Field Contents ID Table identification number (Integer > 0). Xi, Yi Tabular entries (Real). Remarks 1. The Xi must be in either ascending or descending order but not both. 2. Jumps between two points (Xi = Xi+1) are allowed, but not at the end points. 3. At least two entries must be present. 4. Any X-Y entry may be ignored by placing the BCD string SKIP in either of the two fields used for that entry. 5. The end of the table is indicated by the existence of the BCD string ENDT in either of the two fields following the last entry. An error is detected if any continuation cards follow the card containing the end-of-table flag ENDT. 6. Each TABLEDi mnemonic implies the use of a specific algorithm. For TABLED1 type tables, this algorithm is Ŀ Y = y (X) T where X is input to the table and Y is returned. The table look-up yT(x), x = X, is performed using linear interpolation within the table and linear extrapolation outside the table using the last two end points at the appropriate table end. At jump points the average yT(x) is used. There are no error returns from this table look-up procedure. 7. Linear extrapolation is not used for Fourier Transform methods. The function is zero outside the range. =PAGE= TABLED2 - Dynamic Load Tabular Function Description Defines a tabular function for use in generating frequency-dependent and time-dependent dynamic loads. Also contains parametric data for use with the table. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TABLED2 ID X1 +abc Ĵ TABLED2 15 -10.5 ABC Ŀ +abc x1 y1 x2 y2 x3 y3 x4 y4 +def Ĵ +BC 1.0 -4.5 2.0 -4.2 2.0 2.8 7.0 6.5 DEF Ŀ +def x5 y5 x6 y6 x7 y7 x8 y8 Ĵ +EF SKIP SKIP 9.0 6.5 ENDT Field Contents ID Table identification number (Integer > 0). X1 Table parameter (Real). xi, yi Tabular entries (Real). Remarks 1. The xi must be in either ascending or descending order but not both. 2. Jumps between two points (xi = xi+1) are allowed, but not at the end points. 3. At least two entries must be present. 4. Any X-Y entry may be ignored by placing the BCD string SKIP in either of the two fields used for that entry. 5. The end of the table is indicated by the existence of the BCD string ENDT in either of the two fields following the last entry. An error is detected if any continuation cards follow the card containing the end-of-table flag ENDT. 6. Each TABLEDi mnemonic implies the use of a specific algorithm. For TABLED2 type tables, this algorithm is Ŀ Y = y (X -X1) T where X is input to the table and Y is returned. The table look-up yT(x), x = X-X1, is performed using linear interpolation within the table and linear extrapolation outside the table using the last two end points at the appropriate table end. At jump points the average yT(x) is used. There are no error returns from this table look-up procedure. 7. Linear extrapolation is not used for Fourier Transform methods. The function is zero outside the range. =PAGE= TABLED3 - Dynamic Load Tabular Function Description Defines a tabular function for use in generating frequency-dependent and time-dependent dynamic loads. Also contains parametric data for use with the table. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TABLED3 ID X1 X2 +abc Ĵ TABLED3 62 126.9 30.0 ABC Ŀ +abc x1 Yy x2 y2 x3 y3 x4 y4 Ĵ +BC 2.9 2.9 3.6 4.7 5.2 5.7 ENDT Field Contents ID Table identification number (Integer > 0). X1, X2 Table parameters (Real; X2 not equal 0.0). xi, yi Tabular entries (Real). Remarks 1. The xi must be in either ascending or descending order but not both. 2. Jumps between two points (xi = xi+1) are allowed, but not at the end points. 3. At least two entries must be present. 4. Any X-Y entry may be ignored by placing the BCD string SKIP in either of the two fields used for that entry. 5. The end of the table is indicated by the existence of the BCD string ENDT in either of the two fields following the last entry. An error is detected if any continuation cards follow the card containing the end-of-table flag ENDT. 6. Each TABLEDi mnemonic implies the use of a specific algorithm. For TABLED3 type tables, this algorithm is Ŀ (X -X1) Y = y ij T X2 ٳ where X is input to the table and Y is returned. The table look-up yT(x), x = (X-X1)/X2, is performed using linear interpolation within the table and linear extrapolation outside the table using the last two end points at the appropriate table end. At jump points the average yT(x) is used. There are no error returns from this table look-up procedure. 7. Linear extrapolation is not used for Fourier Transform methods. The function is zero outside the range. =PAGE= TABLED4 - Dynamic Load Tabular Function Description Defines coefficients of a power series for use in generating frequency-dependent and time-dependent dynamic loads. Also contains parametric data for use with the table. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TABLED4 ID X1 X2 X3 X4 +abc Ĵ TABLED4 28 0.0 1.0 0.0 100. ABC Ŀ +abc A0 A1 A2 A3 A4 A5 A6 A7 +def Ĵ +BC 2.91 -0.0329 6.51-5 0.0 -3.4-7 ENDT -etc.- Field Contents ID Table identification number (Integer > 0). X1,...,X4 Table parameters (Real; X2 not equal 0.0; X3 < X4). Ai Coefficient entries (Real). Remarks 1. At least one entry must be present. 2. The end of the table is indicated by the existence of the BCD string ENDT in the field following the last entry. An error is detected if any continuation cards follow the card containing the end-of-table flag ENDT. 3. Each TABLEDi mnemonic implies the use of a specific algorithm. For TABLED4 type tables, this algorithm is Ŀ N (X -X1)i Y = A ij i=0 i X2 where X is input to the table and Y is returned. Whenever X < X3, use X3 for X; whenever X > X4, use X4 for X. There are N + 1 entries in the table. There are no error returns from this table look-up procedure. =PAGE= TABLEM1 - Material Property Table Description Defines a tabular function for use in generating temperature dependent material properties. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TABLEM1 ID +abc Ĵ TABLEM1 32 ABC Ŀ +abc x1 y1 x2 y2 x3 y3 x4 y4 +def Ĵ +BC -3.0 6.9 2.0 5.6 3.0 5.6 ENDT -etc.- Field Contents ID Table identification number (Integer > 0). xi, yi Tabular entries (Real). Remarks 1. The xi must be in either ascending or descending order but not both. 2. Jumps between two points (xi = xi+1) are allowed, but not at the end points. 3. At least two entries must be present. 4. Any x-y entry may be ignored by placing the BCD string SKIP in either of the two fields used for that entry. 5. The end of the table is indicated by the existence of the BCD string ENDT in either of the two fields following the last entry. An error is detected if any continuation cards follow the card containing the end-of-table flag ENDT. 6. Each TABLEMi mnemonic implies the use of a specific algorithm. For TABLEM1 type tables, this algorithm is Ŀ Y = y (X) T where X is input to the table and Y is returned. The table look-up yT(x), x = X, is performed using linear interpolation within the table and linear extrapolation outside the table using the last two end points at the appropriate table end. At jump points the average yT(x) is used. There are no error returns from this table look-up procedure. =PAGE= TABLEM2 - Material Property Table Description Defines a tabular function for use in generating temperature dependent material properties. Also contains parametric data for use with the table. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TABLEM2 ID X1 +abc Ĵ TABLEM2 15 -10.5 ABC Ŀ +abc x1 y1 x2 y2 x3 y3 x4 y4 +def Ĵ +BC 1.0 -4.5 2.0 -4.5 2.0 2.8 7.0 6.5 DEF Ŀ +def x5 y5 x6 y6 x7 y7 x8 y8 Ĵ +EF SKIP SKIP 9.0 6.5 ENDT -etc.- Field Contents ID Table identification number (Integer > 0). X1 Table parameter (Real). xi, yi Tabular entries (Real). Remarks 1. The xi must be in either ascending or descending order but not both. 2. Jumps between two points (xi = xi+1) are allowed, but not at the end points. 3. At least two entries must be present. 4. Any x-y entry may be ignored by placing the BCD string SKIP in either of the two fields used for that entry. 5. The end of the table is indicated by the existence of the BCD string ENDT in either of the two fields following the last entry. An error is detected if any continuation cards follow the card containing the end-of-table flag ENDT. 6. Each TABLEMi mnemonic implies the use of a specific algorithm. For TABLEM2 type tables, this algorithm is Ŀ Y = Z y (X -X1) T where X is input to the table, Y is returned, and Z is supplied from the basic MATi card. The table look-up yT(x), x = X - X1, is performed using linear interpolation within the table and linear extrapolation outside the table using the last two end points at the appropriate table end. At jump points the average yT(x) is used. There are no error returns from this table look-up procedure. =PAGE= TABLEM3 - Material Property Table Description Defines a tabular function for use in generating temperature dependent material properties. Also contains parametric data for use with the table. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TABLEM3 ID X1 X2 +abc Ĵ TABLEM3 62 126.9 30.0 +ABC Ŀ +abc x1 y1 x2 y2 x3 y3 x4 y4 +def Ĵ +BC 2.9 2.9 3.6 4.7 5.2 5.7 ENDT -etc.- Field Contents ID Table identification number (Integer > 0). X1, X2 Table parameters (Real; X2 not equal 0.0). xi, yi Tabular entries (Real). Remarks 1. The xi must be in either ascending or descending order but not both. 2. Jumps between two points (xi = xi+1) are allowed, but not at the end points. 3. At least two entries must be present. 4. Any x-y entry may be ignored by placing the BCD string SKIP in either of the two fields used for that entry. 5. The end of the table is indicated by the existence of the BCD string ENDT in either of the two fields following the last entry. An error is detected if any continuation cards follow the card containing the end-of-table flag ENDT. 6. Each TABLEMi mnemonic implies the use of a specific algorithm. For TABLEM3 type tables, this algorithm is Ŀ Y = Z y (X -X1) T ij X2 where X is input to the table, Y is returned, and Z is supplied from the basic MATi card. The table look-up yT(x), x = (X - X1)/X2, is performed using linear interpolation within the table and linear extrapolation outside the table using the last two end points at the appropriate table end. At jump points the average yT(x) is used. There are no error returns from this table look-up procedure. =PAGE= TABLEM4 - Material Property Table Description Defines coefficients of a power series for use in generating temperature dependent material properties. Also contains parametric data for use with the table. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TABLEM4 ID X1 X2 X3 X4 +abc Ĵ TABLEM4 28 0.0 1.0 0.0 100. ABC Ŀ +abc A0 A1 A2 A3 A4 A5 A6 A7 +def Ĵ +BC 2.91 -0.03296.51-5 0.0 -3.4-7 ENDT -etc.- Field Contents ID Table identification number (Integer > 0). X1,...,X4 Table parameters (Real; X2 not equal 0.0; X3 < X4). Ai Coefficient entries (Real). Remarks 1. At least one entry must be present. 2. The end of the table is indicated by the existence of the BCD string ENDT in the field following the last entry. An error is detected if any continuation cards follow the card containing the end-of-table flag ENDT. 3. Each TABLEMi mnemonic implies the use of a specific algorithm. For TABLEM4 type tables, this algorithm is Ŀ N (X -X1)i Y = Z A ij i=0 i X2 where X is input to the table, Y is returned, and Z is supplied from the basic MATi card. Whenever X < X3, use X3 for X; whenever X > X4, use X4 for X. There are N + 1 entries in the table. There are no error returns from this table look-up procedure. =PAGE= TABLES1 - Tabular Stress-Strain Function Description Defines a tabular stress-strain function for use in piecewise linear analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TABLES1 ID +abc Ĵ TABLES1 32 ABC Ŀ +abc x1 y1 x2 y2 x3 y3 x4 y4 +def Ĵ +BC -3.0 6.9 2.0 5.6 3.0 5.6 ENDT -etc.- Field Contents ID Table identification number (Integer > 0). xi, yi Tabular entries (Real). Remarks 1. The xi must be in either ascending or descending order but not both. 2. For piecewise linear analysis, the yi numbers must form a non-decreasing sequence for an ascending xi sequence and vice versa. 3. Jumps between two points (xi = xi+l) are allowed, but not at the end points. 4. At least two entries must be present. 5. Any x-y entry may be ignored by placing the BCD string SKIP in either of the two fields used for that entry. 6. The end of the table is indicated by the existence of the BCD string ENDT in either of the two fields following the last entry. An error is detected if any continuation cards follow the card containing the end-of-table flag ENDT. 7. Each TABLESi mnemonic implies the use of a specific algorithm. For TABLES1 type tables, this algorithm is Ŀ Y = y (X) T where X is input to the table and Y is returned. The table look-up yT(x), x = X, is performed using linear interpolation within the table and linear extrapolation outside the table using the last two end points at the appropriate table end. At jump points the average yT(x) is used. There are no error returns from this table look-up procedure. 8. The table may have a zero slope only at its end. =PAGE= TABRND1 - Power Spectral Density Table Description Defines power spectral density as a tabular function of frequency for use in random analysis. Referenced on the RANDPS card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TABRND1 ID abc Ĵ TABRND1 3 ABC Ŀ +bc f1 g1 f2 g2 f3 g3 f4 g4 def Ĵ +BC 2.5 .01057 2.6 .01362 ENDT -etc.- Field Contents ID Table identification number (Integer > 0). fi Frequency value in cycles per unit time (Real not equal 0.0). gi Power spectral density (Real). Remarks 1. The fi must be in either ascending or descending order but not both. 2. Jumps between two points (fi = fi+1) are allowed, but not at the end points. 3. At least two entries must be present. 4. Any f-g entry may be ignored by placing the BCD string SKIP in either of the two fields used for that entry. 5. The end of the table is indicated by the existence of the BCD string ENDT in either of the two fields following the last entry. An error is detected if any continuation cards follow the card containing the end-of-table flag ENDT. 6. The TABRND1 mnemonic implies the use of the algorithm Ŀ G = g (F) T where F is input to the table and G is returned. The table look-up gT(F) is performed using linear interpolation within the table and linear extrapolation outside the table using the last two end points at the appropriate table end. At jump points the average gT(F) is used. There are no error returns from this table look-up procedure. =PAGE= TABRNDG - Gust Power Spectral Density Description Defines the power spectral density of a gust for aeroelastic analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TABRNDG ID TYPE LU WG Ĵ TABRNDG 3 1 1.3 1. ABC Field Contents ID Table identification number (Integer > 0). TYPE Choice of Von Karman (TYPE = 1) or Dryden model (TYPE = 2) (Integer 1 or 2). LU L/U, scale of turbulence divided by velocity (units of time) (Real). WG Root-mean-square gust velocity. Remarks 1. This card must be referenced on a RANDPS data card. 2. The power spectral density is given by: 1+2(p+l)k**2(L/U)**2w**2 Sq(w) = 2(WG)**2(L/U) [1+k**2(L/U)**2w**2]**(p+3/2) where Ŀ Type p k Ĵ 1=Von Karman l/3 l.339 2=Dryden l/2 l.0 and w = 2*pi*f. The units of Sq(w) are velocity squared per Hertz. 3. Other PSD functions may be defined using the TABRND1 data card. =PAGE= TEMP - Grid Point Temperature Field Description Defines temperature at grid points for determination of: 1. Thermal loading 2. Temperature-dependent material properties 3. Stress recovery Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TEMP SID G T G T G T Ĵ TEMP 3 94 316.2 49 219.8 Field Contents SID Temperature set identification number (Integer > 0). G Grid point identification number (Integer > 0). T Temperature (Real). Remarks 1. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to be used by NASTRAN. 2. From one to three grid point temperatures may be defined on a single card. 3. If thermal effects are requested, all elements must have a temperature field defined either directly on a TEMPP1, TEMPP2, TEMPP3, or TEMPRB card or indirectly as the average of the connected grid point temperatures defined on the TEMP or TEMPD cards. Directly defined element temperatures always take precedence over the average of grid point temperatures. 4. If the element material is temperature dependent, its properties are evaluated at the average temperature. In the case of isoparametric hexahedron elements, their properties are evaluated at the temperature computed by interpolating the grid point temperatures. 5. Average element temperatures are obtained as a simple average of the connecting grid point temperatures when no element temperature data are defined. 6. Set ID must be unique with respect to all other LOAD type cards if TEMP(LOAD) is specified in the Case Control Deck. 7. In heat transfer analysis, the TEMP card is used for the following special purposes: a. The Case Control card, TEMP(MATERIAL), will select the initial estimated temperature field for nonlinear conductivity and radiation effects. See Section 1.8. b. Boundary temperatures are defined in Rigid Format 3, HEAT by the Case Control card, TEMP(MATERIAL). These points are specified with SPC cards. c. The Case Control card, IC, will select the initial conditions, that is, grid point temperatures, in transient analysis. =PAGE= TEMPAX - Axisymmetric Temperature Description Defines temperature sets for a model containing CCONEAX, CTRAPAX, or CTRIAAX elements. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TEMPAX SID RID PHI TEMP SID RID PHI TEMP Ĵ TEMPAX 4 7 30.0 105.3 Field Contents SID Temperature set identification number (Integer > 0). RID Ring identification number (see RINGAX card) (Integer > 0). PHI Azimuthal angle in degrees (Real). TEMP Temperature (Real). Remarks 1. This card is allowed if and only if an AXIC card is also present. 2. One or two temperatures may be defined on each card. 3. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to be used by NASTRAN. 4. Set ID must be unique with respect to all other LOAD type cards if TEMP(LOAD) is specified in the Case Control Deck. 5. At least two different angles are required for each RID and temperature set to specify the subtended angle [b-a] over which the temperature applies. 6. For a discussion of the conical shell problem, see Section 5.9 of the Theoretical Manual. 7. For a discussion of the axisymmetric solid problem, see Section 5.11 of the Theoretical Manual. =PAGE= TEMPD - Grid Point Temperature Field Default Description Defines a temperature default for all grid points of the structural model which have not been given a temperature on a TEMP card. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TEMPD SID T SID T SID T SID T Ĵ TEMPD 1 216.3 Field Contents SID Temperature set identification number (Integer > 0). T Default temperature (Real). Remarks 1. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to be used by NASTRAN. 2. From one to four default temperatures may be defined on a single card. 3. If thermal effects are requested, all elements must have a temperature field defined either directly on a TEMPP1, TEMPP2, TEMPP3, or TEMPRB card or indirectly as the average of the connected grid point temperatures defined on the TEMP or TEMPD cards. Directly defined element temperatures always take precedence over the average of grid point temperatures. 4. If the element material is temperature dependent its properties are evaluated at the average temperature. In the case of isoparametric hexahedron elements, their properties are evaluated at the temperature computed by interpolating the grid point temperatures. 5. Average element temperatures are obtained as a simple average of the connecting grid point temperatures when no element temperature data are defined. 6. Set ID must be unique with respect to all other LOAD type cards if TEMP(LOAD) is specified in the Case Control Deck. 7. In heat transfer analysis, the TEMP card is used for the following special purposes: a. The Case Control card, TEMP(MATERIAL), will select the initial estimated temperature field for nonlinear conductivity and radiation effects. See Section 1.8. b. Boundary temperatures are defined in Rigid Format 3, HEAT, by the Case Control card, TEMP(MATERIAL). These points are specified with SPC cards. c. The Case Control card, IC, will select the initial conditions, that is, grid point temperatures, in transient analysis. =PAGE= TEMPP1 - Plate Element Temperature Field Description Defines a temperature field for plate, membrane, and combination elements (by an average temperature and a thermal gradient over the cross-section) for determination of: 1. Thermal loading 2. Temperature-dependent material properties 3. Stress recovery Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TEMPP1 SID EID1 T T' T1 T2 +abc Ĵ TEMPP1 2 24 62.0 10.0 57.0 67.0 A1A Ŀ +abc EID2 EID3 EID4 EID5 EID6 EID7 EID8 EID9 +def Ĵ +1A 26 21 19 30 -etc.- Alternate Form of Continuation Card: Ŀ +abc EID2 "THRU" EIDi EIDj "THRU" EIDk +def Ĵ +1A 1 THRU 10 30 THRU 61 Field Contents SID Temperature set identification number (Integer > 0). EIDn Unique element identification number(s) (Integer > 0 or BCD: the continuation card may have THRU in fields 3 and/or 6, in which case EID2 < EIDi, EIDj < EIDk). T Average temperature over the cross-section. Assumed constant over area (Real). T' Effective linear thermal gradient. Not used for membranes (Real). T1, T2 Temperatures for stress calculation, at points defined on the element property card. Z1 and Z2 are given on PTRBSC, PQDPLT, PTRPLT, PTRIA1, and PQUAD1 cards. T1 may be specified on the lower surface and T2 on the upper surface for the QUAD2 and TRIA2 elements. These data are not used for membrane elements (Real). Remarks 1. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to be used by NASTRAN. 2. If continuation cards are present, EID1 and elements specified on the continuation card(s) are used. Elements must not be specified more than once. 3. If thermal effects are requested, all elements must have a temperature field defined either directly on a TEMPP1, TEMPP2, TEMPP3, or TEMPRB card or indirectly as the average of the connected grid point temperatures defined on the TEMP or TEMPD cards. Directly defined element temperatures always take precedence over the average of grid point temperatures. 4. For a temperature field other than a constant gradient the effective gradient for a homogeneous plate is: 1 T' = T(z)z dz I z where I is the bending inertia, and z is the distance from the neutral surface in the positive normal direction. 5. The average temperature for a homogeneous plate is 1 T = T dVolume Volume Volume 6. If the element material is temperature dependent, its properties are evaluated at the average temperature T. 7. Set ID must be unique with respect to all other LOAD type cards if TEMP(LOAD) is specified in the Case Control Deck. =PAGE= TEMPP2 - Plate Element Temperature Field Description Defines a temperature field for plate, membrane, and combination elements by an average temperature and thermal moments for determination of: 1. Thermal loading 2. Temperature-dependent material properties 3. Stress recovery Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TEMPP2 SID EID1 T MX MY MXY T1 T2 +abc Ĵ TEMPP2 2 36 68.8 XYZ Ŀ +abc EID2 EID3 EID4 EID5 EID6 EID7 EID8 EID9 +def Ĵ +YZ 400 1 2 5 -etc.- Alternate Form of Continuation Card: Ŀ +abc EID2 "THRU" EIDi EIDj "THRU" EIDk +def Ĵ +YZ 37 THRU 312 315 THRU 320 -etc.- Field Contents SID Temperature set identification number (Integer > 0). EIDn Unique element identification number(s) (Integer > 0 or BCD: a continuation card may have THRU in field 3 and/or 6 in which case EID2 < EIDi, EIDj < EIDk). T Average temperature over cross-section. Assumed constant over area (Real). MX, MY, MXY Resultant thermal moments per unit width in element coordinate system. Not used for membrane elements (Real). T1, T2 Temperature for stress calculation at points defined on the element property card. Z1 and Z2 are given on PTRBSC, PQDPLT, PTRPLT, PTRIA1, and PQUAD1 cards. T1 may be specified on the lower surface and T2 on the upper surface for the QUAD2 and TRIA2 elements. These data are not used for membrane elements (Real). Remarks 1. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to be used by NASTRAN. 2. If continuation cards are present, EID1 and elements specified on the continuation card(s) are used. Elements must not be specified more than once. 3. If thermal effects are requested all elements must have a temperature field defined either directly on a TEMPP1, TEMPP2, TEMPP3, or TEMPRB card or indirectly as the average of the connected grid point temperatures defined on the TEMP or TEMPD cards. Directly defined element temperatures always take precedence over the average of grid point temperatures. 4. The thermal moments in the element coordinate system may be calculated from the formula: Mx My = - | [Ge] { } T(z)z dz Mxy e where the integration is performed over the bending material properties in the element coordinate system. [Ge] 3x3 elastic coefficient matrix {e} 3x1 material thermal expansion coefficients T(z) temperature at z z distance from the neutral surface in the element coordinate system. 5. The temperature dependent material properties are evaluated at the average temperature T. If a property varies with depth, an effective value must be used which satisfies the desired elastic and stress relationships. The temperatures at the fiber distances may be changed to compensate for local differences in e and produce correct stresses. 6. Set ID must be unique with respect to all other LOAD type cards if TEMP(LOAD) is specified in the Case Control Deck. =PAGE= TEMPP3 - Plate Element Temperature Field Description Defines a temperature field for homogeneous plate, membrane, and combination elements (by a tabular description of the thermal field over the cross-section) for determination of: 1. Thermal loading 2. Temperature-dependent material properties 3. Stress recovery. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TEMPP3 SID EID1 Z0 T0 Z1 T1 Z2 T2 +abc Ĵ TEMPP3 17 39 0.0 32.9 2.0 43.4 2.5 45.0 XY1 Ŀ +abc Z3 T3 Z4 T4 Z5 T5 Z6 T6 +def Ĵ +Y1 3.0 60.0 4.0 90.0 XY2 Ŀ +def Z7 T7 Z8 T8 Z9 T9 Z10 T10 +ghi Ĵ +Y2 XY3 Ŀ +ghi EID2 EID3 EID4 EID5 EID6 EID7 EID8 EID9 +jkl Ĵ +Y3 1 2 3 4 5 6 8 10 -etc.- Alternate Form of Continuation Card Number 3: Ŀ +ghi EID2 "THRU" EIDi EIDj "THRU" EIDk +jkl Ĵ +Y3 1 THRU 10 -etc.- Field Contents SID Temperature set identification number (Integer > 0). EIDn Unique element identification number(s) (Integer > 0 or BCD: the continuation card may have THRU in fields 3 and/or 6 in which case EID2 < EIDi, EIDj < EIDk). Z0 Position of the bottom surface with respect to an arbitrary reference plane (Real). Zi Positions on cross-section from bottom to top of cross-section relative to the arbitrary reference plane. There must be an increasing sequence with the last nonzero value corresponding to the top surface (Real). T0 Temperature at the bottom surface (Real). Ti Temperature at position Zi (Real). Remarks 1. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to be used by NASTRAN. 2. If the third (and succeeding) continuation card is present, EID1 and elements specified on the third (and succeeding) continuation cards are used. Elements must not be specified more than once. 3. The first and second continuation card must be present if a list of elements is to be used. 4. If thermal effects are requested, all elements must have a temperature field defined either directly on a TEMPP1, TEMPP2, TEMPP3, or TEMPRB card or indirectly as the average of the connected grid point temperatures defined on the TEMP or TEMPD cards. Directly defined element temperatures always take precedence over the average of grid point temperatures. 5. If the element material is temperature dependent, its properties are evaluated at the average temperature over the depth which is calculated by the program using a linear distribution between points. 6. For stress recovery, the temperatures at the extreme points z0 and zN are assigned to the bottom surface and the top surface of the elements specified on either PTRIA2 or QUAD2 data card. 7. The data is limited to a maximum of eleven points on the temperature-depth profile. 8. Set ID must be unique with respect to all other LOAD type cards if TEMP(LOAD) is specified in the Case Control Deck. =PAGE= TEMPRB - One-Dimensional Element Temperature Field Description Defines a temperature field for the BAR, ROD, TUBE, and CONROD elements for determination of: 1. Thermal loading 2. Temperature-dependent material properties 3. Stress recovery Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TEMPRB SID EID1 TA TB T'1a T'1b T'2a T'2b +abc Ĵ TEMPRB 200 1 68.0 23.0 0.0 28.0 2.5 AXY10 Ŀ +abc TCa TDa TEa TFa TCb TDb TEb TFb +def Ĵ +XY10 68.0 91.0 45.0 48.0 80.0 20.0 AXY20 Ŀ +def EID2 EID3 EID4 EID5 EID6 EID7 EID8 EID9 +ghi Ĵ +XY20 9 10 -etc.- Alternate Form for Continuation Card Number 2: Ŀ +def EID2 "THRU" EIDi EIDj "THRU" EIDk +ghi Ĵ +XY20 2 THRU 4 10 THRU 14 -etc.- Field Contents SID Temperature set identification number (Integer 0). EIDn Unique element identification number(s) (Integer > 0 or BCD: the second continuation card may have THRU in fields 3 and/or 6 in which case EID2 < EID1, EIDj < EIDk). TA, TB Average temperature over the area at end a and end b (Real). T'ij Effective linear gradient in direction i on end j (BAR only, Real). Tij Temperatures at point i as defined on the PBAR card(s) at end j. These data are used for stress recovery only (BAR only, Real). Remarks 1. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to be used by NASTRAN. 2. If at least one nonzero or nonblank Tij is present, the point temperatures given are used for stress recovery. If no Tij values are given, linear temperature gradients are assumed for stresses. 3. If the second (and succeeding) continuation card is present, EID1 and elements specified on the second (and succeeding) continuation cards are used. Elements must not be specified more than once. 4. If thermal effects are requested, all elements must have a temperature field defined either directly on a TEMPP1, TEMPP2, TEMPP3, or TEMPRB card or indirectly as the average of the connected grid point temperatures defined on the TEMP or TEMPD cards. Directly defined element temperatures always take precedence over the average of grid point temperatures. 5. The effective thermal gradients in the element coordinate system for the BAR element are defined by the following integrals over the cross-section. For end a (end b is similar): 1 T' = T (y,z)y dA 1a I A a 1 1 T' = T (y,z)z dA 2a I A a 2 where Ta(y,z) is the temperature at point y,z (in the element coordinate system) at end a of the BAR. See Section 1.3, Figure 1.3-1 for the element coordinate system: I1 and I2 are the moment of inertia about the z and y axis respectively. The temperatures are assumed to vary linearly along the length (x-axis). Note that if the temperature varies linearly over the cross-section then T'1a, T'1b, T'2a, and T'2b are the actual gradients. 6. If the element material is temperature dependent, the material properties are evaluated at the average temperature T + T A B 2 7. Set ID must be unique with respect to all other LOAD type cards if TEMP(LOAD) is specified in the Case Control Deck. =PAGE= TF - Dynamic Transfer Function Description 1. May be used to define a transfer function of the form 2 2 (BO + B1p + B2p )u + (AO(i) + A1(i)p + A2(i)p )u = 0 d i i 2. May be used as a means of direct matrix input. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TF SID GD CD B0 B1 B2 +abc Ĵ TF 1 2 3 4.0 5.0 6.0 Ŀ +abc G(1) C(1) A0(1) A1(1) A2(1) +def Ĵ +ABC 3 4 5.0 6.0 7.0 -etc.- Field Contents SID Set identification number (Integer > 0). GD, G(i) Grid, scalar, or extra point identification numbers (Integer > 0). CD, C(i) Component numbers (null or zero for scalar or extra points, any one of the digits 1 - 6 for a grid point). B0, B1, B2; A0(i), A1(i), A2(i) Transfer function coefficients (Real). Remarks 1. The matrix elements defined by this card are added to the dynamic matrices for the problem. 2. Transfer function sets must be selected in the Case Control Deck (TFL = SID) to be used by NASTRAN. 3. The constraint relation given above will hold only if no elements are connected to the dependent coordinate. =PAGE= TIC - Transient Initial Condition Description Defines values for the initial conditions of coordinates used in transient analysis. Both displacement and velocity values may be specified at independent coordinates of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TIC SID G C U0 V0 Ĵ TIC 1 3 2 5.0 -6.0 Field Contents SID Set identification number (Integer > 0). G Grid or scalar or extra point identification number (Integer > 0). C Component number (blank or zero for scalar or extra points, any one of the digits 1 - 6 for a grid point). U0 Initial displacement value (Real). V0 Initial velocity value (Real). Remarks 1. Transient initial condition sets must be selected in the Case Control Deck (IC = SID) to be used by NASTRAN for structural analysis; however, this card should not be used to define initial temperatures in heat transfer analysis. (See Section 2.3.) 2. If no TIC set is selected in the Case Control Deck, all initial conditions are assumed zero. 3. Initial conditions for coordinates not specified on TIC cards will be assumed zero. 4. Initial conditions may be used only in direct formulation. =PAGE= TICS - Transient Initial Condition, Substructure Analysis Description Defines values for the initial conditions of coordinates used in direct transient analysis. Both displacement and velocity values may be specified at independent coordinates of the structural model. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TICS SID NAME G C U0 V0 Ĵ TICS 1 SPAR 3 2 5.0 -6.0 Field Contents SID Set identification number (Integer > 0). NAME Basic substructure name. G Grid or scalar or extra point identification number (Integer > 0). C Component number (null or zero for scalar or extra points, any one of the digits 1 - 6 for a grid point). U0 Initial displacement value (Real). V0 Initial velocity value (Real). Remarks 1. Transient initial condition sets must be selected in the Case Control Deck (IC = SID) to be used by NASTRAN. 2. If no TIC set is selected in the Case Control Deck, all initial conditions are assumed zero. 3. Initial conditions for coordinates not specified on TIC cards will be assumed zero. 4. Initial conditions may be used only in direct formulation (Rigid Format 9) and may only be applied to the analysis of degrees of freedom, that is, only those coordinates retained in the solution substructure and not constrained using MPC, SPC, or OMIT data. 5. Used in substructure SOLVE operation. =PAGE= TLOAD1 - Transient Response Dynamic Load Description Defines a time-dependent dynamic load of the form {P(t)} = {A F(t - )} for use in transient response problems. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TLOAD1 SID L M TF Ĵ TLOAD1 5 7 9 13 Field Contents SID Set identification number (Integer > 0). L Identification number of DAREA card set or a thermal load set which defines A (Integer > 0). For automated multi-stage substructuring, reference a DAREAS card set. If desired, the set identification may also reference LOADC cards. M Identification number of DELAY or DELAYS card set which defines (Integer >= 0). TF Identification number of TABLEDi card which gives F(t - ) (Integer > 0). Remarks 1. If M is zero, will be zero. 2. Field 5 must be blank. 3. Dynamic load sets must be selected in the Case Control Deck (DLOAD = SID) to be used by NASTRAN. 4. TLOAD1 loads may be combined with TLOAD2 loads only by specification on a DLOAD card. That is, the SID on a TLOAD1 card may not be the same as that on a TLOAD2 card. 5. SID must be unique for all TLOAD1, TLOAD2, RLOAD1, and RLOAD2 cards. 6. Field 3 may reference sets containing QHBDY, QBDY1, QBDY2, QVECT, and QVOL cards when using the heat transfer option. 7. If the heat transfer option is used, the referenced QVECT data card may also contain references to functions of time, and therefore A may be a function of time. 8. Fourier analysis will be used if this is selected in an aeroelastic response problem. 9. With automated multi-stage substructuring, DAREAS cards may only reference degrees of freedom in the boundary set of the solution structure. 10. When L references LOADC cards, DAREAS cards with the same set identification and non-zero loads must also exist. =PAGE= TLOAD2 - Transient Response Dynamic Load Description Defines a time-dependent dynamic load of the form ~ ~ {O}, t < 0 or t > T2 - T1 {P(t)} = ~ ~B Ct ~ ~ A t e cos (2piFt + P) , 0 <= t <= T2 - T1 for use in transient response problems where t-tilde = t - T1 - . Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TLOAD2 SID L M T1 T2 F P +abc Ĵ TLOAD2 4 10 7 2.1 4.7 12.0 30.0 +12 Ŀ +bc C B Ĵ +12 2.0 3.0 Field Contents SID Set identification number (Integer > 0). L Identification number of DAREA card set or a thermal load set which defines A (Integer > 0). For automated multi-stage substructuring, reference a DAREAS card set. If desired, the set identification may also reference LOADC cards. M Identification number of DELAY or DELAYS card set which defines (Integer >= 0). T1 Time constant (Real >= 0.0). T2 Time constant (Real, T2 > T1). F Frequency in cycles per unit time (Real >= 0.0). P Phase angle in degrees (Real). C Exponential coefficient (Real). B Growth coefficient (Real). Remarks 1. If M is zero, will be zero. 2. Field 5 must be blank. 3. Dynamic load sets must be selected in the Case Control Deck (DLOAD = SID) to be used by NASTRAN. 4. TLOAD2 loads may be combined with TLOAD1 loads only by specification on a DLOAD card. That is, the SID on a TLOAD2 card may not be the same as that on a TLOAD1 card. 5. SID must be unique for all TLOAD1, TLOAD2, RLOAD1, and RLOAD2 cards. 6. Field 3 may reference load sets containing QHBDY, QBDY1, QBDY2, QVECT, QVOL, and SLOAD cards when using the heat transfer option. 7. If the heat transfer option is being used, the referenced QVECT load card may also contain references to functions of time, and therefore A may be a function of time. 8. Fourier analysis will be used if this selection is an aeroelastic response problem. =PAGE= TRANS - Component Substructure Transformation Definition Description Defines the location and orientation of the component substructure basic coordinate system axes relative to the basic coordinate system of the substructure formed as a result of the substructure COMBINE operation. The translation and rotation matrices are defined by specifying the coordinates of three points: A, B, C. The coordinates of points A, B, C must be expressed on this card in the basic coordinate system of the resultant combined substructure as follows: A defines the location of the origin of the basic coordinate system of the component substructure. B defines the location of a point on the z axis of the basic coordinate system of the component substructure. C defines the location of a point in the positive x side of the xz plane of the basic coordinate system of the component substructure. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TRANS SID A1 A2 A3 B1 B2 B3 +abc Ĵ TRANS 1 0.0 0.0 0.0 0.0 -0.5 10.0 ABC Ŀ +bc C1 C2 C3 Ĵ +BC 0.0 10.0 0.5 Field Contents SID Set identification number (Integer > 0). A1, A2, A3; C1, C2, C3; B1, B2, B3 Coordinates of the points defining system as described above. Remarks 1. Continuation card must be present. 2. Coordinates A, B, C are given in BASIC coordinate system of the result substructure. 3. The value of SID must be unique with respect to all other TRANS data cards. 4. Transformation sets for a whole substructure must be selected in the substructure Control Deck (TRANS = SID) to be used by NASTRAN. Note that TRANS is a subcommand of the substructure COMBINE command. 5. Transformation of individual grid points in a substructure prior to combining them is requested by the GTRAN Bulk Data card which references the TRANS information. 6. The three points (A1, A2, A3), (B1, B2, B3), (C1, C2, C3) must be unique and non-collinear. =PAGE= TSTEP - Transient Time Step Description Defines time step intervals at which solution will be generated and output in transient analysis. Format and Example 1 2 3 4 5 6 7 8 9 10 Ŀ TSTEP SID N(1) DT(1) NO(1) +abc Ĵ TSTEP 2 10 .001 5 +ABC Ŀ +abc N(2) DT(2) NO(2) +def Ĵ +ABC 9 0.01 1 +DEF -etc.- Field Contents SID Set identification number (Integer > 0). N(i) Number of time steps of value DT(i) (Integer >= 2). DT(i) Time increment (Real > 0.0). NO(i) Skip factor for output (every NO(i)th step will be saved for output.) (Integer > 0). Remarks 1. TSTEP cards must be selected in the Case Control Deck (TSTEP = SID) in order to be used by NASTRAN. 2. In aeroelastic response problems, this card is required only when TLOAD is requested, that is, when Fourier methods are selected.  ================================================ FILE: um/CASE.TXT ================================================ =PAGE= 2.3 CASE CONTROL DECK 2.3.1 Data Selection The Case Control cards that are used for selecting items from the Bulk Data Deck are listed below in functional groups. A detailed description of each card is given in Section 2.3.4. The first four characters of the mnemonic are sufficient if unique. The following Case Control cards are associated with the selection of applied loads for both static and dynamic analysis: 1. DEFORM - selects element deformation set. 2. DLOAD - selects dynamic loading condition. 3. DSCOEFFICIENT - selects loading factor for normal modes with differential stiffness. 4. LOAD - selects static structural loading condition or heat power and/or flux. 5. NONLINEAR - selects nonlinear loading condition for transient response. 6. PLCOEFFICIENT - selects loading increments for piecewise linear analysis. The following case control cards are used for the selection of constraints: 1. AXISYMMETRIC - selects boundary conditions for conical shell and axisymmetric solid elements; specifies the existence of fluid harmonics for a hydroelastic problem; or the applied source magnetic field in magnetostatic problem. 2. MPC - selects set of multipoint constraints for structural displacement or heat transfer boundary temperature relationships. 3. SPC - selects set of single-point constraints for structural displacements or heat transfer boundary temperatures. The following case control cards are used for the selection of direct input matrices: 1. B2PP - selects direct input structural damping or thermal capacitance matrices. 2. K2PP - selects direct input structural stiffness or thermal conductance matrices. 3. M2PP - selects direct input mass matrices. 4. TFL - selects transfer functions. The following case control cards specify the conditions for dynamic analyses: 1. CMETHOD - selects the conditions for complex eigenvalue extraction. 2. FREQUENCY - selects the frequencies to be used for frequency and random response calculations. 3. IC - selects the initial conditions for direct transient response. 4. METHOD - selects the conditions for real eigenvalue analysis. 5. RANDOM - selects the power spectral density functions to be used in random analysis. 6. SDAMPING - selects table to be used for determination of modal damping. 7. TSTEP - selects time steps to be used for integration in transient response problems. 8. FMETHOD - selects method to be used in aeroelastic flutter analysis. 9. GUST - selects aerodynamic gust loading in aeroelastic response analysis. The following case control cards are associated with the use of thermal fields: 1. TEMPERATURE(LOAD) - selects thermal field to be used for determining equivalent static loads. 2. TEMPERATURE(MATERIAL) - selects thermal field to be used for determining structural material properties or an estimate of the temperature distribution for heat transfer iterations. 3. TEMPERATURE - selects thermal field for determining both equivalent static loads and material properties. 2.3.2 Output Selection Printer output requests may be grouped in packets following OUTPUT cards or the individual requests may be placed anywhere in the Case Control Deck ahead of any structure plotter or curve plotter requests. Plotter requests are described in Section 4. The Case Control cards that are used for output selection are listed below in functional groups. A detailed description of each card is given in Section 2.3.4. The following cards are associated with output control, titling and bulk data echoes: 1. TITLE - defines a text to be printed on first line of each page of output. 2. SUBTITLE - defines a text to be printed on second line of each page of output. 3. LABEL - defines a text to be printed on third line of each page of output. 4. LINE - sets the number of data lines per printed page, default is 50 for 11-Inch paper. 5. MAXLINES - sets the maximum number of output lines, default is 20000. 6. ECHO - selects echo options for Bulk Data Deck, default is a sorted bulk data echo. Note: Echoes of the Executive Control and the Case Control decks are automatically printed and cannot be suppressed. The following cards are used in connection with some of the specific output requests for calculated quantities: 1. SET - defines lists of point numbers, elements numbers, or frequencies for use in output requests. 2. OFREQUENCY - selects a set of frequencies to be used for output requests in frequency and aeroelastic response problems (default is all frequencies) or flutter velocities. 3. TSTEP - selects a set of time steps to be used for output requests in transient response problems. 4. OTIME - selects a set of times to be used for output requests in transient analysis problems (default is all times). The following cards are used to make output requests for the calculated response of components in the SOLUTION set (components in the direct or modal formulation of the general K system) for dynamics problems: 1. SACCELERATION - requests the acceleration of the independent components for a selected set of points or modal coordinates. 2. SDISPLACEMENT - requests the displacements of the independent components for a selected set of points or modal coordinates or the temperatures of the independent components for a selected set of points in heat transfer. 3. SVELOCITY - requests the velocities of the independent components for a selected set of points or modal coordinates or the change in temperature with respect to time of the independent components for a selected set of points in heat transfer. 4. NLLOAD - requests the nonlinear loads for a selected set of physical points (grid points and extra points introduced for dynamic analysis) in transient response problems. The following cards are used to make output requests for stresses and forces, as well as calculated response of degrees of freedom used in the model: 1. FORCE or ELFORCE - requests the forces in a set of structural elements or the temperature gradients and fluxes in a set of structural or heat elements in heat transfer. 2. STRESS or ELSTRESS - requests the stresses in a set of structural elements or the velocity components in a fluid element in acoustic cavity analysis. 3. SPCFORCES - requests the single-point forces of constraint at a set of points or the thermal power transmitted to a selected set of points in heat transfer. 4. OLOAD - selects a set of applied loads for output. 5. ACCELERATION - requests the accelerations for a selected set of PHYSICAL points (grid, scalar and fluid points plus extra points introduced for dynamic analysis). 6. DISPLACEMENT - requests the displacements for a selected set of PHYSICAL points or the temperatures for a selected set of PHYSICAL points in heat transfer or the pressures for a selected set of PHYSICAL points in hydroelasticity. 7. VELOCITY - requests the velocities for a selected set of PHYSICAL points or the change in temperatures with respect to time for a selected set of PHYSICAL points in heat transfer. 8. HARMONICS - controls the number of harmonics that will be output for requests associated with the conical shell, axisymmetric solids and hydroelastic problems. 9. ESE - requests structural element strain energies in Rigid Format 1. 10. GPFORCE - requests grid point force balance due to element forces, forces of single point constraint, and applied loads in Rigid Format 1. 11. THERMAL - requests temperatures for a set of PHYSICAL points in heat transfer. 12. PRESSURE - requests pressures for a set of PHYSICAL points in hydroelasticity. 13. VECTOR - requests displacements for a selected set of PHYSICAL points. 14. MPCFORCE - requests multipoint forces of constraint at a set of points in Rigid Formats 1, 2, 3, 14, and 15. 15. NCHECK - requests significant digits to indicate numerical accuracy of element stress and force computations. 16. AEROF - requests frequency-dependent aerodynamic loads on interconnection points in aeroelastic response analysis. 17. STRAIN - requests the strains/curvatures in a set of structural elements (applicable to TRIA1, TRIA2, QUAD1, and QUAD2 only). 18. SCAN - SCANs output data and eliminates values that do not meet the specification set by this SCAN card. 2.3.3 Subcase Definition In general, a separate subcase is defined for each loading condition. In statics problems separate subcases are also defined for each set of constraints. In complex eigenvalue analysis and frequency response separate subcases are defined for each unique set of direct input matrices. Subcases may be used in connection with output requests, such as in requesting different output for each mode in a real eigenvalue problem. The Case Control Deck is structured so that a minimum amount of repetition is required. Only one level of subcase definition is necessary. All items placed above the subcase level (ahead of the first subcase) will be used for all following subcases, unless overridden within the individual subcase. In statics problems, subcases may be combined through the use of the SUBCOM feature. Individual loads may be defined in separate subcases and then combined by the SUBCOM. If the loads are mechanical, the responses are combined as shown in example 2, which follows. If a thermal load is involved, the responses due to mechanical and thermal loads may be recovered as shown in example 1. By redefining the thermal load(s) at the SUBCOM level, stresses and forces may be recovered. In statics problems, provision has been made for the combination of the results of several subcases. This is convenient for studying various combinations of individual loading conditions and for the superposition of solutions for symmetrical and antisymmetrical boundaries. Typical examples of subcase definition are given following a brief description of the cards used in subcase definitions. The following case control cards are associated with subcase definition: 1. SUBCASE - defines the beginning of a subcase that is terminated by the next subcase delimiters encountered. 2. SUBCOM - defines a combination of two or more immediately preceding subcases in statics problems. Output requests above the subcase level are used. 3. SUBSEQ - must appear in a subcase defined by SUBCOM to give the coefficients for making the linear combination of the preceding subcases. 4. SYM - defines a subcase in statics problems for which only output requests within the subcase will be honored. Primarily for use with symmetry problems where the individual parts of the solution may not be of interest. 5. SYMCOM - defines a combination of two or more immediately preceding SYM subcases in static problems. Output requests above the subcase level are used. 6. SYMSEQ - may appear in a subcase defined by SYMCOM to give the coefficient for making the linear combination of the preceding SYM subcases. A default value of 1.0 is used if no SYMSEQ card appears. 7. REPCASE - defines a subcase in statics problems that is used to make additional output requests for the previous real subcase. This card is required because multiple output requests for the same item are not permitted in the same subcase. Output requests above the subcase level are still used. . 8. MODES - controls the output for a given subcase as specified by the number of modes, otherwise all modes will be used. The following examples of Case Control Decks indicate typical ways of defining subcases: 1. Static analysis with multiple loads OUTPUT DISPLACEMENT = ALL MPC = 3 SUBCASE 1 SPC = 2 TEMPERATURE(LOAD) = 101 LOAD = 11 SUBCASE 2 SPC = 2 DEFORM = 52 LOAD = 12 SUBCASE 3 SPC = 4 LOAD = 12 SUBCASE 4 MPC = 4 SPC = 4 Four subcases are defined in this example. The displacements at all grid points will be printed for all four subcases. MPC = 3 will be used for the first three subcases and will be overridden by MPC = 4 in the last subcase. Since the constraints are the same for subcases 1 and 2 and the subcases are contiguous, the static solutions will be performed simultaneously. In subcase 1, thermal load 101 and external load 11 are internally superimposed, as are the external and deformation loads in subcase 2. In subcase 4 the static loading will result entirely from enforced displacements of grid points. 2. Linear combination of subcases SPC = 2 OUTPUT SET 1 = 1 THRU 10,20,30 DISPLACEMENT = ALL STRESS = 1 SUBCASE 1 LOAD = 101 OLOAD = ALL SUBCASE 2 LOAD = 201 OLOAD = ALL SUBCOM 51 SUBSEQ = 1.0,1.0 SUBCOM 52 SUBSEQ = 2.5,1.5 Two static loading conditions are defined in subcases 1 and 2. SUBCOM 51 defines the sum of subcases 1 and 2. SUBCOM 52 defines a linear combination consisting of 2.5 times subcase 1 plus 1.5 times subcase 2. The displacements at all grid points and the stresses for the element numbers in SET will be printed for all four subcases. In addition, the nonzero components of the static load vectors will be printed for subcases 1 and 2. 3. Statics problem with one plane of symmetry OUTPUT SET 1 = 1,11,21,31,51 SET 2 = 1 THRU 10, 101 THRU 110 DISPLACEMENT = 1 ELFORCE = 2 SYM 1 SPC = 11 LOAD = 21 OLOAD = ALL SYM 2 SPC = 12 LOAD = 22 SYMCOM 3 SYMCOM 4 SYMSEQ 1.0,-1 .0 Two SYM subcases are defined in subcases 1 and 2. SYMCOM 3 defines the sum and SYMCOM 4 the difference of the two SYM subcases. The nonzero components of the static load will be printed for subcase 1 and no output is requested for subcase 2. The displacements for the grid point numbers in set 1 and the forces for elements in set 2 will be printed for subcases 3 and 4. 4. Use of REPCASE in statics problems SET 1 = 1 THRU 10, 101 THRU 110, 201 THRU 210 SET 2 = 21 THRU 30, 121 THRU 130, 221 THRU 230 SET 3 = 31 THRU 40, 131 THRU 140, 231 THRU 240 SUBCASE 1 LOAD =10 SPC = 11 DISPLACEMENT = ALL SPCFORCE = 1 ELFORCE = 1 REPCASE 2 ELFORCE = 2 REPCASE 3 ELFORCE = 3 This example defines one subcase for solution and two subcases for output control. The displacements at all grid points and the nonzero components of the single-point forces of constraint along with forces for the elements in SET 1 will be printed for SUBCASE 1. The forces for elements in SET 2 will be printed for REPCASE 2 and the forces for elements in SET 3 will be printed for REPCASE 3. 5. Use of MODES in eigenvalue problems METHOD = 2 SPC = 10 SUBCASE 1 DISPLACEMENT = ALL STRESS = ALL MODES = 2 SUBCASE 3 DISPLACEMENT = ALL In this example the displacements at all grid points will be printed for all modes. The stresses in all elements will be printed for the first two modes. 2.3.4 Case Control Card Descriptions The format of the Case Control cards is free-field. In presenting general formats for each card embodying all options, the following conventions are used: 1. Upper-case letters and parentheses must be punched as shown. 2. Lower-case letters indicate that a substitution must be made. 3. Double brackets indicate that a choice of contents is mandatory. 4. Brackets contain an option that may be omitted or included by you. 5. First listed options or values are the default values. 6. Physical card consists of information punched in columns 1 through 72 of a card. Most case control cards are limited to a single physical card. 7. Logical card may have more than 72 columns with the use of continuation cards. A continuation card is honored by ending the preceding card with a comma. The structure plotter output request packet and the x-y output request packet, while part of the Case Control Deck, are treated separately in Sections 4.2 and 4.3, respectively. =PAGE= ACCELERATION - Acceleration Output Request Description Requests form and type of acceleration vector output. Format and Example(s) ACCELERATION ( SORT1 , PRINT , REAL ) = ALL SORT2 PUNCH IMAG n PHASE NONE ACCELERATION = 5 ACCELERATION(SORT2, PHASE) = ALL ACCELERATION(SORT1, PRINT, PUNCH, PHASE) = 17 Option Meaning SORT1 Output will be presented as a tabular listing of grid points for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of frequency or time for each grid point. SORT2 is available only in transient and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. REAL or IMAG Requests real or imaginary output on frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on frequency response problems. ALL Accelerations for all points will be output. n Set identification of a previously appearing SET card. Only accelerations of points whose identification numbers appear on this SET card will be output (Integer > 0). NONE Accelerations for no points will be output. Remarks 1.Both PRINT and PUNCH may be requested. 2.An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative to this would be to define a SET of interest. 3.Acceleration output is only available for transient and frequency response problems. 4.In a frequency response problem any request for SORT2 output causes all output to be SORT2. 5.ACCELERATION = NONE allows overriding an overall output request. =PAGE= AEROF - Aerodynamic Force Output Request Description Requests the aerodynamic loads on the interconnection points. Format and Example(s) AEROF = n AEROF = ALL AEROF = 5 Option Meaning n Set identification of a previously appearing SET card. Only aerodynamic forces on points referenced will be output. ALL Aerodynamic forces on all points will be output. Remarks 1.Only frequency-dependent forces may be requested (frequency response or random analysis). 2.The point identification numbers are the box or body element IDs. 3.The dimensions of the output are force (or moment) per unit dynamic pressure. =PAGE= AXISYMMETRIC - Boundary Conditions, Hydroelastic Harmonics, or Magnetic Field Description Selects boundary conditions for problems containing CCONEAX, CTRAPAX, or CTRIAAX elements; specifies the existence of fluid harmonics for hydroelastic problems; or specifies the applied source magnetic field in the magnetostatics problem. Format and Example(s) SINE COSINE FLUID AXISYMMETRIC = ANOM ANTIANOM SYMM ANTISYMM SYMMANOM AXISYMMETRIC = COSINE Option Meaning SINE Sine boundary conditions will be used. COSINE Cosine boundary conditions will be used. FLUID Existence of fluid harmonics. SYMM, ANTISYMM, ANOM, ANTIANOM, SYMMANON Used in magnetostatics problems. Remarks 1.This card is required for problems containing the elements named above. 2.If this card is used for hydroelastic problems, at least one harmonic must be specified on the AXIF card. 3.See Section 1.3.6 of User's Manual for a discussion of the conical shell problem. 4.See Section 1.3.7 of User's Manual for a discussion of the axisymmetric solid problem. 5.See Section 1.7.1 of User's Manual for a discussion of the hydroelastic formulation. 6.The sine boundary condition will constrain components 1, 3, and 5 at every ring for the zero harmonic. 7.The cosine boundary condition will constrain components 2, 4, and 6 at every ring for the zero harmonic. 8.SPC and MPC case control cards may also be used to apply additional constraints. 9.See PROLATE bulk data card for magnetostatic problem involving the prolate spheroidal surface harmonic expansion. =PAGE= BEGIN BULK - End of Case Control Deck Description Indicates the end of the Case Control Deck directives and controls. Cards appearing after this card are assumed to be Bulk Data Deck cards. Format and Example(s) BEGIN BULK =PAGE= B2PP - Direct Input Damping Matrix Selection Description Selects a direct input damping matrix. Format and Example(s) B2PP = name B2PP = BDMIG B2PP = B2PP Option Meaning name BCD name of [B2pp] matrix that is input on the DMIG or DMIAX bulk data card. Remarks 1.B2PP is used only in dynamics problems. 2.DMIG and DMIAX matrices will not be used unless selected. =PAGE= CMETHOD - Complex Eigenvalue Extraction Method Selection Description Selects complex eigenvalue extraction data to be used by module CEAD. Format and Example(s) CMETHOD = n CMETHOD = 77 Option Meaning n Set identification of EIGC (and EIGP) card (Integer > 0). Remarks 1.Eigenvalue extraction data must be selected when extracting complex eigenvalues using functional module CEAD. =PAGE= DEFORM - Element Deformation Static Load Description Selects the element deformation set to be applied to the structural model. Format and Example(s) DEFORM = n DEFORM = 27 Option Meaning n Set identification of DEFORM cards (Integer > 0). Remarks 1.DEFORM bulk data cards will not be used unless selected in the Case Control Deck. 2.DEFORM is only applicable in statics, inertia relief, differential stiffness, and buckling problems. 3.The total load applied will be the sum of external, (LOAD), thermal (TEMP(LOAD)), element deformation (DEFORM), and constrained displacement loads (SPC). 4.Static, thermal, and element deformation loads should have unique identification numbers. =PAGE= DISPLACEMENT - Displacement Output Request Description Requests form and type of displacement vector output. Format and Example(s) DISPLACEMENT ( SORT1, PRINT, REAL ) ALL SORT2 PUNCH IMAG = n NOPRINT PHASE NONE DISPLACEMENT = 5 DISPLACEMENT(REAL) = ALL DISPLACEMENT(SORT2, PUNCH, REAL) = ALL Option Meaning SORT1 Output will be presented as a tabular listing of grid points for each load, frequency. eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of load, frequency, or time for each grid point. SORT2 is available only in static analysis, transient, and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. NOPRINT Displacement is calculated and saved on output file. The output file will not be sent to the output device. REAL or IMAG Requests real or imaginary output on complex eigenvalue or frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on complex eigenvalue or frequency response problems. ALL Displacements for all points will be output. NONE Displacements for no points will be output. n Set identification of previously appearing SET card. Only displacements of points whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1.Both PRINT and PUNCH may be requested. 2.An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative to this would be to define a SET of interest. 3.In static analysis or frequency response problems, any request for SORT2 causes all output to be SORT2. 4.VECTOR, PRESSURE, and THERMAL are alternate forms and are entirely equivalent to DISPLACEMENT. 5.DISPLACEMENT = NONE allows overriding an overall output request. =PAGE= DLOAD - Dynamic Load Set Selection Description Selects the dynamic load to be applied in a transient or frequency response problem. Format and Example(s) DLOAD = n DLOAD = 73 Option Meaning n Set identification of a DLOAD, RLOAD1, RLOAD2, TLOAD1, or TLOAD2 card (Integer > 0). Remarks 1.The above loads will not be used by NASTRAN unless selected in Case Control. 2.RLOAD1 and RLOAD2 may only be selected in a frequency response problem. 3.TLOAD1 and TLOAD2 may only be selected in a transient response problem. 4.Either RLOAD or TLOAD (but not both) may be selected in an aeroelastic response problem. If RLOAD is selected, a frequency response is calculated. If TLOAD is selected, then transient response is computed by Fourier transform. =PAGE= DSCOEFFICIENT - Differential Stiffness Coefficient Set Description Selects the coefficient set for a normal modes with differential stiffness problem. Format and Example(s) DSCOEFF1C1ENT = DEFAULT n DSCOEF = 15 DSCOEF = DEFAULT Option Meaning DEFAULT A single default coefficient of value 1.0. n Set identification of DSFACT card (Integer > 0). Remarks 1.DSFACT cards will not be used unless selected. 2.DSCOEFFICIENT must appear in the second subcase of a normal modes with differential stiffness problem. =PAGE= ECHO - Bulk Data Echo Request Description Requests echo of Bulk Data Deck. Format and Example(s) SORT UNSORT ECHO = BOTH (see Remark 1 for default values) NONE NONO PUNCH ECHO = BOTH ECHO = PUNCH, SORT Option Meaning SORT Sorted echo will be printed. UNSORT Unsorted echo will be printed. BOTH Both sorted and unsorted echo will be printed. NONE or NONO No echo will be printed. PUNCH The sorted Bulk Data Deck will be punched onto cards. Remarks 1.If no ECHO card appears, ECHO = BOTH is assumed for restart runs. For all other runs, ECHO = SORT is assumed. 2.You are cautioned against suppressing the sorted echo in a checkpoint run as it will be difficult to change the data in a subsequent restart run. 3.In a restart run, the unsorted echo lists only the new bulk data submitted with the run, while the sorted echo lists the resequenced and renumbered revised bulk data. 4.If CHKPNT YES is specified, a sorted echo will be printed unless ECHO = NONE. 5.Unrecognizable options will be treated as SORT. 6.Any option overrides the default. Thus, for example, if both print and punch are desired, both SORT and PUNCH must be requested on the same card. 7.The NONE option cannot be combined with the PUNCH option. If punch output only is desired, ECHO = PUNCH will suffice. 8.In a restart run, ECHO = NONO suppresses also the printing of the NASTRAN DMAP compiler source listing. Do not use ECHO = NONO and CHKPNT YES together. 9.If ECHO = NONE or NONO, the resequencing cards SEQGP as generated by BANDIT are not printed. =PAGE= ELFORCE - Element Force Output Request Description Requests form and type of element force output. Format and Example(s) ( SORT1 , PRINT , REAL ) ALL ELFORCE SORT2 PUNCH IMAG = n NOPRINT PHASE NONE ELFORCE = ALL ELFORCE(REAL, PUNCH, PRINT) = 17 ELFORCE = 25 ELFORCE(SORT2,NOPRINT) = ALL Option Meaning SORT1 Output will be presented as a tabular listing of elements for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of load, frequency, or time for each element type. SORT2 is available only in static analysis, transient and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. NOPRINT Force is calculated and saved on output file. The output file will not be sent to the output device REAL or IMAG Requests real or imaginary output on complex eigenvalue or frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on complex eigenvalue or frequency response problems. ALL Forces for all elements will be output. NONE Forces for no elements will be output. n Set identification of a previously appearing SET card. Only forces of elements whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1.Both PRINT and PUNCH may be requested. 2.An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative to this would be to define a SET of interest. 3.In static analysis or frequency response problems, any request for SORT2 output causes all output to be SORT2. 4.FORCE is an alternate form and is entirely equivalent to ELFORCE. 5.ELFORCE = NONE allows overriding an overall request. 6.In heat transfer analysis, ELFORCE output consists of heat flow through and out of the elements. =PAGE= ELSTRESS - Element Stress Output Request Description Requests form and type of element stress output. Format and Example(s) ( SORT1 , PRINT , EXTREME , REAL ) ALL ELSTRESS SORT2 PUNCH LAYER IMAG = n NOPRINT PHASE NONE ELSTRESS = 5 ELSTRESS = ALL ELSTRESS(SORT1, PRINT, PUNCH, PHASE) = 15 Option Meaning SORT1 Output will be presented as a tabular listing of elements for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of load, frequency, or time for each element type. SORT2 is available only in static analysis, transient, and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. NOPRINT Stresses are calculated and saved on output file. The output file will not be sent to the output device EXTREME or LAYER Requests stresses to be calculated at the extreme (top and bottom) fibers of a plate element or, for composites, the stresses for each layer. (See Remarks 7 and 8) REAL or IMAG Requests real or imaginary output on complex eigenvalue or frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on complex eigenvalue or frequency response problems. ALL Stresses for all elements will be output. n Set identification of a previously appearing SET card (Integer > 0). Only stresses for elements whose identification numbers appear on this SET card will be output. NONE Stresses for no elements will be output. Remarks 1. Both PRINT and PUNCH may be requested. 2. An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative to this would be to define a SET of interest. 3. In static analysis or frequency response problems, any request for SORT2 output causes all output to be SORT2. 4. ELSTRESS is an alternate form and is entirely equivalent to STRESS. 5. ELSTRESS = NONE allows overriding an overall request. 6. If element stresses in the material coordinate system are desired (only for TRIA1, TRIA2, QUAD1, and QUAD2 elements and only in Rigid Format 1), the parameter STRESS (see the description of the PARAM bulk data card in Section 2.4.2) should be set to be a positive integer. If, in addition to element stresses in the material coordinate system, stresses at the connected grid points are also desired, the parameter STRESS should be set to 0. 7. When LAYER is selected, individual layer stresses and/or failure indices will be output. 8. The option EXTREME and LAYER is only applicable for the QUAD4 and TRIA3 elements. =PAGE= ESE - Element Strain Energy Output Request Description Requests strain energy output and per cent of total strain energy with respect to all elements. Format and Example(s) ( PRINT ) ALL ESE PUNCH = n NONE ESE (PUNCH) = 5 ESE (PRINT,PUNCH) = ALL Option Meaning PRINT The printer will be the output device. PUNCH The card punch will be the output device. ALL Strain energies will be output for all elements for which stiffness matrices exist. NONE Strain energies for no elements will be output. n Set identification of previously appearing SET card (Integer > 0). Only strain energies for elements whose identification numbers appear on this SET card will be output. Remarks 1. Element strain energies are output from static analysis (Rigid Format 1) only. 2. The output will be in SORT1 format. 3. Both PRINT and PUNCH may be requested. 4. ESE = NONE allows overriding an overall output request. =PAGE= FMETHOD - Flutter Analysis Method Description Selects the FLUTTER parameters to be used by the flutter module (FA1). Format and Example(s) FMETHOD = n FMETHOD = 72 Option Meaning n Set identification number of a FLUTTER card (integer > 0). Remarks 1. An FMETHOD card is required for flutter analysis. =PAGE= FORCE - Element Force Output Request Description Requests form and type of element force output. Format and Example(s) ( SORT1, PRINT, REAL ) ALL FORCE SORT2 PUNCH IMAG = n PHASE NONE FORCE = ALL FORCE(REAL, PUNCH, PRINT) = 17 FORCE = 25 Option Meaning SORT1 Output will be presented as a tabular listing of elements for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of load, frequency, or time for each element type. SORT2 is available only in static analysis, transient, and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. REAL or IMAG Requests real or imaginary printout on complex eigenvalue or frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on complex eigenvalue or frequency response problems. ALL Forces for all elements will be output. n Set identification of a previously appearing SET card. Only forces whose element identification numbers appear on this SET card will be output (Integer > 0). NONE Forces for no elements will be output. Remarks 1. Both PRINT and PUNCH may be requested. 2. An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative to this would be to define a SET of interest. 3. In static analysis or frequency response problems, any request for SORT2 output causes all output to be SORT2. 4. ELFORCE is an alternate form and is entirely equivalent to FORCE. 5. FORCE = NONE allows overriding an overall request. 6. In heat transfer analysis, ELFORCE output consists of heat flow through and out of the elements. =PAGE= FREQUENCY - Frequency Set Selection Description Selects the set of frequencies to be solved in frequency response problems. Format and Example(s) FREQUENCY = n FREQUENCY = 17 Option Meaning n Set identification of a FREQ, FREQ1, or FREQ2 type card (Integer > 0). Remarks 1. The FREQ, FREQ1, or FREQ2 cards will not be used unless selected in Case Control. 2. A frequency set selection is required for a frequency response problem. 3. A frequency set selection is required for transient response by Fourier methods. =PAGE= GPFORCE - Grid Point Force Balance Output Request Description Requests grid point force balance output from applied loads, single-point constraints, and element constraints. Format and Example(s) ( PRINT ) ALL GPFORCE PUNCH = n NONE Option Meaning PRINT The printer will be the output device. PUNCH The card punch will be the output device. ALL Force balance will be output for all elements connected to grid points or scalar points. NONE Force balance for no grid points will be output. n Set identification of previously appearing SET card (Integer > 0). Only force balance for points whose identification numbers appear on this SET card will be output. Remarks 1. Grid point force balance is output from Statics Analysis (Rigid Format 1) only. 2. The output will be in SORT1 format. 3. Both PRINT and PUNCH may be requested. 4. GPFORCE = NONE allows overriding an overall output request. =PAGE= GUST - Aerodynamic Gust Load Request Description Selects the gust field in an aeroelastic response problem. Format and Example(s) GUST = n GUST = 73 Option Meaning n Set identification of a GUST bulk data card (Integer > 0). Remarks 1. The above GUST will not be used by NASTRAN unless selected in Case Control. 2. The choice of transient or frequency response gust depends upon the type of TLOAD or RLOAD referenced on the selected GUST card. =PAGE= HARMONICS - Harmonic Printout Control Description Controls number of harmonics output for problems containing CCONEAX, CTRAPAX, or CTRIAAX elements. Format and Example(s) 0 HARMONICS = ALL NONE n Option Meaning ALL All harmonics will be output. NONE No harmonics will be output. n Available harmonics up to and including n will be output (Integer >= 0). Remarks 1. If no HARMONICS card appears in Case Control, only 0 harmonic output will be printed. =PAGE= IC - Transient Initial Condition Set Selection Description To select the initial conditions for direct transient problems. Format and Example(s) IC = n IC = 17 Option Meaning n Set identification of TIC card (Integer > 0) for structural analysis. Set identification of TEMP and/or TEMPD card (Integer > 0) for heat transfer analysis. Remarks 1. TIC cards will not be used (hence no initial conditions) unless selected in Case Control. 2. Initial conditions are not allowed in a modal transient problem. =PAGE= K2PP - Direct Input Stiffness Matrix Selection Description Selects a direct input stiffness matrix. Format and Example(s) K2PP = name K2PP = KDMIG K2PP = K2PP Option Meaning name BCD name of a [K22dpp] matrix that is input on the DMIG or DMIAX bulk data card. Remarks 1. K2PP is used only in dynamics problems. 2. DMIG and DMIAX matrices will not be used unless selected. =PAGE= LABEL - Output Label Description Defines a BCD (alphanumeric) label which will appear on the third heading line of each page of NASTRAN printer output. Format and Example(s) LABEL = Any BCD data LABEL = SAMPLE OF A LABEL CARD Remarks 1. LABEL appearing at the subcase level will label output for that subcase only. 2. LABEL appearing before all subcases will label any outputs which are not subcase dependent. 3. If no LABEL card is supplied, the label line will be blank. 4. LABEL information is also placed on NASTRAN plotter output as applicable. =PAGE= LINE - Data Lines Per Page Description Defines the number of data lines per printed page. Format and Example(s) 42 LINE = n CDC 55 LINE = n DEC VAX, IBM, and UNIVAC Option Meaning n Number of data lines per page (Integer >= 10). Remarks 1. If no LINE card appears, the appropriate default is used. 2. For 11 inch paper, 50 is the recommended number; for 8-1/2 inch paper, 35 is the recommended number. 3. Alternatively, the number of data lines per printed page can also be defined by means of the NLINES keyword on the NASTRAN card (see Section 2.1). =PAGE= LOAD - External Static Load Set Selection Description Selects the external static load set to be applied to the structural model. Format and Example(s) LOAD = n LOAD = 15 Option Meaning n Set identification of at least one external load card and hence must appear on at least one FORCE, FORCE1, FORCE2, MOMENT, MOMENT1, MOMENT2, GRAV, PLOAD, PLOAD2, PLOAD3, RFORCE, PRESAX, FORCEAX, MOMAX, SLOAD, or LOAD card (Integer > 0). Remarks 1. The above static load cards will not be used by NASTRAN unless selected in Case Control. 2. A GRAV card cannot have the same set identification number as any of the other loading card types. If it is desired to apply a gravity load along with other static loads, a LOAD bulk data card must be used. 3. If n is to be the set identification number of a bulk data LOAD card (see description in Section 2.4), then it must be different from the load set identification numbers of all external static load sets in the Bulk Data Deck. 4. LOAD is only applicable in statics, inertia relief, differential stiffness, buckling, and piecewise linear problems. 5. The total load applied will be the sum of external (LOAD), thermal (TEMP(LOAD)), element deformation (DEFORM), and constrained displacement (SPC) Loads. 6. Static, thermal, and element deformation loads must have unique set identification numbers. 7. The rigid formats that accept a static load card expect it to appear in the Case Control deck in a certain place with respect to subcase definitions. See Section 3 for specific instructions. =PAGE= M2PP - Direct input Mass Matrix Selection Description Selects a direct input mass matrix. Format and Example(s) M2PP = name M2PP = MDMIG M2PP = M2PP Option Meaning name BCD name of a [M22dpp] matrix that is input on the DMIG or DMIAX bulk data card. Remarks 1. M2PP is supported only in dynamics problems. 2. DMIG and DMIAX matrices will not be used unless selected. =PAGE= MAXLINES - Maximum Number of Output Lines Description Sets the maximum number of output lines to a given value. Format and Example(s) MAXLINES = 20000 n MAXLINES = 50000 Option Meaning n Maximum number of output lines (Integer > 0). Remarks 1. Any time this number is exceeded, NASTRAN will terminate through PEXIT. 2. This card may or may not override system operating control cards. You should check with the local operations staff. 3. Default is MAXLINES = 20000. =PAGE= METHOD - Real Eigenvalue Extraction Method Selection Description Selects the real eigenvalue parameters to be used by the READ module. Format and Example(s) METHOD = n METHOD = 33 Option Meaning n Set identification number of an EIGR card (normal modes or modal formulation) or an EIGB card (buckling). (Integer > 0). Remarks 1. An eigenvalue extraction method must be selected when extracting real eigenvalues using functional module READ. 2. Each of the rigid formats that accepts an eigenvalue method card expects it to appear in the Case Control Deck in a certain place with respect to subcase definitions. See Section 3 for specific instructions. =PAGE= MODES - Duplicate Case Control Description Repeats case control MODES times, to allow control of output in eigenvalue problems. Format and Example(s) MODES = n MODES = 1 Option Meaning n Number of modes, starting with the first and proceeding sequentially upward, for which the case control or subcase control is to apply. (Integer > 0). Remarks 1. This card can be illustrated by an example. Suppose stress output is desired for the first five modes only and displacements only thereafter. The following example would accomplish this: SUBCASE 1 MODES = 5 OUTPUT STRESS = ALL SUBCASE 6 OUTPUT DISPLACEMENTS = ALL BEGIN BULK 2. The MODES card causes the results for each eigenvalue to be considered as a separate, successively numbered subcase, beginning with the subcase number containing the MODES card. 3. If the MODES card is not used, eigenvalue results are considered to be a part of a single subcase. Hence, any output requests for the single subcase will apply for all eigenvalues. 4. All eigenvectors with mode numbers greater than the number of records in Case Control are printed with the descriptors of the last Case Control record. For example, to suppress all printout for modes beyond the first three, the following Case Control deck could be used: SUBCASE 1 MODES = 3 DISPLACEMENTS = ALL SUBCASE 4 DISPLACEMENTS = NONE BEGIN BULK =PAGE= MPC - Multipoint Constraint Set Selection Description Selects the multipoint constraint set to be applied to the structural model. Format and Example(s) MPC = n MPC = 17 Option Meaning n Set identification of a multipoint constraint set and hence must appear on at least one MPC, MPCADD, MPCAX, or MPCS card. (Integer > 0). Remarks 1. MPC, MPCADD, MPCAX, or MPCS cards will not be used by NASTRAN unless selected in Case Control. =PAGE= MPCFORCE - Multipoint Forces of Constraint Output Request Description Requests multipoint force of constraint vector output. Format and Example(s) ALL MPCFORCE ( SORT1, PRINT ) = n PUNCH NONE MPCFORCE = 10 MPCFORCE(PRINT,PUNCH) = ALL MPCFORCE = NONE Option Meaning SORT1 Output will be presented as a tabular listing of grid points for each subcase or frequency, depending on the rigid format. SORT2 is not available. PRINT The printer will be the output device. PUNCH The card punch will be the output device. ALL Multipoint forces of constraint for all points will be output (only nonzero entries). NONE Multipoint forces of constraint for no points will be output. n Set identification of previously appearing SET card. Only multipoint constraint forces for points whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1. Both PRINT and PUNCH may be requested. 2. MPCFORCE = NONE allows overriding an overall output request. 3. MPCFORCE is only valid for statics and real eigenvalue analyses. 4. A request for MPCFORCE is not allowed for axisymmetric elements. 5. See the PARAM bulk data card for use of related parameters OPT and GRDEQ. =PAGE= NCHECK - Stress and Element Forces Numerical Accuracy Check Description Requests stress and element force numerical accuracy check. Format and Example(s) NCHECK [= n] NCHECK NCHECK = 6 Option Meaning n A printout of the number of significant digits accuracy is issued for each element having an entry with less than n significant digits in the stress or force calculation. Remarks 1. All the elements requested on the STRESS and/or FORCE card (or their equivalent ELSTRESS and/or ELFORCE card) are checked. 2. The default for n is five (5) when n is not specified. 3. These checks measure the quality of the computations to obtain element stresses and element forces. They do not measure the quality of the model being analyzed. 4. See Theoretical Manual Section 3.7.2 for a description of the accuracy check. 5. The printout identifies the element types, identification number and the subcase. The entries checked are as follows. ELEMENT TYPE ENTRIES ROD,CONROD,TUBE FA,T,A,T BAR FA,T,M1a,M1b,M2a,M2b,V1,V2,a TRMEM,QDMEM,QDMEMl x,y,xy TRPLT,QDPLT,TRIA1,TRIA2,QUAD1,QUAD2 x1,y1,xy1,x2,y2,xy2,Mx,My,Mxy, TRBSC Vx,Vy HEXA1,HEXA2,WEDGE,TETRA x,y,z,yz,xz,xy SHEAR MAX,AVE, corner forces, kick forces, and shears. TWIST MAX,AVE,M1-3,M2-4 QDMEM2 x,y,xy, corner forces, kick forces, and shears. IHEX1, IHEX2, IHEX3 NORMAL, SHEAR, and PRINCIPAL for each direction, grid point, and centroid. =PAGE= NLLOAD - Nonlinear Load Output Request Description Requests form and type of nonlinear load output for transient problems. Format and Example(s) ALL NLLOAD (PRINT) = n PUNCH NONE NLLOAD = ALL Option Meaning PRINT The printer will be the output device. PUNCH The card punch will be the output device. ALL Nonlinear loads for all solution points will be output. NONE Nonlinear loads will not be output. n Set identification of previously appearing SET card.(Integer > 0). Only non-linear loads for points whose identification numbers appear on this SET card will be output. Remarks 1. Both PRINT and PUNCH may be used. 2. Nonlinear loads are output only in the solution (D or H) set. 3. The output format will be SORT2. 4. An output request for ALL in transient response problems generally produces large amounts of printout. An alternative to this would be to define a SET of interest. 5. THERMAL = NONE allows overriding an overall output request. =PAGE= NONLINEAR - Nonlinear Load Set Selection Description Selects nonlinear load for transient problems. Format and Example(s) NONLINEAR = n NONLINEAR LOAD SET = 75 Option Meaning n Set identification of NOLINi cards (Integer > 0). Remarks 1. NOLINi cards will not be used unless selected in Case Control. =PAGE= OFREQUENCY - Output Frequency Set Description Selects from the solution set of frequencies a subset for output requests in direct or modal frequency analysis. In flutter analysis, it selects a subset of velocities. Format and Example(s) OFREQUENCY = ALL n OFREQUENCY = ALL OFREQUENCY SET = 15 Option Meaning ALL Output for all frequencies will be printed out. n Set identification of previously appearing SET card (Integer > 0). Output for frequencies closest to those given on this SET card will be produced. Remarks 1. OFREQUENCY is defaulted to ALL if it is not supplied. 2. In flutter analysis, the selected set lists velocities in input units. If there are n velocities in the list, the n points with velocities closest to those in the list will be selected for output. 3. This card is used in conjunction with the MODACC module to limit the frequencies for which mode acceleration computations are performed. 4. In flutter analysis, the selected set refers to the imaginary part of the complex eigenvalues. K or KE method: Velocity (input units) PK method: Frequency 5. In aeroelastic response (with RLOAD selection), the selected set refers to the frequency (cycles per unit time). =PAGE= OLOAD - Applied Load Output Request Description Requests form and type of applied load vector output. Format and Example(s) OLOAD ( SORT1, PRINT, REAL ) ALL SORT2 PUNCH IMAG = n PHASE NONE OLOAD = ALL SLOAD(SORT1, PHASE) = 5 Option Meaning SORT1 Output will be presented as a tabular listing of grid points for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of load, frequency, or time for each grid point. SORT2 is available only in static analysis, transient and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. REAL or IMAG Requests real or imaginary output on complex eigenvalue or frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on complex eigenvalue or frequency response problems. ALL Applied loads for all points will be output. (SORT1 will only output nonzero values.) NONE Applied loads for no points will be output. n Set identification of previously appearing SET card. Only loads on points whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1. Both PRINT and PUNCH may be requested. 2. An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative would be to define a SET of interest. 3. In static analysis or frequency response problems, any request for SORT2 output causes all output to be SORT2. 4. A request for SORT2 causes loads (zero and nonzero) to be output. 5. OLOAD = NONE allows overriding an overall output request. =PAGE= OTIME - Output Time Set Description Selects from the solution set of times a subset for output requests. Format and Example(s) OTIME = ALL n OTIME = ALL OTIME = 15 Option Meaning ALL Output for all times will be printed out. n Set identification of previously appearing SET card. (Integer > 0). Output for times closest to those given on this SET card will be output. Remarks 1. OTIME is defaulted to ALL if it is not supplied. 2. The OTIME card is particularly useful for restarts to request a subset of the output (that is, stresses at only peak times, etc.). 3. This card can be used in conjunction with the MODACC module to limit the times for which mode acceleration computations are performed. =PAGE= OUTPUT - Output Packet Delimiter Description Delimits the various output packets, structure plotter, curve plotter, and printer/punch. Format and Example(s) ( PLOT ) OUTPUT XYOUT XYPLOT OUTPUT OUTPUT(PLOT) OUTPUT(XYOUT) Option Meaning No qualifier Beginning of printer output packet. This is not a required card. PLOT Beginning of structure plotter packet. This card must precede all structure plotter control cards. XYOUT or XYPLOT Beginning of curve plotter packet. This card must precede all curve plotter control cards. XYPLOT and XYOUT are entirely equivalent. Remarks 1. The structure plotter packet and the curve plotter packet must be at the end of the Case Control Deck. Either may come first. 2. The delimiting of a printer packet is completely optional. =PAGE= PLCOEFFICIENT - Piecewise Linear Coefficient Set Description Selects the coefficient set for piecewise linear problems. Format and Example(s) PLCOEFFICIENT = n PLCOEFFICIENT = 25 Option Meaning n Set identification of PLFACT card (Integer > 0). Remarks 1. PLFACT cards will not be used unless selected. =PAGE= PLOTID - Plotter Identification Description Defines BCD (alphanumeric) identification which will appear on the first frame of any NASTRAN plotter output. Format and Example(s) PLOTID = Any BCD data PLOTID = RETURN TO B.J. SMITH, ROOM.201, BLDG 85, ABC COMPANY Remarks 1. PLOTID must appear before any OUTPUT(PLOT), OUTPUT(XYOUT), or OUTPUT(XYPLOT) cards. 2. The presence of PLOTID causes a special header frame to be plotted with the supplied identification plotted several times. This allows for easy identification of the NASTRAN plotter output. 3. If no PLOTID card appears, no ID frame will be plotted. 4. The PLOTID header frame will not be generated for table plotters. =PAGE= PRESSURE - Hydroelastic Pressure Output Request Description Requests form and type of displacement and hydroelastic pressure vector output. Format and Example(s) ( SORT1, PRINT, REAL ) ALL PRESSURE SORT2 PUNCH IMAG = n PHASE NONE PRESSURE = 5 PRESSURE(IMAG) = ALL PRESSURE(SORT2, PUNCH, REAL) = ALL Option Meaning SORT1 Output will be presented as a tabular listing of grid points for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of frequency or time for each grid point. SORT2 is available only in transient and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. REAL or IMAG Requests real or imaginary output on complex eigenvalue or frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on complex eigenvalue or frequency response problems. ALL Displacements and pressures for all points will be output. NONE Displacements and pressures for no points will be output. n Set identification of previously appearing SET card. Only displacements and pressures of points whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1. Both PRINT and PUNCH may be requested. 2. An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative would be to define a SET of interest. 3. In a frequency response problem any request for SORT2 causes all output to be SORT2. 4. DISPLACEMENT and VECTOR are alternate forms and are entirely equivalent to PRESSURE. 5. PRESSURE = NONE allows overriding an overall output request. =PAGE= RANDOM - Random Analysis Set Selection Description Selects the RANDPS and RANDTi cards to be used in random analysis. Format and Example(s) RANDOM = n RANDOM = 177 Option Meaning n Set identification of RANDPS and RANDTi cards to be used in random analysis (Integer > 0). Remarks 1. RANDPS cards must be selected to do random analysis. 2. RANDPS must be selected in the first subcase of the current loop. RANDPS may not reference subcases in a different loop. =PAGE= READFILE - Directive to Read Input Cards Description Defines a file that contains the input cards. Format and Example(s) Ŀ ,NOPRINT, READFILE ,NOPRINT [ = ] filename (NOPRINT) READFILE ABC READFILE NOPRINT ABC READFILE, NOPRINT ABC READFILE, NOPRINT, ABC READFILE (NOPRINT) ABC READFILE = ABC READFILE NOPRINT = ABC READFILE, NOPRINT = ABC READFILE (NOPRINT) = ABC Remarks 1. This card can be used in Executive, Case Control, and Bulk Data Decks. 2. Input cards are saved in the file named filename. 3. Comma, equal sign, and parentheses are not allowed in filename. 4. NOPRINT allows reading in the input cards, such as the DMAP alters or restart dictionary, without printing them out. The default is to print them. 5. Since this card can also be used in the Case Control Deck, an equal sign is also allowed. 6. Nested READFILE is allowed. 7. See Sections 2.0.2.1 and 2.0.2.2 for more information. =PAGE= REPCASE - Repeat Case Subcase Delimiter Description Delimits and identifies a repeated subcase. Format and Example(s) REPCASE n REPCASE 137 Option Meaning n Subcase identification number (integer > 1). Remarks 1. The subcase identification number, n, must be strictly increasing (that is, greater than all previous subcase identification numbers). 2. This case will only re-output the previous real case. This allows additional set specification. 3. REPCASE may only be used in statics or inertia relief. 4. One or more repeated subcases (REPCASEs) must immediately follow the subcase (SUBCASE) to which they refer. (See example 4 in Section 2.3.3.) =PAGE= SACCELERATION - Solution Set Acceleration Output Request Description Requests form and type of solution set acceleration output. Format and Example(s) SACCELERATION ( SORT1, PRINT, REAL ) = ALL SORT2 PUNCH IMAG n PHASE NONE SACCELERATION = ALL SACCELERATION(PUNCH, IMAG) = 142 Option Meaning SORT1 Output will be presented as a tabular listing of grid points for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of frequency or time for each grid point (or mode number). SORT2 is available only in transient and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. REAL or IMAG Requests real or imaginary output on frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on frequency response problems. ALL Acceleration for all solution points (modes) will be output. NONE Acceleration for no solution points (modes) will be output. n Set identification of a previously appearing SET card. Only accelerations of points whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1. Both PRINT and PUNCH may be requested. 2. An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative would be to define a SET of interest. 3. Acceleration output is only available for transient and frequency response problems. 4. In a frequency response problem any request for SORT2 output causes all output to be SORT2. 5. SACCELERATION = NONE allows overriding an overall output request. =PAGE= SCAN - Output Scan Request Description Scan output data and eliminate values that do not meet the specification set by this SCAN card. Format and Example(s) STRESS topn SCAN ( FORCE , element, component ) = , SET i HELP max,min ON-LINE SCAN (STRESS, CBAR, AXIAL) = 10 SCAN (STRESS, BAR, AXIAL, SA-MAX) = 15, SET 102 SCAN (FORCE, ROD, 2, 3) = 17 SCAN (FORCE, 3, CROD, 2) = +2000., -1500., SET 102 SCAN (ROD, AXIAL, FORCE, TORQUE) = 5000., 400. SCAN (HELP) Option Meaning STRESS Request scan on stress file, of SORT1 or SORT2 format. FORCE Request scan on force file, of SORT1 or SORT2 format. element Any NASTRAN element name, with or without the leading letter "C" (BCD). component One or more components specified by keywords (BCD), or by numeric codes (Integer > 0). The numeric codes are the field numbers on the heading of the output page, whose values are to be scanned. (Each element has its own page heading.) See Remark 11 for the keywords and their corresponding field numbers. topn The highest n values, and the lowest n values, found by SCAN in the field(s) specified by component are printed out; for example, top n tension and top n compression stresses (Integer > 0). max,min Values greater than max and less than min, in the field(s) specified by component, are printed out (Real). i Element set identification of a previously appearing SET card (Integer > 0). Only forces or stresses of elements whose identification numbers appear on this SET card will be scanned for output. (Default is all.) HELP A table of the component keywords and their corresponding field numbers will be printed immediately before the Bulk Data Deck, and the job will continue. ON-LINE Request SCAN operation to be run on-line under real-time environment. Remarks 1. Multiple SCAN cards can be requested in a NASTRAN run. They do not override one another. 2. A SCAN card specifies only one element type; an element type can have more than one SCAN card. 3. More than one component field can be requested in a SCAN card. However, these fields will be scanned together as a group. 4. SCAN sorts and prints the scanned values in descending order. All fields of the same output line are printed. 5. If the component keyword is misspelled, a list of the valid names and their corresponding fields will be printed automatically and the job will be flagged for fatal error termination. 6. Some component keywords imply multi-field scan; for example, "AXIAL" may imply axial forces for grid points 1, 2, 3, etc. 7. Component numeric code specifies field numbers 1 through 62 only. 8. Normally, SCAN will scan only data already generated for the Output File Processor (OFP). That is, SCAN cannot scan data that has not been created. However, if no ELSTRESS (or STRESS) card is specified before a stress SCAN card, a STRESS card is generated internally in the following form: STRESS (SORT1, NOPRINT, REAL) = ALL Forces are handled similarly. 9. The LABEL line (after TITLE and SUBTITLE) is limited to 36 characters. The rest of the line is replaced by the SCAN header. 10. When the ON-LINE option is requested, the other input parameters are not needed on the SCAN card. These parameters will be prompted for on the CRT screen by the computer system when the SCAN module is executed. 11. The component keywords for stress and force, and their corresponding output field numbers, are listed below. This table is printed by SCAN (HELP). FORCE/STRESS KEYWORD COMPONENT (OUTPUT FIELD NO.) ROD, TUBE, CONROD STRESS AXIAL 2 STRESS TORSIONAL 4 STRESS MARGIN 3, 5 FORCE AXIAL 2 FORCE TORQUE 3 SHEAR, TWIST STRESS MAX-SHR 2 STRESS MARGIN 4 STRESS AVG 3 STRESS MAX 2 FORCE FORCE-1 2 FORCE FORCE-2 3 FORCE MOMENT-1 2 FORCE MOMENT-2 3 TRIA1, TRIA2, QUAD1, QUAD2, TRBSC, TRPLT, QDPLT STRESS NORM-X 3, 11 STRESS NORM-Y 4, 12 STRESS SHEAR-XY 5, 13 STRESS MAJOR 7, 15 STRESS MINOR 8, 16 STRESS MAX-SHR 9, 17 FORCE MOMENT-X 2 FORCE MOMENT-Y 3 FORCE SHEAR-X 5 FORCE SHEAR-Y 6 FORCE TWIST 4 TRMEM, QDMEM, QDMEM1, QDMEM2 STRESS NORM-X 2 STRESS NORM-Y 3 STRESS SHEAR-XY 4 STRESS MAJOR 6 STRESS MINOR 7 STRESS MAX-SHR 8 FORCE FORCE-12 3, 4 FORCE FORCE-23 5, 6 FORCE FORCE-34 7, 8 FORCE FORCE-41 2, 9 FORCE KICK ON1 10 FORCE KICK ON2 12 FORCE KICK ON3 14 FORCE KICK ON4 16 FORCE SHEAR-XY 11 FORCE SHEAR-YZ 13 FORCE SHEAR-ZX 15 FORCE SHEAR 17 ELAS1, ELAS2, ELAS3, IS2D8 STRESS OCT-SHR 2 FORCE CIRCUM 2 FORCE FORCE-1 4, 9 FORCE FORCE-2 3, 6 FORCE FORCE-3 5, 8 FORCE FORCE-4 2, 7 BAR, ELBOW STRESS SA-MAX 7, 8 STRESS SB-MAX 14, 15 STRESS MARGIN 9, 16 STRESS AXIAL 6 FORCE AXIAL 8 FORCE TORQUE 9 FORCE SHEAR 5, 6 FORCE MOMENT-A 2, 3 FORCE MOMENT-B 4, 5 CONEAX STRESS NORM-U 4, 22 STRESS NORM-V 5, 23 STRESS SHEAR-UV 6, 24 STRESS MAJOR 8, 26 STRESS MINOR 9, 27 STRESS MAX-SHR 10, 28 FORCE MOMENT-U 3 FORCE MOMENT-V 4 FORCE SHEAR-XY 6 FORCE SHEAR-YZ 7 TRIARG STRESS RADIAL 2 STRESS CIRCUM 3 STRESS AXIAL 4 STRESS SHEAR 5 FORCE RADIAL 2, 5, 8 FORCE CIRCUM 3, 6, 9 FORCE AXIAL 4, 7, 10 TRAPRG STRESS RADIAL 2, 6, 10, 14 ... 22 STRESS CIRCUM 3, 7, 11, 15 ... 23 STRESS AXIAL 4, 8, 12, 16 ... 24 STRESS SHEAR 5, 9, 13, 17 ... 25 STRESS SHR-FBRC 6, 10, 14, 18 ... 26 FORCE RADIAL 2, 5, 8, 11 FORCE CIRCUM 3, 6, 9, 12 FORCE AXIAL 4, 7, 10, 13 TORDRG STRESS MEM-T 2, 7, 12 STRESS MEM-C 3, 8, 13 STRESS FLEX-T 4, 9, 14 STRESS FLEX-C 5, 10, 15 STRESS SHR-FORC 6, 11, 16 FORCE RADIAL 2, 8 FORCE CIRCUM 3, 9 FORCE AXIAL 4, 10 FORCE MOMENT 5, 11 FORCE CURV 7, 13 IHEX1, IHEX2 STRESS NORM-X 3, 25, 47, 69 ... ETC. STRESS SHEAR-XY 4, 26, 48, 70 ... ETC. STRESS PRINC-A 5, 27, 49, 71 ... ETC. STRESS MEAN 9, 31, 53, 75 ... ETC. STRESS NORM-Y 11, 33, 55, 77 ... ETC. STRESS SHEAR-YZ 12, 34, 56, 78 ... ETC. STRESS PRINC-B 13, 35, 57, 79 ... ETC. STRESS NORM-Z 17, 39, 61, 83 ... ETC. STRESS SHEAR-ZX 18, 40, 62, 84 ... ETC. STRESS PRINC-C 19, 41, 63, 85 ... ETC. STRESS MAX-SHR 10, 32, 54, 76 ... ETC. STRESS OCT-SHR 10, 32, 54, 76 ... ETC. IHEX3 STRESS NORM-X 3, 26, 49, 72 ... 739 STRESS SHEAR-XY 4, 27, 50, 73 ... 740 STRESS PRINC-A 5, 28, 51, 74 ... 741 STRESS MEAN 9, 32, 55, 78 ... 745 STRESS NORM-Y 12, 35, 58, 81 ... 748 STRESS SHEAR-YZ 13, 36, 59, 82 ... 749 STRESS PRINC-B 14, 37, 60, 83 ... 750 STRESS NORM-Z 18, 41, 64, 87 ... 754 STRESS SHEAR-ZX 19, 42, 65, 88 ... 755 STRESS PRINC-C 20, 43, 66, 89 ... 756 STRESS MAX-SHR 10, 33, 56, 79 ... 746 STRESS OCT-SHR 10, 33, 56, 79 ... 746 TRIAAX, TRAPAX STRESS RADIAL 3, 11, 19 STRESS AXIAL 4, 12, 20 STRESS CIRCUM 5, 13, 21 STRESS MEM-C 6, 14, 22 STRESS FLEX-T 7, 15, 23 STRESS FLEX-C 8, 16, 24 FORCE RADIAL 3, 7, 11 FORCE CIRCUM 4, 8, 12 FORCE AXIAL 5, 9, 13 QUAD4, TRIA3 STRESS NORMAL-X 3, 11 STRESS NORMAL-Y 4, 12 STRESS SHEAR-XY 5, 13 STRESS MAJOR 7, 15 STRESS MINOR 18, 16 STRESS MAX-SHR 9, 17 FORCE FX+FY 2, 3 FORCE FXY 4 FORCE MX+MY 5, 6 FORCE MXY 7 FORCE VX+VY 8, 19 STRESS NORMAL-1 5, 15, 25, 35 STRESS NORMAL-2 6, 16, 26, 36 STRESS SHEAR-12 7, 17, 27, 37 STRESS SHEAR-1Z 10, 20, 30, 40 STRESS SHEAR-2Z 11, 21, 31, 41 Use output field number(s) to specify component(s) for elements or keywords not listed above. See sections 2.3.51 and 2.3.52 of the Programmer's Manual for additional element stress and force component definitions. =PAGE= SDAMPING - Structural Damping Description Selects table which defines damping as a function of frequency in modal formulation problems. Format and Example(s) SDAMPING = n SDAMPING = 77 Option Meaning n Set identification of a TABDMP1 table (Integer > 0). Remarks 1. If SDAMPING is not used BHH = [0]. =PAGE= SDISPLACEMENT - Solution Set Displacement Output Request Description Requests form and type of solution set displacement output. Format and Example(s) SDISPLACEMENT ( SORT1, PRINT, REAL ) ALL SORT2 PUNCH IMAG = n PHASE NONE SDISPLACEMENT = ALL SDISPLACEMENT(SORT2, PUNCH, PHASE) = NONE Option Meaning SORT1 Output will be presented as a tabular listing of grid points for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of frequency or time for each grid point (or mode number). SORT2 is available only in transient and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. REAL or IMAG Requests real or imaginary output on complex eigenvalue or frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on complex eigenvalue or frequency response problems. ALL Displacements for all points (modes) will be output. NONE Displacements for no points (modes) will be output. n Set identification of previously appearing SET card. Only displacements of points whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1. Both PRINT and PUNCH may be requested. 2. An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative would be to define a SET of interest. 3. In a frequency response problem any request for SORT2 causes all output to be SORT2. 4. SVECTOR is an alternate form which is entirely equivalent to SDISPLACEMENT. 5. SDISPLACEMENT = NONE allows overriding an overall output request. =PAGE= SET - Set Definition Card Description 1. Lists identification numbers (point or element) for output requests. 2. Lists the frequencies for which output will be printed in frequency response problems. Format and Example(s) 1. SET n = {i1[,i2, i3 THRU 14 EXCEPT i5, i6, i7, i8 THRU i9]} SET 77 = 5 SET 88 = 5, 6, 7, 8, 9, 10 THRU 55 EXCEPT 15, 16, 77, 78, 79, 100 THRU 300 SET 99 = 1 THRU 100000 2. SET n = {r1[, r2, r3, r4]} SET 101 = 1.0, 2.0, 3.0 SET 105 = 1.009, 10.2, 13.4, 14.0, 15.0 Option Meaning n Set identification (Integer > 0). Any set may be redefined by reassigning its identification number. Sets inside SUBCASE delimiters are local to the SUBCASE. i1, i2 etc. Element or point identification number at which output is requested. (Integer > 0) If no such identification number exists, the request is ignored. i3 THRU i4 Output at set identification numbers i3 through i4 (i4 > i3). EXCEPT Set identification numbers following EXCEPT will be deleted from output list as long as they are in the range of the set defined by the immediately preceding THRU. r1, r2 etc. Frequencies for output (Real >= 0.0). The nearest solution frequency will be output. EXCEPT and THRU cannot be used. Remarks 1. A SET card may be more than one physical card. A comma (,) at the end of a physical card signifies a continuation card. Commas may not end a set. 2. Identification numbers following EXCEPT within the range of the THRU must be in ascending order. 3. In the first format, i8 must be greater than i4; that is, the THRU must not be within an EXCEPT range. =PAGE= SPC - Single-Point Constraint Set Selection Description Selects the single-point constraint set to be applied to the structural model. Format and Example(s) SPC = n SPC = 10 Option Meaning n Set identification of a single-point constraint set and hence must appear on an SPC, SPC1, SPCADD, SPCAX, SPCS, or SPCS1 card (Integer > 0). Remarks 1. SPC, SPC1, SPCADD, SPCAX, SPCS, or SPCS1 cards will not be used by NASTRAN unless selected in Case Control. =PAGE= SPCFORCES - Single-Point Forces of Constraint Output Request Description Requests form and type of single point force of constraint vector output. Format and Example(s) SPCFORCES ( SORT1, PRINT, REAL ) ALL SORT2 PUNCH IMAG = n PHASE NONE SPCFORCES = 5 SPCFORCES(SORT2, PUNCH, PRINT, IMAG) = ALL SPCFORCES(PHASE) = NONE Option Meaning SORT1 Output will be presented as a tabular listing of grid points for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of load, frequency, or time for each grid point. SORT2 is available only in static analysis, transient, and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. REAL or IMAG Requests real or imaginary output on complex eigenvalue or frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on complex eigenvalue or frequency response problems. ALL Single point forces of constraint for all points will be output. (SORT1 will only output nonzero values.) NONE Single point forces of constraint for no points will be output. n Set identification of previously appearing SET card. Only single-point forces of constraint for points whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1. Both PRINT and PUNCH may be requested. 2. An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative would be to define a SET of interest. 3. In static analysis or frequency response problems, any request for SORT2 output causes all output to be SORT2. 4. A request for SORT2 causes loads (zero and nonzero) to be output. 5. SPCFORCES = NONE allows overriding an overall output request. 6. In heat transfer analysis, SPCFORCE output is the power necessary to maintain a grid point at a fixed temperature. =PAGE= STRAIN - Element Strain/Curvature Output Request Description Requests element strain/curvature output. Format and Example(s) STRAIN ( PRINT ) = ALL PUNCH n NONE STRAIN (PUNCH) = 5 STRAIN (PRINT,PUNCH) = ALL Option Meaning PRINT The printer will be the output device. PUNCH The card punch will be the output device. ALL Strains/curvatures for all elements will be output. See Remark 5. NONE Strains/curvatures for no elements will be output. n Set identification of previously appearing SET card (Integer > 0). Only strains/curvatures for elements whose identification numbers appear on this SET card will be output. See Remark 5. Remarks 1. Element strains/curvatures are output from static analysis (Rigid Format 1) only. 2. The output will be in SORT1 format. 3. Both PRINT and PUNCH may be requested. 4. STRAIN = NONE allows overriding an overall output request. 5. Strains/curvatures are computed only for TRIA1, TRIA2, QUAD1, and QUAD2 elements. 6. If element strains/curvatures in the material coordinate system are desired, the parameter STRAIN (see the description of the PARAM bulk data card in Section 2.4.2) should be set to be a positive integer. If, in addition to element strains/curvatures in the material coordinate system, strains/curvatures at the connected grid points are also desired, the parameter STRAIN should be set to 0. 7. The format of the two-line output for each element consists of strain in the middle surface (line 1) and curvature (line 2). =PAGE= STRESS - Element Stress Output Request Description Requests form and type of element stress output. Format and Example(s) ( SORT1 PRINT EXTREME REAL ) ALL STRESS SORT2 , PUNCH , LAYER , IMAG = n NOPRINT PHASE NONE STRESS = 5 STRESS = ALL STRESS(SORT1, PRINT, PUNCH, PHASE) = 15 Option Meaning SORT1 Output will be presented as a tabular listing of elements for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of load, frequency, or time for each element type. SORT2 is available only in static analysis, transient, and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. NOPRINT Stresses are calculated and saved on file which is not sent to output device. EXTREME or LAYER Requests stresses to be calculated at the extreme (top and bottom) fibers of a plate element or, for composites, the stresses for each layer. (See Remarks 7 and 8.) REAL or IMAG Requests real or imaginary output on complex eigenvalue or frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on complex eigenvalue or frequency response problems. ALL Stresses for all elements will be output. n Set identification of a previously appearing SET card (Integer > 0). Only stresses for elements whose identification numbers appear on this SET card will be output. NONE Stresses for no elements will be output. Remarks 1. Both PRINT and PUNCH may be requested. 2. An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative would be to define a SET of interest. 3. In static analysis or frequency response problems, any request for SORT2 output causes all output to be SORT2. 4. STRESS is an alternate form and is entirely equivalent to ELSTRESS. 5. STRESS = NONE allows overriding an overall request. 6. If element stresses in the material coordinate system are desired (only for TRIA1, TRIA2, QUAD1, and QUAD2 elements and only in Rigid Format 1), the parameter STRESS (see the description of the PARAM bulk data card in Section 2.4.2) should be set to be a positive integer. If, in addition to element stresses in the material coordinate system, stresses at the connected grid points are also desired, the parameter STRESS should be set to 0. 7. When LAYER is selected, individual layer stresses and/or failure indices will be output. 8. The options EXTREME and LAYER are only applicable for the QUAD4 and TRIA3 elements. =PAGE= SUBCASE - Subcase Delimiter Description Delimits and identifies a subcase. Format and Example(s) SUBCASE n SUBCASE 101 Option Meaning n Subcase identification number (Integer > 0). Remarks 1. The subcase identification number, n, must be strictly increasing (that is, greater than all previous subcase identification numbers). 2. Plot requests and RANDOM requests refer to n. =PAGE= SUBCOM - Combination Subcase Delimiter Description Delimits and identifies a combination subcase. Format and Example(s) SUBCOM n SUBCOM 125 Option Meaning n Subcase identification number (Integer > 2). Remarks 1. The subcase identification number, n, must be strictly increasing (that is, greater than all previous subcase identification numbers). 2. A SUBSEQ card may appear in this subcase. 3. SUBCOM may only be used in statics or inertia relief problems. 4. Output requests above the subcase level will be utilized. 5. Up to 360 SUBCOM cards can be used in one NASTRAN analysis. =PAGE= SUBSEQ - Subcase Sequence Coefficients Description Gives the coefficients for forming a linear combination of the previous subcases. Format and Example(s) SUBSEQ = R1 [, R2, R3, ..., RN] SUBSEQ = 1.0, -1.0, 0.0, 2.0 Option Meaning R1 to RN Coefficients of the previously occurring subcases (Real). Remarks 1. A SUBSEQ card must only appear in a SUBCOM subcase. 2. A SUBSEQ card may be more than one physical card. A comma at the end signifies a continuation card. 3. SUBSEQ may only be used in statics or inertia relief problems. 4. A default value of 1.0 is used for all of the coefficients if no SUBSEQ card is used. =PAGE= SUBTITLE - Output Subtitle Description Defines a BCD (alphanumeric) subtitle which will appear on the second heading line of each page of NASTRAN printer output. Format and Example(s) SUBTITLE = Any BCD data SUBTITLE = NASTRAN PROBLEM NO. 5-1A Remarks 1. SUBTITLE appearing at the subcase level will title output for that subcase only. 2. SUBTITLE appearing before all subcases will title any outputs which are not subcase dependent. 3. If no SUBTITLE card is supplied, the subtitle line will be blank. 4. SUBTITLE information is also placed on NASTRAN plotter output as applicable. =PAGE= SVECTOR - Solution Set Displacement Output Request Description Requests form and type of solution set displacement output. Format and Example(s) ( SORT1, PRINT, REAL ) ALL SVECTOR SORT2 PUNCH IMAG = n PHASE NONE SVECTOR = ALL SVECTOR(SORT2, PUNCH, PHASE) = NONE Option Meaning SORT1 Output will be presented as a tabular listing of grid points for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of frequency or time for each grid point (or mode number). SORT2 is available only in transient and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. REAL or IMAG Requests real or imaginary output on complex eigenvalue or frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on complex eigenvalue or frequency response problems. ALL Displacements for all points (modes) will be output. NONE Displacements for no points (modes) will be output. n Set identification of previously appearing SET card. Only displacements of points whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1. Both PRINT and PUNCH may be requested. 2. An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative would be to define a SET of interest. 3. In a frequency response problem any request for SORT2 causes all output to be SORT2. 4. SDISPLACEMENT is an alternate form and is entirely equivalent to SVECTOR. 5. SVECTOR = NONE allows overriding an overall output request. =PAGE= SVELOCITY - Solution Set Velocity Output Request Description Requests form and type of solution set velocity output. Format and Example(s) ( SORT1, PRINT, REAL ) ALL SVELOCITY SORT2 PUNCH IMAG = n PHASE NONE SVELOCITY = 5 SVELOCITY(SORT2, PUNCH, PRINT, PHASE) = ALL Option Meaning SORT1 Output will be presented as a tabular listing of grid points for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of frequency or time for each grid point (or mode number). SORT2 is available only in transient and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. REAL or IMAG Requests real or imaginary output on frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on frequency response problems. ALL Velocity for all solution points (modes) will be output. NONE Velocity for no solution points (modes) will be output. n Set identification of a previously appearing SET card. Only velocities of points whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1. Both PRINT and PUNCH may be requested. 2. An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative would be to define a SET of interest. 3. Velocity output is only available for transient and frequency response problems. 4. In a frequency response problem any request for SORT2 output causes all output to be SORT2. 5. SVELOCITY = NONE allows overriding an overall output request. =PAGE= SYM - Symmetry Subcase Delimiter Description Delimits and identifies a symmetry subcase. Format and Example(s) SYM n SYM 123 Option Meaning n Subcase identification number (Integer > 0). Remarks 1. The subcase identification number, n, must be strictly increasing (that is, greater than all previous subcase identification numbers). 2. Plot requests and RANDOM requests should refer to n. 3. Overall output requests will not propagate into a SYM subcase (that is any output desired must be requested within the subcase). 4. SYM may only be used in statics or inertia relief. =PAGE= SYMCOM - Symmetry Combination Subcase Delimiter Description Delimits and identifies a symmetry combination subcase. Format and Example(s) SYMCOM n SYMCOM 123 Option Meaning n Subcase identification number (Integer > 2). Remarks 1. The subcase identification number, n, must be strictly increasing (that is, greater than all previous subcase identification numbers). 2. SYMCOM may only be used in statics or inertia relief problems. 3. Up to 360 SYMCOM cards can be used in one NASTRAN analysis. =PAGE= SYMSEQ - Symmetry Sequence Coefficients Description Gives the coefficients for combining the symmetry subcases into the total structure. Format and Example(s) SYMSEQ = R1 [, R2, R3 ..., Rn] SYMSEQ = 1.0, -2.0, 3.0, 4.0 Option Meaning R1 to RN Coefficients of the previously occurring N SYM subcases (Real). Remarks 1. A SYMSEQ card may only appear in a SYMCOM subcase. 2. The default value for the coefficients is 1.0 if no SYMSEQ card appears. 3. A SYMSEQ card may consist of more than one physical card. 4. SYMSEQ may only be used in statics or inertia relief. =PAGE= TEMPERATURE - Thermal Properties Set Selection Description Selects the temperature set to be used in either material property calculation or thermal loading. Format and Example(s) ( BOTH ) TEMPERATURE MATERIAL = n LOAD TEMPERATURE (LOAD) = 15 TEMPERATURE (MATERIAL) = 7 TEMPERATURE = 7 Option Meaning BOTH Both options, MATERIAL and LOAD, will use the same temperature table. MATERIAL The selected temperature table will be used to determine temperature-dependent material properties indicated on the MATTi type cards. LOAD The selected temperature table will be used to determine an equivalent static load. n Set identification number of TEMP, TEMPD, TEMPP1, TEMPP2, TEMPP3, TEMPRB, or TEMPAX cards (Integer > 0). Remarks 1. Only one temperature-dependent material request may be made in any problem and it must be above the subcase level. 2. Thermal loading may only be used in statics, inertia relief, differential stiffness, and buckling problems. 3. Temperature-dependent materials may not be used in piecewise linear problems. 4. The total load applied will be the sum of external (LOAD), thermal (TEMP(LOAD)), element deformation (DEFORM), and constrained displacement (SPC) loads. 5. Static, thermal, and element deformation loads should have unique set identification numbers. 6. In heat transfer analysis, the TEMP data is used for the following special purposes: a. The Case Control card TEMP(MATERIAL) will select the initial estimated temperature field for nonlinear conductivity and radiation effects. See Section 1.8 (APP HEAT, Rigid Formats 1, 3, and 9). b. In Rigid Format 3, heat boundary temperatures are defined by the specified Case Control card TEMP(MATERIAL). These points are specified with SPC data. =PAGE= TFL - Transfer Function Set Selection Description Selects the transfer function set to be added to the direct input matrices. Format and Example(s) TFL = n TFL = 77 Option Meaning n Set identification of a TF card (Integer > 0). Remarks 1. Transfer functions will not be used unless selected in the Case Control Deck. 2. Transfer functions are supported on dynamics problems only. 3. Transfer functions are simply another form of direct matrix input. =PAGE= THERMAL - Temperature Output Request Description Requests form and type of temperature vector output. Format and Example(s) THERMAL PRINT , SORT1 = ALL PUNCH SORT2 n NONE THERMAL = 5 THERMAL(PRINT,PUNCH) = ALL Option Meaning PRINT The printer will be the output device. PUNCH The card punch will be the output device. ALL Temperatures for all points will be output. NONE Temperatures for no points will be output. n Set identification of previously appearing SET card. Only temperatures of points whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1. Both PRINT and PUNCH may be requested. The punched output will consist of double field TEMP* Bulk Data cards defining the temperatures at the grid points. 2. THERMAL output request is designed for use with the heat transfer option. The printed output will have temperature headings and the punched output will be TEMP bulk data cards. The SID on a bulk data card will be the subcase number (= 1 if no defined subcases). The output format will be SORT1 for Static problems and SORT2 for transient problems. 3. An output request for ALL in transient response problems generally produces large amounts of printout. An alternative would be to define a SET of interest. 4. DISPLACEMENT and VECTOR are alternate forms and are entirely equivalent to THERMAL. 5. THERMAL = NONE allows overriding an overall output request. 6. The output format will be SORT1 for Rigid Formats 1 and 3, SORT2 for Rigid Format 9. 7. If punched output is desired in Rigid Format 9 for subsequent use in the other Rigid Formats, SORT1 format must be selected. =PAGE= TITLE - Output Title Description Defines a BCD (alphanumeric) title which will appear on the first heading line of each page of NASTRAN printer output. Format and Example(s) TITLE = Any BCD data TITLE = **$// ABCDEFGHI .... $ Remarks 1. TITLE appearing at the subcase level will title output for that subcase only. 2. TITLE appearing before all subcases will title any outputs which are not subcase dependent. 3. If no TITLE card is supplied, the title line will contain data and page numbers only. 4. TITLE information is also placed on NASTRAN plotter output as applicable. =PAGE= TSTEP - Transient Time Step Set Selection Description Selects integration and output time steps for transient problems. Format and Example(s) TSTEP = n TSTEP = 731 Option Meaning n Set identification of a selected TSTEP bulk data card (Integer > 0). Remarks 1. A TSTEP card must be selected to execute a transient problem. 2. Only one TSTEP card may have this value of n. =PAGE= VECTOR - Displacement Output Request Description Requests form and type of displacement vector output. Format and Example(s) VECTOR ( SORT1, PRINT, REAL ) ALL SORT2 PUNCH IMAG = n PHASE NONE VECTOR = 5 VECTOR(REAL) = ALL VECTOR(SORT2, PUNCH, REAL) = ALL Option Meaning SORT1 Output will be presented as a tabular listing of grid points for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available on transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of frequency or time for each grid point. SORT2 is available only in transient and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. REAL or IMAG Requests real or imaginary output on complex eigenvalue or frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on complex eigenvalue or frequency response problems. ALL Displacements for all points will be output. NONE Displacements for no points will be output. n Set identification of a previously appearing SET card. Only displacements of points whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1. Both PRINT and PUNCH may be requested. 2. On a frequency response problem any request for SORT2 causes all output to be SORT2. 3. DISPLACEMENT and PRESSURE are alternate forms and are entirely equivalent to VECTOR. 4. VECTOR = NONE allows overriding an overall output request. =PAGE= VELOCITY - Velocity Output Request Description Requests form and type of velocity vector output. Format and Example(s) VELOCITY ( SORT1, PRINT, REAL ) ALL SORT2 PUNCH IMAG = n PHASE NONE VELOCITY = 5 VELOCITY(SORT2, PHASE, PUNCH) = ALL Option Meaning SORT1 Output will be presented as a tabular listing of grid points for each load, frequency, eigenvalue, or time, depending on the rigid format. SORT1 is not available in transient problems (where the default is SORT2). SORT2 Output will be presented as a tabular listing of frequency or time for each gridpoint. SORT2 is available only in transient and frequency response problems. PRINT The printer will be the output device. PUNCH The card punch will be the output device. REAL or IMAG Requests real or imaginary output on frequency response problems. PHASE Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on frequency response problems. ALL Velocity for all solution points will be output. NONE Velocity for no solution points will be output. n Set identification of a previously appearing SET card. Only velocities of points whose identification numbers appear on this SET card will be output (Integer > 0). Remarks 1. Both PRINT and PUNCH may be requested. 2. An output request for ALL in transient and frequency response problems generally produces large amounts of printout. An alternative would be to define a SET of interest. 3. Velocity output is only available for transient and frequency response problems. 4. In a frequency response problem any request for SORT2 output causes all output to be SORT2. 5. VELOCITY = NONE allows overriding an overall output request. =PAGE= $ - Comment Card Description Defines a comment card by specifying a $ in column one with commentary text appearing in columns 2-80. Format and Example(s) $ Any BCD data $---THIS IS AN EXAMPLE OF A COMMENT CARD. Remarks 1. Unlike other Case Control cards, which are free field, the comment card must have the $ in column 1.  ================================================ FILE: um/DICT.TXT ================================================ =PAGE= 7.1 NASTRAN DICTIONARY This section contains descriptions of mnemonics, acronyms, phrases, and other commonly used NASTRAN terms. The first column of the dictionary contains the NASTRAN terms in alphabetical order. The second column contains a code indicating a general category for each term. The codes and categories, along with general references to the Programmer's Manual (PM) and User's Manual (UM), are as follows: CODE CATEGORY GENERAL REFERENCE DBM Data Block - Matrix PM-2 DBML Data Block - Matrix List PM-2 DBS Data Block - Substructure Item UM-1.10 DBT Data Block - Table PM-2 EM Executive Module UM-5.7 FMA Functional Module - Aero PM-4 FMH Functional Module - Heat PM-4 FMM Functional Module - Matrix Operation UM-5.4 FMS Functional Module - Structural PM-4 FMSS Functional Module - Substructuring UM-5.9 FMU Functional Module - Utility UM-5.5 FMX Functional Module - User UM-5.6 IA Input - Executive Control UM-2.2 IB Input - Bulk Data UM-2.4 IC Input - Case Control UM-2.3 IS Input - Substructure Control UM-2.7 L Rigid Format Label UM-Vol. II M Miscellaneous NP NASTRAN card parameter UM-2.l P Parameter Name UM-Vol. II PH Common Phrase or Term PU Parameter Set by User UM-2.4 The third column of the dictionary contains a definition or description of the terms given in the first column. References to the User's Manual are indicated by UM-i and the Programmer's Manual by PM-i, where i is the section number of the manual. References to particular rigid formats are indicated by D-i, H-i, or A-i, where i is the rigid format number in the DISPLACEMENT, HEAT, and AERO approaches, respectively. =PAGE= A P Parameter value used to control utility module MATGPR print of A-set matrices. ABFL DBM [A ] - Hydroelastic boundary area factor matrix. b,fl ABFLT DBM Transpose of [A ]. b,fl ACCE IC Abbreviated form of ACCELERATION. ACCE IS Acceleration output requests. ACCELERATION IC Output request for acceleration vector. (UM-2.3, 4.2) ACPT DBT Aerodynamic Connection and Property Data. Active column PH Column containing at least one nonzero term outside the band. ADD FMM Functional module to add two matrices together. ADD M Parameter constant used in utility module PARAM. ADD5 FMM Functional module to add up to five matrices together. ADR FMS Aerodynamic data recovery. ADUMi IB Defines attributes of dummy elements 1 through 9. AEFACT IB Used to input lists of real numbers for aeroelastic analysis. AERO DBT Aerodynamic Matrix Generation Data. AERO IB Gives basic aerodynamic parameters. AEROF IC Aerodynamic force output request. AEROFORCE IC Requests frequency dependent aerodynamic loads on interconnection points in aeroelastic response analysis. AJJL DBML Aerodynamic Influence Matrix List. ALL IC Output request for all of a specified type of output. ALLEDGE TICS IC Request tic marks on all edges of X-Y plot. ALTER IA Alter statement for DMAP or rigid format. ALWAYS P Parameter set to -1 by a PARAM statement. AMG FMA Aerodynamic Matrix Generator. AMP FMA Aerodynamic Matrix Processor. AND M Parameter constant used in executive module PARAM. AOUT$ M Indicates restart with solution set output request. APD FMA Aerodynamic pool distributor and element generator. APP IA Control card which specifies approach (DISP, DMAP, HEAT, or AERO). APP P Approach flag used for modules with several functions. APPEND M File may be extended (see FILE). ASDMAP FMSS Assemble substructure DMAP. ASET IB Analysis set coordinate definition card. ASET1 IB Analysis set coordinate definition card. AUTO IC Requests X-Y plot of autocorrelation function. AUTO DBT Autocorrelation function table. AXES IC Defines orientation of object for structure plot. AXIC DBT Generated by Input File Processor 3 (IFP3) for axisymmetric conical shell problems. AXIC IB Axisymmetrical conical shell definition card. When this card is present, most other bulk data cards may not be used. AXIF IB Controls the formulation of a hydroelastic problem. AXISYM$ M Indicates restart with conical shell or hydroelastic elements. AXISYMMETRIC IC Selects boundary conditions for axisymmetric shell problems or specifies the existence of hydroelastic fluid harmonics. AXSLOT IB Controls the formulation of acoustic analysis problems. =PAGE= B PH Upper semi band of matrix. 2 B2DD DBM [B ] - Partition of direct input damping matrix. dd 2 B2PP DBM [B ] - Direct input damping matrix for all physical pp points. B2PP IC Selects direct input structural damping or thermal capacitance matrices. B2PP$ M Indicates restart with change in direct input damping matrices. BAA DBM [B ] - Partition of damping matrix. aa BALL EDGE IC Request for all edge tic marks to be plotted on lower frame TICS of an X-Y plot. BAR IC Requests structure plot for all bar elements. BAROR IB Bar orientation default definition. BASIC IS Basic substructure for output requests. BBAR PH Lower semi band of matrix. BDD DBM [B ] - Damping matrix used in direct formulation of dd dynamics problems (D-7 through D-9, A-11). BDEBA P Parameter used to indicate equivalence of BDD and BAA. BDPOOL DBT Hydroelastic boundary description table. BDYC IB Combination of substructure boundary sets of retained degrees of freedom or fixed degrees of freedom for modes calculation. BDYLIST IB Structure-fluid hydroelastic boundary definition. BDYS IB Boundary set definition for substructuring. BDYS1 IB Alternate boundary set definition for substructuring. BEGIN EM The first DMAP statement is always BEGIN. BEGIN BULK IB Control card which marks the end of the case control deck. Cards following this card are assumed to be bulk data cards. BETAD PU Factor in integration algorithm in transient heat transfer analysis. BFF DBM [B ] - Partition of damping matrix. ff BGG DBM [B ] - Damping matrix generated by Structural Matrix gg Assembler. BGPA DBT Basic Grid Point Definition Table - aerodynamics. BGPDT DBT Basic Grid Point Definition Table. BGSS DBS Basic grid point coordinates. BHH DBM [B ] - Partition of damping matrix. hh BKL0 P Constant parameter value used in functional module SDR2 in the Buckling Analysis (D-5) and Normal Modes with Differential Stiffness (D-13) Rigid Formats. BKL1 P Constant parameter value used in functional module SDR2 in the Buckling Analysis Rigid Format (D-5). BLANK FRAMES IC Requests blank frames between structure plots (UM-4.1). BLEFT TICS IC Request for left edge tic marks to be plotted on bottom frame of an X-Y plot. BMG FMS Generates DMIG card images describing interconnection of fluid and structure. BMTX DBS Viscous damping matrix. BNN DBM [B ] - Partition of damping matrix. nn BOTH IC Bulk data echo option - Requests both unsorted and sorted printout of bulk data deck. BOUNDARY IS Defines set of retained degrees of freedom. BOV P Aerodynamic parameter equal to the reference semichord divided by velocity. BPI IC Bits per inch - Plot tape density must be specified on control cards in addition to this data card. The required value will vary from one installation to another. BQG DBM Single-point forces of constraint for a Buckling Analysis problem (D-5). BRECOVER IS Basic Substructure Data Recovery. BRIGHT TICS IC Request for right edge tick marks to be plotted on bottom frame for X-Y plot. BSHH DBM Total modal damping matrix - h set. BUCKLING IA Selects rigid format for buckling analysis. BUCKLING P Constant parameter value used in functional module READ in the Buckling Analysis Rigid Format (D-5). BUCKLING P Used in printing rigid format error messages for Buckling Analysis (D-5). BUFFSIZE NP Defines the number of words in a GINO buffer. Bulk Data PH One of the data decks necessary to run a problem under the Deck NASTRAN system. This deck begins after the BEGIN BULK card and ends with the ENDDATA card, and contains the data of the mathematical model. The format of each bulk data card is fixed field, 8 or 16 columns for each value. =PAGE= C M Used in parameter section of DMAP statement. Indicates that parameter is a constant. _ C PM Symbol for active column in triangular decomposition (C used for active rows). CAERO1 IB Aerodynamic panel element, doublet lattice theory. CAERO2 IB Aerodynamic body element, doublet lattice theory. CAERO3 IB Aerodynamic surface element, Mach box. CAERO4 IB Aerodynamic macro element, strip theory. CAERO5 IB Aerodynamic macro element, piston theory. CALCOMP IC Request California Computer plotter. CAMERA IC Selects one or both of the two cameras for the SC 4020 cathode ray tube electronic plotter. This information must usually also be given to the plotter operator on the run submittal slip, which will vary from one installation to another. (UM-4) CARDNO P Parameter used to accumulate a count of all card output punched except the NASTRAN restart dictionary. CASE FMS Extracts user request from CASECC for current loop in dynamics rigid formats (D-7 through D-12). Case Control PM One of the data decks necessary to run a problem under the Deck NASTRAN system. It contains cards which select particular data sets from the Bulk Data Deck, output request cards, and titling information. Cards in this deck are free field. CASECC DBT Case control data block. CASEXX DBT Case control data block as modified by functional module CASE. CASEYY DBT Appended case control data table. CASEZZ DBT CASEYY reduced to OFREQ list. CAXIF2 IB Acoustic core element connection definition card. CAXIF3 IB Acoustic triangular element connection definition card. CAXIF4 IB Acoustic quadrilateral element connection definition card. CBAR IB Bar element connection definition card. CCONEAX IB Axisymmetrical conical shell element connection card. CDAMP1 IB Scalar damper connection definition card. CDAMP2 IB Scalar damper property and connection definition card. CDAMP3 IB Scalar damper connection definition card (connecting scalar points). CDAMP4 IB Scalar damper property and connection definition card (connecting scalar points). CDUMi IB Defines definition card for dummy elements 1 through 9. CEAD FMS Complex Eigenvalue Analysis - Displacement. CEIF P Parameter used in SDR2 in Complex Eigenvalue Analysis (0-7 and 0-10). CEIGN P Parameter used in VDR in Complex Eigenvalue Analysis (0-7 and 0-10). CELAS1 IB Scalar spring connection definition card. CELAS2 IB Scalar spring property and connection definition card. CELAS3 IB Scalar spring connection definition card (connecting scalar points). CELAS4 IB Scalar spring property and connecting definition card (connecting scalar points). CEND IA The last card of the Executive Control Deck. CFLUID2 IB Fluid core element connection definition card. CFLUID3 IB Fluid triangular element connection definition card. CFLUID4 IB Fluid quadrilateral element connection definition card. CHBDY IB Boundary element connection definition card for heat transfer analysis. CHECK IB Checks contents of external file. Checkpoint PH The process of writing selected data blocks onto the New Problem Tape for subsequent restarts. CHEXA1 IB Hexahedron element connection definition card - five tetrahedra. CHEXA2 IB Hexahedron element connection definition card - ten tetrahedra. CHKPNT EM Checkpoint module. CHKPNT IA Request for checkpoint execution. CLAMA DBT Complex eigenvalue output table. CLAMAL DBT Appended case control data table. CLANAL1 DBT CLAMAL reduced to OFREQ list. CLEAR IC Causes all parameter values used for X-Y plots to be reset to their default values except plotter and the titles (UM- 4.2). CMASS1 IB Scalar mass connection definition card. CMASS2 IB Scalar mass property and connection definition card. CMASS3 IB Scalar mass connection definition card (connecting scalar points). CMASS4 IB Scalar mass property and connection definition card (connecting scalar points). CMETHOD IC Complex eigenvalue analysis method selection. CMETHOD$ M Indicates restart with change in complex eigenvalue analysis method selection. CMPLEV P Parameter used in GKAD to indicate complex eigenvalue problem. Cold Start PH A NASTRAN problem initiated at its logical beginning. A cold start will never use an Old Problem Tape but it may create a New Problem Tape for subsequent restarts. COLOR IC Selects ink color for table plotters (UM-4.l). COMBINE IB Combines sets of substructures. COMB1 FMSS Substructure Combination, Step 1. COMB2 FMSS Substructure Combination, Step 2. COMPONENT IB Identifies component substructure for special processing. CONCT IB Specifies grid points and degrees of freedom for manually specified connectivities using substructuring - will be overridden by RELAS data. CONCT1 IB Alternate specification of connectivities using substructuring. COND EM Conditional transfer. CONFIG NP Defines the model number of the computer system configuration for use in timing equations. CONM1 IB Structural mass element connection definition card. CONM2 IB Structural mass element connection definition card. CONNECT IB Defines sets for manually connected grids and releases. CONROD IB Rod element property and connection definition card. CONROD IC Requests structure plot for all CONROD elements. CONT L Continue if [K ] is nonsingular. oo CONTINUE L Exit after last loop. CONTOUR IC Specifies displacement and stress contours to be drawn on structure plots. COPY FMU Generates a physical copy of a data block. CORD1C IB Cylindrical coordinate system definition (by grid point ID). CORD1R IB Rectangular coordinate system definition (by grid point ID). CORD1S IB Spherical coordinate system definition (by grid point ID). CORD2C IB Cylindrical coordinate system definition (by coordinates). CORD2R IB Rectangular coordinate system definition (by coordinates). CORD2S IB Spherical coordinate system definition (by coordinates). COSINE IC Indicates cosine boundary conditions for conical shell problem. COUPMASS PU Parameter used to request coupled mass. CPBAR PU Selects coupled mass option for BAR element. CPHID DBM Complex eigenvectors - solution set. CPHIA DBM Complex eigenvector matrix, A-set. CPHIH1 DBM PHIHL reduced to OFREQ list. CPHIK DBM Complex eigenvector matrix, aerodynamic box points. CPHIP DBM Complex eigenvectors - physical set. CPHIPA DBM Complex eigenvector matrix, PA-set. CPHIPS DBM Complex eigenvector matrix, PS-set. CPQDPLT PU Selects coupled mass option for QDPLT element. CPQUAD1 PU Selects coupled mass option for QUAD1 element. CPQUAD2 PU Selects coupled mass option for QUAD2 element. CPROD PU Selects coupled mass option for ROD and CONROD elements. CPTRBSC PU Selects coupled mass option for TRBSC element. CPTRIA1 PU Selects coupled mass option for TRIA1 element. CPTRIA2 PU Selects coupled mass option for TRIA2 element. CPTRPLT PU Selects coupled mass option for TRPLT element. CPTUBE PU Selects coupled mass option for TUBE element. CQDMEM IB Quadrilateral membrane element connection definition card. CQDMEM1 IB Isoparametric quadrilateral membrane element connection definition card. CQDMEM2 IB Quadrilateral membrane element connection definition card. CQDPLT IB Quadrilateral bending element connection definition card. CQUAD1 IB General Quadrilateral element connection definition card. CQUAD2 IB Homogeneous quadrilateral element connection definition card. CRIGD1 IB Rigid Element Connection. CRIGD2 IB Rigid Element Connection. CRIGD3 IB General rigid element connection. CRIGDR IB Rigid Rod element connection. CROD IB Rod element connection definition card. CREDUCE IS Complex modal reduction request. CSHEAR IB Shear panel element connection definition card. CSLOT3 IB Triangular slot element connection definition card for acoustic analysis. CSLOT4 IB Quadrilateral slot element connection definition card for acoustic analysis. CSTM DBS Local coordinate system transformation matrices. CSTM DBT Coordinate System Transformation Matrices. CSTMA DBT Coordinate System Transformation Matrices - Aerodynamics. CTETRA IB Tetrahedron element connection definition card. CTORDRG IB Toroidal ring element connection card. CTRAPRG IB Trapezoidal ring element connection card. CTRBSC IB Basic bending triangular element connection definition card. CTRIA1 IB General triangular element connection definition card. CTRIA2 IB Homogeneous triangular element connection definition card. CTRIARG IB Triangular ring element connection card. CTRIM IB Linear strain triangular element connection. CTRMRM IB Triangular membrane element connection definition card. CTRPLT IB Triangular bending element connection definition card. CTRPLT1 IB Triangular element connection. CTRSHL IB Triangular shell element connection. CTUBE IB Tube element connection definition card. CTWIST IB Twist panel element connection definition card. CTYPE PU Defines the type of cyclic symmetry. CURVLINE IC Request to connect points with lines and/or to use symbols SYMBOL for X-Y plots. CVISC IB Viscous damper element connection definition card. CWEDGE IB Wedge element connection definition card. CYCIO PU A parameter which specifies the form of the input and output data using cyclic symmetry. CYCSEQ PU A parameter which specifies the procedure for sequencing the equations in the solution set using cyclic symmetry. =PAGE= D P Parameter value used to control utility module MATGPR print of solution set matrices. DAREA IB Dynamic load scale card. DAREAS IB Dynamic load scale card for substructuring. Data Block PH Designates a set of data (matrix, table) occupying a file. A file is "allocated" to a data block and a data block is "assigned" to a file. Data Pool PN An executive file containing the OSCAR and any data blocks File pooled by the Executive Segment File Allocator (XSFA) module. The contents of this file are described within the data pool dictionary (DPL). DDR FMX User dummy module. DDR1 FMS Dynamic Data Recovery - Phase 1. DDR2 FMS Dynamic Data Recovery - Phase 2. DDRMM FMS Dynamic data recovery, matrix method. Deck PH 1. Job Control 2. Executive Control Deck 3. Substructure Control Deck 4. Case Control Deck 5. Bulk Data Deck DECOMOPT P Controls type of arithmetic used in the decomposition for frequency-response problems. DECOMP FMM To decompose a square matrix into upper and lower triangular factors. Default PH Many NASTRAN data items have default values supplied by the system. For example, the default value for MAXLINES is 20000. DEFORM IB Enforced element deformation definition card. DEFORM IC Enforced element deformation set selection. DEFORM$ M Indicates restart with change in enforced element deformation selection. DEFORMATION IC Indicates subcases to be used for deformed structure plots. DELAY IB Dynamic load time delay card. Delete IB Delete cards from Bulk Data Deck. DELETE IS Deletes individual substructure items from the SOF. DELTAPG DBM Incremental load vector in Piecewise Linear Analysis Rigid Format (D-6). DELTAQG DBM Incremental vector of single point constraint forces in the Piecewise Linear Analysis Rigid Format (D-6). DELTAUGV DBM Incremental displacement vector in the Piecewise Linear Analysis Rigid Format (D-6). DENSITY IC Density of lines for SC 4020 plotter. DENSITY IC Plot tape density must be specified to plotter operator on run submittal form and will vary from one installation to another (UM-4.1). DESTROY IS Removes all data referencing a component substructure. DESTRY P Appended AJJL parameter. DET IB Eigenvalue analysis method option - determinant (see EIGR, EIGB, EIGC). DET P Scaled determinant |K |, see NDET. oo DIAGONAL FMU Strips diagonal from matrix. DIFF P Parameter used in the Piecewise Linear Analysis Rigid Format (D-6). DIFFERENTIAL IA Selects rigid format for static analysis with differential STIFFNESS stiffness. DIFFSTIF P Parameter used in the PRTPARM module in the Differential Stiffness Rigid Format (D-4). DIRCEAD P Used in printing rigid format error messages for direct complex eigenvalue analysis (D-7). DIRECT P Parameter used to indicate direct formulation of dynamics problems (D-7 through D-9). DIRECT IA Selects rigid format for direct complex eigenvalue COMPLEX analysis. EIGENVALUES DIRECT IA Selects rigid format for direct frequency and random FREQUENCY response. RESPONSE DIRECT IA Selects rigid format for direct transient response. TRANSIENT RESPONSE DIRFRRD P Used in printing rigid format error messages for direct frequency response. DIRTRD P Used in printing rigid format error messages for direct transient response (D-9). DISP IA Displacement approach to structural analysis. DISP IC Abbreviated form of DISPLACEMENT. DISP IS Displacement output request. DISPLACEMENT IC Request for output of displacement vector or eigenvector. (UM-2.3, 4.2). DIT DBT Direct Input Table. DIV P Parameter constant used in utility module PARAM. DLOAD IB Dynamics load assembly definition. DLOAD IC Dynamic load set solution request. DLOAD$ M Indicates restart with change in dynamic load set request. DLT DBT Dynamic Loads Table. DM DBM [D] - Rigid body transformation matrix. DMAP IA Approach option (Direct Matrix Abstraction Program). DMAP PH A statement in the DMAP Language. Instruction DMAP Language PH Data block-oriented language used by the NASTRAN Executive System to direct the sequence and flow of modules to be executed. DMAP Loop PH A DMAP sequence to be repeated, initiated with a LABEL DMAP instruction and terminated by a REPT DMAP instruction. DMAP Module PH A module called by means of a DMAP instruction. DMAP Sequence PH A set of DMAP instructions. DMI IB Direct Matrix Input (data block is defined and used by you). DMIAX IB Direct Matrix Input - Axisymmetric, used in dynamic rigid formats (D-7 through D-12). DMIG IB Direct Matrix Input - used in dynamic rigid formats (D-7 through D-12). Doublet PH Subsonic aerodynamic theory. Lattice DPD FMS Dynamic Pool Distributor. DPH M Data Pool Housekeeper - Executive routine. DPHASE IB Dynamic load phase lead card. DSO P Parameter used in functional module SDR2 in the Differential Stiffness Rigid Format (D-4). DS1 P Parameter used in functional module SDR2 in the Differential Stiffness Rigid Format (D-4). DSCO IC Abbreviated form of DSCOEFFICIENT. DSCO$ M Indicates restart with change in differential stiffness load factor. DSCOEFFICIENT IC Selects loading factor for normal modes with differential stiffness. DSCOSET P Differential Stiffness coefficient set number. Used in the Differential Stiffness Rigid Format (D-13). DSFACT IB Differential stiffness factor set definition card. DSMG1 EMS Differential Stiffness Matrix Generator - Phase 1. DSMG2 FMS Differential Stiffness Matrix Generator - Phase 2. DTI IB Direct Table Input - means by which you may directly input any table data block. DUMMOD1 FMX Dummy Module-1. DUMMOD2 FMX Dummy Module-2. DUMMOD3 FMX Dummy Module-3. DUMMOD4 FMX Dummy Module-4. Dummy Element PH Provision for you to insert additional finite element into the NASTRAN element library. DUMP IS Copies the entire SOF to an external file. Dump PH Printed output of contents of all, or a portion, of main memory at some point in the problem solution. DYNAMICS DBT Generated by the Input File Processor (IFP) for Real Eigenvalue, Buckling, or any of the Dynamics Rigid Formats (D-3, D-5, and D-7 through D-12). D1JE DBM Downwash factors due to extra points - real. D2JE DBM Downwash factors due to extra points - complex. D1JK DBM Real part of downwash matrix. D2JK DBM Imaginary part of downwash matrix. =PAGE= E P Parameter value used by MATGPR to print matrices associated with extra points. ECHO IC Output request statement for echo of bulk data. ECPT DBT Element Connection and Properties Table. ECPTNL DBT Nonlinear subset of the ECPT. This data block is used only in the Piecewise Linear Analysis Rigid Format (D-6). ECPTNL1 DBT Updated version of the ECPTNL data block. Used only in the Piecewise Linear Analysis Rigid Format (D-6). ECPTNLPG P Error flag for the Piecewise Linear Analysis Rigid Format (D-6). If all elements in a piecewise linear analysis problem are linear, this error flag is set and a DMAP exit occurs. ECT DBT Element Connection Table. ECTA DBT Element Connection Table - Aerodynamics. EDIT IS Removes data from SOF file. EDT DBT Enforced Deformation Table - generated by Input File Processor. EED DBT Eigenvalue Extraction Data table (D-3, D-5, D-7, D-10, D- 11, D-12, D-13, D-15, A-10, A-11). EIGB IB Real eigenvalue extraction data for buckling analysis (D-5). EIGC IB Complex eigenvalue extraction data card (D-7 and D-10). EIGP IB Complex eigenvalue pole definition card (D-7 and D-10). EIGR IB Real eigenvalue extraction data for normal mode analysis (D-3, D-10 through D-13, D-15, A-10). EIGVS P Number of eigenvalues found by CEAD module. ELEMENTS IC Used in element set definition for structure plot. ELFORCE IC Requests the forces in a set of structural elements or the temperature gradients and fluxes in a set of structural or heat elements in heat transfer. ELSETS DBT Element plot set connection tables. ELSETSA DBT Data block ELSETS, extended to include generated aerodynamic elements. ELSTRESS IC Request for output of element stresses. (UM-2.3, 4.2) END EM The last DMAP statement is always END. END IA END is the last statement in all DMAP sequences. ENDALTER IA Last card of alter packet. ENDDATA IB End of Bulk Data Deck. ENDSUBS IS Terminates the Substructure Control Deck. ENERGY IS Modal energies output requests. EOF PH End-of-File. EPOINT IB Extra point definition card - used in dynamics problems only. EPSHT PU Used in convergence tests for nonlinear heat transfer analysis. EPSILON PH Error ratio computed in SSG3. = if the referenced SUB E ( ) e l e load is {P } and = if the referenced load is {P }. l e o o See Volume Il, Section 2.1.2, for mathematical definition of and . o l EPSIO PU A parameter to test the convergence of iterated differential stiffness. EPT DBT Element Property Table - output by Input File Processor. EQAERO DBT Equivalence between external points and scalar index values - Aerodynamics. EQDYN DBT Equivalence of internal and external indices - dynamics. EQEXIN DBT Equivalence of internal and external indices. EQSS DBS External grid point and internal point equivalence data. EQUIV EM Equivalence data blocks. EQUIV IS Creates a new equivalent substructure. Equivalence PH Data blocks are considered equivalenced when references to their equivalent names access the same physical data file. ERROR1 L Label used when rigid format errors are detected. ERROR2 L Label used when rigid format errors are detected. ERROR3 L Label used when rigid format errors are detected. ERROR4 L Label used when rigid format errors are detected. ERROR5 L Label used when rigid format errors are detected. ERROR6 L Label used when rigid format errors are detected. ESE IC Request for element strain energy output. EST DBT Element Summary Table. ESTL DBT Element Summary Table for Linear elements. Used only in the Piecewise Linear Analysis Rigid Format (D-6). ESTNL DBT Element Summary Table for Nonlinear elements. Used only in the Piecewise Linear Analysis Rigid Format (D-6). ESTNL1 DBT Updated version of the ESTNL data block. Used only in the Piecewise Linear Analysis Rigid Format (D-6). EVEC DBM Partitioning vector. D-set to A and E. EXCEPT IC Forms exceptions to string of values in set declarations. EXCLUDE IC Used in set definition for structure plots. Executive PH 1. Executive Control Deck 2. NASTRAN Executive System Executive PH One of the data decks necessary to run a problem under the Control NASTRAN system. This deck begins with the ID card and ends Deck with the CEND card. Among other things, cards in this deck select the solution approach and rigid format to be used, limit the execution time, and control checkpointing and restart. Executive PH The Executive System initiates a NASTRAN problem solution System via the Preface, allocates files to data blocks during problem solution, controls the sequence of the modules to be executed, and provides for problem restart capability. EXIO FMSS External input/output for the SOF. EXIT EM Program termination DMAP statement. External Sort PH Order of grid, scalar and extra points determined by your numerical order of point identification. Extra Point PH A "point" which is defined on an EPOINT bulk data card. An extra point has no geometrical coordinates, defines only one degree of freedom of the model, and is used only in dynamics solutions. =PAGE= F P Parameter value used by MATGPR to print F-set matrices. FA1 FMS Flutter Analysis - Phase 1. FA2 FMS Flutter Analysis - Phase 2. FBS FMM Forward and Backward Substitution. FE P Parameter used by MATGPR to print out FE-set matrices. FEER IB Fast Eigenvalue Extraction Routine eigensolution method. FIAT M File Allocation Table. Core resident executive table where data block names, status of the data blocks (assigned to a file, purged, equivalenced, etc.) and trailer for the data blocks are stored. FILE EM Defines special data block characteristics to DMAP compiler. FILE IA Term appearing on the checkpoint dictionary cards indicating the file number (internal) associated with a particular data block. FILE M The FILE DMAP statement specifies data block characteristics such as TAPE, SAVE, and APPEND. FILE PH Designates an auxiliary storage area or unit. FILES NP Declares the NASTRAN permanent files as disk files. FIND IC Selects parameters for structure plot. FINIS L Label used in all displacement rigid format DMAPs to terminate execution of DMAP. Finite PH Idealized unit of a structural model that represents the Element distributed elastic properties of a structure. FIST M File Status Table. Core resident executive table where internal file names and pointers to the FIAT, pertaining only to the module being executed, are stored. FIXED IB Defines set of constrained degrees of freedom for modes calculation. FLAGS IA Term appearing on the checkpoint dictionary cards indicating the status of a data block (equivalenced or not). FLFACT IB Specifies densities, Mach numbers, and frequencies. FLIST DBT Flutter Control Table. FLOOP P Flutter loop counter/control. FLSYM IB Structural symmetry definition card for use in hydroelastic problems. FLUID IC Indicates hydroelastic harmonic degrees of freedom. FLUTTER IB Defines flutter data. FMETHOD IC Flutter Analysis Method Selection. FADE P Mode number of first mode selected by you in modal dynamics formulations. FOL DBT Frequency response output frequencies. FORCE IB Static load definition (vector). FORCE IC Request for output of element forces. FORCE1 IB Static load definition (magnitude and two grid points). FORCE2 IB Static load definition (magnitude and four grid points). FORCEAX IB Static load definition for conical shell problem. FREEPT IB Defines point on a free surface of a fluid for output purposes. FREQ IB Frequency list definition. FREQ$ M Indicates restart with change in frequencies to be solved. FREQ1 IB Frequency list definition (linear increments). FREQ2 IB Frequency list definition (logarithmic increments). FREQRESP P Parameter used in SDR2 to indicate a frequency response problem. FREQUENCY IC Selects the set of frequencies to be solved in frequency response problems. FREQY P Selects between frequency and transient in aeroelastic response. FRL DBT Frequency Response List. FRLG FMA Frequency response load generator. FRQSET P Used in FRRD to indicate user selected frequency set. FRRD FMS Frequency and Random Response - Displacement approach. FRRD2 FMA Frequency response, with aerodynamic matrix capability. FSAVE DBT Flutter Storage Save Table. FSLIST IB Defines a free surface of a fluid in a hydroelastic problem. Functional PH An independent group of subroutines that perform a Module structural analysis function. =PAGE= G PU 1. Parameter used by MATGPR to print G-set matrices. 2. Parameter used to input uniform structural damping coefficient (D-7 through D-9). GEI DBT General Element Input. GENEL IB General element definition. GEOM1 DBT Geometric data input table - generated by the Input File Processor. GEOM2 DBT Connection input table - generated by the Input File Processor. GEOM3 DBT Static load and temperature input table - generated by the Input File Processor. GEOM4 DBT Displacement sets definition input table - generated by the Input File Processor. GI FMA Geometry Interpolator. GIMS DBS G transformation matrix for interior points from a modal reduction. GINO M General input/output. GINO is a collection of subroutines which is the input/output control system for NASTRAN. GINO Buffer PH Storage reserved in open core for each GINO file opened. The size of the buffer is machine dependent. GINO File PH File number used internally in DMAP modules to access data Number blocks. GIV IB Eigenvalue analysis method option - Givens (see EIGR). GKAD FMS General [K] Assembler - Direct. GKAM FMS General [K] Assembler - Modal. GM DBM [G ] - multipoint constraint transformation matrix. m d GMD DBM [G ] - multipoint constraint transformation matrix used in m dynamic analysis. GNFIAT M Generate FIAT. The preface routine which generates the initial FIAT. GO DBM [G ] - structural matrix partitioning transformation o matrix. d GOD DBM [G ] - structural matrix partitioning transformation matrix o used in dynamic analysis. GPARAM IS Specifies structural damping parameter. GP1 FMS Geometry Processor - part 1. GP2 FMS Geometry Processor - part 2. GP3 FMS Geometry Processor - part 3. GP4 EMS Geometry Processor - part 4. GPCT DBT Grid Point Connection Table. GPDT DBT Grid Point Definition Table. GPFORCE IC Requests grid point force balance output. GPI M General Problem Initialization (see XGPI). GPL DBT Grid Point List. GPLA DBT Grid Point List - Aerodynamics. GPLD DBT Grid Point List used in dynamic analysis. GPSETS DBT Grid point plot sets. GPSETSA DBT Data block GPSETS, extended to include generated aerodynamic grid points. GPSP FMS Grid Point Singularity Processor. GPST DBT Grid Point Singularity Table. GPTT DBT Grid Point Temperature Table. GPWG FMS Grid Point Weight Generator. GRAV IB Gravity vector definition card. GRDEQ PU Selects the grid point about which equilibrium will be checked. GRDPNT PU Used in all displacement rigid formats to specify execution of the grid point weight generator (GPWG) by you. A positive value references a grid point of the structural model. A value of zero indicates the origin of the basic coordinate system. GRDSET IB Grid point default definition card. GRID IB Grid point definition card. Grid Point PH A point in Euclidean 3-dimensional space defined on a GRID bulk data card. A grid point defines 6 degrees of freedom, 3 translational and 3 rotational. GRID POINTS IC Used in set definition for structure plots. GRIDB IB Grid point definition card for hydroelastic model. GRIDF IB Grid point definition card for axisymmetric fluid cavity. GRIDS IB Grid point definition card for slotted acoustic cavity. GTKA DBM Aerodynamic transformation matrix - k-set to a-set. GTRAN IB Redefines the output coordinate system grid point displacement sets. GUST FMA Calculates loads due to gust. GUST IB Defines stationary vertical gust. GUST IC Aerodynamic gust input request. GUSTAERO PU Requests matrices used only in gust calculations to be computed. =PAGE= HARMONICS IC Controls number of harmonics output in axisymmetric shell problems and hydroelastic problems. 2 HS2DD DBM [B ] - Partition of heat capacity matrix. dd 2 HS2PP DBM [B ] - Partition of heat capacity matrix. pp HBAA DBM [B ] - Partition of heat capacity matrix. aa HSDD DBM [B ] - Partition of heat capacity matrix. dd HSFF DBM [B ] - Partition of heat capacity matrix. ff HSGG DBM [B ] - Heat capacity matrix. gg HSNN DBM [B ] - Partition of heat capacity matrix. nn HDLT DBT Dynamic loads table for heat transfer analysis. Header record PH Initial record of a data block. Typically a header record contains only 2 BCD words, the alphanumeric name of the data block. HEAT IA Selects heat transfer analysis on APProach card. HESS IB Upper Hessenberg eigenvalue extraction method. HFREQ PU High frequency limit for modal formulation of dynamics problems (D-10 through D-12, A-10, A-11). HICORE NP Defines the amount of open core available to you on the UNIVAC 1100 series. 2 HK2DD DBM [K ] - Partition of heat conductivity matrix. dd 2 HK2PP DBM [K ] - Partition of heat conductivity matrix. pp HKAA DBM [K ] - Partition of heat conductivity matrix. aa HKDD DBM [K ] - Partition of heat conductivity matrix. dd HKFF DBM [K ] - Partition of heat conductivity matrix. ff HKFS DBM [K ] - Partition of heat conductivity matrix. fs HKGG DBM [K ] - Heat conductivity matrix, including estimated gg linear component of radiation. x HKGGX DBM [K ] - Heat conductivity matrix. gg HKNN DBM [K ] - Partition of-heat conductivity matrix. nn HLFT DBS Left side H transformation matrix from unsymmetric CREDUCE operation. HOEFlX DBT Heat flux output table for CHBDY elements. HORG DBS H or G transformation matrix. o HPDO DBM {P } - Partition of dynamic load vector. d t HPDT DBM {P } - Partition of dynamic load vector. d o HPPO DBM {P } - Partition of dynamic load vector. p o HPSO DBM {P } - Partition of dynamic load vector. s HQGE DBM [Q ] - Element radiation flux matrix for heat transfer ge analysis. HRAA DBM [R ] - Partition of radiation matrix. aa HRDD DBM [R ] - Partition of radiation matrix. dd HRFF DBM [R ] - Partition of radiation matrix. ff HRGG DBM [R ] - Radiation matrix for heat transfer analysis. gg HRNN DBM [R ] - Partition of radiation matrix. nn HSLT DBT Static heat flux table. HTOL DBT List of output time steps for heat transfer. =PAGE= IC IC Transient analysis initial condition set selection. ID IA The first card of any data deck is the identification (ID) card. The two data items on this card are BCD values. IFP EM Input File Processor. The preface module which processes the sorted Bulk Data Deck and outputs various data blocks depending on the card types present in the Bulk Data Deck. IFP1 EM Input File Processor 1. The preface module which processes the Case Control Deck and writes the CASECC, PCDB, and XYCDB data blocks. IFP3 EM Input File Processor 3. The preface module which processes bulk data cards for a conical shell problem. IFP4 EM Input File Processor 4. The preface module which processes bulk data cards for a hydroelastic problem. IFT FMA Inverse Fourier transformation. IFTM PU A parameter which selects the method for integration of the Inverse Fourier Transform. IFTSKP L Used to skip IFT module. IMAG IC Output request for real and imaginary parts of some quantity such as displacement, load, single point force of constraint element force, or stress. IMPL P Parameter constant used in executive module PARAM. INCLUDE IC Used in set definition for structure plots. INERTIA P Used in printing rigid format error messages for Static Analysis with Inertia Relief (D-2). INERTIA IA Selects rigid format for static analysis with inertia RELIEF relief. INPT M A reserved NASTRAN physical file which must be set up by you when used. INPUT FMU Generates most of bulk data for selected academic problems. Input Data PH A data block input to a module. An input data block must Block have been previously output from some module and may not be written on. Input Data PH The card input data to the NASTRAN system are in 3 sets, Cards the Executive Control Deck, the Case Control Deck, and the Bulk Data Deck. INPUTT1 FMU Reads data blocks from GINO-written user tapes. INPUTT2 FMU Reads data blocks from FORTRAN-written user tapes. INPUTT3 FMX Auxiliary input file processor. INPUTT4 FMX Auxiliary input file processor. Internal Sort PH Same order as external sort except when SEQGP or SEQEP bulk data cards are used to change the sequence. INV IB Inverse power eigenvalue analysis option - specified on EIGR, EIGB, or EIGC cards. IRES PU Causes printout of residual vectors in statics rigid formats when set nonnegative via a PARAM bulk data card. (D-1, D-2, D-4, D-5, D-6). ISTART PU A parameter which causes the alternate starting method to be used in transient analysis. ITEMS IS Specifies data items to be copied in or out. JUMP EM Unconditional transfer DMAP statement. JUMPPLOT P Parameter used by structure plotter modules PLTSET and PLOT. =PAGE= 2 K2DD DBM [K ] - Partition of direct input stiffness matrix. dd 2d K2DPP DBM [K ] - Direct input stiffness matrix for all physical pp points from bulk data deck. 2 K2PP DBM [K ] - Direct input stiffness matrix for all physical pp points. K2PP IC Selects direct input structural stiffness or thermal conductance matrices. K2PP$ M Indicates restart with change in direct input stiffness matrices. 2x K2XPP DBM [K ] - Direct input stiffness matrix excluding pp hydroelastic boundary stiffness matrix. 4 K4AA DBM [K ] - Partition of structural damping matrix. aa 4 K4FF DBM [K ] - Partition of structural damping matrix. ff 4 K4GG DBM [K ] - Structural damping matrix generated by Structural gg Matrix Assembler. K4MX DBS Structural damping matrix. 4 K4NN DBM [K ] - Partition of structural damping matrix. nn KAA DBM [K ] - A-set stiffness matrix. aa _ KAAB DBM [K ] - Partition of stiffness matrix. aa b KBFS DBM [K ] - Partition of combination of elastic stiffness fs matrix and differential stiffness matrix. KBFL DBM [K ] - Hydroelastic boundary stiffness matrix. b,fl b KBLL DBM [K ] - Combination of elastic stiffness and differential ll stiffness used in static analysis with differential stiffness. b KBSS DBM [K ] - Partition of combination of stiffness matrix and ss differential stiffness matrix. d KDAA DBM [K ] - Partition of differential stiffness matrix. aa d KDAAM DBM -[K ] - Differential stiffness matrix used in formulation aa of buckling problems (D-5). KDAMP PU -1 for structural damping, +1 for viscous. KDD DBM [K ] - Stiffness matrix used in direct formulation of dd dynamics problems (D-7 through D-9). KDEK2 P Parameter indicating equivalence of KDD and K2DD. KDEKA P Parameter indicating equivalence of KDD and KAA. d KDFF DBM [K ] - Partition of differential stiffness matrix. ff d KDFS DBM [K ] - Partition of differential stiffness matrix. fs d KDGG DBM [K ] - Differential stiffness matrix prepared by gg Differential Stiffness Matrix Generator. d KDNN DBM [K ] - Partition of differential stiffness matrix. nn d KDSS DBM [K ] - Partition of differential stiffness matrix. ss KE PH Flutter analysis method. KEF DBM [K ] - Partition of stiffness matrix. ff KFS DBM [K ] - Partition of stiffness matrix. fs KGG DBM [K ] - Stiffness matrix generated by Structural Matrix gg Assembler. l KGGL DBM [K ] - Stiffness matrix for linear elements. Used only in gg the Piecewise Linear Analysis Rigid Format (D-6). KGGLPG P Purge flag for KGGL matrix. If set to -1, it implies that there are no linear elements in the structural model. (D-6). nl KGGNL DBM [K ] - Stiffness matrix for the nonlinear elements. Used gg in the Piecewise Linear Analysis Rigid Format only. KGGSUM DBM Sum of KGGNL and KGGL. Used In the Piecewise Linear Analysis Rigid Format only. (D-6). x KGGX DBM [K ] - Stiffness matrix excluding general elements. gg xl KGGXL DBM [K ] - Stiffness matrix for linear elements (excluding gg general elements). Used in the Piecewise Linear Rigid Format only. (D-6). y KGGY DBM [K ] - Stiffness matrix of general elements. gg KHH DBM [K ] - Stiffness matrix used in modal formulation of hh dynamics problems (D-10 through D-12). KINDEX PU A parameter which specifies a single value of the harmonic index using cyclic symmetry. KLL DBM [K ] - Stiffness matrix used in solution of problems in ll static analysis (D-1, D-2, D-4, D-5, D-6). KLR DBM [K ] - Partition of stiffness matrix. lr KMAX PU A parameter which specifies the maximum value of the harmonic index using cyclic symmetry. KMTX DBS Stiffness matrix. KNN DBM [K ] - Partition of stiffness matrix. nn KOA DBM [K ] - Stiffness matrix partition. oa KOO DBM [K ] - Partition of stiffness matrix. oo KRR DBM [K ] - Partition of stiffness matrix. rr KSS DBM [K ] - Partition of stiffness matrix. ss KXHH DBM Total modal stiffness matrix - h-set. =PAGE= L P Parameter value used by MATGPR to print L-set matrices. LABEL EM DMAP location. LABEL IC Defines third line of titles to be printed on each page of printer output. Also used on plots. LABEL IC Requests identification of grid points and/or elements on structure plot. LAMA DBT Real eigenvalues. LAMS DBS Eigenvalue data from modal reduce operation. LAMX FMU Edit or generate data block, LAMA. LBLi L A label used in displacement approach rigid formats where i represents one or more characters used to form unique labels. b b LBLL DBM [L ] - Lower triangular factor of [K ]. ll ll LEFT TICS IC Request for tic marks to be plotted on left hand edge of frame for X-Y plots. LFREQ PU Low frequency limit for modal formulation of dynamics problems (D-10 through D-12). LGPWG L Label used in conjunction with the Grid Point Weight Generator. LINE IC Number of data lines printed per page of printer output. It should be set to 50 for 11 x 17 inch paper, and to 35 for 8 1/2 x 17 inch paper. LIST IA Used to list the problem deck from UMF or copy the problem deck from UMF onto NUMF and list it. LLL DBM [L ] - Lower triangular factor of [K ]. ll ll LMODES PU Number of lowest modes for modal formulation of dynamics problems (D-10 through D-12). LMTX DBS Decomposition product of REDUCE operation. LOAD IB Static load combination definition. LOAD IC Selects static structural loading condition or heat power and/or flux. LOADC IB Defines loading conditions for static analysis using substructuring. LOAD$ M Indicates restart with change in static load set request. LOAP DBS Load set identification numbers for appended load vectors. LODS DBS Load set identification numbers. LOGARITHMIC IC Requests logarithmic scales for X-Y plots. LOGPAPER IC Requests logarithmic paper for X-Y plots. LOO DBM [L ] - Lower triangular factor of [K ]. oo oo LOOP1$ M Indicates looping problem in modified restart. (PM-4.3.7.l) LOOPBGN L Signifies the beginning of the Piecewise Linear Analysis Rigid Format DMAP Loop. (D-6). LOOPEND L Signifies the end of the Piecewise Linear Analysis Rigid Format DMAP loop. (D-6). LOOP$ M Indicates looping problem in modified restart. (PM-4.3.7.1) LOOPTOP L Top of rigid format loop. LOWER TICS IC Request for tic marks to be plotted on bottom edge of frame for X-Y plots. LSING L Used if [K ] is singular. oo LUSET P Order of USET. LUSETA P Number of degrees of freedom in the pa displacement set. LUSETD P Order of USETD. =PAGE= M P Parameter value used by MATGPR to print M-set matrices. 2 M2DD DBM [M ] - Partition of direct input mass matrix. dd 2d M2DPP DBM [M ] - Direct input mass matrix for all physical points pp from Bulk Data Deck. 2 M2PP DBM [M ] - Direct input mass matrix for all physical points. pp M2PP IC Direct input mass matrix selection. M2PP$ M Indicates restart with change in direct input mass matrices. MAA DBM [M ] - Partition of mass matrix. aa MACH PU Velocity divided by speed of sound. MASS IB Eigenvector normalization option - used on EIGR card. MAT1 IB Material definition card for isotropic material. MAT2 IB Material definition card for anisotropic material. MAT3 IB Material definition card for orthotropic material. MAT4 IB Thermal material definition card for isotropic material. MAT5 IB Thermal material definition card for anisotropic material. MATGPR FMU Utility module for printing matrices with Grid Point Identification. MATPOOL DBT Grid point oriented direct input matrix data pool, output by Input File Processor and used by functional module MTRXIN. MATPRN FMU Utility module for printing matrices. MATPRT FMU Utility module for printing matrices with geometric grid points. Matrix PH A seven word array; the first word is a GINO file number, Control and words 2 through 7 comprise a matrix trailer. Block Matrix Data PH A data block is classified as a matrix if and only if it is Block generated by one of the NASTRAN matrix packing routines, PACK or BLDPK. Matrix PH A factorization of a matrix K so that K = LU, where L is a Decomposition unit lower triangular matrix and U is an upper triangular matrix. MATS1 IB Specifies table references for stress-dependent material properties. MATT1 IB Specifies table references for temperature-dependent isotropic material properties. MATT2 IB Specifies table references for temperature-dependent anisotropic material properties. MATT3 IB Specifies table references for temperature-dependent orthotropic material properties. MATT4 IB Specifies table references for temperature-dependent isotropic, thermal material properties. MATT5 IB Specifies table references for temperature-dependent, anisotropic, thermal material properties. MAX IB Eigenvector normalization option - used on EIGR, EIGB, and EIGC cards. MAXIMUM IC Indicates scale for deformed structure plots. DEFORMATION MAXIT PU Limits maximum number of iterations in nonlinear heat transfer analysis. MAXLINES IC Maximum printer output line count - default value is 20000. MCE1 FMS Multipoint Constraint Eliminator - part 1. MCE2 FMS Multipoint Constraint Eliminator - part 2. MDD DBM [M ] - Mass matrix used in direct formulation of dynamics dd problems (D-7 through D-9). MDEMA P Parameter indicating equivalence of MDD and MAA. MDLCEAD P Used in printing rigid format error messages for modal complex eigenvalue analysis (D-10). MDLFRRD P Used in printing rigid format error messages for modal frequency response (D-11). MDLTRD P Used in printing rigid format error messages for modal transient response (D-12). MEF1 DBT Modal element forces, Sort 1 for OFP. MEF2 DBT Modal element forces, Sort 2 for OFP. MERGE FMM Matrix merge functional module. MES1 DBT Modal element stresses, Sort 1 for OFP. MES2 DBT Modal element stresses, Sort 2 for OFP. METHOD IC Selects method for real eigenvalue analysis. METHOD IS Identifies EIGR Bulk Data card. METHOD$ M Indicates restart with change in eigenvalue extraction procedures. MFF DBM [M ] - Partition of mass matrix. ff MGG DBM [M ] - Mass matrix generated by Structural Matrix gg Assembler. MHH DBM [M ] - Mass matrix used in modal formulation of dynamics hh problems (D-10 through D-12). MI DBM [m] - Modal mass matrix. MIND P Minimum diagonal term of [U ]. oo MKAERO1 IB Provides table of Mach numbers and reduced frequencies (k). MKAERO2 IB Provides list of Mach numbers (m) and reduced frequencies (k). MLL DBM [M ] - Partition of mass matrix. ll MLR DBM [M ] - Partition of mass matrix. lr MMTX DBS Mass matrix. MNN DBM [M ] - Partition of mass matrix. nn MOA DBM [M ] - Partition of mass matrix. oa MODA FMX User dummy module. MODACC FMS Mode Acceleration Output Reduction Module. MODACC PU A parameter to use the mode acceleration method. MODAL IC Requests structure plots of mode shapes. MODAL P Indicates modal as opposed to direct formulation of dynamics. MODAL IA Selects rigid format for modal complex eigenvalue analysis. COMPLEX EIGENVALUES MODAL IA Selects rigid format for modal frequency and random FREQUENCY response. RESPONSE MODAL IA Selects rigid format for modal transient response. TRANSIENT RESPONSE MODB FMX User dummy module. MODC FMX User dummy module. MODCOM NP Defines an array for module communications. MODEL IC Indicates model number of structure plotter. MODES IA Selects rigid format for normal mode analysis. MODES IC Duplicates output requests for eigenvalue problems. MODES IS Modes output request. MODES P Used in printing rigid format error messages for normal modes analysis (D-3). Modified PH Restarting (see Restart) a NASTRAN problem and redirecting Restart its solution by changing the rigid format and/or selected input data. Module PH A logical group of subroutines which performs a defined function. MOMAX IB Conical shell moment definition card. MOMENT IB Static moment load definition (vector). MOMENT1 IB Static moment load definition (magnitude and two grid points). MOMENT2 IB Static moment load definition (magnitude and four grid points). MOO DBM [M ] - Partition of mass matrix. oo MPC IB Multipoint constraint definition. MPC IC Selects set of multipoint constraints for structural displacement or heat transfer boundary temperature relationships. MPC$ M Indicates restart with change in multipoint constraints. MPCADD IB Multipoint constraint set definition. MPCAX IB Conical shell multipoint constraint definition. MPCFORCES IC Requests multipoint forces of constraint at a set of points in Rigid Formats D-1, D-2, D-3, D-14, D-15. MPCF1 P No multipoint constraints. MPCF2 P No change in multipoint constraints for loop. MPCS IB Specifies multipoint constraints for substructuring. MPHIPA1 DBT Eigenvectors, PA-set, SORT1. MPHIPA2 DBT Eigenvectors, PA-set, SORT2. MPL PH Module properties list. The MPL defines each DMAP module's name, the number of input, output, and scratch files required, and the parameter list. It is used by the preface module XGPI to generate the OSCAR. MPT DBT Material Properties Table - output by Input File Processor. MPY M Parameter constant used in executive module PARAM. MPYAD FMM Performs multiply-add matrix operation. MQP1 DBT Constraint forces, PA-set, SORT1. MQP2 DBT Constraint forces, PA-set, SORT2. MR DBM [M ] - Rigid body mass matrix. r MREDUCE IS Real modal reduction request. MRR DBM [M ] - Partition of mass matrix. rr MTRXIN FMS Selects direct input matrices for current loop in dynamics problems (D-7 through D-12). MX IC Indicates negative x-axis direction for structure plot. MXHH DBM Total modal mass matrix - h-set. MY IC Indicates negative y-axis direction for structure plot. MZ IC Indicates negative z-axis direction for structure plot. =PAGE= N M Used in parameter section of DMAP statement. Indicates that parameter may not be given an initial value with a PARAM bulk data card. N P Parameter value used by MATGPR to print N-set matrices. NAME IS Specifies Phase 1 basic substructure name or names the resulting substructure in Phase 2. NASTPLT IC Requests NASTRAN general purpose plotter. NASTRAN M Acronym for NAsa STRuctural ANalysis program. NASTRAN Data PH The composite deck consisting of the Executive Control Deck Deck, the Case Control Deck, the Substructure Control Deck, and the Bulk Data Deck. This deck, when preceded by any necessary operating system control cards, constitutes the complete card input for a NASTRAN run (PM-5). NCHECK IC Requests significant digits to indicate numerical accuracy of element stress and force computations. NDET P Power of 10 used to scale parameter DET. NE P Parameter value used by MATGPR to print out NE-set matrices. NEIGV P Number of real eigenvalues found. NEVER P Set to +1 by a DMAP PARAM statement in the Piecewise Linear Analysis Rigid Format (D-6). New Problem PH See Problem Tape. Tape NJ P Number of degrees of freedom in the j displacement set. NK P Number of degrees of freedom in the k displacement set. NLFT DBT Nonlinear function table. NLLOAD IC Requests nonlinear load output for transient problems. NLOAD PU A parameter of static loading conditions using cyclic symmetry. NMAX IS Identifies number of lowest frequency modes for retained modal coordinates. NO IA Option used on CHKPNT card, Indicates that no checkpoint is desired. NOA P Indicates no constraints applied to structural model. NOABFL P No fluid-structure interface in a hydroelastic problem. NOB2PP P No direct input damping matrix. NOBGG P No viscous damping matrix (D-7 through D-9). NOCEAD P Used to skip CEAD module when not required. NOCSTM P No Coordinate System Transformation Matrices. NOD P No output request that is limited to independent degrees of freedom. NODJE PU Positive value selects D1JE and D2JE from INPUTT2. NODLT P No Dynamic Loads Table. NOEED P No Eigenvalue Extraction Data. NOELMT P No elements are defined. NOFL P No fluid-structure interface and no fluid gravity in a hydroelastic problem. NOFRL P No Frequency Response List. NOFRY P Used by aeroelastic response for transient solution. NOGENEL P No general elements. NOGPDT P No Grid Point Definition Table. NOGPST P No grid point singularity table. NOGRAV P No gravity loads. NOGUST P No gust input. NOH L Used to skip modal output. NOH P Used to skip modal output. NOK2PP P No direct input stiffness matrices. NOK4GG P No structural damping matrix. NOKBFL P No fluid gravity or structural interface in a hydroelastic problem. NOL P No independent degrees of freedom. NOLIN1 IB Nonlinear transient dynamic load set definition card. NOLIN2 IB Nonlinear transient dynamic load set definition card. NOLIN3 IB Nonlinear transient dynamic load set definition card. NOLIN4 IB Nonlinear transient dynamic load set definition card. NOLOOP$ M Indicates restart of problem without DMAP loop. (PM- 4.3.7.l). NOM2DPP P No direct input mass matrix from Bulk Data Deck. NOM2PP P No direct input mass matrices. NOMGG P If functional module SMA2 generates a zero mass matrix, NOMGG is set to -1. Otherwise, it is set to +1. NOMOD P Mode acceleration data recovery not requested. NONCUP P Indicates diagonal MHH, BHH, and KHH allowing uncoupled solution in TRD and FRRD. NONE IC Override for output and bulk data deck echo requests. NONLIFT P No nonlinear function table. NONLINEAR IC Selects nonlinear load for transient problems. NONLINEAR IA Selects rigid format for nonlinear static analysis using STATIC HEAT heat transfer. TRANSFER ANALYSIS NONLSTR P No stress output request for nonlinear elements (D-6). NOP M Parameter constant used in executive module PARAM. NOP P No output request involving dependent degrees of freedom or stresses. NOPF L Skip load calculations in transient aeroelastic response. NOPSDL P No Power Spectral Density List. NORMAL MODES IA Selects rigid format for normal mode analysis. NORMAL MODES IA Selects rigid format for normal modes analysis using cyclic ANALYSIS WITH symmetry. CYCLIC SYMMETRY NORMAL MODES IA Selects rigid format for normal modes analysis with WITH differential stiffness effects. DIFFERENTIAL STIFFNESS NORN P No random requests. NOSET P No dependent coordinates. NOSIMP P No structural elements are defined. NOSORT2 P No request for output sorted by point number or element number. NOSR P No single-point constraints or free body supports. NOT M Parameter constant used in utility module PARAM. NOTFL P No Transfer Function List. NOTRL P No Transient Response List. NOUE P No extra points introduced for dynamic analysis. NOUE1 L No extra points. NOXYCBD P -1 indicates no XY output requests. NOXYOUT L No XY-output requests. NOXYPL P No XY-plot requests. NOXYPLTT L No XY-plot requests. NPLALIM P Set by module PLA1 as the Piecewise Linear Analysis Rigid Format DMAP loop counter. (D-6) NPTP M New Problem Tape - a reserved NASTRAN physical file which must be set up by you when used. NSEGS PU A parameter of identical segments in the structural model using cyclic symmetry. NSIL P Order of SIL table. NSIL1 P Number of grid and scalar points. NSKIP P Locate current boundary conditions in Case Control. NT PU A parameter to limit the cumulative number of iterations for the static analysis with differential stiffness loops. NUMF IA Used to add problem deck to NUMF, list it, and punch UMF card. NUMF M New User Master File - used only when operating NASTRAN as a user master file editor. (See UMFEDIT). A reserved NASTRAN physical file which must be set up by you when used. NVECTS P Number of eigenvectors found. =PAGE= O P Parameter value used by MATGPR to print O-set matrices. OBEF1 DBT Element force output table (D-5). OBES1 DBT Element stress output table (D-5). OBQG1 DBT Forces of single point constraint output table (D-5). OCEIGS DBT Complex eigenvalue summary table (D-7, D-10). OCPHIP DBT Complex eigenvector output table (D-7, D-10). OCPHIPA DBT Complex eigenvector output table, aeroelastic. OEF1 DBT Element force output table (D-1, D-2, D-4, D-5, D-6). OEF2 DBT Element force output table - SORT2 (D-9, D-12). OEFB1 DBT Element force output table (D-4). OEFC1 DBT Element force output table - complex (D-7, D-8, D-10, D- 11). OEFC2 DBT Element force output table - complex - SORT2 (D-8, D-11). OEIGS DBT Real eigenvalue summary output table (D-3, D-5). OES1 DBT Element stress output table (D-1, D-2, D-4, D-5, D-6). OES2 DBT Element stress output table - SORT2 (D-9, D-12). OESB1 DBT Element stress output table (D-4). OESC1 DBT Element stress output table - complex (D-7, D-8, D-10, D- 11). OESC2 DBT Element stress output table - complex - SORT2 (D-8, D-11). OFP FMS Output File Processor. OFREQ IC Output Frequency set. OFREQUENCY IC Selects a set of frequencies to be used for output requests in frequency response problems (default is all frequencies) or flutter velocities. OGPST DBT Grid point singularity output table. OGPWG DBT Grid point weight generator output table. OLDBOUND IS Flag to identify rerunning problem with previously defined boundary set. OLDMODES IS Flag to identify rerunning problem with previously computed modal data. Old Problem PH See Problem Tape. Tape OLOAD IC Request for output of external load vector. OLOAD IS Applied load output request. OMIT IB Omitted coordinate definition card. OMIT P Indicates no omitted coordinates. OMIT1 IB Omitted coordinate definition card. OMITAX IB Omitted coordinate definition card for conical shell problems. ONLES DBT Output table for nonlinear element stresses (D-6). Open Core PH A contiguous block of working storage defined by a labeled common block, whose length is a variable determined by the NASTRAN executive routine CORSZ. OPG1 DBT Static load output table (D-1, D-2, D-4, D-5, D-6). OPHID DBT Output table for complex eigenvectors - solution set (D-7). OPHIG DBT Eigenvector output table (D-3, D-5). OPHIH DBT Output table for complex eigenvectors - solution set (D- 10). OPNL1 DBT Output table for nonlinear loads - solution set, SORT1 (D- 9, D-12). OPNL2 DBT Output table for nonlinear loads - solution set, SORT2 (D- 9, D-12). OPP1 DBT Dynamic load output table (D-9, D-12). OPP1 DBT Aerodynamic transient load output table, sort 1. OPP2 DBT Dynamic load output table - SORT2 (D-9, D-12). OPPC1 DBT Dynamic load output table - SORT1, complex (D-8, D-11). OPPC2 DBT Dynamic load output table - SORT2, complex (D-8, D-11). OPT PU Controls the type of multipoint constraint output. OPTIONS IS Defines matrix types. OPTP M Old Problem Tape - a reserved NASTRAN physical file which must be set up by you when used. OQBG1 DBT Forces of single-point constraint output table (D-4). OQG1 DBT Single-point constraint force output table (D-1, D-2, D-4, D-5, D-6). OQP1 DBT Single-point constraint force output table SORT1 (D-9, D- 12). OQP2 DBT Single-point constraint force output table SORT2 (D-9, D- 12). OQPC1 DBT Single-point constraint force output table - complex, SORT1 (D-7, D-8, D-10, D-11). OQPC2 DBT Single-point constraint force output table - complex, SORT2 (D-7, D-8, D-10, D-11). OQPCA1 DBT Complex constraint force output table, aeroelastic. OR M Parameter constant used in executive module PARAM. ORIGIN IC Locates origin for structure plot. ORTHOGRAPHIC IC Specifies orthographic projection for structure plot. OSCAR PM Operation sequence control array. Executive table residing on the Data Pool File which contains the sequence of operations to be executed for a problem solution. The OSCAR is an expansion of a DMAP sequence, either input by you or extracted from a rigid format, in internal format. OTIME IC Selects a set of times to be used for output requests in transient analysis problems (default is all times). OUBGV1 DBT Displacement vector output table (D-4). OUDV1 DBT Displacement vector output table - solution set, SORT1 (D- 9). OUDV2 DBT Displacement vector output table - solution set, SORT2 (D- 9). OUDVC1 DBT Displacement vector output table - solution set, SORT1, complex (D-8, D-11). OUDVC2 DBT Displacement vector output table - solution set, SORT2, complex (D-8, D-11). OUGV1 DBT Displacement output table (D-1, D-2, D-4, D-5, D-6). OUHV1 DBT Displacement vector output table - solution set, SORT1 (D- 12). OUHV2 DBT Displacement vector output table - solution set, SORT2 (D- 12). OUHVC1 DBT Displacement vector output table - solution set, SORT1, complex (D-11). OUHVC2 DBT Displacement vector output table - solution set, SORT2, complex (D-11). OUPV1 DBT Displacement vector output table - SORT1 (D-9, D-12). OUPV2 DBT Displacement vector output table - SORT2 (D-9, D-12). OUPVC1 DBT Displacement vector output table - complex, SORT1 (D-8, D- 11). OUPVC2 DBT Displacement vector output table - complex, SORT2 (D-8, D- 11). OUTPUT FMX Auxiliary output file processor. OUTPUT IC Marks beginning of printer output request packet - optional. OUTPUT IS Specifies optional output results. Output Data PM A data block output from a module. May be output from one Block and only one module. Having been output, it may be used as an input data block as many times as necessary. OUTPUT1 FMU Writes data blocks on GINO-written user tapes. OUTPUT2 FMU Writes data blocks on FORTRAN-written user tapes. OUTPUT3 FMU Punches matrices on DMI cards. OUTPUT4 FMX Auxiliary output file processor. =PAGE= P P Parameter value used in MATGPR to print P-set matrices. P PH Flutter analysis method. Packed Format PH A matrix is said to be in packed format if only the nonzero elements of the matrix are written. PAERO1 IB Aerodynamic Panel Property. PAERO2 IB Properties of aerodynamic bodies. PAERO3 IB Defines Mach Box geometries. PAERO4 IB Properties of strips (strip theory). PAERO5 IB Properties of strips (piston theory). PAPER SIZE IC Selects paper size for structure plots using table plotters. PAPP DBS Appended load vectors. PARAM FMU Manipulates parameter values. PARAM IB Parameter definition card. Parameter PH A FORTRAN variable communicated to a DMAP module by the NASTRAN Executive System through blank common. A parameter's position in the DMAP calling sequence to a module corresponds to the position of the parameter in blank common at module execution time. PARAML FMU Selects parameters from a user input matrix or table. PARAMR FMU Performs specified operations on real or complex parameters. PARTN FMM Matrix partitioning functional module. PARTVEC FMX User dummy module. PASSWORD IS SOF file protection. PBAR IB Bar property definition card. PBL DBM A scalar multiple of the PL load vector. Used only in the Differential Stiffness Rigid Format (D-4). PBS DBM A scalar multiple of the PL load vector. Used only in the Differential Stiffness Rigid Format (D-4). PCDB DBT Plot control data block (table for use with structure plotter functional module PLTSET). PCONEAX IB Conical shell element property definition card. PCPHIPA DBT Complex displacement plot file. PDAMP IB Scalar damper property definition card. PDF DBM Dynamic load matrix for frequency analysis. PDT DBM Linear dynamic load matrix for transient analysis. PDUMi IB Property definition card for dummy elements 1 through 9. PELAS IB Scalar elastic property definition card. PEN IC Selects pen size for structure plots using table plotters. PENSIZE IC Selects pen size for X-Y plots using table plotters. PERSPECTIVE IC Specifies perspective projection for structure plots. PFILE P Parameter used by PLOT module. PG DBM Incremental load vector used in Piecewise Linear Analysis (D-6). PG DBM Statics load vector generated by SSG1. PG1 DBM Static load vector for Piecewise Linear Analysis (D-6). PGG DBM Appended static load vector (D-1, D-2). PGV1 DBM Matrix of successive sums of incremental load vectors used only in Piecewise Linear Analysis Rigid Format (D-6). PHASE IC Requests magnitude and phase form of complex quantities. Phase 1 PH An operation to create matrices and load vectors for substructuring analysis. Phase 2 PH An operation to combine and reduce matrices and load vectors for substructuring analysis. Phase 3 PH An operation to recover detailed data reduction for substructuring analysis. PHBDY IB Boundary element property definition card for heat transfer analysis. PHF DBM Total frequency response loads, modal. PHFI DBM Non-gust frequency response loads, modal. PHIA DBM [ ] - Real eigenvectors - solution set. a PHIAH DBM Eigenvectors, A-set. PHID DBM [ ] - Complex eigenvectors - solution set, direct a formulation. PHIDH DBM [ ] - Transformation matrix between modal and physical dh coordinates. PHIG DBM [ ] - Real eigenvectors. g PHIH DBM [ ] - Complex eigenvectors - solution set, modal h formulation. PHIHL DBM Appended complex mode shapes - h-set. PHIK DBM Eigenvectors, aerodynamic box points. PHIL DBS Left side eigenvector matrix from unsymmetric CREDUCE operation. PHIP DBM Eigenvectors, P-set. PHIPA DBM Eigenvectors, PA-set. PHIPS DBM Eigenvectors, PS-set. PHIS DBS Eigenvector matrix. Physical PH Grid points and extra scalar points introduced for dynamic Points analysis. PIECEWISE IA Selects rigid format for piecewise linear analysis. LINEAR Pivot Point PH The first word of each record of the GPCT and ECPT data blocks is called the pivot point. PJUMP P Used to skip deformed plots. PK PH Flutter analysis method. PKF DBML Forces on aerodynamic boxes, as a function of frequency. PL DBM {P } - Partition of load vector. l PLA P Used in printing rigid format error messages for Piecewise Linear Analysis (D-6). PLA1 FMS Piecewise Linear Analysis - phase 1. PLA2 FMS Piecewise Linear Analysis - phase 2. PLA3 FMS Piecewise Linear Analysis - phase 3. PLA4 FMS Piecewise Linear Analysis - phase 4. PLACOUNT P Loop counter in Piecewise Linear Analysis (D-6). PLALBL2A L Used in the Piecewise Linear Analysis Rigid Format only (D- 6). PLALBL3 L Used in the Piecewise Linear Analysis Rigid Format only (D- 6). PLALBL4 L Used in the Piecewise Linear Analysis Rigid Format only (D- 6). PLCOEFFICIENT IC Selects the coefficient set for Piecewise Linear Analysis problems. PLFACT IB Piecewise Linear Analysis factor definition card. i PLI DBM {P } - Partition of inertia relief load vector. l PLIMIT IB Property Optimization limits. PLOAD IB Pressure load definition (D-1, D-2, D-4, D-5, D-6). PLOAD2 IB Element pressure loading for two-dimensional elements (D-1, D-2, D-4, D-5, D-6). PLOT FMS Structure plot generator. PLOT IC Execution card for structure plotter. PLOT IS Phase 2 undeformed plot request. PLOT$ M Indicates restart with a structure plot request. Plot Tapes PH Magnetic tapes containing NASTRAN generated data to drive offline plotters. PLT1 is the name of the BCD plot tape and PLT2 is the name of the binary plot tape. PLOTEL IB Plot element definition card used to define convenient reference lines in structure plots. PLOTTER IC Used to select one of several available plotters for structure plotter. PLOTX1 DBT Messages from plot module concerning action taken by the structure plotter in processing undeformed structure plots. PLOTX2 DBT Messages from plot module concerning action taken by the structure plotter in processing deformed structure plots. PLOTX3 DBT Deformed plot messages for aeroelastic. PLSETNO P Set number on a PLFACT bulk data card chosen by you in your case control deck. Used only in Piecewise Linear Analysis (D-6). PLT1 M A reserved NASTRAN physical file which must be set up by you when used - see Plot Tapes. PLT2 M A reserved NASTRAN physical file which must be set up by you when used - see Plot Tapes. PLTFLG P Parameter used by PLOT module. PLTMRG FMSS Substructure plot set data merge. PLTPAR DBT Plot control table. PLTPARA DBT Plot control table PLTPAR, with aeroelastic data. PLTS DBS Plot sets and other data required for Phase 2 plotting. PLTSET FMS Plot set definition processor. PLTSETA DBT Set definitions for aerodynamic plots. PLTSETX DBT Error messages for plot sets. PLTTRAN FMS Prepares data blocks for acoustic analysis plots. PLTTRAN FMS Transforms grid point definition tables for scalar points into a format for plotting. PMASS IB Scalar mass property definition card. n PNLD DBM {P } - Nonlinear loads in direct transient problem. d n PNLH DBM {P } - Nonlinear loads in modal transient problem. h PO DBM {P } - Partition of load vector. o POAP DBS Appended load vectors on omitted points. i POI DBM {P } - Partition of inertia relief load vector. o POINT IB Eigenvalue analysis normalization option for eigenvectors - see EIGR, EIGC, EIGB cards. POINTAX IB Axisymmetric Point. POOL M Pool file used by file allocator. POSITION IS Specifies initial position of input file. POUT$ M Indicates restart with a printer output request. POVE DBS Load vectors on points omitted during matrix reduction. PPF DBM Dynamic loads for frequency response. PPHIG DBM Eigenvector components used to plot deformed shape. (D-3, D-5). PPT DBM Linear dynamic loads for transient analysis. PQDMEM IB Quadrilateral membrane element property definition card. PQDMEM1 IB Isoparametric quadrilateral membrane element property definition card. PQDMEM2 IB Quadrilateral membrane element property definition card. PQDPLT IB Quadrilateral bending element property definition card. PQUAD1 IB General quadrilateral element property definition card. PQUAD2 IB Homogeneous quadrilateral element property definition card. PREC P Precision of computer. CDC = 1; DEC VAX = 2; IBM = 2; UNIVAC = 2. PRECHK EM Predefined automated checkpoint. Preface PH Executive routines which are executed prior to the execution of the first module in a DMAP sequence. The Preface consists of the executive routines necessary to generate initial NASTRAN operational data and tables. The primary Preface routines are GNFIAT, XCSA, IFP1, XSORT, IFP, IFP3, and XGPI. PREFIX IS Prefix to rename equivalenced lower level substructures. PRESAX IB Defines static pressure loading for the conical shell element. PRESPT IB Defines a point in a hydroelastic model for output purposes. PRESSURE IC Request for output of pressure and displacement vector or eigenvector for a hydroelastic problem. PRINT IA Used to list all problem decks from UMF and Summary Table of Contents. PRINT IS Stores modal or solution data and prints data requested. PRINT PU Controls printing of flutter summary. Problem Tape PH A magnetic tape containing data necessary for NASTRAN problem restarts. A tape being generated is designated as the New Problem Tape (NPTP) and its content is largely controlled by the DMAP instruction CHKPNT. This same tape when used as input to a subsequent NASTRAN restart is designated as the Old Problem Tape (OPTP). PROD IB Rod property definition card. PROJECTION IC Separation of observer and projection plane for structure PLANE plots. SEPARATION PRTMSG FMS Message generator. PRTPARM FMU Prints DMAP diagnostic messages and parameter values. PS DBM {P } - Partition of static load vector. s PSDF DBM Power Spectral Density Function table. PSDF IC Request for output of Power Spectral Density Function in Random Analysis (D-9, D-11). PSDL DBT Power Spectral Density List. Pseudo PH Restarting (see Restart) a NASTRAN problem and redirecting Modified its solution but only affecting output data. Restart PSF DBM Partition of load vector for transient analysis. PSHEAR IB Shear panel property definition card. PST DBM Partition of linear load vector for transient analysis. PTITLE IC Structure plot frame title. PTORDRG IB Toroidal ring property definition card. PRTBSC IB Basic bending triangular element property definition card. PTRIA1 IB General triangular element property definition card. PTRIA2 IB Homogeneous triangular element property definition card. PTRIM6 IB Linear strain triangular membrane property. PTRMEM IB Triangular membrane element property definition card. PTRPLT IB Triangular bending element property definition card. PTRPLT1 IB Triangular plate property. PTRSHL IB Higher order triangular shell element property. PTUBE IB Tube property definition card. PTWIST IB Twist panel property definition card. PUBGV1 DBT Displacement vector components used to plot deformed shape (D-4, D-5). PUGV DBT Displacement vector components used to plot deformed shape (D-1, D-2). PUGV1 DBT Displacement components used to plot deformed shape (D-6). PUNCH IA Used to punch the problem deck from UMF or copy the problem deck from UMF onto NUMF and punch it. PUNCH IC Output medium request (PRINT or PUNCH). PUNPRT IA Used to punch and print the problem deck from UMF or copy the problem deck from UMF onto NUMF and punch and print it. PURGE EM DMAP statement which causes conditional purging of data blocks. Purge PH A data block is said to be purged when it is flagged in the FIAT so that it will not be allocated to a physical file and so that modules attempting to access it will be signaled. PUVPAT DBT Displacement vector used for plots, PA-set for aeroelastic. PVEC DBS Load vectors. PVISC IB Viscous element property definition card. PVT PH Parameter value table. The PVT contains BCD names and values of all parameters input by means of PARAM bulk data cards. It is generated by the preface module IFP and is written on the Problem Tape. P1 PU INPUTT2 rewind option. P2 PU INPUTT2 unit number. P3 PU INPUTT2 tape id. =PAGE= Q PU Parameter which defines the dynamic pressure. QBDY1 IB Defines uniform heat flux into HBDY elements. QBDY2 IB Defines grid point heat flux into HBDY elements. QBG DBM Single point forces of constraint in the Differential Stiffness Rigid Format (D-4). QDMEM IC Requests structure plot for all QDMEM elements. QDMEM1 IC Requests structure plot for all QDMEM1 elements. QDMEM2 IC Requests structure plot for all QDMEM2 elements. QDPLT IC Requests structure plot for.all QDPLT elements. QG DBM Constraint forces for all grid points. QHBDY IB Defines thermal load for steady-state heat conduction. QHHL DBML Aerodynamic matrix list - h-set. QHJL DBML Aerodynamic matrix for gust calculations. QJHL DBML Aerodynamic transformation matrix between h and j sets. QKHL DBML Aerodynamic matrix for aerodynamic force data recovery. QP DBM Constraint forces for all physical points. QPA DBM Constraint forces, PA-set. QPAC DBM Constraint forces, complex, PA-set. QPC DBM Complex single point forces of constraint for all physical points. QPP2 DBT Aerodynamic transient load output, sort 2. QR DBM {q } - Determinant support forces. r QS DBM {q } - Single-point constraint forces. s QUAD1 IC Requests structure plot for all QUAD1 elements. QUAD2 IC Requests structure plot for all QUAD2 elements. QVEC DBS Reaction force vectors. QVECT IB Defines thermal vector flux from distant source. QVOL IB Defines volume heat generation. =PAGE= R P Parameter value used by MATGPR to print R-set matrices. R1 IC Request for X-Y plot of the first rotational component (UM-4.3). R1IP IC Request for X-Y plot of the first rotational component - imaginary and phase angle (UM-4.3). R1RM IC Request for X-Y plot of the first rotational component - real and magnitude (UM-4.3). R2 IC Request for X-Y plot of the second rotational component (UM-4.3). R2IP IC Request for X-Y plot of the second rotational component - imaginary and phase angle (UM-4.3). R2RM IC Request for X-Y plot of the second rotational component - real and magnitude (UM-4.3). R3 IC Request for X-Y plot of the third rotational component (UM-4.3). R3IP IC Request for X-Y plot of the third rotational component - imaginary and phase angle (UM-4.3). R3RM IC Request for X-Y plot of the third rotational component - real and magnitude (UM-4.3). RADLIN P Controls linearization of radiation effects in transient heat transfer analysis. RADLST IB List of radiation areas. RADMTX IB Radiation exchange coefficients. RANDOM IC Selects the RANDPS and RANDT cards to be used in random analysis. RANDOM EMS Random response solution generator. RANDPS IB Power spectral density specification. RANDT1 IB Autocorrelation function time lag. RANDT2 IB Autocorrelation function time lag. RANGE IS Identifies frequency range for real or complex retained modal coordinates. RBMG1 FMS Rigid body matrix generator - part 1. RBMG2 FMS Rigid body matrix generator - part 2. RBMG3 FMS Rigid body matrix generator - part 3. RBMG4 FMS Rigid body matrix generator - part 4. RCOVR FMSS Recover Phase 2 substructure results. RCOVR3 FMSS Recover substructure results for Phase 3. REACT P Flag for rigid body mode calculations. READ FMS Real Eigenvalue Analysis - Displacement. REAL IC Requests real and imaginary form of complex quantities. REAL IA Selects rigid format for normal mode analysis. EIGENVALUES RECOVER IS Phase 2 solution data recovery or Phase 1, 2 modal reduction request. REDUCE FMSS Reduction of substructure degrees of freedom. REDUCE IS Phase 2 reduction to retained degrees of freedom request. REEL IA Term appearing on the checkpoint dictionary cards indicating the physical reel on which a data block appears. Reentry Point PH The point in the DMAP sequence at which a problem terminated and hence the point at which it can be restarted (see Restart). REGION IC Specifies portion of frame to be used for structure plot. REIG P Parameter used in SDR2 to indicate Normal Mode Analysis (D- 3). RELES IB Specifies grid point degrees of freedom to be disconnected - overrides CONCT and automatic connectivities using substructuring. REMOVE IA Used to copy problem decks from UMF onto NUMF up to pid and skip over problem pid. REPCASE IC Allows another output request for the previous subcase (D- 1, D-2). REPEAT P Controls looping in Static Analysis (D-1, D-2). REPEATD P Controls looping in Static Analysis with Differential Stiffness (D-4). REPEATE P Controls looping in Complex Eigenvalue Analysis (D-7, D- 10). REPEATF P Controls looping in frequency Response Analysis (D-8, D- 11). REPEATT P Controls looping in Transient Response Analysis (D-9, D- 12). REPT EM DMAP statement to conditionally repeat a loop. RESPONSE IC Request for X-Y plot of any response outputs from transient or frequency response analysis (D-8, D-9, D-11, D-12). RESTART IA First control card of checkpoint dictionary. Contains identification of checkpoint tape. Restart PH Initiating a NASTRAN problem solution at a place other than its logical beginning by utilizing an Old Problem Tape created during a previous run. RESTORE IB Reloads the SOF from an external file. RFORCE IB Rotational force definition card. RFORCE$ M Indicates restart with change in rotational force. RD DBM Multipoint constraint equations. RGRID IB Specifies grid point in the basic substructure to define reference point for inertia relief shapes. Defaults to origin of basic substructure coordinate system. RIGHT TICS IC Request for tic marks to be plotted on right hand edge of frame for X-Y plots. Rigid Format PH A fixed prestored DMAP sequence and its associated restart tables which perform a specific problem solution. Rigid Format PH A type of restart (see Restart) in which the problem is Switch changed from one Rigid Format to another. RINGAX IB Conical shell ring definition card. RINGFL IB Hydroelastic axisymmetric point definition card. RLOAD1 IB Frequency response load set definition. RLOAD2 IB Frequency response load set definition. RMG FMH Radiation matrix generator - generates [R ]. gg RNAME IS Specifies basic substructure to define reference point for inertia. ROD IC Requests structure plot for all ROD elements. RP DBM Partitioning vector set D to A and E. RSAVE IS Save REDUCE decomposition product, or indicates the decomposition product of the interior point stiffness. RUBLV DBM Residual vector - Differential Stiffness Rigid Format (D- 4). RULV DBM Residual vector for independent degrees of freedom. RUN IS Specifies run options. RUOV DBM Residual vector for omitted degrees of freedom. RXY IC Requests vector sum of X and Y deformation components for structure plot. RXYZ IC Requests vector sum of X, Y, and Z deformation components for structure plot. RXZ IC Requests vector sum of X and Z deformation components for structure plot. RYX IC Requests vector sum of Y and Z deformation components for structure plot. =PAGE= S P Parameter value used by MATGPR to print S-set matrices. SACCE IC Abbreviated form of SACCELERATION. SACCELERATION IC Output request for solution set acceleration vector. (UM- 2.3, 4.3) SAVE EM DMAP statement which causes current value of parameter to be saved. SAVE IS Stores modal or solution data on SOF. SAVE M Save data block for possible looping in DMAP sequence (see FILE). SAVEPLOT IB Requests plot data be saved in Phase 1. SC IC Selects SC 4020 plotter. SCALAR FMU Convert matrix element to parameter. Scalar Point PH A point which is defined on an SPOINT, CELAS1, CELAS2, CELAS3, CELAS4, CMASS1, CMASS2, CMASS3, CMASS4, CDAMP1, CDAMP2, CDAMP3, or CDAMP4 bulk data card. A scalar point has no geometrical coordinates and defines only one degree of freedom of the model. SCALE IC Selects scale for structure plot. SCE1 FMS Single-point Constraint Eliminator. SDAMP IC Modal structural damping table selection. SDAMP4 M Indicates restart with change in modal damping. SDAMPING IC Selects table which defines damping as a function of frequency in modal formulation problems. SDISP IC Abbreviated form of SDISPLACEMENT. SDISPLACEMENT IC Output request for solution set displacement vector. (UM-2.3, 4.3) SDR1 FMS Stress Data Recovery - part 1. SDR2 FMS Stress Data Recovery - part 2. SDR3 FMS Stress Data Recovery - part 3. SDRHT FMS Heat flux data recovery. SEARCH IS Limits search for automatic connects. SECTAX IB Defines conical shell sector for data recovery. SEEMAT FMU Prints pictorial representation of matrix showing location of nonzero elements. SEM1 M The NASTRAN Preface. SEQEP IB Extra point resequencing. SEQGP IB Grid or scalar point resequencing. SET IC Definition of a set of elements, grid and/or scalar and/or extra points, frequencies, or times to be used in selecting output. SET1 IB Defines a set of structural grid points by a list. SET2 IB Defines a set of structural grid points by aerodynamic macro elements. SETVAL FMU Parameter value initiator. SGEN FMSS Substructure table generator. SHEAR IC Requests structure plot for all shear panel elements. SIGMA PU Defines Stefan-Boltzmann constant in heat transfer analysis. SIL DBT Scalar Index List for all grid points and extra scalar points introduced for dynamic analysis. SILGA DBT Scalar Index List - Aerodynamic boxes only. SINCON PU Controls the automatic stiffness matrix singularity removal. SINE IC Conical shell request for sine set boundary conditions. SING P -1 if [K ] is singular. oo SINGLE P No single-point constraints. SKIP BETWEEN IC Request to insert blank frames on SC 4020 plotter for X-Y FRAMES plots. SKJ DBM Integration matrix. SKPMGG P Parameter used in statics to control execution of functional module SMA2. SKPPLT L Used to skip plot. SLBDY IB Defines list of points on interface between axisymmetric fluid and radial slots. SLOAD IB Scalar point load definition. SLT DBT Static Loads Table. SMA1 FMS Structural Matrix Assembler - phase 1 - generates stiffness 4 matrix [K ] and structural damping matrix [K ]. gg gg SMA2 FMS Structural Matrix Assembler - phase 2 - generates mass matrix [M ] and viscous damping matrix [B ]. gg gg SMA3 FMS Structural Matrix Assembler - phase 3 - add general element contributions to the stiffness matrix [K ]. gg SMP1 FMS Structural Matrix Partitioner - part 1. SMP2 FMS Structural Matrix Partitioner - part 2. SMPYAD FMM Performs multiply-add matrix operation for up to five multiplications and one addition. SOF IB Assigns physical files for storage of the SOF. SOFI FMSS SOF into GINO matrix copier. SOFIN IS Copies substructure items from an external file to the SOF. SOFO FMSS SOF out from GINO matrix copier. SOFOUT IS Copies substructure items from the SOF to an external file. SOFPRINT IS Prints selected contents of the SOF. SOFUT FMSS SOF utility module. SOL IA Specifies which rigid format solution is to be used when APP is DISPLACEMENT. SOLN DBS Load factor data or eigenvalues used in a solution. Solution PH Points used in the formulation of the general K system. Points SOLVE FMM Solves a set of linear algebraic equations. SOLVE IB Requests substructure solution. SORT IS Output sort order. SORT1 IC Output is sorted by frequency or time and then by external ID. SORT2 IC Output is sorted by external ID and then by frequency or time. SORT3 M Output is sorted by individual item or component and then by frequency or time. SPC IB Single-point constraint and enforced deformation definition. SPC IC Selects set of single-point constraints for structural displacements or heat transfer boundary temperatures. SPC$ M Indicates restart with change in single-point constraint set selection. SPC1 IB Single-point constraint definition. SPCADD IB Single-point constraint set combination definition. SPCAX IB Conical shell single-point constraint definition. SPCF IC Abbreviated form of SPCFORCE. SPCF IS Reaction force output request. SPCFORCE IC Requests the single-point forces of constraint at a set of points or the thermal power transmitted to a selected set of points in heat transfer. SPCS IB Specifies single point constraints for substructuring. SPCS1 IB Alternate specification of single point constraints for substructuring. SPCSD IB Specifies enforced displacements for single point constraints for substructuring. Spill PH Secondary storage devices are used because there is insufficient main storage to perform a matrix calculation or a data processing operation. SPLINE DBT Splining Data Table. SPLINE1 IB Defines surface spline. SPLINE2 IB Defines beam spline. SPLINE3 IB User data to interpolate deflections at aerodynamic degrees of freedom. SPOINT IB Scalar point definition card. SSG1 FMS Static Solution Generator - part 1. SSG2 FMS Static Solution Generator - part 2. SSG3 FMS Static Solution Generator - part 3. SSG4 FMS Static Solution Generator - part 4. SSGHT FMH Solution generator for nonlinear heat transfer analysis. STATIC IC Requests deformed structure plot for problem in Static Analysis. STATIC IA Selects rigid format for static analysis using cyclic ANALYSIS WITH symmetry. CYCLIC SYMMETRY STATIC HEAT IA Selects rigid format for linear static analysis using heat TRANSFER transfer. ANALYSIS STATICS IA Selects statics rigid format for heat transfer or structural analysis. STATICS P Parameter used in SDR2 to indicate Static Analysis. STEADY STATE IA Selects rigid format for nonlinear static heat transfer analysis. STEPS IB Frequency or time step output request for substructuring. STEREOSCOPIC IC Requests stereoscopic projections for structure plot. STRESS IC Requests the stresses in a set of structural elements or the velocity components in a fluid element in acoustic cavity analysis. Structural PM One of the finite elements used to represent a part of a Element structure. STST NP Defines the singularity tolerance in EMG. SUBCASE IC Subcase definition. SUBCASES IB Subcase output request. SUBCOM IC This subcase is a linear combination of previous subcases. SUBPH1 FMSS Substructure, Phase 1. SUBSEQ IC Specifies coefficients for SUBCOM subcases. SUBSTRUCTURE IB Initiates the substructure control deck. Substructure PH One of the data decks required to run automated multi-stage Control Deck substructuring. The deck begins with the SUBSTRUCTURE card and terminates with the ENDSUBS card. Cards in this deck cause the necessary alters to the Rigid Format DMAP. SUBTITLE IC Output labeling data for printer output. SUPAX IB Fictitious support for conical shell problem. SUPORT IB Fictitious support definition card. SVECTOR IC Request for output of eigenvectors in the solution set (D- 7, D-10) (UM-2.3, 4.3). SVELO IC Abbreviated form of SVELOCITY. SVELOCITY IC Requests velocity output for solution set. (UM-2.3, 4.3) SWITCH FMU Interchange two data block names. SYM IC Symmetry subcase delimiter card. SYMBOLS IC Requests symbols at grid points on structure plot. SYMCOM IC Assembly of symmetry subcase delimiter card. SYMSEQ IC Assembly value of symmetry combination card. SYMTRANSFORM IB Specifies symmetry transformation. =PAGE= T1 IC Request for X-Y plot of the first translational component (UM-4.3). T1IP IC Request for X-Y plot of the first translational component - imaginary and phase angle (UM-4.3). T1RM IC Request for X-Y plot of the first translational component - real and magnitude (UM-4.3). T2 IC Request for X-Y plot of the second translational component (UM-4.3). T2IP IC Request for X-Y plot of the second translational component - imaginary and phase angle (UM-4.3). T2RM IC Request for X-Y plot of the second translational component - real and magnitude (UM-4.3). T3 IC Request for X-Y plot of the third translational component (UM-4.3). T3IP IC Request for X-Y plot of the third translational component - imaginary and phase angle (UM-4.3). T3RM IC Request for X-Y plot of the third translational component - real and magnitude (UM-4.3). TA1 FMS Table Assembler. TABDMP1 IB Tabular structural damping function for modal formulation (D-10, D-11, D-12). Table Data PH A data block which is in tabular form rather than matrix Block form. TABLED1 IB Dynamic load tabular function (D-8, D-9, D-11, D-12). TABLED2 IB Dynamic load tabular function (D-8, D-9, D-11, D-12). TABLED3 IB Dynamic load tabular function (D-8, D-9, D-11, D-12). TABLED4 IB Dynamic load tabular function (D-8, D-9, D-11, D-12). TABLEM1 IB Material property tabular function. TABLEM2 IB Material property tabular function. TABLEM3 IB Material property tabular function. TABLEM4 IB Material property tabular function. TABLES1 IB Stress-dependent material tabular function for use in Piecewise Linear Analysis (D-6). TABPCH FMU Punches selected tables on DTI bulk data cards. TABPRT FMU Formats selected table data blocks for printing. TABPT FMU Table printer. TABRNDG IB Table of Power Spectral Density for certain gusts. TABRND1 IB Tabular function for use in Random Analysis (D-8, D-11). TABRND2 IB Tabular function for use in Random Analysis (D-8, D-11). TABRND3 IB Tabular function for use in Random Analysis (D-8, D-11). TABRND4 IB Tabular function for use in Random Analysis (D-8, D-11). TABS P Defines absolute reference temperature in heat transfer analysis. TALL EDGE IC Request for plotting all edge tic marks on upper half frame TICS for X-Y plots. TAPE M Write data block on physical tape (see FILE). TCURVE IC Curve title for X-Y plot. TEMP IB Grid temperature definition card. TEMPAX IB Temperature definition for conical shell problem. TEMPD IB Grid default temperature definition card. TEMPERATURE IC Selects thermal field for determining both equivalent static loads and material properties. TEMPLD$ M Indicates restart with change in thermal set for static loading. TEMPMT$ M Indicates restart with change in thermal set for material properties. TEMPMX$ M Indicates restart with change in thermal field with thermally dependent material properties. TEMP(LOAD) IC Selects thermal field to be used for determining equivalent static loads. TEMP(MAT) IC Selects thermal field to be used for determining structural material properties or an estimate of the temperature distribution for heat transfer iterations. TEMPP1 IB Plate element temperature definition card. TEMPP2 IB Plate element temperature definition card. TEMPP3 IB Plate element temperature definition card. TEMPRB IB One-dimensional element temperature definition. TF IB Dynamic transfer function definition. TF$ M Indicates restart with change in transfer function set selection. TFL IC Transfer function set selection. TFPOOL DBT Transfer function pool. THERMAL IC Request for output of temperature vector in thermal analysis (UM-2.3). THROUGH IC Forms strings of values within set declarations. TIC IB Transient Initial Condition set definition card. TIME IA User time estimate for problem. This card is required in Executive Control Deck. Integer time value is in minutes. TIMETEST FMU Provides NASTRAN system timing data. TITLE IC Output labeling data for printer output. TLEFT TICS IC Request for tic marks to be plotted on left hand edge of top half frame for X-Y plot. TLOAD1 IB Transient load set definition card. TLOAD2 IB Transient load set definition card. TOC IA Used to list all problem decks (Summary Table of Contents) by UMF number from UMF. TOL DBT Time output list. TOL1 DBT Reduced time output list, uses OTIME. TOLERANCE IS Limits distance between automatically connected grids. TRACKS NP Defines the format for the number of tracks required for plot data. Trailer PH A six word control block associated with a data block. TRANRESP P Parameter used in SDR2 to indicate Transient Response Analysis (D-9, D-12). TRANS IB Specifies coordinate systems for substructure and grid point transformation. TRANSFORM IS Defines transformations for named component substructures. TRANSIENT IA Selects rigid format for transient heat transfer analysis. TRANSIENT IA Selects rigid format for linear transient analysis using HEAT TRANSFER heat transfer. ANALYSIS TRBSC IC Requests structure plot for all basic bending triangle elements. TRD FMS Transient Response - Displacement. TRHT FMH Integrates dynamic equation for heat transfer analysis. TRIA1 IC Requests structure plot for all TRIA1 elements. TRIA2 IC Requests structure plot for all TRIA2 elements. TRIGHT TICS IC Request for tic marks to be plotted on right hand edge of top half frame for X-Y plots. TRL DBT Transient Response List. TRLG FMH Generates dynamic heat flux loads. TRMEM IC Requests structure plot for all triangular membrane elements. TRNSP FMM Transpose functional module. TRPLT IC Request structure plot for all TRPLT elements. TSTART P CPU time at start of flutter loop. TSTEP IB Transient time steps for integration and output. TSTEP IC Transient time step set selection. TSTEP$ M Indicates restart with change in transient time step set selection. TUBE IC Requests structure plot for all TUBE elements. TWIST IC Requests structure plot for all TWIST elements. TYPE IC Indicates paper type for structure plots. =PAGE= UBGV DBM Displacement vector for all grid points (D-4). b b UBLL DBM [U ] - Upper triangular factor of [K ]. ll ll UBLV DBM Displacement solution vector (D-4). UBOOV DBM Scalar multiple of UOOV in Differential Stiffness Rigid Format (D-4). UDET IB Selects unsymmetric decomposition option for determinant method of real eigenvalue analysis. UDVIT DBM Displacement, velocity, and acceleration solution vectors in a transient analysis problem - SORT1 (D-9). UDV2T DBM Displacement, velocity, and acceleration solution vectors in a transient analysis problem - SORT2 (D-9). UDVF DBM Displacement solution vector in a frequency response problem (D-8). UDVT DBM Displacement, velocity, and acceleration solution vectors in a transient analysis problem (D-9). UEVF DBM Displacement vector for extra points in a frequency response problem (D-11). UEVT DBM Displacement vector for extra points in a transient response problem (D-12). UGV DBM Displacement vector for all grid points (D-1, D-2, D-4, D- 5). UGV1 DBM Successive sums of incremental displacement vectors. Piecewise Linear Analysis Rigid Format only (D-6). UHVF DBM Modal frequency response solution vectors (D-11). UHVT DBM Modal transient response solution vectors (D-12). UHVT1 DBM Modal amplitudes for aeroelastic transient. UIMPROVE IS Improved displacement request. UINV IB Selects unsymmetric decomposition option for inverse power method of eigenvalue analysis. ULL DBM [U ] - Upper triangular factor of [K ]. ll ll ULV DBM Displacement solution vector in static analyses (D-1, D-2, D-4, D-5). UMERGE FMM Functional module to merge column matrices based on U-set. UMF IA Used to copy UMF problem deck onto NUMF, list it and punch UMF card. UMF M User Master File, a reserved NASTRAN physical file which must be set up by you when used. UMFEDIT IA Requests User Master File operational mode of NASTRAN. Unmodified PN Restarting (see Restart) a problem without changing any Restart data, other than output requests, of the previous run. Unpool PH Remove data block from Pool Tape and place on a file for use by a functional module. UNSORT IC Requests unsorted echo of Bu1k Data Deck (ECHO=UNSORT). UOO DBM [U ] - Upper triangular factor of [K ]. oo oo UOOV DBM Partition of displacement solution vector. UPARTN FMM Functional module to partition matrices based on U-set. UPPER TICS IC Request for tic marks to be plotted on upper edge of frame for X-Y plot. UPRT DBS Partitioning vector used in matrix reduction. UPV DBM Transient solution sectors for all physical points. UPVC DBM Frequency response solution vectors for all physical points. USERMODES IS Flag to indicate modal data have been input on bulk data. USET DBT Displacement set definitions. (PM-1.7.3). USETA DBT Displacement set definitions table - Aerodynamics. USETD DBT Displacement set definitions including extra scalar points. UVEC DBS Displacement vectors or eigenvectors. UVT1 DBM Displacements for aeroelastic transient. =PAGE= V DBM Partitioning vector for set F to O and A. V M Used in parameter section of DMAP statement. Indicates that parameter is variable and may be changed by module. If changed value is to be used in subsequent DMAP instruction, it must be saved (see SAVE). VANTAGE POINT IC Location of observer for structure plot. VDR FMS Vector Data Recovery. VDR L Used to skip to VDR module in flutter analysis. VEC FMU Creates partitioning vector based on USET. VECTOR IC Request for output of eigenvectors from real or complex eigenvalue analysis (D-3, D-5, D-7, D-10). VECTOR IC Requests displacements for a selected set of physical points. VELO IC Abbreviated form of VELOCITY. VELO IS Velocity output request. VELOCITY IC Output request statement for velocity vector. (UM-2.3, 4.2). VFS DBM Partitioning vector for heat transfer analysis. VIEW IC Rotation of object for structure plot. VISC IC Request structure plot for all viscous damper element. VPS M See XVPS. VREF PU Velocity division factor. W3 PU Pivotal frequency for uniform structure damping in the direct formulation of transient response problems (D-9). W4 PU Pivotal frequency for element structural damping in the direct formulation of transient response problems (D-9). WTMASS PU Weight to mass conversion factor used in SMA2 and GPWG. Default value is 1.0. =PAGE= X IC Requests X vector for deformed structure plot. XAXIS IC Request for drawing of X-axis for X-Y plot. XBAXIS IC Request for drawing of X-axis on bottom half frame for X-Y plot. XBGRID LINES IC Request for drawing grid lines for X-axis on bottom half frame for X-Y plot. XCSA EM Executive Control Section Analysis. The preface module which processes the Executive Control Deck and prepares the control file on the New Problem Tape. XDIVISIONS IC Request for division marking on X-axis. XDMAP EM Controls the DMAP compiler options. XGPI EM Executive General Problem Initialization. The preface module whose principal function is to generate the OSCAR. If the problem is a restart, XGPI initializes data blocks and named common blocks for proper restart. XGRID LINES IC Request for grid lines to be drawn on X-axis for X-Y plots. XINTERCEPT IC Specifies intercept of Y-axis on X-axis. XLOG IC Request for logarithmic scales in X-direction. XMAX IC Do not plot points whose X value lies above this value. XMIN IC Do not plot points whose X value lies below this value. XPAPER IC Specifies length of paper in X-direction for table plotter. XQHHL P Appended QHHL data parameter. XSFA EM Executive Segment File Allocator - the administrative manager of data blocks for NASTRAN. XSORT EM Executive sort routine - the preface module which reads and sorts the Bulk Data Deck and writes the sorted Bulk Data Deck on the New Problem Tape. XTAXIS IC Request for drawing of X-axis on top half frame. XTGRID LINES IC Request for drawing of grid lines on top half frame. XTITLE IC X-axis title for X-Y plots. XVALUE PRINT IC Request to suppress labeling tic marks over the specified SKIP interval. XVPS M Variable Parameter Set Table. Executive table needed for restart. (PM-2.4) XY IC Requests X and Y vectors for deformed structure plot. XYCDB DBT SORT3 output requests (XYPLOTTER, XYPRINTER, Random Request). XYOUT IC Request to generate X-Y plots. XYOUT$ M Indicates restart with an X-Y plot request. XYPEAK IC Request to print the maximum and minimum values of the specified response. XYPLTCE DBT XY plot input data block, complex flutter. XYPLOT FMS X-Y plot generator. XYPLOT IC Request to generate X-Y plots. XYPLTF DBT XYPLOT input data block. (D-8, D-11) XYPLTFA DBT XYPLOT input data block. (D-8, D-11] XYPLTR DBT XYPLOT input data block. (D-8, D-11] XYPLTT DBT XYPLOT input data block. (D-9, D-12] XYPLTTA DBT XYPLOT input data block. (D-9, D-12) XYPRINT IC Request to tabulate XY pairs on the printer. XYPRNPLT FMX Dummy output module. XYPTTA DBT XY plot input data block, aeroresponse. XYPUNCH IC Request to punch XY pairs. XYTRAN FMS XY output translator. XYZ IC Requests X, Y, and Z vectors for deformed structure plot. XZ IC Requests X and Z vectors for deformed structure plot. =PAGE= Y IC Requests Y vector for deformed structure plot. Y M Used in parameter section of DMAP statement. Indicates that parameter may be given an initial value with a PARAM bulk data card. YAXIS IC Request for drawing of Y-axis. YBDIVISIONS IC Request for division marking on Y-axis of lower half frame. YBGRID LINES IC Request for grid lines to be drawn on Y-axis of lower half frame. YBINTERCEPT IC Specifies intercept of X-axis on Y-axis on lower half frame. YBLOG IC Request for logarithmic scales in Y-direction on lower half frame. YBMAX IC Do not plot points whose Y value lies above this value for lower half frame. YBMIN IC Do not plot points whose Y value lies below this value for lower half frame. YBS DBM Scalar multiple of YS matrix. Used in Differential Stiffness Rigid Format only. (D-4). YBTITLE IC Y-axis title on lower half frame. YBVALUE PRINT IC Request to suppress labeling tic marks over the specified SKIP interval. YDIVISIONS IC Request for division marking on Y-axis. YES IA Option used on CHKPNT card, indicates that checkpoint is desired. YGRID LINES IC Request for grid lines to be drawn on Y-axis. YINTERCEPT IC Specifies intercept of X-axis on Y-axis. YLOG IC Request for logarithmic scales in Y-direction. YMAX IC Do not plot points whose Y value lies above this value. YMIN IC Do not plot points whose Y value lies below this value. YPAPER IC Specifies length of paper in Y-direction for table plotter. YS DBM {Y } - Constrained displacement vector. s YTDIVISIONS IC Request for division marking on Y-axis for upper half frame. YTGRID LINES IC Request for grid lines to be drawn on Y-axis for upper half frame. YTINTERCEPT IC Specifies intercept of X-axis on Y-axis for upper half frame. YTITLE IC Y-axis title. YTLOG IC Request for logarithmic scales in Y-direction for upper half frame. YTMAX IC Do not plot points whose Y value lies above this value for upper half frame. YTMIN IC Do not plot points whose Y value lies below this value for upper half frame. YTITLE IC Y-axis title for upper half frame. YTVALUE PRINT IC Request to suppress labeling tic marks over the specified SKIP interval for upper half frame. YVALUE PRINT IC Request to suppress labeling tic marks over the specified SKIP interval. YZ IC Requests Y and Z vectors for deformed structure plot. ================================================ FILE: um/DMAP.TXT ================================================ =PAGE= 5.1 INTRODUCTION In addition to using the rigid formats provided automatically by NASTRAN, you may wish to execute a series of modules in a different manner than provided by a rigid format. Or he may wish to perform a series of matrix operations which are not contained in any existing rigid format. If the modifications to an existing rigid format are minor, the ALTER feature described in Section 2 may be employed. Otherwise, a user-written Direct Matrix Abstraction Program (DMAP) should be used. DMAP is the user-oriented language used by NASTRAN to solve problems. A rigid format is basically a collection of statements in this language. DMAP, like English or FORTRAN, has many grammatical rules which must be followed to be interpretable by the NASTRAN DMAP compiler. Section 5.2 provides you with the rules of DMAP, which will allow him to understand the rigid format DMAP sequences, write ALTER packages, and construct his own DMAP sequences using the many modules contained in the NASTRAN DMAP repertoire. Section 5.3 is an index of matrix, utility, user, and executive modules which are contained in Sections 5.4 through 5.7 respectively. Sections 5.4 through 5.7 describe individually the many nonstructurally oriented modules contained in the NASTRAN library. Section 5.8 provides several examples of DMAP usage. User-written modules must conform to the rules and usage conventions described herein. Section 5.8 illustrates the use of DMAP operations in both the standard method (as rigid formats are written) and in the improved method. Section 5.9 describes the automatic ALTERs to a rigid format which result from each of the automated multi-stage substructuring commands invoked by you. Section 5.10 contains descriptions and uses of functional modules which are of general utility to you but have not been permanently incorporated into the rigid formats. =PAGE= 5.2 DMAP RULES Grammatically, DMAP instructions consist of two types: Executive Operation Instructions and Functional Module Instructions. Grammatical rules for these two types of instructions will be discussed separately in following sections. Functional modules are arbitrarily classified as structural modules, matrix operation modules, utility modules, or user-generated modules. The DMAP sequence itself consists of a series of DMAP instructions or statements, the first of which is BEGIN or XDMAP and the last of which is END. The remaining statements consist of Executive Operation instructions and Functional Module calls. 5.2.1 DMAP Rules for Functional Module Instructions The primary characteristic of the Functional Module DMAP instruction is its prescribed format. The general form of the Functional Module DMAP statement is: MOD I1,I2,...,Im/01,02,...,0n/a1,b1,p1/a2,b2,p2.../az,bz,pz $ where MOD is the DMAP Functional Module name, Ii (i = 1,m) are the Input Data Block names, 0i (i = 1,n) are the Output Data Block names, and ai,bi,pi (i = 1,z) are the Parameter Sections. In the general form shown above, commas (,) are used to separate several like items while slashes (/) are used to separate sections from one another. The module name is separated from the rest of the instruction by a blank or a comma (,). The dollar sign ($) is used to end the instruction and is not required unless the instruction ends in the delimiter /. A DMAP statement is restricted to columns 1 through 72. Information beyond column 72 is ignored. If the entire DMAP instruction does not fit on one card, the last delimiter (not followed by a $ sign) causes the next card to be read as a continuation. Thus, one DMAP instruction may occupy several cards. Blanks may be used in conjunction with any of the above delimiters for ease of reading. If it is desired to preserve the output alignment of the printed instructions, the module name is begun in column 1 and the rest of the instruction is begun in column 10 when supplying alters to a Rigid Format. A functional module communicates with other modules and the executive system entirely through its inputs, outputs, and parameters. The characteristics or attributes of each functional module are contained in the Module Properties List (MPL) described in Section 2.4 of the Programmer's Manual and are reflected in the DMAP Module Descriptions that follow in Section 5.3 and in the Module Functional Descriptions contained in Chapter 4 of the Programmer's Manual. The module name is a BCD value (which consists of an alphabetic character followed by up to seven additional alphanumeric characters) and must correspond to an entry in the MPL. A Data Block name may be either a BCD value or null. The absence of a BCD value indicates that the Data Block is not needed for a particular application. 5.2.1.1 Functional Module DMAP Statements Each Functional Module DMAP statement must conform to the MPL regarding: 1. Name spelling 2. Number of input data blocks 3. Number of output data blocks 4. Number of parameters 5. Type of each parameter NOTE: See Sections 5.2.1.3 and 5.2.1.4 for allowable exceptions to these rules. 5.2.1.2 Functional Module Names The only Functional Module DMAP names allowed are those contained in the MPL. Therefore, if you want to add a module, you must either use one of the User Module names provided (see Section 5.6) or add a name to the MPL. The Programmer's Manual should be consulted when adding a new module to NASTRAN. 5.2.1.3 Functional Module Input Data Blocks In most cases an input data block should have been previously defined in a DMAP program before it is used. However, there may be instances in which a module can handle, or may even expect, a data block that is undefined at the time the module is initially called. An input data block is previously defined if it appears as an output data block in a previous DMAP instruction, as output from the Input File Processor, as any user-input (via Bulk Data Cards) DMI or DTI data block name, or exists on the Old Problem Tape in a restart problem. Although the number of data blocks is prescribed, if any number of final data blocks are null, they may be omitted from the section. For example, the module TABPT, which uses five input data blocks, may be defined by: TABPT GEOM1,,,, // $ or TABPT GEOM1 // $ A potentially fatal error message (see Section 5.2.1.7) will be issued at compilation time to warn you that a discrepancy in the data block name list has been detected. This is also true if a previously undefined data block is used as input. Also, see the "error-level" option on the XDMAP compiler option card, which you may invoke to terminate execution in the event of such errors. 5.2.1.4 Functional Module Output Data Blocks In general, a data block name will appear as output only once. However, there are cases in which an output data block may be of no subsequent use in a DMAP program. In such a case the name may be used again, but caution should be used when employing such techniques. Although the number of output data blocks is prescribed, the data block name list may be abbreviated in the manner of Section 5.2.1.3. Potentially fatal error messages will warn you if possible ambiguities may occur from these usages. 5.2.1.5 Functional Module Parameters Parameters may serve many purposes in a DMAP program. They may pass data values into and out from a module, or they may be used as flags to control the computational flow within the module or the DMAP program. There are two allowable forms of the parameter section of the DMAP instruction. The first explicitly states the attributes of the parameters, while the second is a briefer simplified specification. The general form of the formal parameter section is: / ai,bi,pi / where the allowable parameter specifications are: ai = V Parameter value is variable and may be changed by the module during execution. ai = C Parameter value is prescribed initially by you and is an unalterable constant. ai = S Parameter is of type V, and will be saved automatically at completion of module. (See description of the SAVE instruction.) bi = Y Initial parameter value may be specified on a PARAM Bulk Data card. bi = N Initial parameter value may not be specified on a PARAM Bulk Data card. pi = PNAME = v or pi = PNAME or pi = v PNAME is a BCD name selected by you to represent a given parameter. The default values for ai and bi depend on the value given for pi, as described below. The three forms available for pi require additional clarification. The symbol "v" represents an actual numeric value for the parameter and may be used only when ai = C and bi = N. The other forms will be clarified by the examples found at the end of this section. Each parameter has an initial value which is established when the DMAP sequence is compiled during execution of the NASTRAN preface. The means by which initial values are established for all DMAP parameters will be explained by the symbolic examples that follow. The value used at execution time may differ from the initial value if and only if the module changes the value, if ai = "V", and if the parameter name appears in a SAVE (see Section 5.7) instruction immediately following the module. The formal parameter specifications defined above can, in frequently encountered instances, be greatly simplified. Situations where these simplifications may be used are: 1. / C,N,v / can be written as / v The value "v" is written exactly as it would be in the formal specification with the exception of BCD constant parameters, in which case the BCD string is enclosed by asterisks, that is, / *STRING* /. 2. / V,N,PNAME / can be written as / PNAME / / V,N,PNAME=v / can be written as / PNAME=v / Again, in the case where the value "v" appears, it is written exactly as in the case of the formal specification. In this case, BCD strings are not delimited by asterisks. 3. / (default value) / can be written as // If a particular parameter has a predefined default value specified in the Module Properties List (MPL), and you want to choose this value, then it is necessary only to code successive slashes. If a parameter does not have a default value, an error message will be issued. Six parameter types are available and the type of each parameter is given in the MPL and may not be changed. The types and examples of values as they would be written in DMAP are given below: PARAMETER TYPE VALUE EXAMPLES Integer 7 -2 0 Real -3.6 2.4+5 0.01-3 BCD VAR01 STRING3 B3R56 Double Precision 2.5D-3 1.354D7 Complex Single Precision (1.0,-3.24) Complex Double Precision (1.23D-2,-3.67D2) Many possible forms of the parameter section may be used. The following examples will help to clarify the possibilities. // This is equivalent to / C,N,v / where v is the MPL default value which must exist. / C,Y,v Constant input parameter Examples: / C,N,0 / C,N,BKL0 / C,N,(1.0,-1.0) or / 0 / *BKL0* / (1.0,-1.0) In the examples shown, both in formal and simplified form, the values 0 (integer), BKL0 (BCD), and 1.0-i1.0 (complex single precision) are defined. / C,Y,PNAMEConstant input parameter; MPL default value is used unless a PARAM Bulk Data card referencing PNAME is present. Error condition is detected if either no PARAM card is present or no MPL default value exists. / C,Y,PNAME=v Constant input parameter; the value v is used unless a PARAM Bulk Data card referencing PNAME is present. / V,Y,PNAME or V,Y,PNAME=v Variable parameter; may be input, output, or both; initial value is the first of 1. value from the most recently executed SAVE instruction, if any 2. value from PARAM Bulk Data card referencing PNAME will be used if present in Bulk Data Deck 3. v, if present in DMAP instruction 4. MPL default value, if any 5. 0 If a parameter is output from a functional module and if the output value is to be carried forward, a SAVE instruction must immediately follow the DMAP instruction in which the parameter is generated. / V,N,PNAME or / PNAME or / V,N,PNAME=v or /PNAME=v Variable parameter; may be input, output, or both; initial value is the first of 1. value from the most recently executed SAVE instruction, if any 2. v, if present in DMAP instruction 3. MPL default value, if any 4. 0 5.2.1.6 DMAP Compiler Options - The XDMAP Instruction (see Section 5.7) You can elect several options when compiling and executing a DMAP program by including an XDMAP compiler option instruction in the program. Similarly, the Rigid Formats may be altered by replacing the BEGIN statement with XDMAP to invoke the same options. The available options are: GO (default) or NOGO The GO option compiles and executes the program, while NOGO terminates the job at the conclusion of compilation. LIST or NOLIST The LIST option produces a DMAP program source listing. See the description of the XDMAP card in Section 5.7 for the default values for this option. DECK or NODECK (default) The DECK option produces a punched card deck of the program. OSCAR or NOOSCAR (default) If the OSCAR option is selected, a complete listing of the Operation Sequence Control Array is produced. REF or NOREF (default) The REF option produces a complete cross reference listing of variable parameters, data block names, and module calls for the DMAP program. ERR=0 or 1 or 2 (default) This option specifies the error level at which termination of the job will occur, 0 for WARNING, 1 for POTENTIALLY FATAL, and 2 for FATAL ERROR MESSAGE. See Section 5.2.1.7 for further explanation. The complete description of the XDMAP card may be found in Section 5.7, dealing with Executive Operation Modules. Note that an XDMAP card need not appear when all default values are elected, but may be replaced with a BEGIN instruction. 5.2.1.7 Extended Error Handling Facility There are three levels of error messages generated during the compilation of a DMAP sequence. These levels are WARNING MESSAGE, POTENTIALLY FATAL ERROR MESSAGE, and FATAL ERROR MESSAGE. You have, through available compiler options, the ability to specify the error level at which the job will be terminated. (See Section 5.2.1.6 for the manner of specification.) The class of POTENTIALLY FATAL ERROR MESSAGES is generated by certain compiler conveniences which, if not fully understood by you, could cause an erroneous or incorrect execution of the DMAP sequence. The default value for the error level is that of the FATAL ERROR MESSAGE. 5.2.2 DMAP Rules for Executive Operation Instructions Each executive operation statement has its own format which is generally open-ended, meaning the number of inputs, outputs, etc. is not prescribed. Executive operation instructions or statements are divided into general categories as follows: 1. Declarative instructions FILE, BEGIN, LABEL. XDMAP, and PRECHK which aid the DMAP compiler and the file allocator as well as provide user convenience. 2. Instructions CHKPNT, EQUIV, PURGE, and SAVE which aid the NASTRAN Executive System in allocating files, interfacing between functional modules, and in restarting a problem. 3. Control instructions REPT, JUMP, COND, EXIT, and END which control the order in which DMAP instructions are executed. The rules associated with the executive operation instructions are distinct for each instruction and are discussed individually in Section 5.7. 5.2.3 Techniques and Examples of Executive Module Usage Even though the DMAP program may be interpretable by the DMAP compiler this does not guarantee that the program will yield the desired results. Therefore, this section is provided to acquaint you with techniques and examples used in writing DMAP programs. In particular, the instructions REPT, FILE, EQUIV, PURGE, and CHKPNT will now be discussed in some detail. The DMAP modules available are listed in Section 5.3. The new DMAP user should read Sections 5.4 through 5.7 to obtain the necessary knowledge of terminology before reading this section. The data blocks and functional modules referenced in the following examples are fictitious and have no relationship to any real data blocks or functional modules. A data block is described as having a status of "not generated", "generated", or "purged." A status of not generated means that the data block is available for generation by appearing as output in a functional module. A status of generated means that the data block contains data which is available for input to a subsequent module. A status of purged means that the data block cannot be generated and any functional module attempting to use this data block as input or output will be informed that the purged data block is not available for use. 5.2.3.1 The REPT and FILE Instructions (see Section 5.7) The DMAP instructions bounded by the REPT instruction and the label referenced by the REPT instruction are referred to as a loop. The location referenced by the REPT is called the top of the loop. In many respects a DMAP loop is like a giant functional module since it requires inputs and generates output data blocks which usually can be handled correctly by the file allocator (see Section 4.9 of the Programmer's Manual) without any special action by you. The one exception is a data block that is not referenced outside the loop (that is, an internal data block with respect to the loop). The file allocator considers internal data blocks as scratch data blocks to be used for the present pass through the loop but not to be saved for input at the top of the loop. To save an internal data block, declare the data block SAVE in the FILE instruction. When the REPT instruction transfers control back to the top of the loop, the status of all internal data blocks is changed to "not generated" unless the internal data block is declared SAVE or APPEND in a FILE instruction. It should also be noted that equivalences established between internal data blocks (not declared saved) and data blocks referenced outside the loop are not carried over for the next time through the loop. The equivalence must be re-established each time through the loop. Data blocks generated by the Input File Processor are considered referenced outside of all DMAP loops. Example Using REPT and FILE Instructions BEGIN $ FILE X=SAVE / Y=APPEND / Z=APPEND $ LABEL L1 $ MOD1 B/W,Y $ COND L3,PX $ DMAP MOD2 A/X/V,N,PX=0 $ loop SAVE PX $ LABEL L3 $ MOD3 W,X,Y/Z $ REPT L1,1 $ MOD4 Z// $ END $ Assume that MOD2 sets PX < 0 when it is executed. Note that Z is declared APPEND, whereas Y will be saved since it is an internal data block that is to be appended. X is an internal data block that is to be saved since it will only be generated the first time through the loop but is needed as input each time the loop is repeated. W is an internal data block that is generated each time through the loop; therefore, it is not saved. The following table shows what happens when the above DMAP program is executed. Only modules being executed are shown in the table. Data blocks A and B are assumed to be generated by the Input File Processor, and hence are considered referenced outside of all DMAP loops. Module Input status Output status and comments being and comments executed MOD1 B - assumed generated by W, Y - generated the input file processor COND PX is 0 No transfer occurs since PX >= 0 MOD2 A - assumed generated by X - generated the input file processor PX is set < 0 SAVE PX < 0 The value created above is saved for subsequent use. MOD3 W, X, Y are all generated Z - generated at this point REPT Loop count is Transfer to L1 - set loop count to 1- initially set to 1 1=0. Status of data blocks at top of loop will be: A, B, Z - generated (referenced outsIde loop) X, Y - generated (internal data blocks declared saved) W - not generated (internal data block) MOD1 B - generated W - generated Y - generated (appended) COND PX is now < 0 due to Transfer to L3 occurs SAVE MOD3 W, X, Y - generated Z - generated (appended) REPT Loop count is now 0 No transfer occurs. MOD4 Z - generated Output to printer (assumed) END Normal termination of problem. 5.2.3.2 The EQUIV Instruction (see Section 5.7) There are no restrictions on the status of data blocks referenced in an EQUIV instruction. Consider the instruction EQUIV A,B1,...,BN/P $ when P < 0. Data blocks B1,...,BN take on all the characteristics of data block A including the status of A. This means the status of some Bj can change from purged to generated or not generated. The EQUIV instruction will unequivalence data blocks when P >= 0. In an unequivalence operation, the status of all secondary data blocks reverts to not generated. Suppose A, B, and C are all equivalenced and P >= 0. EQUIV A,B/P $ will break the equivalence between A and B but not between A and C. Now consider the following situation. Data block B is to be generated by repeatedly executing functional module MOD2. The input to MOD2 is the previous output from MOD2. That is to say, each successive generation of B depends on the previous B generated. The following example shows how the EQUIV instruction is used to solve this problem. Assume parameter BREAK >= 0 and parameter LINK < 0. Example of EQUIV Instruction BEGIN $ MOD1 A/B $ LABEL L1 $ DMAP EQUIV B,BB/BREAK $ loop MOD2 B/BB $ EQUIV BB,B/LINK $ REPT L1,1 $ MOD3 BB// $ END The following table shows what happens when the above DMAP program is executed. Only modules being executed are shown in the table. Module Input status Output status and comments being and comments executed MOD1 A - assumed generated by B - generated input processor EQUIV B will not be equivalenced No action taken to BB since BREAK >= 0 MOD2 B - generated BB - generated EQUIV BB and B are not B is equivalenced to BB. That is, equivalenced. B assumes all of the characteristics B - generated of BB. B and BB then both have the BB - generated status of generated. LINK < 0. REPT Loop count is Transfer to L1; set loop count to initially 1 1-1=0. EQUIV B and BB are generated The equivalence is broken; and equivalenced. B - generated, BB - not generated BREAK >= 0. MOD2 B - generated BB - generated EQUIV BB and B are generated B equivalenced to BB; B, BB and not equivalenced. - generated LINK < 0. REPT Loop count is 0 No transfer occurs. MOD3 BB - generated Output to printer (assumed) END Normal termination of problem. Since equivalences are automatically broken between internal files (not declared saved) and files referenced outside the loop, the above DMAP program could be written as follows and the same results achieved. BEGIN $ MOD1 A/B $ LABEL L1 $ DMAP MOD2 B/BB $ loop EQUIV BB,B/LINK $ REPT L1,1 $ MOD3 B// $ END Data block BB is now internal; therefore, the instruction EQUIV B,BB/BREAK $ is not needed. 5.2.3.3 The PURGE Instruction (see Section 5.7) The status of a data block is changed to purged by explicitly or implicitly purging it. A data block is explicitly purged through the PURGE instruction, whereas it is implicitly purged if it is not created by the functional module in which it appears as an output. The primary purpose of the PURGE instruction is to prepurge data blocks. Prepurging is the explicit purging of a data block prior to its appearance as output from a functional module. Prepurging data blocks allows the NASTRAN executive system to allocate available files more efficiently, which decreases problem execution time. You should look for data blocks that can be prepurged and purge them as soon as it is recognized that they will not be generated. Sometimes during the execution of a problem it is necessary to generate a data block whose status is purged. This situation can occur both in DMAP looping and in a modified restart situation. In order to generate a data block that is purged it is first necessary to unpurge it (that is, change its status from purged to not generated). Unpurging is achieved by executing a PURGE instruction which references the purged data block and whose purge parameter is positive. The PURGE instruction thus has two functions, to unpurge as well as purge data blocks, depending on the value of the purge parameter and the status of the referenced data block. The following table shows what action is taken by the PURGE instruction for all combinations of input. PURGE A/P $ Status of data block Value of P Status of Data block A prior to PURGE A after PURGE Not generated P >= 0 Not generated (that is, no action taken) Not generated P < 0 Purged Generated P >= 0 Generated (that is, no action taken) Generated P < 0 Purged Purged P >= 0 Not generated (that is, unpurged) Purged P < 0 Purged (that is, no action taken) You may wonder why you should not prepurge all data blocks and then unpurge them when necessary in order to really assist the file allocator. The reason not to do this is that there is a limited amount of space in the table where the status of data blocks is kept. This table may overflow if too many data blocks are purged at one time. Therefore, only prepurge those data blocks that can truly be prepurged. Example of Explicit and Implicit Purging and Prepurging BEGIN $ MOD1 IP/A/V,Y,PX/V,Y,PY/V,Y,PB $ SAVE PX,PY,PB $ PURGE X/PX / Y/PY $ MOD2 A/B,C,D/V,Y,PB/V,Y,PC $ SAVE PC $ PURGE C/PC $ MOD3 B,C,D/E $ MOD4 E/X,Y,Z $ MOD5 X,Y,Z// $ END $ Assume that module MOD1 sets PX < 0, PY >= 0 and PB = 0. Assume that B is not generated by MOD2 if PB = 0. Assume that MOD2 sets PC < 0, but does not change PB. The following table shows what happens when the above DMAP program is executed. Only modules being executed are shown in the table. Module Input status Output status and comments being and comments executed MOD1 IP - assumed generated A - generated by the input file PX < 0, PY >= 0, PB = 0 processor SAVE PX < 0, PY >= 0, Parameter values are saved for use PB = 0 in subsequent modules. PURGE X,Y - not generated X - purged (that is, prepurged) PX < 0, PY >= 0 Y - not generated MOD2 A - generated; PB = 0 B - purged (that is, implicitly); C, D - generated; PC 0. SAVE PC < 0 PB value not saved since MOD2 did not reset it. PURGE C - generated C - purged PC < 0 MOD3 B, C - purged E - generated D - generated MOD4 E - generated X - purged; Y - generated; Z - generated MOD5 X - purged Output to printer (assumed) Y, Z - generated END Normal termination of problem. Example of Unpurging BEGIN $ FILE X=SAVE/Y=SAVE $ FILE Z=APPEND $ MOD1 IP/A $ LABEL L1 $ COND L2,NPX $ PURGE X/NPX $ MOD2 A/X,Y/V,Y,PX=0/V,N,NPX=0 $ DMAP SAVE PX,NPX $ loop PURGE X/PX $ LABEL L2 $ MOD3 X,Y/Z $ REPT L1,2 $ MOD4 Z// $ END $ Assume that MOD2 sets PX < 0 and NPX >= 0 the first time it is executed. Assume that MOD2 sets PX >= 0 and NPX < 0 the second time it is executed. The following table shows what happens when the above DMAP program is executed. Only modules being executed are shown in the table. Module Input status Output status and comments being and comments executed MOD1 IP - assumed generated by A - generated input file processor. COND NPX = 0 Jump not executed PURGE X - not generated X - not generated (that is, no action taken) MOD2 A - generated X, Y - generated; PX < 0, NPX >= 0 SAVE PX < 0, NPX >= 0 PURGE X - generated; PX < 0 X - purged MOD3 X - purged; Z - generated Y - generated REPT Loop count = 2 Transfer to location L1; loop count = 1 COND NPX >= 0 Jump not executed PURGE X - purged; NPX >= 0 X - not generated (that is, unpurged) MOD2 A - generated X - generated; Y - generated (note old data for Y is lost because Y not Appended); PX >= 0, NPX <0 SAVE PX >= 0, NPX < 0 PURGE X - generated; PX >= 0 X - generated (that is, no action taken) MOD3 X,Y - generated Z - generated (note new data appended to old because Z declared appended) REPT Loop count = 1 Transfer to location L1; loop count = 0 COND NPX < 0 Transfer to location L2 MOD3 X, Y - generated Z - generated (that is, appended) REPT Loop count = 0 Fall through to next instruction MOD4 Z - generated Output to printer (assumed) END Normal termination of problem 5.2.3.4 The CHKPNT Instruction (see Section 5.7) The CHKPNT instruction provides you with a means for saving data blocks for subsequent restart of your problem with a minimum amount of redundant processing. The following rules will assure you of the most efficient restart. 1. Checkpoint all output data blocks from every functional module. 2. Checkpoint all data blocks mentioned in a PURGE instruction. 3. Checkpoint all secondary data blocks in an EQUIV instruction. Never checkpoint primary data blocks in an EQUIV instruction. 4. Checkpoint all data blocks mentioned above as soon as possible. Example of Checkpointing BEGIN $ MOD1 A/B,C/S,Y,P1/S,Y,P2 $ CHKPNT B,C $ PURGE X,Y/P1 / Z/P2 $ CHKPNT X,Y,Z $ EQUIV B,BB/P1 / C,CC,D/P2 $ CHKPNT BB,CC,D $ : : END $ In the example above, the data blocks were checkpointed as soon as possible, which is the most straightforward way, but it required three calls to the checkpoint module, which increases problem execution time. Since checkpointing usually requires a small fraction of the total execution time, the most straightforward method is recommended to avoid trouble. The rigid format DMAP sequences (see Volume II) do not employ any explicit CHKPNT instructions. Instead, for the sake of efficiency, each rigid format includes a single PRECHK ALL instruction towards the beginning of the DMAP sequence. (See Section 5.7 for the description of the PRECHK DMAP instruction.) In keeping with the four rules mentioned above, the PRECHK ALL instruction immediately and automatically CHKPNTs all output data blocks from each functional module, all data blocks mentioned in each PURGE instruction, and all secondary data blocks in each EQUIV instruction. The only exceptions to this are the CASESS, CASEI, and CASECC data blocks appearing as output in substructure analyses. =PAGE= 5.3 INDEX OF DMAP MODULE DESCRIPTIONS Descriptions of all nonstructurally oriented modules are contained herein, arranged alphabetically by category as indicated by the lists below. Descriptions for the structurally oriented modules are contained in Section 4 of the Programmer's Manual. They are listed here in order to provide a complete list of all NASTRAN modules. Additional information regarding nonstructurally oriented modules is also given in Section 4 of the Programmer's Manual. Matrix Operation Modules (16) Utility Modules (33) (See Section 5.4) (See Section 5.5) ADD MPY3 COPY OUTPUT4 ADD5 PARTN DATABASE OUTPUT5 DECOMP SDCMPS GINOFILE PARAM DIAGONAL SMPYAD INPUT PARAMD FBS SOLVE INPUTT1 PARAML MATGEN TRNSP INPUTT2 PARAMR MERGE UMERGE INPUTT3 PRTPARM MPYAD UPARTN INPUTT4 SCALAR INPUTT5 SEEMAT LAMX SETVAL MATGPR SWITCH MATPRN TABPCH MATPRT TABPRT NORM TABPT OUTPUT1 TIMETEST OUTPUT2 VEC OUTPUT3 User Modules (11) Executive Operation Modules (16) (See Section 5.6) (See Section 5.7) DDR MODA BEGIN FILE DUMMOD1 MODB CHKPNT JUMP DUMMOD2 MODC COMPOFF LABEL DUMMOD3 OUTPUT COMPON PRECHK DUMMOD4 XYPRNPLT COND PURGE DUMMOD5 END REPT EOUIV SAVE EXIT XDMAP Substructure DMAP ALTERs (22) Supplementary Functional Modules (2) (See Section 5.9) (See Section 5.10) BRECOVER PLOT EMA1 GPSPC CHECK RECOVER COMBINE REDUCE CREDUCE RENAME DELETE RESTORE DESTROY RUN DUMP SOFIN EDIT SOFOUT EQUIV SOFPRINT MRECOVER SOLVE MREDUCE SUBSTRUCTURE Structurally Oriented Functional Modules (122) (See Section 4 of the Programmer's Manual) ADR EQMCK MRED1 SDRHT ALG EXIO MRED2 SDR1 AMG FA1 MTRXIN SDR2 AMP FA2 NRLSUM SDR3 ANISOP FLBMG OFP SGEN APD FRLG OPTPR1 SITEPLOT APDB FRRD OPTPR2 SMA1 BMG FRRD2 PLA1 SMA2 CASE FVRSTR1 PLA2 SMA3 CASEGEN FVRSTR2 PLA3 SMP1 CEAD GENCOS PLA4 SMP2 CMRED2 GENPART PLOT SOFI COMBUGV GFSMA PLTHBDY SOFO COMB1 GI PLTMRG SOFUT COMB2 GKAD PLTSET SSGHT CURV GKAM PLTTRAN SSG1 CYCT1 GPCYC PROLATE SSG2 CYCT2 GPFDR PROMPT1 SSG3 DDAMAT GPSP PRTMSG SSG4 DDAMPG GPWG RANDOM SUBPH1 DDRMM GP1 RBMG1 TA1 DDR1 GP2 RBMG2 TRAILER DDR2 GP3 R8MG3 TRD DESVEL GP4 RBMG4 TRHT DPD GUST RCOVR TRLG DSCHK IFT RCOVR3 VARIAN DSMG1 LOADPP READ VDR DSMG2 MAGBDY REDUCE XYPLOT EMA MCE1 RMG XYTRAN EMFLD MCE2 SCAN EMG MODACC SCE1 In the examples that accompany each description, the following notation is used: 1. Upper case letters and special symbols in the DMAP calling sequence must be punched as shown except for data block names, parameter names, and label names, which are symbolic. 2. Lower case letters represent constants whose permissible values are indicated in the descriptive text. Due to the many possible forms which may be used when writing parameters, a variety of arbitrarily selected forms will be used in the examples. This does not imply that the form used in any example is required or that it is the only acceptable form allowed. The terms "form", "type", and "precision" are used in many functional module descriptions. By form is meant one of the following: Form Meaning 1 Square matrix 2 Rectangular matrix 6 Symmetric matrix By type is meant one of the following: Form Meaning 1 Real, single precision 2 Real, double precision 3 Complex, single precision 4 Complex, double precision By precision is meant one of the following: Precision IndicatorMeaning 1 Single precision numbers 2 Double precision numbers =PAGE= 5.4 MATRIX OPERATION MODULES Module Basic Operation Page ADD [X] = a[A] + b[B] 5.4-2 ADD5 [X] = a[A] + b[B] + c[C] + d[D] + e[E] 5.4-4 DECOMP [A] => [L][U] 5.4-5 DIAGONAL Generate a diagonal matrix from a given matrix 5.4-6 (except rectangular and row vector) -1 FBS [X] = +/- ([L][U]) [B] 5.4-7 MATGEN Generate certain kinds of matrices 5.4-? A11 A12 MERGE [A] <= 5.4-8 A21 A22 T MPYAD [X] = +/- [A][B] +/- [C] or +/- [A] [B] +/- C 5.4-10 T T MPY3 [X] = [A] [B][A] + [C], [A] [B] + [C] or 5.4-12 [B][A] + [C] A11 A12 PARTN [A] => 5.4-13 A21 A22 SDCMPS [A] => [L][U] 5.4-17 SMPYAD [X] = [A][B][C][D][E] +/- [F] 5.4-20 -1 SOLVE [X] = +/- [A] [B] 5.4-22 T TRNSP [X] = [A] 5.4-23 PHIA UMERGE {PHIF} <= 5.4-24 PHIO Kjj Kjl UPARTN [K ] = 5.4-26 ii Klj Kll =PAGE= ADD - Matrix Add Purpose To compute [X] = a[A] + b[B] where a and b are scale factors. DMAP Calling Sequence ADD A,B / X / C,Y, ALPHA=(1.0,2.0) / C,Y, BETA=(3.0,4.0) / C,Y,DALPHA=(5.D+0,6.D-1) / C,Y,DBETA=(7.D+2,8.D-3) $ Input Data Blocks A Any GINO matrix. B Any GINO matrix. Output Data Blocks X Matrix. Parameters ALPHA Input-complex-single precision. This is the scalar multiplier for [A]. (See Remark 7 for default if DALPHA is purged.) BETA Input-complex-single precision. This is the scalar multiplier for [B]. (See Remark 7 for default if DBETA is purged.) DALPHA Input-complex-double precision. This is the scalar multiplier for [A]. (See Remark 7 for default if ALPHA is purged.) DBETA Input-complex-double precision. This is the scalar multiplier for [B]. (See Remark 7 for default if BETA is purged.) Subroutines DADD Method The parameters are checked. If [A] is not purged, the number of columns, rows, and form of [X] are set to those of [A]. Otherwise the [B] descriptors are used. The flags for the type of [X] (see Remark 2) and multiply-add operations are set before calling subroutine SADD, which performs the actual scalar multiplication and matrix addition. Remarks 1.Matrix [A] and/or matrix [B] may be purged, in which case the corresponding term in the matrix sum will be assumed null. The input data blocks must be unique. 2.Matrix [X] cannot be purged. The type of [X] is maximum of the types of [A], [B], a, b. The size and shape of [X] are the size and shape of [A] if [A] is present. Otherwise they are those of [B]. 3.The use of double precision parameters DALPHA and DBETA will force the matrix multiply-and-add operation to be performed in double precision unconditionally. The single precision ALPHA and BETA may cause the multiply-and-add operation to be performed in single precision or in double precision depending on the matrix original precision types. 4.Either the DALPHA-DBETA pair or the ALPHA-BETA pair is used. They cannot be mixed; that is, DALPHA-BETA pair is illegal; so is DALPHA-ALPHA. 5.If Im(ALPHA or DALPHA) or Im(BETA or DBETA) is zero, the corresponding parameter will be considered real. 6.Matrix [X] is put into complex form if any one of the [A], [B], ALPHA, BETA, DALPHA, or DBETA is complex. 7.The defaults are ALPHA = (1.0,0.0) if DALPHA is purged, and BETA = (1.0,0.0) if DBETA is purged. ALPHA and DALPHA cannot both be specified; neither can BETA and DBETA. =PAGE= ADD5 - Matrix Add Purpose To compute [X] = a[A] + b[B] + c[C] + d[D] + e[E] where a, b, c, d, and e are scale factors. DMAP Calling Sequence ADD5 A,B,C,D,E / X / C,Y,ALPHA=(1.0,2.0) / C,Y,BETA=(3.O,4.O) / C,Y,GAMMA=(5.0,6.0) / C,Y,DELTA=(7.0,8.0) / C,Y,EPSLN=(9.0,1.0) $ Input Data Blocks A, B, C, D, and E must be distinct matrices. NOTE: Any of the matrices may be purged, in which case the corresponding term in the matrix sum will be assumed null. The input data blocks must be unique. Output Data Blocks X Matrix. The type of [X] is maximum of the types of A, B, C, D, E, a, b, c, d, e. The size of [X] is the size of the first nonpurged input. NOTE: [X] cannot be purged. Parameters ALPHA Input-complex-single precision, default = (1.0, 0.0). This is a, the scalar multiplier for [A]. BETA Input-complex-single precision, default = (1.0, 0.0). This is b, the scalar multiplier for [B]. GAMMA Input-complex-single precision, default = (1.0, 0.0). This is c, the scalar multiplier for [C]. DELTA Input-complex-single precision, default = (1.0, 0.0). This is d, the scalar multiplier for [D]. EPSLN Input-complex-single precision, default = (1.0, 0.0). This is e, the scalar multiplier for [E]. NOTE: If Im(ALPHA), Im(BETA), Im(GAMMA), Im(DELTA), or Im(EPSLN) = 0.0, the corresponding parameter will be considered real. =PAGE= DECOMP - Matrix Decomposition Purpose To decompose a square matrix [A] into upper and lower triangular factors [U] and [L]. [A] => [L][U] DMAP Calling Sequence DECOMP A / L,U / V,Y,KSYM / V,Y,CHOLSKY / V,N,MINDIAG / V,N,DET / V,N,POWER / V,N,SING $ Input Data Blocks A A square matrix. Output Data Blocks L Nonstandard lower triangular factor of [A]. U Nonstandard upper triangular factor of [A]. Parameters KSYM Input-Integer, default = 0. 1, use symmetric decomposition. 0, use unsymmetric decomposition. CHOLSKY Input-Integer, default = 0. 1, use Cholesky decomposition - matrix must be positive definite. 0, do not use Cholesky decomposition. MINDIAG Output-Real double precision, default = 0.0D0. The minimum diagonal term of [U]. DET Output-complex single precision, default = 0.0D0. The scaled value of the determinant of [A]. POWER Output-Integer, default = 0. Integer POWER of 10 by which DET should be multiplied to obtain the determinant of [A]. SING Output-Integer, default = 0. SING is set to -1 if [A] Is singular. Remarks 1.Non-standard triangular factor matrix data blocks are used to improve the efficiency of the back substitution process in module FBS. The format of these data blocks is given in Section 2 of the Programmer's Manual. 2.The matrix manipulating utility modules should be cautiously employed when dealing with non-standard matrix data blocks. 3.If the CHOLSKY option is selected, the resulting factor (which will be written as [U]) cannot be input to FBS. 4.Variable parameters output from functional modules must be SAVEd if they are to be subsequently used. See the Executive Module SAVE description. =PAGE= DIAGONAL - Strip Diagonal From Matrix Purpose To remove the real part of the diagonal from a matrix, raise each term to a specified power, and output a column vector, a square symmetric matrix, or a diagonal matrix. DMAP Calling Sequence DIAGONAL A/B/C,Y,OPT=COLUMN/V,Y,POWER=1. $ Input Data Blocks A Can be any square or diagonal matrix. Output Data Blocks B Either a real column vector, a symmetric matrix, or a diagonal matrix containing the diagonal of A. Parameters OPT Input-BCD, default = COLUMN. COLUMN produces column vector output (labeled as a general rectangular matrix) SQUARE produces square matrix (labeled as a symmetric matrix) DIAGONAL produces diagonal matrix (labeled as a diagonal matrix) POWER Input-Real single precision, default = 1.0. Exponent to which the real part of each diagonal element is raised. Remarks 1.The module checks for special cases of POWER = 0.0, 0.5, 1.0, and 2.0. 2.The precision of the output matrix matches the precision of the input matrix. =PAGE= FBS - Matrix Forward-Backward Substitution Purpose To solve the matrix equation [L][U][X] = +/- [B] where [L] and [U] are the lower and upper triangular factors of a matrix previously obtained via Functional Module DECOMP. DMAP Calling Sequence FBS L,U,B / X / V,Y,SYM / V,Y,SIGN / V,Y,PREC / V,Y,TYPE $ Input Data Blocks L Nonstandard lower triangular factor. U Nonstandard upper triangular factor. B Rectangular matrix. Output Data Blocks X Rectangular matrix having the same dimensions as [B]. Parameters SYM Input-Integer-default = 0; 1 - matrix [L][U] is symmetric; -1 -matrix [L][U] is unsymmetric; 0 - reset to 1 or -1 depending upon [U] being purged or not respectively. Output-Integer - SYM used. SIGN Input-Integer-default = 1; 1 - solve [L][U][X] = [B]; -1 - solve [L][U][X] = [-B] PREC Input-Integer-default = 0; 1 - use single precision arithmetic; 2 -use double precision arithmetic; 0 - logical choice based on input and system precision flag. Output-Integer - precision used. TYPE Input-Integer-default = 0; 1 - output type of matrix [X] is real single precision; 2 - output type of matrix [X] is real double precision; 3 - output type of matrix [X] is complex single precision; 4 - output type of matrix [X] is complex double precision; 0 - logical choice based on input matrices. Output-Integer - TYPE used. Remarks 1.Non-standard triangular factor matrix data blocks are used to improve the efficiency of the back substitution process. The format of these data blocks is given in Section 2 of the Programmer's Manual. 2.The matrix manipulating utility modules should be cautiously employed when dealing with non-standard matrix data blocks. =PAGE= MATGEN - Matrix Generator Purpose To generate different kinds of matrices for later use in other matrix operation modules. DMAP Calling Sequence MATGEN TABLE/MAT/P1/P2/P3/P4/P5/P6/P7/P8/P9/P10/P11 $ Input Data Blocks TABLE Optional tabular data for use in generating the matrix. (This data may be assumed to be entered by DTI cards.) For P1 = 9, TABLE is the EQEXIN table. For P1 = 11, TABLE is the USET table. Output Data Blocks MAT Standard matrix data block. Parameters P1 Input-integer-no default. Option selection parameter as described below. P2 - P11Input-integer-default = 0. Provide parametric data depending on P1. Usage P1 = 1 Generate a real identity matrix. P2 = Order of matrix. P3 = Skew flag. If nonzero, generate a skew-diagonal matrix. P4 = Precision (1 or 2). If zero, use machine precision. P1 = 2 Generate an identity matrix trailer. P2 = Order of matrix. Note: This option differs from P1 = 1 in that only the trailer is generated (form = 8) and the matrix is not actually generated. Only certain DMAP modules are prepared to accept this form (for example, MPYAD, FBS, CEAD). P1 = 3 Generate a diagonal matrix from input file TABLE. P2 = Type of data in TABLE. P3 = 0, matrix is form 6, type P2; = 1, matrix is form 3, type P2. P1 = 4 Generate a pattern matrix. P2 = Number of columns. P3 = Number of rows. P4 = Precision (1 or 2). If 0, use machine precision. P5 = Number of terms per string. If 0, use 1. P6 = Increment between strings. If 0, use 1. P7 = Row number of first string in column 1. If 0, use 1. P8 = Increment to first row of subsequent columns. P9 = Number of columns before returning to P7. Note: The nonzero values in each column will be the column numbers. Example: To generate a 10 x 10 diagonal matrix with the column number in each diagonal position: MATGEN ,/DIAG/4/10/10/0/1/10/1/1/10 $ P1 = 5 Generate a matrix of pseudo-random numbers. The numbers span the range 0 to 1.0, with a normal distribution. P2 = Number of columns. P3 = Number of rows. P4 = Precision (1 or 2). If 0, use machine precision. P5 = Seed for random number generation. If P5 <= 0, the time of day (seconds past midnight) will be used. P1 = 6 Generate a partitioning vector for use in PARTN or MERGE. P2 = Number of rows. P3, P5, P7, P9 = Number of rows with zero coefficients. P4, P6, P8, P10 = Number of rows with unit coefficients. If 10 Pi < P2 i=3 the remaining terms contain zeros. If 10 Pi > P2 i=3 the terms are ignored after P2. Example: To generate a vector of 5 unit terms followed by 7 zeros followed by 2 unit terms: MATGEN ,/UPART/6/14/0/5/7/2 $ P1 = 7 Generate a null matrix. P2 = Number of rows. P3 = Number of columns. P4 = Form. If P4 = 0, the form will be 6 (symmetric) if P2 = P3, otherwise form 2. P5 = Type. If P5 = 0, the type will be the machine precision. P1 = 8 Not available. P1 = 9 Generate a transformation between external and internal sequence matrices for g-set size matrices. P2 = Output transpose flag. If 0, output non-transposed factor, UEXT = MAT*UINT. If 1, output transposed factor, UEXT = MAT*UINT. P3 = Number of terms in g-set. The parameter LUSET contains this number in most solution sequences. Example 1: Transform a g-set size vector to external sequence: ALTER XX $ AFTER SDR1. ALL SDR1 OUTPUTS ARE IN INTERNAL SEQUENCE. MATGEN EQEXIN/EXTINT/9/LUSET $ MPYAD EXTINT,UGV/UGVEXT/1 $ Example 2: Transform an a-set size matrix to external sequence: ALTER XX $ AFTER KAA GENERATED. ALL MATRICES IN INTERNAL SEQUENCE. VEC USET/VATOG/G/A/COMP $ MERGE KAA,,,,VATOG,/KAGG/ $ EXPAND TO G-SIZE, INTERNAL SORT MATGEN EQEXIN/INTEXT/9/0/LUSET $ SMPYAD INTEXT,KAGG,INTEXT,,/KAAGEXT/3////1////6 $ $ (KAAGEXT) = TRANSPOSE(INTEXT)*(KAAG)*(INTEXT) $ ITS FORM IS 6 (SYMMETRIC) P1 = 10 Not used. P1 = 11 Not available. =PAGE= MERGE - Matrix Merge Purpose To form the matrix [A] from its partitions: CP Ĵ A11 A12 = 0 [A] <= RP A21 A22 not equal 0 = 0 not equal 0 DMAP Calling Sequence MERGE A11,A21,A12,A22,CP,RP / A / V,Y,SYM / V,Y,TYPE / V,Y,FORM $ Input Data Blocks A11 Matrix. A21 Matrix. A12 Matrix. A22 Matrix. CP Column partitioning vector (see below) - Single precision column vector. RP Row partitioning vector (see below) - Single precision column vector. NOTES 1. Any or all of [A11], [A12], [A21], [A22] can be purged. When all are purged this implies [A] = [0]. 2. {RP} and {CP} may not both be purged. 3. See Remarks for meaning when either of {RP} or {CP} is purged. 4. [A11], [A12], [A21], [A22] must be unique matrices. Output Data Blocks A Merged matrix from [A11], [A12], [A21], [A22]. NOTE: [A] cannot be purged. Parameters SYM Input-Integer, default = -1. SYM < 0, {CP} is used for {RP}. SYM >= 0, {CP} and {RP} are distinct. TYPE Input-Integer, default = 0. Type of [A] - see Remark 4. FORM Input-Integer, default = 0. Form of [A] - see Remark 3. Remarks 1. MERGE is the inverse of PARTN in the sense that if [A11], [A12], [A21], [A22] were produced by PARTN using {RP}, {CP}, FORM, SYM, and TYPE from [A], MERGE will produce [A]. See PARTN for options on {RP}, {CP}, and SYM. 2. All input data blocks must be distinct. 3. When FORM = 0, a compatible matrix [A] results as shown in the following table: Ŀ FORM OF A22 Ĵ Square Rectangular Symmetric Ĵ Square Square Rectangular Rectangular FORM Ĵ OF Rectangular Rectangular Rectangular Rectangular A11 Ĵ Symmetric Rectangular Rectangular Symmetric 4. If TYPE = 0, the type of the output matrix wilt be the maximum type of [A11], [A12], [A21], and [A22]. =PAGE= MPYAD - Matrix Multiply and Add Purpose MPYAD computes the multiplication of two matrices and, optionally, addition of a third matrix to the product. By means of parameters, you may compute +/- [A][B] +/- [C] = [X], or +/- [A]T[B] +/- [C] = [X]. DMAP Calling Sequence MPYAD A,B,C / X / V,N,T / V,N,SIGNAB / V,N,SIGNC / V,N,TYPEX $ Input Data Blocks A Left hand matrix in the matrix product [A][B]. B Right hand matrix in the matrix product [A][B]. C Matrix to be added to [A][B]. NOTES 1.If no matrix is to be added, [C] must be purged. 2.[A], [B], [C] must be physically different data blocks. 3.[A] and [B] must not be purged. 4.[A], [B], and [C] must be conformable. This condition is checked by MPYAD. Output Data Blocks X Matrix resulting from the MPYAD operation. NOTE: [X] cannot be purged. Parameters T Input-Integer, no default; 1 - compute [A]T[B]; 0 - compute [A][B]. SIGNAB Input-Integer, default = 1; +1 - compute [A][B]; 0 - omit [A][B]; -1 - compute -[A][B]. SIGNC Input-Integer, default = 1; +1 - add [C]; 0 - omit [C]; -1 - subtract [C]. TYPEX Input-Integer, default = 0; 0 - logical choice based on input; 1 - output type of matrix X is real single precision; 2 - output type of matrix X is real double precision; 3 - output type of matrix X is complex single precision; 4 - output type of matrix X is complex double precision. Output-Integer; TYPEX used. Examples 1. [X] = [A][B]+[C] ([X] see notes) MPYAD A,B,C / X / C,N,0 $ T 2. [X] = [A] [B]-[C] ([X] real single-precision) MPYAD A,B,C / X / C,N,1 / C,N,1 / C,N,-1 / C,N,1 $ 3. [X] = -[A][B] ([X] see notes) MPYAD A,B, / X / C,N,0 / C,N,-1 $ NOTES: The precision of [X] is determined from the input matrices in that if any one of these matrices is specified as double precision, then [X] will also be double precision. If the precision for the input matrices is not specified, the precision of the system flag will be used. =PAGE= MPY3 - Triple Matrix Multiply Purpose To compute the matrix product [X]=[A]T[B][A]+[C], [X]=[A]T[B]+[C], or [X]=[B][A]+[C] for sparse A matrix and dense B matrix. DMAP Calling Sequence MPY3 A,B,C /X/ V,N,CODE / V,N,PREC $ Input Data Blocks A Matrix[A]. B Matrix[B]. C Matrix[C]. NOTES 1.If no matrix is to be added, [C] must be purged. 2.[A], [B], and [C] must be physically different data blocks. 3.[A] and [B] must not be purged. 4.[A], [B], and [C] must be conformable. Output Data Blocks X Matrix resulting from the triple matrix multiplication. NOTE: [X] cannot be purged. Parameters CODE Input-Integer, default = 0. If CODE = 0, ATBA + C is performed. If CODE = 1, ATB + C is performed via MPYAD. If CODE = 2, BA + C is performed. PREC Input-Integer, default = 0. If PREC = 0, output precision is the logical choice based on input. If PREC = 1, output is in real single precision. If PREC = 2, output is in real double precision. Remarks 1. See Section 4.157 of the Programmer's Manual for a detailed description of the MPY3 module. =PAGE= PARTN - Matrix Partition Purpose To partition [A] into [A11], [A12], [A21], and [A22]: CP Ĵ A11 A12 = 0 [A] => RP A21 A22 not equal 0 = 0 not equal 0 DMAP Calling Sequence PARTN A,CP,RP / A11,A21,A12,A22 / V,Y,SYM / V,Y,TYPE / V,Y,F11 / V,Y,F21 / V,Y,F12 / V,Y,F22 $ Input Data Blocks A Matrix to be partitioned. CP Column partitioning vector - single precision column vector. RP Row partitioning vector - single precision column vector. Output Data Blocks A11 Upper left partition of [A]. A21 Lower left partition of [A]. A12 Upper right partition of [A]. A22 Lower right partItion of [A]. NOTES 1.Any or all output data blocks may be purged. 2.For size of outputs see Method section below. Parameters SYM Input-Integer, default = -1. SYM chooses between a symmetric partition and one unsymmetric partition. If SYM < 0, {CP} is used as {RP}. If SYM >= 0, {CP} and {RP} are distinct. TYPE Input-Integer, default = 0. Type of output matrices - see Remark 8. F11 Input-Integer, default = 0. Form of [A11]. See Remark 7. F21 Input-Integer, default = 0. Form of [A21]. See Remark 7. F12 Input-Integer, default = 0. Form of [A12]. See Remark 7. F22 Input-Integer, default = 0. Form of [A22]. See Remark 7. Method Let NC = number of nonzero terms in {CP}. Let NR = number of nonzero terms In {RP}. Let NROWA = number of rows In [A]. Let NCOLA = number of columns In [A]. CASE 1 {CP} purged and SYM >= 0. [A11] is a (NROWA - NR) by NCOLA matrix. A11 [A21] is a NR by NCOLA matrix. [A] -> ij [A12] is not written. A21 [A22] is not written. CASE 2 {RP} purged and SYM >= 0. [A11] is a NROWA by (NCOLA - NC) matrix. [A21] is not written. [A] -> [A11 | A12] [A12] is a NROWA by NC matrix. [A22] is not written. CASE 3 SYM < 0 ({RP} must be purged) [A11] is a (NROWA - NC) by (NCOLA - NC) matrix. A11 A12 [A21] is a NC by (NCOLA - NC) matrix. [A] -> [A12] is a (NROWA - NC) by NC matrix. A21 A22 [A22] is a NC by NC matrix. CASE 4 neither {CP} nor {RP} purged and SYM >=0 [A11] is a (NROWA - NR) by (NCOLA - NC) matrix. A11 A12 [A21] is a NR by (NCOLA - NC) matrix. [A] -> [A12] is a (NROWA - NR) by NC matrix. A21 A22 [A22] is a NR by NC matrix. Remarks 1.If [A] is purged, PARTN will cause all output data blocks to be purged. 2.If {CP} is purged, [A] is partitioned as follows: A11 [A] => ij A21 3.If {RP} is purged and SYM >= 0, [A] is partitioned as follows: [A] => [A11 | A12] 4.If {RP} is purged and SYM < 0, [A] is partitioned as follows: A11 A12 [A] => A21 A22 where {CP} is used as both the row and column partitioner. 5.{RP} and {CP} cannot both be purged. 6. A11 A12 [A] => A21 A22 Let [A] be a m by n order matrix. Let {CP} be a n order column vector containing q zero elements. Let {RP} be a m order column vector containing p zero element. Partition [A11] will consist of all elements Aij of [A] for which CPj = RPi = 0 in the same order as they appear in [A]. Partition [A12] will consist of all elements Aij of [A] for which CPj not equal 0 and RPi = 0 in the same order as they appear in [A]. Partition [A21] will consist of all elements Aij or [A] for which CPj = 0 and RPi not equal 0 in the same order as they appear in [A]. Partition [A22] will consist of all elements Aij of [A] for which CPj not equal 0 and RPi not equal 0 in the same order as they appear in [A]. 7. If the defaults for F11, F21, F12, or F22 are used, the corresponding matrix will be output with a compatible form entered in the trailer. 8. If TYPE = 0, the type of the output matrices will be the type of the input matrix [A]. Examples 1.Let [A], {CP} and {RP} be defined as follows: 1.0 1.0 2.0 3.0 4.0 0.0 0.0 [A] = 5.0 6.0 7.0 8.0 , {CP} = 1.0 , {RP} = 0.0 9.0 10.0 11.0 12.0 1.0 1.0 Then, the DMAP instruction PARTN A,CP,RP / A11,A21,A12,A22 / C,N,1 $ will create the real double precision matrices 2.0 1.0 3.0 4.0 [A11] = 6.0 , F11 = 2 [A12] = 5.0 7.0 8.0 , F12 = 2 [A21] = [10.0] , F21 = 1 [A22] = [9.0 11.0 12.0] , F22 = 2 2.If, in Example 1, the DMAP instruction were written as PARTN A,CP, / A11,A21,A12,A22 / C,N,1 $ the resulting matrices would be 2.0 1.0 3.0 4.0 [A11] = 6.0 [A12] = 5.0 7.0 8.0 10.0 9.0 11.0 12.0 [A21] = purged [A22] = purged 3.If, in Example 1, the DMAP instruction were written as PARTN A,,RP / A11,A21,A12,A22 / C,N,1 $ the resulting matrices would be 1.0 2.0 3.0 4.0 [A11] = 5.0 6.0 7.0 8.0 [A12] = purged [A21] = [9.0 10.0 11.0 12.0] [A22] = purged =PAGE= SDCMPS - Symmetric Decomposition Purpose To decompose a matrix [A] into upper and lower triangular factors [U] and [L]. [A] => [L][U] Badly conditioned matrix columns for symmetric real matrices are identified in external identification numbers. Various user exit controls for error conditions are available. DMAP Calling Sequence SDCMPS USET,GPL,SIL,A / L,U / V,Y,SYM / V,Y,DIAGCK / V,Y,DIAGET / V,Y,PDEFCK / V,N,SING / V,Y,SET / V,Y,CHOLSKY / V,N,DET / V,N,MINDIA / V,N,POWER / V,Y,SUBNAM $ Input Data Blocks USET Displacement Set Definition Table. GPL Grid Point List. SIL Scalar Index List. A A real symmetric matrix (may not be purged). NOTE: Error conditions will be identified by column number if USET, GPL, or SIL are purged for non-substructuring problems. Output Data Blocks L Lower triangular factor of [A]. U Upper triangular factor of [A]. Parameters SYM Input-Integer, default = 0. 1, use symmetric decomposition. -1, use unsymmetric decomposition. 0, use decomposition based on input matrix form. DIAGCK Input-Integer, default = 0. Diagonal singularity or nonconservative column exit flag. = 0 nonfatal messages for es > Ts (see DIAGET and Remark 6 for definitions). > 0 a maximum of DIAGCK messages for es > Ts before aborting decomposition prior to completion. < 0 no check of es. DIAGET Input-Integer, default = 20. Diagonal singularity error tolerance. Used in conjunction with DIAGCK. A message is issued if the error, es > Ts = 2-n, where n = DIAGET. PDEFCK Input-Integer, default = 0. Positive definite exit flag. = 0 nonfatal messages are issued for Dii < 0.0 and fatal messages are issued for Dii = 0.0. > 0 a maximum of PDEFCK fatal messages for all Dii <= 0.0 are issued before aborting decomposition prior to completion < 0 no check for Dii < 0.0. If Dii = 0.0, absolute value of PDEFCK messages are issued before aborting decomposition prior to completion. SING Output-Integer, no default. SING is set to -1 if [A] is singular, 0 if not positive definite, and 1 otherwise, in the given order. SET Input-BCD, default = L. The displacement set to which [A] belongs. CHOLSKY Input-Integer, default = 0. Cholesky decomposition is used if the value is 1 (matrix must be positive definite); Cholesky decomposition is not used for values other than 1. DET Output-Real single precision, default = 0.0. The scaled value of the determinant of [A]. MINDIA Output-double precision, default = 0.0D0. Minimum diagonal of [U]. POWER Output-Integer, default = 0. Integer power of 10 by which DET should be multiplied to obtain the determinant of [A]. SUBNAM Input-BCD, default = NONE. Name of substructure being solved. Not necessary unless this is a substructuring problem. Remarks 1. Non-standard triangular factor matrix data blocks are used to improve the efficiency of the back substitution process in module FBS. The format of these data blocks is given in Section 2 of the Programmer's Manual. 2. If the CHOLSKY option is selected, the resulting factor (which will be written as [U]) cannot be input to FBS. 3. Upon finding a zero diagonal (Dii) on the decomposed matrix, a value of 1.0 is substituted for the diagonal term if decomposition is to proceed. However, the fatal error flag is always set in this case. 4. All zero columns on the input matrix cause fatal messages and decomposition is not attempted. If a system error occurs, a null column might result during decomposition, in which case the column is labeled as a "Bad Column" and the decomposition is aborted. 5. A nonpositive definite matrix (decomposed diagonal element less than zero) causes the absolute value to be substituted only with the Cholesky option and if decomposition is to be continued. 6. The diagonal singularity test is 1-p 2 e = s |Dii/Aii| where p is the number of bits in the mantissa (machine dependent), Dii is the ith diagonal term of the decomposed matrix, and Aii is the ith diagonal term of the input matrix, [A]. 7. All matrix messages give the input and decomposed diagonal value except for situations where the input matrix is in error (for example, the matrix is classified as rectangular or has a null column). 8. Nonconservative columns (identified by Dii > 1.001 * Aii) are identified. 9. Variable parameters output from functional modules must be SAVEd if they are to be subsequently used. See Executive Module SAVE instruction. 10. Setting MODCOM(1) to -1 on the NASTRAN card (see Section 2.1) allows the time and core estimates to be made without actually doing the decomposition. Absolute values greater than 1 replace the variable CLOSE documented in Section 3.5.14.4 of the Programmer's Manual. Examples 1. To use the SDCMPS module in a static analysis (Rigid Format 1), modules SMP1 and RBMG2 must be removed. For this case, the required ALTERs are as follows: ALTER n1 $ (where n1 = DMAP statement number of LABEL LBL4) PARAM //*PREC*/MPREC $ ALTER n2,n2 $ (where n2 = DMAP statement number of the SMP1 module) VEC USET/V/*F*/*O*/*A* $ PARTN KFF,V,/KOO,,KOA,KAAB $ SDCMPS USET,GPL,SIL,KOO/LOO,/C,Y,SYM=0/C,Y,DIAGCK=0/C,Y,DIAGET=20/ C,Y,PDEFCK=0/S,N,SINGO/*O*/0/S,N,DETO/S,N;MINDIAO/ S,N,POWERO $ COND LSING,SINGO $ FBS LOO,,KOA/GO/1/-1 $ MPYAD KOA,GO,KAAB/KAA/1/1/1/MPREC $ ALTER n3,n3 $ (where n3 = DMAP statement number of the RBMG2 module) SDCMPS USET,GPL,SIL,KL/LLL,/C,Y,SYM=0/C,Y,DIAGCK=0/C,Y,DIAGET=20/ C,Y,PDEFCK=0/S,N,SINGL/*L*/0/S,N,DETL/S,N,MINDIAL/ S,N,POWERL $ COND LSING,SINGL $ ALTER n4 $ (where n4 = DMAP statement number of COND FINIS, COUNT) LABEL LSING $ PRTPARM //O/*SINGO* $ PRTPARM //0/*SINGL* $ PRTPARM //-1/*DMAP* $ ENDALTER $ The input parameters SYM, DIAGCK, DIAGET, and PDEFCK may be changed from the values illustrated above either by using the form /C,N,i/ or by including a PARAM bulk data card with a different value. 2. To use the SDCMPS module in a real eigenvalue analysis (Rigid Format 3), modules SMP1 and RBMG2 must be removed. For this case, the required ALTERs are as follows: ALTER n1,n1 $ (where n1 = DMAP statement number of the SMP1 module) VEC USET/V/*F*/*0*/*A* $ PARTN KFF,V,/KOO,,KOA,KAAB SDCMPS USET,GPL,SIL,KOO/LOO,UOO/C,Y,SYM=0/C,Y,DIAGCK=0/C,Y,DIAGET=20/ C,Y,PDEFCK=0/S,N,SINGO/*O*/0/S,N,DETO/S,N,MINDIAO/ S,N,POWERO $ COND LSING,SINGO $ FBS LOO,UOO,KOA/GO/1/-1 $ MPYAD KOA,GO,KAAB/KAA/1 $ ALTER n2,n2 $ (where n2 = DMAP statement number of the RBMG2 module) SDCMPS USET,GPL,SIL,KLL/LLL,/C,Y,SYM=0/C,Y,DIAGCK=O/C,Y,DIAGET=20/ C,Y,PDEFCK=0/S,N,SINGL/*L*/0/S,N,DETL/S,N,MINDIAL/ S,N,POWERL $ COND LSING,SINGL $ ALTER n3 $ (where n3 = DMAP statement number of LABEL P2) LABEL LSING $ PRTPARM //0/*SINGO* $ PRTPARM //0/*SINGL* $ PRTPARM //-1/*DMAP* $ ENDALTER $ The input parameters SYM, DIAGCK, DIAGET, and PDEFCK may be changed from the values illustrated above as indicated under Example 1. =PAGE= SMPYAD - Matrix Series Multiply and Add Purpose To multiply a series of matrices together and, optionally, add another matrix to the product: [X] = [A][B][C][D][E] +/- [F] DMAP Calling Sequence SMPYAD A,B,C,D,E,F / X / C,N,n / V,N,SIGNX / V,N,SIGNF / V,N,PX / V,N,TA / V,N,TB / V,N,TC / V,N,TD $ Input Data Blocks A, B, C, D, E Up to 5 matrices to be multiplied together, from left to right. F Matrix to be added to the above product. NOTES 1. If one of the five multiplication matrices is required in the product (see parameter n below) and is purged, the entire calculation is skipped. 2. If the [F] matrix is purged, no matrix will be added to the product. 3. The input matrices must be conformable. This condition is checked by SMPYAD. Output Data Blocks X Resultant matrix (may not be pre-purged). Parameters n number of matrices involved in the product, counting from the left (Input-Integer). SIGNX sign of the product matrix (for example, [A][B][C][D][E]); 1 for plus, -1 for minus (Input-Integer). SIGNF sign of the matrix to be added to the product matrix (Input- Integer); 1 for plus, -1 for minus PX output precision of the final result (Input-Integer); 1 for single-precision, 2 for double-precision, 0 logical choice based on input matrices. TA, TB,TC, TD transpose indicators for the [A],[B],[C], and [D] matrices; (1 if transposed matrix to be used in the product; 0 if untransposed) (Input-Integer). NOTE All the parameters except n have default values as follows: SIGNX = 1 (sign of product is plus) SIGNF = 1 (sign of added matrix is plus) PX = 0 (logical choice based on input matrices) TA, TB, TC, TD = 0 (use untransposed [A],[B],[C], and [D] matrices in the product) (the number of transpose indicators required is one less than the number of matrices in the product. The last matrix in the product cannot be transposed.) Method The method is the same as for the MPYAD module with the following additional remarks: 1. None of the matrices may be diagonal. 2. Except for the final product, all intermediate matrix products are generated in double-precision. 3. The matrices are post-multiplied together from right-to-left, that is, the first product calculated is the product of matrix n-l and matrix n. Examples 1. To compute [X] = [A][B]T[C]-[F], use SMPYAD A,B,C,,,F / X / C,N,3 / C,N,1 / C,N,-1 / C,N,0 / C,N,0 / C,N,1 $ 2. To compute [Z] = -[U]T[V]T[W]T[X]T[Y], use SMPYAD U,V,W,X,Y, / Z / C,N,5 / C,N,-1 / C,N,0 / C,M,0 / C,N,1 / C,N,1 / C,N,1 / C,N,1 $ =PAGE= SOLVE - Linear System Solver Purpose To solve the Matrix Equation [A][X] = +/- [B] DMAP Calling Sequence SOLVE A,B / X / V,Y,SYM / V,Y,SIGN / V,Y,PREC / V,Y,TYPE $ Input Data Blocks A Square real or complex matrix. B Rectangular real or complex matrix (if purged, the identity matrix is assumed). Output Data Blocks X A rectangular matrix. NOTE: A standard matrix trailer will be written, identifying [X] as a rectangular matrix with the same dimensions as [B] and the type specified. Parameters SYM Input-Integer, default = 0; -1 - use unsymmetric decomposition; 1 -use symmetric decomposition; 0 - logical choice based on input matrices. Output-Integer, SYM used. SIGN Input-Integer, default = 1;1 - solve [A][X] = [B]; -1 - solve [A][X] = -[B]. PREC Input-Integer, default = 0; 0 - logical choice based on input; 1 -use single precision arithmetic; 2 - use double precision arithmetic. Output-Integer, PREC used. TYPE Input-Integer, default = 0; 0 - logical choice based on input; 1 -output type of matrix [X] is real single precision; 2 - output type of matrix [X] is real double precision; 3 - output type of matrix [X] is complex single precision; 4 - output type of matrix [X] is complex double precision Output-Integer, TYPE used. Method Depending on the SYM flag and the type of [A], one of subroutines SDCOMP, DECOMP, or CDECOMP is called to form [A] = [L][U]. One of FBS or GFBS is then called to solve [L][Y] = +/- [B] and [U][X] = [Y], as appropriate. =PAGE= TRNSP - Matrix Transpose Purpose To form [A]T given [A]. DMAP Calling Sequence TRNSP A/X $ Input Data Blocks A Any matrix data block. NOTE: If [A] is purged, TRNSP will cause [X] to be purged. Output Data Blocks X The matrix transpose of [A]. NOTE: [X] cannot be purged. Parameters None. Remarks 1. Transposition of large full matrices is very expensive and should be avoided if possible (see Section 2.1.4 of the Theoretical Manual). 2. TRNSP uses an algorithm which assumes that the matrix is dense. This algorithm is extremely inefficient for sparse matrices. Sparse matrices should be transposed by using MPYAD. =PAGE= UMERGE - Merge Two Matrices Purpose To merge two column matrices (such as load vectors or displacement vectors) into a single matrix. DMAP Calling Sequence UMERGE USET,PHIA,PHIO / PHIF / V,N,MAJOR=F / V,N,SUB0=A / V,N,SUB1=L $ Input Data Blocks USET Displacement set definitions. PHIA, PHIO Any matrices. NOTES 1. The set definitions may be USET (statics), USETD (dynamics), HUSET (heat transfer), or USETA (aeroelastic). 2. USET, USETD, HUSET, or USETA may not be purged. 3. PHIA or PHIO may be purged, in which case their respective elements will be zero. 4. PHIA, PHIO, and PHIF must be related by the following matrix equation: PHIA ==> PHIF PHIO Output Data Blocks PHIF Matrix. NOTE: PHIF cannot be purged. Parameters MAJOR BCD value from table below (Input, no default). SUB0 BCD value from table below (Input, no default). SUB1 BCD value from table below (Input, no default). NOTE: The set equation MAJOR = SUB0 + SUB1 should hold. Parameter Value USET Matrix M Um S Us (union of SG and SB) O Uo R Ur G Ug N Un F Uf A Ua L Ul SG Us (specified on Grid card) SB Us (specified on SPC card) E Ue P Up NE Une (union of N and E) FE Ufe (union of F and E) D Ud PS Ups SA UsA K Uk PA UpA =PAGE= UPARTN - Partition a Matrix Purpose To perform symmetric partitioning of matrices (particularly to allow you to split long running modules such as SMP1). DMAP Calling Sequence UPARTN USET,KII / KJJ,KLJ,KJL,KLL / V,N,MAJOR=I / V,N,SUB0=J / V,N,SUB1=L $ Input Data Blocks USET Displacement set definitions. KII Any displacement matrix. NOTES 1. The set definitions may be USET (statics), USETD (dynamics), HUSET (heat transfer), or USETA (aeroelastic). 2. USET may not be purged. 3. KII may be purged, in which case UPARTN will simply return, causing the output matrices to be purged. Output Data Blocks KJJ, KLJ, KJL, KII Matrix partitions NOTES 1. Any or all output data block(s) may be purged. 2. UPARTN forms: Kjj Kjl [Kii] => Klj Kll Parameters MAJOR BCD value from table below (Input, no default). SUB0 BCD value from table below (Input, no default). SUB1 BCD value from table below (Input, no default). NOTE: The set equation MAJOR = SUB0 + SUB1 should hold. Parameter Value USET Matrix M Um S Us (union of SG and SB) O Uo R Ur G Ug N Un F Uf A Ua L Ul SG Us (specified on Grid card) SB Us (specified on SPC card) E Ue P Up NE Une (union of N and E) FE Ufe (union of F and E) D Ud PS Ups SA UsA K Uk PA UpA Example In Rigid Format 2, module SMP1 performs the following calculations. SMP1 partitions the constrained stiffness and mass matrices _ Kaa Kao [Kff] => Koa Koo and _ Maa Mao [Mff] => Moa Moo solves for transformation matrix -1 [Go] = -[Koo] [Koa] and performs the matrix reductions _ T [Kaa] = [Kaa] + [Koa] [Go] and _ T T T [Maa] = [Maa] + [Moa] [Go] + [Go] [Moa] + [Go] [Moo][Go] Step 1 can be performed by two applications of UPARTN: UPARTN USET,KFF / KAAB,KOA,,KOO / *F*/*A*/*O* $ UPARTN USET,MFF / MAAB,MOA,,MOO / *F*/*A*/*O* $ Step 2 can be performed by SOLVE: SOLVE KOO,KOA / GO / 1 / -1 $ KAA and MAA can then be computed by a sequence of applications of the MPYAD module. Thus, in the above manner, a long running module can be broken down into several smaller steps and the intermediate results can be checkpointed. =PAGE= 5.5 UTILITY MODULES Module Basic Function Page COPY Generate a physical copy of a data block 5.5-3 DATABASE Save data on user tape 5.5-4 GINOFILE Copy scratch file data to GINO file 5.5-13 INPUT Generate most of bulk data for selected academic 5.5-15 problems INPUTT1 Read data blocks from GINO-written user files 5.5-16 INPUTT2 Read data blocks from FORTRAN-written user files 5.5-21 INPUTT3 Read matrix data from special file 5.5-24 INPUTT4 Read user tape in special format 5.5-25 INPUTT5 Read data blocks from FORTRAN-written user files 5.5-27 LAMX Edit or generate data block LAMA 5.5-30 MATGPR Displacement set matrix printer 5.5-32 MATPRN Print matrices 5.5-34 MATPRT Print matrices associated only with geometric grid 5.5-35 points NORM Generate normalized matrices, or normalized column vector OUTPUT1 Write data blocks via GINO onto user files 5.5-36 OUTPUT2 Write data blocks via FORTRAN onto user files 5.5-41 OUTPUT3 Punch matrices onto DMI cards 5.5-44 OUTPUT4 Write data block via FORTRAN onto user files, in dense or sparse format, binary OUTPUT5 Write data blocks via FORTRAN onto user files 5.5-46 PARAM Manipulate parameter values 5.5-53 PARAMD Perform specified arithmetic, logical, and conversion operations on double precision real or double precision complex parameters PARAML Select parameters from a user input matrix or table 5.5-58 PARAMR Similiar to PARAMD, except operation is on single precision real or single precision complex parameters PRTPARM Print parameter values and DMAP error messages 5.5-63 SCALAR Convert matrix element to parameter 5.5-65 SEEMAT Generate matrix topology displays 5.5-67 SETVAL Set parameter values 5.5-69 SWITCH Interchange two data block names 5.5-70 TABPCH Punch NASTRAN tables on DTI cards 5.5-71 TABPRT Print selected table data blocks using readable format 5.5-72 TABPT Print table data blocks 5.5-74 TIMETEST Provide NASTRAN system timing data 5.5-75 VEC Generate partitioning vector 5.5-76 Utility modules are an arbitrary sub-division of the Functional Modules and are used to output matrix and table data blocks and to manipulate parameters. The data block names corresponding to the various matrix and table data blocks used in the Rigid Format DMAP sequences may be found in Volume II or in the NASTRAN mnemonic dictionary, Section 7. =PAGE= COPY - Copy Data Block Purpose To generate a physical copy of a data block. DMAP Calling Sequence COPY DB1 / DB2 / PARAM $ Input Data Blocks DB1 Any NASTRAN data block. Output Data Blocks DB2 Any valid NASTRAN data block name. Parameters PARAM If PARAM <= 0, the copy will be performed - Input-Integer, default = -1. Method If PARAM > 0, a return is made; otherwise a physical copy of the input data block is generated. See Remark 2 below. Remarks 1. The input data block may not be purged. 2. If PARAM < 0, the output data block will have the name of the input data block in its header record. If PARAM = 0, the output data block will have its own name in its header record. =PAGE= DATABASE - Save Data on User Tape Purpose To save following data on user tape, formatted, or unformatted for user external use: 1. Grid points - external numbers, and their x,y,z coordinates in basic rectangular coordinate system. 2. Connecting elements - element names, GPTABD element types, NASTRAN symbols, property IDs (or material IDs if elements have no property IDs), number of grid points, connecting grid (external) numbers. 3. Displacement vectors (including velocity, acceleration vectors, loads, grid point forces, eigenvectors, element stresses, and element forces) - real or complex data in basic rectangular coordinate system, or in NASTRAN global coordinate system, in SORT1 or SORT2 data format, single-case or subcases, displacement or mode shape data. In addition, the grid point masses. DMAP Calling Sequence DATABASE EQEXIN,BGPDT,GEOM2,CSTM,O1,O2,O3//C,N,OUTTP/C,N,FORMAT/C,N,BASIC $ Input Data Blocks EQEXIN External-internal grid tables. Must be present. BGPDT Basic Grid Point Definition Table. If purged, no grid point data sent to OUTTP output tape. If BGPDT is purged, and OUGV is present, displacement vector will not be converted to basic coordinates. GEOM2 Geometry 2 Data Block. If purged, no element connectivity data sent to OUTTP. CSTM Coordinate System Transformation Matrix Data Block. If purged, displacement vectors remain in global coordinate system. O1,O2,O3 Any three output displacement (velocity, acceleration, load, grid point force, eigenvector, element stress, and element force) data blocks written for OFP module. If present, the displacement vectors are processed and results sent out to user OUTTP tape. (See Remark 2 for special input data block MGG.) Oi must be one of the following files characterized by a 1, 2, 3, 7, 10, 11, 15, or 16 on the 2nd word, last 2 digits, of the first header record, and an 8 or a 14 on the 10th word: OUDV1, OUDVC1, OUGV1, OUHV1, OUHVC1, OUPV1, OUPVC1, OUDV2, OUDVC2, OUGV2, OUHV2, OUHVC2, OUPV2, OUPVC2, OUBGV1, OPHID, OPHIG, OPHIH, OCPHIP, OPG1, OPP1, OPPC1, OQG1, OQP1, OQPC1, OQBG1, OPG2, OPP2, OPPC2, OQG2, OQP2, OQPC2, OBQG1, OEF1, OEFC1, OES1, OESC1, OEFB1, OBEF1, OEF2, OEFC2, OES2, OESC2, OESB1, OBES1 If purged, no data are sent out to OUTTP. Output Data Block No GINO output data block. Parameters OUTTP User output tape. Must be one of the UT1, UT2, INPT, INP1, ..., INP9 files; tape or disc file. (Default INP1, FORTRAN Unit 15) Ŀ FORTRAN LOGICAL UNIT, OUTTP USER FILE CODE Ĵ 11 UT1 (CDC only) 12 UT2 (CDC only) 14 INPT (UNIVAC,VAX) 15 INP1 (All 16 INP2 machines : : except 23 INP9 CDC) 24 INPT (IBM only) FORMAT = 0, unformatted output to OUTTP tape (default). = 1, formatted. BASIC = 0, displacement vectors in NASTRAN's global coordinate system (default). = 1, displacement vectors in basic rectangular coordinate system. Example DATABASE EQEXIN,BGPDT,GEOM2,,,, /C,N,15/C,N,+1 $ DATABASE EQEXIN,BGPDT,,CSTM,OUGV,,/C,N,16 $ The first example writes the grid points and element connectivity data out to INP1 tape, formatted. The second example writes the grid points and displacement vectors in NASTRAN global coordinates out to INP2 tape, unformatted. Subroutine DBASE Subroutine for DATABASE Module. Method There are three independent sets of data to be copied out to user tape OUTTP: grids data, connecting elements data, and displacement vectors (velocities, accelerations, eigenvectors, stresses, and forces). If BGPDT file is purged (that is, is not present), the grid point data set is not generated. Similarly, if GEOM2 file is purged, the element connectivity data is not generated; and the same with the OUGV file and the displacement vectors. The exact contents in the output tape OUTTP depend therefore on the input file assignment. In all cases, EQEXIN file is opened and the grid point external number vs. the internal number table is read. If BGPDT file is present, the basic grid point data is read, and each internal grid point number is converted to its external ID number. The grid points x, y, z coordinates from BGPDT are already in the basic rectangular coordinate system. The grid points data are then sorted by their external grid IDs before they are written out to OUTTP tape, under FORTRAN control. The following table gives the precise contents of each record in the OUTTP tape. FOR UNFORMATTED TAPE - GRID POINT DATA IN ONE LONG RECORD: Ŀ RECORD WORD CONTENT (UNFORMATTED) Ĵ 1 1-2 "GRID PTS--------", a 16-letter identification. (BCD*) 2 1 No. of words (this first word not included) in this record. (Integer) 2 External grid ID. (Sorted, integer) 3 0 (Not used; reserved for future use) 4,5,6 x,y,z coordinates in basic rect. coord. system. (single precision real) : Repeat words 2 thru 6 as many times as there are grids * Throughout, "BCD" = alphanumeric characters (Total number of grid points = (WORD 1 of record 2)/5) To read the second record into array XYZ, one can use READ (OUTTP) L,(XYZ(J),J=1,L) FOR FORMATTED TAPE - GRID POINT DATA IN MULTIPLE SHORT RECORDS: Ŀ RECORD WORD CONTENT FORMAT Ĵ 1 1,2 "GRID PTS--------" identification 4A4 2 1 Total number of grid points I8 3 1 External grid ID (Sorted) I8 2 0 (Not used; reserved for future use) I8 3,4,5 x,y,z coordinates in basic rect. 3E12.6 coordinate system. : 1-5 Repeat record 3 as many times as there are grids If GEOM2 file is present, the elements data will be generated next. An element identification record is written out first. Ŀ RECORD WORD CONTENT (FORMATTED or UNFORMATTED) FORMAT Ĵ 1 1-2 "ELEMENTS--------", identification. BCD 4A4 The element data in GEOM2 file will be written out to the OUTTP file almost in the same way, and same order as the original data. A header record is written out for each type of element, then followed by the element data. The element data will be written out in a long record if the OUTTP is unformatted, and in multiple short records, one for each element, if OUTTP is formatted. Notice that the element types are sorted according to the NASTRAN'S GPTABD data block order; and within each type, the elements are sorted by their element IDs. ELEMENT HEADER RECORD FOR THE UNFORMATTED OUTPUT TAPE: Ŀ RECORD WORD CONTENT (UNFORMATTED) Ĵ 2 1-2 Element name. (BCD) 3 Element type number, according to GPTABD order. (Integer) 4 Element symbol. (2 letters) 5 Number of grid points per element. (Integer) 6 Total no. of elements of this current element type. (Integer) 7 No. of words in next record = WORD5 + 2 (Integer) 8 No. of 132-column lines needed in next record if OUTTP is written with a format. (Integer) ELEMENT RECORDS; repeat as many times as there are elements not of the same type (that is, a record for each element type): Ŀ RECORD WORD CONTENT (UNFORMATTED) Ĵ 3 1 Element ID. (Integer) 2 Property ID. (Positive Integer); or 0 (Element has no property ID nor material ID); or Material ID. (Element has no property ID, but it has a material ID. (Negative Integer) 3 0 (Not used; reserved for future use, integer) 4,5,... Element connecting (external) grid points. (Integers) : Repeat words 1,2,3,4... as many times as there are elements of this same type. (See WORD 6 in header record) FOR FORMATTED TAPE ELEMENT HEADER RECORD, IN 8-COLUMN FORMAT: Ŀ RECORD COLUMNS CONTENT FORMAT Ĵ 2 1- 8 "ELEMENT " 8 letters 9-16 Element name 2A4 17-24 " TYPE =" 8 letters 25-28 Elem. type no. according to GPTABD I4 29,30 Blank 2X 31-32 Element symbol A2 33-40 " GRIDS =" 8 letters 41-48 No. of grids per element I8 49-56 " TOTAL =" 8 letters 57-64 Total no. of elements of this elem. type I8 65-72 " WDS/EL=" 8 letters 73-80 No. of words per element in next records I8 81-88 " LINES =" 8 letters 89-96 No. of lines (records) needed on next I8 record for this element type A printout of this header record may look like this: (the ---+++ line is for video aid; it is not part of the record) --------++++++++--------++++++++--------++++++++--------++++++++-- "ELEMENT CBAR TYPE = 34 BR GRIDS = 2 TOTAL = 54 etc." ELEMENT RECORDS (FORMATTED) There should be (TOTAL X LINES) records in each element type: Ŀ RECORD WORD CONTENT FORMAT Ĵ 3 1 Element ID. I8 2 Property ID. (Positive integer); or I8 0 (Element has no property nor material ID); or Material ID. (Element has no property ID, but it has a material ID) 3 0 (Not used; reserved for future use) I8 4-16 First 13 external connecting grid points 13I8 4 (IF NEEDED, and LINES in header record = 2) 1-15 Next 15 Grid points 8X,15I8 5 (IF NEEDED, and LINES in header record = 3) 1-15 More grid points 8X,15I8 : : Repeat element record 3 (and possible 4 and 5) as many times as there are elements of the same type. Repeat the header record and the element records as many times as there are different types of elements. The end of element data records is signaled by an element ENDING record of the following form, 8 words: Words 1 and 2 form the word " -END-", Word 4 holds the symbol "--", and all other words are zeros The ENDING ELEMENT RECORD of the FORMATTED tape looks like this: --------++++++++--------++++++++--------++++++++--------++++++++--- "ELEMENT -END- TYPE = 0 -- GRIDS = 0 TOTAL = 0 etc." If the OUGV file is present, the displacement vectors will be processed and the final results sent out to the OUTTP tape. (In this and the next few paragraphs, the word "displacement" implies also velocity, acceleration, load, grid point force, eigenvector, element stresses, and element forces.) The input OUGV file must be one of the GINO files described in the INPUT DATA BLOCKS section, which gives the displacements in the g-set or p-set, or the other data types. The output data are sorted by their external grid ID numbers. The displacement records in OUTTP also begin with an identification record: Ŀ RECORD WORD CONTENT (FORMATTED OR UNFORMATTED) FORMAT Ĵ 1 1-2 "DISPLCNT--------" identification*. BCD 4A4 (* or "VELOCITY--------", "ACCELERN--------", "LOADINGS--------", "G FORCES--------", "EIGENVCR--------", "E STRESS--------", "E FORCES--------") The original displacement data in NASTRAN are always in the global coordinate system. If the parameter BASIC is zero (default), the displacement vectors will be passed over to OUTTP without changes. However, if the parameter is set to +1, the displacement vectors will be converted to the basic rectangular coordinate system. In this latter case, the coordinate transformation matrices from CSTM will be brought into the computer, the grid point coordinate CID will be identified, and proper coordinate transformation will be applied to the displacements of each grid point. Again, the output OUTTP tape can be formatted or unformatted. In the unformatted tape, each grid point and its displacement values will form one logical record of 8 or 14 words (variable word length if element stresses or element forces). In the formatted tape, one logical record (8 words) is used if the displacement data is real, and an additional record (for data words 9 through 14) if the data is complex. In either case, a formatted record has 128-column of words. Similarly to the grid and element sets of data, a HEADER record is written out to OUTTP first before the grid point displacement vectors. DISPLACEMENT HEADER RECORD FOR UNFORMATTED TAPE Ŀ RECORD WORD CONTENT (UNFORMATTED) Ĵ 2 1 Subcase or mode number. (Integer) 2 Zero or frequency. (Real) 3 Number of words per entry in next record. 4-5 Original data file name, 2 BCD words 6-7 " GLOBAL " if BASIC=0, 2 BCD words " BASIC " if BASIC=1 8-13 CODE (See note below; 6 integers) 14-45 Title, 32 BCD words 46-77 Subtitle, 32 BCD words 78-109 Label, 32 BCD words NOTE: Each code word holds 8 digits. Therefore there are 48 digits, from CODE(1) through CODE(6), and from left to right, they describe the data type of the next displacement record: 1 for integer 2 for real, and 3 for BCD The first digit points to the first data word; 2nd, 3rd, 4th, etc. point to 2nd, 3rd, 4th data words, etc. DISPLACEMENT RECORDS IN UNFORMATTED TAPE - IN ONE LONG RECORD: Ŀ RECORD WORD CONTENT (UNFORMATTED) Ĵ 3 1 No. of words (excluding this first word) in this record. (Integer) 2 External grid point number. (Integer) 3 Point type (1=grid pt. 2=scalar pt. 3=extra pt. 4=modal pt., integer) 4-9 Displacements. (Real parts, t1,t2,t3,r1,r2,r3, single precision real) 10-15 (COMPLEX data only) Displacements. (Imaginary parts, t1,t2,t3,r1,r2,r3, single precision real) : Repeat words 2 thru 9 (or 15) as many times as there are grid points in OUGV file : : Repeat record 3 as many times as there are subcases or frequencies DISPLACEMENT HEADER RECORD FOR FORMATTED TAPE Ŀ RECORD WORD CONTENT (FORMATTED) FORMAT Ĵ 2 1-2 " CASE = " or " MODE = " 8 letters 3 Subcase number I8 4 Zero or frequency 1PE12.5 5-6 " WORDS =" 8 letters 7 NWDS, number of words per entry in next I8 record (=8 for REAL data, or =14 COMPLEX, for all displacement records) 8-9 " INPUT =" 8 letters 10-11 Original GINO file name 2A4 12-13 " COORD =" 8 letters 14-15 " BASIC " or "GLOBAL " 2A4 16-17 " CODE =" 8 letters 18-22 Format code 5I8 8 digits per word, 1 for INTEGER 2 for REAL Ex. 13222200 3 for BCD 0 not applicable 23 NA4, number of words per entry in next I8 record, in A4-word count 3 1-32 Title, 32 BCD words 32A4 4 33-64 Subtitle, 32 BCD words 32A4 5 65-96 Label, 32 BCD words 32A4 DISPLACEMENT RECORDS IN FORMATTED TAPE - IN MULTIPLE SHORT RECORDS: Ŀ RECORD WORD CONTENT FORMAT Ĵ 6 1 External grid point number. (Integer) I8 2 Point type (1=grid pt. 2=scalar pt. I8 3=extra pt. 4=modal pt., integer) 3-8 Displacements. (Real parts, 6E12.6 t1,t2,t3,r1,r2,r3, single precision real) 7 (COMPLEX DATA only) 1-6 Displacements (Imaginary parts, 16X,6E12.6 t1,t2,t3,r1,r2,r3, single precision real) : : Repeat record 6 (records 6 and 7 if complex data) as many times as there are grid points At the end of each subcase, if the output tape OUTTP is formatted, a ZERO record (two records if data is complex) is written out to OUTTP tape. This ZERO record has the same format as a DISPLACEMENT record, and consists of 8 or 14 zeros (first two are integers, minus zeros). This ZERO record is not needed in the unformatted OUTTP output tape. Repeat the HEADER record, the DISPLACEMENT records, and the ZERO record (formatted OUTTP tape only) as many times as there are subcases. At the end of the last subcase, or end of the input file OUGV, an ENDING record is written out. It has the same form as the HEADER record: DISPLACEMENT ENDING RECORD Ŀ RECORD WORD CONTENT (UNFORMATTED) Ĵ LAST 1 Zero. (Integer) 2 Zero. (Real) 3 Zero. (Integer) 4-5 " -END-". (BCD) 6-101 96 Blank words. (BCD) Ŀ RECORD WORD CONTENT (FORMATTED) FORMAT Ĵ LAST 1-2 " CASE = " or " MODE = " 8 letters 3 Minus 0 (Integer) I8 4 Zero 1PE12.5 5-6 " WORDS =" 8 letters 7 Minus 0 (Integer) I8 8-11 " INPUT = -END- " 16 letters 12-17 Blanks 4A4 LAST+1 1-32 Blanks 32A4 LAST+2 1-32 BLANKS 32A4 LAST+3 1-32 Blanks 32A4 If OUGV is an element stress or an element force file, the stress or force data have variable length depending on the type of element. The stress or force records written to the OUTTP tape are therefore different from those of the displacement records. The element stress or force record has the following forms: Ŀ RECORD WORD CONTENT (UNFORMATTED) Ĵ 3 1 Number of words, excluding this first word, in this record. (Integer) 2-NWDS Element ID, stress or force data (Variable data types are described in "CODE") : Repeat (2-NWDS) words as many times as there are elements. : : Repeat record 3 as many times as there are subcases. where NWDS is the number of computer words per entry, and CODE is the 6-word format code, as described in header record. or Ŀ RECORD WORD CONTENT (FORMATTED) FORMAT Ĵ 6 1-NA4 Element ID, stress or force data 33A4 (The data types are described in "CODE"; all integers in 2A4, real numbers in 3A4, and BCD in A4) : : (Maximum record length is 132 columns (33A4); continuation into next record(s) if necessary) : : Repeat above record(s) as many times as there are elements where NA4 is the number of words per entry in A4-word count, and CODE is 5-word format code. Notice that the DATABASE module does not copy out the external-internal grid points table in EQEXIN file, nor the coordinate transformation matrices in CSTM. The coordinate systems originally associated with the external grid points are never mentioned in the OUTTP tape. If you must copy the EQEXIN and CSTM files (both are in table forms), OUTPUT5 can be used. Design Requirement The DATABASE module is mapped in NASTRAN Links 2, 4, and 14. This module is accessible only through a NASTRAN DMAP Alter. Minimum open core requirement = 10 x (total number of grid points) words. The formatted outputs are flagged only by the parameter FORMAT. The formatted output records are designed not to exceed 132 columns in length and include printer carriage control. In most cases, I8-formats are used for integers and E12.6 for real data (no double precision words used); and BCD words are in multiples of 2A4. The entire OUTTP file can be printed, or it can be edited by a system editor. The formatted OUTTP file, if written on magnetic tape by a computer, can be used in another computer of a different manufacturer. The unformatted OUTTP file is more efficient, and the integer and real data are more accurate. The grid point data and data of each connecting element type are written out unformatted in long records; that requires large working space in the computer system. On the other hand, only short records are written to the formatted OUTTP file, and the working space requirement is less critical. Remarks 1. Conversion of element stresses or forces to the basic coordinates is not allowed. 2. The mass matrix, MGG, can be one of the Oi input data blocks due to its special characteristics and application. The mass engineering data will be arranged in their external grid point order. The formatted and unformatted records of the mass data are arranged similarly to the grid point data, except the words 4, 5, 6 (X, Y, Z coordinates of the grid point) are replaced by mass-x, mass-y, mass-z, moment of inertia-x, moment of inertia-y, moment of inertia-z, words 4 through 9. Diagnostic Messages Message numbers 3001, 3002, and 3008 may be issued by DATABASE. =PAGE= GINOFILE - GINO File Creation Purpose To capture data from a scratch file of a preceding DMAP module and copy the data to a NASTRAN GINO file. Type of data can be table or matrix. (Not available for CDC.) DMAP Calling Sequence GINOFILE /FILE/C,N,P1/C,N,P2/C,N,P3 $ Input Data Blocks None. Output Data Blocks FILE Any GINO output file name. Parameters P1 Any 300-series scratch file number (301,302,303,...), Integer. P2 Additional records to be skipped on P1 file before data transfer from P1 to FILE, Integer. GINOFILE will automatically skip over header record if a header record exists in P1, or it will not skip if it does not exist. (Default P2 = 0.) Data transfer starts from P2+1 record after header (or no header) record on scratch file. P3 Last record to be copied, or up to an EOF mark on P1 file. Total number of records copied is (P3 - P2), Integer. (Default is to copy to EOF mark.) Subroutine GINOFL Subroutine in GINOFILE module. Method At the end of a NASTRAN executable module, all the input files, output files, and scratch files are closed. The input files are read only and they will remain untouched. The output files are saved, and their names are preserved. (The output file names are actually allocated before the beginning of the module execution). The scratch files are released without any mechanism of saving them. However, the data of the scratch files are still in the system disc space, and will remain there until they are over-written by another part (or another module) of the NASTRAN program. It is at this point that GINOFILE module accesses a scratch file of the preceding module and copies the data to a GINO output file, without changing the scratch file data. Tables or matrices are copied the same way, as they exist in the original form on the scratch file. A NASTRAN GINO file always has a header record and a 6 word trailer. However, the header record and the trailer are not required for a scratch file, and they may or may not exist. The GINOFILE module will first test the header record of the scratch file and skip over it, if it exists. A header record is always generated by GINOFILE for the new GINO file. The beginning record and the ending record where data are to be transferred are under user control. Finally, a trailer for the output file is generated and saved. An EOF record is written to the new GINO file at the completion of the module. Design Requirement The GINOFILE module is mapped in all NASTRAN Links, except LINK1. You can request this module through a regular NASTRAN DMAP Alter. You must request this module immediately following the DMAP module where the scratch file was used. It is your responsibility to see that the Executive Segment File Allocator, XSFA, does not come in between the preceding DMAP module and this GINOFILE module. If XSFA does intervene before GINOFILE execution, the FIAT/OSCAR table (see XSFA Module description in section 4.9) is rearranged, and the scratch files are no longer accessible. If XSFA does intervene, you can provoke the XSFA operation and FIAT/OSCAR table rearrangement before the execution of preceding DMAP module so that XSFA will not come in between this preceding and GINOFILE modules. The technique here can involve a DMAP alter to PURGE some obsolete files, TABPT to print some files that have been generated some time ago, and currently are not on the FIAT/OSCAR table, or any other DMAP module that would disturb the NASTRAN filing system. You could turn on DIAG 2 and observe the flow of the GINO files created or allocated by XSFA/FIAT/OSCAR operation. If the scratch file in the preceding DMAP module was used repeatedly such as being used in a loop, only the "last-time-used" set of data on the scratch file can be copied out by GINOFILE. You should turn on DIAG 8,15,-n (where n is the current LINK number) and see that the scratch file, FORTRAN unit number, and associated trailers are being processed correctly. Diagnostic Messages Message numbers 3001, 3002, and 3008 may be issued by GINOFILE. =PAGE= INPUT - Input Generator Purpose Generates the majority of the bulk data cards for selected academic problems. Used in many of the official NASTRAN Demonstration Problems. DMAP Calling Sequence INPUT I1,I2,I3,I4,I5 / 0l,02,03,04,05 / C,N,a / C,N,b / C,N,c $ Input Data Blocks Appropriate preface outputs. Output Data Blocks Appropriate for the problem being generated. Parameters The three parameters are used in conjunction with data read by INPUT from the input stream to define the problem being generated. Method Since INPUT is intimately related to bulk data card input, a detailed description of this module has been placed in Section 2.6. =PAGE= INPUTT1 - Read User Files Purpose Recovers up to five data blocks from a user file (on either tapes or mass storage devices) and checks your file label where the expected format is that created by Utility Module OUTPUT1. Also used to position your file (including handling of multiple reel tapes) prior to reading the data blocks. Multiple calls are allowed. A message is written for each data block successfully recovered and after each tape reel switch. (User tape reel switching is available only on the IBM and UNIVAC versions.) (The companion module is OUTPUT1.) DMAP Calling Sequence INPUTT1 / DB1,DB2,DB3,DB4,DB5 / V,N,P1 / V,N,P2 / V,N,P3 / V,N,P4/ $ Input Data Blocks Input data blocks are not used in this module call statement. Output Data Blocks DBi Data blocks which will be recovered from one of the NASTRAN permanent files INPT, INP1, INP2 through INP9. Any or all of the output data blocks may be purged. Only nonpurged data blocks will be taken from the file. The data blocks will be taken sequentially from the file starting from a position determined by the value of the first parameter. Note that the output data block sequence A,B,,, is equivalent to ,A,,B, or ,,,A,B. Parameters Parameters P1 and P2 are integer inputs. P3 and P4 are BCD. 1. The meaning of the first parameter (P1) value is given in the table below. (The default value is 0.) Ŀ P1 Value Meaning Ĵ +n Skip forward n data blocks before reading. 0 Data blocks are read starting at current position. Current position for first use of a file is at label (P3). Hence P3 counts as one data block. -1 Rewind before reading, position file past label (P3). -2* Mount new reel and position new reel past label (P3) before reading. -3 Print data block names and then rewind before reading. -4* Current tape reel will have an end-of-file mark written on it, will be rewound and dismounted, and then a new tape reel will be mounted with ring out and rewound before reading the data blocks. This option should be used when a call to INPUTT1 is preceded by a call to OUTPUT1 using the same User Tape. -5 Search user file for first version of data block (DBi) requested. If any (DBi) are not found, fatal termination occurs. -6 Search user file for final version of data block (DBi) requested. If any (DBi) are not found, fatal termination occurs. -7 Search user file for first version of data block (DBi) requested. If any (DBi) are not found, a warning message is written on the output file and the run continues. -8 Search user file for final version of data block (DBi) requested. If any (DBi) are not found, a warning message is written on the output file and the run continues. * Valid only for files that reside on physical tape. User tape reel switching is available only on the IBM and UNIVAC versions. 2. The second parameter (P2) for this module is your File Code shown in the table below. (The default value is 0.) Ŀ User File Code GINO File Name Ĵ 0 INPT 1 INP1 2 INP2 3 INP3 4 INP4 5 INP5 6 INP6 7 INP7 8 INP8 9 INP9 3. The third parameter (P3) for this module is used as your File Label for NASTRAN identification. The label (P3) is an alphanumeric variable of eight characters or less (the first character must be alphabetic). The value of P3 must match a corresponding value on your file. The comparison of P3 and the value on your file is dependent on the value of P1 as shown in the table below. (The default value for P3 is XXXXXXXX). Ŀ P1 Value File Label Checked Ĵ +n No 0 No -1 Yes -2 Yes (On new reel) -3 Yes (Warning Check) -4 Yes (On new reel) -5 Yes -6 Yes -7 Yes -8 Yes 4. If the fourth parameter, P4, is set to "MSC", the FORTRAN input tape is assumed to be written in MSC/INPUTT1 compatible record formats. Default is blank. Examples (Most examples use the default value for P2 and P3 which means the use of permanent NASTRAN file INPT and NASTRAN user file label of XXXXXXXX.) 1. INPUTT1 / A,B,,, / $ Read data blocks A and then B from user file INPT starting from wherever INPT is currently positioned. If this is the first module to manipulate INPT, the file will automatically be initially positioned at the beginning of your file label. In this case, the first parameter of INPUTT1 must be set to either one (1) to skip past the label or minus one (-1) to rewind the file and position it at the beginning of the first data block (A). 2. INPUTT1 / ,,,, / C,N,-1 / C,N,3 $ Rewind INP3 and check user tape label. 3. INPUTT1 / A,,,, / C,N,-2 $ Mount a new reel of file (without write ring) for INPT and read data block A from the first file position. The label of the new reel of tape will be checked. 4. INPUTT1 / ,,,, / C,N,-2 $ INPUTT1 / A,,,, / C,N,0 $ This is equivalent to example 3. 5. INPUTT1 / A,B,C,D,E / C,N,14 $ Starting from the current position, skip forward 14 data blocks on INPT and read the next five data blocks into A, B, C, D, and E. Do not check your file label. 6. INPUTT1 / ,,,, / C,N,-3 $ INPUTT1 / A,B,C,D,E / C,N,14 $ A complete list of data block names will be provided including a warning check of your file label. Then, it will be the same as example 5 only if the current position in that example is at the beginning of the first data block. 7. INPUTT1 / ,,,, / C,N,-2 $ INPUTT1 / ,,,, / C,N,-3 $ INPUT / A,B,,, / C,N,14 $ Mount a new reel of tape for INPT and check the new reel's label. Print the names of all data blocks on the new tape and give a warning check for tape label. Read the 15th and 16th data blocks into A and B. INPT will end up positioned at the beginning of the 17th data block if present. More Difficult Examples Using Both INPUTT1 and OUTPUT1 Example 1 a. Objectives: 1. Obtain printout of the names of all data blocks on INPT. 2. Skip past the first four data blocks, replace the next two with data blocks A and B, and retain the next three data blocks. 3. Obtain printout of the names of all data blocks on INPT after 2 has been done. b. DMAP Sequence: BEGIN $ (1) INPUTT1 / ,,,, / C,N,-3 $ (2) INPUTT1 / ,,T1,T2,T3 / C,N,6 $ (3) INPUTT1 / ,,,, / C,N,-1 $ (4) OUTPUT1 A,B,T1,T2,T3 // C,N,4 $ (5) OUTPUT1 , ,,,, // C,N,-3 $ (6) END $ (7) c. Remarks: 1. DMAP sequence (2) accomplishes objective 1 and rewinds INPT. 2. DMAP sequence (3) recovers data blocks 7, 8, and 9. This is necessary because they would be effectively destroyed by anything written in front of them on INPT. 3. DMAP sequence (4) rewinds INPT. 4. DMAP sequence (5) accomplishes objective 2. 5. DMAP sequence (6) accomplishes objective 3 and leaves INPT positioned after the ninth file, ready to receive additional data blocks. 6. Note that INPUTT1 is used whenever possible to avoid the possibility of mistakenly writing on INPT prematurely. Example 2 a. Objectives: 1. Write data blocks A, B, and C on INPT. 2. Obtain printout of the names of all data blocks on INPT after step 1. 3. Make two copies of the file created in 1. 4. Add data blocks D and E to one of the files. 5. Obtain the names of all data blocks on INPT after 4. b. DMAP Sequence: BEGIN $ (1) OUTPUT1 A,B,C,, // C,N,-1 $ (2) OUTPUT1 , ,,,, // C,N,-3 $ (3) OUTPUT1 A,B,C,, // C,N,-2 $ (4) OUTPUT1 A,B,C,, // C,N,-2 $ (5) OUTPUT1 D,E,,, // C,N,0 $ (6) OUTPUT1 , ,,,, // C,N,-3 $ (7) END $ (8) c. Remarks: 1. DMAP Sequence (2) accomplishes objective 1. 2. DMAP Sequence (3) accomplishes objective 2. The statement INPUTT1 / ,,,, / C,N,-3 $ will do the same thing and add a rewind. 3. Statements (4) and (5) accomplish objective 3. 4. Statement (6) accomplishes objective 4 where the third file tape is used. 5. Statement (7) accomplishes objective 5. The statement INPUTT1 / ,,,, / C,N,-3 $ will do the same thing and add a rewind. 6. On machines where tape reel switching is not implemented, the second parameter can be used as follows: BEGIN $ OUTPUT1 A,B,C,, // C,N,-1 $ OUTPUT1 , ,,,, // C,N,-3 $ OUTPUT1 A,B,C,, // C,N,-1 / C,N,1 $ OUTPUT1 A,B,C,, // C,N,-1 / C,N,2 $ OUTPUT1 D,E,,, // C,N,0 / C,N,2 $ OUTPUT1 , ,,,, // C,N,-3 / C,N,2 $ END $ =PAGE= INPUTT2 - Read User-Written FORTRAN Files Purpose Recovers up to five data blocks from a FORTRAN-written user file (either on tape or mass storage). This file may be written either by a user-written FORTRAN program or by the companion module OUTPUT2. The Programmer's Manual describes the format of the file which must be written in order to be readable by INPUTT2. DMAP Calling Sequence INPUTT2 / DB1,DB2,DB3,DB4,DB5 / V,N,P1 / V,N,P2 / V,N,P3 /V,N,P4 / V,N,P5 / V,N,P6 $ Input Data Blocks Input data blocks are not used in this module call statement. Output Data Blocks DBi Data blocks which will be recovered from one of the NASTRAN FORTRAN tape files UT1, UT2, through UT5. Any or all of the output data blocks may be purged. Only non-purged data blocks will be taken from the file. The data blocks will be taken sequentially from the file starting from a position determined by the value of the first parameter. Note that the output data block sequence A,B,,, is equivalent to ,A,,B, or ,,,A,B. Parameters Parameters P1, P2, P4, and P5 are integer inputs. P3 and P6 are BCD. 1. The meaning of the first parameter (P1) value is given in the table below. (The default value is 0.) Ŀ P1 Value Meaning Ĵ +n Skip forward n data blocks before reading. 0 Data blocks are read starting at the current position. The current position for the first use of a file is at the label (P3). Hence, P3 counts as one data block. -1 Rewind before reading, position file past label (P3). -3 Print data block names and then rewind before reading. -5 Search user file for first version of data block (DBi) requested. If any (DBi) are not found, fatal termination occurs. -6 Search user file for final version of data block (DBi) requested. If any (DBi) are not found, fatal termination occurs. -7 Search user file for first version of data block (DBi) requested. If any (DBi) are not found, a warning message is written on the output file and the run continues. -8 Search user file for final version of data block (DBi) requested. If any (DBi) are not found, a warning message is written on the output file and the run continues. Important Note On the UNIVAC and DEC VAX versions, the FORTRAN files used with the INPUTT2/OUTPUT2 modules are automatically rewound every time a link change occurs in the program. In general, a link change can be assumed to occur whenever a DMAP statement other than an INPUTT2 statement follows an INPUTT2 statement; similarly, whenever a DMAP statement other than an OUTPUT2 statement follows an OUTPUT2 statement. For this reason, the following cautions should be noted on these versions when using the various values for the parameter P1 in an INPUTT2 or OUTPUT2 DMAP statement. Ŀ Cautions for UNIVAC and DEC VAX versions Ĵ Parameter P1 Remarks Ĵ 0 or +n You must be certain that this INPUTT2 statement immediately follows another INPUTT2 statement; or that this OUTPUT2 statement immediately follows another OUTPUT2 statement, to avoid a link change that would cause the rewinding of the FORTRAN file. -1 to -8 No cautions. -9 You must be certain that this OUTPUT2 statement immediately follows another OUTPUT2 statement, to avoid a link change that would cause the rewinding of the FORTRAN file. 2. The second parameter (P2) for this module is the FORTRAN unit number from which the data blocks will be read. The allowable values for this parameter are highly machine- and installation-dependent. Reference should be made to Section 4 of the Programmer's Manual for a discussion of this subject. For CDC machine (default is 11): Ŀ User File Code FORTRAN File Name Ĵ 11 UT1 12 UT2 For all others (default is INPT): Ŀ User File Code FORTRAN File Name Ĵ 14 INPT 15 INP1 16 INP2 : : 23 INP9 IBM/MVS only: INPT is user file code 24. 3. The third parameter (P3) for this module is used as the FORTRAN User File Label for NASTRAN identification. The label (P3) is an alphanumeric variable of eight characters or less (the first character must be alphabetic). The value of P3 must match a corresponding value on the FORTRAN user file. The comparison of P3 and the value on your file is dependent on the value of P1 as shown in the table below. (The default value for P3 is XXXXXXXX.) Ŀ P1 Value File Label Checked Ĵ +n No 0 No -1 Yes -3 Yes (Warning Check) -5 Yes -6 Yes -7 Yes -8 Yes 4. The fourth parameter (P4) is not used. P4 is used only in the OUTPUT2 module to specify the maximum record size. 5. If the fifth parameter (P5) is non-zero, the FORTRAN tape was written with sparse matrix format by the OUTPUT2 module. Therefore, the P5 parameters for INPUTT2 and OUTPUT2 should be set the same. Default P5 is zero. 6. If the sixth parameter (P6) is set to "MSC", INPUTT2 will process the FORTRAN input tape as if it were generated previously from an MSC/OUTPUT2 run. Default P6 is blank. Examples INPUTT2 is intended to have the same logical action as the GINO User File module INPUTT1 except for tape reel switching. It is therefore suggested that the examples shown under module INPUTT1 be used for INPUTT2 as well, excepting the ones involving tape reel switching. =PAGE= INPUTT3 - Auxiliary Input File Processor Purpose Reads matrix data from a specially formatted file into specified GINO matrix data blocks. DMAP Calling Sequence INPUTT3 /01,02,03,04,05/ V,N,UNIT/ V,N,ERRFLG/ V,N,TEST $ Input Data Blocks No GINO data blocks. See parameter UNIT for FORTRAN input unit. Output Data Blocks 0i GINO written matrix data blocks. Any or all of the output data blocks may be purged. Parameters UNIT Input, FORTRAN input tape unit number; default is 11. Tape is rewound before read if UNIT is negative. ERRFLG Input, error control: = 1, job terminated if data block on tape not found. = 0, no termination if data block not found. TEST Input, file name check: = 1, will search tape for DMAP 0i tape match. = 0, no check of file names on tape and DMAP 0i names. Remarks 1. Input tape unit must be written according to special format specification, including header, end-of-data mark, and matrix data. =PAGE= INPUTT4 - Read User Tape Purpose Reads user tape, as generated by OUTPUT4, MSC/NASTRAN/OUTPUTi, where i = 1, 2, 3, or 4. Recovers up to five matrix data blocks from a user tape and checks your tape label where the expected format is that created by utility modules OUTPUT1, OUTPUT2, or OUTPUT4 of the MSC/NASTRAN. (Your tape may reside either on physical tape or on mass storage devices.) Also used to position your tape prior to reading the data blocks. Multiple calls to INPUTT4 are allowed. A message is written for each data block successfully recovered. User tape from OUTPUT1 and OUTPUT2 is binary. Tape from OUTPUT4 can be binary or ASCII. DMAP Calling Sequence INPUTT4 / DB1,DB2,DB3,DB4,DB5 / V,N,P1 / V,N,P2 / V,N,P3 / V,N,P4 $ Input Data Blocks None. Output Data Blocks DBi Data blocks which will be recovered from one of the NASTRAN permanent files INPT, INP1, INP2 through INP9 (UT1 or UT2 for CDC machine). Any or all of the output data blocks may be purged. Only non-purged data blocks will be taken from the file. The data blocks will be taken sequentially from the file starting from a position determined by the value of the first parameter. Note that the output data block sequence A,B,,, is NOT equivalent to ,A,,B. A purged file on the output data block list will cause skipping of one data block on the input tape. (See Example 1.) Parameters Parameters P1, P2, and P4 are integer inputs. P3 is BCD. P1 Tape position control. See P1 of INPUTT1 module if P4 is -1. See P1 of INPUTT2 module if P4 is -2. If P4 is greater then -1, P1 takes on following meanings: P1 = -3, print data block names on tape, then rewind before reading. P1 = -2, rewind tape at end. P1 = -1, rewind tape before reading. P1 = 0, read tape starting from current tape position. P1 = n, skip forward n records (plus tape header record if it exists) starting at current tape position. P2 FORTRAN input tape number. P2 is positive if tape was written in binary records, and is negative if in ASCII records. P3 Tape label. Default is "XXXXXXXX". P3 is used only when P4 = -1 or -2. P4 Tape module control, Integer. P4 = -1, tape was originally written by MSC/OUTPUT1 module. P4 = -2, tape was originally written by MSC/OUTPUT2 module. P4 = -4, tape was originally written by MSC/OUTPUT4 module. P4 = 0, tape was written by OUTPUT4 module (default). P4 >= 1, see Remarks 6 and 7. Parameters equivalence for COSMIC/INPUTT4 and MSC/INPUTT4/OUTPUT4: COSMIC/INPUTT4 MSC/INPUTT4/OUTPUT4 -------------- ------------------- P1 NMAT (number of matrices on tape) P2 P2 P3 P1 P4 BCDOPT Methods If the input tape was created by MSC/OUTPUT1, INPUTT4 calls COSMIC/INPUTT1 module to read the tape, with additional information that the tape was not created by COSMIC/OUTPUT1 module. Similarly, INPUTT4 module calls COSMIC/INPUTT2 to process the MSC/OUTPUT2 tape. If the input tape was created by COSMIC or MSC OUTPUT4 module, INPUTT4 module calls a special subroutine, INPUT4, to read the tape, formatted (ASCII), or binary (unformatted). Examples 1. Input tape INP1 (logical unit 15) contains 5 matrices, written by COSMIC or MSC/OUTPUT4, binary format. We want to copy file 3 to A, and file 5 to B. INPUTT4 /,,A,,B/-1/15 $ REWIND, READ & ECHO HEADER RECORDS 2. To copy the first 2 files of a formatted tape INP2 (unit 16), written by COSMIC/OUTPUT4, formatted. INPUTT4 /A,B,,,/-1/-16 $ 3. Print the data block names on INP3 tape (Tape Code 3), rewind, and copy files 2 and 3 of an INP3 tape written by MSC/OUTPUT1. Tape contains a header record (record 0), and tape id "MYFILE". INPUTT4 /,A,B,,/-3/3/*MYFILE*/-1 $ Remarks 1. Companion OUTPUT4 module does not generate OUTPUT1 or OUTPUT2 type of records. 2. GINO buffer sizes in COSMIC/NASTRAN and MSC/NASTRAN must be synchronized. See NASTRAN BUFFSIZE option. 3. INPUTT4 module cannot accept mixed output files from MSC/OUTPUT1, OUTPUT2 and OUTPUT4 on one input tape. 4. INPUTT4 module may not process ASCII records correctly from an MSC/OUTPUT4 input tape, due to insufficient information in the MSC User's Manual. 5. INPUTT4 module does not handle any table data block, including the six special tables KELM, MELM, BELM, KDICT, MDICT, and BDICT, that are handled specially in the OUTPUT4 module. 6. If the input tape is written in ASCII records (P2 < 0 and P4 > 0), the following formats are used to read the tape: If P4=1, integers are read in I13, and single precision real data in 10E13.6, or integers are read in I16, and double precision real data in 8D16.9. The selection of formats must agree with the P3 setting in OUTPUT4 module, or the precision of the matrix on input tape. If P4=2, integers are read in I16, and single precision real data in 8E16.9. This option is available only for machines with long word size, 60 bits or more per word. The matrix header record is read in by (1X,4I13,5X,2A4). 7. See OUTPUT4 module for record construction. 8. The tape label P3 is not used in INPUTT4 and OUTPUT4. =PAGE= INPUTT5 - Read User-Written FORTRAN File Purpose Recovers up to five data blocks from a FORTRAN-written user file, formatted or unformatted. (The FORTRAN file may reside either on physical tape or on a mass storage device.) This file may be written either by a user-written FORTRAN program or by the companion module OUTPUT5. The Programmers' Manual describes the format of your tape which must be written in order to be readable by INPUTT5. The unformatted binary tape can only be read by a computer of the same manufacturer as the one that created the tape. The formatted tape can be created and read by different computers (CDC, UNIVAC, IBM, and VAX). The data blocks to be recovered can be matrices, tables, or both. DMAP Calling Sequence INPUTT5 /DB1,DB2,DB3,DB4,DB5/C,N,P1/C,N,P2/C,N,P3/C,N,P4 $ INPUTT5 is intended to have the same logical action as the FORTRAN User File module INPUTT2 and the GINO User File module INPUTT1 except for formatted tape. It is therefore suggested that the examples shown under modules INPUTT2 and OUTPUT1 be used for OUTPUT5 as well, excepting the addition of the P4 parameter. Input Data Blocks None. Output Data Blocks DBi Data blocks which will be recovered from one of the NASTRAN tape files INP1, INP2 through INP9 (UT1, UT2 for CDC computer). Any or all of the output data blocks may be purged. Only non-purged data blocks will be taken from your tape. The data blocks will be taken sequentially from the tape starting from a position determined by the value of the first parameter. Note that any purged output file will cause skipping of a corresponding file in your input tape. The output data block sequence A,B,,, is not equivalent to ,A,,B, or ,,,A,B. Parameters 1. The meanings of the first three parameter values (P1, P2, P3) are the same as those described for INPUTT2 Module, except (1) values -5 through -8 for P1 are not available, and a new P1=-9 to rewind input tape; and (2) your file code and the FORTRAN file name are given below. (The default value for P2 is 16, or 12 for a CDC computer.) Ŀ FORTRAN LOGICAL UNIT, P2 USER FILE CODE Ĵ 11 UT1 (CDC only) 12 UT2 (CDC only) 14 INPT (UNIVAC,VAX) 15 INP1 (All 16 INP2 machines : : except 23 INP9 CDC) 24 INPT (IBM only) 2. The fourth parameter (P4) for this module is used to specify whether your tape was written with formats (P4=1 or 2), or binary tape (P4=0). Default is P4=0. On the formatted tape, the selection of formats for real data must be consistent with the precision of the matrix data block coming from the input tape. If P4=1, and the matrix is in single precision, format 10E13.6 is used. If the matrix is in double precision and P4=1, 5D23.17 is selected. Format I13 is used for integers in both cases. For machines with long words only, 60 bits or more per word, the single precision format can be switched to 5E23.17 for numeric accuracy by setting P4 to 2. A fatal error in reading the input tape may occur if P4 is set erroneously with respect to the content of the tape. Methods Since INPUTT5 is intended to be a companion module to OUTPUT5, it is therefore suggested that you should refer to the Methods and Remarks sections of the OUTPUT5 module for input tape structure. Subroutine INPTT5 is the main driver for the INPUTT5 module. Its primary function is to read matrix data blocks from your input tape. When a table data block is encountered, INPTT5 calls subroutine TABLEV to process the data. Your input tape always begins with a tape ID record which tells when the tape was generated, on what machine, tape identification, formatted or unformatted tape, and NASTRAN system buffer size. This tape ID record can be skipped, or read by the following FORTRAN code: INTEGER TAPEID(2),MACHIN(2),DATE(3),BUFSIZ,P4X READ (TAPE ) TAPEID,MACHIN,DATE,BUFSIZ,P4X or READ (TAPE,10) TAPEID,MACHIN,DATE,BUFSIZ,P4X 10 FORMAT (2A4,2A4,3I8,I8,I8) Unformatted Tape The rest of the unformatted tape can be read by the following FORTRAN code: READ (TAPE) L,J,K,(ARRAY(I),I=J,K) where L is a control word: L = 0, ARRAY contains matrix (or table) header record = +n, ARRAY contains data for the nth column of the matrix = -1, ARRAY contains end of matrix record. The ARRAY below J and above K are zeros. The matrix header record and the table header record (L=0) differ only on the 5th and 6th words of ARRAY. If both words are zeros, it is a table header, and the entire table data can be read by: READ (TAPE) L,(ARRAY(I),I=1,L) where ARRAY may contain integers, BCD words, and real single and double precision numbers. Table data ends with a (1,0.0) record. Formatted Tape For matrix data, the rest of the formatted tape can be read by: READ (TAPE,20) L,J,K,(ARRAY(I),I=J,K) 20 FORMAT (3I8,/,(10E13.6)) (for single precision data), or 20 FORMAT (3I8,/,(5D26.17)) (for double precision data), or 20 FORMAT (3I8,/,(5E26.17)) (P4 = 2) where the control words L, J, and K are the same as in the unformatted case, and the data type, single or double precision, is determined already by the 4th word of the matrix trailer embedded in the matrix header record. (See Remark 5 of OUTPUT5 module) For table data, the rest of the formatted tape can be read by: CHARACTER*5 ARRAY(500) READ (TAPE,30) J,(ARRAY(I),I=1,J) 30 FORMAT (I10,24A5,/,(26A5)) Notice the formatted record was written in the units of 5-byte character words, and the first byte of each unit indicates what data type follows. The following table summarizes the method to decode the character data in ARRAY. Ŀ DATA TYPE FIRST BYTE OF ARRAY UNITS USED FORMAT Ĵ "/" BCD word 1 A4 "I" Integer 2 I9 "R" Real, s.p. 3 E14.7 "D" Real, d.p. 3 D14.7 "X" Filler 1 4X Table data ends with a (1,"0") record. Examples $ COPY KJI AND KGG TO INP1 (UNIT 15), SEQUENTIAL FORMATTED TAPE OUTPUT5 KJI,KGG,,,//-1/15/*MYTAPE*/1 $ $ RECOVER THE 2 FILES FROM INP1 AND MAKE THEM NASTRAN GINO FILES INPUTT5 /OKJI,OKGG,,,/-1/15/*MYTAPE*/1 $ Remarks 1. Since open core is used to receive data from user input tape, INPUTT5 can handle all kinds and all sizes of data blocks. 2. UNIVAC and VAX users should read the Important Note at the end of the description of the INPUTT2 module. 3. If you assemble your own matrix in INPUTT5 format, and use the INPUTT5 module to read it into NASTRAN, be sure that the density term (DENS) of the matrix trailer is set to nonzero. Otherwise your matrix will be treated as a table and everything goes haywire. 4. Since INPUTT5 is a companion module of OUTPUT5, it is recommended that you read the Methods and Remarks sections of the OUTPUT5 module. =PAGE= LAMX - LAMA Data Block Editor or Generator Purpose Allows modification of mode frequencies, which is useful in dynamics rigid formats. This can be used, for example, to test the effects of structural uncertainties. It does not require a new eigensolution. DMAP Calling Sequence LAMX EDIT,LAMA/LAMB/C,Y,NLAM $ Input Data Blocks EDIT The editing instruction in the form of a DMI matrix. LAMA An output of the READ module which contains frequencies and generalized masses. If purged, the output is generated solely from EDIT information. Output Data Blocks LAMB An edited version of LAMA, which is suitable for input to GKAM and OFP modules, or a matrix from LAMA. Parameters NLAM Integer. The maximum number of modes in the output data block. If NLAM = 0, the number of modes in LAMB is equal to that of LAMA. If NLAM < 0, LAMB will be a matrix. Method The DMI matrix (named EDIT in the above calling sequence) has one column for each mode. Each column has, at most, three entries (rows). Let R1n, R2n, and R3n be the entries in the first through third rows of the nth column. The nth column will edit the frequency fn and the generalized mass mn of the nth mode. The rules defined below are such that a null column produces no change, while either a fixed frequency shift or a percentage change may be specified. 1. If R3n < 0, delete the mode and decrease the mode number of higher modes. 2. If R3n >= 0 Frequency = Rln + (1 + R2n)fn mn , R3n = 0 Generalized mass = R3n , R3n > 0 The change for generalized mass is ignored unless data block MI is purged. The module will generate a LAMB data block if the second input is purged. Frequency = R1n Generalized mass = R3n This second option is useful if modes are created external to NASTRAN and are input into the program via USER modules or DMI Bulk Data cards. If NLAM is less than zero, a matrix will be built on LAMB. EDIT is ignored, and columns will be built with eigenvalue, omega, frequency, generalized mass, and generalized stiffness until the generalized mass is zero. The number of rows should then match the number of eigenvectors requested. Remarks 1. LAMA may be purged. If LAMA is purged, than a LAMB is created from the EDIT information. Examples 1. Assume that ten modes were found by READ and it is desired to do the following: 1 - 3 Leave alone 4 Multiply frequency by .8 5 Leave alone 6 Delete 7 Replace frequency by 173.20 8 Delete The ALTER would be: ALTER XX LAMX LLLL,LAMA/LAMB/C,N,7 $ EQUIV LAMB, LAMA/ALWAYS This ALTER must be placed after READ and before GKAM. The DMI Bulk Data card would be: 1 2 3 4 5 6 7 8 9 10 Ŀ DMI LLLL 0 2 1 1 3 7 Ĵ DMI LLLL 4 1 0. -.2 Ĵ DMI LLLL 6 1 0. 0. -1. Ĵ DMI LLLL 7 1 173.20 -1. 2. Create a LAMA with fi = 10., 20., 30., 40., and mi = 1., 1., 1., 2. ALTER XX LAMX EDIT,/LAMA $ DEFAULT PARAMETER IS ZERO. OFP LAMA,,,,,// $ 1 2 3 4 5 6 7 8 9 10 Ŀ DMI EDIT 0 2 1 1 3 4 Ĵ DMI EDIT 1 1 10. 0. 1. Ĵ DMI EDIT 2 1 20. 0. 1. Ĵ DMI EDIT 3 1 30. 0. 1. Ĵ DMI EDIT 4 1 40. 0. 2. =PAGE= MATGPR - Structural Matrix Printer Purpose Prints matrices generated by a Solution Sequence. External grid point/component identification of each nonzero element is printed. DMAP Calling Sequence A. For matrices whose degrees of freedom relate to grid or scalar points: MATGPR GPL,USET,SIL,M//C,N,c/C,N,r/V,N,PRNTOPT=ALL/V,N,TINY=1.E-6/V,N,F1 $ B. For matrices whose degrees of freedom relate to grid, scalar, or extra points: MATGPR GPLD,USETD,SILD,M//C,N,c/C,N,r/V,N,PRNTOPT=ALL/V,N,TINY=1.E-2/ V,N,F1 $ Input Data Blocks GPL Grid Point List GPLD Grid Point List (Dynamics) USET u-set USETD u-set (Dynamics) SIL Scalar Index List SILD Scalar Index List (Dynamics) M Any displacement approach matrix Output Data Blocks None Parameters c row size (number of columns); must be the appropriate BCD value from the table in Section 1.4.10. Input, no default. r column size (number of rows); must be the appropriate BCD value from the table in Section 1.4.10. If not specified, it will be assumed that r=c. Input, default = X, which implies r=c. PRNTOPT Must be one of the following BCD values: NULL Only null columns will be printed and identified. ALL Standard MATGPR printout (default). ALLP Standard MATGPR printout (complex numbers are converted to magnitude/phase). TINY Real-default = 0.0. If F1 = 0 and TINY > 0, printed output will be provided only for those matrix terms, aij, that satisfy the relation |aij| > TINY. If F1 = 0 and TINY < 0, printed output will be provided only for those matrix terms, aij, that satisfy the relation |aij| < |TINY|. If TINY = 1.E37, MATGPR will return. If F1 is nonzero, see the following description of F1. F1 Real-default = 0.0. If F1 is not zero, then printed output will be provided for only those matrix terms that satisfy aij > TINY or aij < 0.0. Remarks 1. When using the form specified in DMAP Calling Sequence A, this module may not be scheduled until after GP4 since data blocks generated by GP4 are required inputs. When using the form specified in DMAP Calling Sequence B, this module may not be scheduled until after DPD since data blocks generated by DPD are required inputs. 2. If [M] is purged, no printing will be done. 3. The nonzero terms of the matrix will be printed along with the external grid point and component identification numbers corresponding to the row and column position of each term. Examples Display terms of KGG: MATGPR GPL,USET,SIL,KGG//G $ Display null columns of KLL: MATGPR GPL,USET,SIL,KLL//L/L/NULL $ Display small terms on diagonal of LOO: DIAGONAL LOO/LOOD $ MATGPR GPL,USET,SIL,LOOD//H/O//-1.E-2 $ Display PHIA, H columns by A rows: MATGPR GPL,USET,SIL,PHIA//H/A $ Also good for any single column Display all terms of KGG outside the range of 0 through 107: MATGPR GPL,USET,SIL,KGG//G/G//1.E7/1.E1 $ =PAGE= MATPRN - General Matrix Printer Purpose To print general matrix data blocks. DMAP Calling Sequence MATPRN M1,M2,M3,M4,M5 // C,N,P1/C,N,P2/C,N,P3/C,N,P4/C,N,P5 $ Input Data Blocks Mi Matrix data blocks, any of which may be purged. Output Data Blocks None. Parameters P1 and P2 are print format controls. P1 = 0, matrices are printed in their original precision (default). = 1, matrices are printed in single precision (for example, x.xxxE+xx). = 2, matrices are printed in double precision (for example, -x.xxxD+xx). = -1, only the diagonal elements of the matrix will be printed in their original precision. P2 number of data values printed per line (132 column print line). = 8 to 14 if matrices are printed in single precision (default is 10). = 6 to 12 if matrices are printed in double precision (default is 9). P3, P4, and P5 are printout controls, to allow only a portion of the matrix to be printed. P3 = m, matrix columns 1 through m will be printed. = 0, all matrix columns will be printed (default). = -m, see P4 = -n. P4 = n, last n matrix columns will be printed. Default = 0. = -n, and P3 = -m, every other n matrix columns will be printed, starting from column m. P5 = k, each printed column will not exceed k lines long and the remaining data will be omitted. For example, 40 data values will be printed if P2=10 and P5=4. Output The nonzero band of each column of each input matrix data block is unpacked and printed in single precision. Remarks 1. Any or all input data blocks can be purged. 2. If any data block is not matrix type, the TABPT routine will be called. Examples 1. MATPRN KGG,,,, // $ 2. MATPRN KGG,PL,PG,BGG,UPV // $ =PAGE= MATPRT - Matrix Printer Purpose To print matrix data blocks associated with grid points only. DMAP Calling Sequence MATPRT X // C,N,rc / C,N,y $ Input Data Blocks X Matrix data block to be printed. If [X] is purged, then nothing is done. Output Data Blocks None. Parameters rc indicates whether [X] is stored by rows (rc = 1) or by columns (rc = 0) (Input-Integer, default value = 0). y indicates whether [X] is to be printed even if not purged (y < 0, do not print [X]; y >= 0, print [X] (Input-Integer, default value = 0). Method Each column (or row) of the matrix is broken into groups of 6 terms (3 terms if complex) per printed line. If all the terms in a group = 0, the line is not printed. If the entire column (or row) = 0, it is not printed. If the entire matrix = 0, it is not printed. Remarks 1. MATPRT should not be used if scalar or extra points are present. For this case, use MATPRN. 2. Only one matrix data block is printed by this instruction. However, the instruction may be repeated as many times as required. =PAGE= NORM - Normalize a Matrix Purpose To normalize a matrix, each vector by its largest element. To compute the square root of the sum of the squares for each row of a matrix (SRSS). DMAP Calling Sequence NORM PHIG/PHIG1/V,N,NCOL/V,N,NROW/V,N,XNORM/V,N,IOPT $ Input Data Blocks PHIG Any matrix (real or complex) Output Data Blocks PHIG1 IOPT=1, copy of PHIG such that for any columnj||max(aij)|| for all i = 1.0. IOPT=2, contains a single column {ai} where NCOL _ ai = SQRT ( (uij * uij) ) j=1 where uij are the terms in the matrix PHIG and ij are the complex conjugates. Parameters NCOL Integer-output-default = 0. Number of columns in PHIG. NROW Integer-output-default = 0. Number of rows in PHIG. XNORM Real-output-default = 0.0. Maximum (absolute value) normalizing value over all columns. IOPT Integer-input-default = 1. IOPT=1, normalize by largest element; IOPT=2, compute SRSS. Examples Normalize PHIG so that the maximum deflection is 1.0 (or -1.0): EQUIV PHIG,PHIG1/NEVER $ NORM PHIG/PHIG1/ $ CHKPNT PHIG1 $ EQUIV PHIG1,PHIG/ALWAYS $ CHKPNT PHIG $ =PAGE= OUTPUT1 - Create User Files Purpose Writes up to five data blocks and a user file label onto a user file (either on tape or mass storage) for use at a later date. (See User Module INPUTT1 for recovery procedures.) OUTPUT1 is also used to position your file (including handling of multiple reel tapes--user tape reel switching is available only on IBM and UNIVAC versions) prior to writing the data blocks. Multiple calls are allowed. A message is written on the output file for each data block successfully written and after each tape reel switch. You are cautioned to be careful when positioning a user file with OUTPUT1 since you may inadvertently destroy information through improper positioning. Even though no data blocks are written, an EOF will be written at the completion of each call, which has the effect of destroying anything on the file forward of the current position. DMAP Calling Sequence OUTPUT1 DB1,DB2,DB3,DB4,DB5 // V,N,P1 / V,N,P2 / V,N,P3 $ Input Data Blocks DBi Any data block which you desire to be placed on one of the NASTRAN permanent files INPT, INP1, INP2 thru INP9. Any or all of the input data blocks may be purged. Only nonpurged data blocks will be placed on the file. Output Data Blocks None. Parameters 1. The meaning of the first parameter (P1) value is given in the table below. (The default value is O.) Ŀ P1 Value Meaning Ĵ +n Skip forward n data blocks before reading. 0 Data blocks are read starting at the current position. The current position for the first use of a file is at the label (P3). Hence, P3 counts as one data block. -1 Rewind before writing. (This is dangerous!) An EOF is written at the end of each call to OUTPUT1. -2 Valid only for files residing on physical tape. Mount new reel before writing. An EOF mark is written on the tape to be switched. Be careful when switching from a user tape being read by INPUTT1 to a tape to be written by OUTPUT1. -3 Rewind files, print data block names, and then write after the last data block on the file. -4 Valid only for files residing on physical tape. Current tape reel will be rewound and dismounted and a new tape reel will be mounted with ring in and rewound before writing the data blocks. This option should be used when a call to OUTPUT1 is preceded by a call to INPUTT1 using the same User Tape. 2. The second parameter (P2) for this module is your File Code shown in the table below. (The default value is 0.) Ŀ User File Code GINO File Name Ĵ 0 INPT 1 INP1 2 INP2 3 INP3 4 INP4 5 INP5 6 INP6 7 INP7 8 INP8 9 INP9 3. The third parameter (P3) for this module is used to define your File Label. The label is used for NASTRAN identification. The label (P3) is an alphanumeric variable of eight or less characters (the first character must be alphabetic) which is written on your file. The writing of this label is dependent on the value of P1 as follows (The default value for P3 is XXXXXXXX). Ŀ P1 Value File Label Written Ĵ +n No 0 No -1 Yes -2 Yes (On new reel) -3 No (Warning Check) -4 Yes (On new reel) You may specify the third parameter as V, Y, name. You then must also include a PARAM card in the bulk data deck to set a value for name. Examples 1. OUTPUT1 A,B,,, // C,N,0 / C,N,0 $ or OUTPUT1 A,B,,, // $ Write data blocks A and then B onto user file INPT starting wherever INPT is currently positioned. If this is the first write operation on INPT, it must be preceded by OUTPUT1 ,,,, // C,N,-1 $, which will automatically label the file positioned at its beginning. 2. OUTPUT1 , ,,,, // C,N,-1 / C,N,0 $ Rewind INPT, destroy any data blocks that were on INPT, and write default value of P3 on file as a label. 3. OUTPUT1 A,,,, // C,N,-2 / C,N,2 / C,N,USERTPA $ Mount a new reel of tape (with write ring) for INP2 and write USERTPA for user tape label and then data block A as the first file. 4. OUTPUT1 , ,,,, // C,N,-2 / C,N,2 / C,N,USERTPA $ OUTPUT1 A,,,, // C,N,0 / C,N,2 $ This is equivalent to example 3. 5. OUTPUT1 A,B,C,D,E // C,N,14 $ Starting from the current position, skip forward 14 data blocks on INPT and write A, B, C, D, and E as the next five data blocks. The skip positioning feature cannot be used if the current position of INPT is forward of a just previously written data block end-of-file or before the file is labeled. 6. OUTPUT1 , ,,,, // C,N,-3 $ THIS IS AN OUTPUT1 A,B,C,D,E // C,N,14 $ INCORRECT EXAMPLE. This is an invalid sequence since the first call positions the tape at the end of all data blocks on the tape. See example 7. 7. INPUTT1 / ,,,, / C,N,-3 $ OUTPUT1 A,B,C,D,E // C,N,14 $ A complete list of data block names will be printed by INPUTT1, which will then rewind the file. Then, OUTPUT1 will skip forward 14 data blocks and write A, B, C, D, and E. Your file label is given a warning check by INPUTT1. 8. OUTPUT1 , ,,,, // C,N,-2 $ THIS IS AN OUTPUT1 , ,,,, // C,N,-3 $ INCORRECT EXAMPLE. OUTPUT1 , A,B,,, // C,N,14 $ This is an invalid sequence since the first call effectively destroys whatever information is on the tape. See example 9. 9. INPUTT1 / ,,,, / C,N,-2 $ INPUTT1 / ,,,, / C,N,-3 $ OUTPUT1 A,B,,, // C,N,14 $ Mount a new reel of tape previously default labeled for INPT (the operator will have to be instructed to ignore the NORING message and put a ring in the tape). Print the names of all data blocks on the tape and rewind the tape. Skip 14 data blocks on the tape and write A and then B as the 15th and 16th data blocks. Any information forward of this current position is effectively destroyed. See example 10. 10. INPUTT1 / ,,,, / C,N,-2 $ OUTPUT1 A,B,,, // C,N,-3 $ Mount a new reel of tape previously default labeled for INPT (the operator will have to be instructed to ignore the NORING message and put a ring in the tape). Print the names of all data blocks on the tape and write A and B as new data blocks at the end of the tape. If INPT contained 14 data blocks at the start of this sequence, it would be more efficient to do it this way than by using the sequence of example 9, since a pass on the tape is eliminated. 11. INPUTT1 / ,,,, / C,N,-2 / C,N,0 / V,Y,BDSETLAB $ OUTPUT1 A,B,,, // C,N,-3 / C,N,0 / V,Y,BDSETLAB $ This is equivalent to example 10 except your tape label is set on a PARAM card, which must be included in the BULK DATA deck (that is, PARAM BDSETLAB USERTP12). Difficult Examples Using INPUTT1 and OUTPUT1 Example 1 a. Objectives: 1. Obtain printout of the names of all data blocks on INPT. 2. Skip past the first four data blocks, replace the next two with data blocks A and B, and retain the next three data blocks. 3. Obtain printout of the names of all data blocks on INPT after (2) has been done. b. DMAP Sequence: BEGIN $ (1) INPUTT1 / ,,,, / C,N,-3 $ (2) INPUTT1 / ,,T1,T2,T3 / C,N,6 $ (3) INPUTT1 / ,,,, / C,N,-1 $ (4) INPUTT1 A,B,T1,T2,T3 // C,N,4 $ (5) OUTPUT1 , ,,,, // C,N,-3 $ (6) END $ c. Remarks 1. DMAP sequence (2) accomplishes objective 1 and rewinds INPT. 2. DMAP sequence (3) recovers data blocks 7, 8, and 9. This is necessary because they would be effectively destroyed by anything written in front of them on INPT. 3. DMAP sequence (4) rewinds INPT. 4. DMAP sequence (5) accomplishes objective 2. 5. DMAP sequence (6) accomplishes objective 3 and leaves INPT positioned after the ninth file, ready to receive additional data blocks. 6. Note that INPUTT1 is used whenever possible to avoid the possibility of mistakenly writing on INPT prematurely. Example 2 a. Objectives: 1. Write data blocks A, B, and C on INPT. 2. Obtain printout of the names of all data blocks on INPT after step (1). 3. Make two copies of the file created in (1). 4. Add data blocks D and E to one of the files. 5. Obtain the names of all data blocks on INPT after (4). b. DMAP Sequence: BEGIN $ (1) OUTPUT1 A,B,C,, // C,N,-1 $ (2) OUTPUT1 , ,,,, // C,N,-3 $ (3) OUTPUT1 A,B,C,, // C,N,-2 $ (4) OUTPUT1 A,B,C,, // C,N,-2 $ (5) OUTPUT1 D,E,,, // $ (6) OUTPUT1 , ,,,, // C,N,-3 $ (7) END $ (8) c. Remarks: 1. DMAP sequence (2) accomplishes objective 1 since the file must initially have P3 written on it when first used. The DMAP statement INPUTT1 A,B,C,, // C,N,-1 $ will accomplish the same thing. 2. DMAP sequence (3) accomplishes objective 2. The statement INPUTT1 / ,,,, / C,N,-3 $ will do the same thing and add a rewind. 3. Statements (4) and (5) accomplish objective 3. 4. Statement (6) accomplishes objective 4 where the third file (tape) is used. 5. Statement (7) accomplishes objective 5. The statement INPUTT1 / ,,,, / C,N,-3 $ will do the same thing and add a rewind. 6. On machines where tape reel switching is not implemented, the second parameter can be used as follows: BEGIN $ OUTPUT1 A,B,C,, // C,N,-1 $ OUTPUT1 , ,,,, // C,N,-3 $ OUTPUT1 A,B,C,, // C,N,-1 / C,N,1 $ OUTPUT1 A,B,C,, // C,N,-1 / C,N,2 $ OUTPUT1 D,E,,, // C,N,0 / C,N,2 $ OUTPUT1 , ,,,, // C,N,-3 / C,N,2 $ END $ =PAGE= OUTPUT2 - Create User-Written FORTRAN Files Purpose Writes up to five data blocks and a user file label onto a FORTRAN-written user file (either on tape or mass storage) for subsequent use at a later date. OUTPUT2 is also used to position your file prior to writing the data blocks. Multiple calls are allowed. A message is written on the output file for each data block successfully written. You are cautioned to be careful when positioning a user file with OUTPUT2, since you may inadvertently destroy information through improper positioning. Even though no data blocks are written, an EOF will be written at the completion of each call, which has the effect of destroying anything on the tape forward of the current position. (The companion module is INPUTT2.) DMAP Calling Sequence OUTPUT2 DB1,DB2,DB3,DB4,DB5 // V,N,P1 / V,N,P2 / V,N,P3 / V,N,P4 / V,N,P5 / V,N,P6 $ Input Data Blocks DBi Any data block which you desire to be written on one of the NASTRAN FORTRAN files INPT, INP1 through INP9. Any or all of the input data blocks may be purged. Only nonpurged data blocks will be placed on the file. Output Data Blocks None. Parameters P1, P2, P4, and P5 are integer inputs. P3 and P6 are BCD. 1. The meaning of the first parameter (P1) value is given in the table below. (The default value is 0.) Ŀ P1 Value Meaning Ĵ +n Skip forward n data blocks before writing. 0 Data blocks are written starting at the current position. The current position for the first use of a file is at the label (P3). Hence, P3 counts as one data block. -1 Rewind before writing. -3 Rewind files, print data block names, and then write after the last data block on the file. -9 Write a final EOF on the file. Important Notes a. It is a good practice for you to ensure that a sequence of OUTPUT2 statements always ends with a statement of the form OUTPUT2, ,,,, // -9 $ thereby causing a final (or physical) EOF to be written on the FORTRAN file. Otherwise, subsequent use of this file by OUTPUT2, INPUTT2, or an external program may fail due to the absence of a physical EOF on the file. Notice the presence of an extra comma after the module name. b. On the UNIVAC and DEC VAX versions, the FORTRAN files used with the INPUTT2/OUTPUT2 modules are automatically rewound every time a link change occurs in the program. In general, a link change can be assumed to occur whenever a DMAP statement other than an INPUTT2 statement follows an INPUTT2 statement; similarly, whenever a DMAP statement other than an OUTPUT2 statement follows an OUTPUT2 statement. For this reason, the following cautions should be noted on these versions when using the various values for the parameter P1 in an INPUTT2 or OUTPUT2 DMAP statement. Ŀ Cautions for UNIVAC and DEC VAX versions Ĵ Parameter P1 Remarks Ĵ 0 or +n You must be certain that this INPUTT2 statement immediately follows another INPUTT2 statement; or that this OUTPUT2 statement immediately follows another OUTPUT2 statement, to avoid a link change that would cause the rewinding of the FORTRAN file. -1 to -8 No cautions. -9 You must be certain that this OUTPUT2 statement immediately follows another OUTPUT2 statement, to avoid a link change that would cause the rewinding of the FORTRAN file. 2. The second parameter (P2) for this module is the FORTRAN unit number onto which the data blocks will be written. The allowable values for this parameter are highly machine- and installation-dependent. Reference should be made to Section 4 of the Programmer's Manual for a discussion of this subject. For CDC machine (default is 11): Ŀ User File Code FORTRAN File Name Ĵ 11 UT1 12 UT2 For all others (default is INPT): Ŀ User File Code FORTRAN File Name Ĵ 14 INPT 15 INP1 16 INP2 : : 23 INP9 IBM/MVS only: INPT is user file code 24. 3. The third parameter (P3) for this module is used to define the FORTRAN User File Label. The label is used for NASTRAN identification. The label (P3) is an alphanumeric variable of eight or less characters (the first character must be alphabetic) which is written on your file. The writing of this label is dependent on the value of P1 as follows: (The default value for P3 is XXXXXXXX.) Ŀ P1 Value File Label Written Ĵ +n No 0 No -1 Yes -3 No (Warning Check) -9 No If the label is written, eight additional records are placed at the beginning of the FORTRAN file. You may specify the third parameter as V,Y,name. You then must also include a PARAM card in the bulk data deck to set a value for name. 4. The fourth parameter (P4) controls the maximum FORTRAN record size. P4 = 0 (default); record size is unlimited for all machines except IBM/MVS, which is set to 1024 words. P4 = -n; maximum FORTRAN record size is n times the system buffer. (If P6 is not blank, n is 2.) P4 = +n; maximum FORTRAN record size is n words. If n is less than system buffer, n is increased to system buffer size. If n is greater than system open core, n is reduced to the size of open core. 5. The fifth parameter (P5) is valid only for matrix DBi input. P5 = 0; matrices are written out by columns. This is the normal way using one keyword. P5 = not 0; matrices are written out by columns in sparse matrix forms, that is, from first non-zero row of a column to last non-zero row. The keyword record contains two keys: First key: > 0, defines length of next data record = 0, end-of-file < 0, end-of-record; more records follow Second key: = 0, if DBi is a table data block, or P5 = 0 > 0, row-base for next record For example, if keys = 10,200, the next record is 10 words long, for rows 200+1 through 200+10; that is, (ROW(key2+j),j=1,key1) 6. If the sixth parameter (P6) is set to *MSC*, OUTPUT2 will generate OUTPUT2 records in MSC/OUTPUT2 compatible formats. The COSMIC/OUTPUT2 and MSC/OUTPUT2 generate records slightly differently. The P5 parameter is not available when P6 is specified. Default P6 is blank. Examples OUTPUT2 is intended to have the same logical action as the GINO User File module OUTPUT1 except for tape reel switching. It is therefore suggested that the examples shown under module OUTPUT1 be used for OUTPUT2 as well, excepting the ones involving tape reel switching. All examples should be ended with a call to OUTPUT2 with P1 = -9. Remarks The primary objective of this module is to write files using simple FORTRAN so that you can read NASTRAN generated data with your own program. Similarly, matrices can be generated with externally written simple FORTRAN programs and then read in by module INPUTT2. In order to do this, the format of the information on these files must be adhered to. The basic idea is that a two word logical KEY record is written, which indicates what follows. A zero value in KEY1 indicates an end-of-file condition. A negative value indicates the end of a record, where the absolute value is the record number. A positive value indicates that the next record consists of that many words of data. KEY2 is used only with P5 not equal to zero, and was explained previously. The correspondence between FORTRAN records and GINO-written NASTRAN files is shown in the following sample: Ŀ FORTRAN NASTRAN File Record Length Contents File Record Ĵ 1 1 KEY1 > 0, KEY2 1 1 Ĵ 2 KEY1 {Data} Ĵ 3 1 KEY1 > 0, KEY2 Ĵ 4 KEY1 {Data} Ĵ 5 1 KEY1 < 0 (EOR), KEY2 Ĵ Ĵ 6 1 KEY1 > 0, KEY2 2 Ĵ 7 KEY1 {Data} Ĵ 8 1 KEY1 < 0 (EOR), KEY2 Ĵ Ĵ 9 1 KEY1 = 0 (EOF), EOF KEY2 Ĵ 10 1 KEY1 > 0, KEY2 2 1 Ĵ 11 KEY1 {Data} Ĵ 12 1 KEY1 < 0 (EOR), KEY2 Ĵ Ĵ 13 1 KEY1 = 0 (EOF), EOF KEY2 Ĵ 14 1 KEY1 = 0 (EOF=EOD), 3 EOF KEY2 KEY2s are zeros except when parameter P5 is non-zero, and the next records are data records (KEY1 > 0). When parameter P5 is zero, effectively only one key, KEY1, is used. KEY2s are not generated when parameter P6 is *MSC*. =PAGE= OUTPUT3 - Punch Matrix Data Blocks Onto Cards Purpose Punches up to five matrix data blocks onto DMI bulk data cards. These cards may then read into NASTRAN as ordinary bulk data to reestablish the matrix data block at a later date. DMAP Calling Sequence OUTPUT3 M1,M2,M3,M4,M5 // C,N,P1 / C,Y,N1=ABC / C,Y,N2=DEF / C,Y,N3=GHI C,Y,N4=JKL / C,Y,N5=MNO $ Input Data Blocks Mi Any matrix data block which you desire to be punched on DMI cards. Any or all of the input data blocks may be purged. Only nonpurged data blocks will be punched. Output Data Blocks None. Parameters The first parameter (P1) controls the writing of the DMI card images on a FORTRAN unit as follows: P1 < 0 write on FORTRAN unit |P1| as well as punch DMi cards P1 >= 0 punch DMI cards only The default value for P1 is 0. Ni - The values of the five BCD parameters shown above are used to create a unique continuation field configuration on the DMI cards. Only the first three characters are used. These three characters must be unique for all matrices which will be input together during a subsequent run using cards generated by OUTPUT3. (Input-BCD, default values are N1 = no default, N2 = N3 = N4 = N5 = XXX). Method The nonzero elements of each matrix are punched on double-field DMI cards as shown in the example below. The name of the matrix is obtained from the header record of the data block. Field 10 contains the three character parameter value in columns 74-76 and an incremented integer card count in columns 77-80. Example Let the data block MAT contain the matrix 1.0 0.0 6.0 0.0 0.0 0.0 0.0 0.0 7.0 0.0 0.0 0.0 [MAT] = 2.0 4.0 0.0 0.0 0.0 0.0 0.0 5.0 0.0 0.0 0.0 9.0 3.0 0.0 8.0 0.0 0.0 0.0 The DMAP instruction OUTPUT3 MAT,,,, // C,N,0 / C,N,XYZ $ will then punch out the DMI cards shown below. 1 2 3 4 5 6 7 8 9 10 Ŀ DMI MAT 0 2 1 2 5 6+XYZ0 Ŀ DMI* MAT 1 1 1.000000E 00 *XYZ1 Ĵ *XYZ 1 3 2.000000E 00 5 3.000000E 00 *XYZ2 Ŀ DMI* MAT 2 3 4.000000E 00 *XYZ3 Ĵ *XYZ 3 5.000000E 00 *XYZ4 Ŀ DMI* MAT 3 1 6.000000E 00 *XYZ5 Ĵ *XYZ 5 7.000000E 00 5 8.000000E 00 *XYZ6 Ŀ DMI* MAT 6 4 9.000000E 00 *XYZ7 Remarks 1. Only real single- or double-precision matrices may be output. 2. All matrices are output on double-field cards in single-precision. 3. The maximum number of cards that may be punched is 99,999. If matrices larger than this are desired, use module OUTPUT2 and write a program to process the resulting FORTRAN file. 4. The auxiliary subroutine PHDMIA used by module OUTPUT3 can be used with stand-alone FORTRAN programs. See Section 4 of the Programmer's Manual for details. =PAGE= OUTPUT4 - Write a Matrix to a FORTRAN Readable File Purpose To write a matrix to an ASCII or FORTRAN binary file so that user processing can be done. OUTPUT4 can also handle six special tables: KELM, MELM, BELM, KDICT, MDICT, and BDICT. DMAP Calling Sequence OUTPUT4 M1,M2,M3,M4,M5 // V,N,P1 / V,Y,P2 / V,N,P3 $ Input Data Blocks Mi Up to five matrix data blocks, including any of the six special table data blocks. Output Data Blocks None (written to user tape; see Remarks for the format). Parameters P1 Input-integer-default = 0. P1 controls the status of the unit before OUTPUT4 starts to write any matrices as follows: 0 No action taken before write. -1 Rewind tape before write. -2 End file and rewind tape after write. -3 Both P2 Input-integer-default = 14. The absolute value of IUNIT is the FORTRAN unit number where the matrices will be written. If P2 is negative, the sparse output option will be used. P3 If P3 = 1 the file is written in FORTRAN binary format (default). If P3 = 2 or 3, the file is written in ASCII format; see Remarks 10 - 13. Remarks 1. Each matrix will be written on unit P2 as follows: Record No. Word Type Meaning 1 1 I Number of columns (NCOL) (binary or 2 I Number of rows (NR) ASCII) 3 I FORM (1-8, negative if P3 is not equal to 1) 4 I TYPE (1-4) 5,6 B DMAP name (2A4 format) On ASCII output tape, record 1 is written in (1X,4I3,5X,2A4) format. 2,3,etc. 1 I Column number. (nonsparse,2 I Row position of first nonzero term. binary) 3 I NW, number of words in the column (that is, number of elements times number of words per element). 4-NW+3 R/DP Floating point values, either real or double precision, depending on the type. Words 1 - 4-NW+3 are repeated for each nonzero column. 2,3,etc. 1 I Column number. (sparse, 2 I Zero. binary) 3 I Number of words (NW) in the column. 4-NW+3 R/DP Strings of nonzero terms as follows: [Length of string (L)/Row position of first term]=IS Floating point values either real or double precision, depending on type. If IS is the string header, L = IS/65536 IROW = IS-(L*65536) 2 1 I Column number (1X,I13 or 1X,I16). (nonsparse,2 I Row position of first nonzero term (I13 or I16). ASCII) 3 I NW, number of words in the column (I13 or I16). 3,etc. 11 R/DP Floating point values either real or double precision, depending on the type (1X,10E13.6, 1X,8D16.9, or 1X,8E16.9). Record 3 is repeated as many times as necessary. Notice that each record holds 11 values, and is 132 bytes in length, except the last record, which may be shorter. 2 1 I Column number (1X,I13 or 1X,I16). (sparse, 2 I Row position of first string element (a negative value, I13 or I16). ASCII) 3 I NW, number or words in string, adjusted for single precision or double precision word count (I13 or I16). 3,etc. 11 R/DP Floating point values of string, either real or double precision, depending on the type (1X,10E13.6, 1X,8D16.9, or 1X,8E16.9) Records 2, 3, etc. are repeated as many times as needed for the same matrix column (therefore same column number). Notice each record 3 holds 10 or 8 values, and is less than 132 bytes in length, except the last record, which may be shorter. Notice that records 1, 2, and 3 always begin with a space (1X). Repeat records 2 and 3 (etc.) for each nonzero column (therefore different column number). 2. A record with the last column number plus +1 and at least one value in the next record will by written on unit P2. 3. Number of words per type is as follows: Type NWORDS 1, Real S.P. 1 2, Readl D.P. 2 3, Complex S.P. 2 4, Complex D.P. 4 4. OUTPUT4 does not handle table data blocks, except the six special tables mentioned above. 5. Choosing a correct unit is machine dependent and correct control cards must be supplied. See other sections of this User's Manual for descriptions of the control cards for each type of computer. 6. If the non-sparse option is selected, zero terms will be explicitly present after the first nonzero term in any column until the last nonzero term. 7. Null columns will not be written to the output. 8. An entire column must fit in memory. 9. The FORTRAN binary file option is the preferred method when the file is to be used on the same computer. The ASCII format allows use of the file on another type of computer. 10. The output tape, ASCII (formatted) or binary (unformatted), can be read by the INPUTT4 module. On ASCII tape, if P4 is 2, the formats for integers and real data are selected automatically depending on the precision of the incoming matrix data block. If the matrix is in single precision, formats I13 and 10E13.6 are used. If the matrix is in double precision, I16 and 8D16.9 are used. 11. If P3 =3, formats I16 and 8E16.9 are used for integers and single precision real data to increase numeric accuracy. This option is available only for machines with long word size, 60 bits or more per word. 12. A fatal error in reading input tape may occur if P4 is selected erroneously with respect to the content of the tape. 13. On the ASCII tape, and sparse matrix output, each string of non-zero data is written as a FORTRAN record. A fatal error could occur for a large matrix where the number of records exceeds system I/O limits. 14. When KDICT, MDICT, or BDICT input table is copied out to an ASCII output tape (not to a binary tape), the damping constant, the only real number on the table, is pre-multiplied by 10**8, and converted to an integer. The whole table therefore is in pure integer form, and is written out by a 10I13 format. In rigid format heat analyses, these six special tables, prefixed by an "L", work also with OUTPUT4. =PAGE= OUTPUT5 - Create User-Written FORTRAN File Purpose Writes up to five NASTRAN GINO data blocks to a user FORTRAN file using a FORTRAN write, formatted or unformatted. (The FORTRAN file may reside either on physical tape or on a mass storage device.) If the data block contains matrix data, each matrix column is first unpacked, then written out to your file in unpacked form. If the data block contains table data and formatted records are requested, a dynamic scheme is used to generate the appropriate format for the FORTRAN write. Coded symbols are also included in the formatted table data, so that they can be read back into the NASTRAN system by the INPUTT5 module, or by a user-written FORTRAN program. Mixed matrix and table data blocks are allowed in one OUTPUT5 operation. The unformatted (binary) user file is intended to be used later in the same computer, or a similar computer of the same manufacturer. The formatted file can be generated in one computer system and used later in another, with complete freedom in operating systems and computer manufacturers. The formatted file can be viewed and edited by the use of the system editor. The records contain 132 characters (or less) per line. The parameters in OUTPUT5 are modeled after OUTPUT2. They can be used to direct which user output file (INP1, INP2, UT1 etc.) is to be used, to write formatted or unformatted records, to position the output file prior to writing, and to place an End-Of-File mark at the end of the tape. Multiple calls are allowed. You are cautioned to be careful when positioning your output file with OUTPUT5, since you may inadvertently destroy information through improper positioning. Even though no data blocks are written, an EOF will be written at the completion of each call, which has the effect of destroying anything on the tape forward of the current position. DMAP Calling Sequence OUTPUT5 DB1,DB2,DB3,DB4,DB5//C,N,P1/C,N,P2/C,N,P3/C,N,P4/C,N,T1/C,N,T2/ C,N,T3/...C,N,T10 $ OUTPUT5 is intended to have the same logical action as the FORTRAN User File module OUTPUT2 and the GINO User File module OUTPUT1, except for formatted tape. It is therefore suggested that the examples shown under modules OUTPUT2 and OUTPUT1 be used for OUTPUT5 as well, excepting the addition of the P4 parameter. All samples should be ended with a call to OUTPUT5 with P1=-9. Input Data Blocks DBi Any data block which you desire to be written on one of the NASTRAN FORTRAN user files INPT, INP1, INP2,..., INP9. Any or all of the input data blocks may be purged. Only unpurged data blocks will be placed on your file. Output Data Blocks None. Parameters 1. The meanings of the first three parameter values (P1, P2, P3) are the same as those described for the OUTPUT2 module, except your file code and the FORTRAN file name are given below. (The default value for P2 is 15, or 11 for a CDC machine.) Ŀ FORTRAN LOGICAL UNIT, P2 USER FILE CODE Ĵ 11 UT1 (CDC only) 12 UT2 (CDC only) 14 INPT (UNIVAC,VAX) 15 INP1 (All 16 INP2 machines : : except 23 INP9 CDC) 24 INPT (IBM only) 2. The fourth parameter (P4) for this module is used to specify whether your output tape is to be written formatted (P4=1 or 2), or unformatted (P4=0, default). Unless the tape is to be used later by a different computer or a different operating system, the unformatted tape should be used. On the formatted tape, with P4=1, the selection of output formats for real data is automatic, depending on the precision of the incoming matrix data blocks. If the matrix in in single precision, format 10E13.6 is used. If the matrix is in double precision, 5D23.17 is used. Format I13 is used for integers in both cases. For machines with long word only, 60 bits or more per word, the single precision format can be switched to 5E23.17 for numeric accuracy by setting P4 to 2. 3. The 10 Ti parameters (T1, T2, T3,..., T10) are used only for table data blocks. They are used only when a formatted output file is requested (P4=1), and you want to override the automatic format generation of the OUTPUT5 module. (Default - all Ti are zeros) The following rules are used to create user-directed output format: a. 9 digits must be specified on a Ti parameter. Zero fill if necessary. b. The digits are continued among the Ti parameters; therefore up to 90 digits are allowed. The digits are arranged from left to right. First digit specifies the format of the first data word. Second, third, fourth, etc., specify the second, third, fourth data words, etc. (See exception below using digits 5 through 9) c. The values of digits and their meanings are: 0, format not specified; whatever format OUTPUT5 generated will be used, 1, specifies integer format, 2, specifies single precision real format, 3, specifies BCD format, 4, specifies double precision real format, and 5-9, specify multiple format of the same type indicated by next digit, which must be 0 through 4. For example, 061352000 is same as 0111111322222000 Methods The methods used to transfer data from NASTRAN GINO data blocks to your output tape (or file) depend on whether a. the data blocks are matrix or table, b. formatted or unformatted output tape is requested, and c. data contains single precision real numbers or double precision numbers, or both. (Table data block only) The methods used must also guarantee continuity of mixed matrix and table types of block data on your output tape. That is, the mixed data must be able to be read back into the NASTRAN system, or processed by a user's program, by a common switching mechanism. OUTPUT5 treats any input data block as matrix if the 5th and the 6th words (maximum non-zero matrix column length and matrix density) are both non-zero. Otherwise, the data block is table. This method is, however, not perfect. Most table data blocks generated by LINK1, such as GEOM1, GEOM2, EPT, MPT, etc. may have non-zero 5th and 6th trailer words. UNFORMATTED TAPE The data transfer from a GINO file to an unformatted tape is comparatively simple. The difference in processing matrix data and table data lies in a single key word of the length of each record. MATRIX - A matrix header record that includes the original GINO trailer is written to user tape first. Thus the total number of records (equal number of columns) and the length of each record (equal number of rows) are known. Each column of the matrix is unpacked and copied out to your tape, except that the leading and trailing zeros are not copied out. The data is either single precision or double precision real numbers. Each output record is also preceded by three control words. The following FORTRAN code can read one such column array (the ICOL matrix column): READ (TAPE) ICOL,JB,JE,(ARRAY(J),JB,JE) TABLE - A table header record, with the 5th and 6th trailer words set to zeros, is also written out to indicate the following records are of table type. Records from the input GINO data block are read and transferred to user tape directly, except each output record is preceded by one additional word, which tells the total length of this current record. The following FORTRAN code can be used to read one such record: READ (TAPE) LENGTH,(ARRAY(J),J=1,LENGTH) FORMATTED TAPE Most of the attributes of unformatted tape apply equally well to the formatted tape, except tapes are written with FORTRAN formats. MATRIX - All integers are written in I8 format, BCD in A4 format, single precision real numbers in E13.6 (or E26.17 if P4 = 2), and double precision numbers in D26.17. Only the matrix header record can have all mixed data types; the matrix column records contain only real numbers. The following FORTRAN code reads the header record and/or a matrix column: READ (TAPE,10) I,J,K,(A(L),L=J,K) 10 FORMAT (3I8,/,(10E13.6 )) (for single precision data), or 10 FORMAT (3I8,/,( 5D26.17)) (for double precision data), or 10 FORMAT (3I8,/,( 5E26.17)) (P4 = 2) TABLE - All integers are written in ("I",I9) format, BCD in ("/",A4) format, single precision real numbers in ("R",E14.7) format, and double precision numbers in ("D",E14.7). Notice that 5 bytes are used for BCD, 10 bytes for integer, and 15 bytes for real numbers, single or double precision. NASTRAN table data blocks often contain integers, BCD, and single and double precision real numbers in a mixed fashion. Each table record may have a different table length. To write formatted NASTRAN tables and to read them back later present a real challenge in FORTRAN programming. The OUTPUT5 module calls subroutine TABLE5 to process table data, and the INPUTT5 module calls subroutine TABLEV to read them back. TABLE5 generates dynamically a unit of format - ("I",I9), ("/",A4), etc. - to match each data type - integer, BCD, etc. When the synthesized format reaches 130 characters (or bytes), a line of data is written out. A table therefore may require multiple lines (each line physically is a record). In addition, the first word of the first line contains the total length of this table. The following FORTRAN code can be used to read back a table from your tape into 5-character ARRAY: CHARACTER*5 ARRAY(500) READ (TAPE,20) LENGTH,(ARRAY(J),J=1,LENGTH) 20 FORMAT (I10,24A5,/,(26A5)) The first byte of each 5-character ARRAY (which is I, /, R, or D) can be used to convert the 5-, 10-, or 15-character data back to BCD, integer, or real numbers (single or double precision). For more details, see INPUTT5 module and INPTT5 FORTRAN source subroutine. TABLE5 calls subroutine NUMTYP to determine the data type, then issue the corresponding format for output. NUMTYP, however, is not one hundred percent foolproof. One in five or ten thousand times, NUMTYP may err in determining exactly the data type. Also, when TABLE5 passes a computer word to NUMTYP with no other information, NUMTYP cannot tell if it is part of a double precision word, or if it is a single precision word. (In this case, single precision word is assumed.) Finally, NUMTYP cannot distinguish between integer zero and real number zero. (A period may be important in the output format). TABLE5 therefore may generate the wrong format due to NUMTYP's internal limitations. In case that TABLE5 does produce erroneous format, you can override the automatic format generation by the Ti parameters which supply OUTPUT5 the exact format to use, in a condensed, coded form. 90 (or more if 5, 6, 7, 8, or 9 are used in the Ti specification) unit formats can be specified. The following example illustrates the use of the Ti parameter. Data on table: 3 4 3.4 5.0E-3 TESTING .6D+7 9 G 3.2 8 0. 0 4 12 13 14 15 28 61 88 14 44 .7D+7 Ti specification: T1=112233413, T2=212516140 or T1=604000025, T2=060400000 (7th and 24th words are d.p. and 12th word is real) NOTE 2 BCD words in "TESTING", all others are 1 computer word per data entry. T2, the last Ti used here, must fill up with zeros to make up a 9-digit word. When viewed with a system editor, the above example looks like this (first line): 37I 3I 4R 5.0000000E-3/TEST/ING D 6.0000000D+07 etc. ++---------+++++++++--------------++++++++++--------------- 1st 2nd 3rd 4th 5th data etc. The first 37 indicates there are 37 5-byte words in this record. the "++----" line and the "1st,2nd..." line are added here for video purposes. Since the formatted data line may not end exactly at 130 bytes, one or two fillers of the form "X" and four blanks may appear at the end of an output line. The matrix data blocks are handled by the main routine OUTPT5. OUTPT5 calls TABLE5 only when the former encounters a table data block input. Examples $ Copy KJI, KGG, and CASECC to INP2 (unit 16), sequential formatted tape OUTPUT5 KJI,KGG,CASECC,,//-1/16/*MYTAPE*/1 $ $ Recover the files from INP2 (unit 16) and make them NASTRAN GINO files INPUTT5 /OKJI,OKGG,OCASECC,,/-1/16/*MYTAPE*/1 $ Remarks 1. Formatted tape (P4 = 1 or 2) takes a longer time and more space to write than the unformatted tape. Unless the tape is intended to be used later by a different computer, unformatted tape should be selected (P4=0). 2. The OUTPUT5 "records" are written to tape "identically" with both formatted and unformatted FORTRAN write commands. The matrix header and the table header can be read "identically" without prior knowledge of what type of data, matrix or table, is coming up next. 3. All matrix records are written to tape in a standard way, except the first matrix header record. All table records are written to tape in a standard way, including table header record and the last ending record. 4. The first tape header record is composed of 9 words as shown below: Ŀ RECORD WORD CONTENTS P4=0 P4=1 Ĵ 0 1,2 Tapeid (=P2) 2*BCD 2A4 3,4 Machine (CDC,UNIVAC,IBM,VAX) 2*BCD 2A4 5-7 Date 3*INT 3I8 8 System BUFFER SIZE INT I8 9 P4 used in creating tape (0,1) INT I8 5. This remark and the next one deal only with matrix data blocks. Three types of data records follow the header record, or the EOF record of a previous data block. They are: a. Matrix header record b. Matrix column data record c. EOF record These records are written to tape in a standard procedure. Three control words are written out first, followed by the actual data. Binary FORTRAN write is used in unformatted tape (P4=0), and each logical record holds a complete set of data. The following FORTRAN statement is used to write the entire data record: WRITE (TAPE) I,J,K,(A(L),L=J,K) For formatted tape, multiple logical records are actually written for each complete set of data. The following FORTRAN statements are used to write the entire data record: WRITE (TAPE,30) I,J,K,(A(L),L=J,K) 30 FORMAT (3I8,/,(10E13.6)) (for single precision data), or 30 FORMAT (3I8,/,(5D26.17)) (for double precision data), or 30 FORMAT (3I8,/,(5E26.17)) (P4 = 2) In the above WRITE statements, the value of I is used to indicate the type of record just read. Ŀ VALUE OF I TYPE OF RECORD Ĵ 0 Matrix header record +n Nth matrix column data -1 End-of-matrix The column data is written to tape from the first non-zero row position (J) to the last non-zero row position (K). The following table describes the contents of the data records written to tape by the OUTPUT5 module. Ŀ RECORD+ WORD CONTENTS P4=0 P4=1 Ĵ 1 Matrix header record - 1 0 INT I8 2,3 1,1 2*INT 2I8 4 0.0 F.P. E13.6 or D26.17 5-10 Matrix trailer 6*INT 6I8 (Col,Row,Form,Type,Max,Density) 11,12 DMAP Name of DB1 2*BCD 2A4 2 1 1 (First matrix column) INT I8 2 Row pos. of first non-zero elem. INT I8 3 Row pos. of last non-zero elem. INT I8 4-W First banded column data 6*INT (**) (W=Word3-Word2) 3 1 2 (Second matrix column) INT I8 2 Row pos. of first non-zero elem. INT I8 3 Row pos. of last non-zero elem. INT I8 4-W Second banded column data 6*INT (**) 4 1 3 (Third matrix column) INT I8 2 Row pos. of first non-zero elem. INT I8 3 Row pos. of last non-zero elem. INT I8 4-W Third banded column data 6*INT (**) : : : L 1 L-1 (last matrix column) INT I8 2 Row pos. of first non-zero elem. INT I8 3 Row pos. of last non-zero elem. INT I8 4-W Last banded column data 6*INT (**) L+1 1 -1 INT I8 2,3 1,1 2*INT 2I8 4 0.0 F.P. D26.17 (Repeat records 1 through L+1 for next matrix data block.) Where (**) is (10E13.6), (5D26.17), or (5E26.17 for long word machines). (+ RECORD number does not correspond one to one to the actual physical record number.) 6. A record of (n,1,1,0.0) is written out for a null Nth column. 7. This remark deals only with table data blocks. Three types of data record follow the header record, or an EOF record of previous data block. They are: a. Table header record b. Record(s) of a table (a table data block can have more than one table record) c. EOF record. The table header record has a general structure as in the standard procedure for the matrix records, except that the 5th and 6th words of the matrix trailer section are zeros. The table record was discussed in great detail in the METHOD section for both formatted and unformatted output tape. A table record is created for each table in the input data block, and no skipping forward or backward is allowed on the input file. If double precision data are encountered in a table record, the double precision data will be truncated to single precision, but the format of ("D",E14.7) will be used. (INPUTT5 will re-generate the data back to their double precision status.) An End-Of-File record in the form of "-1 1 1 0.0D+0" ends the table record output. 8. Since the formatted tape (P4 = 1 or 2) is intended to be used in different computers, the OUTPUT5 module appends no system control word(s) to the FORTRAN written formatted records. The output tape must be unlabeled, fixed block size with record size of 132 characters, and ANSI unpacked character data set. The specification of the tape is either internally specified (UNIVAC) by a FORTRAN open statement, or uses system default tape specification (IBM and VAX). The CDC user must specify the output tape externally by the appropriate FILE, LABEL, or REQUEST cards: For example: LABEL,TAPE,NT,D=1200,CV=AS,F=S,LB=KU,PO=W. FILE,TAPE,MRL=132,MBL=132,RT=F,BT=C. 9. Since open core is used in data processing, the OUTPUT5 module is capable of handling all kinds and all sizes of input data blocks. =PAGE= PARAM - Parameter Processor Purpose To perform specified operations on integer DMAP parameters. DMAP Calling Sequence PARAM // C,N,op / V,N,OUT / V,N,IN1 / V,N,IN2 $ Input Data Blocks None. Output Data Blocks None. Parameters op a BCD operation code from the table below (Input, no default). op is usually specified as a "C,N" parameter. OUT the name of the parameter which is being generated by PARAM (Output-Integer, default = 1). IN1 the name of a parameter whose value is used to compute OUT according to the table below (Input-Integer, default = 1). IN2 the name of a parameter whose value is used to compute OUT according to the table below (Input-Integer, default = 1). Remarks 1. The tables below give the results for OUT as a function of op, IN1, and IN2. Ŀ Param Arithmetic Operations Ĵ op ADD SUB MPY DIV NOT Ĵ OUT IN1+IN2 IN1-IN2 IN1xIN2 IN1/IN2 -IN1 Ŀ Param Logical Operations Ĵ op AND OR IMPL Ĵ IN1 <0 <0 >=0>=0<0 <0 >=0>=0<0 <0 >=0>=0 Ĵ IN2 <0 >=0<0 >=0<0 >=0<0 >=0<0 >=0<0 >=0 Ĵ OUT -1 +1 +1 +1 -1 -1 -1 +1 -1 +1 -1 -1 Ŀ Param Arithmetic Relational Operations Ĵ op EQ GE GT LE LT NE Ĵ IN1-IN2<0 =0 >0<0 =0 >0<0 =0 >0<0 =0 >0<0 =0 >0<0 =0 >0 ĴĴĴ OUT +1 -1 +1+1 -1 -1+1 +1 -1-1 -1 +1-1 +1 +1-1 +1 -1 Ŀ Param Special Operations Ĵ op OUT Ĵ NOP OUT (unchanged) KLOCK Current CPU time in integer seconds from the start of the job. TMTOGO Remaining CPU time in integer seconds based on the TIME card. PREC Returns the currently requested precision; single precision (1) or double precision (2). DIAG Turn on DIAGs IN1 through IN2. IN1 >= IN2 will turn on DIAG IN1 IN1 < IN2 will turn on DIAG IN1 through DIAG IN2 DIAGOFF Turn off DIAGs IN1 through IN2 as used for DIAG. SSST Turns DIAG OUT on if OUT > 0. Turns DIAG |OUT| off if OUT <= 0. SSSR Saves DIAG IN1 in OUT if IN1 >= 0. Restores DIAG |IN1| to OUT if IN1 < 0. STSR Saves SYSTEM(IN1) in OUT if IN1 >= 0. Restores SYSTEM(IN1) to OUT if IN1 < 0. (SYSTEM(IN1) is the IN1-th word in /SYSTEM/ common block.) SYSR Saves SYSTEM(IN1) in OUT. SYST Sets the value of both SYSTEM(IN1) and OUT to IN2. 2. PARAM does its own SAVE; therefore, a SAVE is not needed following the module. Examples 1. To change the sense of parameter NOXYZ (which may be useful for the COND or EQUIV instructions): PARAM // C,N,NOT / V,N,XYZ / V,N,NOXYZ $ or PARAM // *NOT* / XYZ / NOXYZ $ Alternatively, XYZ could have been set in the following way: PARAM // C,N,MPY / V,N,XYZ / V,N,NOXYZ / C,N,-1 $ or PARAM // *MPY* / XYZ / NOXYZ / -1 $ 2. PARAM // C,N,IMPL / V,N,ABC / V,N,DEF / V,N,GHI $ 3. To set the value of parameter P1 to 5 and save it for subsequent use: PARAM // C,N,NOP / V,N,P1=5 $ or PARAM // *NOP* / P1=5 $ 4. To set parameter ABC to +1: PARAM // C,N,EQ / V,N,ABC / C,N,2 / C,N,-3 $ or PARAM // *EQ* / ABC / 2 / -3 $ 5. To change the maximum number of lines of printed output: PARAM // C,N,SYST / Y,N,DUM / C,N,14 / C,N,150000 $ or PARAM // *SYST* // 14 / 150000 $ The 14th word in /SYSTEM/ common block is MXLINS, whose default value is 20000, that is, SYSTEM(14) = 20000. The equivalent operations to the PARAM examples shown above are to code SYSTEM(14) = 150000 or MXLINS = 150000 on the NASTRAN card or to use the Case Control card MAXLINES = 150000. 6. To turn on DIAGs 1 through 6: PARAM // C,N,DIAG / C,N, / C,N,1 / C,N,6 $ or PARAM // *DIAG* // 1 / 6 $ This can also be done with the Executive Control card DIAG 1,2,3,4,5,6. =PAGE= PARAMD - Parameter Processor, Double Precision Purpose To perform specified arithmetic, logical, and conversion operations on double precision real or double precision complex parameters. DMAP Calling Sequence PARAMD // C,N,OP / V,N,OUTD / V,N,IND1 / V,N,IND2 / V,N,OUTC / V,N,INC1 / V,N,INC2 / V,N,FLAG $ Input Data Blocks None. Output Data Blocks None. Parameters OP Input-BCD operation code from the table below, no default. OUTD Output-Double precision, default = 0.0D+0. IND1 Input-Double precision, default = 0.0D+0. IND2 Input-Double precision, default = 0.0D+0. OUTC Output-Double precision-complex, default = (0.0D+0, 0.0D+0). INC1 Input-Double precision-complex, default = (0.0D+0, 0.0D+0). INC2 Input-Double precision-complex, default = (0.0D+0, 0.0D+0). FLAG Output-Integer, default = 0 (see Remark 6). The values of parameters are dependent upon OP as shown in the table described in PARAMR module. In addition, a new OP operation code is added: OP OUTPUTS ERR If FLAG is set to 0 (or by default), NASTRAN system NOGO flag (the 3rd word of /SYSTEM/) is set to integer zero unconditionally. If FLAG is set to non-zero by user, NASTRAN job will terminate if any preceding PARAMD (or PARAMR) has non-fatal error(s). Remarks 1. All parameters, except OP, must be "V" type. Default parameter values will be used in case of error. Error in input parameter(s) would cause output parameter(s) to pick up the original default value(s). 2. All input errors are non-fatal, with error messages printed. 3. PARAMD does its own SAVE; therefore, a SAVE is not needed following the module. 4. For OP = DIV or OP = DIVC, the output is zero if the denominator is zero, and FLAG is set to +1. 5. For OP = SIN, OP = COS or OP = TAN, the input must be expressed in radians. 6. The default value of FLAG is zero as stated in the Programmer's Manual. All NASTRAN releases prior to 1989 actually used a +1 instead of 0. The case where FLAG = -1 was not affected. 7. Remarks 1, 2, and 6 also apply to the PARAMR module. The new ERR operation code is also available in PARAMR. Examples PARAMR //*ERR* $ PARAMR //*ADD* /V,N,R1SP4 /V,N,R1 /V,N,SP4 $ PARAMR //*SUB* /V,N,R1SP4 /V,N,R1 /V,N,SP4 $ PARAMR //*ABS* /V,N,ABSR1 /V,N,R1 $ PARAMR //*SQRT* /V,N,SQTR1 /V,N,ABSR1 $ PARAMR //*MPYC* ////V,N,CMPY /V,N,SCPLX /V,N,CS1 $ PARAMR //*COMPLEX*//V,N,R1 /V,N,SP4 /V,N,OUTC $ PARAMR //*LE* //V,N,R1 /V,N,SP4////V,N,LEFLG $ PARAMD //*MPY* /V,N,RDPDP /V,N,RDPX /V,N,RDPX $ PARAMD //*DIV* /V,N,DP4X /V,N,DP4 /V,N,RDPX $ PARAMD //*EXP* /V,N,EXPX /V,N,DP4 /V,N,RDP $ PARAMD //*CONJ* ////V,N,CONJX /V,N,CDP4 $ PARAMD //*EQ* //V,N,EXPX /V,N,DP4////V,N,EQFLG $ PARAMD //*DIVC* ////V,N,DIVCX /C,Y,DCPLX4/V,N,CDP4 $ PARAMD //*ERR* //// // /C,N,1 $ PRTPARM // 0 $ =PAGE= PARAML - Abstract Parameters From a List Purpose To convert an element from a GINO matrix or table data block to a legitimate NASTRAN parameter, or parameters. DMAP Calling Sequence PARAML DB // C,N,OP / V,N,P1 / V,N,P2 / V,N,RSP/ V,N,INT/ V,N,RDP/ V,N,BCD/ V,N,CSX/ V,N,CDX $ Input Data Blocks DB Any GINO data block file (table or matrix, single precision or double precision, real or complex). Output Data Blocks None. Parameters OP One of the following key words, BCD input, no default. "MATRIX", "NULL", "PRESENCE", "TRAILER", "TABLE1", "TABLE2", or "TABLE4". P1,P2 Input-Integer, see Remark 4 below, default = 1,1. P2 Output-Integer (only in OP=TRAILER). RSP Output-Real single precision, default = 0.0. INT Output-Integer, default = 0. RDP Output-Real double precision, default = 0.D+0. BCD Output, two BCD words in 2A4 format, default = (VOID) CSX Output, single precision complex number, default = (0.,0.). CDX Output, double precision complex, default = (0.D+0,0.D+0). Remarks 1. RSP, INT, RDP, BCD, CSX and CDX will be set by the module whenever they are present and of the "V" type parameters. The parameters will be printed out in their respective formats according to their precision types. Warning message will be printed if type mismatch occurs or end-of-record is encountered. 2. After execution, the parameter value will be delivered to NASTRAN's executive VPS table as a numerical value in the form specified by any one or some of the parameters RSP, RDP, CSX, CDX, INT, or BCD (4 BCD characters per word, the rest of the word blank filled). 3. PARAML does its own SAVE; therefore, a SAVE is not needed following the module. Invalid parameter due to type mismatch or EOR encountered, is not saved and the default value remains. 4. P1 and P2 control the location in the data block of the element to be selected. The meaning of P1 and P2 depend on OP selection as explained in Remarks 5 through 9. 5. If OP = TABLEi (where i=1, 2, or 4), P1 is the record number and P2 is the word position of the target element in DB. Word position is based on computer word count (1 word per integer or single precision real, 2 words per double precision real or single precision complex, and 4 words per double precision complex). The table data from record P1 and word P2 (or word P2 plus more) will be delivered to the VPS table as a numerical value in the form specified. If OP = TABLE1, one data word from P2 word position, record P1, will be used to form the output parameter. If OP = TABLE2, two data words from P2 and P2+1, record P1, will be used. If OP = TABLE4, four words from P2, P2+1, P2+2, and P2+3, record P1, will be used. Since table data block DB can contain mixed types of data, you must know ahead of time what the original data type is, and select TABLE1, TABLE2, or TABLE4 accordingly. For example, the data in P2, p2+1, P2+2, and P2+3 are a, b, c, d, and the output parameter request is double precision complex CDX, TABLE1 gives CDX = (a.D+0, 0.D+0) TABLE2 gives CDX = (a.D+0, b.D+0) TABLE4 gives CDX = (e.D+0, f.D+0) where e is a double precision real number formed by the union of a and b, and f, by the union of c and d. 6. If OP = MATRIX, P1 is the row number and P2 is the column number of the matrix in [DB] to be read. The matrix element of (ROW,COL) will be delivered to VPS as a numerical value in the form specified by one or more of the parameters RSP, RDP, CSX, or CDX. Requests for CSX or CDX from a real matrix will assign the value of (ROW,COL) to the real part and zero to the imaginary part. The requested output parameter(s) are set to zero(s) and a warning message is issued if: (1) P1 and/or P2 exceed the matrix order, (2) requests for RSP and RDP from a complex matrix, (3) requests for INT and BCD from [DB], and the invalid output parameter(s) are not saved. (Notice that row first and column second is consistent with SCALAR module parameter input, and also with common practice in matrix element designation; (row,column)). 7. If OP = NULL and if [DB] is a matrix, INT is set to -1 if the sixth word of the matrix trailer, the matrix density, is zero. 8. If OP = PRESENCE, INT will be -1 if input data block is purged. 9. If OP = TRAILER, P2 is output as the value of ith word of the matrix trailer where i is set by P1 in accordance with the following table. Ŀ P1 TERM OF MATRIX TRAILER Ĵ 1 Numbers of columns 2 Number of rows 3 Form of matrix 4 Precision of matrix 5 Maximum number of nonzero terms in any column of the matrix 6 Matrix density 10. One or more of the output parameters can be requested simultaneously. 11. After execution, a user information message prints out the parameter value in the format prescribed by you. The output parameters can also be printed by the PRTPRM module which carries normally more digits. (PRTPRM may actually print integer zero in a real number format, 0.0) 12. See SCALAR module for similar capability. Examples Obtain the value in column 1, row 4 of a real matrix, and record 2 word 5 of a table. PARAML KGG //*MATRIX*/C,N,4/C,N,1 /V,N,STERM $ PARAML KGG //*MATRIX*/C,N,4/C,N,1 ///V,N,DTERM $ PARAML KGG //*MATRIX*/C,N,4/C,N,1 /////V,N,CSTERM $ PARAML KGG //*MATRIX*/C,N,4/C,N,1//////V,N,CDTERM $ PARAML KGG //*MATRIX*/C,N,4/C,N,1/V,N,TERM1//V,N,TERM2 //V,N,TERM3/V,N,TERM4 $ PARAML CASECC //*TABLE1*/C,N,2/C,N,2 //V,N,ATERM $ PARAML CASECC //*TABLE2*/C,N,2/C,N,5////V,N,BTERM $ The above output parameters yield the following results: STERM ,TERM1 = KGG(4,1), in single precision, DTERM ,TERM2 = KGG(4,1), in double precision, CSTERM,TERM3 = KGG(4,1), in single precision complex expression, CDTERM,TERM4 = KGG(4,1), in double precision complex expression ATERM = 2nd word of the 2nd record of CASECC, integer, and BTERM = 5th and 6th words of the 2nd record of CASECC, 2 BCD words. =PAGE= PARAMR - Parameter Processor, Real Purpose To perform specified arithmetic, logical, and conversion operations on real or complex parameters. DMAP Calling Sequence PARAMR // C,N,OP / V,N,OUTR / V,N,INR1 / V,N,INR2 V,N,OUTC / V,N,INC1 / V,N,INC2 V,N,FLAG $ Input Data Blocks None. Output Data Blocks None. Parameters OP Input-BCD operation code from the table below, no default. OUTR Output-Real, default = 0.0. INR1 Input-Real, default = 0.0. INR2 Input-Real, default = 0.0. OUTC Output-Complex, default = (0.0,0.0). INC1 Input-Complex, default = (0.0,0.0). INC2 Input-Complex, default = (0.0,0.0). FLAG Output-Integer, default = 0. The values of the parameters are dependent upon OP as shown in the following table: OP OUTPUTS ADD OUTR = INR1 + INR2 SUB OUTR = INR1 - INR2 MPY OUTR = INR1 * INR2 DIV OUTR = INR1 / INR2 NOP RETURN SQRT OUTR = square root of INR1 SIN OUTR = SIN(INR1) COS OUTR = COS(INR1) ABS OUTR = | INR1 | EXP OUTR = exp (INR1) TAN OUTR = TAN(INR1) NORM OUTR = || OUTC || POWER OUTR = INR1 ** INR2 ADDC OUTC = INC1 + INC2 SUBC OUTC = INC1 - INC2 MPYC OUTC = INC1 * INC2 DIVC OUTC = INC1 / INC2 CSQRT OUTC = square root of INC1 COMPLEX OUTC = (INRT,INR2) CONJ OUTC = INC1 REAL INR1 = Re (OUTC) INR2 = Im (OUTC) EQ FLAG = -1 if INR1 = INR2 GT FLAG = -1 if INR1 > INR2 LT FLAG = -1 if INR1 < INR2 LE FLAG = -1 if INR1 <= INR2 GE FLAG = -1 if INR1 >= INR2 NE FLAG = -1 if INR1 not equal INR2 LOG OUTR = LOG (INR1) 10 LN OUTR = LOG (INR1) e FIX FLAG = FIX (OUTR) FLOAT OUTR = FLOAT(FLAG) Remarks 1. Any output parameter must be "V" type if the parameter is used by "OP" as output. 2. For OP = DIV or OP = DIVC, the output is zero if the denominator is zero. 3. PARAMR does its own SAVE; therefore, a SAVE is not needed following the module. 4. For OP = SIN, OP = COS, or OP = TAN, the input must be expressed in radians. =PAGE= PRTPARM - Parameter and DMAP Message Printer Purpose A. Prints parameter values. B. Prints DMAP messages. DMAP Calling Sequence PRTPARM // C,N,a / C,N,b / C,N,c $ Input Data Blocks None. Output Data Blocks None. Parameters a Integer value (no default value). b BCD value (default value = XXXXXXXX). c Integer value (default value = 0). Method A. As a parameter printer, use a = 0. There are two options: 1. b = parameter name will cause the printout of the value of that parameter. Example: PRTPARM // C,N,0 / C,N,LUSET $ 2. b = XXXXXXXX will cause the printout of the values of all parameters in the current variable parameter table. Since this is the default value, it need not be specified. Example: PRTPARM // C,N,0 $ B. As a DMAP message printer, use a not equal to 0. There are two options: 1. a > 0 causes the printout of the jth message of category b where j = |a| and b is one of the values shown below. (The number of messages available in each category is also given.) Example: PRTPARM // C,N,1 / C,N,DMAP $ 2. a < 0 causes the same action as a 0 with the additional action of program termination. Thus, PRTPARM may be used as a fatal message printer. Example: PRTPARM // C,N,-2 / C,N,PLA $ Remarks 1. b is always a value. 2. Meaningless values of a and b will result in diagnostic messages from PRTPARM. 3. Following is a table of b category values. Ŀ Number of DISPLACEMENT Rigid Formats Value of b Messages Ĵ 1 Static Analysis STATICS 5 2 Static Analysis with Inertia Relief INERTIA 6 3 Normal Mode Analysis MODES 4 4 Static Analysis with Differential Stiffness DIFFSTIF 5 5 Buckling Analysis BUCKLING 6 6 Piecewise Linear Static Analysis PLA 5 7 Direct Complex Eigenvalue Analysis DIRCEAD 3 8 Direct Frequency and Random Response DIRFRRD 4 9 Direct Transient Response DIRTRD 3 10 Modal Complex Eigenvalue Analysis MDLCEAD 5 11 Modal Frequency and Random Response MDLFRRD 7 12 Modal Transient Response MDLTRD 6 13 Normal Modes Analysis with Differential NMDSTIF 6 Stiffness 14 Static Analysis with Cyclic Symmetry CYCSTAT 6 15 Normal Modes Analysis with Cyclic Symmetry CYCMODES 6 16 Static Aerothermoelastic Design/Analysis ASTAT 5 of Axial-Flow Compressors Ĵ HEAT Rigid Formats Ĵ 1 Static Heat Transfer HSTAT 4 3 Nonlinear Static Heat Transfer HNLIN 3 9 Transient Heat Transfer HTRD 2 Ĵ AERO Rigid Formats Ĵ 9 Blade Cyclic Modal Flutter Analysis BLADE 7 10 Modal Flutter Analysis FLUTTER 5 11 Modal Aeroelastic Response AERORESP 4 Ĵ Direct Matrix Abstraction Program Ĵ DMAP DMAP See Remark 5 4. For details on error messages for the ith Displacement Rigid Format, see Section 3.(i+1). The Heat and Aero Rigid Formats follow these. 5. The message number, a, may be any integer for DMAP messages. 6. The third parameter is not used. =PAGE= SCALAR - Convert Matrix Element to Parameter Purpose To extract a specified element from a matrix for use as a parameter. DMAP Calling Sequence SCALAR DB // C,N,ROW/C,N,COL/V,N,RSP/V,N,RDP/V,N,CSX/V,N,CDX $ Input Data Blocks DB May be any type of matrix (single precision or double precision, real or complex). Output Data Blocks None. Parameters ROW Row number of element to be extracted from [DB]. Input-Integer, default = 1. COL Column identification of element. Input-Integer, default = 1. RSP Output, value of element (ROW,COL) in single precision real, default = 0.0. RDP Output, value of element (ROW,COL) in double precision real, default = 0.D+0. CSX Output, value of element (ROW,COL) in single precision complex, default = (0.,0.). CDX Output, value of element (ROW,COL) in single precision complex, default = (0.D+0,0.D+0). Remarks 1. RSP, RDP, CSX, and CDX will be set by the module whenever they are present and of the "V" type parameters. The parameters will be printed out in their respective formats according to their precision types. Warning message will be printed if type mismatch occurs or element specified is out of matrix range. 2. After execution, the parameter value will be delivered to NASTRAN's executive VPS table as a numerical value in the form specified by any of the parameters RSP, RDP, CSX, or CDX. The output parameters can also be printed by the PRTPRM module, which carries normally more digits. 3. SCALAR does its own SAVE; therefore, a SAVE is not needed following the module. There is no save for any invalid parameter, and the default value remains unchanged. 4. If [DB] is purged, all parameter default values remain unchanged. 5. All of the output parameters can be printed out by PRTPRM module. 6. See PARAML for a similar capability. Examples Obtain the value of the element in column 8 and row 2 of the matrix KLL. SCALAR KLL//C,N,2/C,N,8 /V,N,S1 $ SCALAR KLL//C,N,2/C,N,8 //V,N,D1/V,N,S2/V,N,D2 $ The output parameters give the following results: S1 = KLL(2,8), in single precision real, D1 = KLL(2,8), in double precision real, S2 = KLL(2,8), in single precision complex expression, and D2 = KLL(2,8), in double precision complex expression. =PAGE= SEEMAT - Pictorial Matrix Output Purpose To display nonzero elements of a matrix on printer or plotter output positioned pictorially by row and column within the outlines of the matrix. DMAP Calling Sequence SEEMAT M1,M2,M3,M4,M5 // C,N,OPTION/V,N,PFILE/V,N,PACK/ C,N,MODEL/C,N,TYPING/C,N,PAPERX/C,N,PAPERY $ Input Data Blocks M1,M2,M3,M4,M5 Matrix data blocks, any of which may be purged. Output Data Blocks None. Parameters OPTION Input BCD value, default = PRINT. This parameter specifies the output option. PRINT implies the use of the system output file. PLOT implies the use of the NASTRAN General Purpose Plotter (NASTPLT) (see Section 4.1). (Any value other than PLOT implies PRINT.) NOTE: The following parameters are used only if OPTION = PLOT. PFILE Input/Output-Integer, default = 0. PFILE represents the frame (or sheet) number generated by the plotter. The value of this parameter is incremented by one (1) for each frame (or sheet) plotted by SEEMAT. PACK Input-Integer, default = 100. Reserved for a future modification that will allow the representation of a nonzero block of a matrix with a single character. MODEL Input-BCD value, default = M. This parameter specifies the plotter type or model. Permissible values are M for microfilm plotters, T for table plotters, and D for drum plotters. The default value of M implies a microfilm plotter. TYPING Input-Integer, default = 1. This parameter specifies the typing capability of the plotter. A value of 1 specifies a plotter without typing capability. (In this case, all characters in the plot will be drawn.) A value of 0 specifies a plotter with typing capability. PAPERX Input-Real, default = 0.0. This parameter specifies the horizontal size (or X-dimension) in inches of the plot frame. The use of the default value of 0.0 actually causes the program to employ a horizontal size of 11.0 inches for table plotters and 30.0 inches for drum plotters. (PAPERX cannot be greater than 30.0 inches for table plotters.) See Remark 5 regarding the frame size for microfilm plotters. PAPERY Input-Real, default = 0.0. This parameter specifies the vertical size (or Y-dimension) in inches of the plot frame. The use of the default value of 0.0 actually causes the program to employ a vertical size of 8.5 inches for table plotters and 30.0 inches for drum plotters. (PAPERY cannot be greater than 30.0 inches for either table or drum plotters.) See Remark 5 regarding the frame size for microfilm plotters. Method The matrix is partitioned into blocks which can be printed on a single sheet of output paper or frame on the plotter selected. Only blocks containing nonzero elements will be output. Row and column indices are indicated. You are cautioned to make sure your line count limit is large enough. A default of 20,000 lines is provided by NASTRAN. This may be changed by the use of the MAXLINES card in the Case Control Deck (see Section 2.3). The transpose of the matrix is output. Remarks 1. If a plotter is used, the file PLT2 (either on tape or mass storage) must be made available to NASTRAN. 2. If a plotter is used, the PFILE parameter updated by SEEMAT must be saved either by using a SAVE instruction immediately after the SEEMAT instruction or by using the automatic SAVE feature (/S,N,PFILE/) in the SEEMAT instruction itself. 3. The nonzero elements are indicated by asterisks (*), except for diagonal elements of square matrices, which are indicated by the letter D, and elements in the last row or column, which are indicated by dollar signs ($). 4. The default plotter model is specified by omitting the last five parameters. 5. The plot frame size for microfilm plotters is set at 10.23 inches x 10.23 inches and is not under user control. Examples 1. Specify a table plotter with typing capability as follows: SEEMAT M1,M2,M3,M4,M5 //*PLOT*/S,N,PFILE//*T*/0 $ 2. Specify a drum plotter without typing capability as follows: SEEMAT M1,M2,M3,M4,M5 //*PLOT*/S,N,PFILE//*D* $ 3. Specify the default plotter (a microfilm plotter without typing capability) as follows: SEEMAT M1,M2,M3,M4,M5 //*PLOT*/S,N,PFILE $ 4. Specify the printer rather than a plotter as follows: SEEMAT M1,M2,M3,M4,M5 // $ 5. For additional examples, see Section 5.8.8. =PAGE= SETVAL - Set Values Purpose Set integer DMAP parameter variable values equal to other integer DMAP parameter variables or integer DMAP parameter constants. DMAP Calling Sequence SETVAL // V,N,X1 / V,N,A1 / V,N,X2 / V,N,A2 / V,N,X3 / V,H,A3 / V,N,X4 / V,N,A4 / V,N,X5 / V,N,A5 $ Input Data Blocks None. Output Data Blocks None. Parameters X1, X2, X3, X4, X5 Output-Integers, variables (default values = -1, except for X1, which has no default). A1, A2, A3, A4, A5 Input-Integers, variables or constants (default values = -1). Method This module sets X1 = A1, X2 = A2, X3 = A3, X4 = A4, and X5 = A5. Only two parameters need be specified in the calling sequence (X1 and A1). Remarks 1. SETVAL does its own SAVE; therefore, a SAVE is not needed following the module. 2. See PARAM for an alternate method of defining parameter values. 3. As an example, the statement SETVAL //X1/A1/X2/3 $ is equivalent to the statements: PARAM //*ADD*/X1/A1/0 $ PARAM //*NOP*/X2 = 3 $ =PAGE= SWITCH - Interchange Data Block Names Purpose To interchange two data block names. DMAP Calling Sequence SWITCH DB1,DB2 // PARAM $ Input Data Blocks DB1 Any NASTRAN data block. DB2 Any NASTRAN data block. Output Data Blocks None. Parameters PARAM If PARAM < 0, the switch will be performed - Input-Integer, default = -1. Method If PARAM >= 0, a return is made; otherwise the names of the data blocks are interchanged. All attributes of the data within the blocks remains constant; only the names are changed. Remarks 1. Neither input data block may be purged. 2. This option is of use in iterative DMAP operations. =PAGE= TABPCH - Table Punch Purpose To punch NASTRAN tables onto DTI cards in order to allow transfer of data from one NASTRAN run to another, or to allow user postprocessing. DMAP Calling Sequence TABPCH TAB1,TAB2,TAB3,TAB4,TAB5 // C,N,A1 / C,N,A2 / C,N,A3 / C,N,A4 / C,N,A5 $ Input Data Blocks TAB1, TAB2, TAB3, TAB4, TAB5 Any NASTRAN tables. Output Data Blocks None. All output is punched onto DTI cards. Parameters A1, A2, A3, A4, A5 Input-BCD; defaults are AA, AB, AC, AD, AE. These parameters are used to form the first two characters (columns 74, 75) of the continuation field for each table respectively. Remarks 1. Any or all tables may be purged. 2. Integer and BCD characters will be punched onto single-field cards. Real numbers will be punched onto double-field cards. Their formats are I8, 2A4, E16.9. 3. Up to 99,999 cards may be punched per table. 4. Twice the entire record must fit in open core. 5. Tables with 1 word BCD values (ELSETS) cannot be punched correctly. Examples TABPCH EST,,,, // C,N,ES $ will punch the EST onto cards with a continuation mnemonic of +ESbbbbi (where i is the sequence number). =PAGE= TABPRT - Formatted Table Printer Purpose To print selected table data blocks with format for ease of reading. DMAP Calling Sequence TABPRT TDB // C,N,KEY / C,N,OPT1 / C,N,OPT2 $ Input Data Blocks TDB Table Data Block from list given under X. Output Data Blocks None. Parameters KEY Alphanumeric value, no default. Identifies the format to be used in printing the table. The allowable list is given under X. OPT1 Integer, default value = 0. If 0, no blank lines are written between entries. If not equal to 0, one blank line will be written between each pair of entries. OPT2 Integer, default value = 0. Not used at present. Output The contents of the table are formatted and written on the system output file. Remarks 1. The module returns in the event of any difficulty. 2. The TABPT module can be used to print the contents of any data block. Examples 1. TABPRT CSTM // C,N,CSTM $ 2. TABPRT GPL // C,N,GPL / C,N,1 $ Miscellaneous Following is a list of data blocks recognized by TABPRT. (Rigid Format name is used here. The actual DMAP name for the same or equivalent information is acceptable.) Data Block Key (Value) BGPDT BGPDT CSTM CSTM EQDYN EQDYN EQEXIN EQEXIN GPCT GPCT GPDT GPDT GPL GPL GPLD GPLD GPTT GPTT =PAGE= TABPT - Table Printer Purpose To print table data blocks (may be used for matrix data blocks if desired). DMAP Calling Sequence TABPT TAB1,TAB2,TAB3,TAB4,TAB5 // $ Input Data Blocks TAB1, TAB2, TAB3, TAB4, TAB5 Any NASTRAN data block. NOTE: Any or all input data blocks can be purged. Output Data Blocks None. Parameters None. Remarks 1. Each input data block is treated as a table and its contents are printed on the system output file via a prescribed format. Each word of the table is identified by the module as to type (Real, BCD, Integer) and an appropriate format is used. 2. The trailer data items for the table are also printed. 3. Purged input data blocks are not printed. Examples TABPT GEOM1,,,, // $ TABPT GEOM1 ,GEOM2 ,GEOM3 ,GEOM4 ,GEOM5 // $ =PAGE= TIMETEST - Timing Data for Unit Operations Purpose To produce timing data for specific NASTRAN unit operations. DMAP Calling Sequence TIMETEST /, / C,N,N / C,N,M / C,N,T / C,N,01 / C,N,02 $ Input Data Blocks None. Output Data Blocks FILE1, FILE2 Reserved for future implementation Parameters N Outer loop index. M Inner loop index. T Data type to be processed. 01 TIMTST routine to be processed. 02 Powers-of-two table for TIMTST option selection. See Section 4.140 of the NASTRAN Programmer's Manual for further description of the parameters. Examples TIMETEST / , / C,N,100 / C,N,100 / C,N,1 / C,N,2 $ TIMETEST / , / C,N,10 / C,N,10 / C,N,3 / C,N,1 / C,N,127 $ =PAGE= VEC - Create Partitioning Vector Purpose To create a partitioning vector for matrices using USET that may be used by matrix operation modules MERGE and PARTN. This allows you to split up long running modules such as SMP1. DMAP Calling Sequence A. For matrices generated in Rigid Formats 1-6 or prior to module GKAD (or GKAM) in Rigid Formats 7 - 12: VEC USET / V / C,N,SET / C,N,SET0 / C,N,SET1 / V,N,ID $ B. For matrices generated in Rigid Formats 7 - 12 after module GKAD (or GKAM): VEC USETD / V / C,N,SET / C,N,SET0 / C,N,SET1 / V,N,ID $ Input Data Blocks USET Displacement set definition (statics). USETD Displacement set definition (dynamics). HUSET Displacement set definition (heat transfer). USETA Displacement set definition (aeroelastic). NOTE: The set definition input data block may not be missing and must fit into open core. Output Data Blocks V Partitioning vector. NOTES 1. If all elements are in SET0 or SET1 then V will be purged. 2. V may not be purged prior to execution. Parameters SET Matrix set to be partitioned (Input-BCD, no default). SET0 Upper partition of SET (Input-BCD, no default). SET1 Lower partition of SET (Input-BCD, no default). ID Identification of bit position (see table below) (Input-Integer, default = 0). NOTES 1. Legal parameter values are given in the table below. 2. See Section 1.4 for a description of set notation. Parameter Value USET Matrix Bit Position M Um 32 S Us (union of SG and SB) 31 0 Uo 30 R Ur 29 G Ug 28 N Un 27 F Uf 26 A Ua 25 L Ul 24 SG Us (specified on Grid card) 23 SB Us (specified on SPC card) 22 E Ue 21 P Up 20 NE Une (union of N and E) 19 FE Ufe (union of F and E) 18 D Ud 17 PS Ups 16 SA UsA 15 K Uk 14 PA UpA 13 Remarks 1. Parameters SET0 and SET1 must be a subset of the SET matrix parameter. A degree of freedom may not be in both subsets. 2. If desired, one of SET0 or SET1, but not both, may be requested to be the complement of the other one by giving it a value of COMP. 3. If SET = BITID, the second and third parameters are ignored and the IDth bit position in USET (or USETD) is used. In this case, SET is assumed equal to G (or P) and SET0 will correspond to the zeros in the IDth position and SET1 will correspond to the non-zeros in the IDth position. Examples 1. To partition [Kff] into a- and o- set based matrices, use VEC USET / V / C,N,F / C,N,O / C,N,A $ PARTN KFF,V, / KOO,KAO,KOA,KAA $ Note that the same thing can be done in one step by UPARTN USET,KFF / KOO,KAO,KOA,KAA / C,N,F / C,N,P / C,N,A $ 2. Example 1 could be accomplished by VEC USET / V / C,N,F / C,N,O / C,N,COMP $ or VEC USET / V / C,N,F / C,N,COMP / C,N,A $ 3. Example 1 could be accomplished by VEC USET / V / C,N,BITID / C,N,X / C,N,X / C,N,25 $ =PAGE= 5.6 USER MODULES Module Basic Function Page DDR User Dummy Module 5.6-2 DUMMOD1 Dummy Module 1 5.6-3 DUMMOD2 Dummy Module 2 5.6-4 DUMMOD3 Dummy Module 3 5.6-5 DUMMOD4 Dummy Module 4 5.6-6 DUMMOD5 Dummy Module 5 5.6-7 MATGEN User Dummy Module 5.6-9 MODA User Dummy Module 5.6-10 MODB User Dummy Module 5.6-11 MODC User Dummy Module 5.6-12 OUTPUT Auxiliary Output File Processor 5.6-13 XYPRNPLT User Dummy Module 5.6-15 A number of modules have been placed in the NASTRAN system for which only dummy code exists. These modules are available to you to create your own data blocks by reading tapes or data cards, generate your own output on the printer, punch, or plotter, or perform your own matrix computations. The appropriate MPL (Module Properties List) information is presented for each such user module in this section. All necessary interfaces with the Executive System have been completed for these user modules. The procedures for implementing a user module are described in Section 6.12 of the Programmer's Manual. =PAGE= DDR - User Dummy Module Purpose Can be used for any desired purpose. DMAP Calling Sequence (See Remarks below.) DDR A/X/C,N,ABC/C,N,DEF/C,N,GHI $ Input Data Blocks As desired by author of module. Output Data Blocks As desired by author of module. Parameters Parameters may be used as desired by the author of the module. The parameter types are indicated by the constants in the calling sequence shown above. Remarks This module has been provided for those who may want to include a module of their own design in the system. The number of inputs and outputs, as well as the number, type, and default values of the parameters, may be changed by changing the Module Properties List (MPL) in subroutine XMPLDD (see Section 2 of the Programmer's Manual). =PAGE= DUMMOD1 - Dummy Module 1 Purpose Can be used for any desired purpose. DMAP Calling Sequence (See Remarks below.) DUMMOD1 I1,I2,I3,I4,I5,I6,I7,I8 / O1,O2,O3,O4,O5,O6,O7,O8 / C,N,-1 / V,Y,P2=-1 / V,N,P3=-1 / C,Y,P4=-1 / C,Y,P5=-1.0 / C,N,-1.0 / C,Y,P7=ABCDEFGH / C,Y,P8=-1.0D0 / C,Y,P9=(-1 0,-1.0) / C,Y,P10=(-l.0D0,-1.0D0) $ Input Data Blocks As desired by author of module. Output Data Blocks As desired by author of module. Parameters Parameters may be used as desired by the author of the module. The parameter types are indicated by the default values shown in the calling sequence above. Remarks This module has been provided for those who may want to include a module of their own design in the system. The number of inputs and outputs, as well as the number, type, and default values of the parameters, may be changed by changing the Module Properties List (MPL) in subroutine XMPLDD (see Section 2 of the Programmer's Manual). =PAGE= DUMMOD2 - Dummy Module 2 Purpose Can be used for any desired purpose. DMAP Calling Sequence (See Remarks below.) DUMMOD2 I1,I2,I3,I4,I5,I6,I7,I8 / O1,O2,O3,O4,O5,O6,O7,O8 / C,N,-1 / V,Y,P2=-1 / V,N,P3=-1 / C,Y,P4=-1 / C,Y,P5=-1.0 / C,N,-1.0 / C,Y,P7=ABCDEFGH / C,Y,P8=-1.0D0 / C,Y,P9=(-1 0,-1.0) / C,Y,P10=(-1.0D0,-1.0D0) $ Input Data Blocks As desired by author of module. Output Data Blocks As desired by author of module. Parameters Parameters may be used as desired by the author of the module. The parameter types are indicated by the default values shown in the calling sequence above. Remarks This module has been provided for those who may want to include a module of their own design in the system. The number of inputs and outputs, as well as the number, type, and default values of the parameters, may be changed by changing the Module Properties List (MPL) in subroutine XMPLDD (see Section 2 of the Programmer's Manual). =PAGE= DUMMOD3 - Dummy Module 3 Purpose Can be used for any desired purpose. DMAP Calling Sequence (See Remarks below.) DUMMOD3 I1,I2,I3,I4,I5,I6,I7,I8 / O1,O2,O3,O4,O5,O6,O7,O8 / C,N,-1 / V,Y,P2=-1 / V,N,P3=-1 / C,Y,P4=-1 / C,Y,P5=-1.0 / C,N,-1.0 / C,Y,P7=ABCDEFGH / C,Y,P8=-1.0D0 / C,Y,P9=(-1 0,-1.0) / C,Y,P10=(-1.0D0,-1.0D0) $ Input Data Blocks As desired by author of module. Output Data Blocks As desired by author of module. Parameters Parameters may be used as desired by the author of the module. The parameter types are indicated by the default values shown in the calling sequence above. Remarks This module has been provided for those who may want to include a module of their own design in the system. The number of inputs and outputs, as well as the number, type, and default values of the parameters, may be changed by changing the Module Properties List (MPL) in subroutine XMPLDD (see Section 2 of the Programmer's Manual). =PAGE= DUMMOD4 - Dummy Module 4 Purpose Can be used for any desired purpose. DMAP Calling Sequence (See Remarks below.) DUMMOD4 I1,I2,I3,I4,I5,I6,I7,I8 / O1,O2,O3,O4,O5,O6,O7,O8 / C,N,-1 / V,Y,P2=-1 / V,N,P3=-1 / C,Y,P4=-1 / C,Y,P5=-1.0 / C,N,-1.0 / C,Y,P7=ABCDEFGH / C,Y,P8=-1.0D0 / C,Y,P9=(-1 0,-1.0) / C,Y,P10=(-1.0D0,-1.0D0) $ Input Data Blocks As desired by author of module. Output Data Blocks As desired by author of module. Parameters Parameters may be used as desired by the author of the module. The parameter types are indicated by the default values shown in the calling sequence above. Remarks This module has been provided for those who may want to include a module of their own design in the system. The number of inputs and outputs, as well as the number, type, and default values of the parameters, may be changed by changing the Module Properties List (MPL) in subroutine XMPLDD (see Section 2 of the Programmer's Manual). =PAGE= DUMMOD5 - Dummy Module 5 Purpose Converts certain NASTRAN output tabular data blocks into NASTRAN matrix data blocks (GINO files) or to a magnetic tape of special matrix form (by column, unpacked, from first non-zero term to last non-zero term), similar to that generated by OUTPUT5. The data on the tape can be read into NASTRAN by the INPUTT5 module. DUMMOD5 handles only single precision data blocks. DMAP Calling Sequence DUMMOD5 T1,T2,T3,T4,T5 / 01,02,03,04,05 / C,N,P1 / C,N,P2 / C,N,P3 / C,N,P4 / C,N,P5 / C,N,Q $ Input Data Blocks Ti NASTRAN GINO single precision files, such as OEF1, OQG1, or similar type of tabular data blocks, whose fixed length records can be rearranged into the columns of a matrix. Any or all of the input data blocks may be purged. Only non-purged data blocks will be processed. Output Data Blocks All output data blocks are written in single precision. See Method below for more details. 0i GINO written matrix data blocks. Any or all of the output data blocks may be purged. INP1 Unit 15, FORTRAN written tape, unformatted. Parameters Pi Each Pi parameter corresponds to each Ti-0i conversion process. The tabular input data records in Ti are mapped into a Pi by 8 two-dimensional matrix space. See Method below for more details. Q Print-punch control of the element/grid table gathered from the input data blocks (Ti): = -1, no print and punch. = 0, print only, no punch. = +1, both print and punch. = /2/, print contents of output tape INP1 after it is generated. Method A record of the input data block (Ti) is read. The first word is saved in an element/grid table. The next eight words are saved in the Pi by 8 matrix space, row-wise. If the record has more than nine words, the rest of the record is discarded. Similarly, the rest of the records in Ti are read, and the element/grid table and the Pi by 8 matrix space are filled. If the input data block Ti has more than Pi records, all the records above Pi are skipped. If the input data block has less than Pi records, the rest of the matrix space is zero filled. Finally, when all the records in Ti are read, the Pi by 8 matrix is written to output data block (0i) or tape (INP1), column-wise. If an output data block (0i) exists, and its corresponding data block (Ti) is not purged, the Pi by 8 matrix is then written out to the output data block by NASTRAN GINO in packed form. If an input data block (Ti) exists, and the corresponding output data block (0i) is purged (not present), the Pi by 8 matrix is then written out to INP1 tape (unit 15), column-wise, unpacked, from first non-zero term to last non-zero term, in binary records. The content of INP1 tape is written similarly to those written by OUTPUT5, as shown below. Ŀ RECORD WORD CONTENTS TYPE Ĵ 0 Tape header record 1,2 "xxxxxxxx" (tape ID) 2*BCD 3,4 Machine type 2*BCD 5,7 Date 3*INT 8 System buffer size INT 9 0, binary tape INT 1 First matrix (01) header 1 0 INT 2,3 1,1 2*INT 4 0.0D0 D.P. 5-10 6 words from matrix trailer 6*INT (col,row,form,type,max,density where type=1 or 3) 11,12 Matrix DMAP name 2*BCD 2 1 1 (first column ID) INT 2 Location of first non-zero element INT 3 Location of last non-zero element INT 4-n S.P. data REAL 3 1 2 (second column ID) 2-n Same as record 1 : 1-n Repeat for more columns (x 1 x (x-th column ID, a null column INT 2,3 1,1 INT 4,5 0.0, 0.0 REAL l 1-n l-1, last column, same as record 1 l+1 1 -1 (element) or -2 (grid) INT 2 1 INT 3 Length of element/grid table, T INT 4-(T+4) Table of element or grid IDs INT l+2 Second matrix (02) header : : Repeat above 1 through l+1 for 02 : : Repeat, up to 5 output data blocks per tape Remarks 1. This module is very limited in scope. It handles only some special types of tabular input data blocks. This module is designed to be used for a particular job or jobs. 2. The heading records of the input data blocks are skipped automatically. The rest of the records are read in and processed without further intervention. If the output data block contains more than one type of data (such as OEF1 data file with multi-element type data), meaningless data may be included. You must know ahead of time what type of data you are gathering for the DUMMOD5 module operation. For this reason, you may find the use of SET in the Case Control section to your advantage. 3. The INP1 tape generated by DUMMOD5 can be read by the INPUTT5 module. Any future changes in the tape format must also appear in the INPUTT5 and OUTPUT5 modules. =PAGE= MATGEN - User Dummy Module Purpose Can be used for any desired purpose. DMAP Calling Sequence (See Remarks below.) MATGEN I01,I02,...,I20,I21 / O1,O2,O3 / V,N,Pl=0 / V,N,P2=0 / ... / V,N,P22=0 $ Input Data Blocks As desired by author of module. Output Data Blocks As desired by author of module. Parameters Parameters may be used as desired by the author of the module. The parameter types are indicated by the default values shown in the calling sequence above. Remarks This module has been provided for those who may want to include a module of their own design in the system. The number of inputs and outputs, as well as the number, type, and default values of the parameters, may be changed by changing the Module Properties List (MPL) in subroutine XMPLDD (see Section 2 of the Programmer's Manual). =PAGE= MODA - User Dummy Module Purpose Can be used for any desired purpose. DMAP Calling Sequence (See Remarks below.) MODA / W,X,Y,Z / C,N,0.0 / C,N,0.0 / C,N,0.0 / C,N,0.0 / C,N,0.0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0.0 / C,N,0 / C,N,0 $ Input Data Blocks None. Output Data Blocks As desired by author of module. Parameters Parameters may be used as desired by the author of the module. The parameter types are indicated by the default values shown in the calling sequence above. Remarks This module has been provided for those who may want to include a module of their own design in the system. The number of inputs and outputs, as well as the number, type, and default values of the parameters, may be changed by changing the Module Properties List (MPL) in subroutine XMPLDD (see Section 2 of the Programmer's Manual). =PAGE= MODB - User Dummy Module Purpose Can be used for any desired purpose. DMAP Calling Sequence (See Remarks below.) MODB / W,X,Y,Z / C,N,1.0 / C,N,1.0 / C,N,1.0 / C,N,1.0 / C,N,0 / C,N,0 / C,N,0 / C,N,1.0 / C,N,0 / C,N,0 / C,N,0 $ Input Data Blocks As desired by author of module. Output Data Blocks As desired by author of module. Parameters Parameters may be used as desired by the author of the module. The parameter types are indicated by the default values shown in the calling sequence above. Remarks This module has been provided for those who may want to include a module of their own design in the system. The number of inputs and outputs, as well as the number, type, and default values of the parameters, may be changed by changing the Module Properties List (MPL) in subroutine XMPLDD (see Section 2 of the Programmer's Manual). =PAGE= MODC - User Dummy Module Purpose Can be used for any desired purpose. DMAP Calling Sequence (See Remarks below.) MODC A,B // C,N,-l $ Input Data Blocks As desired by author of module. Output Data Blocks None. Parameters Parameters may be used as desired by the author of the module. The parameter types are indicated by the default values shown in the calling sequence above. Remarks This module has been provided for those who may want to include a module of their own design in the system. The number of inputs and outputs, as well as the number, type, and default values of the parameters, may be changed by changing the Module Properties List (MPL) in subroutine XMPLDD (see Section 2 of the Programmer's Manual). =PAGE= OUTPUT - Auxiliary Output File Processor Purpose A user-written module to generate printer, plotter, or punch output. DMAP Calling Sequence (See Remarks below.) OUTPUT IN // C,Y,P=-l $ Input Data Blocks IN Contains any desired information which the module extracts and writes on the system output file, punch, or either of the two plotters. May be purged. Output Data Blocks None. Parameters Parameters may be used as desired by the author of the module. Type is Integer with MPL default value of -1 as shown above. Remarks This module has been provided for those who may want to process their own output. The number of inputs as well as the number, type, and default values of parameters may be changed by changing the Module Properties List (MPL) in subroutine XMPLDD (see Section 2 of the Programmer's Manual). =PAGE= XYPRNPLT - User Dummy Module Purpose Can be used for any desired purpose. DMAP Calling Sequence (See Remarks below.) XYPRNPLT A // $ Input Data Blocks As desired by the author of module. Output Data Blocks None. Parameters None. Remarks This module has been provided for those who may want to process their own output. The number of inputs and outputs as well as the number, type, and default values of parameters may be changed by changing the Module Properties List (MPL) in subroutine XMPLDD (see Section 2 of the Programmer's Manual). =PAGE= 5.7 EXECUTIVE OPERATION MODULES Module Basic Function Page BEGIN Always first in DMAP; begin DMAP program 5.7-2 CHKPNT Write data blocks on checkpoint tape if 5.7-3 checkpointing COMPOFF Conditional DMAP compilation off 5.7-4 COMPON Conditional DMAP compilation on 5.7-5 COND Conditional forward jump 5.7-6 END Always last in DMAP; terminates DMAP execution 5.7-7 EQUIV Assign another name to a data block 5.7-8 EXIT Conditional DMAP termination 5.7-9 FILE Defines special data block characteristics 5.7-10 to DMAP compiler JUMP Unconditional forward jump 5.7-11 LABEL Defines DMAP location 5.7-12 PRECHK Predefined automated checkpoint 5.7-13 PURGE Conditional data block elimination 5.7-14 REPT Repeat a series of DMAP instructions 5.7-15 SAVE Save value of output parameter 5.7-16 XDMAP Controls the DMAP compiler options 5.7-17 All modules classified as Executive Operation Modules are individually described in this section. Additional discussions concerning the interaction of the Executive Modules with themselves and with the NASTRAN Executive System are contained in Section 5.2.3. =PAGE= BEGIN - Begin DMAP Program Purpose BEGIN is a declarative DMAP instruction which may be used to denote the beginning of a DMAP program. DMAP Calling Sequence BEGIN $ Remarks 1.BEGIN is a non-executable DMAP instruction which is used only by the DMAP compiler for information purposes. 2.Either a BEGIN card or an XDMAP card is required when selecting APP DMAP in the Executive Control Deck. This is followed by DMAP instructions up to and including the END card. 3.The use of BEGIN implicitly elects all compiler defaults. (See XDMAP instruction.) =PAGE= CHKPNT - Checkpoint Purpose Causes data blocks to be written on the New Problem Tape (NPTP) to enable the problem to be restarted with a minimum of redundant processing. DMAP Calling Sequence CHKPNT D1,D2,...,DN $ where D1,D2,...,DN (N >= 1) are data blocks to be copied onto the problem tape for use in restarting problem. Rules 1.A data block to be checkpointed must have been referenced in a previous PURGE, EQUIV, or functional module instruction. 2.CHKPNT cannot be the first instruction of a DMAP loop. 3.Data Blocks generated by the Input File Processor (including DMIs and DTIs) should not be checkpointed since they are always regenerated on restart. 4.Checkpointing only takes place when a New Problem Tape (NPTP) is set up and the Executive Control Card CHKPNT YES appears in the Executive Control Deck. Otherwise, the CHKPNT instructions are ignored. 5.For each data block that is successfully checkpointed, a card of the restart dictionary is punched which gives the critical data for the data block as it exists on the Problem Tape. 6.For data blocks that have been purged or equivalenced, an entry is made in the restart dictionary to this effect. In these cases data blocks are not written on the Problem Tape. Remarks 1.See the PRECHK instruction for an automated CHKPNT capability. =PAGE= COMPOFF - Conditional DMAP Compilation Off Purpose To allow blocks of DMAP statements to be compiled or skipped depending upon the value of a bulk data parameter. (The companion module is COMPON.) DMAP Calling Sequence COMPOFF LBLNAME,PARNAME $ or COMPOFF c,PARNAME $ where: 1.LBLNAME is the BCD name of a label which specifies the end of the DMAP statement block, 2.c is an integer constant which specifies the number of DMAP statements in the block, and 3.PARNAME is the name of a parameter that appears on a PARAM bulk data card. Method The block of DMAP statements specified by the label or count is skipped if the value of the parameter is < 0. The block of DMAP statements will be compiled if the value of the parameter is >= 0. Example COMPOFF LBL,NAM1 $ MODULE1 A/B/L $ MODULE2 C/D/M $ MODULE3 E/F/N $ LABEL LBL $ : : COMPOFF 2,NAM2 $ MODULE4 P/Q/I MODULE5 X/Y/J $ : : In the above example, modules MODULE1, MODULE2, and MODULE3 will not be compiled if the value of parameter NAM1 is < 0 and modules MODULE4 and MODULE5 will not be compiled if the value of parameter NAM2 is < 0. Remarks 1.If no PARAM bulk data card is provided to define the parameter, a value of 0 is assumed. 2.If the form of COMPOFF specifying a label is used, the label may not be referenced by any other DMAP instructions, including other COMPOFF or COMPON instructions. 3.Comment cards are not included in the statement count. 4.COMPOFF and COMPON instructions may be nested up to five levels using the same rules as for FORTRAN DO loops. =PAGE= COMPON - Conditional DMAP Compilation On Purpose To allow blocks of DMAP statements to be compiled or skipped depending upon the value of a bulk data parameter. (The companion module is COMPOFF.) DMAP Calling Sequence COMPON LBLNAME,PARNAME $ or COMPON c,PARNAME $ where: 1.LBLNAME is the BCD name of a label which specifies the end of the DMAP statement block, 2.c is an integer constant which specifies the number of DMAP statements in the block, and 3.PARNAME is the name of a parameter that appears on a PARAM bulk data card. Method The block of DMAP statements specified by the label or count is skipped if the value of the parameter is >= 0. The block of DMAP statements will be compiled if the value of the parameter is < 0. Example COMPON LBL,NAM1 $ MODULE1 A/B/L $ MODULE2 C/D/M $ MODULE3 E/F/N $ LABEL LBL $ : : COMPON 2,NAM2 $ MODULE4 P/Q/I MODULE5 X/Y/J $ : : In the above example, modules MODULE1, MODULE2, and MODULE3 will not be compiled if the value of parameter NAM1 is >= 0 and modules MODULE4 and MODULE5 will not be compiled if the value of parameter NAM2 is >= 0. Remarks 1.If no PARAM bulk data card is provided to define the parameter, a value of 0 is assumed. 2.If the form of COMPON specifying a label is used, the label may not be referenced by any other DMAP instructions, including other COMPOFF or COMPON instructions. 3.Comment cards are not included in the statement count. 4.COMPOFF and COMPON instructions may be nested up to five levels using the same rules as for FORTRAN DO loops. =PAGE= COND - Conditional Transfer Purpose To alter the normal order of execution of DMAP modules by conditionally transferring program control to a specified location in the DMAP program. DMAP Calling Sequence COND n,V $ where: 1.n is a BCD label name specifying the location where control is to be transferred. (See the LABEL Instruction.) 2.V is a BCD name of a variable parameter whose value indicates whether or not to execute the transfer. If V < 0 the transfer is executed. Example BEGIN $ : : COND L1,K $ MODULE1 A/B/V,Y,P1 $ : : LABEL L1 $ MODULEN X/Y $ : : END $ If K >= 0, MODULE1 is executed. If K < 0 control is transferred to the label L1 and MODULEN is executed. Remarks 1.Only forward transfers are allowed. See the REPT instruction for backward transfers. =PAGE= END - End DMAP Program Purpose Denotes the end of a DMAP program. DMAP Calling Sequence END $ Remarks 1.The END instruction also acts as an implied EXIT instruction. 2.The END card is required whenever APP DMAP is selected in the Executive Control Deck. =PAGE= EQUIV - Data Block Name Equivalence Purpose To attach one or more equivalent (alias) data block names to an existing data block so that the data block can be referenced by several equivalent names. DMAP Calling Sequence EQUIV DBN1A,DBN2A,DBN3A / PARMA / DBN1B,DBN2B / PARMB $ NOTE: The number of data block names (DBNij) prior to each parameter (PARMj) and the number of such groups in a particular calling sequence are variable. Input Data Blocks DBN1A,DBN2A, etc. Any data block names appearing within the DMAP sequence. The first data block name in each group (DBN1A and DBN1B in the examples above) is known as the primary data block and the second, etc. data block names become equivalent to the primary (depending on the associated parameter value). These equivalenced data blocks are known as secondary data blocks. Output Data Blocks None specified or permitted. Parameters PARMA, etc. One required for each set of data block names. Method The data block names in each group are made equivalent if the value of the associated parameter is < 0. If a number of data blocks are already equivalenced and the parameter value is >= 0, the equivalence is broken and the data block names again become unique. If the data blocks are not equivalenced and the parameter value is >= 0, no action is taken. Remarks 1. An EQUIV statement may appear at any time as long as the primary data block name has been previously defined. 2. If an equivalence is to be performed at all times, that is, the parameter value is always negative, it is not necessary to specify a parameter name. For example, EQUIV DB1,DB2 // DB3,DB4 $ =PAGE= EXIT - Terminate DMAP Program Purpose To conditionally terminate the execution of the DMAP program. DMAP Calling Sequence EXIT c $ where c is an integer constant which specifies the number of times the instruction is to be ignored before terminating the program. If c = 0 the calling sequence may be shortened to EXIT. Example BEGIN $ : : LABEL L1 $ MODULE1 A/B/V,Y,P1 $ DMAP : loop : EXIT 3 $ REPT L1,3 $ : : END $ Remarks 1. The EXIT instruction will be executed the third time the loop is repeated (that is, the instructions within the loop will be executed four times). 2. EXIT may appear anywhere within the DMAP sequence. =PAGE= FILE - File Allocation Aid Purpose To inform the File Allocator (see Section 4.9 of the Programmer's Manual) of any special characteristics of a data block. DMAP Calling Sequence FILE A=a1,a2...aa / B=b1,b2...bb / ... / Z=z1,z2...zz $ where: A,B...Z are the names of the data blocks possessing special characteristics. a1...aa,b1...bb....z1...zz are the special characteristics from the list below. The allowable special characteristics are: SAVE Indicates data block is to be saved for possible looping in DMAP program. APPEND Output data blocks which are generated within a DMAP loop are rewritten during each pass through the loop, unless the data block is declared APPEND in a FILE statement. The APPEND declaration allows a module to add information to a data block on successive passes through a DMAP loop. TAPE Indicates that data block is to be written on a physical tape if a physical tape is available. Remarks 1. Data blocks created by the NASTRAN preface may not appear in FILE declarations. 2. Symbolic DMAP sequences which explain the use of the FILE instruction are given in Section 5.2.3.1. 3. FILE is a non-executable DMAP instruction which is used only by the DMAP compiler for information purposes. 4. A data block name may appear only once in all FILE statements; otherwise the first appearance will determine all special characteristics applied to the data block. =PAGE= JUMP - Unconditional Transfer Purpose To alter the normal order of execution of DMAP modules by unconditionally transferring program control to a specified location in the DMAP program. The normal order of execution of DMAP modules is the order of occurrence of the modules as DMAP instructions in the DMAP program. DMAP Calling Sequence JUMP n $ where n is a BCD name appearing on a LABEL instruction which specifies where control is to be transferred. Remarks 1. Jumps must be forward in the DMAP sequence. See the REPT instruction for backward jumps. =PAGE= LABEL - DMAP Location Purpose To label a location in the DMAP program so that the location may be referenced by the DMAP instructions JUMP, COND, and REPT. DMAP Calling Sequence LABEL n $ where n is a BCD name. Remarks 1. The LABEL instruction is inserted just ahead of the DMAP instruction to be executed when transfer of control is made to the label. 2. LABEL is a non-executable DMAP instruction which is used only by the DMAP compiler for information purposes. =PAGE= PRECHK - Predefined Automated Checkpoint Purpose To allow you to specify a single, or limited number, of checkpoint declarations, thereby removing the need for a large number of individual CHKPNT instructions to appear in a DMAP program. DMAP Calling Sequence PRECHK namelist $ PRECHK ALL $ PRECHK ALL EXCEPT namelist $ where namelist is a list of data block names separated by commas and not exceeding 50 data blocks per command. Remarks 1. PRECHK is, in itself, a non-executable DMAP instruction which actuates the automatic generation of explicit CHKPNT instructions during the DMAP compilation. 2. Any number of PRECHK declarations may appear in a DMAP program. Each time a new statement is encountered the previous one is invalidated. The PRECHK END $ option will negate the current PRECHK status. 3. CHKPNT instructions may be used in conjunction with PRECHK declarations. The CHKPNT instruction will override any PRECHK condition. For example, if the PRECHK ALL EXCEPT option is in effect, a data block named in the excepted list may still be explicitly CHKPNTed. 4. PRECHK ALL immediately and automatically CHKPNTs all output data blocks from each functional module, all data blocks mentioned in each PURGE instruction, and all secondary data blocks in each EQUIV instruction. The only exceptions to this are the CASESS, CASEI, and CASECC data blocks appearing as output in substructure analyses. 5. The rigid format DMAP sequences (see Volume II) do not employ any explicit CHKPNT instructions. Instead, for the sake of efficiency, each rigid format includes a single PRECHK ALL instruction towards the beginning of the DMAP sequence. =PAGE= PURGE - Explicit Data Block Purge Purpose To flag a data block so that it will not be assigned to a physical file. DMAP Calling Sequence PURGE DBN1A,DBN2A,DBN3A / PARMA / DBN1B,DBN2B / PARMB $ NOTE: The number of data block names (DBNij) prior to each parameter (PARMj) and the number of groups of data block names and parameters in a particular calling sequence is variable. Input Data Blocks DBN1A,DBN2A, etc. Any data block names appearing within the DMAP sequence. Output Data Blocks None specified or permitted. Parameters PARMA, etc. One required for each group of data block names. Method The data blocks in a group are purged if the value of the associated parameter is < 0. If a data block is already purged and the parameter value is >= 0, the purged data block is unpurged so that it may be subsequently reallocated. If the data block is not purged and the parameter value is >= 0, no action is taken. Remarks 1. If a purge is to be made at all times, i.e., the parameter value is always negative, it is not necessary to specify a parameter name. For example, PURGE DB1,DB2,DB3,DB4 $ =PAGE= REPT - Repeat Purpose To repeat a group of DMAP instructions a specified number of times. DMAP Calling Sequence REPT n,c $ or REPT n,p $ where: 1. n is a BCD name appearing in a LABEL instruction which specifies the location of the beginning of a group of DMAP instructions to be repeated. (See LABEL instruction.) 2. c is an integer constant hard coded into the DMAP program which specifies the number of times to repeat the instructions. 3. p is a variable parameter set by a previously executed module specifying the number of times to repeat the instructions. Example BEGIN $ BEGIN $ : : : : LABEL L1 $ MODULE1 X/Y/V,Y,NLOOP $ MODULE1 A/B/V,Y,P1 $ LABEL L1 $ : MODULE1 A/B/V,Y,P1 $ : or : MODULEN B/C/V,Y,P2 $ : REPT L1,3 $ MODULEN B/C/V,Y,P2 $ : REPT L1,NLOOP $ : : END $ : END $ Remarks 1. REPT is placed at the end of the group of instructions to be repeated. 2. When a variable number of loops is to be performed as in the second example above, the value of the variable at the first time the REPT instruction is encountered will determine the number of loops. This number will not be changed after the initial assignment. 3. A COND (conditional jump) instruction may be used to exit from the loop if desired. 4. In the first example, the instructions MODULE1 to MODULEN will be repeated three times (that is, executed four times). =PAGE= SAVE - Save Variable Parameter Values Purpose To specify which variable parameter values are to be saved from the preceding functional module DMAP instruction for use by subsequent modules. DMAP Calling Sequence SAVE V1,V2,...,VN $ where the V1,V2,...,VN (N > 0) are the BCD names of some or all of the variable parameters which appear in the immediately preceding functional module DMAP instruction. Remarks 1. A SAVE instruction must immediately follow the functional module instruction wherein the parameters being saved are generated. 2. See Section 5.2.1.5 for a description of the alternate method of saving parameter values by means of the parameter specification statement. =PAGE= XDMAP - Execute DMAP Program Purpose To control the DMAP compiler options. DMAP Calling Sequence GO ERR = 2 LIST NODECK NOOSCAR XDMAP NOGO , ERR = 1 , NOLIST , DECK , OSCAR , ERR = 0 See Remark 4 for NOREF defaults REF where: GO compile and execute program (default). NOGO compile only and terminate job. ERR defines the error level at which suspension of execution will occur: 0 Warning level 1 Potentially fatal error level 2 Fatal error level (default) LIST a listing of the DMAP program will be printed (see Remark 4 for default values). NOLIST no listing (see Remark 4 for default values). DECK a deck of the DMAP program will be punched. NODECK a deck will not be punched (default). OSCAR detailed listing of OSCAR (Operation Sequence Control Array), the output of the DMAP compiler. NOOSCAR no OSCAR listing (default). REF a cross reference listing of the DMAP program will be printed. NOREF no cross reference listing (default). Remarks 1. The XDMAP card is optional and may be replaced by a BEGIN instruction. However, one or the other must appear in an APP DMAP execution. 2. The XDMAP instruction is non-executable and is used only to control the above options by the DMAP compiler. 3. If all defaults are chosen, this instruction need not appear and BEGIN may be used instead. 4. The DMAP compiler default is set to LIST for restart runs and for runs using the DMAP approach (APP DMAP) and the substructure capability (APP DISP,SUBS). The default is also set to LIST when the REF option on the XDMAP card is specified. The default is set to NOLIST for all other cases. (The NOLIST option can be used in the former cases to suppress the automatic listing of the DMAP program.) 5. Multiple XDMAP cards can be used in the DMAP to get subsets of the DMAP program to be listed (using the LIST/NOLIST option) or punched (using the DECK/NODECK option). 6. The use of DIAGs in the Executive Control Deck (see Section 2.2) will always override the corresponding DMAP compiler options whether or not they are selected by means of an XDMAP card. Thus, the use of DIAG 4 will give the OSCAR listing, DIAG 14 will give the DMAP program listing, DIAG 17 will give a punched output of the DMAP program, and DIAG 25 will give the DMAP program cross-reference listing, regardless of any other requests made by the presence or absence of XDMAP cards. The DMAP compiler option summary, printed before the DMAP source listing, reflects the DIAG selections, if any. =PAGE= 5.8 DMAP EXAMPLES In order to facilitate the use of DMAP, several examples are provided in this section. You are urged to study these examples both from the viewpoint of performing a sequence of matrix operations and from that of a DMAP flow. In addition, some examples have been written to illustrate the improved DMAP syntax. 5.8.1 DMAP to Print Table and Matrix Data Blocks and Parameters Objective 1. Print the contents of table data block A. 2. Print matrix data blocks B, C, and D. 3. Print values of parameters P1 and P2. 4. Set parameter P3 equal to -7. BEGIN $ XDMAP $ TABPT A,,,, // $ TABPT A // $ MATPRN B,C,D,, // $ MATPRN B,C,D // $ PRTPARM // C,N,0 / C,N,P1 $ PRTPARM // 0 / *P1* $ PRTPARM // C,N,0 / C,N,P2 $ PRTPARM // 0 / *P2* $ PARAM // C,N,NOP / V,N,P3=-7 $ PARAM // *NOP* / P3=-7 $ END $ END $ Remarks 1. To be a practical example, a restart situation is assumed. You are cautioned to remember to reenter at DMAP instruction 2 by changing the last reentry point in the restart dictionary. 2. In the alternate form, the omission of trailing commas in the TABPT and MATPRN instructions will generate POTENTIALLY FATAL ERROR messages alerting you to possible errors in the data block name list. 5.8.2 DMAP to Perform Matrix Operations Let the constrained matrix [Kll] and the load vector [Pl] be defined by means of DMI bulk data cards. The following DMAP sequence will perform the series of matrix operations. -1 {u } = [K ] {P } 1 ll l {r} = [K ]{u } - {P } ll 1 l -1 {u} = [K ] {r} ll {u } = {u } + {u} 2 1 Print {u } 2 BEGIN $ XDMAP $ SOLVE KLL,PL/U1/C,N,1/C,N,1/C,N,1/C,N,1 $ SOLVE KLL,PL/U1/1/1/1/1 $ MPYAD KLL,U1,PL/R/C,N,0/C,N,1/C,N,-1 $ MPYAD KLL,U1,PL/R/0/1/-1 $ SOLVE KLL,R/DU/C,N,1 $ or SOLVE KLL,R/DU/1 $ ADD U1,DU/U2 $ ADD U1,DU/U2 $ MATPRN U2,,,, // $ MATPRN U2// $ END $ END $ Remarks 1. [Kll] is assumed symmetric. 2. In the example above, KLL will be decomposed twice. A more efficient DMAP sequence, which requires only a single decomposition for this problem, is given below. BEGIN $ XDMAP $ DECOMP KLL/LLL,ULL $ DECOMP KLL/LLL,ULL $ FBS LLL,ULL,PL/U1/C,N,1/C,N,1/ FBS LLL,ULL,PL/U1/1/1/1/1 $ C,N,1/C,N,1 $ MPYAD KLL,U1,PL/R/C,N,0/C,N,1/C,N,-1 $ MPYAD KLL,U1,PL/R/0/1/-1 $ FBS LLL,ULL,R/DU $ or FBS LLL,ULL,R/DU $ ADD U1,DU/U2 $ ADD U1,DU/U2 $ MATPRN U2,,,, // $ MATPRN U2// $ END $ END $ 5.8.3 DMAP to Use the Structure Plotter to Generate Undeformed Plots of the Structural Model BEGIN $ GP1 GEOM1,GEOM2, / GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL / V,N,LUSET / V,N,NOCSTM / V,N,NOGPDT $ SAVE LUSET $ GP2 GEOM1,EQEXIN / ECT $ PLTSET PCDB,EQEXIN,ECT / PLTSETX,PLTPAR,GPSETS,ELSETS / V,N,NSIL / V,N,NPSET $ SAVE NPSET,NSIL $ PRTMSG PLTSETX // $ PARAM // C,N,NOP / V,N,PLTFLG=1 $ PARAM // C,N,NOP / V,N,PFILE=0 $ COND P1,NPSET $ PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,, / PLOTX1 / V,N,NSIL / V,N,LUSET / V,N,NPSET / V,N,PLTFLG / V,N,PFILE $ SAVE NPSET,PLTFLG,PFILE $ PRTMSG PLOTX1 // $ LABEL P1 $ PRTPARM // C,N,0 $ END $ Remarks 1. GEOM1, GEOM2, PCDB, and CASECC are generated by the Input File Processor. 2. PRTPARM is used to print all current variable parameter values. 3. This DMAP sequence contains several structurally oriented modules. This sequence of DMAP instructions is essentially identical with the section of each rigid format associated with the operation of the Structure Plot Request Packet of the Case Control Deck (contained in data block PCDB). 5.8.4 DMAP to Print Eigenvectors Associated with any of the Modal Formulation Rigid Formats BEGIN $ OFP LAMA,OEIGS,,,, // $ SDR1 USET,,PHIA,,,GO,GM,,KFS,, / PHIG,,QG / C,N,1 / C,N,REIG $ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QG,PHIG,EST, / , OQG1,OPHIG,OES1,OEF1, / C,N,REIG $ OFP OPHIG,OQG1,OEF1,OES1,, // $ END $ Remarks 1. A restart from a successfully executed modal formulation is assumed. 2. This DMAP sequence contains several structurally oriented modules. 5.8.5 DMAP Using a User-Written Module As an example of how you might perform matrix operations of your own design, the following DMAP is provided. Functional modules MODA, MODB, and MODC are assumed to be written by you and added to the NASTRAN system, replacing dummy modules with the same names. A brief explanation of a problem for which this DMAP is applicable is given. 1 BEGIN $ 2 PARAM // C,N,NOP / V,N,TRUE=-1 $ 3 PARAM // C,N,NOP / V,N,FALSE=+l $ 4 MODA / X,Y,DB,A / V,N,BETA=0.0 / V,N,SIGMA=1.0 / V,N,FW=0.0 / V,N,SW=0.0 / V,N,ETAINF=5.0 / V,N,M=100 / C,N,0 / C,N,0 / C,N,0 / V,N,ICONV=0 / V,N,ZCONV=1.0E-4 / V,N,ITMAX=10 / C,N,0 $ 5 SAVE BETA,SIDMA,FW,SW,ETAINF,M,ICONV,ZCONV,ITMAX $ 6 LABEL TOP $ 7 FILE A=SAVE / DB=SAVE $ 8 SOLVE A,DB / DY / C,N,0 / C,N,1 / C,N,1 / C,N,1 $ 9 EQUIV X,XX / FALSE / Y,YY / FALSE $ 10 MODB X,Y,DY / XX,YY,DBB,AA / V,N,BETA / V,N,SIGMA / V,N,FW / V,N,SW / V,N,M / C,N,0 / V,N,ICONV / V,N,ZCONV / C,N,0 / V,N,DONE=1 / V,N,DIVERGED=1 $ 11 SAVE DONE,DIVERGED $ 12 COND QUIT,DIVERGED $ 13 COND OUT,DONE $ 14 EQUIV XX,X / TRUE / YY,Y / TRUE / DBB,DB / TRUE / AA,A / TRUE $ 15 COND QUIT,ITMAX $ 16 REPT TOP,1000 $ 17 PRTPARM // C,N,-1 / C,N,DMAP $ 18 EXIT $ 19 LABEL OUT $ 20 MODC X,Y // $ 21 EXIT $ 22 LABEL QUIT $ 23 PRTPARM // C,N,-2 / C,N,DMAP $ 24 EXIT $ 25 END $ The above DMAP sequence is designed to solve an iteration problem where {x} is the set of independent variable values on which the discretized solution {y(x)} is defined. Let the discrete values of {y(x)} measured at {x} be called {y}. An iteration sequence i+1 i i -1 i {y} = {y} + [A({y} ,{x})] {b({y} ,{x})} is to be performed where [A] and b are computable functions of {y} and {x}. A convergence-divergence criterion is assumed known. It is also assumed that the independent variable distribution {x} may be modified as the solution proceeds. A brief description of the significant DMAP instructions is given below: 4 Initialization of all parameters and output data blocks. This module is assumed to be written by you. 7 Prevents file allocator from dropping A and DB. 8 Compute {b} = [A]-1{b} 9 Break equivalences. 10 Iterate to obtain new {x}, {y}, {b}, [A]; test convergence and set parameters DONE and DIVERGED. This module is assumed to be written by you. 14 The new {x}, {y}, {b}, [A] are established as current by replacing the old values. 20 Prints out the converged solutions {x} and {y}. This module is assumed to be written by you. 5.8.6 DMAP ALTER Package for Using a User-Written Auxiliary Input File Processor ALTER 1 INPUT GEOM1,,,, / G1,,,G4, / C,N,3 $ PARAM // C,N,NOP / V,N,TRUE=-1 $ EQUIV G1,GEOM1 / TRUE / G4,GEOM4 / TRUE $ COND LBLXXX,TRUE $ TABPT G1,G4,,, // $ LABEL LBLXXX $ ENDALTER Remarks 1. This is an ALTER package that could be used by any Rigid Format. 2. The last three instructions are needed to avoid violating the equivalence rule that a primary data block name must be referenced in a subsequent functional module. A way to avoid using these three instructions is to move the PARAM ahead of INPUT, in which case the EQUIV immediately follows the module in which the primary data blocks are output. In this case the ALTER package becomes ALTER 1 PARAM // C,N,NOP / V,N,TRUE=-1 $ INPUT GEOM1,,,, / G1,,,G4, / C,N,3 $ EQUIV G1,GEOM1 / TRUE / G4,GEOM4 / TRUE $ ENDALTER 3. It is assumed that a user-written module INPUT exists which reads data block GEOM1 (created by the Input File Processor of the NASTRAN Preface) and creates data blocks G1 and G4. It is then desired to use G1 and G4 in place of GEOM1 and GEOM4, the data blocks normally created by the NASTRAN Preface. 4. ALTER is described in Section 2.1. 5.8.7 DMAP to Perform Real Eigenvalue Analysis Using Direct Input Matrices BEGIN $ READ KTEST,MTEST,,,DYNAMICS,,CASECC / LAMA,PHIA,MI,OEIGS / C,N,MODES / V,N,NE $ OFP LAMA,OEIGS,,,, // $ MATPRN PHIA,,,, // $ END $ Remarks 1. The echo of a test problem bulk data deck for the preceding DMAP sequence follows. . 1 .. 2 .. 3 .. 4 .. 5 .. 6 .. 7 .. 8 .. 9 .. 10 . DMI KTEST 0 6 1 2 4 4 DMI KTEST 1 1 200.0 -100.0 DMI KTEST 2 1 -100.0 200.0 -100.0 DMI KTEST 3 2 -100.0 200.0 -100.0 DMI KTEST 4 3 -100.0 200.0 DMI MTEST 0 6 1 2 4 4 DMI MTEST 1 1 1.0 DMI MTEST 2 2 1.0 DMI MTEST 3 3 1.0 DMI MTEST 4 4 1.0 EIGR 1 INV .0 2.5 2 2 +1 +1 MAX 2. Data blocks DYNAMICS and CASECC are generated by the NASTRAN Preface (Input File Processor) and contain the eigenvalue extraction data from the EIGR card and the eigenvalue method selection data extracted from the METHOD card in the Case Control Deck. 3. Data blocks KTEST and MTEST are generated by the NASTRAN Preface (Input File Processor) from the DMI bulk data cards. 4. Data block MI is the modal mass matrix, which is not used in this DMAP subsequent to READ, but which must appear as an output in READ. Parameter NE is an output parameter whose value is the number of eigenvalues extracted. If none are found NE will be set to -1. An alternate DMAP to perform real eigenvalue analysis using Direct Input Matrices, where the degrees of freedom are associated with grid points, is shown below. BEGIN $ GP1 GEOM1,GEOM2, / GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL / V,N,LUSET / C,N,0 / C,N,0 $ SAVE LUSET $ GP4 CASECC,,EQEXIN,SIL,GPDT,BGPDT,CSTM / ,,USET, / V,N,LUSET / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 $ DPD DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,,,,,,,EED,EQDYN / V,N,LUSET / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 / V,N,NOEED / C,N,0 / C,N,0 $ SAVE NOEED $ COND E1,NOEED $ READ KTEST,MTEST,,,EED,,CASECC / LAMA,PHIA,MI,OEIGS / C,N,MODES / V,N,NEIGV $ SAVE NEIGV $ OFP LAMA,OEIGS,,,, // $ COND FINIS,NEIGV $ SDR1 USET,,PHIA,,,,,,,, / PHIG,, / C,N,1 / C,N,REIG $ SDR1 CASECC,,,,EQEXIN,SIL,,,BGPDT,LAMA,,PHIG,,, / ,,OPHIG,,, / C,N,REIG $ OFP OPHIG,,,,, // $ JUMP FINIS $ LABEL E1 $ PRTPARM // C,N,-2 / C,N,MODES $ LABEL FINIS $ END $ Remarks 1. The echo of a test problem bulk data deck for the preceding DMAP sequence follows. . 1 .. 2 .. 3 .. 4 .. 5 .. 6 .. 7 .. 8 .. 9 .. 10 . DMI KTEST 0 6 1 2 4 4 DMI KTEST 1 1 200.0, -100.0 DMI KTEST 2 1 -100.0 200.0 -100.0 DMI KTEST 3 2 -100.0 200.0 -100.0 DMI KTEST 4 3 -100.0 200.0 DMI MTEST 0 6 1 2 4 4 DMI MTEST 1 1 1.0 DMI MTEST 2 2 1.0 DMI MTEST 3 3 1.0 DMI MTEST 4 4 1.0 EIGR 1 DET .0 2.5 2 2 +1 +1 MAX SPOINT 1 THRU 4 2. Data block EED is generated by DPD, which copies the EIGR or EIGB cards from data block DYNAMICS. The actual card used is selected in case control by METHOD = SID. 3. Each degree-of-freedom defined by the DMI matrices must be associated with some grid or scalar point in this version. In the example above, this is done by defining four scalar points. 4. The EIGR card selected in the Case Control Deck will be used as explained in Remark 2. 5. The use of module MTRXIN and DMIG bulk data cards will allow you to input matrices via grid point identification numbers. 5.8.8 DMAP to Print and Plot a Topological Picture of Two Matrices 1. BEGIN $ 2. SEEMAT KGG,KLL,,, // $ 3. SEEMAT KGG,KLL,,, //*PLOT*/S,N,P=0 $ 4. PRTPARM // 0 /*P* $ 5. PARAM // *MPY* /P/0/1 $ 6. SEEMAT KGG,KLL,,, //*PL0T*/S,N,P//*D*/0 $ 7. PRTPARM //0/*P* $ 8. END $ Remarks 1. Instruction number 2 causes the picture to be generated on the printer. 2. Instruction number 3 causes the picture to be generated on a microfilm plotter without typing capability (the default). 3. The parameter P is initialized to zero by instruction number 3. The form S,N,P would also have accomplished the same thing, since the MPL default value is zero. 4. Instruction number 4 prints the current value of parameter P. Since P was initially set to zero and instruction number 3 is the first instruction executed which has P as an input, then P will have a zero value on input to instruction number 3. P is incremented by one (1) for every frame generated on the microfilm plotter. Since the value of the output parameter P was automatically saved, the value printed by instruction number 4 will be the number of frames generated by the execution of instruction number 3. 5. Instruction number 5 causes the value of P to be reset to zero (0), the product of zero (0) and one (1). Since PARAM is the only module which does its own SAVE, the parameter P need not be saved explicitly. This illustrates a commonly used technique for setting parameter values in DMAP programs. 6. Instructions 6 and 7 essentially repeat instructions 3 and 4 using a drum plotter with typing capability in place of a microfilm plotter without typing capability. 7. The END instruction, which is required, also acts as an EXIT instruction. 8. NASTRAN file PLT2 must be set up in order to execute this DMAP successfully. 9. Matrix data blocks KGG and KLL are assumed to exist on the POOL file. This will be the case if either DMI input is used or if a restart is being made from a run in which KGG and KLL were generated and checkpointed. 5.8.9 DMAP to Compute the r-th Power of a Matrix [Q] BEGIN $ MATPRN Q,,,, // $ PARAM // C,N,NOP / V,N,TRUE=-1 $ PARAM // C,N,SUB / V,N,RR / V,Y,R=-1 / C,N,2 $ PARAM // C,N,NOP / V,N,FALSE=+1 $ ADD Q, / QQ $ LABEL DOIT $ EQUIV QQ,P / FALSE $ MPYAD Q,QQ, / P / C,N,0 $ EQUIV P,QQ / TRUE $ PARAM // C,N,SUB / V,N,RR / V,N,RR / C,N,1 $ COND STOP,RR $ REPT DOIT,1000000 $ LABEL STOP $ MATPRN P,,,, // $ END $ or BEGIN $ MATPRN Q // $ PARAM // *SUB* / RR / V,Y,R=-1 / 2 $ COPY Q / P $ LABEL TOP $ MPYAD Q,P / PP / 0 $ SWITCH P,PP // $ REPT TOP,RR $ MATPRN P // $ END $ Remarks 1. The matrix [Q] is assumed input via DMI bulk data cards. 2. The parameter R is assumed input on a PARAM bulk data card. 3. [DELETED] 4. The improved DMAP to perform the same operation can be done with substantially fewer commands. =PAGE= 5.8.10 Usage of UPARTN, VEC, and PARTN In Rigid Format No. 7, the functional modules SMP1 and SMP2 (the latter used three times) together perform the following matrix operations: _ Kaa Kao [Kff] => Koa Koo -1 [Go] = -[Koo] [Koa] _ Maa Mao [Mff] => Moa Moo [A] = [Moo] [Go] + [Moa] T _ [B] = [Moa] [Go] + [Maa] T [Maa] = [Go] [A] + [B] _4 4 4 Kaa Kao [Kff] => 4 4 Koa Koo 4 4 [A] = [Koo] [Go] + [Koa] 4 T _4 [B] = [Koa] [Go] + [Kaa] 4 T [Kaa] = [Go] [A] + [B] _ Baa Bao [Bff] => Boa Boo [A] = [Boo] [Go] + [Boa] T _ [B] = [Boa] [Go] + [Baa] T [Baa] = [Go] [A] + [B] This is far too many time-consuming matrix operations to perform within single modules when the a-set and o-set are large. (Remember, checkpoint only occurs after the module has done all its work.) In order to subdivide the matrix operations, the partitions of the matrices [Kff] etc. must be obtained. The following ALTER packet accomplishes this objective by the use of the UPARTN nodule. SMP1 and SMP2 using UPARTN for Rigid Format No. 7 ALTER n1,n2 $ (where n1 = DMAP statement number of the SMP1 module and n2 = DMAP statement number of the third use of the SMP2 module) $ UPARTN USET,KFF / KOO, ,KOA,KAAB / *F*/*O*/*A* $ SOLVE KOO,KOA / GO / 1 / -1 $ MPYAD KOA,GO,KAAB / KAA / 1 $ $ UPARTN USET,MFF / MOO, ,MOA,MAAB / *F*/*O*/*A* $ MPYAD MOO,GO,MOA / MAATEMP1 / O $ MPYAD MOA,GO,MAAB / MAATEMP2 / 1 $ MPYAD GO,MAATEMP1,MAATEMP2 / MAA / 1 $ $ UPARTN USET,K4FF / K4OO, ,K4OA,K4AAB / *F*/*O*/*A* $ MPYAD K4OO,GO,K4OA / K4AATMP1 / 0 $ MPYAD K4OA,GO,K4AAB / K4AATMP2 / 1 $ MPYAD GO,K4AATMP1,K4AATMP2 / K4AA / 1 $ $ UPARTN USET,BFF / BOO, ,BOA,BAAB / *F*/*O*/*A* $ MPYAD BOO,GO,BOA / BAATEMP1 / 0 $ MPYAD BOA,GO,BAAB / BAATEMP2 / 1 $ MPYAD GO,BAATEMP1,BAATEMP2 / BAA / 1 $ $ ENDALTER $ The matrix operations can be further subdivided by making the partitioning information contained in USET available to the PARTN module. The following ALTER packet accomplishes this by the use of the VEC and PARTN modules. SMP1 and SMP2 using VEC and PARTN for Rigid Format No. 7 ALTER n1,n2 $ (where n1 = DMAP statement number of the SMP1 module and n2 = DMAP statement number of the third use of the SMP2 module) $ VEC USET / V / *F*/*O*/*A* $ $ PARTN KFF,V / KOO, ,KOA,KAAB / $ DECOMP KOO / LOO,UOO / 1 / 0 / S,N,MIND / S,N,DET / S,N,NDET / S,N,SING $ COND LSING,SING $ FBS LOO,UOO,KOA / GO / 1 / -1 $ MPYAD KOA,GO,KAAB / KAA / 1 $ $ PARTN MFF,V, / MOO, ,MOA,MAAB $ MPYAD MOO,GO,MOA / MAATEMP1 / 0 $ MPYAD MOA,GO,MAAB / MAATEMP2 / 1 $ MPYAD GO,MAATEMP1,MAATEMP2 / MAA / 1 $ $ PARTN K4FF,V, / K4OO, ,K4OA,K4AAB / $ MPYAD K4OO,GO,K4OA / K4AATMP1 / 0 $ MPYAD K4OA,GO,K4AAB / K4AATMP2 / 1 $ MPYAD GO,K4AATMP1,K4AATMP2 / K4AA / I $ $ PARTN BFF,V, / BOO, ,BOA,BAAB $ MPYAD BOO,GO,BOA / BAATEMP1 / 0 $ MPYAD BOA,GO,BAAB / BAATEMP2 / 1 $ MPYAD GO,BAATEMP1,BAATEMP2 / BAA / 1 $ $ ALTER n3 $ ADD ERROR TRAP FOR SINGULAR KOO MATRIX IN R.F. 7 (n3 = DMAP statement number of JUMP FINIS) $ LABEL LSING $ PRTPARM // 0 / *SING* $ PRTPARM // -1 / *DMAP* $ EXIT $ $ ENDALTER $ 5.8.11 DMAP to Perform Matrix Operations Using Conditional Logic Let A, B, and C be matrices whose values are to be defined at execution time. Let be a real constant whose value is to be defined at execution time. Let be an integer constant whose value (defined at execution time) determines the operations to be performed to compute matrix X as follows: [A][B] + [C] , < 0 T [X] = [[A] + [B]] , = 0 2 -1 [A] [C] , > O Write a DMAP to accomplish the above, assuming A, B, and C will be defined by DMI bulk data cards and that and will be defined on PARAM bulk data cards. Print the inputs and outputs using the DMAP Utility Functional Modules MATPRN and PRTPARM. Use the DMAP Utility Module SEEMAT to print a topology display of [A] and [X]. A solution to this problem is given below along with data for an actual example. ID A,B TIME 5 APP DMAP BEGIN $ JUMP START $ PARAM // C,N,NOP / V,N,TRUE=-1 $ SET TRUE TO -1 (=.TRUE.) LABEL START $ MATPRN A,B,C,, // $ COND ONE,ALPHA $ PARAM // C,N,NOT / V,N,CHOOSE / V,Y,ALPHA $ COND THREE,CHOOSE $ JUMP TWO $ LABEL ONE $ ALPHA .LT. 0 MPYAD A,B,C / X / C,N,0 $ JUMP FINIS $ LABEL TWO $ ALPHA .EQ. 0 ADD A,B / Y / C,Y,BETA=(0.0,0.0) $ TRNSP Y / X2 $ EQUIV X2,X / TRUE $ JUMP FINIS $ LABEL THREE $ ALPHA .GT. 0 SOLVE C, / Z $ MPYAD A,Z, / W / C,N,0 $ MPYAD A,W, / X3 / C,N,0 $ EQUIV X3,X / TRUE $ LABEL FINIS $ MATPRN X,,,, // $ SEEMAT A,X,,, // C,N,PRINT $ PRTPARM // C,N,0 $ END $ CEND TITLE = TEST MPYAD BEGIN BULK DMI A 0 6 1 2 2 2 DMI A 1 1 1.01 DMI A 2 2 1.01 DMI B 0 6 1 2 2 2 DMI B 1 1 1.01 DMI B 2 2 1.01 DMI C 0 6 1 2 2 2 DMI C 1 1 1.01 DMI C 2 2 1.01 PARAM ALPHA -1 PARAM BETA 1.0 .0 ENDDATA =PAGE= 5.9 AUTOMATIC SUBSTRUCTURE DMAP ALTERS In the automated substructure process, your commands (described in Section 2.7) are converted to the form of DMAP instructions via ALTER card equivalents. This section describes the resulting DMAP data for each command. The raw DMAP data, stored in the program and modified according to your input data, is listed by command type. The subcommand control cards are identified by parentheses on the right side. For example, the (P only) for the SUBSTRUCTURE command item 12, implies that this DMAP instruction is included only if the OPTION request includes P (loads). The ALTER card images are not true DMAP instructions but are used to locate positions in the existing DMAP Rigid Format for replacement by or insertion of the new DMAP instructions. The locations to be specified depend on the Rigid Format selected by the SOL Executive Control Card and are listed in Volume II for each Rigid Format. The relevant section of the Rigid Format for each ALTER is indicated by the note in parentheses. For instance, "After GP4" in Rigid Format 1 (statics) implies "ALTER nn" (where nn is the DMAP instruction number of the GP4 module) for insertion of the corresponding DMAP instructions following Rigid Format 1 DMAP instruction number nn. If an existing set of DMAP instructions is to be removed, the parenthetical note may indicate "Remove DECOMP", where DECOMP may be a set of NASTRAN modules related to the entire decomposition process. The descriptions given below are highly dependent on your input commands and the Rigid Format selected. For an exact listing of all DMAP data generated for the current set of substructure commands, the DIAG 23 Executive Control Card may be input. Adding DIAG 24 will produce a punched deck of the actual ALTER cards generated. This feature allows you to modify these ALTERs and execute under APP DMAP,SUBS. 5.9.1 Index of Substructure DMAP ALTERs ALTER Basic Function Page BRECOVER Convert Phase 2 results to solution vectors 5.9-2 COMBINE Combine several substructures 5.9-3 CREDUCE Complex modal reduction of a substructure 5.9-4 DELETE DESTROY EDIT Internal utility commands 5.9-5 EQUIV RENAME SOFPRINT MREDUCE Real modal reduction of a substructure 5.9-6 PLOT Plot substructures 5.9-7 RECOVER, MRECOVER Recover and output Phase 2 solution data or 5.9-8 Phase 1, 2 modal reduction data REDUCE Initiate matrix partitioning operations 5.9-9 RUN Define the DRY parameter 5.9-10 SOFIN SOFOUT RESTORE File operators 5.9-11 DUMP CHECK SOLVE Provide data for execution of the solution phase5.9-12 SUBSTRUCTURE Initiate the automatic DMAP process 5.9-14 =PAGE= DMAP for Command BRECOVER (Phase 3) The BRECOVER command converts the results of a Phase 2 substructure analysis to NASTRAN solution vectors for the detailed calculation of basic structure (or an equivalent basic substructure) displacements, forces, loads, and stresses. The same structure model of the primary substructure defined in Phase 1 must be used in Phase 3. It is possible to perform the Phase 3 execution either as a restart of the Phase 1 run or as an independent run, which recalculates the necessary data blocks. Raw DMAP 1 ALTER (Remove solution) 2 PARAM //*NOP*/ALWAYS=-1 $ 3 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT/ 4 PG/LUSET/NSKIP $ (R.F. 9 only) (P or PA 5 SSG2 USET,GM,YS,KFS,GO,,PG/ only) QR,PO,PS,PL $ (R.F. 1,2,3 or 9 only) 6 RCOVR3 ,PG,PS,PO,YS/UAS,QAS,PGS,PSS,POS,YSS,LAMA/SOLN/ 7 *NAME*/NDUE $ 8 EQUIV PGS,PG/ALWAYS $ 9 EQUIV PSS,PS/ALWAYS $ 10 EQUIV POS,PO/ALWAYS $ 11 EQUIV YSS,YS/ALWAYS $ (R.F. 1 or 2 only) (P or PA only) 12 COND LBSSTP,OMIT $ 13 FBS LOO,,POS/UOOV/1/1/PREC/0 $ 14 LABEL LBSSTP $ 15 OFP LAMA,,,,,//CARDNO $ (R.F. 3 only) 16 ALTER (After SDRI) 17 UMERGE USET,QAS,/QGS/*G*/*A*/*O* $ 18 ADD QG,QGS/QGT $ 19 EQUIV QGT,QG/ALWAYS $ 20 EQUIV CASECC,CASEXX/ALWAYS $ (R.F. 8 or 9 only) 21 ALTER (Remove repeat logic) Variables YS,PO Remove if not P or PA, or if not R.F. 1 or 2. PG,PS Remove if not P or PA, or if not R.F. 1, 2, or 9. R.F. 1 2 3 8 9 UAS ULV ULV PHIA UDVF UDVT PGS PGS PGS PPT PSS PSS PSS PST LAMA LAMA PPF TOL QG QG QG QG QPC QP POS Remove if not P or PA. or if not R.F. 1, 2, or 3. SOLN Rigid Format solution number. NAME Name of basic Phase 1 substructure, corresponding to input data. NOUE Remove if not R.F. 8 or 9. STP Step number. PREC Precision. =PAGE= DMAP for Command COMBINE The COMBINE command initiates the process for combining several substructures defined on the SOF files. The COMB1 module reads the control deck and the bulk data cards and builds the tables and transformation matrices for the combination structure. The COMB2 module performs the matrix transformations using the matrices stored on the SOF file or currently defined as NASTRAN data blocks. The resultant matrices are stored on the SOF file and retained as NASTRAN data blocks. Raw DMAP 1 COMB1 CASECC,GEOM4//STP/S,N,DRY/*PVEC* $ 2 COND LBSTP,DRY $ 3 COMB2 ,KN0l,KN02,KN03,KN04,KN05,KN06,KN07/KNSC/S,N,DRY 4 /*K*/* */*NAME0001*/*NAME0002*/*NAME0003*/ (K only) 5 *NAME0004*/*NAME0005*/*NAME0006*/*NAME0007* $ 6 SOFO ,KNSC,,,,//S,N,DRY/*NAMEC */*KMTX* $ 7 COMB2 ,MN01,MN02,MN03,MN04,MN05,MN06,MN07/MNSC/S,N,DRY/ 8 *M*/* */*NAME000l*/*NAME0002*/*NAME0003*/ (M only) 9 *NAME0004*/*NAME0005*/*NAME0006*/*NAME0007* $ 10 SOFO ,MNSC,,,,//S,N,DRY/*NAMEC */*MMTX* $ 11 COMB2 ,PN01,PN02,PN03,PN04,PN05,PN06,PN07/PNSC/S,N.DRY/ 12 *P*/*PVEC*/*NAME0001*/*NAME0002*/*NAME0003*/ (P or PA 13 *NAME0004*/*NAME0005*/*NAME0006*/*NAME0007* $ only) 14 SOFO ,PNSC,,,,//S,N,DRY/*NAMEC */*PVEC $ 15 COMB2 ,BN0l,BN02,BN03,BN04,BN05,BN06,BN07/BNSC/S,N,DRY/ 16 *B*/* */*NAME0001*/*NAME0002*/*NAME0003*/ (B only) 17 *NAME0004*/*NAME0005*/*NAME0006*/*NAME0007* $ 18 SOFO ,BNSC,,,,//S,N,DRY/*NAMEC */*BMTX* $ 19 COMB2 ,K4N01,K4N02,K4N03,K4N04,K4N05,K4N06,K4N07/K4NSC/ 20 S,N,DRY/*K4*/* */*NAME000l*/*NAME0002*/*NAME0003*/ (K4 only) 21 *NAME0004*/*NAME0005*/*NAME0006*/*NAME0007* $ 22 SOFO ,K4NSC,,,,//S,N,DRY/*NAMEC */*K4MX* $ 23 LABEL LBSTP $ 24 LODAPP PNSC,//*NAMEC */S,N,DRY $ (PA only) Variables STP Step number. PVEC PVEC for P option, PAPP for PA option. N01,N02,...etc. Internal numbers for structures to be combined. NSC Internal number of combined structure. NAME000l,NAME0002,...,etc. Names of pseudostructures to be combined. NAMEC Name of combined structure. =PAGE= DMAP for Command CREDUCE The CREDUCE command performs a complex modal synthesis reduction for a component substructure. The resulting generalized coordinates for the reduced substructure will consist of selected boundary point displacements and generalized displacements of the eigenvectors. The MRED1 module produces dummy USET and EED data blocks for the execution of the eigenvector extraction procedure. The EQST data block is created for use by the CMRED2 module. The CMRED2 module performs the actual matrix reduction. Note that, because the number of modal degrees of freedom is a calculated value, the RUN = DRY option is not allowed for complex modal reduction. Raw DMAP 1 PARAM //*NOP*/ALWAYS=-1 $ 2 MRED1 CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*NAMEA */ 3 S,N,DRY/STP/S,N,NOFIX/S,N,SKIPM/*COMPLEX* $ 4 COND LBM3STP,DRY $ 5 SOFI /KNOA,MNOA,PNOA,BNOA,K4NOA/S,N,DRY/*NAMEA */*KMTX*/*MNTX*/ 6 *PVEC*/*BMTX*/*K4MX* $ 7 COND LBM2STP,SKIPM $ 8 EQUIV KNOA,KFFX/NOFIX $ (K only) 9 EQUIV MNOA,MFFX/NOFIX $ (M only) 10 EQUIV BNOA,BFFX/NOFIX $ (B only) 11 EQUIV K4NOA,K4FFX/NOFIX $ (K4 only) 12 COND LBM1STP,NOF1X $ 13 SCE1 USETR,KNOA,MNOA,BNOA,K4NOA/KFFX,KFSX,KSSX,MFFX, 14 BFFX,K4FFX $ (Remove for 15 LABEL LBM1STP $ option PA) 16 PARAMR //*COMPLEX*//1,0/GPARAM /G $ 17 ADD KFFX,K4FFX/KDD/G/(0,0,1,0) $ 18 EQUIV KDD,KFFX/ALWAYS $ 19 CEAD KFFX,BFFX,MFFX,EEDR,/PHIDR,CLAMA,OCEIGS,PHIDL 20 /NEIGVS $ 21 OFP CLAMA,OCEIGS,,,,// $ 22 EQUIV PHIDR,PHIFR/NOFIX $ 23 EQUIV PHIDL,PHIFL/NOFIX $ 24 COND LBM2STP,NOFIX $ 25 UMERGE USETR,PHIDR,/PHIFR/*N*/*F*/*S* $ 26 UMERGE USETR,PHIDL,/PHIFL/*N*/*F*/*S* $ 27 LABEL LBM2STP $ 28 CMRED2 CASECC,CLAMA,PHIFR,PHIFL,EQST,USETR,KNOA,MNOA,BNOA,K4NOA,PNOA/ 29 KNOB,MNOB,BNOB,K4NOB,PNOB,PONOB/STP/S,N,DRY/*PVEC* $ 30 LABEL LBM3STP $ 31 LODAPP PNOB,PONOB//*NAMEB___*/S,N,DRY $ (PA only) 32 COND FINIS,DRY $ Variables STP Step number. PVEC PVEC for option P, PAPP for option PA. NAMEA Name of input substructure, A. NAMEB Name of output substructure, B. NOA Internal number of substructure A. NOB Internal number of substructure B. KFFX,KFSX,KSSX K only. MFFX M only. BFFX B only. K4FFX K4 only. CLAMA,PHIFR,PHIFL Remove for option PA. =PAGE= DMAP for Utility Commands DELETE, DESTROY, EDIT, EQUIV, RENAME, SOFPRINT Several internal operations of the SOF may be performed with the utility commands which create various calls to the SOFUT module. Each of the commands and associated data are inserted as parameters. Raw DMAP 1 SOFUT //DRY/*NAME */*OPER*/OPT/*NAME0002*/*PREF*/*ITM1*/*ITM2*/ 2 *ITM3*/*ITM4*/*ITM5* $ Variables NAME Name of substructure. OPER Operation to be performed (first four characters of command, for example, EDIT). OPT Integer option code. NAME0002 Second substructure name for EQUIV and RENAME. PREF Prefix for EQUIV operation. ITM1,ITM2, etc. SOF data item names. The following table describes the variables used for each command. Ŀ Command NAME OPER OPT NAME0002 PREF ITM1, etc. Ĵ DELETE X X X DESTROY X X EDIT X X X EQUIV X X X X RENAME X X X SOFPRINT X X X X =PAGE= DMAP for Command MREDUCE The MREDUCE command performs a modal synthesis reduction for a component substructure. The resulting generalized coordinates for the reduced substructure will consist of selected boundary point displacements and generalized displacements of the modal coordinates. The MRED1 module produces dummy USET and EED data blocks for the execution of the mode extraction procedure. The EQST and DMR data blocks are created for use by the MRED2 module. The MRED2 module performs the actual matrix reduction. Note that, because the number of modal degrees of freedom is a calculated value, the RUN = DRY option is not allowed for modal reduction. Raw DMAP 1 MRED1 CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*NAMEA */ 2 S,N,DRY/STP/S,N,NOFIX/S,N,SKIPM/*REAL* $ 3 COND LBM3STP,DRY $ 4 SOFI /KNOA,MNOA,PNOA,BNOA,K4NOA/S,N,DRY/*NAMEA */*KMTX*/*MMTX*/ 5 *PVEC*/*BMTX*/*K4MX* $ 6 COND LBM2STP,SKIPM $ 7 EQUIV KNOA,KFFX/NOFIX $ (K only) 8 EQUIV MNOA,MFFX/NOFIX $ (M only) 9 EQUIV BN0A,BFFX/NOFIX $ (B only) 10 EQUIV K4NOA,K4FFX/NOFIX $ (K4 only) 11 COND LBM1STP,NOFIX $ 12 SCE1 USETR,KNOA,MNOA,BNOA,K4NOA/KFFX,KFSX,KSSX, (Remove for 13 MFFX,BFFX,K4FFX $ PA) 14 LABEL LBM1STP $ 15 READ KFFX,MFFX,BFFX,K4FFX,EEDR,USETR,/LAMAR,PHIR, 16 MIR,OEIGR/*MODES*/NEIGVS $ 17 OFP LAMAR,OEIGR,,,,// $ 18 EQUIV PHIR,PHIS/NOFIX $ 19 COND LBM2STP,NOFIX $ 20 UMERGE USETR,PHIR,/PHIS/*N*/*F*/*S* $ 21 LABEL LBM2STP $ 22 MRED2 CASECC,LAMAR,PHIS,EQST,USETR,KNOA,MNOA,BNOA,K4NOA,PNOA,DMR, 23 QSM/KNOB,MNOB,BNOB,K4NOB,PNOB,PONOB/STP/S,N,DRY/*PVEC* $ 24 LABEL LBM3STP $ 25 LODAPP PNOB,PONOB//*NAMEB */S,N,DRY $ (PA only) 26 COND FINIS,DRY $ Variables STP Step number. PVEC PVEC for option P, PAPP for option PA. NAMEA Name of input substructure, A. NAMEB Name of output substructure, B. NOA Internal number of substructure A. NOB Internal number of substructure B. KFFX,KFSX,KSSX K only. MFFX M only. BFFX B only. K4FFX K4 only. LAMAR,PHIS Remove for option PA. QSM Remove for R.F. 9. =PAGE= DMAP for Substructure Plots: PLOT Any level of substructure may be plotted as an undeformed shape using the existing NASTRAN plot logic. The plot sets generated in Phase 1 are combined and transformed for that plotting. Raw DMAP 1 PLTMRG CASECC,PCDB/PLTSTP,GPSTP,ELSTP,BGSTP,CASSTP,EQSTP/*NAME */ 2 S,N,NGP/S,N,LSIL/S,N,NPSET $ 3 SETVAL //S,N,PLTFLG/1/S,N,PFIL/0 $ 4 PLOT PLTSTP,GPSTP,ELSTP,CASSTP,BGSTP,EQSTP,,,,,/PMSTP/NGP/LSIL/ 5 S,N,NPSET/S,N,PLTFLG/S,N,PFIL $ 6 PRTMSG PMSTP// $ Variables NAME Name of substructure to be plotted. STP Step number. =PAGE= DMAP for Commands RECOVER (Phase 2), MRECOVER (Phase 1, 2) RECOVER performs the recovery and output of the Phase 2 solution data. MRECOVER performs the recovery and output subsequent to a Phase 1 or 2 MREDUCE or CREDUCE operation. The NASTRAN solution displacement vector (either displacement vectors or eigenvectors) is transformed and expanded to correspond to the degrees of freedom of the selected component substructures. Each pass through the DMAP loop corresponds to a requested structure to be processed. The RCOVR module selects the substructure to be processed with the loop counter, ILOOP. Raw DMAP 1 FILE U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $ 2 PARAM //*ADD*/ILOOP/0/0 $ 3 LABEL LBSTP $ 4 RCOVR CASESS,GEOM4,KGG,MGG,PGG,UGV,DIT,DLT,BGG,K4GG,PPF/OUGV1, 5 OPG1,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/STP/*NAMEFSS */ 6 NSOL/NEIGV/S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/ 7 S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $ 8 EQUIV OUGV1 ,OUGV /NOSORT2/OQG1,OQG/NOSORT2 $ 9 EQUIV OPG1,OPG/NOSORT2 $ (R.F. 1, 2, 8, or 9 only) 1O COND NST2STP,NOSORT2 $ 11 SDR3 OUGV1 ,OPG1,OQG1,,,/OUGV ,OPG,OQG,,, $ 12 LABEL NST2STP $ 13 OFP OUGV ,OPG,OQG,,,//S.N,CARDNO $ 14 COND LBBSTP,ILOOP $ 15 REPT LBSTP,100 $ 16 LABEL LBBSTP $ 17 SOFO ,U1,U2,U3,U4,U5//-1/*xxxxxxxx* $ Variables KGG K option only. MGG M option only. BGG B option only. K4GG K4 option only. R.F. 1 2 3 8 9 GEOM4 GEOM4 GEOM4LAMA GEOM4 GEOM4 PGG PGG PGG PPF PPT UGV UGV UGV PHIG UGV UGV PPF PPF TOL OUGV1 OUGV1 OUGV1OPHIG1 OUGV1 OUGV1 OUGV OUGV OUGV OPHIG OUGV OUGV SS SS or CC (if after SOLVE step). DIT, DLT Remove if not R.F. 1, 2, or 3. OPG1, OPG Remove if R.F. 3. NSOL Rigid Format solution number. NEIGV R.F. 3 only. NAMEFSS Name of solution structure. =PAGE= DMAP for Command REDUCE The REDUCE command initiates the matrix partitioning operations to be performed on the stiffness, mass, damping, and load vectors in order to produce a set of matrices defined by a subset of the original degrees of freedom. The REDUCE module generates the partitioning vector PV, a USET data block US, and an identity matrix IN from the bulk data and the corresponding substructure tables stored on the SOF. The remainder of the DMAP sequence directs the actual matrix operations. Raw DMAP 1 REDUCE CASECC,GEOM4/PVNOA,USSTP,INSTP/STP/S,N,DRY/*PVEC* $ 2 COND LBRSTP,DRY $ 3 SOFI /KNOA,MNOA,PNOA,BNOA,K4NOA/S,N,DRY/*NAME000A*/*KMTX*/*MMTX*/ 4 *PVEC*/*BMTX*/*K4MX* $ 5 COND LBRSTP,DRY $ 6 SMP1 USSTP,KNOA,,,/GONOA,KNOB,KONOA,LONOA,,,,, $ 7 MERGE GONOA,INSTP,,,,PVNOA/GNOA/1/TYP/2 $ (K only) 8 SOFO ,GNOA,LONOA,,,//DRY/*NAME000A*/*HORG*/*LMTX* $ 9 SOFO ,KNOB,,,,//DRY/*NAME000B*/*KMTX* $ 10 SOF1 /GNOA,,,,/S,N,DRY/*NAME000A*/*HORG* $ (all except K) 11 MPY3 GNOA,MNOA,/MNOB/0/0 $ (M only) 12 SOFO `MNOB,,,,//DRY/*NAME000B*/*MMTX* $ 13 MPY3 GNOA,BNOA,/BNOB/0/0 $ (B only) 14 SOFO ,BNOB,,,,//DRY/*NAME000B*/*BMTX* $ 15 MPY3 GNOA,K4NOA,/K4NOB/0/0 $ (K4 only) 16 SOFO ,K4NOB,,,,//DRY/*NAME000B*/*K4MX* $ 17 PARTN PNOA,,PVNOA/PONOA,,,/1/1/2 $ (P or PA 18 MPYAD GNOA,PNOA,/PNOB/1/1/0/1 $ only) 19 SOFO ,PONOA,,,,//DRY/*NAME000A*/*POVE* $ 20 SOFO ,PVNOA,,,,//DRY/*NAME000A*/*UPRT* $ 21 S9F9 ,PNOB,,,,//DRY/*NAME000B*/*PVEC* $ (P or PA only) 22 LABEL LBRSTP $ 23 LODAPP PNOB,PONOA//*NAME000B*/S,N,DRY $ (PA only) Variables STP Step number. NAME000A Name of input structure, A. NAME000B Name of output structure, B. NOA,NOB Internal numbers of substructures A and B. TYP Matrix precision flag (1 = single). PVEC PVEC for P option, PAPP for PA option. POVE POVE for P option, POAP for PA option. =PAGE= DMAP for Command RUN The RUN command defines the DRY parameter for use by the subsequent DMAP instructions. If you specify RUN = DRY, a special set of DMAP instructions is placed at the end of the entire command sequence. Raw DMAP PARAM //*ADD*/DRY/I /0$ Variables I Integer code for RUN option (DRY = -1, GO = 0, STEP = 1). If RUN = DRYGO, I is set to (DRY) initially and the following DMAP is inserted at the end of the complete ALTER stream: LABEL LBSEND $ PARAM //*ADD*/DRY/DRY/1 $ COND FINIS,DRY $ REPT LBSBEG,1 $ JUMP FINIS $ =PAGE= DMAP for External I/O Commands SOFIN, SOFOUT, RESTORE, DUMP, CHECK Several operations may be performed on the NASTRAN user files and the SOF file using the EXIO module. The various input parameters are set by the Substructure Commands. Raw DMAP EXIO //S,N,DRY/MACH/*DEVI*/*UNITNAME*/*FORM*/*MODE*/*POSI*/*ITEM*/ *NAME0001*/*NAME0002*/*NAME0003*/*NAME0004*/*NAME0005* $ Variables MODE First four characters of command name (that is, "SOFI", "REST"). DEVI Device used for I/O file ("TAPE" or "DISK"). UNITNAME Name of NASTRAN user file assigned to I/O file (that is, INPT, INP1, etc.). FORM Format of data ("EXTE" or "INTE"). POSI Position of file on device ("REWI", "NORE", or "EOF"). ITEM Name of SOF item or "ALL", "MATR", "TABL", or "PHAS". NAME0001, etc. Names of substructures to be copied. The following table describes the variables used for each command: Ŀ Command MODE DEVI UNITNAME FORM POSI ITEM NAME000i Ĵ SOFlN X X X X X X X SOFOUT X X X X X X X RESTORE X X X DUMP X X X CHECK X X X =PAGE= DMAP for Command SOLVE The SOLVE command provides the necessary data for execution of the solution phase of NASTRAN. Module SGEN replaces the NASTRAN GP1 module for the purpose of defining an equivalent pseudostructure from data blocks. The new data blocks GE3S and GE4S contain the load and constraint data in the form of converted bulk data card images. The stiffness, mass, viscous damping, and structural damping matrices are obtained from the SOF files and added to any user matrix terms. The static and dynamic analysis rigid formats require separate raw DMAP. Both sets of raw DMAP are shown below. Raw DMAP, Rigid Formats 1-3 1 ALTER (Remove GP1) 2 PARAM //*NOP*/ALWAYS=-1 $ 3 SGEN CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQUEXIN,GPDT, 4 BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*NAMESOLS*/S,N,LUSET/ 5 S,N,NOGPDT $ 6 PURGE CSTM $ 7 EQUIV GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/ 8 DYNS,DYNAMICS/ALWAYS $ 9 COND LBSTP,DRY $ 10 ALTER (Remove PLOT) 11 ALTER (Remove NOSIMP COND) 12 COND LBSOL,NOSIMP $ 13 ALTER (Remove Property Optimization EQUIV or NOMGG COND) 14 COND LBSOL,NOMGG $ 15 ALTER (Remove SMA3) 16 LABEL LBSOL $ 17 SOFI /KNOS,MNOS,,,/DRY/*NAMESOLS*/*KMTX*/*MMTX* $ 18 EQUIV KNOS,KGG/NOSIMP $ (K only) 19 EQUIV MNOS,MGG/NOSIMP $ (M only) 20 COND LBSTP,NOSIMP $ 21 ADD KGGX,KNOS/KGG $ (K only) 22 ADD MGG,MNOS/MGGX $ (M only) 23 EQUIV MGGX,MGG/ALWAYS $ 24 LABEL LBSTP $ 25 CHKPNT MGG $ 26 ALTER (After GP4) 27 COND LBSEND,DRY $ 28 ALTER (Remove SDR2 - PLOT) Variables NAMESOLS Name of solution structure. NOS Internal number of solution structure. STP Step number. Raw DMAP, Rigid Formats 8, 9 1 ALTER (Remove GP1) 2 PARAM //*NOP*/ALWAYS=-1 $ 3 SGEN CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT, 4 BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*NAMESOLS*/S,N,LUSET/ 5 S,N,NOGPDT $ 6 PURGE CSTM $ 7 EQUIV GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS 8 DYNS,DYNAMICS/ALWAYS $ 9 COND LBSTP,DRY $ 10 ALTER (Remove PLOT) 11 ALTER (Remove NOSIMP PURGE and COND) 12 ALTER (Remove GPWG and SMA3) 13 SOFI /KNOS,MNOS,BNOS,K4NOS,/DRY/*NAMESOLS*/*KMTX*/*MMTX*/*BMTX*/ 14 *K4MX* $ 15 EQUIV KNOS,KGG/NOKGGX $ 16 COND LB2K,NOKGGX $ (K only) 17 ADD KGGX,KNOS/KGG $ 18 LABEL LB2K $ 19 EQUIV MNOS,MGG/NOMGG $ 20 COND LB2M,NOMGG $ 21 ADD MGG,MNOS/MGGX $ (M only) 22 EQUIV MGGX,MGG/ALWAYS $ 23 LABEL LB2M $ 24 EQUIV BN0S,BGG/NOBGG $ 25 COND LB2B,NOBGG $ 26 ADD BGG,BNOS/BGGX $ (B only) 27 EQUIV BGGX,BGG/ALWAYS $ 28 LABEL LB2B $ 29 EQUIV K4NOS,K4GG/NOK4GG $ 30 COND LB2K4,NOK4GG $ 31 ADD K4GG,K4NOS/K4GGX $ (K4 only) 32 EQUIV K4GGX,K4GG/ALWAYS $ 33 LABEL LB2K4 $ 34 LBSTP $ 35 CHKPNT MGG,BGG,K4GG $ 36 ALTER (Remove MDEMA, KDEK2 PARAM) 37 PARAM //*AND*/MDEMA/NQUE/NOM2PP $ 3B PARAM //*ADD*/KDEK2/1/0 $ (K only) 39 PARAM //*ADD*/NOMGG/1/0 $ (M only) 40 PARAM //*ADD*/NOBGG/1/0 $ (B only) 41 PARAM //*ADD*/NOK4GG/1/0 $ (K4 only) 42 ALTER (Remove NOSIMP, NOGPDT EQUIV) 43 EQUIV K2DD,KDD/KDEK2 $ 44 EQUIV M2DD,MDD/NOMGG $ 45 EQUIV B2DD,BDD/NOBGG $ 45 ALTER (Remove SDR2 and PLOT) 47 EQUIV UPVF,UPVC/NOA $ 48 COND LBL19,NOA $ 49 SDR1 USETD,,UDVF,,,GOD,GMD,,,,/UPVC,,/1/DYNAMICS $ 50 LABEL LBL19 $ 51 CMKPNT UPVC $ 52 EQUIV UPVC,UGV/NOUE $ 53 COND LBUE,NOUE $ 54 UPARTN USET,UPVC/UGV,UEV,,/*P*/*G*/*E* $ 55 LABEL LBUE $ Variables NAMESOLS Name of solution structure. NOS Internal number of solution structure. STP Step number. UDVF UDVF for R.F. 8, UDVT for R.F. 9. =PAGE= DMAP for Command SUBSTRUCTURE The SUBSTRUCTURE command is necessary to initiate the automatic DMAP process. In Phase 1, the SUBPH1 module is used to build the substructure tables on the SOF from the NASTRAN grid point tables and the SOFO module is used to copy the matrices onto the SOF. In Phase 2 and Phase 3, the initial value of the DRY parameter is set and the DMAP sequence is initiated. Raw DMAP PHASE 1 1 ALTER 2,0 2 PARAM //*NOP*/ALWAYS=-1 $ 3 SGEN CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/ 4 S,N,NOGPDT $ 5 EQUIV CASEI,CASECC/ALWAYS $ 6 ALTER (After GP4) 7 PARAM //*ADD*/DRY-1 /0 $ 8 LABEL LBSBEG $ 9 COND LBLIS,DRY $ (R.F. 1, 2, 3, and 9 only) 10 SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT/ (R.F. 11 PG/LUSET/NSKIP $ 9 & P 12 CHKPNT PG $ or PA 13 ALTER (Remove DECOMP) only) 14 SSG2 USET,GM,,KFS,GO,,PG/QR,PO,PS,PL $ (R.F. 15 CHKPNT PO,PS,PL $ 9 & P 16 LABEL LBLIS $ (R.F. 1, 2, 3, and 9 only) or PA 17 ALTER (Remove solution) only) 18 SUBPH1 CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/ 19 *NAME */PLOTID /*PVEC* $ 20 COND LBSEND,DRY $ 21 EQUIV PG,PL/NOSET $ R.F. 1, 22 COND LBL10,NOSET $ 2, or 3 23 SSG2 USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $ & P or 24 CHKPNT PO,PS,PL $ PA only) 25 LABEL LBL10 R 26 SOFO ,KAA,MAA,PL,BAA,K4AA//S,N,DRY/*NAME*/*KMTX*/*MMTX*/PVEC*/ 27 *BMTX*/*K4MX* $ 28 LODAPP PL,//*NAME */S,N,DRY $ (R.F. 1, 2, 3, or 9 and PA only) 29 EQUIV CASESS,CASECC/ALWAYS $ PHASE 2 1 ALTER 2,0 2 PARAM //*ADD*/DRY/I/0 $ 3 LABEL LBSBEG $ PHASE 3 1 ALTER (Remove DECOMP or before dynamic solution) 2 PARAM //*ADD*/DRY/I/0 $ 3 LABEL LBSBEG $ Variables I Integer RUN option code (see RUN command). NAME Phase 1 substructure name. PLOTID Phase 1 Plot Set ID. KAA, MAA, PL, BAA, K4AA Data blocks dependent on OPTION. PVEC PVEC for option P, PAPP for option PA. =PAGE= 5.10 SUPPLEMENTARY FUNCTIONAL MODULES Module Basic Function Page EMA1 Alternative Element Matrix Generator 5.10-2 GPSPC Automatically constrain potential stiffness matrix singularities 5.10-3 These modules are fully described in Section 4 of the Programmer's Manual. However, since they are not incorporated in any of the Rigid Formats, they are included here for reference purposes. These modules must be ALTERed into Rigid Formats. =PAGE= EMA1 - Element Matrix Assembler Purpose This module superimposes matrices corresponding to elements into a structural matrix corresponding to all degrees of freedom at all grid points. DMAP Calling Sequence EMA1 GPECT, KDICT , KELM , SIL,ECT/ KGGX , MDICT MELM MGG GPST/C,N,NOK4/C,N,WTMASS $ Input Data Blocks GPECT Grid Point Element Connection Table. KDICT, MDICT Element Matrix Dictionaries. KELM, MELM Element Matrix Partitions. SIL Scalar Index List. ECT Element Connection Table. Output Data Blocks KGGX Assembled Structural Matrix. MGG Assembled Mass Matrix. GPST Grid Point Singularity Table. NOTE: GPST may be purged. Parameters NOK4 Input-Integer, default = -1. Flag which specifies whether damping factor is to be used in assembling matrix (-1 ignores factor). WTMASS Input-Real, default = 1.0. Constant by which all element matrix terms are multiplied. Example To replace the current module EMA with module EMA1 in DISP Static Analysis (DISP Rigid Format 1), the following ALTERs must be made: ALTER n1,n1 $ STRUCTURAL MATRIX (where n1 = DMAP statement number of the EMA module corresponding to the stiffness matrix) EMA1 GPECT,KDICT,KELM,SIL,ECT/KGGX,GPST $ ALTER n2,n2 $ MASS MATRIX (where n2 = DMAP statement number of the EMA module corresponding to the mass matrix) EMA1 GPECT,MDICT,MELM,SIL,ECT/MGG,/-1/C,Y,WTMASS=1.0 $ ENDALTER $ =PAGE= GPSPC - Constrain Stiffness Matrix Singularities Purpose The GPST data block contains data on potential stiffness matrix singularities. These singularities may have been removed through the application of single or multipoint constraints. The GPSPC module checks each singularity against the list of constraints, and if the singularity is not thereby removed, writes a warning for you and on your option automatically constrains the singularity. This module will not be used if GENELs are present. DMAP Calling Sequence GPSPC GPL,GPST,USET,SIL / OGPST,USETC / V,N,NOGPST / V,Y,SINCON / V,N,SINGLE / V,N,OMIT / V,N,REACT / V,N,NOSET / V,N,NOL / V,N,NOA $ Input Data Blocks GPL Grid Point List. GPST Grid Point Singularity Table. USET Displacement Set Definitions Table. SIL Scalar Index List. NOTE: No input data block can be purged. Output Data Blocks OGPST Tabular list of grid point singularities not removed by you. This data block will be processed by the OFP (Output File Processor) module. USETC Displacement Set Definition Table with singularities constrained. Parameters NOGPST Output-Integer, default = 1. If positive, OGPST was created. SINCON Input and Output-Integer, default = -1. If SINCON is negative on input, remaining singularities are automatically constrained. On output, same negative value if singularities existed, zero otherwise. SINGLE Input and Output-Integer, no default. See description of GP4 parameters of the same name in Programmer's Manual Section 4.31. Values are corrected only if singularities were constrained. OMIT Input and Output-Integer, no default. See description of GP4 parameters of the same name in Programmer's Manual Section 4.31. Values are corrected only if singularities were constrained. REACT Input and Output-Integer, no default. See description of GP4 parameters of the same name in Programmer's Manual Section 4.31. Values are corrected only if singularities were constrained. NOSET Input and Output-Integer, no default. See description of GP4 parameters of the same name in Programmer's Manual Section 4.31. Values are corrected only if singularities were constrained. NOL Input and Output-Integer, no default. See description of GP4 parameters of the same name in Programmer's Manual Section 4.31. Values are corrected only if singularities were constrained. NOA Input and Output-Integer, no default. See description of GP4 parameters of the same name in Programmer's Manual Section 4.31. Values are corrected only if singularities were constrained. Examples 1. To use the GPSPC module instead of the standard GPSP module in a static analysis (DISP Rigid Format 1), module GPSP is replaced by module GPSPC and the USET data block is replaced by the USETC data block. In this case, the following ALTERs are required: ALTER n1,n2 $ (where n1 and n2 are the DMAP statement numbers of the PARAM and PURGE statements following the GP4 module) ALTER n3,n3 $ (where n3 = DMAP statement number of the GPSP module) GPSPC GPL,GPST,USET,SIL/OGPST,USETC/S,N,NOGPST/S,Y,SINCON=-1/ S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NOSET/S,N,NOL/S,N,NOA $ EQUIV USETC,USET/SINCON $ ALTER n4 $ (where n4 = DMAP statement number of the OFP module immediately following the GPSP module) PARAM //*ADD*/SING/V,Y,SINCON/1 $ COND ERROR3,NOL $ COND ERROR,SING $ ALTER n5 $ (where n5 = DMAP statement number of LABEL LBL4) PARAM //*AND*/NOSR/SINGLE/REACT $ PURGE KRR,KLR,QR,DM/REACT /GM/MPCF1 /GO,KOO,LOO,PO,UOOV,RUOV/OMIT PS,KFS,KSS/SINGLE /QG/NOSR $ LABEL ERROR $ PRTPARM //0/*SINCON* $ ENDALTER $ The input parameter SINCON can be changed from the initial value illustrated for the general case, either by using the form C,N,i or by using a PARAM bulk data card with a different value. When SINCON = -1, the strongest combination of possible singularities is automatically constrained and noted in the GPST output. 2. To use the GPSPC module instead of the standard GPSP module in a real eigenvalue analysis (DISP Rigid Format 3), module GPSP is replaced by module GPSPC and the USET data block is replaced by the USETC data block. In this case, the following ALTERs are required: ALTER n1,n1 $ (where n1 = DMAP statement number of the PURGE module following the GP4 module) ALTER n2,n2 $ (where n2 = DMAP statement number of the GPSP module) GPSPC GPL,GPST,USET,SIL/OGPST,USETC/S,N,NOGPST/S,Y,SINCON=-1/ S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NOSET/S,N,NOL/S,N,NOA $ COND ERROR3,NOL $ EQUIV USETC,USET/SINCON $ ALTER n3 $ (where n3 = DMAP statement number of LABEL LBL4) PARAM //*ADD*/SING/V,Y,SINCON/1 $ COND ERROR,SING $ PURGE KRR,KLR,DM,MLR,MR/REACT /GM/MPCF1 /GO/OMIT /KFS/SINGLE / QG/NOSET $ LABEL ERROR $ PRTPARM //0/*SINCON* $ ENDALTER $ The input parameter SINCON can be changed from the initial value illustrated for the general case, either by using the form C,N,i or by using a PARAM bulk data card with a different value. When SINCON = -1, the strongest combination of possible singularities is automatically constrained and noted in the GPST output. ================================================ FILE: um/EXEC.TXT ================================================ =PAGE= 2.0 GENERAL DESCRIPTION OF DATA DECK The input deck begins with the required resident operating system control cards. The type and number of these cards will vary with the installation. Instructions for the preparation of these control cards should be obtained from the programming staff at each installation. The operating system control cards reference the NASTRAN primary input file. This is the file that is assigned to FORTRAN unit 5. The primary input file may contain the complete NASTRAN Data Deck or it may contain parts of the NASTRAN Data Deck and include references to secondary input files that contain the remainder of the NASTRAN Data Deck. Section 2.0.1 describes the setup of the NASTRAN Data Deck and Section 2.0.2 describes the usage of secondary input files via the READFILE capability. 2.0.1 NASTRAN Data Deck The NASTRAN Data Deck is constructed in the following order (depending on the particular job requirements): 1. The NASTRAN card (optional) 2. The Executive Control Deck (required) 3. The Substructure Control Deck (required only in substructure analyses) 4. The Case Control Deck (required) 5. The Bulk Data Deck (required) 6. The INPUT Module Data card(s) (required only if the INPUT module is used) The NASTRAN card is used to change the default values for certain operational parameters, such as the buffer size and the machine configuration. The NASTRAN card is optional, but, if present, it must be the first card of the NASTRAN Data Deck. It is described in detail in Section 2.1. The Executive Control Deck begins with the NASTRAN ID card and ends with the CEND card. It identifies the job and the type of solution to be performed. It also declares the general conditions under which the job is to be executed, such as, maximum time allowed, type of system diagnostics desired, restart conditions, and whether or not the job is to be checkpointed. If the job is to be executed with a rigid format, the number of the rigid format is declared along with any alterations to the rigid format that may be desired. If Direct Matrix Abstraction is used, the complete DMAP sequence must appear in the Executive Control Deck. The executive control cards and examples of their use are described in Section 2.2. The Substructure Control Deck begins with the SUBSTRUCTURE card and terminates with the ENDSUBS card. It defines the general attributes of the Automated Multi-stage Substructuring capability and establishes the control of the Substructure Operating File (SOF). The command cards are described in Section 2.7. When automated multi-stage substructuring is not included, then the Case Control Deck begins with the first card following CEND and ends with the BEGIN BULK card. It defines the subcase structure for the problem, makes selections from the Bulk Data Deck, and makes output requests for printing, punching and plotting. A general discussion of the functions of the Case Control Deck and a detailed description of the cards used in this deck are given in Section 2.3. The special requirements of the Case Control Deck for each rigid format are discussed in Section 3. The Bulk Data Deck begins with the card following BEGIN BULK and ends with the card preceding ENDDATA. It contains all of the details of the structural model and the conditions for the solution. A detailed description of all of the bulk data cards is given in Section 2.4. The BEGIN BULK and ENDDATA cards must be present even though no new bulk data is being introduced into the problem or all of the bulk data is coming from an alternate source, such as User's Master File or user generated input. The format of the BEGIN BULK card is free field. The ENDDATA card must begin in column 1 or 2. Generally speaking, only one structural model can be defined in the Bulk Data Deck. However, some of the bulk data, such as cards associated with loading conditions, constraints, direct input matrices, transfer functions, and thermal fields may exist in multiple sets. All types of data that are available in multiple sets are discussed in Section 2.3.1. Only sets selected in the Case Control Deck will be used in any particular solution. If the INPUT module is employed, one or two additional data cards are required following the ENDDATA card. For specific cases, see Section 2.6. Comment cards may be inserted in any of the parts of the NASTRAN Data Deck. These cards are identified by a $ in column one. Columns 2-72 may contain any desired text. 2.0.2 Usage of Secondary Input Files Via the READFILE Capability The READFILE capability allows you to logically read data from one or more external, secondary, card-image files by referencing these files from the NASTRAN primary input file. (The primary input file is the file that is assigned to FORTRAN unit 5 from which NASTRAN normally reads the input data.) 2.0.2.1 Description of the Capability The format of the READFILE card is as follows: READFILE name where "name" refers to an external, secondary, card-image file. When a READFILE card is encountered in the primary input file, NASTRAN reads all subsequent input data from the specified secondary file until an end-of-file condition or an ENDDATA card is encountered on that file, whichever occurs earlier. If an end-of-file condition is encountered on the secondary file before an ENDDATA card is detected, the program resumes reading of the input data from the primary input file and the process continues. If an ENDDATA card is encountered on the secondary file before an end-of-file condition is detected, obviously the program will not read any more input data from either the secondary file or the primary file, unless the INPUT module is being used, in which case the data required for the INPUT module will be read from the primary input file (see Item 5 in the following discussion). The flexibilities of the READFILE cards are as follows: 1. The format of the READFILE card is free-field. The only restrictions are that there should be at least one space between the word READFILE and the "name" of the secondary file and that the card cannot extend beyond one card image (80 columns). 2. Nested READFILE cards are allowed. That is, READFILE cards are permitted in both the NASTRAN primary and secondary input files. 3. If input cards from the READFILE file are not to be echoed, you can add the option NOPRINT after READFILE. 4. READFILE cards may be used anywhere in the Executive Control, Substructure Control, Case Control and Bulk Data Decks. (The NASTRAN card can also be specified in a secondary file.) 5. If the INPUT module is used, the data required for that module must appear in the primary input file. 6. On the CDC and DEC VAX versions, "name" may be any valid file name (see Examples 1 and 2 below). On the IBM version, "name" may be either a sequential file name (see Example 3) or a member name of a PDS (see Example 4). On the UNIVAC, "name" may be any file name (see Example 5) or file.element name (see Example 6). 2.0.2.2 Examples of READFILE Capability Usage The following examples illustrate several ways in which the READFILE capability can be used. These examples also illustrate the usage of this capability on all four versions of NASTRAN. Example 1 This example illustrates the usage of the READFILE capability for reading in the restart dictionary in a checkpoint/restart run on the CDC version. (This example assumes that the output on the punch file in the checkpoint run contains only the restart dictionary.) /JOB . . . COPYBR,INPUT,INPUT1. COPYBR,INPUT,INPUT2. REWIND,INPUT1,INPUT2. * RUN CHECKPOINT JOB LINK1,INPUT1,OUTPUT,PUNCH1,UT1. * MANIPULATE FILES PACK,PUNCH1. REWIND,PUNCH1. RETURN,POOL. RENAME,OPTP=NPTP. * RUN RESTART JOB LINK1,INPUT2,OUTPUT,PUNCH2,UT1. /EOR NASTRAN FILES=NPTP . . (Data for Checkpoint Job) . /EOR NASTRAN FILES=OPTP . $ READ THE RESTART DICTIONARY READFILE PUNCH1 . CEND . . (Data for Restart Job) . /EOF Example 2 This example illustrates the use of multiple READFILE cards on the DEC VAX version. ID .... . . . BEGIN BULK READFILE DDB1:[NASDIR]FUSELAGE.DT READFILE DDB1:[NASDIR]WINGS.DT READFILE,NOPRINT,DDB1:[NASDIR]TAIL.DT ENDDATA The directory and device names need not be specified if default values are to be used. Example 3 In this example, the READFILE capability is used to access a sequential file on the IBM version. The format for reading a sequential file is to include the DDname of the file on the READFILE card as shown below. // EXEC NASTRAN //NS.CARDS DD DSN=USER.JOB1EXEC.DATA,DISP=SHR //NS.SYSIN DD * ID .... . . . READFILE CARDS /* An ENDDATA card is not used in the Bulk Data Deck here as it is assumed to be included in the data on the sequential file. Example 4 In this example, the READFILE capability is used to read a member of a PDS on the IBM version. The format for reading a member of a PDS is to include the DDname of the PDS with the member name in parentheses immediately following it as shown below. // EXEC NASTRAN //NS.CARDS DD DSN=USER.PDS.DATA,DISP=SHR //NS.SYSIN DD * ID .... . . . READFILE CARDS(JOB2EXEC) . . . /* The member JOB2EXEC is read from the PDS USER.PDS.DATA. Example 5 In this example, a file name on the UNIVAC is referenced by a READFILE card, and the input cards are not to be printed. @ASG,A CARDS*UN1EXEC. @XQT *NASTRAN.L1NK1 ID .... READFILE(NOPRINT)CARDS*UN1EXEC. . . . The file UN1EXEC with the qualifier CARDS will be read immediately after the ID card. Example 6 In this example, a file.element name on the UNIVAC is referenced by a READFILE card. @ASG,A CARDS*UN2. @XQT *NASTRAN.L1NK1 ID .... READFILE CARDS*UN2.EXEC . . . The element EXEC of file UN2 with the qualifier CARDS is read immediately after the ID card. =PAGE= 2.1 THE NASTRAN CARD Many of the important operational parameters used in NASTRAN, such as the buffer size and the machine configuration, are contained in the /SYSTEM/ COMMON block. These and other operational parameters are initially assigned values by the program. However, the program does provide a means by which the default values initially set for some of these operational parameters can be redefined by you at execution time. The card that provides this capability is called the NASTRAN card. The NASTRAN card is optional, but, if used, it must be the first card of the NASTRAN data deck; that is, it must precede the Executive Control Deck. The NASTRAN card is a free-field card (similar to the cards in the Executive and Case Control Decks). The format of the card is as follows: NASTRAN keyword1 = value, keyword2 = value, ... The list of applicable and acceptable keywords is as follows: 1. BANDIT - Changes the 77th word in /SYSTEM/. This parameter specifies whether the BANDIT operations in NASTRAN are to be performed or not. If BANDIT = 0 (the default), the BANDIT operations are performed if there are no input data errors. If BANDIT = -1, the BANDIT operations are skipped unconditionally. 2. BANDTCRI - Manipulates the 77th word in /SYSTEM/. This parameter specifies the criterion for evaluation in the BANDIT operations. Acceptable values and their meanings are shown below. (See Reference 1 for the definitions of the terms used here.) BANDTCRI value Criterion for evaluation (characteristic of matrix selected for reduction) 1 (default) RMS (root mean square) wavefront 2 Bandwidth 3 Profile 4 Maximum wavefront 3. BANDTDEP - Manipulates the 77th word in /SYSTEM/. This parameter is meaningful only when the BANDTMPC parameter is set to 1 or 2. It indicates whether the dependent grid points specified by multipoint constraints (MPCs) and/or rigid elements are to be included (BANDTDEP = 0, the default) or are to be excluded (BANDTDEP = 1) from consideration in the BANDIT computations. 4. BANDTDIM - Manipulates the 77th word in /SYSTEM/. This parameter defines the dimension (in number of words) of a scratch array used in the BANDIT computations with the GPS method. Any one of the integers 1 to 9 may be specified, resulting in a dimension of words for the scratch array equal to m*10 percent of the total number of grid points used in the problem (where m = the value specified for this parameter). The default of m is 1, or 150 words, whichever gives the larger number. 5. BANDTMPC - Manipulates the 77th word in /SYSTEM/. This parameter indicates whether multipoint constraints (MPCs) and/or rigid elements are to be considered in the BANDIT computations. Acceptable values and their meanings are shown below. BANDTMPC value Meaning 0 (default) Do not consider MPCs or rigid elements in the BANDIT computations. 1 Consider only rigid elements in the BANDIT computations. 2 Consider both MPCs and rigid elements in the BANDIT computations. As noted in Reference 1, it should be emphasized here that only in rare cases would it make sense to let BANDIT process MPCs and rigid elements. The main reasons for this are that the BANDIT computations do not consider individual degrees of freedom and, in addition, cannot distinguish one MPC set from another. 6. BANDTMTH - Manipulates the 77th word in /SYSTEM/. This parameter specifies the method to be used by the BANDIT operations for the resequencing of grid points. (See Reference 1 for details of these methods.) Acceptable values and their meanings are shown below. BANDTMTH value Method(s) to be used in the BANDIT operations 1 Cuthill-McKee method 2 Cuthill-McKee method and Gibbs-Poole- Stockmeyer method 3 (default) Gibbs-Poole-Stockmeyer method 7. BANDTPCH - Manipulates the 77th word in /SYSTEM/. This parameter specifies the punching of the SEQGP cards generated by the BANDIT procedure. Acceptable values and their meanings are given below. BANDTPCH value Meaning 0 (default) Do not punch the SEQGP cards generated by BANDIT and let the NASTRAN job continue normally. 1 Punch out the SEQGP cards generated by BANDIT and terminate the NASTRAN job. 8. BANDTRUN - Manipulates the 77th word in /SYSTEM/. This parameter specifies the conditions under which the BANDIT operations in NASTRAN are to be performed. A value of 0 (the default) indicates that the BANDIT computations are to be performed if there are no input data errors and you have not already included one or more SEQGP cards in the Bulk Data Deck. A value of 1 specifies that the BANDIT operations are to be performed if there are no input data errors and new SEQGP cards are to be generated unconditionally to replace any old SEQGP cards that may have been initially included in your input. 9. BUFFSIZE - Changes the first word in /SYSTEM/. This word defines the number of words in a GINO (general purpose input/output routines used in NASTRAN) buffer. The default values are as follows: Machine GINO Buffer Size (words) CDC 1042 IBM 1604 UNIVAC 871 DEC VAX 1408 The desired value at a particular installation may be different from the default value. In any event, related runs such as restarts must use the same BUFFSIZE for all parts of the run. 10. BULKDATA - Changes the 77th word in /SYSTEM/. This parameter specifies whether NASTRAN is to run normally (BULKDATA = 0, the default) or if NASTRAN is to terminate after the Preface (or Link 1) operations (BULKDATA not equal to 0). BULKDATA = -3 (a special option) indicates the NASTRAN 15 GINO timing constants are to be calculated, printed, and the NASTRAN job terminated. Important note about the BANDIT, BANDTxxx, and BULKDATA Parameters Note that the BANDIT parameter, the BANDTxxx parameters (as a group) and the BULKDATA parameter all correspond to the same word (the 77th word) in the /SYSTEM/ COMMON block. Hence, these parameters are mutually exclusive. That is, you can specify either the BANDIT parameter, any one or more of the BANDTxxx parameters, or the BULKDATA parameter, but you cannot specify more than one of these three parameters. 11. CONFIG - This keyword is no longer applicable. The constants required for use in the timing equations are now automatically computed in every NASTRAN run. 12. DRUM - Changes the 34th word in /SYSTEM/. This word defines the drum allocation of dynamic assigns on the UNIVAC version. The default is DRUM = 1. This causes dynamic assigns for all units not assigned by you to be of the following form: @ASG,T XX,F/2/POS/30. This assign card allows a maximum of 1,920 tracks, or approximately 3,500,000 words for each file. The F refers to a mass storage device. POS requests that 64 contiguous tracks be assigned at once. The value 30 causes the run to be terminated if more than 30 x 64 tracks of data are written on any one file. The drum allocation of dynamic assigns can be changed from POS (positions) to TRK (tracks) by setting DRUM = 2. This results in files being assigned in the following form: @ASG,T XX,F//TRK/1360. TRK requests that 64 sectors (28 words/sector) be assigned at one time. 13. FILES - Establishes the specified NASTRAN files as executive files. The files that may be specified are POOL, NPTP, OPTP, NUMF, PLT1, PLT2, INPT, INP1, INP2,...INP9. Multiple file names must be specified by enclosing them in parentheses, such as FILES = (PLT1, NPTP). If an executive file is assigned to tape rather than disk, then it need not be specified with the FILES parameter. The FILES parameter, if used, must be the last keyword on the NASTRAN card. 14. HICORE - Changes the 31st word in /SYSTEM/. This word defines the amount of core (in decimal words) available to you on the UNIVAC 1100 series machines. The default is 85K decimal words. The ability to increase this value may be installation limited. 15. LOGFL - Changes the 7th word in /SYSTEM/. Default is 95 (UNIVAC only). 16. MAXFILES - Changes the 29th word in /SYSTEM/. This word defines the maximum number of files to be placed in COMMON /XFIAT/ by subroutine GNFIAT. The default value is 35. 17. MAXOPEN - Changes the 30th word in /SYSTEM/. This word defines the maximum number of files that may be open at any one time in the program. The default value is 16. 18. MODCOM(I) - Changes the (56 + I)th word (1 <= I < 9) in /SYSTEM/. Defines one of the words in a nine-word array. Only MODCOM(1) is supported. If MODCOM(1) = 1, diagnostic statistics from subroutine SDCOMP are printed. The default is MODCOM(1) = 0, resulting in no diagnostic prints from SDCOMP. 19. NLINES - Changes the 9th word in /SYSTEM/. This word defines the number of data lines per printed page. The smallest acceptable value is 10. The default value is 42 for the CDC version, 55 for the IBM version, 55 for the DEC VAX version, and 55 for the UNIVAC version. Alternatively, the number of data lines per printed page can also be defined by means of the LINE card in the Case Control Deck (see Section 2.3). 20. PLOTOPT - Defines the action to be taken by NASTRAN in the case where plots are requested and error(s) exists in the Bulk Data Deck. The default is zero (PLOTOPT = 0) if the PLT2 file is not assigned in a NASTRAN job and one (PLOTOPT = 1) if the PLT2 file has been assigned. The plot options (0 through 5) are listed below: PLOTOPT BULK DATA PLOT COMMANDS NASTRAN ACTION 0 no error no error executes all links, no plots no error error stops after link1 data check error err or no err stops after link1 data check 1 no error no error executes all links, and plots no error error stops after link1 data check error err or no err stops after link1 data check 2 err/no err no error stops after undef. plots in link2 err/no err error stops after link1 data check 3 err/no err err or no err attempts to plot; stops in link2 4 no error no error executes all links, and plots no error error attempts to plot; stops in link2 error no error stops after undef. plots in link2 error error stops after link1 data check 5 no error no error executes all links, and plots no error error executes all links, but no plots error no error stops after undef. plots in link2 error error stops after link1 data check 21. STST - Changes the 70th word in /SYSTEM/. This word defines the singularity tolerance for use in the EMA module. The default value is 0.01. The singularities remaining are written onto the GPST data block output from the EMA module. 22. SYSTEM(J) - Changes the Jth word (1 <= J <= 100) in /SYSTEM/. This is the general form of defining any word in /SYSTEM/. For some values of J, SYSTEM(J) has equivalent keywords. For instance, SYSTEM(1) and BUFFSIZE are equivalent and SYSTEM(9) and NLINES are equivalent. The contents of /SYSTEM/ are described fully in Section 2.4.1.8 of the Programmer's Manual. 23. TITLEOPT - Defines the option for obtaining the title page in the NASTRAN output. The values of this keyword and their meaning are as follows: TITLEOPT Meaning <0 Print a short title page. 0 Do not print any title page. 1 Print one copy of the full title page. 2 (default) Print two copies of the full title page. 3 Print a one-line comment (which you can modify by updating subroutine TTLPGE) followed by the short title items on the same page. 4 Read another card immediately following the NASTRAN card, print its contents on one line and follow it by the short title items on the same page. >4 Do not print any title page (same as TITLEOPT = 0). -2 (UNIVAC only) Print a short title page and suppress the alternate logfile assignment which is not allowed in real-time environment. As can be seen, when TITLEOPT = 4 is specified on the NASTRAN card, you must supply another card immediately following the NASTRAN card to be read by the program. You can therefore use this feature to print one-line individual comments (along with the short title) for individual runs. Examples Following are some examples of the use of the NASTRAN card. Example 1 NASTRAN BUFFSIZE = 900 The above card changes the 1st word of /SYSTEM/. Example 2 NASTRAN NLINES = 40 The above card changes the 9th word of /SYSTEM/. Example 3 NASTRAN TITLEOPT = -1, FILES = (PLT1, NPTP) The above card requests a short title page and establishes the PLT1 and NPTP files as executive files. Example 4 NASTRAN SYSTEM(14) = 30000, SYSTEM(79) = 16384 The above card changes the 14th and 79th words in /SYSTEM/. SYSTEM(14) = 30000 changes the maximum number of output lines from 20000 (default) to 30000. (See the description of the MAXLINES card in Section 2.3.) SYSTEM(79) = 16384 turns on DIAG 5 thereby requesting the tracing of GINO OPEN/CLOSE operations. (See the description of the DIAG card in Section 2.2.) Example 5 NASTRAN BANDTPCH = 1, BANDTRUN = 1 The above card requests the punching of the new SEQGP cards unconditionally generated by the BANDIT procedure and the subsequent termination of the NASTRAN job. Example 6 NASTRAN BANDIT = -1 The above card requests the unconditional skipping of the BANDIT operations. Example 7 NASTRAN SYSTEM(93) = 1 The above card requests that sweep aerodynamic effects are to be included In the modal flutter analysis of an axial-flow turbomachine or an advanced turbopropeller. (See Section 1.20.) REFERENCE 1. Everstine, G. C., BANDIT User's Guide, COSMIC Program No. DOD-00033, May 1978. =PAGE= 2.2 EXECUTIVE CONTROL DECK 2.2.1 Control Selection The format of the Executive Control cards is free field. The name of the operation (for example, CHKPNT) is separated from the operand by one or more blanks. The fields in the operand are separated by commas, and may be up to 8 integers or alphanumeric as indicated in the control card descriptions. The first character of an alphanumeric field must be alphabetic, followed by up to 7 additional alphanumeric characters. Blank characters may be placed adjacent to separating commas if desired. The individual cards are described in Section 2.3.3 and examples follow in Section 2.2.2. The following Executive Control cards are mandatory: 1. APP - selects a Rigid Format approach or a user provided Direct Matrix Abstraction Program (DMAP). 2. CEND - defines the end of the Executive Control deck. 3. ID - defines the beginning of the Executive Control deck. 4. TIME - defines the maximum time in minutes allotted to the execution of the NASTRAN program. The following Executive Control cards are required under certain circumstances: 1. BEGIN$ - defines the beginning of user provided DMAP statements. 2. END$ - defines the end of user provided DMAP statements. 3. ENDALTER - defines the end of user provided changes to a Rigid Format. 4. RESTART - defines the beginning of a restart dictionary. 5. SOL - selects the solution number of a Rigid Format. 6. UMF - selects a data deck from a User Master File. 7. UMFEDIT - controls execution as a UMF editor. The following Executive Control cards are optional: 1. ALTER - defines the Rigid Format statement(s) at which you make alterations. 2. CHKPNT - requests the execution to be checkpointed. 3. DIAG - requests diagnostic output to be provided or operations to be effected. 4. NUMF - requests a User Master File to be created. 5. $ - defines a non-executable comment. 2.2.2 Executive Control Deck Examples 1. Cold start, no checkpoint, rigid format, diagnostic output. ID MYNAME, BRIDGE23 APP DISPLACEMENT SOL 2,0 TIME 5 DIAG 1,2 CEND 2. Cold start, checkpoint, rigid format. ID PERSONZZ, SPACECFT CHKPNT YES APP DISPLACEMENT SOL 1,3 TIME 15 CEND 3. Restart, no checkpoint, rigid format. The restart dictionary indicated by the double line bracket is automatically punched on previous run in which the CHKPNT option was selected by you. ID JOESHMOE, PROJECTX RESTART PERSONZZ, SPACECFT, 05/13/67, 18936, 1, XVPS, FLAGS=0, REEL=l, FILE=6 2, REENTER AT DMAP SEQUENCE NUMBER 7 3, GPL, FLAGS=0, REEL=1, FILE=7 . . . $ END OF CHECKPOINT DICTIONARY APP DISPLACEMENT SOL 3,3 TIME 10 CEND 4. Cold start, no checkpoint, DMAP. User-written DMAP program is indicated by double line brackets. ID IAM007, TRYIT APP DMAP BEGIN $ DMAP statements go here END $ TIME 8 CEND 5. Restart, checkpoint, altered rigid format, diagnostic output. ID BEAM, FIXED RESTART BEAM, FREE, 05/09/68, 77400, 1, XVPS, FLAGS=0, REEL=1, FILE=6 2, REENTER AT DMAP SEQUENCE NUMBER 7 3, GPL, FLAGS=0, REEL=1, FILE=7 . . . $ END OF CHECKPOINT DICTIONARY CHKPNT YES DIAG 2,4 APP DISPLACEMENT SOL 3,3 TIME 15 ALTER 20 $ MATPRN KGGX,,,,// $ TABPT GPST,,,,// $ ENDALTER CEND 2.2.3 Executive Control Card Descriptions The format of the Executive Control cards is free-field. In presenting general formats for each card embodying all options, the following conventions are used: 1. Upper-case letters and parentheses must be punched as shown. 2. Lower-case letters indicate that a substitution must be made. 3. Double brackets indicate that a choice of contents is mandatory. 4. Brackets contain an option that may be omitted or included by you. 5. First listed options or values are the default values. 6. Physical card consists of information punched in columns 1 through 72 of a card. Most Executive Control cards are limited to a single physical card. 7. Logical card may have more than 72 columns with the use of continuation cards. A continuation card is honored by ending the preceding card with a comma. =PAGE= ALTER - DMAP Sequence Alteration Request Description Requests Direct Matrix Abstraction Program (DMAP) sequence of a Rigid Format to be changed by additions, deletions, or substitutions. Format and Example(s) ALTER K1 [,K2] $ ALTER 22 $ ALTER 5,5 $ ALTER 38,45 $ ALTER 25,19 $ Option Meaning K1 only DMAP statement number (Integer > 0) after which DMAP instructions following the ALTER card to be inserted. K1 and K2 DMAP statement numbers (Integer > 0) identifying a single DMAP statement or a range of DMAP statements to be deleted and replaced by any DMAP instructions that may follow the ALTER card. See remark 5. Remarks 1. See the descriptions of the INSERT and DELETE cards for alternateways of specifying DMAP sequence alteration requests. 2. The DMAP statements referenced on ALTER, INSERT and DELETE cards (either explicitly or implicitly, when a range is specified) must be referenced in ascending order of their occurrence in the rigid format DMAP. 3. See Volume 2, Sections 2, 3 and 4 for the listings of all rigid format DMAP sequences. 4. See Volume 2, Section 1.1.5 for the manner in which DMAP alters are handled restarts. 5. If both K1 and K2 are specified and K1 is not equal to K2, a range of DMAP statements is implied and either of them can be less than the other. If K1 = K2, a single DMAP statement is implied. =PAGE= APP - Rigid Format or DMAP Declaration Description Selects a Rigid Format approach or a user provided Direct Matrix Abstraction Program (DMAP). Format and Example(s) DISPLACEMENT (Default) DISPLACEMENT, SUBS APP HEAT AERO DMAP DMAP, SUBS APP HEAT APP DMAP Option Meaning DISPLACEMENT Indicates one of the Displacement Approach rigid formats. DISPLACEMENT, SUBS Indicates automated multi-stage substructuring with one of the Displacement Approach rigid formats. HEAT Indicates one of the heat transfer approach rigid formats. AERO Indicates one of the aeroelastic approach rigid formats. DMAP Indicates Direct Matrix Abstraction Program (DMAP) approach. DMAP, SUBS Indicates Direct Matrix Abstraction Program (DMAP) approach which includes automated multi-stage substructuring modules. Remarks 1. Use of this card is recommended. Default is DISPLACEMENT. =PAGE= BEGIN - DMAP Sequence Initiation Description Defines the beginning of a Direct Matrix Abstraction Program (DMAP) sequence. Format and Example(s) BEGIN $ BEGIN OPTIONAL NAME OF DMAP SEQUENCE $ Remarks 1. This card is required at the beginning of a DMAP sequence. It must be the first card. The statement is included at the beginning of the DMAP sequence defining a Rigid Format. You must provide the card as part of a user supplied DMAP sequence when using the DMAP approach. 2. This statement, like all DMAP statements, is terminated with the $ character delimiter. 3. This statement is a non-executable instruction for the DMAP compiler. (See Section 5.7 for an alternate module XDMAP.) 4. For specific instructions related to DMAP usage, see Section 5.2. =PAGE= CEND - Executive Control Deck Terminator Description Defines the end of the Executive Control Deck. Format and Example(s) CEND Remarks 1. This card is mandatory and must be last in the Executive Control Deck. =PAGE= CHKPNT - Checkpoint File Request Description Requests data blocks to be written to a checkpoint file for a later restart. Format and Example(s) NO CHKPNT YES CHKPNT YES Remarks 1. This card is optional but when it is used, the checkpoint file must be made available by you via operating system control cards. 2. The restart dictionary deck is automatically punched for use in a later restart execution. =PAGE= DELETE - DMAP SEQUENCE ALTERATION REQUEST Description Requests the Direct Matrix Abstraction Program (DMAP) sequence of a rigid format to be changed by deletions or substitutions. Format and Example(s) DELETE specmod [ , specmod ] $ 1 2 where specmod has the following general form: i nommod [ ( r ) ] [ , n ] i i i DELETE SSG1 $ DELETE EMA(2) $ DELETE READ,1 $ DELETE SDR2(2),-1 $ DELETE SSG3,REPT $ DELETE GP2,GP3,-1 $ DELETE SMA3,1,TA1,-1 $ DELETE REPT,2,REPT,3 $ Option nommod Nominal module (Alphanumeric value, no default). See Remark 5. i . th r Occurrence flag (Integer > 0, default = 1). The r i i occurrence of the nominal module in the rigid format DMAP sequence (counting from the beginning of the DMAP sequence) defines the reference module. See Remark 6. n Offset flag (Integer, default = 0). The DMAP module that is i offset from the reference module by n DMAP statements in the . i rigid format DMAP sequence defines the specified module. See Remark 7. specmod only Specified module defined as per the above scheme that is to be 1 deleted and replaced by any DMAP instructions that may follow the DELETE card. specmod and Range of specified modules defined as per the above scheme 1 specmod that are to be deleted and replaced by any DMAP instructions 2 that may follow the DELETE card. See Remark 8. Remarks 1. See the description of the ALTER card for an alternate way of specifying DMAP sequence deletions and substitutions. 2. The DMAP statements referenced on ALTER, INSERT and DELETE cards (either explicitly or implicitly, when a range is specified) must be referenced in ascending order of their occurrence in the rigid format DMAP. 3. See Volume 2, Sections 2, 3 and 4 for the listings of all rigid format DMAP sequences. 4. See Volume 2, Section 1.1.5 for the manner in which DMAP alters are handled in restarts. 5. The nominal module nommod must be a valid name of a DMAP module in the i rigid format DMAP sequence. 6. The default value of 1 for the occurrence flag r implies that the . i reference module is the first occurrence of the nominal module in the rigid format DMAP sequence. 7. The value of the offset flag n may be positive, negative or 0. A positive i value means that the specified module follows the reference module by n . i DMAP statements in the rigid format DMAP sequence. A negative value indicates that the specified module precedes the reference module by n . i DMAP statements in the DMAP sequence. A value of 0 (the default) implies that the reference module is the specified module. 8. If both specmod and specmod are specified, it implies a range of DMAP 1 2 statements and either of them can precede the other in the rigid format DMAP sequence. =PAGE= DIAG - Diagnostic Output and Operation Request Description Requests additional information to be printed out or requests executive operations to be performed. Format and Example(s) DIAG n , - L DIAG 14 DIAG 8,11,13,-6,-11 Option Meaning n Type of diagnostic requested (Integer > 0). Allowable values and their meanings are given in the following table. See Remarks 1 and 2. L Link number in which specified types of diagnostics are requested (1 <= Integer <= 15). See Remarks 2 and 7. -L See Remark 7 below. n Diagnostic 1 Dump memory when fatal message is generated. 2 Print File Allocation Table (FIAT) following each call to the File Allocator. 3 Print status of the Data Pool Dictionary (DPD) following each call to the Data Pool Housekeeper. 4 Print the Operation Sequence Control Array (OSCAR). See Remarks 3 and 7. 5 Print BEGIN time on-line for each functional module. 6 Print END time on-line for each functional module. 7 Print eigenvalue extraction diagnostics for real and complex determinant methods. 8 Print matrix and table data block trailers as they are generated. 9 Suppress echo of checkpoint dictionary. See Remark 7. 10 Use alternate nonlinear loading in TRD. Replace N(n+1) by 1/3 (N(n+1) + N(n) + N(n-1)). See Section 11.4 of the Theoretical Manual. 11 Print all active row and column possibilities for decomposition algorithms. 12 Print eigenvalue extraction diagnostics for complex inverse power or FEER methods. 13 Print open core length. 14* Print the DMAP sequence that is compiled (NASTRAN SOURCE PROGRAM COMPILATION). See Remarks 3, 4, 5, and 7. 15 Trace GINO OPEN/CLOSE operations. 16 Trace real inverse power eigenvalue extraction operations or eigensolution diagnostics for FEER tridiagonalization. 17* Punch the DMAP sequence that is compiled. See Remarks 3, 6, and 7. 18 Trace Heat Transfer iterations (APP HEAT) or print grid point ID conversions from SET2 card (APP AERO). 19 Print data for MPYAD method selection. 20 Generate debug printout (for NASTRAN programmers who include CALL BUG in their subroutines) or set job termination flag. See Remark 6. 21* Print a list of degrees of freedom. For each degree of freedom, the displacement sets to which it belongs are identified. See Remark 6. 22* Print the contents of various displacement sets. For each set, a list of degrees of freedom belonging to that set is given. See Remark 6. 23 Print the DMAP ALTERs generated during Automated Multi-stage Substructuring. See Remark 7. 24* Punch the DMAP ALTERs generated during Automated Multi-stage Substructuring. See Remarks 6 and 7. 25* Print a cross reference listing of the DMAP program that is compiled. See Remarks 3, 4, 6, and 7. 26 Do not limit eigensolutions to number requested on the EIGR bulk data card (for real inverse power and FEER methods only), and revert plot FIND default to APR 1984 version. 27 Dump the Input File Processor (IFP) table. 28* Punch the FORTRAN code for the link specification table (subroutine XLNKDD). See Remarks 6, 7, and 8. 29 Process the link specification table update deck. See Remarks 7 and 8. 30* Punch FORTRAN alters to the XSEMi decks (i set via DIAG 1-15). See Remarks 6, 7, and 8. 31 Print the link specification table and the module properties list data. See Remarks 7 and 8. 32 Print a list of degrees of freedom (including fluid point definitions). For each degree of freedom, the displacements sets to which it belongs are identified. 33 Print the contents of various displacement sets. For each set, a list of degrees of freedom (including fluid point definitions) belonging to that set is given. 34 Skip property ID, material ID, and coordinate ID cross reference checking in the Preface of Link 1. 35 Print machine hardware timing constants. (See NASTRAN BULKDATA = -3 option.) 36* Print internal and SIL (Scalar Index List) numbers for grid and scalar points vs. their external numbers. See Remark 6. 37 Suppress eigenvalue lower roots message (for real inverse power and FEER methods only). 38 Print element processing information during element matrix generation phase. 39 Print trace of eigenvalues for the PK method in flutter analysis. 40 Turn on diagnostic when layer composite material is used in PCOMP or PCOMPi cards. 41 Reserved for future use. 42 Invoke NASTRAN former input card processors, XSORT and RCARD, to process bulk data cards. (Much slower processors.) 43 Use FEER method from previous 1994 Release. 44 Use Symmetric Decomposition from previous 1994 Release. 45 Request diagnostic information in LOG file for Symmetric Decomposition installed in 1995 Release. 46 Use Forward/Backward Substitution from previous 1994 Release. 47 Request diagnostic information in LOG file for Forward/ Backward Substitution installed in 1995 Release. 48* Print NASTRAN release news and the DIAG table. See Remark 6. 49 Use Matrix Multiply/Add methods from previous 1994 Release. 50 Eliminate the use of the Vector Facility (IBM MVS only) Remarks 1. One or more diagnostics may be chosen from the above table. 2. Multiple options may be selected by using multiple integers separated by commas or by using multiple DIAG cards. 3. See the description of the XDMAP card in Section 5.7 for alternate means of controlling the DMAP compiler options. 4. DIAG 14 is automatically turned on when DIAG 25 is requested. 5. The DMAP compiler default is set to LIST for restart runs and for runs using the DMAP approach (APP DMAP) or the substructure capability (APP DISP,SUBS). The default is also set to LIST when the REF option on the XDMAP card is specified. The default is set to NOLIST for all other cases. (See the description of the XDMAP card in Section 5.7.) There is, therefore, no need to use the DIAG 14 option in the former cases where LIST is the default; instead, the NOLIST option on the XDMAP card can be used in these cases to suppress the automatic listing of the compiled DMAP program. 6. Use of any one or more of DIAGs 17, 21, 22, 24, 25, 28, 30, 36 and 48, (marked by *) in conjunction with DIAG 20, will result in job termination. 7. Use of DIAGs of the form DIAG -L, n1, n2, n3 will cause the specified n1, n2, and n3 DIAGs to be turned on only in Link L (L = 1, 2, ..., 15). (DIAGs 4, 9, 14, 17, 23-25, and 28-31 are valid and meaningful only in the Preface (Link 1) and are not affected by this usage.) Thus, for example, the use of DIAG 4, 8, 15, -2, -11 will cause DIAG 4 to be turned on normally (for use in Link 1), and DIAGs 8 and 15 to be turned on only in Links 2 and 11. Similarly, the use of DIAG -1, 2, 8, -6 will cause DIAGs 2 and 8 to be turned on only in Links 1 and 6. 8. Refer to Section 6.11.3 of the Programmer's Manual for the description and usage of DIAGs 28 through 31. =PAGE= END - DMAP Sequence Terminator Description Defines the end of a Direct Matrix Abstraction Program (DMAP) sequence. Format and Example(s) END$ Remarks 1. This card is required at the end of a DMAP sequence. It must be the last card. The statement is included at the end of the DMAP sequence defining a Rigid Format. You must provide the card as part of a user supplied DMAP sequence when using the DMAP approach. 2. This statement, like all DMAP statements, is terminated with the $ character delimiter. 3. For specific instructions related to DMAP usage, see Section 5.2. 4. The END $ statement cannot be altered into a Rigid Format at intermediate steps. To schedule an early termination, use either the EXIT $ statement or the JUMP, FINIS $ statement. =PAGE= ENDALTER - Rigid Format DMAP Alter Terminator Description Defines the end of a user supplied alter to a Rigid Format Direct Matrix Abstraction Program (DMAP) sequence. Format and Example(s) ENDALTER Remarks 1. This card is required when an alter to a Rigid Format DMAP sequence is supplied. 2. The card is required only once but must be the last card for all alters. 3. For specific instructions related to DMAP usage, see Section 5.2. =PAGE= ID - Job Identification Description Provides an alphanumeric identification of the job and establishes the beginning of the Executive Control Deck. Format and Example(s) ID A1,A2 ID A1234567,B7654321 Option Meaning A1 Any alphanumeric field chosen by you for identification. A2 Any alphanumeric field chosen by you for identification. Remarks 1. This card is mandatory and must be first in the Executive Control Deck. 2. The ID used during a checkpoint is automatically written to the checkpoint file and is placed on the restart card. 3. The first character of each field must be alphabetic and may be followed by up to seven alphanumeric characters. =PAGE= INSERT - DMAP SEQUENCE ALTERATION REQUEST Description Requests the Direct Matrix Abstraction Program (DMAP) sequence of a rigid format to be changed by additions. Format and Example(s) INSERT specmod $ where specmod has the following general form: nommod [ ( r ) ] [ , n ] INSERT GP4 $ INSERT EMA(2) $ INSERT READ,1 $ INSERT SDR2(2),-1 $ Option nommod Nominal module (Alphanumeric value, no default). See Remark 5. . th r Occurrence flag (Integer > 0, default = 1). The r occurrence of the nominal module in the rigid format DMAP sequence (counting from the beginning of the DMAP sequence) defines the reference module. See Remark 6. n Offset flag (Integer, default = 0). The DMAP module that is offset from the reference module by n DMAP statements in the rigid format DMAP sequence defines the specified module. See Remark 7. specmod Specified module defined as per the above scheme after which DMAP statements following the INSERT card are to be inserted. Remarks 1. See the description of the ALTER card for an alternate way of specifying DMAP sequence additions. 2. The DMAP statements referenced on ALTER, INSERT and DELETE cards (either explicitly or implicitly, when a range is specified) must be referenced in ascending order of their occurrence in the rigid format DMAP. 3. See Volume 2, Sections 2, 3 and 4 for the listings of all rigid format DMAP sequences. 4. See Volume 2, Section 1.1.5 for the manner in which DMAP alters are handled in restarts. 5. The nominal module nommod must be a valid name of a DMAP module in the rigid format DMAP sequence. 6. The default value of 1 for the occurrence flag r implies that the reference module is the first occurrence of the nominal module in the rigid format DMAP sequence. 7. The value of the offset flag n may be positive, negative or 0. A positive value means that the specified module follows the reference module by n DMAP statements in the rigid format DMAP sequence. A negative value indicates that the specified module precedes the reference module by n DMAP statements in the DMAP sequence. A value of 0 (the default) implies that the reference module is the specified module. =PAGE= NUMF - New User Master File Declaration Description Defines a bulk data deck to be placed on a User Master File. Format and Example(s) NUMF tid, pid NUMF 20012,6 NUMF 150,0 Option Meaning tid User specified tape identification number assigned during the creation of a User's Master File. pid User specified problem identification number assigned during the creation of a User's Master File. Remarks 1. This card is required when the UMF Editor is in the write mode. 2. For specific instructions related to the UMF, see Section 2.5. 3. A DIAG 42 card is needed for UMF operation. =PAGE= READFILE - Directive to Read Input Cards Description Defines a file that contains the input cards. Format and Example(s) Ŀ ,NOPRINT, READFILE ,NOPRINT [ = ] filename (NOPRINT) READFILE ABC READFILE NOPRINT ABC READFILE, NOPRINT ABC READFILE, NOPRINT, ABC READFILE (NOPRINT) ABC READFILE = ABC READFILE NOPRINT = ABC READFILE, NOPRINT = ABC READFILE (NOPRINT) = ABC Remarks 1. This card can be used in Executive, Case Control, and Bulk Data Decks. 2. Input cards are saved in the file named filename. 3. Comma, equal sign, and parentheses are not allowed in filename. 4. NOPRINT allows reading in the input cards, such as the DMAP alters or restart dictionary, without printing them out. The default is to print them. 5. Since this card can also be used in the Case Control Deck, an equal sign is also allowed. 6. Nested READFILE is allowed. 7. See Sections 2.0.2.1 and 2.0.2.2 for more information. =PAGE= RESTART - Restart Dictionary Initiator Description Defines the beginning of a restart dictionary deck when reading data blocks from the previously checkpointed file. Format and Example(s) RESTART A1,A2,K1/K2/K3,K4, RESTART A1234567,B7654321,03/01/76,32400, Option Meaning A1, A2 Fields taken from ID card of previously checkpointed problem. K1/K2/K3 Month/day/year that problem tape was generated. K4 Number of seconds after midnight at which XCSA begins execution. Remarks 1. The complete restart dictionary consists of this card followed by one card for each file checkpointed. The restart dictionary is automatically punched when operating in the checkpoint mode. All subsequent cards are continuations of this logical card. The entire dictionary deck is required for a restart. 2. Each continuation card begins with a sequence number. There are two types of continuation cards which are required and one that is not. Basic continuation card: NO,DATABLOCK,FLAG=Y,REEL=Z,FILE=W where: NO is the sequence number of the card. The entire dictionary must be in sequence by this number. DATABLOCK is the name of the data block referenced by this card. FLAG=Y defines the status of the data block where Y = 0 is the normal case and Y = 4 implies this data block is equivalenced to another data block. In this case (FLAG=4) the file number points to a previous data block which is the 'actual' copy of the data. REEL=Z specifies the reel number as the Problem Tape can be a multi-reel tape. Z = 1 is the normal case. FILE=W specifies the GINO (internal) file number of the data block on the Problem Tape. A zero value indicates the data block is purged. For example: 1,GPL,FLAGS=0,REEL=1,FILE=7 says data block GPL occupies file 7 of reel 1. 2,KGG,FLAGS=4,REEL=1,FILE=20 says KGG is equivalenced to the data block which occupies file 20. (Note that FLAGS=4 cards usually occur in at least pairs as the equivalenced operation is at least binary). 3,USETD,FLAGS=0,REEL=1,FILE=0 implies USETD is purged. Reentry point card: NO,REENTER AT DMAP SEQUENCE NUMBER N where: NO is the sequence number of the card. N is the sequence number associated with the DMAP instruction at which an unmodified restart will resume execution. There may be (generally, there are) several reentry cards in a restart dictionary, but only the last such card is operative. (See Sections 2.1.3 and 2.1.4 in Volume II.) End of dictionary card: $ END OF CHECKPOINT DICTIONARY This card is simply a comment card but is punched to signal the end of the dictionary for your convenience. The program does not need such a card. Terminations associated with non-NASTRAN failures (operator intervention, maximum time, etc.) will not have a card punched. 3. The previously checkpointed file must be made available by you via operating system control cards. 4. A restart card of the form RESTART A1,A2, 0/0/0, 0 can be used to read and process the Old Problem Tape (OPTP) of any previously checkpointed problem whose ID card fields match the A1,A2 fields on this card. 5. A restart using the checkpointed file and dictionary created on a previous release of NASTRAN may not always be successful. First, the BUFFSIZE (the number of words in a GINO buffer; see Section 2.1) used on the later release may be different from that used on the earlier release. Second, any changes that might have been made to the rigid formats may effectively destroy the validity of the restart dictionary. 6. See Sections 1.1.3, 1.1.4, and 1.1.5 in Volume II for a detailed discussion of restarts. =PAGE= SOL - Solution Number Selection Description Selects the solution number which defines the Rigid Format. Format and Example(s) SOL K1 , 0 A K2 ټ SOL 5 SOL 1,6 SOL 1,6,7,8,9 SOL STEADY STATE Option Meaning K1 Solution number of Rigid Format (see Remarks below and Volume II). K2 Subset numbers for solution K1, default value = 0. A Name of Rigid Format (see Remarks below). Remarks 1. When a Direct Matrix Abstraction Program (DMAP) is not used, the solution is recommended and the subset associated with a solution is optional. (Default is 1,0.) 2. For Displacement Approach Rigid Formats, the integer value for K1 or the alphabetic characters for A must be selected from the following table: K1 A 1 STATICS (Default) 2 INERTIA RELIEF 3 MODES or NORMAL MODES or REAL EIGENVALUES 4 DIFFERENTIAL STIFFNESS 5 BUCKLING 6 PIECEWISE LINEAR 7 DIRECT COMPLEX EIGENVALUES 8 DIRECT FREQUENCY RESPONSE 9 DIRECT TRANSIENT RESPONSE 10 MODAL COMPLEX EIGENVALUES 11 MODAL FREQUENCY RESPONSE 12 MODAL TRANSIENT RESPONSE 13 NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS 14 STATICS CYCLIC SYMMETRY 15 MODES CYCLIC SYMMETRY 16 STATIC AEROTHERMOELASTIC DESIGN/ANALYSIS 17 DYNAMIC DESIGN ANALYSIS METHOD 18 DIRECT FORCED VIBRATION ANALYSIS 19 MODAL FORCED VIBRATION ANALYSIS 3. For Heat Approach Rigid Formats, the integer value for K1 or the alphabetic characters for A must be selected from the following table: K1 A 1 STATICS 3 STEADY STATE 9 TRANSIENT 4. For Aero Approach Rigid Formats, the integer value for K1 or the alphabetic characters for A must be selected from the following table: K1 A 9 BLADE CYCLIC MODAL FLUTTER ANALYSIS 10 MODAL FLUTTER ANALYSIS 11 MODAL AEROELASTIC RESPONSE 5. Subsets cause a reduction in the number of statements in a Rigid Format. The use of a subset is optional. The integer value(s) may be selected from the following table: K2 Subset Numbers 1 Delete loop control. 2 Delete mode acceleration method of data recovery (modal transient and modal frequency response). 3 Combine subsets 1 and 2. 4 Check all structural and aerodynamic data without execution of the aeroelastic problem. 5 Check only the aerodynamic data without execution of the aeroelastic problem. 6 Not used. 7 Delete structure plotting and X-Y plotting. 8 Delete Grid Point Weight Generator. 9 Delete fully stressed design (static analysis). Multiple subsets may be selected by using multiple integers separated by commas. =PAGE= TIME - Maximum Execution Time Declaration Description Establishes the maximum time in minutes allotted to the execution of the NASTRAN program. Format and Example(s) TIME n TIME 5 TIME 60 Option Meaning n Integer number of minutes for execution. Remarks 1. Use of this card is recommended. (Default is 5.) 2. The time allotted via this card should be less than the time allotted the entire execution via operating system declaration. =PAGE= UMF - User Master File Selection Description Selects a bulk data deck stored on a User Master File. Format and Example(s) UMF tid, pid UMF 20012,6 UMF 150,0 Option Meaning tid Previously assigned tape identification number to access a Bulk Data Deck when using a User's Master File. pid Previously assigned problem identification number to access a Bulk Data Deck when using a User's Master File. Remarks 1. This card is required when the UMF Editor is in the read mode. 2. For specific instructions related to the UMF, see Section 2.5. 3. You must include a DIAG 42 card when UMF operation is requested. =PAGE= UMFEDIT - User Master File Editor Selection Description Selects the UMF Editor and limits execution to the Preface only. Format and Example(s) UMFEDIT Remarks 1. This card is required to use the UMF Editor in a read or write mode. 2. Selection of the UMF Editor automatically limits execution to the Preface only; that is, no computations may be performed when the Editor is used. 3. For specific instructions related to the UMF, see Section 2.5. 4. You must include a DIAG 42 card when UMF operation is requested. =PAGE= $ - Comment Indicator Description Declares the character string is a non-executable comment. Format and Example(s) $ any BCD string $ COMMENTS MAY APPEAR IN ANY COLUMNS $ SPECIAL CHARACTERS MAY BE INCLUDED ( ) + . / Remarks 1. The $ character is a delimiter which allows comments to be written on the same physical card. ================================================ FILE: um/INTR.TXT ================================================ =PAGE= The User's Manual is one of four manuals that constitute the documentation for NASTRAN, the other three being the Theoretical Manual, the Programmer's Manual, and the Demonstration Problem Manual. Although the User's Manual contains all of the information that is directly associated with the solution of problems with NASTRAN, you will find it desirable to refer to the other manuals for assistance in the solution of specific problems. The Theoretical Manual gives an excellent introduction to NASTRAN and presents developments of the analytical and numerical procedures that underlie the program. The User's Manual is instructive and encyclopedic in nature, but is restricted to those items related to the use of NASTRAN that are generally independent of the computing system being used. Computer-dependent topics and information that is required for the maintenance and modification of the program are treated in the Programmer's Manual. The Programmer's Manual also provides a complete description of the program, including the mathematical equations implemented in the code. The Demonstration Problem Manual presents a discussion of the sample problems delivered with NASTRAN, thereby illustrating the formulation of the different types of problems that can be solved with NASTRAN. In addition to the four manuals described above, there is also a NASTRAN User's Guide that serves as a handbook for users. It describes all of the NASTRAN features and options and illustrates them by examples. Other excellent sources for NASTRAN-related topics are the proceedings of the NASTRAN Users' Colloquia (held normally every year) which provide a large body of information based on user experiences with NASTRAN. The User's Manual has recently been completely revised and updated. The material on rigid formats that was in Volume II has moved to the rigid format source files as comments or, in the case of general information, back into this single volume User's Manual as Section 3. NASTRAN uses the finite element approach to structural modeling, wherein the distributed physical properties of a structure are represented by a finite number of structural elements which are interconnected at a finite number of grid points, to which loads are applied and for which displacements are calculated. The procedures for defining and loading a structural model are described in Section 1. This section contains a functional reference for every card that is used for structural modeling. The NASTRAN Data Deck, including the details for each of the data cards, is described in Section 2. This section also discusses the NASTRAN control cards that are associated with the use of the program. Section 3 contains a general description of rigid format procedures. Specific instructions and information for the use of each rigid format are given in comments included in each source file. The procedures for using the NASTRAN plotting capability are described in Section 4. Both deformed and undeformed plots of the structural model are available. Response curves are also available for static, transient response, frequency response, modal flutter,and modal aeroelastic response analyses. NASTRAN contains problem solution sequences, called rigid formats. Each of these rigid formats is associated with the solution of problems for a particular type of static or dynamic analysis. In addition to the rigid format procedures, you may choose to write your own Direct Matrix Abstraction Program (DMAP). This procedure permits you to execute a series of matrix operations of his choice along with any utility modules or executive operations that he may need. The rules governing the creation of DMAP programs are described in Section 5. The NASTRAN diagnostic messages are documented and explained in Section 6. The NASTRAN Dictionary, in Section 7, contains descriptions of mnemonics, acronyms, phrases, and other commonly used NASTRAN terms. There is a limited number of sample problems included in the User's Manual. However, a more comprehensive set of demonstration problems, at least one for each of the rigid formats, is described in the NASTRAN Demonstration Problem Manual. The data decks are available on tape for each of the computer systems on which NASTRAN has been implemented. Samples of the printer output and of structure plots and response plots can be obtained by executing these demonstration problems. The printer output for these problems is also available on microfiche. =PAGE= 1. STRUCTURAL MODELING 1.1 INTRODUCTION 1.2 GRID POINTS 1.2.1 Grid Point Definition 1.2.2 Grid Point Sequencing 1.2.2.1 Manual Grid Point Resequencing 1.2.2.2 Automatic Grid Point Resequencing Using the BANDIT Procedure 1.2.2.2.1 BANDIT Options 1.2.2.2.2 Cases for Which BANDIT Computations are Skipped 1.2.2.2.3 BANDIT in Restarts 1.2.3 Grid Point Properties 1.3 STRUCTURAL ELEMENTS 1.3.1 Element Definition 1.3.2 Beam Elements 1.3.2.1 Simple Beam or Bar Element 1.3.2.2 Curved Beam or Elbow Element 1.3.3 Rod Element 1.3.4 Shear Panels and Twist Panels 1.3.5 Plate and Membrane Elements 1.3.6 Axisymmetric Shell Elements 1.3.6.1 Conical Shell (CONEAX) Element 1.3.6.2 Toroidal Ring (TORDRG) Element 1.3.7 Axisymmetric Solid Elements 1.3.7.1 TRIARG and TRAPRG Elements 1.3.7.2 TRIAAX and TRAPAX Elements 1.3.7.3 Data Processing for the CONEAX, TRAPAX, and TRIAAX Axisymmetric Elements 1.3.8 Scalar Elements 1.3.9 Mass 1.3.9.1 Lumped Mass 1.3.9.2 Coupled Mass 1.3.9.3 Mass Input 1.3.9.4 Output from the Grid Point Weight Generator 1.3.9.5 Bulk Data Cards for Mass 1.3.10 Solid Polyhedron Elements 1.3.11 Isoparametric Solid Hexahedron Elements 1.3.12 Shallow Shell Element 1.4 CONSTRAINTS AND PARTITIONING 1.4.1 Single-Point Constraints 1.4.2 Multipoint Constraints and Rigid Elements 1.4.2.1 Multipoint Constraints 1.4.2.2 Rigid Elements 1.4.3 Free Body Supports 1.4.4 Partitioning 1.4.5 The Nested Vector Set Concept Used to Represent Components of Displacement 1.5 APPLIED LOADS 1.5.1 Static Loads 1.5.2 Frequency-Dependent Loads 1.5.3 Time-Dependent Loads 1.6 DYNAMIC MATRICES 1.6.1 Direct Formulation 1.6.2 Modal Formulation 1.7 HYDROELASTIC MODELING 1.7.1 Axisymmetric Hydroelastic Modeling 1.7.1.1 Solution of the NASTRAN Fluid Model 1.7.1.2 Hydroelastic Input Data 1.7.1.3 Rigid Formats 1.7.1.4 Hydroelastic Data Processing 1.7.2 Three-Dimensional Hydroelastic Modeling 1.7.2.1 Solution Approach 1.7.2.2 Executive Control Deck 1.7.2.3 Case Control Deck 1.7.2.4 Bulk Data Deck 1.8 HEAT TRANSFER PROBLEMS 1.8.1 Introduction to NASTRAN Heat Transfer 1.8.2 Heat Transfer Elements 1.8.3 Constraints and Partitioning 1.8.4 Thermal Loads 1.8.5 Linear Static Analysis 1.8.6 Nonlinear Static Analysis 1.8.7 Transient Analysis 1.8.8 Compatibility with Structural Analysis 1.9 ACOUSTIC CAVITY MODELING 1.9.1 Data Card Functions 1.9.2 Assumptions and Limitations 1.10 SUBSTRUCTURING 1.10.1 Manual Single-Stage Substructuring 1.10.1.1 Basic Manual Substructure Analysis 1.10.1.2 Loads and Boundary Conditions 1.10.1.3 Normal Modes Analysis 1.10.1.4 Dynamic Analysis 1.10.1.5 DMAP Loops for Phase 2 1.10.1.6 Identical Substructures 1.10.2 Automated Multi-Stage Substructuring 1.10.2.1 Basic Concepts 1.10.2.2 Substructure Operations and Control Functions 1.10.2.3 Input Data Checking and Interpretation of Output 1.10.2.4 Substructure Operating File (SOF) 1.10.2.5 The Case Control Deck for Automated Substructure Analyses 1.10.2.6 User Aids for Automated Substructure Analyses 1.11 AEROELASTIC MODELING 1.11.1 Introduction 1.11.2 Aerodynamic Modeling 1.11.2.1 Doublet-Lattice Panels 1.11.2.2 Slender and Interference Bodies 1.11.2.3 Mach Box Theory 1.11.2.4 Strip Theory 1.11.2.5 Piston Theory 1.11.3 The Interconnection Between Structure and Aerodynamic Models 1.11.4 Modal Flutter Analysis 1.11.5 Modal Aeroelastic Response Analysis 1.12 CYCLIC SYMMETRY 1.13 FULLY STRESSED DESIGN 1.14 THE CONGRUENT FEATURE 1.14.1 Introduction 1.14.2 Congruent Feature Usage 1.14.3 Factors Affecting Congruent Feature Efficiency 1.14.4 Examples of Congruent Feature Usage 1.15 MAGNETIC FIELD PROBLEMS 1.15.1 Introduction 1.15.2 Theory 1.15.3 Prolate Spheroidal Harmonic Expansion 1.15.4 Input Data for Magnetostatic Analysis 1.15.4.1 NASTRAN Card 1.15.4.2 Executive Control Deck 1.15.4.3 Case Control Deck 1.15.4.4 Bulk Data Deck 1.15.4.5 Data Cards with Different Meanings 1.15.4.6 Output 1.16 DYNAMIC DESIGN-ANALYSIS 1.16.1 Introduction 1.16.2 Theory 1.16.3 DDAM Implementation in NASTRAN 1.16.3.1 GENCOS 1.16.3.2 DDAMAT 1.16.3.3 GENPART 1.16.3.4 DESVEL 1.16.3.5 DDAMPG 1.16.3.6 CASEGEN 1.16.3.7 NRLSUM 1.16.3.8 COMBUGV 1.16.4 Input Data for DDAM 1.16.4.1 Executive Control Deck 1.16.4.2 Case Control Deck 1.16.4.3 Bulk Data Deck 1.17 PIEZOELECTRIC MODELING 1.17.1 Introduction 1.17.2 Theory 1.17.3 Input Data for Piezoelectric Modeling 1.17.3.1 NASTRAN Card 1.17.3.2 Bulk Data Deck 1.17.4 Notes on Piezoelectric Modeling 1.18 FORCED VIBRATION ANALYSIS OF ROTATING CYCLIC STRUCTURES AND TURBOSYSTEMS 1.18.1 Introduction 1.18.2 Problem Formulation 1.18.3 Coordinate Systems 1.18.4 Structural Modeling of Rotating Cyclic Structures and Turbosystems 1.18.5 Direct Forced Vibration Analysis of Rotating Cyclic Structures 1.18.5.1 Modeling Features 1.18.5.2 Executive Control Deck 1.18.5.3 Case Control Deck 1.18.5.3.1 Subcase Definitions 1.18.5.3.2 Other Data Selection Items 1.18.5.4 Bulk Data Deck 1.18.5.4.1 Bulk Data Parameters 1.18.5.4.2 Usage of Certain Bulk Data Cards 1.18.6 Modal Forced Vibration Analysis of Aerodynamically Excited Turbosystems 1.18.6.1 Modeling Features 1.18.6.2 Executive Control Deck 1.18.6.3 Case Control Deck 1.18.6.3.1 Subcase Definitions 1.18.6.3.2 Other Data Selection Items 1.18.6.4 Bulk Data Deck 1.18.6.4.1 Bulk Data Parameters 1.18.6.4.2 Usage of Certain Bulk Data Cards 1.19 STATIC AEROTHERMOELASTIC DESIGN/ANALYSIS OF AXIAL-FLOW COMPRESSORS 1.19.1 Introduction 1.19.2 Description of the Capability 1.19.2.1 Problem Definition 1.19.2.2 Problem Formulation 1.19.2.3 NASTRAN Implementation 1.19.3 Aerodynamic Modeling 1.19.4 Aerodynamic Input Data 1.19.4.1 Aerodynamic DTI Data Setup 1.19.4.1.1 Initial Directives 1.19.4.1.2 Analytic Meanline Blade Section 1.19.4.1.3 Aerodynamic Section 1.19.4.2 Aerodynamic DTI Data Item Definitions 1.19.4.2.1 Initial Directives 1.19.4.2.2 Analytic Meanline Blade Section 1.19.4.2.3 Aerodynamic Section 1.19.5 Aerodynamic Output Data 1.19.5.1 Analytic Meanline Blade Section 1.19.5.2 Aerodynamic Section 1.19.5.2.1 Normal Output 1.19.5.2.2 Diagnostic Output 1.19.5.2.3 Aerodynamic Load and Temperature Output 1.20 MODAL FLUTTER ANALYSIS OF AXIAL-FLOW TURBOMACHINES AND ADVANCED TURBOPROPELLERS 1.20.1 Introduction 1.20.2 Problem Formulation 1.20.3 NASTRAN Implementation 1.20.4 Usage of the Capability 2. NASTRAN DATA DECK 2.0 GENERAL DESCRIPTION OF DATA DECK 2.0.1 NASTRAN Data Deck 2.0.2 Usage of Secondary Input Files via the READFILE Capability 2.0.2.1 Description of the Capability 2.0.2.2 Examples of READFILE Capability Usage 2.1 THE NASTRAN CARD 2.2 EXECUTIVE CONTROL DECK 2.2.1 Control Selection 2.2.2 Executive Control Deck Examples 2.2.3 Executive Control Card Descriptions 2.3 CASE CONTROL DECK 2.3.1 Data Selection 2.3.2 Output Selection 2.3.3 Subcase Definition 2.3.4 Case Control Card Descriptions 2.4 BULK DATA DECK 2.4.1 Format of Bulk Data Cards 2.4.1.1 Fixed-Field Input 2.4.1.2 Free-Field Input 2.4.1.2.1 Free-Field Input Examples 2.4.2 Bulk Data Card Descriptions 2.5 USER'S MASTER FILE 2.5.1 Use of User's Master File 2.5.2 Using the User's Master File Editor 2.5.3 Rules for the User's Master File Editor 2.5.4 Examples of User's Master File Editor Usage 2.6 USER GENERATED INPUT 2.6.1 Utility Module INPUT Usage 2.6.1.1 Laplace Circuit 2.6.1.2 Rectangular Frame Made from BARs or RODs 2.6.1.3 Rectangular Plate Made from QUAD1s 2.6.1.4 Rectangular Plate Made from TRIA1s 2.6.1.5 N-Segment String 2.6.1.6 N-Cell Bar 2.6.1.7 Full Matrix with Optional Unit Load 2.6.1.8 N-Spoked Wheel Made from BAR Elements 2.7 SUBSTRUCTURE CONTROL DECK 2.7.1 Commands and Their Execution 2.7.2 Interface with NASTRAN DMAP 2.7.3 Substructure Control Card Descriptions 3. RIGID FORMATS 3.1 GENERAL DESCRIPTION OF RIGID FORMATS 3.1.1 Input File Processor 3.1.2 Functional Modules and Supporting DMAP Operations 3.1.3 Checkpoint/Restart Procedures 3.1.4 Types of Restarts 3.1.4.1 Unmodified Restart 3.1.4.2 Modified Restart 3.1.4.3 Modified Restart with Rigid Format Switch 3.1.5 Use of DMAP ALTERs in Restarts 3.1.6 Rigid Format Output 3.1.7 Rigid Format Data Base 3.1.7.1 Design of the Data Base 3.1.7.2 Implementation of the Data Base 3.1.7.3 Usage of the Data Base 3.1.7.4 Development of User Rigid Formats 3.1.7.5 Usage of User-Developed Rigid Formats 4. PLOTTING 4.1 PLOTTING IN NASTRAN 4.1.1 Plot Frame Size and Character Size 4.2 STRUCTURE PLOTTING 4.2.1 Structure Plotter Projections and Coordinate System 4.2.1.1 Orthographic Projection 4.2.1.2 Perspective Projection 4.2.1.3 Stereoscopic Projection 4.2.2 Structure Plot Request Packet Data 4.2.2.1 Summary of Data Cards 4.2.2.2 Plot Titles 4.2.2.3 Data Card Specification Rules and Format 4.2.2.4 Data Card Descriptions 4.2.3 Error Messages 4.3 X-Y OUTPUT 4.3.1 X-Y Plotter Terminology 4.3.2 X-Y Output Request Packet Data 4.3.2.1 Summary of Data Cards 4.3.2.2 Tic Marks in Plots 4.3.2.3 Plot Titles 4.3.2.4 Data Card Specification Rules and Format 4.3.2.5 Data Card Descriptions 4.4 NASTRAN GENERAL PURPOSE PLOTTER (NASTPLT) FILE 4.4.1 Description of the NASTPLT File 4.4.2 Description of the Plot Commands on the NASTPLT File 5. DIRECT MATRIX ABSTRACTION 5.1 INTRODUCTION 5.2 DMAP RULES 5.2.1 DMAP Rules for Functional Module Instructions 5.2.1.1 Functional Module DMAP Statements 5.2.1.2 Functional Module Names 5.2.1.3 Functional Module Input Data Blocks 5.2.1.4 Functional Module Output Data Blocks 5.2.1.5 Functional Module Parameters 5.2.1.6 DMAP Compiler Options - The XDMAP Instruction 5.2.1.7 Extended Error Handling Facility 5.2.2 DMAP Rules for Executive Operation Instructions 5.2.3 Techniques and Examples of Executive Module Usage 5.2.3.1 The REPT and FILE Instructions 5.2.3.2 The EQUIV Instruction 5.2.3.3 The PURGE Instruction 5.2.3.4 The CHKPNT Instruction 5.3 INDEX OF DMAP MODULE DESCRIPTIONS 5.4 DMAP MATRIX OPERATION MODULES 5.5 DMAP UTILITY MODULES 5.6 DMAP USER MODULES 5.7 DMAP EXECUTIVE OPERATION MODULES 5.8 DMAP EXAMPLES 5.8.1 DMAP to Print Table and Matrix Data Blocks and Parameters 5.8.2 DMAP to Perform Matrix Operations 5.8.3 DMAP to Use the Structure Plotter to Generate Undeformed Plots of the Structural Model 5.8.4 DMAP to Print Eigenvectors Associated with any of the Modal Formulation Rigid Formats 5.8.5 DMAP Using a User-Written Module 5.8.6 DMAP ALTER Package for Using a User-Written Auxiliary Input File Processor 5.8.7 DMAP to Perform Real Eigenvalue Analysis Using Direct Input Matrices 5.8.8 DMAP to Print and Plot a Topological Picture of Two Matrices 5.8.9 DMAP to Compute the r-th Power of a Matrix [Q] 5.8.10 Usage of UPARTN, VEC, and PARTN 5.8.11 DMAP to Perform Matrix Operations Using Conditional Logic 5.9 AUTOMATIC SUBSTRUCTURE DMAP ALTERS 5.9.1 Index of Substructure DMAP ALTERs 5.10 SUPPLEMENTARY FUNCTIONAL MODULES 6. DIAGNOSTIC MESSAGES 6.1 NASTRAN MESSAGES 6.2 PREFACE MESSAGES 6.3 EXECUTIVE MODULE MESSAGES 6.4 FUNCTIONAL MODULE MESSAGES (2001 THROUGH 3000) 6.5 FUNCTIONAL MODULE MESSAGES (3001 THROUGH 4000) 6.6 FUNCTIONAL MODULE MESSAGES (4001 THROUGH 5000) 6.7 FUNCTIONAL MODULE MESSAGES (5001 THROUGH 6000) 6.8 FUNCTIONAL MODULE MESSAGES (6001 THROUGH 7000) 6.9 FUNCTIONAL MODULE MESSAGES (7001 THROUGH 8000) 6.10 FUNCTIONAL MODULE MESSAGES (8001 THROUGH 9000) 7. NASTRAN DICTIONARY 7.1 NASTRAN DICTIONARY =PAGE= 1.1 INTRODUCTION NASTRAN embodies a lumped element approach, wherein the distributed physical properties of a structure are represented by a model consisting of a finite number of idealized substructures or elements that are interconnected at a finite number of grid points, to which loads are applied. All input and output data pertain to the idealized structural model. The major components in the definition and loading of a structural model are indicated in Figure 1.1- 1. As indicated in Figure 1.1-1, the grid point definition forms the basic framework for the structural model. All other parts of the structural model are referenced either directly or indirectly to the grid points. Two general types of grid points are used in defining the structural model. They are: 1. Geometric grid point - a point in three-dimensional space at which three components of translation and three components of rotation are defined. The coordinates of each grid point are specified by you. 2. Scalar point - a point in vector space at which one degree of freedom is defined. Scalar points can be coupled to geometric grid points by means of scalar elements and by constraint relationships. The structural element is a convenient means for specifying many of the properties of the structure, including material properties, mass distribution, and some types of applied loads. In static analysis by the displacement method, stiffness properties are input exclusively by means of structural elements. Mass properties (used in the generation of gravity and inertia loads) are input either as properties of structural elements or as properties of grid points. In dynamic analysis, mass, damping, and stiffness properties may be input either as the properties of structural elements or as the properties of grid points (direct input matrices). Structural elements are defined on connection cards by referencing grid points, as indicated on Figure 1.1-1. In a few cases, all of the information required to generate the structural matrices for the element is given on the connection card. In most cases the connection card refers to a property card, on which the cross-sectional properties of the element are given. The property card in turn refers to a material card which gives the material properties. If some of the material properties are stress dependent or temperature dependent, a further reference is made to tables for this information. Various kinds of constraints can be applied to the grid points. Single- point constraints are used to specify boundary conditions, including enforced displacements of grid points. Multipoint constraints and rigid elements are used to specify linear relationships among selected degrees of freedom. Omitted points are used as a tool in matrix partitioning and for reducing the number of degrees of freedom used in dynamic analysis. Free-body supports are used to remove stress-free motions in static analysis and to evaluate the free-body inertia properties of the structural model. Static loads may be applied to the structural model by concentrated loads at grid points, pressure loads on surfaces, or indirectly, by means of the mass and thermal expansion properties of structural elements or enforced deformations of one-dimensional structural elements. Due to the great variety of possible sources for dynamic loading, only general forms of loads are provided for use in dynamic analysis. The following sections describe the general procedures for defining structural models. Detailed instructions for each of the bulk data cards and case control cards are given in Section 2. Additional information on the case control cards and use of parameters is given for each rigid format in Section 3. =PAGE= Ŀ Ŀ Ŀ SEQGP CORDi Grid Point Coordinate Grid Point Sequence Ŀ System Ĵ Properties Definition Ŀ Ŀ Ŀ CONSTRAINTS Ĵ GRID Cxxx Single Point Ĵ Grid Point Ĵ Element Multipoint Ĵ Definition Definition Rigid Elements Omitted Points Free Body Supports Ŀ Ŀ Ŀ DPHASE STATIC LOADS Pxxx DELAY Concentrated Property DAREA Pressure Definition Gravity Centrifugal Thermal Deformation Displacement Ŀ Ŀ DYNAMIC LOADS MATxx Time Dependent Material Frequency Definition Dependent Ŀ Ŀ TABLEMi TABLEDi TABLES1 Figure 1.1-1. Structural model =PAGE= 1.2 GRID POINTS 1.2.1 Grid Point Definition Geometric grid points are defined on GRID bulk data cards by specifying their coordinates in either the basic or a local coordinate system. The implicitly defined basic coordinate system is rectangular, except when using axisymmetric elements. Local coordinate systems may be rectangular, cylindrical, or spherical. Each local system must be related directly or indirectly to the basic coordinate system. The CORD1C, CORD1R, and CORD1S cards are used to define cylindrical, rectangular, and spherical local coordinate systems, respectively, in terms of three geometric grid points which have been previously defined. The CORD2C, CORD2R, and CORD2S cards are used to define cylindrical, rectangular, and spherical local coordinate systems, respectively, in terms of the coordinates of three points in a previously defined coordinate system. Six rectangular displacement components (3 translations and 3 rotations) are defined at each grid point. The local coordinate system used to define the directions of motion may be different from the local coordinate system used to locate the grid point. Both the location coordinate system and the displacement coordinate system are specified on the GRID card for each geometric grid point. The orientation of displacement components depends on the type of local coordinate system used to define the displacement components. If the defining local system is rectangular, the displacement system is parallel to the local system and is independent of the grid point location as indicated in Figure 1.2-1a. If the local system is cylindrical, the displacement components are in the radial, tangential, and axial directions as indicated in Figure 1.2-1b. If the local system is spherical, the displacement components are in the radial, meridional, and azimuthal directions as indicated in Figure 1.2-1c. Each geometric grid point may have a unique displacement coordinate system associated with it. The collection of all displacement coordinate systems is known as the global coordinate system. All matrices are formed and all displacements are output in the global coordinate system. The symbols T1, T2, and T3 on the printed output indicate translations in the 1, 2, and 3-directions, respectively, for each grid point. The symbols R1, R2, and R3 indicate rotations (in radians) about the three axes. Provision is also made on the GRID card to apply single-point constraints to any of the displacement components. Any constraints specified on the GRID card will be automatically used for all solutions. Constraints specified on the GRID card are usually restricted to those degrees of freedom that will not be elastically constrained and hence must be removed from the model in order to avoid singularities in the stiffness matrix. The GRDSET card is provided to avoid the necessity of repeating the specification of location coordinate systems, displacement coordinate systems, and single-point constraints, when all, or many, of the GRID cards have the same entries for these items. When any of the three items are specified on the GRDSET card, the entries are used to replace blank fields on the GRID card for these items. This feature is useful in the case of such problems as space trusses where one wishes to remove all of the rotational degrees of freedom or in the case of plane structures where one wishes to remove all of the out-of-plane or all of the in-plane motions. Scalar points are defined either on an SPOINT card or by reference on a connection card for a scalar element. SPOINT cards are used primarily to define scalar points appearing in constraint equations, but to which no structural elements are connected. A scalar point is implicitly defined if it is used as a connection point for any scalar element. Special scalar points, called "extra points", may be introduced for dynamic analyses. Extra points are used in connection with transfer functions and other forms of direct matrix input used in dynamic analyses and are defined on EPOINT cards. GRIDB is a variation of the GRID card that is used to define a point on a fluid-structure interface (see Section 1.7). 1.2.2 Grid Point Sequencing The external identification numbers used for grid points may be selected in any manner you desire. However, in order to reduce the number of active columns, and, hence, to substantially reduce computing times when using the displacement method, the internal sequencing of the grid points must not be arbitrary. The best decomposition and equation solution times are obtained if the grid points are sequenced in such a manner as to create matrices having small numbers of active columns (see Section 2.2 of the Theoretical Manual for a discussion of active columns and the decomposition algorithm). The decomposition time is proportional to the sum of the squares of the number of active columns in each row of the triangular factor. The equation solution time (forward/backward substitution) is proportional to the number of nonzero terms in the triangular factor. 1.2.2.1 Manual Grid Point Resequencing In order to allow arbitrary grid point numbers and still preserve sparsity in the triangular decomposition factor to the greatest extent possible, provision is made for you to resequence the grid point numbers for internal operations. This feature also makes it possible to easily change the sequence if a poor initial choice is made. All output associated with grid points is identified with the external grid point numbers. The SEQGP card is used to resequence geometric grid points and scalar points. The SEQEP card is used to sequence the extra points in with the previously sequenced grid points and scalar points. In selecting the grid point sequencing, it is not important to find the best sequence; rather it is usually quite satisfactory to find a good sequence, and to avoid bad sequences that create unreasonably large numbers of active columns. For many problems a sequence which will result in a band matrix is a reasonably good choice, but not necessarily the best. Also, sequences which result in small numbers of columns with nonzero terms are usually good but not necessarily the best. A sequence with a larger number of nonzero columns will frequently have a smaller number of nonzero operations in the decomposition when significant passive regions exist within the active columns (see Section 2.2 of the Theoretical Manual). Examples of proper grid point sequencing for one-dimensional systems are shown in Figure 1.2-2. For open loops, a consecutive numbering system should be used as shown in Figure 1.2-2a. This sequencing will result in a narrow band matrix with no new nonzero terms created during the triangular decomposition. Generally, there is an improvement in the accumulated round off error if the grid points are sequenced from the flexible end to the stiff end. For closed loops, the grid points may be sequenced either as shown in Figure 1.2-2b or as shown in Figure 1.2-2c. If the sequencing is as shown in Figure 1.2-2b, the semiband will be twice that of the model shown in Figure 1.2-2a. The matrix will initially contain a number of zeroes within the band which will become nonzero as the decomposition proceeds. If the sequencing is as shown in Figure 1.2-2c, the band portion of the matrix will be the same as that for Figure 1.2-2a. However, the connection between grid points 1 and 8 will create a number of active columns on the right hand side of the matrix. The solution times will be the same for the sequence shown in Figure 1.2-2b or 1.2-2c, because the number of active columns in each sequence is the same. Examples of grid point sequencing for surfaces are shown in Figure 1.2-3. For plain or curved surfaces with a pattern of grid points that tends to be rectangular, the sequencing shown in Figure 1.2-3a will result in a band matrix having good solution times. The semiband will be proportional to the number of grid points along the short direction of the pattern. If the pattern of grid points shown in Figure 1.2-3a is made into a closed surface by connecting grid points 1 and 17, 2 and 18, etc., a number of active columns equal to the semiband will be created. If the number of grid points in the circumferential direction is greater than twice the number in the axial direction, the sequencing indicated in Figure 1.2-3a is a good one. However, if the number of grid points in the circumferential direction is less than twice the number in the axial direction, the use of consecutive numbering in the circumferential direction is more efficient. An alternate sequencing for a closed loop is shown in Figure 1.2-3b, where the semiband is proportional to twice the number of grid points in a row. For cylindrical or similar closed surfaces, the sequencing shown in Figure 1.2-3b has no advantage over that shown in Figure 1.2-3a, as the total number of active columns will be the same in either case. With the exception of the central point, sequencing considerations for the radial pattern shown in Figure 1.2-3c are similar to those for the rectangular patterns shown in Figures 3a and 3b. The central point must be sequenced last in order to limit the number of active columns associated with this point to the number of degrees of freedom at the central point. If the central point is sequenced first, the number of active columns associated with the central point will be proportional to the number of radial lines. If there are more grid points on a radial line than on a circumferential line, the consecutive numbering should extend in the circumferential direction beginning with the outermost circumferential ring. In this case, the semiband is proportional to the number of grid points on a circumferential line and there will be no active columns on the right hand side of the matrix. If the grid points form a full circular pattern, the closure will create a number of active columns proportional to the number of grid points on a radial line if the grid points are numbered as shown in Figure 1.2-3c. Proper sequencing for a full circular pattern is similar to that discussed for the rectangular arrays shown in Figures 3a and 3b for closed surfaces. Sequencing problems for actual structural models can frequently be handled by considering the model as consisting of several substructures. Each substructure is first numbered in the most efficient manner. The substructures are then connected so as to create the minimum number of active columns. The grid points at the interface between two substructures are usually given numbers near the end of the sequence for the first substructure and as near the beginning of the sequence for the second substructure as is convenient. Figure 1.2-4 shows a good sequence for the substructure approach. Grid points 1 through 9 are associated with the first substructure, and grid points 10 through 30 are associated with the second substructure. In the example, each of the substructures was sequenced for band matrices. However, other schemes could also be considered for sequencing the individual substructures. Figure 1.2-5 shows the nonzero terms in the triangular factor. The X's indicate terms which are nonzero in the original matrix. The zeros indicate nonzero terms created during the decomposition. The maximum number of active columns for any pivotal row is only five, and this occurs in only three rows near the middle of the matrix for the second substructure. All other pivotal rows have four or less active columns. Figure 1.2-6 indicates the grid point sequencing using substructuring techniques for a square model, and Figure 1.2-7 shows the nonzero terms in the triangular factor. If the square model were sequenced for a band matrix, the number of nonzero terms in the triangular factor would be 129, whereas Figure 1.2-7 contains only 102 nonzero terms. The time for the forward/backward substitution operation is directly proportional to the number of nonzero terms in the triangular factor. Consequently, the time for the forward/backward substitution operation when the square array is ordered as shown in Figure 1.2-7 is only about 80% of that when the array is ordered for a band matrix. The number of multiplications for a decomposition when ordered for a band is 294, whereas the number indicated in Figure 1.2-7 is only 177. This indicates that the time for the decomposition when ordered as shown in Figure 1.2-6 is only 60% of that when ordered for a band. Although scalar points are defined only in vector space, the pattern of the connections is used in a manner similar to that of geometric grid points for sequencing scalar points among themselves or with geometric grid points. Since scalar points introduced for dynamic analysis (extra points) are defined in connection with direct input matrices, the sequencing of these points is determined by direct reference to the positions of the added terms in the dynamic matrices. 1.2.2.2 Automatic Grid Point Resequencing Using the BANDIT Procedure If you want reduced matrix reduction and equation solution times, you can manually resequence your grid points by the use of SEQGP cards as per the guidelines outlined in the previous section. However, in order to relieve you of the burden of having to do so, an automatic resequencing capability has been provided in NASTRAN. This capability involves the use of the BANDIT procedure in NASTRAN. (See Reference 1 for details of the BANDIT procedure and Reference 2 for details of the manner in which it has been implemented in NASTRAN.) The BANDIT procedure in automatically invoked in NASTRAN for all runs (except those indicated in Sections 1.2.2.2.2 and 1.2.2.2.3), unless specifically suppressed by you. (See the description of the BANDIT options in the next section.) The result of the BANDIT operations is a set of SEQGP cards that are automatically generated by the program. These SEQGP cards are added to your input data (replacing any SEQGP cards already input, if so specified) for subsequent processing by the program. 1.2.2.2.1 BANDIT Options The execution of the BANDIT operations in NASTRAN is controlled by several parameters. These parameters can be specified by means of the NASTRAN card and are fully described in Section 2.1. All of these parameters have default values selected so that you normally do not have to explicitly specify any of them. NASTRAN provides two methods to skip over the BANDIT operations. First, the NASTRAN BANDIT = -1 option can be used. The second method is to include one or more SEQGP cards in the Bulk Data Deck. In this second method, BANDIT would terminate since you have already stated your choice of SEQGP resequencing cards. However, the NASTRAN BANDTRUN = 1 option can be used to force BANDIT to generate new SEQGP cards to replace the old SEQGP set already in the input Bulk Data Deck. In all instances when BANDIT is executed, NASTRAN will issue a page of summary to keep you informed of the basic resequencing computations. You may refer to Reference 1 for the definition of the technical terms used. The BANDIT procedure automatically counts the number of grid points used in a NASTRAN job and sets up the exact array dimensions needed for its internal computations. However, if your structural model uses more grid points in the connecting elements than the total number of grid points as defined on the GRID cards, BANDIT will issue a fatal message and terminate the job. In the case where non-active grid points (that is, grid points defined on the GRID cards but nowhere used in the model) do exist, BANDIT will add them to the end of the SEQGP cards, and their presence will not cause termination of a job. (If necessary, the NASTRAN HICORE parameter can be used on the UNIVAC version to increase the amount of open core available for the BANDIT operations.) Multipoint constraints (MPCs) and rigid elements are included in the BANDIT computations only when the BANDTMPC = 1 (or 2) option is selected. (The use of the dependent grid points of MPCs and/or rigid elements is controlled by the BANDTDEP option.) However, as noted in Reference 1, it should be emphasized here that only in rare cases would it make sense to let BANDIT process MPCs and rigid elements. The main reasons for this are that BANDIT does not consider individual degrees of freedom and, in addition, cannot distinguish one MPC set from another. 1.2.2.2.2 Cases for Which BANDIT Computations are Skipped The BANDIT computations in NASTRAN are unconditionally skipped over if any of the following conditions exists: 1. There are errors in input data. 2. The Bulk Data Deck contains any of the following types of input: a.Axisymmetric (CONEAX, TRAPAX, or TRIAAX) elements b.Fluid (FLUID2, FLUID3, or FLUID4) elements c.DMI (Direct Matrix Input) data 3. It is a substructure Phase 2 run. 1.2.2.2.3 BANDIT in Restarts At the beginning of a NASTRAN job, the Preface (or Link 1) modules read and process the Executive, Case Control, and Bulk Data decks. The SEQGP cards generated by BANDIT are added directly to the NASTRAN data base (specifically, the GEOM1 file) at a later stage. Since these SEQGP cards are not part of the original Bulk Data Deck, they are not directly written on to the NPTP (New Problem Tape) in a checkpoint run and, therefore, are not available as such for use on the OPTP (Old Problem Tape) in a restart. In the light of the above comments, the following points about the use of BANDIT in NASTRAN restarts should be noted: 1. BANDIT is automatically skipped if the restart job has no input data changes with respect to the checkpoint job. However, the previously generated SEQGP cards, if any, are already absorbed into the NASTRAN data base (data blocks such as EQEXIN, SIL, etc.). A message is printed to inform you that the BANDIT computations are not performed. (BANDIT can be executed if the restart job contains one or more of the appropriate BANDIT options on the NASTRAN card, for example, NASTRAN BANDMTH = 2.) 2. BANDIT is executed (except for the cases indicated in Section 1.2.2.2.2) if the restart job has input data changes with respect to the checkpoint job, unless specifically suppressed by you. (The BANDIT = -1 option on the NASTRAN card can be used to stop BANDIT execution unconditionally.) 1.2.3 Grid Point Properties Some of the characteristics of the structural model are introduced as properties of grid points, rather than as properties of structural elements. Any of the various forms of direct matrix input are considered as describing the structural model in terms of properties of grid points. Thermal fields are defined by specifying the temperatures at grid points. The TEMP card is used to specify the temperature at grid points for use in connection with thermal loading and temperature-dependent material properties. The TEMPD card is used to specify a default temperature, in order to avoid a large number of duplicate entries on a TEMP card when the temperature is uniform over a large portion of the structure. The TEMPAX card is used for conical shell problems. Mass properties may be input as properties of grid points by using the concentrated mass element (see Section 5.5 of the Theoretical Manual). The CONM1 card is used to define a 6x6 matrix of mass coefficients at a geometric grid point in any selected coordinate system. The CONM2 card is used to define a concentrated mass at a geometric grid point in terms of its mass, the three coordinates of its center of gravity, the three moments of inertia about its center of gravity, and its three products of inertia, referred to any selected coordinate system. In dynamic analysis, mass, damping and stiffness properties may be provided, in part or entirely, as properties of grid points through the use of direct input matrices. The DMIG card is used to define direct input matrices for use in dynamic analysis. These matrices may be associated with components of geometric grid points, scalar points, or extra points introduced for dynamic analysis. The TF card is used to define transfer functions that are internally converted to direct matrix input. The DMIAX card is an alternate form of direct matrix input that is used for hydroelastic problems (see Section 1.7). REFERENCES 1. Everstine, G. C., "BANDIT User's Guide", COSMIC Program No. DOD-00033, May 1978. 2. Chan, G. C., "BANDIT in NASTRAN," Eleventh NASTRAN Users' Colloquium, NASA Conference Publication, May 1983, San Francisco, California, pp. 1-5. =PAGE= z u3 P G2* * u2 / (a) Rectangular / / / / Z / u1 G3* G1** y / / / / / / X / / /* / Y x z u3 - z direction u2 - direction / / G2* p \ \ (b) Cylindrical / \ / u1 - r direction / Z G3* G1*y / \ / \R / \ / \ / \ / * u1 - p direction z / .u3 - direction / . / . P* G2* / \ / / \ (c) Spherical / / u2 - direction / /R G3* / G1*y / \ / \ / \ / \ / \ / x Figure 1.2-1. Displacement coordinate systems =PAGE= 6 / 5 4 3 2 1 (a) /Ĵ / / 3 1 2 Ŀ (b) 5 4 7 8 6 8 1 2 Ŀ (c) 7 3 6 5 4 Figure 1.2-2. Grid point sequencing for one-dimensional systems =PAGE= 4 8 12 16 20 Ŀ 3 7 11 15 19 Ĵ (a) 2 6 10 14 18 Ĵ 1 5 9 13 17 20 12 4 8 16 Ŀ 19 11 3 7 15 Ĵ (b) 18 10 2 6 14 Ĵ 17 9 1 5 13 12 9 6 Ŀ \ 11 8 5 / \Ŀ / \ \ 10 7 4 / Ŀ/ (c) \ / \ / \/ 15 14 13 16 1 2 3 Figure 1.2-3. Grid point sequencing for surfaces =PAGE= Ŀ 3 2 1 Ĵ 6 5 4 Ĵ 9 8 7 Ŀ 28 25 22 19 16 13 10 Ĵ 29 26 23 20 17 14 11 30 27 24 21 18 15 12 Figure 1.2-4. Grid point sequencing for substructures X X X X X 0 X X 0 0 X X X 0 X X X 0 X X 0 0 X X X 0 X X X 0 X X 0 0 X X X X X X 0 X X 0 0 X X X 0 X X X 0 X X 0 0 X X X 0 X 0 X X 0 X 0 X 0 0 X 0 X X 0 X X X 0 X (Symmetric) X 0 0 X X X 0 X X X 0 X X 0 0 X X X 0 X X X 0 X X 0 0 X X X 0 X X X Figure 1.2-5. Matrix for substructure example =PAGE= Ŀ 13 14 23 10 9 Ĵ 15 16 24 12 11 17 18 25 22 21 Ĵ 3 4 20 8 7 1 2 19 6 5 Figure 1.2-6. Grid point sequencing for square model X X X X 0 X X X X X 0 X 0 X 0 X X X X X 0 X X X X 0 X X 0 X 0 X X X X X 0 X X X X X 0 X 0 X 0 X X X X X 0 X X X X X 0 X 0 X 0 X (Symmetric) X X 0 0 X 0 0 0 0 X X X 0 0 0 0 0 X 0 0 0 0 X X X 0 0 0 X 0 0 X X X 0 X X X Figure 1.2-7. Matrix for square model example =PAGE= 1.3 STRUCTURAL ELEMENTS 1.3.1 Element Definition Structural elements are defined on connection cards that identify the grid points to which the elements are connected. The mnemonics for all such cards have a prefix of the letter "C", followed by an indication of the type of element, such as CBAR and CROD. The order of the grid point identification defines the positive direction of the axis of a one-dimensional element and the positive surface of a plate element. The connection cards include additional orientation information when required. Except for the simplest elements, each connection card references a property definition card. If many elements have the same properties, this system of referencing eliminates a large number of duplicate entries. The property definition cards define geometric properties such as thicknesses, cross-sectional areas, and moments of inertia. The mnemonics for all such cards have a prefix of the letter "P", followed by some, or all, of the characters used on the associated connection card, such as PBAR and PROD. Other included items are the nonstructural mass and the location of points where stresses will be calculated. Except for the simplest elements, each property definition card will reference a material property card. In some cases, the same finite element can be defined by using different bulk data cards. These alternate cards have been provided for your convenience. In the case of a rod element, the normal definition is accomplished with a connection card (CROD) which references a property card (PROD). However, an alternate definition uses a CONROD card which combines connection and property information on a single card. This is more convenient if a large number of rod elements all have different properties. In the case of plate elements, a different property card is provided for each type of element, such as membrane or sandwich plates. Thus, each property card contains only the information required for a single type of plate element, and in most cases, a single card has sufficient space for all of the property information. In order to maintain uniformity in the relationship between connection cards and property cards, a number of connection card types contain the same information, such as the connection cards for the various types of triangular elements. Also, the property cards for triangular and quadrilateral elements of the same type contain the same information. The material property definition cards are used to define the properties for each of the materials used in the structural model. The MAT1 card is used to define the properties for isotropic materials. The MAT1 card may be referenced by any of the structural elements. The MATS1 card specifies table references for isotropic material properties that are stress dependent. The TABLES1 card defines a tabular stress-strain function for use in piecewise linear analysis. The MATT1 card specifies table references for isotropic material properties that are temperature dependent. The TABLEM1, TABLEM2, TABLEM3, and TABLEM4 cards define four different types of tabular functions for use in generating temperature-dependent material properties. The MAT2 card is used to define the properties for anisotropic materials. The MAT2 card may only be referenced by triangular or quadrilateral membrane and bending elements. The MAT2 card specifies the relationship between the inplane stresses and strains. The material is assumed to be infinitely rigid in transverse shear. The angle between the material coordinate system and the element coordinate system is specified on the connection cards. The MATT2 card specifies table references for anisotropic material properties that are temperature dependent. This card may reference any of the TABLEM1, TABLEM2, TABLEM3, or TABLEM4 cards. The MAT3 card is used to define the properties for orthotropic materials used in the modeling of axisymmetric shells. This card may only be referenced by CTRIARG, CTRIAAX, CTRAPRG, CTRAPAX, and PTORDRG cards. The MATT3 card specifies table references for use in generating temperature-dependent properties for this type of material. The GENEL card is used to define general elements whose properties are defined in terms of deflection influence coefficients or stiffness matrices, and which can be connected between any number of grid points. One of the important uses of the general element is the representation of part of a structure by means of experimentally measured data. No output data is prepared for the general element. Detail information on the general element is given in Section 5.7 of the Theoretical Manual. Dummy elements are provided in order to allow you to investigate new structural elements with a minimum expenditure of time and money. A dummy element is defined with a CDUMi (i = index of element type, 1 <= i <= 9) card and its properties are defined with the PDUMi card. The ADUMi card is used to define the items on the connection and property cards. Detailed instructions for coding dummy element routines are given in Section 6.8.5 of the Programmer's Manual. 1.3.2 Beam Elements 1.3.2.1 Simple Beam or Bar Element The simple beam or bar element is defined with a CBAR card and its properties (constant over the length) are defined with a PBAR card. The bar element includes extension, torsion, bending in two perpendicular planes, and the associated shears. The shear center is assumed to coincide with the elastic axis. Any five of the six forces at either end of the element may be set equal to zero by using the pin flags on the CBAR card. The integers 1 to 6 represent the axial force, shearing force in Plane 1, shearing force in Plane 2, axial torque, moment in Plane 2, and moment in Plane 1, respectively. The structural and nonstructural mass of the bar are lumped at the ends of the element, unless coupled mass is requested with a PARAM COUPMASS card (see PARAM bulk data card). Theoretical aspects of the bar element are treated in Section 5.2 of the Theoretical Manual. The element coordinate system is shown in Figure 1.3-1a. End a is offset from grid point a an amount measured by vector wa and end b is offset from grid point b an amount measured by vector wb. The vectors wa and wb are measured in the global coordinates of the connected grid point. The x-axis of the element coordinate system is defined by a line connecting end a to end b of the bar element. The orientation of the bar element is described in terms of two reference planes. The reference planes are defined with the aid of vector v. This vector may be defined directly with three components in the global system at end a of the bar or by a line drawn from end a to a third referenced grid point. The first reference plane (Plane 1) is defined by the x-axis and the vector v. The second reference plane (Plane 2) is defined by the vector cross product (x x v) and the x-axis. The subscripts 1 and 2 refer to forces and geometric properties associated with bending in planes 1 and 2, respectively. The reference planes are not necessarily principal planes. The coincidence of the reference planes and the principal planes is indicated by a zero product of inertia (I12) on the PBAR card. If shearing deformations are included, the reference axes and the principal axes must coincide. When pin flags and offsets are used, the effect of the pin is to free the force at the end of the element x-axis of the beam, not at the grid point. The positive directions for element forces are shown in Figure 1.3-1b. The following element forces, either real or complex (depending on the rigid format), are output on request: - Bending moments at both ends in the two reference planes. - Shears in the two reference planes. - Average axial force. - Torque about the bar axis. The following real element stresses are output on request: - Average axial stress. - Extensional stress due to bending at four points on the cross-section at both ends. (Optional; calculated only if you enter stress recovery points on PBAR card.) - Maximum and minimum extensional stresses at both ends. - Margins of safety in tension and compression for the whole element. (Optional; calculated only if you enter stress limits on MAT1 card.) Tensile stresses are given a positive sign and compressive stresses a negative sign. Only the average axial stress and the extensional stresses due to bending are available as complex stresses. The stress recovery coefficients on the PBAR card are used to locate points on the cross-section for stress recovery. The subscript 1 is associated with the distance of a stress recovery point from plane 2. The subscript 2 is associated with the distance from plane 1. The use of the BAROR card avoids unnecessary repetition of input when a large number of bar elements either have the same property identification number or have their reference axes oriented in the same manner. This card is used to define default values on the CBAR card for the property identification number and the orientation vector for the reference axes. The default values are used only when the corresponding fields on the CBAR card are blank. 1.3.2.2 Curved Beam or Elbow Element The curved beam or elbow element is a three-dimensional element with extension, torsion, and bending capabilities and the associated shears. No offset of the elastic axis is allowed nor are pin releases permitted to eliminate the connection between motions at the ends of the element and the adjacent grid points. The elbow element was initially developed to facilitate the analysis of pipe networks by using it as a curved pipe element. However, the input format is general enough to allow application to beams of general cross section. An important assumption in the development of the element is that the radius of curvature is much larger than the cross section depth. The element is defined with a CELBOW card and its properties (constant over the length) are defined with a PELBOW card. There are six degrees of freedom at each end of the element: translations in the local x, y, z directions and rotations about the local x, y, z axes. The structural and nonstructural mass of the element are lumped at the ends of the element. The specified properties of the elbow element are its area; its moments of inertia, I1 and I2 (the product of inertia is assumed to be zero); its torsional constant, J; the radius of curvature; the angle between end-a and end-b; the factors K1 and K2 for computing transverse shear stiffness; the nonstructural mass per unit length, NSM; the stress intensification factor, C; and the flexibility correction factors, Kx, Ky, and Kz. The stress intensification factor C is applied to the bending stress only. The flexibility correction factors Kx, Ky, and Kz are generally greater than 1.0 and are used as divisors to reduce the respective moments of inertia. These are discussed further towards the end of this section. The material properties, obtained by reference to a materials properties table, include the elastic moduli, E and G, density, rho, and the thermal expansion coefficient, , determined at the average temperature of the element. The plane of the element is defined by two grid points, A and B, and a vector v from grid point A directed toward the center of curvature. Plane 1 of the element cross section lies in this plane. Plane 2 is normal to Plane 1 and contains the vector v. The area moments of inertia, I1 and I2, are defined as for the BAR element. The cross product of inertia, I12, is neglected. This assumption requires that at least one axis of the element cross section be an axis of symmetry. The following element forces are output on request: - Bending moments at both ends in the two reference planes - Transverse shear force at both ends in the two reference planes - Axial force at both ends - Torque at both ends The following element stresses are output on request: - Average axial stress at both ends - Bending stresses at four points on the cross section at both ends. The points are specified by you. - Maximum and minimum extensional stresses at both ends. - Margins of safety in tension and compression (Optional, output only if you enter stress limits on MAT1 card) Stress Intensification Factor and Flexibility Correction Factors When a plane pipe network, consisting of both straight and curved sections, is analyzed by simple beam theory as an indeterminate system, the computed support reactions are greater than actually would be measured in an experiment. The apparent decrease in stiffness in such a case is due to an ovalization of the pipe in the curved sections. The ovalization also yields a stress distribution different from that computed by simple beam theory. When a curved beam or elbow element is used as a curved pipe element, there are two factors available that can be specified to account for the differences in its behavior compared to curved beams. These are the stress intensification factor and the flexibility correction factors. The maximum stress, max, in a curved pipe element is given by Mc max = C I where C is a stress intensification factor, M = bending moment, c = fiber distance, and I = plane (area) moment of inertia of the cross section. In general, the factor C mentioned above may be regarded as a stress correction factor in curved beam analysis. The effect of the ovalization of the pipe in curved sections is to reduce the stiffness parameter EI (E: modulus of elasticity) of the curved pipe to a fictitious value. Thus, for the elbow element, EI1 (EI1)' = , (Ky > 1.0), and Ky EI2 (EI2)' = , (Kz > 1.0) Kz where Ky and Kz are the stiffness correction factors corresponding to planes 1 and 2, respectively. The stiffness correction factor, Kz, corresponds to the torsional behavior and is generally taken to be 1.0. 1.3.3 Rod Element The rod element is defined with a CROD card and its properties with a PROD card. The rod element includes extensional and torsional properties. The CONROD card is an alternate form that includes both the connection and property information on a single card. The tube element is a specialized form that is assumed to have a circular cross-section. The tube element is defined with a CTUBE card and its properties with a PTUBE card. The structural and nonstructural mass of the rod are lumped at the adjacent grid points unless coupled mass is requested with the PARAM COUPMASS card (see PARAM bulk data card). Theoretical aspects of the rod element are treated in Section 5.2 of the Theoretical Manual. The x-axis of the element coordinate system is defined by a line connecting end a to end b as shown in Figure 1.3-2. The axial force and torque are output on request in either the real or complex form. The positive directions for these forces are indicated in Figure 1.3-2. The following real element stresses are output on request: - Axial stress - Torsional stress - Margin of safety for axial stress - Margin of safety for torsional stress. Positive directions are the same as those indicated in Figure 1.3-2 for element forces. Only the axial stress and the torsional stress are available as complex stresses. Another kind of rod element is the viscous damper, which has extensional and torsional viscous damping properties rather than stiffness properties. The viscous damper element is defined with a CVISC card and its properties with a PVISC card. This element is used in the direct formulation of dynamic matrices. 1.3.4 Shear Panels and Twist Panels The shear panel is defined with a CSHEAR card and its properties with a PSHEAR card. A shear panel is a two-dimensional structural element that resists the action of tangential forces applied to its edges, but does not resist the action of normal forces. The structural and nonstructural mass of the shear panel are lumped at the connected grid points. Details of the shear panel element are discussed in Section 5.3 of the Theoretical Manual. The element coordinate system for a shear panel is shown in Figure 1.3-3a. The integers 1, 2, 3, and 4 refer to the order of the connected grid points on the CSHEAR card. The element forces are output on request in either the real or complex form. The positive directions for these forces are indicated in Figure 1.3-3b. These forces consist of the forces applied to the element at the corners in the direction of the sides, kick forces at the corners in a direction normal to the plane formed by the two adjacent edges, and "shear flows" (force per unit length) along the four edges. The shear stresses are calculated at the corners in skewed coordinates parallel to the exterior edges. The average of the four corner stresses and the maximum stress are output on request in either the real or complex form. A margin of safety is also output when the stresses are real. The twist panel performs the same function for bending action that the shear panel performs for membrane action. The twist panel is defined with a CTWIST card and its properties with a PTWIST card. In calculating the stiffness matrix, a twist panel is assumed to be solid. For built-up panels, the thickness in the PTWIST card must be adjusted to give the correct moment of inertia of the cross-section. If mass calculations are being made, the density will also have to be adjusted on a MAT1 card. The element coordinate system and directions for positive forces are shown in Figure 1.3-4. Stress recovery is similar to that for shear panels. 1.3.5 Plate and Membrane Elements NASTRAN includes two different shapes of plate and membrane elements (triangular and quadrilateral) and two different stress systems (inplane and bending) which are uncoupled. There are different forms of elements available that are defined by connection cards as follows: 1. Plate (Bending) Elements a. CTRBSC - basic unit from which the bending properties of the other plate elements are formed. b. CTRPLT - triangular element with zero inplane stiffness and finite bending stiffness. c. CTRPLT1 - a higher order triangular element with zero inplane stiffness and finite bending stiffness. Uses quintic polynomial representation for transverse displacements and bilinear variation for temperature and thickness. d. CQDPLT - quadrilateral element with zero inplane stiffness and finite bending stiffness. 2. Membrane (Inplane) Elements a. CTRMEM - triangular element with finite inplane stiffness and zero bending stiffness. b. CTRIM6 - triangular element with finite inplane stiffness and zero bending stiffness. Uses quadratic polynomial representation for membrane displacements and bilinear variation for temperature and thickness. c. CQDMEM - quadrilateral element consisting of four overlapping CTRMEM elements. d. CQDMEM1 - an isoparametric quadrilateral membrane element. e. CQDMEM2 - a quadrilateral membrane element consisting of four non- overlapping CTRMEM elements. f. CIS2D8 - a quadriparabolic isoparametric membrane element. May be reduced to a triangular element under specified conditions. 3. Plate and Membrane Elements a. CTRIA1 - triangular element with both inplane and bending stiffness. It is designed for sandwich plates which can have different materials referenced for membrane, bending, and transverse shear properties. b. CTRIA2 - triangular element with both inplane and bending stiffness that assumes a solid homogeneous cross-section. c. CQUAD1 - quadrilateral element with both inplane and bending stiffness. It is designed for sandwich plates which can have different materials referenced for membrane, bending, and transverse shear properties. d. CQUAD2 - quadrilateral element with both inplane and bending stiffness that assumes a solid homogeneous cross-section. Theoretical aspects of these elements are treated in Section 5.8 of the Theoretical Manual. The properties for the above elements are defined on their associated Pxxxxxx cards (PTRBSC, PTRPLT, etc.). All of the properties of the elements are assumed uniform over their surfaces, except for the CTRIM6 and CTRPLT1 elements. Anisotropic material may be specified for all these elements. Transverse shear flexibility may be included for all bending elements on an optional basis, except for homogeneous elements (CTRIA2 and CQUAD2), where this effect is automatically included. Structural mass is calculated only for elements that specify a membrane thickness and is based only on the membrane thickness. Nonstructural mass can be specified for all plate elements, except the basic bending triangle. Only lumped mass procedures are used for membrane elements, except for the CIS2D8 element. Coupled mass procedures may be requested for elements that include bending stiffness with the PARAM COUPMASS card (see PARAM bulk data card). Differential stiffness matrices are generated for the following elements: CTRMEM, CTRIA1, CTRIA2, CQDMEM, CQUAD1, CQUAD2. The following elements may have nonlinear material characteristics in Piecewise Linear Analysis: CTRMEM, CTRIA1, CTRIA2, CQDMEM, CQUAD1, CQUAD2. The element coordinate systems for the triangular and quadrilateral elements are shown in Figure 1.3-5. The integers 1, 2, 3, and 4 refer to the order of the connected grid points on the connection cards defining the elements. A similar connection scheme for elements with mid-side grid points would be defined by six or eight integers on the connection card. The angle is the orientation angle for anisotropic materials. Average values of element forces are calculated for all plate elements (except the CTRPLT1) having a finite bending stiffness. The element forces for the CTRPLT1 are calculated at the corners and centroid of the element. The positive directions for plate element forces in the element coordinate system are shown in Figure 1.3-6a. The following element forces per unit of length, either real or complex, are output on request: - Bending moments on the x and y faces. - Twisting moment. - Shear forces on the x and y faces. The CQDMEM2 is the only membrane element for which element forces are calculated. The positive directions for these forces are shown in Figure 1.3- 3b, and the force output has the same interpretation as the force output for the shear panel discussed previously. Average values of the membrane stresses are calculated for the triangular and quadrilateral membrane elements, with the exception of the CQDMEM1 and CTRIM6 elements. For the CQDMEM1 element, in which the stress field varies, the stresses are evaluated at the intersection of diagonals (in a mean plane if the element is warped.) For the CTRIM6 element, the stresses are calculated at the corners and centroid of the element. The positive directions for the membrane stresses are shown in Figure 1.3-6b. The stresses for the CQDMEM2 element are calculated in the material coordinate system. The material coordinate system is defined by the material orientation angle on the CQDMEM2 card. The stresses for all other membrane elements are calculated in the element coordinate system. For the CIS2D8 element, the stresses are computed at the Gaussian quadrature points and extrapolated to the grid points. The following real membrane stresses are output on request: - Normal stresses in the x and y directions - Shear stress on the x face in the y direction - Angle between the x-axis and the major principal axis - Major and minor principal stresses - Maximum shear stress Only the normal stresses and shearing stress are available in the complex form. If an element has bending stiffness, the average stresses are calculated on the two faces of the plate for homogeneous plates and at two specified points on the cross-section for other plate elements. The distances to the specified points are given on the property cards. The positive directions for these fiber distances are defined according to the right-hand sequence of the grid points specified on the connection card. These distances are identified in the output and must be nonzero in order to obtain nonzero stress output. The same stresses are calculated for each of the faces as are calculated for membrane elements. In the case of composite plate elements (CTRIA1, CTRIA21, CQUAD1, and CQUAD2 only), the stresses mentioned above can also be requested in a material coordinate system which is specified on a MAT1 or MAT2 card. In place of the fiber distances, the output in this case identifies the specified material coordinate system as well as an output code. This latter code is set to 1 or 2 according as the material x-axis or the y-axis is chosen as the reference axis. The element stresses in material coordinate system computed above (for CTRIA1, CTRIA2, CQUAD1, and CQUAD2 elements) can also be requested at the connected grid points. These stresses (at grid points) are obtained by interpolation. The output code in this case is set to (10*N + projection code) where N is the number of independent points used in the interpolation and the projection code is an integer which is set to 1, 2, or 3 according as the material x-axis, y-axis, or the z-axis is normal to projection. In the case of composite plate elements (CTRIA1, CTRIA2, CQUAD1, and CQUAD2 only), strains and curvatures are also output on request. The options available and the output formats are similar to those available in the case of stresses as described above. The quadrilateral elements are intended for use when the surfaces are reasonably flat and the geometry is nearly rectangular. For these conditions, the quadrilateral elements eliminate the modeling bias associated with the use of triangular elements, and quadrilaterals give more accurate results for the same mesh size. If the surfaces are highly warped, curved, or swept, triangular elements should be used. Under extreme conditions quadrilateral elements will give results that are considerably less accurate than triangular elements for the sane mesh size. Quadrilateral elements should be kept as nearly square as practicable, as the accuracy tends to deteriorate as the aspect ratio of the quadrilateral increases. Triangular elements should be kept as nearly equilateral as practicable, because the accuracy tends to deteriorate as the angles become obtuse and as the ratio of the longest to the shortest side increases. 1.3.6 Axisymmetric Shell Elements The properties of axisymmetric shells can be specified with either of two elements, the conical shell (CONEAX) or the toroidal ring (TORDRG). However, these cannot be used together in the same model. Also available for thick shells of revolution are the axisymmetric solid elements (TRIARG, TRAPRG, TRIAAX, and TRAPAX) which are described in the next section. Thin shell (TRSHL) modeling is described in Section 1.3.12. 1.3.6.1 Conical Shell (CONEAX) Element The properties of the conical shell element are assumed to be symmetrical with respect to the axis of the shell. However, the loads and deflections need not be axisymmetric, as they are expanded in Fourier series with respect to the aximuthal coordinate. Due to symmetry, the resulting load and deformation systems for different harmonic orders are independent, a fact that results in a large time saving when the use of the conical shell element is compared with an equivalent model constructed from plate elements. Theoretical aspects of the conical shell element are treated in Section 5.9 of the Theoretical Manual. The conical shell element may be combined with TRIAAX and TRAPAX elements only. The existence of a conical shell problem is defined by the AXIC card. This card also indicates the number of harmonics desired in the problem formulation. Only a limited number of bulk data cards are allowed when using conical shell elements. The list of allowable cards is given on the AXIC card description in Section 2.4.2. The geometry of a problem using the conical shell element is described with RINGAX cards instead of GRID cards. The RINGAX cards describe concentric circles about the basic z-axis, with their locations given by radii and z- coordinates as shown in Figure 1.3-7. The degrees of freedom defined by each RINGAX card are the Fourier coefficients of the motion with respect to angular position around the circle. For example the radial motion, ur, at any angle, , is described by the equation: N n N n* ur () = ur cos n + ur sin n (1) n=0 n=0 where urn and urn* are the Fourier coefficients of radial motion for the n- harmonic. For calculation purposes the series is limited to N harmonics as defined by the AXIC card. The first sum in the above equation describes symmetric motion with respect to the = 0 plane. The second sum with the "starred" (*) superscripts describes the antisymmetric motion. Thus each RINGAX data card will produce six times (N+l) degrees of freedom for each series. The selection of symmetric or antisymmetric solutions is controlled by the AXISYM card in the Case Control Deck. For general loading conditions, a combination of the symmetric and antisymmetric solutions must be made, using the SYMCOM card in the Case Control Deck (Section 2.3 of User's Manual). Since you are rarely interested in applying loads in terms of Fourier harmonics and interpreting your data by manually performing the above summations, NASTRAN is provided with special cards which automatically perform these operations. The POINTAX card is used like a GRID card to define physical points on the structure for loading and output. Sections of the circle may be defined by a SECTAX card, which defines a sector with two angles and a referenced RINGAX card. The POINTAX and SECTAX cards define six degrees of freedom each. The implied coordinate system for these points is a cylindrical system (r, , z) and their applied loads must be described in this coordinate system. Since the displacements of these points are dependent on the harmonic motions, they nay not be constrained in any manner. The conical shell element is connected to two RINGAX points with a CCONEAX card. The properties of the conical shell element are described on the PCONEAX card. The RINGAX points must be placed on the neutral surface of the element and the points for stress calculation must be given on the PCONEAX card relative to the neutral surface. Up to fourteen angular positions around the element may be specified for stress and force output. These values will be calculated midway between the two connected rings. The structure defined with RINGAX and CCONEAX cards must be constrained in a special manner. All harmonics may be constrained for a particular degree of freedom on a ring by using permanent single-point constraints on the RINGAX cards. Specified harmonics of each degree of freedom on a ring may be constrained with a SPCAX card. This card is the same as the SPC card except that a harmonic must be specified. The MPCAX, OMITAX, and SUPAX data cards correspond the MPC, OMIT, and SUPORT data except that harmonics must be specified. SPCADD and MPCADD cards may be used to combine constraint sets in the usual manner. The stiffness matrix includes five degrees of freedom per grid circle per harmonic when transverse shear flexibility is included. Since the rotation about the normal to the surface is not included, either the fourth or the sixth degree of freedom (depending upon the situation) must be constrained to zero when the angle between the meridional generators of two adjacent elements is zero. When the transverse shear flexibility is not included, only four independent degrees of freedom are used, and the fourth and sixth degrees of freedom must be constrained to zero for all rings. These constraints can be conveniently specified on the RINGAX card. The conical shell structure may be loaded in various ways. Concentrated forces may be described by FORCE and MOMENT cards applied to POINTAX points. Pressure loads may be input in the PRESAX data card which defines an area bounded by two rings and two angles. Temperature fields are described by a paired list of angles and temperatures around a ring as required by the TEMPAX card. Direct loads on the harmonics of a RINGAX point are given by the FORCEAX and MOMAX card. Since the implied coordinate system is cylindrical, the loads are given in the r, , and z directions. The value of a harmonic load Fn is the total load on the whole ring of radius r. If a sinusoidal load per unit length of maximum value an is given, the value on the FORCEAX card must be Fn = 2 r an n = 0 , (2) Fn = r an n > 0 . (3) Displacements of rings and forces in conical shell elements can be requested in two ways: 1. The harmonic coefficients of displacements on a ring or forces in a conical element. 2. The displacements at specified points or the average value over a specified sector of a ring. The forces in the element at specified azimuths or average values over specified sectors of a conical element. Harmonic output is requested by ring number for displacements and conical shell element number for element forces. The number of harmonics that will be output for any request is a constant for any single execution. This number is controlled by the HARMONICS card in the Case Control Deck (see Section 2.3). The following element forces per unit of width are output either as harmonic coefficients or at specified locations on request: - Bending moments on the u and v faces - Twisting moments - Shearing forces on the u and v faces The following element stresses are calculated at two specified points on the cross-section of the element and output either as harmonic coefficients or at specified locations on request: - Normal stresses in u and v directions - Shearing stress on the u face in the v direction - Angle between the u-axis and the major principal axis - Major and minor principal stresses - Maximum shear stress The manner in which the data cards for the CONEAX element (as well as for the TRAPAX and TRIAAX elements) are processed is described in Section 1.3.7.3. 1.3.6.2 Toroidal Ring (TORDRG) Element The cylindrical coordinate system for the toroidal ring is implied by the use of the toroidal element, and hence, no explicit definition is required. The toroidal element may use orthotropic materials. The axes of orthotropy are assumed to coincide with the element coordinate axes. Deformation behavior of the toroidal element is described by five degrees of freedom for each of the two grid rings which it connects. The degrees of freedom in the implicit coordinate system are: _ 1. u - radial displacement 2. Not defined for toroidal element (must be constrained) _ 3. w - axial displacement 4. w' = aw/ae slope in e-direction 5. u' = au/ae strain in e-direction 6. w'' = a^2w/ae^2 curvature in ze-plane The displacements u and w are in the basic coordinate system, and hence can be expressed in other local coordinate systems if desired. However, the quantities u', w', and w'' are always in the element coordinate system. The toroidal ring element connectivity is defined with a CTORDRG card and its properties with a PTORDRG card and, in the limit, this element becomes a cap element (see Section 5.10 of the Theoretical Manual). The integers 1 and 2 refer to the order of the connected grid points on the CTORDRG card. The grid points must lie in the r-z plane of the basic coordinate system and they must lie to the right of the axis of symmetry. The angles 1 and 2 are the angles of curvature and are defined as the angle measured in degrees from the axis of symmetry to a line which is perpendicular to the tangent to the surface at grid points 1 and 2 respectively. For conic rings 1 = 2 and for cylindrical rings 1 = 2 = 90 degrees. Toroidal elements may be connected to form closed figures in the r-z plane, but slope discontinuities are not permitted at connection points. The following forces, evaluated at each end of the toroidal element, are output on request: - Radial force - Axial force - Meridional moment - A generalized force which corresponds to the w' degree of freedom. - A generalized force which corresponds to the w'' degree of freedom. The first three forces are referenced to the global coordinate system and the two generalized forces are referenced to the element coordinate system. For a definition of the generalized forces see Section 5.10 of the Theoretical Manual. The following stresses, evaluated at both ends and the midspan of each element, are output on request: - Tangential membrane stress (Force per unit length) - Circumferential membrane stress (Force per unit length) - Tangential bending stress (Moment per unit length) - Circumferential bending stress (Moment per unit length) - Shearing stress (Force per unit length) 1.3.7 Axisymmetric Solid Elements Two sets of elements are provided for representing thick axisymmetric shell and/or solid structures (see Section 5.11 of the Theoretical Manual). The first set, the triangular ring TRIARG and trapezoidal ring TRAPRG, is restricted to axisymmetric applied loadings only. The second set is not restricted to axisymmetric loadings and, like the conical shell element, their displacements and loads are represented by coefficients of a Fourier series about the circumference. These elements, the TRIAAX and the TRAPAX, also define a triangular and a trapezoidal cross section respectively. The elements of one set may not be used together with elements of the other set nor with any other elements except the combination of TRIAAX and TRAPAX elements with the conical shell element (CONEAX). 1.3.7.1 TRIARG and TRAPRG Elements The triangular and trapezoidal ring elements may be used for modeling axisymmetric thick-walled structures of arbitrary profile. In the limiting case only the TRAPRG element may become a solid core element. The coordinate systems for the triangular and trapezoidal ring elements are shown in Figures 1.3-10 and 1.3-11, respectively. The cylindrical system is implied by the use of these ring elements. Hence, no explicit definition of the basic cylindrical coordinate system is required. Cylindrical anisotropy is optional for the material properties in the ring elements. Orientation of the orthotropic axes in the (r,z) plane is specified by the angle . The deformation behavior of the elements is described in terms of the translations in the r and z directions at each of the connected grid points. All other degrees of freedom must be constrained. The triangular ring element is defined with a CTRIARG card. No property card is used for this element. The material property reference is given on the connection card. The integers 1, 2, and 3 in Figure 1.3-10 refer to the order of the connected grid points on the CTRIARG card. This order must be counter- clockwise around the element. The grid points must lie in the r-z plane of the basic cylindrical coordinate system, and they must lie to the right of the axis of symmetry. The radial and axial forces at each connected grid point are output on request. The positive directions for these forces are shown in Figure 1.3-10. These are apparent element forces and they include any equivalent thermal loads. The stresses at the centroid of an element are output on request. The available quantities are the normal stresses in the radial, circumferential and axial directions, and the shear stress on the radial face in the axial direction. Positive stresses are in the positive direction on the positive face. The trapezoidal ring element is defined with a CTRAPRG card in a manner similar to that for a triangular element. This element is similar to the triangular ring element. This element has the additional restriction that the element numbering must begin at the lower left hand corner of the element. Also, the parallel faces of the trapezoid must be perpendicular to the axis of symmetry (see Figure 1.3-11). This element can be used in the limiting case where the r coordinates associated with grid points 1 and 4 are zero. In this special case the element is referred to as a core element. The forces at the four connected grid points are provided on request in a manner similar to that for a triangular element. In addition to providing the stresses at the four connected grid points of the trapezoid, similar stresses are provided at a point of average radius and average z-distance from the four points. 1.3.7.2 TRIAAX and TRAPAX Elements The two solid of revolution elements which are provided for representing nonaxisymmetric loadings on axisymmetric structures with thick or solid cross sections are the TRIAAX and TRAPAX elements. These define a triangle and a trapezoidal cross section of the structure. They are functionally similar to the conical shell element (see Section 1.3.6) and physically similar to the TRAPRG and TRIARG axisymmetric ring elements described above (see Figures 1.3- 10 and 1.3-11). The elements are connected to RINGAX points which define displacement degrees of freedom represented by coefficients of a Fourier series about the circumference. Due to symmetry, the resulting load and deformation systems for the different harmonic orders are uncoupled, resulting in large time savings compared to a general three-dimensional model. Theoretical aspects of the solid of revolution elements are treated in Section 5.11 of the Theoretical Manual. Definitions of the Fourier series representation of the structural displacements and loads are given in Section 5.9 of the Theoretical Manual. As in the conical shell formulation, no other element types may be combined with these elements. The following special case control cards, used also with the conical shell problem, are used with the solid of revolution elements: AXISYM - Defines whether the cosine series, sine series, or combination of displacements are to be calculated. HARMONICS - Limits the output to all harmonics up to and including the nth harmonic; default is 0. The geometry of a problem using these elements is defined by the RINGAX cards. The harmonic limit in the Fourier expansion is defined by the required AXIC card. The RINGAX card does not allow a zero radius. However, a small "hole" may be defined around the axis of revolution. To avoid inaccuracies, a warning is issued for each element whose inner radius is less than one-tenth its outer radius. Property cards PTRAPAX and PTRIAAX are used to identify the material and the circumferential locations for stress output. The material type is limited to MAT1 and MAT3 definitions. The following bulk data cards, also used with the conical shell elements, are available with the solid of revolution elements: AXIC - Defines limit of displacement Fourier series. SPCAX - Defines single point constraints and enforced displacements on specified degrees of freedom. MPCAX - Defines multipoint constraints connecting specified degrees of freedom. OMITAX - Defines degrees of freedom to be removed by structural partitioning. SUPAX - Defines free-body support points. POINTAX - Defines circumferential location on a RINGAX station for applied loading and/or output. SECTAX - Defines a circumferential sector on a RINGAX station for distributed applied forces. FORCE - Defines a concentrated force at a POINTAX or load per length at a SECTAX location on the structure. FORCEAX - Defines a generalized force directly on a specified harmonic of a RINGAX station. PRESAX - Defines a pressure load. TEMPAX - Defines a temperature distribution at a RINGAX point for thermal loading and temperature-dependent matrices. The implied coordinate system for the solid of revolution elements is a cylindrical coordinate system (r, , z). The rotational degrees of freedom (components 4, 5, and 6) must be constrained. The output quantities for the RINGAX points are the displacement coefficients for each harmonic. The output for the POINTAX degrees of freedom are the sum of the harmonics giving the physical displacements at the point, while the output for the SECTAX points are the average displacements over the circumferential sector. These quantities are available only in SORT1 format. The stress output for these elements is similar to that for the TRIARG and TRAPRG elements described above. However, since the stresses vary around the circumference, each element output includes the Fourier coefficients of stress for each harmonic, followed by the stresses at the angular locations specified on the property card. Stresses are calculated at the centroid of the cross section on the TRIAAX element. Stresses are calculated at the four corners as well as at a fifth "grid point" on the TRAPAX element, which is located an average radius and average length from the four corner points. 1.3.7.3 Data Processing for the CONEAX, TRAPAX, and TRIAAX Axisymmetric Elements The data cards submitted by you for the CONEAX, TRAPAX, and TRIAAX axisymmetric elements are processed by the NASTRAN Preface to produce equivalent grid point, element connection, constraint, and load data card images. Each specified harmonic, n, of the Fourier series solution produces a complete set of these special data card images. In order to retain unique internal identification numbers for each harmonic, your (or external) identification numbers are encoded by the following algorithms. RINGAX Cards NASTRAN (or internal) grid ID = Your (or external) ring ID + 1,000,000 x n (n = 1, 2, 3, ..., N, where N = highest harmonic defined on the AXIC card) CONEAX, TRAPAX, and TRIAAX Connection Cards NASTRAN (or internal) element ID = Your (or external) element ID x 1,000 + n (n = 1, 2, 3, ..., N) The exact manner in which the above data cards as well as other data cards for these elements are processed by the NASTRAN Preface is fully described in Section 4.6.7 of the Programmer's Manual. You should use the NASTRAN (or internal) identification numbers (and not your or external identification numbers) in specifying the data for plotting purposes. (See, for instance, the description of the SET card in Section 4.2.2.4.) 1.3.8 Scalar Elements Scalar elements are connected between pairs of degrees of freedom (at either scalar or geometric grid points) or between one degree of freedom and ground. Scalar elements are available as springs, masses, and viscous dampers. Scalar spring elements are useful for representing elastic properties that cannot be conveniently modeled with the usual metric structural elements. Scalar masses are useful for the selective representation of inertia properties, such as occurs when a concentrated mass is effectively isolated for motion in one direction only. The scalar damper is used to provide viscous damping between two selected degrees of freedom or between one degree of freedom and ground. It is possible, using only scalar elements and constraints, to construct a model for the linear behavior of any structure. However it is expected that these elements will be used only when the usual metric elements are not satisfactory. Scalar elements are useful for modeling part of a structure with its vibration modes or when trying to consider electrical or heat transfer properties as part of an overall structural analysis. The reader is referred to Sections 5.5 and 5.6 of the Theoretical Manual for further discussions on the use of scalar elements. The most general definition of a scalar spring is given with a CELAS1 card. The associated properties are given on the PELAS card. The properties include the magnitude of the elastic spring, a damping coefficient, and a stress coefficient to be used in stress recovery. The CELAS2 card defines a scalar spring without reference to a property card. The CELAS3 card defines a scalar spring that is connected only to scalar points and the properties are given on a PELAS card. The CELAS4 card defines a scalar spring that is connected only to scalar points and without reference to a property card. No damping coefficient or stress coefficient is available with the CELAS4 card. Scalar elements may be connected to ground without the use of constraint cards. Grounded connections are indicated on the connection card by leaving the appropriate scalar identification number blank. Since the values for scalar elements are not functions of material properties, no references to such cards are needed. The CDAMP1, CDAMP2, CDAMP3, and CDAMP4 cards define scalar dampers in a manner similar to the scalar spring definitions. The associated PDAMP card contains only a value for the scalar damper. 1.3.9 Mass Inertia properties are specified directly as mass elements attached to grid points and indirectly as the properties of matrix structural elements. In addition, dynamic analysis mass matrix coefficients may be specified that are directly referred to the global coordinate system. Some portions of the mass matrix are generated automatically while other portions are not. Mass data may be assembled according to two different kinds of relationships: lumped mass assumptions or coupled mass considerations. Additional information on treatment of inertia properties is given in Section 5.5 of the Theoretical Manual. 1.3.9.1 Lumped Mass The partitions of the lumped mass matrix are explained in Section 5.5.3 of the Theoretical Manual, but to aid you the form is repeated here in Equation 1. Scalar 1st m N Moment ij ij M = = (1) 1st 2nd T I Moment Moment N ij ij The only portion of the lumped mass matrix that is automatically generated is the scalar partition. This implies that no first moment and second moment terms for the lumped mass matrix are automatically generated. In this context, automatic generation means the calculation of the mass from the structural elements that are connected to a given grid point, solely from the information provided on the element connection and property card. All of the metric structural elements (rods, bars, shear panels, twist panels, plates, and shell elements) may have uniformly distributed structural and nonstructural mass. Structural mass is calculated from material and geometric properties. The mass is assumed to be concentrated in the middle surface, or along the neutral axis in the case of rods and bars, so that rotary inertia effects, including the torsional inertia of beams, are absent. In the lumped mass method, the mass of an element is simply divided into equal portions and each portion is assigned to only one of the surrounding grid points. Thus, for uniform rods and bars, one-half of the mass is placed at each end; for uniform triangles, one-third of the mass is placed at each corner; quadrilaterals are treated as two pairs of overlapping triangles (see the Theoretical Manual Sections 5.3 and 5.8). The lumped mass matrix is independent of the elastic properties of elements. There are no other automatic routines for providing mass terms for the lumped mass approach. 1.3.9.2 Coupled Mass In the coupled mass approach, properties of mass pertaining to a single structural element include off-diagonal coefficients that couple action at adjacent grid points. For further amplification of the techniques used in the coupled mass approach see Section 5.5.3 of the Theoretical Manual. To invoke the automatic generation of the coupled mass matrix, the parameter COUPMASS is indicated on the PARAM card. If selected coupled mass properties are desired only for certain element types, this is obtained by a second parameter call specifying the element. For further details see the PARAM bulk data card. When using COUPMASS, the nonzero terms are generated in off-diagonal positions of the mass matrix corresponding generally to nonzero terms of the stiffness matrix. This implies that a mass matrix generated by the coupled mass approach will generally have a density and topology equivalent to that of the stiffness matrix. Off-diagonal mass terms may also be created during Guyan reduction when the OMIT or ASET bulk data cards are used to condense the stiffness and mass matrices. Any mass associated with the omitted degrees of freedom will be redistributed to the remaining degrees of freedom forming a coupled mass matrix. The use of multipoint constraints (MPC cards) with mass terms on the dependent degrees of freedom produces a similar effect. The mass on the dependent coordinate will be transformed to the connected independent coordinates, thereby coupling them together. Mathematically, these operations and the element coupled mass formulations described above are closely related. 1.3.9.3 Mass Input In many cases it may be desired to add mass terms to the structure in addition to those generated by the structural elements. For instance, in a lumped mass formulation any additional masses involving rotational degrees of freedom must be independently calculated and input manually via bulk data cards. The concentrated mass elements CONM1 and CONM2 may be used to add mass terms directly to a single grid point. The CONM2 element is used to specify a rigid body with mass and inertia properties that is connected to a single grid point (offsets are allowed). The CONM1 element has a more general input format to allow directional mass terms. The notation on the CONM1 card is explicit; that is, subscripting of each term spans the degree of freedom range from 1 through 6. On the CONM2 card, double subscripting is used only for the second moment partition. Therefore, the correspondence for symbols between CONM1 entries and CONM2 entries for the second moment partition is as follows: I11, I21, I22, I31, I32, and I33 on the CONM2 card (defined in Theoretical Manual section 5.5.2.2 by the integrals of Equations 13, 14, and 15) correspond to M44, M54, M55, M64, M65, and M66 on CONM1 (M54 = -Ixy, M64 = -Ixz, M65 = -Iyz) with sign changes on the off- diagonal terms as shown in Equation 10 of the referenced section. The program multiplies each cross product of inertia term from CONM2 user data by (-1) before assembling this data into the mass matrix, to make it correspond to the requirements of Equation 10. An alternative to specifying mass information for the lumped mass method is to use the CMASSi and the PMASSi cards. This allows the option of treating mass as finite elements, one degree of freedom at a time. A particularly advantageous feature of the CMASSi card is the ability to couple mass terms between grid points and/or scalar points. When dynamic rigid formats are used, the direct matrix input (DMIG) may be used to supply grid point mass data. When mass information is entered via DMIG cards, it will remain dormant until activated by a call from Case Control via the M2PP card. When a DMAP sequence is used or a rigid format is ALTERed, another form is available for presenting mass information via the DMI card. The DMI card is not recognized as a legitimate source of bulk data for the rigid formats, unless an ALTER is used. In all cases a combination of mass input can be used. For instance, the translational inertias can be generated automatically by the element routines, while the first and second moment properties can be provided through CONM2 cards. Some elements can be used to provide coupled mass properties through the COUPMASS parameter, while other contributions to the same grid points can be made by direct matrix input through DMIG cards. The information from these several sources will be summed in the formation of the final mass matrix. 1.3.9.4 Output from the Grid Point Weight Generator The Grid Point Weight Generator (GPWG) module computes the rigid body mass properties of an entire structure with respect to your specified point and with respect to the center of mass. Output from the module is requested by a PARAM card in the Bulk Data Deck which specifies from which grid point mass computations are to be referenced. Optionally, the absence of a specific grid point automatically causes the origin of the basic coordinate system to be utilized as a reference. The mass properties are initially defined in the basic coordinate system. Subsequently, the mass properties are transformed to principal mass axes and to principal inertia axes. The actual printout is composed of several elements. These are 1. Title MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM This is the rigid body mass matrix of the entire structure in the basic coordinate system with respect to a reference point chosen by the analyst. 2. Title S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION S is the transformation from the basic coordinate system to the set of principal axes for the 3 x 3 scalar mass partition of the 6 x 6 mass matrix. The principal axes for just the scalar partition are known as the principal mass axes. 3. Title X-C.G. Y-C.G. Z-C.G. It is possible in NASTRAN to assemble a structural model having different values of mass in each coordinate direction at a grid point. This can arise for example assembling scalar mass components or from omitting some components by means of bar element pin flags. Consequently three distinct mass systems are assembled, one in each of the three directions of the principal mass axes (the S system). This third tabulation has five columns. The first column lists the axis direction in the S coordinates. The second column lists the mass associated with the appropriate axis direction. The final three columns list the x, y, and z coordinate distances from the reference point to the center of mass for each of the three mass systems. 4. Title I(S) - INERTIAS RELATIVE TO C.G. This is the 3 x 3 mass moment of inertia partition with respect to the center of gravity referred to the principal mass axes (the S system). This is not necessarily a diagonal matrix because the determination of the S system does not involve second moments. The values of inertias at the center of gravity are found from the values at the reference point by employing the parallel axes rule. 5. Title I(Q) - PRINCIPAL INERTIAS The principal moments of inertia at the center of gravity are displayed in matrix form with reference to the Q system of axes. The Q system is obtained from an eigenvalue analysis of the I(S) matrix. 6. Title Q - TRANSFORMATION MATRIX --I(Q) = QT*I(S)*Q Q is the coordinate transformation between the S axes and the Q axes. 1.3.9.5 Bulk Data Cards for Mass A summary chart is given in Table 1.3-1 to help in the selection of the method of input for a given type of mass information. Descriptions of individual cards for the entering of mass information into the bulk data are listed here: 1. Element data from the combined sources of C(-), P(-), and MATi cards will automatically cause the translational mass (scalar) terms of the mass matrix to be generated, provided a density value and/or a nonstructural density factor is entered. 2. The MASSi cards define scalar masses. CMASSi cards define connections between a pair of degrees of freedom (at either scalar or geometric grid points) or between one degree of freedom and ground. Thus, f1 = m(x1 - x2) where x2 may be absent. The CMASS1 cards (i = 1 through 4) are necessary whenever scalar points are used. PMASSi cards define mass property magnitudes. Other applications include selective representations of inertia properties, such as occur in shell theory where in-plane inertia forces are often ignored. 3. The CONM2 card defines the properties of a solid body: m, its mass, x1, x2, x3, the three coordinates of its center of gravity offset with respect to the grid point, I11, I22, I33, its three moments of inertia, and I12, I13, I23, and its three products of inertia, all with respect to any (selected) coordinate system. If a local cylindrical or a spherical coordinate system is chosen to define the mass properties, the offset distances of the mass c.g. from the grid point are measured along the axes (r, , z or p, , ) defined at the grid point in that local system. Also note, that the mass properties of inertia are computed relative to a set of axes at the mass c.g. which are parallel to those r, , z or p, , axes at that grid point. The CONM2 element routine uses the parallel axis theorem to transform inertias with respect to the center of gravity to inertias with respect to the grid point. Section 5.5.2.1 of the Theoretical Manual describes how to treat the signs of cross products of inertia terms on CONM2 cards. 4. The CONM1 card defines a 6 x 6 matrix of mass coefficients at a geometric grid point in any selected coordinate system. Since the only restrictions are that the matrix be real and symmetric, there are 21 possible independent coefficients. The CONM1 card therefore permits somewhat more general inertia relationships than those of a solid body which has only 10 independent inertia properties. This should be remembered in applications requiring unique centers of gravity, such as in the calculation of centrifugal forces. See Section 5.5.2.5 of the Theoretical Manual for a discussion of inertia properties resulting from CONM1 card input. 5. The DMIG (or DMIGAX for axisymmetric structures) card accommodates matrix entries by grid point and component. This is a general card that can be used for mass, stiffness, or damping matrices. It becomes particularized to mass when the name given to the matrix is called by an M2PP card in Case Control. Data defined by this card will be recognized as admissible only when used with dynamic rigid formats 7 through 12. 6. The DMI card is used to assign values according to row-column positions in a matrix. This is a general card for any kind of matrix which becomes particularized to mass when the name given to the matrix is called from a DMAP statement. Data defined by this card will be recognized as admissible only when used in a DMAP sequence or in an ALTER to a rigid format. 7. The COUPMASS entry on the PARAM card will activate the "consistent" mass matrix algorithms in the element routines which generate mass coupling properties between grid points. There are three options available to regulate whether the coupling properties are generated for all or some types of elements (see PARAM bulk data card). A set of entries for a second PARAM card of the form CP(element name) is available for use in connection with COUPMASS for selecting the element types for which coupling terms will be computed. 8. The OMIT (or OMIT1, or OMITAX for axisymmetric structures, or ASET for obverse operations) card will cause the initially-generated mass matrix to be condensed from the omitted degrees of freedom to the remaining degrees of freedom. The condensing process generally produces a mass term in every matrix position in which there is a nonzero stiffness term in the corresponding reduced stiffness matrix. 9. The GRDPNT entry on the PARAM card will activate the Grid Point Weight Generator (GPWG) module previously discussed. It will treat the mass properties of the entire structure as though the structure were rigid and it will determine the translational (scalar) mass properties, the first and second moment properties of the rigid body structure, and the center of gravity distances with respect to your specified reference grid points. It also computes the 6 x 6 matrix of mass properties with respect to the center of mass and the orientation of the principal mass axes. =PAGE= Table 1.3-1. Bulk Data Card Choices for Mass Properties Versus Method of Mass Representation. Representation Method Lumped Coupled Grid Ĵ Point Automatic Manual Automatic Manual Weight Ĵ Generator All R.F.s DMAP (Total R.F.s 7,8,9 or R.F Structure) Mass Property ALTER Translational Element MASSiMASSi DMI PARAM DMIG PARAM GRDPNT Mass (Scalar) Routines CONM1CONM1 COUPMASS + DMIGAX C (elem.)+CONM2CONM2 PARAM CP P (elem.)+ DMIG (element) MATi DIMGAX OMIT for struct OMIT1 and non- OMITAX struct. ASET contribs. Ĵ First Moment Ĵ Second Moment* Ĵ All Order Moments and Off-Diagonal Properties Between Grid Points * No torsional moment of inertia is generated for BAR elements when COUPMASS and CPBAR are specified. Also, in the case of plate elements, no second moment properties are computed with respect to the axis normal to the elements. 1.3.10 Solid Polyhedron Elements Three types of solid polyhedron elements are provided for the general solid structures (see Section 1.3.7 for axisymmetric structures with axisymmetric loads). These elements (see Figure 1.3-12) are a tetrahedron, a wedge, and a hexahedron. The theory is given in Section 5.12 of the Theoretical Manual. These elements can be used with all other NASTRAN elements, except the axisymmetric elements. Connections are made only to displacement degrees of freedom at the grid points. The elements are defined by CTETRA, CWEDGE, CHEXA1, and CHEXA2 connection cards. You should specify grid locations such that the quadrilateral faces are nearly planar. No special element coordinate system is required. The only properties required are material properties; thus no PID card is referenced; direct reference is made to a MID card. For thermal stress problems, the temperature is assumed to be the average of the connected grid points. Differential stiffness, buckling, and piecewise linear analyses have not been implemented. The output stresses are given in the basic coordinate system. In addition to the six normal and shear stresses, output also includes the pressure po = - 1/3 (x + y + z) and the octahedral stress 2 2 2 2 2 2 1/2 o = 1/3[(x - y) + (y - z) + (z - x) + 6yz + 6zx + 6xy ) The stresses in the tetrahedra are constant. The stresses in the wedge and the hexahedron are obtained as the weighted average of the stresses in the subtetrahedra. The weighting factor for each tetrahedron is proportional to its volume. 1.3.11 Isoparametric Solid Hexahedron Elements Three types of isoparametric solid hexahedron elements are provided for general solid structures. These elements (see Figure 1.3-13) are a linear, a quadratic, and a cubic isoparametrIc hexahedron. The theory is given in Section 5.13 of the Theoretical Manual. These elements can be used with all other NASTRAN elements, except the axisymmetric elements. Connections are made only to the translational degrees of freedom at the grid points. The elements are defined by CIHEX1, CIHEX2, and CIHEX3 connection cards. All three of these cards reference the PIHEX property card. These elements may use anisotropic materials by reference to a MAT6 card on the PIHEX card. The isoparametric solid hexahedron elements allow you to accurately define a structure with fewer elements and grid points than might otherwise be necessary with simple constant strain solid elements. The linear element generally gives best results for problems involving mostly shear deformations, and the higher order elements give good results for problems involving both shearing and bending deformations. Only a coupled mass matrix is generated to retain the inherent accuracy of the elements. Temperature, temperature- dependent material properties, displacements, and stresses may vary through the volume of the elements. The values at interior points of the element are interpolated using the isoparametric shape function. For best results, the applied grid point temperatures should not have more than a "gentle" quadratic variation in each of the three dimensions of the element. If the element has non-uniform applied temperatures, or if it is not a rectangular parallelopiped, three or more integration points should be specified on the PIHEX card. Severely distorted element shapes should be avoided. Stiffness, mass, differential stiffness, structural damping, conductance, and capacitance matrices may be generated with these elements. Piecewise linear analysis has not been implemented. The output stresses are given in the basic coordinate system. The stresses are assumed to vary through the element. Therefore, stresses are computed at the center and at each corner grid point of these elements. For the quadratic and cubic elements, they are also computed at the mid-point of each edge of the element. In addition to the six normal and shear stresses, output also includes the principal stresses (Sx, Sy, and Sz), the direction cosines of the principal planes, the mean stress n = - 1/3 (x + y + z) and the octahedral shear stress 2 2 2 1/2 o = {1/3[(Sx + n) + (Sy + n) + (Sz + n) ]} 1.3.12 Shallow Shell Element A higher order shallow triangular shell element (TRSHL) formulated from the TRIM6 and TRPLT1 elements is available. The inplane and bending properties are coupled and the geometry of the element may be curved. If the element is flat and either the inplane or bending properties are negligible, the element degenerates to the TRPLT1 or TRIM6 element, respectively. The element has grid points at the vertices and at the midpoints of the sides of the triangle (see Figure 1.3-14). At each grid point, there are five degrees of freedom in the element coordinate system: that is, the membrane displacements, u and v, parallel to the x and y axes, the transverse displacement, w, in the z-direction normal to the x-y plane (with positive direction outward from the paper) and the rotations of the normal to the shell, and , about the x-z and y-z planes (with positive directions following from the right-hand rule). The element, thus, has 30 degrees of freedom in the element coordinate system. The membrane displacements, u and v, for the shell are expressed as quadratic polynomials and are the same as for the higher order membrane triangular element, TRIM6. The displacement function for the normal deflection, w, is taken as a quintic polynomial as in the higher order bending triangular element, TRPLT1. The geometry of the shell surface is approximated by a quadratic polynomial in basic coordinates. Shallow shell theory is used to include the membrane-bending coupling effects. Thus, the element should be used only in cases where the shell is truly shallow. However, reasonably good accuracy is seen even when the elements are used to analyze shells that are only marginally shallow. You are cautioned, however, to be careful while interpreting results obtained when the shell analyzed is very deep. Due to the excessive computation time associated with such calculations, the transverse shear flexibility is not taken into account in the element formulation. Further discussion of this element is treated in Section 5.14 of the Theoretical Manual. The connectivity of this element is described by a CTRSHL card and the properties are defined by a PTRSHL card. The element may be used in the statics, normal modes, and differential stiffness rigid formats. Loads may be mechanical or thermal. Element forces per unit width are output for the following quantities: - Bending moments on the x and y faces - Twisting moment - Shear forces on the x and y faces The element forces are calculated at the three corners and the centroid. The sign conventions for these forces are the same as previously discussed in Section 1.3.5. Stresses are output for the following quantities: - Normal stresses in the x and y directions - Shear stress on the x face in the y direction - Angle between the x-axis and the major principal axis - Major and minor principal stresses (zero shear) - Maximum shear stress The stresses will be calculated at the specified fiber distances from the elastic axis defined on the property card and are always calculated at the top and bottom fibers for the centroid of the element. The sign conventions for the stresses are the same as previously discussed in Section 1.3.5. =PAGE= y b(grid) x I2=Iyy / wb/b(end) Plane 1/ V1/ / (a) Element coordinate / / system / / / / /Plane 2 / / / / wa / / z a(grid) a(end) I1=Izz y v1 M1a (inplane)Ŀ M1b (inplane) Fx Ŀ x T (CCW Fx T (CCW about x) a Plane 1 b about Tx) v1 z v2 (b) Element forces M2a (inplane)Ŀ M2b (inplane) Ŀ x Plane 2 v2 Figure 1.3-1. Bar element coordinate system and element forces =PAGE= P P < > x T a b T (clockwise about x) (counterclockwise about x) Figure 1.3-2. Rod element coordinate system and element forces =PAGE= y 4 3 Ŀ (a) Coordinate system x 1 2 K4 K3 \ F41 \ F32 \ q3 \ F43F34 4 3 (b) Corner forces and shear flows q2 q4 K1 K2 \ \ \ \ F12F21 1 q1 2 F14 F23 Figure 1.3-3. Coordinate system and element forces for shear panel and CQDMEM2 elements =PAGE= y M13 \ \ 4 \ 3 Ŀ M24 / / / / / / M24 / x 1 \ 2 \ \ M13 Figure 1.3-4. Twist panel coordinate system and element forces =PAGE= y 3\ \ \ \ \ \ \ \ \ / \ / \ / \ x 1 2 (a) y 4Ŀ3 / / / x 1 2 (b) Figure 1.3-5. Plate and membrane element coordinate systems =PAGE= Vy (a) Plate element forces My / y / / Mxy Mx / / Ŀ / / / / / / MxyĿ z / / / Vx / / / / / / Vx Ŀ / Mxy /x / / Mx Mxy / / / MyĿ Vy y (b) Membrane element stresses xy Ŀ x x xy y Figure 1.3-6. Forces and stresses in plate and membrane elements =PAGE= z uz - displacement coordinates z (rotation) u ur \ / \ /r (rotation) (rotat.)\ / \/ / / / RB / / / / / / / / / / / / / RA / / / / / Figure 1.3-7. Geometry for conical shell element =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.3-8. Toroidal ring element coordinate system =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.3-9. Stresses for toroidal element =PAGE= z,w,Fz 3 /\ / \ / \ / \ w2,Fz2 / \ / \ Axis of / \ symmetry u2,Fr2 1 2 / / / / / (Material orientation) r,u,Fr Figure 1.3-10. Triangular ring element coordinate system =PAGE= z,w 4 Z3=Z4 3 / / / / / / / / Axis of / / symmetry 1 Z1=Z2 2 / / / / / (Material orientation) r,u Figure 1.3-11. Trapezoidal ring element coordinate system =PAGE= G4 * (a) Tetrahedron /\ / \ / \ / \ G1* \ \ . \ \ . \ \ . \ \ . \ ** G2 G3 G4_____G6 /\ /\ (b) Wedge and one of its / \ / \ six decompositions / *G5 \ G1* ij *G3 \ / \ / \ / \ / * G2 G6 * /\ / \ / \ / \ G1* \ \ . \ \ . \ \ . \ \ . \ ** G2 G3 G8 G7 (c) Hexahedron ** /| / / / / | / / G6 / | G5** *G4_ _ _ _ _ _ _ _ _ _ _ _ _ *G3 / / | | / / / / / / G1**G2 Figure 1.3-12. Polyhedron elements and their subtetrahedra =PAGE= 7 6 ** (a) Linear /| / / / / | / / 5 / 8** *3 _ _ _ _ _ _ _ _ _ _ _ _ _ *2 / / / / / / / / 4**1 17 16 15 *** (b) Quadratic / / / | 14* 18* *11 / / | 20 13 / *10 19*** *5 _ _ _ _ _ _*_ _ _ _ _ _ _ *3 / 4 / 12* *6 *9 / / *2 / / / / *** 7 8 1 27 26 25 24 **** (c) Cubic 28*| / / *19 23* *18 29* | / / *15 31 32 22* *14 30****21 *7 _ _ *6_ _ _ _*5 _ _ _ _ _ *4 20* / 17* / | *8 | *3 16* / 13* / *9 *2 / / ****1 10 11 12 Figure 1.3-13. Isoparametric solid hexahedron elements =PAGE= *G5 / \ ye / \ . | / \ . | G6* .*G4 | / . \ | / . TH \ |/. \ *- - - -*- - - -* -------xe G1 G2 G3 Figure 1.3-14. Triangular shallow shell element geometry and coordinate systems =PAGE= 1.4 CONSTRAINTS AND PARTITIONING Structural matrices are initially assembled in terms of all structural grid points, which excludes only the extra scalar points introduced for dynamic analysis. These matrices are generated with six degrees of freedom for each geometric grid point and a single degree of freedom for each scalar point. Various constraints are applied to these matrices in order to remove undesired singularities, provide boundary conditions, define rigid elements, and provide other desired characteristics for the structural model. There are two basic kinds of constraints. Single-point constraints are used to constrain a degree of freedom to zero or to a prescribed value; multipoint constraints and rigid elements are used to constrain one or more degrees of freedom to be equal to linear combinations of the values of other degrees of freedom. The following types of bulk data cards are provided for the definition of constraints: 1. Single-point constraint cards 2. Multipoint constraint cards and rigid element connection cards 3. Cards to define reaction points on free bodies 4. Cards to define the omitted coordinates in matrix partitioning The latter type does not produce constraint forces in static analysis. 1.4.1 Single-Point Constraints A single-point constraint applies a fixed value to a translational or rotational component at a geometric grid point or to a scalar point. One of the most common uses of single-point constraints is to specify the boundary conditions of a structural model by fixing the appropriate degrees of freedom. Multiple sets of single-point constraints can be provided in the Bulk Data Deck, with selections made at execution time by using the subcase structure in the Case Control Deck as explained in Section 2.3.3. This procedure is particularly useful in the solution of problems having one or more planes of symmetry. The elements connected to a grid point may not provide resistance to motion in certain directions, causing the stiffness matrix to be singular. Single-point constraints are used to remove these degrees of freedom from the stiffness matrix. A typical example is a planar structure composed of membrane and extensional elements. The translations normal to the plane and all three rotational degrees of freedom must be constrained since the corresponding stiffness matrix terms are all zero. If a grid point has a direction of zero stiffness, the single-point constraint need not be exactly in that direction, but only needs to have a component in that direction. This allows the use of single-point constraints for the removal of such singularities regardless of the orientation of the global coordinate system. Although the displacements will depend on the direction of the constraint, the internal forces will be unaffected. One of the tasks performed by the Structural Matrix Assembler (Section 4.27 of the Programmer's Manual) is to examine the stiffness matrix for singularities at the grid point level. An input NASTRAN card entry STST, to control the tolerance, is available. Singularities remaining at this level, following the application of the single-point constraints, are listed in the Grid Point Singularity Table (GPST). This table is automatically printed following the comparison of the possible singularities tabulated by the Structural Matrix Assembler with the single-point constraints and the dependent coordinates of the multipoint constraint equations provided by you. The GPST contains all possible combinations of single-point constraints, in the global coordinate system, that can be used to remove the singularities. These remaining singularities are treated only as warnings, because it cannot be determined at the grid point level whether or not the singularities are removed by other means, such as general elements or multipoint constraints in which these singularities are associated with independent coordinates. See the GPSPC module description in Section 5.10 for automatic removal of singularities. Single-point constraints are defined on SPC, SPC1, SPCADD, and SPCAX cards. The SPC card is the most general way of specifying single-point constraints. The SPC1 card is a less general card that is more convenient when a number of grid points have the same components constrained to a zero displacement. The SPCADD card defines a union of single-point constraint sets specified with SPC or SPC1 cards. The SPCAX card is used only for specifying single-point constraints in problems using conical shell elements. Single-point constraints can also be defined on the GRID card. In this case, however, the constraints are part of the model and modifications cannot be made at the subcase level. Also, only zero displacements can be specified on the GRID card. 1.4.2 Multipoint Constraints and Rigid Elements Multipoint constraints and rigid elements are used to constrain one or more degrees of freedom to be equal to linear combinations of the values of other degrees of freedom. In the former case, you must explicitly provide the coefficients of the equations. In the latter case, you provides only the connection data and the program internally generates the required coefficients. 1.4.2.1 Multipoint Constraints Each multipoint constraint is described by a single equation that specifies a linear relationship for two or more degrees of freedom. Multiple sets of multipoint constraints can be provided in the Bulk Data Deck, with selections made at execution time by using the subcase structure in the Case Control Deck as explained in Section 2.3.3. Multipoint constraints are discussed in Sections 3.5.1 and 5.4 of the Theoretical Manual. Multipoint constraints are defined on MPC, MPCADD, and MPCAX cards. The MPC card is the basic card for defining multipoint constraints. The first coordinate mentioned on the card is taken as the dependent degree of freedom, i .e., that degree of freedom that is removed from the equations of motion. Dependent degrees of freedom may appear as independent terms in other equations of the set; however, they may appear as dependent terms in only a single equation. The MPCADD card defines a union of multipoint constraint sets specified with MPC cards. The MPCAX card is used only for specifying multipoint constraints in problems using conical shell elements. Some uses of multipoint constraints are: 1. To enforce zero motion in directions other than those corresponding with components of the global coordinate system. In this case, the multipoint constraint will involve only the degrees of freedom at a single grid point. The constraint equation relates the displacement in the direction of zero motion to the displacement components in the global system at the grid point. 2. To describe rigid elements and mechanisms such as levers, pulleys, and gear trains. In this application, the degrees of freedom associated with the rigid element that are in excess of those needed to describe rigid body motion are eliminated with multipoint constraint equations. Treatment of very stiff members as being rigid elements eliminates the ill-conditioning associated with their treatment as ordinary elastic elements. 3. To be used with scalar elements to generate nonstandard structural elements and other special effects. 4. To describe parts of a structure by local vibration modes. This application is treated in section 14.1 of the Theoretical Manual. The general idea is that the matrix of local eigenvectors represents a set of constraints relating physical coordinates to modal coordinates. You provide the coefficients in the multipoint constraint equations defined on MPC, MPCADD, and MPCAX cards. 1.4.2.2 Rigid Elements Rigid elements provide a convenient means of specifying very stiff connections. You do not provide the required coefficients directly. The program internally generates them from the connection data. Rigid elements are discussed in Section 3.5.6 of the Theoretical Manual. Rigid elements are defined on CRIGDR, CRIGD1, CRIGD2, and CRIGD3 cards. The CRIGDR card defines a pin-ended rod element that is rigid in extension-compression. The CRIGD1 card defines a rigid element connection in which all six degrees of freedom of each of the dependent grid points are coupled to all six degrees of freedom of the reference grid point. The CRIGD2 card is more general and defines a connection in which selected degrees of freedom of the dependent grid points are coupled to all six degrees of freedom of the reference grid point. The CRIGD3 card is the most general and defines a rigid element in which selected degrees of freedom of the dependent grid points are coupled to six selected degrees of freedom at one or more (up to six) reference grid points. On all of the rigid element connection cards, you specify the degrees of freedom that belong to the dependent set. This specification is implicit on the CRIGD1 card and explicit on the others. It is important to note that a dependent degree of freedom appearing in a rigid element may not appear as dependent in any other rigid element or on a MPC card nor may it be constrained in any other manner. Also, when using the CRIGD3 card, you must ensure that the six selected degrees of freedom at the reference grid points together are capable of representing any general rigid body motion of the element. When using several rigid elements and multipoint constraints, you will often find it useful to turn on DIAGs 21 and 22 in the Executive Control Deck to obtain the GP4 definition of sets of degrees of freedom. 1.4.3 Free Body Supports In the following discussion, a free body is defined as a structure that is capable of motion without internal stress; that is, it has one or more rigid body degrees of freedom. The stiffness matrix for a free body is singular with the defect equal to the number of stress-free, or rigid body, modes. A solid three-dimensional body has up to six rigid body modes. Linkages and mechanisms can have a greater number. No restriction is placed in the program on the number of stress-free modes, in order to permit the analysis of mechanisms. Free-body supports are defined with a SUPORT card. In the case of problems using conical shell elements, the SUPAX card is used. In either case, only a single set can be specified, and if such cards appear in the Bulk Data Deck, they are automatically used in the solution. Free-body supports must be defined in the global coordinate system. In static analysis by the displacement method, the rigid body modes must be restrained in order to remove the singularity of the stiffness matrix. The required constraints may be supplied with single-point constraints, multipoint constraints, or free-body supports. If free-body supports are used, the rigid body characteristics will be calculated and a check will be made on the sufficiency of the supports. Such a check is obtained by calculating the rigid body error ratio as defined in the Rigid Body Matrix Generator operation in Section 3.2.2. This error ratio is automatically printed following the execution of the Rigid Body Matrix Generator. The error ratio should be zero, but may be nonzero for any of the following reasons: 1. Round-off error accumulation 2. Insufficient free-body supports have been provided 3. Redundant free-body supports have been provided The redundancy of the supports may be caused by improper use of the free-body supports themselves, or by the presence of single-point or multipoint constraints that constrain the rigid body motions. Static analysis with inertia relief is necessarily made on a model having at least one rigid body motion. Such rigid body motion must be constrained by the use of free-body supports. These supported degrees of freedom define a reference system, and the elastic displacements are calculated relative to the motion of the support points. The element stresses and forces will be independent of any valid set of supports. Rigid body vibration modes are calculated by a separate procedure provided that a set of free-body supports is supplied by you. This is done to improve efficiency and, in some cases, reliability. The determinant method, for example, has difficulty extracting zero frequency roots of high multiplicity, whereas the alternate procedure of extracting rigid body modes is both efficient and reliable. If you do not specify free-body supports (or you specify an insufficient number of them) the (remaining) rigid body modes will be calculated by the method selected for the finite frequency modes, provided zero frequency is included in the range of interest. If you do not provide free-body supports, and if zero frequency is not included in the range of interest, the rigid body modes will not be calculated. Free-body supports must be specified if the mode acceleration method of solution improvement is used for dynamics problems having rigid body degrees of freedom (see Section 9.4 of the Theoretical Manual). This solution improvement technique involves a static solution, and although the dynamic solution can be made on a free-body, the static solution cannot be performed without removing the singularities in the stiffness matrix associated with the rigid body motions. 1.4.4 Partitioning A two-way partitioning scheme is provided as an optional feature for the NASTRAN model. The partitions are defined by listing the degrees of freedom for one of the partitions on the OMIT card. These degrees of freedom are referred to as the "omitted set". The remaining degrees of freedom are referred to as the "analysis set". The OMIT1 card is easier to use if a large number of grid points have the same degrees of freedom in the omitted set. The ASET or ASET1 cards can be used to place degrees of freedom in the analysis set with the remaining degrees of freedom being placed in the omitted set. This is easier if the omitted set is large. In the case of problems using conical shell elements, the OMITAX card is used. Partitioning can be used to improve the efficiency in the solution of ordinary statics problems where the bandwidth of the unpartitioned stiffness matrix is large enough to cause excessive use of secondary storage devices during the triangular decomposition of the stiffness matrix. In this application, the analysis set should be relatively small and should be selected so that the omitted set will consist of uncoupled partitions, each having a bandwidth of approximately the same size and smaller than the original matrix. The omitted set might be thought of as consisting of several substructures which are coupled to the analysis set. Matrix partitioning also improves efficiency when solving a number of similar cases with stiffness changes in local regions of the structure. In this application, the omitted set is relatively large, and should be selected so that the structural elements that will be changed are connected only to points in the analysis set. The stiffness matrix for the omitted set is then unaffected by the structural changes, and only the smaller stiffness matrix for the analysis set need be decomposed for each case. In order to avoid repeating the decomposition of the stiffness matrix for the omitted set, the alter feature must be used to replace the functional module SMP1 with SMP2. The alter feature is described in Section 2.2, and a similar use of SMP2 occurs near the end of the DMAP sequence used in the rigid format for Static Analysis with Differential Stiffness. One of the more important applications of partitioning is the Guyan Reduction, described in Section 3.5.4 of the Theoretical Manual. This technique is a means for reducing the number of degrees of freedom used in dynamic analysis with minimum loss of accuracy. Its basis is that many fewer grid points are needed to describe the inertia of a structure than are needed to describe its elasticity with comparable accuracy. The error in the approximation is small provided that the set of displacements used for dynamic analysis is judiciously chosen. Its members should be uniformly dispersed throughout the structure and all large mass items should be connected to grid points that are members of the analysis set. You are cautioned to consider the fact that the matrix operations associated with this partitioning procedure tend to create nonzero terms and to fill what were previously very sparse matrices. The partitioning option is most effectively used if the members of the omitted set are either a very large fraction or a very small fraction of the total set. In most of the applications the omitted set is a large fraction of the total and the matrices used for analysis, while small, are usually full. If the analysis set is not a small fraction of the total, a solution using the larger, but sparser, matrices, may well be more efficient. The partitioning option can also be used to make modest reductions in the order of the problem by placing a few scattered grid points in the omitted set. If the points in the omitted set are uncoupled, the sparseness in the matrices will be well preserved. 1.4.5 The Nested Vector Set Concept Used to Represent Components of Displacement In constructing the matrices used in the displacement approach, each row and/or column of a matrix is associated closely with a grid point, a scalar point, or an extra point. Every grid point has 6 degrees of freedom associated with it, and hence 6 rows and/or columns of the matrix. Scalar and extra points only have one degree of freedom. At each point (grid, scalar, extra) these degrees of freedom can be further classified into subsets, depending on the constraints or handling required for particular degrees of freedom. (For example, in a two-dimensional problem, all "z" degrees of freedom are constrained and hence belong to the s (single-point constraint) set). Each degree of freedom can be considered as a "point", and the entire model is the collection of these one-dimensional points. Nearly all of the matrix operations in displacement analysis are concerned with partitioning, merging, and transforming matrix arrays from one subset of displacement components to another. All the components of displacement of a given type (such as all points constrained by single-point constraints) form a vector set that is distinguished by a subscript from other sets. A given component of displacement can belong to several vector sets. The mutually exclusive vector sets, the sum of whose members are the set of all physical components of displacements, are as follows: um points eliminated by multipoint constraints and rigid elements, us points eliminated by single-point constraints, uo points omitted by structural matrix partitioning, ur points to which determinate reactions are applied in static analysis, ul the remaining structural points used in static analysis (points left over), ue extra degrees of freedom introduced in dynamic analysis to describe control systems, etc. The vector sets obtained by combining two or more of the above sets are (+ sign indicates the union of two sets): ua = ur + ul, the set used in real eigenvalue analysis, ud = ua + ue, the set used in dynamic analysis by the direct method, uf = ua + uo, unconstrained (free) structural points, un = uf + us, all structural points not constrained by multipoint constraints, ug = un + um, all structural (grid) points including scalar points, up = ug + ue, all physical points. In dynamic analysis, additional vector sets are obtained by a modal transformation derived from real eigenvalue analysis of the set ua. These are: o rigid body (zero frequency) modal coordinates, f finite frequency modal coordinates, i = o + f, the set of all modal coordinates. One vector set is defined that combines physical and modal coordinates. That set is uh = i + ue, the set used in dynamic analysis by the modal method. The nesting of vector sets is depicted by the following diagram: Ŀ um us uo un ug up ur uf ua ud ul ue o uh i f The data block USET (USETD in dynamics) is central to this set classification. Each word of USET corresponds to a degree of freedom in the problem. Each set is assigned a bit in the word. If a degree of freedom belongs to a given set, the corresponding bit is on. Every degree of freedom can then be classified by analysis of USET. The common block /BITPOS/ relates the sets to bit numbers. A table indicating the various sets to which each degree of freedom belongs may be obtained by setting DIAG 21 in the Executive Control Deck. This table provides a listing of each grid, scalar, and extra point in the model and shows the assignment of each associated degree of freedom (six or one) to the sets L, A, F, N, G, R, O, S, and M. The S-set is further divided into the SB and SG "sub" sets to indicate constraints applied by SPC cards or GRID cards, respectively. Tables that indicate the membership of A-set, O-set, S-set, and M-set may be obtained by setting DIAG 22 in the Executive Control Deck. These tables summarize the degree of freedom assignments for sets M, S, O, and A. The S-set is further divided into the SPC and PERM SPC "sub" sets to indicate constraints applied by SPC cards or GRID cards, respectively. In constructing the matrices used in the heat approach, you must constrain five of the six degrees of freedom associated with each grid point. Since the only unknown at a grid point is its temperature, there is only one degree of freedom per grid point. In constructing the matrices used in the aero approach, the aerodynamic degrees of freedom (including extra points) are added after the structural matrices have been determined. This introduces the following displacement sets: uk aerodynamic box and body degrees of freedom usA permanently constrained degrees of freedom associated with aerodynamic grid points ups the union of up and usA upA the union of uk and ups The nesting of the vector sets in the aero approach is indicated in the following diagram: uk usA upA ups up The upa set replaces the up set for output at grid, scalar, and extra points. =PAGE= 1.5 APPLIED LOADS 1.5.1 Static Loads In NASTRAN, static loads are applied to geometric and scalar grid points in a variety of ways, including: 1. Loads applied directly to grid points. 2. Pressure on surfaces. 3. Gravity loads (internally generated). 4. Centrifugal forces due to steady rotation. 5. Equivalent loads resulting from thermal expansion 6. Equivalent loads resulting from enforced deformations of structural elements. 7. Equivalent loads resulting from enforced displacements of grid points. Additional information on static loads is given in Section 3.6 of the Theoretical Manual. Any number of load sets can be defined in the Bulk Data Deck. However, only those sets selected in the Case Control Deck, as described in Section 2.3, will be used in the problem solution. The manner of selecting each type of load is specified on the associated bulk data card description in Section 2.4. The FORCE card is used to define a static load applied to a geometric grid point in terms of components defined by a local coordinate system. The orientation of the load components depends on the type of local coordinate system used to define the load. The directions of the load components are the same as those indicated on Figure 1.2-1 of Section 1.2 for displacement components. The FORCE1 card is used if the direction is determined by a vector connecting two grid points, and a FORCE2 card is used if the direction is specified by the cross product of two such vectors. The MOMENT, MOMENT1, and MOMENT2 cards are used in a similar fashion to define the application of a concentrated moment at a geometric grid point. The SLOAD card is used to define a load at a scalar point. In this case, only the magnitude is specified, as only one component of motion exists at a scalar point. The FORCEAX and MOMAX cards are used to define the loading of specified harmonics on rings of conical shell elements. FORCE and MOMENT cards may be used to apply concentrated loads or moments to conical shell elements, providing that such points have been defined with a POINTAX card. Pressure loads on triangular and quadrilateral elements are defined with a PLOAD2 card. The positive direction of the loading is determined by the order of the grid points on the element connection card, using the right hand rule. The magnitude and direction of the load is automatically computed from the value of the pressure and the coordinates of the connected grid points. The load is applied to the connected grid points. The PLOAD card is used in a similar fashion to define the loading of any three or four grid points regardless of whether they are connected with two-dimensional elements. The PRESAX card is used to define a pressure loading on a conical shell element. Pressure loads on the isoparametric solid elements are defined with the PLOAD3 card. The pressure is defined positive outward from the element. The magnitude and direction of the equivalent grid point forces are automatically computed using the isoparametric shape functions of the element to which the load has been applied. The GRAV card is used to specify a gravity load by providing the components of the gravity vector in any defined coordinate system. The gravity load is obtained from the gravity vector and the mass matrix assembled by the Structural Matrix Assembler (see Section 4.28 of the Programmer's Manual). The gravitational acceleration is not calculated at scalar points. You are required to introduce gravity loads at scalar points directly. The RFORCE card is used to define a static loading condition due to a centrifugal force field. A centrifugal force load is specified by the designation of a grid point that lies on the axis of rotation and by the components of rotational velocity in any defined coordinate system. In the calculation of the centrifugal force, the mass matrix is regarded as pertaining to a set of distinct rigid bodies connected to grid points. Deviations from this viewpoint, such as the use of scalar points or the use of mass coupling between grid points, can result in errors. Temperatures may be specified for selected elements. The temperatures for a ROD, BAR, CONROD, or TUBE element are specified on the TEMPRB data card. This card specifies the average temperature on both ends and, in the case of the BAR element, is used to define temperature gradients over the cross section. Temperatures for two dimensional plate and membrane elements are specified on a TEMPP1, TEMPP2, or TEMPP3 data card. Your defined average temperature over the volume is used to produce in-plane loads and stresses. Thermal gradients over the depth of the bending elements, or the resulting moments, may be used to produce bending loads and stresses. If no thermal element data is given for an element, the temperatures of the connected grid points given on the TEMP, TEMPD, or TEMPAX cards are simply averaged to produce an average temperature for the element. The thermal expansion coefficients are defined on the material definition cards. Regardless of the type of thermal data, if the material coefficients for an element are temperature-dependent by use of the MATTi card, they are always calculated from the "average" temperature of the element. The mere presence of a thermal field does not imply the application of a thermal load. A thermal load will not be applied unless you make a specific request in the Case Control Deck. Enforced axial deformations can be applied to rod and bar elements. They are useful in the simulation of misfit and misalignment in engineering structures. As in the case of thermal expansion, the equivalent loads are calculated by separate subroutines for each type of structural element, and are applied to the connected grid points. The magnitude of the axial deformation is specified on a DEFORM card. Zero enforced displacements may be specified on GRID, SPC, or SPC1 cards. Zero displacements which result in nonzero forces of constraint are usually specified on SPC or SPC1 cards. If GRID cards are used, the constraints become part of the structural model and modifications cannot be made at the subcase level. Nonzero enforced displacements may be specified on SPC or SPCD cards. The SPC card specifies both the component to be constrained and the magnitude of the enforced displacement. The SPCD card specifies only the magnitude of the enforced displacement. When an SPCD card is used, the component to be constrained must be specified on either an SPC or SPC1 card. The use of the SPCD card avoids the decomposition of the stiffness matrix when changes are only made in the magnitudes of the enforced displacements. The equivalent loads resulting from enforced displacements of grid points are calculated by the program and added to the other applied loads. The magnitudes of the enforced displacements are specified on SPC cards (SPCAX in the case of conical shell problems) in the global coordinate system. The application of the load is automatic when you select the associated SPC set in the Case Control Deck. The LOAD card in the Bulk Data Deck defines a static loading condition that is a linear combination of load sets consisting of loads applied directly to grid points, pressure loads, gravity loads, and centrifugal forces. This card must be used if gravity loads are to be used in combination with loads applied directly to grid points, pressure loads, or centrifugal forces. The application of the combined loading condition is requested in the Case Control Deck by selecting the set number of the LOAD combination. It should be noted that the equivalent loads (thermal, enforced deformation, and enforced displacement) must have unique set identification numbers and be separately selected in the Case Control Deck. For any particular solution, the total static load will be the sum of the applied loads (grid point loading, pressure loading, gravity loading, and centrifugal forces) and the equivalent loads. 1.5.2 Frequency-Dependent Loads A discussion of frequency response calculations is given in Section 12.1 of the Theoretical Manual. The DLOAD card is used to define linear combinations of frequency-dependent loads that are defined on RLOAD1 or RLOAD2 cards. The RLOAD1 card defines a frequency-dependent load of the form i(-2f) {P(f)} = {A[C(f) + iD(f)]e } (1) where A is defined on a DAREA card, C(f) and D(f) are defined on TABLEDi cards, is defined on a DPHASE card and is defined on a DELAY card. The RLOAD2 card defines a frequency-dependent load of the form i{(f)+-2f} {P(f)} = {AB(f)e } (2) where A is defined on a DAREA card, B(f) and (f) are defined on TABLEDi cards, is defined on a DPHASE card, and is defined on a DELAY card. The coefficients on the DAREA, DELAY, and DPHASE cards may be different for each loaded degree of freedom. The loads are applied to the specified components in the global coordinate system. A discussion of random response calculations is given in Section 12.2 of the Theoretical Manual. The RANDPS card defines load set power spectral density factors for use in random analysis of the form Sjk(f) = (X + iY)G(f) (3) where G(f) is defined on a TABRNDi card. The subscripts j and k define the subcase numbers of the load definitions. If the applied loads are independent, only the diagonal terms (j=k) need be defined. The RANDT1 card is used to specify the time lag constants for use in the computation of the autocorrelation functions. 1.5.3 Time-Dependent Loads A discussion of transient response calculations is given in Section 11 of the Theoretical Manual. The DLOAD card is used to define linear combinations of time-dependent loads that are defined on TLOAD1 and TLOAD2 cards The TLOAD1 card defines a time-dependent load of the form {P(t)} = {AF(t - )} (4) where A is defined on a DAREA card, is defined on a DELAY card, and F(t-) is defined on a TABLEDi card. The TLOAD2 card defines a time-dependent load of the form {0} ,. t~ < 0 or t~ > T2 - T1 {P(t)} = B Ct~ (5) {At~ e cos(2ft~+P)}, 0 <= t~ <= T2 - T1 where t~ = t - T1 - , and A and are defined as above. The coefficients on the DAREA and DELAY cards may be different for each loaded degree of freedom. The loads are applied to the specified components in the global coordinate system. Nonlinear effects are treated as an additional applied load vector, for which the components are functions of either displacements or velocities. This additional load vector is added to the right side of the equations of motion and treated along with the applied load vector during numerical integration. It is required that the points to which the nonlinear loads are applied and the degrees of freedom on which they depend be members of the solution set, i.e., that they cannot be degrees of freedom eliminated by constraints. It is further required that if a modal formulation is used the points referenced by the nonlinear loads be members of the set of extra scalar points introduced for dynamic analysis. At present, NASTRAN includes four different types of nonlinear elements. For a discussion of nonlinear elements see Section 11.2 of the Theoretical Manual. The NOLIN1 card defines a nonlinear load of the form Pi(t) = SiT(xj) (6) where Pi is the load applied to xi, Si is a scale factor, T(xj) is a tabulated function defined with a TABLEDi card, and xj is any permissible displacement or velocity component. The NOLIN2 card defines a nonlinear load of the form Pi(t) = Si xj yk (7) where xj and yk are any permissible pair of displacement or velocity components. They may be the same. The NOLIN3 card defines a nonlinear load of the form A Si (xj) , xj > 0 Pi(t) = (8) 0 , xj <= 0 where A is an exponent. The NOLIN4 card defines a nonlinear load of the form A -Si (-xj) , xj < 0 Pi(t) = (9) 0 , xj >= 0 Nonlinear loads applied to a massless system without damping will not converge to a steady solution. Use of DIAG 10 (Section 2.2.1) will cause the nonlinear term {Nn+1} to be replaced by 1/3 {Nn+1 + Nn + Nn-1} where Nn+1, Nn, and Nn-1 are the values of the nonlinear loads at time steps preceding the solution time step. Section 11.4 of the Theoretical Manual discusses the integration of coupled equations. =PAGE= 1.6 DYNAMIC MATRICES The dynamic matrices are defined as the stiffness, mass, and damping matrices used in either the direct or modal formulation of dynamics problems. The assembly of dynamics matrices is discussed in Section 9.3 of the Theoretical Manual. There are three general sources for the elements of the dynamic matrices. 1. Matrices generated by the structural matrix assembler. 2. Direct input matrices. 3. Modal matrices obtained from real eigenvalue analysis. The structural matrix assembler generates stiffness terms from the following sources: 1. Structural elements defined on connection cards, for example, CBAR and CROD. 2. General elements defined on GENEL cards. 3. Scalar springs defined on CELASi cards. The structural matrix assembler generates mass terms from the following sources: 1. A 6x6 matrix of mass coefficients at a grid point defined on a CONM1 card. 2. A concentrated mass element defined on a CONM2 card in terms of its mass and moments of inertia about its center of gravity. 3. Structural mass for all elements, except plate elements without membrane stiffness, using the mass density on the material definition card. 4. Nonstructural mass for all elements specifying a value on the property card. 5. Scalar masses defined on CMASSi cards. A discussion of inertia properties, including the lumped mass method and the coupled mass method, is given in Section 5.5 of the Theoretical Manual. The structural matrix assembler will use the lumped mass method for bars, rods, and plates unless the PARAM card COUPMASS (see PARAM bulk data card) is used to request the coupled mass method. The structural matrix assembler generates damping terms from the following sources: 1. Viscous rod elements defined on CVISC cards. 2. Scalar viscous dampers defined on CDAMPi cards. 3. Element structural damping by multiplying the stiffness matrix of an individual structural element by a damping factor obtained from the material properties (MATi) card for the element. In addition, uniform structural damping is provided by multiplying the stiffness matrix generated in structural matrix assembler by a damping factor that is specified by you on the PARAM card G (see PARAM bulk data card). This form of damping is not recommended for hydroelastic problems. The direct input matrices are generated by transfer functions (TF cards) or they are supplied directly by you (DMIG or DMIAX cards). The terms of the direct input matrices may be associated either with grid points or with extra points introduced for dynamic analysis. The modal matrices are obtained from real eigenvalue analysis using the stiffness and mass matrices generated by the structural matrix assembler. 1.6.1 Direct Formulation In the direct method of dynamic problem formulation, the degrees of freedom are simply the displacements at grid points. The dynamic matrices are assembled from the direct input matrices and the stiffness, mass, and damping matrices generated by the structural matrix assembler. The direct input matrices are generated by transfer functions (TF cards) or they are supplied directly by you (DMIG or DMIAX cards). For frequency response analysis and complex eigenvalue analysis the complete dynamic matrices are: [Kdd] = (1 + ig)[Kdd1] + [Kdd2] + i[Kdd4] (1) [Bdd] = [Bdd1] + [Bdd2] (2) [Mdd] = [Mdd1] + [Mdd2] (3) where the subscripts dd indicate the solution set composed of the degrees of freedom remaining after all constraints have been applied and the extra scalar points introduced for dynamic analysis. The matrices K, B, and M are the stiffness, damping, and mass matrices respectively. The superscript 1 indicates the matrices generated by the structural matrix assembler. The superscript 2 indicates the direct input matrices. The matrix [Kdd4] is a structural damping matrix obtained by multiplying the stiffness matrix of an individual structural element by a damping factor obtained from the material properties (MATi) card for the element. The matrix [Kdd1] is multiplied by the damping factor (g) to provide for uniform structural damping in cases where it is appropriate. The constant g is specified by you on a PARAM card (see PARAM bulk data card). For transient response analysis the complete dynamic matrices are: [Kdd] = [Kdd1] + [Kdd2] (4) [Bdd] = [Bdd1] + [Bdd2] + (g/3)[Kdd1] + (1/4)[Kdd4] (5) [Mdd] = [Mdd1] + [Mdd2] (6) where 3 is the radian frequency at which the term (g/3)[Kdd1] produces the same magnitude of damping as the term ig[Kdd1] in frequency response analysis, and 4 is the radian frequency at which the term (1/4)[Kdd4] produces the same magnitude of damping as the term i[Kdd4] in frequency response analysis. The equivalent viscous damping is only an approximation to the structural damping as the viscous damping forces are larger at higher frequencies and smaller at lower frequencies. Therefore, the quantities 3 and 4 are frequently selected by you to be at the center of the frequency range of interest. A small value of g/3 is frequently useful to insure stability of higher modes in nonlinear transient analysis. You specify the values of 3 and 4 on PARAM cards W3 and W4 (see PARAM bulk data card). If 3 and 4 are omitted, the corresponding terms are ignored. 1.6.2 Modal Formulation In the modal method of dynamic problem formulation, the vibration modes of the structure in a selected frequency range are used as degrees of freedom, thereby reducing the number of degrees of freedom while maintaining accuracy in the selected frequency range. The frequency range is specified on PARAM cards by either selecting the number of lowest modes obtained from a real eigenvalue analysis, or selecting all of the modes in a given frequency range (see PARAM bulk data card). It is important to have both direct and modal methods of dynamic problem formulation, in order to maximize efficiency in different situations. The modal method will usually be more efficient in problems where a small fraction of all of the modes are sufficient to produce the desired accuracy, provided that the bandwidth of the direct stiffness matrix is large. The bandwidth may be large due either to a compact structural arrangement or to dynamic coupling effects. The direct method will usually be more efficient for problems in which the bandwidth of the direct stiffness matrix is small and for problems with dynamic coupling in which a large fraction of the vibration modes are required to produce the desired accuracy. For problems without dynamic coupling, that is, for problems in which the matrices of the modal formulation are diagonal, the modal method will frequently be more efficient, even though a large fraction of the modes are needed. The complete dynamic matrices used in dynamic analysis by the modal method include the direct input mass, damping, and stiffness matrices [Mdd2], [Bdd2], [Kdd2], and the modal matrices [mi], [bi], and [ki] obtained from real eigenvalue analysis. The matrix [mi] is the modal mass matrix with off-diagonal terms (which should be zero) omitted. The modal damping matrix [bi] and stiffness matrix [ki] are obtained from [mi] by: [bi] = [2fi g(fi) mi] (7) 2 2 [ki] = [4 fi mi] (8) where fi is the frequency of the ith normal mode and g(fi) is obtained by interpolation of a table supplied by you to represent the variation of structural damping with frequency. This table is defined with a TABDMP1 card. Structural damping will not be used in the modal formulation unless an SDAMPING card is used in the Case Control Deck to select a particular TABDMP1 card. The specification of damping properties for the modal method is somewhat less general than it is for the direct method, in that viscous dampers and nonuniform structural damping are not used. The mode acceleration method of data recovery is optional when using the modal formulation for transient response and frequency response problems; see Section 9.4 of the Theoretical Manual for details. In this procedure, the inertia and damping forces are computed from the modal solution. These forces are then added to the applied forces and the combination is used to obtain a more accurate displacement vector for the structure by static analysis. This improved displacement vector is used in the stress recovery operation. The mode acceleration method is selected with the PARAM card MODACC (see PARAM bulk data card). =PAGE= 1.7 HYDROELASTIC MODELING There are two methods of hydroelastic modeling available in NASTRAN. One is the axisymmetric hydroelastic modeling capability and the other is the three-dimensional hydroelastic modeling capability. These are described in Sections 1.7.1 and 1.7.2, respectively. The NASTRAN axisymmetric hydroelastic modeling capability is designed primarily for the solution of problems involving small motion dynamic response of models with combined structure and fluid effects. The options include both rigid and flexible container boundaries, free surface effects, and compressibility. The fluid is described by axisymmetric finite elements. The structure is described by conventional nonaxisymmetric elements to form matching boundaries with the fluid. The NASTRAN three-dimensional hydroelastic modeling capability is designed for the solution of problems involving interacting, arbitrarily-shaped structures and fluids, including tilted free surfaces, and allows for more efficient methods of obtaining solutions for large-order problems. The fluid is modeled by three-dimensional solid elements with options for tetrahedron, wedge, and hexahedron shapes. The elements are connected to fluid grid points which define the pressure in the fluid at specified locations. The structure may be modeled arbitrarily using conventional NASTRAN elements. The fluids are assumed to be incompressible, irrotational, and non-viscous. 1.7.1 Axisymmetric Hydroelastic Modeling 1.7.1.1 Solution of the NASTRAN Fluid Model The NASTRAN axisymmetric hydroelastic option allows you to solve a wide variety of fluid problems having structural interfaces, compressibility, and gravity effects. A complete derivation of the NASTRAN model and an explanation of the assumptions are given in Section 16.1 of the Theoretical Manual. The input data and the solution logic have many similarities to a structural model. The standard normal modes analysis, transient analysis, complex eigenvalue analysis, and frequency response solutions are available with minor restrictions. The differences between a NASTRAN fluid model and an ordinary structural problem are due to the physical properties of a fluid and are summarized below: 1. The independent degrees of freedom for a fluid are the Fourier coefficients of the pressure function (that is "harmonic pressures") in an axisymmetric coordinate system. The independent degrees of freedom for a structure are typically displacements and rotations at a physical point in space. 2. Much like the structural model, the fluid data will produce "stiffness" and mass matrices. Because they now relate pressures and flow instead of displacements and forces, their physical meaning is quite different. You may not apply loads, constraints, sequencing, or omitted coordinates "directly" on the fluid points involved. Instead, you supply information related to the boundaries and NASTRAN internally generates the correct constraints, sequencing, and matrix terms. Indirect methods, however, are available to you for using the internally generated points as normal grid or scalar points. See Section 1.7.1.4 for the identification code. 3. When a physical structure is to be connected to the fluid, you supply a list of fluid points and a related list of special structural grid points. NASTRAN will produce unsymmetric matrix terms which define the actual physical relations. A special provision is included in NASTRAN in the event that the structure has planes of symmetry. You may, if you wish, define only a section of the boundary and solve your problem with symmetric or antisymmetric constraints. The fluid-structure interface will take the missing sections of structural boundary into account. 4. Because of the special nature of the fluid problems, various user convenience options are absent. The fluid elements and harmonic pressures may not be included in the structural plots at present. Plotting the harmonic pressures versus frequency or time may not be "directly" requested. Because mass matrix terms are automatically generated if compressibility or free surface effects are present, the weight and center of gravity calculations with fluid elements present may not be correct and should be avoided. Also, the inertia relief rigid format uses the mass matrix to produce internal loads and if fluids are included, these special fluid terms in the mass matrix may produce erroneous results. In spite of the numerous differences between a NASTRAN structural model and a NASTRAN fluid model, the similarities allow you to formulate a model with a minimum of data preparation and obtain efficient solutions to large order problems. The similarities of the fluid model to the NASTRAN structural model are as follows: 1. The fluid is described by points in space and finite element connections. The locations of the axisymmetric fluid points are described by rings (RINGFL) about a polar axis, much like the axisymmetric conical shell. The rings are connected by elements (CFLUIDi) which have the properties of density and bulk modulus of compressibility. Each fluid ring produces, internally, a series of NASTRAN scalar points, pn and pn* (that is "harmonic pressures"), describing the pressure function, P(), in the following equation: N n N n* P() = po + p cos n + p sin n 0< N <100 n=1 n=1 where the set of harmonics 0, n, and n* are selected by you. If you want the output of pressure at specific points on the circular ring, you may specify them as "pressure points" (PRESPT) by giving a point number and an angle on a specified fluid ring. The output data will have the values of pressure at the angle, , given in the above equation. The output of free surface displacements normal to the surface (FREEPT) are also available at specified angles, . The Case Control card option "AXISYM = FLUID" is necessary when any harmonic fluid degrees of freedom are included. 2. The input data to NASTRAN may include all of the existing options except the axisymmetric structural element data. All of the existing Case Control options may be included with some additional fluid Case Control requests. All of the structural element and constraint data may be used (but not connected to RINGFL, PRESPT, or FREEPT fluid points). The structure-fluid boundary is defined with the aid of special grid points (GRIDB) which may be used for any purpose that a structural grid point is presently used. 3. The output data options for the structural part of a hydroelastic model are unchanged from the existing NASTRAN options. The output values for the fluid will be produced in the same form as the displacement vectors, but with format modifications for the harmonic data. Printed values for the fluid may include both real and complex values. Pressures and free surface displacements, and their velocities and accelerations, may be printed with the same request (the Case Control request PRESSURE = SET is equivalent to DISP = SET) as structural displacements, velocities, and accelerations. Structural plots are restricted to GRID and GRIDB points and any elements connected to them. X-Y plot and Random Analysis capabilities are available for FREEPT and PRESPT points if they are treated as scalar points. The RINGFL point identification numbers may not be used in any plot request; instead the special internally generated points used for harmonics may be requested in X-Y plots and Random Analysis. See Section 1.7.1.4 for the identification number code. No element stress or force data is produced for the fluid elements. As in the axisymmetric conical shell problem, the Case Control request HARMONICS = N is used to select up to the Nth harmonic for output. 1.7.1.2 Hydroelastic Input Data A number of special NASTRAN data cards are required for fluid analysis problems. These cards are compatible with structural NASTRAN data. A brief description of the uses for each bulk data card follows. AXIF This card controls the formulation of the axisymmetric fluid problem. It is a required card if any of the subsequent fluid-related cards are present. The data references a fluid-related coordinate system to define the axis of symmetry. The gravity parameter is included on the card rather than on the GRAV card because the direction of gravity must be parallel to the axis of symmetry. The values of density and bulk elastic modulus are conveniences in the event that these properties are constant throughout the fluid. A list of harmonics and the request for the nonsymmetric (sine) coefficients are included on this card to allow you to select any of the harmonics without producing extra matrix terms for the missing harmonics. A change in this list, however, will require a restart at the beginning of the problem. RINGFL The geometry of the fluid model about the axis of symmetry is defined with the aid of these data cards. The RINGFL data cards serve somewhat the same function for the fluid as the GRID cards serve in the structural model. In fact, each RINGFL card will produce, internally, a special grid point for each of the various harmonics selected on the AXIF data card. They may not, however, be connected directly to normal NASTRAN structural elements (see GRIDB and BDYLIST data cards). No constraints may be applied directly to RINGFL fluid points. CFLUIDi The data on these cards are used to define a volume of fluid bounded by the referenced RINGFL points. The volume is called an element and logically serves the same purpose as a structural finite element. The physical properties (density and bulk modulus) of the fluid element may be defined on this card if they are variables with respect to the geometry. If a property is not defined, the default value on the AXIF card is assumed. Two connected circles (RINGFL) must be used to define fluid elements adjacent to the axis of symmetry. A choice of three or four points is available in the remainder of the fluid. GRIDB This card provides an alternative to the GRID card for the definition of structural grid points. It also identifies the structural grid point with a particular RINGFL fluid point for hydroelastic problems. The particular purpose for this card is to force you to place structural boundary points in exactly the same locations as the fluid points on the boundary. The format of the GRIDB card is identical to the format of the GRID card except that one additional field is used to identify the RINGFL point. The GRDSET card, however, is not used for GRIDB data. If you desire, you may use GRIDB cards without a fluid model. This is convenient in case you want to solve your structural problem first and to add the fluid effects later without converting GRID cards to GRIDB cards. The referenced RINGFL point must still be included in a boundary list (BDYLIST), see below, and the AXIF card must always be present when GRIDB cards are used. (The fluid effects are eliminated by specifying no harmonics.) FREEPT, PRESPT These cards are used to define points on a free surface for surface displacement output and points in the fluid for pressure output. No constraints may be applied to these points. Scalar elements and direct matrix data may be connected to these points, but the physical meaning of the elements will be different from that in the structural case. FSLIST, BDYLIST The purpose for these cards is to allow you to define the boundaries of the fluid with complete freedom of choice. The FSLIST card defines a list of fluid points which lie on a free surface. The BDYLIST data is a list of fluid points to which structural GRIDB points are connected. Points on the boundary of the fluid for which BDYLIST or FSLIST data are not defined are assumed to be rigidly restrained from motion in a direction normal to the surface. With both of these lists the sequence of the listed points determines the nature of the boundary. The following directions will aid you in producing a list. 1. Draw the z axis upward and the r axis to the right. Plot the locations of the fluid points on the right hand side of z. 2. If one imagines oneself traveling along the free surface or boundary with the fluid on one's right side, the sequence of points encountered is used for the list. If the surface or boundary touches the axis, the word "AXIS" is placed in the list. "AXIS" may be used only for the first and/or last point in the list. 3. The free surface must be consistent with static equilibrium. With no gravity field, any free surface consistent with axial symmetry is allowed. With gravity, the free surface must be a plane perpendicular to the z axis of the fluid coordinate system. 4. Multiple free surface lists and boundary lists are allowed. A fluid point may be included in any number of lists. FLSYM This card allows you to optionally model a portion of the structure with planes of symmetry containing the polar axis of the fluid. The first plane of symmetry is assumed at = 0.0 and the second plane of symmetry is assumed at = 360 degrees/M where M is an integer specified on the card. Also specified are the types of symmetry for each plane, symmetric (S) or antisymmetric (A). You must also supply the relevant constraint data for the structure. The solution is performed correctly only for those harmonic coefficients that are compatible with the symmetry conditions as illustrated in the following example for quarter symmetry, M = 4. Ŀ Plane 2 Ĵ Series Plane 1 S A Ĵ Cosine S 0,2,4,... 1,3,5,... A none none Sine S none none (*) A 1,3,5,... 2,4,6,... DMIAX These cards are used for Direct Matrix Input for special purposes such as surface friction effects. They are equivalent to the DMIG cards, the only difference being the capability to specify the harmonic numbers for the degrees of freedom. A matrix may be defined with either DMIG or DMIAX cards, but not with both. 1.7.1.3 Rigid Formats The characteristics of the fluid analysis problems which cause restrictions on the type of solution are: 1. The fluid-structure interface is mathematically described by a set of unsymmetric matrices. Since the first six Rigid Formats are restricted to the use of symmetric matrices, the fluid-structure boundary is ignored. Thus, for any of these Rigid Formats, the program solves the problem for a fluid in a rigid container with an optional free surface and an uncoupled elastic structure with no fluid present. 2. No means are provided for the direct input of applied loads on the fluid. The only direct means of exciting the fluid is through the structure-fluid boundary. The fluid problem may be formulated in any rigid format. However, only some will provide nontrivial solutions. The suggested Rigid Formats for the axisymmetric fluid and the restrictions on each are described below: Rigid Format No. 3 - Normal Modes Analysis The modes of a fluid in a rigid container may be extracted with a conventional solution request. Free surface effects with or without gravity may be accounted for. Any structure data in the deck will be treated as a disjoint problem. (The structure may also produce normal modes.) Normalization of the eigenvectors using the POINT option will cause a fatal error. Rigid Format No. 7 - Direct Complex Eigenvalue Analysis The coupled modes of the fluid and structure must be solved with this rigid format. If no damping or direct input matrices are added, the resulting complex roots will be purely imaginary numbers, whose values are the natural frequencies of the system. The mode shape of the combination may be normalized to the maximum quantity (harmonic pressure or structural displacement) or to a specified structural point displacement. Rigid Format No. 8 - Direct Frequency and Random Response This solution may be used directly if the loads are applied only to the structural points. The use of overall structural damping (parameter g) is not recommended since the fluid matrices will be affected incorrectly. Output restrictions are listed in Section 1.7.1.1. Rigid Format No. 9 - Direct Transient Response Transient analysis may be performed directly on the fluid-structure system if the following rules apply. 1. Applied loads and initial conditions are only given to the structural points. 2. All quantities are measured relative to static equilibrium. The initial values of the pressures are assumed to be at equilibrium. 3. Overall structural damping (parameters w3 and g) must not be used. 4. Output restrictions are listed in Section 1.7.1.1. Rigid Formats 10, 11, and 12 - Modal Formulations Although these rigid formats may be used in a fluid dynamics problem, their practicality is limited. The modal coordinates used to formulate the dynamic matrices will be the normal modes of both the fluid and the structure solved as uncoupled systems. Even though the range of natural frequencies would be typically very different for the fluid from that for the structure, NASTRAN will select both sets of modes from a given fixed frequency range. The safest method with the present system is the extraction of all modes for both systems with the Tridiagonalization Method. This procedure, however, results in a dynamic system with large full matrices. Direct formulation would be more efficient in that case. At present, the capability for fluid-structure boundary coupling is not provided with Rigid Formats 10, 11, and 12. However, the capability may be provided by means of an ALTER using the same logic as in the direct formulations. 1.7.1.4 Hydroelastic Data Processing The fluid related data cards submitted by you are processed by the NASTRAN Preface to produce equivalent grid point, scalar point, element connection, and constraint data card images. Each specified harmonic, N, of the Fourier series solution produces a complete set of special grid and connection card images. In order to retain unique internal identification numbers for each harmonic, your (or external) identification numbers are encoded by the algorithm below: RINGFL points: NASTRAN (or internal) grid ID = User (or external) ring ID + 1,000,000 x IN where IN = N + 1 cosine series IN = N + 1/2 sine series CFLUIDi connection cards: NASTRAN (or internal) element ID = User (or external) element ID x 1000 + IN where IN is defined above for each harmonic N. For example, if you requested all harmonics from zero to two, including the sine(*) series, each RINGFL card will produce five special grid cards internally. If your identification number (in field 2 of the RINGFL data card) were 37, the internally generated grid points would have the following identification numbers: Harmonic ID 0 1,000,037 1* 1,500,037 1 2,000,037 2* 2,500,037 2 3,000,037 These equivalent grid points are resequenced automatically by NASTRAN to be adjacent to the original RINGFL identification number. A RINGFL point may not be resequenced by you. The output from matrix printout, table printout, and error messages will have the fluid points labeled in this form. If you wish, you may use these numbers as scalar points for Random Analysis, X-Y plotting, or for any other purpose. In addition to the multiple sets of points and connection cards, the NASTRAN Preface also may generate constraint sets. For example, if a free surface (FSLIST) is specified in a zero-gravity field, the pressures are constrained by NASTRAN to zero. For this case, the internally generated set of single point constraints are internally combined with any user defined structural constraints and will always be automatically selected. If pressures at points in the fluid (PRESPT) or gravity dependent normal displacements on the free surface (FREEPT) are requested, the program will convert them to scalar points and create a set of multipoint constraints with the scalar points as dependent variables. The constraint set will be internally combined with any user defined sets and will be selected automatically. The PRESPT and FREEPT scalar points may be used as normal scalar points for purposes such as plotting versus frequency or time. Although the FREEPT values are displacements, scalar elements connected to them will have a different meaning from that in the structural case. 1.7.2 Three-Dimensional Hydroelastic Modeling 1.7.2.1 Solution Approach The three-dimensional hydroelasticity capability in NASTRAN allows for the solution of problems involving interacting, arbitrarily-shaped structures and fluids. It is intended for the vibration analysis of fluid-filled tanks in an acceleration field where the fluid motions interact with the structure displacements. Both free surface sloshing modes and higher frequency coupled modes may be obtained from the analysis. The method used to formulate the fluid/structure equations is described in Reference 1. The basis for defining the fluid is three-dimensional finite elements connected to fluid grid points defining the Eulerian pressure at a point fixed in space. The use of a single degree-of-freedom pressure at each point rather than three displacements allows a finer mesh of elements with a reasonable matrix order. In the formulation of the fluid/structure system, the interior fluid degrees of freedom are transformed and removed from the solution matrices. The eigenvalues of the combination are extracted from small, fully dense, symmetric mass and stiffness matrices, efficiently processed with the "Givens" method. The solution matrices are defined only by the free surface displacements and the reduced structure coordinates. All NASTRAN modeling options are available for the definition of the structure. All options for the Executive Control and Case Control data for normal modes analysis are also available for the hydroelastic problems. In addition to the normal NASTRAN data, a hydroelastic problem requires the addition of a finite element fluid model, the specification of its boundaries, and the addition of special control data. For three-dimensional hydroelastic analysis, the fluid is modeled with three-dimensional finite elements having shapes defined by tetrahedra (CFTETRA), wedge (CFWEDGE), and hexagonal (CFHEX1 or CFHEX2) volumes. The fluid is assumed to be locally incompressible and non-viscous with small motions relative to the overall free body displacements of the system. The following options are provided for defining the fluid boundary conditions. 1. The default boundary is a rigid wall. 2. Pure free surfaces are defined with single point constraints. 3. Free surfaces with gravity effects are specified with CFFREE data cards. 4. Fluid/structure boundaries are defined by CFLSTR data cards. Several alternate paths are available for the execution of the problem and the formulation of the solution equations. These are: 1. Direct versus Modal Structure Formulation In "direct" formulation, the solution matrices are defined by the structure degrees of freedom (after constrained and omitted points are removed) plus one degree of freedom for each free surface point defined on CFFREE data. The alternate "modal" formulation calculates the modes of the empty structure and uses the generalized displacements of these modes with the free surface degrees of freedom in the solution matrix formulation. Although the modal formulation requires the additional cost of another eigenvalue extraction process, the combination system matrices will be smaller. This method is recommended for problems where several different fluid models are used with the same structure model. The structure modes need only be calculated once. Different fluid models may be analyzed using the NASTRAN restart procedure to recover the structure mode data. 2. Compressibility Options Two methods are provided for defining the compressible fluid effects. The overall compressibility of the enclosed volume may be specified as a parametric number which, in effect, provides a stiffness factor applied to the total volume change. The alternate method produces zero volume change by automatically constraining one degree of freedom in the system. The latter method is not allowed in the "modal" formulation option. 3. Differential Stiffness Effects (Ullage Pressure) An option has been provided for including the effects of ullage pressure on the structure stiffness. These additional stiffness terms are calculated in a separate structure-only Rigid Format 4 analysis with pressures defined by static loads. The differential stiffness is transferred to the problem with the NASTRAN checkpoint/restart procedure and is controlled by two parameters, DISTIF and DIFSCALE. In the following sections, the actual NASTRAN input is described. The section on the Executive Control Deck describes the overall system control and the available parametric data. The section on the Case Control Deck describes the control of optional input cases and output requests. The Bulk Data Deck section describes the detailed formats for each bulk data card. 1.7.2.2 Executive Control Deck The hydroelastic Executive Control Deck is similar to that for the standard normal modes analysis, Rigid Format 3. When running the hydroelastic analyses, you must insert one of the special DMAP ALTER packages into your Executive Control Deck. These ALTER packages are delivered with the NASTRAN system. Two special DIAGs are provided for the hydroelastic analysis. DIAG 32 Prints a list of degrees of freedom including fluid point definitions. For each point, an indication is made identifying the sets to which it belongs. DIAG 33 Prints the contents of selected displacement sets. For each set, a list of all degrees of freedom belonging to the set is given. These two DIAGs produce output similar to that provided by DIAGs 21 and 22 except that the following hydroelastic sets are included or modified: Ux = Structure point Uy = Fluid point Ufr = Free surface point Uz = Ux + Ufr Uab = a bits (structure only) Ui = Interior fluid points Ua = Uab + Ufr Hydroelastic DMAP ALTERs Two sets of DMAP ALTERs to Rigid Format 3 are provided to perform the three-dimensional hydroelastic analysis. The ALTERs obtain the hydroelastic solution with either direct or modal formulation. Several optional parameters may be specified by you for each type of formulation. These parameters are all described in Section 1.7.2.4 under the description of the hydroelastic Bulk Data Deck. 1.7.2.3 Case Control Deck The Case Control data for normal modes analysis, Rigid Format 3, is not modified for direct hydroelastic solutions. For modal formulation, the data is similar except that two sets of subcases must be provided. The first set must select an EIGR card (by means of the METHOD card) to define eigenvalue extraction for the structure-only model. Several subcases may be used to define output requests for different vectors with the MODES card. A second set of subcases is also needed to define eigenvalue extraction and output requests for the combined fluid/structure model. If the NEWMODE or OLDSTR parameter is used with modal formulation, only the second set of subcases, used for the complete model, is required. Three sample Case Control Decks are shown below. Direct Formulation: TITLE = SPC = 10 METHOD = 50 DISP = ALL Modal Formulation: TITLE = SPC = 10 SUBCASE 1 LABEL = MODES OF EMPTY STRUCTURE METHOD = 10 DISP = NONE SUBCASE 2 LABEL = MODES WITH FLUID INCLUDED METHOD = 20 DISP = ALL Modal Formulation with Selective Output Requests: TITLE = SPC = 10 SUBCASE 1 LABEL = STRUCTURE MODES 1 & 2 METHOD = 10 DISP = ALL MODES = 2 SUBCASE 3 LABEL STRUCTURE MODES 3 & 4 DISP NONE SUBCASE 5 LABEL = FLUID/STRUCTURE MODES 1-3 METHOD = 20 DISP = ALL MODES = 3 SUBCASE 8 LABEL = FLUID/STRUCTURE MODE 4 DISP = NONE In the third and last example above, the eigenvectors for only the first two structure modes and the first three combined modes will be printed. Hydroelastic Output Control The structure printout and plotting Case Control requests are used to control both the fluid and structure outputs. The following data is available: 1. Structure-related data such as displacements, forces, and stresses are processed with normal NASTRAN control. 2. Fluid internal pressures are output by including their grid point identification numbers in the DISP = output request. If the fluid point is on a free surface defined by CFFREE data, the actual free surface displacements will be printed. 3. Both structure and fluid elements may be plotted as undeformed shapes. The interior fluid point degrees of freedom are actually pressures and should not be plotted as deformed shapes. 4. The deformed shape of the free surface may be plotted using the "SHAPE" or "VECTOR" plot options. It is recommended that PLOTEL elements be used to define the free surface. If the fluid elements CFHEX1, CFHEX2, etc., are used in the requested plot set, all of their boundaries will be plotted and will result in a confused plot. 5. The use of the MODES card to control output requests is described under the Case Control Deck section. 1.7.2.4 Bulk Data Deck The bulk data cards that pertain specifically to three-dimensional hydroelastic modeling are CFFREE, CFHEXi (i = 1 or 2), CFLSTR, CFTETRA, CFWEDGE, and MATF. These are all described in Section 2.4 along with all other NASTRAN bulk data cards. These cards are used to define the fluid and fluid/structure interface. The tank walls and supporting structure are defined with NASTRAN structural elements. The actual tank walls must be defined by two-dimensional membrane, panel, or plate elements. In addition to the special cards mentioned above, the following NASTRAN bulk data cards are used for special hydroelastic purposes: 1. GRID cards are used to define the fluid points. Fluid points contain only one degree of freedom and may not be connected to the structural elements. 2. GRAV cards are used to define the magnitude and direction of the gravity field. The set identification numbers are referenced by the fluid boundary data cards. 3. SPC and SPC1 data cards may be used to define constraints on the fluid grid points. These constraints are used to define regions of zero pressure in the fluid, such as a free surface without gravity effects or anti-symmetric boundary condition on a plane of symmetry. Only degree-of-freedom number 1 may be specified for a fluid grid point. In addition, as indicated in Section 1.7.2.2, several optional parameters may be specified by you for both direct and modal formulations. These parameters are in addition to those already provided in Rigid Format 3 and are entered in the Bulk Data Deck using the PARAM card. The parameters are described below. They are used to: 1. Control the optional computation paths, 2. Specify numerical factors to be used in the formulation, and 3. Allow blocks of DMAP statements to be turned "off" for restart from a previous checkpoint run. Direct Formulation Parameters 1. COMPTYP (optional) default = -1 Controls the type of compressibility calculations performed. A negative integer will cause finite compressibility as defined by the KCOMP parameter. A positive integer will cause constraint equation to be generated to provide pure incompressibility. 2. KCOMP (optional) default = 1.0 The real value of this parameter defines the overall compressibility of the fluid volume. The definition is fluid bulk modulus divided by total volume. 3. DIFSTIF (optional) default = 1 A negative integer value causes the differential stiffness matrix to be included for ullage pressure effects. This matrix is available from the checkpoint file of a Rigid Format 4 solution run of the structure model. 4. DIFSCALE (optional) default = 1.0 The differential stiffness matrix may be multiplied by the real value of this parameter. 5. NEWMODE (optional) default = 1 A negative integer will cause all DMAP statements and ALTERs up to the eigenvalue extraction to be skipped. This allows you to restart the original solution to obtain different eigenvectors without changing the DMAP ALTER deck. 6. OLDSTR (optional) default = 1 A negative value will cause most structure-related processing to be skipped. This allows you to restart a previous solution, either hydro or structure only, and change the fluid model without recomputing the unchanged structure. Modal Formulation Parameters 1. KCOMP (optional) default = 1.0 (same as direct formulation parameter) 2. DIFSTIF (optional) default = 1 (same as direct formulation parameter) 3. DIFSCALE (optional) default = 1.0 (same as direct formulation parameter) 4. NEWMODE (optional) default = 1 (same as direct formulation parameter) 5. OLDSTR (optional) default = 1 (same as direct formulation parameter) 6. LMODES (optional) default = 1 This integer value specifies the number of the lowest structure modes to be used when formulating the hydroelastic matrices. A negative value indicates all available modes are to be used. REFERENCE 1. Final Report, NASTRAN Hydroelastic Modal Studies, Volume I, Introduction, Theory and Results, (by Universal Analytics, Inc.), National Aeronautics and Space Administration, NASA-CR-150393, May 1977. =PAGE= 1.8 HEAT TRANSFER PROBLEMS 1.8.1 Introduction to NASTRAN Heat Transfer NASTRAN heat flow capability may be used either as a separate analysis to determine temperatures and fluxes, or to determine temperature inputs for structural problems. Steady and transient problems can be solved, including heat conduction (with variable conductivity for static analysis), film heat transfer, and nonlinear (fourth power law) radiation. The heat flow problem is similar, in many ways, to structural analysis (Figure 1.8-1). The same grid points, coordinate systems, elements, constraints, and sequencing can be used for both problems. There are several differences, such as the number of degrees of freedom per grid point, the methods of specifying loads, boundary film heat conduction, and the nonlinear elements. For heat flow problems, the only unknown at a grid point is the temperature (compare structural analysis with three translations and three rotations), and hence, there is one degree of freedom per grid point. Additional grid or scalar points are introduced for fluid ambient temperatures in convective film heat transfer. If radiation effects are included or the conductivity of an element is temperature dependent, the problem becomes nonlinear (compare structural analysis with temperature dependent materials which only requires looking up material properties and computing thermal loads). The heat conduction analysis of NASTRAN is compatible with structural analysis. If the same finite elements are appropriate, then the same grid and connection cards can be used for both problems. As in structural analysis, the choice of a finite element model is left to the analyst. Temperature distributions can be output in a format which can be input into structural problems. Heat flow analysis uses many structural NASTRAN Bulk Data cards. These include (where i means there is more than one type): CBAR, CDAMPi, CELASi, CHEXAi, CIHEXi, CONROD, CORDii, CQDMEM, CQUADi, CROD, CTETRA, CTRAPRG, CTRIAi, CTRIARG, CTRMEM, CTUBE, CVISC, CWEDGE, DAREA, DELAY, DLOAD, DMI, DMIG, EPOINT, GRDSET, GRID, LOAD, MPC, MPCADD, NOLINi, OMITi, PARAM, Piii (for elements requiring properties), PLOTEL, SEQiP, SLOAD, SPCi, SPCADD, SPOINT, TABLEDi, TABLEMi, TEMPii, TF, TLOADi, and TSTEP. 1.8.2 Heat Transfer Elements The basic heat conduction elements are the same as NASTRAN structural elements. These elements are shown in the following table: Ŀ Heat Conduction Elements Ĵ Type Elements Ĵ Linear BAR, ROD, CONROD, TUBE Membrane TRMEM, TRIA1, TRIA2, QDMEM, QUAD1, QUAD2 Solid of Revolution TRIARG, TRAPRG Solid TETRA, WEDGE, HEXA1, HEXA2, IHEX1, IHEX2, IHEX3 Scalar CELASi, CDMAPi A connection card (Cxxx) and, if applicable, a property card (Pxxx) is defined for each of these elements. Linear elements have a constant cross-sectional area. The offset on the BAR is treated as a perfect conductor (no temperature drop). For the membrane elements, the heat conduction thickness is the membrane thickness. The bending characteristics of the elements do not enter into heat conduction problems. The solid of revolution element, TRAPRG, has been generalized to accept general quadrilateral rings (that is, the top and bottom need not be perpendicular to the z-axis for heat conduction). These heat conduction elements are composed of constant gradient lines, triangles, and tetrahedra. The quadrilaterals are composed of overlapping triangles, and the wedges and hexahedra from subtetrahedra. Scalar spring elements are used for transient analysis temperature constraints and scalar damping elements are used to add thermal mass. Gradients and fluxes may be output by requesting ELFORCE. Thermal material conductivities and heat capacities are given on MAT4 (isotropic) and MAT5 (anisotropic) Bulk Data cards. Temperature dependent conductivities are given on MATT4 and MATT5 bulk data cards, which can only be used for nonlinear static analysis. The heat capacity per unit volume is specified, which is the product of density and heat capacity per unit mass (pCp). Lumped conductivities and thermal capacitance may be defined by the CELASi and CDAMPi elements, respectively. A special element (HBDY) defines an area for boundary conditions. There are five basic types, called POINT, LINE, REV, AREA3, and AREA4. A sixth type, ELCYL, is for use only with QVECT radiation. The HBDY is considered an element, since it can add terms to the conduction and heat capacity matrices. There is a CHBDY connection and PHBDY property card. When a film heat transfer condition is desired, film conductivity and heat capacity per unit area are specified on MAT4 data cards. The ambient temperature is specified with additional points (GRID or SPOINT) listed on the CHBDY connection card. See Figure 1.8-2 for geometry. Radiation heat exchange may be included between HBDY elements. A list of HBDY elements must be specified on a RADLST Bulk Data card. The emissivities are specified on the PHBDY cards. The Stefan-Boltzmann constant (SIGMA) and absolute reference temperature (TABS) are specified on PARAM Bulk Data cards. Radiation exchange coefficients (default is zero) are specified on RADMTX Bulk Data cards. The several types of power input to the HBDY elements can be output by the ELFORCE request. 1.8.3 Constraints and Partitioning Constraints are applied to provide boundary conditions, represent "perfect" conductors, and provide other desired characteristics for the heat transfer model. Single point constraints are used to specify the temperature at a point. The grid or scalar points are listed on SPC or SPC1 bulk data cards, not GRDSET or GRID cards. The component on the data card must be "0" or "1". This declares the degree of freedom to be in the us set. The method of specifying temperature is dependent upon the problem type. In linear statics analysis, the SPC or SPC1 card is used to constrain grid points at a fixed temperature. In nonlinear statics analysis, the SPC or SPC1 card is used to designate the grid point ID which is to be constrained. The actual value of the temperature is indicated on a TEMP card, selected by TEMP(MATERIAL) in the Case Control deck. In transient analysis, the SPC or SPC1 card may be used to fix the temperature of a grid point only when the temperature is zero. When the temperature is non-zero a large conductive coupling to a "ground" at absolute temperature must be defined. From the structural relationship F=Kx, the thermal analogy is made where K is the conductive coupling, F is an applied load, and x is the fixed temperature. In this case, x is adjusted to the desired temperature by defining the spring constant, K, of a CELASi element, which is connected to "ground", and a load, F, which is applied to the grid point in question. The numerical value of K should be several orders of magnitude greater than the numerical value of the conductances prescribed for the rest of the model. Multipoint constraints are linear relationships between temperatures at several grid points, and are specified on MPC cards. The first entry on an MPC card will be in the um set. The type of constraint is limited if nonlinear elements are present. If a member of set um touches a non-linear (conduction or radiation) element, the constraint relationship is restricted to be an "equivalence". The term "equivalence" means that the value of the member of the um set will be equal to one of the members of the un set (a point not multipoint constrained). Those points not touching nonlinear elements are not so limited. You will be responsible to satisfy the equivalence requirement, by having only two entries on the MPC data card, with equal (but opposite in sign) coefficients. 1.8.4 Thermal Loads Thermal "loads" may be boundary heat fluxes or volume heat addition. As in the case of structural analysis, the method of specifying loads is different for static and transient analysis. The HBDY element is used for boundaries of conducting regions. Surface heat flux input can be specified for HBDY elements with QBDY1 and QBDY2 data cards. These two cards are for constant and (spatially) variable flux, respectively. Flux can be specified without reference to an HBDY element with the QHBDY data card. Vector flux, such as solar radiation, depends upon the angle between the flux and the element normal, and is specified for HBDY elements with the QVECT data card. This requires that the orientation of the HBDY element be defined. Volume heat addition into a conduction element is specified on a QVOL data card. Static thermal loads are requested in Case Control with LOAD card. All of the above load types plus SLOADs can be requested. Transient loads are requested in Case Control with a DLOAD card, which selects TLOAD time functions. Transient thermal loads may use DAREA (as in structural transient), and/or the QBDY1, QBDY2, QHBDY, QVECT, QVOL, and SLOAD cards. The resultant thermal load will be the sum of all loads applied. This means the LOAD SIDs and DAREA SIDs must be the same when referenced on a TLOADi card. 1.8.5 Linear Static Analysis Linear static analysis uses APProach HEAT, SOLution 1. The rigid format is the same as that used for static structural analysis. This implies that several loading conditions and constraint sets can be solved in one job, by using subcases in the Case Control deck. 1.8.6 Nonlinear Static Analysis Nonlinear static analysis uses APProach HEAT, SOLution 3. This rigid format will allow temperature dependent conductivities of the elements, nonlinear radiation exchange, and a limited use of multipoint constraints. There is no looping for load and constraints. The solution is iterative. You can supply values on PARAM Bulk Data cards for: MAXIT (integer) Maximum number of iterations (default 4). EPSHT (real) convergence parameter (default .001). TABS (real) Absolute reference temperature (default 0.0). SIGMA (real) Stefan-Boltzmann radiation constant (default 0.0). IRES (integer) Request residual vector output if positive (default -1). You must supply an estimate of the temperature distribution vector {u1}. This estimate is used to calculate the reference conductivity plus radiation matrix needed for the iteration. {u1} is also used at all points in the us set to specify a boundary temperature. The values of {u1} are given on TEMP Bulk Data cards, and they are selected by TEMP(MATERIAL) in Case Control. Iteration may stop for the following reasons: 1. Normal convergency: T < EPSHT, where T is the per unit error estimate of the temperatures calculated. 2. Number of iterations > MAXIT. 3. Unstable: |1| < 1 and the number of iterations > 3, where 1 is a stability estimator. 4. Insufficient time to perform another iteration and output data. The precise definitions are given in the NASTRAN Theoretical Manual, Section 8.4. Error estimates p, 1, and T for all iterations may be output with the Executive Control card DIAG 18, where p is the ratio of the Euclidian norms of the residual (error) loads to the applied loads on the unconstrained degrees of freedom. 1.8.7 Transient Analysis Transient analysis uses APProach HEAT, SOLution 9. This rigid format may include conduction, film heat transfer, nonlinear radiation, and NASTRAN nonlinear elements. Extra points are used as in structural transient analysis. All points associated with nonlinear loads must be in the solution set. Loads may be applied with TLOAD and DAREA cards as in structural analysis. Also, the thermal static load cards can be modified by a function of time for use in transient analysis. If the static load data is used to define a transient load, the static load set identification is referenced on the TLOAD card in the DAREA field. Loads are requested in Case Control with DLOAD. Initial temperatures are specified on TEMP Bulk Data cards and are requested by IC. Previous static or transient solutions can be easily used as initial conditions, since they can be punched in the correct format. An estimate of the temperature {u1} is specified on TEMP Bulk Data cards for transient with radiation, and is requested by TEMP(MATERIAL). The parameters available are: TABS (real) Absolute reference temperature (default 0.0). SIGMA (real) Stefan-Boltzmann radiation constant (default 0.0). BETA (real) Forward difference integration factor (default .55). RADLIN (Integer)Radiation is linearized if positive (default -1). Time steps are specified on TSTEP data cards. 1.8.8 Compatibility with Structural Analysis Grid point temperatures for thermal stress analysis (static structural analysis) are specified on TEMP Bulk Data cards. If punched output is requested in a heat conduction analysis for Rigid Formats 1 and 3, the format of the punched card is exactly that of a double field TEMP* data card. Thus, if the heat conduction model is the same as the structural model, the same grid, connection, and property cards can be used for both, and the temperature cards for the structural analysis are produced by the heat conduction analysis. The output request in Case Control is THERMAL(PUNCH). =PAGE= Ŀ Ŀ Ŀ SEQGP CORDi Grid Point Coordinate Grid Point Sequence Ŀ System Ĵ Properties Definition Ŀ Ŀ Ŀ CONSTRAINTS Ĵ GRID Cxxx Single Point Ĵ Grid Point Ĵ Conduction & Multipoint Ĵ Definition Boundary Element (Omitted Points) Definition Ŀ Ŀ Ŀ CONSTANT FACTORS STATIC THERMAL Pxxx Load Scale LOADS Property Load Delay Internal Heat Definition Generation Boundary Heat Fluxes Directional Heat Source Ŀ Ŀ DYNAMIC THERMAL MATxx LOADS Material Time Dependent Definition Thermal Loads Ŀ Ŀ TABLEDi TABLEMi Table (Time) Table (Temperature) Figure 1.8-1. Thermal model diagram =PAGE= Type = POINT _ _ _ _ The unit normal vector is given by n = V/|V|, where V is given in the basic system at the referenced grid point (see CHBDY data card, fields 16-18). Type = LINE _ _ _ The unit normal lies in the plane of V and T, is perpendicular to T, and is _ _ _ _ _ _ _ given by n = (T x (VxT))/|T x (VxT)|. Type = ELCYL _ The same logic is used to determine n as for type = LINE. The "radius" R is in _ _ _ 1 the n direction, and R is perpendicular to n and T (see fields 7 and 8 of PHBDY 2 card). Figure 1.8-2. HBDY element orientation (for QVECT flux) (continued) Type = REV _ _ _ _ _ The unit normal lies in the x-z plane, and is given by n = (e x T)/|e x T|. _ y y e is the unit vector in the y direction. y Type = AREA3 or AREA4 _ _ _ _ _ The unit normal vector is given by n = (T x T )/|T x T |, where x = 3 for 12 1x 12 1x triangles and x = 4 for quadrilaterals. Figure 1.8-2. HBDY element orientation (for QVECT flux) (concluded) =PAGE= 1.9 ACOUSTIC CAVITY MODELING 1.9.1 Data Card Functions The NASTRAN structural analysis system is used as the basis for acoustic cavity analysis. Many of the structural analysis options, such as selecting boundary conditions, applying loading conditions, and selecting output data, are also available for acoustics. The data cards specifically used for acoustic cavity analysis are described below. The card formats are exhibited in Section 2.4. Their purposes are analogous to the use of structural data cards. A gridwork of points is distributed over the longitudinal cross section of an acoustic cavity and finite elements are connected between these points to define the enclosed volume. The points are defined by GRIDF data cards for the axisymmetric central fluid cavity and by GRIDS data cards for the radial slots. The GRIDF points are interconnected by finite elements via the CAXIF2, CAXIF3, and CAXIF4 data cards to define a cross sectional area of the body of rotation. The CAXIF2 element data card defines the area of the cross section between the axis and two points off the axis (the GRIDF points may not have a zero radius). The CAXIF3 and CAXIF4 data cards define triangular or quadrilateral cross sections and connect three or four GRIDF points respectively. The density and/or bulk modulus at each location of the enclosed fluid may also be defined on these cards. The GRIDS points in the slot region are interconnected by finite elements via the CSLOT3 and CSLOT4 data cards. These define finite elements with triangular and quadrilateral cross-sectional shapes respectively. The width of the slot and the number of slots may be defined by default values on the AXSLOT data card. If the width of the slots is a variable, the value is specified on the GRIDS cards at each point. The number of slots, the density, and/or the bulk modulus of the fluid may also be defined individually for each element on the CSLOT3 and CSLOT4 cards. The AXSLOT data card is used to define the overall parameters for the system. Some of these parameters are called the "default" values and may be selectively changed at particular cross sections of the structure. The values given on the AXSLOT card will be used if a corresponding value on the GRIDS, CAXIFi, or CSLOTi is left blank. The parameters p (density) and B (bulk modulus) are properties of the fluid. If the value given for Bulk Modulus is zero the fluid is considered incompressible by the program. The parameters M (number of slots) and W (slot width) are properties of the geometry. The parameter M defines the number of equally spaced slots around the circumference with the first slot located at = 0 degrees. The parameter N (harmonic number) is selected by you to analyze a particular set of acoustic modes. The pressure is assumed to have the following distribution p(r,z,) = p(r,z) cos N If N = 0 the breathing and longitudinal modes will result. If N = 1 the pressure at = 180 degrees will be the negative of the pressure at = 0 degrees. If N = 2, the pressures at = 90 degrees and = 270 degrees will be the negative of that at = 0 degrees. Values of N larger than M/2 have no significance. The interface between the central cavity and the slots is defined with the SLBDY data cards. The data for each card consists of the density of the fluid at the interface, the number of radial slots around the circumference, and a list of GRIDS points that are listed in the sequence in which they occur as the boundary is traversed. In order to ensure continuity between GRIDF and GRIDS points at the interface, the GRIDF points on the boundary between the cylindrical cavity and the slots are identified on the corresponding GRIDS data cards rather than on GRIDF cards. Thus, the locations of the GRIDF points will be exactly the same as the locations of the corresponding GRIDS points. Various standard NASTRAN data cards may be used for special purposes in acoustic analysis. The SPC1 data card may be used to constrain the pressures to zero at specified points such as at a free boundary. The formats for these cards are included in Section 2.4. Dynamic load cards, direct input matrices, and scalar elements may be introduced to account for special effects. The reader is referred to Sections 1.4 and 1.5 for instruction in the use of these cards. 1.9.2 Assumptions and Limitations The accuracy of the acoustic model will be dependent on the selection of the mesh of finite elements. The assumption for each element is that the pressure field has a linear variation over the cross section and a sinusoidal variation around the axis in the circumferential direction. In areas where the pressure gradient changes are large, such as near a sharp corner, the points in the mesh should be placed closer together so that large changes in flow may be defined accurately by the finite elements. The shapes of the finite elements play an important part in the accuracy of the results. It has been observed that long narrow elements produce disproportionate errors. Cutting a large square into two rectangles will not improve the results, whereas dividing the square into four smaller squares may decrease the local error by as much as a factor of ten. The slot portion of the cavity is limited to certain shapes because of basic assumptions in the algorithms. The cross section of the cavity normal to the axis must have a shape that is reasonably well defined by a central circular cavity having equally spaced, narrow slots. Various shapes are shown in Figure 1.9-1 in the order of increasing expected error. It is recommended that shapes such as the cloverleaf and square cross section be analyzed with a full three dimensional technique. The assumption of negligible pressure gradient in the circumferential direction within a slot is not valid in these cases. The harmonic orders of the solutions are also limited by the width of the slots. The harmonic number, N, should be no greater than the number of slots divided by two. The response of the higher harmonics is approximated by the slot width correction terms discussed in the NASTRAN Theoretical Manual, Section 17.1. The output data for the acoustic analysis consists of the values of pressure in the displacement vector selected via the case control card "PRESSURE = i". The velocity vector components corresponding to each mode may be optionally requested by the case control card "STRESS = i", where i is the set number indicating the element numbers to be used for output, or by the words "STRESS = ALL". The "SET =" card lists the element or point numbers to be output. Plots of the finite element model and/or of the pressure field may be requested with the NASTRAN plot request data cards. The central cavity cross section will be positioned in the XY plane of the basic coordinate system of NASTRAN. The slot elements are offset from the XY plane by the width of the slot in the +Z direction. The radial direction corresponds to X and the axial direction corresponds to the Y direction. Pressures will be plotted in the Z direction for both the slot points and the central cavity points. The case control data cards for plotting are documented in User's Manual. The PLOTEL elements are used for plotting the acoustic cavity shape. The plot request card "SET n INCLUDE PLOTEL" must be used, where n is a set number. This figure is not included in the machine readable documentation because of complex graphics. Figure 1.9-1. Modeling errors for various shapes =PAGE= 1.10 SUBSTRUCTURING Substructuring is an analytical technique used to facilitate the solution of structural problems by subdividing the structural models into smaller, more manageable components. The most elementary component, or basic substructure, is modeled separately just as any finite element model would be. These basic substructures are combined to build more complex substructures which, in turn, can be progressively combined with other substructures in stages to eventually arrive at the final desired solution model. Once the solution model is analyzed, the results at each stage of the combination process may be recovered until, ultimately, the detailed solution data are recovered for each of the original basic substructures. In effect, substructuring is an extension of basic finite element theory itself, whereby the usual simple beam, plate, and solid elements are replaced by basic substructures which themselves may be viewed as components of even more complex substructures. Substructure analysis is logically performed in at least three phases as follows: Phase 1 Analysis of each individual substructure by NASTRAN to produce a description, in matrix terms, of its properties as seen at the boundary degrees of freedom, ua. Phase 2 Combination of the matrix properties from Phase 1 and the inclusion, if desired, of additional terms to form a "pseudostructure," which is then analyzed by NASTRAN. Phase 3 Completion of the analysis of individual substructures using the {ua} vector produced in Phase 2. To provide maximum program flexibility, both the manual and automated approaches to substructuring are available. The manual approach requires user- generated DMAP alters and can be used in all Rigid Formats except for piecewise linear analysis. The procedures for single-stage, manual substructuring are discussed and illustrated with a complete and fully annotated example of the input in Section 1.10.1. In Section 1.10.2, the automated multi-stage substructuring capabilities available for Rigid Formats 1, 2, 3, 8, and 9 are presented. Unlike the manual substructuring procedures, the automated capabilities provide for: 1. Simple commands to control execution and data recovery at all stages of analysis. 2. Automatically generated DMAP alters. 3. Automated procedures to control and maintain the extensive data files required. 4. Data storage on single direct access file (minimizes or eliminates checkpoint/restart tapes). 5. Data transfer among IBM, CDC, or UNIVAC computers at any stage in the analysis. 6. No restrictions on grid point and element numbering. 7. Modeling only one of two or more identical substructure components. It should be noted that cyclic symmetry is available as an alternate formulation for substructuring structures with rotational or dihedral symmetry. This capability is described in Section 1.12. The more general approaches are described below, starting with the manual, single-stage substructuring, followed by the automated multi-stage substructuring capabilities. 1.10.1 Manual Single-Stage Substructuring The theoretical basis for NASTRAN manual substructuring is given in Section 4.3 of the Theoretical Manual. This technique may be used with any of the rigid formats, except Piecewise Linear Analysis. The following sections present instructions, including DMAP ALTERs for use with two of the rigid formats, static analysis and normal modes analysis. Manual substructure analysis, as here defined, is a procedure in which the structural model is divided into separate parts which are then processed in separate computer executions to the point where the data blocks required to join each part to the whole are generated. The subsequent operations of merging the data for the substructures and of obtaining solutions for the combined problem are performed in one or more subsequent executions, after which detailed information for each substructure is obtained by additional separate executions. The NASTRAN Data Deck for each of the substructures is constructed in the same manner as a NASTRAN analysis without substructuring. The following restrictions must be considered when forming the NASTRAN Data Deck for each of the substructures: 1. All points on boundaries between substructures which are to be joined must have their free (unconstrained) degrees of freedom placed in the a-set. 2. The sequence of internal grid point identification numbers along the boundary between any two substructures must be in the same order. The internal sequence is the external sequence modified by any SEQGP cards. For example, if one substructure had boundary grid point internal identification numbers of 3, 4, 9, 27, and 31, the adjoining substructure could have a corresponding set of internal grid point identification numbers of 7, 11, 21, 22, and 41, but not 7, 11, 22, 21, and 41. This restriction is automatically satisfied if the same grid point numbers, without SEQGP cards, are used on the boundaries for connected substructures. 3. The displacement coordinate system for each group of connected grid points on the boundaries between substructures must be the same. 4. Elements located on the boundary may be placed in either adjacent substructure. 5. The loads applied to boundary points may be arbitrarily distributed between the adjoining substructures. Care should be exercised not to duplicate the loads by placing the entire load on each substructure. 6. The constrained stiffness matrix, [Koo], for each substructure must be non-singular. This requirement is automatically satisfied in most cases, since usually there are enough degrees of freedom on the boundary of the substructure to account for its rigid body motions. In exceptional cases, such as when the substructure is a hinged appendage, it may be necessary for you to assign additional degrees of freedom to ua, rather than uo, via ASET cards. Although the following discussion is limited to single-stage substructuring, there is no inherent restriction on the use of multi-stage substructures in NASTRAN. In multi-stage substructuring, some of the substructures are precombined in Phase 2 to form intermediate substructures. The final combination in Phase 2 then consists of joining two or more intermediate substructures. This procedure will be useful if there are several substructures in the model, and changes are made in only one or a few substructures. In this case, the amount of effort and computer time required for changes in the model can be substantially reduced if the unchanged substructures are initially combined into a single intermediate substructure. 1.10.1.1 Basic Manual Substructure Analysis Basic manual substructure analysis will be described with reference to the simple beam structure shown in Figure 1.10-1. The beam is arbitrarily separated into two substructures, referred to as substructure 1 and substructure 2, with a single boundary point being located at grid point 3. The beam is supported at grid points 1 and 6. No loads are applied to substructure 1. A single load is applied to substructure 2 at grid point 4, and a single load is applied at the boundary to grid point 3. The complete NASTRAN Data Decks for all three phases of a substructure analysis for the beam shown in Figure 1.10-1 are presented in Tables 1.10-1, 1.10-3, 1.10-5, 1.10-7, and 1.10-9. The integers in the left-hand column are used to relate the respective discussions in Tables 1.10-2, 1.10-4, 1.10-6, 1.10-8, and 1.10-10 to the cards in the NASTRAN Data Decks. It should be noted that no output has been requested in the Case Control Deck for substructure 1. If you want to have a plot of the undeformed structure for checking the model, a Plot Package can be inserted in the Case Control Deck in the usual way, as described in Section 4.2. The partitioning matrix gives the relationship between the internal indices associated with the a-set matrices generated in Phase 1 and the external grid point component definition given on the GRID cards that are input to Phase 1 as modified by any SEQGP cards. The same internal indices in Phase 1 for the a-set are redefined in Phase 2 as the indices for the g-set. The word "pseudostructure" is associated with the g-size matrices used in Phase 2. The partitioning matrix for the problem under consideration is given as follows: PARTITIONING MATRIX External Grid-Component Internal Index Substructure 1 Substructure 2 1 3-1 3-1 2 3-2 3-2 3 3-6 3-6 The procedure for constructing a partitioning matrix is as follows: 1. Select any one of the substructures and list the components of the a- set in sequence by grid point and component number as modified by any SEQGP cards (internal sequence). These are the nonzero entries in the partitioning vector for the first substructure. 2. Build the second column of the partitioning matrix by selecting any connected substructure and entering the connected components in the same row as the associated components in the first substructure. 3. Enter all unconnected a-set components in unoccupied rows of the partitioning matrix according to their internal sequence numbers. Unconnected members of the a-set having internal sequence numbers in the range of the connected components will create new intermediate rows in the previously formed columns of the matrix. 4. Build the remaining columns of the partitioning matrix, one for each substructure, by following a similar procedure for all remaining substructures. In each case, first enter all components that are connected to the previously selected substructure or substructures, followed by the remaining unconnected components in their internal sequence. 5. The rows of the partitioning matrix are associated with the sequence of the internal indices for the scalar points in the pseudostructure. Any sequential set of integers may be used to identify these scalar points in Phase 2. 6. The columns of the partitioning matrix (one vector for each substructure) are input with Direct Matrix Input (DMI) cards. The input matrix contains real 1's in all locations in the partitioning matrix having grid point-component entries. See Section 2.4 for DMI card format. The DMI cards (121 and 122 in Table 1.10-1) in the sample problem give the name E1 to the partitioning vector for substructure 1. The first card defines the partitioning vector as being rectangular and consisting of real single- precision entries. The next-to-the-last entry on the first card indicates there are three rows in the g-set matrices input to Phase 2. The second integer 1 on the second card indicates that the first internal index is associated with one of the components in substructure 1; in this case, grid point 3, component 1. The three real 1.0's indicate the first three internal indices are associated with components in substructure 1; in this case, grid point 3, components 1, 2, and 6. In this particular case, only the initial two steps are required to construct the partitioning matrix, and the partitioning vector for substructure 2 will be identical to that for substructure 1. This results from the fact that the single boundary point in this problem is a part of both substructures. The partitioning vectors are not needed until Phase 2. They were arbitrarily input to Phase 1 so they could be included on the User Tape, along with the output matrices from Phase 1. The NASTRAN Data Deck for substructure 2 is given in Table 1.10-3. For identification purposes, the cards are arbitrarily numbered beginning with 150. The Phase 2 operations are concerned with merging the a-set matrices generated in Phase 1 which define the g-size pseudostructure in Phase 2. The NASTRAN Data Deck for Phase 2 is given in Table 1.10-5. The cards are arbitrarily numbered beginning with 201. Although the data deck shown in Table 1.10-5 is prepared for two substructures, it was constructed in such a manner that it could be easily extended to more than two substructures. If there are more than two substructures, cards similar to 216 to 222, 232, and 233 need to be added to the NASTRAN data deck for each additional substructure. The final part of a substructure analysis is to perform data recovery for each substructure of interest. These runs are made as a restart of the Phase 1 runs. Any of the normal rigid format output can be requested, including both undeformed and deformed structure plots. All of the output will be in terms of the elements and grid points defined in the Phase 1 Bulk Data Decks. The NASTRAN Data Deck for the Phase 3 analysis of substructure 1 is given in Table 1.10-7. The NASTRAN data deck for the Phase 3 analysis of substructure 2 is given in Table 1.10-9. Comments are restricted to cards that are different from those presented for the Phase 3 run of substructure 1. 1.10.1.2 Loads and Boundary Conditions The single load and the single boundary condition for the sample problem defined in Section 1.10.1.1 were introduced in Phase 1. It is also possible to introduce loads and boundary conditions in Phase 2. In this case, the loaded and/or constrained degrees of freedom must be included in the a-set for Phase 1, so they will be a part of the pseudostructure in Phase 2. Loads are applied to the pseudostructure in Phase 2 with the SLOAD card. This limits the type of load that can be applied in Phase 2 to directly applied loads. Other loading conditions depending on element properties or connection data, such as thermal loads, gravity loads, and pressure loads, must be applied in Phase 1. Loads may be introduced in both Phases 1 and 2, as the suggested DMAP sequence will add contributions to the load vector from both phases. The lack of generality for the application of loads in Phase 2 will often dictate that static loads be applied in Phase 1. The loads and boundary conditions for the sample problem can be applied in Phase 2 if the modifications shown in Tables 1.10-11 and 1.10-12 are made to the NASTRAN Data Decks presented in Section 1.10.1.1. The modified partitioning matrix with grid points 1, 3, 4, and 6 in the a- set is shown below. PARTITIONING MATRIX External Grid-Component Internal Index Substructure 1 Substructure 2 1 1-1 2 1-2 3 1-6 4 3-1 3-1 5 3-2 3-2 6 3-6 3-6 7 4-1 8 4-2 9 4-6 10 6-1 11 6-2 12 6-6 The modified partitioning matrix contains twelve scalar points, with six in substructure 1, nine in substructure 2, and three common to both substructures. The loads are now located at scalar points 5 and 8, as indicated on card 246a. The single-point constraints are located at scalar points 1, 2, and 11, as indicated on card 246b. The modified partitioning vector for substructure 1 indicates there are twelve degrees of freedom in the pseudostructure, and that, beginning with the first scalar point, there are six scalar points associated with substructure 1. The modified partitioning vector for substructure 2 indicates the first entry is associated with scalar point 4, and that there are a total of nine scalar points associated with substructure 2. If multiple loading conditions are used in the solution, the subcase structure must be established in Phase 1. In order to perform the matrix operations in Phase 2, the same case control structure must be used for all substructures. This means that the same number of sub-cases must be defined for each substructure, even though some of the subcases will not contain a load selection or any other entries. NASTRAN will generate a null column in the load matrix for all subcases for which no load set is selected. If any loads are applied in Phase 2, the same subcase structure must be used in Phase 2. In any event, the subcase structure established in Phase 1 must be used in Phase 3. The contents of each subcase in Phase 3 will relate to output selections, rather than load and boundary condition selections. Consider adding two additional loading conditions to the sample problem in Section 1.10.1.1. If one additional loading condition were applied to substructure 1, identified as 202, and one additional loading to substructure 2, identified as 203, the subcase structure established in Phase 1 would appear as follows: Substructure 1 Substructure 2 SPC = 101 SPC = 201 SUBCASE 1 SUBCASE 1 LOAD = 201 SUBCASE 2 SUBCASE 2 LOAD = 202 SUBCASE 3 SUBCASE 3 LOAD = 203 Load case 202 would have to be defined with some form of static loading in the Bulk Data Deck for Phase 1 of substructure 1. In addition, load set 203 would have to be defined with some form of static loading in the Bulk Data Deck for Phase 1 of substructure 2. The DMAP sequence for the sample problem in Section 1.10.1.1 will not support multiple boundary conditions in Phase 1. If multiple boundary conditions are introduced in Phase 1, it is necessary to generate a separate partitioning vector for use in Phase 2 for each of the unique boundary conditions. In some sense, this results in the definition of a number of separate problems equal to the number of unique boundary conditions. Although a DMAP sequence could be developed to support multiple boundary conditions in Phase 1, it is not recommended that multiple boundary conditions be introduced into Phase 1. Multiple boundary conditions may be introduced in Phase 2 without any difficulty. However, in order to handle the internal looping for each boundary condition, it is more convenient if the loads are also introduced in Phase 2. As indicated earlier, the introduction of loads in Phase 2 does limit the manner in which the static loads can be defined. If the loads and boundary conditions are introduced in Phase 2, all of the case control options for combining subcases, including symmetry combinations, may be used in the usual manner. It is possible to introduce the loads in Phase 1 and multiple boundary conditions in Phase 2. However, provision must be made to generate all loading conditions in Phase 1, which will automatically take place if one subcase is defined for each loading condition and no boundary conditions are mentioned in the Phase 1 Case Control Deck. It is then necessary in Phase 2 to partition out the proper columns of the loading matrix for each loop or boundary condition in Phase 2. This requires that you construct the proper partitioning vector for each boundary condition. Also, appropriate modifications would have to be made to the suggested DMAP sequence for Phase 2. 1.10.1.3 Normal Modes Analysis Substructuring for normal modes analysis is performed in much the same way as that for static analysis. A NASTRAN Data Deck for use in Phase 1 of a Normal Modes Analysis (Rigid Format 3) is shown in Table 1.10-13. Note that the OUTPUT1 module writes the mass matrix, as well as the stiffness matrix and partitioning vector, on User Tape 1. The Case Control Deck is similar to the Phase 1 deck for static analysis. It must include a constraint selection if the boundary conditions are applied in Phase 1. The Bulk Data Deck is also similar to that used in Phase 1 for static analysis. In general, it includes all the cards associated with the definition of the model and the DMI cards for the definition of the partitioning vector. It will also include cards for the definition of the a-set and other constraint cards if the boundary conditions are applied in Phase 1. As in static analysis, one such deck must be prepared for each substructure. The NASTRAN Data Deck for Phase 2 of Normal Modes Analysis with two substructures is shown in Table 1.10-14. The Phase 2 NASTRAN Data Deck for Normal Modes Analysis is similar to that used for Static Analysis. The following comments are related to differences in the two decks: 1. Since there are no loads associated with a normal modes analysis, the module GP3 is not executed. 2. The same operations are performed on the mass matrix as are performed for the stiffness matrix. 3. The data block LAMA (eigenvalue summary) is written as the first data block on User Tape 3. This is followed by the appropriate partitions of the eigenvectors for each of the substructures. 4. The Case Control Deck must include a method selection for eigenvalue extraction. 5. The Bulk Data Deck is similar to that used in static analysis, except that a null matrix must be defined for the mass matrix, instead of the load matrix (since matrix assembly is not required), and an EIGR card must be included. The Phase 3 data deck for Normal Modes Analysis, given in Table 1.10-15, is similar to that used for Static Analysis. The first reference to module INPUTT1 is to read the data block LAMA, which is the first data block on User Tape 3. The second reference to INPUTT1 is to read the proper partition of the eigenvectors. The zero parameter at the end of the statement should be incremented one for each substructure in order to point to the proper eigenvector partition. 1.10.1.4 Dynamic Analysis Manual substructuring may be used with any of the other dynamics rigid formats. The NASTRAN Data Decks will be similar to those used for Normal Modes Analysis. All dynamic loads must be applied in Phase 2. If the SUPORT card is needed to define free body motions for the structure as a whole, it must be included in Phase 2. In dynamic analysis, the a-set will include, in addition to all points on the boundary of the substructure, a number of points within each substructure sufficient to define the dynamic response. Since all active degrees of freedom along interior boundaries must be included in ua, the a-set will contain more degrees of freedom than are needed in dynamic analysis, with a large resulting inefficiency for a very small gain in accuracy. This is a serious consideration because, due to the high density of Kaa, the time to perform most of the significant matrix operations in Phase 2 increases nearly as the cube of the number of degrees of freedom in ua. The situation can be greatly improved by a second stiffness reduction in Phase 2, in which ua is partitioned into a set, uc, that will be retained in dynamic analysis, and a set, ub, that will be eliminated. The ub set includes the excess degrees of freedom on the interior boundaries. The second stiffness reduction in Phase 2 is defined by listing the members of the ub set that will be eliminated on OMIT cards. These omitted degrees of freedom must reference the scalar points associated with the pseudostructure. In Phase 3 for dynamics, each NASTRAN substructure is restarted with the partition of the Phase 2 solution vector, or eigenvector, for each substructure. All normal data reduction procedures may then be applied. In dynamic analysis, Phase 3 can be omitted if output requests are restricted to the response quantities for the scalar points of the pseudostructure. In this case, the output and partition modules can be omitted from the Phase 2 runs, as their only purpose is to serve as input for the Phase 3 runs. If output is desired for dependent response quantities or element stresses and forces, a Phase 3 run must be made for each substructure of interest. 1.10.1.5 DMAP Loops for Phase 2 The DMAP sequences for the substructure example in Section 1.10.1.1 use repeated blocks of code for each substructure. Cards 209 through 215 are associated with input for substructure 1. Cards 216 through 222 perform the same operations for substructure 2. Likewise, cards 230 and 231 are associated with output for substructure 1, and cards 232 and 233 are associated with output for substructure 2. If a large number of substructures is used, it is more convenient to use a DMAP loop, rather than repeating blocks of code. DMAP loops are constructed by placing a LABEL statement at the beginning of the loop and a REPT statement at the end of the loop. The number of times the REPT statement must be executed is set by an integer constant. The series of statements represented by cards 209 through 222 (in Table 1.10-5) can be replaced with the following sequence of DMAP operations: PARAM // C,N,NOP / V,N,INP=1 $ LABEL BLOCK1 $ INPUTT1 / E,KGGA,PGA,, / C,N,-3 / V,N,INP $ MERGE, ,,,KGGA,E, / KGGTA $ ADD KGG,KGGTA / KTA $ EQUIV KTA,KGG / TRUE $ MERGE, ,PGA,,,,E / PGTA / C,N,1 $ ADD PGT,PGTA / PTA $ EQUIV PTA,PGT / TRUE $ PARAM // C,N,ADD / V,N,INP / V,N,INP / C,N,1 $ REPT BLOCK1,1 $ The LABEL BLOCK1 is shown at the beginning of the loop, and the REPT statement is shown at the end. The integer in the REPT statement is set to one less than the number of substructures, which in this case is one. The PARAM statement preceding the REPT statement is used to increment the second parameter of INPUTT1 by one each time through the loop. This causes the information to be read from a different tape each time through the loop. This DMAP loop does not check the label before reading the information on the input tape. The fact that the same names are used for the matrices each time through the loop does not cause any difficulty, as the matrices are located by their position on the tape, rather than by name. If a DMAP loop is used for the input sequence, consideration must be given to its effect on the output sequence. Since the partitioning vectors were not saved on each pass through the DMAP loop for the input sequence, it is necessary to recover this information for use in the output sequence. This might be done by rerunning INPUTT1 to reread the partitioning vectors as needed, or perhaps by inserting the DMI cards for the partitioning vectors in the Bulk Data Deck for Phase 2. If Phase 3 runs are not required, no output sequence is necessary. 1.10.1.6 Identical Substructures In the case of identical substructures, the substructuring procedures can be organized to take full advantage of the repetitive parts. The substructures only have to appear identical in Phase 1. The loading conditions and boundary conditions used in Phase 2 may be quite different for the otherwise identical substructures. The Phase 1 substructures must have identical geometry, including the global coordinate systems used on the boundary grid points. Only a single Phase 1 run is made for each group of identical substructures. Since the identical substructures will be coupled in different ways during Phase 2, a different partitioning vector must be generated for each use of the identical substructures in Phase 2. These multiple partitioning vectors can be placed on the same output tape from Phase 1, which also contains the single set of structural and loading matrices for the group of identical substructures. You may choose to make one or more Phase 3 runs for the members of a group of identical substructures. If the loading conditions and boundary conditions are also identical for the group of identical substructures, a single Phase 3 run will give all information of interest. However, if the boundary conditions and/or loading conditions are different for the various members of the group of identical substructures, it will probably be desirable to make a separate Phase 3 run for each of the substructures used in the complete structural model. The use of identical substructures not only saves time in computer runs for Phase 1 and perhaps for Phase 3, but also substantially reduces the effort associated with the preparation of the structural model in the Bulk Data Deck. In some sense, substructuring procedures with identical substructures can be thought of as being a form of data generation. Although substructuring is usually used because of problem size, it may be desirable, in some cases, to use substructuring because of the repetitive nature of the structure, and a consequent saving in data generation effort. Table 1.10-1. Data Deck for Phase 1 of Substructure 1. 100 NASTRAN FILES = (INPT,NPTP) 101 ID PHASE,ONE $ SUBSTRUCTURE 1 102 TIME 2 103 CHKPNT YES 104 APP DISP 105 SOL 1,9 106 ALTER n1 $ (where n1 = DMAP statement number of EQUIV KAA,KLL/REACT) 107 JUMP LBL7 $ 108 ALTER n2 $ (where n2 = DMAP statement number of LABEL LBL10) 109 FBS LOO,UOO,PO/UOOV $ 110 CHKPNT UOOV $ 111 OUTPUT1 E1,KLL,PL,,//C,N,-1/C,N,0/C,N,USERTP1 $ 112 ALTER n3,n4 $ (where n3 = DMAP statement number of SSG3 module and n4 = DMAP statement number of REPT LOOPTOP,360) 113 ENDALTER 114 CEND 115 TITLE = PHASE ONE - SUBSTRUCTURE 1 116 SPC = 101 117 BEGIN BULK 1 2 3 4 5 6 7 8 9 10 118 ASET 3 126 119 CBAR 1 10 1 2 1.0 1 120 CBAR 2 10 2 3 1.0 1 121 DMI E1 0 2 1 1 3 122 DMI E1 1 1 1.0 1.0 1.0 123 GRID 1 345 124 GRID 2 240. 345 125 GRID 3 480. 345 126 MAT1 11 30.+6 127 PBAR 10 11 60. 500. 128 SPC 101 1 12 129 ENDDATA =PAGE= Table 1.10-2. Comments for Phase 1, Substructure 1 Data Deck. Card No. Refer to Table 1.10-1 for input cards described below. 103 This run will be checkpointed, so that a restart can be made for Phase 3. You must allocate space for the checkpoint file, NPTP. (The NPTP file is presumed to be copied to tape at the end of the job.) 105 Rigid Format 1, Static Analysis, will be used for this problem without property optimization. 106 Insert the following statement after DMAP statement EQUIV KAA,KLL/REACT. 107 Jump around the Rigid Body Matrix Generator modules. The solution for {ua} will be performed in Phase 2. 108 Insert the following three statements after DMAP statement LABEL LBL10. 109 Use the module FBS to solve for {uoo} the displacement of the o-set relative to the a-set points. 110 Write displacement vector UOOV on the New Problem Tape. 111 Use the module OUTPUT1 to write the DMI matrix given on cards 121 and 122, along with the stiffness matrix KLL, and the load vector PL on User Tape 1 (USERTP1). You must allocate space for the User Tape file, INPT. (The INPT file is presumed to be copied to tape at the end of the job.) The details of the call for DMAP module OUTPUT1 and other DMAP information are given in Section 5. 112 Delete the data recovery modules (SSG3 through REPT LOOPTOP,360). 116 Select single-point constraint set 101. 118 Defines grid point 3 as a boundary point between substructures. 119 Connection cards defining bar elements in substructure 1. 120 121 Direct Matrix Input cards that define the partitioning vector for use 122 in Phase 2. The entries on these cards are discussed below. 123 124 These cards define the grid points in substructure 1. 125 126 Defines the material for the elements in substructure 1. 127 Defines the properties of the elements in substructure 1. 128 Defines single-point constraint set 101. Components 1 and 2 are constrained at grid point 1 in substructure 1. =PAGE= Table 1.10-3. Data Deck for Phase 1, Substructure 2. 150a NASTRAN FILES = (INPT,NPTP) 150b ID PHASE,ONE $ SUBSTRUCTURE 2 151 TIME 2 152 CHKPNT YES 153 APP DISP 154 SOL 1,9 155 ALTER n1 $ (where n1 = DMAP statement number of EQUIV KAA,KLL/REACT) 156 JUMP LBL7 $ 157 ALTER n2 $ (where n2 = DMAP statement number of LABEL LBL10) 158 FBS LOO,UOO,PO/UOOV $ 159 CHKPNT UOOV $ 160 OUTPUT1 E2,KLL,PL,,//C,N,-1/C,N,0/C,N,USERTP2 $ 161 ALTER n3,n4 $ (where n3 = DMAP statement number of SSG3 module and n4 = DMAP statement number of REPT LOOPTOP,360) 162 ENDALTER 163 CEND 164 TITLE = PHASE ONE - SUBSTRUCTURE 2 165 SPC = 201 166 LOAD = 202 167 BEGIN BULK 1 2 3 4 5 6 7 8 9 10 168 ASET 3 126 169 CBAR 3 10 3 4 1.0 1 170 CBAR 4 10 4 5 1.0 1 171 CBAR 5 10 5 6 1.0 1 172 DMI E2 0 2 1 1 3 1 173 DMI E2 1 1 1.0 1.0 1.0 174 FORCE 202 3 1000. -1.0 175 FORCE 202 4 1000. -1.0 176 GRID 3 480. 345 177 GRID 4 720. 345 178 GRID 5 960. 345 179 GRID 6 1200. 345 180 MAT1 11 30.+6 181 PBAR 10 11 60. 500. 182 SPC 201 6 2 183 ENDDATA =PAGE= Table 1.10-4. Comments for Phase 1, Substructure 2 Data Deck. Card No. Refer to Table 1.10-3 for input cards described below. 160 The partitioning vector for substructure 2 is written on User Tape 2 and is named E2. You must allocate space for User Tape file INPT. (The INPT file is presumed to be copied to tape at the end of the job.) It is possible to change the OUTPUT1 statement and write the results for substructure 2 on the same tape as for substructure 1, if desired. 165 Selects single-point constraint set 201. 166 Selects load set 202. 172 Other than the name E2, the partitioning vector is identical to that 173 for substructure 1. 174 Defines the external loads in load set 202. The load applied to grid 175 point 3 has arbitrarily been placed in substructure 2. 182 Defines single-point constraint set 201 at grid point 6, component 2. =PAGE= Table 1.10-5. Data Deck for Phase 2 200 NASTRAN FILES = (INPT,INP1,1NP2) 201 ID PHASE,TWO 202 TIME 2 203 APP DISP 204 SOL 1,9 205 ALTER n0 $ (where n0 = DMAP statement number of the BEGIN statement) 206 PARAM //C,N,NOP/V,N,TRUE=-1 $ 207 ALTER n1,n2 $ (where n1 = DMAP statement number of module GP2 and n2 = DMAP statement number of LABEL P1) 208 ALTER n3,n4 $ (where n3 = DMAP statement number of PARAM just before TA1 and n4 = DMAP statement number of LABEL LBL11A) 209 INPUTT1 /E01,KGG01,PG01,,/C,N,-1/C,N,1/C,N,USERTP1 $ 210 MERGE, ,,,KGG01,E0l,/KGGT01 $ 211 ADD KGG,KGGT01/KT01 $ 212 EQUIV KT01,KGG/TRUE $ 213 MERGE, ,PG0l,,,,E01/PGT01/C,N,1 $ 214 ADD PGT,PGT01/PT01 $ 215 EQUIV PT01,PGT/TRUE $ 216 INPUTT1 /E02,KGG02,PG02,,/C,N,-1/C,N,2/C,N,USERTP2 $ 217 MERGE, ,,,KGG02,E02,/KGGT02 $ 218 ADD KGG,KGGT02/KT02 $ 219 EQUIV KT02,KGG/TRUE $ 220 MERGE, ,PG02,,,,E02/PGT02/C,N,1 $ 221 ADD PGT,PGT02/PT02 $ 222 EQUIV PT02,PGT/TRUE $ 223 ALTER n5,n6 $ (where n5 = DMAP statement number of COND LBL4,GENEL and n6 = DMAP statement number of LABEL LBL4) 224 ALTER n7,n7 $ (where n7 = DMAP statement number of module SSG1) 225 SSG1 SLT,BGPDT,CSTM,SIL,,MPT,,EDT,,CASECC,DIT/PG/V,N,LUSET/V,N,NSKIP $ 226 ADD PGT,PG/PGX $ 227 EQUIV PGX,PG/TRUE $ 228 ALTER n8,n9 $ (where n8 = DMAP statement number of the first SDR2 module and n9 = DMAP statement number of OFP just before XYTRAN) 229 OUTPUT1, ,,,,//C,N,-1/C,N,0/C,N,USERTP3 $ 230 PARTN UGV,,E01/,ULV01,,/C,N,1 $ 231 OUTPUT1 ULV01,,,,//C,N,0/C,N,0/C,N,USERTP3 $ 232 PARTN UGV,,E02/,ULV02,,/C,N,1 $ 233 OUTPUT1 ULV02,,,,//C,N,0/C,N,0/C,N,USERTP3 $ 234 SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,PGG,QG,UGV,,/ OPG1,OQG1,OUGV1,,,/C,N,STATICS $ 235 OFP OUGV1,OPG1,OQG1,,,//V,N,CARDNO $ 236 ALTER n10,n11 $ (where n10 = DMAP statement number of COND LBLOFP,COUNT and n11 = DMAP statement number of OFP just before LABEL DPLOT) 237 ALTER n12,n13 $ (where n12 = DMAP statement number of COND P2,JUMPPLOT and n13 = DMAP statement number of REPT LOOPTOP,360) 238 ALTER n14,n15 $ (where n14 and n15 are the DMAP statement numbers of LABEL ERROR2 and the PRTPARM module immediately following it, respectively) ALTER n16,n17 $ (where n16 and n17 are the DMAP statement numbers of LABEL ERROR4 and the PRTPARM module immediately following it, respectively) 239 ENDALTER 240 CEND 241 TITLE = PHASE TWO =PAGE= Table 1.10-5. Data Deck for Phase 2 (continued) 242 BEGIN BULK 1 2 3 4 5 6 7 8 9 10 243 DMI KGG 0 6 1 2 3 3 244 DMI KGG 1 1 0.0 245 DMI PGT 0 2 1 2 3 1 246 DMI PGT 1 1 0.0 247 SPOINT 1 THRU 3 248 ENDDATA =PAGE= Table 1.10-6. Comments for Phase 2 Data Deck Card No. Refer to Table 1.10-5 for input cards described below. 204 Rigid Format 1, Static Analysis, will be used for this problem. 205 Insert the following statement after DMAP statement No. 1. 206 Define the parameter TRUE = -1. 207 Delete the DMAP statements associated with the preparation of the Element Connection Table and structure plots (module GP2 through LABEL P1). 208 Delete the DMAP statements associated with matrix assembly (PARAM just before TA1 through LABEL LBL11A). 209 Insert the DMAP module INPUTT1 to read the partitioning vector, the stiffness matrix, and the load vector from User Tape 1. These matrices have been renamed E01, KGG01, and PG01, respectively. You must arrange to have the tape mounted that was prepared at the end of Phase 1 run on substructure 1 copied to a file designated as INP1. 210 Insert the module MERGE to change the a-set size of the stiffness matrix from Phase 1 to g-size for Phase 2, and designate the output as KGGT01. In this particular case, no change will take place, since the a-size from Phase 1 is the same as the g-size in Phase 2. 211 Insert the module ADD to add the null matrix KGG, defined in the Bulk Data Deck, to KGGT01, and designate the output as KT01. 212 Insert the module EQUIV to equivalence KT01 to KGG. 213 Insert the module MERGE to change the a-size of the load vector from Phase 1 to g-size for Phase 2, and designate the output as PGT01. In this case, no change in size will take place. 214 Insert the module ADD to add the null matrix PGT, defined in the Bulk Data Deck, to PGT01, and designate the output as PT01. 215 Insert the module EQUIV to equivalence PT01 to PGT. 216 Insert the module INPUTT1 to read the partitioning vector, the stiffness matrix, and the load vector from User Tape 2. These matrices, which were generated for substructure 2 in Phase 1, are redesignated as E02, KGG02, and PG02, respectively. You must arrange to have the tape mounted that was prepared at the end of the Phase 1 run for substructure 2 copied to a file designated as INP2. 217 Insert the module MERGE to change the stiffness matrix for substructure 2 from a-size in Phase 1 to g-size in Phase 2 and designate the output as KGGT02. 218 Insert the module ADD to add the stiffness matrix for substructure 2 to the stiffness matrix for substructure 1, and designate the output as KT02. 219 Insert module EQUIV to equivalence KT02 to KGG. The matrix KGG now represents the stiffness matrix for the pseudostructure, and will be used for input to Phase 2. 220 Insert the module MERGE to change the load vector from a-size in Phase 1 to g-size in Phase 2. 221 Insert the module ADD to add the loads applied to substructure 2 to the load vector for substructure 1, and designate the output as PT02. =PAGE= Table 1.10-6. Comments for Phase 2 Data Deck (continued) Card No. Refer to Table 1.10-5 for input cards described below. 222 Insert the module EQUIV to equivalence PT02 to PGT. 223 Delete the DMAP statements associated with the Grid Point Singularity Processor (COND LBL4,GENEL through LABEL LBL4). 224 Delete the SSG1 module. 225 Insert the module SSG1 with the calling sequence modified to remove parts not associated with directly applied loads. Since, for this particular problem, all loads were applied in Phase 1, there will be no output from SSG1. 226 Insert the module ADD to combine the load vector from Phase 2 with the load vectors generated in Phase 1, and designate the output as PGX. 227 Insert the module EQUIV to equivalence PGX to PG. The data block PG now includes all loads from both Phase 1 and Phase 2, and will be used as input to Phase 3. 228 Delete data recovery and OFP modules (the first SDR2 through the OFP just before XYTRAN). 229 Insert the module OUTPUT1 to rewind User Tape 3 and place the label USERTP3 on this file. You must arrange a third file allocated which is designated as INPT. (It is presumed the INPT file will be copied to a tape at the end of the job.) 230 Insert the module PARTN to separate that part of the solution vector UGV associated with substructure 1, and designate the output as ULV01. 231 Insert the module OUTPUT1 to write the partition of the solution vector associated with substructure 1 on User Tape 3. 232 Insert the module PARTN to separate that part of the solution vector associated with substructure 2, and designate the output as ULV02. 233 Insert the module OUTPUT1 to write that part of the solution vector associated with substructure 2 on User Tape 3. This will place the solution vectors for both substructures on User Tape 3. (A second tape could be used for the solution vector for substructure 2 by changing the DMAP statement for OUTPUT1.) 234 Insert the module SDR2 with the calling sequence modified to remove those parts associated with element output. 235 Insert the module OFP with the calling sequence modified to remove those parts associated with element output. 236 Remove OFP and additional DMAP statements (COND LBLOFP,COUNT through the OFP just before LABEL DPLOT). 237 Remove the DMAP statements associated with the preparation of the deformed structure plots (COND P2,JUMPPLOT through REPT LOOPTOP,360). 238 Remove the statements associated with ERROR2 and ERROR4. 243 DMI cards used to define the null matrix KGG. 244 245 DMI cards used to define the null matrix PGT. 246 247 Definition of the three scalar points for the pseudostructure. =PAGE= Table 1.10-7. Data Deck for Phase 3, Substructure 1 300 NASTRAN FILES = (INPT,OPTP) 301 ID PHASE,THREE $ SUBSTRUCTURE 1 302 TIME 2 303 APP DISP 304 SOL 1,9 305 ALTER n1,n2 $ (where n1 = DMAP statement number of module GP3 and n2 = DMAP statement number of LABEL LBL9) 306 INPUTT1 /,,,,/C,N,-1/C,N,0/C,N,USERTP3 $ 307 INPUTT1 /ULV,,,,/C,N,0 $ 308 ALTER n3,n4 $ (where n3 = DMAP statement number of COND LBL8,REPEAT and n4 = DMAP statement number of LABEL LBL8) 309 ALTER n5,n6 $ (where n5 = DMAP statement number of JUMP FINIS and n6 = DMAP statement number of LABEL FINIS) 310 ENDALTER 311 (Include Restart Dictionary from Phase 1) 312 CEND 313 TITLE = PHASE THREE - SUBSTRUCTURE 1 314 DISP = ALL 315 ELFORCE = ALL 316 OLOAD = ALL 317 SPCFORCE = ALL 318 BEGIN BULK 319 (No Bulk Data) 320 ENDDATA =PAGE= Table 1.10-8. Comments for Phase 3, Substructure 1 Data Deck Card No. Refer to Table 1.10-7 for input cards described below. 304 Rigid Format 1, Static Analysis, will be used for this problem. 305 Delete all parts of the rigid format, except the data recovery modules (GP3 through LABEL LBL9). 306 Insert module INPUTT1 to rewind and check the label on User Tape 3. The user must arrange to have the tape mounted that was prepared at the end of the Phase 2 run copied to a file designated as INPT. 307 Insert module INPUTT1 to read the solution vector for substructure 1 from User Tape 3. The solution vector is designated as ULV for input to module SDR1. 308 Remove additional DMAP statements not associated with data recovery 309 operations (COND LBL8, REPEAT through LABEL LBL8, and JUMP FINIS through LABEL FINIS). 311 Insert the Restart Dictionary punched during the Phase 1 run of substructure 1. You must arrange to have the checkpoint tape from the Phase 1 run for substructure 1 copied to a file OPTP for the restart. 314 Request printed output for all displacements of substructure 1. 315 Request printed output of forces for all elements in substructure 1. 316 Request printed output of the load vector for substructure 1. In this particular case, no output will result because no loads were applied to substructure 1. 317 Request printed output for all nonzero single-point forces of constraint on substructure 1. 318 Beginning of Bulk Data Deck. 319 No bulk data cards should be included in the Phase 3 run. However, the BEGIN BULK and ENDDATA cards must be present. 320 End of NASTRAN Data Deck. =PAGE= Table 1.10-9. Data Deck for Phase 3, Substructure 2 350a NASTRAN FILES = (INPT,OPTP) 350b ID PHASE,THREE $ SUBSTRUCTURE 2 351 TIME 2 352 APP DISP 353 SOL 1,9 354 ALTER n1,n2 $ (where n1 = DMAP statement number of module GP3 and n2 = DMAP statement number of LABEL LBL9) 355 INPUTT1 /,,,,/C,N,-1/C,N,0/C,N,USERTP3 $ 356 INPUTT1 /ULV,,,,/C,N,1 $ 357 ALTER n3,n4 $ (where n3 = DMAP statement number of COND LBL8,REPEAT and n4 = DMAP statement number of LABEL LBL8) 358 ALTER n5,n6 $ (where n5 = DMAP statement number of JUMP FINIS and n6 = DMAP statement number of LABEL FINIS) 359 ENDALTER 360 (Include Restart Dictionary from Phase 1) 361 CEND 362 TITLE = PHASE THREE - SUBSTRUCTURE 2 363 DISP = ALL 364 ELFORCE = ALL 365 BLOAD = ALL 366 SPCFORCE = ALL 367 BEGIN BULK 368 (No Bulk Data) 369 ENDDATA =PAGE= Table 1.10-10. Comments for Phase 3, Substructure 2 Data Deck Card No. Refer to Table 1.10-9 for input cards described below. 355 Insert module INPUTT1 to rewind User Tape 3. You must arrange to have the tape mounted that was prepared at the end of the Phase 2 run copied to a file, INPT, if it is not already available as a result of the previous run on substructure 1. 356 Insert module INPUTT1 to skip over the solution vector for substructure 1 on User Tape 3, and read the solution vector for substructure 2. 365 The request for printed output of the load vectors will show nonzero loads applied to grid points 3 and 4. =PAGE= Table 1.10-11. Instructions for Modified Phase 2 Data Deck 1. Remove card 116, SPC set selection for Phase 1 substructure 1, and request SPC set 201 after card 241. 2. Replace card 118 as shown in Table 1.10-12 to redefine the a-set for substructure 1. 3. Replace cards 121 and 122 with cards 121, 122, and 122a shown in Table 1.10-12 to redefine the partitioning vectors for substructure 1. 4. Card 128 is not required, SPC set definition for substructure 1 (see Item 1 above). 5. Remove cards 165 and 166, SPC and load set selection for Phase 1, substructure 2 (see also item 1 above). Select LOAD set 202 and place after card 241. 6. Replace card 168 as shown in Table 1.10-12 to redefine the a-set for substructure 2. 7. Replace cards 172 and 173 with cards 172, 173, and 173a shown in Table 1.10-12 to redefine the partitioning vectors for substructure 2. 8. Cards 174, 175, and 182 are not required, load definition and SPC definition for substructure 2 (see item 1 above). 9. Replace cards 243 and 245 as shown in Table 1.10-12 to conform to new size for pseudostructure. 10. Insert the cards 246a and 246b as shown in Table 1.10-12 in the Bulk Data Deck for Phase 2 for definition of the loading condition and boundary condition. 11. Replace card 247 as shown in Table 1.10-12 to modify the definition of the pseudostructure to contain 12 scalar points. =PAGE= Table 1.10-12. New Data for Modified Phase 2 1 2 3 4 5 6 7 8 9 10 118 ASET1 126 1 3 121 DMI E1 0 2 1 1 12 1 122 DMI E1 1 1 1.0 1.0 1.0 1.0 1.0 +E11 122a +E11 E1 1.0 168 ASET1 126 3 4 5 172 DMI E2 0 2 1 1 12 1 173 DMI E2 1 4 1.0 1.0 1.0 1.0 1.0 +E21 173a +E21 E2 1.0 1.0 1.0 1.0 243 DMI KGG 0 6 1 2 12 12 245 DMI PGT 0 2 1 2 12 1 246a SLOAD 202 5 1000. 8 1000. 246b SPC1 201 1 2 11 247 SPOINT 1 THRU 12 =PAGE= Table 1.10-13. Phase 1 Normal Modes Analysis Data Deck NASTRAN FILES = (INPT,NPTP) ID PHASE,ONE $ NORMAL MODES TIME 2 CHKPNT YES APP DISP SOL 3,0 ALTER n1,n2 $ (where n1 = DMAP statement number of COND LBL6,REACT and n2 = DMAP statement number of LABEL P2) OUTPUT1 E10,KAA,MAA,,//C,N,-1/C,N,0/C,N,USERTP1 $ ENDALTER CEND (Case Control Deck) BEGIN BULK (Bulk Data Deck) ENDDATA =PAGE= Table 1.10-14. Phase 2 Normal Modes Analysis Data Deck NASTRAN FILES = (INPT,INP1,INP2) ID PHASE,TWO $ NORMAL MODES TIME 2 APP DISP SOL 3,0 ALTER n0 $ (where n0 = DMAP statement number of the BEGIN statement) PARAM //C,N,NOP/V,N,TRUE=-1 $ ALTER n1,n2 $ (where n1 = DMAP statement number of module GP2 and n2 = DMAP statement number of module SMA3) INPUTT1 /E01,KGG01,MGG01,,/C,N,-1/C,N,1/C,N,USERTP1 $ MERGE, ,,,KGG01,E01,/KGGT01 $ ADD KGG,KGGT01/KT01 $ EQUIV KT01,KGG/TRUE $ MERGE, ,,,MGG01,E01,/MGGT01 $ ADD MGG,MGGT01/MT01 $ EQUIV MT01,MGG/TRUE $ INPUTT1 /E02,KGG02,MGG02,,/C,N,-1/C,N,2/C,N,USERTP2 $ MERGE, ,,,KGG02,E02,/KGGT02 $ ADD KGG,KGGT02/KT02 $ EQUIV KT02,KGG/TRUE $ MERGE, ,,,MGG02,E02,/MGGT02 $ ADD MGG,MGGT02/MT02 $ EQUIV MT02,MGG/TRUE $ ALTER n3,n4 $ (where n3 = DMAP statement number of COND LBL4,GENEL and n4 = DMAP statement number of LABEL LBL4) ALTER n5,n6 $ (where n5 = DMAP statement number of module SDR2 and n6 = DMAP statement number of LABEL P2) OUTPUT1 LAMA,,,,//C,N,-1/C,N,0/C,N,USERTP3 $ PARTN PHIG,,E01/,PHIA01,,/C,N,1 $ OUTPUT1 PHIA01,,,,//C,N,0/C,N,0/C,N,USERTP3 $ PARTN PHIG,,E02/,PHIA02,,/C,N,1 $ OUTPUT1 PHIA02,,,,//C,N,0/C,N,0/C,N,USERTP3 $ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QG,PHIG,,/ ,OQG1,OPHIG,,,/C,N,REIG $ OFP OPHIG,OQG1,,,,//V,N,CARDNO $ ALTER n7,n8 $ (where n7 and n8 are the DMAP statement numbers of LABEL ERROR1 and the PRTPARM module immediately following it, respectively) ENDALTER CEND (Case Control Deck) BEGIN BULK (Bulk Data Deck) ENDDATA =PAGE= Table 1.10-15. Phase 3 Normal Modes Analysis Data Deck NASTRAN FILES = (INPT,OPTP) ID PHASE,THREE $ NORMAL MODES TIME 2 APP DISP SOL 3,0 ALTER n1,n2 $ (where n1 = DMAP statement number of module GP3 and n2 = DMAP statement number of the OFP module just prior to the SDR1 module) INPUTT1 /LAMA,,,,/C,N,-1/C,N,0/C,N,USERTP3 $ INPUTT1 /PHIA,,,,/C,N,0 $ ALTER n3,n4 $ (where n3 = DMAP statement number of JUMP FINIS and n4 = DMAP statement number of LABEL FINIS) ENDALTER (Include Restart Dictionary from Phase 1) CEND (Case Control Deck) BEGIN BULK (No Bulk Data) ENDDATA =PAGE= Y P P 1 2 3 4 5 6 ****** X 1 2 3 4 5 ///// ///// Ĵ 5 @ 20 ft. = 100 ft. Substructure 1 Substructure 2 P P 1 2 3 3 4 5 6 *** **** 1 2 3 4 5 ///// ///// Ĵ Ĵ 240" 240" 240" 240" 240" 2 Grid point numbers Ŀ 3 Element numbers 6 E = 30 x 10 psi 4 I = 500 in P = 1000 lbs. Figure 1.10-1. Manual substructuring problem =PAGE= 1.10.2 Automated Multi-Stage Substructuring Large and complex structural analysis problems can be solved for static and dynamic response and/or normal mode shapes using the automated multi-stage substructuring features of NASTRAN. As with all substructuring approaches, you subdivide the intended model into a set of smaller, more elementary partitions called basic substructures. The components of the whole structure can be modeled independently, checked for accuracy, and then assembled automatically all at once or in stages to form a composite model representing the whole structure for final solution. In order to effectively employ this automated substructuring capability of NASTRAN for static and normal modes analyses, you should gain an overall understanding of the basic program design concepts, the data base on which it operates, and the control functions provided. These topics are discussed in the sections which follow. Suggestions, recommendations, and cautions to be observed when using automated substructuring are presented in Section 1.10.2.6. A detailed description of the substructuring control cards and a summary of pertinent bulk data cards is provided in Section 2.7 of this manual. A detailed description of each of these bulk data cards is included alphabetically along with all other bulk data cards in Section 2.4. The basic design concepts used in developing this automated substructuring capability are described below. The theory is presented in Section 4.6 of the Theoretical Manual. 1.10.2.1 Basic Concepts Automated substructuring analysis is available for use with NASTRAN Rigid Formats 1, 2, 3, 8, and 9. This provides capability for static analysis, static analysis with inertial relief for unsupported structures, and normal modes, frequency response, and transient response analyses. The capability allows an unlimited number of substructures to be combined and/or reduced in any sequence desired. Each substructure is represented by its mass, stiffness, and damping matrices. A reduction in size or condensation of these matrices is accomplished using the Guyan reduction technique or reduction to normal or complex modal coordinates. Although the NASTRAN substructuring system may be used for small and moderate size problems, several features are available to accommodate very large problems. The most important of these features is the automated data base management system used to maintain the Substructure Operating File (SOF) on which all pertinent matrix and substructural loading data and associated control files are stored. This SOF carries all the information needed from run to run throughout a substructuring analysis. Processing automated substructuring analyses is subdivided into three phases similar to those described earlier for manual substructuring. The usual analysis proceeds as follows. First, several separate Phase 1 executions are performed, one for each basic substructure. Second, one or more Phase 2 executions may be performed. In a Phase 2 run, any number of substructure reductions and/or combinations, resulting in higher level (meaning more complex) pseudostructures, may be performed. Phase 2 processing may be halted at any stage of model assembly and restarted in a subsequent Phase 2 execution. The results at each step in the operation are stored on the SOF so as to be available for subsequent execution. The final steps of a Phase 2 operation would be the solution step for the highest level structure and the data recovery steps with limited output capability (displacements, forces of constraint, modal energies, and applied loads only) for any lower level substructure. Complete and detailed data recovery for the basic substructures must be obtained by separate Phase 3 executions, one for each basic substructure. This level of data recovery may include any or all of the NASTRAN output normal for a non-substructure analysis. Automated substructuring allows each basic substructure to be defined independently. This concept is represented by three key features of the system. 1. There are no restrictions as to duplication of grid point or element identification numbers, load sets, individual coordinate systems, etc. All data for a given substructure is associated with an assigned unique name for that structure. The only data restriction is one of proper modeling, that is, common boundaries require grid points to be located at the same point in space for each connecting substructure. 2. No substructure may appear as a component of another substructure more than once; and no degrees of freedom within a substructure may be connected ("combined") to other degrees of freedom in that same substructure except by multipoint constraints imposed at the solution step operation. 3. All pertinent substructure data are stored on the SOF, an expandable direct access file. This file may be selectively edited and/or dumped to tape and transmitted to another user who may have need for the data. Provision is made for automated tape conversion among CDC, IBM, UNIVAC, and DEC VAX computers to facilitate such data transmittal between different users. Use of this file is described in Section 1.10.2.4. Control of the automated substructuring system is obtained through the use of linguistic commands, similar to those of Case Control. These commands are placed in the Substructure Control Deck shown in Figure 1.10-2. This Substructure Control Deck is situated between the Executive Control and Case Control Decks. Each substructure control command is automatically translated into appropriate DMAP ALTER cards to augment the requested Rigid Format sequence. You may also include your own DMAP ALTER commands, or may modify a previously defined DMAP sequence. A description of how you may interface with this NASTRAN-generated substructuring DMAP is presented in Section 2.7.2. Listings of the DMAP ALTERs generated by each substructure command are presented in Section 5.9. Descriptions of the corresponding modules provided for substructuring are found in the NASTRAN Programmer's Manual. 1.10.2.2 Substructure Operations and Control Functions User control of the automated multi-stage substructuring system is obtained via the Substructure Control Deck commands. The key terms used to describe these commands and their functions are defined in Table 1.10-16. A summary of the substructuring command options is presented in Table 1.10-17. Some of these commands require specific bulk data cards which are listed for easy reference in Table 18. You should also refer to Section 2.7 for a complete description of the Substructure Control Deck commands and to Section 2.3 for detailed descriptions of the corresponding bulk data cards. The operation and control functions of automated substructuring analysis are best illustrated and explained using the "tree" structure presented in Figure 1.10-3. This figure defines the genealogy of all the component substructures used in building a final model. Basic substructures are created at the Phase 1 level. Substructures "A," "B," and "E" are shown in solid boxes indicating they were formed from actual data deck submittals and are physically different models. The dotted boxes are called "image" substructures and are the result of an EQUIVALENCE operation rather than an actual Phase 1 data deck submittal. The EQUIVALENCE operation defines a new substructure which is a duplicate of an existing substructure, and automatically creates all equivalent lower level component substructures. Thus, space is saved on the data files by eliminating storage of redundant matrix data. A four-bladed propeller, for example, could be seen to consist of four identical components and, hence, only one need be explicitly modeled. The other three blades could be defined solely by using the EQUIVALENCE command. The image substructures exist in name only. Note in Figure 1.10-3 that the names of the image structures are identical to the equivalent parent structure, with the exception of a prefix character. The new names would be created automatically by NASTRAN with the use of the PREFIX subcommand to EQUIVALENCE. These new prefixed names would then be used to reference the appropriate component substructure as if it were created independently. Note that the term "lower level" refers to the less complex of the component substructures which are used to create a higher level, or more complex, substructure. From the user point of view, all substructures shown in Figure 1.10-3, with either solid or dotted boxes, are separate and distinct substructures. They may have different applied loads, boundary conditions, and responses. For example, though only A, B, and E represent actual Phase 1 executions, Phase 3 data recovery executions may be made for A, B, E, XA, XB, YA, YB, YXB, and YE, each of which generally would have different results. The COMBINE command (see Table 1.10-17) with its numerous subcomnands, offers flexibility in the assembly of substructures into a higher level substructure. The COMBINE capability allows component substructures to be translated, rotated, and/or symmetrically transformed via mirror image transformation for proper positioning in space. For example, the right wing of an aircraft is first modeled and an EQUIVALENT operation is performed to define an identical duplicate wing. Then, in the COMBINE operation, a SYMTRANSFORM is applied so that the wing now appears as the actual left wing (a mirror image of the right wing), and a TRANSFORM Is applied to properly position it on the left side of the aircraft. Caution is advised in that the symmetry transformation (SYMTRAN) is always applied to the component in its own basic coordinate system before the usual translation and rotation (TRANS) for final positioning (see Section 4.6 of the Theoretical Manual). The REDUCE command causes a Guyan reduction to be performed on an existing substructure. You specify which degrees of freedom are to be retained using the BDYC and BDYS (or BDYS1) bulk data cards provided. The degrees of freedom retained are all called boundary degrees of freedom, although they all need not ever appear on the boundary with another substructure. Obviously, all degrees of freedom eventually needed for boundary connections must be retained, that is, they must not be reduced out. However, care must be taken to retain in this boundary set all the appropriate degrees of freedom needed to represent the dominant displacement patterns for accurate calculation of eigenvalues and eigenvectors for normal modes analyses. The MREDUCE and CREDUCE commands provide a modal synthesis capability to automated multi-stage substructuring. With these commands you define boundary degrees of freedom to identify degrees of freedom retained as physical coordinates. The remaining degrees of freedom are replaced by a smaller set of normal (MREDUCE) or complex (CREDUCE) generalized modal coordinates. MREDUCE may be used when real symmetric mass and stiffness matrices are used to define the model. CREDUCE provides a general modal reduction capability when damped modes are desired or complex or unsymmetric matrices are present. You may also define constraints for the structure to be applied only for the purpose of calculating the modes. BDYC and BDYS (or BDYS1) bulk data cards are used to define these degrees of freedom and are requested by the subcommand FIXED. Note that for both the REDUCE and MREDUCE substructure commands, the damping matrices, B and K4, and the load vectors, P, are transformed to the reduced set of coordinates. The reduced substructures may be processed with any of the other substructure operations. However, substructures generated with the complex modal reduction, CREDUCE, may not be processed with any commands requiring real arithmetic, namely REDUCE, MREDUCE, or SOLVE with Rigid Formats 1, 2, 3, or 9. As many EQUIVALENCE, COMBINE, REDUCE, MREDUCE, or CREDUCE commands as desired may be used in one or more Phase 1 or Phase 2 executions. However, only one SOLVE command is allowed in any single Phase 2 execution, and the SOLVE command is not allowed in Phase 1 executions. As indicated in the definitions of Table 1.10-1, the SOLVE command requests a solution for structural response to applied static loads (Rigid Formats 1 and 2), the calculation of normal modes (Rigid Format 3), or structural response to frequency dependent or time dependent loads (Rigid Formats 8 and 9) of the substructure named in the command. The RECOVER command is used in Phase 2 to recover the solution data for successively lower level substructures. Only the displacements, forces of constraint, modal energies, and applied loads can be selectively output for any component substructure during these Phase 2 operations. The BRECOVER command is then used in a Phase 3 execution to obtain all the detail response output normally provided by NASTRAN for each desired basic substructure. The command MRECOVER is used to recover mode shape data for modal reduced substructures. Using the PLOT command, only undeformed plots may be requested in a Phase 2 execution. Deformed plots can only be obtained from a Phase 3 execution. You control each step in the analysis by specifying the appropriate commands to be executed and the substructure names, such as A, B, YC, etc. (see Figure 1.10-3), of each substructure to be used in that step. To reduce the potential for input error and to simplify the bookkeeping tasks, all specific references to loadings and grid points for connection, boundary sets, and constraints, etc. are made with respect to the basic substructure name only. For these reasons, no component substructure may be used more than once while building the solution structure. That is, every component named in any substructure must be unique. If the same component substructure is to be used more than once, for example, identical components are to be used to create the full model, the EQUIVALENCE operation should be used as described earlier to assign unique names to all substructures comprising that component. Substructure names are allowed no more than eight alphanumeric characters. Notice in the EQUIVALENCE operation shown in Figure 1.10-3, the required subcommand PREFIX generates an additional character which is placed ahead of the existing name as a prefix to the parent substructure name. Care must be taken with successive EQUIV operations to monitor the growth of image substructure names so as not to exceed the eight-character limit. If the limit is exceeded, the right-most character will be truncated. Therefore, it is possible to inadvertently create duplicate substructure names as more prefixes are added. It is recommended, therefore, that the entire tree structure for the analysis be prepared ahead of time to help avoid these problems. This pre- planning also will be an invaluable aid to the task of data preparation and proper sequencing of the individual steps in the analysis. 1.10.2.3 Input Data Checking and Interpretation of Output The automated substructuring system provides several methods for input data checking, diagnostic output, and substructure-oriented data output. A principal facility for input data checking is the RUN = DRY command. This option allows you to validate the command structure and data without actually performing the more time-consuming matrix operations. Assuming the input is found to be consistent, the run may be resubmitted with the RUN = GO option to complete the matrix processing. Also available is a RUN = STEP option (the default option) which first checks the data and then executes the matrix operations one step at a time. If errors are detected in the data, the matrix operations are skipped and the remainder of the processing sequence is executed as a DRY run only. You also are allowed to process only selected matrix data. If, for example, after having assembled the solution structure, new loading conditions are to be added or normal modes are desired but the mass matrix is not available, the necessary sequence of matrix operations can be requested using the RUN = GO option to process the new load or mass matrix data only. The OPTIONS command, described in Section 2.7, causes selective processing of mass (M), damping (B or K4), stiffness (K), or load (P) data only. The PA option (load append) is used when new Phase 1 load vectors are to be added to the set of existing load vectors. Note that when using the OPTIONS command, if existing substructure data items are to be recreated (see Table 1.10-19), the old data must be removed using the EDIT or DELETE commands as described in the next section. This is necessary because only one item of a given type may be allowed on the SOF for any particular substructure. All the relevant substructuring data generated by the program may be displayed with the OUTPUT command described in Section 2.7. The COMBINE, REDUCE, MREDUCE, and CREDUCE operations involve specification of grid point and degree of freedom data related to the basic substructures involved. The automatically generated or manually specified connectivities are critical to the COMBINE operation. Using these output options, the information can be obtained to explicitly verify all connectivities. The REDUCE, MREDUCE, and CREDUCE operations require you to specify the degrees of freedom to be retained. These also are identified by basic substructure grid point numbers. If desired, these same output options can be used to obtain lists of all the retained degrees of freedom of the resulting pseudostructure to help verify the resulting model. The following paragraphs describe examples of the possible output that can be requested. The table shown below may be used to verify all substructure connectivities. This, and the other examples of diagnostic output to be described later, are reproductions of actual problem output requested under the COMBINE command used to create a pseudostructure named WINDMILL from component substructures RING and VANR. SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES INTERNAL INTERNAL DEGREES OF RING VANR POINT NO. DOF NO. FREEDOM 34 67 12 RING 146 35 69 12 RING 147 36 71 12 RING 148 37 73 12 RING 103 VANE 1 38 75 12 RING 106 VANE 2 39 77 12 RING 109 VANE 3 40 79 12 VANE 13 41 81 12 VANE 14 The column heading "INTERNAL POINT NO." references the equivalent of internally generated "grid points" for the resulting pseudostructure. "INTERNAL DOF NO." references the internally sequenced first degree of freedom (row or column number) in the matrices of WINDMILL for the designated internal grid point. "DEGREES OF FREEDOM" references the component degrees of freedom in the global coordinate system of the assembled structure associated with the internal grid point. In the example above, the following may be observed: 1. Degrees of freedom 1 and 2 from grid point 109 of basic substructure RING and grid point 3 of basic component VANE in substructure VANE are connected and assigned to internal point 39 of pseudostructure WINDMILL. 2. Displacement components 1 and 2 at internal point 39 are the 77th and 78th degrees of freedom for the matrices of WINDMILL. Note that only basic substructure names appear in association with grid points. In this example, RING and VANR are the substructures referenced by the COMBINE command. VANR exists as a higher level substructure with VANE as the basic substructure. Substructure items EQSS and BGSS, which are created by the COMBINE or REDUCE operations, are helpful in checking the results of these substructure commands. They are stored along with the other items on the SOF (see Table 1.10-19) and can be accessed at any time with the SOFPRINT command. The display of these items, however, is normally requested by the OUTPUT subcommand of either the COMBINE, REDUCE, MREDUCE, or CREDUCE commands at the time of their execution. The EQSS item provides data for each basic substructure relating external or basic substructure grid point numbers to pseudostructure internal grid point numbers. In the example shown below, degrees of freedom 1 and 2 of grid point 102 of basic substructure RING have been assigned to internal grid point 2 of pseudostructure WINDMILL. EQSS ITEM FOR SUBSTRUCTURE WINDMILL COMPONENT RING GRID POINT INTERNAL COMPONENT ID POINT NO. DOF 102 2 12 105 4 12 108 6 12 111 8 12 114 11 12 117 13 12 120 15 12 123 17 12 126 20 12 129 22 12 132 24 12 135 26 12 138 29 12 141 31 12 144 33 12 147 35 12 In addition to the above data for each basic substructure, the EQSS item also contains summary data for the resultant pseudostructure. A sample is shown below. EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE WINDMILL INTERNAL INTERNAL COMPONENT POINT ID SIL ID DOF 2 3 12 5 9 12 8 15 12 11 21 12 14 27 12 17 33 12 20 39 12 23 45 12 26 51 12 29 57 12 32 63 12 35 69 12 In the above table, the relationships of the internal grid point numbers to the internal degree of freedom numbers (referenced as "INTERNAL SIL ID") and to the component degrees of freedom are defined for pseudostructure WINDMILL. The internal degrees of freedom are referenced as a Scalar Index List (SIL) because all substructure problem degrees of freedom are converted to scalar points for purposes of Phase 2 processing. If desired for special purposes, therefore, these internal degrees of freedom may be referenced as scalar points for use with any of the non-substructuring Bulk Data cards to be input to the SOLVE step operations in Phase 2. The EQSS items and the summary of pseudostructure connectivities table are related. For example, by cross referencing each table it can be seen that internal grid point 35 of substructure WINDMILL has degrees of freedom 1 and 2 assigned to it. These degrees of freedom numbers in the SIL list are 69 and 70, respectively, and these degrees of freedom come from grid point 147 of basic substructure RING. Special treatment is required for the EQSS item for substructures which are modal reduced. For example, if basic substructure A is reduced to MA using MREDUCE or CREDUCE, the EQSS for MA indicates that pseudostructure MA has two component substructures, A and MA. The EQSS for component A contains the boundary point definitions. The EQSS for component MA contains definitions for the newly created modal coordinates. Inertia relief coordinates are assigned grid point ID's of 1 through 6 to MA, and flexible mode coordinates are assigned grid point ID's of 101 through 100+N, where N is the number of flexible modes used. Refer to Sections 4.6.2, 4.7.1, and 4.7.2 of the Theoretical Manual and Section 2.7 of this manual for definitions of the modal coordinates. The modal degrees of freedom of component substructure MA (both inertia relief and flexible mode coordinates) may be referenced for application of constraints in the SOLVE operation. They may also be referenced as boundary coordinates in subsequent reduction operations. COMBINE or reduction operations also create the BGSS item. A sample is shown below. The BGSS item contains internal grid point locations for the substructure model. In this example, the BGSS item displays all the internal point numbers for the pseudostructure WINDMILL along with its corresponding location coordinates in that pseudostructure's basic system. The "CSTM ID NO." column indicates the existence (if any) of local coordinate systems associated with those internal points. If the entry is "0", the displacement components will be in that pseudostructure basic system. Otherwise, they will be in a local system which may be verified with the optional printout of the coordinate system transformations (a 3x3 matrix of direction cosines) as stored in the "CSTM" item for that pseudostructure. BGSS ITEM FOR SUBSTRUCTURE WINDMILL INTERNAL CSTM ID COORDINATES POINT ID. NO. X1 X2 X3 1 0 -0.500000E+01 0.100000E+02 0.E+00 2 0 -0.500000E+01 0.150000E+02 0.E+00 3 0 0.E+00 0.100000E+02 0.E+00 4 0 0.E+00 0.150000E+02 0.E+00 5 0 0.500000E+01 0.100000E+02 0.E+00 6 0 0.500000E+01 0.150000E+02 0.E+00 7 0 0.750000E+01 0.750000E+01 0.E+00 8 0 0.100000E+02 0.100000E+02 0.E+00 9 0 0.125000E+02 0.125000E+02 0.E+00 10 0 0.100000E+02 0.500000E+01 0.E+00 Modal coordinates are indicated in the BGSS by a CSTM ID NO. of -1 and a coordinate location of X1 = 0.0, X2 = 0.0, and X3 = 0.0. The CSTM ID NO. of -1 is the NASTRAN convention for a scalar point. Note that scalar points will never be combined with any other points using the automatic COMBINE operation. Another useful output item is the SUBSTRUCTURE OPERATING FILE TABLE OF CONTENTS (TOC), as shown in Figure 1.10-4. In this figure, the substructure tree has been added to the TOC output to help visualize the sample problem. This output is obtained with the command SOFPRINT TOC. The TOC lists by name all substructures that reside on the SOF, lists the current items available for each substructure, and provides a set of pointers which describe the hierarchy of substructure relationships. The SOF pointer scheme is described by defining the individual column headings shown in the TOC. TYPE Defines the substructure type: B - basic substructure C - combined substructure R - Guyan reduced substructure M - real modal reduced substructure CM - complex modal reduced substructure Any of the above types will have prefix "I" if it is an image substructure resulting from an EQUIV operation. SS Points to a substructure which is secondary to the current substructure. In the case where many secondary substructures have been EQUIVed to a single primary substructure, the SS entries form a chain starting with the primary substructure and ending with an SS pointer of zero. PS Points to the substructure which is primary to the current substructure. PS is non-zero for secondary substructures only. LL Points to a substructure at the next lower (simpler) level to the current substructure. CS Points to a substructure which has been combined with the current substructure. The CS entries form a circular chain. HL Points to the substructure at the next higher (complex) level to the current substructure. All normal NASTRAN output for each basic substructure, primary or image substructure, is available via a Phase 3 execution. Also, certain output may be recovered in Phase 2 for any or all of the substructures in the solution structure's tree. However, this output is limited to displacements, applied loads, and forces of single-point constraint. The output requested in Phase 2 is labeled by both the pseudostructure and its component basic substructure names. Some discussion of the forces of constraint, which may be requested as output in both Phase 2 and Phase 3, is required. The Phase 3 calculations for forces of constraint are computed in the normal NASTRAN convention (refer to Section 3.7 of the Theoretical Manual). In a Phase 2 execution, however, the forces of constraint include additional terms. The equations used for the calculations are shown below and are identified by rigid format application. In these equations, {Q} are the forces of constraint, {P} are the applied loads, {u} is the displacement vector, [K] is the stiffness, [B] is the damping, [M] is the mass, w2 are eigenvalues from a real modes analysis, and p are complex eigenvalues from a complex modal reduction. Ŀ Rigid Format Equation for Forces of Constraint Ĵ 1 and 2 {Q} = [K]{u} - {P} 3 {Q} = [K]{u} - [M][w2]{u} 3 {Q} = [K]{u} + [B][p]{u} + [M][p2]{u} . .. 8 and 9 Q = [K]{u} + [B]{u} + [M]{u} - {P} The force vectors {Q} contain all the terms due to 1. Inertia forces 2. Damping forces 3. Single-point constraints 4. Multipoint constraints 5. Forces transferred from other connected substructures 6. Residual forces due to computer round-off The equations presented above for calculation of forces of constraint provide especially useful information, that is, the forces of substructure interconnection as shown below. -F1 F1 Ŀ Ŀ B -F2 F2 A Ĵ C Substructure A Substructure BC Forces F1 and F2, recovered as forces of constraint for substructure A and for pseudostructure BC, represent the forces of interconnectivity. Force F2 represents the sum of two component forces, one from each component substructure B and C, acting at their common grid point. The separate contributions to F2 from each B and C may be determined by using the RECOVER command for the component substructures B and C individually, as shown below. Ŀ Ŀ B F2B B F2 Ĵ = + F2C C Ŀ C 1.10.2.4 Substructure Operating File (SOF) The data required for each basic substructure and for all subsequent combinatIons of substructures are stored on the Substructure Operating File (SOF). The SOF data are stored in direct access format on disk or drum during a NASTRAN execution. These data may also be stored on tape between runs for backup storage or for subsequent input to other computers. Schematic diagrams of data flow for each of the three phases of execution are given in Figure 1.10-5. The SOF file, which contains the data items listed in Table 1.10-19, is used to communicate all required data between phases of operation and between steps of the Phase 2 operation. Thus, you are allowed to develop your analysis in separate steps without requiring the checkpoint/restart feature of NASTRAN. A Phase 1 run is required to build each basic substructure and place its data on the SOF prior to any Phase 2 reduction or combination using that substructure. Using that data, component pseudostructures may be assembled in stages from these basic substructures and added later to other component substructures already on the SOF file. Also, the same SOF may be used to build the data files for more than one solution structure at a time. Once the final solution model is established, the solution may be obtained and results recovered for any level, component pseudo- or basic substructure. However, detail element stresses and element forces or support reactions specified with the basic substructure can be recovered only in Phase 3. These Phase 3 results may be recovered either by using the original data deck or by restarting from a checkpointed Phase 1 execution. The SOF is structured as a single logical file used to store all data necessary for a complete multi-stage substructuring analysis. However, the SOF may actually reside on from one to ten physical files. These physical files would be chained together to form the single logical file for use in the analysis of larger problems. The figure below shows the basic arrangement of an SOF on disk or drum. Ŀ Ŀ Ĵ Ĵ SOF(1) SOF(2) Ŀ Ĵ Ĵ Ĵ SOF(1) Ŀ Ĵ Ĵ ij SOF(3) Ĵ Each physical file comprising the SOF is a direct access file. These disk or drum files are not used by NASTRAN GINO operations. NASTRAN treats them as external user files. In a substructure analysis, NASTRAN stores data on the SOF which must be saved from run to run. Therefore, it is your responsibility to maintain the physical files comprising the SOF from one execution to the next. For large disk files which may arise in some substructuring problems, it may be advisable to store the SOF on tape for backup protection between executions. You should refer to the DUMP, RESTORE, SOFOUT, and SOFIN commands for this capability, or may use operating system utilities. The SOF declaration in the Substructure Control Deck is used to define the physical files which make up the SOF. See Section 2.7 for a complete description of the SOF declaration. An SOF composed of only one physical file which already exists would be declared as follows: SOF(1) = SOF1,200,OLD (CDC example) A new SOF composed of three physical files could be declared as follows on the first execution with this particular SOF logical file: SOF(1) = SOF1,200,NEW SOF(2) = SOF2,200 SOF(3) = SOF3,400 The parameter "NEW" is never used again on any subsequent execution with this SOF. If it were used, all data on that SOF logical file would be lost. For example, to add a new physical file on a subsequent execution, simply add its declaration, that is, SOF(4) = SOF4,600. Again, do not declare this as a "NEW" file or the whole logical SOF file will be re-initialized and all existing data will be lost. (Refer to the SOF command in Section 2.7 for machine dependent restrictions.) All data stored on the SOF is accessed via the substructure name. For each substructure, various types of SOF data may be stored. These types of data are called items and are accessed via their item names. Thus, the substructure name and item name are all that is required to access any block of data on the SOF. The items which can be stored for any substructure are described in Table 1.10-19. The program automatically keeps track of the data, stores the data as it is created, and retrieves these data when required. Your only responsibility is to maintain the file. It must be accessible by the system when needed. You must remove items generated from data containing input errors and/or if that data is no longer needed for subsequent analyses. Also, data may be selectively stored on a backup tape for later retrieval, thus releasing needed space for subsequent operations. 1.10.2.5 The Case Control Deck for Automated Substructure Analyses The Case Control Deck for substructuring analysis controls loading conditions, constraint set selection, output requests, and method of analysis just as in any non-substructuring analysis. However, in a substructuring analysis, there are very important relationships among the Case Control Decks to be input for each of the three phases of substructuring. Compatibility among the substructuring phases must be maintained for load sets, constraint sets, and subcase definitions. The following requirements must be satisfied by the Case Control Deck in Phase 1: 1. Constraint set selection (MPC, SPC) must be above the subcase level. That is, only one set of constraints is allowed in Phase 1 for all loading conditions. 2. One subcase must be defined for each loading condition which is to be saved on the SOF. The loading condition may consist of any combination of external static loads, thermal loads, element deformation loads, or enforced displacements. Loading conditions which are not saved on the SOF in Phase 1 cannot be used in any solution in Phase 2. The Phase 2 Case Control Deck is exactly like the Case Control used in a non-substructuring analysis. Only the TITLE and BEGIN BULK cards are needed except when plots are requested or when there is a SOLVE command in the Substructure Control Deck. In this latter case, the subcase definitions, load and constraint set selections, etc. are used in the usual fashion to control the solution process. Output requests in Case Control are honored only if there is a PRINT subcommand under the RECOVER command in the Substructure Control Deck. If a RECOVER command with a PRINT subcommand is used, the Case Control should be identical (except for output requests) to that used to obtain the solution being printed. The following requirements must be satisfied by the Case Control Deck in Phase 3: 1. Constraint sets (MPC, SPC) must be identical to those used in Phase 1 for this substructure. 2. The subcase definition for load set IDs must be identical to those used in Phase 1 for this substructure including those for appended loads, if any. All load definitions must appear in the order generated. 3. The subcase definition for the Phase 3 output requests for solution vectors generated in Phase 2 must be merged with the above subcase definition for load set IDs. Note that the OLOAD output requested in Phase 3 will correspond to the load factors defined during Phase 2 solution, not those defined by Phase 3 Case Control. The number of Phase 3 subcases required is the maximum of those defined in either Phase 1 or Phase 2. All output requests will correspond to the Phase 2 subcase sequence, starting with the first subcase defined in Phase 3. It is essential to assign the same thermal and element deformation loadings to the same subcases in both Phase 1 and Phase 2 in order to provide the correct load correction data to the Phase 3 output processing of element forces and stresses. 1.10.2.6 User Aids for Automated Substructure Analyses The following suggestions, recommendations, and cautions should be considered when using automated multi-stage substructuring. The automated substructuring capability offers you flexibility in the performance of an analysis. To take advantage of this capability, it is recommended that the new user carefully review both the Theoretical and User's Manual sections on substructuring and execute the demonstration problems which are documented in the Demonstration Problem Manual. Simulation Analyses - You are advised to simulate large structural model analyses with simplified models using the substructuring system. Using this technique, all deck structures, including operational commands and control of the SOF, may be tested using small matrices at low cost. In addition, any special features such as user DMAP operations may be tested at this time. Reduction - Generally, the most economical analyses may be performed using relatively small basic substructures or by performing significant reductions in Phase 1 (using OMIT or ASET bulk data cards). When using Guyan reduction, either reduce most degrees of freedom (many more than half) or very few degrees of freedom (many less than half) if possible. Note that the resulting matrices are usually dense and, hence, may take up more space on the SOF than the original matrices. When using modal reduction use the FIXED set to help approximate the expected solution mode shapes. Also, remember that when inertia relief shapes are requested, six shapes are created. However, if the problem is not fully three dimensional, some of these shapes may be null, and the resulting singularities must be accounted for in subsequent operations. Note that flexible mode shapes which introduce singularities, such as rigid body shapes at zero frequency, are automatically excluded from assignment to the reduced substructure. The rigid body shapes are not needed because the boundary points, by definition, must provide the rigid body description of the structure. Load Append - In the event that additional new loading conditions are required, the LODAPP (Load Append) feature may be used. This feature, described in Section 2.7, allows you to avoid performing redundant Phase 2 computations. Singularities - Selective grid point degrees of freedom are often singular in stiffness (such as rotations about a vector normal to a plate) and may be constrained in Phase 1. However, if these grid points are later transformed to a new output coordinate system during a COMBINE operation, the singularity may be re-introduced to the problem. NASTRAN substructuring transforms grid point degrees of freedom in groups of three translations and three rotations. Thus, if one or more translational and/or rotational degrees of freedom exist for a grid point and a general transformation (not 90, 180, or 270 degrees) is applied, 3 translational and/or rotational degrees of freedom will exist for the resulting structure for that grid point. However, the stiffness matrix will be singular, and this must be considered in subsequent operations. For example, in future reduction operations some of these degrees of freedom must be kept in the boundary set so that the interior point stiffness matrix is non-singular. The extraneous singularities are finally removed at the SOLVE operation using SPCS or MPCS cards. User Modes - You may define a substructure in terms of modal data obtained from another source, such as test data for example. To use this capability you create a Phase 1 job with an MREDUCE command as shown below. SUBSTRUCTURE PHASE1 (SOF control cards) NAME = name MREDUCE name NAME = r-name USERMODES = j : : Two options are allowed, j = 1 or 2. If j = 1, a structural model is defined as usual with bulk data cards. However, the modal data, that is, the eigenvalue data and mode shape data, are defined by using direct input tables and matrices in the bulk data deck. Table LAMAR must be input using DTI cards using the format specified for the LAMA data block described in the Programmer's Manual. Only the modal mass and frequency (HZ) need be defined in LAMAR. The mode shapes must be input using DMI cards and the matrix name PHIS. The PHIS matrix must be the NASTRAN F-set size, that is, the fixed degrees of freedom must be described with null rows. If j = 2, the model is completely defined with matrix data. As is done for j = 1, a LAMAR table and PHIS matrix must be input. In addition, a matrix named QSM, which contains the modal reaction forces for degrees of freedom fixed in mode extraction, is input using DMI cards. Matrix QSM has one row for every degree of freedom (as does PHIS) and one column for every mode. Null row entries exist for degrees of freedom not fixed in mode extraction. Note that the number of modes must exceed the number of degrees of freedom for this option (see Section 4.7.4 of the Theoretical Manual). For the j = 2 option, the bulk data deck must include GRID cards to define the degrees of freedom represented by the rows of PHIS and QSM. In addition, a dummy element should be included in the data deck so that NASTRAN parameter values are properly set. You may also input boundary mass and stiffness matrices. These data may be defined using CONMi, CELASi, and GENEL cards, in which case dummy elements are not required, or may be input using DMI or DMIG cards. For the latter case, you must insert the correct Executive Control Deck DMAP ALTERs to equivalence the input mass and stiffness data to MGG and KGG respectively. Boundary set definitions are required using BDYC, BDYS, and BDYS1 cards for both user mode options. Note that all degrees of freedom defined for the j = 2 options must be specified as boundary degrees of freedom. Old Modes and Old Boundaries - The OLDMODES and OLDBOUND subcommands to the MREDUCE command allow you to modify the new, modal coordinate substructure without performing all new calculations. The OLDMODES subcommand requests that the mode shapes and frequencies computed in a previous MREDUCE be reused to define the modified structure. This is possible because all modes computed are saved on the SOF even if they are not currently used to describe the substructure. You may request the previously used set of modes or a new subset of the previously calculated modes by your use of the NMAX or RANGE subcommands. Use of OLDMODES alone (without OLDBOUND) implies that a new boundary set is to be defined for the reduced substructure. Use of this subcommand requires the additional subcommands BOUNDARY and NMAX or RANGE. The OLDBOUND subcommand requests that the boundary set definition not change for the modification to the substructure. For this case, a new set of modal data will be computed. Use of this subcommand requires the additional subcommands METHOD, NMAX or RANGE, and optionally FIXED, RNAME, and RGRID. The use of both OLDMODES and OLDBOUND implies only a change in the number of modes used from the previously computed set of modes. The use of both commands requires only a new NMAX or RANGE card as additional subcommands. When using these subcommands you must EDIT conflicting data from the SOF. Refer to the descriptions of MREDUCE and CREDUCE in Section 2.7 for details. Also note that both OLDMODES and OLDBOUND are subcommands for MREDUCE, but only OLDMODES is allowed for CREDUCE. The equivalent operation of OLDBOUND for CREDUCE requires complete redefinition of the reduced substructure. Solution Items - It should be remembered that due to the data base protection features, at no time are there any SOF items destroyed by NASTRAN without a specific user command in the Substructure Control Deck. In addition, NASTRAN does not allow more than one substructure item (see Table 1.10-19) to exist for each substructure at any one time. As a result, some operations such as a repeated SOLVE might require you to manually edit out previously generated solution data items or any recovered solution data items before the operation could be repeated. That is, SOLN and UVEC items (the load factor or eigenvalue data tables and displacement vectors respectively) created in an earlier SOLVE operation should be deleted if a new solution with new loads or frequency range is desired for the same substructure. These same items must also be edited out from each lower level substructure for which the new solution data will be recovered. SOLN and UVEC items are also created by MRECOVER and must be deleted prior to a SOLVE and RECOVER for the same structure. By using the EQUIVALENCE operation to create an identical structure, a new solution may be obtained for the same structure without deleting the older solution data items, as required in the example above. Structural Design Considerations - Substructures which may change due to design iterations should be combined with other structures as late in the sequence of COMBINE operations as possible. This will minimize the cost of creating a new solution structure. Also, if the design iteration changes are minor and their impact on other substructures in the model can be neglected, then RECOVER operations need be performed only from the lowest level of substructure affected by the changes. Frequently, these design changes can be evaluated using only the Phase 3 recovery calculations. Of course, care must be taken to maintain compatibility with the degree of freedom list defining the solution displacement vector. That is, the boundary grid points and connections should not be changed. =PAGE= Table 1.10-16. Definitions of Substructure Terminology Basic Substructure - A structure formulated from finite elements in Phase 1. Boundary Set - Set of degrees of freedom to be retained in a reduce operation. Combine Operation - Merge two or more structures by connecting related degrees of freedom. The matrix elements for connected degrees of freedom are added to produce the combined structure matrices, and the substructure load vectors are processed and stored for subsequent combination at solution time. Component Substructure - Any basic or pseudostructure comprising a part of an assembled substructure. Connection Set - Set of grid points and their component degrees of freedom to be connected in adjoining structures. Equivalence Operation - The creation of a secondary substructure equivalent to a primary substructure. Also creates image substructures back to the basic substructure level. Image Substructure - A substructure equivalent to an existing component substructure. May have different applied loads and/or solution vectors but has identical stiffness and mass matrices. Image substructures are automatically created as a result of an equivalence operation. Phase (1, 2, or 3) - Basic steps required for multi-stage substructure processing with NASTRAN - creation, combination, reduction, solution and recovery, and detail data recovery. Primary Substructure - Any basic substructure or any substructure resulting from a combine or reduce operation. Pseudostructure - A combination of component substructures. Reduce Operation - Structural matrix and load vector Guyan or modal reduction process to obtain smaller matrices. Secondary Substructure - A substructure created from an equivalence operation. SOF - Substructure Operating File. Contains all data necessary to define a structure at any stage, including solutions. Solution Structure - The resulting substructure to be used in the solve operation. Solve Operation - To obtain solutions using the present structural matrices and user-defined input data. =PAGE= Table 1.10-17. Summary of Substructure Commands # Mandatory Control Cards * Required Subcommand Phase and Mode Control # SUBSTRUCTURE - Defines execution phase (1, 2, or 3) NAME* - Specifies Phase 1 substructure name SAVEPLOT - Requests plot data be saved in Phase 1 OPTIONS - Defines matrix options (K, B, K4, M, P, or PA) RUN - Limits mode of execution (DRY, GO, DRYGO, STEP) # ENDSUBS - Terminates Substructure Control Deck SOF Controls # SOF - Assigns physical file for storage of the SOF # PASSWORD - Protects and ensures access to correct file SOFOUT or SOFIN - Copies SOF data to or from an external file POSITION - Specifies initial position of input file NAMES - Specifies substructure name used for input ITEMS - Specifies data items to be copied in or out SOFPRINT - Prints selected items from the SOF DUMP - Dumps entire SOF to a backup file RESTORE - Restores entire SOF from a previous DUMP operation CHECK - Checks contents of external file created by SOFOUT DELETE - Deletes out selected groups of items from the SOF EDIT - Edits out selected groups of items from the SOF DESTROY - Destroys all data for a named substructure and all the substructures of which it is a component Substructure Operations COMBINE - Combines sets of substructures NAME* - Names the resulting substructure TOLERANCE* - Limits distance between automatically connected grids CONNECT - Defines sets for manually connected grids and releases OUTPUT - Specifies optional output results COMPONENT - Identifies component substructure for special processing TRANSFORM - Defines transformations for named component substructures SYMTRANSFORM - Specifies symmetry transformation SEARCH - Limits search for automatic connects EQUIV - Creates a new equivalent substructure PREFIX* - Prefix to rename equivalenced lower level substructures REDUCE - Reduces substructure matrices NAME* - Names the resulting substructure BOUNDARY* - Defines set of retained degrees of freedom RSAVE - Indicates the decomposition product of the interior point stiffness matrix is to be saved on the SOF OUTPUT - Specifies optional output requests =PAGE= Table 1.10-17. Summary of Substructure Commands (continued) MREDUCE - Reduces substructure matrices using a normal modes transformation NAME* - Names the resulting substructure BOUNDARY* - Defines set of retained degrees of freedom FIXED - Defines set of constrained degrees of freedom for modes calculation RNAME - Specifies basic substructure to define reference point for inertia relief shapes RGRID - Specifies grid point in the basic substructure to define reference point for inertia relief shapes. Defaults to origin of basic substructure coordinate system. METHOD - Identifies EIGR Bulk Data card RANGE - Identifies frequency range for retained modal coordinates NMAX - Identifies number of lowest frequency modes for retained modal coordinates OLDMODES - Flag to identify rerunning problem with previously computed modal data. OLDBOUND - Flag to identify rerunning problem with previously defined boundary set USERMODES - Flag to indicate modal data have been input on bulk data. OUTPUT - Specifies optional output requests. RSAVE - Indicates the decomposition product of the interior point stiffness matrix is to be stored on the SOF. Substructure Operations CREDUCE - Reduces substructure matrices using a complex modes transformation. NAME* - Names the resulting substructure. BOUNDARY* - Defines set of retained degrees of freedom. FIXED - Defines set of constrained degrees of freedom for modes calculation. METHOD - Identifies EIGC Bulk Data card. RANGE - Identifies frequency range of imaginary part of the root for retained modal coordinates. NMAX - Identifies number of lowest frequency modes for retained modal coordinates. OLDMODES - Flag to identify rerunning problem with previously computed modal data. GPARAM - Specifies structural damping parameter. OUTPUT - Specifies optional output requests. RSAVE - Indicates the decomposition product of the interior point stiffness matrix Is to be stored on the SOF. MRECOVER - Recovers mode shape data from an MREDUCE or CREDUCE operation. SAVE - Stores modal data on SOF. PRINT - Stores modal data and prints data requested. SOLVE - Initiates substructure solution (statics, normal modes, frequency response, or transient response). RECOVER - Recovers Phase 2 solution data. SAVE - Stores solution data on SOF. PRINT - Stores solution and prints data requested. BRECOVER - Basic substructure data recovery, Phase 3. PLOT - Initiates substructure undeformed plots. =PAGE= Table 1.10-18. Substructure Bulk Data Card Summary Bulk Data Used By Substructure Commands REDUCE, MREDUCE, and CREDUCE BDYC - Combination of substructure boundary sets of retained degrees of freedom or fixed degrees of freedom for modes calculation. BDYS - Boundary set definition. BDYS1 - Alternate boundary set definition. Bulk Data Used By Substructure Command COMBINE CONCT - Specifies grid points and degrees of freedom for manually specified connectivities - will be overridden by RELES data. CONCT1 - Alternate specification of connectivities. RELES - Specifies grid point degrees of freedom to be disconnected - overrides CONCT and automatic connectivities. GTRAN - Redefines the output coordinate system grid point displacement sets. TRANS - Specifies coordinate systems for substructure and grid point transformations. Bulk Data Used by Substructure Command SOLVE LOADC - Defines loading conditions for static analysis. MPCS - Specifies multipoint constraints. SPCS - Specifies single-point constraints. SPCS1 - Alternate specification of single-point constraints. SPCSD - Specifies enforced displacements for single-point constraints. DAREAS - Specifies dynamic loadings. DELAYS - Specifies time delays for dynamic loads. DPHASES - Specifies phase lead terms for dynamic loads. TICS - Specifies transient initial conditions. =PAGE= Table 1.10-19. Substructure Item Descriptions EQSS External grid point and internal point equivalence data. BGSS Basic grid point coordinates. CSTM Local coordinate system transformation matrices. LODS Load set identification numbers. LOAP Load set identification numbers for appended load vectors. PLTS Plot sets and other data required for Phase 2 plotting. KMTX Stiffness matrix. LMTX Decomposition product of REDUCE operation. MMTX Mass matrix. PAPP Appended load vectors. PVEC Load vectors. POAP Appended load vectors on omitted points. POVE Load vectors on points omitted during matrix reduction. UPRT Partitioning vector used in matrix reduction. HORG H or G transformation matrix. UVEC Displacement vectors or eigenvectors. QVEC Reaction force vectors. SOLN Load factor data or eigenvalues used in a solution. LAMS Eigenvalue data from modal reduce operation. PHIS Eigenvector matrix. GIMS G transformation matrix for interior points from a modal reduction. K4MX Structural damping matrix. BMTX Viscous damping matrix. PHIL Left side eigenvector matrix from unsymmetric CREDUCE operation. HLFT Left side H transformation matrix from unsymmetric CREDUCE operation. =PAGE= Job Control Deck : : NASTRAN ID APP DISP,SUBS RESTART Executive Control Deck : : (optional) CEND SUBSTRUCTURE SOF : Substructure Control Deck : ENDSUBS TITLE = : Case Control Deck : BEGIN BULK : : Bulk Data Deck ENDDATA Figure 1.10-2. Substructuring input data deck =PAGE= Ŀ Ŀ Ŀ Ŀ Ŀ Ŀ Ŀ Ŀ Ŀ Ŀ Phase 1 A B xa xb E ya yb yxa yxb ye Phase 2 COMBINE EQUIV ĿĿ Ŀ Ŀ C PREFIX D yc yd = X COMBINE Ŀ Ŀ F yf Phase 3 REDUCE ĿĿ F EQUIV PREFIX = Y H COMBINE Ŀ I SOLVE RECOVER Ŀ A Primary Substructures Ŀ xa Image Substructures Figure 1.10-3. Example of multi-stage substructuring =PAGE= SUBSTRUCTURE OPERATING FILE TABLE OF CONTENTS E B C L P K M P P U H U Q S P P L L G P L K B P H Q G S O L M M V O P O V V O A O O M I H A 4 M H L S S T D T T T E V R R E E L P A A T M I M M T I F SUBSTRUCTURE S S M S S X X C E T G C C N P P P X S S S X X L T NO. NAME TYPE SS PS LL CS HL-------------------------------------------------- 1 VANE B 5 0 0 3 6 2 2 2 2 2 2 2 2 2 RING B 0 0 0 1 6 2 2 2 2 2 2 2 2 3 VANER B 0 1 0 4 6 2 2 2 2 2 2 2 4 VANEB B 3 1 0 5 6 2 2 2 2 2 2 2 5 VANEL B 4 1 0 2 6 2 2 2 2 2 2 2 6 WINDMILL C 0 0 2 0 0 2 2 2 2 2 2 2 2 2 SIZE OF ITEM IS GIVEN IN POWERS OF 10 (0 INDICATES DATA IS STORED IN PRIMARY) Ŀ Ŀ Ŀ Ŀ Ŀ RING VANE VANER VANEB VANEL Ŀ WINDMILL Figure 1.10-4. Sample of substructure operating file table of contents =PAGE= Ŀ NASTRAN Data Deck Ĵ Ĵ Printout and Plots PHASE 1 OPTP from Prior Run Ĵ Ĵ NPTP and SOF for Input to Phase 2 Run on Other Computer SOF Substructure Operating File Ŀ NASTRAN Data Deck Ĵ Ĵ Printout and Plots PHASE 2 SOFs from Prior Phase 1 or Ĵ Ĵ SOF for Input to Other Phase 2 Runs on Other Computer Phase 2 or Phase Computers 3 Runs SOF Substructure Operating File Ŀ NASTRAN Data Deck Ĵ SOF from Prior Phase 2 Ĵ PHASE 3 Run on Other Computer OPTP from Phase 1 Ĵ Ĵ NPTP SOF Substructure Operating File Printout of Final Results and Plots Note: If all processing is performed on the same computer, SOF tape output is not required. All communication may be carried out using the same SOF disk/drum throughout. Figure 1.10-5. Data file organization for NASTRAN multi-stage substructuring =PAGE= 1.11 AEROELASTIC MODELING 1.11.1 Introduction The NASTRAN aeroelastic capability is intended for the study of stability and response of aeroelastic systems. It is compatible with the general structural capability, but it is not designed for use with other special capabilities such as conical shell elements, hydroelastic option, and acoustic cavity analysis. The structural part of the problem will be modeled as described in other sections of this manual. This section deals with the aerodynamic data and the connection between structural and aerodynamic elements. Section 1.11.2 deals with the aerodynamic data. The selection of a good aerodynamic model will depend upon a knowledge of the theory (see Section 17.5 of the Theoretical Manual). Several choices of aerodynamic theory are available. All assume small amplitude sinusoidal motions. Transient aerodynamic forces are obtained by Fourier methods. Section 1.11.3 deals with the interconnection between aerodynamic and structural degrees of freedom. The interpolation methods include both linear and surface splines. These methods are superior to high order polynomials since they tend to give smooth interpolation. They are based upon the theory of uniform beams and plates of infinite extent (see Section 17.3 of the Theoretical Manual). Section 1.11.4 describes modal flutter analysis by the three available methods. Section 1.11.5 gives instructions for modal aerodynamic response analysis. This includes frequency response, transient response, and random analysis. The excitation may consist of applied forces or gusts (Doublet-Lattice theory only). 1.11.2 Aerodynamic Modeling Aerodynamic elements define the interaction between the structure and an airflow. Since the elements usually occur in regular arrays, the connection cards are designed to specify arrays. The grid points associated with the elements in an array are generated within the program. Spline methods are used to interpolate for aerodynamic grid point deflection in terms of structural points. For every aerodynamic problem, basic parameters are specified on the AERO bulk data card. A rectangular aerodynamic coordinate system must be identified. The flow is in the positive x-direction in this system. The use of symmetry (or antisymmetry) is recommended to analyze symmetric structures, to simulate ground effects, or to simulate wind tunnel walls. Any consistent set of units can be used for the dimensional quantities. The types of elements available are shown in Table 1.11-1. Every CAEROi element must reference a PAERO1 data card, which is used for additional parameters. Lists of real numbers are sometimes required, which are given on AEFACT lists. These lists may include division points (for unequal box sizes) and parameter values. 1.11.2.1 Doublet-Lattice Panels The lifting surfaces are idealized as planes parallel to the flow. The configuration is divided into plane panels (macro-elements), each of constant dihedral. These panels are further subdivided into "boxes" (see Figure 1.11-1), which are trapezoids with sides parallel to the airflow direction. If an airfoil lies in (or nearly in) the wake of another, then the spanwise divisions should lie along the same streamline. The boxes should be arranged so that any fold or hinge lines lie along the box boundaries. The aspect ratio of the boxes should be roughly unity or less. The chord length of the boxes should be less than 0.08 times the velocity divided by the greatest frequency of interest, but no less than four boxes per chord should be used. Boxes should be concentrated near wing edges and hinge lines or any other place where downwash is discontinuous. A further discussion of the choice of models is found in Reference 1. Aerodynamic panels are assigned to groups. All panels within a group have aerodynamic interaction. The purpose of the groups is to reduce the time to compute aerodynamic matrices when it is known that aerodynamic interference is unimportant, or to allow the analyst to investigate the effects of aerodynamic interference. Each panel is described by a bulk data CAERO1 card. A property card PAERO1 may be used to identify associated interference bodies. It is recommended that a body be identified if the panel is less than one body diameter from the body. The box divisions along the span are determined either by specifying the number of equal boxes (NSPAN) or the identity (LSPAN) of an AEFACT data card which gives a list of division points in terms of a fraction of the span. A similar arrangement is used in the chord direction. The locations of the two leading edge points are specified in any coordinate system (CP) defined by you (including BASIC). The lengths of the sides are specified by you, and they are in the airstream direction, assuring that the panel is parallel to the flow. Every panel must be assigned to some group (IGID). If all panels interact, then select IGID = 1 for all panels. There will be many degrees of freedom associated with each aerodynamic panel. There is an aerodynamic grid point associated with each box within a given panel. These points are located at the center of each box and are automatically numbered and sequenced by the program. The lowest aerodynamic grid point number for a given panel is assigned the same number specified for the panel designation. The grid point numbers increase in increments of 1 (see CAERO1 data card figure) over all boxes in the panel. You must be aware of these internally generated grid points and ensure that their numbers are distinct from structural grid points. These aerodynamic points are used for output including displacements, plotting, matrix prints, etc. The local displacement coordinate system has component T1 in the flow direction and component T3 in the direction normal to the panel (the element coordinate system of CAERO1). 1.11.2.2 Slender and Interference Bodies The bodies are idealized as either "slender" or "interference" elements. The major purpose of the slender body elements is to account for the forces arising from the motion of the body, while the interference elements account for the effects of the body upon the panels and other bodies. Bodies are further classified as to the type of motion allowed. In the aerodynamic coordinate system, y and z are perpendicular to the flow. In general, bodies may move in both the y- and z-directions. Frequently, a body (for example, a fuselage) lies on a plane of symmetry and only z (or y) motion is allowed. Thus, any model may contain z-bodies, zy-bodies, and y-bodies. One or two planes of symmetry or antisymmetry may be specified. Figure 1.11-2 shows an idealization with bodies and panels. This example case is the one used to illustrate the Doublet-Lattice program in Ref. 2. It has a body (on the midplane), a wing, pylon, and nacelle. The location of a body is specified on a CAERO2 data card. The location of the nose and the length in the flow direction are given. The slender body elements and interference elements are distinct quantities and must be specified separately. At least two slender body elements are required for every aerodynamic body, while interference elements are optional. The geometry is given in terms of the element division points, and the width and height of the assumed elliptical cross section. The locations of the division points may be given in dimensionless units or, if the lengths are equal, only the number of elements need be specified. The semi-widths of the two types of elements may be specified separately and are given in units of length. Usually the slender body semi-width is taken as zero at the nose and is a function of x, while the interference body semi-width is taken to be constant. The height-to-width ratio must be constant for each body. These body elements are primarily intended for use with Doublet-Lattice panels. The interference elements are only intended for use with panels, while slender body elements can stand alone. Grid points will be generated only for the slender body elements. The first grid point will be assigned the ID of the body and other grid points will be incremented by one. You must ensure that the IDs of these generated grid points are distinct from all other grid points in the model. There are some rules about bodies which have been imposed. All z-only bodies must have lower ID numbers than zy-bodies, which in turn must have lower ID numbers than y-only bodies. The total number of interference bodies associated with a panel is limited to six. You should be cautious about the use of associated interference bodies since they tend to increase computing time significantly. 1.11.2.3 Mach Box Theory Mach box aerodynamics may be used to compute unsteady supersonic aerodynamic forces for a flat, isolated wing at supersonic speeds. The surface (see Figure 1.11-3) may have a leading and/or trailing edge crank (change of angle). There may be one or two adjacent (to each other) trailing edge control surfaces. The "inboard" edge (side 1-2 on the connection card) must be a plane of aerodynamic symmetry or antisymmetry. The geometry of the planform is specified on the CAERO3 data card. Two leading edge corners (points 1 and 4 of Figure 1.11-3) are located by you, using any NASTRAN coordinate system. These, along with the flow direction, define the plane of the wing. Up to ten additional points are permitted to specify cranks and controls; these are dimensional quantities using a coordinate system in the plane of the wing and with origin at point 1. The aerodynamic grid points for interconnection are in the plane of the element. You must specify a list of x,y pairs for the wing. These are located using the coordinate system shown in Figure 1.11-3. There must be at least three points. Additional lists of at least three points are needed for each control surface which is used. The T3 component of these aerodynamic grid points is normal to the plane of the element. Interpolation for deflections and slopes at Mach box locations is done by surface spline routines within the program. Thus the control point locations can be held fixed, even when the Mach number is changed. These aerodynamic grid points will be numbered, starting with the element ID, and must be distinct from all other grid points. The following restrictions must be satisfied: 1. The leading edge and hinge line sweepback angles must be greater than or equal to zero. 2. All control surface sides must be parallel to the flow, or else the aft point of the control surface side must be inboard of the forward point. 3. If a leading edge crank is not present, then x5,y5 do not have to be input. 4. If a trailing edge crank is not present, then x6,y6 do not have to be input. 5. A trailing edge crank cannot be located on a control surface. It must be located inboard, outboard, or exactly at the junction of the two control surfaces. 6. Points 8, 10, and 12 are used with points 7, 9, and 11 respectively to define the control surface edges. They must be distinct from points 7, 9, and 11, but they do not have to lie on the wing trailing edge. The program will calculate new points 8, 10, and 12 for the wing trailing edge. However, points 8, 10, or 12 must be located on the trailing edge if the trailing edge crank is located at the left corner of control surface one (1) or the right corner of control surface two (2) or between the two control surfaces. For example, set x8 = x6 and y8 = y6 if the crank is at the left corner of control surface one. 7. When only one control surface is present, it must be control surface one (1). 8. If control surface two (2) is not present, then x11,y11 and x12,y12 are not required as input. 9. If no control surfaces are present, then xi,yi (i = 7 through 12) are not required as input. 10. No aerodynamic balance for the control surfaces has been included in the Mach Box Theory. 11. The number of chordwise boxes used as input (NBOX) to the program should be carefully selected. Note that NBOX is the number of chordwise divisions from the most forward point to the most aft point on the lifting surface, as shown in Figure 1.11-4. If the maximum number of allowable boxes (200 on the main surface, 125 on each control surface) is exceeded, the program will reduce the number of chordwise boxes one at a time until the number of boxes is under the allowable limit. Expenditure of excessive computer time may occur during this process. 12. The edge 1-2 will be taken as a plane of symmetry unless SYMXZ=-l (see AERO data card). 1.11.2.4 Strip Theory Modified strip theory can be used for unsteady aerodynamic forces on a high aspect ratio lifting surface. Each strip may have two or three degrees of freedom. Plunge and pitch are always used, and an aerodynamically balanced control surface is optional. If a control surface is present, either a sealed or an open gap may be used. The planform (which may have several strips in one macro-element) is specified on a CAERO4 bulk data card. A sample planform is shown in Figure 1.11-5. You supply the two leading edge corner locations and the edge chords as dimensional quantities. Edge chords are assumed parallel to the flow. All additional geometry (box divisions, hinge locations, etc.) is given in dimensionless units. Several CAERO4 cards may be used if there are several surfaces or cranks. A grid point is assigned to each strip, and will be assigned an ID starting with the macro-element ID and incrementing by one for each strip. The plunge (T3) and pitch (R2) degrees of freedom have the conventional definition. When a control surface is present, the R3 degree of freedom has a nonstandard definition, which is the relative control rotation. When interconnecting with the structure, the ordinary (surface or linear) splines can be used for T3 and R2, but a special method (see SPLINE3 data card) is used for the relative control rotation. The parameters such as lift curve slope or lag function may be varied to account for tip effects (three-dimensional flow) and Mach number by AEFACT data card selection from PAERO4. The AEFACT data card format used by strip theory is shown in the remarks on the PAERO4 data card. You may request a Prandtl-Glauert (compressibility and sweep) correction to the value of the curve slope. The lag function depends upon the local (that is, using the chord of the strip) reduced frequency. For incompressible flow, it is the Theordorsen function C(k). An approximate form for this function is given by b N n C(k) = (1) n=0 1-i /k n where 0 = 0, may be selected for computing lags. The choice of parameters bn and n is left to you so that you may select values suitable for your requirement. Reference 3 gives values for various Mach numbers and aspect ratios. 1.11.2.5 Piston Theory Piston theory in NASTRAN is a form of strip theory. The aerodynamic forces are computed from third order piston theory, which is valid for high Mach numbers m >> 1, or sufficiently high reduced frequency m2k2 >> 1. Although the latter condition may be met in subsonic flow, the primary application of piston theory is in supersonic flow. The coefficients of the point pressure function (relating local pressure to local downwash) may be modified to agree with the Van Dyke theory and to account for sweepback effects. The resulting strip parameters will depend upon the wing thickness distribution and spanwise variation of initial angle of attack, which must be supplied by you. The point pressure function is given by Cp = -(4/m)[C1 + 2C2 mgx + 3C3m2 (gx2 + 02)] v, where Ŀ Coefficient Van Dyke theory with Sweep Piston Theory Ĵ _ 2 2 1/2 C m/(m - s ) 1 1 Ĵ _ 4 2 2 2 2 2 2 C [m (+1) - 4s (m - s )]/4(m - s ) (+1)/4 2 Ĵ C (+1)/12 (+1)/12 3 and where Cp local pressure coefficient (pressure rise divided by dynamic pressure) 9x derivative of airfoil semi-thickness in the flow direction m Mach number s sec^, secant of sweepback angle v unsteady dimensionless downwash o initial angle of attack y ratio of specific heats = 1.4 Geometry specification and interconnection points follow the same rules as for strip theory (see Section 1.11.2.4). The additional information about angle of attack and thickness is given on AEFACT data cards which are referenced by the CAERO5 and PAERO5 data cards. The AEFACT data card format used by piston theory is shown in the remarks on the PAERO5 data card. If thickness integrals are input on AEFACT data cards, see the thickness integral definitions on the CAERO5 data card. 1.11.3 The Interconnection Between Structure and Aerodynamic Models The interpolation between the structural and aerodynamic degrees of freedom is based upon the theory of splines (Figure 1.11-6). High aspect ratio wings, bodies, or other beamlike structures should use linear splines. Low aspect ratio wings, where the structural grid points are distributed over an area, should use surface splines. Several splines can be used to interpolate to the boxes on a panel or elements on a body; however, each point can refer to only one spline. Any box or body element not referenced by a spline will be "fixed" and have no motion. For any point, especially a control surface degree of freedom, a linear relationship (like an MPC) may be specified. For all types of splines, you must specify the structural degrees of freedom and the aerodynamic points involved. The structural points, called the g-set, can be specified by a list or by specifying a volume in space and determining all the grid points in the volume. The degrees of freedom retained at the grid points include only the normal displacements for surface splines. For linear splines, the normal displacement is always used and, by user option, torsional rotations or slopes may be included. The global transformation at structural points is automatically applied for surface and linear splines. The SPLINE1 data card defines a surface spline. This can interpolate for any "rectangular" subarray of boxes on a panel. For example, one spline can be used for the inboard end of a panel and another for the outboard end. The interpolated grid points (k-set) are specified by naming the lowest and highest aerodynamic grid point numbers in the area to be splined. The two methods for specifying the grid points use SET1 and SET2 data cards. A parameter DZ is used to allow some smoothing of the spline fit. If DZ = 0 (the usual value), the spline will pass through all deflected grid points. If DZ > 0, then the spline (a plate) is attached to the grid deflections via springs, which produce a smoother interpolation that does not necessarily pass exactly through any of the points. The flexibility of the springs is proportional to DZ. The SPLINE2 data card defines a linear spline. As can be seen from Figure 1.11-6, this is really a generalization of a simple spline to allow for interpolation over an area. It is similar to the method often used by aeronautical engineers who assume that an airfoil chord is rigid. The portion of a panel to be interpolated and the set of structural points are determined in the same manner as with SPLINE1. A NASTRAN coordinate system must be supplied to determine the axis of the spline. Since the spline has torsion as well as bending flexibility, you may specify the ratio of flexibilities; the default value for this ratio is 1.0. The attachment flexibilities, Dz, Dx, and Dy, allow for smoothing, but usually all values are taken to be zero. An exception would occur if the structural model does not have slopes defined, in which case the flexibility DTHX must be infinite; the convention DTHX = -1.0 is used in this case. When used with bodies, there is no torsion and the spline axis is along the body. There are certain cases with splines where attachment flexibility is either required or should not be used. The following special cases should be noted. 1. Two or more grid points, when projected onto the plane of the element (or the axis of a body) may have the same location. To avoid a singular interpolation matrix, a positive attachment flexibility must be used. 2. With linear splines, three deflections with the same spline y-coordinate would overdetermine the interpolated deflections since the perpendicular arms are rigid. A positive DZ is needed to make the interpolation matrix nonsingular. 3. With linear splines, two slopes (or twists) at the same y-coordinate would lead to a singular interpolation matrix. Use DTHX > 0 (or DTHY > 0) to allow interpolation. 4. For some modeling techniques, that is, those which use only displacement degrees of freedom, the rotations of the structural model are constrained to zero to avoid matrix singularities. If a linear spline is used, the rotational constraints should not be enforced to these zero values. When used for panels, negative values of DTHX will disconnect the slope, and negative values of DTHY will disconnect the twist. For bodies, DTHY constrains the slopes, since there is no twist degree of freedom for body interpolation. For a linear spline, if all of the structural points lie on a straight line, the use of infinite (negative DTHX or DTHY) rotational flexibility results in a kinematically unstable idealization. For linear splines used with wings, the parameter DTOR should be selected as a representative value of EI/GJ. 1.11.4 Modal Flutter Analysis The purpose of modal flutter analysis is to study the stability of an aeroelastic system with a minimum number of degrees of freedom. A prerequisite to modal flutter analysis is the calculation of an aerodynamic matrix with a transformation to modal coordinates. This operation is often very costly and care should be taken to avoid unnecessary computations. One method is to compute the modal aerodynamic matrix at a few Mach numbers and reduced frequencies and interpolate to others. Matrix interpolation is an automatic feature of the flutter rigid format. The MKAERO1 and MKAERO2 data cards allow the selection of parameters for the aerodynamic matrix calculation on which the interpolation is based. The method of flutter analysis is specified on the FLUTTER bulk data card. The FLUTTER card is selected in case control by an FMETHOD card. Three methods of flutter analysis are available; K, KE, and PK. These are shown in Table 1.11-2. The K-method allows looping through three sets of parameters: density ratio (p/pref; pref is given on an AERO data card); Mach number m; and reduced frequency k. For example, if you specify two values of each, there will be eight loops in the following order. LOOP (CURVE) DENS MACH REFREQ 1 1 1 1 2 2 I 1 3 1 1 2 4 2 1 2 5 1 2 1 6 2 2 1 7 1 2 2 8 2 2 2 Values for the parameters are listed on FLFACT bulk data cards. Usually, one or two of the parameters will have only a single value. Caution: Do not set up a large number of loops; it may take an excessive time to execute. A parameter VREF may be used to scale the output velocity. This can be used to convert from consistent units (for example, in/sec) to any units you may desire (for example, knots), determined from Vout = V/VREF. Another use of this parameter is to compute the flutter index, by choosing VREF =bw * sqrt(u). If physical output (grid point deflections or element forces, plots, etc.) is desired rather than modal amplitudes, this data recovery can be made upon a user selected subset of the cases. The selection is based upon the velocity; the method is discussed in Section 3.20.4. The KE-method is similar to the K method. By restricting the option, the KE-method is a more efficient K-method. The two major restrictions are that no damping (B) matrix is allowed and no eigenvector recovery is made. This means that the KE-method is not suitable for a control system, but it is a good method for producing a large number of points for the classical V-g curve. The KE-method also sorts the data for plotting. A plot request for one curve gives all of the reduced frequencies for a mode, while a similar request in the K-method gives all of the modes at one k value. The PK-method treats the aerodynamic matrices as frequency dependent springs and dampers. A frequency is estimated and the eigenvalues are found. From an eigenvalue, a new frequency is found. The convergence to a consistent root is very rapid. The major advantage of the method is that the damping values obtained at subcritical flutter conditions appear to be more representative of the physical damping. Another advantage occurs when the stability at a specified velocity is required, since many fewer eigenvalue analyses are needed to find the behavior at one velocity. The input data for the PK-method also allows looping, as in the K method. The inner loop of your data is velocity, with Mach number and density on outer loops. Thus, the effects of varying any or all of the three parameters on one run is possible. Subsets of flutter analysis for checking data are listed under the description of the SOL card in Section 2.2.3. 1.11.5 Modal Aeroelastic Response Analysis The purpose of the modal aeroelastic response analysis is to study the behavior of an aeroelastic system resulting from applied loads and gusts. One rigid format can solve frequency response, random response, and transient response problems. The capability includes control systems (using NASTRAN Extra Points and Transfer Functions), multiple loading conditions (with SUBCASES), and rigid body modes. The input data deck is the same as for the flutter analysis, except for load requests and output selection. The point loads are applied with standard RLOAD (frequency response) or TLOAD (transient response) data cards. For gust fields, which are only implemented for the Doublet-Lattice/Body Aerodynamic theory, the vertical stationary gust velocity can be specified with either RLOAD or TLOAD cards. In this manner, the response to either random or time-dependent gusts may be obtained. For random response analysis, the power spectral density of the load must be supplied. For gusts, either the Von Karman or the Dryden formula can be selected. The output power spectral density is requested by the XYOUT Case Control cards. The r.m.s. value and No, the expected frequency, are automatically printed when PSDF information is requested. You must supply the basic flight conditions. The velocity is specified by the AERO data card, while Mach number and dynamic pressure (q) are supplied on PARAM bulk data cards. The damping must be modal damping. Ordinarily, a modal viscous damping is assumed, as in the NASTRAN modal dynamic rigid format. A parameter KDAMP = -1 can be used to substitute modal structural damping; the modal stiffness is multiplied by [1+ig(w)]. =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.11-1. An aerodynamic doublet-lattice panel subdivided into boxes =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.11-2a. N5KA example with three panels (ten boxes), two bodies (nine slender body elements), and seven interference elements =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.11-2b. N5KA example with three panels (ten boxes), two bodies (nine slender body elements), and seven interference elements =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.11-3. Mach box surface =PAGE= GRAPHIC DISPLAY OF REGIONS ON MAIN SEMISPAN MACH NUMBER 1.300 BOX WIDTH .052064 BOX LENGTH .043248 SS S MAIN SS. 1 CNTRL 1 SSS. 2 CNTRL 2 SSS.. . DIAPHRAGM SSSS.. ; WAKE SSSS.. SSSSS... SSSSS.... SSSSSS.... SSSSSS..... SSSSSSS..... SSSSSSS...... SSSSSSSS...... SSSSSSSSS...... SSSSSSSSSS...... SSSSSSSSSSS...... SSSSSSSSSSSS...... SSSSSSSSSSSSS...... SSSSSSSSSSSSSS...... SSSSSSSSSSSSSS...... SS1111122SSSSS..... SS111112222SSS.... SS1111122222SS... SS1111122222SS.. 22SS. S (b) Surface as generated by program Figure 1.11-4. Mach box surface showing Mach boxes and diaphragm =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.11-5. Strip theory example lifting surface =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.11-6. Splines and their coordinate systems =PAGE= Table 1.11-1. Aerodynamic Elements Doublet Lifting Body Lattice (Inter- Mach Box Strip Piston Type Panel ference) Surface Theory Theory Data Cards CAERO1 CAERO2 CAERO3 CAERO4 CAERO5 PAERO1 PAERO2 PAERO3 PAERO4 PAERO5 Mach Number Subsonic Subsonic Supersonic All regimes Hypersonic Symmetry 2 planes 2 planes 1 plane None None Options y = 0 y = 0 required z = 0 z = 0 Interaction Panels and bodies Boxes on None None in the same group one surface Comments One or two Control A strip theory, control surface coefficients surfaces allowed. from piston or User may Van Dyke theory. vary Control surface parameters. Interconnection Box Slender body User Strip Strip to Structure centers element specified 1/4-chord 1/4-chord centers locations Displacement 3,5 3,5 z-bodies 3 3,5 No 3,5 No control Components Used 2,6 y-bodies control 3,5,6 Control at Connection 3,5,6 Points Control =PAGE= Table 1.11-2. Flutter Analysis Methods "K" "KE" "PK" Structural K (complex) K (complex) K (real) Matrices B (complex) B (real) M (complex) M (complex) M (real) Aerodynamic M (complex) M (complex) K (real) Matrices B (real) User Input p-density p-density p-density Loops m-Mach number m-Mach number m-Mach number k-reduced frequency k-reduced frequency V-velocity Output V-g curve V-g curve V-g curve Complex modes Complex modes Displacements Displacements Deformed plots Deformed plots Method Compute roots for Compute roots for For each p, m, V, user input p, m, k. user input p, m, k. iterate on each root Reorder output so a to find consistent "curve" refers to a results. (Details mode. in the Theoretical Manual.) Eigenvalue Several methods Complex Upper* Real Upper* Method available, selected Hessenberg Hessenberg by user via CMETHOD in case control. * No CMETHOD card is used. =PAGE= REFERENCES 1. Giesing, J.P., T. P. Kalman, and W. P. Rodden, "Subsonic Unsteady Aerodynamics for General Configurations," Part II; Volume I, Application of the Doublet-Lattice Method and the Method of Images to Lifting-Surface/Body Interference; AFFDL-TR-71-5; April 1972. 2. Giesing, J.P., T. P. Kalman, and W. P. Rodden, "Subsonic Unsteady Aerodynamics for General Configurations," Part II; Volume II, Computer Program N5KA; AFFDL-TR-71-5, April 1972. 3. Yates, E. C. and R. M. Bennett, "Use of Aerodynamic Parameters from Nonlinear Theory in Modified-Strip-Analysis Flutter Calculations for Finite-Span Wings at Supersonic Speeds;" NASA TN D-1824; July 1963. 4. Bisplinghoff, R. L., H. Ashley, and R. L. Halfman, "Aeroelasticity," pp. 682, 691; Addison-Wesley; 1955. =PAGE= 1.12 CYCLIC SYMMETRY Many structures, including pressure vessels, rotating machines, and antennae for space communications, are made up of virtually identical segments that are symmetrically arranged with respect to an axis. There are two types of cyclic symmetry as shown in Figures 1.12-1 and 1.12-2: simple rotational symmetry, in which the segments do not have planes of reflective symmetry and the boundaries between segments may be general doubly-curved surfaces; and dihedral symmetry, in which each segment has a plane of reflective symmetry and the boundaries between segments are planar. The use of cyclic symmetry allows you to model only one of the identical substructures. There will also be a large saving of computer time for most problems. The theoretical treatment for cyclic symmetry is given in Section 4.5 of the Theoretical Manual. The total model consists of N identical segments which are numbered consecutively from 1 to N. You supply a NASTRAN model for one segment, using regular elements and standard modeling techniques, except grid points are not permitted on the polar axis. All other segments and their coordinate systems are automatically rotated to equally spaced positions about the polar axis by the program. The boundaries must be conformable, that is, the segments must coincide. This is easiest to insure if a cylindrical or spherical coordinate system is used, but such is not required. The PARAM card, CTYPE, is used to specify either rotational symmetry or dihedral symmetry; and the number of segments, N, in the structural model is specified on the PARAM card, NSEGS. As indicated in Figure 1.12-2, dihedral symmetry provides solutions for each segment and its reflected image. This requires application of both symmetric and antisymmetric boundary conditions. In rotational symmetry the basic transformation equation between the structure segments n = 1, 2, etc. and the harmonic indices k = 0, 1, 2, etc. is n _o KMAX _kc _kx u = u + [u cos(n-1)ka + u sin(n-1)ka] (1) k=1 where n u is any displacement, load, stress, etc., on the nth segment (n = 1, 2...NSEGS), _o _kc _ks u , u , u are the corresponding cyclic coefficients used in the solution which define the entire structure, k is the cyclic index (that is, KINDEX), KMAX is the limit (KMAX <= N/2) of k. (If all values of k are used, the transformation is exact), 2 a = is the circumferential angle for each segment. NSEGS In dihedral symmetry the repeated request may be divided into two half segments divided by a plane of symmetry. The solution is obtained for symmetric motions (S) and antisymmetric motions (A) of the right half segment modeled by you. Thus, for each cyclic index, k, four coefficients are obtained defining the variable, n, that is, ks; kc,S; ks,A; and kc,A. In the right hand segment the terms are added: _ _ _ Right side: uks = uks,S + uks,A (2) In the left hand mirror image the antisymmetric solution is subtracted: _ _ _ Left side: uks = uks,S - uks,A (3) The reason for using dihedral symmetry is to reduce the size of the model by one half. However in static analysis, this procedure requires twice as many solutions as in rotational cyclic symmetry. In normal modes analysis only the modes for the symmetrical components ukc,S and uks,A are obtained. The modes for the other two terms are identical and correspond to a one segment rotation of the structure. The two boundaries are called sides 1 and 2. In the case of rotational symmetry, side 2 of segment n is connected to side 1 of segment n+l, as shown in Figure 1.12-1. In the case of dihedral symmetry, side 1 is on the boundary of the segment and side 2 is on the plane of symmetry for the segment, as shown in Figure 1.12-2. In either case the grid point numbers on sides 1 and 2 must be specified on the bulk data card, CYJOIN. As indicated in the Theoretical Manual Section 4.5, the cyclic symmetry analysis uses a finite Fourier transformation. Hence, the use of cyclic symmetry procedures does not introduce any additional approximations beyond those normally associated with finite element analysis. In the case of static analysis, a shortened approximate method may be used where the maximum value of the harmonic index is specified on the PARAM card, KMAX. The default procedure is to include all harmonic indices. The use of a smaller number of harmonic indices is similar to truncating a Fourier series. The stiffness associated with the higher harmonic indices tends to be large, so that these components of displacements tend to be small. In the case of vibration analysis, the solutions are performed separately for each harmonic index. The harmonic index for each solution is specified on the PARAM card, KINDEX. The standard restart procedures can be used to calculate vibration modes for additional harmonic indices. No restrictions are placed on the use of the single point constraint, the multipoint constraint, or the OMIT feature of NASTRAN, other than that the constraints must be the same for each segment. Constraints between segments are automatically applied to the degrees of freedom at grid points specified on CYJOIN bulk data cards which are not otherwise constrained. The SPCD bulk data card may be used to vary the magnitude of enforced displacements for each of the segments. In the case of static analysis, the OMIT feature may be used to remove all degrees of freedom at internal grid points without any loss of accuracy. Since this reduction is applied to a single segment prior to the symmetry transformations, it can greatly reduce the amount of subsequent calculation. In the case of vibration analysis, the OMIT feature is used in the usual way to reduce the size of the analysis set and involves the usual approximations. The SUPORT card for free bodies cannot be used with cyclic symmetry. Static loads are applied to the structural model in the usual way. A separate subcase is defined for each segment (half segment for dihedral symmetry) and loading condition. The subcases for static loading must be ordered sequentially, according to the segment numbers. Multiple loading conditions for each segment must be in consecutive subcases. In the case of rotational symmetry, there will be a number of subcases equal to the number of segments in the structural model for each loading condition. In the case of dihedral symmetry, there will be twice as many subcases as for rotational symmetry because of the two symmetric components. If there is more than a single loading condition, the number of loading conditions must be specified on the PARAM card, NLOAD. An alternate procedure for specifying the static loads may be used if the transform values of the forcing functions are known. In this case, the transform values of the loads are specified directly on the usual loading cards. The PARAM card, CYCIO, must be included in the Bulk Data Deck to indicate that cyclic transform representation rather than physical segment representation is being used for the static loads. If this option is used, the subcases must be ordered according to the symmetrical components with the cosine cases preceding the sine cases for each symmetrical component. The output quantities will also be prepared in terms of the symmetric components. If the loading is specified in terms of the physical segments, the data reduction will also be done in terms of the physical variables. All of the normal outputs, including structure plots, are available. No provision is made to recover physical segment data in vibration analysis. The available output data does, however, include the symmetrical components of dependent displacements, internal forces, and stresses. For purposes of minimizing matrix bandwidth, the equations of the solution set are normally sequenced with the cosine terms alternating with the sine terms. You may request an alternate sequence on the PARAM card, CYCSEQ, which orders all cosine terms before all sine terms. The latter may improve efficiency when all of the interior points have been omitted. =PAGE= 1.You model one segment. 2.Each segment has its own coordinate system which rotates with the segment. 3.Segment boundaries may be curved surfaces. The local displacement coordinate systems must conform at the joining points. You give a paired list of points on Side 1 and Side 2 which are to be joined. This figure is not included in the machine readable documentation because of complex graphics. Figure 1.12-1. Rotational symmetry =PAGE= 1.You model one-half segment (an R segment). The L half segments are mirror images of the R half segments. 2.Each half segment has its own coordinate system which rotates with the segment. The L half segments use left hand coordinate systems. 3.Segment boundaries must be planar. Local displacement systems axes, associated with inter-segment boundaries, must be in the plane or normal to the plane. You list the points on Side 1 and Side 2 which are to be joined. This figure is not included in the machine readable documentation because of complex graphics. Figure 1.12-2. Dihedral symmetry =PAGE= 1.13 FULLY STRESSED DESIGN The fully stressed design option is part of the static analysis rigid format for structural analysis. Functional modules (OPTPR1 and OPTPR2) are provided to automatically adjust the properties based on maximum stress levels, and to control the number of design iterations based on user-supplied convergence criteria. All elements using a common property are sized together, that is, a plate with uniform thickness remains uniform. If you want to scale the properties for each element separately, each element must have its own property card. After a sufficient number of iterations, the element properties will be adjusted to the minimum values necessary to carry the prescribed loads. The process begins by performing a static analysis for all loading conditions using the initial values for all element properties. A new property, P2, will be scaled such that P = P [] (1) 2 1 + (1-) where P1 is the current property value and is an iteration factor with a default value of unity. The scale factor, , is defined as follows: = Max () (2) l where is a stress value and l is a stress limit. The maximum value of is taken for all loading conditions. Values of smaller than unity limit the property change in a single iteration, and thereby tend to improve the stability of the process. The maximum change in any property is limited by P 2 K < < K (3) min P max i where Pi is the initial value of the property and Kmin and Kmax are user-supplied limits. Convergence is achieved by completing the specified number of iterations, by having all selected element properties reach the specified limits, or by satisfying the following convergence criteria: | - | | l| < (4) l where is a user-supplied convergence limit. The following actions are required by you in order to utilize the fully stressed design capability: 1. You must select stress output in the Case Control Deck for all elements that will participate in the fully stressed design. 2. All required stress limits must be specified on the structural material cards associated with element properties that will participate in the fully stressed design. 3. The property optimization parameters must be specified on the bulk data card POPT. This card contains user-specified values for the maximum number of iterations, the convergence criteria (), the iteration factor (), and output options to print and/or punch the calculated values of the element properties. 4. The property optimization limits (Kmin and Kmax) must be specified on the PLIMIT bulk data card if you want to limit the maximum and minimum values of the element properties. The detailed definitions of the scale factors for each of the element types are given in Table 1.13-1. The symbols t, c, and s represent the limiting stress values in tension, compression, and shear, given on the structural material cards. All of the properties listed for each element are scaled in the same way, that is, both the area and torsional constant for the ROD are modified using the same scale factor. Table 1.13-1. Scale Factors for Fully Stressed Design Ŀ ElementStress Value Used Scale Factor () Properties Changed Ĵ ROD Axial Tension (1) Max (1/t,2/c, Area (A) TUBE Axial Compression (2) /s) Torsional Constant (J) Torsion () Ĵ BAR Fiber Stress End a (a1) Max (a1/t,b1/t,Area (A) Tension End b (b1) a2/c,b2/c)Torsional Constant (J) Moments of Inertia (I1, I2, I12) ELBOW Fiber Stress End a (a2) (I12 for BAR only) Compression End b (b2) Ĵ TRMEM Principal Tension (1) Max (1/t,2/c, Thickness (t) QDMEM Principal Compression (2) m/s) (Thicknesses t1, t2, QDMEM1 Maximum Shear (m) t3 for TRIM6) QDMEM2 IS2D8 TRIM6 Ĵ TRPLT Same as Above Same as Above Moment of Inertia (I) QDPLT (Fiber Distances z1 & z2) TRBSC Ĵ TRIA1 Same as Above Same as Above Moment of Inertia (I) QUAD1 Membrane Thickness (t1) Ĵ TRIA2 Same as Above Same as Above Thickness (t) QUAD2 Ĵ SHEAR Maximum Shear (m) m Thickness (t) s =PAGE= 1.14 THE CONGRUENT FEATURE 1.14.1 Introduction An important step in any NASTRAN problem is the generation of element matrices (stiffness, mass, and damping matrices, as required) in the EMG (Element Matrix Generator) module. In many cases, this step can represent a significant portion of the total problem activity. Because of the differences in algorithms and procedures, the cost of generating the element matrices for an element depends on the element type, its configuration, and its properties. However, this cost is associated primarily with CPU activity and is not significantly affected by core size or I/O transfers (see Section 14.3.2 of the User's Guide). Normally, the element matrices are generated in the EMG module once for each element in the model. However, when two or more elements in the model have the same element matrices, there is no reason why the same matrices should be computed separately for each such identical element. By declaring such elements as congruent, it is possible to cause their element matrices to be computed only once for all elements in the congruent set instead of their being computed repeatedly for each of the individual elements in the set. This results, in general, in a saving of CPU time in the EMG module. In many cases, judicious formulation of the problem to facilitate the use of the congruent feature can result in substantial savings in the computational effort. In some problems, over 99 percent reductions in EMG module CPU times have been obtained. 1.14.2 Congruent Feature Usage The congruent feature is specified in NASTRAN by means of one or more CNGRNT cards in the Bulk Data Deck (see Section 2.4). Any number of such cards may be employed. The CNGRNT bulk data card is an open-ended card and requires the specification of a primary element identification number and one or more secondary element identification numbers. The terms primary and secondary as used with regard to congruent data are purely relative and have no real significance. Generally, the primary element is the lowest numbered element in the congruent set, but this need not be so. The element matrices are actually computed in the EMG module only for the lowest numbered element in a congruent set (even though this element may not be the primary element). The element matrices for the rest of the elements in the congruent set are then derived from these computed matrices. When using CNGRNT cards, you should be aware of the following important characteristics of the congruent capability software design in NASTRAN. User Responsibility for Congruency Specification The elements declared as congruent must have characteristics (such as their orientation and geometry) that cause their element matrices in the global coordinate system to be truly identical. The program cannot test the validity of this structural specification. Therefore it is your responsibility to ensure that element congruence specifications are valid. Improper congruence specifications will result in an improper structure definition and will in turn lead to erroneous results. It should be emphasized that the proper use of the congruent feature will not cause the answers to be any different from those obtained without the use of the feature, but will only result in a saving of CPU time in the EMG module. Flexibility in Specifying Congruencies Clearly, congruency by its very definition can apply only to elements of the same type. Thus, for instance, a bar element can be congruent only to another bar element and not to a plate element. However, because of the effective manner in which the congruent feature has been incorporated into NASTRAN, elements of different types can be specified on the same logical CNGRNT card without in any way making the different element types congruent. Thus, on the same logical CNGRNT card, several bar elements can be declared as belonging to a congruent set and several plate elements can be specified as belonging to a separate congruent set. However, you should ensure that such specifications do not lead to erroneous declarations when elements of different types have the same identification numbers. Provision of "Phantom" Element Identification Numbers As a corollary to the above, it may be noted that the element identification numbers (primary or secondary) specified on a CNGRNT card need not all exist in a model. This greatly facilitates the use of the THRU option on the card. However, you are cautioned that, if too many non-existent elements are specified in the CNGRNT data (as may be the case when the THRU option is used), the EMG module may not have enough core to process all the CNGRNT data. In that case, an appropriate message is issued and those elements whose CNGRNT data cannot be processed will have their element matrices computed separately. 1.14.3 Factors Affecting Congruent Feature Efficiency As indicated earlier, the use of the congruent feature results in increased computational efficiency. The degree of efficiency obtained depends on the following factors, some of which can be influenced by your input specifications. Number of Congruent Elements Clearly, the larger the number of elements in a congruent set and the larger the number of sets, the greater the savings in CPU time. Type of Elements Specified as Congruent Greater savings in CPU time are obtained for certain element types than for other element types. Thus, for instance, declaring two IHEX3 elements as congruent will result in more savings than declaring two IHEX1 elements as congruent. Type of Analysis For a specified congruent set, greater savings are obtained in dynamic analysis than in static analysis since, in the former, mass and/or damping matrices need to be computed, in addition to stiffness matrices. Numbering of Grid Points of the Congruent Elements Processing is slightly more efficient if the relative order of the numbering of the grid points of the congruent elements is the same. Thus, for instance, two congruent quadrilateral plate elements are processed more efficiently if their grid points are numbered 1-7-4-6 and 12-23-16-20, respectively, than if they were numbered 1-7-4-6 and 11-14-27-15, respectively. In the former case, the grid point numbers of the two congruent elements increase or decrease in the same order as we go around the elements. In the latter case, the grid point numbers of the two congruent elements increase or decrease in different orders as we go around the elements. 1.14.4 Examples of Congruent Feature Usage The congruent feature is employed in fifteen (15) of the NASTRAN demonstration problems. A comparison of the EMG module CPU times (on IBM 5/360-95 computer) for these problems with and without the congruent feature is presented in Table 1.14-1. The savings resulting from the use of the congruent capability are quite apparent from this table. The most dramatic savings are obtained in NASTRAN Demonstration Problem Nos. 3-1-2 and 8-1-2, in which the EMG module CPU times are reduced by more than 99 percent. Table 1.14-1. Examples of Congruent Feature Usage in NASTRAN Demonstration Problems Congruent Element Data Module CPU Times (sec)* No. of (a) (b) Saving in Ex. Demo. Prob. Element No. of CNGRNT Using Not Using Module CPU No. No. Type Elements Sets Congruent Congruent Time (%)** 1 D01-03-1A QDMEM 216 1 0.8 8.3 90.4 2 D01-03-2A QDMEM1 216 1 1.2 13.5 91.1 3 D01-03-3A QDMEM2 216 1 1.5 11.1 86.5 4 D01-08-1A HEXA1 40 1 0.1 3.5 97.1 5 D01-09-1A HEXA2 40 1 0.3 7.4 95.9 6 D01-11-1A QUAD1 50 1 0.2 7.7 97.4 7 D01-13-1A IHEX1 40 5 2.8 16.9 83.4 8 D01-13-2A IHEX2 2 1 2.7 4.5 40.0 9 D03-01-1A QUAD1 200 1 0.4 15.4 97.4 10 D03-01-2A QUAD1 800 1 0.8 130.5 99.4 11 D05-01-1A TRIA1 80 4 0.7 11.7 94.0 12 D08-01-1A QUAD1 100 1 0.4 5.8 93.1 13 D08-01-2A QUAD1 400 1 0.4 49.1 99.2 14 D14-01-1A QUAD2 10 5 1.7 2.3 26.1 15 D15-0101A BAR 10 5 1.4 5.0 72.0 QUAD2 20 5 * All problems were run on the IBM S/360-95 computer. ** ((b-a)/b)*100 =PAGE= 1.15 MAGNETIC FIELD PROBLEMS 1.15.1 Introduction The determination of the magnetic fields in and about ferromagnetic bodies is an important step in the design of many structures and components. In commercial applications, knowledge of the fields in and near transformers and electrical machinery is often desired because of their effect on performance. This is discussed further in Reference 1. 1.15.2 Theory The governing equations of classical electromagnetic wave theory are Maxwell's equations: V * D = p (1) V * B = 0 (2) B V x E = - (3) t D V x H = J + (4) t where D = electric displacement vector B = magnetic flux density vector E = electric field intensity vector H = magnetic field intensity vector J = current density vector P = charge density t = time Additional relations are: D = E J = E B = H where = permittivity = conductivity = magnetic permeability The present work is concerned only with time-independent fields, thereby decoupling Equations 1 through 4 into one pair of equations governing the electrostatic field (Equations 1 and 3) and a second pair governing the magnetostatic field (Equations 2 and 4). Interest here is in the latter pair and the appropriate constitutive equations: V * B = 0 (5) V x H = J (6) with B = H (7) Numerical techniques for solving Equations 5 through 7 include integral equations and differential equations. The present work uses the differential equation approach incorporated into NASTRAN. In the theoretical aspects of the analysis, is defined as the scalar potential of the magnetic field anomaly Hm, that is, H = V (8) m where Hm is the modification, or anomaly, due to the presence of ferromagnetic material, to a Biot-Savart field. It is that is solved for by using the heat transfer approach in NASTRAN. In the anticipated applications of this method, accurate values of will be required in both the near field and far field. A major drawback of using the finite element method for solving magnetostatic problems is that the infinite domain surrounding the ferromagnetic material must be modeled (at least, to the point at which may be considered small). These accuracy and modeling requirements mean that the finite element mesh must be very fine in all regions. In addition, the results near the finite element boundary may not be as precise as desired because of the imposed = 0 boundary condition. Two methods which could avoid the need for modeling the vast majority of the exterior domain are the use of infinite elements and the coupling of integral and differential techniques. These methods are presently being investigated, but, meanwhile, a third method, harmonic expansions, is being used to avoid fine modeling to "infinity". In the present applications, all ferromagnetic material and sources are enclosed by a suitably shaped surface, usually spherical or prolate spheroidal. Then NASTRAN is used to solve for the potentials at the grid points on the enclosing surface. Finally, Laplace's equation 2 V = 0 (9) may be solved, in the proper coordinates, using the potentials on the enclosing surface as an interior boundary condition. 1.15.3 Prolate Spheroidal Harmonic Expansion Most applications require only prolate spheroidal coordinates. The solution of Laplace's equation in these coordinates is n m (Qmn()) (,,) = [A cos (m) + B sin (m)] P () [](10) n=0 m=0 mn mn n (Qmn(o)) where = reduced magnetic scalar potential ,, = prolate spheroidal coordinates o = coordinate of the interior prolate spheroidal surface m m P ,Q = Legendre functions of the first and second kind, respectively n n 2 +1 Amn = m (n-m)! cos Bmn (2n+1) | sin (m)d | o(,)Pmn() d 4 (n+m)! 0 -1 1, m = 0 m = 2, m > 0 o(,) = distribution of potential on prolate spheroidal surface =o With the use of this expansion, the finite element model can become coarser as the distance from the prolate spheroidal reference surface increases. In addition, the model need not extend "too far", since the concept requires an accurate potential distribution only on the reference surface, which is placed as close as possible to the ferromagnetic material. However, the discretization of the reference surface itself must be fine enough to allow for an accurate representation of the integrals in the computation of the coefficients Amn and Bmn. 1.15.4 Input Data for Magnetostatic Analysis This section provides user information needed to perform a magnetostatic analysis with NASTRAN. This information is divided into six parts: NASTRAN Card, Executive Control Deck, Case Control Deck, Bulk Data Deck, Data Cards with Different Meanings, and Output. 1.15.4.1 NASTRAN Card In magnetostatic problems, functional module SSG1 (Static Solution Generator - Phase 1) generates a data block, HCFLD, that contains the source magnetic field at each grid point for each subcase resulting from specified fields on the SPCFLD bulk data card (see Section 1.15.4.4). Since HCFLD is not used in subsequent functional modules and is generated only for informational purposes, the costlier computation of grid point source magnetic fields due to current coils and dipoles is left as an option to you. If these fields are to be computed for HCFLD, the NASTRAN card must contain MODCOM (9) = 1. 1.15.4.2 Executive Control Deck Magnetostatic analysis is performed by using the steady-state heat transfer capability (Rigid Format 1, Approach HEAT) in NASTRAN. Therefore, the Executive Control Deck must contain the following two cards: 1. APP HEAT 2. SOL 1 In addition, there are three functional modules that pertain specifically to magnetostatic analysis. but are not incorporated into the Rigid Format. These are briefly described below: 1. Module EMFLD computes the total field intensity and flux density of user-selected finite elements. It reads the anomaly field information (temperature gradients) which NASTRAN computes in element coordinate systems, transforms it to the basic coordinate system, and adds the results to the element centroidal source magnetic fields computed in functional module SSG1. 2. Module MAGBDY processes bulk data card PERMBDY (see Section 1.15.4.4) and converts the grid points on the card to a form more readily usable by functional module SSG1. 3. Module PROLATE computes the prolate spheroidal harmonic coefficients to be used by an interactive graphics program. In order to execute the above modules and perform certain tasks related to the data blocks output from functional module SSG1, the following ALTER statements to the Rigid Format are required: ALTER n1 $ (where n1 = DMAP statement number of LABEL HLBL7, just before SSG1 module) MAGBDY GEOM1, HEQEXIN/PER/V,N,IPG $ ALTER n2 $ (where n2 = DMAP statement number of SDR1 module) SDR1, ,HCFLD,,,,,,,,,/,HCFLDG,/V,N,NSKIP/STATICS $ SDR1, ,HCCEN,,,,,,,,,/,HCCENG,/V,N,NSKIP/STATICS $ SDR1, ,REMFLD,,,,,,,,,/,REMFLG,/V,N,NSKIP/STATICS $ ALTER n3 $ (where n3 = DMAP statement number of SDR2 module) EMFLD HOEF1,HEST,CASECC,HCFLDG,MPT,DIT,REMFLG,GEOM1,CSTM,HCCENG/ HOEH1/V,N,HLUSET $ ALTER n4 $ (where n4 = DMAP statement number of OFP module, just after SDR2 module) OFP HOEH1,,,,,//S,N,CARDNO $ PROLATE GEOM1,HEQEXIN,BGPDT,CASECC,NSLT,HUGV,REMFLG,HEST,MPT,DIT/PROCOF $ OUTPUT2 PROCOF,,,,//0/11 $ TABPT PROCOF,,,,// $ ENDALTER $ The OUTPUT2 functional module writes prolate spheroidal coefficient information to FORTRAN-readable file UT1, which can be used as input to an interactive graphics post-processor. The TABPT instruction prints that file for user inspection. 1.15.4.3 Case Control Deck The FORCE (or ELFORCE) card is an optional request used to output the finite element anomaly and total magnetic fields. The anomaly field is output in the element coordinate system, the total field intensity is output in the basic coordinate system, and the total flux density is output in the coordinate system given on the BFIELD bulk data card (see Section 1.15.4.4). The basic coordinate system is the default. In order to output the total magnetic field for an element, the source and anomaly magnetic fields must be computed for the element, usually at the centroid. Since the number of elements in a magnetostatic analysis is usually large, care should be taken in requesting this output for a significant number of elements. The AXISYMMETRIC (or AXISYM) card is used in conjunction with the PROLATE bulk data card (see Section 1.15.4.4) to indicate symmetric or antisymmetric boundary conditions (or lack thereof). Symmetry and antisymmetry conditions refer to the source magnetic field (applied to a symmetric finite element model) and, therefore, to the anomaly potential with respect to the X-Y plane of the coordinate system which must be used when prolate spheroidal harmonic coefficients are to be computed. The options for AXISYM are: Option Meaning SYMM Symmetry conditions, and the source magnetic field for this subcase, will be included in the prolate spheroidal harmonic expansion. SYMMANOM Symmetry conditions, and the source magnetic field for this subcase, will not be included in the prolate spheroidal harmonic expansion. ANTI Antisymmetric conditions, and the source magnetic field for this subcase, will be included in the prolate spheroidal harmonic expansion. ANTIANOM Antisymmetric conditions, and the source magnetic field for this subcase, will not be included in the prolate spheroidal harmonic expansion. ANOM Neither symmetry nor antisymmetry. Also, the source magnetic field for this subcase will not be included in the prolate spheroidal harmonic expansion. No option (Card does not appear.) Neither symmetry nor antisymmetry. Also, the source magnetic field for this subcase will be included in the prolate spheroidal harmonic expansion. The specification of SYMM, SYMMANOM, ANTI, or ANTIANOM implies that the structure is symmetric with respect to the X-Y plane of the required coordinate system and that only one half, or 180 degrees, of the structure and surrounding medium is modeled. If ANOM or no specification is made, then full 360 degree modeling is assumed. The use of ANOM, with or without SYMM and ANTI, means that only the anomaly potential and anomaly field will be available for that subcase from the prolate spheroidal harmonic expansion. Requiring only the anomaly results is often the situation when the Earth's magnetic field is the source field. When a current coil is the source, the total potential and field are usually needed, in which case ANOM would be omitted. 1.15.4.4 Bulk Data Deck There are eight bulk data cards that pertain specifically to magnetostatics analysis. A brief description of each card follows. 1. The BFIELD card specifies a coordinate system identification number in which the total flux density for selected elements will be output. (The basic coordinate system is the default.) The anomaly field intensity is output in the element coordinate system, the total field intensity in the basic coordinate system, and the total flux density in the coordinate system specified by BFIELD. 2. The CEMLOOP card defines a circular current coil. The orientation of the coil is defined by specifying coordinates of the center of the coil and coordinates of two points on its circumference. The magnetic field due to the coil is computed from the Biot-Savart law using an elliptic integral formulation. 3. The GEMLOOP card defines a general current coil in piecewise linear segments by specifying the coordinates of the endpoints of the segments. At most, 14 linear segments are allowed on one logical GEMLOOP card, but the segments can be continued on another card. 4. The MDIPOLE card defines a magnetic dipole moment by specifying the coordinates of the location of the dipole and the components of its moment. The resulting magnetic field intensity is computed only at those points whose distances from the dipole are within ranges defined on the MDIPOLE card. 5. The PERMBDY card specifies points on boundaries of dissimilar magnetic permeability. The purpose of this card is two-fold: to reduce computer run time and to avoid numerical errors which may occur due to limited orders of numerical integration, nonuniform modeling, use of CTETRA elements, etc. Such numerical errors may occur as follows: the magnetic equivalent loading at a point, resulting from a single finite element, is given by the equation: T f = | (VN ) H dV (11) i i c V It can be shown that, if a point is surrounded by elements of the same magnetic permeability , then fi at the point must be 0. (The integral of Equation 11 is obtained from an integration by parts of | N (V*H )dV i c V which is zero in areas of uniform permeability.) However, due to various combinations of circumstances involving both numerical and modeling techniques, fi may be nonzero in areas of uniform permeability, and, in fact, may be significant compared with the loading at points which are connected to elements of different permeabilities, thus degrading the results. The presence of PERMBDY causes NASTRAN to compute equivalent loads only at the grid points of the PERMBDY card. Therefore, if this card is used, it must contain all appropriate points. In this way, the presence of PERMBDY improves numerical accuracy as well as computational efficiency. 6. The PROLATE card defines a prolate spheroidal surface in the finite element model, which is used to compute coefficients of a prolate spheroidal harmonic expansion of the anomaly or total scalar potential. When the PROLATE card is used, NASTRAN assumes an orientation of the generating ellipse of the prolate spheroidal surface with respect to the basic coordinate system. Therefore, the center of the ellipse is assumed to coincide with the origin of the basic coordinate system, the major axis of the ellipse is assumed to coincide with the X-axis of the basic coordinate system, and the minor axis is assumed to coincide with the Y-axis of the basic coordinate system. In addition, the aximuthal original of the component of the prolate spheroidal coordinate system is the X-Y plane, with the direction of rotation following the right-hand rule about the X-axis. This assumption does not preclude the definition of other right-handed coordinate systems with which the locations of grid points may be defined. 7. The REMFLUX card specifies remanent flux density for selected elements. Since NASTRAN handles only linear materials, it cannot follow the hysteresis loop of a magnetization curve. However, as long as the section of interest of the magnetization curve is approximately linear, REMFLUX may be used to specify nonzero remanence. 8. The SPCFLD card is used to specify components of source magnetic field intensity at selected grid points. One use of this card is to specify the Earth's magnetic fields. 1.15.4.5 Data Cards with Different Meanings In a standard NASTRAN steady-state heat transfer analysis, the basic unknown in the problem is the temperature at each grid point. In a magnetostatic analysis, the basic unknown is the anomaly potential Vm. Therefore, any NASTRAN data card or output which refers to degrees-of-freedom refers to the anomaly, or reduced, scalar potential. Some examples are bulk data cards SPC and SPC1, Case Control card THERMAL (or DISPLACEMENT, which is a carryover from structural analysis), and TEMPERATURE output. Two other bulk data cards for which the meanings are different are material cards MAT4 and MAT5. In heat transfer, these cards contain thermal conductivity values. In magnetostatics, they specify magnetic permeability. 1.15.4.6 Output The output available from a magnetostatic analysis is similar to that from a heat transfer analysis. The temperature output obtained from a DISPLACEMENT or THERMAL request must be interpreted as anomaly potential output. The load vector output obtained from the OLOAD request is the magnetic equivalent load. The temperature gradient and flux output resulting from a FORCE or ELFORCE request should be interpreted as anomaly magnetic field intensity and anomaly flux density, respectively. These vectors are output in the element coordinate system. In addition, the FORCE or ELFORCE request also generates total finite element magnetic field and induction output. The magnetic field intensity is output in the basic coordinate system, and the magnetic flux density or induction is output in a coordinate system specified on a BFIELD bulk data card. Finally, the file of prolate spheroidal harmonic coefficient information is available for inspection. This file is contained in data block PROCOF. The TABPT statement needed to print PROCOF is given in Section 1.15.4.2. REFERENCE 1. Hurwitz, M. M., and Brooks, E. W., "The Solution of Magnetostatic Field Problems with NASTRAN," David W. Taylor Naval Ship Research and Development Center, DTNSRDC-82/106, December 1982. =PAGE= 1.16 DYNAMIC DESIGN-ANALYSIS 1.16.1 Introduction The Dynamic Design-Analysis Method (DDAM) is the standard procedure for shock design of equipment. Often, the equipment is first analyzed using NASTRAN. The data and results must then be converted into other forms for use in DDAM. Incorporating DDAM into NASTRAN has enabled the entire process to be performed more efficiently. (The details of the implementation of DDAM into NASTRAN are described in Reference 1.) 1.16.2 Theory The steps of the DDAM procedure are described here very briefly. A more complete description is given in Reference 2. Step 1. Compute natural frequencies and mode shapes. (Rigid Format 3, Approach DISP) Step 2. Compute the participation factor for each mode: M X i i ia P = (1) a 2 M X i i ia where Mi is the mass of the ith degree-of-freedom and Xia is the ith component of the ath mode shape. It is assumed that only those terms of {Xa} that correspond to a particular direction are used in Equation 1. That is, the ath mode may have three participation factors associated with it, one for each orthogonal direction. The numerator of Equation 1 may be written as (considering all computed modes): T [] [M] [V] (2) where [] = matrix of eigenvectors (mode shapes), order n x m, with n = order of the problem, m = number of modes computed; [M] = mass matrix, order n x n; and [V] = direction cosine matrix, order n x l with l = 1, 2, or 3, the number of desired directions. Typically, [V] may consist of 1's and 0's which "pick off" desired directions. However, that form is not necessary and any consistent set of direction cosines may be used. The denominator of Equation 1 may be written as (considering all computed modes): T [] [M] [] (3) which is the diagonal modal mass matrix. Therefore, Equation 1 may be written as: T -1 T [P ] = [diag ([] [M][])] [] [M][V] (4) a mxl Step 3. Compute the "effective mass" in each mode: M = P M X (5) a a i i ia Thus, T [M ] = [P ] x [[[] [M][V]] (6) a mxl a where the x on the right side indicates the so-called matrix outer product, in which a term-by-term multiplication is performed. For example, if [C] = [A] x [B] (7) then c = a b (8) ij ij ij Step 4. Compute the "effective weight" [Wa] in each mode by multiplying [Ma] by g, the acceleration due to gravity. Step 5. Compute the direction-dependent velocity spectrum design values [Va] from [Wa]. Step 6. Compute the effective static load at each mass, due to the ath mode, by F = M X P V w (9) ia i ia a a a where wa is the ath natural radian frequency. The matrix of loads is computed as follows: The matrix product [M][] is of order n x m and corresponds to the product Mi Xia of Equation 9. (Here, only terms of [M][] in the desired directions are used.) The ath column of [M][] corresponds to the ath mode. Multiplying the ath column by wa and by PaVa for the first desired direction gives a matrix of load vectors of order n x m. If PaVa's for other desired directions are used, then other n x m sets of loads are created and appended to the first set. A final load matrix [F], of order n x ml, is thus created, where l is the number of desired directions; that is, there will be ml static load cases. (In practice, instead of the product Vawa in Equation 9, the term actually used is min (Vawa,Aag), where Aa is an acceleration spectrum design value in g's and g is the acceleration due to gravity.) Step 7. Perform static analyses to compute direction-dependent maximum responses, using the load cases from Step 6, and calculate element stresses. The computation of the effective static load at each mass in Step 6 and the static analyses of Step 7 may be replaced as follows: For the ath mode {a}, Equation 9 may be written as {F } = [M] { } P V w (10) a a a a a Solving, [K] {u } = {F } (11) a a where [K] is the stiffness matrix and {ua} is the vector of grid point displacements, yields -1 {u } = [K] [M] { } P V w (12) a a a a a However, from dynamics, 2 [-w M+K] { } = 0 (13) a a or -1 1 [K] [M] { } = { } (14) a 2 a w a Using Equation 14 in Equation 12 yields P V a a {u } = { } (15) a a w a (As in Step 6, rather than Va/wa, min (Va/wa,Aag/wa) is used.) Equation 15 is used to compute the direction-dependent maximum response. Step 8. For each of the 2 desired directions, compute the NRL (Naval Research Laboratory) sums of stresses (see Reference 3) for each element as follows: | | 2 S = |S | + sqrt( (S ) ) (16) j | jm| b.NE.m jb where Sjm = maximum stress at the jth point (taken over the modes under consideration in one desired direction) and Sjb = stresses (other than the maximum) at the jth point corresponding to the modes described for Sjm. 1.16.3 DDAM Implementation in NASTRAN Since DDAM requires the determination of natural frequencies and mode shapes, a NASTRAN/DDAM analysis involves the use of Rigid Format 3 (Approach DISP) with ALTERs. These ALTERs are required in order to compute the various quantities described in the previous section. Among these ALTERs are instructions for NASTRAN to execute eight functional modules that pertain specifically to DDAM. These modules are briefly described in the following sections. 1.16.3.1 GENCOS GENCOS generates the direction cosine matrix [V] in Equation 2. You may specify a coordinate system which defines the shock directions. A PARAM bulk data card giving the value of parameter SHOCK passes to GENCOS the coordinate system identification number of the shock system. If you do not include such a card, the basic coordinate system will be used. (The value of parameter SHOCK should, in most cases, correspond to the displacement coordinate system identification number for the grid points in the problem. However, to allow for possible exceptions, no check for this correspondence is made.) Parameter DIRECT must also be specified, defining the directions of the shock system which are to be considered. The options for DIRECT are 1, 2, 3, 12, 13, 23, and 123. For example, if DIRECT is 23, then the second and third directions of the shock coordinate system will be used. If you do not define DIRECT, the default is 123, that is, all three directions will be considered. The DMAP statement for GENCOS is GENCOS BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/ V,N,LUSET/V,N,NSCALE $ 1.16.3.2 DDAMAT DDAMAT calculates a matrix outer product such as that in Equation 6, and multiplies the result by parameter GG. For example, to compute effective weights, Steps 3 and 4 are performed, and GG = g = 386.4 is specified, if units of pounds and inches are used. The DMAP statement for DDAMAT is DDAMAT A,B/C/C,Y,GG $ Parameter GG must be given a value on a PARAM bulk data card or in the DMAP statement itself. 1.16.3.3 GENPART It is assumed that, in the eigenvalue analysis, the lowest N modes were computed. If, in the static analyses (or equivalent static analyses), fewer modes are to be used, say, the lowest M, where M < N, then the orders of a number of matrices must be truncated. GENPART generates the partitioning vectors required by functional module PARTN to partition the necessary matrices. The DMAP statement for GENPART is GENPART PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/V,N,NMODES $ Parameter LMODES is the integer value of the number of lowest modes to be used in the static analyses. The value of this parameter must be specified on a PARAM bulk data card, or else a fatal error will result. 1.16.3.4 DESVEL DESVEL computes design velocity and acceleration spectra. The assumed form for velocity is V +W b V = V V (17) f a V +W c where V = velocity computed from modified effective weight W Vf = factor usually associated with a desired direction Va,Vb,Vc= factors usually associated with various ship types and parameters W = effective weight/1000 Items V and Va are in units of length/second, and Vb and Vc are in units of effective weight W. Acceleration spectrum values may be expressed in one of two forms. The first form is the same as that for velocity A +W b A = A A A (18) f a b A +W c The second form is 2 A = A A (A + W)(A + W)/(A + W) (19) f a b c d where A = acceleration is in g's for modified effective weight in. Af, Aa, Ab, Ac, and Ad are factors defined similarly to factors Vf, Va, Vb, and Vc. If Ad = 0, then the form of Equation 18 is used. In addition, values of Vw/g are computed and are output along with acceleration values A for comparison purposes. Also, a matrix of minimum values of Vw and Ag is output for use in Equation 9, that is, A = min (Vw,Ag) (20) min Finally, the matrix 1 A' = A (21) min 2 min w is output for use in Equation 15. Note that the natural frequency must not be zero. However, this is not a restriction for DDAM since a fixed base is assumed. The DMAP statement for DESVEL is: DESVEL EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG = 386.4/ C,Y,VEL1/C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/ C,Y,VELC/C,Y,ACC1/C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/ C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $ Parameter GG is the acceleration due to gravity. A default value of 386.4 is supplied. Any other value must be specified on a PARAM bulk data card. Parameters VEL1, VEL2, and VEL3 correspond to the factor Vf in Equation 17, in the first, second, and third desired directions, respectively. If fewer than three directions are desired, then only VEL1, or VEL1 and VEL2, are specified. For example, if only one direction is specified, say direction 3, than VEL1 corresponds to direction 3, the first (and only) desired direction. Parameters VELA, VELB, and VELC correspond to Va, Vb, and Vc, respectively, in Equation 17. These velocity parameters, VEL1 through VELC, must appear on PARAM bulk data cards, or else a fatal error will result. If VEL2 or VEL3 is not used, then values of 0. must be specified. Acceleration parameters ACC1 through ACCD are similar to VEL1 through VELC and refer to Equations 18 and 19. 1.16.3.5 DDAMPG DDAMPG creates the static load vectors of Equation 9 or the maximum responses of Equation 15. For the former, the matrix [MP] = [M][] is input to DDAMPG and is operated on by a matrix [PVW] = [P ] x [A ] (22) a min where [Pa] is the matrix of participation factors defined by Equation 4 and [Amin] is computed from Equation 20. The order of these matrices is m x l, where m is the number of modes to be used and l is the number of desired directions. [PVW] is formed by functional module DDAMAT. The columns of [PVW] correspond to desired directions. Within a column, each row term corresponds to a mode. The matrix [MP] is of order n x m, where n is the number of degrees-of-freedom in the problem. Each column of [MP] corresponds to a mode, and in each column of [PVW], the ith row term of [PVW] multiplies the ith column of [MP]. After all columns of [PVW] have been considered, the resulting static load matrix is of order n x (ml). To compute the maximum response of Equation 15, the same operations just described are performed, except that matrix [PHIG] = [] replaces [MP] and 1 [PVOW] = [A ] (23) 2 min w replaces [PVW], where w = wa for the ath row of [Amin]. The DMAP statement for DDAMPG for static loads is DDAMPG MP,PVW/PG/V,N,NMODES/V,N,NDIR $ For maximum responses, the DMAP statement is DDAMPG PHIG,PVOW/UGV/V,N,NMODES/V,N,NDIR $ 1.16.3.6 CASEGEN The static load and maximum response vectors created in DDAMPG are considered individual load cases by NASTRAN and must, therefore, be selected in the Case Control Deck. The number of cases then is ml. For example, the use of 30 modes and 3 directions gives a total of 90 cases. Rather than having you generate the SUBCASE cards, CASEGEN generates a new Case Control Data Table which includes the required cards. The DMAP statement for CASEGEN is: CASEGEN CASECC/CASEDD/C,Y,LMODES/V,N,NDIR/V,N,NMODES $ Parameter LMODES has the same meaning here as in functional module GENPART and must appear on a PARAM bulk data card, or else a fatal error will result. 1.16.3.7 NRLSUM Functional module NRLSUM computes the NRL stresses and forces over the m maximum responses for a given direction for each requested element. The NRL sum stress for a given component is | | 2 S = |S | + sqrt( (S ) ) (24) | max| j j .NE.max where Sj is the stress component for the jth mode and Smax is the maximum of these stress components taken over all modes under consideration. The Case Control request for stresses and forces is made in the usual way, except that SORT2 format must be specified. The output device for the NRL sums (printer, punch, or both) will be the same as that for the standard stresses and forces. If principal stresses are computed for an element, they will be computed on the basis of the NRL sum of the normal stresses. For the BAR element, the element axial stress in a mode will be added to each of the extensional stresses due to bending in that mode. The NRL sums will then be computed for these new extensional stresses. The NRL sums corresponding to the printed columns headed by AXIAL STRESS, SA-MAX, SB-MAX, SA-MIN, and SB-MIN will be set to 0. In seismic analyses, the square root of the sums of the squares (SQRSS) is used rather than the NRL sums of the stresses and forces. You may select the latter method. The DMAP statement for NRLSUM is NRLSUM OES2,OEF2/NRLSTR,NRLFOR/V,N,NMODES/V,N,NDIR/ C,Y,DIRECT = 123/C,Y,SQRSS = 0 $ Parameter DIRECT has the same meaning here as in functional module GENCOS. Integer parameter SQRSS indicates whether the summing process should use NRL sums or the SQRSS method. A value of 0 (the default) indicates NRL sums; a value of 1 indicates SQRSS. 1.16.3.8 COMBUGV COMBUGV combines the direction-dependent maximum response in a number of ways. The method used is intended for DDAM analyses, but seismic analyses, which make use of similar theory, may also be run. In seismic analysis, unlike DDAM, the maximum responses in the three directions for each mode are combined into one total response for the mode. This combination may be performed by simply adding the absolute values of the maximum component responses for the mode, or by computing the square root of the sum of the squares (SQRSS) of the component responses. In both cases, the result is a matrix in which each column represents a total response due to a mode. These responses are then combined by the SQRSS method over the modes to give a final response vector. Finally, the NRL sums of the displacements are also computed. The DMAP statement for COMBUGV is COMBUGV UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/V,N,NMODES/V,N,NDIR $ Data block UGVADD is obtained by adding, for each mode, the absolute values of the component responses for that mode. Data block UGVSQR is obtained by using the SQRSS method, rather than by adding. Data blocks UGVADC and UGVSQC are obtained from UGVADD and UGVSQR, respectively, by combining the total modal responses using the SQRSS method. Data block UGVNRL contains the NRL sums of the displacements. 1.16.4 Input Data for DDAM A complete DDAM analysis with NASTRAN is performed in one normal modes analysis run with a set of DMAP ALTERs. This section describes the input details for such a run. 1.16.4.1 Executive Control Deck In addition to standard Executive Control Deck cards, the Executive Control Deck for the normal modes analysis must include the proper Rigid Format selection, SOL 3,0 (Approach DISP) and the following DMAP ALTER package. (The numbers to the left of each card are for explanatory purposes only and are not actually entered on the card.) 1. ALTER n $ (where n = DMAP statement number of LABEL P2) 2. GENCOS BGPDT,CSTM/DIRCOS/C,Y,SHOCK = 0/ C,Y,DIRECT = 123/LUSET/S,N,NSCALE $ 3. DIAGONAL MI/MID/*SQUARE*/-1. $ 4. MPYAD MGG, PHIG,/MP/0 $ 5. MPYAD MP,DIRCOS,/PMD/1 $ 6. MPYAD MID,PMD,/PF/0 $ 7. DDAMT PF, PMD/EFFW/C,Y,GG = 386.4 $ 8. LAMX, ,LAMA/LAMB/-1 $ 9. GENPART PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $ 10. PARTN LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $ 11. PARAM //*GE*/TEST/C,Y,LMODES/NMODES $ 12. COND DDAM, TEST $ 13. PARTN PF,,RPPF/,PFR,,/1 $ 14. EQUIV PFR,PF $ 15. PARTN EFFW,,RPPF/,EFFWR,,/1 $ 16. EQUIV EFFWR,EFFW $ 17. PARTN MP,CPMP,/,,MPR,/1 $ 18. EQUIV MPR,MP $ 19. PARTN PHIG,CPMP,/,,PHIGR,/1 $ 20. EQUIV PHIGR,PHIG $ 21. LABEL DDAM $ 22. DESVEL EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/ C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/ C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $ 23. DDAMAT PF,MINAC/PVW/1. $ 24. DDAMAT PF,MINOW2/PVOW/1. $ 25. DDAMPG PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $ 26. DDAMPG MP,PVW/PG/NMODES/NDIR $ 27. CASEGEN CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $ 28. EQUIV CASEDD,CASECC $ 29. SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,/,OQG3 OUGV3,OES3,OEF3,/*STATICS*/S,N,NOSORT2 = -1/-1 $ 30. SDR3 OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $ 31. NRLSUM OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT = 123/ C,Y,SQRSS = 0 $ 32. OFP NRLSTR,NRLFOR,,,,//S,N,CARDNO $ 33. COMBUGV UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $ 34. CASEGEN CASECC/CASEEE/1/NDIR/NMODES $ 35. SDR2 CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,/ ,,OUGV5,,,/*STATICS*/S,N,NOSORT2/-1 $ 36. OFP OUGV5,,,,,//S,N,CARDNO $ 37. ENDALTER $ The following notes are keyed to the cards with the corresponding numbers. 2. Computes direction cosine matrix [V] in Equation 2. 3. Creates a diagonal matrix, consisting of the diagonal of the modal mass matrix, and inverts it. The new matrix is used in Equation 4. 4. Computes [M][] for later use. 5. Computes [][M][V] as described in Equation 2. 6. Computes matrix of participation factors [Pa] (Equation 4). 7. Computes effective masses and weights in Equation 6. 8. Creates a matrix of the information on the Real Eigenvalue Table for later use in Equation 9. 9. Creates partitioning vectors which will be used to create a vector of natural circular frequencies from a matrix of miscellaneous eigenvalue results. Additionally, if the number of modes to be used in computing maximum responses is less than the number computed in the normal modes analysis, other partitioning vectors are created to reduce the orders of a number of matrices. 10. Creates the vector of natural circular frequencies. 11. Compares the number of desired modes (LMODES) and the number of computed modes (NMODES). 12. If LMODES >= NMODES, skips to 21. 13-20. Reduce orders of several matrices from NMODES to LMODES. 22. Computes shock spectrum design velocities and accelerations as given in Equations 17 through 19. In addition, matrices corresponding to Equations 20 and 21 are created for use in Equations 9 and 15, respectively. If Equations 17 through 20 do not represent the desired forms for velocities and accelerations, matrix MINAC or MINOW2 may be directly specified on DMI bulk data cards and functional module DESVEL may be deleted. MINAC and MINOW2 must be of order LMODES x L; LMODES is explained in Section 1.16.3.3 above, and L is the number of desired directions. 23. Creates the outer product of Equation 22. 24. Creates the matrix of Equation 23. 25. Computes the LMODES x L matrix of direction-dependent maximum responses. 26. Creates the LMODES x L static load matrix as in Equation 9. 27. Generates a new Case Control Data Table which includes the (LMODES x L) subcases. 29. Computes stresses due to each maximum response. 30. Converts stresses in 29 from SORT1 to SORT2. 31. Computes the NRL sum or SQRSS stresses and forces for each requested element. 32. Outputs the NRL sum or SQRSS stresses and forces to the printer and/or punch, as requested in the Case Control Deck. 33. Computes various combinations of the component maximum responses. 34-36. Prepares and prints file of NRL sum displacements. 1.16.4.2 Case Control Deck Although the usual selections may be made, two requirements are imposed: 1. No subcases are to be specified. 2. Stress and force selections must request SORT2 format. This last requirement will force all output selections; for example, displacements, applied loads, etc., to be in SORT2 format. Also, the NRL sum (or SQRSS) stresses and forces will be printed and/or punched, as requested in the corresponding STRESS and FORCE requests. 1.16.4.3 Bulk Data Deck The values of a number of parameters special to DDAM must be specified. For those parameters with no default values and for parameters for which the default values are to be overridden, PARAM bulk data cards will be required. The parameters are as follows: 1. SHOCK - The non-negative integer value of this parameter is the identification number of the coordinate system which defines the shock direction. A non-zero value requires definition of the system on a CORDij card. A zero value implies the basic coordinate system with shock directions X, Y, and Z. The default value is zero. The value of SHOCK should, in most cases, be the same as the displacement coordinate system identification number for the grid points. 2. DIRECT - This parameter may have one of the following integer values: 1, 2, 3, 12, 13, 23, or 123. The default value is 123. The value of DIRECT indicates which directions of coordinate system SHOCK are to be considered. For example, if DIRECT = 123, then all three directions will be used. If DIRECT = 13, only two directions will be used, the first and the third. 3. GG - The real value of this parameter is the acceleration due to gravity. The default value is 386.4. 4. LMODES - The integer value of this parameter is the number of lowest modes to be used in the static analyses. This number may be less than the number of modes computed in the normal modes analysis. No default value is provided, so the value of this parameter must be given on a PARAM bulk card or else a fatal message will result. 5. VEL1, VEL2, VEL3, VELA, VELB, VELC, ACC1, ACC2, ACC3, ACCA, ACCB, ACCC, ACCD - The real values of these parameters control the computation of the shock spectrum design values for velocity and acceleration. These parameters are defined by Equations 17 through 19 and further explained in Section 1.16.3.4. No default values for any of these parameters are provided, so a PARAM bulk data card for each parameter must be included in the Bulk Data Deck. REFERENCES 1. Hurwitz, M. M., "A Revision of the Dynamic Design-Analysis Method (DDAM) in NASTRAN," David W. Taylor Naval Ship Research and Development Center, DTNSRDC-82/107, December 1982. 2. Belsheim, R. O. and O'Hara, G. J., "Shock Design of Shipboard Equipment," NAVSHIPS 250-423-30, May 1961. 3. "Shock Design Criteria for Surface Ships," Naval Sea Systems Command, Report NAVSEA 0908-LP-000-3010, May 1976. =PAGE= 1.17 PIEZOELECTRIC MODELING 1.17.1 Introduction The analysis of sonar transducers requires accounting for the effects of their piezoelectric materials. The theory for these materials couples structural displacements to electric potentials. This theory has been incorporated into the finite element formulations of the TRAPAX and TRIAAX elements in NASTRAN. (See Reference 1 for details of the implementation.) These elements, trapezoidal and triangular in cross-section respectively, are solid, axisymmetric rings whose degrees-of-freedom are expanded into Fourier series, thus allowing non-axisymmetric loads. 1.17.2 Theory The constitutive relations of a piezoelectric material may be written as E {} [c ] [e] {} = (1) T S {D} [e] - [ ] {E} where T {} = stress components = , , , , , rr zz rz r z T {D} = components of electric flux density = D ,D ,D rr zz {} = mechanical strain components {E} = electric field components E [c ] = elastic stiffness tensor evaluated at constant electric field [e] = piezoelectric tensor S [ ] = dielectric tensor evaluated at constant mechanical strain The displacement vector of a point within an element is taken to be u _ v {u} = w (2) where u, v, and w are the ring displacements in the radial, tangential, and axial directions, respectively, and is the electric potential. The latter degree-of-freedom is taken to be the fourth degree-of-freedom at each ring. Each of these quantities is expanded into a Fourier series with respect to the azimuth position . The Fourier series for the electric potential has the same form as the Fourier series for radial displacement u, as given in Section 5.11.1 of the Theoretical Manual. The "stiffness" matrix for the Nth harmonic is E [c ] [e] (N) (N) T (N) [K ] = | | [B ] T S [B ] rdrdz (3) [e] -[ ] r z where [B(N)] is the matrix of "strain"-"displacement" coefficients for the Nth harmonic. Equations 2 and 3 indicate that the matrix equation to be solved for static analysis may be partitioned as follows: [K ] [K ] {} {F} = (4) [K ] [K] {} {F} where T {} = u ,v ,w , ..., u ,v ,w 1 1 1 n n n T {d} = , ..., 1 n {F } = vector of structural forces {F } = vector of electrical charges Note, however, that the program assumes that the electric potential i is the fourth degree-of-freedom of grid point i. Both lumped and consistent mass matrices are available and are of standard structural form; that is, the mass matrix does not couple the structural and electrical unknowns. The structural damping matrix also is of standard structural form. Both point charges and surface charges are also available. 1.17.3 Input Data for Piezoelectric Modeling Piezoelectric modeling requires some special input data. These include the specification of a parameter on the NASTRAN card as well as the use of one or more of four bulk data cards that pertain specifically to piezoelectric modeling. In addition, some other bulk data cards are treated differently when used in piezoelectric modeling. The details are discussed in the following sections. 1.17.3.1 NASTRAN Card The NASTRAN card allows you to override various NASTRAN system parameters by defining specific words in the /SYSTEM/ COMMON block (see Section 2.1). The 78th word of /SYSTEM/, that is, SYSTEM (78), has been set aside to indicate the use of piezoelectric materials. The default value for SYSTEM(78) is zero, implying that no piezoelectric materials are allowed. If SYSTEM(78) = 1, piezoelectric materials are allowed and coupling occurs between the structural and electric degrees-of-freedom. If SYSTEM(78) = 2, piezoelectric materials are allowed, but no coupling occurs and electrical effects are not taken into account. Setting SYSTEM(78) to its proper value is important for several reasons: 1. If SYSTEM(78) = 0, no piezoelectric materials are expected, and MATPZ1 and MATPZ2 cards (see Section 1.17.3.2) will not be searched. 2. If SYSTEM(78) does not equal 1, a negative ring identification number is not allowed on the PRESAX card (see Section 1.17.3.2). 3. If SYSTEM(78) does not equal 1, NASTRAN will automatically constrain degree-of-freedom 4 (the electric potential) at each ring for the zero harmonic in the AXISYMMETRIC = COSINE case. 4. If SYSTEM(78) = 2, some time will be saved in generating the "stiffness" matrix compared to the time for the SYSTEM(78) = 1 case. 5. If SYSTEM(78) does not equal 1, degrees-of-freedom 4, 5, and 6 must be removed from the problem via SPCAX or RINGAX cards. If SYSTEM(78) = 1, only degrees-of-freedom 5 and 6 must be removed. 1.17.3.2 Bulk Data Deck There are four bulk data cards that pertain specifically to piezoelectric modeling. All these cards define piezoelectric material properties. These properties are usually described by the following matrices: SE11 SE12 SE13 0 0 0 E SE12 SE11 SE13 0 0 0 [S ] = SE13 SE13 SE33 0 0 0 (5) 0 0 0 SE44 0 0 0 0 0 0 SE44 0 0 0 0 0 0 SE66 where SE66 = 2 ( SE11 - SE12 ) 0 0 0 0 d15 0 [d] = 0 0 0 d15 0 0 (6) d31 d31 d33 0 0 0 S S11 0 0 [ ] = 0 S11 0 (7) 0 0 S33 The matrices in Equation 1 are computed as follows: E E -1 [c ] = [S ] (8) E [e] = [d][c ] (9) and [S] is given by Equation 7. Two of the bulk data cards, MATPZ1 and MATPZ2, describe the piezoelectric material properties in two different ways. MATPZ1 is used to specify the parameters in Equations 5 through 7. MATPZ2 is more general and allows you to enter the full matrices [cE], [e], and [S]. The only assumption concerning these matrices is that [cE] and [S] are symmetric. CAUTION: Piezoelectric electric material properties are usually specified with respect to a standard set of material axes 1, 2, 3. For axisymmetric solids, direction 1 coincides with the Z-axis and direction 2 coincides with the -axis. Polarization direction 3 may vary in the R-Z plane and, for radial polarization, coincides with the R-axis. When a user specifies properties on a MATPZ1 card, the transformation from the 1, 2, 3 directions to the R, Z, directions is performed by NASTRAN. However, such a transformation is not performed by NASTRAN when the MATPZ2 card is used. Also, the ordering of the components of the stress and strain vectors is somewhat different for conventional piezoelectric specifications and for NASTRAN. The difference is that the ordering of the Z- and R-Z shears is interchanged. Once again, NASTRAN performs the transformation for MATPZ1, but not for MATPZ2. The other two data cards, MTTPZ1 and MTTPZ2, allow the values on the MATPZ1 and MATPZ2 cards to be temperature-dependent. (However, the TRAPAX and TRIAAX elements have not yet been modified to handle the combination of thermal loads and piezoelectric materials.) Point and surface charges may be specified in piezoelectric modeling. These charges are analogous to structural point loads and pressures, respectively, and are entered into {F} in Equation 4. Since the electric potential is associated with degree-of-freedom 4, point charges may be applied to specific harmonics with MOMAX bulk data cards or may be specified by MOMENT, MOMENT1, or MOMENT2 cards applied to POINTAX points. In the latter case, the direction of the "moment" must be about the radial direction, that is, degree-of-freedom 4. The MKS unit of the point charge is coulombs. The PRESAX bulk data card is used to specify surface charges. However, in order to distinguish between surface charges and structural pressure loads within the same problem, the first-specified ring identification number on the PRESAX card (field 4) must be made negative if a surface charge is desired. A negative ring identification number is, however, allowed only when the parameter SYSTEM(78) is set to 1 on the NASTRAN card. 1.17.4 Notes on Piezoelectric Modeling The following notes summarize the important points about piezoelectric modeling and should prove helpful to you. 1. In order to use piezoelectric materials, SYSTEM(78) must be set to 1 or 2 on the NASTRAN card. (The default value is 0.) A value of 1 indicates electrical-structural coupling and a value of 2 allows the use of piezoelectric materials, but does not take into account any electrical effects. The latter case requires that the degrees-of-freedom corresponding to the electric potential be constrained. 2. The electric potential at each ring is considered to be degree-of-freedom 4. Degrees-of-freedom 5 and 6 always have zero stiffness and must be removed from the problem with SPCAX or RINGAX cards. (Degree-of-freedom 4 must also be removed if SYSTEM(78) = 2.) Electroded surfaces (surfaces of constant potential) may be specified with MPCAX cards. 3. Only TRAPAX and TRIAAX elements may reference piezoelectric material cards MATPZ1 and MATPZ2. 4. Standard material cards MAT1 and MAT3 are allowed in problems which also contain piezoelectric materials. 5. The SE and d values on MATPZ1 cards will be multiplied by 10-12 by NASTRAN. Also, the value of 0 is fixed in NASTRAN as 8.854 x 10-12 farad/meter. 6. As may be seen from Equation 3, the lower right-hand portion of the stiffness matrix is negative-definite. This situation does not affect NASTRAN execution except that grid point singularity warning messages are issued for all unconstrained electric potentials. 7. To specify surface charge loads, the first ring identification number on the PRESAX card (field 4) must be negative. This format change will allow NASTRAN to distinguish between electrical charges and structural pressures within a piezoelectric run. However, this change is allowed only when SYSTEM(78) = 1. 8. Lumped mass and consistent mass are available for TRAPAX and TRIAAX elements. The mass associated with the electric potential degree-of-freedom is zero. Therefore, if a normal modes analysis by GIVENS method is run, all unconstrained electric potentials must appear on OMIT cards. 9. If a structural damping coefficient is specified on a MATPZ1 or MATPZ2 card in a dynamics problem, the terms of the resulting structural damping matrix corresponding to electric potentials will be zero. The uniform structural damping parameter G in direct frequency response problems should not be used, since its use will result in structural damping terms corresponding to the electric potentials. 10. Earlier versions of NASTRAN could not handle stresses or forces, whether real or complex, in axisymmetric (AXIC) dynamics problems. However, NASTRAN can now handle all such cases for the TRAPAX and TRIAAX finite elements. 11. Material properties specified on MATPZ1 cards are transformed by NASTRAN from the standard 1, 2, 3 material directions to the R, Z, directions. Also, the transformation required due to a switch in the order of the R-Z and Z- shears between conventional specifications and NASTRAN is performed for MATPZ1 properties. However, material properties on MATPZ2 cards are used by NASTRAN as they appear on the card. Therefore, any required transformation must be performed by you. REFERENCE 1. Lipman, R. R., and Hurwitz, M. M., "Piezoelectric Finite Elements for NASTRAN," David W. Taylor Naval Ship Research and Development Center, Report Number DTNSRDC-80/045, April 1980. =PAGE= 1.18 FORCED VIBRATION ANALYSIS OF ROTATING CYCLIC STRUCTURES AND TURBOSYSTEMS 1.18.1 Introduction Forced vibration analysis of rotating cyclic structures and turbosystems can be conducted using the capability described in this section. Two types of analyses are possible, and they are both accomplished by means of extensive DMAP ALTERs that have been developed for use with the Displacement Approach Rigid Format 8 (DISP APP R.F. 8) and are supplied with the program as two DMAP ALTER packages. Special functional modules for computing Coriolis, centripetal, and base acceleration terms, and bulk data parameters specific to these analyses are some of the features of these two DMAP ALTER packages. It is to be noted here that the capability is valid for tuned cyclic structures, that is, structures composed of cyclic sectors or segments that have identical mass, damping, stiffness, and constraint properties. The first type of analysis is very general. It involves the direct forced vibration analysis of rotating cyclic structures and is accomplished by the use of the COSDFVA DMAP ALTER package. It is described in Section 1.18.5. This capability is based on the work described in References 1 and 2. The second type of analysis is more specific. It involves the modal forced vibration analysis of aerodynamically excited turbosystems and is accomplished by the use of the COSMFVA DMAP ALTER package. It is described in Section 1.18.6. This capability is based on the work described in References 3 and 4. 1.18.2 Problem Formulation The forced vibration response of a tuned rotating cyclic structure or an aerodynamically excited turbosystem is collectively described by the following equations of motion: n ..n n n .n [M ] {u } + [[B ] + 2 [B ]] {u } 1 n n e d 2 n n n n + [[K ] + [K ] - [M ]] {u } - [Q ] {u } 1 n aero. n non-aero. n .. = {P } + {P } - [M ] {R } (1) 2 o n n+1 {u } = {u } (2) side 2 side 1, for n = 1, 2,..., N, where n is the cyclic sector number and N is the number of cyclic sectors (or blades) in the structure. The cyclic sector numbers and their sides referred to in Equation 2 above are illustrated in Figure 1.18-1. (See Section 1.12 for a discussion of cyclic symmetry.) In the above equations, {un} represents the vibratory displacements in the nth cyclic sector superposed on the steady-state deformed shape. The other terms in the equations have the following meanings. (The superscript n indicating the cyclic sector number has been left out for convenience. The specific terms that are retained for the direct forced vibration analysis of rotating cyclic structures and for the modal forced vibration analysis of aerodynamically excited turbosystems are indicated in Sections 1.18.5 and 1.18.6, respectively.) [M] Mass matrix [M ] Centripetal acceleration coefficient matrix 1 [M ] Base acceleration coefficient matrix 2 [B] Viscous damping matrix [B ] Coriolis acceleration coefficient matrix 1 e [K ] Elastic stiffness matrix d [K ] Differential stiffness matrix aero {P} Aerodynamic load vector non-aero {P} Non-aerodynamic load vector [Q] Aerodynamic matrix .. [R ] Base acceleration vector o Rotational velocity The forced vibration response of the tuned cyclic structure can be grouped in terms of several uncoupled sets, with each set corresponding to a permissible circumferential harmonic index, k. Except for k = 0 and k = N/2 (N even), the cyclic response can be further separated into cosine and sine components. For k = 0 and k = N/2, only cosine components are defined. (See Section 4.5 of the Theoretical Manual.) 1.18.3 Coordinate Systems In order to conveniently pose and solve the forced vibration problem of general rotating cyclic structures as well as aerodynamically excited turbosystems, a number of coordinate systems are employed. These are described below. Figure 1.18-2 illustrates the use of these coordinate systems for a bladed disc and Figure 1.18-3 illustrates these for an advanced turbopropeller with its axis of rotation at an angle with respect to the tunnel mean flow. =PAGE= 1.Vector is the angular velocity of the XBYBZB (Basic) coordinate system with respect to the XIYIZI (Inertial) coordinate system. 2.Sector n = 1 is always the modeled sector. 3.Sector numbers, and side numbers within a sector, increase in the direction of |t|. This figure is not included in the machine readable documentation because of complex graphics. Figure 1.18-1. Cyclic sector and side numbering convention =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.18-2. NASTRAN model of a 12-bladed disc showing the coordinate systems =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.18-3. Coordinate systems for an aerodynamically excited turbosystem =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.18-4. Turboprop axis inclination angle and tunnel coordinate system orientation in uniform inflow case =PAGE= The following coordinate systems are used for general rotating cyclic structures as well as aerodynamically excited turbosystems. XIYIZI Inertial coordinate system In the case of general rotating cyclic structures, this coordinate system is used to specify the base acceleration in terms of the translational accelerations of the axis of rotation. In the case of aerodynamically excited turbosystems, this coordinate system is used to relate the quantities in the tunnel and the basic coordinate systems (described later). The orientation of this coordinate system is completely arbitrary except for the XI axis to be parallel to, and in the direction of, the XB axis of the basic coordinate system described next. The zero reference for time/phase measurements is defined when the inertial and the basic coordinate systems are parallel. XBYBZB Basic coordinate system This coordinate system is fixed to the rotating cyclic structure or the turbosystem and has its XB axis coincident with the axis of rotation, and directed aftward. The location of the origin is arbitrary. The XBZB plane contains (approximately) the maximum planform of the modeled cyclic sector (or blade). In the case of aerodynamically excited turbosystems, the definition of this coordinate system is consistent with the theoretical developments of the two-dimensional cascade unsteady aerodynamics presently incorporated in NASTRAN (Reference 3). XGYGZG Grid point location and displacement coordinate systems All of these coordinate systems are fixed to the rotating cyclic structure or the turbosystem. Any number of such rectangular, cylindrical, or spherical coordinate systems can be completely arbitrarily defined to locate grid points of the NASTRAN model, as well as to request output at these grid points. All of the XGYGZG coordinate systems used for output requests collectively form the NASTRAN global coordinates system. The following coordinate systems are used specifically when modeling aerodynamically excited turbosystems. XTYTZT Tunnel coordinate system This is defined to conveniently specify the velocity components of the spatially non-uniform tunnel free stream. It can be suitably oriented based on the available tunnel data. In the special case of aerodynamic excitation in uniform inflow, the tunnel coordinate system is oriented such that the XTZT plane is parallel to the XIZI plane of the inertial coordinate system as shown in Figure 1.18-4. The origin of the XTYTZT system is arbitrarily located. The inclination angle of the turbosystem axis of rotation with respect to the tunnel flow also lies in a plane parallel to XIZI plane. The uniform flow is directed along the +XT axis. XSYSZS (Blade) Shank-fixed coordinate system The principal advantage of this shank-fixed coordinate system is in modeling changes in the blade setting angles by a simple 3 x 3 transformation matrix relating to the basic coordinate system. ZS coincides with the blade shank axis. The definition of the coordinate system is otherwise arbitrary. xsyszs Internally generated coordinate system on swept chord s This coordinate system is internally generated in NASTRAN and is used to define the flow and motion properties for the unsteady aerodynamic theories on a given swept chord s. It is located at the blade leading edge with the xs directed aftward along the chord s. ys is defined normal to the blade local mean surface. 1.18.4 Structural Modeling of Rotating Cyclic Structures and Turbosystems In both types of analyses referred to above, you model only one rotationally cyclic sector (or segment) of the entire structure (or turbosystem) as shown in Figures 1.18-2 and 1.18-3. This modeled sector is considered the n = 1 sector. Each cyclic sector is defined with two sides which identify its boundaries with the two adjacent cyclic sectors (Figure 1.18-1). The side 2 degrees of freedom are related to those on side 1 via the circumferential harmonic index. The modeling of rigid hub/disk conditions is accomplished by completely constraining all degrees of freedom on both sides of the cyclic sector to zero. Although the circumferential harmonic index is irrelevant in such situations, it should be selected as zero for computational efficiency. The structural model is prepared using the general capabilities of NASTRAN for modeling rotationally cyclic structures (see Section 1.12; see also Section 4.5 of the Theoretical Manual). 1.18.5 Direct Forced Vibration Analysis of Rotating Cyclic Structures This capability addresses the dynamic response of a cyclic structure rotating about its axis of symmetry at a constant angular velocity, and subjected to sinusoidal or general periodic loads moving with the structure. In addition, the axis of rotation itself is permitted translational oscillations resulting in inertial loads. Coriolis and centripetal acceleration effects are also included. Referring to Equation 1 in Section 1.18.2, all but the [Q]{u} and {P}aero terms are retained in the analysis. Figure 1.18-5 presents a schematic flowchart of this capability. The theoretical development of this capability is discussed in detail in Reference 1. Complete details of the implementation of the capability in an earlier version of NASTRAN are given in Reference 2. 1.18.5.1 Modeling Features The rotating structure can be loaded with steady-state sinusoidal or general periodic loads as follows: 1. Directly applied loads moving with the structure, and 2. Inertial loads due to the translational acceleration of the axis of rotation ("base" acceleration). Sinusoidal loads are specified as functions of frequency using RLOADi bulk data cards. General periodic loads are specified as functions of time using TLOADi bulk data cards. The following options are provided to specify the form of excitation. Directly applied loads may be specified as: - periodic functions of time on various segments (PARAM CYCIO = +1) - periodic functions of time for various circumferential harmonic indices (PARAM CYCIO = -1) - functions of frequency on various segments (PARAM CYCIO = +1) - functions of frequency for various circumferential harmonic indices (PARAM CYCIO = -1) =PAGE= ENTER Ŀ Finite element model of one cyclic sector, rotational speed, constraints, loads Ŀ Ŀ Differential Generation of stiffness, Stiffness Ĵ mass and damping Matrix matrices Ŀ Application of constraints and partitioning to stiffness, mass and damping matrices Frequency dependent Type of General, periodic in time Applied Loads Ŀ Circumferential Circumferential Harmonic Segment Harmonic Segment Dependent Type of Dependent Dependent Type of Dependent Input/Output Ŀ Input/Output Ŀ Ŀ Ŀ Fourier decomp. Fourier decomp. Phase 1 (time) Phase 1 (time) Ŀ Ŀ Fourier decomp. Fourier decomp. Phase 2 (circum.) Phase 2 (circum.) Ŀ Application of constraints and partitioning to load matrices A Figure 1.18-5a. Overall flowchart for direct forced vibration analysis of rotating cyclic structures =PAGE= A Selection of circumferential harmonic index, k k <= k <= k min max Ŀ Application of intersegment compatibility constraints to stiffness, mass, damping and load matrices Ŀ Solution of independent harmonic displacements No Increment k by 1 k > k ? max Yes Ŀ Recovery of segment-dependent independent displacements (Inverse Phase 2, if necessary) Ŀ Recover of dependent displacements Ŀ Output requests for displacements, stresses, loads, plots, etc. EXIT Figure 1.18-5b. Overall flowchart for direct forced vibration analysis of rotating cyclic structures =PAGE= Base acceleration is specified as: - function of frequency (PARAM CYCIO = -1 only) The base acceleration refers to the translational acceleration of the axis of rotation and is specified in the inertial coordinate system (see Section 1.18.3). You specify the X, Y, and Z components (magnitude and phase) of the base acceleration vector as functions of frequency on TABLEDi bulk data cards. The use of these tables is activated by the bulk data parameters BXTID, BXPTID, BYTID, BYPTID, BZTID, and BZPTID. You are provided with two options to include damping by specifying the form of the Kdd, Bdd, and Mdd matrices in the functional module GKAD as per equations 16 through 21 in Section 9.3.3 of the Theoretical Manual. Bulk data parameters GKAD and LGKAD have been defined for this purpose. Section 1.18.5.4 describes all of the bulk data parameters applicable to this capability. 1.18.5.2 Executive Control Deck The salient points are noted as follows: 1. APP DISP and SOL 8 must be selected. 2. The DMAP ALTER package, COSDFVA (COSMIC-supplied Direct Forced Vibration Analysis of rotating cyclic structures), must be included. The READFILE capability of NASTRAN (see Section 2.0.2) can be utilized for this purpose as follows: READFILE COSDFVA 1.18.5.3 Case Control Deck The subcase definitions and the selection of other data items for the Case Control Deck are discussed below. 1.18.5.3.1 Subcase Definitions The bulk data parameters CYCIO (= +/- 1) and KMAX (>= 0, <= NSEGS/2 for even NSEGS, <= (NSEGS - 1)/2 for odd NSEGS, where NSEGS is the number of cyclic sectors or segments) determine the number, order and meaning of subcases as follows: CYCIO = +1 The number of subcases is equal to NSEGS, independent of KMAX. SUBCASE 1 (SEGMENT NO. 1) SUBCASE 2 (SEGMENT NO. 2) SUBCASE NSEGS (SEGMENT NO. NSEGS) CYCIO = -1 The number of subcases is equal to FKMAX, where FKMAX = 1, if KMAX = 0 = 1 + 2 * KMAX, if 0 < KMAX <= (NSEGS - 1)/2, NSEGS odd, = 1 + 2 * KMAX, if 0 < KMAX <= (NSEGS - 2)/2, NSEGS even, and = NSEGS, if KMAX = NSEGS/2, NSEGS even. SUBCASE 1 ("k" = 0) SUBCASE 2 ("k" = 1c) SUBCASE 3 ("k" = 1s) SUBCASE 4 ("k" = 2c) SUBCASE 5 ("k" = 2s) : : SUBCASE FKMAX ("k" = KMAXs) If NSEGS is even and KMAX = NSEGS/2, Subcase FKMAX will represent "k" = KMAXc, as KMAXs does not exist. Directly applied loads on various segments (CYCIO = +1) or their circumferential harmonic components (CYCIO = -1) are specified under the appropriate subcases. With RLOADi bulk data cards, null loads need not be specified by you. With TLOADi bulk data cards, you are required to provide information to generate null loads where applicable. Base acceleration is included only when CYCIO = -1. Based on the activating PARAMeters BXTID etc., the corresponding inertial loads are internally calculated and assigned to "k" = 0, 1c, and 1s as applicable. 1.18.5.3.2 Other Data Selection Items 1. The SPC and MPC request must appear above the subcase level and may not be changed. 2. Either FREQUENCY or TSTEP must be selected and must be above the subcase level. 3. If selected, FREQUENCY must be used to select one and only one FREQ, FREQ1, or FREQ2 card from the Bulk Data Deck. 4. If selected, TSTEP must be used to select the time-steps to be used for load definition via a TSTEP card in the Bulk Data Deck. 5. Direct input matrices are not allowed. 6. OFREQ must not be used. 7. DLOAD must be used to define a frequency-dependent or time-dependent loading condition for each subcase. For frequency-dependent loads, subcases without loads need not refer to a DLOAD card. For time-dependent loads, subcases without loads must refer to a DLOAD card that explicitly generates a null load. 8. If random response calculations are desired, RANDOM must be used to select RANDPS and RANDTi cards from the Bulk Data Deck. The following printed output, sorted by frequency (SORT1) or by point number or element number (SORT2), is available, either as real and imaginary parts or magnitude and phase angle (0 - 360 degree lead), for the list of frequencies specified: 1. Displacements, velocities and accelerations for a list of PHYSICAL points (grid points and extra scalar points introduced for dynamic analysis) or SOLUTION points (points used in formulation of the general K system). 2. Nonzero components of the applied load vector and single-point forces of constraint for a list of PHYSICAL points. 3. Stresses and forces in selected elements (ALL available only for SORT1). The following plotter output is available for frequency response calculations: 1. Undeformed plot of the structural model. 2. X-Y plot of any component of displacement, velocity, or acceleration of a PHYSICAL point or SOLUTION point. 3. X-Y plot of any component of the applied load vector or single-point force of constraint. 4. X-Y plot of any stress or force component for an element. The following plotter output is available for random response calculations: 1. X-Y plot of the power spectral density versus frequency for the response of selected components for points or elements. 2. X-Y plot of the autocorrelation versus time lag for the response of selected components for points or elements. The data used for preparing X-Y plots may be punched or printed in tabular form (see Section 4.3). This is the only form of printed output that is available for random response. Also, a printed summary is prepared for each X-Y plot which includes the maximum and minimum values of the plotted function. 1.18.5.4 Bulk Data Deck The bulk data parameters under user control are described in Section 1.18.5.4.1. The usage of certain bulk data cards is discussed in Section 1.18.5.4.2. The bulk data parameters CYCSEQ, CTYPE, and NLOAD, normally under user control when using the cyclic symmetry feature, are not to be specified by you in the present case as they either have fixed values assigned to them or are internally computed. This is discussed below. The integer value of CYCSEQ parameter specifies the procedure for sequencing the equations in the solution set. A value of +1 specifies that all cosine terms are to be sequenced before all sine terms, and a value of -1 specifies alternating cosine and sine terms. The value has been set to -1. The alphanumeric (BCD) value of the CTYPE parameter specifies the type of cyclic symmetry (rotational or dihedral symmetry). The value has been set to ROT to indicate rotational cyclic symmetry. The integer value of NLOAD specifies the number of loading conditions. This value is internally computed. 1.18.5.4.1 Bulk Data Parameters The following bulk data parameters are used in the direct forced vibration analysis of rotating cyclic structures: 1. BXTID, BYTID, BZTID, BXPTID, BYPTID, BZPTID - optional. The positive integer values of these parameters define the set identification numbers of TABLEDi bulk data cards which define the components of the base acceleration vector. The tables referred to by BXTID, BYTID, and BZTID define the magnitude of the vector, and the tables referred to by BXPTID, BYPTID, and BZPTID define the phase (in degrees) of the vector. The default values are -1, indicating that the respective terms are ignored. 2. COUPMASS - CPBAR, CPROD, CPQUAD1, CPQUAD2, CPTRIA1, CPTRIA2, CPTUBE, CPQDPLT, CPTRPLT, CPTRBSC - not to be used. These parameters are not to be specified by you, as only lumped mass matrices must be used. 3. CYCIO - required. The integer value of this parameter specifies the form of the input and output data. A value of +1 is used to specify physical segment representation, and a value of -1 for cyclic transform representation. There is no default. A value must be input. 4. G - optional. The real value of this parameter is used as a uniform structural damping coefficient in the formulation of dynamics problems. Not recommended for use in hydroelastic problems (use GE on MAT1). 5. GKAD - optional. The BCD value of this parameter is used to tell the GKAD module the desired form of the matrices KDD, BDD, and MDD. The BCD value can be FREQRESP or TRANRESP. The default value is TRANRESP. NOTE: Remember to define the parameters G, W3, and W4. See Section 9.3.3 (Direct Dynamic Matrix Assembly) of the Theoretical Manual for further details. 6. GRDPNT - optional. A positive integer value of this parameter causes the Grid Point Weight Generator to be executed and the resulting weight and balance information to be printed. All fluid related masses are ignored. 7. KMAX - required. The integer value of this parameter specifies the maximum value of the harmonic index, and is used in subcase definition. There is no default for this parameter. A value must be input. The maximum value that can be specified is NSEGS/2. 8. KMIN - optional. The integer value of this parameter specifies the minimum value of the conic index to be used in the solution loop. KMIN can equal KMAX. The default value is 0. 9. LGKAD - optional. The integer value of this parameter is used in conjunction with parameter GKAD. If GKAD = FREQRESP, set LGKAD = 1; if GKAD = TRANRESP, set LGKAD = -1. The default value is -1. 10. LMAX - optional. The integer value of this parameter specifies the maximum harmonic in the Fourier decomposition of periodic, time-dependent loads. The default value is NTSTEPS/2, where NTSTEPS equals N (from TSTEP bulk data card) plus 2. 11. NOKPRT - optional. An integer value of +1 for this parameter causes the current harmonic index, KINDEX, to be printed at the top of the harmonic loop. The default value is +1. 12. NSEGS - required. The integer value of this parameter is the number of identical segments in the structural model. There is no default. A value must be input. 13. RPS - optional. The real value of this parameter defines the rotational speed of the structure in revolutions per unit time. The default value is 0.0. 14. W3 - optional. The real value of this parameter is used as a pivotal frequency for uniform structural damping if parameter GKAD = TRANRESP. In this case, W3 is required if uniform structural damping is desired. The default value is 0.0. 15. W4 - optional. The real value of this parameter is used as a pivotal frequency for element structural damping if parameter GKAD = TRANRESP. In this case, W4 is required if structural damping is desired for any of the structural elements. The default value is 0.0. 16. WTMASS - optional. The terms of the structural mass matrix are multiplied by the real value of this parameter when they are generated in the EMA. Not recommended for use in hydroelastic problems. 1.18.5.4.2 Usage of Certain Bulk Data Cards The following items relate to restrictions on certain bulk data cards: 1. SUPORT cards are not allowed. 2. EPOINT cards are not allowed. 3. SPOINT cards are not allowed. 4. CYJOIN cards are required. 5. If a TSTEP bulk data card is used, then it must not be continued, since only one uniform time step interval must be specified. The skip factor for output, NO, on this card must be 1. 1.18.6 Modal Forced Vibration Analysis of Aerodynamically Excited Turbosystems This capability is designed to perform modal forced vibration analysis of turbosystems subjected to aerodynamic excitation. Single- and counter-rotating advanced turboprops with significantly swept blades (see Figure 1.18-3), and axial-flow compressors and turbines are examples of turbosystems that can be analyzed using this capability. Generally non-uniform steady inflow fields and uniform flow fields arbitrarily inclined at small angles with respect to the axis of rotation of the turbosystem are considered as the aerodynamic sources of excitation. Subsonic and supersonic relative inflows are recognized, with a provision for linearly interpolating transonic aerodynamic loads. Although the absolute inflow field does not change with time, the rotation of the turbosystem results in velocities with oscillatory components relative to the blades. Relative velocities with harmonic components at the rotational frequency also exist in uniform flow fields when the turbosystem axis of rotation is misaligned with the absolute flow direction. The capability has the following features: 1. Turbosystems with both rigid and flexible hubs/disks can be handled. 2. Differential stiffness effects due to centrifugal loads and any (externally specified) steady state airloads are included. 3. Coriolis and centripetal acceleration (stiffness softening) effects are taken into account. 4. Aerodynamic modeling is essentially dictated by the unsteady aerodynamic theories used to determine the unsteady blade loading distribution. Due to the use of two-dimensional cascade aerodynamic theories, the blade aerodynamic model comprises a series of chordwise strips stacked spanwise to cover the entire blade surface as shown in Figure 1.18-6. 5. Two-dimensional subsonic and supersonic cascade aerodynamic theories are utilized for generating the reactionary airloads on turbosystem blades due to oscillatory blade motions. Blade sweep effects are included in both cases. Transonic airloads are linearly interpolated. 6. Externally specified aerodynamic loads can be applied to any degree of freedom of the structural model. These degrees of freedom are not restricted to those used in generating reactionary airloads mentioned above. Referring to Equation 1 in Section 1.18.2, all but the [M2]{Ro} and {P}non-aero terms are retained in the analysis. Real cyclic modes of a user-selected circumferential harmonic index are used to pose and solve the problem. =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.18-6. NASTRAN aerodynamic model of turboprop blade for 2-D cascade theories =PAGE= Figure 1.18-7 presents a schematic flowchart of this capability. The theoretical development of this capability is discussed in detail in Reference 3. Complete details of the implementation of the capability in an earlier version of NASTRAN are given in Reference 4. The problem of determining the applied oscillatory airloads on the turbosystem blades has been addressed in a stand-alone development outside, and independent of, NASTRAN. However, this stand-alone program, called AIRLOADS, can also function as a pre-processor to NASTRAN analyses. It is available from COSMIC and is discussed in detail in Reference 5. 1.18.6.1 Modeling Features The structural model is prepared using the general capabilities of NASTRAN for modeling rotationally cyclic structures as indicated in Section 1.18.4. The aerodynamic model for the generation of reactionary airloads comprises a grid defined by the intersection of a series of chords and "computing stations" as shown in Figure 1.18-7. The chords are selected normal to any spanwise reference curve such as the blade leading edge. The choice of the number and location of the chords and the computing stations is dictated by the expected variation of the relative flow properties across the blade span, and the complexity of the mode shapes exhibited by the turbosystem blade. Due to its resemblance to the structural model of the blade, and the adequacy of a relatively coarse grid to describe the spanwise flow variations, the aerodynamic model is generally chosen as a subset of the structural model as indicated in Figure 1.18-7. The aerodynamic grid is specified on STREAML1 bulk data cards. =PAGE= START Ŀ Ŀ Ŀ Osc. airloads Finite element model Total stiffness from Ĵ of one cyclic sector, Ĵ matrix pre-processor, RPM, constraints, (elastic plus AIRLOADS circumferential harmonic index differential) Ŀ Generation of mass, damping, loads, and stiffness (if necessary) matrices Ŀ Application of constraints to stiffness, mass, damping, and loads matrices Ŀ Application of inter-segment compatibility constraints Ŀ Natural frequencies and mode shapes Ŀ Generalized motion aerodynamic matrix list X Figure 1.18-7a. Overall flowchart of modal forced vibration analysis capability for aerodynamically excited turbosystems =PAGE= X Ŀ Generalized equations of motion for aerodynamically forced vibrations Ŀ Solution of independent harmonic modal coordinates Ŀ Independent harmonic displacements Ŀ Recovery of dependent harmonic displacements Ŀ Output requests for displacements, stresses, plots, etc. EXIT Figure 1.18-7b. Overall flowchart of modal forced vibration analysis capability for aerodynamically excited turbosystems =PAGE= 1.18.6.2 Executive Control Deck The salient points are noted as follows: 1. The NASTRAN card is required immediately preceding the ID card in the Executive Control Deck, and must contain, at least, the following operational parameter: NASTRAN SYSTEM (93) = 1 This invokes the sweep effects in subsonic and supersonic reactionary aerodynamic routines, and is suggested for use even when sweep effects are negligible. In all cases where STREAML2 bulk data cards are obtained from the AIRLOADS program, this card is required. 2. APP DISP and SOL 8 must be selected. 3. The DMAP ALTER package, COSMFVA (COSMIC-supplied Modal Forced Vibration Analysis of aerodynamically excited turbosystems), must be included. The READFILE capability of NASTRAN (see Section 2.0.2) can be utilized for this purpose as follows: READFILE COSMFVA 1.18.6.3 Case Control Deck The subcase definitions and the selection of other data items for the Case Control Deck are discussed below. 1.18.6.3.1 Subcase Definitions The bulk data parameter KMAX (>= 0, <= NSEGS/2 for even NSEGS, <= (NSEGS -1)/2 for odd NSEGS, where NSEGS is the number of cyclic sectors or segments) determines the number, order, and meaning of subcases as follows: The number of subcases is equal to FKMAX, where FKMAX = 1, if KMAX = O = 1 + 2 * KMAX, if 0 < KMAX <= (NSEGS -1)/2, NSEGS odd, = 1 + 2 * KMAX, if 0 < KMAX <= (NSEGS -2)/2, NSEGS even, and = NSEGS, if KMAX = NSEGS/2, NSEGS even. SUBCASE 1 ("k" = 0) SUBCASE 2 ("k" = 1c) SUBCASE 3 ("k" = 1s) SUBCASE 4 ("k" = 2c) SUBCASE 5 ("k" = 2s) : : SUBCASE FKMAX ("k" = KMAXs) If NSEGS is even and KMAX = NSEGS/2, Subcase FKMAX will represent "k" = KMAXc, as KMAXs does not exist. Circumferential harmonic components of directly applied loads are specified under the appropriate subcases. With RLOADi bulk data cards, null loads need not be specified by you. 1.18.6.3.2 Other Data Selection Items 1. The SPC and MPC request must appear above the subcase level and may not be changed. 2. METHOD must be used to select an EIGR bulk data card. 3. FREQUENCY must be selected and must be above the subcase level. 4. FREQUENCY must be used to select one and only one FREQ, FREQ1, or FREQ2 card from the Bulk Data Deck. 5. Direct input matrices are not allowed. 6. OFREQ must not be used. 7. DLOAD must be used to define a frequency-dependent loading condition for each subcase. For frequency-dependent loads, subcases without loads need not refer to a DLOAD card. 8. If random response calculations are desired, RANDOM must be used to select RANDPS and RANDTi cards from the Bulk Data Deck. The following printed output, sorted by frequency (SORT1) or by point number or element number (SORT2), is available, either as real and imaginary parts or magnitude and phase angle (0 - 360 degree lead), for the list of frequencies specified: 1. Displacements, velocities, and accelerations for a list of PHYSICAL points (grid points and extra scalar points introduced for dynamic analysis) or SOLUTION points (points used in formulation of the general K system). 2. Nonzero components of the applied load vector and single-point forces of constraint for a list of PHYSICAL points. 3. Stresses and forces in selected elements (ALL available only for SORT1). The following plotter output is available for frequency response calculations: 1. Undeformed plot of the structural model. 2. X-Y plot of any component of displacement, velocity, or acceleration of a PHYSICAL point or SOLUTION point. 3. X-Y plot of any component of the applied load vector or single-point force of constraint. 4. X-Y plot of any stress or force component for an element. The following plotter output is available for random response calculations: 1. X-Y plot of the power spectral density versus frequency for the response of selected components for points or elements. 2. X-Y plot of the autocorrelation versus time lag for the response of selected components for points or elements. The data used for preparing X-Y plots may be punched or printed in tabular form (see Section 4.3). This is the only form of printed output that is available for random response. Also, a printed summary is prepared for each X-Y plot which includes the maximum and minimum values of the plotted function. 1.18.6.4 Bulk Data Deck The bulk data parameters under user control are described in Section 1.18.6.4.1. The usage of certain bulk data cards is discussed in Section 1.18.6.4.2. The bulk data parameters CYCSEQ, CTYPE, and NLOAD, normally under user control when using the cyclic symmetry feature, are not to be specified by you in the present case as they either have fixed values assigned to them or are internally computed. This is discussed below. The integer value of CYCSEQ parameter specifies the procedure for sequencing the equations in the solution set. A value of +1 specifies that all cosine terms are to be sequenced before all sine terms, and a value of -1 specifies alternating cosine and sine terms. The value has been set to -1. The alphanumeric (BCD) value of the CTYPE parameter specifies the type of cyclic symmetry (rotational or dihedral symmetry). The value has been set to ROT to indicate rotational cyclic symmetry. The integer value of NLOAD specifies the number of loading conditions. This value is internally computed. 1.18.6.4.1 Bulk Data Parameters The following bulk data parameters are used in the modal forced vibration analysis of aerodynamically excited turbosystems: 1. BOV - required. The real value of this parameter equals the ratio of the semichord to the velocity on the STREAML2 bulk data card for the reference (PARAM IREF) streamline. 2. COUPMASS - CPBAR, CPROD, CPQUAD1, CPQUAD2, CPTRIA1, CPTRIA2, CPTUBE, CPQDPLT, CPTRPLT, CPTRBSC - not to be used. These parameters are not to be specified by you as only lumped mass matrices must be used. 3. CYCIO - required. The integer value of this parameter specifies the form of the input and output data. A value of +1 is used to specify physical segment representation, and a value of -1 for cyclic transform representation. The value of CYCIO must be input as -1. 4. G - optional. The real value of this parameter is used as a uniform structural damping coefficient in the formulation of dynamics problems. Not recommended for use in hydroelastic problems (use GE on MAT1). 5. GKAD - optional. The BCD value of this parameter is used to tell the GKAD module the desired form of the matrices KDD, BDD, and MDD. The BCD value can be FREQRESP or TRANRESP. The default value is TRANRESP. Note: Remember to define the parameters G, W3, and W4. See Section 9.3.3 (Direct Dynamic Matrix Assembly) of the Theoretical Manual for further details. 6. GRDPNT - optional. A positive integer value of this parameter causes the Grid Point Weight Generator to be executed and the resulting weight and balance information to be printed. All fluid related masses are ignored. 7. IREF - optional. This defines the reference streamline number. IREF must be equal to an SLN on a STREAML2 bulk data card. The default value of -1 represents the blade tip streamline. If IREF does not correspond to a valid SLN, the default is taken. 8. KGGIN - optional. A positive integer value of this parameter indicates that your stiffness matrix is to be read from an external file (GINO file INPT) via the INPUTT1 module in the rigid format. The default value is -1. 9. KINDEX - optional. The integer value of this parameter specifies the circumferential harmonic index. See parameter BIN for usage. There is no default. 10. KMIN - optional. The integer value of this parameter specifies the minimum value of the conic index to be used in the solution loop. If KMIN (>= 0, default = 0) equals KMAX, the parameter KINDEX is internally set to KMIN (or KMAX). Your value of KINDEX (if any) is then ignored. If KMIN differs from MAX, then KINDEX (KMIN <= KINDEX <= KMAX) must be specified. 11. KMAX - required. The integer value of this parameter specifies the maximum value of the conic index, and is used in subcase definition. There is no default for this parameter. A value must be input. The maximum value that can be specified is NSEGS/2. 12. LFREQ and HFREQ - required, unless parameter LMODES is used. The real values of these parameters give the frequency range (LFREQ is the lower limit, and HFREQ is the upper limit) of the modes to be used in the modal formulation. To use this option, parameter LMODES must be set to 0. 13. LGKAD - optional. The integer value of this parameter is used in conjunction with parameter GKAD. If GKAD = FREQRESP, set LGKAD = 1; if GKAD = TRANRESP, set LGKAD = -1. The default value is -1. 14. LMODES - used, unless set to 0. The integer value of this parameter is the number of lowest modes to be used in the modal formulation. The default is to use all modes. 15. MAXMACH - optional. The real value of this parameter is the maximum Mach number at and below which the subsonic unsteady cascade theory is valid. The default value is 0.80. 16. MINMACH - optional. The real value of this parameter is the minimum Mach number at and above which the supersonic unsteady cascade theory is valid. The default value is 1.01. 17. NOKPRT - optional. An integer value of +1 for this parameter causes the current harmonic index, KINDEX, to be printed at the top of the harmonic loop. The default is +1. 18. NSEGS - required. The integer value of this parameter is the number of identical segments in the structural model. There is no default. A value must be input. 19. Q - required. The real value of this parameter specifies the inflow dynamic pressure used on the density and velocity on the STREAML2 bulk data card for the reference (PARAM IREF) streamline. 20. RPS - optional. The real value of this parameter defines the rotational speed of the structure in revolutions per unit time. The default value is 0.0. 21. W3 - optional. The real value of this parameter is used as a pivotal frequency for uniform structural damping if parameter GKAD = TRANRESP. In this case, W3 is required if uniform structural damping is desired. The default value is 0.0. 22. W4 - optional. The real value of this parameter is used as a pivotal frequency for element structural damping if parameter GKAD = TRANRESP. In this case, W4 is required if structural damping is desired for any of the structural elements. The default value is 0.0. 23. WTMASS - optional. The terms of the structural mass matrix are multiplied by the real value of this parameter when they are generated in the EMA. Not recommended for use in hydroelastic problems. 1.18.6.4.2 Usage of Certain Bulk Data Cards The following remarks relate to the usage of some of the bulk data cards: 1. SUPORT cards are not allowed. 2. EPOINT cards are not allowed. 3. SPOINT cards are not allowed. 4. CYJOIN cards are required. These cards are used to list the corresponding grid points on sides 1 and 2 of the modeled cyclic sector. In the case of rigid hub/disk conditions, the grid points listed on these cards must be totally fixed. The bulk data parameters KMAX, KMIN, and KINDEX must be identically zero. In the case of flexible hub/disk conditions, the data on these cards must reflect such boundary connections. Bulk data parameters KMAX, KMIN, and KINDEX are truly active and meaningful. The displacement coordinate systems for any pair of corresponding grid points must be axisymmetrically compatible, that is, the coordinate system for a side 1 grid point must completely coincide with that for the corresponding grid point on side 2, when the side 1 coordinate system is rotated as a rigid body about the axis of rotation, and moved to side 2. 5. The variables on the AERO card represent the conditions for the entire blade/turbosystem as a whole. The values of these variables on the reference streamline are also assumed to represent those for the entire blade/turbosystem. The reference streamline is picked by you (PARAM IREF), and defaults to the blade tip streamline otherwise. 6. The STREAML2 card defines the unsteady aerodynamic data for a given streamline. 7. The reduced frequency on the MKAEROi cards is based on the semichord and velocity on the STREAML2 bulk data card for the reference streamline. Referring to the sketch below, a positive interblade phase angle implies that blade 1 of the two-dimensional cascade leads the reference blade 0. . Blade 1 1 . . . . . Blade 0 (ref.) 0 . . . . . . . . . =PAGE= REFERENCES 1. Elchuri, V., and Smith, G. C. C., "Finite Element Forced Vibration Analysis of Rotating Cyclic Structures," NASA CR-165430, December 1981. 2. Elchuri, V., Gallo, A. M., and Skalski, S. C., "Forced Vibration Analysis of Rotating Cyclic Structures in NASTRAN," NASA CR-165429, December 1981. 3. Elchuri, V., "Modal Forced Vibration Analysis of Aerodynamically Excited Turbosystems," NASA CR 174966, July 1985. 4. Elchuri, V., and Pamidi, P. R., "NASTRAN Supplemental Documentation for Modal Forced Vibration Analysis of Aerodynamically Excited Turbosystems," NASA CR 174967, July 1985. 5. Elchuri, V., and Pamidi, P. R., "AIRLOADS: A Program for Oscillatory Airloads on Blades of Turbosystems in Spatially Non-Uniform Inflow," NASA CR 174968, July 1985. =PAGE= 1.19 STATIC AEROTHERMOELASTIC DESIGN/ANALYSIS OF AXIAL-FLOW COMPRESSORS 1.19.1 Introduction The non-linear interactive influences between the flexible structure of the rotor/stator of a single-stage, or each stage of a multi-stage, axial-flow compressor and the steady state aerothermodynamics of the internal flow can be studied in NASTRAN. A rigid format (DISP APP R.F. 16) has been developed for the purpose and can be employed for the solution of design/analysis problems of axial-flow compressors. The capability is based on the work described in References 1, 2, and 3. It utilizes the three-dimensional aerothermodynamic theory described in Reference 4, and is therefore valid for axial-flow compressors. It is to be noted here that the capability assumes tuned cyclic structures, that is, structures composed of cyclic sectors (or segments) that have identical mass, stiffness, damping, and constraint properties. A brief description of the capability is given in Section 1.19.2. The structural part of the problem is modeled as usual in NASTRAN. Aerodynamic modeling is discussed in Section 1.19.3. The preparation of the aerodynamic input data is described in Section 1.19.4 and the interpretation of the aerodynamic output data is discussed in Section 1.19.5. 1.19.2 Description of the Capability 1.19.2.1 Problem Definition At any operating point under steady-state conditions, the rotors and stators of axial-flow compressors are subjected to aerodynamic pressure and temperature loads. The rotors, in addition, also experience centrifugal loads. These loads result in deformation of the elastic structure, which, in turn, influences the aerodynamic loads. These interactive loads and responses arise fundamentally from the elasticity of the structure, and determine the performance of the "flexible" turbomachine. For a given flow rate and rotational speed, the elastic deformation implies a change in the operating point pressure ratio. The process of arriving at an "as manufactured" blade shape to produce a desired (design point) pressure ratio (given the flow rate and rotational speed) is herein termed the "design" problem of axial-flow compressors. The subsequent process of analyzing the performance of "as manufactured" geometry at off-design operating conditions, including the effects of flexibility, is termed the "analysis" problem of axial-flow compressors. 1.19.2.2 Problem Formulation The static aerothermoelastic behavior of each cyclic sector of the tuned rotor/stator of an axial-flow compressor is described by the equation: e d aero non-aero [[K ]+ [K ]] {u} = {P} + {P} (1) In the above equation, the degrees of freedom, {u}, are the steady-state displacements expressed in body-fixed global coordinate systems. [Ke] and [Kd] are the elastic and differential stiffness matrices, respectively. {P}aero represents the steady-state aerodynamic pressure and thermal loads. These are computed using the three-dimensional aerodynamic theory of Reference 1. Finally, {P}non-aero represents all non-aerodynamic loads. As all cyclic sectors of the tuned structure are assumed to respond identically, only one rotationally cyclic sector is modeled and analyzed (Figure 1.19-1), with the intersector boundary conditions imposed via multipoint constraints (MPCs). =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.19-1. Bladed-disc aerodynamic grid and the basic coordinate system =PAGE= Ŀ Compressor Bladed-Disc Sector Geometry, Constraints, Stiffness Matrix, Non-Aerodynamic Loads + Operating Point (Flow Rate, Speed, Loss Parameters, Etc.) Ŀ Aerodynamic Pressure and Temperature Loads, A {P } on Undeformed Blade, ALG g Ŀ Total Loads {P } (Aerodynamic and Non-Aerodynamic) g Ŀ Independent Displacements {u } (Linear Solution) l Ŀ Dependent Displacements, Stresses, Etc. (Linear Solution) A Figure 1.19-2a. Simplified problem flow for static aerothermoelastic design/analysis rigid format for axial-flow compressors =PAGE= A Ŀ d Differential Stiffness Matrix [K ] gg Ĵ Ŀ b Total Stiffness Matrix [K ] ll Ŀ Ŀ A Aerodynamic Pressure and Temperature Loads {P } g Ŀ Total Loads {P } (Aerodynamic and Non-Aerodynamic) Outer g2 Inner Loop Loop Ŀ b Independent Displacements {u } l (Non-Linear Solution) Ŀ Dependent Displacements, Stresses, Etc. (Non-Linear Solution) Adjustment to No Convergence No d d Checks, DSCHK No change in [K ] [K ] necessary gg gg Yes Ŀ b Final Displacement {u }, Deformed Blade Geometry, Point b on g the map Stress, Etc. + Operating Point Pressure Ratio and other Flow Parameters EXIT Figure 1.19-2b. Simplified problem flow for static aerothermoelastic design/analysis rigid format for axial-flow compressors =PAGE= 1.19.2.3 NASTRAN Implementation A rigid format (DISP APP R.F. 16) has been developed specifically for the solution of "design/analysis" problems of axial-flow compressors. The rigid format features functional modules and parameters specifically designed for this capability. The rigid format was developed by modifying DISP APP R.F. 4 (Static Analysis with Differential Stiffness) to include the interactive effects of aerodynamic loads along with the effects due to centrifugal loads. The aerodynamic computer code of Reference 4, with minor changes, has been adapted in a functional module called ALG (Aerodynamic Load Generator). Complete details of the implementation in earlier versions of NASTRAN are given in References 1 and 3. A simplified flowchart of the rigid format is shown in Figure 1.19-2. The value of the parameter SIGN (= +/-1.0) selects the analysis mode (SIGN = 1.0) or the design mode (SIGN = -1.0) of the rigid format. Deformation of the structure as a result of the applied centrifugal and aerodynamic loads is used to revise the blade geometry each time through the differential stiffness loop of the rigid format. Because of the non-linear relationship between the blade geometry and the resulting operating point pressure ratio, provision is made to control the fraction of the displacements used to redefine the blade geometry. This is especially helpful in the solution of the "design" problem. The fractions of the displacements used to redefine the blade geometry are specified via the FXCOOR, FYCOOR, and FZCOOR parameters. The application of the aerodynamic pressure and thermal loads is controlled respectively by the parameters APRESS and ATEMP. These parameters also enable the inclusion of the centrifugal loads alone. The functional module ALG is used in the rigid format before, within, and after the differential stiffness loops (see Section 3.17) to generate the aerodynamic loads. Printed output from this module during these three stages can be controlled through the use of the parameters IPRTCI, IPRTCL, and IPRTCF, respectively. This enables observation of the variation in the aerodynamic loads as a function of the blade geometry. The capability also determines: 1. the steady-state response of the structure (displacements, stresses, reactions, etc.), and 2. a differential stiffness matrix for use in subsequent modal, flutter, and dynamic response analyses. GRID, CTRIA2, and PTRIA2 bulk data cards for the final blade shape can be punched out using the parameter PGEOM. At the end of a "design" run, these cards define the "as manufactured" blade shape, which can subsequently be "analyzed" at selected operating points over the compressor map. In an "analysis" run at any operating point, the total stiffness (elastic and geometric) of the bladed-disc structure can be saved via the parameter KTOUT for use in subsequent modal, modal flutter, and subcritical roots analyses. STREAML1 and STREAML2 bulk data cards specifying the aerodynamic grid and flow data can be punched out using the parameter STREAML. 1.19.3 Aerodynamic Modeling The aerodynamic model is based on a grid generated by the intersection of a series of streamlines and "computing stations" (similar to potential lines) as shown in Figure 1.19-1. The aerodynamic loads are assumed significant only on the bladed portion of a bladed disc and no other part of the structure need be modeled aerodynamically. The data required to generate the aerodynamic model for the steady state aeroelastic analyses are specified on DTI bulk data cards, and are described in Section 1.19.4. The streamlines are defined by the intersection of the blade mean surface and a set of coaxial cylindrical (or conical) surfaces. The axis of the cylinders (cones) coincides with the axis of rotation of the turbomachine. The "computing stations" lie on the blade mean surface and divide it from the leading edge to the trailing edge. The choice of the number and location of the streamlines and the "computing stations" is dictated by the expected variation of the relative flow properties across the blade span, and the complexity of the deformation shape exhibited by this part of the structure. However, a minimum of three streamlines (including the blade root and the tip) and three "computing stations" (including the blade leading edge and the trailing edge) must be specified. The distribution of the aerodynamic parameters over the blade is, in general, different from that of the structural parameters such as stress, strain, etc. Accordingly, the aerodynamic model and the structural model of the blade, in general, may differ. The difference permitted in the two models is similar to that shown in Figure 1.19-1, wherein the aerodynamic grid is shown to be a part of the structural grid. The X-axis of the basic coordinate system (Figure 1.19-1) is chosen to coincide with the axis of rotation and is oriented in the direction of the flow. The location of the origin is arbitrary. The XZ-plane lies parallel to the "mean" meridional plane passing through the blade, with the Z-axis directed towards the blade. 1.19.4 Aerodynamic Input Data The aerodynamic input data consists of a set of initial directives and the remaining data which comprises two sections: the analytic meanline blade section and aerodynamic section. The data in these sections consists of a set of data items for each entry in each section. The data required for the interfacing of the output from the analytic meanline blade section to the aerodynamic section is included in the data items for the analytic meanline blade section. Because partial input to the aerodynamic section is generated by execution of the analytic meanline blade section, the input for the aerodynamic section to be supplied directly by you varies. The analytic meanline blade section must be directed by you to produce data for the aerodynamic section for a particular computing station. This data is internally generated on a scratch file called LOG5. The discussion below indicates the data that is taken from this LOG5 file and therefore is not supplied directly by you. The following data items must be input using the Direct Table Input (DTI) bulk data cards. A description of the DTI card is given in Section 2.4. The table data block name must be ALGDB. The trailer value for T1 (see the description of the DTI bulk data card) must be the number of logical records in the DTI table, not counting the header record. This is the same as the maximum value of IREC used in the table. The trailer values for T2 through T6 are all zero. Each of the following input cards corresponds to one logical record of the DTI table. Trailing zeroes need not be input. Data types, that is, alphanumeric (BCD), real, and integer, must correspond to those specified for each data item. Data item names that begin with the letters I, J, K, L, M, and N are to be input as integers, while all others are input as real numbers. Titles are input as alphanumeric (BCD) with the restriction that only alphabetic letters occupy the first character in each field of the DTI card. Titles may use up to nine DTI fields. 1.19.4.1 Aerodynamic DTI Data Setup In the following discussion, one line (which may be continued) corresponds to one logical record of a DTI card. The data items used here are defined in Section 1.19.4.2. For additional details, you may refer to Reference 4. 1.19.4.1.1 Initial Directives The following data items form the initial directives. TITLE1 NANAL NAERO 1.19.4.1.2 Analytic Meanline Blade Section The following set of data items is input to the analytic meanline blade section, and will occur NANAL times. The last record in this set is indicated with an asterisk. TITLE2 NLINES NSTNS NZ NSPEC NPOINT NBLADE ISTAK IPUNCH ISECN IFCORD IFPLOT (cont.) IPRINT ISPLIT INAST IRLE IRTE NSIGN ZINNER ZOUTER SCALE STACKX PLTSZE KPTS IFANGS Occurs XSTA RSTA - Occurs KPTS times NSTNS R BLAFOR - Occurs NLINES times times ZR B1 B2 PP QQ RLE Occurs TC TE Z CORD DELX DELY NSPEC S BS - Only if ISECN = 1 or 3 times NRAD NDPTS NDATR NSWITC NLE NTE XKSHPE SPEED NOUT1 NOUT2 NOUT3 - Refers to leading edge station NR NTERP NMACH NLOSS NL1 Occurs This group for each is used to (cont.) NL2 NEVAL NCURVE NLITER NDEL station generate within LOG5 data (cont.) NOUT1 NOUT2 NOUT3 NBLADE blade or for the at trailing aerodynamic R XLOSS ]-Occurs NR times edge section RTE Occurs NRAD DM DVFRAC ]-Occurs NDPTS times times * RDTE DELTAD AC ]-Occurs NDATR times 1.19.4.1.3 Aerodynamic Section The following set of data items is input to the aerodynamic section and the last record in this set is indicated with a double asterisk. TITLE3 CP GASR G EJ NSTNS NSTRMS NMAX NFORCE NBL NCASE NSPLIT NSET1 NSET2 NREAD NPUNCH (cont.) NPLOT NPAGE NTRANS NMIX NMANY NSTPLT NEQN NLE NTE NSIGN NWHICH - Occurs NMANY times on the same card G EJ SCLFAC TOLNCE VISK SHAPE XSCALE PSCALE RLOW PLOW XMMAX RCONST CONTR CONMX FLOW SPDFAC NSPEC Occurs NSTNS XSTN RSTN - Occurs NSPEC times times NDATA NTERP NDIMEN NMACH Inlet condition DATAC DATA1 DATA2 DATA3 - Occurs specification NDATA times (LOG5) NDATA NTERP NDIMEN NMACH NWORK (cont.) NLOSS NL1 NL2 NEVAL NCURVE NLITER (cont.) NDEL NOUT1 NOUT2 NOUT3 NBLADE For stations (LOG5) SPEED - If NDATA > 0 2 through NSTNS (LOG5) DATAC DATA1 DATA2 DATA3 DATA4 Occurs (cont.) DATA5 NDATA times (LOG5) DATA6 DATA7 DATA8 DATA9 DELC DELTA - Occurs NDEL times WBLOCK BBLOCK BDIST - Occurs NSTNS times NDIFF Occurs NSET1 DIFF FDHUB FDMID FDTIP - Occurs NDIFF times times NM NRAD Occurs TERAD Occurs NSET2 NRAD times DM WFRAC - Occurs NM times times DELF(1) DELF(2)....DELF(NSTRMS) - if NSPLIT = 1 (6 per card) or NREAD = 1 ** R X XL II JJ - Occurs NSTRMS times for NSTNS stations if NREAD = 1 1.19.4.2 Aerodynamic DTI Data Item Definitions The aerodynamic input data may be specified in any self-consistent unit system and, additionally, a "linear dimension scaling factor" (SCLFAC) is incorporated into the input so that some commonly used but inconsistent unit systems may be used. This is principally intended to allow the use of inches for physical dimensions and yet retain feet for velocities. The basic dimensions used in the data are length (L), time (T), and force (F). Angles are expressed in degrees (A) and temperatures on an absolute temperature scale (D). Heat capacities (H) are also required. Some possible unit systems are given below, together with the corresponding value of SCLFAC. L T F D H SCLFAC Feet Seconds Pounds Deg. Rankine BTU 1.0 Inches Seconds Pounds Deg. Rankine BTU 12.0 Meters Seconds Kilograms Deg. Kelvin CHU 1.0 The data items specified in Section 1.19.4.1 are defined below. Note that some of the data names are used in more than one section; care should be taken to consult the correct section below for definitions. 1.19.4.2.1 Initial Directives TITLE1 This is a title card for the run. NANALSet NANAL = 1 NAEROSet NAERO = 1 1.19.4.2.2 Analytic Meanline Blade Section For a more detailed discussion of the input to this section, see Reference 1. For this section, the dimensioned input is either in degrees (A) or in length (L). TITLE2 A title card for the analytic meanline blade section of the program. NLINES The number of streamsurfaces which are defined, and on which blade sections will be designed. Must satisfy 2 <= NLINES <= 21. NSTNS The number of computing stations at which the streamsurface radii are specified. Must satisfy 3 <= NSTNS <= 10. NZ The number of constant-z planes on which manufacturing (Cartesian) coordinates for the blade are required. Must satisfy 3 <= NZ <= 15. NSPEC The number of radially disposed points at which the parameters of the blade sections are specified. Must satisfy 1 <= NSPEC <= 21. NPOINT The number of points that will be generated to specify the pressure and suction surfaces of each blade section. Must satisfy 2 <= NPOINT <= 80. Generally, no less than 30 should be used. NBLADE The number of blades in the blade row. ISTAK If ISTAK = 0, the blade will be stacked at the leading edge. If ISTAK = 1, the blade will be stacked at the trailing edge. If ISTAK = 2, the blade will be stacked at, or offset from, the section centroid. IPUNCH Set IPUNCH = 0 ISECN If ISECN = 0, the blade will be constructed using the polynomial camber line and the standard (that is, double-cubic) thickness distribution. If ISECN = 1, the exponential camber line and the standard thickness distribution will be used. If ISECN = 2, the circular arc camber line and the double-circular-arc thickness distribution will be used. If ISECN = 3, the multiple-circular-arc meanline and the standard thickness distribution will be used. IFCORD If IFCORD = 0, the meridional projection of the streamsurface blade section chords are specified. If IFCORD = 1, the streamsurface blade section chords are specified. IFPLOT Set IFPLOT = 0 IPRINT The input data is always listed by the program. Details of the streamsurface and manufacturing sections are printed as prescribed by IPRINT. If IPRINT = 0, details of the streamsurface and manufacturing sections are printed. If IPRINT = 1, details of streamsurface sections are printed. If IPRINT = 2, details of manufacturing sections are printed. If IPRINT = 3, details of neither streamsurface nor manufacturing sections are printed. (The interface data for use with the aerodynamic section of the program is still displayed.) ISPLIT Set ISPLIT = 0 INAST Set INAST = 0 IRLE The computing station number at the blade leading edge. IRTE The computing station number at the blade trailing edge. NSIGN Indicator used to sign blade pressure forces according to program sign conventions. For compressor rotors, if the machine rotates clockwise when viewed from the front, set NSIGN to 1; otherwise, set NSIGN to -1. For compressor stators, the two values given for NSIGN are reversed. ZINNER, Extreme Z values between which the NZ manufacturing sections are ZOUTER equally spaced in the Z direction between ZINNER and ZOUTER. SCALE Set SCALE = 0.0 STACKX This is the axial coordinate of the stacking axis for the blade, relative to the same origin as used for the station locations, XSTA. PLTSZE Set PLTSZE = 0.0 KPTS The number of points provided to specify the shape of a computing station. If KPTS = 1, the computing station is upright and linear. If KPTS = 2, the computing station is linear and either upright or inclined. If KPTS > 2, a spline curve is fit through the points provided to specify the shape of the station. IFANGS If IFANGS = 0, the calculations of the quantities required for aerodynamic analysis will be omitted at a particular computing station. If IFANGS = 1, these calculations will be performed at that station. XSTA An array of KPTS axial coordinates (relative to an arbitrary origin) which, together with RSTA, specify the shape of a particular computing station. RSTA An array of KPTS radii which, together with XSTA, specify the shape of a particular computing station. R The stream surface radii at NLINES locations at each of the NSTNS stations. BLAFOR Set BLAFOR = 0.0 ZR The variation of properties of the streamsurface blade section is specified as a function of streamsurface number. The various quantities are then interpolated (or extrapolated) at each streamsurface. The streamsurfaces are numbered consecutively from the innermost outward, starting with 1.0. ZR must increase monotonically, there being NSPEC values in all. B1 The blade inlet angle. B2 The blade outlet angle. PP If ISECN = 0, PP is the ratio of the second derivative of the camber line at the leading edge to its maximum value. Must satisfy -2.0 < PP < 1.0. If ISECN = 1, PP is the ratio of the second derivative of the camber line at the leading edge to its maximum value forward of the inflection point. Must satisfy 0.0 < PP <= 1.0. If ISECN = 2 or 3, PP is superfluous. QQ If ISECN = 0, QQ is the ratio of the second derivative of the camber line at the trailing edge to its maximum value. Must satisfy 0.0 <= QQ <= 1.0. If ISECN = 1, QQ is the ratio of the second derivative of the camber line at the trailing edge to its maximum value rearward of the inflection point. Must satisfy 0.0 < QQ <= 1.0. If ISECN = 2 or 3, QQ is superfluous. RLE The ratio of blade leading edge radius to chord. TC The ratio of blade maximum thickness to chord. TE The ratio of blade trailing edge half-thickness to chord. If ISECN = 2, TE is superfluous. Z The location of the blade maximum thickness, as a fraction of camber line length from the leading edge. If ISECN = 2, Z is superfluous. CORD If IFCORD = 0, CORD is the meridional projection of the blade chord. If IFCORD = 1, CORD is the blade chord. DELX, The stacking axis passes through the streamsurface blade sections, DELY offset from the centroids, leading or trailing edge by DELX and DELY in the X and Y directions, respectively. S, BS If ISECN = 1 or 3, S and BS are used to specify the locations of the inflection point (as a fraction of the meridionally-projected chord length) and the change in camber angle from the leading edge to the inflection point. If the absolute value of the angle at the inflection point is larger than the absolute value of B1, BS should have the same sign as B1; otherwise, B1 and BS should be of opposite signs. NRAD The number of radii at which a distribution of the fraction of trailing edge deviation is input. Must satisfy 1 <= NRAD <= 5. NDPTS The number of points used to define each deviation curve. Must satisfy 1 <= NDPTS <= 11. NDATR The number of radii at which an additional deviation angle increment and the point of maximum camber are specified. Must satisfy 1 <= NDATR <= 21. NSWITC If NSWITC = 1, the deviation correlation parameter "m" for the NACA (A10) meanline is used. If NSWITC = 2, the deviation correlation parameter "m" for double-circular-arc blades is used. NLE Station number at leading edge. NTE Station number at trailing edge. XKSHPE The blade shape correction factor in the deviation rule. SPEED Speed of compressor rotation. NR The number of radii where a "loss" is input. NTERP See Section 1.19.4.2.3 for definitions. NMACH NLOSS NL1 NL2 NEVAL NCURVE NLITER NDEL NOUT1 NOUT2 NOUT3 NBLADE R Radius at which loss is specified. XLOSS Loss description. The form is prescribed by NLSSS; see aerodynamic section. RTE Radius at blade trailing edge where the following deviation fraction/chord curve applies. If NRAD = 1, it has no significance. Must increase monotonically. DM The location on the meridional chord where the deviation fraction is given. Expressed as a fraction of the meridional chord from the leading edge. Must increase monotonically. DVFRAC Fraction of trailing-edge deviation that occurs at location DM. RDTE Radius at trailing edge where additional deviation and point of maximum camber are specified. DELTAD Additional deviation angle added to that determined by deviation rule. Input positive for conventionally positive deviation for both rotors and stators. AC Fraction of blade chord from leading edge where maximum camber occurs. 1.19.4.2.3 Aerodynamic Section TITLE3 A title card for the aerodynamic section of the program. CP Specific heat at constant pressure. An input value of zero will be reset to 0.24. Units: H/F/D. GASR Gas constant. An input value of zero will be reset to 53.52. Units: L/SCLFAC/D. G Acceleration due to gravity. An input value of zero will be reset to 32.174. Units: L/SCLFAC/T/T. EJ Joules equivalent. An input value of zero will be reset to 778.16. Units: LF/SCLFAC/H. NSTNS Number of computing stations. Must satisfy 3 <= NSTNS <= 30. NSTRMS Number of streamlines. Must satisfy 3 <= NSTRMS <= 21. An input value of zero will be reset to 11. NMAX Maximum number of passes through the iterative streamline determination procedure. An input value of zero will be reset to 40. NFORCE The first NFORCE passes are performed with arbitrary numbers inserted should any calculation produce impossible values. Thereafter, execution will cease, the calculation having "failed". An input value of zero will be reset to 10. NBL If NBL = 0, the annulus wall boundary layer blockage allowance will be held at the values prescribed by WBLOCK. If NBL = 1, blockage due to annulus wall boundary layers will be recalculated except at station 1. VISK and SHAPE are used in the calculation. NCASE Set NCASE = 1 NSPLIT If NSPLIT = 0, the flow distribution between the streamlines will be determined by the program so that roughly uniform increments of computing station will occur between the streamlines at station 1. If NSPLIT = 1, the flow distribution between the streamlines is read in (see DELF). NSET1 The blade loss coefficient re-evaluation option (specified by NEVAL) requires loss parameter/diffusion factor data. NSET1 sets of data are input, the set numbers being allocated according to the order in which they are input. Up to 4 sets may be input (see NDIFF). NSET2 When NLOSS = 4, the loss coefficients at the station are determined as a fraction of the value at the trailing edge. Then, NSET2 sets of curves are input to define this fraction at a function of radius and meridional chord. Up to 2 sets may be input (see NM). NREAD If NREAD = 0, the initial streamline pattern estimate is generated by the program. If NREAD = 1, the initial streamline pattern estimate and also the DELF values are read in. (See DELF, R, X, and XL.) NPUNCH Set NPUNCH = 0 NPLOT Set NPLOT = 0 NPAGE The maximum number of lines printed per page. An input value of zero will be reset to 60. NTRANS If NTRANS = 0, no action is taken. If NTRANS = 1, relative total pressure loss coefficients will be modified to account for radial transfer of wakes. See Reference 1. NMIX If NMIX = 0, no action is taken. If NMIX = 1, entropy, angular momentum, and total enthalpy distributions will be modified to account for turbulent mixing. See Reference 1. NMANY The number of computing stations for which blade descriptive data is being generated by the analytic meanline blade section. NSTPLT If NSTPLT = 0, no action is taken. If NSTPLT = 1, a line-printer plot of the changes made to the midstreamline "l" coordinate is made for each computing station. If more than 59 passes through the iterative procedure have been made, then the plots will show the changes for the last 59 passes. The graph should decay approximately exponentially towards zero, indicating that the streamline locations are stabilizing. Decaying oscillations are equally acceptable, but growing oscillations show the need for heavier damping in the streamline relocation calculations, that is, a decrease in RCONST. NEQN This item controls the selection of the form of momentum equation that will be used to compute the meridional velocity distributions at each computing station. There are two basic forms, and for each case, one may select not to compute the terms relating to blade forces. (See Reference 1.) If NEQN = 0, the momentum equation involves the differential form of the continuity equations and hence (1-Mm2 ) terms in the denominator. Streamwise gradients of entropy and angular momentum (blade forces) are computed within blades and at the blade edges (provided data that describe the blades are given). Elsewhere, streamwise entropy gradients only are included in a simpler form of the momentum equation, except that at the first and last computing station, all streamwise gradients are taken to be zero. This is generally the preferred option when computing stations are located within the blade rows. If NEQN = 1, the momentum equation form is similar to that used when NEQN = 0, but angular momentum gradients (blade force terms) are nowhere computed. This generally is the preferred option when computing stations are located at the blade edges only. If NEQN = 2, the momentum equation includes an explicit dVm/dm term instead of the (1-Mm2) denominator terms. All streamwise gradients (including blade force terms) are computed as for the case when NEQN = 0. When computing stations are located within the blade rows, the results will generally be similar to those obtained with NEQN = 0, and solutions may be found that cannot be computed with NEQN = 0 due to high meridional Mach numbers. If NEQN = 3, the momentum equation is similar to that used when NEQN = 1, and no angular momentum gradients are computed. This may be used when computing stations are located only at the blade edges and high meridional Mach numbers preclude the use of NEQN = 1. NLE See Section 1.19.4.2.2 for definitions. NTE NSIGN NWHICH The numbers of each of the computing stations for which blade descriptive data is being generated by the analytic meanline blade section. SCLFAC Linear dimension scale factor. (See Section 1.19.4.2.) An input value of zero will be reset to 12.0. TOLNCE Basic tolerance in iterative calculation scheme. An input value of zero will be reset to 0.001. (See discussion of tolerance scheme in Reference 1.) VISK Kinematic viscosity of gas (for annulus wall boundary layer calculations). An input value of zero will be reset to 0.00018. Units: LL/SCLFAC/SCLFAC/T. SHAPE Shape factor for annulus wall boundary layer calculations. An input value of zero will be reset to 0.7. XSCALE Set each equal to 0.0. PSCALE RLOW PLOW XMMAX The square of the Mach number that appears in the equation for the streamline relocation relaxation factor is limited to be not greater than XMMAX. Thus, at computing stations where the appropriate Mach number is high enough for the limit to be imposed, a decrease in XMMAX corresponds to an increase in damping. If a value of zero is input, it is reset to 0.6. RCONST The constant in the equation for the streamline relocation relaxation factor. The value of 8.0 that the analysis yields is often too high for stability. If zero is input, it is reset to 6.0. CONTR The constant in the blade wake radial transfer calculations. CONMX The eddy viscosity for the turbulent mixing calculations. Units: L2/SCLFAC2/T. FLOW Compressor flow rate. Units: F/T. SPDFAC The speed of rotation of each computing station is SPDFAC times SPEED(I). The units for the product are revolutions/(60 x T). NSPEC The number of points used to define a computing station. Must satisfy 2 <= NSPEC <= 21, and also the sum of NSPEC for all stations <= 150. If 2 points are used, the station is a straight line. Otherwise, a spline-curve is fitted through the given points. XSTN, The axial and radial coordinates, respectively, of a point defining a RSTN computing station. The first point must be on the hub and the last point must be on the casing. Units: L. NDATA Number of points defining conditions or blade geometry at a computing station. Must satisfy 0 <= NDATA <= 21, and also the sum of NDATA for all stations <= 100. NTERP If NTERP = 0, and NDATA >= 3, interpolation of the data at the station is by spline-fit. If NTERP = 1 (or NDATA <= 2), interpolation is linear point-to-point. NDIMEN If NDIMEN = 0, the data are input as a function of radius. If NDIMEN = 1, the data are input as a function of radius normalized with respect to tip radius. If NDIMEN = 2, the data are input as a function of distance along the computing station from the hub. If NDIMEN = 3, the data are input as a function of distance along the computing station normalized with respect to the total computing station length. NMACH If NMACH = 0, the subsonic solution to the continuity equation is sought. If NMACH = 1, the supersonic solution to the continuity equation is sought. This should only be used at stations where the relative flow angle is specified, that is, NWORK = 5, 6 or 7. DATAC The coordinate on the computing station, defined according to NDIMEN, where the following data items apply. Must increase monotonically. For dimensional cases, units are L. DATA1 At Station 1 and if NWORK = 1, DATA1 is total pressure. Units: F/L/L. If NWORK = 0 and the station is at a blade leading edge, by setting NDATA not equal to 0, the blade leading edge may be described. Then DATA1 is the blade angle measured in the cylindrical plane. Generally negative for a rotor, positive for a stator. (Define the blade lean angle (DATA3) also). Units: A. If NWORK = 2, DATA1 is total enthalpy. Units: H/F. If NWORK = 3, DATA1 is angular momentum (radius times absolute whirl velocity). Units: LL/SCLFAC/T. If NWORK = 4, DATA1 is absolute whirl velocity. Units: L/SCLFAC/T. If NWORK = 5, DATA1 is blade angle measured in the streamsurface plane. Generally negative for a rotor, positive for a stator. If zero deviation is input, it becomes the relative flow angle. Units: A. If NWORK = 6, DATA1 is the blade angle measured in the cylindrical plane. Generally negative for a rotor, positive for a stator. If zero deviation is input, it becomes, after correction for streamsurface orientation and station lean angle, the relative flow angle. Units: A. If NWORK = 7, DATA1 is the reference relative outlet flow angle measured in the streamsurface plane. Generally negative for a rotor, positive for a stator. Units: A. DATA2 At Station 1, DATA2 is total temperature. Units: D. If NLOSS = 1, DATA2 is the relative total pressure loss coefficient. The relative total pressure loss is measured from the station that is NL1 stations removed from the current station, NL1 being negative to indicate an upstream station. The relative dynamic head is determined NL2 stations removed from the current station, positive for a downstream station, negative for an upstream station. If NLOSS = 2, DATA2 is the isentropic efficiency of compression relative to conditions NL1 stations removed, NL1 being negative to indicate an upstream station. If NLOSS = 3, DATA2 is the entropy rise relative to the value NL1 stations removed, NL1 being negative to indicate an upstream station. Units: H/F/D. If NLOSS = 4, DATA2 is not used, but a relative total pressure loss coefficient is determined from the trailing edge value and curve set number NCURVE of the NSET2 families of curves. NL1 and NL2 apply as for NLOSS = 1. If NLOSS = 7, DATA2 is the reference (minimum) relative total pressure loss coefficient. NL1 and NL2 apply as for NLOSS = 1. DATA3 The blade lean angle measured from the projection of a radial line in the plane of the computing station, positive when the innermost portion of the blade precedes the outermost in the direction of rotor rotation. Units: A. DATA4 The fraction of the periphery that is blocked by the presence of the blades. DATA5 Cascade solidity. When a number of stations are used to describe the flow through a blade, values are only required at the trailing edge. (They are used in the loss coefficient re-estimation procedure, and to evaluate diffusion factors for the output.) DATA6 If NWORK = 5 or 6, DATA6 is the deviation angle measured in the streamsurface plane. Generally negative for a rotor, positive for a stator. Units: A. If NWORK = 7, DATA6 is reference relative inlet angle, to which the minimum loss coefficient (DATA2) and the reference relative outlet angle (DATA7) correspond. Measured in the streamsurface plane and generally negative for a rotor, positive for a stator. Units: A. DATA7 If NWORK = 7, DATA7 is the rate of change of relative outlet angle with relative inlet angle. DATA8 If NWORK = 7, DATA8 is the relative inlet angle larger than the reference value at which the loss coefficient attains twice its reference value. Measured in the streamsurface plane. Units: A. DATA9 If NWORK = 7, DATA9 is the relative inlet angle smaller than the reference value at which the loss coefficient attains twice its reference value. Measured in the streamsurface plane. Units: A. NWORK If NWORK = 0, constant entropy, angular momentum, and total enthalpy exist along streamlines from the previous station. (If NMIX = 1, the distributions will be modified.) If NWORK = 1, the total pressure distribution at the computing station is specified. Used for rotors only. If NWORK = 2, the total enthalpy distribution at the computing station is specified. Used for rotors only. If NWORK = 3, the absolute angular momentum distribution at the computing station is specified. If NWORK = 4, the absolute whirl velocity distribution at the computing station is specified. If NWORK = 5, the relative flow angle distribution at the station is specified by giving blade angles and deviation angles, both measured in the streamsurface plane. If NWORK = 6, the relative flow angle distribution at the station is specified by giving the blade angles measured in the cylindrical plane, and the deviation angles measured in the streamsurface plane. If NWORK = 7, the relative flow angle and relative total pressure loss coefficient distributions are specified by means of an off-design analysis procedure. "Reference", "stalling", and "choking" relative inlet angles are specified. The minimum loss coefficient varies parabolically with the relative inlet angle so that it is twice the minimum value at the "stalling" or "choking" values. A maximum value of 0.5 is imposed. "Reference" relative outlet angles and the rate of change of outlet angle with inlet angle are specified, and the relative outlet angle varies linearly from the reference value with the relative inlet angle. NLOSS should be set to zero. NLOSS If NLOSS = 1, the relative total pressure loss coefficient distribution is specified. If NLOSS = 2, isentropic efficiency (for compression) distribution is specified. If NLOSS = 3, the entropy rise distribution is specified. If NLOSS = 4, the total pressure loss coefficient distribution is specified by use of curve-set NCURVE of the NSET2 families of curves giving the fraction of final (trailing edge) loss coefficient. NL1 The station from which the loss (in whatever form NLOSS specifies) is measured is NL1 stations removed from the station being evaluated. NL1 is negative to indicate an upstream station. NL2 When a relative total pressure loss coefficient is used to specify losses, the relative dynamic head is taken NL2 stations removed from the station being evaluated. NL2 may be positive, zero, or negative; a positive value indicates a downstream station, a negative value indicates an upstream station. NEVAL If NEVAL = 0, no action is taken. If NEVAL > 0, curve-set number NEVAL of the NSET1 families of curves giving diffusion loss parameter as a function of diffusion factor will be used to re-estimate the relative total pressure loss coefficient. NLOSS must be 1, and NL1 and NL2 must specify the leading edge of the blade. See also NDEL. If NEVAL < 0, curve-set number NEVAL is used as when NEVAL > 0, except that the re-estimation is only made after the overall computation is completed (with the input losses). The resulting loss coefficients are displayed but not incorporated into the overall calculation. See also NDEL. NCURVE When NLOSS = 4, curve-set NCURVE of the NSET2 families of curves specifying the fraction of trailing-edge pressure loss coefficient as a function of meridional chord is used. NLITER When NEVAL > 0, up to NLITER re-estimations of the loss coefficient will be made at a given station during any one pass through the overall iterative procedure. Less than NLITER re-estimations will be made if the velocity profile is unchanged by re-estimating the loss coefficients. (See discussion of tolerance scheme in Reference 4.) NDEL When NEVAL = 0, set NDEL to 0. When NEVAL does not equal 0, and NDEL > 0, a component of the re-estimated loss coefficient is a shock loss. The relative inlet Mach number is expanded (or compressed) through a Prandtl-Meyer expansion on the suction surface, and NDEL is the number of points at which the Prandtl-Meyer angle is given. If NDEL = 0, the shock loss is set at zero. Must satisfy 0 >= NDEL <= 21, and also the sum of NDEL for all stations <= 100. NOUT1 Set NOUT1 = 0 NOUT2 Set NOUT2 = 0 NOUT3 This data item controls the generation of NASTRAN-compatible temperature and pressure difference output for use in subsequent blade stress analyses. For details of the triangular mesh that is used, see Section 1.19.5.1. NOUT3 = XY, where if X = 1, the station is at a blade leading edge. if X = 2, the station is at a blade trailing edge. if Y = 0, then both temperature and pressure data will be generated. if Y = 1, then only pressure data will be generated. if Y = 2, then only temperature data will be generated. If NOUT3 = 0, the station may be between blade rows, or within a blade row for which output is required, depending upon the use of NOUT3 not equal to 0 elsewhere. See also description of NBLADE below. NBLADE This item is used in determining the pressure difference across the blade. The number of blades is |NBLADE|. If NBLADE is positive, "three-point averaging" is used to determine the pressure difference across each blade element. If NBLADE is negative, "four-point averaging" is used. (See Section 1.19.5.2.3.) If NBLADE is input as zero, a value of +10 is used. At a leading edge, the value for the following station is used; elsewhere the value at a station applies to the interval upstream of the station. Thus, by varying the sign of NBLADE, the averaging method used for the pressure forces may be varied for different axial segments of a blade row. SPEED The speed of rotation of the blade. At a blade leading edge, it should be set to zero. The product SPDFAC times SPEED has units of revolutions/(T x 60). This card is omitted if NDATA = 0. DELC The coordinate at which Prandtl-Meyer expansion angles are given. It defines the angle as a function of the dimensions of the leading edge station, in the manner specified by NDIMEN for the current, that is, trailing edge station. Must increase monotonically. For dimensional cases, units are L. DELTA The Prandtl-Meyer expansion angles. A positive value implies expansion. If blade angles are given at the leading edge, the incidence angles are added to the value specified by DELTA. Units: A. (Blade angles are measured in the cylindrical plane.) WBLOCK A blockage factor that is incorporated into the continuity equation to account for annulus wall boundary layers. It is expressed as the fraction of total area at the computing station that is blocked. If NBL = 1, values (except at Station 1) are revised during computation, involving data items VISK and SHAPE. BBLOCK, A blockage factor is incorporated into the continuity equation that BDIST may be used to account for blade wakes or other effects. It varies linearly with distance along the computing station. BBLOCK is the value at mid-station (expressed as the fraction of the periphery blocked), and BDIST is the ratio of the value on the hub to the mid-value. NDIFF When NSET1 > 0, there are NDIFF points defining loss diffusion parameter as a function of diffusion factor. Must satisfy 1 <= NDIFF <= 15. DIFF The diffusion factor at which loss parameters are specified. Must increase monotonically. FDHUB Diffusion loss parameter at 10% of the radial blade height. FDMID Diffusion loss parameter at 50% of the radial blade height. FDTIP Diffusion loss parameter at 90% of the radial blade height. NM When NSET2 > 0, there are NM points defining the fraction of trailing edge loss coefficient as a function of meridional chord. Must satisfy 1 <= NM <= 11. NRAD The number of radial locations where NM loss fraction/chord points are given. Must satisfy 1 <= NRAD <= 5. TERAD The fraction of radial blade height at the trailing edge where the following loss fraction/chord curve applies. If NRAD = 1, it has no significance. DM The location on the meridional chord where the loss fraction is given. Expressed as a fraction of meridional chord from the leading edge. Must increase monotonically. WFRAC Fraction of trailing edge loss coefficient that occurs at location DM. DELF The fraction of the total flow that is to occur between the hub and each streamline. The hub and casing are included, so that the first value must be 0.0, and the last (NSTRMS) value must be 1.0. R Estimated streamline radius. (This data is input from hub to tip for the first station, from hub to tip for the second station, and so on.) Units: L. X Estimated axial coordinate at intersection of streamline with computing station. Units: L. XL Estimated distance along computing station from hub to intersection of streamline with computing station. Units: L. II, JJ Station and streamline number. These are merely read in and printed out to give a check on the order of the cards. 1.19.5 Aerodynamic Output Data 1.19.5.1 Analytic Meanline Blade Section Printed output may be considered to consist of four sections: a printout of the input data, details of the blade sections on each streamsurface, a listing of quantities required for aerodynamic analysis, and details of the manufacturing sections determined on the constant-z planes. These are briefly described below. In the explanation which follows, parenthetical statements are understood to refer to the particular case of the double-circular-arc blade (ISECN = 2). The input data printout includes all quantities read in, and is self-explanatory. Details of the streamsurface blade sections are printed if IPRINT = 0 or 1. Listed first are the parameters defining the blade section. These are interpolated at the streamsurface from the tables read in. Then follow details of the blade section in "normalized" form. The blade section geometry is given for the section specified, except that the meridional projection of the chord is unity. For this section of the output, the coordinate origin is the blade leading edge. The following quantities are given: blade chord, stagger angle, camber angle, section area, location of the centroid of the section, second moments of area of the section about the centroid, orientation of the principal axes, and the principal second moments of area of the section about the centroid. Then are listed the coordinates of the camber line, the camber line angle, the section thickness, and the coordinates of the blade surfaces. NPOINT values are given. A line printer plot of the normalized section follows. The scales for the plot are arranged so that the section just fills the page; therefore the scales will generally differ from one plot to another. "Dimensional" details of the blade section are given next. The normalized data given previously is scaled to give a blade section as defined by IFCORD and CORD. For this section of the output, the coordinates are with respect to the blade stacking axis. The following quantities are given: blade chord, radius and location of center of leading and trailing edges, section area, the second moments of area of the section about the centroid, and the principal second moments of area of the section about the centroid. The coordinates of NPOINT points on the blade surfaces are then listed, followed by the coordinates of 31 points distributed at (roughly) six-degree intervals around the leading and trailing edges. Finally, the coordinates of the blade surfaces and points around the leading and trailing edges are shown in Cartesian form. The quantities required for aerodynamic analysis are printed at all computing stations specified by the IFANGS parameter. The radius, blade section angle, blade lean angle, blade blockage, and relative angular location of the camber line are printed at each streamsurface intersection with the particular computing station. The blade section angle is measured in the cylindrical plane, and the blade lean angle is measured in the constant-axial-coordinate plane. Details of the manufacturing sections are printed if IPRINT = 0 or 2. At each value of z specified by ZINNER, ZOUTER, and NZ, section properties and coordinates are given. The origin for the coordinates is the blade stacking axis. The following quantities are given: section area, the location of the centroid of the section, the second moments of area of the section about the centroid, the principal second moments of area of the section about the centroid, the orientation of the principal axes, and the section torsional constant. Then the coordinates of NPOINT points on the blade section surfaces are listed, followed by 31 points around the leading and trailing edges. The additional input and output required for, and generated by, the interface are also printed. (Apart from the input data printout, this is the only printed output when IPRINT = 3.) If the parameter PGEOM does not equal 1, then cards are punched that may be used as input for subsequent NASTRAN runs. For the purpose of stress analysis, the blade is divided into a number of triangular elements, each defined by three grid points. The intersections between computing stations and streamsurfaces are used as the grid points, and the grid points and element numbering scheme adopted is illustrated in Figure 1.19-3. This figure is not included in the machine readable documentation because of complex graphics. Figure 1.19-3. Grid point and element numbering scheme. =PAGE= 1.19.5.2 Aerodynamic Section 1.19.5.2.1 Normal Output The input data is first printed out in its entirety, and the results for each running point follow. The output is generally self-explanatory and definitions are given here for some derived quantities. Tabular output is generally not started on a page unless it can be completed on the same page, according to the maximum number of lines permitted by the input variable NPAGE. The results of each running point are given under a heading giving the running point number. Any diagnostics generated during the calculation will appear first under the heading. (Diagnostics are described in the following section.) Then, a station-by-station printout follows for each station through to the last station, or to the station where the calculation failed, if this occurred. One or more diagnostics will indicate the reason for the failure, in this event. Included in the meshpoint coordinate data is the distance along the computing station from the hub to the interception of the streamline with the station (L), and the station lean angle (GAMA). Where the radius of curvature of a streamline is shown as zero, the streamline has no curvature. The whirl angle is defined by V tan = (2) V m For stations within a blade, or at a blade trailing edge, a relative total pressure loss coefficient is shown. The loss of relative total pressure is computed from the station defined by the input variable NL1. If a loss coefficient was used in the input for the station (NLOSS = 1 or 4, or NWORK = 7), the input variable NL2 defines the station where the normalizing relative dynamic head is taken; otherwise, it is taken at the station defined by NL1. If the cascade solidity is given as anything but zero, it is used in the determination of diffusion factors. The following definition is used: V V V 2r 1r 2r D = 1 - + (3) V 2 V 1r 1r Inlet conditions (subscript 1) are taken from the station defined by the input variable NL1. The last term in Equation 3 is multiplied by -1 if the blade speed is greater than zero, or the blade speed is zero and the preceding rotating blade row has negative rotation. This is necessary because relative whirl angles are (generally) negative for rotor blades and for stator blades that follow a rotor having "negative" wheel speed. Incidence and deviation angles are treated in the same way, so that positive and negative values have their conventional significance for all blades. If annulus wall boundary layer computations were made (NBL = 1), details are shown for each station. Then, an overall result is given, including a statement of the number of passes that have been performed and whether the calculation has converged, unconverged, or failed. When the calculation is unconverged, the number of mesh points where the meridional velocity component has not remained constant to within the specified tolerance (TOLNCE) on the last two passes is shown as IVFAIL. Similarly, the number of streamtubes, defined by the hub and each streamline in turn, where the fraction of the flow is not within the same tolerance of the target value, is shown as IFFAIL. If these numbers are small, say less than 10% of the maximum possible values, the results may generally be used. Otherwise, the computation should be rerun, either for a greater number of passes, or with modified relaxation factor constants. The default option relaxation constants will generally be satisfactory but may need modification for some cases. If insufficient damping is specified by the constants, the streamlines generated will tend to oscillate, and this may be detected by observing a relatively small radius of curvature for the mid-passage streamline that also changes sign from one station to the next. This may be corrected by rerunning the problem (from scratch) with a lower value input for RCONST, say, of 4.0 instead of 6.0. When the damping is excessive, the velocities will tend to remain constant while the streamlines will not adjust rapidly to the correct locations. This will be indicated by a small IVFAIL and a relatively large IFFAIL. For optimum program performance, RCONST should be increased, and the streamline pattern generated thus far could be used as a starting point. The second constant XMMAX (the maximum value of the square of Mach number used in the relaxation factor) is incorporated so that in high subsonic or supersonic cases the damping does not decrease unacceptably. The default value of 0.6 may be too low for rapid program convergence in some such cases. If the generation of blade pressure load data for subsequent use in NASTRAN is specified (by the input variable NOUT3), a self-explanatory printout is also made. The blade element numbering scheme is the same as that incorporated into both blading sections of the program, and illustrated in Figure 1.19-1. If the loss coefficient re-estimation routine has been used for any bladerow(s) (NEVAL is not equal to 0), a printout summarizing the computations made will follow. A heading indicating whether the re-estimation was incorporated into the overall iterative procedure or whether it was merely made "after the event" is first printed. Then follows a self-explanatory tabulation of various quantities involved in the re-determination of the loss coefficient on each streamline. 1.19.5.2.2 Diagnostic Output The various diagnostic messages that may be produced by the aerodynamic section of the program are all shown. Where a computed value will appear, "x" is shown here. 1. JOB STOPPED - TOO MUCH INPUT DATA. The above message will occur if the sum of NSPEC or NDATA or NDEL for all stations is above the permitted limit. Execution ceases. 2. STATIC ENTHALPY BELOW LIMIT AT xxx.xxxxxExxx. The output routine (subroutine ALG11) calculates static enthalpy at each meshpoint when computing the various output parameters, and this message will occur if a value below the limit (HMIN) occurs. The limiting value will be used, and the results printed become correspondingly arbitrary. HMIN is set in subroutine ALGAR, and should be maintained at some positive value well below any value that will be validly encountered in calculation. 3. PASSxxx STATIONxxx STREAMLINExxx PRANDTL-MEYER FUNCTION NOT CONVERGED - USE INLET MACH NO. The loss coefficient re-estimation procedure involves iteratively solving for the Mach number in the Prandtl-Meyer function. If the calculation does not converge in 20 attempts, the above message is printed, and, as indicated, the Mach number following the expansion (or compression) is assumed to equal the inlet value. (The routine only prints output following the completion of all computations and printing of the station-by-station output data.) 4. PASSxxx STATIONxxx ITERATIONxxx STREAMLINExxx MERIDIONAL VELOCITY UNCONVERGED VM = xx.xxxxxxExx VM(OLD) = xx.xxxxxxExx. For "analysis" cases, that is, at stations where relative flow angle is specified, the calculation of meridional velocity proceeds iteratively at each meshpoint from the mid-streamline to the case and then to the hub. The variable IPMAX (set to 10 in subroutines ALG08 and ALG26) limits the maximum number of iterations that may be made at a streamline without the velocity being converged before the calculation proceeds to the next streamline. The above message will occur if all iterations are used without achieving convergence, and the pass number is greater than NFORCE. Convergence is here defined as occurring when the velocity repeats to within TOLNCE/5.0, applied nondimensionally. No other program action occurs. 5. PASSxxx STATIONxxx MOMENTUM AND/OR CONTINUITY UNCONVERGED W/W SPEC = xx.xxxxx VM/VM (OLD) HUB xx.xxxxx MID = xx.xxxxx TIP = xx.xxxxx. If, following completion of all ITMAX iterations permitted for the flow rate or meridional velocity, the simultaneous solution of the momentum and continuity equations profile is unconverged, and the pass number is greater than NFORCE, the above message occurs. Here converged means that the flow rate equals the specified value, and the meridional velocity repeats, to within TOLNCE/5.0, applied nondimensionally. If loss coefficient re-estimation is specified (NEVAL > 0), an additional iteration is involved, and the tolerance is halved. No further program action occurs. 6. PASSxxx STATIONxxx VM PROFILE NOT CONVERGED WITH LOSS RECALC VM NEW/VM PREV HUB = xx.xxxxxx MID = xx.xxxxxx CASE = xx.xxxxxx. When loss re-estimation is specified (NEVAL > 0), up to NLITER solutions to the momentum and continuity equations are completed, each with a revised loss coefficient variation. If, when the pass number is greater than NFORCE, the velocity profile is not converged after the NLITER cycles of calculation have been performed, the above message is issued. For convergence, the meridional velocities must repeat to within TOLNCE/5.0, applied nondimensionally. No further program action occurs. A further check on the convergence of this procedure is to compare the loss coefficients used on the final pass of calculation, and thus shown in the station-by-station results, with those shown in the output from the loss coefficient re-estimation routine, which are computed from the final velocities, etc. 7. PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx STATIC ENTHALPY BELOW LIMIT IN MOMENTUM EQUATION AT xxx.xxxxxExxx. The static enthalpy is calculated (to find the static temperature) during computation of the "design" case momentum equation, that is, when whirl velocity is specified. If a value lower than HMIN (see discussion of second diagnostic message) is produced, the limiting value is inserted. If this occurs when IPASS > NFORCE, the above message is printed. If this occurs on the final iteration, the calculation is deemed to have failed, calculation ceases, and results are printed out through to this station. 8. PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx LOOPxxx STATIC H IN MOMENTUM EQUN. BELOW LIMIT AT xxx.xxxxxExxx. This corresponds to the previous message, but for the "analysis" case. For failure, it must occur on the final iteration and loop. 9. PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx MERIDIONAL MACH NUMBER ABOVE LIMIT AT xxx.xxxxxExx. When subroutine ALG08 is selected (NEQN = 0 or 1), the meridional Mach number is calculated during computation of the design momentum equation, and a maximum value of 0.99 is permitted. If a higher value is calculated, the limiting value is inserted. If this occurs when IPASS > NFORCE, the above message is printed. If this occurs on the final iteration, the calculation is deemed to have failed, calculation ceases, and results are printed through to this station. 10. PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx LOOPxxx MERIDIONAL MACH NUMBER ABOVE LIMIT AT xxx.xxxxxExxx. This corresponds to the previous message, but for the "analysis" case. For failure, it must occur at the final iteration and loop. 11. PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx MOMENTUM EQUATION EXPONENT ABOVE LIMIT AT xxx.xxxxxExxx. An exponentiation is performed during the computation of the design case momentum equation, and the maximum value of the exponent is limited to 88.0. If this substitution is required when IPASS > NFORCE, the above message is printed. If it occurs on the final iteration, the calculation is deemed to have failed, calculation ceases, and results are printed through to this station. 12. PASSxxx STATIONxxx ITERATIONSxxx STREAMLINExxx (MERIDIONAL VELOCITY) SQUARED BELOW LIMIT AT xxx.xxxxxExxx. If a meridional velocity, squared, of less than 1.0 is calculated during computation of the design case momentum equation, this limit is imposed. If this occurs when IPASS > NFORCE, the above message is printed. If this occurs on the final iteration, the calculation is deemed to have failed, calculation ceases, and results are printed out through to this station. 13. PASSxxx STATIONxxx ITERATIONxxx STREAMIINExxx LOOPxxx (MERIDIONAL VELOCITY) SQUARED BELOW LIMIT AT xxx.xxxxxExxx. This corresponds to the previous message, but for the "analysis" case. For failure, it must occur on the last iteration and loop. 14. PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx STATIC ENTHALPY BELOW LIMIT IN CONTINUITY EQUATION AT xxx.xxxxxExxx. The static enthalpy is calculated during computation of the continuity equation. If a value lower than HMIN (see discussion of second diagnostic message) is produced, the limiting value Is imposed. If this occurs when IPASS > NFORCE, the above message is printed. If this occurs on the final iteration, the calculation is deemed to have failed, calculation ceases, and results are printed out through to this station. 15. PASSxxx STATIONxxx ITERATIONxxx STREAMLINExxx MERIDIONAL VELOCITY BELOW LIMIT IN CONTINUITY AT xxx.xxxxxExxx. If a meridional velocity of less than 1.0 is calculated when the velocity profile is incremented by the amount estimated to be required to satisfy continuity, this limit is imposed. If this occurs when IPASS > NFORCE, the above message is printed. If this occurs on the final iteration, the calculation is deemed to have failed, calculation ceases, and results are printed through to this station. 16. PASSxxx STATIONxxx ITERATIONxxx OTHER CONTINUITY EQUATION BRANCH REQUIRED If, when IPASS > NFORCE, a velocity profile is produced that corresponds to a subsonic solution to the continuity equation when a supersonic solution is required, or vice versa, the above message is printed. If this occurs on the final iteration, failure is deemed to have occurred, calculation ceases, and results are printed out through to this station. 17. PASSxxx STATIONxxx ITERATIONxxx STREAMLINExxx MERIDIONAL VELOCITY GREATER THAN TWICE MID VALUE During integration of the "design" momentum equations, no meridional velocity is permitted to be greater than twice the value on the mid-streamline. If this occurs when IPASS > NFORCE, the above message is printed. If this occurs on the final iteration, the calculation is deemed to have failed, calculation ceases, and results are printed through to this station. In the event that this limit interferes with a valid velocity profile, the constants that appear on some of the input data cards may have to be modified accordingly. Note that as the calculation is at this point working with the square of the meridional velocity, the constant for a limit of, for instance, 2.0 times the mid-streamline value appears as 4.0. 18. PASSxxx STATIONxxx ITERATIONxxx STREAMLINExxx LOOPxxx MERIDIONAL VELOCITY ABOVE LIMIT xxxxxExx LIMIT = xxxxxExx. During integration of the "analysis" momentum equations, no meridional velocity is permitted to be greater than three times the value on the mid-streamline. If this occurs when IPASS > NFORCE, the above message is printed. If this occurs on the final loop of the final iteration, the calculation is deemed to have failed, calculation ceases, and results are printed through to this station. In the event that the limit interferes with a valid velocity profile, the constants that appear on some of the input data cards may have to be modified accordingly. Note that the program is working with meridional velocity squared, so that a limit of, for instance, 3.0 times the mid-streamline value appears as 9.0. 19. PASSxxx STATIONxxx STREAMLINExxx LIMITING MERIDIONAL VELOCITY SQUARED = xxxxxExx. In subroutine ALG08 (NEQN = 0 or 1), a maximum permissible meridional velocity (equal to the speed of sound) is established for each streamline at the beginning of each pass. The calculation yields the square of the velocity, and if a value of less than 1.0 is obtained, a value of 6250000.0 is superimposed (which corresponds to a meridional velocity of 2500.0). If this occurs when IPASS > NFORCE, the above message is printed, and the calculation is deemed to have failed. Calculation ceases after the station computations are made, and results are printed through to this station. 20. PASSxxx STATIONxxx ITERATIONxxx STREAMLINExxx MERIDIONAL VELOCITY ABOVE SOUND SPEED VM = xxxx.xx A = xxxx.xx. In subroutine ALG08 (NEQN = 0 or 1), no meridional velocity is permitted to be larger than the speed of sound. The above message will occur if this limit is violated during integration of the "design" momentum when IPASS > NFORCE. If the limit is violated at any point when IPASS > NFORCE and on the last permitted iteration (last permitted loop also in the case of the "analysis" momentum equation), the calculation is deemed to have failed. Calculation ceases, and the results are printed through to this station. 21. MIXING CALCULATION FAILURE NO. n The above message occurs when flow mixing calculations are specified, and the computation fails. The overall calculation is halted, and results are printed through to the station that is the upstream boundary for the mixing interval in which the failure occurred. The integer n takes on different values to indicate specific problems as follows. 1 In solving for the static pressure distribution at the upstream boundary of each mixing step, the average static enthalpy is determined in each streamtube (defined by an adjacent pair of streamlines). This failure indicates that a value less than HMIN was determined. 2 Calculation of the static pressure distribution at the upstream boundary of the mixing step is iterative. This failure indicates that the procedure did not converge after 10 iterations. 3 The static enthalpy on each streamline at the mixing step upstream boundary is determined from the static pressure and entropy there. This failure indicates that a value less than HMIN was determined. 4 The axial velocity distribution at the mixing step upstream boundary is determined from the total enthalpy, static enthalpy, and tangential velocity distributions. This failure indicates that a value less than HMIN was determined. 5 In solving for the static pressure distribution at the downstream boundary of each mixing step, the average static enthalpy is determined in each streamtube (defined by an adjacent pair of streamlines). This failure indicates that a value less than HMIN was determined. 6 Calculation of the static pressure distribution at the downstream boundary of the mixing step is iterative. This failure indicates that the procedure did not converge after 10 iterations. 7 The static enthalpy distribution at the mixing step downstream boundary is found from the total enthalpy, axial velocity, and tangential velocity distributions. This failure indicates that a value less than HMIN was determined. 8 In order to satisfy continuity, the static pressure level at the mixing step downstream boundary is iteratively determined. This failure indicates that after 15 attempts, the procedure was unconverged. 1.19.5.2.3 Aerodynamic Load and Temperature Output Four output options may result in cards being punched by the aerodynamic section of the program. Use of the input item NOUT3 gives PLOAD2 and TEMP cards punched in a format compatible with NASTRAN input data. For the purposes of stress analysis, the blade is taken to be composed of a number of triangular elements. Two such elements are formed by the quadrilateral defined by two adjacent streamlines and two adjacent computing stations. The way that each quadrilateral is divided into two triangles, and the element numbering scheme that is used, are illustrated in Figure 1.19-3. The pressure difference for each element is given by an average of either three or four values at surrounding meshpoints. The pressure difference at each meshpoint is computed from the equation 2rp dS Vm d (rV) delta p = { sin cos g J + + }(4) N dM r dm and as follows. At the blade leading edge, a forward difference is used to determine the meridional gradients. At the blade trailing edge, the pressure difference is taken to be zero. At stations with the bladerow (following a leading edge), mean central differences are used to determine the meridional gradients. When the input item NBLADE is positive (or zero) for a particular blade axial segment, then three-point averaging is used. For instance, for element number 1 in Figure 1.19-3, pressure differences at grid points 1, 6, and 7 would be used. If NBLADE is negative, four-point averaging is used. For instance, for element number 1, pressure differences at grid points 1, 2, 6, and 7 would be used. The same average would also apply to element number 2. Relative total temperatures are output at the grid points on the blade. A TEMPD value is also output, using the average temperature at the blade root for the grid points on the rest of the structure. REFERENCES 1. Elchuri, V., Smith, G. C. C., Gallo, A. M., and Dale, B. J., "NASTRAN Level 16 Theoretical, User's, Programmer's, and Demonstration Manuals Updates for Aeroelastic Analysis of Bladed Discs," NASA CRs 159823-159826, March 1980. 2. Smith, G. C. C., and Elchuri, V., "Aeroelastic and Dynamic Finite Element Analysis of a Bladed Shrouded Disk," NASA CR 159728, March 1980. 3. Gallo, A. M., Elchuri, V. and Skalskl, S. C., "Bladed-Shrouded-Disc Aeroelastic Analyses: Computer Program Updates in NASTRAN Level 17.7," NASA CR-165428, December 1981. 4. Hearsey, R. M., "A Revised Computer Program for Axial Compressor Design," ARL-75-0001, Vols. I and II, Wright-Patterson AFB, January 1975. =PAGE= 1.20 MODAL FLUTTER ANALYSIS OF AXIAL-FLOW TURBOMACHINES AND ADVANCED TURBOPROPELLERS 1.20.1 Introduction Unstalled flutter boundaries of axial-flow turbomachines (compressors and turbines) can be determined using the capability described in this section. The aeroelastic stability of a given operating point of a given stage of the turbomachine is investigated in terms of modal families of several circumferential harmonic indices considered one at a time. This capability is based on the work described in References 1 through 3. Unstalled flutter boundaries of multi-bladed advanced turbopropellers can also be determined using this capability. Such propellers consist of thin blades of low aspect ratio and varying sweep. The analysis is similar to that for axial-flow turbomachines, with the exception that the effects of blade sweep and its spanwise variation are taken into account in computing the generalized unsteady aerodynamic loads. This capability is based on the work described in References 4 and 5. 1.20.2 Problem Formulation Impellers, propellers, fans, and bladed discs of turbomachines are some examples of structures that exhibit rotational cyclic symmetry in their geometric, material, and constraint properties. The modal flutter behavior of such tuned cyclic structures can be investigated by a modal formulation of the following equations: n ..n n . n en dn n n n [M ] {u } + [B ] {u } + [[K ] + [K ]] {u } - [Q ] {u } = 0(1) n n+1 {u } = {u } (2) side 2 side 1 for n = 1, 2,..., N, where n is the cyclic sector number and N is the number of cyclic sectors in the structure. (See Section 1.12 for a discussion of cyclic symmetry and the meaning of sides 1 and 2 in reference to a cyclic sector.) In the above equations, {un} represents the vibratory displacements in the nth cyclic sector superposed on the steady-state deformed shape. [Mn], [Bn], [Ken], and [Qn] are the mass, damping, elastic stiffness, differential stiffness, and aerodynamic matrices, respectively, referred to the nth cyclic sector. The natural modes and frequencies of the tuned cyclic structure can be grouped in terms of several uncoupled sets, with each set corresponding to a permissible circumferential harmonic index, k. Except for k = 0 and k = N/2 (N even), the cyclic modes can be further separated into cosine and sine component modes. For k = 0 and k = N/2, only cosine modes are defined. (See Section 4.5 of the Theoretical Manual.) For tuned cyclic structures, the modal flutter problem can be posed in terms of either cosine or sine modes with identical results (Reference 2). In the present capability, this selection of mode type is provided as a user option. 1.20.3 NASTRAN Implementation A rigid format (AERO APP R.F. 9) has been developed specifically for the modal flutter analysis of axial-flow turbomachines and advanced turbopropellers. It features bulk data cards and parameters designed to meet the specific needs of this flutter capability. A simplified flowchart of the rigid format is given in Figure 1.20-1. Complete details of the implementation in earlier versions of NASTRAN are given in References 1, 3, and 5. The rigid format integrates the cyclic modal computations for a given circumferential harmonic index with available flutter solution techniques in NASTRAN. The Mach number parameter used in wing flutter analysis is replaced by the interblade phase angle parameter for blade flutter analysis. In a compressor, turbine, or advanced turbopropeller, an operating point is defined in terms of flow properties such as density, velocity, Mach number, flow angle, etc., that vary across the blade span. Blade properties like the blade angles, stagger angle, chord, etc., also, in general, change from the blade root to the tip. The resulting spanwise variation in the local reduced frequency and the relative Mach number is accounted for in estimating the chordwise generalized aerodynamic forces per unit span at each streamline. Integration of these forces over the blade span yields the blade generalized aerodynamic load matrix. In order to nondimensionalize this matrix, the flow and blade properties at a reference streamline are used. The generalized aerodynamic loads matrix, [Q], is computed by two-dimensional cascade unsteady subsonic and supersonic aerodynamic theories of References 6 and 7, respectively, used in a strip theory manner from the blade root to the blade tip, as shown in Figures 1.20-2 and 1.20-3. These theories have been incorporated into the AMG (Aerodynamic Matrix Generator) module in NASTRAN. For advanced turbopropellers, the unsteady aerodynamic theory of Reference 6 has been modified to include the effects of blade sweep and its radial variability (Reference 4). 1.20.4 Usage of the Capability Due to rotational cyclic symmetry, only one cyclic sector need be modeled. The structural model is prepared using the general capabilities of NASTRAN for modeling rotationally cyclic structures (see Section 1.12). The basic coordinate system is fixed to the rotor/stator or the rotating propeller so that the X-axis coincides with the axis of rotation and is in the direction of air flow. The location of the origin is arbitrary. The XZ plane is located so as to contain (approximately) the maximum projected area of the blade being modeled. This orientation is consistent with the internally generated chordline coordinate systems for the unsteady aerodynamics. The aerodynamic model is defined by STREAML1 bulk data cards and comprises a grid defined by the intersection of a series of chords and "computing stations" (Figures 1.20-2 and 1.20-3). The chords are selected normal to any spanwise reference curve such as the blade leading edge. The choice of the number and location of the chords and the computing stations is dictated by the expected variation of the relative flow properties across the blade span, and the complexity of the mode shapes exhibited by the blade. The reference streamline number (see Section 1.20.3 above) is specified on the PARAM IREF bulk data card. Due to its resemblance to the structural model of the blade, and the adequacy of a relatively coarse grid to describe the spanwise flow variations, the aerodynamic model is generally chosen as a subset of the structural model, as shown in Figures 1.20-2 and 1.20-3. STREAML2 bulk data cards are used to specify the parameters associated with both swept and unswept blade aerodynamics at the blade streamlines. Figure 1.20-4 defines some of these parameters in the case of a swept blade. In this figure, A-B-, AB, and A+B+ represent three successive chords with the point A's on the leading edge. For the chord AB, at any operating condition, WA represents the absolute inflow velocity, while AU (= x RA) is the blade (tangential) velocity. WA and AU uniquely define a plane in which the inflow properties are defined. In the plane WAU, VA = WA - AU represents the relative inflow velocity. CA represents the chordwise, cascade relative inflow velocity (field 2, continuation of the STREAML2 bulk data card, see Section 2.4). Mach number in field 8 of the STREAML2 bulk data card is based on CA. Al is the line of intersection between the axial plane through point A and the plane WAU. Angle IAV defines the relative inflow angle 8 (shown positive). The angle of sweep is defined as the angle of inclination of the chord BA with the plane WAU. shown in Figure 1.20-2 is positive. AD is the projection of AC (BA extended to C) in the plane WAU. Angle lAD represents the stagger angle , and is shown positive. =PAGE= Ŀ F. E. Model of one cyclic sector of n-bladed turbomachine stage or advanced turboprop, and given operating conditions to be examined for flutter Oscillatory Steady State Aerodynamic Ŀ Centrifugal Data Loads Ŀ d Ŀ Differential Stiffness, K Generalized Oscillatory Aerodynamic Loads Q (,k) Ŀ ii ijĴ Natural Frequencies and Modes, * Subsonic Relative Inflow * Supersonic Relative Inflow * Subsonic Relative Inflow with Blade Sweep Ŀ Generalized Mass, Damping and Stiffness Ŀ Flutter Loop Parameters , k, p A Figure 1.20-1a. Overall flowchart of blade cyclic modal flutter analysis rigid format for axial-flow turbomachines and advanced turbopropellers =PAGE= A Ŀ Ĵ Select Ŀ Ĵ Select k Ŀ Ĵ Select p Ŀ Select or Interpolate Q (,k) ii Ŀ Formulate Flutter Equations Ŀ Ŀ Complex Eigenvalues Ĵ V-g and V-f Plots Yes Other p? No Yes Other k? No Yes Other ? No STOP Figure 1.20-1b. Overall flowchart of blade cyclic modal flutter analysis rigid format for axial-flow turbomachines and advanced turbopropellers =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.20-2. Rotational cyclic sector of an axial-flow turbomachine =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.20-3. NASTRAN structural and aerodynamic models of an advanced turbopropeller for flutter analysis =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 1.20-4. Definitions of some parameters for swept blade aerodynamics =PAGE= A local coordinate system xyz is internally defined at the leading edge point A of the chord AB such that x is directed along AB. y is defined normal to the "mean" surface containing the points A-, A, A+, B+, B, and B-. The unit vector along y, for the sense of shown in Figure 1.20-2, is given by ___ __ __ ___ ^ (A B ) x (AB) (AB) x (A B ) _ 1 | - + + - j = | + 2 | ___ __ __ ___ ||J(A B ) x (AB)| |(AB) x (A B )| - + + - Modal translations along y and rotations about x are used in deriving the generalized airforce matrix. For the opposite sense of rotation, xyz is internally defined to be left handed with y reversing direction. The shaded area about the chord AB represents the strip of integration associated with AB. The interblade phase angles are specified by means of FLFACT, FLUTTER, and MKAEROi bulk data cards (see Section 2.4). Referring to the sketch below, a positive interblade phase angle implies that blade 1 of the two-dimensional cascade leads the reference blade 0. . Blade 1 1 . . . . . Blade 0 (ref.) 0 . . . . . . . . . The cascade relative inflow Mach number varies along the blade span. Based on this number at a given streamline, either the subsonic or the supersonic theory is used. You specify the transonic Mach number range by means of the bulk data parameters MAXMACH and MINMACH. MAXMACH specifies the upper Mach number limit below which the subsonic theory is to be used; MINMACH specifies the lower Mach number limit above which the supersonic theory is to be used. For streamlines with relative Mach numbers between the limits MAXMACH and MINMACH, the aerodynamic matrix terms are obtained by linear interpolation from the adjacent streamline values. No transonic cascade theories have been incorporated. It should be noted that for a given interblade phase angle and reference reduced frequency, chordwise generalized aerodynamic matrices corresponding to local spacing, stagger, and Mach number at the selected operating point will be generated for each streamline on the blade. This is an expensive operation and should be carefully controlled to reduce the computational work. The aerodynamic matrices are, therefore, computed at a few interblade phase angles and reduced frequencies, and interpolated for others. These parameters are selected on MKAERO1 and MKAERO2 bulk data cards. Matrix interpolation is an automatic feature of the rigid format. Additional aerodynamic matrices may be generated and appended to the previous group on restart with new MKAEROi cards, provided the rest of the data used for the matrix calculation remain unaltered. To save further computational time, the chordwise generalized aerodynamic matrices are first computed for "aerodynamic modes". The aerodynamic matrices for chordwise structural modes are then determined from bilinear transformations along each streamline before the spanwise integration to obtain the complete blade generalized aerodynamic matrix. This permits a change in the structural mode shapes of the same or a different harmonic number to be included in the flutter analysis without having to recompute the modal aerodynamic matrices for aerodynamic modes. This can be achieved by appropriate DMAP ALTERs to the rigid format. For non-zero harmonic numbers, the normal modes analysis using cyclic symmetry results in both "sine" and "cosine" mode shapes (see Section 1.12). The BCD value of the parameter MTYPE on a PARAM bulk data card selects the type of mode shapes to be used in flutter calculations. It is immaterial which is selected. The method of flutter analysis is specified on the FLUTTER bulk data card. The parameters required for flutter analysis (density ratios, interblade phase angles, and reduced frequencies) are listed on FLFACT bulk data cards. The parameter VREF may be used to scale the output velocity. This can be used to convert from consistent units (for example, in/sec) to any units you may desire (for example, mph), determined from Vout = V/VREF. If sweep aerodynamic effects are to be included, the NASTRAN card (see Section 2.1) must be used in the data deck to turn on the 93rd word of COMMON /SYSTEM/. This is accomplished as follows: NASTRAN SYSTEM (93) = 1 In situations where you wish to consider the disc of a bladed disc, or the hub of a turbopropeller, to be relatively much stiffer than the blades, the blades can be regarded as structurally independent. In such cases, the following modeling points should be noted: 1. CYJOIN bulk data cards are required merely for their presence in the Bulk Data Deck. 2. PARAM KINDEX should be set zero to save computational time in real eigenvalue extraction. 3. PARAM MTYPE must be set to COSlNE (the default) as KINDEX = 0. REFERENCES 1. Elchuri, V., Smith, G. C. C., Gallo, A. M., and Dale, B. J., "NASTRAN Level 16 Theoretical, User's, Programmer's, and Demonstration Manuals Updates for Aeroelastic Analysis of Bladed Discs," NASA CRs 159823-159826, March 1980. 2. Smith, G. C. C., and Elchuri, V., "Aeroelastic and Dynamic Finite Element Analysis of a Bladed Shrouded Disc," NASA CR 159728, March 1980. 3. Gallo, A. M., Elchuri, V., and Skalski, S. C., "Bladed-Shrouded-Disc Aeroelastic Analyses: Computer Program Updates in NASTRAN Level 17.7," NASA CR 165428, December 1981. 4. Elchuri, V., and Smith, G. C. C., "NASTRAN Flutter Analysis of Advanced Turbopropellers," NASA CR 167926, April 1982. 5. Elchuri, V., Gallo, A. M., and Skalski, S. C., "NASTRAN Documentation for Flutter Analysis of Advanced Turbopropellers," NASA CR 167927, April 1982. 6. Rao, B. M., and Jones, W. P., "Unsteady Airloads for a Cascade of Staggered Blades In Subsonic Flow," 46th Propulsion Energetics Review Meeting, Monterey, California, September 1975. 7. Adamczyk, J. J., and Goldstein, M. E., "Unsteady Flow in a Supersonic Cascade with Subsonic Leading-Edge Locus," AlAA Journal, Vol. 16, No. 12, December 1978, pp. 1248-1254.  ================================================ FILE: um/MSSG.TXT ================================================ =PAGE= 6.1 NASTRAN MESSAGES There are three categories of diagnostic messages in NASTRAN. They are: 1. Rigid format error messages 2. Structure plotter error messages 3. NASTRAN system and user diagnostic messages The rigid format error messages are fully described in Volume II under the description of the individual rigid formats. The structure plotter error messages are described in Section 4.2.3. The NASTRAN system and user diagnostic messages are detailed in this section. The system and user diagnostic messages issued by NASTRAN are identified by numbers. Message numbers have been assigned in groups as follows: 1 - 1000 Preface Messages 1001 - 2000 Executive Module Messages 2001 - Functional Module Messages These messages have the following format: SYSTEM FATAL *** WARNING MESSAGE id, text USER INFORMATION where "id" is a unique message identification number and "text" is the message as indicated in capital letters for each of the diagnostic messages. A series of asterisks in the text indicates information that will be filled in for a specific use of the message, such as the number of a grid point or the name of a bulk data card. Many of the messages are followed by additional explanatory material, including suggestions for remedial action. The system and user messages described in this section pertain only to those messages generated by NASTRAN. Although these messages can appear at various places in the output stream, they should be easily identified by their format. The various computer operating systems also produce diagnostic messages that can appear at various places in the output stream. The format of these messages will vary with the operating system. Reference should be made to the operating system manuals for interpretation of the messages that are not generated by NASTRAN. System messages refer to diagnostics that are associated with program errors. In general, you cannot correct such. Refer to the Programmer's Manual and assistance secured from the programming staff. User messages refer to errors that are usually associated with the preparation of the NASTRAN Data Deck. Corrective action is indicated in the message text or the explanatory information following the text. In some cases reference may have to be made to other sections of the User's Manual for proper card formats or for clarification of procedures. Fatal messages cause the termination of the execution following the printing of the message text. These messages will always appear at the end of the NASTRAN output. Warning and information messages will appear at various places in the output stream. Such messages only convey warnings or information. Consequently, the execution continues in a normal manner following the printing of the message text. As an example, consider message number 2025, which will appear in the printed output as follows: *** USER FATAL MESSAGE 2025, UNDEFINED COORDINATE SYSTEM 102. The three leading asterisks (***) are always present in the system and user diagnostic messages. The word USER indicates that this is a user message rather than a system message. The word FATAL indicates that this is a fatal message rather than a warning or an information message. The number 2025 is the identification number for this message. The text of the message follows the comma (,). The number 102 replaces the asterisks (****) in the general message text, and indicates that 102 is the identification number of the undefined coordinate system. =PAGE= 6.2 PREFACE MESSAGES 1 *** USER WARNING MESSAGE 1, POSSIBLE ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, ASSUMED FIRST INPUT FILE IS NULL. You have specified N input data blocks when there should be N+1. 2 *** USER WARNING MESSAGE 2, POSSIBLE ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, PARAMETER NAMED ******** IS DUPLICATED. No harm done. Parameter is saved just once. 3 *** USER FATAL MESSAGE 3, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, FORMAT ERROR IN PARAMETER NO. *** Double delimiter appears in parameter section of previous DMAP instruction. 4 *** SYSTEM FATAL MESSAGE 4, MPL PARAMETER ERROR, MODULE NAME = ******** PARAMETER NO. *** MPL entry for module is incorrect. See subroutine XMPLDD. 5 *** USER FATAL MESSAGE 5, PARAMETER INPUT DATA ERROR, ILLEGAL VALUE FOR PARAMETER NAMED ******** The type of the parameter on a PARAM card is inconsistent with the type of the parameter by the same name in the above DMAP instruction. 6 *** USER FATAL MESSAGE 6, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, ILLEGAL TYPE FOR PARAMETER NO. *** The type of the parameter in the DMAP instruction does not correspond to type requested in DMD or MFD section of the Programmer's Manual. 7 *** USER FATAL MESSAGE 7, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, PARAMETER NO. *** NEEDS PARAMETER NAME. Parameter is not in correct format. 8 *** USER FATAL MESSAGE 8, BULK DATA PARAM CARD ERROR. MUST NOT DEFINE PARAMETER NAMED ******** The "N" in V,N,******** means that you cannot set the value of the parameter with the name ******** on a PARAM card. 9 *** USER FATAL MESSAGE 9, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, VALUE NEEDED FOR PARAMETER NO. *** Constant needs value in DMAP instruction or on a PARAM card. 10 *** USER POTENTIALLY FATAL MESSAGE 10, POSSIBLE ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, DEFAULT OPTION FOR INPUT DATA BLOCKS. MAKE SURE MISSING BLOCKS ARE NOT REQUIRED. 11 *** USER POTENTIALLY FATAL MESSAGE 11, POSSIBLE ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, DEFAULT OPTION FOR OUTPUT DATA BLOCKS. MAKE SURE MISSING BLOCKS ARE NOT REQUIRED. 12 *** USER FATAL MESSAGE 12, ERROR IN DMAP INSTRUCTION NO. ****, ILLEGAL CHARACTER IN DMAP INSTRUCTION NAME. Name must be 8 or fewer alpha-numeric characters, the first character being alpha. 13 *** USER FATAL MESSAGE 13, DMAP INSTRUCTION NOT IN MODULE LIBRARY. 14 *** SYSTEM FATAL MESSAGE 14, ARRAY NAMED ******** OVERFLOWED [AT DMAP INSTRUCTION NO. ****] See XGPI module description in the MFD section of the Programmer's Manual. 15 *** USER FATAL MESSAGE 15, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, INCONSISTENT TYPE USED FOR PARAMETER NAMED ******** This parameter was used in a previous DMAP instruction which gave it a different type. See Section 5.2.1. 16 *** USER FATAL MESSAGE 16, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, ILLEGAL FORMAT. 17 *** USER FATAL MESSAGE 17, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, UNIDENTIFIED NASTRAN CARD KEYWORD ********. ACCEPTABLE KEYWORDS FOLLOW --- 18 *** USER FATAL MESSAGE 18, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, TOO MANY PARAMETERS IN DMAP PARAMETER LIST. Incorrect calling sequence for DMAP instruction. 19 *** USER FATAL MESSAGE 19, LABEL NAMED ******** IS MULTIPLY DEFINED. LABEL named appears in more than one place in the DMAP program. 20 *** USER FATAL MESSAGE 20, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, ILLEGAL CHARACTERS IN PARAMETER NO. *** Name must be 8 or fewer alpha-numeric characters, the first character being alpha. 21 *** USER FATAL MESSAGE 21, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, PARAMETER NAMED ******** IS NOT IN PRECEDING DMAP INSTRUCTION PARAMETER LIST. Parameters in a SAVE instruction must appear in the immediately preceding DMAP instruction. 22 *** USER POTENTIALLY FATAL MESSAGE 22, POSSIBLE ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, DATA BLOCK NAMED ******** APPEARS AS INPUT BEFORE BEING DEFINED See Section 5.2. 23 *** USER FATAL MESSAGE 23, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, DATA BLOCK NAMED ******** IS NOT REFERENCED IN SUBSEQUENT FUNCTIONAL MODULE. See Section 5.2. Error can be suppressed by adding the following: PARAM //*NOP*/TRUE=-1 $ COND LABELXXX,TRUE $ TABPT ********,,,,// $ LABEL LABELXXX $ 24 *** SYSTEM FATAL MESSAGE 24, CANNOT FIND FILE NAMED ******** ON DATA POOL TAPE. The contents of /XDPL/ do not match the contents of the Pool Tape. 25 *** USER FATAL MESSAGE 25, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, PARAMETER NAMED ******** NOT DEFINED. Parameter is referenced in a functional module, but is nowhere defined. 26 *** USER FATAL MESSAGE 26, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, LABEL NAMED NOT DEFINED. LABEL name does not appear in LABEL instruction. 27 *** USER WARNING MESSAGE 27, LABEL NAMED ******** NOT REFERENCED. LABEL name appears only in a LABEL instruction. 28 *** SYSTEM FATAL MESSAGE 28, UNEXPECTED END OF TAPE ON NEW PROBLEM TAPE. Either an EOT was truly encountered or file linkage has been destroyed in /XFIST/, /XPFIST/, and/or /XXFIAT/. This message will also appear when tape files on the NASTRAN Card have been declared disk files but insufficient space has been allocated for this purpose. 29 *** SYSTEM FATAL MESSAGE 29, UNEXPECTED END OF TAPE ON OLD PROBLEM TAPE. See Message 28. 30 *** SYSTEM FATAL MESSAGE 30, UNEXPECTED END OF TAPE ON DATA POOL TAPE. See Message 28. 31 *** SYSTEM FATAL MESSAGE 31, CONTROL FILE ******** INCOMPLETE OR MISSING ON NEW PROBLEM TAPE. Data block XCSA is not in correct format or it is missing. 32 *** USER FATAL MESSAGE 32, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, FILE NAMED ******** MUST BE DEFINED PRIOR TO THIS INSTRUCTION. See Section 5.2. 33 *** SYSTEM FATAL MESSAGE 33, NAME (********) IN NEW CONTROL FILE DICTIONARY NOT VALID. The first record of data block XCSA on Problem Tape contains a name which is not recognized by XGPI module. 34 *** SYSTEM FATAL MESSAGE 34, CANNOT TRANSLATE DMAP INSTRUCTION NO. **** Refer to Section 5 of the User's Manual or Section 4 of the Programmer's Manual for the correct format of the instruction. 35 *** USER FATAL MESSAGE 35, INCORRECT OLD PROBLEM TAPE MOUNTED. ID OF TAPE MOUNTED = ********,********,**/**/** REEL =***. ID OF TAPE DESIRED = ********,********,**/**/** REEL =***. Wrong reel mounted for multi-reel Problem Tape. 36 *** SYSTEM FATAL MESSAGE 36, CANNOT FIND FILE NAMED ******** ON OLD PROBLEM TAPE. The header record of the file on Problem Tape does not match the file name in restart dictionary. 37 *** USER WARNING MESSAGE 37, POSSIBLE ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, WARNING ONLY - MAY NOT BE ENOUGH FILES AVAILABLE FOR MODULE REQUIREMENTS. FILES NEEDED = *** FILES AVAILABLE = ***. Program will execute if enough data blocks referenced by the module are purged. Purged data blocks are not assigned files. 38 *** SYSTEM FATAL MESSAGE 38, NOT ENOUGH CORE FOR GPI TABLES. Increase Region Size, Field Length, HICORE allocation, or the length of the open core COMMON block, depending on the machine being used. 39 *** SYSTEM FATAL MESSAGE 39, RIGID FORMAT DMAP SEQUENCE DOES NOT CORRESPOND TO MED TABLE. The MED Table must have the same number of entries as there are DMAP instructions in the DMAP sequence. 40 *** USER FATAL MESSAGE 40, ERROR IN ALTER DECK - CANNOT FIND END OF DMAP INSTRUCTION. Check the ALTER part of the Executive Control Deck. 41 *** SYSTEM FATAL MESSAGE 41, TABLES INCORRECT FOR REGENERATING DATA BLOCK File Name Table and MED Table used by routine XFLDEF are wrong. 42 *** USER WARNING MESSAGE 42, POSSIBLE ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, PARAMETER NAMED ******** ALREADY HAD VALUE ASSIGNED PREVIOUSLY. Parameter appears in a previous instruction which assigned it a value. The previous value will be used. 43 *** USER FATAL MESSAGE 43, INCORRECT FORMAT FOR NASTRAN CARD. 44 *** USER FATAL MESSAGE 44, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, UNABLE TO FIND END DMAP INSTRUCTION. You have ALTERed out the END instruction. 45 *** USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, DATA BLOCK NAMED ******** ALREADY APPEARED AS OUTPUT. See Section 5.2. 46 *** USER FATAL MESSAGE 46, INCORRECT REENTRY POINT. The last reentry card in the restart dictionary has a DMAP instruction number greater than the instruction number on the END card of the DMAP program. 47 *** USER FATAL MESSAGE 47, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, THIS INSTRUCTION CANNOT BE FIRST INSTRUCTION OF LOOP. CHKPNT DMAP instruction must not follow a LABEL instruction which is located at the top of a loop. 48 *** USER WARNING MESSAGE 48, POSSIBLE ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, DATA BLOCK ******** IS ALWAYS REGENERATED, THEREFORE IT WILL NOT BE CHECKPOINTED. This data block is generated by the Input File Processor (IFP) and must not be checkpointed to insure proper restart. 49 *** SYSTEM FATAL MESSAGE 49, MPL TABLE (MODULE PROPERTIES LIST) IS INCORRECT. Error is in COMMON block /XGP12/. 51 *** SYSTEM FATAL MESSAGE 51, NOT ENOUGH OPEN CORE FOR XGPIBS ROUTINE. Additional core memory is required. 52 *** SYSTEM FATAL MESSAGE 52, NAMED COMMON /XLINK/ IS TOO SMALL. There must be one word in LINK table for every entry in MPL. 53 *** USER FATAL MESSAGE 53, INCORRECT FORMAT IN ABOVE CARD. 54 *** USER WARNING MESSAGE 54, PARAMETER NAMED **** NOT REFERENCED. (1) 54 *** SYSTEM WARNING MESSAGE 54, THE NUMBER OF MODULES SPECIFIED IN THE LINK (2) SPECIFICATION TABLE, **** EXCEEDS THE ALLOWABLE NUMBER SPECIFIED BY SEMDBD, **** The parameter LXLINK in COMMON /XLINK/ was exceeded when a new module was added to the program. 55 *** USER FATAL MESSAGE 55, PRECHK NAME LIST EXCEEDS MAXIMUM LIMIT (50). 56 *** USER WARNING MESSAGE 56, ILLEGAL OPTION ON XDMAP CARD - IGNORED. 57 *** USER FATAL MESSAGE 57, VARIABLE REPT PARAMETER MUST BE AN INTEGER. 58 *** USER FATAL MESSAGE 58, VARIABLE REPT PARAMETER MUST BE DEFINED PRIOR TO INSTRUCTION. 59 *** USER WARNING MESSAGE 59, POOL FILE ERROR - DMAP CROSS-REF TERMINATED. 60 *** USER POTENTIALLY FATAL MESSAGE 60, INSUFFICIENT OPEN CORE FOR DMAP CROSS-REF - TERMINATED. 61 *** USER FATAL MESSAGE 61, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, SAVE INSTRUCTION OUT OF SEQUENCE. 62 *** USER FATAL MESSAGE 62, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, INCORRECT NUMBER OF INPUT DATA BLOCKS ENCOUNTERED. 63 *** USER FATAL MESSAGE 63, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO. ****, INCORRECT NUMBER OF OUTPUT DATA BLOCKS ENCOUNTERED. 64 *** USER WARNING MESSAGE 64, **** IS NOT DEFINED AS A NASTRAN FILE AND WILL BE IGNORED. 65 *** SYSTEM FATAL MESSAGE 65, POINTER ** = **** DOES NOT AGREE WITH LMPL = **** An error has been made in counting the number of MPL array entries for a particular module or the LMPL value has not been updated. Recheck any recent changes to the XMPLDD subroutine. 66 *** SYSTEM FATAL MESSAGE 66, ILLEGAL PARAMETER TYPE CODE. The parameter type code in an MPL table entry must be an integer between 1 and 6. See Section 2.4.2.2 of the Programmer's Manual. 67 *** SYSTEM FATAL MESSAGE 67, ERROR IN PARAMETER SEQUENCE. A format error exists in an MPL table entry for a particular module. See Section 2.4.2.2 of the Programmer's Manual. 68 *** SYSTEM FATAL MESSAGE 68, ILLEGAL WORD COUNT. The number of words in an MPL table entry for a particular module must be a positive integer. 201 *** USER FATAL MESSAGE 201, REQUESTED BULK DATA DECK ********, NOT ON USER MASTER FILE. Requested UMF problem identification number not found on currently mounted UMF tape. 202 *** SYSTEM FATAL MESSAGE 202, UMF COULD NOT BE OPENED. User's Master File (UMF) not present (destroyed) in FIST. 203 *** SYSTEM FATAL MESSAGE 203, ILLEGAL EOR ON UMF. User's Master File (UMF) contains no records in requested file. 204 *** USER FATAL MESSAGE 204, COLD START, NO BULK DATA. No data cards were found after the BEGIN BULK card. A blank card will satisfy this rule. 205 *** USER WARNING MESSAGE 205, COLD START, DELETE CARDS IGNORED. Delete (/) cards were present within the Bulk Data Deck and were ignored. 206 *** USER FATAL MESSAGE 206, PREVIOUS ******** CONTINUATION CARDS, THOUGH VALID, CANNOT BE PROCESSED BECAUSE OF ERRORS ON OTHER RELATED CONTINUATION CARDS. 207 *** USER INFORMATION MESSAGE 207, BULK DATA NOT SORTED, XSORT WILL REORDER DECK. The Bulk Data Deck was not in alpha-numeric sort. Sorting will be performed. Sorting of a large deck can be time consuming. 208 *** USER FATAL MESSAGE 208, PREVIOUS CARD IS A DUPLICATE PARENT. Two or more cards were found with columns 74-80 identical and a continuation card is present with that mnemonic (columns 2-8). 209 *** USER FATAL MESSAGE 209, PREVIOUS ******** CONTINUATION MNEMONICS HAVE NO PARENTS AND/OR ARE DUPLICATES. This message results due to either or both of the following reasons: (a) one or more cards with continuation mnemonics in columns 2 through 8 could not be matched with any other card continuation mnemonic in columns 73 through 80 or (b) two or more cards with continuation mnemonics in columns 2 through 8 were identical. 210 *** SYSTEM FATAL MESSAGE 210, SCRATCH COULD NOT BE OPENED. One of the required scratch files was not present (destroyed) in FIST. 211 *** SYSTEM FATAL MESSAGE 211, ILLEGAL EOR ON SCRATCH. A required scratch file was formatted improperly. 212 *** SYSTEM FATAL MESSAGE 212, ILLEGAL EOF ON ITAPE4. Scratch file containing continuations was mis-positioned. 213 *** SYSTEM FATAL MESSAGE 213, ILLEGAL EOF ON OPTP. Old Problem Tape contained no bulk data (illegal format). 214 *** SYSTEM FATAL MESSAGE 214, OPTP COULD NOT BE OPENED. Old Problem Tape (OPTP) not present (destroyed) in FIST. 215 *** SYSTEM FATAL MESSAGE 215, NPTP COULD NOT BE OPENED. New Problem Tape (NPTP) not present (destroyed) in FIST. 216 *** SYSTEM FATAL MESSAGE 216, ILLEGAL INDEX. FORTRAN computed GO TO has received an illogical value. 217 *** SYSTEM FATAL MESSAGE 217, ILLEGAL EOF ON ITAPE4. 218 *** USER FATAL MESSAGE 218, ILLEGAL VALUE OR FORMAT SPECIFIED IN PARM FIELD. The core statistics request or the number of bytes to free back to the operating system has not been defined properly on the EXEC statement card. (IBM only.) 219 *** USER FATAL MESSAGE 219, MISSING ENDDATA CARD. 220 *** USER FATAL MESSAGE 220, MISSING ENDDATA CARD. 221 *** USER FATAL MESSAGE 221, EXTRANEOUS DATA IN FIELD 1 OF BULK DATA DELETE CARD. 238 *** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION. DIAG 38 gives a list of elements being processed. If the EMG module stops due to element error, and DIAG 38 is on, the last element on the list is the one that erred. 248 *** USER INFORMATION MESSAGE 248, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP MODULES, AND NEW BULKDATA CARDS INFORMATION. If DIAG 48 is on, the diagnostic definition, the new DMAP modules and new bulkdata cards that were not printed in the 1986 User's Manual, and the NASTRAN release news for the last two years are printed on your NASTRAN output listing, and NASTRAN computation continues. If DIAGs 48 and 20 are both turned on, the same information as above, plus an expanded NASTRAN release news since 1983 are printed. The NASTRAN job then stops. 300 *** USER FATAL MESSAGE 300, DATA ERROR IN FIELD UNDERLINED. (1) A data error as described in the text has been detected by utility routine XRCARD or RCARD. 300 *** USER FATAL MESSAGE 300, INVALID DATA COLUMN 72. (2) Error in format of exponent. 300 *** USER FATAL MESSAGE 300, INTEGER DATA OUT OF MACHINE RANGE. (3) The limits are (2^31)-1 for IBM, (2^59)-1 for CDC, (2^35)-1 for UNIVAC, and (2^31)-1 for VAX. 300 *** USER FATAL MESSAGE 300, INVALID CHARACTER FOLLOWING INTEGER IN COLUMN (4) *** Either an illegal delimiter was detected or a real number is missing the decimal. 300 *** USER FATAL MESSAGE 300, DATA ERROR - UNANTICIPATED ChARACTER IN COLUMN (5) *** A +/- E or +/- D was expected based on other input data. 300 *** USER FATAL MESSAGE 300, DATA ERROR MISSING DELIMITER OR REAL POWER OUT (6) OF MACHINE RANGE. Either no delimiter was found or the power was exceeded. The limits are E-78 to E+75 for IBM, E-38 to E+38 for UNIVAC, E-294 to E+322 for CDC, and E-38 to E+38 for VAX. 300 *** USER FATAL MESSAGE 300, ROUTINE XRCARD FINDS OUTPUT BUFFER TOO SMALL TO (7) PROCESS CARD COMPLETELY. 301 *** USER WARNING MESSAGE 301, BULK DATA CARD ******** CONTAINS INCONSISTENT DATA. SORTED CARD COUNT = ****** 302 *** USER WARNING MESSAGE 302, ONE OR MORE GRID CARDS HAVE DISPLACEMENT COORDINATE SYSTEM ID OF -1. 303 *** SYSTEM FATAL MESSAGE 303, NO OPEN CORE FOR IFP. Overlay structure must be redefined. 304 *** SYSTEM FATAL MESSAGE 304, IFP NOT READING NPTP. FILE BEING READ = **** The Input File Processor subroutine IFP attempts to locate the bulk data file on the NPTP by searching it forward. The first two words of the file header records are examined for a match with the Hollerith string BULKDATA. If the bulk data is not found by the fifth file, the assumption is made that IFP is either not reading NPTP or that it has been badly written. The header record of the fifth file is printed as part of the message. 305 *** SYSTEM FATAL MESSAGE 305, GINO CANNOT OPEN FILE ****** Unexpected nonstandard return from OPEN. 306 *** SYSTEM FATAL MESSAGE 306, READ LOGIC RECORD ERROR. Short record encountered. Bulk data card images occupy 20 words. 307 *** USER FATAL MESSAGE 307, ILLEGAL NAME FOR BULK DATA CARD ******. See Section 2.4. 308 *** USER FATAL MESSAGE 308, CARD ******** NOT ALLOWED IN ******** APPROACH. See Section 2.4. 309 *** USER WARNING MESSAGE 309, CARD ******** IMPROPER IN ******** APPROACH. See Section 2.4. 310 *** USER FATAL MESSAGE 310, CARD ******** NOT ALLOWED IN SAME DECK AS AXIC CARD. See Section 2.4. 311 *** USER FATAL MESSAGE 311, NONUNIQUE FIELD 2 ON BULK DATA CARD ********. SORTED CARD COUNT = ****. The sorted bulk data card indicated must have a unique integer in field 2. 312 *** USER FATAL MESSAGE 312, TOO MANY CONTINUATIONS FOR BULK DATA CARD ********. SORTED CARD COUNT = ****. See bulk data card description in Section 2.4. 313 *** USER FATAL MESSAGE 313, ILLEGAL NUMBER OF WORDS ON BULK DATA CARD ********. SORTED CARD COUNT = ****. See bulk data card description in Section 2.4. 314 *** SYSTEM FATAL MESSAGE 314, INVALID CALL FROM IFP. K = ****. Code error, machine failure, or cell is being destroyed. 315 *** USER FATAL MESSAGE 315, FORMAT ERROR ON BULK DATA CARD ********. SORTED CARD COUNT = ****. See bulk data card description in Section 2.4. 316 *** USER FATAL MESSAGE 316, ILLEGAL DATA ON BULK DATA CARD ********. SORTED CARD COUNT = ****. See bulk data card description in Section 2.4. 317 *** USER FATAL MESSAGE 317, BAD DATA OR FORMAT OR NONUNIQUE NAME DTI **** SORTED CARD COUNT = ****. See bulk data card description in Section 2.4. 318 *** SYSTEM FATAL MESSAGE 318, NO ROOM IN /XDPL/ FOR DTI ****. Overflow of the Data Pool Table. See Section 2 of the Programmer's Manual. 319 *** SYSTEM FATAL MESSAGE 319, IFP READING EOF ON NPTP. Unexpected EOF encountered while attempting to read a card image. 320 *** USER FATAL MESSAGE 320, IFP ERROR ****** LAST CARD PROCESSED IS ******. SORTED CARD COUNT = ****. Code error in IFP or XSORT. 321 *** USER FATAL MESSAGE 321, NONUNIQUE PARAM NAME *****. The names of all parameters must be unique. 322 *** SYSTEM FATAL MESSAGE 322, ILLEGAL ENTRY TO IFS1P. IFP code error detected in IFS1P, IFS2P, IFS3P, IFS4P, or IFS5P. 324 *** USER WARNING MESSAGE 324, BLANK CARD(S) IGNORED. Blank bulk data cards are ignored by NASTRAN. 325 *** USER FATAL MESSAGE 325, BAD DATA OR FORMAT OR NONUNIQUE NAME. DMI ****** SORTED CARD COUNT = ****. See bulk data card description in Section 2.4. 326 *** SYSTEM FATAL MESSAGE 326, NO ROOM IN /XDPL/ FOR DMI ******. Overflow of the Data Pool Table. See Section 2 of the Programmer's Manual. 327 *** USER FATAL MESSAGE 327, BAD DATA OR FORMAT OR NONUNIQUE NAME. DMIG ****** SORTED CARD COUNT = ****. See bulk data card description in Section 2.4. 329 *** USER FATAL MESSAGE 329, ONLY ONE (1) AXIC CARD ALLOWED. See bulk data card description in Section 2.4. 330 *** SYSTEM FATAL MESSAGE 330, NO ROOM IN CORE FOR PARAM CARDS. Change overlay or increase core size. 331 *** USER FATAL MESSAGE 331, IMPROPER PARAM CARD ******, SORTED CARD COUNT = ****. See bulk data card description in Section 2.4. 332 *** USER FATAL MESSAGE 332, AXIC CARD REQUIRED. The presence of any conical shell data cards requires the presence of an AXIC card. See the AXIC bulk data card description in Section 2.4. 333 *** USER FATAL MESSAGE 333, UNABLE TO SORT ******** MULTI-ENTRY CARD DATA IN SUBROUTINE IFP DUE TO INSUFFICIENT CORE. ADDITIONAL CORE REQUIRED = ********** WORDS. Either increase the core or manually sort multi-entry data cards (CROD, PTRMEM, etc.). 334 *** USER INFORMATION MESSAGE 334, ******** MULTI-ENTRY CARD DATA ARE NOT SORTED ON THEIR {ELEMENT/PROPERTY} IDS. SUBROUTINE IFP WILL SORT THE DATA. 335 *** USER FATAL MESSAGE 335, NONUNIQUE {ELEMENT/PROPERTY} ID ******** ENCOUNTERED IN ******** MULTI-ENTRY CARD DATA. Element and property identification numbers in multi-entry bulk data cards (CROD, PTRMEM, etc.) must be unique integers. 336 *** USER FATAL MESSAGE 336, RFORCE DATA IN SET NO. ******** CONTAINS ILLEGAL DIRECTION FOR AXISYMMETRIC PROBLEM. Only the z component of the rotation direction vector can be defined. See the RFORCE data card description for details. 337 *** USER FATAL MESSAGE 337, BOTH AXIC AND AXIF CARDS USED IN BULK DATA. Axisymmetric structural problems and hydroelastic problems are entirely different and AXIC and AXIF cards are mutually exclusive in the Bulk Data Deck. 338 *** USER FATAL MESSAGE 338, AXISYMMETRIC CARD REQUIRED IN CASE CONTROL DECK. An AXIC or AXIF card was found in the Bulk Data Deck but the required AXISYMMETRIC card was omitted from the Case Control Deck. 339 *** USER FATAL MESSAGE 339, ILLEGAL USE OF AXISYMMETRIC CARD IN CASE CONTROL DECK. An AXISYMMETRIC card was used in Case Control Deck but neither an AXIC nor an AXIF card was present in the Bulk Data Deck. 340 *** USER FATAL MESSAGE 340, PARAM CARDS REQUIRED BY {DISP/AERO} RIGID FORMAT **** NOT FOUND IN BULK DATA. Refer to the description of the rigid formats in Volume II for the PARAM card parameters required by the rigid format indicated. 341 *** USER FATAL MESSAGE 341, LMODES OR HFREQ/LFREQ PARAM REQUIRED BY {DISP/AERO} RIGID FORMAT **** NOT IN BULK DATA OR TURNED OFF. The modal frequency range or the number of modes required for a modal analysis problem was incorrectly specified. 342 *** USER FATAL MESSAGE 342, LMODES PARAM FOUND IN BULK DATA WITH HFREQ OR LFREQ. Only one or the other of the two methods must be used to specify the range of modes to be used in a modal analysis problem. 343 *** USER FATAL MESSAGE 343, NODJE PARAM SPECIFIED FOR AERO RIGID FORMAT BUT P1, P2, OR P3 OMITTED. A tape operation parameter required by the INPUTT2 module was missing. 344 *** USER WARNING MESSAGE 344, P1, P2, OR P3 PARAM FOUND IN BULK DATA BUT NODJE MISSING OR TURNED OFF. 345 *** USER FATAL MESSAGE 345, CTYPE OR NSEGS PARAM REQUIRED BY DISPLACEMENT RIGID FORMAT **** MISSING OR INCORRECT. 346 *** USER FATAL MESSAGE 346, KINDEX PARAM REQUIRED BY DISPLACEMENT RIGID FORMAT 15 MISSING OR TURNED OFF. The harmonic index must be specified for problems involving normal modes with cyclic symmetry. 347 *** USER FATAL MESSAGE 347, DYNAMIC PRESSURE (Q) PARAM REQUIRED BY AERO RIGID FORMAT 11 NOT IN BULK DATA. 348 *** USER FATAL MESSAGE 348, FIRST CHARACTER ON CARD IS NUMERIC. INCORRECT FORMAT OR INCORRECT CONTINUATION ON PREVIOUS CARD. Check card above message or preceding one for format errors. 349 *** USER FATAL MESSAGE 349, PLOT COMMAND **** NOT RECOGNIZED. CHECK SPELLING AND FORMAT ON THIS CARD AND CONTINUATION ON PREVIOUS ONE. 350 *** USER WARNING MESSAGE 350, ONLY NASTRAN GENERAL PURPOSE PLOTTER IS SUPPORTED. SC and CALCOMP plotters are no longer supported. Plotter will default to NASTPLT for the run. 351 *** USER FATAL MESSAGE 351, KEYWORD **** NOT FOUND. (1) A keyword required on the preceding plot command card was not present. 351 *** USER FATAL MESSAGE 351, KEYWORD **** NOT RECOGNIZED. (2) The indicated keyword on the preceding card was not recognized. 352 *** USER FATAL MESSAGE 352, COORDINATE AXES INCORRECTLY DEFINED. The coordinate axes for the plot are incorrectly specified on the preceding AXES or PLOT card. 353 *** USER FATAL MESSAGE 353, INCORRECT FORMAT. The format of the preceding plot control card is incorrect. Refer to Section 4.2 for the correct format. 354 *** USER WARNING MESSAGE 354, **** IDENTIFICATION NUMBER NOT DEFINED. A required SET, ORIGIN, PEN, DENSITY, or SYMBOL identification number was not specified. Default will be used. 355 *** USER FATAL MESSAGE 355, DATA TYPE IS INCORRECT. The type of a parameter value was incorrectly specified on the previous card. 356 *** USER FATAL MESSAGE 356, ONE OR MORE REQUIRED REAL VALUES MISSING. 357 *** USER WARNING MESSAGE 357, CAMERA OPTION NOT SPECIFIED. 358 *** USER FATAL MESSAGE 358, THRU MUST BE PRECEDED AND FOLLOWED BY INTEGER VALUES. 359 *** USER FATAL MESSAGE 359, THRU RANGE OVERLAPS RANGE OF PREVIOUS THRU. 360 *** USER FATAL MESSAGE 360, ONLY DEFORMATION VALID WITH ****. The keywords VELOCITY or ACCELERATION may not be used with keywords STATIC, MODAL, or CMODAL. 361 *** USER FATAL MESSAGE 361, CCONEAX ID = ****. OUT OF 1 TO 9999 PERMISSIBLE RANGE. 362 *** USER FATAL MESSAGE 362, MINIMUM PROBLEM REQUIRES **** CARD. NONE FOUND. (1) 362 *** USER FATAL MESSAGE 362, MINIMUM PROBLEM REQUIRES ****, **** OR **** (2) CARD. NONE FOUND. 363 *** USER FATAL MESSAGE 363, RAN OUT OF OPEN CORE READING **** FILE IN **** SUBROUTINE. Increase Region Size, Field Length, HICORE allocation, or the length of the open core COMMON block, depending on the machine being used. 364 *** USER FATAL MESSAGE 364, HARMONIC NUMBER **** ON **** CARD. OUT OF 0 TO **** ALLOWABLE RANGE. 365 *** USER FATAL MESSAGE 365, RING ID **** ON **** CARD OUT OF 1 TO 999999 ALLOWABLE RANGE. 366 *** USER FATAL MESSAGE 366, SPCAX OR MPCAX CARD HAS SETID = 101 OR 102. 101 AND 102 ARE SYSTEM ID-S RESERVED FOR SINE AND COSINE SETS. 367 *** USER FATAL MESSAGE 367, COMPONENT SPECIFICATION **** ON **** CARD IS INCORRECT. 368 *** USER FATAL MESSAGE 368, RINGAX CARD WITH RING ID = **** HAS A ZERO RADIUS SPECIFIED. 501 *** SYSTEM FATAL MESSAGE 501, MED TABLE INCORRECT FOR THIS SOLUTION. Input to subroutine XSBSET is incorrect. Look for format error in array SS. 502 *** USER FATAL MESSAGE 502, ILLEGAL SUBSET NUMBER FOR THIS SOLUTION. You specified an incorrect subset number on SOL control card. 503 *** USER FATAL MESSAGE 503, ILLEGAL SOLUTION NUMBER. You specified an incorrect solution number on SOL control card. 504 *** USER FATAL MESSAGE 504, CANNOT CHANGE FROM SOLUTION *** TO SOLUTION ***. 505 *** USER FATAL MESSAGE 505, CONTROL CARD **** IS ILLEGAL. The card preceding Message 505 cannot be processed correctly. 506 *** USER FATAL MESSAGE 506, CONTROL CARD **** DUPLICATED. The card preceding Message 506 cannot be input more than once. 507 *** USER FATAL MESSAGE 507, ILLEGAL SPECIFICATION OR FORMAT ON PRECEDING CARD. 508 *** USER FATAL MESSAGE 508, PROBLEM TAPE MUST BE ON PHYSICAL TAPE FOR CHECKPOINTING. You requested checkpointing (that is, CHKPNT YES) but did not specify NPTP with the FILES keyword on the NASTRAN card. Therefore, the Problem Tape must be set up on tape drive. 509 *** USER FATAL MESSAGE 509, WRONG OLD PROBLEM TAPE MOUNTED. OLD PROBLEM TAPE ID = ********,********,**/**/**, REEL NO. = ***. The Old Problem Tape identification does not match the identification on the RESTART card. 510 *** SYSTEM FATAL MESSAGE 510, CHECKPOINT DICTIONARY EXCEEDS CORE SIZE - REMAINING RESTART CARDS IGNORED. You have run out of open core. If approach is DMAP, try putting restart deck before DMAP sequence. If this does not solve the problem, or if approach is not DMAP, then you must decrease the size of the restart deck. 511 *** SYSTEM FATAL MESSAGE 511, DMAP SEQUENCE EXCEEDS CORE SIZE - REMAINING DMAP INSTRUCTIONS IGNORED. You have run out of open core. Split the DMAP sequence somewhere prior to where message 511 was printed out. 512 *** USER FATAL MESSAGE 512, OLD PROBLEM TAPE IS MISSING AND IS NEEDED FOR RESTART. The Problem Tape corresponding to identification on RESTART control card must be set up on the unit assigned to the Old Problem Tape. 513 *** USER FATAL MESSAGE 513, ALTER SEQUENCE NUMBERS ARE OUT OF ORDER. 514 *** USER FATAL MESSAGE 514, ENDALTER CARD IS MISSING. ALTER deck must end with the ENDALTER control card. 515 *** USER FATAL MESSAGE 515, END INSTRUCTION MISSING IN DMAP SEQUENCE. DMAP sequence must end with the END control card. 516 *** USER FATAL MESSAGE 516, UMF TAPE MUST BE MOUNTED ON PHYSICAL TAPE DRIVE. The UMF tape must be set up on the unit assigned to it as UMF was not specified with the FILES keyword on the NASTRAN card. 517 *** USER FATAL MESSAGE 517, WRONG UMF TAPE MOUNTED - TAPE ID = ****. The tape identification number on the UMF tape does not match the tape identification number on the UMF control card. 518 *** USER FATAL MESSAGE 518, CANNOT USE UMF TAPE FOR RESTART. 519 *** USER FATAL MESSAGE 519, ID CARD MUST PRECEDE ALL OTHER CONTROL CARDS. 520 *** USER FATAL MESSAGE 520, CONTROL CARD **** IS MISSING. 521 *** USER FATAL MESSAGE 521, SPECIFY A SOLUTION OR A DMAP SEQUENCE BUT NOT BOTH. You must select a DMAP sequence from the library either by using the SOL control card or by supplying your own DMAP sequence. Do one or the other, but not both. 522 *** USER FATAL MESSAGE 522, NEITHER A SOL CARD NOR A DMAP SEQUENCE WAS INCLUDED. See Message 521. 523 *** USER FATAL MESSAGE 523, ENDALTER CARD OUT OF ORDER. The ENDALTER control card must be preceded by the ALTER deck. 524 *** SYSTEM FATAL MESSAGE 524, ALTERNATE RETURN TAKEN WHEN OPENING FILE ****. This occurs if the file name is not in the FIST or the end of tape was reached while writing on the file. The file name should correspond to one of the permanent entries in the FIST. 525 *** SYSTEM FATAL MESSAGE 525, ILLEGAL FORMAT ENCOUNTERED WHILE READING FILE ****. File is not in the correct format. Either the wrong tape was mounted or it does not contain what you think it should. 526 *** USER FATAL MESSAGE 526, CHECKPOINT DICTIONARY OUT OF SEQUENCE - REMAINING RESTART CARDS IGNORED. The checkpoint dictionary which follows the RESTART control card must be sequenced according to first number on each card. 527 *** USER FATAL MESSAGE 527, DUPLICATE SUBSET NUMBER *****. 528 *** USER WARNING MESSAGE 528, FACTOR FMID IN FLFACT SET **** DOES NOT LIE BETWEEN F1 AND FNF. IT IS BEING RESET TO (F1 + FNF)/2.0. The error may be either on a FLFACT card or on an AEFACT card. 529 *** USER FATAL MESSAGE 529, MISSING CEND CARD. 601 *** USER FATAL MESSAGE 601, THE KEYWORD ON THE ABOVE CARD IS ILLEGAL OR MISSPELLED. SEE THE FOLLOWING LIST FOR LEGAL KEY WORDS. Case Control expects each card to begin with a keyword (usually 4 characters in length). Your card does not. User Message 612 will list the legal keywords along with a brief description of function. To remove the error, consult Message 612 of NASTRAN Case Control card descriptions, Section 2.3, and spell your request correctly. 602 *** USER WARNING MESSAGE 602, TWO OR MORE OF THE ABOVE CARD TYPES DETECTED WHERE ONLY ONE IS LEGAL. THE LAST FOUND WILL BE USED. Remove the card with the duplicate meaning. Note that some cards have alternate forms. 603 *** USER FATAL MESSAGE 603, THE ABOVE CARD DOES NOT END PROPERLY. COMMENTS SHOULD BE PRECEDED BY A DOLLAR SIGN. Case Control cards of the form, name = value, should not contain more than one value. Refer to Section 2.3 for a complete description of the card or precede your comments with a dollar sign. 604 *** USER FATAL MESSAGE 604, THE ABOVE CARD HAS A NONINTEGER IN AN INTEGER FIELD. Consult Section 2.3 for legal values. 605 *** USER FATAL MESSAGE 605, A SYMSEQ OR SUBSEQ CARD APPEARS WITHOUT A SYMCOM OR SUBCOM CARD. SYMSEQ or SUBSEQ cards must appear in a subcase defined by a SYMCOM or SUBCOM card. Check your Case Control Deck order and relabel your combination subcase. 606 *** USER FATAL MESSAGE 606, A REQUEST FOR TEMPERATURE DEPENDENT MATERIALS OCCURS AT THE SUBCASE LEVEL. ONLY ONE ALLOWED PER PROBLEM. Only one temperature field for materials is allowed per NASTRAN run. The last specified will be used for the entire run. If additional ones are desired, a modified restart is in order. 607 *** USER FATAL MESSAGE 607, A REPCASE SUBCASE MUST BE PRECEDED BY A SUBCASE OR SYM SUBCASE. A REPCASE subcase is an attempt to re-output the previously computed case; therefore it cannot be the first subcase. 608 *** USER FATAL MESSAGE 608, THE SET ID SPECIFIED ON THE ABOVE CARD MUST BE DEFINED PRIOR TO THIS CARD. Set identification numbers must be specified prior to their use. Also, sets specified within a subcase die at the end of the subcase. Redefine set (or define set) or move set out of subcase. 609 *** USER FATAL MESSAGE 609, SUBCASE DELIMITER CARDS MUST HAVE A UNIQUE IDENTIFYING INTEGER. Subcase type cards must have an identifying integer. These numbers must be strictly increasing. Renumber your subcase cards. The use of a non-blank delimiter (for example, "=") will also cause this message to occur. 610 *** USER WARNING MESSAGE 610, NO SET ID SPECIFIED. ALL WILL BE ASSUMED. 611 *** USER FATAL MESSAGE 611, TEN CARDS HAVE ILLEGAL KEYWORDS. NASTRAN ASSUMES BEGIN BULK CARD IS MISSING. IT WILL NOW PROCESS YOUR BULK DATA. Only ten key words may be misspelled. A common source of this error may be the omission of the OUTPUT(PLOT), OUTPUT(XYOUT), or OUTPUT(XYPLOT) delimiter cards. 612 *** USER FATAL MESSAGE 612, --LIST OF LEGAL CASE CONTROL MNEMONICS. This message is caused by Messages 601 or 611. 613 *** USER FATAL MESSAGE 613, THE ABOVE SET CONTAINS 'EXCEPT' WHICH IS NOT PRECEDED BY 'THRU'. Only identification numbers included in THRU statements may be excepted. Simplify your SET request. 614 *** USER FATAL MESSAGE 614, THE ABOVE SET IS INCORRECTLY SPECIFIED. CHECK FORMAT ON THIS OR PREVIOUS CARD. The grammar of the SET list is incorrect or a continuation card is missing. 615 *** USER FATAL MESSAGE 615, AN IMPROPER OR NO NAME GIVEN TO THE ABOVE SET. SET lists must have integer names. This SET list does not have one. SET 10 = is the correct format. Give the SET a correct integer name. 616 *** USER FATAL MESSAGE 616, ELEMENT IN THRU RANGE LIES IN RANGE OF PREVIOUS THRU OR EXCEPT. MISSING ELEMENT OR INCORRECT USE OF THRU. EXCEPT in SET list can only be followed by integers. An integer larger than THRU pair terminates THRU. Either list exceptions explicitly, use two THRUs, or terminate first THRU. 617 *** USER FATAL MESSAGE 617, INCORRECT OR MISSING VALUE ON CASE CONTROL CARD. CHECK FOR CORRECT CARD FORMAT. Most integer values in Case Control must be positive. The above card either has a negative integer or a BCD value in place of a positive integer. Check the Case Control Deck documentation in Section 2.3 for the proper card format. 618 *** USER FATAL MESSAGE 618, PLOTTER OUTPUT IS REQUESTED BUT THE PROPER PLOT TAPE IS NOT A PHYSICAL TAPE. Neither PLT1 or PLT2 is a physical tape. Remove the plot control packet or set up the appropriate tape. 619 *** USER WARNING MESSAGE 619, SET MEMBER *** BELONGS TO *** THRU ***. A set member is already included in a THRU. The individual member will be absorbed in the THRU. 620 *** USER WARNING MESSAGE 620, SET MEMBER *** IS DUPLICATED IN SET LIST. A set member is listed twice. The second reference will be deleted. 621 *** USER WARNING MESSAGE 621, INTERVAL *** THRU *** OVERLAPS INTERVAL *** THRU ***. THE MAXIMUM INTERVAL WILL BE USED. 622 *** USER FATAL MESSAGE 622, REAL VALUES NOT ALLOWED IN A THRU SEQUENCE. 623 *** USER FATAL MESSAGE 623, UNEXPECTED END-OF-RECORD ON CASE CONTROL CARD. CHECK FOR CORRECT CARD FORMAT. 624 *** USER FATAL MESSAGE 624, BEGIN BULK CARD NOT FOUND. 625 *** USER FATAL MESSAGE 625, TOO LARGE ID ON PRECEDING SUBCASE TYPE CARD. ALL ID-S MUST BE LESS THAN 99,999,999. Reduce the size of your subcase Identification number. Note also that BCD subcase identification numbers are not legal. 626 *** USER FATAL MESSAGE 626, VALUES IN EXCEPT MUST BE SPECIFIED IN ASCENDING ORDER. 627 *** USER FATAL MESSAGE 627, THE ABOVE SUBCASE HAS BOTH A STATIC LOAD AND A REAL EIGENVALUE METHOD SELECTION -- REMOVE ONE. Rigid Formats 5 and 13 require static load and METHOD selections in the Case Control Deck. Both a load and a METHOD selection cannot take place in the same subcase. See Sections 2.5.4 and 2.13.4 in Volume II, respectively, for subcase requirements. 628 *** USER FATAL MESSAGE 628, THERMAL, DEFORMATION, AND EXTERNAL LOADS CANNOT HAVE THE SAME SET IDENTIFICATION NUMBER. Set IDs specified on the LOAD, TEMP(LOAD), and DEFORM Case Control cards must be unique. 629 *** USER WARNING MESSAGE 629, ECHO CARD HAS REPEATED OR UNRECOGNIZABLE SPECIFICATION DATA--REPEATED SPECIFICATIONS WILL BE IGNORED, UNRECOGNIZABLE SPECIFICATIONS WILL BE TREATED AS SORT. 630 *** USER WARNING MESSAGE 630, ECHO CARD WITH -NONE- SPECIFICATION HAS ADDITIONAL SPECIFICATIONS WHICH WILL BE IGNORED. 631 *** USER FATAL MESSAGE 631, PLOT AND/OR SET COMMAND CARD MISSING FROM STRUCTURE PLOTTER OUTPUT PACKAGE. At least one SET and one PLOT card must he included after an OUTPUT(PLOT) card. 632 *** USER FATAL MESSAGE 632, XYPLOT COMMAND CARDS FOUND IN STRUCTURE PLOTTER OUTPUT PACKAGE. Plot command cards intended for an OUTPUT(XYPLOT) or OUTPUT(XYOUT) package may not be used in an OUTPUT(PLOT) package. Check for missing OUTPUT(XYPLOT) or OUTPUT(XYOUT) card. 651 *** SYSTEM FATAL MESSAGE 651, LOGIC ERROR IN SUBROUTINE IFP1B WHILE PROCESSING SET DATA ON **** FILE. 675 *** USER FATAL MESSAGE 675, ABOVE CARD DOES NOT BEGIN WITH A NONNUMERIC WORD. 676 *** USER FATAL MESSAGE 676, **** IS NOT RECOGNIZED AS AN XYPLOT COMMAND CARD OR PARAMETER. 677 *** USER FATAL MESSAGE 677, ILLEGAL VALUE SPECIFIED. 678 *** USER FATAL MESSAGE 678, *** CONTRADICTS PREVIOUS DEFINITION. 679 *** USER FATAL MESSAGE 679, *** DELIMITER ILLEGALLY USED. 680 *** USER FATAL MESSAGE 680, **** ILLEGAL IN STATEMENT. 681 *** USER FATAL MESSAGE 681, **** IS ILLEGAL IN STATEMENT. 682 *** USER FATAL MESSAGE 682, **** IS ILLEGAL IN STATEMENT. 683 *** USER FATAL MESSAGE 683, TOO MANY SUBCASES. MAXIMUM = 200 ON ANY ONE XY- OUTPUT COMMAND CARD. 684 *** USER FATAL MESSAGE 684, SUBCASE-ID IS LESS THAN 1 OR IS NOT IN ASCENDING ORDER. 685 *** USER FATAL MESSAGE 685, **** = POINT OR ELEMENT ID IS ILLEGAL (LESS THAN 1). 686 *** USER FATAL MESSAGE 686, NEGATIVE OR ZERO COMPONENTS ARE ILLEGAL. 687 *** USER FATAL MESSAGE 687, ALPHA-COMPONENTS ARE NOT PERMITTED FOR STRESS OR FORCE XY-OUTPUT REQUESTS. An XYPLOT command for stresses and forces cannot have alphabetic characters in the item code. See the tables in Section 4.3.2.5 for the proper format. 688 *** USER FATAL MESSAGE 688, **** COMPONENT NAME NOT RECOGNIZED. 689 *** USER FATAL MESSAGE 689, LAST CARD ENDED WITH A DELIMITER BUT NO CONTINUATION CARD WAS PRESENT. 690 *** USER FATAL MESSAGE 690, TYPE OF CURVE WAS NOT SPECIFIED. (E.G., DISPLACEMENT, STRESS, ETC.) 691 *** USER FATAL MESSAGE 691, MORE THAN 2 OR UNEQUAL NUMBER OF COMPONENTS FOR IDENTIFICATION NUMBERS WITHIN A SINGLE FRAME. 692 *** USER FATAL MESSAGE 692, XY-OUTPUT COMMAND IS INCOMPLETE. 693 *** USER FATAL MESSAGE 693, INSUFFICIENT CORE FOR SET TABLE. AT LEAST **** MORE WORDS NEEDED. 694 *** USER FATAL MESSAGE 694, AUTO OR PSDF REQUESTS MAY NOT USE SPLIT FRAME, THUS ONLY ONE COMPONENT PER ID IS PERMITTED. 695 *** USER FATAL MESSAGE 695, COMPONENT VALUE = **** IS ILLEGAL FOR AUTO OR PSDF VECTOR REQUESTS. 696 *** USER FATAL MESSAGE 696, COMPONENT VALUE = ******** IS ILLEGAL FOR VECTOR TYPE SPECIFIED. 697 *** USER FATAL MESSAGE 697, XYPLOT, XYPRINT, XYPUNCH, XYPEAK, OR XYPAPLOT (1) CARD NOT FOUND IN XY PLOTTER OUTPUT PACKAGE. 697 *** USER WARNING MESSAGE 697, SET **** NOT DEFINED. FIRST SET DEFINED WILL (2) BE USED. 698 *** USER FATAL MESSAGE 698, NO SETS DEFINED FOR PLOTS. 699 *** USER FATAL MESSAGE 699, **** ELEMENT IS INVALID. An element type was incorrectly specified on a plot SET card. Refer to subsection 4.2.2.4 for correct element type names. 700 *** USER FATAL MESSAGE 700, SET **** REQUESTED ON {FIND/PLOT} CARD HAS NOT BEEN DEFINED. 702 *** USER FATAL MESSAGE 702, PLOT FILE **** DOES NOT EXIST. 703 *** USER FATAL MESSAGE 703, SET **** REQUESTED ON FIND CARD NOT IN GPSETS FILE. 969 *** USER FATAL MESSAGE 969, COMPONENT VALUE = **** IS ILLEGAL FOR VECTOR TYPE SPECIFIED. 975 *** USER WARNING MESSAGE 975, XYTRAN DOES NOT RECOGNIZE **** AND IS IGNORING. 976 *** USER WARNING MESSAGE 976, OUTPUT DATA BLOCK **** IS PURGED. XYTRAN WILL PROCESS ALL REQUESTS OTHER THAN PLOT. 977 *** USER WARNING MESSAGE 977, FOLLOWING NAMED DATA BLOCK IS NOT IN SORT2 FORMAT. 978 *** USER WARNING MESSAGE 978, XYTRAN MODULE FINDS DATA BLOCK (****) PURGED, NULL, OR INADEQUATE, AND IS IGNORING XY-OUTPUT REQUEST FOR - **** - CURVES. 979 *** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID **** - **** - CURVE IS BEING PASSED OVER. THE ID COULD NOT BE FOUND IN DATA BLOCK ****. 980 *** USER WARNING MESSAGE 980, INSUFFICIENT CORE TO HANDLE ALL DATA FOR ALL CURVES OF THIS FRAME ID = **** COMPONENT = **** DELETED FROM OUTPUT. 981 *** USER WARNING MESSAGE 981, COMPONENT = **** FOR ID = **** IS TOO LARGE. THIS COMPONENTS CURVE NOT OUTPUT. 982 *** USER WARNING MESSAGE 982, FORMAT OF SDR3 INPUT DATA BLOCK **** DOES NOT PERMIT SUCCESSFUL SORT2 PROCESSING. 983 *** USER WARNING MESSAGE 983, SDR3 HAS INSUFFICIENT CORE TO PERFORM SORT2 ON INPUT DATA BLOCK **** OR DATA BLOCK IS NOT IN CORRECT FORMAT. 984 *** USER WARNING MESSAGE 984, SDR3 FINDS OUTPUT DATA BLOCK **** PURGED. 985 *** USER WARNING MESSAGE 985, SDR3 FINDS SCRATCH **** PURGED. 986 *** USER WARNING MESSAGE 986, INSUFFICIENT CORE FOR SDR3. 991 *** USER WARNING MESSAGE 991, XYPLOT INPUT DATA FILE **** NOT FOUND. XYPLOT ABANDONED. The input data file probably has been purged and there were no plots to be done. 992 *** USER WARNING MESSAGE 992, XYPLOT INPUT DATA FILE I.D. RECORDS TOO SHORT. XYPLOT ABANDONED. The input data file records have invalid word counts and further plotting is not feasible. 993 *** USER WARNING MESSAGE 993, XYPLOT FOUND ODD NO. OF VALUES FOR DATA PAIRS IN FRAME ****, CURVE NO. ****. LAST VALUE IGNORED. May indicate a bad input file, but plotting continues. 994 *** USER WARNING MESSAGE 994, XYPLOT OUTPUT FILE NAME **** NOT FOUND. XYPLOT ABANDONED. The PLT2 file required for plotting has not been properly set up and further plotting is useless. 997 *** USER WARNING MESSAGE 997, NO. ***. FRAME NO. **** INPUT DATA INCOMPATIBLE. ASSUMPTIONS MAY PRODUCE INVALID PLOT. NO. *** may take any value from 1 to 4 with the following meanings: 1. Specified X maximum equals X minimum. If this value is zero, then X maximum is set to 5.0 and X minimum to -5.0, otherwise 5 times the absolute value of X maximum is added to X maximum and subtracted from X minimum. 2. Specified X maximum is smaller than X minimum. The values are reversed. 3. Same meaning as number 1 except for Y maximum and Y minimum. 4. Same meaning as number 2 except for Y maximum and Y minimum. 998 *** SYSTEM WARNING MESSAGE 998, XYPLOT PLOTTER OR FRAME MAY NOT CHANGE FOR LOWER FRAME. XYPLOT ABANDONED. Camera option, size of paper, and plotter type must be the same for upper and lower frames. =PAGE= 6.3 EXECUTIVE MODULE MESSAGES 1001 *** SYSTEM FATAL MESSAGE 1001, OSCAR NOT FOUND IN DPL. OSCAR file not present (destroyed) in Data Pool Dictionary. 1002 *** SYSTEM FATAL MESSAGE 1002, OSCAR CONTAINS NO MODULES. XSFA found no modules on OSCAR needing file allocation. 1003 *** SYSTEM FATAL MESSAGE 1003, POOL COULD NOT BE OPENED. Data Pool File (POOL) not present (destroyed) in FIST. 1004 *** SYSTEM FATAL MESSAGE 1004, ILLEGAL EOF ON POOL. End-of-file encountered before OSCAR file reached on Data Pool. 1011 *** SYSTEM FATAL MESSAGE 1011, MD OR SOS TABLE OVERFLOW. Module description or serial OSCAR table overflowed. 1012 *** SYSTEM FATAL MESSAGE 1012, POOL COULD NOT BE OPENED. Data Pool File (POOL) not present (destroyed) in FIST. 1013 *** SYSTEM FATAL MESSAGE 1013, ILLEGAL EOR ON POOL. OSCAR record has illegal format. 1014 *** SYSTEM FATAL MESSAGE 1014, POOL FILE MIS-POSITIONED. OSCAR (POOL) file not at position passed in XSFA calling sequence. 1021 *** SYSTEM FATAL MESSAGE 1021, FIAT OVERFLOWED. FIAT /XFIAT/ Table overflowed; reduce number of logical files. See Section 2 of the Programmer's Manual. 1031 *** SYSTEM FATAL MESSAGE 1031, DPL OVERFLOW. Data Pool Dictionary /XDPL/ overflowed; increase compiled size. See Section 2 of the Programmer's Manual. 1032 *** SYSTEM FATAL MESSAGE 1032, POOL OR FILE BEING POOLED/UN-POOLED COULD NOT BE OPENED. Files not present (destroyed) in FIST. 1033 *** SYSTEM FATAL MESSAGE 1033, ILLEGAL EOF ON FILE BEING POOLED. File being pooled has illegal format. 1034 *** SYSTEM FATAL MESSAGE 1034, ILLEGAL EOR ON FILE BEING POOLED. File being pooled has illegal format (bad header). 1035 *** SYSTEM FATAL MESSAGE 1035, EQUIV INDICATED, NONE FOUND. File (data block) equivalence not found as indicated by XSFA. 1041 *** SYSTEM FATAL MESSAGE 1041, OLD/NEW POOL COULD NOT BE OPENED. Files not present (destroyed) in FIST. 1051 *** SYSTEM FATAL MESSAGE 1051, FIAT OVERFLOW. FIAT /XFIAT/ overflowed; reduce number of logical files. See Section 2 of the Programmer's Manual. 1101 *** USER FATAL MESSAGE 1101, COULD NOT OPEN FILE NAMED ********. Data block has not been generated. 1102 *** SYSTEM FATAL MESSAGE 1102, COULD NOT OPEN FILE NAMED ********. Problem Tape (NPTP) or Pool Table (POOL) File linkage is broken. Look for error in /XFIST/, /XPFIST/, or /XXFIAT/. 1103 *** SYSTEM FATAL MESSAGE 1103, UNABLE TO POSITION DATA POOL FILE CORRECTLY. Contents of /XDPL/ do not correspond to contents of POOL file. 1104 *** SYSTEM FATAL MESSAGE 1104, FDICT TABLE IS INCORRECT. Subroutine XCHK is not generating FDICT correctly. 1105 *** USER FATAL MESSAGE 1105, CANNOT FIND DATA BLOCK NAMED ******** HEADER RECORD = ********. Data block name or equivalenced data block name must match header record. 1106 *** USER FATAL MESSAGE 1106, CHECKPOINT DICTIONARY OVERFLOWED THERE IS NO MORE CORE AVAILABLE. Restart problem from this point with dictionary available. 1107 *** SYSTEM FATAL MESSAGE 1101, CANNOT FIT DATA BLOCK NAMED ******** ON TWO PROBLEM TAPE REELS. Use full tape reels for Problem Tape. 1108 *** SYSTEM FATAL MESSAGE 1108, PURGE TABLE OVERFLOWED. Reduce the number of data blocks being checkpointed at one time by replacing a single CHKPNT instruction with two CHKPNT instructions. 1109 *** SYSTEM FATAL MESSAGE 1109, CANNOT FIND DATA BLOCK NAMED NXPTDC HEADER RECORD = ********. Problem Tape is not positioned correctly for reading NXPTDC. Problem is in subroutine which previously wrote NXPTDC onto Problem Tape. Suspect subroutine is XGPI, XCEI, or XCHK. 1126 *** SYSTEM FATAL MESSAGE 1126, ADDRESS OF BUFFER LESS THAN ADDRESS OF /XNSTRN/. Highly unlikely. Program bug or machine error. 1127 *** SYSTEM FATAL MESSAGE 1127, BUFFER ASSIGNED EXTENDS INTO MASTER INDEX AREA. Calling program bug in buffer allocation or first word of /SYSTEM/ has been altered. 1128 *** SYSTEM FATAL MESSAGE 1128, ON AN OPEN CALL WITHOUT REWIND, THE BLOCK NUMBER READ DOES NOT MATCH EXPECTED VALUE. Probably I/O Error. 1129 *** SYSTEM FATAL MESSAGE 1129, ON A CALL WRITE THE WORD COUNT IS NEGATIVE. Definite calling program error. 1130 *** SYSTEM FATAL MESSAGE 1130, ON A CALL READ THE CONTROL WORD AT WHICH THE FILE IS POSITIONED IS NOT ACCEPTABLE. Attempt to read string formatted record which is not allowed. 1131 *** SYSTEM FATAL MESSAGE 1131, LOGICAL RECORD TRAILER NOT RECOGNIZABLE AS SUCH. Probable GINO bug or hardware error. 1132 *** SYSTEM FATAL MESSAGE 1132, UNRECOGNIZABLE CONTROL WORD DURING PROCESSING OF A BCKREC CALL. Probable GINO bug or hardware error. 1133 *** SYSTEM FATAL MESSAGE 1133, AFTER A POSITIONING CALL TO IO6600, DURING PROCESSING OF A BCKREC CALL THE BLOCK READ WAS NOT THE EXPECTED ONE. Probable IO6600 bug or possible I/O error. 1134 *** SYSTEM FATAL MESSAGE 1134, CALL SKPFIL IN A FORWARD DIRECTION ON A FILE NOT OPENED FOR OUTPUT IS NOT SUPPORTED. 1135 *** SYSTEM FATAL MESSAGE 1135, FILPOS WAS CALLED ON A FILE OPENED FOR OUTPUT. 1136 *** SYSTEM FATAL MESSAGE 1136, ENDPUT WAS CALLED WITH BLOCK (8) = -1. Most likely PUTSTR was not called first. 1137 *** SYSTEM FATAL MESSAGE 1137, MORE TERMS WRITTEN IN STRING THAN WERE AVAILABLE TO WRITE. Most likely subroutine logic error. 1138 *** SYSTEM FATAL MESSAGE 1138, CURRENT BUFFER POINTER EXCEEDS LAST DATA WORD IN BLOCK. Probably a bug in PUTSTR in the computation of the number of terms available to write in a string. 1139 *** SYSTEM FATAL MESSAGE 1139, ON AN INITIAL CALL TO GETSTR, THE RECORD IS NOT POSITIONED AT THE COLUMN HEADER. Either the record is not a string formatted record, or the calling routine has not made a proper sequence of GETSTR, ENDGET calls. 1140 *** SYSTEM FATAL MESSAGE 1140, STRING DEFINITION WORD NOT RECOGNIZABLE. Probable cause is a failure to call ENDGET to complete processing of the previous string. 1141 *** SYSTEM FATAL MESSAGE 1141, FIRST WORD OF A DOUBLE PRECISION STRING IS NOT ON A DOUBLE PRECISION BOUNDARY. This error is probably due to a bug in any of PUTSTR, OPEN, or NASTIO, all of which have responsibility for ensuring proper alignment. 1142 *** SYSTEM FATAL MESSAGE 1142, CURRENT BUFFER POINTER IS BEYOND RANGE OF INFORMATION IN BUFFER. Either an attempt to read beyond end-of-information or a GINO logic bug. 1143 *** SYSTEM FATAL MESSAGE 1143, ON AN INITIAL CALL TO GETSTR, THE FILE IS NOT POSITIONED AT AN ACCEPTABLE POINT. File should be positioned at the beginning of record or at end-of-file. 1144 *** SYSTEM FATAL MESSAGE 1144, END-OF-SEGMENT CONTROL WORD SHOULD HAVE IMMEDIATELY PRECEDED CURRENT POSITION AND IT DID NOT. GINO logic error. 1145 *** SYSTEM FATAL MESSAGE 1145, COLUMN TRAILER NOT FOUND. Previous record to be read backwards is not a string formatted record. 1146 *** SYSTEM FATAL MESSAGE 1146, PREVIOUS RECORD TO BE READ BACKWARDS WAS NOT WRITTEN WITH STRING TRAILERS. 1147 *** SYSTEM FATAL MESSAGE 1147, STRING RECOGNITION WORD NOT RECOGNIZED. A subroutine may not have called GETSTR to indicate completion of processing of previous string or a bug in GETSTR logic. 1148 *** SYSTEM FATAL MESSAGE 1148, RECORD CONTROL WORD NOT IN EXPECTED POSITION. Logic error in GETSTR or PUTSTR when string was written. 1149 *** SYSTEM FATAL MESSAGE 1149, RECTYP WAS CALLED FOR A FILE OPENED FOR OUTPUT. Not allowed. 1150 *** SYSTEM FATAL MESSAGE 1150, RECTYP MUST BE CALLED WHEN THE FILE IS POSITIONED AT THE BEGINNING OF A RECORD. 1151 *** SYSTEM FATAL MESSAGE 1151, ON A CALL TO OPEN THE BUFFER ASSIGNED OVERLAPS A PREVIOUSLY ASSIGNED BUFFER. 1152 *** SYSTEM FATAL MESSAGE 1152, CALL TO OPEN FOR AN ALREADY OPEN FILE. 1153 *** SYSTEM FATAL MESSAGE 1153, FILE NOT OPEN. 1154 *** SYSTEM FATAL MESSAGE 1154, GINO REFERENCE NAME NOT IN FIST OR FILE NOT OPEN. 1155 *** SYSTEM FATAL MESSAGE 1155, CALL TO GETSTR OCCURRED WHEN THE FILE WAS POSITIONED AT END-OF-FILE. 1156 *** SYSTEM FATAL MESSAGE 1156, ATTEMPTED TO WRITE ON AN INPUT FILE. 1157 *** SYSTEM FATAL MESSAGE 1157, ATTEMPTED TO READ FROM AN OUTPUT FILE. 1158 *** SYSTEM FATAL MESSAGE 1158, A CALL TO BLDPK OR PACK IN WHICH EITHER TYPIN OR TYPOUT IS OUT OF RANGE. 1159 *** SYSTEM FATAL MESSAGE 1159, ROW POSITIONS OF ELEMENTS FURNISHED TO ZBLPKI OR BLDPKI ARE NOT IN MONOTONIC INCREASING SEQUENCE. 1160 *** SYSTEM FATAL MESSAGE 1160, ON A CALL TO BLDPKN, FILE NAME DOES NOT MATCH PREVIOUS CALLS. BLDPK was not called prior to a call to BLDPKN. 1161 *** SYSTEM FATAL MESSAGE 1161, A CALL TO INTPK OR UNPACK IN WHICH TYPOUT IS OUT OF RANGE. 1162 *** SYSTEM FATAL MESSAGE 1162, ON AN ATTEMPT TO READ A SUBINDEX AT THE TIME OF A CALL TO OPEN AN END-OF-FILE WAS ENCOUNTERED OR WRONG NUMBER OF WORDS READ. The file has never been written and IO6600 failed to detect it; possible I/O error. 1163 *** SYSTEM FATAL MESSAGE 1163, A READ ATTEMPT WHEN THE CORRESPONDING SUBINDEX IS ZERO. Normally this indicates an attempt to read past the end-of-information. However, if called from FILPOS, suspect is subroutine error in saving and returning a correct file position. 1164 *** SYSTEM FATAL MESSAGE 1164, FOLLOWING A READ ATTEMPT ON AN INDEXED FILE, EITHER AN END-OF-FILE WAS ENCOUNTERED OR THE NUMBER OF WORDS READ WAS INCORRECT. I/O error. 1165 *** SYSTEM FATAL MESSAGE 1165, ON AN ATTEMPT TO READ A SEQUENTIAL FILE, AN END-OF-FILE OR AN END-OF-INFORMATION WAS ENCOUNTERED. 1166 *** SYSTEM FATAL MESSAGE 1166, ON AN ATTEMPT TO READ A SEQUENTIAL FILE, A LONG RECORD WAS ENCOUNTERED. 1167 *** SYSTEM FATAL MESSAGE 1167, ON AN ATTEMPT TO READ A SEQUENTIAL FILE, A SHORT RECORD WAS ENCOUNTERED. 1168 *** SYSTEM FATAL MESSAGE 1168, A CALL TO IO6600 WITH OPCODE=5 (FORWARD SPACE) IS NOT SUPPORTED. 1169 *** SYSTEM FATAL MESSAGE 1169, ILLEGAL CALL TYPE, LOGIC ERROR IN IO6600. 1170 *** SYSTEM FATAL MESSAGE 1170, ILLEGAL CALL TO NASTIO, LOGIC ERROR IN IO6600. 1171 *** SYSTEM FATAL MESSAGE 1171, ON A POSITION CALL, THE BLOCK NUMBER REQUESTED IS NOT FOUND IN CORE WHEN IT IS EXPECTED THERE. Either the caller has written in the area furnished to NASTIO or there is a logic error in NASTIO. 1172 *** SYSTEM FATAL MESSAGE 1172, WHEN ATTEMPTING TO READ A NEW INDEX, THE NUMBER OF WORDS RETURNED WAS INCORRECT. Either an I/O error or logic error in NASTIO. 1201 *** SYSTEM FATAL MESSAGE 1201, FIAT OVERFLOW. FIAT /XFIAT/ overflowed; reduce number of logical files. See Section 2.4 of the Programmer's Manual. 1202 *** SYSTEM FATAL MESSAGE 1202, DPL OVERFLOW. Data Pool Dictionary /XDPL/ overflowed; increase compiled size. See Section 2.4 of the Programmer's Manual. 1300 *** SYSTEM FATAL MESSAGE 1300, END-OF-FILE WAS CALLED ON A FILE OPEN FOR INPUT. 1301 *** SYSTEM FATAL MESSAGE 1301, END-OF-FILE ENCOUNTERED. An error In the calling program caused an unexpected end-of-file. 1302 *** SYSTEM FATAL MESSAGE 1302, ZERO LENGTH RECORD SEGMENT ENCOUNTERED. A zero length record segment occurred before the last record in a block. 1303 *** SYSTEM FATAL MESSAGE 1303, ATTEMPT TO GET A STRING PRIOR TO INFORMATION. There is an error in the calling program. 1304 *** SYSTEM FATAL MESSAGE 1304, UNRECOGNIZED CONTROL WORD. The calling program may have overwritten a buffer. 1305 *** SYSTEM FATAL MESSAGE 1305, BLOCK NUMBER CHECK FAILED. In the process of making a data block core resident, the block number did not have the expected value. 1306 *** SYSTEM FATAL MESSAGE 1306, BLOCK NUMBER IN BLOCK TO BE WRITTEN DOES NOT MATCH NUMBER IN FILE CONTROL BLOCK. 1307 *** SYSTEM FATAL MESSAGE 1307, BLOCK NUMBER OF BLOCK TO BE WRITTEN IS NOT IN CURRENT UNIT. The block number was not in the current unit and not equal to the block number in the preceding unit. 1308 *** SYSTEM FATAL MESSAGE 1308, ATTEMPT TO READ BEYOND DATA. 1309 *** SYSTEM FATAL MESSAGE 1309, CORE RESIDENT DATA BLOCK NUMBER DOES NOT MATCH NUMBER IN FILE CONTROL BLOCK. 1310 *** SYSTEM FATAL MESSAGE 1310, POINTER TO NEXT CORE RESIDENT DATA BLOCK IS ZERO. Next block should be in core. 1311 *** SYSTEM FATAL MESSAGE 1311, BLOCK NUMBER TO BE READ IS NOT INCLUDED IN CURRENT CHAIN OF UNITS. 1312 *** SYSTEM FATAL MESSAGE 1312, BLOCK NUMBER OF BLOCK READ FROM DISK DOES NOT MATCH NUMBER IN FILE CONTROL BLOCK. 1313 *** SYSTEM FATAL MESSAGE 1313, POINTER TO CORE RESIDENT DATA BLOCK IS POSITIONED PRIOR TO INFORMATION. 1314 *** SYSTEM FATAL MESSAGE 1314, ATTEMPT TO POSITION A FILE OPENED TO WRITE. 1315 *** SYSTEM FATAL MESSAGE 1315, BLOCK NUMBER NOT FOUND. Logic error in an attempt to position a core resident data block. 1316 *** SYSTEM FATAL MESSAGE 1316, NO DATA EVENT CONTROL BLOCK AVAILABLE. 1317 *** SYSTEM FATAL MESSAGE 1317, ERROR IN INTERNAL SUBROUTINE IN NASTIO. 1318 *** SYSTEM FATAL MESSAGE 1318, ATTEMPT TO READ BEYOND END-OF-DATA. 1319 *** SYSTEM FATAL MESSAGE 1319, DCB SYNCHRONOUS ERROR DETECTED. Data control block improperly written. 1320 *** SYSTEM FATAL MESSAGE 1320, FIRST TERM IN ROW IS NOT A DIAGONAL TERM. 1321 *** SYSTEM FATAL MESSAGE 1321, FIRST TERM IN ROW IS NOT A DIAGONAL TERM. 1322 *** SYSTEM FATAL MESSAGE 1322, BAD STATUS RETURN ON A NTRAN READ CALL. Possible I/O error. 1323 *** SYSTEM FATAL MESSAGE 1323, END-OF-DATA ENCOUNTERED. The unit on which the end-of-data occurred is not a tape. 1324 *** SYSTEM FATAL MESSAGE 1324, INCORRECT WORD COUNT ON A NTRAN READ CALL. Number of words read by NTRAN is incorrect. 1325 *** SYSTEM FATAL MESSAGE 1325, BAD STATUS RETURN ON A NTRAN WRITE CALL. Possible I/O error. 1326 *** SYSTEM FATAL MESSAGE 1326, INCORRECT NUMBER OF WORDS PASSED BY NTRAN. 1327 *** SYSTEM FATAL MESSAGE 1327, ILLEGAL RETURN FROM FWDREC. 1701 *** SYSTEM WARNING MESSAGE 1701, AVAILABLE CORE EXCEEDED BY ******** LINE IMAGE BLOCKS. 1702 *** SYSTEM INFORMATION MESSAGE 1702, UTILITY MODULE SEEMAT WILL ABANDON PROCESSING DATA BLOCK ********. 1704 *** USER WARNING MESSAGE 1704, PLOT FILE - **** NOT SET UP. 1705 *** SYSTEM WARNING MESSAGE 1705, LOGIC ERROR AT STATEMENT ***** IN SUBROUTINE SEEMAT. 1706 *** USER WARNING MESSAGE 1706, PRECEDING BULK DATA DECK HAS BEEN CANCELED AND WILL NOT APPEAR ON USER MASTER FILE. The preceding Bulk Data Deck contains errors which preclude its inclusion on the User's Master File. Appropriate error message should appear in the echo of the Bulk Data Deck. Any subsequent Bulk Data Decks will be placed on the User's Master File if error- free. 1707 *** USER FATAL MESSAGE 1707, ILLEGAL TID VALUE ON UMF CARD. The TID value used on all UMF cards must be the same for any run and must match the TID value on the UMF tape being input. See Section 2.5 for details. 1708 *** SYSTEM FATAL MESSAGE 1708, UMFEDT - UNEXPECTED EOF FROM READ. The occurrence of this message indicates a program failure in the User's Master File Editor subroutine UMFEDT. 1709 *** SYSTEM FATAL MESSAGE 1709, UMFEDT - UNEXPECTED EOF FROM READ. The occurrence of this message indicates a program failure in the User's Master File Editor subroutine UMFEDT. 1710 *** SYSTEM FATAL MESSAGE 1710, UMFEDT UNABLE TO OPEN ONE OF THE PERMANENT NASTRAN FILES UMF, NUMF, OR NPTP. 1711 *** USER FATAL MESSAGE 1711, NO TAPE SETUP FOR EITHER UMF OR NUMF. THE USER MASTER FILE EDITOR REQUIRES AT LEAST ONE OF THESE TAPES TO BE SET UP. The tape(s) required must be appropriate to the requested action. See Section 2.5 for details. 1712 *** USER WARNING MESSAGE 1712, REQUEST TO ADD DECK WITH PROBLEM IDENTIFICATION NO. = **** CONFLICTS WITH IMPLIED REQUEST TO COPY THE SAME PROBLEM FROM THE UMF. THE NEW DECK WILL BE USED. This message will occur whenever a deck is added whose PID value is the same as that of a problem already existing on the old User's Master File. 1713 *** USER WARNING MESSAGE 1713, REMOVE REQUEST FOR PROBLEM **** IS OUT OF SEQUENCE OR NOT ON UMF. User's Master File Editor control cards must form an increasing sequence. See Section 2.5 for details. 1714 *** USER WARNING MESSAGE 1714, LIST REQUEST FOR PROBLEM **** IS OUT OF SEQUENCE OR NOT ON UMF. User's Master File Editor control cards must form an increasing sequence. See Section 2.5 for details. 1715 *** USER WARNING MESSAGE 1715, PUNCH REQUEST FOR PROBLEM **** IS OUT OF SEQUENCE OR NOT ON UMF. User's Master File Editor control cards must form an increasing sequence. See Section 2.5 for details. 1716 *** USER FATAL MESSAGE 1716, PROBLEM WITH PID = **** IS NOT ON UMF OR CARD IS OUT OF SEQUENCE. User's Master File Editor control cards must form an increasing sequence. See Section 2.5 for details. 1717 *** USER FATAL MESSAGE 1717, NUMF TAPE ID HAS ALREADY BEEN SPECIFIED. The tape id value for the New User's Master File (NUMF) may only be specified once. See Section 2.5 for details. 1718 *** USER FATAL MESSAGE 1718, NUMF TAPE ID MAY NOT BE RESPECIFIED. The tape id value for the New User's Master File (NUMF) may only be specified once. See Section 2.5 for details. 1719 *** USER WARNING MESSAGE 1719, PUNPRT REQUEST FOR PROBLEM **** IS OUT OF SEQUENCE OR NOT ON UMF. User's Master File Editor control cards must form an increasing sequence. See Section 2.5 for details. 1720 *** SYSTEM FATAL MESSAGE 1720, UMFEDT UNABLE TO LOCATE BULK DATA ON NPTP. 1721 *** USER FATAL MESSAGE 1721, BAD USER MASTER FILE EDITOR DATA CARD. See Section 2.5 for instructions for using the User's Master File Editor. 1722 *** USER WARNING MESSAGE 1722, MISSING FINIS CARD. PROCESSING CONTINUING. 1723 *** Reserved for future implementation in the User's Master File Editor. 1724 *** Reserved for future implementation in the User's Master File Editor. 1725 *** Reserved for future implementation in the User's Master File Editor. 1726 *** Reserved for future implementation in the Preface. 1727 *** Reserved for future implementation in the Preface. 1728 *** Reserved for future implementation in the Preface. 1729 *** Reserved for future implementation in the Preface. 1730 *** Reserved for future implementation in the Preface. 1731 *** Reserved for future implementation in the Preface. 1732 *** Reserved for future implementation in the Preface. 1733 *** Reserved for future implementation in the Preface. 1734 *** Reserved for future implementation in the Preface. 3735 *** Reserved for future implementation in the Preface. 1736 *** Reserved for future implementation in the Preface. 1737 *** Reserved for future implementation in the Preface. 1738 *** USER FATAL MESSAGE 1738, UTILITY MODULE INPUT FIRST PARAMETER VALUE *** OUT OF RANGE. In the test problem generating version of utility module INPUT, the first parameter value specifies the specific problem type as follows: 1. Laplace circuit (an N x N array of scalar points connected by scalar springs and optionally by scalar masses). 2. Rectangular frame made from BARS or RODS. 3. Rectangular plate made from QUAD1 elements. 4. Rectangular plate made from TRIA1 elements. 5. N-segment string modeled with scalar elements. 6. N-cell beam made from BAR elements. 7. N-order full matrix generator with optional load. 8. N-spoke wheel. 1739 *** SYSTEM FATAL MESSAGE 1739, UNABLE TO OPEN FILE This message can occur if a required output file is purged in utility module INPUT. 1740 *** SYSTEM FATAL MESSAGE 1740, EOF ENCOUNTERED. An unexpected end-of-file has been encountered while reading an input data block in utility module INPUT. 1741 *** SYSTEM FATAL MESSAGE 1741, EOR ENCOUNTERED. An unexpected end-of-record indicator has been encountered while reading an input data block in utility module INPUT. 1742 *** SYSTEM FATAL MESSAGE 1742, NO DATA PRESENT. Utility module INPUT; input data block contains no data records. 1743 *** SYSTEM FATAL MESSAGE 1743, EOF FROM FWDREC. Utility module INPUT encountered an end-of-file on an input data block while attempting to read past the header record. 1744 *** USER FATAL MESSAGE 1744, DATA CARD(S) ******** GENERATED BY UTILITY MODULE INPUT NOT ALLOWED IN BULK DATA. Module is not capable of integrating same card type from two sources. 1745 *** ************************* Message 1745 is reserved for utility module INPUT. =PAGE= 6.4 FUNCTIONAL MODULE MESSAGES (2001 THROUGH 3000) 2001 *** USER FATAL MESSAGE 2001, SEQGP CARD REFERENCES UNDEFINED GRID POINT ****. 2002 *** SYSTEM FATAL MESSAGE 2002, GRID POINT **** NOT IN EQEXIN. This message indicates a program design error in GP1. 2003 *** USER FATAL MESSAGE 2003, COORDINATE SYSTEM **** REFERENCES UNDEFINED GRID POINT ****. Applies to CORD1j definitions. 2004 *** USER FATAL MESSAGE 2004, COORDINATE SYSTEM **** REFERENCES UNDEFINED COORDINATE SYSTEM ****. Applies to CORD2j definitions. 2005 *** SYSTEM FATAL MESSAGE 2005, INCONSISTENT COORDINATE SYSTEM DEFINITION. At least one coordinate system is so defined that it cannot be related to the basic coordinate system. See Section 4.21.7.4 of the Programmer's Manual. 2006 *** USER FATAL MESSAGE 2006, INTERNAL GRID POINT **** REFERENCES UNDEFINED COORDINATE SYSTEM The grid point whose internal sequence number is printed above references an undefined coordinate system in either field 3 or field 7 of a GRID card. 2007 *** USER FATAL MESSAGE 2007, ELEMENT **** REFERENCES UNDEFINED GRID POINT ****. 2008 *** USER FATAL MESSAGE 2008, LOAD SET **** REFERENCES UNDEFINED GRID POINT ****. 2009 *** USER FATAL MESSAGE 2009, TEMP SET **** REFERENCES UNDEFINED GRID POINT ****. 2010 *** USER FATAL MESSAGE 2010, ELEMENT **** REFERENCES UNDEFINED GRID POINT ****. 2011 *** USER FATAL MESSAGE 2011, NO PROPERTY CARD FOR ELEMENT TYPE ****. 2012 *** USER FATAL MESSAGE 2012, GRID POINT **** SAME AS SCALAR POINT. Identification numbers of grid and scalar points must be unique. 2013 *** USER WARNING MESSAGE 2013, NO STRUCTURAL ELEMENTS EXIST. Model checked for structural elements. 2014 *** SYSTEM FATAL MESSAGE 2014, LOGIC ERROR IN ECPT CONSTRUCTION. The spill logic in the construction of the skeleton (TA1B) has failed. Problem should be referred to maintenance programming staff. A temporary fix may be available if additional storage can be provided to NASTRAN, for example, by increasing the region size (IBM 360). 2015 *** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECT INTERNAL GRID POINT ******** OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT. The message is a warning only since the degrees of freedom associated with the point may be removed by multipoint constraints or in other ways. The internal identification number is formed by assigning to each grid point and scalar point one of the integers 1, 2, --- according to its resequenced position. It may be determined from data block EQEXIN via a DMAP TABPT instruction. 2016 *** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS ******** (1) SECONDS. PROBLEM SIZE IS ********, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF ********. 2016 *** USER FATAL MESSAGE 2016, NO MATERIAL PROPERTIES EXIST. (2) 2017 *** USER FATAL MESSAGE 2017, MATS1 CARD REFERENCES UNDEFINED MAT1 **** CARD. Check that all MATS1 cards reference MAT1 cards that exist in the Bulk Data Deck. 2018 *** USER FATAL MESSAGE 2018, MATS2 CARD REFERENCES UNDEFINED MAT2 **** CARD. Check that all MATS2 cards reference MAT2 cards that exist in the Bulk Data Deck. 2019 *** USER FATAL MESSAGE 2019, MATT1 CARD REFERENCES UNDEFINED MAT1 **** CARD. Check that all MATT1 cards reference MAT1 cards that exist in the Bulk Data Deck. 2020 *** USER FATAL MESSAGE 2020, MATT2 CARD REFERENCES UNDEFINED MAT2 **** CARD. Check that all MATT2 cards reference MAT2 cards that exist in the Bulk Data Deck. 2021 *** SYSTEM FATAL MESSAGE 2021, BAD GMMAT CALLING SEQUENCE. The calling sequence of the subroutine which called either subroutine GMMATD or GMMATS defined a nonconformable matrix product. GMMATD and GMMATS examine the transpose flags in combination with the orders of the matrices to make sure that a conformable matrix product is defined by the input data. This test clearly is made for purposes of calling routine checkout only. No tests are made, nor can they be made, to ensure that the calling routine has provided sufficient storage for arrays. 2022 *** SYSTEM FATAL MESSAGE 2022, SMA-B SCALAR POINT INSERTION LOGIC ERROR. Probable error in creating the ECPT data block in module TA1. Use the TABPT module to print ECPT. 2023 *** SYSTEM FATAL MESSAGE 2023, DETCK UNABLE TO FIND PIVOT POINT **** IN GPCT. Probable error in creating the ECPT data block in module TA1. Use the TABPT module to print ECPT. 2024 *** USER FATAL MESSAGE 2024, OPERATION CODE ******** NOT DEFINED FOR MODULE PARAM. The use of V,N,SUB rather than C,N,SUB can cause this. 2025 *** USER FATAL MESSAGE 2025, UNDEFINED COORDINATE SYSTEM The coordinate system identification number transmitted via ECPT(1) could not be found in the CSTM array. Check coordinate system numbers used on bulk data cards against those defined on CORD1C, CORD1R, etc., bulk data cards to insure that there are no undefined coordinate systems. 2026 *** USER FATAL MESSAGE 2026, ELEMENT **** GEOMETRY YIELDS UNREASONABLE MATRIX. Referenced element geometry and/or properties yields a numerical result which causes an element stiffness or mass matrix to be undefined. Possible causes include, but are not limited to, (1) the length of a rod or bar is zero because the end points have the same coordinates, (2) the sides of a triangle or quadrilateral are collinear which leads to a zero cross product in defining an element coordinate system, or (3) the bar orientation vector is parallel to the bar axis. Check GRID bulk data cards defining element end points for bad data. 2027 *** USER FATAL MESSAGE 2027, ELEMENT **** HAS INTERIOR ANGLE GREATER THAN 180 DEG. AT GRID POINT ****. SHEAR or TWIST panel element with the referenced element number has been defined with the four grid points out of the proper cyclical order. See bulk data card definitions for CSHEAR and CTWIST cards. 2028 *** SYSTEM FATAL MESSAGE 2028, SMA3A ERROR NO. ****. Internal logic error in subroutine SMA3A of module SMA3. Possible error in generation of the GEI data block. Use the TABPT module to print GEI. 2029 *** USER FATAL MESSAGE 2029, UNDEFINED TEMPERATURE SET ****. The referenced temperature set had no default temperature defined. Define a temperature or default temperature for each grid point in the model. 2030 *** SYSTEM FATAL MESSAGE 2030, BAD GPTT. The format of the GPTT data block is incorrect. Use the TABPT module to print the GPTT data block. 2031 *** USER FATAL MESSAGE 2031, ELEMENT **** UNACCEPTABLE GEOMETRY. 2032 *** USER FATAL MESSAGE 2032, ELEMENT **** UNACCEPTABLE GEOMETRY. 2033 *** USER FATAL MESSAGE 2033, SINGULAR H-MATRIX FOR ELEMENT ****. 2034 *** SYSTEM FATAL MESSAGE 2034, ELEMENT **** SIL'S DO NOT MATCH PIVOT. Possible error in generation of the ECPT data block. Use the TABPT module to print ECPT. 2035 *** USER FATAL MESSAGE 2035, QUADRILATERAL **** INTERIOR ANGLE GREATER THAN 180 DEG. 2036 *** USER FATAL MESSAGE 2036, SINGULAR MATRIX FOR ELEMENT ****. 2037 *** USER FATAL MESSAGE 2037, BAD ELEMENT **** GEOMETRY. 2038 *** SYSTEM FATAL MESSAGE 2038, SINGULAR MATRIX FOR ELEMENT ****. 2039 *** USER FATAL MESSAGE 2039, ZERO SLANT LENGTH FOR HARMONIC **** OF CCONEAX ****. 2040 *** USER FATAL MESSAGE 2040, SINGULAR MATRIX FOR ELEMENT ****. 2041 *** USER FATAL MESSAGE 2041, A MATT1,MATT2,MATT3 OR MATS1 CARD REFERENCES TABLE NUMBER **** WHICH IS NOT DEFINED ON A TABLEM1, TABLEM2, TABLEM3, TABLEM4 OR TABLES1 CARD. Ensure that all table identification numbers on MATT1, MATT2, MATT3, or MATS1 cards reference tables which exist in the Bulk Data Deck. 2042 *** USER FATAL MESSAGE 2042, MISSING MATERIAL TABLE **** FOR ELEMENT ****. The referenced material table identification number is missing. Check to see that all element property bulk data cards (for example, PBAR, PROD) reference material card identification numbers for material property cards that exist in the Bulk Data Deck. 2043 *** USER WARNING MESSAGE 2043, OFP HAS INSUFFICIENT CORE FOR ONE GINO (1) BUFFER **** OFP NOT EXECUTED. 2043 *** USER FATAL MESSAGE 2043, MISSING MATERIAL TABLE ********. (2) 2044 *** USER FATAL MESSAGE 2044, UNDEFINED TEMPERATURE SET ****. The referenced temperature set was selected in the Case Control Deck but not defined in the Bulk Data Deck. 2045 *** USER FATAL MESSAGE 2045, TEMPERATURE UNDEFINED AT GRID POINT WITH INTERNAL INDEX ****. Temperatures must be defined at all grid points in a selected temperature set. The grid point whose internal index was printed had no temperature defined and a default temperature was not supplied for the selected temperature set. 2046 *** USER FATAL MESSAGE 2046, UNDEFINED ELEMENT DEFORMATION SET ****. 2047 *** USER FATAL MESSAGE 2047, UNDEFINED MULTIPOINT CONSTRAINT SET ****. An MPC set selected in the Case Control Deck could not be found on either an MPC or MPCADD card or a set referenced on a MPCADD card could not be found on an MPC card. 2048 *** USER FATAL MESSAGE 2048, UNDEFINED GRID POINT **** IN MULTI-POINT CONSTRAINT SET ****. 2049 *** USER FATAL MESSAGE 2049, UNDEFINED GRID POINT **** HAS AN OMITTED COORDINATE. An OMIT or OMIT1 card references a grid point which has not been defined. 2050 *** USER FATAL MESSAGE 2050, UNDEFINED GRID POINT **** HAS A SUPPORT COORDINATE. A SUPORT card references a grid point which has not been defined. 2051 *** USER FATAL MESSAGE 2051, UNDEFINED GRID POINT **** IN SINGLE-POINT CONSTRAINT SET ****. An SPC1 card in the selected SPC set references a grid point which has not been defined. 2052 *** USER FATAL MESSAGE 2052, UNDEFINED GRID POINT **** IN SINGLE-POINT CONSTRAINT SET ****. An SPC card in the selected SPC set references a grid point which has not been defined. 2053 *** USER FATAL MESSAGE 2053, UNDEFINED SINGLE-POINT CONSTRAINT SET ****. An SPC set selected in the Case Control Deck could not be found on either an SPCADD, SPC, or SPC1 card, or a set referenced on an SPCADD card could not be found on either an SPC or SPC1 card. 2054 *** USER FATAL MESSAGE 2054, SUPER ELEMENT **** REFERENCES UNDEFINED SIMPLE ELEMENT ****. 2055 *** SYSTEM WARNING MESSAGE 2055. 2056 *** USER FATAL MESSAGE 2056, UNDEFINED SUPER ELEMENT **** PROPERTIES. 2057 *** USER FATAL MESSAGE 2057, IRRATIONAL SUPER ELEMENT **** TOPOLOGY. 2058 *** USER WARNING MESSAGE 2058, ELEMENT ******** CONTRIBUTES TO THE DAMPING MATRIX WHICH IS PURGED. IT WILL BE IGNORED. 2059 *** USER FATAL MESSAGE 2059, UNDEFINED GRID POINT **** ON SE--BFE FOR SUPER ELEMENT ****. 2060 *** USER FATAL MESSAGE 2060, UNDEFINED GRID POINT **** ON QDSEP CARD FOR SUPER ELEMENT ****. 2061 *** USER FATAL MESSAGE 2061, UNDEFINED GRID POINT **** ON GENERAL ELEMENT ****. 2062 *** USER FATAL MESSAGE 2062, UNDEFINED SUPER ELEMENT PROPERTY **** FOR SUPER ELEMENT ****. 2063 *** SYSTEM FATAL MESSAGE 2063, TA1C LOGIC ERROR. GENERAL ELEMENT DATA COULD NOT BE FOUND IN THE ECT DATA BLOCK WHEN TRAILER LIST INDICATED IT WAS PRESENT. REFER PROBLEM TO MAINTENANCE PROGRAMMING STAFF. 2064 *** USER FATAL MESSAGE 2064, UNDEFINED EXTRA POINT **** REFERENCED ON SEQEP CARD. 2065 *** USER FATAL MESSAGE 2065, UNDEFINED GRID POINT **** ON DMIG CARD. 2066 *** USER FATAL MESSAGE 2066, UNDEFINED GRID POINT **** ON RLOAD- OR TLOAD- CARD. 2067 *** USER FATAL MESSAGE 2067, UNDEFINED GRID POINT ******** IN NONLINEAR (NOLINi) LOAD SET ********. 2068 *** USER FATAL MESSAGE 2068, UNDEFINED GRID POINT **** IN TRANSFER FUNCTION SET ****. 2069 *** USER FATAL MESSAGE 2069, UNDEFINED GRID POINT **** IN TRANSIENT INITIAL CONDITION SET ****. 2070 *** USER FATAL MESSAGE 2070, REQUESTED DMIG MATRIX **** IS UNDEFINED. 2071 *** USER FATAL MESSAGE 2071, DYNAMIC LOAD SET ******** REFERENCES UNDEFINED ******** SET ********. This message is issued when DAREA, DELAY, or DPHASE set IDs are referenced on a TLOADi or RLOADi card but are not defined. 2072 *** SYSTEM WARNING MESSAGE 2072, CARD TYPE *** NOT FOUND ON DATA BLOCK. This warning message is issued when the trailer bit for the card type is set to 1 but the corresponding record is not on the data block. 2074 *** USER FATAL MESSAGE 2074, UNDEFINED TRANSFER FUNCTION SET ****. 2075 *** USER FATAL MESSAGE 2075, IMPROPER KEYWORD ******** FOR APPROACH PARAMETER IN DMAP INSTRUCTION. 2076 *** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED. 2077 *** USER WARNING MESSAGE 2077, SDR2 OUTPUT DATA BLOCK NO. 2 IS PURGED. 2078 *** USER WARNING MESSAGE 2078, SDR2 OUTPUT DATA BLOCK NO. 3 IS PURGED. 2079 *** USER WARNING MESSAGE 2079, SDR2 FINDS THE -EDT-, -EST-, OR -GPTT- PURGED OR INADEQUATE AND IS THUS NOT PROCESSING ANY REQUESTS FOR STRESSES OR FORCES. 2080 *** USER WARNING MESSAGE 2080, SDR2 OUTPUT DATA BLOCK NO. 6 IS PURGED. 2081 *** USER FATAL MESSAGE 2081, DIFFERENTIAL STIFFNESS CAPABILITY NOT DEFINED FOR ANY OF THE ELEMENT TYPES IN THE PROBLEM. Differential stiffness is not defined for all structural elements. Only the following elements are defined for differential stiffness calculations: ROD, TUBE, SHEAR (but not TWIST) panels, triangular and quadrilateral membranes (TRMEM, TRIA2, QDMEM, QUAD2), and BAR. The combination two-dimensional elements, TRIA1 and QUAD1, are defined only if their membrane thickness is nonzero. You have not included any of these elements in his model and therefore a null differential stiffness matrix was generated. 2083 *** USER FATAL MESSAGE 2083, NULL DISPLACEMENT VECTOR. The displacement vector for the linear solution part of a static analysis with differential stiffness problem, or the incremental displacement vector in a piecewise linear analysis rigid format problem, is the zero vector. Check loading conditions. 2084 *** SYSTEM FATAL MESSAGE 2084, DSMG2 LOGIC ERROR ****. Incompatible input and output pairs in the DMAP calling sequence to module DSMG2. See the module description for DSMG2 in the Programmer's Manual. 2085 *** USER INFORMATION MESSAGE 2085, **** SPILL, NPVT ****. During processing of the ECPT data block in module ****, so many elements were attached to the referenced pivot point (NPVT) that module spill logic was initiated. 2086 *** USER INFORMATION 2086, SMA2 SPILL, NPVT ****. See explanation for Message 2085. 2087 *** SYSTEM FATAL MESSAGE 2087, ECPT CONTAINS BAD DATA. Use the TABPT module to print the ECPT data block. 2088 *** USER FATAL MESSAGE 2088, DUPLICATE TABLE ID ****. All tables must have unique numbers. Check for uniqueness. 2089 *** USER FATAL MESSAGE 2089, TABLE **** UNDEFINED. The table number in the list of table numbers input to subroutine PRETAB via argument 7 was not found after reading the DIT data block. Check list of tables in the Bulk Data Deck. 2090 *** SYSTEM FATAL MESSAGE 2090, TABLE DICTIONARY ENTRY **** MISSING. Logic error in subroutine PRETAB, or open core used by PRETAB has been destroyed. 2091 *** SYSTEM FATAL MESSAGE 2091, PLA3, BAD ESTNL EL ID ****. ESTNL data block is not in expected format. Use TABPT module to print the ESTNL data block. 2092 *** SYSTEM WARNING MESSAGE 2092, SDR2 FINDS A SYMMETRY SEQUENCE LENGTH = **** AND AN INSUFFICIENT NUMBER OF VECTORS AVAILABLE = **** WHILE ATTEMPTING TO COMPUTE STRESSES AND FORCES. ALL FURTHER STRESS AND FORCE COMPUTATION TERMINATED. 2093 *** USER FATAL MESSAGE 2093, NOLIN CARD FROM NOLIN SET **** REFERENCES GRID POINT **** UD SET. 2094 *** USER WARNING MESSAGE 2094, SUBROUTINE TABFMT, KEYNAME ******** NOT IN LIST OF AVAILABLE KEYNAMES. *** LIST OF RECOGNIZED KEYNAMES FOLLOWS. The TABPRT module can only be used to print certain table data blocks. For table data blocks not appearing in the list, use the TABPT Module. 2095 *** USER WARNING MESSAGE 2095, SUBROUTINE TABFMT, PURGED INPUT. 2096 *** USER WARNING MESSAGE 2096, SUBROUTINE TABFMT, EOF ENCOUNTERED. 2097 *** USER WARNING MESSAGE 2097, SUBROUTINE TABFMT, EOR ENCOUNTERED. 2098 *** USER WARNING MESSAGE 2098, SUBROUTINE TABFMT, INSUFFICIENT CORE. 2099 *** USER WARNING MESSAGE 2099, SUBROUTINE TABFMT, KF ********. 2100 *** USER FATAL MESSAGE 2100, TEMPERATURE SPECIFIED AS ******** AND ******** FOR GRID ********. Conflicting data has been supplied to specify the temperatures at a grid point. 2101A *** USER FATAL MESSAGE 2101A, GRID POINT **** COMPONENT *** ILLEGALLY DEFINED IN SETS ****. The above grid point and component has been defined in each of the above dependent subsets. A point may belong to at most one dependent subset. 2101B *** USER FATAL MESSAGE 21O1B, SCALAR POINT **** ILLEGALLY DEFINED IN SETS ****. 2102 *** USER WARNING MESSAGE 2102, LEFT-HAND MATRIX ROW POSITION **** OUT OF RANGE - IGNORED. A term in the A matrix whose row position is larger than the stated dimension was detected and ignored. 2103 *** SYSTEM FATAL MESSAGE 2103, SUBROUTINE MAT WAS CALLED WITH INFLAG=2, THE SINE OF ANGLE X, MATERIAL ORIENTATION ANGLE, NONZERO, BUT SIN(X)**2+COS(X)**2 DIFFERED FROM 1 IN ABSOLUTE VALUE BY MORE THAN .0001. A check is made in MAT to insure that ABS ( SIN ( THETA ) **2 + COS ( THETA ) **2 - 1.0O ) .LE. .0001 when INFLAG = 2. The calling routine did not set SINTH and COSTH cells in /MATIN/ properly. 2104 *** USER FATAL MESSAGE 2104, UNDEFINED COORDINATE SYSTEM ****. See the explanation for Message 2025. 2105 *** USER FATAL MESSAGE 2105, PLOAD2 CARD FROM LOAD SET **** REFERENCES MISSING OR NON-2-D ELEMENT ****. PLOAD2 cards must reference two-dimensional elements. 2106 *** USER FATAL MESSAGE 2106, LOAD CARD DEFINES NONUNIQUE LOAD SET ****. 2107 *** USER FATAL MESSAGE 2107, EIG- CARD FROM SET **** REFERENCES DEPENDENT COORDINATE OR GRID POINT ****. When the point option is used on an EIGB, EIGC, or EIGR card, the referenced point and component must be in the analysis set for use in normalization. 2109 *** USER FATAL MESSAGE 2109, NO GRID, SCALAR OR EXTRA POINTS DEFINED. 2110 *** USER WARNING MESSAGE 2110, INSUFFICIENT CORE TO HOLD CONTENTS OF GINO FILE *** FURTHER PROCESSING OF THIS DATA BLOCK IS ABANDONED. 2111 *** USER WARNING MESSAGE 2111, BAR **** COUPLED BENDING INERTIA SET TO 0.0 IN DIFFERENTIAL STIFFNESS. The coupled bending inertia term on a PBAR card, if nonzero, is set to zero in the differential stiffness routine for the BAR. 2112 *** SYSTEM FATAL MESSAGE 2112, UNDEFINED TABLE ****. The referenced table number could not be found in core. 2113 *** USER FATAL MESSAGE 2113, MATERIAL ****, A NON-MAT1 TYPE, IS NOT ALLOWED TO BE STRESS-DEPENDENT. Only MAT1 material cards may be present in a piecewise linear analysis problem. 2114 *** USER FATAL MESSAGE 2114, MATT3 CARD REFERENCES UNDEFINED MAT3 **** CARD. Check that all MATT3 cards reference MAT3 cards that exist in the Bulk Data Deck. This can also happen if ID noted by **** could not be found on MAT1 card (see Message 2042). 2115 *** USER FATAL MESSAGE 2115, TABLE **** (TYPE ****) ILLEGAL WITH STRESS- DEPENDENT MATERIAL. Only TABLES1 cards may be used to define stress-strain curves for use in piecewise linear analysis. 2116 *** SYSTEM FATAL MESSAGE 2116, MATID **** TABLEID ****. The referenced material table identification number could not be found among the set of all MAT1 cards in core. 2117 *** USER FATAL MESSAGE 2117, TEMPERATURE DEPENDENT MATERIAL PROPERTIES ARE NOT PERMISSIBLE IN A PIECEWISE LINEAR ANALYSIS PROBLEM. TEMPERATURE SET = ****. Redefine your problem without temperature dependent material properties. 2118 *** USER INFORMATION MESSAGE 2118, SUBROUTINE GP4PRT, - DIAG 21 SET-DOF VS. DISP SETS FOLLOWS. 2119 *** USER INFORMATION MESSAGE 2119, SUBROUTINE GP4PRT, - DIAG 22 SET-DISP SETS VS. DOF FOLLOWS. 2120 *** USER FATAL MESSAGE 2120, MODULE VEC - BOTH SUBSET BITS ARE NON-ZERO. I = ********. 2121 *** USER FATAL MESSAGE 2121, MODULE VEC - BOTH SUBSET BITS ARE ZERO. I = ********. 2122 *** USER FATAL MESSAGE 2122, MODULE VEC - SET X BIT IS ZERO BUT SUBSET XO BIT IS NOT. I = ********. 2123 *** USER FATAL MESSAGE 2123, MODULE VEC - SET X BIT IS ZERO BUT SUBSET X1 BIT IS NOT. I= ********. 2124 *** USER WARNING MESSAGE 2124, MODULE VEC - NR=0, OUTPUT WILL BE PURGED. 2125 *** USER WARNING MESSAGE 2125, MODULE VEC - NZ=0, OUTPUT WILL BE PURGED. 2126 *** USER FATAL MESSAGE 2126, UNDEFINED MATERIAL FOR ELEMENT ********. 2127 *** SYSTEM FATAL MESSAGE 2127, PLA2 INPUT DATA BLOCK NO. **** IS PURGED. Data blocks DELTAUGV and DELTAPG cannot be purged. See module description for PLA2 in Section 4 of the Programmer's Manual. 2128 *** SYSTEM FATAL MESSAGE 2128, PLA2 OUTPUT DATA BLOCK NO. **** IS PURGED. Data blocks UGV1 and PGV1 cannot be purged. See module description for PLA2 in Section 4 of the Programmer's Manual. 2129 *** SYSTEM FATAL MESSAGE 2129, PLA2, ZERO VECTOR ON APPENDED DATA BLOCK NO. ****. Zero displacement vector found on UGV1 data block output from PLA2. Possible system failure. 2130 *** USER FATAL MESSAGE 2130, ZERO INCREMENTAL DISPLACEMENT VECTOR NOT ADMISSIBLE AS INPUT TO MODULE PLA2. See discussion of the Piecewise Linear Analysis rigid format (DISP Rigid Format 6) in Volume II, Section 2.6. 2131 *** USER FATAL MESSAGE 2131, NON-SCALAR ELEMENT *** REFERENCES A SCALAR POINT. An element which must be attached to a geometric grid point has been attached to a scalar point. No geometry data can be inferred. 2132 *** USER FATAL MESSAGE 2132, NON-ZERO SINGLE POINT CONSTRAINT VALUE SPECIFIED BUT DATA BLOCK YS IS PURGED. Many rigid formats do not support constrained displacements (especially dynamic solutions). An attempt to specify a constrained displacement in these cases results in this message. 2133 *** USER FATAL MESSAGE 2133, INITIAL CONDITION IN SET **** SPECIFIED FOR POINT NOT IN ANALYSIS SET. Initial conditions can only be specified for analysis set points. Therefore the point/component mentioned on TIC cards must belong to the D or H sets. 2134 *** USER FATAL MESSAGE 2134, LOAD SET *** DEFINED FOR BOTH GRAVITY AND NON-GRAVITY LOADS. The same load set identification number cannot appear on both a GRAV card and another loading card such as FORCE or MOMENT. To apply both a gravity load and a concentrated load simultaneously, the LOAD card must be used in the Bulk Data Deck. 2135 *** USER FATAL MESSAGE 2135, DLOAD CARD *** HAS A DUPLICATE SET ID FOR SET ID ***. The Li set IDs on a DLOAD card are not unique. See the DLOAD card description in Section 2.4. 2136 *** USER FATAL MESSAGE 2136, SET ID *** HAS BEEN DUPLICATED ON A DLOAD, RLOAD1,2 OR TLOAD1,2 CARD. All dynamic load set IDs must be unique. 2137 *** USER FATAL MESSAGE 2137, PROGRAM RESTRICTION FOR MODULE SSG1 - ONLY 360 LOAD SET ID-S ALLOWED. DATA CONTAINS **** LOAD SET ID-S. Reduce the number of load set IDs. 2138 *** USER FATAL MESSAGE 2138, ELEMENT IDENTIFICATION NUMBER **** IS TOO LARGE. Element identification numbers (on connection cards) must be less than 16,777,215. 2139 *** USER FATAL MESSAGE 2139, ELEMENT **** IN DEFORM SET **** IS UNDEFINED. A selected element deformation set includes an element twice, includes a non-existent element, or includes a non-one-dimensional element. 2140 *** USER FATAL MESSAGE 2140, GRID POINT OR SCALAR POINT ID *** IS TOO LARGE. Program restriction on the size of integer numbers. A card defining a grid point or scalar point has a number larger than 2,000,000. 2141 *** USER FATAL MESSAGE 2141, MODULE VEC - EOF ENCOUNTERED WHILE READING GINO FILE **** DATA BLOCK ********. 2142 *** USER FATAL MESSAGE 2142, INSUFFICIENT CORE FOR MODULE VEC. AVAILABLE CORE = ******** WORDS. ADDITIONAL CORE NEEDED = ******** WORDS. 2143 *** USER FATAL MESSAGE 2143, MODULE VEC UNABLE TO IDENTIFY SET OR SUBSET DESCRIPTOR ********. 2145 *** USER FATAL MESSAGE 2145, ******** FATAL MESSAGES HAVE BEEN GENERATED IN SUBROUTINE VEC. ONLY THE FIRST **** HAVE BEEN PRINTED. 2146 *** USER FATAL MESSAGE 2146, BOTH OF THE SECOND AND THIRD VEC PARAMETERS REQUEST COMPLEMENT. 2147 *** SYSTEM FATAL MESSAGE 2147, ILLEGAL ELEMENT TYPE = ******** ENCOUNTERED BY DSMG1 MODULE. 2149 *** SYSTEM FATAL MESSAGE 2149, SUBROUTINE ****. FIRST ELEMENT OF A COLUMN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT. 2150 *** USER FATAL MESSAGE 2150, ILLEGAL VALUE FOR FOURTH PARAMETER = ********. 2151 *** USER WARNING MESSAGE 2151, -PLAARY- ARRAY IS SMALLER THAN MAXIMUM NUMBER OF ELEMENT TYPES. 2152 *** USER FATAL MESSAGE 2152, GRID POINT ******** COMPONENT ** DUPLICATELY DEFINED IN THE **** SET. 2153 *** USER FATAL MESSAGE 2153, SCALAR POINT ******** DUPLICATELY DEFINED IN THE **** SET. 2154 *** USER WARNING MESSAGE 2154, ZERO AREA OR ILLEGAL CONNECTION FOR HBDY ELEMENT NUMBER ********. 2155 *** USER WARNING MESSAGE 2155, MAT4 AND MAT5 MATERIAL DATA CARDS HAVE SAME ID = ************** MAT4 DATA WILL BE SUPPLIED WHEN CALLED FOR THIS ID. 2156 *** SYSTEM FATAL MESSAGE 2156, ILLEGAL INFLAG = ************** RECEIVED BY HMAT. 2157 *** USER FATAL MESSAGE 2157, MATERIAL ID = ************** DOES NOT APPEAR ON ANY MAT4 OR MAT5 MATERIAL DATA CARD. 2158 *** SYSTEM WARNING MESSAGE 2158, A TRAPRG ELEMENT = ************** DOES NOT HAVE SIDE 1-2 PARALLEL TO SIDE 3-4. 2159 *** USER FATAL MESSAGE 2159, TRIARG OR TRAPRG ELEMENT = ************** POSSESSES ILLEGAL GEOMETRY. 2160 *** USER FATAL MESSAGE 2160, BAD GEOMETRY ON ZERO COEFFICIENT FOR SLOT ELEMENT NUMBER **************. 2161 *** SYSTEM WARNING MESSAGE 2161, PARTITION FILE, **** IS OF SIZE ********** ROWS BY ********** COLS. PARTITIONING VECTORS INDICATE THAT THIS PARTITION SHOULD BE OF SIZE ********** ROWS BY ********** COLUMNS FOR A SUCCESSFUL MERGE. 2162 *** SYSTEM WARNING MESSAGE 2162, THE FORM PARAMETER AS GIVEN TO THE MERGE MODULE IS INCONSISTENT WITH THE SIZE OF THE MERGED MATRIX, HOWEVER IT HAS BEEN USED. FORM = **********, SIZE = ********** ROWS BY ********** COLUMNS. 2163 *** SYSTEM WARNING MESSAGE 2163, REQUESTED VALUE OF **** ******** *** USED BY ********. LOGICAL CHOICE IS ********. 2165 *** USER FATAL MESSAGE 2165, ILLEGAL GEOMETRY OR ZERO COEFFICIENT FOR SLOT ELEMENT NUMBER **************. 2166 *** SYSTEM WARNING MESSAGE 2166, MATRIX TO BE PARTITIONED IS OF SIZE ********** ROWS BY ********** COLUMNS. ROW PARTITION SIZE IS ********** COLUMN PARTITION SIZE IS ********** (INCOMPATIBLE). 2168 *** SYSTEM WARNING MESSAGE 2168, THE FORM PARAMETER AS GIVEN TO THE PARTITIONING MODULE FOR SUB-PARTITION ******** IS INCONSISTENT WITH ITS SIZE. FORM = **********, SIZE = ********** ROWS BY ********** COLUMNS. 2170 *** SYSTEM FATAL MESSAGE 2170, BOTH THE ROW AND COLUMN PARTITIONING VECTORS ARE PURGED AND ONLY ONE MAY BE. 2171 *** SYSTEM WARNING MESSAGE 2171, SYM FLAG INDICATES TO THE PARTITION OR MERGE MODULE THAT A SYMMETRIC MATRIX IS TO BE OUTPUT. THE PARTITIONING VECTORS ******** HOWEVER DO NOT CONTAIN AN IDENTICAL NUMBER OF ZEROS AND NON-ZEROS. 2172 *** SYSTEM WARNING MESSAGE 2172, ROW AND COLUMN PARTITIONING VECTORS DO NOT HAVE IDENTICAL ORDERING OF ZERO AND NON-ZERO ELEMENTS, AND SYM FLAG INDICATES THAT A SYMMETRIC PARTITION OR MERGE IS TO BE PERFORMED. 2173 *** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE **** CONTAINS ********** COLUMNS. ONLY THE FIRST COLUMN IS BEING USED. 2174 *** SYSTEM WARNING MESSAGE 2174, PARTITIONING VECTOR ON FILE **** IS NOT REAL-SINGLE OR REAL-DOUBLE PRECISION. 2175 *** SYSTEM FATAL MESSAGE 2175, THE RON POSITION OF AN ELEMENT OF A COLUMN ON FILE **** IS GREATER THAN NUMBER OF ROWS SPECIFIED BY TRAILER. 2176 *** SYSTEM FATAL MESSAGE 2176, FILE **** EXISTS BUT IS EMPTY. 2177 *** USER INFORMATION MESSAGE 2177, SPILL WILL OCCUR IN UNSYMMETRIC DECOMPOSITION. ADDITIONAL WORDS NEEDED TO STAY IN CORE. 2178 *** SYSTEM FATAL MESSAGE 2178, GINO REFERENCE NAMES, IMPROPER FOR SUBROUTINE FILSWI. 2179 *** SYSTEM FATAL MESSAGE 2179, ERROR DETECTED IN FUNCTION FORFIL ****, **** NOT IN FIST. 2180 *** USER WARNING MESSAGE 2180, SYMMETRIC DECOMPOSITION OF A MATRIX WHOSE FORM IS SQUARE (BUT NOT SYMMETRIC) WILL BE ATTEMPTED. 2182 *** USER WARNING MESSAGE 2182, SUBROUTINE ******** IS DUMMY. ONLY ONE OF THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK. 2183 *** USER WARNING MESSAGE 2183, SYMMETRIC DECOMPOSITION OF A MATRIX WHOSE FORM IS SQUARE (BUT NOT SYMMETRIC) WILL BE ATTEMPTED. 2184 *** SYSTEM WARNING MESSAGE 2184, STRESS OR FORCE REQUESTS FOR ELEMENT TYPE = ************** WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT. Stress and force requests for fluid, mass, damping, PLOTEL, and heat boundary elements are automatically ignored. 2187 *** USER FATAL MESSAGE 2187, INSUFFICIENT WORKING CORE TO HOLD FORTRAN LOGICAL RECORD. LENGTH OF WORKING CORE = **********. LENGTH OF FORTRAN LOGICAL RECORD = **********. 2190 *** SYSTEM FATAL MESSAGE 2190, ILLEGAL VALUE FOR KEY = **********. EXPECTED VALUE = **********. 2192 *** USER FATAL MESSAGE 2192, UNDEFINED GRID POINT ******** IN RIGD* ELEMENT ********. 2193 *** USER FATAL MESSAGE 2193, A REDUNDANT SET OF RIGID BODY MODES WAS SPECIFIED FOR THE GENERAL ELEMENT. Only a non-redundant list of rigid body modes is allowed to appear in the ud set when the S matrix is to be internally calculated in subroutine TA1CA. 2194 *** USER FATAL MESSAGE 2194, A MATRIX D IS SINGULAR IN SUBROUTINE TA1CA. While attempting to calculate the [S] matrix for a general element in TA1CA, it was discovered that the matrix Dd which relates {ub} to {ud} was singular and could not be inverted. 2195 *** USER WARNING MESSAGE 2195, ILLEGAL VALUE FOR P4 = ******. 2196 *** USER WARNING MESSAGE 2196, DUMMY SUBROUTINE TIMTS3. DUMMY SUBROUTINE TIMTS4. DUMMY SUBROUTINE TIMTS5. 2197 *** SYSTEM FATAL MESSAGE 2197, ABORT CALLED DURING TIME TEST OF ********. 2198 *** SYSTEM FATAL MESSAGE 2198, INPUT DATA BLOCK, ******** HAS BEEN PURGED 2199 *** SYSTEM FATAL MESSAGE 2199, SUMMARY/ ONE OR MORE OF THE ABOVE FATAL ERRORS WAS ENCOUNTERED IN SUBROUTINE **********. 2200 *** USER FATAL MESSAGE 2200, INCONSISTENT RIGID BODY SYSTEM. 2201 *** USER FATAL MESSAGE 2201, ELEMENT TYPE **** NO LONGER SUPPORTED BY SMA1 MODULE. USE EMG AND EMA MODULES FOR ELEMENT MATRIX GENERATION. 2202 *** USER FATAL MESSAGE 2202, ELEMENT TYPE **** NO LONGER SUPPORTED BY SMA2 MODULE. USE EMG AND EMA MODULES FOR ELEMENT MATRIX GENERATION. 2203 *** SYSTEM FATAL MESSAGE 2203, NULL COLUMN FOUND IN MI FILE DURING ASSEMBLY OF **** MATRIX BY GKAM MODULE. 2204 *** SYSTEM FATAL MESSAGE 2204, UNPACK FOUND NULL COLUMN IN PHIA FILE IN GKAM MODULE. 2251 *** USER WARNING MESSAGE 2251, PHYSICALLY UNREALISTIC VALUE FOR KU ON MAT1 CARD ******** VALUE = *************. 2252 *** USER WARNING MESSAGE 2252, SINGULAR MATRIX OCCURRED WHILE PERFORMING SURFACE SPLINE INTERPOLATION IN SUBROUTINE CURVIT. OUTPUT WILL NOT APPEAR FOR THE ****-TH GRID ID WRT MATERIAL COORDINATE SYSTEM ID ****. Matrix developed by SSPLIN could not be inverted. Possibly all the points lie on a straight line or not enough points are included. 2257 *** USER WARNING MESSAGE 2257, SET *** REFERENCED ON SPLINE CARD **** IS EMPTY. While processing the SET1 or SET2 card referenced on the SPLINE1 card, no included grid points were found. If SET1 was used, either no points were included or they were all scalar points. If SET2 was used, the volume of space referenced did not include any structural grid points. This may occur if a tapered element is extended too far. The spline is omitted from the problem and processing continues. 2258 *** USER FATAL MESSAGE 2258, SET **** REFERENCED ON SPLINE CARD **** NOT FOUND OR IT IS EMPTY. The necessary SET1 or SET2 card was not found or was empty. Include the proper set card or, if it is already included, make sure that the set is not empty. (See description under User Warning Message 2257 shown above.) 2259 *** SYSTEM FATAL MESSAGE 2259, POINT ASSIGNED TO BOX **** FOR CAERO* **** NOT IN EQAERO. No internal k point could be found for external box. If box number is okay, module APD is in error; if box number is bad, module GI is in error. 2260 *** USER FATAL MESSAGE 2260, SINGULAR MATRIX DEVELOPED WHILE PROCESSING SPLINE ****. Matrix developed by SSPLIN or LSPLIN (depending on type of spline) could not be inverted; possibly for the Surface Spline all points lie on a straight line, or not enough points are included. 2261 *** USER FATAL MESSAGE 2261, PLANE OF LINEAR SPLINE **** PERPENDICULAR TO PLANE OF AERO ELEMENT ****. Y-axis of linear spline was perpendicular to connected element and could not be projected onto element. 2262 *** USER FATAL MESSAGE 2262, SPLINE **** INCLUDES AERO BOX INCLUDED ON AN EARLIER SPLINE. Two splines are attached to the same box. Splines may be connected to the same structural grid point but not to the same aerodynamic grid point. This type of error checking will stop with one error, so check this spline and subsequent splines (sorted) for overlaps before resubmitting. 2263 *** USER FATAL MESSAGE 2263, SPLINE3 **** FOR CAERO* HAS ILLEGAL COMPONENT. Refer to the description of the SPLINE3 card in Section 2.4 for the correct value for the component of motion to be interpolated. 2264 *** SYSTEM FATAL MESSAGE 2264, NUMBER OF ROWS COMPUTED (****) WAS GREATER THAN SIZE REQUESTED FOR OUTPUT MATRIX (****). Module ADD determines size of output matrices (j set size). Sum of number of rows added by different method totals more than maximum allowed. 2265 *** USER FATAL MESSAGE 2265, METHOD **** FOR AEROELASTIC MATRIX GENERATION IS NOT IMPLEMENTED. A non-implemented method for computing these matrices was input. 2266 *** USER FATAL MESSAGE 2266, ONE OR MORE OF THE FOLLOWING FLFACT SETS WERE NOT FOUND **** ****. One or more of the FLFACT IDs on the flutter data card could not be found. Include all sets mentioned. 2267 *** USER FATAL MESSAGE 2267, INTERPOLATION METHOD **** UNKNOWN. Matrix interpolation method on FLUTTER card is not implemented. 2268 *** USER FATAL MESSAGE 2268, FMETHOD SET **** NOT FOUND. FLUTTER data card for FMETHOD = **** in Case Control could not be found. 2269 *** USER FATAL MESSAGE 2269, FLUTTER METHOD **** NOT IMPLEMENTED. Flutter analysis method on FLUTTER data card is not implemented. 2269A *** USER FATAL MESSAGE 2269A, FLUTTER METHOD **** NOT IMPLEMENTED WITH B MATRIX. The KE method cannot be requested when structural damping is included. 2270 *** USER FATAL MESSAGE 2270, LINEAR INTERPOLATION WITHOUT ENOUGH INDEPENDENT MACH NUMBERS EQUAL TO DEPENDENT MACH ****. Linear interpolation is for points with the same Mach number, and less than two were found from the QHHL list which matched the requested Mach on an FLFACT list. 2271 *** USER FATAL MESSAGE 2271, INTERPOLATION MATRIX IS SINGULAR. Possibly for the surface spline, all the Mach numbers were the same, or for either method, not enough points were included. 2272 *** USER INFORMATION MESSAGE 2272, NO FLUTTER CALCULATIONS CAN BE MADE IN MODULE ADR SINCE BOV = 0.0. 2273 *** USER FATAL MESSAGE 2273, CAERO2 ******** NOT INPUT IN Z, ZY, Z SEQUENCE. The EID for z-bodies, zy-bodies, and y-bodies must be ordered in an increasing sequence following the EID of a panel on a CAERO1 card. 2274 *** USER FATAL MESSAGE 2274, ASSOCIATED BODY ******** WAS NOT FOUND WITH CAERO2 GROUP ********. Aerodynamic bodies must be assigned to an interference group. 2275 *** USER FATAL MESSAGE 2275, CAERO2 ******** HAS INCONSISTENT USE FOR THI OR THN, OR LTH2 IS REQUIRED. A conflict exists between the data on a CAERO2 card and a PAERO2 card. 2276 *** USER FATAL MESSAGE 2276, THI1 AND THN1 REQUIRED FOR CAERO2 ********. Required data on a PAERO2 card not found for the referenced CAERO2 card. 2277 *** USER FATAL MESSAGE 2277, CAERO2 BODY ******** DOES NOT HAVE ENOUGH SLENDER ELEMENTS. At least two slender body elements are required. 2278 *** USER FATAL MESSAGE 2278, PLANFORM GEOMETRY FOR CAERO3 ID ******** IS IN ERROR, CHECK SWEEP ANGLE FOR LEADING EDGE OR CONTROL SURFACE HINGE LINE. 2279 *** SYSTEM INFORMATION MESSAGE 2279, **** ITERATIONS ON LOOP, **** FOUND, **** ROOTS WANTED, **** THIS LOOP STOPPED. 2288 *** SYSTEM FATAL MESSAGE 2288, **** READ INCORRECT NUMBER WORDS (**** ****). Subroutine **** read **** words on the **** card, which is incorrect. 2289 *** USER FATAL MESSAGE 2289, **** INSUFFICIENT CORE (****). **** = MATERIAL, **** = POINTERS, **** = ELEMENTS, **** = PROPERTIES. Module OPTPR1 or OPTPR2 gives the open core available and the pointers to the start of each contiguous section of core. 2290 *** USER FATAL MESSAGE 2290, THE FOLLOWING ILLEGAL ELEMENT TYPES FOUND ON PLIMIT CARD. This message is followed by a list of element types. Processing of legal element types continues so as to discover other errors. 2291 *** USER FATAL MESSAGE 2291, PLIMIT RANGE INCORRECT FOR **** THRU **** AND **** THRU ****. Property identification numbers are repeated. The first pair is rejected and processing of the remaining ranges continues in order to discover other errors. 2292 *** USER FATAL MESSAGE 2292, INSUFFICIENT CORE FOR PLIMIT DATA, ELEMENT ****, **** WORDS SKIPPED. The element type **** being processed exceeded core by **** words. Processing of other element types continues in order to discover additional requirements. 2293 *** USER FATAL MESSAGE 2293, NO PID ENTRIES ON PLIMIT CARD (****). A PLIMIT card of element type **** had no property entries. 2294 *** USER FATAL MESSAGE 2294, DUPLICATE **** THRU **** RANGE FOR ELEMENT **** REJECTED PLIMIT. SCAN CONTINUED. Property identification numbers are repeated for element type ****. 2295 *** USER FATAL MESSAGE 2295, NO ELEMENTS EXIST FOR OPTIMIZATION. A non-null property card and its corresponding material stress limit are needed. In subroutine OPT2A stress data is also required. 2296 *** USER FATAL MESSAGE 2296, INSUFFICIENT CORE **** (****), ELEMENT ****. Subroutine **** has insufficient core when loading element type or number ****. Elements are read into core by element type (see /GPTA1/ sequence), then by sequential element number. 2297 *** SYSTEM FATAL MESSAGE 2297, INCORRECT LOGIC FOR ELEMENT TYPE ***, ELEMENT ****, (****). Subroutine (****) has sequential element search. Element type can be found in /GPTA1/. 2298 *** USER FATAL MESSAGE 2298, INSUFFICIENT CORE **** (****), PROPERTY ****. Subroutine **** (core ****) had insufficient core when loading property ****. 2299 *** SYSTEM FATAL MESSAGE 2299, INCORRECT LOGIC FOR ELEMENT TYPE ***, PROPERTY **** (****). Subroutine OPTP1B has sequential property search. A property card had two entries per card and it was unsorted. 2300 *** SYSTEM FATAL MESSAGE 2300, **** UNABLE TO LOCATE PROPERTY **** ON EPT OR IN CORE. 2301 *** SYSTEM FATAL MESSAGE 2301, OPTP1D FILE OPTIMIZATION PARAMETER INCORRECT AS **** ****. Check subroutines OPTPX and OPTP1D use of the scratch file. In OPTPR2, the corresponding stress limit(s) is zero. 2302 *** USER FATAL MESSAGE 2302, SUBROUTINE **** HAS NO PROPERTY OR ELEMENT DATA. 2303 *** USER INFORMATION MESSAGE 2303, OPTPR2 DETECTED ZERO ALPHA FOR PROPERTY ****. The stress in the element was zero. Only 100 messages per iteration may occur. 2304 *** USER INFORMATION MESSAGE 2304, OPTP2B CONVERGENCE ACHIEVED, HIGHEST VALUE IS ****. 2305 *** USER INFORMATION MESSAGE 2305, OPTPR2 DETECTED NEGATIVE ALPHA FOR ELEMENT ****. The element did not have stress data or appropriate material stress limits. The element properties were not changed. Only 100 of these messages will occur per print iteration. 2314 *** USER INFORMATION MESSAGE 2314, STATISTICS FOR SYMMETRIC DECOMPOSITIONS OF DATA BLOCK, **** ****, FOLLOW / NUMBER OF UII .LT. 0 = ***** / MAXIMUM ABSOLUTE VALUE OF AII/UII = ***** / N1 THRU N6 = ****** ****** ****** ****** ****** ****** / ROW NUMBERS OF 5 LARGEST AII/UII = ****** ****** ****** ****** ******. This message will appear if the NASTRAN card SYSTEM (57)=1 is placed before the ID card. See Programmer's Manual Section 3.5.14 for a discussion of the statistics appearing in the message. 2316 *** USER INFORMATION MESSAGE 2316, INSUFFICIENT CORE, TO PREPARE DECOMPOSITION STATISTICS. 2317 *** USER WARNING MESSAGE 2317, PARAM HAS STORED OUTSIDE DEFINED RANGE OF COMMON BLOCK /SYSTEM/. INDEX VALUE = ********************. 2318 *** USER FATAL MESSAGE 2318, NO AERO CARD FOUND. An AERO card is required to run APD. 2319 *** USER FATAL MESSAGE 2319, NO CAERO* CARDS FOUND. At least one CAEROi card is required for APD. 2320 *** USER FATAL MESSAGE 2320, NO AEFACT CARDS FOUND. An AEFACT has been referenced and none has been found in the input. 2321 *** USER FATAL MESSAGE 2321, NO FLUTTER CARDS FOUND. Flutter analysis requires at least one FLUTTER card. 2322 *** USER FATAL MESSAGE 2322, NEITHER MKAERO1 OR MKAERO2 CARDS FOUND. Either MKAERO1 or MKAERO2 cards are required. 2323 *** USER FATAL MESSAGE 2323, PAERO* CARD NO. ******** REFERENCED BY CAERO* CARD NO. BUT DOES NOT EXIST. CAEROi card points to missing PAEROi card. 2324 *** USER FATAL MESSAGE 2324, CAERO* ELEMENT NO. ******** REFERENCED ON A SPLINE* CARD DOES NOT EXIST. Either a SPLINE1, a SPLINE2, or a SPLINE3 card references a CAEROi card which is missing. 2325 *** USER FATAL MESSAGE 2325, CAERO* ELEMENT NO. ******** REFERENCED ON A SET2 CARD DOES NOT EXIST. A SET2 card points to a CAEROi which was not included. 2326 *** USER FATAL MESSAGE 2326, CAERO* ELEMENT NO. ******** REFERENCES AEFACT CARD NO. ******** WHICH DOES NOT EXIST. The listed CAEROi card requires one AEFACT card for LSPAN. 2327 *** USER FATAL MESSAGE 2327, CAERO* ELEMENT NO. ******** REFERENCES AEFACT CARD NO. ******** WHICH DOES NOT EXIST. The listed CAEROi card requires one AEFACT card for LCHORD. 2328 *** USER FATAL MESSAGE 2328, SET* AND SPLINE* CARDS REQUIRED. At least one SET1 or SET2 card and at least one SPLINE1, SPLINE2, or SPLINE3 card required. 2329 *** USER FATAL MESSAGE 2329, DUPLICATE EXTERNAL ID NO. ******** GENERATED. The external IDs assigned to each generated box must be unique. 2330 *** USER FATAL MESSAGE 2330, SET1 OR SPLINE3 CARD NO. ******** REFERENCES EXTERNAL ID NO. ******** WHICH DOES NOT EXIST. External grid point IDs referenced on a SET1 or SPLINE3 card do not exist as structural grid points. 2331 *** USER FATAL MESSAGE 2331, BOX PICKED ON SPLINE CARD NO. ******** NOT GENERATED BY CAERO CARD NO. ********. SPLINE card ******** points to a box which was not generated by the CAEROi card. 2332 *** USER WARNING MESSAGE 2332, INVALID INPUT DATA DETECTED IN DATA BLOCK, ****, PROCESSING STOPPED FOR THIS DATA BLOCK. 2333 *** SYSTEM INFORMATION MESSAGE 2333, MODULE DDRMM TERMINATED WITH VARIABLE IERROR = **********. 2334 *** SYSTEM WARNING MESSAGE 2334, ILLEGAL MAJOR OR MINOR OFP-ID IDENTIFICATIONS = ********** ********** DETECTED IN DATA BLOCK, ****, PROCESSING OF SAID DATA BLOCK DISCONTINUED. 2335 *** SYSTEM WARNING MESSAGE 2335, THE AMOUNT OF DATA IS NOT CONSISTENT FOR EACH EIGENVALUE IN DATA BLOCK **** PROCESSING OF THIS DATA BLOCK TERMINATED. 2336 *** SYSTEM WARNING MESSAGE 2336, A CHANGE IN WORD 2 OF THE OFP-ID RECORDS OF DATA BLOCK **** HAS BEEN DETECTED. PROCESSING OF THIS DATA BLOCK HAS BEEN TERMINATED. 2337 *** USER WARNING MESSAGE 2337, DATA BLOCK **** CAN NOT BE PROCESSED DUE TO A CORE INSUFFICIENCY OF APPROXIMATELY ********** DECIMAL WORDS. 2338 *** USER WARNING MESSAGE 2338, DATA BLOCK **** MAY NOT BE FULLY COMPLETED DUE TO A CORE INSUFFICIENCY OF APPROXIMATELY ********** DECIMAL WORDS. 2339 *** SYSTEM WARNING MESSAGE 2339, A CHANGE IN WORD 2 OF THE OFP-ID RECORDS OF DATA BLOCK **** HAS BEEN DETECTED. PROCESSING OF THIS DATA BLOCK HAS BEEN TERMINATED. 2340 *** USER WARNING MESSAGE 2340, MODULE **** ****, HAS BEEN REQUESTED TO DO UNSYMMETRIC DECOMPOSITION OF A SYMMETRIC MATRIX. 2341 *** USER WARNING MESSAGE 2341, MODULE **** **** HAS BEEN FURNISHED A SQUARE MATRIX MARKED UNSYMMETRIC FOR SYMMETRIC DECOMPOSITION. 2342 *** USER WARNING MESSAGE 2342, UNRECOGNIZED APPROACH PARAMETER ******** IN GPFDR INSTRUCTION. The solution approach parameter can only be STATICS, REIGEN, DS0, DS1, FREQ, TRAN, BLK0, BLK1, CEIGEN, or PLA, corresponding to the Rigid Format used. 2343 *** SYSTEM WARNING MESSAGE 2343, DATA BLOCK, *****, IS EITHER NOT -EQEXIN- OR POSSIBLY INCORRECT. 2344 *** SYSTEM WARNING MESSAGE 2344, GPFDR FINDS ELEMENT = **** ****, HAS AN ECT ENTRY LENGTH TOO LONG FOR A PROGRAM LOCAL ARRAY. 2345 *** SYSTEM WARNING MESSAGE 2345, GPFDR FINDS AND IS IGNORING UNDEFINED ECT DATA WITH LOCATE NUMBERS = ******** ******** ********. 2346 *** SYSTEM WARNING MESSAGE 2346, GPFDR FINDS DATA FOR EL-TYPE = **********, IN DATA BLOCK, ********** NOT TO BE IN AGREEMENT WITH THAT WHICH IS EXPECTED. 2347 *** USER WARNING MESSAGE 2347, GPFDR FINDS TOO MANY ACTIVE CONNECTING GRID POINTS FOR ELEMENT ID = **********. 2348 *** SYSTEM WARNING MESSAGE 2348, GPFDR DOES NOT UNDERSTAND THE MATRIX- DICTIONARY ENTRY FOR ELEMENT ID = **********. 2349 *** SYSTEM WARNING MESSAGE 2349, GPFDR FINDS AN ELEMENT ENTRY CONNECTING PIVOT SIL = ********** ON DATA BLOCK ***** TOO LARGE FOR A LOCAL ARRAY. ENTRY IS BEING IGNORED. 2350 *** SYSTEM WARNING MESSAGE 2350, GPFDR CANNOT FIND PIVOT SIL = **********, AMONG THE SILS OF ELEMENT ID = **********, AS READ FROM DATA BLOCK, *****, ENTRY THUS IGNORED. 2351 *** USER INFORMATION MESSAGE 2351, A FORCE CONTRIBUTION DUE TO ELEMENT TYPE = **** ****, ON POINT ID = **********, WILL NOT APPEAR IN THE GRID-POINT-FORCE-BALANCE SUMMARY. 2352 *** SYSTEM WARNING MESSAGE 2352, GPFDR IS NOT ABLE TO FIND PIVOT SIL = ********** AS READ FROM DATA BLOCK ***** IN TABLE OF SILS. 2353 *** USER WARNING MESSAGE 2353, INSUFFICIENT CORE TO HOLD ALL NON-ZERO APP-LOAD AND F-OF-SPC OUTPUT LINE ENTRIES OF GRIDPOINT-FORCE-BALANCE REQUESTS. SOME POINTS REQUESTED FOR OUTPUT WILL BE MISSING THEIR APP- LOAD OR F-OF-SPC CONTRIBUTION IN THE PRINTED BALANCE. 2354 *** SYSTEM WARNING MESSAGE 2354, GPFDR MODULE IS UNABLE TO CONTINUE AND HAS BEEN TERMINATED DUE TO ERROR MESSAGE PRINTED ABOVE OR BELOW THIS MESSAGE. THIS ERROR OCCURRED IN GPFDR CODE WHERE THE VARIABLE - NERROR- WAS SET = *****. 2355 *** USER FATAL MESSAGE 2355, GRID POINT COORDINATES OF ELEMENT ********** ARE IN ERROR. ONE OR MORE OF THE R-COORDINATES ARE ZERO OR NEGATIVE. 2357 *** USER WARNING MESSAGE 2357, ONE VECTOR (DEFAULT) WILL BE COMPUTED IN THE COMPLEX REGION. If more than one vector is desired from the Hessenburg method, make a specific request on the EIGC card. 2358 *** USER WARNING MESSAGE 2358, SYMMETRIC SCRIPT-AF MATRIX (HREE) ASSUMED IN RADMTX. 2359 *** USER WARNING MESSAGE 2359, COL *****, ROW ***** OF RADMTX IS NEGATIVE. 2360 *** USER FATAL MESSAGE 2360, TOTAL VIEW FACTOR (FA/A), FOR ELEMENT ******** IS **************** (ELEMENT AREA IS ****************). Provides view factors and areas for all elements with a view factor greater than 1.01. This message is also a WARNING for all elements with a view factor between .99 and 1.01, provided the NASTRAN card SYSTEM(58)=1 is included in the deck. 2361 *** USER INFORMATION MESSAGE 2361, **** ELEMENTS HAVE A TOTAL VIEW FACTOR (FA/A) LESS THAN 0.99, ENERGY MAY BE LOST TO SPACE. Provides the total number of elements with a view factor less than .99. 2362 *** USER FATAL MESSAGE 2362, CHBDY CARDS WITH DUPLICATE IDS FOUND IN EST, CHBDY ID NUMBER = **********. 2363 *** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON ***** FROM (*****, *****) TO (*****, *****). This message identifies a matrix and its initial size (row, column) and its changed size (row, column) so that it is compatible with MPYAD operations. 2364 *** USER FATAL MESSAGE 2364, GRID POINT COORDINATES OF ELEMENT ******** ARE IN ERROR. ONE OR MORE OF THE THETA-COORDINATES ARE NONZERO. 2365 *** USER WARNING MESSAGE 2365, INSUFFICIENT CORE FOR HESSENBURG METHOD. SWITCHING TO INVERSE POWER. 2366 *** USER FATAL MESSAGE 2366, REGION IMPROPERLY DEFINED ON EIGC CARD. If insufficient core has caused an automatic switch from Hessenburg method to Inverse Power method, the EIGC card must have the region(s) defined (they are ignored for the Hessenburg method). Either increase core to use the Hessenburg method or define the region(s) for Inverse Power. 2367 *** USER WARNING MESSAGE 2367, FREQUENCY F1 (FIELD 4) ON THE EIGR BULK DATA CARD IS NEGATIVE. IT IS ASSUMED TO BE ZERO FOR CALCULATION PURPOSES. 2369 *** USER WARNING MESSAGE 2369, WHEEL MUST HAVE FEWER THAN 256 SPOKES. INPUT MODULE RESETTING TO 255. See Section 2.6 for a discussion of INPUT module sample 8. 2370 *** USER WARNING MESSAGE 2370, MULTIPOINT CONSTRAINT FORCES NOT CALCULATED IN ****** DUE TO MISSING INPUT FILE. 2371 *** USER WARNING MESSAGE 2371, EQUILIBRIUM FORCES NOT CALCULATED IN ****** DUE TO MISSING INPUT FILE. 2372 *** USER WARNING MESSAGE 2372, ****** IS UNABLE TO CALCULATE RIGID BODY TRANSFORMATION FOR SCALAR MODEL. 2373 *** USER WARNING MESSAGE 2373, ONLY SORT1-REAL SUPPORTED IN ********. 2374 *** USER WARNING MESSAGE 2374, INSUFFICIENT CORE TO PROCESS MORE THAN **** VECTORS IN ****. Output module EQMCK needs 6 words for loads, MPCs, and SPCs for each subcase or eigenvalue plus 2 (statics) or 3 (eigenvalue) buffers. 2375 *** SYSTEM WARNING MESSAGE 2375, MODULE ******** HAS BEEN REQUESTED TO DECOMPOSE A RECTANGULAR MATRIX. Symmetric decomposition will not accept rectangular matrix input. 2376 *** USER WARNING MESSAGE 2376, INSUFFICIENT CORE IN ****. HAS ****, NEEDS ****. 2377 *** USER WARNING MESSAGE 2377A, MATRIX CONDITIONING ERRORS GIVEN WITH (A) EXTERNAL ID. 2377 *** USER WARNING MESSAGE 2377B, MATRIX CONDITIONING ERRORS GIVEN WITH (B) INTERNAL ID. Symmetric decomposition diagnostics follow. Both the input and decomposed diagonal are printed. Only available when module SDCMPS is used. 2378 *** USER INFORMATION MESSAGE 2378, **** ESTIMATE OF CPU TIME FOR MT=****, PASSIVE COL.=****, ACTIVE COL.=****, SPILL=****. Seconds of CPU time for each of the above operations is given when module SDCMPS is used. 2379 *** SYSTEM FATAL MESSAGE 2379, LOGIC ****** ERROR IN SDCMPS. 2380 *** USER WARNING MESSAGE 2380, MULTIPOINT CONSTRAINT FORCES NOT OUTPUT IN ******, SEE QUEUED MESSAGES. Other message(s) follow(s) indicating the reason(s) why a request for MPCFORCE in the Case Control Deck is being ignored. 2381 *** SYSTEM FATAL MESSAGE 2381, LOGIC ERROR ****** IN SDCMPS. CONTENTS OF /SDCOMX/ FOLLOW -- 2382 *** USER WARNING MESSAGE 2382, ELEMENT MATRICES FOR ELEMENTS CONGRUENT TO ELEMENT ID = ********** WILL BE RE-COMPUTED AS THERE IS INSUFFICIENT CORE AT THIS TIME TO HOLD CONGRUENCY MAPPING DATA. ADDITIONAL CORE NEEDED = **** WORDS. 2383 *** SYSTEM WARNING MESSAGE 2383, UNABLE TO LOCATE CONGRUENCY MAPPING DATA FOR ELEMENT ID = **********. ELEMENT MATRICES FOR THIS ELEMENT WILL, THEREFORE, BE RE-COMPUTED. 2384 *** USER WARNING MESSAGE 2384, CONGRUENCY OF ELEMENT ID = ********** WILL BE IGNORED AND ITS ELEMENT MATRICES WILL BE RE-COMPUTED AS THERE IS INSUFFICIENT CORE AT THIS TIME TO PERFORM CONGRUENCY MAPPING COMPUTATIONS. ADDITIONAL CORE NEEDED = **** WORDS. 2385 *** USER WARNING MESSAGE 2385, DESIRED NUMBER OF EIGENVALUES EXCEED THE EXISTING NUMBER, ALL EIGENSOLUTIONS WILL BE SOUGHT. The desired number of eigenvalues specified on the EIGB card (NEP) or the EIGR card (ND) exceeds the rank of the [Kdaa] or [Maa] matrix. 2386 *** USER FATAL MESSAGE 2386, STIFFNESS MATRIX SINGULARITY CANNOT BE REMOVED BY SHIFTING. Check the specification of masses on CONM1, CONM2, CMASSi, material definition, and element property cards to ensure that the degrees-of-freedom in the analysis set are not all massless. 2387 *** USER WARNING MESSAGE 2387, PROBLEM SIZE REDUCED TO **** DUE TO ORTHOGANILITY DRIFT OR NULL TRIAL VECTOR. ALL EXISTING MODES MAY HAVE BEEN OBTAINED. USE DIAG 16 TO DETERMINE ERROR BOUNDS. The Tridiagonal Reduction method cannot generate a reduced problem size of the order prescribed in Section 10.6.2.3 of the Theoretical Manual. However, the desired number of accurate eigenvalues specified on the EIGB card (NEP) or the EIGR card (ND) may have been obtained. A detailed list of the computed error bounds could have been obtained by requesting DIAG 16 in the Executive Control Deck. 2388 *** USER WARNING MESSAGE 2388, USER SPECIFIED RANGE NOT USED FOR FEER BUCKLING, THE ROOTS OF LOWEST MAGNITUDE ARE OBTAINED. The value of L1 specified on the EIGB card is ignored for buckling analysis by the Tridiagonal Reduction (FEER) method. 2389 *** USER WARNING MESSAGE 2389, PROBLEM SIZE REDUCED. NO MORE TRIAL VECTORS CAN BE OBTAINED. The desired number of eigenvalues specified on the EIGB card (NEP) or the EIGR card (ND) exceeds the number that can be calculated by the Tridiagonal Reduction (FEER) method. Check whether the requested number of eigenvalues exceeds the rank of the [Kdaa] or [Maa] matrix, which equals the number of existing eigenvalues. 2390 *** USER WARNING MESSAGE 2390, **** FEWER ACCURATE EIGENSOLUTIONS THAN THE **** REQUESTED HAVE BEEN FOUND. USE DIAG 16 TO DETERMINE ERROR BOUNDS. The number of eigenvalues passing the eigenvalue relative-error test is less than the number requested on the EIGB or EIGR card. The maximum allowable error is specified in field 5 on the above cards. A detailed list of the computed error bounds could have been obtained by requesting DIAG 16 in the Executive Control Deck. A checkpoint and restart should be employed to obtain additional accurate eigensolutions. 2391 *** SYSTEM FATAL MESSAGE 2391, PROGRAM LOGIC ERROR IN FEER. An unexpected EOF or word count has been encountered. This is caused by a conflict between subroutine FCNTL and GINO. 2392 *** USER INFORMATION MESSAGE 2392, **** MORE ACCURATE EIGENSOLUTIONS THAN THE **** REQUESTED HAVE BEEN FOUND. USE DIAG 16 TO DETERMINE ERROR BOUNDS. The number of eigenvalues passing the eigenvalue relative-error test is greater than the number requested on the EIGB or EIGR card. The maximum allowable error is specified in field 5 on the above cards. A detailed list of the computed error bounds could have been obtained by requesting DIAG 16 in the Executive Control Deck. 2393 *** USER WARNING MESSAGE 2393, THE REDUCED-SYSTEM EIGENVECTOR CORRESPONDING TO EIGENVALUE **** DOES NOT MEET CONVERGENCE CRITERION. ABSOLUTE RELATIVE ERROR BETWEEN SUCCESSIVE ITERATES IS ****. The accuracy of the corresponding physical eigenvector is in doubt. Refer to the Eigenvalue Summary Table for the largest error in the generalized mass matrix. 2396 *** USER WARNING MESSAGE 2396, SDCOMP COMPUTED A ZERO ON THE DIAGONAL. A VALUE OF 1.0E-10 WILL BE USED. THE ACCURACY OF THE DECOMPOSITION MAY BE IN DOUBT. The matrix being decomposed is singular or a diagonal element is less than zero in the case of Cholesky decomposition. 2397 *** USER FATAL MESSAGE 2397, INVALID TO HAVE AN O-SET WITH A NULL A-SET. There must be at least one degree of freedom in the A-SET even though EPOINTS may be present. 2398 *** USER FATAL MESSAGE 2398, MPYAD REQUIRES SIGN OF A*B TO BE -1, 0 OR +1. 2399 *** USER WARNING MESSAGE 2399, ONLY THE FIRST ***** EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS. 2401 *** USER WARNING MESSAGE 2401, ******** MATRIX IS NULL. AN ARBITRARY VALUE OF 1.0 IS THEREFORE ASSIGNED TO THE RIGID BODY ERROR RATIO (EPSILON SUB E). 2402 *** USER FATAL MESSAGE 2402, NULL DIFFERENTIAL STIFFNESS MATRIX GENERATED IN SUBROUTINE DS1A. 2404 *** USER FATAL MESSAGE 2404, GRID POINTS 1 AND 3 OF TRIM6 WITH ELEMENT ID = ******** HAVE SAME COORDINATES. 2405 *** USER FATAL MESSAGE 2405, GRID POINTS 1, 3, AND 5 APPEAR TO BE ON A STRAIGHT LINE. ELEMENT TRIM6 WITH ID = ********. 2406 *** USER FATAL MESSAGE 2406, GRID POINTS 1 AND 5 HAVE SAME COORDINATES. ELEMENT TRIM6 WITH ID = ********. 2407 *** USER FATAL MESSAGE 2407, MATRIX RELATING GENERALIZED PARAMETERS AND GRID POINT DISPLACEMENTS IS SINGULAR. CHECK COORDINATES OF ELEMENT TRIM6 WITH ID = ********. 2408 *** USER FATAL MESSAGE 2408, GRID POINTS 1 AND 3 OF TRPLT1 WITH ELEMENT ID = ******** HAVE SAME COORDINATES. 2409 *** USER FATAL MESSAGE 2409, GRID POINTS 1, 3, AND 5 APPEAR TO BE ON A STRAIGHT LINE. ELEMENT TRPLT1 WITH ID = ********. 2410 *** USER FATAL MESSAGE 2410, GRID POINTS 1 AND 5 HAVE SAME COORDINATES. ELEMENT TRPLT1 WITH ID = ********. 2411 *** USER FATAL MESSAGE 2411, MATRIX RELATING GENERALIZED PARAMETERS AND GRID POINT DISPLACEMENTS IS SINGULAR. CHECK COORDINATES OF ELEMENT TRPLT1 WITH ID = ********. 2412 *** USER FATAL MESSAGE 2412, A SINGULAR MATERIAL MATRIX FOR ELEMENT ID = ******** HAS BEEN DETECTED BY SUBROUTINE TLODT1 WHILE TRYING TO COMPUTE THERMAL LOADS WITH TEMPP2 CARD DATA. The thermal load vector generated by TEMPP2 data is not correctly applied to a TRPLT1 element. 2413 *** USER FATAL MESSAGE 2413, GRID POINTS 1 AND 3 OF TRSHL WITH ELEMENT ID = ******** HAVE SAME COORDINATES. 2414 *** USER FATAL MESSAGE 2414, GRID POINTS 1, 3, AND 5 APPEAR TO BE ON A STRAIGHT LINE. ELEMENT TRSHL WITH ID = ********. 2415 *** USER FATAL MESSAGE 2415, GRID POINTS 1 AND 5 HAVE SAME COORDINATES. ELEMENT TRSHL WITH ID = ********. 2416 *** USER FATAL MESSAGE 2416, MATRIX RELATING GENERALIZED PARAMETERS AND GRID POINT DISPLACEMENTS IS SINGULAR. CHECK COORDINATES OF ELEMENT TRSHL WITH ID = ********. 2417 *** USER FATAL MESSAGE 2417, A SINGULAR MATERIAL MATRIX FOR ELEMENT ID = ******** HAS BEEN DETECTED BY SUBROUTINE TLODSL WHILE TRYING TO COMPUTE THERMAL LOADS WITH TEMPP2 CARD DATA. The thermal load vector generated by TEMPP2 data is not correctly applied to TRSHL element. 2418 *** USER FATAL MESSAGE 2418, MATERIAL ID FOR MEMBRANE EFFECTS IS LESS THAN OR EQUAL TO ZERO FOR TRSHL ELEMENT WITH ID = ********. 2419 *** SYSTEM FATAL MESSAGE 2419, PIVOT POINT IS NOT EQUAL TO TRSHL ELEMENT GRID POINTS FOR ELEMENT ID = ********. An error in the coordinate system transformation has occurred. Temporary avoidance: remove coordinate system ID from field 7 of the GRID (or GRDSET) card. 2422 *** USER WARNING MESSAGE 2422, VISC DATA NOT PROCESSED BY EMGPRO. CVISC data cards are used only in the direct method of dynamic problem formulations (DISP Rigid Formats 7, 8, and 9). A warning is issued when these cards are encountered in the modal method of dynamic problem formulations (DISP Rigid Formats 10, 11, and 12). 2423 *** USER FATAL MESSAGE 2423, DEPENDENT COMPONENT SPECIFIED MORE THAN ONCE ON MPC CARDS AND/OR IN RIGID ELEMENTS. SIL VALUE = ********. The use of DIAG 21 in the Executive Control Deck will show the SIL (internal DOF) corresponding to the duplicated component. 2424 *** USER FATAL MESSAGE 2424, MACH BOX CONTROL POINTS IMPROPER. SINGULAR MATRIX RESULTED. 2425 *** USER FATAL MESSAGE 2425, MACH BOX GENERATION OF BOXES FAILED. 2426 *** USER FATAL MESSAGE 2426, MACH NUMBER ********** WAS NOT FOUND ON AEFACT CARD ********. 2427 *** USER FATAL MESSAGE 2427, SINGULAR MATRIX FOR INTERPOLATION IN ********. 2428 *** USER FATAL MESSAGE 2428, MACH NUMBER ********** WAS NOT FOUND IN PISTON THEORY ALPHA ARRAY. 2429 *** USER FATAL MESSAGE 2429, WRONG NUMBER OF WORDS OR CARD NOT FOUND FOR CARD ID ******** ASSOCIATED WITH CAERO* ID ********. 2430 *** SYSTEM WARNING MESSAGE 2430, REQUESTED ******** PRECISION ******** BY ********, ******** IS LOGICAL CHOICE. This message is issued when single or double precision is prescribed for a matrix utility module but could be better prescribed based on the data. 2431 *** SYSTEM WARNING MESSAGE 2431, REQUESTED TYPE ******** BY ********. TYPE ******** IS LOGICAL CHOICE. This message is issued when real or complex output is prescribed for a matrix utility module but should be prescribed as indicated. 2432 *** USER INFORMATION MESSAGE 2432, DIAG 19 MPYAD SUMMARY. Information on next two lines is MPYAD matrix data summary listed on system output file on CDC and UNIVAC or on log file (Unit 4) on IBM and VAX. 2433 *** USER INFORMATION MESSAGE 2433, MPYAD METHOD ****, NBR PASSES = ****, EST TIME = ****. DIAG 19 MPYAD Method Summary listed on system output file on CDC and UNIVAC or on log file (Unit 4) on IBM and VAX. 2434 *** USER INFORMATION MESSAGE 2434, MPYAD -- NULL MATRIX PRODUCT. DIAG 19 MPYAD message. =PAGE= 6.5 FUNCTIONAL MODULE MESSAGES (3001 THROUGH 4000) 3001 *** SYSTEM FATAL MESSAGE 3001, ATTEMPT TO OPEN DATA SET *** IN SUBROUTINE WHICH WAS NOT DEFINED IN FIST. Subroutine did not expect data block to be purged. Check data block requirements for module. This message is also a WARNING when STRESS output is requested in a heat transfer problem. 3002 *** SYSTEM FATAL MESSAGE 3002, EOF ENCOUNTERED WHILE READING DATA SET ********(FILE ***) IN SUBROUTINE ******. This message is issued when an end-of-file occurs while trying to skip the header record. The data block is not in the proper format. 3003 *** SYSTEM FATAL MESSAGE 3003, ATTEMPT TO READ PAST THE END OF A LOGICAL RECORD IN DATA SET ********(FILE ***) IN SUBROUTINE ********. This message is issued when the file is positioned at the beginning of a logical record and the record does not contain at least three words. Data block is not in proper format. 3004 *** SYSTEM FATAL MESSAGE 3004, INCONSISTENT TYPE FLAGS ENCOUNTERED WHILE PACKING DATA SET ****. 3005 *** USER FATAL MESSAGE 3005, ATTEMPT TO OPERATE ON SINGULAR MATRIX **** IN SUBROUTINE ****. A diagonal term does not exist for a column of (U). This is normally detected in DECOMP, implying care was not taken in processing singular matrices in the calling routine. 3006 *** SYSTEM FATAL MESSAGE 3006, BUFFER ASSIGNED WHEN OPENING DATA BLOCK **** FILE (****) CONFLICTS WITH BUFFERS CURRENTLY OPEN. Computation of buffer pointers or allocation of open core is in error. 3007 *** SYSTEM FATAL MESSAGE 3007, ILLEGAL INPUT TO SUBROUTINE ****. Subroutine **** has encountered data which it cannot process. This error should not be caused by user input data. A system or programming error is indicated. Go directly to the subroutine listing or description to determine the exact cause of the problem. 3008 *** SYSTEM FATAL MESSAGE 3008, INSUFFICIENT CORE AVAILABLE FOR SUBROUTINE ********. ADDITIONAL CORE REQUIRED = **** WORDS. Insufficient open core was available to meet the needs of the subroutine indicated. Increase Region Size, Field Length, HICORE allocation, or the length of the open core COMMON block, depending on the machine being used. 3009 *** SYSTEM FATAL MESSAGE 3009, DATA TRANSMISSION ERROR ON DATA SET ******** (FILE ***) A conflict exists between the SGINO subroutine for the UNIVAC 1108 and the resident NTRAN$. Either record SGINO or remove the PLOT request from the NASTRAN job. 3010 *** SYSTEM FATAL MESSAGE 3010, ATTEMPT TO MANIPULATE DATA SET ******** (FILE ***) BEFORE OPENING FILE. An operation other than OPEN or CLOSE is requested on a file which is not defined in the FIST. 3011 *** SYSTEM FATAL MESSAGE 3011, ATTEMPT TO WRITE A TRAILER ON FILE *** WHEN IT HAS BEEN PURGED. The file did not exist in the FIST when WRTTRL was called. 3012 *** SYSTEM FATAL MESSAGE 3012, ATTEMPT TO OPEN DATA SET ******** (FILE ***) WHICH HAS ALREADY BEEN OPENED. GINO OPEN was called while the file was already open. 3013 *** SYSTEM FATAL MESSAGE 3013, ATTEMPT TO READ DATA SET ******** (FILE ***) WHEN IT WAS OPENED FOR OUTPUT. GINO was called to READ a data block opened for output. 3014 *** SYSTEM FATAL MESSAGE 3014, ATTEMPT TO WRITE DATA SET ******** (FILE ***) WHEN IT WAS OPENED FOR INPUT. GINO was called to WRITE a data block opened for input. 3015 *** SYSTEM FATAL MESSAGE 3015, ATTEMPT TO FWDREC ON DATA SET ******** (FILE ***) WHEN IT WAS OPENED FOR OUTPUT. GINO was called to FWDREC a file opened for output. 3016 *** SYSTEM FATAL MESSAGE 3016, **** MATRIX IS NOT IN PROPER FORM IN SUBROUTINE ****. The input matrix is not in the proper form or type acceptable to the subroutine. Check the trailer information on the matrix and the subroutine description for the discrepancy. 3017 *** USER WARNING MESSAGE 3017, ONE OR MORE GRID POINT SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS. Singularities or near singularities may exist at the grid point level. The listed singularities should be examined for data errors. The check performed here is neither necessary nor sufficient for a singular matrix. 3018 *** SYSTEM FATAL MESSAGE 3018, MODULE ********, SEQUENCE NO. ***, REQUIREMENTS EXCEED AVAILABLE FILES. Segment File Allocator (SFA) did not have sufficient logical files available to fulfill the request of the module. Cut module requirements or increase the logical files within the computer system. See Section 5 of the Programmer's Manual. 3019 *** USER FATAL MESSAGE 3019, MAXIMUM LINE COUNT EXCEEDED IN SUBROUTINE **** LINE COUNT EQUALS ****. The total number of lines written on the system output file has exceeded the set limit (default value is 20,000). If you wish to increase this value, include a card of the form "MAXLINES=n" in your Case Control Deck. 3020 *** SYSTEM FATAL MESSAGE 3020, GNFIST OVERFLOWED FIST TABLE AT SEQUENCE NO. *** DATA SET ********. Generate FIST (GNFIST) routine overflowed FIST /XFIST/. Increase compiled size. See Section 2 of the Programmer's Manual. 3021 *** SYSTEM FATAL MESSAGE 3021, FILE *** NOT DEFINED IN FIST. An operation other than OPEN or CLOSE is requested on a file which is not defined in the FIST. 3022 *** SYSTEM WARNING MESSAGE 3022, DATA SET ******** IS REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE. Segment File Allocator (SFA) detected that an input data block to a future module has not been generated. If the future module requires that this data block exist, the module may terminate with a fatal error. This message may occur (and most often does) when the Segment File Allocator has removed from its tables (due to a need for more room) previously purged data blocks. In this case no error or even a warning is implied. 3023 *** USER INFORMATION MESSAGE 3023--PARAMETERS FOR SYMMETRIC DECOMPOSITION OF DATA BLOCK ******** (N = *****) TIME ESTIMATE = ********. C AVG = ****** S AVG = ****** PC MAX = ****** PC AVG = ****** ADDITIONAL CORE = ****** PC GROUPS = ****** SPILL GROUPS = ****** C MAX ****** PREFACE LOOPS = ****** N is the number of rows in the data block; TIME is the estimate (in seconds) to perform the decomposition; C AVG is the average number of active columns per pivot row; PC AVG is the average number of passive columns at each active termination point; SPILL GROUPS is the number of spill groups; S AVG is the average number of rows in each spill group; ADDITIONAL CORE (positive) is the amount of core required to avoid spill, (negative) is the amount of unused core; C MAX is the maximum number of active columns in any one pivot row; PC MAX is the maximum number of passive columns at any one active column termination point; PC GROUPS is the number of active column termination points; PREFACE LOOPS is the number of times the preface of the decomposition subroutine is executed. 3024 *** USER INFORMATION MESSAGE 3024, THE BANDWIDTH OF MATRIX **** EXCEEDS THE MAXIMUM BANDWIDTH. A MAXIMUM BANDWIDTH OF **** WILL BE USED. This message indicates that a matrix has scattered terms way off the diagonal (that is, a large bandwidth). Instead of searching all combinations of B and C, the search is started at the maximum bandwidth. 3025 *** SYSTEM FATAL MESSAGE 3025, ILLEGAL INDEX IN ACTIVE ROW OR COLUMN CALCULATION IN ****. Possible machine error. Rerun problem. If error persists, a code error exists in the decomposition routine. 3026 *** SYSTEM FATAL MESSAGE 3026, MATRIX **** EXCEEDS MAXIMUM ALLOWABLE SIZE FOR BANDWIDTH PLUS ACTIVE COLUMNS. BMAX = ****, CMAX = ****. Sufficient space was not reserved for the generation of the B vs. C vector. SDCOMP should be recompiled to increase BMAX and CMAX. 3027 *** USER INFORMATION MESSAGE 3027, **** DECOMPOSITION OF DATA BLOCK **** (N = ****) TIME ESTIMATE IS ******** SECONDS. Gives the estimated time required for a decomposition in seconds and the type of matrix, that is, complex, real (double or single precision), symmetric, or unsymmetric. 3028 *** USER INFORMATION MESSAGE 3028, B = ****, BBAR = ****, C = ****, CBAR = ***, R = ****. Gives the upper bandwidth (B), lower bandwidth (BBAR), number of active columns (C), and active rows (CBAR) used in the unsymmetric decomposition. 3029 *** SYSTEM FATAL MESSAGE 3029, PHYSICAL END-OF-FILE ENCOUNTERED ON DATA SET **** (FILE ****). Since logical end-of-files are used by GINO, a physical end-of-file indicates an attempt to read beyond valid data. 3030 *** USER WARNING MESSAGE 3030, OFP UNABLE TO PROCESS DATA BLOCK. A TABLE OF THE DATA BLOCK FOLLOWS. 3031 *** Same as message 3032. 3032 *** USER FATAL MESSAGE 3032, UNABLE TO FIND SELECTED SET (****) IN TABLE (****) IN SUBROUTINE (****). A particular set used in the problem was not included in the data. Good examples are loads, initial conditions, or frequency sets. Include the required data or change the Case Control Deck to select data already in problem. Set zero (0) has a special meaning. A set selection was required, but none was made. For example, no METHOD was selected for an eigenvalue extraction problem. This message can also indicate that a LOAD card has referenced another LOAD card, which is not permitted. 3033 *** USER FATAL MESSAGE 3033, SUBCASE ID **** IS REFERENCED ON ONE OR MORE RANDPS CARDS BUT IS NOT A CURRENT SUBCASE ID. The RANDPS set selected can only reference subcase identification numbers included in the current loop. All subcases in which the direct input matrices or transfer functions do not change are run together. Either add a subcase with referenced identification number, change your RANDPS cards, or change the identification numbers on your current subcases. 3034 *** USER WARNING MESSAGE 3034, ORTHOGONALITY CHECK FAILED, LARGEST TERM = **** EPSI = ****. The off-diagonal terms of the modal mass matrix are larger than the user input criteria on the EIGB or EIGR bulk data card. The eigenvectors are not orthogonal to this extent. This non- orthogonality is especially important if a modal formulation is contemplated. 3035 *** USER INFORMATION MESSAGE 3035, FOR LOAD ** EPSILON SUB E=*****. This is an informative message reflecting the accumulated round-off error of the static solution. 3036 *** SYSTEM FATAL MESSAGE 3036, DATA SET ******** IS REQUIRED AS INPUT BUT HAS NOT BEEN GENERATED OR PURGED. The above mentioned data set is not accounted for on the OPTP checkpoint dictionary. The message indicates a failure of the File Name Restart Table. As an interim measure, you can use the ALTER feature to execute the proper module to create the needed data set. 3037 *** SYSTEM FATAL MESSAGE 3037, JOB TERMINATED IN SUBROUTINE ****. This message designates the subroutine in which the program terminated. It should be preceded by a user message which explains the cause of the termination. The module in which the program terminated can be found by examining the online time messages. 3038 *** SYSTEM FATAL MESSAGE 3038, DATA SET *** DOES NOT HAVE MULTIREEL CAPABILITY. Computer hardware/software does not support multireel files. 3039 *** SYSTEM FATAL MESSAGE 3039, ENDSYS CANNOT FIND SAVE FILE. File cannot be found to save and restore executive tables during link switching. 3040 *** SYSTEM FATAL MESSAGE 3040, ATTEMPT TO WRITE DATA SET ******** (FILE ***) WHEN IT IS AN INPUT FILE. Input data blocks for a module (100 < NAME < 200) may be read only. 3041 *** USER WARNING MESSAGE 3041, EXTERNAL GRID POINT *** DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED. The reference grid point specified on the PARAM GRDPNT card for weight and balance calculations in GPWG cannot be used. 3042 *** USER WARNING MESSAGE 3042, INCONSISTENT SCALAR MASSES HAVE BEEN USED. EPSILON/DELTA = *****. GPWG has detected inconsistent scalar masses. Direct masses have been used. Skew inertias will result. Examine your scalar masses and CONM1 cards. 3043 *** USER FATAL MESSAGE 3043, UNCONNECTED EXTRA POINT (MODAL COORDINATE=***) HAS BEEN DETECTED BY SUBROUTINE ****. Extra points must be connected via Direct Matrix Input (or Transfer Functions) in modal transient or frequency response. 3044 *** USER FATAL MESSAGE 3044, A POINT ON NONLINEAR LOAD SET **** NOLIN **** IS NOT AN EXTRA POINT. ONLY EXTRA POINTS MAY HAVE NONLINEAR LOADS IN A MODAL FORMULATION. Modal transient analysis (DISP Rigid Format 12) will support nonlinear loads only on extra points. Pick another nonlinear load set. 3045 *** USER WARNING MESSAGE 3045, INSUFFICIENT TIME TO COMPLETE THE REMAINING ** SOLUTION(S) IN MODULE ***. The time specified on the NASTRAN TIME card has expired in the named module. The module will be terminated. NASTRAN will continue running until the time on the job card expires. Restart to obtain print-out, complete solutions, or rerun problem. 3046 *** USER FATAL MESSAGE 3046, YOUR SELECTED LOADING CONDITION, INITIAL CONDITION, AND NONLINEAR FORCES ARE NULL. A ZERO SOLUTION WILL RESULT. Transient solution must have one of the above nonzero. 3047 *** USER FATAL MESSAGE 3047, NO MODES WITHIN RANGE AND LMODES=0. A MODAL FORMULATION CANNOT BE MADE. The modes used for a modal formulation must be selected by a PARAM card. Set LFREQ, HFREQ, or LMODES to request modes. 3048 *** SYSTEM FATAL MESSAGE 3048, BUFFER CONTROL WORD INCORRECT FOR GINO **** OPERATION ON DATA BLOCK ****. The buffer control word has been destroyed outside of GINO or an attempt to READ a file opened to WRITE or similar error has occurred. 3049 *** SYSTEM FATAL MESSAGE 3049, GINO UNABLE TO POSITION DATA BLOCK CORRECTLY DURING OPERATION. A block number read does not match the expected block number. The file has been repositioned outside the GINO environment or a machine or operating system error has occurred. 3050 *** USER FATAL MESSAGE 3050, INSUFFICIENT TIME REMAINING FOR DECOMPOSITION, ****. TIME ESTIMATE IS **** SECONDS. The time estimated for a decomposition exceeds the remaining time. Increase the time estimate for the run. 3051 *** USER FATAL MESSAGE 3051, INITIAL CONDITION SET **** WAS SELECTED FOR A MODAL TRANSIENT PROBLEM. INITIAL CONDITIONS ARE NOT ALLOWED IN SUCH A PROBLEM. 3052 *** USER WARNING MESSAGE 3052, A RANDOM REQUEST FOR CURVE TYPE - **** -, POINT - **** COMPONENT - **** -, SPECIFIES TOO LARGE A COMPONENT ID. THE LAST COMPONENT WILL BE USED. 3053 *** USER WARNING MESSAGE 3053, THE ACCURACY OF EIGENVALUE **** IS IN DOUBT. GIVENS-QR FAILED TO CONVERGE IN **** ITERATIONS. Each eigenvalue is computed to the precision limits of each machine consistent with the maximum number of iterations allowed. A programming change would be required to increase the maximum iteration parameter. 3054 *** USER WARNING MESSAGE 3054, THE ACCURACY OF EIGENVECTOR **** CORRESPONDING TO THE EIGENVALUE **** IS IN DOUBT. The eigenvector failed to converge in the allowable number of iterations. Particular attention should be given to the off-diagonal terms of the modal mass matrix (MI) to determine if this vector is orthogonal to the remaining vectors. These terms will be computed and checked if field 9 on the EIGR card contains a nonzero value. The message is expected in the case of close or multiple eigenvalues, even though the vectors are properly computed. 3055 *** USER FATAL MESSAGE 3055, AN ATTEMPT TO MULTIPLY OR MULTIPLY AND ADD NON-CONFORMABLE MATRICES TOGETHER WAS MADE IN SUBROUTINE ********. The multiply/add subroutine requires conformable matrices. There are two possible cases: 1. [X] = [A][B] + [C] The number of columns of [A] must be equal to the number of rows of [B] and the number of columns of [C] must be equal to the number of columns of [B] and the number of rows of [C] must be equal to the number of rows of [A]. 2. [X] = [A]T[B] + [C] The number of rows of [A] must be equal to the number of rows of [B]; the number of columns of [C] must be equal to the number of columns of [B] and the number of rows of [C] must be equal to the number of columns of [A]. 3056 *** USER FATAL MESSAGE 3056, NO MASS MATRIX IS PRESENT BUT MASS DATA IS REQUIRED. An operation with the mass matrix is required, such as a gravity loading condition, but none was created. A typical cause is the omission of RHO on the MAT1 card. 3057 *** USER FATAL MESSAGE 3057, MATRIX **** IS NOT POSITIVE DEFINITE. A Cholesky decomposition was attempted on the above matrix, but a diagonal term was negative or equal to zero, such that the decomposition failed. 3058 *** USER WARNING MESSAGE 3058, EPSILON IS LARGER THAN **** FOR SUBCASE ****. The error residual (either l or ) T {u} {P} = ------------- T {P} {u} is larger than would be expected for a well conditioned problem. Near singularities may exist. 3059 *** USER FATAL MESSAGE 3059, SET IDENTIFIER **** DOES NOT EXIST. ERROR DETECTED IN SUBROUTINE ****. When describing displacement matrices, only those set identifiers (such as M or G) listed under DMAP module MATGPR (see Section 5.5) are legal set descriptors. Choose a set descriptor which is legal (and describes the matrices to be operated on). 3060 *** USER FATAL MESSAGE 3060, READ MODULE FINDS THAT THE INPUT STIFFNESS AND/OR MASS MATRIX IS NULL. 3061 *** USER INFORMATION MESSAGE 3061, THE MEASURE OF NON-PLANARITY IS **** FOR ELEMENT NUMBER ********. The measure of non-planarity for isoparametric quadrilateral membrane elements is the distance from actual grid points to mean plane divided by the average length of the diagonals. This message is issued only when the absolute value of this measure is greater than .01. 3062 *** SYSTEM FATAL MESSAGE 3062, HMAT MATERIAL ROUTINE CALLED IN A NON- HEAT-TRANSFER PROBLEM. 3063 *** SYSTEM WARNING MESSAGE 3063, INPUT FORCES DATSDRHA BLOCK DOES NOT HAVE CORRECT DATA. 3064 *** SYSTEM WARNING MESSAGE 3064, INCONSISTENT HBDY DATA RECORDS. ******** ********. 3065 *** SYSTEM WARNING MESSAGE 3065, THERE IS NO EST DATA FOR HBDY ELEMENT ID = ********. 3066 *** USER WARNING MESSAGE 3066, THERE IS NO TLOAD1 OR TLOAD2 DATA FOR LOAD-ID = ********. 3067 *** USER WARNING MESSAGE 3067, LOAD SET ID = ********** IS NOT PRESENT. 3068 *** SYSTEM WARNING MESSAGE 3068, UNRECOGNIZED CARD TYPE = ********** FOUND IN -SLT- DATA BLOCK. 3069 *** USER WARNING MESSAGE 3069, OUTPUT DATA BLOCK FOR FORCES IS PURGED. 3070 *** USER WARNING MESSAGE 3070, QGE IS REQUIRED BY THIS MODULE AND IS PURGED. NO OUTPUT FILE HAS BEEN CREATED. 3071 *** SYSTEM WARNING MESSAGE 3071, EXTRA DATA IN RADLST RECORD OF MATPOOL DATA BLOCK IGNORED. 3072 *** USER WARNING MESSAGE 3072, TOO MANY MATRIX VALUES INPUT VIA RADMTX BULK DATA FOR COLUMN ********. EXTRA VALUES IGNORED AS MATRIX SIZE IS DETERMINED TO BE OF SIZE ******** FROM RADLST COUNT OF ELEMENT ID-S. 3073 *** USER FATAL MESSAGE 3073, NO -HBDY- ELEMENT SUMMARY DATA IS PRESENT FOR ELEMENT ID = ********, WHICH APPEARS ON A -RADLST- BULK DATA CARD. 3074 *** USER FATAL MESSAGE 3074, COLUMN ******** OF THE Y MATRIX IS NULL. 3075 *** USER FATAL MESSAGE 3075, INTERMEDIATE MATRIX Y IS SINGULAR. 3076 *** SYSTEM FATAL MESSAGE 3076, GPTT DATA IS NOT IN SORT BY INTERNAL ID. 3077 *** USER FATAL MESSAGE 3077, THERE IS NO GRID POINT TEMPERATURE DATA OR DEFAULT TEMPERATURE DATA FOR SIL POINT ******** AND POSSIBLY OTHER POINTS. 3078 *** USER FATAL MESSAGE 3078, NO GPTT DATA IS PRESENT FOR TEMPERATURE SET ********. 3079 *** USER FATAL MESSAGE 3079, THERE ARE NO -HBDY-ELEMENTS PRESENT. 3080 *** USER FATAL MESSAGE 3080, ERROR IN QVECT DATA, INTEGER VALUES SPECIFIED FOR THERMAL FLUX VECTOR COMPONENTS IN A NON-TRANSIENT ANALYSIS. ELEMENT ID = ****. 3081 *** SYSTEM FATAL MESSAGE 3081, INCONSISTENT USET DATA DETECTED. 3082 *** USER WARNING MESSAGE 3082, M = **********, N = **********. More than one n-set degree-of-freedom is associated with an m-set degree-of-freedom. The set relationship to be used is indicated in the message. 3083 *** USER FATAL MESSAGE 3083, UM POSITION = **********, SIL = **********. An m-set degree-of-freedom is not expressed in terms of an n-set degree-of-freedom. 3084 *** USER FATAL MESSAGE 3084, THERE IS NO TEMPERATURE DATA FOR SIL NUMBER **********. 3085 *** USER FATAL MESSAGE 3085, THE PF LOAD VECTOR IS EITHER PURGED OR NULL. 3086 *** USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON (1) NUMBER 1 (NORMAL CONVERGENCE). 3086 *** USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON (2) NUMBER 2 (MAXIMUM ITERATIONS). 3086 *** USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON (3) NUMBER 3 (DIVERGING SOLUTION). 3086 *** USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON (4) NUMBER 4 (INSUFFICIENT TIME). 3086 *** USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON (5) NUMBER 5 (MAXIMUM CONVERGENCE). 1. Normal convergence occurs when the solution meets the convergence criteria defined by the parameter EPSHT. 2. Iterations are terminated when the number defined by the parameter MAXIT is attained. 3. Iterations are terminated when the solution diverges. 4. Iterations are terminated when there is insufficient time to complete the next loop. 5. Iterations are terminated when there is no change to the solution vector but the parameter EPSHT criteria was not met. 3087 *** USER FATAL MESSAGE 3087, TEMPERATURE SET ********** IS NOT PRESENT IN GPTT DATA BLOCK. 3088 *** USER FATAL MESSAGE 3088, ILLEGAL GEOMETRY FOR REVOLUTION ELEMENT ****. 3089 *** USER FATAL MESSAGE 3089, ILLEGAL GEOMETRY FOR TRIANGLE ELEMENT ****. 3090 *** USER FATAL MESSAGE 3090, ILLEGAL GEOMETRY FOR QUAD ELEMENT ****. 3091 *** SYSTEM WARNING MESSAGE 3091, A TRAPRG ELEMENT = ************** DOES NOT HAVE SIDE 1-2 PARALLEL TO SIDE 3-4. 3092 *** USER FATAL MESSAGE 3092, TRIARG OR TRAPRG ELEMENT = ************** POSSESSES ILLEGAL GEOMETRY. 3093 *** SYSTEM FATAL MESSAGE 3093, ELEMENT = ******** REASON = ******. A thermal load (via QVOL card) cannot be computed because: 1. Fewer than 2 points have been referenced. 2. Unable to locate SIL value. 3. Unrecognizable form for element. 4. Illegal number of points for triangular or quadrilateral membranes, plates, or rings. 5. Illegal number of points for solid hexahedra. 1 - 3 apply to rods; triangular or quadrilateral membranes, plates, or rings; or solid hexahedra. 3094 *** SYSTEM FATAL MESSAGE 3094, SLT LOAD TYPE ********** IS NOT RECOGNIZED. 3095 *** USER WARNING MESSAGE 3095, ELEMENT TYPE ********** WITH ID = *********, AND APPEARING ON EITHER A QVECT, QBDY1, QBDY2, OR QVOL LOAD CARD HAS THE SAME ID AS ELEMENT OF ANOTHER TYPE AND IS NOT BEING USED FOR LOADING. 3096 *** USER FATAL MESSAGE 3096, ELEMENT ID = ********** AS REFERENCED ON A QVOL, QBDY1, QBDY2, OR QVECT LOAD CARD COULD NOT BE FOUND AMONG ACCEPTABLE ELEMENTS FOR THAT LOAD TYPE. 3097 *** USER FATAL MESSAGE 3097, COLUMN ****** IS SINGULAR. UNSYMMETRIC (1) ******** DECOMP ABORTED. 3097 *** USER FATAL MESSAGE 3097, SYMMETRIC DECOMPOSITION OF DATA BLOCK (2) ******** ABORTED BECAUSE THE FOLLOWING COLUMNS ARE SINGULAR -- When a matrix being read in is singular (null column or, for symmetric decomposition, a zero diagonal), the internal column number and type of decomposition is identified. The message does not appear for special cases such as less than three columns or for proportional rows. 3098 *** USER FATAL MESSAGE 3098, QDMEM2 ELEMENT STIFFNESS ROUTINE DETECTS ILLEGAL GEOMETRY FOR ELEMENT ID = **********. 3099 *** USER FATAL MESSAGE 3099, ELEMENT STIFFNESS COMPUTATION FOR QDMEM2 ELEMENT ID = ********** IS IMPOSSIBLE DUE TO SINGULARITY IN CONSTRAINT EQUATION. 3100 *** USER WARNING MESSAGE 3100, ELEMENT THERMAL LOAD COMPUTATION FOR QDMEM2 ELEMENT ID = ********** FINDS ILLEGAL GEOMETRY THUS NO LOADS OUTPUT FOR ELEMENT-ID NOTED. 3101 *** USER WARNING MESSAGE 3101, SINGULARITY OR BAD GEOMETRY FOR QDMEM2 ELEMENT ID = ********** STRESS OR FORCES WILL BE INCORRECT. 3102 *** SYSTEM FATAL MESSAGE 3102, LOGIC ERROR EMA- ****. (1) 3102 *** USER WARNING MESSAGE 3102, SUBROUTINE TRHT1C, UNSTABLE TEMP. VALUE OF (2) ****************, COMPUTED FOR TIME STEP ***** AT POINT NUMBER ****** IN THE ANALYSIS STEP. 3103 *** USER WARNING MESSAGE 3103, EMGCOR OF EMG MODULE FINDS EITHER OF DATA (1) BLOCKS **** OR **** ABSENT AND THUS ****, MATRIX WILL NOT BE FORMED. 3103 *** USER FATAL MESSAGE 3103, SUBROUTINE TRHT1C TERMINATING DUE TO ERROR (2) COUNT FOR MESSAGE 3102. This occurs for 10 errors detected in the temperature computation. 3104 *** SYSTEM WARNING MESSAGE 3104, EMGCOR FINDS SET (ASSUMED DATA BLOCK *****) MISSING. EMG MODULE COMPUTATIONS LIMITED. 3105 *** SYSTEM FATAL MESSAGE 3105, EMGPRO FINDS ******** ELEMENTS (ELEMENT TYPE ***) UNDEFINED IN EST DATA BLOCK AND/OR ELEMENT ROUTINE. 3106 *** SYSTEM FATAL MESSAGE 3106, EMGPRO FINDS THAT ELEMENT TYPE *** HAS EST ENTRIES TOO LARGE TO HANDLE CURRENTLY. 3107 *** SYSTEM INFORMATION MESSAGE 3107, EMGOLD CALLED BY EMGPRO TO PROCESS ******** ELEMENTS. 3108 *** SYSTEM FATAL MESSAGE 3108, EMGOUT RECEIVES ILLEGAL FILE TYPE = ********. 3109 *** SYSTEM FATAL MESSAGE 3109, EMGOUT HAS BEEN SENT AN INVALID DICTIONARY WORD-2 = ********** FROM ELEMENT ID = **********. 3110 *** SYSTEM FATAL MESSAGE 3110, EMGOUT HAS BEEN CALLED TO WRITE AN INCORRECT NUMBER OF WORDS FOR ELEMENT ID = **********. 3111 *** SYSTEM FATAL MESSAGE 3111, INVALID NUMBER OF PARTITIONS WERE SENT EMGOUT FOR ELEMENT ID = ********** WITH RESPECT TO DATA BLOCK TYPE = ***. 3112 *** USER INFORMATION MESSAGE 3112, ELEMENTS CONGRUENT TO ELEMENT ID = ********** WILL BE RE-COMPUTED AS THERE IS INSUFFICIENT CORE AT THIS MOMENT TO HOLD DICTIONARY DATA. ADDITIONAL CORE NEEDED = **** WORDS. 3113 *** SYSTEM INFORMATION MESSAGE 3113, EMGPRO PROCESSING ****** PRECISION ELEMENTS (ELEMENT TYPE ***) STARTING WITH ID ********. 3115 *** USER FATAL MESSAGE 3115, EMGPRO FINDS ******** ELEMENTS (ELEMENT TYPE ***) PRESENT IN A HEAT FORMULATION. This includes CCONEAX, CTORDRG, CTRAPAX, CTRIAAX, CFLUIDi, CSLOTi, CSHEAR, CTWIST, CTRBSC, CTRPLT, CQDPLT, CMASSi, CONMi, CAXIFi, CAERO1, CTRIM6, CTRPLT1, and CTRSHL elements. 3116 *** SYSTEM FATAL MESSAGE 3116, ELEMENT ID ********** SENDS BAD SIL TO ROUTINE EMG1B. 3117 *** USER WARNING MESSAGE 3117, DIFFERENTIAL STIFFNESS CAPABILITY NOT DEFINED FOR ELEMENTS (ELEMENT TYPE ****). 3118 *** USER FATAL MESSAGE 3118, ROD ELEMENT NO. ********** HAS ILLEGAL GEOMETRY OR CONNECTIONS. 3119 *** USER FATAL MESSAGE 3119, INSUFFICIENT CORE TO PROCESS ROD ELEMENTS. 3120 *** USER WARNING MESSAGE 3120, IMPROPER CONNECTION ON CELAS ELEMENT, **********. 3121 *** SYSTEM WARNING MESSAGE 3121, EMGOLD HAS RECEIVED A CALL FOR ELEMENT ID **** (ELEMENT TYPE ELEMENT IGNORED AS THIS ELEMENT TYPE IS NOT HANDLED BY EMGOLD. 3122 *** SYSTEM FATAL MESSAGE 3122, EMGOUT HAS DETERMINED THAT THERE ARE **** CONNECTING GRID POINTS FOR ELEMENT ID = ****. THIS IS GREATER THAN THE MAXIMUM AS PER /GPTA1/ TABLE FOR THE TYPE OF THIS ELEMENT. PROBABLE ERROR IN ELEMENT ROUTINE PROGRAM. 3123 *** USER FATAL MESSAGE 3123, PARAMETER NUMBER ***** NOT IN DMAP CALL. 3124 *** USER FATAL MESSAGE 3124, PARAMETER NUMBER ***** IS NOT A VARIABLE. 3125 *** SYSTEM FATAL MESSAGE 3125, INVALID TABLE NUMBER. **********, IS NO. *****, OF *****, PASSED TO PRETABLE. 3128 *** SYSTEM WARNING MESSAGE 3128, **** **** AND **** **** ARE EQUIVALENT LABELS. CONSULT BOTH FOR INTERCHANGEABLE XREF. 3129 *** USER FATAL MESSAGE 3129, SDR3 CAN ONLY PROCESS 30 ELEMENT TYPES, PROBLEM HAS ***. The total of 30 different element types includes the sum of the different types of structural/scalar elements plus the different types of user's DUMMY elements. 3130 *** SYSTEM FATAL MESSAGE 3130, LOGIC ERROR ****** OCCURRED IN SDCOMP. CONTENTS OF /SDCOMX/ FOLLOW -- Numerous error conditions exist in subroutine SDCOMP. The current value in the error message helps the programmer to locate the specific area of the code where the error occurred. COMMON block SDCOMX is dumped in case DIAG 1 was not on. 3131 *** USER FATAL MESSAGE 3131, INPUT STIFFNESS AND MASS MATRICES ARE NOT COMPATIBLE. The matrices must be of the same size in order to properly perform matrix operations. 3132 *** SSGHT RECOVERING FROM SEVERE USER CONVERGENCE CRITERIA. A nonlinear heat transfer solution cannot converge because the value for EPSHT on a PARAM card is too small. Either change the value to one which requires less accuracy or provide for a greater number of iterations (MAXIT on another PARAM card) to allow the solution to converge. 3133 *** USER FATAL MESSAGE 3133, LENGTH OF CRIGDR (RIGID ROD) ELEMENT ******** IS ZERO. The end grid points of the element cannot be coincident. 3134 *** USER FATAL MESSAGE 3134, CRIGDR (RIGID ROD) ELEMENT ******** IS NOT PROPERLY DEFINED. The direction defined by the dependent translational degree of freedom cannot be perpendicular (or nearly perpendicular) to the element. 3135 *** USER FATAL MESSAGE 3135, UNABLE TO PROCESS SEQGP DATA IN SUBROUTINE GP1 DUE TO INSUFFICIENT CORE. ADDITIONAL CORE REQUIRED = **** WORDS. 3136 *** USER FATAL MESSAGE 3136, MULTIPLE REFERENCES TO GRID (OR SCALAR) POINT ID NO. **** ON SEQGP CARDS. 3137 *** USER FATAL MESSAGE 3137, MULTIPLE REFERENCES TO SEQUENCE ID NO. **** ON SEQGP CARDS. 3138 *** USER FATAL MESSAGE 3138, SEQUENCE ID NO. **** ON SEQGP CARDS IS THE SAME AS A GRID (OR SCALAR) POINT ID NO. THAT HAS NOT BEEN RESEQUENCED. 3139 *** USER FATAL MESSAGE 3139, UNABLE TO PROCESS SEQEP DATA IN SUBROUTINE DPD1 DUE TO INSUFFICIENT CORE. ADDITIONAL CORE REQUIRED = **** WORDS. 3140 *** USER FATAL MESSAGE 3140, MULTIPLE REFERENCES TO EXTRA POINT ID NO. **** ON SEQEP CARDS. 3141 *** USER FATAL MESSAGE 3141, MULTIPLE REFERENCES TO SEQUENCE ID NO. **** ON SE0EP CARDS. 3142 *** USER FATAL MESSAGE 3142, SEQUENCE ID NO. **** ON SEQEP CARDS IS THE SAME AS AN EXTRA POINT ID NO. THAT HAS NOT BEEN RESEQUENCED. 3143 *** USER INFORMATION MESSAGE 3143, THE EIGENVALUES AND EIGENVECTORS FOUND ON THIS RESTART WILL BE APPENDED TO THE ******** EIGENVALUES AND EIGENVECTORS PREVIOUSLY CHECKPOINTED. This message is generated when the APPEND feature is being used in the case of the Determinant, Inverse Power, and FEER methods of real eigenvalue extraction. (See Section 3.4.7). 3144 *** USER WARNING MESSAGE 3144, EMGPRO FINDS ******** ELEMENTS (ELEMENT TYPE ***) PRESENT IN A HEAT FORMULATION AND IS REPLACING THE SAME BY ******** ELEMENTS (ELEMENT TYPE ***). In a HEAT formulation, element types CQDMEM1 and CQDMEM2 are automatically replaced by element type CQDMEM. 3145 *** USER FATAL MESSAGE 3145, COMPONENT 0 (OR BLANK) SPECIFIED FOR GRID POINT ******** ON ******** CARDS. 3146 *** USER FATAL MESSAGE 3146, NON-ZERO COMPONENT SPECIFIED FOR SCALAR POINT ******** ON ******** CARDS. 3147 *** USER FATAL MESSAGE 3147, ENFORCED DISPLACEMENT ON SPC CARDS SPECIFIED MORE THAN ONCE FOR THE SAME COMPONENT. SIL VALUE = ********. The use of DIAG 21 in the Executive Control Deck will show the SIL (Internal DOF) corresponding to the duplicated component. 3148 *** USER FATAL MESSAGE 3148, CRIGD3 (GENERAL RIGID) ELEMENT ******** IS NOT PROPERLY DEFINED. The six reference degrees of freedom selected for the element must together represent six independent components of motion. 3149 *** USER WARNING MESSAGE 3149, USER SPECIFIED NEIGHBORHOOD CENTERED AT ORIGIN NOT ALLOWED, CENTER SHIFTED TO THE RIGHT .001. Point of interest in the complex plane (ai, wai), closest to which the eigenvalues will be computed, was input as (0.0, 0.0) on an EIGC bulk data continuation card. The point automatically used is (.001, 0.0). 3150 *** USER WARNING MESSAGE 3150, DESIRED NUMBER OF EIGENVALUES ******** INVALID. SET = 1. Number of accurate roots desired, Ndl, was omitted, input as zero, or negative on an EIGC bulk data continuation card. The number automatically used is 1. 3151 *** USER WARNING MESSAGE 3151, DYNAMIC MATRIX IS SINGULAR (OCCURRENCE **) IN NEIGHBORHOOD CENTERED AT ******** ********. Point of interest in the complex plane (ai, wai), closest to which the eigenvalues will be computed, was input too close to an eigenvalue on an EIGC bulk data continuation card. The point is automatically shifted by adding .02 to both the real and imaginary parts. If the dynamic matrix is still singular, the next neighborhood, if any, is searched. 3152 *** USER INFORMATION MESSAGE 3152, SUBROUTINE ALLMAT OUTPUT EIGENVALUE **** IS NULL. When an eigenvalue output from subroutine ALLMAT is exactly zero, the formula for computing the associated theoretical error test fails. The magnitude of the eigenvalue is considered to be 10^-10 for use in that formula. 3153 *** USER WARNING MESSAGE 3153, ATTEMPT TO NORMALIZE NULL VECTOR IN SUBROUTINE CFEER4. NO ACTION TAKEN. An eigenvector output from subroutine ALLMAT is a zero vector. 3154 *** USER WARNING MESSAGE 3154, SIZE OF REDUCED PROBLEM DECREMENTED ONCE (NOW ****) DUE TO NULL ERROR ELEMENT. If subroutine CFEER4 receives a reduced tridiagonal matrix having error element dm+1 exactly (0,0), it is impossible to compute meaningful theoretical error estimates for any of the eigenvalues. The size of the reduced problem is reduced by one, so that dm becomes the new error element. 3155 *** USER WARNING MESSAGE 3155, REDUCED PROBLEM HAS VANISHED. NO ROOTS FOUND. If decrementing the size of the reduced problem (see message 3154) causes the size to become zero, the program continues to the next neighborhood, if any. 3156 *** USER WARNING MESSAGE 3156, SIZE OF REDUCED PROBLEM RESTORED TO **** BECAUSE NEXT ERROR ELEMENT WAS ALSO NULL. ERROR ELEMENT SET = **** ****. This message follows message 3154. If dm is also exactly zero (in addition to dm+1 being exactly zero), then the original reduced problem size is restored and dm+1 is set to (, 0), where = E/100 and E is the error tolerance on acceptable eigenvalues input on the EIGC bulk data card. 3157 *** USER WARNING MESSAGE 3157, FEER PROCESS MAY HAVE CALCULATED FEWER ACCURATE MODES **** THAN REQUESTED IN THE NEIGHBORHOOD OF **** ****. The desired number of eigenvalues specified in the EIGC bulk data continuation card exceeds the additional number that can be calculated by the Complex Tridiagonal Reduction (Complex FEER) method in the current neighborhood. 3158 *** USER WARNING MESSAGE 3158, NO ADDITIONAL MODES CAN BE FOUND BY FEER IN THE NEIGHBORHOOD OF **** ****. An initial pseudo-random vector cannot be made orthogonal to the existing set of orthogonal vectors (which come from Restart and from all prior-neighborhood sets of eigensolutions). 3159 *** USER INFORMATION MESSAGE 3159, ALL SOLUTIONS HAVE BEEN FOUND. The FEER method has solved the entire problem. Any additional neighborhoods (as specified by the presence of EIGC bulk data continuation cards) are ignored. 3160 *** USER INFORMATION MESSAGE 3160, MINIMUM OPEN CORE NOT USED BY FEER ********** WORDS (************ K BYTES). This message indicates the amount of open core, in both bytes and words, not used by FEER. 3161 *** USER WARNING MESSAGE 3161, DESIRED NUMBER OF EIGENSOLUTIONS ***** FOR NEIGHBORHOOD *** OF *** CENTERED AT ******** ******** EXCEEDS THE EXISTING NUMBER *****, ALL EIGENSOLUTIONS WILL BE SOUGHT. The desired number of eigenvalues specified on the EIGC bulk data continuation card exceeds the size of the eigenmatrix, which is the maximum possible number of existing eigenvalues. 3162 *** USER WARNING MESSAGE 3162, ATTEMPT TO NORMALIZE NULL VECTOR. NO ACTION TAKEN. The general vector normalization routine (CFNOR1 or CFNOR2) has a zero vector input to it. 3163 *** USER WARNING MESSAGE 3163, ALL **** SOLUTIONS HAVE FAILED ACCURACY TEST. NO ROOTS FOUND. The number of eigensolutions passing the relative error test is zero. The maximum allowable error for the relative error test is specified in field 7 of the EIGC bulk data card. A detailed list of the computed error bounds could have been obtained by requesting DIAG 12 in the Executive Control Deck. 3164 *** USER INFORMATION MESSAGE 3164, ALL **** SOLUTIONS ARE ACCEPTABLE. All the eigensolutions obtained in the reduced problem corresponding to the point of interest pass the relative error test. The maximum allowable error for the relative error test is specified in field 7 of the EIGC bulk data card. A detailed list of the computed error estimates could have been obtained by requesting DIAG 12 in the Executive Control Deck. 3165 *** USER INFORMATION MESSAGE 3165, **** SOLUTIONS HAVE BEEN ACCEPTED AND **** SOLUTIONS HAVE BEEN REJECTED. In each neighborhood defined by a center, some eigensolutions passed the relative error test and some did not. 3166 *** USER INFORMATION MESSAGE 3166, ***** MORE ACCURATE EIGENSOLUTIONS THAN THE ***** REQUESTED HAVE BEEN FOUND FOR NEIGHBORHOOD *** OF *** CENTERED AT ******** ********. USE DIAG 12 TO DETERMINE ERROR ESTIMATES. The number of eigensolutions passing the relative error test is greater than the number requested on the corresponding EIGC bulk data continuation card. The maximum allowable error for the relative error test is specified in field 7 of the EIGC bulk data card. A detailed list of the computed error estimates could have been obtained by requesting DIAG 12 in the Executive Control Deck. 3169 *** USER WARNING MESSAGE 3169, PRIMARY ID ******** ON A CNGRNT CARD ALSO USED AS A SECONDARY ID ON THE SAME CARD. SECONDARY ID IGNORED. 3170 *** USER FATAL MESSAGE 3170, PRIMARY ID ******** ON A CNGRNT CARD ALSO USED AS A SECONDARY ID ON ANOTHER CNGRNT CARD. 3171 *** USER FATAL MESSAGE 3171, SECONDARY ID ******** SPECIFIED AS CONGRUENT TO MORE THAN ONE PRIMARY ID. 3172 *** USER WARNING MESSAGE 3172, SECONDARY ID ******** REDUNDANTLY SPECIFIED ON CNGRNT CARDS. REDUNDANCIES IGNORED. 3173 *** USER WARNING MESSAGE 3173, NO NON-ZERO MATERIAL COORDINATE SYSTEM IDS ENCOUNTERED IN MODULE CURV. {STRESSES/STRAINS/CURVATURES} IN MATERIAL COORDINATE SYSTEM NOT COMPUTED. Stresses or strains/curvatures are computed in module CURV only if non-zero material coordinate system ids are specified. 3174 *** SYSTEM FATAL MESSAGE 3174, SUBROUTINE CURV* HAS RETURNED WITH ERROR CONDITION ***, LOCATION CODE = *** IN SUBROUTINE CURV* FILE NUMBER = ***. The information supplied by the message should enable a programmer to investigate the cause of the error. 3175 *** USER FATAL MESSAGE 3175, TOTAL NUMBER OF DEGREES OF FREEDOM IN THE PROBLEM (****) EXCEEDS 65535. 3176 *** USER FATAL MESSAGE 3176, BAR ELEMENT NO. **** HAS ILLEGAL GEOMETRY OR CONNECTIONS. 3178 *** USER FATAL MESSAGE 3178, LOAD SET **** NOT FOUND. REQUIRED FOR DEFINITION OF COMBINATION LOAD ****. 3179 *** USER FATAL MESSAGE 3179, DUPLICATE LOAD SET **** FOUND IN DEFINITION OF COMBINATION LOAD ****. 3180 *** USER FATAL MESSAGE 3180, INDEPENDENT COMPONENT SPECIFIED MORE THAN ONCE IN AN MPC RELATIONSHIP. SIL VALUE = ****. 3181 *** USER FATAL MESSAGE 3181, ATTEMPT TO PERFORM CHOLESKY DECOMPOSITION ON A NEGATIVE DEFINITE MATRIX IN SUBROUTINE SDCOMP. 3182 *** USER WARNING MESSAGE 3182, INSUFFICIENT CORE TO PROCESS ALL CNGRNT CARDS. ADDITIONAL CORE NEEDED = **** WORDS. 3199 *** USER WARNING MESSAGE 3199, NON-FATAL MESSAGES MAY HAVE BEEN LOST BY ATTEMPTING TO QUEUE MORE THAN ***** MESSAGES. 3300 *** SYSTEM WARNING MESSAGE 3300, INVALID PARAMETER **** **** SUPPLIED TO MODULE DIAGONAL, COLUMN SUBSTITUTED. 3301 *** USER FATAL MESSAGE 3301, IHEX* ELEMENT NUMBER ******** INSUFFICIENT CORE TO COMPUTE ELEMENT MATRIX. 3302 *** USER FATAL MESSAGE 3302, IHEX* ELEMENT NUMBER ******** ILLEGAL GEOMETRY, text (see below). The type of geometry error is identified in "text". The possibilities are: AR EXCEEDED, ALFA EXCEEDED, BETA EXCEEDED Either correct the element or increase the allowable value on the PIHEX card for this element. REVERSED NUMBERING The element was numbered in a clockwise fashion rather than counter-clockwise as required. This would result in a left-handed element coordinate system. Correct the numbering sequence on the CIHEXi card for this element. COORDINATES OF TWO POINTS ARE THE SAME The coordinates of all of the connected points of the element must be different. 3303 *** USER FATAL MESSAGE 3303, STRESSES REQUESTED FOR SET *** WHICH CONTAINS NO VALID ELEMENT ID-S. The set of elements for which stresses were requested in this subcase contains only IDs for nonexistent elements. 3304 *** USER FATAL MESSAGE 3304, PLOAD3 CARD FROM LOAD SET ******** REFERENCES MISSING OR NON-ISOPARAMETRIC ELEMENT ********. 3305 *** USER FATAL MESSAGE 3305, PLOAD3 CARD FROM LOAD SET ******** HAS INVALID GRID POINT NUMBERS FOR ELEMENT ********. Either the element does not connect the specified grid points, or the grid points do not identify the diagonal of a face of the element. 3306 *** USER FATAL MESSAGE 3306, SINGULAR JACOBIAN MATRIX FOR ISOPARAMETRIC ELEMENT NUMBER ********. The element is severely warped or the outer surface of the element is folded through itself. Check the connection card for this element and the coordinates of the points it connects. 4000 *** USER WARNING MESSAGE 4000, ONE SIDE OF ELEMENT ******** CONNECTING FOUR POINTS IS NOT APPROXIMATELY PLANAR. Check CWEDGE and CHEXAi cards for order of grid point identification numbers, or incorrect grid point identification numbers. =PAGE= 6.6 FUNCTIONAL MODULE MESSAGES (4001 THROUGH 5000) 4001 *** USER FATAL MESSAGE 4001, ELEMENT ******** DOES NOT HAVE CORRECT GEOMETRY. 4002 *** USER FATAL MESSAGE 4002, MODULE SSG1 DETECTS BAD OR REVERSED GEOMETRY FOR ELEMENT ID ********. Check CWEDGE and CHEXAi cards for order of grid point identification numbers or incorrect grid point identification numbers. Subtetrahedra must have nonzero volume. 4003 *** USER FATAL MESSAGE 4003, AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED UNDER MATERIAL ******** ID FOR ELEMENT ID ********. Solid WEDGE and HEXAi elements must not have Poisson's ratio equal to 0.5. 4004 *** USER FATAL MESSAGE 4004, MODULE SMA1 DETECTS BAD OR REVERSED GEOMETRY FOR ELEMENT ID ********. Check CWEDGE and CHEXAi cards for order of grid point identification numbers, or incorrect grid point identification numbers. Subtetrahedra must have nonzero volume. 4005 *** USER FATAL MESSAGE 4005, AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED UNDER MATERIAL ******** ID FOR ELEMENT ID ********. Solid TETRA elements must not have Poisson's ratio equal to 0.5. 4010 *** USER FATAL MESSAGE 4010, TEMPP3 BULK DATA CARD WITH SETID = ******** AND ELEMENT ID = ******** DOES NOT HAVE ASCENDING VALUES SPECIFIED FOR Z. 4011 *** USER FATAL MESSAGE 4011, ELEMENT TEMPERATURE SET ******** CONTAINS MULTIPLE TEMPERATURE DATA SPECIFIED FOR ELEMENT ID ********. Temperature for element is specified on more than one bulk data card. 4012 *** USER FATAL MESSAGE 4012, THERE IS NO ELEMENT, GRID POINT, OR DEFAULT TEMPERATURE DATA FOR TEMPERATURE SET ******** WITH RESPECT TO ELEMENT ********. 4013 *** USER FATAL MESSAGE 4013, PROBLEM LIMITATION OF 66 TEMPERATURE SETS HAS BEEN EXCEEDED. 4014 *** SYSTEM FATAL MESSAGE 4014, ROUTINE EDTL DETECTS BAD DATA ON TEMPERATURE DATA BLOCK FOR SET ID = ********. Data block GPTT should be investigated. 4015 *** SYSTEM WARNING MESSAGE 4015, ELEMENT THERMAL AND DEFORMATION LOADING NOT COMPUTED FOR ILLEGAL ELEMENT TYPE ******** IN MODULE SSG1. Only certain elements have algorithms for enforced deformation or thermal loading. This element type will not produce a load. Check DEFORM and TEMPP1, TEMPP2, TEMPP3, and TEMPRB bulk data cards. 4016 *** USER FATAL MESSAGE 4016, THERE IS NO TEMPERATURE DATA FOR ELEMENT ******** IN SET ********. 4017 *** USER FATAL MESSAGE 4017, THERE IS NO TEMPERATURE DATA FOR ELEMENT ******** IN SET ********. 4018 *** USER FATAL MESSAGE 4018, A SINGULAR MATERIAL MATRIX -D- FOR ELEMENT ******** HAS BEEN DETECTED BY ROUTINE SSGKHI WHILE TRYING TO COMPUTE THERMAL LOADS WITH TEMPP2 CARD DATA. The element bending load to curvature relation is at fault and cannot be inverted. 4019 *** SYSTEM FATAL MESSAGE 4019, SDR2E DETECTS INVALID TEMPERATURE DATA FOR ********. Data block GPTT should be investigated. 4020 *** SYSTEM FATAL MESSAGE 4020, TA1A HAS PICKED UP TEMPERATURE SET ******** AND NOT THE REQUESTED SET ********. The requested temperature set ID for temperature-dependent material properties cannot be found in data block GPTT. 4021 *** SYSTEM FATAL MESSAGE 4021, TA1B HAS PICKED UP TEMPERATURE SET ******** AND NOT THE REQUESTED SET ********. The requested temperature set ID for temperature-dependent material properties cannot be found in data block GPTT. 4022 *** USER FATAL MESSAGE 4022, TA1B FINDS NO ELEMENT, GRIDPOINT, OR DEFAULT TEMPERATURE DATA FOR ELEMENT ID = ********. 4023 *** USER FATAL MESSAGE 4023, TA1A FINDS NO ELEMENT, GRIDPOINT, OR DEFAULT TEMPERATURE DATA FOR ELEMENT ID = ********. 4024 *** USER FATAL MESSAGE 4024, NO CYJOIN CARDS WERE SUPPLIED. 4025 *** USER FATAL MESSAGE 4025, NO SIDE 1 DATA FOUND. 4026 *** USER FATAL MESSAGE 4026, TOO MANY SIDE 1 CARDS. 4027 *** USER FATAL MESSAGE 4027, NUMBER OF ENTRIES IN SIDE 1 NOT EQUAL TO NUMBER IN SIDE 2. 4028 *** USER FATAL MESSAGE 4028, THE CODE FOR GRID POINT, ********** DOES NOT MATCH THE CODE FOR GRID POINT **********. A GRID point on SIDE 1 must be connected to a GRID point on SIDE 2 and a SCALAR point on SIDE 1 must be connected to a SCALAR point on SIDE 2. 4029 *** USER FATAL MESSAGE 4029, GRID POINT, ********** APPEARS IN BOTH SIDE LISTS. 4030 *** USER WARNING MESSAGE 4030, COMPONENT *** OF GRID POINTS, ********** AND ********** CANNOT BE CONNECTED. 4031 *** USER FATAL MESSAGE 4031, INSUFFICIENT CORE = **** TO READ DATA ON AXIF CARD. 4032 *** USER WARNING MESSAGE 4032, NO COMPONENTS OF GRID POINTS, ********** AND ********** WERE CONNECTED. 4033 *** USER FATAL MESSAGE 4033, COORDINATE SYSTEM ID = **** AS SPECIFIED ON AXIF CARD IS NOT PRESENT AMONG ANY OF CORD1C, CORD2C, OR CORD2S CARD TYPES. Cylindrical type assumed for continuing data check. 4034 *** USER FATAL MESSAGE 4034, INSUFFICIENT CORE TO HOLD GRIDB CARD IMAGES. ADDITIONAL CORE NEEDED = **** WORDS. 4035 *** USER FATAL MESSAGE 4035, THE FLUID DENSITY HAS NOT BEEN SPECIFIED ON A BDYLIST CARD AND THERE IS NO DEFAULT FLUID DENSITY SPECIFIED ON THE AXIF CARD. 4036 *** USER FATAL MESSAGE 4036, INSUFFICIENT CORE TO BUILD BOUNDARY LIST TABLE. 4037 *** USER FATAL MESSAGE 4037, GRID POINT ********** IS LISTED MORE THAN ONCE. 4038 *** USER FATAL MESSAGE 4038, RINGFL CARD HAS ID = **** WHICH HAS BEEN USED. An identification number of a RINGFL card is not unique. 4039 *** USER FATAL MESSAGE 4039, NO COORDINATE SYSTEM DEFINED FOR GRID POINT **********. 4040 *** USER FATAL MESSAGE 4040, ID = **** APPEARS ON A BDYLIST CARD, BUT NO RINGFL CARD IS PRESENT WITH THE SAME ID. 4041 *** USER FATAL MESSAGE 4041, ID = **** IS OUT OF PERMISSIBLE RANGE OF 1 TO 499999. The identification number of a RINGFL card is too large to be processed. 4042 *** USER FATAL MESSAGE 4042, COORDINATE SYSTEM IS CYLINDRICAL BUT RINGFL CARD ID = **** HAS A NONZERO X2 VALUE. The azimuthal angle of a RINGFL point must be zero. 4043 *** USER FATAL MESSAGE 4043, COORDINATE SYSTEM IS SPHERICAL BUT RINGFL CARD ID = **** HAS A NONZERO X3 VALUE. The azimuthal angle of a RINGFL point must be zero. 4044 *** USER FATAL MESSAGE 4044, RINGFL CARD ID = **** HAS SPECIFIED A ZERO RADIAL LOCATION. 4045 *** USER FATAL MESSAGE 4045, THE BOUNDARY LIST ENTRY FOR ID = **** HAS A ZERO CROSS-SECTIONAL LENGTH. A hydroelastic boundary cannot be defined between two RINGFL points having the same location. Check BDYLIST and RINGFL. 4047 *** USER FATAL MESSAGE 4047, INSUFFICIENT CORE TO HOLD RINGFL IMAGES. ADDITIONAL CORE NEEDED = **** WORDS. 4048 *** USER FATAL MESSAGE 4048, THE FLUID DENSITY HAS NOT BEEN SPECIFIED ON A FSLIST CARD AND THERE IS NO DEFAULT FLUID DENSITY SPECIFIED ON THE AXIF CARD. 4049 *** USER FATAL MESSAGE 4049, INSUFFICIENT CORE TO BUILD FREE SURFACE LIST TABLE. ADDITIONAL CORE NEEDED = **** WORDS. 4050 *** USER FATAL MESSAGE 4050, FSLIST CARD HAS INSUFFICIENT IDF DATA, OR FSLIST DATA MISSING. A referenced RINGFL point does not exist or the FSLIST card is in error. At least two points must be defined. 4051 *** USER FATAL MESSAGE 4051, AN MPC CARD HAS A SET ID SPECIFIED = 102. SET 102 IS ILLEGAL WHEN FLUID DATA IS PRESENT. This set identification number is reserved for internal use in hydroelastic problems. 4052 *** USER FATAL MESSAGE 4052, IDF = **** ON A FREEPT CARD DOES NOT APPEAR ON ANY FSLIST CARD. A referenced RINFGL point must also appear on a FSLIST card. 4053 *** USER FATAL MESSAGE 4053, INSUFFICIENT CORE TO PERFORM OPERATIONS REQUIRED AS A RESULT OF FREEPT OR PRESPT DATA CARDS. ADDITIONAL CORE NEEDED = **** WORDS. 4054 *** USER WARNING MESSAGE 4054, STRESSES OR FORCES REQUESTED FOR SET(S) WHICH CONTAIN NO VALID ELEMENTS. Stress or force output requests are not valid for fluid elements. 4055 *** USER FATAL MESSAGE 4055, SET ID = 102 MAY NOT BE USED FOR SPC CARDS WHEN USING THE HYDROELASTIC-FLUID ELEMENTS. This set identification number is reserved for internal use in hydroelastic problems. 4056 *** USER FATAL MESSAGE 4056, RECORD ID **** **** IS OUT OF SYNC ON DATA BLOCK NUMBER **** AN IFP4 SYSTEM ERROR. The record identification numbers are the values of LOCATE record ID. The data block numbers are the GINO file numbers. Error implies that IFP4 is possibly operating on the wrong data block. This system error should not occur. Message comes from IFP4B. 4057 *** USER FATAL MESSAGE 4057, GRIDB CARD WITH ID = **** HAS A REFERENCE IDF **** WHICH DOES NOT APPEAR IN A BOUNDARY LIST. 4058 *** USER FATAL MESSAGE 4058, THE FLUID DENSITY HAS NOT BEEN SPECIFIED ON A CFLUID CARD WITH ID = *** AND THERE IS NO DEFAULT ON THE AXIF CARD. 4059 *** USER FATAL MESSAGE 4059, THE FLUID BULK MODULUS HAS NOT BEEN SPECIFIED ON A CFLUID CARD WITH ID = **** AND THERE IS NO DEFAULT ON THE AXIF CARD. 4060 *** SYSTEM FATAL MESSAGE 4060, COORDINATE SYSTEM = **** CANNOT BE FOUND IN CSTM DATA. Data blocks MATPOOL and/or CSTM have been changed illegally. 4061 *** SYSTEM FATAL MESSAGE 4061, CONNECTED FLUID POINT ID = **** IS MISSING BGPDT DATA. Data blocks MATPOOL and/or BGPDT have been changed illegally. 4062 *** USER FATAL MESSAGE 4062, DMIG BULK DATA CARD SPECIFIES DATA BLOCK **** WHICH ALSO APPEARS ON A DMIAX CARD. A direct input matrix may not be specified by both types of bulk data cards. 4063 *** USER FATAL MESSAGE 4063, ILLEGAL VALUE **** FOR PARAMETER CTYPE. 4064 *** USER FATAL MESSAGE 4064, ILLEGAL VALUES ******** FOR PARAMETERS NSEGS, KMAX. 4065 *** USER FATAL MESSAGE 4065, ILLEGAL VALUE ******** FOR PARAMETER NLOAD. 4066 *** USER FATAL MESSAGE 4066, SECOND OUTPUT DATA BLOCK MUST NOT BE PURGED. The transformation matrix between physical and symmetric components does not exist. Ensure that the Case Control subcases are specified correctly and that the component loads are properly ordered. 4067 *** USER FATAL MESSAGE 4067, VIN HAS ******** COLS, GCYC HAS ******** ROWS. Follows message 4064 or 4065 indicating illegal values for NSEGS, KMAX, or NLOAD. VIN is the first input data block. 4081 *** USER FATAL MESSAGE 4081, AXSLOT DATA CARD IS NOT PRESENT OR IS INCORRECT. Acoustic analysis data is present and this data card is necessary. 4082 *** USER FATAL MESSAGE 4082, INSUFFICIENT CORE TO HOLD ALL GRIDS CARD IMAGES. Executive Module IFP5 must hold this data in core. Increase core size or decrease amount of data. 4083 *** USER FATAL MESSAGE 4083, INSUFFICIENT CORE TO HOLD ALL GRIDF CARD IMAGES. Executive Module IFP5 must hold this data in core. Increase core size or decrease amount of data. 4084 *** USER FATAL MESSAGE 4084, INSUFFICIENT CORE TO HOLD ALL GRIDF CARD IMAGES BEING CREATED INTERNALLY DUE TO GRIDS CARDS SPECIFYING AN IDF. Executive Module IFP5 is creating GRIDF cards from GRIDS cards. Increase core size. 4085 *** USER FATAL MESSAGE 4085, INSUFFICIENT CORE TO CONSTRUCT ENTIRE BOUNDARY TABLE FOR SLBDY DATA CARDS. Executive Module IFP5 requires five words of core for each entry in the SLBDY cards. 4086 *** USER FATAL MESSAGE 4086, CELAS2 DATA CARD HAS ID = *** WHICH IS GREATER THAN 10000000, AND 10000000 IS THE LIMIT FOR CELAS2 ID WITH ACOUSTIC ANALYSIS DATA CARDS PRESENT. Executive Module IFP5 is generating CELAS2 images and a possible conflict of ID numbers exists. 4087 *** USER FATAL MESSAGE 4087, SLBDY ID = *** DOES NOT APPEAR ON ANY GRIDS DATA CARD. The SLBDY data card has a point listed which does not exist in the data. 4088 *** USER FATAL MESSAGE 4088, ONE OR MORE OF THE FOLLOWING ID-S NOT EQUAL TO -1 HAVE INCORRECT OR NO GEOMETRY DATA. ID = ***, ID = ***, ID = ***. The listed GRIDS points may have a bad radius or a slot width greater than geometrically possible. 4089 *** USER FATAL MESSAGE 4089, RHO AS SPECIFIED ON SLBDY OR AXSLOT DATA CARD IS 0.0 FOR ID = ***. A value of density is required to formulate the slot boundary matrix tea. 4090 *** USER FATAL MESSAGE 4090, ONE OF THE FOLLOWING NON-ZERO IDENTIFICATION NUMBERS APPEARS ON SOME COMBINATION GRID, GRIDS, OR GRIDF BULK DATA CARDS. ID = ***, ID = ***, ID = ***. All GRID, SPOINT, EPOINT, GRIDS, and GRIDF data cards should have unique identification numbers. 4091 *** USER FATAL MESSAGE 4091, BAD GEOMETRY OR ZERO COEFFICIENT FOR SLOT ELEMENT NUMBER ***. The listed CSLOT3 or CSLOT4 element has its connected points defining zero area or its density equal to zero. 4100 *** SYSTEM FATAL MESSAGE 4100, OUTPUT3 UNABLE TO OPEN DATA BLOCK ********. 4101 *** SYSTEM FATAL MESSAGE 4101, OUTPUT3 UNABLE TO FIND NAME FOR DATA BLOCK ********. 4102 *** SYSTEM FATAL MESSAGE 4102, OUTPUT3 EOF. 4103 *** USER INFORMATION MESSAGE 4103, OUTPUT3 HAS PUNCHED MATRIX DATA BLOCK ******** ONTO DMI CARDS. 4104 *** USER FATAL MESSAGE 4104, ATTEMPT TO PUNCH MORE THAN 99999 DMI CARDS FOR A SINGLE MATRIX. 4105 *** USER INFORMATION MESSAGE 4105, DATA BLOCK ******** RETRIEVED FROM {USER/FORTRAN} TAPE **** NAME OF DATA BLOCK WHEN PLACED ON {USER/FORTRAN} TAPE WAS ********. 4106 *** SYSTEM FATAL MESSAGE 4106, MODULE INPUTT1 - SHORT REC. 4107 *** SYSTEM FATAL MESSAGE 4107, SUBROUTINE INPTT1 UNABLE TO OPEN NASTRAN FILE ****. 4108 *** SYSTEM FATAL MESSAGE 4108, SUBROUTINE {INPTT1/INPTT2} UNABLE TO OPEN OUTPUT DATA BLOCK ****. 4109 *** USER FATAL MESSAGE 4109, TAPE **** CANNOT BE SWITCHED. FILE **** IS NOT A TAPE. 4111 *** USER FATAL MESSAGE 4111, MODULE INPUTT1 IS UNABLE TO SKIP FORWARD ********** DATA BLOCKS ON PERMANENT NASTRAN FILE **** NUMBER OF DATA BLOCKS SKIPPED = *****. 4112 *** USER FATAL MESSAGE 4112, MODULE INPUTT1 - ILLEGAL VALUE FOR SECOND PARAMETER = *******************. 4113 *** USER FATAL MESSAGE 4113, MODULE {INPUT1/INPUTT2} - ILLEGAL VALUE FOR FIRST PARAMETER = *******************. 4114 *** USER INFORMATION MESSAGE 4114, DATA BLOCK ******** WRITTEN ON {NASTRAN FILE/FORTRAN UNIT} ****, TRLR = ************. 4115 *** SYSTEM FATAL MESSAGE 4115, MODULE {OUTPUT1/OUTPUT2} - SHORT REC. 4117 *** SYSTEM FATAL MESSAGE 4117, SUBROUTINE OUTPT1 UNABLE TO OPEN NASTRAN FILE ****. 4118 *** USER FATAL MESSAGE 4118, ***** MODULE OUTPUT1 IS UNABLE TO SKIP FORWARD ********** DATA BLOCKS ON PERMANENT NASTRAN FILE ****. **** NUMBER OF DATA BLOCKS SKIPPED = *****. 4119 *** USER FATAL MESSAGE 4119, MODULE OUTPUT1 - ILLEGAL VALUE FOR SECOND PARAMETER = *******************. 4120 *** USER FATAL MESSAGE 4120, MODULE {OUTPUT1/OUTPUT2} - ILLEGAL VALUE FOR FIRST PARAMETER = *******************. 4121 *** USER FATAL MESSAGE 4121, ONLY ONE (1) AXIF CARD ALLOWED IN BULK DATA. 4122 *** USER FATAL MESSAGE 4122, AXIF CARD REQUIRED. 4123 *** USER FATAL MESSAGE 4123, ONLY ONE (1) FLSYM CARD ALLOWED IN BULK DATA. 4124 *** USER WARNING MESSAGE 4124, THE SPCADD OR MPCADD UNION CONSISTS OF A SINGLE SET. 4125 *** USER FATAL MESSAGE 4125, MAXIMUM ALLOWABLE HARMONIC ID IS 99. DATA CONTAINS MAXIMUM = ****. 4126 *** USER FATAL MESSAGE 4126, BAD DATA OR FORMAT OR NONUNIQUE NAME, DMIAX ****. 4127 *** USER FATAL MESSAGE 4127, USER TAPE **** NOT SET UP. 4128 *** USER FATAL MESSAGE 4128, MODULE OUTPUT1 - END-OF-FILE ENCOUNTERED WHILE ATTEMPTING TO READ TAPE ID CODE ON USER TAPE ****. 4129 *** USER FATAL MESSAGE 4129, MODULE OUTPUT1 - END-OF-RECORD ENCOUNTERED WHILE ATTEMPTING TO READ TYPE ID CODE ON USER TAPE ****. 4130 *** USER FATAL MESSAGE 4130, MODULE {OUTPUT1/OUTPUT2} - ILLEGAL TAPE CODE HEADER = *******************. 4131 *** USER WARNING MESSAGE 4131, {USER/FORTRAN} TAPE ID CODE - ******** - DOES NOT MATCH THIRD {OUTPUT1/OUTPUT2} DMAP PARAMETER - ********. 4132 *** USER FATAL MESSAGE 4132, MODULE INPUTT1 - END-OF-FILE ENCOUNTERED WHILE ATTEMPTING TO READ TAPE ID CODE ON USER TAPE ****. 4133 *** USER FATAL MESSAGE 4133, MODULE INPUTT1 - END-OF-RECORD ENCOUNTERED WHILE ATTEMPTING TO READ TAPE ID CODE ON USER TAPE ****. 4134 *** USER FATAL MESSAGE 4134, MODULE {INPUTT1/INPUTT2} ILLEGAL TAPE CODE HEADER = *******************. 4135 *** USER WARNING MESSAGE 4135, USER TAPE ID CODE - ******** DOES NOT MATCH THIRD {INPUTT1/INPUTT2} DMAP PARAMETER - ******** -. 4136 *** USER FATAL MESSAGE 4136, USER TAPE ID CODE - ******** - DOES NOT MATCH THIRD {INPUTT1/INPUTT2} DMAP PARAMETER - ******** -. 4137 *** USER WARNING MESSAGE 4137, ALL OUTPUT DATA BLOCKS FOR {INPUTT1/INPUTT2} ARE PURGED. 4138 *** USER WARNING MESSAGE 4138, DATA BLOCK ******** (DATA BLOCK COUNT = ****) HAS PREVIOUSLY BEEN RETRIEVED FROM {USER/FORTRAN} TAPE **** AND WILL BE IGNORED. 4139 *** USER INFORMATION MESSAGE 4139, DATA BLOCK ******** RETRIEVED FROM {USER/FORTRAN} TAPE **** (DATA BLOCK COUNT = *****). 4140 *** USER WARNING MESSAGE 4140, SECONDARY VERSION OF DATA BLOCK HAS REPLACED EARLIER ONE. 4141 *** USER WARNING MESSAGE 4141, ONE OR MORE DATA BLOCKS NOT FOUND ON {USER/NASTRAN} TAPE. 4142 *** USER FATAL MESSAGE 4142, ONE OR MORE DATA BLOCKS NOT FOUND ON USER TAPE. 4143 *** USER INFORMATION MESSAGE 4143, THIS IS AN UNMODIFIED RESTART. 4144 *** USER INFORMATION MESSAGE 4144, THIS IS A MODIFIED RESTART. 4145 *** USER INFORMATION MESSAGE 4145, THIS IS A MODIFIED RESTART INVOLVING RIGID FORMAT SWITCH. 4146 *** SYSTEM FATAL MESSAGE 4146, LOGIC ERROR IN SUBROUTINE XGPI WHILE PROCESSING DATA CHANGES FOR MODIFIED RESTART. 4147 *** USER INFORMATION MESSAGE 4147, NOTE THAT ADDITIONAL DMAP INSTRUCTIONS (NOT INDICATED BY AN * IN THE DMAP SOURCE LISTING) NEED TO BE FLAGGED FOR EXECUTION IN ORDER TO GENERATE CERTAIN REQUIRED DATA BLOCKS. SUCH INSTRUCTIONS AND THE ASSOCIATED DATA BLOCKS ARE IDENTIFIED BELOW. 4148 *** USER INFORMATION MESSAGE 4148, NOTE THAT ADDITIONAL DMAP INSTRUCTIONS (NOT INDICATED BY AN * IN THE DMAP SOURCE LISTING) NEED TO BE FLAGGED FOR EXECUTION SINCE THIS UNMODIFIED RESTART INVOLVES DMAP LOOPING AND THE REENTRY POINT IS WITHIN A DMAP LOOP. SUCH INSTRUCTIONS ARE IDENTIFIED BELOW. THE EXECUTION WILL, HOWEVER, RESUME AT THE LAST REENTRY POINT (DMAP INSTRUCTION NO. ****). 4149 *** USER FATAL MESSAGE 4149, ATTEMPT TO ADD MATRICES OF UNEQUAL ORDER IN MODULE {ADD/ADD5}. 5000 *** USER FATAL MESSAGE 5000, NEG. OR ZERO RADIUS DETECTED FOR CFLUID2 ELEMENT. ELEMENT NO. ****. =PAGE= 6.7 FUNCTIONAL MODULE MESSAGES (5001 THROUGH 6000) 5001 *** USER FATAL MESSAGE 5001, NEG. OR ZERO RADIUS DETECTED FOR CFLUID3 OR CFLUID4 ELEMENT. ELEMENT NO. ****. 5002 *** USER FATAL MESSAGE 5002, INTERIOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES. CFLUID4 ELEMENT NO. ****. 5003 *** USER FATAL MESSAGE 5003, ZERO XZ VALUE ON RINGFL CARD WITH SPHERICAL COORDINATES. FLUID POINT ID = ****. 5004 *** USER FATAL MESSAGE 5004, FLUID POINT ID ON CFLUIDI OR RINGFL CARD AT 99999. 5011 *** USER FATAL MESSAGE 5011, FIRST PARAMETER ***** NE TRAILER RECORD PARAMETER *****. 5012 *** USER FATAL MESSAGE 5012, ENTRY ***** OF SIL TABLE INCOMPATIBLE WITH NEXT ENTRY. =PAGE= 6.8 FUNCTIONAL MODULE MESSAGES (6001 THROUGH 7000) 6001 *** USER FATAL MESSAGE 6001, SUBSTRUCTURE DATA IS REQUIRED WITH THIS APPROACH. The program expects a SUBSTRUCTURE card following the CEND card if APP DISP, SUBS was used. 6002 *** USER WARNING MESSAGE 6002, INCORRECT PHASE DATA. The second word on the substructure command should be PHASEi, i = 1, 2, 3. The default is 2. 6003 *** USER FATAL MESSAGE 6003, ILLEGAL COMMAND OR OPTION DEFINED ON PREVIOUS CARD. The program does not recognize the previous card. If any "subcommand" cards follow this error, they may produce this message until a legitimate command card is encountered. 6004 *** USER WARNING MESSAGE 6004, NO PREFIX DEFINED AFTER EQUIVALENCE COMMAND. A prefix must be defined to identify the equivalent lower level basic substructures. To equivalence a basic substructure also requires that the prefix be defined. 6005 *** USER FATAL MESSAGE 6005, ILLEGAL OR MISSING INPUT DATA GIVEN FOR PREVIOUS COMMAND. Either the basic command data is insufficient or mandatory additional subcommands are missing. 6006 *** USER FATAL MESSAGE 6006, DMAP ALTERS INTERFERE WITH SUBSTRUCTURE ALTERS. DMAP instruction numbers on user ALTER data cards overlap or conflict with sections automatically modified. Use DIAG 23 to print DMAP ALTER package or see Sections 5 and 3. Note that card APP DISPLACEMENT, SUBS, 1 suppresses automatic generation of DMAP instructions. 6007 *** SYSTEM FATAL MESSAGE 6007, IMPROPER FILE SETUP FOR ****. An external I/O operation has been defined but the file is missing or the card is improper. Occurs due to previously listed errors or from an illegal format in the NPTP or CASECC file. 6008 *** USER FATAL MESSAGE 6008, ILLEGAL INPUT ON THE PREVIOUS COMMAND. MISSING FILE NAME FOR I/O OPERATION. The EXIO commands, SOFIN, SOFOUT, DUMP, etc. require a file name. 6009 *** SYSTEM FATAL MESSAGE 6009, UNRECOVERABLE ERROR CONDITIONS IN SUBROUTINE ASDMAP. An unusual combination of previously listed errors or program errors will cause this condition. 6010 *** SYSTEM FATAL MESSAGE 6010, ILLEGAL VARIABLE TO BE SET IN DMAP STATEMENT, (N). The system has encountered an illegal type of word to be inserted in a DMAP sequence. For example, a floating point number is used instead of an integer on an input card. 6011 *** USER FATAL MESSAGE 6011, MISSING PASSWORD OR SOF DATA. The SOF and PASSWORD cards are mandatory. At least one SOF file, SOF(1), must be defined. 6012 *** SYSTEM FATAL MESSAGE 6012, FILE=**** IS PURGED OR NULL AND IS REQUIRED IN PHASE1 SUBSTRUCTURE ANALYSIS. The error will occur due to user DMAP ALTERs or if no grid or scalar points are defined. 6013 *** USER FATAL MESSAGE 6013, ILLEGAL TYPE OF POINT DEFINED FOR SUBSTRUCTURE ANALYSIS. POINT NUMBER=********. An illegal type of grid point (that is, aero or axisymmetric) has been encountered. 6014 *** USER FATAL MESSAGE 6014, INSUFFICIENT CORE TO LOAD TABLES IN MODULE SUBPH1, CORE = ********. At least three words of core per grid point are required. 6015 *** USER FATAL MESSAGE 6015, TOO MANY CHARACTERS TO BE INSERTED IN A DMAP LINE. N=****. A BCD word has been defined with too many characters to fit the space in the DMAP. (Usual limit = 8). Message could also occur if any of the subroutines ASCMxx has an error. 6016 *** USER FATAL MESSAGE 6016, TOO MANY DIGITS TO BE INSERTED IN DMAP VALUE=***. An integer is limited to eight digits. 6017 *** USER FATAL MESSAGE 6017, MISSING ENDSUBS CARD. 6022 *** USER FATAL MESSAGE 6022, SUBSTRUCTURE ***, GRID POINT ***, COMPONENT ***, REFERENCED ON CARD DOES NOT EXIST IN SOLUTION STRUCTURE ***. 6023 *** USER WARNING MESSAGE 6023, REQUESTED PLOT SET NO. ******************* HAS NOT BEEN DEFINED. The requested set must be defined in the plot control deck in Case Control. 6101 *** SYSTEM FATAL MESSAGE 6101, REQUESTED SOF ITEM DOES NOT EXIST. ITEM ***, SUBSTRUCTURE ***. Either the item has never been created or it only pseudo exists in a prior dry run. 6102 *** SYSTEM FATAL MESSAGE 6102, REQUESTED SUBSTRUCTURE DOES NOT EXIST. ITEM ***, SUBSTRUCTURE ***. You have probably misspelled the substructure name or is using the wrong SOF. 6103 *** SYSTEM FATAL MESSAGE 6103, REQUESTED SOF ITEM HAS INVALID NAME. ITEM ***, SUBSTRUCTURE ***. Item name is illegal. Occurs with user DMAP ALTERs only. 6104 *** SYSTEM FATAL MESSAGE 6104, ATTEMPT TO CREATE DUPLICATE SUBSTRUCTURE NAME ***. 6105 *** USER FATAL MESSAGE 6105, ATTEMPT TO RE-USE SUBSTRUCTURE *** IN A REDUCE OR COMBINE OPERATION. USE EQUIV SUBSTRUCTURE COMMAND. A single substructure may be reduced or combined more than once only after it is given a new name with the EQUIV substructure command. 6106 *** SYSTEM FATAL MESSAGE 6106, UNEXPECTED END OF GROUP ENCOUNTERED WHILE READING ITEM *** SUBSTRUCTURE ***. Required data is missing or is of inconsistent length. 6107 *** SYSTEM FATAL MESSAGE 6107, UNEXPECTED END OF ITEM ENCOUNTERED WHILE READING ITEM *** SUBSTRUCTURE ***. One or more of the required number of data groups is missing. 6108 *** SYSTEM FATAL MESSAGE 6108, INSUFFICIENT SPACE ON SOF FOR ITEM ***, SUBSTRUCTURE ***. 6201 *** SYSTEM INFORMATION MESSAGE 6201, *** FILES HAVE BEEN ALLOCATED TO THE SOF WHERE SIZE OF FILE 1 = *** BLOCKS : : SIZE OF FILE *** = *** BLOCKS AND WHERE A BLOCK CONTAINS *** WORDS. 6202 *** USER FATAL MESSAGE 6202, THE REQUESTED NUMBER OF FILES IS NON- POSITIVE. SOF file declaration is missing or illegal. 6204 *** SYSTEM FATAL MESSAGE 6204, SUBROUTINE *** -. THE SUBROUTINE SOFOPN SHOULD BE CALLED PRIOR TO ANY OF THE SOF UTILITY SUBROUTINES. 6205 *** USER FATAL MESSAGE 6205, SUBROUTINE *** - THE BUFFER SIZE HAS BEEN MODIFIED. The BUFFSIZE entry on the NASTRAN card input has been changed. 6206 *** USER FATAL MESSAGE 6206, SUBROUTINE *** - WRONG PASSWORD ON SOF FILE ***. 6207 *** USER FATAL MESSAGE 6207, SUBROUTINE *** - THE SOF FILE *** IS OUT OF SEQUENCE. The SOF file declarations are in the wrong order. 6208 *** USER FATAL MESSAGE 6208, SUBROUTINE *** - THE SIZE OF THE SOF FILE *** HAS BEEN MODIFIED. Only the last SOF file may be increased. None may be decreased. 6209 *** USER FATAL MESSAGE 6209, SUBROUTINE *** - THE NEW SIZE OF FILE *** IS TOO SMALL. 6211 *** USER WARNING MESSAGE 6211, MODULE *** - ITEM *** OF SUBSTRUCTURE *** HAS ALREADY BEEN WRITTEN. Program will not write over existing data. 6212 *** USER WARNING MESSAGE 6212, MODULE *** - THE SUBSTRUCTURE *** DOES NOT EXIST. 6213 *** USER WARNING MESSAGE 6213, MODULE *** - *** IS AN ILLEGAL ITEM NAME. 6215 *** USER WARNING MESSAGE 6215, MODULE *** - ITEM *** OF SUBSTRUCTURE *** PSEUDO-EXISTS ONLY. 6216 *** USER WARNING MESSAGE 6216, MODULE *** - ITEM *** OF SUBSTRUCTURE *** DOES NOT EXIST. 6217 *** USER WARNING MESSAGE 6217, MODULE *** - *** IS AN ILLEGAL PARAMETER NAME. 6218 *** USER WARNING MESSAGE 6218, MODULE *** - THE SUBSTRUCTURE *** CANNOT BE DESTROYED BECAUSE IT IS AN IMAGE SUBSTRUCTURE. 6219 *** USER WARNING MESSAGE 6219, MODULE *** RUN EQUALS DRY OR STEP, AND, SUBSTRUCTURE *** OR ONE OF THE NEW NAMES ALREADY EXISTS. 6220 *** USER WARNING MESSAGE 6220, MODULE *** - RUN EQUALS GO, AND, SUBSTRUCTURE *** OR ONE OF THE NEW NAMES DOES NOT EXIST. 6222 *** SYSTEM FATAL MESSAGE 6222 - ATTEMPT TO CALL SOFOPN MORE THAN ONCE WITHOUT CALLING SOFCLS. 6223 *** USER FATAL MESSAGE 6223, SUBROUTINE *** - THERE ARE NO MORE FREE BLOCKS AVAILABLE ON THE SOF. 6224 *** SYSTEM FATAL MESSAGE 6224, SOF UTILITY SUBROUTINE ***. Text follows the message to describe the error. 6225 *** SYSTEM FATAL MESSAGE 6225, BLOCK NUMBER *** OUT OF RANGE OF SOF FILES. This means the SOF file does not contain all the data expected. Check previous jobs to verify where the intended SOF write operation may have failed, or determine if more information was expected. 6226 *** SYSTEM WARNING MESSAGE 6226, SUBROUTINE SOFIO - HIBLK PARAMETER FOR SOFIO DID NOT CONFORM TO PHYSICAL FILE. PARAMETER VALUE HAS BEEN CHANGED FROM *** TO ***. This can be caused when the previous run using the SOF terminated abnormally. (CDC only.) 6227 *** SYSTEM FATAL MESSAGE 6227, AN ATTEMPT HAS BEEN MADE TO OPERATE ON THE MATRIX ITEM *** OF SUBSTRUCTURE *** USING SFETCH. 6228 *** USER INFORMATION MESSAGE 6228, SUBSTRUCTURE *** IS ALREADY EQUIVALENT TO SUBSTRUCTURE ***. ONLY ITEMS NOT PREVIOUSLY EXISTING FOR *** HAVE BEEN MADE EQUIVALENT. 6229 *** USER INFORMATION MESSAGE 6229, SUBSTRUCTURE *** HAS BEEN RENAMED TO ***. 6230 *** USER WARNING MESSAGE 6230, SUBSTRUCTURE *** HAS NOT BEEN RENAMED BECAUSE *** ALREADY EXISTS ON THE SOF. 6231 *** USER WARNING MESSAGE 6231, INSUFFICIENT CORE AVAILABLE OR ILLEGAL ITEM FORMAT REQUIRES AN UNFORMATTED DUMP TO BE PERFORMED FOR ITEM *** OF SUBSTRUCTURE ***. 6232 *** SYSTEM FATAL MESSAGE 6232, ERROR OCCURRED WHILE INITIALIZING SOF FILE ***. An error occurred while initializing an SOF file on the IBM 360/370. The nature of the error follows the message. 6233 *** USER WARNING MESSAGE 6233, THE ITEM STRUCTURE HAS BEEN CHANGED ON THE SOF. NEW CAPABILITIES USING THESE ITEMS MAY NOT BE USED WITH THIS SOF. 6234 *** USER FATAL MESSAGE 6234, THE NASTRAN BUFFER SIZE IS TOO SMALL FOR THE SOF FILE. MINIMUM BUFFER SIZE IS ***. 6235 *** USER WARNING MESSAGE 6235, THE OLD SOF CONTAINS NO ITEM STRUCTURE INFORMATION. THE LEVEL 16.0 ITEM STRUCTURE WILL BE USED. 6236 *** USER WARNING MESSAGE 6236, DURING THE CREATION OF A NEW IMAGE SUBSTRUCTURE NAME, THE LAST CHARACTER OF SUBSTRUCTURE NAME *** WAS TRUNCATED TO MAKE ROOM FOR THE PREFIX. 6237 *** SYSTEM WARNING MESSAGE 6237, THE SOFTOC ROUTINE CAN HANDLE ONLY *** ITEMS. ADDITIONAL ITEMS WILL NOT BE SHOWN. 6301 *** SYSTEM FATAL MESSAGE 6301, DATA MISSING IN GO MODE FOR SUBSTRUCTURE ***, ITEM ***. You have deleted an item created in dry run mode or the item has been lost lost due to errors. 6302 *** SYSTEM FATAL MESSAGE 6302, *** IS ILLEGAL MATRIX TYPE FOR MODULE COMB2. 6303 *** SYSTEM FATAL MESSAGE 6303, HORG TRANSFORMATION MATRIX FOR SUBSTRUCTURE *** CANNOT BE FOUND ON SOF. 6304 *** SYSTEM FATAL MESSAGE 6304, MODULE COMB2 INPUT MATRIX NUMBER *** FOR SUBSTRUCTURE *** HAS INCOMPATIBLE DIMENSIONS. Matrix dimensions conflict with those of its H or G transformation matrix. 6305 *** SYSTEM WARNING MESSAGE 6305, RECORD NUMBER *** OF CASESS IS NOT A RECOVER RECORD. IT IS A *** RECORD. The step parameter for module RCOVR in incorrect. It should be the CASESS record number of a recover record. 6306 *** USER WARNING MESSAGE 6306, ATTEMPT TO RECOVER DISPLACEMENTS FOR NON- EXISTENT SUBSTRUCTURE ***. 6307 *** USER WARNING MESSAGE 6307, WHILE ATTEMPTING TO RECOVER DISPLACEMENTS FOR SUBSTRUCTURE ***, THE DISPLACEMENTS FOR SUBSTRUCTURE *** WERE FOUND TO EXIST IN DRY RUN FORM ONLY. Before you can recover displacements of any substructure, you must first perform an actual solution. See RUN substructure command. 6308 *** USER WARNING MESSAGE 6308, NO SOLUTION AVAILABLE FROM WHICH DISPLACEMENTS FOR SUBSTRUCTURE *** CAN BE RECOVERED. HIGHEST LEVEL SUBSTRUCTURE FOUND WAS ***. Solve the highest level substructure found or combine it to an even higher level and solve. 6309 *** SYSTEM FATAL MESSAGE 6309, INSUFFICIENT TIME REMAINING TO RECOVER DISPLACEMENTS OF SUBSTRUCTURE *** FROM THOSE OF SUBSTRUCTURE ***. (PROCESSING USER RECOVER REQUEST FOR SUBSTRUCTURE ***.) 6310 *** SYSTEM WARNING MESSAGE 6310, INSUFFICIENT SPACE ON SOF TO RECOVER DISPLACEMENTS OF SUBSTRUCTURE *** FROM THOSE OF SUBSTRUCTURE *** WHILE PROCESSING USER RECOVER REQUEST FOR SUBSTRUCTURE ***. Use the SOF substructure command and increase the size of the SOF and/or add more SOF units. Alternatively, use EDIT to remove unwanted data. 6311 *** SYSTEM WARNING MESSAGE 6311, SDCOMP DECOMPOSITION FAILED ON KOO MATRIX FOR SUBSTRUCTURE ***. The KOO matrix has been changed from the original REDUCE run. The local effects of non-boundary loads will be ignored. 6312 *** USER INFORMATION MESSAGE 6312, LEVEL *** DISPLACEMENTS FOR SUBSTRUCTURE *** HAVE BEEN RECOVERED AND SAVED ON SOF. 6313 *** SYSTEM WARNING MESSAGE 6313, INSUFFICIENT CORE FOR RCOVR MODULE WHILE TRYING TO PROCESS PRINTOUT DATA BLOCKS FOR SUBSTRUCTURE. 6314 *** SYSTEM WARNING MESSAGE 6314, OUTPUT REQUEST CANNOT BE HONORED. RCOVR MODULE OUTPUT DATA BLOCK *** IS PURGED. An illegal type of output for the solution rigid format has been requested. 6315 *** USER WARNING MESSAGE 6315, RCOVR MODULE IS UNABLE TO FIND SUBSTRUCTURE *** AMONG THOSE ON EQSS. LOAD SET *** FOR THAT SUBSTRUCTURE WILL BE IGNORED IN CREATING THE SOLN ITEM FOR FINAL SOLUTION STRUCTURE ***. Illegal name used in PRINT or SAVE request. 6316 *** USER WARNING MESSAGE 6316, RCOVR MODULE IS UNABLE TO FIND LOAD SET *** FOR SUBSTRUCTURE *** AMONG THOSE ON LODS. IT WILL BE IGNORED IN CREATING THE SOLN ITEMS FOR FINAL SOLUTION STRUCTURE ***. Case Control data was probably changed between SOLVE and the first RECOVER steps. Message 6331 will define the error in SOLVE. 6317 *** SYSTEM WARNING MESSAGE 6317, RECOVER OF DISPLACEMENTS FOR SUBSTRUCTURE *** ABORTED. 6318 *** SYSTEM WARNING MESSAGE 6318, OUTPUT REQUEST FOR REACTION FORCES IGNORED. 6319 *** SYSTEM WARNING MESSAGE 6319, DISPLACEMENT MATRIX FOR SUBSTRUCTURE *** MISSING. DISPLACEMENT OUTPUT REQUESTS CANNOT BE HONORED AND SPCFORCE OUTPUT REQUESTS CANNOT BE HONORED UNLESS THE REACTIONS HAVE BEEN PREVIOUSLY COMPUTED. 6320 *** SYSTEM WARNING MESSAGE 6320, LOADC DATA MISSING FOR SUBSTRUCTURE ***, EXTERNAL STATIC LOAD SET ***. No LOADC bulk data cards can be found on GEOM4 or GEOM4 is purged. 6321 *** USER INFORMATION MESSAGE 6321, SUBSTRUCTURE PHASE3 RECOVER FOR FINAL SOLUTION STRUCTURE *** AND BASIC SUBSTRUCTURE ***. 6322 *** SYSTEM FATAL MESSAGE 6322, SOLN ITEM HAS INCORRECT RIGID FORMAT NUMBER. PHASE2 RIGID FORMAT WAS *** AND PHASE3 IS ***. The Rigid Format of Phase 3 must be the same as that used in Phase 2 to obtain the solution. 6323 *** USER WARNING MESSAGE 6323, NO EIGENVALUES FOR THIS SOLUTION. 6324 *** USER FATAL MESSAGE 6324, PHASE3 RECOVER ATTEMPTED FOR NON-BASIC SUBSTRUCTURE ***. Substructure Phase 3 can be executed only for basic substructures or their equivalents. 6325 *** USER WARNING MESSAGE 6325, SUBSTRUCTURE PHASE1, BASIC SUBSTRUCTURE *** ALREADY EXISTS ON SOF. ITEMS WHICH ALREADY EXIST WILL NOT BE REGENERATED. Use DESTROY or EDIT to remove items which are to be regenerated. 6326 *** USER WARNING MESSAGE 6326, SUBSTRUCTURE ***, ITEM *** ALREADY EXISTS ON SOF. Follows message 6325, above. 6327 *** USER INFORMATION MESSAGES 6327, SUBSTRUCTURE ***, SUBCASE *** IS IDENTIFIED BY *** SET *** IN LODS ITEM. REFER TO THIS NUMBER ON LOADC CARDS. 6328 *** SYSTEM FATAL MESSAGE 6328, MORE THAN 100 SUBCASES DEFINED. SGEN PROGRAM LIMIT EXCEEDED. To increase this limit to more than 100 subcases, change the dimensions of local arrays LOAD, MPC, and SPC in subroutine SGEN and change the IF test which causes termination. 6329 *** USER FATAL MESSAGE 6329, SUBSTRUCTURE ***, REFERENCES ON *** CARD, IS NOT A COMPONENT BASIC SUBSTRUCTURE OF SOLUTION STRUCTURE ***. 6330 *** USER FATAL MESSAGE 6330, SOLUTION SUBSTRUCTURE *** -- *** AND CARDS CANNOT BE USED TOGETHER. USE EITHER ONE, BUT NOT BOTH. 6331 *** USER FATAL MESSAGE 6331, SOLUTION SUBSTRUCTURE *** -- LOADC SET REFERENCES UNDEFINED LOAD SET *** OF BASIC SUBSTRUCTURE ***. 6332 *** SYSTEM FATAL MESSAGE 6332, CANNOT FIND LOAD VECTOR NUMBER *** IN LOAD MATRIX OF *** COLUMNS BY *** ROWS FOR SOLUTION STRUCTURE ***. The wrong load matrix is being used. 6333 *** USER FATAL MESSAGE 6333, *** IS AN INVALID FORMAT PARAMETER FOR MODULE EXIO. An illegal value was given in the SOFIN, SOFOUT, DUMP, or RESTORE command. 6334 *** USER WARNING MESSAGE 6334, EXIO DEVICE PARAMETER SPECIFIES TAPE, BUT UNIT *** IS NOT A PHYSICAL TAPE. 6335 *** USER WARNING MESSAGE 6335, *** IS AN INVALID DEVICE FOR MODULE EXIO. 6336 *** USER INFORMATION MESSAGE 6336, EXIO FILE IDENTIFICATION. PASSWORD ***. DATE ***. TIME ** ** **. This message is caused when an I/O operation is requested. The date (in the form mm/dd/yy) and the time (in the form hh-mm-ss) indicate when the operation began. 6337 *** USER INFORMATION MESSAGE 6337, *** BLOCKS (*** SUPERBLOCKS) OF THE SOF SUCCESSFULLY DUMPED TO EXTERNAL FILE ***. 6338 *** USER WARNING MESSAGE 6338, *** IS AN INVALID MODE PARAMETER FOR MODULE EXIO. 6339 *** USER WARNING MESSAGE 6339, *** IS AN INVALID FILE POSITIONING PARAMETER FOR MODULE EXIO. 6340 *** USER WARNING MESSAGE 6340, SUBSTRUCTURE *** ITEM *** PSEUDO-EXISTS ONLY AND CANNOT BE COPIED OUT BY EXIO. 6341 *** USER INFORMATION MESSAGE 6341, SUBSTRUCTURE *** ITEM *** SUCCESSFULLY COPIED FROM *** TO *** (***, ***). The message follows message 6336 to indicate the substructure item that was copied, the input file, and the output file. The information in parentheses is the date and time in the same form as described under message 6336. 6342 *** USER WARNING MESSAGE 6342, SOF RESTORE OPERATION FAILED. THE RESIDENT SOF IS NOT EMPTY. Use the NEW option on the SOF substructure command to create a "new" SOF. 6343 *** SYSTEM WARNING MESSAGE 6343, *** IS NOT AN EXTERNAL SOF FILE. Either (1) tape contained no data, (2) first record read was not an ID or header record, (3) tape was incorrectly positioned, or (4) GINO buffer size was changed. 6344 *** USER INFORMATION MESSAGE 6344, SOF RESTORE OF *** BLOCKS SUCCESSFULLY COMPLETED. 6345 *** USER WARNING MESSAGE 6345, SUBSTRUCTURE *** ITEM *** IS DUPLICATED ON EXTERNAL FILE ***. OLDER VERSION (***, ***) IS IGNORED. 6346 *** USER WARNING MESSAGE 6346, SUBSTRUCTURE *** ITEM *** NOT COPIED. IT ALREADY EXISTS ON THE SOF. 6347 *** USER INFORMATION MESSAGE 6347, SUBSTRUCTURE *** ADDED TO THE SOF. HIGHER LEVEL SUBSTRUCTURE ******** COMBINED SUBSTRUCTURE ******** LOWER LEVEL SUBSTRUCTURE ******** 6348 *** USER WARNING MESSAGE 6348, SUBSTRUCTURE *** ITEM *** NOT FOUND ON EXTERNAL FILE ***. 6349 *** USER INFORMATION MESSAGE 6349, CONTENTS OF EXTERNAL SOF FILE *** FOLLOW. 6350 *** USER WARNING MESSAGE 6350, SOF APPEND OF FILE *** FAILED. "text" The "text" explains why the append operation failed. 6351 *** USER WARNING MESSAGE 6351, DUPLICATE SUBSTRUCTURE NAME *** FOUND DURING SOF APPEND OF FILE ***. THE SUBSTRUCTURE WITH THIS NAME ON THE FILE BEING APPENDED WILL BE PREFIXED WITH "Q". 6352 *** USER INFORMATION MESSAGE 6352, EXTERNAL SOF FILE *** SUCCESSFULLY APPENDED TO THE RESIDENT SOF. 6353 *** USER INFORMATION MESSAGE 6353, SUBSTRUCTURE *** ITEM *** HAS BEEN SUCCESSFULLY COMPRESSED. 6354 *** USER INFORMATION MESSAGE 6354, THERE ARE *** FREE BLOCKS (*** WORDS) ON THE RESIDENT SOF. 6355 *** SYSTEM INFORMATION MESSAGE 6355, EXIO TERMINATED WITH ERRORS. DRY RUN MODE ENTERED. The parameter DRY has been set to -2 to prevent matrix operations from occurring down stream in this run. 6356 *** USER WARNING MESSAGE 6356, *** IS AN INVALID UNIT FOR MODULE EXIO, EXTERNAL FORMAT. 6357 *** USER INFORMATION MESSAGE 6357, SUBSTRUCTURE *** ITEM *** SUCCESSFULLY COPIED FROM *** TO ***. 6358 *** SYSTEM WARNING MESSAGE 6358, ILLEGAL RIGID FORMAT NUMBER *** IN SOLN ITEM FOR SUBSTRUCTURE ***. THE ITEM WILL NOT BE COPIED. 6359 *** USER INFORMATION MESSAGE 6359, SUBSTRUCTURE *** WAS ORIGINALLY A SECONDARY SUBSTRUCTURE. ON THIS SOF, IT IS A PRIMARY SUBSTRUCTURE. 6360 *** SYSTEM WARNING MESSAGE 6360, SOFOUT (EXTERNAL) ENCOUNTERED AN UNSUPPORTED TABLE ITEM ***. THE ITEM WILL NOT BE COPIED. 6361 *** USER INFORMATION MESSAGE 6361, PHASE1 SUCCESSFULLY EXECUTED FOR SUBSTRUCTURE ***. 6362 *** USER FATAL MESSAGE 6362, MPCS SET *** IS ILLEGAL. SUBSTRUCTURE *** GRID POINT *** COMPONENT *** SIGNIFIES A NON-UNIQUE DEPENDENT DEGREE OF FREEDOM. 6363 *** USER WARNING MESSAGE 6363, INCOMPLETE DATA FOR SUBSTRUCTURE *** ITEM *** ON ***. THE ALL OUTPUT WILL BE PRODUCED. 6365 *** USER WARNING MESSAGE 6365, REQUESTED OUTPUT SET ID *** IS NOT DECLARED IN CASE CONTROL, ALL OUTPUT WILL BE PRODUCED. Add "SET N = list" to the Case Control Deck. 6366 *** USER WARNING MESSAGE 6366, THE RECOVER OUTPUT COMMAND SORT MUST APPEAR BEFORE THE FIRST BASIC SUBCOMMAND. ANY OTHER SORT COMMANDS ARE IGNORED. 6367 *** USER WARNING MESSAGE 6367, ILLEGAL FORMAT ON THE RECOVER OUTPUT COMMAND ***, COMMAND IGNORED. 6368 *** USER WARNING MESSAGE 6368, THE SUBSTRUCTURE *** APPEARING ON A BASIC COMMAND IS NOT A COMPONENT OF ***. ALL OUTPUT REQUESTS UNTIL THE NEXT BASIC, PRINT, OR SAVE ARE IGNORED. 6369 *** USER FATAL MESSAGE 6369, SOLN ITEM HAS INCORRECT RIGID FORMAT NUMBER. SOLUTION RIGID FORMAT WAS *** AND CURRENT NASTRAN EXECUTION RIGID FORMAT IS ***. 6370 *** USER FATAL MESSAGE 6370, A SOLUTION ON SUBSTRUCTURE *** WAS ATTEMPTED BUT PREVIOUS SOLUTION DATA EXISTED IN ITEM ***. THIS DATA MUST BE DELETED BEFORE A NEW SOLUTION CAN BE PERFORMED. 6371 *** USER WARNING MESSAGE 6371, MODAL REDUCTION ENERGY CALCULATIONS FOR SUBSTRUCTURE *** ABORTED. 6501 *** USER FATAL MESSAGE 6501, THE MANUAL COMBINE OPTION HAS BEEN SPECIFIED, BUT NO CONNECTION SET WAS GIVEN. 6505 *** USER FATAL MESSAGE 6505, THE SYMMETRY OPTION *** CONTAINS AN INVALID SYMBOL. See the COMBINE substructure control description. 6506 *** USER FATAL MESSAGE 6506, THE COMPONENT SUBSTRUCTURE *** IS NOT ONE OF THOSE ON THE COMBINE CARD. 6507 *** USER FATAL MESSAGE 6507, THE SUBSTRUCTURE *** DOES NOT EXIST ON THE SOF. 6508 *** USER FATAL MESSAGE 6508, THE NAME SPECIFIED FOR THE RESULTANT PSEUDOSTRUCTURE ALREADY EXISTS ON THE SOF. 6510 *** USER FATAL MESSAGE 6510, THE REQUESTED COMBINE OPERATION REQUIRES SUBSTRUCTURE BULK DATA WHICH HAS NOT BEEN GIVEN. A CONNECT request requires CONCT, CONCT1, or RELES data. 6511 *** USER FATAL MESSAGE 6511, THE REQUESTED TRANS SET ID *** HAS NOT BEEN DEFINED BY BULK DATA. 6512 *** USER FATAL MESSAGE 6512, REDUNDANT CONNECTION SET ID-S HAVE BEEN SPECIFIED. 6513 *** USER FATAL MESSAGE 6513, THE TRANS SET ID *** REQUESTED BY A GTRAN BULK DATA CARD HAS NOT BEEN DEFINED. 6514 *** USER FATAL MESSAGE 6514, ERRORS HAVE BEEN FOUND IN THE MANUALLY SPECIFIED CONNECTION ENTRIES. SUMMARY FOLLOWS. 6515 *** USER FATAL MESSAGE 6515, GRID POINT *** BASIC SUBSTRUCTURE *** DOES NOT EXIST. 6516 *** USER INFORMATION MESSAGE 6516, ALL MANUAL CONNECTIONS SPECIFIED ARE ALLOWABLE WITH RESPECT TO TOLER. 6517 *** USER FATAL MESSAGE 6517, THE BASIC SUBSTRUCTURE *** REFERRED TO BY A RELES BULK DATA CARD CANNOT BE FOUND IN THE PROBLEM TABLE OF CONTENTS. 6518 *** USER FATAL MESSAGE 6518, ONE OF THE COMPONENT SUBSTRUCTURES HAS BEEN USED IN A PREVIOUS COMBINE OR REDUCE. Each substructure may be used in only one COMBINE or REDUCE. The previous COMBINE or REDUCE must be DESTROYed before it may be used again. An alternative is to EQUIV the substructure in question to a new substructure and then use the new substructure in the desired COMBINE operation. See message 6105. 6519 *** USER FATAL MESSAGE 6519, REDUNDANT NAMES FOR RESULTANT PSEUDOSTRUCTURE HAVE BEEN SPECIFIED. 6520 *** USER FATAL MESSAGE 6520, REDUNDANT VALUES FOR TOLER HAVE BEEN SPECIFIED. 6521 *** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED. 6522 *** USER FATAL MESSAGE 6522, THE BASIC SUBSTRUCTURE *** REFERRED TO BY A CONCT1 BULK DATA CARD CANNOT BE FOUND IN THE PROBLEM TABLE OF CONTENTS. 6523 *** USER FATAL MESSAGE 6523, THE BASIC SUBSTRUCTURE *** REFERRED TO BY A CONCT BULK DATA CARD CANNOT BE FOUND IN THE PROBLEM TABLE OF CONTENTS. 6524 *** USER FATAL MESSAGE 6524, NO. OF COLUMNS OF MATRIX E IN MYP3 IS UNEQUAL TO NO. OF COLUMNS OF MATRIX B FOR A(T)B + E PROBLEM. This is a system error if you are not using DMAP. 6525 *** USER INFORMATION MESSAGE 6525, TRIPLE MULTIPLY TIME ESTIMATE FOR MYP3 (1) = ********** SECONDS. 6525 *** USER INFORMATION MESSAGE 6525, TRIPLE MULTIPLY TIME ESTIMATE FOR (2) MYPAD - (AT * B)* A + E = ********** SECONDS. 6525 *** USER INFORMATION MESSAGE 6525, TRIPLE MULTIPLY TIME ESTIMATE FOR MPYAD - AT * (B*A) + E = ********** SECONDS. 6526 *** USER INFORMATION MESSAGE 6526, THE CENTER MATRIX IS TOO LARGE FOR IN- CORE PROCESSING. OUT-OF-CORE PROCESSING WILL BE PERFORMED. Issued by the MPYS module. 6528 *** USER FATAL MESSAGE 6528, INCOMPATIBLE LOCAL COORDINATE SYSTEMS HAVE BEEN FOUND. CONNECTION OF POINTS IS IMPOSSIBLE, SUMMARY FOLLOWS. 6530 *** USER FATAL MESSAGE 6530, THE BASIC SUBSTRUCTURE *** REFERRED TO BY A GTRAN CARD CANNOT BE FOUND IN THE PROBLEM TABLE OF CONTENTS. 6531 *** USER FATAL MESSAGE 6531, NO CONNECTIONS HAVE BEEN FOUND DURING THE AUTOMATIC CONNECTION PROCEDURE. 6533 *** USER FATAL MESSAGE 6533, OPTIONS PA HAS BEEN SPECIFIED BUT THE LOAP ITEM ALREADY EXISTS FOR SUBSTRUCTURE ***. You must delete old appended loads before running with new appended loads. 6534 *** USER FATAL MESSAGE 6534, OPTIONS PA HAS BEEN SPECIFIED BUT THE STRUCTURE *** DOES NOT EXIST. YOU CANNOT APPEND SOMETHING TO NOTHING. 6535 *** USER FATAL MESSAGE 6535, MODULE COMB1 TERMINATING DUE TO ABOVE SUBSTRUCTURE CONTROL ERRORS. 6536 *** USER FATAL MESSAGE 6536, MODULE COMB1 TERMINATING DUE TO ABOVE ERRORS IN BULK DATA. 6537 *** USER FATAL MESSAGE 6537, MODULE COMB1 TERMINATING DUE TO ABOVE ERRORS. 6551 *** USER FATAL MESSAGE 6551, MATRIX B IN MPY3 IS NOT SQUARE FOR A(T)BA + E PROBLEM. 6552 *** USER FATAL MESSAGE 6552, NO. OF ROWS OF MATRIX A IN MPY3 IS UNEQUAL TO NO. OF ROWS OF MATRIX B FOR A(T)B + E PROBLEM. 6553 *** USER FATAL MESSAGE 6553, NO. OF ROWS OF MATRIX A IN MPY3 IS UNEQUAL TO NO. OF COLUMNS OF MATRIX B FOR A(T)BA + E PROBLEM. 6554 *** USER FATAL MESSAGE 6554, NO. COLUMNS OF MATRIX E IN MPY3 IS UNEQUAL TO NO. OF COLUMNS OF MATRIX A FOR A(T)BA + E PROBLEM. 6555 *** USER FATAL MESSAGE 6555, MATRIX E IN MPY3 IS NOT SQUARE FOR A(T)BA + E PROBLEM. 6556 *** USER FATAL MESSAGE 6556, NO. OF ROWS OF MATRIX E IN MPY3 IS UNEQUAL TO NO. OF ROWS OF MATRIX B FOR BA + E PROBLEM. 6557 *** USER FATAL MESSAGE 6557, UNEXPECTED NULL COLUMN OF A(T) ENCOUNTERED. Issued by MPY3 module. 6558 *** USER FATAL MESSAGE 6558, INSUFFICIENT TIME REMAINING FOR MPY3 EXECUTION. 6559 *** USER FATAL MESSAGE 6559, NO. OF ROWS OF MATRIX E IN MPY3 IS UNEQUAL TO NO. OF COLUMNS OF MATRIX A FOR A(T)B + E PROBLEM. 6601 *** USER FATAL MESSAGE 6601, REQUEST TO REDUCE PSEUDOSTRUCTURE *** INVALID. DOES NOT EXIST ON THE SOF. 6602 *** USER FATAL MESSAGE 6602, THE NAME *** CANNOT BE USED FOR THE REDUCED PSEUDOSTRUCTURE. IT ALREADY EXISTS ON THE SOF. 6603 *** USER FATAL MESSAGE 6603, A BOUNDARY SET MUST BE SPECIFIED FOR A REDUCE OPERATION. 6604 *** USER WARNING MESSAGE 6604, A BOUNDARY SET HAS BEEN SPECIFIED FOR ***, BUT IT IS NOT A COMPONENT OF THE PSEUDOSTRUCTURE BEING REDUCED. THE BOUNDARY SET WILL BE IGNORED. 6605 *** USER WARNING MESSAGE 6605, A BOUNDARY SET HAS BEEN SPECIFIED FOR *** BUT IT IS NOT A PHASE1 BASIC SUBSTRUCTURE. THE BOUNDARY SET WILL BE IGNORED. 6606 *** USER FATAL MESSAGE 6606, BOUNDARY SET *** SPECIFIED IN CASE CONTROL HAS HOT BEEN DEFINED BY BULK DATA. No BDYC bulk data has been entered. 6607 *** USER FATAL MESSAGE 6607, NO BDYS OR BDYS1 BULK DATA HAS BEEN INPUT TO DEFINE BOUNDARY SET ***. 6608 *** USER FATAL MESSAGE 6608, THE REQUEST FOR BOUNDARY SET ***, SUBSTRUCTURE *** WAS NOT DEFINED. 6609 *** USER INFORMATION MESSAGE 6609, NO BOUNDARY SET HAS BEEN SPECIFIED FOR COMPONENT OF PSEUDOSTRUCTURE ***. ALL DEGREES OF FREEDOM WILL BE REDUCED. 6610 *** USER WARNING MESSAGE 6610, DEGREES OF FREEDOM AT GRID POINT *** COMPONENT SUBSTRUCTURE *** INCLUDED IN A BOUNDARY SET DO NOT EXIST. REQUEST WILL BE IGNORED. 6611 *** USER FATAL MESSAGE 6611, GRID POINT *** SPECIFIED IN BOUNDARY SET *** FOR SUBSTRUCTURE *** DOES NOT EXIST. 6612 *** USER FATAL MESSAGE 6612, THE REDUCE OPERATION REQUIRES SUBSTRUCTURE BULK DATA WHICH HAS NOT BEEN GIVEN. 6613 *** USER FATAL MESSAGE 6613, FOR RUN=GO, THE REDUCED SUBSTRUCTURE *** MUST ALREADY EXIST. 6614 *** USER FATAL MESSAGE 6614, ILLEGAL OR NON-EXISTENT STRUCTURE NAME USED ABOVE. 6615 *** USER FATAL MESSAGE 6615, ILLEGAL BOUNDARY SET IDENTIFICATION NUMBER. 6616 *** USER INFORMATION MESSAGE 6616, MODULE REDUCE SUCCESSFULLY COMPLETED. 6617 *** USER FATAL MESSAGE 6617, OLDMODES SET AND REQUESTED SOF ITEM DOES NOT EXIST. ITEM ***, SUBSTRUCTURE ***. 6618 *** USER FATAL MESSAGE 6618, OLDMODES NOT SET AND REQUESTED SOF ITEM MUST BE DELETED. ITEM ***, SUBSTRUCTURE ***. 6619 *** USER FATAL MESSAGE 6619, OLDBOUND SET AND REQUESTED SOF ITEM DOES NOT EXIST. ITEM ***, SUBSTRUCTURE ***. 6620 *** USER FATAL MESSAGE 6620, OLDBOUND NOT SET AND REQUESTED SOF ITEM MUST BE DELETED, ITEM ***, SUBSTRUCTURE ***. 6621 *** USER FATAL MESSAGE 6621, FIXED SET *** SPECIFIED IN CASE CONTROL HAS NOT BEEN DEFINED BY BULK DATA. 6622 *** USER WARNING MESSAGE 6622, A FIXED SET HAS BEEN SPECIFIED FOR ***, BUT IT IS NOT A COMPONENT OF THE PSEUDOSTRUClURE BEING PROCESSED. THE FIXED SET WILL BE IGNORED. 6623 *** USER FATAL MESSAGE 6623, SUBSTRUCTURE *** HAS DUPLICATE NAMES IN BDYC DATA SET ***. 6624 *** USER FATAL MESSAGE 6624, GRID POINT *** SPECIFIED IN FIXED SET *** FOR SUBSTRUCTURE *** DOES NOT EXIST. 6625 *** USER WARNING MESSAGE 6625, DEGREES OF FREEDOM AT GRID POINT *** COMPONENT SUBSTRUCTURE *** INCLUDED IN A FIXED SET DO NOT EXIST. REQUEST WILL BE IGNORED. 6626 *** USER FATAL MESSAGE 6626, NO BDYS OR BDYS1 BULK DATA HAS BEEN INPUT TO DEFINE FIXED SET ***. 6627 *** USER FATAL MESSAGE 6627, NO EIG* DATA CARDS SPECIFIED FOR SET ID ***, SUBSTRUCTURE ***. 6628 *** USER FATAL MESSAGE 6628, NO EIGC OR EIGR DATA CARDS SPECIFIED FOR SET ID ***, SUBSTRUCTURE ***. 6629 *** USER FATAL MESSAGE 6629, NO EIGC DATA CARD SPECIFIED WITH EIGP DATA CARD SET ID ***, SUBSTRUCTURE ***. 6630 *** USER INFORMATION MESSAGE 6630, FOR DRY OPTION IN MODAL REDUCE, INPUT DATA WILL BE CHECKED BUT NO SOF TABLE ITEMS WILL BE CREATED. 6631 *** USER POTENTIALLY FATAL MESSAGE 6631, IN COMPLEX MODAL REDUCE, ONLY ONE H TRANSFORMATION MATRIX IS PRESENT ON SOF FOR NONSYMMETRIC REDUCTION. 6632 *** USER FATAL MESSAGE 6632, MODULE ***, NASTRAN MATRIX FILE FOR I/O OF SOF ITEM ***, SUBSTRUCTURE ***, IS PURGED. 6633 *** USER FATAL MESSAGE 6633, FOR SUBSTRUCTURE *** TOTAL NUMBER OF MODAL COORDINATES (***) IS LARGER THAN THE NUMBER OF INTERIOR DOF (***). 6634 *** USER FATAL MESSAGE 6634, IN MODULE MREDUCE WITH USER MODE=2, THE CONSTRAINT FORCES MATRIX IS INCOMPATIBLE WITH THE NUMBER OF MODES (***). 6635 *** USER WARNING MESSAGE 6635, CDCOMP DECOMPOSITION FAILED ON KII MATRIX FOR SUBSTRUCTURE ***. 6636 *** USER INFORMATION MESSAGE 6636, NMAX AND RANGE SUBCOMMANDS ARE IGNORED UNDER USERMODE = TYPE 2. 6637 *** USER FATAL MESSAGE 6637, OLDBOUND HAS BEEN SPECIFIED BUT THE BOUNDARY POINTS FOR SUBSTRUCTURE *** HAVE BEEN CHANGED. The boundary set data for the current problem is different from the boundary set data which created the UPRT SOF item for this substructure. 6638 *** USER FATAL MESSAGE 6638, IN MODULE MREDUCE WITH USER MODE=2, THE CONSTRAINT FORCES MATRIX (QSM) CANNOT BE PURGED. 6900 *** USER INFORMATION MESSAGE 6900, LOADS HAVE BEEN SUCCESSFULLY APPENDED FOR SUBSTRUCTURE ***. 6901 *** USER INFORMATION MESSAGE 6901, ADDITIONAL LOADS HAVE BEEN SUCCESSFULLY MERGED FOR SUBSTRUCTURE ***. 6951 *** USER FATAL MESSAGE 6951, INSUFFICIENT CORE TO LOAD TABLES. IN MODULE LODAPP, CORE = ***. The total number of load sets times two must fit in core. 6952 *** USER FATAL MESSAGE 6952, REQUESTED SUBSTRUCTURE *** DOES NOT EXIST. 6953 *** SYSTEM FATAL MESSAGE 6953, A WRONG COMBINATION OF LOAD VECTORS EXISTS FOR SUBSTRUCTURE ***. All load set IDs must be unique for each basic substructure. 6954 *** SYSTEM FATAL MESSAGE 6954, THE **** ITEM EXISTS BUT HAS NO ASSOCIATED PVEC ITEM FOR SUBSTRUCTURE ********. A load set table exists, but the load vectors have been removed. 6956 *** USER FATAL MESSAGE 6956, INSUFFICIENT TIME REMAINING FOR MODULE LODAPP, TIME LEFT = ********. =PAGE= 6.9 FUNCTIONAL MODULE MESSAGES (7001 THROUGH 8000) 7019 *** USER INFORMATION MESSAGE 7019, MODULE DSCHK IS EXITING FOR REASON *** ON ITERATION NUMBER ****** / PARAMETER VALUES ARE AS FOLLOWS DONE = **********, SHIFT = **********, DSEPSI = **********. See Sections 2.4.3 and 2.16.3 in Volume II for a discussion of DISP Rigid Format 4 and DISP Rigid Format 16 output features. 8000 *** USER INFORMATION MESSAGE 8000, MODULE FLBMG TERMINATED DUE TO ABOVE ERRORS. =PAGE= 6.10 FUNCTIONAL MODULE MESSAGES (8001 THROUGH 9000) 8001 *** USER FATAL MESSAGE 8001, THERE MUST BE A FLUID/STRUCTURE BOUNDARY IN HYDROELASTIC ANALYSIS. 8002 *** USER FATAL MESSAGE 8002, ELEMENT ID ******** ON A CFLSTR CARD DOES NOT REFERENCE A VALID 2D STRUCTURAL ELEMENT. 8003 *** USER FATAL MESSAGE 8003, ELEMENT ID ******** ON A CFLSTR CARD DOES NOT REFERENCE A VALID FLUID ELEMENT. 8004 *** USER FATAL MESSAGE 8004, ELEMENT ID ******** ON A CFFREE CARD DOES NOT REFERENCE A VALID FLUID ELEMENT. 8005 *** USER FATAL MESSAGE 8005, BAD GEOMETRY DEFINED FOR STRUCTURAL ELEMENT ********. 8006 *** USER FATAL MESSAGE 8006, BAD GEOMETRY DEFINED FOR FACE ******** OF FLUID ELEMENT ********. 8007 *** USER FATAL MESSAGE 8007, NO FACE ON FLUID ELEMENT ******** IS WITHIN 30 DEGREES OF STRUCTURAL ELEMENT ********. 8008 *** USER FATAL MESSAGE 8008, THE DISTANCE BETWEEN FLUID ELEMENT ******** AND STRUCTURAL ELEMENT ******** IS GREATER THAN THE ALLOWED TOLERANCE. 8009 *** USER FATAL MESSAGE 8009, FACE ******** SPECIFIED FOR FLUID ELEMENT ******** IS AN ILLEGAL VALUE. 8010 *** SYSTEM FATAL MESSAGE 8010, LOGIC ERROR IN SUBROUTINE FLBEMA - CODE ***. 8011 *** USER WARNING MESSAGE 8011, INSUFFICIENT CORE TO HOLD CONTENTS OF EQEXIN DATA BLOCK. HYDROELASTIC USET PRINTOUT TERMINATED. 8012 *** USER FATAL MESSAGE 8012, FLUID ELEMENT ******** ON A CFFREE CARD REFERENCES UNDEFINED GRAVITY ID ********. 8013 *** USER FATAL MESSAGE 8013, FLUID ELEMENT ******** ON A CFLSTR CARD REFERENCES UNDEFINED GRAVITY ID ********. 8014 *** USER WARNING MESSAGE 8014, FlUID ELEMENT ******** AND STRUCTURE ELEMENT ******** ARE DISJOINT. CHECK CFLSTR CARDS. 8015 *** USER WARNING MESSAGE 8015, THE PURELY INCOMPRESSIBLE METHOD IS AVAILABLE ONLY WITH THE DIRECT FORMULATION. ================================================ FILE: um/PLOT.TXT ================================================ =PAGE= 4.1 PLOTTING IN NASTRAN NASTRAN provides the capability for generating the following kinds of plots: 1. Undeformed geometric projections of the structural model. 2. Static deformations of the structural model by either displaying the deformed shape (alone or superimposed on the undeformed shape), or displaying the displacement vectors at the grid points (superimposed on either the deformed or undeformed shape). 3. Modal deformations (sometimes called mode shapes or eigenvectors) resulting from real eigenvalue analysis by the same options stated in 2 above. Complex modes of flutter analysis may be plotted for any user chosen phase lag. 4. Deformations of the structural model for transient response or frequency response by displaying either vectors or the deformed shape for specified times or frequencies. 5. X-Y graphs of responses (displacements, velocities, accelerations, element forces and element stresses) versus time (transient response), versus frequency (frequency response) or versus subcase (static analysis). 6. Y-f and Y-g graphs of flutter analysis. 7. Topological displays of matrices. 8. Contour plots of stresses and displacements (in a limited fashion). To avoid crowded output, an outline of the model may be optionally requested. Structure plots (items 1-4 and 8) are discussed in Section 4.2. X-Y plots (items 5 and 6) are discussed in Section 4.3. Matrix plots (item 7) are generated by Utility Module SEEMAT, described in Section 5.5, and must be accomplished by ALTERing this module into a rigid format DMAP sequence or by using the DMAP approach. Requests for structure plots or X-Y plots are accomplished in the Case Control Deck by submitting a structure plot request packet or an X-Y output request packet. The discussion of these packets constitutes most of the remainder of this section. The optional PLOTID card is considered to be a part of the plot packets, although it must precede any OUTPUT(PLOT), OUTPUT(XYOUT), or OUTPUT(XYPLOT) cards (see the PLOTID card in Section 2.3). In order to create plots, you must set up a physical plot tape or mass storage area. There are two plot files, PLT1 and PLT2. It is only necessary to specify file PLT2. File PLT1 is reserved for future use. The system control cards needed to specify the PLT2 plot file are generally installation dependent and are described in Section 5 of the Programmer's Manual. The NASTRAN plotting software is completely independent of any particular plotting hardware. This protects the NASTRAN software from being impacted by changes, additions, or deletions made to plotting hardware. Instead, the plot file produced by NASTRAN (the actual NASTRAN plot output may reside either on physical tape or on a mass storage device) is meant for a hypothetical plotter termed the NASTRAN General Purpose Plotter (NASTPLT) and is not suitable for use directly by any particular plotter. In order to use this NASTPLT file to obtain plots on any particular plotter, your installation must have available an external translator program to interpret this plot file and create plots on the plotter. A detailed description of the NASTPLT file is given in Section 4.4. The interested reader may also refer to Section 6.10 of the Programmer's Manual, dealing with the plotting software in NASTRAN. The type or model of the plotting hardware on which you will create your plots is indicated to the NASTRAN plotting software on the PLOTTER card in both structure plotting and X-Y plotting (see descriptions in Sections 4.2.2.4 and 4.3.2.5, respectively). You may specify either a microfilm, table, or drum plotter. For each of these plotter types, you may also indicate whether the plotter has typing capability or not. In the latter case, all characters will be drawn. The default is a microfilm plotter without typing capability. The operation of the Structure Plotter is of sufficient theoretical content to warrant inclusion in the Theoretical Manual. Section 13 of the Theoretical Manual provides a discussion of the basic theory and gives some examples of plotter output. The availability of NASTRAN plotting capability is a function of the particular rigid format as shown in Table 4.1-1. 4.1.1 Plot Frame Size and Character Size The frame size of the NASTPLT plots produced by NASTRAN depends upon the model specified on the PLOTTER card. The default plot frame sizes for all the three plotter models are given in the following table. Default Plot Frame Size for the NASTPLT Plotters Plotter Model Default Width Default Height (inches) (inches) Microfilm 10.23 10.23 Table 11.00 8.50 Drum 30.00 30.00 The plot frame size for microfilm plotters is set at the above default size and is not under user control. The frame size for the table and drum plotters can be specified by you within limits, by means of the PAPER SIZE card in structure plotting (see Section 4.2.2.4) and the XPAPER and YPAPER cards in X-Y plotting (see Section 4.3.2.5). As mentioned earlier, the NASTRAN plotting software will draw characters when you have indicated that the plotter has no typing capability. By default, each character produced by the NASTPLT plots is assigned a space of 0.08" width by 0.16" height and within this space the character is derived from a 0.06" square. The size of the characters cannot be reduced below the default size by you in the NASTRAN environment. However, you can magnify the characters by the use of the CSCALE card in both structure plotting and X-Y plotting (see description in Sections 4.2.2.4 and 4.3.2.5). Note, however, that the integer factor used on the CSCALE card implies that the characters can be magnified only in discrete steps. Also note that this factor is used to multiply both the width and the height of the NASTPLT characters. Thus, a character produced with a CSCALE value of 2 will take up an area that is four times the area taken up by the default size character. If you want to control the size of the characters relative to the plot, you can do so by controlling the plot frame size for a given character size. Thus, for a given CSCALE value, the size of the characters relative to the plot can be increased by decreasing the plot frame size and decreased by increasing the plot frame size. If you want to scale up or down the size of both the plots and the characters produced by NASTRAN, you can do so by means of the translator program employed to create the plots. However, in this case, the size is controlled outside the NASTRAN environment. =PAGE= Table 4.1-1. Plotting Availability In the NASTRAN Rigid Formats Matrix Rigid Structure Plotting Curve Topology Format Undeformed Deformed Plotting Plotting 1 (DISP) x x x * 2 (DISP) x x * 3 (DISP) x x * 4 (DISP) x x * 5 (DISP) x x * 6 (DISP) x x * 7 (DISP) x * 8 (DISP) x x x * 9 (DISP) x x x * 10 (DISP) x * 11 (DISP) x x x * 12 (DISP) x x x * 13 (DISP) x x * 14 (DISP) x x * 15 (DISP) x x * 16 (DISP) x x * 1 (HEAT) x x * 3 (HEAT) x x * 9 (HEAT) x x x * 9 (AERO) x x x * 10 (AERO) x x x * 11 (AERO) x x x * * Matrix topology plotting is not automatically available in any rigid format. Utility module SEEMAT must be ALTERed into a rigid format DMAP sequence in order to use this feature (see Section 5.5). =PAGE= 4.2 STRUCTURE PLOTTING In order to assist you both in the preparation of the analytical model and in the interpretation of output, the structure plotter provides the following capabilities for undeformed structures: 1. Place a symbol at the grid point locations (optional). 2. Identify grid points by placing the grid point identification number to the right of the grid point locations (optional). 3. Identify elements by placing the element identification number and element label at the center of each element (optional). 4. Identify element properties by placing the element property identification number near the element identification number and element symbol (optional). 5. Connect the grid points in an optional manner using structural elements or PLOTEL elements. 6. Reflect the symmetric portion of the structural elements about a designated axis (optional). The following capabilities are provided for deformed structures: 1. Place a symbol at the deflected grid point location (optional). 2. Identify the deflected grid points by placing the grid point identification number to the right of the deflected grid point locations (optional). 3. Identify elements by placing the element identification number and element label at the center of each element (optional). 4. Identify element properties by placing the element property identification number near the element identification number and element symbol (optional). 5. Connect the deflected grid points in an optional manner using structural elements or PLOTEL elements. 6. Draw lines originating at the undeflected or deflected grid point location, drawn to user-specified scale, representing the X, Y, Z components or resultant summations of any of the grid point deflection, velocity, or acceleration vectors. 7. Draw different portions of the structure in different parts of a frame, with different scales, labels, and symbols. 8. Reflect the symmetric portion of the structural elements (which are symmetrically or antisymmetrically loaded) about a designated axis (optional). 9. Superimpose the deflected shape over the undeflected shape (optional). 10. Draw the outline of the structural elements which lie on the boundaries (optional). 11. Map the deflection or stress contours of two dimensional elements in a limited fashion (optional). A request for structure plotting is made in the Case Control Deck by means of a plot request packet which includes all cards from an OUTPUT(PLOT) card to either a BEGIN BULK or OUTPUT(XYOUT) [or OUTPUT(XYPLOT)] card. It should be noted that only elements can be plotted. (See the description of the SET card in Section 4.2.2.4.) Grid points that are not associated with elements cannot be plotted. Grid points may be connected with PLOTEL elements for plotting purposes. 4.2.1 Structure Plotter Projections and Coordinate System Structure plots can be obtained in any one of three projections, namely, orthographic, perspective, or stereoscopic projections. (Stereoscopic plots are normally made only on microfilm plotters since a stereoscopic viewer or projector must be used to obtain the stereoscopic effect.) These projections as they relate to structure plotting and the plotter coordinate system employed are described in the following sections. A theoretical treatment of the projections is given in Section 13 of the Theoretical Manual. 4.2.1.1 Orthographic Projection The structural model is assumed to be defined in the basic coordinate system, denoted as the X, Y, Z coordinate system. The plotter (or observer's) coordinate system is defined as the R, S, T coordinate system. The direction of view is in the negative R-direction and the projection plane is always in, or parallel to, the S-T plane (see Figure 4.2-1). The origins of the X, Y, Z and R, S, T coordinate systems are taken to be coincidental. The alignment of the X, Y, Z coordinate system with respect to the R, S, T coordinate system is prescribed by the AXES card (see description). The default alignment is for the X, Y, and Z axes to align with the R, S and T axes, respectively. The orientation of the X, Y, Z coordinate system with respect to the R, S, T coordinate system is defined by the three angles , , and . These angles are prescribed by the VIEW card (see description). (As can be seen, for the default alignment, the two coordinate systems are coincident for = = = 0.) The order in which the rotations , , and are specified is critically important to determine the final orientation of the X, Y, Z system with respect to the R, S, T system. This order or sequence has been arbitrarily chosen as , the rotation about the T-axis, followed by , the rotation about the S-axis, followed by , the rotation about the R-axis. Normally, is not used since it does not affect the appearance of the S-T projection, but only its orientation on the S-T plane. =PAGE= T S / / / / Direction of View / / (Always in negative R direction. / / Projection plane is always in, R / or parallel to, the S-T plane.) Figure 4.2-1. Plotter coordinate system =PAGE= This figure is not included in the machine readable documentation because of complex graphics. Figure 4.2-2. Plotter coordinate system model orientation =PAGE= 4.2.1.2 Perspective Projection In addition to the three angular relationships (, , ) required for the orthographic projection, the perspective projection requires knowledge of the vantage point in the R, S, T system (that is, the three coordinates of the observer) and the location of the projection plane (plotter surface). The vantage point (coordinates Ro, So, To) is either selected by you or automatically by the program and is taken to lie in the positive R-half space. The projection plane is chosen to lie between the observer and the S-T plane. This is illustrated in Figure 4.2-3. 4.2.1.3 Stereoscopic Projection The stereoscopic effect is obtained through the differences in images received by the left and right eyes. Each is a perspective image, but with a different vantage point. The two vantage points are separated by a distance termed the ocular separation. You may supply this value, but the use of the default value of 70 mm (2.756 inches) is recommended since it is the nominal ocular separation standard used in commercially available stereoscopic cameras and viewers. When using this projection, the program produces two plots for viewing with a stereoscopic viewer. 4.2.2 Structure Plot Request Packet Data 4.2.2.1 Summary of Data Cards The only structure plot data cards that are always required are the SET and PLOT cards. The FIND card is recommended for general use. All other cards are related to the definition of various parameters and are strictly optional. The parameter cards specify how the structure will be plotted, that is, type of projection, view angles, scales, etc. All the multiple choice parameters are defaulted to a preselected choice if not specified. If a parameter is defined more than once, the value or choice last stated (or computed) will be used. Each parameter requiring a numerical value that is not specified by you can either be established internally in the program by means of the FIND card or can assume default values. The FIND card requests that the program select a SCALE, ORIGIN, and/or VANTAGE POINT based on user-specified parameters so as to allow the construction of a plot in a user-specified region of the paper or film. All the parameters used in the generation of the various plots will be printed out as part of the output, whether they are directly specified, defaulted, or established using the FIND card. Initialization of parameters to default values occurs only once. These values remain until altered by a direct input. The only exceptions are the view angles, scale factors, vantage point parameters, and origins. Whenever the plotter or the method of projection is changed, the view angles are reset to the default values, unless they are re-specified by you. In addition, the scale factors, vantage point parameters, and origin must be redefined by you. The structure plot data cards are generally sequence independent, but it is important to note that the dependencies on which a FIND card or a PLOT card is based must precede these cards. Thus, for example, a SET card defining the elements and grid points to be plotted may be defined anywhere in the submittal, but it must appear prior to a FIND card or a PLOT card that references that SET. Also, if a PLOTTER card is used, it is recommended that it be the very first card in the structure plot request data after the OUTPUT(PLOT) card in the Case Control Deck. A summary of the data cards is given in Table 4.2-1. =PAGE= T S Ŀ Structural Model T' \ / Projection Plane S' \ / \ / d \ / o \ / \ / Vantage Point (R , S , T ) o o o R Figure 4.2-3. Perspective projection geometry =PAGE= Table 4.2-1. Summary of Structure Plot Data Cards REQUIRED CARDS Name Purpose PLOT Plot generation SET Set definition OPTIONAL CARDS Name Purpose Remarks AXES XYZ axes alignment specification CAMERA Camera specification Used only for microfilm plotters CONTOUR Contour plot definition Used only if contour plots are requested CSCALE Character scale specification FIND Automatic computation of plot Use of this card is parameters recommended MAXIMUM Maximum displacement Used only if deformed plots DEFORMATION specification are requested OCULAR Ocular separation definition Used only for stereoscopic SEPARATION projection ORIGIN Paper origin definition Required if not on FIND card PAPER SIZE Plot frame size specification Used only for table and drum plotters PEN Pen specification Used only for table and drum plotters PLOTTER Plotter model specification PROJECTION Projection specification PROJECTION Projection plane definition Required for perspective and PLANE and stereoscopic projections SEPARATION if VANTAGE POINT is not on FIND card PTITLE Plot title definition SCALE Plotted object scale definition Required if not on FIND card VANTAGE POINT Vantage point definition Required for perspective and stereoscopic projections if not on FIND card VIEW XYZ axes orientation specification =PAGE= 4.2.2.2 Plot Titles Up to four lines of title information will be printed in the lower left-hand corner of each plot. The text for the top three lines is taken from the TITLE, SUBTITLE, and LABEL cards in the Case Control Deck. (See Sections 2.3.2 and 2.3.4 for a description of the TITLE, SUBTITLE, and LABEL cards.) The text for the bottom line may be of two forms depending on the type of plot requested. One form contains the word UNDEFORMED SHAPE. The other form contains the type of plot (statics, nodal, etc), subcase number, load set or mode number, frequency or eigenvalue or time, and (for complex quantities) phase lag or magnitude. This information is taken from the PLOT card in the plot request packet. Each plot frame, or group of frames, resulting from a single PLOT command may also have a line of information to the right of the SUBTITLE text. This is taken from the PTITLE card in the plot request packet. The sequence number for each plot is printed in the upper corners of each frame. The sequence number is determined by the relative position of each PLOT execution card in the plot package. The date and (for deformed plots) the maximum deformation are also printed at the top of each frame. 4.2.2.3 Data Card Specification Rules and Format The format of the structure plot data cards is free-field. The following rules apply to their specification: 1. Only data in columns 1 through 72 is processed. Any information specified in columns 73 through 80 is ignored. 2. If the last character on a card is a comma (not necessarily in column 72), the next card is a continuation of this physical card. Any number of continuation cards may be specified, and together they form a logical card. 3. The mnemonics or values can be placed anywhere on the card, but must be separated by delimiters. 4. The following delimiters are used: a. blank b. , comma c. ( left parenthesis d. ) right parenthesis e. = equal sign All of these delimiters can be used as needed to aid the legibility of the data. In the data card descriptions presented in Section 4.2.2.4, the following notations are used to describe the card format: 1. Upper-case letters and parentheses must be punched as shown. 2. Lower-case letters indicate that a substitution must be made. 3. Double brackets indicate that a choice of contents is mandatory. 4. Brackets contain an option that may be omitted or included by the user. 5. First listed options or values are the default values. 6. Physical card consists of information punched in columns 1 through 72 of a card. 7. Logical card may have more than 72 columns with the use of continuation cards. 4.2.2.4 Data Card Descriptions All of the structure plot data cards are discussed on the following pages. The descriptions are arranged in alphabetical order by card names. The general form for each card is shown. The description of the card contents follows. An example of each card usage is given immediately below the general form except for the PLOT and SET cards, where the examples follow the descriptions of the cards. =PAGE= AXES - XYZ Axes Alignment Specification Description Defines the alignment of the XYZ axes (the basic coordinate system of the object) in terms of the RST axes (the observer's coordinate system). See Figure 4.2-1. Format and Example AXES X , Y , Z SYMMETRIC r s t ANTISYMMETRIC AXES MX, Y, MZ Option Meaning r The axis that is aligned with the R-axis (BCD). See Remark 2. s The axis that is aligned with the S-axis (BCD). See Remark 2. t The axis that is aligned with the T-axis (BCD). See Remark 2. SYMMETRIC Obtain an undeformed or deformed plot of the symmetric portion of an object. See Remarks 3 and 4. ANTISYMMETRIC Plot the deformations antisymmetrically with respect to the specified plane or planes. See Remarks 3 and 4. Remarks 1. This card is optional. 2. Each of the options r, s, and t may have any one of the six BCD values X, Y, Z, MX, MY, or MZ ("M" denotes the negative directions of the axes) so that together they represent three mutually perpendicular axes, defining a right-handed coordinate system. 3. By properly selecting the options r, s, and t on the AXES card, any desired orientation can be obtained by the VIEW card (see description) by specifying rotations that are all less than 90.0 degrees. 4. The SYMMETRIC option by itself does not in any way affect the plot output. It can be specified to indicate (for informational purposes only) that the alignment defined by the AXES card represents the symmetric reflection of the structure, but the actual plot of the symmetric portion can be obtained only by suitably specifying the alignment of the XYZ axes on the AXES card. See Remark 6. 5. The ANTISYMMETRIC option causes the signs of the deformations to be reversed before they are plotted. If you want this antisymmetrically deformed plot to appear in the reflected position with respect to one or more planes of symmetry, you should appropriately specify the alignment of the XYZ axes on the AXES card. See Remark 7. 6. An undeformed or deformed plot of the symmetric portion of an object can be obtained by reversing the sign of the axis that is normal to the plane of symmetry. In the case of multiple planes of symmetry, the signs of all associated planes should be reversed. 7. The ANTISYMMETRIC option is useful when a symmetric structure is loaded in an unsymmetric manner. In this case, you can specify the ANTISYMMETRIC option and also suitably define the alignment of the XYZ axes on the AXES card so as to cause the deformations to be plotted antisymmetrically with respect to one or more planes of symmetry. 8. Since the AXES card applies to all parts (SETs) of a single frame, symmetric and antisymmetric combinations cannot be made with this card. The SYMMETRY and ANTISYMMETRY options on the PLOT card (see description) can be employed for that purpose. =PAGE= CAMERA - Camera Specification Description Provides camera specifications for microfilm plotters. Format and Example PAPER 1 CAMERA FILM , BLANK FRAMES BOTH n CAMERA FILM, 2 Option Meaning FILM 35 mm or 16 mm film (positive or negative images). PAPER Positive prints. BOTH Positive prints and 35 mm or 16 mm film. n Number of blanks to be inserted between plots (Integer > 0). (Applicable only to plots generated on film, that is, only if FILM or BOTH is selected. Remarks 1. This card is optional. =PAGE= CONTOUR - Contour Plot Definition Description Specifies the type of contour plot and the contour values to be plotted. Format and Example stress EVEN 10 COLOR n CONTOUR strain , LAYER n , EVEN n , displacement LIST c1,c2,...,cn FILL n Z1 COMMON , Z2 , MAX LOCAL MID CONTOUR MAJPRIN, EVEN 20, LOCAL CONTOUR NRM1,LAYER 3, EVEN 15 CONTOUR STRAIN, EVEN 20 Option Meaning stress Type of stress contour plot to be generated, any one of the following nine BCD values (see following table for applicable elements): MAJPRIN Major principal stress (default) MINPRIN Minor principal stress MAXSHEAR Maximum shear stress XNORMAL X, Y, Z components of the normal stress YNORMAL ZNORMAL XYSHEAR XY, XZ, YZ components of the shear stress XZSHEAR YZSHEAR (Stresses in layer composite QUAD4.) NRM1 Normal-1 NRM2 Normal-2 SH12 Shear-12 SH1Z Shear-1Z SH2Z Shear-2Z strain STRAIN, strain energy for all elements. displacement Type of displacement contour plot to be generated, any one of the following four BCD values (no default): XDISPLAC X, Y, Z components of the displacement vector (use YDISPLAC XDISPLAC for plotting of temperatures in heat ZDISPLAC rigid formats) MAGNITUD Magnitude of the displacement vector LAYER n Composite layer to be plotted (used with QUAD4 only). EVEN n Contour plots will be generated for n (0 < Integer < 50) equally spaced contour values over the current range of values. The first contour value will be the minimum and the nth contour value will be the maximum of the values for the current range of values. The current range of values is taken over all subcases. LIST c1,c2,...,cn Contour plots will be generated for the contour values ci (Real) specified in the list. Z1 Stresses at fiber distance 1 are to be used for the contour plotting. (See following table for applicable elements.) Z2 Stresses at fiber distance 2 are to be used for the contour plotting. (See following table for applicable elements.) MAX The maximum of the fiber distance 1 and fiber distance 2 stresses are to be used for the contour plotting. (See following table for applicable elements.) MID The average of the fiber distance 1 and fiber distance 2 stresses are to be used for the contour plotting. (See following table for applicable elements.) COMMON Transform the normal stresses and shear stresses from the local (or element) coordinate systems (in which they are originally calculated) to a common (specifically, to the basic) coordinate system for contour plotting. COLOR n, FILL n Contour plots will be generated with color contour lines, with the color variation depending on the number of pens available. LOCAL Leave the stresses in the local (or element) coordinate systems for contour plotting. Note that the normal Z stress and the shear XZ and shear YZ stresses are assumed to be zero in the local or element coordinate systems. Remarks 1. This card is optional. 2. The CONTOUR option must be specified on the PLOT card (see description) in order to obtain contour plots. 3. The stress contour option is available only for certain element types. The applicable element types and the allowable options are shown in the following table. Applicable Element Types and Allowable Options for Stress Contour Plots Ŀ ELEMENT STRESS STRESS COORDINATE NAME OPTION LOCATION SYSTEM Ĵ TRIA1 MAJPRIN Z1, Z2, or MAX LOCAL QUAD1 MINPRIN LOCAL QUAD4 MAXSHEAR LOCAL TRPLT XNORMAL COMMON or LOCAL QDPLT YNORMAL COMMON or LOCAL ZNORMAL COMMON XYSHEAR COMMON or LOCAL XZSHEAR COMMON YZSHEAR COMMON TRIA2 MAJPRIN MID LOCAL QUAD2 MINPRIN LOCAL TRBSC MAXSHEAR LOCAL XNORMAL COMMON or LOCAL YNORMAL COMMON or LOCAL ZNORMAL COMMON XYSHEAR COMMON or LOCAL XZSHEAR COMMON YZSHEAR COMMON TREM MAJPRIN Z1 LOCAL QDMEM MINPRIN LOCAL QDMEM1 MAXSHEAR LOCAL QDMEM2 XNORMAL COMMON or LOCAL YNORMAL COMMON or LOCAL ZNORMAL COMMON XYSHEAR COMMON or LOCAL XZSHEAR COMMON YZSHEAR COMMON SHEAR MAXSHEAR Z1 LOCAL 4. The displacement contour option is applicable to all two-dimensional elements plotted by the structure plotter. 5. The contour lines are labeled with integers indicating the contour value. The integers are listed with their associated contour values under MESSAGES FROM THE PLOT MODULE in the printed output. =PAGE= CSCALE - Character Scale Specification Description Specifies the scale to be used for alphanumeric characters in a structure plot. Format and Example 1 CSCALE n CSCALE 2 Option Meaning n Factor by which the normal (or default) size of alphanumeric characters is multiplied (Integer > 0). Remarks 1. This card is optional. 2. See Section 4.1.1 for an important discussion of plot frame size and character size. =PAGE= FIND - Automatic Computation of Plot Parameters Description Computes any of the parameters SCALE, ORIGIN i, and VANTAGE POINT indicated by you. Format and Example FIND [SCALE f] [,ORIGIN i] [,VANTAGE POINT] [,SET j] 0.0 0.0 1.0 1.0 ,REGION le , be , re , te FIND SCALE, ORIGIN 100, VANTAGE POINT, SET 5, REGION 0.3, 0.1, 0.9, 0.8 Option Meaning f Ratio by which the scale is multiplied after it is calculated (Real). See Remark 6. i Origin identification number (Integer > 0). j Set identification number (Integer > 0). le Fractional distance of left edge of plot region from the lower left corner of the image area (Real). be Fractional distance of bottom edge of plot region from the lower left corner of the image area (Real). re Fractional distance of right edge of plot region from the lower left corner of the image area (Real). te Fractional distance of top edge of plot region from the lower left corner of the image area (Real). Remarks 1. This card is optional, but is recommended for general use. 2. Multiple FIND cards are permitted for use with different plots. Each FIND card must be one logical card. 3. This card computes any of the indicated parameters SCALE, ORIGIN i, and VANTAGE POINT based on: - The plotter requested on the PLOTTER card. - The type of projection requested on the PROJECTION card. - SET j and REGION le, be, re, te requested on the FIND card. - The orientation requested on the AXES and/or VIEW card(s). - The deformation scaling requested on the MAXIMUM DEFORMATION card. - The paper size requested on the PAPER SIZE card (for table and drum plotters). The dependencies on which a FIND card is based must precede the FIND card. 4. Any one, two, or all three of the parameters may be computed by the program by using this card, provided that the parameters not requested have already been defined. If no SET is specified on this card, the first SET defined is used by default. If no options are specified, a SCALE and VANTAGE POINT are selected and ORIGIN 1 is located, using the first defined SET, so that the plotted object is located within the image area. The plot region is defined as some fraction of the image area (image area = 0.0, 0.0, 1.0, 1.0. and first quadrant = 0.5, 0.5, 1.0, 1.0). The image area is located inside the margins on the paper. 5. If a parameter is defined more than once, the value or choice last stated (or computed) will be used. Because of this, it is recommended that the FIND card be inserted immediately before the PLOT command to which its values apply to ensure that previous values of the parameters are overridden. 6. The scale used in plotting (see the description of the SCALE card for the definition) is f x s, where f is the value specified on the FIND card (a default value of 1.0 is used if f is not specified) and s is the scale factor initially computed at the instance of the FIND card. =PAGE= MAXIMUM DEFORMATION - Maximum Displacement Specification Description Specifies the scale of the maximum displacement component in units of the structure. Format and Example MAXIMUM DEFORMATION dmax MAXIMUM DEFORMATION 5.0 Option Meaning dmax Length to which the maximum displacement component is scaled in each subcase (Real). The value should be specified in units of the structure, not inches of paper. See Remark 3. Remarks 1. This card is optional and is applicable only to plots of deformed structures. It's use is recommended in such cases. This is because the actual deformations are usually too small to be distinguishable from the undeformed structure if they are plotted to true scale. If this card is not used, a default value of 5% of the maximum (that is, 0.05 max (Smax - Smin, Tmax - Tmin)) is assumed for dmax. 2. If the FIND card parameters are to be based on the deformed structure, the FIND card must be preceded by the MAXIMUM DEFORMATION card. 3. If the MAXIMUM DEFORMATION parameter d on the PLOT card (see description) is not specified, the maximum displacement component in each subcase will be scaled to a value equal to dmax specified on the MAXIMUM DEFORMATION card. But if the MAXIMUM DEFORMATION parameter d on the PLOT card is specified, the maximum displacement component for all subcases will be scaled to a value equal to dmax/d. Thus, in the latter case, each subcase will have a different maximum displacement component. =PAGE= OCULAR SEPARATION - Ocular Separation Definition Description Defines the S-direction separation of the two vantage points used in stereoscopic projection. Format and Example 2.756 OCULAR SEPARATION os OCULAR SEPARATION 2.5 Option Meaning os S-direction separation (in inches) of the two vantage points used in stereoscopic projection (Real). (See the discussion in Section 4.2.1.3). Remarks 1. This card is optional. It is applicable only for stereoscopic projection. 2. It is recommended that the default value of 2.756 inches be used. This is the separation used in standard stereoscopic cameras and viewers (70 mm). =PAGE= ORIGIN - Paper Origin Definition Description Defines the paper origin (lower left hand corner] by specifying its displacements from the RST origin. Format and Example ORIGIN i, u, v [,u'] ORIGIN 10, 2.0, 3.0 Option Meaning i Origin identification number (Integer > 0). u Displacement, parallel to the S-axis, of the paper origin from the RST origin (for stereoscopic projection, displacement, parallel to the S-axis, of the paper origin for the left eye from the RST origin) (Real). v Displacement, parallel to the T-axis, of the paper origin from the RST origin (Real). u' Displacement, parallel to the T-axis, of the paper origin for the right eye from the RST origin (stereoscopic projection only) (Real). Remarks 1. This card is optional, but is not recommended for general use. See the description of the FIND card in order to have the origin located automatically so as to place the plotted object in the center of the image area. 2. The displacements specified are in inches and are not subject to the scaling of the plotted object. 3. In the transformations performed for any of the three projections, the origins of the object (XYZ) and the observer (RST) are assumed to be coincident. 4. Ten (10) origins are permitted to be active at any one time. However, any one can be redefined at any time. An eleventh origin is also provided if more than 10 origins are erroneously defined (that is, only the last of these surplus origins will be retained). CAUTION: When a new projection or plotter is called for, all previously defined origins are deleted. =PAGE= PAPER SIZE - Plot Frame Size Specification Description Specifies the plot frame size for table and drum plotters. (For microfilm plotters, the plot frame size is set at 10.23 inches x 10.23 inches and is not under user control.) Format and Example PAPER SIZE a X b , TYPE VELLUM BY value PAPER SIZE 15.0 X 12.0 Option Meaning a Width (parallel to the S-axis) of plot frame in inches (Real > 0.0). Must not exceed 30.0 for table plotters. b Height (parallel to the T-axis) of plot frame in inches (0.0 < b <= 30.0). value Any BCD value desired by user for identification purposes. Remarks 1. This card is optional. If it is not used, the following default values are assumed: Plotter Default values (inches) Model a b Table 11.0 8.5 Drum 30.0 30.0 2. See Section 4.1.1 for an important discussion of plot frame size and character size. =PAGE= PEN - Pen Specification Description Specifies the parameters of the pen for use in table and drum plotters. Format and Example PEN 1 , SIZE 1 , COLOR BLACK i j name PEN 4, SIZE 2, COLOR RED Option Meaning i Pen designation number (8 >= Integer > 0). j Pen size number (Integer >= 0). name Color desired (BCD). Remarks 1. This card is optional. It is applicable only for table and drum plotters. 2. Pen designations vary on different plotters and the actual number of pens available will depend on the plotter hardware configuration at an installation. Therefore, the designation numbers used here should be regarded only as pointers to the true identification of the pens. 3. This card generates a message on the printed output which may be used for the purpose of informing the plotter operator as to what size and which color pen point to mount in the various pen holders. 4. This card does not control the pen used in generating the plot (see the PEN option on the PLOT card). =PAGE= PLOT - Plot Generation Description Specifies all plot parameters so as to cause plots to be generated for the selected plotter. Format STATIC MODAL DEFORMATION PLOT CMODAL VELOCITY [CONTOUR] [i1, i2 THRU i3, etc.] FREQUENCY ACCELERATION TRANSIENT RANGE f1,f2 PHASE LAG RANGE lambda1,lambda2 ,[MAXIMUM DEFORMATION d], TIME t1,t2 MAGNITUDE SYMMETRY PEN [SET j1][ORIGIN k1] w ANTISYMMETRY DENSITY GRID POINTS p [SYMBOLS m[,n]] LABEL ELEMENTS , BOTH EPID SHAPE VECTOR v SHAPE,VECTOR v OUTLINE , [NOFIND] , [OFFSET n] HIDDEN SHRINK s FILL [SET j2][ORIGIN k2] ... etc. Option Meaning 1. STATIC Plot static deformations in Rigid Formats 1, 2, 4, 5, 6, and 14; Heat Rigid Formats 1 and 3; Aero Rigid Format 11. MODAL Plot mode shapes in Rigid Formats 3, 5, 13, and 15. CMODAL Plot mode shapes in Aero Rigid Format 10. FREQUENCY Plot frequency deformations in Rigid Formats 8 and 11 and Aero Rigid Format 11. TRANSIENT Plot transient deformations in Rigid Formats 9 and 12; Heat Rigid Format 9; Aero Rigid Format 11. 2. DEFORMATION Nonzero integers(i) following refer to subcases that are to be plotted. Default is all subcases. See SHAPE and VECTOR for use of "O" command. VELOCITY Nonzero integers(i) following refer to subcases that are to be plotted. Default is all subcases. ACCELERATION Nonzero integers(i) following refer to subcases that are to be plotted. Default is all subcases. 3. CONTOUR Refers to stress or displacement contour lines and values. If deformed plots are requested, then the contours will be drawn on the deformed shape. If an underlay is requested (via "O" in the subcase string), the contours will be drawn on the undeformed shape. 4. i1, i2,... Nonzero integers specifying the subcases that are to be plotted. Default is all subcases. See SHAPE and VECTOR for use of "O" (underlay) command. 5. RANGE Refers to range of eigenvalues (lambda1 - lambda2; real) (Rigid Format 5) or frequencies (f1- f2; real) (Rigid Formats 3, 8, 10, 11, 13, and 15), using requested subcases, for which plots will be prepared. TIME Refers to time interval (t1 - t2; real), using requested subcases and output time steps, for which plots will be prepared (Rigid Formats 9 and 12). 6. PHASE LAG Real number, , in degrees (default is 0.0). The plotted value is uR cos - uI sin , where uR and uI are the real and imaginary parts of the response quantity (Rigid Formats 8 and 11). MAGNITUDE Plotted value is square root of (uR2 + uI2). 7. MAXIMUM DEFORMATION Real number d. The value dmax/d (where dmax is the value specified on the MAXIMUM DEFORMATION card; see description) is used as the maximum displacement component in scaling the displacements for all subcases. Each subcase is scaled separately to the value dmax according to its own maximum if this item is absent. 8. SET Integer following (j) identifies a set which defines the portion of the structure to be plotted. Default is first set defined. 9. ORIGIN Integer following (k) identifies the origin to be used for the plot. Default is first origin defined. 10. SYMMETRY w Prepare an undeformed or deformed plot of the symmetric portion of the object which is defined by SET j. This symmetric portion will be located in the space adjacent to the region originally defined by ORIGIN k, and will appear as a reflection about the plane whose normal is oriented parallel to the coordinate direction w. ANTISYMMETRY w Prepare a deformed plot of the symmetric portion of the antisymmetrically loaded object which is defined by SET j. This symmetric portion will be located in the space adjacent to the region originally defined by ORIGIN k, and will appear as a reflection of the antisymmetrically deformed structure about the plane whose normal is oriented parallel to the coordinate direction w. The symbol w may specify the basic coordinates X, Y, or Z or any combination thereof. This option allows the plotting of symmetric and/or antisymmetric combinations, provided that an origin is selected for the portion of the structure defined by the bulk data that allows sufficient room for the complete plot. This does not permit the combination of symmetric and antisymmetric subcases, as each plot must represent a single subcase. In the case of a double reflection, the figure will appear as one reflected about the plane whose normal is parallel to the first of the coordinates w, followed by a reflection about the plane whose normal is oriented parallel to the second of the coordinates w. This capability is primarily used in the plotting of structures that are loaded in a symmetric or an antisymmetric manner. The plane of symmetry must be one of the basic coordinate planes. In order to get both unreflected and reflected portions of a symmetric structure plotted on the same frame, the PLOT command must have two parts. The first part must contain instructions to plot a segment with a specified origin (biased to one side), but without the SYMMETRY or ANTISYMMETRY option; the second part following must contain instructions to plot the same segment with the same origin, but now with an appropriate choice of the SYMMETRY or ANTISYMMETRY option. See Example 6. 11. PEN Integer following (p) controls the internal NASTRAN pen number that is used to generate the plot on table and drum plotters. DENSITY Integer following (p) specifies line density for microfilm plotters. A line density of d is d times heavier than a line density of 1. 12. SYMBOLS m[,n] Each of the grid points associated with the specified set will have symbol m overprinted with symbol n printed at its location. If n is not specified, only symbol m will be printed. Grid points excluded from the set will not have a symbol. Grid points in an undeformed underlay will be identified with symbol 2. The following table gives the correspondence between the values of m and n and the symbols used in plotting. m or n SYMBOL 0 no symbol 1 X 2 * 3 + 4 - 5 filled bullet 6 open circle 7 open square 8 open diamond 9 open triangle 13. LABEL GRID POINTS All the grid points associated with the specified set have their identification number printed to the right of the undeflected or deflected location (undeflected location for superimposed plots). LABEL ELEMENTS All the elements included in the specified set are identified by the element identification number and type at the center of each element (undeflected location for superimposed plots). LABEL BOTH Label both the grid points and elements. Labels for element types are given in the following table: Element Type Plot Label Element Type Plot Label AERO1 AE QUAD2 Q2 AXIF2 A2 ROD RD AXIF3 A3 SHEAR SH AXIF4 A4 SLOT3 S3 BAR BR SLOT4 S4 CONE CN TETRA TE CONROD CR TORDRG TR DUMi Di(i=1-9) TRAPAX T4 HBDY HB TRAPRG TA HEXA1 H1 TRBSC TB HEXA2 H2 TRIAAX T3 FLUID2 F2 TRIARG TI FLUID3 F3 TRIA1 T1 FLUID4 F4 TRIA2 T2 IHEX1 XL TRIM6 T6 IHEX2 XQ TRMEM TM IHEX3 XC TRPLT TP PLOTEL PL TRPLT1 P6 QDMEM QM TRSHL SL QDMEM1 M1 TUBE TU QDMEM2 M2 TWIST TW QDPLT QP VISC VS QUAD1 Q1 WEDGE WG LABEL EPID All the elements included in the specified set are identified by the element property identification number (in addition to the element identification number and type) at the center of each element type (undeflected location for superimposed plots). Note that LABEL EPID causes element and property labels to be printed, but LABEL ELEMENT results only in element labels. 14. SHAPE All the elements included in the specified set are shown by connecting the associated grid points in a pre-determined manner. Both deformed and undeformed shapes may be specified. All of the deformed shapes relating to the subcases listed may be underlaid on each of their plots by including "O" with the subcase string on the PLOT card. The undeformed plot will be drawn using PEN 1 or DENSITY 1 and symbol 2 (if SYMBOLS is specified). 15. VECTOR v A line will be plotted at the grid points of the set, representing in length and direction the deformation of the point. Vectors representing the total deformation or its principal components may be plotted by insertion of the proper letter(s) for variable v. Possible vector combinations are: X or Y or Z requesting individual components XY or XZ or YZ requesting two specified components XYZ requesting all three components RXY or RXZ or RYZ requesting vector sum of two components R requesting total vector deformation N used with any of the above combinations to request no underlay shape be drawn. All plots requesting the VECTOR option shall have an underlay generated of the undeformed shape using the same sets, PEN 1 or DENSITY 1, and symbol 2 (if SYMBOLS is specified). If SHAPE and VECTOR are specified, the underlay will depend on whether "O" is used with DEFORMATION. It will be the deformed shape when not used and will be both deformed and undeformed shapes when it is used. The part of the vector at the grid point will be the tail when the underlay is undeformed and the head when it is deformed. If the "N" parameter is used with VECTOR, no shape will be drawn but other options such as SYMBOLS will still be valid. 16. OUTLINE Connecting lines between grid points that lie on the boundary of the structural model will be plotted. The outline will reflect the deformed shape unless "O" is included in the subcase string. The OUTLINE option will be ignored if the CONTOUR option is not also requested. 17. HIDDEN Provides a hidden image plot of the elements in the plot set. The HIDDEN option will be ignored if the CONTOUR option is also requested. The LABEL option should not be used with the HIDDEN option. 18. SHRINK s The real value (s) is the factor used to shrink or reduce elements within connecting grid points. The value s is limited to 0.1 to 1.0 with a default value of 0.75. 19. FILL Provides the color filling of elements using the color specified by PEN. 20. NOFIND Disables the automatic FIND for this plot. That is, the SET defined for the present plot will be drawn using the SCALE, VANTAGE POINT, and ORIGIN from the previous PLOT command. 21. OFFSET n If OFFSET is not requested or n = 0, elements with offsets (CBAR, CQUAD4, and CTRIA3) will be plotted from and to the offsets (not from and to the grid point locations). Since the offsets are usually very small as compared to the bar lengths or the plate edges, the actual directions of the offsets are arbitrarily set (normally 90 degrees from bar or edge). If OFFSET n is requested and n > 0, only those elements which have offsets are plotted, the actual offset directions are computed, and the magnitudes of the offsets are amplified n times. Offset plot is available only in the undeformed plot. If n < 0, all elements will be plotted without the offsets, from and to the grid point locations. (Default n = 0.) Remarks 1. The plot card is required to generate plots. Each logical card will cause one picture to be generated for each subcase, mode, or time step requested, using the current parameter values. 2. If only the word PLOT appears on the card, a picture of the undeformed structure will be prepared using the first defined set and the first defined origin. 3. If no FIND card is given after the previous PLOT card, the specified set on the PLOT card is used to perform an automatic FIND operation. Examples Following are some examples illustrating the use of the PLOT card: 1. PLOT Undeformed SHAPE using first defined SET, first defined ORIGIN, and PEN 1 (or DENSITY 1). 2. PLOT SET 3 ORIGIN 4 PEN 2 SHAPE SYMBOLS 3 LABEL Undeformed SHAPE using SET 3, ORIGIN 4, PEN 2 (or DENSITY 2) with each grid point of the set having a + placed at its location, and its identification number printed adjacent to it. 3. PLOT MODAL DEFORMATION 5 SHAPE Modal deformations as defined in subcase 5 using first defined SET, first defined ORIGIN, and PEN 1 (or DENSITY 1). Subcases must have previously been defined in the Case Control Deck via the use of MODES cards, otherwise all modes will be in an assumed subcase 1. 4. PLOT STATIC DEFORMATION 0, 3 THRU 5, 8 PEN 4, SHAPE Static deformations as defined in subcases 3, 4, 5, and 8, deformed SHAPE; drawn with PEN 4, using first defined SET and ORIGIN, underlaid with undeformed SHAPE drawn with PEN 1. This command will cause four plots to be generated. 5. PLOT STATIC DEFORMATION 0 THRU 5, SET 2 ORIGIN 3 PEN 3 SHAPE, SET 2 ORIGIN 4 PEN 4 VECTORS XYZ SYMBOLS 6, SET 35 SHAPE Deformations as defined in subcases 1, 2, 3, 4, and 5, undeformed underlay with PEN 1, consisting of SET 2 at ORIGIN 3, SET 2 at ORIGIN 4 (with an * placed at each grid point location), and SET 35 at ORIGIN 4. Deflected data as follows: SHAPE using SET 2 at ORIGIN 3 (PEN 3) and SET 35 at ORIGIN 4 (PEN 4); 3 VECTORS (X, Y, and Z) drawn at each grid point of SET 2 at ORIGIN 4 (PEN 4) (less any excluded grid points), with open circle placed at the end of each vector. 6. PLOT STATIC DEFORMATIONS 0, 3, 4, SET 1 ORIGIN 2 DENSITY 3 SHAPE, SET 1 SYMMETRY Z SHAPE, SET 2 ORIGIN 3 SHAPE, SET 2 SYMMETRY Z SHAPE Static deformations as defined in subcases 3 and 4, both halves of a problem solved by symmetry using the X-Y principal plane as the plane of symmetry. SET 1 at ORIGIN 2 and SET 2 at ORIGIN 3, with the deformed shape plotted using DENSITY 3 and the undeformed structure plotted using DENSITY 1. The deformations of the "opposite" half will be plotted to correspond to symmetric loading. This command will cause two plots to be generated. 7. PLOT TRANSIENT DEFORMATION 1, TIME 0.1, 0.2, MAXIMUM DEFORMATION 2.0, SET 1, ORIGIN 1, PEN 2, SYMBOLS 2, VECTOR R Transient deformations as defined in subcase 1 for time = 0.1 to time = 0.2, using SET 1 at ORIGIN 1. The undeformed shape using PEN or DENSITY 1 with an * at each grid point location will be drawn as an underlay for the resultant deformation vectors using PEN or DENSITY 2 with an * typed at the end of each vector drawn. In addition, a plotted value of dmax/2.0 (where dmax is the value specified on the MAXIMUM DEFORMATION card) will be used for the single maximum deformation occurring on any of the plots produced. All other deformations on all other plots will be scaled relative to this single maximum deformation. This command will cause a plot to be generated for each output time step which lies between 0.1 and 0.2. 8. PLOT CMODAL DEFORMATION PHASE LAG 90., SET 1 VECTOR R The imaginary part of the complex mode shape will be plotted for SET 1. 9. PLOT CONTOUR 2 PLOT CONTOUR 2 OUTLINE CONTOUR MINPRIN PLOT STATIC DEFORMATION CONTOUR 1 OUTLINE The first PLOT card will cause Major Principal Stress contours to be plotted on the undeformed shape of the complete model and the second PLOT card will cause the outline of the model to be plotted due to the defaults associated with the CONTOUR card. Contour stress plots of the Minor Principal Stress will be plotted on the outline of the deformed shape by the third PLOT card. 10. PLOT SET 10 SHRINK .85 The undeformed shape of the elements defined by SET 10 will be drawn, with element sizes reduced to 85 percent of the scaled size. Grid locations will be automatically scaled to fill the image area. 11. SET 10 = ALL SET 20 = 100 THRU 200 FIND SCALE ORIGIN 1 SET 10 PLOT SET 10 PLOT SET 20 NOFIND PLOT SET 20 There will be three frames of the undeformed structure plotted. The first will display the entire structure, scaled to fill the image area. The second frame will display elements 100 through 200, using the scale for the previous plot. The third frame will display elements 100 through 200, scaled to fill the image area. 12. PLOT SET 10 PEN 6 FILL The undeformed shape of the elements defined by SET 10 will be filled by the color defined by PEN 6. =PAGE= PLOTTER - Plotter Model Specification Description Specifies the model and the typing capability of the plotter to be used for plotting. Format and Example PLOTTER NASTPLT , [MODEL] M , 1 [DENSITY n] T 0 D PLOTTER NASTPLT, T, 0 Option Meaning M Microfilm plotter. T Table plotter. D Drum plotter. 0 Plotter has typing capability. 1 Plotter has no typing capability. In this case, all characters will be drawn. n Density of the plot tape in bits per inch (Integer > 0). Remarks 1. This card is optional. If it is used, it is recommended that it be the very first card after the OUTPUT(PLOT) card in the structure plot request packet. 2. The tape density information is used only in the printout and does not control the density of the generated plot tape. To control the tape density, you must use the customary means of communication established at a given installation between you and the computer operators. =PAGE= PROJECTION - Projection Specification Description Specifies the type of projection to be used in the plotting. Format and Example ORTHOGRAPHIC PERSPECTIVE PROJECTION STEREOSCOPIC PERSPECTIVE PROJECTION Remarks 1. This card is optional. 2. See Section 4.2.1 for a discussion of the various projections. See also Section 13 of the Theoretical Manual. =PAGE= PROJECTION PLANE SEPARATION - Projection Plane Definition Description Specifies the R-direction separation of the observer and the projection plane in perspective and stereoscopic projections. Format and Example PROJECTION PLANE SEPARATION do PROJECTION PLANE SEPARATION 5.0 Option Meaning do R-direction separation of the observer and the projection plane (Real). Remarks 1. This card is optional. It is applicable only for perspective and stereoscopic projections. See Figure 4.2-3 and the discussion in Section 4.2.1. 2. This card is not recommended for general use. It may be omitted if VANTAGE POINT is included on the FIND card (see description). 3. See Section 13 of the Theoretical Manual for a theoretical discussion of the projection plane separation. =PAGE= PTITLE - Plot Title Definition Description Defines the plot title for a series of plots. Format and Example PTITLE blanks BCD string PTITLE VIBRATION ANALYSIS OF A PLATE Option Meaning BCD string May be up to 64 characters. Remarks 1. This card is optional. 2. A plot title card remains in effect until a new plot title is defined. To eliminate a previous plot title, a new plot title card which contains only blanks must be defined. 3. A plot title card must precede the PLOT card to which it pertains. If a PLOT card generates several plot frames, the preceding plot title card will apply to all the frames. =PAGE= SCALE - Plotted Object Scale Definition Description Defines the scale of the plotted object with respect to the real object. Format and Example SCALE a [,b] SCALE 0.5, 0.75 Option Meaning a Ratio of the plotted object in inches to the real object (for orthographic or perspective projections) or a smaller model (for stereoscopic projection; see below) in the units of the structural model; that is, one inch of paper equals one unit of the structure (Real). b Ratio by which the real object is first reduced to a smaller model before applying the scale factor a described above (Real). Used only in stereoscopic projections to enhance the stereoscopic effect. Remarks 1. This card is optional, but is not recommended for general use. See the description of the FIND card in order to have the scale determined automatically. 2. For stereoscopic projections, the ratio of the plotted object to the real object is given by the product a x b. =PAGE= SET - Set Definition Description Specifies sets of elements, corresponding to portions of the structure, which may be referenced by FIND and PLOT cards. Format SET i [INCLUDE] [ELEMENTS] j1, j2, j3 THRU j4, j5, etc. INCLUDE ELEMENTS EXCLUDE GRID POINTS k1, k2, k3 THRU k4, k5, etc. EXCEPT Option Meaning i Set identification number (Integer > 0). j Element identification numbers (Integers > 0) or element types (BCD values). k Element identification numbers or grid point identification numbers (Integers > 0) or element types (BCD values). Remarks 1. This card is required. However, when plotting in the substructure environment in Phase 2 (via the substructure PLOT command, see Section 2.7.3), the set definition specified by this card is ignored. 2. Multiple SET cards can be used to define multiple sets of elements, but redefinition of previously defined SETs is not permitted. Also, each SET must be one logical card and each SET identification number must be unique. 3. ALL may be used to select all permissible element types. The following are the permissible element types: AERO1, AXIF2, AXIF3, AXIF4, BAR, CONEAX, CONROD, DUMi (i = 1-9), HBDY, HEXA1, HEXA2, FLUID2, FLUID3, FLUID4, IHEX1, IHEX2, IHEX3, PLOTEL, QDMEM, QDMEM1, QDMEM2, QDPLT, QUAD1, QUAD2, ROD, SHEAR, SLOT3, SLOT4, TETRA, TORDRG, TRAPAX, TRAPRG, TRBSC, TRIAAX, TRIARG, TRIA1, TRIA2, TRIM6, TRMEM, TRPLT, TRPLT1, TRSHL, TUBE, TWIST, VISC, WEDGE. 4. INCLUDE may be used at any time for element information. When used with grid points, INCLUDE can be used only to restore previously EXCLUDEd grid points. It cannot be used to include grid points in the original set of grid points. 5. EXCLUDE can be used to delete elements or element types. All grid points that are associated with deleted elements are also deleted. EXCLUDE can be used to delete deformation vectors from grid points enumerated after an EXCLUDE command. 6. EXCEPT is a modifier to an INCLUDE or an EXCLUDE statement. 7. THRU is used to indicate all of the integers in a sequence of identification numbers, starting with the integer preceding THRU and ending with the integer following THRU. The integers in the range of the THRU statement need not be consecutive; for example, the sequence 2, 4, 7, 9 may be specified as 2 THRU 9. 8. Each set of elements defines by implication a set of grid points connected by those elements. The set may be modified by deleting some of its grid points. The elements are used for creating the plot itself and element labeling, and the grid points are used for labeling, symbol printing, and drawing deformation vectors. 9. It should be noted that only elements can be plotted. Grid points not associated with elements cannot be plotted. Grid points may be connected with PLOTEL elements for plotting purposes. 10. When using axisymmetric (CONEAX, TRAPAX, or TRIAAX) or fluid (FLUID2, FLUID3, or FLUID4) elements, the element and grid point identification numbers specified on the SET card must refer to the NASTRAN (or internal) identification numbers rather than to your (or external) identification numbers. The relationships between these two sets of identification numbers are given in Section 1.3.7.3 for the axisymmetric elements and in Section 1.7.1.4 for the fluid elements. Examples The sets of identification numbers can be assembled by use of the word ALL, or by individually listing the integers in any order, such as 1065, 32, 46, 47, 7020, or by listing sequences using THRU, EXCLUDE, and EXCEPT, such as 100 THRU 1000 EXCEPT 182 EXCLUDE 877 THRU 911. Following are some examples of SET cards: 1. SET 1 INCLUDE 1, 5, 10 THRU 15 EXCEPT 12 Set will consist of elements 1, 5, 10, 11, 13, 14 and 15. 2. SET 25 = ROD, CONROD, EXCEPT 21 Set will consist of all ROD and CONROD elements except element 21. 3. SET 10 SHEAR EXCLUDE GRID POINTS 20, 30 THRU 60, EXCEPT 35, 36 INCLUDE ELEMENTS 70 THRU 80 This set will include all SHEAR elements plus elements 70 through 80, and the associated grid point set will contain all grid points connected by these elements. Grid points 20, 30 through 34, and 37 through 60 will appear on all plots with their symbols and labels; however, no deformation vectors will appear at these grid points when VECTOR is commanded. 4. SET (15) = (15 THRU 100) EXCEPT (21 THRU 25) This set will include all elements from 15 to 20 and from 26 to 100. 5. SET 2 = ALL EXCEPT BAR This set will include all elements except BARs. NOTE: The equal signs, commas, and parentheses above are delimiters and are not required because blanks also serve as delimiters. =PAGE= VANTAGE POINT - Vantage Point Definition Description Defines the location of the observer with respect to the structural model by defining the vantage point(s) used in perspective and stereoscopic projections. Format and Example VANTAGE POINT ro, so, to [,sor] VANTAGE POINT 2.0, 5.0, 0.0 Option Meaning ro R-coordinate of the observer (Real). so S-coordinate of the observer in perspective projection or the S-coordinate of the left eye of the observer in stereoscopic projection (Real). to T-coordinate of the observer (Real). sor S-coordinate of the right eye of the observer in stereoscopic projection (not needed in perspective projection) (Real). Remarks 1. This card is optional. It is applicable only for perspective and stereoscopic projections. See Figure 4.2-3 and the discussion in Section 4.2.1. 2. This card is not recommended for general use. See the description of the FIND card in order to have the VANTAGE POINT(s) determined automatically. 3. See Section 13 of the Theoretical Manual for a theoretical description of the vantage point. =PAGE= VIEW - XYZ Axes Orientation Specification Description Defines the orientation of the XYZ axes (the basic coordinate system of the object) with respect to the RST axes (the observer's coordinate system). See Figure 4.2-1. Format and Example VIEW 34.27 , 23.17 or 0.0 , 0.0 VIEW 45.0, 30.0, 0.0 Option Meaning Angle of turn (degrees) (Real). See Figure 4.2-1. Angle of tilt (degrees) (Real). See Figure 4.2-1. Angle of orientation (degrees) (Real). See Figure 4.2-1. Remarks 1. This card is optional. 2. The default value for is 23.17 degrees for orthographic and perspective projections and 0.0 degrees for stereoscopic projections. 3. The order in which , , and are specified is critically important as illustrated in Figure 4.2-3. See also Section 13.1.1 of the Theoretical Manual. 4. By proper use of the AXES card (see description), any desired orientation can be obtained by the VIEW card by specifying rotations that are all less than 90.0 degrees. =PAGE= 4.2.3 Error Messages The structure plotting software in NASTRAN contains messages related to plot requests that are not in the same format as the other diagnostic messages described in Section 6. These messages are warnings and notify you that the erroneous plot requests are being ignored. Only legitimate plot requests, if any, will be honored. The messages and their meanings are as follows: 1. NO PLOTTABLE STRUCTURAL ELEMENTS EXIST IN SET ********. This message is issued when a SET contains elements that are not permitted as described in Section 4.2.2.4. If a SET has some elements that are plottable and some that are not, the message is not issued and the resulting plot contains only the plottable elements. 2. ALL REFERENCES TO SET ******** WILL DEFAULT TO FIRST SET DEFINED. This message is issued when a SET referenced on a PLOT card either does not exist or has been eliminated previously due to another error. 3. REFERENCE TO SET ******** ON FIND CARD WILL DEFAULT TO FIRST DEFINED SET. This message is issued when a SET referenced on a FIND card either does not exist or has been eliminated previously due to another error. 4. MAXIMUM DEFORMATION CARD NEEDED - 5 PER CENT OF MAXIMUM DIMENSION USED. This message is issued when the MAXIMUM DEFORMATION card is not positioned properly in the plot request package or has not been defined. 5. AN UNRECOGNIZABLE OPTION (********) WAS DETECTED ON A -PLOT- CARD. This message is issued when illegal, out of sequence, or misspelled options appear on a PLOT card. The plot will be prepared, if possible, from the remaining information. 6. A NON-EXISTENT ORIGIN (********) HAS BEEN SPECIFIED ON A -PLOT- CARD. This message is issued when an ORIGIN has not been defined or has been previously eliminated by another error. 7. A NON-EXISTENT SET (********) HAS BEEN SPECIFIED ON A -PLOT- CARD. This message is issued when a SET has not been defined or has been previously eliminated by another error. 8. THE -****- PLOT FILE HAS NOT BEEN SET UP...PLOT CARD IGNORED This message is issued when the plot file has not been assigned to tape or disk. No plots are possible. 9. INSUFFICIENT CORE FOR SET (********). CORE AVAILABLE = ********, NEEDED = ********. This message is issued when insufficient core is available to process the SET defined. Either increase the core or reduce the size of the SET to subSETs. 10. *** A PLOT NOT ATTEMPTED DUE TO INPUT OR FILE *** This message is issued when a PLOT command contradicts Case Control. For example, requesting plots for a SUBCASE, EIGENVALUE, LOAD, TIME, or FREQUENCY that does not exist would be contradictory. No plots are possible. 11. *** INCOMPLETE PLOT DUE TO INPUT OR FILE ***. This message is issued for the same reasons as in the preceding message, except some plotting is possible because not all plot requests are contradictory. 12. NO STRESS CALCULATION FOUND FOR ELEMENT NUMBER ******** ELEMENT IGNORED. This message is issued when a STRESS contour plot is requested but STRESS computations were not requested in Case Control. 13. MORE THAN 50 CONTOURS SPECIFIED *** REJECTED. This message is issued for all contour plot requests beginning with the fifty-first request. 14. AN ATTEMPT HAS BEEN MADE TO DEFINE MORE THAN *** DISTINCT ORIGINS. 15. AN UNRECOGNIZABLE PLOT PARAMETER HAS BEEN DETECTED - IGNORED. =PAGE= 4.3 X-Y PLOTTER OUTPUT In rigid formats used for transient response, frequency response (including random response), modal flutter analysis and modal aeroelastic response, the amount of output data generated is voluminous. In order to aid you in assimilating this vast amount of data, the X-Y output processing modules XYTRAN and XYPLOT have been provided. The primary purpose of these modules is to generate plotted graphs of y(x) where x is frequency, time, or velocity and y is any response quantity you select for observation. These modules also provide for the plotting of any response quantity you select versus subcase in static analysis (Rigid Format 1). You are not required to specify any parametric data for the X-Y plotter; however, you may do so if you wish in order to obtain desired scales, regions of observation, etc. In addition to (or in place of) the plots, X-Y tabular output may be printed or punched, and summary data (for example, maximum and minimum values and locations of these values) may be obtained for any X-Y output. There is also provision to generate X-Y plots within the printed output. The X-Y output described above you can obtain via the X-Y output request packet of the Case Control Deck. This packet includes all cards between OUTPUT(XYPLOT) or (XYOUT) and either BEGIN BULK or OUTPUT(PLOT). The remainder of this section describes the X-Y output request data cards and the rules for writing them. Examples are provided to illustrate the use of this feature. 4.3.1 X-Y Plotter Terminology A single set of plotted X-Y pairs is known as a "curve". Curves are the entities that you request to be plotted. The surface (paper, microfilm frame, etc.) on which one or more curves is plotted is known as a "frame". Curves may be plotted on a whole frame, an upper half frame, or a lower half frame. You may choose grid lines, tic marks, axes, axis labeling, and other graphic control items. The program will select defaults for parameters that you do not select. 4.3.2 X-Y Output Request Packet Data 4.3.2.1 Summary of Data Cards Only two cards are required for an X-Y output request. These are: 1. X-Y output request packet identifier - OUTPUT(XYPLOT) or OUTPUT(XYOUT). 2. At least one command operation card. The terms OUTPUT(XYPLOT) and OUTPUT(XYOUT) are interchangeable and either form may be used for any of the X-Y output requests. A plotter selection card is required only if plots are desired and the plotter is other than the default plotter (microfilm plotter without typing capability). The command operation cards are used to request the various forms of X-Y output. For the sake of convenience and completeness, all command operation cards are described together under the description of the XYPLOT data card in Section 4.3.2.5. If only the required cards are used, the graphic control items will all assume default values. Curves using all default parameters have the following general characteristics: 1. Tic marks are drawn on all edges of the frame. Five spaces are provided on each edge of the frame. 2. All tic marks are labeled with their values. 3. Linear scales are used. 4. Scales are selected such that all points fall within the frame. 5. The plotted points are connected with straight lines. 6. The plotted points are not identified with symbols. The above characteristics may be modified by inserting any of the parameter definition cards, described in Section 4.3.2.5, ahead of the command operation card or cards. The use of a parameter definition card sets the value of that parameter for all following command operation cards unless the CLEAR card is inserted. (Because of its impact, you should be very careful in the use of the CLEAR card. See its description for details.) If grid lines are requested, they will be drawn at the locations of all tic marks that result from defaults or your request. You cannont select the locations of tic marks (or grid lines) for logarithmic scales. Default values for logarithmic spacing are selected by the program. The default values for the number of tic marks (or grid lines) per cycle depend on the number of logarithmic cycles required for the range of the plotted values. A summary of the data cards is given in Table 4.3-1. 4.3.2.2 Tic Marks in Plots Tic marks on any edge can be selected by the use of the appropriate "TICS" parameter cards (UPPER TICS, LOWER TICS, LEFT TICS, RIGHT TICS, TLEFT TICS, TRIGHT TICS, BLEFT TICS and BRIGHT TICS). Thus, on any edge, you can select any one of the following options: 1. Tic marks to be drawn without values 2. No tic marks or values to be drawn 3. Tic marks to be drawn with values However, it is very important to note that the results yielded by the use of the above mentioned "TICS" cards may be altered when they are used in conjunction with ALL EDGE TICS, TALL EDGE TICS, or BALL EDGE TICS cards. Noting that the tic values input may only be -1, 0, or 1, the net result of the use of various "TICS" cards may be determined by the following procedure: Add the tic integer value of the edge in question to its associated ALL EDGE TICS, TALL EDGE TICS, or BALL EDGE TICS integer value. Let the resulting value be termed "ticsum". Then we have the following: If ticsum < 0, tic marks will be drawn without values. If ticsum = 0, no tic marks or values will be drawn. If ticsum > 0, tic marks will be drawn with values. You should therefore be careful in your use of the ALL EDGE TICS, TALL EDGE TICS, or BALL EDGE TICS cards. Thus, the use of only the ALL EDGE TICS = -1 card will result in no tic marks or values being drawn since the default values for individual edge tic cards are all +1. =PAGE= Table 4.3-1. Summary of X-Y Output Data Cards Cards Pertaining to All Plots 1 CAMERA 2 CLEAR 3 COLOR 4 CSCALE 5 CURVELINESYMBOL 6 DENSITY 7 LOWER TICS 8 PENSIZE 9 PLOTTER 10 SKIP 11 TCURVE 12 UPPER TICS 13 XDIVISIONS 14 XINTERCEPT 15 XLOG 16 XMAX 17 XMIN 18 XPAPER 19 XTITLE 20 XVALUE PRINT SKIP 21 XAXIS 22 YPAPER Cards Pertaining to Various Frame Plots Whole Frame Only Upper Half Frame Only Lower Half Frame Only 1 ALL EDGE TICS TALL EDGE TICS BALL EDGE TICS 2 LEFT TICS TLEFT TICS BLEFT TICS 3 RIGHT TICS TRIGHT TICS BRIGHT TICS 4 XAXIS XTAXIS XBAXIS 5 XGRID LINES XTGRID LINES XBGRID LINES 6 YDIVISIONS YTDIVISIONS YBDIVISIONS 7 YGRID LINES YTGRID LINES YBGRID LINES 8 YINTERCEPT YTINTERCEPT YBINTERCEPT 9 YLOG YTLOG YBLOG 10 YMAX YTMAX YBMAX 11 YMIN YTMIN YBMIN 12 YTITLE YTTITLE YBTITLE 13 YVALUE PRINT SKIP YTVALUE PRINT SKIP YBVALUE PRINT SKIP Command Operation Cards 1 XYPAPLOT 2 XYPEAK 3 XYPLOT 4 XYPRINT 5 XYPUNCH =PAGE= 4.3.2.3 Plot Titles Each frame, or group of frames, resulting from a single XYPLOT command will include the information from the TITLE, SUBTITLE, and LABEL cards in the Case Control Deck, the frame sequence number, and the date as described in Section 4.2.2.2. Other titling information relative to axes and curves is discussed in Section 4.3.2.5 under the descriptions of the individual X-Y output data cards. 4.3.2.4 Data Card Specification Rules and Format The format of the X-Y output data cards is free-field. The rules governing their specifications and the notations used to describe their format are the same as those described in Section 4.2.2.3 for structure plot data cards. There is, however, an important addition to the manner in which an X-Y output command operation card can be continued: if continuation cards are needed in the case of the command operation cards, the previous card must be terminated either by a slash (/) or by a comma. 4.3.2.5 Data Card Descriptions All of the X-Y output data cards are described on the following pages. The descriptions are arranged in alphabetical order by the card names. The general form for each card is shown. The description of the card contents then follows. An example of each card usage is given immediately below general form, except in the case of the XYPLOT card, where the examples follow the description of the card. =PAGE= ALL EDGE TICS - All Edge Tic Request Description Requests use of tic marks on all edges of whole frame plots only. Format and Example 1 ALL EDGE TICS = 0 -1 ALL EDGE TICS = 0 Option Meaning -1 Draw tic marks without values on all edges. See Remark 2 below. 0 Do not draw either tic marks or values on any edge. See Remark 2 below. 1 Draw tic marks with values on all edges. See Remark 2 below. Remarks 1. This card is optional. It pertains only to whole frame plots. 2. When this card is used, the effects of other TICS cards may be altered. See Section 4.3.2.2 for details. =PAGE= BALL EDGE TICS - All Edge Tic Request Description Requests use of tic marks on all edges of lower half frame plots only. Format and Example 1 BALL EDGE TICS = 0 -1 BALL EDGE TICS = 0 Option Meaning -1 Draw tic marks without values on all edges. See Remark 2 below. 0 Do not draw either tic marks or values on any edge. See Remark 2 below. 1 Draw tic marks with values on all edges. See Remark 2 below. Remarks 1. This card is optional. It pertains only to lower half frame plots. 2. When this card is used, the effects of other TICS cards may be altered. See Section 4.3.2.2 for details. =PAGE= BLEFT TICS - Left Edge Tic Request Description Requests use of tic marks on the left edge of lower half frame plots only. Format and Example 1 BLEFT TICS = 0 -1 BLEFT TICS = 0 Option Meaning -1 Draw tic marks without values on the left edge. See Remark 2 below. 0 Do not draw either tic marks or values on the left edge. See Remark 2 below. 1 Draw tic marks with values on the left edge. See Remark 2 below. Remarks 1. This card is optional. It pertains only to lower half frame plots. 2. The above meanings for the options may be altered when the BALL EDGE TICS card is also used. See Section 4.3.2.2 for details. =PAGE= BRIGHT TICS - Right Edge Tic Request Description Requests use of tic marks on the right edge of lower half frame plots only. Format and Example 1 BRIGHT TICS = 0 -1 BRIGHT TICS = 0 Option Meaning -1 Draw tic marks without values on the right edge. See Remark 2 below. 0 Do not draw either tic marks or values on the right edge. See Remark 2 below. 1 Draw tic marks with values on the right edge. See Remark 2 below. Remarks 1. This card is optional. It pertains only to lower half frame plots. 2. The above meanings for the options may be altered when the BALL EDGE TICS card is also used. See Section 4.3.2.2 for details. =PAGE= CAMERA - Camera Specification Description Specifies the camera for microfilm plotters. Format and Example BOTH or 3 CAMERA = FILM or 1 PAPER or 2 CAMERA = 2 Option Meaning FILM or 1 35 mm or 16 mm film (positive or negative images). PAPER or 2 Positive prints. BOTH or 3 Positive prints and 35 mm or 16 mm film. Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). =PAGE= CLEAR - Parameter Default Value Restoration Description Causes all parameter values except those defined by the PLOTTER card and the titles defined by XTITLE, YTITLE, YTTITLE, YBTITLE, and TCURVE to revert to their default values. Format CLEAR Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). 2. You must be very careful in the use of this card because of its impact on all parameters except those mentioned in the description above. =PAGE= COLOR - Color Curve Specification Description Specifies the beginning color of the pen, and the last pen color for plots with multiple curves in different colors on table and drum plotters. Format and Example COLOR = b,n COLOR = 1,6 Option Meaning b Beginning color to be used for the first curve (Integer > 0). n Last pen color (Integer, n > b). Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame,and lower half frame). 2. This card is useful for plotting multiple curves in different colors on the same frame. 3. The first curve will be plotted using pen color b, the next curve using pen color (b + 1), and so on, until pen color n is reached. If there are more curves to be plotted, this process is repeated by starting again with pen color b. 4. The limit of n is dictated by the number of colors available to you via the site dependent plotting package. =PAGE= CSCALE - Character Scale Specification Description Specifies the scale to be used for alphanumeric characters in an X-Y plot. Format and Example 1 CSCALE = n CSCALE = 2 Option Meaning n Factor by which the normal (or default) size of alphanumeric characters is multiplied (Integer > 0). Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). 2. See Section 4.1.1 for an important discussion on plot frame size and character size. =PAGE= CURVELINESYMBOL - Curve Line and Symbol Selection Description Specifies whether the points on a curve should be connected by lines, identified by symbols, or both. Format and Example CURVELINESYMBOL = n CURVELINESYMBOL = 1 Option Meaning n Integer value (-9 <= n >= 9) with the following meanings: -9 <= n < 0 Points on a curve to be identified by symbols as per the table below. See also Remark 2. n = 0 Points on a curve to be connected by lines. (default) 0 < n <= 9 Points on a curve to be connected by lines as well as identified by symbols as per the table below. See also Remark 2. Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). 2. If n not equal 0, the first curve on a frame will be identified by the symbol corresponding to n. Subsequent curves on the same frame will cause n to be incremented (if n > 0) or decremented (if n < 0) by one for each curve and thus cycle through the available symbols. 3. The following table gives the correspondence between the values of n and the symbols used for identifying the points on a curve. m or n SYMBOL 0 no symbol 1 X 2 * 3 + 4 - 5 filled bullet 6 open circle 7 open square 8 open diamond 9 open triangle =PAGE= DENSITY - Line Density Description Specifies line density for microfilm plotters. Format and Example 1 DENSITY = d DENSITY = 3 Option Meaning d Line density (Integer > 0). A line density of d is d times heavier than a line density of 1. Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). =PAGE= LEFT TICS - Left Edge Tic Request Description Requests use of tic marks on the left edge of whole frame plots only. Format and Example 1 LEFT TICS = 0 -1 LEFT TICS = 0 Option Meaning -1 Draw tic marks without values on the left edge. See Remark 2 below. 0 Do not draw either tic marks or values on the left edge. See Remark 2 below. 1 Draw tic marks with values on the left edge. See Remark 2 below. Remarks 1. This card is optional. It pertains only to whole frame plots. 2. The above meanings for the options may be altered when the ALL EDGE TICS card is also used. See Section 4.3.2.2 for details. =PAGE= LOWER TICS - Lower Edge Tic Request Description Requests use of tic marks on the lower edge of a frame. Format and Example 1 LOWER TICS = 0 -1 LOWER TICS = 0 Option Meaning -1 Draw tic marks without values on the lower edge. See Remark 2 below. 0 Do not draw either tic marks or values on the lower edge. See Remark 2 below. 1 Draw tic marks with values on the lower edge. See Remark 2 below. Remarks 1. This card is optional. It pertains to all types of plots (whole frame, lower half frame, and bottom half frame). 2. The above meanings for the options may be altered when the ALL EDGE TICS, TALL EDGE TICS, or BALL EDGE TICS cards are used. See Section 4.3.2.2 for details. =PAGE= PENSIZE - Pen Specification Description Specifies the size of the pen to be used for plotting on table and drum plotters. Format and Example 1 PENSIZE = n PENSIZE = 2 Option Meaning n Size of the pen to be used for plotting on table and drum plotters (Integer > 0). Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). =PAGE= PLOTTER - Plotter Model Specification Description Specifies the model and the typing capability of the plotter to be used for plotting. Format and Example M 1 PLOTTER = NASTPLT , [MODEL] T , D 0 PLOTTER = NASTPLT , T , 0 Option Meaning M Microfilm plotter. T Table plotter. D Drum plotter. 0 Plotter has typing capability. 1 Plotter has no typing capability. In this case, all characters will be drawn. Remarks 1. This card is optional. If it is used, it is recommended that it be the very first card after the OUTPUT(XYOUT) or OUTPUT(XYPLOT) card in the X-Y output request packet. 2. This card pertains to all types of plots (whole frame, upper half frame, and lower half frame). =PAGE= RIGHT TICS - Right Edge Tic Request Description Requests use of tic marks on the right edge of whole frame plots only. Format and Example 1 RIGHT TICS = 0 -1 RIGHT TICS = 0 Option Meaning -1 Draw tic marks without values on the right edge. See Remark 2 below. 0 Do not draw either tic marks or values on the right edge. See Remark 2 below. 1 Draw tic marks with values on the right edge. See Remark 2 below. Remarks 1. This card is optional. It pertains only to whole frame plots. 2. The above meanings for the options may be altered when the ALL EDGE TICS card is also used. See Section 4.3.2.2 for details. =PAGE= SKIP - Blank Frame Insertion Specification Description Specifies the number of blank frames to be inserted between requested frames for microfilm plotters. Format and Example 1 SKIP = n SKIP = 2 Option Meaning n Number of blank frames to be inserted (Integer > 0). Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). =PAGE= TALL EDGE TICS - All Edge Tic Request Description Requests use of tic marks on all edges of upper half frame plots only. Format and Example 1 TALL EDGE TICS = 0 -1 TALL EDGE TICS = 0 Option Meaning -1 Draw tic marks without values on all edges. See Remark 2 below. 0 Do not draw either tic marks or values on any edge. See Remark 2 below. 1 Draw tic marks with values on all edges. See Remark 2 below. Remarks 1. This card is optional. It pertains only to upper half frame plots. 2. When this card is used, the effects of other TICS cards may be altered. See Section 4.3.2.2 for details. =PAGE= TCURVE - Curve Title Description Specifies the title for a curve. Format and Example TCURVE = title TCURVE = TRANSIENT RESPONSE Option Meaning title Any BCD string to be used as the title for a curve. Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). 2. The data for this card must be specified on only one physical card. =PAGE= TLEFT TICS - Left Edge Tic Request Description Requests use of tic marks on the left edge of upper half frame plots only. Format and Example 1 TLEFT TICS = 0 -1 TLEFT TICS = 0 Option Meaning -1 Draw tic marks without values on the left edge. See Remark 2 below. 0 Do not draw either tic marks or values on the left edge. See Remark 2 below. 1 Draw tic marks with values on the left edge. See Remark 2 below. Remarks 1. This card is optional. It pertains only to upper half frame plots. 2. The above meanings for the options may be altered when the TALL EDGE TICS card is also used. See Section 4.3.2.2 for details. =PAGE= TRIGHT TICS - Right Edge Tic Request Description Requests use of tic marks on the right edge of upper half frame plots only. Format and Example 1 TRIGHT TICS = 0 -1 TRIGHT TICS = 0 Option Meaning -1 Draw tic marks without values on the right edge. See Remark 2 below. 0 Do not draw either tic marks or values on the right edge. See Remark 2 below. 1 Draw tic marks with values on the right edge. See Remark 2 below. Remarks 1. This card is optional. It pertains only to upper half frame plots. 2. The above meanings for the options may be altered when the TALL EDGE TICS card is also used. See Section 4.3.2.2 for details. =PAGE= UPPER TICS - Upper Edge Tic Request Description Requests use of tic marks on the upper edge of a frame. Format and Example 1 UPPER TICS = 0 -1 UPPER TICS = 0 Option Meaning -1 Draw tic marks without values on the upper edge. See Remark 2 below. 0 Do not draw either tic marks or values on the upper edge. See Remark 2 below. 1 Draw tic marks with values on the upper edge. See Remark 2 below. Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and bottom half frame). 2. The above meanings for the options may be altered when the ALL EDGE TICS, TALL EDGE TICS, or BALL EDGE TICS cards are used. See Section 4.3.2.2 for details. =PAGE= XAXIS - X-Axis Plot Request Description Requests plotting of X-axis on whole frame plots only. Format and Example XAXIS = NO YES XAXIS = YES Option Meaning YES Plot X-axis. NO Do not plot X-axis. Remarks 1. This card is optional. It pertains only to whole frame plots. =PAGE= XBAXIS - X-Axis Plot Request Description Requests plotting of X-axis on lower half frame plots only. Format and Example XBAXIS = NO YES XBAXIS = YES Option Meaning YES Plot X-axis. NO Do not plot X-axis. Remarks 1. This card is optional. It pertains only to lower half frame plots. =PAGE= XBGRID LINES - X-Grid Lines Request Description Requests the drawing of grid lines parallel to the X-axis on lower half frame plots only. Format and Example XBGRID = NO YES XBGRID = YES Option Meaning YES Draw grid lines parallel to the X-axis at locations requested for tic marks. NO Do not draw grid lines parallel to the X-axis. Remarks 1. This card is optional. It pertains only to lower half frame plots. =PAGE= XDIVISIONS - X-Direction Spacing Description Specifies the spacing to be used along the X-direction for non-log scales. Format and Example XDIVISIONS = 5 n XDIVISIONS = 4 Option Meaning n Number of uniform spaces to be used along the X-direction for whichever of the following are called for: XAXIS, UPPER TICS, LOWER TICS (Integer > 0). Applicable only to non-log scales. Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). =PAGE= XGRID LINES - X-Grid Lines Request Description Requests the drawing of grid lines parallel to the X-axis on whole frame plots only. Format and Example XGRID LINES = NO YES XGRID LINES = YES Option Meaning YES Draw grid lines parallel to the X-axis at locations requested for tic marks. NO Do not draw grid lines parallel to the X-axis. Remarks 1. This card is optional. It pertains only to whole frame plots. =PAGE= XINTERCEPT - Y-Axis Position Description Specifies the location on the X-axis where the Y-axis will be drawn. Format and Example XINTERCEPT = 0.0 xc XINTERCEPT = 1.0 Option Meaning xc Y-axis will have its x-coordinate = xc (Real). Remarks 1. This card is optional. It applies to all types of plots (whole frame, upper half frame, and lower half frame). =PAGE= XLOG - Logarithmic X-Coordinate Request Description Requests logarithmic scale for X-coordinates. Format and Example XLOG = NO YES XLOG = YES Option Meaning YES Use logarithmic scale for X-coordinates. NO Use linear scale for X-coordinates. Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). 2. The default values for tic divisions on log plots are as follows, but range over whole cycles: Number of Cycles Intermediate Values 1, 2 2., 3., 4., 5., 6., 7., 8., 9. 3 2., 3., 5., 7., 9. 4 2., 4., 6., 8. 5 2., 5., 8. 6, 7 3., 6. 8, 9, 10 3. =PAGE= XMAX - Upper Limit of Abscissa Description Specifies the upper limit of the abscissa of a curve. Format and Example XMAX = x XMAX = 10.0 Option Meaning x Upper limit of the abscissa (Real). Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). 2. If this card is not used, the default value is chosen so as to accommodate all points. =PAGE= XMIN - Lower Limit of Abscissa Description Specifies the lower limit of the abscissa of a curve. Format and Example XMIN = x XMIN = 1.0 Option Meaning x Lower limit of the abscissa (Real). Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). 2. If this card is not used, the default value is chosen so as to accommodate all points. =PAGE= XPAPER - Plot Frame X-Dimension Description Specifies the X-dimension of the plot frame (x by y) for table and drum plotters. (For microfilm plotters, the plot frame size is set at 10.23 inches x 10.23 inches and is not under your control.) Format and Example XPAPER = x XPAPER = 15.0 Option Meaning x X-dimension of the plot frame in inches (Real > 0.0). Must not exceed 30.0 for table plotters. Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, or lower half frame). 2. If this card is not used, the following default values are used: Plotter Model Default Value for x (inches) Table 11.0 Drum 30.0 3. See Section 4.1.1 for an important discussion of plot frame size and character size. =PAGE= XTAXIS - X-Axis Plot Request Description Requests plotting of X-axis on upper half frame plots only. Format and Example XTAXIS = NO YES XTAXIS = YES Option Meaning YES Plot X-axis. NO Do not plot X-axis. Remarks 1. This card is optional. It pertains only to upper half frame plots. =PAGE= XTGRID LINES - X-Grid Lines Request Description Requests the drawing of grid lines parallel to the X-axis on upper half frame plots only. Format and Example XTGRID LINES = NO YES XTGRID LINES = YES Option Meaning YES Draw grid lines parallel to the X-axis at locations requested for tic marks. NO Do not draw grid lines parallel to the X-axis. Remarks 1. This card is optional. It pertains only to upper half frame plots. =PAGE= XTITLE - X-Axis Title Description Specifies the title for the X-axis. Format and Example XTITLE = title XTITLE = TIME (SEC.) Option Meaning title Any BCD string to be used as the title for the X-axis. Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). 2. The data for this card must be specified on only one physical card. =PAGE= XVALUE PRINT SKIP - X-Tic Skip Specification Description Specifies the number of tic marks to be skipped between labeled tic marks on the X-axis. Format and Example XVALUE PRINT SKIP = 0 n XVALUE PRINT SKIP = 1 Option Meaning n Number of tic marks to be skipped between labeled tic marks on the X-axis (Integer >= 0). Thus, every (n + 1)th tic mark on the X-axis will be labeled. Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). =PAGE= XYPAPLOT - X-Y Paper Plot Command Description Causes generation of X-Y plots within the printed output. NOTE: For the sake of convenience and completeness, this card and all other X-Y command operations are described together under the description of the XYPLOT command operation card. Please refer to that card for details. =PAGE= XYPEAK - X-Y Summary Command Description Causes generation of printed summary page for each curve. NOTE: For the sake of convenience and completeness, this card and all other X-Y command operations are described together under the description of the XYPLOT command operation card. Please refer to that card for details. =PAGE= XYPLOT - X-Y Plot Command Description Causes generation of X-Y plots for the selected plotter. NOTE: For the sake of convenience and completeness, the XYPLOT card is described below in conjunction with all of the other X-Y command operation cards (XYPRINT, XYPUNCH, XYPEAK, and XYPAPLOT cards). Format Operation Curve Type Plot Type Subcase Curve 1 or more 1 only List Request(s) (required) (required) (required) XYPLOT ACCE RESPONSE i1, i2, i3, "frames" XYPRINT DISP AUTO i4 THRU i5, XYPUNCH ELFORCE PSDF i6, etc. XYPEAK ELSTRESS Default is XYPAPLOT FORCE all subcases. LOAD NONLINEAR OLOAD SACCE SDISP SPCF STRESS SVELO VECTOR VELO VG Option Meaning Operation XYPLOT Generate one or more frames of X-Y plots on the selected plotter using the current parameter specifications. XYPRINT Generate tabular printer output for the X-Y pairs. See also Remark 2. XYPUNCH Generate punched card output for the X-Y pairs. Each card contains the following information: 1. X-Y pair sequence number 2. X-value 3. Y-value 4. Card sequence number XYPEAK Output is limited to the printed summary page for each curve. This summary page contains the maximum and minimum values of y for the range of x. XYPAPLOT Generate X-Y plots within the printed output. This is a capability to provide minimum output for the purpose of observing general curve behavior. Many of the detailed specifications described elsewhere in this section are not supported. This feature is limited to producing Cartesian plots with titles, overall scales, and data point locations. When the paper is rotated 90 degrees for viewing the paper plots, the X-axis moves horizontally along the page and the Y-axis moves vertically along the page. Symbol "*" identifies the points associated with the first curve of a frame, then for successive curves on the same frame, the points are designated by the symbols "0", "A", "B", "C", "D", "E", "F", "G", and "H". Curve Type ACCE Acceleration in the physical set. DISP Displacement in the physical set. ELFORCE Element force. ELSTRESS Element stress. FORCE Element force (same as ELFORCE). LOAD Load. NONLINEAR Nonlinear load. OLOAD Load (same as LOAD). SACCE Acceleration in the solution set. SDISP Displacement in the solution set. SPCF Single-point force of constraint. STRESS Element stress (same as ELSTRESS). SVELO Velocity in the solution set. VECTOR Displacement in the physical set (same as DISP). VELO Velocity in the physical set. VG Flutter analysis curves. Solution set requests are more efficient, as the time-consuming recovery of the dependent displacements can be avoided. However, if there is a request for ELSTRESS (or STRESS) or ELFORCE (or FORCE), the recovery of dependent displacements cannot be avoided. Plot Type RESPONSE Generate output for static analysis, frequency response or transient response. This is the default value. AUTO Generate output for the autocorrelation function. PSDF Generate output for the power spectral density function. Subcase List i1, i2, i3, i4, i5, i6, etc. Generate output for the subcase numbers that are listed. The subcase list must be in ascending order. The default is all subcases for which solutions were obtained. Curve Request(s) "frames" The word "frames" represents a series of curve identifiers of the following general form: /a1(b1,c1),a2(b2,c2),etc./d1(e1,f1),d2(e2,f2),etc./etc. The information following each slash (/) specifies curves that are to be drawn on the same frame. For all plots except the VG plot, the symbol a1 identifies the grid point or element number associated with the first curve on the first frame. The symbol a2 identifies the grid point or element number associated with the second curve on the first frame. The symbols d1 and d2 identify similar items for curves on the second frame, etc. For any particular frame, the symbols must be assigned in ascending order by grid point or element identification number and item code. For VG plots, the symbols a1, a2, etc., refer to the loop count of the flutter analysis. The symbols b1 and b2 are codes for the components to be plotted on the upper half of the first frame, and c1 and c2 are codes for the components to be plotted on the lower half of the first frame. If any of the symbols b1, c1, b2, or c2 are missing, the corresponding curve is not generated. If the comma (,) and c1 are absent along with the comma (,) and c2, full frame plots will be prepared on the first frame for the components represented by b1 and b2. For any single frame, curve identifiers must be all of the whole frame type or all of the half frame type; that is, the comma (,) following b1 and b2 must be present for all entries or absent for all entries in a single frame. The symbols e1, f1, e2, and f2 serve a similar purpose for the second frame, etc. If continuation cards are needed, the previous card must be terminated either with a slash (/) or a comma (,) as indicated in Section 4.3.2.4. For VG plots, the component codes (b1, b2, etc. and c1, c2, etc.) may have the values F (for frequency) or G (for damping). For all other plots, the manner in which the component code is implemented is dependent upon whether the plot type is (a) RESPONSE or (b) AUTO or PSDF. This is described below. Component Codes for Plot Type RESPONSE For geometric grid points, the component code is one of the mnemonics T1, T2, T3, R1, R2, R3, T1RM, T2RM, T3RM, R1RM, R2RM, R3RM, T1IP, T2IP, T3IP, R1IP, R2IP, or R3IP, where Ti stands for the ith translational component, Ri stands for the ith rotational component, and RM means real or magnitude and IP means imaginary or phase. For scalar or extra points, use T1, T1RM, or T1IP. (See Remark 2 below for the interpretation of component codes for geometric grid, scalar, and extra points in the printed X-Y output.) For elements, use a positive integer from the following tables for element stress component codes (Table 4.3-2) or element force component codes (Table 4.3-3). (See Section 1.3 for the interpretation of the symbols used in Tables 2 and 3 for element stress and force components.) Component Codes for Plot Type AUTO or PSDF For geometric grid points, the component code is one of the mnemonics T1, T2, T3, R1, R2, or R3; for scalar or extra points use T1. The symbols T1, T2, T3, R1, R2, and R3 are defined as above. (See Remark 2 below for the interpretation of component codes for geometric grid, scalar, and extra points in the printed XY output.) For elements, use a positive integer from the following tables, noting that if a component has a real and an imaginary part, the selection of either part will result in the use of both the parts. Real numbers in the output will be treated as if they are complex numbers with zero imaginary parts. Split frames cannot be used for AUTO or PSDF plots. Remarks 1. At least one command operation card (XYPLOT, XYPRINT, XYPUNCH, XYPEAK or XYPAPLOT) must appear in an X-Y output packet request. 2. In the printed X-Y output, the component codes shown for the geometric grid, scalar, or extra points are not the same as the mnemonics input on the command operation cards. Instead, the component codes are identified by integers as indicated by the following table. Component Code Identification for Geometric Grid, Scalar and Extra Points in Printed X-Y Output Component code specified on Component code shown in the the command operation card printed X-Y Output T1 or T1RM 1 T2 or T2RM 2 T3 or T3RM 3 R1 or R1RM 4 R2 or R2RM 5 R3 or R3RM 6 T1IP 7 T2IP 8 T3IP 9 T4IP 10 T5IP 11 T6IP 12 Examples Following are some examples illustrating the use of X-Y output command operation cards. The BEGIN BULK or OUTPUT(PLOT) card is shown as a reminder to you to place your X-Y output request packet properly in your Case Control Deck, that is, at the end of the Case Control Deck or just ahead of any structure plot requests. You must ensure that file PLT2 is set up for plotting use via system control cards to use a tape or mass storage area. Example 1 OUTPUT(XYPLOT) XYPLOT SDISP / 16(T1) BEGIN BULK Causes a single whole frame to be plotted for the T1 displacement component of solution set point 16 using the default parameter values. If 16(T1) is not in the solution set, a warning message will be printed and no plot will be made. Since there is no PLOTTER card, the plot will be generated, by default, for a microfilm plotter without typing capability. Example 2 OUTPUT(XYOUT) PLOTTER = NASTPLT D, 1 XYPLOT, XYPRINT VELO RESPONSE 1,5 / 3(R1, ), 5( ,R1) Causes a single frame (consisting of an upper half frame and a lower half frame) to be plotted using the default parameter values. The velocity of the first rotational component of grid point 3 will be plotted on the upper half frame and that of grid point 5 will be plotted on the lower half frame for subcases 1 and 5. Tabular printer output will also be generated for both curves. The plots will be generated for a drum plotter without typing capability. Scales will be selected such that the frame will fit on 30 x 30-inch paper. Example 3 OUTPUT(XYPLOT) PLOTTER = NASTPLT T, 0 YDIVISIONS = 20 XDIVISIONS = 10 XGRID LINES = YES YGRID LINES = YES XYPLOT DISP 2,5 /10(T1),10(T3) Causes two whole frame plots to be generated, one for subcase 2 and one for subcase 5. Each plot contains the T1 and T3 displacement components for grid point 10. The default parameters will be modified to include grid lines in both the X- and Y-directions with 10 spaces in the X-direction and 20 spaces in the Y-direction. The plot will be generated for a table plotter with typing capability. Example 4 OUTPUT(XYPLOT) PLOTTER = NASTPLT T, 1 XAXIS = YES YAXIS = YES XPAPER = 17.0 YPAPER = 22.0 XYPLOT STRESS 3/ 15(2)/ 21(6) Causes two whole frame plots to be generated using the results from subcase 3. The first plot is the response of the axial stress for rod (ROD) element number 15. The second plot is the response of the major principal stress for triangular membrane (TRMEM) element number 21. The default parameters will be modified to include the X-axis and Y-axis drawn through the origin. Each plot will be scaled to fit on 17 x 22 inch paper. The plots will be generated for a table plotter without typing capability. Example 5 OUTPUT(XYPLOT) PLOTTER = NASTPLT D,0 CURVELINESYMBOL = -1 XYPLOT VG / 1(G,F), 2(G,F), 3(G,F), 4(G,F) A split frame plot will be made; the upper half is V-g and the lower half is V-f. Data from the first four loops will be plotted. Distinct symbols will be used for data from each loop, and no lines will be drawn between points (since the flutter analyst must sometimes exercise judgement about which points should be connected). The plots will be generated for a drum plotter with typing capability. =PAGE= Table 4.3-2. Element Stress Component Codes for Use on X-Y Output Command Operation Cards (All components are stresses unless otherwise denoted) Real Element Stresses Complex Element Stresses Real-Mag. Element Comp. Comp. or Name Code Component Code Component Imag.-Phase AX1F2 2 Radial-axis 2 Radial-axis RM 3 Axial-axis 3 Axial-axis RM 4 Tangential-edge 4 Tangential-edge RM 5 Circumferential-edge 5 Circumferential-edge RM 6 Radial-axis IP 7 Axial-axis IP 8 Tangential-edge IP 9 Circumferential-edge IP AX1F3 2 Radial-centroid 2 Radial-centroid RM 3 Circumferential-centroid 3 Circumferential-centroid RM 4 Axial-centroid 4 Axial-centroid RM 5 Tangential-edge 1 5 Tangential-edge 1 RM 6 Circumferential-edge 1 6 Circumferential-edge 1 RM 7 Tangential-edge 2 7 Tangential-edge 2 RM 8 Circumferential-edge 2 8 Circumferential-edge 2 RM 9 Tangential-edge 3 9 Tangential-edge 3 RM 10 Circumferential-edge 3 10 Circumferential-edge 3 RM 11 Radial-centroid IP 12 Circumferential-centroid IP 13 Axial-centroid IP 14 Tangential-edge 1 IP 15 Circumferential-edge 1 IP 16 Tangential-edge 2 IP 17 Circumferential-edge 2 IP 18 Tangential-edge 3 IP 19 Circumferential-edge 3 IP AXIF4 2 Radial-centroid 2 Radial-centroid RM 3 Circumferential-centroid 3 Circumferential-centroid RM 4 Axial-centroid 4 Axial-centroid RM 5 Tangential-edge 1 5 Tangential-edge 1 RM 6 Circumferential-edge 1 6 Circumferential-edge 1 RM 7 Tangential-edge 2 7 Tangential-edge 2 RM 8 Circumferential-edge 2 8 Circumferential-edge 2 RM 9 Tangential-edge 3 9 Tangential-edge 3 RM 10 Circumferential-edge 3 10 Circumferential-edge 3 RM 11 Tangential-edge 4 11 Tangential-edge 4 RM 12 Circumferential-edge 4 12 Circumferential-edge 4 RM 13 Radial-centroid IP 14 Circumferential-centroid IP 15 Axial-centroid IP 16 Tangential-edge 1 IP 17 Circumferential-edge 1 IP 18 Tangential-edge 2 IP 19 Circumferential-edge 2 IP 20 Tangential-edge 3 IP 21 Circumferential-edge 3 IP 22 Tangential-edge 4 IP 23 Circumferential-edge 4 IP BAR 2 SA1 * 2 SA1 * RM 3 SA2 * 3 SA2 * RM 4 SA3 * 4 SA3 * RM 5 SA4 * 5 SA4 * RM 6 Axial 6 Axial RM 7 SA-maximum 7 SA1 * IP 8 SA-minimum 8 SA2 * IP 9 Safety Margin in Tension 9 SA3 * IP 10 SB1 * 10 SA4 * IP 11 SB2 * 11 Axial IP 12 SB3 * 12 SB1 * RM 13 SB4 * 13 SB2 * RM 14 SB-maximum 14 SB3 * RM 15 SB-minimum 15 SB4 * RM 16 Safety Margin in Comp. 16 SB1 * IP 17 SB2 * IP 18 SB3 * IP 19 SB4 * IP CONEAX Z1 = Fiber Distance 1 4 Normal-u at 1 5 Normal-v at 1 6 Shear-uv at 1 7 -Shear Angle at 1 8 Major-Principal at 1 9 Minor-Principal at 1 10 Maximum Shear at 1 Z2 = Fiber Distance 2 12 Normal-u at 2 13 Normal-v at 2 14 Shear-uv at 2 15 -Shear Angle at 2 16 Major-Principal at 2 17 Minor-Principal at 2 18 Maximum Shear at 2 CONROD Same as ROD Same as ROD ELAS1 2 Stress 2 Stress RM 3 Stress IP ELAS2 2 Stress 2 Stress RM 3 Stress IP ELAS3 2 Stress 2 Stress RM 3 Stress IP HEXA1 Same as TETRA Same as TETRA HEXA2 Same as TETRA Same as TETRA IHEX1* 2 External grid point ID 2 External grid point ID 3 Normal-x 3 Normal-x RM 4 Shear-xy 4 Normal-y RM 5 First principal 5 Normal-z RM 6 First principal x cosine 6 Shear-xy RM 7 Second principal x cosine 7 Shear-yz RM 8 Third principal x cosine 8 Shear-zx RM 9 Mean stress 9 Normal-x IP 10 Octahedral shear stress 10 Normal -y IP 11 Normal-y 11 Normal-z IP 12 Shear-yz 12 Shear-xy IP 13 Second principal 13 Shear-yz IP 14 First principal y cosine 14 Shear-zx IP 15 Second principal y cosine 16 Third principal y cosine 17 Normal-z 18 Shear-zx 19 Third principal 20 First principal z cosine 21 Second principal z cosine 22 Third principal z cosine IHEX2* Same as IHEX1 Same as IHEX1 IHEX3* 2 First external grid 2 First external grid point ID point ID 3 Normal-x 3 Normal-x RM 4 Shear-xy 4 Normal-y RM 5 First principal 5 Normal-z RM 6 First principal x cosine 6 Shear-xy RM 7 Second principal x cosine 7 Shear-yz RM 8 Third principal x cosine 8 Shear-zx RM 9 Mean Stress 9 Second external grid point ID 10 Octahedral shear stress 10 Normal-x IP 11 Second external grid 11 Normal-y IP point ID 12 Normal-y 12 Normal-z IP 13 Shear-yz 13 Shear-xy IP 14 Second principal 14 Shear-yz IP 15 First principal y cosine 15 Shear-zx IP 16 Second principal y cosine 17 Third principal y cosine 18 Normal-z 19 Shear-zx 20 Third principal 21 First principal z cosine 22 Second principal z cosine 23 Third principal z cosine QDMEM Same as TRMEM Same as TRMEM QDMEM1 Same as TRMEM Same as TRMEM QDMEM2 Same as TRMEM Same as TRMEM QDPLT Same as TRIA1 Same as TRIA1 QUAD1 Same as TRIA1 Same as TRIA1 QUAD2 Same as TRIA1 Same as TRIA1 ROD 2 Axial Stress 2 Axial Stress RM 3 Axial Safety Margin 3 Axial Stress IP 4 Torsional Stress 4 Torsional Stress RM 5 Torsional Safety Margin 5 Torsional Stress IP SHEAR 2 Maximum Shear 2 Maximum Shear RM 3 Average Shear 3 Maximum Shear IP 4 Safety Margin 4 Average Shear RM 5 Average Shear IP SLOT3 2 Radial-centroid 2 Radial-centroid RM 3 Axial-centroid 3 Axial-centroid RM 4 Tangential-edge 1 4 Tangential-edge 1 RM 5 Tangential-edge 2 5 Tangential-edge 2 RM 6 Tangential-edge 3 6 Tangential-edge 3 RM 7 Radial-centroid IP 8 Axial-centroid IP 9 Tangential-edge 1 IP 10 Tangential-edge 2 IP 11 Tangential-edge 3 IP SLOT4 2 Radial-centroid 2 Radial-centroid RM 3 Axial-centroid 3 Axial-centroid RM 4 Tangential-edge 1 4 Tangential-edge 1 RM 5 Tangential-edge 2 5 Tangential-edge 2 RM 6 Tangential-edge 3 6 Tangential-edge 3 RM 7 Tangential-edge 4 7 Tangential-edge 4 RM 8 Radial-centroid IP 9 Axial-centroid IP 10 Tangential-edge 1 IP 11 Tangential-edge 2 IP 12 Tangential-edge 3 IP 13 Tangential-edge 4 IP TETRA 2 Normal (x) 2 Normal (x) RM 3 Normal (y) 3 Normal (y) RM 4 Normal (z) 4 Normal (z) RM 5 Shear (yz) 5 Shear (yz) RM 6 Shear (xy) 6 Shear (xy) RM 7 Shear (xz) 7 Shear (xz) RM 8 Octahedral 8 Normal (x) IP 9 Pressure 9 Normal (y) IP 10 Normal (z) IP 11 Shear (yz) IP 12 Shear (xy) IP 13 Shear (xz) IP TORDRG 2 Mem.-Tangen. at 1 3 Mem.-Circum. at 1 4 Flex.-Tangen. at 1 5 Flex.-Circum. at 1 6 Shear-Force at 1 7 Mem.-Tangen. at 2 8 Mem.-Circum. at 2 9 Flex.-Tangen. at 2 1O Flex.-Circum. at 2 11 Shear-Force at 2 12 Mem.-Tangen. at 3 13 Mem.-Circum. at 3 14 Flex.-Tangen. at 3 15 Flex.-Circum. at 3 16 Shear-Force at 3 TRAPAX 2 Harmonic or Point Angle 3 Radial (R) 4 Axial (Z) 5 Circum. (Theta-T) 6 Shear (ZR) 7 Shear (RT) 8 Shear (ZT) TRAPRG 2 Radial (x) at 1 3 Circum. (Theta) at 1 4 Axial (z) at 1 5 Shear (zx) at 1 6 Radial (x) at 2 7 Circum. (Theta) at 2 8 Axial (z) at 2 9 Shear (zx) at 2 10 Radial (x) at 3 11 Circum. (Theta) at 3 12 Axial (z) at 3 13 Shear (zx) at 3 14 Radial (x) at 4 15 Circum. (Theta) at 4 16 Axial (z) at 4 17 Shear (zx) at 4 18 Radial (x) at 5 19 Circum. (Theta) at 5 20 Axial (z) at 5 21 Shear (zx) at 5 TRBSC Same as TRIA1 Same as TRIA1 TRIA1 Z1 = Fiber Distance 1 Z1 = Fiber Distance 1 3 Normal-x at Z1 3 Normal-x at 1 RM 4 Normal-y at Z1 4 Normal-x at 1 IP 5 Shear-xy at Zl 5 Normal-y at 1 RM 6 -Shear Angle at Z1 6 Normal-y at 1 IP 7 Major-Principal at Z1 7 Shear-xy at 1 RM 8 Minor-Principal at Z1 8 Shear-xy at 1 IP 9 Maximum Shear at Z1 Z2 = Fiber Distance 2 Z2 = Fiber Distance 2 10 Normal-x at 2 RM 11 Normal-x at Z2 11 Normal-x at 2 IP 12 Normal-y at Z2 12 Normal-y at 2 RM 13 Shear-xy at Z2 13 Normal-y at 2 IP 14 -Shear Angle at Z2 14 Shear-xy at 2 x RM 15 Major-Principal at Z2 15 Shear-xy at 2 IP 16 Minor-Principal at Z2 17 Maximum-Shear at Z2 TRIA2 Same as TRIA1 Same as TRIA1 TRIAAX 2 Harmonic or Point Angle 3 Radial (R) 4 Axial (Z) 5 Circum. (Theta-T) 6 Shear (ZR) 7 Shear (RT) 8 Shear (ZT) TRIARG 2 Radial (x) 3 Circum. (Theta) 4 Axial (z) 5 Shear (zx) TRMEM 2 Normal-x 2 Normal-x RM 3 Normal-y 3 Normal-x IP 4 Shear-xy 4 Normal-y RM 5 -Shear Angle 5 Normal-y IP 6 Major-Principal 6 Shear-xy RM 7 Minor-Principal 7 Shear-xy IP 8 Maximum Shear TRPLT Same as TRIA1 Same as TRIA1 TUBE Same as ROD Same as ROD TWIST 2 Maximum 2 Maximum RM 3 Average 3 Maximum IP 4 Safety Margin 4 Average RM 5 Average IP WEDGE Same as TETRA Same as TETRA Notes 1. If output is magnitude/phase, the magnitude replaces the real part and the phase replaces the imaginary part. 2. The symbols SA1, SA2, SA3, SA4 and SB1, SB2, SB3, SB4 stand for stresses on end A and end B at locations C, D, E and F, respectively, as defined on the first continuation card of the PBAR bulk data card. =PAGE= Table 4.3-3. Element Force Component Codes for Use on X-Y Output Command Operation Cards (All components are element forces (or moments) unless otherwise denoted) Real Element Forces Complex Element Forces Real-Mag. Element Comp. Comp. or Name Code Component Code Component Imag.-Phase BAR 2 Bend-Moment A1 2 Bend-Moment A1 RM 3 Bend-Moment A2 3 Bend-Moment A2 RM 4 Bend-Moment B1 4 Bend-Moment B1 RM 5 Bend-Moment B2 5 Bend-Moment B2 RM 6 Shear-1 6 Shear-1 RM 7 Shear-2 7 Shear-1 RM 8 Axial Force 8 Axial Force RM 9 Torque 9 Torque RM 10 Bend-Moment A1 IP 11 Bend-Moment A2 IP 12 Bend-Moment B1 IP 13 Bend-Moment B2 IP 14 Shear-1 IP 15 Shear-2 IP 16 Axial Force IP 17 Torque IP CONROD Same as ROD Same as ROD ELAS1 2 Force 2 Force RM 3 Force IP ELAS2 2 Force 2 Force RM 3 Force IP ELAS3 2 Force 2 Force RM 3 Force IP ELAS4 2 Force 2 Force RM 3 Force IP QDMEM2 2 Force 4 to 1 3 Force 2 to 1 4 Force 1 to 2 5 Force 3 to 2 6 Force 2 to 3 7 Force 4 to 3 8 Force 3 to 4 9 Force 1 to 4 10 Kick Force on 1 11 Shear-12 12 Kick Force on 2 13 Shear-23 14 Kick Force on 3 15 Shear-34 16 Kick Force on 4 17 Shear-41 QDPLT Same as TRIA1 Same as TRIA1 QUAD1 Same as TRIA1 Same as TRIA1 QUAD2 Same as TRIA1 Same as TRIA1 ROD 2 Axial Force 2 Axial Force RM 3 Torque 3 Axial Force IP 4 Torque RM 5 Torque IP SHEAR 2 Force Pts. 1, 3 2 Force Pts. 1, 3 RM 3 Force Pts. 2, 4 3 Force Pts. 1, 3 IP 4 Force Pts. 2, 4 RM 5 Force Pts. 2, 4 IP TRAPAX 2 Harmonic or Point Angle 3 Radial (R) at 1 4 Circum. (Theta-T) at 1 5 Axial (Z) at 1 6 Radial (R) at 2 7 Circum. (Theta-T) at 2 8 Axial (Z) at 2 9 Radial (R) at 3 10 Circum. (Theta-T) at 3 11 Axial (Z) at 3 12 Radial (R) at 4 13 Circum. (Theta-T) at 4 14 Axial (Z) at 4 TRBSC Same as TRIA1 Same as TRIA1 TRIAAX 2 Harmonic or Point Angle 3 Radial (R) at 1 4 Circum. (Theta-T) at 1 5 Axial (Z) at I 6 Radial (R) at 2 7 Circum. (Theta-T) at 2 8 Axial (Z) at 2 9 Radial (R) at 3 10 Circum. (Theta-T) at 3 11 Axial (Z) at 3 TRIA1 2 Bend-Moment-x 2 Bend-Moment-x RM 3 Bend-Moment-y 3 Bend-Moment-y RM 4 Twist-Moment 4 Twist-Moment RM 5 Shear-x 5 Shear-x RM 6 Shear-y 6 Shear-y RM 7 Bend-Moment-x IP 8 Bend-Moment-y IP 9 Twist-Moment IP 10 Shear-x IP 11 Shear-y IP TRIA2 Same as TRIA1 Same as TRIA1 TRPLT Same as TRIA1 Same as TRIA1 TUBE Same as ROD Same as ROD TWIST 2 Moment Pts. 1, 3 2 Moment Pts. 1, 3 RM 3 Moment Pts. 2, 4 3 Moment Pts. 1, 3 IP 4 Moment Pts. 2, 4 RM 5 Moment Pts. 2, 4 IP =PAGE= XYPRINT - X-Y Print Output Command Description Causes generation of tabular printer output for the X-Y pairs. NOTE: For the sake of convenience and completeness, this card and all other X-Y command operation cards are described together under the description of the XYPLOT command operation card. Please refer to that card for details. =PAGE= XYPUNCH - X-Y Punch Output Command Description Causes generation of punched card output for the X-Y pairs. NOTE: For the sake of convenience and completeness, this card and all other X-Y command operation cards are described together under the description of the XYPLOT command operation card. Please refer to that card for details. =PAGE= YAXIS - Y-Axis Plot Request Description Requests plotting of Y-axis. Format and Example NO YAXIS YES YAXIS YES Option Meaning YES Plot Y-axis. NO Do not plot Y-axis. Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). =PAGE= YBDIVISIONS - Y-Direction Spacing Description Specifies the spacing to be used along the Y-direction for non-log scales on lower half frame plots only. Format and Example 5 YBDIVISIONS = n YBDIVISIONS = 4 Option Meaning n Number of uniform spaces to be used along the Y-direction for whichever of the following are called for: BLEFT TICS, BRIGHT TICS, YAXIS (Integer > 0). Applicable only to non-log scales. Remarks 1. This card is optional. It pertains only to lower half frame plots. =PAGE= YBGRID LINES - Y-Grid Lines Request Description Requests the drawing of grid lines parallel to the Y-axis on lower half frame plots only. Format and Example NO YBGRID LINES = YES YBGRID LINES = YES Option Meaning YES Draw grid lines parallel to the Y-axis at locations requested for tic marks. NO Do not draw grid lines parallel to the Y-axis. Remarks 1. This card is optional. It pertains only to lower half frame plots. =PAGE= YBINTERCEPT - X-Axis Position Description Specifies the location on the Y-axis where the X-axis will be drawn on lower half frame plots only. Format and Example 0.0 YBINTERCEPT = yc YBINTERCEPT = 1.0 Option Meaning yc X-axis will have its y-coordinate = yc (Real) Remarks 1. This card is optional. It pertains only to lower half frame plots. =PAGE= YBLOG - Logarithmic Y-Coordinate Request Description Requests logarithmic scale for Y-coordinates on lower half frame plots only. Format and Example NO YBLOG = YES YBLOG = YES Option Meaning YES Use logarithmic scale for Y-coordinates. NO Use linear scale for Y-coordinates. Remarks 1. This card is optional. It pertains only to lower half frame plots. 2. See Remark 2 under the description of the XLOG card for default values for tic divisions on log plots. =PAGE= YBMAX - Upper Limit of Ordinate Description Specifies the upper limit of the ordinate of a curve on lower half frame plots only. Format and Example YBMAX = y YBMAX = 8.0 Option Meaning y Upper limit of the ordinate (Real). Remarks 1. This card is optional. It pertains only to lower half frame plots. 2. If this card is not used, the default value is chosen so as to accommodate all points. =PAGE= YBMIN - Lower Limit of Ordinate Description Specifies the lower limit of the ordinate of a curve on lower half frame plots only. Format and Example YBMIN = y YBMIN = 2.0 Option Meaning y Lower limit of the ordinate (Real). Remarks 1. This card is optional. It pertains only to lower half frame plots. 2. If this card is not used, the default value is chosen so as to accommodate all points. =PAGE= YBTITLE - Y-Axis Title Description Specifies the title for the Y-axis on lower half frame plots only. Format and Example YBTITLE = title YBTITLE = RESPONSE OF POINT 1 Option Meaning title Any BCD string to be used as the title for the Y-axis. Remarks 1. This card is optional. It pertains only to lower half frame plots. 2. The data for this card must be specified on only one physical card. =PAGE= YBVALUE PRINT SKIP - Y-Tic Skip Specification Description Specifies the number of tic marks to be skipped between labeled tic marks on the Y-axis on lower half frame plots only. Format and Example 0 YBVALUE PRINT SKIP = n YBVALUE PRINT SKIP = 1 Option Meaning n Number of tic marks to be skipped between labeled tic marks on the Y-axis (Integer >= 0). Thus, every (n + 1)th tic mark on the Y-axis will be labeled. Remarks 1. This card is optional. It pertains only to lower half plots. =PAGE= YDIVISIONS - Y-Direction Spacing Description Specifies the spacing to be used along the Y-direction for non-log scales on whole frame plots only. Format and Example 0 YDIVISIONS = n YDIVISIONS = 1 Option Meaning n Number of uniform spaces to be used along the Y-direction for whichever of the following are called for: LEFT TICS, RIGHT TICS, YAXIS (Integer > 0). Applicable only to non-log scales. Remarks 1. This card is optional. It pertains only to whole frame plots. =PAGE= YGRID LINES - Y-Grid Lines Request Description Requests the drawing of grid lines parallel to the Y-axis on whole frame plots only. Format and Example NO YGRID LINES = YES YGRID LINES = YES Option Meaning YES Draw grid lines parallel to the Y-axis at locations requested for tic marks. NO Do not draw grid lines parallel to the Y-axis. Remarks 1. This card is optional. It pertains only to whole frame plots. =PAGE= YINTERCEPT - X-Axis Position Description Specifies the location on the Y-axis where the X-axis will be drawn on whole frame plots only. Format and Example 0.0 YINTERCEPT = yc YINTERCEPT = 1.0 Option Meaning yc X-axis will have its y-coordinate = yc (Real). Remarks 1. This card is optional. It pertains only to whole frame plots. =PAGE= YLOG - Logarithmic Y-Coordinate Request Description Requests logarithmic scale for Y-coordinates on whole frame plots only. Format and Example YLOG = NO YES YLOG = YES Option Meaning YES Use logarithmic scale for Y-coordinates. NO Use linear scale for Y-coordinates. Remarks 1. This card is optional. It pertains only to whole frame plots. 2. See Remark 2 under the description of the XLOG card for default values for tic divisions on log plots. =PAGE= YMAX - Upper Limit of Ordinate Description Specifies the upper limit of the ordinate of a curve on whole frame plots only. Format and Example YMAX = y YMAX = 8.0 Option Meaning xy Upper limit of the ordinate (Real). Remarks 1. This card is optional. It pertains only to whole frame plots. 2. If this card is not used, the default value is chosen so as to accommodate all points. =PAGE= YMIN - Lower Limit of Ordinate Description Specifies the lower limit of the ordinate of a curve on whole frame plots only. Format and Example YMIN = y YMIN = 2.0 Option Meaning y Lower limit of the ordinate (Real). Remarks 1. This card is optional. It pertains only to whole frame plots. 2. If this card is not used, the default value is chosen so as to accommodate all points. =PAGE= YPAPER - Plot Frame Y-Dimension Description Specifies the Y-dimension of the plot frame (x by y) for table and drum plotters. (For microfilm plotters, the plot frame size is set at 10.23 inches x 10.23 inches and is not under your control.) Format and Example YPAPER = y YPAPER = 12.0 Option Meaning y Y-dimension of the plot frame in inches (0.0 < y <= 30.0). Remarks 1. This card is optional. It pertains to all types of plots (whole frame, upper half frame, and lower half frame). 2. If this card is not used, the following default values are used: Plotter model Default value for y (inches) Table 8.5 Drum 30.0 3. See Section 4.1.1 for an important discussion on plot frame size and character size. =PAGE= YTDIVISIONS - Y-Direction Spacing Description Specifies the spacing to be used along the Y-direction for non-log scales on upper half frame plots only. Format and Example 5 YTDIVISIONS = n YTDIVISIONS = 4 Option Meaning n Number of uniform spaces to be used along the Y-direction for whichever of the following are called for: TLEFT TICS, TRIGHT TICS, YAXIS (Integer > 0). Applicable only to non-log scales. Remarks 1. This card is optional. It pertains only to upper half frame plots. =PAGE= YTGRID LINES - Y-Grid Lines Request Description Requests the drawing of grid lines parallel to the Y-axis on upper half frame plots only. Format and Example NO YTGRID LINES = YES YTGRID LINES = YES Option Meaning YES Draw grid lines parallel to the Y-axis at locations requested for tic marks. NO Do not draw grid lines parallel to the Y-axis. Remarks 1. This card is optional. It pertains only to upper half frame plots. =PAGE= YTINTERCEPT - X-Axis Position Description Specifies the location on the Y-axis where the X-axis will be drawn on upper half frame plots only. Format and Example 0.0 YTINTERCEPT = yc YTINTERCEPT = 1.0 Option Meaning yc X-axis will have its y-coordinate = yc (Real). Remarks 1. This card is optional. It pertains only to upper half frame plots. =PAGE= YTITLE - Y-Axis Title Description Specifies the title for the Y-axis on whole frame plots only. Format and Example YTITLE = title YTITLE = RESPONSE OF POINT 1 Option Meaning title Any BCD string to be used as the title for the Y-axis. Remarks 1. This card is optional. It pertains only to whole frame plots. =PAGE= YTLOG - Logarithmic Y-Coordinate Request Description Requests logarithmic scale for Y-coordinates on upper half frame plots only. Format and Example NO YTLOG = YES YTLOG = YES Option Meaning YES Use logarithmic scale for Y-coordinates. NO Use linear scale for Y-coordinates. Remarks 1. This card is optional. It pertains only to upper half frame plots. 2. See Remark 2 under the description of the XLOG card for default values for tic divisions on log plots. =PAGE= YTMAX - Upper Limit of Ordinate Description Specifies the upper limit of the ordinate of a curve on upper half frame plots only. Format and Example YTMAX = y YTMAX = 8.0 Option Meaning y Upper limit of the ordinate (Real). Remarks 1. This card is optional. It pertains only to upper half frame plots. 2. If this card is not used, the default value is chosen so as to accommodate all points. =PAGE= YTMIN - Lower Limit of Ordinate Description Specifies the lower limit of the ordinate of a curve on upper half frame plots only. Format and Example YTMIN = y YTMIN = 2.0 Option Meaning y Lower limit of the ordinate (Real). Remarks 1. This card is optional. It pertains only to upper half frame plots. 2. If this card is not used, the default value is chosen so as to accommodate all points. =PAGE= YTTITLE - Y-Axis Title Description Specifies the title for the Y-axis on upper half frame plots only. Format and Example YTTITLE = title YTTITLE = RESPONSE OF POINT 1 Option Meaning title Any BCD string to be used as the title for the Y-axis. Remarks 1. This card is optional. It pertains only to upper half frame plots. 2. The data for this card must be specified on only one physical card. =PAGE= YTVALUE PRINT SKIP - Y-Tic Skip Specification Description Specifies the number of tic marks to be skipped between labeled tic marks on the Y-axis on upper half frame plots only. Format and Example 0 YTVALUE PRINT SKIP = n YTVALUE PRINT SKIP = 1 Option Meaning n Number of tic marks to be skipped between labeled tic marks on the Y-axis (Integer >= 0). Thus, every (n + 1)th tic mark on the Y-axis will be labeled. Remarks 1. This card is optional. It pertains only to upper half plots. =PAGE= YVALUE PRINT SKIP - Y-Tic Skip Specification Description Specifies the number of tic marks to be skipped between labeled tic marks on the Y-axis on whole frame plots only. Format and Example 0 YVALUE PRINT SKIP = n YVALUE PRINT SKIP = 1 Option Meaning n Number of tic marks to be skipped between labeled tic marks on the Y-axis (Integer >= 0). Thus, every (n + 1)th tic mark on the Y-axis will be labeled. Remarks 1. This card is optional. It pertains only to whole frame plots. =PAGE= 4.4 NASTRAN GENERAL PURPOSE PLOTTER (NASTPLT) FILE As indicated in Section 4.1, the NASTRAN plotting software is completely independent of any particular plotting hardware. This protects the NASTRAN software from being impacted by changes, additions, or deletions made to any particular plotting hardware. Instead, the plot file produced by NASTRAN (which may reside either on physical tape or on a mass storage device) is meant for a hypothetical plotter termed the NASTRAN General Purpose Plotter (NASTPLT) and is not suitable for use directly by any particular plotter. In order to use this NASTPLT file to obtain plots on any particular plotter, your installation must have available an external translator program to interpret this plot file and create plots on the plotter. Thus, in order to obtain plots using NASTRAN, two programs must be run: first, NASTRAN itself, to generate the NASTPLT file; and then the external translator program, to interpret this plot file. The purpose of this section is to explain the characteristics and construction of the NASTPLT file, so that you or a programmer will be able to write a program to translate this plot file for your plotter. Understanding the overall logic used by the NASTRAN plotter software package in producing a plot file will simplify the task of writing this translator program. It is therefore recommended that you or the programmer familiarize yourself not only with this section, but also with Section 6.10 of the Programmer's Manual, dealing with the plotting software in NASTRAN. The NASTPLT file is composed of a simple set of elementary plot operations, which can be easily deciphered by a FORTRAN program on any digital computer. As each operation is deciphered, the translator program should direct the receiving plotter to appropriate action. This would normally be done by using the installation software to interface between the translator program and the receiving plotter. If appropriate external translator programs are written, it is thus possible to obtain NASTRAN plots on any plotter. 4.4.1 Description of the NASTPLT File The NASTPLT file is a fixed-length-record file. An end-of-file mark follows the last plot only. Each record of the file is composed of 3000 n-bit bytes (or characters), each byte (or character) containing an unsigned integer. The value of n (the number of bits per byte) depends on the machine type. On the CDC and UNIVAC versions, n is equal to 6; on the IBM and DEC VAX versions, n is equal to 8. Thus, each record of 3000 unsigned integers consists of 300 words on the CDC (where the word length is 60 bits), 500 words on the UNIVAC (word length: 36 bits) and 750 words on the IBM and DEC VAX (word length: 32 bits). Each record of the NASTPLT file is composed of 100 plot commands, each command being composed of 30 bytes or unsigned integers (3 words on the CDC, 5 words on the UNIVAC, and 15 half-words on the IBM and DEC VAX). Not all plot commands will have useful information in all 30 bytes. Some commands use only two of the 30 bytes, while others use 22. The general format of each command is as follows: PCR R R R R S S S S S T T T T T U U U U U 000000- 4 3 2 1 0 4 3 2 1 0 4 3 2 1 0 4 3 2 1 0 00 where: P = plot command C = control index Ri = decimal digit of an integer called R Si = decimal digit of an integer called S Ti = decimal digit of an integer called T Ui = decimal digit of an integer called U 0 = zero The plot command is an n-bit integer, any one of seven (7) possible plot commands, as follows: 0 = no operation 1 = start new plot 2 = select camera 3 = skip to a new frame 4 = type a character (may also = 14) 5 = draw a line (may also = 15) 6 = draw an axis (may also = 16) The control index is also an n-bit integer. It may be a pen number (or a color fill option), a line density, a camera number, or a pointer into a list of characters and symbols. The four integer values (R, S, T, U) specified in a command must be reconstructed by the external translator program. Each integer value is represented in the command as follows: d d d d d 4 3 2 1 0 where the original integer value is given by: 4 3 2 1 0 d 10 + d 10 + d 10 + d 10 + d 10 4 3 2 1 0 The significance of each of the four integer values (R, S, T, U) may vary from one plot command to another. This is discussed in the next section. 4.4.2 Description of the Plot Commands on the NASTPLT File The seven possible plot commands on the NASTPLT file are described here. The no-operation (0) command is simply a padding for plot records which may otherwise have been less than 300 bytes long. All 30 bytes of this command will be zero. The start-new-plot (1) command will always be the first command introducing each new plot. The first integer (R) is the plot number. The second and third integers (S and T) are the maximum x and y values specified in any other command for this plot. The minimum x and y values are always zero and are therefore not specified in the start-new-plot command. If necessary, the translator program can use these maximum x and y values to scale subsequent integer values so that the plot will not exceed the limits of the plotting surface. The plot number is included because some plotters require the plot number as part of the first command for each new plot. In addition, if the receiving plotter is a table plotter, the translator program should issue a command to the plotter which will stop it so that the plotter operator can change the paper. If the plotter is a drum plotter, the translator program must skip a sufficient amount of paper to ensure that the previous plot will not be over-plotted. And if the receiving plotter is a microfilm plotter, nothing else need be done. The select-camera (2) command uses only the control index (C). The remaining 28 bytes are always zeros. This command is meaningful only on a microfilm plotter having both film and hardcopy output. The control index is the camera or output medium request number: 1 = film only, 2 = hardcopy (paper) only, and 3 = both. Upon receiving this command, the translator program should issue a command to the receiving plotter selecting the requested camera or output medium, then this command should be ignored. The skip-to-a-new-frame (3) command also uses only the control index. The remaining 28 bytes are always zeros. This command is meaningful only on a microfilm plotter. The control index is the camera or output medium request number: 1 = film only, 2 = hardcopy (paper) only, and 3 = both. The appropriate camera will have already been selected in a previous select-camera command. The only reason the camera number is included in this command is that some microfilm plotters require the camera or output medium to be specified in both select-camera and skip-frame commands. Upon receiving this command, the translator program should issue a command to the receiving plotter to skip to a new frame. If the receiving plotter is not a microfilm plotter, then this command should be ignored. Note: At least one skip-to-a-new-frame command will appear after each start-new-plot command and before the next start-new-plot command. The type-character (4), draw-line (5), and draw-axis (6) commands will always occur in sets, that is, a set of type-character commands, a set of draw-line commands, a set of draw-axis commands. There may be more than one set of each type of command, but, within a set, the commands will all be of the same type. This is done because on some plotters it is very inefficient to frequently change modes (for example, typing mode, line drawing mode) of operation. The plot command of the first command in a set will always = 10 + the basic plot command value, that is, type-character = 14; draw-line = 15; and draw-axis = 16. In all subsequent plot commands in the set, the plot command value will always equal the basic plot command value. For a type-character command, the control index is a pointer into a specific list of characters and special symbols. The list of characters and symbols to which the pointer applies is given in Table 4.4-1. The first two integer values (R and S) in the plot command represent the x and y coordinates of the point on the plotting surface at which the center of the character or symbol should be typed. The next integer value (T) represents the character scale value (see the description of the CSCALE card in Section 4.2.2.4) to be used in the plotting. The remaining 13 bytes of the command are always zeros. Upon receipt of a type-character command, the translator program should issue a command to the receiving plotter to type the requested character or special symbol (using the CSCALE value, if possible and appropriate) at the specified point. Of course, there is no guarantee that all the possible characters and special symbols can be typed by the receiving plotter. If any character or special symbol cannot be typed by the receiving plotter, the translator program will then have to make a substitution or not type the character at all. For a draw-line command, the control index is either a pen number or a color fill option (for table and drum plotters) or a line density (for microfilm plotters). If the receiving plotter is a microfilm plotter, it is recommended that the translator program simply draw the line as many times as is indicated by the line density value, rather than using any special density settings available on the plotter hardware. For table and drum plotters, the control index of the draw-line command denotes a pen number if the index has values between 1 and 31, both inclusive (that is, 1 <= control index <= 31). Control index values above 31 (up to 61) and a value of 0 represent the color fill option of closed polygons. The color filling of an n-sided closed polygon consists of a series of n draw-line commands, each in turn corresponding to one side of the polygon. All but the last of the draw-line commands in the series have the same control index value, m (31 < m <= 61). The last draw-line command in the series has a control index value of 0, indicating the last side of the closed polygon. The color with which the polygon is to be filled is given by pen number (m - 31). The first two integer values (R and S) of the draw-line command represent the x and y coordinates of the starting point of the line. The next two integer values (T and U) represent the x and y coordinates of the ending point of the line. The last 8 bytes of the command are always zeros. Upon receipt of this command, the translator program should issue a command to the receiving plotter to draw the line. NOTE: Some plotters require that a line be broken into a series of short lines. If this is the case on the receiving plotter, the translator program will have to accomplish this task unless the installation software makes provision for this automatically. The draw-axis command is identical to the draw-line command, except that there is no color fill option as it is not meaningful in this case. The only other difference is in the orientation of the drawn line. The line drawn by a draw-axis command will always be either horizontal or vertical. For most plotters, the translator program will handle this command just like a draw-line command. However, some plotters, which would ordinarily require that lines be broken into a series of short lines, may have a special command available to draw a horizontal or vertical line of any length. Only for these few plotters will this command have any special significance in the translator program. If such is the situation, the translator program, upon receipt of this command, should issue a command to the receiving plotter to draw the axis. Otherwise, the translator program should simply issue a command to the receiving plotter to draw a line representing the axis. =PAGE= Table 4.4-1. Characters and symbols indicated by the pointer in the type-character plot command Pointer Value Character/Symbol Pointer Value Character/Symbol 1 0 27 Q 2 1 28 R 3 2 29 S 4 3 30 T 5 4 31 U 6 5 32 V 7 6 33 W 8 7 34 X 9 8 35 Y 10 9 36 2 11 A 37 ( 12 B 38 ) 13 C 39 + 14 D 40 - 15 E 41 * 16 F 42 / 17 G 43 = 18 H 44 . 19 I 45 , 20 J 46 $ 21 K 47 | 22 L 48 filled bullet 23 M 49 open circle 24 N 50 open square 25 O 51 open diamond 26 P 52 open triangle ================================================ FILE: um/RFMT.TXT ================================================ =PAGE= AERO10 APR.93 $$$$$$$$ BEGIN AERO 10 - MODAL FLUTTER ANALYSIS - APR. 1993 $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ FILE PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/ CLAMAL=APPEND/OVG=APPEND/QHHL=APPEND/SKJ=APPEND/QHJL=APPEND/ QKHL=APPEND/ $ ****SBST 4 ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****FILE 127,138 ****RFMT 187-204,207-217 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 15, 19, 21, 23, 24, 58, 59 ****FILE 101,112,119,137,140 ****RFMT 199-201,204-217 $$$$ $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ ****CARD 1, 24 ****FILE 94 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label ERROR5 and print Error Message No. 5 if no grid points are $$$$ defined. COND ERROR5,NOGPDT $ ****CARD 1, 24 ****FILE 94 ****RFMT 187-204,207-217 $$$$ $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 ****RFMT 199-201,204-217 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122,125 ****RFMT 187-204,207-217 $$$$ $$$$ GP3 generates Static Loads Table and Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****SBST 5 ****CARD 1, 2, 13 ****FILE 96 ****RFMT 199-201,204-217 $$$$ $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****SBST 5 ****CARD 1- 6, 13, 16, 24 ****FILE 97 ****RFMT 199-201,204-217 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****SBST 5 ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****FILE 97 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label ERROR1 and print Error Message No. 1 if no structural $$$$ elements have been defined. COND ERROR1,NOSIMP $ ****SBST 5 ****CARD 1, 2, 4- 6, 13, 16 ****FILE 97 ****RFMT 187-204,207-217 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 14, 24 ****FILE 147 ****RFMT 199-201,204-217 $$$$ PARAM //*ADD*/NOMGG /1/0 $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 147 ****RFMT 199-201,204-217 $$$$ $$$$ EMG generates structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****SBST 4 ****CARD 1- 3, 5, 6, 8, 13, 14, 24 ****FILE 147 ****RFMT 199-201,204-217 $$$$ PURGE KGGX/NOKGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label JMPKGGX if no stiffness matrix is to be assembled. COND JMPKGGX,NOKGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 199-201,204-217 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 199-201,204-217 $$$$ PURGE KDICT,KELM/MINUS1 $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 147 ****RFMT 199-201,204-217 $$$$ LABEL JMPKGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to $$$$ be assembled. COND ERROR1,NOMGG $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 147 ****RFMT 187-204,207-217 $$$$ $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 99 ****RFMT 199-201,204-217 $$$$ PURGE MDICT,MELM/MINUS1 $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 147 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label LGPWG if no weight and balance information is requested. COND LGPWG,GRDPNT $ ****SBST 4 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 140 ****RFMT 199-201,204-217 $$$$ $$$$ GPWG generates weight and balance information. GPWG BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 140 ****RFMT 199-201,204-217 $$$$ $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 140 ****RFMT 199-201,204-217 $$$$ LABEL LGPWG $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 140 ****RFMT 199-201,204-217 $$$$ x $$$$ Equivalence [K ] to [K ] if there are no general elements. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label LBL11 if there are no general elements. COND LBL11,NOGENL $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 199-201,204-217 $$$$ y $$$$ SMA3 forms the general element stiffness matrix [K ]. $$$$ gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 199-201,204-217 $$$$ LABEL LBL11 $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 199-201,204-217 $$$$ GPSTGEN KGG,SIL/GPST $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 102 ****RFMT 199-201,204-217 $$$$ $$$$ GP4 generates flags defining members of various displacement sets $$$$ (USET), and forms multipoint constraint equations [R ] {u } = 0. $$$$ g g $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 22- 24 ****FILE 101 ****RFMT 199-201,204-217 $$$$ $$$$ OFP formats the table of potential grid point similarities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 22- 24 ****FILE 101 ****RFMT 199-201,204-217 $$$$ $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no multipoint $$$$ gg nn gg nn $$$$ constraints exist. EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 104 ****RFMT 199-201,204-217 $$$$ PURGE GM/MPCF1/DM,MR/REACT $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 103,109,110 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 103,104 ****RFMT 199-201,204-217 $$$$ $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****SBST 4 ****CARD 1, 9, 24 ****FILE 103 ****RFMT 199-201,204-217 $$$$ $$$$ MCE2 partitions stiffness and mass matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |M |M | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ gg |K |K | gg |M |M | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ and performs matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nn m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [G ][M ] + [M ][G ] + [G ][M ][G ] $$$$ nn nn m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 104 ****RFMT 199-201,204-217 $$$$ LABEL LBL2 $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 103,104 ****RFMT 199-201,204-217 $$$$ $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no single-point $$$$ nn ff nn ff $$$$ constraints exist. EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 199-201,204-217 $$$$ $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn |K |K | nn |M |M | $$$$ | sf| ss| | sf| ss| $$$$ + + + + $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 199-201,204-217 $$$$ LABEL LBL3 $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 199-201,204-217 $$$$ $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no omitted coordinates $$$$ ff aa ff aa $$$$ exist. EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 123,142 ****RFMT 199-201,204-217 $$$$ PURGE GO/OMIT $ ****SBST 4 ****CARD 1- 4, 6, 8- 11, 13, 24 ****FILE 142 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106,123,142 ****RFMT 199-201,204-217 $$$$ PARAM //*PREC*/PREC $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106 ****RFMT 187-204,207-217 $$$$ $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 142 ****RFMT 199-201,204-217 $$$$ $$$$ SMP2 partitions constrained mass matrix $$$$ $$$$ + + $$$$ |_ | $$$$ |M |M | $$$$ | aa| ao| $$$$ [M ] = |---+---| $$$$ ff | | | $$$$ |M |M | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [M ][G ] + [G ][M ][G ]+ [G ][M ] $$$$ aa aa oa o o oo o o oa $$$$ SMP2 USET,GO,MFF/MAA $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 123 ****RFMT 199-201,204-217 $$$$ LABEL LBL5 $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106,123,142 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label LBL6 if there are no free-body supports. COND LBL6,REACT $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 107-110 ****RFMT 199-201,204-217 $$$$ $$$$ RBMG1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ll| lr| | ll| lr| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ aa |K |K | aa |M |M | $$$$ | rl| rr| | rl| rr| $$$$ + + + + $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 107 ****RFMT 199-201,204-217 $$$$ $$$$ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ ll ll ll $$$$ RBMG2 KLL/LLL/ $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 24 ****FILE 108 ****RFMT 199-201,204-217 $$$$ $$$$ RBMG3 forms rigid body transformation matrix $$$$ $$$$ -1 $$$$ [D] = -[K ] [K ] $$$$ ll lr $$$$ $$$$ calculates rigid body check matrix $$$$ $$$$ T $$$$ [X] = [K ] + [K ][D] $$$$ rr lr $$$$ $$$$ and calculates rigid body error ratio $$$$ $$$$ $$$$ ||X|| $$$$ epsilon = --------- $$$$ ||K || $$$$ rr $$$$ RBMG3 LLL,KLR,KRR/DM $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 24 ****FILE 109 ****RFMT 199-201,204-217 $$$$ $$$$ RBMG4 forms rigid body mass matrix $$$$ $$$$ T T T $$$$ [m ] = [M ] + [M ][D] + [D ][M ] + [D ][M ][D] $$$$ r rr lr lr ll $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 110 ****RFMT 199-201,204-217 $$$$ LABEL LBL6 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 107-110 ****RFMT 199-201,204-217 $$$$ $$$$ DPD generates flags defining members of various displacement sets used in $$$$ dynamic analysis (USETD), tables relating the internal and external grid $$$$ point numbers (GPLD), including extra points introduced for dynamic $$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL) and $$$$ Eigenvalue Extraction Data (EED). DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $ ****CARD 1, 9- 12, 40, 56, 58, 60 ****FILE 111 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label ERROR2 and print Error Message No. 2 if there is no $$$$ Eigenvalue Extraction Data. COND ERROR2,NOEED $ ****SBST 4 ****CARD 1, 9- 12, 40, 56, 58, 60 ****FILE 111 ****RFMT 187-204,207-217 $$$$ d d $$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points $$$$ o o m m $$$$ introduced for dynamic analysis. EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****SBST 4 ****CARD 1- 4, 6, 9- 11, 13, 14, 24, 56 ****FILE 115 ****RFMT 199-201,204-217 $$$$ $$$$ READ extracts real eigenvalues and eigenvectors from the equation $$$$ $$$$ [K - lambda M ]{u } = 0 $$$$ aa aa a $$$$ $$$$ calculates rigid body modes by finding a square matrix [phi ] such that $$$$ ro $$$$ T $$$$ [m ] = [phi ][m ][phi ] $$$$ o ro r ro $$$$ $$$$ is diagonal and normalized, computes rigid body eigenvectors $$$$ $$$$ + + $$$$ |Dphi | $$$$ | ro | $$$$ [phi ] = |-------| $$$$ ao |phi | $$$$ | ro | $$$$ + + $$$$ $$$$ calculates modal mass matrix $$$$ $$$$ T $$$$ [m] = [phi ][M ][phi ] $$$$ a aa a $$$$ $$$$ and normalizes eigenvectors according to one of the following user $$$$ requests: $$$$ 1. Unit value of a selected component. $$$$ 2. Unit value of the largest component. $$$$ 3. Unit value of the generalized mass. READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 199-201,204-217 $$$$ $$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) $$$$ prepared by READ and places it on the system output file for printing. OFP OEIGS,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were $$$$ found. COND ERROR4,NEIGV $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 187-204,207-217 $$$$ $$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on $$$$ the system output file for printing. OFP LAMA,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 199-201,204-217 $$$$ 2 2 2 $$$$ MTRXIN selects the direct input matrices [K ], [M ], and [B ]. $$$$ pp pp pp $$$$ MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ ****SBST 5 ****CARD 1, 40, 56, 57 ****FILE 114 ****RFMT 199-201,204-217 $$$$ 2 2 2 2 2 2 $$$$ Equivalence [M ] to [M ], [B ] to [B ], and [K ] to [K ] if no $$$$ pp dd pp dd pp dd $$$$ constraints are applied. EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $ ****SBST 4 ****CARD 1, 9- 11, 40, 56, 57 ****FILE 139 ****RFMT 199-201,204-217 $$$$ 2 2 $$$$ GKAD applies constraints to direct input matrices [K ], [M ], and $$$$ pp pp $$$$ 2 2 2 2 $$$$ [B ], forming [K ], [M ], and [B ], and forms [G ] and [G ]. $$$$ pp dd dd dd md od $$$$ GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/ *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/ NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/-1/ -1/-1 $ ****SBST 4 ****CARD 1- 4, 6, 8- 11, 13, 14, 24, 40, 56, 57 ****FILE 115,139 ****RFMT 199-201,204-217 $$$$ $$$$ GKAM selects eigenvectors to form [phi ] and assembles stiffness, mass, $$$$ dh $$$$ and damping matrices in modal coordinates: $$$$ $$$$ + + $$$$ |k | | $$$$ | i | 0 | T 2 $$$$ [K ] = |---+---| + [phi ][K ][phi ] $$$$ hh | 0 | 0 | dh dd dh $$$$ | | | $$$$ + + $$$$ $$$$ + + $$$$ |m | | $$$$ | i | 0 | T 2 $$$$ [M ] = |---+---| + [phi ][M ][phi ] $$$$ hh | 0 | 0 | dh dd dh $$$$ | | | $$$$ + + $$$$ $$$$ + + $$$$ |b | | $$$$ | i | 0 | T 2 $$$$ [B ] = |---+---| + [phi ][B ][phi ] $$$$ hh | 0 | 0 | dh dd dh $$$$ | | | $$$$ + + $$$$ $$$$ where $$$$ $$$$ KDAMP = -1 (default) KDAMP = 1 $$$$ m = modal masses m = modal masses $$$$ i i $$$$ b = m 2 pi f g(f ) b = 0 $$$$ i i i i i $$$$ 2 2 2 $$$$ k = m 4 pi f k = (1+ig(f )) 4 pi f m $$$$ i i i i i i i $$$$ GKAM USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH, PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 40, 55- 59, 62 ****FILE 116 ****RFMT 199-201,204-217 $$$$ $$$$ APD processes the aerodynamic data cards from EDT. It adds the k points $$$$ and the SA points to USETD, making USETA. EQAERO, ECTA, BGPA, CSTMA, $$$$ GPLA, and SILA are updated to reflect the new elements. AERO and ACPT $$$$ reflect the aerodynamic parameters. SILGA is a special SIL for plotting. APD EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA, USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/ S,N,LUSETA/S,N,BOV $ ****CARD 1, 2, 4, 5, 9- 12, 16, 24, 29, 32, 34- 37, 56 ****FILE 124 ****RFMT 199-201,204-217 $$$$ PARAM //*MPY*/PFILE/0/1 $ ****SBST 7 ****CARD 18 ****FILE 118 ****RFMT 199-201,204-217 $$$$ PURGE PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118,125 ****RFMT 199-201,204-217 $$$$ $$$$ Go to lable SKPPLT if no plot output is requested. COND SKPPLT,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118,125 ****RFMT 199-201,204-217 $$$$ PARAM //*MPY*/PLTFLG/0/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118 ****RFMT 199-201,204-217 $$$$ $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125 ****RFMT 199-201,204-217 $$$$ $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETA // $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label SKPPLT if no undeformed aerodynamic or structural plot $$$$ elements are requested. COND SKPPLT,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118,125 ****RFMT 199-201,204-217 $$$$ $$$$ PLOT generates all requested undeformed aerodynamic and structural $$$$ element plots. PLOT PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO, ,,,,,,/PLOTX2/ NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118 ****RFMT 199-201,204-217 $$$$ $$$$ PRTMSG prints plotter data and engineering data for each undeformed $$$$ aerodynamic and structural plot element generated. PRTMSG PLOTX2 // $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118 ****RFMT 199-201,204-217 $$$$ LABEL SKPPLT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 118,125 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label ERROR2 and print Error Message No. 2 if there is no $$$$ Eigenvalue Extraction Data. COND ERROR2,NOEED $ ****CARD 58, 60 ****FILE 121 ****RFMT 199-201,204-217 $$$$ T $$$$ GI forms a transformation matrix [G ] which interpolates between $$$$ ka $$$$ aerodynamic (k) and structural (a) degrees of freedom. GI SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/LUSET $ ****SBST 4 ****CARD 1- 4, 6, 8- 11, 13, 24, 32, 35, 37 ****FILE 126 ****RFMT 199-201,204-217 $$$$ PARAM //*ADD*/DESTRY/0/1/ $ ****SBST 6 ****CARD 24, 29, 35, 37 ****FILE 127 ****RFMT 187-204,207-217 $$$$ $$$$ AMG forms the aerodynamic matrix list [A ], the area matrix [S ], and $$$$ jj kj $$$$ 1 2 $$$$ the downwash coefficients [D ] and [D ]. $$$$ jk jk $$$$ AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $ ****SBST 6 ****CARD 24, 29, 34, 35, 37 ****FILE 127 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label NODJE if there are no user-supplied downwash coefficients. COND NODJE, NODJE $ ****SBST 4 ****CARD 17, 26, 37, 56 ****FILE 128 ****RFMT 199-201,204-217 $$$$ $$$$ INPUTT2 provides the user-supplied downwash factors due to extra points $$$$ 1 2 $$$$ ([D ], [D ]). PARAM NODJE must be set to enter these matrices. The $$$$ je je $$$$ downwash w onbox j due to the motion of an extra point, u , is given by $$$$ j e $$$$ 1 2 $$$$ {w | = [D + ikD ]{u } $$$$ j je je e $$$$ INPUTT2 /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $ ****SBST 4 ****CARD 17, 26, 37, 56 ****FILE 128 ****RFMT 199-201,204-217 $$$$ LABEL NODJE $ ****SBST 4 ****CARD 17, 26, 37, 56 ****FILE 128 ****RFMT 199-201,204-217 $$$$ PARAM //*ADD*/XQHHL/1/0 $ ****SBST 4 ****CARD 1- 6, 8- 14, 17, 24, 26, 29, 32, 35, 37, 54, 56, 58, 59, 62 ****FILE 138 ****RFMT 199-201,204-217 $$$$ $$$$ AMP computes the aerodynamic matrix list related to the modal coordinates $$$$ as follows $$$$ $$$$ + + $$$$ |phi |phi | $$$$ | ai| ae| T T $$$$ [phi ] = |-----+-----| [G ] = [G ] [phi ] $$$$ dh |phi |phi | ki ka ai $$$$ | ei| ee| $$$$ + + $$$$ $$$$ 1 1 1 1 1 T $$$$ [D ] <= [D | D ] [D ] = [D ] [G ] $$$$ jh jf je ji jk ki $$$$ $$$$ 2 2 2 2 2 T $$$$ [D ] <= [D | D ] [D ] = [D ] [G ] $$$$ jh jf je ji jk ki $$$$ $$$$ For each (m,k) pair: $$$$ $$$$ 1 2 $$$$ [D ] = [D ] + ik[D ] $$$$ jh jh jh $$$$ $$$$ For each group: $$$$ $$$$ T -1 $$$$ [Q ] = [A ] [D ] $$$$ jh jj group jh group $$$$ $$$$ [Q ] = [S ][Q ] $$$$ kh kj jh $$$$ $$$$ T $$$$ [Q ] = [G ] [Q ] $$$$ ih ki kh $$$$ $$$$ + + $$$$ | Q | $$$$ | ih | $$$$ [Q ] <= | ----| $$$$ hh | Q | $$$$ | eh | $$$$ + + $$$$ AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL, QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $ ****SBST 4 ****CARD 1- 6, 8- 14, 17, 24, 26, 29, 32, 34, 35, 37, 54, 56, 58, 59 ****CARD 62 ****FILE 138 ****RFMT 199-201,204-217 $$$$ $$$$ PARAM initializes the flutter loop counter (FLOOP) to zero. PARAM //*MPY*/FLOOP/V,Y,NODJE=-1/0 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 129 ****RFMT 187-204,207-217 $$$$ $$$$ Beginning of loop for flutter. LABEL LOOPTOP $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 129 ****RFMT 187-204,207-217 $$$$ x $$$$ FA1 computes the total aerodynamic mass matrix [M ], the total $$$$ hh $$$$ x $$$$ aerodynamic stiffness matrix [K ], and the total aerodynamic damping $$$$ hh $$$$ x $$$$ matrix [B ], as well as a looping table FSAVE. For the K method $$$$ hh $$$$ $$$$ x 2 2 ) Q $$$$ M = (k /b )M + (p/2 hh $$$$ hh hh $$$$ $$$$ x $$$$ K = K $$$$ hh hh $$$$ $$$$ x $$$$ B = 0 $$$$ hh $$$$ FA1 KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/ S,N,FLOOP/S,N,TSTART/S,N,NOCEAD $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 129 ****RFMT 199-201,204-217 $$$$ $$$$ Set up equivalences for the KE and PK methods. EQUIV KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/KXHH,PHIHL/NOCEAD/BXHH, CLAMAL/NOCEAD/CASECC,CASEYY/NOCEAD $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 117,130 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label VDR for the KE and PK methods. COND VDR,NOCEAD $ ****SBST 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 117 ****RFMT 199-201,204-217 $$$$ $$$$ CEAD extracts complex eigenvalues and eigenvectors from the equation $$$$ $$$$ x 2 x x $$$$ [M p + B p + K ]{phi } = 0 $$$$ hh hh hh h $$$$ $$$$ and normalizes eigenvectors to unit magnitude of the largest component. CEAD KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 117 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label LBLZAP if no complex eigenvalues were found. COND LBLZAP,EIGVS $ ****SBST 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 117 ****RFMT 199-201,204-217 $$$$ LABEL VDR $ ****SBST 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 117 ****RFMT 199-201,204-217 $$$$ $$$$ VDR prepares eigenvectors (OPHIH) for output, using only the extra points $$$$ introduced for dynamic analysis and modal coordinates. VDR CASECC,EQDYN ,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/ 123/S,N,NOH/S,N,NOP/FMODE $ ****SBST 4 ****CARD 21 ****FILE 119 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label LBL16 if there is no output request for the extra points $$$$ introduced for dynamic analysis or modal coordinates. COND LBL16,NOH $ ****SBST 4 ****CARD 21 ****FILE 119 ****RFMT 199-201,204-217 $$$$ $$$$ OFP formats the table of eigenvectors for extra points introduced for $$$$ dynamic analysis and modal coordinates prepared by VDR and places it on $$$$ the system output file for printing. OFP OPHIH,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 21 ****FILE 119 ****RFMT 199-201,204-217 $$$$ LABEL LBL16 $ ****SBST 4 ****CARD 18, 21 ****FILE 119 ****RFMT 199-201,204-217 $$$$ $$$$ FA2 appends eigenvectors to PHIHL, eigenvalues to CLAMAL, Case Control to $$$$ CASEYY, and V-g plot data to OVG. FA2 PHIH,CLAMA,FSAVE/ PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/ C,Y,VREF=1.0/C,Y,PRINT=YES $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 130 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label CONTINUE if there is insufficient time for another flutter $$$$ loop. COND CONTINUE,TSTART $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ LABEL LBLZAP $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 117 ****RFMT 187-204,207-217 $$$$ $$$$ Go to label CONTINUE if the flutter loop is complete. COND CONTINUE,FLOOP $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ $$$$ Go to label LOOPTOP for additional aerodynamic configuration triplet $$$$ values. REPT LOOPTOP,100 $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ $$$$ Go to label ERROR3 and print Error Message No. 3 if the number of flutter $$$$ loops exceeds 100. JUMP ERROR3 $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ LABEL CONTINUE $ ****SBST 3, 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ PARAML XYCDB//*PRES*////NOXYCDB $ ****SBST 4 ****CARD 20 ****FILE 120 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label NOXYOUT if there are no X-Y plot requests. COND NOXYOUT,NOXYCDB $ ****SBST 4 ****CARD 20 ****FILE 120 ****RFMT 199-201,204-217 $$$$ $$$$ XYTRAN prepares the input for requested X-Y plots. XYTRAN XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO/ S,N,NOXYPL $ ****SBST 4 ****CARD 20 ****FILE 120 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label NOXYOUT if no plots are possible as requested. COND NOXYOUT,NOXYPL $ ****SBST 4 ****CARD 20 ****FILE 120 ****RFMT 199-201,204-217 $$$$ $$$$ XYPLOT prepares the requested V-g plots. XYPLOT XYPLTCE// $ ****SBST 4 ****CARD 20 ****FILE 120 ****RFMT 199-201,204-217 $$$$ LABEL NOXYOUT $ ****SBST 4 ****CARD 20 ****FILE 120 ****RFMT 199-201,204-217 $$$$ PARAM //*AND*/PJUMP/NOP=-1/JUMPPLOT $ ****SBST 4 ****CARD 1- 6, 8- 13, 20, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 121,122,131-134,136,137,144,145 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label FINIS and make normal exit if there are no output requests $$$$ involving dependent degrees of freedom or forces and stresses. COND FINIS,PJUMP $ ****SBST 4 ****CARD 1- 6, 8- 13, 18- 21, 24- 26, 29, 32, 34- 40, 55- 62 ****FILE 121,122,131-134,136,137,144,145 ****RFMT 199-201,204-217 $$$$ $$$$ MODACC selects a list of eigenvalues and eigenvectors whose imaginary $$$$ parts (velocity in input units) are close to a user input list. MODACC CASEYY,CLAMAL,PHIHL,,,/CLAMAL1,CPHIH1,CASEZZ,,/*CEIGN* $ ****SBST 4 ****CARD 1- 6, 8- 13, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 131 ****RFMT 199-201,204-217 $$$$ $$$$ ADR builds a matrix of aerodynamic forces for each aerodynamic point and $$$$ prints requested aerodynamic forces for selected elements. ADR CPHIH1,CASEZZ,QKHL,CLAMAL1,SPLINE,SILA,USETA/PKF/BOV/ C,Y,MACH = 0.0/*FLUTTER* $ ****SBST 4 ****CARD 21, 25 ****FILE 121 ****RFMT 199-201,204-217 $$$$ $$$$ DDR1 transforms the complex eigenvectors from modal to physical $$$$ coordinates $$$$ $$$$ c $$$$ {phi } = {phi }{phi } $$$$ d dh h $$$$ DDR1 CPHIH1,PHIDH/CPHID $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34, 36- 40, 55- 62 ****FILE 122 ****RFMT 199-201,204-217 $$$$ c c $$$$ Equivalence {phi } to {phi } if no constraints are applied. $$$$ d p $$$$ EQUIV CPHID ,CPHIP/NOA $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 144 ****RFMT 199-201,204-217 $$$$ PURGE QPC/NOA $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 144 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label LBL14 if no constraints are applied. COND LBL14,NOA $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 144 ****RFMT 199-201,204-217 $$$$ $$$$ SDR1 recovers dependent components of eigenvectors $$$$ $$$$ phi $$$$ c d c d c c $$$$ {phi } = [G ]{phi } {----} = {phi + phi } $$$$ o o d phi f e $$$$ o $$$$ c c $$$$ phi + phi $$$$ f e c c c d c c $$$$ {-----------} = {phi + phi } {phi } = [G ]{phi + phi } $$$$ c n e m m n e $$$$ phi $$$$ s $$$$ $$$$ c c $$$$ phi + phi $$$$ f e c $$$$ {-----------} = {phi } $$$$ c p $$$$ phi $$$$ m $$$$ T $$$$ and recovers single-point forces of constraint {q } = [K ] {phi }. $$$$ s fs f $$$$ 0 c $$$$ {---} = {Q }. $$$$ q p $$$$ s $$$$ SDR1 USETD,,CPHID ,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1 /*DYNAMICS* $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 144 ****RFMT 199-201,204-217 $$$$ LABEL LBL14 $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 144 ****RFMT 199-201,204-217 $$$$ c c $$$$ Equivalence {phi } to {phi } if there are no extra points introduced for $$$$ d a $$$$ dynamic analysis. EQUIV CPHID ,CPHIA/NOUE $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 122 ****RFMT 199-201,204-217 $$$$ $$$$ Go to label LBLNOE if there are no extra points. COND LBLNOE,NOUE $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 132 ****RFMT 199-201,204-217 $$$$ $$$$ VEC generates a d-size partitioning vector (RP) for the a and e sets $$$$ $$$$ {u } -> {u } + {u } $$$$ d s e $$$$ VEC USETA/RP/*D*/*A*/*E* $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 132 ****RFMT 199-201,204-217 $$$$ c $$$$ PARTN performs partition of {phi } using RP $$$$ d $$$$ c $$$$ phi $$$$ c a $$$$ {phi } => {----} $$$$ d c $$$$ phi $$$$ e $$$$ PARTN CPHID ,,RP/CPHIA,,,/1/3 $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 122,132 ****RFMT 199-201,204-217 $$$$ LABEL LBLNOE $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 132 ****RFMT 199-201,204-217 $$$$ $$$$ MPYAD recovers the displacements at the aerodynamic points (k) $$$$ $$$$ c T T c $$$$ {phi } = [G ] {phi } $$$$ k ka a $$$$ MPYAD GTKA,CPHIA,/CPHIK/1/1/0/PREC $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 133 ****RFMT 199-201,204-217 $$$$ c $$$$ UMERGE is used to expand {phi } to the ps set. $$$$ p $$$$ UMERGE USETA,CPHIP,/CPHIPS/*PS*/*P*/*SA* $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 134 ****RFMT 199-201,204-217 $$$$ c $$$$ UMERGE places {phi } in its proper place in the displacement vector $$$$ k $$$$ $$$$ c $$$$ phi $$$$ c ps $$$$ {phi } <= {-----} $$$$ pa c $$$$ phi $$$$ k $$$$ UMERGE USETA,CPHIPS,CPHIK/CPHIPA/*PA*/*PS*/*K* $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 136 ****RFMT 199-201,204-217 $$$$ c $$$$ UMERGE is used to expand {Q } to the pa set. $$$$ p $$$$ UMERGE USETA,QPC,/QPAC/*PA*/*P*/*K* $ ****SBST 4 ****CARD 1- 6, 8- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 136 ****RFMT 199-201,204-217 $$$$ $$$$ SDR2 calculates element forces (OEFC1) and stresses (OESC1) and prepares $$$$ eigenvectors (OCPHIPA) and single-point forces of constraint (OQPAC1) for $$$$ output and PCPHIPA for deformed plotting. SDR2 CASEZZ,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,CLAMAL1,QPAC,CPHIPA, EST,,,/,OQPAC1,OCPHIPA,OESC1,OEFC1,PCPHIPA,,/*CEIGN* $ ****SBST 4 ****CARD 4, 18, 19, 24 ****FILE 137 $$$$ $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OCPHIPA,OQPAC1,OESC1,OEFC1,,//S,N,CARDNO $ ****SBST 4 ****CARD 19 ****FILE 137 $$$$ $$$$ Go to label FINIS and make normal exit if no deformed aerodynamic or $$$$ structural element plots are requested. COND FINIS,JUMPPLOT $ ****SBST 4, 7 ****CARD 18 ****FILE 145 $$$$ $$$$ PLOT prepares all deformed aerodynamic and structural element plots. PLOT PLTPARA,GPSETSA,ELSETSA,CASEZZ,BGPA,EQAERO,SILGA,,PCPHIPA,,,, /PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/S,N, PFILE $ ****SBST 4, 7 ****CARD 18 ****FILE 145 $$$$ $$$$ PRTMSG prints plotter data and engineering data for each deformed plot $$$$ generated. PRTMSG PLOTX3// $ ****SBST 4, 7 ****CARD 18 ****FILE 145 $$$$ $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****FILE 145 ****RFMT 187-204,207-217 $$$$ LABEL ERROR3 $ ****SBST 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*FLUTTER* $ ****SBST 4 ****CARD 1- 6, 8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 40, 56, 58, 60 ****FILE 111 ****RFMT 187-204,207-217 $$$$ $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*FLUTTER* $ ****CARD 1, 9- 12, 40, 56, 58, 60 ****FILE 111 ****RFMT 187-204,207-217 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 6, 8, 13, 14, 24 ****FILE 147 ****RFMT 187-204,207-217 $$$$ $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*FLUTTER* $ ****CARD 1- 3, 5, 6, 8, 13, 14, 24 ****FILE 147 ****RFMT 187-204,207-217 $$$$ LABEL ERROR4 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 187-204,207-217 $$$$ $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*FLUTTER* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 187-204,207-217 $$$$ LABEL ERROR5 $ ****CARD 1, 24 ****FILE 94 ****RFMT 187-204,207-217 $$$$ $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*FLUTTER* $ ****CARD 1, 24 ****FILE 94 ****RFMT 187-204,207-217 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****FILE 121,122,131-134,136,137,144,145 ****RFMT 187-204,207-217 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****FILE 121,122,131-134,136,137,144,145 ****RFMT 187-204,207-217 $$$$ END $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-217 $$$$ $*CARD BITS 1 AXIC AXIF AXSLOT 1 GRDSET GRID GRIDB 1 POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 1 CELAS1 CELAS2 CELAS3 CELAS4 1 CMASS1 CMASS2 CMASS3 CMASS4 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 ADUM9 BAROR 2 CAXIF2 CAXIF3 CAXIF4 CBAR CBARAO CCONEAX 2 CDUM1 2 CDUM2 CDUM3 CDUM4 CDUM5 CDUM6 CDUM7 CDUM8 2 CDUM9 2 CELBOW CFLUID2 CFLUID3 CFLUID4 CHEXA1 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CNGRNT CONROD CQUAD4 CTRIA3 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 2 CROD CSHEAR CSLOT3 CSLOT4 CTETRA CTRBSC CTRAPAX 2 CTRIAAX CTRIARG CTORDRG CTRAPRG CTRIA1 CTRIA2 2 CTRIM6 CTRMEM CTRPLT CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 3 PDUM5 PSHELL PCOMP PCOMP1 PCOMP2 3 PDUM6 PDUM7 PDUM8 PDUM9 PELBOW PHEX PIS2D8 3 PQDMEM PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 3 PROD PSHEAR PTORDRG PTRAPAX PTRBSC PTRIA1 3 PTRIA2 PTRIM6 PTRIAAX PTRMEM PTRPLT PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 6 PELAS PMASS 8 MAT1 MAT2 MAT3 MAT9 MATT1 MATT2 MATT3 8 MAT8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 8 TEMPMT$ TEMPMX$ 9 CRIGD1 CRIGD2 CRIGD3 CRIGDR 9 CRROD CRBAR CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE 9 MPC MPCADD MPC$ MPCAX 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 11 OMIT OMIT1 OMITAX 11 SUPAX SUPORT 13 TEMP TEMPAX TEMPD 13 TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 COUPMASS CPBAR CPDPLT 14 CPQUAD1 CPQUAD2 CPROD CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 14 WTMASS 15 GRDPNT 16 PLOTEL 17 P1 P2 P3 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 ASETOUT 23 AUTOSPC 24 CORD1C CORD1R CORD1S CORD2C CORD2R CORD2S 25 MACH 26 NODJE 29 PAERO1 PAERO2 PAERO3 PAERO4 PAERO5 32 SET1 SET2 32 SPLINE1 SPLINE2 SPLINE3 34 MKAERO1 MKAERO2 35 AEFACT 36 FLFACT FLUTTER 37 AERO 37 CAERO1 CAERO2 CAERO3 CAERO4 CAERO5 38 FMETHOD$ 39 PRINT VREF 40 TF 54 GUSTAERO 55 SDAMP$ 55 TABDMP1 56 EPOINT SEQEP 57 K2PP$ M2PP$ B2PP$ TF$ 57 DMIG 58 EIGR 59 METHOD$ 60 EIGC EIGP 61 CMETHOD$ 62 HFREQ LFREQ LMODES KDAMP $$$$ $*FILE BITS 94 GPL EQEXIN GPDT CSTM BGPDT SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 RG USET ASET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 GPLD SILD USETD TFPOOL EED EQDYN 112 LAMA PHIA MI OEIGS 114 K2PP M2PP B2PP 115 GMD GOD 116 MHH BHH KHH PHIDH 117 PHIH CLAMA OCEIGS 118 PLOTX2 119 OPHIH 120 XYPLTCE 121 PKF 122 CPHID 123 MAA 124 EQAERO ECTA BGPA SILA USETA SPLINE AERO 124 ACPT FLIST CSTMA GPLA SILGA 125 PLTSETA PLTPARA GPSETSA ELSETSA 126 GTKA 127 AJJL D1JK D2JK SKJ 128 D1JE D2JE 129 FSAVE KXHH BXHH MXHH 130 PHIHL CLAMAL CASEYY OVG 131 CLAMAL1 CPHIH1 CASEZZ 132 RP 133 CPHIK 134 CPHIPS 136 CPHIPA 137 OQPAC1 OCPHIPA OESC1 OEFC1 PCPHIPA 138 QHHL QKHL QHJL 139 K2DD M2DD B2DD 140 OGPWG 142 KOO LOO KAA 144 CPHIP QPC 145 PLOTX3 147 KELM KDICT MELM MDICT $* =PAGE= AERO11 APR.93 $$$$$$$$ BEGIN AERO 11 - MODAL AEROELASTIC RESPONSE - APR. 1993 $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****RFMT 187-204,207-217 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****RFMT 187-204,207-217 $$$$ FILE AJJL=APPEND/QHHL=APPEND/QKHL=APPEND/QHJL=APPEND/SKJ=APPEND $ ****SBST 4 ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****FILE 127,138 ****RFMT 187-204,207-217 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 14, 19- 21, 24, 25, 58, 59 ****FILE 101,112,135,143,154 ****RFMT 204-217 $$$$ $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ ****CARD 1, 24 ****FILE 94 ****RFMT 204-217 $$$$ $$$$ Go to label ERROR1 and print Error Message No. 1 if no grid points are $$$$ defined. COND ERROR1,NOGPDT $ ****CARD 1, 24 ****FILE 94 ****RFMT 187-204,207-217 $$$$ $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 ****RFMT 204-217 $$$$ PARAML PCDB//*PRES*/V,Y,NODJE=-1///JUMPPLOT $ ****SBST 7 ****CARD 18, 26 ****FILE 122,125 ****RFMT 204-217 $$$$ PARAML XYCDB//*PRES*////NOXYCDB $ ****SBST 4 ****CARD 20, 22 ****RFMT 204-217 $$$$ $$$$ GP3 generates Grid Point Temperature Table (element temperature). GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****SBST 5 ****CARD 1, 2, 13 ****FILE 96 ****RFMT 204-217 $$$$ $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****SBST 5 ****CARD 1- 6, 13, 16, 24 ****FILE 97 ****RFMT 204-217 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****SBST 5 ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****FILE 97 ****RFMT 204-217 $$$$ $$$$ Go to label ERROR3 and print Error Message No. 3 if no structural $$$$ elements have been defined. COND ERROR3,NOSIMP $ ****SBST 5 ****CARD 1, 2, 4- 6, 16, 24 ****FILE 97 ****RFMT 187-204,207-217 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 14, 24 ****FILE 113 ****RFMT 204-217 $$$$ PARAM //*ADD*/NOMGG /1/0 $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 113 ****RFMT 204-217 $$$$ $$$$ EMG generates structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****SBST 4 ****CARD 1- 3, 5, 6, 8, 13, 14, 24 ****FILE 113 ****RFMT 204-217 $$$$ PURGE KGGX/NOKGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 204-217 $$$$ $$$$ Go to label JMPKGGX if no stiffness matrix is to be assembled. COND JMPKGGX,NOKGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 204-217 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 204-217 $$$$ PURGE KDICT,KELM/MINUS1 $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 113 ****RFMT 204-217 $$$$ LABEL JMPKGGX $ ****SBST 4 ****CARD 1- 3, 6, 8, 13, 24 ****FILE 98 ****RFMT 204-217 $$$$ $$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to $$$$ be assembled. COND ERROR1,NOMGG $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 113 ****RFMT 204-217 $$$$ $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 99 ****RFMT 204-217 $$$$ PURGE MDICT,MELM/MINUS1 $ ****SBST 4 ****CARD 1- 3, 5, 8, 13, 14, 24 ****FILE 113 ****RFMT 204-217 $$$$ $$$$ Go to label LGPWG if no weight and balance information is requested. COND LGPWG,GRDPNT $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 154 ****RFMT 204-217 $$$$ $$$$ GPWG generates weight and balance information. GPWG BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 154 ****RFMT 204-217 $$$$ $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 154 ****RFMT 204-217 $$$$ LABEL LGPWG $ ****SBST 4, 8 ****CARD 1- 3, 5, 8, 13- 15, 24 ****FILE 154 ****RFMT 204-217 $$$$ x $$$$ Equivalence [K ] to [K ] if there are no general elements. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 204-217 $$$$ $$$$ Go to label LBL11 if there are no general elements. COND LBL11,NOGENL $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 204-217 $$$$ y $$$$ SMA3 forms the general element stiffness matrix [K ]. $$$$ gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 204-217 $$$$ LABEL LBL11 $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 100 ****RFMT 204-217 $$$$ GPSTGEN KGG,SIL/GPST $ ****SBST 4 ****CARD 1- 4, 6, 8, 13, 24 ****FILE 102 ****RFMT 204-217 $$$$ $$$$ GP4 generates flags defining members of various displacement sets $$$$ (USET), and forms multipoint constraint equations [R ] {u } = 0. $$$$ g g $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 13, 23- 25 ****FILE 101 ****RFMT 204-217 $$$$ $$$$ OFP formats the table of potential grid point similarities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 23- 25 ****FILE 101 ****RFMT 204-217 $$$$ PURGE GM/MPCF1/DM,MR/REACT $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 103,109,110 ****RFMT 204-217 $$$$ $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no multipoint $$$$ gg nn gg nn $$$$ constraints exist. EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 104 ****RFMT 204-217 $$$$ $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 103,104 ****RFMT 204-217 $$$$ $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****SBST 4 ****CARD 1, 9, 24 ****FILE 103 ****RFMT 204-217 $$$$ $$$$ MCE2 partitions stiffness and mass matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |M |M | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ gg |K |K | gg |M |M | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ and performs matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nn m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [G ][M ] + [M ][G ] + [G ][M ][G ] $$$$ nn nn m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 104 ****RFMT 204-217 $$$$ LABEL LBL2 $ ****SBST 4 ****CARD 1- 6, 8, 9, 13, 14, 24 ****FILE 103,104 ****RFMT 204-217 $$$$ $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no single-point $$$$ nn ff nn ff $$$$ constraints exist. EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 204-217 $$$$ $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 204-217 $$$$ $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn |K |K | nn |M |M | $$$$ | sf| ss| | sf| ss| $$$$ + + + + $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 204-217 $$$$ LABEL LBL3 $ ****SBST 4 ****CARD 1- 6, 8- 10, 13, 14, 24 ****FILE 105 ****RFMT 204-217 $$$$ $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no omitted coordinates $$$$ ff aa ff aa $$$$ exist. EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106,123 ****RFMT 204-217 $$$$ PURGE GO/OMIT $ ****SBST 4 ****CARD 1- 4, 6, 8- 11, 13, 24 ****FILE 106 ****RFMT 204-217 $$$$ $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106,113,123 ****RFMT 204-217 $$$$ PARAM //*PREC*/PREC $ ****SBST 4 ****FILE 106,140 ****RFMT 204-217 $$$$ $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106 ****RFMT 204-217 $$$$ $$$$ SMP2 partitions constrained mass matrix $$$$ $$$$ + + $$$$ |_ | $$$$ |M |M | $$$$ | aa| ao| $$$$ [M ] = |---+---| $$$$ ff | | | $$$$ |M |M | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [M ][G ] + [G ][M ][G ]+ [G ][M ] $$$$ aa aa oa o o oo o o oa $$$$ SMP2 USET,GO,MFF/MAA $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 123 ****RFMT 204-217 $$$$ LABEL LBL5 $ ****SBST 4 ****CARD 1- 6, 8- 11, 13, 14, 24 ****FILE 106,113,123 ****RFMT 204-217 $$$$ $$$$ Go to label LBL6 if no free-body supports exist. COND LBL6,REACT $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 107-110 ****RFMT 204-217 $$$$ $$$$ RBMG1 partitions out free-body supports $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ll| lr| | ll| lr| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ aa |K |K | aa |M |M | $$$$ | rl| rr| | rl| rr| $$$$ + + + + $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 107 ****RFMT 204-217 $$$$ $$$$ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ ll ll ll $$$$ RBMG2 KLL/LLL/ $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 24 ****FILE 108 ****RFMT 204-217 $$$$ $$$$ RBMG3 forms rigid body transformation matrix $$$$ $$$$ -1 $$$$ [D] = -[K ] [K ] $$$$ ll lr $$$$ $$$$ calculates rigid body check matrix $$$$ $$$$ T $$$$ [X] = [K ] + [K ][D] $$$$ rr lr $$$$ $$$$ and calculates rigid body error ratio $$$$ $$$$ $$$$ ||X|| $$$$ epsilon = --------- $$$$ ||K || $$$$ rr $$$$ RBMG3 LLL,KLR,KRR/DM $ ****SBST 4 ****CARD 1- 4, 6, 8- 13, 24 ****FILE 109 ****RFMT 204-217 $$$$ $$$$ RBMG4 forms rigid body mass matrix $$$$ $$$$ T T T $$$$ [m ] = [M ] + [M ][D] + [D ][M ] + [D ][M ][D] $$$$ r rr lr lr ll $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 110 ****RFMT 204-217 $$$$ LABEL LBL6 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24 ****FILE 107-110 ****RFMT 204-217 $$$$ $$$$ DPD generates flags defining members of various displacement sets used in $$$$ dynamic analysis (USETD), tables relating the internal and external grid $$$$ point numbers (GPLD), including extra points introduced for dynamic $$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL) and $$$$ Eigenvalue Extraction Data (EED). DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,TRL, EED,EQDYN/LUSET/S,N,LUSETD/NOTFL/NODLT/S,N,NOPSDL/ NOFRL/NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $ ****CARD 1, 9- 12, 40, 50, 52, 53, 56, 58 ****FILE 111 ****RFMT 204-217 $$$$ $$$$ Go to label ERROR2 and print Error Message No. 2 if there is no $$$$ Eigenvalue Extraction Data. COND ERROR2,NOEED $ ****SBST 4 ****CARD 1, 9- 12, 40, 50, 52, 53, 56, 58 ****FILE 111 ****RFMT 187-204,207-217 $$$$ d d $$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points $$$$ o o m m $$$$ introduced for dynamic analysis. EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****SBST 4 ****CARD 1- 4, 6, 9- 11, 13, 14, 24, 56 ****FILE 115 ****RFMT 204-217 $$$$ $$$$ READ extracts real eigenvalues and eigenvectors from the equation $$$$ $$$$ [K - lambda M ]{phi } = 0 $$$$ aa aa a $$$$ $$$$ calculates rigid body modes by finding a matrix [phi ] such that $$$$ ro $$$$ T $$$$ [m ] = [phi ][m ][phi ] $$$$ o ro r ro $$$$ $$$$ is diagonal and normalized, computes rigid body eigenvectors $$$$ $$$$ + + $$$$ |Dphi | $$$$ | ro | $$$$ [phi ] = |-------| $$$$ ao |phi | $$$$ | ro | $$$$ + + $$$$ $$$$ calculates modal mass matrix $$$$ $$$$ T $$$$ [m] = [phi ][M ][phi ] $$$$ a aa a $$$$ $$$$ and normalizes eigenvectors according to one of the following user $$$$ requests: $$$$ 1. Unit value of a selected component. $$$$ 2. Unit value of the largest component. $$$$ 3. Unit value of the generalized mass. READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 204-217 $$$$ $$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) $$$$ prepared by READ and places it on the system output file for printing. OFP OEIGS,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 204-217 $$$$ $$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were $$$$ found. COND ERROR4,NEIGV $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 187-204,207-217 $$$$ $$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on $$$$ the system output file for printing. OFP LAMA,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 204-217 $$$$ 2 2 2 $$$$ MTRXIN selects the direct input matrices [K ], [M ], and [B ]. $$$$ pp pp pp $$$$ MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ ****SBST 5 ****CARD 1, 40, 56, 57 ****FILE 114 ****RFMT 204-217 $$$$ 2 2 2 2 2 2 $$$$ Equivalence [M ] to [M ], [B ] to [B ], and [K ] to [K ] if no $$$$ pp dd pp dd pp dd $$$$ constraints are applied. EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $ ****SBST 4 ****CARD 1, 9- 11, 40, 56, 57 ****FILE 139 ****RFMT 204-217 $$$$ 2 2 $$$$ GKAD applies constraints to direct input matrices [K ], [M ], and $$$$ pp pp $$$$ 2 2 2 2 $$$$ [B ], forming [K ], [M ], and [B ], and forms [G ] and [G ]. $$$$ pp dd dd dd md od $$$$ GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/ *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/ NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/-1/-1/-1 $ ****SBST 4 ****CARD 1- 4, 6, 8- 11, 13, 14, 24, 40, 56, 57 ****FILE 115,139 ****RFMT 204-217 $$$$ $$$$ GKAM selects eigenvectors to form [phi ] and assembles stiffness, mass, $$$$ dh $$$$ and damping matrices in modal coordinates: $$$$ $$$$ + + $$$$ |k | | $$$$ | i | 0 | T 2 $$$$ [K ] = |---+---| + [phi ][K ][phi ] $$$$ hh | 0 | 0 | dh dd dh $$$$ | | | $$$$ + + $$$$ $$$$ + + $$$$ |m | | $$$$ | i | 0 | T 2 $$$$ [M ] = |---+---| + [phi ][M ][phi ] $$$$ hh | 0 | 0 | dh dd dh $$$$ | | | $$$$ + + $$$$ $$$$ + + $$$$ |b | | $$$$ | i | 0 | T 2 $$$$ [B ] = |---+---| + [phi ][B ][phi ] $$$$ hh | 0 | 0 | dh dd dh $$$$ | | | $$$$ + + $$$$ $$$$ where $$$$ $$$$ KDAMP = -1 (default) KDAMP = 1 $$$$ m = modal masses m = modal masses $$$$ i i $$$$ b = m 2 pi f g(f ) b = 0 $$$$ i i i i i $$$$ 2 2 2 $$$$ k = m 4 pi f k = (1+ig(f )) 4 pi f m $$$$ i i i i i i i $$$$ GKAM USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH, PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 40, 55- 59, 62 ****FILE 116 ****RFMT 204-217 $$$$ $$$$ APD processes the aerodynamic data cards from EDT. It adds the k points $$$$ and the SA points to USETD, making USETA. EQAERO, ECTA, BGPA, CSTMA, $$$$ GPLA, and SILA are updated to reflect the new elements. AERO and ACPT $$$$ reflect the aerodynamic parameters. SILGA is a special SIL for plotting. APD EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA, USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/ S,N,LUSETA/S,N,BOV $ ****CARD 1, 2, 4, 5, 9- 12, 16, 24, 29, 32, 34, 35, 37, 56 ****FILE 124 ****RFMT 204-217 $$$$ PARAM //*MPY*/PFILE/0/1 $ ****SBST 7 ****CARD 18, 20 ****FILE 150 ****RFMT 204-217 $$$$ PURGE PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125 ****RFMT 204-217 $$$$ $$$$ Go to label SKPPLT if no plot output is requested. COND SKPPLT,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125,150 ****RFMT 204-217 $$$$ PARAM //*MPY*/PLTFLG/0/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 150 ****RFMT 204-217 $$$$ $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125 ****RFMT 204-217 $$$$ $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETA // $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125 ****RFMT 204-217 $$$$ $$$$ Go to label SKPPLT if no undeformed aerodynamic or structural element $$$$ plots are requested. COND SKPPLT,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125,150 ****RFMT 204-217 $$$$ $$$$ PLOT generates all requested undeformed aerodynamic and structural $$$$ element plots. PLOT PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO, ,,,,,,/PLOTX2/ NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 150 ****RFMT 204-217 $$$$ $$$$ PRTMSG prints plotter data and engineering data for each undeformed $$$$ aerodynamic and structural plot element generated. PRTMSG PLOTX2 // $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 150 ****RFMT 204-217 $$$$ LABEL SKPPLT $ ****SBST 7 ****CARD 1, 2, 4, 5, 9- 12, 16, 18, 24, 32, 35, 37, 56 ****FILE 125,150 ****RFMT 204-217 $$$$ T $$$$ GI forms a transformation matrix [G ] which interpolates between $$$$ ka $$$$ aerodynamic (k) and structural (a) degrees of freedom. GI SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/ LUSET $ ****SBST 4 ****CARD 1- 4, 6, 8- 11, 13, 24, 32, 35, 37 ****FILE 126 ****RFMT 204-217 $$$$ PARAM //*ADD*/DESTRY/0/1/ $ ****SBST 6 ****CARD 24, 29, 35, 37 ****FILE 137 ****RFMT 187-204,207-217 $$$$ $$$$ AMG forms the aerodynamic matrix list [A ], the area matrix [S ], and $$$$ jj kj $$$$ 1 2 $$$$ the downwash coefficients [D ] and [D ]. $$$$ jk jk $$$$ AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $ ****SBST 6 ****CARD 24, 29, 34, 35, 37 ****FILE 127 ****RFMT 204-217 $$$$ $$$$ Go to label NODJE if there are no user-supplied downwash coefficients. COND NODJE,NODJE $ ****SBST 4 ****CARD 17, 26, 37, 56 ****FILE 128 ****RFMT 204-217 $$$$ $$$$ INPUTT2 provides the user-supplied downwash factors due to extra points $$$$ 1 2 $$$$ ([D ], [D ]). PARAM NODJE must be set to enter these matrices. The $$$$ je je $$$$ downwash w onbox j due to the motion of an extra point, u , is given by $$$$ j e $$$$ 1 2 $$$$ {w | = [D + ikD ]{u } $$$$ j je je e $$$$ INPUTT2 /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $ ****SBST 4 ****CARD 17, 26, 37, 56 ****FILE 128 ****RFMT 204-217 $$$$ LABEL NODJE $ ****SBST 4 ****CARD 17, 26, 37, 56 ****FILE 128 ****RFMT 204-217 $$$$ PARAM //*ADD*/XQHHL/1/0 $ ****SBST 4 ****CARD 1- 6, 8- 14, 17, 24, 26, 29, 32, 35, 37, 48, 56, 58, 59, 62 ****FILE 138 ****RFMT 204-217 $$$$ $$$$ AMP computes the aerodynamic matrix list related to the modal coordinates $$$$ as follows $$$$ $$$$ + + $$$$ |phi |phi | $$$$ | ai| ae| T T $$$$ [phi ] = |-----+-----| [G ] = [G ] [phi ] $$$$ dh |phi |phi | ki ka ai $$$$ | ei| ee| $$$$ + + $$$$ $$$$ 1 1 1 1 1 T $$$$ [D ] <= [D | D ] [D ] = [D ] [G ] $$$$ jh jf je ji jk ki $$$$ $$$$ 2 2 2 2 2 T $$$$ [D ] <= [D | D ] [D ] = [D ] [G ] $$$$ jh jf je ji jk ki $$$$ $$$$ For each (m,k) pair: $$$$ $$$$ 1 2 $$$$ [D ] = [D ] + ik[D ] $$$$ jh jh jh $$$$ $$$$ For each group: $$$$ $$$$ T -1 $$$$ [Q ] = [A ] [D ] $$$$ jh jj group jh group $$$$ $$$$ [Q ] = [S ][Q ] $$$$ kh kj jh $$$$ $$$$ T $$$$ [Q ] = [G ] [Q ] $$$$ ih ki kh $$$$ $$$$ + + $$$$ | Q | $$$$ | ih | $$$$ [Q ] <= | ----| $$$$ hh | Q | $$$$ | eh | $$$$ + + $$$$ AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL, QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $ ****SBST 4 ****CARD 1- 6, 8- 14, 17, 24, 26, 29, 32, 34, 35, 37, 48, 56, 58, 59 ****CARD 62 ****FILE 138 ****RFMT 204-217 $$$$ $$$$ FRLG forms the dynamic load vector {P } from the frequency response data $$$$ h $$$$ or transient data using a Fourier Transform. FRLG CASECC,USETD,DLT,FRL,GMD,GOD,DIT,PHIDH/PPF,PSF,PDF,FOL,PHF1/ *MODAL*/S,N,FREQY/S,N,APP $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 51, 52, 55, 56, 58, 59, 61, 62 ****FILE 139 ****RFMT 194,197,204-217 $$$$ PARAM //*NOT*/NOFRY/FREQY $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 40, 51, 52, 55, 56, 58, 59, 61, 62 ****FILE 129 ****RFMT 204-217 $$$$ PURGE PPF/NOFRY $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 40, 51, 52, 55, 56, 58, 59, 61, 62 ****FILE 129 ****RFMT 204-217 $$$$ $$$$ GUST forms the loading due to gusts and adds to the direct loads. GUST CASECC,DLT,FRL,DIT,QHJL,,,ACPT,CSTMA,PHF1/PHF/ S,N,NOGUST/BOV/C,Y,MACH/C,Y,Q $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55 ****CARD 56, 58, 59, 61, 62 ****FILE 130 ****RFMT 204-217 $$$$ $$$$ Equivalence {PHF1} to {PHF} if there are no gust loads. EQUIV PHF1,PHF/NOGUST $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55 ****CARD 56, 58, 59, 61, 62 ****FILE 130 ****RFMT 204-217 $$$$ $$$$ FRRD2 solves for the modal displacements using $$$$ $$$$ 2 $$$$ [-M omega + iB omega + K + qQ (k)]U = P (omega) $$$$ hh hh hh h h $$$$ FRRD2 KHH,BHH,MHH,QHHL,PHF,FOL/UHVF/BOV/C,Y,Q/C,Y,MACH $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55 ****CARD 56, 58, 59, 61, 62 ****FILE 131 ****RFMT 194,197,204-217 $$$$ $$$$ Equivalence {UHVF} to {UHVT} and FOL to TOL if it is a frequency response $$$$ formulation. EQUIV UHVF,UHVT/FREQY/FOL,TOL/FREQY $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55 ****CARD 56, 58, 59, 61, 62 ****FILE 132 ****RFMT 195,198,204-217 $$$$ $$$$ Go to label IFTSKP if it is a frequency response formulation. COND IFTSKP,FREQY $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56 ****CARD 58- 62 ****FILE 132 ****RFMT 195,198,204-217 $$$$ $$$$ IFT performs Inverse Fourier Transform of the displacements for transient $$$$ formulation. IFT UHVF,CASECC,TRL,FOL/UHVT,TOL/C,Y,IFTM=0 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56 ****CARD 58- 62 ****FILE 132 ****RFMT 195,198,204-217 $$$$ LABEL IFTSKP $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56 ****CARD 58- 62 ****FILE 132 ****RFMT 195,198,204-217 $$$$ $$$$ MODACC uses the data from OFREQ or OTIME data cards to select solutions $$$$ for data recovery. MODACC CASECC,TOL,UHVT,,,/TOL1,UHVT1,,,/APP $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56 ****CARD 58- 62 ****FILE 133 ****RFMT 204-217 $$$$ $$$$ ADR produces aerodynamic load output (PKF) for selected points in $$$$ frequency response only. ADR UHVT1,CASECC,QKHL,TOL1,SPLINE,SILA,USETA/PKF/BOV/ C,Y,MACH/APP $ ****SBST 4 ****CARD 21 ****FILE 134 $$$$ $$$$ VDR prepares solution set displacements (OUHV1), sorted by frequency or $$$$ time, for output. The solution set includes mode amplitudes and extra $$$$ points. VDR CASECC,EQDYN,USETD,UHVT1,TOL1,XYCDB,/OUHV1,/APP/*MODAL*/ 0/S,N,NOH/S,N,NOP/FMODE $ ****SBST 4 ****CARD 21, 22 ****FILE 135 $$$$ $$$$ Go to label NOH if the request is for output sorted by frequency or time $$$$ step. COND NOH, NOH $ ****SBST 4 ****CARD 21, 22 ****FILE 135,136 $$$$ $$$$ SDR3 prepares requested output sorted by solution set points. SDR3 OUHV1,,,,,/OUHV2,,,,, $ ****SBST 4 ****CARD 21, 22 ****FILE 135 $$$$ $$$$ OFP formats the table prepared by SDR3 for output sorted by solution set $$$$ point and places it on the system output file for printing. OFP OUHV2,,,,,//S,N,CARDNO $ ****SBST 4 ****CARD 21 ****FILE 135 $$$$ $$$$ Go to label NOH if no X-Y plots are requested. COND NOH,NOXYCDB $ ****SBST 4 ****CARD 22 ****FILE 136 $$$$ $$$$ XYTRAN prepares the input for X-Y plotting of solution set points versus $$$$ time or frequency. XYTRAN XYCDB,OUHV2,,,,/XYPTTA/APP/*HSET*/S,N,PFILE/S,N,CARDNO/ S,N,NOXYPL $ ****SBST 4 ****CARD 22 ****FILE 136 $$$$ $$$$ Go to label NOH if no plots are possible as requested. COND NOH,NOXYPL $ ****SBST 4 ****CARD 22 ****FILE 136 $$$$ $$$$ XYPLOT prepares the requested X-Y plots of solution set points versus $$$$ time or frequency. XYPLOT XYPTTA $ ****SBST 4 ****CARD 22 ****FILE 136 $$$$ LABEL NOH $ ****SBST 4 ****CARD 22 ****FILE 135,136 $$$$ PARAM //*AND*/PJUMP/NOP/JUMPPLOT $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 137,140-147 ****RFMT 204-217 $$$$ $$$$ Go to label FINIS if no output for physical points is requested. COND FINIS,PJUMP $ ****SBST 4 ****CARD 1- 6, 8- 14, 18- 20, 24, 26- 29, 32, 34, 37, 40, 49- 52 ****CARD 54- 62 ****FILE 137,140-147 ****RFMT 204-217 $$$$ $$$$ SDR2 recovers physical displacements (PHIP) and forces of constraint (QP) $$$$ for the real eigenvectors associated with the modes. SDR1 USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIP,,QP/1/*DYNAMICS* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 137 ****RFMT 204-217 $$$$ $$$$ Equivalence {phi } to {phi } if there are no extra points introduced $$$$ dh ah $$$$ for dynamic analysis. EQUIV PHIDH,PHIAH/NOUE $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ $$$$ Go to label NOUE1 if no extra points are present. COND NOUE1,NOUE $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ $$$$ VEC generates a d-size partitioning vector (EVEC) for the a and e sets $$$$ $$$$ {u } -> {u } + {u } $$$$ d a e $$$$ VEC USETD/EVEC/*D*/*A*/*E* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ $$$$ PARTN performs partition of {phi } using EVEC $$$$ dh $$$$ $$$$ phi $$$$ ah $$$$ {phi } => {-----} $$$$ dh 0 $$$$ PARTN PHIDH,,EVEC/PHIAH,,,/1 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ LABEL NOUE1 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ $$$$ MPYAD recovers the displacements at the aerodynamic points (k) $$$$ $$$$ T T $$$$ {phi } = [G ] {phi } $$$$ k ka ah $$$$ MPYAD GTKA,PHIAH,/PHIK/1/1/0/PREC $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 30, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ $$$$ UMERGE is used to expand {Q } to the ps set. $$$$ p $$$$ UMERGE USETA,PHIP,/PHIPS/*PS*/*P*/*SA* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ $$$$ UMERGE places {phi } in its proper place in the displacement vector $$$$ k $$$$ $$$$ phi $$$$ ps $$$$ {phi } <= {-----} $$$$ pa phi $$$$ k $$$$ UMERGE USETA,PHIPS,PHIK/PHIPA/*PA*/*PS*/*K* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 ****RFMT 204-217 $$$$ $$$$ UMERGE is used to expand {Q } to the pa set. $$$$ p $$$$ UMERGE USETA,QP,/QPA/*PA*/*P*/*PS* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62 ****FILE 140 $$$$ $$$$ SDR2 calculates element forces (MEF1) and stresses (MES1) and prepares $$$$ eigenvectors (MPHIPA1) and single-point forces of constraint (MQP1) for $$$$ output sorted by frequency or time. SDR2 CASECC,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,LAMA,QPA,PHIPA, EST,XYCDB,,/,MQP1,MPHIPA1,MES1,MEF1,,,/*MMREIG* $ ****SBST 4 ****CARD 19, 20 ****FILE 141 $$$$ $$$$ Go to label NOPF if it is not a frequency response formulation. COND NOPF,NOFRY $ ****SBST 4 ****CARD 19, 20 ****FILE 141,142 $$$$ $$$$ SDR2 prepares load vectors for output (OPP1) sorted by frequency. SDR2 CASECC,,,,EQDYN,,,,,PPF,,,,XYCDB,,/OPP1,,,,,,,/*FREQ* $ ****SBST 4 ****CARD 19, 20 ****FILE 141 $$$$ $$$$ SDR3 prepares requested load output sorted by point number. SDR3 OPP1,,,,,/QPP2,,,,,/ $ ****SBST 4 ****CARD 19, 20 ****FILE 142 $$$$ LABEL NOPF $ ****SBST 4 ****CARD 19, 20 ****FILE 141,142 $$$$ $$$$ SDR3 prepares requested modal quantities output sorted by point number. SDR3 MPHIPA1,MES1,MEF1,MQP1,,/MPHIPA2,MES2,MEF2,MQP2,, $ ****SBST 4 ****CARD 19, 20 ****FILE 147 $$$$ $$$$ DDRMM prepares a subset of the element forces (OEF2) and stresses (OES2), $$$$ displacement vectors (OUPV2), and single-point forces of constraint $$$$ (OQP2) for output sorted by point number or element number. DDRMM CASECC,UHVT1,TOL1,MPHIPA2,MQP2,MES2,MEF2,XYCDB,EST,MPT,DIT/ OUPV2,OQP2,OES2,OEF2, $ ****SBST 4 ****CARD 19, 20 ****FILE 143 $$$$ $$$$ OFP formats the requested physical output prepared by DDRMM and places it $$$$ on the system output file for printing. OFP OUPV2,,OES2,OEF2,OQP2,//S,N,CARDNO $ ****SBST 4 ****CARD 19, 20 ****FILE 143 $$$$ $$$$ SCAN examines the element stresses and forces calculated by DDRMM and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES2,OEF2/OESF2/C,N,*RF* $ ****CARD 19 ****FILE 143 $$$$ $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF2,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 143 $$$$ $$$$ Go to label P2 if no deformed aerodynamic or structural element plots are $$$$ requested. COND P2,JUMPPLOT $ ****SBST 4, 7 ****CARD 18 ****FILE 144 $$$$ $$$$ MPYAD generates vectors for use by the SDR2 module. MPYAD PHIPA,UHVT1,/UVT1/0 $ ****SBST 4, 7 ****CARD 18 ****FILE 148 $$$$ $$$$ SDR2 prepares vectors for deformed plotting. SDR2 CASECC,CSTMA,,,EQAERO,,,,BGPA,TOL,,UVT1,,,,/,,,,,PUVPAT,,/APP $ ****SBST 4, 7 ****CARD 18 ****FILE 144 $$$$ $$$$ PLOT prepares all requested deformed aerodynamic and structural element $$$$ plots. PLOT PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO,SILGA,,PUVPAT,,,,/ PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/PFILE $ ****SBST 4, 7 ****CARD 18 ****FILE 144 $$$$ $$$$ PRTMSG prints plotter data and engineering data for each deformed plot $$$$ generated. PRTMSG PLOTX3// $ ****SBST 4, 7 ****CARD 18 ****FILE 144 $$$$ LABEL P2 $ ****SBST 4, 7 ****CARD 18 ****FILE 144 $$$$ $$$$ Go to label FINIS and make normal exit if no X-Y plots are requested. COND FINIS,NOXYCDB $ ****SBST 4 ****CARD 20 ****FILE 145,146 $$$$ $$$$ XYTRAN prepares the input for physical point X-Y plots. XYTRAN XYCDB,,OQP2,OUPV2,OES2,OEF2/XYPLTT/APP/*PSET*/ S,N,PFILE/S,N,CARDNO/S,N,NOXYPL $ ****SBST 4 ****CARD 20 ****FILE 145 $$$$ $$$$ Go to label NOXYPLTT if no plots are possible as requested. COND NOXYPLTT,NOXYPL $ ****SBST 4 ****CARD 20 ****FILE 145 $$$$ $$$$ XYPLOT prepares the requested X-Y plots of displacements, forces, $$$$ stresses, loads, and single-point forces of constraint versus frequency $$$$ or time. XYPLOT XYPLTT $ ****SBST 4 ****CARD 20 ****FILE 145 $$$$ LABEL NOXYPLTT $ ****SBST 4 ****CARD 20 ****FILE 145 $$$$ $$$$ Go to label FINIS and make normal exit if it is a transient response $$$$ formulation. COND FINIS,NOFRY $ ****SBST 4 ****CARD 20 ****FILE 145 $$$$ $$$$ Go to label FINIS and make normal exit if no power spectral density $$$$ functions or autocorrelation functions are requested. COND FINIS,NOPSDL $ ****SBST 4 ****CARD 20, 54 ****FILE 146 $$$$ $$$$ RANDOM calculates power spectral density functions (PSDF) and $$$$ autocorrelation functions (AUTO) using the previously calculated $$$$ frequency response. RANDOM XYCDB,DIT,PSDL,OUPV2,,OQP2,OES2,OEF2,CASECC/PSDF,AUTO/ S,N,NORN $ ****SBST 4 ****CARD 20, 54 ****FILE 146 $$$$ $$$$ Go to label FINIS and make normal exit if no X-Y plots of RANDOM $$$$ calculations are requested. COND FINIS,NORN $ ****SBST 4 ****CARD 20, 54 ****FILE 146 $$$$ $$$$ XYTRAN prepares the input for requested X-Y plots of the RANDOM output. XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO/S,N,NOXYPL $ ****SBST 4 ****CARD 20, 54 ****FILE 146 $$$$ $$$$ Go to label FINIS and make normal exit if no plots are possible as $$$$ requested. COND FINIS,NOXYPL $ ****SBST 4 ****CARD 20, 54 ****FILE 146 $$$$ $$$$ XYPLOT prepares the requested X-Y plots of autocorrelation functions and $$$$ power spectral density functions. XYPLOT XYPLTR $ ****SBST 4 ****CARD 20, 54 ****FILE 146 $$$$ $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****FILE 146 ****RFMT 187-204,207-217 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 40, 50, 52, 53, 56, 58 ****FILE 111 ****RFMT 187-204,207-217 $$$$ $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*AERORESP* $ ****CARD 1, 9- 12, 40, 50, 52, 53, 56, 58 ****FILE 111 ****RFMT 187-204,207-217 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 6, 8, 13, 14, 24 ****FILE 113 ****RFMT 187-204,207-217 $$$$ $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*AERORESP* $ ****CARD 1- 3, 5, 6, 8, 13, 14, 24 ****FILE 113 ****RFMT 187-204,207-217 $$$$ LABEL ERROR4 $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 187-204,207-217 $$$$ $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*AERORESP* $ ****SBST 4 ****CARD 1- 6, 8- 14, 24, 58, 59 ****FILE 112 ****RFMT 187-204,207-217 $$$$ LABEL ERROR3 $ ****CARD 1, 2, 4- 6, 16, 24 ****FILE 97 ****RFMT 187-204,207-217 $$$$ $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*AERORESP* $ ****CARD 1, 2, 4- 6, 16, 24 ****FILE 97 ****RFMT 187-204,207-217 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****FILE 137,140-147 ****RFMT 187-204,207-217 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****FILE 137,140-147 ****RFMT 187-204,207-217 $$$$ END $ ****CARD 1- 6, 8- 26, 29, 32, 34- 40, 49- 62 ****RFMT 187-204,207-217 $$$$ $*CARD BITS 1 AXIC AXIF 1 CELAS1 CELAS2 CELAS3 CELAS4 1 CMASS1 CMASS2 CMASS3 CMASS4 1 GRDSET GRID GRIDB 1 POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 ADUM9 BAROR 2 CAXIF2 CAXIF3 CAXIF4 CBAR CBEAM CCONEAX CDUM1 2 CDUM2 2 CDUM3 CDUM4 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 2 CELBOW CFLUID2 CFLUID3 CFLUID4 CHEXA1 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CNGRNT CONROD CQUAD4 CTRIA3 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 2 CROD CSHEAR CSLOT3 CSLOT4 CTETRA CTORDRG CTRAPRG 2 CTRAPAX CTRIAAX CTRIA1 CTRIA2 CTRIARG CTRIM6 CTRMEM 2 CTRBSC CTRPLT CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 3 PQDMEM PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 3 PSHEAR PTORDRG PTRAPAX PTRBSC PTRIA1 3 PTRIA2 PTRIAAX PTRIM6 PTRMEM PTRPLT PTUBE PTWIST 3 PSHELL PCOMP PCOMP1 PCOMP2 4 GENEL 5 CONM1 CONM2 6 PELAS 7 PMASS 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 8 MAT1 MAT2 MAT3 MAT9 MATT1 MATT2 MATT3 8 MAT8 TEMPMT$ TEMPMX$ 9 CRIGD1 CRIGD2 CRIGD3 CRIGDR 9 CRROD CRBAR CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE 9 MPC MPCADD MPC$ MPCAX 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 11 OMIT OMIT1 OMITAX 11 SUPAX SUPORT 13 TEMP TEMPAX TEMPD 13 TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 COUPMASS CPBAR 14 CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRIA1 CPTRIA2 CPTRPLT 14 CPTRBSC CPTUBE 14 WTMASS 15 GRDPNT 16 PLOTEL 17 P1 P2 P3 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 AXYOUT$ 23 ASETOUT 24 CORD1C CORD1R CORD1S CORD2C CORD2R CORD2S 25 AUTOSPC 26 NODJE 27 IFTM 28 MACH Q 29 PAERO1 PAERO2 PAERO3 PAERO4 PAERO5 32 SET1 SET2 32 SPLINE1 SPLINE2 SPLINE3 34 MKAERO1 MKAERO2 35 AEFACT 37 AERO 37 CAERO1 CAERO2 CAERO3 CAERO4 CAERO5 40 TF 48 GUSTAERO 49 GUST GUST$ 50 TSTEP 51 TABLED1 TABLED2 TABLED3 TABLED4 52 DAREA DELAY DLOAD DPHASE 52 FREQ FREQ1 FREQ2 52 RLOAD1 RLOAD2 52 TLOAD1 TLOAD2 53 RANDPS RANDT1 54 RANDOM$ 54 TABRND1 TABRNDG 55 SDAMP$ 55 TABDMP1 56 EPOINT SEQEP 57 K2PP$ M2PP$ B2PP$ TF$ 57 DMIG 58 EIGR 59 METHOD$ 60 TSTEP$ 61 DLOAD$ FREQ$ 62 HFREQ LFREQ LMODES KDAMP $$$$ $*FILE BITS 94 GPL EQEXIN GPDT CSTM BGPDT SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 RG USET ASET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KAA KOO LOO 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 GPLD SILD USETD TFPOOL EED EQDYN DLT 111 PSDL FRL TRL 112 LAMA PHIA MI OEIGS 113 KELM KDICT MELM MDICT 114 K2PP M2PP B2PP 115 GMD GOD K2DD M2DD B2DD 116 MHH BHH KHH PHIDH 123 MAA 124 EQAERO ECTA BGPA SILA USETA SPLINE AERO 124 ACPT FLIST CSTMA GPLA SILGA 125 PLTSETA PLTPARA GPSETSA ELSETSA 126 GTKA 127 AJJL D1JK D2JK SKJ 128 D1JE D2JE 129 FOL PDF PHF1 PSF PPF 130 PHF 131 UHVF 132 UHVT TOL 133 TOL1 UHVT1 134 PKF 135 OUHV1 OUHV2 136 XYPTTA 137 PHIP QP 138 QHHL QKHL QHJL 139 K2DD M2DD B2DD 140 PHIAH PHIK PHIPA PHIPS 141 MQP1 MPHIPA1 MES1 MEF1 OPP1 142 QPP2 143 OUPV2 OQP2 OES2 OEF2 OESF2 144 PLOTX3 145 XYPLTT 146 PSDF AUTO 147 QPP2 148 UVT1 150 PLOTX2 154 OGPWG $* =PAGE= AERO9 APR.93 $$$$$$$$ BEGIN AERO 09 - BLADE CYCLIC MODAL FLUTTER ANALYSIS - APR. 1993 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-209 $$$$ FILE PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/CLAMAL= APPEND/OVG=APPEND/QHHL=APPEND $ ****CARD 1- 14, 19, 21- 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 15, 19- 21, 24, 41, 43, 58, 59 ****FILE 146 $$$$ $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N, NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ $$$$ Go to label ERROR5 and print Error Message No. 5 if no grid points are $$$$ defined. COND ERROR5,NOGPDT $ ****CARD 1 ****FILE 94 ****RFMT 187-204,207-209 $$$$ $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ $$$$ GP3 generates Static Loads Table and Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 7, 13 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 40, 55- 62 ****FILE 97 $$$$ $$$$ Go to label ERROR5 and print Error Message No. 5 if no structural $$$$ elements have been defined. COND ERROR5,NOSIMP $ ****CARD 1- 7, 13, 14 ****FILE 97 ****RFMT 187-204,207-209 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8, 13 ****FILE 98 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 7, 8, 13, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PARAM //*NOP*/V,Y,KGGIN=-1 $ ****CARD 43 $$$$ $$$$ Go to label JMPKGGIN if no stiffness matrix is supplied by the user on an $$$$ external file. COND JMPKGGIN,KGGIN $ ****CARD 43 ****FILE 98,109 $$$$ $$$$ Set parameter NOKGGX = -1 so that the stiffness matrix will not be $$$$ generated by EMG. PARAM //*ADD*/NOKGGX/-1/0 $ ****CARD 43 ****FILE 98,109 $$$$ $$$$ INPUTT1 reads the user-supplied stiffness matrix [KTOTAL] from an $$$$ external file (GINO file INPT). INPUTT1 /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $ ****CARD 43 ****FILE 109 $$$$ x $$$$ Equivalence [K ] to [KTOTAL]. $$$$ gg $$$$ EQUIV KTOTAL,KGGX $ ****CARD 43 ****FILE 98 $$$$ LABEL JMPKGGIN $ ****CARD 43 ****FILE 98,109 $$$$ $$$$ EMG generates structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5- 8, 13, 14, 24, 43 ****FILE 122 ****RFMT 187,190-192 $$$$ $$$$ Go to label JMPKGGX if no stiffness matrix is to be assembled. COND JMPKGGX,NOKGGX $ ****CARD 1- 3, 6, 8, 13, 43 ****FILE 98 ****RFMT 187,190-192 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8, 13, 43 ****FILE 98 ****RFMT 187,190-192 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8, 13, 43 ****FILE 122 ****RFMT 187,190-192 $$$$ LABEL JMPKGGX $ ****CARD 1- 3, 6, 8, 13, 43 ****FILE 98 ****RFMT 187,190-192 $$$$ $$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to $$$$ be assembled. COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 7, 8, 13, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 7, 8, 13, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 7, 8, 13, 14, 24 ****FILE 122 ****RFMT 187,190-192 $$$$ $$$$ Go to label LGPWG if no weight and balance information is requested. COND LGPWG,GRDPNT $ ****CARD 1- 3, 5, 7, 8, 13- 15, 24 ****FILE 107 $$$$ $$$$ GPWG generates weight and balance information. GPWG BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****CARD 1- 3, 5, 7, 8, 13- 15, 24 ****FILE 107 $$$$ $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****CARD 1- 3, 5, 7, 8, 13- 15, 24 $$$$ LABEL LGPWG $ ****CARD 1- 3, 5, 7, 8, 13- 15, 24 ****FILE 107 $$$$ x $$$$ Equivalence [K ] to [K ] if there are no general elements. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8, 13, 43 ****FILE 100 $$$$ $$$$ Go to label LBL11 if there are no general elements. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8, 13, 43 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8, 13, 43 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8, 13, 43 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8, 13, 43 ****FILE 102 $$$$ $$$$ GP4 generates flags defining members of various displacement sets $$$$ (USET), and forms multipoint constraint equations [R ] {u } = 0. $$$$ g g $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1, 4, 6, 8, 13, 20- 22, 43 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1, 4, 6, 8, 13, 20- 22, 43 ****FILE 101 $$$$ PARAM //*NOT*/REACDATA/REACT $ ****CARD 1, 20- 22, 43 ****FILE 101 $$$$ $$$$ Go to label ERROR6 and print Error Message No. 6 if free-body supports $$$$ are present. COND ERROR6,REACDATA $ ****CARD 1, 20- 22, 43 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $ ****CARD 1, 20- 22, 43 ****FILE 103,105,113,115,120 $$$$ $$$$ GPCYC prepares segment boundary table. GPCYC GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $ ****CARD 1, 9- 11, 41 ****FILE 140 $$$$ $$$$ Go to label ERROR7 and print Error Message No. 7 if the CYJOIN data is $$$$ inconsistent. COND ERROR7,NOGO $ ****CARD 1, 9- 11, 41 ****FILE 140 $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 9, 14, 24, 43 ****FILE 104 $$$$ $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 9, 13, 14, 24, 43 ****FILE 103,104 $$$$ $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9, 13, 43 ****FILE 103 $$$$ $$$$ MCE2 partitions stiffness and mass matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |M |M | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ gg |K |K | gg |M |M | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ and performs matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nn m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [G ][M ] + [M ][G ] + [G ][M ][G ] $$$$ nn nn m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 9, 13, 14, 24, 43 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 9, 13, 14, 24, 43 ****FILE 103,104 $$$$ $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no single-point $$$$ nn ff nn ff $$$$ constraints exist. EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 10, 13, 14, 24, 43 ****FILE 105 $$$$ $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 10, 13, 14, 24, 43 ****FILE 105 $$$$ $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn |K |K | nn |M |M | $$$$ | sf| ss| | sf| ss| $$$$ + + + + $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 10, 13, 14, 24, 43 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 10, 13, 14, 24, 43 ****FILE 105 $$$$ $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no omitted coordinates $$$$ ff aa ff aa $$$$ exist. EQUIV KFF,KAA/OMIT/MFF,MAA/OMIT $ ****CARD 1- 11, 13, 14, 24, 43 ****FILE 106,123 $$$$ $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 11, 13, 14, 24, 43 ****FILE 106,113,123 $$$$ $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11, 13, 43 ****FILE 106,113 $$$$ $$$$ SMP2 partitions constrained mass matrix $$$$ $$$$ + + $$$$ |_ | $$$$ |M |M | $$$$ | aa| ao| $$$$ [M ] = |---+---| $$$$ ff | | | $$$$ |M |M | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [M ][G ] + [G ][M ][G ]+ [G ][M ] $$$$ aa aa oa o o oo o o oa $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 11, 13, 14, 24 ****FILE 123 $$$$ LABEL LBL5 $ ****CARD 1- 11, 13, 14, 24, 43 ****FILE 106,113,123 $$$$ $$$$ DPD generates flags defining members of various displacement sets used in $$$$ dynamic analysis (USETD), and tables relating the internal and external $$$$ grid point numbers (GPLD), including extra points introduced for dynamic $$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL) and $$$$ Eigenvalue Extraction Data (EED). DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $ ****CARD 1, 9- 12, 40, 56, 58, 60 ****FILE 111 $$$$ $$$$ Go to label ERROR2 and print Error Message No. 2 if there is no $$$$ Eigenvalue Extraction Data. COND ERROR2,NOEED $ ****CARD 1, 9- 12, 40, 56, 58, 60 ****FILE 111 ****RFMT 187-204,207-209 $$$$ d d $$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points $$$$ o o m m $$$$ introduced for dynamic analysis. EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 7, 9- 12, 14, 22- 24, 56, 58 ****FILE 115 $$$$ $$$$ CYCT2 transforms matrices from symmetric components to solution set. CYCT2 CYCD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS=-1/V,Y, KINDEX=-1/V,Y,CYCSEQ=-1/1/S,N,NOGO $ ****CARD 1- 11, 41, 43 ****FILE 141 $$$$ $$$$ Go to label ERROR7 and print Error Message No. 7 if a CYCT2 error was $$$$ found. COND ERROR7,NOGO $ ****CARD 1- 11, 41, 43 ****FILE 141 $$$$ $$$$ READ extracts real eigenvalues and eigenvectors from the equation $$$$ $$$$ [K - lambda M ]{phi } = 0 $$$$ kk kk k $$$$ $$$$ and normalizes eigenvectors according to one of the following user $$$$ requests: $$$$ 1. Unit value of a selected component. $$$$ 2. Unit value of the largest component. $$$$ 3. Unit value of the generalized mass. READ KKK,MKK,,,EED,,CASECC/LAMK,PHIK, ,OEIGS/*MODES*/S,N, NEIGV $ ****CARD 1- 14, 24, 41, 43, 58, 59 ****FILE 142 $$$$ $$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) and $$$$ the eigenvalues (LAMK) prepared by READ and places them on the system $$$$ output file for printing. OFP OEIGS,LAMK,,,,//S,N,CARDNO $ ****CARD 1- 14, 24, 41, 43, 58, 59 $$$$ $$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were $$$$ found. COND ERROR4,NEIGV $ ****CARD 1- 14, 24, 41, 43, 58, 59 ****FILE 142 ****RFMT 187-204,207-209 $$$$ $$$$ CYCT2 finds symmetric components of eigenvectors from solution set $$$$ eigenvectors. CYCT2 CYCD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y, KINDEX/V,Y,CYCSEQ/1/S,N,NOGO $ ****CARD 1- 11, 24, 41, 43, 58, 59 ****FILE 112 $$$$ $$$$ Go to label ERROR7 and print Error Message No. 7 if a CYCT2 error was $$$$ found. COND ERROR7,NOGO $ ****CARD 1- 11, 24, 41, 43, 58, 59 ****FILE 112 $$$$ $$$$ SDR1 recovers dependent components of eigenvectors $$$$ $$$$ phi $$$$ a $$$$ {phi } = [G ]{phi } {----} = {phi } $$$$ o o a phi f $$$$ o $$$$ $$$$ phi $$$$ f $$$$ {----} = {phi } {phi } = [G ]{phi } $$$$ phi n m m n $$$$ s $$$$ $$$$ phi $$$$ n $$$$ {----} = {phi } $$$$ phi g $$$$ m $$$$ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,/1/*REIG* $ ****CARD 1- 11, 24, 41, 43, 58, 59 ****FILE 143 $$$$ $$$$ SDR2 prepares the eigenvectors (OPHIG) for output and PPHIG for deformed $$$$ plotting. SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,,PHIG,EST,,,/ ,,OPHIG,,,PPHIG,,/*REIG* $ ****CARD 18, 19 ****FILE 108 $$$$ $$$$ OFP formats the table prepared by SDR2 and places it on the system output $$$$ file for printing. OFP OPHIG,,,,,//S,N,CARDNO $ ****CARD 19 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 110,121 $$$$ PURGE PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 110 $$$$ $$$$ Go to label PZZ if there are no structure plot requests. COND PZZ,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 110,121 $$$$ $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/ S,N,NSILZ/S,N,JUMPZ=-1 $ ****SBST 7 ****CARD 18 ****FILE 110 $$$$ $$$$ PRTMSG prints messages associated with the structure plotter. PRTMSG PLTSETZ// $ ****SBST 7 ****CARD 18 $$$$ $$$$ Go to label PZZ if no deformed (modal) structure plots are requested. COND PZZ,JUMPZ $ ****SBST 7 ****CARD 18 ****FILE 121 $$$$ $$$$ PLOT generates all requested deformed (modal) structure plots. PLOT PLTPARZ,GPSETSZ,ELSETSZ,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,,,,/ PLOTZ/NSILZ/LUSET/JUMPZ/PLTFLGZ=-1/S,N,PFILEZ=0 $ ****SBST 7 ****CARD 18 ****FILE 121 $$$$ $$$$ PRTMSG prints plotter data and engineering data for each deformed (modal) $$$$ structure plot generated. PRTMSG PLOTZ// $ ****SBST 7 ****CARD 18 $$$$ LABEL PZZ $ ****SBST 7 ****CARD 18 ****FILE 110,121 $$$$ $$$$ APDR processes the aerodynamic data cards from EDT. AERO and ACPT reflect $$$$ the aerodynamic parameters. PVECT is a partitioning vector and GTKA is a $$$$ transformation matrix between aerodynamic (K) and structural (a) degrees $$$$ of freedom. APDB EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,FLIST,GTKA,PVECT/ S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/V,Y,MTYPE/ NEIGV/V,Y,KINDEX $ $$$$ ****CARD 1, 2, 9- 12, 34- 37, 41- 43 ****FILE 124,126,144 $$$$ $$$$ PARTN partitions the eigenvector into all sine or all cosine components. PARTN PHIA,PVECT,/PHIAX,,,/1 $ ****CARD 1, 2, 9- 12, 41, 43, 58, 59 ****FILE 145 $$$$ $$$$ SMPYAD calculates the modal mass matrix $$$$ $$$$ x T x $$$$ [M] = [phi ] [M ] [phi ] $$$$ a aa a $$$$ SMPYAD PHIAX,MAA,PHIAX,,,/MI/3/1/1/0/1 $ ****CARD 1, 2, 9- 12, 41, 43, 58, 59 ****FILE 136 $$$$ 2 2 2 $$$$ MTRXIN selects the direct input matrices [K ], [M ], and [B ]. $$$$ pp pp pp $$$$ MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ ****CARD 1, 22, 23, 40, 56, 57 ****FILE 114 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1, 2, 4, 22, 23, 40, 56, 57 ****FILE 114,139 $$$$ 2 2 2 2 2 2 $$$$ Equivalence [M ] to [M ], [B ] to [B ], and [K ] to [K ] if no $$$$ pp dd pp dd pp dd $$$$ constraints are applied. EQUIV M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $ ****CARD 1, 2, 4, 9, 11, 22, 23, 40, 56, 57 ****FILE 114,139 $$$$ 2 2 $$$$ GKAD applies constraints to direct input matrices [K ], [M ], and $$$$ pp pp $$$$ 2 2 2 2 $$$$ [B ], forming [K ], [M ], and [B ], and forms [G ] and [G ]. $$$$ pp dd dd dd md od $$$$ GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/ *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/ NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/-1/-1/-1 $ ****CARD 1- 4, 6, 8- 11, 13, 14, 22, 23, 40- 43, 56, 57 ****FILE 115,139 $$$$ $$$$ GKAM selects eigenvectors to form [phi ] and assembles stiffness, mass, $$$$ dh $$$$ and damping matrices in modal coordinates: $$$$ $$$$ + + $$$$ |k | | $$$$ | i | 0 | T 2 $$$$ [K ] = |---+---| + [phi ][K ][phi ] $$$$ hh | 0 | 0 | dh dd dh $$$$ | | | $$$$ + + $$$$ $$$$ + + $$$$ |m | | $$$$ | i | 0 | T 2 $$$$ [M ] = |---+---| + [phi ][M ][phi ] $$$$ hh | 0 | 0 | dh dd dh $$$$ | | | $$$$ + + $$$$ $$$$ + + $$$$ |b | | $$$$ | i | 0 | T 2 $$$$ [B ] = |---+---| + [phi ][B ][phi ] $$$$ hh | 0 | 0 | dh dd dh $$$$ | | | $$$$ + + $$$$ $$$$ where $$$$ $$$$ KDAMP = -1 (default) KDAMP = 1 $$$$ m = modal masses m = modal masses $$$$ i i $$$$ b = m 2 pi f g(f ) b = 0 $$$$ i i i i i $$$$ 2 2 2 $$$$ k = m 4 pi f k = (1+ig(f )) 4 pi f m $$$$ i i i i i i i $$$$ GKAM USETD,PHIAX,MI,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH, PHIDH/NOUE/C,Y,LMODES=999999/C,Y,LFREQ=0.0/C,Y,HFREQ=0.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y, KDAMP=-1 $ ****CARD 1- 14, 22- 24, 40- 43, 55- 59, 62 ****FILE 116 ****RFMT 187,196-198 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ $$$$ Go to label P2 if no plot output is requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 125,134 $$$$ $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQDYN,ECT,/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL1/S,N, JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX//$ ****SBST 7 ****CARD 18 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ $$$$ Go to label P2 if no undeformed aerodynamic or structural element plots $$$$ are requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ $$$$ PLOT generates all requested undeformed aerodynamic and structural $$$$ element plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQDYN,,,,,,,/PLOTX1/NSIL1/ LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ $$$$ PRTMSG prints plotter data and engineering data for each undeformed $$$$ aerodynamic and structural element plot generated. PRTMSG PLOTX1//$ ****SBST 7 ****CARD 18 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 125,134 $$$$ PARAM //*ADD*/DESTRY/0/1 $ ****CARD 1, 29, 35, 37 ****FILE 127 ****RFMT 187-204,207-209 $$$$ $$$$ AMG forms the aerodynamic matrix list [A ], the area matrix [S ], and $$$$ jj kj $$$$ 1 2 $$$$ the downwash coefficients [D ] and [D ]. $$$$ jk jk $$$$ AMG AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $ ****CARD 1, 29, 34, 35, 37, 42, 43 ****FILE 127 $$$$ PURGE D1JE,D2JE/NODJE $ ****CARD 26, 37 ****FILE 128 $$$$ $$$$ Go to label NODJE if there are no user-supplied downwash coefficients. COND NODJE,NODJE $ ****CARD 26, 37 ****FILE 128 $$$$ $$$$ INPUTT2 provides the user-supplied downwash factors due to extra points $$$$ 1 2 $$$$ ([D ], [D ]). PARAM NODJE must be set to enter these matrices. The $$$$ je je $$$$ downwash w onbox j due to the motion of an extra point, u , is given by $$$$ j e $$$$ 1 2 $$$$ {w | = [D + ikD ]{u } $$$$ j je je e $$$$ INPUTT2 /D1JE,D2JE,,,/C,Y,POSITION=-1/C,Y,UNITNUM=11/C,Y,USRLABEL= TAPEID $ ****CARD 26, 37 ****FILE 128 $$$$ LABEL NODJE $ ****CARD 26, 37 ****FILE 128 $$$$ PARAM //*ADD*/XQHHL/1/0 $ ****CARD 1- 13, 24, 26, 29, 32, 34, 35, 37, 41- 43, 56, 58, 59, 62 ****FILE 138 $$$$ $$$$ AMP computes the aerodynamic matrix list related to the modal coordinates $$$$ as follows $$$$ $$$$ + + $$$$ |phi |phi | $$$$ | ai| ae| T T $$$$ [phi ] = |-----+-----| [G ] = [G ] [phi ] $$$$ dh |phi |phi | ki ka ai $$$$ | ei| ee| $$$$ + + $$$$ $$$$ 1 1 1 1 1 T $$$$ [D ] <= [D | D ] [D ] = [D ] [G ] $$$$ jh jf je ji jk ki $$$$ $$$$ 2 2 2 2 2 T $$$$ [D ] <= [D | D ] [D ] = [D ] [G ] $$$$ jh jf je ji jk ki $$$$ $$$$ For each (m,k) pair: $$$$ $$$$ 1 2 $$$$ [D ] = [D ] + ik[D ] $$$$ jh jh jh $$$$ $$$$ For each group: $$$$ $$$$ T -1 $$$$ [Q ] = [A ] [D ] $$$$ jh jj group jh group $$$$ $$$$ [Q ] = [S ][Q ] $$$$ kh kj jh $$$$ $$$$ T $$$$ [Q ] = [G ] [Q ] $$$$ ih ki kh $$$$ $$$$ + + $$$$ | Q | $$$$ | ih | $$$$ [Q ] <= | ----| $$$$ hh | Q | $$$$ | eh | $$$$ + + $$$$ AMP AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,,/ NOUE/S,N,XQHHL $ ****CARD 1- 13, 24, 26, 29, 32, 34, 35, 37, 41- 43, 56, 58, 59, 62 ****FILE 138 $$$$ PARAM //*MPY*/NOP/1/1 $ ****CARD 21 $$$$ PARAM //*MPY*/NOH/0/1 $ ****CARD 21 ****RFMT 187-204,207-209 $$$$ $$$$ PARAM initializes the flutter loop counter (FLOOP) to zero. PARAM //*MPY*/FLOOP/V,Y,NODJE=-1/0 $ ****CARD 1- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-209 $$$$ $$$$ Beginning of loop for flutter. LABEL LOOPTOP $ ****CARD 1- 13, 24, 26, 29, 32, 34- 40, 55- 62 ****RFMT 187-204,207-209 $$$$ x $$$$ FA1 computes the total aerodynamic mass matrix [M ], the total $$$$ hh $$$$ x $$$$ aerodynamic stiffness matrix [K ], and the total aerodynamic damping $$$$ hh $$$$ x $$$$ matrix [B ], as well as a looping table FSAVE. For the K method $$$$ hh $$$$ $$$$ x 2 2 ) Q $$$$ M = (k /b )M + (p/2 hh $$$$ hh hh $$$$ $$$$ x $$$$ K = K $$$$ hh hh $$$$ $$$$ x $$$$ B = 0 $$$$ hh $$$$ FA1 KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/S,N,FLOOP/ S,N,TSTART/S,N,NOCEAD $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 129 $$$$ $$$$ Set up the equivalences for the KE and PK methods. EQUIV KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/ KXHH,PHIHL/NOCEAD/BXHH,CLAMAL/NOCEAD/ CASECC,CASEYY/NOCEAD $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 117,130 $$$$ $$$$ Go to label VDR for the KE and PK methods. COND VDR,NOCEAD $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 117,119,130 $$$$ $$$$ CEAD extracts complex eigenvalues and eigenvectors from the equation $$$$ $$$$ x 2 x x $$$$ [M p + B p + K ]{phi } = 0 $$$$ hh hh hh h $$$$ $$$$ and normalizes eigenvectors to unit magnitude of the largest component. CEAD KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 117 $$$$ $$$$ Go to label LBLZAP if no complex eigenvalues were found. COND LBLZAP,EIGVS $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 119,130 $$$$ LABEL VDR $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 117 $$$$ $$$$ VDR prepares eigenvectors (OPHIH) for output, using only the extra points $$$$ introduced for dynamic analysis and modal coordinates. VDR CASECC,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/ 123/S,N,NOH/S,N,NOP/FMODE $ ****CARD 21 ****FILE 119 $$$$ $$$$ Go to label LBL16 if there is no output request for the extra points $$$$ introduced for dynamic analysis or modal coordinates. COND LBL16,NOH $ ****CARD 21 ****FILE 119 $$$$ $$$$ OFP formats the table of eigenvectors for extra points introduced for $$$$ dynamic analysis and modal coordinates prepared by VDR and places it on $$$$ the system output file for printing. OFP OPHIH,,,,,//S,N,CARDNO $ ****CARD 21 $$$$ LABEL LBL16 $ ****CARD 21 ****FILE 119 $$$$ $$$$ FA2 appends eigenvectors to PHIHL, eigenvalues to CLAMAL, Case Control to $$$$ CASEYY, and V-g plot data to OVG. FA2 PHIH,CLAMA,FSAVE/PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/C,Y,VREF= 1.0/C,Y,PRINT=YESB $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 130 $$$$ $$$$ Go to label CONTINUE if there is insufficient time for another flutter $$$$ loop. COND CONTINUE,TSTART $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 130 ****RFMT 187-204,207-209 $$$$ LABEL LBLZAP $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 119,130 ****RFMT 187-204,207-209 $$$$ $$$$ Go to label CONTINUE if the flutter loop is complete. COND CONTINUE,FLOOP $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 129 ****RFMT 187-204,207-209 $$$$ $$$$ Go to label LOOPTOP for additional aerodynamic configuration triplet $$$$ values. REPT LOOPTOP,100 $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ $$$$ Go to label ERROR3 and print Error Message No. 3 if the number of flutter $$$$ loops exceeds 100. JUMP ERROR3 $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL CONTINUE $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ PARAML XYCDB//*PRES*////NOXYCDB $ ****SBST 7 ****CARD 20 ****FILE 146 $$$$ $$$$ Go to label NOXYOUT if there are no X-Y plot requests. COND NOXYOUT,NOXYCDB $ ****SBST 7 ****CARD 20 ****FILE 146 $$$$ $$$$ XYTRAN prepares the input for requested X-Y plots. XYTRAN XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 146 $$$$ $$$$ XYPLOT prepares the requested X-Y plots of displacements, velocities, $$$$ accelerations, forces, stresses, loads, and single-point forces of $$$$ constraint versus time. XYPLOT XYPLTCE//$ ****SBST 7 ****CARD 20 ****FILE 146 $$$$ LABEL NOXYOUT $ ****SBST 7 ****CARD 20 ****FILE 146 $$$$ PARAM //*AND*/PJUMP/NOP=-1/JUMPPLOT $ ****CARD 1- 13, 21, 24, 26, 29, 32, 34- 43, 55- 62 $$$$ $$$$ Go to label FINIS and make normal exit if there are no output requests $$$$ involving dependent degrees of freedom or forces and stresses. COND FINIS,PJUMP $ ****CARD 1- 13, 21, 24, 26, 29, 32, 34- 43, 55- 62 $$$$ $$$$ MODACC selects a list of eigenvalues and eigenvectors whose imaginary $$$$ parts (velocity in input units) are close to a user input list. MODACC CASEYY,CLAMAL,PHIHL,CASECC,,/CLAMAL1,CPHIH1,CASEZZ,,/ *CEIGN* $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 131,133 $$$$ $$$$ DDR1 transforms the complex eigenvectors from modal to physical $$$$ coordinates $$$$ $$$$ c $$$$ {phi } = {phi }{phi } $$$$ d dh h $$$$ DDR1 CPHIH1,PHIDH/CPHID $ ****CARD 1- 13, 24, 26, 29, 32, 34, 36- 43, 55- 62 ****FILE 118 $$$$ c c $$$$ Equivalence {phi } to {phi } if no constraints are applied. $$$$ d p $$$$ EQUIV CPHID,CPHIP/NOA $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 120 $$$$ $$$$ Go to label LBL14 if no constraints are applied. COND LBL14,NOA $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 120 $$$$ $$$$ SDR1 recovers dependent components of eigenvectors $$$$ $$$$ phi $$$$ c d c d c c $$$$ {phi } = [G ]{phi } {----} = {phi + phi } $$$$ o o d phi f e $$$$ o $$$$ c c $$$$ phi + phi $$$$ f e c c c d c c $$$$ {-----------} = {phi + phi } {phi } = [G ]{phi + phi } $$$$ c n e m m n e $$$$ phi $$$$ s $$$$ $$$$ c c $$$$ phi + phi $$$$ f e c $$$$ {-----------} = {Q } $$$$ c p $$$$ phi $$$$ m $$$$ T $$$$ and recovers single-point forces of constraint {q } = [K ] {phi }. $$$$ s fs f $$$$ 0 c $$$$ --- = {Q }. $$$$ q p $$$$ s $$$$ SDR1 USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 120 $$$$ LABEL LBL14 $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 120 $$$$ c c $$$$ Equivalence {phi } to {phi } if there are no extra points introduced for $$$$ d a $$$$ dynamic analysis. EQUIV CPHID,CPHIA/NOUE $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 132 $$$$ $$$$ Go to label LBLNOE if there are no extra points. COND LBLNOE,NOUE $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 132,135 $$$$ $$$$ VEC generates a d-size partitioning vector (RP) for the a and e sets $$$$ $$$$ {u } -> {u } + {u } $$$$ d s e $$$$ VEC USETD/RP/*D*/*A*/*E* $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 135 $$$$ c $$$$ PARTN performs partition of {phi } using RP $$$$ d $$$$ c $$$$ phi $$$$ c a $$$$ {phi } => {----} $$$$ d c $$$$ phi $$$$ e $$$$ PARTN CPHID,,RP/CPHIA,,,/1/3 $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 132 $$$$ LABEL LBLNOE $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 132,135 $$$$ $$$$ SDR2 calculates element forces (OEFC1) and stresses (OESC1) and prepares $$$$ eigenvectors (OCPHIP) and single-point forces of constraint (OQPC1) for $$$$ output and PCPHIP for deformed plotting. SDR2 CASEZZ,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDT,CLAMAL1,QPC,CPHIP, EST,,,/,OQPC1,OCPHIP,OESC1,OEFC1,PCPHIP,,/*CEIGN* $ ****CARD 1- 13, 24, 26, 29, 32, 34- 43, 55- 62 ****FILE 137 $$$$ $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OCPHIP,OQPC1,OESC1,OEFC1,,//S,N,CARDNO $ ****CARD 19 $$$$ $$$$ Go to label P3 if no deformed aerodynamic or structural element plots are $$$$ requested. COND P3,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 147 $$$$ $$$$ PLOT prepares all deformed aerodynamic and structural element plots. PLOT PLTPAR,GPSETS,ELSETS,CASEZZ,BGPDT,EQDYN,SILD,,PCPHIP,,,,/ PLOTX3/NSIL1/LUSET/JUMPPLOT/PLTFLG/PFILE $ ****SBST 7 ****CARD 18 ****FILE 147 $$$$ $$$$ PRTMSG prints plotter data and engineering data for each deformed plot $$$$ generated. PRTMSG PLOTX3//$ ****SBST 7 ****CARD 18 $$$$ LABEL P3 $ ****SBST 7 ****CARD 18 ****FILE 147 $$$$ $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ $$$$ Print Error Message No. 6 and terminate execution. PRTPARM //-6/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL ERROR7 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ $$$$ Print Error Message No. 7 and terminate execution. PRTPARM //-7/*BLADEMDS* $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ END $ ****CARD 1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62 ****RFMT 187-204,207-209 $$$$ $*CARD BITS 1 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 1 ADUM8 ADUM9 AXIC AXIF AXSLOT 1 CELAS1 CELAS2 CELAS3 CELAS4 1 CMASS1 CMASS2 CMASS3 CMASS4 1 CORD1C CORD1R CORD1S CORD2C CORD2R CORD2S 1 GRDSET GRID GRIDB 1 POINTAX RINGAX RINGFL 1 SECTAX SEQGP SPOINT 2 BAROR 2 CAXIF2 CAXIF3 CAXIF4 CBAR CCONEAX CDUM1 2 CDUM2 CDUM3 CDUM4 CDUM5 CDUM6 CDUM7 CDUM8 2 CDUM9 CFLUID2 CFLUID3 CFLUID4 CHEXA1 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 2 CNGRNT CONROD CQUAD4 CTRIA3 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 2 CROD CSHEAR CSLOT3 CSLOT4 CTETRA CTRBSC CTRAPAX 2 CTRIAAX CTRIARG CTORDRG CTRAPRG CTRIA1 CTRIA2 CTRIM6 2 CTRMEM CTRPLT CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 PDUM7 PDUM8 PDUM9 3 PIHEX PQDMEM PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 3 PROD PSHEAR PTORDRG PTRAPAX PTRBSC PTRIA1 3 PTRIA2 PTRIM6 PTRIAAX PTRMEM PTRPLT PTUBE PTWIST 3 PSHELL PCOMP PCOMP1 PCOMP2 4 GENEL 5 CONM1 CONM2 6 PELAS 7 PMASS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 8 TEMPMT$ TEMPMX$ 9 AXISYM 9 CRIGD1 CRIGD2 CRIGD3 CRIGDR 9 CRROD CRBAR CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE 9 MPC MPCADD MPC$ MPCAX 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 11 OMIT OMIT1 OMITAX 12 SUPAX SUPORT 13 TEMP TEMPAX TEMPD 13 TEMPP1 TEMPP2 TEMPP3 TEMPRB 15 GRDPNT 16 PLOTEL 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 24 COUPMASS CPBAR CPDPLT CPTRBSC 24 CPQUAD1 CPQUAD2 CPROD CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 24 WTMASS 26 NODJE 29 PAERO1 PAERO2 PAERO3 PAERO4 PAERO5 32 SET1 SET2 SPLINE1 SPLINE2 SPLINE3 34 MKAERO1 MKAERO2 35 AEFACT 36 FLFACT FLUTTER 37 AERO 37 CAERO1 CAERO2 CAERO3 CAERO4 CAERO5 38 FMETHOD$ 39 VREF 40 TF 41 CTYPE CYCSEQ CYJOIN 41 KINDEX NSEGS 42 IREF 42 MAXMACH MINMACH MTYPE 42 STREAML STREAML1 STREAML2 43 KGGIN 55 SDAMP$ 55 TABDMP1 56 EPOINT 56 SEQEP 57 B2PP$ 57 DMIG 57 K2PP$ 57 M2PP$ 57 TF$ 58 EIGR 59 METHOD$ 60 EIGC EIGP 61 CMETHOD$ 62 HFREQ 62 LFREQ LMODES 62 KDAMP $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 KAA 107 OGPWG 108 OPHIG PPHIG 109 KTOTAL 110 ELSETZ GPSETZ PLTPARZ PLTSETZ 111 EED EQDYN GPLD SILD TFPOOL USETD 112 LAMA PHIA 113 GO KOO LOO 114 B2PP K2PP M2PP 115 GMD GOD 116 PHIDH MHH KHH BHH 117 CLAMA OCEIGS PHIH 118 CPHID 119 OPHIH 120 CPHIP QPC 121 PLOTZ 122 KDICT KELM MDICT MELM 123 MAA 124 ACPT AERO FLIST 125 ELSETS GPSETS PLTPAR PLTSETX 126 GTKA 127 AJJL D1JK D2JK SKJ 128 D1JE D2JE 129 BXHH 129 FSAVE KXHH MXHH 130 CASEYY CLAMAL OVG PHIHL 131 CLAMAL1 CPHIH1 132 CPHIA 133 CASEZZ 134 PLOTX1 135 RP 136 MI 137 OCPHIP OEFC1 OESC1 OQPC1 PCPHIP 138 QHHL 139 B2DD K2DD M2DD 140 CYCD 141 KKK MKK 142 LAMK OEIGS PHIK 143 PHIG 144 PVECT 145 PHIAX 146 XYPLTCE 147 PLOTX3 $* =PAGE= DISP0 APR.93 <== THE YEAR OF THIS DATE MUST MATCH THE NASTRAN RELEASE YEAR $$$$$$$$ THIS BEGINS THE 1ST PART OF THE RIGID FORMAT BEGIN DISP0 - DUMMY RIGID FORMAT TO ILLUSTRATE HOW TO WRITE A NEW R.F $ REFERENCE: "THE DESIGN AND USAGE OF THE NEW DATA MANAGEMENT FEATURES IN NASTRAN" BY P. R. PAMIDI AND W. K. BROWN, PP.11-25, 12TH NASTRAN USERS' COLLOQUIUM, MAY 1984 (NASA C.P. 2328) UPDATE SUBROUTINES XRGDFM AND XCSA, AND RELINK LINK1 TO INCLUDE NEW SOLUTION NUMBER AND ITS ANALYSIS HEADING. NOTE: IN THIS WRITE-UP, RIGID FORMAT CARDS ARE IN UPPER CASE LETTERS, AND COMMENTS ARE IN LOWER CASE, OR AFTER <==, OR <<< WRITTEN BY G.CHAN/UNISYS 7/1990. (PLEASE INFORM ME IF ERROR IS FOUND) $$$$ SYMBOL OF 4 OR MORE $ IS A COMMENT LINE. BLANK LINE IS NOT ALLOWED. MODULE1 I1,,/O1//*P1* <== SEE NASTRAN USER'S MANUAL FOR DMAP RULES < DMAP NAME BEGINS ON COLUMN 1 (VALID UP TO COL. 72) <<< NEXT 7 CARDS BEGIN WITH '****'. THEY CAN BE SKIPPED < IF RESTART AND/OR SUBSTRUCTURE ARE NOT INVOLVED. ****CARD 1-20,30,40 <== RESTART INPUT DATA CHANGE INFORMATION ****FILE 100-103,110 <== RESTART DATA FILE CHANGE INFORMATION < THE ABOVE CHANGE INFORMATION IS USED SUBSEQUENTLY < TO DETERMINE THE DMAP STATEMENTS TO BE FLAGGED FOR < EXECUTION IN MODIFIED RESTART. ****SBST 1,2,9 <== DMAP SEQUENCE SUBSET CONTROL (1 THRU 9). < THIS DMAP IS DELETED IF USER SPECIFIED A SUBSET NO. < ON SOL CARD THAT MATCHES THE NO. ON THIS SBST LINE. ****RFMT 188,200-204 <== RESTART RIGID FORMAT SWITCH: < 187-204 FOR APPROACH DISP, 207-209 FOR APP HEAT, < AND 214-215 FOR APPROACH AERO. < THIS DMAP IS FLAGGED FOR EXECUTION IN A MODIFIED < RESTART IF THE PREVIOUS CHECKPOINT RUN HAD A R.F. < NO. LISTED ON THIS RFMT LINE. ****PHS1 I1 <== PHSI IS SUBSTRUCTURE PHASE NUMBER CONTROL (I=1,2,3). ****PHS2 DB5 < MUST BE FOLLOWED BY IN, DN, DBN, OR DEN FLAGS, WHERE ****PHS3 D7 < N=1 FOR PHASE 1, 5 OR 8 PHASE 2, 1 OR 7 PHASE 3 < (REFERING TO ASCM01, 05, 07 OR 08 SUBROUTINES). < 'I' IN 'IN' INDICATES INSERT AFTER THIS DMAP. < 'D' IN 'DN' INDICATES DELETION OR REPLACEMENT BY A < DMAP ALTER. 'DBN' AND 'DEN' ARE BEGIN AND END OF < DELETION/REPLACEMENT BY GROUP OF CONTIGUOUS D.ALTER < (CURRENTLY SUBSTRUCTURE IN APP DISP1,2,3,8,9 ONLY) $$$$ IMPORTANT. A COMMENT LINE IS NEEDED BEFORE A NEW DMAP LINE. MODULES2 I2/O2/*P2* $ <== '$' ON DMAP LINE IS OPTIONAL ****CARD 1-40,45 ****FILE 101,111 $$$$ * '*' ON A 4-DOLLAR COMMENT LINE IS COSMETIC : : $$$$ END ****CARD ... ****RFMT ... $$$$ $$$$ THIS COMMENT IS NEEDED BEFORE THE 2ND PART OF THE RIGID FORMAT BY $*CARD $*CARD BITS <== CARD NAME TALBE, 1 THRU 93, FOR MODIFIED RESTART ONLY $$$$ 1 AXIC AXIF CELAS1 CELAS2 <== FREE FIELD, ALPHA-NUMERIC, 2 ADUM1 CDUM1 ETC < UP TO 8 CHARACTER CARD NAMES : SPC : SPC$ <== ITEM FOLLOWED BY $ INDICATES CASE CONTROL RELATED CARD NAME : 93 : $$$$ THIS COMMENT IS NEEDED BEFORE THE 3RD PART OF THE RIGID FORMAT BY $*FILE $*FILE BITS <== FILE NAME TABLE, 94 THRU 186, FOR MODIFIED RESTART ONLY $$$$ 94 SLT GPTT <== FREE FIELD, ALPHA-NUMERIC, UP TO 8 CHARACTER GINO 95 KGGX GPST < FILE NAMES ETC : 186 : $* THIS VERY LAST LINE IS NEEDED. =PAGE= DISP1 APR.93 $$$$$$$$ $$$$ NOTE: The DMAP sequence for static analysis involves use of parameters $$$$ INTERACT and SYS21. These parameters are of relevance only when the $$$$ primary purpose of the user is to make interactive restart runs. (The two $$$$ parameters are then specified via the PARAM card in the bulk data deck.) $$$$ However, these two parameters are not required for normal non-interactive $$$$ batch runs. Consequently, the rigid format DMAP listing shown here was $$$$ generated by not specifying those parameters (via the PARAM bulk data $$$$ card). As a result, the COMPOFF and COMPON instructions using those $$$$ parameters assume a value of 0 for these parameters (see Volume I, $$$$ Section 5.7). BEGIN DISP 01 - STATIC ANALYSIS - APR. 1993 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ FILE OPTP2=SAVE/EST1=SAVE $ ****SBST 9 ****CARD 1- 20, 22- 24, 28, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $ ****SBST 1, 3 ****CARD 1- 20, 22- 24, 28, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 5- 10, 14, 15, 18, 19, 22- 24, 28, 61 ****FILE 101,114,119,121-125,127 ****PHS1 I1 $$$$ $$$$ COMPOFF causes the DMAP compiler to compile the next instruction as the $$$$ parameter INTERACT is 0. (See NOTE above.) COMPOFF 1,INTERACT $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PRECHK ALL $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ $$$$ COMPON causes the DMAP compiler to skip the compilation of the next $$$$ instruction as the parameter INTERACT is 0. (See NOTE above.) COMPON 1,INTERACT $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PRECHK BGPDT,EQEXIN,SIL,SIP,ECT,GPECT, OUGV1,OES1,OEF1,OPG1,OQG1,PUGV1, OUGV2,OES2,OEF2,OPG2,OQG2,DUMMY, OES1L,OEF1L,ONRGY1 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ $$$$ COMPOFF causes the DMAP compiler to compile all of the following $$$$ instructions through LABEL LBLINT02 as the parameter SYS21 is 0. (See $$$$ NOTE above.) COMPOFF LBLINT02,SYS21 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 ****PHS2 D5 $$$$ $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 129 $$$$ $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115,120 ****PHS2 DB5 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115 $$$$ $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115,120 $$$$ $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115,120 ****PHS2 DE5 $$$$ $$$$ GP3 generates Static Loads Table and Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ ****CARD 1, 2, 13, 60, 61 ****FILE 96 $$$$ PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ ****CARD 1, 2, 15, 61 ****FILE 96, 99 ****RFMT 188-204,207-209 $$$$ $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 ****FILE 97 $$$$ PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****PHS2 DB5 ****RFMT 188-204,207-209 $$$$ $$$$ Go to label ERROR4 and print Error Message No. 4 if no elements have been $$$$ defined. COND ERROR4,NOELMT $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****PHS2 DE5 ****RFMT 188-204,207-209 $$$$ PURGE KGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 98 $$$$ $$$$ OPTPR1 performs phase one property optimization and initialization check. OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ ****SBST 9 ****CARD 1- 6, 8, 13 ****FILE 117 $$$$ $$$$ Beginning of loop for property optimization. LABEL LOOPTOP $ ****SBST 9 ****CARD 1- 6 ****FILE 117 $$$$ $$$$ Go to label LBL1 if there are no structural elements. COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 13- 16, 24, 61 ****FILE 98, 99,116,121 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EQUIV OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ ****SBST 9 ****CARD 1- 6, 13, 16 ****FILE 118 ****PHS2 D5 $$$$ $$$$ EMG generates structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 15, 24, 61 ****FILE 116 $$$$ $$$$ Go to label JMPKGG if no stiffness matrix is to be assembled. COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE MGG/NOMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ $$$$ Go to label JMPMGG if no mass matrix is to be assembled. COND JMPMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 116 $$$$ LABEL JMPMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ $$$$ Go to label LBL1 if no weight and balance information is requested. COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 121 $$$$ $$$$ Go to label ERROR2 and print Error Message No. 2 if no mass matrix $$$$ exists. COND ERROR2,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 121 $$$$ $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 121 $$$$ $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 121 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 8, 13- 16, 24, 61 ****FILE 98, 99,116,121 $$$$ x $$$$ Equivalence [K ] to [K ] if no general elements exist. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 ****PHS2 DB5 $$$$ $$$$ Go to label LBL11A if no general elements exist. COND LBL11A,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11A $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 ****PHS2 DE5 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12, 22, 23, 31, 59 ****FILE 101 $$$$ $$$$ Beginning of loop for multiple constraint sets. LABEL LBL11 $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$ $$$$ GP4 generates flags defining members of various displacement sets $$$$ (USET), forms multipoint constraint equations [R ] {u } = 0, and forms $$$$ g g $$$$ enforced displacement vector {Y }. $$$$ s $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20, 22, 23, 28, 31, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 12, 22, 23, 28 ****FILE 101 $$$$ $$$$ Go to label ERROR3 and print Error Message No. 3 if no independent $$$$ degrees of freedom are defined. COND ERROR3,NOL $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 188-204,207-209 ****PHS1 I1 $$$$ PARAM //*AND*/NOSR/SINGLE/REACT $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 $$$$ PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 103,105-107,109,111,113 $$$$ $$$$ Equivalence [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 104 $$$$ $$$$ Go to label LBL2 if the MPC set for the current pass is unchanged from $$$$ that of the previous pass. COND LBL2,MPCF2 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 103,104 $$$$ $$$$ MCE1 partitions multipoint constraint equations [R ] = [R |R ] and $$$$ g m n $$$$ solves for multipoint constraint transformation matrix [G ] = $$$$ -1 m $$$$ - [R ] [R ]. $$$$ m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9, 22, 23 ****FILE 103 $$$$ $$$$ MCE2 partitions stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | nn| nm| $$$$ [K ] = |---+---| $$$$ gg |K |K | $$$$ | mn| mm| $$$$ + + $$$$ $$$$ and performs the matrix reduction $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 103,104 $$$$ $$$$ Equivalence [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ $$$$ SCE1 partitions out single-point constraints. $$$$ $$$$ + + $$$$ |K |K | $$$$ | ff| fs| $$$$ [K ] = |---+---| $$$$ nn |K |K | $$$$ | sf| ss| $$$$ + + $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ]{G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ $$$$ Equivalence [K ] to [K ] if no free-body supports exist. $$$$ aa ll $$$$ EQUIV KAA,KLL/REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 ****PHS1 DB1 ****PHS3 DB1 $$$$ $$$$ Go to label LBL6 if no free-body supports exist. COND LBL6,REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ $$$$ RBMG1 partitions out free-body supports $$$$ $$$$ + + $$$$ |K |K | $$$$ | ll| lr| $$$$ [K ] = |---+---| $$$$ aa |K |K | $$$$ | rl| rr| $$$$ + + $$$$ RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ LABEL LBL6 $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ $$$$ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ ll ll ll $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 108 $$$$ $$$$ Go to label LBL7 if no free-body supports exist. COND LBL7,REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ $$$$ RBMG3 forms rigid body transformation matrix $$$$ $$$$ -1 $$$$ [D] = -[K ] [K ] $$$$ ll lr $$$$ $$$$ calculates rigid body check matrix $$$$ $$$$ T $$$$ [X] = [K ] + [K ][D] $$$$ rr lr $$$$ $$$$ and calculates rigid body error ratio $$$$ $$$$ $$$$ ||X|| $$$$ epsilon = --------- $$$$ ||K || $$$$ rr $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ LABEL LBL7 $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 ****PHS1 DE1 ****PHS3 DE1 $$$$ $$$$ SSG1 generates static load vectors {P }. $$$$ g $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ ****CARD 1- 3, 5, 6, 8, 13, 22, 23, 59- 62 ****FILE 110 $$$$ $$$$ Equivalence {P } to {P } if no constraints are applied. $$$$ g l $$$$ EQUIV PG,PL/NOSET $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 ****FILE 111 ****PHS1 DB1 $$$$ $$$$ Go to label LBL10 if no constraints are applied. COND LBL10,NOSET $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 ****FILE 111 ****PHS3 DB7 $$$$ $$$$ SSG2 applies constraints to static load vectors $$$$ $$$$ _ $$$$ P $$$$ n _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ g P n n m m $$$$ m $$$$ $$$$ _ $$$$ P $$$$ f _ $$$$ {P } = {--} , {P } = {P } - [K ]{Y } $$$$ n P f f fs s $$$$ s $$$$ $$$$ _ $$$$ P $$$$ a _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ f P a a o o $$$$ o $$$$ $$$$ P $$$$ l $$$$ {P } = {--} $$$$ a P $$$$ r $$$$ T $$$$ and calculates determinate forces of reaction {q } = -{P } - [D ]{P }. $$$$ r r l $$$$ SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 ****FILE 111 $$$$ LABEL LBL10 $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 ****FILE 111 $$$$ $$$$ SSG3 solves for displacements of independent coordinates $$$$ $$$$ -1 $$$$ {u } = [K ] {P } $$$$ l ll l $$$$ $$$$ solves for displacements of omitted coordinates $$$$ $$$$ o -1 $$$$ {u } = [K ] {P } $$$$ o oo o $$$$ $$$$ calculates residual vector (RULV) and residual vector error ratio for $$$$ independent coordinates $$$$ $$$$ {deltaP } = {P } - [K ]{u } $$$$ l l ll l $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ l l $$$$ epsilon = ------------- $$$$ l T $$$$ {P }{u } $$$$ l l $$$$ $$$$ and calculates residual vector (RUOV) and residual vector error ratio for $$$$ omitted coordinates $$$$ o $$$$ {deltaP } = {P } - [K ]{u } $$$$ o o oo o $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ o o $$$$ epsilon = ------------- $$$$ o T o $$$$ {P }{u } $$$$ o o $$$$ SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ NSKIP/S,N,EPSI $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****FILE 112 ****RFMT 188 $$$$ $$$$ Go to label LBL9 if residual vectors are not to be printed. COND LBL9,IRES $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 188-204,207-209 $$$$ $$$$ MATGPR prints the residual vector for independent coordinates (RULV). MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 188-204,207-209 $$$$ $$$$ MATGPR prints the residual vector for omitted coordinates (RUOV). MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 188-204,207-209 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 188-204,207-209 ****PHS3 DE7 $$$$ $$$$ SDR1 recovers dependent displacements $$$$ $$$$ u $$$$ l o $$$$ {--} = {u } , {u } = [G ]{u ] + {u } , $$$$ u a o o a o $$$$ r $$$$ $$$$ u u $$$$ a f $$$$ {--} = {u } , {--} = {u } , $$$$ u f Y n $$$$ o s $$$$ $$$$ u $$$$ n $$$$ {u } = [G ]{u ] , {--} = {u } $$$$ m m n u g $$$$ m $$$$ $$$$ and recovers single-point forces of constraint $$$$ $$$$ T $$$$ {q } = -{P } + [K ]{u } + [K ]{Y } $$$$ s s fs f ss s $$$$ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ *STATICS* $ ****CARD 1- 6, 8- 13, 22, 23, 59- 62 ****FILE 113 ****RFMT 188-204,207-209 ****PHS3 I7 $$$$ $$$$ Go to label LBL8 if all constraint sets have been processed. COND LBL8,REPEAT $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ $$$$ Go to label LBL11 if additional sets of constraints need to be processed. REPT LBL11,360 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ $$$$ Go to label ERROR1 and print Error Message No. 1 if the number of $$$$ constraint sets exceeds 360. JUMP ERROR1 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ PARAM //*NOT*/TEST/REPEAT $ ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ $$$$ Go to label ERROR5 and print Error Message No. 5 if multiple boundary $$$$ conditions are attempted with an improper subset. COND ERROR5,TEST $ ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ LABEL LBL8 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ $$$$ GPFDR calculates the grid point force balance (OGPFB1) and element strain $$$$ energy (ONRGY1) for requested sets. GPFDR CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/ *STATICS* $ ****CARD 18, 19 ****FILE 119 ****PHS2 DB5 $$$$ PURGE KDICT,KELM/REPEAT $ ****CARD 1- 3, 6, 8, 18, 19 ****FILE 116 $$$$ $$$$ OFP formats the tables prepared by GPFDR and places them on the system $$$$ output file for printing. OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ ****CARD 18, 19 ****FILE 119 $$$$ $$$$ Go to label NOMPCF if no multipoint constraint force balance is $$$$ requested. COND NOMPCF,GRDEQ $ ****CARD 7 ****FILE 127 $$$$ $$$$ EQMCK calculates the force and moment equilibrium check and prepares the $$$$ multipoint constraint force balance (OQM1) for output. EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ ****CARD 7 ****FILE 127 $$$$ $$$$ OFP formats the table prepared by EQMCK and places it on the system $$$$ output file for printing. OFP OQM1,,,,,//S,N,CARDNO $ ****CARD 7 ****FILE 127 $$$$ LABEL NOMPCF $ ****CARD 7 ****FILE 127 $$$$ $$$$ SDR2 calculates the element forces (OEF1) and stresses (OES1) and $$$$ prepares load vectors (OPG1), displacement vectors (OUGV1), and single- $$$$ point forces of constraint (OQG1) for output and translation components $$$$ of the displacement vectors (PUGV1). SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L, OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ ****CARD 18, 19 ****FILE 114 $$$$ $$$$ Go to label LBLSTRS if element stresses in material coordinate system and $$$$ stresses at the connected grid points are not to be calculated. COND LBLSTRS,STRESS $ ****CARD 18, 19 ****FILE 122 $$$$ $$$$ CURV calculates element stresses in material coordinate system (OES1M) $$$$ and stresses at the connected grid points (OES1G). CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/ V,Y,NINTPTS $ ****CARD 18, 19 ****FILE 122 $$$$ LABEL LBLSTRS $ ****CARD 18, 19 ****FILE 122 $$$$ PURGE OES1M/STRESS $ ****CARD 18, 19 ****FILE 122 $$$$ $$$$ Go to label LBLSTRN if element strains/curvatures are not to be $$$$ calculated. COND LBLSTRN,STRNFLG $ ****CARD 18, 19 ****FILE 123,124 $$$$ $$$$ SDR2 calculates element strains/curvatures (OES1A). SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/ ,,,OES1A,,,,/*STATICS*//1 $ ****CARD 18, 19 ****FILE 123 $$$$ $$$$ Go to label LBLSTRN if element strains/curvatures in material coordinate $$$$ system and strains/curvatures at the connected grid points are not to be $$$$ calculated. COND LBLSTRN,STRAIN $ ****CARD 18, 19 ****FILE 124 $$$$ $$$$ CURV calculates element strains/curvatures in material coordinate system $$$$ (OES1AM) and strains/curvatures at the connected grid points (OES1AG). CURV OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/ V,Y,NINTPTS $ ****CARD 18, 19 ****FILE 124 $$$$ LABEL LBLSTRN $ ****CARD 18, 19 ****FILE 123,124 $$$$ PURGE OES1A/STRNFLG $ ****CARD 18, 19 ****FILE 123,124 $$$$ $$$$ Go to label LBL17 if there are no requests for output sorted by grid $$$$ point number or element number. COND LBL17,NOSORT2 $ ****CARD 18, 19, 29 ****FILE 125,126 $$$$ $$$$ SDR3 prepares requested output sorted by grid point number or element $$$$ number. SDR3 OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $ ****CARD 18, 19 ****FILE 125 $$$$ PARAM //*SUB*/PRTSORT2/NOSORT2/1 $ ****CARD 18, 19 ****FILE 125 $$$$ $$$$ Go to label LBLSORT1 if printed output sorted by grid point number or $$$$ element number is not required. COND LBLSORT1,PRTSORT2 $ ****CARD 18, 19 ****FILE 125 $$$$ $$$$ OFP formats the tables prepared by SDR3 for output sorted by grid point $$$$ number or element number and places them on the system output file for $$$$ printing. OFP OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $ ****CARD 18, 19 ****FILE 125 $$$$ $$$$ SCAN examines the element stresses and forces calculated by SDR3 and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES2,OEF2/OESF2/*RF* $ ****CARD 19 ****FILE 125 $$$$ $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF2,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 125 $$$$ $$$$ Go to label LBLXYPLT. JUMP LBLXYPLT $ ****CARD 18, 19 ****FILE 125 $$$$ LABEL LBLSORT1 $ ****CARD 18, 19 ****FILE 125 $$$$ $$$$ OFP formats the tables prepared by SDR2 for output sorted by subcase $$$$ number and places them on the system output file for printing. OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 18, 19 ****FILE 114 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 18, 19 ****FILE 114 $$$$ $$$$ SCAN examines the element stresses and forces calculated by SDR2 and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES1,OEF1/OESF1/*RF* $ ****CARD 19 ****FILE 114 $$$$ $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF1,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ LABEL LBLXYPLT $ ****CARD 18, 19 ****FILE 125 $$$$ $$$$ OFP formats the tables prepared by CURV and SDR2 for output sorted by $$$$ subcase number and places them on the system output file for printing. OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ ****CARD 18, 19 ****FILE 114 $$$$ $$$$ XYTRAN prepares the input for requested X-Y plots. XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 29 ****FILE 126 $$$$ $$$$ XYPLOT prepares the requested X-Y plots of displacements, forces, $$$$ stresses, loads, and single-point forces of constraint vs. subcase. XYPLOT XYPLTT// $ ****SBST 7 ****CARD 29 ****FILE 126 $$$$ $$$$ Go to label DPLOT. JUMP DPLOT $ ****SBST 7 ****CARD 29 ****FILE 126 $$$$ LABEL LBL17 $ ****CARD 18, 19, 29 ****FILE 125,126 $$$$ PURGE OUGV2/NOSORT2 $ ****CARD 18, 19 ****FILE 125,126 $$$$ $$$$ Go to label LBLOFP if there is no phase two property optimization. COND LBLOFP,COUNT $ ****SBST 9 ****CARD 18, 19 ****FILE 118 $$$$ $$$$ OPTPR2 performs phase two property optimization. OPTPR2 OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N, CARDNO $ ****SBST 9 ****CARD 18, 19 ****FILE 118 $$$$ $$$$ Equivalence EST2 to EST and OPTP2 to OPTP1. EQUIV EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $ ****SBST 9 ****CARD 18, 19 ****FILE 97,117 $$$$ $$$$ Go to label LOOPEND if no additional output is to be printed for this $$$$ loop. COND LOOPEND,PRINT $ ****SBST 9 ****CARD 18, 19 ****FILE 118,128 $$$$ LABEL LBLOFP $ ****SBST 9 ****CARD 18, 19 ****FILE 118 $$$$ $$$$ OFP formats the tables prepared by SDR2 for output sorted by subcase $$$$ number and places them on the system output file for printing. OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ $$$$ SCAN examines the element stresses and forces calculated by SDR2 and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES1,OEF1/OESF1X/*RF* $ ****CARD 19 ****FILE 114 $$$$ $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF1X,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ $$$$ OFP formats the tables prepared by CURV and SDR2 for output sorted by $$$$ sucbcase number and places them on the system output file for printing. OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ ****CARD 19 ****FILE 122-124 $$$$ LABEL DPLOT $ ****SBST 7 ****CARD 18, 29 ****FILE 126 $$$$ $$$$ Go to label P2 if no deformed structure plots are requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 128 $$$$ $$$$ PLOT generates all requested deformed structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18, 29 ****FILE 128 $$$$ $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18, 29 ****FILE 128 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 128 $$$$ LABEL LOOPEND $ ****SBST 9 ****CARD 18, 22, 23 ****FILE 128 ****PHS1 DE1 ****PHS2 DE5 $$$$ $$$$ Go to label FINIS and make normal exit if property optimization is $$$$ complete. COND FINIS,COUNT $ ****SBST 9 ****CARD 18, 22, 23 $$$$ $$$$ Go to label LOOPTOP if additional loops for property optimization are $$$$ needed. REPT LOOPTOP,360 $ ****SBST 9 ****CARD 18, 22, 23 $$$$ $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 20, 22- 24, 28, 29, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ LABEL ERROR1 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*STATICS* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ LABEL ERROR2 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 121 ****RFMT 188-204,207-209 $$$$ $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*STATICS* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 121 ****RFMT 188-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 188-204,207-209 $$$$ $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*STATICS* $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 188-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 188-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*STATICS* $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 188-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*STATICS* $ ****CARD 22, 23 ****RFMT 188-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 24, 28, 29, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 24, 28, 29, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ LABEL LBLINT02 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ $$$$ COMPON causes the DMAP compiler to skip the compilation of all of the $$$$ following instructions through label LBLINT01 as the parameter SYS21 is 0 $$$$ (see NOTE at the beginning). COMPON LBLINT01,SYS21 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PARAM //*SYST*//86/1 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SETVAL //V,N,PFILE/0 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ LABEL AGAIN $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PROMPT1 //S,N,PEXIT/S,N,PLOT1/S,N,PLOT2/S,N,XYPLOT/ S,N,SCAN1/S,N,SCAN2 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COND LBLINT1,PEXIT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PARAM //*OR*/V,N,PLOTZ/V,N,PLOT1/V,N,PLOT2 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PARAM //*NOT*/V,N,NOPLOTZ/V,N,PLOTZ $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COND STEPPLOT,NOPLOTZ $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PURGE PLTSETR,PLTPARR,GPSETR,ELSETR/NOPLOTZ $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PLTSET PCDB,EQEXIN,ECT,/PLTSETR,PLTPARR,GPSETR,ELSETR/S,N,NSIL/ S,N,JUMPPLOT $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PRTMSG PLTSETR $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COND LBLINT2,PLOT2 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SETVAL //S,N,PLTFG1/1 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PLOT PLTPARR,GPSETR,ELSETR,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/ PLOTX3/NSIL/LUSET/JUMPPLOT/PLTFG1/S,N,PFILE $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PRTMSG PLOTX3 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SITEPLOT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE PLTSETR,PLTPARR,GPSETR,ELSETR $ ****CARD 1-20,22-24,28,31,59-62 $$$$ JUMP LBLINTEX $ ****CARD 1-20,22-24,28,31,59-62 $$$$ LABEL LBLINT2 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SETVAL //S,N,PLTFG2/-1 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PLOT PLTPARR,GPSETR,ELSETR,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT, OES1,OES1L,ONRGY1/PLOTX4/NSIL/LUSEP/JUMPPLOT/PLTFG2/S,N,PFILE $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PRTMSG PLOTX4// $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SITEPLOT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE PLTSETR,PLTPARR,GPSETR,ELSETR $ ****CARD 1-20,22-24,28,31,59-62 $$$$ JUMP LBLINTEX $ ****CARD 1-20,22-24,28,31,59-62 $$$$ LABEL STEPPLOT $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PARAM //*OR*/V,N,SCANZ/V,N,SCAN1/V,N,SCAN2 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PARAM //*NOT*/V,N,NOSCANZ/V,N,SCANZ $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COND STEPSCAN,NOSCANZ $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE OESF1I,OESF2I/NOSCANZ $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COND LBLINT3,SCAN2 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SCAN CASECC,OES1,OEF1/OESF1I/*OL1* $ ****CARD 1-20,22-24,28,31,59-62 $$$$ OFP OESF1I,,,,,//S,N,CARDNO $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE OESF1I $ ****CARD 1-20,22-24,28,31,59-62 $$$$ JUMP LBLINTEX $ ****CARD 1-20,22-24,28,31,59-62 $$$$ LABEL LBLINT3 $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SCAN CASECC,OES2,OEF2/OESF2I/*OL2* $ ****CARD 1-20,22-24,28,31,59-62 $$$$ OFP OESF2I,,,,,//S,N,CARDNO $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE OESF2I $ ****CARD 1-20,22-24,28,31,59-62 $$$$ JUMP LBLINTEX $ ****CARD 1-20,22-24,28,31,59-62 $$$$ LABEL STEPSCAN $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PARAM //*NOT*/V,N,NOXYPT/V,N,XYPLOT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ COND LBLINTEX,NOXYPT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE XYPLTI/NOXYPT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTI/*TRAN*/ *PSET*/S,N,PFILE/S,N,CARDNO $ ****CARD 1-20,22-24,28,31,59-62 $$$$ XYPLOT XYPLTI// $ ****CARD 1-20,22-24,28,31,59-62 $$$$ SITEPLOT $ ****CARD 1-20,22-24,28,31,59-62 $$$$ PURGE XYPLTI $ ****CARD 1-20,22-24,28,31,59-62 $$$$ JUMP LBLINTEX $ ****CARD 1-20,22-24,28,31,59-62 $$$$ LABEL LBLINTEX $ ****CARD 1-20,22-24,28,31,59-62 $$$$ REPT AGAIN,400 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ PRTPARM //1/*STATICS* $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ LABEL LBLINT1 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ LABEL LBLINT01 $ ****CARD 1- 20, 22- 24, 28, 31, 59- 62 $$$$ END $ ****CARD 1- 24, 28, 29, 31, 59- 62 ****RFMT 188-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CHBDY CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CONROD CQDMEM CQDMEM1 CQDMEM2 2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA CTORDRG 2 CTRAPAX CQUAD4 CTRIA3 2 CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG CTRIM6 2 CTRMEM 2 CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PHBDY PIHEX PQDMEM PQDMEM1 3 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR PTORDRG 3 PTRAPAX PSHELL PCOMP PCOMP1 PCOMP2 3 PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM PTRPLT 3 PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 7 AOUT$ 8 MAT1 MAT2 MAT3 MAT4 MAT5 MATT1 MATT2 8 MATT3 MAT8 8 MATT4 MATT5 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ 8 TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 OPT GRDEQ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 STRESS 26 STRAIN 27 NINTPTS 28 AUTOSPC 29 XYOUT$ 31 NOLOOP$ 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 GRAV RFORCE 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 GPECT EST GEI MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 RG USET YS ASET OGPST 102 GPST 103 GM 104 KNN 105 KFF KFS KSS 106 GO KAA KOO LOO 107 KLL KLR KRR 108 LLL 109 DM 110 PG 111 PL PO PS QR 112 RULV RUOV ULV UOOV 113 PGG QG UGV 114 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 114 OEF1L OES1L OESF1 OESF1X 115 ELSETS GPSETS PLTPAR PLTSETX 116 KDICT KELM MDICT MELM 117 OPTP1 118 OPTP2 EST1 119 OGPFB1 ONRGY1 120 PLOTX1 121 OGPWG 122 OES1M OES1G 123 OES1A 124 OES1AM OES1AG 125 OUGV2 OPG2 OQG2 OEF2 OES2 OESF2 126 XYPLTT 127 OQM1 128 PLOTX2 129 BGPDP SIP $* =PAGE= DISP10 APR.93 $$$$$$$$ BEGIN DISP 10 - MODAL COMPLEX EIGENVALUE ANALYSIS - APR. 1993 $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ FILE GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 12, 14, 15, 19- 24, 56- 62 ****FILE 101,112,117,118,121,126 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 127 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122,125 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122,125 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122,125 $$$$ GP3 generates Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 25, 56- 62 ****FILE 97 $$$$ Go to label ERROR5 and print Error Message No. 5 if there are no $$$$ structural elements. COND ERROR5,NOSIMP $ ****CARD 1, 2, 5, 6, 8, 16 ****FILE 97 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8, 24 ****FILE 124 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 24 ****FILE 124 ****RFMT 187,190-192 $$$$ EMG generates structural element stiffness, mass and damping matrix $$$$ tables, and dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 124 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPKGGX if no stiffness matrix is to be assembled. COND JMPKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ LABEL JMPKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to $$$$ be assembled. COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 ****RFMT 187,190-192 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 $$$$ Go to label LGPWG if no weight and balance information is requested. COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 126 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 126 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 126 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 126 $$$$ x $$$$ Equivalence [K ] to [K ] if there are no general elements. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ Go to label LBL11 if there are no general elements. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET) $$$$ and forms multipoint constraint equations [R ] {u } = 0. $$$$ g g $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 17, 20 ****FILE 101 $$$$ OFP formats the table of potential grid point similarities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 20 ****FILE 101 $$$$ PARAM //*AND*/NOSR/REACT/SINGLE $ ****CARD 1, 9- 12 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS/SINGLE/QPC/NOSR/KLR,KRR,MLR,MRR, DM,MR/REACT $ ****CARD 1, 9- 12 ****FILE 103,105-107,109,110,115,120 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no multipoint $$$$ gg nn gg nn $$$$ constraints exist. EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness and mass matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |M |M | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ gg |K |K | gg |M |M | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ and performs the matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [G ][M ] + [M ][G ] + [G ][M ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no single-point $$$$ nn ff nn ff $$$$ constraints exist. $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn |K |K | nn |M |M | $$$$ | sf| ss| | sf| ss| $$$$ + + + + $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ Equivalence {K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Equivalence [M ] to [M ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 123 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,123 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP2 partitions constrained mass matrix $$$$ $$$$ +_ + $$$$ |M |M | $$$$ | aa| ao| $$$$ [M ] = |---+---| $$$$ ff |M |M | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [M ][G ] + [G ][M ] + [G ][M ][G ] $$$$ aa aa oa o o ao o oo o $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 123 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,123 $$$$ Go to label LBL6 if there are no free-body supports. COND LBL6,REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107-110 $$$$ RBMG1 partitions out free-body supports $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ll| lr| | ll| lr| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ aa |K |K | aa |M |M | $$$$ | rl| rr| | rl| rr| $$$$ + + + + $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ ll ll ll $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12 ****FILE 108 $$$$ RBMG3 forms rigid body transformation matrix $$$$ $$$$ -1 $$$$ [D] = -[K ] [K ] $$$$ ll lr $$$$ $$$$ calculates rigid body check matrix $$$$ $$$$ T $$$$ [X] = [K ] + [K ][D] $$$$ rr lr $$$$ $$$$ and calculates rigid body error ratio $$$$ $$$$ $$$$ ||X|| $$$$ epsilon = --------- $$$$ ||K || $$$$ rr $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12 ****FILE 109 $$$$ RBMG4 forms rigid body mass matrix $$$$ $$$$ T T T $$$$ [m ] = [M ] + [M ][D] + [D ][M ] + [D ][M ][D] $$$$ r rr lr lr ll $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 110 $$$$ LABEL LBL6 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107-110 $$$$ DPD generates flags defining members of various displacement sets used in $$$$ dynamic analysis (USETD), tables relating the internal and external grid $$$$ point numbers (GPLD), including extra points introduced for dynamic $$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL), and $$$$ Eigenvalue Extraction Data (EED). DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/ NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $ ****CARD 1, 9- 12, 56, 58, 60 ****FILE 111 $$$$ Go to label ERROR2 and print Error Message No. 2 if there is no $$$$ Eigenvalue Extraction Data. COND ERROR2,NOEED $ ****CARD 1, 9- 12, 56, 58, 60 ****FILE 111 ****RFMT 187-195,197-204,207-209 $$$$ d d $$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points $$$$ o o m m $$$$ introduced for dynamic analysis. EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 59 ****FILE 115 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 112 $$$$ READ extracts real eigenvalues and eigenvectors from the equation $$$$ $$$$ [K - lambda M ]{u } = 0 $$$$ aa aa a $$$$ $$$$ calculates rigid body modes by finding a square matrix [phi ] such that $$$$ ro $$$$ T $$$$ [m ] = [phi ][m ][phi ] $$$$ o ro r ro $$$$ $$$$ is diagonal and normalized, computes rigid body eigenvectors $$$$ $$$$ + + $$$$ |Dphi | $$$$ | ro | $$$$ [phi ] = |-------| $$$$ ao |phi | $$$$ | ro | $$$$ + + $$$$ $$$$ calculates modal mass matrix $$$$ $$$$ T $$$$ [m] = [phi ][M ][phi ] $$$$ a aa a $$$$ $$$$ and normalizes eigenvectors according to one of the following user $$$$ requests: $$$$ 1. Unit value of a selected component. $$$$ 2. Unit value of the largest component. $$$$ 3. Unit value of the generalized mass. READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 58, 59 ****FILE 112 $$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) $$$$ prepared by READ and places it on the system output file for printing. OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 58, 59 ****FILE 112 $$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were $$$$ found. COND ERROR4,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 58, 59 ****FILE 112 ****RFMT 187-195,197-204,207-209 $$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on $$$$ the system output file for printing. OFP LAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 58, 59 ****FILE 112 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 22, 23 ****FILE 117-121 $$$$ PARAM //*MPY*/REPEATE/1/-1 $ ****CARD 1- 6, 8- 14, 16, 22, 23, 56- 62 ****FILE 113 ****RFMT 187-195,197-204,207-209 $$$$ Beginning of loop for additional sets of direct input matrices. LABEL LBL13 $ ****SBST 1, 3 ****CARD 1- 6, 8- 16, 18, 19, 21- 23, 56- 62 ****FILE 113 ****RFMT 187-195,197-204,207-209 $$$$ PURGE PHIH,CLAMA,OPHIH,CPHID,CPHIP,QPC,OQPC1,OCPHIP,OESC1,OEFC1, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ ****CARD 22, 23 ****FILE 117-121 $$$$ CASE extracts the appropriate record from CASECC corresponding to the $$$$ current loop and copies it into CASEXX. CASE CASECC,/CASEXX/*CEIGN*/S,N,REPEATE/S,N,NOLOOP $ ****CARD 1- 6, 8- 14, 16, 19, 21- 23, 25, 56- 62 ****FILE 113 ****RFMT 187-195,197-204,207-209 $$$$ 2 2 2 $$$$ MTRXIN selects the direct input matrices [K ], [M ], and [B ] for the $$$$ pp pp pp $$$$ current loop. MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ ****CARD 1, 22, 23, 56, 57 ****FILE 114 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 114 $$$$ 2 2 2 2 2 2 $$$$ Equivalence [M ] to [M ], [B ] to [B ], and [K ] to [K ] if no $$$$ pp dd pp dd pp dd $$$$ constraints are applied. EQUIV M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 114 $$$$ 2 2 $$$$ GKAD applies constraints to direct input matrices [K ], [M ], and $$$$ pp pp $$$$ 2 2 2 2 $$$$ [B ], forming [K ], [M ], and [B ]. $$$$ pp dd dd dd $$$$ GKAD USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD, M2DD,B2DD/*CMPLEV*/*DISP*/*MODAL*/0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/-1/-1/ -1/-1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 56, 57 ****FILE 115 $$$$ GKAM assembles stiffness, mass, and damping matrices in modal coordinates $$$$ for use in Complex Eigenvalue Analysis: $$$$ $$$$ T 2 $$$$ [K ] = [k] + [phi ][K ][phi ] $$$$ hh dh dd dh $$$$ $$$$ T 2 $$$$ [M ] = [m] + [phi ][M ][phi ] $$$$ hh dh dd dh $$$$ $$$$ T 2 $$$$ [B ] = [b] + [phi ][B ][phi ] $$$$ hh dh dd dh $$$$ $$$$ where $$$$ $$$$ m = modal masses $$$$ i $$$$ $$$$ b = m 2 pi f g(f ) $$$$ i i i i $$$$ $$$$ 2 2 $$$$ k = m 4 pi f $$$$ i i i $$$$ $$$$ Direct input matrices may be complex. GKAM USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/ NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 59, 62 ****FILE 116 $$$$ CEAD extracts complex eigenvalues and eigenvectors from the equation $$$$ $$$$ 2 $$$$ [M p + B p + K ] {u } = 0 $$$$ hh hh hh h $$$$ $$$$ and normalizes eigenvectors according to one of the following user $$$$ requests: $$$$ 1. Unit magnitude of a selected component. $$$$ 2. Unit magnitude of the largest component. CEAD KHH,BHH,MHH,EED,CASEXX/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 117 $$$$ OFP formats the summary of eigenvalue extraction information (OCEIGS) $$$$ prepared by CEAD and places it on the system output file for printing. OFP OCEIGS,,,,,//S,N,CARDNO $ ****CARD 56- 62 ****FILE 117 $$$$ Go to label LBL17 if no complexe eigenvalues were found. COND LBL17,EIGVS $ ****CARD 1- 6, 8- 12, 14, 19, 21- 24, 56- 62 ****FILE 117,118 $$$$ OFP formats the complex eigenvalues (CLAMA) prepared by CEAD and places $$$$ them on the system output file for printing. OFP CLAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 22- 24 ****FILE 117 $$$$ VDR prepares eigenvectors (OPHIH) for output, using only the extra points $$$$ introduced for dynamic analysis and modal coordinates. VDR CASEXX,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/ NOSORT2/S,N,NOH/S,N,NOP/FMODE $ ****CARD 19, 21 ****FILE 118 $$$$ Go to label LBL16 if there is no output request for the extra points $$$$ introduced for dynamic analysis or modal coordinates. COND LBL16,NOH $ ****CARD 21 ****FILE 118 $$$$ OFP formats the table of eigenvectors for extra points introduced for $$$$ dynamic analysis and modal coordinates prepared by VDR and places it on $$$$ the system output file for printing. OFP OPHIH,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 118 $$$$ Go to label LBL16 if there is no output request involving dependent $$$$ degrees of freedom LABEL LBL16 $ ****CARD 21 ****FILE 117,118 $$$$ Go to label LBL17 if there is no output request involving dependent $$$$ degrees of freedom or forces and stresses. COND LBL17,NOP $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 119 $$$$ DDR1 transforms the complex eigenvectors from modal to physical $$$$ coordinates $$$$ $$$$ [phi ] = [phi ][phi ] $$$$ d dh h $$$$ DDR1 PHIH,PHIDH/CPHID $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 119 $$$$ Equivalence [phi ] to [phi ] if no constraints are applied. $$$$ d p $$$$ EQUIV CPHID,CPHIP/NOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 120 ****RFMT 187-195,197-204,207-209 $$$$ Go to label LBLNOA if no constraints are applied. COND LBLNOA,NOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 120 ****RFMT 187-195,197-204,207-209 $$$$ SDR1 recovers dependent components of eigenvectors $$$$ $$$$ phi $$$$ phi d $$$$ {phi } = [G ]{phi } {----} = {phi + phi } $$$$ o o d phi f e $$$$ o $$$$ $$$$ phi +phi $$$$ f e d $$$$ {---------} = {phi +phi } {phi } = [G ]{phi + phi } $$$$ phi n e m m n e $$$$ s $$$$ $$$$ phi +phi $$$$ n e $$$$ {---------} = {phi } $$$$ phi p $$$$ m $$$$ T $$$$ and recovers single-point forces of constraint {q } = [K ] {phi }. $$$$ s fs f $$$$ SDR1 USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 120 ****RFMT 187-195,197-204,207-209 $$$$ LABEL LBLNOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 120 ****RFMT 187-195,197-204,207-209 $$$$ SDR2 calculates element forces (OEFC1) and stresses (OESC1) and prepares $$$$ eigenvectors (OCPHIP) and single-point forces of constraint (OQPC1) for $$$$ output. SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,CLAMA,QPC,CPHIP,EST,,,/ ,OQPC1,OCPHIP,OESC1,OEFC1,,,/*CEIGEN* $ ****CARD 19 ****FILE 121 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OCPHIP,OQPC1,OEFC1,OESC1,,//S,N,CARDNO $ ****CARD 19 ****FILE 121 $$$$ LABEL LBL17 $ ****CARD 1- 6, 8- 12, 14, 19, 21- 24, 56- 62 $$$$ Go to label FINIS and make normal exit if no additional sets of direct $$$$ input matrices need to be processed. COND FINIS,REPEATE $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-195,197-204,207-209 $$$$ Go to label LBL13 if additional sets of direct input matrices need to be $$$$ processed. REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-195,197-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*MDLCEAD* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-195,197-204,207-209 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 56, 58, 60 ****FILE 101 ****RFMT 187-195,197-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*MDLCEAD* $ ****CARD 1, 9- 12, 56, 58, 60 ****FILE 101 ****RFMT 187-195,197-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 ****RFMT 187-195,197-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*MDLCEAD* $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 ****RFMT 187-195,197-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 8- 12, 14, 24, 58, 59 ****FILE 112 ****RFMT 187-195,197-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*MDLCEAD* $ ****CARD 1- 6, 8- 12, 14, 24, 58, 59 ****FILE 112 ****RFMT 187-195,197-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1, 2, 5, 6, 8, 16 ****FILE 97 ****RFMT 187-195,197-204,207-209 $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*MDLCEAD* $ ****CARD 1, 2, 5, 6, 8, 16 ****FILE 97 ****RFMT 187-195,197-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 25, 56- 62 ****RFMT 187-195,197-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 ASETOUT 18 PLOT$ 19 POUT$ 20 AUTOSPC 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 56 EPOINT SEQEP TF 57 DMIG DMIAX B2PP$ K2PP$ M2PP$ TF$ 58 EIGR 59 METHOD$ 60 EIGC EIGP 61 CMETHOD$ 62 LFREQ LMODES HFREQ SDAMP$ TABDMP1 $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KOO LOO KAA 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 EED EQDYN GPLD SILD TFPOOL USETD 112 LAMA MI PHIA OEIGS 113 CASEXX 114 B2PP K2PP M2PP 115 GMD GOD B2DD K2DD M2DD 116 BHH KHH MHH PHIDH 117 CLAMA OCEIGS PHIH 118 OPHIH 119 CPHID 120 CPHIP QPC 121 OCPHIP OEFC1 OESC1 OQPC1 122 ELSETS GPSETS PLTPAR PLTSETX 123 MAA 124 KDICT KELM MDICT MELM 125 PLOTX1 126 OGPWG 127 BGPDP SIP $* =PAGE= DISP11 APR.93 $$$$$$$$ BEGIN DISP 11 - MODAL FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1993 $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ FILE GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 12, 14, 15, 19, 21, 24, 29, 59, 60 ****FILE 101,112,118,119,122,123,136 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 141 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 126,135 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 126,135 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 126 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 126 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 135 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 135 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 135 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 135 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 135 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 126,135 $$$$ GP3 generates Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****FILE 97 $$$$ Go to label ERROR7 and print Error Message No. 7 if there are no $$$$ structural elements. COND ERROR7,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8, 24 ****FILE 128 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 24 ****FILE 128 ****RFMT 187,190-192 $$$$ EMG generates structural element stiffness, mass and damping matrix $$$$ tables, and dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 128 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPKGGX if no stiffness matrix is to be assembled. COND JMPKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 128 $$$$ LABEL JMPKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to $$$$ be assembled. COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 24 ****FILE 128 ****RFMT 187,190-192 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 128 $$$$ Go to label LGPWG if no weight and balance information is requested. COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 136 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 136 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 136 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 136 $$$$ x $$$$ Equivalence [K ] to [K ] if no general elements exist. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ Go to LBL11 if no general elements exist. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET) $$$$ and forms multipoint constraint equations [R ] {u } = 0. $$$$ g g $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 28, 29 ****FILE 101 $$$$ OFP formats the table of potential grid point similarities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 29 ****FILE 101 $$$$ PARAM //*AND*/NOSR/REACT/SINGLE $ ****CARD 1, 9- 12 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF/SINGLE/QPC/NOSR/KLR,KRR,MLR, MRR,DM,MR/REACT/MDD/MODACC $ ****CARD 1, 9- 12 ****FILE 103,105-107,109,110,115,117,121 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no multipoint $$$$ gg nn gg nn $$$$ constraints exist. EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness and mass matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |M |M | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ gg |K |K | gg |M |M | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ and performs the matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [G ][M ] + [M ][G ] + [G ][M ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no single-point $$$$ nn ff nn ff $$$$ constraints exist. $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn |K |K | nn |M |M | $$$$ | sf| ss| | sf| ss| $$$$ + + + + $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ Equivalence {K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Equivalence [M ] to [M ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 127 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,127 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP2 partitions constrained mass matrix $$$$ $$$$ +_ + $$$$ |M |M | $$$$ | aa| ao| $$$$ [M ] = |---+---| $$$$ ff |M |M | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [M ][G ] + [G ][M ] + [G ][M ][G ] $$$$ aa aa oa o o ao o oo o $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 127 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,127 $$$$ Equivalence [K ] to [K ] if no free-body supports exist. $$$$ aa ll $$$$ EQUIV KAA,KLL/REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ Go to label LBL6 if no free-body supports exist. COND LBL6,REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ RBMG1 partitions out free-body supports $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ll| lr| | ll| lr| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ aa |K |K | aa |M |M | $$$$ | rl| rr| | rl| rr| $$$$ + + + + $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ Go to label LBL8. JUMP LBL8 $ ****CARD 1- 4, 6, 8- 12 ****FILE 107 $$$$ LABEL LBL6 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ Go to label LBL7 if there is no request for mode acceleration data $$$$ recovery. COND LBL7,MODACC $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 108-110 $$$$ LABEL LBL8 $ ****CARD 1- 4, 6, 8- 12 ****FILE 107 $$$$ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ ll ll ll $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12 ****FILE 108 $$$$ Go to label LBL7 if no free-body supports exist. COND LBL7,REACT $ ****CARD 1- 4, 6, 8- 12, 14, 24 ****FILE 109 $$$$ RBMG3 forms rigid body transformation matrix $$$$ $$$$ -1 $$$$ [D] = -[K ] [K ] $$$$ ll lr $$$$ $$$$ calculates rigid body check matrix $$$$ $$$$ T $$$$ [X] = [K ] + [K ][D] $$$$ rr lr $$$$ $$$$ and calculates rigid body error ratio $$$$ $$$$ $$$$ ||X|| $$$$ epsilon = --------- $$$$ ||K || $$$$ rr $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12 ****FILE 109 $$$$ RBMG4 forms rigid body mass matrix $$$$ $$$$ T T T $$$$ [m ] = [M ] + [M ][D] + [D ][M ] + [D ][M ][D] $$$$ r rr lr lr ll $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 110 $$$$ LABEL LBL7 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 108-110 $$$$ DPD generates flags defining members of various displacement sets used in $$$$ dynamic analysis (USETD), tables relating the internal and external grid $$$$ point numbers (GPLD), including extra points introduced for dynamic $$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL), Dynamic $$$$ Loads Table (DLT), Power Spectral Density List (PSDL), Frequency Response $$$$ List (FRL), and Eigenvalue Extraction Data (EED). DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,, EED,EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ S,N,NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $ ****CARD 1, 9- 12, 55, 56, 58, 59 ****FILE 111 $$$$ Go to label ERROR2 and print Error Message No. 2 if there is no $$$$ Eigenvalue Extraction Data. COND ERROR2,NOEED $ ****CARD 1, 9- 12, 55, 56, 58, 59 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ PURGE UEVF/NOUE $ ****CARD 1, 9- 12, 55, 56, 58, 59 ****FILE 120 $$$$ d d $$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points $$$$ o o m m $$$$ introduced for dynamic analysis. EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56, 57, 59, 60 ****FILE 115 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 112 $$$$ READ extracts real eigenvalues and eigenvectors from the equation $$$$ $$$$ [K - lambda M ]{u } = 0 $$$$ aa aa a $$$$ $$$$ calculates rigid body modes by finding a square matrix [phi ] such that $$$$ ro $$$$ T $$$$ [m ] = [phi ][m ][phi ] $$$$ o ro r ro $$$$ $$$$ is diagonal and normalized, computes rigid body eigenvectors $$$$ $$$$ + + $$$$ |Dphi | $$$$ | ro | $$$$ [phi ] = |-------| $$$$ ao |phi | $$$$ | ro | $$$$ + + $$$$ $$$$ calculates modal mass matrix $$$$ $$$$ T $$$$ [m] = [phi ][M ][phi ] $$$$ a aa a $$$$ $$$$ and normalizes eigenvectors according to one of the following user $$$$ requests: $$$$ 1. Unit value of a selected component. $$$$ 2. Unit value of the largest component. $$$$ 3. Unit value of the generalized mass. READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 $$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) $$$$ prepared by READ and places it on the system output file for printing. OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 $$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were $$$$ found. COND ERROR4,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 ****RFMT 187-196,198-204,207-209 $$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on $$$$ the system output file for printing. OFP LAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 22, 23 ****FILE 114,115,122,123,125,130-134,137,138,140 $$$$ PARAM //*MPY*/REPEATF/1/-1 $ ****CARD 1- 6, 8- 14, 16, 19- 23, 27, 53- 62 ****FILE 113 ****RFMT 187-196,198-204,207-209 $$$$ Beginning of loop for additional sets of direct input matrices. LABEL LBL13 $ ****SBST 1, 3 ****CARD 1- 6, 8- 16, 18- 23, 53- 62 ****FILE 113 ****RFMT 187-196,198-204,207-209 $$$$ PURGE OUHVC1,OUHVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,K2PP,M2PP, B2PP,K2DD,M2DD,B2DD,OPPCA,IQP1,IPHIP1,IES1,IEF1,OPPCB,IQP2, IPHIP2,IES2,IEF2,ZQPC2,ZUPVC2,ZESC2,ZEFC2,ZQPC1,ZUPVC1,ZESC1, ZEFC1/NEVER $ ****CARD 19- 23, 27 ****FILE 114,115,118,119,122,123,125,130-134,137,138,140 $$$$ CASE extracts the appropriate record from CASECC corresponding to the $$$$ current loop and copies it into CASEXX. CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ ****CARD 1- 6, 8- 14, 16, 19- 23, 25, 27, 53- 62 ****FILE 113 ****RFMT 187-196,198-204,207-209 $$$$ 2 2 2 $$$$ MTRXIN selects the direct input matrices [K ], [M ], and [B ] for the $$$$ pp pp pp $$$$ current loop. MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ ****CARD 1, 22, 23, 56, 57 ****FILE 114 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 115 $$$$ PARAM //*AND*/MDEMA/NOUE/NOM2PP $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 115 $$$$ 2 2 2 2 2 2 $$$$ Equivalence [M ] to [M ], [B ] to [B ], and [K ] to [K ] if no $$$$ pp dd pp dd pp dd $$$$ $$$$ constraints are applied, and [M ] to [M ] if there are no direct input $$$$ aa dd $$$$ mass matrices and no extra points introduced for dynamic analysis. EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 115 $$$$ 2 2 $$$$ GKAD applies constraints to direct input matrices [K ], [M ], and $$$$ pp pp $$$$ 2 2 2 2 $$$$ [B ], forming [K ], [M ], and [B ]. $$$$ pp dd dd dd $$$$ GKAD USETD,GM,GO,,,MAA,,K2PP,M2PP,B2PP/,,MDD,GMD, GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*MODAL*/0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/-1/-1/ 1/V,Y,MODACC = -1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 53, 56, 57, 60 ****FILE 115 $$$$ GKAM assembles stiffness, mass, and damping matrices in modal coordinates $$$$ for use in Frequency Response: $$$$ $$$$ T 2 $$$$ [K ] = [k] + [phi ][K ][phi ] $$$$ hh dh dd dh $$$$ $$$$ T 2 $$$$ [M ] = [m] + [phi ][M ][phi ] $$$$ hh dh dd dh $$$$ $$$$ T 2 $$$$ [B ] = [b] + [phi ][B ][phi ] $$$$ hh dh dd dh $$$$ $$$$ where $$$$ $$$$ m = modal masses $$$$ i $$$$ $$$$ b = m 2 pi f g(f ) $$$$ i i i i $$$$ $$$$ 2 2 $$$$ k = m 4 pi f $$$$ i i i $$$$ $$$$ Direct input matrices may be complex. GKAM USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/ NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56, 57, 59, 60, 62 ****FILE 116 $$$$ Go to label ERROR5 and print Error Message No. 5 if there is no Frequency $$$$ Response List. COND ERROR5,NOFRL $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ Go to label ERROR6 and print Error Message No. 6 if there is no Dynamic $$$$ Loads Table. COND ERROR6,NODLT $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ FRRD forms the dynamic load vectors {P } and solves for displacements $$$$ h $$$$ using the following equation: $$$$ $$$$ 2 $$$$ [-M omega + iB omega + K ] {u } = {P } $$$$ hh hh hh h h $$$$ FRRD CASEXX,USETD,DLT,FRL,GMD,GOD,KHH,BHH,MHH,PHIDH,DIT/UHVF,PSF, PDF,PPF/*DISP*/*MODAL*/LUSETD/MPCF1/SINGLE/ OMIT/NONCUP/S,N,FRQSET $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 117 $$$$ Equivalence {P } to {P } if no constraints are applied. $$$$ p d $$$$ EQUIV PPF,PDF/NOSET $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 117 $$$$ VDR prepares displacements (OUHVC1), sorted by frequency, for output $$$$ using only the extra points introduced for dynamic analysis and modal $$$$ coordinates (solution points). VDR CASEXX,EQDYN,USETD,UHVF,PPF,XYCDB,/OUHVC1,/*FREQRESP*/ *MODAL*/S,N,NOSORT2/S,N,NOH/S,N,NOP/FMODE $ ****CARD 19- 21, 27 ****FILE 118 $$$$ Go to label LBL16 if there is no output request for solution points. COND LBL16,NOH $ ****CARD 21, 27 ****FILE 118,119,137 $$$$ Go to label LBL16A if there is no output request for solution points $$$$ sorted by extra point or mode number. COND LBL16A,NOSORT2 $ ****CARD 21, 27 ****FILE 118,119,137 $$$$ SDR3 sorts the solution point displacements by extra point or mode $$$$ number. SDR3 OUHVC1,,,,,/OUHVC2,,,,, $ ****CARD 21, 27 ****FILE 119 $$$$ OFP formats the requested solution point displacements prepared by SDR3 $$$$ and places them on the system output file for printing. OFP OUHVC2,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 119 $$$$ XYTRAN prepares the input for requested X-Y plots of the solution point $$$$ displacement vs. frequency. XYTRAN XYCDB,OUHVC2,,,,/XYPLTFA/*FREQ*/*HSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 27 ****FILE 137 $$$$ XYPLOT prepares the requested X-Y plots of the solution point $$$$ displacements vs. frequency. XYPLOT XYPLTFA // $ ****SBST 7 ****CARD 27 ****FILE 137 $$$$ Go to label LBL16. JUMP LBL16 $ ****CARD 21, 27 ****FILE 137 $$$$ LABEL LBL16A $ ****CARD 21, 27 ****FILE 118,119,137 $$$$ OFP formats the requested solution point displacements prepared by VDR $$$$ and places them on the system output file for printing. OFP OUHVC1,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 118 $$$$ LABEL LBL16 $ ****CARD 20, 21, 27 ****FILE 118,119,137 $$$$ Go to label LBL14 if there is no output request involving dependent $$$$ degrees of freedom or forces and stresses. COND LBL14,NOP $ ****CARD 1- 6, 8- 12, 14, 19, 20, 22- 24, 26, 53- 62 ****FILE 120-125,129-134,138-140 $$$$ PARAM //*NOT*/NOMOD/V,Y,MODACC $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 $$$$ Go to label LBDDRM if the mode acceleration technique is not requested. COND LBDDRM,MODACC $ ****CARD 1- 6, 8- 12, 14, 19, 20, 22- 24, 53, 56- 62 ****FILE 120-124 $$$$ DDR1 transforms the solution vector of displacements from modal to $$$$ physical coordinates $$$$ $$$$ [u ] = [phi ]{u } $$$$ d dh h $$$$ DDR1 UHVF,PHIDH/UDV1F $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 124 $$$$ DDR2 calculates an improved displacement vector using the mode $$$$ acceleration technique. DDR2 USETD,UDV1F,PDF,K2DD,B2DD,MDD,PPF,LLL,DM/UDV2F,UEVF,PAF/ *FREQRESP*/NOUE/REACT/FRQSET $ ****SBST 2, 3 ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 120 $$$$ Equivalence {u } to the improved displacement vector. (Flag NOMOD is $$$$ d $$$$ negative since the mode acceleration technique is requested.) EQUIV UDV2F,UDV1F/NOMOD $ ****SBST 2, 3 ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 124 $$$$ Equivalence {u } to {u } if no constraints are applied. $$$$ d p $$$$ EQUIV UDV1F,UPVC/NOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 121 ****RFMT 187-196,198-204,207-209 $$$$ Go to label LBLNOA if no constraints are applied. COND LBLNOA,NOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 121 ****RFMT 187-196,198-204,207-209 $$$$ SDR1 recovers dependent components of displacements $$$$ $$$$ u $$$$ d d $$$$ {u } = [G ]{u } {----} = {u + u } $$$$ o o d u f e $$$$ o $$$$ $$$$ u + u $$$$ f e d $$$$ {-------} = {u + u } {u } = [G ]{u + u } $$$$ u n e m m f e $$$$ s $$$$ $$$$ u + u $$$$ n e $$$$ {---------} = {u } $$$$ u p $$$$ m $$$$ T $$$$ and recovers single-point forces of constraint {q } = -{P } + [K ]{u }. $$$$ s s fs f $$$$ SDR1 USETD,,UDV1F,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 121 ****RFMT 187-196,198-204,207-209 $$$$ LABEL LBLNOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 121 ****RFMT 187-196,198-204,207-209 $$$$ SDR2 calculates element forces (OEFC1) and stresses (OESC1) and $$$$ prepares load vectors (OPPC1), displacement, velocity, and acceleration $$$$ vectors (OUPVC1), and single-point forces of constraint (OQPC1) for output $$$$ and translation components of the displacement vector (PUGV), sorted by $$$$ frequency. SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST, XYCDB,PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUGV,,/*FREQ*/ S,N,NOSORT2 $ ****CARD 19, 20 ****FILE 122 $$$$ Go to label LBL18 if there are no requests for output sorted by point $$$$ number or element number. COND LBL18,NOSORT2 $ ****CARD 1- 6, 8- 12, 14, 19, 20, 22- 24, 26, 53- 62 ****FILE 122,123,125,129-134,138-140 $$$$ SDR3 prepares the requested output sorted by point number or element $$$$ number. SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2, OEFC2, $ ****CARD 19, 20 ****FILE 123 $$$$ Go to label P2A. JUMP P2A $ ****CARD 19, 20 ****FILE 123 $$$$ LABEL LBDDRM $ ****CARD 1- 6, 8- 12, 14, 19, 20, 22- 24, 53, 56- 62 ****FILE 120-124 $$$$ SDR1 recovers dependent components of eigenvectors $$$$ $$$$ phi $$$$ d n $$$$ {phi } = [G ]{phi } {----} = {phi + phi } $$$$ o o n phi f e $$$$ o $$$$ $$$$ phi +phi $$$$ f e d $$$$ {---------} = {phi +phi } {phi } = [G ]{phi + phi } $$$$ phi n e m m n e $$$$ s $$$$ $$$$ phi +phi $$$$ n e $$$$ {---------} = {phi + u } = {phi } $$$$ phi g e p $$$$ m $$$$ T $$$$ and recovers single-point forces of constraint {q } = [K ] {phi }. $$$$ s fs f $$$$ SDR1 USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIPH,,QPH/1/*DYNAMICS* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 53, 56- 62 ****FILE 129 ****RFMT 187-196,198-204,207-209 $$$$ SDR2 calculates element forces (IEF1) and stresses (IES1) and prepares $$$$ eigenvectors (IPHIP1) and single-point forces of constraint (IQP1) for $$$$ output sorted by frequency. SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,LAMA,QPH,PHIPH,EST,XYCDB,,/ ,IQP1,IPHIP1,IES1,IEF1,,,/*MMREIG*/S,N,NOSORT2 $ ****CARD 19, 20 ****FILE 130 $$$$ SDR2 prepares load vectors for output (OPPCA) sorted by frequency. SDR2 CASEXX,CSTM,MPT,,EQDYN,SILD,,,,PPF,,,EST,XYCDB,PPF,/OPPCA, ,,,,,,/*FREQ* $ ****CARD 19, 20 ****FILE 131 $$$$ Equivalence OPPCA to OPPC1. (Flag MODACC is negative since the $$$$ mode acceleration technique is not requested.) EQUIV OPPCA,OPPC1/MODACC $ ****CARD 19, 20 ****FILE 122 $$$$ Go to label LBLSORT if there are no requests for output sorted by point $$$$ number or element number. COND LBLSORT,NOSORT2 $ ****CARD 19, 20 ****FILE 123,132,133 $$$$ SDR3 prepares the requested output sorted by point number or element $$$$ number. SDR3 IQP1,IPHIP1,IES1,IEF1,OPPCA,/IQP2,IPHIP2,IES2,IEF2,OPPCB, $ ****CARD 19, 20 ****FILE 132 $$$$ Equivalence OPPCB to OPPC2. (Flag MODACC is negative since the $$$$ mode acceleration technique is not requested.) EQUIV OPPCB,OPPC2/MODACC $ ****CARD 19, 20 ****FILE 123 $$$$ DDRMM prepares a subset of the element forces (ZEFC2) and stresses $$$$ (ZESC2), and displacement vectors (ZUPVC2) and single-point forces of $$$$ constraint (ZQPC2) for output sorted by point number or element number. DDRMM CASEXX,UHVF,PPF,IPHIP2,IQP2,IES2,IEF2,XYCDB,EST,MPT,DIT/ ZUPVC2,ZQPC2,ZESC2,ZEFC2, $ ****CARD 19, 20 ****FILE 133 $$$$ Equivalence ZUPVC2 to OUPVC2, ZQPC2 to OQPC2, ZESC2 to OESC2, and ZEFC2 $$$$ to OEFC2. (Flag MODACC is negative since the mode acceleration technique $$$$ is not requested.) EQUIV ZUPVC2,OUPVC2/MODACC/ZQPC2,OQPC2/MODACC/ZESC2,OESC2/MODACC/ ZEFC2,OEFC2/MODACC $ ****CARD 19, 20 ****FILE 123 $$$$ Go to label P2A. JUMP P2A $ ****CARD 19, 20 ****FILE 123 $$$$ LABEL LBLSORT $ ****CARD 19, 20 ****FILE 123,132,133 $$$$ DDRMM prepares a subset of the element forces (ZEFC2) and stresses $$$$ (ZESC2), and displacement vectors (ZUPVC2) and single-point forces of $$$$ constraint (ZQPC2) for output sorted by frequency. DDRMM CASEXX,UHVF,PPF,IPHIP1,IQP1,IES1,IEF1,,EST,MPT,DIT/ ZUPVC1,ZQPC1,ZESC1,ZEFC1, $ ****CARD 19, 20 ****FILE 134 $$$$ Equivalence ZUPVC1 to OUPVC1, ZQPC1 to OQPC1, ZESC1 to OESC1, and ZEFC1 $$$$ to OEFC1. (Flag MODACC is negative since the mode acceleration technique $$$$ is not requested.) EQUIV ZUPVC1,OUPVC1/MODACC/ZQPC1,OQPC1/MODACC/ZESC1,OESC1/MODACC/ ZEFC1,OEFC1/MODACC $ ****CARD 19, 20 ****FILE 122 $$$$ Go to label LBL18. JUMP LBL18 $ ****CARD 19, 20 ****FILE 134 $$$$ LABEL P2A $ ****CARD 19, 20 ****FILE 123 $$$$ OFP formats the requested output prepared by SDR3 (with mode $$$$ acceleration) or DDRMM (no mode acceleration) and places it on the system $$$$ output file for printing. OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $ ****CARD 19 ****FILE 123 $$$$ XYTRAN prepares the input for requested X-Y plots. XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 138 $$$$ XYPLOT prepares the requested X-Y plots of displacements, forces, $$$$ stresses, loads, and single-point forces of constraint vs. frequency. XYPLOT XYPLTF// $ ****SBST 7 ****CARD 20 ****FILE 138 $$$$ Go to label LBL21 if no deformed structure plots are requested. COND LBL21,JUMPPLOT $ ****SBST 7 ****CARD 20 ****FILE 139 $$$$ PLOT generates all requested deformed structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,,,,/ PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 20 ****FILE 139 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 20 ****FILE 139 $$$$ LABEL LBL21 $ ****SBST 7 ****CARD 20 ****FILE 139 $$$$ Go to label LBL14 if no power spectral density functions or $$$$ autocorrelation functions are requested. COND LBL14,NOPSDL $ ****CARD 20, 26, 54, 55 ****FILE 125 ****RFMT 187-196,198-204,207-209 $$$$ RANDOM calculates the power spectral density functions (PSDF) and $$$$ autocorrelation functions (AUTO) using the previously calculated $$$$ frequency response. RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ ****CARD 26, 54, 55 ****FILE 125 ****RFMT 187-196,198-204,207-209 $$$$ Go to label LBL14 if no X-Y plots of RANDOM calculations are requested. COND LBL14,NORD $ ****CARD 26, 54, 55 ****FILE 140 $$$$ XYTRAN prepares the input for requested X-Y plots of the RANDOM output. XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 140 $$$$ XYPLOT prepares the requested X-Y plots of autocorrelation functions and $$$$ power spectral density functions. XYPLOT XYPLTR// $ ****SBST 7 ****CARD 20 ****FILE 140 $$$$ Go to label LBL14. JUMP LBL14 $ ****CARD 20 ****FILE 140 $$$$ LABEL LBL18 $ ****CARD 1- 6, 8- 12, 14, 19, 20, 22- 24, 26, 53- 62 ****FILE 122,123,125,129-134,138-140 $$$$ OFP formats the frequency response output requests prepared by SDR2 (with $$$$ mode acceleration) or DDRMM (no mode acceleration) and places them on the $$$$ system output file for printing. OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $ ****CARD 19 ****FILE 122 $$$$ LABEL LBL14 $ ****CARD 1- 6, 8- 12, 14, 19, 20, 22- 24, 26, 53- 62 ****FILE 120-125,129-134,138-140 $$$$ Go to label FINIS and make normal exit if no additional sets of direct $$$$ input matrices need to be processed. COND FINIS,REPEATF $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-196,198-204,207-209 $$$$ Go to label LBL13 if additional sets of direct input matrices need to be $$$$ processed. REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-196,198-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*MDLFRRD* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-196,198-204,207-209 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 55, 56, 58, 59 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*MDLFRRD* $ ****CARD 1, 9- 12, 55, 56, 58, 59 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 128 ****RFMT 187-196,198-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*MDLFRRD* $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 128 ****RFMT 187-196,198-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 ****RFMT 187-196,198-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*MDLFRRD* $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 ****RFMT 187-196,198-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*MDLFRRD* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ Print Error Message No. 6 and terminate execution. PRTPARM //-6/*MDLFRRD* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 111 ****RFMT 187-196,198-204,207-209 $$$$ LABEL ERROR7 $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-196,198-204,207-209 $$$$ Print Error Message No. 7 and terminate execution. PRTPARM //-7/*MDLFRRD* $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-196,198-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 16, 18- 29, 53- 62 ****RFMT 187-196,198-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 26 RANDOM$ 27 AXYOUT$ 28 ASETOUT 29 AUTOSPC 53 MODACC 54 TABRND1 TABRND2 TABRND3 TABRND4 55 RANDPS RANDT1 RANDT2 56 EPOINT SEQEP TF 57 DMIAX DMIG B2PP$ K2PP$ M2PP$ TF$ 58 DAREA DELAY DLOAD DPHASE FREQ FREQ1 FREQ2 58 RLOAD1 RLOAD2 TABLED1 TABLED2 TABLED3 TABLED4 59 EIGR 60 METHOD$ 61 DECOMOPT DLOAD$ FREQ$ 62 HFREQ LFREQ LMODES TABDMP1 SDAMP$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KOO LOO KAA 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 DLT EED EQDYN FRL GPLD PSDL SILD 111 TFPOOL USETD 112 LAMA MI OEIGS PHIA 113 CASEXX 114 B2PP K2PP M2PP 115 B2DD GMD GOD K2DD M2DD MDD 116 BHH KHH MHH PHIDH 117 PDF PPF PSF UHVF 118 OUHVC1 119 OUHVC2 120 PAF UDV2F UEVF 121 QPC UPVC 122 OEFC1 OESC1 OPPC1 OQPC1 OUPVC1 123 OEFC2 OESC2 OPPC2 OQPC2 OUPVC2 124 UDV1F 125 AUTO PSDF 126 ELSETS GPSETS PLTPAR PLTSETX 127 MAA 128 KDICT KELM MDICT MELM 129 PHIPH QPH 130 IEF1 IES1 IPHIP1 IQP1 131 OPPCA 132 IEF2 IES2 IPHIP2 OPPCB IQP2 133 ZEFC2 ZESC2 ZQPC2 ZUPVC2 134 ZEFC1 ZESC1 ZQPC1 ZUPVC1 135 PLOTX1 136 OGPWG 137 XYPLTFA 138 XYPLTF 139 PLOTX2 140 XYPLTR 141 BGPDP SIP $* =PAGE= DISP12 APR.93 $$$$$$$$ BEGIN DISP 12 - MODAL TRANSIENT RESPONSE ANALYSIS - APR. 1993 $ ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ PRECHK ALL $ ****SBST 6 ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ FILE LAMA=APPEND/PHIA=APPEND/UHVT=APPEND/TOL=APPEND $ ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 12, 14, 15, 19, 21, 24, 28, 59, 60 ****FILE 101,112,119,123,134 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 138 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 125,133 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125,133 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 133 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 133 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 133 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 133 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 133 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125,133 $$$$ GP3 generates Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ ****CARD 1, 2, 13, 61 ****FILE 96 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 28, 55- 62 ****FILE 97 $$$$ Go to label ERROR6 and print Error Message No. 6 if there are no $$$$ structural elements. COND ERROR6,NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 127 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8 ****FILE 127 ****RFMT 187,190-192 $$$$ EMG generates structural element stiffness, mass and damping matrix $$$$ tables, and dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 24 ****FILE 127 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPKGGX if no stiffness matrix is to be assembled. COND JMPKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 127 $$$$ LABEL JMPKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to $$$$ be assembled. COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 127 ****RFMT 187,190-192 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 127 $$$$ Go to label LGPWG if no weight and balance information is requested. COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 134 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 134 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 134 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 134 $$$$ x $$$$ Equivalence [K ] to [K ] if no general elements exist. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 8 ****FILE 100 $$$$ Go to label LBL11 if no general elements exist. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET) $$$$ and forms multipoint constraint equations [R ] {u } = 0. $$$$ g g $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 26, 28 ****FILE 101 $$$$ OFP formats the table of potential grid point singularities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 28 ****FILE 101 $$$$ PARAM //*AND*/NOSR/REACT/SINGLE $ ****CARD 1, 9- 12 ****FILE 121 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST/SINGLE/QP/NOSR/KLR,KRR,MLR,MR, MRR,DM/REACT $ ****CARD 1, 9- 12 ****FILE 103,105-107,109,110,114,117,121 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no multipoint $$$$ gg nn gg nn $$$$ constraints exist. EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness and mass matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |M |M | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ gg |K |K | gg |M |M | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ and performs the matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [G ][M ] + [M ][G ] + [G ][M ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no single-point $$$$ nn ff nn ff $$$$ constraints exist. EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn |K |K | nn |M |M | $$$$ | sf| ss| | sf| ss| $$$$ + + + + $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Equivalence [M ] to [M ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 126 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,126 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP2 partitions constrained mass matrix $$$$ $$$$ +_ + $$$$ |M |M | $$$$ | aa| ao| $$$$ [M ] = |---+---| $$$$ ff |M |M | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [M ][G ] + [G ][M ] + [G ][M ][G ] $$$$ aa aa oa o o ao o oo o $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 126 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,126 $$$$ Equivalence [K ] to [K ] if no free-body supports exist. $$$$ aa ll $$$$ EQUIV KAA,KLL/REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ Go to label LBL6 if no free-body supports exist. COND LBL6,REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ RBMG1 partitions out free-body supports $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ll| lr| | ll| lr| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ aa |K |K | aa |M |M | $$$$ | rl| rr| | rl| rr| $$$$ + + + + $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ Go to label LBL8. JUMP LBL8 $ ****CARD 1- 4, 6, 8- 12 ****FILE 107 $$$$ LABEL LBL6 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ Go to label LBL7 if there is no request for mode acceleration data $$$$ recovery. COND LBL7,MODACC $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 108-110 $$$$ LABEL LBL8 $ ****CARD 1- 4, 6, 8- 12 ****FILE 107 $$$$ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ ll ll ll $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12 ****FILE 108 $$$$ Go to label LBL7 if no free-body supports exist. COND LBL7,REACT $ ****CARD 1- 4, 6, 8- 12 ****FILE 109 $$$$ RBMG3 forms rigid body transformation matrix $$$$ $$$$ -1 $$$$ [D] = -[K ] [K ] $$$$ ll lr $$$$ $$$$ calculates rigid body check matrix $$$$ $$$$ T $$$$ [X] = [K ] + [K ][D] $$$$ rr lr $$$$ $$$$ and calculates rigid body error ratio $$$$ $$$$ $$$$ ||X|| $$$$ epsilon = --------- $$$$ ||K || $$$$ rr $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12 ****FILE 109 $$$$ RBMG4 forms rigid body mass matrix $$$$ $$$$ T T T $$$$ [m ] = [M ] + [M ][D] + [D ][M ] + [D ][M ][D] $$$$ r rr lr lr ll $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 110 $$$$ LABEL LBL7 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 108-110 $$$$ DPD generates flags defining members of various displacement sets used in $$$$ dynamic analysis (USETD), tables relating the internal and external grid $$$$ point numbers (GPLD), including extra points introduced for dynamic $$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL), Dynamic $$$$ Loads Table (DLT), Nonlinear Function Table (NLFT), and Transient $$$$ Response List (TRL). DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL, EED ,EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/ NOFRL/S,N,NONLFT/S,N,NOTRL/S,N,NOEED//S,N,NOUE $ ****CARD 1, 9- 12, 56, 58, 59 ****FILE 111 $$$$ Go to label ERROR2 and print Error Message No. 2 if there is no $$$$ Eigenvalue Extraction Data. COND ERROR2,NOEED $ ****CARD 1, 9- 12, 56, 58, 59 ****FILE 111 ****RFMT 187-197,199-204,207-209 $$$$ PURGE UEVT/NOUE/PNLH/NONLFT $ ****CARD 1, 9- 12, 56, 58, 59 ****FILE 120,128 $$$$ d d $$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points $$$$ o o m m $$$$ introduced for dynamic analysis. EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 57, 59, 60 ****FILE 114 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 112 $$$$ READ extracts real eigenvalues and eigenvectors from the equation $$$$ $$$$ [K - lambda M ]{u } = 0 $$$$ aa aa a $$$$ $$$$ calculates rigid body modes by finding a square matrix [phi ] such that $$$$ ro $$$$ T $$$$ [m ] = [phi ][m ][phi ] $$$$ o ro r ro $$$$ $$$$ is diagonal and normalized, computes rigid body eigenvectors $$$$ $$$$ + + $$$$ |Dphi | $$$$ | ro | $$$$ [phi ] = |-------| $$$$ ao |phi | $$$$ | ro | $$$$ + + $$$$ $$$$ calculates modal mass matrix $$$$ $$$$ T $$$$ [m] = [phi ][M ][phi ] $$$$ a aa a $$$$ $$$$ and normalizes eigenvectors according to one of the following user $$$$ requests: $$$$ 1. Unit value of a selected component. $$$$ 2. Unit value of the largest component. $$$$ 3. Unit value of the generalized mass. READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N, NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 $$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) $$$$ prepared by READ and places it on the system output file for printing. OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 $$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were $$$$ found. COND ERROR4,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 ****RFMT 187-197,199-204,207-209 $$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on $$$$ the system output file for printing. OFP LAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 $$$$ 2 2 2 $$$$ MTRXIN selects the direct input matrices [K ], [M ], and [B ]. $$$$ pp pp pp $$$$ MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N, NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ ****CARD 1, 22, 23, 56, 57 ****FILE 113 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 113 $$$$ PARAM //*AND*/MDEMA/NOUE/NOM2PP $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 113 $$$$ 2 2 2 2 2 2 $$$$ Equivalence [M ] to [M ], [B ] to [B ], and [K ] to [K ] if no $$$$ pp dd pp dd pp dd $$$$ $$$$ constraints are applied, and [M ] to [M ] if there are no direct input $$$$ aa dd $$$$ mass matrices and no extra points introduced for dynamic analysis. EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA $ ****CARD 1- 6, 8- 11, 22, 23, 56, 57 ****FILE 113 $$$$ 2 2 $$$$ GKAD applies constraints to direct input matrices [K ], [M ], and $$$$ pp pp $$$$ 2 2 2 2 $$$$ [B ], forming [K ], [M ], and [B ]. $$$$ pp dd dd dd $$$$ GKAD USETD,GM,GO,,,MAA,,K2PP,M2PP,B2PP/,,MDD,GMD, GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*MODAL*/0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/-1/-1/ 1/V,Y,MODACC = -1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 55- 57, 60 ****FILE 114 $$$$ GKAM assembles stiffness, mass, and damping matrices in modal coordinates $$$$ for use in Transient Response: $$$$ $$$$ T 2 $$$$ [K ] = [k] + [phi ][K ][phi ] $$$$ hh dh dd dh $$$$ $$$$ T 2 $$$$ [M ] = [m] + [phi ][M ][phi ] $$$$ hh dh dd dh $$$$ $$$$ T 2 $$$$ [B ] = [b] + [phi ][B ][phi ] $$$$ hh dh dd dh $$$$ $$$$ where $$$$ $$$$ m = modal masses $$$$ i $$$$ $$$$ b = m 2 pi f g(f ) $$$$ i i i i $$$$ $$$$ 2 2 $$$$ k = m 4 pi f $$$$ i i i $$$$ $$$$ All matrices are real. GKAM USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,PHIDH/ NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/ NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56, 57, 59, 60, 62 ****FILE 115 $$$$ Go to label ERROR5 and print Error Message No. 5 if there is no Transient $$$$ Response List. COND ERROR5,NOTRL $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56, 57, 59, 60, 62 ****FILE 117 ****RFMT 187-197,199-204,207-209 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 22, 23 ****FILE 118,119,122,123,128,130-132 $$$$ PARAM //*MPY*/REPEATT/1/-1 $ ****CARD 1- 6, 8- 14, 16, 19- 24, 27, 55- 62 ****FILE 116 ****RFMT 187-197,199-204,207-209 $$$$ Beginning of loop for additional dynamic load sets. LABEL LBL13 $ ****SBST 1, 3 ****CARD 1- 6, 8- 16, 18- 24, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ PURGE PNLH,OUHV1,OPNL1,OUHV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1,OEF1, OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT,OPPA,IQP1,IPHIP1,IES1, IEF1,OPPB,IQP2,IPHIP2,IES2,IEF2,ZQP2,ZUPV2,ZES2,ZEF2/NEVER $ ****CARD 19- 23, 27 ****FILE 118,119,122,123,128,130-132,135-137,139 $$$$ CASE extracts the appropriate record from CASECC corresponding to the $$$$ current loop and copies it into CASEXX. CASE CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $ ****CARD 1- 6, 8- 14, 16, 19- 25, 27, 55- 62 ****FILE 116 ****RFMT 187-197,199-204,207-209 $$$$ PARAM //*MPY*/NCOL/0/1 $ ****SBST 4 ****CARD 1- 6, 8- 12, 14, 24, 56, 57, 59, 60 ****FILE 117 $$$$ t t t $$$$ TRLG generates matrices of loads versus time. {P }, {P }, and {P } are $$$$ p s d $$$$ generated with one column per output time step. {P } and {P } are $$$$ d h $$$$ generated with one column per solution time step, and the Transient $$$$ Output List (TOL) is a list of output time steps. TRLG CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,PHIDH, EST,MGG,/PPT,PST,PDT,PD,PH,TOL/S,N,NOSET/NCOL $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 117 $$$$ t t $$$$ Equivalence {P } to {P } if the d and p sets are the same. $$$$ d p $$$$ EQUIV PPT,PDT/NOSET $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 117 $$$$ nl $$$$ TRD forms the linear, {P }, and nonlinear, {P }, dynamic load vectors $$$$ d d $$$$ and integrates the equations of motion over specified time periods to $$$$ solve for the displacements, velocities, and accelerations, using the $$$$ following equation: $$$$ $$$$ 2 nl $$$$ [M p + B p + K ]{u } = {P } + {P } $$$$ hh hh hh h h h $$$$ TRD CASEXX,TRL,NLFT,DIT,KHH,BHH,MHH,PH/UHVT,PNLH/*MODAL*/ NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $ ****CARD 1- 6, 8- 12, 14, 17, 22- 24, 56- 62 ****FILE 128 $$$$ VDR prepares displacements, velocities, and accelerations, sorted by time $$$$ step, for output using only the extra points introduced for dynamic $$$$ analysis and modal coordinates (solution points). VDR CASEXX,EQDYN,USETD,UHVT,TOL,XYCDB,PNLH/OUHV1,OPNL1/ *TRANRESP*/*MODAL*/0/S,N,NOH/S,N,NOP/FMODE $ ****CARD 19- 21, 27 ****FILE 118 $$$$ Go to label LBL16 if there is no output request for the solution points. COND LBL16,NOH $ ****CARD 21, 27 ****FILE 119,135 $$$$ SDR3 sorts the solution point displacements, velocities, accelerations, $$$$ and nonlinear load vectors by extra point or mode number. SDR3 OUHV1,OPNL1,,,,/OUHV2,OPNL2,,,, $ ****CARD 21, 27 ****FILE 119 $$$$ OFP formats the requested solution point displacements, velocities, $$$$ accelerations, and nonlinear load vectors prepared by SDR3 and places $$$$ them on the system output file for printing. OFP OUHV2,OPNL2,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 119 $$$$ XYTRAN prepares the input for X-Y plotting of the solution point $$$$ displacements, velocities, accelerations, and nonlinear load vectors vs. $$$$ time. XYTRAN XYCDB,OUHV2,OPNL2,,,/XYPLTTA/*TRAN*/*HSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 27 ****FILE 135 $$$$ XYPLOT prepares the requested X-Y plots of the solution point $$$$ displacements, velocities, accelerations, and nonlinear load vectors vs. $$$$ time. XYPLOT XYPLTTA// $ ****SBST 7 ****CARD 27 ****FILE 135 $$$$ LABEL LBL16 $ ****CARD 21, 27 ****FILE 119,135 $$$$ PARAM //*AND*/PJUMP/NOP/JUMPPLOT $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 120 $$$$ Go to label LBL15 if there is no output request involving dependent $$$$ degrees of freedom, forces and stresses, or deformed structure plots. COND LBL15,PJUMP $ ****CARD 1- 6, 8- 12, 14, 18- 20, 22- 24, 55- 62 ****FILE 120-124,129-132,136,137,139 $$$$ PARAM //*NOT*/NOMOD/V,Y,MODACC $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 124 $$$$ PARAM //*AND*/MPJUMP/V,Y,MODACC/JUMPPLOT $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 120-124 $$$$ Go to label LBDDRM if the mode acceleration technique is not requested $$$$ and if there are no requests for deformed structure plots. COND LBDDRM,MPJUMP $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 120-124 $$$$ DDR1 transforms the solution vector of displacements from modal to $$$$ physical coordinates $$$$ $$$$ [u ] = [phi ]{u } $$$$ d dh h $$$$ DDR1 UHVT,PHIDH/UDV1T $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56- 62 ****FILE 124 $$$$ Go to label LBLMOD if the mode acceleration technique is not requested. COND LBLMOD,MODACC $ ****SBST 2, 3 ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 120 $$$$ DDR2 calculates an improved displacement vector using the mode $$$$ acceleration technique. DDR2 USETD,UDV1T,PDT,K2DD,B2DD,MDD,,LLL,DM/UDV2T,UEVT,PAF/ *TRANRESP*/NOUE/REACT/0 $ ****SBST 2, 3 ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 120 $$$$ Equivalence {u } to the improved displacement vector. (Flag NOMOD is $$$$ d $$$$ negative since the mode acceleration technique is requested.) EQUIV UDV2T,UDV1T/NOMOD $ ****SBST 2, 3 ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 124 $$$$ LABEL LBLMOD $ ****SBST 2, 3 ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 120 $$$$ Equivalence {u } to {u } if no constraints are applied. $$$$ d p $$$$ EQUIV UDV1T,UPV/NOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 121 $$$$ Go to label LBL14 if no constraints are applied. COND LBL14,NOA $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 121 ****RFMT 187-197,199-204,207-209 $$$$ SDR1 recovers dependent components of displacements $$$$ $$$$ u $$$$ d d $$$$ {u } = [G ]{u } {----} = {u + u } $$$$ o o d u f e $$$$ o $$$$ $$$$ u + u $$$$ f e d $$$$ {-------} = {u + u } {u } = [G ]{u + u } $$$$ u n e m m f e $$$$ s $$$$ $$$$ u + u $$$$ n e $$$$ {---------} = {u } $$$$ u p $$$$ m $$$$ T $$$$ and recovers single-point forces of constraint {q } = -{P } + [K ]{u }. $$$$ s s fs f $$$$ SDR1 USETD,,UDV1T,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 121 ****RFMT 187-197,199-204,207-209 $$$$ LABEL LBL14 $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 121 ****RFMT 187-197,199-204,207-209 $$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) and $$$$ prepares load vectors (OPP1), displacement, velocity, and acceleration $$$$ vectors (OUPV1), and single-point forces of constraint (OQP1) for output $$$$ and translation components of the displacement vector (PUGV), sorted by $$$$ time step. SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB, PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $ ****CARD 18- 20 ****FILE 122 $$$$ SDR3 prepares requested output sorted by point number or element number. SDR3 OPP1,OQP1,OUPV1,OES1,OEF1,/OPP2,OQP2,OUPV2,OES2,OEF2, $ ****CARD 18- 20 ****FILE 123 $$$$ Go to label P2A. JUMP P2A $ ****CARD 18- 20 ****FILE 123 $$$$ LABEL LBDDRM $ ****CARD 1- 6, 8- 12, 14, 18- 20, 22- 24, 55- 62 ****FILE 120-124 $$$$ SDR1 recovers dependent components of eigenvectors $$$$ $$$$ phi $$$$ d h $$$$ {phi } = [G ]{phi } {----} = {phi + phi } $$$$ o o n phi f e $$$$ o $$$$ $$$$ phi +phi $$$$ f e d $$$$ {---------} = {phi +phi } {phi } = [G ]{phi + phi } $$$$ phi n e m m n e $$$$ s $$$$ $$$$ phi +phi $$$$ n e $$$$ {---------} = {phi + u } = {phi } $$$$ phi g e p $$$$ m $$$$ T $$$$ and recovers single-point forces of constraint {q } = [K ] {phi }. $$$$ s fs f $$$$ SDR1 USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIPH,,QPH/1/*DYNAMICS* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 55- 62 ****FILE 129 ****RFMT 187-197,199-204,207-209 $$$$ SDR2 calculates element forces (IEF1) and stresses (IES1) and prepares $$$$ eigenvectors (IPHIP1) and single-point forces of constraint (IQP1) for $$$$ output sorted by time step. SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,LAMA,QPH,PHIPH,EST,XYCDB,,/ ,IQP1,IPHIP1,IES1,IEF1,,,/*MMREIG* $ ****CARD 18- 20 ****FILE 130 $$$$ SDR2 prepares load vectors for output (OPPCA) sorted by time step. SDR2 CASEXX,,,,EQDYN,SILD,,,,TOL,,,,XYCDB,PPT,/OPPA,,,,,,,/ *TRANRESP* $ ****CARD 18- 20 ****FILE 139 $$$$ SDR3 prepares the requested output sorted by point number or element $$$$ number. SDR3 OPPA,IQP1,IPHIP1,IES1,IEF1,/OPPB,IQP2,IPHIP2,IES2,IEF2, $ ****CARD 18- 20 ****FILE 131 $$$$ Equivalence OPPB to OPP2. (Flag MODACC is negative since the $$$$ mode acceleration technique is not requested.) EQUIV OPPB,OPP2/MODACC $ ****CARD 18- 20 ****FILE 123 $$$$ DDRMM prepares a subset of the element forces (ZEF2) and stresses (ZES2), $$$$ and displacement vectors (ZUPV2) and single-point forces of constraint $$$$ (ZQP2) for output sorted by point number or element number. DDRMM CASEXX,UHVT,TOL,IPHIP2,IQP2,IES2,IEF2,,EST,MPT,DIT/ ZUPV2,ZQP2,ZES2,ZEF2, $ ****CARD 18- 20 ****FILE 132 $$$$ Equivalence ZUPV2 to OUPV2, ZQP2 to OQP2, ZES2 to OES2, and ZEF2 $$$$ to OEF2. (Flag MODACC is negative since the mode acceleration technique $$$$ is not requested.) EQUIV ZUPV2,OUPV2/MODACC/ZQP2,OQP2/MODACC/ZEF2,OEF2/MODACC/ZES2,OES2/ MODACC $ ****CARD 18- 20 ****FILE 123 $$$$ LABEL P2A $ ****CARD 18- 20 ****FILE 123 $$$$ OFP formats the requested output prepared by SDR3 (with mode $$$$ acceleration) or DDRMM (no mode acceleration) and places it on the system $$$$ output file for printing. OFP OUPV2,OPP2,OQP2,OEF2,OES2,//S,N,CARDNO $ ****CARD 19 ****FILE 123 $$$$ SCAN examines the element stresses and forces calculated by SDR3 or DDRMM $$$$ and generates scanned output that meets the specifications set by the $$$$ user. SCAN CASECC,OES2,OEF2/OESF2/*RF* $ ****CARD 19 ****FILE 123 $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF2,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 123 $$$$ Go to label P2 if no deformed structure plots are requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 136 $$$$ PLOT generates all requested deformed structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,,,,/PLOTX2/ NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 136 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 136 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 136 $$$$ XYTRAN prepares the input for requested X-Y plots. XYTRAN XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/ S,N,PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 137 $$$$ XYPLOT prepares the requested X-Y plots of displacements, velocities, $$$$ accelerations, forces, stresses, loads, and single-point forces of $$$$ constraint vs. time. XYPLOT XYPLTT// $ ****SBST 7 ****CARD 20 ****FILE 137 $$$$ LABEL LBL15 $ ****CARD 1- 6, 8- 12, 14, 18- 20, 22- 24, 55- 62 ****FILE 120-124,129-132,136,137,139 $$$$ Go to label FINIS and make normal exit if no additional dynamic load sets $$$$ need to be processed. COND FINIS,REPEATT $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-197,199-204,207-209 $$$$ Go to label LBL13 if additional dynamic load sets need to be processed. REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-197,199-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*MDLTRD* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-197,199-204,207-209 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 56, 58, 59 ****FILE 101 ****RFMT 187-197,199-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*MDLTRD* $ ****CARD 1, 9- 12, 56, 58, 59 ****FILE 101 ****RFMT 187-197,199-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 6, 8, 24 ****FILE 127 ****RFMT 187-197,199-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*MDLTRD* $ ****CARD 1- 3, 5, 6, 8, 24 ****FILE 127 ****RFMT 187-197,199-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 ****RFMT 187-197,199-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*MDLTRD* $ ****CARD 1- 6, 8- 12, 14, 24, 59, 60 ****FILE 112 ****RFMT 187-197,199-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56, 57, 59, 60, 62 ****RFMT 187-197,199-204,207-209 $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*MDLTRD* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 56, 57, 59, 60, 62 ****RFMT 187-197,199-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-197,199-204,207-209 $$$$ Print Error Message No. 6 and terminate execution. PRTPARM //-6/*MDLTRD* $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-197,199-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 28, 55- 62 ****RFMT 187-197,199-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCADD MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 ISTART 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 26 ASETOUT 27 AXYOUT$ 28 AUTOSPC 55 MODACC 56 EPOINT SEQEP TF 57 DMIAX DMIG B2PP$ K2PP$ M2PP$ TF$ 58 DAREA DELAY DLOAD FORCE FORCE1 FORCE2 GRAV 58 MOMENT 58 MOMENT1 MOMENT2 NOLIN1 NOLIN2 NOLIN3 NOLIN4 NOLIN6 58 PLOAD PLOAD4 58 PLOAD1 PLOAD2 SLOAD TABLED1 TABLED2 TABLED3 TABLED4 58 TLOAD1 TLOAD2 TSTEP 59 EIGR 60 METHOD$ 61 DLOAD$ NLFORCE TSTEP$ 62 HFREQ LFREQ LMODES TABDMP1 SDAMP$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KOO LOO KAA 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 DLT EED EQDYN GPLD NLFT SILD TFPOOL 111 TRL USETD 112 LAMA MI OEIGS PHIA 113 B2PP K2PP M2PP 114 B2DD GMD GOD K2DD M2DD MDD 115 BHH KHH MHH PHIDH 116 CASEXX 117 PD PDT PH PPT PST TOL 118 OPNL1 OUHV1 119 OPNL2 OUHV2 120 PAF UDV2T UEVT 121 QP UPV 122 OEF1 OES1 OPP1 OQP1 OUPV1 PUGV 123 OEF2 OES2 OPP2 OQP2 OUPV2 OESF2 124 UDV1T 125 ELSETS GPSETS PLTPAR PLTSETX 126 MAA 127 KDICT KELM MDICT MELM 128 PNLH UHVT 129 PHIPH QPH 130 IEF1 IES1 IPHIP1 IQP1 131 IEF2 IES2 IPHIP2 IQP2 OPPB 132 ZEF2 ZES2 ZQP2 ZUPV2 133 PLOTX1 134 OGPWG 135 XYPLTTA 136 PLOTX2 137 XYPLTT 138 BGPDP SIP $* =PAGE= DISP13 APR.93 $$$$$$$$ BEGIN DISP 13 - NORMAL MODES WITH DIFFERENTIAL STIFFNESS - APR. 1993 $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 21- 24, 57- 62 ****RFMT 187-198,200,201-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 21- 24, 57- 62 ****RFMT 187-198,200,201-204,207-209 $$$$ FILE LAMA=APPEND/PHIA=APPEND $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 21- 24, 57- 62 ****RFMT 187-198,200,201-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 11, 14- 16, 19, 21, 23, 24, 57- 62 ****FILE 101,112,118,120,130,132 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 135 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 121,131 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 121 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121,131 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 131 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 131 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 131 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 131 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 131 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121,131 $$$$ GP3 generates Static Loads Table and Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ ****CARD 1, 2, 13, 57, 60 ****FILE 96 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 21- 24, 57- 62 ****FILE 97 $$$$ Go to label ERROR1 and print Error Message No. 1 if no structural $$$$ elements have been defined. COND ERROR1,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-198,200,201-204,207-209 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ EMG generates structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 24, 57 ****FILE 123 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPKGG if no stiffness matrix is to be assembled. COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label ERROR5 and print Error Message No. 5 if no mass matrix is to $$$$ be assembled. COND ERROR5,NOMGG $ ****CARD 1- 3, 5, 8, 24, 57 ****FILE 123 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 99 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 123 $$$$ Go to label LBL1 if no weight and balance information is requested. COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 132 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 132 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 132 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 132 $$$$ x $$$$ Equivalence [K ] to [K ] if no general elements exist. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ Go to label LBL11 if no general elements exist. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 11 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET), $$$$ forms multipoint constraint equations [R ] {u } = 0, and forms enforced $$$$ g g $$$$ displacement vector {Y }. $$$$ s $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 11, 22, 23, 59 ****FILE 101 $$$$ OFP formats the table of potential grid point singularities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 23 ****FILE 101 $$$$ Go to label ERROR6 and print Error Message No. 6 if no independent $$$$ degrees of freedom are defined. COND ERROR6,NOL $ ****CARD 1, 9- 11, 22, 23, 59 ****FILE 101 ****RFMT 187-198,200,201-204,207-209 $$$$ Go to label LBL4D if there are no support cards. COND LBL4D,REACT $ ****CARD 1, 11 ****RFMT 187-189,193-198 $$$$ Go to label ERROR2 and print Error Message No. 2. JUMP ERROR2 $ ****CARD 1, 11 ****RFMT 187-189,193-198 $$$$ LABEL LBL4D $ ****CARD 1, 11 ****RFMT 187-189,193-198 $$$$ PARAM //*AND*/NOSR/SINGLE/REACT $ ****CARD 1, 10, 11 ****FILE 111 $$$$ PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS/SINGLE/ QG/NOSR $ ****CARD 1, 9- 11, 59 ****FILE 103,105,106,109-111 $$$$ Equivalence [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | nn| nm| $$$$ [K ] = |---+---| $$$$ gg |K |K | $$$$ | mn| mm| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + $$$$ |K |K | $$$$ | ff| fs| $$$$ [K ] = |---+---| $$$$ nn |K |K | $$$$ | sf| ss| $$$$ + + $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ ll ll ll $$$$ RBMG2 KAA/LLL $ ****CARD 1- 4, 6, 8- 11 ****FILE 107 $$$$ SSG1 generates static load vectors {P }. $$$$ g $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/1/COMPS $ ****CARD 1- 3, 5, 6, 8, 57- 60 ****FILE 108 $$$$ Equivalence {P } to {P } if no constraints are applied. $$$$ g l $$$$ EQUIV PG,PL/NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 57- 60 ****FILE 109 $$$$ Go to label LBL10 if no constraints are applied. COND LBL10,NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 57- 60 ****FILE 109 $$$$ SSG2 applies constraints to static load vectors $$$$ $$$$ _ $$$$ P $$$$ n _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ g P n n m m $$$$ m $$$$ $$$$ _ $$$$ P $$$$ f _ $$$$ {P } = {--} , {P } = {P } - [K ]{Y } $$$$ n P f f fs s $$$$ s $$$$ $$$$ P $$$$ a T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ f P l a o o $$$$ o $$$$ SSG2 USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 11, 57- 60 ****FILE 109 $$$$ LABEL LBL10 $ ****CARD 1- 3, 5, 6, 8- 11, 57- 60 ****FILE 109 $$$$ SSG3 solves for displacements of independent coordinates $$$$ $$$$ -1 $$$$ {u } = [K ] {P } $$$$ l ll l $$$$ $$$$ solves for displacements of omitted coordinates $$$$ $$$$ o -1 $$$$ {u } = [K ] {P } $$$$ o oo o $$$$ $$$$ calculates residual vector (RULV) and residual vector error ratio for $$$$ independent coordinates $$$$ $$$$ {deltaP } = {P } - [K ]{u } $$$$ l l ll l $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ l l $$$$ epsilon = ------------- $$$$ l T $$$$ {P }{u } $$$$ l l $$$$ $$$$ and calculates residual vector (RUOV) and residual vector error ratio for $$$$ omitted coordinates $$$$ $$$$ o $$$$ {deltaP } = {P } - [K ]{u } $$$$ o o oo o $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ o o $$$$ epsilon = ------------- $$$$ o T o $$$$ {P }{u } $$$$ o o $$$$ SSG3 LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ 1/S,N,EPSI $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 110 ****RFMT 188 $$$$ Go to label LBL9 if residual vectors are not to be printed. COND LBL9,IRES $ ****CARD 1- 6, 8- 11, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ MATGPR prints the residual vector for independent coordinates (RULV). MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 6, 8- 11, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ MATGPR prints the residual vector for omitted coordinates (RUOV). MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 11, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 11, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ SDR1 recovers dependent displacements for current loop $$$$ $$$$ o $$$$ {u } = [G ]{u ] + {u } , $$$$ o o l o $$$$ $$$$ u u $$$$ a f $$$$ {--} = {u } , {--} = {u } , $$$$ u f Y n $$$$ o s $$$$ $$$$ u $$$$ n $$$$ {u } = [G ]{u ] , {--} = {u } $$$$ m m n u g $$$$ m $$$$ $$$$ and recovers single-point forces of constraint $$$$ $$$$ T $$$$ {q } = -{P } + [K ]{u } +[K ]{Y } $$$$ s s fs f ss s $$$$ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PGG,QG/1/ *BKL0* $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 111 $$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) $$$$ and prepares load vectors (OPG1), displacement vectors (OUGV1), $$$$ and single-point forces of constraint (OQG1) for output and translation $$$$ components of the displacement vector (PUGV1) for the static solution. SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, ,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *BKL0*////COMPS $ ****CARD 19 ****FILE 112 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ SCAN examines the element stresses and forces calculated by SDR2 and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES1,OEF1/OESF1/C,N,*RF* $ ****FILE 112 ****CARD 19 $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF1,,,,,//S,N,CARDNO $ ****FILE 112 ****CARD 19 $$$$ Go to label P2 if no static solution deformed structure plots are $$$$ requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 133 $$$$ PLOT generates all requested static solution deformed structure and $$$$ contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,, GPECT,OES1,OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 133 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ static solution deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 133 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 133 $$$$ TA1 generates element tables for use in differential stiffness matrix $$$$ assembly. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/ NOSIMP/0/NOGENL/GENEL $ ****CARD 1- 6, 8- 10, 57- 60 ****FILE 113 $$$$ d $$$$ DSMG1 generates differential stiffness matrix [K ]. $$$$ gg $$$$ DSMG1 CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/ S,N,DSCOSET $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 113 $$$$ d d $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no multipoint $$$$ gg nn gg nn $$$$ constraints exist. EQUIV KDGG,KDNN/MPCF2 / MGG,MNN/MPCF2 $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 104,114 $$$$ Go to label LBL2D if no multipoint constraints exist. COND LBL2D,MPCF2 $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ MCE2 partitions differential stiffness matrix $$$$ $$$$ +_d d + $$$$ |K |K | $$$$ d | nn| nm| $$$$ [K ] = |---+---| $$$$ gg | d | d | $$$$ |K |K | $$$$ + mn| mm+ $$$$ $$$$ and performs matrix reduction $$$$ $$$$ d _d T d d T d $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KDGG,MGG,,/KDNN,MNN,, $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ LABEL LBL2D $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ d d $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no single-point $$$$ nn ff nn ff $$$$ constraints exist. EQUIV KDNN,KDFF/SINGLE / MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 105,115 $$$$ Go to label LBL3D if no single-point constraints exist. COND LBL3D,SINGLE $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + d d + + + $$$$ |K |K | |M |M | $$$$ d | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn | d | d | nn |M |M | $$$$ |K |K | | sf| ss| $$$$ + sf| ss+ + + $$$$ SCE1 USET,KDNN,MNN,,/KDFF,KDFS,KDSS,MFF,, $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ LABEL LBL3D $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ d d $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no omitted coordinates $$$$ ff aa ff aa $$$$ exist. EQUIV KDFF,KDAA/OMIT / MFF,MAA/OMIT $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116,122 $$$$ Go to label LBL5D if no omitted coordinates exist. COND LBL5D,OMIT $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116,122 $$$$ SMP2 partitions constrained differential stiffness matrix $$$$ $$$$ + + $$$$ |_d d | $$$$ |K |K | $$$$ d | aa| ao| $$$$ [K ] = |---+---| $$$$ ff | d | d | $$$$ |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ d _d d $$$$ [K ] = [K ] + [K ][G ] $$$$ aa aa oa o $$$$ SMP2 USET,GO,KDFF/KDAA $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116 $$$$ SMP2 partitions constrained mass matrix $$$$ $$$$ +_ + $$$$ |M |M | $$$$ | aa| ao| $$$$ [M ] = |---+---| $$$$ ff |M |M | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [M ][G ] + [G ][M ] + [G ][M ][G ] $$$$ aa aa oa o o ao o oo o $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 122 $$$$ LABEL LBL5D $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116,122 $$$$ PARAM //*ADD*/DSCOSET/-1/0 $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 125 $$$$ b b b o ob $$$$ Equivalence {P } to {P }, {P } to {P }, {Y } to {Y }, and {u } to {u } $$$$ l l s s s s o o $$$$ if a scale factor is not specified on a DSFACT card. $$$$ EQUIV PL,PBL/DSCOSET/PS,PBS/DSCOSET/YS,YBS/DSCOSET/UOOV,UBOOV/ DSCOSET $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 125 $$$$ PARAM //*MPY*/NDSKIP/0/0 $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 125,126 $$$$ DSMG2 adds partitions of stiffness matrix to similar partitions of $$$$ differential stiffness matrix $$$$ $$$$ b d $$$$ [K ] = [K ] + beta[K ] $$$$ ll aa aa $$$$ $$$$ b d $$$$ [K ] = [K ] + beta[K ] $$$$ fs fs fs $$$$ $$$$ b d $$$$ [K ] = [K ] + beta[K ] $$$$ ss ss ss $$$$ $$$$ and multiplies partitions of load vectors and displacement vectors by the $$$$ value of the differential stiffness scale factor (beta) $$$$ $$$$ b b $$$$ {P } = beta{P } {P } = beta{P } $$$$ l l s s $$$$ $$$$ b bo o $$$$ {Y } = beta{Y } {u } = beta{u } $$$$ s s o o $$$$ DSMG2 MPT,KAA,KDAA,KFS,KDFS,KSS,KDSS,PL,PS,YS,UOOV/KBLL,KBFS,KBSS, PBL,PBS,YBS,UBOOV/S,N,NDSKIP/S,N,REPEATD/DSCOSET $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 125,126 $$$$ RBMG2 decomposes the combined differential stiffness matrix and elastic $$$$ stiffness matrix $$$$ $$$$ b b b $$$$ [K ] = [L ][U ] $$$$ ll ll ll $$$$ RBMG2 KBLL/LBLL/S,N,POWER/S,N,DET $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 127 $$$$ PRTPARM prints the scaled value of the determinant of the combined $$$$ differential stiffness matrix and elastic stiffness matrix. PRTPARM //0/*DET* $ ****CARD 1- 6, 8- 11, 21, 57- 60 $$$$ PRTPARM prints the scale factor (power of ten) of the determinant of the $$$$ combined differential stiffness matrix and the elastic stiffness matrix. PRTPARM //0/*POWER* $ ****CARD 1- 6, 8- 11, 21, 57- 60 $$$$ SSG3 solves for displacements of independent coordinates for the value of $$$$ the differential stiffness scale factor (beta) $$$$ $$$$ b b -1 b $$$$ {u } = [K ] {P } $$$$ l ll l $$$$ $$$$ and calculates residual vector (RULV) and residual vector error ratio for $$$$ current differential stiffness load vector $$$$ $$$$ b b b b $$$$ {deltaP } = {P } - [K ]{u } $$$$ l l ll l $$$$ $$$$ b T b $$$$ {u } {deltaP } $$$$ b l l $$$$ epsilon = -------------- $$$$ l b T b $$$$ {P } {u } $$$$ l l $$$$ SSG3 LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/ S,N,EPSI $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 128 $$$$ Go to label LBL9D if the residual vector for current differential $$$$ stiffness load factor if not to be printed. COND LBL9D,IRES $ ****CARD 1- 6, 8- 11, 21, 57- 60 $$$$ MATGPR prints the residual vector for current differential stiffness load $$$$ factor. MATGPR GPL,USET,SIL,RUBLV//*L* $ ****CARD 1- 6, 8- 11, 21, 57- 60 $$$$ LABEL LBL9D $ ****CARD 1- 6, 8- 11, 21, 57- 60 $$$$ SDR1 recovers dependent components of displacements $$$$ $$$$ b $$$$ u $$$$ b b ob l b $$$$ {u } = [G ]{u } + {u } {----} = {u } $$$$ o o l o b f $$$$ u $$$$ o $$$$ $$$$ b $$$$ u $$$$ f b b b $$$$ {---} = {u } {u } = [G ]{u } $$$$ b n m m n $$$$ Y $$$$ s $$$$ $$$$ b $$$$ u $$$$ n b $$$$ {--} = {u } $$$$ b g $$$$ u $$$$ m $$$$ $$$$ and recovers single-point forces of constraint for the current $$$$ differential stiffness scale factor $$$$ $$$$ b b b b b b $$$$ {q } = -{p } + [K ]{u } + [K ]{Y } $$$$ s s sf f ff s $$$$ SDR1 USET,,UBLV,UBOOV,YBS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/NDSKIP/ *DS1* $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 129 $$$$ SDR2 calculates element forces (OEFB1) and stresses (OESB1) and prepares $$$$ displacement vectors (OUBGV1) and single-point forces of constraint $$$$ (OQBG1) for output and translation components of the displacement vector $$$$ (PUBGV1) for the differential stiffness solution. SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST, ,,PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/ *DS1*////COMPS $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 130 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OQBG1,OUBGV1,OESB1,OEFB1,,//S,N,CARDNO $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 130 $$$$ OFP OEFB1L,OESB1L,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 130 $$$$ DPD extracts Eigenvalue Extraction Data from Dynamics data block. DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 117 $$$$ Go to label ERROR3 and print Error Message No. 3 if there is no $$$$ Eigenvalue Extraction Data. COND ERROR3,NOEED $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 117 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 $$$$ READ extracts real eigenvalues and eigenvectors from the equation $$$$ $$$$ b $$$$ [K - lambda M ]{u } = 0 $$$$ ll aa a $$$$ $$$$ calculates rigid body modes by finding a square matrix [phi ] such that $$$$ ro $$$$ T $$$$ [m ] = [phi ][m ][phi ] $$$$ o ro r ro $$$$ $$$$ is diagonal and normalized, computes rigid body eigenvectors $$$$ $$$$ + + $$$$ |Dphi | $$$$ | ro | $$$$ [phi ] = |-------| $$$$ ao |phi | $$$$ | ro | $$$$ + + $$$$ $$$$ calculates modal mass matrix $$$$ $$$$ T $$$$ [m] = [phi ][M ][phi ] $$$$ a aa a $$$$ $$$$ and normalizes eigenvectors according to one of the following user $$$$ requests: $$$$ 1. Unit value of a selected component. $$$$ 2. Unit value of the largest component. $$$$ 3. Unit value of the generalized mass. READ KBLL,MAA,,,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV/3 $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 $$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) $$$$ prepared by READ and places it on the system output file for printing. OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 $$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were $$$$ found. COND ERROR4,NEIGV $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 $$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on $$$$ the system output file for printing. OFP LAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 $$$$ SDR1 recovers dependent components of eigenvectors $$$$ $$$$ phi $$$$ a $$$$ {phi } = [G ]{phi } {----} = {phi } $$$$ o o a phi f $$$$ o $$$$ $$$$ phi $$$$ f $$$$ {----} = {phi } {phi } = [G ]{phi } $$$$ phi n m m n $$$$ s $$$$ $$$$ phi $$$$ n $$$$ {----} = {phi } $$$$ phi g $$$$ m $$$$ T $$$$ and recovers single-point forces of constraint {q } = [K ] {phi }. $$$$ s fs f $$$$ SDR1 USET,,PHIA,,,GO,GM,,KDFS,,/PHIG,,BQG/1/*REIG* $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 119 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ CASE copies the record corresponding to the third subcase from CASECC $$$$ into CASEXX. CASE CASECC,/CASEXX/*TRANRESP*/KEPEAT=3/LOOP $ ****CARD 1- 6, 8- 11, 13, 14, 16, 18, 19, 21, 24, 57- 62 ****FILE 120 $$$$ SDR2 calculates element forces (OBEF1) and stresses (OBES1) and prepares $$$$ eigenvectors (OPHIG) and single-point forces of constraint (OBQG1) for $$$$ output and translation components of the eigenvectors (PPHIG) for the $$$$ normal mode solution. SDR2 CASEXX,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,BQG,PHIG,EST,,, PCOMPS/,OBQG1,OPHIG,OBES1,OBEF1,PPHIG,OBES1L,OBEF1L/ *REIG*////COMPS $ ****CARD 18, 19 ****FILE 120 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ OFP OBEF1L,OBES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ Go to label P3 if no real eigenvalue solution deformed structure plots $$$$ are requested. COND P3,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PLOT generates all requested real eigenvalue solution deformed structure $$$$ and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT, OBES1,OBES1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ deformed plot generated. PRTMSG PLOTX3// $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ LABEL P3 $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 24, 57- 62 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*NMDS* $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 11 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*NMDS* $ ****CARD 1, 11 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 117 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*NMDS* $ ****CARD 1- 6, 8- 11, 21, 57- 60 ****FILE 117 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*NMDS* $ ****CARD 1- 6, 8- 11, 21, 57- 62 ****FILE 118 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL ERROR5 $ ****SBST 8 ****CARD 1- 3, 5, 8, 24, 57 ****FILE 133 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*NMDS* $ ****SBST 8 ****CARD 1- 3, 5, 8, 24, 57 ****FILE 133 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1, 9- 11, 22, 23, 59 ****FILE 111 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ Print Error Message No. 6 and terminate execution. PRTPARM //-6/*NMDS* $ ****CARD 1, 9- 11, 22, 23, 59 ****FILE 111 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 24, 57- 62 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 24, 57- 62 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 11, 13- 16, 18, 19, 24, 57- 62 ****RFMT 187-189,191-198,200,201-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 FREEPT GRDSET GRID GRIDB POINTAX PRESPT RINGAX 1 RINGFL SECTAX SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFLUID2 2 CFLUID3 2 CFLUID4 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CONROD 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD 2 CSHEAR CTETRA CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 2 CTRIA2 CQUAD4 CTRIA3 2 CTRIAAX CTRIARG CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL 2 CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS FSLIST 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 21 DSFACT DSCO$ 22 ASETOUT 23 AUTOSPC 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 57 GRAV RFORCE 58 TEMPLD$ 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 EIGR 62 METHOD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET YS OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS KSS MFF 106 GO KAA KOO LOO 107 LLL 108 PG 109 PL PO PS 110 RULV RUOV ULV UOOV 111 PGG QG UGV 112 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 112 OEF1L OES1L OESF1 113 KDGG 114 KDNN 115 KDFF KDFS KDSS 116 KDAA 117 EED EQDYN GPLD SILD USETD 118 LAMA MI OEIGS PHIA 119 BQG PHIG 120 OBEF1 OBES1 OBQG1 OPHIG PPHIG 120 OBEF1L OBES1L 121 ELSETS GPSETS PLTPAR PLTSETX 122 MAA 123 KDICT KELM MDICT MELM 125 PBL PBS UBOOV YBS 126 KBLL KBFS KBSS 127 LBLL 128 UBLV RUBLV 129 UBGV QBG 130 OQBG1 OUBGV1 OESB1 OEFB1 PUBGV1 130 OEFB1L OESB1L 131 PLOTX1 132 OGPWG 133 PLOTX2 134 PLOTX3 135 BGPDP SIP $* =PAGE= DISP14 APR.93 $$$$$$$$ BEGIN DISP 14 - STATIC ANALYSIS WITH CYCLIC SYMMETRY - APR. 1993 $ ****CARD 1- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ FILE KKK=SAVE/PK=SAVE $ ****CARD 1- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ FILE UXV=APPEND $ ****CARD 1- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 5, 6, 8- 10, 14, 15, 18, 19, 21, 24 ****FILE 101,114,122,123 $$$$ PARAM //*NOP*/V,Y,CYCIO=1 $ ****CARD 1- 6, 8- 14, 59- 62 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 125 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115,121 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115,121 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115,121 $$$$ GP3 generates Static Loads Table and Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ ****CARD 1, 2, 13, 60, 61 ****FILE 96 $$$$ PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ ****CARD 1, 2, 13, 15, 60, 61 ****FILE 116 ****RFMT 187-199,201-204,207-209 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 28, 59- 62 ****FILE 97 $$$$ PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-199,201-204,207-209 $$$$ Go to label ERROR4 and print Error Message No. 4 if no elements have been $$$$ defined. COND ERROR4,NOELMT $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-199,201-204,207-209 $$$$ Go to label LBL1 if there are no structural elements. COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 14, 15, 24, 61 ****FILE 98, 99,116,122 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 116 $$$$ EMG generates structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 14, 15, 24, 61 ****FILE 116 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPKGG if no stiffness matrix is to be assembled. COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 116 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPMGG if no mass matrix is to be assembled. COND JMPMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 116 $$$$ LABEL JMPMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ Go to label LBL1 if no weight and balance information is requested. COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 122 $$$$ Go to label ERROR2 and print Error Message No. 2 if no weight and balance $$$$ information is requested. COND ERROR2,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 116 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 122 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 122 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 6, 8, 14, 15, 24, 61 ****FILE 98, 99,116,122 $$$$ x $$$$ Equivalence [K ] to [K ] if no general elements exist. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ Go to label LBL11A if no general elements exist. COND LBL11A,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11A $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 11, 59 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET), $$$$ forms multipoint constraint equations [R ] {u } = 0, and forms enforced $$$$ g g $$$$ displacement vector {Y }. $$$$ s $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 11, 20, 21, 59 ****FILE 101 $$$$ OFP formats the table of potential grid point singularities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 101 $$$$ Go to label ERROR3 and print Error Message No. 3 if no independent $$$$ degrees of freedom are defined. COND ERROR3,NOL $ ****CARD 1, 9- 11, 59 ****FILE 101 ****RFMT 187-199,201-204,207-209 $$$$ PARAM //*NOT*/REACDATA/REACT $ ****CARD 1, 11, 59 ****FILE 101 $$$$ Go to label ERROR6 and print Error Message No. 6 if free-body supports $$$$ are present. COND ERROR6,REACDATA $ ****CARD 1, 11, 59 ****FILE 101 $$$$ PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG/SINGLE $ ****CARD 1, 9- 11, 59 ****FILE 103,105,106,111-113 $$$$ GPCYC prepares segment boundary table (CYCD). GPCYC GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $ ****CARD 1- 4, 6, 8- 12, 22, 59 ****FILE 107 $$$$ Go to label ERROR5 and print Error Message No. 5 if CYJOIN data is $$$$ inconsistent. COND ERROR5,NOGO $ ****CARD 1- 4, 6, 8- 12, 22, 59 ****FILE 107 $$$$ Equivalence [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | nn| nm| $$$$ [K ] = |---+---| $$$$ gg |K |K | $$$$ | mn| mm| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + $$$$ |K |K | $$$$ | ff| fs| $$$$ [K ] = |---+---| $$$$ nn |K |K | $$$$ | sf| ss| $$$$ + + $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SSG1 generates static load vectors {P }. $$$$ g $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ ****CARD 1- 3, 5, 6, 8, 59- 62 ****FILE 110 $$$$ Equivalence {P } to {P } if no constraints are applied. $$$$ g l $$$$ EQUIV PG,PL/NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 59- 62 ****FILE 111 $$$$ Go to label LBL9 if no constraints are applied. COND LBL9,NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 17, 59- 62 ****FILE 111,112 $$$$ SSG2 applies constraints to static load vectors $$$$ $$$$ _ $$$$ P $$$$ n _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ g P n n m m $$$$ m $$$$ $$$$ _ $$$$ P $$$$ f _ $$$$ {P } = {--} , {P } = {P } - [K ]{Y } $$$$ n P f f fs s $$$$ s $$$$ $$$$ _ $$$$ P $$$$ a _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ f P l a o o $$$$ o $$$$ $$$$ P $$$$ l $$$$ {P } = {--} $$$$ a P $$$$ r $$$$ $$$$ T $$$$ and calculates determinate forces of reaction {q } = -{P } - [D ]{P }. $$$$ r r l $$$$ SSG2 USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 11, 59- 62 ****FILE 111 $$$$ Go to label LBL9 if no omitted coordinates exist. COND LBL9,OMIT $ ****CARD 1- 3, 5, 6, 8- 11, 59- 62 ****FILE 112 $$$$ SSG3 solves for displacements of omitted coordinates (these are not $$$$ transformed) $$$$ $$$$ o -1 $$$$ {u } = [K ] {P } $$$$ o oo o $$$$ $$$$ and calculates residual vector (RUOV) and residual vector error ratio for $$$$ omitted coordinates $$$$ $$$$ o $$$$ {deltaP } = {P } - [K ]{u } $$$$ o o oo o $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ o o $$$$ epsilon = ------------- $$$$ o T o $$$$ {P }{u } $$$$ o o $$$$ SSG3 LOO,KOO,PO,,,/UOOV,,RUOV,/-1/V,Y,IRES=-1 $ ****CARD 1- 6, 8- 11, 17, 59- 62 ****FILE 112 ****RFMT 188 $$$$ Go to label LBL9 if residual vectors are not to be printed. COND LBL9,IRES $ ****CARD 1- 6, 8- 11, 17, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ MATGPR prints the residual vector for omitted coordinates (RUOV). MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 11, 17, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 11, 17, 59- 62 ****FILE 111,112 ****RFMT 187-199,201-204,207-209 $$$$ Equivalence {P } to {P } if symmetric components of loads have been $$$$ l x $$$$ input. EQUIV PL,PX/CYCIO $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 108 $$$$ Go to label LBL10 if symmetric components of loads have been input. COND LBL10,CYCIO $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 108 $$$$ CYCT1 transforms loads on analysis points to symmetric components by the $$$$ equation $$$$ $$$$ {P } = [G]{P } $$$$ x l $$$$ CYCT1 PL/PX,GCYCF/V,Y,CTYPE/*FORE*/V,Y,NSEGS=-1/S,Y,KMAX=-1/V,Y, NLOAD=1/S,N,NOGO $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 108 $$$$ LABEL LBL10 $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 108 $$$$ Go to label ERROR5 and print Error Message No. 5 if a CYCT1 error was $$$$ found. COND ERROR5,NOGO $ ****CARD 1- 6, 8- 12, 59- 62 ****FILE 108 $$$$ PARAM //*ADD*/KINDEX/0/0 $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 ****FILE 109 $$$$ Beginning of loop for cyclic index (KINDEX) values. LABEL LBL11 $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 $$$$ CYCT2 transforms matrices and loads from symmetric components to solution $$$$ set by the equations $$$$ $$$$ T T $$$$ [K ] = [G ][K ][G ] + [G ][K ][G ] $$$$ kk 1 aa s 2 aa 2 $$$$ $$$$ where G = G (cosine) and G = G (sine) for rotational symmetry, $$$$ 1 c 2 s $$$$ $$$$ and G = G (Symmetric) and G = G (Antisymmetric) for dihedral $$$$ 1 S 2 A $$$$ $$$$ symmetry, $$$$ $$$$ T T $$$$ {P } = [G ]{P } + [G ]{P } for rotational symmetry, $$$$ k c c s s $$$$ $$$$ 1 T T $$$$ {P } = [G ]{P } + [G ]{P }, and $$$$ k S cS A sA $$$$ $$$$ 2 T T $$$$ {P } = [G ]{P } + [G ]{P } for dihedral symmetry. $$$$ k A cA S sS $$$$ CYCT2 CYCD,KAA,,PX,,/KKK,,PK,,/*FORE*/V,Y,NSEGS/KINDEX/V,Y, CYCSEQ=-1/V,Y,NLOAD/S,N,NOGO $ ****CARD 1- 6, 8- 12, 23, 25, 27, 28, 59- 62 ****FILE 109 $$$$ Go to label ERROR5 and print Error Message No. 5 if a CYCT2 error was $$$$ found. COND ERROR5,NOGO $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 ****FILE 109 $$$$ RBMG2 decomposes constrained stiffness matrix for solution set $$$$ $$$$ [K ] = [L ][U ] $$$$ kk kk kk $$$$ RBMG2 KKK/LKK $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 ****FILE 117 $$$$ SSG3 solves for displacements of solution set coordinates $$$$ $$$$ -1 $$$$ {u } = [K ] {P } $$$$ k kk k $$$$ $$$$ and calculates residual vector (RUKV) and residual vector error ratio for $$$$ solution set coordinates $$$$ $$$$ {deltaP } = {P } - [K ]{u } $$$$ k k kk k $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ k k $$$$ epsilon = ------------- $$$$ k T $$$$ {P }{u } $$$$ k k $$$$ SSG3 LKK,KKK,PK,,,/UKV,,RUKV,/-1/V,Y,IRES $ ****CARD 1- 6, 8- 12, 17, 27, 28, 59- 62 ****FILE 118 $$$$ CYCT2 finds symmetric components of displacement from solution set data $$$$ and appends to output for each KINDEX. CYCT2 CYCD,,,UKV,RUKV,/,,UXV,RUXV,/*BACK*/V,Y,NSEGS/KINDEX/ V,Y,CYCSEQ/V,Y,NLOAD/S,N,NOGO $ ****CARD 1- 6, 8- 12, 23, 25, 27, 28, 59- 62 ****FILE 119 $$$$ Go to label ERROR5 and print Error Message No. 5 if a CYCT2 error was $$$$ found. COND ERROR5,NOGO $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 ****FILE 119 $$$$ Go to label LBL14 if residual vectors are not to be printed. COND LBL14,IRES $ ****CARD 1- 6, 8- 12, 17, 27, 28, 59- 62 $$$$ MATGPR prints the residual vector for solution set coordinates (RUXV). MATGPR GPL,USET,SIL,RUXV//*A* $ ****CARD 1- 6, 8- 12, 17, 27, 28, 59- 62 $$$$ LABEL LBL14 $ ****CARD 1- 6, 8- 12, 17, 27, 28, 59- 62 $$$$ PARAM //*ADD*/KINDEX/KINDEX/1 $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 $$$$ PARAM //*SUB*/DONE/V,Y,KMAX/KINDEX $ ****CARD 1- 6, 8- 12, 23, 27, 28, 59- 62 $$$$ Go to label LBL15 if all cyclic index (KINDEX) values are complete. COND LBL15,DONE $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 $$$$ Go to label LBL11 if additional cyclic index values are needed. REPT LBL11,360 $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 $$$$ Go to label ERROR1 and print Error Message No. 1 if number of loops $$$$ exceeds 360. JUMP ERROR1 $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 $$$$ LABEL LBL15 $ ****CARD 1- 6, 8- 12, 27, 28, 59- 62 $$$$ Equivalence {u } to {u } if output of symmetric components was requested. $$$$ x l $$$$ EQUIV UXV,ULV/CYCIO $ ****CARD 1- 6, 8- 12, 59- 62 ****FILE 120 $$$$ Go to label LBL16 if output of symmetric components was requested. COND LBL16,CYCIO $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 120 $$$$ CYCT1 transforms displacements from symmetric components to physical $$$$ components. CYCT1 UXV/ULV,GCYCB/V,Y,CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/V,Y,NLOAD/ S,N,NOGO $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 120 $$$$ Go to label ERROR5 and print Error Message No. 5 if a CYCT1 error was $$$$ found. COND ERROR5,NOGO $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 120 $$$$ LABEL LBL16 $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 120 $$$$ SDR1 recovers dependent displacements $$$$ $$$$ o $$$$ {u } = [G ]{u ] + {u } , $$$$ o o a o $$$$ $$$$ u u $$$$ a f $$$$ {--} = {u } , {--} = {u } , $$$$ u f Y n $$$$ o s $$$$ $$$$ u $$$$ n $$$$ {u } = [G ]{u ] , {--} = {u } $$$$ m m n u g $$$$ m $$$$ $$$$ and recovers single-point forces of constraint $$$$ $$$$ T $$$$ {q } = -{P } + [K ]{u } +[K ]{Y } $$$$ s s fs f ss s $$$$ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PGG,QG/NSKIP/ *STATICS* $ ****CARD 1- 6, 8- 12, 59- 62 ****FILE 113 $$$$ Go to label NOMPCF if no multipoint constraint force balance is $$$$ requested. COND NOMPCF,GRDEQ $ ****CARD 7 ****FILE 123 $$$$ EQMCK calculates the force and moment equilibrium check and prepares the $$$$ multipoint constraint force balance (OQM1) for output. EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ ****CARD 7 ****FILE 123 $$$$ OFP formats the table prepared by EQMCK and places it on the system $$$$ output file for printing. OFP OQM1,,,,,//S,N,CARDNO $ ****CARD 7 ****FILE 123 $$$$ LABEL NOMPCF $ ****CARD 7 ****FILE 123 $$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) $$$$ and prepares load vectors (OPG1), displacement vectors (OUGV1), $$$$ and single-point forces of constraint (OQG1) for output and translation $$$$ components of the displacement vector (PUGV1). SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PGG, PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *STATICS*////COMPS $ ****CARD 18, 19 ****FILE 114 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ SCAN examines the element stresses and forces calculated by SDR2 and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES1,OEF1/OESF1/*RF* $ ****CARD 19 ****FILE 114 $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF1,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ Go to label P2 if no deformed structure plots are requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 124 $$$$ PLOT generates all requested deformed structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 124 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 124 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 124 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 11, 13- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ LABEL ERROR1 $ ****SBST 1, 3 ****CARD 1- 6, 8- 12, 27, 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*CYCSTATICS* $ ****SBST 1, 3 ****CARD 1- 6, 8- 12, 27, 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ LABEL ERROR2 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 116 ****RFMT 187-199,201-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*CYCSTATICS* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 116 ****RFMT 187-199,201-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 11, 59 ****FILE 101 ****RFMT 187-199,201-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*CYCSTATICS* $ ****CARD 1, 9- 11, 59 ****FILE 101 ****RFMT 187-199,201-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-199,201-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*CYCSTATICS* $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-199,201-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1- 6, 8- 12, 22, 23, 27, 28, 59- 62 ****FILE 108,109,117,119 ****RFMT 187-199,201-204,207-209 $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*CYCSTATICS* $ ****CARD 1- 6, 8- 12, 22, 23, 27, 28, 59- 62 ****FILE 108,109,117,119 ****RFMT 187-199,201-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1, 9- 11, 59 ****FILE 101 ****RFMT 187-199,201-204,207-209 $$$$ Print Error Message No. 6 and terminate execution. PRTPARM //-6/*CYCSTATICS* $ ****CARD 1, 9- 11, 59 ****FILE 101 ****RFMT 187-199,201-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 11, 13- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 11, 13- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ END $ ****CARD 1- 11, 13- 28, 59- 62 ****RFMT 187-199,201-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEGGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHBDY 2 CHEXA1 2 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM 2 CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR 2 CTETRA CQUAD4 CTRIA3 2 CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX 2 CTRIARG 2 CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST 2 CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PHBDY PIHEX PIS2D8 3 PQDMEM PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD 3 PSHEAR PSHELL PCOMP PCOMP1 PCOMP2 3 PTORDRG PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 3 PTRMEM PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 7 AOUT$ 8 MAT1 MAT2 MAT3 MAT4 MAT5 MATT1 MATT2 8 MATT3 MATT4 MATT5 MAT8 TABLEM1 TABLEM2 TABLEM3 8 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 12 CYJOIN 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 CTYPE 23 NSEGS KMAX NLOAD 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 CYCSEQ 26 OPT GRDEQ 27 LOOP$ 28 LOOP1$ 59 DEFORM DEFORM$ LOAD$ RFORCE$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX QBDY1 60 QBDY2 QHBDY QVECT QVOL SLOAD 61 GRAV RFORCE 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 GPECT EST GEI MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET YS OGPST 102 GPST 103 GM 104 KNN 105 KFF KFS KSS 106 GO KAA KOO LOO 107 CYCD 108 GCYCF PX 109 KKK PK 110 PG 111 PL PO PS QR 112 RUOV UOOV 113 PGG QG UGV 114 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 114 OEF1L OES1L OESF1 115 ELSETS GPSETS PLTPAR PLTSETX 116 KDICT KELM MDICT MELM 117 LKK 118 RUKV UKV 119 RUXV UXV 120 ULV GCYCB 121 PLOTX1 122 OGPWG 123 OQM1 124 PLOTX2 125 BGPDP SIP $* =PAGE= DISP15 APR.93 $$$$$$$$ BEGIN DISP 15 NORMAL MODES ANALYSIS WITH CYCLIC SYMMETRY - APR 1993 $ ****CARD 1- 15, 18- 24, 61, 62 ****RFMT 187-200,202-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 15, 18- 24, 61, 62 ****RFMT 187-200,202-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 12, 14, 15, 18, 19, 21, 24, 61, 62 ****FILE 101,109,114,120,121 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 115 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 116,119 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 116 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116,119 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1//$ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116,119 $$$$ GP3 generates Static Loads Table and Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 15, 18- 24, 61, 62 ****FILE 97 $$$$ Go to label ERROR6 and print Error Message No. 6 if no structural $$$$ elements have been defined. COND ERROR6,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 16, 24 ****FILE 97 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8 ****FILE 118 ****RFMT 187,190-192 $$$$ EMG generates structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 24 ****FILE 118 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPKGG if no stiffness matrix is to be assembled. COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to $$$$ be assembled. COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 24 ****FILE 118 ****RFMT 187-200,202-204,207-209 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 24 ****FILE 118 $$$$ Go to label LGPWG if no weight and balance information is requested. COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ x $$$$ Equivalence [K ] to [K ] if no general elements exist. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ Go to label LBL11 if no general elements exist. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 11 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET), $$$$ forms multipoint constraint equations [R ] {u } = 0, and forms enforced $$$$ g g $$$$ displacement vector {Y }. $$$$ s $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 11, 20, 21 ****FILE 101 $$$$ OFP formats the table of potential grid point singularities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 101 $$$$ Go to label ERROR3 and print Error Message No. 3 if no independent $$$$ degrees of freedom are defined. COND ERROR3,NOL $ ****CARD 1, 9- 11, 20, 21 ****FILE 101 $$$$ PARAM //*NOT*/REACDATA/REACT $ ****CARD 1, 11 ****FILE 101 $$$$ Go to label ERROR4 and print Error Message No. 4 if free-body supports $$$$ are present. COND ERROR4,REACDATA $ ****CARD 1, 11 ****FILE 101 $$$$ PURGE GM/MPCF1/GO/OMIT/KFS,QG/SINGLE $ ****CARD 1, 9- 11 ****FILE 103,105,106,113 $$$$ GPCYC prepares segment boundary table (CYCD). GPCYC GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $ ****CARD 1, 9- 12, 22 ****FILE 107 $$$$ Go to label ERROR5 and print Error Message No. 5 if CYJOIN data is $$$$ inconsistent. COND ERROR5,NOGO $ ****CARD 1, 9- 12, 22 ****FILE 107 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] $$$$ gg nn gg nn $$$$ if no multipoint constraints exist. EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | nn| nm| $$$$ [K ] = |---+---| $$$$ gg |K |K | $$$$ | mn| mm| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] $$$$ nn ff nn ff $$$$ if no single-point constraints exist. EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn |K |K | nn |M |M | $$$$ | sf| ss| | sf| ss| $$$$ + + + + $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Equivalence [M ] to [M ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 117 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,117 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP2 partitions constrained mass matrix $$$$ $$$$ +_ + $$$$ |M |M | $$$$ | aa| ao| $$$$ [M ] = |---+---| $$$$ ff |M |M | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [M ][G ] + [G ][M ] + [G ][M ][G ] $$$$ aa aa oa o o oa o oo o $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 117 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,117 $$$$ DPD extracts Eigenvalue Extraction Data from Dynamics data block. DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ ****CARD 1, 9- 11, 61 ****FILE 111 $$$$ Go to label ERROR2 and print Error Message No. 2 if there is no $$$$ Eigenvalue Extraction Data. COND ERROR2,NOEED $ ****CARD 1, 9- 11, 61 ****FILE 111 ****RFMT 187-200,202-204,207-209 $$$$ CYCT2 transforms matrices from symmetric components to solution $$$$ set by the equations $$$$ $$$$ T T $$$$ [K ] = [G ][K ][G ] + [G ][K ][G ] $$$$ kk 1 aa 1 2 aa 2 $$$$ $$$$ T T $$$$ [M ] = [G ][M ][G ] + [G ][M ][G ] $$$$ kk 1 aa 1 2 aa 2 $$$$ $$$$ where G = G (cosine) and G = G (sine) for rotational symmetry, $$$$ 1 c 2 s $$$$ $$$$ and G = G (Symmetric) and G = G (Antisymmetric) for dihedral $$$$ 1 S 2 A $$$$ $$$$ symmetry. CYCT2 CYCD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS=-1/V,Y,KINDEX=-1/ V,Y,CYCSEQ=-1/1/S,N,NOGO $ ****CARD 1- 6, 8- 12, 23, 61 ****FILE 108 $$$$ Go to label ERROR5 and print Error Message No. 5 if a CYCT2 error was $$$$ found. COND ERROR5,NOGO $ ****CARD 1- 6, 8- 12, 23, 61 ****FILE 108 $$$$ READ extracts real eigenvalues and eigenvectors from the equation $$$$ $$$$ [K - lambda M ]{u } = 0 $$$$ kk kk k $$$$ $$$$ calculates modal mass matrix $$$$ $$$$ T $$$$ [m] = [phi ][M ][phi ] $$$$ a kk k $$$$ $$$$ and normalizes eigenvectors according to one of the following user $$$$ requests: $$$$ 1. Unit value of a selected component. $$$$ 2. Unit value of the largest component. $$$$ 3. Unit value of the generalized mass. READ KKK,MKK,,,EED,,CASECC/LAMK,PHIK,MI,OEIGS/*MODES*/S,N,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 109 $$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) $$$$ prepared by READ and places it on the system output file for printing. OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 109 $$$$ Go to label FINIS and make normal exit if no eigenvalues were found. COND FINIS,NEIGV $ ****CARD 1- 12, 14, 18, 19, 23, 24, 61, 62 ****FILE 112-114,121,122 $$$$ OFP formats the eigenvalues (LAMK) prepared by READ and places them on $$$$ the system output file for printing. OFP LAMK,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 109 $$$$ CYCT2 finds symmetric components of eigenvectors from solution set $$$$ eigenvectors. CYCT2 CYCD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,KINDEX/ V,Y,CYCSEQ/1/S,N,NOGO $ ****CARD 1- 6, 8- 12, 14, 23, 24, 61, 62 ****FILE 112 $$$$ Go to label ERROR5 and print Error Message No. 5 if a CYCT2 error was $$$$ found. COND ERROR5,NOGO $ ****CARD 1- 6, 8- 12, 14, 23, 24, 61, 62 ****FILE 112 $$$$ SDR1 recovers dependent components of eigenvectors $$$$ $$$$ phi $$$$ a $$$$ {phi } = [G ]{phi } {----} = {phi } $$$$ o o a phi f $$$$ o $$$$ $$$$ phi $$$$ f $$$$ {----} = {phi } {phi } = [G ]{phi } $$$$ phi n m m n $$$$ s $$$$ $$$$ phi $$$$ n $$$$ {----} = {phi } $$$$ phi g $$$$ m $$$$ T $$$$ and recovers single-point forces of constraint {q } = [K ] {phi }. $$$$ s fs f $$$$ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 113 ****RFMT 187-200,202-204,207-209 $$$$ Go to label NOMPCF if no multipoint constraint force balance is $$$$ requested. COND NOMPCF,GRDEQ $ ****CARD 7 ****FILE 121 $$$$ EQMCK calculates the force and moment equilibrium check and prepares the $$$$ multipoint constraint force balance (OQM1) for output. EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ ****CARD 7 ****FILE 121 $$$$ OFP formats the table prepared by EQMCK and places it on the system $$$$ output file for printing. OFP OQM1,,,,,//S,N,CARDNO $ ****CARD 7 ****FILE 121 $$$$ LABEL NOMPCF $ ****CARD 7 ****FILE 121 $$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) and prepares $$$$ eigenvectors (OPHIG) and single-point forces of constraint (OQG1) for $$$$ output and translation components of the eigenvectors (PPHIG). SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ *REIG*////COMPS $ ****CARD 18, 19 ****FILE 114 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OPHIG,OQG1,OEF1,OES1,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ SCAN examines the element stresses and forces calculated by SDR2 and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES1,OEF1/OESF1/*RF* $ ****CARD 19 ****FILE 114 $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF1,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ Go to label P2 if no deformed structure plots are requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PLOT generates all requested deformed structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 14, 18- 24, 61, 62 ****RFMT 187-200,202-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 8, 24 ****FILE 118 ****RFMT 187-200,202-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*CYCMODES* $ ****CARD 1- 3, 5, 8, 24 ****FILE 118 ****RFMT 187-200,202-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 11, 61 ****FILE 111 ****RFMT 187-200,202-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*CYCMODES* $ ****CARD 1, 9- 11, 61 ****FILE 111 ****RFMT 187-200,202-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 11, 20, 21 ****FILE 101 ****RFMT 187-200,202-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*CYCMODES* $ ****CARD 1, 9- 11, 20, 21 ****FILE 101 ****RFMT 187-200,202-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1, 9- 11 ****FILE 101 ****RFMT 187-200,202-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*CYCMODES* $ ****CARD 1, 9- 11 ****FILE 101 ****RFMT 187-200,202-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1- 6, 8- 12, 14, 22- 24, 61, 62 ****FILE 107,108,112 ****RFMT 187-200,202-204,207-209 $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*CYCMODES* $ ****CARD 1- 6, 8- 12, 14, 22- 24, 61, 62 ****FILE 107,108,112 ****RFMT 187-200,202-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1, 2, 4- 6, 8, 16, 24 ****FILE 97 ****RFMT 187-200,202-204,207-209 $$$$ Print Error Message No. 6 and terminate execution. PRTPARM //-6/*CYCMODES* $ ****CARD 1, 2, 4- 6, 8, 16, 24 ****FILE 97 ****RFMT 187-200,202-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 14, 16, 18- 24, 61, 62 ****RFMT 187-200,202-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 14, 16, 18- 24, 61, 62 ****RFMT 187-200,202-204,207-209 $$$$ END $ ****CARD 1- 14, 16, 18- 24, 61, 62 ****RFMT 187-200,202-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF AXSLOT CELAS1 CELAS2 CELAS3 CELAS4 1 CMASS1 1 CMASS2 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C 1 CORD2R 1 CORD2S FREEPT GRDSET GRID GRIDB GRIDF GRIDS 1 POINTAX 1 PRESPT RINGAX RINGFL SECTAX SEQGP SLBDY SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CAXIF2 CAXIF3 CAXIF4 CBAR CCONEAX 2 CDUM1 2 CDUM2 CDUM3 CDUM4 CDUM5 CDUM6 CDUM7 CDUM8 2 CDUM9 2 CELBOW CFLUID2 CFLUID3 CFLUID4 CHEXA1 CHEXA2 CIHEX1 2 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 CQDMEM2 2 CQDPLT CQUAD4 CTRIA3 2 CQUAD1 CQUAD2 CROD CSHEAR CSLOT3 CSLOT4 CTETRA 2 CTORDRG 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 FSLIST PMASS 6 PELAS 7 AOUT$ 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 12 CYJOIN 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 CTYPE 23 NSEGS KINDEX CYCSEQ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 OPT GRDEQ 61 EIGR 62 METHOD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KOO LOO KAA 107 CYCD 108 KKK MKK 109 LAMK PHIK MI OEIGS 111 EED EQDYN GPLD SILD USETD 112 LAMA PHIA 113 PHIG QG 114 OEF1 OES1 OPHIG OQG1 PPHIG 114 OEF1L OES1L OESF1 115 BGPDP SIP 116 ELSETS GPSETS PLTPAR PLTSETX 117 MAA 118 KDICT KELM MDICT MELM 119 PLOTX1 120 OGPWG 121 OQM1 122 PLOTX2 $* =PAGE= DISP16 APR.93 $$$$$$$$ BEGIN DISP 16 STATIC AEROTHERMOELASTIC DESIGN/ANALYSIS - APR. 1993 $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 11, 14, 15, 19, 22, 23, 24, 26, 59- 62 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N, NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ Go to label ERROR3 and print Error Message No. 3 if there is no Grid $$$$ Point Definition Table. COND ERROR3,NOGPDT $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 157 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PARAMR sets CSIGN=(SIGN, 0.0), where SIGN = +1.0 for analysis type run $$$$ and SIGN = -1.0 for design type run. PARAMR //*COMPLEX*//V,Y,SIGN/0.0/CSIGN $ ****CARD 26 ****FILE 117 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/S,N, JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 18 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 135 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 135 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 18 $$$$ LABEL P1 $ ****SBST 7 ****CARD 18 ****FILE 122,135 $$$$ GP3 generates Static Loads Table and Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ ****CARD 1, 2, 13, 60, 61 ****FILE 96 $$$$ PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ ****CARD 1, 2, 13, 15, 60, 61 ****FILE 96, 99 ****RFMT 187-189,191-204,207-209 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $ ****CARD 1- 7, 13 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 7, 13 ****FILE 97 $$$$ Go to label ERROR1 and print Error Message No. 1 if no structural $$$$ elements have been defined. COND ERROR1,NOSIMP $ ****CARD 1- 8, 13 ****FILE 97, 99 ****RFMT 187-189,191-204,207-209 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 4, 6 ****FILE 98 $$$$ EMG generates structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y, CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y, CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 8 ****FILE 123 $$$$ Go to label JMPKGG if no stiffness matrix is to be assembled. COND JMPKGG,NOKGGX $ ****CARD 1- 4, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 4, 6, 8 ****FILE 98 $$$$ LABEL JMPKGG $ ****CARD 1- 4, 6, 8 ****FILE 98 $$$$ Go to label JMPMGG if no mass matrix is to be assembled. COND JMPMGG,NOMGG $ ****CARD 1- 5, 7, 8, 14, 24 ****FILE 99 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 5, 7, 8, 14, 24 ****FILE 99 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 5, 7, 8, 14, 24 ****FILE 123 $$$$ LABEL JMPMGG $ ****CARD 1- 5, 7, 8, 14, 24 ****FILE 99 $$$$ Go to label LBL1 if no weight and balance information is requested. COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 7, 8, 14, 15, 24 ****FILE 136 $$$$ Go to label ERROR4 and print Error Message No. 4 if no mass matrix $$$$ exists. COND ERROR4,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 7, 8, 14, 15, 24 ****FILE 136 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 7, 8, 14, 15, 24 ****FILE 136 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 7, 8, 14, 15, 24 $$$$ LABEL LBL1 $ ****SBST 8 ****CARD 1- 3, 5, 7, 8, 14, 15, 24 ****FILE 136 ****FILE 97, 99 $$$$ x $$$$ Equivalence [K ] to [K ] if no general elements exist. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ Go to label LBL11 if no general elements exist. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 11 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET), $$$$ forms multipoint constraint equations [R ] {u } = 0, and forms enforced $$$$ g g $$$$ displacement vector {Y }. $$$$ s $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1, 4, 6, 8- 11, 59 ****FILE 101 $$$$ OFP formats the table of potential grid point singularities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1, 4, 6, 8- 11, 59 ****FILE 101 $$$$ Go to label ERROR5 and print Error Message No. 5 if no independent $$$$ degrees of freedom are defined. COND ERROR5,NOL $ ****CARD 1, 9- 11, 59 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ Go to label LBL4D if no free-body supports are supplied. COND LBL4D,REACT $ ****CARD 1, 12 ****RFMT 187-189,193-204,207-209 $$$$ Go to label ERROR2 and print Error Message No. 2. JUMP ERROR2 $ ****CARD 1, 12 ****RFMT 187-189,193-204,207-209 $$$$ LABEL LBL4D $ ****CARD 1, 12 ****RFMT 187-189,193-204,207-209 $$$$ PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG/SINGLE/ PBS,KBFS,KBSS,KDFS,KDSS/SINGLE $ ****CARD 1, 9- 11, 59 ****FILE 103,105,106,109-111,115,139,140,147 $$$$ Equivalence [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF2 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | nn| nm| $$$$ [K ] = |---+---| $$$$ gg |K |K | $$$$ | mn| mm| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nn m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + $$$$ |K |K | $$$$ | ff| fs| $$$$ [K ] = |---+---| $$$$ nn |K |K | $$$$ | sf| ss| $$$$ + + $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Go to label LBL5 if no omitted constraints exist. COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ aa ll ll $$$$ RBMG2 KAA/LLL $ ****CARD 1- 4, 6, 8- 11 ****FILE 107 $$$$ NA $$$$ SSG1 generates non-aerodynamic static load vectors {P }. $$$$ g $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PGNA,,,,/LUSET/1/COMPS $ ****CARD 1- 3, 5- 8, 13, 59- 62 ****FILE 132 $$$$ PARAM //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 124 $$$$ Go to label NOAL if no aerodynamic loads exist. COND NOAL,ALOAD $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 124 $$$$ ALG generates aerodynamic load data. ALG CASECC,,EQEXIN,,ALGDB,,/CASECCA1,GEOM3A1/S,Y,APRESS/S,Y, ATEMP/-1/-1/V,Y,IPRTCI/S,N,IFAIL $ ****CARD 1- 3, 5- 8, 13, 26, 27, 59- 62 ****FILE 124 $$$$ COND FINIS,IFAIL $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 $$$$ PARAM //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 125 $$$$ COND NOAL,ALOAD $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 125 $$$$ GP3 GEOM3A1,EQEXIN,GEOM2/SLTA1,GPTTA1/NOGRAV $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 125 $$$$ A $$$$ SSG1 generates aerodynamic load vector {P }. $$$$ g $$$$ SSG1 SLTA1,BGPDT,CSTM,SIL,EST,MPT,GPTTA1,EDT,MGG,CASECCA1,DIT, PCOMPS/PGA1,,,,/LUSET/1/COMPS $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 126 $$$$ NA A $$$$ Add {P } and {P } to form total load vector {P }. $$$$ g g g $$$$ ADD PGNA,PGA1/PG/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 108 $$$$ LABEL NOAL $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 108 $$$$ NA $$$$ Equivalence {P } to {P } if no aerodynamic loads exist. $$$$ g g $$$$ EQUIV PGNA,PG/ALOAD $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 108 $$$$ Equivalence {P } to {P } if no constraints are applied. $$$$ g l $$$$ EQUIV PG,PL/NOSET $ ****CARD 1- 3, 5- 11, 13, 26, 59- 62 ****FILE 109 $$$$ Go to label LBL10 if no constraints are applied. COND LBL10,NOSET $ ****CARD 1- 3, 5- 11, 13, 26, 59- 62 ****FILE 109 $$$$ SSG2 applies constraints to static load vectors $$$$ $$$$ _ $$$$ P $$$$ n _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ g P n n m m $$$$ m $$$$ $$$$ _ $$$$ P $$$$ f _ $$$$ {P } = {--} , {P } = {P } - [K ]{Y } $$$$ n P f f fs s $$$$ s $$$$ $$$$ $$$$ P $$$$ a T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ f P l a o o $$$$ o $$$$ SSG2 USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $ ****CARD 1- 3, 5- 11, 13, 26, 59- 62 ****FILE 109 $$$$ LABEL LBL10 $ ****CARD 1- 3, 5- 11, 13, 26, 59- 62 ****FILE 109 $$$$ SSG3 solves for displacements of independent coordinates $$$$ $$$$ -1 $$$$ {u } = [K ] {P } $$$$ l aa l $$$$ $$$$ solves for displacements of omitted coordinates $$$$ $$$$ o -1 $$$$ {u } = [K ] {P } $$$$ o oo o $$$$ $$$$ calculates residual vector (RULV) and residual vector error ratio for $$$$ independent coordinates $$$$ $$$$ {deltaP } = {P } - [K ]{u } $$$$ l l aa l $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ l l $$$$ epsilon = ------------- $$$$ l T $$$$ {P }{u } $$$$ l l $$$$ $$$$ and calculates residual vector (RUOV) and residual vector error ratio for $$$$ omitted coordinates $$$$ $$$$ o $$$$ {deltaP } = {P } - [K ]{u } $$$$ o o oo o $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ o o $$$$ epsilon = ------------- $$$$ o T o $$$$ {P }{u } $$$$ o o $$$$ SSG3 LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ 1/S,N,EPSI $ ****CARD 1- 11, 13, 26, 59- 62 ****FILE 110 ****RFMT 188 $$$$ Go to label LBL9 if residual vectors are not to be printed. COND LBL9,IRES $ ****CARD 1- 11, 13, 17, 26, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ MATGPR prints the residual vector for independent coordinates (RULV). MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 11, 13, 17, 26, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ MATGPR prints the residual vector for omitted coordinates (RUOV). MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 11, 13, 17, 26, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ LABEL LBL9 $ ****CARD 1- 11, 13, 17, 26, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ SDR1 recovers dependent displacements $$$$ $$$$ o $$$$ {u } = [G ]{u ] + {u } , $$$$ o o l o $$$$ $$$$ u u $$$$ a f $$$$ {--} = {u } , {--} = {u } , $$$$ u f Y n $$$$ o s $$$$ $$$$ u $$$$ n $$$$ {u } = [G ]{u ] , {--} = {u } $$$$ m m n u g $$$$ m $$$$ $$$$ and recovers single-point forces of constraint $$$$ $$$$ T $$$$ {q } = -{P } + [K ]{u } +[K ]{Y } $$$$ s s fs f ss s $$$$ SDR1 USET,,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PG1,QG/1/*DS0* $ ****CARD 1- 11, 13, 26, 59- 62 ****FILE 111 $$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) $$$$ and prepares load vectors (OPG1), displacement vectors (OUGV1), $$$$ and single-point forces of constraint (OQG1) for output and translation $$$$ components of the displacement vector (PUGV1) for the static solution. SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PG, PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *DS0*////COMPS $ ****CARD 19 ****FILE 112 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ Go to label P2 if no deformed static solution structure plots are $$$$ requesed. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 137 $$$$ PLOT generates all requested static solution deformed structure and $$$$ contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 137 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ static solution deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 137 $$$$ TA1 generates element tables for use in differential stiffness matrix $$$$ assembly. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/ NOSIMP/0/NOGENL/GENEL $ ****CARD 1- 11, 26, 59- 62 ****FILE 138 $$$$ d $$$$ DSMG1 generates differential stiffness matrix [K ]. $$$$ gg $$$$ DSMG1 CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/ DSCOSET$ ****CARD 1- 11, 26, 59- 62 ****FILE 113 $$$$ Go to label NOAL0 if no aerodynamic loads exist. COND NOAL0,ALOAD $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 108 $$$$ NA $$$$ Equivalence {P } to {P } to remove aerodynamic loads from total load $$$$ g g $$$$ vector before entering the differential stiffness loop. New aerodynamic $$$$ loads will be generated in the loop. EQUIV PGNA,PG $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 108 $$$$ LABEL NOAL0 $ ****CARD 1- 3, 5- 8, 13, 26, 59- 62 ****FILE 108 $$$$ PARAM //*ADD*/SHIFT/-1/0 $ ****CARD 1- 11, 26, 59- 62 $$$$ PARAM //*ADD*/COUNT/ALWAYS=-1/NEVER=1 $ ****CARD 1- 11, 26, 59- 62 $$$$ PARAMR //*ADD*/DSEPSI/0.0/0.0 $ ****CARD 1- 11, 26, 59- 62 $$$$ PARAML YS//*NULL*////NOYS $ ****CARD 1- 11, 26, 59- 62 $$$$ Beginning of outer (stiffness adjustment) loop for differential stiffness $$$$ iteration. LABEL OUTLPTOP $ ****CARD 1- 11, 26, 59- 62 $$$$ Equivalence {P } to {P } if no enforced displacements are specified. $$$$ g g1 $$$$ EQUIV PG,PG1/NOYS $ ****CARD 1- 11, 26, 59- 62 ****FILE 111 $$$$ PARAM //*KLOCK*/TO $ ****CARD 1- 11, 26, 59- 62 ****FILE 114 $$$$ d d $$$$ Equivalence [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV KDGG,KDNN/MPCF2 $ ****CARD 1- 11, 26, 59- 62 ****FILE 114 $$$$ Go to label LBL2D if no multipoint constraints exist. COND LBL2D,MPCF2 $ ****CARD 1- 11, 26, 59- 62 ****FILE 114 $$$$ MCE2 partitions differential stiffness matrix $$$$ $$$$ +_d d + $$$$ |K |K | $$$$ d | nn| nm| $$$$ [K ] = |---+---| $$$$ gg | d | d | $$$$ |K |K | $$$$ + mn| mm+ $$$$ $$$$ and performs matrix reduction $$$$ $$$$ d _d T d d T d $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KDGG,,,/KDNN,,, $ ****CARD 1- 11, 26, 59- 62 ****FILE 114 $$$$ LABEL LBL2D $ ****CARD 1- 11, 26, 59- 62 ****FILE 114 $$$$ d d $$$$ Equivalence [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KDNN,KDFF/SINGLE $ ****CARD 1- 11, 26, 59- 62 ****FILE 115 $$$$ Go to label LBL3D if no single-point constraints exist. COND LBL3D,SINGLE $ ****CARD 1- 11, 26, 59- 62 ****FILE 115 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + d d + $$$$ |K |K | $$$$ d | ff| fs| $$$$ [K ] = |---+---| $$$$ nn | d | d | $$$$ |K |K | $$$$ + sf| ss+ $$$$ SCE1 USET,KDNN,,,/KDFF,KDFS,KDSS,,, $ ****CARD 1- 11, 26, 59- 62 ****FILE 115 $$$$ LABEL LBL3D $ ****CARD 1- 11, 26, 59- 62 ****FILE 115 $$$$ d d $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KDFF,KDAA/OMIT $ ****CARD 1- 11, 26, 59- 62 ****FILE 116 $$$$ Go to label LBL5D if no omitted coordinates exist. COND LBL5D,OMIT $ ****CARD 1- 11, 26, 59- 62 ****FILE 116 $$$$ SMP2 partitions constrained differential stiffness matrix $$$$ $$$$ + + $$$$ |_d d | $$$$ |K |K | $$$$ d | aa| ao| $$$$ [K ] = |---+---| $$$$ ff | d | d | $$$$ |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ d _d d T d T d $$$$ [K ] = [K ] + [K ][G ] + [G ] [K ] + [G ] [K ][G ] $$$$ aa aa oa o o oa o oo o $$$$ SMP2 USET,GO,KDFF/KDAA $ ****CARD 1- 11, 26, 59- 62 ****FILE 116 $$$$ LABEL LBL5D $ ****CARD 1- 11, 26, 59- 62 ****FILE 116 $$$$ d b $$$$ ADD [K ] and [K ] to form [K ]. $$$$ aa aa ll $$$$ ADD KAA,KDAA/KBLL/(1.0,0.0)/CSIGN $ ****CARD 1- 11, 26, 59- 62 ****FILE 117 $$$$ phi beta $$$$ ADD [K ] and [K ] to form [K ]. $$$$ fs fs fs $$$$ ADD KFS,KDFS/KBFS/(1.0,0.0)/CSIGN $ ****CARD 1- 11, 26, 59- 62 ****FILE 139 $$$$ d b $$$$ ADD [K ] and [K ] to form [K ]. $$$$ ss ss ss $$$$ ADD KSS,KDSS/KBSS/(1.0,0.0)/CSIGN $ ****CARD 1- 11, 26, 59- 62 ****FILE 140 $$$$ Go to label PGOK if no enforced displacements are specified. COND PGOK,NOYS $ ****CARD 1- 11, 26, 59- 62 ****FILE 111,141-145 $$$$ b $$$$ MPYAD multiplies [K ] and {Y } to form {P }. $$$$ ss s ss $$$$ MPYAD KBSS,YS,/PSS/0 $ ****CARD 1- 11, 26, 59- 62 ****FILE 141 $$$$ b $$$$ MPYAD multiplies [K ] and {Y } to form {P }. $$$$ fs s fs $$$$ MPYAD KBFS,YS,/PFS/0 $ ****CARD 1- 11, 26, 59- 62 ****FILE 142 $$$$ UMERGE combines {P } and {P } to form {P }. $$$$ fs ss n $$$$ UMERGE USET,PFS,PSS/PN/*N*/*F*/*S* $ ****CARD 1- 11, 26, 59- 62 ****FILE 143 $$$$ x $$$$ Equivalence {P } to {P } if no multipoint constraints exist. $$$$ n g $$$$ EQUIV PN,PGX/MPCF2 $ ****CARD 1- 11, 26, 59- 62 ****FILE 144 $$$$ Go to label LBL6D if no multipoint constraints exist. COND LBL6D,MPCF2 $ ****CARD 1- 11, 26, 59- 62 ****FILE 144 $$$$ x $$$$ UMERGE expands {P } to form {P }. $$$$ n g $$$$ UMERGE USET,PN,/PGX/*G*/*N*/*M* $ ****CARD 1- 11, 26, 59- 62 ****FILE 144 $$$$ LABEL LBL6D $ ****CARD 1- 11, 26, 59- 62 ****FILE 144 $$$$ x $$$$ ADD -{P } and {P } to form {P }. $$$$ g g gg $$$$ ADD PGX,PG/PGG/(-1.0,0.0)/(1.0,0.0) $ ****CARD 1- 11, 26, 59- 62 ****FILE 145 $$$$ Equivalence {P } to {P }. $$$$ gg g1 $$$$ EQUIV PGG,PG1/ALWAYS $ ****CARD 1- 11, 26, 59- 62 ****FILE 111 $$$$ LABEL PGOK $ ****CARD 1- 11, 26, 59- 62 ****FILE 111,141-145 $$$$ ADD {P } and nothing to create {P }. $$$$ g1 go $$$$ ADD PG1,/PG0/(1.0,0.0) $ ****CARD 1- 11, 26, 59- 62 ****FILE 146 $$$$ A $$$$ Copy {u } to {u } to initialize aerodynamic displacements. $$$$ g g $$$$ COPY UGV/AUGV $ ****CARD 1- 11, 26, 59- 62 ****FILE 133 $$$$ RBMG2 decomposes the combined differential stiffness matrix and elastic $$$$ stiffness matrix $$$$ $$$$ b b b $$$$ [K ] = [L ][U ] $$$$ ll ll ll $$$$ RBMG2 KBLL/LBLL/S,N,POWER/S,N,DET $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 118 $$$$ PRTPARM prints the scaled value of the determinant of the combined $$$$ differential stiffness matrix and elastic stiffness matrix. PRTPARM //0/*DET* $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 118 $$$$ PRTPARM prints the scale factor (power of ten) of the determinant of the $$$$ combined differential stiffness matrix and elastic stiffness matrix. PRTPARM //0/*POWER* $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 118 $$$$ Beginning of inner (load correction) loop for differential stiffness $$$$ iteration. LABEL INLPTOP $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ PARAM //*KLOCK*/TI $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ Go to label NOAL1 if no aerodynamic loads exist. COND NOAL1,ALOAD $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 127-130 $$$$ ALG generates aerodynamic load data. ALG CASECC,EDT,EQEXIN,AUGV,ALGDB,CSTM,BGPDT/CASECCA,GEOM3A/S,Y, APRESS/S,Y,ATEMP/-1/-1/V,Y,IPRTCL/S,N,IFAIL/V,Y,SIGN/V, Y,ZORIGN/V,Y,FXCOOR/V,Y,FYCOOR/V,Y,FZCOOR $ ****CARD 1- 11, 22, 23, 26, 27, 59- 62 ****FILE 127 $$$$ Go to label DONE if ALG fails to converge while generating aerodynamic $$$$ load data. COND DONE,IFAIL $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ PARAM //*MPY*/V,Y,IPRTCL/0 $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ PARAM //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ COND NOAL1,ALOAD $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 128-130 $$$$ GP3 GEOM3A,EQEXIN,GEOM2/SLTA,GPTTA/NOASL/NOGRAV/NOATL $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 128 $$$$ A $$$$ SSG1 generates aerodynamic load vector {P }. $$$$ g $$$$ SSG1 SLTA,BGPDT,CSTM,SIL,EST,MPT,GPTTA,EDT,MGG,CASECCA,DIT,PCOMPS/ PGA,,,,/LUSET/1/COMPS $ $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 129 $$$$ A $$$$ ADD {P } to {P } to form total load vector {P }. $$$$ g1 g g2 $$$$ ADD PG1,PGA/PG2/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 130 $$$$ LABEL NOAL1 $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 127-130 $$$$ EQUIV PG1,PG2/ALOAD $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 130 $$$$ SSG2 applies constraints to static load vectors $$$$ $$$$ _b $$$$ P $$$$ n b _b T b $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ g1 b n n m m $$$$ P $$$$ m $$$$ $$$$ _b $$$$ P $$$$ b f _b d $$$$ {P } = {--} , {P } = {P } - [K ]{Y } $$$$ n b f f fs s $$$$ P $$$$ s $$$$ $$$$ _b $$$$ P $$$$ b a b T b $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ f b l a o o $$$$ P $$$$ o $$$$ SSG2 USET,GM,YS,KDFS,GO,,PG2/,PBO,PBS,PBL $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 147 $$$$ SSG3 solves for displacements of independent coordinates for current $$$$ differential stiffness load vector $$$$ $$$$ b b -1 b $$$$ {u } = [K ] {P } $$$$ l ll l $$$$ $$$$ and calculates residual vector (RBULV) and residual vector error ratio for $$$$ differential stiffness load vector $$$$ $$$$ b b b b $$$$ {deltaP } = {P } - [K ]{u } $$$$ l l ll l $$$$ $$$$ b T b $$$$ {u } {deltaP } $$$$ b l l $$$$ epsilon = -------------- $$$$ l b T b $$$$ {P } {u } $$$$ l l $$$$ SSG3 LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/S,N, EPSI $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 119 $$$$ Go to label LBL9D if the residual vector for current differential $$$$ stiffness solution is not to be printed. COND LBL9D,IRES $ ****CARD 1- 11, 17, 22, 23, 26, 59- 62 $$$$ MATGPR prints the residual vector for current differential stiffness $$$$ solution. MATGPR GPL,USET,SIL,RUBLV//*L* $ ****CARD 1- 11, 17, 22, 23, 26, 59- 62 $$$$ LABEL LBL9D $ ****CARD 1- 11, 17, 22, 23, 26, 59- 62 ****FILE 130 $$$$ SDR1 recovers dependent displacements for the current differential $$$$ stiffness solution $$$$ $$$$ b $$$$ u $$$$ b b ob l $$$$ {u } = [G ]{u } + {u } {----} = {u } $$$$ o o l o b f $$$$ u $$$$ o $$$$ $$$$ b $$$$ u $$$$ f b b b $$$$ {---} = {u } {u } = [G ]{u } $$$$ b n m m n $$$$ Y $$$$ s $$$$ $$$$ b $$$$ u $$$$ n b $$$$ {--} = {u } $$$$ b g $$$$ u $$$$ m $$$$ $$$$ and recovers single-point forces of constraint for the current $$$$ differential stiffness solution $$$$ $$$$ b b b b b b $$$$ {q } = -{P } + [K ]{u } + [K ]{Y } $$$$ s s sf f ff s $$$$ SDR1 USET,,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/1/*DS1* $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 148 ****RFMT 187-189,191-204,207-209 $$$$ Go to label NOAL2 if no aerodynamic loads exist. COND NOAL2,ALOAD $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 133 $$$$ B A $$$$ Equivalence {u } and {u }. $$$$ g g $$$$ $$$$ EQUIV UBGV,AUGV $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 133 $$$$ LABEL NOAL2 $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 133 $$$$ b d $$$$ ADD -{U } and {U } to form {U }. $$$$ g g g $$$$ ADD UBGV,UGV/DUGV/(-1.0,0.0)/(1.0,0.0) $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 149 $$$$ d $$$$ DSMG1 generates differential stiffness matrix [delta ]. $$$$ gg $$$$ DSMG1 CASECC,GPTT,SIL,EDT,DUGV,CSTM,MPT,ECPT,GPCT,DIT/DKDGG/V,N, DSCOSET $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 150 $$$$ MPYAD forms the load vector for inner loop iteration $$$$ $$$$ d b $$$$ {P } = [delta K ] {U } + {P }. $$$$ g gg g go $$$$ I1 $$$$ MPYAD DKDGG,UBGV,PG0/PGI1/0 $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 151 $$$$ A $$$$ ADD {P } and {P } to form {P }. $$$$ g g g $$$$ I1 I2 $$$$ ADD PGI1,PGA/PGI2/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 134 $$$$ DSCHK performs differential stiffness convergence checks. DSCHK PG2,PGI2,UBGV//C,Y,EPSIO=1.E-5/S,N,DSEPSI/C,Y,NT=10/ TO/TI/S,N,DONE/S,N,SHIFT/S,N,COUNT/C,Y,BETAD=4 $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ Go to label DONE if differential stiffness iteration is complete. COND DONE,DONE $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ Go to label SHIFT if additional differential stiffness matrix changes are $$$$ necessary for further iteration. COND SHIFT,SHIFT $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ Break the previous equivalence of {P } and {P }. $$$$ g g1 $$$$ EQUIV PG,PG1/NEVER $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 111 $$$$ Equivalence {P } to {P }. $$$$ g g1 $$$$ I1 $$$$ EQUIV PGI1,PG1/ALWAYS $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 111 $$$$ Break the previous equivalence of {P } to {P }. $$$$ g1 g $$$$ I1 $$$$ EQUIV PG1,PGI1/NEVER $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 151 $$$$ Go to label INLPTOP for an additional inner loop differential stiffness $$$$ iteration. REPT INLPTOP,1000 $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ TABPT table prints vectors {P }, {P }, and {P }. $$$$ g g1 g $$$$ I1 $$$$ TABPT PGI1,PG1,PG,,// $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ LABEL SHIFT $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ d d d $$$$ ADD -[delta K ] and [K ] to form [K ]. $$$$ gg gg gg1 $$$$ ADD DKDGG,KDGG/KDGG1/(-1.0,0.0)/(1.0,0.0) $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 152 $$$$ b d d $$$$ Equivalence {U } to {U } and [K ] to [K ]. $$$$ g g gg1 gg $$$$ EQUIV UBGV,UGV/ALWAYS/KDGG1,KDGG/ALWAYS $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 111,113 $$$$ d d b $$$$ Break the previous equivalence of [K ] to [K ] and {U } to {U }. $$$$ gg gg1 g g $$$$ EQUIV KDGG,KDGG1/NEVER/UGV,UBGV/NEVER $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 120,152 $$$$ Go to label OUTLPTOP for an additional outer loop differential stiffness $$$$ iteration. REPT OUTLPTOP,1000 $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ d d $$$$ TABPT table prints [K ], [K ], and {u }. $$$$ gg1 gg g $$$$ TABPT KDGG1,KDGG,UGV,,// $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ LABEL DONE $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ PARAM //*NOP*/V,Y,KTOUT=-1 $ ****CARD 1- 11, 22, 23, 26, 28, 59- 62 $$$$ Go to label JMPKTOUT if the total stiffness matrix [KTOTAL] is not to be $$$$ saved on an external file. COND JMPKTOUT,KTOUT $ ****CARD 1- 11, 22, 23, 26, 28, 59- 62 ****FILE 153 $$$$ d $$$$ ADD [K ] and [K ] to form [KTOTAL]. $$$$ gg gg $$$$ ADD KGG,KDGG/KTOTAL/(1.0,0.0)/CSIGN $ ****CARD 1- 11, 22, 23, 26, 28, 59- 62 ****FILE 153 $$$$ OUTPUT1 outputs [KTOTAL] to an external file. OUTPUT1 KTOTAL,,,,//C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $ ****CARD 1- 11, 22, 23, 26, 28, 59- 62 $$$$ OUTPUT1 prints the names of the data blocks on the external file. OUTPUT1, ,,,,//-3/0 $ ****CARD 1- 11, 22, 23, 26, 28, 59- 62 $$$$ LABEL JMPKTOUT $ ****CARD 1- 11, 22, 23, 26, 28, 59- 62 ****FILE 153 $$$$ ALG generates final aerodynamic results and generates GRID and STREAML2 $$$$ bulk data cards on the system punch file, if requested. ALG CASECC,EDT,EQEXIN,UBGV,ALGDB,CSTM,BGPDT/CASECCB,GEOM3B/ -1/-1/V,Y,STREAML/V,Y,PGEOM/V,Y,IPRTCF/S,N,IFAIL/V,Y,SIGN/ V,Y,ZORIGN/V,Y,FXCOOR/V,Y,FYCOOR/V,Y,FZCOOR $ ****CARD 1- 11, 22, 23, 26, 27, 59- 62 ****FILE 131 $$$$ SDR2 calculates element forces (OEFB1) and stresses (OESB1) and prepares $$$$ displacement vectors (OUBGV1), and single-point forces of constraint $$$$ (OQBG1) for output and translation components of the displacement vector $$$$ (PUBGV1) for the differential stiffness solution. SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,,, PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/ *DS1*////COMPS $ ****CARD 18, 19 ****FILE 121 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OUBGV1,OQBG1,OEFB1,OESB1,,//S,N,CARDNO $ ****CARD 19 ****FILE 121 $$$$ OFP OEFB1L,OESB1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 121 $$$$ SDR1 recovers dependent displacements after differential stiffness loop $$$$ for grid point force balance. SDR1 USET,PG2,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/AUBGV,APGG,AQBG/ 1/*DS1* $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 154 $$$$ GPFDR calculates for requested sets the grid point force balance and $$$$ element strain energy for output. GPFDR CASECC,AUBGV,KELM,KDICT,ECT,EQEXIN,GPECT,APGG,AQBG/ONRGY1, OGPFB1/*STATICS* $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 155 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 11, 22, 23, 26, 59- 62 ****FILE 123 $$$$ OFP formats the tables prepared by GPFDR and places them on the system $$$$ output file for printing. OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ ****CARD 1- 11, 22, 23, 26, 59- 62 $$$$ Go to label P3 if no differential stiffness solution deformed plots are $$$$ requested. COND P3,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 156 $$$$ PLOT generates all requested differential stiffness solution deformed $$$$ structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUBGV1,,GPECT, OESB1,OESB1L,ONRGY1/PLOTX3/NSIL/LUSET/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 156 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ differential stiffness solution deformed plot generated. PRTMSG PLOTX3// $ ****SBST 7 ****CARD 18 $$$$ LABEL P3 $ ****SBST 7 ****CARD 18 ****FILE 156 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*ASTA* $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*ASTA* $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*ASTA* $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR4 $ ****SBST 8 ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*ASTA* $ ****SBST 8 ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*ASTA* $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ END $ ****CARD 1- 19, 22- 24, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 FREEPT GRDSET GRID GRIDB POINTAX PRESPT RINGAX 1 RINGFL 1 SECTAX SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CFLUID2 CFLUID3 2 CFLUID4 2 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CONROD CQDMEM 2 CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX 2 CTRIARG CQUAD4 CTRIA3 2 CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST 2 CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PIHEX PQDMEM PQDMEM1 PQDMEM2 3 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR PTORDRG PTRAPAX 3 PTRBSC PSHELL PCOMP PCOMP1 PCOMP2 3 PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM PTRPLT PTRPLT1 3 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 6 PELAS 7 PMASS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX 12 SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 26 APRESS 26 ATEMP 26 DTI 26 FXCOOR FYCOOR FZCOOR 26 PGEOM 26 SIGN STREAML STREAML1 26 ZORIGN 27 KTOUT 59 DEFORM DEFORM$ LOAD$ SPCD RFORCE$ 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 GRAV RFORCE 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET YS OGPST 102 GPST 103 GM 104 KNN 105 KFF KFS KSS 106 GO KAA KOO LOO 107 LLL 108 PG 109 PL PO PS 110 RULV RUOV ULV UOOV 111 PG1 QG UGV 112 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 112 OEF1L OES1L 113 KDGG 114 KDNN 115 KDFF KDFS KDSS 116 KDAA 117 KBLL 118 LBLL 119 UBLV RUBLV 120 QBG UBGV 121 OEFB1 OESB1 OQBG1 OUBGV1 PUBGV1 121 OEFB1L OESB1L 122 ELSETS GPSETS PLTPAR PLTSETX 123 KDICT KELM MDICT MELM 124 CASECCA1 GEOM3A1 125 SLTA1 GPTTA1 126 PGA1 127 CASECCA GEOM3A 128 SLTA GPTTA 129 PGA 130 PG2 131 CASECCB GEOM3B 132 PGNA 133 AUGV 134 PGI2 135 PLOTX1 136 OGPWG 137 PLOTX2 138 ECPT GPCT 139 KBFS 140 KBSS 141 PSS 142 PFS 143 PN 144 PGX 145 PGG 146 PG0 147 PBO PBS PBL 148 UBGV QBG 149 DUGV 150 DKDGG 151 PGI1 152 KDGG1 153 KTOTAL 154 AUBGV APGG AQBG 155 ONRGY1 OGPFB1 156 PLOTX3 157 BGPDP SIP $* =PAGE= DISP17 APR.93 $ $ NOTE: The DMAP sequence for static analysis involves use of parameters $ INTERACT and SYS21. These parameters are of relevance only when the $ primary purpose of the user is to make interactive restart runs. (The two $ parameters are then specified via the PARAM card in the bulk data deck.) $ However, these two parameters are not required for normal non-interactive $ batch runs. Consequently, the rigid format DMAP listing shown here was $ generated by not specifying those parameters (via the PARAM bulk data $ card). As a result, the COMPOFF and COMPON instructions using those $ parameters assume a value of 0 for these parameters (see Volume I, $ Section 5.7). BEGIN DISP 01 - STATIC ANALYSIS - APR. 1993 $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 * RFMT 188-204,207-209 $ FILE OPTP2=SAVE/EST1=SAVE $ * SBST 9 * CARD 1- 20, 22- 24, 28, 31, 59- 62 * RFMT 188-204,207-209 $ FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $ * SBST 1, 3 * CARD 1- 20, 22- 24, 28, 31, 59- 62 * RFMT 188-204,207-209 $ SETVAL //V,Y,INTERACT/0/V,Y,SYS21/0 $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ PARAM //*MPY*/CARDNO/0/0 $ * CARD 1- 3, 5- 10, 14, 15, 18, 19, 22- 24, 28, 61 * FILE 101,114,119,121-125,127 * PHS1 I1 $ COMPOFF causes the DMAP compiler to compile the next instruction as the $ parameter INTERACT is 0. (See NOTE above.) COMPOFF 1,INTERACT $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ PRECHK ALL $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 * RFMT 188-204,207-209 $ COMPON causes the DMAP compiler to skip the compilation of the next $ instruction as the parameter INTERACT is 0. (See NOTE above.) COMPON 1,INTERACT $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ PRECHK BGPDT,EQEXIN,SIL,SIP,ECT,GPECT, OUGV1,OES1,OEF1,OPG1,OQG1,PUGV1, OUGV2,OES2,OEF2,OPG2,OQG2,DUMMY, OES1L,OEF1L,ONRGY1 $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ COMPOFF causes the DMAP compiler to compile all of the following $ instructions through LABEL LBLINT02 as the parameter SYS21 is 0. (See $ NOTE above.) COMPOFF LBLINT02,SYS21 $ * CARD 1-20,22-24,28,31,59-62 $ GP1 generates coordinate system transformation matrices, tables of grid $ point locations, and tables relating the internal and external grid point $ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ * CARD 1 * FILE 94 * PHS2 D5 $ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ * CARD 1 * FILE 129 $ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ * CARD 1, 2, 4, 5, 16 * FILE 95 $ PARAML PCDB//*PRES*////JUMPPLOT $ * SBST 7 * CARD 18 * FILE 115,120 * PHS2 DB5 $ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ * SBST 7 * CARD 18 * FILE 115 $ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ * SBST 7 * CARD 1, 2, 4, 5, 16, 18 * FILE 115,120 $ PLTSET transforms user input into a form used to drive the structure $ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ * SBST 7 * CARD 1, 2, 4, 5, 16, 18 * FILE 115 $ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ * SBST 7 * CARD 1, 2, 4, 5, 16, 18 * FILE 115 $ PARAM //*MPY*/PLTFLG/1/1 $ * SBST 7 * CARD 1, 2, 4, 5, 16, 18 * FILE 120 $ PARAM //*MPY*/PFILE/0/0 $ * SBST 7 * CARD 1, 2, 4, 5, 16, 18 * FILE 120 $ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ * SBST 7 * CARD 1, 2, 4, 5, 16, 18 * FILE 120 $ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ * SBST 7 * CARD 1, 2, 4, 5, 16, 18 * FILE 120 $ PRTMSG prints plotter data and engineering data for each undeformed plot $ generated. PRTMSG PLOTX1// $ * SBST 7 * CARD 1, 2, 4, 5, 16, 18 * FILE 120 $ LABEL P1 $ * SBST 7 * CARD 1, 2, 4, 5, 16, 18 * FILE 115,120 * PHS2 DE5 $ GP3 generates Static Loads Table and Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $ * CARD 1, 2, 13, 60, 61 * FILE 96 $ PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ * CARD 1, 2, 15, 61 * FILE 96, 99 * RFMT 188-204,207-209 $ TA1 generates element tables for use in matrix assembly and stress $ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ * CARD 1- 6, 13, 16 * FILE 97 $ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 * FILE 97 $ PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ * CARD 1, 2, 4- 6, 16 * FILE 97 * PHS2 DB5 * RFMT 188-204,207-209 $ Go to label ERROR4 and print Error Message No. 4 if no elements have been $ defined. COND ERROR4,NOELMT $ * CARD 1, 2, 4- 6, 16 * FILE 97 * PHS2 DE5 * RFMT 188-204,207-209 $ PURGE KGGX/NOSIMP $ * CARD 1, 2, 4- 6, 16 * FILE 98 $ OPTPR1 performs phase one property optimization and initialization check. OPTPR1 MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ * SBST 9 * CARD 1- 6, 8, 13 * FILE 117 $ Beginning of loop for property optimization. LABEL LOOPTOP $ * SBST 9 * CARD 1- 6 * FILE 117 $ Go to label LBL1 if there are no structural elements. COND LBL1,NOSIMP $ * CARD 1- 3, 5, 6, 8, 13- 16, 24, 61 * FILE 98, 99,116,121 $ PARAM //*ADD*/NOKGGX/1/0 $ * CARD 1- 3, 6, 8 * FILE 98 $ EQUIV OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ * SBST 9 * CARD 1- 6, 13, 16 * FILE 118 * PHS2 D5 $ EMG generates structural element stiffness and mass matrix tables and $ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ * CARD 1- 3, 5, 6, 8, 13, 15, 24, 61 * FILE 116 $ Go to label JMPKGG if no stiffness matrix is to be assembled. COND JMPKGG,NOKGGX $ * CARD 1- 3, 6, 8 * FILE 98 $ x $ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $ gg $ EMA GPECT,KDICT,KELM/KGGX $ * CARD 1- 3, 6, 8 * FILE 98 $ LABEL JMPKGG $ * CARD 1- 3, 6, 8 * FILE 98 $ PURGE MGG/NOMGG $ * CARD 1- 3, 5, 8, 14, 15, 24, 61 * FILE 99 $ Go to label JMPMGG if no mass matrix is to be assembled. COND JMPMGG,NOMGG $ * CARD 1- 3, 5, 8, 14, 15, 24, 61 * FILE 99 $ EMA assembles mass matrix [M ]. $ gg $ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ * CARD 1- 3, 5, 8, 14, 15, 24, 61 * FILE 99 $ PURGE MDICT,MELM/ALWAYS $ * CARD 1- 3, 5, 8, 14, 15, 24, 61 * FILE 116 $ LABEL JMPMGG $ * CARD 1- 3, 5, 8, 14, 15, 24, 61 * FILE 99 $ Go to label LBL1 if no weight and balance information is requested. COND LBL1,GRDPNT $ * SBST 8 * CARD 1- 3, 5, 8, 14, 15, 24, 61 * FILE 121 $ Go to label ERROR2 and print Error Message No. 2 if no mass matrix $ exists. COND ERROR2,NOMGG $ * SBST 8 * CARD 1- 3, 5, 8, 14, 15, 24, 61 * FILE 121 $ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ * SBST 8 * CARD 1- 3, 5, 8, 14, 15, 24, 61 * FILE 121 $ OFP formats the weight and balance information prepared by GPWG and $ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ * SBST 8 * CARD 1- 3, 5, 8, 14, 15, 24, 61 * FILE 121 $ LABEL LBL1 $ * CARD 1- 3, 5, 8, 13- 16, 24, 61 * FILE 98, 99,116,121 $ x $ Equivalence [K ] to [K ] if no general elements exist. $ gg gg $ EQUIV KGGX,KGG/NOGENL $ * CARD 1- 4, 6, 8 * FILE 100 * PHS2 DB5 $ Go to label LBL11A if no general elements exist. COND LBL11A,NOGENL $ * CARD 1- 4, 6, 8 * FILE 100 $ x $ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $ gg gg $ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ * CARD 1- 4, 6, 8 * FILE 100 $ LABEL LBL11A $ * CARD 1- 4, 6, 8 * FILE 100 $ GPSTGEN KGG,SIL/GPST $ * CARD 1- 4, 6, 8 * FILE 102 * PHS2 DE5 $ PARAM //*MPY*/NSKIP/0/0 $ * CARD 1, 9- 12, 22, 23, 31, 59 * FILE 101 $ Beginning of loop for multiple constraint sets. LABEL LBL11 $ * SBST 1, 3 * CARD 22, 23 * FILE 101 $ GP4 generates flags defining members of various displacement sets $ (USET), forms multipoint constraint equations [R ] {u } = 0, and forms $ g g $ enforced displacement vector {Y }. $ s $ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ * CARD 1- 4, 6, 8- 12, 20, 22, 23, 28, 31, 59 * FILE 101 $ OFP OGPST,,,,,//S,N,CARDNO $ * CARD 1- 4, 6, 8- 12, 22, 23, 28 * FILE 101 $ Go to label ERROR3 and print Error Message No. 3 if no independent $ degrees of freedom are defined. COND ERROR3,NOL $ * CARD 1, 9- 12, 22, 23, 59 * FILE 101 * RFMT 188-204,207-209 * PHS1 I1 $ PARAM //*AND*/NOSR/SINGLE/REACT $ * CARD 1, 9- 12, 22, 23, 59 * FILE 101 $ PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ * CARD 1, 9- 12, 22, 23, 59 * FILE 103,105-107,109,111,113 $ Equivalence [K ] to [K ] if no multipoint constraints exist. $ gg nn EQUIV KGG,KNN/MPCF1 $ * CARD 1- 4, 6, 8, 9, 22, 23 * FILE 104 $ Go to label LBL2 if the MPC set for the current pass is unchanged from $ that of the previous pass. COND LBL2,MPCF2 $ * CARD 1- 4, 6, 8, 9, 22, 23 * FILE 103,104 $ MCE1 partitions multipoint constraint equations [R ] = [R |R ] and $ g m n $ solves for multipoint constraint transformation matrix [G ] = $ -1 m $ - [R ] [R ]. $ m n $ MCE1 USET,RG/GM $ * CARD 1, 9, 22, 23 * FILE 103 $ MCE2 partitions stiffness matrix $ $ +_ + $ |K |K | $ | nn| nm| $ [K ] = |---+---| $ gg |K |K | $ | mn| mm| $ + + $ $ and performs the matrix reduction $ $ _ T T T $ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $ nn nm m mn mn m m mm m $ MCE2 USET,GM,KGG,,,/KNN,,, $ * CARD 1- 4, 6, 8, 9, 22, 23 * FILE 104 $ LABEL LBL2 $ * CARD 1- 4, 6, 8, 9, 22, 23 * FILE 103,104 $ Equivalence [K ] to [K ] if no single-point constraints exist. $ nn ff $ EQUIV KNN,KFF/SINGLE $ * CARD 1- 4, 6, 8- 10, 22, 23 * FILE 105 $ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ * CARD 1- 4, 6, 8- 10, 22, 23 * FILE 105 $ SCE1 partitions out single-point constraints. $ $ + + $ |K |K | $ | ff| fs| $ [K ] = |---+---| $ nn |K |K | $ | sf| ss| $ + + $ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ * CARD 1- 4, 6, 8- 10, 22, 23 * FILE 105 $ LABEL LBL3 $ * CARD 1- 4, 6, 8- 10, 22, 23 * FILE 105 $ Equivalence [K ] to [K ] if no omitted coordinates exist. $ ff aa $ EQUIV KFF,KAA/OMIT $ * CARD 1- 4, 6, 8- 11, 22, 23 * FILE 106 $ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ * CARD 1- 4, 6, 8- 11, 22, 23 * FILE 106 $ SMP1 partitions constrained stiffness matrix $ $ +_ + $ |K |K | $ | aa| ao| $ [K ] = |---+---| $ ff |K |K | $ | oa| oo| $ + + $ $ -1 $ solves for transformation matrix [G ] = -[[K ] [K ] $ o oo oa $ $ _ T $ and performs matrix reduction [K ] = [K ] + [K ]{G ]. $ aa aa oa o $ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ * CARD 1- 4, 6, 8- 11, 22, 23 * FILE 106 $ LABEL LBL5 $ * CARD 1- 4, 6, 8- 11, 22, 23 * FILE 106 $ Equivalence [K ] to [K ] if no free-body supports exist. $ aa ll $ EQUIV KAA,KLL/REACT $ * CARD 1- 4, 6, 8- 12, 22, 23 * FILE 107 * PHS1 DB1 * PHS3 DB1 $ Go to label LBL6 if no free-body supports exist. COND LBL6,REACT $ * CARD 1- 4, 6, 8- 12, 22, 23 * FILE 107 $ RBMG1 partitions out free-body supports $ $ + + $ |K |K | $ | ll| lr| $ [K ] = |---+---| $ aa |K |K | $ | rl| rr| $ + + $ RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ * CARD 1- 4, 6, 8- 12, 22, 23 * FILE 107 $ LABEL LBL6 $ * CARD 1- 4, 6, 8- 12, 22, 23 * FILE 107 $ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $ ll ll ll $ RBMG2 KLL/LLL $ * CARD 1- 4, 6, 8- 12, 22, 23 * FILE 108 $ Go to label LBL7 if no free-body supports exist. COND LBL7,REACT $ * CARD 1- 4, 6, 8- 12, 22, 23 * FILE 109 $ RBMG3 forms rigid body transformation matrix $ $ -1 $ [D] = -[K ] [K ] $ ll lr $ $ calculates rigid body check matrix $ $ T $ [X] = [K ] + [K ][D] $ rr lr $ $ and calculates rigid body error ratio $ $ $ ||X|| $ epsilon = --------- $ ||K || $ rr $ RBMG3 LLL,KLR,KRR/DM $ * CARD 1- 4, 6, 8- 12, 22, 23 * FILE 109 $ LABEL LBL7 $ * CARD 1- 4, 6, 8- 12, 22, 23 * FILE 109 * PHS1 DE1 * PHS3 DE1 $ SSG1 generates static load vectors {P }. $ g $ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ * CARD 1- 3, 5, 6, 8, 13, 22, 23, 59- 62 * FILE 110 $ Equivalence {P } to {P } if no constraints are applied. $ g l $ EQUIV PG,PL/NOSET $ * CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 * FILE 111 * PHS1 DB1 $ Go to label LBL10 if no constraints are applied. COND LBL10,NOSET $ * CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 * FILE 111 * PHS3 DB7 $ SSG2 applies constraints to static load vectors $ $ _ $ P $ n _ T $ {P } = {--} , {P } = {P } + [G ]{P } $ g P n n m m $ m $ $ _ $ P $ f _ $ {P } = {--} , {P } = {P } - [K ]{Y } $ n P f f fs s $ s $ $ _ $ P $ a _ T $ {P } = {--} , {P } = {P } + [G ]{P } $ f P a a o o $ o $ $ P $ l $ {P } = {--} $ a P $ r $ T $ and calculates determinate forces of reaction {q } = -{P } - [D ]{P }. $ r r l $ SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ * CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 * FILE 111 $ LABEL LBL10 $ * CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 * FILE 111 $ SSG3 solves for displacements of independent coordinates $ $ -1 $ {u } = [K ] {P } $ l ll l $ $ solves for displacements of omitted coordinates $ $ o -1 $ {u } = [K ] {P } $ o oo o $ $ calculates residual vector (RULV) and residual vector error ratio for $ independent coordinates $ $ {deltaP } = {P } - [K ]{u } $ l l ll l $ $ T $ {u }{deltaP } $ l l $ epsilon = ------------- $ l T $ {P }{u } $ l l $ $ and calculates residual vector (RUOV) and residual vector error ratio for $ omitted coordinates $ o $ {deltaP } = {P } - [K ]{u } $ o o oo o $ $ T $ {u }{deltaP } $ o o $ epsilon = ------------- $ o T o $ {P }{u } $ o o $ SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ NSKIP/S,N,EPSI $ * CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 * FILE 112 * RFMT 188 $ Go to label LBL9 if residual vectors are not to be printed. COND LBL9,IRES $ * CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 * RFMT 188-204,207-209 $ MATGPR prints the residual vector for independent coordinates (RULV). MATGPR GPL,USET,SIL,RULV//*L* $ * CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 * RFMT 188-204,207-209 $ MATGPR prints the residual vector for omitted coordinates (RUOV). MATGPR GPL,USET,SIL,RUOV//*O* $ * CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 * RFMT 188-204,207-209 $ LABEL LBL9 $ * CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 * RFMT 188-204,207-209 * PHS3 DE7 $ SDR1 recovers dependent displacements $ $ u $ l o $ {--} = {u } , {u } = [G ]{u ] + {u } , $ u a o o a o $ r $ $ u u $ a f $ {--} = {u } , {--} = {u } , $ u f Y n $ o s $ $ u $ n $ {u } = [G ]{u ] , {--} = {u } $ m m n u g $ m $ $ and recovers single-point forces of constraint $ $ T $ {q } = -{P } + [K ]{u } + [K ]{Y } $ s s fs f ss s $ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ *STATICS* $ * CARD 1- 6, 8- 13, 22, 23, 59- 62 * FILE 113 * RFMT 188-204,207-209 * PHS3 I7 $ Go to label LBL8 if all constraint sets have been processed. COND LBL8,REPEAT $ * SBST 1, 3 * CARD 22, 23 * RFMT 188-204,207-209 $ Go to label LBL11 if additional sets of constraints need to be processed. REPT LBL11,360 $ * SBST 1, 3 * CARD 22, 23 * RFMT 188-204,207-209 $ Go to label ERROR1 and print Error Message No. 1 if the number of $ constraint sets exceeds 360. JUMP ERROR1 $ * SBST 1, 3 * CARD 22, 23 * RFMT 188-204,207-209 $ PARAM //*NOT*/TEST/REPEAT $ * CARD 22, 23 * RFMT 188-204,207-209 $ Go to label ERROR5 and print Error Message No. 5 if multiple boundary $ conditions are attempted with an improper subset. COND ERROR5,TEST $ * CARD 22, 23 * RFMT 188-204,207-209 $ LABEL LBL8 $ * SBST 1, 3 * CARD 22, 23 * RFMT 188-204,207-209 $ GPFDR calculates the grid point force balance (OGPFB1) and element strain $ energy (ONRGY1) for requested sets. GPFDR CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/ *STATICS* $ * CARD 18, 19 * FILE 119 * PHS2 DB5 $ PURGE KDICT,KELM/REPEAT $ * CARD 1- 3, 6, 8, 18, 19 * FILE 116 $ OFP formats the tables prepared by GPFDR and places them on the system $ output file for printing. OFP ONRGY1,OGPFB1,,,,//S,N,CARDNO $ * CARD 18, 19 * FILE 119 $ Go to label NOMPCF if no multipoint constraint force balance is $ requested. COND NOMPCF,GRDEQ $ * CARD 7 * FILE 127 $ EQMCK calculates the force and moment equilibrium check and prepares the $ multipoint constraint force balance (OQM1) for output. EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ * CARD 7 * FILE 127 $ OFP formats the table prepared by EQMCK and places it on the system $ output file for printing. OFP OQM1,,,,,//S,N,CARDNO $ * CARD 7 * FILE 127 $ LABEL NOMPCF $ * CARD 7 * FILE 127 $ SDR2 calculates the element forces (OEF1) and stresses (OES1) and $ prepares load vectors (OPG1), displacement vectors (OUGV1), and single- $ point forces of constraint (OQG1) for output and translation components $ of the displacement vectors (PUGV1). SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L, OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ * CARD 18, 19 * FILE 114 $ Go to label LBLSTRS if element stresses in material coordinate system and $ stresses at the connected grid points are not to be calculated. COND LBLSTRS,STRESS $ * CARD 18, 19 * FILE 122 $ CURV calculates element stresses in material coordinate system (OES1M) $ and stresses at the connected grid points (OES1G). CURV OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/ V,Y,NINTPTS $ * CARD 18, 19 * FILE 122 $ LABEL LBLSTRS $ * CARD 18, 19 * FILE 122 $ PURGE OES1M/STRESS $ * CARD 18, 19 * FILE 122 $ Go to label LBLSTRN if element strains/curvatures are not to be $ calculated. COND LBLSTRN,STRNFLG $ * CARD 18, 19 * FILE 123,124 $ SDR2 calculates element strains/curvatures (OES1A). SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/ ,,,OES1A,,,,/*STATICS*//1 $ * CARD 18, 19 * FILE 123 $ Go to label LBLSTRN if element strains/curvatures in material coordinate $ system and strains/curvatures at the connected grid points are not to be $ calculated. COND LBLSTRN,STRAIN $ * CARD 18, 19 * FILE 124 $ CURV calculates element strains/curvatures in material coordinate system $ (OES1AM) and strains/curvatures at the connected grid points (OES1AG). CURV OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/ V,Y,NINTPTS $ * CARD 18, 19 * FILE 124 $ LABEL LBLSTRN $ * CARD 18, 19 * FILE 123,124 $ PURGE OES1A/STRNFLG $ * CARD 18, 19 * FILE 123,124 $ Go to label LBL17 if there are no requests for output sorted by grid $ point number or element number. COND LBL17,NOSORT2 $ * CARD 18, 19, 29 * FILE 125,126 $ SDR3 prepares requested output sorted by grid point number or element $ number. SDR3 OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $ * CARD 18, 19 * FILE 125 $ PARAM //*SUB*/PRTSORT2/NOSORT2/1 $ * CARD 18, 19 * FILE 125 $ Go to label LBLSORT1 if printed output sorted by grid point number or $ element number is not required. COND LBLSORT1,PRTSORT2 $ * CARD 18, 19 * FILE 125 $ OFP formats the tables prepared by SDR3 for output sorted by grid point $ number or element number and places them on the system output file for $ printing. OFP OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $ * CARD 18, 19 * FILE 125 $ SCAN examines the element stresses and forces calculated by SDR3 and $ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES2,OEF2/OESF2/*RF* $ * CARD 19 * FILE 125 $ OFP formats the scanned output table prepared by SCAN and places it on $ the system output file for printing. OFP OESF2,,,,,//S,N,CARDNO $ * CARD 19 * FILE 125 $ Go to label LBLXYPLT. JUMP LBLXYPLT $ * CARD 18, 19 * FILE 125 $ LABEL LBLSORT1 $ * CARD 18, 19 * FILE 125 $ OFP formats the tables prepared by SDR2 for output sorted by subcase $ number and places them on the system output file for printing. OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ * CARD 18, 19 * FILE 114 $ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ * CARD 18, 19 * FILE 114 $ SCAN examines the element stresses and forces calculated by SDR2 and $ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES1,OEF1/OESF1/*RF* $ * CARD 19 * FILE 114 $ OFP formats the scanned output table prepared by SCAN and places it on $ the system output file for printing. OFP OESF1,,,,,//S,N,CARDNO $ * CARD 19 * FILE 114 $ LABEL LBLXYPLT $ * CARD 18, 19 * FILE 125 $ OFP formats the tables prepared by CURV and SDR2 for output sorted by $ subcase number and places them on the system output file for printing. OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ * CARD 18, 19 * FILE 114 $ XYTRAN prepares the input for requested X-Y plots. XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ * SBST 7 * CARD 29 * FILE 126 $ XYPLOT prepares the requested X-Y plots of displacements, forces, $ stresses, loads, and single-point forces of constraint vs. subcase. XYPLOT XYPLTT// $ * SBST 7 * CARD 29 * FILE 126 $ Go to label DPLOT. JUMP DPLOT $ * SBST 7 * CARD 29 * FILE 126 $ LABEL LBL17 $ * CARD 18, 19, 29 * FILE 125,126 $ PURGE OUGV2/NOSORT2 $ * CARD 18, 19 * FILE 125,126 $ Go to label LBLOFP if there is no phase two property optimization. COND LBLOFP,COUNT $ * SBST 9 * CARD 18, 19 * FILE 118 $ OPTPR2 performs phase two property optimization. OPTPR2 OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N, CARDNO $ * SBST 9 * CARD 18, 19 * FILE 118 $ Equivalence EST2 to EST and OPTP2 to OPTP1. EQUIV EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $ * SBST 9 * CARD 18, 19 * FILE 97,117 $ Go to label LOOPEND if no additional output is to be printed for this $ loop. COND LOOPEND,PRINT $ * SBST 9 * CARD 18, 19 * FILE 118,128 $ LABEL LBLOFP $ * SBST 9 * CARD 18, 19 * FILE 118 $ OFP formats the tables prepared by SDR2 for output sorted by subcase $ number and places them on the system output file for printing. OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ * CARD 19 * FILE 114 $ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ * CARD 19 * FILE 114 $ SCAN examines the element stresses and forces calculated by SDR2 and $ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES1,OEF1/OESF1X/*RF* $ * CARD 19 * FILE 114 $ OFP formats the scanned output table prepared by SCAN and places it on $ the system output file for printing. OFP OESF1X,,,,,//S,N,CARDNO $ * CARD 19 * FILE 114 $ OFP formats the tables prepared by CURV and SDR2 for output sorted by $ sucbcase number and places them on the system output file for printing. OFP OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ * CARD 19 * FILE 122-124 $ LABEL DPLOT $ * SBST 7 * CARD 18, 29 * FILE 126 $ Go to label P2 if no deformed structure plots are requested. COND P2,JUMPPLOT $ * SBST 7 * CARD 18 * FILE 128 $ PLOT generates all requested deformed structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ * SBST 7 * CARD 18, 29 * FILE 128 $ PRTMSG prints plotter data, engineering data, and contour data for each $ deformed plot generated. PRTMSG PLOTX2// $ * SBST 7 * CARD 18, 29 * FILE 128 $ LABEL P2 $ * SBST 7 * CARD 18 * FILE 128 $ LABEL LOOPEND $ * SBST 9 * CARD 18, 22, 23 * FILE 128 * PHS1 DE1 * PHS2 DE5 $ Go to label FINIS and make normal exit if property optimization is $ complete. COND FINIS,COUNT $ * SBST 9 * CARD 18, 22, 23 $ Go to label LOOPTOP if additional loops for property optimization are $ needed. REPT LOOPTOP,360 $ * SBST 9 * CARD 18, 22, 23 $ Go to label FINIS and make normal exit. JUMP FINIS $ * CARD 1- 20, 22- 24, 28, 29, 31, 59- 62 * RFMT 188-204,207-209 $ LABEL ERROR1 $ * SBST 1, 3 * CARD 22, 23 * RFMT 188-204,207-209 $ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*STATICS* $ * SBST 1, 3 * CARD 22, 23 * RFMT 188-204,207-209 $ LABEL ERROR2 $ * SBST 8 * CARD 1- 3, 5, 8, 14, 15, 24, 61 * FILE 121 * RFMT 188-204,207-209 $ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*STATICS* $ * SBST 8 * CARD 1- 3, 5, 8, 14, 15, 24, 61 * FILE 121 * RFMT 188-204,207-209 $ LABEL ERROR3 $ * CARD 1, 9- 12, 22, 23, 59 * FILE 101 * RFMT 188-204,207-209 $ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*STATICS* $ * CARD 1, 9- 12, 22, 23, 59 * FILE 101 * RFMT 188-204,207-209 $ LABEL ERROR4 $ * CARD 1, 2, 4- 6, 16 * FILE 97 * RFMT 188-204,207-209 $ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*STATICS* $ * CARD 1, 2, 4- 6, 16 * FILE 97 * RFMT 188-204,207-209 $ LABEL ERROR5 $ * CARD 22, 23 * RFMT 188-204,207-209 $ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*STATICS* $ * CARD 22, 23 * RFMT 188-204,207-209 $ LABEL FINIS $ * CARD 1- 24, 28, 29, 31, 59- 62 * RFMT 188-204,207-209 $ PURGE DUMMY/ALWAYS $ * CARD 1- 24, 28, 29, 31, 59- 62 * RFMT 188-204,207-209 $ LABEL LBLINT02 $ * CARD 1-20,22-24,28,31,59-62 $ COMPON causes the DMAP compiler to skip the compilation of all of the $ following instructions through label LBLINT01 as the parameter SYS21 is 0 $ (see NOTE at the beginning). COMPON LBLINT01,SYS21 $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ PARAM //*SYST*//86/1 $ * CARD 1-20,22-24,28,31,59-62 $ SETVAL //V,N,PFILE/0 $ * CARD 1-20,22-24,28,31,59-62 $ LABEL AGAIN $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ PROMPT1 //S,N,PEXIT/S,N,PLOT1/S,N,PLOT2/S,N,XYPLOT/ S,N,SCAN1/S,N,SCAN2 $ * CARD 1-20,22-24,28,31,59-62 $ COND LBLINT1,PEXIT $ * CARD 1-20,22-24,28,31,59-62 $ PARAM //*OR*/V,N,PLOTZ/V,N,PLOT1/V,N,PLOT2 $ * CARD 1-20,22-24,28,31,59-62 $ PARAM //*NOT*/V,N,NOPLOTZ/V,N,PLOTZ $ * CARD 1-20,22-24,28,31,59-62 $ COND STEPPLOT,NOPLOTZ $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ PURGE PLTSETR,PLTPARR,GPSETR,ELSETR/NOPLOTZ $ * CARD 1-20,22-24,28,31,59-62 $ PLTSET PCDB,EQEXIN,ECT,/PLTSETR,PLTPARR,GPSETR,ELSETR/S,N,NSIL/ S,N,JUMPPLOT $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ PRTMSG PLTSETR $ * CARD 1-20,22-24,28,31,59-62 $ COND LBLINT2,PLOT2 $ * CARD 1-20,22-24,28,31,59-62 $ SETVAL //S,N,PLTFG1/1 $ * CARD 1-20,22-24,28,31,59-62 $ PLOT PLTPARR,GPSETR,ELSETR,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/ PLOTX3/NSIL/LUSET/JUMPPLOT/PLTFG1/S,N,PFILE $ * CARD 1-20,22-24,28,31,59-62 $ PRTMSG PLOTX3 $ * CARD 1-20,22-24,28,31,59-62 $ SITEPLOT $ * CARD 1-20,22-24,28,31,59-62 $ PURGE PLTSETR,PLTPARR,GPSETR,ELSETR $ * CARD 1-20,22-24,28,31,59-62 $ JUMP LBLINTEX $ * CARD 1-20,22-24,28,31,59-62 $ LABEL LBLINT2 $ * CARD 1-20,22-24,28,31,59-62 $ SETVAL //S,N,PLTFG2/-1 $ * CARD 1-20,22-24,28,31,59-62 $ PLOT PLTPARR,GPSETR,ELSETR,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT, OES1,OES1L,ONRGY1/PLOTX4/NSIL/LUSEP/JUMPPLOT/PLTFG2/S,N,PFILE $ * CARD 1-20,22-24,28,31,59-62 $ PRTMSG PLOTX4// $ * CARD 1-20,22-24,28,31,59-62 $ SITEPLOT $ * CARD 1-20,22-24,28,31,59-62 $ PURGE PLTSETR,PLTPARR,GPSETR,ELSETR $ * CARD 1-20,22-24,28,31,59-62 $ JUMP LBLINTEX $ * CARD 1-20,22-24,28,31,59-62 $ LABEL STEPPLOT $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ PARAM //*OR*/V,N,SCANZ/V,N,SCAN1/V,N,SCAN2 $ * CARD 1-20,22-24,28,31,59-62 $ PARAM //*NOT*/V,N,NOSCANZ/V,N,SCANZ $ * CARD 1-20,22-24,28,31,59-62 $ COND STEPSCAN,NOSCANZ $ * CARD 1-20,22-24,28,31,59-62 $ PURGE OESF1I,OESF2I/NOSCANZ $ * CARD 1-20,22-24,28,31,59-62 $ COND LBLINT3,SCAN2 $ * CARD 1-20,22-24,28,31,59-62 $ SCAN CASECC,OES1,OEF1/OESF1I/*OL1* $ * CARD 1-20,22-24,28,31,59-62 $ OFP OESF1I,,,,,//S,N,CARDNO $ * CARD 1-20,22-24,28,31,59-62 $ PURGE OESF1I $ * CARD 1-20,22-24,28,31,59-62 $ JUMP LBLINTEX $ * CARD 1-20,22-24,28,31,59-62 $ LABEL LBLINT3 $ * CARD 1-20,22-24,28,31,59-62 $ SCAN CASECC,OES2,OEF2/OESF2I/*OL2* $ * CARD 1-20,22-24,28,31,59-62 $ OFP OESF2I,,,,,//S,N,CARDNO $ * CARD 1-20,22-24,28,31,59-62 $ PURGE OESF2I $ * CARD 1-20,22-24,28,31,59-62 $ JUMP LBLINTEX $ * CARD 1-20,22-24,28,31,59-62 $ LABEL STEPSCAN $ * CARD 1-20,22-24,28,31,59-62 $ PARAM //*NOT*/V,N,NOXYPT/V,N,XYPLOT $ * CARD 1-20,22-24,28,31,59-62 $ COND LBLINTEX,NOXYPT $ * CARD 1-20,22-24,28,31,59-62 $ PURGE XYPLTI/NOXYPT $ * CARD 1-20,22-24,28,31,59-62 $ XYTRAN XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTI/*TRAN*/ *PSET*/S,N,PFILE/S,N,CARDNO $ * CARD 1-20,22-24,28,31,59-62 $ XYPLOT XYPLTI// $ * CARD 1-20,22-24,28,31,59-62 $ SITEPLOT $ * CARD 1-20,22-24,28,31,59-62 $ PURGE XYPLTI $ * CARD 1-20,22-24,28,31,59-62 $ JUMP LBLINTEX $ * CARD 1-20,22-24,28,31,59-62 $ LABEL LBLINTEX $ * CARD 1-20,22-24,28,31,59-62 $ REPT AGAIN,400 $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ PRTPARM //1/*STATICS* $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ LABEL LBLINT1 $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ LABEL LBLINT01 $ * CARD 1- 20, 22- 24, 28, 31, 59- 62 $ END $ * CARD 1- 24, 28, 29, 31, 59- 62 * RFMT 188-204,207-209 $ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CHBDY CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CONROD CQDMEM CQDMEM1 CQDMEM2 2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA CTORDRG 2 CTRAPAX CQUAD4 CTRIA3 2 CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG CTRIM6 2 CTRMEM 2 CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PHBDY PIHEX PQDMEM PQDMEM1 3 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR PTORDRG 3 PTRAPAX PSHELL PCOMP PCOMP1 PCOMP2 3 PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM PTRPLT 3 PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 7 AOUT$ 8 MAT1 MAT2 MAT3 MAT4 MAT5 MATT1 MATT2 8 MATT3 MAT8 8 MATT4 MATT5 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ 8 TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 OPT GRDEQ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 STRESS 26 STRAIN 27 NINTPTS 28 AUTOSPC 29 XYOUT$ 31 NOLOOP$ 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 GRAV RFORCE 62 TEMPLD$ $ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 GPECT EST GEI MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 RG USET YS ASET OGPST 102 GPST 103 GM 104 KNN 105 KFF KFS KSS 106 GO KAA KOO LOO 107 KLL KLR KRR 108 LLL 109 DM 110 PG 111 PL PO PS QR 112 RULV RUOV ULV UOOV 113 PGG QG UGV 114 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 114 OEF1L OES1L OESF1 OESF1X 115 ELSETS GPSETS PLTPAR PLTSETX 116 KDICT KELM MDICT MELM 117 OPTP1 118 OPTP2 EST1 119 OGPFB1 ONRGY1 120 PLOTX1 121 OGPWG 122 OES1M OES1G 123 OES1A 124 OES1AM OES1AG 125 OUGV2 OPG2 OQG2 OEF2 OES2 OESF2 126 XYPLTT 127 OQM1 128 PLOTX2 129 BGPDP SIP $* =PAGE= DISP18 DISP18 RIGID FORMAT IS NOT AVAILABLE =PAGE= DISP19 DISP19 RIGID FORMAT IS NOT AVAILABLE =PAGE= DISP20 DISP20 RIGID FORMAT IS NOT AVAILABLE =PAGE= DISP2 APR.93 $$$$$$$$ BEGIN DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1993 $ ****CARD 1- 24, 59- 62 ****RFMT 187,189-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 24, 59- 62 ****RFMT 187,189-204,207-209 $$$$ FILE QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE $ ****SBST 1, 3 ****CARD 1- 24, 59- 62 ****RFMT 187,189-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 5- 10, 14, 15, 19, 21- 24, 61 ****FILE 101,116,120,121 ****PHS1 I1 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 ****PHS2 D5 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 123 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 117,119 ****PHS2 DB5 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 117 $$$$ Go to label P2 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 117,119 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 117 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 117 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 117,119 ****PHS2 DE5 $$$$ GP3 generates Static Loads Table and Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ ****CARD 1, 2, 13, 60, 61 ****FILE 96 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 24, 59- 62 ****FILE 97 $$$$ Go to label ERROR6 and print Error Message No. 6 if there are no $$$$ structural elements. COND ERROR6,NOSIMP $ ****CARD 1- 6, 16 ****FILE 97 ****PHS2 D5 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 118 ****RFMT 187,190-192 $$$$ EMG generates structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24, 61 ****FILE 118 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPKGG if no stiffness matrix is to be assembled. COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/ALWAYS $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to $$$$ be assembled. COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 118 ****RFMT 187,189-204,207-209 ****PHS2 D5 $$$$ EMA assembles mass matrix [M ]. $$$$ gg EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 118 $$$$ Go to label LGPWG if no weight and balance information is requested. COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 120 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 120 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 120 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 120 $$$$ x $$$$ Equivalence [K ] to [K ] if no general elements exist. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 ****PHS2 DB5 $$$$ Go to label LBL11A if no general elements exist. COND LBL11A,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements fo [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11A $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 ****PHS2 DE5 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 $$$$ Beginning of loop for multiple constraint sets. LABEL LBL11 $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 100 $$$$ GP4 generates flags defining members of various displacement sets (USET), $$$$ forms multipoint constraint equations [R ]{u } = 0, and forms enforced $$$$ g g $$$$ displacement vector {Y }. $$$$ s $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20- 23, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21- 23 ****FILE 101 $$$$ Go to label ERROR3 and print Error Message No. 3 if no independent $$$$ degrees of freedom are defined. COND ERROR3,NOL $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 187,189-204,207-209 $$$$ Go to label ERROR4 and print Error Message No. 4 if no free-body supports $$$$ exist. COND ERROR4,REACT $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 187,189-204,207-209 ****PHS1 D1 $$$$ PURGE GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/ SINGLE $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 103,105,106,112,114 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no multipoint $$$$ gg nn gg nn $$$$ constraints exist. EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 22, 23 ****FILE 104 $$$$ Go to label LBL2 if the MPC set for the current pass is unchanged from $$$$ that of the previous pass. COND LBL2,MPCF2 $ ****CARD 1- 6, 8, 9, 22, 23 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equations [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9, 22, 23 ****FILE 103 $$$$ MCE2 partitions stiffness and mass matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |M |M | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ gg |K |K | gg |M |M | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ and performs the matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [G ][M ] + [M ][G ] + [G ][M ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 22, 23 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 22, 23 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no single-point $$$$ nn ff nn ff $$$$ constraints exist. EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 22, 23 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 22, 23 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn |K |K | nn |M |M | $$$$ | sf| ss| | sf| ss| $$$$ + + + + $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $ ****CARD 1- 6, 8- 10, 22, 23 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 22, 23 ****FILE 105 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no omitted coordinates $$$$ ff aa ff aa $$$$ exist. EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT $ ****CARD 1- 6, 8- 11, 22, 23 ****FILE 106 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 22, 23 ****FILE 106 $$$$ SMP1 partitions constrained stiffness and mass matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |M |M | $$$$ | aa| ao| | aa| ao| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ ff |K |K | ff |M |M | $$$$ | oa| oo| | oa| oo| $$$$ + + + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reductions [K ] = [K ] + [K ][G ] $$$$ aa aa oa o $$$$ _ T T T $$$$ and [M ] = [M ] + [M ][G ] + [G ][M ] + [G ][M ][G ] $$$$ aa aa oa o o oa o oo o $$$$ SMP1 USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $ ****CARD 1- 6, 8- 11, 22, 23 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 22, 23 ****FILE 106 $$$$ RBMG1 partitions out free-body supports $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ll| lr| | ll| lr| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ aa |K |K | aa |M |M | $$$$ | rl| rr| | rl| rr| $$$$ + + + + $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****CARD 1- 6, 8- 12, 22, 23 ****FILE 107 ****PHS1 DB1 ****PHS3 DB1 $$$$ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ ll ll ll $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 108 $$$$ RBMG3 forms rigid body transformation matrix $$$$ $$$$ -1 $$$$ [D] = -[K ] [K ] $$$$ ll lr $$$$ $$$$ calculates rigid body check matrix $$$$ $$$$ T $$$$ [X] = [K ] + [K ][D] $$$$ rr lr $$$$ $$$$ and calculates rigid body error ratio $$$$ $$$$ ||X|| $$$$ epsilon = --------- $$$$ ||K || $$$$ rr $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ RBMG4 forms rigid body mass matrix $$$$ $$$$ T T T $$$$ [m ] = [M ] + [M ][D] + [D ][M ] + [D ][M ][D] $$$$ r rr lr lr ll $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****CARD 1- 6, 8- 12, 22, 23 ****FILE 110 ****PHS1 DE1 ****PHS3 DE1 $$$$ SSG1 generates static load vectors [P }. $$$$ g $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/NSKIP/COMPS $ ****CARD 1- 3, 5, 6, 8, 13, 22, 23, 59- 62 ****FILE 111 $$$$ SSG2 applies constraints to static load vectors $$$$ $$$$ _ $$$$ P $$$$ n _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ g P n n m m $$$$ m $$$$ $$$$ _ $$$$ P $$$$ f _ $$$$ {P } = {--} , {P } = {P } - [K ]{Y } $$$$ n P f f fs s $$$$ s $$$$ $$$$ _ $$$$ P $$$$ a _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ f P a a o o $$$$ o $$$$ $$$$ P $$$$ l $$$$ {P } = {--} $$$$ a P $$$$ r $$$$ T $$$$ and calculates determinate forces of reaction {q } = -{P } - [D ]{P }. $$$$ r r l $$$$ SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 ****FILE 112 ****PHS1 DB1 ****PHS3 DB7 $$$$ SSG4 calculates inertia loads and combines them with static loads $$$$ $$$$ i -1 $$$$ {P } = {P } + ([M ][D] + [M ]) [m ] {q } $$$$ l l ll lr r r $$$$ $$$$ i T -1 $$$$ {P } = {P } + ([M ][G ] + [M ]) [D/I] [m ] {q } $$$$ o o oo o ao r r $$$$ SSG4 PL,QR,PO,MR,MLR,DM,MLL,MOO,MOA,GO,USET/PLI,POI/OMIT $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 59- 62 ****FILE 113 $$$$ SSG3 solves for displacements of independent coordinates $$$$ $$$$ -1 i $$$$ {u } = [K ] {P } $$$$ l ll l $$$$ $$$$ solves for displacements of omitted coordinates $$$$ $$$$ o -1 i $$$$ {u } = [K ] {P } $$$$ o oo o $$$$ $$$$ calculates residual vector (RULV) and residual vector error ratio for $$$$ independent coordinates $$$$ $$$$ i i $$$$ {deltaP } = {P } - [K ]{u } $$$$ l l ll l $$$$ $$$$ T i $$$$ {u }{deltaP } $$$$ l l $$$$ epsilon = ------------- $$$$ l i T $$$$ {P } {u } $$$$ l l $$$$ $$$$ and calculates residual vector (RUOV) and residual vector error ratio for $$$$ omitted coordinates $$$$ $$$$ i i o $$$$ {deltaP } = {P } - [K ]{u } $$$$ o o oo o $$$$ $$$$ T i $$$$ {u }{deltaP } $$$$ o o $$$$ epsilon = ------------- $$$$ o i T o $$$$ {P } {u } $$$$ o o $$$$ SSG3 LLL,KLL,PLI,LOO,KOO,POI/ULV,UOOV,RULV,RUOV/OMIT/V,Y, IRES=-1/NSKIP/S,N,EPSI $ ****CARD 1- 6, 8- 13, 22, 23, 59- 62 ****FILE 114 ****RFMT 187 $$$$ Go to label LBL9 if residual vectors are not to be printed. COND LBL9,IRES $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 187,189-204,207-209 $$$$ MATGPR prints the residual vector for independent coordinates (RULV). MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 187,189-204,207-209 $$$$ MATGPR prints the residual vector for omitted coordinates (RUOV). MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 187,189-204,207-209 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 13, 17, 22, 23, 59- 62 ****RFMT 187,189-204,207-209 ****PHS3 DE7 $$$$ SDR1 recovers dependent displacements $$$$ $$$$ u $$$$ l o $$$$ {--} = {u } , {u } = [G ]{u ] + {u } , $$$$ u a o o a o $$$$ r $$$$ $$$$ u u $$$$ a f $$$$ {--} = {u } , {--} = {u } , $$$$ u f Y n $$$$ o s $$$$ $$$$ u $$$$ n $$$$ {u } = [G ]{u ] , {--} = {u } $$$$ m m n u g $$$$ m $$$$ $$$$ and recovers single-point forces of constraint $$$$ $$$$ T $$$$ {q } = -{P } + [K ]{u } + [K ]{Y } $$$$ s s fs f ss s $$$$ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/ *STATICS* $ ****CARD 1- 6, 8- 13, 22, 23, 59- 62 ****FILE 115 ****RFMT 187,189-204,207-209 ****PHS3 I7 $$$$ Go to label LBL8 if all constraint sets have been processed. COND LBL8,REPEAT $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ Go to label LBL11 if additional sets of constraints need to be processed. REPT LBL11,360 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ Go to label ERROR2 and print Error Message No. 2 if the number of $$$$ constraint sets exceeds 360. JUMP ERROR2 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ PARAM //*NOT*/TEST/REPEAT $ ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ Go to label ERROR5 and print Error Message No. 5 if multiple boundary $$$$ conditions are attempted with an improper subset. COND ERROR5,TEST $ ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ LABEL LBL8 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ Go to label NOMPCF if no multipoint constraint force balance is $$$$ requested. COND NOMPCF,GRDEQ $ ****CARD 7 ****FILE 121 ****RFMT 187,189-204,207-209 ****PHS2 DB5 $$$$ EQMCK calculates the force and moment equilibrium check and prepares the $$$$ multipoint constraint force balance (OQMI) for output. EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $ ****CARD 7 ****FILE 121 ****RFMT 187,189-204,207-209 $$$$ OFP formats the table prepared by EQMCK and places it on the system $$$$ output file for printing. OFP OQM1,,,,,//S,N,CARDNO $ ****CARD 7 ****FILE 121 ****RFMT 187,189-204,207-209 $$$$ LABEL NOMPCF $ ****CARD 7 ****FILE 121 ****RFMT 187,189-204,207-209 $$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) and prepares $$$$ load vectors (OPG1), displacement vectors (OUGV1), and single-point $$$$ forces of constraint (OQG1) for output and translation components of the $$$$ displacement vector (PUGV1). SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PGG, PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *STATICS*////COMPS $ ****CARD 18, 19 ****FILE 116 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ SCAN examines the element stresses and forces calculated by SDR2 and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES1,OEF1/OESF1/*RF* $ ****CARD 19 ****FILE 116 $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF1,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ Go to label P2 if no deformed structure plots are requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PLOT generates all requested deformed structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 24, 59- 62 ****FILE 122 ****RFMT 187,189-204,207-209 ****PHS1 DE1 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 118 ****RFMT 187,189-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*INERTIA* $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 118 ****RFMT 187,189-204,207-209 ****PHS2 DE5 $$$$ LABEL ERROR2 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*INERTIA* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 187,189-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*INERTIA* $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 187,189-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 187,189-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*INERTIA* $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 ****RFMT 187,189-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*INERTIA* $ ****CARD 22, 23 ****RFMT 187,189-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1- 6, 16 ****FILE 97 ****RFMT 187,189-204,207-209 $$$$ Print Error Message No. 6 and terminate execution. PRTPARM //-6/*INERTIA* $ ****CARD 1- 6, 16 ****FILE 97 ****RFMT 187,189-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 24, 59- 62 ****FILE 122 ****RFMT 187,189-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 24, 59- 62 ****RFMT 187,189-204,207-209 $$$$ END $ ****CARD 1- 24, 59- 62 ****RFMT 187,189-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 7 AOUT$ 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 OPT GRDEQ 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 GRAV RFORCE 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 GPECT EST GEI MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET YS OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS KSS MFF 106 GO KAA KOO LOO MAA MOA MOO 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 PG 112 PL PO PS QR 113 PLI POI 114 RULV RUOV ULV UOOV 115 PGG QG UGV 116 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 116 OEF1L OES1L OESF1 117 ELSETS GPSETS PLTPAR PLTSETX 118 KDICT MDICT MELM 119 PLOTX1 120 OGPWG 121 OQM1 122 PLOTX2 123 BGPDP SIP $* =PAGE= DISP3 APR.93 $$$$$$$$ BEGIN DISP 03 - NORMAL MODES ANALYSIS - APR. 1993 $ ****CARD 1- 6, 8- 16, 18- 22, 24, 61, 62 ****RFMT 187,188,190-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 16, 18- 22, 24, 61, 62 ****RFMT 187,188,190-204,207-209 $$$$ FILE LAMA=APPEND/PHIA=APPEND $ ****CARD 1- 6, 8- 16, 18- 22, 24, 61, 62 ****RFMT 187,188,190-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 12, 14, 15, 17, 19, 21, 22, 24, 61, 62 ****FILE 112,122,124,130,131 ****PHS1 I1 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 ****PHS2 D5 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 115 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 116,119 ****PHS2 DB5 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 116 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116,119 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1//$ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 119 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 116,119 ****PHS2 DE5 $$$$ GP3 generates Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 16, 18- 22, 24, 61, 62 ****FILE 97 $$$$ Go to label ERROR4 and print Error Message No. 4 if there are no $$$$ structural elements. COND ERROR4,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 14, 16, 24 ****FILE 97 ****PHS2 D5 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8 ****FILE 118 ****RFMT 187,190-192 $$$$ EMG generates structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/ C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/ C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 118 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPKGG if no stiffness matrix is to be assembled. COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/ALWAYS $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to $$$$ be assembled. COND ERROR1,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,188,190-204,207-209 ****PHS2 D5 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 118 $$$$ Go to label LGPWG if no weight and balance information is requested. COND LGPWG,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ LABEL LGPWG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 120 $$$$ x $$$$ Equivalence [K ] to [K ] if no general elements exist. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 ****PHS2 DB5 $$$$ Go to label LBL11 if no general elements exist. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 ****PHS2 DE5 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET) $$$$ and forms multipoint constraint equations [R ]{u } = 0. $$$$ g g $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20, 21 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 101 $$$$ Go to label ERROR3 and print Error Message No. 3 if no independent $$$$ degrees of freedom are defined. COND ERROR3,NOL $ ****CARD 1, 9- 12 ****FILE 101 ****PHS1 I1 $$$$ PURGE KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ ****CARD 1, 9- 12 ****FILE 103,105-107,109,110,113 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no multipoint $$$$ gg nn gg nn $$$$ constraints exist. EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equations [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness and mass matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |M |M | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ gg |K |K | gg |M |M | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ and performs the matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [G ][M ] + [M ][G ] + [G ][M ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,MGG,,/KNN,MNN,, $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] and [M ] to [M ] if no single-point $$$$ nn ff nn ff $$$$ constraints exist. EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn |K |K | nn |M |M | $$$$ | sf| ss| | sf| ss| $$$$ + + + + $$$$ SCE1 USET,KNN,MNN,,/KFF,KFS,,MFF,, $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24 ****FILE 105 $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Equivalence [M ] to [M ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 117 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,117 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ]{G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP2 partitions constrained mass matrix $$$$ $$$$ +_ + $$$$ |M |M | $$$$ | aa| ao| $$$$ [M ] = |---+---| $$$$ ff |M |M | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [M ][G ] + [G ][M ] + [G ][M ][G ] $$$$ aa aa oa o o oa o oo o $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 117 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 106,117 $$$$ Go to label LBL6 if no free-body supports exist. COND LBL6,REACT $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107-110 ****PHS1 DB1 ****PHS3 DB1 ****FILE 109 $$$$ RBMG1 partitions out free-body supports $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ll| lr| | ll| lr| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ aa |K |K | aa |M |M | $$$$ | rl| rr| | rl| rr| $$$$ + + + + $$$$ RBMG1 USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107 $$$$ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ ll ll ll $$$$ RBMG2 KLL/LLL $ ****CARD 1- 4, 6, 8- 12 ****FILE 108 $$$$ RBMG3 forms rigid body transformation matrix $$$$ $$$$ -1 $$$$ [D] = -[K ] [K ] $$$$ ll lr $$$$ $$$$ calculates rigid body check matrix $$$$ $$$$ T $$$$ [X] = [K ] + [K ][D] $$$$ rr lr $$$$ $$$$ and calculates rigid body error ratio $$$$ $$$$ $$$$ ||X|| $$$$ epsilon = --------- $$$$ ||K || $$$$ rr $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12 ****FILE 109 $$$$ RBMG4 forms rigid body mass matrix $$$$ $$$$ T T T $$$$ [m ] = [M ] + [M ][D] + [D ][M ] + [D ][M ][D] $$$$ r rr lr lr ll $$$$ RBMG4 DM,MLL,MLR,MRR/MR $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 110 $$$$ LABEL LBL6 $ ****CARD 1- 6, 8- 12, 14, 24 ****FILE 107-110 ****PHS1 DE1 ****PHS3 DE1 $$$$ DPD extracts Eigenvalue Extraction Data from Dynamics data block. DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ ****CARD 1, 9- 12, 61 ****FILE 111 ****PHS1 DB1 ****PHS3 DB7 $$$$ Go to label ERROR2 and print Error Message No. 2 if there is no $$$$ Eigenvalue Extraction Data. COND ERROR2,NOEED $ ****CARD 1, 9- 12, 61 ****FILE 111 ****RFMT 187,188,190-204,207-209 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 14, 24 ****FILE 112 $$$$ READ extracts real eigenvalues and eigenvectors from the equation $$$$ $$$$ [K - lambda M ]{u } = 0 $$$$ aa aa a $$$$ $$$$ calculates rigid body modes by finding a square matrix [phi ] such that $$$$ ro $$$$ T $$$$ [m ] = [phi ][m ][phi ] $$$$ o ro r ro $$$$ $$$$ is diagonal and normalized, computes rigid body eigenvectors $$$$ $$$$ + + $$$$ |Dphi | $$$$ | ro | $$$$ [phi ] = |-------| $$$$ ao |phi | $$$$ | ro | $$$$ + + $$$$ $$$$ calculates modal mass matrix $$$$ $$$$ T $$$$ [m] = [phi ][M ][phi ] $$$$ a aa a $$$$ $$$$ and normalizes eigenvectors according to one of the following user $$$$ requests: $$$$ 1. Unit value of a selected component. $$$$ 2. Unit value of the largest component. $$$$ 3. Unit value of the generalized mass. READ KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ S,N,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112 $$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) $$$$ prepared by READ and places it on the system output file for printing. OFP OEIGS,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112 $$$$ Go to label FINIS and make normal exit if no eigenvalues were found. COND FINIS,NEIGV $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112-114,121,122 $$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on $$$$ the system output file for printing. OFP LAMA,,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 112 ****PHS3 DE7 $$$$ SDR1 recovers dependent components of the eigenvectors $$$$ $$$$ phi $$$$ a $$$$ {phi } = [G ]{phi } {----} = {phi } $$$$ o o a phi f $$$$ o $$$$ $$$$ phi $$$$ f $$$$ {----} = {phi } {phi } = [G ]{phi } $$$$ phi n m m n $$$$ s $$$$ $$$$ phi $$$$ n $$$$ {----} = {phi } $$$$ phi g $$$$ m $$$$ $$$$ T $$$$ and recovers single-point forces of constraint {q } = [K ] {phi }. $$$$ s fs f $$$$ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $ ****CARD 1- 6, 8- 12, 14, 24, 61, 62 ****FILE 113 ****RFMT 187,188,190-204,207-209 ****PHS3 I7 $$$$ Go to label NOMPCF if no multipoint constraint force balance is $$$$ requested. COND NOMPCF,GRDEQ $ ****CARD 17 ****FILE 121 ****RFMT 187,188,190-204,207-209 ****PHS2 DB5 $$$$ EQMCK calculates the force and moment equilibrium check and prepares the $$$$ multipoint constraint force balance (OQM1) for output. EQMCK CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $ ****CARD 17 ****FILE 121 ****RFMT 187,188,190-204,207-209 $$$$ OFP formats the table prepared by EQMCK and places it on the system $$$$ output file for printing. OFP OQM1,,,,,//S,N,CARDNO $ ****CARD 17 ****FILE 121 ****RFMT 187,188,190-204,207-209 $$$$ LABEL NOMPCF $ ****CARD 17 ****FILE 121 ****RFMT 187,188,190-204,207-209 $$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) and prepares $$$$ eigenvectors (OPHIG) and single-point forces of constraint (OQG1) for $$$$ output and translation components of the eigenvectors (PPHIG). SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ *REIG*////COMPS $ ****CARD 18, 19 ****FILE 114 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OPHIG,OQG1,OEF1,OES1,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ SCAN examines the element stresses and forces calculated by SDR2 and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES1,OEF1/OESF1/*RF* $ ****CARD 19 ****FILE 114 $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF1,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ computes element strains GPFDR CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ ****CARD 19 ****FILE 114 $$$$ putout strains OFP ONRGY1,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ since KDICT and KELM files are no longer needed, purge them PURGE KDICT,KELM/ALWAYS $ ****CARD 1- 3, 6, 8 ****FILE 118 $$$$ Go to label P2 if no deformed structure plots are requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PLOT generates all requested deformed structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 22, 24, 61, 62 ****FILE 122 ****RFMT 187,188,190-204,207-209 ****PHS1 DE1 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,188,190-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*MODES* $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,188,190-204,207-209 ****PHS2 DE5 $$$$ LABEL ERROR2 $ ****CARD 1, 9- 12, 61 ****FILE 111 ****RFMT 187,188,190-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*MODES* $ ****CARD 1, 9- 12, 61 ****FILE 111 ****RFMT 187,188,190-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 12 ****FILE 101 ****RFMT 187,188,190-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*MODES* $ ****CARD 1, 9- 12 ****FILE 101 ****RFMT 187,188,190-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 13, 16 ****FILE 97 ****RFMT 187,188,190-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*MODES* $ ****CARD 1- 6, 13, 16 ****FILE 97 ****RFMT 187,188,190-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 22, 24, 61, 62 ****FILE 112-114,121,122 ****RFMT 187,188,190-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 6, 8- 22, 24, 61, 62 ****FILE 112-114,121,122 ****RFMT 187,188,190-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 22, 24, 61, 62 ****RFMT 187,188,190-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF AXSLOT CELAS1 CELAS2 CELAS3 CELAS4 1 CMASS1 1 CMASS2 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C 1 CORD2R 1 CORD2S FREEPT GRDSET GRID GRIDB GRIDF GRIDS 1 POINTAX 1 PRESPT RINGAX RINGFL SECTAX SEQGP SLBDY SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CAXIF2 CAXIF3 CAXIF4 CBAR CCONEAX 2 CDUM1 2 CDUM2 CDUM3 CDUM4 CDUM5 CDUM6 CDUM7 CDUM8 2 CDUM9 2 CELBOW CFLUID2 CFLUID3 CFLUID4 CHEXA1 CHEXA2 CIHEX1 2 CIHEX2 2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 CQDMEM2 CQDPLT 2 CQUAD1 CQUAD2 CROD CSHEAR CSLOT3 CSLOT4 CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS FSLIST 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 AOUT$ 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 OPT GRDEQ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 61 EIGR 62 METHOD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 YS RG USET ASET OGPST 102 GPST 103 GM 104 KNN MNN 105 KFF KFS MFF 106 GO KOO LOO KAA 107 KLL KLR KRR MLL MLR MRR 108 LLL 109 DM 110 MR 111 EED EQDYN GPLD SILD USETD 112 LAMA MI OEIGS PHIA 113 PHIG QG 114 OEF1 OES1 OPHIG OQG1 PPHIG 114 OEF1L OES1L OESF1 115 BGPDP SIP 116 ELSETS GPSETS PLTPAR PLTSETX 117 MAA 118 KDICT KELM MDICT MELM 119 PLOTX1 120 OGPWG 121 OQM1 122 PLOTX2 $* =PAGE= DISP4 APR.93 $$$$$$$$ BEGIN DISP 04 - DIFFERENTIAL STIFFNESS ANALYSIS - APR. 1993 $ ****CARD 1- 6, 8- 25, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 25, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 5, 6, 8- 10, 14, 15, 19, 21, 24, 61 ****FILE 101,112,121,126 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ Go to label ERROR3 and print Error Message No. 3 if there is no Grid $$$$ Point Definition Table. COND ERROR3,NOGPDT $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 140 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122,125 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122,125 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 125 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122,125 $$$$ GP3 generates Static Loads Table and Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ ****CARD 1, 2, 13, 60, 61 ****FILE 96 $$$$ PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ ****CARD 1, 2, 15, 61 ****FILE 123 ****RFMT 187-189,191-204,207-209 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 25, 59- 62 ****FILE 97 $$$$ Go to label ERROR1 and print Error Message No. 1 if there are no $$$$ structural elements. COND ERROR1,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-204,207-209 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 4, 6, 8 ****FILE 123 $$$$ EMG generates structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 6, 8, 13, 15, 24, 61 ****FILE 123 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 6, 8, 14, 24, 61 ****FILE 98, 99 $$$$ Go to label JMPKGG if no stiffness matrix is to be assembled. COND JMPKGG,NOKGGX $ ****CARD 1- 4, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 4, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 4, 6, 8 ****CARD 123 $$$$ LABEL JMPKGG $ ****CARD 1- 4, 6, 8 ****FILE 98 $$$$ Go to label JMPMGG if no mass matrix is to be assembled. COND JMPMGG,NOMGG $ ****CARD 1- 5, 8, 14, 24, 61 ****FILE 99 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 5, 8, 14, 24, 61 ****FILE 99 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 5, 8, 14, 24, 61 ****CARD 123 $$$$ LABEL JMPMGG $ ****CARD 1- 5, 8, 14, 24, 61 ****FILE 99 $$$$ Go to label LBL1 if no weight and balance information is requested. COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 126 $$$$ Go to label ERROR4 and print Error Message No. 4 if no mass matrix $$$$ exists. COND ERROR4,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 126 $$$$ GPWG prints weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 126 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 126 $$$$ LABEL LBL1 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 126 $$$$ x $$$$ Equivalence [K ] to [K ] if no general elements exist. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ Go to label LBL11 if no general elements exist. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12, 59 ****FILE 101 $$$$ CASE copies the first record of CASECC to CASEXX. CASE CASECC,/CASEXX/*TRANRESP*/0/NOLOOP $ ****CARD 1, 9- 11 ****FILE 124 $$$$ GP4 generates flags defining memeber of various displacement sets (USET), $$$$ forms multipoint constraint equations [R ]{u } = 0, and forms $$$$ g g $$$$ displacement vector {Y }. $$$$ s $$$$ GP4 CASEXX,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20, 21, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 101 $$$$ Go to label ERROR5 and print Error Message No. 5 if no independent $$$$ degrees of freedom are defined. COND ERROR5,NOL $ ****CARD 1, 9- 12, 59 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ Go to label LBL4D if no free-body supports are supplied. COND LBL4D,REACT $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ Go to label ERROR2 and print Error Message No. 2. JUMP ERROR2 $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ LABEL LBL4D $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG, YBS,PBS,KBFS,KBSS,KDFS,KDSS/SINGLE $ ****CARD 1, 9- 12, 59 ****FILE 103,105,106,109-111,115,117 $$$$ Equivalence [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equations [R ] = [R |R ] and $$$$ g m n $$$$ solves for multipoint constraint transformation matrix [G ] = $$$$ -1 m $$$$ - [R ] [R ]. $$$$ m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | nn| nm| $$$$ [K ] = |---+---| $$$$ gg |K |K | $$$$ | mn| mm| $$$$ + + $$$$ $$$$ and performs the matrix reduction $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ SCE1 partitions out single-point constraints. $$$$ $$$$ + + $$$$ |K |K | $$$$ | ff| fs| $$$$ [K ] = |---+---| $$$$ nn |K |K | $$$$ | sf| ss| $$$$ + + $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ]{G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ aa ll ll $$$$ RBMG2 KAA/LLL $ ****CARD 1- 4, 6, 8- 11 ****FILE 107 $$$$ SSG1 generates static load vectors [P }. $$$$ g $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASEXX,DIT,PCOMPS/ PG,,,,/LUSET/1/COMPS $ ****CARD 1- 3, 5, 6, 8, 13, 59- 62 ****FILE 108 $$$$ Equivalence {P } to {P } if no constraints are applied. $$$$ g l $$$$ EQUIV PG,PL/NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 13, 59- 62 ****FILE 109 $$$$ Go to label LBL10 if no constraints are applied. COND LBL10,NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 13, 59- 62 ****FILE 109 $$$$ SSG2 applies constraints to static load vectors $$$$ $$$$ _ $$$$ P $$$$ n _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ g P n n m m $$$$ m $$$$ $$$$ _ $$$$ P $$$$ f _ $$$$ {P } = {--} , {P } = {P } - [K ]{Y } $$$$ n P f f fs s $$$$ s $$$$ $$$$ P $$$$ a T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ f P l a o o $$$$ o $$$$ SSG2 USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 11, 13, 59- 62 ****FILE 109 $$$$ LABEL LBL10 $ ****CARD 1- 3, 5, 6, 8- 11, 13, 59- 62 ****FILE 109 $$$$ SSG3 solves for displacements of independent coordinates $$$$ $$$$ -1 $$$$ {u } = [K ] {P } $$$$ l ll l $$$$ $$$$ solves for displacements of omitted coordinates $$$$ $$$$ o -1 $$$$ {u } = [K ] {P } $$$$ o oo o $$$$ $$$$ calculates residual vector (RULV) and residual vector error ratio for $$$$ independent coordinates $$$$ $$$$ {deltaP } = {P } - [K ]{u } $$$$ l l ll l $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ l l $$$$ epsilon = ------------- $$$$ l T $$$$ {P }{u } $$$$ l l $$$$ $$$$ and calculates residual vector (RUOV) and residual vector error ratio for $$$$ omitted coordinates $$$$ $$$$ o $$$$ {deltaP } = {P } - [K ]{u } $$$$ o o oo o $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ o o $$$$ epsilon = ------------- $$$$ o T o $$$$ {P }{u } $$$$ o o $$$$ SSG3 LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ 1/S,N,EPSI $ ****CARD 1- 6, 8- 11, 13, 59- 62 ****FILE 110 ****RFMT 188 $$$$ Go to label LBL9 if residual vectors are not to be printed. COND LBL9,IRES $ ****CARD 1- 6, 8- 11, 13, 17, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ MATGPR prints the residual vector for independent coordinates (RULV). MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 6, 8- 11, 13, 17, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ MATGPR prints the residual vector for omitted coordinates (RUOV). MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 11, 13, 17, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 11, 13, 17, 59- 62 ****RFMT 188,189,192-204,207-209 $$$$ SDR1 recovers dependent displacements $$$$ $$$$ u $$$$ l o $$$$ {--} = {u } , {u } = [G ]{u ] + {u } , $$$$ u a o o a o $$$$ r $$$$ $$$$ u u $$$$ a f $$$$ {--} = {u } , {--} = {u } , $$$$ u f Y n $$$$ o s $$$$ $$$$ u $$$$ n $$$$ {u } = [G ]{u ] , {--} = {u } $$$$ m m n u g $$$$ m $$$$ $$$$ and recovers single-point forces of constraint $$$$ $$$$ T $$$$ {q } = -{P } + [K ]{u } + [K ]{Y } $$$$ s s fs f ss s $$$$ SDR1 USET,,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PG1,QG/1/*DS0* $ ****CARD 1- 6, 8- 11, 13, 59- 62 ****FILE 111 $$$$ SDR2 calculates the element forces (OEF1) and stresses (OES1) and $$$$ prepares load vectors (OPG1), displacement vectors (OUGV1), and single- $$$$ point forces of constraint (OQG1) for output and translation components $$$$ of the displacement vectors (PUGV1) for the static solution. SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PG, PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *DS0*////COMPS $ ****CARD 19 ****FILE 112 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ SCAN examines the element stresses and forces calculated by SDR2 and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES1,OEF1/OESF1/*RF* $ ****CARD 19 ****FILE 112 $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF1,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ Go to label P2 if no deformed static solution structure plots are $$$$ requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 127 $$$$ PLOT generates all requested static solution deformed structure and $$$$ contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 127 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ deformed static solution plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 127 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 127 $$$$ TA1 generates element tables for use in differential stiffness matrix $$$$ assembly. TA1 ECT,EPT,BGPDT,SIL,GPTT,,CSTM,/X1,X2,X3,ECPT,GPCT,,,/LUSET/ NOSIMP/0/NOGENL/GENEL $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 128 $$$$ d $$$$ DSMG1 generates differential stiffness matrix [K ]. $$$$ gg $$$$ DSMG1 CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/ DSCOSET $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 113 $$$$ PARAM //*ADD*/SHIFT/-1/0 $ ****CARD 1- 6, 8- 11, 59- 62 $$$$ PARAM //*ADD*/COUNT/ALWAYS=-1/NEVER= 1 $ ****CARD 1- 6, 8- 11, 59- 62 $$$$ PARAMR //*ADD*/DSEPSI/0.0/0.0 $ ****CARD 1- 6, 8- 11, 59- 62 $$$$ PARAML YS//*NULL*////NOYS $ ****CARD 1- 6, 8- 11, 59- 62 $$$$ Beginning of outer (stiffness adjustment) loop for differential stiffness $$$$ iteration. LABEL OUTLPTOP $ ****CARD 1- 6, 8- 11, 59- 62 $$$$ Equivalence {P } to {P } if no enforced displacements are specified. $$$$ g g1 $$$$ EQUIV PG,PG1/NOYS $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 111 $$$$ PARAM //*KLOCK*/TO $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 114 $$$$ d d $$$$ Equivalence [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV KDGG,KDNN/MPCF1 $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 114 $$$$ Go to label LBL2D if no multipoint constraints exist. COND LBL2D,MPCF1 $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 114 $$$$ MCE2 partitions stiffness matrix $$$$ $$$$ + + $$$$ |_d d | $$$$ |K |K | $$$$ d | nn| nm| $$$$ [K ] = |---+---| $$$$ gg | d d | $$$$ |K |K | $$$$ | mn| mm| $$$$ + + $$$$ $$$$ and performs the matrix reduction $$$$ $$$$ d _d T d d T d $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KDGG,,,/KDNN,,, $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 114 $$$$ LABEL LBL2D $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 114 $$$$ d d $$$$ Equivalence [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KDNN,KDFF/SINGLE $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 115 $$$$ Go to label LBL3D if no single-point constraints exist. COND LBL3D,SINGLE $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 115 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + $$$$ | d d | $$$$ |K |K | $$$$ d | ff| fs| $$$$ [K ] = |---+---| $$$$ nn | d d | $$$$ |K |K | $$$$ | sf| ss| $$$$ + + $$$$ SCE1 USET,KDNN,,,/KDFF,KDFS,KDSS,,, $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 115 $$$$ LABEL LBL3D $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 115 $$$$ d d $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KDFF,KDAA/OMIT $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 116 $$$$ Go to label LBL5D if no omitted coordinates exist. COND LBL5D,OMIT $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 116 $$$$ SMP2 partitions constrained differential stiffness matrix $$$$ $$$$ + + $$$$ |_d d | $$$$ |K |K | $$$$ d | aa| ao| $$$$ [K ] = |---+---| $$$$ ff | d | d | $$$$ |K |K | $$$$ | oa oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ d _d d T T d T d $$$$ [K ] = [K ] + [K ] [G ] + [G ] [K ] + [G ] [K ][G ] $$$$ aa aa oa o o oa o oo o $$$$ SMP2 USET,GO,KDFF/KDAA $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 116 $$$$ LABEL LBL5D $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 116 $$$$ d b $$$$ ADD [K ] and [K ] to form [K ]. $$$$ aa aa ll $$$$ ADD KAA,KDAA/KBLL/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 117 $$$$ d b $$$$ ADD [K ] and [K ] to form [K ]. $$$$ fs fs fs $$$$ ADD KFS,KDFS/KBFS/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 117 $$$$ d b $$$$ ADD [K ] and [K ] to form [K ]. $$$$ ss ss ss $$$$ ADD KSS,KDSS/KBSS/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 117 $$$$ Go to label PGOK if no enforced displacements are specified. COND PGOK,NOYS $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 129-133 $$$$ b $$$$ MPYAD multiples [K ] and {Y } to form {P }. $$$$ ss s ss $$$$ MPYAD KBSS,YS,/PSS/0/1/1/1 $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 129 $$$$ b $$$$ MPYAD multiples [K ] and {Y } to form {P }. $$$$ fs s fs $$$$ MPYAD KBFS,YS,/PFS/0/1/1/1 $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 130 $$$$ b $$$$ UMERGE combines [K ] and {P } to form {P }. $$$$ fs ss n $$$$ UMERGE USET,PFS,PSS/PN/*N*/*F*/*S* $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 131 $$$$ x $$$$ Equivalence {P } to {P } if no multipoint constraints exist. $$$$ n g $$$$ EQUIV PN,PGX/MPCF1 $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 132 $$$$ Go to label LBL6D if no multipoint constraints exist. COND LBL6D,MPCF1 $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 132 $$$$ x $$$$ UMERGE expands {P } to form {P }. $$$$ n g $$$$ UMERGE USET,PN,/PGX/*G*/*N*/*M* $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 132 $$$$ LABEL LBL6D $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 132 $$$$ x $$$$ ADD -{P } and {P } to form {P }. $$$$ g g gg $$$$ ADD PGX,PG/PGG/(-1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 133 $$$$ $$$$ Equivalence {P } to {P }. $$$$ gg g1 $$$$ EQUIV PGG,PG1/ALWAYS $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 111 $$$$ LABEL PGOK $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 129-133 $$$$ $$$$ ADD {P } and nothing to create {P }. $$$$ g1 g0 $$$$ ADD PG1,/PG0/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 134 $$$$ RBMG2 decomposes the combined differential stiffness matrix and elastic $$$$ stiffness matrix $$$$ $$$$ b b b $$$$ {K ] = [L ][U ] $$$$ ll ll ll $$$$ RBMG2 KBLL/LBLL/S,N,POWER/S,N,DET $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 118 $$$$ PRTPARM prints the scaled value of the determinant of the combined $$$$ differential stiffness matrix and elastic stiffness matrix. PRTPARM //0/*DET* $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 118 $$$$ PRTPARM prints the scale factor (power of ten) of the determinant of the $$$$ combined differential stiffness matrix and elastic stiffness matrix. PRTPARM //0/*POWER* $ ****CARD 1- 6, 8- 11, 59- 62 ****FILE 118 $$$$ Beginning of inner (load correction) loop for differential stiffness $$$$ iteration. LABEL INLPTOP $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 118 $$$$ PARAM //*KLOCK*/TI $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ SSG2 applies constraints to static load vectors $$$$ $$$$ _b $$$$ p $$$$ n b _b T b $$$$ {P } = {--} , {p } = {p } + [G ]{p } $$$$ g1 b n n m m $$$$ p $$$$ m $$$$ $$$$ _b $$$$ p $$$$ b f _b d $$$$ {p } = {--} , {P } = {P } - [K ]{Y } $$$$ n b f f fs s $$$$ p $$$$ s $$$$ $$$$ _b $$$$ p $$$$ b a b b T b $$$$ {p } = {--} , {P } = {P } + [G ]{P } $$$$ f b l a o o $$$$ SSG2 USET,GM,YS,KDFS,GO,,PG1/,PBO,PBS,PBL $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 117 $$$$ SSG3 solves for displacements of independent coordinates for current $$$$ differential stiffness load vector $$$$ $$$$ b b -1 b $$$$ {u } = [K ] {P } $$$$ l ll l $$$$ $$$$ and calculates residual vector (RULV) and residual vector error ratio for $$$$ current differential stiffness load vector $$$$ $$$$ b b b b $$$$ {deltaP } = {P } - [K ]{u } $$$$ l l ll l $$$$ $$$$ b T b $$$$ {u } {deltaP } $$$$ b l l $$$$ epsilon = ------------- $$$$ l b T b $$$$ {P } {u } $$$$ l l $$$$ SSG3 LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/S,N, EPSI $ ****CARD 1- 6, 8- 11, 17, 22, 23, 59- 62 ****FILE 119 $$$$ Go to lable LBL9D if the residual vector for current differential $$$$ stiffness solution is not to be printed. COND LBL9D,IRES $ ****CARD 1- 6, 8- 11, 17, 22, 23, 59- 62 $$$$ MATGPR prints the residual vector for current differential stiffness $$$$ solution. MATGPR GPL,USET,SIL,RUBLV//*L* $ ****CARD 1- 6, 8- 11, 17, 22, 23, 59- 62 $$$$ LABEL LBL9D $ ****CARD 1- 6, 8- 11, 17, 22, 23, 59- 62 $$$$ SDR1 recovers dependent displacements for the current differential $$$$ stiffness solution $$$$ $$$$ b $$$$ u $$$$ b b ob l $$$$ {u } = [G ]{u ] + {u } , {--} = {u } $$$$ o o l o b f $$$$ u $$$$ m $$$$ $$$$ b $$$$ u $$$$ f b b b $$$$ {--} = {u } , {u } = [G ]{u } $$$$ b n m m n $$$$ Y $$$$ s $$$$ $$$$ b $$$$ u $$$$ n b $$$$ {--} = {u } $$$$ b g $$$$ u $$$$ m $$$$ $$$$ and recovers single-point forces of constraint for the current $$$$ differential stiffness solution $$$$ $$$$ b b b b b b $$$$ {q } = -{P } + [K ]{u } + [K ]{Y } $$$$ s s sf f ff s $$$$ SDR1 USET,,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/1/*DS1* $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 120 ****RFMT 187-189,191-204,207-209 $$$$ b d $$$$ ADD - {U } and {U } to form {U }. $$$$ g g g $$$$ ADD UBGV,UGV/DUGV/(-1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 135 $$$$ d $$$$ DSMG1 generates differential stiffness matrix [delta K ]. $$$$ gg $$$$ DSMG1 CASECC,GPTT,SIL,EDT,DUGV,CSTM,MPT,ECPT,GPCT,DIT/DKDGG/ DSCOSET $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 136 $$$$ MPYAD forms the load vector for inner loop iteration $$$$ $$$$ d b $$$$ {P } = [delta K ]{U } + {P } $$$$ g gg g go $$$$ I1 $$$$ MPYAD DKDGG,UBGV,PG0/PGI1/0/1/1/0 $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 137 $$$$ DSCHK performs differential stiffness convergence checks. DSCHK PG1,PGI1,UBGV//C,Y,EPSIO=1.E-5/S,N,DSEPSI/C,Y,NT=10/TO/ TI/S,N,DONE/S,N,SHIFT/S,N,COUNT/C,Y,BETAD=4 $ ****CARD 1- 6, 8- 11, 22, 23, 25, 59- 62 $$$$ Go to label DONE if differential stiffness iteration is complete. COND DONE,DONE $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ Go to label SHIFT if additional differential stiffness matrix changes are $$$$ necessary for further iteration. COND SHIFT,SHIFT $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ Break the previous equivalence of {P } to {P } and {P } to {P } $$$$ g g1 g1 g $$$$ I1 $$$$ and establish equivalence of {P } to {P }. $$$$ g g1 $$$$ I1 $$$$ EQUIV PG,PG1/NEVER/PGI1,PG1/ALWAYS/PG1,PGI1/NEVER $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 111,137 $$$$ Go to label INLPTOP for an additional inner loop stiffness iteration. REPT INLPTOP,1000 $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ TABPT table prints vectors {P }, {P }, and {P }. $$$$ g g1 g $$$$ I1 $$$$ TABPT PGI1,PG1,PG,,// $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ LABEL SHIFT $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ d d d $$$$ ADD -[delta K ] and [K ] to form [K ]. $$$$ gg gg gg1 $$$$ ADD DKDGG,KDGG/KDGG1/(-1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 138 $$$$ b d d $$$$ Equivalence {U } to {U } and [K ] to [K ]> $$$$ g g gg1 gg $$$$ EQUIV UBGV,UGV/ALWAYS/KDGG1,KDGG/ALWAYS $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 111,113 $$$$ d d b $$$$ Break the previous equivalence of [K ] to [K ] and {U } to {U }. $$$$ gg gg1 g g $$$$ EQUIV KDGG,KDGG1/NEVER/UGV,UBGV/NEVER $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 ****FILE 120,138 $$$$ Go to label OUTLPTOP for an additional outer loop differential stiffness $$$$ iteration. REPT OUTLPTOP,1000 $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ d d $$$$ TABPT table prints [K ], [K ], and {U }. $$$$ gg1 gg g $$$$ TABPT KDGG1,KDGG,UGV,,// $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ LABEL DONE $ ****CARD 1- 6, 8- 11, 22, 23, 59- 62 $$$$ SDR2 calculates element forces (OEFB1) and stresses (OESB1) and prepares $$$$ displacement vectors (OUBGV1) and single-point forces of constraint $$$$ (OQBG1) for output and translation components of the vector (PUBGV1) for $$$$ the differential stiffness solution. SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,,, PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/ *DS1*////COMPS $ ****CARD 18, 19 ****FILE 121 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OUBGV1,OQBG1,OEFB1,OESB1,,//S,N,CARDNO $ ****CARD 19 ****FILE 121 $$$$ OFP OEFB1L,OESB1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 121 $$$$ Go to label P3 if no differential stiffness solution deformed plots are $$$$ requested. COND P3,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 139 $$$$ PLOT generates all requested differential stiffness solution deformed $$$$ structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUBGV1,,GPECT, OESB1,OESB1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N, PFILE $ ****SBST 7 ****CARD 18 ****FILE 139 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ differential stiffness solution deformed plot generated. PRTMSG PLOTX3// $ ****SBST 7 ****CARD 18 ****FILE 139 $$$$ LABEL P3 $ ****SBST 7 ****CARD 18 ****FILE 139 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 25, 59- 62 ****FILE 139 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*DIFFSTIF* $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*DIFFSTIF* $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1 ****FILE 94 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*DIFFSTIF* $ ****CARD 1 ****FILE 94 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR4 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 123 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*DIFFSTIF* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 123 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR5 $ ****CARD 1, 9- 12, 59 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*DIFFSTIF* $ ****CARD 1, 9- 12, 59 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 25, 59- 62 ****FILE 139 ****RFMT 187-189,191-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 25, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 25, 59- 62 ****RFMT 187-189,191-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 EPSIO NT BETAD 59 DEFORM DEFORM$ LOAD$ RFORCE$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 GRAV RFORCE 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET YS OGPST 102 GPST 103 GM 104 KNN 105 KFF KFS KSS 106 GO KAA KOO LOO 107 LLL 108 PG 109 PL PO PS 110 RULV RUOV ULV UOOV 111 PG1 QG UGV 112 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 112 OEF1L OES1L OESF1 113 KDGG 114 KDNN 115 KDFF KDFS KDSS 116 KDAA 117 KBLL YBS KBFS KBSS PBL PBS PBO 118 LBLL 119 UBLV RUBLV 120 QBG UBGV 121 OEFB1 OESB1 OQBG1 OUBGV1 PUBGV1 121 OEFB1L OESB1L 122 ELSETS GPSETS PLTPAR PLTSETX 123 KDICT KELM MDICT MELM 124 CASEXX 125 PLOTX1 126 OGPWG 127 PLOTX2 128 X1 X2 X3 ECPT GPCT 129 PSS 130 PFS 131 PN 132 PGX 133 PGG 134 PGO 135 DUGV 136 DKDGG 137 PGI1 138 KDGG1 139 PLOTX3 140 BGPDP SIP $* =PAGE= DISP5 APR.93 $$$$$$$$ BEGIN DISP 05 - BUCKLING ANALYSIS - APR. 1993 $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****RFMT 187-190,192-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****RFMT 187-190,192-204,207-209 $$$$ FILE LAMA=APPEND/PHIA=APPEND $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****RFMT 187-190,192-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 11, 14, 15, 19, 21, 24, 57- 62 ****FILE 101,112,118,120,125 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and table relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 129 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122,124 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 122 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122,124 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122,124 $$$$ GP3 generates Static Loads Table and Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ ****CARD 1, 2, 13, 57, 60 ****FILE 96 $$$$ PARAM //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $ ****CARD 1, 2, 15, 57 ****FILE 123 ****RFMT 187-190,192-204,207-209 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****FILE 97 $$$$ Go to label ERROR1 and print Error Message No. 1 if no structural $$$$ elements have been defined. COND ERROR1,NOSIMP $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-190,192-204,207-209 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ EMG generates structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/ C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 15, 24, 57 ****FILE 123 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 5, 6, 8, 14, 15, 57 ****FILE 98, 99 $$$$ Go to label JMPKGG if no stiffness matrix is to be assembled. COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPMGG if no mass matrix is to be assembled. COND JMPMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 99 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 99 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 123 $$$$ LABEL JMPMGG $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 99 $$$$ Go to label LBL1 if no weight and balance information is requested. COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 57 ****FILE 125 $$$$ Go to label ERROR5 and print Error Message No. 5 if no mass matrix $$$$ exists. COND ERROR5,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 57 ****FILE 125 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 57 ****FILE 125 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 57 ****FILE 125 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 8, 14, 15, 57 ****FILE 125 $$$$ x $$$$ Equivalence [K ] to [K ] if there are no general elements. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ Go to label LBL11 if there are no general elements. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12, 59 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET), $$$$ forms multipoint constraint equations [R ]{u } = 0, and forms enforced $$$$ g g $$$$ displacement vector {Y }. $$$$ s $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20, 21, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 101 $$$$ Go to label ERROR6 and print Error Message No. 6 if no independent $$$$ degrees of freedom are defined. COND ERROR6,NOL $ ****CARD 1, 9- 12, 59 ****FILE 101 ****RFMT 187-190,192-204,207-209 $$$$ Go to label LBL4D if there are no free-body supports. COND LBL4D,REACT $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ Go to label ERROR2 and print Error Message No. 2. JUMP ERROR2 $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ LABEL LBL4D $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,193-204,207-209 $$$$ PARAM //*AND*/NOSR/SINGLE/REACT $ ****CARD 1, 9- 12, 59 ****FILE 101 $$$$ PURGE GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,KDFS/SINGLE/ QG/NOSR $ ****CARD 1, 9- 12, 59 ****FILE 103,105,106,109-111,115 $$$$ Equivalence [K ] to [K ] if there are not multipoint constraints. $$$$ gg nn $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ Go to label LBL2 if there are no multipoint constraints. COND LBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | nn| nm| $$$$ [K ] = |---+---| $$$$ gg |K |K | $$$$ | mn| mm| $$$$ + + $$$$ $$$$ and performs the matrix reduction $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ SCE1 partitions out single-point constraints. $$$$ $$$$ + + $$$$ |K |K | $$$$ | ff| fs| $$$$ [K ] = |---+---| $$$$ nn |K |K | $$$$ | sf| ss| $$$$ + + $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10 ****FILE 105 $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ]{G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ RBMG2 decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ aa ll ll $$$$ RBMG2 KAA/LLL $ ****CARD 1- 4, 6, 8- 11 ****FILE 107 $$$$ SSG1 generates static load vectors {P }. $$$$ g $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ PG,,,,/LUSET/1/COMPS $ ****CARD 1- 3, 5, 6, 8, 13, 57- 60 ****FILE 108 $$$$ Equivalence {P } to {P } if no constraints are applied. $$$$ g l $$$$ EQUIV PG,PL/NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 13, 57- 60 ****FILE 109 $$$$ Go to label LBL10 if no constraints are applied. COND LBL10,NOSET $ ****CARD 1- 3, 5, 6, 8- 11, 13, 57- 60 ****FILE 109 $$$$ SSG2 applies constraints to static load vectors $$$$ $$$$ _ $$$$ P $$$$ n _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ g P n n m m $$$$ m $$$$ $$$$ _ $$$$ P $$$$ f _ $$$$ {P } = {--} , {P } = {P } - [K ]{Y } $$$$ n P f f fs s $$$$ s $$$$ $$$$ P $$$$ a T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ f P l a o o $$$$ o $$$$ SSG2 USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 11, 13, 57- 60 ****FILE 109 $$$$ LABEL LBL10 $ ****CARD 1- 3, 5, 6, 8- 11, 13, 57- 60 ****FILE 109 $$$$ SSG3 solves for displacements of independent coordinates $$$$ $$$$ -1 $$$$ {u } = [K ] {P } $$$$ l ll l $$$$ $$$$ solves for displacements of omitted coordinates $$$$ $$$$ o -1 $$$$ {u } = [K ] {P } $$$$ o oo o $$$$ $$$$ calculates residual vector (RULV) and residual vector error ratio for $$$$ independent coordinates $$$$ $$$$ {deltaP } = {P } - [K ]{u } $$$$ l l ll l $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ l l $$$$ epsilon = ------------- $$$$ l T $$$$ {P }{u } $$$$ l l $$$$ $$$$ and calculates residual vector (RUOV) and residual vector error ratio for $$$$ omitted coordinates $$$$ $$$$ o $$$$ {deltaP } = {P } - [K ]{u } $$$$ o o oo o $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ o o $$$$ epsilon = ------------- $$$$ o T o $$$$ {P }{u } $$$$ o o $$$$ SSG3 LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ 1/S,N,EPSI $ ****CARD 1- 6, 8- 11, 13, 17, 57- 60 ****FILE 110 ****RFMT 188 $$$$ Go to label LBL9 if residual vectors are not to be printed. COND LBL9,IRES $ ****CARD 1- 6, 8- 11, 13, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ MATGPR prints the residual vector for independent coordinates (RULV). MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 6, 8- 11, 13, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ MATGPR prints the residual vector for omitted coordinates (RUOV). MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 11, 13, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 11, 13, 17, 57- 60 ****RFMT 188,189,192-198 $$$$ SDR1 recovers dependent displacements $$$$ $$$$ $$$$ o $$$$ {u } = [G ]{u ] + {u } , $$$$ o o l o $$$$ $$$$ u u $$$$ a f $$$$ {--} = {u } , {--} = {u } , $$$$ u f Y n $$$$ o s $$$$ $$$$ u $$$$ n $$$$ {u } = [G ]{u ] , {--} = {u } $$$$ m m n u g $$$$ m $$$$ $$$$ and recovers single-point forces of constraint $$$$ $$$$ T $$$$ {q } = -{P } + [K ]{u } + [K ]{Y } $$$$ s s fs f ss s $$$$ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PGG,QG/1/ *BKL0* $ ****CARD 1- 6, 8- 11, 13, 57- 60 ****FILE 111 $$$$ SDR2 calculates the element forces (OEF1) and stresses (OES1) and $$$$ prepares load vectors (OPG1), displacement vectors (OUGV1), and single- $$$$ point forces of constraint (OQG1) for output and translation components $$$$ of the displacement vectors (PUGV1) for the static solution. SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PGG, PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *BKL0*////COMPS $ ****CARD 19 ****FILE 112 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ SCAN examines the element stresses and forces calculated by SDR2 and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES1,OEF1/OESF1/*RF* $ ****CARD 19 ****FILE 112 $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF1,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 112 $$$$ Go to label P2 if no static solution deformed structure plots are $$$$ requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ PLOT generates all requested static solution deformed structure and $$$$ contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ static solution deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ TA1 generates element tables for use in differential stiffness matrix $$$$ assembly. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/ NOSIMP/0/NOGENL/GENEL $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 127 $$$$ d $$$$ DSMG1 generates differential stiffness matrix [K ]. $$$$ gg $$$$ DSMG1 CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/ DSCOSET $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 113 $$$$ d d $$$$ Equivalence [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV KDGG,KDNN/MPCF1 $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ Go to label LBL2D if no multipoint constraints exist. COND LBL2D,MPCF1 $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ MCE2 partitions stiffness matrix $$$$ $$$$ + + $$$$ |_d d | $$$$ |K |K | $$$$ d | nn| nm| $$$$ [K ] = |---+---| $$$$ gg | d d | $$$$ |K |K | $$$$ | mn| mm| $$$$ + + $$$$ $$$$ and performs the matrix reduction $$$$ $$$$ d _d T d d T d $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KDGG,,,/KDNN,,, $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ LABEL LBL2D $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 114 $$$$ d d $$$$ Equivalence [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KDNN,KDFF/SINGLE $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ Go to label LBL3D if no single-point constraints exist. COND LBL3D,SINGLE $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + $$$$ | d d | $$$$ |K |K | $$$$ d | ff| fs| $$$$ [K ] = |---+---| $$$$ nn | d d | $$$$ |K |K | $$$$ | sf| ss| $$$$ + + $$$$ SCE1 USET,KDNN,,,/KDFF,KDFS,,,, $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ LABEL LBL3D $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 115 $$$$ d d $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KDFF,KDAA/OMIT $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116 $$$$ Go to label LBL5D if no omitted coordinates exist. COND LBL5D,OMIT $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116 $$$$ SMP2 partitions constrained differential stiffness matrix $$$$ $$$$ + + $$$$ |_d d | $$$$ |K |K | $$$$ d | aa| ao| $$$$ [K ] = |---+---| $$$$ ff | d | d | $$$$ |K |K | $$$$ | oa oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ d _d d T T d T d $$$$ [K ] = [K ] + [K ] [G ] + [G ] [K ] + [G ] [K ][G ] $$$$ aa aa oa o o oa o oo o $$$$ SMP2 USET,GO,KDFF/KDAA $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116 $$$$ LABEL LBL5D $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 116 $$$$ d dm $$$$ ADD -[K ] and nothing to create [K ]. $$$$ aa aa $$$$ ADD KDAA,/KDAAM/(-1.0,0.0)/(0.0,0.0) $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 121 $$$$ DPD extracts Eigenvalue Extraction Data from Dynamics data block. DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED//NOUE $ ****CARD 1- 6, 8- 11, 57- 61 ****FILE 117 $$$$ Go to label ERROR3 and print Error Message No. 3 if there is no $$$$ Eigenvalue Extraction Data. COND ERROR3,NOEED $ ****CARD 1- 6, 8- 11, 57- 61 ****FILE 117 ****RFMT 187-189,191-204,207-209 $$$$ PARAM //*MPY*/NEIGV/1/-1 $ ****CARD 1- 6, 8- 11, 57- 60 ****FILE 118 $$$$ READ extracts real eigenvalues and eigenvectors from the equation $$$$ $$$$ dm $$$$ [K + lambda K ]{u } = 0 $$$$ aa aa a $$$$ $$$$ and normalizes eigenvectors according to one of the following user $$$$ requests: $$$$ 1. Unit value of a selected component. $$$$ 2. Unit value of the largest component. $$$$ READ KAA,KDAAM,,,EED,USET,CASECC/LAMA,PHIA,,OEIGS/*BUCKLING*/ S,N,NEIGV/2 $ ****CARD 1- 6, 8- 11, 57- 62 ****FILE 118 $$$$ OFP formats the eigenvalues (LAMA) and summary of eigenvalue extraction $$$$ information (OEIGS) prepared by READ and places them on the system output $$$$ file for printing. OFP OEIGS,LAMA,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 11, 57- 62 ****FILE 118 $$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were $$$$ found. COND ERROR4,NEIGV $ ****CARD 1- 6, 8- 11, 57- 62 ****FILE 119 $$$$ SDR1 recovers dependent components of the eigenvectors $$$$ $$$$ phi $$$$ a $$$$ {phi } = [G ]{phi } {----} = {phi } $$$$ o o a phi f $$$$ o $$$$ $$$$ phi $$$$ f $$$$ {----} = {phi } {phi } = [G ]{phi } $$$$ phi n m m n $$$$ s $$$$ $$$$ phi $$$$ n $$$$ {----} = {phi } $$$$ phi g $$$$ m $$$$ $$$$ T $$$$ and recovers single-point forces of constraint {q } = [K ] {phi }. $$$$ s fs f $$$$ SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,BQG/1/*BKL1* $ ****CARD 1- 6, 8- 11, 57- 62 ****FILE 119 ****RFMT 187-189,191-204,207-209 $$$$ SDR2 calculates the element forces (OBEF1) and stresses (OBES1) and $$$$ prepares eigenvectors (OPHIG) and single-point forces of constraint $$$$ (OBQG1) for output and translation components of the displacement $$$$ vectors (PPHIG) for the static solution. $$$$ SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,BQG,PHIG,EST,,, PCOMPS/,OBQG1,OPHIG,OBES1,OBEF1,PPHIG,OBES1L,OBEF1L/ *BKL1*////COMPS $ ****CARD 18, 19 ****FILE 120 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ OFP OBEF1L,OBES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ Go to label P3 if no buckling solution deformed structure plots are $$$$ requested. COND P3,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 128 $$$$ PLOT generates all requested buckling solution deformed structure and $$$$ contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT, OBES1,OBES1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 128 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ buckling solution deformed plot generated. PRTMSG PLOTX3// $ ****SBST 7 ****CARD 18 ****FILE 128 $$$$ LABEL P3 $ ****SBST 7 ****CARD 18 ****FILE 128 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****FILE 128 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*BUCKLING* $ ****CARD 1, 2, 4- 6, 8, 16 ****FILE 97 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*BUCKLING* $ ****CARD 1, 12 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR3 $ ****CARD 1- 6, 8- 11, 57- 61 ****FILE 117 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*BUCKLING* $ ****CARD 1- 6, 8- 11, 57- 61 ****FILE 117 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR4 $ ****CARD 1- 6, 8- 11, 57- 62 ****FILE 118 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*BUCKLING* $ ****CARD 1- 6, 8- 11, 57- 62 ****FILE 118 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR5 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 57 ****FILE 125 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*BUCKLING* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 57 ****FILE 125 ****RFMT 187-189,191-204,207-209 $$$$ LABEL ERROR6 $ ****CARD 1, 9- 12, 59 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ Print Error Message No. 6 and terminate execution. PRTPARM //-6/*BUCKLING* $ ****CARD 1, 9- 12, 59 ****FILE 101 ****RFMT 187-189,191-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****FILE 128 ****RFMT 187-189,191-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****RFMT 187-189,191-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 21, 24, 57- 62 ****RFMT 187-189,191-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 57 GRAV RFORCE 58 TEMPLD$ 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 EIGB 62 METHOD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET YS OGPST 102 GPST 103 GM 104 KNN 105 KFF KFS KSS 106 GO KAA KOO LOO 107 LLL 108 PG 109 PL PO PS 110 RULV RUOV ULV UOOV 111 PGG QG UGV 112 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 112 OEF1L OES1L OESF1 113 KDGG 114 KDNN 115 KDFF KDFS KDSS 116 KDAA 117 EED EQDYN GPLD SILD USETD 118 LAMA OEIGS PHIA 119 BQG PHIG 120 OBEF1 OBES1 OBQG1 OPHIG PPHIG 120 OBEF1L OBES1L 121 KDAAM 122 ELSETS GPSETS PLTPAR PLTSETX 123 KDICT KELM MDICT MELM 124 PLOTX1 125 OGPWG 126 PLOTX2 127 X1 X2 X3 ECPT GPCT 128 PLOTX3 129 BGPDP SIP $* =PAGE= DISP6 APR.93 $$$$$$$$ BEGIN DISP 06 - PIECEWISE LINEAR STATIC ANALYSIS - APR. 1993 $ ****CARD 1- 6, 8- 24, 58- 62 ****RFMT 187-191,193-198 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 24, 58- 62 ****RFMT 187-191,193-198 $$$$ FILE QG1=APPEND/UGV1=APPEND/KGGSUM=SAVE/PGV1=APPEND $ ****CARD 1- 6, 8- 24, 58- 62 ****RFMT 187-191,193-198 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 5, 6, 8- 10, 14, 15, 19, 21- 24, 61 ****FILE 102,117,120,124 $$$$ GPI generates coordinate system transformation matrices, tables of grid $$$$ locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 126 $$$$ GP2 generates the Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 121,122 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 121 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121,122 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 122 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 121,122 $$$$ GP3 generates Static Loads Table and Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $ ****CARD 1, 2, 13, 60, 61 ****FILE 96 $$$$ PARAM //*AND*/SKPMGG/NOGRAV/V,Y,GRDPNT $ ****CARD 1, 2, 15, 61 ****FILE 123 ****RFMT 187-191,193-198 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,ECPT,GPCT, MPTX,PCOMPS,EPTX/LUSET/S,N,NOSIMP/2/S,N,NOGENL/GENEL/S,N,COMPS ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 24, 58- 62 ****FILE 97 $$$$ PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-191,193-198 $$$$ Go to label ERROR4 and print Error Message No. 4 if no elements have been $$$$ defined. COND ERROR4,NOELMT $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-191,193-198 $$$$ PURGE KGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 98 $$$$ Go to label LBL1 if there are no structural elements. COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 14, 15, 24, 61 ****FILE 98, 99,123,124 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ EMG generates the structural element stiffness and mass matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/ S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/ C,Y,CPQDPLT/C,Y,CTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24, 61 ****FILE 123 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 5, 6, 8, 14, 15, 24, 61 ****FILE 98, 99 $$$$ Go to label JMPKGG if no stiffness matrix is to be assembled. COND JMPKGG,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ LABEL JMPKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPMGG if no mass matrix is to be assembled. COND JMPMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 123 $$$$ LABEL JMPMGG $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 99 $$$$ Go to label LBL1 if no weight and balance information is requested. COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 124 $$$$ Go to label ERROR3 and print Error Message No. 3 if no mass matrix $$$$ exists. COND ERROR3,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 124 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/V,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 124 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 124 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 98, 99,123,124 $$$$ x xl $$$$ PLA1 extracts the linear terms form [K ] to give [K ], extracts the $$$$ gg gg $$$$ $$$$ nonlinear entries from the Element Connection and Properties Table to $$$$ give ECPTNL, and separates the linear and nonlinear entries in the $$$$ Element Summary Table to give ESTL and ESTNL. PLA1 CSTM,MPT,ECPT,GPCT,DIT,CASECC,EST/KGGXL,ECPTNL,ESTL,ESTNL/S,N, KGGLPG/S,N,NPLALIM/S,N,ECPTNLPG/S,N,PLSETNO/S,N,NONLSTR/S,N, PLFACT $ ****CARD 1- 3, 6, 8 ****FILE 100 $$$$ Go to label ERROR1 and print Error Message No. 1 if no elements have a $$$$ stress-dependent modulus of elasticity. COND ERROR1,ECPTNLPG $ ****CARD 1- 3, 6, 8 ****FILE 100 $$$$ PURGE ONLES,ESTNL1/NONLSTR $ ****CARD 1- 3, 6, 8 ****FILE 100 $$$$ PARAM //*ADD*/ALWAYS/-1/0 $ ****CARD 1- 3, 6, 8 ****FILE 100 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 100 $$$$ x xl l $$$$ Equivalence [K ] to [K ] and [K ] to [K ] if there are no general $$$$ gg gg gg gg $$$$ elements. EQUIV KGGX,KGG/NOGENL/KGGXL,KGGL/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 101 $$$$ Go to label LBL11 if there are no general elements. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 101 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 101 $$$$ xl $$$$ SMA3 adds general elements to [K ] to obtain stiffness of linear $$$$ gg $$$$ l $$$$ elements [K ]. $$$$ gg $$$$ SMA3 GEI,KGGXL/KGGL/LUSET/NOGENL/KGGLPG $ ****CARD 1- 4, 6, 8 ****FILE 101 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 101 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 104 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12, 59 ****FILE 102 $$$$ GP4 generates flags defining members of various displacement set (USET) $$$$ and forms multipoint constraint equation [R ] {u } = 0. $$$$ g g $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 20, 21, 59 ****FILE 102 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 21 ****FILE 102 $$$$ PARAM //*AND*/NOSR/SINGLE/REACT $ ****CARD 1, 9- 12, 59 ****FILE 102 $$$$ PURGE KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS, KFS,KSS/SINGLE/QG/NOSR $ ****CARD 1, 9- 12, 59 ****FILE 105,107-109,111,113-115 $$$$ l $$$$ SSG1 generates total static load vector {P }. $$$$ g $$$$ SSG1 SLT,BGPDT,CSTM,SIL,EST,MPT,,,MGG,CASECC,DIT,PCOMPS/PG1,,,,/ LUSET/1/COMPS $ ****CARD 1- 3, 5, 6, 8, 59- 62 ****FILE 103 $$$$ l $$$$ Equivalence {P } t {P } if no constraints are applied. $$$$ g l $$$$ EQUIV PG1,PL/NOSET $ ****CARD 1- 3, 5, 6, 8, 59- 62 ****FILE 103 $$$$ PARAM //*ADD*/PLACOUNT/1/0 $ ****CARD 22, 23 $$$$ $$$$ Equivalence [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 106 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 105,106 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9, 22, 23 ****FILE 105 $$$$ Beginning of loop for additional load increments. LABEL LOOPBGN $ ****CARD 1- 4, 6, 8, 9, 22, 23 $$$$ $$$$ Equivalence [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV KGG,KNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 106 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 106 $$$$ MCE2 partitions stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | nn| nm| $$$$ [K ] = |---+---| $$$$ gg |K |K | $$$$ | mn| mm| $$$$ + + $$$$ $$$$ and performs the matrix reduction $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,,,/KNN,,, $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 106 $$$$ LABEL LBL2 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 105,106 $$$$ Equivalence [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KNN,KFF/SINGLE $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 107 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 107 $$$$ SCE1 partitions out single-point constraints. $$$$ $$$$ + + $$$$ |K |K | $$$$ | ff| fs| $$$$ [K ] = |---+---| $$$$ nn |K |K | $$$$ | sf| ss| $$$$ + + $$$$ SCE1 USET,KNN,,,/KFF,KFS,KSS,,, $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 107 $$$$ LABEL LBL3 $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 107 $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 108 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 108 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 108 $$$$ LABEL LBL5 $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 108 $$$$ Equivalence [K ] to [K ] if no free-body supports exist. $$$$ aa ll $$$$ EQUIV KAA,KLL/REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ Go to label LBL6 if no free-body supports exist. COND LBL6,REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ RBMG1 partitions out free-body supports $$$$ $$$$ + + $$$$ |K |K | $$$$ | ll| lr| $$$$ [K ] = |---+---| $$$$ aa |K |K | $$$$ | rl| rr| $$$$ + + $$$$ RBMG1 USET,KAA,/KLL,KLR,KRR,,, $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ LABEL LBL6 $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ DECOMP decomposes constrained stiffness matrix [K ] = [L ][U ]. $$$$ ll ll ll $$$$ DECOMP KLL/LLL,/1/0/MINDIAGK/DETKLLXX/IDETKLLX/ S,N,SINGKLLX $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 110 $$$$ Go to label PLALBL4 and print Error Message No. 5 if stiffness matrix $$$$ [K ] is singular (i.e., local plasticity). $$$$ ll $$$$ COND PLALBL4,SINGKLLX $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 ****FILE 110 $$$$ Go to label LBL7 if no free-body supports exist. COND LBL7,REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 111 $$$$ RBMG3 forms rigid body transformation matrix $$$$ $$$$ -1 $$$$ [D] = -[K ] [K ] $$$$ ll lr $$$$ $$$$ calculates rigid body check matrix $$$$ $$$$ T $$$$ [X] = [K ] + [K ][D] $$$$ rr lr $$$$ $$$$ and calculates rigid body error ratio $$$$ $$$$ ||X|| $$$$ epsilon = --------- $$$$ ||K || $$$$ rr $$$$ RBMG3 LLL,KLR,KRR/DM $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 111 $$$$ LABEL LBL7 $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 111 $$$$ 1 $$$$ ADD multiplies total load vector {P ]} by factor PLFACT and adds it to $$$$ g $$$$ nothing to obtain applied load vector {P } for current loop. $$$$ g $$$$ ADD PG1,/PG/PLFACT $ ****CARD 1- 3, 5, 6, 8, 13, 22, 23, 58- 62 ****FILE 112 ****RFMT 187,188,190,191 $$$$ Go to label LBL10 if no constraints are applied. COND LBL10,NOSET $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 58- 62 ****FILE 113 ****RFMT 187,188,190,191 $$$$ SSG2 applies constraints to static load vectors $$$$ $$$$ _ $$$$ P $$$$ n _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ g P n n m m $$$$ m $$$$ $$$$ _ $$$$ P $$$$ f _ $$$$ {P } = {--} , {P } = {P } - [K ]{Y } $$$$ n P f f fs s $$$$ s $$$$ $$$$ P $$$$ a T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ f P l a o o $$$$ o $$$$ $$$$ P $$$$ l $$$$ {P } = {--} $$$$ a P $$$$ r $$$$ $$$$ and calculates incremental determinate forces of reaction for current $$$$ loop $$$$ $$$$ T $$$$ {q } = -{P } - [D ]{P } $$$$ r r l $$$$ SSG2 USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 58- 62 ****FILE 113 ****RFMT 187,188,190,191 $$$$ LABEL LBL10 $ ****CARD 1- 3, 5, 6, 8- 13, 22, 23, 58- 62 ****FILE 113 ****RFMT 187,188,190,191 $$$$ SSG3 solves for displacements of independent coordinates $$$$ $$$$ -1 $$$$ {u } = [K ] {P } $$$$ l ll l $$$$ $$$$ solves for displacements of omitted coordinates $$$$ $$$$ o -1 $$$$ {u } = [K ] {P } $$$$ o oo o $$$$ $$$$ calculates residual vector (RULV) and residual vector error ratio for $$$$ independent coordinates $$$$ $$$$ {deltaP } = {P } - [K ]{u } $$$$ l l ll l $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ l l $$$$ epsilon = ------------- $$$$ l T $$$$ {P }{u } $$$$ l l $$$$ $$$$ and calculates residual vector (RUOV) and residual vector error ratio for $$$$ omitted coordinates $$$$ $$$$ o $$$$ {deltaP } = {P } - [K ]{u } $$$$ o o oo o $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ o o $$$$ epsilon = ------------- $$$$ o T o $$$$ {P }{u } $$$$ o o $$$$ SSG3 LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ PLACOUNT/S,N,EPSI $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 ****FILE 114 ****RFMT 187,188,190,191 $$$$ Go to label LBL9 if residual vectors are not to be printed. COND LBL9,IRES $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 ****RFMT 187-191,193-198 $$$$ MATGPR prints the residual vector for independent coordinates (RULV). MATGPR GPL,USET,SIL,RULV//*L* $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 ****RFMT 187-191,193-198 $$$$ MATGPR prints the residual vector for omitted coordinates (RUOV). MATGPR GPL,USET,SIL,RUOV//*O* $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 ****RFMT 187-191,193-198 $$$$ LABEL LBL9 $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 ****RFMT 187-191,193-198 $$$$ SDR1 recovers dependent displacements for current loop $$$$ $$$$ u $$$$ l o $$$$ {--} = {u } , {u } = [G ]{u ] + {u } , $$$$ u a o o a o $$$$ r $$$$ $$$$ u u $$$$ a f $$$$ {--} = {u } , {--} = {u } , $$$$ u f Y n $$$$ o s $$$$ $$$$ u $$$$ n $$$$ {u } = [G ]{u ] , {--} = {u } $$$$ m m n u g $$$$ m $$$$ $$$$ and recovers single-point forces of constraint for current loop $$$$ $$$$ T $$$$ {delta q } = -{P } + [K ]{u } $$$$ s s fs f $$$$ SDR1 USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/DELTAUGV,DELTAPG, DELTAQG/1/*STATICS* $ ****CARD 1- 6, 8- 13, 22, 23, 58- 62 ****FILE 115 ****RFMT 187-191,193-198 $$$$ PLA2 adds the incremental displacement vector (DELTAUGV) and the $$$$ incremental single-point forces of constraint vector (DELTAQG) for the $$$$ current loop to the accumulated sum of these vectors (DELTAPG). $$$$ $$$$ {u } = {delta u } + {u } $$$$ g g g $$$$ i+1 i i $$$$ $$$$ {q } = {delta q } + {q } $$$$ g g g $$$$ i+1 i i $$$$ PLA2 DELTAUGV,DELTAPG,DELTAQG/UGV1,PGV1,QG1/S,N,PLACOUNT $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 116 $$$$ Allocate separate files for ESTNL and ESTNL1 and for ECPTNL and ECPTNL1. EQUIV ESTNL,ESTNL1/NEVER/ECPTNL,ECPTNL1/NEVER $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 117 $$$$ Go to label PLALBL2A if no stress output is requested for nonlinear $$$$ elements. COND PLALBL2A,NONLSTR $ ****CARD 22, 23 ****FILE 117 $$$$ PLA3 calculates incremental stresses in nonlinear elements (ONLES) for $$$$ which an output request has been made and updates the accumulated $$$$ stresses (ESTNL1) in these elements. PLA3 CSTM,MPT,DIT,DELTAUGV,ESTNL,CASECC/ONLES,ESTNL1/PLACOUNT/ PLSETNO $ ****CARD 22, 23 ****FILE 117 $$$$ OFP formats the accumulated stresses in nonlinear elements prepared by $$$$ PLA3 and places them on the system output file for printing. OFP ONLES,,,,,//S,N,CARDNO $ ****CARD 22, 23 ****FILE 117 $$$$ LABEL PLALBL2A $ ****CARD 22, 23 ****FILE 117 $$$$ PARAM //*SUB*/DIFF/NPLALIM/PLACOUNT $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 118 $$$$ Go to label PLALBL5 if all loading increments have been completed. COND PLALBL5,DIFF $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 118,119 $$$$ nl $$$$ PLA4 generates stiffness matrix for nonlinear elements [K ] and updates $$$$ gg $$$$ stress information. PLA4 CSTM,MPT,ECPTNL,GPCT,DIT,DELTAUGV/KGGNL,ECPTNL1/S,N,PLACOUNT/ S,N,PLSETNO/S,N,PLFACT $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 118 $$$$ nl $$$$ Equivalence [K ] to [K ] if all elements are nonlinear. $$$$ gg gg $$$$ EQUIV KGGNL,KGGSUM/KGGLPG $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 119 $$$$ Go to label PLALBL3 if all elements are nonlinear. COND PLALBL3,KGGLPG $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 119 $$$$ ADD stiffness matrix for nonlinear elements (KGGNL) to stiffness matrix $$$$ for linear elements (KGGL) $$$$ $$$$ nl l sum $$$$ [K ] + [K ] = [K ] $$$$ gg gg gg $$$$ ADD KGGNL,KGGL/KGGSUM/(1.0,0.0)/(1.0,0.0) $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 119 $$$$ LABEL PLALBL3 $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 119 $$$$ $$$$ Equivalence existing element tables to updated tables and equivalence $$$$ sum $$$$ [K ] to [K ] for next pass through loop. $$$$ gg gg $$$$ EQUIV ESTNL1,ESTNL/ALWAYS/ECPTNL1,ECPTNL/ALWAYS/KGGSUM,KGG/ALWAYS $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 100,101 $$$$ Go to label LOOPBGN if additional load increments need to be processed. REPT LOOPBGN,360 $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 $$$$ Go to label ERROR2 and print Error Message No. 2 if the number of load $$$$ increments exceeds 360. JUMP ERROR2 $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 $$$$ LABEL PLALBL4 $ ****CARD 1- 6, 8- 13, 17, 22, 23, 58- 62 $$$$ Print Error Message No. 5 and terminate execution. PRTPARM //-5/*PLA* $ ****CARD 1- 4, 6, 8- 12, 22, 23 $$$$ LABEL PLALBL5 $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****FILE 118,119 $$$$ SDR2 calculates element forces (OEF1) and stresses for linear elements $$$$ (OES1) and prepares load vectors (OPG1), displacement vectors (OUGV1), $$$$ and single-point forces of constraint (OQG1) for output and translation $$$$ components of the displacement vector (PUGV1). SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG1,UGV1,ESTL,, PGV1,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ *PLA*////COMPS $ ****CARD 18, 19 ****FILE 120 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ OFP OEF1L,OES1L,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ SCAN examines the element stresses and forces calculated by SDR2 and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES1,OEF1/OESF1/*RF* $ ****CARD 19 ****FILE 120 $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF1,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 120 $$$$ Go to label P2 if no deformed structure plots are requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ PLOT generates all requested deformed structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,ECPT,OES1, OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 125 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 24, 58- 62 ****FILE 125 ****RFMT 187-191,193-198 $$$$ LABEL ERROR1 $ ****CARD 1- 3, 6, 8 ****FILE 100 ****RFMT 187-191,193-198 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*PLA* $ ****CARD 1- 3, 6, 8 ****FILE 100 ****RFMT 187-191,193-198 $$$$ LABEL ERROR2 $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****RFMT 187-191,193-198 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*PLA* $ ****CARD 1- 6, 8- 12, 22, 23, 58- 62 ****RFMT 187-191,193-198 $$$$ LABEL ERROR3 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 124 ****RFMT 187-191,193-198 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*PLA* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24, 61 ****FILE 124 ****RFMT 187-191,193-198 $$$$ LABEL ERROR4 $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-191,193-198 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*PLA* $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-191,193-198 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 24, 58- 62 ****FILE 125 ****RFMT 187-191,193-198 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 24, 58- 62 ****RFMT 187-191,193-198 $$$$ END $ ****CARD 1- 6, 8- 24, 58- 62 ****RFMT 187-191,193-198 $$$$ $*CARD BITS 1 AXIC AXIF CELAS1 CELAS2 CELAS3 CELAS4 CMASS1 1 CMASS2 1 CMASS3 CMASS4 CORD1C CORD1R CORD1S CORD2C CORD2R 1 CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CHEXA1 2 CHEXA2 2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM CQDMEM1 2 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD CSHEAR CTETRA 2 CTORDRG CQUAD4 CTRIA3 2 CTRAPAX CTRAPRG CTRBSC CTRIA1 CTRIA2 CTRIAAX CTRIARG 2 CTRIM6 2 CTRMEM CTRPLT CTRPLT1 CTRSHL CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATS1 MATS2 MATT1 MATT2 8 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TABLES1 TABLES2 TABLES3 8 TABLES4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 20 ASETOUT 21 AUTOSPC 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 58 PLCO$ PLFACT 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX SLOAD 61 GRAV RFORCE 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 ECPT GPECT EST GEI GPCT 97 MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGGXL ECPTNL ESTL ESTNL 101 KGG KGGL 102 ASET RG USET YS OGPST 103 PG1 104 GPST 105 GM 106 KNN 107 KFF KFS KSS 108 GO KAA KOO LOO 109 KLL KLR KRR 110 LLL 111 DM 112 PG 113 PL PO PS QR 114 RULV RUOV ULV UOOV 115 DELTAPG DELTAQG DELTAUGV 116 UGV1 PGV1 QG1 117 ONLES ESTNL1 118 KGGNL ECPTNL1 119 KGGSUM 120 OEF1 OES1 OPG1 OQG1 OUGV1 PUGV1 120 OEF1L OES1L OESF1 121 ELSETS GPSETS PLTPAR PLTSETX 122 PLOTX1 123 KELM KDICT MELM MDICT 124 OGPWG 125 PLOTX2 126 BGPDP SIP $* =PAGE= DISP7 APR.93 $$$$$$$$ BEGIN DISP 07 - DIRECT COMPLEX EIGENVALUE ANALYSIS - APR. 1993 $ ****CARD 1- 6, 8- 24, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 24, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ FILE GOD=SAVE/GMD=SAVE $ ****CARD 1- 6, 8- 24, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 11, 14, 19- 24, 52, 56- 62 ****FILE 101,111,112,114,128 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 131 $$$$ PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,EST,ECT,PLTSETX,PLTPAR,GPSETS, ELSETS/NOGPDT $ ****CARD 1 ****FILE 95, 97,101,103,105,106,120-123 $$$$ Go to label LBL5 if there is only Direct Matrix Input. COND LBL5,NOGPDT $ ****CARD 1- 6, 8- 11, 13- 18, 20, 24, 58, 59 ****FILE 95-106,120-128 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16, 58 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120,127 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,127 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,127 $$$$ GP3 generates Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/ S,N,COMPS $ ****CARD 1- 6, 13, 16, 58, 59 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 24, 52, 56- 62 ****FILE 97 $$$$ PURGE K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA, KGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 16, 58, 59 ****FILE 98, 99,104-106,121-123,125 $$$$ Go to label LBL1 if there are no structural elements. COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 13- 15, 24, 58, 59 ****FILE 98, 99,104,105,121,122,124-126,128 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOBGG=-1/1/0 $ ****CARD 1- 3, 8 ****FILE 125 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOK4GG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ EMG generates structural element stiffness, mass and damping matrix $$$$ tables, and dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/S,N, NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24 ****FILE 124 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 5, 6, 8, 14, 24 ****FILE 98, 99 ****RFMT 187,190-192 $$$$ Go to label LBLKGGX if no stiffness matrix is to be assembled. COND LBLKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL LBLKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label LBLMGG if no mass matrix is to be assembled. COND LBLMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/MINUS1 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 $$$$ LABEL LBLMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ Go to label LBLBGG if no viscous damping matrix is to be assembled. COND LBLBGG,NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ EMA assembles viscous damping matrix [B ]. $$$$ gg $$$$ EMA GPECT,BDICT,BELM/BGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ PURGE BDICT,BELM/MINUS1 $ ****CARD 1- 3, 8, 58, 59 ****FILE 124 $$$$ LABEL LBLBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ Go to label LBLK4GG if no structural damping matrix is to be assembled. COND LBLK4GG,NOK4GG $ ****CARD 1- 3, 8 ****FILE 126 $$$$ 4 $$$$ EMA assembles structural damping matrix [K ]. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ LABEL LBLK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ PURGE KDICT,KELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ PURGE MNN,MFF,MAA/NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 104,105,121 ****RFMT 187,190-192 $$$$ PURGE BNN,BFF,BAA/NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 104,105,122 ****RFMT 187,190-192 $$$$ Go to label LBL1 if no weight and balance information is requested. COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ Go to label ERROR3 and print Error Message No. 3 if no mass matrix $$$$ exists. COND ERROR3,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 13- 15, 24, 58, 59 ****FILE 98, 99,104,105,121,122,124-126,128 $$$$ x $$$$ Equivalence [K ] to [K ] if there are no general elements. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ Go to label LBL11 if there are no general elements. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET) $$$$ and forms multipoint constraint equations [R ] {u } = 0. $$$$ g g $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 17, 20 ****FILE 101 $$$$ OFP formats the table of potential grid point singularities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 20 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $ ****CARD 1, 9- 12 ****FILE 103,105,106,110,113 $$$$ Equivalence [K ] to [K ], [M ] to [M ], [B ] to [B ], and $$$$ gg nn gg nn gg nn $$$$ 4 4 $$$$ [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness, mass, and damping matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |M |M | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ gg |K |K | gg |M |M | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ +_ + +_4 4 + $$$$ |B |B | |K |K | $$$$ | nn| nm| 4 | nn| nm| $$$$ [B ] = |---+---| [K ] = |---+---| $$$$ gg |B |B | gg | 4 | 4 | $$$$ | mn| mm| |K |K | $$$$ + + | mn| mm| $$$$ + + $$$$ $$$$ and performs the matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [G ][M ] + [M ][G ] + [G ][M ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [B ] = [B ] + [G ][B ] + [B ][G ] + [G ][B ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ 4 _4 T 4 4 T T 4 $$$$ [K ] = [K ] + [G ][K ] + [K ] [G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 103,104 $$$$ Equivalence [K ] to [K ], [M ] to [M ], [B ] to [B ], and $$$$ nn ff nn ff nn ff $$$$ 4 4 $$$$ [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn |K |K | nn |M |M | $$$$ | sf| ss| | sf| ss| $$$$ + + + + $$$$ $$$$ + + $$$$ + + | 4 4 | $$$$ |B |B | |K |K | $$$$ | ff| fs| 4 | ff| fs| $$$$ [B ] = |---+---| [K ] = |---+---| $$$$ nn |B |B | nn | 4 | 4 | $$$$ | sf| ss| |K |K | $$$$ + + | sf| ss| $$$$ + + $$$$ SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ Equivalence [K ] to [K ], [M ] to [M ], [B ] to [B ], and $$$$ ff aa ff aa ff aa $$$$ 4 4 $$$$ [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT/ MFF,MAA/OMIT/BFF,BAA/OMIT/K4FF,K4AA/OMIT $ ****CARD 1- 6, 8- 11, 14, 24, 58, 59 ****FILE 106,121-123 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24, 58, 59 ****FILE 106,121-123 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Go to label LBLM if no mass matrix exists. COND LBLM,NOMGG $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ SMP2 partitions constrained mass matrix $$$$ $$$$ +_ + $$$$ |M |M | $$$$ | aa| ao| $$$$ [M ] = |---+---| $$$$ ff |M |M | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T $$$$ [M ] = [M ] + [M ][G ] + [M G ] + [G ][M ][G ] $$$$ aa aa oa o ao o o oo o $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ LABEL LBLM $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ Go to label LBLB if no viscous damping matrix exists. COND LBLB,NOBGG $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ SMP2 partitions constrained viscous damping matrix $$$$ $$$$ +_ + $$$$ |B |B | $$$$ | aa| ao| $$$$ [B ] = |---+---| $$$$ ff |B |B | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T $$$$ [B ] = [B ] + [B ][G ] + [B G ] + [G ][B ][G ] $$$$ aa aa oa o ao o o oo o $$$$ SMP2 USET,GO,BFF/BAA $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ LABEL LBLB $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ Go to label LBL5 if no structural damping matrix exists. COND LBL5,NOK4GG $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ SMP2 partitions constrained structural damping matrix $$$$ $$$$ + + $$$$ |_4 4 | $$$$ |K |K | $$$$ 4 | aa| ao| $$$$ [K ] = |---+---| $$$$ ff | 4 | 4 | $$$$ |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ 4 4 4 4 T T 4 $$$$ [K ] = [K ] + [K ][G ] + [K G ] + [G ][K ][G ] $$$$ aa aa oa o ao o o oo o $$$$ SMP2 USET,GO,K4FF/K4AA $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 11, 13- 18, 20, 23- 28, 30, 58, 59 ****FILE 95-106,120-128 $$$$ DPD generates flags defining members of various displacement sets used in $$$$ dynamic analysis (USETD), tables relating the internal and external grid $$$$ point numbers (GPLD), including extra points introduced for dynamic $$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL), and $$$$ Eigenvalue Extraction Data (EED). DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/ LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $ ****CARD 1, 9- 11, 57, 61 ****FILE 107 $$$$ Go to label ERROR1 and print Error Message No. 1 if there is no $$$$ Eigenvalue Extraction Data. COND ERROR1,NOEED $ ****CARD 1, 9- 11, 57, 61 ****FILE 107 $$$$ d d $$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points $$$$ o o m m $$$$ introduced for dynamic analysis. EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56, 58- 60 ****FILE 110 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 19, 21- 23 $$$$ PARAM //*MPY*/REPEATE/1/-1 $ ****CARD 1- 6, 8- 14, 16, 19, 21- 23, 52, 56- 62 ****FILE 108 ****RFMT 187-192,194-204,207-209 $$$$ BMG generates DMIG card images describing the interconnection of the $$$$ fluid and the structure. BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ ****CARD 1, 52 ****FILE 118 $$$$ PARAM //*AND*/NOFL/NOABFL/NOKBFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 119 $$$$ PURGE KBFL/NOKBFL/ ABFL/NOABFL $ ****CARD 1, 52 ****FILE 118 $$$$ Go to label LBL13 if no fluid structure interface is defined. COND LBL13,NOFL $ ****CARD 1, 52 ****FILE 119 $$$$ MTRXIN generates fluid boundary matrices [A ] and [K ]. The matrix $$$$ b,fl b,fl $$$$ [K ] is generated only for a nonzero gravity in the fluid. $$$$ b,fl $$$$ MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ ****CARD 1, 52 ****FILE 119 $$$$ Beginning of loop for additional sets of direct input matrices. LABEL LBL13 $ ****CARD 1- 6, 8- 16, 18, 19, 21- 23, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ PURGE PHID,CLAMA,OPHID,OQPC1,OCPHIP,OESC1,OEFC1,CPHIP,QPC, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ ****CARD 19, 21- 23 ****FILE 109-114,129,130 $$$$ CASE extracts the appropriate record from CASECC corresponding to the $$$$ current loop and copies it into CASEXX. CASE CASECC,/CASEXX/*CEIGN*/S,N,REPEATE/S,N,NOLOOP $ ****CARD 1- 6, 8- 16, 19, 21- 23, 25, 52, 56- 62 ****FILE 108 ****RFMT 187-192,194-204,207-209 $$$$ 2d 2d 2 $$$$ MTRXIN selects the direct input matrices [K ], [M ], and [B ] for the $$$$ pp pp pp $$$$ current loop. MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ 2 2d $$$$ Equivalence [K ] to [K ] if no fluid-structure interface is defined $$$$ pp pp $$$$ 2 2d $$$$ and equivalence [M ] to [M ] if there is no [A ]. $$$$ pp pp b,fl $$$$ EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ Go to label LBLFL2 if no fluid-structure interface is defined. COND LBLFL2,NOFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ 2d $$$$ ADD5 adds [K ] and [K ] and subtracts [A ] from them to form $$$$ b,fl pp b,fl $$$$ 2 $$$$ [K ]. $$$$ pp $$$$ ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129 $$$$ Go to label LBLFL2 if there is no [A ]. $$$$ b,fl $$$$ COND LBLFL2,NOABFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ T $$$$ Transpose [A ] to obtain [A ] . $$$$ b,fl b,fl $$$$ TRNSP ABFL/ABFLT $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ 2 T 2d $$$$ ADD assembles input matrix [M ] = MFACT [A ] + [M ]. $$$$ pp b,fl pp $$$$ ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ LABEL LBLFL2 $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ PARAM //*AND*/BDEBA/NOUE/NOB2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 110 $$$$ PARAM //*AND*/MDEMA/NOUE/NOM2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 110 $$$$ PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 110 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ 2 2 2 2 2 2 $$$$ Equivalence [M ] to [M ], [B ] to [B ], and [K ] to [K ] if no $$$$ pp dd pp dd pp dd $$$$ constraints are applied, [M ] to [M ] if there are no direct input $$$$ aa dd $$$$ mass matrices and no extra points, and [B ] to [B ] if there are no $$$$ aa dd $$$$ direct input damping matrices and no extra points. EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ MAA,MDD/MDEMA/BAA,BDD/BDEBA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ Go to label LBL18 if only extra points are defined. COND LBL18,NOGPDT $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ GKAD assembles stiffness, mass, and damping matrices for use in Direct $$$$ Complex Eigenvalue Analysis. $$$$ $$$$ 1 2 4 $$$$ [K ] = (1 + ig)[K ] + [K ] + i[K ] $$$$ dd dd dd dd $$$$ $$$$ 1 2 $$$$ [M ] = [M ] + [M ] $$$$ dd dd dd $$$$ $$$$ 1 2 $$$$ [B ] = [B ] + [B ] $$$$ dd dd dd $$$$ $$$$ Direct input matrices may be complex. GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*CMPLEV*/*DISP*/*DIRECT*/C,Y,G=0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ LABEL LBL18 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ 2 $$$$ Equivalence [K ] to [K ] if all stiffness is Direct Matrix Input, $$$$ dd dd $$$$ 2 $$$$ [M ] to [M ] if all mass is Direct Matrix Input, and $$$$ dd dd $$$$ 2 $$$$ [B ] to [B ] if all damping is Direct Matrix Input. $$$$ dd dd $$$$ EQUIV B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ CEAD extracts complex eigenvalues and eigenvectors from the equation $$$$ $$$$ 2 $$$$ [M p + B p + K ] {u } = 0 $$$$ dd dd dd d $$$$ $$$$ and normalizes eigenvectors according to one of the following user $$$$ requests: $$$$ 1. Unit magnitude of a selected component. $$$$ 2. Unit magnitude of the largest component. CEAD KDD,BDD,MDD,EED,CASEXX/PHID,CLAMA,OCEIGS,/S,N,EIGVS $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 $$$$ OFP formats the summary of complex eigenvalues (CLAMA) and summary of $$$$ eigenvalue extraction information (OCEIGS) prepared by CEAD and places $$$$ them on the system output file for printing. OFP OCEIGS,CLAMA,,,,//S,N,CARDNO $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 $$$$ Go to label LBL16 if no eigenvalues were found. COND LBL16,EIGVS $ ****CARD 1- 6, 8- 11, 14, 19, 21- 24, 52, 56- 62 ****FILE 112-114 $$$$ VDR prepares eigenvectors for output, using only the independent degrees $$$$ of freedom. VDR CASEXX,EQDYN,USETD,PHID,CLAMA,,/OPHID,/*CEIGN*/*DIRECT*/ 0/S,N,NOD/S,N,NOP/0 $ ****CARD 19, 21 ****FILE 112 $$$$ Go to label LBL15 if there is no output request for independent degrees $$$$ of freedom. COND LBL15,NOD $ ****CARD 21 ****FILE 112 $$$$ OFP formats the eigenvectors for independent degrees of freedom prepared $$$$ by VDR and places them on the system output file for printing. OFP OPHID,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 112 $$$$ LABEL LBL15 $ ****CARD 21 ****FILE 112 $$$$ Go to label LBL16 if there is no output request involving dependent $$$$ degrees of freedom or forces and stresses. COND LBL16,NOP $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 113 ****RFMT 187-192,194-204,207-209 $$$$ Equivalence {phi } to {phi } if no constraints are applied. $$$$ d p $$$$ EQUIV PHID,CPHIP/NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 113 ****RFMT 187-192,194-204,207-209 $$$$ Go to label LBL17 if no constraints are applied. COND LBL17,NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 113 ****RFMT 187-192,194-204,207-209 $$$$ SDR1 recovers dependent components of eigenvectors $$$$ $$$$ phi $$$$ d d $$$$ {phi } = [G ]{phi } {----} = {phi + phi } $$$$ o o d phi f e $$$$ o $$$$ $$$$ phi +phi $$$$ f e d $$$$ {---------} = {phi +phi } {phi } = [G ]{phi + phi } $$$$ phi n e m m n e $$$$ s $$$$ $$$$ phi +phi $$$$ n e $$$$ {---------} = {phi } $$$$ phi p $$$$ m $$$$ $$$$ and recovers single-point forces of constraint {q } = [K ] {phi }. $$$$ s fs f $$$$ SDR1 USETD,, PHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 113 ****RFMT 187-192,194-204,207-209 $$$$ LABEL LBL17 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 113 $$$$ SDR2 calculates element forces (OEFC1) and stresses (OESC1) and prepares $$$$ eigenvectors (OCPHIP) and single-point forces of constraint (OQPC1) for $$$$ output. SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,CLAMA,QPC,CPHIP,EST,,,/ ,OQPC1,OCPHIP,OESC1,OEFC1,,,/*CEIG* $ ****CARD 19 ****FILE 114 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP OCPHIP,OQPC1,OEFC1,OESC1,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ LABEL LBL16 $ ****CARD 1- 6, 8- 11, 14, 19, 21- 24, 52, 56- 62 ****FILE 112-114 $$$$ Go to label FINIS if no additional sets of direct input matrices need to $$$$ be processed. COND FINIS,REPEATE $ ****SBST 1, 3 ****CARD 22, 23, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ Go to label LBL13 if additional sets of direct input matrices need to be $$$$ processed. REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*DIRCEAD* $ ****SBST 1, 3 ****CARD 22, 23, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 24, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1, 9- 11, 57, 61 ****RFMT 187-192,194-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*DIRCEAD* $ ****CARD 1, 9- 11, 57, 61 ****RFMT 187-192,194-204,207-209 $$$$ LABEL ERROR3 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 ****RFMT 187-192,194-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*DIRCEAD* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 ****RFMT 187-192,194-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 24, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 24, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 16, 18- 24, 52, 56- 62 ****RFMT 187-192,194-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CDAMP1 CDAMP2 CDAMP3 CDAMP4 CELAS1 1 CELAS2 1 CELAS3 CELAS4 CMASS1 CMASS2 CMASS3 CMASS4 CORD1C 1 CORD1R 1 CORD1S CORD2C CORD2R CORD2S FREEPT GRDSET GRID 1 GRIDB 1 POINTAX PREPT RINGAX RINGFL SECTAX SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFLUID2 2 CFLUID3 2 CFLUID4 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CONROD 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD 2 CSHEAR CTETRA CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 2 CTRIA2 CQUAD4 CTRIA3 2 CTRIAAX CTRIARG CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL 2 CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 PMASS FSLIST 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 ASETOUT 18 PLOT$ 19 POUT$ 20 AUTOSPC 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 52 BDYLIST FLSYM 56 G 57 EPOINT SEQEP TF 58 CVISC 59 PDAMP PVISC 60 DMIAX DMIG B2PP$ K2PP$ M2PP$ TF$ 61 EIGC EIGP 62 CMETHOD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 BNN K4NN KNN MNN 105 BFF K4FF KFF KFS MFF 106 GO KOO LOO KAA 107 EED EQDYN GPLD SILD TFPOOL USETD 108 CASEXX 109 B2PP K2DPP M2DPP 110 B2DD BDD GMD GOD K2DD KDD M2DD 110 MDD 111 CLAMA OCEIGS PHID 112 OPHID 113 CPHIP QPC 114 OCPHIP OEFC1 OESC1 OQPC1 118 BDPOOL 119 ABFL KBFL 120 ELSETS GPSETS PLTPAR PLTSETX 121 MAA 122 BAA 123 K4AA 124 BDICT BELM KDICT KELM MDICT MELM 125 BGG 126 K4GG 127 PLOTX1 128 OGPWG 129 K2PP 130 M2PP 131 BGPDP SIP $* =PAGE= DISP8 APR.93 $$$$$$$$ BEGIN DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1993 $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****RFMT 187-193,195-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****RFMT 187-193,195-204,207-209 $$$$ FILE KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****RFMT 187-193,195-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 6, 8- 10, 14, 15, 19, 21, 24, 29 ****FILE 101,113,115,116,128 ****PHS1 I1 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 ****PHS2 D8 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 135 $$$$ PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ ****CARD 1 ****FILE 95, 97,101,103,105,106,111,114,120,122,123 $$$$ Go to label LBL5 if there is only Direct Matrix Input. COND LBL5,NOGPDT $ ****CARD 1- 6, 8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61 ****FILE 95-106,120-128 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16, 58 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120,127 ****PHS2 DB8 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,127 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1//$ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 127 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,127 ****PHS2 DE8 $$$$ GP3 generates Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $ ****CARD 1- 6, 13, 16, 58, 59 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 54- 62 ****FILE 97 $$$$ PURGE K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA, KGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 16, 58, 59 ****FILE 98, 99,104-106,121-123,125 ****PHS2 DB8 $$$$ Go to label LBL1 if there are no structural elements. COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 13- 15, 24, 58, 59, 61 ****FILE 98, 99,124-126,128 ****PHS2 DE8 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOBGG=-1/1/0 $ ****CARD 1- 3, 8 ****FILE 124 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOK4GG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ EMG generates structural element stiffness, mass and damping matrix $$$$ tables, and dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24, 61 ****FILE 124 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 5, 6, 8, 14, 24 ****FILE 98, 99 ****RFMT 187,190-192 $$$$ Go to label LBLKGGX if no stiffness matrix is to be assembled. COND LBLKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL LBLKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label LBLMGG if no mass matrix is to be assembled. COND LBLMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 $$$$ LABEL LBLMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ Go to label LBLBGG if no viscous damping matrix is to be assembled. COND LBLBGG,NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ EMA assembles viscous damping matrix [B ]. $$$$ gg $$$$ EMA GPECT,BDICT,BELM/BGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ PURGE BDICT,BELM/ALWAYS $ ****CARD 1- 3, 8, 58, 59 ****FILE 124 $$$$ LABEL LBLBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ Go to label LBLK4GG if no structural damping matrix is to be assembled. COND LBLK4GG,NOK4GG $ ****CARD 1- 3, 8 ****FILE 126 $$$$ 4 $$$$ EMA assembles structural damping matrix [K ]. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ LABEL LBLK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ PURGE KDICT,KELM/ALWAYS $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ PURGE MNN,MFF,MAA/NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 104,105,121 ****RFMT 187,190-192 ****PHS2 DB8 $$$$ PURGE BNN,BFF,BAA/NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 104,105,122 ****RFMT 187,190-192 $$$$ Go to label LBL1 if no weight and balance information is requested. COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ Go to label ERROR4 and print Error Message No. 4 if no mass matrix $$$$ exists. COND ERROR4,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 8, 13- 15, 24, 58, 59, 61 ****FILE 98, 99,124-126,128 $$$$ x $$$$ Equivalence [K ] to [K ] if there are no general elements. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ Go to label LBL11 if there are no general elements. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 ****PHS2 DE8 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET) $$$$ and forms multipoint constraint equations [R ] {u } = 0. $$$$ g g $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 28, 29 ****FILE 101 $$$$ OFP formats the table of potential grid point similarities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 29 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $ ****CARD 1, 9- 12 ****FILE 103,105,106,110,111,114 ****PHS1 I1 $$$$ Equivalence [K ] to [K ], [M ] to [M ], [B ] to [B ], and $$$$ gg nn gg nn gg nn $$$$ 4 4 $$$$ [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness, mass, and damping matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |M |M | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ gg |K |K | gg |M |M | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ +_ + +_4 4 + $$$$ |B |B | |K |K | $$$$ | nn| nm| 4 | nn| nm| $$$$ [B ] = |---+---| [K ] = |---+---| $$$$ gg |B |B | gg | 4 | 4 | $$$$ | mn| mm| |K |K | $$$$ + + | mn| mm| $$$$ + + $$$$ $$$$ and performs the matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [G ][M ] + [M ][G ] + [G ][M ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [B ] = [B ] + [G ][B ] + [B ][G ] + [G ][B ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ 4 _4 T 4 4 T T 4 $$$$ [K ] = [K ] + [G ][K ] + [K ] [G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 103,104 $$$$ Equivalence [K ] to [K ], [M ] to [M ], [B ] to [B ], and $$$$ nn ff nn ff nn ff $$$$ 4 4 $$$$ [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn |K |K | nn |M |M | $$$$ | sf| ss| | sf| ss| $$$$ + + + + $$$$ $$$$ + + $$$$ + + | 4 4 | $$$$ |B |B | |K |K | $$$$ | ff| fs| 4 | ff| fs| $$$$ [B ] = |---+---| [K ] = |---+---| $$$$ nn |B |B | nn | 4 | 4 | $$$$ | sf| ss| |K |K | $$$$ + + | sf| ss| $$$$ + + $$$$ SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ Equivalence [K ] to [K ], [M ] to [M ], [B ] to [B ], and $$$$ ff aa ff aa ff aa $$$$ 4 4 $$$$ [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 121 $$$$ EQUIV BFF,BAA/OMIT $ ****CARD 1- 4, 8- 11, 58, 59 ****FILE 122 $$$$ EQUIV K4FF,K4AA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24, 58, 59 ****FILE 106,121-123 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Go to label LBLM if no mass matrix exists. COND LBLM,NOMGG $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ SMP2 partitions constrained mass matrix $$$$ $$$$ +_ + $$$$ |M |M | $$$$ | aa| ao| $$$$ [M ] = |---+---| $$$$ ff |M |M | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T $$$$ [M ] = [M ] + [M ][G ] + [M G ] + [G ][M ][G ] $$$$ aa aa oa o ao o o oo o $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ LABEL LBLM $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ Go to label LBLB if no viscous damping matrix exists. COND LBLB,NOBGG $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ SMP2 partitions constrained viscous damping matrix $$$$ $$$$ +_ + $$$$ |B |B | $$$$ | aa| ao| $$$$ [B ] = |---+---| $$$$ ff |B |B | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T $$$$ [B ] = [B ] + [B ][G ] + [B G ] + [G ][B ][G ] $$$$ aa aa oa o ao o o oo o $$$$ SMP2 USET,GO,BFF/BAA $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ LABEL LBLB $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ Go to label LBL5 if no structural damping matrix exists. COND LBL5,NOK4GG $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ SMP2 partitions constrained structural damping matrix $$$$ $$$$ + + $$$$ |_4 4 | $$$$ |K |K | $$$$ 4 | aa| ao| $$$$ [K ] = |---+---| $$$$ ff | 4 | 4 | $$$$ |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ 4 4 4 4 T T 4 $$$$ [K ] = [K ] + [K ][G ] + [K G ] + [G ][K ][G ] $$$$ aa aa oa o ao o o oo o $$$$ SMP2 USET,GO,K4FF/K4AA $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61 ****FILE 95-106,120-128 ****PHS3 I1 $$$$ DPD generates flags defining members of various displacement sets used in $$$$ dynamic analysis (USETD), tables relating the internal and external grid $$$$ point numbers (GPLD), including extra points introduced for dynamic $$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL), Dynamics $$$$ Load Table (DLT), Power Spectral Density List (PSDL), and Frequency $$$$ Response List (FRL). $$$$ DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,, EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/S,N, NOFRL/NONLFT/NOTRL/NOEED//S,N,NOUE $ ****CARD 1, 9- 11, 55, 57, 61 ****FILE 107 ****PHS1 DB1 $$$$ d d $$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points $$$$ o o m m $$$$ introduced for dynamic analysis. EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 19, 21- 23 ****PHS3 DB7 $$$$ PARAM //*MPY*/REPEATF/-1/1 $ ****CARD 1- 6, 8- 14, 16, 19- 23, 27, 52, 54- 62 ****FILE 108 ****RFMT 187-193,195-204,207-209 $$$$ BMG generates DMIG card images describing the interconnection of the $$$$ fluid and the structure. BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ ****CARD 1, 52 ****FILE 118 $$$$ PARAM //*AND*/NOFL/NOABFL/NOKBFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109,119 $$$$ PURGE KBFL/NOKBFL/ ABFL/NOABFL $ ****CARD 1, 52 ****FILE 119 $$$$ Go to label LBL13 if no fluid structure interface is defined. COND LBL13,NOFL $ ****CARD 1, 52 ****FILE 119 $$$$ MTRXIN generates fluid boundary matrices [A ] and [K ]. The matrix $$$$ b,fl b,fl $$$$ [K ] is generated only for a nonzero gravity in the fluid. $$$$ b,fl $$$$ MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ ****CARD 1, 52 ****FILE 119 $$$$ Beginning of loop for additional sets of direct input matrices. LABEL LBL13 $ ****CARD 1- 6, 8- 16, 18- 23, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ PURGE OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2, OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR, K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $ ****CARD 19- 23, 27 ****FILE 109,110,115-117,129-133 $$$$ CASE extracts the appropriate record from CASECC corresponding to the $$$$ current loop and copies it into CASEXX. CASE CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ ****CARD 1- 6, 8- 14, 16, 19- 23, 25, 27, 52, 54- 62 ****FILE 108 ****RFMT 187-193,195-204,207-209 $$$$ 2d 2d 2 $$$$ MTRXIN selects the direct input matrices [K ], [M ], and [B ] for the $$$$ pp pp pp $$$$ current loop. MTRXIN CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 109 $$$$ 2 2d $$$$ Equivalence [K ] to [K ] if no fluid-structure interface is defined $$$$ pp pp $$$$ 2 2d $$$$ and equivalence [M ] to [M ] if there is no [A ]. $$$$ pp pp b,fl $$$$ EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ Go to label LBLFL2 if no fluid-structure interface is defined. COND LBLFL2,NOFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ 2d $$$$ ADD5 adds [K ] and [K ] and subtracts [A ] from them to form $$$$ b,fl pp b,fl $$$$ 2 $$$$ [K ]. $$$$ pp $$$$ ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129 $$$$ Go to label LBLFL2 if there is no [A ]. $$$$ b,fl $$$$ COND LBLFL2,NOABFL $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ T $$$$ Transpose [A ] to obtain [A ] . $$$$ b,fl b,fl $$$$ TRNSP ABFL/ABFLT $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ 2 T 2d $$$$ ADD assembles input matrix [M ] = MFACT [A ] + [M ]. $$$$ pp b,fl pp $$$$ ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ LABEL LBLFL2 $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 129,130 $$$$ PARAM //*AND*/BDEBA/NOUE/NOB2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 $$$$ PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 ****PHS2 DB8 $$$$ PARAM //*AND*/MDEMA/NOUE/NOM2PP $ ****CARD 1, 22, 23, 52, 57, 60 ****FILE 130 ****PHS2 DE8 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ 2 2 2 2 2 2 $$$$ Equivalence [M ] to [M ], [B ] to [B ], and [K ] to [K ] if no $$$$ pp dd pp dd pp dd $$$$ constraints are applied, [M ] to [M ] if there are no direct input $$$$ aa dd $$$$ mass matrices and no extra points, and [B ] to [B ] if there are no $$$$ aa dd $$$$ direct input damping matrices and no extra points. EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ MAA,MDD/MDEMA/BAA,BDD/BDEBA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 $$$$ Go to label LBL18 if only extra points are defined. COND LBL18,NOGPDT $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ GKAD assembles stiffness, mass, and damping matrices for use in Direct $$$$ Frequency Response. $$$$ $$$$ 1 2 4 $$$$ [K ] = (1 + ig)[K ] + [K ] + i[K ] $$$$ dd dd dd dd $$$$ $$$$ 1 2 $$$$ [M ] = [M ] + [M ] $$$$ dd dd dd $$$$ $$$$ 1 2 $$$$ [B ] = [B ] + [B ] $$$$ dd dd dd $$$$ $$$$ Direct input matrices may be complex. GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/ 0.0/0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ LABEL LBL18 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****RFMT 195 $$$$ 2 $$$$ Equivalence [K ] to [K ] if all stiffness is Direct Matrix Input, $$$$ dd dd $$$$ 2 $$$$ [M ] to [M ] if all mass is Direct Matrix Input, and $$$$ dd dd $$$$ 2 $$$$ [B ] to [B ] if all damping is Direct Matrix Input. $$$$ dd dd $$$$ EQUIV B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 60 ****FILE 110 ****PHS2 D8 $$$$ Go to label ERROR1 and print Error Message No. 1 if there is no Frequency $$$$ Response List. COND ERROR1,NOFRL $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 ****RFMT 187-193,195-204,207-209 $$$$ Go to label ERROR2 and print Error Message No. 2 if there is no Dynamics $$$$ Load Table. COND ERROR2,NODLT $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 ****RFMT 187-193,195-204,207-209 ****PHS1 DE1 $$$$ FRRD forms the dynamic load vectors {P } and solves for the displacements $$$$ d $$$$ using the following equation: $$$$ $$$$ 2 $$$$ [-M omega + iB omega + K ] {u } = {P } $$$$ dd dd dd d d $$$$ FRRD CASEXX,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,,DIT/UDVF,PSF,PDF,PPF/ *DISP*/*DIRECT*/LUSETD/MPCF1/SINGLE/OMIT/ NONCUP/FRQSET $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 ****PHS1 DB1 $$$$ Equivalence {P } to {P } if no constraints are applied. $$$$ p d $$$$ EQUIV PPF,PDF/NOSET $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 $$$$ VDR prepares solution set displacements, sorted by frequency, for output. VDR CASEXX,EQDYN,USETD,UDVF,PPF,XYCDB,/OUDVC1,/*FREQRESP*/ *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $ ****CARD 19- 21, 27 ****FILE 112 $$$$ Go to label LBL15 if there is no output request for the solution set. COND LBL15,NOD $ ****CARD 21, 27 ****FILE 113,131 $$$$ Go to label LBL15A if there is no output request for solution set $$$$ displacements sorted by point number. COND LBL15A,NOSORT2 $ ****CARD 21, 27 ****FILE 113 $$$$ SDR3 sorts the solution set displacements by point number. SDR3 OUDVC1,,,,,/OUDVC2,,,,, $ ****CARD 21, 27 ****FILE 113 $$$$ OFP formats the requested solution set displacements, sorted by point $$$$ number, prepared by SDR3 and places them on the system output file for $$$$ printing. OFP OUDVC2,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 113 $$$$ XYTRAN prepares the input for requested X-Y plots of the solution set $$$$ displacements vs. frequency. XYTRAN XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 27 ****FILE 131 $$$$ XYPLOT prepares the requested X-Y plots of the solution set vs. $$$$ frequency. XYPLOT XYPLTFA// $ ****SBST 7 ****CARD 27 ****FILE 131 $$$$ Go to label LBL15. JUMP LBL15 $ ****CARD 21, 27 ****FILE 131 $$$$ LABEL LBL15A $ ****CARD 21, 27 ****FILE 113 $$$$ OFP formats the requested solution set displacements, sorted by $$$$ frequency, prepared by VDR and places them on the system output file for $$$$ printing. OFP OUDVC1,,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 113 $$$$ LABEL LBL15 $ ****CARD 21, 27 ****FILE 113,131 $$$$ Go to label LBL20 if there is no output request involving dependent $$$$ degrees of freedom or forces and stresses. COND LBL20,NOP $ ****CARD 1- 6, 8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62 ****FILE 114-117,132,133 ****RFMT 187-193,195-204,207-209 $$$$ Equivalence {u } to {u } if no constraints are applied. $$$$ d p $$$$ EQUIV UDVF,UPVC/NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 ****PHS2 DB8 $$$$ Go to label LBL19 if no constraints are applied. COND LBL19,NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 ****PHS3 DE7 $$$$ SDR1 recovers dependent components of eigenvectors $$$$ $$$$ u $$$$ d d $$$$ {u } = [G ]{u } {----} = {u + u } $$$$ o o d u f e $$$$ o $$$$ $$$$ u + u $$$$ f e d $$$$ {-------} = {u + u } {u } = [G ]{u + u } $$$$ u n e m m f e $$$$ s $$$$ $$$$ u + u $$$$ n e $$$$ {---------} = {u } $$$$ u p $$$$ m $$$$ T $$$$ and recovers single-point forces of constraint {q } = -{P } + [K ]{u }. $$$$ s s fs f $$$$ SDR1 USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 $$$$ LABEL LBL19 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-193,195-204,207-209 ****PHS3 I7 $$$$ SDR2 calculates element forces (OEFC1) and stresses (OESC1) and $$$$ prepares load vectors (OPPC1), displacement vectors (OUPVC1), and single- $$$$ point forces of constraint (OQPC1) for output and translation components $$$$ of the displacement vector (PUGVC1), sorted by frequency. SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,XYCDB, PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/ S,N,NOSORT2 $ ****CARD 19, 20 ****FILE 115 $$$$ Go to label LBL17 if there are no output requests sorted by point number $$$$ or element number. COND LBL17,NOSORT2 $ ****CARD 19, 20, 26, 54, 55 ****FILE 115-117,132,133 $$$$ SDR3 prepares requested output sorted by point number or element number. SDR3 OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2, OEFC2, $ ****CARD 19, 20 ****FILE 116 $$$$ OFP formats the tables prepared by SDR3 sorted by point number or element $$$$ number, and places them on the system output file for printing. OFP OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ XYTRAN prepares the input for requested X-Y plots. XYTRAN XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ S,N,PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 132 $$$$ XYPLOT prepares the requested X-Y plots of displacements, forces, $$$$ stresses, loads, and single-point forces of constraint vs. frequency. XYPLOT XYPLTF// $ ****SBST 7 ****CARD 20 ****FILE 132 $$$$ Go to label LBL16 if there is no Power Spectral Density List. COND LBL16,NOPSDL $ ****SBST 7 ****CARD 20, 54, 55 ****FILE 117 ****RFMT 187-193,195-204,207-209 $$$$ RANDOM calculates power spectral density functions (PSDF) and $$$$ autocorrelation functions (AUTO) using the previously calculated $$$$ frequency response. RANDOM XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/ S,N,NORD $ ****SBST 7 ****CARD 26, 54, 55 ****FILE 117 ****RFMT 187-193,195-204,207-209 $$$$ Go to label LBL16 if no RANDOM calculations are requested. COND LBL16,NORD $ ****SBST 7 ****CARD 20, 26, 54, 55 ****FILE 133 $$$$ XYTRAN prepares the input for requested X-Y plots of the RANDOM output. XYTRAN XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 133 $$$$ XYPLOT prepares the requested X-Y plots of autocorrelation functions and $$$$ power spectral density functions. XYPLOT XYPLTR// $ ****SBST 7 ****CARD 20 ****FILE 133 $$$$ Go to label LBL16. JUMP LBL16 $ ****CARD 20 ****FILE 133 $$$$ LABEL LBL17 $ ****CARD 19, 20, 26, 54, 55 ****FILE 115-117,132,133 $$$$ PURGE PSDF/NOSORT2 $ ****CARD 19, 20, 26, 54, 55 ****FILE 132 $$$$ OFP formats the frequency response output requests prepared by SDR2, $$$$ sorted by frequency, and places them on the system output file for $$$$ printing. OFP OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $ ****CARD 19 ****FILE 115 $$$$ LABEL LBL16 $ ****CARD 20, 54, 55 ****FILE 114-117,132,133 $$$$ PURGE PSDF/NOPSDL $ ****CARD 20, 54, 55 ****FILE 132 $$$$ Go to label LBL20 if no deformed structure plots are requested. COND LBL20,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PLOT prepares all requested deformed structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1, GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 134 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 134 ****PHS2 DE8 $$$$ LABEL LBL20 $ ****SBST 7 ****CARD 1- 6, 8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62 ****FILE 134 $$$$ Go to label FINIS if no additional sets of direct input matrices need to $$$$ be processed. COND FINIS,REPEATF $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-193,195-204,207-209 ****PHS3 DB7 $$$$ Go to label LBL13 if additional sets of direct input matrices need to be $$$$ processed. REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-193,195-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*DIRFRRD* $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 ****PHS1 DE1 ****PHS3 DE7 ****RFMT 187-193,195-204,207-209 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ LABEL ERROR2 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*DIRFRRD* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*DIRFRRD* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 101 ****RFMT 187-193,195-204,207-209 $$$$ LABEL ERROR4 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 ****RFMT 187-193,195-204,207-209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*DIRFRRD* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 128 ****RFMT 187-193,195-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 16, 18- 29, 52, 56- 62 ****RFMT 187-193,195-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CDAMP1 CDAMP2 CDAMP3 CDAMP4 CELAS1 1 CELAS2 1 CELAS3 CELAS4 CMASS1 CMASS2 CMASS3 CMASS4 CORD1C 1 CORD1R 1 CORD1S CORD2C CORD2R CORD2S FREEPT GRDSET GRID 1 GRIDB 1 POINTAX PRESPT RINGAX RINGFL SECTAX SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFLUID2 2 CFLUID3 2 CFLUID4 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CONROD 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD 2 CSHEAR CTETRA CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 2 CTRIA2 CQUAD4 CTRIA3 2 CTRIAAX CTRIARG CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL 2 CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 FSLIST PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 26 RANDOM$ 27 AXYOUT$ 28 ASETOUT 29 AUTOSPC 52 BDYLIST FLSYM 55 RANDPS RANDT1 RANDT2 54 TABRND1 TABRND2 TABRND3 TABRND4 56 G 57 EPOINT SEQEP TF 58 CVISC 59 PDAMP PVISC 60 B2PP$ DMIAX DMIG K2PP$ M2PP$ TF$ 61 DAREA DELAY DLOAD DPHASE FREQ FREQ1 FREQ2 61 RLOAD1 RLOAD2 TABLED1 TABLED2 TABLED3 TABLED4 62 DECOMOPT DLOAD$ FREQ$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 BNN K4NN KNN MNN 105 BFF K4FF KFF KFS MFF 106 GO KOO LOO KAA 107 DLT EQDYN FRL GPLD PSDL SILD TFPOOL 107 USETD 108 CASEXX 109 B2PP K2DPP M2DPP 110 B2DD BDD GMD GOD K2DD KDD M2DD 110 MDD 111 PDF PPF PSF UDVF 112 OUDVC1 113 OUDVC2 114 QPC UPVC 115 OEFC1 PUPVC1 OESC1 OPPC1 OQPC1 OUPVC1 116 OEFC2 OESC2 OPPC2 OQPC2 OUPVC2 117 AUTO PSDF 118 BDPOOL 119 ABFL KBFL 120 ELSETS GPSETS PLTPAR PLTSETX 121 MAA 122 BAA 123 K4AA 124 BDICT BELM KDICT KELM MDICT MELM 125 BGG 126 K4GG 127 PLOTX1 128 OGPWG 129 K2PP 130 M2PP 131 XYPLTFA 132 XYPLTF 133 XYPLTR 134 PLOTX2 135 BGPDP SIP $* =PAGE= DISP9 APR.93 $$$$$$$$ BEGIN DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1993 $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ PRECHK ALL $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ FILE UDVT=APPEND/TOL=APPEND $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 5, 6, 8- 10, 14, 15, 19, 21, 24, 28 ****FILE 101,113,116,129 ****PHS1 I1 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ S,N,NOGPDT/ALWAYS=-1 $ ****CARD 1 ****FILE 94 ****PHS2 D8 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $ ****CARD 1 ****FILE 134 $$$$ PURGE USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, GPSETS,ELSETS/NOGPDT $ ****CARD 1 ****FILE 95, 97,101,103,105,106,111,114,120,122,123 $$$$ Go to label LBL5 if there is only Direct Matrix Input. COND LBL5,NOGPDT $ ****CARD 1- 6, 8- 12, 14- 16, 18, 24, 26, 28, 58, 59, 61 ****FILE 95-106,120-126,128,129 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 5, 16, 58 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120,128 ****PHS2 DB8 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120 $$$$ Go to label P1 if there are no structure plot requests. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,128 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 128 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 128 $$$$ Go to label P1 if no undeformed structure plots are requested. COND P1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 128 $$$$ PLOT generates all requested undeformed structure plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/ NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 128 $$$$ PRTMSG prints plotter data and engineering data for each undeformed plot $$$$ generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 128 $$$$ LABEL P1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18, 58 ****FILE 120,128 ****PHS2 DE8 $$$$ GP3 generates Grid Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $ ****CARD 1, 2, 13, 61 ****FILE 96 $$$$ TA1 generates element tables for use in matrix assembly and stress $$$$ recovery. TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX, PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/ S,N,COMPS ****CARD 1- 6, 13, 16, 58, 59 ****FILE 97 $$$$ EQUIV MPTX,MPT/COMPS/EPTX,EPT/COMPS $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****FILE 97 $$$$ PURGE K4GG,MGG,BGG, K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,KGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 58, 59 ****FILE 98, 99,104,105,121,122,125,126 ****PHS2 DB8 $$$$ Go to label LBL1 if there are no structural elements. COND LBL1,NOSIMP $ ****CARD 1- 3, 5, 6, 8, 13- 15, 24, 58, 59, 61 ****FILE 98, 99,124-126,129 ****PHS2 DE8 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PARAM //*ADD*/NOMGG/1/0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOBGG=-1/1/0 $ ****CARD 1- 3, 8 ****FILE 125 ****RFMT 187,190-192 $$$$ PARAM //*ADD*/NOK4GG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ EMG generates structural element stiffness, mass and damping matrix $$$$ tables, and dictionaries for later assembly by the EMA module. EMG EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/ C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/ C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/ C,Y,VOLUME/C,Y,SURFACE $ ****CARD 1- 3, 5, 6, 8, 13, 24, 61 ****FILE 124 ****RFMT 187,190-192 $$$$ PURGE KGGX/NOKGGX/MGG/NOMGG $ ****CARD 1- 3, 5, 6, 8, 14, 24 ****FILE 98, 99 ****RFMT 187,190-192 $$$$ Go to label LBLKGGX if no stiffness matrix is to be assembled. COND LBLKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles stiffness matrix [K ] and Grid Point Singularity Table. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/KGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL LBLKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label LBLMGG if no mass matrix is to be assembled. COND LBLMGG,NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ EMA assembles mass matrix [M ]. $$$$ gg $$$$ EMA GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ PURGE MDICT,MELM/ALWAYS $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 124 $$$$ LABEL LBLMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 99 ****RFMT 187,190-192 $$$$ Go to label LBLBGG if no viscous damping matrix is to be assembled. COND LBLBGG,NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ EMA assembles viscous damping matrix [B ]. $$$$ gg $$$$ EMA GPECT,BDICT,BELM/BGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ PURGE BDICT,BELM/ALWAYS $ ****CARD 1- 3, 8, 58, 59 ****FILE 124 $$$$ LABEL LBLBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 125 ****RFMT 187,190-192 $$$$ Go to label LBLK4GG if no structural damping matrix is to be assembled. COND LBLK4GG,NOK4GG $ ****CARD 1- 3, 8 ****FILE 126 $$$$ 4 $$$$ EMA assembles structural damping matrix [K ]. $$$$ gg $$$$ EMA GPECT,KDICT,KELM/K4GG/NOK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ LABEL LBLK4GG $ ****CARD 1- 3, 6, 8 ****FILE 126 $$$$ PURGE KDICT,KELM/ALWAYS $ ****CARD 1- 3, 6, 8 ****FILE 124 $$$$ PURGE MNN,MFF,MAA/NOMGG $ ****CARD 1- 3, 5, 8, 14, 24 ****FILE 104,105,121 ****RFMT 187,190-192 ****PHS2 DB8 $$$$ PURGE BNN,BFF,BAA/NOBGG $ ****CARD 1- 3, 8, 58, 59 ****FILE 104,105,122 ****RFMT 187,190-192 $$$$ Go to label LBL1 if no weight and balance information is requested. COND LBL1,GRDPNT $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 129 $$$$ Go to label ERROR3 and print Error Message No. 3 if no mass matrix $$$$ exists. COND ERROR3,NOMGG $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 129 $$$$ GPWG generates weight and balance information. GPWG BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 129 $$$$ OFP formats the weight and balance information prepared by GPWG and $$$$ places it on the system output file for printing. OFP OGPWG,,,,,//S,N,CARDNO $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 129 $$$$ LABEL LBL1 $ ****CARD 1- 3, 5, 14, 15, 24, 58, 59, 61 ****FILE 98, 99,124-126,129 $$$$ x $$$$ Equivalence [K ] to [K ] if there are no general elements. $$$$ gg gg $$$$ EQUIV KGGX,KGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ Go to label LBL11 if there are no general elements. COND LBL11,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ x $$$$ SMA3 adds general elements to [K ] to obtain stiffness matrix [K ]. $$$$ gg gg $$$$ SMA3 GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL LBL11 $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN KGG,SIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 ****PHS2 DE8 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET) $$$$ and forms multipoint constraint equations [R ] {u } = 0. $$$$ g g $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 26, 28 ****FILE 101 $$$$ OFP formats the table of potential grid point similarities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 10, 28 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $ ****CARD 1, 9- 12 ****FILE 103,105,106,110,111,114 ****PHS1 I1 $$$$ Equivalence [K ] to [K ], [M ] to [M ], [B ] to [B ], and $$$$ gg nn gg nn gg nn $$$$ 4 4 $$$$ [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 104 $$$$ Go to label LBL2 if no multipoint constraints exist. COND LBL2,MPCF1 $ ****CARD 1- 6, 8, 9, 14, 24 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 USET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions stiffness, mass, and damping matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |M |M | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ gg |K |K | gg |M |M | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ +_ + +_4 4 + $$$$ |B |B | |K |K | $$$$ | nn| nm| 4 | nn| nm| $$$$ [B ] = |---+---| [K ] = |---+---| $$$$ gg |B |B | gg | 4 | 4 | $$$$ | mn| mm| |K |K | $$$$ + + | mn| mm| $$$$ + + $$$$ $$$$ and performs the matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [M ] = [M ] + [G ][M ] + [M ][G ] + [G ][M ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [B ] = [B ] + [G ][B ] + [B ][G ] + [G ][B ][G ] $$$$ nn nm m mn mn m m mm m $$$$ $$$$ 4 _4 T 4 4 T T 4 $$$$ [K ] = [K ] + [G ][K ] + [K ] [G ] + [G ][K ][G ] $$$$ nn nm m mn mn m m mm m $$$$ MCE2 USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 104 $$$$ LABEL LBL2 $ ****CARD 1- 6, 8, 9, 14, 24, 58, 59 ****FILE 103,104 $$$$ Equivalence [K ] to [K ], [M ] to [M ], [B ] to [B ], and $$$$ nn ff nn ff nn ff $$$$ 4 4 $$$$ [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ Go to label LBL3 if no single-point constraints exist. COND LBL3,SINGLE $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + + + $$$$ |K |K | |M |M | $$$$ | ff| fs| | ff| fs| $$$$ [K ] = |---+---| [M ] = |---+---| $$$$ nn |K |K | nn |M |M | $$$$ | sf| ss| | sf| ss| $$$$ + + + + $$$$ $$$$ + + $$$$ + + | 4 4 | $$$$ |B |B | |K |K | $$$$ | ff| fs| 4 | ff| fs| $$$$ [B ] = |---+---| [K ] = |---+---| $$$$ nn |B |B | nn | 4 | 4 | $$$$ | sf| ss| |K |K | $$$$ + + | sf| ss| $$$$ + + $$$$ SCE1 USET,KNN,MNN,BNN,K4NN/KFF,KFS, ,MFF,BFF,K4FF $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ LABEL LBL3 $ ****CARD 1- 6, 8- 10, 14, 24, 58, 59 ****FILE 105 $$$$ Equivalence [K ] to [K ], [M ] to [M ], [B ] to [B ], and $$$$ ff aa ff aa ff aa $$$$ 4 4 $$$$ [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV KFF,KAA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ EQUIV MFF,MAA/OMIT $ ****CARD 1- 5, 8- 11, 14, 24 ****FILE 121 $$$$ EQUIV BFF,BAA/OMIT $ ****CARD 1- 4, 8- 11, 58, 59 ****FILE 122 $$$$ EQUIV K4FF,K4AA/OMIT $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ Go to label LBL5 if no omitted coordinates exist. COND LBL5,OMIT $ ****CARD 1- 6, 8- 11, 14, 24, 58, 59 ****FILE 106,121-123 $$$$ SMP1 partitions constrained stiffness matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ 1 $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $ ****CARD 1- 4, 6, 8- 11 ****FILE 106 $$$$ Go to label LBLM if no mass matrix exists. COND LBLM,NOMGG $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ SMP2 partitions constrained mass matrix $$$$ $$$$ + + $$$$ |M |M | $$$$ | aa| ao| $$$$ [M ] = |---+---| $$$$ ff |M |M | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ 1 T T $$$$ [M ] = [M ] + [M ][G ] + [M G ] + [G ][M ][G ] $$$$ aa aa oa o ao o o oo o $$$$ SMP2 USET,GO,MFF/MAA $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ LABEL LBLM $ ****CARD 1- 6, 8- 11, 14, 24 ****FILE 121 $$$$ Go to label LBLB if no viscous damping matrix exists. COND LBLB,NOBGG $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ SMP2 partitions constrained viscous damping matrix $$$$ $$$$ + + $$$$ |B |B | $$$$ | aa| ao| $$$$ [B ] = |---+---| $$$$ ff |B |B | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ 1 T T $$$$ [B ] = [B ] + [B ][G ] + [B G ] + [G ][B ][G ] $$$$ aa aa oa o ao o o oo o $$$$ SMP2 USET,GO,BFF/BAA $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ LABEL LBLB $ ****CARD 1- 4, 6, 8- 11, 58, 59 ****FILE 122 $$$$ Go to label LBL5 if no structural damping matrix exists. COND LBL5,NOK4GG $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ SMP2 partitions constrained structural damping matrix $$$$ $$$$ + + $$$$ | 4 4 | $$$$ |K |K | $$$$ 4 | aa| ao| $$$$ [K ] = |---+---| $$$$ ff | 4 | 4 | $$$$ |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ 4 4 4 4 T T 4 $$$$ [K ] = [K ] + [K ][G ] + [K G ] + [G ][K ][G ] $$$$ aa aa oa o ao o o oo o $$$$ SMP2 USET,GO,K4FF/K4AA $ ****CARD 1- 4, 6, 8- 11 ****FILE 123 $$$$ LABEL LBL5 $ ****CARD 1- 6, 8- 12, 14- 16, 18, 24, 26, 28, 58, 59, 61 ****FILE 95-106,120-126,128,129 ****PHS3 I1 $$$$ DPD generates flags defining members of various displacement sets used in $$$$ dynamic analysis (USETD), tables relating the internal and external grid $$$$ point numbers (GPLD), including extra points introduced for dynamic $$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL), Dynamics $$$$ Load Table (DLT), Nonlinear Function Table (NLFT), and Transient Response $$$$ List (TRL). DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,, EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/ NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $ ****CARD 1, 9- 11, 57, 61 ****FILE 107 ****PHS1 DB1 $$$$ Go to label ERROR1 if no potential grid point singularities exist. COND ERROR1,NOTRL $ ****CARD 1, 9- 11, 57, 61 ****FILE 107 $$$$ PURGE PNLD/NONLFT$ ****CARD 1, 57, 61 ****FILE 107 $$$$ d d $$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points $$$$ o o m m $$$$ introduced for dynamic analysis. EQUIV GO,GOD/NOUE/GM,GMD/NOUE $ ****CARD 1- 6, 8- 11, 14, 24, 52, 56- 60 ****FILE 110 $$$$ BMG generates DMIG card images describing the interconnection of the $$$$ fluid and the structure. BMG MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/ S,N,MFACT $ ****CARD 1, 52 ****FILE 118 ****PHS3 DB7 $$$$ PARAM //*AND*/NOFL/NOABFL/NOKBFL $ ****CARD 1, 52, 57, 60 ****FILE 109,119 $$$$ PURGE KBFL/NOKBFL/ ABFL/NOABFL $ ****CARD 1, 52 ****FILE 119 $$$$ Go to label LBL13 if no fluid structure interface is defined. COND LBLFL3,NOFL $ ****CARD 1, 52 ****FILE 119 $$$$ MTRXIN generates fluid boundary matrices [A ] and [K ]. The matrix $$$$ b,fl b,fl $$$$ [K ] is generated only for a nonzero gravity in the fluid. $$$$ b,fl $$$$ MTRXIN, ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/ 0 $ ****CARD 1, 52 ****FILE 119 $$$$ LABEL LBLFL3 $ ****CARD 1, 52 ****FILE 119 $$$$ 2d 2d 2 $$$$ MTRXIN selects the direct input matrices [K ], [M ], and [B ]. $$$$ pp pp pp $$$$ MTRXIN CASECC,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N, NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $ ****CARD 1, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOM2PP/NOABFL/NOM2DPP $ ****CARD 1, 52, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/NOK2PP/NOFL /NOK2DPP $ ****CARD 1, 52, 57, 60 ****FILE 109 $$$$ 2 2d $$$$ Equivalence [K ] to [K ] if no fluid structure interface is defined $$$$ pp pp $$$$ 2 2d $$$$ and equivalence [M ] to [M ] if there is no [A ]. $$$$ pp pp b,fl $$$$ EQUIV K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $ ****CARD 1, 52, 57, 60 ****FILE 130,131 $$$$ Go to label LBLFL2 if no fluid structure interface is defined. COND LBLFL2,NOFL $ ****CARD 1, 52, 57, 60 ****FILE 130,131 $$$$ 2d $$$$ ADD5 adds [K ] and [K ] and subtracts [A ] from them to form $$$$ b,fl pp b,fl $$$$ 2 $$$$ [K ]. $$$$ pp $$$$ ADD5 ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $ ****CARD 1, 52, 57, 60 ****FILE 130 $$$$ Go to label LBLFL2 if there is no [A ]. $$$$ b,fl $$$$ COND LBLFL2,NOABFL $ ****CARD 1, 52, 57, 60 ****FILE 131 $$$$ T $$$$ Transpose [A ] to obtain [A ] . $$$$ b,fl b,fl $$$$ TRNSP ABFL/ABFLT $ ****CARD 1, 52, 57, 60 ****FILE 131 $$$$ 2 T 2d $$$$ ADD assembles input matrix [M ] = MFACT [A ] + [M ]. $$$$ pp b,fl pp $$$$ ADD ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ ****CARD 1, 52, 57, 60 ****FILE 131 $$$$ LABEL LBLFL2 $ ****CARD 1, 52, 57, 60 ****FILE 130,131 $$$$ PARAM //*AND*/KDEKA/NOUE/NOK2PP $ ****CARD 1, 52, 57, 60 ****FILE 110 $$$$ PARAM //*AND*/MDEMA/NOUE/NOM2PP $ ****CARD 1, 52, 57, 60 ****FILE 110 ****PHS2 DB8 $$$$ PARAM //*AND*/KDEK2/NOGENL/NOSIMP $ ****CARD 1, 52, 57, 60 ****FILE 110 ****PHS2 DE8 $$$$ PURGE K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $ ****CARD 1- 6, 8- 11, 14, 24, 52, 57- 60 ****FILE 110 $$$$ 2 2 2 2 2 2 $$$$ Equivalence [M ] to [M ], [B ] to [B ], and [K ] to [K ] if no $$$$ pp dd pp dd pp dd $$$$ constraints are applied, [M ] to [M ] if there are no direct input $$$$ aa dd $$$$ mass matrices and no extra points, and [K ] to [K ] if there are no $$$$ aa dd $$$$ direct input stiffness matrices and no extra points. EQUIV M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/ KAA,KDD/KDEKA $ ****CARD 1- 6, 8- 11, 14, 24, 52, 57- 60 ****FILE 110 $$$$ Go to label LBL16 if only extra points are defined. COND LBL16,NOGPDT $ ****CARD 1- 6, 8- 11, 14, 24, 52, 57- 60 ****FILE 110 ****RFMT 193,194 $$$$ GKAD assembles stiffness, mass, and damping matrices for use in Direct $$$$ Frequency Response. $$$$ $$$$ 1 2 $$$$ [K ] = [K ] + [K ] $$$$ dd dd dd $$$$ $$$$ 1 2 $$$$ [M ] = [M ] + [M ] $$$$ dd dd dd $$$$ $$$$ 1 2 g 1 1 4 $$$$ [B ] = [B ] + [B ] + ------ [K ] + ------ [K ] $$$$ dd dd dd omega dd omega dd $$$$ 3 4 $$$$ $$$$ where $$$$ $$$$ + + $$$$ |K | | $$$$ | aa| 0| 1 $$$$ |---+--| ==> [K ] $$$$ |0 | 0| dd $$$$ + + $$$$ $$$$ + + $$$$ |M | | $$$$ | aa| 0| 1 $$$$ |---+--| ==> [M ] $$$$ |0 | 0| dd $$$$ + + $$$$ $$$$ + + $$$$ |B | | $$$$ | aa| 0| 1 $$$$ |---+--| ==> [B ] $$$$ |0 | 0| dd $$$$ + + $$$$ $$$$ + 4 + $$$$ |K | | $$$$ | aa| 0| 4 $$$$ |---+--| ==> [K ] $$$$ |0 | 0| dd $$$$ + + $$$$ $$$$ All matrices are real. GKAD USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD, GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/ C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/ MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/ KDEK2/-1 $ ****CARD 1- 6, 8- 11, 14, 24, 52, 56- 60 ****FILE 110 ****RFMT 193,194 $$$$ LABEL LBL16 $ ****CARD 1- 6, 8- 11, 14, 24, 52, 56- 60 ****FILE 110 ****RFMT 193,194 $$$$ 2 $$$$ Equivalence [K ] to [K ] if all stiffness is Direct Matrix Input, $$$$ dd dd $$$$ 2 $$$$ [M ] to [M ] if all mass is Direct Matrix Input, and $$$$ dd dd $$$$ 2 $$$$ [B ] to [B ] if all damping is Direct Matrix Input. $$$$ dd dd $$$$ EQUIV M2DD,MDD/NOSIMP/B2DD,BDD/NOGPDT/K2DD,KDD/KDEK2 $ ****CARD 1- 6, 8- 11, 14, 24, 52, 56- 60 ****FILE 110 ****PHS2 D8 $$$$ PARAM //*ADD*/NEVER/1/0 $ ****CARD 14, 22- 24 $$$$ PARAM //*MPY*/REPEATT/1/-1 $ ****CARD 1- 6, 8- 14, 16, 19- 24, 27, 52, 56- 62 ****FILE 108 ****RFMT 187-194,196-204,207-209 $$$$ Beginning of loop for additional dynamic load sets. LABEL LBL13 $ ****SBST 1, 3 ****CARD 1- 6, 8- 16, 18- 25, 52, 56- 62 ****FILE 108 ****RFMT 187-194,196-204,207-209 $$$$ PURGE PNLD,OUDV1,OPNL1,OUDV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1, OEF1,OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT/NEVER $ ****CARD 14, 19- 24, 27 ****FILE 112,113,115,116,127,132,133,135 $$$$ CASE extracts the appropriate record from CASECC corresponding to the $$$$ current loop and copies it into CASEXX. CASE CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $ ****CARD 1- 6, 8- 14, 16, 19- 25, 27, 52, 56- 62 ****FILE 108 ****RFMT 187-194,196-204,207-209 $$$$ PARAM //*MPY*/NCOL/0/1 $ ****SBST 4 ****CARD 1- 6, 8- 11, 14, 24, 52, 56- 60 ****FILE 111 $$$$ t t t $$$$ TRLG generates matrices of loads versus time. {P }, {P }, and {P } are $$$$ p s d $$$$ generated with one column per output time step. {P } is generated with $$$$ d $$$$ one column per solution time step, and the Transient Output List (TOL) is $$$$ a list of output time steps. TRLG CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG, MPT/PPT,PST,PDT,PD,,TOL/S,N,NOSET/NCOL $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 $$$$ t t $$$$ Equivalence {P } to {P } if the d and p sets are the same. $$$$ p d $$$$ EQUIV PPT,PDT/NOSET $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 111 ****PHS1 DE1 $$$$ nl $$$$ TRD forms the linear, {P }, and nonlinear, {P }, dynamic load vectors $$$$ d d $$$$ and integrates the equations of motion (using the standard or alternate $$$$ starting procedure) over specified time periods to solve for the $$$$ displacements, velocities, and accelerations, using the following $$$$ equation: $$$$ $$$$ 2 nl $$$$ {M p + B p + K ] {u } = {P } + {P } $$$$ dd dd dd d d d $$$$ $$$$ TRD CASEXX,TRL,NLFT,DIT,KDD,BDD,MDD,PD/UDVT,PNLD/*DIRECT*/ NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $ ****CARD 1- 6, 8- 11, 14, 17, 22- 24, 52, 56- 62 ****FILE 127 ****PHS1 DB1 $$$$ VDR prepares displacements, velocities, and accelerations, sorted by time $$$$ step, for output using only the solution set degrees of freedom. VDR CASEXX,EQDYN,USETD,UDVT,TOL,XYCDB,PNLD/OUDV1,OPNL1/ *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $ ****CARD 19- 21, 27 ****FILE 112 $$$$ Go to label LBL15 if there is no output request for the solution set. COND LBL15,NOD $ ****CARD 21, 27 ****FILE 113,135 $$$$ SDR3 prepares the requested output of the solution set displacements, $$$$ velocities, accelerations, and nonlinear load vectors sorted by point $$$$ number or element number. SDR3 OUDV1,OPNL1,,,,/OUDV2,OPNL2,,,, $ ****CARD 21, 27 ****FILE 113 $$$$ OFP formats the tables prepared by SDR3 sorted by point number or element $$$$ number, and places them on the system output file for printing. OFP OUDV2,OPNL2,,,,//S,N,CARDNO $ ****CARD 21 ****FILE 113 $$$$ XYTRAN prepares the input for requested X-Y plots of the solution set $$$$ quantities. XYTRAN XYCDB,OUDV2,OPNL2,,,/XYPLTTA/*TRAN*/*DSET*/S,N,PFILE/ S,N,CARDNO $ ****SBST 7 ****CARD 27 ****FILE 135 $$$$ XYPLOT prepares the requested X-Y plots of the solution set $$$$ displacements, velocities, accelerations, and nonlinear load vectors vs. $$$$ time. XYPLOT XYPLTTA// $ ****SBST 7 ****CARD 27 ****FILE 135 $$$$ LABEL LBL15 $ ****CARD 21, 27 ****FILE 113,135 $$$$ PARAM //*AND*/PJUMP/NOP/JUMPPLOT $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-194,196-204,207-209 $$$$ Go to label LBL18 if no further output is requested. COND LBL18,PJUMP $ ****CARD 1- 6, 8- 11, 14, 18- 20, 22- 24, 52, 56- 62 ****FILE 114-116,132,133 ****RFMT 187-194,196-204,207-209 $$$$ Equivalence {u } to {u } if no constraints are applied. $$$$ d p $$$$ EQUIV UDVT,UPV/NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-194,196-204,207-209 ****PHS2 DB8 $$$$ Go to label LBL17 if no constraints are applied. COND LBL17,NOA $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-194,196-204,207-209 ****PHS3 DE7 $$$$ SDR1 recovers dependent components of displacements $$$$ $$$$ u $$$$ d d $$$$ {u } = [G ]{u } {----} = {u + u } $$$$ o o d u f e $$$$ o $$$$ $$$$ u + u $$$$ f e d $$$$ {-------} = {u + u } {u } = [G ]{u + u } $$$$ u n e m m f e $$$$ s $$$$ $$$$ u + u $$$$ n e $$$$ {---------} = {u } $$$$ u p $$$$ m $$$$ T $$$$ and recovers single-point forces of constraint {q } = -{P } + [K ]{u }. $$$$ s s fs f $$$$ SDR1 USETD,,UDVT,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-194,196-204,207-209 $$$$ LABEL LBL17 $ ****CARD 1- 6, 8- 11, 14, 22- 24, 52, 56- 62 ****FILE 114 ****RFMT 187-194,196-204,207-209 ****PHS3 I7 $$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) and $$$$ prepares load vectors (OPP1), displacement, velocity, and acceleration $$$$ vectors (OUPV1), and single-point forces of constraint (OQP1) for output $$$$ and translation components of the displacement vector (PUGV1), sorted by $$$$ time step. SDR2 CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB, PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $ ****CARD 18- 20 ****FILE 115 $$$$ SDR3 prepares requested output sorted by point number or element number. SDR3 OPP1,OQP1,OUPV1,OES1,OEF1,/ OPP2,OQP2,OUPV2,OES2,OEF2, $ ****CARD 18- 20 ****FILE 116 $$$$ OFP formats the tables prepared by SDR3 for output sorted by point number $$$$ or element number and places them on the system output file for printing. OFP OPP2,OQP2,OUPV2,OEF2,OES2,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ SCAN examines the element stresses and forces calculated by SDR3 and $$$$ generates scanned output that meets the specifications set by the user. SCAN CASECC,OES2,OEF2/OESF2/*RF* $ ****CARD 19 ****FILE 116 $$$$ OFP formats the scanned output table prepared by SCAN and places it on $$$$ the system output file for printing. OFP OESF2,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ Go to label P2 if no deformed structure plots are requested. COND P2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 132 $$$$ PLOT prepares all requested deformed structure and contour plots. PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,GPECT,OES1, ,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 132 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ deformed plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 132 $$$$ LABEL P2 $ ****SBST 7 ****CARD 18 ****FILE 132 $$$$ XYTRAN prepares the input for requested X-Y plots. XYTRAN XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/ S,N,PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 133 $$$$ XYPLOT prepares the requested X-Y plots of displacements, velocities, $$$$ accelerations, forces, stresses, loads, and single-point forces of $$$$ constraint versus time. XYPLOT XYPLTT// $ ****SBST 7 ****CARD 20 ****FILE 133 ****PHS2 DE8 $$$$ LABEL LBL18 $ ****CARD 1- 6, 8- 11, 14, 18- 20, 22- 24, 52, 56- 62 ****FILE 114-116,132,133 $$$$ Go to label FINIS if no additional dynamic load sets need to be $$$$ processed. COND FINIS,REPEATT $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-194,196-204,207-209 ****PHS3 DB7 $$$$ Go to label LBL13 if additional dynamic load sets need to be processed. REPT LBL13,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-194,196-204,207-209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*DIRTRD* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-194,196-204,207-209 ****PHS1 DE1 ****PHS3 DE7 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ LABEL ERROR1 $ ****CARD 1, 9- 11, 57, 61 ****RFMT 187-194,196-204,207-209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*DIRTRD* $ ****CARD 1, 9- 11, 57, 61 ****RFMT 187-194,196-204,207-209 $$$$ LABEL ERROR3 $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 129 ****RFMT 187-194,196-204,207-209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*DIRTRD* $ ****SBST 8 ****CARD 1- 3, 5, 8, 14, 15, 24 ****FILE 129 ****RFMT 187-194,196-204,207-209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ PURGE DUMMY/ALWAYS $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ END $ ****CARD 1- 6, 8- 28, 52, 56- 62 ****RFMT 187-194,196-204,207-209 $$$$ $*CARD BITS 1 AXIC AXIF CDAMP1 CDAMP2 CDAMP3 CDAMP4 CELAS1 1 CELAS2 1 CELAS3 CELAS4 CMASS1 CMASS2 CMASS3 CMASS4 CORD1C 1 CORD1R 1 CORD1S CORD2C CORD2R CORD2S FREEPT GRDSET GRID 1 GRIDB 1 POINTAX PRESPT RINGAX RINGFL SECTAX SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CCONEAX CDUM1 CDUM2 CDUM3 2 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFLUID2 2 CFLUID3 2 CFLUID4 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 2 CONROD 2 CQDMEM CQDMEM1 CQDMEM2 CQDPLT CQUAD1 CQUAD2 CROD 2 CSHEAR CTETRA CTORDRG CTRAPAX CTRAPRG CTRBSC CTRIA1 2 CTRIA2 CQUAD4 CTRIA3 2 CTRIAAX CTRIARG CTRIM6 CTRMEM CTRPLT CTRPLT1 CTRSHL 2 CTUBE CTWIST CWEDGE 3 PBAR PCONEAX PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 3 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PIHEX PIS2D8 PQDMEM 3 PQDMEM1 PQDMEM2 PQDPLT PQUAD1 PQUAD2 PROD PSHEAR 3 PTORDRG PSHELL PCOMP PCOMP1 PCOMP2 3 PTRAPAX PTRBSC PTRIA1 PTRIA2 PTRIAAX PTRIM6 PTRMEM 3 PTRPLT PTRPLT1 PTRSHL PTUBE PTWIST 4 GENEL 5 CONM1 CONM2 FSLIST PMASS 6 PELAS 8 MAT1 MAT2 MAT3 MATT1 MATT2 MATT3 MAT8 8 TABLEM1 TABLEM2 TABLEM3 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ CRIGD1 CRIGD2 CRIGD3 CRIGDR CRROD CRBAR 9 CRTRPLT CRBE1 CRBE2 CRBE3 CRSPLINE MPC MPCADD 9 MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 WTMASS 15 GRDPNT 16 PLOTEL 17 ISTART 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 LOOP$ 23 LOOP1$ 24 COUPMASS CPBAR CPQDPLT CPQUAD1 CPQUAD2 CPROD CPTRBSC 24 CPTRIA1 CPTRIA2 CPTRPLT CPTUBE 25 NOLOOP$ 26 ASETOUT 27 AXYOUT$ 28 AUTOSPC 52 BDYLIST FLSYM 56 G W3 W4 57 EPOINT SEQEP TF 58 CVISC 59 PDAMP PVISC 60 DMIAX DMIG B2PP$ K2PP$ M2PP$ TF$ 61 DAREA DELAY DLOAD FORCE FORCE1 FORCE2 GRAV 61 MOMENT 61 MOMENT1 MOMENT2 NOLIN1 NOLIN2 NOLIN3 NOLIN4 NOLIN6 61 PLOAD PLOAD4 61 PLOAD1 PLOAD2 SLOAD TABLED1 TABLED2 TABLED3 TABLED4 61 TIC TLOAD1 TLOAD2 TSTEP 62 DLOAD$ IC$ NLFORCE TSTEP$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL SIL 95 ECT 96 GPTT SLT 97 EST GEI GPECT MPTX PCOMPS EPTX 98 KGGX 99 MGG 100 KGG 101 ASET RG USET OGPST 102 GPST 103 GM 104 BNN K4NN KNN MNN 105 BFF K4FF KFF KFS MFF 106 GO KOO LOO KAA 107 DLT EQDYN GPLD NLFT SILD TFPOOL TRL 107 USETD 108 CASEXX 109 B2PP K2DPP M2DPP 110 B2DD BDD GMD GOD K2DD KDD M2DD 110 MDD 111 PD PDT PPT PST TOL 112 OUDV1 OPNL1 113 OUDV2 OPNL2 114 QP UPV 115 OEF1 OES1 OPP1 OQP1 OUPV1 PUGV 116 OEF2 OES2 OPP2 OQP2 OUPV2 OESF2 118 BDPOOL 119 ABFL KBFL 120 ELSETS GPSETS PLTPAR PLTSETX 121 MAA 122 BAA 123 K4AA 124 BDICT BELM KDICT KELM MDICT MELM 125 BGG 126 K4GG 127 PNLD UDVT 128 PLOTX1 129 OGPWG 130 K2PP 131 M2PP 132 PLOTX2 133 XYPLTT 134 BGPDP SIP 135 XYPLTTA $* =PAGE= HEAT1 APR.93 $$$$$$$$ BEGIN HEAT 01 - STATIC HEAT TRANSFER ANALYSIS - APR. 1993 $ ****CARD 1- 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ PRECHK ALL $ ****CARD 1- 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ FILE HQG=APPEND/HPGG=APPEND/HUGV=APPEND/HGM=SAVE/HKNN=SAVE $ ****SBST 1, 3 ****CARD 1- 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 6, 8- 10, 15, 19, 22, 23 ****FILE 101,114 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $ ****CARD 1 ****FILE 119 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 4, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115,117 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115 $$$$ Go to label HP1 if there are no structure plot requests. COND HP1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 115,117 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 115 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 115 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 117 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 117 $$$$ Go to label HP1 if no boundary and structure (heat conduction) element $$$$ plots are requested. COND HP1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 117 $$$$ PLOT generates all requested boundary and heat conduction element plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/ HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 117 $$$$ PRTMSG prints plotter data and engineering data for each plot generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 117 $$$$ LABEL HP1 $ ****SBST 7 ****CARD 1, 2, 4, 16, 18 ****FILE 115,117 $$$$ GP3 generates applied Static (Thermal) Loads Table (HSLT) and Grid Point $$$$ Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $ ****CARD 1, 2, 13, 60 ****FILE 96 $$$$ TA1 generates element tables for use in matrix assembly, load generation, $$$$ and data recovery. TA1 ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,HGEI,HGPECT,,,,,/ HLUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL $ ****CARD 1- 6, 13, 16 ****FILE 97 $$$$ PARAM //*AND*/NOELMT/NOGENL/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 $$$$ Go to label ERROR4 and print Error Message No. 4 if no elements have been $$$$ defined. COND ERROR4,NOELMT $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-204,208,209 $$$$ PURGE HKGGX/NOSIMP $ ****CARD 1, 2, 4- 6, 16 ****FILE 98 $$$$ Go to label HLBL1 if there are no heat conduction elements. COND HLBL1,NOSIMP $ ****CARD 1- 3, 6, 8 ****FILE 98,116 $$$$ PARAM //*ADD*/HNOKGG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 116 $$$$ EMG generates heat conduction matrix tables and dictionaries for later $$$$ assembly by the EMA module. EMG HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $ ****CARD 1- 3, 6, 8 ****FILE 116 $$$$ PURGE HKGGX/HNOKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label HLBL1 if no heat conduction matrix is to be assembled. COND HLBL1,HNOKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles heat conduction matrix [K ] and Grid Point Singularity $$$$ gg $$$$ Table. EMA HGPECT,HKDICT,HKELM/HKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE HKDICT,HKELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 116 $$$$ LABEL HLBL1 $ ****CARD 1- 3, 6, 8 ****FILE 98,116 $$$$ EQUIV HKGGX,HKGG/NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ COND HLBL11A,NOGENL $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ SMA3 HGEI,HKGGX/HKGG/HLUSET/NOGENL/NOSIMP $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ LABEL HLBL11A $ ****CARD 1- 4, 6, 8 ****FILE 100 $$$$ GPSTGEN HKGG,HSIL/GPST $ ****CARD 1- 4, 6, 8 ****FILE 102 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1, 9- 12, 22, 23 ****FILE 101 $$$$ Beginning of loop for additional constraint sets. LABEL HLBL11 $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets (USET), $$$$ forms multipoint constraint equations [R ] {u } = 0, and forms enforced $$$$ g g $$$$ displacement vector {Y }. $$$$ s $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,HUSET, HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/S,N,HREPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 4, 6, 8- 12, 14, 15, 22, 23, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 4, 6, 8- 12, 14, 15, 22, 23, 59 ****FILE 101 $$$$ Go to label ERROR3 and print Error Message No. 3 if no independent $$$$ degrees of freedom are defined. COND ERROR3,NOL $ ****CARD 1, 9- 12, 14, 15, 22, 23, 59 ****FILE 101 ****RFMT 187-204,208,209 $$$$ PARAM //*AND*/NOSR/SINGLE/REACT $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 101 $$$$ PURGE HKRR,HKLR,HQR,HDM/REACT/GM/MPCF1/HGO,HKOO,HLOO,HPO,HUOOV, HRUOV/OMIT/HPS,HKFS,HKSS/SINGLE/HQG/NOSR $ ****CARD 1, 9- 12, 22, 23, 59 ****FILE 103,105-107,109,111-113 $$$$ Equivalence [K ] to [K ] if no multipoint constraints exist. $$$$ gg nn $$$$ EQUIV HKGG,HKNN/MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 104 $$$$ Go to label HLBL2 if no multipoint constraints exist. COND HLBL2,MPCF1 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 HUSET,RG/GM $ ****CARD 1, 9, 22, 23 ****FILE 103 $$$$ MCE2 partitions heat conduction matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | nn| nm| $$$$ [K ] = |---+---| $$$$ gg |K |K | $$$$ | mn| mm| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nn m mn mn m m mm m $$$$ MCE2 HUSET,GM,HKGG,,,/HKNN,,, $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 104 $$$$ LABEL HLBL2 $ ****CARD 1- 4, 6, 8, 9, 22, 23 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] if no single-point constraints exist. $$$$ nn ff $$$$ EQUIV HKNN,HKFF/SINGLE $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ Go to label HLBL3 if no single-point constraints exist. COND HLBL3,SINGLE $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ SCE1 partitions out single-point constraints $$$$ $$$$ + + $$$$ |K |K | $$$$ | ff| fs| $$$$ [K ] = |---+---| $$$$ nn |K |K | $$$$ | sf| ss| $$$$ + + $$$$ SCE1 HUSET,HKNN,,,/HKFF,HKFS,HKSS,,, $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ LABEL HLBL3 $ ****CARD 1- 4, 6, 8- 10, 22, 23 ****FILE 105 $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV HKFF,HKAA/OMIT $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ Go to label HLBL5 if no omitted coordinates exist. COND HLBL5,OMIT $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ SMP1 partitions constrained heat conduction matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ T $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ LABEL HLBL5 $ ****CARD 1- 4, 6, 8- 11, 22, 23 ****FILE 106 $$$$ Equivalence [K ] to [K ] if no free-body supports exist. $$$$ aa ll $$$$ EQUIV HKAA,HKLL/REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ Go to label HLBL6 if no free-body supports exist. COND HLBL6,REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ RBMG1 partitions out free-body supports $$$$ $$$$ + + $$$$ |K |K | $$$$ | ll| lr| $$$$ [K ] = |---+---| $$$$ aa |K |K | $$$$ | rl| rr| $$$$ + + $$$$ RBMG1 HUSET,HKAA,/HKLL,HKLR,HKRR,,, $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ LABEL HLBL6 $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 107 $$$$ RBMG2 decomposes constrained heat conduction matrix [K ] = [L ][U ]. $$$$ ll ll ll $$$$ RBMG2 HKLL/HLLL $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 108 $$$$ Go to label HLBL7 if no free-body supports exist. COND HLBL7,REACT $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ RBMG3 forms rigid body transformation matrix $$$$ $$$$ -1 $$$$ [D] = -[K ] [K ] $$$$ ll lr $$$$ $$$$ calculates rigid body check matrix $$$$ $$$$ T $$$$ [X] = [K ] + [K ][D] $$$$ rr lr $$$$ $$$$ and calculates rigid body error ratio $$$$ $$$$ $$$$ ||X|| $$$$ epsilon = --------- $$$$ ||K || $$$$ rr $$$$ RBMG3 HLLL,HKLR,HKRR/HDM $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ LABEL HLBL7 $ ****CARD 1- 4, 6, 8- 12, 22, 23 ****FILE 109 $$$$ SSG1 generates static thermal load vectors {P }. $$$$ g $$$$ SSG1 HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,/ HPG,,,,SCR/HLUSET/NSKIP $ ****CARD 1- 3, 6, 8, 22, 23, 59- 62 ****FILE 110 $$$$ Equivalence {P } to {P } if no constraints are applied. $$$$ g l $$$$ EQUIV HPG,HPL/NOSET $ ****CARD 1- 3, 6, 8- 12, 22, 23, 59- 62 ****FILE 111 $$$$ Go to label HLBL10 if no constraints are applied. COND HLBL10,NOSET $ ****CARD 1- 3, 6, 8- 12, 22, 23, 59- 62 ****FILE 111 $$$$ SSG2 applies constraints to static thermal load vectors $$$$ $$$$ _ $$$$ P $$$$ n _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ g P n n m m $$$$ m $$$$ $$$$ _ $$$$ P $$$$ f _ $$$$ {P } = {--} , {P } = {P } - [K ]{Y } $$$$ n P f f fs s $$$$ s $$$$ $$$$ _ $$$$ P $$$$ a _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } $$$$ f P a a o o $$$$ o $$$$ $$$$ P $$$$ l $$$$ {P } = {--} $$$$ a P $$$$ r $$$$ $$$$ T $$$$ and calculates determinate thermal powers {q } = -{P } - [D ]{P }. $$$$ r r l $$$$ SSG2 HUSET,GM,YS,HKFS,HGO,HDM,HPG/HQR,HPO,HPS,HPL $ ****CARD 1- 3, 6, 8- 12, 22, 23, 59- 62 ****FILE 111 $$$$ LABEL HLBL10 $ ****CARD 1- 3, 6, 8- 12, 22, 23, 59- 62 ****FILE 111 $$$$ SSG3 solves for displacements of independent coordinates $$$$ $$$$ -1 $$$$ {u } = [K ] {P } $$$$ l ll l $$$$ $$$$ solves for displacements of omitted coordinates $$$$ $$$$ o -1 $$$$ {u } = [K ] {P } $$$$ o oo o $$$$ $$$$ calculates residual vector (HRULV) and residual vector error ratio for $$$$ independent coordinates $$$$ $$$$ {deltaP } = {P } - [K ]{u } $$$$ l l ll l $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ l l $$$$ epsilon = ------------- $$$$ l T $$$$ {P }{u } $$$$ l l $$$$ $$$$ and calculates residual vector (HRUOV) and residual vector error ratio $$$$ for omitted coordinates $$$$ $$$$ o $$$$ {deltaP } = {P } - [K ]{u } $$$$ o o oo o $$$$ $$$$ T $$$$ {u }{deltaP } $$$$ o o $$$$ epsilon = ------------- $$$$ o T o $$$$ {P }{u } $$$$ o o $$$$ SSG3 HLLL,HKLL,HPL,HLOO,HKOO,HPO/HULV,HUOOV,HRULV,HRUOV/OMIT/ V,Y,IRES=-1/NSKIP/S,N,EPSI $ ****CARD 1- 6, 8- 12, 17, 22, 23, 59- 62 ****FILE 112 ****RFMT 188 $$$$ Go to lable HLBL9 if residual vectors are not to be printed. COND HLBL9,IRES $ ****CARD 1- 6, 8- 12, 17, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ MATGPR prints the residual vector for independent coordinates (HRULV). MATGPR GPL,HUSET,HSIL,HRULV//*L* $ ****CARD 1- 6, 8- 12, 17, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ MATGPR prints the residual vector for omitted coordinates (HRUOV). MATGPR GPL,HUSET,HSIL,HRUOV//*O* $ ****CARD 1- 6, 8- 12, 17, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ LABEL HLBL9 $ ****CARD 1- 6, 8- 12, 17, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ SDR1 recovers dependent temperatures $$$$ $$$$ u $$$$ l o $$$$ {--} = {u } , {u } = [G ]{u ] + {u } , $$$$ u a o o a o $$$$ r $$$$ $$$$ u u $$$$ a f $$$$ {--} = {u } , {--} = {u } , $$$$ u f Y n $$$$ o s $$$$ $$$$ u $$$$ n $$$$ {u } = [G ]{u ] , {--} = {u } $$$$ m m n u g $$$$ m $$$$ $$$$ and recovers single-point powers of sustained thermal constraint $$$$ $$$$ T $$$$ {q } = -{P } + [K ]{u } +[K ]{Y } $$$$ s s fs f ss s $$$$ SDR1 HUSET,HPG,HULV,HUOOV,YS,HGO,GM,HPS,HKFS,HKSS,HQR/HUGV,HPGG, HQG/NSKIP/*HSTATICS* $ ****CARD 1- 6, 8- 12, 22, 23, 59- 62 ****FILE 113 ****RFMT 187-204,208,209 $$$$ Go to label HLBL8 if all constraint sets have been processed. COND HLBL8,HREPEAT $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ Go to label HLBL11 if additional sets of constraints need to be $$$$ processed. REPT HLBL11,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ Go to label ERROR1 and print Error Message No. 1 if the number of $$$$ constraint sets exceeds 100. JUMP ERROR1 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ PARAM //*NOT*/HTEST/HREPEAT $ ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ Go to label ERROR2 and print Error Message No. 2 if multiple boundary $$$$ conditions are attempted with an improper subset. COND ERROR2,HTEST $ ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ LABEL HLBL8 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ SDR2 calculates conduction and boundary element heat flows and gradients $$$$ (HOEF1) and prepares thermal load vectors (HOPG1), temperature vectors $$$$ (HOUGV1), and single-point powers of constraint (HOQG1) for output and $$$$ components of the temperature vector (HPUGV1). SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV, HEST,,HPGG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/ *STATICS* $ ****CARD 18, 19 ****FILE 114 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP HOUGV1,HOPG1,HOQG1,HOEF1,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ Go to label HP2 if no temperature profile plots are requested. COND HP2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 118 $$$$ PLOT generates all requested temperature profile and thermal contour $$$$ plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIP,HPUGV1,HOES1, HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 118 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ temperature profile and thermal contour plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 118 $$$$ LABEL HP2 $ ****SBST 7 ****CARD 18 ****FILE 118 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 6, 8- 16, 18, 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ LABEL ERROR1 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*HSTA* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ LABEL ERROR2 $ ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*HSTA* $ ****CARD 22, 23 ****RFMT 187-204,208,209 $$$$ LABEL ERROR3 $ ****CARD 1, 9- 12, 14, 15, 22, 23, 59 ****FILE 101 ****RFMT 187-204,208,209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*HSTA* $ ****CARD 1, 9- 12, 14, 15, 22, 23, 59 ****FILE 101 ****RFMT 187-204,208,209 $$$$ LABEL ERROR4 $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-204,208,209 $$$$ Print Error Message No. 4 and terminate execution. PRTPARM //-4/*HSTA* $ ****CARD 1, 2, 4- 6, 16 ****FILE 97 ****RFMT 187-204,208,209 $$$$ LABEL FINIS $ ****CARD 1- 6, 8- 16, 18, 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 6, 8- 16, 18, 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ END $ ****CARD 1- 6, 8- 16, 18, 19, 22, 23, 59- 62 ****RFMT 187-204,208,209 $$$$ $*CARD BITS 1 CELAS1 CELAS2 CELAS3 CELAS4 1 CORD1C CORD1R CORD1S CORD2C CORD2R CORD2S 1 GRDSET GRID GRIDB POINTAX RINGAX RINGFL SECTAX 1 SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CDUM1 CDUM2 CDUM3 CDUM4 2 CDUM5 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFTUBE 2 CHBDY 2 CHEXA1 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD 2 CQDMEM CQDMEM1 CQDMEM2 CQUAD1 CQUAD2 CQUAD4 CROD 2 CTETRA CTRAPRG CTRIA1 CTRIA2 CTRIA3 2 CTRIARG CTRMEM CTUBE 2 CWEDGE 3 PBAR PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 PDUM6 3 PDUM7 PDUM8 PDUM9 PELBOW PFTUBE PHBDY PIHEX 3 PIS2D8 PQDMEM PQDMEM1 PQDMEM2 PQUAD1 PQUAD2 PROD 3 PTRIA1 PTRIA2 PSHELL PCOMP PCOMP1 PCOMP2 3 PTRMEM PTUBE 4 GENEL 6 PELAS 8 MAT1 MAT2 MAT3 MAT4 MAT5 MATT1 MATT2 8 MATT3 MATT4 MATT5 MAT8 TABLEM1 TABLEM2 TABLEM3 8 TABLEM4 TEMPMT$ TEMPMX$ 9 AXISYM$ MPC MPCADD MPCAX MPC$ 10 SPC SPC1 SPCADD SPCAX SPC$ 11 ASET ASET1 OMIT OMIT1 OMITAX SUPAX SUPORT 13 TEMP TEMPAX TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 ASETOUT 15 AUTOSPC 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 22 LOOP$ 23 LOOP1$ 59 DEFORM DEFORM$ LOAD$ SPCD 60 FORCE FORCE1 FORCE2 FORCEAX LOAD MOMAX MOMENT 60 MOMENT1 PLOAD4 60 MOMENT2 PLOAD PLOAD1 PLOAD2 PLOAD3 PRESAX QBDY1 60 QBDY2 QHBDY QVECT QVOL SLOAD 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL HSIL 95 ECT 96 GPTT HSLT 97 HGPECT HEST HGEI 98 HKGGX 100 HKGG 101 HASET RG HUSET YS OGPST 102 GPST 103 GM 104 HKNN 105 HKFF HKSS HKFS 106 HGO HKAA HKOO HLOO 107 HKLL HKLR HKRR 108 HLLL 109 HDM 110 HPG SCR 111 HPL HPO HPS HQR 112 HRULV HRUOV HULV HUOOV 113 HPGG HQG HUGV 114 HOEF1 HOPG1 HOQG1 HOUGV1 HPUGV1 HOES1 115 ELSETS GPSETS PLTPAR PLTSETX 116 HKDICT HKELM 117 PLOTX1 118 PLOTX2 119 BGPDP HSIP $* =PAGE= HEAT3 APR.93 $$$$$$$$ BEGIN HEAT 03 - NONLINEAR STATIC HEAT TRANSFER ANALYSIS - APR. 1993 $ ****CARD 1- 3, 6, 8- 11, 13, 15- 19, 54, 55, 59, 60, 62 ****RFMT 187-204,207,209 $$$$ PRECHK ALL $ ****CARD 1- 3, 6, 8- 11, 13, 15- 19, 54, 55, 59, 60, 62 ****RFMT 187-204,207,209 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 6, 8- 10, 15, 19 ****FILE 101,114,117 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/ NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $ ****CARD 1 ****FILE 113 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115,118 $$$$ PURGE HPLTSETX,HPLTPAR,HGPSETS,HELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 115 $$$$ Go to label HP1 if there are no structure plot requests. COND HP1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115,118 $$$$ PLTHBDY modifies the data in the ECT, HSIL, HEQEXIN, and BGPDT tables to $$$$ permit the plotting of HBDY (thermal boundary) elements. PLTHBDY GEOM2,ECT,EPT,HSIL,EQEXIN,BGPDT/PECT,PSIL,PEQEXIN,PBGPDT/ S,N,NHBDY/V,Y,MESH=NO $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ Equivalence PECT to ECT, PSIL to HSIL, PEQEXIN to HEQEXIN, and PBGPDT to $$$$ BGPDT if there are no HBDY elements. EQUIV ECT,PECT/NHBDY/HSIL,PSIL/NHBDY/EQEXIN,PEQEXIN/NHBDY/ BGPDT,PBGPDT/NHBDY $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,PEQEXIN,PECT,/HPLTSETX,HPLTPAR,HGPSETS,HELSETS/S,N,HNSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG HPLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 118 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 118 $$$$ Go to label HP1 if no boundary and structure (heat conduction) element $$$$ plots are requested. COND HP1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 118 $$$$ PLOT generates all requested boundary and heat conduction element plots. PLOT HPLTPAR,HGPSETS,HELSETS,CASECC,PBGPDT,PEQEXIN,PSIL,,,,,,/ PLOTX1/HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 118 $$$$ PRTMSG prints plotter data and engineering data for each plot generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 118 $$$$ LABEL HP1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 115,118 $$$$ GP3 generates applied Static (Heat Flux) Loads Table (HSLT) and Grid $$$$ Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $ ****CARD 1, 2, 13, 60 ****FILE 96 $$$$ SETVAL //S,N,REPEATH/-1 $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$ LABEL LOOPTOP $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$ CASE extracts the appropriate record from CASECC corresponding to the $$$$ current loop and copies it to CASEXX. CASE CASECC,/CASEXX/*TRANRESP*/S,N,REPEATH/S,N,NOLOOP $ ****CARD 22, 23 ****FILE 101 $$$$ PARAML extracts the 8th word in the data record of CASEXX (representing $$$$ the thermal material set ID) and stores its value in the parameter $$$$ TEMPMATE. PARAML CASEXX//*TABLE1*/1/8//TEMPMATE $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$ PARAM stores the value of the parameter TEMPMATE in the 10th word of $$$$ COMMON /SYSTEM/. PARAM //*STSR*/TEMPMATE/-10 $ ****SBST 1, 3 ****CARD 22, 23 ****FILE 101 $$$$ TA1 generates element tables for use in matrix assembly, load generation, $$$$ and heat flux data recovery. TA1 ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,,HGPECT,,,,,/ HLUSET/S,N,NOSIMP/1/NOGENL/GENEL $ ****CARD 1- 3, 6, 13, 16 ****FILE 97 $$$$ Go to label ERROR2 and print Error Message No. 2 if no elements have been $$$$ defined. COND ERROR2,NOSIMP $ ****CARD 1, 2, 6, 8, 16 ****FILE 97 ****RFMT 187-204,207,209 $$$$ PARAM //*ADD*/HNOKGG/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ EMG generates heat conduction matrix tables and dictionaries for later $$$$ assembly by the EMA module. EMG HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE HKGG/HNOKGG $ ****CARD 1- 3, 6, 8 ****FILE 99 $$$$ Go to label JMPKGGX if no heat conduction matrix is to be assembled. COND JMPKGGX,HNOKGG $ ****CARD 1- 3, 6, 8 ****FILE 99 $$$$ x $$$$ EMA assembles heat conduction matrix [K ] and Grid Point Singularity $$$$ gg $$$$ Table. EMA HGPECT,HKDICT,HKELM/HKGGX $ ****CARD 1- 3, 6, 8 ****FILE 99 $$$$ PURGE HKDICT,HKELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ LABEL JMPKGGX $ ****CARD 1- 3, 6, 8 ****FILE 99 $$$$ RMG generates the radiation matrix, [R ], and adds the estimated linear $$$$ gg $$$$ component of radiation to the heat conduction matrix. The element $$$$ radiation flux matrix, [Q ], is also generated for use in recovery data $$$$ ge $$$$ for the HBDY elements. RMG HEST,MATPOOL,GPTT,HKGGX/HRGG,HQGE,HKGG/C,Y,TABS/C,Y,SIGMA=0.0/ S,N,HNLR/HLUSET $ ****CARD 1- 3, 6, 8, 55 ****FILE 100 $$$$ x $$$$ Equivalence [K ] to [K ] if there is no linear component of radiation. $$$$ gg gg $$$$ EQUIV HKGGX,HKGG/HNLR $ ****CARD 1- 3, 6, 8, 55 ****FILE 100 $$$$ GPSTGEN HKGG,HSIL/GPST $ ****CARD 1- 3, 6, 8, 55 ****FILE 102 $$$$ PURGE HQGE,HRGG/HNLR $ ****CARD 1- 3, 6, 8, 55 ****FILE 100 $$$$ PARAM //*MPY*/NSKIP/0/0 $ ****CARD 1- 3, 6, 8- 10, 14, 15, 59 ****FILE 101 $$$$ GP4 generates flags defining members of various displacement sets $$$$ (HUSET), and forms multipoint constraint equations [R ] {u } = 0. $$$$ g g $$$$ GP4 CASEXX,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,HUSET, HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/S,N,NSKIP/REPEATG/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 3, 6, 8- 10, 14, 15, 55, 59 ****FILE 101 $$$$ OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 3, 6, 8- 10, 14, 15, 55, 59 ****FILE 101 $$$$ Go to label ERROR1 and print Error Message No. 1 if no independent $$$$ degrees of freedom are defined. COND ERROR1,NOL $ ****CARD 1, 9, 10, 14, 15, 59 ****FILE 101 ****RFMT 187-204,207,209 $$$$ PURGE GM/MPCF1/HPS,HKFS,HKSS,HKSF,HRSN,HQG/SINGLE $ ****CARD 1, 9, 10, 59 ****FILE 103,105,107,111,112 $$$$ Equivalence [K ] to [K ] and [R ] to [R ] if no multipoint $$$$ gg nn gg nn $$$$ constraints exist. EQUIV HKGG,HKNN/MPCF1/HRGG,HRNN/MPCF1 $ ****CARD 1- 3, 6, 8, 9, 13 ****FILE 100,104 $$$$ Go to label HLBL1 if no multipoint constraints exist. COND HLBL1,MPCF1 $ ****CARD 1- 3, 6, 8, 9, 13 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 HUSET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions heat conduction and radiation matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |R |R | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [R ] = |---+---| $$$$ gg |K |K | gg |R |R | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ and performs matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nn m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [R ] = [R ] + [G ][R ] + [R ][G ] + [G ][R ][G ] $$$$ nn nn m mn mn m m mm m $$$$ MCE2 HUSET,GM,HKGG,HRGG,,/HKNN,HRNN,, $ ****CARD 1- 3, 6, 8, 9, 55 ****FILE 104 $$$$ LABEL HLBL1 $ ****CARD 1- 3, 6, 8, 9, 55 ****FILE 103,104 $$$$ Equivalence [K ] to [K ] and [R ] to [R ] if no single-point $$$$ nn ff nn fn $$$$ constraints exist. EQUIV HKNN,HKFF/SINGLE/HRNN,HRFN/SINGLE $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 105,107 $$$$ Go to label HLBL2 if no single-point constraints exist. COND HLBL2,SINGLE $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 105,107,116 $$$$ VEC generates a partitioning vector {u } -> {u } + {u }. $$$$ n g s $$$$ VEC HUSET/VFS/*N*/*F*/*S* $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 116 $$$$ PARTN partitions the heat conduction matrix $$$$ $$$$ + + $$$$ |K |K | $$$$ | ff| fs| $$$$ [K ] = |---+---| $$$$ nn |K |K | $$$$ | fs| ss| $$$$ + + $$$$ PARTN HKNN,VFS,/HKFF,HKSF,HKFS,HKSS $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 105 $$$$ PARTN partitions the radiation matrix $$$$ $$$$ + + $$$$ | R | $$$$ | fn | $$$$ [R ] = | --- | $$$$ nn | R | $$$$ | sn | $$$$ + + $$$$ PARTN HRNN,,VFS/HRFN,HRSN,,/1 $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 107 $$$$ LABEL HLBL2 $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 105,107,116 $$$$ DECOMP decomposes the potentially unsymmetric matrix [K ] into upper $$$$ ff $$$$ and lower triangular factors [U ] and [L ]. $$$$ ll ll $$$$ DECOMP HKFF/HLLL,HULL/0/0/MDIAG/DET/PWR/S,N,KSING $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 108 $$$$ Go to label ERROR3 and print Error Message No. 3 if the matrix is $$$$ singular. COND ERROR3,KSING $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 108 $$$$ SSG1 generates the input heat flux vector {P }. $$$$ g $$$$ SSG1 HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASEXX,DIT,/ HPG,,,,SCR/HLUSET/NSKIP $ ****CARD 1- 3, 6, 8, 13, 55, 59, 60, 62 ****FILE 110 $$$$ Equivalence {P } to {P } if no constraints are applied. $$$$ g f $$$$ EQUIV HPG,HPF/NOSET $ ****CARD 1- 3, 6, 8- 10, 13, 55, 59, 60, 62 ****FILE 111 $$$$ Go to label HLBL3 if no constraints of any kind exist. COND HLBL3,NOSET $ ****CARD 1- 3, 6, 8- 10, 13, 55, 59, 60, 62 ****FILE 111 $$$$ SSG2 reduces the heat flux vector $$$$ $$$$ _ $$$$ P $$$$ n _ T $$$$ {P } = {--} , {P } = {P } + [G ]{P } , $$$$ g P n n m m $$$$ m $$$$ $$$$ _ $$$$ P $$$$ f $$$$ {P } = {--} $$$$ n P $$$$ s $$$$ SSG2 HUSET,GM,,HKFS,,,HPG/,,HPS,HPF $ ****CARD 1- 3, 6, 8- 10, 13, 55, 59, 60, 62 ****FILE 111 $$$$ LABEL HLBL3 $ ****CARD 1- 3, 6, 8- 10, 13, 55, 59, 60, 62 ****FILE 111 $$$$ SSGHT solves the nonlinear heat transfer problem by an iteration $$$$ technique which is limited by parameters EPSHT and MAXIT. The output data $$$$ are {u ], the solution temperature vector; {q ], the heat flux due to $$$$ g g $$$$ single-point constraints; and {deltaP }, the matrix of residual heat $$$$ l $$$$ fluxes at each iteration step. SSGHT HUSET,HSIL,GPTT,GM,HEST,MPT,DIT,HPF,HPS,HKFF,HKFS,HKSF, HKSS,HRFN,HRSN,HLLL,HULL/HUGV,HQG,HRULV/HNNLK=1/HNLR/ C,Y,EPSHT=.001/C,Y,TABS=0.0/C,Y,MAXIT=4/V,Y,IRES/ MPCF1/SINGLE $ ****CARD 1- 3, 6, 8- 11, 13, 17, 54, 55, 59, 60, 62 ****FILE 112 $$$$ Go to label HLBL4 if residual vectors are not to be printed. COND HLBL4,IRES $ ****CARD 1- 3, 6, 8- 11, 13, 17, 54, 55, 59, 60, 62 $$$$ MATGPR prints the residual vectors for independent coordinates (HRULV). MATGPR GPL,HUSET,HSIL,HRULV//*F* $ ****CARD 1- 3, 6, 8- 11, 13, 17, 54, 55, 59, 60, 62 $$$$ LABEL HLBL4 $ ****CARD 1- 3, 6, 8- 11, 13, 17, 54, 55, 59, 60, 62 ****FILE 114 $$$$ SDR2 calculates the heat flux due to conduction and convection in the $$$$ elements (HOEF1) and prepares the temperature vector (HOUGV1), the load $$$$ vector (HOPG1), and the power of constraint (HOQG1) for output and $$$$ components of the temperature vector (HPUGV1). SDR2 CASEXX,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV, HEST,,HPG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/ *STATICS* $ ****CARD 18, 19 ****FILE 114 $$$$ OFP formats the tables prepared by SDR2 and places them on the system $$$$ output file for printing. OFP HOUGV1,HOPG1,HOQG1,,,//S,N,CARDNO $ ****CARD 19 ****FILE 114 $$$$ SDRHT processes the HBDY elements to produce heat flux into the elements $$$$ (HOEF1X) due to convection, radiation, and applied flux. SDRHT HSIL,HUSET,HUGV,HOEF1,HSLT,HEST,DIT,HQGE,,/HOEF1X/C,Y,TABS/ HNLR $ ****CARD 18, 19 ****FILE 117 $$$$ OFP formats the element flux table prepared by SDRHT and places it on the $$$$ system output file for printing. OFP HOEF1X,,,,,//S,N,CARDNO $ ****CARD 19 ****FILE 117 $$$$ Go to label HP2 if no temperature profile plots are requested. COND HP2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 119 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT/PSMES,DPLTPAR,DGPSETS,DELSETS/S,N,DSIL/DJ $ ****SBST 7 ****CARD 18 ****FILE 119 $$$$ PLOT generates all requested temperature profile and thermal contour $$$$ plots. PLOT DPLTPAR,DGPSETS,DELSETS,CASEXX,BGPDT,EQEXIN,HSIP,HPUGV1,, HGPECT,HOES1,,/PLOTX2/DSIL/HLUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 119 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ temperature profile and thermal plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 119 $$$$ LABEL HP2 $ ****SBST 7 ****CARD 18 ****FILE 119 $$$$ Go to label FINIS and make normal exit if all constraint sets have been $$$$ processed. COND FINIS,REPEATH $ ****SBST 1, 3 ****CARD 1- 3, 6, 8- 10, 14, 15, 59 ****FILE 101 ****RFMT 187-204,207,209 $$$$ Go to label LOOPTOP if additional constraint sets need to be processed. REPT LOOPTOP,100 $ ****SBST 1, 3 ****CARD 1- 3, 6, 8- 10, 14, 15, 59 ****FILE 101 ****RFMT 187-204,207,209 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 3, 6, 8- 11, 13, 15- 19, 54, 55, 59, 60, 62 ****RFMT 187-204,207,209 $$$$ LABEL ERROR1 $ ****CARD 1, 9, 10, 14, 15, 59 ****FILE 101 ****RFMT 187-204,207,209 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*HNLI* $ ****CARD 1, 9, 10, 14, 15, 59 ****FILE 101 ****RFMT 187-204,207,209 $$$$ LABEL ERROR2 $ ****CARD 1, 2, 6, 8, 16 ****FILE 97 ****RFMT 187-204,207,209 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*HNLI* $ ****CARD 1, 2, 6, 8, 16 ****FILE 97 ****RFMT 187-204,207,209 $$$$ LABEL ERROR3 $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 108 ****RFMT 187-204,207,209 $$$$ Print Error Message No. 3 and terminate execution. PRTPARM //-3/*HNLI* $ ****CARD 1- 3, 6, 8- 10, 55 ****FILE 108 ****RFMT 187-204,207,209 $$$$ LABEL FINIS$ ****CARD 1- 3, 6, 8- 11, 13, 15- 19, 54, 55, 59, 60, 62 ****RFMT 187-204,207,209 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 3, 6, 8- 11, 13, 15- 19, 54, 55, 59, 60, 62 ****RFMT 187-204,207,209 $$$$ END $ ****CARD 1- 3, 6, 8- 11, 13, 15- 19, 54, 55, 59, 60, 62 $$$$ $*CARD BITS 1 CELAS1 CELAS2 CELAS3 CELAS4 CORD1C CORD1R CORD1S 1 CORD2C CORD2R CORD2S GRDSET GRID SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CDUM1 CDUM2 CDUM3 CDUM4 2 CDUM5 2 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFTUBE CHBDY 2 CHEXA1 2 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM 2 CQDMEM1 CQDMEM2 CQUAD1 CQUAD2 CROD CTETRA CTRAPRG 2 CTRIA1 CTRIA2 CTRIARG CTRMRM CQUAD4 CTRIA3 2 CTUBE CWEDGE 3 PBAR PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 PDUM6 3 PDUM7 3 PDUM8 PDUM9 PELBOW PFTUBE PHBDY PIHEX PIS2D8 3 PQDMEM PQDMEM1 PQDMEM2 PQUAD1 PQUAD2 PROD PTUBE 3 PTRIA1 PTRIA2 PTRMEM PSHELL PCOMP PCOMP1 PCOMP2 6 PELAS 8 MAT1 MAT2 MAT3 MAT4 MAT5 MATT1 MATT2 8 MATT3 MATT4 MATT5 MAT8 TABLEM1 TABLEM2 TABLEM3 8 TABLEM4 TEMPMT$ TEMPMX$ 9 MPC MPCADD MPC$ 10 SPC SPC1 SPCADD SPC$ 11 IRES 13 TEMP TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 ASETOUT 15 AUTOSPC 16 PLOTEL 17 IRES 18 PLOT$ 19 POUT$ 22 LOOP$ 23 LOOP1$ 54 EPSHT MAXIT 55 RADMTX RADLST SIGMA TABS 59 LOAD$ SPCD 60 LOAD QBDY1 QBDY2 QHBDY QVECT QVOL SLOAD 62 TEMPLD$ $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL HSIL 95 ECT 96 GPTT HSLT 97 HEST HGEI HGPECT 98 HKDICT HKELM 99 HKGGX 100 HRGG HKGG HQGE 101 HASET RG HUSET OGPST 102 GPST 103 GM 104 HKNN HRNN 105 HKFF HKFS HKSF HKSS 107 HRFN HRSN 108 HLLL HULL 110 HPG 111 HPF HPS 112 HRULV HQG HUGV 113 BGPDP HSIP 114 HOES1 HOEF1 HOPG1 HOQG1 HOUGV1 HPUGV1 115 HELSETS HGPSETS HPLTPAR HPLTSETX 116 VFS 117 HOEF1X 118 PLOTX1 119 PLOTX2 $* =PAGE= HEAT9 APR.93 $$$$$$$$ BEGIN HEAT 09 - TRANSIENT HEAT TRANSFER ANALYSIS - APR. 1993 $ ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ PRECHK ALL $ ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ PARAM //*MPY*/CARDNO/0/0 $ ****CARD 1- 3, 6, 8- 10, 13, 15, 19, 21, 55- 57, 59- 62 ****FILE 101,113,116 $$$$ GP1 generates coordinate system transformation matrices, tables of grid $$$$ point locations, and tables relating the internal and external grid point $$$$ numbers. GP1 GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/ S,N,NOGPDT/MINUS1=-1 $ ****CARD 1 ****FILE 94 $$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables. PLTTRAN BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $ ****CARD 1 ****FILE 118 $$$$ PURGE HUSET,GM,HGO,HKAA,HBAA,HPSO,HKFS,HQP,HEST/NOGPDT $ ****CARD 1 ****FILE 97,101,103,105,106,114,117,122 $$$$ Go to label HLBL5 if there is no Grid Point Definition Table. COND HLBL5,NOGPDT $ ****CARD 1- 3, 6, 8- 11, 55, 59 ****FILE 95-106,120-124 $$$$ GP2 generates Element Connection Table with internal indices. GP2 GEOM2,EQEXIN/ECT $ ****CARD 1, 2, 16 ****FILE 95 $$$$ PARAML PCDB//*PRES*////JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120,124 $$$$ PURGE PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 120 $$$$ Go to label HP1 if there are no structure plot requests. COND HP1,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120,124 $$$$ PLTSET transforms user input into a form used to drive the structure $$$$ plotter. PLTSET PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/ S,N,JUMPPLOT $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ PRTMSG prints error messages associated with the structure plotter. PRTMSG PLTSETX// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120 $$$$ PARAM //*MPY*/PLTFLG/1/1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ PARAM //*MPY*/PFILE/0/0 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ Go to label HP1 if no boundary and structure (heat conduction) element $$$$ plots are requested. COND HP1,JUMPPLOT$ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ PLOT generates all requested boundary and heat conduction element plots. PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/ HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ PRTMSG prints plotter data and engineering data for each plot generated. PRTMSG PLOTX1// $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 124 $$$$ LABEL HP1 $ ****SBST 7 ****CARD 1, 2, 4, 5, 16, 18 ****FILE 120,124 $$$$ GP3 generates applied Static (Heat Flux) Loads Table (HSLT) and Grid $$$$ Point Temperature Table. GP3 GEOM3,EQEXIN,GEOM2/HSLT,GPTT/1 $ ****CARD 1, 2, 13 ****FILE 96 $$$$ TA1 generates element tables for use in matrix assembly, load generation, $$$$ and heat flux data recovery. TA1 ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,,HGPECT,,,,,/ HLUSET/S,N,NOSIMP=-1/1/123/123 $ ****CARD 1- 3, 6, 13, 16, 59 ****FILE 97 $$$$ PURGE HKGG,HBGG/NOSIMP $ ****CARD 1- 3, 6, 8, 59 ****FILE 98, 99,123 $$$$ Go to label HLBL1 if no heat conduction or boundary elements exist. COND HLBL1,NOSIMP $ ****CARD 1- 3, 6, 8, 59 ****FILE 98, 99,123 $$$$ PARAM //*ADD*/NOKGGX/1/0 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ PARAM //*ADD*/NOBGG/1/0 $ ****CARD 1- 3, 8, 59 ****FILE 123 $$$$ EMG generates element heat conduction and capacitance matrix tables and $$$$ dictionaries for later assembly by the EMA module. EMG HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,HBELM,HBDICT,/S,N, NOKGGX//S,N,NOBGG $ ****CARD 1- 3, 6, 8, 59 ****FILE 123 $$$$ PURGE HKGGX/NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPKGGX if no heat conduction matrix is to be assembled. COND JMPKGGX,NOKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ x $$$$ EMA assembles heat conduction matrix [K ] and Grid Point Singularity $$$$ gg $$$$ Table. EMA HGPECT,HKDICT,HKELM/HKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ PURGE HKDICT,HKELM/MINUS1 $ ****CARD 1- 3, 6, 8 ****FILE 123 $$$$ LABEL JMPKGGX $ ****CARD 1- 3, 6, 8 ****FILE 98 $$$$ Go to label JMPHBGG if no heat capacitance matrix is to be assembled. COND JMPHBGG,NOBGG $ ****CARD 1- 3, 8, 59 ****FILE 99 $$$$ EMA assembles heat capacitance matrix [B ]. $$$$ gg $$$$ EMA HGPECT,HBDICT,HBELM/HBGG $ ****CARD 1- 3, 8, 59 ****FILE 99 $$$$ PURGE HBDICT,HBELM/MINUS1 $ ****CARD 1- 3, 8, 59 ****FILE 123 $$$$ LABEL JMPHBGG $ ****CARD 1- 3, 8, 59 ****FILE 99 $$$$ PURGE HBNN,HBFF,HBAA,HBGG/NOBGG $ ****CARD 1- 3, 8, 59 ****FILE 99,104,105,122 $$$$ LABEL HLBL1 $ ****CARD 1- 3, 6, 8, 59 ****FILE 98, 99,123 $$$$ RMG generates the radiation matrix, [R ], and adds the estimated linear $$$$ gg $$$$ component of radiation to the heat conduction matrix. The element $$$$ radiation flux matrix, [Q ], is also generated for use in data recovery. $$$$ ge $$$$ RMG HEST,MATPOOL,GPTT,HKGGX/HRGG,HQGE,HKGG/C,Y,TABS/C,Y,SIGMA=0.0/ S,N,HNLR/HLUSET $ ****CARD 1- 3, 6, 8, 55 ****FILE 100 $$$$ x $$$$ Equivalence [K ] to [K ] if there is no linear component of radiation. $$$$ gg gg $$$$ EQUIV HKGGX,HKGG/HNLR $ ****CARD 1- 3, 6, 8, 55 ****FILE 100 $$$$ GPSTGEN HKGG,HSIL/GPST $ ****CARD 1- 3, 6, 8, 55 ****FILE 102 $$$$ PURGE HRGG,HRNN,HRFF,HRAA,HRDD/HNLR $ ****CARD 1- 3, 6, 8, 55 ****FILE 100,104,105,110,121 $$$$ GP4 generates flags defining members of various displacement sets $$$$ (HUSET), and forms multipoint constraint equations [R ] {u } = 0. $$$$ g g $$$$ GP4 CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,HUSET, ASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ S,N,REACT/0/123/S,N,NOSET/S,N,NOL/S,N,NOA/ C,Y,ASETOUT/C,Y,AUTOSPC $ ****CARD 1- 3, 6, 8- 11, 14, 15, 55 ****FILE 101 $$$$ OFP formats a table of potential grid point singularities prepared by $$$$ GPSP and places it on the system output file for printing. OFP OGPST,,,,,//S,N,CARDNO $ ****CARD 1- 3, 6, 8- 11, 14, 15, 55 ****FILE 101 $$$$ PURGE GM,GMD/MPCF1/HGO,HGOD/OMIT/HKFS,HPSO,HQP/SINGLE $ ****CARD 1, 9- 11 ****FILE 103,105,106,110,114,117 $$$$ Equivalence [K ] to [K ], [R ] to [R ], and [B ] to [B ] $$$$ gg nn gg nn gg nn $$$$ if no multipoint constraints exist. EQUIV HKGG,HKNN/MPCF1/HRGG,HRNN/MPCF1/HBGG,HBNN/MPCF1 $ ****CARD 1- 3, 6, 8, 9 ****FILE 104 $$$$ Go to label HLBL3 if no multipoint constraints exist. COND HLBL3,MPCF1 $ ****CARD 1- 3, 6, 8, 9, 55, 59 ****FILE 103,104 $$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves $$$$ g m n $$$$ -1 $$$$ for multipoint constraint transformation matrix [G ] = -[R ] [R ]. $$$$ m m n $$$$ MCE1 HUSET,RG/GM $ ****CARD 1, 9 ****FILE 103 $$$$ MCE2 partitions heat conduction and radiation matrices $$$$ $$$$ +_ + +_ + $$$$ |K |K | |R |R | $$$$ | nn| nm| | nn| nm| $$$$ [K ] = |---+---| [R ] = |---+---| $$$$ gg |K |K | gg |R |R | $$$$ | mn| mm| | mn| mm| $$$$ + + + + $$$$ $$$$ +_ + $$$$ |B |B | $$$$ | nn| nm| $$$$ [B ] = |---+---| $$$$ gg |B |B | $$$$ | mn| mm| $$$$ + + $$$$ $$$$ and performs matrix reductions $$$$ $$$$ _ T T T $$$$ [K ] = [K ] + [G ][K ] + [K ][G ] + [G ][K ][G ] $$$$ nn nn m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [R ] = [R ] + [G ][R ] + [R ][G ] + [G ][R ][G ] $$$$ nn nn m mn mn m m mm m $$$$ $$$$ _ T T T $$$$ [B ] = [B ] + [G ][B ] + [B ][G ] + [G ][B ][G ] $$$$ nn nn m mn mn m m mm m $$$$ MCE2 HUSET,GM,HKGG,HRGG,HBGG,/HKNN,HRNN,HBNN, $ ****CARD 1- 3, 6, 8, 9, 55, 59 ****FILE 104 $$$$ LABEL HLBL3 $ ****CARD 1- 3, 6, 8, 9, 55, 59 ****FILE 103,104 $$$$ Equivalence [K ] to [K ], [B ] to [B ], and [R ] to [R ] $$$$ nn ff nn ff nn fn $$$$ if no single-point constraints exist. EQUIV HKNN,HKFF/SINGLE/HRNN,HRFF/SINGLE/HBNN,HBFF/SINGLE $ ****CARD 1- 3, 6, 8- 10, 55, 59 ****FILE 105 $$$$ Go to label HLBL4 if no single-point constraints exist. COND HLBL4,SINGLE $ ****CARD 1- 3, 6, 8- 10, 55, 59 ****FILE 105 $$$$ SCE1 partitions the matrices as follows: $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | ff| fs| $$$$ [K ] = |---+---| $$$$ nn |K |K | $$$$ | sf| ss| $$$$ + + $$$$ $$$$ [R ] and [B ] are partitioned in the same manner, except that only the $$$$ nn nn $$$$ ff partitions are saved. SCE1 HUSET,HKNN,HRNN,HBNN,/HKFF,HKFS,,HRFF,HBFF, $ ****CARD 1- 3, 6, 8- 10, 55, 59 ****FILE 105 $$$$ LABEL HLBL4 $ ****CARD 1- 3, 6, 8- 10, 55, 59 ****FILE 105 $$$$ Equivalence [K ] to [K ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV HKFF,HKAA/OMIT $ ****CARD 1- 3, 6, 8- 11 ****FILE 106 $$$$ Equivalence [R ] to [R ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV HRFF,HRAA/OMIT $ ****CARD 1- 3, 8, 9, 55 ****FILE 121 $$$$ Equivalence [B ] to [B ] if no omitted coordinates exist. $$$$ ff aa $$$$ EQUIV HBFF,HBAA/OMIT $ ****CARD 1- 3, 8, 9, 59 ****FILE 122 $$$$ Go to label HLBL5 if no omitted coordinates exist. COND HLBL5,OMIT $ ****CARD 1- 3, 6, 8- 11, 55, 59 ****FILE 106,121,122 $$$$ SMP1 partitions heat conduction matrix $$$$ $$$$ +_ + $$$$ |K |K | $$$$ | aa| ao| $$$$ [K ] = |---+---| $$$$ ff |K |K | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ -1 $$$$ solves for transformation matrix [G ] = -[K ] [K ] $$$$ o oo oa $$$$ $$$$ _ $$$$ and performs matrix reduction [K ] = [K ] + [K ][G ]. $$$$ aa aa oa o $$$$ SMP1 HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $ ****CARD 1- 3, 6, 8- 11, 55 ****FILE 106 $$$$ Go to label HLBLR if no radiation matrix exists. COND HLBLR,HNLR $ ****CARD 1- 3, 6, 8- 11, 55 ****FILE 121 $$$$ SMP2 partitions constrained radiation matrix $$$$ $$$$ + + $$$$ |_ | $$$$ |R |R | $$$$ | aa| ao| $$$$ [R ] = |---+---| $$$$ ff | | | $$$$ |R |R | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [R ] = [R ] + [R ][G ] + [G ][R ] + [G ][R ][G ] $$$$ aa aa oa o o oa o oo o $$$$ SMP2 HUSET,HGO,HRFF/HRAA $ ****CARD 1- 3, 6, 8- 11, 55 ****FILE 121 $$$$ LABEL HLBLR $ ****CARD 1- 3, 6, 8- 11, 55 ****FILE 121 $$$$ Go to label HLBL5 if no heat capacitance matrix exists. COND HLBL5,NOBGG $ ****CARD 1- 3, 6, 8- 11, 59 ****FILE 122 $$$$ SMP2 partitions reduced heat capacitance matrix $$$$ $$$$ + + $$$$ |_ | $$$$ |B |B | $$$$ | aa| ao| $$$$ [B ] = |---+---| $$$$ ff | | | $$$$ |B |B | $$$$ | oa| oo| $$$$ + + $$$$ $$$$ and performs matrix reduction $$$$ $$$$ _ T T T $$$$ [B ] = [B ] + [B ][G ] + [G ][B ] + [G ][B ][G ] $$$$ aa aa oa o o oa o oo o $$$$ SMP2 HUSET,HGO,HBFF/HBAA $ ****CARD 1- 3, 6, 8- 11, 59 ****FILE 122 $$$$ LABEL HLBL5 $ ****CARD 1- 3, 6, 8- 11, 55, 59 ****FILE 95-106,120-124 $$$$ DPD generates the table defining the displacement sets each degree of $$$$ freedom belongs to (HUSETD), including extra points. It prepares the $$$$ Transfer Function Pool, the Dynamics Load Table, the Nonlinear Function $$$$ Table, and the Transient Response List. DPD DYNAMICS,GPL,HSIL,HUSET/GPLD,HSILD,HUSETD,TFPOOL,HDLT,,, HNLFT,HTRL,,HEQDYN/HLUSET/S,N,HLUSETD/123 /S,N,NODLT/ 123/123/S,N,NONLFT/S,N,NOTRL/123//S,N,NOUE $ ****CARD 1, 9- 11, 57, 60- 62 ****FILE 107 $$$$ Go to label ERROR1 and print Error Message No. 1 if there is no Transient $$$$ Response List. COND ERROR1,NOTRL $ ****CARD 1, 57, 61 ****FILE 107 $$$$ d d $$$$ Equivalence [G ] to [G ] and [G ] to [G ] if no extra points were $$$$ o o m m $$$$ defined. EQUIV HGO,HGOD/NOUE/GM,GMD/NOUE $ ****CARD 1, 57, 61 ****FILE 110 $$$$ PURGE HPPO,HPSO,HPDO,HPDT/NODLT $ ****CARD 1, 57, 61 ****FILE 107 $$$$ 2 2 $$$$ MTRXIN selects the direct input matrices [K ] and [B ]. $$$$ pp pp $$$$ MTRXIN CASECC,MATPOOL,HEQDYN,,TFPOOL/HK2PP,,HB2PP/HLUSETD/ S,N,NOK2PP/123/S,N,NOB2PP $ ****CARD 1, 57, 60 ****FILE 109 $$$$ PARAM //*AND*/KDEKA/NOUE/NOK2PP $ ****CARD 1, 57, 60 ****FILE 109 $$$$ PURGE HK2DD/NOK2PP/HB2DD/NOB2PP $ ****CARD 1- 3, 6, 8- 11, 57, 59, 60 ****FILE 110 $$$$ 1 $$$$ Equivalence [K ] to [K ] if there are no direct input stiffness $$$$ aa dd $$$$ 2 2 $$$$ matrices and no extra points; [b ] to [B ] and [K ] to [K ] if only $$$$ pp dd pp dd $$$$ extra points are used; and [R ] to [R ] if no extra points are used. $$$$ aa dd $$$$ EQUIV HKAA,HKDD/KDEKA/HB2PP,HB2DD/NOA/HK2PP,HK2DD/NOA/HRAA,HRDD/ NOUE $ ****CARD 1- 3, 6, 8- 11, 57, 59, 60 ****FILE 110 $$$$ Go to label HLBL6 if there is no Grid Point Definition Table. COND HLBL6,NOGPDT $ ****CARD 1- 3, 6, 8- 11, 17, 57, 59, 60 ****FILE 110 $$$$ GKAD expands the matrices to include extra points and assembles heat $$$$ conduction, capacitance, and radiation matrices for use in the transient $$$$ analysis: $$$$ $$$$ + + $$$$ |K | | $$$$ 1 | aa| 0 | $$$$ [K ] = |---+---| $$$$ dd | 0 | 0 | $$$$ | | | $$$$ + + $$$$ $$$$ + + $$$$ |B | | $$$$ 1 | aa| 0 | $$$$ [B ] = |---+---| $$$$ dd | 0 | 0 | $$$$ | | | $$$$ + + $$$$ $$$$ + + $$$$ |R | | $$$$ | aa| 0 | $$$$ [R ] = |---+---| $$$$ dd | 0 | 0 | $$$$ | | | $$$$ + + $$$$ $$$$ and $$$$ $$$$ 1 2 $$$$ [K ] = [K ] + [K ] $$$$ dd dd dd $$$$ $$$$ 1 2 $$$$ [B ] = [B ] + [B ] $$$$ dd dd dd $$$$ $$$$ Nonzero values of the parameters W4, G, and W3 (see the PARAM bulk data $$$$ card) are not recommended for use in heat transfer analysis and therefore $$$$ do not appear in the above equations. GKAD HUSETD,GM,HGO,HKAA,HBAA,HRAA,,HK2PP,,HB2PP/HKDD,HBDD, HRDD,GMD,HGOD,HK2DD,,HB2DD/*TRANRESP*/*DISP*/ *DIRECT*/C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/-1/ NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ -1/NOBGG/NOSIMP/-1 $ ****CARD 1- 3, 6, 8- 11, 17, 57, 59, 60 ****FILE 110 $$$$ LABEL HLBL6 $ ****CARD 1- 3, 6, 8- 11, 17, 57, 59, 60 ****FILE 110 $$$$ 2 2 $$$$ Equivalence [K ] to [K ] and [B ] to [B ] if no matrices were $$$$ dd dd dd dd $$$$ generated from the element heat conduction and capacitance assemblers. EQUIV HK2DD,HKDD/NOSIMP/HB2DD,HBDD/NOGPDT $ ****CARD 1- 3, 6, 8- 11, 57, 59, 60 ****FILE 110 $$$$ PARAM //*MPY*/REPEATT/1/-1 $ ****CARD 1- 3, 6, 8- 11, 57, 59, 60 ****FILE 110 $$$$ Beginning of loop for additional dynamic load sets. LABEL HLBL10 $ ****SBST 1, 3 ****RFMT 187-204,207,208 $$$$ CASE extracts the appropriate record from CASECC corresponding to the $$$$ current loop and copies it into CASEXX. CASE CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $ ****CARD 1- 3, 6, 8- 11, 13, 16, 19, 21- 23, 25, 55- 57, 59- 62 ****FILE 108 $$$$ o o $$$$ TRLG generates matrices of heat flux loads versus time. {P }, {P }, and $$$$ p s $$$$ o t $$$$ {P } are generated with one column per output time step. {P } is $$$$ d d $$$$ generated with one column per solution time step, and the Transient $$$$ Output List is a list of output time steps. TRLG CASEXX,HUSETD,HDLT,HSLT,BGPDT,HSIL,CSTM,HTRL,DIT,GMD,HGOD,, HEST,,/HPPO,HPSO,HPDO,HPDT,,HTOL/S,N,NOSET $ ****CARD 1- 3, 6, 8- 11, 55, 57, 61 ****FILE 117 $$$$ o o $$$$ Equivalence {P } to {P } if the d and p sets are the same. $$$$ p d $$$$ EQUIV HPPO,HPDO/NOSET $ ****CARD 1- 3, 6, 8- 11, 55, 57, 61 ****FILE 117 $$$$ TRHT integrates the equation of motion: $$$$ $$$$ . $$$$ [B ]{u} + [K ]{u} = {P } + {N } $$$$ dd dd d d $$$$ $$$$ where $$$$ $$$$ {u} is a vector of the temperatures at any time $$$$ . $$$$ {u} is the time derivative of {u} ("velocity") $$$$ $$$$ {P } is the applied heat flux at any time step $$$$ d $$$$ $$$$ {N } is the total nonlinear heat flux from radiation and/or NOLINi $$$$ d data, extrapolated from the previous solution vector $$$$ $$$$ t $$$$ The output consists of the [u ] matrix containing temperature vectors $$$$ d $$$$ and temperature "velocity" vectors for the output time steps. TRHT CASEXX,HUSETD,HNLFT,DIT,GPTT,HKDD,HBDD,HRDD,HPDT,HTRL/ HUDVT,HPNLD/C,Y,BETA=.55/C,Y,TABS=0.0/HNLR/C,Y,RADLIN=-1/ C,Y,SIGMA=0.0 $ ****CARD 1- 3, 6, 8- 11, 13, 55- 57, 59- 62 ****FILE 111 $$$$ VDR prepares the solution set temperatures, temperature "velocities", and $$$$ nonlinear loads, sorted by time step, for output. VDR CASEXX,HEQDYN,HUSETD,HUDVT,HTOL,XYCDB,HPNLD/HOUDV1,HOPNL1/ *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $ ****CARD 13, 19- 21, 27, 55- 57, 59- 62 ****FILE 112 $$$$ Go to label HLBL7 if there is no output request for the solution set. COND HLBL7,NOD $ ****CARD 13, 21, 27, 55- 57, 59- 62 ****FILE 113,128 $$$$ SDR3 prepares the requested output of the solution set temperatures, $$$$ temperature "velocities", and nonlinear loads sorted by point number or $$$$ element number. SDR3 HOUDV1,HOPNL1,,,,/HOUDV2,HOPNL2,,,, $ ****CARD 13, 21, 27, 55- 57, 59- 62 ****FILE 113 $$$$ OFP formats the tables prepared by SDR3 for output sorted by point number $$$$ or element number and places them on the system output file for printing. OFP HOUDV2,HOPNL2,,,,//S,N,CARDNO $ ****CARD 13, 21, 55- 57, 59- 62 ****FILE 113 $$$$ XYTRAN prepares the input for requested X-Y plots of the solution set $$$$ quantities. XYTRAN XYCDB,HOUDV2,HOPNL2,,,/HXYPLTTA/*TRAN*/*DSET*/S,N,HPFILE/ S,N,HCARDNO $ ****SBST 7 ****CARD 27 ****FILE 128 $$$$ XYPLOT prepares the requested X-Y plots of the solution set temperatures, $$$$ "velocities", and nonlinear loads versus time. XYPLOT HXYPLTTA// $ ****SBST 7 ****CARD 27 ****FILE 128 $$$$ LABEL HLBL7 $ ****CARD 21, 27 ****FILE 113,128 $$$$ PARAM //*AND*/PJUMP/NOP/JUMPPLOT $ ****CARD 1- 3, 6, 8- 11, 22, 23, 57, 59- 62 ****FILE 114 ****RFMT 187-204,207,208 $$$$ Go to label HLBL9 if no further output is requested. COND HLBL9,PJUMP $ ****CARD 1- 3, 6, 8- 11, 18- 20, 22, 23, 55- 57, 59- 62 ****FILE 114-116,125-127 ****RFMT 187-204,207,208 $$$$ Equivalence {u } to {u } if no structure points were input. $$$$ d p $$$$ EQUIV HUDVT,HUPV/NOA $ ****CARD 1- 3, 6, 8- 11, 22, 23, 57, 59- 62 ****FILE 114 ****RFMT 187-204,207,208 $$$$ Go to label HLBL8 if no structure points were input. COND HLBL8,NOA $ ****CARD 1- 3, 6, 8- 11, 22, 23, 57, 59- 62 ****FILE 114 ****RFMT 187-204,207,208 $$$$ SDR1 recovers dependent temperatures $$$$ $$$$ u $$$$ d d $$$$ {--} = {u } , {u } = [G ]{u } , $$$$ u f o o d $$$$ o $$$$ $$$$ u +u $$$$ f e $$$$ {-----} = {u } , $$$$ u n $$$$ s $$$$ $$$$ u +u $$$$ d n e $$$$ {u } = [G ]{u +u } , {-----} = {u } $$$$ m m f e u p $$$$ m $$$$ $$$$ The module also recovers the heat flux into the points having single- $$$$ point constraints: $$$$ $$$$ T $$$$ {q } = -{P } + [K ]{u } $$$$ s s fs f $$$$ SDR1 HUSETD,,HUDVT,,,HGOD,GMD,HPSO,HKFS,,/HUPV,,HQP/1/ *DYNAMICS* $ ****CARD 1- 3, 6, 8- 11, 22, 23, 57, 59- 62 ****FILE 114 ****RFMT 187-204,207,208 $$$$ LABEL HLBL8 $ ****CARD 1- 3, 6, 8- 11, 22, 23, 57, 59- 62 ****FILE 114 ****RFMT 187-204,207,208 $$$$ SDR2 calculates requested heat flux transfer in the elements and prepares $$$$ temperatures, "velocities", and heat flux loads for output sorted by time $$$$ step. SDR2 CASEXX,CSTM,MPT,DIT,HEQDYN,HSILD,,,BGPDP,HTOL,HQP,HUPV,HEST, XYCDB,HPPO,/HOPP1,HOQP1,HOUPV1,HOES1,HOEF1,HPUGV,,/ *TRANRESP* $ ****CARD 18- 20 ****FILE 115 $$$$ SDRHT modifies the HOEF1 data block by combining the heat flow data from $$$$ different sources for the HBDY elements and writes the results on the $$$$ HOEF1X output data block. SDRHT HSILD,HUSETD,HUPV,HOEF1,HSLT,HEST,DIT,HQGE,HDLT,/HOEF1X/C,Y, TABS/HNLR $ ****CARD 18- 20 ****FILE 125 $$$$ Equivalence HOEF1 data block to HOEF1X data block. EQUIV HOEF1X,HOEF1/MINUS1 $ ****CARD 18- 20 ****FILE 125 $$$$ SDR3 prepares requested output sorted by point number or element number. SDR3 HOPP1,HOQP1,HOUPV1,HOES1,HOEF1,/HOPP2,HOQP2,HOUPV2,HOES2, HOEF2, $ ****CARD 18- 20 ****FILE 116 $$$$ OFP formats the tables prepared by SDR3 for output and places them on the $$$$ system output file for printing. OFP HOPP2,HOQP2,HOUPV2,HOEF2,HOES2,//S,N,CARDNO $ ****CARD 19 ****FILE 116 $$$$ Go to label HP2 if no temperature profile plots are requested. COND HP2,JUMPPLOT $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ PLOT generates all requested temperature profile plots and thermal $$$$ contours for specified times. PLOT PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,HSIP,,HPUGV, HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/ S,N,PFILE $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ PRTMSG prints plotter data, engineering data, and contour data for each $$$$ temperature profile and thermal contour plot generated. PRTMSG PLOTX2// $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ LABEL HP2 $ ****SBST 7 ****CARD 18 ****FILE 126 $$$$ XYTRAN prepares the input for requested X-Y plots. XYTRAN XYCDB,HOPP2,HOQP2,HOUPV2,HOES2,HOEF2/HXYPLTT/*TRAN*/*PSET*/S,N, PFILE/S,N,CARDNO $ ****SBST 7 ****CARD 20 ****FILE 127 $$$$ XYPLOT prepares the requested X-Y plots of temperatures, "velocities", $$$$ element flux, and applied heat loads versus time. XYPLOT HXYPLTT// $ ****SBST 7 ****CARD 20 ****FILE 127 $$$$ LABEL HLBL9 $ ****CARD 20 ****FILE 114-116,125-127 $$$$ Go to label FINIS and make normal exit if no additional dynamic load sets $$$$ need to be processed. COND FINIS,REPEATT $ ****SBST 1, 3 ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ Go to label HLBL10 if additional dynamic load sets need to be processed. REPT HLBL10,100 $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,207,208 $$$$ Print Error Message No. 2 and terminate execution. PRTPARM //-2/*HTRD* $ ****SBST 1, 3 ****CARD 22, 23 ****RFMT 187-204,207,208 $$$$ Go to label FINIS and make normal exit. JUMP FINIS $ ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ LABEL ERROR1 $ ****CARD 1, 57, 61 ****FILE 97 ****RFMT 187-204,207,208 $$$$ Print Error Message No. 1 and terminate execution. PRTPARM //-1/*HTRD* $ ****CARD 1, 57, 61 ****FILE 97 ****RFMT 187-204,207,208 $$$$ LABEL FINIS$ ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ PURGE DUMMY/MINUS1 $ ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ END $ ****CARD 1- 3, 6, 8- 23, 25, 55- 57, 59- 62 ****RFMT 187-204,207,208 $$$$ $*CARD BITS 1 CDAMP1 CDAMP2 CDAMP3 CDAMP4 CELAS1 CELAS2 CELAS3 1 CELAS4 1 CORD1C CORD1R CORD1S CORD2C CORD2R CORD2S GRDSET 1 GRID SEQGP SPOINT 2 ADUM1 ADUM2 ADUM3 ADUM4 ADUM5 ADUM6 ADUM7 2 ADUM8 2 ADUM9 BAROR CBAR CDUM1 CDUM2 CDUM3 CDUM4 2 CDUM5 2 CDUM6 CDUM7 CDUM8 CDUM9 CELBOW CFTUBE CHBDY 2 CHEXA1 2 CHEXA2 CIHEX1 CIHEX2 CIHEX3 CIS2D8 CONROD CQDMEM 2 CQDMEM1 CQDMEM2 CQUAD1 CQUAD2 CROD CTETRA CTRAPRG 2 CTRIA1 CTRIA2 CTRIARG CTRMEM CQUAD4 CTRIA3 2 CTUBE CWEDGE 3 PBAR PDUM1 PDUM2 PDUM3 PDUM4 PDUM5 PDUM6 3 PDUM7 3 PDUM8 PDUM9 PELBOW PFTUBE PHBDY PIHEX PIS2D8 3 PQDMEM PQDMEM1 PQDMEM2 PQUAD1 PQUAD2 PROD PTUBE 3 PTRIA1 PTRIA2 PTRMEM PSHELL PCOMP PCOMP1 PCOMP2 6 PELAS 8 MAT1 MAT2 MAT3 MAT4 MAT5 MATT1 MATT2 8 MATT3 MATT4 MATT5 MAT8 TABLEM1 TABLEM2 TABLEM3 8 TABLEM4 TEMPMT$ TEMPMX$ 9 MPC MPCADD MPC$ 10 SPC SPC1 SPCADD SPC$ 11 ASET ASET1 OMIT OMIT1 SUPAX SUPORT 13 TEMP TEMPD TEMPP1 TEMPP2 TEMPP3 TEMPRB 14 ASETOUT 15 AUTOSPC 16 PLOTEL 17 G W3 W4 18 PLOT$ 19 POUT$ 20 XYOUT$ 21 AOUT$ 22 LOOP$ 23 LOOP1$ 25 NOLOOP$ 27 AXYOUT$ 55 RADMTX RADLST SIGMA TABS TREF 56 QBDY1 QBDY2 QVECT QHBDY QVOL LOAD SLOAD 57 EPOINT SEQEP TF 59 PDAMP 60 DMIG B2PP$ K2PP$ TF$ 61 DAREA DELAY DLOAD DLOAD$ TABLED1 TABLED2 TABLED3 61 TABLED4 TSTEP$ TLOAD1 TLOAD2 TSTEP 62 BETA IC$ NLFORCE NOLIN1 NOLIN2 NOLIN3 NOLIN4 62 NOLIN5 NOLIN6 RADLIN NFTUBE TIC $$$$ $*FILE BITS 94 BGPDT CSTM EQEXIN GPDT GPL HSIL 95 ECT 96 GPTT HSLT 97 HEST HGPECT 98 HKGGX 99 HBGG 100 HKGG HRGG HQGE 101 RG ASET HUSET OGPST 102 GPST 103 GM 104 HBNN HKNN HRNN 105 HBFF HKFF HKFS HRFF 106 HGO HKOO HLOO HKAA 107 HDLT HEQDYN GPLD HNLFT HSILD TFPOOL HTRL 107 HUSETD 108 CASEXX 109 HB2PP HK2PP 110 HB2DD HM2DD HBDD GMD HGOD HK2DD HKDD 110 HRDD 111 HPNLD HUDVT 112 HOUDV1 HOPNL1 113 HOUDV2 HOPNL2 114 HQP HUPV 115 HOES1 HOEF1 HOPP1 HOQP1 HOUPV1 HPUGV 116 HOES2 HOEF2 HOPP2 HOQP2 HOUPV2 117 HPDO HPDT HPPO HPSO HTOL 118 BGPDP HSIP 120 ELSETS GPSETS PLTPAR PLTSETX 121 HRAA 122 HBAA 123 HKDICT HKELM HBDICT HBELM 124 PLOTX1 125 HOEF1X 126 PLOTX2 127 HXYPLTT 128 HXYPLTTA $* ================================================ FILE: um/SUBS.TXT ================================================ =PAGE= 2.7 SUBSTRUCTURE CONTROL DECK The Substructure Control Deck options provide to you commands needed to control the execution of NASTRAN for automated multi-stage substructure analyses. These commands are input on cards with the same format conventions as are used for the normal NASTRAN Case Control Deck. Initiation of a substructure analysis is achieved via the Executive Control Deck command (see Section 2.2): APP DISPLACEMENT,SUBS This command directs NASTRAN to automatically generate the required sequence of DMAP ALTERs to the specified Rigid Format necessary to perform the operations requested in the Substructure Control Deck. Following the Substructure Control Deck in the NASTRAN input data stream comes the standard Case Control Deck which specifies the loading conditions, omit sets, method of eigenvalue extraction, element sets for plotting, plot control, output requests, etc. The Substructure Control Deck commands are summarized in Table 2.7-1 where they are listed under one of three categories according to whether they: 1. Specify the phase and mode of execution 2. Specify the substructuring matrix operations 3. Define and control the substructure operating file (SOF) Several commands have associated with them a set of subcommands used to specify additional control information appropriate to the processing requested by the primary command. These subcommands are defined together with the alphabetically sorted descriptions of their primary commands in Section 2.7.3. Examples utilizing these commands are presented in Section 1. The sections that follow discuss the interaction between the substructure commands and the standard case control commands, the translation of substructure commands into DMAP ALTER sequences, and the format conventions to be used. The bulk data cards provided for substructure analyses are included with the standard bulk data descriptions in Section 2.3 and they are summarized for convenient reference in Table 2.7-2. =PAGE= Table 2.7-1. Summary of Substructure Commands # Mandatory Control Cards * Required Subcommand A. Phase and Mode Control #SUBSTRUCTURE Defines execution phase (1, 2, or 3) (Required) NAME* Specifies Phase 1 substructure name SAVEPLOT Requests plot data be saved in Phase 1 OPTIONS Defines matrix options (K, B, K4, M, P, or PA) RUN Limits mode of execution (DRY, GO, DRYGO, STEP) #ENDSUBS Terminates Substructure Control Deck (Required) B. SOF Controls #SOF Assigns physical files for storage of the SOF (Required) #PASSWORD Protects and ensures access to correct file SOFOUT or SOFIN Copies SOF data to or from an external file POSITION Specifies initial position of input file NAMES Specifies substructure name used for input ITEMS Specifies data items to be copied in or out SOFPRINT Prints selected items from the SOF DUMP Dumps entire SOF to a backup file RESTORE Restores entire SOF from a previous DUMP operation CHECK Checks contents of external file created by SOFOUT DELETE Edits out selected groups of items from the SOF EDIT Edits out selected groups of items from the SOF DESTROY Destroys all data for a named substructure and all the substructures of which it is a component C. Substructure Operations COMBINE Combines sets of substructures NAME* Names the resulting substructure TOLERANCE* Limits distance between automatically connected grids CONNECT Defines sets for manually connected grids and releases OUTPUT Specifies optional output results COMPONENT Identifies component substructure for special processing TRANSFORM Defines transformations for named component substructures SYMTRANSFORM Specifies symmetry transformation SEARCH Limits search for automatic connects EQUIV Creates a new equivalent substructure PREFIX* Prefix to rename equivalenced lower level substructures REDUCE Reduces substructure matrices NAME* Names the resulting substructure BOUNDARY* Defines set of retained degrees of freedom OUTPUT Specifies optional output requests RSAVE Save REDUCE decomposition product MREDUCE Reduces substructure matrices NAME* Names the resulting substructure BOUNDARY* Defines set of retained degrees of freedom FIXED Defines set of constrained degrees of freedom for modes calculation RNAME Specifies basic substructure to define reference point for inertia relief shapes RGRID Specifies grid point in the basic substructure to define reference point for inertia relief shapes. Defaults to origin of basic substructure coordinate system METHOD Identifies EIGR Bulk Data card RANGE Identifies frequency range for retained modal coordinates NMAX Identifies number of lowest frequency modes for retained modal coordinates OLDMODES Flag to identify re-running problem with previously computed modal data OLDBOUND Flag to identify re-running problem with previously defined boundary set USERMODES Flag to indicate modal data have been input on bulk data OUTPUT Specifies optional output requests =PAGE= Table 2.7-1. Summary of Substructure Commands (continued) RSAVE Indicates the decomposition product of the interior point stiffness matrix is to be stored on the SOF CREDUCE Reduces substructure matrices using a complex modes transformation NAME* Names the resulting substructure BOUNDARY* Defines set of retained degrees of freedom FIXED Defines set of constrained degrees of freedom for modes calculation METHOD Identifies EIGC Bulk Data card RANGE Identifies frequency range of imaginary part of the root for retained modal coordinates NMAX Identifies number of lowest frequency modes for retained modal coordinates OLDMODES Flag to identify re-running problem with previously computed modal data RSAVE Indicates the decomposition product of the interior point stiffness matrix is to be stored on the SOF MRECOVER Recovers mode shape data from an MREDUCE or CREDUCE operation SAVE Stores modal data on SOF PRINT Stores modal data and prints data requested SOLVE Initiates substructure solution (statics, normal modes, frequency response or transient analysis) RECOVER Recovers Phase 2 solution data SAVE Stores solution data on SOF PRINT Stores solution and prints data requested DISP Displacement output request SPCF Reaction force output request OLOAD Applied load output request VELO Velocity output requests ACCE Acceleration output requests BASIC Basic substructure for output requests SORT Output sort order SUBCASES Subcase output request MODES Modes output request RANGE Mode range output request ENERGY Modal energies output requests UIMPROVE Improved displacement request STEPS Frequency or time step output request BRECOVER Basic Substructure data recovery, Phase 3 PLOT Initiates substructure undeformed plots =PAGE= Table 2.7-2. Substructure Bulk Data Card Summary. A. Bulk Data Used for Processing Substructure Commands REDUCE, MREDUCE, and CREDUCE BDYC Combination of substructure boundary sets of retained degrees of freedom or fixed degrees of freedom for modes calculation BDYS Boundary set definition BDYS1 Alternate boundary set definition B. Bulk Data Used for Processing Substructure Command COMBINE CONCT Specifies grid points and degrees of freedom for manually specified connectivities - will be overridden by RELES data CONCT1 Alternate specification of connectivities RELES Specifies grid point degrees of freedom to be disconnected - overrides CONCT and automatic connectivities GTRAN Redefines the output coordinate system grid point displacement sets TRANS Specifies coordinate systems for substructure and grid point transformations C. Bulk Data used for Processing Substructure Command SOLVE LOADC Defines loading conditions for static analysis MPCS Specifies multipoint constraints SPCS Specifies single point constraints SPCS1 Alternate specification of single point constraints SPCSD Specifies enforced displacements for single point constraints DAREAS Defines dynamic load scale factors DELAYS Defines dynamic load time delays DPHASES Defines dynamic load Phase leads TICS Defines transient initial conditions 2.7.1 Commands and Their Execution The sequence of operations is controlled by the order in which NASTRAN encounters the sub-structure commands. A few special data cards are required in any Substructure Command Deck. These are: PHASE1 SUBSTRUCTURE PHASE2 The first card of the Substructure Command Deck PHASE3 and it follows the CEND card of the Executive Control Deck. SOF Required to define the substructure operating file to be PASSWORD used for this execution. ENDSUBS Signals the end of the Substructure Command Deck. The first step of any substructuring analysis is to define the basic substructures to be used. These are prepared by executing one Phase 1 run for each substructure. Checkpoints may be taken for each Phase 1 execution to save the files to be used during the Phase 3 data recovery runs. Alternatively, you may resubmit your entire original data deck for a Phase 3 run, thereby avoiding a proliferation of checkpoint tapes. During a Phase 2 execution, a long list of instructions may be specified. This list may be split up and run in several separate smaller steps. No checkpointing is required during a Phase 2 run in that all pertinent substructure data will be retained on the substructure operating file (SOF). The Case Control Deck submitted following the ENDSUBS card will be used to direct the processing appropriate to the particular phase being executed. During a Phase 1 run, the Case Control will be used to define the loading conditions, single and multipoint constraints (only one set may be used per basic substructure), omits, and desired plot sets. During a Phase 2 run, the Case Control will be used to specify the loads and constraint data for the SOLVE operation, outputting of results, or any plot requests. Finally, for a Phase 3 execution, the Case Control Deck is used to define the detail output and plot requests for each basic substructure. Normal substructuring analyses will require many steps to be executed under Phase 2 processing. They may all be submitted for processing at once, or they may be divided into several shorter sequences and executed separately. If there is an abnormal termination, several steps may have been successfully executed. To recover requires simply removing those completed steps from the Substructure Control Deck and re-submitting the remaining commands. The SOF will act as the checkpoint/restart file independently of the normal NASTRAN checkpointing procedures. If the solution structure is large, a NASTRAN checkpoint would be recommended to save intermediate results during the SOLVE operation. If this is done, however, care must be exercised on restart to insure correct re-entry into the DMAP sequence. This may be accomplished by removing all substructure control commands preceding the SOLVE, modifying the Case Control Deck and Bulk Data Deck to change set identifiers only if any new loads or constraint sets are to be specified, and re-submitting the job. If no changes are to be made which would affect the SOLVE operations, a regular restart can be executed without changing the original Case Control and Bulk Data Decks. You may wish to add to or modify the DMAP sequence generated automatically from the Substructure Control Deck commands. This user interaction with the DMAP operations is explained in the following section. 2.7.2 Interface with NASTRAN DMAP Each substructure command card produces a set of DMAP ALTER cards which are automatically inserted into the Rigid Format called for execution on the SOL card of the Execution Control Deck (Section 2.2). These automatically generated ALTERs require no user interfacing unless you wish to exercise the following options: 1. You may insert ALTER cards in the Executive Control Deck. However, they may not overlap any DMAP cards affected by the substructure ALTERs. The DMAP card numbers, modified for each Rigid Format, are given in Sections 2.1, 2.2, 2.3, 2.8, and 2.9 of Volume II. 2. You may suppress the DMAP generated by the substructure deck and run with either ALTER cards or with approach DMAP. To suppress the automatic DMAP, the following forms of the executive control card APP are provided. APP DISP,SUBS,1 (Retains execution of the substructuring preface operations) or APP DMAP (Standard NASTRAN is executed) 3. For user information and convenience, the substructure ALTER packages may be printed and/or punched on cards. The executive control card, DIAG 23, will produce the printout. DIAG 24 will produce the punched deck. The punched deck may then be altered by you and resubmitted as described in (2) above. However, the order of the associated substructure command deck must not be changed, to insure proper sequencing of the requested operations. 2.7.3 Substructure Control Card Descriptions The format of the substructure control cards is free-field. Blanks are used to separate the control words. Either a blank or an equal sign (=) can be used in an assignment statement. Comment cards, signalled by a dollar sign ($) in card column 1, can be inserted anywhere in the Substructure Control Deck and may contain any alphanumeric characters you desire. Only the first four characters of each control word need be used so long as that option is uniquely identified. A summary of Substructure Control cards is given in Table 2.7-1. In presenting general formats for each card embodying all options, the following conventions are used: 1. Upper-case letters and parentheses must be punched as shown. 2. Lower-case letters indicate that a substitution must be made. 3. Double brackets indicate that a choice of contents is mandatory. 4. Brackets contain an option that may be omitted or included by you. 5. First listed options or values are the default values. 6. Physical card consists of information punched in columns 1 through 72 of a card. All Substructure Control cards are limited to a single physical card. The Case Control Deck, which follows the ENDSUBS card of the Substructure Control Deck, is described in Section 2.3. =PAGE= BRECOVER - Basic Substructure Data Recovery Purpose This operation is performed in Phase 3 to recover detailed output data for a basic substructure used in Phase 1. Request Format BRECOVER name Subcommands None. Definitions name Name of structure defined in Phase 1 or structure equivalenced to the Phase 1 structure. Remarks 1. Use of the RECOVER command in Phase 3 has the same effect as BRECOVER. That is, RECOVER is an alias for BRECOVER in Phase 3. 2. Phase 3 may be a RESTART of the original Phase 1 run or it may be executed from the original input data. =PAGE= CHECK - Check Contents of External File Purpose To list all substructure items on an external file which was generated with SOFOUT. Request Format TAPE CHECK filename , DISK Subcommands None. Definitions filename Name of the external file. One of the following: INPT, INP1,..., INP9. TAPE File resides on tape. DISK File resides on a direct access device. Remarks 1. The substructure name, item name, and the date and time the item was written are listed for each item on the file. =PAGE= COMBINE - Combine Sets of Substructures Purpose This command will perform the operations to combine the matrices and load up to seven substructures into matrices and loads representing a new pseudostructure. Each component structure may be translated, rotated, and reflected before it is connected. You may manually select the points to be connected or direct the program to connect them automatically. Request Format AUTO X COMBINE ( MAN , Y ) name1, name2, etc. Z Subcommands NAME new name (required) TOLERANCE (required) CONNECT n OUTPUT m1, m2,... Each individual component substructure may have the following added commands: COMPONENT = name TRANSFORM = m X Y repeat Z for each SYMTRANSFORM = XY component XZ YZ XYZ SEARCH = namej, namek, etc. Definitions AUTO/MAN Defines method of connecting points. If AUTO is chosen, the physical location of grid points is used to automatically determine connections. If MAN is chosen, all connections must be manually defined on CONCT or CONCT1 bulk data cards. X, Y, 2 Are used on COMBINE card for searching geometry data for AUTO connections. Denotes preferred search direction for processing efficiency. See Remark 1. name1, name2, etc. Unique names of substructures to be combined. Limits are from one to seven component structures. See Remarks 5 and 6. new name Defines name of combination structure (required). Defines limit of distance between points which will be automatically connected (real > 0). n Defines set number of manual connections and releases specified on bulk data cards, CONCT, CONCT1, and RELES. name On COMPONENT card defines the substructure (name1, etc.) to which the subsequent data is applied. m Set identification number of TRANS and GTRAN bulk data cards which define the orientation of the substructure and/or selected grid points relative to new basic coordinates. See Remarks 2 and 3. X,Y,...XY,...XYZ Defines axis (or set of axes) normal to the plane(s) of symmetry in the new basic coordinate system. The displacement and location coordinates in these directions will be reversed in sign. See Remarks 2 and 3. namej Limits the automatic connection process such that only connections between component "name" and these structures are produced. Multiple search commands may appear for any one component. See Remark 4. m1, m2, etc. Optional output requests. See Remark 7. Remarks 1. The automatic connections are produced by first sorting the grid point coordinates in the specified coordinate direction and then searching within limited groups of coordinates. If the boundary of a substructure to be connected is aligned primarily along one of the coordinate axes, this axis should be used as the preferred search direction. If the boundary is parallel with, say, the yz plane and all boundary coordinates have a constant x value, then the search should be specified along either the y or the z axis. 2. The transformation (TRANS) data defines the orientation of the component substructure (old basic) in terms of the new basic coordinate system. All grid points originally defined in the old basic system will be transformed to the new basic system. Points defined in local coordinate systems will not be transformed unless otherwise specified on a GTRAN card, and their directions will rotate with the substructure. 3. The SYMTRANSFORM (or SYMT) request is primarily used to produce symmetric reflections of a structure. This is usually preceded by an EQUIV command to produce a new, unique substructure name. Note that the results for the new reflected substructure may reference a left-handed coordinate system wherever local coordinate systems are retained during the transformation. However, those coordinates which are originally in the old basic or are newly specified via a GTRAN card are automatically transformed to a right-handed coordinate system of the combined structure during the combination process. Note that the symmetric reflection occurs first using the component's own basic coordinate system before the translational and rotational transformation called for by TRANS. 4. If any search option is present, then all connections between substructures must be specified explicitly with SEARCH commands. Only those combinations specified will be searched for possible connects. Symmetric connects need not be declared (that is, COMPONENT A SEARCH B implies COMPONENT B SEARCH A). You are warned that care must be taken to assure all proper connections of substructures should any SEARCH commands be utilized. 5. The program automatically processes matrix data for the COMBINE operation in the most economical order, that is, the matrices with fewest terms are processed first. 6. The bandwidth of the resultant matrices may be controlled by selection of substructures, their boundaries, and the order in which the substructures are listed in the COMBINE command. The degrees of freedom in the resultant matrices are located as defined in the sample problem below: COMBINE A, B, C, D A interior ABC boundary AB boundary C interior B interior AD boundary AC boundary BD boundary BC boundary Etc. 7. The following output requests are available for the COMBINE operation (* marks recommended output options): CODE OUTPUT 2* SOF table of contents 3 CONCT1 bulk data summary 4 CONCT bulk data summary 6 GTRAN bulk data summary 7* TRANS bulk data summary 9 RELES bulk data summary 11 Summary of automatically-generated connections (in terms of internal point numbers) 12* Complete connectivity map of final combined pseudostructure defining each internal point in terms of the grid point ID and component substructure it represents 13 The EQSS item 14 The BGSS item 15 The CSTM item 16 The PLTS item 17 The LODS item For requests 13-17, output printed is formatted SOF data for the newly created pseudostructure (see Section 1.10.2 for definitions). Examples 1. COMBINE PANEL SPAR TOLE = .0001 NAME = SECTA 2. COMBINE (AUTO,Z) TANK1, TANK2, BULKHD NAME = TANKS TOLE = .01 COMPONENT TANK1 TRAN = 4 SEARCH = BULKHD COMPONENT TANK2 SEARCH = BULKHD 3. COMBINE (MAN) LWING, RWING TOLE = 1.0 NAME = WING COMPONENT LWING SYMT = Y =PAGE= CREDUCE - Reduces Substructure Matrices Using Complex Modes Purpose This command performs a complex modal synthesis reduction on a specified component substructure. The resulting substructure will be defined by boundary point displacements and modal displacements as degrees of freedom. The operation is allowed in both Phase 1 and Phase 2 jobs and may be performed at any level of the substructure process. Request Format CREDUCE name Subcommands NAME new name (required) BOUNDARYb (required) FIXED f METHOD k RANGE f1, f2 NMAX N OUTPUT m1, m2 OLDMODESm GPARAM g RSAVE (See Remark 4) Definitions name Name of substructure to be reduced new name Name of resulting substructure b Set identification number of BDYC bulk data cards which define sets of boundary degrees of freedom (Integer > 0). See Remark 1. f Optionally identifies BDYC data defining degrees of freedom temporarily fixed during mode extraction (Integer >= 0, default = 0) k Identifies EIGC bulk data card for control of the eigenvalue extraction (Integer > 0) f1, f2 Optional frequency range (Hz) for the imaginary part of the root defining eigenvectors to be used in the mode synthesis formulation (Real, default = ALL) N Optional number of lowest modes, measured by magnitude of eigenvalue, within frequency range to be used in mode synthesis formulation (Integer, default = ALL) m1, m2 Optional output requests. See Remark 2. m Flag for re-running problem with old eigenvectors (YES or NO). See Remark 3. g Structure damping parameter (real) Remarks 1. All references to the grid points and components not defined in the "boundary set" will be reduced out of the new substructure. Any subsequent reference to these omitted degrees of freedom in COMBINE, CREDUCE, or SOLVE operations generates an error condition. 2. The following output requests are available for the CREDUCE operation (* marks recommended output options): CODE OUTPUT 1* Current problem summary 2 Boundary set summary 3 Summary of grid point ID numbers in each boundary set 4 The EQSS item for the structure being reduced 5* The EQSS item 6* The BGSS item 7 The CSTM item 8 The PLTS item 9* The LODS 10* Modal dof set summary 11 Fixed set summary 12 Summary of grid point ID numbers in each fixed set Requests 5-8 write formatted SOF items for the new reduced pseudostructure. 3. The OLDMODES option instructs the program to use the existing modal data but create new boundary matrices for a new boundary set. To exercise the OLDMODES option, you must use the following sequence of commands to eliminate previously calculated boundary point data: EDIT(32) new name (previous modal reduction name) DELETE name, GIMS, LMTX, HLFT, HORG, UPRT DELETE name, POVE, POAP CREDUCE name : : 4. If the RSAVE card is included, the decomposition product of the interior point stiffness matrix (LMTX item) is saved on the SOF file. This matrix will be used in the data recovery for the omitted points. If it is not saved, it will be regenerated when needed. =PAGE= DELETE - Delete Items from SOF Purpose To delete individual substructure items from the SOF. Request Format DELETE name, item1, item2, item3, item4, item5 Subcommands None. Definitions name Substructure name item1, item2,... Item names (HORG, KMTR, LODS, SOLN, etc.) Remarks 1. DELETE may be used to remove from one to five items of any single substructure. 2. For primary substructures, items of related secondary substructures are removed only if the latter point to the same data (KMTX, MMTX, etc.). 3. For secondary and image substructures, no action is taken on items of related substructures, that is, items of equivalenced substructures or higher or lower level substructures. 4. See the EDIT and DESTROY commands for other means of removing substructure data. =PAGE= DESTROY - Removes All Data Referencing a Component Substructure Purpose To remove data for a substructure and all substructures of which it is a component from the SOF. In addition to the substructure being DESTROYed ("name"), data for substructures which satisfy one or more of the following conditions are also removed from the SOF: 1. All substructures of which "name" is a component 2. All secondary (or equivalenced) substructures for which "name" is the primary substructure 3. All image substructures which are components of a substructure that is destroyed Request Format DESTROY name Subcommands None. Definitions name Name of substructure Remarks 1. No action is taken if "name" is an image substructure. 2. See related commands EDIT and DELETE for additional means of removing substructure data. =PAGE= DUMP - Copy SOF to External File Purpose To copy the entire SOF to an external file. Request Format TAPE DUMP filename , DISK Subcommands None Definitions filename Name of the external file. Any one of the following: INPT, INP1,..., INP9. TAPE File resides on tape. DISK File resides on a direct access device. Remarks 1. DUMP may be used to create a backup copy of the SOF. 2. All system information on the SOF is saved. 3. The RESTORE command will reload a DUMPed SOF. 4. DUMP/RESTORE may not be used to change the size of the SOF. 5. It is more efficient to use operating system utility programs, if available, to create back-up copies of the SOF. =PAGE= EDIT - Selectively Removes Data from SOF File Purpose To permanently remove selected substructure data from the SOF. Request Format EDIT (opt) name Subcommands None. Definitions name Name of substructure. opt Integer value reflecting combinations of requests. The sum of the following integers defines the combination of data items to be removed from the SOF. OPT ITEMS REMOVED 1 Stiffness matrix (KMTX) 2 Mass matrix (MMTX) 4 Load data (LODS, LOAP, PVEC, PAPP) 8 Solution data (UVEC, QVEC, SOLN) 16 Transformation matrices defining next level (HORG, UPRT, POVE, POAP, LMTX, GIMS, HLFT) 32 All items for the substructure 64 Appended loads data (LOAP, PAPP, POAP) 128 Damping matrices (K4MX, BMTX) 256 Modal reduction data (LAMS, PHIS, PHIL) 512 Total transforms only (HORG, HLFT) Remarks 1. You are cautioned on the removal of the transformation matrix data. These matrices are required for the recovery of the solution results. 2. For primary substructures, items of related secondary substructures are removed only if they point to the same data (KMTX, MMTX, etc.). 3. For secondary and image substructures, no action is taken on items of related substructures, that is, items of equivalenced or higher or lower level substructures. 4. If the EDIT feature is to be employed, you should consider also using SOFOUT to ensure the existence of backup data if there is an error. 5. See DELETE and DESTROY for other means of removing substructure data. =PAGE= ENDSUBS - Defines the End of the Substructure Control Deck. Purpose This command terminates the processing of automated substructuring controls and directives. Request Format ENDSUBS Subcommands None. =PAGE= EQUIV - Create a New Equivalent Substructure Purpose To assign an alias to an existing substructure and thereby create a new equivalent substructure. The new secondary substructure may be referenced independently of the original primary substructure in subsequent substructure commands. However, the data actually used in substructuring operations is that of the primary substructure. Request Format EQUIV name1, name2 Subcommands PREFIX = p (required) Definitions p Single BCD character. name1 Existing primary substructure name. name2 New equivalent substructure name. Remarks 1. A substructure created by this command is referred to as a secondary substructure. 2. All substructures which were used to produce the primary substructure will produce equivalent image substructures. The new image substructure names will have the prefix p. 3. A DESTROY operation on the primary substructure data will also destroy the secondary substructure data and all image substructures. 4. An EDIT or DELETE operation on the primary substructure will not remove data of the secondary substructure and vice versa. =PAGE= MRECOVER - Eigenvector Recovery for Modal Synthesis Operations Purpose This command recovers modal displacements and boundary forces for substructures reduced to modal coordinates. The results are saved on the SOF file and they may be printed upon your request. This command may be input after the MREDUCE or CREDUCE commands or at a later time as desired. Request Format MRECOVER s-name Subcommands (see Remark 12) SAVE cname1 PRINT cname2 NONE DISP n ALL NONE SPCF n (see Remark 4) ALL BASIC b-name NONE ENERGY n (see Remark 10) ALL MODES SORT SUBSTRUCTURE (see Remark 6) ALL MODES n (see Remark 7) NONE RANGE fl, f2 (see Remark 7) UIMPROVE (see Remark 9) Definitions s-name Name of the substructure that was reduced in a prior MREDUCE or CREDUCE command for which the solution results are to be recovered. cname1 Name of the component substructure for which the results are to be recovered and saved on the SOF. May be the same as "s-name". See Remarks 1, 2, and 3. cname2 Name of the component substructure for which the results are to be recovered and printed on the SOF. May be the same as "s-name". See Remarks 1, 2, 3, 8, and 11. b-name Name of the component basic substructure for which the subsequent output requests are to apply. ALL Output for all points will be produced. See Remark 8. NONE No output is to be produced. n Set identification number of a SET card appearing in Case Control. Only output for those points whose identification numbers appear on this SET card will be produced. See Remark 5. f1, f2 Range of frequencies for which output will be produced. If only f1 is present, the range is assumed to be 0 - f1. See Remark 7. Output Requests Printed output produced by the MRECOVER PRINT command can be controlled by requests present in either Case Control or the MRECOVER command in the Substructure Control Deck. If no output requests are present, the PRINT command is equivalent to SAVE and no output will be printed. The output options described above may appear after any PRINT command. These output requests will then override any Case Control requests. The output requests for any PRINT command can also be specified for any or all basic component substructures of the results being recovered. These requests will then override any requests in Case Control or after the PRINT command. Example of output control: MRECOVER SOLSTRCT PRINT ABDC SORT = SUBSTRUCTURE DISP = ALL basic defaults for ABDC output BASIC A DISP = 5 override requests for BASIC A BASIC C SPCF = 20 override requests for BASIC C SAVE ABC Remarks 1. SAVE will save the solution for substructure "name" on the SOF. PRINT will save and print the solution. 2. If the solution data already exists on the SOF, the existing data can be printed without costs of regeneration with the PRINT command. 3. For efficiency, you should order multiple SAVE and/or PRINT commands so as to trace one branch at a time starting from your solution structure. 4. Reaction forces are computed for a substructure only if (1) the substructure is named on a PRINT subcommand and (2) an output request for SPCFORCE or modal energies exists in the Case Control or the RECOVER command. 5. All set definitions should appear in Case Control to ensure their availability to the MRECOVER module. 6. The SORT output option should only appear after a PRINT command. Any SORT commands appearing after a BASIC command will be ignored. SORT = MODES (the default) will cause all output requests for each mode to appear together. SORT = SUBSTRUCTURE will cause all output requests for each basic substructure to appear together. 7. If both a MODES request and a RANGE request appear for dynamic analysis, both requests must be satisfied for any output to be produced. 8. The media, print or punch, where output is produced is controlled through Case Control requests. If no Case Control requests are present, the default of print is used. 9. If the UIMPROVE request is present for a substructure that was input to a REDUCE, MREDUCE, or CREDUCE, an improved displacement vector will be generated. This vector will contain the effects of inertia and damping forces. 10. The ENERGY request will cause the calculation of modal energies on all included and excluded modal dof for a modal reduced substructure. This request should appear for the substructure that was input to the modal reduce operation so that required data needed for the excluded mode calculations exists. This request requires that the UVEC item exist for the next higher level structure. 11. You can specify print thresholds for all printout. If the absolute value is less than the threshold, the value will be set to zero. The following thresholds can be input on PARAM bulk data cards. UTHRESH displacement, velocity, and acceleration threshold PTHRESH load threshold QTHRESH reaction force threshold 12. Since the subcommands of the MRECOVER command are all associated with a component structure, multiple use of these subcommands is permitted. =PAGE= MREDUCE - Reduces Substructure Matrices Using Real, Normal Modes Purpose This command performs a modal synthesis reduction on a specified component substructure. The resulting substructure will be defined by boundary coordinate displacements and modal coordinate displacements as degrees of freedom. The operation is allowed in both Phase 1 and Phase 2 jobs and may be performed at any level of the substructure process. Request Format MREDUCE name Subcommands NAME new name (required) BOUNDARYb (required) FIXED f METHOD k RANGE f1, f2 NMAX N RGRID i (see Remark 12) RNAME c-name RSAVE (see Remark 7) OLDMODESm OLDBOUNDn USERMODES j OUTPUT m1, m2 Definitions name Name of substructure to be reduced new name Name of resulting substructure. See Remarks 2 and 3. b Set identification number of BDYC Bulk Data cards which define sets of boundary degrees of freedom (Integer). See Remark 1. f Optionally identifies BDYC data defining degrees of freedom temporarily fixed during mode extraction (Integer, default = 0). k Identifies EIR,R Bulk Data card for control of the mode extraction (Integer > 0). i Grid point number for defining origin of free body motion. Used with RNAME to define substructure component containing grid point i (Integer >= 0, default = 0). (See Remark 12.) c-name Name of basic substructure which contains grid point i. If RGRID = 0 or is missing, the origin of the overall basic coordinate system is used to define the six rigid body motions. These motions define the inertia relief deflection shapes which are used as generalized coordinates in addition to the modal coordinates. m Flag for re-running problem with old mode shapes (YES or NO). See Remarks 5, 8, and 10. n Flag for re-running problem with old boundaries for different eigenvalue method (YES or NO). See Remarks 5, 9, and 10. f1, f2 Optional frequency range (in cycles per unit time) defining modes to be used in the mode synthesis formulation (Real, default = ALL). N Optional number of lowest modes within elastic frequency range to be used in mode synthesis formulation (Integer, default = ALL). Rigid body modes are automatically included, in addition to the selected number of NMAX of elastic modes. j Option used in Phase 1 when METHOD data is missing and user-input modes are used directly. See Remark 6. m1, m2 Optional output requests. See Remark 4. Remarks 1. All references to the grid points and components not defined in the "boundary set" will be reduced out of the new substructure. Any subsequent reference to these omitted degrees of freedom in COMBINE, MREDUCE, REDUCE, or SOLVE operations generates an error condition. 2. The resulting substructure will be defined in terms of the following degrees of freedom: ub boundary grid point displacements. j modal displacements relative to static deflection shapes induced by boundary inertia. o inertia relief generalized coordinates defined by inertia relief deflection shapes occurring from boundary point rigid body accelerations (zero frequency modes). Note that a new substructure will be automatically created to define coordinates o and j. The name will be the same as given by NAME and the point identification numbers are 1-6 for o and 101, 102,... for j. 3. The same transformations applied to the stiffness matrix will be applied to the loads, mass, and damping matrices for the new substructure. See the NASTRAN Theoretical Manual for a discussion of this effect. 4. The following output requests are available for the MREDUCE operation (* marks recommended options): CODE OUTPUT 1* Current problem summary 2 Boundary set summary 3 Summary of grid point ID numbers in each boundary set 4 The EQSS item for the structure being reduced 5* The EQSS item 6* The BGSS item 7 The CSTM item 8 The PLTS item 9* The LODS item 10* Modal dof set summary (see Remark 11) 11 Fixed set summary 12 Summary of grid point ID numbers in each fixed set Requests 5-9 write formatted SOF items for the new reduced pseudostructure. 5. The options OLDMODES and OLDBOUND allow you to re-run the reduction and: a. Change the boundary without recalculating modes. b. Change the modes without the boundary condensation calculations. c. Select a different mode range from the existing vectors and avoid recalculating modes and boundary matrices. 6. You must provide the actual mode data in Phase 1 when USERMODES = j is given. Two options are provided: a. If j = 1, the structure must be entirely defined by a finite element model and the eigenvectors for the NASTRAN ua set provided in data block PHIS input using DMI cards. b. If j = 2, the entire structure need not be defined. You provide eigenvectors and forces of constraint only at the selected boundary points as well as eigenvalues and modal masses. Residual stiffness and mass matrices may also be provided to define properties at the boundary points. Use DMI and DTI cards for these data. 7. If the RSAVE card is included, the decomposition product of the interior point stiffness matrix (LMTX item) is saved on the SOF file. This matrix will be used in the data recovery for the omitted points. If it is not saved it will be regenerated when needed. 8. Exercising the OLDMODES option, you must use the following sequence of commands: EDIT(32)new name (previous modal reduction name) EDIT(16)name MREDUCE name NAME = new name 9. Exercising the OLDBOUND option, you must use the following sequence of commands: EDIT(32)new name (previous modal reduction name) EDIT(768) name MREDUCE name NAME = new name 10. Exercising both the OLDMODES and OLDBOUND options concurrently you must use the following sequence of commands: EDIT(32)new name (previous modal reduction name) EDIT(512) name MREDUCE name NAME = new name 11. You are strongly urged to select code 10 for your output request. The modal dof set summary gives a good breakdown between the assignments of rigid body modes and elastic modes. The MREDUCE module sometimes overrides your specification of NMAX. This occurs when the nature of the mode is such that the 2-3 term of Hgh (as defined by Equation 27 on page 4.7-7 of the Thereotical Manual) is zero; that is, when i - Gibb approximately equals zero. When this occurs NASTRAN automatically deletes the ineffective mode from the solution set. Any such omission can be verified from the printout triggered by code 10. 12. Note on RGRID: Your choice of one grid point or another for inertia relief modes does not in any way determine the net reaction forces, but operates solely as a convenience as to choice of reference origin. =PAGE= OPTIONS - Defines Matrix Types Purpose This allows you to selectively control the type of matrices being processed. Request Format OPTIONS m1,m2,m3 Subcommands None. Definitions m1,m2,m3 Any combination of the characters K, M, B, K4, and either P or PA, where: K = Stiffness Matrices M = Mass Matrices P = Load Matrices PA = Appended Load Vectors B = Viscous Damping Matrices K4 = Structure Damping Matrices Remarks 1. The default depends on the NASTRAN rigid format: RIGID FORMAT DEFAULT 1 - Statics K,P 2 - Inertia Relief K,M,P 3 - Normal Modes K,M 8 - Frequency ResponseK,M,P,B,K4 9 - Transient ResponseK,M,P,B,K4 2. In a Phase 1 execution, Rigid Formats 1 and 3 will provide only two of the matrices, as shown above. In Rigid Format 1, the mass matrix is not generated. In Rigid Format 3, the loads matrix is not generated. An error condition will result unless you add the required DMAP alters to provide the requested data. 3. Stiffness, mass, load, or damping matrices must exist if the corresponding K, M, P, PA, B, or K4 option is requested in the subsequent Phase 2 run. 4. Matrices or loads may be modified by re-running the substructure sequence for only the desired type. However, the old data must be deleted first with the EDIT or DELETE command. See Section 1.10.2 for the actual item names. 5. The append load option, PA, is used when additional load sets are required for solution, and it is not desired to regenerate existing loads. To generate these new load vectors, re-execute all required Phase 1 runs with the new load sets and OPTION = PA. Then, repeat the Phase 2 operations with OPTION = PA. At each step, the new vectors are appended to the existing loads so that all load vectors will be available in the SOLVE stage. 6. Each OPTION command overrides the preceding command to control subsequent steps of the substructure process. 7. When executing the SOLVE command, the option selected must provide the matrices required for the rigid format being executed. =PAGE= PASSWORD - Substructure Operating File Declaration Purpose This declaration is required in the substructure command deck. The password is written on the SOF file and is used to protect the file and ensure that the correct file is assigned for the current run. Request Format PASSWORD password Subcommands None. Definitions password BCD password for the SOF (8 characters maximum). =PAGE= PLOT - Substructure Plot Command Purpose This command is used to plot the undeformed shape of a substructure which may be composed of several component substructures. This command initiates the execution of a plot at any stage of the substructure process. The actual plot commands -- origin data, etc.-- must be included in the normal case control data. Request Format PLOT name Subcommands None. Definitions name Name of component substructure to be plotted. Remarks 1. This PLOT command can be used in any of the three phases. However, it is suggested that it be used only in Phase 2. In the case of Phase 1 and Phase 3 runs, any desired plots can be obtained in the usual manner by appropriate requests in the structure plotter output request packet in the Case Control Deck. 2. The set of elements to be plotted in Phase 2 consists of all the elements and grid points saved in Phase 1 for each basic substructure comprising the substructures named in the PLOT command. The set definition given in the structure plotter output request packet in the Case control Deck in Phase 2 is ignored. (Only one plot set from each basic substructure is saved in Phase 1.) 3. The structure plotter output request packet, while part of the standard Case Control Deck, is treated separately in Sections 4.1 and 4.2. =PAGE= RECOVER - Phase 2 Solution Data Recovery Purpose This command recovers displacements and boundary forces on specified substructures in the Phase 2 execution. The results are saved on the SOF file and they may be printed upon your request. This command should be input after the SOLVE command to store the solution results on the SOF file. Request Format RECOVER s-name Subcommands SAVE cname1 PRINT cname2 NONE DISP n ALL NONE SPCF n (see Remark 4) ALL NONE OLOAD n (see Remark 11) ALL BASIC b-name NONE ENERGY n (see Remark 10) ALL for static analysis only: SUBCASE SORT SUBSTRUCTURE (see Remark 6) ALL SUBCASES n NONE for normal modes analysis only: MODES SORT SUBSTRUCTURE (see Remark 6) ALL MODES n (see Remark 7) NONE RANGE f1, f2 (see Remark 7) for dynamic analysis only: FREQ SORT TIME (see Remark 6) SUBSTRUCTURE ALL STEPS n NONE RANGE fl, f2 (see Remark 7) UIMPROVE (see Remark 9) Definitions s-name Name of the substructure named in a prior SOLVE command for which the solution results are to be recovered. cname1 Name of the component substructure for which the results are to be recovered and saved on the SOF. May be the same as "s-name". See Remarks 1, 2, and 3. cname2 Name of the component substructure for which the results are to be recovered and printed on the SOF. May be the same as "s-name". See Remarks 1, 2, 3, 8, and 12. b-name Name of the component basic substructure for which the subsequent output requests are to apply. ALL Output for all points will be produced. See Remark 8. NONE No output is to be produced. n Set identification number of a SET card appearing in Case Control. Only output for those points, subcases, modes, frequencies, or time steps whose identification numbers appear on this SET card will be produced. See Remark 5. f1, f2 Range of frequencies for which output will be produced. If only f1 is present, the range is assumed to be 0 - f1. See Remark 7. Output Requests Printed output produced by the RECOVER PRINT command can be controlled by requests present in either Case Control or the RECOVER command in the Substructure Control Deck. If no output requests are present, the PRINT command is equivalent to SAVE and no output will be printed. The RECOVER output options described above may appear after any PRINT command. These output requests will then override any Case Control requests. The output requests for any PRINT command can also be specified for any or all basic component substructures of the results being recovered. These requests will then override any requests in Case Control or after the PRINT command. Example of output control: RECOVER SOLSTRCT PRINT ABDC SORT = SUBSTRUCTURE DISP = ALL basic defaults for ABDC output OLOAD = 10 BASIC A DISP = 5 override requests for BASIC A BASIC C OLOAD = NONE override requests for BASIC C SUBCASES = 20 SAVE ABC Remarks 1. SAVE will save the solution for substructure "name" on the SOF. PRINT will save and print the solution. 2. If the solution data already exists on the SOF, the existing data can be printed without costs of regeneration with the PRINT command. 3. For efficiency, you should issue multiple SAVE and/or PRINT commands so as to trace one branch at a time starting from your solution structure. 4. Reaction forces are computed for a substructure only if (1) the substructure is named on a PRINT subcommand and (2) an output request for SPCFORCE or modal energies exists in the Case Control or the RECOVER command. 5. All set definitions should appear in Case Control to ensure their availability to the RECOVER module. 6. The SORT output option should only appear after a PRINT command. Any SORT commands appearing after a BASIC command will be ignored. For static analysis, SORT = SUBCASE (the default) will cause all output requests for each subcase to appear together. For normal modes analysis, SORT = MODES (the default) will cause all output requests for each mode to appear together. For dynamic analysis, SORT = FREQ (the default for frequency response) or SORT = TIME (the default for transient response) will cause all output requests for each frequency or time step, as the case may be, to appear together. In all these analyses, SORT = SUBSTRUCTURE will cause all output requests for each basic substructure to appear together. 7. If both a MODES (or STEPS) request and a RANGE request appear for dynamic analysis, both requests must be satisfied for any output to be produced. 8. The medium, print or punch, where output is produced is controlled through Case Control requests. If no Case Control requests are present, the default of print is used. 9. If the UIMPROVE request is present for a substructure that was input to a REDUCE, MREDUCE, or CREDUCE, an improved displacement vector will be generated. This vector will contain the effects of inertia and damping forces. 10. The ENERGY request will cause the calculation of modal energies on all included and excluded modal dof for a modal reduced substructure. This request should appear for the substructure that was input to the modal reduce operation so that required data needed for the excluded mode calculations exists. This request requires that the UVEC item exists for the next highest level structure. 11. For dynamic analysis, the printed loads output will include dynamic loads only for the solution substructure in the same run where the solution was obtained. For any lower level substructures or on any run after the solution, only static loads will be printed. 12. You can specify print thresholds for all printout. If the absolute value is less than the threshold, the value will be set to zero. The following thresholds can be input on PARAM bulk data cards. UTHRESH displacement, velocity, and acceleration PTHRESH load threshold QTHRESH reaction force threshold =PAGE= REDUCE - Phase 2 Reduction to Retained Degrees of Freedom Purpose This command performs a Guyan matrix reduction process for a specified component substructure, otherwise known as matrix condensation. It produces the same result as obtained by the specification of NASTRAN OMIT or ASET data. The purpose is to reduce the size of the matrices. In static analysis only points on the boundary need be retained. In dynamics, the boundary points and selected interior points are retained. Request Format REDUCE name Subcommands NAME new name (required) BOUNDARYb (required) OUTPUT m1, m2,... RSAVE (See Remark 4) Definitions name Name of substructure to be reduced. new name Name of resulting substructure. b Set identification number of BDYC bulk data cards which define sets of retained degrees of freedom for the resulting reduced substructure matrices. See Remarks 1 and 2. m1, m2, etc. Optional output requests. See Remark 3. Remarks 1. All references to the grid points and components not defined in the "boundary set" will be reduced out of the new substructure. Any subsequent reference to these omitted degrees of freedom in COMBINE, REDUCE, or SOLVE operations generates an error condition. 2. The same transformations will be applied to the reduced mass matrix for the new substructure. See the NASTRAN Theoretical Manual for a discussion of this effect. 3. The following output requests are available for the REDUCE operation (* marks recommended output options): CODE OUTPUT 1* Current problem summary 2 Boundary set summary 3 Summary of grid point ID numbers in each boundary set 4 The EQSS item for the structure being reduced 5* The EQSS item 6* The BGSS item 7 The CSTM item 8 The PLTS item 9* The LODS item Requests 5-9 write formatted SOF items for the new reduced pseudostructure. 4. If the RSAVE card is included, the decomposition product of the interior point stiffness matrix (LMTX item) is saved on the SOF file. This matrix will be used in the data recovery for the omitted points. If it is not saved, it will be regenerated when needed. =PAGE= RESTORE - Reload SOF Purpose To reload the SOF from an external file created with the DUMP command. Request Format TAPE RESTORE filename , DISK Subcommands None Definitions filename Name of the external file. Any one of the following: INPT, INP1,..., INP9. TAPE File resides on tape. DISK File resides on a direct access device. Remarks 1. The external file must have been created with the DUMP command. 2. The SOF must be declared as NEW on the SOF command. 3. RESTORE must be the very first substructure command following the SOF and PASSWORD declarations. 4. The SOF size declarations for the RESTORE command must be exactly the same as for the SOF which was DUMPed. The DUMP/RESTORE commands cannot be used to increase the size of the SOF. =PAGE= RUN - Specifies Run Options Purpose This command is used to limit the substructure execution for the purpose of checking the validity of the input data. It allows for the processing of input data separately from the actual execution of the matrix operations. Request Format STEP DRY RUN GO DRYGO Subcommands None. Definitions STEP Will cause the execution of both DRY and GO operations one step at a time. DRY Limits the execution to table and transformation matrix generation. Matrix operations are skipped. GO Limits the execution to matrix generation only. This mode must have been preceded by a successful RUN=DRY or RUN=STEP execution. DRYGO Will cause execution of a complete dry run for the entire job, followed by a RUN=GO execution if no fatal errors were detected. Remarks 1. The DRY, GO, and STEP options may be changed at any step in the input substructure command sequence. If the DRYGO option is used, the RUN card must appear only once at the beginning. 2. If a fatal error occurs during the first pass of the DRYGO option, the program exits at the completion of all DRY operations. 3. The RUN = DRY option is handled differently for MREDUCE and CREDUCE because the matrix operations must be performed in order to generate the table and transformation matrix data. Input data only will be checked and no subsequent commands will be executed. 4. The RUN = GO and OPTIONS = K combination is illegal for any of the reduce operations, REDUCE, MREDUCE, or CREDUCE. =PAGE= SOF - Assigns Physical Files for Storage of the SOF Purpose This declaration defines the names and sizes of the physical NASTRAN files you assign for storage of the SOF file. At least one of these declarations must be present in each substructure command deck. As many SOF declarations are required in the substructure command deck on each run as there are physical files assigned for the storage of the SOF file. Request Format SOF(no.) = filename, filesize, OLD NEW Definitions no. Integer index of SOF file (1, 2, etc.) in ascending order of files required for storage of the SOF. The maximum index is 10. See Remarks 1, 2, and 3. filename User name for an SOF physical file. See Remarks 2, 3, and 7. filesize Size of allocated file space in kilowords, default = 100. See Remarks 1 and 4. OLD SOF data is assumed to already exist on the file. NEW The SOF is new. In this case, the SOF will be initialized. See Remark 5. Remarks 1. If more space is required for storage of the SOF file, additional physical files may be declared. Alternatively, the file size parameter on a previously declared file may be increased, but only on the last physical file if more than one is used (on IBM the size of an existing file may not be increased). 2. Once an SOF declaration is made, the index of the SOF file must always be associated with the same file name. File names may not be changed from run to run. 3. The file name of each physical SOF file must be unique. 4. The declared size of the SOF may be reduced by the amount of contiguous free space at the end of the logical SOF file. This may be accomplished by removing the physical file declaration for those unused files which have the highest sequence numbers. An attempt to eliminate a portion of the SOF which contains valid data will result in a fatal error. 5. If the NEW parameter is present on any one of the SOF declarations, the entire logical SOF is considered new. Therefore, if an additional physical file is added to an existing SOF, the NEW parameter should not be included on any declarations. 6. You should insure that the correct SOF file is assigned for the current run. See the PASSWORD description. 7. The following conventions should be used for the file name declarations on each of the NASTRAN computers: CDC/CYBER Must be a 4-character alphanumeric name with no special characters or blanks allowed. The file name used on the SOF declaration must correspond to ones used on the system REQUEST or ATTACH card. Note that after a NASTRAN execution, the SOF files should be catalogued or extended. Examples 1. Create a new SOF file with a filename of SOF1 and catalogue it. REQUEST(SOF1,*PF) NASTRAN. CATALOG(SOF1,username) 789 : : NASTRAN data cards including the SOF declaration SOF(1)=SOF1,1000,NEW : : 6789 2. Use of an existing SOF file with a filename of ABCD. ATTACH(ABCD,username) NASTRAN. EXTEND(ABCD) 789 : : NASTRAN data cards including the SOF declaration SOF(1)=ABCD,1000 : : 6789 UNIVAC 1108/1110 The filename used on the SOF declaration must specify one of the NASTRAN user files INPT, INP1,..., INP9. Examples 1. Create a new SOF file named INPT. @ASG.U INPT.,F///1000 @HDG,N @XQT *NASTRAN.LINK1 . NASTRAN FILES=INPT . NASTRAN data cards including the SOF declaration SOF(1)=INPT,400,NEW : : @FIN 2. Use of an existing SOF file with a filename of INP7. @ASG,AX INP7. @HDG,N @XQT *NASTRAN.LINK1 . NASTRAN FILES=INP7 . NASTRAN data cards including the SOF declaration SOF(1)=INP7,250 : : @FIN IBM 360/370 The file name used on the SOF declaration must specify a FORTRAN unit by using the form FTxx from the table of allowable file names shown below which correspond to the direct access devices that are supported under the SOF implementation. The allocation of space for the direct access FORTRAN data sets can be made in terms of blocks, tracks, or cylinder. If the allocation is in blocks, the block size in the space allocation corresponds to (BUFFSIZE-4)*4 bytes where BUFFSIZE is the GINO buffer size found in SYSTEM(1). In order to use the SOF on IBM computers, it is necessary to specify the PARM on the EXEC PGM=NASTRAN card. This PARM sets the amount of core (in bytes) NASTRAN releases to the operating system for system use and FORTRAN buffers. The following formula should be used to determine the value for the PARM: PARM = (4096 + m*((BUFFSIZE-4) + 64))*4 single buffering, BUFNO=1 (4096 + m*(2*(BUFFSIZE-4) + 96))*4 double buffering, BUFNO=2 where m = number of physical datasets comprising the SOF. Examples 1. Create a new SOF data set with a filename of FT11. //NSGO EXEC NASTRAN,PARM.NS='CORE=(,60K)' //NS.FT11F001 DD DSN = User Name, UNIT=2314, VOL=SER=User No., // DISP=(NEW,KEEP), SPACE=TRK,(1000)), DCB=BUFNO=1 //NS.SYSIN DD * NASTRAN BUFFSIZE=1826 : : NASTRAN data cards including the SOF declaration SOF(1)=FT11,,NEW : : /* Remarks 1.The SOF parameters - filename, filesize, and (OLD/NEW) - are positional parameters. The filesize parameter is not required for IBM 360/370 computers, but its position must be noted if NEW is coded for the SOF file. 2.The dataset disposition must be DISP=(NEW,KEEP) when the SOF dataset is created. However, an existing SOF dataset may be reinitialized by coding NEW on the SOF declaration in the NASTRAN data deck. In this case, the disposition on the DD card must be coded DISP=OLD. 2. Use of an existing SOF dataset with a filename of FT23. //NS EXEC NASTRAN,PARM.NS='CORE=(,72K)' //NS.FT23F00l DD DSN = User Name, UNIT=3330, VOL=SER=User No., // DCB=BUFNO=1, DISP=OLD //NS.SYSIN DD * NASTRAN BUFFSIZE=3260 SOF (1)=FT23 : : /* SOF File FORTRAN Unit SOF File FORTRAN Unit Name DDName Name DDName FT02 FT02F001 FT16 FT16F001 FT03 FT03F001 FT17 FT17F001 FT08 FT08F001 FT18 FT18F001 FT09 FT09F001 FT19 FT19F001 FT10 FT10F00l FT20 FT20F001 FT11 FT11F001 FT21 FT21F001 FT12 FT12F001 FT22 FT22F001 FT15 FT15F001 FT23 FT23F001 Note: A maximum of 10 SOF file names is allowed in any NASTRAN substructuring run. DEC VAX The filename used on the SOF declaration must be of the form FTxx thereby implying the use of the FORTRAN logical unit FOR0xx for the SOF. Any of the FORTRAN logical units FOR014 through FOR023 may be used for the SOF, provided they are not otherwise assigned. Examples 1. Create a new SOF with the file name TEST.SOF $ CREATE TEST1.COM $ASSIGN TEST.SOF FOR022 $@NASTRAN TEST1.DT $EXIT $ SUBMIT/QUEUE=NASTRAN TEST1.COM The file NASTRAN.COM contains the command procedure for executing NASTRAN and the file TEST1.DT contains the NASTRAN data including the SOF declaration--SOF(1) = FT22,1000,NEW 2. Use an existing SOF with the file name TEST.SOF $ CREATE TEST2.COM $ASSIGN TEST.SOF FOR022 $@NASTRAN TEST2.DT $EXIT $ SUBMIT/QUEUE=NASTRAN TEST2.COM The file NASTRAN.COM contains the command procedure for executing NASTRAN and the file TEST2.DT contains the NASTRAN data including the SOF declaration--SOF(1) = FT22,1000 =PAGE= SOFIN - Copy Items from File to SOF Purpose To copy substructure items from an external file to the SOF. Request Format SOFIN ( INTERNAL ) filename , TAPE EXTERNAL DISK Subcommands POSITION = NOREWIND REWIND NAMES = WHOLESOF substructure name ALL MATRICES ITEMS = PHASE3 TABLES item name Definitions EXTERNAL File was written on a different computer type. INTERNAL File was written with GINO on the same computer type. filename Name of the external file. If the file is in INTERNAL format, filename must specify INPT, INP1,...,INP9. If the file is in EXTERNAL format, filename must specify a FORTRAN unit by using the form FORT1, FORT2,...,FORT32. DISK File is located on a direct access device. TAPE File is located on a tape. POSITION Specifies initial file position. REWIND: file is rewound NOREWIND: input begins at the current position NAMES Identifies a substructure for which data will be read. If NAMES=WHOLESOF is coded, and no other NAMES subcommands appear for the current SOFIN command, all substructure items found on the external file from the point specified by the POSITION subcommand to the end-of-file are copied to the SOF. ITEMS Identifies the data items which are to be copied to the SOF for each substructure specified by the NAMES subcommands. ALL: all items MATRICES: all matrix items PHASE3: the UVEC, QVEC, and SOLN items TABLES: all table items item name: name of an individual item Remarks 1. Filename is required. The other SOFIN operands are optional. 2. All subcommands are optional. 3. The NAMES subcommand may appear up to five times for each SOFIN command. 4. If a substructure name of an item which is to be copied to the SOF does not exist on the SOF, it is added to the SOF. MDI pointers for higher level, combined substructures, and lower level substructures arc restored. 5. For the EXTERNAL form of this command all the items on the file are read in and added to the SOF. The POSITION subcommand should be specified as REWIND and user specifications for all other subcommands are ignored. 6. SOFOUT is the companion substructure command. 7. When an internal-formatted file is located on tape and extends over multiple reels, care should be taken when using the SOFIN command. The commands should be ordered so that all the desired data is retrieved on a single pass through the tape. The following suggestions are helpful: a. Order the SOFIN command to obtain data in the order they exist on the tape. If this order is not known, the CHECK command will list the contents of the tape. b. The first SOFIN command should specify POSITION = REWIND and all subsequent commands should use POSITION = NOREWIND. c. The individual items should be requested by name. The ALL, MATRICES, TABLES, or PHASE3 specification should not be used for the ITEMS subcommand unless all the appropriate items are on the tape. If some are not present, the tape will be searched to the end of the last reel and subsequent commands will not be executable because they will attempt to rewind back to the first tape. 8. On IBM computers and for the EXTERNAL form of this command, the following DD card should be used: //NS.FTxxF001 DD DSN=username,UNIT=2400-1,DISP=(,KEEP), // LABEL=(,NL),DCB=(RECFM=FB,LRECL=132,BLKSIZE=3960, // TRTCH=T,DEN=2) 9. Only one item may appear as an ITEMS subcommand per NAMES subcommand. Selective items may be referenced by repeating the NAMES subcommand. =PAGE= SOFOUT - Copy Items from SOF to File Purpose To copy substructure items from the SOF to an external file. Request Format SOFOUT ( INTERNAL ) filename , TAPE EXTERNAL DISK Subcommands POSITION = NOREWIND REWIND EOF NAMES = WHOLESOF substructure name ALL MATRICES ITEMS = PHASE3 TABLES item name Definitions EXTERNAL File will be written so that it may be read on a different computer type. INTERNAL File will be written with GINO. filename Name of the external file. If the file is in INTERNAL format, filename must specify INPT, INP1,...,INP9. If the file is in EXTERNAL format, filename must specify a FORTRAN unit by using the form FORT1, FORT2,...,FORT32. DISK File is located on a direct access device. TAPE File is located on a tape. POSITION Specifies initial file position. (See Remark 6.) REWIND: file is rewound NOREWIND: output begins at the current position EOF: file is positioned to the point immediately preceding the end-of-file mark NAMES Identifies a substructure for which data will be read. If NAMES=WHOLESOF is coded, and no other NAMES subcommands appear for the current SOFOUT command, all substructure items found on the SOF are copied to the external file. ITEMS Identifies the data items which are to be copied to the external file for each substructure specified by the NAMES subcommands. ALL: all items MATRICES: all matrix items PHASE3: the UVEC, QVEC, and SOLN items TABLES: all table items item name: name of an individual item Remarks 1. Filename is required. The other SOFOUT operands are optional. 2. All subcommands are optional. 3. The NAMES subcommand may appear up to five times for each SOFOUT command. 4. PLTS items of pseudostructures reference the PLTS items of the component basic substructures. Therefore, in order to save all data necessary to plot a pseudostructure, the PLTS items of its component basic substructures must be saved as well as the PLTS item of the pseudostructure. 5. For the external form of this command, POSITION = NOREWIND has the effect of positioning the file to the end-of-file. 6. POSITION = REWIND should be coded for the first write to a new file. 7. SOFIN is the companion substructure command. 8. On IBM computers and for the EXTERNAL form of this command, the following DD card should be used: //NS.FTxxF001 DD DSN=username,UNIT=2400-1,DISP=(,KEEP), // LABEL=(,NL),DCB=(RECFM=FB,LRECL=132,BLKSIZE=3960, // TRTCH=T,DEN=2) 9. Only one item may appear as an ITEMS subcommand per NAMES subcommand. Selective items may be referenced by repeating the NAMES subcommand. =PAGE= SOFPRINT - Requests SOF File Verification Purpose To print selected contents of the SOF file for data checking purposes. Request Format SOFPRINT (opt) name, item1, item2, etc. Subcommands None. Definitions opt Integer, control option, default = 0. opt = 1: prints data items only opt = 0: prints table of contents opt = -1: prints both name Name of substructure for which data is to be printed. item1, item2 SOF item name, used only when opt not equal 0, limit = 5. (See Table 1.10-19 in Section 1.10.2 for the list of item names.) Remarks 1. If only the table of contents is desired (opt = 0) this command may be coded: SOFPRINT TOC On the page heading for the table of contents, the labels are defined as follows: SS Secondary substructure number (successor) PS Primary substructure number (predecessor) LL Lower level substructure number CS Combined substructure number HL Higher level substructure number TYPE Substructure type B basic substructure C combined substructure R Guyan reduced substructure M real modal reduced substructure CM complex modal reduced substructure Any of the above types will have a prefix "I" if it is an image substructure resulting from an EQUIV operation. =PAGE= SOLVE - Substructure Solution Purpose This command initiates the substructure solution phase. The tables and matrices for the pseudostructure are converted to their equivalent NASTRAN data blocks. The substructure grid points referenced on bulk data cards SPCS. MPCS, etc., are converted to pseudostructure scalar point identification numbers. The NASTRAN execution then proceeds as though a normal structure were being processed. Request Format SOLVE name Subcommands None. (Case Control and bulk data decks control the operations.) Definitions name Name of pseudostructure to be analyzed with NASTRAN. Remarks 1. The allowable NASTRAN Rigid Formats are 1, 2, 3, 8, and 9. 2. Before requesting a SOLVE, you should check to be sure that all necessary matrices are available on the SOF file. For instance, loads and stiffness matrices are necessary in statics analysis. Mass and stiffness matrices are necessary in eigenvalue analysis, etc. 3. If the OPTIONS command has been used, an additional OPTIONS command may be necessary to ensure that the matrices required are available for the SOLVE operation. 4. Static load combinations of the original Phase 1 load vectors may be defined by the bulk data card LOADC. Loads of this type may be used in Rigid Format 9 (Direct Transient Analysis) in lieu of DAREA dynamic load data. 5. The SOLVE name command should always be followed by RECOVER name to assure the solution data are saved on the SOF. 6. The SOLVE command may only be used in Phase 2 executions. =PAGE= SUBSTRUCTURE - Initiates the Substructure Control Data Deck Purpose This command initiates the processing for automated substructuring and defines the phase of the analysis. It must be the first card in the Substructure Control Deck. Request Format PHASE1 SUBSTRUCTURE PHASE2 PHASE3 Subcommands NAME name (required and valid only in PHASE1) SAVEPLOTn (used only in PHASE1) Definitions name The name assigned to the basic substructure which is being created in PHASE1. n The plot set identification used to define the set of elements and grid points to be saved in PHASE1 for subsequent plotting in PHASE2. Only one set may be defined for any basic substructure. Remarks 1. The mode command RUN = STEP is assumed initially if the explicit command is not given immediately following the SUBSTRUCTURE command. 2. No further substructure commands are required for PHASE1. 3. Additional substructure commands are required for PHASE2. 4. For PHASE3 operations, RECOVER and BRECOVER are equivalent commands and one of them must be present. 5. Imbedded blanks within the individual elements of this card are not allowed. An unrecognizable command causes the program to automatically assume a PHASE2 solution.  ================================================ FILE: um/UMFL.TXT ================================================ =PAGE= 2.5 USER'S MASTER FILE As a means of aiding you in handling the large (several boxes of cards) Bulk Data Decks which are typical of NASTRAN problems, the User's Master File is provided for storage of many Bulk Data Decks on a single tape. In the context of this section, a "tape" is synonymous with either a physical tape or a disk file. (See Section 2.1 for the use of the FILES parameter on the NASTRAN card.) There are many advantages to using a Master File. The User's Master File provides a convenient common source of data. Errors due to card handling are sharply reduced since a several-box input deck is reduced to a few cards. Finally, the convenience to you in submitting jobs should be emphasized. 2.5.1 Use of User's Master File Functionally, the User's Master File exhibits all of the properties of an Old Problem Tape (OPTP) which would result if a job were terminated after the NASTRAN preface; only the control cards used are different. Thus the User's Master File (UMF) becomes an alternate source of bulk data input to NASTRAN which may be modified in exactly the same way as bulk data is changed during a modified restart. Since the UMF is used as an alternate OPTP functionally, only one or the other may appear in a run. The UMF, then, is used only for an initial run and may not be used in conjunction with a restart. The checkpoint feature may be used with a UMF run, however, and the resulting New Problem Tape (NPTP) may be used as an OPTP in a subsequent restart. In describing the use of the User's Master File, the UMF control cards will be contrasted with their OPTP counterparts. In place of the setup card for the OPTP tape (see Section 5 of the Programmer's Manual for a discussion of these machine and installation dependent NASTRAN driver control cards), use a setup card for the selected UMF tape. In place of the restart dictionary in the Executive Control Deck, use the card UMF k1, k2 described in Section 2.2.1, which selects Bulk Data Deck k2 from UMF tape k1 to use in the current execution. 2.5.2 Using the User's Master File Editor To assist you in creating and maintaining User's Master Files, an auxiliary NASTRAN preface module, the User's Master File Editor, is provided. The functions performed by the Editor are: 1. Create a New User's Master File (NUMF) from Bulk Data Decks supplied by you. 2. List and/or punch Bulk Data Decks from an already existing UMF. 3. Edit Bulk Data Decks (which may be modified) from an old UMF onto a NUMF. Bulk Data Decks must be acceptable to the NASTRAN preface (XSORT and IFP) to be accepted by the Editor. The executive control card that causes NASTRAN to execute as the User's Master File Editor is UMFEDIT. When in the Editor mode, NASTRAN executes only the preface. A separate run is required to use a User's Master File generated by the Editor. Preface module UMFEDT, which is where the User's Master File Editor actions occur, reads data cards from the System Input Stream which are used to control Editor activity. Some of these data cards precede the Bulk Data Deck being processed, while others follow. The remainder of this section will be devoted to describing these cards and the action caused by them. Section 2.5.3 gives some rules to be followed when making up data cards for the Editor. Several examples will then be given in Section 2.5.4 to illustrate the functions performed by the User's Master File Editor. Table 2.5-1 shows the Editor data cards and describes the action taken for each one. Three classes are described, depending on the tapes used. The cards are free-field format, as are the executive control cards and case control cards previously described. The symbolic quantities tid and pid are each up to 8 arbitrarily selected integers chosen by you when you create the User's Master File. Table 2.5-2 shows a summary of Editor control cards. When a New User's Master File (NUMF) is created, the User's Master File Editor (UMFEDIT) punches the Executive Control cards that are needed to read the decks from the newly created master file. The UMFEDIT automatically punches one UMF Executive Control card for each Bulk Data Deck that is written on the NUMHF and lists it in a table of contents. 2.5.3 Rules for the User's Master File Editor 1. The tape identification number, tid, and the problem identification number, pid, are positive integers selected by you. The only exception to this is that pid may be zero if the UMF card is being used only to specify a value for tid or to indicate a new deck rather than an alter set. 2. The tape identification number, tid, must be the same for all decks on a single UMF. 3. Only one pass is made while either reading the UMF or writing the NUMF. Sequential processing requests are thereby required. This means that the problem identification numbers must form an increasing sequence corresponding to the order of the decks. 4. A corollary to 2 is that a deck to be inserted between two decks on an existing UMF must be given a problem identification number whose value lies between the values of the problem identification numbers for the two UMF decks. Thus, an initial numbering sequence such as 10, 20, 30, ... is recommended. 5. Host NASTRAN users develop the habit of "storing" data cards not needed for a given run behind the ENDDATA card, where they are normally ignored. This must not be done when using the Editor, since it reads data from this position. Data cards following the FINIS card are ignored, however. 2.5.4 Examples of User's Master File Editor Usage Several examples of User's Master File Editor usage are given in this section. You are well-advised to study these examples both from the standpoint of understanding the functioning of the Editor and from the standpoint of learning how to use this NASTRAN feature. A symbolic representation of the contents of the UMF and/or NUMF used in each example is given along with an explanation of specific items of interest. These examples illustrate all of the capability of the User's Master File Editor. =PAGE= Example 1. Create a User's Master File ID A,B TIME 1 APP DMAP BEGIN END UMFEDIT CEND TITLE = USER'S MASTER FILE CONTAINS LABEL = PROBLEMS 50, 60, ..., 80 ECHO = BOTH MAXLINES=50000 BEGIN BULK : : 1st Bulk Data Deck ENDDATA NUMF 21026, 50 BEGIN BULK : : 2nd Bulk Data Deck ENDDATA NUMF 21026, 60 : : BEGIN BULK : : Last Bulk Data Deck ENDDATA NUMF 21026, 80 FINIS Notes: 1. A tape must be set up for NASTRAN file NUMF. 2. A tape must not be set up for NASTRAN file UMF. 3. The DMAP sequence will not be used but must appear in the Executive Control Deck. 4. ECHO = BOTH is recommended since the unsorted Bulk Data Deck is available only during the run used to create the User's Master File. The sorted echo is needed in order to make alterations to the bulk data when using the User's Master File in a NASTRAN run. 5. Note that the tape identification number, tid, is the same on all of the NUMF cards. 6. Note that the problem identification numbers, pid, are increasing according to the data deck order. =PAGE= Example 2. List and/or punch selected decks from a User's Master File ID A,B TIME 1 APP DMAP BEGIN END UMF 21026, 0 UMFEDIT CEND ECHO=NONE BEGIN BULK (blank card) ENDDATA LIST 20 PUNCH 50 PUNPRT 60 FINIS Notes: 1. A tape containing the proper User's Master File must be set up on NASTRAN file UMF. 2. A tape must not be set up for NASTRAN file NUMF. 3. The DMAP sequence will not be used but must appear in the Executive Control Deck. 4. The dummy Bulk Data Deck consisting of a single blank card will not be used but must appear. 5. ECHO = NONE is recommended to suppress printout of the dummy Bulk Data Deck. This has no effect on the User's Master File Editor. 6. The zero value of pid on the UMF card is required since only tid is being used in this application. 7. The LIST, PUNCH, and PUNPRT cards must be sequenced such that the pid values form an increasing sequence. 8. The above requests will cause a sorted Bulk Data Deck echo to be made for decks 20 and 60; decks 50 and 60 will be punched. Example 3. Copy a User's Master File while listing and/or punching selected decks. =PAGE= Example 3. Copy a User's Master File While Listing and/or Punching Selected Decks ID A,B TIME 5 APP DMAP BEGIN END UMF 100, 0 UMFEDIT CEND ECHO=NONE BEGIN BULK (blank card) ENDDATA NUMF 200,0 LIST 30 LIST 50 PUNCH 70 FINIS Notes: 1. A tape containing the User's Master File to be copied must be set up on NASTRAN file UMF. 2. A tape must be set up on NASTRAN file NUMF. 3. The DMAP sequence is not used but must appear in the Executive Control Deck. 4. The dummy Bulk Data Deck consisting of a single blank card will not be used but must appear. 5. ECHO = NONE is recommended to suppress printout of the dummy Bulk Data Deck. This has no effect on the User's Master File Editor. 6. The zero value of pid on the UMF card is required since only tid is being used in this application. 7. The zero value of pid on the NUMF card is not used. This card is used to specify tid for the NUMF. If the NUMF card were absent, the same tid would be put on the NUMF as existed on the UMF. 8. The LIST, PUNCH, and PUNPRT cards must be sequenced such that the pid values form an increasing sequence. 9. The above requests will cause a sorted Bulk Data Deck echo to be made for decks 20, 30, and 50; decks 20 and 70 will be punched. 10. All of the decks contained on the UMF will be copied onto the NUMF tape. The tape identification number will be different as explained in Note 7. =PAGE= Example 4. Edit a User's Master File ID A,B TIME 5 APP DMAP BEGIN END UMF 21026, 20 UMFEDIT CEND TITLE = MODIFICATION OF SUBTITLE = DECKS 20 AND 50 ECHO = BOTH BEGIN BULK (alter cards for Deck 20) ENDDATA NUMF 333, 20 REMOVE 40 UMF 21026, 50 BEGIN BULK (alter cards for Deck 50) ENDDATA NUMF 333, 55 REMOVE 60 UMF 21026, 0 BEGIN BULK (Deck 65) ENDDATA NUMF 333, 65 LIST 80 FINIS Notes: 1. A tape containing the User's Master File to be edited must be set up on NASTRAN file UMF. 2. A tape must be set up on NASTRAN file NUMF. 3. The DMAP sequence is not used but must appear in the Executive Control Deck. 4. ECHO = BOTH is recommended since the alter cards are available only during the run used to perform the edit. The sorted echo is needed for those decks being altered in order to make further alterations to the bulk data when using the newly created User's Master File in a NASTRAN run. Decks not being altered will not be echoed as a result of the ECHO = BOTH card. Such decks may be echoed as they are copied as shown in the example for Deck 80. 5. The pid values must form an increasing sequence. 6. The requests in the above example will cause listings to be generated for deck 80; no decks will be punched. 7. Decks 30, 70, 80, and 90 will be copied onto the NUMF with no changes. 8. Decks 10, 40, and 60 will be removed (i.e., not copied onto the NUMF). 9. Decks 20 and 50 will be modified. In addition the problem identification number of Deck 50 will be changed to 55. 10. Deck 65 will be added. 11. Deck 10 is removed because it appears prior to the first call to the Editor. This may be avoided by using a pid of zero and a dummy Bulk Data Deck as shown in Example 3. =PAGE= Table 2.5-1. User's Master File Editor Control Card Actions. I. UMF Only is Present A. FINIS 1. Terminate run. B. BEGIN BULK (Not Allowed) C. REMOVE pid (Not Allowed) D. LIST pid 1. Skip UMF forward to pid and list the Bulk Data Deck on the printer. E. PUNCH pid 1. Skip UMF forward to pid and punch the Bulk Data Deck on the punch. F. UMF tid, pid (Not Allowed) G. NUMF tid, pid (Not Allowed) H. PUNPRT pid 1. Skip UMF forward to pid and then list and punch the Bulk Data Deck. I. PRINT tid 1. List all Bulk Data Decks and Summary Table of Contents. J. TOC tid 1. List all Bulk Data Decks Summary Table of Contents. II. NUMF Only is Present A. FINIS 1. Write end-of-file on NUMF. 2. Terminate run. B. BEGIN BULK 1. Process the next Bulk Data Deck. C. REMOVE pid (Not Allowed) D. LIST pid (Not Allowed) E. PUNCH pid (Not Allowed) F. UMF tid, pid (Not allowed) G. NUMF tid, pid 1. If first entry to Editor, write tape identification file on NUMF. 2. Add preceding Bulk Data to NUMF and automatically punch and list the UMF card for use with UMF. H. PUNPRT pid (Not Allowed) I. TOC tid (Not Allowed) J. PRINT tid (Not Allowed) III. Both UMF and NUMF are Present A. FINIS 1. Copy any remaining Bulk Data Decks from UMF to NUMF. 2. Write end-of-file on NUMF. 3. Terminate run. B. BEGIN BULK 1. Process the next Bulk Data Deck, which may be a new deck or a modified deck from the UMF. C. REMOVE pid 1. Copy UMF onto NUMF up to indicated deck. 2. Skip indicated deck on UMF. D. LIST pid 1. Copy UMF onto NUMF through indicated deck. 2. List indicated Bulk Data Deck on printer. E. PUNCH pid 1. Copy UMF onto NUMF through indicated deck. 2. Punch indicated Bulk Data Deck on printer. F. UMF tid, pid 1. Copy UMF onto NUMF up to indicated deck. (Must be immediately followed by BEGIN BULK card.) G. NUMF tid, pid 1. If first entry to Editor, write tape identification file on NUMF. 2. Copy UMF onto NUMF up to deck with identification greater than pid. 3. Add preceding Bulk Data Deck to NUMF and automatically punch and list the UMF card for use with UMF. H. PUNPRT pid 1. Copy UMF onto NUMF through indicated deck. 2. List indicated Bulk Data Deck on printer. 3. Punch indicated Bulk Data Deck on punch. I. TOC tid (Not Allowed) J. PRINT tid (Not Allowed) =PAGE= Table 2.5-2. Summary of User's Master File Editor Control Cards. LIST pid List the problem deck from UMF or copy the problem deck from UMF onto NUMF and list it. NUMF tid, pid Add problem deck to NUMF, list it, and punch UMF card. PRINT tid List all problem decks from UMF and Summary Table of Contents. PUNCH pid Punch the problem deck from UMF or copy the problem deck from UMF onto NUMF and punch it. PUNPRT pid Punch and print the problem deck from UMF or copy the problem deck from UMF onto NUMF and punch and print it. REMOVE pid Copy problem decks from UMF onto NUMF up to pid and skip over problem pid. TOC tid List all problem decks (Summary Table of Contents) by UMF number from UMF. UMF tid, pid Copy UMF problem deck onto NUMF, list it, and punch UMF card. =PAGE= 2.6 USER GENERATED INPUT You may want to take a problem previously run on another program and run it using NASTRAN. In many instances, this provides you with the quickest means of familiarizing yourself with NASTRAN since you are running a problem which you understand intimately. Also, you may want to extend your analysis of some previously analyzed problem into regions which previous programs would not allow. In either event, you are faced with the problem of input data conversion. The simplest way to convert structural model data is to write a small FORTRAN (or other language) program to read in the data cards composing the input data deck for the previous program and punch a new NASTRAN Bulk Data Deck. Usually, the information is in a one to one correspondence, and this procedure is quite straight forward, requiring only a minimal knowledge of programming. While a large deck of cards may result, by using the User's Master File feature described in Section 2.5, the amount of large deck handling may be minimized. 2.6.1 Utility Module INPUT Usage NASTRAN has implemented one data generating utility module within its existing structure for specific cases. General characteristics of the INPUT module are as follows: 1. INPUT allows you to generate the majority of the bulk data cards for a number of selected test problems without having to actually input the physical cards into the Bulk Data Deck. 2. The test problems for which partial data are generated by INPUT are: a. N x N Laplace Network from scalar elements b. W x L Rectangular Frame from BAR elements or ROD elements c. W x L Rectangular Array of QUAD1 elements d. W x L Rectangular Array of TRIA1 elements e. N-segment string from scalar elements f. N-cell beam made from BAR elements g. N-scalar point full matrix with optional unit loading h. N-spoke wheel These problem types are described separately in the following sections. 3. To use INPUT, variations of the following alter deck must be used: ALTER 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/G1,G2,----,G5/C,N,a/C,N,b/C,N,b $ EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE----/ G5,GEOM5/TRUE $ ENDALTER The specific data blocks that need to be included depend on the particular problem as do the parameter values. Examples for each problem type will be given. 4. Data cards are read by INPUT from the System Input File using FORTRAN I/O, each card containing up to 10 eight column fields. Remember to right justify this data. The required data are described in each problem type description. 5. The INPUT data card(s) follow the ENDDATA card. Do not "store" other data that is not intended to be used by the INPUT module. 6. Several sample problems were run as part of checkout. The inputs for these runs are available as examples of INPUT usage. 7. Restart tables are not effective with respect to "cards" generated by INPUT since the preface is unaware of their existence. 8. The INPUT data generator feature is restrictive. It can only be used in the circumstances illustrated. You may employ the INPUT module as described but merging of user data with INPUT data is not supported. As an example, single point constraints may be defined either in the bulk data deck or in the INPUT module data deck but not both places in an attempt to combine them. Thus if SPC cards are defined in the bulk data deck, then the G4 data block will not be generated and GEOM4 must not be equivalenced to G4. 2.6.1.1 Laplace Circuit (a=1; b=1, 2, or 3; c is not used) INPUT generates CELAS4, SPOINT, SPC (for b=1), and CMASS4 (for b=2,3) cards for the circuit shown. Edge c Ŀ 2 (N+1) - 1 3N+4 Edge b Edge d 2N+3 N+2 N+3 2 3 4 Edge a The scalar point id's are 1 through (N+1)2 except for 1, N+1, N(N+1)+1, and (N+1)2. For b = 2 or 3, all edge points are replaced with ground. The scalar elements generated are shown below for each value of b for a typical cell. Elements between edge points are not generated. =PAGE= i+N+1 i+N+1 * * 6 6 k i+10 k i+10 i fm i * * Ĵ * * i k i+1 6 i k i+1 i+2x10 (b = 1) (b = 2) -fm Ĵ Ŀ 6 -1/2 fm Ĵ i+4x10 *Ĵ Ŀ k i+N+1 6 i+6x10 6 i+10 -fm Ĵ Ŀ fm 6 Ĵ *Ĵ i+3x10 * 6 i i i+1 i+2x10 k -1/2 fm Ĵ * 6 i+N+2 i+5x10 (b = 3) a. Data Card 1 N (I8) N2 = no. of cells 2 k (E8.0) Spring stiffness 3 U (E8.0) Enforced displacement along edge b (b = 1) 3 m (E8.0) Mass (b = 2,3) 4 f (E8.0) Coupling fraction (b = 3 only) b. Options b = 1, statics. Use statics (Rigid Format D-1) to solve V2u = 0 with boundary conditions u = 0 along a , c and d , u = U along b. G2 and G4 are both used. No masses are generated. b = 2, no mass coupling. Use real eigenvalue analysis (Rigid Format D-3) to obtain the eigenvalues of a square membrane (V2u = a2u/at2 where the theoretical solutions for N-> are given by 2 2 1/2 f = 1/N {i + j } ; i,j = 1,2,--- ij U is ignored. Only G2 is used. Diagonal masses only are generated. b = 3, mass coupling. Same as where the diagonal masses are m. The horizontal and vertical masses are -fm; the cross diagonal masses are 1/2 fm. c. Notes (1) For b = 1, SPR = 1000+N must be selected in Case Control Deck. =PAGE= ID INPUT,CASE1 TIME 30 APP DISP SOL 1,3 ALTER 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/,G2,,G4,/C,N,1/C,N,1 $ EQUIV G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER CEND ECHO=BOTH TITLE=TEST OF UTILITY MODULE INPUT SUBTITLE=LAPLACE CIRCUIT LABEL=STATICS SPC=1005 OUTPUT DISP=ALL BEGIN BULK {blank card} ENDDATA u=0 Ŀ 32 33 34 35 25 26 27 28 29 30 19 20 21 22 23 24 u=10 u=0 13 14 15 16 17 18 7 8 9 10 11 12 2 3 4 5 u=0 Lines indicate scalar springs =PAGE= 2.6.1.2 Rectangular Frame Made from BARs or RODs (a=2; b=1, 2, 3, or 4; c=0, 1, 2, or 3) INPUT generates GRID, CBAR, or CROD and SEQGP cards for the rectangular frame shown. y (W+1)(L+1) Ŀ Ĵ Ĵ W+2 W+3 delta y x 1 2 3 4 W+1 Ĵ i+W+1 i+W+2 6 i+W+1 delta x \ /(2i)+2x10 \ 6 \ / 6 \ 6 i+10 \ (2i-1)+2x10 \ (2i-1)+2x10 / \ \ i+W+1 / i \ i \ 6 i i+1 i i+1 i+10 (c = 1) (c = 2) i (rods) (rods) i i+1 (c = 0) (bars) i+W+1 i+W+1 \ 6 6 6 \ (2i-1)+2x10 i+10 i+10 \ \ i i \ i i+1 i i+1 cells other than on (c = 3) cells on left left edge or bottom (rods) edge or bottom =PAGE= a. Data Card 1 W (I8) No. cells in x-direction 2 L (I8) No. cells in y-direction 3 dx (E8.0) Length of cell in x-direction 4 dy (E8.0) Length of cell in y-direction 5 P (I8) Permanent single-point constraints b. Options (SEQGP cards) b = 1, Regular Banding (no SEQGP cards generated) b = 2, Double Banding b = 3, Active Columns b = 4, Reverse Double Banding c = 0, Bars c = 1, Rods with both diagonals c = 2, Rods with UL - LR diagonals c = 3, Rods - statically determinate c. Notes (1) A PBAR card with PID of 101 must be supplied as part of the Bulk Data for c = 0; for c not equal 0 this is a PROD card. (2) If b = 1, SEQGP cards may be included in the Bulk Data. =PAGE= ID INPUT, CASE2 TIME 30 APP DISP SOL 1,3 ALTER 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/G1,G2,,,/C,N,2/C,N,1 $ EQUIV G1 ,GEOM1 /TRUE / G2 ,GEOM2/TRUE $ ENDALTER CEND ECHO=BOTH TITLE=TEST OF UTILITY MODULE INPUT SUBTITLE=RECTANGULAR FRAME FROM BARS LABEL=REGULAR BANDING SPC=1 LOAD=1 OUTPUT SET 101 = 1,4,17,20 DISP=101 BEGIN BULK FORCE 1 20 0 1.0 1.0 0.0 0.0 MAT1 7 1.0 1.0 PBAR 101 7 1.0 2.0 4.0 8.0 SPC 1 1 1234 0.0 4 23 0.0 ENDDATA 3 4 1.0 2.0 345 19 Ŀ 17 18 19 20 Ĵ 13 14 15 16 9 10 11 Ĵ 9 10 11 12 1000005 5 6 7 Ĵ 5 6 7 8 1000001 1000002 1000005 1000004 1 2 3 1 2 3 4 =PAGE= 2.6.1.3 Rectangular Plate Made from QUAD1s (a=3; b=1, 2, 3, or 4; c is not used) INPUT generates GRID, CQUAD1, SEQGP, OMIT (if requested), and SPC (if requested) cards for the rectangular grid work shown. c Ŀ y (L+1)(W+1) Ŀ Ĵ b delta y d Ĵ / * / delta x / / x 1 2 3 W+1 a * Represents sweep angle in degrees i+W+1 i+W+2 Ŀ i i i+1 =PAGE= a. Data Deck (2 cards required) First Card 1 W (I8) No. cells in x-direction 2 L (I8) No. cells in y-direction 3 dx (E8.0) Length of cell in x-direction 4 dy (E8.0) Length of cell in y-direction 5 IP (I8) Permanent Constraints 6 ^ (E8.0) Sweep angle in degrees 7 (E8.0) Material orientation angle in degrees Second Card 1 IY0 (I8) SPC's on y = 0 2 IX0 (I8) SPC's on x = 0 3 IYL (I8) SPC's on y = L x dy 4 IXW (I8) SPC's on x = W x dx 5 IOX (I8) OMIT's in x-direction 6 IOY (I8) OMIT's in y-direction b. Options (SEQGP cards) b = 1, Regular banding (no SEQGP cards generated) b = 2, Double banding b = 3, Active banding b = 4, Reverse double banding c. Notes (1) If IP, IYO, IXO, IYL, IXW, IOX, and IOY are all zero, data block G4 will be purged. (2) A PQUAD1 card with PID = 101 must be included in the Bulk Data. (3) IF SPCs are generated the set ID will be 1000NX + NY. (4) If b = 1, SEQGP cards may be included in the Bulk Data. =PAGE= ID INPUT, CASE3 TIME 30 APP DISP SOL 1,3 ALTER 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $ EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER CEND ECHO=BOTH TITLE=TEST OF UTILITY MODULE INPUT SUBTITLE=RECTANGULAR PLATE MADE FROM CQUAD1'S LABEL=STATICS SIMPLE SUPPORTS REGULAR BAND SPC=5005 LOAD=1 OUTPUT DISP=ALL BEGIN BULK FORCE 1 1 0 1.0 0.0 0.0 1.0 MAT1 7 1.0 1.0 PQUAD1 101 7 1.0 7 2.0 7 4.0 ENDDATA 5 5 10.0 10.0 126 0.0 246 156 12356 12346 0 0 NO OMITS Ŀ Ŀ Ŀ Ŀ 36 29 Ĵ Ĵ Ĵ Ĵ 7 Ĵ 7 8 9 10 11 12 1 2 3 4 5 1 2 3 4 5 6 SPC SET ID IS GIVEN BY 1000 * W + L =PAGE= 2.6.1.4 Rectangular Plate Made from TRIA1s (a=4; b=1, 2, 3, or 4; c is not used) INPUT generates GRID, CTRIA1, SEQGP, and SPC (if requested) cards for the rectangular grid work shown. c Ŀ y (L+1)(W+1) Ŀ Ĵ b d Ĵ * / / / x 1 2 W+1 a * Represents sweep angle in degrees i+W+1 i+W+2 i+W+1 i+W+2 Ŀ Ŀ 2i / \ 2i / \ / \ / 2i-1 2i-1 \ i i+1 i i+1 (c = 1) (c = 2) =PAGE= a. Data Deck (2 cards required) First Card 1 W (I8) No. cells in x-direction 2 L (I8) No. cells in y-direction 3 dx (E8.0) Length of cell in x-direction 4 dy (E8.0) Length of cell in y-direction 5 IP (E8.0) Permanent constraints 6 ^ (E8.0) Sweep angle in degrees 7 (E8.0) Material orientation angle in degrees Second Card 1 IY0 (I8) SPC's on y = 0 2 IX0 (I8) SPC's on x = 0 3 IYL (I8) SPC's on y = L x dy 4 IXW (I8) SPC's on x = W x dx b. Options (SEQGP cards) b = 1, Regular banding (no SEQGP cards generated) b = 2, Double banding b = 3, Active banding b = 4, Reverse double banding c. Notes (1) If IP, IY0, IX0, IYL and IXW are all zero, G4 will be purged. (2) A PTRIA1 card with PID=101 must be included in the Bulk Data. (3) If SPCs are generated the set ID will be 1000NX + NY. (4) If b=1, SEQGP cards may be included in the Bulk Data. =PAGE= ID INPUT, CASE 4 TIME 30 APP DISP SOL 1,3 ALTER 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/G1,G2,,G4,/C,N,4/C,N,1/C,N,1 $ EQUIV G1 ,GEOM1 /TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $ ENDALTER CEND ECHO=BOTH TITLE=TEST OF UTILITY MODULE INPUT SUBTITLE=RECTANGULAR PLATE MADE FROM CTRIA1'S LABEL=OPTION 1 WITH CLAMPED SUPPORTS SPC=3005 LOAD=1 OUTPUT DISP=ALL BEGIN BULK FORCE 1 1 0 1.0 0.0 0.0 1.0 MAT1 7 1.0 1.0 PTRIA1 101 7 1.0 7 2.0 7 4.0 ENDDATA 3 5 2.0 1.0 126 0.0 246 156 412356 512346 Ŀ Ŀ Ŀ Ŀ / / / / / / 24 / / / / / / Ĵ / / / / / / / / / / / / Ĵ / / / Ĵ / / / / / / / / / Ĵ 9 / / / 10 / 10 12 / 11 / 12 / 9 /11 / / / / Ĵ 5 /6 /7 /8 2 / 4 / 6 / / 1 / 3 / 5 / / / 1 2 3 4 =PAGE= 2.6.1.5 N-Segment String (a=5; b and c are not used) INPUT generates CELAS4, CMASS4, and CDAMP4 cards for an N-segment string grounded at both ends. (see below) 1 2 3 4 N k1 2 k1 3 k1 4 k1 k1 N k1 Ŀ 6 m i+10 Ĵ Ŀ 6 k2 i+3x10 i Ĵ 6 b i+2x10 =PAGE= a. Data Card 1 N (I8) No. of segments 2 k1 (E8.0) Spring value 3 k2 (E8.0) Spring value (if zero, none of these elements are generated) 4 m (E8.0) Mass value (if zero, none of these elements are generated) $ b (E8.0) Damper values (if zero, none of these elements are generated) b. Notes (1) If any of k2, m, or b are zero, those elements will not be generated. =PAGE= ID INPUT, CASE 5 TIME 30 APP DISP SOL 1,3 ALTER 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/,G2,,,/C,N,5 $ EQUIV G2,GEOM2/TRUE $ ENDALTER CEND ECHO=BOTH TITLE=TEST OF UTILITY MODULE INPUT SUBTITLE=N-SEGMENT STRING LABEL=STATICS LOAD=1 OUTPUT DISP=ALL BEGIN BULK SLOAD 1 3 1.0 6 1.0 ENDDATA 7 1.0 0.0 0.0 0.0 / / / / 1 2 3 4 5 6 7 / /*W*W*W*W*W*W*W*/ / 2 3 4 5 6 7 / / / / =PAGE= 2.6.1.6 N-Ce11 Bar (a=6; b and c are not used) INPUT generates GRID and CBAR cards for an N-cell bar. OMIT cards will also be created if requested. 1 2 3 N ¿ 1 2 3 4 N N+1 a. Data deck First Card 1 N (I8) No. of cells 2 L (E8.0) Length of bar 3 IP (I8) Permanent constraints 4 IFLG (I8) Orientation vector flag 5 IGO (I8) GO (used only if IFLG = 2) 6 M (I8) No. of right-most grid points to be connected to GP2 via bars with PID = 102 7 IOX (I8) OMIT card count Second Card (Read only if IFLG = 1) 1 X1 (E8.0) Orientation vector X1 component 2 X2 (E8.0) Orientation vector X2 component 3 X3 (E8.0) Orientation vector X3 component b. Notes (1) A PBAR card with PID = 101 is required. If M not equal 0, a PBAR card with PID = 102 is required. (2) IFLG = 2 option is not allowed for this case. (3) Do not include G4 in alter packet unless IOX is greater than 0. =PAGE= ID INPUT, CASE 6 TIME 30 APP DISP SOL 1,3 ALTER 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/G1,G2,,,/C,N,6 $ EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE $ ENDALTER CEND ECHO=BOTH TITLE=TEST OF UTILITY MODULE INPUT SUBTITLE=N-CELL BAR LABEL=STATICS SPC=1 LOAD=1 OUTPUT SET 101=11 DISP=101 BEGIN BULK FORCE 1 11 0 1.0 0.0 1.0 1.0 MAT1 7 1.0 1.0 PBAR 101 7 1.0 2.0 4.0 8.0 SPC 1 1 123456 0.0 PARAM GRDPNT 6 ENDDATA 10 100.0 0 1 0 0 0 0.0 0.0 1.0 1 2 3 4 5 6 7 8 9 10 ¿ 1 2 3 4 5 6 7 8 9 10 11 =PAGE= 2.6.1.7 Full Matrix with Optional Unit Load (a=7; b and c are not used) INPUT generates N scalar points, all of which are interconnected giving N(N+1)/2 elements. On option, SLOAD cards are generated for each CELAS4 scalar point. a. Data Card 1 N (I8) Order of problem 2 NSLOAD (I8) Uniform load flag (= 0, will not generate SLOAD cards; not equal 0, will generate SLOAD cards). b. Notes (1) GP1 is altered as shown in the example in order to run efficiently. (2) If SLOAD cards are generated the load set ID is N. =PAGE= ID INPUT, CASE 7 TIME 30 APP DISP SOL 1,3 ALTER 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT, ,,,,/,G2,G3,,G5/C,N,7 $ EQUIV G2,GEOM2/TRUE / G3,GEOM3/TRUE $ ALTER 4,4 GP1 GEOM1,G5/GPL,EQEXIH,GPDT,CSTM,BGPDT,SIL/V,N,LUSET/C,N,0/V,N,NOGPDT $ ENDALTER CEND ECHO=BOTH TITLE=TEST OF UTILITY MODULE INPUT SUBTITLE=FULL MATRIX WITH OPTIONAL UNIT LOAD LABEL=ORDER = 10 LOAD=10 OUTPUT DISP=ALL SPCF=ALL OLOAD=ALL ELFO=ALL BEGIN BULK {blank card} ENDDATA 10 1 =PAGE= 2.6.1.8 N-Spoked Wheel Made from BAR Elements (a=8; b and c are not used) INPUT generates N+1 GRID points, all of which are connected to the last point, and N CBAR cards. The CBAR cards represent connections around the circumference and spokes in the wheel as shown in Figure 2.6-1. This figure is not included in the machine readable documentation because of complex graphics. Figure 2.6-1. N-spoked wheel made from BAR elements a. Data deck First Card 1 N (I8) No. of spokes 2 XL (E8.0) Radius of wheel 3 IP (I8) Permanent constraints on rim 4 IFLG (I8) Orientation vector flag 5 IGO (I8) GO (used only if IFLG = 2) 6 ICEN (I8) Permanent constraints at center Second Card 1 X1 (E8.0) Orientation vector X1 component 2 X2 (E8.0) Orientation vector X2 component 3 X3 (E8.0) Orientation vector X3 component b. Notes (1) A PBAR card with PID = 101 is required. (2) The option, IFLG = 2, is not allowed for this case. (3) A coordinate system with CID = 2 is required. All points, except the center, will reference this system. (4) The number of spokes, N, cannot exceed 255. =PAGE= ID INPUT, CASE 8 TIME 10 APP DISP SOL 1,3 ALTER 1 PARAM //C,N,NOP/V,N,TRUE=-1 $ INPUT GEOM1,GEOM2,,,/G1,G2,,,/C,N,8 $ EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE $ ENDALTER CEND TITLE = TEST OF UTILITY MODULE INPUT SUBTITLE = N-SPOKED WHEEL LABEL = STATICS LOAD = 20 OUTPUT DISP = ALL BEGIN BULK CORD2C 2 0 0.0 0.0 0.0 1.0 0.0 0.0 +CYL +CYL 0.0 0.0 1.0 FORCE 20 1 0 1.0 1.0 0.0 0.0 MAT1 7 1.0 0.3 PBAR 101 7 1.0 100.0 100.0 ENDDATA 8 10.0 12456 1 0 123456 0.0 0.0 1.0  ================================================ FILE: um/nasthelp.f ================================================ PROGRAM NASTHELP C CDC PROGRAM NASTHELP (INPUT,OUTPUT,TAPE5=INPUT,TAPE6=OUTPUT, CDC 1 TAPE2,TAPE3,TAPE4) C C THIS PROGRAM PROVIDES ON-LINE SCREEN HELP FOR NASTRAN USER'S C MANUAL INFORMATION. THE COMPLETE MANUAL IS STORED IN THE C FOLLOWING ASCII TEXT FILES, WHICH ARE ALSO ACCESSIBLE TO ANY C SYSTEM EDITOR: C C MANUAL SECTION FILE NAME C ------------------- --------- C 1. EXECUTIVE CONTROL EXEC.TXT C 2. CASE CONTROL CASE.TXT C 3. INPUT BULK DATA BULK.TXT C 4. PLOTTING PLOT.TXT C 5. DMAP DMAP.TXT C 6. SUBSTRUCTURE SUBS.TXT C 7. ERROR MESSAGES MSSG.TXT C 8. NASTRAN DICTIONARY DICT.TXT C 9. INTRODUCTION & GENERAL INFORMATION INTR.TXT C 10. USER'S MASTER FILE AND USER GENERATED INPUT UMFL.TXT C 11. RIGID FORMATS RFMT.TXT C C C IN ADDITION, C IF FILE SELECTION IS FOLLOWED BY ',C', THIS PROGRAM WILL ONLY C CHECK THE INPUT FILE FOR OUT-OF-ORDER ITEMS, DUPLICATE ITEMS, C AND HEADER 12 CHARACTERS (EXEC, CASE, BULK, PLOT, DMAP AND C SUBS.TXT FILES ONLY) C C IF FILE SELECTION IS FOLLOWED BY ',P', THIS PROGRAM WILL PRINT C THE ENTIRE CONTENTS OF THE FILE WITH PROPER CARRIAGE CONTROL AND C PAGING C C DESIGN REQUIREMENTS FOR MANUAL TEXT FILES C (1) A POUND SIGN (#) ON COLUMN 1, MUST PRECEED EACH ITEM C (2) '=PAGE=' IN FIRST 6 COLUMNS OF A LINE IS A PAGE MARK C (3) EACH ITEM MUST BEGIN WITH ONE OF THE FOLLOWING WORDS, 12 CHAR. C EACH 111111 C ..123456789012345..(COLUMN) C Executive Co C Case Control C Input Data C C Structure Pl C X-Y Output D C Name: C Substructure Co (special C Substructure Mo 15 C Substructure Op chars.) C (REVISED 4/93, DUE TO CHANGES IN THE .TXT FILES, HEADER WORDS C IN (3) ARE NO LONGER USED) C (4) SEARCH BY KEY NASTRAN WORD AFTER EACH HEADER WORDS IN (3) C (5) KEY NASTRAN WORDS MUST BE IN ALPHA-NUMERIC SORT C (6) USE ',C' OPTION IN FILE SELECTION FOR DATA CARDS CHECK C C SOME OF THE ABOVE COMMENTS MAY NO LONGER BE TRUE (1993) C C FORTRAN FILE ASSIGNMENTS - C C FORTRAN C FILE NAME UNIT NO. STATUS FILE CONTENTS C ----------- ------- --------- -------------------------------- C SYS$INPUT 5 INPUT KEYBOARD INPUT C SYS$OUTPUT 6 OUTPUT TERMINAL OUTPUT C COV.TAB 4 INPUT CONTAINS MACHINE DEPENDENT ASCII C (OPTIONAL) SPECIAL SYMBOL CONVERSION TABLE C NASTRAN MANUAL 3 INPUT EXEC,CASE,BULK,PLOT,SUBS,DMAP, C .TXT FILES MSSG,DICT,INTR UMFL and RFMT.TXT C USER GIVEN 2 OUTPUT OUTPUT PRINT FILE C FILE NAME (OPTIONAL) C C PROGRAM FLAGS USED: C FL = 1 THRU 11, FOR 11 DIFFERENT MANUAL.TXT FILES C SEC = 1, MEANS SEARCH BY SECTION ALLOWED, ZERO OTHERWISE C HD12 = 0, NO HEADER LINE ON TEXT. OTHEREWISE, C HD12(FL) IS THE APPROPIATE HEADER LINE FOR FILE FL C BASE = N, SKIP N WORDS ON HEADER LINE WHEN SEARCHING KEY WORD C = 0, SET TO ZERO DUE TO CHANGES IN 1993 USER'S MANUAL C MIDPT = AN INTEGER OF A CHARACTER SYMBOL INDICATING THE MID POINT C ON TEXT FILE C MDPT = M, NO. OF LINES TO SKIP TO MID POINT OF TEXT FILE C = 0, MEANS NO SKIPPING C J4 = 2ND ALTERNATE BASE FOR PLOT.TXT C J5,J6 = 2ND AND 3RD ALTERNATE BASE FOR SUBS.TXT C C WRITTEN BY GORDON CHAN/UNISYS 3/1992 C REVISED FOR NEW .TXT FILES FORMAT 4/1993 C General cleanup and comments C added by Reg Mitchell, GSFC 8/1994 C Last modification 9/9/94 C IMPLICIT INTEGER (A-Z) LOGICAL CHECK,PRINT,FIRST,ETY,POPEN,DEBUG INTEGER IVAL(256),NUMSUB(256),NVAL(256,10),BASE(11) CHARACTER*1 KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL,KM,KN,KO,KP,KQ, 1 KR,KS,KT,KU,KV,KW,KX,KY,KZ,BNK1,LB1,UP1,LT1,MNS,PLUS, 2 CMA,DOT,NUM,QM, LLa,LLz, 3 LC,IC,JC,JX1,YES,NO, A1(80),A11,K1(8) CHARACTER*4 A4,KEY4,KEY42,BNK4,NEW4,WAS4,APPR,APP,SOLU,SOL, 1 STP4,STP4L,EXIT4,EXIT4L,QUIT4,QUIT4L,NXTP,NXTS,NXTB, 2 FILE,FILEX(11) CHARACTER PAG3*3,PAG6*6,KEY6*6,KEY8*8,FNAME*8,MACH*16,DATE9*9, 1 A3*3,A6*6,A12*12,OU12*42,A48*48,B48*48,A79*79,A80*80, 2 K44*44,KA44*44,HD6*6,HD12(6)*12,DBGO*8,DBGF*8,TCTF*35 CHARACTER DEV_DIR*7 COMMON /KHR/ KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL,KM,KN,KO,KP,KQ, 1 KR,KS,KT,KU,KV,KW,KX,KY,KZ,BNK1,LB1,UP1,LT1,MNS,PLUS, 2 CMA,DOT,NUM(10) EQUIVALENCE (KA44,KA),(YES,KY),(NO,KN),(PAG3,PAG6),(FILE,FNAME), 1 (A1(1),A11,A4,A3,A6,A12,A48,A79,A80,JX1),(A1(3),JC), 2 (K1(1),KEY4,KEY6,KEY8),(KEY42,K1(5)),(A1(2),IC) DATA IN,OUT,TB,OU / 5, 6, 4, 2 /, NLP,ETY / 21, .TRUE. /, C 1 BASE / 23, 24, 17, 25, 6, 21, 0, 0, 0, 0, 0 /, 1 BASE / 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /, 2 J4,J5,J6, T1, T2, T3 , LLa, LLz, NEW4 / 3 21,26,41, 16777216, 65536, 256, 'a', 'z', '| ' /, 4 K44 /'ABCDEFGHIJKLMNOPQRSTUVWXYZ #^<-+,.1234567890'/, 5 BNK4,STP4,PAG6,B48 / ' ', 'STOP','=PAGE=', ' ' /, 6 NXTP,NXTS,NXTB,QM / 'P ', 'S ','B ', '?' /, 7 APPR,APP, SOLU,SOL / 'APPR','APP ','SOLU','SOL ' /, 8 FILEX / 'EXEC','CASE','BULK','PLOT','DMAP','SUBS' , 9 'MSSG','DICT','INTR','UMFL','RFMT'/,FNAME/'XXXX.TXT' O/, MACH / ' UNIX VERSION ' /, DATE9 / 'AUG. 1994' /, 1 FIRST,CHECK,PRINT,DEBUG / .TRUE., 3*.FALSE. /, 2 LU,IVFF / 3, 12 /, HD6 / 'Name: '/, HD12 / 3 'Executive Co', 'Case Control', 'Input Data C' , 4 'Structure Pl', 'X-Y Output D', 'Substructure' /, 5 TCTF / ' or terminate current text file(^):' /, 6 DBGO,DBGF / 'DEBUG ON', 'DEBUG OF'/,STP4L /'stop'/, 7 EXIT4,EXIT4L / 'EXIT','exit' /, 8 QUIT4,QUIT4L / 'QUIT','quit' / DATA DEV_DIR/'DEV_DIR'/ C COMPLF(I) = NOT(I) C KA44 = K44 NUM1 = ICHAR(NUM(1)) NUM9 = ICHAR(NUM(9)) La = ICHAR(LLa) Lz = ICHAR(LLz) BA = ICHAR(KA ) Aa = BA - La NUMCOV = 0 POPEN = .FALSE. C C OPEN THE SPECIAL CHARACTER CONVERSION FILE (UNIT 2). C OPEN (UNIT=TB,FILE='COV.TAB',ACCESS='SEQUENTIAL',FORM='FORMATTED', 1 STATUS='OLD',ERR=130) C C COV.TAB FILE BEGINS WITH A HEADER RECORD, THEN FOLLOWED BY RECORDS C OF 3 INTEGER WORDS, IN 3I4 FORMAT, WHICH ARE: C INCOMING SYMBOL, NO. OF BYTE, AND OUTGOING CORRESPONDING SYMBOL C C 1 1 124 C 2 1 124 C : : : C 256 1 124 C READ (TB,100,END=130) DO 120 I = 1,256 READ (TB,100,END=130) IVAL(I),N,(NVAL(I,J),J=1,N) IF (N .GT. 10) WRITE (OUT,110) I,N 100 FORMAT (12I4) 110 FORMAT (' *** Error in COV.TAB I,N =',2I5) NUMSUB(I) = N 120 CONTINUE I = 257 CLOSE (UNIT=TB) C SPECIAL CHARACTER TABLE HAS BEEN READ 130 NUMCOV = I - 1 C C PRINT PROGRAM HEADER C WRITE (OUT,140) 140 FORMAT (/////////) WRITE (OUT,150) MACH,DATE9 150 FORMAT (34X,4H****, /32X,1H*,6X,1H*, /31X,1H*,8X,1H*, /31X, 1 18H* N A S T H E L P, /31X,1H*,8X,1H*, /32X,1H*,6X,1H*, 2 /34X,4H****, ///15X,A16,10X,17HSYSTEM RELEASE - ,A9) WRITE (OUT,160) 160 FORMAT (//,' Is your screen capable of MORE THAN 80 columns? ', 1 '(Y or N (default))') READ (IN,170) LC 170 FORMAT (3A1) ETY = .FALSE. IF (LC .EQ. BNK1) GO TO 180 IF (ICHAR(LC).GE.La .AND. ICHAR(LC).LE.Lz) LC = CHAR(ICHAR(LC)+Aa) IF (LC .EQ. YES) ETY = .TRUE. 180 WRITE (OUT,190) NLP 190 FORMAT (//,' Enter LINES PER PAGE (default is',I3,') ') READ (IN,200,ERR=180) J 200 FORMAT (I2) IF (J .GT. 1) NLP = J NLP4 = NLP - 4 WRITE (OUT,210) 210 FORMAT (/,' A text line marked by | in column 1 indicates that ', 1 'this line contains updated', /,' material since the ', 2 'June 1986 NASTRAN Users'' Manual') IF (ETY) WRITE (OUT,215) 215 FORMAT (/,' If your screen loses character in column 80, it is ', 1 'because your terminal lacks',/,' 80-column capability.') WRITE (OUT,220) 220 FORMAT (//,' NASTHELP accepts both UPPER and lower case input') C 1 /,' The terms STOP and QUIT are interchangable') C READY TO BEGIN READING A MANUAL GO TO 240 C CLOSE CURRENT MANUAL IF STILL OPEN 230 CLOSE (UNIT=LU) C C PROCESS REQUEST FOR USER MANUAL SELECTION C 240 WRITE (OUT,250) 250 FORMAT (/,' Enter letter for desired part of NASTRAN', O ' User''s Manual',//, 1 ' Introduction(I) Don''t know(?)',/, 2 ' Executive(E) Case control(C) Bulkdata(B)',/, 3 ' DMAP(D) Rigid Formats(R) Plotting(P)',/, 4 ' Messages(M) Substructures(S) UMF/UGI(U)',/, 5 ' Dictionary(T) Stop/quit(STOP)') READ (IN,170) LC,IC,JC C CONVERT TO UPPER CASE IF NECESSARY IF (ICHAR(LC).GE.La .AND. ICHAR(LC).LE.Lz) LC = CHAR(ICHAR(LC)+Aa) IF (ICHAR(IC).GE.La .AND. ICHAR(IC).LE.Lz) IC = CHAR(ICHAR(IC)+Aa) IF (ICHAR(JC).GE.La .AND. ICHAR(JC).LE.Lz) JC = CHAR(ICHAR(JC)+Aa) C CHECK FOR A COMMA IN SECOND POSITION IF (IC .NE. CMA) GO TO 260 IF (JC .EQ. KC) CHECK = .TRUE. IF (JC .EQ. KP) PRINT = .TRUE. 260 IF (LC.EQ.KS .AND. JC.EQ.KO) GO TO 2210 FIRST = .TRUE. LAST = -1 SEC = 1 MDPT = 0 MQ = 0 IF (LC .EQ. KE) GO TO 310 IF (LC .EQ. KC) GO TO 320 IF (LC .EQ. KB) GO TO 330 IF (LC .EQ. KP) GO TO 340 IF (LC .EQ. KD) GO TO 350 IF (LC .EQ. KS) GO TO 360 IF (LC .EQ. KM) GO TO 370 IF (LC .EQ. KT) GO TO 380 IF (LC .EQ. KI) GO TO 390 IF (LC .EQ. KU) GO TO 400 IF (LC .EQ. KR) GO TO 405 IF (LC .EQ. QM) GO TO 280 WRITE (OUT,270) 270 FORMAT (/,' *** SELECTION error') GO TO 240 C 280 MQ = 1 GO TO 310 C C GET NEW MANUAL REQUEST 300 CLOSE (UNIT=LU) GO TO 240 C C SET FL TO THE REQUESTED NASTRAN MANUAL (EXEC=1, CASE=2, ETC.) C DEFINE MID-POINT IN FILE FOR SKIPPING, AND SET HEADER SEARCH C MIDPT IS THE FIRST LETTER OF KEY WORDS, C MDPT IS NO. OF RECORDS TO BE SKIPPED. C C USE ANY SYSTEM EDITOR TO LOCATE THE MID-POINT OF FILE C 310 FL = 1 GO TO 410 320 FL = 2 GO TO 410 330 FL = 3 MIDPT= ICHAR(KN) MDPT = 10741 GO TO 410 340 FL = 4 GO TO 410 350 FL = 5 GO TO 410 360 FL = 6 GO TO 410 370 FL = 7 SEC = 0 MIDPT= ICHAR(NUM(3)) MDPT = 3550 GO TO 410 380 FL = 8 SEC = 0 GO TO 410 390 FL = 9 IF (NLP-4 .EQ. NLP4) NLP = NLP - 1 GO TO 410 400 FL = 10 GO TO 410 405 FL = 11 GO TO 410 C C OPEN THE REQUESTED NASTRAN MANUAL FILE C 410 FILE = FILEX(FL) WAS1 = COMPLF(0) WAS2 = WAS1 OPEN (UNIT=LU,FILE=FNAME,ACCESS='SEQUENTIAL',FORM='FORMATTED', 1 STATUS='OLD',ERR=412) GO TO 415 412 WRITE (OUT,413) FNAME 413 FORMAT (//1X,A8,' file DOES NOT EXIST') IF (JC .NE. KU) GO TO 240 GO TO 2210 C 415 CONTINUE IF (CHECK) GO TO 1700 IF (PRINT) GO TO 2000 SOUNT = 0 C SEARCH KEY WORD OR NUMBER AS APPROPRIATE, BASED ON MANUAL FLAG. C 1=EXEC,2=CASE,3=BULK,4=PLOT,5=DMAP,6=SUBS,7=MSSG,8=DICT, C 9=INTR,10=UMFL,11=RFMT 420 GO TO (650,650,650,650,650,650,430,540,610,610,650), FL C C MESSAGE SEARCH IN FILE MSSG.TXT C 430 WRITE (OUT,440) TCTF 440 FORMAT (/,' Enter MESSAGE NUMBER (up to 4 digits) or STOP,',A35) READ (IN,450) A4 450 FORMAT (A4) IF (A11 .EQ. UP1) GO TO 300 IF (A4 .EQ. STP4) GO TO 2200 IF (A4 .EQ. STP4L) GO TO 2200 IF (A4 .EQ. EXIT4) GO TO 2200 IF (A4 .EQ. EXIT4L) GO TO 2200 IF (A4 .EQ. QUIT4) GO TO 2200 IF (A4 .EQ. QUIT4L) GO TO 2200 REWIND LU COUNT = 0 J = 0 460 IF (A1(3) .NE. BNK1) GO TO 470 J = J + 1 IF (J .GT. 2) GO TO 430 A1(3) = A1(2) A1(2) = A1(1) A11 = BNK1 GO TO 460 470 IF (A1(4) .EQ. BNK1) GO TO 490 IF (MDPT.EQ.0 .OR. ICHAR(A11).LT.MIDPT) GO TO 490 DO 480 I = 1,MDPT READ (LU,450,END=500) 480 CONTINUE COUNT = MDPT 490 READ (LU,450,END=500) KEY4 COUNT = COUNT + 1 IF (KEY4.EQ.BNK4 .OR. KEY4.EQ.NEW4 .OR. KEY4.NE.A4) GO TO 490 BACKSPACE LU KOUNT = 2 GO TO 1200 500 WRITE (OUT,510) 510 FORMAT (' *** No Such MESSAGE NO. ***',/) GO TO 430 C C DICTIONARY SEARCH IN FILE DICT.TXT C 540 WRITE (OUT,550) TCTF 550 FORMAT (/,' Enter DICTIONARY word or STOP,',A35) READ (IN,560) A6 560 FORMAT (A6) IF (A11 .EQ. UP1) GO TO 300 DO 570 J = 1,6 IF (ICHAR(A1(J)).GE.La .AND. ICHAR(A1(J)).LE.Lz) 1 A1(J) = CHAR(ICHAR(A1(J))+Aa) 570 CONTINUE IF (A4 .EQ. STP4) GO TO 300 IF (A4 .EQ. QUIT4) GO TO 300 IF (A4 .EQ. STP4L) GO TO 300 IF (A4 .EQ. QUIT4L) GO TO 300 REWIND LU 580 READ (LU,560,END=590) KEY6 IF (KEY4.EQ.BNK4 .OR. KEY4.EQ.NEW4 .OR. KEY6.NE.A6) GO TO 580 BACKSPACE LU KOUNT = 1 GO TO 1200 590 WRITE (OUT,600) 600 FORMAT (' *** No such term in NASTRAN Dictionary') GO TO 540 C C INTRODUCTION OR USER-MASTER-FILE SEARCH OF FILES INTR OR UMFL.TXT C C SEARCH BY SECTION, SUBSECTION, AND PAGE ONLY C SECTION AND SUBSECTION MUST BE PRECEEDED BY A BLANK LINE C 610 WRITE (OUT,620) TCTF 620 FORMAT (/,' Enter section(S), sub-section(B), page(P), ', 1 'or stop(STOP),', /,A35) GO TO 670 C 630 PASS = PASS + 1 IF (PASS .GE. 2) WRITE (OUT,640) FNAME 640 FORMAT (17X,'No such WORD in ',A8,' file') REWIND LU COUNT = 0 IF (PASS .EQ. 1) GO TO 700 C C GENERAL SEARCH FOR FILE TYPES = EXEC, CASE, BULK, PLOT, DMAP, C SUBS OR RFMT.TXT C KEY WORD or SECTION SEARCH C 650 WRITE (OUT,660) TCTF 660 FORMAT (/,' Enter NASTRAN KEY WORD, STOP, next page(P),', 1 ' next section(S),',/,' next sub-section(B), ',A35) 670 READ (IN,680) KEY8 680 FORMAT (A8) PASS = 0 LAST = COUNT IF (K1(1) .EQ. UP1) GO TO 230 C NOT A ^ CHARACTER, CONVERT TO UPPER CASE AND PROCESS DO 690 ILOOP = 1,8 IF (ICHAR(K1(ILOOP)).GE.La .AND. ICHAR(K1(ILOOP)).LE.Lz) 1 K1(ILOOP) = CHAR(ICHAR(K1(ILOOP))+Aa) 690 CONTINUE IF (KEY4 .EQ. STP4) GO TO 1600 IF (KEY4 .EQ. QUIT4) GO TO 1600 IF (KEY4 .EQ. BNK4) GO TO 650 IF (KEY4 .EQ. NXTP) GO TO 980 IF (KEY4 .EQ. NXTS) GO TO 750 IF (KEY4 .EQ. NXTB) GO TO 730 IF (KEY8 .EQ. DBGO) DEBUG = .TRUE. IF (KEY8 .EQ. DBGF) DEBUG = .FALSE. IF (KEY8.EQ.DBGO .OR. KEY8.EQ.DBGF) GO TO 650 IF (FL.EQ.9 .OR. FL.EQ.10) GO TO 610 700 JDX = 9 IF (SEC .EQ. 1) GO TO 900 IF (K1(1).NE.KS .AND. K1(1).NE.KB) GO TO 900 C 710 WRITE (OUT,720) FNAME 720 FORMAT (/,' *** Search by SECTION is not practical on this ',A8, 1 ' file') GO TO 650 C 730 KEY4 = NXTB IF (SOUNT .GT. 0) GO TO 755 WRITE (OUT,740) 740 FORMAT (/,' *** SUBSECTION is requested without first request of', 1 ' SECTION ***') GO TO 650 750 KEY4 = NXTS SOUNT = 0 IF (COUNT .LE. 1) GO TO 1200 755 A4 = STP4 760 WAS4 = A4 READ (LU,770,END=880) A12 770 FORMAT (A12) COUNT = COUNT + 1 IF (PASS.EQ.2 .AND. COUNT.EQ.LAST) GO TO 1620 IF (A4.EQ.BNK4 .OR. A4.EQ.NEW4) GO TO 760 IF (WAS4 .NE. BNK4) GO TO 760 I = ICHAR(A11) IF (A11 .EQ. BNK1) I = ICHAR(A1(2)) IF (I.LT.NUM1 .OR. I.GT.NUM9) GO TO 760 NDOT = 0 DO 780 I = 2,11 IF (A1(I) .NE. DOT) GO TO 780 IF (A1(I+1).NE.BNK1 .AND. A1(I+1).NE.DOT) NDOT = NDOT + 1 780 CONTINUE IF (NDOT-1) 760,790,810 790 IF (KEY4 .EQ. NXTB) GO TO 820 SOUNT = COUNT - 1 800 COUNT = COUNT - 1 BACKSPACE LU GO TO 1200 810 IF (KEY4 .EQ. NXTS) GO TO 760 GO TO 800 820 WRITE (OUT,830) TCTF 830 FORMAT (/,' *** End of SECTION ***', /,' return to Key(K), ', 1 'return to beginning of section(R), next section(N)', 2 /,' stop(STOP),',A35) READ (IN,170) IC IF (ICHAR(IC).GE.La .AND. ICHAR(IC).LE.Lz) IC = CHAR(ICHAR(IC)+Aa) IF (IC .EQ. UP1) GO TO 230 IF (IC .EQ. KS ) GO TO 2200 IF (IC .EQ. KK ) GO TO 650 IF (IC .EQ. KN ) GO TO 860 IF (IC .NE. KR ) GO TO 820 IF (SOUNT .LE. 1) GO TO 870 J = COUNT - SOUNT + 2 840 DO 850 I = 1,J BACKSPACE LU 850 COUNT = COUNT - 1 IF (COUNT .LT. 0) COUNT = 0 KEY4 = NXTS GO TO 1200 860 J = 1 GO TO 840 870 REWIND LU KEY4 = NXTS GO TO 1200 880 WRITE (OUT,890) 890 FORMAT (' *** End of File ***') REWIND LU SOUNT = 0 GO TO 650 C C KEY WORD SEARCH - FIRST SEARCH HEADING THEN KEY WORD C 900 JDX = JDX - 1 IF (K1(JDX) .EQ. BNK1) GO TO 900 IF (JDX .LE. 0) GO TO 630 IF (FL .NE. 1) GO TO 910 C C SOME KEY WORDS IN EXECUTIVE CONTROL SECTION MAY BE ABBREVIATED. C 4 BYTES ARE USED FOR ALL EXECUTIVE CONTROL KEY WORDS C IF (JDX .GT. 4) JDX = 4 IF (KEY4 .EQ. APPR) KEY4 = APP IF (KEY4 .EQ. SOLU) KEY4 = SOL C C IF KEY IS LESS THAN 4 LETTERS, ADD A BLANK AT THE END SO THAT C 'SOF' IS NOT 'SOFIN', 'SOFOUT', etc. C 910 IF (JDX .GE. 4) GO TO 920 JDX = JDX + 1 K1(JDX) = BNK1 C C T1 = 2**8, T2 = 2**16, T3 = 2**24 C IS0 = FIRST CHARACTER OF THE 8-BYTE KEY WORD IN NUMERIC VALUE C IS1 = FIRST HALF OF THE 8-BYTE KEY WORD IN NUMERIC VALUE C IS2 = SECOND HALF OF THE 8-BYTE KEY WORD IN NUMERIC VALUE C C THAT IS, WE WILL USE NUMERIC VALUE FOR KEY WORD SEARCH C 920 IS0 = ICHAR(K1(1)) IS1 = IS0*T1 + ICHAR(K1(2))*T2 + ICHAR(K1(3))*T3 + ICHAR(K1(4)) IS2 = ICHAR(K1(5))*T1 + ICHAR(K1(6))*T2 + ICHAR(K1(7))*T3 + 1 ICHAR(K1(8)) C C COMPARE PRESENT KEY WORD AND PREVIOUS KEY AND DETERMINE WE NEED C TO REWIND FILE OR NOT C C IF TEXT FILE IS NOT PRESORTED, WE NEED TO REWIND FILE ON EACH NEW C KEY WORD. (USER'S MANUAL IS SORTED) C IF (IS1-WAS1) 940,930,980 930 IF (IS2-WAS2) 940,950,980 940 REWIND LU COUNT = 0 GO TO 980 950 WRITE (OUT,960) 960 FORMAT (' Same KEY WORD as before. Continue? (Y,N) ') READ (IN,170) IC IF (ICHAR(IC).GE.La .AND. ICHAR(IC).LE.Lz) IC = CHAR(ICHAR(IC)+Aa) IF (IC .EQ. NO) GO TO 650 REWIND LU COUNT = 0 C C IF KEY WORD IS BEYOND MID-POINT, SKIP HALF OF THE RECORDS IN FILE C IF (MDPT.EQ.0 .OR. ICHAR(K1(1)).LT.MIDPT) GO TO 980 L = MDPT - COUNT + 1 DO 970 J = 1,L READ (LU,170) 970 CONTINUE COUNT = COUNT + L C C IVFF IS PAGE MARK. PAG6 IS '=PAGE=' C LOOK FOR PAGE MARK OR '=PA' FIRST C 980 READ (LU,170,END=630) JX1,IC,JC COUNT = COUNT + 1 IF (PASS.EQ.2 .AND. COUNT.EQ.LAST) GO TO 1620 IVJX1 = ICHAR(JX1) IF (JX1.NE.LB1 .AND. IVJX1.NE.IVFF .AND. A3.NE.PAG3) GO TO 980 IF (DEBUG) WRITE (OUT,990) JX1,IC,JC 990 FORMAT (40X,'@980 Just read- ',8A1) IF (KEY4.EQ.NXTP .AND. A3.EQ.PAG3) GO TO 1240 J = 0 1000 READ (LU,1250,END=1450) A80 IF (DEBUG) WRITE (OUT,1005) (A1(I),I=1,8) 1005 FORMAT (36X,'@1005 Just read- ',8A1) COUNT = COUNT + 1 IF (PASS.EQ.2 .AND. COUNT.EQ.LAST) GO TO 1620 J = J + 1 IF (J .GE. 7) GO TO 980 IF (A4.EQ.BNK4 .OR. A4.EQ.NEW4) GO TO 1000 IF (ICHAR(A11) .EQ. IVFF) GO TO 1000 C C KEY WORD HEADING SEARCH C C ****************************************************** C * HEADER WORDS WERE REMOVED IN 1993 USER'S MANUAL * J = 0 IF (J .EQ. 0) GO TO 1120 C ****************************************************** C GO TO (1010,1010,1010,1010,1030,1010,1100,1100,1100,1100,1050), FL 1010 IF (DEBUG) WRITE (OUT,1020) A12,HD12(FL) 1020 FORMAT (50X,A12,'==> ',A12) IF (A12 .EQ. HD12(FL)) GO TO 1050 IF (FL.EQ.4 .AND. A12.EQ.HD12(5)) GO TO 1040 GO TO 1000 1030 IF (A6 .NE. HD6) GO TO 1000 GO TO 1050 C 1040 J = J4 GO TO 1060 1050 J = BASE(FL) 1060 IF (FL .NE. 6) GO TO 1070 IF (A1(14) .EQ. KM) J = J5 IF (A1(14) .EQ. KO) J = J6 1070 IF (A1(J) .NE. BNK1) J = J - 1 IF (DEBUG) WRITE (OUT,1080) J 1080 FORMAT (45X,'@1080 BASE J =',I3) 1090 IF (A1(J+1) .NE. BNK1) GO TO 1120 J = J + 1 GO TO 1090 C 1100 WRITE (OUT,1110) FL 1110 FORMAT (/,' *** SHOULD NOT BE HERE. FL =',I3) GO TO 240 C C KEY WORD SEARCH C 1120 IF (DEBUG) WRITE (OUT,1130) (A1(J+I),I=1,JDX),LT1,LT1, 1 (K1(I),I=1,JDX) 1130 FORMAT (30X,'@1130 - ',18A1) DO 1140 I = 1,JDX IF (A1(J+I) .NE. K1(I)) GO TO 980 1140 CONTINUE C C KEY WORD FOUND ON FILE C WAS1 = IS1 WAS2 = IS2 KOUNT = 6 IF (FIRST) KOUNT = 8 WRITE (OUT,1150) 1150 FORMAT (//) IF ( ETY) WRITE (OUT,1290) A80 IF (.NOT.ETY) WRITE (OUT,1300) A79 C C RECORD FOUND. READ AND PRINT ON SCREEN C ALLOW UP TO 4 BLANK LINES PRINTED ON SCREEN C 1200 JOUNT = COUNT - 4 BLINE = 0 IF (NUMCOV .EQ. 0) GO TO 1240 DO 1210 J = 1,80 DO 1210 I = 1,NUMCOV IF (ICHAR(A1(J)) .EQ. IVAL(I)) A1(J) = CHAR(NVAL(I,1)) 1210 CONTINUE GO TO 1240 C 1220 WRITE (OUT,1230) 1230 FORMAT (///) KOUNT = KOUNT + 3 C 1240 READ (LU,1250,END=1450) A80 1250 FORMAT (A80) COUNT = COUNT + 1 IF (ICHAR(A11).EQ.IVFF .OR. A6.EQ.PAG6) GO TO 1220 IF (A48 .NE. B48) GO TO 1260 IF (BLINE .GT. 4) GO TO 1240 BLINE = BLINE + 1 WRITE (OUT,170) A11 GO TO 1310 1260 BLINE = 0 IF (NUMCOV .EQ. 0) GO TO 1280 DO 1270 J = 1,80 DO 1270 I = 1,NUMCOV IF (ICHAR(A1(J)) .EQ. IVAL(I)) A1(J) = CHAR(NVAL(I,1)) 1270 CONTINUE 1280 IF (A11 .EQ. LB1) GO TO 1470 IF ( ETY) WRITE (OUT,1290) A80 IF (.NOT.ETY) WRITE (OUT,1300) A79 1290 FORMAT (1X,A80) 1300 FORMAT (1X,A79) 1310 KOUNT = KOUNT + 1 IF (MOD(KOUNT,NLP) .NE. 0) GO TO 1240 GO TO (1320,1320,1320,1320,1320,1320,420,420,1320,1320,1320), FL 1320 IF (.NOT.FIRST) GO TO 1350 FIRST = .FALSE. WRITE (OUT,1332) NLP4 1332 FORMAT(' (Y,N,STOP,1,2,...,',I2,',-n,P,S,B,^,PRINT,HELP or )') GO TO 1350 1330 WRITE (OUT,1340) NLP4,NLP,NLP4 1340 FORMAT (' (Y,N,STOP,1,2,...,',I2,',-n,P,S,B,^,PRINT,HELP or )' C /11X,'Y or = yes more', O /11X,'N = no more on this item', 1 /11X,'STOP = terminate NASTHELP', 2 /11X,'1,2,...,n = keep bottom n lines on next page. (',I2, 3 ' max)', 4 /11X,'-n = back up n+',I2,' lines', 5 /11X,'P,S,B = go to next page, next section, or next', 6 ' sub-section', 7 /11X,'^ = terminate current text file', 8 /11X,'PRINT = print text, up to last line on screen', 9 /11X,'HELP = echo options of MORE', /,' ...more? ') GO TO 1370 1350 WRITE (OUT,1360) 1360 FORMAT (' ...more? ') 1370 READ (IN,170) IC,JC,LC IF (IC .EQ. UP1) GO TO 230 IF (ICHAR(LC).GE.La .AND. ICHAR(LC).LE.Lz) LC = CHAR(ICHAR(LC)+Aa) IF (ICHAR(IC).GE.La .AND. ICHAR(IC).LE.Lz) IC = CHAR(ICHAR(IC)+Aa) IF (ICHAR(JC).GE.La .AND. ICHAR(JC).LE.Lz) JC = CHAR(ICHAR(JC)+Aa) IF (IC .EQ. KH) GO TO 1330 IF (IC .EQ. NO) GO TO 420 C Check for STop, EXit ot QUit IF (IC.EQ.KS .AND. JC.EQ.KT) GO TO 1600 IF (IC.EQ.KE .AND. JC.EQ.KX) GO TO 1600 IF (IC.EQ.KQ .AND. JC.EQ.KU) GO TO 1600 C Check for PRint request. IF (IC.EQ.KP .AND. JC.EQ.KR) GO TO 2000 IF (SEC.EQ.0 .AND. (IC.EQ.KS .OR. IC.EQ.KB)) GO TO 710 IF (IC .EQ. KS) GO TO 750 IF (IC .EQ. KB) GO TO 1380 IF (IC .NE. KP) GO TO 1390 KEY4 = NXTP GO TO 980 1380 IF (SOUNT .GT. 0) GO TO 730 WRITE (OUT,740) GO TO 1350 1390 KOUNT = 0 IF (IC.EQ.BNK1 .OR. IC.EQ.YES) GO TO 1240 I = 0 J = -1 L = -1 DO 1400 K = 1,10 IF (IC .EQ. NUM(K)) I = MOD(K,10) IF (JC .EQ. NUM(K)) J = MOD(K,10) IF (LC .EQ. NUM(K)) L = MOD(K,10) 1400 CONTINUE IF (J+L .EQ. -2) IJL = I IF (L.EQ.-1 .AND. J.NE.-1) IJL = I*10 + J IF (L.NE.-1 .AND. J.NE.-1) IJL = I*100 + J*10 + L IF (IC .EQ. MNS) GO TO 1410 IJL = MIN0(NLP4,IJL) KOUNT = IJL + 1 GO TO 1240 1410 IJL = IJL + NLP DO 1420 L = 1,IJL BACKSPACE LU 1420 CONTINUE COUNT = COUNT - IJL KOUNT = 0 IF (COUNT .LT. 0) COUNT = 0 GO TO 1240 C 1450 IF (LC .EQ. KU) GO TO 1610 WRITE (OUT,1460) 1460 FORMAT (/,' ...EOF. to continue') GO TO 1500 C 1470 WRITE (OUT,1480) 1480 FORMAT (/,' ...End of Description') 1500 IF (KOUNT .LT. NLP4) GO TO 650 READ (IN,170) IC IF (ICHAR(IC).GE.La .AND. ICHAR(IC).LE.Lz) IC = CHAR(ICHAR(IC)+Aa) IF (IC .NE. KS) GO TO 650 C 1600 IF (MQ .EQ. 0) GO TO 2200 1610 CLOSE (LU) KOUNT = 0 GO TO (320,330,1620), FL 1620 WRITE (OUT,1630) 1630 FORMAT (/,'*** No such KEY WORD in EXEC, CASE and BULK.TXT files') GO TO 240 C C CHECK INPUT TEXT FORMATS FOR C EXEC, CASE, BULK, PLOT, DMAP SUBS and RFMT.TXT FILES C 1700 IF (FL.LE.6 .OR. FL.EQ.11) GO TO 1720 WRITE (OUT,1710) FILEX(FL) 1710 FORMAT (//,' *** Data CHECK OPTION not valid for ',A4,'.TXT file') GO TO 240 1720 READ (LU,1730,END=2200) A48 1730 FORMAT (A48) IF (A12 .EQ. HD12(FL)) GO TO 1760 IF (FL.EQ.4 .AND. A12.EQ.HD12(5)) GO TO 1760 IF (A11 .NE. LB1) GO TO 1720 1740 READ (LU,1730,END=2200) A48 IF (A4.EQ.BNK4 .OR. A4.EQ.NEW4) GO TO 1740 IF (A12 .EQ. HD12(FL)) GO TO 1790 IF (FL.EQ.4 .AND. A12.EQ.HD12(5)) GO TO 1780 WRITE (OUT,1750) A48 1750 FORMAT (1X,A48,' <== HEADER 12 CHAR. ERROR') GO TO 1720 1760 WRITE (OUT,1770) A48 1770 FORMAT (1X,A48,' <== NO PRECEEDING # SYMBOL') GO TO 1720 C 1780 J = J4 GO TO 1800 1790 J = BASE(FL) 1800 IF (FL .NE. 6) GO TO 1810 IF (A1(14) .EQ. KM) J = J5 IF (A1(14) .EQ. KO) J = J6 1810 IF (A1(J ) .NE. BNK1) J = J - 1 1820 IF (A1(J+1) .NE. BNK1) GO TO 1830 J = J + 1 GO TO 1820 1830 IS1 = ICHAR(A1(J+1))*T1 + ICHAR(A1(J+2))*T2 + ICHAR(A1(J+3))*T3 + 1 ICHAR(A1(J+4)) IS2 = ICHAR(A1(J+5))*T1 + ICHAR(A1(J+6))*T2 + ICHAR(A1(J+7))*T3 + 1 ICHAR(A1(J+8)) IF (IS1-WAS1) 1850,1840,1890 1840 IF (IS2-WAS2) 1850,1870,1890 1850 WRITE (OUT,1860) A48 1860 FORMAT (1X,A48,' <== OUT OF ORDER') GO TO 1910 1870 WRITE (OUT,1880) A48 1880 FORMAT (1X,A48,' <== DUPLICATE') GO TO 1720 1890 WRITE (OUT,1900) A48 1900 FORMAT (1X,A48) 1910 WAS1 = IS1 WAS2 = IS2 GO TO 1720 C C PROCESS REQUEST TO PRINT MANUAL DATA FOUND C 2000 IF (POPEN) GO TO 2040 WRITE (OUT,2010) 2010 FORMAT (/,1H-,' Enter OUTPUT FILE Name (assume default dir): ') READ (IN,770) A12 IF (A4.NE.BNK4 .AND. A4.NE.STP4 .AND. A4.NE.STP4L) GO TO 2030 IF (A4.NE.EXIT4 .AND. A4.NE.EXIT4L) GO TO 2030 IF (A4.NE.QUIT4 .AND. A4.NE.QUIT4L) GO TO 2030 WRITE (OUT,2020) 2020 FORMAT (/,' Output PRINT Aborted') GO TO 2200 2030 OU12 = A12 IF (POPEN) GO TO 2040 OPEN (UNIT=OU,FILE=OU12,STATUS='NEW',ACCESS='SEQUENTIAL',ERR=2140, 1 FORM='FORMATTED') POPEN = .TRUE. GO TO 2060 2040 WRITE (OU,2050) 2050 FORMAT (1H1) 2060 J = COUNT - JOUNT IF (J .LE. 0) GO TO 2120 DO 2070 I = 1,J BACKSPACE LU 2070 CONTINUE DO 2100 I = 1,J READ (LU,1250,END=2120) A80 IF (A11 .EQ. LB1) GO TO 2100 IF (A6 .EQ. PAG6) GO TO 2090 WRITE (OU,2080) A80 2080 FORMAT (1X,A80) GO TO 2100 2090 WRITE (OU,2050) 2100 CONTINUE C 2120 WRITE (OUT,2130) J 2130 FORMAT (/,I9,' lines printed') GO TO 420 C 2140 WRITE (OUT,413) OU12 GO TO 2000 C C END OF JOB PROCESSING C 2200 CLOSE (LU) KOUNT = 0 2210 WRITE (OUT,2220) 2220 FORMAT (//,' *** NASTHELP is done. Have a good run! ***',// ) IF (.NOT.POPEN) GO TO 2240 CLOSE (OU) WRITE (OUT,2230) OU12 2230 FORMAT (/,' *** Don''t forget the print file in ',A42) POPEN = .FALSE. 2240 CONTINUE END ================================================ FILE: utility/ff.f ================================================ PROGRAM FF C CDC PROGRAM FF (TAPE3) C C LAST MAJOR REVISIONS - OCT 27, 1989 C JUN 25, 1991, FOR UNIX C C A NASTRAN STAND-ALONE PROGRAM TO GENERATE NASTRAN FIX-FIELD INPUT C DECK FROM THIS FREE-FIELD INPUT PROGRAM. C C *** THIS PROGRAM MUST BE COMPILED USING THE FOLLOWING COMPILERS C IBM VS FORTRAN, UNIVAC ASCII FORTRAN, CDC FORTRAN 5 (ANSI 77), C VAX FORTRAN IV-PLUS, AND IBM PC FORTRAN 3.0 OR RMC PROFESSION- C AL FORTRAN C C *** VAX ONLY - THE OPEN AND CLOSE FUNCTIONS IN FF AND FFREAD MAY C REQUIRE THE USE OF THE VAX ACCEPTABLE KEYWORDS. C (PRESENTLY, THE NON-VAX KEYWORDS ARE ACCEPTABLE BY ALL MACHINES) C C C WRITTEN BY G.CHAN/UNISYS, APRIL 1985 C C SEE FFREAD SUBROUTINE FOR MORE DETAIL OF FREE-FIELD INPUT. C C FILES ASSIGMENT C 5 - CARD READER, OR CRT TERMINAL C 6 - PRINTER, OR CRT TERMINAL C 7 - PUNCH (IBM,CDC,VAX) C 1 - PUNCH (UNIVAC ONLY) C 2 - EQUATES TO USER FILE (ASSIGNED AUTOMATICALLY BY PROGRAM) C 3 - A SCRATCH FILE TO HOLD THE USER ACTUAL INPUT CARDS C 4 - USED ONLY IF READFILE IS USED TO READ AN OLD FILE C C LINK THIS MAIN PROGRAM WITH THE FOLLOWING ROUTINES - C (THE EXECUTABLE IS CALLED LINKFF) C C FF,FFHELP,FFREAD,UPCASE C INT2A8,A82INT,NA12IF,NA12A8,DUMMY C C *** CDC ONLY - PROCEDURE TO LINK FF INTERACTIVELY C UPDATE,Q,P=EJPL,C=FF,L=0,N=0. C ? *C FF C ? C REWIND,FF. C FTN5,STATIC,ARG=0,I=FF,L=0,B=FFLGO,LO=R/A/M/S. C ATTACH,NASTLIB/PN=DISC#. C LIBRARY,NASTLIB,FTN5LIB,BAMLIB. C REWIND,*. C LDSET,LIB=NASTLIB,PRESET=ZERO. C LDR>? LOAD,FFLGO. C LDR>? NOGO,LINKFF. C C *** VAX ONLY - TO LINK FF USING NASTRAN LIBRARY C LINK/EXE=LINKFF.EXE NASTRAN.LIB/LIBRARY/INCLUDE=FF C C *** UNIVAC ONLY - TO LINK FF WITH RELOCATABLES IN OBJ FILE C @PREP OBJ. C @MAP,IS TPF$.MAP,NASTRAN.LINKFF C LIB OBJ. C IN FF C END C C *** IBM ONLY - LINKAGE EDITOR INPUT CARDS C INCLUDE LIB(FF,FFHELP,FFREAD,UPCASE) C INCLUDE LIB(INT2A8,A82INT,NA12IF,NA12A8) C INCLUDE PRIVLIB(IQZDDN,QQDCBF,QQGETF) C ENTRY FF C NAME LINKFF(R) C C (NOTE - PRIVLIB IS LOCALLY SUPPLIED C SEE THE DESCRIPTIONS OF IZZDDN,QQDCBF,QQGETF BELOW) C C *** UNIX ONLY - TO LINK @LINKFF C cd C f77 ./mis/ff.f ./lib/nastlib.a -o @LINKFF C LOGICAL STAR, PCT, NOTYET, PUNCH, UPFLAG INTEGER SCREEN, PROM, FFFLAG, FACSF, NC(7), 1 IBM, UNIVAC, CDC, VAX, PC, 2 UNIX CHARACTER*1 FN(1), BK1, N1, Y1, X1, 1 S1, W1, A1, H1, CARD1(5), 2 FX, MARKQ, QMARK, TMP, RPRN, 3 SPL(8), DOT, D1, T1 CHARACTER*2 CARD2, REPL CHARACTER*3 NEW, OLD, ODNW CHARACTER*4 CARD(20), SAVE(20), BEGN, HELP, STOP, 1 LIST, BLANK, END1, END2, END3, 2 CANC1, CANC2, ALTER, CARD4, FN4, 3 BBK(2), KSMB(9) CHARACTER*6 FN6, BEGN6, HELP6, STOP6, CARD6, 1 MTYPE(7), CNTLWD(3) CHARACTER*8 FNAME(4), MYFILE, BLNK8, SITE, CNTRL, 1 USE(2), SYM(4), TAPEO3, TPF, FOROO3, 2 DORK, KEEP, SPILL CHARACTER*11 F CHARACTER*32 FN32 COMMON /SYSTEM/ IBUF, NOUT, NOGO, IN, ISYS(15) COMMON /MACHIN/ MACH COMMON /XXREAD/ INFLAG, INSAVE, LOOP4, IBMCDC COMMON /XECHOX/ FFFLAG, IECHO(3), ISORT(5) COMMON /XREADX/ SCREEN, LOOP, KOUNT, PROM, NOTYET, 1 STAR, PCT, ICONT(36) COMMON /QMARKQ/ MARKQ, TMP(16), SPILL, SAVE COMMON /UPCASX/ UPFLAG, UPID(3) EQUIVALENCE (FN(1),FN4,FN6,FN32,FNAME(1)),(XXI,LLI), 1 (CARD(1),CARD6,CARD1(1),CARD2,CARD4), 2 (SPL(1),SPILL) DATA BEGN, HELP, STOP, BLANK, BK1 / 1 'BEGI', 'HELP', 'STOP', ' ', ' ' / DATA BEGN6, HELP6, STOP6, BLNK8, KEEP / 1 'BEGIN ', 'HELP ', 'STOP ', ' ', 'KEEP' / DATA END1, END2, END3, N1, ALTER / 1 'ENDD', 'END ', 'ENDA', 'N', 'LTER' / DATA CANC1, CANC2, DORK, LLI, LLJ / 1 'CANC', 'EL ', 'DELETE', 4H I , 4H J / DATA CNTRL, MYFILE, NEW, OLD, Y1 / 1 'CENTRAL','MIFYLE', 'NEW', 'OLD', 'Y' / DATA NC/ 12, 7, 28, 7, 28, 0, 28 / DATA UNIVAC, IBM, CDC, VAX, PC, UNIX / 1 3, 2, 4, 5, 1, 7 / DATA MTYPE / 1 'IBM PC', ' IBM', 'UNIVAC', ' CDC', ' VAX', 2 ' *** ', ' UNIX' / DATA TAPEO3, TPF, FOROO3, F / 1 'TAPE3.', 'FF$$.', 'FT03.', 'FF FF' / DATA S1, A1, BBK, LIST / 1 'S', 'A', '(BLA', 'NK) ', 'LIST' / DATA W1, H1, FX, RPRN, ICNTL / 1 'O', 'H', 'X', ')', 0 / DATA DOT, D1, T1 / 1 '.', 'D', 'T' / DATA CNTLWD, NCNTL, REPL / 1 'CANCEL', 'PROMPT', 'LIST ', 3, 'R:' / DATA KSMB / '+C0N', '+C1N', '+C2N', '+C3N' , 1 '+C4N', '+C5N', '+C6N', '+C7N', '+C8N' / DATA USE / '@USE 3.,', 'FF$$ . '/ PUNCH / .FALSE./ DATA SYM / '@SYM ', 'PUNCH$,,', '****', ' . ' / DATA QMARK / '?' / C QMARK IS QUESTION MARK - 0/12 PUNCH FOR 26 CODE C 0/7/8 PUNCH FOR 29 CODE C J = LLJ - LLI MACH = IBM IF (J .EQ. 256) MACH = PC IF (J .EQ. 512) MACH = UNIVAC IF (J .GT. 65535) MACH = VAX IF (J .GT. 2**30) MACH = CDC IF (MACH.EQ.VAX .AND. (XXI.GT.1.60E-19 .OR. XXI.LT.1.8E-19)) 1 MACH = UNIX IF (MACH.EQ.VAX .AND. (XXI.GT.3.40E-20 .OR. XXI.LT.3.39E-20)) 1 MACH = PC C LU = 2 LOUT = 3 IN = 5 NOUT = 6 IPUN = 7 SCREEN = 6 IF (MACH .EQ. VAX) SCREEN = 5 LOOP =-1 KOUNT = 0 KONTN = 10000000 IKI = 1 PROM =+1 STAR =.FALSE. PCT =.FALSE. NOTYET =.FALSE. MARKQ = QMARK IECHO(2)=-2 INSAVE = IN INFLAG = 0 FFFLAG = 0 UPFLAG =.FALSE. ISYS(15)= 0 J = NC(MACH) CARD4 = BLANK CARD6 = STOP6 FN4 = STOP FN6 = STOP6 LOOP4 = LOOP - 4 DO 5 I = 1,20 5 SAVE(I) = BLANK IBMCDC = UNIVAC + VAX + PC IF (MACH.EQ.IBM .OR. MACH.EQ.CDC) IBMCDC = 0 C C IF MACHINE IS CDC, OPEN INPUT, OUTPUT, AND PUNCH FILES C IF (MACH .NE. CDC) GO TO 20 OPEN (UNIT=IN ,FILE='INPUT' ,STATUS='UNKNOWN') OPEN (UNIT=NOUT,FILE='OUTPUT',STATUS='UNKNOWN') OPEN (UNIT=IPUN,FILE='PUNCH' ,STATUS='UNKNOWN') OPEN (UNIT=LOUT,FILE='TAPE3' ,STATUS='UNKNOWN',ERR=15) GO TO 20 C 15 STOP 'SCRATCH FILE ERROR, UNIT 3' C 20 WRITE (NOUT,25) (F,I=1,7),MTYPE(MACH),(F,I=1,4) 25 FORMAT (/////15X,A11, /14X,A11, 3(/13X,A11), /8X,2(3X,'FFFFFF'), 1 2(/13X,A11),7X,A6,' VERSION / APRIL 93', /13X,A11, 2 /12X,A11,10X,'COSMIC, (706) 542-3265', /11X,A11,11X, 3 'UNIVERSITY OF GEORGIA', /10X,A11,12X,'ATHENS, GEORGIA', 4 ' 30602') 30 WRITE (NOUT,35) J 35 FORMAT (//,' *** ENTER A BLANK, ''HELP'', OR A FILE NAME (UP TO' 1, I3,' CHARACTERS)', /5X,'IF OUTPUT IS TO BE SAVED') READ (IN,40,ERR=330,END=330) FNAME 40 FORMAT (4A8) IF (FNAME(1) .EQ. MYFILE) CALL FFHELP (*30,*600,4) IF (FNAME(1) .EQ. BLNK8) FNAME(1) = MYFILE IF (FN(J+1).NE.BK1 .OR. FN(J+2).NE.BK1 .OR. FN(J+3).NE.BK1) 1 GO TO 330 IF (FNAME(2) .NE. BLNK8) GO TO 50 CALL UPCASE (FNAME,J) IF (FN6 .EQ. BEGN6) GO TO 330 IF (FN6 .EQ. STOP6) GO TO 600 IF (FN6 .EQ. HELP6) CALL FFHELP (*30,*600,1) 50 ODNW = OLD IF (MACH .NE. VAX) GO TO 60 DO 52 I = 2,J IF (FN(I) .EQ. DOT) GO TO 60 IF (FN(I) .EQ. BK1) GO TO 55 52 CONTINUE I = J + 1 55 FN(I ) = DOT FN(I+1) = D1 FN(I+2) = A1 FN(I+3) = T1 60 IF (MACH .NE. IBM) GO TO 65 C C IBM ONLY, WE CALL SYSTEM ROUTINES C IQZDDN TO DETERMINE WHETHER FILES EXIST OR NOT C QQDCBF TO DYNAMICALLY BUILD AN ATTRIBUTE LIST BY DDNAME C QQGETF TO DYNAMICALLY ALLOCATE FILES IN TSO OR BATCH C I = IQZDDN(FNAME(1)) ODNW = OLD IF (I .EQ. 0) ODNW = NEW IF (ODNW .EQ. NEW) CALL QQDCBF (FNAME(1),0,'F ',80,80,DA) CALL QQGETF (LU,FNAME(1),IERR) IF (IERR .NE. 0) GO TO 130 C 65 IF (IBMCDC.EQ.0) OPEN (UNIT=LU,FILE=FNAME(1),STATUS=ODNW,ERR=130) IF (IBMCDC.NE.0) OPEN (UNIT=LU,FILE=FN32 ,STATUS=ODNW,ERR=130) IF (ODNW .EQ. NEW) GO TO 140 70 WRITE (NOUT,80) 80 FORMAT (/,' FILE ALREADY EXISTS, ENTER ''STOP'', ''OVERWRITE'',', 1 ' OR ''APPEND'' -') IF (MACH.EQ.CDC .AND. IN.EQ.5) REWIND IN READ (IN,90,END=70) X1 90 FORMAT (A1) CALL UPCASE (X1,1) IF (X1 .EQ. S1) GO TO 480 IF (X1 .EQ. W1) GO TO 140 IF (X1 .NE. A1) GO TO 70 SAVE(2) = BBK(1) SAVE(3) = BBK(2) 110 READ (LU,180,END=115) SAVE IF (SAVE(1).EQ.BEGN .AND. SAVE(4).EQ.BLANK) FFFLAG = 1234 IF (SAVE(19) .EQ. KSMB(IKI)) IKI = IKI + 1 GO TO 110 115 BACKSPACE LU IF (FFFLAG .EQ. 1234) WRITE (NOUT,120) 120 FORMAT (/,' IF EXISTING FILE CONTAINS FREE-FIELD INPUT CARDS, ', 1 ' THIS PROGRAM WILL NOT', /5X,'EXPAND THEM TO FIXED-', 2 ' FIELD FORMATS',/) WRITE (NOUT,255) SAVE IF (FFFLAG.EQ.1234 .AND. INFLAG.EQ.0) CALL FFHELP (*125,*125,5) 125 CARD(1) = SAVE(1) CARD(2) = SAVE(2) GO TO 140 130 IF (ODNW .EQ. NEW) GO TO 310 ODNW = NEW GO TO 60 140 IF (MACH .EQ. UNIVAC) J = FACSF(USE) IF (FNAME(1) .EQ. MYFILE) FNAME(1) = BLNK8 IF (FNAME(1) .EQ. BLNK8) WRITE (NOUT,150) 150 FORMAT (/5X,'*** OUTPUT NOT SAVED ***',//) WRITE (NOUT,160) 160 FORMAT (//,' *** NASTRAN FREE-FIELD INPUT PROGRAM ***', 1 /5X,'(THERE WILL BE NO INPUT ECHO UNTIL ''BEGIN BULK'' IS TYPED', 2 /5X,' TO TERMINATE JOB: ENTER ''ENDDATA'' OR ''STOP'')', 3 //5X,'PLEASE BEGIN -',/) 170 CALL FFREAD (*320,CARD) IF (CARD4.EQ.CANC1 .AND. CARD(2).EQ.CANC2) GO TO 230 IF (CARD4.EQ. LIST .AND. CARD(2).EQ.BLANK) GO TO 230 IF (CARD2.EQ. REPL .AND. CARD(4).EQ.BLANK) GO TO 350 IF (CARD4.EQ. STOP .AND. CARD(2).EQ.BLANK) GO TO 400 IF (CARD4.EQ.BLANK .AND. CARD(2).EQ.BLANK) GO TO 370 IF (CARD4.EQ. HELP .AND. CARD(2).EQ.BLANK) 1 CALL FFHELP (*280,*400,2) IF (LU .EQ. 2) WRITE (LU,180) CARD 180 FORMAT (20A4) IF (FFFLAG.NE.1234 .AND. INFLAG.EQ.4) WRITE (NOUT,190) CARD 190 FORMAT (1X,20A4) IF (CARD4.EQ.BEGN .AND. CARD(5).EQ.BLANK) GO TO 340 IF (CARD4.NE.END1 .AND. CARD4.NE.END2 .AND. CARD4.NE.END3) 1 GO TO 170 IF (CARD(2).EQ.BLANK .OR. CARD(2).EQ.ALTER) GO TO 170 GO TO 410 230 IF (LU .NE. 2) GO TO 290 J = 1 IF (CARD(5).EQ.CANC1 .AND. ICONT(1).GT.0) J = ICONT(1) + 1 IF (CARD(5).EQ. LIST .AND. ICONT(1).GT.0) J = ICONT(1) DO 240 I = 1,J 240 BACKSPACE LU ICONT(1) = 0 IF (CARD(5) .EQ. LIST) GO TO 260 READ (LU,180) SAVE J = J - 1 WRITE (NOUT,250) J 250 FORMAT (1X,I4,' PREVIOUSLY GENERATED CARDS CANCELLED ***') IF (J .GT. 0) WRITE (NOUT,255) SAVE 255 FORMAT (/,' *** LAST CARD WAS:', /1X,20A4) GO TO 280 260 WRITE (NOUT,265) J 265 FORMAT (//,' *** PREVIOUS',I4,' CARDS WERE (COLS. 1-79) -',/) DO 270 I = 1,J READ (LU,180,END=285) SAVE 270 WRITE (NOUT,275) SAVE 275 FORMAT (1X,20A4) 280 CARD(1) = SAVE(1) CARD(2) = SAVE(2) GO TO 170 285 BACKSPACE LU SAVE(1) = CARD(1) SAVE(2) = CARD(2) GO TO 170 290 WRITE (NOUT,300) CARD4,CARD(2) 300 FORMAT (' *** ',A4,A3,'OPTION NOT ACTIVE. NO SAVE FILE ', 1 'REQUESTED') GO TO 170 310 WRITE (NOUT,315) FNAME 315 FORMAT (' *** CAN NOT ASSIGN FILE - ',4A8) GO TO 20 320 WRITE (NOUT,325) 325 FORMAT (' *INPUT ERROR/FF*') GO TO 170 330 WRITE (NOUT,335) 335 FORMAT (' *NOT A VALID FILE NAME*') IF (MACH.EQ.CDC .AND. IN.EQ.5) REWIND IN GO TO 20 340 FFFLAG = 1234 IF (INFLAG .EQ. 0) CALL FFHELP (*170,*170,5) GO TO 170 C C ... EDIT PREVIOUS LINE BY R:n)xxx C 350 I = 3 IF (CARD1(5) .EQ. RPRN) I = 4 READ (CARD1(I),355,ERR=170) II 355 FORMAT (I1) IF (II .EQ. 0) II = 10 I = I + 2 DO 360 J = 1,8 SPL(J) = CARD1(I) 360 I = I + 1 SAVE(II) = SPILL DO 365 I = 1,10 365 CARD(I) = SAVE(I) BACKSPACE LU WRITE (LU, 180) SAVE WRITE (NOUT,190) SAVE GO TO 170 C C ... FIRST 2 FIELDS ARE BLANK, OTHER FIELDS NOT, TREAT IT AS A C CONTINUATION CARD IF PREVIOUS CARD HAS A BLANK CONTINUATION FIELD C 370 IF (LU .NE. 2) GO TO 385 DO 375 J = 3,18 IF (CARD(J) .NE. BLANK) GO TO 380 375 CONTINUE GO TO 170 380 BACKSPACE LU READ (LU,180) SAVE IF (SAVE(19) .EQ. BLANK) GO TO 390 WRITE (NOUT,382) 382 FORMAT (/,' BAD INPUT - FIRST FIELD BLANK. TRY AGAIN') WRITE (NOUT,383) 383 FORMAT (13X,'NOT ALLOW. PREVIOUS CARD HAS CONTINUATION FIELD ', 1 'DEFINED') GO TO 170 385 WRITE (NOUT,382) WRITE (NOUT,387) 387 FORMAT (13X,'NOT ALLOW WITHOUT SAVE FILE') GO TO 170 390 KONTN = KONTN + 1 IF (MOD(KONTN,10000) .EQ. 0) IKI = IKI + 1 CALL INT2K8 (*385,KONTN,SAVE(19)) SAVE(19) = KSMB(IKI) CARD(1 ) = KSMB(IKI) CARD(2 ) = SAVE(20) WRITE (NOUT,395) 395 FORMAT (' ...PREVIOUS CARDS REPLACED BY:') WRITE (NOUT,190) SAVE WRITE (NOUT,190) CARD BACKSPACE LU WRITE (LU,180) SAVE WRITE (LU,180) CARD GO TO 170 C 400 BACKSPACE LOUT 410 ENDFILE LOUT IF (LU .NE. 6) ENDFILE LU PUNCH =.FALSE. SITE = BLNK8 420 WRITE (NOUT,430) QMARK 430 FORMAT (/,' *** DO YOU WANT TO PUNCH OUT THE NASTRAN DECK',A1, 1 ' (Y,N,X,HELP) ') IF (MACH.EQ.CDC .AND. IN.EQ.5) REWIND IN READ (IN,90,END=420) X1 CALL UPCASE (X1,1) IF (X1 .EQ. H1) CALL FFHELP (*420,*480,3) IF (X1 .EQ. N1) GO TO 500 IF (X1.NE.Y1 .AND. X1.NE.FX) GO TO 420 PUNCH =.TRUE. LX = LOUT IF (X1 .EQ. FX) LX = LU IF (MACH .NE. UNIVAC) GO TO 460 IPUN = 1 WRITE (NOUT,440) 440 FORMAT (/,' *** ENTER SITE-ID, OR ''CENTRAL'', WHERE CARDS ARE', 1 ' TO BE PUNCHED ') 450 READ (IN,40,ERR=450,END=450) SITE IF (SITE .EQ. BLNK8) GO TO 490 CALL UPCASE (SITE,8) IF (SITE .EQ. CNTRL) GO TO 460 C C SEND PUNCH DECK TO SITE AS REQUESTED BY THE USER - UNIVAC ONLY C-UNV FACSF IS UNIVAC SYSTEM FUNCTION C SYM(3) = SITE J = FACSF(SYM) 460 REWIND LX 470 READ (LX,180,END=500) CARD DO 475 J = 2,NCNTL IF (CARD6 .NE. CNTLWD(J)) GO TO 475 IF (CARD(4) .EQ. BLANK) GO TO 470 475 CONTINUE IF ((CARD6.EQ.HELP6 .OR. CARD6.EQ.STOP6) .AND. CARD(3).EQ.BLANK) 1 GO TO 470 IF (CARD6.EQ.CNTLWD(1) .AND. CARD(4).EQ.BLANK) ICNTL = ICNTL + 1 WRITE (IPUN,180) CARD GO TO 470 C 480 FNAME(1) = BLNK8 490 PUNCH =.FALSE. 500 WRITE (NOUT,510) 510 FORMAT (//10X,'ADIEU MY FRIEND. IT IS A PLEASURE TO SERVE YOU') IF (FNAME(1) .NE. BLNK8) WRITE (NOUT,520) FNAME 520 FORMAT (10X,'DON''T FORGET - YOUR NASTRAN DECK IS IN FILE -', 1 /25X,4A8, /10X,'WHICH IS ACCESSIBLE BY THE SYSTEM EDITOR') IF (.NOT.PUNCH) GO TO 550 WRITE (NOUT,530) 530 FORMAT (/10X,'AND DON''T FORGET TO PICK UP YOUR PUNCHED CARDS') IF (SITE .NE. BLNK8) WRITE (NOUT,535) SITE IF (SITE.EQ.BLNK8 .AND. MACH.NE.VAX) WRITE (NOUT,540) IF (SITE.EQ.BLNK8 .AND. MACH.EQ.VAX) WRITE (NOUT,545) 535 FORMAT (10X,'WHEN YOU SIGN OFF',22X,'SITE-ID: ',A8) 540 FORMAT (10X,'AT THE CENTRAL-SITE') 545 FORMAT (10X,'IN FORTRAN FILE FOR007.DAT') 550 IF (FNAME(1) .EQ. BLNK8) GO TO 570 IF (MACH .EQ. UNIVAC) FOROO3 = TPF IF (MACH .EQ. CDC) FOROO3 = TAPEO3 WRITE (NOUT,555) 555 FORMAT (//10X,'A COPY OF YOUR ACTUAL INPUT CARDS WAS SAVED IN') IF (MACH .NE. VAX) WRITE (NOUT,560) FOROO3 IF (MACH .EQ. VAX) WRITE (NOUT,565) 560 FORMAT (1H+,56X,'FORTRAN FILE - ',A8) 565 FORMAT (10X,'FORTRAN FILE FOR003.DAT') 570 IF (ICNTL .NE. 0) WRITE (NOUT,575) 575 FORMAT (/4X,'*** WARNING - CANCELLED CARDS IN PUNCHED DECK NEED ', 1 'TO BE REMOVED', /19X,'OR MODIFIED BEFORE USE') IF (FNAME(1) .NE. BLNK8) DORK = KEEP CLOSE (UNIT=LU ,STATUS=DORK) CLOSE (UNIT=LOUT,STATUS=DORK) IF (DORK.EQ.KEEP .OR. (PUNCH .AND. MACH.EQ.VAX)) WRITE (NOUT,585) 585 FORMAT (/4X,'*** DON''T FORGET TO DELETE YOUR FILES GENERATED BY', 1 ' THIS RUN ***') WRITE (NOUT,590) 590 FORMAT (/26X,'*** JOB DONE ***',/) 600 CONTINUE END ================================================ FILE: utility/nastplot.f ================================================ PROGRAM NASTPLOT C CDC PROGRAM NASPLOT (INPUT,OUTPUT,TAPE5=INPUT,TAPE6=OUTPUT, CDC TAPE13,TAPE14,TAPE15,TAPE16,TAPE17) C C A STAND-ALONE TRANSLATOR PROGRAM (NASTPLOT or NASPLOT) TO C INTERPRET THE NASTRAN GENERAL PURPOSE PLOTTER FILE (OR TAPE) C C THIS ROUTINE SHOULD NOT BE COMPILED AND INCLUDED IN NASTRAN C LIBRARY C THIS NASTPLOT PACKAGE INCLUDES THE FOLLOWING SUBROUTINES/AND C ENTRY POINTS C C GETCMD, DRWAXS/ENDAXS, DRWKHR/ENDCHR, DRWLIN/ENDLIN, C TXNPEN, TXINIT/TXFINS, TXPLOT, PSINIT/PSFINS/PSTRKE, C PSLINE, PSCHAR/PSENDC C IF TEKTRONIX PLOT-10 TCS AND ADVANCED GRAPHING II PACKAGES ARE C AVAILABLE IN THE COMPUTER SYSTEM. THE NEXT SUBROUTINES ARE USED C NASTEK, PFRAME C (ACTIVATE NASTEK AND PFRAME BY REPLACE C+ BY 2 BLANKS IN FIRST 2 C COLUMNS OF TEXT BELOW) C C IF PLOT-10 AND ADVANCED GRAPHING II ARE NOT AVAILABLE, THE LINES C BETWEEN LABELS 250 AND 260 SHOULD BE COMMENTED OUT OR DELETED. C C INPUT FILE: NASTRAN PLT1 OR PLT2 FILE C PLOTTER : TEKTRONIX OR POSTSCRIPT FILE(S) C C *************************************************************** C * DO NOT COMPILE THIS PROGRAM NOR INSERT ALL RELOCATABLES * C * INTO NASTRAN LIBRARY * C * (HOWEVER. IT DOES NO HARM) * C *************************************************************** C C THE PLOTTING SECTION OF THIS PROGRAM IS PLOTTER DEPENDENT. C CURRENTLY TEKTRONIX PLOTTER OR POSTSCRIPT PRINTER ARE USED. C ALL SUPPORTING ROUTINES WITH PREFIX 'TX' ARE TEKTRONIX ASSOCIATED C AND THOSE WITH PREFIX 'PS' ARE POSTSCRIPT ASSOCIATED. THE 'PS' C ROUTINES USE ONLY STANDARD FORTRAN COMMANDS. C C SUBROUTINE GETCMD IS USED ONLY WHEN MACHINE THAT GENERATED THE C PLOT FILE AND THE MACHINE THAT IS NOW READING THE PLOT FILE HAVE C DIFFERENT NUMBER OF BITS PER COMPUTER WORD. C CURRENTLY GETCMD IS NOT WORKING. C C A PC VERSION (MS-DOS/BASIC WITH GRAHPIC) IS ALSO AVAILABLE WHICH C USES ONLY PLT1 FILE. NO SPECIAL HARDWARE OR SOFTWARE ARE NEEDED. C C WRITTEN BY G.CHAN/UNISYS, 3/1991 C C C THE '$' ON A FORMAT LINE IS VAX SPECIAL. IT SHOULD BE DELETED IN C ALL NON-VAX MACHINES. C C VAX ONLY: SEE THE OPEN STATEMENT AFTER STA. 600 FOR STANDARD OUT- C PUT LIST FILE. C C CDC ONLY: DELETE THE 'EOF' ON-LINE FUNCTION, C RE-ACTIVATE THE ON-LINE 'ISHFT' FUNCTION BELOW, AND C SET 'AA' AND 'BB' TO REAL, NOT D.P. C IMPLICIT INTEGER (A-Z) LOGICAL CHRSET,LINSET,AXSSET,VAX,IBM,TEK,PSC,NOTYET,FOUND, 1 ADOT,LUX,DEBUG INTEGER Z(3000),W(30) REAL XFACT,YFACT,XSIZE,YSIZE,SX,SY,SCALE,CSCAL REAL*8 AA,BB CCDC REAL AA,BB CHARACTER*1 TEMP,ESC,NUMB1(10),CHR1(5),BLNK1,STP1,NXT1,NA1(32), 1 KD,KP,KL,KT,K1,K2,KB,KI,KU,KC,KV,KX,KY,KP1,KL1,KT1, 2 K12,KN1,KS1,KH,STR,AL1,KA1,KR1,KNUM(2),KNUM1,BELL, 3 KQ1,DorS,A1Z(26) CHARACTER*4 NAM4,BLNK4,STOP4,CHR4 CHARACTER*32 NAM32,MACH32,MACH33 CHARACTER CLEAR*2,KNUM2*2,MACH3*3,XX3*3,NUMB10*10,DATE13*13, 1 FMT500*8,A2Z*26 COMMON CMND,CNTRL,R,S,T,U,XFACT,YFACT,XMAX,YMAX,XHI,YHI, 1 XLO,YLO,PENCHG,PENCNT,OLDPEN,PENNO(99) COMMON /IO/ IN,NOUT COMMON /EC/ ESC,CLEAR COMMON /QQ/ BI,BO,WRD,BYT,DUM(22) COMMON /PS/ LU,SCALE,JOUNT,NBUFF,ONCE,CSCAL,CHRPOS EQUIVALENCE (NUMB1(1),NUMB10), (BLNK4,BLNK1), (CHR1(1),CHR4), 1 (NAM4,NAM32,NA1(1)), (MACH3,MACH32), (Z(1),W(1)), 2 (KNUM(1),KNUM1,KNUM2), (A1Z(1),A2Z) DATA CHRSET,LINSET,AXSSET,TEK,PSC / 5*.FALSE. /, 1 NOLINE,SELECT,PLOTID,DEBUG / 2*0, -1, .TRUE. /, 2 XSIZE,YSIZE,YES,NO,KQ1 / 1.2, 1., 1HY,1HN, 'q'/, 3 STR,BLNK4,NUMB10 / '*', ' ', '1234567890' /, 4 AA,BB,FMT500 / 1.D-21, 1.D-25, '(3000A1)' /, 5 STP1,NXT1,DATE13 / 'S', 'N', 'OCT. 27, 1990' /, 6 KD,KP,KL,KT,KB / '.', 'P', 'L', 'T', ' ' /, 7 KH,KP1,KL1,KT1,K1/ 'H', 'p', 'l', 't', '1' /, 8 KI,KU,KC,KV,KX / 'I', 'U', 'C', 'V', 'X' /, 9 KY,K2,XX3,AL1,KA1/ 'Y', '2', 'UNX','A','a' /, O KN1,KS1,SYY,SNN / 'n', 's', 1Hy, 1Hn /, 1 T4,T3,T2,T1,KR1 / 10000, 1000, 100, 10, 'R' /, 2 MACH32 / 'VAX/TEKTRONIX COMPUTER GRAPHIC ' /, 3 MACH33 / 'VAX/POSTSCRIPT COMPUTER GRAPHIC ' /, 4 STOP4,A2Z/ 'STOP','ABCDEFGHIJKLMNOPQRSTUVWXYZ'/, 5 DorS / '.' /, 6 MASK / '000000FF'X / C 6 MASK / X'000000FF', Z000000FF, 63, 511 C UNIX , IBM , CDC, UNIVAC C C SUMMARY OF PROGRAM'S VARIABLES: C C VAX = .TURE. IF CURRENT MACHINE IS A VAX, .FALSE. OTHERWISE C IBM = .TURE. IF CURRENT MACHINE IS AN IBM, .FALSE. OTHERWISE C TEK = .TRUE., TEKTRONIX SCREEN PLOT C PSC = .TURE., POSTSCRIPT FILES GENERATION C MASK = A MASK USED TO PICK UP THE LAST CHARACTER OF A WORD C (MACHINE DEPENDENT) C NBS = NO OF BITS TO BE SHIFTED C = 24 = 3*8, FOR IBM, VAX C = 54 = 9*6, FOR CDC C = 27 = 3*9, FOR UNIVAC C K12 = 1 OR 2 FOR 'PLT1' OR 'PLT2' FILE C PID = 0, IF PLOT FILE DOES NOT HAVE A PLOT-ID FRAME, C = 1, OTHERWISE C ALL = 'Y', STACK ALL PLOTS INTO ONE POSTSCRIPT FILE C = 'N', OTHERWISE. (= 0, UNDEFINED STATUS) C BI = NO. OF BITS PER WORD OF CURRENT COMPUTER RUNNING NASTPLOT C BO = NO. OF BITS PER WORD OF THE COMPUTER WHICH GENERATED THE C PLT1 OR PLT2 TILE C FIL = INPUT FILE UNIT FOR PLT1 OR PLT2 (FRMTTD, SQUNTL) C LU = OUTPUT FILE UNIT FOR POSTSCRIPT FILE (FRMTTD, SQUNTL) C LUX = IF .TRUE. AND ALL = 'N', LU UNIT NUMBER INCREASES BY 1 C EACH TIME A NEW POSTSCRIPT FILE IS GENERATED C IN = SYSTEM INPUT FILE, UNIT 5 C NOUT = SYSTEM OUTPUT FILE, UNIT 6 C LUOPEN = 0, NO LU FILE OPENED. = 1, LU FILE ALREADY OPENED C NOLINE = 1, ADD "%!" LINE AT THE BEGINNING OF A POSTSCRIPT FILE C = 0, NO SUCH LINE ADDED C CHRPOS = 0, TYPING CHARACTERS ON POSTCRIPT FILE WILL BE STRUNG C TOGETHER FOR ONE OUTPUT COMMAND C = 1, (VIA POSTSCRIPT HELP ONLY) EACH TYPING CHARACTER IS C SENT OUT AS A POSTSCRIPT COMMAND C RL = RECORD LENGTH IN WORDS C NW = NO. OF WORDS PER PLOT COMMNAD C JID = WORD LOCATION OF PLOT ID NUMBER IN RECORD C DOT = LOCATION OF '.' IN THE INPUT FILE NAME C DorS = '.' OR '/', ON FILE NAME C ADOT = FLAG FOR THE ORIGINAL FILE NAME THAT HAS A DOT, OR NO DOT C NREC = NO. OF PHYSICAL RECORDS READ FROM INPUT FILE FIL C NRC = ECHO CONTROL = NO. RECORDS/ECHO C JOUNT = NO. OF POSTSCRIPT OUTPUT LINES ACCUMULATED AFTER 'stroke' C NBUFF = POSTCRIPT BUFFER SIZE (BETWEEN 'stroke') C KK = A COUNTER - NO. OF RECORDS READ ON THE PLOT TAPE C NOTYET = .TRUE. WHEN 1ST NEW PLOT COMMAND HAS NOT FULLY PROCESSED C PNO = SEQUENTIAL PLOT FRAME NUMBER ON PLOT TAPE C FOUND = .TURE. WHEN A NEW PLOT FOUND ON PLOT TAPE (CMND=1) C SELECT = PLOT ID NO. USER SELECTED FOR PLOTTING C LASTSL = PLOT ID NO. LAST SELECTED BY USER C NPLOT = NO. OF PLOTS ACCUMULATED IN THE POSTSCRIPT FILE C PLOTID = CURRENT PLOT ID NO. FOUND ON PLOT TAPE C (NOTE - PLOT ID ON PLOT TAPE IS NOT RELIABLE. THE TAPE MAY HAVE C MISSING PLOT ID, AND IT COULD HAVE TWO PLOT ID 1) C EOF(J) = 0*J C ISHFT(W,I) = SHIFT(W,-I) C C INITIALIZE MACHINE DEPENDENT CONSTANTS: C CCDC BI = 6 CUNV BI = 9 BI = 8 NBS = 24 ADOT = .TRUE. LUX = .FALSE. VAX = .TRUE. IBM = .FALSE. C C GENERAL INITIALIZATION: C IF (AA*AA .GT. BB*BB) VAX = .FALSE. IF (BI .EQ. 6) NBS = 54 IF (BI .EQ. 9) NBS = 27 IF (BI .NE. 8) ADOT = .FALSE. IF (.NOT. VAX) MACH3 = XX3 C IN = 5 NOUT = 6 FIL = 13 LU = 14 NBUFF = 500 WRD = 1 BYT = 4 SCALE = 0.54 CSCAL = 13.0 NPLOT = 0 ALL = 0 HELP = 0 CHRPOS= 0 PSALL = 0 LUOPEN= 0 ESC = CHAR(27) CLEAR = ESC//CHAR(12) BELL = CHAR(7) GO TO 20 C C SELECT TEKTRONIX PLOT OR POSTCRIPT FILE C 10 CDC = EOF(IN) 20 WRITE (NOUT,25) 25 FORMAT (//,' ENTER PLOTTER SELECTION, TEKTRONIX OR POSTSCRIPT? ', 1 '(T,P,q,S,HELP) ',$) READ (IN,30,END=10) TEMP 30 FORMAT (A1) IF (TEMP .EQ. KH) GO TO 60 IF (TEMP.EQ.KS1 .OR. TEMP.EQ.STP1) GO TO 1050 IF (TEMP.NE.KT .AND. TEMP.NE.KT1 .AND. TEMP.NE.KP .AND. 1 TEMP.NE.KQ1) GO TO 20 IF (TEMP.EQ.KT .OR. TEMP.EQ.KT1) TEK = .TRUE. IF (TEMP.EQ.KP .OR. TEMP.EQ.KQ1) PSC = .TRUE. IF (TEMP .EQ. KQ1) NOLINE = 1 IF (TEK) DEBUG = .FALSE. IF (PSC) MACH32 = MACH33 IF (.NOT.PSC .OR. HELP.EQ.0) GO TO 80 HELP = 0 WRITE (NOUT,40) 40 FORMAT (//,' ADDITIONAL HELP MESSAGES (POSTSCRIPT ONLY) -', //1X, 1 'OVERALL PLOT SIZE IS CONTROLLED BY PLOT SCALE, AND CHAR', 2 'ACTER SIZE CAN BE CHANGED', /4X,'BY CHARACTER SCALE, ', 3 'ONLY IF ORIGINAL PLOT INCLUDES TYPING CAPABILITY', /, 4 ' PostScript EFFICIENY IS GREATLY IMPROVED IF TYPING', 5 ' CAPABILITY IS INCLUDED IN THE', /4X, 6 'ORIGINAL PLOT. (see NASTRAN PLOTTER card)', //, 7 ' FOUR CHARACTER TYPING SYMBOLS HAVE BEEN CHANGED', /, 8 ' CHARACTER NASTRAN POSTCSRIPT ', /, 9 ' CODE ORIGINAL EQUIVALENCE ', /, O ' --------- ------------- --------------', /, 1 ' 49 (6) SMALL CIRCLE BIG SOLID DOT ', /, 2 ' 50 (7) SMALL SQUARE SQUARE-CIRCLE ', /, 3 ' 51 (8) SMALL DIAMOND DAGGER ', /, 4 ' 52 (9) SMALL TRIANGLE DOUBLE-DAGGER ', //, 5 ' IF CHARACTERS ARE POSITIONED BADLY, ENTER * ON NEXT', 6 ' COMMAND', //, 7 ' YOU MAY ENTER ''ALL'' FOR THE PLOT NO. TO BE PLOTTED') IF (VAX) WRITE (NOUT,45) 45 FORMAT (/,' WHEN FINISH, SEND PostScript FILE(S) OUT TO PRINTER', 1 ' WITHOUT HEADER PAGE using', /4X,'PRINT/NOFLAG option') WRITE (NOUT,50) 50 FORMAT (/,' HIT C/R TO CONTINUE ',$) READ (IN,30,END=55) TEMP IF (TEMP .EQ. STR) CHRPOS = 1 GO TO 80 55 CDC = EOF(IN) GO TO 80 C C HELP MESSAGES C 60 HELP = 1 WRITE (NOUT,70) 70 FORMAT (/,' ENTER "S" TO STOP', 1 /,' ENTER "T" FOR TEKTRONIX SCREEN PLOTTER', 2 /,' ENTER "P" or "q" TO GENERATE POSTCRIPT FILE(S)', 3 /,' IF "P", POSTCRIPT FILE(S) BEGINS WITH A "%!" LINE', 4 /,' IF "q", NO "%!" LINE ADDED', 5 /,' (THIS "%!" LINE IS NEEDED IN SOME UNIX MACHINES, ', 6 'AND OTHERS DON''T)', //1X, 7 'INPUT FILE NAME MUST BE fname.PLT1 or fname.PLT2', 8 /,' PLOT FRAME NUMBER IS USED TO SPECIFIED WHICH PLOT TO', 9 ' BE PLOTTED.', /,' IF FRAME NO. IS NOT PRESENT ON ', O 'ORIGINAL TAPE, SEQUENTIAL FRAME COUNT IS USED') GO TO 20 C C GET PLOT FILE FILENAME AND OPEN PLOT FILE C 80 WRITE (NOUT,90) MACH32,DATE13 90 FORMAT (//////33X,4H****, /31X,1H*,6X,1H*, /30X,1H*,8X,1H*, 1 /30X,'* N A S T P L O T', 2 /30X,1H*,8X,1H*, /31X,1H*,6X,1H*, /33X,4H****, 3 ///7X,A32,' SYSTEM RELEASE - ',A13, 4 //7X,'WRITTEN BY UNISYS/',17X,'FOR COSMIC', /11X, 5 'NASTRAN MAINTENANCE GROUP',6X,'UNIVERSITY OF GEORGIA', 6 /11X,'HUNTSVILLE, ALABAMA',12X,'ATHENS, GEORGIA 30602', 7 /42X,'PHONE (708) 542-3265', ////7X, 8 '*** AT THE END OF EACH PLOT, HIT C/R TO CONTINUE ***', 9 /18X,3H===,15X,3H===) 100 CDC = EOF(IN) WRITE (NOUT,110) DorS 110 FORMAT (//,' ENTER NAME OF PLOT FILE (e.g. TEST',A1,'PLT1): ',$) READ (IN,115,END=100) NAM32 115 FORMAT (A32) IF (NAM4.EQ.BLNK4 .OR. NAM4.EQ.STOP4) GO TO 1000 C C CHECK PLT1 OR PLT2 TAPE C I = 33 120 I = I - 1 IF (I .LE. 0) GO TO 1000 IF (NA1(I) .EQ. KB) GO TO 120 IF ((NA1(I ).EQ.K1 .OR. NA1(I).EQ.K2) .AND. NA1(I-4).EQ.DorS .AND. 1 (NA1(I-1).EQ.KT .OR. NA1(I-1).EQ.KT1) .AND. 2 (NA1(I-2).EQ.KL .OR. NA1(I-2).EQ.KL1) .AND. 3 (NA1(I-3).EQ.KP .OR. NA1(I-3).EQ.KP1)) GO TO 140 C C IMPROPER INPUT FILE NAME C WRITE (NOUT,130) DorS,DorS,(NA1(J),J=1,I) 130 FORMAT (/,' FILE ERROR - This program uses only FNAME',A1,'PLT1 ', 1 'or FNAME',A1,'PLT2 file', 5X,33A1) IF (.NOT.ADOT) WRITE (NOUT,135) DorS,DorS 135 FORMAT (' ADD ',A1,'PLT1 or ',A1,'PLT2 TO THE FILE NAME CORRES', 1 'PONDING TO YOUR ORIGINAL', /1X,'NASTRAN PLOT FILE SPEC') IF (IBM) WRITE (NOUT,137) 137 FORMAT (' USE A SLASH IF FILE IS A DATA SET NAME, OR NO SLASH IF', 1 ' IT IS A DDNAME') GO TO 100 C C INITIALIZE PARAMETERS FOR PLT1 OR PLT2 OF RECORDS: C REMOVE '.PLTi' IF ORIGINAL FILE NAME CONTAINS NO FILE EXTENSION C 140 DOT = I - 4 IF (ADOT) GO TO 150 DO 145 J = DOT,I 145 NA1(J) = KB 150 K12 = K1 IF (NA1(I) .EQ. K2) K12 = K2 RL = 30 NW = 6 NRC = 500 JID = 3 IF (K12 .EQ. K1) GO TO 160 RL = 3000 NW = 30 NRC = 30 JID = 6 IF (.NOT.VAX) JID = 3 C THE ABOVE LINE MAY REQUIRE VERIFICAION ???? C C OPEN INPUT PLT1 OR PLT2 FILE C C PLT1: RECORD LENGTH IS IN 130 BYTES (30 DATA WORDS) C FILE WAS CREATED SEQUENTIAL, FORMATTED, CARRIAGE CONTROL C PLT2: RECORD LENGTH IS IN 3000 BYTES C FILE WAS CREATED SEQUENTIAL, FORMATTED, NO CARRIAGE CONTROL, C AND 3000 BYTE LONG RECORDSIZE C 160 OPEN (UNIT=FIL,FILE=NAM32,ERR=850,STATUS='OLD',FORM='FORMATTED', 1 ACCESS='SEQUENTIAL', 2 RECL=RL) IF (K12 .EQ. K1) GO TO 200 C C IF PLT2 IS USED, INQUIRE WHAT MACHINE THE TAPE WAS GENERATED C 170 CDC = EOF(IN) WRITE (NOUT,180) K12 180 FORMAT (/,' FROM WHAT MACHINE WAS THIS PLT',A1,' FILE GENERATED?', 1 /,' (Ibm,Univac,Cdc,Vax,uniX,craY): ',$) READ (IN,30,END=170) TEMP IF (TEMP.NE.KI .AND. TEMP.NE.KU .AND. TEMP.NE.KC .AND. 1 TEMP.NE.KV .AND. TEMP.NE.KX .AND. TEMP.NE.KY) GO TO 170 BO = 8 IF (TEMP .EQ. KU) BO = 9 IF (TEMP .EQ. KC) BO = 6 C IF (BO .EQ. BI) GO TO 200 IF (BO .EQ. 8) GO TO 200 WRITE (NOUT,190) 190 FORMAT (//,' *** THIS NASTPLOT VERSION CAN NOT PROCESS PLOT TAPE', 1 ' GENERATED FROM A', /5X,'UNIVAC OR CDC MACHINE') GO TO 1000 C C CHECK PROSCRIPT PLOTTER SCALE AND C INQUIRE SINGLE OR MULTIPLE POSTSCRIPT OUTPUT FILES C 200 IF (TEK) GO TO 250 IF (.NOT.PSC) GO TO 280 WRITE (NOUT,210) SCALE,CSCAL 210 FORMAT (/,' CURRENT PLOT SCALE AND CHARACTER SCALE ARE',2F6.2, 1 1H;, /,' ENTER NEW SCALES (2F6.2) or C/R ',$) READ (IN,220,ERR=230) SX,SY 220 FORMAT (2F6.2) IF (SX .GT. 0.01) SCALE = SX IF (SY .GT. 0.01) CSCAL = SY C 230 CDC = EOF(IN) WRITE (NOUT,240) K12 240 FORMAT (/,' IF PLT',A1,' HAS MULTIPLE PLOTS, STACK ALL PLOTS IN', 1 ' ONE POSTSCRIPT FILE? (Y,N) ',$) READ (IN,30,END=230) ALL IF (ALL .EQ. SYY) ALL = YES IF (ALL .EQ. SNN) ALL = NO IF (ALL .EQ. YES) GO TO 280 IF (ALL .NE. NO) GO TO 230 GO TO 280 C C IF MACHINE IS VAX, EQUIPPED WITH TEKTRONIX PLOT-10 TSC AND C ADVANCED GRAPHING II PACKAGES, CALL NASTEK TO DO THE JOB C 250 CONTINUE C IF (.NOT.VAX) GO TO 260 WRITE (NOUT,255) 255 FORMAT (/,' PLOT-10 TCS AND ADVANCED GRAPHING II PACKAGES ON YOUR' 1, ' VAX SYSTEM? (Y/N) ',$) READ (IN,30) J IF (J .NE. YES) GO TO 260 I = 5 J = 30 IF (K12 .EQ. K1) GO TO 257 I = 100 J = 3000 257 CONTINUE C+ CALL NASTEK (*1050,FIL,I,Z,J) CLOSE (UNIT=FIL) GO TO 1000 C C CHECK TEKTRONIX HORIZ. AND VERTICAL AXES C 260 WRITE (NOUT,265) XSIZE,YSIZE 265 FORMAT (/,' CURRENT FRAME SIZE IS: X-AXIS=',F6.2,' Y-AXIS=',F6.2, 1 /,' ENTER NEW SIZES (2F6.2) or C/R: ',$) READ (IN,220,ERR=275) SX,SY IF (SX .GT. 0.01) XSIZE = SX IF (SY .GT. 0.01) YSIZE = SY IF (YSIZE .LE. 32.0) GO TO 280 WRITE (NOUT,270) 270 FORMAT (' MAXIMUM LENGTH FOR Y-AXIS IS 32.0 INCHES') GO TO 250 275 CDC = EOF(IN) C C LOOK FOR PLOT ID-FRAME IN Z(n). IF IT IS FOUND, REPLACE THE PLOT C NUMBER IN Z(JID) BY ZERO. n IS 19 FOR PLT1 AND n IS 90 FOR PLT2. C SET PID FLAG TO 1 IF PLOT ID-FRAME DOES EXIST. OTHERWISE ZERO C (PLOT ID-FRAME IS THE PLOT WITH MANY HORIZONTAL LINES, AND USER C ID AT MID PAGE) C 280 REWIND FIL PLOTID = -1 LASTSL = -1 PNO = 0 KK = 1 IF (K12 .EQ. K2) GO TO 290 READ (FIL,460,END=900) W IF (W(19)-16) 300,320,300 C 290 READ (FIL,FMT500,END=900) Z C C NEXT DO LOOP LOCATES '16' ON PLT2 FILE C (IT WAS FOUND ON THE 90TH WORD) C C DO 295 I = 1,99 C L = IAND(Z(I),MASK) C WRITE (NOUT,292) I,L C 292 FORMAT (' WORD',I3,' = ',I7) C 295 CONTINUE C IF (IAND(Z(90),MASK) .EQ. 16) GO TO 320 300 WRITE (NOUT,310) K12 310 FORMAT (/,' THERE IS NO PLOT ID FRAME (PLOT NO. 0) ON USER''S ', 1 'PLT',A1,' FILE',/) PID = 0 GO TO 350 320 PID = 1 Z(JID) = 0 C C ON THE PLOT FILE AS GENERATED BY NASTRAN, BOTH PLOT ID-FRAME AND C THE FIRST STRUCTURE PLOT ARE PLOT NUMBER 1. TREAT THE PLOT ID- C FRAME AS PLOT NUMBER 0 THROUGHOUT THIS NASTPLOT PROGRAM C WRITE (NOUT,330) K12 330 FORMAT (/,' THERE IS A PLOT ID FRAME (PLOT NUMBER 0) ON USER''S ', 1 'PLT',A1,' FILE') GO TO 350 C 340 WRITE (NOUT,310) C C INQUIRE WHICH PLOT TO BE PLOTTED (SELECT) C (ALLOW 5-DIGIT PLOT NO, CAN BE LEFT OR RIGHT AJUSTED) C 350 WRITE (NOUT,360) 360 FORMAT (//,' ENTER PLOT NUMBER TO BE PLOTTED, ''NEXT'' or ', 1 '''STOP'' ',$) READ (IN,370,END=350) CHR1 370 FORMAT (5A1) IF (CHR4 .EQ. BLNK4) GO TO 350 SELECT = -99 IF (PSC .AND. (CHR1(1).EQ.AL1 .OR. CHR1(1).EQ.KA1)) PSALL = 1 IF (PSALL.NE.0 .OR. CHR1(1).EQ.NXT1 .OR. CHR1(1).EQ.KN1) GO TO 510 IF (CHR1(1).EQ.STP1 .OR. CHR1(1).EQ.KS1) GO TO 1010 SELECT = 0 TEN = 1 K = 5 DO 410 J = 1,5 IF (CHR1(K) .EQ. BLNK1) GO TO 410 DO 380 I = 1,10 IF (CHR1(K) .EQ. NUMB1(I)) GO TO 400 380 CONTINUE WRITE (NOUT,390) 390 FORMAT (/5X,'...INPUT ERROR') GO TO 350 400 IF (I .EQ. 10) I = 0 SELECT = SELECT + I*TEN TEN = TEN*10 410 K = K - 1 FOUND = .FALSE. IF (SELECT .LT. 0) GO TO 900 IF (SELECT+PID .EQ. 0) GO TO 340 IF (LASTSL .EQ. -2) GO TO 510 IF (SELECT - LASTSL) 950,420,510 420 CDC = EOF(IN) WRITE (NOUT,430) LASTSL 430 FORMAT (' LAST PLOT WAS PLOT NO.',I3,'. ARE YOU SURE? (Y,N) ',$) READ (IN,30,END=420) J IF (J.EQ.YES .OR. J.EQ.SYY) GO TO 950 IF (J.NE.NO .AND. J.NE.SNN) GO TO 420 GO TO 350 C C SEARCH PLOT TAPE FOR PLOT SELECTED C UP TO 2 DIGITS ONLY FOR PLOT ID C 440 IF (K12 .EQ. K2) GO TO 490 450 READ (FIL,460,END=900) W 460 FORMAT (5(2I3,4I5)) KK = KK + 1 IF (DEBUG .AND. MOD(KK,NRC) .EQ. 0) WRITE (NOUT,470) KK 470 FORMAT (10X,'...SEARCHING',I6,' RECORDS') 480 FORMAT (10X,'...WORKING ',I6,' RECORDS PROCESSED') IF (W(1) .NE. 1) GO TO 450 GO TO 510 490 READ (FIL,FMT500,END=900) Z C 500 FORMAT (3000A1) KK = KK + 1 IF (DEBUG .AND. MOD(KK,NRC) .EQ. 0) WRITE (NOUT,470) KK IF (.NOT.VAX .AND. ISHFT(Z(1),NBS).NE.1) GO TO 490 IF ( VAX .AND. IAND(Z(4),MASK).NE.1) GO TO 490 C C WRITE (NOUT,505) JID,(Z(J),J=1,9) C 505 FORMAT (' JID =',I3,', FIRST 9 BYTES OF NEW-PLOT RECORD = ', C 1 /12X,9I7) C IF (.NOT.VAX) PLOTID = ISHFT(Z(JID-1),NBS)*10 + ISHFT(Z(JID),NBS) IF ( VAX) PLOTID = IAND(Z(JID+1),MASK)*10 + IAND(Z(JID),MASK) C C SELECT WAS SET TO -99 IF USER WANTS THE NEXT PLOT, OR C USER REQUEST ALL PLOTS ON POSTSCRIPT C 510 IF (K12.NE.K2 .OR. LASTSL.EQ.-2) PLOTID = Z(JID) C IF (DEBUG) WRITE (NOUT,545) PLOTID IF (SELECT .EQ. -99) SELECT = PLOTID IF (LASTSL .EQ. -2 ) LASTSL = -1 IF (PLOTID.GE.0 .OR. PSALL.NE.0) IF (PLOTID-SELECT) 440,540,520 IF (PNO+PID .EQ. SELECT) GO TO 540 PNO = PNO + 1 GO TO 440 C C INPUT TAPE MAY NOT SPECIFY PLOT NO. C 520 CDC = EOF(IN) WRITE (NOUT,530) PLOTID,SELECT 530 FORMAT (/,' PLOT NO.',I4,' JUST FOUND. INPUT TAPE MAY NOT USE ', 1 'OR SPECIFY PLOT NO.',I4, 2 /,' CONTINUE SEARCHING or REWIND TAPE? (Y,N,R) ',$) READ (IN,30,END=520) TEMP IF (TEMP .EQ. KR1) GO TO 950 IF (TEMP .EQ. KY ) GO TO 440 GO TO 350 C C MATCHING PLOT NUMBER JUST FOUND. C SET N1 FOR THE 900 LOOP, THAT POINTS TO THE 2ND PLOT COMMAND C 540 FOUND = .TRUE. PLOTID = SELECT IF (PLOTID .EQ. -1) PLOTID = 0 IF (DEBUG) WRITE (NOUT,545) PLOTID 545 FORMAT (13X,'PLOT NO =',I5,' FOUND') NOTYET = .TRUE. NREC = KK N1 = 7 IF (K12 .EQ. K2) N1 = 1 IF (PSC) GO TO 550 C C INITIALIZE TEKRONIX: C CALL TXINIT XHI = 0 YHI = 0 PENCHG = 0 PENCNT = 0 OLDPEN = 0 GO TO 620 C C INITIALIZE POSTCRIPT: C 550 NPLOT = NPLOT + 1 JOUNT = 0 ONCE =-1 IF (ADOT) GO TO 560 IF (ALL .EQ. YES) IF (LUOPEN) 590,555,590 555 NA1(DOT) = A1Z(NPLOT) GO TO 585 560 KNUM1 = KB KNUM(2)= KB IF (ALL .EQ. YES) IF (LUOPEN) 590,580,590 IF (NPLOT .LT. 10) WRITE (KNUM1,565) NPLOT IF (NPLOT .GE. 10) WRITE (KNUM2,570) NPLOT 565 FORMAT (I1) 570 FORMAT (I2) 580 NA1(DOT+2) = KNUM1 NA1(DOT+3) = KNUM(2) NA1(DOT+4) = KB 585 OPEN (UNIT=LU,FILE=NAM32,FORM='FORMATTED',STATUS='NEW',ERR=870 C 1 ) 1 ,CARRIAGECONTROL='LIST') ! RECOMMANDED FOR VAX TO GENERATE C ! STANDARD LIST FILE LUOPEN = 1 590 CALL PSINIT (NOLINE) IF (ALL .EQ. YES) NOLINE = 1 GO TO 620 C 600 NREC = NREC + 1 IF (PSC .AND. DEBUG .AND. MOD(NREC,NRC).EQ.0) 1 WRITE (NOUT,480) NREC C C READ NEXT RECORD C IF (K12 .EQ. K2) GO TO 610 READ (FIL,460,END=900) W GO TO 620 610 READ (FIL,FMT500,END=900) Z C C INTERCHANGE BYTE ORDER IF MACHINE IS VAX C 620 KK = KK + 1 IF (K12.EQ.K1 .OR. .NOT.VAX) GO TO 640 DO 630 I = 1,RL,4 J = Z(I ) Z(I ) = Z(I+3) Z(I+3) = J J = Z(I+1) Z(I+1) = Z(I+2) Z(I+2) = J 630 CONTINUE C C PROCESS ONE PHYSICAL PLOT RECORD C 640 DO 800 N = N1,RL,NW C C GET NEXT COMMAND, C IF (K12 .EQ. K2) GO TO 650 C C PLT1 FILE: TOTAL OF 5 PLOT COMMANDS/RECORD C CMND = W(N) IF (CMND .EQ. 0) GO TO 810 CNTRL = W(N+1) R = W(N+2) S = W(N+3) T = W(N+4) U = W(N+5) GO TO 680 C C PLT2 FILE: TOTAL OF 100 PLOT COMMANDS/RECORD C EACH PLOT COMMAND IS 30 BYTE LONG, AND DATA IN FIRST 22 BYTES C 650 IF (BI .EQ. BO) GO TO 660 CALL GETCMD (Z) GO TO 680 C 660 N22 = N + 21 DO 670 J = N,N22 IF ( VAX) Z(J) = IAND(Z(J), MASK) IF (.NOT.VAX) Z(J) = ISHFT(Z(J),-NBS) 670 CONTINUE CMND = Z(N) IF (CMND .EQ. 0) GO TO 810 CNTRL = Z(N+1) R = Z(N+ 2)*T4 + Z(N+ 3)*T3 + Z(N+ 4)*T2 + Z(N+ 5)*T1 + Z(N+ 6) S = Z(N+ 7)*T4 + Z(N+ 8)*T3 + Z(N+ 9)*T2 + Z(N+10)*T1 + Z(N+11) T = Z(N+12)*T4 + Z(N+13)*T3 + Z(N+14)*T2 + Z(N+15)*T1 + Z(N+16) U = Z(N+17)*T4 + Z(N+18)*T3 + Z(N+19)*T2 + Z(N+20)*T1 + Z(N+21) IF (.NOT.NOTYET) GO TO 680 NOTYET =.FALSE. XMAX = S YMAX = T XFACT= XSIZE/XMAX YFACT= YSIZE/YMAX XLO = XMAX YLO = YMAX GO TO 800 C C CMND = 0, NON-OPERATION. A PADDING COMMANDS OF ALL ZEROS C = 1, START-NEW-PLOT. R IS THE PLOT NUMBER C = 2, SELECT-CAMERA. CNTRL=1 FILM ONLY, =2 HARDCOPY, =3 BOTH C = 3, SKIP-TO-A-NEW-FRAME. CNTRL=1,2,3 SAME AS CMND=2 C AT LEAST ONE CMND=3 COMMAND AFTER A CMND=1 COMMAND AND C BEFORE NEXT CMND=1 C = 4, TYPE-CHARACTER C = 5, DRAW-LINE C = 6, DRAW-AXIS C = 14, 15, 16, SAME AS 4, 5, 6 C THESE COMMANDS INDICATE FIRST OF A SERIES OF 4, 5, OR C 6 COMMNADS THAT FOLLOW C CMND = 2,3 ARE FOR MICROFILM PLOTTER ONLY. THEY ARE NOT USED C IN THIS NASPLT PROGRAM C C CNTRL= A PEN NO., OR A LINE DENSITY, OR A CAMERA NO, OR A POINTER C INTO A LIST OF CHARACTERS AND SYMBOL (TABLE 1 OF THE C USER'S MANUAL, P.4.4-5) C C R,S,T,U = DATA VALUES C C C C NOTE, CMND=1 (START-NEW-PLOT) ALWAYS LOCATES ON THE FIRST COMMAND C OF A PLOT RECORD C IGNORE CMND =2 OR 3, WHICH ARE FOR MICROFILM PLOTTER ONLY C 680 IF (CMND .NE. 1) GO TO 720 IF (N .NE. 1) WRITE (NOUT,685) BELL,BELL,BELL,N,CNTRL 685 FORMAT (1X,3A1,/,'0*** LOGIC ERROR. NEW PLOT FOUND AT MIDDLE OF ', 1 'RECORD', /5X,'N =',I5,', PLOT NO.',I5) C C END OF PREVIOUS PLOT C WRITE (NOUT,690) BELL 690 FORMAT (1X,A1) IF (TEK) GO TO 710 CALL PSTRKE CALL PSFINS IF (ALL .EQ. YES) GO TO 695 CLOSE (UNIT=LU) IF (LUX) LU = LU + 1 LUOPEN = 0 695 WRITE (NOUT,700) PLOTID,K12 700 FORMAT (/,' A PLOT WAS GENERATED FROM PLOT NO.',I3,' OF THE PLT', 1 A1,' FILE',/) IF (K12 .EQ. K2) BACKSPACE FIL LASTSL = SELECT SELECT = R PLOTID = R IF (PSALL) 540,350,540 C 710 READ (IN,30,END=715) J 715 CDC = EOF(IN) CALL TXFINS GO TO 350 C 720 IF (CMND .LE. 3) GO TO 800 C C CHECK FOR NEW CHARACTER, LINE, OR AXIS SET C IF (CMND.LT.14 .OR. CMND.GT.16) GO TO 730 IF (CMND .EQ. 14) CHRSET = .TRUE. IF (CMND .EQ. 15) LINSET = .TRUE. IF (CMND .EQ. 16) AXSSET = .TRUE. CMNDX = CMND CMND = CMND - 10 C C CHECK FOR END OF CHARACTER, LINE, OR AXIS SET C 730 IF (.NOT.PSC) GO TO 740 IF (CHRSET .AND. CMND.NE.4) CALL PSENDC (CHRSET,CMNDX) IF (CMND .NE. 4) GO TO 750 CALL PSCHAR (CHRSET,CMNDX) GO TO 800 740 IF (CHRSET .AND. CMND.NE.4) CALL ENDKHR (CHRSET) IF (LINSET .AND. CMND.NE.5) CALL ENDLIN (LINSET) IF (AXSSET .AND. CMND.NE.6) CALL ENDAXS (AXSSET) C 750 IF (CMND-5) 760,770,790 C CMND = 4 5 6 C or 14 15 16 C 760 IF (TEK) CALL DRWKHR (CHRSET) GO TO 800 770 IF (PSC) GO TO 780 CALL DRWLIN (LINSET) GO TO 800 780 CALL PSLINE GO TO 800 790 IF (PSC) GO TO 780 CALL DRWAXS (AXSSET) 800 CONTINUE C C LOOP BACK FOR MORE PLOT RECORDS FROM PLOT FILE C SESET N1 FOR THE 900 LOOP, THAT POINTS TO THE 1ST PLOT COMMAND C 810 N1 = 1 GO TO 600 C C PLOT FILE NOT FOUND. TRY AGAIN C 850 WRITE (NOUT,860) NAM32 860 FORMAT (/,' *** NO SUCH INPUT FILE ',A32) IF (IBM) WRITE (NOUT,137) GO TO 100 C 870 WRITE (NOUT,880) NAM32 880 FORMAT (//,' *** CAN NOT OPEN OUTPUT FILE - ',A32, 1 /5X,'JOB ABORTED') CLOSE (UNIT=FIL) GO TO 1050 C C EOF ENCOUNTERED C 900 WRITE (NOUT,690) BELL IF (PLOTID.EQ.-1 .OR. .NOT.FOUND) GO TO 920 IF (PSC) GO TO 910 READ (IN,30,END=905) J 905 CDC = EOF(IN) CALL TXFINS GO TO 920 910 J = 0 IF (CHRSET) CALL PSENDC (CHRSET,J) CALL PSTRKE CALL PSFINS IF (ALL .EQ. YES) GO TO 915 CLOSE (UNIT=LU) IF (LUX) LU = LU + 1 LUOPEN = 0 915 IF (NPLOT .GT. 0) WRITE (NOUT,700) PLOTID,K12 920 IF (.NOT.FOUND) WRITE (NOUT,930) SELECT 930 FORMAT (/,' PLOT NO.',I4,' DOES NOT EXIST') 940 WRITE (NOUT,945) PLOTID,K12 945 FORMAT (/,' EOF ENCOUNTERED. THERE ARE ONLY',I3,' PLOTS ON ', 1 'USER''S PLT',A1,' FILE', /, 2 ' START ALL OVER PLOTTING AGAIN? (Y,N) ',$) READ (IN,30,END=940) J IF (J.EQ.NO .OR. J.EQ.SNN) GO TO 1010 IF (J.NE.YES .AND. J.NE.SYY) GO TO 920 SELECT = -1 C C START ALL OVER AGAIN C 950 REWIND FIL KK = 0 PSALL = 0 PNO = 0 PLOTID=-1 LASTSL=-2 IF (K12 .EQ. K1) READ (FIL, 460,END=1010) W IF (K12 .EQ. K2) READ (FIL,FMT500,END=1010) Z IF (PID .EQ. 0) GO TO 960 Z(JID) = 0 GO TO 970 960 IF (K12 .EQ. K1) GO TO 970 IF (.NOT.VAX) Z(JID) = ISHFT(Z(JID-1),NBS)*10 + ISHFT(Z(JID),NBS) IF ( VAX) Z(JID) = IAND(Z(JID+1),MASK)*10 + IAND(Z(JID),MASK) 970 IF (SELECT) 350,510,510 C C JOB DONE. TIDY UP ALL LOOSE ENDS C 1000 WRITE (NOUT,1020) GO TO 1050 1010 CLOSE (UNIT=FIL) IF (ALL.EQ.YES .AND. LUOPEN.EQ.1) CLOSE (UNIT=LU) WRITE (NOUT,1020) 1020 FORMAT (//5X,'*** JOB DONE ***') IF (.NOT.PSC .OR. NPLOT.LE.0) GO TO 1050 KC = KB IF (NPLOT .GT. 1) KC = STP1 IF (ALL .EQ. YES) GO TO 1030 NA1(DOT+3) = KB IF (NPLOT .LE. 1) GO TO 1030 NA1(DOT+2) = STR KB = STP1 1030 WRITE (NOUT,1040) NPLOT,KC,KB,NAM32 1040 FORMAT (//4X,I2,' PLOT FILE',A1,' GENERATED. SEND THE FOLLOWING ', 1 'PostScript FILE',A1, /5X,'TO PRINTER - ',A32) C 1050 CONTINUE END C C ================================================================= C SUBROUTINE GETCMD (Z) C C THIS SUBROUTINE GET THE PLOT COMMAND C C THIS SUBROUTINE IS NEEDED ONLY WHEN THE MACHINE READING THE PLT2 C TAPE AND THE MACHINE WHO WROTE THE PLT2 TAPE, HAVE DIFFERENT C NUMBER OF BITS PER BYTE, NBPB C E.G. NBPB IS 6 FOR CDC, 8 FOR VAX AND IBM, AND 9 FOR UNIVAC C C BI = NBPB ON WRITING COMPUTER C BO = NBPB ON READING COMPUTER C IMPLICIT INTEGER (A-Z) INTEGER Z(1),Q(1) COMMON /QQ/ BI,BO,WRD,BYT,PC,CI,R4,R3,R2,R1,R0,S4,S3,S2,S1,S0, 1 T4,T3,T2,T1,T0,U4,U3,U2,U1,U0 COMMON CMND,CTRL,R,S,T,U EQUIVALENCE (Q(1),PC) DATA MAX/ 3000 / C IF (BI .EQ. BO) STOP ' NO NEED TO CALL GETCMD' IF (BI .NE. BO) STOP ' PRESENTLY, GETCMD DOES NOT WORK' C C GET 30-BYTE COMMAND INTO 30 INTEGERS C THE FOLLOWING LOGIC IS FACTITIOUS C IF (BI.EQ.8 .AND. BO.EQ.6) GO TO 1110 C C NBPC OF 6 INTO NBPC OF 8 C DO 1100 I = 1,30 Q(I) = Z(WRD) IF (BYT .EQ. 0) WRD = WRD + 1 IF (BYT .EQ. 0) BYT = 6 IF (WRD .GT. MAX) WRD = 1 1100 BYT = BYT - 1 GO TO 1130 C C NBPC OF 8 INTO NBPC OF 6 C 1110 DO 1120 I = 1,30 Q(I) = Z(WRD) IF (BYT .EQ. 0) WRD = WRD + 1 IF (BYT .EQ. 0) BYT = 8 IF (WRD .GT. MAX) WRD = 1 1120 BYT = BYT - 1 C 1130 CMND = PC CTRL = CI R = R4*10000 + R3*1000 + R2*100 + R1*10 + R0 S = S4*10000 + S3*1000 + S2*100 + S1*10 + S0 T = T4*10000 + T3*1000 + T2*100 + T1*10 + T0 U = U4*10000 + U3*1000 + U2*100 + U1*10 + U0 RETURN END C C ================================================================= C SUBROUTINE DRWAXS (AXSSET) C IMPLICIT INTEGER (A-Z) REAL XFACT,YFACT,X,Y LOGICAL AXSSET,P16 COMMON CMND,CNTRL,R,S,T,U,XFACT,YFACT,XMAX,YMAX,XHI,YHI,XLO,YLO, 1 PENCHG,PENCNT,OLDPEN,PENNO(99) DATA AXSCNT,P16 / 0, .TRUE. / C C CHECK FOR INITIAL COMMAND = 16 C IF (AXSSET) GO TO 1150 AXSSET = .TRUE. P16 = .FALSE. C C CHECK COORDINATES AGAINST MAX & MIN ENCOUNTERED SO FAR C 1150 XHI = MAX(R,T,XHI) YHI = MAX(S,U,YHI) XLO = MIN(R,T,XLO) YLO = MIN(S,U,YLO) C C CHECK FOR A PEN CHANGE AND/OR NEW PEN ID C IF (CNTRL .EQ. OLDPEN) GO TO 1180 CALL TXNPEN (CNTRL) PENCHG = PENCHG + 1 IF (PENCNT .GE. 99) GO TO 1170 PENCNT = PENCNT + 1 PENNO(PENCNT) = CNTRL IF (PENCNT .LE. 1) GO TO 1170 DO 1160 N = 2,PENCNT IF (PENNO(PENCNT) .NE. PENNO(N-1)) GO TO 1160 PENCNT = PENCNT -1 GO TO 1170 1160 CONTINUE 1170 OLDPEN = CNTRL 1180 AXSCNT = AXSCNT + 1 C C MOVE PLOTTER PEN TO BEGINNING OF AXIS C X = XFACT*FLOAT(R) Y = YFACT*FLOAT(S) CALL TXPLOT (X,Y,3) C C DRAW AXIS ON PLOTTING SURFACE C X = XFACT*FLOAT(T) Y = YFACT*FLOAT(U) CALL TXPLOT (X,Y,2) RETURN C C ENTRY ENDAXS (AXSSET) C ===================== C C REINITILIZE COMMANDS C P16 = .TRUE. AXSCNT = 0 AXSSET = .FALSE. RETURN END C C ================================================================= C SUBROUTINE DRWKHR (CHRSET) C IMPLICIT INTEGER (A-Z) LOGICAL CHRSET REAL XFACT,YFACT,X,Y,ANGLE,HITE CHARACTER CHR94*52,CHRSAV*57,BLNK1,QUES1 DIMENSION CHRCOD(53) COMMON CMND,CNTRL,R,S,T,U,XFACT,YFACT,XMAX,YMAX,XHI,YHI,XLO,YLO DATA LINE,SAVCNT,CHRCNT,UNKCNT / 1, 0, 0, 0/ DATA CHRSAV,BLNK1,QUES1 / ' ', ' ', '?' / DATA CHR94 / 1 '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ()+-*/=.,$" O[<^'/ DATA CHRCOD /32,33,34,35,36,37,38,39,40,41, 1 49,50,51,52,53,54,55,56,57,58,59,60,61, 2 62,63,64,65,66,67,68,69,70,71,72,73,74, 3 24,25,27,29,26,31,45,30,28,20,23, 4 16, 1, 0, 5, 2,47/ C C CHECK FOR INITIAL COMMAND = 14 C IF (CHRSET) GO TO 1200 CHRSET = .TRUE. LINE = LINE + 1 C C UPDATE COUNTER & POINTER C 1200 SAVCNT = SAVCNT + 1 CHRCNT = CHRCNT + 1 C C STORE CHARACTER IN STRING CHRSAV C IF (CNTRL.LE.52 .AND. CNTRL.GT.0) GO TO 1210 CHRSAV(SAVCNT:SAVCNT) = QUES1 CODE = CHRCOD(53) UNKCNT = UNKCNT + 1 GO TO 1220 C 1210 CHRSAV(SAVCNT:SAVCNT) = CHR94(CNTRL:CNTRL) CODE = CHRCOD(CNTRL) C C IF CHRSAV STRING IS FULL, PRINT IT C 1220 IF (SAVCNT .NE. 57) GO TO 1230 CHRSAV = BLNK1 SAVCNT = 0 LINE = LINE + 1 C C COMPARE (X,Y) WITH MAX & MIN ENCOUNTERED SO FAR C 1230 XHI = MAX(XHI,R) YHI = MAX(YHI,S) XLO = MIN(XLO,R) YLO = MIN(YLO,S) C C DRAW CHARACTER ON PLOTTER C X = XFACT*FLOAT(R) Y = YFACT*FLOAT(S) HITE = 0.08*XFACT*100.0 ANGLE = 0.0 C C BRING IN NASTRAN SYMBOL ROUTINE IF IT IS NEEDED C C CALL SYMBOL (X,Y,HITE,CODE,ANGLE,-1) RETURN C C ENTRY ENDKHR (CHRSET) C ===================== C C PRINT OUT CONTENTS OF CHRSAV & COUNTERS C REINITIALIZE C LINE = 1 CHRSAV = BLNK1 CHRSET = .FALSE. SAVCNT = 0 CHRCNT = 0 UNKCNT = 0 RETURN END C C ================================================================= C SUBROUTINE DRWLIN (LINSET) C IMPLICIT INTEGER (A-Z) REAL XFACT,YFACT,X,Y,OLDX,OLDY LOGICAL LINSET,P15,LINPRV COMMON CMND,CNTRL,R,S,T,U,XFACT,YFACT,XMAX,YMAX,XHI,YHI,XLO,YLO, 1 PENCHG,PENCNT,OLDPEN,PENNO(99) DATA LINCNT,P15,LINPRV / 0,.TRUE.,.FALSE. / C C CHECK FOR INITIAL COMMAND = 15 C IF (LINSET) GO TO 1250 LINSET = .TRUE. P15 = .FALSE. C C CHECK COORDINATES AGAINST MAX & MIN ENCOUNTERED SO FAR C 1250 XHI = MAX(R,T,XHI) YHI = MAX(S,U,YHI) XLO = MIN(R,T,XLO) YLO = MIN(S,U,YLO) FILL = 0 C C CHECK FOR A PEN CHANGE AND/OR NEW PEN ID C IF (CNTRL .EQ. OLDPEN) GO TO 1280 IF (CNTRL .GT. 31) FILL = 1 IF (CNTRL.EQ.0 .AND. OLDPEN .GT.31) IFILL = 1 CALL TXNPEN (CNTRL) PENCHG = PENCHG + 1 IF (PENCNT .GE. 99) GO TO 1270 PENCNT = PENCNT + 1 PENNO(PENCNT) = CNTRL IF (PENCNT .LE. 1) GO TO 1270 DO 1260 N = 2,PENCNT IF (PENNO(PENCNT) .NE. PENNO(N-1)) GO TO 1260 PENCNT = PENCNT - 1 GO TO 1270 1260 CONTINUE 1270 OLDPEN = CNTRL 1280 LINCNT = LINCNT + 1 X = XFACT*FLOAT(R) Y = YFACT*FLOAT(S) I = 3 IF (FILL .EQ. 1) I = -3 C C IF FILL = 1 THEN START TO FILL ELEMENT C IF (.NOT.LINPRV .OR. X.NE.OLDX .OR. Y.NE.OLDY) CALL TXPLOT (X,Y,I) C C DRAW LINE ON PLOTTER SURFACE C X = XFACT*FLOAT(T) Y = YFACT*FLOAT(U) C C IF CNTRL = 0 CLOSE ELEMENT AND FILL C J = 2 IF (CNTRL.EQ.0 .AND. IFILL.EQ.1) J = -2 IF (J .EQ. -2) IFILL = 0 CALL TXPLOT (X,Y,J) C C REMEMBER POSITION FOR NEXT SUCCESSIVE DRAWLINE COMMAND C OLDX = X OLDY = Y LINPRV = .TRUE. RETURN C C ENTRY ENDLIN (LINSET) C ===================== C C CHECK FOR INITIAL COMMAND=15, AND PRINT "DRAW LINES" SUMMARY C REINITIALIZE C P15 = .TRUE. LINCNT = 0 LINSET = .FALSE. LINPRV = .FALSE. RETURN END C C ================================================================= C SUBROUTINE TXNPEN (CNTRL) C C TEKTRONIX PEN AND COLOR CONTROL C INTEGER CNTRL CHARACTER ESC*1,CLEAR*2,LINCLR*4 COMMON /IO/ IN,NOUT COMMON /EC/ ESC,CLEAR C C CHANGE COLOR BY PEN NUMBER. C IF (CNTRL .GT. 15) GO TO 1460 GO TO (1310,1320,1330,1340,1350,1360,1370,1380,1390,1400, 1 1410,1420,1430,1440,1450), CNTRL 1310 LINCLR = ESC//'ML1' GO TO 1620 1320 LINCLR = ESC//'ML2' GO TO 1620 1330 LINCLR = ESC//'ML3' GO TO 1620 1340 LINCLR = ESC//'ML4' GO TO 1620 1350 LINCLR = ESC//'ML5' GO TO 1620 1360 LINCLR = ESC//'ML6' GO TO 1620 1370 LINCLR = ESC//'ML7' GO TO 1620 1380 LINCLR = ESC//'ML8' GO TO 1620 1390 LINCLR = ESC//'ML9' GO TO 1620 1400 LINCLR = ESC//'ML:' GO TO 1620 1410 LINCLR = ESC//'ML;' GO TO 1620 1420 LINCLR = ESC//'ML<' GO TO 1620 1430 LINCLR = ESC//'ML=' GO TO 1620 1440 LINCLR = ESC//'ML>' GO TO 1620 1450 LINCLR = ESC//'ML?' GO TO 1620 C 1460 IF (CNTRL .LT. 32) RETURN J = CNTRL - 31 GO TO (1470,1480,1490,1500,1510,1520,1530,1540,1550,1560, 1 1570,1580,1590,1600,1610), J 1470 LINCLR = ESC//'MP!' GO TO 1620 1480 LINCLR = ESC//'MP"' GO TO 1620 1490 LINCLR = ESC//'MP#' GO TO 1620 1500 LINCLR = ESC//'MP$' GO TO 1620 1510 LINCLR = ESC//'MP%' GO TO 1620 1520 LINCLR = ESC//'MP&' GO TO 1620 1530 LINCLR = ESC//'MP'//CHAR(39) GO TO 1620 1540 LINCLR = ESC//'MP(' GO TO 1620 1550 LINCLR = ESC//'MP)' GO TO 1620 1560 LINCLR = ESC//'MP*' GO TO 1620 1570 LINCLR = ESC//'MP+' GO TO 1620 1580 LINCLR = ESC//'MP,' GO TO 1620 1590 LINCLR = ESC//'MP-' GO TO 1620 1600 LINCLR = ESC//'MP.' GO TO 1620 1610 LINCLR = ESC//'MP/' 1620 WRITE (NOUT,1630) LINCLR 1630 FORMAT (1X,A4) RETURN END C C ================================================================= C SUBROUTINE TXINIT C C THIS ROUTINE INITIALIZES THE TEKTRONIX GRAPHIC MODE AND CLEARS C THE PREVIOUS PLOT OFF THE SCREEN. C CHARACTER ESC*1,CLEAR*2,INDEX(15)*12 CHARACTER*4 TMODE,EMODE,LINCLR COMMON /IO/ IN,NOUT COMMON /EC/ ESC,CLEAR C LINCLR = ESC//'ML1' TMODE = ESC//'%!0' C C SET THE COLOR REGISTERS. FROM RED TO BLUE. C INDEX( 1) = ESC//'TG1410F40' INDEX( 2) = ESC//'TG142G8B8F4' INDEX( 3) = ESC//'TG143HB8F4' INDEX(11) = ESC//'TG14;Q8C2F4' INDEX(12) = ESC//'TG14U1C2F4' INDEX(15) = ESC//'TG14?0C2F4' C WRITE (NOUT,1700) TMODE,CLEAR 1700 FORMAT (1X,A4,A2) WRITE (NOUT,1710) (INDEX(I),I=1,15) 1710 FORMAT (1X,A12) WRITE (NOUT,1700) LINCLR RETURN C C ENTRY TXFINS C ============ C C THIS ROUTINE INITIALIZES THE EDIT MODE AND CLEARS THE PREVIOUS C PLOT OFF THE TEKTRONIC SCREEN. C LINCLR = ESC//'ML1' EMODE = ESC//'%!2' WRITE (NOUT,1720) CLEAR,LINCLR,EMODE 1720 FORMAT (1X,A2,A4,A4) RETURN END C C ================================================================= C SUBROUTINE TXPLOT (X,Y,N) C C THIS SUBROUTINE CHANGES COORDINATES INTO TEXTRONIX COORDINATES C INTEGER N,NUMBER(2),CON(12,2),ADE(5),TWO(12) REAL X,Y CHARACTER ESC*1,CLEAR*2,PANEND*3,ASC*5 CHARACTER*8 PSTART,PEND,PANST COMMON /IO/ IN,NOUT COMMON /EC/ ESC,CLEAR DATA TWO/ 1,2,4,8,16,32,64,128,256,512,1024,2048 / C IX = NINT(X*3071.0) IY = NINT(Y*3071.0) C NUMBER(1) = IX NUMBER(2) = IY C C CONVERTS TWO INTEGER VALUES INTO TEKTRONIX TYPE ADE (ASCII TO C DECIMAL EQUIVALENT) CHARACTERS C DO 1820 K = 1,2 IDIGIT = 0 C I = 12 DO 1810 J = 1,12 IF (TWO(I)-NUMBER(K) .GT. 0) GO TO 1800 IDIGIT = 1 NUMBER(K) = NUMBER(K) - TWO(I) 1800 CON(I,K) = IDIGIT IDIGIT = 0 1810 I = I - 1 1820 CONTINUE C ADE(1) = 32 ADE(2) = 96 ADE(3) = 96 ADE(4) = 32 ADE(5) = 64 C I = 12 DO 1830 J = 8,12 IF (CON(I,1) .EQ. 1) ADE(4) = ADE(4) + TWO(I-7) 1830 I = I - 1 ASC(4:4) = CHAR(ADE(4)) C I = 7 DO 1840 J = 3,7 IF (CON(I,1) .EQ. 1) ADE(5) = ADE(5) + TWO(I-2) 1840 I = I - 1 ASC(5:5) = CHAR(ADE(5)) C I = 2 DO 1850 J = 1,2 IF (CON(I,1) .EQ. 1) ADE(2) = ADE(2) + TWO(I) 1850 I = I - 1 C C IS THERE A LINE MISSING HERE? SOMETHING SUCH AS C ASC(?:?) = CHAR(ADE(2))??? G.C 9/90 C I = 12 DO 1860 J = 8,12 IF (CON(I,2) .EQ. 1) ADE(1) = ADE(1) + TWO(I-7) 1860 I = I - 1 ASC(1:1) = CHAR(ADE(1)) C I = 7 DO 1870 J = 3,7 IF (CON(I,2) .EQ. 1) ADE(3) = ADE(3) + TWO(I-2) 1870 I = I - 1 ASC(3:3) = CHAR(ADE(3)) C I = 2 DO 1880 J = 1,2 IF (CON(I,2) .EQ. 1) ADE(2) = ADE(2) + TWO(I) 1880 I = I - 1 ASC(2:2) = CHAR(ADE(2)) C C END OF CONVERSION C PSTART = ESC//'LF'//ASC PEND = ESC//'LG'//ASC PANST = ESC//'LP'//ASC PANEND = ESC//'LE' C IF (N .EQ. 3) WRITE (NOUT,1890) PSTART IF (IABS(N) .EQ. 2) WRITE (NOUT,1890) PEND IF (N .EQ. -3) WRITE (NOUT,1890) PANST IF (N .EQ. -2) WRITE (NOUT,1900) PANEND 1890 FORMAT (1X,A8) 1900 FORMAT (1X,A3) RETURN END C C ================================================================= C SUBROUTINE PSINIT (NOLINE) C C POSTSCRIPT NEW PLOT ROUTINE C C ON A 8 X 11 (HORIZ X VERT) PAGE, THE ORIGIN IS AT THE LOWER LEFT C CONNER. NOW TO CENTER THE PLOT HORIZONTALLY ALONG THE 11 IN. EDGE, C MOVE THE ORIGIN 589 UNITS TO THE RIGHT, 116 UNITS UP, AND ROTATE C THE PAPER BY 90 DEGREE. C COMMON /PS/ LU,DUMMY(6) C IF (NOLINE .EQ. 0) WRITE (LU,1950) WRITE (LU,1960) 1950 FORMAT ('%!') 1960 FORMAT ('589 116 translate', /,'90 rotate') RETURN C C ENTRY PSFINS C ============ C C CLOSE ROUTINE C WRITE (LU,1970) 1970 FORMAT ('showpage') RETURN C C ENTRY PSTRKE C ============ C C STROKE ROUTINE C WRITE (LU,1980) 1980 FORMAT ('stroke') RETURN END C C ================================================================= C SUBROUTINE PSLINE C C POSTSCRIPT LINE ROUTINE C INTEGER R,S,T,U REAL SCALE CHARACTER*7 MT,LT COMMON CMND,CTRL,R,S,T,U COMMON /PS/ LU,SCALE,JOUNT,NBUFF,DUMMY(3) DATA MT, LT /' moveto', ' lineto' / C R = R*SCALE S = S*SCALE T = T*SCALE U = U*SCALE WRITE (LU,2000) R,S,MT, T,U,LT 2000 FORMAT (2I5,A7, /,2I5,A7) JOUNT = JOUNT + 1 IF (JOUNT .LE. NBUFF) RETURN CALL PSTRKE JOUNT = 0 RETURN END C C ================================================================= C SUBROUTINE PSCHAR (CHRSET,CMNDX) C C PUT CHARACTERS INTO ONE STRING IF APPLICABLE. UP TO 70 CHARACTERS. C C IF CMNDS=4 AT 2120 IS REMOVED, NO CHARACTER STRING WILL BE FORMED, C AND EACH CHARACTER WILL BE POSITIONED AND TYPED INDIVIDUALLY C IMPLICIT INTEGER (A-Z) LOGICAL CHRSET REAL SCALE,CSCAL CHARACTER CHR94*48,BSS0*2 CHARACTER*1 SAVE(76),SHOW(6),BS,S0,S2,S3,S5,S6,S7,BS0(2) COMMON CMND,CNTRL,R,S,T COMMON /PS/ LU,SCALE,JOUNT,NBUFF,ONCE,CSCAL,CHRPOS EQUIVALENCE (BS0(1),BSS0,BS),(BS0(2),S0) DATA SHOW / ')',' ','s','h','o','w' / DATA BSS0,S2,S3,S5,S6,S7 / '\0','2','3','5','6','7'/ DATA CHR94 / 1 '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ()+-*/=.,$" ' / C 000000000111111111122222222223333333333444444444 C 0 0 0 0 8 C 49-52 = SPECIAL CHARACTERS C FROM NASTRAN USER NANUAL P. 4.4-5 C IF (ONCE .NE. -1) GO TO 2110 ONCE = 0 WRITE (LU,2100) CSCAL 2100 FORMAT ('/Courier-Bold findfont',F5.1,' scalefont setfont') C C CORRECTION FOR CHARACTER X-Y POSITION. C FROM CHARACTER CENTER TO CHARACTER LOWER LEFT CORNER C DELY = 8*T/2 + 1 DELX = DELY*2/3 + 1 GO TO 2120 C 2110 IF (CMNDX .EQ. 14) GO TO 2200 IF (ONCE .GT. 0) GO TO 2140 2120 IF (CHRPOS .EQ. 0) CMNDX = 4 R = (R-DELX)*SCALE S = (S-DELY)*SCALE WRITE (LU,2130) R,S 2130 FORMAT (2I5,' moveto') JOUNT = JOUNT + 1 COUNT = 0 ONCE = 1 C 2140 COUNT = COUNT + 1 SAVE(COUNT) = SHOW(2) IF (CNTRL.GE.49 .AND. CNTRL.LE.52) GO TO 2150 IF (COUNT.LE.70 .AND. CNTRL.GE.1 .AND. CNTRL.LE.48) 1 SAVE(COUNT) = CHR94(CNTRL:CNTRL) GO TO 2170 C C SPECIAL SYMBOLS (USER'S MANUAL P. 4.4-5) C NASTRAN POSTCSRIPT C CNTRL ORIGINAL EQUIVALENCE C ----- ------------- -------------- C 49 SMALL CIRCLE BIG SOLID DOT C 50 SMALL SQUARE SQUATE-CIRCLE C 51 SMALL DIAMOND DAGGER C 52 SMALL TRIANGLE DOUBLE-DAGGER C C SINCE THESE SYMBOLS MAY BE PART OF A TEXT, TO ACTUALLY DRAW THESE C NASTRAN ORIGINAL SYMBOLS IS NOT RECOMMENDED C 2150 IF (COUNT+3 .GT. 70) GO TO 2170 SAVE(COUNT ) = BS SAVE(COUNT+1) = S2 SAVE(COUNT+2) = S6 COUNT = COUNT + 3 IF (CNTRL .NE. 50) GO TO 2160 SAVE(COUNT-1) = S5 SAVE(COUNT ) = S0 GO TO 2170 2160 IF (CNTRL .EQ. 49) SAVE(COUNT) = S7 IF (CNTRL .EQ. 51) SAVE(COUNT) = S2 IF (CNTRL .EQ. 52) SAVE(COUNT) = S3 2170 RETURN C C ENTRY PSENDC (CHRSET,CMNDX) C =========================== C 2200 IF (COUNT-1) 2270,2210,2230 2210 WRITE (LU,2220) SAVE(1) 2220 FORMAT (1H(,A1,6H) show) GO TO 2260 2230 DO 2240 J = 1,6 2240 SAVE(COUNT+J) = SHOW(J) COUNT = COUNT + 6 WRITE (LU,2250) (SAVE(J),J=1,COUNT) 2250 FORMAT (1H(,76A1) 2260 COUNT = 0 ONCE = 0 JOUNT = JOUNT + 1 IF (JOUNT .LE. NBUFF) GO TO 2270 CALL PSTRKE JOUNT = 0 2270 IF (CMNDX.EQ.14 .AND. CMND.EQ.4) GO TO 2120 CHRSET = .FALSE. RETURN END C C ================================================================= C C+ SUBROUTINE NASTEK (*,FIL,NR,IBUFF,NBUFF) C C NASTEK - INTERACTIVE DISPLAY OF NASTRAN-GENERATED PLOTS - NOV83 C REVISED APR86 C C NASTEK PLOTS NASTRAN-GENERATED PLT1 OR PLT2 FILES ON TEKTRONIX C 4010 AND 4050 SERIES TERMINALS, AND RUNS ON VAX-11 COMPUTERS. C C THE USER CAN C - PLOT ALL FRAMES SEQUENTIALLY W/AUTOMATIC HARDCOPY OR PLOT C ANY FRAME HE CHOOSES C - SET A SCALE FACTOR TO SHRINK OR ENLARGE THE PLOTS C - DRAW WITH SOLID, DASHED, OR DOTTED LINES IF THE PEN C PARAMETER WAS USED IN NASTRAN C C INPUT - THE NASTRAN-GENERATED PLT1 OR PLT2 FILE. C - FIVE USER-DEFINED VALUES WHICH ARE INPUT BY THE USER C IN RESPONSE TO QUESTIONS ASKED BY NASTEK. C C NASTEK IS WRITTEN IN VAX FORTRAN 77 WITH SUBROUTINES FROM THE C TEKTRONIX PLOT-10 TCS AND ADVANCED GRAPHING II PACKAGES. C C VARIABLES C CHANGE - CHANGING PLOT OPTION? C CHAR - CHARACTER ARRAY C CI - NASTRAN CONTROL INDEX C CSIZE - CHARACTER SIZE FOR QUESTIONS, NOTES, ETC C CURFR - COUNTER FOR CURRENT FRAME NUMBER IN PLT1 OR PLT2 FILE C FR - USER FRAME NUMBER TO BE PLOTTED C IB - INDEX FOR IBUFF C IBUFF - USED TO READ IN AND UNPACK PLT1 OR PLT2 FILE C NBUFF - LENGTH OF IBUFF ARRAY, EITHER 30 OR 3000 C LEN2X - HALF THE WIDTH OF FRAME IN SCREEN COORDINATES C LEN2Y - HALF THE HEIGHT OF FRAME IN SCREEN COORDINATES C MAXFR - MAXIMUM NUMBER OF FRAMES IN PLT1 OR PLT2 FILE C MINX,MINY,MAXX,MAXY,MMINX,MMINY,MMAXX,MMAXY - SCREEN COORDINATES C NUM - STRING OF ASCII NUMBERS USED TO OUTPUT A NUMBER C OLDT,OLDU - LAST POSITION DRAWN TO C PC - NASTRAN PLOT COMMAND 0 - NO OPERATION C 1 - START NEW PLOT C 2,3 - NOT USED IN NASTEK C 4 - PRINT A CHARACTER C 5,6 - DRAW A LINE C PLOTID - HAS PLOTID FRAME BEEN PLOTTED C PLOTOP - PLOT OPTION, 1 CHOOSING, 2 AUTOMATIC C FIL - NASTRAN-GENERATED PLOT FILE, PLT1 OR PLT2 C NR - NO. OF PLOT COMMANDS PER FILE RECORD C = 5 FOR PLT1, AND 100 FOR PLT2 FILE C R,S,T,U,RSTU - NASTRAN COORDINATES C RMIN,SMIN,RMAX,SMAX - NASTRAN COORDINATES C SCALE - SCALE FACTOR > 0 C SEARCH - SEARCHING FOR A FRAME? C SIZE - CHARACTER SIZE ON PLOTS C SYM - SYMBOL SIZES IN NASTRAN COORDINATES C TERMT - TERMINAL TYPE C XCEN,YCEN - CENTER OF FRAME IN SCREEN COORDINATES C XCS,YCS - 1/2 WIDTH AND HEIGHT FOR CHARACTER IN NASTRAN C COORDINATES USED TO MOVE THE CHARACTERS DOWN AND TO THE C LEFT SO THAT THEY ARE CENTERED WRT THE NASTRAN COORDINATE C GIVING THEIR LOCATION C XFAC,YFAC - SCALE FACTORS FOR CHARACTER SIZE DEPENDING ON USER C SCALE FACTOR C C WRITTEN BY: ROBERT LIPMAN C DAVID TAYLOR NAVAL SHIP RESEARCH AND DEVELOPMENT C CENTER, NUMERICAL STRUCTURAL MECHANICS BRANCH C CODE 1844 C BETHESDA, MARYLAND 20084-5000 C (202)-227-1922 C C MODIFIED BY G.CHAN/UNISYS IN AREAS WHERE PLOT COMMANDS ARE READ C OFF PLT1 OR PLT2 FILE, IN DECODING THE COMMANDS, AND IN REPLACING C THE IF-THEN-ELSE-ENDIF STUFFS BY THE OLD STYLE SIMPLE 'IF' FORTRAN C THE FANZY IF-THEN-ELSE-ENDIF STUFFS ARE EASY ONLY TO THE ORIGINAL C DEVELOPER, AND IS VERY HARD FOR ANOTHER READER TO FOLLOW. UPDATING C THE PROGRAM BECOMES VERY DIFFICULT. 3/93 C C+ LOGICAL SEARCH,CHANGE,PLOTID C+ INTEGER IBUFF(NBUFF),PC,CI,PLOTOP,FR,CURFR,PLTX,PLT1,PLT2, C+ 1 FIL,XCEN,YCEN,CSIZE,TERMT C+ REAL RSTU(4),CHAR(48) C+ COMMON /FRAME/ MMINX,MMINY,MMAXY,MMAXX,RSTU,SCALE,CURFR, C+ 1 XCEN,YCEN,RMIN,RMAX,SMIN,SMAX,TERMT,XCS,YCS, C+ 2 SYM1,SYM2,SYM3,SYM7,CSIZE C+ EQUIVALENCE (RSTU(1),R),(RSTU(2),S),(RSTU(3),T),(RSTU(4),U), C+ 1 (NO,CHAR(24)) C+ DATA CHAR / C+ 1 1H0, 1H1, 1H2, 1H3, 1H4, 1H5, 1H6, 1H7, 1H8, 1H9, C+ 2 1HA, 1HB, 1HC, 1HD, 1HE, 1HF, 1HG, 1HH, 1HI, 1HJ, C+ 3 1HK, 1HL, 1HM, 1HN, 1HO, 1HP, 1HQ, 1HR, 1HS, 1HT, C+ 4 1HU, 1HV, 1HW, 1HX, 1HY, 1HZ, 1H(, 1H), 1H+, 1H-, C+ 5 1H*, 1H/, 1H=, 1H., 1H,, 1H$, 1H', 1H / C+ DATA NOUT , IN / 6,5/, PLT1,PLT2,NN / 4HPLT1, 4HPLT2, 1Hn / C C+ PLTX = PLT1 C+ IF (NR .EQ. 100) PLTX = PLT2 C+ NCOM = NBUFF/NR C C INITIALIZE THE TERMINAL C C+ 10 WRITE (NOUT,20) C+ 20 FORMAT (/,' ENTER THE TERMINAL BAUD RATE? ',$) C+ READ (IN,30,ERR=10) IBAUD C+ 30 FORMAT (I5) C+ IF (IBAUD.NE.300 .AND. IBAUD.NE.1200 .AND. IBAUD.NE.4800 .AND. C+ 1 IBAUD.NE.9600 .AND. IBAUD.NE.109200) GO TO 10 C+ CALL INITT (IBAUD/10) C+ CALL TERM (3,4096) C C INITIALIZE SOME VARIABLES C C+ CHANGE =.FALSE. C+ OLDT = 1.E30 C+ OLDU = 1.E30 C C SET MAXIMUM SIZE OF FRAME IN SCREEN COORDINATES C 3014/3900 = 8.5/11 C C+ MMINX = 0 C+ MMINY = 0 C+ MMAXX = 3900 C+ MMAXY = 3014 C+ XCEN = (MMAXX + MMINX)/2 C+ YCEN = (MMAXY + MMINY)/2 C C START OUTPUT C C+ CALL CHRSIZ (4) C+ TERMT = 0 C+ 40 CALL NEWPAG C+ IF (TERMT .NE. 0) CALL CHRSIZ (CSIZE) C+ CALL ANMODE C C PRINT SOME NOTES C C+ IF (TERMT .NE. 0) GO TO 80 C C INSERT NOTES HERE C C GET TERMINAL TYPE FROM USER C C+ 50 WRITE (NOUT,60) C+ 60 FORMAT (/,' ENTER THE TEKTRONIX TERMINAL TYPE', /, C+ 1 ' 1 - 4014, 4015, 4054', /, C+ 2 ' 2 - 4016', /, C+ 3 ' 3 - 4010, 4012, 4013, 4051, 4052', /,' ? ',$) C+ READ (IN,70,ERR=50) TERMT C+ 70 FORMAT (I1) C+ IF (TERMT.EQ.0 .OR. TERMT.GE.4) GO TO 50 C+ IF (TERMT .EQ. 1) CSIZE = 4 C+ IF (TERMT .EQ. 2) CSIZE = 3 C+ IF (TERMT .EQ. 3) CSIZE = 1 C+ IF (TERMT .LE. 2) CALL CHRSIZ (CSIZE) C C+ 80 REWIND FIL C+ IB = NBUFF C+ CURFR =-1 C+ MAXFR = 100000 C+ PLOTID = .FALSE. C+ SEARCH = .TRUE. C+ FR = 0 C C GET PLOTTING OPTION FROM USER C C+ 90 WRITE (NOUT,100) C+100 FORMAT (/,' ENTER A PLOTTING OPTION', /, C+ 1 ' 1 - PLOT ANY FRAME OF YOUR CHOICE', /, C+ 2 ' 2 - PLOT AUTOMATICALLY, ALL FRAMES SEQUENTIALLY WITH', C+ 3 ' HARDCOPY', /,' ? ',$) C+ READ (IN,70,ERR=90) PLOTOP C+ IF (PLOTOP.NE.1 .AND. PLOTOP.NE.2) GO TO 90 C C PRINT NOTES C C+ IF (PLOTOP .EQ. 1) WRITE (NOUT,110) C+110 FORMAT (/,' NOTE - WHEN ASKED ''PLOT FRAME NUMBER ?'' ENTER', C+ 1 /9X,'ANY FRAME NUMBER TO PLOT THAT FRAME OR', C+ 2 /9X,' 0 TO PLOT THE NEXT FRAME, OR', C+ 3 /8X,'-1 TO RESTART NASTEK, OR', C+ 4 /8X,'-2 TO END NASTPLOT') C+ IF (PLOTOP .EQ. 2) WRITE (NOUT,120) C+120 FORMAT (/' NOTE - AFTER ALL FRAMES ARE PLOTTED THE PROGRAM', C+ 1 /8X,'WILL ASK ''RESTART NASTPLOT (Y/N) ?''') C C GET SCALE FACTOR FROM USER C C+130 WRITE (NOUT,140) C+140 FORMAT (/' ENTER A SCALE FACTOR (SCALE>0)', C+ 1 /' =1 NORMAL', C+ 2 /' >1 ENLARGE ALL FRAMES', C+ 3 /' <1 SHRINK ALL FRAMES',/,' ? ',$) C+ READ (IN,150,ERR=130) SCALE C+150 FORMAT (F7.3) C+ IF (SCALE.LT.0.01 .OR. SCALE.GT.999.) GO TO 130 C C BRANCH DEPENDING ON IF RESTARTED AND PLOT OPTION C C+ IF (.NOT.CHANGE) GO TO 160 C+ CHANGE = .FALSE. C+ IF (PLOTOP .EQ. 1) GO TO 340 C C READ PLT1 OR PLT2 FILE AND UNPACK ONE RECORD WITH NR COMMNADS C C+160 IF (IB .LE. NBUFF) GO TO 280 C+ IB = 1 - NCOM C+ READ (FIL,170,END=180,ERR=260) IBUFF C+170 FORMAT (3000A1) C+ GO TO 280 C C EOF FOUND ON PLOT FILE, REWIND IT IF NOT EMPTY C C+180 IF (MAXFR .EQ. 100000) MAXFR = CURFR C+ IF (MAXFR .NE. -1) GO TO 200 C+ WRITE (NOUT,190) PLTX C+190 FORMAT (/,' *ERROR* THIS IS NOT A ',A4,' FILE, TRY AGAIN') C+ RETURN 1 C C+200 REWIND FIL C+ CURFR = -1 C+ IB = NBUFF C C EOF ON PLOT FILE, PLOTOP=1 AND SEARCHING THEN FRAME NOT FOUND, C TRY AGAIN C C+ IF (PLOTOP .EQ. 2) GO TO 220 C+ IF (.NOT.SEARCH) GO TO 340 C+ SEARCH = .FALSE. C+ WRITE (NOUT,210) MAXFR C+210 FORMAT (25X,'MAXIMUM FRAME NUMBER IS',I4,', TRY AGAIN') C+ GO TO 340 C C EOF ON PLOT FILE, PLOTOP=2, OPTION TO RESTART NASTPLOT C C+220 CALL BELL C+ CALL HDCOPY C+ CALL MOVABS (0,3120) C+ IF (TERMT .LE. 2) CALL CHRSIZ (CSIZE) C+ CALL ANMODE C+230 WRITE (NOUT,240) C+240 FORMAT (' RESTART NASTPLOT (Y/N) ? ',$) C+ READ (IN,250,ERR=230) NY C+250 FORMAT (A1) C+ IF (NY.EQ.NO .OR. NY.EQ.NN) GO TO 500 C+ GO TO 40 C C ERROR WHILE READING PLT1 OR PLT2 FILE C C+260 WRITE (NOUT,270) PLTX C+270 FORMAT (/' *ERROR* READING ',A4,' FILE') C+ GO TO 500 C C GET A PLOT COMMAND AND DECIDE IF ITS OK C C+280 IB = IB + NCOM C+ PC = IBUFF(IB) C+ IF (PC.LE.0 .OR. PC.GE.17 .OR. (PC.NE.1.AND.SEARCH)) GO TO 160 C C GET CONTROL INDEX, RSTU C C+ CI = IBUFF(IB+1) C+ IF (PLTX .EQ. PLT1) GO TO 310 C+ J1 = 3 C+ DO 300 I = 1,4 C+ J2 = J1 + 4 C+ RSTU(I) = 0.0 C+ DO 290 J = J1,J2 C+ RSTU(I) = RSTU(I)*10. + IBUFF(J+IB) C+290 CONTINUE C+300 J1 = J1 + 5 C+ GO TO 320 C C+310 R = IBUFF(IB+2) C+ S = IBUFF(IB+3) C+ T = IBUFF(IB+4) C+ U = IBUFF(IB+5) C C BRANCH ON A PLOT COMMAND C C+320 GO TO (330,160,160,430,490,490,160,160,160,160, C+ 1 160,160,160,430,490,490,500), PC C C START OF A NEW PLOT IN PLOT FILE C C+330 CURFR = CURFR + 1 C C IF SEARCHING FOR A FRAME, HAVE WE FOUND IT? C C+ IF (.NOT.SEARCH) GO TO 340 C C FRAME HAS BEEN FOUND, START PLOTTING, PLOTID FRAME IS PLOTTED ONCE C IF FRAME NOT FOUND, GO TO 40 C C+ IF (CURFR .NE. FR) GO TO 160 C+ SEARCH = .FALSE. C+ IF (CURFR .NE. 0) GO TO 420 C+ IF (PLOTID) GO TO 340 C+ PLOTID =.TRUE. C+ GO TO 420 C C NOT SEARCHING FOR A FRAME, PREVIOUS PLOT IS FINISHED C PLOTOP=1, GET FRAME NUMBER FROM USER C C+340 IF (PLOTOP .EQ. 2) GO TO 410 C+ CALL BELL C+ CALL MOVABS (0,3120) C+ IF (TERMT .LE. 2) CALL CHRSIZ (CSIZE) C+350 CALL ANMODE C+ WRITE (NOUT,360) C+360 FORMAT (' PLOT FRAME NUMBER ? ',$) C+ READ (IN,370,ERR=350) FR C+370 FORMAT (I2) C+ IF (FR.EQ.0 .AND. CURFR.EQ.-1) FR = 1 C+ IF (.NOT.(FR.LT.-2 .OR. FR.GT.MAXFR)) GO TO 390 C+ WRITE (NOUT,380) C+380 FORMAT (' TRY AGAIN') C+ CALL BELL C+ GO TO 350 C C BRANCH DEPENDING ON NEW FRAME NUMBER C -1 - RESTART NASTEK C -2 - END NASTEK C 0 OR CURRENT FRAME NUMBER - PLOT THAT FRAME C ELSE SEARCH FOR THE FRAME C C+390 IF (FR .EQ. 0) FR = CURFR C+ IF (FR .NE. -1) GO TO 400 C+ CHANGE = .TRUE. C+ GO TO 40 C+400 IF (FR .EQ. -2) GO TO 500 C+ IF (FR .EQ. CURFR) GO TO 420 C+ SEARCH =.TRUE. C+ IF (FR .GE. CURFR) GO TO 160 C+ CURFR = -1 C+ REWIND FIL C+ IB = 1 - NCOM C+ GO TO 160 C C PLOTOP = 2, MAKE HARDCOPY C C+410 CALL BELL C+ CALL HDCOPY C C START PLOTTING A FRAME BY DRAWING A BOX C C+420 CONTINUE C+ CALL PFRAME C+ GO TO 160 C C PRINT A CHARACTER OR SYMBOL BASED ON THE CONTROL INDEX, C DON'T PRINT IT IF IT IS OUTSIDE THE BOX C C+430 IF (CI.LT.1 .OR. CI.GT.48) GO TO 440 C+ R = R - XCS C+ S = S - YCS C+ IF (R.LT.RMIN .OR. R.GT.RMAX .OR. S.LT.SMIN .OR. S.GT.SMAX) C+ 1 GO TO 160 C+ CALL MOVEA (R,S) C+ CALL A1OUT (1,CHAR(CI)) C+440 IF (CI .GT. 52) GO TO 160 C+ IF (R.LT.RMIN .OR. R.GT.RMAX .OR. S.LT.SMIN .OR. S.GT.SMAX) C+ 1 GO TO 160 C+ CALL MOVEA (R,S) C+ IF (CI-50) 450,460,470 C C CIRCLE SYMBOL C C+450 CALL MOVER (-SYM1, 0.) C+ CALL DRAWR ( SYM3, SYM7) C+ CALL DRAWR ( SYM7, SYM3) C+ CALL DRAWR ( SYM7,-SYM3) C+ CALL DRAWR ( SYM3,-SYM7) C+ CALL DRAWR (-SYM3,-SYM7) C+ CALL DRAWR (-SYM7,-SYM3) C+ CALL DRAWR (-SYM7, SYM3) C+ CALL DRAWR (-SYM3, SYM7) C+ GO TO 160 C C SQUARE SYMBOL C C+460 CALL MOVER (-SYM1, SYM1) C+ CALL DRAWR ( SYM2, 0.) C+ CALL DRAWR ( 0.,-SYM2) C+ CALL DRAWR (-SYM2, 0.) C+ CALL DRAWR ( 0., SYM2) C+ GO TO 160 C C DIAMOND SYMBOL C C+470 IF (CI .EQ. 52) GO TO 480 C+ CALL MOVER ( 0., SYM1) C+ CALL DRAWR ( SYM1,-SYM1) C+ CALL DRAWR (-SYM1,-SYM1) C+ CALL DRAWR (-SYM1, SYM1) C+ CALL DRAWR ( SYM1, SYM1) C+ GO TO 160 C C TRIANGLE SYMBOL C C+480 CALL MOVER ( 0., SYM1) C+ CALL DRAWR ( SYM1,-SYM2) C+ CALL DRAWR (-SYM2, 0.) C+ CALL DRAWR ( SYM1, SYM2) C+ GO TO 160 C C DRAW LINE DEPENDING ON CONTROL INDEX, NO MOVE IF OLD END IS NEW C START C CI = 1, SOLID, PEN 1 C = 2, DOTTED, PEN 2 C = 3, DASH-DOT, PEN 3 C = 4, SHORT-DASH, PEN 4 C = 5, LONG-DASH, PEN 5 C C+490 IF (CI.LT.1 .OR. CI.GT.5) CI = 1 C+ IF (OLDT.NE.R .OR. OLDU.NE.S) CALL MOVEA (R,S) C+ CALL DASHA (T,U,CI-1) C+ OLDT = T C+ OLDU = U C+ GO TO 160 C C JOB DONE C C+500 RETURN C+ END C C ================================================================= C C+ SUBROUTINE PFRAME C C THIS ROUTINE IS CALLED ONLY BY NASTEK C C GIVEN THE NASTRAN SIZE OF THE FRAME (S,T), FIT A FRAME ON THE C TEKTRONIX SCREEN AND DRAW A BOX AROUND IT C C+ INTEGER CURFR,XCEN,YCEN,NUM(4),SIZE,TERMT C+ REAL RSTU(4),XFAC(4),YFAC(4) C+ COMMON /FRAME/ MMINX,MMINY,MMAXY,MMAXX,RSTU,SCALE,CURFR, C+ 1 XCEN,YCEN,RMIN,RMAX,SMIN,SMAX,TERMT,XCS,YCS, C+ 2 SYM1,SYM2,SYM3,SYM7,CSIZE C+ EQUIVALENCE (RSTU(1),R),(RSTU(2),S),(RSTU(3),T),(RSTU(4),U) C+ DATA XFAC / 1.9 ,1.64,1.1 ,1./ C+ DATA YFAC / 1.94,1.68,1.12,1./ C C (1) FIND SIZE OF STANDARD BOX C C+ MINX = MMINX C+ MINY = MMINY C+ MAXY = MMAXY C+ IF (T .NE. 0.) GO TO 10 C+ WRITE (NOUT,15) S,T C+ GO TO 120 C+ 10 MAXX = MINX + MAXY*(S/T) C+ IF (MAXX .LE. MMAXX) GO TO 30 C+ MAXX = MMAXX C+ IF (S .NE. 0.) GO TO 20 C+ WRITE (NOUT,15) S,T C+ 15 FORMAT (/,' *ERROR* EITHER S=0 OR T=0',2(1P,E9.2)) C+ GO TO 120 C+ 20 MAXY = MAXX*(T/S) C+ 30 LEN2X = (MAXX-MINX)/2 C+ LEN2Y = (MAXY-MINY)/2 C C (2) SCALE AND CENTER THE BOX C C+ IF (SCALE.GT.1. .AND. CURFR.NE.0) GO TO 40 C+ TEMP = 1. C+ IF (CURFR .NE. 0) TEMP = SCALE C+ MINX = XCEN - LEN2X*TEMP C+ MAXX = XCEN + LEN2X*TEMP C+ MINY = YCEN - LEN2Y*TEMP C+ MAXY = YCEN + LEN2Y*TEMP C+ RMIN = 0. C+ RMAX = S C+ SMIN = 0. C+ SMAX = T C+ GO TO 50 C+ 40 IF (SCALE .LE. 1.) GO TO 50 C+ MINX = XCEN - LEN2X C+ MAXX = XCEN + LEN2X C+ MINY = YCEN - LEN2Y C+ MAXY = YCEN + LEN2Y C+ RMIN = S*(1.-1./SCALE)/2. C+ RMAX = S*(1.+1./SCALE)/2. C+ SMIN = T*(1.-1./SCALE)/2. C+ SMAX = T*(1.+1./SCALE)/2. C C (3) DRAW A BOX AROUND THE FRAME, AND SET SCREEN AND VIRTUAL WINDOW C C+ 50 CALL ANMODE C+ CALL NEWPAG C+ IF (.NOT.(MAXX.LE.MINX .OR. MAXY.LE.MINY .OR. RMAX.LE.RMIN .OR. C+ 1 SMAX.LE.SMIN)) GO TO 60 C+ CALL ANMODE C+ WRITE (NOUT,55) MINX,MAXX,MINY,MAXY,RMIN,RMAX,SMIN,SMAX C+ 55 FORMAT (/,' *ERROR* SOME OF THE MINS>=MAXS',/4I9,/4(1P,E9.3)) C+ 60 IF (MAXX .NE. MINX) GO TO 70 C+ CALL ANMODE C+ WRITE (NOUT,65) MAXX,MINX C+ 65 FORMAT (/,' *ERROR* MAXX=MINX',2I6) C+ GO TO 120 C+ 70 CALL DWINDO (RMIN,RMAX,SMIN,SMAX) C+ CALL TWINDO (MINX,MAXX,MINY,MAXY) C+ CALL MOVABS (MINX,MINY) C+ CALL DRWABS (MINX,MAXY) C+ CALL DRWABS (MAXX,MAXY) C+ CALL DRWABS (MAXX,MINY) C+ CALL DRWABS (MINX,MINY) C C (4) PRINT THE FRAME NUMBER AND SCALE IN THE LOWER RIGHT CORNER C C CSIZE = 1,2,3,4 C C+ IY = 75 C+ IF (TERMT .GT. 2) GO TO 80 C+ CALL CHRSIZ (CSIZE) C+ IY = 40 C C+ 80 FCURFR = CURFR C+ CALL IFORM (FCURFR,4,NUM,32) C+ CALL MOVABS (MAXX+15,MINY+IY) C+ CALL ANSTR (4,NUM) C C+ ND = 0 C+ IF (SCALE .LT. 10.0) ND = 2 C+ IF (SCALE .LT. 100.) ND = 1 C+ CALL FFORM (SCALE,4,ND,NUM,32) C+ CALL MOVABS (MAXX+15,MINY) C+ CALL ANSTR (4,NUM) C C (5) FIND CHARACTER SIZE IN NASTRAN COORDINATES C C THE NASTRAN COORDINATES FROM THE PLOT FILE ARE THE LOCATIONS C OF THE CENTER OF A CHARACTER. HALF THE WIDTH AND HEIGHT C (XCS,YCS) OF THE SIZE OF A CHARACTER MUST BE SUBTRACTED FROM C THE NASTRAN COORDINATES TO PRINT THEM IN THE PROPER LOCATION. C C+ XCS = 7.7*(RMAX-RMIN)/(MAXX-MINX) C+ YCS = 1.8*XCS C C SET SYMBOL SIZE C C+ SYM1 = YCS*SCALE C+ SYM2 = 2.0*YCS*SCALE C+ SYM3 = 0.3*YCS*SCALE C+ SYM7 = 0.7*YCS*SCALE C C SET AND SCALE CHARACTER SIZE C C+ SIZE = 1 C+ IF (TERMT .GT. 2) GO TO 90 C+ IF (SCALE.LT.1.1 .OR. CURFR.EQ.0) SIZE = 4 C+ IF (SCALE .LT. 1.7) SIZE = 3 C+ IF (SCALE .LT. 1.8) SIZE = 2 C+ IF (TERMT.EQ.2 .AND. SIZE.EQ.4) SIZE = 3 C+ CALL CHRSIZ (SIZE) C+ 90 XCS = XCS*XFAC(SIZE) C+ YCS = YCS*YFAC(SIZE) C+ IF (CURFR .NE. 0) GO TO 100 C+ XCS = -XCS C+ YCS = -YCS C C+100 RETURN C C ERROR C C+120 STOP 'ERROR IN PFRAME/NASTEK/NASTPLOT' C+ END